'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class VERAGDataSet Inherits Global.System.Data.DataSet Private tableAbfertigungsarten As AbfertigungsartenDataTable Private tableAbfertigungskosten_der_Korrespondenten As Abfertigungskosten_der_KorrespondentenDataTable Private tableAbfertigungsLaender As AbfertigungsLaenderDataTable Private tableAbfertigungsLaenderAbfertigungsarten As AbfertigungsLaenderAbfertigungsartenDataTable Private tableAbgabenarten As AbgabenartenDataTable Private tableAdressen As AdressenDataTable Private tableAktivitätenlog As AktivitätenlogDataTable Private tableAnlagen As AnlagenDataTable Private tableatlas_status As atlas_statusDataTable Private tableAufschubdaten As AufschubdatenDataTable Private tableAufschubkonten As AufschubkontenDataTable Private tableBelegarten As BelegartenDataTable Private tableBerechnungsart As BerechnungsartDataTable Private tableBerechnungsbogen As BerechnungsbogenDataTable Private tableBerichte As BerichteDataTable Private tableCMR As CMRDataTable Private tableDevisenkurse As DevisenkurseDataTable Private tableEPBes As EPBesDataTable Private tableEPBesPOS As EPBesPOSDataTable Private tableFilialen As FilialenDataTable Private tableGeschäftsarten As GeschäftsartenDataTable Private tableKorrespondenten As KorrespondentenDataTable Private tableKostenstellen As KostenstellenDataTable Private tableKreditkarten As KreditkartenDataTable Private tableKunden As KundenDataTable Private tableKundenFilialen As KundenFilialenDataTable Private tableLänder_der_Bundesrepublik_Deutschland As Länder_der_Bundesrepublik_DeutschlandDataTable Private tableLänderverzeichnis_für_die_Außenhandelsstatistik As Länderverzeichnis_für_die_AußenhandelsstatistikDataTable Private tableLeistungen As LeistungenDataTable Private tableLeistungenBUKonten As LeistungenBUKontenDataTable Private tableLieferbedingungen As LieferbedingungenDataTable Private tableNebenkosten_der_Korrespondenten As Nebenkosten_der_KorrespondentenDataTable Private tableOffene_Posten As Offene_PostenDataTable Private tableOffene_Posten_DVO As Offene_Posten_DVODataTable Private tableOfferten As OffertenDataTable Private tableOffertenpositionen As OffertenpositionenDataTable Private tableOffertenstamm As OffertenstammDataTable Private tablePersonal As PersonalDataTable Private tableRechnungsausgang As RechnungsausgangDataTable Private tableRechnungsausgangAnhaenge As RechnungsausgangAnhaengeDataTable Private tableRechnungsausgangPositionen As RechnungsausgangPositionenDataTable Private tableRechnungsnummern As RechnungsnummernDataTable Private tableRechnungstexte As RechnungstexteDataTable Private tableSpeditionsbuch As SpeditionsbuchDataTable Private tableStandardofferten As StandardoffertenDataTable Private tableStandardoffertenFirma As StandardoffertenFirmaDataTable Private tableSteuertabelle As SteuertabelleDataTable Private tabletbl_ASFINAG_FileInfo As tbl_ASFINAG_FileInfoDataTable Private tabletbl_BMD_Länder As tbl_BMD_LänderDataTable Private tabletbl_DY_Paramter As tbl_DY_ParamterDataTable Private tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable Private tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable Private tabletbl_DY_ZollDE_C0008_LaenderFull As tbl_DY_ZollDE_C0008_LaenderFullDataTable Private tabletbl_DY_ZollDE_C0010_LaenderAES As tbl_DY_ZollDE_C0010_LaenderAESDataTable Private tabletbl_DY_ZollDE_C0013_UnterlagenArten As tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable Private tabletbl_DY_ZollDE_C0014_VorpapierArten As tbl_DY_ZollDE_C0014_VorpapierArtenDataTable Private tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable Private tabletbl_DY_ZollDE_C0141_Zollstellen As tbl_DY_ZollDE_C0141_ZollstellenDataTable Private tabletbl_DY_ZollDE_C0219_TypeTransportMeans As tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable Private tabletbl_DY_ZollDE_I0200_Unterlagearten As tbl_DY_ZollDE_I0200_UnterlageartenDataTable Private tabletbl_DY_ZollDE_I0400_Waehrungsliste As tbl_DY_ZollDE_I0400_WaehrungslisteDataTable Private tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable Private tabletbl_DY_ZollDE_I0700_Masseinheiten As tbl_DY_ZollDE_I0700_MasseinheitenDataTable Private tabletbl_Errors As tbl_ErrorsDataTable Private tabletbl_IDS_Kategorien_Kunden As tbl_IDS_Kategorien_KundenDataTable Private tabletbl_IDS_Kategorien_Rechenwerte As tbl_IDS_Kategorien_RechenwerteDataTable Private tabletbl_IDS_Kunden As tbl_IDS_KundenDataTable Private tabletbl_IDS_Kunden_ohne_Rabatt As tbl_IDS_Kunden_ohne_RabattDataTable Private tabletbl_IDS_Länder As tbl_IDS_LänderDataTable Private tabletbl_IDS_Produkte As tbl_IDS_ProdukteDataTable Private tabletbl_IDS_Rechenwerte As tbl_IDS_RechenwerteDataTable Private tabletbl_IDS_Stationen As tbl_IDS_StationenDataTable Private tabletbl_Intrastat_Ausfuhr As tbl_Intrastat_AusfuhrDataTable Private tabletbl_Telefonbuch As tbl_TelefonbuchDataTable Private tabletbl_Telefonnummern As tbl_TelefonnummernDataTable Private tabletbl_WÖLFL As tbl_WÖLFLDataTable Private tabletbl_ZM_tabelle As tbl_ZM_tabelleDataTable Private tabletblAbfertigungsartenFiliale As tblAbfertigungsartenFilialeDataTable Private tabletblAbfertigungsartOffertenstamm As tblAbfertigungsartOffertenstammDataTable Private tabletblAbrechnung_NCTSBrg As tblAbrechnung_NCTSBrgDataTable Private tabletblAnmeldung As tblAnmeldungDataTable Private tabletblAsfinagMaut As tblAsfinagMautDataTable Private tabletblATEZ_NCTS As tblATEZ_NCTSDataTable Private tabletblATEZ_NCTS_Routen As tblATEZ_NCTS_RoutenDataTable Private tabletblATEZ_NCTS_Sessions As tblATEZ_NCTS_SessionsDataTable Private tabletblATEZ_NCTS_TransitCustomsOffice As tblATEZ_NCTS_TransitCustomsOfficeDataTable Private tabletblBankspesen As tblBankspesenDataTable Private tabletblBerechnungsmethode As tblBerechnungsmethodeDataTable Private tabletblBerichtsdrucker As tblBerichtsdruckerDataTable Private tabletblBesuchsberichte As tblBesuchsberichteDataTable Private tabletblBonitaetsauskunft As tblBonitaetsauskunftDataTable Private tabletblBuchungstext As tblBuchungstextDataTable Private tabletblDakosy_AES As tblDakosy_AESDataTable Private tabletblDakosy_AES_Warenposition As tblDakosy_AES_WarenpositionDataTable Private tabletblDakosy_AES_WarenpositionPackstuecke As tblDakosy_AES_WarenpositionPackstueckeDataTable Private tabletblDakosy_AES_WarenpositionUnterlagen As tblDakosy_AES_WarenpositionUnterlagenDataTable Private tabletblDakosy_EZA As tblDakosy_EZADataTable Private tabletblDakosy_EZA_Adressen As tblDakosy_EZA_AdressenDataTable Private tabletblDakosy_EZA_Aufschub As tblDakosy_EZA_AufschubDataTable Private tabletblDakosy_EZA_BEAnteilZLAVUV As tblDakosy_EZA_BEAnteilZLAVUVDataTable Private tabletblDakosy_EZA_SumABeendigungsAnteil As tblDakosy_EZA_SumABeendigungsAnteilDataTable Private tabletblDakosy_EZA_Unterlagen As tblDakosy_EZA_UnterlagenDataTable Private tabletblDakosy_EZA_Warenposition As tblDakosy_EZA_WarenpositionDataTable Private tabletblDakosy_EZA_WarenpositionSonderfalldaten As tblDakosy_EZA_WarenpositionSonderfalldatenDataTable Private tabletblDakosy_EZA_WarenpositionUnterlagen As tblDakosy_EZA_WarenpositionUnterlagenDataTable Private tabletblDakosy_EZA_WarenpositionVerbrauchssteuer As tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable Private tabletblDakosy_NCTSOut As tblDakosy_NCTSOutDataTable Private tabletblDakosy_NCTSOut_Sicherheitsangaben As tblDakosy_NCTSOut_SicherheitsangabenDataTable Private tabletblDakosy_NCTSOut_Warenposition As tblDakosy_NCTSOut_WarenpositionDataTable Private tabletblDakosy_NCTSOut_WarenpositionPackstuecke As tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable Private tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable Private tabletblDakosy_NCTSOut004 As tblDakosy_NCTSOut004DataTable Private tabletblDakosy_NCTSOut004_Guarantee As tblDakosy_NCTSOut004_GuaranteeDataTable Private tabletblDakosy_NCTSOut004_HouseConsignment As tblDakosy_NCTSOut004_HouseConsignmentDataTable Private tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable Private tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable Private tabletblDakosy_NCTSOut004_TransportEquipment As tblDakosy_NCTSOut004_TransportEquipmentDataTable Private tabletblDakosy_Stammreferenzen As tblDakosy_StammreferenzenDataTable Private tabletblDakosy_Statusmeldungen As tblDakosy_StatusmeldungenDataTable Private tabletblDakosy_Zollanmeldungen As tblDakosy_ZollanmeldungenDataTable Private tabletblDakosy_ZollanmeldungenArten As tblDakosy_ZollanmeldungenArtenDataTable Private tabletblDatenarchiv As tblDatenarchivDataTable Private tabletblDatenarchiv_Collection As tblDatenarchiv_CollectionDataTable Private tabletblDEBundeslaenderPLZ As tblDEBundeslaenderPLZDataTable Private tabletblDHF_Anhaenge As tblDHF_AnhaengeDataTable Private tabletblDieselArchiv As tblDieselArchivDataTable Private tabletblDigicust_Sendungen As tblDigicust_SendungenDataTable Private tabletblDigicust_Sessions As tblDigicust_SessionsDataTable Private tabletblDigicust_Settings As tblDigicust_SettingsDataTable Private tabletblEABelegnummer As tblEABelegnummerDataTable Private tabletblEABelegposition As tblEABelegpositionDataTable Private tabletblEmailBenachrichtigung As tblEmailBenachrichtigungDataTable Private tabletblEmailBenachrichtigungArten As tblEmailBenachrichtigungArtenDataTable Private tabletblEORIPruefung As tblEORIPruefungDataTable Private tabletblEZB_Waehrungskurse As tblEZB_WaehrungskurseDataTable Private tabletblEZT_Importcodenummern As tblEZT_ImportcodenummernDataTable Private tabletblFahrerDaten As tblFahrerDatenDataTable Private tabletblFirma As tblFirmaDataTable Private tabletblFiskal_Daten As tblFiskal_DatenDataTable Private tabletblFiskalkunden As tblFiskalkundenDataTable Private tabletblFormulardaten As tblFormulardatenDataTable Private tabletblFormulareVorlagen As tblFormulareVorlagenDataTable Private tabletblFormulareVorlagenValues As tblFormulareVorlagenValuesDataTable Private tabletblFremdSpeditionenZuordnung As tblFremdSpeditionenZuordnungDataTable Private tabletblFTP_Log As tblFTP_LogDataTable Private tabletblFTP_Log_Backup2 As tblFTP_Log_Backup2DataTable Private tabletblGebuehrenvermarktungsnormen As tblGebuehrenvermarktungsnormenDataTable Private tabletblGelangensbestaetigung As tblGelangensbestaetigungDataTable Private tabletblGeschäftsjahr As tblGeschäftsjahrDataTable Private tabletblGeschäftsjahrBelegNr As tblGeschäftsjahrBelegNrDataTable Private tabletblGeschäftsjahrJournalNr As tblGeschäftsjahrJournalNrDataTable Private tabletblGestellungsgarantien As tblGestellungsgarantienDataTable Private tabletblGestellungsmitteilung As tblGestellungsmitteilungDataTable Private tabletblGestellungsmitteilung_Positionen As tblGestellungsmitteilung_PositionenDataTable Private tabletblGOBOXBestellungen As tblGOBOXBestellungenDataTable Private tabletblGVMS As tblGVMSDataTable Private tabletblGVMS_Carriers As tblGVMS_CarriersDataTable Private tabletblGVMS_Ports As tblGVMS_PortsDataTable Private tabletblGVMS_Pos As tblGVMS_PosDataTable Private tabletblGVMS_Routes As tblGVMS_RoutesDataTable Private tabletblHandlingssaetzeIntern As tblHandlingssaetzeInternDataTable Private tabletblHistorie As tblHistorieDataTable Private tabletblIDS_Transaktionen As tblIDS_TransaktionenDataTable Private tabletblKassenbuch As tblKassenbuchDataTable Private tabletblKonto As tblKontoDataTable Private tabletblKundenAufschubkonten As tblKundenAufschubkontenDataTable Private tabletblKundenBesonderheiten As tblKundenBesonderheitenDataTable Private tabletblKundenBesonderheiten_Kategorien As tblKundenBesonderheiten_KategorienDataTable Private tabletblKundenDatenblatt As tblKundenDatenblattDataTable Private tabletblKundenErweitert As tblKundenErweitertDataTable Private tabletblKundenKontakt As tblKundenKontaktDataTable Private tabletblKundenKontaktArten As tblKundenKontaktArtenDataTable Private tabletblKundenumsatz As tblKundenumsatzDataTable Private tabletblKundenVermerke As tblKundenVermerkeDataTable Private tabletblKundenVertraege As tblKundenVertraegeDataTable Private tabletblKundenVertraegeArten As tblKundenVertraegeArtenDataTable Private tabletblKundenVollmachten As tblKundenVollmachtenDataTable Private tabletblKundenVollmachtenArt As tblKundenVollmachtenArtDataTable Private tabletblLogbuch As tblLogbuchDataTable Private tabletblMandant As tblMandantDataTable Private tabletblMautIT_Belegarten As tblMautIT_BelegartenDataTable Private tabletblMautITArchiv As tblMautITArchivDataTable Private tabletblMDM_Paramter As tblMDM_ParamterDataTable Private tabletblMSECustomers As tblMSECustomersDataTable Private tabletblMSEImport As tblMSEImportDataTable Private tabletblMSEInvoices As tblMSEInvoicesDataTable Private tabletblMSELeistungen As tblMSELeistungenDataTable Private tabletblMSESettlements As tblMSESettlementsDataTable Private tabletblMSETransactions As tblMSETransactionsDataTable Private tabletblMSETransactionsArchiv As tblMSETransactionsArchivDataTable Private tabletblMSETransactionsArchivOLD As tblMSETransactionsArchivOLDDataTable Private tabletblNCTS_TR As tblNCTS_TRDataTable Private tabletblNCTS_TR_Nachrichten As tblNCTS_TR_NachrichtenDataTable Private tabletblNCTS_TR_Sicherheitsangaben As tblNCTS_TR_SicherheitsangabenDataTable Private tabletblNCTS_TR_Warenposition As tblNCTS_TR_WarenpositionDataTable Private tabletblNCTS_TR_WarenpositionPackstuecke As tblNCTS_TR_WarenpositionPackstueckeDataTable Private tabletblNCTSGestellungsadressen As tblNCTSGestellungsadressenDataTable Private tabletblNTCSRouten As tblNTCSRoutenDataTable Private tabletblOffertenArchiv As tblOffertenArchivDataTable Private tabletblOffertenPositionenArchiv As tblOffertenPositionenArchivDataTable Private tabletblOregonNCTS_DeclarationData As tblOregonNCTS_DeclarationDataDataTable Private tabletblOregonNCTS_Declarations_AdditionalCodesAttribute As tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable Private tabletblOregonNCTS_Declarations_DocumentsAttribute As tblOregonNCTS_Declarations_DocumentsAttributeDataTable Private tabletblOregonNCTS_Declarations_GoodsAttribute As tblOregonNCTS_Declarations_GoodsAttributeDataTable Private tabletblOregonNCTS_Declarations_PacksAttribute As tblOregonNCTS_Declarations_PacksAttributeDataTable Private tabletblOregonNCTS_Declarations_PartiesAttribute As tblOregonNCTS_Declarations_PartiesAttributeDataTable Private tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute As tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable Private tabletblOregonNCTS_Declarations_TraderAdditionsAttribute As tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable Private tabletblOregonNCTS_ReferenceTemplate As tblOregonNCTS_ReferenceTemplateDataTable Private tabletblOriginalATR As tblOriginalATRDataTable Private tabletblPartnersystem_Paramter As tblPartnersystem_ParamterDataTable Private tabletblPfad As tblPfadDataTable Private tabletblPLOSE_Details As tblPLOSE_DetailsDataTable Private tabletblPLOSE_Inv_Data As tblPLOSE_Inv_DataDataTable Private tabletblPLOSE_Lieferant As tblPLOSE_LieferantDataTable Private tabletblPLOSE_Produktbeschreibung As tblPLOSE_ProduktbeschreibungDataTable Private tabletblPosNr As tblPosNrDataTable Private tabletblPostversand As tblPostversandDataTable Private tabletblPreislisten As tblPreislistenDataTable Private tabletblPreislistenpositionen As tblPreislistenpositionenDataTable Private tabletblPreistabellen As tblPreistabellenDataTable Private tabletblPreistabellenpositionen As tblPreistabellenpositionenDataTable Private tabletblQS_Abfertigungsarten As tblQS_AbfertigungsartenDataTable Private tabletblQS_Aufträge As tblQS_AufträgeDataTable Private tabletblQS_Auftragspositionen As tblQS_AuftragspositionenDataTable Private tabletblQS_Teams As tblQS_TeamsDataTable Private tabletblQS_TeamsMA As tblQS_TeamsMADataTable Private tabletblRechnungsnotizen As tblRechnungsnotizenDataTable Private tabletblRef As tblRefDataTable Private tabletblRefBeziehungen As tblRefBeziehungenDataTable Private tabletblRKSV_Kassen As tblRKSV_KassenDataTable Private tabletblRKSV_POS As tblRKSV_POSDataTable Private tabletblRMCImport As tblRMCImportDataTable Private tabletblSMS As tblSMSDataTable Private tabletblSpeditionsbucharchiv As tblSpeditionsbucharchivDataTable Private tabletblSpeditionsbuchEndEmpfaenger As tblSpeditionsbuchEndEmpfaengerDataTable Private tabletblSpeditionsbuchUnterPos As tblSpeditionsbuchUnterPosDataTable Private tabletblSpeditionsbuchUnterPosArten As tblSpeditionsbuchUnterPosArtenDataTable Private tabletblSteuernummern As tblSteuernummernDataTable Private tabletblSteuersätze As tblSteuersätzeDataTable Private tabletblSteuertyp As tblSteuertypDataTable Private tabletblTelotec_Abgaben As tblTelotec_AbgabenDataTable Private tabletblTelotec_Anmeldung As tblTelotec_AnmeldungDataTable Private tabletblTelotec_Packstuecke As tblTelotec_PackstueckeDataTable Private tabletblTelotec_Paramter As tblTelotec_ParamterDataTable Private tabletblTelotec_Positionsdaten As tblTelotec_PositionsdatenDataTable Private tabletblTelotec_PositionsdatenAbgaben As tblTelotec_PositionsdatenAbgabenDataTable Private tabletblTelotec_PositionsdatenDokumente As tblTelotec_PositionsdatenDokumenteDataTable Private tabletblTelotec_Sicherheit As tblTelotec_SicherheitDataTable Private tabletblTest As tblTestDataTable Private tabletblTextkonserve As tblTextkonserveDataTable Private tabletblTR_Aviso As tblTR_AvisoDataTable Private tabletblTR_AvisoAnheange As tblTR_AvisoAnheangeDataTable Private tabletblTR_Shipment As tblTR_ShipmentDataTable Private tabletblTR_Shipment_Adressen As tblTR_Shipment_AdressenDataTable Private tabletblTR_Shipment_Document As tblTR_Shipment_DocumentDataTable Private tabletblTR_Shipment_Position As tblTR_Shipment_PositionDataTable Private tabletblTR_Shipment_Position_Document As tblTR_Shipment_Position_DocumentDataTable Private tabletblTranslate As tblTranslateDataTable Private tabletblTranslateAuto As tblTranslateAutoDataTable Private tabletblTrdinHeader As tblTrdinHeaderDataTable Private tabletblTrdinInvoice As tblTrdinInvoiceDataTable Private tabletblTrdinProduct As tblTrdinProductDataTable Private tabletblUIDPruefung As tblUIDPruefungDataTable Private tabletblUStVAntrag As tblUStVAntragDataTable Private tabletblUStVBelegeingang As tblUStVBelegeingangDataTable Private tabletblUStVErstattung As tblUStVErstattungDataTable Private tabletblUStVFormulare As tblUStVFormulareDataTable Private tabletblUStVKuLäFo As tblUStVKuLäFoDataTable Private tabletblUStVLäFo As tblUStVLäFoDataTable Private tabletblUStVLeistender As tblUStVLeistenderDataTable Private tabletblUStVPositionen As tblUStVPositionenDataTable Private tabletblUStVTexte As tblUStVTexteDataTable Private tabletblUTAArchiv As tblUTAArchivDataTable Private tabletblUTAFakturierwarenarten As tblUTAFakturierwarenartenDataTable Private tabletblUTAHeader As tblUTAHeaderDataTable Private tabletblUTAHeaderNew As tblUTAHeaderNewDataTable Private tabletblUTAImport As tblUTAImportDataTable Private tabletblUTAImportNew As tblUTAImportNewDataTable Private tabletblUTALeistungen As tblUTALeistungenDataTable Private tabletblUTATrailer As tblUTATrailerDataTable Private tabletblUTATrailerNew As tblUTATrailerNewDataTable Private tabletblVermarktungsnormen As tblVermarktungsnormenDataTable Private tabletblVermarktungsnormenGebuehren As tblVermarktungsnormenGebuehrenDataTable Private tabletblVorauskassen As tblVorauskassenDataTable Private tabletblWahrungtabelleNEU As tblWahrungtabelleNEUDataTable Private tabletblWarenbezeichnungBegriffe As tblWarenbezeichnungBegriffeDataTable Private tabletblZabis_Atlas_NCTS As tblZabis_Atlas_NCTSDataTable Private tabletblZahlungszieltexte As tblZahlungszieltexteDataTable Private tabletblZolaris_EZoll_NCTS As tblZolaris_EZoll_NCTSDataTable Private tabletblZOLL_Wechselkurse As tblZOLL_WechselkurseDataTable Private tabletblZollArtikel As tblZollArtikelDataTable Private tabletblZollUnterArtikel As tblZollUnterArtikelDataTable Private tableTemporaryUpsizedTable2 As TemporaryUpsizedTable2DataTable Private tableVerkehrszweige As VerkehrszweigeDataTable Private tableVermerke As VermerkeDataTable Private tableVorkosten As VorkostenDataTable Private tableWährungstabelle As WährungstabelleDataTable Private tableZahlungsarten As ZahlungsartenDataTable Private tablezbadz As zbadzDataTable Private tablezbant As zbantDataTable Private tablezbapo As zbapoDataTable Private tablezbpos As zbposDataTable Private tableZkteing As ZkteingDataTable Private tableZollsysteme As ZollsystemeDataTable Private tableZulassungen_ZnV As Zulassungen_ZnVDataTable Private tablevwKundenstamm As vwKundenstammDataTable Private tablevwReErfAuswahl As vwReErfAuswahlDataTable Private tablevwTrdinHeader As vwTrdinHeaderDataTable Private tablevwTrdinInvoice As vwTrdinInvoiceDataTable Private tablevwTrdinProduct As vwTrdinProductDataTable Private tablevwUStV_OP_Risikobericht As vwUStV_OP_RisikoberichtDataTable Private tablevwUStVAntrag As vwUStVAntragDataTable Private tablevwUStVBelegeingang As vwUStVBelegeingangDataTable Private tablevwUStVErstattung As vwUStVErstattungDataTable Private tablevwUStVPositionen As vwUStVPositionenDataTable Private tablevwUStVVorauszahlung As vwUStVVorauszahlungDataTable Private tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1 As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable Private tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable Private tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2 As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable Private tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable Private tablespAlleTabellen As spAlleTabellenDataTable Private tablespReDruReNrVergeben As spReDruReNrVergebenDataTable Private tablespReDruSchnSaReDruckinfoEintragen As spReDruSchnSaReDruckinfoEintragenDataTable Private tablespReDruSchnSaReNrEintragen As spReDruSchnSaReNrEintragenDataTable Private tablespReverseChargeSumme As spReverseChargeSummeDataTable Private tablespSELECT_Bankspesen_für_KundenNr As spSELECT_Bankspesen_für_KundenNrDataTable Private tablespSELECT_tblZabis_Atlas_NCTS As spSELECT_tblZabis_Atlas_NCTSDataTable Private tablespSELECTAufschubdaten As spSELECTAufschubdatenDataTable Private tablespSELECTRechnungsausgang As spSELECTRechnungsausgangDataTable Private tablespSELECTRechnungsausgangPositionen As spSELECTRechnungsausgangPositionenDataTable Private tablespSELECTRechnungsnummern As spSELECTRechnungsnummernDataTable Private tablespSelectReDruSaReRKAvisoID As spSelectReDruSaReRKAvisoIDDataTable Private tablespSELECTReDruSaReRKgruppieren As spSELECTReDruSaReRKgruppierenDataTable Private tablespSelectReDruSchnBB_RK As spSelectReDruSchnBB_RKDataTable Private tablespSelectReDruSchnKunde As spSelectReDruSchnKundeDataTable Private tablespSelectReDruSchnSumBS415 As spSelectReDruSchnSumBS415DataTable Private tablespSelectReDruSchnTextZollbelegePrüfen As spSelectReDruSchnTextZollbelegePrüfenDataTable Private tablespSELECTReDruSumReGu As spSELECTReDruSumReGuDataTable Private tablespSELECTReDruText As spSELECTReDruTextDataTable Private tablespSelectReErfAuswahl As spSelectReErfAuswahlDataTable Private tablespSELECTReErfKA As spSELECTReErfKADataTable Private tablespSelectRK As spSelectRKDataTable Private tablespSelectRKPKey As spSelectRKPKeyDataTable Private tablespSelectRP As spSelectRPDataTable Private tablespSelectRPFKeyRK As spSelectRPFKeyRKDataTable Private tablespSelectRPPKey As spSelectRPPKeyDataTable Private tablespSELECTtblAnmeldungPKey As spSELECTtblAnmeldungPKeyDataTable Private tablespSELECTtblQS_Abfertigungsarten As spSELECTtblQS_AbfertigungsartenDataTable Private tablespSELECTtblQS_Aufträge As spSELECTtblQS_AufträgeDataTable Private tablespSELECTtblQS_Auftragspositionen As spSELECTtblQS_AuftragspositionenDataTable Private tablespSELECTtblTrdinHeader As spSELECTtblTrdinHeaderDataTable Private tablespSELECTtblTrdinInvoice As spSELECTtblTrdinInvoiceDataTable Private tablespSELECTtblTrdinProduct As spSELECTtblTrdinProductDataTable Private tablespSELECTtblUStVAntrag As spSELECTtblUStVAntragDataTable Private tablespSELECTtblUStVBelegeingang As spSELECTtblUStVBelegeingangDataTable Private tablespSELECTtblUStVErstattung As spSELECTtblUStVErstattungDataTable Private tablespSELECTtblUStVPositionen As spSELECTtblUStVPositionenDataTable Private tablespSELECTtblZolaris_EZoll_NCTS As spSELECTtblZolaris_EZoll_NCTSDataTable Private tablespSELECTUStVErstattungsschreiben As spSELECTUStVErstattungsschreibenDataTable Private tablespSELECTUStVErstattungsschreiben2 As spSELECTUStVErstattungsschreiben2DataTable Private tablespSELECTZkteing As spSELECTZkteingDataTable Private tablespTrdinFiBuSelectInvoice As spTrdinFiBuSelectInvoiceDataTable Private tablespTrdinFiBuSelectProduct As spTrdinFiBuSelectProductDataTable Private tablespTrdinSchreibenSelectInvoicePKey As spTrdinSchreibenSelectInvoicePKeyDataTable Private tablespTrdinSchreibenSelectProductFKeyInvoice As spTrdinSchreibenSelectProductFKeyInvoiceDataTable Private tablespTrdinSchreibenSelectProductPKey As spTrdinSchreibenSelectProductPKeyDataTable Private tablespUStVAntragLesenParameterPKey As spUStVAntragLesenParameterPKeyDataTable Private tablespUStVBelegeingangLesenParameterPKey As spUStVBelegeingangLesenParameterPKeyDataTable Private tablespUStVErstattungLesenParameterPKey As spUStVErstattungLesenParameterPKeyDataTable Private tablespUStVPositionenLesenParameterPKey As spUStVPositionenLesenParameterPKeyDataTable Private tablespUStVRechnungÜbernehmenMSE As spUStVRechnungÜbernehmenMSEDataTable Private tablespUStVVorschau_IDS_Summe As spUStVVorschau_IDS_SummeDataTable Private tablespUStVVorschau_IT_Summe As spUStVVorschau_IT_SummeDataTable Private tablespUStVVorschau_MSE_Summe As spUStVVorschau_MSE_SummeDataTable Private tablespUStVVorschau_UTA_Summe As spUStVVorschau_UTA_SummeDataTable Private tablespUStVVorschau_VERAG_Summe As spUStVVorschau_VERAG_SummeDataTable Private tablespZolaris_EZoll_NCTS_Datenbereitstellung As spZolaris_EZoll_NCTS_DatenbereitstellungDataTable Private _relationAbfertigungskosten_der_Korrespondenten_AbfertigungsartenAbfertigungskosten_der_Korrespondenten As Global.System.Data.DataRelation Private _relationAbfertigungskosten_der_Korrespondenten_KorrespondentenAbfertigungskosten_der_Korrespondenten As Global.System.Data.DataRelation Private _relationAbfertigungskosten_der_Korrespondenten_LeistungenAbfertigungskosten_der_Korrespondenten As Global.System.Data.DataRelation Private _relationDevisenkurse_Reference9 As Global.System.Data.DataRelation Private _relationFilialen_KorrespondentenFilialen As Global.System.Data.DataRelation Private _relationKreditkarten_AdressenKreditkarten As Global.System.Data.DataRelation Private _relationKunden_AdressenKunden As Global.System.Data.DataRelation Private _relationKunden_FilialenKunden As Global.System.Data.DataRelation Private _relationKunden_Reference7 As Global.System.Data.DataRelation Private _relationKundenFilialen_FilialenKundenFilialen As Global.System.Data.DataRelation Private _relationKundenFilialen_KundenKundenFilialen As Global.System.Data.DataRelation Private _relationLeistungen_BerechnungsartLeistungen As Global.System.Data.DataRelation Private _relationLeistungen_KostenstellenLeistungen As Global.System.Data.DataRelation Private _relationNebenkosten_der_Korrespondenten_KorrespondentenNebenkosten_der_Korrespondenten As Global.System.Data.DataRelation Private _relationNebenkosten_der_Korrespondenten_LeistungenNebenkosten_der_Korrespondenten As Global.System.Data.DataRelation Private _relationOfferten_FilialenOfferten As Global.System.Data.DataRelation Private _relationOfferten_KundenOfferten As Global.System.Data.DataRelation Private _relationOfferten_OffertenstammOfferten As Global.System.Data.DataRelation Private _relationOffertenpositionen_BerechnungsartOffertenpositionen As Global.System.Data.DataRelation Private _relationOffertenpositionen_LeistungenOffertenpositionen As Global.System.Data.DataRelation Private _relationOffertenpositionen_OffertenOffertenpositionen As Global.System.Data.DataRelation Private relationRechnungsausgangPositione_FK00 As Global.System.Data.DataRelation Private _relationStandardofferten_LeistungenStandardofferten As Global.System.Data.DataRelation Private _relationStandardofferten_OffertenstammStandardofferten As Global.System.Data.DataRelation Private _relationStandardoffertenFirma_LeistungenStandardofferten As Global.System.Data.DataRelation Private _relationStandardoffertenFirma_OffertenstammStandardofferten As Global.System.Data.DataRelation Private _relationtbl_IDS_Kategorien_Kunden_Adressentbl_IDS_Kategorien_Kunden As Global.System.Data.DataRelation Private _relationtbl_IDS_Kategorien_Rechenwerte_tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte As Global.System.Data.DataRelation Private _relationtbl_IDS_Kunden_Adressentbl_IDS_Kunden As Global.System.Data.DataRelation Private _relationtbl_IDS_Kunden_ohne_Rabatt_Adressentbl_IDS_Kunden_ohne_Rabatt As Global.System.Data.DataRelation Private _relationtbl_IDS_Länder_Leistungentbl_IDS_Länder As Global.System.Data.DataRelation Private _relationtbl_IDS_Rechenwerte_Adressentbl_IDS_Rechenwerte As Global.System.Data.DataRelation Private _relationtbl_IDS_Rechenwerte_tbl_IDS_Ländertbl_IDS_Rechenwerte As Global.System.Data.DataRelation Private _relationtbl_IDS_Rechenwerte_tbl_IDS_Produktetbl_IDS_Rechenwerte As Global.System.Data.DataRelation Private _relationtbl_IDS_Stationen_tbl_IDS_Ländertbl_IDS_Stationen As Global.System.Data.DataRelation Private _relationtbl_Telefonnummern__225FED75_BA09_45E0_9A45_F3814507EBE0_ As Global.System.Data.DataRelation Private relationFK_tblATEZ_NCTS_Routen_TotblATEZNCTS As Global.System.Data.DataRelation Private relationFK_tblATEZ_NCTS_TransitCustomsOffice As Global.System.Data.DataRelation Private relationtblBerichtsdrucker_FK00 As Global.System.Data.DataRelation Private relationtblEABelegposition_FK00 As Global.System.Data.DataRelation Private relationtblFormulardaten_FK00 As Global.System.Data.DataRelation Private relationtblHistorie_FK00 As Global.System.Data.DataRelation Private _relationtblKonto__C2FF3095_6D95_4263_9D51_CD3DEDA1AB7B_ As Global.System.Data.DataRelation Private relationtblLogbuch_FK00 As Global.System.Data.DataRelation Private _relationtblMSELeistungen_LeistungentblMSELeistungen As Global.System.Data.DataRelation Private relationFK_tblOffertenPositionenArchiv_ToOffertenArchiv As Global.System.Data.DataRelation Private _relationtblPreislistenpositionen__7909BA97_12D3_4CFF_A642_CB950EFCC006_ As Global.System.Data.DataRelation Private _relationtblPreislistenpositionen__D78DE894_2B0C_43E6_B462_32459F9DF422_ As Global.System.Data.DataRelation Private _relationtblPreislistenpositionen_LeistungentblPreislistenpositionen As Global.System.Data.DataRelation Private _relationtblPreistabellenpositionen__0A7945E3_819D_45DD_A5AE_7188FF604603_ As Global.System.Data.DataRelation Private relationtblQS_Auftragspositionen_FK00 As Global.System.Data.DataRelation Private relationtblQS_Auftragspositionen_FK01 As Global.System.Data.DataRelation Private relationFK_Kasse As Global.System.Data.DataRelation Private _relationtblSteuernummern_AdressentblSteuernummern As Global.System.Data.DataRelation Private _relationtblSteuernummern_Länderverzeichnis_für_die_AußenhandelsstatistiktblSteuernummern As Global.System.Data.DataRelation Private _relationtblSteuersätze__3334C686_1593_4561_99E6_824AA652DDAB_ As Global.System.Data.DataRelation Private _relationtblSteuersätze__BC888FF9_57C1_4308_AE4D_435AEB9FE6A5_ As Global.System.Data.DataRelation Private relationtblTrdinProduct_FK00 As Global.System.Data.DataRelation Private relationtblUStVErstattung_FK00 As Global.System.Data.DataRelation Private _relationtblUStVKuLäFo__8EEF3FB0_6A92_4860_B92D_EB83E6F5AE76_ As Global.System.Data.DataRelation Private _relationtblUStVKuLäFo_AdressentblUStVKuLäFo As Global.System.Data.DataRelation Private _relationtblUStVKuLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVKuLäFo As Global.System.Data.DataRelation Private _relationtblUStVLäFo__472BEB22_FFB6_4415_A1BE_B0664E28BFC1_ As Global.System.Data.DataRelation Private _relationtblUStVLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVLäFo As Global.System.Data.DataRelation Private relationtblUStVPositionen_FK00 As Global.System.Data.DataRelation Private relationtblUTAArchiv_FK00 As Global.System.Data.DataRelation Private relationtblUTAImport_FK00 As Global.System.Data.DataRelation Private relationtblUTAImportNew_FK00 As Global.System.Data.DataRelation Private relationtblUTALeistungen_FK00 As Global.System.Data.DataRelation Private relationtblUTATrailer_FK00 As Global.System.Data.DataRelation Private relationtblUTATrailerNew_FK00 As Global.System.Data.DataRelation Private relationVorkosten_FK00 As Global.System.Data.DataRelation Private _relationWährungstabelle_Länderverzeichnis_für_die_AußenhandelsstatistikWährungstabelle As Global.System.Data.DataRelation Private relationzbadz_FK00 As Global.System.Data.DataRelation Private relationzbapo_FK00 As Global.System.Data.DataRelation Private relationzbpos_FK00 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("Abfertigungsarten")) Is Nothing) Then MyBase.Tables.Add(New AbfertigungsartenDataTable(ds.Tables("Abfertigungsarten"))) End If If (Not (ds.Tables("Abfertigungskosten der Korrespondenten")) Is Nothing) Then MyBase.Tables.Add(New Abfertigungskosten_der_KorrespondentenDataTable(ds.Tables("Abfertigungskosten der Korrespondenten"))) End If If (Not (ds.Tables("AbfertigungsLaender")) Is Nothing) Then MyBase.Tables.Add(New AbfertigungsLaenderDataTable(ds.Tables("AbfertigungsLaender"))) End If If (Not (ds.Tables("AbfertigungsLaenderAbfertigungsarten")) Is Nothing) Then MyBase.Tables.Add(New AbfertigungsLaenderAbfertigungsartenDataTable(ds.Tables("AbfertigungsLaenderAbfertigungsarten"))) End If If (Not (ds.Tables("Abgabenarten")) Is Nothing) Then MyBase.Tables.Add(New AbgabenartenDataTable(ds.Tables("Abgabenarten"))) End If If (Not (ds.Tables("Adressen")) Is Nothing) Then MyBase.Tables.Add(New AdressenDataTable(ds.Tables("Adressen"))) End If If (Not (ds.Tables("Aktivitätenlog")) Is Nothing) Then MyBase.Tables.Add(New AktivitätenlogDataTable(ds.Tables("Aktivitätenlog"))) End If If (Not (ds.Tables("Anlagen")) Is Nothing) Then MyBase.Tables.Add(New AnlagenDataTable(ds.Tables("Anlagen"))) End If If (Not (ds.Tables("atlas_status")) Is Nothing) Then MyBase.Tables.Add(New atlas_statusDataTable(ds.Tables("atlas_status"))) End If If (Not (ds.Tables("Aufschubdaten")) Is Nothing) Then MyBase.Tables.Add(New AufschubdatenDataTable(ds.Tables("Aufschubdaten"))) End If If (Not (ds.Tables("Aufschubkonten")) Is Nothing) Then MyBase.Tables.Add(New AufschubkontenDataTable(ds.Tables("Aufschubkonten"))) End If If (Not (ds.Tables("Belegarten")) Is Nothing) Then MyBase.Tables.Add(New BelegartenDataTable(ds.Tables("Belegarten"))) End If If (Not (ds.Tables("Berechnungsart")) Is Nothing) Then MyBase.Tables.Add(New BerechnungsartDataTable(ds.Tables("Berechnungsart"))) End If If (Not (ds.Tables("Berechnungsbogen")) Is Nothing) Then MyBase.Tables.Add(New BerechnungsbogenDataTable(ds.Tables("Berechnungsbogen"))) End If If (Not (ds.Tables("Berichte")) Is Nothing) Then MyBase.Tables.Add(New BerichteDataTable(ds.Tables("Berichte"))) End If If (Not (ds.Tables("CMR")) Is Nothing) Then MyBase.Tables.Add(New CMRDataTable(ds.Tables("CMR"))) End If If (Not (ds.Tables("Devisenkurse")) Is Nothing) Then MyBase.Tables.Add(New DevisenkurseDataTable(ds.Tables("Devisenkurse"))) End If If (Not (ds.Tables("EPBes")) Is Nothing) Then MyBase.Tables.Add(New EPBesDataTable(ds.Tables("EPBes"))) End If If (Not (ds.Tables("EPBesPOS")) Is Nothing) Then MyBase.Tables.Add(New EPBesPOSDataTable(ds.Tables("EPBesPOS"))) End If If (Not (ds.Tables("Filialen")) Is Nothing) Then MyBase.Tables.Add(New FilialenDataTable(ds.Tables("Filialen"))) End If If (Not (ds.Tables("Geschäftsarten")) Is Nothing) Then MyBase.Tables.Add(New GeschäftsartenDataTable(ds.Tables("Geschäftsarten"))) End If If (Not (ds.Tables("Korrespondenten")) Is Nothing) Then MyBase.Tables.Add(New KorrespondentenDataTable(ds.Tables("Korrespondenten"))) End If If (Not (ds.Tables("Kostenstellen")) Is Nothing) Then MyBase.Tables.Add(New KostenstellenDataTable(ds.Tables("Kostenstellen"))) End If If (Not (ds.Tables("Kreditkarten")) Is Nothing) Then MyBase.Tables.Add(New KreditkartenDataTable(ds.Tables("Kreditkarten"))) End If If (Not (ds.Tables("Kunden")) Is Nothing) Then MyBase.Tables.Add(New KundenDataTable(ds.Tables("Kunden"))) End If If (Not (ds.Tables("KundenFilialen")) Is Nothing) Then MyBase.Tables.Add(New KundenFilialenDataTable(ds.Tables("KundenFilialen"))) End If If (Not (ds.Tables("Länder der Bundesrepublik Deutschland")) Is Nothing) Then MyBase.Tables.Add(New Länder_der_Bundesrepublik_DeutschlandDataTable(ds.Tables("Länder der Bundesrepublik Deutschland"))) End If If (Not (ds.Tables("Länderverzeichnis für die Außenhandelsstatistik")) Is Nothing) Then MyBase.Tables.Add(New Länderverzeichnis_für_die_AußenhandelsstatistikDataTable(ds.Tables("Länderverzeichnis für die Außenhandelsstatistik"))) End If If (Not (ds.Tables("Leistungen")) Is Nothing) Then MyBase.Tables.Add(New LeistungenDataTable(ds.Tables("Leistungen"))) End If If (Not (ds.Tables("LeistungenBUKonten")) Is Nothing) Then MyBase.Tables.Add(New LeistungenBUKontenDataTable(ds.Tables("LeistungenBUKonten"))) End If If (Not (ds.Tables("Lieferbedingungen")) Is Nothing) Then MyBase.Tables.Add(New LieferbedingungenDataTable(ds.Tables("Lieferbedingungen"))) End If If (Not (ds.Tables("Nebenkosten der Korrespondenten")) Is Nothing) Then MyBase.Tables.Add(New Nebenkosten_der_KorrespondentenDataTable(ds.Tables("Nebenkosten der Korrespondenten"))) End If If (Not (ds.Tables("Offene Posten")) Is Nothing) Then MyBase.Tables.Add(New Offene_PostenDataTable(ds.Tables("Offene Posten"))) End If If (Not (ds.Tables("Offene_Posten_DVO")) Is Nothing) Then MyBase.Tables.Add(New Offene_Posten_DVODataTable(ds.Tables("Offene_Posten_DVO"))) End If If (Not (ds.Tables("Offerten")) Is Nothing) Then MyBase.Tables.Add(New OffertenDataTable(ds.Tables("Offerten"))) End If If (Not (ds.Tables("Offertenpositionen")) Is Nothing) Then MyBase.Tables.Add(New OffertenpositionenDataTable(ds.Tables("Offertenpositionen"))) End If If (Not (ds.Tables("Offertenstamm")) Is Nothing) Then MyBase.Tables.Add(New OffertenstammDataTable(ds.Tables("Offertenstamm"))) End If If (Not (ds.Tables("Personal")) Is Nothing) Then MyBase.Tables.Add(New PersonalDataTable(ds.Tables("Personal"))) End If If (Not (ds.Tables("Rechnungsausgang")) Is Nothing) Then MyBase.Tables.Add(New RechnungsausgangDataTable(ds.Tables("Rechnungsausgang"))) End If If (Not (ds.Tables("RechnungsausgangAnhaenge")) Is Nothing) Then MyBase.Tables.Add(New RechnungsausgangAnhaengeDataTable(ds.Tables("RechnungsausgangAnhaenge"))) End If If (Not (ds.Tables("RechnungsausgangPositionen")) Is Nothing) Then MyBase.Tables.Add(New RechnungsausgangPositionenDataTable(ds.Tables("RechnungsausgangPositionen"))) End If If (Not (ds.Tables("Rechnungsnummern")) Is Nothing) Then MyBase.Tables.Add(New RechnungsnummernDataTable(ds.Tables("Rechnungsnummern"))) End If If (Not (ds.Tables("Rechnungstexte")) Is Nothing) Then MyBase.Tables.Add(New RechnungstexteDataTable(ds.Tables("Rechnungstexte"))) End If If (Not (ds.Tables("Speditionsbuch")) Is Nothing) Then MyBase.Tables.Add(New SpeditionsbuchDataTable(ds.Tables("Speditionsbuch"))) End If If (Not (ds.Tables("Standardofferten")) Is Nothing) Then MyBase.Tables.Add(New StandardoffertenDataTable(ds.Tables("Standardofferten"))) End If If (Not (ds.Tables("StandardoffertenFirma")) Is Nothing) Then MyBase.Tables.Add(New StandardoffertenFirmaDataTable(ds.Tables("StandardoffertenFirma"))) End If If (Not (ds.Tables("Steuertabelle")) Is Nothing) Then MyBase.Tables.Add(New SteuertabelleDataTable(ds.Tables("Steuertabelle"))) End If If (Not (ds.Tables("tbl_ASFINAG_FileInfo")) Is Nothing) Then MyBase.Tables.Add(New tbl_ASFINAG_FileInfoDataTable(ds.Tables("tbl_ASFINAG_FileInfo"))) End If If (Not (ds.Tables("tbl_BMD_Länder")) Is Nothing) Then MyBase.Tables.Add(New tbl_BMD_LänderDataTable(ds.Tables("tbl_BMD_Länder"))) End If If (Not (ds.Tables("tbl_DY_Paramter")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ParamterDataTable(ds.Tables("tbl_DY_Paramter"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable(ds.Tables("tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_A0127_BeteiligtenKonstellation")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable(ds.Tables("tbl_DY_ZollDE_A0127_BeteiligtenKonstellation"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0008_LaenderFull")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0008_LaenderFullDataTable(ds.Tables("tbl_DY_ZollDE_C0008_LaenderFull"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0010_LaenderAES")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0010_LaenderAESDataTable(ds.Tables("tbl_DY_ZollDE_C0010_LaenderAES"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0013_UnterlagenArten")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable(ds.Tables("tbl_DY_ZollDE_C0013_UnterlagenArten"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0014_VorpapierArten")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0014_VorpapierArtenDataTable(ds.Tables("tbl_DY_ZollDE_C0014_VorpapierArten"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable(ds.Tables("tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0141_Zollstellen")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0141_ZollstellenDataTable(ds.Tables("tbl_DY_ZollDE_C0141_Zollstellen"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0219_TypeTransportMeans")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable(ds.Tables("tbl_DY_ZollDE_C0219_TypeTransportMeans"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_I0200_Unterlagearten")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_I0200_UnterlageartenDataTable(ds.Tables("tbl_DY_ZollDE_I0200_Unterlagearten"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_I0400_Waehrungsliste")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_I0400_WaehrungslisteDataTable(ds.Tables("tbl_DY_ZollDE_I0400_Waehrungsliste"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_I0610_ZustaendigeZSTAES")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable(ds.Tables("tbl_DY_ZollDE_I0610_ZustaendigeZSTAES"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_I0700_Masseinheiten")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_I0700_MasseinheitenDataTable(ds.Tables("tbl_DY_ZollDE_I0700_Masseinheiten"))) End If If (Not (ds.Tables("tbl_Errors")) Is Nothing) Then MyBase.Tables.Add(New tbl_ErrorsDataTable(ds.Tables("tbl_Errors"))) End If If (Not (ds.Tables("tbl_IDS_Kategorien_Kunden")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_Kategorien_KundenDataTable(ds.Tables("tbl_IDS_Kategorien_Kunden"))) End If If (Not (ds.Tables("tbl_IDS_Kategorien_Rechenwerte")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_Kategorien_RechenwerteDataTable(ds.Tables("tbl_IDS_Kategorien_Rechenwerte"))) End If If (Not (ds.Tables("tbl_IDS_Kunden")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_KundenDataTable(ds.Tables("tbl_IDS_Kunden"))) End If If (Not (ds.Tables("tbl_IDS_Kunden_ohne_Rabatt")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_Kunden_ohne_RabattDataTable(ds.Tables("tbl_IDS_Kunden_ohne_Rabatt"))) End If If (Not (ds.Tables("tbl_IDS_Länder")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_LänderDataTable(ds.Tables("tbl_IDS_Länder"))) End If If (Not (ds.Tables("tbl_IDS_Produkte")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_ProdukteDataTable(ds.Tables("tbl_IDS_Produkte"))) End If If (Not (ds.Tables("tbl_IDS_Rechenwerte")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_RechenwerteDataTable(ds.Tables("tbl_IDS_Rechenwerte"))) End If If (Not (ds.Tables("tbl_IDS_Stationen")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_StationenDataTable(ds.Tables("tbl_IDS_Stationen"))) End If If (Not (ds.Tables("tbl_Intrastat_Ausfuhr")) Is Nothing) Then MyBase.Tables.Add(New tbl_Intrastat_AusfuhrDataTable(ds.Tables("tbl_Intrastat_Ausfuhr"))) End If If (Not (ds.Tables("tbl_Telefonbuch")) Is Nothing) Then MyBase.Tables.Add(New tbl_TelefonbuchDataTable(ds.Tables("tbl_Telefonbuch"))) End If If (Not (ds.Tables("tbl_Telefonnummern")) Is Nothing) Then MyBase.Tables.Add(New tbl_TelefonnummernDataTable(ds.Tables("tbl_Telefonnummern"))) End If If (Not (ds.Tables("tbl_WÖLFL")) Is Nothing) Then MyBase.Tables.Add(New tbl_WÖLFLDataTable(ds.Tables("tbl_WÖLFL"))) End If If (Not (ds.Tables("tbl_ZM_tabelle")) Is Nothing) Then MyBase.Tables.Add(New tbl_ZM_tabelleDataTable(ds.Tables("tbl_ZM_tabelle"))) End If If (Not (ds.Tables("tblAbfertigungsartenFiliale")) Is Nothing) Then MyBase.Tables.Add(New tblAbfertigungsartenFilialeDataTable(ds.Tables("tblAbfertigungsartenFiliale"))) End If If (Not (ds.Tables("tblAbfertigungsartOffertenstamm")) Is Nothing) Then MyBase.Tables.Add(New tblAbfertigungsartOffertenstammDataTable(ds.Tables("tblAbfertigungsartOffertenstamm"))) End If If (Not (ds.Tables("tblAbrechnung_NCTSBrg")) Is Nothing) Then MyBase.Tables.Add(New tblAbrechnung_NCTSBrgDataTable(ds.Tables("tblAbrechnung_NCTSBrg"))) End If If (Not (ds.Tables("tblAnmeldung")) Is Nothing) Then MyBase.Tables.Add(New tblAnmeldungDataTable(ds.Tables("tblAnmeldung"))) End If If (Not (ds.Tables("tblAsfinagMaut")) Is Nothing) Then MyBase.Tables.Add(New tblAsfinagMautDataTable(ds.Tables("tblAsfinagMaut"))) End If If (Not (ds.Tables("tblATEZ_NCTS")) Is Nothing) Then MyBase.Tables.Add(New tblATEZ_NCTSDataTable(ds.Tables("tblATEZ_NCTS"))) End If If (Not (ds.Tables("tblATEZ_NCTS_Routen")) Is Nothing) Then MyBase.Tables.Add(New tblATEZ_NCTS_RoutenDataTable(ds.Tables("tblATEZ_NCTS_Routen"))) End If If (Not (ds.Tables("tblATEZ_NCTS_Sessions")) Is Nothing) Then MyBase.Tables.Add(New tblATEZ_NCTS_SessionsDataTable(ds.Tables("tblATEZ_NCTS_Sessions"))) End If If (Not (ds.Tables("tblATEZ_NCTS_TransitCustomsOffice")) Is Nothing) Then MyBase.Tables.Add(New tblATEZ_NCTS_TransitCustomsOfficeDataTable(ds.Tables("tblATEZ_NCTS_TransitCustomsOffice"))) End If If (Not (ds.Tables("tblBankspesen")) Is Nothing) Then MyBase.Tables.Add(New tblBankspesenDataTable(ds.Tables("tblBankspesen"))) End If If (Not (ds.Tables("tblBerechnungsmethode")) Is Nothing) Then MyBase.Tables.Add(New tblBerechnungsmethodeDataTable(ds.Tables("tblBerechnungsmethode"))) End If If (Not (ds.Tables("tblBerichtsdrucker")) Is Nothing) Then MyBase.Tables.Add(New tblBerichtsdruckerDataTable(ds.Tables("tblBerichtsdrucker"))) End If If (Not (ds.Tables("tblBesuchsberichte")) Is Nothing) Then MyBase.Tables.Add(New tblBesuchsberichteDataTable(ds.Tables("tblBesuchsberichte"))) End If If (Not (ds.Tables("tblBonitaetsauskunft")) Is Nothing) Then MyBase.Tables.Add(New tblBonitaetsauskunftDataTable(ds.Tables("tblBonitaetsauskunft"))) End If If (Not (ds.Tables("tblBuchungstext")) Is Nothing) Then MyBase.Tables.Add(New tblBuchungstextDataTable(ds.Tables("tblBuchungstext"))) End If If (Not (ds.Tables("tblDakosy_AES")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_AESDataTable(ds.Tables("tblDakosy_AES"))) End If If (Not (ds.Tables("tblDakosy_AES_Warenposition")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_AES_WarenpositionDataTable(ds.Tables("tblDakosy_AES_Warenposition"))) End If If (Not (ds.Tables("tblDakosy_AES_WarenpositionPackstuecke")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_AES_WarenpositionPackstueckeDataTable(ds.Tables("tblDakosy_AES_WarenpositionPackstuecke"))) End If If (Not (ds.Tables("tblDakosy_AES_WarenpositionUnterlagen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_AES_WarenpositionUnterlagenDataTable(ds.Tables("tblDakosy_AES_WarenpositionUnterlagen"))) End If If (Not (ds.Tables("tblDakosy_EZA")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZADataTable(ds.Tables("tblDakosy_EZA"))) End If If (Not (ds.Tables("tblDakosy_EZA_Adressen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_AdressenDataTable(ds.Tables("tblDakosy_EZA_Adressen"))) End If If (Not (ds.Tables("tblDakosy_EZA_Aufschub")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_AufschubDataTable(ds.Tables("tblDakosy_EZA_Aufschub"))) End If If (Not (ds.Tables("tblDakosy_EZA_BEAnteilZLAVUV")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_BEAnteilZLAVUVDataTable(ds.Tables("tblDakosy_EZA_BEAnteilZLAVUV"))) End If If (Not (ds.Tables("tblDakosy_EZA_SumABeendigungsAnteil")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_SumABeendigungsAnteilDataTable(ds.Tables("tblDakosy_EZA_SumABeendigungsAnteil"))) End If If (Not (ds.Tables("tblDakosy_EZA_Unterlagen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_UnterlagenDataTable(ds.Tables("tblDakosy_EZA_Unterlagen"))) End If If (Not (ds.Tables("tblDakosy_EZA_Warenposition")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_WarenpositionDataTable(ds.Tables("tblDakosy_EZA_Warenposition"))) End If If (Not (ds.Tables("tblDakosy_EZA_WarenpositionSonderfalldaten")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_WarenpositionSonderfalldatenDataTable(ds.Tables("tblDakosy_EZA_WarenpositionSonderfalldaten"))) End If If (Not (ds.Tables("tblDakosy_EZA_WarenpositionUnterlagen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_WarenpositionUnterlagenDataTable(ds.Tables("tblDakosy_EZA_WarenpositionUnterlagen"))) End If If (Not (ds.Tables("tblDakosy_EZA_WarenpositionVerbrauchssteuer")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable(ds.Tables("tblDakosy_EZA_WarenpositionVerbrauchssteuer"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOutDataTable(ds.Tables("tblDakosy_NCTSOut"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut_Sicherheitsangaben")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut_SicherheitsangabenDataTable(ds.Tables("tblDakosy_NCTSOut_Sicherheitsangaben"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut_Warenposition")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut_WarenpositionDataTable(ds.Tables("tblDakosy_NCTSOut_Warenposition"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut_WarenpositionPackstuecke")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable(ds.Tables("tblDakosy_NCTSOut_WarenpositionPackstuecke"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable(ds.Tables("tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004DataTable(ds.Tables("tblDakosy_NCTSOut004"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004_Guarantee")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004_GuaranteeDataTable(ds.Tables("tblDakosy_NCTSOut004_Guarantee"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004_HouseConsignment")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004_HouseConsignmentDataTable(ds.Tables("tblDakosy_NCTSOut004_HouseConsignment"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable(ds.Tables("tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable(ds.Tables("tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004_TransportEquipment")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004_TransportEquipmentDataTable(ds.Tables("tblDakosy_NCTSOut004_TransportEquipment"))) End If If (Not (ds.Tables("tblDakosy_Stammreferenzen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_StammreferenzenDataTable(ds.Tables("tblDakosy_Stammreferenzen"))) End If If (Not (ds.Tables("tblDakosy_Statusmeldungen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_StatusmeldungenDataTable(ds.Tables("tblDakosy_Statusmeldungen"))) End If If (Not (ds.Tables("tblDakosy_Zollanmeldungen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_ZollanmeldungenDataTable(ds.Tables("tblDakosy_Zollanmeldungen"))) End If If (Not (ds.Tables("tblDakosy_ZollanmeldungenArten")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_ZollanmeldungenArtenDataTable(ds.Tables("tblDakosy_ZollanmeldungenArten"))) End If If (Not (ds.Tables("tblDatenarchiv")) Is Nothing) Then MyBase.Tables.Add(New tblDatenarchivDataTable(ds.Tables("tblDatenarchiv"))) End If If (Not (ds.Tables("tblDatenarchiv_Collection")) Is Nothing) Then MyBase.Tables.Add(New tblDatenarchiv_CollectionDataTable(ds.Tables("tblDatenarchiv_Collection"))) End If If (Not (ds.Tables("tblDEBundeslaenderPLZ")) Is Nothing) Then MyBase.Tables.Add(New tblDEBundeslaenderPLZDataTable(ds.Tables("tblDEBundeslaenderPLZ"))) End If If (Not (ds.Tables("tblDHF_Anhaenge")) Is Nothing) Then MyBase.Tables.Add(New tblDHF_AnhaengeDataTable(ds.Tables("tblDHF_Anhaenge"))) End If If (Not (ds.Tables("tblDieselArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblDieselArchivDataTable(ds.Tables("tblDieselArchiv"))) End If If (Not (ds.Tables("tblDigicust_Sendungen")) Is Nothing) Then MyBase.Tables.Add(New tblDigicust_SendungenDataTable(ds.Tables("tblDigicust_Sendungen"))) End If If (Not (ds.Tables("tblDigicust_Sessions")) Is Nothing) Then MyBase.Tables.Add(New tblDigicust_SessionsDataTable(ds.Tables("tblDigicust_Sessions"))) End If If (Not (ds.Tables("tblDigicust_Settings")) Is Nothing) Then MyBase.Tables.Add(New tblDigicust_SettingsDataTable(ds.Tables("tblDigicust_Settings"))) End If If (Not (ds.Tables("tblEABelegnummer")) Is Nothing) Then MyBase.Tables.Add(New tblEABelegnummerDataTable(ds.Tables("tblEABelegnummer"))) End If If (Not (ds.Tables("tblEABelegposition")) Is Nothing) Then MyBase.Tables.Add(New tblEABelegpositionDataTable(ds.Tables("tblEABelegposition"))) End If If (Not (ds.Tables("tblEmailBenachrichtigung")) Is Nothing) Then MyBase.Tables.Add(New tblEmailBenachrichtigungDataTable(ds.Tables("tblEmailBenachrichtigung"))) End If If (Not (ds.Tables("tblEmailBenachrichtigungArten")) Is Nothing) Then MyBase.Tables.Add(New tblEmailBenachrichtigungArtenDataTable(ds.Tables("tblEmailBenachrichtigungArten"))) End If If (Not (ds.Tables("tblEORIPruefung")) Is Nothing) Then MyBase.Tables.Add(New tblEORIPruefungDataTable(ds.Tables("tblEORIPruefung"))) End If If (Not (ds.Tables("tblEZB_Waehrungskurse")) Is Nothing) Then MyBase.Tables.Add(New tblEZB_WaehrungskurseDataTable(ds.Tables("tblEZB_Waehrungskurse"))) End If If (Not (ds.Tables("tblEZT_Importcodenummern")) Is Nothing) Then MyBase.Tables.Add(New tblEZT_ImportcodenummernDataTable(ds.Tables("tblEZT_Importcodenummern"))) End If If (Not (ds.Tables("tblFahrerDaten")) Is Nothing) Then MyBase.Tables.Add(New tblFahrerDatenDataTable(ds.Tables("tblFahrerDaten"))) End If If (Not (ds.Tables("tblFirma")) Is Nothing) Then MyBase.Tables.Add(New tblFirmaDataTable(ds.Tables("tblFirma"))) End If If (Not (ds.Tables("tblFiskal_Daten")) Is Nothing) Then MyBase.Tables.Add(New tblFiskal_DatenDataTable(ds.Tables("tblFiskal_Daten"))) End If If (Not (ds.Tables("tblFiskalkunden")) Is Nothing) Then MyBase.Tables.Add(New tblFiskalkundenDataTable(ds.Tables("tblFiskalkunden"))) End If If (Not (ds.Tables("tblFormulardaten")) Is Nothing) Then MyBase.Tables.Add(New tblFormulardatenDataTable(ds.Tables("tblFormulardaten"))) End If If (Not (ds.Tables("tblFormulareVorlagen")) Is Nothing) Then MyBase.Tables.Add(New tblFormulareVorlagenDataTable(ds.Tables("tblFormulareVorlagen"))) End If If (Not (ds.Tables("tblFormulareVorlagenValues")) Is Nothing) Then MyBase.Tables.Add(New tblFormulareVorlagenValuesDataTable(ds.Tables("tblFormulareVorlagenValues"))) End If If (Not (ds.Tables("tblFremdSpeditionenZuordnung")) Is Nothing) Then MyBase.Tables.Add(New tblFremdSpeditionenZuordnungDataTable(ds.Tables("tblFremdSpeditionenZuordnung"))) End If If (Not (ds.Tables("tblFTP_Log")) Is Nothing) Then MyBase.Tables.Add(New tblFTP_LogDataTable(ds.Tables("tblFTP_Log"))) End If If (Not (ds.Tables("tblFTP_Log_Backup2")) Is Nothing) Then MyBase.Tables.Add(New tblFTP_Log_Backup2DataTable(ds.Tables("tblFTP_Log_Backup2"))) End If If (Not (ds.Tables("tblGebuehrenvermarktungsnormen")) Is Nothing) Then MyBase.Tables.Add(New tblGebuehrenvermarktungsnormenDataTable(ds.Tables("tblGebuehrenvermarktungsnormen"))) End If If (Not (ds.Tables("tblGelangensbestaetigung")) Is Nothing) Then MyBase.Tables.Add(New tblGelangensbestaetigungDataTable(ds.Tables("tblGelangensbestaetigung"))) End If If (Not (ds.Tables("tblGeschäftsjahr")) Is Nothing) Then MyBase.Tables.Add(New tblGeschäftsjahrDataTable(ds.Tables("tblGeschäftsjahr"))) End If If (Not (ds.Tables("tblGeschäftsjahrBelegNr")) Is Nothing) Then MyBase.Tables.Add(New tblGeschäftsjahrBelegNrDataTable(ds.Tables("tblGeschäftsjahrBelegNr"))) End If If (Not (ds.Tables("tblGeschäftsjahrJournalNr")) Is Nothing) Then MyBase.Tables.Add(New tblGeschäftsjahrJournalNrDataTable(ds.Tables("tblGeschäftsjahrJournalNr"))) End If If (Not (ds.Tables("tblGestellungsgarantien")) Is Nothing) Then MyBase.Tables.Add(New tblGestellungsgarantienDataTable(ds.Tables("tblGestellungsgarantien"))) End If If (Not (ds.Tables("tblGestellungsmitteilung")) Is Nothing) Then MyBase.Tables.Add(New tblGestellungsmitteilungDataTable(ds.Tables("tblGestellungsmitteilung"))) End If If (Not (ds.Tables("tblGestellungsmitteilung_Positionen")) Is Nothing) Then MyBase.Tables.Add(New tblGestellungsmitteilung_PositionenDataTable(ds.Tables("tblGestellungsmitteilung_Positionen"))) End If If (Not (ds.Tables("tblGOBOXBestellungen")) Is Nothing) Then MyBase.Tables.Add(New tblGOBOXBestellungenDataTable(ds.Tables("tblGOBOXBestellungen"))) End If If (Not (ds.Tables("tblGVMS")) Is Nothing) Then MyBase.Tables.Add(New tblGVMSDataTable(ds.Tables("tblGVMS"))) End If If (Not (ds.Tables("tblGVMS_Carriers")) Is Nothing) Then MyBase.Tables.Add(New tblGVMS_CarriersDataTable(ds.Tables("tblGVMS_Carriers"))) End If If (Not (ds.Tables("tblGVMS_Ports")) Is Nothing) Then MyBase.Tables.Add(New tblGVMS_PortsDataTable(ds.Tables("tblGVMS_Ports"))) End If If (Not (ds.Tables("tblGVMS_Pos")) Is Nothing) Then MyBase.Tables.Add(New tblGVMS_PosDataTable(ds.Tables("tblGVMS_Pos"))) End If If (Not (ds.Tables("tblGVMS_Routes")) Is Nothing) Then MyBase.Tables.Add(New tblGVMS_RoutesDataTable(ds.Tables("tblGVMS_Routes"))) End If If (Not (ds.Tables("tblHandlingssaetzeIntern")) Is Nothing) Then MyBase.Tables.Add(New tblHandlingssaetzeInternDataTable(ds.Tables("tblHandlingssaetzeIntern"))) End If If (Not (ds.Tables("tblHistorie")) Is Nothing) Then MyBase.Tables.Add(New tblHistorieDataTable(ds.Tables("tblHistorie"))) End If If (Not (ds.Tables("tblIDS_Transaktionen")) Is Nothing) Then MyBase.Tables.Add(New tblIDS_TransaktionenDataTable(ds.Tables("tblIDS_Transaktionen"))) End If If (Not (ds.Tables("tblKassenbuch")) Is Nothing) Then MyBase.Tables.Add(New tblKassenbuchDataTable(ds.Tables("tblKassenbuch"))) End If If (Not (ds.Tables("tblKonto")) Is Nothing) Then MyBase.Tables.Add(New tblKontoDataTable(ds.Tables("tblKonto"))) End If If (Not (ds.Tables("tblKundenAufschubkonten")) Is Nothing) Then MyBase.Tables.Add(New tblKundenAufschubkontenDataTable(ds.Tables("tblKundenAufschubkonten"))) End If If (Not (ds.Tables("tblKundenBesonderheiten")) Is Nothing) Then MyBase.Tables.Add(New tblKundenBesonderheitenDataTable(ds.Tables("tblKundenBesonderheiten"))) End If If (Not (ds.Tables("tblKundenBesonderheiten_Kategorien")) Is Nothing) Then MyBase.Tables.Add(New tblKundenBesonderheiten_KategorienDataTable(ds.Tables("tblKundenBesonderheiten_Kategorien"))) End If If (Not (ds.Tables("tblKundenDatenblatt")) Is Nothing) Then MyBase.Tables.Add(New tblKundenDatenblattDataTable(ds.Tables("tblKundenDatenblatt"))) End If If (Not (ds.Tables("tblKundenErweitert")) Is Nothing) Then MyBase.Tables.Add(New tblKundenErweitertDataTable(ds.Tables("tblKundenErweitert"))) End If If (Not (ds.Tables("tblKundenKontakt")) Is Nothing) Then MyBase.Tables.Add(New tblKundenKontaktDataTable(ds.Tables("tblKundenKontakt"))) End If If (Not (ds.Tables("tblKundenKontaktArten")) Is Nothing) Then MyBase.Tables.Add(New tblKundenKontaktArtenDataTable(ds.Tables("tblKundenKontaktArten"))) End If If (Not (ds.Tables("tblKundenumsatz")) Is Nothing) Then MyBase.Tables.Add(New tblKundenumsatzDataTable(ds.Tables("tblKundenumsatz"))) End If If (Not (ds.Tables("tblKundenVermerke")) Is Nothing) Then MyBase.Tables.Add(New tblKundenVermerkeDataTable(ds.Tables("tblKundenVermerke"))) End If If (Not (ds.Tables("tblKundenVertraege")) Is Nothing) Then MyBase.Tables.Add(New tblKundenVertraegeDataTable(ds.Tables("tblKundenVertraege"))) End If If (Not (ds.Tables("tblKundenVertraegeArten")) Is Nothing) Then MyBase.Tables.Add(New tblKundenVertraegeArtenDataTable(ds.Tables("tblKundenVertraegeArten"))) End If If (Not (ds.Tables("tblKundenVollmachten")) Is Nothing) Then MyBase.Tables.Add(New tblKundenVollmachtenDataTable(ds.Tables("tblKundenVollmachten"))) End If If (Not (ds.Tables("tblKundenVollmachtenArt")) Is Nothing) Then MyBase.Tables.Add(New tblKundenVollmachtenArtDataTable(ds.Tables("tblKundenVollmachtenArt"))) End If If (Not (ds.Tables("tblLogbuch")) Is Nothing) Then MyBase.Tables.Add(New tblLogbuchDataTable(ds.Tables("tblLogbuch"))) End If If (Not (ds.Tables("tblMandant")) Is Nothing) Then MyBase.Tables.Add(New tblMandantDataTable(ds.Tables("tblMandant"))) End If If (Not (ds.Tables("tblMautIT_Belegarten")) Is Nothing) Then MyBase.Tables.Add(New tblMautIT_BelegartenDataTable(ds.Tables("tblMautIT_Belegarten"))) End If If (Not (ds.Tables("tblMautITArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblMautITArchivDataTable(ds.Tables("tblMautITArchiv"))) End If If (Not (ds.Tables("tblMDM_Paramter")) Is Nothing) Then MyBase.Tables.Add(New tblMDM_ParamterDataTable(ds.Tables("tblMDM_Paramter"))) End If If (Not (ds.Tables("tblMSECustomers")) Is Nothing) Then MyBase.Tables.Add(New tblMSECustomersDataTable(ds.Tables("tblMSECustomers"))) End If If (Not (ds.Tables("tblMSEImport")) Is Nothing) Then MyBase.Tables.Add(New tblMSEImportDataTable(ds.Tables("tblMSEImport"))) End If If (Not (ds.Tables("tblMSEInvoices")) Is Nothing) Then MyBase.Tables.Add(New tblMSEInvoicesDataTable(ds.Tables("tblMSEInvoices"))) End If If (Not (ds.Tables("tblMSELeistungen")) Is Nothing) Then MyBase.Tables.Add(New tblMSELeistungenDataTable(ds.Tables("tblMSELeistungen"))) End If If (Not (ds.Tables("tblMSESettlements")) Is Nothing) Then MyBase.Tables.Add(New tblMSESettlementsDataTable(ds.Tables("tblMSESettlements"))) End If If (Not (ds.Tables("tblMSETransactions")) Is Nothing) Then MyBase.Tables.Add(New tblMSETransactionsDataTable(ds.Tables("tblMSETransactions"))) End If If (Not (ds.Tables("tblMSETransactionsArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblMSETransactionsArchivDataTable(ds.Tables("tblMSETransactionsArchiv"))) End If If (Not (ds.Tables("tblMSETransactionsArchivOLD")) Is Nothing) Then MyBase.Tables.Add(New tblMSETransactionsArchivOLDDataTable(ds.Tables("tblMSETransactionsArchivOLD"))) End If If (Not (ds.Tables("tblNCTS_TR")) Is Nothing) Then MyBase.Tables.Add(New tblNCTS_TRDataTable(ds.Tables("tblNCTS_TR"))) End If If (Not (ds.Tables("tblNCTS_TR_Nachrichten")) Is Nothing) Then MyBase.Tables.Add(New tblNCTS_TR_NachrichtenDataTable(ds.Tables("tblNCTS_TR_Nachrichten"))) End If If (Not (ds.Tables("tblNCTS_TR_Sicherheitsangaben")) Is Nothing) Then MyBase.Tables.Add(New tblNCTS_TR_SicherheitsangabenDataTable(ds.Tables("tblNCTS_TR_Sicherheitsangaben"))) End If If (Not (ds.Tables("tblNCTS_TR_Warenposition")) Is Nothing) Then MyBase.Tables.Add(New tblNCTS_TR_WarenpositionDataTable(ds.Tables("tblNCTS_TR_Warenposition"))) End If If (Not (ds.Tables("tblNCTS_TR_WarenpositionPackstuecke")) Is Nothing) Then MyBase.Tables.Add(New tblNCTS_TR_WarenpositionPackstueckeDataTable(ds.Tables("tblNCTS_TR_WarenpositionPackstuecke"))) End If If (Not (ds.Tables("tblNCTSGestellungsadressen")) Is Nothing) Then MyBase.Tables.Add(New tblNCTSGestellungsadressenDataTable(ds.Tables("tblNCTSGestellungsadressen"))) End If If (Not (ds.Tables("tblNTCSRouten")) Is Nothing) Then MyBase.Tables.Add(New tblNTCSRoutenDataTable(ds.Tables("tblNTCSRouten"))) End If If (Not (ds.Tables("tblOffertenArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblOffertenArchivDataTable(ds.Tables("tblOffertenArchiv"))) End If If (Not (ds.Tables("tblOffertenPositionenArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblOffertenPositionenArchivDataTable(ds.Tables("tblOffertenPositionenArchiv"))) End If If (Not (ds.Tables("tblOregonNCTS_DeclarationData")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_DeclarationDataDataTable(ds.Tables("tblOregonNCTS_DeclarationData"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_AdditionalCodesAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_AdditionalCodesAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_DocumentsAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_DocumentsAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_DocumentsAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_GoodsAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_GoodsAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_GoodsAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_PacksAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_PacksAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_PacksAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_PartiesAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_PartiesAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_PartiesAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_ProducedDocumentsAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_ProducedDocumentsAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_TraderAdditionsAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_TraderAdditionsAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_ReferenceTemplate")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_ReferenceTemplateDataTable(ds.Tables("tblOregonNCTS_ReferenceTemplate"))) End If If (Not (ds.Tables("tblOriginalATR")) Is Nothing) Then MyBase.Tables.Add(New tblOriginalATRDataTable(ds.Tables("tblOriginalATR"))) End If If (Not (ds.Tables("tblPartnersystem_Paramter")) Is Nothing) Then MyBase.Tables.Add(New tblPartnersystem_ParamterDataTable(ds.Tables("tblPartnersystem_Paramter"))) End If If (Not (ds.Tables("tblPfad")) Is Nothing) Then MyBase.Tables.Add(New tblPfadDataTable(ds.Tables("tblPfad"))) End If If (Not (ds.Tables("tblPLOSE_Details")) Is Nothing) Then MyBase.Tables.Add(New tblPLOSE_DetailsDataTable(ds.Tables("tblPLOSE_Details"))) End If If (Not (ds.Tables("tblPLOSE_Inv_Data")) Is Nothing) Then MyBase.Tables.Add(New tblPLOSE_Inv_DataDataTable(ds.Tables("tblPLOSE_Inv_Data"))) End If If (Not (ds.Tables("tblPLOSE_Lieferant")) Is Nothing) Then MyBase.Tables.Add(New tblPLOSE_LieferantDataTable(ds.Tables("tblPLOSE_Lieferant"))) End If If (Not (ds.Tables("tblPLOSE_Produktbeschreibung")) Is Nothing) Then MyBase.Tables.Add(New tblPLOSE_ProduktbeschreibungDataTable(ds.Tables("tblPLOSE_Produktbeschreibung"))) End If If (Not (ds.Tables("tblPosNr")) Is Nothing) Then MyBase.Tables.Add(New tblPosNrDataTable(ds.Tables("tblPosNr"))) End If If (Not (ds.Tables("tblPostversand")) Is Nothing) Then MyBase.Tables.Add(New tblPostversandDataTable(ds.Tables("tblPostversand"))) End If If (Not (ds.Tables("tblPreislisten")) Is Nothing) Then MyBase.Tables.Add(New tblPreislistenDataTable(ds.Tables("tblPreislisten"))) End If If (Not (ds.Tables("tblPreislistenpositionen")) Is Nothing) Then MyBase.Tables.Add(New tblPreislistenpositionenDataTable(ds.Tables("tblPreislistenpositionen"))) End If If (Not (ds.Tables("tblPreistabellen")) Is Nothing) Then MyBase.Tables.Add(New tblPreistabellenDataTable(ds.Tables("tblPreistabellen"))) End If If (Not (ds.Tables("tblPreistabellenpositionen")) Is Nothing) Then MyBase.Tables.Add(New tblPreistabellenpositionenDataTable(ds.Tables("tblPreistabellenpositionen"))) End If If (Not (ds.Tables("tblQS_Abfertigungsarten")) Is Nothing) Then MyBase.Tables.Add(New tblQS_AbfertigungsartenDataTable(ds.Tables("tblQS_Abfertigungsarten"))) End If If (Not (ds.Tables("tblQS_Aufträge")) Is Nothing) Then MyBase.Tables.Add(New tblQS_AufträgeDataTable(ds.Tables("tblQS_Aufträge"))) End If If (Not (ds.Tables("tblQS_Auftragspositionen")) Is Nothing) Then MyBase.Tables.Add(New tblQS_AuftragspositionenDataTable(ds.Tables("tblQS_Auftragspositionen"))) End If If (Not (ds.Tables("tblQS_Teams")) Is Nothing) Then MyBase.Tables.Add(New tblQS_TeamsDataTable(ds.Tables("tblQS_Teams"))) End If If (Not (ds.Tables("tblQS_TeamsMA")) Is Nothing) Then MyBase.Tables.Add(New tblQS_TeamsMADataTable(ds.Tables("tblQS_TeamsMA"))) End If If (Not (ds.Tables("tblRechnungsnotizen")) Is Nothing) Then MyBase.Tables.Add(New tblRechnungsnotizenDataTable(ds.Tables("tblRechnungsnotizen"))) End If If (Not (ds.Tables("tblRef")) Is Nothing) Then MyBase.Tables.Add(New tblRefDataTable(ds.Tables("tblRef"))) End If If (Not (ds.Tables("tblRefBeziehungen")) Is Nothing) Then MyBase.Tables.Add(New tblRefBeziehungenDataTable(ds.Tables("tblRefBeziehungen"))) End If If (Not (ds.Tables("tblRKSV_Kassen")) Is Nothing) Then MyBase.Tables.Add(New tblRKSV_KassenDataTable(ds.Tables("tblRKSV_Kassen"))) End If If (Not (ds.Tables("tblRKSV_POS")) Is Nothing) Then MyBase.Tables.Add(New tblRKSV_POSDataTable(ds.Tables("tblRKSV_POS"))) End If If (Not (ds.Tables("tblRMCImport")) Is Nothing) Then MyBase.Tables.Add(New tblRMCImportDataTable(ds.Tables("tblRMCImport"))) End If If (Not (ds.Tables("tblSMS")) Is Nothing) Then MyBase.Tables.Add(New tblSMSDataTable(ds.Tables("tblSMS"))) End If If (Not (ds.Tables("tblSpeditionsbucharchiv")) Is Nothing) Then MyBase.Tables.Add(New tblSpeditionsbucharchivDataTable(ds.Tables("tblSpeditionsbucharchiv"))) End If If (Not (ds.Tables("tblSpeditionsbuchEndEmpfaenger")) Is Nothing) Then MyBase.Tables.Add(New tblSpeditionsbuchEndEmpfaengerDataTable(ds.Tables("tblSpeditionsbuchEndEmpfaenger"))) End If If (Not (ds.Tables("tblSpeditionsbuchUnterPos")) Is Nothing) Then MyBase.Tables.Add(New tblSpeditionsbuchUnterPosDataTable(ds.Tables("tblSpeditionsbuchUnterPos"))) End If If (Not (ds.Tables("tblSpeditionsbuchUnterPosArten")) Is Nothing) Then MyBase.Tables.Add(New tblSpeditionsbuchUnterPosArtenDataTable(ds.Tables("tblSpeditionsbuchUnterPosArten"))) End If If (Not (ds.Tables("tblSteuernummern")) Is Nothing) Then MyBase.Tables.Add(New tblSteuernummernDataTable(ds.Tables("tblSteuernummern"))) End If If (Not (ds.Tables("tblSteuersätze")) Is Nothing) Then MyBase.Tables.Add(New tblSteuersätzeDataTable(ds.Tables("tblSteuersätze"))) End If If (Not (ds.Tables("tblSteuertyp")) Is Nothing) Then MyBase.Tables.Add(New tblSteuertypDataTable(ds.Tables("tblSteuertyp"))) End If If (Not (ds.Tables("tblTelotec_Abgaben")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_AbgabenDataTable(ds.Tables("tblTelotec_Abgaben"))) End If If (Not (ds.Tables("tblTelotec_Anmeldung")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_AnmeldungDataTable(ds.Tables("tblTelotec_Anmeldung"))) End If If (Not (ds.Tables("tblTelotec_Packstuecke")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_PackstueckeDataTable(ds.Tables("tblTelotec_Packstuecke"))) End If If (Not (ds.Tables("tblTelotec_Paramter")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_ParamterDataTable(ds.Tables("tblTelotec_Paramter"))) End If If (Not (ds.Tables("tblTelotec_Positionsdaten")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_PositionsdatenDataTable(ds.Tables("tblTelotec_Positionsdaten"))) End If If (Not (ds.Tables("tblTelotec_PositionsdatenAbgaben")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_PositionsdatenAbgabenDataTable(ds.Tables("tblTelotec_PositionsdatenAbgaben"))) End If If (Not (ds.Tables("tblTelotec_PositionsdatenDokumente")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_PositionsdatenDokumenteDataTable(ds.Tables("tblTelotec_PositionsdatenDokumente"))) End If If (Not (ds.Tables("tblTelotec_Sicherheit")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_SicherheitDataTable(ds.Tables("tblTelotec_Sicherheit"))) End If If (Not (ds.Tables("tblTest")) Is Nothing) Then MyBase.Tables.Add(New tblTestDataTable(ds.Tables("tblTest"))) End If If (Not (ds.Tables("tblTextkonserve")) Is Nothing) Then MyBase.Tables.Add(New tblTextkonserveDataTable(ds.Tables("tblTextkonserve"))) End If If (Not (ds.Tables("tblTR_Aviso")) Is Nothing) Then MyBase.Tables.Add(New tblTR_AvisoDataTable(ds.Tables("tblTR_Aviso"))) End If If (Not (ds.Tables("tblTR_AvisoAnheange")) Is Nothing) Then MyBase.Tables.Add(New tblTR_AvisoAnheangeDataTable(ds.Tables("tblTR_AvisoAnheange"))) End If If (Not (ds.Tables("tblTR_Shipment")) Is Nothing) Then MyBase.Tables.Add(New tblTR_ShipmentDataTable(ds.Tables("tblTR_Shipment"))) End If If (Not (ds.Tables("tblTR_Shipment_Adressen")) Is Nothing) Then MyBase.Tables.Add(New tblTR_Shipment_AdressenDataTable(ds.Tables("tblTR_Shipment_Adressen"))) End If If (Not (ds.Tables("tblTR_Shipment_Document")) Is Nothing) Then MyBase.Tables.Add(New tblTR_Shipment_DocumentDataTable(ds.Tables("tblTR_Shipment_Document"))) End If If (Not (ds.Tables("tblTR_Shipment_Position")) Is Nothing) Then MyBase.Tables.Add(New tblTR_Shipment_PositionDataTable(ds.Tables("tblTR_Shipment_Position"))) End If If (Not (ds.Tables("tblTR_Shipment_Position_Document")) Is Nothing) Then MyBase.Tables.Add(New tblTR_Shipment_Position_DocumentDataTable(ds.Tables("tblTR_Shipment_Position_Document"))) End If If (Not (ds.Tables("tblTranslate")) Is Nothing) Then MyBase.Tables.Add(New tblTranslateDataTable(ds.Tables("tblTranslate"))) End If If (Not (ds.Tables("tblTranslateAuto")) Is Nothing) Then MyBase.Tables.Add(New tblTranslateAutoDataTable(ds.Tables("tblTranslateAuto"))) End If If (Not (ds.Tables("tblTrdinHeader")) Is Nothing) Then MyBase.Tables.Add(New tblTrdinHeaderDataTable(ds.Tables("tblTrdinHeader"))) End If If (Not (ds.Tables("tblTrdinInvoice")) Is Nothing) Then MyBase.Tables.Add(New tblTrdinInvoiceDataTable(ds.Tables("tblTrdinInvoice"))) End If If (Not (ds.Tables("tblTrdinProduct")) Is Nothing) Then MyBase.Tables.Add(New tblTrdinProductDataTable(ds.Tables("tblTrdinProduct"))) End If If (Not (ds.Tables("tblUIDPruefung")) Is Nothing) Then MyBase.Tables.Add(New tblUIDPruefungDataTable(ds.Tables("tblUIDPruefung"))) End If If (Not (ds.Tables("tblUStVAntrag")) Is Nothing) Then MyBase.Tables.Add(New tblUStVAntragDataTable(ds.Tables("tblUStVAntrag"))) End If If (Not (ds.Tables("tblUStVBelegeingang")) Is Nothing) Then MyBase.Tables.Add(New tblUStVBelegeingangDataTable(ds.Tables("tblUStVBelegeingang"))) End If If (Not (ds.Tables("tblUStVErstattung")) Is Nothing) Then MyBase.Tables.Add(New tblUStVErstattungDataTable(ds.Tables("tblUStVErstattung"))) End If If (Not (ds.Tables("tblUStVFormulare")) Is Nothing) Then MyBase.Tables.Add(New tblUStVFormulareDataTable(ds.Tables("tblUStVFormulare"))) End If If (Not (ds.Tables("tblUStVKuLäFo")) Is Nothing) Then MyBase.Tables.Add(New tblUStVKuLäFoDataTable(ds.Tables("tblUStVKuLäFo"))) End If If (Not (ds.Tables("tblUStVLäFo")) Is Nothing) Then MyBase.Tables.Add(New tblUStVLäFoDataTable(ds.Tables("tblUStVLäFo"))) End If If (Not (ds.Tables("tblUStVLeistender")) Is Nothing) Then MyBase.Tables.Add(New tblUStVLeistenderDataTable(ds.Tables("tblUStVLeistender"))) End If If (Not (ds.Tables("tblUStVPositionen")) Is Nothing) Then MyBase.Tables.Add(New tblUStVPositionenDataTable(ds.Tables("tblUStVPositionen"))) End If If (Not (ds.Tables("tblUStVTexte")) Is Nothing) Then MyBase.Tables.Add(New tblUStVTexteDataTable(ds.Tables("tblUStVTexte"))) End If If (Not (ds.Tables("tblUTAArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblUTAArchivDataTable(ds.Tables("tblUTAArchiv"))) End If If (Not (ds.Tables("tblUTAFakturierwarenarten")) Is Nothing) Then MyBase.Tables.Add(New tblUTAFakturierwarenartenDataTable(ds.Tables("tblUTAFakturierwarenarten"))) End If If (Not (ds.Tables("tblUTAHeader")) Is Nothing) Then MyBase.Tables.Add(New tblUTAHeaderDataTable(ds.Tables("tblUTAHeader"))) End If If (Not (ds.Tables("tblUTAHeaderNew")) Is Nothing) Then MyBase.Tables.Add(New tblUTAHeaderNewDataTable(ds.Tables("tblUTAHeaderNew"))) End If If (Not (ds.Tables("tblUTAImport")) Is Nothing) Then MyBase.Tables.Add(New tblUTAImportDataTable(ds.Tables("tblUTAImport"))) End If If (Not (ds.Tables("tblUTAImportNew")) Is Nothing) Then MyBase.Tables.Add(New tblUTAImportNewDataTable(ds.Tables("tblUTAImportNew"))) End If If (Not (ds.Tables("tblUTALeistungen")) Is Nothing) Then MyBase.Tables.Add(New tblUTALeistungenDataTable(ds.Tables("tblUTALeistungen"))) End If If (Not (ds.Tables("tblUTATrailer")) Is Nothing) Then MyBase.Tables.Add(New tblUTATrailerDataTable(ds.Tables("tblUTATrailer"))) End If If (Not (ds.Tables("tblUTATrailerNew")) Is Nothing) Then MyBase.Tables.Add(New tblUTATrailerNewDataTable(ds.Tables("tblUTATrailerNew"))) End If If (Not (ds.Tables("tblVermarktungsnormen")) Is Nothing) Then MyBase.Tables.Add(New tblVermarktungsnormenDataTable(ds.Tables("tblVermarktungsnormen"))) End If If (Not (ds.Tables("tblVermarktungsnormenGebuehren")) Is Nothing) Then MyBase.Tables.Add(New tblVermarktungsnormenGebuehrenDataTable(ds.Tables("tblVermarktungsnormenGebuehren"))) End If If (Not (ds.Tables("tblVorauskassen")) Is Nothing) Then MyBase.Tables.Add(New tblVorauskassenDataTable(ds.Tables("tblVorauskassen"))) End If If (Not (ds.Tables("tblWahrungtabelleNEU")) Is Nothing) Then MyBase.Tables.Add(New tblWahrungtabelleNEUDataTable(ds.Tables("tblWahrungtabelleNEU"))) End If If (Not (ds.Tables("tblWarenbezeichnungBegriffe")) Is Nothing) Then MyBase.Tables.Add(New tblWarenbezeichnungBegriffeDataTable(ds.Tables("tblWarenbezeichnungBegriffe"))) End If If (Not (ds.Tables("tblZabis_Atlas_NCTS")) Is Nothing) Then MyBase.Tables.Add(New tblZabis_Atlas_NCTSDataTable(ds.Tables("tblZabis_Atlas_NCTS"))) End If If (Not (ds.Tables("tblZahlungszieltexte")) Is Nothing) Then MyBase.Tables.Add(New tblZahlungszieltexteDataTable(ds.Tables("tblZahlungszieltexte"))) End If If (Not (ds.Tables("tblZolaris_EZoll_NCTS")) Is Nothing) Then MyBase.Tables.Add(New tblZolaris_EZoll_NCTSDataTable(ds.Tables("tblZolaris_EZoll_NCTS"))) End If If (Not (ds.Tables("tblZOLL_Wechselkurse")) Is Nothing) Then MyBase.Tables.Add(New tblZOLL_WechselkurseDataTable(ds.Tables("tblZOLL_Wechselkurse"))) End If If (Not (ds.Tables("tblZollArtikel")) Is Nothing) Then MyBase.Tables.Add(New tblZollArtikelDataTable(ds.Tables("tblZollArtikel"))) End If If (Not (ds.Tables("tblZollUnterArtikel")) Is Nothing) Then MyBase.Tables.Add(New tblZollUnterArtikelDataTable(ds.Tables("tblZollUnterArtikel"))) End If If (Not (ds.Tables("TemporaryUpsizedTable2")) Is Nothing) Then MyBase.Tables.Add(New TemporaryUpsizedTable2DataTable(ds.Tables("TemporaryUpsizedTable2"))) End If If (Not (ds.Tables("Verkehrszweige")) Is Nothing) Then MyBase.Tables.Add(New VerkehrszweigeDataTable(ds.Tables("Verkehrszweige"))) End If If (Not (ds.Tables("Vermerke")) Is Nothing) Then MyBase.Tables.Add(New VermerkeDataTable(ds.Tables("Vermerke"))) End If If (Not (ds.Tables("Vorkosten")) Is Nothing) Then MyBase.Tables.Add(New VorkostenDataTable(ds.Tables("Vorkosten"))) End If If (Not (ds.Tables("Währungstabelle")) Is Nothing) Then MyBase.Tables.Add(New WährungstabelleDataTable(ds.Tables("Währungstabelle"))) End If If (Not (ds.Tables("Zahlungsarten")) Is Nothing) Then MyBase.Tables.Add(New ZahlungsartenDataTable(ds.Tables("Zahlungsarten"))) End If If (Not (ds.Tables("zbadz")) Is Nothing) Then MyBase.Tables.Add(New zbadzDataTable(ds.Tables("zbadz"))) End If If (Not (ds.Tables("zbant")) Is Nothing) Then MyBase.Tables.Add(New zbantDataTable(ds.Tables("zbant"))) End If If (Not (ds.Tables("zbapo")) Is Nothing) Then MyBase.Tables.Add(New zbapoDataTable(ds.Tables("zbapo"))) End If If (Not (ds.Tables("zbpos")) Is Nothing) Then MyBase.Tables.Add(New zbposDataTable(ds.Tables("zbpos"))) End If If (Not (ds.Tables("Zkteing")) Is Nothing) Then MyBase.Tables.Add(New ZkteingDataTable(ds.Tables("Zkteing"))) End If If (Not (ds.Tables("Zollsysteme")) Is Nothing) Then MyBase.Tables.Add(New ZollsystemeDataTable(ds.Tables("Zollsysteme"))) End If If (Not (ds.Tables("Zulassungen ZnV")) Is Nothing) Then MyBase.Tables.Add(New Zulassungen_ZnVDataTable(ds.Tables("Zulassungen ZnV"))) End If If (Not (ds.Tables("vwKundenstamm")) Is Nothing) Then MyBase.Tables.Add(New vwKundenstammDataTable(ds.Tables("vwKundenstamm"))) End If If (Not (ds.Tables("vwReErfAuswahl")) Is Nothing) Then MyBase.Tables.Add(New vwReErfAuswahlDataTable(ds.Tables("vwReErfAuswahl"))) End If If (Not (ds.Tables("vwTrdinHeader")) Is Nothing) Then MyBase.Tables.Add(New vwTrdinHeaderDataTable(ds.Tables("vwTrdinHeader"))) End If If (Not (ds.Tables("vwTrdinInvoice")) Is Nothing) Then MyBase.Tables.Add(New vwTrdinInvoiceDataTable(ds.Tables("vwTrdinInvoice"))) End If If (Not (ds.Tables("vwTrdinProduct")) Is Nothing) Then MyBase.Tables.Add(New vwTrdinProductDataTable(ds.Tables("vwTrdinProduct"))) End If If (Not (ds.Tables("vwUStV_OP_Risikobericht")) Is Nothing) Then MyBase.Tables.Add(New vwUStV_OP_RisikoberichtDataTable(ds.Tables("vwUStV_OP_Risikobericht"))) End If If (Not (ds.Tables("vwUStVAntrag")) Is Nothing) Then MyBase.Tables.Add(New vwUStVAntragDataTable(ds.Tables("vwUStVAntrag"))) End If If (Not (ds.Tables("vwUStVBelegeingang")) Is Nothing) Then MyBase.Tables.Add(New vwUStVBelegeingangDataTable(ds.Tables("vwUStVBelegeingang"))) End If If (Not (ds.Tables("vwUStVErstattung")) Is Nothing) Then MyBase.Tables.Add(New vwUStVErstattungDataTable(ds.Tables("vwUStVErstattung"))) End If If (Not (ds.Tables("vwUStVPositionen")) Is Nothing) Then MyBase.Tables.Add(New vwUStVPositionenDataTable(ds.Tables("vwUStVPositionen"))) End If If (Not (ds.Tables("vwUStVVorauszahlung")) Is Nothing) Then MyBase.Tables.Add(New vwUStVVorauszahlungDataTable(ds.Tables("vwUStVVorauszahlung"))) End If If (Not (ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1")) Is Nothing) Then MyBase.Tables.Add(New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable(ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1"))) End If If (Not (ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new")) Is Nothing) Then MyBase.Tables.Add(New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable(ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new"))) End If If (Not (ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2")) Is Nothing) Then MyBase.Tables.Add(New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable(ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2"))) End If If (Not (ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new")) Is Nothing) Then MyBase.Tables.Add(New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable(ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new"))) End If If (Not (ds.Tables("spAlleTabellen")) Is Nothing) Then MyBase.Tables.Add(New spAlleTabellenDataTable(ds.Tables("spAlleTabellen"))) End If If (Not (ds.Tables("spReDruReNrVergeben")) Is Nothing) Then MyBase.Tables.Add(New spReDruReNrVergebenDataTable(ds.Tables("spReDruReNrVergeben"))) End If If (Not (ds.Tables("spReDruSchnSaReDruckinfoEintragen")) Is Nothing) Then MyBase.Tables.Add(New spReDruSchnSaReDruckinfoEintragenDataTable(ds.Tables("spReDruSchnSaReDruckinfoEintragen"))) End If If (Not (ds.Tables("spReDruSchnSaReNrEintragen")) Is Nothing) Then MyBase.Tables.Add(New spReDruSchnSaReNrEintragenDataTable(ds.Tables("spReDruSchnSaReNrEintragen"))) End If If (Not (ds.Tables("spReverseChargeSumme")) Is Nothing) Then MyBase.Tables.Add(New spReverseChargeSummeDataTable(ds.Tables("spReverseChargeSumme"))) End If If (Not (ds.Tables("spSELECT_Bankspesen_für_KundenNr")) Is Nothing) Then MyBase.Tables.Add(New spSELECT_Bankspesen_für_KundenNrDataTable(ds.Tables("spSELECT_Bankspesen_für_KundenNr"))) End If If (Not (ds.Tables("spSELECT_tblZabis_Atlas_NCTS")) Is Nothing) Then MyBase.Tables.Add(New spSELECT_tblZabis_Atlas_NCTSDataTable(ds.Tables("spSELECT_tblZabis_Atlas_NCTS"))) End If If (Not (ds.Tables("spSELECTAufschubdaten")) Is Nothing) Then MyBase.Tables.Add(New spSELECTAufschubdatenDataTable(ds.Tables("spSELECTAufschubdaten"))) End If If (Not (ds.Tables("spSELECTRechnungsausgang")) Is Nothing) Then MyBase.Tables.Add(New spSELECTRechnungsausgangDataTable(ds.Tables("spSELECTRechnungsausgang"))) End If If (Not (ds.Tables("spSELECTRechnungsausgangPositionen")) Is Nothing) Then MyBase.Tables.Add(New spSELECTRechnungsausgangPositionenDataTable(ds.Tables("spSELECTRechnungsausgangPositionen"))) End If If (Not (ds.Tables("spSELECTRechnungsnummern")) Is Nothing) Then MyBase.Tables.Add(New spSELECTRechnungsnummernDataTable(ds.Tables("spSELECTRechnungsnummern"))) End If If (Not (ds.Tables("spSelectReDruSaReRKAvisoID")) Is Nothing) Then MyBase.Tables.Add(New spSelectReDruSaReRKAvisoIDDataTable(ds.Tables("spSelectReDruSaReRKAvisoID"))) End If If (Not (ds.Tables("spSELECTReDruSaReRKgruppieren")) Is Nothing) Then MyBase.Tables.Add(New spSELECTReDruSaReRKgruppierenDataTable(ds.Tables("spSELECTReDruSaReRKgruppieren"))) End If If (Not (ds.Tables("spSelectReDruSchnBB_RK")) Is Nothing) Then MyBase.Tables.Add(New spSelectReDruSchnBB_RKDataTable(ds.Tables("spSelectReDruSchnBB_RK"))) End If If (Not (ds.Tables("spSelectReDruSchnKunde")) Is Nothing) Then MyBase.Tables.Add(New spSelectReDruSchnKundeDataTable(ds.Tables("spSelectReDruSchnKunde"))) End If If (Not (ds.Tables("spSelectReDruSchnSumBS415")) Is Nothing) Then MyBase.Tables.Add(New spSelectReDruSchnSumBS415DataTable(ds.Tables("spSelectReDruSchnSumBS415"))) End If If (Not (ds.Tables("spSelectReDruSchnTextZollbelegePrüfen")) Is Nothing) Then MyBase.Tables.Add(New spSelectReDruSchnTextZollbelegePrüfenDataTable(ds.Tables("spSelectReDruSchnTextZollbelegePrüfen"))) End If If (Not (ds.Tables("spSELECTReDruSumReGu")) Is Nothing) Then MyBase.Tables.Add(New spSELECTReDruSumReGuDataTable(ds.Tables("spSELECTReDruSumReGu"))) End If If (Not (ds.Tables("spSELECTReDruText")) Is Nothing) Then MyBase.Tables.Add(New spSELECTReDruTextDataTable(ds.Tables("spSELECTReDruText"))) End If If (Not (ds.Tables("spSelectReErfAuswahl")) Is Nothing) Then MyBase.Tables.Add(New spSelectReErfAuswahlDataTable(ds.Tables("spSelectReErfAuswahl"))) End If If (Not (ds.Tables("spSELECTReErfKA")) Is Nothing) Then MyBase.Tables.Add(New spSELECTReErfKADataTable(ds.Tables("spSELECTReErfKA"))) End If If (Not (ds.Tables("spSelectRK")) Is Nothing) Then MyBase.Tables.Add(New spSelectRKDataTable(ds.Tables("spSelectRK"))) End If If (Not (ds.Tables("spSelectRKPKey")) Is Nothing) Then MyBase.Tables.Add(New spSelectRKPKeyDataTable(ds.Tables("spSelectRKPKey"))) End If If (Not (ds.Tables("spSelectRP")) Is Nothing) Then MyBase.Tables.Add(New spSelectRPDataTable(ds.Tables("spSelectRP"))) End If If (Not (ds.Tables("spSelectRPFKeyRK")) Is Nothing) Then MyBase.Tables.Add(New spSelectRPFKeyRKDataTable(ds.Tables("spSelectRPFKeyRK"))) End If If (Not (ds.Tables("spSelectRPPKey")) Is Nothing) Then MyBase.Tables.Add(New spSelectRPPKeyDataTable(ds.Tables("spSelectRPPKey"))) End If If (Not (ds.Tables("spSELECTtblAnmeldungPKey")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblAnmeldungPKeyDataTable(ds.Tables("spSELECTtblAnmeldungPKey"))) End If If (Not (ds.Tables("spSELECTtblQS_Abfertigungsarten")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblQS_AbfertigungsartenDataTable(ds.Tables("spSELECTtblQS_Abfertigungsarten"))) End If If (Not (ds.Tables("spSELECTtblQS_Aufträge")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblQS_AufträgeDataTable(ds.Tables("spSELECTtblQS_Aufträge"))) End If If (Not (ds.Tables("spSELECTtblQS_Auftragspositionen")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblQS_AuftragspositionenDataTable(ds.Tables("spSELECTtblQS_Auftragspositionen"))) End If If (Not (ds.Tables("spSELECTtblTrdinHeader")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblTrdinHeaderDataTable(ds.Tables("spSELECTtblTrdinHeader"))) End If If (Not (ds.Tables("spSELECTtblTrdinInvoice")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblTrdinInvoiceDataTable(ds.Tables("spSELECTtblTrdinInvoice"))) End If If (Not (ds.Tables("spSELECTtblTrdinProduct")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblTrdinProductDataTable(ds.Tables("spSELECTtblTrdinProduct"))) End If If (Not (ds.Tables("spSELECTtblUStVAntrag")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblUStVAntragDataTable(ds.Tables("spSELECTtblUStVAntrag"))) End If If (Not (ds.Tables("spSELECTtblUStVBelegeingang")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblUStVBelegeingangDataTable(ds.Tables("spSELECTtblUStVBelegeingang"))) End If If (Not (ds.Tables("spSELECTtblUStVErstattung")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblUStVErstattungDataTable(ds.Tables("spSELECTtblUStVErstattung"))) End If If (Not (ds.Tables("spSELECTtblUStVPositionen")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblUStVPositionenDataTable(ds.Tables("spSELECTtblUStVPositionen"))) End If If (Not (ds.Tables("spSELECTtblZolaris_EZoll_NCTS")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblZolaris_EZoll_NCTSDataTable(ds.Tables("spSELECTtblZolaris_EZoll_NCTS"))) End If If (Not (ds.Tables("spSELECTUStVErstattungsschreiben")) Is Nothing) Then MyBase.Tables.Add(New spSELECTUStVErstattungsschreibenDataTable(ds.Tables("spSELECTUStVErstattungsschreiben"))) End If If (Not (ds.Tables("spSELECTUStVErstattungsschreiben2")) Is Nothing) Then MyBase.Tables.Add(New spSELECTUStVErstattungsschreiben2DataTable(ds.Tables("spSELECTUStVErstattungsschreiben2"))) End If If (Not (ds.Tables("spSELECTZkteing")) Is Nothing) Then MyBase.Tables.Add(New spSELECTZkteingDataTable(ds.Tables("spSELECTZkteing"))) End If If (Not (ds.Tables("spTrdinFiBuSelectInvoice")) Is Nothing) Then MyBase.Tables.Add(New spTrdinFiBuSelectInvoiceDataTable(ds.Tables("spTrdinFiBuSelectInvoice"))) End If If (Not (ds.Tables("spTrdinFiBuSelectProduct")) Is Nothing) Then MyBase.Tables.Add(New spTrdinFiBuSelectProductDataTable(ds.Tables("spTrdinFiBuSelectProduct"))) End If If (Not (ds.Tables("spTrdinSchreibenSelectInvoicePKey")) Is Nothing) Then MyBase.Tables.Add(New spTrdinSchreibenSelectInvoicePKeyDataTable(ds.Tables("spTrdinSchreibenSelectInvoicePKey"))) End If If (Not (ds.Tables("spTrdinSchreibenSelectProductFKeyInvoice")) Is Nothing) Then MyBase.Tables.Add(New spTrdinSchreibenSelectProductFKeyInvoiceDataTable(ds.Tables("spTrdinSchreibenSelectProductFKeyInvoice"))) End If If (Not (ds.Tables("spTrdinSchreibenSelectProductPKey")) Is Nothing) Then MyBase.Tables.Add(New spTrdinSchreibenSelectProductPKeyDataTable(ds.Tables("spTrdinSchreibenSelectProductPKey"))) End If If (Not (ds.Tables("spUStVAntragLesenParameterPKey")) Is Nothing) Then MyBase.Tables.Add(New spUStVAntragLesenParameterPKeyDataTable(ds.Tables("spUStVAntragLesenParameterPKey"))) End If If (Not (ds.Tables("spUStVBelegeingangLesenParameterPKey")) Is Nothing) Then MyBase.Tables.Add(New spUStVBelegeingangLesenParameterPKeyDataTable(ds.Tables("spUStVBelegeingangLesenParameterPKey"))) End If If (Not (ds.Tables("spUStVErstattungLesenParameterPKey")) Is Nothing) Then MyBase.Tables.Add(New spUStVErstattungLesenParameterPKeyDataTable(ds.Tables("spUStVErstattungLesenParameterPKey"))) End If If (Not (ds.Tables("spUStVPositionenLesenParameterPKey")) Is Nothing) Then MyBase.Tables.Add(New spUStVPositionenLesenParameterPKeyDataTable(ds.Tables("spUStVPositionenLesenParameterPKey"))) End If If (Not (ds.Tables("spUStVRechnungÜbernehmenMSE")) Is Nothing) Then MyBase.Tables.Add(New spUStVRechnungÜbernehmenMSEDataTable(ds.Tables("spUStVRechnungÜbernehmenMSE"))) End If If (Not (ds.Tables("spUStVVorschau_IDS_Summe")) Is Nothing) Then MyBase.Tables.Add(New spUStVVorschau_IDS_SummeDataTable(ds.Tables("spUStVVorschau_IDS_Summe"))) End If If (Not (ds.Tables("spUStVVorschau_IT_Summe")) Is Nothing) Then MyBase.Tables.Add(New spUStVVorschau_IT_SummeDataTable(ds.Tables("spUStVVorschau_IT_Summe"))) End If If (Not (ds.Tables("spUStVVorschau_MSE_Summe")) Is Nothing) Then MyBase.Tables.Add(New spUStVVorschau_MSE_SummeDataTable(ds.Tables("spUStVVorschau_MSE_Summe"))) End If If (Not (ds.Tables("spUStVVorschau_UTA_Summe")) Is Nothing) Then MyBase.Tables.Add(New spUStVVorschau_UTA_SummeDataTable(ds.Tables("spUStVVorschau_UTA_Summe"))) End If If (Not (ds.Tables("spUStVVorschau_VERAG_Summe")) Is Nothing) Then MyBase.Tables.Add(New spUStVVorschau_VERAG_SummeDataTable(ds.Tables("spUStVVorschau_VERAG_Summe"))) End If If (Not (ds.Tables("spZolaris_EZoll_NCTS_Datenbereitstellung")) Is Nothing) Then MyBase.Tables.Add(New spZolaris_EZoll_NCTS_DatenbereitstellungDataTable(ds.Tables("spZolaris_EZoll_NCTS_Datenbereitstellung"))) 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 Abfertigungsarten() As AbfertigungsartenDataTable Get Return Me.tableAbfertigungsarten End Get End Property _ Public ReadOnly Property Abfertigungskosten_der_Korrespondenten() As Abfertigungskosten_der_KorrespondentenDataTable Get Return Me.tableAbfertigungskosten_der_Korrespondenten End Get End Property _ Public ReadOnly Property AbfertigungsLaender() As AbfertigungsLaenderDataTable Get Return Me.tableAbfertigungsLaender End Get End Property _ Public ReadOnly Property AbfertigungsLaenderAbfertigungsarten() As AbfertigungsLaenderAbfertigungsartenDataTable Get Return Me.tableAbfertigungsLaenderAbfertigungsarten End Get End Property _ Public ReadOnly Property Abgabenarten() As AbgabenartenDataTable Get Return Me.tableAbgabenarten End Get End Property _ Public ReadOnly Property Adressen() As AdressenDataTable Get Return Me.tableAdressen End Get End Property _ Public ReadOnly Property Aktivitätenlog() As AktivitätenlogDataTable Get Return Me.tableAktivitätenlog End Get End Property _ Public ReadOnly Property Anlagen() As AnlagenDataTable Get Return Me.tableAnlagen End Get End Property _ Public ReadOnly Property atlas_status() As atlas_statusDataTable Get Return Me.tableatlas_status End Get End Property _ Public ReadOnly Property Aufschubdaten() As AufschubdatenDataTable Get Return Me.tableAufschubdaten End Get End Property _ Public ReadOnly Property Aufschubkonten() As AufschubkontenDataTable Get Return Me.tableAufschubkonten End Get End Property _ Public ReadOnly Property Belegarten() As BelegartenDataTable Get Return Me.tableBelegarten End Get End Property _ Public ReadOnly Property Berechnungsart() As BerechnungsartDataTable Get Return Me.tableBerechnungsart End Get End Property _ Public ReadOnly Property Berechnungsbogen() As BerechnungsbogenDataTable Get Return Me.tableBerechnungsbogen End Get End Property _ Public ReadOnly Property Berichte() As BerichteDataTable Get Return Me.tableBerichte End Get End Property _ Public ReadOnly Property CMR() As CMRDataTable Get Return Me.tableCMR End Get End Property _ Public ReadOnly Property Devisenkurse() As DevisenkurseDataTable Get Return Me.tableDevisenkurse End Get End Property _ Public ReadOnly Property EPBes() As EPBesDataTable Get Return Me.tableEPBes End Get End Property _ Public ReadOnly Property EPBesPOS() As EPBesPOSDataTable Get Return Me.tableEPBesPOS End Get End Property _ Public ReadOnly Property Filialen() As FilialenDataTable Get Return Me.tableFilialen End Get End Property _ Public ReadOnly Property Geschäftsarten() As GeschäftsartenDataTable Get Return Me.tableGeschäftsarten End Get End Property _ Public ReadOnly Property Korrespondenten() As KorrespondentenDataTable Get Return Me.tableKorrespondenten End Get End Property _ Public ReadOnly Property Kostenstellen() As KostenstellenDataTable Get Return Me.tableKostenstellen End Get End Property _ Public ReadOnly Property Kreditkarten() As KreditkartenDataTable Get Return Me.tableKreditkarten End Get End Property _ Public ReadOnly Property Kunden() As KundenDataTable Get Return Me.tableKunden End Get End Property _ Public ReadOnly Property KundenFilialen() As KundenFilialenDataTable Get Return Me.tableKundenFilialen End Get End Property _ Public ReadOnly Property Länder_der_Bundesrepublik_Deutschland() As Länder_der_Bundesrepublik_DeutschlandDataTable Get Return Me.tableLänder_der_Bundesrepublik_Deutschland End Get End Property _ Public ReadOnly Property Länderverzeichnis_für_die_Außenhandelsstatistik() As Länderverzeichnis_für_die_AußenhandelsstatistikDataTable Get Return Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik End Get End Property _ Public ReadOnly Property Leistungen() As LeistungenDataTable Get Return Me.tableLeistungen End Get End Property _ Public ReadOnly Property LeistungenBUKonten() As LeistungenBUKontenDataTable Get Return Me.tableLeistungenBUKonten End Get End Property _ Public ReadOnly Property Lieferbedingungen() As LieferbedingungenDataTable Get Return Me.tableLieferbedingungen End Get End Property _ Public ReadOnly Property Nebenkosten_der_Korrespondenten() As Nebenkosten_der_KorrespondentenDataTable Get Return Me.tableNebenkosten_der_Korrespondenten End Get End Property _ Public ReadOnly Property Offene_Posten() As Offene_PostenDataTable Get Return Me.tableOffene_Posten End Get End Property _ Public ReadOnly Property Offene_Posten_DVO() As Offene_Posten_DVODataTable Get Return Me.tableOffene_Posten_DVO End Get End Property _ Public ReadOnly Property Offerten() As OffertenDataTable Get Return Me.tableOfferten End Get End Property _ Public ReadOnly Property Offertenpositionen() As OffertenpositionenDataTable Get Return Me.tableOffertenpositionen End Get End Property _ Public ReadOnly Property Offertenstamm() As OffertenstammDataTable Get Return Me.tableOffertenstamm End Get End Property _ Public ReadOnly Property Personal() As PersonalDataTable Get Return Me.tablePersonal End Get End Property _ Public ReadOnly Property Rechnungsausgang() As RechnungsausgangDataTable Get Return Me.tableRechnungsausgang End Get End Property _ Public ReadOnly Property RechnungsausgangAnhaenge() As RechnungsausgangAnhaengeDataTable Get Return Me.tableRechnungsausgangAnhaenge End Get End Property _ Public ReadOnly Property RechnungsausgangPositionen() As RechnungsausgangPositionenDataTable Get Return Me.tableRechnungsausgangPositionen End Get End Property _ Public ReadOnly Property Rechnungsnummern() As RechnungsnummernDataTable Get Return Me.tableRechnungsnummern End Get End Property _ Public ReadOnly Property Rechnungstexte() As RechnungstexteDataTable Get Return Me.tableRechnungstexte End Get End Property _ Public ReadOnly Property Speditionsbuch() As SpeditionsbuchDataTable Get Return Me.tableSpeditionsbuch End Get End Property _ Public ReadOnly Property Standardofferten() As StandardoffertenDataTable Get Return Me.tableStandardofferten End Get End Property _ Public ReadOnly Property StandardoffertenFirma() As StandardoffertenFirmaDataTable Get Return Me.tableStandardoffertenFirma End Get End Property _ Public ReadOnly Property Steuertabelle() As SteuertabelleDataTable Get Return Me.tableSteuertabelle End Get End Property _ Public ReadOnly Property tbl_ASFINAG_FileInfo() As tbl_ASFINAG_FileInfoDataTable Get Return Me.tabletbl_ASFINAG_FileInfo End Get End Property _ Public ReadOnly Property tbl_BMD_Länder() As tbl_BMD_LänderDataTable Get Return Me.tabletbl_BMD_Länder End Get End Property _ Public ReadOnly Property tbl_DY_Paramter() As tbl_DY_ParamterDataTable Get Return Me.tabletbl_DY_Paramter End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung() As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable Get Return Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_A0127_BeteiligtenKonstellation() As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable Get Return Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_C0008_LaenderFull() As tbl_DY_ZollDE_C0008_LaenderFullDataTable Get Return Me.tabletbl_DY_ZollDE_C0008_LaenderFull End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_C0010_LaenderAES() As tbl_DY_ZollDE_C0010_LaenderAESDataTable Get Return Me.tabletbl_DY_ZollDE_C0010_LaenderAES End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_C0013_UnterlagenArten() As tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable Get Return Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_C0014_VorpapierArten() As tbl_DY_ZollDE_C0014_VorpapierArtenDataTable Get Return Me.tabletbl_DY_ZollDE_C0014_VorpapierArten End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten() As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable Get Return Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_C0141_Zollstellen() As tbl_DY_ZollDE_C0141_ZollstellenDataTable Get Return Me.tabletbl_DY_ZollDE_C0141_Zollstellen End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_C0219_TypeTransportMeans() As tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable Get Return Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_I0200_Unterlagearten() As tbl_DY_ZollDE_I0200_UnterlageartenDataTable Get Return Me.tabletbl_DY_ZollDE_I0200_Unterlagearten End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_I0400_Waehrungsliste() As tbl_DY_ZollDE_I0400_WaehrungslisteDataTable Get Return Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_I0610_ZustaendigeZSTAES() As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable Get Return Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES End Get End Property _ Public ReadOnly Property tbl_DY_ZollDE_I0700_Masseinheiten() As tbl_DY_ZollDE_I0700_MasseinheitenDataTable Get Return Me.tabletbl_DY_ZollDE_I0700_Masseinheiten End Get End Property _ Public ReadOnly Property tbl_Errors() As tbl_ErrorsDataTable Get Return Me.tabletbl_Errors End Get End Property _ Public ReadOnly Property tbl_IDS_Kategorien_Kunden() As tbl_IDS_Kategorien_KundenDataTable Get Return Me.tabletbl_IDS_Kategorien_Kunden End Get End Property _ Public ReadOnly Property tbl_IDS_Kategorien_Rechenwerte() As tbl_IDS_Kategorien_RechenwerteDataTable Get Return Me.tabletbl_IDS_Kategorien_Rechenwerte End Get End Property _ Public ReadOnly Property tbl_IDS_Kunden() As tbl_IDS_KundenDataTable Get Return Me.tabletbl_IDS_Kunden End Get End Property _ Public ReadOnly Property tbl_IDS_Kunden_ohne_Rabatt() As tbl_IDS_Kunden_ohne_RabattDataTable Get Return Me.tabletbl_IDS_Kunden_ohne_Rabatt End Get End Property _ Public ReadOnly Property tbl_IDS_Länder() As tbl_IDS_LänderDataTable Get Return Me.tabletbl_IDS_Länder End Get End Property _ Public ReadOnly Property tbl_IDS_Produkte() As tbl_IDS_ProdukteDataTable Get Return Me.tabletbl_IDS_Produkte End Get End Property _ Public ReadOnly Property tbl_IDS_Rechenwerte() As tbl_IDS_RechenwerteDataTable Get Return Me.tabletbl_IDS_Rechenwerte End Get End Property _ Public ReadOnly Property tbl_IDS_Stationen() As tbl_IDS_StationenDataTable Get Return Me.tabletbl_IDS_Stationen End Get End Property _ Public ReadOnly Property tbl_Intrastat_Ausfuhr() As tbl_Intrastat_AusfuhrDataTable Get Return Me.tabletbl_Intrastat_Ausfuhr End Get End Property _ Public ReadOnly Property tbl_Telefonbuch() As tbl_TelefonbuchDataTable Get Return Me.tabletbl_Telefonbuch End Get End Property _ Public ReadOnly Property tbl_Telefonnummern() As tbl_TelefonnummernDataTable Get Return Me.tabletbl_Telefonnummern End Get End Property _ Public ReadOnly Property tbl_WÖLFL() As tbl_WÖLFLDataTable Get Return Me.tabletbl_WÖLFL End Get End Property _ Public ReadOnly Property tbl_ZM_tabelle() As tbl_ZM_tabelleDataTable Get Return Me.tabletbl_ZM_tabelle End Get End Property _ Public ReadOnly Property tblAbfertigungsartenFiliale() As tblAbfertigungsartenFilialeDataTable Get Return Me.tabletblAbfertigungsartenFiliale End Get End Property _ Public ReadOnly Property tblAbfertigungsartOffertenstamm() As tblAbfertigungsartOffertenstammDataTable Get Return Me.tabletblAbfertigungsartOffertenstamm End Get End Property _ Public ReadOnly Property tblAbrechnung_NCTSBrg() As tblAbrechnung_NCTSBrgDataTable Get Return Me.tabletblAbrechnung_NCTSBrg End Get End Property _ Public ReadOnly Property tblAnmeldung() As tblAnmeldungDataTable Get Return Me.tabletblAnmeldung End Get End Property _ Public ReadOnly Property tblAsfinagMaut() As tblAsfinagMautDataTable Get Return Me.tabletblAsfinagMaut End Get End Property _ Public ReadOnly Property tblATEZ_NCTS() As tblATEZ_NCTSDataTable Get Return Me.tabletblATEZ_NCTS End Get End Property _ Public ReadOnly Property tblATEZ_NCTS_Routen() As tblATEZ_NCTS_RoutenDataTable Get Return Me.tabletblATEZ_NCTS_Routen End Get End Property _ Public ReadOnly Property tblATEZ_NCTS_Sessions() As tblATEZ_NCTS_SessionsDataTable Get Return Me.tabletblATEZ_NCTS_Sessions End Get End Property _ Public ReadOnly Property tblATEZ_NCTS_TransitCustomsOffice() As tblATEZ_NCTS_TransitCustomsOfficeDataTable Get Return Me.tabletblATEZ_NCTS_TransitCustomsOffice End Get End Property _ Public ReadOnly Property tblBankspesen() As tblBankspesenDataTable Get Return Me.tabletblBankspesen End Get End Property _ Public ReadOnly Property tblBerechnungsmethode() As tblBerechnungsmethodeDataTable Get Return Me.tabletblBerechnungsmethode End Get End Property _ Public ReadOnly Property tblBerichtsdrucker() As tblBerichtsdruckerDataTable Get Return Me.tabletblBerichtsdrucker End Get End Property _ Public ReadOnly Property tblBesuchsberichte() As tblBesuchsberichteDataTable Get Return Me.tabletblBesuchsberichte End Get End Property _ Public ReadOnly Property tblBonitaetsauskunft() As tblBonitaetsauskunftDataTable Get Return Me.tabletblBonitaetsauskunft End Get End Property _ Public ReadOnly Property tblBuchungstext() As tblBuchungstextDataTable Get Return Me.tabletblBuchungstext End Get End Property _ Public ReadOnly Property tblDakosy_AES() As tblDakosy_AESDataTable Get Return Me.tabletblDakosy_AES End Get End Property _ Public ReadOnly Property tblDakosy_AES_Warenposition() As tblDakosy_AES_WarenpositionDataTable Get Return Me.tabletblDakosy_AES_Warenposition End Get End Property _ Public ReadOnly Property tblDakosy_AES_WarenpositionPackstuecke() As tblDakosy_AES_WarenpositionPackstueckeDataTable Get Return Me.tabletblDakosy_AES_WarenpositionPackstuecke End Get End Property _ Public ReadOnly Property tblDakosy_AES_WarenpositionUnterlagen() As tblDakosy_AES_WarenpositionUnterlagenDataTable Get Return Me.tabletblDakosy_AES_WarenpositionUnterlagen End Get End Property _ Public ReadOnly Property tblDakosy_EZA() As tblDakosy_EZADataTable Get Return Me.tabletblDakosy_EZA End Get End Property _ Public ReadOnly Property tblDakosy_EZA_Adressen() As tblDakosy_EZA_AdressenDataTable Get Return Me.tabletblDakosy_EZA_Adressen End Get End Property _ Public ReadOnly Property tblDakosy_EZA_Aufschub() As tblDakosy_EZA_AufschubDataTable Get Return Me.tabletblDakosy_EZA_Aufschub End Get End Property _ Public ReadOnly Property tblDakosy_EZA_BEAnteilZLAVUV() As tblDakosy_EZA_BEAnteilZLAVUVDataTable Get Return Me.tabletblDakosy_EZA_BEAnteilZLAVUV End Get End Property _ Public ReadOnly Property tblDakosy_EZA_SumABeendigungsAnteil() As tblDakosy_EZA_SumABeendigungsAnteilDataTable Get Return Me.tabletblDakosy_EZA_SumABeendigungsAnteil End Get End Property _ Public ReadOnly Property tblDakosy_EZA_Unterlagen() As tblDakosy_EZA_UnterlagenDataTable Get Return Me.tabletblDakosy_EZA_Unterlagen End Get End Property _ Public ReadOnly Property tblDakosy_EZA_Warenposition() As tblDakosy_EZA_WarenpositionDataTable Get Return Me.tabletblDakosy_EZA_Warenposition End Get End Property _ Public ReadOnly Property tblDakosy_EZA_WarenpositionSonderfalldaten() As tblDakosy_EZA_WarenpositionSonderfalldatenDataTable Get Return Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten End Get End Property _ Public ReadOnly Property tblDakosy_EZA_WarenpositionUnterlagen() As tblDakosy_EZA_WarenpositionUnterlagenDataTable Get Return Me.tabletblDakosy_EZA_WarenpositionUnterlagen End Get End Property _ Public ReadOnly Property tblDakosy_EZA_WarenpositionVerbrauchssteuer() As tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable Get Return Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut() As tblDakosy_NCTSOutDataTable Get Return Me.tabletblDakosy_NCTSOut End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut_Sicherheitsangaben() As tblDakosy_NCTSOut_SicherheitsangabenDataTable Get Return Me.tabletblDakosy_NCTSOut_Sicherheitsangaben End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut_Warenposition() As tblDakosy_NCTSOut_WarenpositionDataTable Get Return Me.tabletblDakosy_NCTSOut_Warenposition End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut_WarenpositionPackstuecke() As tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable Get Return Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen() As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable Get Return Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut004() As tblDakosy_NCTSOut004DataTable Get Return Me.tabletblDakosy_NCTSOut004 End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut004_Guarantee() As tblDakosy_NCTSOut004_GuaranteeDataTable Get Return Me.tabletblDakosy_NCTSOut004_Guarantee End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut004_HouseConsignment() As tblDakosy_NCTSOut004_HouseConsignmentDataTable Get Return Me.tabletblDakosy_NCTSOut004_HouseConsignment End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem() As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable Get Return Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging() As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable Get Return Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging End Get End Property _ Public ReadOnly Property tblDakosy_NCTSOut004_TransportEquipment() As tblDakosy_NCTSOut004_TransportEquipmentDataTable Get Return Me.tabletblDakosy_NCTSOut004_TransportEquipment End Get End Property _ Public ReadOnly Property tblDakosy_Stammreferenzen() As tblDakosy_StammreferenzenDataTable Get Return Me.tabletblDakosy_Stammreferenzen End Get End Property _ Public ReadOnly Property tblDakosy_Statusmeldungen() As tblDakosy_StatusmeldungenDataTable Get Return Me.tabletblDakosy_Statusmeldungen End Get End Property _ Public ReadOnly Property tblDakosy_Zollanmeldungen() As tblDakosy_ZollanmeldungenDataTable Get Return Me.tabletblDakosy_Zollanmeldungen End Get End Property _ Public ReadOnly Property tblDakosy_ZollanmeldungenArten() As tblDakosy_ZollanmeldungenArtenDataTable Get Return Me.tabletblDakosy_ZollanmeldungenArten End Get End Property _ Public ReadOnly Property tblDatenarchiv() As tblDatenarchivDataTable Get Return Me.tabletblDatenarchiv End Get End Property _ Public ReadOnly Property tblDatenarchiv_Collection() As tblDatenarchiv_CollectionDataTable Get Return Me.tabletblDatenarchiv_Collection End Get End Property _ Public ReadOnly Property tblDEBundeslaenderPLZ() As tblDEBundeslaenderPLZDataTable Get Return Me.tabletblDEBundeslaenderPLZ End Get End Property _ Public ReadOnly Property tblDHF_Anhaenge() As tblDHF_AnhaengeDataTable Get Return Me.tabletblDHF_Anhaenge End Get End Property _ Public ReadOnly Property tblDieselArchiv() As tblDieselArchivDataTable Get Return Me.tabletblDieselArchiv End Get End Property _ Public ReadOnly Property tblDigicust_Sendungen() As tblDigicust_SendungenDataTable Get Return Me.tabletblDigicust_Sendungen End Get End Property _ Public ReadOnly Property tblDigicust_Sessions() As tblDigicust_SessionsDataTable Get Return Me.tabletblDigicust_Sessions End Get End Property _ Public ReadOnly Property tblDigicust_Settings() As tblDigicust_SettingsDataTable Get Return Me.tabletblDigicust_Settings End Get End Property _ Public ReadOnly Property tblEABelegnummer() As tblEABelegnummerDataTable Get Return Me.tabletblEABelegnummer End Get End Property _ Public ReadOnly Property tblEABelegposition() As tblEABelegpositionDataTable Get Return Me.tabletblEABelegposition End Get End Property _ Public ReadOnly Property tblEmailBenachrichtigung() As tblEmailBenachrichtigungDataTable Get Return Me.tabletblEmailBenachrichtigung End Get End Property _ Public ReadOnly Property tblEmailBenachrichtigungArten() As tblEmailBenachrichtigungArtenDataTable Get Return Me.tabletblEmailBenachrichtigungArten End Get End Property _ Public ReadOnly Property tblEORIPruefung() As tblEORIPruefungDataTable Get Return Me.tabletblEORIPruefung End Get End Property _ Public ReadOnly Property tblEZB_Waehrungskurse() As tblEZB_WaehrungskurseDataTable Get Return Me.tabletblEZB_Waehrungskurse End Get End Property _ Public ReadOnly Property tblEZT_Importcodenummern() As tblEZT_ImportcodenummernDataTable Get Return Me.tabletblEZT_Importcodenummern End Get End Property _ Public ReadOnly Property tblFahrerDaten() As tblFahrerDatenDataTable Get Return Me.tabletblFahrerDaten End Get End Property _ Public ReadOnly Property tblFirma() As tblFirmaDataTable Get Return Me.tabletblFirma End Get End Property _ Public ReadOnly Property tblFiskal_Daten() As tblFiskal_DatenDataTable Get Return Me.tabletblFiskal_Daten End Get End Property _ Public ReadOnly Property tblFiskalkunden() As tblFiskalkundenDataTable Get Return Me.tabletblFiskalkunden End Get End Property _ Public ReadOnly Property tblFormulardaten() As tblFormulardatenDataTable Get Return Me.tabletblFormulardaten End Get End Property _ Public ReadOnly Property tblFormulareVorlagen() As tblFormulareVorlagenDataTable Get Return Me.tabletblFormulareVorlagen End Get End Property _ Public ReadOnly Property tblFormulareVorlagenValues() As tblFormulareVorlagenValuesDataTable Get Return Me.tabletblFormulareVorlagenValues End Get End Property _ Public ReadOnly Property tblFremdSpeditionenZuordnung() As tblFremdSpeditionenZuordnungDataTable Get Return Me.tabletblFremdSpeditionenZuordnung End Get End Property _ Public ReadOnly Property tblFTP_Log() As tblFTP_LogDataTable Get Return Me.tabletblFTP_Log End Get End Property _ Public ReadOnly Property tblFTP_Log_Backup2() As tblFTP_Log_Backup2DataTable Get Return Me.tabletblFTP_Log_Backup2 End Get End Property _ Public ReadOnly Property tblGebuehrenvermarktungsnormen() As tblGebuehrenvermarktungsnormenDataTable Get Return Me.tabletblGebuehrenvermarktungsnormen End Get End Property _ Public ReadOnly Property tblGelangensbestaetigung() As tblGelangensbestaetigungDataTable Get Return Me.tabletblGelangensbestaetigung End Get End Property _ Public ReadOnly Property tblGeschäftsjahr() As tblGeschäftsjahrDataTable Get Return Me.tabletblGeschäftsjahr End Get End Property _ Public ReadOnly Property tblGeschäftsjahrBelegNr() As tblGeschäftsjahrBelegNrDataTable Get Return Me.tabletblGeschäftsjahrBelegNr End Get End Property _ Public ReadOnly Property tblGeschäftsjahrJournalNr() As tblGeschäftsjahrJournalNrDataTable Get Return Me.tabletblGeschäftsjahrJournalNr End Get End Property _ Public ReadOnly Property tblGestellungsgarantien() As tblGestellungsgarantienDataTable Get Return Me.tabletblGestellungsgarantien End Get End Property _ Public ReadOnly Property tblGestellungsmitteilung() As tblGestellungsmitteilungDataTable Get Return Me.tabletblGestellungsmitteilung End Get End Property _ Public ReadOnly Property tblGestellungsmitteilung_Positionen() As tblGestellungsmitteilung_PositionenDataTable Get Return Me.tabletblGestellungsmitteilung_Positionen End Get End Property _ Public ReadOnly Property tblGOBOXBestellungen() As tblGOBOXBestellungenDataTable Get Return Me.tabletblGOBOXBestellungen End Get End Property _ Public ReadOnly Property tblGVMS() As tblGVMSDataTable Get Return Me.tabletblGVMS End Get End Property _ Public ReadOnly Property tblGVMS_Carriers() As tblGVMS_CarriersDataTable Get Return Me.tabletblGVMS_Carriers End Get End Property _ Public ReadOnly Property tblGVMS_Ports() As tblGVMS_PortsDataTable Get Return Me.tabletblGVMS_Ports End Get End Property _ Public ReadOnly Property tblGVMS_Pos() As tblGVMS_PosDataTable Get Return Me.tabletblGVMS_Pos End Get End Property _ Public ReadOnly Property tblGVMS_Routes() As tblGVMS_RoutesDataTable Get Return Me.tabletblGVMS_Routes End Get End Property _ Public ReadOnly Property tblHandlingssaetzeIntern() As tblHandlingssaetzeInternDataTable Get Return Me.tabletblHandlingssaetzeIntern End Get End Property _ Public ReadOnly Property tblHistorie() As tblHistorieDataTable Get Return Me.tabletblHistorie End Get End Property _ Public ReadOnly Property tblIDS_Transaktionen() As tblIDS_TransaktionenDataTable Get Return Me.tabletblIDS_Transaktionen End Get End Property _ Public ReadOnly Property tblKassenbuch() As tblKassenbuchDataTable Get Return Me.tabletblKassenbuch End Get End Property _ Public ReadOnly Property tblKonto() As tblKontoDataTable Get Return Me.tabletblKonto End Get End Property _ Public ReadOnly Property tblKundenAufschubkonten() As tblKundenAufschubkontenDataTable Get Return Me.tabletblKundenAufschubkonten End Get End Property _ Public ReadOnly Property tblKundenBesonderheiten() As tblKundenBesonderheitenDataTable Get Return Me.tabletblKundenBesonderheiten End Get End Property _ Public ReadOnly Property tblKundenBesonderheiten_Kategorien() As tblKundenBesonderheiten_KategorienDataTable Get Return Me.tabletblKundenBesonderheiten_Kategorien End Get End Property _ Public ReadOnly Property tblKundenDatenblatt() As tblKundenDatenblattDataTable Get Return Me.tabletblKundenDatenblatt End Get End Property _ Public ReadOnly Property tblKundenErweitert() As tblKundenErweitertDataTable Get Return Me.tabletblKundenErweitert End Get End Property _ Public ReadOnly Property tblKundenKontakt() As tblKundenKontaktDataTable Get Return Me.tabletblKundenKontakt End Get End Property _ Public ReadOnly Property tblKundenKontaktArten() As tblKundenKontaktArtenDataTable Get Return Me.tabletblKundenKontaktArten End Get End Property _ Public ReadOnly Property tblKundenumsatz() As tblKundenumsatzDataTable Get Return Me.tabletblKundenumsatz End Get End Property _ Public ReadOnly Property tblKundenVermerke() As tblKundenVermerkeDataTable Get Return Me.tabletblKundenVermerke End Get End Property _ Public ReadOnly Property tblKundenVertraege() As tblKundenVertraegeDataTable Get Return Me.tabletblKundenVertraege End Get End Property _ Public ReadOnly Property tblKundenVertraegeArten() As tblKundenVertraegeArtenDataTable Get Return Me.tabletblKundenVertraegeArten End Get End Property _ Public ReadOnly Property tblKundenVollmachten() As tblKundenVollmachtenDataTable Get Return Me.tabletblKundenVollmachten End Get End Property _ Public ReadOnly Property tblKundenVollmachtenArt() As tblKundenVollmachtenArtDataTable Get Return Me.tabletblKundenVollmachtenArt End Get End Property _ Public ReadOnly Property tblLogbuch() As tblLogbuchDataTable Get Return Me.tabletblLogbuch End Get End Property _ Public ReadOnly Property tblMandant() As tblMandantDataTable Get Return Me.tabletblMandant End Get End Property _ Public ReadOnly Property tblMautIT_Belegarten() As tblMautIT_BelegartenDataTable Get Return Me.tabletblMautIT_Belegarten End Get End Property _ Public ReadOnly Property tblMautITArchiv() As tblMautITArchivDataTable Get Return Me.tabletblMautITArchiv End Get End Property _ Public ReadOnly Property tblMDM_Paramter() As tblMDM_ParamterDataTable Get Return Me.tabletblMDM_Paramter End Get End Property _ Public ReadOnly Property tblMSECustomers() As tblMSECustomersDataTable Get Return Me.tabletblMSECustomers End Get End Property _ Public ReadOnly Property tblMSEImport() As tblMSEImportDataTable Get Return Me.tabletblMSEImport End Get End Property _ Public ReadOnly Property tblMSEInvoices() As tblMSEInvoicesDataTable Get Return Me.tabletblMSEInvoices End Get End Property _ Public ReadOnly Property tblMSELeistungen() As tblMSELeistungenDataTable Get Return Me.tabletblMSELeistungen End Get End Property _ Public ReadOnly Property tblMSESettlements() As tblMSESettlementsDataTable Get Return Me.tabletblMSESettlements End Get End Property _ Public ReadOnly Property tblMSETransactions() As tblMSETransactionsDataTable Get Return Me.tabletblMSETransactions End Get End Property _ Public ReadOnly Property tblMSETransactionsArchiv() As tblMSETransactionsArchivDataTable Get Return Me.tabletblMSETransactionsArchiv End Get End Property _ Public ReadOnly Property tblMSETransactionsArchivOLD() As tblMSETransactionsArchivOLDDataTable Get Return Me.tabletblMSETransactionsArchivOLD End Get End Property _ Public ReadOnly Property tblNCTS_TR() As tblNCTS_TRDataTable Get Return Me.tabletblNCTS_TR End Get End Property _ Public ReadOnly Property tblNCTS_TR_Nachrichten() As tblNCTS_TR_NachrichtenDataTable Get Return Me.tabletblNCTS_TR_Nachrichten End Get End Property _ Public ReadOnly Property tblNCTS_TR_Sicherheitsangaben() As tblNCTS_TR_SicherheitsangabenDataTable Get Return Me.tabletblNCTS_TR_Sicherheitsangaben End Get End Property _ Public ReadOnly Property tblNCTS_TR_Warenposition() As tblNCTS_TR_WarenpositionDataTable Get Return Me.tabletblNCTS_TR_Warenposition End Get End Property _ Public ReadOnly Property tblNCTS_TR_WarenpositionPackstuecke() As tblNCTS_TR_WarenpositionPackstueckeDataTable Get Return Me.tabletblNCTS_TR_WarenpositionPackstuecke End Get End Property _ Public ReadOnly Property tblNCTSGestellungsadressen() As tblNCTSGestellungsadressenDataTable Get Return Me.tabletblNCTSGestellungsadressen End Get End Property _ Public ReadOnly Property tblNTCSRouten() As tblNTCSRoutenDataTable Get Return Me.tabletblNTCSRouten End Get End Property _ Public ReadOnly Property tblOffertenArchiv() As tblOffertenArchivDataTable Get Return Me.tabletblOffertenArchiv End Get End Property _ Public ReadOnly Property tblOffertenPositionenArchiv() As tblOffertenPositionenArchivDataTable Get Return Me.tabletblOffertenPositionenArchiv End Get End Property _ Public ReadOnly Property tblOregonNCTS_DeclarationData() As tblOregonNCTS_DeclarationDataDataTable Get Return Me.tabletblOregonNCTS_DeclarationData End Get End Property _ Public ReadOnly Property tblOregonNCTS_Declarations_AdditionalCodesAttribute() As tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable Get Return Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute End Get End Property _ Public ReadOnly Property tblOregonNCTS_Declarations_DocumentsAttribute() As tblOregonNCTS_Declarations_DocumentsAttributeDataTable Get Return Me.tabletblOregonNCTS_Declarations_DocumentsAttribute End Get End Property _ Public ReadOnly Property tblOregonNCTS_Declarations_GoodsAttribute() As tblOregonNCTS_Declarations_GoodsAttributeDataTable Get Return Me.tabletblOregonNCTS_Declarations_GoodsAttribute End Get End Property _ Public ReadOnly Property tblOregonNCTS_Declarations_PacksAttribute() As tblOregonNCTS_Declarations_PacksAttributeDataTable Get Return Me.tabletblOregonNCTS_Declarations_PacksAttribute End Get End Property _ Public ReadOnly Property tblOregonNCTS_Declarations_PartiesAttribute() As tblOregonNCTS_Declarations_PartiesAttributeDataTable Get Return Me.tabletblOregonNCTS_Declarations_PartiesAttribute End Get End Property _ Public ReadOnly Property tblOregonNCTS_Declarations_ProducedDocumentsAttribute() As tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable Get Return Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute End Get End Property _ Public ReadOnly Property tblOregonNCTS_Declarations_TraderAdditionsAttribute() As tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable Get Return Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute End Get End Property _ Public ReadOnly Property tblOregonNCTS_ReferenceTemplate() As tblOregonNCTS_ReferenceTemplateDataTable Get Return Me.tabletblOregonNCTS_ReferenceTemplate End Get End Property _ Public ReadOnly Property tblOriginalATR() As tblOriginalATRDataTable Get Return Me.tabletblOriginalATR End Get End Property _ Public ReadOnly Property tblPartnersystem_Paramter() As tblPartnersystem_ParamterDataTable Get Return Me.tabletblPartnersystem_Paramter End Get End Property _ Public ReadOnly Property tblPfad() As tblPfadDataTable Get Return Me.tabletblPfad End Get End Property _ Public ReadOnly Property tblPLOSE_Details() As tblPLOSE_DetailsDataTable Get Return Me.tabletblPLOSE_Details End Get End Property _ Public ReadOnly Property tblPLOSE_Inv_Data() As tblPLOSE_Inv_DataDataTable Get Return Me.tabletblPLOSE_Inv_Data End Get End Property _ Public ReadOnly Property tblPLOSE_Lieferant() As tblPLOSE_LieferantDataTable Get Return Me.tabletblPLOSE_Lieferant End Get End Property _ Public ReadOnly Property tblPLOSE_Produktbeschreibung() As tblPLOSE_ProduktbeschreibungDataTable Get Return Me.tabletblPLOSE_Produktbeschreibung End Get End Property _ Public ReadOnly Property tblPosNr() As tblPosNrDataTable Get Return Me.tabletblPosNr End Get End Property _ Public ReadOnly Property tblPostversand() As tblPostversandDataTable Get Return Me.tabletblPostversand End Get End Property _ Public ReadOnly Property tblPreislisten() As tblPreislistenDataTable Get Return Me.tabletblPreislisten End Get End Property _ Public ReadOnly Property tblPreislistenpositionen() As tblPreislistenpositionenDataTable Get Return Me.tabletblPreislistenpositionen End Get End Property _ Public ReadOnly Property tblPreistabellen() As tblPreistabellenDataTable Get Return Me.tabletblPreistabellen End Get End Property _ Public ReadOnly Property tblPreistabellenpositionen() As tblPreistabellenpositionenDataTable Get Return Me.tabletblPreistabellenpositionen End Get End Property _ Public ReadOnly Property tblQS_Abfertigungsarten() As tblQS_AbfertigungsartenDataTable Get Return Me.tabletblQS_Abfertigungsarten End Get End Property _ Public ReadOnly Property tblQS_Aufträge() As tblQS_AufträgeDataTable Get Return Me.tabletblQS_Aufträge End Get End Property _ Public ReadOnly Property tblQS_Auftragspositionen() As tblQS_AuftragspositionenDataTable Get Return Me.tabletblQS_Auftragspositionen End Get End Property _ Public ReadOnly Property tblQS_Teams() As tblQS_TeamsDataTable Get Return Me.tabletblQS_Teams End Get End Property _ Public ReadOnly Property tblQS_TeamsMA() As tblQS_TeamsMADataTable Get Return Me.tabletblQS_TeamsMA End Get End Property _ Public ReadOnly Property tblRechnungsnotizen() As tblRechnungsnotizenDataTable Get Return Me.tabletblRechnungsnotizen End Get End Property _ Public ReadOnly Property tblRef() As tblRefDataTable Get Return Me.tabletblRef End Get End Property _ Public ReadOnly Property tblRefBeziehungen() As tblRefBeziehungenDataTable Get Return Me.tabletblRefBeziehungen End Get End Property _ Public ReadOnly Property tblRKSV_Kassen() As tblRKSV_KassenDataTable Get Return Me.tabletblRKSV_Kassen End Get End Property _ Public ReadOnly Property tblRKSV_POS() As tblRKSV_POSDataTable Get Return Me.tabletblRKSV_POS End Get End Property _ Public ReadOnly Property tblRMCImport() As tblRMCImportDataTable Get Return Me.tabletblRMCImport End Get End Property _ Public ReadOnly Property tblSMS() As tblSMSDataTable Get Return Me.tabletblSMS End Get End Property _ Public ReadOnly Property tblSpeditionsbucharchiv() As tblSpeditionsbucharchivDataTable Get Return Me.tabletblSpeditionsbucharchiv End Get End Property _ Public ReadOnly Property tblSpeditionsbuchEndEmpfaenger() As tblSpeditionsbuchEndEmpfaengerDataTable Get Return Me.tabletblSpeditionsbuchEndEmpfaenger End Get End Property _ Public ReadOnly Property tblSpeditionsbuchUnterPos() As tblSpeditionsbuchUnterPosDataTable Get Return Me.tabletblSpeditionsbuchUnterPos End Get End Property _ Public ReadOnly Property tblSpeditionsbuchUnterPosArten() As tblSpeditionsbuchUnterPosArtenDataTable Get Return Me.tabletblSpeditionsbuchUnterPosArten End Get End Property _ Public ReadOnly Property tblSteuernummern() As tblSteuernummernDataTable Get Return Me.tabletblSteuernummern End Get End Property _ Public ReadOnly Property tblSteuersätze() As tblSteuersätzeDataTable Get Return Me.tabletblSteuersätze End Get End Property _ Public ReadOnly Property tblSteuertyp() As tblSteuertypDataTable Get Return Me.tabletblSteuertyp End Get End Property _ Public ReadOnly Property tblTelotec_Abgaben() As tblTelotec_AbgabenDataTable Get Return Me.tabletblTelotec_Abgaben End Get End Property _ Public ReadOnly Property tblTelotec_Anmeldung() As tblTelotec_AnmeldungDataTable Get Return Me.tabletblTelotec_Anmeldung End Get End Property _ Public ReadOnly Property tblTelotec_Packstuecke() As tblTelotec_PackstueckeDataTable Get Return Me.tabletblTelotec_Packstuecke End Get End Property _ Public ReadOnly Property tblTelotec_Paramter() As tblTelotec_ParamterDataTable Get Return Me.tabletblTelotec_Paramter End Get End Property _ Public ReadOnly Property tblTelotec_Positionsdaten() As tblTelotec_PositionsdatenDataTable Get Return Me.tabletblTelotec_Positionsdaten End Get End Property _ Public ReadOnly Property tblTelotec_PositionsdatenAbgaben() As tblTelotec_PositionsdatenAbgabenDataTable Get Return Me.tabletblTelotec_PositionsdatenAbgaben End Get End Property _ Public ReadOnly Property tblTelotec_PositionsdatenDokumente() As tblTelotec_PositionsdatenDokumenteDataTable Get Return Me.tabletblTelotec_PositionsdatenDokumente End Get End Property _ Public ReadOnly Property tblTelotec_Sicherheit() As tblTelotec_SicherheitDataTable Get Return Me.tabletblTelotec_Sicherheit End Get End Property _ Public ReadOnly Property tblTest() As tblTestDataTable Get Return Me.tabletblTest End Get End Property _ Public ReadOnly Property tblTextkonserve() As tblTextkonserveDataTable Get Return Me.tabletblTextkonserve End Get End Property _ Public ReadOnly Property tblTR_Aviso() As tblTR_AvisoDataTable Get Return Me.tabletblTR_Aviso End Get End Property _ Public ReadOnly Property tblTR_AvisoAnheange() As tblTR_AvisoAnheangeDataTable Get Return Me.tabletblTR_AvisoAnheange End Get End Property _ Public ReadOnly Property tblTR_Shipment() As tblTR_ShipmentDataTable Get Return Me.tabletblTR_Shipment End Get End Property _ Public ReadOnly Property tblTR_Shipment_Adressen() As tblTR_Shipment_AdressenDataTable Get Return Me.tabletblTR_Shipment_Adressen End Get End Property _ Public ReadOnly Property tblTR_Shipment_Document() As tblTR_Shipment_DocumentDataTable Get Return Me.tabletblTR_Shipment_Document End Get End Property _ Public ReadOnly Property tblTR_Shipment_Position() As tblTR_Shipment_PositionDataTable Get Return Me.tabletblTR_Shipment_Position End Get End Property _ Public ReadOnly Property tblTR_Shipment_Position_Document() As tblTR_Shipment_Position_DocumentDataTable Get Return Me.tabletblTR_Shipment_Position_Document End Get End Property _ Public ReadOnly Property tblTranslate() As tblTranslateDataTable Get Return Me.tabletblTranslate End Get End Property _ Public ReadOnly Property tblTranslateAuto() As tblTranslateAutoDataTable Get Return Me.tabletblTranslateAuto End Get End Property _ Public ReadOnly Property tblTrdinHeader() As tblTrdinHeaderDataTable Get Return Me.tabletblTrdinHeader End Get End Property _ Public ReadOnly Property tblTrdinInvoice() As tblTrdinInvoiceDataTable Get Return Me.tabletblTrdinInvoice End Get End Property _ Public ReadOnly Property tblTrdinProduct() As tblTrdinProductDataTable Get Return Me.tabletblTrdinProduct End Get End Property _ Public ReadOnly Property tblUIDPruefung() As tblUIDPruefungDataTable Get Return Me.tabletblUIDPruefung End Get End Property _ Public ReadOnly Property tblUStVAntrag() As tblUStVAntragDataTable Get Return Me.tabletblUStVAntrag End Get End Property _ Public ReadOnly Property tblUStVBelegeingang() As tblUStVBelegeingangDataTable Get Return Me.tabletblUStVBelegeingang End Get End Property _ Public ReadOnly Property tblUStVErstattung() As tblUStVErstattungDataTable Get Return Me.tabletblUStVErstattung End Get End Property _ Public ReadOnly Property tblUStVFormulare() As tblUStVFormulareDataTable Get Return Me.tabletblUStVFormulare End Get End Property _ Public ReadOnly Property tblUStVKuLäFo() As tblUStVKuLäFoDataTable Get Return Me.tabletblUStVKuLäFo End Get End Property _ Public ReadOnly Property tblUStVLäFo() As tblUStVLäFoDataTable Get Return Me.tabletblUStVLäFo End Get End Property _ Public ReadOnly Property tblUStVLeistender() As tblUStVLeistenderDataTable Get Return Me.tabletblUStVLeistender End Get End Property _ Public ReadOnly Property tblUStVPositionen() As tblUStVPositionenDataTable Get Return Me.tabletblUStVPositionen End Get End Property _ Public ReadOnly Property tblUStVTexte() As tblUStVTexteDataTable Get Return Me.tabletblUStVTexte End Get End Property _ Public ReadOnly Property tblUTAArchiv() As tblUTAArchivDataTable Get Return Me.tabletblUTAArchiv End Get End Property _ Public ReadOnly Property tblUTAFakturierwarenarten() As tblUTAFakturierwarenartenDataTable Get Return Me.tabletblUTAFakturierwarenarten End Get End Property _ Public ReadOnly Property tblUTAHeader() As tblUTAHeaderDataTable Get Return Me.tabletblUTAHeader End Get End Property _ Public ReadOnly Property tblUTAHeaderNew() As tblUTAHeaderNewDataTable Get Return Me.tabletblUTAHeaderNew End Get End Property _ Public ReadOnly Property tblUTAImport() As tblUTAImportDataTable Get Return Me.tabletblUTAImport End Get End Property _ Public ReadOnly Property tblUTAImportNew() As tblUTAImportNewDataTable Get Return Me.tabletblUTAImportNew End Get End Property _ Public ReadOnly Property tblUTALeistungen() As tblUTALeistungenDataTable Get Return Me.tabletblUTALeistungen End Get End Property _ Public ReadOnly Property tblUTATrailer() As tblUTATrailerDataTable Get Return Me.tabletblUTATrailer End Get End Property _ Public ReadOnly Property tblUTATrailerNew() As tblUTATrailerNewDataTable Get Return Me.tabletblUTATrailerNew End Get End Property _ Public ReadOnly Property tblVermarktungsnormen() As tblVermarktungsnormenDataTable Get Return Me.tabletblVermarktungsnormen End Get End Property _ Public ReadOnly Property tblVermarktungsnormenGebuehren() As tblVermarktungsnormenGebuehrenDataTable Get Return Me.tabletblVermarktungsnormenGebuehren End Get End Property _ Public ReadOnly Property tblVorauskassen() As tblVorauskassenDataTable Get Return Me.tabletblVorauskassen End Get End Property _ Public ReadOnly Property tblWahrungtabelleNEU() As tblWahrungtabelleNEUDataTable Get Return Me.tabletblWahrungtabelleNEU End Get End Property _ Public ReadOnly Property tblWarenbezeichnungBegriffe() As tblWarenbezeichnungBegriffeDataTable Get Return Me.tabletblWarenbezeichnungBegriffe End Get End Property _ Public ReadOnly Property tblZabis_Atlas_NCTS() As tblZabis_Atlas_NCTSDataTable Get Return Me.tabletblZabis_Atlas_NCTS End Get End Property _ Public ReadOnly Property tblZahlungszieltexte() As tblZahlungszieltexteDataTable Get Return Me.tabletblZahlungszieltexte End Get End Property _ Public ReadOnly Property tblZolaris_EZoll_NCTS() As tblZolaris_EZoll_NCTSDataTable Get Return Me.tabletblZolaris_EZoll_NCTS End Get End Property _ Public ReadOnly Property tblZOLL_Wechselkurse() As tblZOLL_WechselkurseDataTable Get Return Me.tabletblZOLL_Wechselkurse End Get End Property _ Public ReadOnly Property tblZollArtikel() As tblZollArtikelDataTable Get Return Me.tabletblZollArtikel End Get End Property _ Public ReadOnly Property tblZollUnterArtikel() As tblZollUnterArtikelDataTable Get Return Me.tabletblZollUnterArtikel End Get End Property _ Public ReadOnly Property TemporaryUpsizedTable2() As TemporaryUpsizedTable2DataTable Get Return Me.tableTemporaryUpsizedTable2 End Get End Property _ Public ReadOnly Property Verkehrszweige() As VerkehrszweigeDataTable Get Return Me.tableVerkehrszweige End Get End Property _ Public ReadOnly Property Vermerke() As VermerkeDataTable Get Return Me.tableVermerke End Get End Property _ Public ReadOnly Property Vorkosten() As VorkostenDataTable Get Return Me.tableVorkosten End Get End Property _ Public ReadOnly Property Währungstabelle() As WährungstabelleDataTable Get Return Me.tableWährungstabelle End Get End Property _ Public ReadOnly Property Zahlungsarten() As ZahlungsartenDataTable Get Return Me.tableZahlungsarten End Get End Property _ Public ReadOnly Property zbadz() As zbadzDataTable Get Return Me.tablezbadz End Get End Property _ Public ReadOnly Property zbant() As zbantDataTable Get Return Me.tablezbant End Get End Property _ Public ReadOnly Property zbapo() As zbapoDataTable Get Return Me.tablezbapo End Get End Property _ Public ReadOnly Property zbpos() As zbposDataTable Get Return Me.tablezbpos End Get End Property _ Public ReadOnly Property Zkteing() As ZkteingDataTable Get Return Me.tableZkteing End Get End Property _ Public ReadOnly Property Zollsysteme() As ZollsystemeDataTable Get Return Me.tableZollsysteme End Get End Property _ Public ReadOnly Property Zulassungen_ZnV() As Zulassungen_ZnVDataTable Get Return Me.tableZulassungen_ZnV End Get End Property _ Public ReadOnly Property vwKundenstamm() As vwKundenstammDataTable Get Return Me.tablevwKundenstamm End Get End Property _ Public ReadOnly Property vwReErfAuswahl() As vwReErfAuswahlDataTable Get Return Me.tablevwReErfAuswahl End Get End Property _ Public ReadOnly Property vwTrdinHeader() As vwTrdinHeaderDataTable Get Return Me.tablevwTrdinHeader End Get End Property _ Public ReadOnly Property vwTrdinInvoice() As vwTrdinInvoiceDataTable Get Return Me.tablevwTrdinInvoice End Get End Property _ Public ReadOnly Property vwTrdinProduct() As vwTrdinProductDataTable Get Return Me.tablevwTrdinProduct End Get End Property _ Public ReadOnly Property vwUStV_OP_Risikobericht() As vwUStV_OP_RisikoberichtDataTable Get Return Me.tablevwUStV_OP_Risikobericht End Get End Property _ Public ReadOnly Property vwUStVAntrag() As vwUStVAntragDataTable Get Return Me.tablevwUStVAntrag End Get End Property _ Public ReadOnly Property vwUStVBelegeingang() As vwUStVBelegeingangDataTable Get Return Me.tablevwUStVBelegeingang End Get End Property _ Public ReadOnly Property vwUStVErstattung() As vwUStVErstattungDataTable Get Return Me.tablevwUStVErstattung End Get End Property _ Public ReadOnly Property vwUStVPositionen() As vwUStVPositionenDataTable Get Return Me.tablevwUStVPositionen End Get End Property _ Public ReadOnly Property vwUStVVorauszahlung() As vwUStVVorauszahlungDataTable Get Return Me.tablevwUStVVorauszahlung End Get End Property _ Public ReadOnly Property vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable Get Return Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1 End Get End Property _ Public ReadOnly Property vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable Get Return Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new End Get End Property _ Public ReadOnly Property vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable Get Return Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2 End Get End Property _ Public ReadOnly Property vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable Get Return Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new End Get End Property _ Public ReadOnly Property spAlleTabellen() As spAlleTabellenDataTable Get Return Me.tablespAlleTabellen End Get End Property _ Public ReadOnly Property spReDruReNrVergeben() As spReDruReNrVergebenDataTable Get Return Me.tablespReDruReNrVergeben End Get End Property _ Public ReadOnly Property spReDruSchnSaReDruckinfoEintragen() As spReDruSchnSaReDruckinfoEintragenDataTable Get Return Me.tablespReDruSchnSaReDruckinfoEintragen End Get End Property _ Public ReadOnly Property spReDruSchnSaReNrEintragen() As spReDruSchnSaReNrEintragenDataTable Get Return Me.tablespReDruSchnSaReNrEintragen End Get End Property _ Public ReadOnly Property spReverseChargeSumme() As spReverseChargeSummeDataTable Get Return Me.tablespReverseChargeSumme End Get End Property _ Public ReadOnly Property spSELECT_Bankspesen_für_KundenNr() As spSELECT_Bankspesen_für_KundenNrDataTable Get Return Me.tablespSELECT_Bankspesen_für_KundenNr End Get End Property _ Public ReadOnly Property spSELECT_tblZabis_Atlas_NCTS() As spSELECT_tblZabis_Atlas_NCTSDataTable Get Return Me.tablespSELECT_tblZabis_Atlas_NCTS End Get End Property _ Public ReadOnly Property spSELECTAufschubdaten() As spSELECTAufschubdatenDataTable Get Return Me.tablespSELECTAufschubdaten End Get End Property _ Public ReadOnly Property spSELECTRechnungsausgang() As spSELECTRechnungsausgangDataTable Get Return Me.tablespSELECTRechnungsausgang End Get End Property _ Public ReadOnly Property spSELECTRechnungsausgangPositionen() As spSELECTRechnungsausgangPositionenDataTable Get Return Me.tablespSELECTRechnungsausgangPositionen End Get End Property _ Public ReadOnly Property spSELECTRechnungsnummern() As spSELECTRechnungsnummernDataTable Get Return Me.tablespSELECTRechnungsnummern End Get End Property _ Public ReadOnly Property spSelectReDruSaReRKAvisoID() As spSelectReDruSaReRKAvisoIDDataTable Get Return Me.tablespSelectReDruSaReRKAvisoID End Get End Property _ Public ReadOnly Property spSELECTReDruSaReRKgruppieren() As spSELECTReDruSaReRKgruppierenDataTable Get Return Me.tablespSELECTReDruSaReRKgruppieren End Get End Property _ Public ReadOnly Property spSelectReDruSchnBB_RK() As spSelectReDruSchnBB_RKDataTable Get Return Me.tablespSelectReDruSchnBB_RK End Get End Property _ Public ReadOnly Property spSelectReDruSchnKunde() As spSelectReDruSchnKundeDataTable Get Return Me.tablespSelectReDruSchnKunde End Get End Property _ Public ReadOnly Property spSelectReDruSchnSumBS415() As spSelectReDruSchnSumBS415DataTable Get Return Me.tablespSelectReDruSchnSumBS415 End Get End Property _ Public ReadOnly Property spSelectReDruSchnTextZollbelegePrüfen() As spSelectReDruSchnTextZollbelegePrüfenDataTable Get Return Me.tablespSelectReDruSchnTextZollbelegePrüfen End Get End Property _ Public ReadOnly Property spSELECTReDruSumReGu() As spSELECTReDruSumReGuDataTable Get Return Me.tablespSELECTReDruSumReGu End Get End Property _ Public ReadOnly Property spSELECTReDruText() As spSELECTReDruTextDataTable Get Return Me.tablespSELECTReDruText End Get End Property _ Public ReadOnly Property spSelectReErfAuswahl() As spSelectReErfAuswahlDataTable Get Return Me.tablespSelectReErfAuswahl End Get End Property _ Public ReadOnly Property spSELECTReErfKA() As spSELECTReErfKADataTable Get Return Me.tablespSELECTReErfKA End Get End Property _ Public ReadOnly Property spSelectRK() As spSelectRKDataTable Get Return Me.tablespSelectRK End Get End Property _ Public ReadOnly Property spSelectRKPKey() As spSelectRKPKeyDataTable Get Return Me.tablespSelectRKPKey End Get End Property _ Public ReadOnly Property spSelectRP() As spSelectRPDataTable Get Return Me.tablespSelectRP End Get End Property _ Public ReadOnly Property spSelectRPFKeyRK() As spSelectRPFKeyRKDataTable Get Return Me.tablespSelectRPFKeyRK End Get End Property _ Public ReadOnly Property spSelectRPPKey() As spSelectRPPKeyDataTable Get Return Me.tablespSelectRPPKey End Get End Property _ Public ReadOnly Property spSELECTtblAnmeldungPKey() As spSELECTtblAnmeldungPKeyDataTable Get Return Me.tablespSELECTtblAnmeldungPKey End Get End Property _ Public ReadOnly Property spSELECTtblQS_Abfertigungsarten() As spSELECTtblQS_AbfertigungsartenDataTable Get Return Me.tablespSELECTtblQS_Abfertigungsarten End Get End Property _ Public ReadOnly Property spSELECTtblQS_Aufträge() As spSELECTtblQS_AufträgeDataTable Get Return Me.tablespSELECTtblQS_Aufträge End Get End Property _ Public ReadOnly Property spSELECTtblQS_Auftragspositionen() As spSELECTtblQS_AuftragspositionenDataTable Get Return Me.tablespSELECTtblQS_Auftragspositionen End Get End Property _ Public ReadOnly Property spSELECTtblTrdinHeader() As spSELECTtblTrdinHeaderDataTable Get Return Me.tablespSELECTtblTrdinHeader End Get End Property _ Public ReadOnly Property spSELECTtblTrdinInvoice() As spSELECTtblTrdinInvoiceDataTable Get Return Me.tablespSELECTtblTrdinInvoice End Get End Property _ Public ReadOnly Property spSELECTtblTrdinProduct() As spSELECTtblTrdinProductDataTable Get Return Me.tablespSELECTtblTrdinProduct End Get End Property _ Public ReadOnly Property spSELECTtblUStVAntrag() As spSELECTtblUStVAntragDataTable Get Return Me.tablespSELECTtblUStVAntrag End Get End Property _ Public ReadOnly Property spSELECTtblUStVBelegeingang() As spSELECTtblUStVBelegeingangDataTable Get Return Me.tablespSELECTtblUStVBelegeingang End Get End Property _ Public ReadOnly Property spSELECTtblUStVErstattung() As spSELECTtblUStVErstattungDataTable Get Return Me.tablespSELECTtblUStVErstattung End Get End Property _ Public ReadOnly Property spSELECTtblUStVPositionen() As spSELECTtblUStVPositionenDataTable Get Return Me.tablespSELECTtblUStVPositionen End Get End Property _ Public ReadOnly Property spSELECTtblZolaris_EZoll_NCTS() As spSELECTtblZolaris_EZoll_NCTSDataTable Get Return Me.tablespSELECTtblZolaris_EZoll_NCTS End Get End Property _ Public ReadOnly Property spSELECTUStVErstattungsschreiben() As spSELECTUStVErstattungsschreibenDataTable Get Return Me.tablespSELECTUStVErstattungsschreiben End Get End Property _ Public ReadOnly Property spSELECTUStVErstattungsschreiben2() As spSELECTUStVErstattungsschreiben2DataTable Get Return Me.tablespSELECTUStVErstattungsschreiben2 End Get End Property _ Public ReadOnly Property spSELECTZkteing() As spSELECTZkteingDataTable Get Return Me.tablespSELECTZkteing End Get End Property _ Public ReadOnly Property spTrdinFiBuSelectInvoice() As spTrdinFiBuSelectInvoiceDataTable Get Return Me.tablespTrdinFiBuSelectInvoice End Get End Property _ Public ReadOnly Property spTrdinFiBuSelectProduct() As spTrdinFiBuSelectProductDataTable Get Return Me.tablespTrdinFiBuSelectProduct End Get End Property _ Public ReadOnly Property spTrdinSchreibenSelectInvoicePKey() As spTrdinSchreibenSelectInvoicePKeyDataTable Get Return Me.tablespTrdinSchreibenSelectInvoicePKey End Get End Property _ Public ReadOnly Property spTrdinSchreibenSelectProductFKeyInvoice() As spTrdinSchreibenSelectProductFKeyInvoiceDataTable Get Return Me.tablespTrdinSchreibenSelectProductFKeyInvoice End Get End Property _ Public ReadOnly Property spTrdinSchreibenSelectProductPKey() As spTrdinSchreibenSelectProductPKeyDataTable Get Return Me.tablespTrdinSchreibenSelectProductPKey End Get End Property _ Public ReadOnly Property spUStVAntragLesenParameterPKey() As spUStVAntragLesenParameterPKeyDataTable Get Return Me.tablespUStVAntragLesenParameterPKey End Get End Property _ Public ReadOnly Property spUStVBelegeingangLesenParameterPKey() As spUStVBelegeingangLesenParameterPKeyDataTable Get Return Me.tablespUStVBelegeingangLesenParameterPKey End Get End Property _ Public ReadOnly Property spUStVErstattungLesenParameterPKey() As spUStVErstattungLesenParameterPKeyDataTable Get Return Me.tablespUStVErstattungLesenParameterPKey End Get End Property _ Public ReadOnly Property spUStVPositionenLesenParameterPKey() As spUStVPositionenLesenParameterPKeyDataTable Get Return Me.tablespUStVPositionenLesenParameterPKey End Get End Property _ Public ReadOnly Property spUStVRechnungÜbernehmenMSE() As spUStVRechnungÜbernehmenMSEDataTable Get Return Me.tablespUStVRechnungÜbernehmenMSE End Get End Property _ Public ReadOnly Property spUStVVorschau_IDS_Summe() As spUStVVorschau_IDS_SummeDataTable Get Return Me.tablespUStVVorschau_IDS_Summe End Get End Property _ Public ReadOnly Property spUStVVorschau_IT_Summe() As spUStVVorschau_IT_SummeDataTable Get Return Me.tablespUStVVorschau_IT_Summe End Get End Property _ Public ReadOnly Property spUStVVorschau_MSE_Summe() As spUStVVorschau_MSE_SummeDataTable Get Return Me.tablespUStVVorschau_MSE_Summe End Get End Property _ Public ReadOnly Property spUStVVorschau_UTA_Summe() As spUStVVorschau_UTA_SummeDataTable Get Return Me.tablespUStVVorschau_UTA_Summe End Get End Property _ Public ReadOnly Property spUStVVorschau_VERAG_Summe() As spUStVVorschau_VERAG_SummeDataTable Get Return Me.tablespUStVVorschau_VERAG_Summe End Get End Property _ Public ReadOnly Property spZolaris_EZoll_NCTS_Datenbereitstellung() As spZolaris_EZoll_NCTS_DatenbereitstellungDataTable Get Return Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung 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 VERAGDataSet = CType(MyBase.Clone,VERAGDataSet) 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("Abfertigungsarten")) Is Nothing) Then MyBase.Tables.Add(New AbfertigungsartenDataTable(ds.Tables("Abfertigungsarten"))) End If If (Not (ds.Tables("Abfertigungskosten der Korrespondenten")) Is Nothing) Then MyBase.Tables.Add(New Abfertigungskosten_der_KorrespondentenDataTable(ds.Tables("Abfertigungskosten der Korrespondenten"))) End If If (Not (ds.Tables("AbfertigungsLaender")) Is Nothing) Then MyBase.Tables.Add(New AbfertigungsLaenderDataTable(ds.Tables("AbfertigungsLaender"))) End If If (Not (ds.Tables("AbfertigungsLaenderAbfertigungsarten")) Is Nothing) Then MyBase.Tables.Add(New AbfertigungsLaenderAbfertigungsartenDataTable(ds.Tables("AbfertigungsLaenderAbfertigungsarten"))) End If If (Not (ds.Tables("Abgabenarten")) Is Nothing) Then MyBase.Tables.Add(New AbgabenartenDataTable(ds.Tables("Abgabenarten"))) End If If (Not (ds.Tables("Adressen")) Is Nothing) Then MyBase.Tables.Add(New AdressenDataTable(ds.Tables("Adressen"))) End If If (Not (ds.Tables("Aktivitätenlog")) Is Nothing) Then MyBase.Tables.Add(New AktivitätenlogDataTable(ds.Tables("Aktivitätenlog"))) End If If (Not (ds.Tables("Anlagen")) Is Nothing) Then MyBase.Tables.Add(New AnlagenDataTable(ds.Tables("Anlagen"))) End If If (Not (ds.Tables("atlas_status")) Is Nothing) Then MyBase.Tables.Add(New atlas_statusDataTable(ds.Tables("atlas_status"))) End If If (Not (ds.Tables("Aufschubdaten")) Is Nothing) Then MyBase.Tables.Add(New AufschubdatenDataTable(ds.Tables("Aufschubdaten"))) End If If (Not (ds.Tables("Aufschubkonten")) Is Nothing) Then MyBase.Tables.Add(New AufschubkontenDataTable(ds.Tables("Aufschubkonten"))) End If If (Not (ds.Tables("Belegarten")) Is Nothing) Then MyBase.Tables.Add(New BelegartenDataTable(ds.Tables("Belegarten"))) End If If (Not (ds.Tables("Berechnungsart")) Is Nothing) Then MyBase.Tables.Add(New BerechnungsartDataTable(ds.Tables("Berechnungsart"))) End If If (Not (ds.Tables("Berechnungsbogen")) Is Nothing) Then MyBase.Tables.Add(New BerechnungsbogenDataTable(ds.Tables("Berechnungsbogen"))) End If If (Not (ds.Tables("Berichte")) Is Nothing) Then MyBase.Tables.Add(New BerichteDataTable(ds.Tables("Berichte"))) End If If (Not (ds.Tables("CMR")) Is Nothing) Then MyBase.Tables.Add(New CMRDataTable(ds.Tables("CMR"))) End If If (Not (ds.Tables("Devisenkurse")) Is Nothing) Then MyBase.Tables.Add(New DevisenkurseDataTable(ds.Tables("Devisenkurse"))) End If If (Not (ds.Tables("EPBes")) Is Nothing) Then MyBase.Tables.Add(New EPBesDataTable(ds.Tables("EPBes"))) End If If (Not (ds.Tables("EPBesPOS")) Is Nothing) Then MyBase.Tables.Add(New EPBesPOSDataTable(ds.Tables("EPBesPOS"))) End If If (Not (ds.Tables("Filialen")) Is Nothing) Then MyBase.Tables.Add(New FilialenDataTable(ds.Tables("Filialen"))) End If If (Not (ds.Tables("Geschäftsarten")) Is Nothing) Then MyBase.Tables.Add(New GeschäftsartenDataTable(ds.Tables("Geschäftsarten"))) End If If (Not (ds.Tables("Korrespondenten")) Is Nothing) Then MyBase.Tables.Add(New KorrespondentenDataTable(ds.Tables("Korrespondenten"))) End If If (Not (ds.Tables("Kostenstellen")) Is Nothing) Then MyBase.Tables.Add(New KostenstellenDataTable(ds.Tables("Kostenstellen"))) End If If (Not (ds.Tables("Kreditkarten")) Is Nothing) Then MyBase.Tables.Add(New KreditkartenDataTable(ds.Tables("Kreditkarten"))) End If If (Not (ds.Tables("Kunden")) Is Nothing) Then MyBase.Tables.Add(New KundenDataTable(ds.Tables("Kunden"))) End If If (Not (ds.Tables("KundenFilialen")) Is Nothing) Then MyBase.Tables.Add(New KundenFilialenDataTable(ds.Tables("KundenFilialen"))) End If If (Not (ds.Tables("Länder der Bundesrepublik Deutschland")) Is Nothing) Then MyBase.Tables.Add(New Länder_der_Bundesrepublik_DeutschlandDataTable(ds.Tables("Länder der Bundesrepublik Deutschland"))) End If If (Not (ds.Tables("Länderverzeichnis für die Außenhandelsstatistik")) Is Nothing) Then MyBase.Tables.Add(New Länderverzeichnis_für_die_AußenhandelsstatistikDataTable(ds.Tables("Länderverzeichnis für die Außenhandelsstatistik"))) End If If (Not (ds.Tables("Leistungen")) Is Nothing) Then MyBase.Tables.Add(New LeistungenDataTable(ds.Tables("Leistungen"))) End If If (Not (ds.Tables("LeistungenBUKonten")) Is Nothing) Then MyBase.Tables.Add(New LeistungenBUKontenDataTable(ds.Tables("LeistungenBUKonten"))) End If If (Not (ds.Tables("Lieferbedingungen")) Is Nothing) Then MyBase.Tables.Add(New LieferbedingungenDataTable(ds.Tables("Lieferbedingungen"))) End If If (Not (ds.Tables("Nebenkosten der Korrespondenten")) Is Nothing) Then MyBase.Tables.Add(New Nebenkosten_der_KorrespondentenDataTable(ds.Tables("Nebenkosten der Korrespondenten"))) End If If (Not (ds.Tables("Offene Posten")) Is Nothing) Then MyBase.Tables.Add(New Offene_PostenDataTable(ds.Tables("Offene Posten"))) End If If (Not (ds.Tables("Offene_Posten_DVO")) Is Nothing) Then MyBase.Tables.Add(New Offene_Posten_DVODataTable(ds.Tables("Offene_Posten_DVO"))) End If If (Not (ds.Tables("Offerten")) Is Nothing) Then MyBase.Tables.Add(New OffertenDataTable(ds.Tables("Offerten"))) End If If (Not (ds.Tables("Offertenpositionen")) Is Nothing) Then MyBase.Tables.Add(New OffertenpositionenDataTable(ds.Tables("Offertenpositionen"))) End If If (Not (ds.Tables("Offertenstamm")) Is Nothing) Then MyBase.Tables.Add(New OffertenstammDataTable(ds.Tables("Offertenstamm"))) End If If (Not (ds.Tables("Personal")) Is Nothing) Then MyBase.Tables.Add(New PersonalDataTable(ds.Tables("Personal"))) End If If (Not (ds.Tables("Rechnungsausgang")) Is Nothing) Then MyBase.Tables.Add(New RechnungsausgangDataTable(ds.Tables("Rechnungsausgang"))) End If If (Not (ds.Tables("RechnungsausgangAnhaenge")) Is Nothing) Then MyBase.Tables.Add(New RechnungsausgangAnhaengeDataTable(ds.Tables("RechnungsausgangAnhaenge"))) End If If (Not (ds.Tables("RechnungsausgangPositionen")) Is Nothing) Then MyBase.Tables.Add(New RechnungsausgangPositionenDataTable(ds.Tables("RechnungsausgangPositionen"))) End If If (Not (ds.Tables("Rechnungsnummern")) Is Nothing) Then MyBase.Tables.Add(New RechnungsnummernDataTable(ds.Tables("Rechnungsnummern"))) End If If (Not (ds.Tables("Rechnungstexte")) Is Nothing) Then MyBase.Tables.Add(New RechnungstexteDataTable(ds.Tables("Rechnungstexte"))) End If If (Not (ds.Tables("Speditionsbuch")) Is Nothing) Then MyBase.Tables.Add(New SpeditionsbuchDataTable(ds.Tables("Speditionsbuch"))) End If If (Not (ds.Tables("Standardofferten")) Is Nothing) Then MyBase.Tables.Add(New StandardoffertenDataTable(ds.Tables("Standardofferten"))) End If If (Not (ds.Tables("StandardoffertenFirma")) Is Nothing) Then MyBase.Tables.Add(New StandardoffertenFirmaDataTable(ds.Tables("StandardoffertenFirma"))) End If If (Not (ds.Tables("Steuertabelle")) Is Nothing) Then MyBase.Tables.Add(New SteuertabelleDataTable(ds.Tables("Steuertabelle"))) End If If (Not (ds.Tables("tbl_ASFINAG_FileInfo")) Is Nothing) Then MyBase.Tables.Add(New tbl_ASFINAG_FileInfoDataTable(ds.Tables("tbl_ASFINAG_FileInfo"))) End If If (Not (ds.Tables("tbl_BMD_Länder")) Is Nothing) Then MyBase.Tables.Add(New tbl_BMD_LänderDataTable(ds.Tables("tbl_BMD_Länder"))) End If If (Not (ds.Tables("tbl_DY_Paramter")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ParamterDataTable(ds.Tables("tbl_DY_Paramter"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable(ds.Tables("tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_A0127_BeteiligtenKonstellation")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable(ds.Tables("tbl_DY_ZollDE_A0127_BeteiligtenKonstellation"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0008_LaenderFull")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0008_LaenderFullDataTable(ds.Tables("tbl_DY_ZollDE_C0008_LaenderFull"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0010_LaenderAES")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0010_LaenderAESDataTable(ds.Tables("tbl_DY_ZollDE_C0010_LaenderAES"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0013_UnterlagenArten")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable(ds.Tables("tbl_DY_ZollDE_C0013_UnterlagenArten"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0014_VorpapierArten")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0014_VorpapierArtenDataTable(ds.Tables("tbl_DY_ZollDE_C0014_VorpapierArten"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable(ds.Tables("tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0141_Zollstellen")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0141_ZollstellenDataTable(ds.Tables("tbl_DY_ZollDE_C0141_Zollstellen"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_C0219_TypeTransportMeans")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable(ds.Tables("tbl_DY_ZollDE_C0219_TypeTransportMeans"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_I0200_Unterlagearten")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_I0200_UnterlageartenDataTable(ds.Tables("tbl_DY_ZollDE_I0200_Unterlagearten"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_I0400_Waehrungsliste")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_I0400_WaehrungslisteDataTable(ds.Tables("tbl_DY_ZollDE_I0400_Waehrungsliste"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_I0610_ZustaendigeZSTAES")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable(ds.Tables("tbl_DY_ZollDE_I0610_ZustaendigeZSTAES"))) End If If (Not (ds.Tables("tbl_DY_ZollDE_I0700_Masseinheiten")) Is Nothing) Then MyBase.Tables.Add(New tbl_DY_ZollDE_I0700_MasseinheitenDataTable(ds.Tables("tbl_DY_ZollDE_I0700_Masseinheiten"))) End If If (Not (ds.Tables("tbl_Errors")) Is Nothing) Then MyBase.Tables.Add(New tbl_ErrorsDataTable(ds.Tables("tbl_Errors"))) End If If (Not (ds.Tables("tbl_IDS_Kategorien_Kunden")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_Kategorien_KundenDataTable(ds.Tables("tbl_IDS_Kategorien_Kunden"))) End If If (Not (ds.Tables("tbl_IDS_Kategorien_Rechenwerte")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_Kategorien_RechenwerteDataTable(ds.Tables("tbl_IDS_Kategorien_Rechenwerte"))) End If If (Not (ds.Tables("tbl_IDS_Kunden")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_KundenDataTable(ds.Tables("tbl_IDS_Kunden"))) End If If (Not (ds.Tables("tbl_IDS_Kunden_ohne_Rabatt")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_Kunden_ohne_RabattDataTable(ds.Tables("tbl_IDS_Kunden_ohne_Rabatt"))) End If If (Not (ds.Tables("tbl_IDS_Länder")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_LänderDataTable(ds.Tables("tbl_IDS_Länder"))) End If If (Not (ds.Tables("tbl_IDS_Produkte")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_ProdukteDataTable(ds.Tables("tbl_IDS_Produkte"))) End If If (Not (ds.Tables("tbl_IDS_Rechenwerte")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_RechenwerteDataTable(ds.Tables("tbl_IDS_Rechenwerte"))) End If If (Not (ds.Tables("tbl_IDS_Stationen")) Is Nothing) Then MyBase.Tables.Add(New tbl_IDS_StationenDataTable(ds.Tables("tbl_IDS_Stationen"))) End If If (Not (ds.Tables("tbl_Intrastat_Ausfuhr")) Is Nothing) Then MyBase.Tables.Add(New tbl_Intrastat_AusfuhrDataTable(ds.Tables("tbl_Intrastat_Ausfuhr"))) End If If (Not (ds.Tables("tbl_Telefonbuch")) Is Nothing) Then MyBase.Tables.Add(New tbl_TelefonbuchDataTable(ds.Tables("tbl_Telefonbuch"))) End If If (Not (ds.Tables("tbl_Telefonnummern")) Is Nothing) Then MyBase.Tables.Add(New tbl_TelefonnummernDataTable(ds.Tables("tbl_Telefonnummern"))) End If If (Not (ds.Tables("tbl_WÖLFL")) Is Nothing) Then MyBase.Tables.Add(New tbl_WÖLFLDataTable(ds.Tables("tbl_WÖLFL"))) End If If (Not (ds.Tables("tbl_ZM_tabelle")) Is Nothing) Then MyBase.Tables.Add(New tbl_ZM_tabelleDataTable(ds.Tables("tbl_ZM_tabelle"))) End If If (Not (ds.Tables("tblAbfertigungsartenFiliale")) Is Nothing) Then MyBase.Tables.Add(New tblAbfertigungsartenFilialeDataTable(ds.Tables("tblAbfertigungsartenFiliale"))) End If If (Not (ds.Tables("tblAbfertigungsartOffertenstamm")) Is Nothing) Then MyBase.Tables.Add(New tblAbfertigungsartOffertenstammDataTable(ds.Tables("tblAbfertigungsartOffertenstamm"))) End If If (Not (ds.Tables("tblAbrechnung_NCTSBrg")) Is Nothing) Then MyBase.Tables.Add(New tblAbrechnung_NCTSBrgDataTable(ds.Tables("tblAbrechnung_NCTSBrg"))) End If If (Not (ds.Tables("tblAnmeldung")) Is Nothing) Then MyBase.Tables.Add(New tblAnmeldungDataTable(ds.Tables("tblAnmeldung"))) End If If (Not (ds.Tables("tblAsfinagMaut")) Is Nothing) Then MyBase.Tables.Add(New tblAsfinagMautDataTable(ds.Tables("tblAsfinagMaut"))) End If If (Not (ds.Tables("tblATEZ_NCTS")) Is Nothing) Then MyBase.Tables.Add(New tblATEZ_NCTSDataTable(ds.Tables("tblATEZ_NCTS"))) End If If (Not (ds.Tables("tblATEZ_NCTS_Routen")) Is Nothing) Then MyBase.Tables.Add(New tblATEZ_NCTS_RoutenDataTable(ds.Tables("tblATEZ_NCTS_Routen"))) End If If (Not (ds.Tables("tblATEZ_NCTS_Sessions")) Is Nothing) Then MyBase.Tables.Add(New tblATEZ_NCTS_SessionsDataTable(ds.Tables("tblATEZ_NCTS_Sessions"))) End If If (Not (ds.Tables("tblATEZ_NCTS_TransitCustomsOffice")) Is Nothing) Then MyBase.Tables.Add(New tblATEZ_NCTS_TransitCustomsOfficeDataTable(ds.Tables("tblATEZ_NCTS_TransitCustomsOffice"))) End If If (Not (ds.Tables("tblBankspesen")) Is Nothing) Then MyBase.Tables.Add(New tblBankspesenDataTable(ds.Tables("tblBankspesen"))) End If If (Not (ds.Tables("tblBerechnungsmethode")) Is Nothing) Then MyBase.Tables.Add(New tblBerechnungsmethodeDataTable(ds.Tables("tblBerechnungsmethode"))) End If If (Not (ds.Tables("tblBerichtsdrucker")) Is Nothing) Then MyBase.Tables.Add(New tblBerichtsdruckerDataTable(ds.Tables("tblBerichtsdrucker"))) End If If (Not (ds.Tables("tblBesuchsberichte")) Is Nothing) Then MyBase.Tables.Add(New tblBesuchsberichteDataTable(ds.Tables("tblBesuchsberichte"))) End If If (Not (ds.Tables("tblBonitaetsauskunft")) Is Nothing) Then MyBase.Tables.Add(New tblBonitaetsauskunftDataTable(ds.Tables("tblBonitaetsauskunft"))) End If If (Not (ds.Tables("tblBuchungstext")) Is Nothing) Then MyBase.Tables.Add(New tblBuchungstextDataTable(ds.Tables("tblBuchungstext"))) End If If (Not (ds.Tables("tblDakosy_AES")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_AESDataTable(ds.Tables("tblDakosy_AES"))) End If If (Not (ds.Tables("tblDakosy_AES_Warenposition")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_AES_WarenpositionDataTable(ds.Tables("tblDakosy_AES_Warenposition"))) End If If (Not (ds.Tables("tblDakosy_AES_WarenpositionPackstuecke")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_AES_WarenpositionPackstueckeDataTable(ds.Tables("tblDakosy_AES_WarenpositionPackstuecke"))) End If If (Not (ds.Tables("tblDakosy_AES_WarenpositionUnterlagen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_AES_WarenpositionUnterlagenDataTable(ds.Tables("tblDakosy_AES_WarenpositionUnterlagen"))) End If If (Not (ds.Tables("tblDakosy_EZA")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZADataTable(ds.Tables("tblDakosy_EZA"))) End If If (Not (ds.Tables("tblDakosy_EZA_Adressen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_AdressenDataTable(ds.Tables("tblDakosy_EZA_Adressen"))) End If If (Not (ds.Tables("tblDakosy_EZA_Aufschub")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_AufschubDataTable(ds.Tables("tblDakosy_EZA_Aufschub"))) End If If (Not (ds.Tables("tblDakosy_EZA_BEAnteilZLAVUV")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_BEAnteilZLAVUVDataTable(ds.Tables("tblDakosy_EZA_BEAnteilZLAVUV"))) End If If (Not (ds.Tables("tblDakosy_EZA_SumABeendigungsAnteil")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_SumABeendigungsAnteilDataTable(ds.Tables("tblDakosy_EZA_SumABeendigungsAnteil"))) End If If (Not (ds.Tables("tblDakosy_EZA_Unterlagen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_UnterlagenDataTable(ds.Tables("tblDakosy_EZA_Unterlagen"))) End If If (Not (ds.Tables("tblDakosy_EZA_Warenposition")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_WarenpositionDataTable(ds.Tables("tblDakosy_EZA_Warenposition"))) End If If (Not (ds.Tables("tblDakosy_EZA_WarenpositionSonderfalldaten")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_WarenpositionSonderfalldatenDataTable(ds.Tables("tblDakosy_EZA_WarenpositionSonderfalldaten"))) End If If (Not (ds.Tables("tblDakosy_EZA_WarenpositionUnterlagen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_WarenpositionUnterlagenDataTable(ds.Tables("tblDakosy_EZA_WarenpositionUnterlagen"))) End If If (Not (ds.Tables("tblDakosy_EZA_WarenpositionVerbrauchssteuer")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable(ds.Tables("tblDakosy_EZA_WarenpositionVerbrauchssteuer"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOutDataTable(ds.Tables("tblDakosy_NCTSOut"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut_Sicherheitsangaben")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut_SicherheitsangabenDataTable(ds.Tables("tblDakosy_NCTSOut_Sicherheitsangaben"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut_Warenposition")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut_WarenpositionDataTable(ds.Tables("tblDakosy_NCTSOut_Warenposition"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut_WarenpositionPackstuecke")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable(ds.Tables("tblDakosy_NCTSOut_WarenpositionPackstuecke"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable(ds.Tables("tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004DataTable(ds.Tables("tblDakosy_NCTSOut004"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004_Guarantee")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004_GuaranteeDataTable(ds.Tables("tblDakosy_NCTSOut004_Guarantee"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004_HouseConsignment")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004_HouseConsignmentDataTable(ds.Tables("tblDakosy_NCTSOut004_HouseConsignment"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable(ds.Tables("tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable(ds.Tables("tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging"))) End If If (Not (ds.Tables("tblDakosy_NCTSOut004_TransportEquipment")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_NCTSOut004_TransportEquipmentDataTable(ds.Tables("tblDakosy_NCTSOut004_TransportEquipment"))) End If If (Not (ds.Tables("tblDakosy_Stammreferenzen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_StammreferenzenDataTable(ds.Tables("tblDakosy_Stammreferenzen"))) End If If (Not (ds.Tables("tblDakosy_Statusmeldungen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_StatusmeldungenDataTable(ds.Tables("tblDakosy_Statusmeldungen"))) End If If (Not (ds.Tables("tblDakosy_Zollanmeldungen")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_ZollanmeldungenDataTable(ds.Tables("tblDakosy_Zollanmeldungen"))) End If If (Not (ds.Tables("tblDakosy_ZollanmeldungenArten")) Is Nothing) Then MyBase.Tables.Add(New tblDakosy_ZollanmeldungenArtenDataTable(ds.Tables("tblDakosy_ZollanmeldungenArten"))) End If If (Not (ds.Tables("tblDatenarchiv")) Is Nothing) Then MyBase.Tables.Add(New tblDatenarchivDataTable(ds.Tables("tblDatenarchiv"))) End If If (Not (ds.Tables("tblDatenarchiv_Collection")) Is Nothing) Then MyBase.Tables.Add(New tblDatenarchiv_CollectionDataTable(ds.Tables("tblDatenarchiv_Collection"))) End If If (Not (ds.Tables("tblDEBundeslaenderPLZ")) Is Nothing) Then MyBase.Tables.Add(New tblDEBundeslaenderPLZDataTable(ds.Tables("tblDEBundeslaenderPLZ"))) End If If (Not (ds.Tables("tblDHF_Anhaenge")) Is Nothing) Then MyBase.Tables.Add(New tblDHF_AnhaengeDataTable(ds.Tables("tblDHF_Anhaenge"))) End If If (Not (ds.Tables("tblDieselArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblDieselArchivDataTable(ds.Tables("tblDieselArchiv"))) End If If (Not (ds.Tables("tblDigicust_Sendungen")) Is Nothing) Then MyBase.Tables.Add(New tblDigicust_SendungenDataTable(ds.Tables("tblDigicust_Sendungen"))) End If If (Not (ds.Tables("tblDigicust_Sessions")) Is Nothing) Then MyBase.Tables.Add(New tblDigicust_SessionsDataTable(ds.Tables("tblDigicust_Sessions"))) End If If (Not (ds.Tables("tblDigicust_Settings")) Is Nothing) Then MyBase.Tables.Add(New tblDigicust_SettingsDataTable(ds.Tables("tblDigicust_Settings"))) End If If (Not (ds.Tables("tblEABelegnummer")) Is Nothing) Then MyBase.Tables.Add(New tblEABelegnummerDataTable(ds.Tables("tblEABelegnummer"))) End If If (Not (ds.Tables("tblEABelegposition")) Is Nothing) Then MyBase.Tables.Add(New tblEABelegpositionDataTable(ds.Tables("tblEABelegposition"))) End If If (Not (ds.Tables("tblEmailBenachrichtigung")) Is Nothing) Then MyBase.Tables.Add(New tblEmailBenachrichtigungDataTable(ds.Tables("tblEmailBenachrichtigung"))) End If If (Not (ds.Tables("tblEmailBenachrichtigungArten")) Is Nothing) Then MyBase.Tables.Add(New tblEmailBenachrichtigungArtenDataTable(ds.Tables("tblEmailBenachrichtigungArten"))) End If If (Not (ds.Tables("tblEORIPruefung")) Is Nothing) Then MyBase.Tables.Add(New tblEORIPruefungDataTable(ds.Tables("tblEORIPruefung"))) End If If (Not (ds.Tables("tblEZB_Waehrungskurse")) Is Nothing) Then MyBase.Tables.Add(New tblEZB_WaehrungskurseDataTable(ds.Tables("tblEZB_Waehrungskurse"))) End If If (Not (ds.Tables("tblEZT_Importcodenummern")) Is Nothing) Then MyBase.Tables.Add(New tblEZT_ImportcodenummernDataTable(ds.Tables("tblEZT_Importcodenummern"))) End If If (Not (ds.Tables("tblFahrerDaten")) Is Nothing) Then MyBase.Tables.Add(New tblFahrerDatenDataTable(ds.Tables("tblFahrerDaten"))) End If If (Not (ds.Tables("tblFirma")) Is Nothing) Then MyBase.Tables.Add(New tblFirmaDataTable(ds.Tables("tblFirma"))) End If If (Not (ds.Tables("tblFiskal_Daten")) Is Nothing) Then MyBase.Tables.Add(New tblFiskal_DatenDataTable(ds.Tables("tblFiskal_Daten"))) End If If (Not (ds.Tables("tblFiskalkunden")) Is Nothing) Then MyBase.Tables.Add(New tblFiskalkundenDataTable(ds.Tables("tblFiskalkunden"))) End If If (Not (ds.Tables("tblFormulardaten")) Is Nothing) Then MyBase.Tables.Add(New tblFormulardatenDataTable(ds.Tables("tblFormulardaten"))) End If If (Not (ds.Tables("tblFormulareVorlagen")) Is Nothing) Then MyBase.Tables.Add(New tblFormulareVorlagenDataTable(ds.Tables("tblFormulareVorlagen"))) End If If (Not (ds.Tables("tblFormulareVorlagenValues")) Is Nothing) Then MyBase.Tables.Add(New tblFormulareVorlagenValuesDataTable(ds.Tables("tblFormulareVorlagenValues"))) End If If (Not (ds.Tables("tblFremdSpeditionenZuordnung")) Is Nothing) Then MyBase.Tables.Add(New tblFremdSpeditionenZuordnungDataTable(ds.Tables("tblFremdSpeditionenZuordnung"))) End If If (Not (ds.Tables("tblFTP_Log")) Is Nothing) Then MyBase.Tables.Add(New tblFTP_LogDataTable(ds.Tables("tblFTP_Log"))) End If If (Not (ds.Tables("tblFTP_Log_Backup2")) Is Nothing) Then MyBase.Tables.Add(New tblFTP_Log_Backup2DataTable(ds.Tables("tblFTP_Log_Backup2"))) End If If (Not (ds.Tables("tblGebuehrenvermarktungsnormen")) Is Nothing) Then MyBase.Tables.Add(New tblGebuehrenvermarktungsnormenDataTable(ds.Tables("tblGebuehrenvermarktungsnormen"))) End If If (Not (ds.Tables("tblGelangensbestaetigung")) Is Nothing) Then MyBase.Tables.Add(New tblGelangensbestaetigungDataTable(ds.Tables("tblGelangensbestaetigung"))) End If If (Not (ds.Tables("tblGeschäftsjahr")) Is Nothing) Then MyBase.Tables.Add(New tblGeschäftsjahrDataTable(ds.Tables("tblGeschäftsjahr"))) End If If (Not (ds.Tables("tblGeschäftsjahrBelegNr")) Is Nothing) Then MyBase.Tables.Add(New tblGeschäftsjahrBelegNrDataTable(ds.Tables("tblGeschäftsjahrBelegNr"))) End If If (Not (ds.Tables("tblGeschäftsjahrJournalNr")) Is Nothing) Then MyBase.Tables.Add(New tblGeschäftsjahrJournalNrDataTable(ds.Tables("tblGeschäftsjahrJournalNr"))) End If If (Not (ds.Tables("tblGestellungsgarantien")) Is Nothing) Then MyBase.Tables.Add(New tblGestellungsgarantienDataTable(ds.Tables("tblGestellungsgarantien"))) End If If (Not (ds.Tables("tblGestellungsmitteilung")) Is Nothing) Then MyBase.Tables.Add(New tblGestellungsmitteilungDataTable(ds.Tables("tblGestellungsmitteilung"))) End If If (Not (ds.Tables("tblGestellungsmitteilung_Positionen")) Is Nothing) Then MyBase.Tables.Add(New tblGestellungsmitteilung_PositionenDataTable(ds.Tables("tblGestellungsmitteilung_Positionen"))) End If If (Not (ds.Tables("tblGOBOXBestellungen")) Is Nothing) Then MyBase.Tables.Add(New tblGOBOXBestellungenDataTable(ds.Tables("tblGOBOXBestellungen"))) End If If (Not (ds.Tables("tblGVMS")) Is Nothing) Then MyBase.Tables.Add(New tblGVMSDataTable(ds.Tables("tblGVMS"))) End If If (Not (ds.Tables("tblGVMS_Carriers")) Is Nothing) Then MyBase.Tables.Add(New tblGVMS_CarriersDataTable(ds.Tables("tblGVMS_Carriers"))) End If If (Not (ds.Tables("tblGVMS_Ports")) Is Nothing) Then MyBase.Tables.Add(New tblGVMS_PortsDataTable(ds.Tables("tblGVMS_Ports"))) End If If (Not (ds.Tables("tblGVMS_Pos")) Is Nothing) Then MyBase.Tables.Add(New tblGVMS_PosDataTable(ds.Tables("tblGVMS_Pos"))) End If If (Not (ds.Tables("tblGVMS_Routes")) Is Nothing) Then MyBase.Tables.Add(New tblGVMS_RoutesDataTable(ds.Tables("tblGVMS_Routes"))) End If If (Not (ds.Tables("tblHandlingssaetzeIntern")) Is Nothing) Then MyBase.Tables.Add(New tblHandlingssaetzeInternDataTable(ds.Tables("tblHandlingssaetzeIntern"))) End If If (Not (ds.Tables("tblHistorie")) Is Nothing) Then MyBase.Tables.Add(New tblHistorieDataTable(ds.Tables("tblHistorie"))) End If If (Not (ds.Tables("tblIDS_Transaktionen")) Is Nothing) Then MyBase.Tables.Add(New tblIDS_TransaktionenDataTable(ds.Tables("tblIDS_Transaktionen"))) End If If (Not (ds.Tables("tblKassenbuch")) Is Nothing) Then MyBase.Tables.Add(New tblKassenbuchDataTable(ds.Tables("tblKassenbuch"))) End If If (Not (ds.Tables("tblKonto")) Is Nothing) Then MyBase.Tables.Add(New tblKontoDataTable(ds.Tables("tblKonto"))) End If If (Not (ds.Tables("tblKundenAufschubkonten")) Is Nothing) Then MyBase.Tables.Add(New tblKundenAufschubkontenDataTable(ds.Tables("tblKundenAufschubkonten"))) End If If (Not (ds.Tables("tblKundenBesonderheiten")) Is Nothing) Then MyBase.Tables.Add(New tblKundenBesonderheitenDataTable(ds.Tables("tblKundenBesonderheiten"))) End If If (Not (ds.Tables("tblKundenBesonderheiten_Kategorien")) Is Nothing) Then MyBase.Tables.Add(New tblKundenBesonderheiten_KategorienDataTable(ds.Tables("tblKundenBesonderheiten_Kategorien"))) End If If (Not (ds.Tables("tblKundenDatenblatt")) Is Nothing) Then MyBase.Tables.Add(New tblKundenDatenblattDataTable(ds.Tables("tblKundenDatenblatt"))) End If If (Not (ds.Tables("tblKundenErweitert")) Is Nothing) Then MyBase.Tables.Add(New tblKundenErweitertDataTable(ds.Tables("tblKundenErweitert"))) End If If (Not (ds.Tables("tblKundenKontakt")) Is Nothing) Then MyBase.Tables.Add(New tblKundenKontaktDataTable(ds.Tables("tblKundenKontakt"))) End If If (Not (ds.Tables("tblKundenKontaktArten")) Is Nothing) Then MyBase.Tables.Add(New tblKundenKontaktArtenDataTable(ds.Tables("tblKundenKontaktArten"))) End If If (Not (ds.Tables("tblKundenumsatz")) Is Nothing) Then MyBase.Tables.Add(New tblKundenumsatzDataTable(ds.Tables("tblKundenumsatz"))) End If If (Not (ds.Tables("tblKundenVermerke")) Is Nothing) Then MyBase.Tables.Add(New tblKundenVermerkeDataTable(ds.Tables("tblKundenVermerke"))) End If If (Not (ds.Tables("tblKundenVertraege")) Is Nothing) Then MyBase.Tables.Add(New tblKundenVertraegeDataTable(ds.Tables("tblKundenVertraege"))) End If If (Not (ds.Tables("tblKundenVertraegeArten")) Is Nothing) Then MyBase.Tables.Add(New tblKundenVertraegeArtenDataTable(ds.Tables("tblKundenVertraegeArten"))) End If If (Not (ds.Tables("tblKundenVollmachten")) Is Nothing) Then MyBase.Tables.Add(New tblKundenVollmachtenDataTable(ds.Tables("tblKundenVollmachten"))) End If If (Not (ds.Tables("tblKundenVollmachtenArt")) Is Nothing) Then MyBase.Tables.Add(New tblKundenVollmachtenArtDataTable(ds.Tables("tblKundenVollmachtenArt"))) End If If (Not (ds.Tables("tblLogbuch")) Is Nothing) Then MyBase.Tables.Add(New tblLogbuchDataTable(ds.Tables("tblLogbuch"))) End If If (Not (ds.Tables("tblMandant")) Is Nothing) Then MyBase.Tables.Add(New tblMandantDataTable(ds.Tables("tblMandant"))) End If If (Not (ds.Tables("tblMautIT_Belegarten")) Is Nothing) Then MyBase.Tables.Add(New tblMautIT_BelegartenDataTable(ds.Tables("tblMautIT_Belegarten"))) End If If (Not (ds.Tables("tblMautITArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblMautITArchivDataTable(ds.Tables("tblMautITArchiv"))) End If If (Not (ds.Tables("tblMDM_Paramter")) Is Nothing) Then MyBase.Tables.Add(New tblMDM_ParamterDataTable(ds.Tables("tblMDM_Paramter"))) End If If (Not (ds.Tables("tblMSECustomers")) Is Nothing) Then MyBase.Tables.Add(New tblMSECustomersDataTable(ds.Tables("tblMSECustomers"))) End If If (Not (ds.Tables("tblMSEImport")) Is Nothing) Then MyBase.Tables.Add(New tblMSEImportDataTable(ds.Tables("tblMSEImport"))) End If If (Not (ds.Tables("tblMSEInvoices")) Is Nothing) Then MyBase.Tables.Add(New tblMSEInvoicesDataTable(ds.Tables("tblMSEInvoices"))) End If If (Not (ds.Tables("tblMSELeistungen")) Is Nothing) Then MyBase.Tables.Add(New tblMSELeistungenDataTable(ds.Tables("tblMSELeistungen"))) End If If (Not (ds.Tables("tblMSESettlements")) Is Nothing) Then MyBase.Tables.Add(New tblMSESettlementsDataTable(ds.Tables("tblMSESettlements"))) End If If (Not (ds.Tables("tblMSETransactions")) Is Nothing) Then MyBase.Tables.Add(New tblMSETransactionsDataTable(ds.Tables("tblMSETransactions"))) End If If (Not (ds.Tables("tblMSETransactionsArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblMSETransactionsArchivDataTable(ds.Tables("tblMSETransactionsArchiv"))) End If If (Not (ds.Tables("tblMSETransactionsArchivOLD")) Is Nothing) Then MyBase.Tables.Add(New tblMSETransactionsArchivOLDDataTable(ds.Tables("tblMSETransactionsArchivOLD"))) End If If (Not (ds.Tables("tblNCTS_TR")) Is Nothing) Then MyBase.Tables.Add(New tblNCTS_TRDataTable(ds.Tables("tblNCTS_TR"))) End If If (Not (ds.Tables("tblNCTS_TR_Nachrichten")) Is Nothing) Then MyBase.Tables.Add(New tblNCTS_TR_NachrichtenDataTable(ds.Tables("tblNCTS_TR_Nachrichten"))) End If If (Not (ds.Tables("tblNCTS_TR_Sicherheitsangaben")) Is Nothing) Then MyBase.Tables.Add(New tblNCTS_TR_SicherheitsangabenDataTable(ds.Tables("tblNCTS_TR_Sicherheitsangaben"))) End If If (Not (ds.Tables("tblNCTS_TR_Warenposition")) Is Nothing) Then MyBase.Tables.Add(New tblNCTS_TR_WarenpositionDataTable(ds.Tables("tblNCTS_TR_Warenposition"))) End If If (Not (ds.Tables("tblNCTS_TR_WarenpositionPackstuecke")) Is Nothing) Then MyBase.Tables.Add(New tblNCTS_TR_WarenpositionPackstueckeDataTable(ds.Tables("tblNCTS_TR_WarenpositionPackstuecke"))) End If If (Not (ds.Tables("tblNCTSGestellungsadressen")) Is Nothing) Then MyBase.Tables.Add(New tblNCTSGestellungsadressenDataTable(ds.Tables("tblNCTSGestellungsadressen"))) End If If (Not (ds.Tables("tblNTCSRouten")) Is Nothing) Then MyBase.Tables.Add(New tblNTCSRoutenDataTable(ds.Tables("tblNTCSRouten"))) End If If (Not (ds.Tables("tblOffertenArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblOffertenArchivDataTable(ds.Tables("tblOffertenArchiv"))) End If If (Not (ds.Tables("tblOffertenPositionenArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblOffertenPositionenArchivDataTable(ds.Tables("tblOffertenPositionenArchiv"))) End If If (Not (ds.Tables("tblOregonNCTS_DeclarationData")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_DeclarationDataDataTable(ds.Tables("tblOregonNCTS_DeclarationData"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_AdditionalCodesAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_AdditionalCodesAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_DocumentsAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_DocumentsAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_DocumentsAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_GoodsAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_GoodsAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_GoodsAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_PacksAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_PacksAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_PacksAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_PartiesAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_PartiesAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_PartiesAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_ProducedDocumentsAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_ProducedDocumentsAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_Declarations_TraderAdditionsAttribute")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable(ds.Tables("tblOregonNCTS_Declarations_TraderAdditionsAttribute"))) End If If (Not (ds.Tables("tblOregonNCTS_ReferenceTemplate")) Is Nothing) Then MyBase.Tables.Add(New tblOregonNCTS_ReferenceTemplateDataTable(ds.Tables("tblOregonNCTS_ReferenceTemplate"))) End If If (Not (ds.Tables("tblOriginalATR")) Is Nothing) Then MyBase.Tables.Add(New tblOriginalATRDataTable(ds.Tables("tblOriginalATR"))) End If If (Not (ds.Tables("tblPartnersystem_Paramter")) Is Nothing) Then MyBase.Tables.Add(New tblPartnersystem_ParamterDataTable(ds.Tables("tblPartnersystem_Paramter"))) End If If (Not (ds.Tables("tblPfad")) Is Nothing) Then MyBase.Tables.Add(New tblPfadDataTable(ds.Tables("tblPfad"))) End If If (Not (ds.Tables("tblPLOSE_Details")) Is Nothing) Then MyBase.Tables.Add(New tblPLOSE_DetailsDataTable(ds.Tables("tblPLOSE_Details"))) End If If (Not (ds.Tables("tblPLOSE_Inv_Data")) Is Nothing) Then MyBase.Tables.Add(New tblPLOSE_Inv_DataDataTable(ds.Tables("tblPLOSE_Inv_Data"))) End If If (Not (ds.Tables("tblPLOSE_Lieferant")) Is Nothing) Then MyBase.Tables.Add(New tblPLOSE_LieferantDataTable(ds.Tables("tblPLOSE_Lieferant"))) End If If (Not (ds.Tables("tblPLOSE_Produktbeschreibung")) Is Nothing) Then MyBase.Tables.Add(New tblPLOSE_ProduktbeschreibungDataTable(ds.Tables("tblPLOSE_Produktbeschreibung"))) End If If (Not (ds.Tables("tblPosNr")) Is Nothing) Then MyBase.Tables.Add(New tblPosNrDataTable(ds.Tables("tblPosNr"))) End If If (Not (ds.Tables("tblPostversand")) Is Nothing) Then MyBase.Tables.Add(New tblPostversandDataTable(ds.Tables("tblPostversand"))) End If If (Not (ds.Tables("tblPreislisten")) Is Nothing) Then MyBase.Tables.Add(New tblPreislistenDataTable(ds.Tables("tblPreislisten"))) End If If (Not (ds.Tables("tblPreislistenpositionen")) Is Nothing) Then MyBase.Tables.Add(New tblPreislistenpositionenDataTable(ds.Tables("tblPreislistenpositionen"))) End If If (Not (ds.Tables("tblPreistabellen")) Is Nothing) Then MyBase.Tables.Add(New tblPreistabellenDataTable(ds.Tables("tblPreistabellen"))) End If If (Not (ds.Tables("tblPreistabellenpositionen")) Is Nothing) Then MyBase.Tables.Add(New tblPreistabellenpositionenDataTable(ds.Tables("tblPreistabellenpositionen"))) End If If (Not (ds.Tables("tblQS_Abfertigungsarten")) Is Nothing) Then MyBase.Tables.Add(New tblQS_AbfertigungsartenDataTable(ds.Tables("tblQS_Abfertigungsarten"))) End If If (Not (ds.Tables("tblQS_Aufträge")) Is Nothing) Then MyBase.Tables.Add(New tblQS_AufträgeDataTable(ds.Tables("tblQS_Aufträge"))) End If If (Not (ds.Tables("tblQS_Auftragspositionen")) Is Nothing) Then MyBase.Tables.Add(New tblQS_AuftragspositionenDataTable(ds.Tables("tblQS_Auftragspositionen"))) End If If (Not (ds.Tables("tblQS_Teams")) Is Nothing) Then MyBase.Tables.Add(New tblQS_TeamsDataTable(ds.Tables("tblQS_Teams"))) End If If (Not (ds.Tables("tblQS_TeamsMA")) Is Nothing) Then MyBase.Tables.Add(New tblQS_TeamsMADataTable(ds.Tables("tblQS_TeamsMA"))) End If If (Not (ds.Tables("tblRechnungsnotizen")) Is Nothing) Then MyBase.Tables.Add(New tblRechnungsnotizenDataTable(ds.Tables("tblRechnungsnotizen"))) End If If (Not (ds.Tables("tblRef")) Is Nothing) Then MyBase.Tables.Add(New tblRefDataTable(ds.Tables("tblRef"))) End If If (Not (ds.Tables("tblRefBeziehungen")) Is Nothing) Then MyBase.Tables.Add(New tblRefBeziehungenDataTable(ds.Tables("tblRefBeziehungen"))) End If If (Not (ds.Tables("tblRKSV_Kassen")) Is Nothing) Then MyBase.Tables.Add(New tblRKSV_KassenDataTable(ds.Tables("tblRKSV_Kassen"))) End If If (Not (ds.Tables("tblRKSV_POS")) Is Nothing) Then MyBase.Tables.Add(New tblRKSV_POSDataTable(ds.Tables("tblRKSV_POS"))) End If If (Not (ds.Tables("tblRMCImport")) Is Nothing) Then MyBase.Tables.Add(New tblRMCImportDataTable(ds.Tables("tblRMCImport"))) End If If (Not (ds.Tables("tblSMS")) Is Nothing) Then MyBase.Tables.Add(New tblSMSDataTable(ds.Tables("tblSMS"))) End If If (Not (ds.Tables("tblSpeditionsbucharchiv")) Is Nothing) Then MyBase.Tables.Add(New tblSpeditionsbucharchivDataTable(ds.Tables("tblSpeditionsbucharchiv"))) End If If (Not (ds.Tables("tblSpeditionsbuchEndEmpfaenger")) Is Nothing) Then MyBase.Tables.Add(New tblSpeditionsbuchEndEmpfaengerDataTable(ds.Tables("tblSpeditionsbuchEndEmpfaenger"))) End If If (Not (ds.Tables("tblSpeditionsbuchUnterPos")) Is Nothing) Then MyBase.Tables.Add(New tblSpeditionsbuchUnterPosDataTable(ds.Tables("tblSpeditionsbuchUnterPos"))) End If If (Not (ds.Tables("tblSpeditionsbuchUnterPosArten")) Is Nothing) Then MyBase.Tables.Add(New tblSpeditionsbuchUnterPosArtenDataTable(ds.Tables("tblSpeditionsbuchUnterPosArten"))) End If If (Not (ds.Tables("tblSteuernummern")) Is Nothing) Then MyBase.Tables.Add(New tblSteuernummernDataTable(ds.Tables("tblSteuernummern"))) End If If (Not (ds.Tables("tblSteuersätze")) Is Nothing) Then MyBase.Tables.Add(New tblSteuersätzeDataTable(ds.Tables("tblSteuersätze"))) End If If (Not (ds.Tables("tblSteuertyp")) Is Nothing) Then MyBase.Tables.Add(New tblSteuertypDataTable(ds.Tables("tblSteuertyp"))) End If If (Not (ds.Tables("tblTelotec_Abgaben")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_AbgabenDataTable(ds.Tables("tblTelotec_Abgaben"))) End If If (Not (ds.Tables("tblTelotec_Anmeldung")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_AnmeldungDataTable(ds.Tables("tblTelotec_Anmeldung"))) End If If (Not (ds.Tables("tblTelotec_Packstuecke")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_PackstueckeDataTable(ds.Tables("tblTelotec_Packstuecke"))) End If If (Not (ds.Tables("tblTelotec_Paramter")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_ParamterDataTable(ds.Tables("tblTelotec_Paramter"))) End If If (Not (ds.Tables("tblTelotec_Positionsdaten")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_PositionsdatenDataTable(ds.Tables("tblTelotec_Positionsdaten"))) End If If (Not (ds.Tables("tblTelotec_PositionsdatenAbgaben")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_PositionsdatenAbgabenDataTable(ds.Tables("tblTelotec_PositionsdatenAbgaben"))) End If If (Not (ds.Tables("tblTelotec_PositionsdatenDokumente")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_PositionsdatenDokumenteDataTable(ds.Tables("tblTelotec_PositionsdatenDokumente"))) End If If (Not (ds.Tables("tblTelotec_Sicherheit")) Is Nothing) Then MyBase.Tables.Add(New tblTelotec_SicherheitDataTable(ds.Tables("tblTelotec_Sicherheit"))) End If If (Not (ds.Tables("tblTest")) Is Nothing) Then MyBase.Tables.Add(New tblTestDataTable(ds.Tables("tblTest"))) End If If (Not (ds.Tables("tblTextkonserve")) Is Nothing) Then MyBase.Tables.Add(New tblTextkonserveDataTable(ds.Tables("tblTextkonserve"))) End If If (Not (ds.Tables("tblTR_Aviso")) Is Nothing) Then MyBase.Tables.Add(New tblTR_AvisoDataTable(ds.Tables("tblTR_Aviso"))) End If If (Not (ds.Tables("tblTR_AvisoAnheange")) Is Nothing) Then MyBase.Tables.Add(New tblTR_AvisoAnheangeDataTable(ds.Tables("tblTR_AvisoAnheange"))) End If If (Not (ds.Tables("tblTR_Shipment")) Is Nothing) Then MyBase.Tables.Add(New tblTR_ShipmentDataTable(ds.Tables("tblTR_Shipment"))) End If If (Not (ds.Tables("tblTR_Shipment_Adressen")) Is Nothing) Then MyBase.Tables.Add(New tblTR_Shipment_AdressenDataTable(ds.Tables("tblTR_Shipment_Adressen"))) End If If (Not (ds.Tables("tblTR_Shipment_Document")) Is Nothing) Then MyBase.Tables.Add(New tblTR_Shipment_DocumentDataTable(ds.Tables("tblTR_Shipment_Document"))) End If If (Not (ds.Tables("tblTR_Shipment_Position")) Is Nothing) Then MyBase.Tables.Add(New tblTR_Shipment_PositionDataTable(ds.Tables("tblTR_Shipment_Position"))) End If If (Not (ds.Tables("tblTR_Shipment_Position_Document")) Is Nothing) Then MyBase.Tables.Add(New tblTR_Shipment_Position_DocumentDataTable(ds.Tables("tblTR_Shipment_Position_Document"))) End If If (Not (ds.Tables("tblTranslate")) Is Nothing) Then MyBase.Tables.Add(New tblTranslateDataTable(ds.Tables("tblTranslate"))) End If If (Not (ds.Tables("tblTranslateAuto")) Is Nothing) Then MyBase.Tables.Add(New tblTranslateAutoDataTable(ds.Tables("tblTranslateAuto"))) End If If (Not (ds.Tables("tblTrdinHeader")) Is Nothing) Then MyBase.Tables.Add(New tblTrdinHeaderDataTable(ds.Tables("tblTrdinHeader"))) End If If (Not (ds.Tables("tblTrdinInvoice")) Is Nothing) Then MyBase.Tables.Add(New tblTrdinInvoiceDataTable(ds.Tables("tblTrdinInvoice"))) End If If (Not (ds.Tables("tblTrdinProduct")) Is Nothing) Then MyBase.Tables.Add(New tblTrdinProductDataTable(ds.Tables("tblTrdinProduct"))) End If If (Not (ds.Tables("tblUIDPruefung")) Is Nothing) Then MyBase.Tables.Add(New tblUIDPruefungDataTable(ds.Tables("tblUIDPruefung"))) End If If (Not (ds.Tables("tblUStVAntrag")) Is Nothing) Then MyBase.Tables.Add(New tblUStVAntragDataTable(ds.Tables("tblUStVAntrag"))) End If If (Not (ds.Tables("tblUStVBelegeingang")) Is Nothing) Then MyBase.Tables.Add(New tblUStVBelegeingangDataTable(ds.Tables("tblUStVBelegeingang"))) End If If (Not (ds.Tables("tblUStVErstattung")) Is Nothing) Then MyBase.Tables.Add(New tblUStVErstattungDataTable(ds.Tables("tblUStVErstattung"))) End If If (Not (ds.Tables("tblUStVFormulare")) Is Nothing) Then MyBase.Tables.Add(New tblUStVFormulareDataTable(ds.Tables("tblUStVFormulare"))) End If If (Not (ds.Tables("tblUStVKuLäFo")) Is Nothing) Then MyBase.Tables.Add(New tblUStVKuLäFoDataTable(ds.Tables("tblUStVKuLäFo"))) End If If (Not (ds.Tables("tblUStVLäFo")) Is Nothing) Then MyBase.Tables.Add(New tblUStVLäFoDataTable(ds.Tables("tblUStVLäFo"))) End If If (Not (ds.Tables("tblUStVLeistender")) Is Nothing) Then MyBase.Tables.Add(New tblUStVLeistenderDataTable(ds.Tables("tblUStVLeistender"))) End If If (Not (ds.Tables("tblUStVPositionen")) Is Nothing) Then MyBase.Tables.Add(New tblUStVPositionenDataTable(ds.Tables("tblUStVPositionen"))) End If If (Not (ds.Tables("tblUStVTexte")) Is Nothing) Then MyBase.Tables.Add(New tblUStVTexteDataTable(ds.Tables("tblUStVTexte"))) End If If (Not (ds.Tables("tblUTAArchiv")) Is Nothing) Then MyBase.Tables.Add(New tblUTAArchivDataTable(ds.Tables("tblUTAArchiv"))) End If If (Not (ds.Tables("tblUTAFakturierwarenarten")) Is Nothing) Then MyBase.Tables.Add(New tblUTAFakturierwarenartenDataTable(ds.Tables("tblUTAFakturierwarenarten"))) End If If (Not (ds.Tables("tblUTAHeader")) Is Nothing) Then MyBase.Tables.Add(New tblUTAHeaderDataTable(ds.Tables("tblUTAHeader"))) End If If (Not (ds.Tables("tblUTAHeaderNew")) Is Nothing) Then MyBase.Tables.Add(New tblUTAHeaderNewDataTable(ds.Tables("tblUTAHeaderNew"))) End If If (Not (ds.Tables("tblUTAImport")) Is Nothing) Then MyBase.Tables.Add(New tblUTAImportDataTable(ds.Tables("tblUTAImport"))) End If If (Not (ds.Tables("tblUTAImportNew")) Is Nothing) Then MyBase.Tables.Add(New tblUTAImportNewDataTable(ds.Tables("tblUTAImportNew"))) End If If (Not (ds.Tables("tblUTALeistungen")) Is Nothing) Then MyBase.Tables.Add(New tblUTALeistungenDataTable(ds.Tables("tblUTALeistungen"))) End If If (Not (ds.Tables("tblUTATrailer")) Is Nothing) Then MyBase.Tables.Add(New tblUTATrailerDataTable(ds.Tables("tblUTATrailer"))) End If If (Not (ds.Tables("tblUTATrailerNew")) Is Nothing) Then MyBase.Tables.Add(New tblUTATrailerNewDataTable(ds.Tables("tblUTATrailerNew"))) End If If (Not (ds.Tables("tblVermarktungsnormen")) Is Nothing) Then MyBase.Tables.Add(New tblVermarktungsnormenDataTable(ds.Tables("tblVermarktungsnormen"))) End If If (Not (ds.Tables("tblVermarktungsnormenGebuehren")) Is Nothing) Then MyBase.Tables.Add(New tblVermarktungsnormenGebuehrenDataTable(ds.Tables("tblVermarktungsnormenGebuehren"))) End If If (Not (ds.Tables("tblVorauskassen")) Is Nothing) Then MyBase.Tables.Add(New tblVorauskassenDataTable(ds.Tables("tblVorauskassen"))) End If If (Not (ds.Tables("tblWahrungtabelleNEU")) Is Nothing) Then MyBase.Tables.Add(New tblWahrungtabelleNEUDataTable(ds.Tables("tblWahrungtabelleNEU"))) End If If (Not (ds.Tables("tblWarenbezeichnungBegriffe")) Is Nothing) Then MyBase.Tables.Add(New tblWarenbezeichnungBegriffeDataTable(ds.Tables("tblWarenbezeichnungBegriffe"))) End If If (Not (ds.Tables("tblZabis_Atlas_NCTS")) Is Nothing) Then MyBase.Tables.Add(New tblZabis_Atlas_NCTSDataTable(ds.Tables("tblZabis_Atlas_NCTS"))) End If If (Not (ds.Tables("tblZahlungszieltexte")) Is Nothing) Then MyBase.Tables.Add(New tblZahlungszieltexteDataTable(ds.Tables("tblZahlungszieltexte"))) End If If (Not (ds.Tables("tblZolaris_EZoll_NCTS")) Is Nothing) Then MyBase.Tables.Add(New tblZolaris_EZoll_NCTSDataTable(ds.Tables("tblZolaris_EZoll_NCTS"))) End If If (Not (ds.Tables("tblZOLL_Wechselkurse")) Is Nothing) Then MyBase.Tables.Add(New tblZOLL_WechselkurseDataTable(ds.Tables("tblZOLL_Wechselkurse"))) End If If (Not (ds.Tables("tblZollArtikel")) Is Nothing) Then MyBase.Tables.Add(New tblZollArtikelDataTable(ds.Tables("tblZollArtikel"))) End If If (Not (ds.Tables("tblZollUnterArtikel")) Is Nothing) Then MyBase.Tables.Add(New tblZollUnterArtikelDataTable(ds.Tables("tblZollUnterArtikel"))) End If If (Not (ds.Tables("TemporaryUpsizedTable2")) Is Nothing) Then MyBase.Tables.Add(New TemporaryUpsizedTable2DataTable(ds.Tables("TemporaryUpsizedTable2"))) End If If (Not (ds.Tables("Verkehrszweige")) Is Nothing) Then MyBase.Tables.Add(New VerkehrszweigeDataTable(ds.Tables("Verkehrszweige"))) End If If (Not (ds.Tables("Vermerke")) Is Nothing) Then MyBase.Tables.Add(New VermerkeDataTable(ds.Tables("Vermerke"))) End If If (Not (ds.Tables("Vorkosten")) Is Nothing) Then MyBase.Tables.Add(New VorkostenDataTable(ds.Tables("Vorkosten"))) End If If (Not (ds.Tables("Währungstabelle")) Is Nothing) Then MyBase.Tables.Add(New WährungstabelleDataTable(ds.Tables("Währungstabelle"))) End If If (Not (ds.Tables("Zahlungsarten")) Is Nothing) Then MyBase.Tables.Add(New ZahlungsartenDataTable(ds.Tables("Zahlungsarten"))) End If If (Not (ds.Tables("zbadz")) Is Nothing) Then MyBase.Tables.Add(New zbadzDataTable(ds.Tables("zbadz"))) End If If (Not (ds.Tables("zbant")) Is Nothing) Then MyBase.Tables.Add(New zbantDataTable(ds.Tables("zbant"))) End If If (Not (ds.Tables("zbapo")) Is Nothing) Then MyBase.Tables.Add(New zbapoDataTable(ds.Tables("zbapo"))) End If If (Not (ds.Tables("zbpos")) Is Nothing) Then MyBase.Tables.Add(New zbposDataTable(ds.Tables("zbpos"))) End If If (Not (ds.Tables("Zkteing")) Is Nothing) Then MyBase.Tables.Add(New ZkteingDataTable(ds.Tables("Zkteing"))) End If If (Not (ds.Tables("Zollsysteme")) Is Nothing) Then MyBase.Tables.Add(New ZollsystemeDataTable(ds.Tables("Zollsysteme"))) End If If (Not (ds.Tables("Zulassungen ZnV")) Is Nothing) Then MyBase.Tables.Add(New Zulassungen_ZnVDataTable(ds.Tables("Zulassungen ZnV"))) End If If (Not (ds.Tables("vwKundenstamm")) Is Nothing) Then MyBase.Tables.Add(New vwKundenstammDataTable(ds.Tables("vwKundenstamm"))) End If If (Not (ds.Tables("vwReErfAuswahl")) Is Nothing) Then MyBase.Tables.Add(New vwReErfAuswahlDataTable(ds.Tables("vwReErfAuswahl"))) End If If (Not (ds.Tables("vwTrdinHeader")) Is Nothing) Then MyBase.Tables.Add(New vwTrdinHeaderDataTable(ds.Tables("vwTrdinHeader"))) End If If (Not (ds.Tables("vwTrdinInvoice")) Is Nothing) Then MyBase.Tables.Add(New vwTrdinInvoiceDataTable(ds.Tables("vwTrdinInvoice"))) End If If (Not (ds.Tables("vwTrdinProduct")) Is Nothing) Then MyBase.Tables.Add(New vwTrdinProductDataTable(ds.Tables("vwTrdinProduct"))) End If If (Not (ds.Tables("vwUStV_OP_Risikobericht")) Is Nothing) Then MyBase.Tables.Add(New vwUStV_OP_RisikoberichtDataTable(ds.Tables("vwUStV_OP_Risikobericht"))) End If If (Not (ds.Tables("vwUStVAntrag")) Is Nothing) Then MyBase.Tables.Add(New vwUStVAntragDataTable(ds.Tables("vwUStVAntrag"))) End If If (Not (ds.Tables("vwUStVBelegeingang")) Is Nothing) Then MyBase.Tables.Add(New vwUStVBelegeingangDataTable(ds.Tables("vwUStVBelegeingang"))) End If If (Not (ds.Tables("vwUStVErstattung")) Is Nothing) Then MyBase.Tables.Add(New vwUStVErstattungDataTable(ds.Tables("vwUStVErstattung"))) End If If (Not (ds.Tables("vwUStVPositionen")) Is Nothing) Then MyBase.Tables.Add(New vwUStVPositionenDataTable(ds.Tables("vwUStVPositionen"))) End If If (Not (ds.Tables("vwUStVVorauszahlung")) Is Nothing) Then MyBase.Tables.Add(New vwUStVVorauszahlungDataTable(ds.Tables("vwUStVVorauszahlung"))) End If If (Not (ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1")) Is Nothing) Then MyBase.Tables.Add(New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable(ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1"))) End If If (Not (ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new")) Is Nothing) Then MyBase.Tables.Add(New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable(ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new"))) End If If (Not (ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2")) Is Nothing) Then MyBase.Tables.Add(New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable(ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2"))) End If If (Not (ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new")) Is Nothing) Then MyBase.Tables.Add(New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable(ds.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new"))) End If If (Not (ds.Tables("spAlleTabellen")) Is Nothing) Then MyBase.Tables.Add(New spAlleTabellenDataTable(ds.Tables("spAlleTabellen"))) End If If (Not (ds.Tables("spReDruReNrVergeben")) Is Nothing) Then MyBase.Tables.Add(New spReDruReNrVergebenDataTable(ds.Tables("spReDruReNrVergeben"))) End If If (Not (ds.Tables("spReDruSchnSaReDruckinfoEintragen")) Is Nothing) Then MyBase.Tables.Add(New spReDruSchnSaReDruckinfoEintragenDataTable(ds.Tables("spReDruSchnSaReDruckinfoEintragen"))) End If If (Not (ds.Tables("spReDruSchnSaReNrEintragen")) Is Nothing) Then MyBase.Tables.Add(New spReDruSchnSaReNrEintragenDataTable(ds.Tables("spReDruSchnSaReNrEintragen"))) End If If (Not (ds.Tables("spReverseChargeSumme")) Is Nothing) Then MyBase.Tables.Add(New spReverseChargeSummeDataTable(ds.Tables("spReverseChargeSumme"))) End If If (Not (ds.Tables("spSELECT_Bankspesen_für_KundenNr")) Is Nothing) Then MyBase.Tables.Add(New spSELECT_Bankspesen_für_KundenNrDataTable(ds.Tables("spSELECT_Bankspesen_für_KundenNr"))) End If If (Not (ds.Tables("spSELECT_tblZabis_Atlas_NCTS")) Is Nothing) Then MyBase.Tables.Add(New spSELECT_tblZabis_Atlas_NCTSDataTable(ds.Tables("spSELECT_tblZabis_Atlas_NCTS"))) End If If (Not (ds.Tables("spSELECTAufschubdaten")) Is Nothing) Then MyBase.Tables.Add(New spSELECTAufschubdatenDataTable(ds.Tables("spSELECTAufschubdaten"))) End If If (Not (ds.Tables("spSELECTRechnungsausgang")) Is Nothing) Then MyBase.Tables.Add(New spSELECTRechnungsausgangDataTable(ds.Tables("spSELECTRechnungsausgang"))) End If If (Not (ds.Tables("spSELECTRechnungsausgangPositionen")) Is Nothing) Then MyBase.Tables.Add(New spSELECTRechnungsausgangPositionenDataTable(ds.Tables("spSELECTRechnungsausgangPositionen"))) End If If (Not (ds.Tables("spSELECTRechnungsnummern")) Is Nothing) Then MyBase.Tables.Add(New spSELECTRechnungsnummernDataTable(ds.Tables("spSELECTRechnungsnummern"))) End If If (Not (ds.Tables("spSelectReDruSaReRKAvisoID")) Is Nothing) Then MyBase.Tables.Add(New spSelectReDruSaReRKAvisoIDDataTable(ds.Tables("spSelectReDruSaReRKAvisoID"))) End If If (Not (ds.Tables("spSELECTReDruSaReRKgruppieren")) Is Nothing) Then MyBase.Tables.Add(New spSELECTReDruSaReRKgruppierenDataTable(ds.Tables("spSELECTReDruSaReRKgruppieren"))) End If If (Not (ds.Tables("spSelectReDruSchnBB_RK")) Is Nothing) Then MyBase.Tables.Add(New spSelectReDruSchnBB_RKDataTable(ds.Tables("spSelectReDruSchnBB_RK"))) End If If (Not (ds.Tables("spSelectReDruSchnKunde")) Is Nothing) Then MyBase.Tables.Add(New spSelectReDruSchnKundeDataTable(ds.Tables("spSelectReDruSchnKunde"))) End If If (Not (ds.Tables("spSelectReDruSchnSumBS415")) Is Nothing) Then MyBase.Tables.Add(New spSelectReDruSchnSumBS415DataTable(ds.Tables("spSelectReDruSchnSumBS415"))) End If If (Not (ds.Tables("spSelectReDruSchnTextZollbelegePrüfen")) Is Nothing) Then MyBase.Tables.Add(New spSelectReDruSchnTextZollbelegePrüfenDataTable(ds.Tables("spSelectReDruSchnTextZollbelegePrüfen"))) End If If (Not (ds.Tables("spSELECTReDruSumReGu")) Is Nothing) Then MyBase.Tables.Add(New spSELECTReDruSumReGuDataTable(ds.Tables("spSELECTReDruSumReGu"))) End If If (Not (ds.Tables("spSELECTReDruText")) Is Nothing) Then MyBase.Tables.Add(New spSELECTReDruTextDataTable(ds.Tables("spSELECTReDruText"))) End If If (Not (ds.Tables("spSelectReErfAuswahl")) Is Nothing) Then MyBase.Tables.Add(New spSelectReErfAuswahlDataTable(ds.Tables("spSelectReErfAuswahl"))) End If If (Not (ds.Tables("spSELECTReErfKA")) Is Nothing) Then MyBase.Tables.Add(New spSELECTReErfKADataTable(ds.Tables("spSELECTReErfKA"))) End If If (Not (ds.Tables("spSelectRK")) Is Nothing) Then MyBase.Tables.Add(New spSelectRKDataTable(ds.Tables("spSelectRK"))) End If If (Not (ds.Tables("spSelectRKPKey")) Is Nothing) Then MyBase.Tables.Add(New spSelectRKPKeyDataTable(ds.Tables("spSelectRKPKey"))) End If If (Not (ds.Tables("spSelectRP")) Is Nothing) Then MyBase.Tables.Add(New spSelectRPDataTable(ds.Tables("spSelectRP"))) End If If (Not (ds.Tables("spSelectRPFKeyRK")) Is Nothing) Then MyBase.Tables.Add(New spSelectRPFKeyRKDataTable(ds.Tables("spSelectRPFKeyRK"))) End If If (Not (ds.Tables("spSelectRPPKey")) Is Nothing) Then MyBase.Tables.Add(New spSelectRPPKeyDataTable(ds.Tables("spSelectRPPKey"))) End If If (Not (ds.Tables("spSELECTtblAnmeldungPKey")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblAnmeldungPKeyDataTable(ds.Tables("spSELECTtblAnmeldungPKey"))) End If If (Not (ds.Tables("spSELECTtblQS_Abfertigungsarten")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblQS_AbfertigungsartenDataTable(ds.Tables("spSELECTtblQS_Abfertigungsarten"))) End If If (Not (ds.Tables("spSELECTtblQS_Aufträge")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblQS_AufträgeDataTable(ds.Tables("spSELECTtblQS_Aufträge"))) End If If (Not (ds.Tables("spSELECTtblQS_Auftragspositionen")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblQS_AuftragspositionenDataTable(ds.Tables("spSELECTtblQS_Auftragspositionen"))) End If If (Not (ds.Tables("spSELECTtblTrdinHeader")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblTrdinHeaderDataTable(ds.Tables("spSELECTtblTrdinHeader"))) End If If (Not (ds.Tables("spSELECTtblTrdinInvoice")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblTrdinInvoiceDataTable(ds.Tables("spSELECTtblTrdinInvoice"))) End If If (Not (ds.Tables("spSELECTtblTrdinProduct")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblTrdinProductDataTable(ds.Tables("spSELECTtblTrdinProduct"))) End If If (Not (ds.Tables("spSELECTtblUStVAntrag")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblUStVAntragDataTable(ds.Tables("spSELECTtblUStVAntrag"))) End If If (Not (ds.Tables("spSELECTtblUStVBelegeingang")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblUStVBelegeingangDataTable(ds.Tables("spSELECTtblUStVBelegeingang"))) End If If (Not (ds.Tables("spSELECTtblUStVErstattung")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblUStVErstattungDataTable(ds.Tables("spSELECTtblUStVErstattung"))) End If If (Not (ds.Tables("spSELECTtblUStVPositionen")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblUStVPositionenDataTable(ds.Tables("spSELECTtblUStVPositionen"))) End If If (Not (ds.Tables("spSELECTtblZolaris_EZoll_NCTS")) Is Nothing) Then MyBase.Tables.Add(New spSELECTtblZolaris_EZoll_NCTSDataTable(ds.Tables("spSELECTtblZolaris_EZoll_NCTS"))) End If If (Not (ds.Tables("spSELECTUStVErstattungsschreiben")) Is Nothing) Then MyBase.Tables.Add(New spSELECTUStVErstattungsschreibenDataTable(ds.Tables("spSELECTUStVErstattungsschreiben"))) End If If (Not (ds.Tables("spSELECTUStVErstattungsschreiben2")) Is Nothing) Then MyBase.Tables.Add(New spSELECTUStVErstattungsschreiben2DataTable(ds.Tables("spSELECTUStVErstattungsschreiben2"))) End If If (Not (ds.Tables("spSELECTZkteing")) Is Nothing) Then MyBase.Tables.Add(New spSELECTZkteingDataTable(ds.Tables("spSELECTZkteing"))) End If If (Not (ds.Tables("spTrdinFiBuSelectInvoice")) Is Nothing) Then MyBase.Tables.Add(New spTrdinFiBuSelectInvoiceDataTable(ds.Tables("spTrdinFiBuSelectInvoice"))) End If If (Not (ds.Tables("spTrdinFiBuSelectProduct")) Is Nothing) Then MyBase.Tables.Add(New spTrdinFiBuSelectProductDataTable(ds.Tables("spTrdinFiBuSelectProduct"))) End If If (Not (ds.Tables("spTrdinSchreibenSelectInvoicePKey")) Is Nothing) Then MyBase.Tables.Add(New spTrdinSchreibenSelectInvoicePKeyDataTable(ds.Tables("spTrdinSchreibenSelectInvoicePKey"))) End If If (Not (ds.Tables("spTrdinSchreibenSelectProductFKeyInvoice")) Is Nothing) Then MyBase.Tables.Add(New spTrdinSchreibenSelectProductFKeyInvoiceDataTable(ds.Tables("spTrdinSchreibenSelectProductFKeyInvoice"))) End If If (Not (ds.Tables("spTrdinSchreibenSelectProductPKey")) Is Nothing) Then MyBase.Tables.Add(New spTrdinSchreibenSelectProductPKeyDataTable(ds.Tables("spTrdinSchreibenSelectProductPKey"))) End If If (Not (ds.Tables("spUStVAntragLesenParameterPKey")) Is Nothing) Then MyBase.Tables.Add(New spUStVAntragLesenParameterPKeyDataTable(ds.Tables("spUStVAntragLesenParameterPKey"))) End If If (Not (ds.Tables("spUStVBelegeingangLesenParameterPKey")) Is Nothing) Then MyBase.Tables.Add(New spUStVBelegeingangLesenParameterPKeyDataTable(ds.Tables("spUStVBelegeingangLesenParameterPKey"))) End If If (Not (ds.Tables("spUStVErstattungLesenParameterPKey")) Is Nothing) Then MyBase.Tables.Add(New spUStVErstattungLesenParameterPKeyDataTable(ds.Tables("spUStVErstattungLesenParameterPKey"))) End If If (Not (ds.Tables("spUStVPositionenLesenParameterPKey")) Is Nothing) Then MyBase.Tables.Add(New spUStVPositionenLesenParameterPKeyDataTable(ds.Tables("spUStVPositionenLesenParameterPKey"))) End If If (Not (ds.Tables("spUStVRechnungÜbernehmenMSE")) Is Nothing) Then MyBase.Tables.Add(New spUStVRechnungÜbernehmenMSEDataTable(ds.Tables("spUStVRechnungÜbernehmenMSE"))) End If If (Not (ds.Tables("spUStVVorschau_IDS_Summe")) Is Nothing) Then MyBase.Tables.Add(New spUStVVorschau_IDS_SummeDataTable(ds.Tables("spUStVVorschau_IDS_Summe"))) End If If (Not (ds.Tables("spUStVVorschau_IT_Summe")) Is Nothing) Then MyBase.Tables.Add(New spUStVVorschau_IT_SummeDataTable(ds.Tables("spUStVVorschau_IT_Summe"))) End If If (Not (ds.Tables("spUStVVorschau_MSE_Summe")) Is Nothing) Then MyBase.Tables.Add(New spUStVVorschau_MSE_SummeDataTable(ds.Tables("spUStVVorschau_MSE_Summe"))) End If If (Not (ds.Tables("spUStVVorschau_UTA_Summe")) Is Nothing) Then MyBase.Tables.Add(New spUStVVorschau_UTA_SummeDataTable(ds.Tables("spUStVVorschau_UTA_Summe"))) End If If (Not (ds.Tables("spUStVVorschau_VERAG_Summe")) Is Nothing) Then MyBase.Tables.Add(New spUStVVorschau_VERAG_SummeDataTable(ds.Tables("spUStVVorschau_VERAG_Summe"))) End If If (Not (ds.Tables("spZolaris_EZoll_NCTS_Datenbereitstellung")) Is Nothing) Then MyBase.Tables.Add(New spZolaris_EZoll_NCTS_DatenbereitstellungDataTable(ds.Tables("spZolaris_EZoll_NCTS_Datenbereitstellung"))) 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.tableAbfertigungsarten = CType(MyBase.Tables("Abfertigungsarten"),AbfertigungsartenDataTable) If (initTable = true) Then If (Not (Me.tableAbfertigungsarten) Is Nothing) Then Me.tableAbfertigungsarten.InitVars End If End If Me.tableAbfertigungskosten_der_Korrespondenten = CType(MyBase.Tables("Abfertigungskosten der Korrespondenten"),Abfertigungskosten_der_KorrespondentenDataTable) If (initTable = true) Then If (Not (Me.tableAbfertigungskosten_der_Korrespondenten) Is Nothing) Then Me.tableAbfertigungskosten_der_Korrespondenten.InitVars End If End If Me.tableAbfertigungsLaender = CType(MyBase.Tables("AbfertigungsLaender"),AbfertigungsLaenderDataTable) If (initTable = true) Then If (Not (Me.tableAbfertigungsLaender) Is Nothing) Then Me.tableAbfertigungsLaender.InitVars End If End If Me.tableAbfertigungsLaenderAbfertigungsarten = CType(MyBase.Tables("AbfertigungsLaenderAbfertigungsarten"),AbfertigungsLaenderAbfertigungsartenDataTable) If (initTable = true) Then If (Not (Me.tableAbfertigungsLaenderAbfertigungsarten) Is Nothing) Then Me.tableAbfertigungsLaenderAbfertigungsarten.InitVars End If End If Me.tableAbgabenarten = CType(MyBase.Tables("Abgabenarten"),AbgabenartenDataTable) If (initTable = true) Then If (Not (Me.tableAbgabenarten) Is Nothing) Then Me.tableAbgabenarten.InitVars End If End If Me.tableAdressen = CType(MyBase.Tables("Adressen"),AdressenDataTable) If (initTable = true) Then If (Not (Me.tableAdressen) Is Nothing) Then Me.tableAdressen.InitVars End If End If Me.tableAktivitätenlog = CType(MyBase.Tables("Aktivitätenlog"),AktivitätenlogDataTable) If (initTable = true) Then If (Not (Me.tableAktivitätenlog) Is Nothing) Then Me.tableAktivitätenlog.InitVars End If End If Me.tableAnlagen = CType(MyBase.Tables("Anlagen"),AnlagenDataTable) If (initTable = true) Then If (Not (Me.tableAnlagen) Is Nothing) Then Me.tableAnlagen.InitVars End If End If Me.tableatlas_status = CType(MyBase.Tables("atlas_status"),atlas_statusDataTable) If (initTable = true) Then If (Not (Me.tableatlas_status) Is Nothing) Then Me.tableatlas_status.InitVars End If End If Me.tableAufschubdaten = CType(MyBase.Tables("Aufschubdaten"),AufschubdatenDataTable) If (initTable = true) Then If (Not (Me.tableAufschubdaten) Is Nothing) Then Me.tableAufschubdaten.InitVars End If End If Me.tableAufschubkonten = CType(MyBase.Tables("Aufschubkonten"),AufschubkontenDataTable) If (initTable = true) Then If (Not (Me.tableAufschubkonten) Is Nothing) Then Me.tableAufschubkonten.InitVars End If End If Me.tableBelegarten = CType(MyBase.Tables("Belegarten"),BelegartenDataTable) If (initTable = true) Then If (Not (Me.tableBelegarten) Is Nothing) Then Me.tableBelegarten.InitVars End If End If Me.tableBerechnungsart = CType(MyBase.Tables("Berechnungsart"),BerechnungsartDataTable) If (initTable = true) Then If (Not (Me.tableBerechnungsart) Is Nothing) Then Me.tableBerechnungsart.InitVars End If End If Me.tableBerechnungsbogen = CType(MyBase.Tables("Berechnungsbogen"),BerechnungsbogenDataTable) If (initTable = true) Then If (Not (Me.tableBerechnungsbogen) Is Nothing) Then Me.tableBerechnungsbogen.InitVars End If End If Me.tableBerichte = CType(MyBase.Tables("Berichte"),BerichteDataTable) If (initTable = true) Then If (Not (Me.tableBerichte) Is Nothing) Then Me.tableBerichte.InitVars End If End If Me.tableCMR = CType(MyBase.Tables("CMR"),CMRDataTable) If (initTable = true) Then If (Not (Me.tableCMR) Is Nothing) Then Me.tableCMR.InitVars End If End If Me.tableDevisenkurse = CType(MyBase.Tables("Devisenkurse"),DevisenkurseDataTable) If (initTable = true) Then If (Not (Me.tableDevisenkurse) Is Nothing) Then Me.tableDevisenkurse.InitVars End If End If Me.tableEPBes = CType(MyBase.Tables("EPBes"),EPBesDataTable) If (initTable = true) Then If (Not (Me.tableEPBes) Is Nothing) Then Me.tableEPBes.InitVars End If End If Me.tableEPBesPOS = CType(MyBase.Tables("EPBesPOS"),EPBesPOSDataTable) If (initTable = true) Then If (Not (Me.tableEPBesPOS) Is Nothing) Then Me.tableEPBesPOS.InitVars End If End If Me.tableFilialen = CType(MyBase.Tables("Filialen"),FilialenDataTable) If (initTable = true) Then If (Not (Me.tableFilialen) Is Nothing) Then Me.tableFilialen.InitVars End If End If Me.tableGeschäftsarten = CType(MyBase.Tables("Geschäftsarten"),GeschäftsartenDataTable) If (initTable = true) Then If (Not (Me.tableGeschäftsarten) Is Nothing) Then Me.tableGeschäftsarten.InitVars End If End If Me.tableKorrespondenten = CType(MyBase.Tables("Korrespondenten"),KorrespondentenDataTable) If (initTable = true) Then If (Not (Me.tableKorrespondenten) Is Nothing) Then Me.tableKorrespondenten.InitVars End If End If Me.tableKostenstellen = CType(MyBase.Tables("Kostenstellen"),KostenstellenDataTable) If (initTable = true) Then If (Not (Me.tableKostenstellen) Is Nothing) Then Me.tableKostenstellen.InitVars End If End If Me.tableKreditkarten = CType(MyBase.Tables("Kreditkarten"),KreditkartenDataTable) If (initTable = true) Then If (Not (Me.tableKreditkarten) Is Nothing) Then Me.tableKreditkarten.InitVars End If End If Me.tableKunden = CType(MyBase.Tables("Kunden"),KundenDataTable) If (initTable = true) Then If (Not (Me.tableKunden) Is Nothing) Then Me.tableKunden.InitVars End If End If Me.tableKundenFilialen = CType(MyBase.Tables("KundenFilialen"),KundenFilialenDataTable) If (initTable = true) Then If (Not (Me.tableKundenFilialen) Is Nothing) Then Me.tableKundenFilialen.InitVars End If End If Me.tableLänder_der_Bundesrepublik_Deutschland = CType(MyBase.Tables("Länder der Bundesrepublik Deutschland"),Länder_der_Bundesrepublik_DeutschlandDataTable) If (initTable = true) Then If (Not (Me.tableLänder_der_Bundesrepublik_Deutschland) Is Nothing) Then Me.tableLänder_der_Bundesrepublik_Deutschland.InitVars End If End If Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik = CType(MyBase.Tables("Länderverzeichnis für die Außenhandelsstatistik"),Länderverzeichnis_für_die_AußenhandelsstatistikDataTable) If (initTable = true) Then If (Not (Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik) Is Nothing) Then Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.InitVars End If End If Me.tableLeistungen = CType(MyBase.Tables("Leistungen"),LeistungenDataTable) If (initTable = true) Then If (Not (Me.tableLeistungen) Is Nothing) Then Me.tableLeistungen.InitVars End If End If Me.tableLeistungenBUKonten = CType(MyBase.Tables("LeistungenBUKonten"),LeistungenBUKontenDataTable) If (initTable = true) Then If (Not (Me.tableLeistungenBUKonten) Is Nothing) Then Me.tableLeistungenBUKonten.InitVars End If End If Me.tableLieferbedingungen = CType(MyBase.Tables("Lieferbedingungen"),LieferbedingungenDataTable) If (initTable = true) Then If (Not (Me.tableLieferbedingungen) Is Nothing) Then Me.tableLieferbedingungen.InitVars End If End If Me.tableNebenkosten_der_Korrespondenten = CType(MyBase.Tables("Nebenkosten der Korrespondenten"),Nebenkosten_der_KorrespondentenDataTable) If (initTable = true) Then If (Not (Me.tableNebenkosten_der_Korrespondenten) Is Nothing) Then Me.tableNebenkosten_der_Korrespondenten.InitVars End If End If Me.tableOffene_Posten = CType(MyBase.Tables("Offene Posten"),Offene_PostenDataTable) If (initTable = true) Then If (Not (Me.tableOffene_Posten) Is Nothing) Then Me.tableOffene_Posten.InitVars End If End If Me.tableOffene_Posten_DVO = CType(MyBase.Tables("Offene_Posten_DVO"),Offene_Posten_DVODataTable) If (initTable = true) Then If (Not (Me.tableOffene_Posten_DVO) Is Nothing) Then Me.tableOffene_Posten_DVO.InitVars End If End If Me.tableOfferten = CType(MyBase.Tables("Offerten"),OffertenDataTable) If (initTable = true) Then If (Not (Me.tableOfferten) Is Nothing) Then Me.tableOfferten.InitVars End If End If Me.tableOffertenpositionen = CType(MyBase.Tables("Offertenpositionen"),OffertenpositionenDataTable) If (initTable = true) Then If (Not (Me.tableOffertenpositionen) Is Nothing) Then Me.tableOffertenpositionen.InitVars End If End If Me.tableOffertenstamm = CType(MyBase.Tables("Offertenstamm"),OffertenstammDataTable) If (initTable = true) Then If (Not (Me.tableOffertenstamm) Is Nothing) Then Me.tableOffertenstamm.InitVars End If End If Me.tablePersonal = CType(MyBase.Tables("Personal"),PersonalDataTable) If (initTable = true) Then If (Not (Me.tablePersonal) Is Nothing) Then Me.tablePersonal.InitVars End If End If Me.tableRechnungsausgang = CType(MyBase.Tables("Rechnungsausgang"),RechnungsausgangDataTable) If (initTable = true) Then If (Not (Me.tableRechnungsausgang) Is Nothing) Then Me.tableRechnungsausgang.InitVars End If End If Me.tableRechnungsausgangAnhaenge = CType(MyBase.Tables("RechnungsausgangAnhaenge"),RechnungsausgangAnhaengeDataTable) If (initTable = true) Then If (Not (Me.tableRechnungsausgangAnhaenge) Is Nothing) Then Me.tableRechnungsausgangAnhaenge.InitVars End If End If Me.tableRechnungsausgangPositionen = CType(MyBase.Tables("RechnungsausgangPositionen"),RechnungsausgangPositionenDataTable) If (initTable = true) Then If (Not (Me.tableRechnungsausgangPositionen) Is Nothing) Then Me.tableRechnungsausgangPositionen.InitVars End If End If Me.tableRechnungsnummern = CType(MyBase.Tables("Rechnungsnummern"),RechnungsnummernDataTable) If (initTable = true) Then If (Not (Me.tableRechnungsnummern) Is Nothing) Then Me.tableRechnungsnummern.InitVars End If End If Me.tableRechnungstexte = CType(MyBase.Tables("Rechnungstexte"),RechnungstexteDataTable) If (initTable = true) Then If (Not (Me.tableRechnungstexte) Is Nothing) Then Me.tableRechnungstexte.InitVars End If End If Me.tableSpeditionsbuch = CType(MyBase.Tables("Speditionsbuch"),SpeditionsbuchDataTable) If (initTable = true) Then If (Not (Me.tableSpeditionsbuch) Is Nothing) Then Me.tableSpeditionsbuch.InitVars End If End If Me.tableStandardofferten = CType(MyBase.Tables("Standardofferten"),StandardoffertenDataTable) If (initTable = true) Then If (Not (Me.tableStandardofferten) Is Nothing) Then Me.tableStandardofferten.InitVars End If End If Me.tableStandardoffertenFirma = CType(MyBase.Tables("StandardoffertenFirma"),StandardoffertenFirmaDataTable) If (initTable = true) Then If (Not (Me.tableStandardoffertenFirma) Is Nothing) Then Me.tableStandardoffertenFirma.InitVars End If End If Me.tableSteuertabelle = CType(MyBase.Tables("Steuertabelle"),SteuertabelleDataTable) If (initTable = true) Then If (Not (Me.tableSteuertabelle) Is Nothing) Then Me.tableSteuertabelle.InitVars End If End If Me.tabletbl_ASFINAG_FileInfo = CType(MyBase.Tables("tbl_ASFINAG_FileInfo"),tbl_ASFINAG_FileInfoDataTable) If (initTable = true) Then If (Not (Me.tabletbl_ASFINAG_FileInfo) Is Nothing) Then Me.tabletbl_ASFINAG_FileInfo.InitVars End If End If Me.tabletbl_BMD_Länder = CType(MyBase.Tables("tbl_BMD_Länder"),tbl_BMD_LänderDataTable) If (initTable = true) Then If (Not (Me.tabletbl_BMD_Länder) Is Nothing) Then Me.tabletbl_BMD_Länder.InitVars End If End If Me.tabletbl_DY_Paramter = CType(MyBase.Tables("tbl_DY_Paramter"),tbl_DY_ParamterDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_Paramter) Is Nothing) Then Me.tabletbl_DY_Paramter.InitVars End If End If Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung = CType(MyBase.Tables("tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung"),tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung) Is Nothing) Then Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.InitVars End If End If Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation = CType(MyBase.Tables("tbl_DY_ZollDE_A0127_BeteiligtenKonstellation"),tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation) Is Nothing) Then Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation.InitVars End If End If Me.tabletbl_DY_ZollDE_C0008_LaenderFull = CType(MyBase.Tables("tbl_DY_ZollDE_C0008_LaenderFull"),tbl_DY_ZollDE_C0008_LaenderFullDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_C0008_LaenderFull) Is Nothing) Then Me.tabletbl_DY_ZollDE_C0008_LaenderFull.InitVars End If End If Me.tabletbl_DY_ZollDE_C0010_LaenderAES = CType(MyBase.Tables("tbl_DY_ZollDE_C0010_LaenderAES"),tbl_DY_ZollDE_C0010_LaenderAESDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_C0010_LaenderAES) Is Nothing) Then Me.tabletbl_DY_ZollDE_C0010_LaenderAES.InitVars End If End If Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten = CType(MyBase.Tables("tbl_DY_ZollDE_C0013_UnterlagenArten"),tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten) Is Nothing) Then Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.InitVars End If End If Me.tabletbl_DY_ZollDE_C0014_VorpapierArten = CType(MyBase.Tables("tbl_DY_ZollDE_C0014_VorpapierArten"),tbl_DY_ZollDE_C0014_VorpapierArtenDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_C0014_VorpapierArten) Is Nothing) Then Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.InitVars End If End If Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten = CType(MyBase.Tables("tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten"),tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten) Is Nothing) Then Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.InitVars End If End If Me.tabletbl_DY_ZollDE_C0141_Zollstellen = CType(MyBase.Tables("tbl_DY_ZollDE_C0141_Zollstellen"),tbl_DY_ZollDE_C0141_ZollstellenDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_C0141_Zollstellen) Is Nothing) Then Me.tabletbl_DY_ZollDE_C0141_Zollstellen.InitVars End If End If Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans = CType(MyBase.Tables("tbl_DY_ZollDE_C0219_TypeTransportMeans"),tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans) Is Nothing) Then Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.InitVars End If End If Me.tabletbl_DY_ZollDE_I0200_Unterlagearten = CType(MyBase.Tables("tbl_DY_ZollDE_I0200_Unterlagearten"),tbl_DY_ZollDE_I0200_UnterlageartenDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_I0200_Unterlagearten) Is Nothing) Then Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.InitVars End If End If Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste = CType(MyBase.Tables("tbl_DY_ZollDE_I0400_Waehrungsliste"),tbl_DY_ZollDE_I0400_WaehrungslisteDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste) Is Nothing) Then Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.InitVars End If End If Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES = CType(MyBase.Tables("tbl_DY_ZollDE_I0610_ZustaendigeZSTAES"),tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES) Is Nothing) Then Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES.InitVars End If End If Me.tabletbl_DY_ZollDE_I0700_Masseinheiten = CType(MyBase.Tables("tbl_DY_ZollDE_I0700_Masseinheiten"),tbl_DY_ZollDE_I0700_MasseinheitenDataTable) If (initTable = true) Then If (Not (Me.tabletbl_DY_ZollDE_I0700_Masseinheiten) Is Nothing) Then Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.InitVars End If End If Me.tabletbl_Errors = CType(MyBase.Tables("tbl_Errors"),tbl_ErrorsDataTable) If (initTable = true) Then If (Not (Me.tabletbl_Errors) Is Nothing) Then Me.tabletbl_Errors.InitVars End If End If Me.tabletbl_IDS_Kategorien_Kunden = CType(MyBase.Tables("tbl_IDS_Kategorien_Kunden"),tbl_IDS_Kategorien_KundenDataTable) If (initTable = true) Then If (Not (Me.tabletbl_IDS_Kategorien_Kunden) Is Nothing) Then Me.tabletbl_IDS_Kategorien_Kunden.InitVars End If End If Me.tabletbl_IDS_Kategorien_Rechenwerte = CType(MyBase.Tables("tbl_IDS_Kategorien_Rechenwerte"),tbl_IDS_Kategorien_RechenwerteDataTable) If (initTable = true) Then If (Not (Me.tabletbl_IDS_Kategorien_Rechenwerte) Is Nothing) Then Me.tabletbl_IDS_Kategorien_Rechenwerte.InitVars End If End If Me.tabletbl_IDS_Kunden = CType(MyBase.Tables("tbl_IDS_Kunden"),tbl_IDS_KundenDataTable) If (initTable = true) Then If (Not (Me.tabletbl_IDS_Kunden) Is Nothing) Then Me.tabletbl_IDS_Kunden.InitVars End If End If Me.tabletbl_IDS_Kunden_ohne_Rabatt = CType(MyBase.Tables("tbl_IDS_Kunden_ohne_Rabatt"),tbl_IDS_Kunden_ohne_RabattDataTable) If (initTable = true) Then If (Not (Me.tabletbl_IDS_Kunden_ohne_Rabatt) Is Nothing) Then Me.tabletbl_IDS_Kunden_ohne_Rabatt.InitVars End If End If Me.tabletbl_IDS_Länder = CType(MyBase.Tables("tbl_IDS_Länder"),tbl_IDS_LänderDataTable) If (initTable = true) Then If (Not (Me.tabletbl_IDS_Länder) Is Nothing) Then Me.tabletbl_IDS_Länder.InitVars End If End If Me.tabletbl_IDS_Produkte = CType(MyBase.Tables("tbl_IDS_Produkte"),tbl_IDS_ProdukteDataTable) If (initTable = true) Then If (Not (Me.tabletbl_IDS_Produkte) Is Nothing) Then Me.tabletbl_IDS_Produkte.InitVars End If End If Me.tabletbl_IDS_Rechenwerte = CType(MyBase.Tables("tbl_IDS_Rechenwerte"),tbl_IDS_RechenwerteDataTable) If (initTable = true) Then If (Not (Me.tabletbl_IDS_Rechenwerte) Is Nothing) Then Me.tabletbl_IDS_Rechenwerte.InitVars End If End If Me.tabletbl_IDS_Stationen = CType(MyBase.Tables("tbl_IDS_Stationen"),tbl_IDS_StationenDataTable) If (initTable = true) Then If (Not (Me.tabletbl_IDS_Stationen) Is Nothing) Then Me.tabletbl_IDS_Stationen.InitVars End If End If Me.tabletbl_Intrastat_Ausfuhr = CType(MyBase.Tables("tbl_Intrastat_Ausfuhr"),tbl_Intrastat_AusfuhrDataTable) If (initTable = true) Then If (Not (Me.tabletbl_Intrastat_Ausfuhr) Is Nothing) Then Me.tabletbl_Intrastat_Ausfuhr.InitVars End If End If Me.tabletbl_Telefonbuch = CType(MyBase.Tables("tbl_Telefonbuch"),tbl_TelefonbuchDataTable) If (initTable = true) Then If (Not (Me.tabletbl_Telefonbuch) Is Nothing) Then Me.tabletbl_Telefonbuch.InitVars End If End If Me.tabletbl_Telefonnummern = CType(MyBase.Tables("tbl_Telefonnummern"),tbl_TelefonnummernDataTable) If (initTable = true) Then If (Not (Me.tabletbl_Telefonnummern) Is Nothing) Then Me.tabletbl_Telefonnummern.InitVars End If End If Me.tabletbl_WÖLFL = CType(MyBase.Tables("tbl_WÖLFL"),tbl_WÖLFLDataTable) If (initTable = true) Then If (Not (Me.tabletbl_WÖLFL) Is Nothing) Then Me.tabletbl_WÖLFL.InitVars End If End If Me.tabletbl_ZM_tabelle = CType(MyBase.Tables("tbl_ZM_tabelle"),tbl_ZM_tabelleDataTable) If (initTable = true) Then If (Not (Me.tabletbl_ZM_tabelle) Is Nothing) Then Me.tabletbl_ZM_tabelle.InitVars End If End If Me.tabletblAbfertigungsartenFiliale = CType(MyBase.Tables("tblAbfertigungsartenFiliale"),tblAbfertigungsartenFilialeDataTable) If (initTable = true) Then If (Not (Me.tabletblAbfertigungsartenFiliale) Is Nothing) Then Me.tabletblAbfertigungsartenFiliale.InitVars End If End If Me.tabletblAbfertigungsartOffertenstamm = CType(MyBase.Tables("tblAbfertigungsartOffertenstamm"),tblAbfertigungsartOffertenstammDataTable) If (initTable = true) Then If (Not (Me.tabletblAbfertigungsartOffertenstamm) Is Nothing) Then Me.tabletblAbfertigungsartOffertenstamm.InitVars End If End If Me.tabletblAbrechnung_NCTSBrg = CType(MyBase.Tables("tblAbrechnung_NCTSBrg"),tblAbrechnung_NCTSBrgDataTable) If (initTable = true) Then If (Not (Me.tabletblAbrechnung_NCTSBrg) Is Nothing) Then Me.tabletblAbrechnung_NCTSBrg.InitVars End If End If Me.tabletblAnmeldung = CType(MyBase.Tables("tblAnmeldung"),tblAnmeldungDataTable) If (initTable = true) Then If (Not (Me.tabletblAnmeldung) Is Nothing) Then Me.tabletblAnmeldung.InitVars End If End If Me.tabletblAsfinagMaut = CType(MyBase.Tables("tblAsfinagMaut"),tblAsfinagMautDataTable) If (initTable = true) Then If (Not (Me.tabletblAsfinagMaut) Is Nothing) Then Me.tabletblAsfinagMaut.InitVars End If End If Me.tabletblATEZ_NCTS = CType(MyBase.Tables("tblATEZ_NCTS"),tblATEZ_NCTSDataTable) If (initTable = true) Then If (Not (Me.tabletblATEZ_NCTS) Is Nothing) Then Me.tabletblATEZ_NCTS.InitVars End If End If Me.tabletblATEZ_NCTS_Routen = CType(MyBase.Tables("tblATEZ_NCTS_Routen"),tblATEZ_NCTS_RoutenDataTable) If (initTable = true) Then If (Not (Me.tabletblATEZ_NCTS_Routen) Is Nothing) Then Me.tabletblATEZ_NCTS_Routen.InitVars End If End If Me.tabletblATEZ_NCTS_Sessions = CType(MyBase.Tables("tblATEZ_NCTS_Sessions"),tblATEZ_NCTS_SessionsDataTable) If (initTable = true) Then If (Not (Me.tabletblATEZ_NCTS_Sessions) Is Nothing) Then Me.tabletblATEZ_NCTS_Sessions.InitVars End If End If Me.tabletblATEZ_NCTS_TransitCustomsOffice = CType(MyBase.Tables("tblATEZ_NCTS_TransitCustomsOffice"),tblATEZ_NCTS_TransitCustomsOfficeDataTable) If (initTable = true) Then If (Not (Me.tabletblATEZ_NCTS_TransitCustomsOffice) Is Nothing) Then Me.tabletblATEZ_NCTS_TransitCustomsOffice.InitVars End If End If Me.tabletblBankspesen = CType(MyBase.Tables("tblBankspesen"),tblBankspesenDataTable) If (initTable = true) Then If (Not (Me.tabletblBankspesen) Is Nothing) Then Me.tabletblBankspesen.InitVars End If End If Me.tabletblBerechnungsmethode = CType(MyBase.Tables("tblBerechnungsmethode"),tblBerechnungsmethodeDataTable) If (initTable = true) Then If (Not (Me.tabletblBerechnungsmethode) Is Nothing) Then Me.tabletblBerechnungsmethode.InitVars End If End If Me.tabletblBerichtsdrucker = CType(MyBase.Tables("tblBerichtsdrucker"),tblBerichtsdruckerDataTable) If (initTable = true) Then If (Not (Me.tabletblBerichtsdrucker) Is Nothing) Then Me.tabletblBerichtsdrucker.InitVars End If End If Me.tabletblBesuchsberichte = CType(MyBase.Tables("tblBesuchsberichte"),tblBesuchsberichteDataTable) If (initTable = true) Then If (Not (Me.tabletblBesuchsberichte) Is Nothing) Then Me.tabletblBesuchsberichte.InitVars End If End If Me.tabletblBonitaetsauskunft = CType(MyBase.Tables("tblBonitaetsauskunft"),tblBonitaetsauskunftDataTable) If (initTable = true) Then If (Not (Me.tabletblBonitaetsauskunft) Is Nothing) Then Me.tabletblBonitaetsauskunft.InitVars End If End If Me.tabletblBuchungstext = CType(MyBase.Tables("tblBuchungstext"),tblBuchungstextDataTable) If (initTable = true) Then If (Not (Me.tabletblBuchungstext) Is Nothing) Then Me.tabletblBuchungstext.InitVars End If End If Me.tabletblDakosy_AES = CType(MyBase.Tables("tblDakosy_AES"),tblDakosy_AESDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_AES) Is Nothing) Then Me.tabletblDakosy_AES.InitVars End If End If Me.tabletblDakosy_AES_Warenposition = CType(MyBase.Tables("tblDakosy_AES_Warenposition"),tblDakosy_AES_WarenpositionDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_AES_Warenposition) Is Nothing) Then Me.tabletblDakosy_AES_Warenposition.InitVars End If End If Me.tabletblDakosy_AES_WarenpositionPackstuecke = CType(MyBase.Tables("tblDakosy_AES_WarenpositionPackstuecke"),tblDakosy_AES_WarenpositionPackstueckeDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_AES_WarenpositionPackstuecke) Is Nothing) Then Me.tabletblDakosy_AES_WarenpositionPackstuecke.InitVars End If End If Me.tabletblDakosy_AES_WarenpositionUnterlagen = CType(MyBase.Tables("tblDakosy_AES_WarenpositionUnterlagen"),tblDakosy_AES_WarenpositionUnterlagenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_AES_WarenpositionUnterlagen) Is Nothing) Then Me.tabletblDakosy_AES_WarenpositionUnterlagen.InitVars End If End If Me.tabletblDakosy_EZA = CType(MyBase.Tables("tblDakosy_EZA"),tblDakosy_EZADataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_EZA) Is Nothing) Then Me.tabletblDakosy_EZA.InitVars End If End If Me.tabletblDakosy_EZA_Adressen = CType(MyBase.Tables("tblDakosy_EZA_Adressen"),tblDakosy_EZA_AdressenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_EZA_Adressen) Is Nothing) Then Me.tabletblDakosy_EZA_Adressen.InitVars End If End If Me.tabletblDakosy_EZA_Aufschub = CType(MyBase.Tables("tblDakosy_EZA_Aufschub"),tblDakosy_EZA_AufschubDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_EZA_Aufschub) Is Nothing) Then Me.tabletblDakosy_EZA_Aufschub.InitVars End If End If Me.tabletblDakosy_EZA_BEAnteilZLAVUV = CType(MyBase.Tables("tblDakosy_EZA_BEAnteilZLAVUV"),tblDakosy_EZA_BEAnteilZLAVUVDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_EZA_BEAnteilZLAVUV) Is Nothing) Then Me.tabletblDakosy_EZA_BEAnteilZLAVUV.InitVars End If End If Me.tabletblDakosy_EZA_SumABeendigungsAnteil = CType(MyBase.Tables("tblDakosy_EZA_SumABeendigungsAnteil"),tblDakosy_EZA_SumABeendigungsAnteilDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_EZA_SumABeendigungsAnteil) Is Nothing) Then Me.tabletblDakosy_EZA_SumABeendigungsAnteil.InitVars End If End If Me.tabletblDakosy_EZA_Unterlagen = CType(MyBase.Tables("tblDakosy_EZA_Unterlagen"),tblDakosy_EZA_UnterlagenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_EZA_Unterlagen) Is Nothing) Then Me.tabletblDakosy_EZA_Unterlagen.InitVars End If End If Me.tabletblDakosy_EZA_Warenposition = CType(MyBase.Tables("tblDakosy_EZA_Warenposition"),tblDakosy_EZA_WarenpositionDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_EZA_Warenposition) Is Nothing) Then Me.tabletblDakosy_EZA_Warenposition.InitVars End If End If Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten = CType(MyBase.Tables("tblDakosy_EZA_WarenpositionSonderfalldaten"),tblDakosy_EZA_WarenpositionSonderfalldatenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten) Is Nothing) Then Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.InitVars End If End If Me.tabletblDakosy_EZA_WarenpositionUnterlagen = CType(MyBase.Tables("tblDakosy_EZA_WarenpositionUnterlagen"),tblDakosy_EZA_WarenpositionUnterlagenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_EZA_WarenpositionUnterlagen) Is Nothing) Then Me.tabletblDakosy_EZA_WarenpositionUnterlagen.InitVars End If End If Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer = CType(MyBase.Tables("tblDakosy_EZA_WarenpositionVerbrauchssteuer"),tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer) Is Nothing) Then Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.InitVars End If End If Me.tabletblDakosy_NCTSOut = CType(MyBase.Tables("tblDakosy_NCTSOut"),tblDakosy_NCTSOutDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut) Is Nothing) Then Me.tabletblDakosy_NCTSOut.InitVars End If End If Me.tabletblDakosy_NCTSOut_Sicherheitsangaben = CType(MyBase.Tables("tblDakosy_NCTSOut_Sicherheitsangaben"),tblDakosy_NCTSOut_SicherheitsangabenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut_Sicherheitsangaben) Is Nothing) Then Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.InitVars End If End If Me.tabletblDakosy_NCTSOut_Warenposition = CType(MyBase.Tables("tblDakosy_NCTSOut_Warenposition"),tblDakosy_NCTSOut_WarenpositionDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut_Warenposition) Is Nothing) Then Me.tabletblDakosy_NCTSOut_Warenposition.InitVars End If End If Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke = CType(MyBase.Tables("tblDakosy_NCTSOut_WarenpositionPackstuecke"),tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke) Is Nothing) Then Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.InitVars End If End If Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen = CType(MyBase.Tables("tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen"),tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen) Is Nothing) Then Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.InitVars End If End If Me.tabletblDakosy_NCTSOut004 = CType(MyBase.Tables("tblDakosy_NCTSOut004"),tblDakosy_NCTSOut004DataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut004) Is Nothing) Then Me.tabletblDakosy_NCTSOut004.InitVars End If End If Me.tabletblDakosy_NCTSOut004_Guarantee = CType(MyBase.Tables("tblDakosy_NCTSOut004_Guarantee"),tblDakosy_NCTSOut004_GuaranteeDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut004_Guarantee) Is Nothing) Then Me.tabletblDakosy_NCTSOut004_Guarantee.InitVars End If End If Me.tabletblDakosy_NCTSOut004_HouseConsignment = CType(MyBase.Tables("tblDakosy_NCTSOut004_HouseConsignment"),tblDakosy_NCTSOut004_HouseConsignmentDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut004_HouseConsignment) Is Nothing) Then Me.tabletblDakosy_NCTSOut004_HouseConsignment.InitVars End If End If Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem = CType(MyBase.Tables("tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem"),tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem) Is Nothing) Then Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.InitVars End If End If Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging = CType(MyBase.Tables("tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging"),tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging) Is Nothing) Then Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.InitVars End If End If Me.tabletblDakosy_NCTSOut004_TransportEquipment = CType(MyBase.Tables("tblDakosy_NCTSOut004_TransportEquipment"),tblDakosy_NCTSOut004_TransportEquipmentDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_NCTSOut004_TransportEquipment) Is Nothing) Then Me.tabletblDakosy_NCTSOut004_TransportEquipment.InitVars End If End If Me.tabletblDakosy_Stammreferenzen = CType(MyBase.Tables("tblDakosy_Stammreferenzen"),tblDakosy_StammreferenzenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_Stammreferenzen) Is Nothing) Then Me.tabletblDakosy_Stammreferenzen.InitVars End If End If Me.tabletblDakosy_Statusmeldungen = CType(MyBase.Tables("tblDakosy_Statusmeldungen"),tblDakosy_StatusmeldungenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_Statusmeldungen) Is Nothing) Then Me.tabletblDakosy_Statusmeldungen.InitVars End If End If Me.tabletblDakosy_Zollanmeldungen = CType(MyBase.Tables("tblDakosy_Zollanmeldungen"),tblDakosy_ZollanmeldungenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_Zollanmeldungen) Is Nothing) Then Me.tabletblDakosy_Zollanmeldungen.InitVars End If End If Me.tabletblDakosy_ZollanmeldungenArten = CType(MyBase.Tables("tblDakosy_ZollanmeldungenArten"),tblDakosy_ZollanmeldungenArtenDataTable) If (initTable = true) Then If (Not (Me.tabletblDakosy_ZollanmeldungenArten) Is Nothing) Then Me.tabletblDakosy_ZollanmeldungenArten.InitVars End If End If Me.tabletblDatenarchiv = CType(MyBase.Tables("tblDatenarchiv"),tblDatenarchivDataTable) If (initTable = true) Then If (Not (Me.tabletblDatenarchiv) Is Nothing) Then Me.tabletblDatenarchiv.InitVars End If End If Me.tabletblDatenarchiv_Collection = CType(MyBase.Tables("tblDatenarchiv_Collection"),tblDatenarchiv_CollectionDataTable) If (initTable = true) Then If (Not (Me.tabletblDatenarchiv_Collection) Is Nothing) Then Me.tabletblDatenarchiv_Collection.InitVars End If End If Me.tabletblDEBundeslaenderPLZ = CType(MyBase.Tables("tblDEBundeslaenderPLZ"),tblDEBundeslaenderPLZDataTable) If (initTable = true) Then If (Not (Me.tabletblDEBundeslaenderPLZ) Is Nothing) Then Me.tabletblDEBundeslaenderPLZ.InitVars End If End If Me.tabletblDHF_Anhaenge = CType(MyBase.Tables("tblDHF_Anhaenge"),tblDHF_AnhaengeDataTable) If (initTable = true) Then If (Not (Me.tabletblDHF_Anhaenge) Is Nothing) Then Me.tabletblDHF_Anhaenge.InitVars End If End If Me.tabletblDieselArchiv = CType(MyBase.Tables("tblDieselArchiv"),tblDieselArchivDataTable) If (initTable = true) Then If (Not (Me.tabletblDieselArchiv) Is Nothing) Then Me.tabletblDieselArchiv.InitVars End If End If Me.tabletblDigicust_Sendungen = CType(MyBase.Tables("tblDigicust_Sendungen"),tblDigicust_SendungenDataTable) If (initTable = true) Then If (Not (Me.tabletblDigicust_Sendungen) Is Nothing) Then Me.tabletblDigicust_Sendungen.InitVars End If End If Me.tabletblDigicust_Sessions = CType(MyBase.Tables("tblDigicust_Sessions"),tblDigicust_SessionsDataTable) If (initTable = true) Then If (Not (Me.tabletblDigicust_Sessions) Is Nothing) Then Me.tabletblDigicust_Sessions.InitVars End If End If Me.tabletblDigicust_Settings = CType(MyBase.Tables("tblDigicust_Settings"),tblDigicust_SettingsDataTable) If (initTable = true) Then If (Not (Me.tabletblDigicust_Settings) Is Nothing) Then Me.tabletblDigicust_Settings.InitVars End If End If Me.tabletblEABelegnummer = CType(MyBase.Tables("tblEABelegnummer"),tblEABelegnummerDataTable) If (initTable = true) Then If (Not (Me.tabletblEABelegnummer) Is Nothing) Then Me.tabletblEABelegnummer.InitVars End If End If Me.tabletblEABelegposition = CType(MyBase.Tables("tblEABelegposition"),tblEABelegpositionDataTable) If (initTable = true) Then If (Not (Me.tabletblEABelegposition) Is Nothing) Then Me.tabletblEABelegposition.InitVars End If End If Me.tabletblEmailBenachrichtigung = CType(MyBase.Tables("tblEmailBenachrichtigung"),tblEmailBenachrichtigungDataTable) If (initTable = true) Then If (Not (Me.tabletblEmailBenachrichtigung) Is Nothing) Then Me.tabletblEmailBenachrichtigung.InitVars End If End If Me.tabletblEmailBenachrichtigungArten = CType(MyBase.Tables("tblEmailBenachrichtigungArten"),tblEmailBenachrichtigungArtenDataTable) If (initTable = true) Then If (Not (Me.tabletblEmailBenachrichtigungArten) Is Nothing) Then Me.tabletblEmailBenachrichtigungArten.InitVars End If End If Me.tabletblEORIPruefung = CType(MyBase.Tables("tblEORIPruefung"),tblEORIPruefungDataTable) If (initTable = true) Then If (Not (Me.tabletblEORIPruefung) Is Nothing) Then Me.tabletblEORIPruefung.InitVars End If End If Me.tabletblEZB_Waehrungskurse = CType(MyBase.Tables("tblEZB_Waehrungskurse"),tblEZB_WaehrungskurseDataTable) If (initTable = true) Then If (Not (Me.tabletblEZB_Waehrungskurse) Is Nothing) Then Me.tabletblEZB_Waehrungskurse.InitVars End If End If Me.tabletblEZT_Importcodenummern = CType(MyBase.Tables("tblEZT_Importcodenummern"),tblEZT_ImportcodenummernDataTable) If (initTable = true) Then If (Not (Me.tabletblEZT_Importcodenummern) Is Nothing) Then Me.tabletblEZT_Importcodenummern.InitVars End If End If Me.tabletblFahrerDaten = CType(MyBase.Tables("tblFahrerDaten"),tblFahrerDatenDataTable) If (initTable = true) Then If (Not (Me.tabletblFahrerDaten) Is Nothing) Then Me.tabletblFahrerDaten.InitVars End If End If Me.tabletblFirma = CType(MyBase.Tables("tblFirma"),tblFirmaDataTable) If (initTable = true) Then If (Not (Me.tabletblFirma) Is Nothing) Then Me.tabletblFirma.InitVars End If End If Me.tabletblFiskal_Daten = CType(MyBase.Tables("tblFiskal_Daten"),tblFiskal_DatenDataTable) If (initTable = true) Then If (Not (Me.tabletblFiskal_Daten) Is Nothing) Then Me.tabletblFiskal_Daten.InitVars End If End If Me.tabletblFiskalkunden = CType(MyBase.Tables("tblFiskalkunden"),tblFiskalkundenDataTable) If (initTable = true) Then If (Not (Me.tabletblFiskalkunden) Is Nothing) Then Me.tabletblFiskalkunden.InitVars End If End If Me.tabletblFormulardaten = CType(MyBase.Tables("tblFormulardaten"),tblFormulardatenDataTable) If (initTable = true) Then If (Not (Me.tabletblFormulardaten) Is Nothing) Then Me.tabletblFormulardaten.InitVars End If End If Me.tabletblFormulareVorlagen = CType(MyBase.Tables("tblFormulareVorlagen"),tblFormulareVorlagenDataTable) If (initTable = true) Then If (Not (Me.tabletblFormulareVorlagen) Is Nothing) Then Me.tabletblFormulareVorlagen.InitVars End If End If Me.tabletblFormulareVorlagenValues = CType(MyBase.Tables("tblFormulareVorlagenValues"),tblFormulareVorlagenValuesDataTable) If (initTable = true) Then If (Not (Me.tabletblFormulareVorlagenValues) Is Nothing) Then Me.tabletblFormulareVorlagenValues.InitVars End If End If Me.tabletblFremdSpeditionenZuordnung = CType(MyBase.Tables("tblFremdSpeditionenZuordnung"),tblFremdSpeditionenZuordnungDataTable) If (initTable = true) Then If (Not (Me.tabletblFremdSpeditionenZuordnung) Is Nothing) Then Me.tabletblFremdSpeditionenZuordnung.InitVars End If End If Me.tabletblFTP_Log = CType(MyBase.Tables("tblFTP_Log"),tblFTP_LogDataTable) If (initTable = true) Then If (Not (Me.tabletblFTP_Log) Is Nothing) Then Me.tabletblFTP_Log.InitVars End If End If Me.tabletblFTP_Log_Backup2 = CType(MyBase.Tables("tblFTP_Log_Backup2"),tblFTP_Log_Backup2DataTable) If (initTable = true) Then If (Not (Me.tabletblFTP_Log_Backup2) Is Nothing) Then Me.tabletblFTP_Log_Backup2.InitVars End If End If Me.tabletblGebuehrenvermarktungsnormen = CType(MyBase.Tables("tblGebuehrenvermarktungsnormen"),tblGebuehrenvermarktungsnormenDataTable) If (initTable = true) Then If (Not (Me.tabletblGebuehrenvermarktungsnormen) Is Nothing) Then Me.tabletblGebuehrenvermarktungsnormen.InitVars End If End If Me.tabletblGelangensbestaetigung = CType(MyBase.Tables("tblGelangensbestaetigung"),tblGelangensbestaetigungDataTable) If (initTable = true) Then If (Not (Me.tabletblGelangensbestaetigung) Is Nothing) Then Me.tabletblGelangensbestaetigung.InitVars End If End If Me.tabletblGeschäftsjahr = CType(MyBase.Tables("tblGeschäftsjahr"),tblGeschäftsjahrDataTable) If (initTable = true) Then If (Not (Me.tabletblGeschäftsjahr) Is Nothing) Then Me.tabletblGeschäftsjahr.InitVars End If End If Me.tabletblGeschäftsjahrBelegNr = CType(MyBase.Tables("tblGeschäftsjahrBelegNr"),tblGeschäftsjahrBelegNrDataTable) If (initTable = true) Then If (Not (Me.tabletblGeschäftsjahrBelegNr) Is Nothing) Then Me.tabletblGeschäftsjahrBelegNr.InitVars End If End If Me.tabletblGeschäftsjahrJournalNr = CType(MyBase.Tables("tblGeschäftsjahrJournalNr"),tblGeschäftsjahrJournalNrDataTable) If (initTable = true) Then If (Not (Me.tabletblGeschäftsjahrJournalNr) Is Nothing) Then Me.tabletblGeschäftsjahrJournalNr.InitVars End If End If Me.tabletblGestellungsgarantien = CType(MyBase.Tables("tblGestellungsgarantien"),tblGestellungsgarantienDataTable) If (initTable = true) Then If (Not (Me.tabletblGestellungsgarantien) Is Nothing) Then Me.tabletblGestellungsgarantien.InitVars End If End If Me.tabletblGestellungsmitteilung = CType(MyBase.Tables("tblGestellungsmitteilung"),tblGestellungsmitteilungDataTable) If (initTable = true) Then If (Not (Me.tabletblGestellungsmitteilung) Is Nothing) Then Me.tabletblGestellungsmitteilung.InitVars End If End If Me.tabletblGestellungsmitteilung_Positionen = CType(MyBase.Tables("tblGestellungsmitteilung_Positionen"),tblGestellungsmitteilung_PositionenDataTable) If (initTable = true) Then If (Not (Me.tabletblGestellungsmitteilung_Positionen) Is Nothing) Then Me.tabletblGestellungsmitteilung_Positionen.InitVars End If End If Me.tabletblGOBOXBestellungen = CType(MyBase.Tables("tblGOBOXBestellungen"),tblGOBOXBestellungenDataTable) If (initTable = true) Then If (Not (Me.tabletblGOBOXBestellungen) Is Nothing) Then Me.tabletblGOBOXBestellungen.InitVars End If End If Me.tabletblGVMS = CType(MyBase.Tables("tblGVMS"),tblGVMSDataTable) If (initTable = true) Then If (Not (Me.tabletblGVMS) Is Nothing) Then Me.tabletblGVMS.InitVars End If End If Me.tabletblGVMS_Carriers = CType(MyBase.Tables("tblGVMS_Carriers"),tblGVMS_CarriersDataTable) If (initTable = true) Then If (Not (Me.tabletblGVMS_Carriers) Is Nothing) Then Me.tabletblGVMS_Carriers.InitVars End If End If Me.tabletblGVMS_Ports = CType(MyBase.Tables("tblGVMS_Ports"),tblGVMS_PortsDataTable) If (initTable = true) Then If (Not (Me.tabletblGVMS_Ports) Is Nothing) Then Me.tabletblGVMS_Ports.InitVars End If End If Me.tabletblGVMS_Pos = CType(MyBase.Tables("tblGVMS_Pos"),tblGVMS_PosDataTable) If (initTable = true) Then If (Not (Me.tabletblGVMS_Pos) Is Nothing) Then Me.tabletblGVMS_Pos.InitVars End If End If Me.tabletblGVMS_Routes = CType(MyBase.Tables("tblGVMS_Routes"),tblGVMS_RoutesDataTable) If (initTable = true) Then If (Not (Me.tabletblGVMS_Routes) Is Nothing) Then Me.tabletblGVMS_Routes.InitVars End If End If Me.tabletblHandlingssaetzeIntern = CType(MyBase.Tables("tblHandlingssaetzeIntern"),tblHandlingssaetzeInternDataTable) If (initTable = true) Then If (Not (Me.tabletblHandlingssaetzeIntern) Is Nothing) Then Me.tabletblHandlingssaetzeIntern.InitVars End If End If Me.tabletblHistorie = CType(MyBase.Tables("tblHistorie"),tblHistorieDataTable) If (initTable = true) Then If (Not (Me.tabletblHistorie) Is Nothing) Then Me.tabletblHistorie.InitVars End If End If Me.tabletblIDS_Transaktionen = CType(MyBase.Tables("tblIDS_Transaktionen"),tblIDS_TransaktionenDataTable) If (initTable = true) Then If (Not (Me.tabletblIDS_Transaktionen) Is Nothing) Then Me.tabletblIDS_Transaktionen.InitVars End If End If Me.tabletblKassenbuch = CType(MyBase.Tables("tblKassenbuch"),tblKassenbuchDataTable) If (initTable = true) Then If (Not (Me.tabletblKassenbuch) Is Nothing) Then Me.tabletblKassenbuch.InitVars End If End If Me.tabletblKonto = CType(MyBase.Tables("tblKonto"),tblKontoDataTable) If (initTable = true) Then If (Not (Me.tabletblKonto) Is Nothing) Then Me.tabletblKonto.InitVars End If End If Me.tabletblKundenAufschubkonten = CType(MyBase.Tables("tblKundenAufschubkonten"),tblKundenAufschubkontenDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenAufschubkonten) Is Nothing) Then Me.tabletblKundenAufschubkonten.InitVars End If End If Me.tabletblKundenBesonderheiten = CType(MyBase.Tables("tblKundenBesonderheiten"),tblKundenBesonderheitenDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenBesonderheiten) Is Nothing) Then Me.tabletblKundenBesonderheiten.InitVars End If End If Me.tabletblKundenBesonderheiten_Kategorien = CType(MyBase.Tables("tblKundenBesonderheiten_Kategorien"),tblKundenBesonderheiten_KategorienDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenBesonderheiten_Kategorien) Is Nothing) Then Me.tabletblKundenBesonderheiten_Kategorien.InitVars End If End If Me.tabletblKundenDatenblatt = CType(MyBase.Tables("tblKundenDatenblatt"),tblKundenDatenblattDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenDatenblatt) Is Nothing) Then Me.tabletblKundenDatenblatt.InitVars End If End If Me.tabletblKundenErweitert = CType(MyBase.Tables("tblKundenErweitert"),tblKundenErweitertDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenErweitert) Is Nothing) Then Me.tabletblKundenErweitert.InitVars End If End If Me.tabletblKundenKontakt = CType(MyBase.Tables("tblKundenKontakt"),tblKundenKontaktDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenKontakt) Is Nothing) Then Me.tabletblKundenKontakt.InitVars End If End If Me.tabletblKundenKontaktArten = CType(MyBase.Tables("tblKundenKontaktArten"),tblKundenKontaktArtenDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenKontaktArten) Is Nothing) Then Me.tabletblKundenKontaktArten.InitVars End If End If Me.tabletblKundenumsatz = CType(MyBase.Tables("tblKundenumsatz"),tblKundenumsatzDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenumsatz) Is Nothing) Then Me.tabletblKundenumsatz.InitVars End If End If Me.tabletblKundenVermerke = CType(MyBase.Tables("tblKundenVermerke"),tblKundenVermerkeDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenVermerke) Is Nothing) Then Me.tabletblKundenVermerke.InitVars End If End If Me.tabletblKundenVertraege = CType(MyBase.Tables("tblKundenVertraege"),tblKundenVertraegeDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenVertraege) Is Nothing) Then Me.tabletblKundenVertraege.InitVars End If End If Me.tabletblKundenVertraegeArten = CType(MyBase.Tables("tblKundenVertraegeArten"),tblKundenVertraegeArtenDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenVertraegeArten) Is Nothing) Then Me.tabletblKundenVertraegeArten.InitVars End If End If Me.tabletblKundenVollmachten = CType(MyBase.Tables("tblKundenVollmachten"),tblKundenVollmachtenDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenVollmachten) Is Nothing) Then Me.tabletblKundenVollmachten.InitVars End If End If Me.tabletblKundenVollmachtenArt = CType(MyBase.Tables("tblKundenVollmachtenArt"),tblKundenVollmachtenArtDataTable) If (initTable = true) Then If (Not (Me.tabletblKundenVollmachtenArt) Is Nothing) Then Me.tabletblKundenVollmachtenArt.InitVars End If End If Me.tabletblLogbuch = CType(MyBase.Tables("tblLogbuch"),tblLogbuchDataTable) If (initTable = true) Then If (Not (Me.tabletblLogbuch) Is Nothing) Then Me.tabletblLogbuch.InitVars End If End If Me.tabletblMandant = CType(MyBase.Tables("tblMandant"),tblMandantDataTable) If (initTable = true) Then If (Not (Me.tabletblMandant) Is Nothing) Then Me.tabletblMandant.InitVars End If End If Me.tabletblMautIT_Belegarten = CType(MyBase.Tables("tblMautIT_Belegarten"),tblMautIT_BelegartenDataTable) If (initTable = true) Then If (Not (Me.tabletblMautIT_Belegarten) Is Nothing) Then Me.tabletblMautIT_Belegarten.InitVars End If End If Me.tabletblMautITArchiv = CType(MyBase.Tables("tblMautITArchiv"),tblMautITArchivDataTable) If (initTable = true) Then If (Not (Me.tabletblMautITArchiv) Is Nothing) Then Me.tabletblMautITArchiv.InitVars End If End If Me.tabletblMDM_Paramter = CType(MyBase.Tables("tblMDM_Paramter"),tblMDM_ParamterDataTable) If (initTable = true) Then If (Not (Me.tabletblMDM_Paramter) Is Nothing) Then Me.tabletblMDM_Paramter.InitVars End If End If Me.tabletblMSECustomers = CType(MyBase.Tables("tblMSECustomers"),tblMSECustomersDataTable) If (initTable = true) Then If (Not (Me.tabletblMSECustomers) Is Nothing) Then Me.tabletblMSECustomers.InitVars End If End If Me.tabletblMSEImport = CType(MyBase.Tables("tblMSEImport"),tblMSEImportDataTable) If (initTable = true) Then If (Not (Me.tabletblMSEImport) Is Nothing) Then Me.tabletblMSEImport.InitVars End If End If Me.tabletblMSEInvoices = CType(MyBase.Tables("tblMSEInvoices"),tblMSEInvoicesDataTable) If (initTable = true) Then If (Not (Me.tabletblMSEInvoices) Is Nothing) Then Me.tabletblMSEInvoices.InitVars End If End If Me.tabletblMSELeistungen = CType(MyBase.Tables("tblMSELeistungen"),tblMSELeistungenDataTable) If (initTable = true) Then If (Not (Me.tabletblMSELeistungen) Is Nothing) Then Me.tabletblMSELeistungen.InitVars End If End If Me.tabletblMSESettlements = CType(MyBase.Tables("tblMSESettlements"),tblMSESettlementsDataTable) If (initTable = true) Then If (Not (Me.tabletblMSESettlements) Is Nothing) Then Me.tabletblMSESettlements.InitVars End If End If Me.tabletblMSETransactions = CType(MyBase.Tables("tblMSETransactions"),tblMSETransactionsDataTable) If (initTable = true) Then If (Not (Me.tabletblMSETransactions) Is Nothing) Then Me.tabletblMSETransactions.InitVars End If End If Me.tabletblMSETransactionsArchiv = CType(MyBase.Tables("tblMSETransactionsArchiv"),tblMSETransactionsArchivDataTable) If (initTable = true) Then If (Not (Me.tabletblMSETransactionsArchiv) Is Nothing) Then Me.tabletblMSETransactionsArchiv.InitVars End If End If Me.tabletblMSETransactionsArchivOLD = CType(MyBase.Tables("tblMSETransactionsArchivOLD"),tblMSETransactionsArchivOLDDataTable) If (initTable = true) Then If (Not (Me.tabletblMSETransactionsArchivOLD) Is Nothing) Then Me.tabletblMSETransactionsArchivOLD.InitVars End If End If Me.tabletblNCTS_TR = CType(MyBase.Tables("tblNCTS_TR"),tblNCTS_TRDataTable) If (initTable = true) Then If (Not (Me.tabletblNCTS_TR) Is Nothing) Then Me.tabletblNCTS_TR.InitVars End If End If Me.tabletblNCTS_TR_Nachrichten = CType(MyBase.Tables("tblNCTS_TR_Nachrichten"),tblNCTS_TR_NachrichtenDataTable) If (initTable = true) Then If (Not (Me.tabletblNCTS_TR_Nachrichten) Is Nothing) Then Me.tabletblNCTS_TR_Nachrichten.InitVars End If End If Me.tabletblNCTS_TR_Sicherheitsangaben = CType(MyBase.Tables("tblNCTS_TR_Sicherheitsangaben"),tblNCTS_TR_SicherheitsangabenDataTable) If (initTable = true) Then If (Not (Me.tabletblNCTS_TR_Sicherheitsangaben) Is Nothing) Then Me.tabletblNCTS_TR_Sicherheitsangaben.InitVars End If End If Me.tabletblNCTS_TR_Warenposition = CType(MyBase.Tables("tblNCTS_TR_Warenposition"),tblNCTS_TR_WarenpositionDataTable) If (initTable = true) Then If (Not (Me.tabletblNCTS_TR_Warenposition) Is Nothing) Then Me.tabletblNCTS_TR_Warenposition.InitVars End If End If Me.tabletblNCTS_TR_WarenpositionPackstuecke = CType(MyBase.Tables("tblNCTS_TR_WarenpositionPackstuecke"),tblNCTS_TR_WarenpositionPackstueckeDataTable) If (initTable = true) Then If (Not (Me.tabletblNCTS_TR_WarenpositionPackstuecke) Is Nothing) Then Me.tabletblNCTS_TR_WarenpositionPackstuecke.InitVars End If End If Me.tabletblNCTSGestellungsadressen = CType(MyBase.Tables("tblNCTSGestellungsadressen"),tblNCTSGestellungsadressenDataTable) If (initTable = true) Then If (Not (Me.tabletblNCTSGestellungsadressen) Is Nothing) Then Me.tabletblNCTSGestellungsadressen.InitVars End If End If Me.tabletblNTCSRouten = CType(MyBase.Tables("tblNTCSRouten"),tblNTCSRoutenDataTable) If (initTable = true) Then If (Not (Me.tabletblNTCSRouten) Is Nothing) Then Me.tabletblNTCSRouten.InitVars End If End If Me.tabletblOffertenArchiv = CType(MyBase.Tables("tblOffertenArchiv"),tblOffertenArchivDataTable) If (initTable = true) Then If (Not (Me.tabletblOffertenArchiv) Is Nothing) Then Me.tabletblOffertenArchiv.InitVars End If End If Me.tabletblOffertenPositionenArchiv = CType(MyBase.Tables("tblOffertenPositionenArchiv"),tblOffertenPositionenArchivDataTable) If (initTable = true) Then If (Not (Me.tabletblOffertenPositionenArchiv) Is Nothing) Then Me.tabletblOffertenPositionenArchiv.InitVars End If End If Me.tabletblOregonNCTS_DeclarationData = CType(MyBase.Tables("tblOregonNCTS_DeclarationData"),tblOregonNCTS_DeclarationDataDataTable) If (initTable = true) Then If (Not (Me.tabletblOregonNCTS_DeclarationData) Is Nothing) Then Me.tabletblOregonNCTS_DeclarationData.InitVars End If End If Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute = CType(MyBase.Tables("tblOregonNCTS_Declarations_AdditionalCodesAttribute"),tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable) If (initTable = true) Then If (Not (Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute) Is Nothing) Then Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.InitVars End If End If Me.tabletblOregonNCTS_Declarations_DocumentsAttribute = CType(MyBase.Tables("tblOregonNCTS_Declarations_DocumentsAttribute"),tblOregonNCTS_Declarations_DocumentsAttributeDataTable) If (initTable = true) Then If (Not (Me.tabletblOregonNCTS_Declarations_DocumentsAttribute) Is Nothing) Then Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.InitVars End If End If Me.tabletblOregonNCTS_Declarations_GoodsAttribute = CType(MyBase.Tables("tblOregonNCTS_Declarations_GoodsAttribute"),tblOregonNCTS_Declarations_GoodsAttributeDataTable) If (initTable = true) Then If (Not (Me.tabletblOregonNCTS_Declarations_GoodsAttribute) Is Nothing) Then Me.tabletblOregonNCTS_Declarations_GoodsAttribute.InitVars End If End If Me.tabletblOregonNCTS_Declarations_PacksAttribute = CType(MyBase.Tables("tblOregonNCTS_Declarations_PacksAttribute"),tblOregonNCTS_Declarations_PacksAttributeDataTable) If (initTable = true) Then If (Not (Me.tabletblOregonNCTS_Declarations_PacksAttribute) Is Nothing) Then Me.tabletblOregonNCTS_Declarations_PacksAttribute.InitVars End If End If Me.tabletblOregonNCTS_Declarations_PartiesAttribute = CType(MyBase.Tables("tblOregonNCTS_Declarations_PartiesAttribute"),tblOregonNCTS_Declarations_PartiesAttributeDataTable) If (initTable = true) Then If (Not (Me.tabletblOregonNCTS_Declarations_PartiesAttribute) Is Nothing) Then Me.tabletblOregonNCTS_Declarations_PartiesAttribute.InitVars End If End If Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute = CType(MyBase.Tables("tblOregonNCTS_Declarations_ProducedDocumentsAttribute"),tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable) If (initTable = true) Then If (Not (Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute) Is Nothing) Then Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.InitVars End If End If Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute = CType(MyBase.Tables("tblOregonNCTS_Declarations_TraderAdditionsAttribute"),tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable) If (initTable = true) Then If (Not (Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute) Is Nothing) Then Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.InitVars End If End If Me.tabletblOregonNCTS_ReferenceTemplate = CType(MyBase.Tables("tblOregonNCTS_ReferenceTemplate"),tblOregonNCTS_ReferenceTemplateDataTable) If (initTable = true) Then If (Not (Me.tabletblOregonNCTS_ReferenceTemplate) Is Nothing) Then Me.tabletblOregonNCTS_ReferenceTemplate.InitVars End If End If Me.tabletblOriginalATR = CType(MyBase.Tables("tblOriginalATR"),tblOriginalATRDataTable) If (initTable = true) Then If (Not (Me.tabletblOriginalATR) Is Nothing) Then Me.tabletblOriginalATR.InitVars End If End If Me.tabletblPartnersystem_Paramter = CType(MyBase.Tables("tblPartnersystem_Paramter"),tblPartnersystem_ParamterDataTable) If (initTable = true) Then If (Not (Me.tabletblPartnersystem_Paramter) Is Nothing) Then Me.tabletblPartnersystem_Paramter.InitVars End If End If Me.tabletblPfad = CType(MyBase.Tables("tblPfad"),tblPfadDataTable) If (initTable = true) Then If (Not (Me.tabletblPfad) Is Nothing) Then Me.tabletblPfad.InitVars End If End If Me.tabletblPLOSE_Details = CType(MyBase.Tables("tblPLOSE_Details"),tblPLOSE_DetailsDataTable) If (initTable = true) Then If (Not (Me.tabletblPLOSE_Details) Is Nothing) Then Me.tabletblPLOSE_Details.InitVars End If End If Me.tabletblPLOSE_Inv_Data = CType(MyBase.Tables("tblPLOSE_Inv_Data"),tblPLOSE_Inv_DataDataTable) If (initTable = true) Then If (Not (Me.tabletblPLOSE_Inv_Data) Is Nothing) Then Me.tabletblPLOSE_Inv_Data.InitVars End If End If Me.tabletblPLOSE_Lieferant = CType(MyBase.Tables("tblPLOSE_Lieferant"),tblPLOSE_LieferantDataTable) If (initTable = true) Then If (Not (Me.tabletblPLOSE_Lieferant) Is Nothing) Then Me.tabletblPLOSE_Lieferant.InitVars End If End If Me.tabletblPLOSE_Produktbeschreibung = CType(MyBase.Tables("tblPLOSE_Produktbeschreibung"),tblPLOSE_ProduktbeschreibungDataTable) If (initTable = true) Then If (Not (Me.tabletblPLOSE_Produktbeschreibung) Is Nothing) Then Me.tabletblPLOSE_Produktbeschreibung.InitVars End If End If Me.tabletblPosNr = CType(MyBase.Tables("tblPosNr"),tblPosNrDataTable) If (initTable = true) Then If (Not (Me.tabletblPosNr) Is Nothing) Then Me.tabletblPosNr.InitVars End If End If Me.tabletblPostversand = CType(MyBase.Tables("tblPostversand"),tblPostversandDataTable) If (initTable = true) Then If (Not (Me.tabletblPostversand) Is Nothing) Then Me.tabletblPostversand.InitVars End If End If Me.tabletblPreislisten = CType(MyBase.Tables("tblPreislisten"),tblPreislistenDataTable) If (initTable = true) Then If (Not (Me.tabletblPreislisten) Is Nothing) Then Me.tabletblPreislisten.InitVars End If End If Me.tabletblPreislistenpositionen = CType(MyBase.Tables("tblPreislistenpositionen"),tblPreislistenpositionenDataTable) If (initTable = true) Then If (Not (Me.tabletblPreislistenpositionen) Is Nothing) Then Me.tabletblPreislistenpositionen.InitVars End If End If Me.tabletblPreistabellen = CType(MyBase.Tables("tblPreistabellen"),tblPreistabellenDataTable) If (initTable = true) Then If (Not (Me.tabletblPreistabellen) Is Nothing) Then Me.tabletblPreistabellen.InitVars End If End If Me.tabletblPreistabellenpositionen = CType(MyBase.Tables("tblPreistabellenpositionen"),tblPreistabellenpositionenDataTable) If (initTable = true) Then If (Not (Me.tabletblPreistabellenpositionen) Is Nothing) Then Me.tabletblPreistabellenpositionen.InitVars End If End If Me.tabletblQS_Abfertigungsarten = CType(MyBase.Tables("tblQS_Abfertigungsarten"),tblQS_AbfertigungsartenDataTable) If (initTable = true) Then If (Not (Me.tabletblQS_Abfertigungsarten) Is Nothing) Then Me.tabletblQS_Abfertigungsarten.InitVars End If End If Me.tabletblQS_Aufträge = CType(MyBase.Tables("tblQS_Aufträge"),tblQS_AufträgeDataTable) If (initTable = true) Then If (Not (Me.tabletblQS_Aufträge) Is Nothing) Then Me.tabletblQS_Aufträge.InitVars End If End If Me.tabletblQS_Auftragspositionen = CType(MyBase.Tables("tblQS_Auftragspositionen"),tblQS_AuftragspositionenDataTable) If (initTable = true) Then If (Not (Me.tabletblQS_Auftragspositionen) Is Nothing) Then Me.tabletblQS_Auftragspositionen.InitVars End If End If Me.tabletblQS_Teams = CType(MyBase.Tables("tblQS_Teams"),tblQS_TeamsDataTable) If (initTable = true) Then If (Not (Me.tabletblQS_Teams) Is Nothing) Then Me.tabletblQS_Teams.InitVars End If End If Me.tabletblQS_TeamsMA = CType(MyBase.Tables("tblQS_TeamsMA"),tblQS_TeamsMADataTable) If (initTable = true) Then If (Not (Me.tabletblQS_TeamsMA) Is Nothing) Then Me.tabletblQS_TeamsMA.InitVars End If End If Me.tabletblRechnungsnotizen = CType(MyBase.Tables("tblRechnungsnotizen"),tblRechnungsnotizenDataTable) If (initTable = true) Then If (Not (Me.tabletblRechnungsnotizen) Is Nothing) Then Me.tabletblRechnungsnotizen.InitVars End If End If Me.tabletblRef = CType(MyBase.Tables("tblRef"),tblRefDataTable) If (initTable = true) Then If (Not (Me.tabletblRef) Is Nothing) Then Me.tabletblRef.InitVars End If End If Me.tabletblRefBeziehungen = CType(MyBase.Tables("tblRefBeziehungen"),tblRefBeziehungenDataTable) If (initTable = true) Then If (Not (Me.tabletblRefBeziehungen) Is Nothing) Then Me.tabletblRefBeziehungen.InitVars End If End If Me.tabletblRKSV_Kassen = CType(MyBase.Tables("tblRKSV_Kassen"),tblRKSV_KassenDataTable) If (initTable = true) Then If (Not (Me.tabletblRKSV_Kassen) Is Nothing) Then Me.tabletblRKSV_Kassen.InitVars End If End If Me.tabletblRKSV_POS = CType(MyBase.Tables("tblRKSV_POS"),tblRKSV_POSDataTable) If (initTable = true) Then If (Not (Me.tabletblRKSV_POS) Is Nothing) Then Me.tabletblRKSV_POS.InitVars End If End If Me.tabletblRMCImport = CType(MyBase.Tables("tblRMCImport"),tblRMCImportDataTable) If (initTable = true) Then If (Not (Me.tabletblRMCImport) Is Nothing) Then Me.tabletblRMCImport.InitVars End If End If Me.tabletblSMS = CType(MyBase.Tables("tblSMS"),tblSMSDataTable) If (initTable = true) Then If (Not (Me.tabletblSMS) Is Nothing) Then Me.tabletblSMS.InitVars End If End If Me.tabletblSpeditionsbucharchiv = CType(MyBase.Tables("tblSpeditionsbucharchiv"),tblSpeditionsbucharchivDataTable) If (initTable = true) Then If (Not (Me.tabletblSpeditionsbucharchiv) Is Nothing) Then Me.tabletblSpeditionsbucharchiv.InitVars End If End If Me.tabletblSpeditionsbuchEndEmpfaenger = CType(MyBase.Tables("tblSpeditionsbuchEndEmpfaenger"),tblSpeditionsbuchEndEmpfaengerDataTable) If (initTable = true) Then If (Not (Me.tabletblSpeditionsbuchEndEmpfaenger) Is Nothing) Then Me.tabletblSpeditionsbuchEndEmpfaenger.InitVars End If End If Me.tabletblSpeditionsbuchUnterPos = CType(MyBase.Tables("tblSpeditionsbuchUnterPos"),tblSpeditionsbuchUnterPosDataTable) If (initTable = true) Then If (Not (Me.tabletblSpeditionsbuchUnterPos) Is Nothing) Then Me.tabletblSpeditionsbuchUnterPos.InitVars End If End If Me.tabletblSpeditionsbuchUnterPosArten = CType(MyBase.Tables("tblSpeditionsbuchUnterPosArten"),tblSpeditionsbuchUnterPosArtenDataTable) If (initTable = true) Then If (Not (Me.tabletblSpeditionsbuchUnterPosArten) Is Nothing) Then Me.tabletblSpeditionsbuchUnterPosArten.InitVars End If End If Me.tabletblSteuernummern = CType(MyBase.Tables("tblSteuernummern"),tblSteuernummernDataTable) If (initTable = true) Then If (Not (Me.tabletblSteuernummern) Is Nothing) Then Me.tabletblSteuernummern.InitVars End If End If Me.tabletblSteuersätze = CType(MyBase.Tables("tblSteuersätze"),tblSteuersätzeDataTable) If (initTable = true) Then If (Not (Me.tabletblSteuersätze) Is Nothing) Then Me.tabletblSteuersätze.InitVars End If End If Me.tabletblSteuertyp = CType(MyBase.Tables("tblSteuertyp"),tblSteuertypDataTable) If (initTable = true) Then If (Not (Me.tabletblSteuertyp) Is Nothing) Then Me.tabletblSteuertyp.InitVars End If End If Me.tabletblTelotec_Abgaben = CType(MyBase.Tables("tblTelotec_Abgaben"),tblTelotec_AbgabenDataTable) If (initTable = true) Then If (Not (Me.tabletblTelotec_Abgaben) Is Nothing) Then Me.tabletblTelotec_Abgaben.InitVars End If End If Me.tabletblTelotec_Anmeldung = CType(MyBase.Tables("tblTelotec_Anmeldung"),tblTelotec_AnmeldungDataTable) If (initTable = true) Then If (Not (Me.tabletblTelotec_Anmeldung) Is Nothing) Then Me.tabletblTelotec_Anmeldung.InitVars End If End If Me.tabletblTelotec_Packstuecke = CType(MyBase.Tables("tblTelotec_Packstuecke"),tblTelotec_PackstueckeDataTable) If (initTable = true) Then If (Not (Me.tabletblTelotec_Packstuecke) Is Nothing) Then Me.tabletblTelotec_Packstuecke.InitVars End If End If Me.tabletblTelotec_Paramter = CType(MyBase.Tables("tblTelotec_Paramter"),tblTelotec_ParamterDataTable) If (initTable = true) Then If (Not (Me.tabletblTelotec_Paramter) Is Nothing) Then Me.tabletblTelotec_Paramter.InitVars End If End If Me.tabletblTelotec_Positionsdaten = CType(MyBase.Tables("tblTelotec_Positionsdaten"),tblTelotec_PositionsdatenDataTable) If (initTable = true) Then If (Not (Me.tabletblTelotec_Positionsdaten) Is Nothing) Then Me.tabletblTelotec_Positionsdaten.InitVars End If End If Me.tabletblTelotec_PositionsdatenAbgaben = CType(MyBase.Tables("tblTelotec_PositionsdatenAbgaben"),tblTelotec_PositionsdatenAbgabenDataTable) If (initTable = true) Then If (Not (Me.tabletblTelotec_PositionsdatenAbgaben) Is Nothing) Then Me.tabletblTelotec_PositionsdatenAbgaben.InitVars End If End If Me.tabletblTelotec_PositionsdatenDokumente = CType(MyBase.Tables("tblTelotec_PositionsdatenDokumente"),tblTelotec_PositionsdatenDokumenteDataTable) If (initTable = true) Then If (Not (Me.tabletblTelotec_PositionsdatenDokumente) Is Nothing) Then Me.tabletblTelotec_PositionsdatenDokumente.InitVars End If End If Me.tabletblTelotec_Sicherheit = CType(MyBase.Tables("tblTelotec_Sicherheit"),tblTelotec_SicherheitDataTable) If (initTable = true) Then If (Not (Me.tabletblTelotec_Sicherheit) Is Nothing) Then Me.tabletblTelotec_Sicherheit.InitVars End If End If Me.tabletblTest = CType(MyBase.Tables("tblTest"),tblTestDataTable) If (initTable = true) Then If (Not (Me.tabletblTest) Is Nothing) Then Me.tabletblTest.InitVars End If End If Me.tabletblTextkonserve = CType(MyBase.Tables("tblTextkonserve"),tblTextkonserveDataTable) If (initTable = true) Then If (Not (Me.tabletblTextkonserve) Is Nothing) Then Me.tabletblTextkonserve.InitVars End If End If Me.tabletblTR_Aviso = CType(MyBase.Tables("tblTR_Aviso"),tblTR_AvisoDataTable) If (initTable = true) Then If (Not (Me.tabletblTR_Aviso) Is Nothing) Then Me.tabletblTR_Aviso.InitVars End If End If Me.tabletblTR_AvisoAnheange = CType(MyBase.Tables("tblTR_AvisoAnheange"),tblTR_AvisoAnheangeDataTable) If (initTable = true) Then If (Not (Me.tabletblTR_AvisoAnheange) Is Nothing) Then Me.tabletblTR_AvisoAnheange.InitVars End If End If Me.tabletblTR_Shipment = CType(MyBase.Tables("tblTR_Shipment"),tblTR_ShipmentDataTable) If (initTable = true) Then If (Not (Me.tabletblTR_Shipment) Is Nothing) Then Me.tabletblTR_Shipment.InitVars End If End If Me.tabletblTR_Shipment_Adressen = CType(MyBase.Tables("tblTR_Shipment_Adressen"),tblTR_Shipment_AdressenDataTable) If (initTable = true) Then If (Not (Me.tabletblTR_Shipment_Adressen) Is Nothing) Then Me.tabletblTR_Shipment_Adressen.InitVars End If End If Me.tabletblTR_Shipment_Document = CType(MyBase.Tables("tblTR_Shipment_Document"),tblTR_Shipment_DocumentDataTable) If (initTable = true) Then If (Not (Me.tabletblTR_Shipment_Document) Is Nothing) Then Me.tabletblTR_Shipment_Document.InitVars End If End If Me.tabletblTR_Shipment_Position = CType(MyBase.Tables("tblTR_Shipment_Position"),tblTR_Shipment_PositionDataTable) If (initTable = true) Then If (Not (Me.tabletblTR_Shipment_Position) Is Nothing) Then Me.tabletblTR_Shipment_Position.InitVars End If End If Me.tabletblTR_Shipment_Position_Document = CType(MyBase.Tables("tblTR_Shipment_Position_Document"),tblTR_Shipment_Position_DocumentDataTable) If (initTable = true) Then If (Not (Me.tabletblTR_Shipment_Position_Document) Is Nothing) Then Me.tabletblTR_Shipment_Position_Document.InitVars End If End If Me.tabletblTranslate = CType(MyBase.Tables("tblTranslate"),tblTranslateDataTable) If (initTable = true) Then If (Not (Me.tabletblTranslate) Is Nothing) Then Me.tabletblTranslate.InitVars End If End If Me.tabletblTranslateAuto = CType(MyBase.Tables("tblTranslateAuto"),tblTranslateAutoDataTable) If (initTable = true) Then If (Not (Me.tabletblTranslateAuto) Is Nothing) Then Me.tabletblTranslateAuto.InitVars End If End If Me.tabletblTrdinHeader = CType(MyBase.Tables("tblTrdinHeader"),tblTrdinHeaderDataTable) If (initTable = true) Then If (Not (Me.tabletblTrdinHeader) Is Nothing) Then Me.tabletblTrdinHeader.InitVars End If End If Me.tabletblTrdinInvoice = CType(MyBase.Tables("tblTrdinInvoice"),tblTrdinInvoiceDataTable) If (initTable = true) Then If (Not (Me.tabletblTrdinInvoice) Is Nothing) Then Me.tabletblTrdinInvoice.InitVars End If End If Me.tabletblTrdinProduct = CType(MyBase.Tables("tblTrdinProduct"),tblTrdinProductDataTable) If (initTable = true) Then If (Not (Me.tabletblTrdinProduct) Is Nothing) Then Me.tabletblTrdinProduct.InitVars End If End If Me.tabletblUIDPruefung = CType(MyBase.Tables("tblUIDPruefung"),tblUIDPruefungDataTable) If (initTable = true) Then If (Not (Me.tabletblUIDPruefung) Is Nothing) Then Me.tabletblUIDPruefung.InitVars End If End If Me.tabletblUStVAntrag = CType(MyBase.Tables("tblUStVAntrag"),tblUStVAntragDataTable) If (initTable = true) Then If (Not (Me.tabletblUStVAntrag) Is Nothing) Then Me.tabletblUStVAntrag.InitVars End If End If Me.tabletblUStVBelegeingang = CType(MyBase.Tables("tblUStVBelegeingang"),tblUStVBelegeingangDataTable) If (initTable = true) Then If (Not (Me.tabletblUStVBelegeingang) Is Nothing) Then Me.tabletblUStVBelegeingang.InitVars End If End If Me.tabletblUStVErstattung = CType(MyBase.Tables("tblUStVErstattung"),tblUStVErstattungDataTable) If (initTable = true) Then If (Not (Me.tabletblUStVErstattung) Is Nothing) Then Me.tabletblUStVErstattung.InitVars End If End If Me.tabletblUStVFormulare = CType(MyBase.Tables("tblUStVFormulare"),tblUStVFormulareDataTable) If (initTable = true) Then If (Not (Me.tabletblUStVFormulare) Is Nothing) Then Me.tabletblUStVFormulare.InitVars End If End If Me.tabletblUStVKuLäFo = CType(MyBase.Tables("tblUStVKuLäFo"),tblUStVKuLäFoDataTable) If (initTable = true) Then If (Not (Me.tabletblUStVKuLäFo) Is Nothing) Then Me.tabletblUStVKuLäFo.InitVars End If End If Me.tabletblUStVLäFo = CType(MyBase.Tables("tblUStVLäFo"),tblUStVLäFoDataTable) If (initTable = true) Then If (Not (Me.tabletblUStVLäFo) Is Nothing) Then Me.tabletblUStVLäFo.InitVars End If End If Me.tabletblUStVLeistender = CType(MyBase.Tables("tblUStVLeistender"),tblUStVLeistenderDataTable) If (initTable = true) Then If (Not (Me.tabletblUStVLeistender) Is Nothing) Then Me.tabletblUStVLeistender.InitVars End If End If Me.tabletblUStVPositionen = CType(MyBase.Tables("tblUStVPositionen"),tblUStVPositionenDataTable) If (initTable = true) Then If (Not (Me.tabletblUStVPositionen) Is Nothing) Then Me.tabletblUStVPositionen.InitVars End If End If Me.tabletblUStVTexte = CType(MyBase.Tables("tblUStVTexte"),tblUStVTexteDataTable) If (initTable = true) Then If (Not (Me.tabletblUStVTexte) Is Nothing) Then Me.tabletblUStVTexte.InitVars End If End If Me.tabletblUTAArchiv = CType(MyBase.Tables("tblUTAArchiv"),tblUTAArchivDataTable) If (initTable = true) Then If (Not (Me.tabletblUTAArchiv) Is Nothing) Then Me.tabletblUTAArchiv.InitVars End If End If Me.tabletblUTAFakturierwarenarten = CType(MyBase.Tables("tblUTAFakturierwarenarten"),tblUTAFakturierwarenartenDataTable) If (initTable = true) Then If (Not (Me.tabletblUTAFakturierwarenarten) Is Nothing) Then Me.tabletblUTAFakturierwarenarten.InitVars End If End If Me.tabletblUTAHeader = CType(MyBase.Tables("tblUTAHeader"),tblUTAHeaderDataTable) If (initTable = true) Then If (Not (Me.tabletblUTAHeader) Is Nothing) Then Me.tabletblUTAHeader.InitVars End If End If Me.tabletblUTAHeaderNew = CType(MyBase.Tables("tblUTAHeaderNew"),tblUTAHeaderNewDataTable) If (initTable = true) Then If (Not (Me.tabletblUTAHeaderNew) Is Nothing) Then Me.tabletblUTAHeaderNew.InitVars End If End If Me.tabletblUTAImport = CType(MyBase.Tables("tblUTAImport"),tblUTAImportDataTable) If (initTable = true) Then If (Not (Me.tabletblUTAImport) Is Nothing) Then Me.tabletblUTAImport.InitVars End If End If Me.tabletblUTAImportNew = CType(MyBase.Tables("tblUTAImportNew"),tblUTAImportNewDataTable) If (initTable = true) Then If (Not (Me.tabletblUTAImportNew) Is Nothing) Then Me.tabletblUTAImportNew.InitVars End If End If Me.tabletblUTALeistungen = CType(MyBase.Tables("tblUTALeistungen"),tblUTALeistungenDataTable) If (initTable = true) Then If (Not (Me.tabletblUTALeistungen) Is Nothing) Then Me.tabletblUTALeistungen.InitVars End If End If Me.tabletblUTATrailer = CType(MyBase.Tables("tblUTATrailer"),tblUTATrailerDataTable) If (initTable = true) Then If (Not (Me.tabletblUTATrailer) Is Nothing) Then Me.tabletblUTATrailer.InitVars End If End If Me.tabletblUTATrailerNew = CType(MyBase.Tables("tblUTATrailerNew"),tblUTATrailerNewDataTable) If (initTable = true) Then If (Not (Me.tabletblUTATrailerNew) Is Nothing) Then Me.tabletblUTATrailerNew.InitVars End If End If Me.tabletblVermarktungsnormen = CType(MyBase.Tables("tblVermarktungsnormen"),tblVermarktungsnormenDataTable) If (initTable = true) Then If (Not (Me.tabletblVermarktungsnormen) Is Nothing) Then Me.tabletblVermarktungsnormen.InitVars End If End If Me.tabletblVermarktungsnormenGebuehren = CType(MyBase.Tables("tblVermarktungsnormenGebuehren"),tblVermarktungsnormenGebuehrenDataTable) If (initTable = true) Then If (Not (Me.tabletblVermarktungsnormenGebuehren) Is Nothing) Then Me.tabletblVermarktungsnormenGebuehren.InitVars End If End If Me.tabletblVorauskassen = CType(MyBase.Tables("tblVorauskassen"),tblVorauskassenDataTable) If (initTable = true) Then If (Not (Me.tabletblVorauskassen) Is Nothing) Then Me.tabletblVorauskassen.InitVars End If End If Me.tabletblWahrungtabelleNEU = CType(MyBase.Tables("tblWahrungtabelleNEU"),tblWahrungtabelleNEUDataTable) If (initTable = true) Then If (Not (Me.tabletblWahrungtabelleNEU) Is Nothing) Then Me.tabletblWahrungtabelleNEU.InitVars End If End If Me.tabletblWarenbezeichnungBegriffe = CType(MyBase.Tables("tblWarenbezeichnungBegriffe"),tblWarenbezeichnungBegriffeDataTable) If (initTable = true) Then If (Not (Me.tabletblWarenbezeichnungBegriffe) Is Nothing) Then Me.tabletblWarenbezeichnungBegriffe.InitVars End If End If Me.tabletblZabis_Atlas_NCTS = CType(MyBase.Tables("tblZabis_Atlas_NCTS"),tblZabis_Atlas_NCTSDataTable) If (initTable = true) Then If (Not (Me.tabletblZabis_Atlas_NCTS) Is Nothing) Then Me.tabletblZabis_Atlas_NCTS.InitVars End If End If Me.tabletblZahlungszieltexte = CType(MyBase.Tables("tblZahlungszieltexte"),tblZahlungszieltexteDataTable) If (initTable = true) Then If (Not (Me.tabletblZahlungszieltexte) Is Nothing) Then Me.tabletblZahlungszieltexte.InitVars End If End If Me.tabletblZolaris_EZoll_NCTS = CType(MyBase.Tables("tblZolaris_EZoll_NCTS"),tblZolaris_EZoll_NCTSDataTable) If (initTable = true) Then If (Not (Me.tabletblZolaris_EZoll_NCTS) Is Nothing) Then Me.tabletblZolaris_EZoll_NCTS.InitVars End If End If Me.tabletblZOLL_Wechselkurse = CType(MyBase.Tables("tblZOLL_Wechselkurse"),tblZOLL_WechselkurseDataTable) If (initTable = true) Then If (Not (Me.tabletblZOLL_Wechselkurse) Is Nothing) Then Me.tabletblZOLL_Wechselkurse.InitVars End If End If Me.tabletblZollArtikel = CType(MyBase.Tables("tblZollArtikel"),tblZollArtikelDataTable) If (initTable = true) Then If (Not (Me.tabletblZollArtikel) Is Nothing) Then Me.tabletblZollArtikel.InitVars End If End If Me.tabletblZollUnterArtikel = CType(MyBase.Tables("tblZollUnterArtikel"),tblZollUnterArtikelDataTable) If (initTable = true) Then If (Not (Me.tabletblZollUnterArtikel) Is Nothing) Then Me.tabletblZollUnterArtikel.InitVars End If End If Me.tableTemporaryUpsizedTable2 = CType(MyBase.Tables("TemporaryUpsizedTable2"),TemporaryUpsizedTable2DataTable) If (initTable = true) Then If (Not (Me.tableTemporaryUpsizedTable2) Is Nothing) Then Me.tableTemporaryUpsizedTable2.InitVars End If End If Me.tableVerkehrszweige = CType(MyBase.Tables("Verkehrszweige"),VerkehrszweigeDataTable) If (initTable = true) Then If (Not (Me.tableVerkehrszweige) Is Nothing) Then Me.tableVerkehrszweige.InitVars End If End If Me.tableVermerke = CType(MyBase.Tables("Vermerke"),VermerkeDataTable) If (initTable = true) Then If (Not (Me.tableVermerke) Is Nothing) Then Me.tableVermerke.InitVars End If End If Me.tableVorkosten = CType(MyBase.Tables("Vorkosten"),VorkostenDataTable) If (initTable = true) Then If (Not (Me.tableVorkosten) Is Nothing) Then Me.tableVorkosten.InitVars End If End If Me.tableWährungstabelle = CType(MyBase.Tables("Währungstabelle"),WährungstabelleDataTable) If (initTable = true) Then If (Not (Me.tableWährungstabelle) Is Nothing) Then Me.tableWährungstabelle.InitVars End If End If Me.tableZahlungsarten = CType(MyBase.Tables("Zahlungsarten"),ZahlungsartenDataTable) If (initTable = true) Then If (Not (Me.tableZahlungsarten) Is Nothing) Then Me.tableZahlungsarten.InitVars End If End If Me.tablezbadz = CType(MyBase.Tables("zbadz"),zbadzDataTable) If (initTable = true) Then If (Not (Me.tablezbadz) Is Nothing) Then Me.tablezbadz.InitVars End If End If Me.tablezbant = CType(MyBase.Tables("zbant"),zbantDataTable) If (initTable = true) Then If (Not (Me.tablezbant) Is Nothing) Then Me.tablezbant.InitVars End If End If Me.tablezbapo = CType(MyBase.Tables("zbapo"),zbapoDataTable) If (initTable = true) Then If (Not (Me.tablezbapo) Is Nothing) Then Me.tablezbapo.InitVars End If End If Me.tablezbpos = CType(MyBase.Tables("zbpos"),zbposDataTable) If (initTable = true) Then If (Not (Me.tablezbpos) Is Nothing) Then Me.tablezbpos.InitVars End If End If Me.tableZkteing = CType(MyBase.Tables("Zkteing"),ZkteingDataTable) If (initTable = true) Then If (Not (Me.tableZkteing) Is Nothing) Then Me.tableZkteing.InitVars End If End If Me.tableZollsysteme = CType(MyBase.Tables("Zollsysteme"),ZollsystemeDataTable) If (initTable = true) Then If (Not (Me.tableZollsysteme) Is Nothing) Then Me.tableZollsysteme.InitVars End If End If Me.tableZulassungen_ZnV = CType(MyBase.Tables("Zulassungen ZnV"),Zulassungen_ZnVDataTable) If (initTable = true) Then If (Not (Me.tableZulassungen_ZnV) Is Nothing) Then Me.tableZulassungen_ZnV.InitVars End If End If Me.tablevwKundenstamm = CType(MyBase.Tables("vwKundenstamm"),vwKundenstammDataTable) If (initTable = true) Then If (Not (Me.tablevwKundenstamm) Is Nothing) Then Me.tablevwKundenstamm.InitVars End If End If Me.tablevwReErfAuswahl = CType(MyBase.Tables("vwReErfAuswahl"),vwReErfAuswahlDataTable) If (initTable = true) Then If (Not (Me.tablevwReErfAuswahl) Is Nothing) Then Me.tablevwReErfAuswahl.InitVars End If End If Me.tablevwTrdinHeader = CType(MyBase.Tables("vwTrdinHeader"),vwTrdinHeaderDataTable) If (initTable = true) Then If (Not (Me.tablevwTrdinHeader) Is Nothing) Then Me.tablevwTrdinHeader.InitVars End If End If Me.tablevwTrdinInvoice = CType(MyBase.Tables("vwTrdinInvoice"),vwTrdinInvoiceDataTable) If (initTable = true) Then If (Not (Me.tablevwTrdinInvoice) Is Nothing) Then Me.tablevwTrdinInvoice.InitVars End If End If Me.tablevwTrdinProduct = CType(MyBase.Tables("vwTrdinProduct"),vwTrdinProductDataTable) If (initTable = true) Then If (Not (Me.tablevwTrdinProduct) Is Nothing) Then Me.tablevwTrdinProduct.InitVars End If End If Me.tablevwUStV_OP_Risikobericht = CType(MyBase.Tables("vwUStV_OP_Risikobericht"),vwUStV_OP_RisikoberichtDataTable) If (initTable = true) Then If (Not (Me.tablevwUStV_OP_Risikobericht) Is Nothing) Then Me.tablevwUStV_OP_Risikobericht.InitVars End If End If Me.tablevwUStVAntrag = CType(MyBase.Tables("vwUStVAntrag"),vwUStVAntragDataTable) If (initTable = true) Then If (Not (Me.tablevwUStVAntrag) Is Nothing) Then Me.tablevwUStVAntrag.InitVars End If End If Me.tablevwUStVBelegeingang = CType(MyBase.Tables("vwUStVBelegeingang"),vwUStVBelegeingangDataTable) If (initTable = true) Then If (Not (Me.tablevwUStVBelegeingang) Is Nothing) Then Me.tablevwUStVBelegeingang.InitVars End If End If Me.tablevwUStVErstattung = CType(MyBase.Tables("vwUStVErstattung"),vwUStVErstattungDataTable) If (initTable = true) Then If (Not (Me.tablevwUStVErstattung) Is Nothing) Then Me.tablevwUStVErstattung.InitVars End If End If Me.tablevwUStVPositionen = CType(MyBase.Tables("vwUStVPositionen"),vwUStVPositionenDataTable) If (initTable = true) Then If (Not (Me.tablevwUStVPositionen) Is Nothing) Then Me.tablevwUStVPositionen.InitVars End If End If Me.tablevwUStVVorauszahlung = CType(MyBase.Tables("vwUStVVorauszahlung"),vwUStVVorauszahlungDataTable) If (initTable = true) Then If (Not (Me.tablevwUStVVorauszahlung) Is Nothing) Then Me.tablevwUStVVorauszahlung.InitVars End If End If Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1 = CType(MyBase.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1"),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable) If (initTable = true) Then If (Not (Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1) Is Nothing) Then Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1.InitVars End If End If Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new = CType(MyBase.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new"),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable) If (initTable = true) Then If (Not (Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new) Is Nothing) Then Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new.InitVars End If End If Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2 = CType(MyBase.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2"),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable) If (initTable = true) Then If (Not (Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2) Is Nothing) Then Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2.InitVars End If End If Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new = CType(MyBase.Tables("vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new"),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable) If (initTable = true) Then If (Not (Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new) Is Nothing) Then Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new.InitVars End If End If Me.tablespAlleTabellen = CType(MyBase.Tables("spAlleTabellen"),spAlleTabellenDataTable) If (initTable = true) Then If (Not (Me.tablespAlleTabellen) Is Nothing) Then Me.tablespAlleTabellen.InitVars End If End If Me.tablespReDruReNrVergeben = CType(MyBase.Tables("spReDruReNrVergeben"),spReDruReNrVergebenDataTable) If (initTable = true) Then If (Not (Me.tablespReDruReNrVergeben) Is Nothing) Then Me.tablespReDruReNrVergeben.InitVars End If End If Me.tablespReDruSchnSaReDruckinfoEintragen = CType(MyBase.Tables("spReDruSchnSaReDruckinfoEintragen"),spReDruSchnSaReDruckinfoEintragenDataTable) If (initTable = true) Then If (Not (Me.tablespReDruSchnSaReDruckinfoEintragen) Is Nothing) Then Me.tablespReDruSchnSaReDruckinfoEintragen.InitVars End If End If Me.tablespReDruSchnSaReNrEintragen = CType(MyBase.Tables("spReDruSchnSaReNrEintragen"),spReDruSchnSaReNrEintragenDataTable) If (initTable = true) Then If (Not (Me.tablespReDruSchnSaReNrEintragen) Is Nothing) Then Me.tablespReDruSchnSaReNrEintragen.InitVars End If End If Me.tablespReverseChargeSumme = CType(MyBase.Tables("spReverseChargeSumme"),spReverseChargeSummeDataTable) If (initTable = true) Then If (Not (Me.tablespReverseChargeSumme) Is Nothing) Then Me.tablespReverseChargeSumme.InitVars End If End If Me.tablespSELECT_Bankspesen_für_KundenNr = CType(MyBase.Tables("spSELECT_Bankspesen_für_KundenNr"),spSELECT_Bankspesen_für_KundenNrDataTable) If (initTable = true) Then If (Not (Me.tablespSELECT_Bankspesen_für_KundenNr) Is Nothing) Then Me.tablespSELECT_Bankspesen_für_KundenNr.InitVars End If End If Me.tablespSELECT_tblZabis_Atlas_NCTS = CType(MyBase.Tables("spSELECT_tblZabis_Atlas_NCTS"),spSELECT_tblZabis_Atlas_NCTSDataTable) If (initTable = true) Then If (Not (Me.tablespSELECT_tblZabis_Atlas_NCTS) Is Nothing) Then Me.tablespSELECT_tblZabis_Atlas_NCTS.InitVars End If End If Me.tablespSELECTAufschubdaten = CType(MyBase.Tables("spSELECTAufschubdaten"),spSELECTAufschubdatenDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTAufschubdaten) Is Nothing) Then Me.tablespSELECTAufschubdaten.InitVars End If End If Me.tablespSELECTRechnungsausgang = CType(MyBase.Tables("spSELECTRechnungsausgang"),spSELECTRechnungsausgangDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTRechnungsausgang) Is Nothing) Then Me.tablespSELECTRechnungsausgang.InitVars End If End If Me.tablespSELECTRechnungsausgangPositionen = CType(MyBase.Tables("spSELECTRechnungsausgangPositionen"),spSELECTRechnungsausgangPositionenDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTRechnungsausgangPositionen) Is Nothing) Then Me.tablespSELECTRechnungsausgangPositionen.InitVars End If End If Me.tablespSELECTRechnungsnummern = CType(MyBase.Tables("spSELECTRechnungsnummern"),spSELECTRechnungsnummernDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTRechnungsnummern) Is Nothing) Then Me.tablespSELECTRechnungsnummern.InitVars End If End If Me.tablespSelectReDruSaReRKAvisoID = CType(MyBase.Tables("spSelectReDruSaReRKAvisoID"),spSelectReDruSaReRKAvisoIDDataTable) If (initTable = true) Then If (Not (Me.tablespSelectReDruSaReRKAvisoID) Is Nothing) Then Me.tablespSelectReDruSaReRKAvisoID.InitVars End If End If Me.tablespSELECTReDruSaReRKgruppieren = CType(MyBase.Tables("spSELECTReDruSaReRKgruppieren"),spSELECTReDruSaReRKgruppierenDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTReDruSaReRKgruppieren) Is Nothing) Then Me.tablespSELECTReDruSaReRKgruppieren.InitVars End If End If Me.tablespSelectReDruSchnBB_RK = CType(MyBase.Tables("spSelectReDruSchnBB_RK"),spSelectReDruSchnBB_RKDataTable) If (initTable = true) Then If (Not (Me.tablespSelectReDruSchnBB_RK) Is Nothing) Then Me.tablespSelectReDruSchnBB_RK.InitVars End If End If Me.tablespSelectReDruSchnKunde = CType(MyBase.Tables("spSelectReDruSchnKunde"),spSelectReDruSchnKundeDataTable) If (initTable = true) Then If (Not (Me.tablespSelectReDruSchnKunde) Is Nothing) Then Me.tablespSelectReDruSchnKunde.InitVars End If End If Me.tablespSelectReDruSchnSumBS415 = CType(MyBase.Tables("spSelectReDruSchnSumBS415"),spSelectReDruSchnSumBS415DataTable) If (initTable = true) Then If (Not (Me.tablespSelectReDruSchnSumBS415) Is Nothing) Then Me.tablespSelectReDruSchnSumBS415.InitVars End If End If Me.tablespSelectReDruSchnTextZollbelegePrüfen = CType(MyBase.Tables("spSelectReDruSchnTextZollbelegePrüfen"),spSelectReDruSchnTextZollbelegePrüfenDataTable) If (initTable = true) Then If (Not (Me.tablespSelectReDruSchnTextZollbelegePrüfen) Is Nothing) Then Me.tablespSelectReDruSchnTextZollbelegePrüfen.InitVars End If End If Me.tablespSELECTReDruSumReGu = CType(MyBase.Tables("spSELECTReDruSumReGu"),spSELECTReDruSumReGuDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTReDruSumReGu) Is Nothing) Then Me.tablespSELECTReDruSumReGu.InitVars End If End If Me.tablespSELECTReDruText = CType(MyBase.Tables("spSELECTReDruText"),spSELECTReDruTextDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTReDruText) Is Nothing) Then Me.tablespSELECTReDruText.InitVars End If End If Me.tablespSelectReErfAuswahl = CType(MyBase.Tables("spSelectReErfAuswahl"),spSelectReErfAuswahlDataTable) If (initTable = true) Then If (Not (Me.tablespSelectReErfAuswahl) Is Nothing) Then Me.tablespSelectReErfAuswahl.InitVars End If End If Me.tablespSELECTReErfKA = CType(MyBase.Tables("spSELECTReErfKA"),spSELECTReErfKADataTable) If (initTable = true) Then If (Not (Me.tablespSELECTReErfKA) Is Nothing) Then Me.tablespSELECTReErfKA.InitVars End If End If Me.tablespSelectRK = CType(MyBase.Tables("spSelectRK"),spSelectRKDataTable) If (initTable = true) Then If (Not (Me.tablespSelectRK) Is Nothing) Then Me.tablespSelectRK.InitVars End If End If Me.tablespSelectRKPKey = CType(MyBase.Tables("spSelectRKPKey"),spSelectRKPKeyDataTable) If (initTable = true) Then If (Not (Me.tablespSelectRKPKey) Is Nothing) Then Me.tablespSelectRKPKey.InitVars End If End If Me.tablespSelectRP = CType(MyBase.Tables("spSelectRP"),spSelectRPDataTable) If (initTable = true) Then If (Not (Me.tablespSelectRP) Is Nothing) Then Me.tablespSelectRP.InitVars End If End If Me.tablespSelectRPFKeyRK = CType(MyBase.Tables("spSelectRPFKeyRK"),spSelectRPFKeyRKDataTable) If (initTable = true) Then If (Not (Me.tablespSelectRPFKeyRK) Is Nothing) Then Me.tablespSelectRPFKeyRK.InitVars End If End If Me.tablespSelectRPPKey = CType(MyBase.Tables("spSelectRPPKey"),spSelectRPPKeyDataTable) If (initTable = true) Then If (Not (Me.tablespSelectRPPKey) Is Nothing) Then Me.tablespSelectRPPKey.InitVars End If End If Me.tablespSELECTtblAnmeldungPKey = CType(MyBase.Tables("spSELECTtblAnmeldungPKey"),spSELECTtblAnmeldungPKeyDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblAnmeldungPKey) Is Nothing) Then Me.tablespSELECTtblAnmeldungPKey.InitVars End If End If Me.tablespSELECTtblQS_Abfertigungsarten = CType(MyBase.Tables("spSELECTtblQS_Abfertigungsarten"),spSELECTtblQS_AbfertigungsartenDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblQS_Abfertigungsarten) Is Nothing) Then Me.tablespSELECTtblQS_Abfertigungsarten.InitVars End If End If Me.tablespSELECTtblQS_Aufträge = CType(MyBase.Tables("spSELECTtblQS_Aufträge"),spSELECTtblQS_AufträgeDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblQS_Aufträge) Is Nothing) Then Me.tablespSELECTtblQS_Aufträge.InitVars End If End If Me.tablespSELECTtblQS_Auftragspositionen = CType(MyBase.Tables("spSELECTtblQS_Auftragspositionen"),spSELECTtblQS_AuftragspositionenDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblQS_Auftragspositionen) Is Nothing) Then Me.tablespSELECTtblQS_Auftragspositionen.InitVars End If End If Me.tablespSELECTtblTrdinHeader = CType(MyBase.Tables("spSELECTtblTrdinHeader"),spSELECTtblTrdinHeaderDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblTrdinHeader) Is Nothing) Then Me.tablespSELECTtblTrdinHeader.InitVars End If End If Me.tablespSELECTtblTrdinInvoice = CType(MyBase.Tables("spSELECTtblTrdinInvoice"),spSELECTtblTrdinInvoiceDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblTrdinInvoice) Is Nothing) Then Me.tablespSELECTtblTrdinInvoice.InitVars End If End If Me.tablespSELECTtblTrdinProduct = CType(MyBase.Tables("spSELECTtblTrdinProduct"),spSELECTtblTrdinProductDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblTrdinProduct) Is Nothing) Then Me.tablespSELECTtblTrdinProduct.InitVars End If End If Me.tablespSELECTtblUStVAntrag = CType(MyBase.Tables("spSELECTtblUStVAntrag"),spSELECTtblUStVAntragDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblUStVAntrag) Is Nothing) Then Me.tablespSELECTtblUStVAntrag.InitVars End If End If Me.tablespSELECTtblUStVBelegeingang = CType(MyBase.Tables("spSELECTtblUStVBelegeingang"),spSELECTtblUStVBelegeingangDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblUStVBelegeingang) Is Nothing) Then Me.tablespSELECTtblUStVBelegeingang.InitVars End If End If Me.tablespSELECTtblUStVErstattung = CType(MyBase.Tables("spSELECTtblUStVErstattung"),spSELECTtblUStVErstattungDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblUStVErstattung) Is Nothing) Then Me.tablespSELECTtblUStVErstattung.InitVars End If End If Me.tablespSELECTtblUStVPositionen = CType(MyBase.Tables("spSELECTtblUStVPositionen"),spSELECTtblUStVPositionenDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblUStVPositionen) Is Nothing) Then Me.tablespSELECTtblUStVPositionen.InitVars End If End If Me.tablespSELECTtblZolaris_EZoll_NCTS = CType(MyBase.Tables("spSELECTtblZolaris_EZoll_NCTS"),spSELECTtblZolaris_EZoll_NCTSDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTtblZolaris_EZoll_NCTS) Is Nothing) Then Me.tablespSELECTtblZolaris_EZoll_NCTS.InitVars End If End If Me.tablespSELECTUStVErstattungsschreiben = CType(MyBase.Tables("spSELECTUStVErstattungsschreiben"),spSELECTUStVErstattungsschreibenDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTUStVErstattungsschreiben) Is Nothing) Then Me.tablespSELECTUStVErstattungsschreiben.InitVars End If End If Me.tablespSELECTUStVErstattungsschreiben2 = CType(MyBase.Tables("spSELECTUStVErstattungsschreiben2"),spSELECTUStVErstattungsschreiben2DataTable) If (initTable = true) Then If (Not (Me.tablespSELECTUStVErstattungsschreiben2) Is Nothing) Then Me.tablespSELECTUStVErstattungsschreiben2.InitVars End If End If Me.tablespSELECTZkteing = CType(MyBase.Tables("spSELECTZkteing"),spSELECTZkteingDataTable) If (initTable = true) Then If (Not (Me.tablespSELECTZkteing) Is Nothing) Then Me.tablespSELECTZkteing.InitVars End If End If Me.tablespTrdinFiBuSelectInvoice = CType(MyBase.Tables("spTrdinFiBuSelectInvoice"),spTrdinFiBuSelectInvoiceDataTable) If (initTable = true) Then If (Not (Me.tablespTrdinFiBuSelectInvoice) Is Nothing) Then Me.tablespTrdinFiBuSelectInvoice.InitVars End If End If Me.tablespTrdinFiBuSelectProduct = CType(MyBase.Tables("spTrdinFiBuSelectProduct"),spTrdinFiBuSelectProductDataTable) If (initTable = true) Then If (Not (Me.tablespTrdinFiBuSelectProduct) Is Nothing) Then Me.tablespTrdinFiBuSelectProduct.InitVars End If End If Me.tablespTrdinSchreibenSelectInvoicePKey = CType(MyBase.Tables("spTrdinSchreibenSelectInvoicePKey"),spTrdinSchreibenSelectInvoicePKeyDataTable) If (initTable = true) Then If (Not (Me.tablespTrdinSchreibenSelectInvoicePKey) Is Nothing) Then Me.tablespTrdinSchreibenSelectInvoicePKey.InitVars End If End If Me.tablespTrdinSchreibenSelectProductFKeyInvoice = CType(MyBase.Tables("spTrdinSchreibenSelectProductFKeyInvoice"),spTrdinSchreibenSelectProductFKeyInvoiceDataTable) If (initTable = true) Then If (Not (Me.tablespTrdinSchreibenSelectProductFKeyInvoice) Is Nothing) Then Me.tablespTrdinSchreibenSelectProductFKeyInvoice.InitVars End If End If Me.tablespTrdinSchreibenSelectProductPKey = CType(MyBase.Tables("spTrdinSchreibenSelectProductPKey"),spTrdinSchreibenSelectProductPKeyDataTable) If (initTable = true) Then If (Not (Me.tablespTrdinSchreibenSelectProductPKey) Is Nothing) Then Me.tablespTrdinSchreibenSelectProductPKey.InitVars End If End If Me.tablespUStVAntragLesenParameterPKey = CType(MyBase.Tables("spUStVAntragLesenParameterPKey"),spUStVAntragLesenParameterPKeyDataTable) If (initTable = true) Then If (Not (Me.tablespUStVAntragLesenParameterPKey) Is Nothing) Then Me.tablespUStVAntragLesenParameterPKey.InitVars End If End If Me.tablespUStVBelegeingangLesenParameterPKey = CType(MyBase.Tables("spUStVBelegeingangLesenParameterPKey"),spUStVBelegeingangLesenParameterPKeyDataTable) If (initTable = true) Then If (Not (Me.tablespUStVBelegeingangLesenParameterPKey) Is Nothing) Then Me.tablespUStVBelegeingangLesenParameterPKey.InitVars End If End If Me.tablespUStVErstattungLesenParameterPKey = CType(MyBase.Tables("spUStVErstattungLesenParameterPKey"),spUStVErstattungLesenParameterPKeyDataTable) If (initTable = true) Then If (Not (Me.tablespUStVErstattungLesenParameterPKey) Is Nothing) Then Me.tablespUStVErstattungLesenParameterPKey.InitVars End If End If Me.tablespUStVPositionenLesenParameterPKey = CType(MyBase.Tables("spUStVPositionenLesenParameterPKey"),spUStVPositionenLesenParameterPKeyDataTable) If (initTable = true) Then If (Not (Me.tablespUStVPositionenLesenParameterPKey) Is Nothing) Then Me.tablespUStVPositionenLesenParameterPKey.InitVars End If End If Me.tablespUStVRechnungÜbernehmenMSE = CType(MyBase.Tables("spUStVRechnungÜbernehmenMSE"),spUStVRechnungÜbernehmenMSEDataTable) If (initTable = true) Then If (Not (Me.tablespUStVRechnungÜbernehmenMSE) Is Nothing) Then Me.tablespUStVRechnungÜbernehmenMSE.InitVars End If End If Me.tablespUStVVorschau_IDS_Summe = CType(MyBase.Tables("spUStVVorschau_IDS_Summe"),spUStVVorschau_IDS_SummeDataTable) If (initTable = true) Then If (Not (Me.tablespUStVVorschau_IDS_Summe) Is Nothing) Then Me.tablespUStVVorschau_IDS_Summe.InitVars End If End If Me.tablespUStVVorschau_IT_Summe = CType(MyBase.Tables("spUStVVorschau_IT_Summe"),spUStVVorschau_IT_SummeDataTable) If (initTable = true) Then If (Not (Me.tablespUStVVorschau_IT_Summe) Is Nothing) Then Me.tablespUStVVorschau_IT_Summe.InitVars End If End If Me.tablespUStVVorschau_MSE_Summe = CType(MyBase.Tables("spUStVVorschau_MSE_Summe"),spUStVVorschau_MSE_SummeDataTable) If (initTable = true) Then If (Not (Me.tablespUStVVorschau_MSE_Summe) Is Nothing) Then Me.tablespUStVVorschau_MSE_Summe.InitVars End If End If Me.tablespUStVVorschau_UTA_Summe = CType(MyBase.Tables("spUStVVorschau_UTA_Summe"),spUStVVorschau_UTA_SummeDataTable) If (initTable = true) Then If (Not (Me.tablespUStVVorschau_UTA_Summe) Is Nothing) Then Me.tablespUStVVorschau_UTA_Summe.InitVars End If End If Me.tablespUStVVorschau_VERAG_Summe = CType(MyBase.Tables("spUStVVorschau_VERAG_Summe"),spUStVVorschau_VERAG_SummeDataTable) If (initTable = true) Then If (Not (Me.tablespUStVVorschau_VERAG_Summe) Is Nothing) Then Me.tablespUStVVorschau_VERAG_Summe.InitVars End If End If Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung = CType(MyBase.Tables("spZolaris_EZoll_NCTS_Datenbereitstellung"),spZolaris_EZoll_NCTS_DatenbereitstellungDataTable) If (initTable = true) Then If (Not (Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung) Is Nothing) Then Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.InitVars End If End If Me._relationAbfertigungskosten_der_Korrespondenten_AbfertigungsartenAbfertigungskosten_der_Korrespondenten = Me.Relations("Abfertigungskosten der Korrespondenten$AbfertigungsartenAbfertigungskosten der Ko"& _ "rrespondenten") Me._relationAbfertigungskosten_der_Korrespondenten_KorrespondentenAbfertigungskosten_der_Korrespondenten = Me.Relations("Abfertigungskosten der Korrespondenten$KorrespondentenAbfertigungskosten der Korr"& _ "espondenten") Me._relationAbfertigungskosten_der_Korrespondenten_LeistungenAbfertigungskosten_der_Korrespondenten = Me.Relations("Abfertigungskosten der Korrespondenten$LeistungenAbfertigungskosten der Korrespon"& _ "denten") Me._relationDevisenkurse_Reference9 = Me.Relations("Devisenkurse$Reference9") Me._relationFilialen_KorrespondentenFilialen = Me.Relations("Filialen$KorrespondentenFilialen") Me._relationKreditkarten_AdressenKreditkarten = Me.Relations("Kreditkarten$AdressenKreditkarten") Me._relationKunden_AdressenKunden = Me.Relations("Kunden$AdressenKunden") Me._relationKunden_FilialenKunden = Me.Relations("Kunden$FilialenKunden") Me._relationKunden_Reference7 = Me.Relations("Kunden$Reference7") Me._relationKundenFilialen_FilialenKundenFilialen = Me.Relations("KundenFilialen$FilialenKundenFilialen") Me._relationKundenFilialen_KundenKundenFilialen = Me.Relations("KundenFilialen$KundenKundenFilialen") Me._relationLeistungen_BerechnungsartLeistungen = Me.Relations("Leistungen$BerechnungsartLeistungen") Me._relationLeistungen_KostenstellenLeistungen = Me.Relations("Leistungen$KostenstellenLeistungen") Me._relationNebenkosten_der_Korrespondenten_KorrespondentenNebenkosten_der_Korrespondenten = Me.Relations("Nebenkosten der Korrespondenten$KorrespondentenNebenkosten der Korrespondenten") Me._relationNebenkosten_der_Korrespondenten_LeistungenNebenkosten_der_Korrespondenten = Me.Relations("Nebenkosten der Korrespondenten$LeistungenNebenkosten der Korrespondenten") Me._relationOfferten_FilialenOfferten = Me.Relations("Offerten$FilialenOfferten") Me._relationOfferten_KundenOfferten = Me.Relations("Offerten$KundenOfferten") Me._relationOfferten_OffertenstammOfferten = Me.Relations("Offerten$OffertenstammOfferten") Me._relationOffertenpositionen_BerechnungsartOffertenpositionen = Me.Relations("Offertenpositionen$BerechnungsartOffertenpositionen") Me._relationOffertenpositionen_LeistungenOffertenpositionen = Me.Relations("Offertenpositionen$LeistungenOffertenpositionen") Me._relationOffertenpositionen_OffertenOffertenpositionen = Me.Relations("Offertenpositionen$OffertenOffertenpositionen") Me.relationRechnungsausgangPositione_FK00 = Me.Relations("RechnungsausgangPositione_FK00") Me._relationStandardofferten_LeistungenStandardofferten = Me.Relations("Standardofferten$LeistungenStandardofferten") Me._relationStandardofferten_OffertenstammStandardofferten = Me.Relations("Standardofferten$OffertenstammStandardofferten") Me._relationStandardoffertenFirma_LeistungenStandardofferten = Me.Relations("StandardoffertenFirma$LeistungenStandardofferten") Me._relationStandardoffertenFirma_OffertenstammStandardofferten = Me.Relations("StandardoffertenFirma$OffertenstammStandardofferten") Me._relationtbl_IDS_Kategorien_Kunden_Adressentbl_IDS_Kategorien_Kunden = Me.Relations("tbl_IDS_Kategorien_Kunden$Adressentbl_IDS_Kategorien_Kunden") Me._relationtbl_IDS_Kategorien_Rechenwerte_tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte = Me.Relations("tbl_IDS_Kategorien_Rechenwerte$tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte") Me._relationtbl_IDS_Kunden_Adressentbl_IDS_Kunden = Me.Relations("tbl_IDS_Kunden$Adressentbl_IDS_Kunden") Me._relationtbl_IDS_Kunden_ohne_Rabatt_Adressentbl_IDS_Kunden_ohne_Rabatt = Me.Relations("tbl_IDS_Kunden_ohne_Rabatt$Adressentbl_IDS_Kunden_ohne_Rabatt") Me._relationtbl_IDS_Länder_Leistungentbl_IDS_Länder = Me.Relations("tbl_IDS_Länder$Leistungentbl_IDS_Länder") Me._relationtbl_IDS_Rechenwerte_Adressentbl_IDS_Rechenwerte = Me.Relations("tbl_IDS_Rechenwerte$Adressentbl_IDS_Rechenwerte") Me._relationtbl_IDS_Rechenwerte_tbl_IDS_Ländertbl_IDS_Rechenwerte = Me.Relations("tbl_IDS_Rechenwerte$tbl_IDS_Ländertbl_IDS_Rechenwerte") Me._relationtbl_IDS_Rechenwerte_tbl_IDS_Produktetbl_IDS_Rechenwerte = Me.Relations("tbl_IDS_Rechenwerte$tbl_IDS_Produktetbl_IDS_Rechenwerte") Me._relationtbl_IDS_Stationen_tbl_IDS_Ländertbl_IDS_Stationen = Me.Relations("tbl_IDS_Stationen$tbl_IDS_Ländertbl_IDS_Stationen") Me._relationtbl_Telefonnummern__225FED75_BA09_45E0_9A45_F3814507EBE0_ = Me.Relations("tbl_Telefonnummern${225FED75-BA09-45E0-9A45-F3814507EBE0}") Me.relationFK_tblATEZ_NCTS_Routen_TotblATEZNCTS = Me.Relations("FK_tblATEZ_NCTS_Routen_TotblATEZNCTS") Me.relationFK_tblATEZ_NCTS_TransitCustomsOffice = Me.Relations("FK_tblATEZ_NCTS_TransitCustomsOffice") Me.relationtblBerichtsdrucker_FK00 = Me.Relations("tblBerichtsdrucker_FK00") Me.relationtblEABelegposition_FK00 = Me.Relations("tblEABelegposition_FK00") Me.relationtblFormulardaten_FK00 = Me.Relations("tblFormulardaten_FK00") Me.relationtblHistorie_FK00 = Me.Relations("tblHistorie_FK00") Me._relationtblKonto__C2FF3095_6D95_4263_9D51_CD3DEDA1AB7B_ = Me.Relations("tblKonto${C2FF3095-6D95-4263-9D51-CD3DEDA1AB7B}") Me.relationtblLogbuch_FK00 = Me.Relations("tblLogbuch_FK00") Me._relationtblMSELeistungen_LeistungentblMSELeistungen = Me.Relations("tblMSELeistungen$LeistungentblMSELeistungen") Me.relationFK_tblOffertenPositionenArchiv_ToOffertenArchiv = Me.Relations("FK_tblOffertenPositionenArchiv_ToOffertenArchiv") Me._relationtblPreislistenpositionen__7909BA97_12D3_4CFF_A642_CB950EFCC006_ = Me.Relations("tblPreislistenpositionen${7909BA97-12D3-4CFF-A642-CB950EFCC006}") Me._relationtblPreislistenpositionen__D78DE894_2B0C_43E6_B462_32459F9DF422_ = Me.Relations("tblPreislistenpositionen${D78DE894-2B0C-43E6-B462-32459F9DF422}") Me._relationtblPreislistenpositionen_LeistungentblPreislistenpositionen = Me.Relations("tblPreislistenpositionen$LeistungentblPreislistenpositionen") Me._relationtblPreistabellenpositionen__0A7945E3_819D_45DD_A5AE_7188FF604603_ = Me.Relations("tblPreistabellenpositionen${0A7945E3-819D-45DD-A5AE-7188FF604603}") Me.relationtblQS_Auftragspositionen_FK00 = Me.Relations("tblQS_Auftragspositionen_FK00") Me.relationtblQS_Auftragspositionen_FK01 = Me.Relations("tblQS_Auftragspositionen_FK01") Me.relationFK_Kasse = Me.Relations("FK_Kasse") Me._relationtblSteuernummern_AdressentblSteuernummern = Me.Relations("tblSteuernummern$AdressentblSteuernummern") Me._relationtblSteuernummern_Länderverzeichnis_für_die_AußenhandelsstatistiktblSteuernummern = Me.Relations("tblSteuernummern$Länderverzeichnis für die AußenhandelsstatistiktblSteuernummern") Me._relationtblSteuersätze__3334C686_1593_4561_99E6_824AA652DDAB_ = Me.Relations("tblSteuersätze${3334C686-1593-4561-99E6-824AA652DDAB}") Me._relationtblSteuersätze__BC888FF9_57C1_4308_AE4D_435AEB9FE6A5_ = Me.Relations("tblSteuersätze${BC888FF9-57C1-4308-AE4D-435AEB9FE6A5}") Me.relationtblTrdinProduct_FK00 = Me.Relations("tblTrdinProduct_FK00") Me.relationtblUStVErstattung_FK00 = Me.Relations("tblUStVErstattung_FK00") Me._relationtblUStVKuLäFo__8EEF3FB0_6A92_4860_B92D_EB83E6F5AE76_ = Me.Relations("tblUStVKuLäFo${8EEF3FB0-6A92-4860-B92D-EB83E6F5AE76}") Me._relationtblUStVKuLäFo_AdressentblUStVKuLäFo = Me.Relations("tblUStVKuLäFo$AdressentblUStVKuLäFo") Me._relationtblUStVKuLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVKuLäFo = Me.Relations("tblUStVKuLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVKuLäFo") Me._relationtblUStVLäFo__472BEB22_FFB6_4415_A1BE_B0664E28BFC1_ = Me.Relations("tblUStVLäFo${472BEB22-FFB6-4415-A1BE-B0664E28BFC1}") Me._relationtblUStVLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVLäFo = Me.Relations("tblUStVLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVLäFo") Me.relationtblUStVPositionen_FK00 = Me.Relations("tblUStVPositionen_FK00") Me.relationtblUTAArchiv_FK00 = Me.Relations("tblUTAArchiv_FK00") Me.relationtblUTAImport_FK00 = Me.Relations("tblUTAImport_FK00") Me.relationtblUTAImportNew_FK00 = Me.Relations("tblUTAImportNew_FK00") Me.relationtblUTALeistungen_FK00 = Me.Relations("tblUTALeistungen_FK00") Me.relationtblUTATrailer_FK00 = Me.Relations("tblUTATrailer_FK00") Me.relationtblUTATrailerNew_FK00 = Me.Relations("tblUTATrailerNew_FK00") Me.relationVorkosten_FK00 = Me.Relations("Vorkosten_FK00") Me._relationWährungstabelle_Länderverzeichnis_für_die_AußenhandelsstatistikWährungstabelle = Me.Relations("Währungstabelle$Länderverzeichnis für die AußenhandelsstatistikWährungstabelle") Me.relationzbadz_FK00 = Me.Relations("zbadz_FK00") Me.relationzbapo_FK00 = Me.Relations("zbapo_FK00") Me.relationzbpos_FK00 = Me.Relations("zbpos_FK00") End Sub _ Private Sub InitClass() Me.DataSetName = "VERAGDataSet" Me.Prefix = "" Me.Namespace = "http://tempuri.org/VERAGDataSet.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableAbfertigungsarten = New AbfertigungsartenDataTable() MyBase.Tables.Add(Me.tableAbfertigungsarten) Me.tableAbfertigungskosten_der_Korrespondenten = New Abfertigungskosten_der_KorrespondentenDataTable() MyBase.Tables.Add(Me.tableAbfertigungskosten_der_Korrespondenten) Me.tableAbfertigungsLaender = New AbfertigungsLaenderDataTable() MyBase.Tables.Add(Me.tableAbfertigungsLaender) Me.tableAbfertigungsLaenderAbfertigungsarten = New AbfertigungsLaenderAbfertigungsartenDataTable() MyBase.Tables.Add(Me.tableAbfertigungsLaenderAbfertigungsarten) Me.tableAbgabenarten = New AbgabenartenDataTable() MyBase.Tables.Add(Me.tableAbgabenarten) Me.tableAdressen = New AdressenDataTable() MyBase.Tables.Add(Me.tableAdressen) Me.tableAktivitätenlog = New AktivitätenlogDataTable() MyBase.Tables.Add(Me.tableAktivitätenlog) Me.tableAnlagen = New AnlagenDataTable() MyBase.Tables.Add(Me.tableAnlagen) Me.tableatlas_status = New atlas_statusDataTable() MyBase.Tables.Add(Me.tableatlas_status) Me.tableAufschubdaten = New AufschubdatenDataTable() MyBase.Tables.Add(Me.tableAufschubdaten) Me.tableAufschubkonten = New AufschubkontenDataTable() MyBase.Tables.Add(Me.tableAufschubkonten) Me.tableBelegarten = New BelegartenDataTable() MyBase.Tables.Add(Me.tableBelegarten) Me.tableBerechnungsart = New BerechnungsartDataTable() MyBase.Tables.Add(Me.tableBerechnungsart) Me.tableBerechnungsbogen = New BerechnungsbogenDataTable() MyBase.Tables.Add(Me.tableBerechnungsbogen) Me.tableBerichte = New BerichteDataTable() MyBase.Tables.Add(Me.tableBerichte) Me.tableCMR = New CMRDataTable() MyBase.Tables.Add(Me.tableCMR) Me.tableDevisenkurse = New DevisenkurseDataTable() MyBase.Tables.Add(Me.tableDevisenkurse) Me.tableEPBes = New EPBesDataTable() MyBase.Tables.Add(Me.tableEPBes) Me.tableEPBesPOS = New EPBesPOSDataTable() MyBase.Tables.Add(Me.tableEPBesPOS) Me.tableFilialen = New FilialenDataTable() MyBase.Tables.Add(Me.tableFilialen) Me.tableGeschäftsarten = New GeschäftsartenDataTable() MyBase.Tables.Add(Me.tableGeschäftsarten) Me.tableKorrespondenten = New KorrespondentenDataTable() MyBase.Tables.Add(Me.tableKorrespondenten) Me.tableKostenstellen = New KostenstellenDataTable() MyBase.Tables.Add(Me.tableKostenstellen) Me.tableKreditkarten = New KreditkartenDataTable() MyBase.Tables.Add(Me.tableKreditkarten) Me.tableKunden = New KundenDataTable() MyBase.Tables.Add(Me.tableKunden) Me.tableKundenFilialen = New KundenFilialenDataTable() MyBase.Tables.Add(Me.tableKundenFilialen) Me.tableLänder_der_Bundesrepublik_Deutschland = New Länder_der_Bundesrepublik_DeutschlandDataTable() MyBase.Tables.Add(Me.tableLänder_der_Bundesrepublik_Deutschland) Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik = New Länderverzeichnis_für_die_AußenhandelsstatistikDataTable() MyBase.Tables.Add(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik) Me.tableLeistungen = New LeistungenDataTable() MyBase.Tables.Add(Me.tableLeistungen) Me.tableLeistungenBUKonten = New LeistungenBUKontenDataTable() MyBase.Tables.Add(Me.tableLeistungenBUKonten) Me.tableLieferbedingungen = New LieferbedingungenDataTable() MyBase.Tables.Add(Me.tableLieferbedingungen) Me.tableNebenkosten_der_Korrespondenten = New Nebenkosten_der_KorrespondentenDataTable() MyBase.Tables.Add(Me.tableNebenkosten_der_Korrespondenten) Me.tableOffene_Posten = New Offene_PostenDataTable() MyBase.Tables.Add(Me.tableOffene_Posten) Me.tableOffene_Posten_DVO = New Offene_Posten_DVODataTable() MyBase.Tables.Add(Me.tableOffene_Posten_DVO) Me.tableOfferten = New OffertenDataTable() MyBase.Tables.Add(Me.tableOfferten) Me.tableOffertenpositionen = New OffertenpositionenDataTable() MyBase.Tables.Add(Me.tableOffertenpositionen) Me.tableOffertenstamm = New OffertenstammDataTable() MyBase.Tables.Add(Me.tableOffertenstamm) Me.tablePersonal = New PersonalDataTable() MyBase.Tables.Add(Me.tablePersonal) Me.tableRechnungsausgang = New RechnungsausgangDataTable() MyBase.Tables.Add(Me.tableRechnungsausgang) Me.tableRechnungsausgangAnhaenge = New RechnungsausgangAnhaengeDataTable() MyBase.Tables.Add(Me.tableRechnungsausgangAnhaenge) Me.tableRechnungsausgangPositionen = New RechnungsausgangPositionenDataTable() MyBase.Tables.Add(Me.tableRechnungsausgangPositionen) Me.tableRechnungsnummern = New RechnungsnummernDataTable() MyBase.Tables.Add(Me.tableRechnungsnummern) Me.tableRechnungstexte = New RechnungstexteDataTable() MyBase.Tables.Add(Me.tableRechnungstexte) Me.tableSpeditionsbuch = New SpeditionsbuchDataTable() MyBase.Tables.Add(Me.tableSpeditionsbuch) Me.tableStandardofferten = New StandardoffertenDataTable() MyBase.Tables.Add(Me.tableStandardofferten) Me.tableStandardoffertenFirma = New StandardoffertenFirmaDataTable() MyBase.Tables.Add(Me.tableStandardoffertenFirma) Me.tableSteuertabelle = New SteuertabelleDataTable() MyBase.Tables.Add(Me.tableSteuertabelle) Me.tabletbl_ASFINAG_FileInfo = New tbl_ASFINAG_FileInfoDataTable() MyBase.Tables.Add(Me.tabletbl_ASFINAG_FileInfo) Me.tabletbl_BMD_Länder = New tbl_BMD_LänderDataTable() MyBase.Tables.Add(Me.tabletbl_BMD_Länder) Me.tabletbl_DY_Paramter = New tbl_DY_ParamterDataTable() MyBase.Tables.Add(Me.tabletbl_DY_Paramter) Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung = New tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung) Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation = New tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation) Me.tabletbl_DY_ZollDE_C0008_LaenderFull = New tbl_DY_ZollDE_C0008_LaenderFullDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_C0008_LaenderFull) Me.tabletbl_DY_ZollDE_C0010_LaenderAES = New tbl_DY_ZollDE_C0010_LaenderAESDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_C0010_LaenderAES) Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten = New tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten) Me.tabletbl_DY_ZollDE_C0014_VorpapierArten = New tbl_DY_ZollDE_C0014_VorpapierArtenDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten) Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten = New tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten) Me.tabletbl_DY_ZollDE_C0141_Zollstellen = New tbl_DY_ZollDE_C0141_ZollstellenDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_C0141_Zollstellen) Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans = New tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans) Me.tabletbl_DY_ZollDE_I0200_Unterlagearten = New tbl_DY_ZollDE_I0200_UnterlageartenDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten) Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste = New tbl_DY_ZollDE_I0400_WaehrungslisteDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste) Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES = New tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES) Me.tabletbl_DY_ZollDE_I0700_Masseinheiten = New tbl_DY_ZollDE_I0700_MasseinheitenDataTable() MyBase.Tables.Add(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten) Me.tabletbl_Errors = New tbl_ErrorsDataTable() MyBase.Tables.Add(Me.tabletbl_Errors) Me.tabletbl_IDS_Kategorien_Kunden = New tbl_IDS_Kategorien_KundenDataTable() MyBase.Tables.Add(Me.tabletbl_IDS_Kategorien_Kunden) Me.tabletbl_IDS_Kategorien_Rechenwerte = New tbl_IDS_Kategorien_RechenwerteDataTable() MyBase.Tables.Add(Me.tabletbl_IDS_Kategorien_Rechenwerte) Me.tabletbl_IDS_Kunden = New tbl_IDS_KundenDataTable() MyBase.Tables.Add(Me.tabletbl_IDS_Kunden) Me.tabletbl_IDS_Kunden_ohne_Rabatt = New tbl_IDS_Kunden_ohne_RabattDataTable() MyBase.Tables.Add(Me.tabletbl_IDS_Kunden_ohne_Rabatt) Me.tabletbl_IDS_Länder = New tbl_IDS_LänderDataTable() MyBase.Tables.Add(Me.tabletbl_IDS_Länder) Me.tabletbl_IDS_Produkte = New tbl_IDS_ProdukteDataTable() MyBase.Tables.Add(Me.tabletbl_IDS_Produkte) Me.tabletbl_IDS_Rechenwerte = New tbl_IDS_RechenwerteDataTable() MyBase.Tables.Add(Me.tabletbl_IDS_Rechenwerte) Me.tabletbl_IDS_Stationen = New tbl_IDS_StationenDataTable() MyBase.Tables.Add(Me.tabletbl_IDS_Stationen) Me.tabletbl_Intrastat_Ausfuhr = New tbl_Intrastat_AusfuhrDataTable() MyBase.Tables.Add(Me.tabletbl_Intrastat_Ausfuhr) Me.tabletbl_Telefonbuch = New tbl_TelefonbuchDataTable() MyBase.Tables.Add(Me.tabletbl_Telefonbuch) Me.tabletbl_Telefonnummern = New tbl_TelefonnummernDataTable() MyBase.Tables.Add(Me.tabletbl_Telefonnummern) Me.tabletbl_WÖLFL = New tbl_WÖLFLDataTable() MyBase.Tables.Add(Me.tabletbl_WÖLFL) Me.tabletbl_ZM_tabelle = New tbl_ZM_tabelleDataTable() MyBase.Tables.Add(Me.tabletbl_ZM_tabelle) Me.tabletblAbfertigungsartenFiliale = New tblAbfertigungsartenFilialeDataTable() MyBase.Tables.Add(Me.tabletblAbfertigungsartenFiliale) Me.tabletblAbfertigungsartOffertenstamm = New tblAbfertigungsartOffertenstammDataTable() MyBase.Tables.Add(Me.tabletblAbfertigungsartOffertenstamm) Me.tabletblAbrechnung_NCTSBrg = New tblAbrechnung_NCTSBrgDataTable() MyBase.Tables.Add(Me.tabletblAbrechnung_NCTSBrg) Me.tabletblAnmeldung = New tblAnmeldungDataTable() MyBase.Tables.Add(Me.tabletblAnmeldung) Me.tabletblAsfinagMaut = New tblAsfinagMautDataTable() MyBase.Tables.Add(Me.tabletblAsfinagMaut) Me.tabletblATEZ_NCTS = New tblATEZ_NCTSDataTable() MyBase.Tables.Add(Me.tabletblATEZ_NCTS) Me.tabletblATEZ_NCTS_Routen = New tblATEZ_NCTS_RoutenDataTable() MyBase.Tables.Add(Me.tabletblATEZ_NCTS_Routen) Me.tabletblATEZ_NCTS_Sessions = New tblATEZ_NCTS_SessionsDataTable() MyBase.Tables.Add(Me.tabletblATEZ_NCTS_Sessions) Me.tabletblATEZ_NCTS_TransitCustomsOffice = New tblATEZ_NCTS_TransitCustomsOfficeDataTable() MyBase.Tables.Add(Me.tabletblATEZ_NCTS_TransitCustomsOffice) Me.tabletblBankspesen = New tblBankspesenDataTable() MyBase.Tables.Add(Me.tabletblBankspesen) Me.tabletblBerechnungsmethode = New tblBerechnungsmethodeDataTable() MyBase.Tables.Add(Me.tabletblBerechnungsmethode) Me.tabletblBerichtsdrucker = New tblBerichtsdruckerDataTable() MyBase.Tables.Add(Me.tabletblBerichtsdrucker) Me.tabletblBesuchsberichte = New tblBesuchsberichteDataTable() MyBase.Tables.Add(Me.tabletblBesuchsberichte) Me.tabletblBonitaetsauskunft = New tblBonitaetsauskunftDataTable() MyBase.Tables.Add(Me.tabletblBonitaetsauskunft) Me.tabletblBuchungstext = New tblBuchungstextDataTable() MyBase.Tables.Add(Me.tabletblBuchungstext) Me.tabletblDakosy_AES = New tblDakosy_AESDataTable() MyBase.Tables.Add(Me.tabletblDakosy_AES) Me.tabletblDakosy_AES_Warenposition = New tblDakosy_AES_WarenpositionDataTable() MyBase.Tables.Add(Me.tabletblDakosy_AES_Warenposition) Me.tabletblDakosy_AES_WarenpositionPackstuecke = New tblDakosy_AES_WarenpositionPackstueckeDataTable() MyBase.Tables.Add(Me.tabletblDakosy_AES_WarenpositionPackstuecke) Me.tabletblDakosy_AES_WarenpositionUnterlagen = New tblDakosy_AES_WarenpositionUnterlagenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_AES_WarenpositionUnterlagen) Me.tabletblDakosy_EZA = New tblDakosy_EZADataTable() MyBase.Tables.Add(Me.tabletblDakosy_EZA) Me.tabletblDakosy_EZA_Adressen = New tblDakosy_EZA_AdressenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_EZA_Adressen) Me.tabletblDakosy_EZA_Aufschub = New tblDakosy_EZA_AufschubDataTable() MyBase.Tables.Add(Me.tabletblDakosy_EZA_Aufschub) Me.tabletblDakosy_EZA_BEAnteilZLAVUV = New tblDakosy_EZA_BEAnteilZLAVUVDataTable() MyBase.Tables.Add(Me.tabletblDakosy_EZA_BEAnteilZLAVUV) Me.tabletblDakosy_EZA_SumABeendigungsAnteil = New tblDakosy_EZA_SumABeendigungsAnteilDataTable() MyBase.Tables.Add(Me.tabletblDakosy_EZA_SumABeendigungsAnteil) Me.tabletblDakosy_EZA_Unterlagen = New tblDakosy_EZA_UnterlagenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_EZA_Unterlagen) Me.tabletblDakosy_EZA_Warenposition = New tblDakosy_EZA_WarenpositionDataTable() MyBase.Tables.Add(Me.tabletblDakosy_EZA_Warenposition) Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten = New tblDakosy_EZA_WarenpositionSonderfalldatenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten) Me.tabletblDakosy_EZA_WarenpositionUnterlagen = New tblDakosy_EZA_WarenpositionUnterlagenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_EZA_WarenpositionUnterlagen) Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer = New tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable() MyBase.Tables.Add(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer) Me.tabletblDakosy_NCTSOut = New tblDakosy_NCTSOutDataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut) Me.tabletblDakosy_NCTSOut_Sicherheitsangaben = New tblDakosy_NCTSOut_SicherheitsangabenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben) Me.tabletblDakosy_NCTSOut_Warenposition = New tblDakosy_NCTSOut_WarenpositionDataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut_Warenposition) Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke = New tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke) Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen = New tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen) Me.tabletblDakosy_NCTSOut004 = New tblDakosy_NCTSOut004DataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut004) Me.tabletblDakosy_NCTSOut004_Guarantee = New tblDakosy_NCTSOut004_GuaranteeDataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut004_Guarantee) Me.tabletblDakosy_NCTSOut004_HouseConsignment = New tblDakosy_NCTSOut004_HouseConsignmentDataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut004_HouseConsignment) Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem = New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem) Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging = New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging) Me.tabletblDakosy_NCTSOut004_TransportEquipment = New tblDakosy_NCTSOut004_TransportEquipmentDataTable() MyBase.Tables.Add(Me.tabletblDakosy_NCTSOut004_TransportEquipment) Me.tabletblDakosy_Stammreferenzen = New tblDakosy_StammreferenzenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_Stammreferenzen) Me.tabletblDakosy_Statusmeldungen = New tblDakosy_StatusmeldungenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_Statusmeldungen) Me.tabletblDakosy_Zollanmeldungen = New tblDakosy_ZollanmeldungenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_Zollanmeldungen) Me.tabletblDakosy_ZollanmeldungenArten = New tblDakosy_ZollanmeldungenArtenDataTable() MyBase.Tables.Add(Me.tabletblDakosy_ZollanmeldungenArten) Me.tabletblDatenarchiv = New tblDatenarchivDataTable() MyBase.Tables.Add(Me.tabletblDatenarchiv) Me.tabletblDatenarchiv_Collection = New tblDatenarchiv_CollectionDataTable() MyBase.Tables.Add(Me.tabletblDatenarchiv_Collection) Me.tabletblDEBundeslaenderPLZ = New tblDEBundeslaenderPLZDataTable() MyBase.Tables.Add(Me.tabletblDEBundeslaenderPLZ) Me.tabletblDHF_Anhaenge = New tblDHF_AnhaengeDataTable() MyBase.Tables.Add(Me.tabletblDHF_Anhaenge) Me.tabletblDieselArchiv = New tblDieselArchivDataTable() MyBase.Tables.Add(Me.tabletblDieselArchiv) Me.tabletblDigicust_Sendungen = New tblDigicust_SendungenDataTable() MyBase.Tables.Add(Me.tabletblDigicust_Sendungen) Me.tabletblDigicust_Sessions = New tblDigicust_SessionsDataTable() MyBase.Tables.Add(Me.tabletblDigicust_Sessions) Me.tabletblDigicust_Settings = New tblDigicust_SettingsDataTable() MyBase.Tables.Add(Me.tabletblDigicust_Settings) Me.tabletblEABelegnummer = New tblEABelegnummerDataTable() MyBase.Tables.Add(Me.tabletblEABelegnummer) Me.tabletblEABelegposition = New tblEABelegpositionDataTable() MyBase.Tables.Add(Me.tabletblEABelegposition) Me.tabletblEmailBenachrichtigung = New tblEmailBenachrichtigungDataTable() MyBase.Tables.Add(Me.tabletblEmailBenachrichtigung) Me.tabletblEmailBenachrichtigungArten = New tblEmailBenachrichtigungArtenDataTable() MyBase.Tables.Add(Me.tabletblEmailBenachrichtigungArten) Me.tabletblEORIPruefung = New tblEORIPruefungDataTable() MyBase.Tables.Add(Me.tabletblEORIPruefung) Me.tabletblEZB_Waehrungskurse = New tblEZB_WaehrungskurseDataTable() MyBase.Tables.Add(Me.tabletblEZB_Waehrungskurse) Me.tabletblEZT_Importcodenummern = New tblEZT_ImportcodenummernDataTable() MyBase.Tables.Add(Me.tabletblEZT_Importcodenummern) Me.tabletblFahrerDaten = New tblFahrerDatenDataTable() MyBase.Tables.Add(Me.tabletblFahrerDaten) Me.tabletblFirma = New tblFirmaDataTable() MyBase.Tables.Add(Me.tabletblFirma) Me.tabletblFiskal_Daten = New tblFiskal_DatenDataTable() MyBase.Tables.Add(Me.tabletblFiskal_Daten) Me.tabletblFiskalkunden = New tblFiskalkundenDataTable() MyBase.Tables.Add(Me.tabletblFiskalkunden) Me.tabletblFormulardaten = New tblFormulardatenDataTable() MyBase.Tables.Add(Me.tabletblFormulardaten) Me.tabletblFormulareVorlagen = New tblFormulareVorlagenDataTable() MyBase.Tables.Add(Me.tabletblFormulareVorlagen) Me.tabletblFormulareVorlagenValues = New tblFormulareVorlagenValuesDataTable() MyBase.Tables.Add(Me.tabletblFormulareVorlagenValues) Me.tabletblFremdSpeditionenZuordnung = New tblFremdSpeditionenZuordnungDataTable() MyBase.Tables.Add(Me.tabletblFremdSpeditionenZuordnung) Me.tabletblFTP_Log = New tblFTP_LogDataTable() MyBase.Tables.Add(Me.tabletblFTP_Log) Me.tabletblFTP_Log_Backup2 = New tblFTP_Log_Backup2DataTable() MyBase.Tables.Add(Me.tabletblFTP_Log_Backup2) Me.tabletblGebuehrenvermarktungsnormen = New tblGebuehrenvermarktungsnormenDataTable() MyBase.Tables.Add(Me.tabletblGebuehrenvermarktungsnormen) Me.tabletblGelangensbestaetigung = New tblGelangensbestaetigungDataTable() MyBase.Tables.Add(Me.tabletblGelangensbestaetigung) Me.tabletblGeschäftsjahr = New tblGeschäftsjahrDataTable() MyBase.Tables.Add(Me.tabletblGeschäftsjahr) Me.tabletblGeschäftsjahrBelegNr = New tblGeschäftsjahrBelegNrDataTable() MyBase.Tables.Add(Me.tabletblGeschäftsjahrBelegNr) Me.tabletblGeschäftsjahrJournalNr = New tblGeschäftsjahrJournalNrDataTable() MyBase.Tables.Add(Me.tabletblGeschäftsjahrJournalNr) Me.tabletblGestellungsgarantien = New tblGestellungsgarantienDataTable() MyBase.Tables.Add(Me.tabletblGestellungsgarantien) Me.tabletblGestellungsmitteilung = New tblGestellungsmitteilungDataTable() MyBase.Tables.Add(Me.tabletblGestellungsmitteilung) Me.tabletblGestellungsmitteilung_Positionen = New tblGestellungsmitteilung_PositionenDataTable() MyBase.Tables.Add(Me.tabletblGestellungsmitteilung_Positionen) Me.tabletblGOBOXBestellungen = New tblGOBOXBestellungenDataTable() MyBase.Tables.Add(Me.tabletblGOBOXBestellungen) Me.tabletblGVMS = New tblGVMSDataTable() MyBase.Tables.Add(Me.tabletblGVMS) Me.tabletblGVMS_Carriers = New tblGVMS_CarriersDataTable() MyBase.Tables.Add(Me.tabletblGVMS_Carriers) Me.tabletblGVMS_Ports = New tblGVMS_PortsDataTable() MyBase.Tables.Add(Me.tabletblGVMS_Ports) Me.tabletblGVMS_Pos = New tblGVMS_PosDataTable() MyBase.Tables.Add(Me.tabletblGVMS_Pos) Me.tabletblGVMS_Routes = New tblGVMS_RoutesDataTable() MyBase.Tables.Add(Me.tabletblGVMS_Routes) Me.tabletblHandlingssaetzeIntern = New tblHandlingssaetzeInternDataTable() MyBase.Tables.Add(Me.tabletblHandlingssaetzeIntern) Me.tabletblHistorie = New tblHistorieDataTable() MyBase.Tables.Add(Me.tabletblHistorie) Me.tabletblIDS_Transaktionen = New tblIDS_TransaktionenDataTable() MyBase.Tables.Add(Me.tabletblIDS_Transaktionen) Me.tabletblKassenbuch = New tblKassenbuchDataTable() MyBase.Tables.Add(Me.tabletblKassenbuch) Me.tabletblKonto = New tblKontoDataTable() MyBase.Tables.Add(Me.tabletblKonto) Me.tabletblKundenAufschubkonten = New tblKundenAufschubkontenDataTable() MyBase.Tables.Add(Me.tabletblKundenAufschubkonten) Me.tabletblKundenBesonderheiten = New tblKundenBesonderheitenDataTable() MyBase.Tables.Add(Me.tabletblKundenBesonderheiten) Me.tabletblKundenBesonderheiten_Kategorien = New tblKundenBesonderheiten_KategorienDataTable() MyBase.Tables.Add(Me.tabletblKundenBesonderheiten_Kategorien) Me.tabletblKundenDatenblatt = New tblKundenDatenblattDataTable() MyBase.Tables.Add(Me.tabletblKundenDatenblatt) Me.tabletblKundenErweitert = New tblKundenErweitertDataTable() MyBase.Tables.Add(Me.tabletblKundenErweitert) Me.tabletblKundenKontakt = New tblKundenKontaktDataTable() MyBase.Tables.Add(Me.tabletblKundenKontakt) Me.tabletblKundenKontaktArten = New tblKundenKontaktArtenDataTable() MyBase.Tables.Add(Me.tabletblKundenKontaktArten) Me.tabletblKundenumsatz = New tblKundenumsatzDataTable() MyBase.Tables.Add(Me.tabletblKundenumsatz) Me.tabletblKundenVermerke = New tblKundenVermerkeDataTable() MyBase.Tables.Add(Me.tabletblKundenVermerke) Me.tabletblKundenVertraege = New tblKundenVertraegeDataTable() MyBase.Tables.Add(Me.tabletblKundenVertraege) Me.tabletblKundenVertraegeArten = New tblKundenVertraegeArtenDataTable() MyBase.Tables.Add(Me.tabletblKundenVertraegeArten) Me.tabletblKundenVollmachten = New tblKundenVollmachtenDataTable() MyBase.Tables.Add(Me.tabletblKundenVollmachten) Me.tabletblKundenVollmachtenArt = New tblKundenVollmachtenArtDataTable() MyBase.Tables.Add(Me.tabletblKundenVollmachtenArt) Me.tabletblLogbuch = New tblLogbuchDataTable() MyBase.Tables.Add(Me.tabletblLogbuch) Me.tabletblMandant = New tblMandantDataTable() MyBase.Tables.Add(Me.tabletblMandant) Me.tabletblMautIT_Belegarten = New tblMautIT_BelegartenDataTable() MyBase.Tables.Add(Me.tabletblMautIT_Belegarten) Me.tabletblMautITArchiv = New tblMautITArchivDataTable() MyBase.Tables.Add(Me.tabletblMautITArchiv) Me.tabletblMDM_Paramter = New tblMDM_ParamterDataTable() MyBase.Tables.Add(Me.tabletblMDM_Paramter) Me.tabletblMSECustomers = New tblMSECustomersDataTable() MyBase.Tables.Add(Me.tabletblMSECustomers) Me.tabletblMSEImport = New tblMSEImportDataTable() MyBase.Tables.Add(Me.tabletblMSEImport) Me.tabletblMSEInvoices = New tblMSEInvoicesDataTable() MyBase.Tables.Add(Me.tabletblMSEInvoices) Me.tabletblMSELeistungen = New tblMSELeistungenDataTable() MyBase.Tables.Add(Me.tabletblMSELeistungen) Me.tabletblMSESettlements = New tblMSESettlementsDataTable() MyBase.Tables.Add(Me.tabletblMSESettlements) Me.tabletblMSETransactions = New tblMSETransactionsDataTable() MyBase.Tables.Add(Me.tabletblMSETransactions) Me.tabletblMSETransactionsArchiv = New tblMSETransactionsArchivDataTable() MyBase.Tables.Add(Me.tabletblMSETransactionsArchiv) Me.tabletblMSETransactionsArchivOLD = New tblMSETransactionsArchivOLDDataTable() MyBase.Tables.Add(Me.tabletblMSETransactionsArchivOLD) Me.tabletblNCTS_TR = New tblNCTS_TRDataTable() MyBase.Tables.Add(Me.tabletblNCTS_TR) Me.tabletblNCTS_TR_Nachrichten = New tblNCTS_TR_NachrichtenDataTable() MyBase.Tables.Add(Me.tabletblNCTS_TR_Nachrichten) Me.tabletblNCTS_TR_Sicherheitsangaben = New tblNCTS_TR_SicherheitsangabenDataTable() MyBase.Tables.Add(Me.tabletblNCTS_TR_Sicherheitsangaben) Me.tabletblNCTS_TR_Warenposition = New tblNCTS_TR_WarenpositionDataTable() MyBase.Tables.Add(Me.tabletblNCTS_TR_Warenposition) Me.tabletblNCTS_TR_WarenpositionPackstuecke = New tblNCTS_TR_WarenpositionPackstueckeDataTable() MyBase.Tables.Add(Me.tabletblNCTS_TR_WarenpositionPackstuecke) Me.tabletblNCTSGestellungsadressen = New tblNCTSGestellungsadressenDataTable() MyBase.Tables.Add(Me.tabletblNCTSGestellungsadressen) Me.tabletblNTCSRouten = New tblNTCSRoutenDataTable() MyBase.Tables.Add(Me.tabletblNTCSRouten) Me.tabletblOffertenArchiv = New tblOffertenArchivDataTable() MyBase.Tables.Add(Me.tabletblOffertenArchiv) Me.tabletblOffertenPositionenArchiv = New tblOffertenPositionenArchivDataTable() MyBase.Tables.Add(Me.tabletblOffertenPositionenArchiv) Me.tabletblOregonNCTS_DeclarationData = New tblOregonNCTS_DeclarationDataDataTable() MyBase.Tables.Add(Me.tabletblOregonNCTS_DeclarationData) Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute = New tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable() MyBase.Tables.Add(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute) Me.tabletblOregonNCTS_Declarations_DocumentsAttribute = New tblOregonNCTS_Declarations_DocumentsAttributeDataTable() MyBase.Tables.Add(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute) Me.tabletblOregonNCTS_Declarations_GoodsAttribute = New tblOregonNCTS_Declarations_GoodsAttributeDataTable() MyBase.Tables.Add(Me.tabletblOregonNCTS_Declarations_GoodsAttribute) Me.tabletblOregonNCTS_Declarations_PacksAttribute = New tblOregonNCTS_Declarations_PacksAttributeDataTable() MyBase.Tables.Add(Me.tabletblOregonNCTS_Declarations_PacksAttribute) Me.tabletblOregonNCTS_Declarations_PartiesAttribute = New tblOregonNCTS_Declarations_PartiesAttributeDataTable() MyBase.Tables.Add(Me.tabletblOregonNCTS_Declarations_PartiesAttribute) Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute = New tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable() MyBase.Tables.Add(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute) Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute = New tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable() MyBase.Tables.Add(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute) Me.tabletblOregonNCTS_ReferenceTemplate = New tblOregonNCTS_ReferenceTemplateDataTable() MyBase.Tables.Add(Me.tabletblOregonNCTS_ReferenceTemplate) Me.tabletblOriginalATR = New tblOriginalATRDataTable() MyBase.Tables.Add(Me.tabletblOriginalATR) Me.tabletblPartnersystem_Paramter = New tblPartnersystem_ParamterDataTable() MyBase.Tables.Add(Me.tabletblPartnersystem_Paramter) Me.tabletblPfad = New tblPfadDataTable() MyBase.Tables.Add(Me.tabletblPfad) Me.tabletblPLOSE_Details = New tblPLOSE_DetailsDataTable() MyBase.Tables.Add(Me.tabletblPLOSE_Details) Me.tabletblPLOSE_Inv_Data = New tblPLOSE_Inv_DataDataTable() MyBase.Tables.Add(Me.tabletblPLOSE_Inv_Data) Me.tabletblPLOSE_Lieferant = New tblPLOSE_LieferantDataTable() MyBase.Tables.Add(Me.tabletblPLOSE_Lieferant) Me.tabletblPLOSE_Produktbeschreibung = New tblPLOSE_ProduktbeschreibungDataTable() MyBase.Tables.Add(Me.tabletblPLOSE_Produktbeschreibung) Me.tabletblPosNr = New tblPosNrDataTable() MyBase.Tables.Add(Me.tabletblPosNr) Me.tabletblPostversand = New tblPostversandDataTable() MyBase.Tables.Add(Me.tabletblPostversand) Me.tabletblPreislisten = New tblPreislistenDataTable() MyBase.Tables.Add(Me.tabletblPreislisten) Me.tabletblPreislistenpositionen = New tblPreislistenpositionenDataTable() MyBase.Tables.Add(Me.tabletblPreislistenpositionen) Me.tabletblPreistabellen = New tblPreistabellenDataTable() MyBase.Tables.Add(Me.tabletblPreistabellen) Me.tabletblPreistabellenpositionen = New tblPreistabellenpositionenDataTable() MyBase.Tables.Add(Me.tabletblPreistabellenpositionen) Me.tabletblQS_Abfertigungsarten = New tblQS_AbfertigungsartenDataTable() MyBase.Tables.Add(Me.tabletblQS_Abfertigungsarten) Me.tabletblQS_Aufträge = New tblQS_AufträgeDataTable() MyBase.Tables.Add(Me.tabletblQS_Aufträge) Me.tabletblQS_Auftragspositionen = New tblQS_AuftragspositionenDataTable() MyBase.Tables.Add(Me.tabletblQS_Auftragspositionen) Me.tabletblQS_Teams = New tblQS_TeamsDataTable() MyBase.Tables.Add(Me.tabletblQS_Teams) Me.tabletblQS_TeamsMA = New tblQS_TeamsMADataTable() MyBase.Tables.Add(Me.tabletblQS_TeamsMA) Me.tabletblRechnungsnotizen = New tblRechnungsnotizenDataTable() MyBase.Tables.Add(Me.tabletblRechnungsnotizen) Me.tabletblRef = New tblRefDataTable() MyBase.Tables.Add(Me.tabletblRef) Me.tabletblRefBeziehungen = New tblRefBeziehungenDataTable() MyBase.Tables.Add(Me.tabletblRefBeziehungen) Me.tabletblRKSV_Kassen = New tblRKSV_KassenDataTable() MyBase.Tables.Add(Me.tabletblRKSV_Kassen) Me.tabletblRKSV_POS = New tblRKSV_POSDataTable() MyBase.Tables.Add(Me.tabletblRKSV_POS) Me.tabletblRMCImport = New tblRMCImportDataTable() MyBase.Tables.Add(Me.tabletblRMCImport) Me.tabletblSMS = New tblSMSDataTable() MyBase.Tables.Add(Me.tabletblSMS) Me.tabletblSpeditionsbucharchiv = New tblSpeditionsbucharchivDataTable() MyBase.Tables.Add(Me.tabletblSpeditionsbucharchiv) Me.tabletblSpeditionsbuchEndEmpfaenger = New tblSpeditionsbuchEndEmpfaengerDataTable() MyBase.Tables.Add(Me.tabletblSpeditionsbuchEndEmpfaenger) Me.tabletblSpeditionsbuchUnterPos = New tblSpeditionsbuchUnterPosDataTable() MyBase.Tables.Add(Me.tabletblSpeditionsbuchUnterPos) Me.tabletblSpeditionsbuchUnterPosArten = New tblSpeditionsbuchUnterPosArtenDataTable() MyBase.Tables.Add(Me.tabletblSpeditionsbuchUnterPosArten) Me.tabletblSteuernummern = New tblSteuernummernDataTable() MyBase.Tables.Add(Me.tabletblSteuernummern) Me.tabletblSteuersätze = New tblSteuersätzeDataTable() MyBase.Tables.Add(Me.tabletblSteuersätze) Me.tabletblSteuertyp = New tblSteuertypDataTable() MyBase.Tables.Add(Me.tabletblSteuertyp) Me.tabletblTelotec_Abgaben = New tblTelotec_AbgabenDataTable() MyBase.Tables.Add(Me.tabletblTelotec_Abgaben) Me.tabletblTelotec_Anmeldung = New tblTelotec_AnmeldungDataTable() MyBase.Tables.Add(Me.tabletblTelotec_Anmeldung) Me.tabletblTelotec_Packstuecke = New tblTelotec_PackstueckeDataTable() MyBase.Tables.Add(Me.tabletblTelotec_Packstuecke) Me.tabletblTelotec_Paramter = New tblTelotec_ParamterDataTable() MyBase.Tables.Add(Me.tabletblTelotec_Paramter) Me.tabletblTelotec_Positionsdaten = New tblTelotec_PositionsdatenDataTable() MyBase.Tables.Add(Me.tabletblTelotec_Positionsdaten) Me.tabletblTelotec_PositionsdatenAbgaben = New tblTelotec_PositionsdatenAbgabenDataTable() MyBase.Tables.Add(Me.tabletblTelotec_PositionsdatenAbgaben) Me.tabletblTelotec_PositionsdatenDokumente = New tblTelotec_PositionsdatenDokumenteDataTable() MyBase.Tables.Add(Me.tabletblTelotec_PositionsdatenDokumente) Me.tabletblTelotec_Sicherheit = New tblTelotec_SicherheitDataTable() MyBase.Tables.Add(Me.tabletblTelotec_Sicherheit) Me.tabletblTest = New tblTestDataTable() MyBase.Tables.Add(Me.tabletblTest) Me.tabletblTextkonserve = New tblTextkonserveDataTable() MyBase.Tables.Add(Me.tabletblTextkonserve) Me.tabletblTR_Aviso = New tblTR_AvisoDataTable() MyBase.Tables.Add(Me.tabletblTR_Aviso) Me.tabletblTR_AvisoAnheange = New tblTR_AvisoAnheangeDataTable() MyBase.Tables.Add(Me.tabletblTR_AvisoAnheange) Me.tabletblTR_Shipment = New tblTR_ShipmentDataTable() MyBase.Tables.Add(Me.tabletblTR_Shipment) Me.tabletblTR_Shipment_Adressen = New tblTR_Shipment_AdressenDataTable() MyBase.Tables.Add(Me.tabletblTR_Shipment_Adressen) Me.tabletblTR_Shipment_Document = New tblTR_Shipment_DocumentDataTable() MyBase.Tables.Add(Me.tabletblTR_Shipment_Document) Me.tabletblTR_Shipment_Position = New tblTR_Shipment_PositionDataTable() MyBase.Tables.Add(Me.tabletblTR_Shipment_Position) Me.tabletblTR_Shipment_Position_Document = New tblTR_Shipment_Position_DocumentDataTable() MyBase.Tables.Add(Me.tabletblTR_Shipment_Position_Document) Me.tabletblTranslate = New tblTranslateDataTable() MyBase.Tables.Add(Me.tabletblTranslate) Me.tabletblTranslateAuto = New tblTranslateAutoDataTable() MyBase.Tables.Add(Me.tabletblTranslateAuto) Me.tabletblTrdinHeader = New tblTrdinHeaderDataTable() MyBase.Tables.Add(Me.tabletblTrdinHeader) Me.tabletblTrdinInvoice = New tblTrdinInvoiceDataTable() MyBase.Tables.Add(Me.tabletblTrdinInvoice) Me.tabletblTrdinProduct = New tblTrdinProductDataTable() MyBase.Tables.Add(Me.tabletblTrdinProduct) Me.tabletblUIDPruefung = New tblUIDPruefungDataTable() MyBase.Tables.Add(Me.tabletblUIDPruefung) Me.tabletblUStVAntrag = New tblUStVAntragDataTable() MyBase.Tables.Add(Me.tabletblUStVAntrag) Me.tabletblUStVBelegeingang = New tblUStVBelegeingangDataTable() MyBase.Tables.Add(Me.tabletblUStVBelegeingang) Me.tabletblUStVErstattung = New tblUStVErstattungDataTable() MyBase.Tables.Add(Me.tabletblUStVErstattung) Me.tabletblUStVFormulare = New tblUStVFormulareDataTable() MyBase.Tables.Add(Me.tabletblUStVFormulare) Me.tabletblUStVKuLäFo = New tblUStVKuLäFoDataTable() MyBase.Tables.Add(Me.tabletblUStVKuLäFo) Me.tabletblUStVLäFo = New tblUStVLäFoDataTable() MyBase.Tables.Add(Me.tabletblUStVLäFo) Me.tabletblUStVLeistender = New tblUStVLeistenderDataTable() MyBase.Tables.Add(Me.tabletblUStVLeistender) Me.tabletblUStVPositionen = New tblUStVPositionenDataTable() MyBase.Tables.Add(Me.tabletblUStVPositionen) Me.tabletblUStVTexte = New tblUStVTexteDataTable() MyBase.Tables.Add(Me.tabletblUStVTexte) Me.tabletblUTAArchiv = New tblUTAArchivDataTable() MyBase.Tables.Add(Me.tabletblUTAArchiv) Me.tabletblUTAFakturierwarenarten = New tblUTAFakturierwarenartenDataTable() MyBase.Tables.Add(Me.tabletblUTAFakturierwarenarten) Me.tabletblUTAHeader = New tblUTAHeaderDataTable() MyBase.Tables.Add(Me.tabletblUTAHeader) Me.tabletblUTAHeaderNew = New tblUTAHeaderNewDataTable() MyBase.Tables.Add(Me.tabletblUTAHeaderNew) Me.tabletblUTAImport = New tblUTAImportDataTable() MyBase.Tables.Add(Me.tabletblUTAImport) Me.tabletblUTAImportNew = New tblUTAImportNewDataTable() MyBase.Tables.Add(Me.tabletblUTAImportNew) Me.tabletblUTALeistungen = New tblUTALeistungenDataTable() MyBase.Tables.Add(Me.tabletblUTALeistungen) Me.tabletblUTATrailer = New tblUTATrailerDataTable() MyBase.Tables.Add(Me.tabletblUTATrailer) Me.tabletblUTATrailerNew = New tblUTATrailerNewDataTable() MyBase.Tables.Add(Me.tabletblUTATrailerNew) Me.tabletblVermarktungsnormen = New tblVermarktungsnormenDataTable() MyBase.Tables.Add(Me.tabletblVermarktungsnormen) Me.tabletblVermarktungsnormenGebuehren = New tblVermarktungsnormenGebuehrenDataTable() MyBase.Tables.Add(Me.tabletblVermarktungsnormenGebuehren) Me.tabletblVorauskassen = New tblVorauskassenDataTable() MyBase.Tables.Add(Me.tabletblVorauskassen) Me.tabletblWahrungtabelleNEU = New tblWahrungtabelleNEUDataTable() MyBase.Tables.Add(Me.tabletblWahrungtabelleNEU) Me.tabletblWarenbezeichnungBegriffe = New tblWarenbezeichnungBegriffeDataTable() MyBase.Tables.Add(Me.tabletblWarenbezeichnungBegriffe) Me.tabletblZabis_Atlas_NCTS = New tblZabis_Atlas_NCTSDataTable() MyBase.Tables.Add(Me.tabletblZabis_Atlas_NCTS) Me.tabletblZahlungszieltexte = New tblZahlungszieltexteDataTable() MyBase.Tables.Add(Me.tabletblZahlungszieltexte) Me.tabletblZolaris_EZoll_NCTS = New tblZolaris_EZoll_NCTSDataTable() MyBase.Tables.Add(Me.tabletblZolaris_EZoll_NCTS) Me.tabletblZOLL_Wechselkurse = New tblZOLL_WechselkurseDataTable() MyBase.Tables.Add(Me.tabletblZOLL_Wechselkurse) Me.tabletblZollArtikel = New tblZollArtikelDataTable() MyBase.Tables.Add(Me.tabletblZollArtikel) Me.tabletblZollUnterArtikel = New tblZollUnterArtikelDataTable() MyBase.Tables.Add(Me.tabletblZollUnterArtikel) Me.tableTemporaryUpsizedTable2 = New TemporaryUpsizedTable2DataTable() MyBase.Tables.Add(Me.tableTemporaryUpsizedTable2) Me.tableVerkehrszweige = New VerkehrszweigeDataTable() MyBase.Tables.Add(Me.tableVerkehrszweige) Me.tableVermerke = New VermerkeDataTable() MyBase.Tables.Add(Me.tableVermerke) Me.tableVorkosten = New VorkostenDataTable() MyBase.Tables.Add(Me.tableVorkosten) Me.tableWährungstabelle = New WährungstabelleDataTable() MyBase.Tables.Add(Me.tableWährungstabelle) Me.tableZahlungsarten = New ZahlungsartenDataTable() MyBase.Tables.Add(Me.tableZahlungsarten) Me.tablezbadz = New zbadzDataTable() MyBase.Tables.Add(Me.tablezbadz) Me.tablezbant = New zbantDataTable() MyBase.Tables.Add(Me.tablezbant) Me.tablezbapo = New zbapoDataTable() MyBase.Tables.Add(Me.tablezbapo) Me.tablezbpos = New zbposDataTable() MyBase.Tables.Add(Me.tablezbpos) Me.tableZkteing = New ZkteingDataTable() MyBase.Tables.Add(Me.tableZkteing) Me.tableZollsysteme = New ZollsystemeDataTable() MyBase.Tables.Add(Me.tableZollsysteme) Me.tableZulassungen_ZnV = New Zulassungen_ZnVDataTable() MyBase.Tables.Add(Me.tableZulassungen_ZnV) Me.tablevwKundenstamm = New vwKundenstammDataTable() MyBase.Tables.Add(Me.tablevwKundenstamm) Me.tablevwReErfAuswahl = New vwReErfAuswahlDataTable() MyBase.Tables.Add(Me.tablevwReErfAuswahl) Me.tablevwTrdinHeader = New vwTrdinHeaderDataTable() MyBase.Tables.Add(Me.tablevwTrdinHeader) Me.tablevwTrdinInvoice = New vwTrdinInvoiceDataTable() MyBase.Tables.Add(Me.tablevwTrdinInvoice) Me.tablevwTrdinProduct = New vwTrdinProductDataTable() MyBase.Tables.Add(Me.tablevwTrdinProduct) Me.tablevwUStV_OP_Risikobericht = New vwUStV_OP_RisikoberichtDataTable() MyBase.Tables.Add(Me.tablevwUStV_OP_Risikobericht) Me.tablevwUStVAntrag = New vwUStVAntragDataTable() MyBase.Tables.Add(Me.tablevwUStVAntrag) Me.tablevwUStVBelegeingang = New vwUStVBelegeingangDataTable() MyBase.Tables.Add(Me.tablevwUStVBelegeingang) Me.tablevwUStVErstattung = New vwUStVErstattungDataTable() MyBase.Tables.Add(Me.tablevwUStVErstattung) Me.tablevwUStVPositionen = New vwUStVPositionenDataTable() MyBase.Tables.Add(Me.tablevwUStVPositionen) Me.tablevwUStVVorauszahlung = New vwUStVVorauszahlungDataTable() MyBase.Tables.Add(Me.tablevwUStVVorauszahlung) Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1 = New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable() MyBase.Tables.Add(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1) Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new = New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable() MyBase.Tables.Add(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new) Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2 = New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable() MyBase.Tables.Add(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2) Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new = New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable() MyBase.Tables.Add(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new) Me.tablespAlleTabellen = New spAlleTabellenDataTable() MyBase.Tables.Add(Me.tablespAlleTabellen) Me.tablespReDruReNrVergeben = New spReDruReNrVergebenDataTable() MyBase.Tables.Add(Me.tablespReDruReNrVergeben) Me.tablespReDruSchnSaReDruckinfoEintragen = New spReDruSchnSaReDruckinfoEintragenDataTable() MyBase.Tables.Add(Me.tablespReDruSchnSaReDruckinfoEintragen) Me.tablespReDruSchnSaReNrEintragen = New spReDruSchnSaReNrEintragenDataTable() MyBase.Tables.Add(Me.tablespReDruSchnSaReNrEintragen) Me.tablespReverseChargeSumme = New spReverseChargeSummeDataTable() MyBase.Tables.Add(Me.tablespReverseChargeSumme) Me.tablespSELECT_Bankspesen_für_KundenNr = New spSELECT_Bankspesen_für_KundenNrDataTable() MyBase.Tables.Add(Me.tablespSELECT_Bankspesen_für_KundenNr) Me.tablespSELECT_tblZabis_Atlas_NCTS = New spSELECT_tblZabis_Atlas_NCTSDataTable() MyBase.Tables.Add(Me.tablespSELECT_tblZabis_Atlas_NCTS) Me.tablespSELECTAufschubdaten = New spSELECTAufschubdatenDataTable() MyBase.Tables.Add(Me.tablespSELECTAufschubdaten) Me.tablespSELECTRechnungsausgang = New spSELECTRechnungsausgangDataTable() MyBase.Tables.Add(Me.tablespSELECTRechnungsausgang) Me.tablespSELECTRechnungsausgangPositionen = New spSELECTRechnungsausgangPositionenDataTable() MyBase.Tables.Add(Me.tablespSELECTRechnungsausgangPositionen) Me.tablespSELECTRechnungsnummern = New spSELECTRechnungsnummernDataTable() MyBase.Tables.Add(Me.tablespSELECTRechnungsnummern) Me.tablespSelectReDruSaReRKAvisoID = New spSelectReDruSaReRKAvisoIDDataTable() MyBase.Tables.Add(Me.tablespSelectReDruSaReRKAvisoID) Me.tablespSELECTReDruSaReRKgruppieren = New spSELECTReDruSaReRKgruppierenDataTable() MyBase.Tables.Add(Me.tablespSELECTReDruSaReRKgruppieren) Me.tablespSelectReDruSchnBB_RK = New spSelectReDruSchnBB_RKDataTable() MyBase.Tables.Add(Me.tablespSelectReDruSchnBB_RK) Me.tablespSelectReDruSchnKunde = New spSelectReDruSchnKundeDataTable() MyBase.Tables.Add(Me.tablespSelectReDruSchnKunde) Me.tablespSelectReDruSchnSumBS415 = New spSelectReDruSchnSumBS415DataTable() MyBase.Tables.Add(Me.tablespSelectReDruSchnSumBS415) Me.tablespSelectReDruSchnTextZollbelegePrüfen = New spSelectReDruSchnTextZollbelegePrüfenDataTable() MyBase.Tables.Add(Me.tablespSelectReDruSchnTextZollbelegePrüfen) Me.tablespSELECTReDruSumReGu = New spSELECTReDruSumReGuDataTable() MyBase.Tables.Add(Me.tablespSELECTReDruSumReGu) Me.tablespSELECTReDruText = New spSELECTReDruTextDataTable() MyBase.Tables.Add(Me.tablespSELECTReDruText) Me.tablespSelectReErfAuswahl = New spSelectReErfAuswahlDataTable() MyBase.Tables.Add(Me.tablespSelectReErfAuswahl) Me.tablespSELECTReErfKA = New spSELECTReErfKADataTable() MyBase.Tables.Add(Me.tablespSELECTReErfKA) Me.tablespSelectRK = New spSelectRKDataTable() MyBase.Tables.Add(Me.tablespSelectRK) Me.tablespSelectRKPKey = New spSelectRKPKeyDataTable() MyBase.Tables.Add(Me.tablespSelectRKPKey) Me.tablespSelectRP = New spSelectRPDataTable() MyBase.Tables.Add(Me.tablespSelectRP) Me.tablespSelectRPFKeyRK = New spSelectRPFKeyRKDataTable() MyBase.Tables.Add(Me.tablespSelectRPFKeyRK) Me.tablespSelectRPPKey = New spSelectRPPKeyDataTable() MyBase.Tables.Add(Me.tablespSelectRPPKey) Me.tablespSELECTtblAnmeldungPKey = New spSELECTtblAnmeldungPKeyDataTable() MyBase.Tables.Add(Me.tablespSELECTtblAnmeldungPKey) Me.tablespSELECTtblQS_Abfertigungsarten = New spSELECTtblQS_AbfertigungsartenDataTable() MyBase.Tables.Add(Me.tablespSELECTtblQS_Abfertigungsarten) Me.tablespSELECTtblQS_Aufträge = New spSELECTtblQS_AufträgeDataTable() MyBase.Tables.Add(Me.tablespSELECTtblQS_Aufträge) Me.tablespSELECTtblQS_Auftragspositionen = New spSELECTtblQS_AuftragspositionenDataTable() MyBase.Tables.Add(Me.tablespSELECTtblQS_Auftragspositionen) Me.tablespSELECTtblTrdinHeader = New spSELECTtblTrdinHeaderDataTable() MyBase.Tables.Add(Me.tablespSELECTtblTrdinHeader) Me.tablespSELECTtblTrdinInvoice = New spSELECTtblTrdinInvoiceDataTable() MyBase.Tables.Add(Me.tablespSELECTtblTrdinInvoice) Me.tablespSELECTtblTrdinProduct = New spSELECTtblTrdinProductDataTable() MyBase.Tables.Add(Me.tablespSELECTtblTrdinProduct) Me.tablespSELECTtblUStVAntrag = New spSELECTtblUStVAntragDataTable() MyBase.Tables.Add(Me.tablespSELECTtblUStVAntrag) Me.tablespSELECTtblUStVBelegeingang = New spSELECTtblUStVBelegeingangDataTable() MyBase.Tables.Add(Me.tablespSELECTtblUStVBelegeingang) Me.tablespSELECTtblUStVErstattung = New spSELECTtblUStVErstattungDataTable() MyBase.Tables.Add(Me.tablespSELECTtblUStVErstattung) Me.tablespSELECTtblUStVPositionen = New spSELECTtblUStVPositionenDataTable() MyBase.Tables.Add(Me.tablespSELECTtblUStVPositionen) Me.tablespSELECTtblZolaris_EZoll_NCTS = New spSELECTtblZolaris_EZoll_NCTSDataTable() MyBase.Tables.Add(Me.tablespSELECTtblZolaris_EZoll_NCTS) Me.tablespSELECTUStVErstattungsschreiben = New spSELECTUStVErstattungsschreibenDataTable() MyBase.Tables.Add(Me.tablespSELECTUStVErstattungsschreiben) Me.tablespSELECTUStVErstattungsschreiben2 = New spSELECTUStVErstattungsschreiben2DataTable() MyBase.Tables.Add(Me.tablespSELECTUStVErstattungsschreiben2) Me.tablespSELECTZkteing = New spSELECTZkteingDataTable() MyBase.Tables.Add(Me.tablespSELECTZkteing) Me.tablespTrdinFiBuSelectInvoice = New spTrdinFiBuSelectInvoiceDataTable() MyBase.Tables.Add(Me.tablespTrdinFiBuSelectInvoice) Me.tablespTrdinFiBuSelectProduct = New spTrdinFiBuSelectProductDataTable() MyBase.Tables.Add(Me.tablespTrdinFiBuSelectProduct) Me.tablespTrdinSchreibenSelectInvoicePKey = New spTrdinSchreibenSelectInvoicePKeyDataTable() MyBase.Tables.Add(Me.tablespTrdinSchreibenSelectInvoicePKey) Me.tablespTrdinSchreibenSelectProductFKeyInvoice = New spTrdinSchreibenSelectProductFKeyInvoiceDataTable() MyBase.Tables.Add(Me.tablespTrdinSchreibenSelectProductFKeyInvoice) Me.tablespTrdinSchreibenSelectProductPKey = New spTrdinSchreibenSelectProductPKeyDataTable() MyBase.Tables.Add(Me.tablespTrdinSchreibenSelectProductPKey) Me.tablespUStVAntragLesenParameterPKey = New spUStVAntragLesenParameterPKeyDataTable() MyBase.Tables.Add(Me.tablespUStVAntragLesenParameterPKey) Me.tablespUStVBelegeingangLesenParameterPKey = New spUStVBelegeingangLesenParameterPKeyDataTable() MyBase.Tables.Add(Me.tablespUStVBelegeingangLesenParameterPKey) Me.tablespUStVErstattungLesenParameterPKey = New spUStVErstattungLesenParameterPKeyDataTable() MyBase.Tables.Add(Me.tablespUStVErstattungLesenParameterPKey) Me.tablespUStVPositionenLesenParameterPKey = New spUStVPositionenLesenParameterPKeyDataTable() MyBase.Tables.Add(Me.tablespUStVPositionenLesenParameterPKey) Me.tablespUStVRechnungÜbernehmenMSE = New spUStVRechnungÜbernehmenMSEDataTable() MyBase.Tables.Add(Me.tablespUStVRechnungÜbernehmenMSE) Me.tablespUStVVorschau_IDS_Summe = New spUStVVorschau_IDS_SummeDataTable() MyBase.Tables.Add(Me.tablespUStVVorschau_IDS_Summe) Me.tablespUStVVorschau_IT_Summe = New spUStVVorschau_IT_SummeDataTable() MyBase.Tables.Add(Me.tablespUStVVorschau_IT_Summe) Me.tablespUStVVorschau_MSE_Summe = New spUStVVorschau_MSE_SummeDataTable() MyBase.Tables.Add(Me.tablespUStVVorschau_MSE_Summe) Me.tablespUStVVorschau_UTA_Summe = New spUStVVorschau_UTA_SummeDataTable() MyBase.Tables.Add(Me.tablespUStVVorschau_UTA_Summe) Me.tablespUStVVorschau_VERAG_Summe = New spUStVVorschau_VERAG_SummeDataTable() MyBase.Tables.Add(Me.tablespUStVVorschau_VERAG_Summe) Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung = New spZolaris_EZoll_NCTS_DatenbereitstellungDataTable() MyBase.Tables.Add(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung) Me._relationAbfertigungskosten_der_Korrespondenten_AbfertigungsartenAbfertigungskosten_der_Korrespondenten = New Global.System.Data.DataRelation("Abfertigungskosten der Korrespondenten$AbfertigungsartenAbfertigungskosten der Ko"& _ "rrespondenten", New Global.System.Data.DataColumn() {Me.tableAbfertigungsarten.AbfertigungsartColumn}, New Global.System.Data.DataColumn() {Me.tableAbfertigungskosten_der_Korrespondenten.AbfertigungsartColumn}, false) Me.Relations.Add(Me._relationAbfertigungskosten_der_Korrespondenten_AbfertigungsartenAbfertigungskosten_der_Korrespondenten) Me._relationAbfertigungskosten_der_Korrespondenten_KorrespondentenAbfertigungskosten_der_Korrespondenten = New Global.System.Data.DataRelation("Abfertigungskosten der Korrespondenten$KorrespondentenAbfertigungskosten der Korr"& _ "espondenten", New Global.System.Data.DataColumn() {Me.tableKorrespondenten.KorrespondentenNrColumn}, New Global.System.Data.DataColumn() {Me.tableAbfertigungskosten_der_Korrespondenten.KorrespondentenNrColumn}, false) Me.Relations.Add(Me._relationAbfertigungskosten_der_Korrespondenten_KorrespondentenAbfertigungskosten_der_Korrespondenten) Me._relationAbfertigungskosten_der_Korrespondenten_LeistungenAbfertigungskosten_der_Korrespondenten = New Global.System.Data.DataRelation("Abfertigungskosten der Korrespondenten$LeistungenAbfertigungskosten der Korrespon"& _ "denten", New Global.System.Data.DataColumn() {Me.tableLeistungen.LeistungsNrColumn}, New Global.System.Data.DataColumn() {Me.tableAbfertigungskosten_der_Korrespondenten.LeistungsNrColumn}, false) Me.Relations.Add(Me._relationAbfertigungskosten_der_Korrespondenten_LeistungenAbfertigungskosten_der_Korrespondenten) Me._relationDevisenkurse_Reference9 = New Global.System.Data.DataRelation("Devisenkurse$Reference9", New Global.System.Data.DataColumn() {Me.tableWährungstabelle.WährungsschlüsselColumn}, New Global.System.Data.DataColumn() {Me.tableDevisenkurse.WährungsschlüsselColumn}, false) Me.Relations.Add(Me._relationDevisenkurse_Reference9) Me._relationFilialen_KorrespondentenFilialen = New Global.System.Data.DataRelation("Filialen$KorrespondentenFilialen", New Global.System.Data.DataColumn() {Me.tableKorrespondenten.KorrespondentenNrColumn}, New Global.System.Data.DataColumn() {Me.tableFilialen.KorrespondentenNrColumn}, false) Me.Relations.Add(Me._relationFilialen_KorrespondentenFilialen) Me._relationKreditkarten_AdressenKreditkarten = New Global.System.Data.DataRelation("Kreditkarten$AdressenKreditkarten", New Global.System.Data.DataColumn() {Me.tableAdressen.AdressenNrColumn}, New Global.System.Data.DataColumn() {Me.tableKreditkarten.AdressenNrColumn}, false) Me.Relations.Add(Me._relationKreditkarten_AdressenKreditkarten) Me._relationKunden_AdressenKunden = New Global.System.Data.DataRelation("Kunden$AdressenKunden", New Global.System.Data.DataColumn() {Me.tableAdressen.AdressenNrColumn}, New Global.System.Data.DataColumn() {Me.tableKunden.KundenNrColumn}, false) Me.Relations.Add(Me._relationKunden_AdressenKunden) Me._relationKunden_FilialenKunden = New Global.System.Data.DataRelation("Kunden$FilialenKunden", New Global.System.Data.DataColumn() {Me.tableFilialen.FilialenNrColumn}, New Global.System.Data.DataColumn() {Me.tableKunden.FilialenNrColumn}, false) Me.Relations.Add(Me._relationKunden_FilialenKunden) Me._relationKunden_Reference7 = New Global.System.Data.DataRelation("Kunden$Reference7", New Global.System.Data.DataColumn() {Me.tableSteuertabelle.SteuerschlüsselColumn}, New Global.System.Data.DataColumn() {Me.tableKunden.SteuerschlüsselColumn}, false) Me.Relations.Add(Me._relationKunden_Reference7) Me._relationKundenFilialen_FilialenKundenFilialen = New Global.System.Data.DataRelation("KundenFilialen$FilialenKundenFilialen", New Global.System.Data.DataColumn() {Me.tableFilialen.FilialenNrColumn}, New Global.System.Data.DataColumn() {Me.tableKundenFilialen.FilialenNrColumn}, false) Me.Relations.Add(Me._relationKundenFilialen_FilialenKundenFilialen) Me._relationKundenFilialen_KundenKundenFilialen = New Global.System.Data.DataRelation("KundenFilialen$KundenKundenFilialen", New Global.System.Data.DataColumn() {Me.tableKunden.KundenNrColumn}, New Global.System.Data.DataColumn() {Me.tableKundenFilialen.KundenNrColumn}, false) Me.Relations.Add(Me._relationKundenFilialen_KundenKundenFilialen) Me._relationLeistungen_BerechnungsartLeistungen = New Global.System.Data.DataRelation("Leistungen$BerechnungsartLeistungen", New Global.System.Data.DataColumn() {Me.tableBerechnungsart.BerechnungsartNrColumn}, New Global.System.Data.DataColumn() {Me.tableLeistungen.BerechnungsartNrColumn}, false) Me.Relations.Add(Me._relationLeistungen_BerechnungsartLeistungen) Me._relationLeistungen_KostenstellenLeistungen = New Global.System.Data.DataRelation("Leistungen$KostenstellenLeistungen", New Global.System.Data.DataColumn() {Me.tableKostenstellen.KostenstelleColumn}, New Global.System.Data.DataColumn() {Me.tableLeistungen.KostenstelleColumn}, false) Me.Relations.Add(Me._relationLeistungen_KostenstellenLeistungen) Me._relationNebenkosten_der_Korrespondenten_KorrespondentenNebenkosten_der_Korrespondenten = New Global.System.Data.DataRelation("Nebenkosten der Korrespondenten$KorrespondentenNebenkosten der Korrespondenten", New Global.System.Data.DataColumn() {Me.tableKorrespondenten.KorrespondentenNrColumn}, New Global.System.Data.DataColumn() {Me.tableNebenkosten_der_Korrespondenten.KorrespondentenNrColumn}, false) Me.Relations.Add(Me._relationNebenkosten_der_Korrespondenten_KorrespondentenNebenkosten_der_Korrespondenten) Me._relationNebenkosten_der_Korrespondenten_LeistungenNebenkosten_der_Korrespondenten = New Global.System.Data.DataRelation("Nebenkosten der Korrespondenten$LeistungenNebenkosten der Korrespondenten", New Global.System.Data.DataColumn() {Me.tableLeistungen.LeistungsNrColumn}, New Global.System.Data.DataColumn() {Me.tableNebenkosten_der_Korrespondenten.LeistungsNrColumn}, false) Me.Relations.Add(Me._relationNebenkosten_der_Korrespondenten_LeistungenNebenkosten_der_Korrespondenten) Me._relationOfferten_FilialenOfferten = New Global.System.Data.DataRelation("Offerten$FilialenOfferten", New Global.System.Data.DataColumn() {Me.tableFilialen.FilialenNrColumn}, New Global.System.Data.DataColumn() {Me.tableOfferten.FilialenNrColumn}, false) Me.Relations.Add(Me._relationOfferten_FilialenOfferten) Me._relationOfferten_KundenOfferten = New Global.System.Data.DataRelation("Offerten$KundenOfferten", New Global.System.Data.DataColumn() {Me.tableKunden.KundenNrColumn}, New Global.System.Data.DataColumn() {Me.tableOfferten.KundenNrColumn}, false) Me.Relations.Add(Me._relationOfferten_KundenOfferten) Me._relationOfferten_OffertenstammOfferten = New Global.System.Data.DataRelation("Offerten$OffertenstammOfferten", New Global.System.Data.DataColumn() {Me.tableOffertenstamm.OffertenNrColumn}, New Global.System.Data.DataColumn() {Me.tableOfferten.OffertenNrColumn}, false) Me.Relations.Add(Me._relationOfferten_OffertenstammOfferten) Me._relationOffertenpositionen_BerechnungsartOffertenpositionen = New Global.System.Data.DataRelation("Offertenpositionen$BerechnungsartOffertenpositionen", New Global.System.Data.DataColumn() {Me.tableBerechnungsart.BerechnungsartNrColumn}, New Global.System.Data.DataColumn() {Me.tableOffertenpositionen.BerechnungsartNrColumn}, false) Me.Relations.Add(Me._relationOffertenpositionen_BerechnungsartOffertenpositionen) Me._relationOffertenpositionen_LeistungenOffertenpositionen = New Global.System.Data.DataRelation("Offertenpositionen$LeistungenOffertenpositionen", New Global.System.Data.DataColumn() {Me.tableLeistungen.LeistungsNrColumn}, New Global.System.Data.DataColumn() {Me.tableOffertenpositionen.LeistungsNrColumn}, false) Me.Relations.Add(Me._relationOffertenpositionen_LeistungenOffertenpositionen) Me._relationOffertenpositionen_OffertenOffertenpositionen = New Global.System.Data.DataRelation("Offertenpositionen$OffertenOffertenpositionen", New Global.System.Data.DataColumn() {Me.tableOfferten.KundenNrColumn, Me.tableOfferten.OffertenNrColumn}, New Global.System.Data.DataColumn() {Me.tableOffertenpositionen.KundenNrColumn, Me.tableOffertenpositionen.OffertenNrColumn}, false) Me.Relations.Add(Me._relationOffertenpositionen_OffertenOffertenpositionen) Me.relationRechnungsausgangPositione_FK00 = New Global.System.Data.DataRelation("RechnungsausgangPositione_FK00", New Global.System.Data.DataColumn() {Me.tableRechnungsausgang.RK_IDColumn}, New Global.System.Data.DataColumn() {Me.tableRechnungsausgangPositionen.RK_IDColumn}, false) Me.Relations.Add(Me.relationRechnungsausgangPositione_FK00) Me._relationStandardofferten_LeistungenStandardofferten = New Global.System.Data.DataRelation("Standardofferten$LeistungenStandardofferten", New Global.System.Data.DataColumn() {Me.tableLeistungen.LeistungsNrColumn}, New Global.System.Data.DataColumn() {Me.tableStandardofferten.LeistungsNrColumn}, false) Me.Relations.Add(Me._relationStandardofferten_LeistungenStandardofferten) Me._relationStandardofferten_OffertenstammStandardofferten = New Global.System.Data.DataRelation("Standardofferten$OffertenstammStandardofferten", New Global.System.Data.DataColumn() {Me.tableOffertenstamm.OffertenNrColumn}, New Global.System.Data.DataColumn() {Me.tableStandardofferten.OffertenNrColumn}, false) Me.Relations.Add(Me._relationStandardofferten_OffertenstammStandardofferten) Me._relationStandardoffertenFirma_LeistungenStandardofferten = New Global.System.Data.DataRelation("StandardoffertenFirma$LeistungenStandardofferten", New Global.System.Data.DataColumn() {Me.tableLeistungen.LeistungsNrColumn}, New Global.System.Data.DataColumn() {Me.tableStandardoffertenFirma.LeistungsNrColumn}, false) Me.Relations.Add(Me._relationStandardoffertenFirma_LeistungenStandardofferten) Me._relationStandardoffertenFirma_OffertenstammStandardofferten = New Global.System.Data.DataRelation("StandardoffertenFirma$OffertenstammStandardofferten", New Global.System.Data.DataColumn() {Me.tableOffertenstamm.OffertenNrColumn}, New Global.System.Data.DataColumn() {Me.tableStandardoffertenFirma.OffertenNrColumn}, false) Me.Relations.Add(Me._relationStandardoffertenFirma_OffertenstammStandardofferten) Me._relationtbl_IDS_Kategorien_Kunden_Adressentbl_IDS_Kategorien_Kunden = New Global.System.Data.DataRelation("tbl_IDS_Kategorien_Kunden$Adressentbl_IDS_Kategorien_Kunden", New Global.System.Data.DataColumn() {Me.tableAdressen.AdressenNrColumn}, New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Kategorien_Kunden.CustomerCodeColumn}, false) Me.Relations.Add(Me._relationtbl_IDS_Kategorien_Kunden_Adressentbl_IDS_Kategorien_Kunden) Me._relationtbl_IDS_Kategorien_Rechenwerte_tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte = New Global.System.Data.DataRelation("tbl_IDS_Kategorien_Rechenwerte$tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte", New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Produkte.ProductTypeCodeColumn}, New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Kategorien_Rechenwerte.ProductTypeCodeColumn}, false) Me.Relations.Add(Me._relationtbl_IDS_Kategorien_Rechenwerte_tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte) Me._relationtbl_IDS_Kunden_Adressentbl_IDS_Kunden = New Global.System.Data.DataRelation("tbl_IDS_Kunden$Adressentbl_IDS_Kunden", New Global.System.Data.DataColumn() {Me.tableAdressen.AdressenNrColumn}, New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Kunden.KdNrVERAGColumn}, false) Me.Relations.Add(Me._relationtbl_IDS_Kunden_Adressentbl_IDS_Kunden) Me._relationtbl_IDS_Kunden_ohne_Rabatt_Adressentbl_IDS_Kunden_ohne_Rabatt = New Global.System.Data.DataRelation("tbl_IDS_Kunden_ohne_Rabatt$Adressentbl_IDS_Kunden_ohne_Rabatt", New Global.System.Data.DataColumn() {Me.tableAdressen.AdressenNrColumn}, New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Kunden_ohne_Rabatt.CustomerCodeColumn}, false) Me.Relations.Add(Me._relationtbl_IDS_Kunden_ohne_Rabatt_Adressentbl_IDS_Kunden_ohne_Rabatt) Me._relationtbl_IDS_Länder_Leistungentbl_IDS_Länder = New Global.System.Data.DataRelation("tbl_IDS_Länder$Leistungentbl_IDS_Länder", New Global.System.Data.DataColumn() {Me.tableLeistungen.LeistungsNrColumn}, New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Länder.LeistungsNrColumn}, false) Me.Relations.Add(Me._relationtbl_IDS_Länder_Leistungentbl_IDS_Länder) Me._relationtbl_IDS_Rechenwerte_Adressentbl_IDS_Rechenwerte = New Global.System.Data.DataRelation("tbl_IDS_Rechenwerte$Adressentbl_IDS_Rechenwerte", New Global.System.Data.DataColumn() {Me.tableAdressen.AdressenNrColumn}, New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Rechenwerte.CustomerCodeColumn}, false) Me.Relations.Add(Me._relationtbl_IDS_Rechenwerte_Adressentbl_IDS_Rechenwerte) Me._relationtbl_IDS_Rechenwerte_tbl_IDS_Ländertbl_IDS_Rechenwerte = New Global.System.Data.DataRelation("tbl_IDS_Rechenwerte$tbl_IDS_Ländertbl_IDS_Rechenwerte", New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Länder.OutletCountryCodeColumn}, New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Rechenwerte.OutletCountryCodeColumn}, false) Me.Relations.Add(Me._relationtbl_IDS_Rechenwerte_tbl_IDS_Ländertbl_IDS_Rechenwerte) Me._relationtbl_IDS_Rechenwerte_tbl_IDS_Produktetbl_IDS_Rechenwerte = New Global.System.Data.DataRelation("tbl_IDS_Rechenwerte$tbl_IDS_Produktetbl_IDS_Rechenwerte", New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Produkte.ProductTypeCodeColumn}, New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Rechenwerte.ProductTypeCodeColumn}, false) Me.Relations.Add(Me._relationtbl_IDS_Rechenwerte_tbl_IDS_Produktetbl_IDS_Rechenwerte) Me._relationtbl_IDS_Stationen_tbl_IDS_Ländertbl_IDS_Stationen = New Global.System.Data.DataRelation("tbl_IDS_Stationen$tbl_IDS_Ländertbl_IDS_Stationen", New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Länder.OutletCountryCodeColumn}, New Global.System.Data.DataColumn() {Me.tabletbl_IDS_Stationen.OutletCountryCodeColumn}, false) Me.Relations.Add(Me._relationtbl_IDS_Stationen_tbl_IDS_Ländertbl_IDS_Stationen) Me._relationtbl_Telefonnummern__225FED75_BA09_45E0_9A45_F3814507EBE0_ = New Global.System.Data.DataRelation("tbl_Telefonnummern${225FED75-BA09-45E0-9A45-F3814507EBE0}", New Global.System.Data.DataColumn() {Me.tabletbl_Telefonbuch.IDColumn}, New Global.System.Data.DataColumn() {Me.tabletbl_Telefonnummern.ID_tbl_TelefonbuchColumn}, false) Me.Relations.Add(Me._relationtbl_Telefonnummern__225FED75_BA09_45E0_9A45_F3814507EBE0_) Me.relationFK_tblATEZ_NCTS_Routen_TotblATEZNCTS = New Global.System.Data.DataRelation("FK_tblATEZ_NCTS_Routen_TotblATEZNCTS", New Global.System.Data.DataColumn() {Me.tabletblATEZ_NCTS.IdColumn}, New Global.System.Data.DataColumn() {Me.tabletblATEZ_NCTS_Routen.AtezNCTS_IdColumn}, false) Me.Relations.Add(Me.relationFK_tblATEZ_NCTS_Routen_TotblATEZNCTS) Me.relationFK_tblATEZ_NCTS_TransitCustomsOffice = New Global.System.Data.DataRelation("FK_tblATEZ_NCTS_TransitCustomsOffice", New Global.System.Data.DataColumn() {Me.tabletblATEZ_NCTS.IdColumn}, New Global.System.Data.DataColumn() {Me.tabletblATEZ_NCTS_TransitCustomsOffice.AtezNCTS_IdColumn}, false) Me.Relations.Add(Me.relationFK_tblATEZ_NCTS_TransitCustomsOffice) Me.relationtblBerichtsdrucker_FK00 = New Global.System.Data.DataRelation("tblBerichtsdrucker_FK00", New Global.System.Data.DataColumn() {Me.tabletblAnmeldung.ComputernameColumn, Me.tabletblAnmeldung.BenutzernameColumn}, New Global.System.Data.DataColumn() {Me.tabletblBerichtsdrucker.ComputernameColumn, Me.tabletblBerichtsdrucker.BenutzernameColumn}, false) Me.Relations.Add(Me.relationtblBerichtsdrucker_FK00) Me.relationtblEABelegposition_FK00 = New Global.System.Data.DataRelation("tblEABelegposition_FK00", New Global.System.Data.DataColumn() {Me.tabletblEABelegnummer.MandantColumn, Me.tabletblEABelegnummer.NiederlassungColumn, Me.tabletblEABelegnummer.BenutzerColumn, Me.tabletblEABelegnummer.BelegDatColumn, Me.tabletblEABelegnummer.BelegNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblEABelegposition.MandantColumn, Me.tabletblEABelegposition.NiederlassungColumn, Me.tabletblEABelegposition.BenutzerColumn, Me.tabletblEABelegposition.BelegDatColumn, Me.tabletblEABelegposition.BelegNrColumn}, false) Me.Relations.Add(Me.relationtblEABelegposition_FK00) Me.relationtblFormulardaten_FK00 = New Global.System.Data.DataRelation("tblFormulardaten_FK00", New Global.System.Data.DataColumn() {Me.tabletblAnmeldung.ComputernameColumn, Me.tabletblAnmeldung.BenutzernameColumn}, New Global.System.Data.DataColumn() {Me.tabletblFormulardaten.ComputernameColumn, Me.tabletblFormulardaten.BenutzernameColumn}, false) Me.Relations.Add(Me.relationtblFormulardaten_FK00) Me.relationtblHistorie_FK00 = New Global.System.Data.DataRelation("tblHistorie_FK00", New Global.System.Data.DataColumn() {Me.tabletblAnmeldung.ComputernameColumn, Me.tabletblAnmeldung.BenutzernameColumn}, New Global.System.Data.DataColumn() {Me.tabletblHistorie.ComputernameColumn, Me.tabletblHistorie.BenutzernameColumn}, false) Me.Relations.Add(Me.relationtblHistorie_FK00) Me._relationtblKonto__C2FF3095_6D95_4263_9D51_CD3DEDA1AB7B_ = New Global.System.Data.DataRelation("tblKonto${C2FF3095-6D95-4263-9D51-CD3DEDA1AB7B}", New Global.System.Data.DataColumn() {Me.tabletblSteuersätze.NrColumn}, New Global.System.Data.DataColumn() {Me.tabletblKonto.SteuerColumn}, false) Me.Relations.Add(Me._relationtblKonto__C2FF3095_6D95_4263_9D51_CD3DEDA1AB7B_) Me.relationtblLogbuch_FK00 = New Global.System.Data.DataRelation("tblLogbuch_FK00", New Global.System.Data.DataColumn() {Me.tabletblAnmeldung.ComputernameColumn, Me.tabletblAnmeldung.BenutzernameColumn}, New Global.System.Data.DataColumn() {Me.tabletblLogbuch.ComputernameColumn, Me.tabletblLogbuch.BenutzernameColumn}, false) Me.Relations.Add(Me.relationtblLogbuch_FK00) Me._relationtblMSELeistungen_LeistungentblMSELeistungen = New Global.System.Data.DataRelation("tblMSELeistungen$LeistungentblMSELeistungen", New Global.System.Data.DataColumn() {Me.tableLeistungen.LeistungsNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblMSELeistungen.LeistungsNrColumn}, false) Me.Relations.Add(Me._relationtblMSELeistungen_LeistungentblMSELeistungen) Me.relationFK_tblOffertenPositionenArchiv_ToOffertenArchiv = New Global.System.Data.DataRelation("FK_tblOffertenPositionenArchiv_ToOffertenArchiv", New Global.System.Data.DataColumn() {Me.tabletblOffertenArchiv.OfIDColumn}, New Global.System.Data.DataColumn() {Me.tabletblOffertenPositionenArchiv.OfIDColumn}, false) Me.Relations.Add(Me.relationFK_tblOffertenPositionenArchiv_ToOffertenArchiv) Me._relationtblPreislistenpositionen__7909BA97_12D3_4CFF_A642_CB950EFCC006_ = New Global.System.Data.DataRelation("tblPreislistenpositionen${7909BA97-12D3-4CFF-A642-CB950EFCC006}", New Global.System.Data.DataColumn() {Me.tabletblPreistabellen.PreistabellenNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblPreislistenpositionen.PreistabellenNrColumn}, false) Me.Relations.Add(Me._relationtblPreislistenpositionen__7909BA97_12D3_4CFF_A642_CB950EFCC006_) Me._relationtblPreislistenpositionen__D78DE894_2B0C_43E6_B462_32459F9DF422_ = New Global.System.Data.DataRelation("tblPreislistenpositionen${D78DE894-2B0C-43E6-B462-32459F9DF422}", New Global.System.Data.DataColumn() {Me.tabletblPreislisten.PreislistenNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblPreislistenpositionen.PreislistenNrColumn}, false) Me.Relations.Add(Me._relationtblPreislistenpositionen__D78DE894_2B0C_43E6_B462_32459F9DF422_) Me._relationtblPreislistenpositionen_LeistungentblPreislistenpositionen = New Global.System.Data.DataRelation("tblPreislistenpositionen$LeistungentblPreislistenpositionen", New Global.System.Data.DataColumn() {Me.tableLeistungen.LeistungsNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblPreislistenpositionen.LeistungsNrColumn}, false) Me.Relations.Add(Me._relationtblPreislistenpositionen_LeistungentblPreislistenpositionen) Me._relationtblPreistabellenpositionen__0A7945E3_819D_45DD_A5AE_7188FF604603_ = New Global.System.Data.DataRelation("tblPreistabellenpositionen${0A7945E3-819D-45DD-A5AE-7188FF604603}", New Global.System.Data.DataColumn() {Me.tabletblPreistabellen.PreistabellenNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblPreistabellenpositionen.PreistabellenNrColumn}, false) Me.Relations.Add(Me._relationtblPreistabellenpositionen__0A7945E3_819D_45DD_A5AE_7188FF604603_) Me.relationtblQS_Auftragspositionen_FK00 = New Global.System.Data.DataRelation("tblQS_Auftragspositionen_FK00", New Global.System.Data.DataColumn() {Me.tabletblQS_Abfertigungsarten.QS_Abfertigungsart_IDColumn}, New Global.System.Data.DataColumn() {Me.tabletblQS_Auftragspositionen.QS_Abfertigungsart_IDColumn}, false) Me.Relations.Add(Me.relationtblQS_Auftragspositionen_FK00) Me.relationtblQS_Auftragspositionen_FK01 = New Global.System.Data.DataRelation("tblQS_Auftragspositionen_FK01", New Global.System.Data.DataColumn() {Me.tabletblQS_Aufträge.QS_Auftrags_IDColumn}, New Global.System.Data.DataColumn() {Me.tabletblQS_Auftragspositionen.QS_Auftrags_IDColumn}, false) Me.Relations.Add(Me.relationtblQS_Auftragspositionen_FK01) Me.relationFK_Kasse = New Global.System.Data.DataRelation("FK_Kasse", New Global.System.Data.DataColumn() {Me.tabletblRKSV_Kassen.rksv_idColumn}, New Global.System.Data.DataColumn() {Me.tabletblRKSV_POS.pos_kasseColumn}, false) Me.Relations.Add(Me.relationFK_Kasse) Me._relationtblSteuernummern_AdressentblSteuernummern = New Global.System.Data.DataRelation("tblSteuernummern$AdressentblSteuernummern", New Global.System.Data.DataColumn() {Me.tableAdressen.AdressenNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblSteuernummern.AdressenNrColumn}, false) Me.Relations.Add(Me._relationtblSteuernummern_AdressentblSteuernummern) Me._relationtblSteuernummern_Länderverzeichnis_für_die_AußenhandelsstatistiktblSteuernummern = New Global.System.Data.DataRelation("tblSteuernummern$Länderverzeichnis für die AußenhandelsstatistiktblSteuernummern", New Global.System.Data.DataColumn() {Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblSteuernummern.LandNrColumn}, false) Me.Relations.Add(Me._relationtblSteuernummern_Länderverzeichnis_für_die_AußenhandelsstatistiktblSteuernummern) Me._relationtblSteuersätze__3334C686_1593_4561_99E6_824AA652DDAB_ = New Global.System.Data.DataRelation("tblSteuersätze${3334C686-1593-4561-99E6-824AA652DDAB}", New Global.System.Data.DataColumn() {Me.tabletblSteuertyp.NrColumn}, New Global.System.Data.DataColumn() {Me.tabletblSteuersätze.SteuertypColumn}, false) Me.Relations.Add(Me._relationtblSteuersätze__3334C686_1593_4561_99E6_824AA652DDAB_) Me._relationtblSteuersätze__BC888FF9_57C1_4308_AE4D_435AEB9FE6A5_ = New Global.System.Data.DataRelation("tblSteuersätze${BC888FF9-57C1-4308-AE4D-435AEB9FE6A5}", New Global.System.Data.DataColumn() {Me.tabletblBerechnungsmethode.NrColumn}, New Global.System.Data.DataColumn() {Me.tabletblSteuersätze.BerechnungsmethodeColumn}, false) Me.Relations.Add(Me._relationtblSteuersätze__BC888FF9_57C1_4308_AE4D_435AEB9FE6A5_) Me.relationtblTrdinProduct_FK00 = New Global.System.Data.DataRelation("tblTrdinProduct_FK00", New Global.System.Data.DataColumn() {Me.tabletblTrdinInvoice.RechnungsdatumColumn, Me.tabletblTrdinInvoice.RechnungsnummerColumn}, New Global.System.Data.DataColumn() {Me.tabletblTrdinProduct.RechnungsdatumColumn, Me.tabletblTrdinProduct.RechnungsnummerColumn}, false) Me.Relations.Add(Me.relationtblTrdinProduct_FK00) Me.relationtblUStVErstattung_FK00 = New Global.System.Data.DataRelation("tblUStVErstattung_FK00", New Global.System.Data.DataColumn() {Me.tabletblUStVAntrag.UStVAn_IDColumn}, New Global.System.Data.DataColumn() {Me.tabletblUStVErstattung.UStVAn_IDColumn}, false) Me.Relations.Add(Me.relationtblUStVErstattung_FK00) Me._relationtblUStVKuLäFo__8EEF3FB0_6A92_4860_B92D_EB83E6F5AE76_ = New Global.System.Data.DataRelation("tblUStVKuLäFo${8EEF3FB0-6A92-4860-B92D-EB83E6F5AE76}", New Global.System.Data.DataColumn() {Me.tabletblUStVFormulare.UStVFo_FormularNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblUStVKuLäFo.UStVFo_FormularNrColumn}, false) Me.Relations.Add(Me._relationtblUStVKuLäFo__8EEF3FB0_6A92_4860_B92D_EB83E6F5AE76_) Me._relationtblUStVKuLäFo_AdressentblUStVKuLäFo = New Global.System.Data.DataRelation("tblUStVKuLäFo$AdressentblUStVKuLäFo", New Global.System.Data.DataColumn() {Me.tableAdressen.AdressenNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblUStVKuLäFo.UStVKF_KundenNrColumn}, false) Me.Relations.Add(Me._relationtblUStVKuLäFo_AdressentblUStVKuLäFo) Me._relationtblUStVKuLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVKuLäFo = New Global.System.Data.DataRelation("tblUStVKuLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVKuLäFo", New Global.System.Data.DataColumn() {Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblUStVKuLäFo.UStVLF_LandNrColumn}, false) Me.Relations.Add(Me._relationtblUStVKuLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVKuLäFo) Me._relationtblUStVLäFo__472BEB22_FFB6_4415_A1BE_B0664E28BFC1_ = New Global.System.Data.DataRelation("tblUStVLäFo${472BEB22-FFB6-4415-A1BE-B0664E28BFC1}", New Global.System.Data.DataColumn() {Me.tabletblUStVFormulare.UStVFo_FormularNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblUStVLäFo.UStVFo_FormularNrColumn}, false) Me.Relations.Add(Me._relationtblUStVLäFo__472BEB22_FFB6_4415_A1BE_B0664E28BFC1_) Me._relationtblUStVLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVLäFo = New Global.System.Data.DataRelation("tblUStVLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVLäFo", New Global.System.Data.DataColumn() {Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandNrColumn}, New Global.System.Data.DataColumn() {Me.tabletblUStVLäFo.UStVLF_LandNrColumn}, false) Me.Relations.Add(Me._relationtblUStVLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVLäFo) Me.relationtblUStVPositionen_FK00 = New Global.System.Data.DataRelation("tblUStVPositionen_FK00", New Global.System.Data.DataColumn() {Me.tabletblUStVAntrag.UStVAn_IDColumn}, New Global.System.Data.DataColumn() {Me.tabletblUStVPositionen.UStVAn_IDColumn}, false) Me.Relations.Add(Me.relationtblUStVPositionen_FK00) Me.relationtblUTAArchiv_FK00 = New Global.System.Data.DataRelation("tblUTAArchiv_FK00", New Global.System.Data.DataColumn() {Me.tabletblUTAHeader.ErstellDatumUhrzeitColumn, Me.tabletblUTAHeader.ÜbertragungsnummerColumn}, New Global.System.Data.DataColumn() {Me.tabletblUTAArchiv.ErstellDatumUhrzeitColumn, Me.tabletblUTAArchiv.ÜbertragungsnummerColumn}, false) Me.Relations.Add(Me.relationtblUTAArchiv_FK00) Me.relationtblUTAImport_FK00 = New Global.System.Data.DataRelation("tblUTAImport_FK00", New Global.System.Data.DataColumn() {Me.tabletblUTAHeader.ErstellDatumUhrzeitColumn, Me.tabletblUTAHeader.ÜbertragungsnummerColumn}, New Global.System.Data.DataColumn() {Me.tabletblUTAImport.ErstellDatumUhrzeitColumn, Me.tabletblUTAImport.ÜbertragungsnummerColumn}, false) Me.Relations.Add(Me.relationtblUTAImport_FK00) Me.relationtblUTAImportNew_FK00 = New Global.System.Data.DataRelation("tblUTAImportNew_FK00", New Global.System.Data.DataColumn() {Me.tabletblUTAHeaderNew.ErstellDatumUhrzeitColumn, Me.tabletblUTAHeaderNew.ÜbertragungsnummerColumn}, New Global.System.Data.DataColumn() {Me.tabletblUTAImportNew.ErstellDatumUhrzeitColumn, Me.tabletblUTAImportNew.ÜbertragungsnummerColumn}, false) Me.Relations.Add(Me.relationtblUTAImportNew_FK00) Me.relationtblUTALeistungen_FK00 = New Global.System.Data.DataRelation("tblUTALeistungen_FK00", New Global.System.Data.DataColumn() {Me.tabletblUTAFakturierwarenarten.FakturierwarenartColumn}, New Global.System.Data.DataColumn() {Me.tabletblUTALeistungen.FakturierwarenartColumn}, false) Me.Relations.Add(Me.relationtblUTALeistungen_FK00) Me.relationtblUTATrailer_FK00 = New Global.System.Data.DataRelation("tblUTATrailer_FK00", New Global.System.Data.DataColumn() {Me.tabletblUTAHeader.ErstellDatumUhrzeitColumn, Me.tabletblUTAHeader.ÜbertragungsnummerColumn}, New Global.System.Data.DataColumn() {Me.tabletblUTATrailer.ErstellDatumUhrzeitColumn, Me.tabletblUTATrailer.ÜbertragungsnummerColumn}, false) Me.Relations.Add(Me.relationtblUTATrailer_FK00) Me.relationtblUTATrailerNew_FK00 = New Global.System.Data.DataRelation("tblUTATrailerNew_FK00", New Global.System.Data.DataColumn() {Me.tabletblUTAHeaderNew.ErstellDatumUhrzeitColumn, Me.tabletblUTAHeaderNew.ÜbertragungsnummerColumn}, New Global.System.Data.DataColumn() {Me.tabletblUTATrailerNew.ErstellDatumUhrzeitColumn, Me.tabletblUTATrailerNew.ÜbertragungsnummerColumn}, false) Me.Relations.Add(Me.relationtblUTATrailerNew_FK00) Me.relationVorkosten_FK00 = New Global.System.Data.DataRelation("Vorkosten_FK00", New Global.System.Data.DataColumn() {Me.tableSpeditionsbuch.FilialenNrColumn, Me.tableSpeditionsbuch.AbfertigungsNrColumn, Me.tableSpeditionsbuch.UnterNrColumn}, New Global.System.Data.DataColumn() {Me.tableVorkosten.FilialenNrColumn, Me.tableVorkosten.AbfertigungsNrColumn, Me.tableVorkosten.UnterNrColumn}, false) Me.Relations.Add(Me.relationVorkosten_FK00) Me._relationWährungstabelle_Länderverzeichnis_für_die_AußenhandelsstatistikWährungstabelle = New Global.System.Data.DataRelation("Währungstabelle$Länderverzeichnis für die AußenhandelsstatistikWährungstabelle", New Global.System.Data.DataColumn() {Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandNrColumn}, New Global.System.Data.DataColumn() {Me.tableWährungstabelle.WährungsschlüsselColumn}, false) Me.Relations.Add(Me._relationWährungstabelle_Länderverzeichnis_für_die_AußenhandelsstatistikWährungstabelle) Me.relationzbadz_FK00 = New Global.System.Data.DataRelation("zbadz_FK00", New Global.System.Data.DataColumn() {Me.tablezbant.IDColumn}, New Global.System.Data.DataColumn() {Me.tablezbadz.zbant_IDColumn}, false) Me.Relations.Add(Me.relationzbadz_FK00) Me.relationzbapo_FK00 = New Global.System.Data.DataRelation("zbapo_FK00", New Global.System.Data.DataColumn() {Me.tablezbant.IDColumn}, New Global.System.Data.DataColumn() {Me.tablezbapo.zbant_IDColumn}, false) Me.Relations.Add(Me.relationzbapo_FK00) Me.relationzbpos_FK00 = New Global.System.Data.DataRelation("zbpos_FK00", New Global.System.Data.DataColumn() {Me.tablezbant.IDColumn}, New Global.System.Data.DataColumn() {Me.tablezbpos.zbant_IDColumn}, false) Me.Relations.Add(Me.relationzbpos_FK00) End Sub _ Private Function ShouldSerializeAbfertigungsarten() As Boolean Return false End Function _ Private Function ShouldSerializeAbfertigungskosten_der_Korrespondenten() As Boolean Return false End Function _ Private Function ShouldSerializeAbfertigungsLaender() As Boolean Return false End Function _ Private Function ShouldSerializeAbfertigungsLaenderAbfertigungsarten() As Boolean Return false End Function _ Private Function ShouldSerializeAbgabenarten() As Boolean Return false End Function _ Private Function ShouldSerializeAdressen() As Boolean Return false End Function _ Private Function ShouldSerializeAktivitätenlog() As Boolean Return false End Function _ Private Function ShouldSerializeAnlagen() As Boolean Return false End Function _ Private Function ShouldSerializeatlas_status() As Boolean Return false End Function _ Private Function ShouldSerializeAufschubdaten() As Boolean Return false End Function _ Private Function ShouldSerializeAufschubkonten() As Boolean Return false End Function _ Private Function ShouldSerializeBelegarten() As Boolean Return false End Function _ Private Function ShouldSerializeBerechnungsart() As Boolean Return false End Function _ Private Function ShouldSerializeBerechnungsbogen() As Boolean Return false End Function _ Private Function ShouldSerializeBerichte() As Boolean Return false End Function _ Private Function ShouldSerializeCMR() As Boolean Return false End Function _ Private Function ShouldSerializeDevisenkurse() As Boolean Return false End Function _ Private Function ShouldSerializeEPBes() As Boolean Return false End Function _ Private Function ShouldSerializeEPBesPOS() As Boolean Return false End Function _ Private Function ShouldSerializeFilialen() As Boolean Return false End Function _ Private Function ShouldSerializeGeschäftsarten() As Boolean Return false End Function _ Private Function ShouldSerializeKorrespondenten() As Boolean Return false End Function _ Private Function ShouldSerializeKostenstellen() As Boolean Return false End Function _ Private Function ShouldSerializeKreditkarten() As Boolean Return false End Function _ Private Function ShouldSerializeKunden() As Boolean Return false End Function _ Private Function ShouldSerializeKundenFilialen() As Boolean Return false End Function _ Private Function ShouldSerializeLänder_der_Bundesrepublik_Deutschland() As Boolean Return false End Function _ Private Function ShouldSerializeLänderverzeichnis_für_die_Außenhandelsstatistik() As Boolean Return false End Function _ Private Function ShouldSerializeLeistungen() As Boolean Return false End Function _ Private Function ShouldSerializeLeistungenBUKonten() As Boolean Return false End Function _ Private Function ShouldSerializeLieferbedingungen() As Boolean Return false End Function _ Private Function ShouldSerializeNebenkosten_der_Korrespondenten() As Boolean Return false End Function _ Private Function ShouldSerializeOffene_Posten() As Boolean Return false End Function _ Private Function ShouldSerializeOffene_Posten_DVO() As Boolean Return false End Function _ Private Function ShouldSerializeOfferten() As Boolean Return false End Function _ Private Function ShouldSerializeOffertenpositionen() As Boolean Return false End Function _ Private Function ShouldSerializeOffertenstamm() As Boolean Return false End Function _ Private Function ShouldSerializePersonal() As Boolean Return false End Function _ Private Function ShouldSerializeRechnungsausgang() As Boolean Return false End Function _ Private Function ShouldSerializeRechnungsausgangAnhaenge() As Boolean Return false End Function _ Private Function ShouldSerializeRechnungsausgangPositionen() As Boolean Return false End Function _ Private Function ShouldSerializeRechnungsnummern() As Boolean Return false End Function _ Private Function ShouldSerializeRechnungstexte() As Boolean Return false End Function _ Private Function ShouldSerializeSpeditionsbuch() As Boolean Return false End Function _ Private Function ShouldSerializeStandardofferten() As Boolean Return false End Function _ Private Function ShouldSerializeStandardoffertenFirma() As Boolean Return false End Function _ Private Function ShouldSerializeSteuertabelle() As Boolean Return false End Function _ Private Function ShouldSerializetbl_ASFINAG_FileInfo() As Boolean Return false End Function _ Private Function ShouldSerializetbl_BMD_Länder() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_Paramter() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_A0122_AnmArtUeberfuehrung() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_A0127_BeteiligtenKonstellation() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_C0008_LaenderFull() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_C0010_LaenderAES() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_C0013_UnterlagenArten() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_C0014_VorpapierArten() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_C0141_Zollstellen() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_C0219_TypeTransportMeans() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_I0200_Unterlagearten() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_I0400_Waehrungsliste() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_I0610_ZustaendigeZSTAES() As Boolean Return false End Function _ Private Function ShouldSerializetbl_DY_ZollDE_I0700_Masseinheiten() As Boolean Return false End Function _ Private Function ShouldSerializetbl_Errors() As Boolean Return false End Function _ Private Function ShouldSerializetbl_IDS_Kategorien_Kunden() As Boolean Return false End Function _ Private Function ShouldSerializetbl_IDS_Kategorien_Rechenwerte() As Boolean Return false End Function _ Private Function ShouldSerializetbl_IDS_Kunden() As Boolean Return false End Function _ Private Function ShouldSerializetbl_IDS_Kunden_ohne_Rabatt() As Boolean Return false End Function _ Private Function ShouldSerializetbl_IDS_Länder() As Boolean Return false End Function _ Private Function ShouldSerializetbl_IDS_Produkte() As Boolean Return false End Function _ Private Function ShouldSerializetbl_IDS_Rechenwerte() As Boolean Return false End Function _ Private Function ShouldSerializetbl_IDS_Stationen() As Boolean Return false End Function _ Private Function ShouldSerializetbl_Intrastat_Ausfuhr() As Boolean Return false End Function _ Private Function ShouldSerializetbl_Telefonbuch() As Boolean Return false End Function _ Private Function ShouldSerializetbl_Telefonnummern() As Boolean Return false End Function _ Private Function ShouldSerializetbl_WÖLFL() As Boolean Return false End Function _ Private Function ShouldSerializetbl_ZM_tabelle() As Boolean Return false End Function _ Private Function ShouldSerializetblAbfertigungsartenFiliale() As Boolean Return false End Function _ Private Function ShouldSerializetblAbfertigungsartOffertenstamm() As Boolean Return false End Function _ Private Function ShouldSerializetblAbrechnung_NCTSBrg() As Boolean Return false End Function _ Private Function ShouldSerializetblAnmeldung() As Boolean Return false End Function _ Private Function ShouldSerializetblAsfinagMaut() As Boolean Return false End Function _ Private Function ShouldSerializetblATEZ_NCTS() As Boolean Return false End Function _ Private Function ShouldSerializetblATEZ_NCTS_Routen() As Boolean Return false End Function _ Private Function ShouldSerializetblATEZ_NCTS_Sessions() As Boolean Return false End Function _ Private Function ShouldSerializetblATEZ_NCTS_TransitCustomsOffice() As Boolean Return false End Function _ Private Function ShouldSerializetblBankspesen() As Boolean Return false End Function _ Private Function ShouldSerializetblBerechnungsmethode() As Boolean Return false End Function _ Private Function ShouldSerializetblBerichtsdrucker() As Boolean Return false End Function _ Private Function ShouldSerializetblBesuchsberichte() As Boolean Return false End Function _ Private Function ShouldSerializetblBonitaetsauskunft() As Boolean Return false End Function _ Private Function ShouldSerializetblBuchungstext() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_AES() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_AES_Warenposition() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_AES_WarenpositionPackstuecke() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_AES_WarenpositionUnterlagen() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_EZA() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_EZA_Adressen() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_EZA_Aufschub() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_EZA_BEAnteilZLAVUV() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_EZA_SumABeendigungsAnteil() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_EZA_Unterlagen() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_EZA_Warenposition() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_EZA_WarenpositionSonderfalldaten() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_EZA_WarenpositionUnterlagen() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_EZA_WarenpositionVerbrauchssteuer() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut_Sicherheitsangaben() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut_Warenposition() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut_WarenpositionPackstuecke() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut004() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut004_Guarantee() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut004_HouseConsignment() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_NCTSOut004_TransportEquipment() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_Stammreferenzen() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_Statusmeldungen() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_Zollanmeldungen() As Boolean Return false End Function _ Private Function ShouldSerializetblDakosy_ZollanmeldungenArten() As Boolean Return false End Function _ Private Function ShouldSerializetblDatenarchiv() As Boolean Return false End Function _ Private Function ShouldSerializetblDatenarchiv_Collection() As Boolean Return false End Function _ Private Function ShouldSerializetblDEBundeslaenderPLZ() As Boolean Return false End Function _ Private Function ShouldSerializetblDHF_Anhaenge() As Boolean Return false End Function _ Private Function ShouldSerializetblDieselArchiv() As Boolean Return false End Function _ Private Function ShouldSerializetblDigicust_Sendungen() As Boolean Return false End Function _ Private Function ShouldSerializetblDigicust_Sessions() As Boolean Return false End Function _ Private Function ShouldSerializetblDigicust_Settings() As Boolean Return false End Function _ Private Function ShouldSerializetblEABelegnummer() As Boolean Return false End Function _ Private Function ShouldSerializetblEABelegposition() As Boolean Return false End Function _ Private Function ShouldSerializetblEmailBenachrichtigung() As Boolean Return false End Function _ Private Function ShouldSerializetblEmailBenachrichtigungArten() As Boolean Return false End Function _ Private Function ShouldSerializetblEORIPruefung() As Boolean Return false End Function _ Private Function ShouldSerializetblEZB_Waehrungskurse() As Boolean Return false End Function _ Private Function ShouldSerializetblEZT_Importcodenummern() As Boolean Return false End Function _ Private Function ShouldSerializetblFahrerDaten() As Boolean Return false End Function _ Private Function ShouldSerializetblFirma() As Boolean Return false End Function _ Private Function ShouldSerializetblFiskal_Daten() As Boolean Return false End Function _ Private Function ShouldSerializetblFiskalkunden() As Boolean Return false End Function _ Private Function ShouldSerializetblFormulardaten() As Boolean Return false End Function _ Private Function ShouldSerializetblFormulareVorlagen() As Boolean Return false End Function _ Private Function ShouldSerializetblFormulareVorlagenValues() As Boolean Return false End Function _ Private Function ShouldSerializetblFremdSpeditionenZuordnung() As Boolean Return false End Function _ Private Function ShouldSerializetblFTP_Log() As Boolean Return false End Function _ Private Function ShouldSerializetblFTP_Log_Backup2() As Boolean Return false End Function _ Private Function ShouldSerializetblGebuehrenvermarktungsnormen() As Boolean Return false End Function _ Private Function ShouldSerializetblGelangensbestaetigung() As Boolean Return false End Function _ Private Function ShouldSerializetblGeschäftsjahr() As Boolean Return false End Function _ Private Function ShouldSerializetblGeschäftsjahrBelegNr() As Boolean Return false End Function _ Private Function ShouldSerializetblGeschäftsjahrJournalNr() As Boolean Return false End Function _ Private Function ShouldSerializetblGestellungsgarantien() As Boolean Return false End Function _ Private Function ShouldSerializetblGestellungsmitteilung() As Boolean Return false End Function _ Private Function ShouldSerializetblGestellungsmitteilung_Positionen() As Boolean Return false End Function _ Private Function ShouldSerializetblGOBOXBestellungen() As Boolean Return false End Function _ Private Function ShouldSerializetblGVMS() As Boolean Return false End Function _ Private Function ShouldSerializetblGVMS_Carriers() As Boolean Return false End Function _ Private Function ShouldSerializetblGVMS_Ports() As Boolean Return false End Function _ Private Function ShouldSerializetblGVMS_Pos() As Boolean Return false End Function _ Private Function ShouldSerializetblGVMS_Routes() As Boolean Return false End Function _ Private Function ShouldSerializetblHandlingssaetzeIntern() As Boolean Return false End Function _ Private Function ShouldSerializetblHistorie() As Boolean Return false End Function _ Private Function ShouldSerializetblIDS_Transaktionen() As Boolean Return false End Function _ Private Function ShouldSerializetblKassenbuch() As Boolean Return false End Function _ Private Function ShouldSerializetblKonto() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenAufschubkonten() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenBesonderheiten() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenBesonderheiten_Kategorien() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenDatenblatt() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenErweitert() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenKontakt() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenKontaktArten() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenumsatz() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenVermerke() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenVertraege() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenVertraegeArten() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenVollmachten() As Boolean Return false End Function _ Private Function ShouldSerializetblKundenVollmachtenArt() As Boolean Return false End Function _ Private Function ShouldSerializetblLogbuch() As Boolean Return false End Function _ Private Function ShouldSerializetblMandant() As Boolean Return false End Function _ Private Function ShouldSerializetblMautIT_Belegarten() As Boolean Return false End Function _ Private Function ShouldSerializetblMautITArchiv() As Boolean Return false End Function _ Private Function ShouldSerializetblMDM_Paramter() As Boolean Return false End Function _ Private Function ShouldSerializetblMSECustomers() As Boolean Return false End Function _ Private Function ShouldSerializetblMSEImport() As Boolean Return false End Function _ Private Function ShouldSerializetblMSEInvoices() As Boolean Return false End Function _ Private Function ShouldSerializetblMSELeistungen() As Boolean Return false End Function _ Private Function ShouldSerializetblMSESettlements() As Boolean Return false End Function _ Private Function ShouldSerializetblMSETransactions() As Boolean Return false End Function _ Private Function ShouldSerializetblMSETransactionsArchiv() As Boolean Return false End Function _ Private Function ShouldSerializetblMSETransactionsArchivOLD() As Boolean Return false End Function _ Private Function ShouldSerializetblNCTS_TR() As Boolean Return false End Function _ Private Function ShouldSerializetblNCTS_TR_Nachrichten() As Boolean Return false End Function _ Private Function ShouldSerializetblNCTS_TR_Sicherheitsangaben() As Boolean Return false End Function _ Private Function ShouldSerializetblNCTS_TR_Warenposition() As Boolean Return false End Function _ Private Function ShouldSerializetblNCTS_TR_WarenpositionPackstuecke() As Boolean Return false End Function _ Private Function ShouldSerializetblNCTSGestellungsadressen() As Boolean Return false End Function _ Private Function ShouldSerializetblNTCSRouten() As Boolean Return false End Function _ Private Function ShouldSerializetblOffertenArchiv() As Boolean Return false End Function _ Private Function ShouldSerializetblOffertenPositionenArchiv() As Boolean Return false End Function _ Private Function ShouldSerializetblOregonNCTS_DeclarationData() As Boolean Return false End Function _ Private Function ShouldSerializetblOregonNCTS_Declarations_AdditionalCodesAttribute() As Boolean Return false End Function _ Private Function ShouldSerializetblOregonNCTS_Declarations_DocumentsAttribute() As Boolean Return false End Function _ Private Function ShouldSerializetblOregonNCTS_Declarations_GoodsAttribute() As Boolean Return false End Function _ Private Function ShouldSerializetblOregonNCTS_Declarations_PacksAttribute() As Boolean Return false End Function _ Private Function ShouldSerializetblOregonNCTS_Declarations_PartiesAttribute() As Boolean Return false End Function _ Private Function ShouldSerializetblOregonNCTS_Declarations_ProducedDocumentsAttribute() As Boolean Return false End Function _ Private Function ShouldSerializetblOregonNCTS_Declarations_TraderAdditionsAttribute() As Boolean Return false End Function _ Private Function ShouldSerializetblOregonNCTS_ReferenceTemplate() As Boolean Return false End Function _ Private Function ShouldSerializetblOriginalATR() As Boolean Return false End Function _ Private Function ShouldSerializetblPartnersystem_Paramter() As Boolean Return false End Function _ Private Function ShouldSerializetblPfad() As Boolean Return false End Function _ Private Function ShouldSerializetblPLOSE_Details() As Boolean Return false End Function _ Private Function ShouldSerializetblPLOSE_Inv_Data() As Boolean Return false End Function _ Private Function ShouldSerializetblPLOSE_Lieferant() As Boolean Return false End Function _ Private Function ShouldSerializetblPLOSE_Produktbeschreibung() As Boolean Return false End Function _ Private Function ShouldSerializetblPosNr() As Boolean Return false End Function _ Private Function ShouldSerializetblPostversand() As Boolean Return false End Function _ Private Function ShouldSerializetblPreislisten() As Boolean Return false End Function _ Private Function ShouldSerializetblPreislistenpositionen() As Boolean Return false End Function _ Private Function ShouldSerializetblPreistabellen() As Boolean Return false End Function _ Private Function ShouldSerializetblPreistabellenpositionen() As Boolean Return false End Function _ Private Function ShouldSerializetblQS_Abfertigungsarten() As Boolean Return false End Function _ Private Function ShouldSerializetblQS_Aufträge() As Boolean Return false End Function _ Private Function ShouldSerializetblQS_Auftragspositionen() As Boolean Return false End Function _ Private Function ShouldSerializetblQS_Teams() As Boolean Return false End Function _ Private Function ShouldSerializetblQS_TeamsMA() As Boolean Return false End Function _ Private Function ShouldSerializetblRechnungsnotizen() As Boolean Return false End Function _ Private Function ShouldSerializetblRef() As Boolean Return false End Function _ Private Function ShouldSerializetblRefBeziehungen() As Boolean Return false End Function _ Private Function ShouldSerializetblRKSV_Kassen() As Boolean Return false End Function _ Private Function ShouldSerializetblRKSV_POS() As Boolean Return false End Function _ Private Function ShouldSerializetblRMCImport() As Boolean Return false End Function _ Private Function ShouldSerializetblSMS() As Boolean Return false End Function _ Private Function ShouldSerializetblSpeditionsbucharchiv() As Boolean Return false End Function _ Private Function ShouldSerializetblSpeditionsbuchEndEmpfaenger() As Boolean Return false End Function _ Private Function ShouldSerializetblSpeditionsbuchUnterPos() As Boolean Return false End Function _ Private Function ShouldSerializetblSpeditionsbuchUnterPosArten() As Boolean Return false End Function _ Private Function ShouldSerializetblSteuernummern() As Boolean Return false End Function _ Private Function ShouldSerializetblSteuersätze() As Boolean Return false End Function _ Private Function ShouldSerializetblSteuertyp() As Boolean Return false End Function _ Private Function ShouldSerializetblTelotec_Abgaben() As Boolean Return false End Function _ Private Function ShouldSerializetblTelotec_Anmeldung() As Boolean Return false End Function _ Private Function ShouldSerializetblTelotec_Packstuecke() As Boolean Return false End Function _ Private Function ShouldSerializetblTelotec_Paramter() As Boolean Return false End Function _ Private Function ShouldSerializetblTelotec_Positionsdaten() As Boolean Return false End Function _ Private Function ShouldSerializetblTelotec_PositionsdatenAbgaben() As Boolean Return false End Function _ Private Function ShouldSerializetblTelotec_PositionsdatenDokumente() As Boolean Return false End Function _ Private Function ShouldSerializetblTelotec_Sicherheit() As Boolean Return false End Function _ Private Function ShouldSerializetblTest() As Boolean Return false End Function _ Private Function ShouldSerializetblTextkonserve() As Boolean Return false End Function _ Private Function ShouldSerializetblTR_Aviso() As Boolean Return false End Function _ Private Function ShouldSerializetblTR_AvisoAnheange() As Boolean Return false End Function _ Private Function ShouldSerializetblTR_Shipment() As Boolean Return false End Function _ Private Function ShouldSerializetblTR_Shipment_Adressen() As Boolean Return false End Function _ Private Function ShouldSerializetblTR_Shipment_Document() As Boolean Return false End Function _ Private Function ShouldSerializetblTR_Shipment_Position() As Boolean Return false End Function _ Private Function ShouldSerializetblTR_Shipment_Position_Document() As Boolean Return false End Function _ Private Function ShouldSerializetblTranslate() As Boolean Return false End Function _ Private Function ShouldSerializetblTranslateAuto() As Boolean Return false End Function _ Private Function ShouldSerializetblTrdinHeader() As Boolean Return false End Function _ Private Function ShouldSerializetblTrdinInvoice() As Boolean Return false End Function _ Private Function ShouldSerializetblTrdinProduct() As Boolean Return false End Function _ Private Function ShouldSerializetblUIDPruefung() As Boolean Return false End Function _ Private Function ShouldSerializetblUStVAntrag() As Boolean Return false End Function _ Private Function ShouldSerializetblUStVBelegeingang() As Boolean Return false End Function _ Private Function ShouldSerializetblUStVErstattung() As Boolean Return false End Function _ Private Function ShouldSerializetblUStVFormulare() As Boolean Return false End Function _ Private Function ShouldSerializetblUStVKuLäFo() As Boolean Return false End Function _ Private Function ShouldSerializetblUStVLäFo() As Boolean Return false End Function _ Private Function ShouldSerializetblUStVLeistender() As Boolean Return false End Function _ Private Function ShouldSerializetblUStVPositionen() As Boolean Return false End Function _ Private Function ShouldSerializetblUStVTexte() As Boolean Return false End Function _ Private Function ShouldSerializetblUTAArchiv() As Boolean Return false End Function _ Private Function ShouldSerializetblUTAFakturierwarenarten() As Boolean Return false End Function _ Private Function ShouldSerializetblUTAHeader() As Boolean Return false End Function _ Private Function ShouldSerializetblUTAHeaderNew() As Boolean Return false End Function _ Private Function ShouldSerializetblUTAImport() As Boolean Return false End Function _ Private Function ShouldSerializetblUTAImportNew() As Boolean Return false End Function _ Private Function ShouldSerializetblUTALeistungen() As Boolean Return false End Function _ Private Function ShouldSerializetblUTATrailer() As Boolean Return false End Function _ Private Function ShouldSerializetblUTATrailerNew() As Boolean Return false End Function _ Private Function ShouldSerializetblVermarktungsnormen() As Boolean Return false End Function _ Private Function ShouldSerializetblVermarktungsnormenGebuehren() As Boolean Return false End Function _ Private Function ShouldSerializetblVorauskassen() As Boolean Return false End Function _ Private Function ShouldSerializetblWahrungtabelleNEU() As Boolean Return false End Function _ Private Function ShouldSerializetblWarenbezeichnungBegriffe() As Boolean Return false End Function _ Private Function ShouldSerializetblZabis_Atlas_NCTS() As Boolean Return false End Function _ Private Function ShouldSerializetblZahlungszieltexte() As Boolean Return false End Function _ Private Function ShouldSerializetblZolaris_EZoll_NCTS() As Boolean Return false End Function _ Private Function ShouldSerializetblZOLL_Wechselkurse() As Boolean Return false End Function _ Private Function ShouldSerializetblZollArtikel() As Boolean Return false End Function _ Private Function ShouldSerializetblZollUnterArtikel() As Boolean Return false End Function _ Private Function ShouldSerializeTemporaryUpsizedTable2() As Boolean Return false End Function _ Private Function ShouldSerializeVerkehrszweige() As Boolean Return false End Function _ Private Function ShouldSerializeVermerke() As Boolean Return false End Function _ Private Function ShouldSerializeVorkosten() As Boolean Return false End Function _ Private Function ShouldSerializeWährungstabelle() As Boolean Return false End Function _ Private Function ShouldSerializeZahlungsarten() As Boolean Return false End Function _ Private Function ShouldSerializezbadz() As Boolean Return false End Function _ Private Function ShouldSerializezbant() As Boolean Return false End Function _ Private Function ShouldSerializezbapo() As Boolean Return false End Function _ Private Function ShouldSerializezbpos() As Boolean Return false End Function _ Private Function ShouldSerializeZkteing() As Boolean Return false End Function _ Private Function ShouldSerializeZollsysteme() As Boolean Return false End Function _ Private Function ShouldSerializeZulassungen_ZnV() As Boolean Return false End Function _ Private Function ShouldSerializevwKundenstamm() As Boolean Return false End Function _ Private Function ShouldSerializevwReErfAuswahl() As Boolean Return false End Function _ Private Function ShouldSerializevwTrdinHeader() As Boolean Return false End Function _ Private Function ShouldSerializevwTrdinInvoice() As Boolean Return false End Function _ Private Function ShouldSerializevwTrdinProduct() As Boolean Return false End Function _ Private Function ShouldSerializevwUStV_OP_Risikobericht() As Boolean Return false End Function _ Private Function ShouldSerializevwUStVAntrag() As Boolean Return false End Function _ Private Function ShouldSerializevwUStVBelegeingang() As Boolean Return false End Function _ Private Function ShouldSerializevwUStVErstattung() As Boolean Return false End Function _ Private Function ShouldSerializevwUStVPositionen() As Boolean Return false End Function _ Private Function ShouldSerializevwUStVVorauszahlung() As Boolean Return false End Function _ Private Function ShouldSerializevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1() As Boolean Return false End Function _ Private Function ShouldSerializevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new() As Boolean Return false End Function _ Private Function ShouldSerializevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2() As Boolean Return false End Function _ Private Function ShouldSerializevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new() As Boolean Return false End Function _ Private Function ShouldSerializespAlleTabellen() As Boolean Return false End Function _ Private Function ShouldSerializespReDruReNrVergeben() As Boolean Return false End Function _ Private Function ShouldSerializespReDruSchnSaReDruckinfoEintragen() As Boolean Return false End Function _ Private Function ShouldSerializespReDruSchnSaReNrEintragen() As Boolean Return false End Function _ Private Function ShouldSerializespReverseChargeSumme() As Boolean Return false End Function _ Private Function ShouldSerializespSELECT_Bankspesen_für_KundenNr() As Boolean Return false End Function _ Private Function ShouldSerializespSELECT_tblZabis_Atlas_NCTS() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTAufschubdaten() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTRechnungsausgang() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTRechnungsausgangPositionen() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTRechnungsnummern() As Boolean Return false End Function _ Private Function ShouldSerializespSelectReDruSaReRKAvisoID() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTReDruSaReRKgruppieren() As Boolean Return false End Function _ Private Function ShouldSerializespSelectReDruSchnBB_RK() As Boolean Return false End Function _ Private Function ShouldSerializespSelectReDruSchnKunde() As Boolean Return false End Function _ Private Function ShouldSerializespSelectReDruSchnSumBS415() As Boolean Return false End Function _ Private Function ShouldSerializespSelectReDruSchnTextZollbelegePrüfen() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTReDruSumReGu() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTReDruText() As Boolean Return false End Function _ Private Function ShouldSerializespSelectReErfAuswahl() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTReErfKA() As Boolean Return false End Function _ Private Function ShouldSerializespSelectRK() As Boolean Return false End Function _ Private Function ShouldSerializespSelectRKPKey() As Boolean Return false End Function _ Private Function ShouldSerializespSelectRP() As Boolean Return false End Function _ Private Function ShouldSerializespSelectRPFKeyRK() As Boolean Return false End Function _ Private Function ShouldSerializespSelectRPPKey() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblAnmeldungPKey() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblQS_Abfertigungsarten() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblQS_Aufträge() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblQS_Auftragspositionen() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblTrdinHeader() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblTrdinInvoice() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblTrdinProduct() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblUStVAntrag() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblUStVBelegeingang() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblUStVErstattung() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblUStVPositionen() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTtblZolaris_EZoll_NCTS() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTUStVErstattungsschreiben() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTUStVErstattungsschreiben2() As Boolean Return false End Function _ Private Function ShouldSerializespSELECTZkteing() As Boolean Return false End Function _ Private Function ShouldSerializespTrdinFiBuSelectInvoice() As Boolean Return false End Function _ Private Function ShouldSerializespTrdinFiBuSelectProduct() As Boolean Return false End Function _ Private Function ShouldSerializespTrdinSchreibenSelectInvoicePKey() As Boolean Return false End Function _ Private Function ShouldSerializespTrdinSchreibenSelectProductFKeyInvoice() As Boolean Return false End Function _ Private Function ShouldSerializespTrdinSchreibenSelectProductPKey() As Boolean Return false End Function _ Private Function ShouldSerializespUStVAntragLesenParameterPKey() As Boolean Return false End Function _ Private Function ShouldSerializespUStVBelegeingangLesenParameterPKey() As Boolean Return false End Function _ Private Function ShouldSerializespUStVErstattungLesenParameterPKey() As Boolean Return false End Function _ Private Function ShouldSerializespUStVPositionenLesenParameterPKey() As Boolean Return false End Function _ Private Function ShouldSerializespUStVRechnungÜbernehmenMSE() As Boolean Return false End Function _ Private Function ShouldSerializespUStVVorschau_IDS_Summe() As Boolean Return false End Function _ Private Function ShouldSerializespUStVVorschau_IT_Summe() As Boolean Return false End Function _ Private Function ShouldSerializespUStVVorschau_MSE_Summe() As Boolean Return false End Function _ Private Function ShouldSerializespUStVVorschau_UTA_Summe() As Boolean Return false End Function _ Private Function ShouldSerializespUStVVorschau_VERAG_Summe() As Boolean Return false End Function _ Private Function ShouldSerializespZolaris_EZoll_NCTS_Datenbereitstellung() 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 VERAGDataSet = New VERAGDataSet() 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 AbfertigungsartenRowChangeEventHandler(ByVal sender As Object, ByVal e As AbfertigungsartenRowChangeEvent) _ Public Delegate Sub Abfertigungskosten_der_KorrespondentenRowChangeEventHandler(ByVal sender As Object, ByVal e As Abfertigungskosten_der_KorrespondentenRowChangeEvent) _ Public Delegate Sub AbfertigungsLaenderRowChangeEventHandler(ByVal sender As Object, ByVal e As AbfertigungsLaenderRowChangeEvent) _ Public Delegate Sub AbfertigungsLaenderAbfertigungsartenRowChangeEventHandler(ByVal sender As Object, ByVal e As AbfertigungsLaenderAbfertigungsartenRowChangeEvent) _ Public Delegate Sub AbgabenartenRowChangeEventHandler(ByVal sender As Object, ByVal e As AbgabenartenRowChangeEvent) _ Public Delegate Sub AdressenRowChangeEventHandler(ByVal sender As Object, ByVal e As AdressenRowChangeEvent) _ Public Delegate Sub AktivitätenlogRowChangeEventHandler(ByVal sender As Object, ByVal e As AktivitätenlogRowChangeEvent) _ Public Delegate Sub AnlagenRowChangeEventHandler(ByVal sender As Object, ByVal e As AnlagenRowChangeEvent) _ Public Delegate Sub atlas_statusRowChangeEventHandler(ByVal sender As Object, ByVal e As atlas_statusRowChangeEvent) _ Public Delegate Sub AufschubdatenRowChangeEventHandler(ByVal sender As Object, ByVal e As AufschubdatenRowChangeEvent) _ Public Delegate Sub AufschubkontenRowChangeEventHandler(ByVal sender As Object, ByVal e As AufschubkontenRowChangeEvent) _ Public Delegate Sub BelegartenRowChangeEventHandler(ByVal sender As Object, ByVal e As BelegartenRowChangeEvent) _ Public Delegate Sub BerechnungsartRowChangeEventHandler(ByVal sender As Object, ByVal e As BerechnungsartRowChangeEvent) _ Public Delegate Sub BerechnungsbogenRowChangeEventHandler(ByVal sender As Object, ByVal e As BerechnungsbogenRowChangeEvent) _ Public Delegate Sub BerichteRowChangeEventHandler(ByVal sender As Object, ByVal e As BerichteRowChangeEvent) _ Public Delegate Sub CMRRowChangeEventHandler(ByVal sender As Object, ByVal e As CMRRowChangeEvent) _ Public Delegate Sub DevisenkurseRowChangeEventHandler(ByVal sender As Object, ByVal e As DevisenkurseRowChangeEvent) _ Public Delegate Sub EPBesRowChangeEventHandler(ByVal sender As Object, ByVal e As EPBesRowChangeEvent) _ Public Delegate Sub EPBesPOSRowChangeEventHandler(ByVal sender As Object, ByVal e As EPBesPOSRowChangeEvent) _ Public Delegate Sub FilialenRowChangeEventHandler(ByVal sender As Object, ByVal e As FilialenRowChangeEvent) _ Public Delegate Sub GeschäftsartenRowChangeEventHandler(ByVal sender As Object, ByVal e As GeschäftsartenRowChangeEvent) _ Public Delegate Sub KorrespondentenRowChangeEventHandler(ByVal sender As Object, ByVal e As KorrespondentenRowChangeEvent) _ Public Delegate Sub KostenstellenRowChangeEventHandler(ByVal sender As Object, ByVal e As KostenstellenRowChangeEvent) _ Public Delegate Sub KreditkartenRowChangeEventHandler(ByVal sender As Object, ByVal e As KreditkartenRowChangeEvent) _ Public Delegate Sub KundenRowChangeEventHandler(ByVal sender As Object, ByVal e As KundenRowChangeEvent) _ Public Delegate Sub KundenFilialenRowChangeEventHandler(ByVal sender As Object, ByVal e As KundenFilialenRowChangeEvent) _ Public Delegate Sub Länder_der_Bundesrepublik_DeutschlandRowChangeEventHandler(ByVal sender As Object, ByVal e As Länder_der_Bundesrepublik_DeutschlandRowChangeEvent) _ Public Delegate Sub Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEventHandler(ByVal sender As Object, ByVal e As Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEvent) _ Public Delegate Sub LeistungenRowChangeEventHandler(ByVal sender As Object, ByVal e As LeistungenRowChangeEvent) _ Public Delegate Sub LeistungenBUKontenRowChangeEventHandler(ByVal sender As Object, ByVal e As LeistungenBUKontenRowChangeEvent) _ Public Delegate Sub LieferbedingungenRowChangeEventHandler(ByVal sender As Object, ByVal e As LieferbedingungenRowChangeEvent) _ Public Delegate Sub Nebenkosten_der_KorrespondentenRowChangeEventHandler(ByVal sender As Object, ByVal e As Nebenkosten_der_KorrespondentenRowChangeEvent) _ Public Delegate Sub Offene_PostenRowChangeEventHandler(ByVal sender As Object, ByVal e As Offene_PostenRowChangeEvent) _ Public Delegate Sub Offene_Posten_DVORowChangeEventHandler(ByVal sender As Object, ByVal e As Offene_Posten_DVORowChangeEvent) _ Public Delegate Sub OffertenRowChangeEventHandler(ByVal sender As Object, ByVal e As OffertenRowChangeEvent) _ Public Delegate Sub OffertenpositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As OffertenpositionenRowChangeEvent) _ Public Delegate Sub OffertenstammRowChangeEventHandler(ByVal sender As Object, ByVal e As OffertenstammRowChangeEvent) _ Public Delegate Sub PersonalRowChangeEventHandler(ByVal sender As Object, ByVal e As PersonalRowChangeEvent) _ Public Delegate Sub RechnungsausgangRowChangeEventHandler(ByVal sender As Object, ByVal e As RechnungsausgangRowChangeEvent) _ Public Delegate Sub RechnungsausgangAnhaengeRowChangeEventHandler(ByVal sender As Object, ByVal e As RechnungsausgangAnhaengeRowChangeEvent) _ Public Delegate Sub RechnungsausgangPositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As RechnungsausgangPositionenRowChangeEvent) _ Public Delegate Sub RechnungsnummernRowChangeEventHandler(ByVal sender As Object, ByVal e As RechnungsnummernRowChangeEvent) _ Public Delegate Sub RechnungstexteRowChangeEventHandler(ByVal sender As Object, ByVal e As RechnungstexteRowChangeEvent) _ Public Delegate Sub SpeditionsbuchRowChangeEventHandler(ByVal sender As Object, ByVal e As SpeditionsbuchRowChangeEvent) _ Public Delegate Sub StandardoffertenRowChangeEventHandler(ByVal sender As Object, ByVal e As StandardoffertenRowChangeEvent) _ Public Delegate Sub StandardoffertenFirmaRowChangeEventHandler(ByVal sender As Object, ByVal e As StandardoffertenFirmaRowChangeEvent) _ Public Delegate Sub SteuertabelleRowChangeEventHandler(ByVal sender As Object, ByVal e As SteuertabelleRowChangeEvent) _ Public Delegate Sub tbl_ASFINAG_FileInfoRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ASFINAG_FileInfoRowChangeEvent) _ Public Delegate Sub tbl_BMD_LänderRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_BMD_LänderRowChangeEvent) _ Public Delegate Sub tbl_DY_ParamterRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ParamterRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_C0008_LaenderFullRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_C0008_LaenderFullRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_C0010_LaenderAESRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_C0010_LaenderAESRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_C0141_ZollstellenRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_C0141_ZollstellenRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEvent) _ Public Delegate Sub tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEvent) _ Public Delegate Sub tbl_ErrorsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ErrorsRowChangeEvent) _ Public Delegate Sub tbl_IDS_Kategorien_KundenRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_IDS_Kategorien_KundenRowChangeEvent) _ Public Delegate Sub tbl_IDS_Kategorien_RechenwerteRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_IDS_Kategorien_RechenwerteRowChangeEvent) _ Public Delegate Sub tbl_IDS_KundenRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_IDS_KundenRowChangeEvent) _ Public Delegate Sub tbl_IDS_Kunden_ohne_RabattRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_IDS_Kunden_ohne_RabattRowChangeEvent) _ Public Delegate Sub tbl_IDS_LänderRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_IDS_LänderRowChangeEvent) _ Public Delegate Sub tbl_IDS_ProdukteRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_IDS_ProdukteRowChangeEvent) _ Public Delegate Sub tbl_IDS_RechenwerteRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_IDS_RechenwerteRowChangeEvent) _ Public Delegate Sub tbl_IDS_StationenRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_IDS_StationenRowChangeEvent) _ Public Delegate Sub tbl_Intrastat_AusfuhrRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Intrastat_AusfuhrRowChangeEvent) _ Public Delegate Sub tbl_TelefonbuchRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_TelefonbuchRowChangeEvent) _ Public Delegate Sub tbl_TelefonnummernRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_TelefonnummernRowChangeEvent) _ Public Delegate Sub tbl_WÖLFLRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_WÖLFLRowChangeEvent) _ Public Delegate Sub tbl_ZM_tabelleRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ZM_tabelleRowChangeEvent) _ Public Delegate Sub tblAbfertigungsartenFilialeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblAbfertigungsartenFilialeRowChangeEvent) _ Public Delegate Sub tblAbfertigungsartOffertenstammRowChangeEventHandler(ByVal sender As Object, ByVal e As tblAbfertigungsartOffertenstammRowChangeEvent) _ Public Delegate Sub tblAbrechnung_NCTSBrgRowChangeEventHandler(ByVal sender As Object, ByVal e As tblAbrechnung_NCTSBrgRowChangeEvent) _ Public Delegate Sub tblAnmeldungRowChangeEventHandler(ByVal sender As Object, ByVal e As tblAnmeldungRowChangeEvent) _ Public Delegate Sub tblAsfinagMautRowChangeEventHandler(ByVal sender As Object, ByVal e As tblAsfinagMautRowChangeEvent) _ Public Delegate Sub tblATEZ_NCTSRowChangeEventHandler(ByVal sender As Object, ByVal e As tblATEZ_NCTSRowChangeEvent) _ Public Delegate Sub tblATEZ_NCTS_RoutenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblATEZ_NCTS_RoutenRowChangeEvent) _ Public Delegate Sub tblATEZ_NCTS_SessionsRowChangeEventHandler(ByVal sender As Object, ByVal e As tblATEZ_NCTS_SessionsRowChangeEvent) _ Public Delegate Sub tblATEZ_NCTS_TransitCustomsOfficeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblATEZ_NCTS_TransitCustomsOfficeRowChangeEvent) _ Public Delegate Sub tblBankspesenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblBankspesenRowChangeEvent) _ Public Delegate Sub tblBerechnungsmethodeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblBerechnungsmethodeRowChangeEvent) _ Public Delegate Sub tblBerichtsdruckerRowChangeEventHandler(ByVal sender As Object, ByVal e As tblBerichtsdruckerRowChangeEvent) _ Public Delegate Sub tblBesuchsberichteRowChangeEventHandler(ByVal sender As Object, ByVal e As tblBesuchsberichteRowChangeEvent) _ Public Delegate Sub tblBonitaetsauskunftRowChangeEventHandler(ByVal sender As Object, ByVal e As tblBonitaetsauskunftRowChangeEvent) _ Public Delegate Sub tblBuchungstextRowChangeEventHandler(ByVal sender As Object, ByVal e As tblBuchungstextRowChangeEvent) _ Public Delegate Sub tblDakosy_AESRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_AESRowChangeEvent) _ Public Delegate Sub tblDakosy_AES_WarenpositionRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_AES_WarenpositionRowChangeEvent) _ Public Delegate Sub tblDakosy_AES_WarenpositionPackstueckeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_AES_WarenpositionPackstueckeRowChangeEvent) _ Public Delegate Sub tblDakosy_AES_WarenpositionUnterlagenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_AES_WarenpositionUnterlagenRowChangeEvent) _ Public Delegate Sub tblDakosy_EZARowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_EZARowChangeEvent) _ Public Delegate Sub tblDakosy_EZA_AdressenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_EZA_AdressenRowChangeEvent) _ Public Delegate Sub tblDakosy_EZA_AufschubRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_EZA_AufschubRowChangeEvent) _ Public Delegate Sub tblDakosy_EZA_BEAnteilZLAVUVRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_EZA_BEAnteilZLAVUVRowChangeEvent) _ Public Delegate Sub tblDakosy_EZA_SumABeendigungsAnteilRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_EZA_SumABeendigungsAnteilRowChangeEvent) _ Public Delegate Sub tblDakosy_EZA_UnterlagenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_EZA_UnterlagenRowChangeEvent) _ Public Delegate Sub tblDakosy_EZA_WarenpositionRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_EZA_WarenpositionRowChangeEvent) _ Public Delegate Sub tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEvent) _ Public Delegate Sub tblDakosy_EZA_WarenpositionUnterlagenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_EZA_WarenpositionUnterlagenRowChangeEvent) _ Public Delegate Sub tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOutRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOutRowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOut_SicherheitsangabenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOut_SicherheitsangabenRowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOut_WarenpositionRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOut_WarenpositionRowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOut004RowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOut004RowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOut004_GuaranteeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOut004_GuaranteeRowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOut004_HouseConsignmentRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOut004_HouseConsignmentRowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEvent) _ Public Delegate Sub tblDakosy_NCTSOut004_TransportEquipmentRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_NCTSOut004_TransportEquipmentRowChangeEvent) _ Public Delegate Sub tblDakosy_StammreferenzenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_StammreferenzenRowChangeEvent) _ Public Delegate Sub tblDakosy_StatusmeldungenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_StatusmeldungenRowChangeEvent) _ Public Delegate Sub tblDakosy_ZollanmeldungenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_ZollanmeldungenRowChangeEvent) _ Public Delegate Sub tblDakosy_ZollanmeldungenArtenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDakosy_ZollanmeldungenArtenRowChangeEvent) _ Public Delegate Sub tblDatenarchivRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDatenarchivRowChangeEvent) _ Public Delegate Sub tblDatenarchiv_CollectionRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDatenarchiv_CollectionRowChangeEvent) _ Public Delegate Sub tblDEBundeslaenderPLZRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDEBundeslaenderPLZRowChangeEvent) _ Public Delegate Sub tblDHF_AnhaengeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDHF_AnhaengeRowChangeEvent) _ Public Delegate Sub tblDieselArchivRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDieselArchivRowChangeEvent) _ Public Delegate Sub tblDigicust_SendungenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDigicust_SendungenRowChangeEvent) _ Public Delegate Sub tblDigicust_SessionsRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDigicust_SessionsRowChangeEvent) _ Public Delegate Sub tblDigicust_SettingsRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDigicust_SettingsRowChangeEvent) _ Public Delegate Sub tblEABelegnummerRowChangeEventHandler(ByVal sender As Object, ByVal e As tblEABelegnummerRowChangeEvent) _ Public Delegate Sub tblEABelegpositionRowChangeEventHandler(ByVal sender As Object, ByVal e As tblEABelegpositionRowChangeEvent) _ Public Delegate Sub tblEmailBenachrichtigungRowChangeEventHandler(ByVal sender As Object, ByVal e As tblEmailBenachrichtigungRowChangeEvent) _ Public Delegate Sub tblEmailBenachrichtigungArtenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblEmailBenachrichtigungArtenRowChangeEvent) _ Public Delegate Sub tblEORIPruefungRowChangeEventHandler(ByVal sender As Object, ByVal e As tblEORIPruefungRowChangeEvent) _ Public Delegate Sub tblEZB_WaehrungskurseRowChangeEventHandler(ByVal sender As Object, ByVal e As tblEZB_WaehrungskurseRowChangeEvent) _ Public Delegate Sub tblEZT_ImportcodenummernRowChangeEventHandler(ByVal sender As Object, ByVal e As tblEZT_ImportcodenummernRowChangeEvent) _ Public Delegate Sub tblFahrerDatenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblFahrerDatenRowChangeEvent) _ Public Delegate Sub tblFirmaRowChangeEventHandler(ByVal sender As Object, ByVal e As tblFirmaRowChangeEvent) _ Public Delegate Sub tblFiskal_DatenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblFiskal_DatenRowChangeEvent) _ Public Delegate Sub tblFiskalkundenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblFiskalkundenRowChangeEvent) _ Public Delegate Sub tblFormulardatenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblFormulardatenRowChangeEvent) _ Public Delegate Sub tblFormulareVorlagenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblFormulareVorlagenRowChangeEvent) _ Public Delegate Sub tblFormulareVorlagenValuesRowChangeEventHandler(ByVal sender As Object, ByVal e As tblFormulareVorlagenValuesRowChangeEvent) _ Public Delegate Sub tblFremdSpeditionenZuordnungRowChangeEventHandler(ByVal sender As Object, ByVal e As tblFremdSpeditionenZuordnungRowChangeEvent) _ Public Delegate Sub tblFTP_LogRowChangeEventHandler(ByVal sender As Object, ByVal e As tblFTP_LogRowChangeEvent) _ Public Delegate Sub tblFTP_Log_Backup2RowChangeEventHandler(ByVal sender As Object, ByVal e As tblFTP_Log_Backup2RowChangeEvent) _ Public Delegate Sub tblGebuehrenvermarktungsnormenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGebuehrenvermarktungsnormenRowChangeEvent) _ Public Delegate Sub tblGelangensbestaetigungRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGelangensbestaetigungRowChangeEvent) _ Public Delegate Sub tblGeschäftsjahrRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGeschäftsjahrRowChangeEvent) _ Public Delegate Sub tblGeschäftsjahrBelegNrRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGeschäftsjahrBelegNrRowChangeEvent) _ Public Delegate Sub tblGeschäftsjahrJournalNrRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGeschäftsjahrJournalNrRowChangeEvent) _ Public Delegate Sub tblGestellungsgarantienRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGestellungsgarantienRowChangeEvent) _ Public Delegate Sub tblGestellungsmitteilungRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGestellungsmitteilungRowChangeEvent) _ Public Delegate Sub tblGestellungsmitteilung_PositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGestellungsmitteilung_PositionenRowChangeEvent) _ Public Delegate Sub tblGOBOXBestellungenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGOBOXBestellungenRowChangeEvent) _ Public Delegate Sub tblGVMSRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGVMSRowChangeEvent) _ Public Delegate Sub tblGVMS_CarriersRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGVMS_CarriersRowChangeEvent) _ Public Delegate Sub tblGVMS_PortsRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGVMS_PortsRowChangeEvent) _ Public Delegate Sub tblGVMS_PosRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGVMS_PosRowChangeEvent) _ Public Delegate Sub tblGVMS_RoutesRowChangeEventHandler(ByVal sender As Object, ByVal e As tblGVMS_RoutesRowChangeEvent) _ Public Delegate Sub tblHandlingssaetzeInternRowChangeEventHandler(ByVal sender As Object, ByVal e As tblHandlingssaetzeInternRowChangeEvent) _ Public Delegate Sub tblHistorieRowChangeEventHandler(ByVal sender As Object, ByVal e As tblHistorieRowChangeEvent) _ Public Delegate Sub tblIDS_TransaktionenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblIDS_TransaktionenRowChangeEvent) _ Public Delegate Sub tblKassenbuchRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKassenbuchRowChangeEvent) _ Public Delegate Sub tblKontoRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKontoRowChangeEvent) _ Public Delegate Sub tblKundenAufschubkontenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenAufschubkontenRowChangeEvent) _ Public Delegate Sub tblKundenBesonderheitenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenBesonderheitenRowChangeEvent) _ Public Delegate Sub tblKundenBesonderheiten_KategorienRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenBesonderheiten_KategorienRowChangeEvent) _ Public Delegate Sub tblKundenDatenblattRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenDatenblattRowChangeEvent) _ Public Delegate Sub tblKundenErweitertRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenErweitertRowChangeEvent) _ Public Delegate Sub tblKundenKontaktRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenKontaktRowChangeEvent) _ Public Delegate Sub tblKundenKontaktArtenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenKontaktArtenRowChangeEvent) _ Public Delegate Sub tblKundenumsatzRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenumsatzRowChangeEvent) _ Public Delegate Sub tblKundenVermerkeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenVermerkeRowChangeEvent) _ Public Delegate Sub tblKundenVertraegeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenVertraegeRowChangeEvent) _ Public Delegate Sub tblKundenVertraegeArtenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenVertraegeArtenRowChangeEvent) _ Public Delegate Sub tblKundenVollmachtenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenVollmachtenRowChangeEvent) _ Public Delegate Sub tblKundenVollmachtenArtRowChangeEventHandler(ByVal sender As Object, ByVal e As tblKundenVollmachtenArtRowChangeEvent) _ Public Delegate Sub tblLogbuchRowChangeEventHandler(ByVal sender As Object, ByVal e As tblLogbuchRowChangeEvent) _ Public Delegate Sub tblMandantRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMandantRowChangeEvent) _ Public Delegate Sub tblMautIT_BelegartenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMautIT_BelegartenRowChangeEvent) _ Public Delegate Sub tblMautITArchivRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMautITArchivRowChangeEvent) _ Public Delegate Sub tblMDM_ParamterRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMDM_ParamterRowChangeEvent) _ Public Delegate Sub tblMSECustomersRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMSECustomersRowChangeEvent) _ Public Delegate Sub tblMSEImportRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMSEImportRowChangeEvent) _ Public Delegate Sub tblMSEInvoicesRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMSEInvoicesRowChangeEvent) _ Public Delegate Sub tblMSELeistungenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMSELeistungenRowChangeEvent) _ Public Delegate Sub tblMSESettlementsRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMSESettlementsRowChangeEvent) _ Public Delegate Sub tblMSETransactionsRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMSETransactionsRowChangeEvent) _ Public Delegate Sub tblMSETransactionsArchivRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMSETransactionsArchivRowChangeEvent) _ Public Delegate Sub tblMSETransactionsArchivOLDRowChangeEventHandler(ByVal sender As Object, ByVal e As tblMSETransactionsArchivOLDRowChangeEvent) _ Public Delegate Sub tblNCTS_TRRowChangeEventHandler(ByVal sender As Object, ByVal e As tblNCTS_TRRowChangeEvent) _ Public Delegate Sub tblNCTS_TR_NachrichtenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblNCTS_TR_NachrichtenRowChangeEvent) _ Public Delegate Sub tblNCTS_TR_SicherheitsangabenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblNCTS_TR_SicherheitsangabenRowChangeEvent) _ Public Delegate Sub tblNCTS_TR_WarenpositionRowChangeEventHandler(ByVal sender As Object, ByVal e As tblNCTS_TR_WarenpositionRowChangeEvent) _ Public Delegate Sub tblNCTS_TR_WarenpositionPackstueckeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblNCTS_TR_WarenpositionPackstueckeRowChangeEvent) _ Public Delegate Sub tblNCTSGestellungsadressenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblNCTSGestellungsadressenRowChangeEvent) _ Public Delegate Sub tblNTCSRoutenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblNTCSRoutenRowChangeEvent) _ Public Delegate Sub tblOffertenArchivRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOffertenArchivRowChangeEvent) _ Public Delegate Sub tblOffertenPositionenArchivRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOffertenPositionenArchivRowChangeEvent) _ Public Delegate Sub tblOregonNCTS_DeclarationDataRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOregonNCTS_DeclarationDataRowChangeEvent) _ Public Delegate Sub tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEvent) _ Public Delegate Sub tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEvent) _ Public Delegate Sub tblOregonNCTS_Declarations_GoodsAttributeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOregonNCTS_Declarations_GoodsAttributeRowChangeEvent) _ Public Delegate Sub tblOregonNCTS_Declarations_PacksAttributeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOregonNCTS_Declarations_PacksAttributeRowChangeEvent) _ Public Delegate Sub tblOregonNCTS_Declarations_PartiesAttributeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOregonNCTS_Declarations_PartiesAttributeRowChangeEvent) _ Public Delegate Sub tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEvent) _ Public Delegate Sub tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEvent) _ Public Delegate Sub tblOregonNCTS_ReferenceTemplateRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOregonNCTS_ReferenceTemplateRowChangeEvent) _ Public Delegate Sub tblOriginalATRRowChangeEventHandler(ByVal sender As Object, ByVal e As tblOriginalATRRowChangeEvent) _ Public Delegate Sub tblPartnersystem_ParamterRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPartnersystem_ParamterRowChangeEvent) _ Public Delegate Sub tblPfadRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPfadRowChangeEvent) _ Public Delegate Sub tblPLOSE_DetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPLOSE_DetailsRowChangeEvent) _ Public Delegate Sub tblPLOSE_Inv_DataRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPLOSE_Inv_DataRowChangeEvent) _ Public Delegate Sub tblPLOSE_LieferantRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPLOSE_LieferantRowChangeEvent) _ Public Delegate Sub tblPLOSE_ProduktbeschreibungRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPLOSE_ProduktbeschreibungRowChangeEvent) _ Public Delegate Sub tblPosNrRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPosNrRowChangeEvent) _ Public Delegate Sub tblPostversandRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPostversandRowChangeEvent) _ Public Delegate Sub tblPreislistenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPreislistenRowChangeEvent) _ Public Delegate Sub tblPreislistenpositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPreislistenpositionenRowChangeEvent) _ Public Delegate Sub tblPreistabellenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPreistabellenRowChangeEvent) _ Public Delegate Sub tblPreistabellenpositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblPreistabellenpositionenRowChangeEvent) _ Public Delegate Sub tblQS_AbfertigungsartenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblQS_AbfertigungsartenRowChangeEvent) _ Public Delegate Sub tblQS_AufträgeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblQS_AufträgeRowChangeEvent) _ Public Delegate Sub tblQS_AuftragspositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblQS_AuftragspositionenRowChangeEvent) _ Public Delegate Sub tblQS_TeamsRowChangeEventHandler(ByVal sender As Object, ByVal e As tblQS_TeamsRowChangeEvent) _ Public Delegate Sub tblQS_TeamsMARowChangeEventHandler(ByVal sender As Object, ByVal e As tblQS_TeamsMARowChangeEvent) _ Public Delegate Sub tblRechnungsnotizenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblRechnungsnotizenRowChangeEvent) _ Public Delegate Sub tblRefRowChangeEventHandler(ByVal sender As Object, ByVal e As tblRefRowChangeEvent) _ Public Delegate Sub tblRefBeziehungenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblRefBeziehungenRowChangeEvent) _ Public Delegate Sub tblRKSV_KassenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblRKSV_KassenRowChangeEvent) _ Public Delegate Sub tblRKSV_POSRowChangeEventHandler(ByVal sender As Object, ByVal e As tblRKSV_POSRowChangeEvent) _ Public Delegate Sub tblRMCImportRowChangeEventHandler(ByVal sender As Object, ByVal e As tblRMCImportRowChangeEvent) _ Public Delegate Sub tblSMSRowChangeEventHandler(ByVal sender As Object, ByVal e As tblSMSRowChangeEvent) _ Public Delegate Sub tblSpeditionsbucharchivRowChangeEventHandler(ByVal sender As Object, ByVal e As tblSpeditionsbucharchivRowChangeEvent) _ Public Delegate Sub tblSpeditionsbuchEndEmpfaengerRowChangeEventHandler(ByVal sender As Object, ByVal e As tblSpeditionsbuchEndEmpfaengerRowChangeEvent) _ Public Delegate Sub tblSpeditionsbuchUnterPosRowChangeEventHandler(ByVal sender As Object, ByVal e As tblSpeditionsbuchUnterPosRowChangeEvent) _ Public Delegate Sub tblSpeditionsbuchUnterPosArtenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblSpeditionsbuchUnterPosArtenRowChangeEvent) _ Public Delegate Sub tblSteuernummernRowChangeEventHandler(ByVal sender As Object, ByVal e As tblSteuernummernRowChangeEvent) _ Public Delegate Sub tblSteuersätzeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblSteuersätzeRowChangeEvent) _ Public Delegate Sub tblSteuertypRowChangeEventHandler(ByVal sender As Object, ByVal e As tblSteuertypRowChangeEvent) _ Public Delegate Sub tblTelotec_AbgabenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTelotec_AbgabenRowChangeEvent) _ Public Delegate Sub tblTelotec_AnmeldungRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTelotec_AnmeldungRowChangeEvent) _ Public Delegate Sub tblTelotec_PackstueckeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTelotec_PackstueckeRowChangeEvent) _ Public Delegate Sub tblTelotec_ParamterRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTelotec_ParamterRowChangeEvent) _ Public Delegate Sub tblTelotec_PositionsdatenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTelotec_PositionsdatenRowChangeEvent) _ Public Delegate Sub tblTelotec_PositionsdatenAbgabenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTelotec_PositionsdatenAbgabenRowChangeEvent) _ Public Delegate Sub tblTelotec_PositionsdatenDokumenteRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTelotec_PositionsdatenDokumenteRowChangeEvent) _ Public Delegate Sub tblTelotec_SicherheitRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTelotec_SicherheitRowChangeEvent) _ Public Delegate Sub tblTestRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTestRowChangeEvent) _ Public Delegate Sub tblTextkonserveRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTextkonserveRowChangeEvent) _ Public Delegate Sub tblTR_AvisoRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTR_AvisoRowChangeEvent) _ Public Delegate Sub tblTR_AvisoAnheangeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTR_AvisoAnheangeRowChangeEvent) _ Public Delegate Sub tblTR_ShipmentRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTR_ShipmentRowChangeEvent) _ Public Delegate Sub tblTR_Shipment_AdressenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTR_Shipment_AdressenRowChangeEvent) _ Public Delegate Sub tblTR_Shipment_DocumentRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTR_Shipment_DocumentRowChangeEvent) _ Public Delegate Sub tblTR_Shipment_PositionRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTR_Shipment_PositionRowChangeEvent) _ Public Delegate Sub tblTR_Shipment_Position_DocumentRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTR_Shipment_Position_DocumentRowChangeEvent) _ Public Delegate Sub tblTranslateRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTranslateRowChangeEvent) _ Public Delegate Sub tblTranslateAutoRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTranslateAutoRowChangeEvent) _ Public Delegate Sub tblTrdinHeaderRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTrdinHeaderRowChangeEvent) _ Public Delegate Sub tblTrdinInvoiceRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTrdinInvoiceRowChangeEvent) _ Public Delegate Sub tblTrdinProductRowChangeEventHandler(ByVal sender As Object, ByVal e As tblTrdinProductRowChangeEvent) _ Public Delegate Sub tblUIDPruefungRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUIDPruefungRowChangeEvent) _ Public Delegate Sub tblUStVAntragRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUStVAntragRowChangeEvent) _ Public Delegate Sub tblUStVBelegeingangRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUStVBelegeingangRowChangeEvent) _ Public Delegate Sub tblUStVErstattungRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUStVErstattungRowChangeEvent) _ Public Delegate Sub tblUStVFormulareRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUStVFormulareRowChangeEvent) _ Public Delegate Sub tblUStVKuLäFoRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUStVKuLäFoRowChangeEvent) _ Public Delegate Sub tblUStVLäFoRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUStVLäFoRowChangeEvent) _ Public Delegate Sub tblUStVLeistenderRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUStVLeistenderRowChangeEvent) _ Public Delegate Sub tblUStVPositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUStVPositionenRowChangeEvent) _ Public Delegate Sub tblUStVTexteRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUStVTexteRowChangeEvent) _ Public Delegate Sub tblUTAArchivRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUTAArchivRowChangeEvent) _ Public Delegate Sub tblUTAFakturierwarenartenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUTAFakturierwarenartenRowChangeEvent) _ Public Delegate Sub tblUTAHeaderRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUTAHeaderRowChangeEvent) _ Public Delegate Sub tblUTAHeaderNewRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUTAHeaderNewRowChangeEvent) _ Public Delegate Sub tblUTAImportRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUTAImportRowChangeEvent) _ Public Delegate Sub tblUTAImportNewRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUTAImportNewRowChangeEvent) _ Public Delegate Sub tblUTALeistungenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUTALeistungenRowChangeEvent) _ Public Delegate Sub tblUTATrailerRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUTATrailerRowChangeEvent) _ Public Delegate Sub tblUTATrailerNewRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUTATrailerNewRowChangeEvent) _ Public Delegate Sub tblVermarktungsnormenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblVermarktungsnormenRowChangeEvent) _ Public Delegate Sub tblVermarktungsnormenGebuehrenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblVermarktungsnormenGebuehrenRowChangeEvent) _ Public Delegate Sub tblVorauskassenRowChangeEventHandler(ByVal sender As Object, ByVal e As tblVorauskassenRowChangeEvent) _ Public Delegate Sub tblWahrungtabelleNEURowChangeEventHandler(ByVal sender As Object, ByVal e As tblWahrungtabelleNEURowChangeEvent) _ Public Delegate Sub tblWarenbezeichnungBegriffeRowChangeEventHandler(ByVal sender As Object, ByVal e As tblWarenbezeichnungBegriffeRowChangeEvent) _ Public Delegate Sub tblZabis_Atlas_NCTSRowChangeEventHandler(ByVal sender As Object, ByVal e As tblZabis_Atlas_NCTSRowChangeEvent) _ Public Delegate Sub tblZahlungszieltexteRowChangeEventHandler(ByVal sender As Object, ByVal e As tblZahlungszieltexteRowChangeEvent) _ Public Delegate Sub tblZolaris_EZoll_NCTSRowChangeEventHandler(ByVal sender As Object, ByVal e As tblZolaris_EZoll_NCTSRowChangeEvent) _ Public Delegate Sub tblZOLL_WechselkurseRowChangeEventHandler(ByVal sender As Object, ByVal e As tblZOLL_WechselkurseRowChangeEvent) _ Public Delegate Sub tblZollArtikelRowChangeEventHandler(ByVal sender As Object, ByVal e As tblZollArtikelRowChangeEvent) _ Public Delegate Sub tblZollUnterArtikelRowChangeEventHandler(ByVal sender As Object, ByVal e As tblZollUnterArtikelRowChangeEvent) _ Public Delegate Sub TemporaryUpsizedTable2RowChangeEventHandler(ByVal sender As Object, ByVal e As TemporaryUpsizedTable2RowChangeEvent) _ Public Delegate Sub VerkehrszweigeRowChangeEventHandler(ByVal sender As Object, ByVal e As VerkehrszweigeRowChangeEvent) _ Public Delegate Sub VermerkeRowChangeEventHandler(ByVal sender As Object, ByVal e As VermerkeRowChangeEvent) _ Public Delegate Sub VorkostenRowChangeEventHandler(ByVal sender As Object, ByVal e As VorkostenRowChangeEvent) _ Public Delegate Sub WährungstabelleRowChangeEventHandler(ByVal sender As Object, ByVal e As WährungstabelleRowChangeEvent) _ Public Delegate Sub ZahlungsartenRowChangeEventHandler(ByVal sender As Object, ByVal e As ZahlungsartenRowChangeEvent) _ Public Delegate Sub zbadzRowChangeEventHandler(ByVal sender As Object, ByVal e As zbadzRowChangeEvent) _ Public Delegate Sub zbantRowChangeEventHandler(ByVal sender As Object, ByVal e As zbantRowChangeEvent) _ Public Delegate Sub zbapoRowChangeEventHandler(ByVal sender As Object, ByVal e As zbapoRowChangeEvent) _ Public Delegate Sub zbposRowChangeEventHandler(ByVal sender As Object, ByVal e As zbposRowChangeEvent) _ Public Delegate Sub ZkteingRowChangeEventHandler(ByVal sender As Object, ByVal e As ZkteingRowChangeEvent) _ Public Delegate Sub ZollsystemeRowChangeEventHandler(ByVal sender As Object, ByVal e As ZollsystemeRowChangeEvent) _ Public Delegate Sub Zulassungen_ZnVRowChangeEventHandler(ByVal sender As Object, ByVal e As Zulassungen_ZnVRowChangeEvent) _ Public Delegate Sub vwKundenstammRowChangeEventHandler(ByVal sender As Object, ByVal e As vwKundenstammRowChangeEvent) _ Public Delegate Sub vwReErfAuswahlRowChangeEventHandler(ByVal sender As Object, ByVal e As vwReErfAuswahlRowChangeEvent) _ Public Delegate Sub vwTrdinHeaderRowChangeEventHandler(ByVal sender As Object, ByVal e As vwTrdinHeaderRowChangeEvent) _ Public Delegate Sub vwTrdinInvoiceRowChangeEventHandler(ByVal sender As Object, ByVal e As vwTrdinInvoiceRowChangeEvent) _ Public Delegate Sub vwTrdinProductRowChangeEventHandler(ByVal sender As Object, ByVal e As vwTrdinProductRowChangeEvent) _ Public Delegate Sub vwUStV_OP_RisikoberichtRowChangeEventHandler(ByVal sender As Object, ByVal e As vwUStV_OP_RisikoberichtRowChangeEvent) _ Public Delegate Sub vwUStVAntragRowChangeEventHandler(ByVal sender As Object, ByVal e As vwUStVAntragRowChangeEvent) _ Public Delegate Sub vwUStVBelegeingangRowChangeEventHandler(ByVal sender As Object, ByVal e As vwUStVBelegeingangRowChangeEvent) _ Public Delegate Sub vwUStVErstattungRowChangeEventHandler(ByVal sender As Object, ByVal e As vwUStVErstattungRowChangeEvent) _ Public Delegate Sub vwUStVPositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As vwUStVPositionenRowChangeEvent) _ Public Delegate Sub vwUStVVorauszahlungRowChangeEventHandler(ByVal sender As Object, ByVal e As vwUStVVorauszahlungRowChangeEvent) _ Public Delegate Sub vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEventHandler(ByVal sender As Object, ByVal e As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEvent) _ Public Delegate Sub vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEventHandler(ByVal sender As Object, ByVal e As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEvent) _ Public Delegate Sub vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEventHandler(ByVal sender As Object, ByVal e As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEvent) _ Public Delegate Sub vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEventHandler(ByVal sender As Object, ByVal e As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEvent) _ Public Delegate Sub spAlleTabellenRowChangeEventHandler(ByVal sender As Object, ByVal e As spAlleTabellenRowChangeEvent) _ Public Delegate Sub spReDruReNrVergebenRowChangeEventHandler(ByVal sender As Object, ByVal e As spReDruReNrVergebenRowChangeEvent) _ Public Delegate Sub spReDruSchnSaReDruckinfoEintragenRowChangeEventHandler(ByVal sender As Object, ByVal e As spReDruSchnSaReDruckinfoEintragenRowChangeEvent) _ Public Delegate Sub spReDruSchnSaReNrEintragenRowChangeEventHandler(ByVal sender As Object, ByVal e As spReDruSchnSaReNrEintragenRowChangeEvent) _ Public Delegate Sub spReverseChargeSummeRowChangeEventHandler(ByVal sender As Object, ByVal e As spReverseChargeSummeRowChangeEvent) _ Public Delegate Sub spSELECT_Bankspesen_für_KundenNrRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECT_Bankspesen_für_KundenNrRowChangeEvent) _ Public Delegate Sub spSELECT_tblZabis_Atlas_NCTSRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECT_tblZabis_Atlas_NCTSRowChangeEvent) _ Public Delegate Sub spSELECTAufschubdatenRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTAufschubdatenRowChangeEvent) _ Public Delegate Sub spSELECTRechnungsausgangRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTRechnungsausgangRowChangeEvent) _ Public Delegate Sub spSELECTRechnungsausgangPositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTRechnungsausgangPositionenRowChangeEvent) _ Public Delegate Sub spSELECTRechnungsnummernRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTRechnungsnummernRowChangeEvent) _ Public Delegate Sub spSelectReDruSaReRKAvisoIDRowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectReDruSaReRKAvisoIDRowChangeEvent) _ Public Delegate Sub spSELECTReDruSaReRKgruppierenRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTReDruSaReRKgruppierenRowChangeEvent) _ Public Delegate Sub spSelectReDruSchnBB_RKRowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectReDruSchnBB_RKRowChangeEvent) _ Public Delegate Sub spSelectReDruSchnKundeRowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectReDruSchnKundeRowChangeEvent) _ Public Delegate Sub spSelectReDruSchnSumBS415RowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectReDruSchnSumBS415RowChangeEvent) _ Public Delegate Sub spSelectReDruSchnTextZollbelegePrüfenRowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectReDruSchnTextZollbelegePrüfenRowChangeEvent) _ Public Delegate Sub spSELECTReDruSumReGuRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTReDruSumReGuRowChangeEvent) _ Public Delegate Sub spSELECTReDruTextRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTReDruTextRowChangeEvent) _ Public Delegate Sub spSelectReErfAuswahlRowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectReErfAuswahlRowChangeEvent) _ Public Delegate Sub spSELECTReErfKARowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTReErfKARowChangeEvent) _ Public Delegate Sub spSelectRKRowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectRKRowChangeEvent) _ Public Delegate Sub spSelectRKPKeyRowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectRKPKeyRowChangeEvent) _ Public Delegate Sub spSelectRPRowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectRPRowChangeEvent) _ Public Delegate Sub spSelectRPFKeyRKRowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectRPFKeyRKRowChangeEvent) _ Public Delegate Sub spSelectRPPKeyRowChangeEventHandler(ByVal sender As Object, ByVal e As spSelectRPPKeyRowChangeEvent) _ Public Delegate Sub spSELECTtblAnmeldungPKeyRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblAnmeldungPKeyRowChangeEvent) _ Public Delegate Sub spSELECTtblQS_AbfertigungsartenRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblQS_AbfertigungsartenRowChangeEvent) _ Public Delegate Sub spSELECTtblQS_AufträgeRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblQS_AufträgeRowChangeEvent) _ Public Delegate Sub spSELECTtblQS_AuftragspositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblQS_AuftragspositionenRowChangeEvent) _ Public Delegate Sub spSELECTtblTrdinHeaderRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblTrdinHeaderRowChangeEvent) _ Public Delegate Sub spSELECTtblTrdinInvoiceRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblTrdinInvoiceRowChangeEvent) _ Public Delegate Sub spSELECTtblTrdinProductRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblTrdinProductRowChangeEvent) _ Public Delegate Sub spSELECTtblUStVAntragRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblUStVAntragRowChangeEvent) _ Public Delegate Sub spSELECTtblUStVBelegeingangRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblUStVBelegeingangRowChangeEvent) _ Public Delegate Sub spSELECTtblUStVErstattungRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblUStVErstattungRowChangeEvent) _ Public Delegate Sub spSELECTtblUStVPositionenRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblUStVPositionenRowChangeEvent) _ Public Delegate Sub spSELECTtblZolaris_EZoll_NCTSRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTtblZolaris_EZoll_NCTSRowChangeEvent) _ Public Delegate Sub spSELECTUStVErstattungsschreibenRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTUStVErstattungsschreibenRowChangeEvent) _ Public Delegate Sub spSELECTUStVErstattungsschreiben2RowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTUStVErstattungsschreiben2RowChangeEvent) _ Public Delegate Sub spSELECTZkteingRowChangeEventHandler(ByVal sender As Object, ByVal e As spSELECTZkteingRowChangeEvent) _ Public Delegate Sub spTrdinFiBuSelectInvoiceRowChangeEventHandler(ByVal sender As Object, ByVal e As spTrdinFiBuSelectInvoiceRowChangeEvent) _ Public Delegate Sub spTrdinFiBuSelectProductRowChangeEventHandler(ByVal sender As Object, ByVal e As spTrdinFiBuSelectProductRowChangeEvent) _ Public Delegate Sub spTrdinSchreibenSelectInvoicePKeyRowChangeEventHandler(ByVal sender As Object, ByVal e As spTrdinSchreibenSelectInvoicePKeyRowChangeEvent) _ Public Delegate Sub spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEventHandler(ByVal sender As Object, ByVal e As spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEvent) _ Public Delegate Sub spTrdinSchreibenSelectProductPKeyRowChangeEventHandler(ByVal sender As Object, ByVal e As spTrdinSchreibenSelectProductPKeyRowChangeEvent) _ Public Delegate Sub spUStVAntragLesenParameterPKeyRowChangeEventHandler(ByVal sender As Object, ByVal e As spUStVAntragLesenParameterPKeyRowChangeEvent) _ Public Delegate Sub spUStVBelegeingangLesenParameterPKeyRowChangeEventHandler(ByVal sender As Object, ByVal e As spUStVBelegeingangLesenParameterPKeyRowChangeEvent) _ Public Delegate Sub spUStVErstattungLesenParameterPKeyRowChangeEventHandler(ByVal sender As Object, ByVal e As spUStVErstattungLesenParameterPKeyRowChangeEvent) _ Public Delegate Sub spUStVPositionenLesenParameterPKeyRowChangeEventHandler(ByVal sender As Object, ByVal e As spUStVPositionenLesenParameterPKeyRowChangeEvent) _ Public Delegate Sub spUStVRechnungÜbernehmenMSERowChangeEventHandler(ByVal sender As Object, ByVal e As spUStVRechnungÜbernehmenMSERowChangeEvent) _ Public Delegate Sub spUStVVorschau_IDS_SummeRowChangeEventHandler(ByVal sender As Object, ByVal e As spUStVVorschau_IDS_SummeRowChangeEvent) _ Public Delegate Sub spUStVVorschau_IT_SummeRowChangeEventHandler(ByVal sender As Object, ByVal e As spUStVVorschau_IT_SummeRowChangeEvent) _ Public Delegate Sub spUStVVorschau_MSE_SummeRowChangeEventHandler(ByVal sender As Object, ByVal e As spUStVVorschau_MSE_SummeRowChangeEvent) _ Public Delegate Sub spUStVVorschau_UTA_SummeRowChangeEventHandler(ByVal sender As Object, ByVal e As spUStVVorschau_UTA_SummeRowChangeEvent) _ Public Delegate Sub spUStVVorschau_VERAG_SummeRowChangeEventHandler(ByVal sender As Object, ByVal e As spUStVVorschau_VERAG_SummeRowChangeEvent) _ Public Delegate Sub spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEventHandler(ByVal sender As Object, ByVal e As spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class AbfertigungsartenDataTable Inherits Global.System.Data.TypedTableBase(Of AbfertigungsartenRow) Private columnAbfertigungsart As Global.System.Data.DataColumn Private columnAbfertigungsbezeichnung As Global.System.Data.DataColumn Private columnEpSbVl As Global.System.Data.DataColumn Private columnEpSbSgutKompl As Global.System.Data.DataColumn Private columnEpSbBl As Global.System.Data.DataColumn Private columnisAbfertigung As Global.System.Data.DataColumn Private columnAbfertigungsbezeichnungLang As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Abfertigungsarten" 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 AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsart End Get End Property _ Public ReadOnly Property AbfertigungsbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsbezeichnung End Get End Property _ Public ReadOnly Property EpSbVlColumn() As Global.System.Data.DataColumn Get Return Me.columnEpSbVl End Get End Property _ Public ReadOnly Property EpSbSgutKomplColumn() As Global.System.Data.DataColumn Get Return Me.columnEpSbSgutKompl End Get End Property _ Public ReadOnly Property EpSbBlColumn() As Global.System.Data.DataColumn Get Return Me.columnEpSbBl End Get End Property _ Public ReadOnly Property isAbfertigungColumn() As Global.System.Data.DataColumn Get Return Me.columnisAbfertigung End Get End Property _ Public ReadOnly Property AbfertigungsbezeichnungLangColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsbezeichnungLang End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 AbfertigungsartenRow Get Return CType(Me.Rows(index),AbfertigungsartenRow) End Get End Property _ Public Event AbfertigungsartenRowChanging As AbfertigungsartenRowChangeEventHandler _ Public Event AbfertigungsartenRowChanged As AbfertigungsartenRowChangeEventHandler _ Public Event AbfertigungsartenRowDeleting As AbfertigungsartenRowChangeEventHandler _ Public Event AbfertigungsartenRowDeleted As AbfertigungsartenRowChangeEventHandler _ Public Overloads Sub AddAbfertigungsartenRow(ByVal row As AbfertigungsartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddAbfertigungsartenRow(ByVal Abfertigungsart As Short, ByVal Abfertigungsbezeichnung As String, ByVal EpSbVl As Boolean, ByVal EpSbSgutKompl As Boolean, ByVal EpSbBl As Boolean, ByVal isAbfertigung As Boolean, ByVal AbfertigungsbezeichnungLang As String, ByVal SSMA_TimeStamp() As Byte) As AbfertigungsartenRow Dim rowAbfertigungsartenRow As AbfertigungsartenRow = CType(Me.NewRow,AbfertigungsartenRow) Dim columnValuesArray() As Object = New Object() {Abfertigungsart, Abfertigungsbezeichnung, EpSbVl, EpSbSgutKompl, EpSbBl, isAbfertigung, AbfertigungsbezeichnungLang, SSMA_TimeStamp} rowAbfertigungsartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowAbfertigungsartenRow) Return rowAbfertigungsartenRow End Function _ Public Function FindByAbfertigungsart(ByVal Abfertigungsart As Short) As AbfertigungsartenRow Return CType(Me.Rows.Find(New Object() {Abfertigungsart}),AbfertigungsartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As AbfertigungsartenDataTable = CType(MyBase.Clone,AbfertigungsartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New AbfertigungsartenDataTable() End Function _ Friend Sub InitVars() Me.columnAbfertigungsart = MyBase.Columns("Abfertigungsart") Me.columnAbfertigungsbezeichnung = MyBase.Columns("Abfertigungsbezeichnung") Me.columnEpSbVl = MyBase.Columns("EpSbVl") Me.columnEpSbSgutKompl = MyBase.Columns("EpSbSgutKompl") Me.columnEpSbBl = MyBase.Columns("EpSbBl") Me.columnisAbfertigung = MyBase.Columns("isAbfertigung") Me.columnAbfertigungsbezeichnungLang = MyBase.Columns("AbfertigungsbezeichnungLang") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnAbfertigungsart = New Global.System.Data.DataColumn("Abfertigungsart", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsart) Me.columnAbfertigungsbezeichnung = New Global.System.Data.DataColumn("Abfertigungsbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsbezeichnung) Me.columnEpSbVl = New Global.System.Data.DataColumn("EpSbVl", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEpSbVl) Me.columnEpSbSgutKompl = New Global.System.Data.DataColumn("EpSbSgutKompl", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEpSbSgutKompl) Me.columnEpSbBl = New Global.System.Data.DataColumn("EpSbBl", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEpSbBl) Me.columnisAbfertigung = New Global.System.Data.DataColumn("isAbfertigung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnisAbfertigung) Me.columnAbfertigungsbezeichnungLang = New Global.System.Data.DataColumn("AbfertigungsbezeichnungLang", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsbezeichnungLang) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAbfertigungsart}, true)) Me.columnAbfertigungsart.AllowDBNull = false Me.columnAbfertigungsart.Unique = true Me.columnAbfertigungsbezeichnung.AllowDBNull = false Me.columnAbfertigungsbezeichnung.MaxLength = 50 Me.columnAbfertigungsbezeichnungLang.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewAbfertigungsartenRow() As AbfertigungsartenRow Return CType(Me.NewRow,AbfertigungsartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New AbfertigungsartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(AbfertigungsartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.AbfertigungsartenRowChangedEvent) Is Nothing) Then RaiseEvent AbfertigungsartenRowChanged(Me, New AbfertigungsartenRowChangeEvent(CType(e.Row,AbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.AbfertigungsartenRowChangingEvent) Is Nothing) Then RaiseEvent AbfertigungsartenRowChanging(Me, New AbfertigungsartenRowChangeEvent(CType(e.Row,AbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.AbfertigungsartenRowDeletedEvent) Is Nothing) Then RaiseEvent AbfertigungsartenRowDeleted(Me, New AbfertigungsartenRowChangeEvent(CType(e.Row,AbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.AbfertigungsartenRowDeletingEvent) Is Nothing) Then RaiseEvent AbfertigungsartenRowDeleting(Me, New AbfertigungsartenRowChangeEvent(CType(e.Row,AbfertigungsartenRow), e.Action)) End If End Sub _ Public Sub RemoveAbfertigungsartenRow(ByVal row As AbfertigungsartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "AbfertigungsartenDataTable" 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 Abfertigungskosten_der_KorrespondentenDataTable Inherits Global.System.Data.TypedTableBase(Of Abfertigungskosten_der_KorrespondentenRow) Private columnKorrespondentenNr As Global.System.Data.DataColumn Private columnAbfertigungsart As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Abfertigungskosten der Korrespondenten" 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 KorrespondentenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKorrespondentenNr End Get End Property _ Public ReadOnly Property AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsart End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 Abfertigungskosten_der_KorrespondentenRow Get Return CType(Me.Rows(index),Abfertigungskosten_der_KorrespondentenRow) End Get End Property _ Public Event Abfertigungskosten_der_KorrespondentenRowChanging As Abfertigungskosten_der_KorrespondentenRowChangeEventHandler _ Public Event Abfertigungskosten_der_KorrespondentenRowChanged As Abfertigungskosten_der_KorrespondentenRowChangeEventHandler _ Public Event Abfertigungskosten_der_KorrespondentenRowDeleting As Abfertigungskosten_der_KorrespondentenRowChangeEventHandler _ Public Event Abfertigungskosten_der_KorrespondentenRowDeleted As Abfertigungskosten_der_KorrespondentenRowChangeEventHandler _ Public Overloads Sub AddAbfertigungskosten_der_KorrespondentenRow(ByVal row As Abfertigungskosten_der_KorrespondentenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddAbfertigungskosten_der_KorrespondentenRow(ByVal _parentKorrespondentenRowByAbfertigungskosten_der_Korrespondenten_KorrespondentenAbfertigungskosten_der_Korrespondenten As KorrespondentenRow, ByVal _parentAbfertigungsartenRowByAbfertigungskosten_der_Korrespondenten_AbfertigungsartenAbfertigungskosten_der_Korrespondenten As AbfertigungsartenRow, ByVal _parentLeistungenRowByAbfertigungskosten_der_Korrespondenten_LeistungenAbfertigungskosten_der_Korrespondenten As LeistungenRow, ByVal LeistungsBez As String, ByVal Preis As Decimal, ByVal SSMA_TimeStamp() As Byte) As Abfertigungskosten_der_KorrespondentenRow Dim rowAbfertigungskosten_der_KorrespondentenRow As Abfertigungskosten_der_KorrespondentenRow = CType(Me.NewRow,Abfertigungskosten_der_KorrespondentenRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, LeistungsBez, Preis, SSMA_TimeStamp} If (Not (_parentKorrespondentenRowByAbfertigungskosten_der_Korrespondenten_KorrespondentenAbfertigungskosten_der_Korrespondenten) Is Nothing) Then columnValuesArray(0) = _parentKorrespondentenRowByAbfertigungskosten_der_Korrespondenten_KorrespondentenAbfertigungskosten_der_Korrespondenten(0) End If If (Not (_parentAbfertigungsartenRowByAbfertigungskosten_der_Korrespondenten_AbfertigungsartenAbfertigungskosten_der_Korrespondenten) Is Nothing) Then columnValuesArray(1) = _parentAbfertigungsartenRowByAbfertigungskosten_der_Korrespondenten_AbfertigungsartenAbfertigungskosten_der_Korrespondenten(0) End If If (Not (_parentLeistungenRowByAbfertigungskosten_der_Korrespondenten_LeistungenAbfertigungskosten_der_Korrespondenten) Is Nothing) Then columnValuesArray(2) = _parentLeistungenRowByAbfertigungskosten_der_Korrespondenten_LeistungenAbfertigungskosten_der_Korrespondenten(0) End If rowAbfertigungskosten_der_KorrespondentenRow.ItemArray = columnValuesArray Me.Rows.Add(rowAbfertigungskosten_der_KorrespondentenRow) Return rowAbfertigungskosten_der_KorrespondentenRow End Function _ Public Function FindByKorrespondentenNrAbfertigungsartLeistungsNrLeistungsBez(ByVal KorrespondentenNr As Integer, ByVal Abfertigungsart As Short, ByVal LeistungsNr As Short, ByVal LeistungsBez As String) As Abfertigungskosten_der_KorrespondentenRow Return CType(Me.Rows.Find(New Object() {KorrespondentenNr, Abfertigungsart, LeistungsNr, LeistungsBez}),Abfertigungskosten_der_KorrespondentenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Abfertigungskosten_der_KorrespondentenDataTable = CType(MyBase.Clone,Abfertigungskosten_der_KorrespondentenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Abfertigungskosten_der_KorrespondentenDataTable() End Function _ Friend Sub InitVars() Me.columnKorrespondentenNr = MyBase.Columns("KorrespondentenNr") Me.columnAbfertigungsart = MyBase.Columns("Abfertigungsart") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnPreis = MyBase.Columns("Preis") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnKorrespondentenNr = New Global.System.Data.DataColumn("KorrespondentenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKorrespondentenNr) Me.columnAbfertigungsart = New Global.System.Data.DataColumn("Abfertigungsart", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsart) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKorrespondentenNr, Me.columnAbfertigungsart, Me.columnLeistungsNr, Me.columnLeistungsBez}, true)) Me.columnKorrespondentenNr.AllowDBNull = false Me.columnAbfertigungsart.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnPreis.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewAbfertigungskosten_der_KorrespondentenRow() As Abfertigungskosten_der_KorrespondentenRow Return CType(Me.NewRow,Abfertigungskosten_der_KorrespondentenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Abfertigungskosten_der_KorrespondentenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Abfertigungskosten_der_KorrespondentenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Abfertigungskosten_der_KorrespondentenRowChangedEvent) Is Nothing) Then RaiseEvent Abfertigungskosten_der_KorrespondentenRowChanged(Me, New Abfertigungskosten_der_KorrespondentenRowChangeEvent(CType(e.Row,Abfertigungskosten_der_KorrespondentenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Abfertigungskosten_der_KorrespondentenRowChangingEvent) Is Nothing) Then RaiseEvent Abfertigungskosten_der_KorrespondentenRowChanging(Me, New Abfertigungskosten_der_KorrespondentenRowChangeEvent(CType(e.Row,Abfertigungskosten_der_KorrespondentenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Abfertigungskosten_der_KorrespondentenRowDeletedEvent) Is Nothing) Then RaiseEvent Abfertigungskosten_der_KorrespondentenRowDeleted(Me, New Abfertigungskosten_der_KorrespondentenRowChangeEvent(CType(e.Row,Abfertigungskosten_der_KorrespondentenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Abfertigungskosten_der_KorrespondentenRowDeletingEvent) Is Nothing) Then RaiseEvent Abfertigungskosten_der_KorrespondentenRowDeleting(Me, New Abfertigungskosten_der_KorrespondentenRowChangeEvent(CType(e.Row,Abfertigungskosten_der_KorrespondentenRow), e.Action)) End If End Sub _ Public Sub RemoveAbfertigungskosten_der_KorrespondentenRow(ByVal row As Abfertigungskosten_der_KorrespondentenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "Abfertigungskosten_der_KorrespondentenDataTable" 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 AbfertigungsLaenderDataTable Inherits Global.System.Data.TypedTableBase(Of AbfertigungsLaenderRow) Private columnAbfertigungsLand As Global.System.Data.DataColumn Private columnFirma As Global.System.Data.DataColumn Private columnCluster As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "AbfertigungsLaender" 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 AbfertigungsLandColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsLand End Get End Property _ Public ReadOnly Property FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma End Get End Property _ Public ReadOnly Property ClusterColumn() As Global.System.Data.DataColumn Get Return Me.columnCluster 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 AbfertigungsLaenderRow Get Return CType(Me.Rows(index),AbfertigungsLaenderRow) End Get End Property _ Public Event AbfertigungsLaenderRowChanging As AbfertigungsLaenderRowChangeEventHandler _ Public Event AbfertigungsLaenderRowChanged As AbfertigungsLaenderRowChangeEventHandler _ Public Event AbfertigungsLaenderRowDeleting As AbfertigungsLaenderRowChangeEventHandler _ Public Event AbfertigungsLaenderRowDeleted As AbfertigungsLaenderRowChangeEventHandler _ Public Overloads Sub AddAbfertigungsLaenderRow(ByVal row As AbfertigungsLaenderRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddAbfertigungsLaenderRow(ByVal AbfertigungsLand As String, ByVal Firma As String, ByVal Cluster As String) As AbfertigungsLaenderRow Dim rowAbfertigungsLaenderRow As AbfertigungsLaenderRow = CType(Me.NewRow,AbfertigungsLaenderRow) Dim columnValuesArray() As Object = New Object() {AbfertigungsLand, Firma, Cluster} rowAbfertigungsLaenderRow.ItemArray = columnValuesArray Me.Rows.Add(rowAbfertigungsLaenderRow) Return rowAbfertigungsLaenderRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As AbfertigungsLaenderDataTable = CType(MyBase.Clone,AbfertigungsLaenderDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New AbfertigungsLaenderDataTable() End Function _ Friend Sub InitVars() Me.columnAbfertigungsLand = MyBase.Columns("AbfertigungsLand") Me.columnFirma = MyBase.Columns("Firma") Me.columnCluster = MyBase.Columns("Cluster") End Sub _ Private Sub InitClass() Me.columnAbfertigungsLand = New Global.System.Data.DataColumn("AbfertigungsLand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsLand) Me.columnFirma = New Global.System.Data.DataColumn("Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma) Me.columnCluster = New Global.System.Data.DataColumn("Cluster", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCluster) Me.columnAbfertigungsLand.AllowDBNull = false Me.columnAbfertigungsLand.MaxLength = 3 Me.columnFirma.MaxLength = 100 Me.columnCluster.MaxLength = 100 End Sub _ Public Function NewAbfertigungsLaenderRow() As AbfertigungsLaenderRow Return CType(Me.NewRow,AbfertigungsLaenderRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New AbfertigungsLaenderRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(AbfertigungsLaenderRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.AbfertigungsLaenderRowChangedEvent) Is Nothing) Then RaiseEvent AbfertigungsLaenderRowChanged(Me, New AbfertigungsLaenderRowChangeEvent(CType(e.Row,AbfertigungsLaenderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.AbfertigungsLaenderRowChangingEvent) Is Nothing) Then RaiseEvent AbfertigungsLaenderRowChanging(Me, New AbfertigungsLaenderRowChangeEvent(CType(e.Row,AbfertigungsLaenderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.AbfertigungsLaenderRowDeletedEvent) Is Nothing) Then RaiseEvent AbfertigungsLaenderRowDeleted(Me, New AbfertigungsLaenderRowChangeEvent(CType(e.Row,AbfertigungsLaenderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.AbfertigungsLaenderRowDeletingEvent) Is Nothing) Then RaiseEvent AbfertigungsLaenderRowDeleting(Me, New AbfertigungsLaenderRowChangeEvent(CType(e.Row,AbfertigungsLaenderRow), e.Action)) End If End Sub _ Public Sub RemoveAbfertigungsLaenderRow(ByVal row As AbfertigungsLaenderRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "AbfertigungsLaenderDataTable" 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 AbfertigungsLaenderAbfertigungsartenDataTable Inherits Global.System.Data.TypedTableBase(Of AbfertigungsLaenderAbfertigungsartenRow) Private columnAbfertigungsLand As Global.System.Data.DataColumn Private columnAbfertigungsart As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "AbfertigungsLaenderAbfertigungsarten" 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 AbfertigungsLandColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsLand End Get End Property _ Public ReadOnly Property AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsart 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 AbfertigungsLaenderAbfertigungsartenRow Get Return CType(Me.Rows(index),AbfertigungsLaenderAbfertigungsartenRow) End Get End Property _ Public Event AbfertigungsLaenderAbfertigungsartenRowChanging As AbfertigungsLaenderAbfertigungsartenRowChangeEventHandler _ Public Event AbfertigungsLaenderAbfertigungsartenRowChanged As AbfertigungsLaenderAbfertigungsartenRowChangeEventHandler _ Public Event AbfertigungsLaenderAbfertigungsartenRowDeleting As AbfertigungsLaenderAbfertigungsartenRowChangeEventHandler _ Public Event AbfertigungsLaenderAbfertigungsartenRowDeleted As AbfertigungsLaenderAbfertigungsartenRowChangeEventHandler _ Public Overloads Sub AddAbfertigungsLaenderAbfertigungsartenRow(ByVal row As AbfertigungsLaenderAbfertigungsartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddAbfertigungsLaenderAbfertigungsartenRow(ByVal AbfertigungsLand As String, ByVal Abfertigungsart As Short) As AbfertigungsLaenderAbfertigungsartenRow Dim rowAbfertigungsLaenderAbfertigungsartenRow As AbfertigungsLaenderAbfertigungsartenRow = CType(Me.NewRow,AbfertigungsLaenderAbfertigungsartenRow) Dim columnValuesArray() As Object = New Object() {AbfertigungsLand, Abfertigungsart} rowAbfertigungsLaenderAbfertigungsartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowAbfertigungsLaenderAbfertigungsartenRow) Return rowAbfertigungsLaenderAbfertigungsartenRow End Function _ Public Function FindByAbfertigungsLandAbfertigungsart(ByVal AbfertigungsLand As String, ByVal Abfertigungsart As Short) As AbfertigungsLaenderAbfertigungsartenRow Return CType(Me.Rows.Find(New Object() {AbfertigungsLand, Abfertigungsart}),AbfertigungsLaenderAbfertigungsartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As AbfertigungsLaenderAbfertigungsartenDataTable = CType(MyBase.Clone,AbfertigungsLaenderAbfertigungsartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New AbfertigungsLaenderAbfertigungsartenDataTable() End Function _ Friend Sub InitVars() Me.columnAbfertigungsLand = MyBase.Columns("AbfertigungsLand") Me.columnAbfertigungsart = MyBase.Columns("Abfertigungsart") End Sub _ Private Sub InitClass() Me.columnAbfertigungsLand = New Global.System.Data.DataColumn("AbfertigungsLand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsLand) Me.columnAbfertigungsart = New Global.System.Data.DataColumn("Abfertigungsart", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsart) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAbfertigungsLand, Me.columnAbfertigungsart}, true)) Me.columnAbfertigungsLand.AllowDBNull = false Me.columnAbfertigungsLand.MaxLength = 3 Me.columnAbfertigungsart.AllowDBNull = false End Sub _ Public Function NewAbfertigungsLaenderAbfertigungsartenRow() As AbfertigungsLaenderAbfertigungsartenRow Return CType(Me.NewRow,AbfertigungsLaenderAbfertigungsartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New AbfertigungsLaenderAbfertigungsartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(AbfertigungsLaenderAbfertigungsartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.AbfertigungsLaenderAbfertigungsartenRowChangedEvent) Is Nothing) Then RaiseEvent AbfertigungsLaenderAbfertigungsartenRowChanged(Me, New AbfertigungsLaenderAbfertigungsartenRowChangeEvent(CType(e.Row,AbfertigungsLaenderAbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.AbfertigungsLaenderAbfertigungsartenRowChangingEvent) Is Nothing) Then RaiseEvent AbfertigungsLaenderAbfertigungsartenRowChanging(Me, New AbfertigungsLaenderAbfertigungsartenRowChangeEvent(CType(e.Row,AbfertigungsLaenderAbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.AbfertigungsLaenderAbfertigungsartenRowDeletedEvent) Is Nothing) Then RaiseEvent AbfertigungsLaenderAbfertigungsartenRowDeleted(Me, New AbfertigungsLaenderAbfertigungsartenRowChangeEvent(CType(e.Row,AbfertigungsLaenderAbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.AbfertigungsLaenderAbfertigungsartenRowDeletingEvent) Is Nothing) Then RaiseEvent AbfertigungsLaenderAbfertigungsartenRowDeleting(Me, New AbfertigungsLaenderAbfertigungsartenRowChangeEvent(CType(e.Row,AbfertigungsLaenderAbfertigungsartenRow), e.Action)) End If End Sub _ Public Sub RemoveAbfertigungsLaenderAbfertigungsartenRow(ByVal row As AbfertigungsLaenderAbfertigungsartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "AbfertigungsLaenderAbfertigungsartenDataTable" 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 AbgabenartenDataTable Inherits Global.System.Data.TypedTableBase(Of AbgabenartenRow) Private columnID As Global.System.Data.DataColumn Private columnAbgabenart As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Abgabenarten" 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 AbgabenartColumn() As Global.System.Data.DataColumn Get Return Me.columnAbgabenart End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 AbgabenartenRow Get Return CType(Me.Rows(index),AbgabenartenRow) End Get End Property _ Public Event AbgabenartenRowChanging As AbgabenartenRowChangeEventHandler _ Public Event AbgabenartenRowChanged As AbgabenartenRowChangeEventHandler _ Public Event AbgabenartenRowDeleting As AbgabenartenRowChangeEventHandler _ Public Event AbgabenartenRowDeleted As AbgabenartenRowChangeEventHandler _ Public Overloads Sub AddAbgabenartenRow(ByVal row As AbgabenartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddAbgabenartenRow(ByVal ID As String, ByVal Abgabenart As String, ByVal SSMA_TimeStamp() As Byte) As AbgabenartenRow Dim rowAbgabenartenRow As AbgabenartenRow = CType(Me.NewRow,AbgabenartenRow) Dim columnValuesArray() As Object = New Object() {ID, Abgabenart, SSMA_TimeStamp} rowAbgabenartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowAbgabenartenRow) Return rowAbgabenartenRow End Function _ Public Function FindByID(ByVal ID As String) As AbgabenartenRow Return CType(Me.Rows.Find(New Object() {ID}),AbgabenartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As AbgabenartenDataTable = CType(MyBase.Clone,AbgabenartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New AbgabenartenDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnAbgabenart = MyBase.Columns("Abgabenart") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnAbgabenart = New Global.System.Data.DataColumn("Abgabenart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbgabenart) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) 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.columnID.MaxLength = 3 Me.columnAbgabenart.AllowDBNull = false Me.columnAbgabenart.MaxLength = 115 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewAbgabenartenRow() As AbgabenartenRow Return CType(Me.NewRow,AbgabenartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New AbgabenartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(AbgabenartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.AbgabenartenRowChangedEvent) Is Nothing) Then RaiseEvent AbgabenartenRowChanged(Me, New AbgabenartenRowChangeEvent(CType(e.Row,AbgabenartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.AbgabenartenRowChangingEvent) Is Nothing) Then RaiseEvent AbgabenartenRowChanging(Me, New AbgabenartenRowChangeEvent(CType(e.Row,AbgabenartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.AbgabenartenRowDeletedEvent) Is Nothing) Then RaiseEvent AbgabenartenRowDeleted(Me, New AbgabenartenRowChangeEvent(CType(e.Row,AbgabenartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.AbgabenartenRowDeletingEvent) Is Nothing) Then RaiseEvent AbgabenartenRowDeleting(Me, New AbgabenartenRowChangeEvent(CType(e.Row,AbgabenartenRow), e.Action)) End If End Sub _ Public Sub RemoveAbgabenartenRow(ByVal row As AbgabenartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "AbgabenartenDataTable" 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 AdressenDataTable Inherits Global.System.Data.TypedTableBase(Of AdressenRow) Private columnAuswahl As Global.System.Data.DataColumn Private columnAdressenNr As Global.System.Data.DataColumn Private columnOrdnungsbegriff As Global.System.Data.DataColumn Private columnName_1 As Global.System.Data.DataColumn Private columnName_2 As Global.System.Data.DataColumn Private columnPostfach As Global.System.Data.DataColumn Private columnPLZPF As Global.System.Data.DataColumn Private columnStraße As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnPLZ As Global.System.Data.DataColumn Private columnOrt As Global.System.Data.DataColumn Private columnTelefon As Global.System.Data.DataColumn Private columnTelefax As Global.System.Data.DataColumn Private columnMobiltelefon As Global.System.Data.DataColumn Private _columnE_Mail As Global.System.Data.DataColumn Private _columnE_Mail2 As Global.System.Data.DataColumn Private columnAnrede As Global.System.Data.DataColumn Private columnAnsprechpartner As Global.System.Data.DataColumn Private columnUstIdKz As Global.System.Data.DataColumn Private columnUstIdNr As Global.System.Data.DataColumn Private columnUstIdGeprüft As Global.System.Data.DataColumn Private columnBLZ As Global.System.Data.DataColumn Private columnKTO As Global.System.Data.DataColumn Private columnEingegeben_am As Global.System.Data.DataColumn Private columnGeändert_am As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnRechnungsdruck As Global.System.Data.DataColumn Private columnSteuernummer As Global.System.Data.DataColumn Private columnIDSKundenNr As Global.System.Data.DataColumn Private columnWölflKundenNr As Global.System.Data.DataColumn Private columnMSEKundenNr As Global.System.Data.DataColumn Private columnMSEExportCSV As Global.System.Data.DataColumn Private _columnTELEPASS_Kd_Nr As Global.System.Data.DataColumn Private columnASFINAGExportCSV As Global.System.Data.DataColumn Private columnUStV_GVAnfDat As Global.System.Data.DataColumn Private columnUStV_GVAusDat As Global.System.Data.DataColumn Private columnExportMautberichtCSV As Global.System.Data.DataColumn Private columnUTAKundenNr As Global.System.Data.DataColumn Private columnUTAExportCSV As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnMWSTVorauszahlung As Global.System.Data.DataColumn Private columnPLOSEKundenNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Adressen" 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 AuswahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAuswahl End Get End Property _ Public ReadOnly Property AdressenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAdressenNr End Get End Property _ Public ReadOnly Property OrdnungsbegriffColumn() As Global.System.Data.DataColumn Get Return Me.columnOrdnungsbegriff End Get End Property _ Public ReadOnly Property Name_1Column() As Global.System.Data.DataColumn Get Return Me.columnName_1 End Get End Property _ Public ReadOnly Property Name_2Column() As Global.System.Data.DataColumn Get Return Me.columnName_2 End Get End Property _ Public ReadOnly Property PostfachColumn() As Global.System.Data.DataColumn Get Return Me.columnPostfach End Get End Property _ Public ReadOnly Property PLZPFColumn() As Global.System.Data.DataColumn Get Return Me.columnPLZPF End Get End Property _ Public ReadOnly Property StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnStraße End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnPLZ End Get End Property _ Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnOrt End Get End Property _ Public ReadOnly Property TelefonColumn() As Global.System.Data.DataColumn Get Return Me.columnTelefon End Get End Property _ Public ReadOnly Property TelefaxColumn() As Global.System.Data.DataColumn Get Return Me.columnTelefax End Get End Property _ Public ReadOnly Property MobiltelefonColumn() As Global.System.Data.DataColumn Get Return Me.columnMobiltelefon End Get End Property _ Public ReadOnly Property _E_MailColumn() As Global.System.Data.DataColumn Get Return Me._columnE_Mail End Get End Property _ Public ReadOnly Property _E_Mail2Column() As Global.System.Data.DataColumn Get Return Me._columnE_Mail2 End Get End Property _ Public ReadOnly Property AnredeColumn() As Global.System.Data.DataColumn Get Return Me.columnAnrede End Get End Property _ Public ReadOnly Property AnsprechpartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnAnsprechpartner End Get End Property _ Public ReadOnly Property UstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdKz End Get End Property _ Public ReadOnly Property UstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdNr End Get End Property _ Public ReadOnly Property UstIdGeprüftColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdGeprüft End Get End Property _ Public ReadOnly Property BLZColumn() As Global.System.Data.DataColumn Get Return Me.columnBLZ End Get End Property _ Public ReadOnly Property KTOColumn() As Global.System.Data.DataColumn Get Return Me.columnKTO End Get End Property _ Public ReadOnly Property Eingegeben_amColumn() As Global.System.Data.DataColumn Get Return Me.columnEingegeben_am End Get End Property _ Public ReadOnly Property Geändert_amColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändert_am End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property RechnungsdruckColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdruck End Get End Property _ Public ReadOnly Property SteuernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuernummer End Get End Property _ Public ReadOnly Property IDSKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnIDSKundenNr End Get End Property _ Public ReadOnly Property WölflKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnWölflKundenNr End Get End Property _ Public ReadOnly Property MSEKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnMSEKundenNr End Get End Property _ Public ReadOnly Property MSEExportCSVColumn() As Global.System.Data.DataColumn Get Return Me.columnMSEExportCSV End Get End Property _ Public ReadOnly Property _TELEPASS_Kd_NrColumn() As Global.System.Data.DataColumn Get Return Me._columnTELEPASS_Kd_Nr End Get End Property _ Public ReadOnly Property ASFINAGExportCSVColumn() As Global.System.Data.DataColumn Get Return Me.columnASFINAGExportCSV End Get End Property _ Public ReadOnly Property UStV_GVAnfDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_GVAnfDat End Get End Property _ Public ReadOnly Property UStV_GVAusDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_GVAusDat End Get End Property _ Public ReadOnly Property ExportMautberichtCSVColumn() As Global.System.Data.DataColumn Get Return Me.columnExportMautberichtCSV End Get End Property _ Public ReadOnly Property UTAKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUTAKundenNr End Get End Property _ Public ReadOnly Property UTAExportCSVColumn() As Global.System.Data.DataColumn Get Return Me.columnUTAExportCSV End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property MWSTVorauszahlungColumn() As Global.System.Data.DataColumn Get Return Me.columnMWSTVorauszahlung End Get End Property _ Public ReadOnly Property PLOSEKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPLOSEKundenNr 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 AdressenRow Get Return CType(Me.Rows(index),AdressenRow) End Get End Property _ Public Event AdressenRowChanging As AdressenRowChangeEventHandler _ Public Event AdressenRowChanged As AdressenRowChangeEventHandler _ Public Event AdressenRowDeleting As AdressenRowChangeEventHandler _ Public Event AdressenRowDeleted As AdressenRowChangeEventHandler _ Public Overloads Sub AddAdressenRow(ByVal row As AdressenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddAdressenRow( _ ByVal Auswahl As String, _ ByVal AdressenNr As Integer, _ ByVal Ordnungsbegriff As String, _ ByVal Name_1 As String, _ ByVal Name_2 As String, _ ByVal Postfach As String, _ ByVal PLZPF As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal Telefon As String, _ ByVal Telefax As String, _ ByVal Mobiltelefon As String, _ ByVal _E_Mail As String, _ ByVal _E_Mail2 As String, _ ByVal Anrede As String, _ ByVal Ansprechpartner As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal UstIdGeprüft As Date, _ ByVal BLZ As String, _ ByVal KTO As String, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Date, _ ByVal Sachbearbeiter As String, _ ByVal Rechnungsdruck As Short, _ ByVal Steuernummer As String, _ ByVal IDSKundenNr As Integer, _ ByVal WölflKundenNr As Integer, _ ByVal MSEKundenNr As Integer, _ ByVal MSEExportCSV As Boolean, _ ByVal _TELEPASS_Kd_Nr As Integer, _ ByVal ASFINAGExportCSV As Boolean, _ ByVal UStV_GVAnfDat As Date, _ ByVal UStV_GVAusDat As Date, _ ByVal ExportMautberichtCSV As Boolean, _ ByVal UTAKundenNr As Integer, _ ByVal UTAExportCSV As Boolean, _ ByVal SSMA_TimeStamp() As Byte, _ ByVal MWSTVorauszahlung As Boolean, _ ByVal PLOSEKundenNr As Integer) As AdressenRow Dim rowAdressenRow As AdressenRow = CType(Me.NewRow,AdressenRow) Dim columnValuesArray() As Object = New Object() {Auswahl, AdressenNr, Ordnungsbegriff, Name_1, Name_2, Postfach, PLZPF, Straße, LandKz, PLZ, Ort, Telefon, Telefax, Mobiltelefon, _E_Mail, _E_Mail2, Anrede, Ansprechpartner, UstIdKz, UstIdNr, UstIdGeprüft, BLZ, KTO, Eingegeben_am, Geändert_am, Sachbearbeiter, Rechnungsdruck, Steuernummer, IDSKundenNr, WölflKundenNr, MSEKundenNr, MSEExportCSV, _TELEPASS_Kd_Nr, ASFINAGExportCSV, UStV_GVAnfDat, UStV_GVAusDat, ExportMautberichtCSV, UTAKundenNr, UTAExportCSV, SSMA_TimeStamp, MWSTVorauszahlung, PLOSEKundenNr} rowAdressenRow.ItemArray = columnValuesArray Me.Rows.Add(rowAdressenRow) Return rowAdressenRow End Function _ Public Function FindByAdressenNr(ByVal AdressenNr As Integer) As AdressenRow Return CType(Me.Rows.Find(New Object() {AdressenNr}),AdressenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As AdressenDataTable = CType(MyBase.Clone,AdressenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New AdressenDataTable() End Function _ Friend Sub InitVars() Me.columnAuswahl = MyBase.Columns("Auswahl") Me.columnAdressenNr = MyBase.Columns("AdressenNr") Me.columnOrdnungsbegriff = MyBase.Columns("Ordnungsbegriff") Me.columnName_1 = MyBase.Columns("Name 1") Me.columnName_2 = MyBase.Columns("Name 2") Me.columnPostfach = MyBase.Columns("Postfach") Me.columnPLZPF = MyBase.Columns("PLZPF") Me.columnStraße = MyBase.Columns("Straße") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnPLZ = MyBase.Columns("PLZ") Me.columnOrt = MyBase.Columns("Ort") Me.columnTelefon = MyBase.Columns("Telefon") Me.columnTelefax = MyBase.Columns("Telefax") Me.columnMobiltelefon = MyBase.Columns("Mobiltelefon") Me._columnE_Mail = MyBase.Columns("E-Mail") Me._columnE_Mail2 = MyBase.Columns("E-Mail2") Me.columnAnrede = MyBase.Columns("Anrede") Me.columnAnsprechpartner = MyBase.Columns("Ansprechpartner") Me.columnUstIdKz = MyBase.Columns("UstIdKz") Me.columnUstIdNr = MyBase.Columns("UstIdNr") Me.columnUstIdGeprüft = MyBase.Columns("UstIdGeprüft") Me.columnBLZ = MyBase.Columns("BLZ") Me.columnKTO = MyBase.Columns("KTO") Me.columnEingegeben_am = MyBase.Columns("Eingegeben am") Me.columnGeändert_am = MyBase.Columns("Geändert am") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnRechnungsdruck = MyBase.Columns("Rechnungsdruck") Me.columnSteuernummer = MyBase.Columns("Steuernummer") Me.columnIDSKundenNr = MyBase.Columns("IDSKundenNr") Me.columnWölflKundenNr = MyBase.Columns("WölflKundenNr") Me.columnMSEKundenNr = MyBase.Columns("MSEKundenNr") Me.columnMSEExportCSV = MyBase.Columns("MSEExportCSV") Me._columnTELEPASS_Kd_Nr = MyBase.Columns("TELEPASS-Kd-Nr") Me.columnASFINAGExportCSV = MyBase.Columns("ASFINAGExportCSV") Me.columnUStV_GVAnfDat = MyBase.Columns("UStV_GVAnfDat") Me.columnUStV_GVAusDat = MyBase.Columns("UStV_GVAusDat") Me.columnExportMautberichtCSV = MyBase.Columns("ExportMautberichtCSV") Me.columnUTAKundenNr = MyBase.Columns("UTAKundenNr") Me.columnUTAExportCSV = MyBase.Columns("UTAExportCSV") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnMWSTVorauszahlung = MyBase.Columns("MWSTVorauszahlung") Me.columnPLOSEKundenNr = MyBase.Columns("PLOSEKundenNr") End Sub _ Private Sub InitClass() Me.columnAuswahl = New Global.System.Data.DataColumn("Auswahl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAuswahl) Me.columnAdressenNr = New Global.System.Data.DataColumn("AdressenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAdressenNr) Me.columnOrdnungsbegriff = New Global.System.Data.DataColumn("Ordnungsbegriff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrdnungsbegriff) Me.columnName_1 = New Global.System.Data.DataColumn("Name 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName_1) Me.columnName_2 = New Global.System.Data.DataColumn("Name 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName_2) Me.columnPostfach = New Global.System.Data.DataColumn("Postfach", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPostfach) Me.columnPLZPF = New Global.System.Data.DataColumn("PLZPF", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLZPF) Me.columnStraße = New Global.System.Data.DataColumn("Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStraße) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLZ) Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrt) Me.columnTelefon = New Global.System.Data.DataColumn("Telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelefon) Me.columnTelefax = New Global.System.Data.DataColumn("Telefax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelefax) Me.columnMobiltelefon = New Global.System.Data.DataColumn("Mobiltelefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMobiltelefon) Me._columnE_Mail = New Global.System.Data.DataColumn("E-Mail", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnE_Mail.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnE_Mail") Me._columnE_Mail.ExtendedProperties.Add("Generator_UserColumnName", "E-Mail") MyBase.Columns.Add(Me._columnE_Mail) Me._columnE_Mail2 = New Global.System.Data.DataColumn("E-Mail2", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnE_Mail2.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnE_Mail2") Me._columnE_Mail2.ExtendedProperties.Add("Generator_UserColumnName", "E-Mail2") MyBase.Columns.Add(Me._columnE_Mail2) Me.columnAnrede = New Global.System.Data.DataColumn("Anrede", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnrede) Me.columnAnsprechpartner = New Global.System.Data.DataColumn("Ansprechpartner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnsprechpartner) Me.columnUstIdKz = New Global.System.Data.DataColumn("UstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdKz) Me.columnUstIdNr = New Global.System.Data.DataColumn("UstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdNr) Me.columnUstIdGeprüft = New Global.System.Data.DataColumn("UstIdGeprüft", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdGeprüft) Me.columnBLZ = New Global.System.Data.DataColumn("BLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBLZ) Me.columnKTO = New Global.System.Data.DataColumn("KTO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKTO) Me.columnEingegeben_am = New Global.System.Data.DataColumn("Eingegeben am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingegeben_am) Me.columnGeändert_am = New Global.System.Data.DataColumn("Geändert am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändert_am) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnRechnungsdruck = New Global.System.Data.DataColumn("Rechnungsdruck", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdruck) Me.columnSteuernummer = New Global.System.Data.DataColumn("Steuernummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuernummer) Me.columnIDSKundenNr = New Global.System.Data.DataColumn("IDSKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIDSKundenNr) Me.columnWölflKundenNr = New Global.System.Data.DataColumn("WölflKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWölflKundenNr) Me.columnMSEKundenNr = New Global.System.Data.DataColumn("MSEKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMSEKundenNr) Me.columnMSEExportCSV = New Global.System.Data.DataColumn("MSEExportCSV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMSEExportCSV) Me._columnTELEPASS_Kd_Nr = New Global.System.Data.DataColumn("TELEPASS-Kd-Nr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) Me._columnTELEPASS_Kd_Nr.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTELEPASS_Kd_Nr") Me._columnTELEPASS_Kd_Nr.ExtendedProperties.Add("Generator_UserColumnName", "TELEPASS-Kd-Nr") MyBase.Columns.Add(Me._columnTELEPASS_Kd_Nr) Me.columnASFINAGExportCSV = New Global.System.Data.DataColumn("ASFINAGExportCSV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnASFINAGExportCSV) Me.columnUStV_GVAnfDat = New Global.System.Data.DataColumn("UStV_GVAnfDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_GVAnfDat) Me.columnUStV_GVAusDat = New Global.System.Data.DataColumn("UStV_GVAusDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_GVAusDat) Me.columnExportMautberichtCSV = New Global.System.Data.DataColumn("ExportMautberichtCSV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExportMautberichtCSV) Me.columnUTAKundenNr = New Global.System.Data.DataColumn("UTAKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUTAKundenNr) Me.columnUTAExportCSV = New Global.System.Data.DataColumn("UTAExportCSV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUTAExportCSV) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnMWSTVorauszahlung = New Global.System.Data.DataColumn("MWSTVorauszahlung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMWSTVorauszahlung) Me.columnPLOSEKundenNr = New Global.System.Data.DataColumn("PLOSEKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLOSEKundenNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdressenNr}, true)) Me.columnAuswahl.AllowDBNull = false Me.columnAuswahl.MaxLength = 1 Me.columnAdressenNr.AllowDBNull = false Me.columnAdressenNr.Unique = true Me.columnOrdnungsbegriff.AllowDBNull = false Me.columnOrdnungsbegriff.MaxLength = 50 Me.columnName_1.MaxLength = 40 Me.columnName_2.MaxLength = 40 Me.columnPostfach.MaxLength = 6 Me.columnPLZPF.MaxLength = 7 Me.columnStraße.MaxLength = 40 Me.columnLandKz.MaxLength = 3 Me.columnPLZ.MaxLength = 7 Me.columnOrt.MaxLength = 40 Me.columnTelefon.MaxLength = 20 Me.columnTelefax.MaxLength = 20 Me.columnMobiltelefon.MaxLength = 50 Me._columnE_Mail.MaxLength = 40 Me._columnE_Mail2.MaxLength = 40 Me.columnAnrede.MaxLength = 4 Me.columnAnsprechpartner.MaxLength = 40 Me.columnUstIdKz.MaxLength = 2 Me.columnUstIdNr.MaxLength = 12 Me.columnBLZ.MaxLength = 8 Me.columnKTO.MaxLength = 12 Me.columnEingegeben_am.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnRechnungsdruck.AllowDBNull = false Me.columnSteuernummer.MaxLength = 20 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewAdressenRow() As AdressenRow Return CType(Me.NewRow,AdressenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New AdressenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(AdressenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.AdressenRowChangedEvent) Is Nothing) Then RaiseEvent AdressenRowChanged(Me, New AdressenRowChangeEvent(CType(e.Row,AdressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.AdressenRowChangingEvent) Is Nothing) Then RaiseEvent AdressenRowChanging(Me, New AdressenRowChangeEvent(CType(e.Row,AdressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.AdressenRowDeletedEvent) Is Nothing) Then RaiseEvent AdressenRowDeleted(Me, New AdressenRowChangeEvent(CType(e.Row,AdressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.AdressenRowDeletingEvent) Is Nothing) Then RaiseEvent AdressenRowDeleting(Me, New AdressenRowChangeEvent(CType(e.Row,AdressenRow), e.Action)) End If End Sub _ Public Sub RemoveAdressenRow(ByVal row As AdressenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "AdressenDataTable" 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 AktivitätenlogDataTable Inherits Global.System.Data.TypedTableBase(Of AktivitätenlogRow) Private columnID As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnBenutzername As Global.System.Data.DataColumn Private columnAktivität As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Aktivitätenlog" 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 ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property BenutzernameColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzername End Get End Property _ Public ReadOnly Property AktivitätColumn() As Global.System.Data.DataColumn Get Return Me.columnAktivität End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 AktivitätenlogRow Get Return CType(Me.Rows(index),AktivitätenlogRow) End Get End Property _ Public Event AktivitätenlogRowChanging As AktivitätenlogRowChangeEventHandler _ Public Event AktivitätenlogRowChanged As AktivitätenlogRowChangeEventHandler _ Public Event AktivitätenlogRowDeleting As AktivitätenlogRowChangeEventHandler _ Public Event AktivitätenlogRowDeleted As AktivitätenlogRowChangeEventHandler _ Public Overloads Sub AddAktivitätenlogRow(ByVal row As AktivitätenlogRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddAktivitätenlogRow(ByVal Zeitstempel As Date, ByVal Benutzername As String, ByVal Aktivität As String, ByVal SSMA_TimeStamp() As Byte) As AktivitätenlogRow Dim rowAktivitätenlogRow As AktivitätenlogRow = CType(Me.NewRow,AktivitätenlogRow) Dim columnValuesArray() As Object = New Object() {Nothing, Zeitstempel, Benutzername, Aktivität, SSMA_TimeStamp} rowAktivitätenlogRow.ItemArray = columnValuesArray Me.Rows.Add(rowAktivitätenlogRow) Return rowAktivitätenlogRow End Function _ Public Function FindByID(ByVal ID As Integer) As AktivitätenlogRow Return CType(Me.Rows.Find(New Object() {ID}),AktivitätenlogRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As AktivitätenlogDataTable = CType(MyBase.Clone,AktivitätenlogDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New AktivitätenlogDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnBenutzername = MyBase.Columns("Benutzername") Me.columnAktivität = MyBase.Columns("Aktivität") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") 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.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnBenutzername = New Global.System.Data.DataColumn("Benutzername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzername) Me.columnAktivität = New Global.System.Data.DataColumn("Aktivität", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAktivität) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnZeitstempel.AllowDBNull = false Me.columnBenutzername.AllowDBNull = false Me.columnBenutzername.MaxLength = 50 Me.columnAktivität.AllowDBNull = false Me.columnAktivität.MaxLength = 255 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewAktivitätenlogRow() As AktivitätenlogRow Return CType(Me.NewRow,AktivitätenlogRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New AktivitätenlogRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(AktivitätenlogRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.AktivitätenlogRowChangedEvent) Is Nothing) Then RaiseEvent AktivitätenlogRowChanged(Me, New AktivitätenlogRowChangeEvent(CType(e.Row,AktivitätenlogRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.AktivitätenlogRowChangingEvent) Is Nothing) Then RaiseEvent AktivitätenlogRowChanging(Me, New AktivitätenlogRowChangeEvent(CType(e.Row,AktivitätenlogRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.AktivitätenlogRowDeletedEvent) Is Nothing) Then RaiseEvent AktivitätenlogRowDeleted(Me, New AktivitätenlogRowChangeEvent(CType(e.Row,AktivitätenlogRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.AktivitätenlogRowDeletingEvent) Is Nothing) Then RaiseEvent AktivitätenlogRowDeleting(Me, New AktivitätenlogRowChangeEvent(CType(e.Row,AktivitätenlogRow), e.Action)) End If End Sub _ Public Sub RemoveAktivitätenlogRow(ByVal row As AktivitätenlogRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "AktivitätenlogDataTable" 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 AnlagenDataTable Inherits Global.System.Data.TypedTableBase(Of AnlagenRow) Private columnAnlagenBez As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Anlagen" 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 AnlagenBezColumn() As Global.System.Data.DataColumn Get Return Me.columnAnlagenBez End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 AnlagenRow Get Return CType(Me.Rows(index),AnlagenRow) End Get End Property _ Public Event AnlagenRowChanging As AnlagenRowChangeEventHandler _ Public Event AnlagenRowChanged As AnlagenRowChangeEventHandler _ Public Event AnlagenRowDeleting As AnlagenRowChangeEventHandler _ Public Event AnlagenRowDeleted As AnlagenRowChangeEventHandler _ Public Overloads Sub AddAnlagenRow(ByVal row As AnlagenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddAnlagenRow(ByVal AnlagenBez As String, ByVal SSMA_TimeStamp() As Byte) As AnlagenRow Dim rowAnlagenRow As AnlagenRow = CType(Me.NewRow,AnlagenRow) Dim columnValuesArray() As Object = New Object() {AnlagenBez, SSMA_TimeStamp} rowAnlagenRow.ItemArray = columnValuesArray Me.Rows.Add(rowAnlagenRow) Return rowAnlagenRow End Function _ Public Function FindByAnlagenBez(ByVal AnlagenBez As String) As AnlagenRow Return CType(Me.Rows.Find(New Object() {AnlagenBez}),AnlagenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As AnlagenDataTable = CType(MyBase.Clone,AnlagenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New AnlagenDataTable() End Function _ Friend Sub InitVars() Me.columnAnlagenBez = MyBase.Columns("AnlagenBez") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnAnlagenBez = New Global.System.Data.DataColumn("AnlagenBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlagenBez) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAnlagenBez}, true)) Me.columnAnlagenBez.AllowDBNull = false Me.columnAnlagenBez.Unique = true Me.columnAnlagenBez.MaxLength = 35 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewAnlagenRow() As AnlagenRow Return CType(Me.NewRow,AnlagenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New AnlagenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(AnlagenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.AnlagenRowChangedEvent) Is Nothing) Then RaiseEvent AnlagenRowChanged(Me, New AnlagenRowChangeEvent(CType(e.Row,AnlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.AnlagenRowChangingEvent) Is Nothing) Then RaiseEvent AnlagenRowChanging(Me, New AnlagenRowChangeEvent(CType(e.Row,AnlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.AnlagenRowDeletedEvent) Is Nothing) Then RaiseEvent AnlagenRowDeleted(Me, New AnlagenRowChangeEvent(CType(e.Row,AnlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.AnlagenRowDeletingEvent) Is Nothing) Then RaiseEvent AnlagenRowDeleting(Me, New AnlagenRowChangeEvent(CType(e.Row,AnlagenRow), e.Action)) End If End Sub _ Public Sub RemoveAnlagenRow(ByVal row As AnlagenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "AnlagenDataTable" 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 atlas_statusDataTable Inherits Global.System.Data.TypedTableBase(Of atlas_statusRow) Private columnzbant_stat As Global.System.Data.DataColumn Private columnfiskal_freigabe As Global.System.Data.DataColumn Private columnbedeutung As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "atlas_status" 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 zbant_statColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_stat End Get End Property _ Public ReadOnly Property fiskal_freigabeColumn() As Global.System.Data.DataColumn Get Return Me.columnfiskal_freigabe End Get End Property _ Public ReadOnly Property bedeutungColumn() As Global.System.Data.DataColumn Get Return Me.columnbedeutung End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 atlas_statusRow Get Return CType(Me.Rows(index),atlas_statusRow) End Get End Property _ Public Event atlas_statusRowChanging As atlas_statusRowChangeEventHandler _ Public Event atlas_statusRowChanged As atlas_statusRowChangeEventHandler _ Public Event atlas_statusRowDeleting As atlas_statusRowChangeEventHandler _ Public Event atlas_statusRowDeleted As atlas_statusRowChangeEventHandler _ Public Overloads Sub Addatlas_statusRow(ByVal row As atlas_statusRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addatlas_statusRow(ByVal zbant_stat As Short, ByVal fiskal_freigabe As Boolean, ByVal bedeutung As String, ByVal SSMA_TimeStamp() As Byte) As atlas_statusRow Dim rowatlas_statusRow As atlas_statusRow = CType(Me.NewRow,atlas_statusRow) Dim columnValuesArray() As Object = New Object() {zbant_stat, fiskal_freigabe, bedeutung, SSMA_TimeStamp} rowatlas_statusRow.ItemArray = columnValuesArray Me.Rows.Add(rowatlas_statusRow) Return rowatlas_statusRow End Function _ Public Function FindByzbant_stat(ByVal zbant_stat As Short) As atlas_statusRow Return CType(Me.Rows.Find(New Object() {zbant_stat}),atlas_statusRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As atlas_statusDataTable = CType(MyBase.Clone,atlas_statusDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New atlas_statusDataTable() End Function _ Friend Sub InitVars() Me.columnzbant_stat = MyBase.Columns("zbant_stat") Me.columnfiskal_freigabe = MyBase.Columns("fiskal_freigabe") Me.columnbedeutung = MyBase.Columns("bedeutung") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnzbant_stat = New Global.System.Data.DataColumn("zbant_stat", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_stat) Me.columnfiskal_freigabe = New Global.System.Data.DataColumn("fiskal_freigabe", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfiskal_freigabe) Me.columnbedeutung = New Global.System.Data.DataColumn("bedeutung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbedeutung) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnzbant_stat}, true)) Me.columnzbant_stat.AllowDBNull = false Me.columnzbant_stat.Unique = true Me.columnfiskal_freigabe.AllowDBNull = false Me.columnbedeutung.MaxLength = 2147483647 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newatlas_statusRow() As atlas_statusRow Return CType(Me.NewRow,atlas_statusRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New atlas_statusRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(atlas_statusRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.atlas_statusRowChangedEvent) Is Nothing) Then RaiseEvent atlas_statusRowChanged(Me, New atlas_statusRowChangeEvent(CType(e.Row,atlas_statusRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.atlas_statusRowChangingEvent) Is Nothing) Then RaiseEvent atlas_statusRowChanging(Me, New atlas_statusRowChangeEvent(CType(e.Row,atlas_statusRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.atlas_statusRowDeletedEvent) Is Nothing) Then RaiseEvent atlas_statusRowDeleted(Me, New atlas_statusRowChangeEvent(CType(e.Row,atlas_statusRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.atlas_statusRowDeletingEvent) Is Nothing) Then RaiseEvent atlas_statusRowDeleting(Me, New atlas_statusRowChangeEvent(CType(e.Row,atlas_statusRow), e.Action)) End If End Sub _ Public Sub Removeatlas_statusRow(ByVal row As atlas_statusRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "atlas_statusDataTable" 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 AufschubdatenDataTable Inherits Global.System.Data.TypedTableBase(Of AufschubdatenRow) Private columnAufschubkontoNr As Global.System.Data.DataColumn Private columnFälligkeit As Global.System.Data.DataColumn Private columnVorbuchNr As Global.System.Data.DataColumn Private columnBuchungsdatum As Global.System.Data.DataColumn Private columnAbfertigungsort As Global.System.Data.DataColumn Private columnWährungsKz As Global.System.Data.DataColumn Private columnBetrag As Global.System.Data.DataColumn Private columnFakturiert As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Aufschubdaten" 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 AufschubkontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkontoNr End Get End Property _ Public ReadOnly Property FälligkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnFälligkeit End Get End Property _ Public ReadOnly Property VorbuchNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVorbuchNr End Get End Property _ Public ReadOnly Property BuchungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsdatum End Get End Property _ Public ReadOnly Property AbfertigungsortColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsort End Get End Property _ Public ReadOnly Property WährungsKzColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungsKz End Get End Property _ Public ReadOnly Property BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag End Get End Property _ Public ReadOnly Property FakturiertColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturiert End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 AufschubdatenRow Get Return CType(Me.Rows(index),AufschubdatenRow) End Get End Property _ Public Event AufschubdatenRowChanging As AufschubdatenRowChangeEventHandler _ Public Event AufschubdatenRowChanged As AufschubdatenRowChangeEventHandler _ Public Event AufschubdatenRowDeleting As AufschubdatenRowChangeEventHandler _ Public Event AufschubdatenRowDeleted As AufschubdatenRowChangeEventHandler _ Public Overloads Sub AddAufschubdatenRow(ByVal row As AufschubdatenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddAufschubdatenRow(ByVal AufschubkontoNr As String, ByVal Fälligkeit As Date, ByVal VorbuchNr As String, ByVal Buchungsdatum As Date, ByVal Abfertigungsort As String, ByVal WährungsKz As String, ByVal Betrag As Decimal, ByVal Fakturiert As Decimal, ByVal upsize_ts() As Byte) As AufschubdatenRow Dim rowAufschubdatenRow As AufschubdatenRow = CType(Me.NewRow,AufschubdatenRow) Dim columnValuesArray() As Object = New Object() {AufschubkontoNr, Fälligkeit, VorbuchNr, Buchungsdatum, Abfertigungsort, WährungsKz, Betrag, Fakturiert, upsize_ts} rowAufschubdatenRow.ItemArray = columnValuesArray Me.Rows.Add(rowAufschubdatenRow) Return rowAufschubdatenRow End Function _ Public Function FindByAufschubkontoNrFälligkeitVorbuchNr(ByVal AufschubkontoNr As String, ByVal Fälligkeit As Date, ByVal VorbuchNr As String) As AufschubdatenRow Return CType(Me.Rows.Find(New Object() {AufschubkontoNr, Fälligkeit, VorbuchNr}),AufschubdatenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As AufschubdatenDataTable = CType(MyBase.Clone,AufschubdatenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New AufschubdatenDataTable() End Function _ Friend Sub InitVars() Me.columnAufschubkontoNr = MyBase.Columns("AufschubkontoNr") Me.columnFälligkeit = MyBase.Columns("Fälligkeit") Me.columnVorbuchNr = MyBase.Columns("VorbuchNr") Me.columnBuchungsdatum = MyBase.Columns("Buchungsdatum") Me.columnAbfertigungsort = MyBase.Columns("Abfertigungsort") Me.columnWährungsKz = MyBase.Columns("WährungsKz") Me.columnBetrag = MyBase.Columns("Betrag") Me.columnFakturiert = MyBase.Columns("Fakturiert") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnAufschubkontoNr = New Global.System.Data.DataColumn("AufschubkontoNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkontoNr) Me.columnFälligkeit = New Global.System.Data.DataColumn("Fälligkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFälligkeit) Me.columnVorbuchNr = New Global.System.Data.DataColumn("VorbuchNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorbuchNr) Me.columnBuchungsdatum = New Global.System.Data.DataColumn("Buchungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsdatum) Me.columnAbfertigungsort = New Global.System.Data.DataColumn("Abfertigungsort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsort) Me.columnWährungsKz = New Global.System.Data.DataColumn("WährungsKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungsKz) Me.columnBetrag = New Global.System.Data.DataColumn("Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag) Me.columnFakturiert = New Global.System.Data.DataColumn("Fakturiert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturiert) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAufschubkontoNr, Me.columnFälligkeit, Me.columnVorbuchNr}, true)) Me.columnAufschubkontoNr.AllowDBNull = false Me.columnAufschubkontoNr.MaxLength = 20 Me.columnFälligkeit.AllowDBNull = false Me.columnVorbuchNr.AllowDBNull = false Me.columnVorbuchNr.MaxLength = 24 Me.columnAbfertigungsort.MaxLength = 27 Me.columnWährungsKz.MaxLength = 1 Me.columnBetrag.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewAufschubdatenRow() As AufschubdatenRow Return CType(Me.NewRow,AufschubdatenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New AufschubdatenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(AufschubdatenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.AufschubdatenRowChangedEvent) Is Nothing) Then RaiseEvent AufschubdatenRowChanged(Me, New AufschubdatenRowChangeEvent(CType(e.Row,AufschubdatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.AufschubdatenRowChangingEvent) Is Nothing) Then RaiseEvent AufschubdatenRowChanging(Me, New AufschubdatenRowChangeEvent(CType(e.Row,AufschubdatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.AufschubdatenRowDeletedEvent) Is Nothing) Then RaiseEvent AufschubdatenRowDeleted(Me, New AufschubdatenRowChangeEvent(CType(e.Row,AufschubdatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.AufschubdatenRowDeletingEvent) Is Nothing) Then RaiseEvent AufschubdatenRowDeleting(Me, New AufschubdatenRowChangeEvent(CType(e.Row,AufschubdatenRow), e.Action)) End If End Sub _ Public Sub RemoveAufschubdatenRow(ByVal row As AufschubdatenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "AufschubdatenDataTable" 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 AufschubkontenDataTable Inherits Global.System.Data.TypedTableBase(Of AufschubkontenRow) Private columnAufschubkontoNr As Global.System.Data.DataColumn Private columnAufschubkontoBez As Global.System.Data.DataColumn Private columnAufschubfälligkeit As Global.System.Data.DataColumn Private columnAufschubdateipfad1 As Global.System.Data.DataColumn Private columnAufschubdateipfad2 As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Aufschubkonten" 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 AufschubkontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkontoNr End Get End Property _ Public ReadOnly Property AufschubkontoBezColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkontoBez End Get End Property _ Public ReadOnly Property AufschubfälligkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubfälligkeit End Get End Property _ Public ReadOnly Property Aufschubdateipfad1Column() As Global.System.Data.DataColumn Get Return Me.columnAufschubdateipfad1 End Get End Property _ Public ReadOnly Property Aufschubdateipfad2Column() As Global.System.Data.DataColumn Get Return Me.columnAufschubdateipfad2 End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 AufschubkontenRow Get Return CType(Me.Rows(index),AufschubkontenRow) End Get End Property _ Public Event AufschubkontenRowChanging As AufschubkontenRowChangeEventHandler _ Public Event AufschubkontenRowChanged As AufschubkontenRowChangeEventHandler _ Public Event AufschubkontenRowDeleting As AufschubkontenRowChangeEventHandler _ Public Event AufschubkontenRowDeleted As AufschubkontenRowChangeEventHandler _ Public Overloads Sub AddAufschubkontenRow(ByVal row As AufschubkontenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddAufschubkontenRow(ByVal AufschubkontoNr As String, ByVal AufschubkontoBez As String, ByVal Aufschubfälligkeit As Date, ByVal Aufschubdateipfad1 As String, ByVal Aufschubdateipfad2 As String, ByVal SSMA_TimeStamp() As Byte) As AufschubkontenRow Dim rowAufschubkontenRow As AufschubkontenRow = CType(Me.NewRow,AufschubkontenRow) Dim columnValuesArray() As Object = New Object() {AufschubkontoNr, AufschubkontoBez, Aufschubfälligkeit, Aufschubdateipfad1, Aufschubdateipfad2, SSMA_TimeStamp} rowAufschubkontenRow.ItemArray = columnValuesArray Me.Rows.Add(rowAufschubkontenRow) Return rowAufschubkontenRow End Function _ Public Function FindByAufschubkontoNr(ByVal AufschubkontoNr As String) As AufschubkontenRow Return CType(Me.Rows.Find(New Object() {AufschubkontoNr}),AufschubkontenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As AufschubkontenDataTable = CType(MyBase.Clone,AufschubkontenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New AufschubkontenDataTable() End Function _ Friend Sub InitVars() Me.columnAufschubkontoNr = MyBase.Columns("AufschubkontoNr") Me.columnAufschubkontoBez = MyBase.Columns("AufschubkontoBez") Me.columnAufschubfälligkeit = MyBase.Columns("Aufschubfälligkeit") Me.columnAufschubdateipfad1 = MyBase.Columns("Aufschubdateipfad1") Me.columnAufschubdateipfad2 = MyBase.Columns("Aufschubdateipfad2") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnAufschubkontoNr = New Global.System.Data.DataColumn("AufschubkontoNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkontoNr) Me.columnAufschubkontoBez = New Global.System.Data.DataColumn("AufschubkontoBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkontoBez) Me.columnAufschubfälligkeit = New Global.System.Data.DataColumn("Aufschubfälligkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubfälligkeit) Me.columnAufschubdateipfad1 = New Global.System.Data.DataColumn("Aufschubdateipfad1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubdateipfad1) Me.columnAufschubdateipfad2 = New Global.System.Data.DataColumn("Aufschubdateipfad2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubdateipfad2) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAufschubkontoNr}, true)) Me.columnAufschubkontoNr.AllowDBNull = false Me.columnAufschubkontoNr.Unique = true Me.columnAufschubkontoNr.MaxLength = 20 Me.columnAufschubkontoBez.AllowDBNull = false Me.columnAufschubkontoBez.MaxLength = 15 Me.columnAufschubdateipfad1.AllowDBNull = false Me.columnAufschubdateipfad1.MaxLength = 50 Me.columnAufschubdateipfad2.AllowDBNull = false Me.columnAufschubdateipfad2.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewAufschubkontenRow() As AufschubkontenRow Return CType(Me.NewRow,AufschubkontenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New AufschubkontenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(AufschubkontenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.AufschubkontenRowChangedEvent) Is Nothing) Then RaiseEvent AufschubkontenRowChanged(Me, New AufschubkontenRowChangeEvent(CType(e.Row,AufschubkontenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.AufschubkontenRowChangingEvent) Is Nothing) Then RaiseEvent AufschubkontenRowChanging(Me, New AufschubkontenRowChangeEvent(CType(e.Row,AufschubkontenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.AufschubkontenRowDeletedEvent) Is Nothing) Then RaiseEvent AufschubkontenRowDeleted(Me, New AufschubkontenRowChangeEvent(CType(e.Row,AufschubkontenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.AufschubkontenRowDeletingEvent) Is Nothing) Then RaiseEvent AufschubkontenRowDeleting(Me, New AufschubkontenRowChangeEvent(CType(e.Row,AufschubkontenRow), e.Action)) End If End Sub _ Public Sub RemoveAufschubkontenRow(ByVal row As AufschubkontenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "AufschubkontenDataTable" 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 BelegartenDataTable Inherits Global.System.Data.TypedTableBase(Of BelegartenRow) Private columnBelegartenNr As Global.System.Data.DataColumn Private columnBelegartenKz As Global.System.Data.DataColumn Private columnBelegartenBez As Global.System.Data.DataColumn Private columnVorzeichen As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Belegarten" 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 BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property BelegartenKzColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenKz End Get End Property _ Public ReadOnly Property BelegartenBezColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenBez End Get End Property _ Public ReadOnly Property VorzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorzeichen End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 BelegartenRow Get Return CType(Me.Rows(index),BelegartenRow) End Get End Property _ Public Event BelegartenRowChanging As BelegartenRowChangeEventHandler _ Public Event BelegartenRowChanged As BelegartenRowChangeEventHandler _ Public Event BelegartenRowDeleting As BelegartenRowChangeEventHandler _ Public Event BelegartenRowDeleted As BelegartenRowChangeEventHandler _ Public Overloads Sub AddBelegartenRow(ByVal row As BelegartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddBelegartenRow(ByVal BelegartenNr As Short, ByVal BelegartenKz As String, ByVal BelegartenBez As String, ByVal Vorzeichen As String, ByVal SSMA_TimeStamp() As Byte) As BelegartenRow Dim rowBelegartenRow As BelegartenRow = CType(Me.NewRow,BelegartenRow) Dim columnValuesArray() As Object = New Object() {BelegartenNr, BelegartenKz, BelegartenBez, Vorzeichen, SSMA_TimeStamp} rowBelegartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowBelegartenRow) Return rowBelegartenRow End Function _ Public Function FindByBelegartenNr(ByVal BelegartenNr As Short) As BelegartenRow Return CType(Me.Rows.Find(New Object() {BelegartenNr}),BelegartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As BelegartenDataTable = CType(MyBase.Clone,BelegartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New BelegartenDataTable() End Function _ Friend Sub InitVars() Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnBelegartenKz = MyBase.Columns("BelegartenKz") Me.columnBelegartenBez = MyBase.Columns("BelegartenBez") Me.columnVorzeichen = MyBase.Columns("Vorzeichen") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnBelegartenKz = New Global.System.Data.DataColumn("BelegartenKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenKz) Me.columnBelegartenBez = New Global.System.Data.DataColumn("BelegartenBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenBez) Me.columnVorzeichen = New Global.System.Data.DataColumn("Vorzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorzeichen) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBelegartenNr}, true)) Me.columnBelegartenNr.AllowDBNull = false Me.columnBelegartenNr.Unique = true Me.columnBelegartenKz.AllowDBNull = false Me.columnBelegartenKz.MaxLength = 2 Me.columnBelegartenBez.AllowDBNull = false Me.columnBelegartenBez.MaxLength = 10 Me.columnVorzeichen.AllowDBNull = false Me.columnVorzeichen.MaxLength = 1 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewBelegartenRow() As BelegartenRow Return CType(Me.NewRow,BelegartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New BelegartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(BelegartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.BelegartenRowChangedEvent) Is Nothing) Then RaiseEvent BelegartenRowChanged(Me, New BelegartenRowChangeEvent(CType(e.Row,BelegartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.BelegartenRowChangingEvent) Is Nothing) Then RaiseEvent BelegartenRowChanging(Me, New BelegartenRowChangeEvent(CType(e.Row,BelegartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.BelegartenRowDeletedEvent) Is Nothing) Then RaiseEvent BelegartenRowDeleted(Me, New BelegartenRowChangeEvent(CType(e.Row,BelegartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.BelegartenRowDeletingEvent) Is Nothing) Then RaiseEvent BelegartenRowDeleting(Me, New BelegartenRowChangeEvent(CType(e.Row,BelegartenRow), e.Action)) End If End Sub _ Public Sub RemoveBelegartenRow(ByVal row As BelegartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "BelegartenDataTable" 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 BerechnungsartDataTable Inherits Global.System.Data.TypedTableBase(Of BerechnungsartRow) Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnBerechnungsartBez As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Berechnungsart" 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 BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property BerechnungsartBezColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartBez End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 BerechnungsartRow Get Return CType(Me.Rows(index),BerechnungsartRow) End Get End Property _ Public Event BerechnungsartRowChanging As BerechnungsartRowChangeEventHandler _ Public Event BerechnungsartRowChanged As BerechnungsartRowChangeEventHandler _ Public Event BerechnungsartRowDeleting As BerechnungsartRowChangeEventHandler _ Public Event BerechnungsartRowDeleted As BerechnungsartRowChangeEventHandler _ Public Overloads Sub AddBerechnungsartRow(ByVal row As BerechnungsartRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddBerechnungsartRow(ByVal BerechnungsartNr As Short, ByVal BerechnungsartBez As String, ByVal SSMA_TimeStamp() As Byte) As BerechnungsartRow Dim rowBerechnungsartRow As BerechnungsartRow = CType(Me.NewRow,BerechnungsartRow) Dim columnValuesArray() As Object = New Object() {BerechnungsartNr, BerechnungsartBez, SSMA_TimeStamp} rowBerechnungsartRow.ItemArray = columnValuesArray Me.Rows.Add(rowBerechnungsartRow) Return rowBerechnungsartRow End Function _ Public Function FindByBerechnungsartNr(ByVal BerechnungsartNr As Short) As BerechnungsartRow Return CType(Me.Rows.Find(New Object() {BerechnungsartNr}),BerechnungsartRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As BerechnungsartDataTable = CType(MyBase.Clone,BerechnungsartDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New BerechnungsartDataTable() End Function _ Friend Sub InitVars() Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnBerechnungsartBez = MyBase.Columns("BerechnungsartBez") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnBerechnungsartBez = New Global.System.Data.DataColumn("BerechnungsartBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartBez) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBerechnungsartNr}, true)) Me.columnBerechnungsartNr.AllowDBNull = false Me.columnBerechnungsartNr.Unique = true Me.columnBerechnungsartBez.AllowDBNull = false Me.columnBerechnungsartBez.MaxLength = 20 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewBerechnungsartRow() As BerechnungsartRow Return CType(Me.NewRow,BerechnungsartRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New BerechnungsartRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(BerechnungsartRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.BerechnungsartRowChangedEvent) Is Nothing) Then RaiseEvent BerechnungsartRowChanged(Me, New BerechnungsartRowChangeEvent(CType(e.Row,BerechnungsartRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.BerechnungsartRowChangingEvent) Is Nothing) Then RaiseEvent BerechnungsartRowChanging(Me, New BerechnungsartRowChangeEvent(CType(e.Row,BerechnungsartRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.BerechnungsartRowDeletedEvent) Is Nothing) Then RaiseEvent BerechnungsartRowDeleted(Me, New BerechnungsartRowChangeEvent(CType(e.Row,BerechnungsartRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.BerechnungsartRowDeletingEvent) Is Nothing) Then RaiseEvent BerechnungsartRowDeleting(Me, New BerechnungsartRowChangeEvent(CType(e.Row,BerechnungsartRow), e.Action)) End If End Sub _ Public Sub RemoveBerechnungsartRow(ByVal row As BerechnungsartRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "BerechnungsartDataTable" 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 BerechnungsbogenDataTable Inherits Global.System.Data.TypedTableBase(Of BerechnungsbogenRow) Private columnID As Global.System.Data.DataColumn Private columnErstelltDatum As Global.System.Data.DataColumn Private columnErstelltSachbearbeiter As Global.System.Data.DataColumn Private columnGeändertDatum As Global.System.Data.DataColumn Private columnGeändertSachbearbeiter As Global.System.Data.DataColumn Private columnGedrucktDatum As Global.System.Data.DataColumn Private columnGedrucktSachbearbeiter As Global.System.Data.DataColumn Private columnIndex As Global.System.Data.DataColumn Private columnAbsenderKundenNr As Global.System.Data.DataColumn Private columnAbsenderAdresse As Global.System.Data.DataColumn Private columnAbsenderOffertenNr As Global.System.Data.DataColumn Private columnEmpfängerKundenNr As Global.System.Data.DataColumn Private columnEmpfängerAdresse As Global.System.Data.DataColumn Private columnEmpfängerOffertenNr As Global.System.Data.DataColumn Private columnVermittlerKundenNr As Global.System.Data.DataColumn Private columnVermittlerAdresse As Global.System.Data.DataColumn Private columnVermittlerOffertenNr As Global.System.Data.DataColumn Private columnBemerkungen As Global.System.Data.DataColumn Private columnVermerk As Global.System.Data.DataColumn Private columnSperre As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Berechnungsbogen" 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 ErstelltDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnErstelltDatum End Get End Property _ Public ReadOnly Property ErstelltSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnErstelltSachbearbeiter End Get End Property _ Public ReadOnly Property GeändertDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändertDatum End Get End Property _ Public ReadOnly Property GeändertSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändertSachbearbeiter End Get End Property _ Public ReadOnly Property GedrucktDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnGedrucktDatum End Get End Property _ Public ReadOnly Property GedrucktSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnGedrucktSachbearbeiter End Get End Property _ Public ReadOnly Property IndexColumn() As Global.System.Data.DataColumn Get Return Me.columnIndex End Get End Property _ Public ReadOnly Property AbsenderKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderKundenNr End Get End Property _ Public ReadOnly Property AbsenderAdresseColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderAdresse End Get End Property _ Public ReadOnly Property AbsenderOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOffertenNr End Get End Property _ Public ReadOnly Property EmpfängerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerKundenNr End Get End Property _ Public ReadOnly Property EmpfängerAdresseColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerAdresse End Get End Property _ Public ReadOnly Property EmpfängerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOffertenNr End Get End Property _ Public ReadOnly Property VermittlerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerKundenNr End Get End Property _ Public ReadOnly Property VermittlerAdresseColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerAdresse End Get End Property _ Public ReadOnly Property VermittlerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOffertenNr End Get End Property _ Public ReadOnly Property BemerkungenColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkungen End Get End Property _ Public ReadOnly Property VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnVermerk End Get End Property _ Public ReadOnly Property SperreColumn() As Global.System.Data.DataColumn Get Return Me.columnSperre End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 BerechnungsbogenRow Get Return CType(Me.Rows(index),BerechnungsbogenRow) End Get End Property _ Public Event BerechnungsbogenRowChanging As BerechnungsbogenRowChangeEventHandler _ Public Event BerechnungsbogenRowChanged As BerechnungsbogenRowChangeEventHandler _ Public Event BerechnungsbogenRowDeleting As BerechnungsbogenRowChangeEventHandler _ Public Event BerechnungsbogenRowDeleted As BerechnungsbogenRowChangeEventHandler _ Public Overloads Sub AddBerechnungsbogenRow(ByVal row As BerechnungsbogenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddBerechnungsbogenRow( _ ByVal ID As Integer, _ ByVal ErstelltDatum As Date, _ ByVal ErstelltSachbearbeiter As String, _ ByVal GeändertDatum As Date, _ ByVal GeändertSachbearbeiter As String, _ ByVal GedrucktDatum As Date, _ ByVal GedrucktSachbearbeiter As String, _ ByVal Index As String, _ ByVal AbsenderKundenNr As Integer, _ ByVal AbsenderAdresse As String, _ ByVal AbsenderOffertenNr As Integer, _ ByVal EmpfängerKundenNr As Integer, _ ByVal EmpfängerAdresse As String, _ ByVal EmpfängerOffertenNr As Integer, _ ByVal VermittlerKundenNr As Integer, _ ByVal VermittlerAdresse As String, _ ByVal VermittlerOffertenNr As Integer, _ ByVal Bemerkungen As String, _ ByVal Vermerk As String, _ ByVal Sperre As String, _ ByVal SSMA_TimeStamp() As Byte) As BerechnungsbogenRow Dim rowBerechnungsbogenRow As BerechnungsbogenRow = CType(Me.NewRow,BerechnungsbogenRow) Dim columnValuesArray() As Object = New Object() {ID, ErstelltDatum, ErstelltSachbearbeiter, GeändertDatum, GeändertSachbearbeiter, GedrucktDatum, GedrucktSachbearbeiter, Index, AbsenderKundenNr, AbsenderAdresse, AbsenderOffertenNr, EmpfängerKundenNr, EmpfängerAdresse, EmpfängerOffertenNr, VermittlerKundenNr, VermittlerAdresse, VermittlerOffertenNr, Bemerkungen, Vermerk, Sperre, SSMA_TimeStamp} rowBerechnungsbogenRow.ItemArray = columnValuesArray Me.Rows.Add(rowBerechnungsbogenRow) Return rowBerechnungsbogenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As BerechnungsbogenDataTable = CType(MyBase.Clone,BerechnungsbogenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New BerechnungsbogenDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnErstelltDatum = MyBase.Columns("ErstelltDatum") Me.columnErstelltSachbearbeiter = MyBase.Columns("ErstelltSachbearbeiter") Me.columnGeändertDatum = MyBase.Columns("GeändertDatum") Me.columnGeändertSachbearbeiter = MyBase.Columns("GeändertSachbearbeiter") Me.columnGedrucktDatum = MyBase.Columns("GedrucktDatum") Me.columnGedrucktSachbearbeiter = MyBase.Columns("GedrucktSachbearbeiter") Me.columnIndex = MyBase.Columns("Index") Me.columnAbsenderKundenNr = MyBase.Columns("AbsenderKundenNr") Me.columnAbsenderAdresse = MyBase.Columns("AbsenderAdresse") Me.columnAbsenderOffertenNr = MyBase.Columns("AbsenderOffertenNr") Me.columnEmpfängerKundenNr = MyBase.Columns("EmpfängerKundenNr") Me.columnEmpfängerAdresse = MyBase.Columns("EmpfängerAdresse") Me.columnEmpfängerOffertenNr = MyBase.Columns("EmpfängerOffertenNr") Me.columnVermittlerKundenNr = MyBase.Columns("VermittlerKundenNr") Me.columnVermittlerAdresse = MyBase.Columns("VermittlerAdresse") Me.columnVermittlerOffertenNr = MyBase.Columns("VermittlerOffertenNr") Me.columnBemerkungen = MyBase.Columns("Bemerkungen") Me.columnVermerk = MyBase.Columns("Vermerk") Me.columnSperre = MyBase.Columns("Sperre") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") 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.columnErstelltDatum = New Global.System.Data.DataColumn("ErstelltDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstelltDatum) Me.columnErstelltSachbearbeiter = New Global.System.Data.DataColumn("ErstelltSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstelltSachbearbeiter) Me.columnGeändertDatum = New Global.System.Data.DataColumn("GeändertDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändertDatum) Me.columnGeändertSachbearbeiter = New Global.System.Data.DataColumn("GeändertSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändertSachbearbeiter) Me.columnGedrucktDatum = New Global.System.Data.DataColumn("GedrucktDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGedrucktDatum) Me.columnGedrucktSachbearbeiter = New Global.System.Data.DataColumn("GedrucktSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGedrucktSachbearbeiter) Me.columnIndex = New Global.System.Data.DataColumn("Index", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndex) Me.columnAbsenderKundenNr = New Global.System.Data.DataColumn("AbsenderKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderKundenNr) Me.columnAbsenderAdresse = New Global.System.Data.DataColumn("AbsenderAdresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderAdresse) Me.columnAbsenderOffertenNr = New Global.System.Data.DataColumn("AbsenderOffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOffertenNr) Me.columnEmpfängerKundenNr = New Global.System.Data.DataColumn("EmpfängerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerKundenNr) Me.columnEmpfängerAdresse = New Global.System.Data.DataColumn("EmpfängerAdresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerAdresse) Me.columnEmpfängerOffertenNr = New Global.System.Data.DataColumn("EmpfängerOffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOffertenNr) Me.columnVermittlerKundenNr = New Global.System.Data.DataColumn("VermittlerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerKundenNr) Me.columnVermittlerAdresse = New Global.System.Data.DataColumn("VermittlerAdresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerAdresse) Me.columnVermittlerOffertenNr = New Global.System.Data.DataColumn("VermittlerOffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOffertenNr) Me.columnBemerkungen = New Global.System.Data.DataColumn("Bemerkungen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkungen) Me.columnVermerk = New Global.System.Data.DataColumn("Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermerk) Me.columnSperre = New Global.System.Data.DataColumn("Sperre", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSperre) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnID.AllowDBNull = false Me.columnErstelltSachbearbeiter.MaxLength = 15 Me.columnGeändertSachbearbeiter.MaxLength = 15 Me.columnGedrucktSachbearbeiter.MaxLength = 15 Me.columnIndex.AllowDBNull = false Me.columnIndex.MaxLength = 80 Me.columnAbsenderAdresse.MaxLength = 50 Me.columnEmpfängerAdresse.MaxLength = 50 Me.columnVermittlerAdresse.MaxLength = 50 Me.columnBemerkungen.MaxLength = 2147483647 Me.columnVermerk.MaxLength = 50 Me.columnSperre.MaxLength = 15 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewBerechnungsbogenRow() As BerechnungsbogenRow Return CType(Me.NewRow,BerechnungsbogenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New BerechnungsbogenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(BerechnungsbogenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.BerechnungsbogenRowChangedEvent) Is Nothing) Then RaiseEvent BerechnungsbogenRowChanged(Me, New BerechnungsbogenRowChangeEvent(CType(e.Row,BerechnungsbogenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.BerechnungsbogenRowChangingEvent) Is Nothing) Then RaiseEvent BerechnungsbogenRowChanging(Me, New BerechnungsbogenRowChangeEvent(CType(e.Row,BerechnungsbogenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.BerechnungsbogenRowDeletedEvent) Is Nothing) Then RaiseEvent BerechnungsbogenRowDeleted(Me, New BerechnungsbogenRowChangeEvent(CType(e.Row,BerechnungsbogenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.BerechnungsbogenRowDeletingEvent) Is Nothing) Then RaiseEvent BerechnungsbogenRowDeleting(Me, New BerechnungsbogenRowChangeEvent(CType(e.Row,BerechnungsbogenRow), e.Action)) End If End Sub _ Public Sub RemoveBerechnungsbogenRow(ByVal row As BerechnungsbogenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "BerechnungsbogenDataTable" 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 BerichteDataTable Inherits Global.System.Data.TypedTableBase(Of BerichteRow) Private columnBericht As Global.System.Data.DataColumn Private columnKommentar As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Berichte" 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 BerichtColumn() As Global.System.Data.DataColumn Get Return Me.columnBericht End Get End Property _ Public ReadOnly Property KommentarColumn() As Global.System.Data.DataColumn Get Return Me.columnKommentar End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 BerichteRow Get Return CType(Me.Rows(index),BerichteRow) End Get End Property _ Public Event BerichteRowChanging As BerichteRowChangeEventHandler _ Public Event BerichteRowChanged As BerichteRowChangeEventHandler _ Public Event BerichteRowDeleting As BerichteRowChangeEventHandler _ Public Event BerichteRowDeleted As BerichteRowChangeEventHandler _ Public Overloads Sub AddBerichteRow(ByVal row As BerichteRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddBerichteRow(ByVal Bericht As String, ByVal Kommentar As String, ByVal SSMA_TimeStamp() As Byte) As BerichteRow Dim rowBerichteRow As BerichteRow = CType(Me.NewRow,BerichteRow) Dim columnValuesArray() As Object = New Object() {Bericht, Kommentar, SSMA_TimeStamp} rowBerichteRow.ItemArray = columnValuesArray Me.Rows.Add(rowBerichteRow) Return rowBerichteRow End Function _ Public Function FindByBericht(ByVal Bericht As String) As BerichteRow Return CType(Me.Rows.Find(New Object() {Bericht}),BerichteRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As BerichteDataTable = CType(MyBase.Clone,BerichteDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New BerichteDataTable() End Function _ Friend Sub InitVars() Me.columnBericht = MyBase.Columns("Bericht") Me.columnKommentar = MyBase.Columns("Kommentar") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnBericht = New Global.System.Data.DataColumn("Bericht", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBericht) Me.columnKommentar = New Global.System.Data.DataColumn("Kommentar", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKommentar) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBericht}, true)) Me.columnBericht.AllowDBNull = false Me.columnBericht.Unique = true Me.columnBericht.MaxLength = 255 Me.columnKommentar.MaxLength = 255 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewBerichteRow() As BerichteRow Return CType(Me.NewRow,BerichteRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New BerichteRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(BerichteRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.BerichteRowChangedEvent) Is Nothing) Then RaiseEvent BerichteRowChanged(Me, New BerichteRowChangeEvent(CType(e.Row,BerichteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.BerichteRowChangingEvent) Is Nothing) Then RaiseEvent BerichteRowChanging(Me, New BerichteRowChangeEvent(CType(e.Row,BerichteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.BerichteRowDeletedEvent) Is Nothing) Then RaiseEvent BerichteRowDeleted(Me, New BerichteRowChangeEvent(CType(e.Row,BerichteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.BerichteRowDeletingEvent) Is Nothing) Then RaiseEvent BerichteRowDeleting(Me, New BerichteRowChangeEvent(CType(e.Row,BerichteRow), e.Action)) End If End Sub _ Public Sub RemoveBerichteRow(ByVal row As BerichteRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "BerichteDataTable" 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 CMRDataTable Inherits Global.System.Data.TypedTableBase(Of CMRRow) Private columnCMR_ID As Global.System.Data.DataColumn Private columnCMR_Suchbegriff As Global.System.Data.DataColumn Private columnCMR_Absender_1 As Global.System.Data.DataColumn Private columnCMR_Absender_2 As Global.System.Data.DataColumn Private columnCMR_Absender_3 As Global.System.Data.DataColumn Private columnCMR_Absender_4 As Global.System.Data.DataColumn Private columnCMR_Absender_5 As Global.System.Data.DataColumn Private columnCMR_Empfänger_1 As Global.System.Data.DataColumn Private columnCMR_Empfänger_2 As Global.System.Data.DataColumn Private columnCMR_Empfänger_3 As Global.System.Data.DataColumn Private columnCMR_Empfänger_4 As Global.System.Data.DataColumn Private columnCMR_Empfänger_5 As Global.System.Data.DataColumn Private columnCMR_Auslieferung_Ort As Global.System.Data.DataColumn Private columnCMR_Auslieferung_Land As Global.System.Data.DataColumn Private columnCMR_Auslieferung As Global.System.Data.DataColumn Private columnCMR_Übernahme_Ort As Global.System.Data.DataColumn Private columnCMR_Übernahme_Land As Global.System.Data.DataColumn Private columnCMR_Übernahme_Datum As Global.System.Data.DataColumn Private columnCMR_Dokumente_1 As Global.System.Data.DataColumn Private columnCMR_Dokumente_2 As Global.System.Data.DataColumn Private columnCMR_Dokumente_3 As Global.System.Data.DataColumn Private columnCMR_Ware_1 As Global.System.Data.DataColumn Private columnCMR_Statistiknr_1 As Global.System.Data.DataColumn Private columnCMR_Bruttogewicht_1 As Global.System.Data.DataColumn Private columnCMR_Umfang_1 As Global.System.Data.DataColumn Private columnCMR_Ware_2 As Global.System.Data.DataColumn Private columnCMR_Statistiknr_2 As Global.System.Data.DataColumn Private columnCMR_Bruttogewicht_2 As Global.System.Data.DataColumn Private columnCMR_Umfang_2 As Global.System.Data.DataColumn Private columnCMR_Ware_3 As Global.System.Data.DataColumn Private columnCMR_Statistiknr_3 As Global.System.Data.DataColumn Private columnCMR_Bruttogewicht_3 As Global.System.Data.DataColumn Private columnCMR_Umfang_3 As Global.System.Data.DataColumn Private columnCMR_Ware_4 As Global.System.Data.DataColumn Private columnCMR_Statistiknr_4 As Global.System.Data.DataColumn Private columnCMR_Bruttogewicht_4 As Global.System.Data.DataColumn Private columnCMR_Umfang_4 As Global.System.Data.DataColumn Private columnCMR_Ware_5 As Global.System.Data.DataColumn Private columnCMR_Statistiknr_5 As Global.System.Data.DataColumn Private columnCMR_Bruttogewicht_5 As Global.System.Data.DataColumn Private columnCMR_Umfang_5 As Global.System.Data.DataColumn Private columnCMR_Ware_6 As Global.System.Data.DataColumn Private columnCMR_Statistiknr_6 As Global.System.Data.DataColumn Private columnCMR_Bruttogewicht_6 As Global.System.Data.DataColumn Private columnCMR_Umfang_6 As Global.System.Data.DataColumn Private columnCMR_Ware_7 As Global.System.Data.DataColumn Private columnCMR_Statistiknr_7 As Global.System.Data.DataColumn Private columnCMR_Bruttogewicht_7 As Global.System.Data.DataColumn Private columnCMR_Umfang_7 As Global.System.Data.DataColumn Private columnCMR_Ware_8 As Global.System.Data.DataColumn Private columnCMR_Statistiknr_8 As Global.System.Data.DataColumn Private columnCMR_Bruttogewicht_8 As Global.System.Data.DataColumn Private columnCMR_Umfang_8 As Global.System.Data.DataColumn Private columnCMR_Klasse As Global.System.Data.DataColumn Private columnCMR_Ziffer As Global.System.Data.DataColumn Private columnCMR_Buchstabe As Global.System.Data.DataColumn Private columnCMR_ADR As Global.System.Data.DataColumn Private columnCMR_Ware_9 As Global.System.Data.DataColumn Private columnCMR_Statistiknr_9 As Global.System.Data.DataColumn Private columnCMR_Bruttogewicht_9 As Global.System.Data.DataColumn Private columnCMR_Umfang_9 As Global.System.Data.DataColumn Private columnCMR_Anweisungen_1 As Global.System.Data.DataColumn Private columnCMR_Anweisungen_2 As Global.System.Data.DataColumn Private columnCMR_Anweisungen_3 As Global.System.Data.DataColumn Private columnCMR_Anweisungen_4 As Global.System.Data.DataColumn Private columnCMR_Anweisungen_5 As Global.System.Data.DataColumn Private columnCMR_Anweisungen_6 As Global.System.Data.DataColumn Private columnCMR_Anweisungen_7 As Global.System.Data.DataColumn Private columnCMR_Rückerstattung As Global.System.Data.DataColumn Private columnCMR_Frachtzahlungsanweisung_Frei As Global.System.Data.DataColumn Private columnCMR_Frachtzahlungsanweisung_Unfrei As Global.System.Data.DataColumn Private columnCMR_Frachtführer_1 As Global.System.Data.DataColumn Private columnCMR_Frachtführer_2 As Global.System.Data.DataColumn Private columnCMR_Frachtführer_3 As Global.System.Data.DataColumn Private columnCMR_Frachtführer_4 As Global.System.Data.DataColumn Private columnCMR_Frachtführer_5 As Global.System.Data.DataColumn Private columnCMR_Nachf_Frachtführer_1 As Global.System.Data.DataColumn Private columnCMR_Nachf_Frachtführer_2 As Global.System.Data.DataColumn Private columnCMR_Nachf_Frachtführer_3 As Global.System.Data.DataColumn Private columnCMR_Nachf_Frachtführer_4 As Global.System.Data.DataColumn Private columnCMR_Nachf_Frachtführer_5 As Global.System.Data.DataColumn Private columnCMR_Bemerkungen_1 As Global.System.Data.DataColumn Private columnCMR_Bemerkungen_2 As Global.System.Data.DataColumn Private columnCMR_Bemerkungen_3 As Global.System.Data.DataColumn Private columnCMR_Bemerkungen_4 As Global.System.Data.DataColumn Private columnCMR_Bemerkungen_5 As Global.System.Data.DataColumn Private columnCMR_Vereinbarungen_1 As Global.System.Data.DataColumn Private columnCMR_Vereinbarungen_2 As Global.System.Data.DataColumn Private columnCMR_Ausgefertigt_in As Global.System.Data.DataColumn Private columnCMR_Ausgefertigt_am As Global.System.Data.DataColumn Private columnCMR_Ausgefertigt As Global.System.Data.DataColumn Private columnCMR_Stempel_Absender_1 As Global.System.Data.DataColumn Private columnCMR_Stempel_Absender_2 As Global.System.Data.DataColumn Private columnCMR_Stempel_Frachtführer_1 As Global.System.Data.DataColumn Private columnCMR_Stempel_Frachtführer_2 As Global.System.Data.DataColumn Private columnCMR_Empfangsbestätigung_Datum As Global.System.Data.DataColumn Private columnCMR_Stempel_Empfänger_1 As Global.System.Data.DataColumn Private columnCMR_Stempel_Empfänger_2 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_von_1 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_bis_1 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_km_1 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_von_2 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_bis_2 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_km_2 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_von_3 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_bis_3 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_km_3 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_von_4 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_bis_4 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_km_4 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_von_5 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_bis_5 As Global.System.Data.DataColumn Private columnCMR_Tarifentfernung_km_5 As Global.System.Data.DataColumn Private columnCMR_Kennzeichen_Kfz As Global.System.Data.DataColumn Private columnCMR_Nutzlast_Kfz As Global.System.Data.DataColumn Private columnCMR_Kennzeichen_Anhänger As Global.System.Data.DataColumn Private columnCMR_Nutzlast_Anhänger As Global.System.Data.DataColumn Private columnCMR_Erstellt_Datum As Global.System.Data.DataColumn Private columnCMR_Erstellt_Sachbearbeiter As Global.System.Data.DataColumn Private columnCMR_Geändert_Datum As Global.System.Data.DataColumn Private columnCMR_Geändert_Sachbearbeiter As Global.System.Data.DataColumn Private columnCMR_Gedruckt_Datum As Global.System.Data.DataColumn Private columnCMR_Gedruckt_Sachbearbeiter As Global.System.Data.DataColumn Private columnCMR_zeichen_1 As Global.System.Data.DataColumn Private columnCMR_zeichen_2 As Global.System.Data.DataColumn Private columnCMR_zeichen_3 As Global.System.Data.DataColumn Private columnCMR_zeichen_4 As Global.System.Data.DataColumn Private columnCMR_zeichen_5 As Global.System.Data.DataColumn Private columnCMR_zeichen_6 As Global.System.Data.DataColumn Private columnCMR_zeichen_7 As Global.System.Data.DataColumn Private columnCMR_zeichen_8 As Global.System.Data.DataColumn Private columnCMR_zeichen_9 As Global.System.Data.DataColumn Private columnCMR_anzahl_1 As Global.System.Data.DataColumn Private columnCMR_anzahl_2 As Global.System.Data.DataColumn Private columnCMR_anzahl_3 As Global.System.Data.DataColumn Private columnCMR_anzahl_4 As Global.System.Data.DataColumn Private columnCMR_anzahl_5 As Global.System.Data.DataColumn Private columnCMR_anzahl_6 As Global.System.Data.DataColumn Private columnCMR_anzahl_7 As Global.System.Data.DataColumn Private columnCMR_anzahl_8 As Global.System.Data.DataColumn Private columnCMR_anzahl_9 As Global.System.Data.DataColumn Private columnCMR_pkArt_1 As Global.System.Data.DataColumn Private columnCMR_pkArt_2 As Global.System.Data.DataColumn Private columnCMR_pkArt_3 As Global.System.Data.DataColumn Private columnCMR_pkArt_4 As Global.System.Data.DataColumn Private columnCMR_pkArt_5 As Global.System.Data.DataColumn Private columnCMR_pkArt_6 As Global.System.Data.DataColumn Private columnCMR_pkArt_7 As Global.System.Data.DataColumn Private columnCMR_pkArt_8 As Global.System.Data.DataColumn Private columnCMR_pkArt_9 As Global.System.Data.DataColumn Private columnCMR_TblLangKurz As Global.System.Data.DataColumn Private columnEPBes_ID As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnCMR_Firma As Global.System.Data.DataColumn Private columnCMR_isVorlage As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "CMR" 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 CMR_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_ID End Get End Property _ Public ReadOnly Property CMR_SuchbegriffColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Suchbegriff End Get End Property _ Public ReadOnly Property CMR_Absender_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Absender_1 End Get End Property _ Public ReadOnly Property CMR_Absender_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Absender_2 End Get End Property _ Public ReadOnly Property CMR_Absender_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Absender_3 End Get End Property _ Public ReadOnly Property CMR_Absender_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Absender_4 End Get End Property _ Public ReadOnly Property CMR_Absender_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Absender_5 End Get End Property _ Public ReadOnly Property CMR_Empfänger_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Empfänger_1 End Get End Property _ Public ReadOnly Property CMR_Empfänger_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Empfänger_2 End Get End Property _ Public ReadOnly Property CMR_Empfänger_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Empfänger_3 End Get End Property _ Public ReadOnly Property CMR_Empfänger_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Empfänger_4 End Get End Property _ Public ReadOnly Property CMR_Empfänger_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Empfänger_5 End Get End Property _ Public ReadOnly Property CMR_Auslieferung_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Auslieferung_Ort End Get End Property _ Public ReadOnly Property CMR_Auslieferung_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Auslieferung_Land End Get End Property _ Public ReadOnly Property CMR_AuslieferungColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Auslieferung End Get End Property _ Public ReadOnly Property CMR_Übernahme_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Übernahme_Ort End Get End Property _ Public ReadOnly Property CMR_Übernahme_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Übernahme_Land End Get End Property _ Public ReadOnly Property CMR_Übernahme_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Übernahme_Datum End Get End Property _ Public ReadOnly Property CMR_Dokumente_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Dokumente_1 End Get End Property _ Public ReadOnly Property CMR_Dokumente_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Dokumente_2 End Get End Property _ Public ReadOnly Property CMR_Dokumente_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Dokumente_3 End Get End Property _ Public ReadOnly Property CMR_Ware_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ware_1 End Get End Property _ Public ReadOnly Property CMR_Statistiknr_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Statistiknr_1 End Get End Property _ Public ReadOnly Property CMR_Bruttogewicht_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bruttogewicht_1 End Get End Property _ Public ReadOnly Property CMR_Umfang_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Umfang_1 End Get End Property _ Public ReadOnly Property CMR_Ware_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ware_2 End Get End Property _ Public ReadOnly Property CMR_Statistiknr_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Statistiknr_2 End Get End Property _ Public ReadOnly Property CMR_Bruttogewicht_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bruttogewicht_2 End Get End Property _ Public ReadOnly Property CMR_Umfang_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Umfang_2 End Get End Property _ Public ReadOnly Property CMR_Ware_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ware_3 End Get End Property _ Public ReadOnly Property CMR_Statistiknr_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Statistiknr_3 End Get End Property _ Public ReadOnly Property CMR_Bruttogewicht_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bruttogewicht_3 End Get End Property _ Public ReadOnly Property CMR_Umfang_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Umfang_3 End Get End Property _ Public ReadOnly Property CMR_Ware_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ware_4 End Get End Property _ Public ReadOnly Property CMR_Statistiknr_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Statistiknr_4 End Get End Property _ Public ReadOnly Property CMR_Bruttogewicht_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bruttogewicht_4 End Get End Property _ Public ReadOnly Property CMR_Umfang_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Umfang_4 End Get End Property _ Public ReadOnly Property CMR_Ware_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ware_5 End Get End Property _ Public ReadOnly Property CMR_Statistiknr_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Statistiknr_5 End Get End Property _ Public ReadOnly Property CMR_Bruttogewicht_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bruttogewicht_5 End Get End Property _ Public ReadOnly Property CMR_Umfang_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Umfang_5 End Get End Property _ Public ReadOnly Property CMR_Ware_6Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ware_6 End Get End Property _ Public ReadOnly Property CMR_Statistiknr_6Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Statistiknr_6 End Get End Property _ Public ReadOnly Property CMR_Bruttogewicht_6Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bruttogewicht_6 End Get End Property _ Public ReadOnly Property CMR_Umfang_6Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Umfang_6 End Get End Property _ Public ReadOnly Property CMR_Ware_7Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ware_7 End Get End Property _ Public ReadOnly Property CMR_Statistiknr_7Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Statistiknr_7 End Get End Property _ Public ReadOnly Property CMR_Bruttogewicht_7Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bruttogewicht_7 End Get End Property _ Public ReadOnly Property CMR_Umfang_7Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Umfang_7 End Get End Property _ Public ReadOnly Property CMR_Ware_8Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ware_8 End Get End Property _ Public ReadOnly Property CMR_Statistiknr_8Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Statistiknr_8 End Get End Property _ Public ReadOnly Property CMR_Bruttogewicht_8Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bruttogewicht_8 End Get End Property _ Public ReadOnly Property CMR_Umfang_8Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Umfang_8 End Get End Property _ Public ReadOnly Property CMR_KlasseColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Klasse End Get End Property _ Public ReadOnly Property CMR_ZifferColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ziffer End Get End Property _ Public ReadOnly Property CMR_BuchstabeColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Buchstabe End Get End Property _ Public ReadOnly Property CMR_ADRColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_ADR End Get End Property _ Public ReadOnly Property CMR_Ware_9Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ware_9 End Get End Property _ Public ReadOnly Property CMR_Statistiknr_9Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Statistiknr_9 End Get End Property _ Public ReadOnly Property CMR_Bruttogewicht_9Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bruttogewicht_9 End Get End Property _ Public ReadOnly Property CMR_Umfang_9Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Umfang_9 End Get End Property _ Public ReadOnly Property CMR_Anweisungen_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Anweisungen_1 End Get End Property _ Public ReadOnly Property CMR_Anweisungen_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Anweisungen_2 End Get End Property _ Public ReadOnly Property CMR_Anweisungen_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Anweisungen_3 End Get End Property _ Public ReadOnly Property CMR_Anweisungen_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Anweisungen_4 End Get End Property _ Public ReadOnly Property CMR_Anweisungen_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Anweisungen_5 End Get End Property _ Public ReadOnly Property CMR_Anweisungen_6Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Anweisungen_6 End Get End Property _ Public ReadOnly Property CMR_Anweisungen_7Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Anweisungen_7 End Get End Property _ Public ReadOnly Property CMR_RückerstattungColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Rückerstattung End Get End Property _ Public ReadOnly Property CMR_Frachtzahlungsanweisung_FreiColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Frachtzahlungsanweisung_Frei End Get End Property _ Public ReadOnly Property CMR_Frachtzahlungsanweisung_UnfreiColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Frachtzahlungsanweisung_Unfrei End Get End Property _ Public ReadOnly Property CMR_Frachtführer_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Frachtführer_1 End Get End Property _ Public ReadOnly Property CMR_Frachtführer_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Frachtführer_2 End Get End Property _ Public ReadOnly Property CMR_Frachtführer_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Frachtführer_3 End Get End Property _ Public ReadOnly Property CMR_Frachtführer_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Frachtführer_4 End Get End Property _ Public ReadOnly Property CMR_Frachtführer_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Frachtführer_5 End Get End Property _ Public ReadOnly Property CMR_Nachf_Frachtführer_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Nachf_Frachtführer_1 End Get End Property _ Public ReadOnly Property CMR_Nachf_Frachtführer_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Nachf_Frachtführer_2 End Get End Property _ Public ReadOnly Property CMR_Nachf_Frachtführer_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Nachf_Frachtführer_3 End Get End Property _ Public ReadOnly Property CMR_Nachf_Frachtführer_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Nachf_Frachtführer_4 End Get End Property _ Public ReadOnly Property CMR_Nachf_Frachtführer_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Nachf_Frachtführer_5 End Get End Property _ Public ReadOnly Property CMR_Bemerkungen_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bemerkungen_1 End Get End Property _ Public ReadOnly Property CMR_Bemerkungen_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bemerkungen_2 End Get End Property _ Public ReadOnly Property CMR_Bemerkungen_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bemerkungen_3 End Get End Property _ Public ReadOnly Property CMR_Bemerkungen_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bemerkungen_4 End Get End Property _ Public ReadOnly Property CMR_Bemerkungen_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Bemerkungen_5 End Get End Property _ Public ReadOnly Property CMR_Vereinbarungen_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Vereinbarungen_1 End Get End Property _ Public ReadOnly Property CMR_Vereinbarungen_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Vereinbarungen_2 End Get End Property _ Public ReadOnly Property CMR_Ausgefertigt_inColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ausgefertigt_in End Get End Property _ Public ReadOnly Property CMR_Ausgefertigt_amColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ausgefertigt_am End Get End Property _ Public ReadOnly Property CMR_AusgefertigtColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Ausgefertigt End Get End Property _ Public ReadOnly Property CMR_Stempel_Absender_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Stempel_Absender_1 End Get End Property _ Public ReadOnly Property CMR_Stempel_Absender_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Stempel_Absender_2 End Get End Property _ Public ReadOnly Property CMR_Stempel_Frachtführer_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Stempel_Frachtführer_1 End Get End Property _ Public ReadOnly Property CMR_Stempel_Frachtführer_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Stempel_Frachtführer_2 End Get End Property _ Public ReadOnly Property CMR_Empfangsbestätigung_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Empfangsbestätigung_Datum End Get End Property _ Public ReadOnly Property CMR_Stempel_Empfänger_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Stempel_Empfänger_1 End Get End Property _ Public ReadOnly Property CMR_Stempel_Empfänger_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Stempel_Empfänger_2 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_von_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_von_1 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_bis_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_bis_1 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_km_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_km_1 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_von_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_von_2 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_bis_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_bis_2 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_km_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_km_2 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_von_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_von_3 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_bis_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_bis_3 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_km_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_km_3 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_von_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_von_4 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_bis_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_bis_4 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_km_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_km_4 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_von_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_von_5 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_bis_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_bis_5 End Get End Property _ Public ReadOnly Property CMR_Tarifentfernung_km_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_Tarifentfernung_km_5 End Get End Property _ Public ReadOnly Property CMR_Kennzeichen_KfzColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Kennzeichen_Kfz End Get End Property _ Public ReadOnly Property CMR_Nutzlast_KfzColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Nutzlast_Kfz End Get End Property _ Public ReadOnly Property CMR_Kennzeichen_AnhängerColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Kennzeichen_Anhänger End Get End Property _ Public ReadOnly Property CMR_Nutzlast_AnhängerColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Nutzlast_Anhänger End Get End Property _ Public ReadOnly Property CMR_Erstellt_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Erstellt_Datum End Get End Property _ Public ReadOnly Property CMR_Erstellt_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Erstellt_Sachbearbeiter End Get End Property _ Public ReadOnly Property CMR_Geändert_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Geändert_Datum End Get End Property _ Public ReadOnly Property CMR_Geändert_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Geändert_Sachbearbeiter End Get End Property _ Public ReadOnly Property CMR_Gedruckt_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Gedruckt_Datum End Get End Property _ Public ReadOnly Property CMR_Gedruckt_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Gedruckt_Sachbearbeiter End Get End Property _ Public ReadOnly Property CMR_zeichen_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_zeichen_1 End Get End Property _ Public ReadOnly Property CMR_zeichen_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_zeichen_2 End Get End Property _ Public ReadOnly Property CMR_zeichen_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_zeichen_3 End Get End Property _ Public ReadOnly Property CMR_zeichen_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_zeichen_4 End Get End Property _ Public ReadOnly Property CMR_zeichen_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_zeichen_5 End Get End Property _ Public ReadOnly Property CMR_zeichen_6Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_zeichen_6 End Get End Property _ Public ReadOnly Property CMR_zeichen_7Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_zeichen_7 End Get End Property _ Public ReadOnly Property CMR_zeichen_8Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_zeichen_8 End Get End Property _ Public ReadOnly Property CMR_zeichen_9Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_zeichen_9 End Get End Property _ Public ReadOnly Property CMR_anzahl_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_anzahl_1 End Get End Property _ Public ReadOnly Property CMR_anzahl_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_anzahl_2 End Get End Property _ Public ReadOnly Property CMR_anzahl_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_anzahl_3 End Get End Property _ Public ReadOnly Property CMR_anzahl_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_anzahl_4 End Get End Property _ Public ReadOnly Property CMR_anzahl_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_anzahl_5 End Get End Property _ Public ReadOnly Property CMR_anzahl_6Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_anzahl_6 End Get End Property _ Public ReadOnly Property CMR_anzahl_7Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_anzahl_7 End Get End Property _ Public ReadOnly Property CMR_anzahl_8Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_anzahl_8 End Get End Property _ Public ReadOnly Property CMR_anzahl_9Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_anzahl_9 End Get End Property _ Public ReadOnly Property CMR_pkArt_1Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_pkArt_1 End Get End Property _ Public ReadOnly Property CMR_pkArt_2Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_pkArt_2 End Get End Property _ Public ReadOnly Property CMR_pkArt_3Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_pkArt_3 End Get End Property _ Public ReadOnly Property CMR_pkArt_4Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_pkArt_4 End Get End Property _ Public ReadOnly Property CMR_pkArt_5Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_pkArt_5 End Get End Property _ Public ReadOnly Property CMR_pkArt_6Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_pkArt_6 End Get End Property _ Public ReadOnly Property CMR_pkArt_7Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_pkArt_7 End Get End Property _ Public ReadOnly Property CMR_pkArt_8Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_pkArt_8 End Get End Property _ Public ReadOnly Property CMR_pkArt_9Column() As Global.System.Data.DataColumn Get Return Me.columnCMR_pkArt_9 End Get End Property _ Public ReadOnly Property CMR_TblLangKurzColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_TblLangKurz End Get End Property _ Public ReadOnly Property EPBes_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnEPBes_ID End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property CMR_FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_Firma End Get End Property _ Public ReadOnly Property CMR_isVorlageColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR_isVorlage 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 CMRRow Get Return CType(Me.Rows(index),CMRRow) End Get End Property _ Public Event CMRRowChanging As CMRRowChangeEventHandler _ Public Event CMRRowChanged As CMRRowChangeEventHandler _ Public Event CMRRowDeleting As CMRRowChangeEventHandler _ Public Event CMRRowDeleted As CMRRowChangeEventHandler _ Public Overloads Sub AddCMRRow(ByVal row As CMRRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddCMRRow( _ ByVal CMR_Suchbegriff As String, _ ByVal CMR_Absender_1 As String, _ ByVal CMR_Absender_2 As String, _ ByVal CMR_Absender_3 As String, _ ByVal CMR_Absender_4 As String, _ ByVal CMR_Absender_5 As String, _ ByVal CMR_Empfänger_1 As String, _ ByVal CMR_Empfänger_2 As String, _ ByVal CMR_Empfänger_3 As String, _ ByVal CMR_Empfänger_4 As String, _ ByVal CMR_Empfänger_5 As String, _ ByVal CMR_Auslieferung_Ort As String, _ ByVal CMR_Auslieferung_Land As String, _ ByVal CMR_Auslieferung As String, _ ByVal CMR_Übernahme_Ort As String, _ ByVal CMR_Übernahme_Land As String, _ ByVal CMR_Übernahme_Datum As Date, _ ByVal CMR_Dokumente_1 As String, _ ByVal CMR_Dokumente_2 As String, _ ByVal CMR_Dokumente_3 As String, _ ByVal CMR_Ware_1 As String, _ ByVal CMR_Statistiknr_1 As String, _ ByVal CMR_Bruttogewicht_1 As String, _ ByVal CMR_Umfang_1 As String, _ ByVal CMR_Ware_2 As String, _ ByVal CMR_Statistiknr_2 As String, _ ByVal CMR_Bruttogewicht_2 As String, _ ByVal CMR_Umfang_2 As String, _ ByVal CMR_Ware_3 As String, _ ByVal CMR_Statistiknr_3 As String, _ ByVal CMR_Bruttogewicht_3 As String, _ ByVal CMR_Umfang_3 As String, _ ByVal CMR_Ware_4 As String, _ ByVal CMR_Statistiknr_4 As String, _ ByVal CMR_Bruttogewicht_4 As String, _ ByVal CMR_Umfang_4 As String, _ ByVal CMR_Ware_5 As String, _ ByVal CMR_Statistiknr_5 As String, _ ByVal CMR_Bruttogewicht_5 As String, _ ByVal CMR_Umfang_5 As String, _ ByVal CMR_Ware_6 As String, _ ByVal CMR_Statistiknr_6 As String, _ ByVal CMR_Bruttogewicht_6 As String, _ ByVal CMR_Umfang_6 As String, _ ByVal CMR_Ware_7 As String, _ ByVal CMR_Statistiknr_7 As String, _ ByVal CMR_Bruttogewicht_7 As String, _ ByVal CMR_Umfang_7 As String, _ ByVal CMR_Ware_8 As String, _ ByVal CMR_Statistiknr_8 As String, _ ByVal CMR_Bruttogewicht_8 As String, _ ByVal CMR_Umfang_8 As String, _ ByVal CMR_Klasse As String, _ ByVal CMR_Ziffer As String, _ ByVal CMR_Buchstabe As String, _ ByVal CMR_ADR As String, _ ByVal CMR_Ware_9 As String, _ ByVal CMR_Statistiknr_9 As String, _ ByVal CMR_Bruttogewicht_9 As String, _ ByVal CMR_Umfang_9 As String, _ ByVal CMR_Anweisungen_1 As String, _ ByVal CMR_Anweisungen_2 As String, _ ByVal CMR_Anweisungen_3 As String, _ ByVal CMR_Anweisungen_4 As String, _ ByVal CMR_Anweisungen_5 As String, _ ByVal CMR_Anweisungen_6 As String, _ ByVal CMR_Anweisungen_7 As String, _ ByVal CMR_Rückerstattung As String, _ ByVal CMR_Frachtzahlungsanweisung_Frei As String, _ ByVal CMR_Frachtzahlungsanweisung_Unfrei As String, _ ByVal CMR_Frachtführer_1 As String, _ ByVal CMR_Frachtführer_2 As String, _ ByVal CMR_Frachtführer_3 As String, _ ByVal CMR_Frachtführer_4 As String, _ ByVal CMR_Frachtführer_5 As String, _ ByVal CMR_Nachf_Frachtführer_1 As String, _ ByVal CMR_Nachf_Frachtführer_2 As String, _ ByVal CMR_Nachf_Frachtführer_3 As String, _ ByVal CMR_Nachf_Frachtführer_4 As String, _ ByVal CMR_Nachf_Frachtführer_5 As String, _ ByVal CMR_Bemerkungen_1 As String, _ ByVal CMR_Bemerkungen_2 As String, _ ByVal CMR_Bemerkungen_3 As String, _ ByVal CMR_Bemerkungen_4 As String, _ ByVal CMR_Bemerkungen_5 As String, _ ByVal CMR_Vereinbarungen_1 As String, _ ByVal CMR_Vereinbarungen_2 As String, _ ByVal CMR_Ausgefertigt_in As String, _ ByVal CMR_Ausgefertigt_am As Date, _ ByVal CMR_Ausgefertigt As String, _ ByVal CMR_Stempel_Absender_1 As String, _ ByVal CMR_Stempel_Absender_2 As String, _ ByVal CMR_Stempel_Frachtführer_1 As String, _ ByVal CMR_Stempel_Frachtführer_2 As String, _ ByVal CMR_Empfangsbestätigung_Datum As Date, _ ByVal CMR_Stempel_Empfänger_1 As String, _ ByVal CMR_Stempel_Empfänger_2 As String, _ ByVal CMR_Tarifentfernung_von_1 As String, _ ByVal CMR_Tarifentfernung_bis_1 As String, _ ByVal CMR_Tarifentfernung_km_1 As Integer, _ ByVal CMR_Tarifentfernung_von_2 As String, _ ByVal CMR_Tarifentfernung_bis_2 As String, _ ByVal CMR_Tarifentfernung_km_2 As Integer, _ ByVal CMR_Tarifentfernung_von_3 As String, _ ByVal CMR_Tarifentfernung_bis_3 As String, _ ByVal CMR_Tarifentfernung_km_3 As Integer, _ ByVal CMR_Tarifentfernung_von_4 As String, _ ByVal CMR_Tarifentfernung_bis_4 As String, _ ByVal CMR_Tarifentfernung_km_4 As Integer, _ ByVal CMR_Tarifentfernung_von_5 As String, _ ByVal CMR_Tarifentfernung_bis_5 As String, _ ByVal CMR_Tarifentfernung_km_5 As Integer, _ ByVal CMR_Kennzeichen_Kfz As String, _ ByVal CMR_Nutzlast_Kfz As Double, _ ByVal CMR_Kennzeichen_Anhänger As String, _ ByVal CMR_Nutzlast_Anhänger As Double, _ ByVal CMR_Erstellt_Datum As Date, _ ByVal CMR_Erstellt_Sachbearbeiter As String, _ ByVal CMR_Geändert_Datum As Date, _ ByVal CMR_Geändert_Sachbearbeiter As String, _ ByVal CMR_Gedruckt_Datum As Date, _ ByVal CMR_Gedruckt_Sachbearbeiter As String, _ ByVal CMR_zeichen_1 As String, _ ByVal CMR_zeichen_2 As String, _ ByVal CMR_zeichen_3 As String, _ ByVal CMR_zeichen_4 As String, _ ByVal CMR_zeichen_5 As String, _ ByVal CMR_zeichen_6 As String, _ ByVal CMR_zeichen_7 As String, _ ByVal CMR_zeichen_8 As String, _ ByVal CMR_zeichen_9 As String, _ ByVal CMR_anzahl_1 As String, _ ByVal CMR_anzahl_2 As String, _ ByVal CMR_anzahl_3 As String, _ ByVal CMR_anzahl_4 As String, _ ByVal CMR_anzahl_5 As String, _ ByVal CMR_anzahl_6 As String, _ ByVal CMR_anzahl_7 As String, _ ByVal CMR_anzahl_8 As String, _ ByVal CMR_anzahl_9 As String, _ ByVal CMR_pkArt_1 As String, _ ByVal CMR_pkArt_2 As String, _ ByVal CMR_pkArt_3 As String, _ ByVal CMR_pkArt_4 As String, _ ByVal CMR_pkArt_5 As String, _ ByVal CMR_pkArt_6 As String, _ ByVal CMR_pkArt_7 As String, _ ByVal CMR_pkArt_8 As String, _ ByVal CMR_pkArt_9 As String, _ ByVal CMR_TblLangKurz As String, _ ByVal EPBes_ID As Integer, _ ByVal SSMA_TimeStamp() As Byte, _ ByVal CMR_Firma As String, _ ByVal CMR_isVorlage As Boolean) As CMRRow Dim rowCMRRow As CMRRow = CType(Me.NewRow,CMRRow) Dim columnValuesArray() As Object = New Object() {Nothing, CMR_Suchbegriff, CMR_Absender_1, CMR_Absender_2, CMR_Absender_3, CMR_Absender_4, CMR_Absender_5, CMR_Empfänger_1, CMR_Empfänger_2, CMR_Empfänger_3, CMR_Empfänger_4, CMR_Empfänger_5, CMR_Auslieferung_Ort, CMR_Auslieferung_Land, CMR_Auslieferung, CMR_Übernahme_Ort, CMR_Übernahme_Land, CMR_Übernahme_Datum, CMR_Dokumente_1, CMR_Dokumente_2, CMR_Dokumente_3, CMR_Ware_1, CMR_Statistiknr_1, CMR_Bruttogewicht_1, CMR_Umfang_1, CMR_Ware_2, CMR_Statistiknr_2, CMR_Bruttogewicht_2, CMR_Umfang_2, CMR_Ware_3, CMR_Statistiknr_3, CMR_Bruttogewicht_3, CMR_Umfang_3, CMR_Ware_4, CMR_Statistiknr_4, CMR_Bruttogewicht_4, CMR_Umfang_4, CMR_Ware_5, CMR_Statistiknr_5, CMR_Bruttogewicht_5, CMR_Umfang_5, CMR_Ware_6, CMR_Statistiknr_6, CMR_Bruttogewicht_6, CMR_Umfang_6, CMR_Ware_7, CMR_Statistiknr_7, CMR_Bruttogewicht_7, CMR_Umfang_7, CMR_Ware_8, CMR_Statistiknr_8, CMR_Bruttogewicht_8, CMR_Umfang_8, CMR_Klasse, CMR_Ziffer, CMR_Buchstabe, CMR_ADR, CMR_Ware_9, CMR_Statistiknr_9, CMR_Bruttogewicht_9, CMR_Umfang_9, CMR_Anweisungen_1, CMR_Anweisungen_2, CMR_Anweisungen_3, CMR_Anweisungen_4, CMR_Anweisungen_5, CMR_Anweisungen_6, CMR_Anweisungen_7, CMR_Rückerstattung, CMR_Frachtzahlungsanweisung_Frei, CMR_Frachtzahlungsanweisung_Unfrei, CMR_Frachtführer_1, CMR_Frachtführer_2, CMR_Frachtführer_3, CMR_Frachtführer_4, CMR_Frachtführer_5, CMR_Nachf_Frachtführer_1, CMR_Nachf_Frachtführer_2, CMR_Nachf_Frachtführer_3, CMR_Nachf_Frachtführer_4, CMR_Nachf_Frachtführer_5, CMR_Bemerkungen_1, CMR_Bemerkungen_2, CMR_Bemerkungen_3, CMR_Bemerkungen_4, CMR_Bemerkungen_5, CMR_Vereinbarungen_1, CMR_Vereinbarungen_2, CMR_Ausgefertigt_in, CMR_Ausgefertigt_am, CMR_Ausgefertigt, CMR_Stempel_Absender_1, CMR_Stempel_Absender_2, CMR_Stempel_Frachtführer_1, CMR_Stempel_Frachtführer_2, CMR_Empfangsbestätigung_Datum, CMR_Stempel_Empfänger_1, CMR_Stempel_Empfänger_2, CMR_Tarifentfernung_von_1, CMR_Tarifentfernung_bis_1, CMR_Tarifentfernung_km_1, CMR_Tarifentfernung_von_2, CMR_Tarifentfernung_bis_2, CMR_Tarifentfernung_km_2, CMR_Tarifentfernung_von_3, CMR_Tarifentfernung_bis_3, CMR_Tarifentfernung_km_3, CMR_Tarifentfernung_von_4, CMR_Tarifentfernung_bis_4, CMR_Tarifentfernung_km_4, CMR_Tarifentfernung_von_5, CMR_Tarifentfernung_bis_5, CMR_Tarifentfernung_km_5, CMR_Kennzeichen_Kfz, CMR_Nutzlast_Kfz, CMR_Kennzeichen_Anhänger, CMR_Nutzlast_Anhänger, CMR_Erstellt_Datum, CMR_Erstellt_Sachbearbeiter, CMR_Geändert_Datum, CMR_Geändert_Sachbearbeiter, CMR_Gedruckt_Datum, CMR_Gedruckt_Sachbearbeiter, CMR_zeichen_1, CMR_zeichen_2, CMR_zeichen_3, CMR_zeichen_4, CMR_zeichen_5, CMR_zeichen_6, CMR_zeichen_7, CMR_zeichen_8, CMR_zeichen_9, CMR_anzahl_1, CMR_anzahl_2, CMR_anzahl_3, CMR_anzahl_4, CMR_anzahl_5, CMR_anzahl_6, CMR_anzahl_7, CMR_anzahl_8, CMR_anzahl_9, CMR_pkArt_1, CMR_pkArt_2, CMR_pkArt_3, CMR_pkArt_4, CMR_pkArt_5, CMR_pkArt_6, CMR_pkArt_7, CMR_pkArt_8, CMR_pkArt_9, CMR_TblLangKurz, EPBes_ID, SSMA_TimeStamp, CMR_Firma, CMR_isVorlage} rowCMRRow.ItemArray = columnValuesArray Me.Rows.Add(rowCMRRow) Return rowCMRRow End Function _ Public Function FindByCMR_ID(ByVal CMR_ID As Integer) As CMRRow Return CType(Me.Rows.Find(New Object() {CMR_ID}),CMRRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As CMRDataTable = CType(MyBase.Clone,CMRDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New CMRDataTable() End Function _ Friend Sub InitVars() Me.columnCMR_ID = MyBase.Columns("CMR_ID") Me.columnCMR_Suchbegriff = MyBase.Columns("CMR_Suchbegriff") Me.columnCMR_Absender_1 = MyBase.Columns("CMR_Absender_1") Me.columnCMR_Absender_2 = MyBase.Columns("CMR_Absender_2") Me.columnCMR_Absender_3 = MyBase.Columns("CMR_Absender_3") Me.columnCMR_Absender_4 = MyBase.Columns("CMR_Absender_4") Me.columnCMR_Absender_5 = MyBase.Columns("CMR_Absender_5") Me.columnCMR_Empfänger_1 = MyBase.Columns("CMR_Empfänger_1") Me.columnCMR_Empfänger_2 = MyBase.Columns("CMR_Empfänger_2") Me.columnCMR_Empfänger_3 = MyBase.Columns("CMR_Empfänger_3") Me.columnCMR_Empfänger_4 = MyBase.Columns("CMR_Empfänger_4") Me.columnCMR_Empfänger_5 = MyBase.Columns("CMR_Empfänger_5") Me.columnCMR_Auslieferung_Ort = MyBase.Columns("CMR_Auslieferung_Ort") Me.columnCMR_Auslieferung_Land = MyBase.Columns("CMR_Auslieferung_Land") Me.columnCMR_Auslieferung = MyBase.Columns("CMR_Auslieferung") Me.columnCMR_Übernahme_Ort = MyBase.Columns("CMR_Übernahme_Ort") Me.columnCMR_Übernahme_Land = MyBase.Columns("CMR_Übernahme_Land") Me.columnCMR_Übernahme_Datum = MyBase.Columns("CMR_Übernahme_Datum") Me.columnCMR_Dokumente_1 = MyBase.Columns("CMR_Dokumente_1") Me.columnCMR_Dokumente_2 = MyBase.Columns("CMR_Dokumente_2") Me.columnCMR_Dokumente_3 = MyBase.Columns("CMR_Dokumente_3") Me.columnCMR_Ware_1 = MyBase.Columns("CMR_Ware_1") Me.columnCMR_Statistiknr_1 = MyBase.Columns("CMR_Statistiknr_1") Me.columnCMR_Bruttogewicht_1 = MyBase.Columns("CMR_Bruttogewicht_1") Me.columnCMR_Umfang_1 = MyBase.Columns("CMR_Umfang_1") Me.columnCMR_Ware_2 = MyBase.Columns("CMR_Ware_2") Me.columnCMR_Statistiknr_2 = MyBase.Columns("CMR_Statistiknr_2") Me.columnCMR_Bruttogewicht_2 = MyBase.Columns("CMR_Bruttogewicht_2") Me.columnCMR_Umfang_2 = MyBase.Columns("CMR_Umfang_2") Me.columnCMR_Ware_3 = MyBase.Columns("CMR_Ware_3") Me.columnCMR_Statistiknr_3 = MyBase.Columns("CMR_Statistiknr_3") Me.columnCMR_Bruttogewicht_3 = MyBase.Columns("CMR_Bruttogewicht_3") Me.columnCMR_Umfang_3 = MyBase.Columns("CMR_Umfang_3") Me.columnCMR_Ware_4 = MyBase.Columns("CMR_Ware_4") Me.columnCMR_Statistiknr_4 = MyBase.Columns("CMR_Statistiknr_4") Me.columnCMR_Bruttogewicht_4 = MyBase.Columns("CMR_Bruttogewicht_4") Me.columnCMR_Umfang_4 = MyBase.Columns("CMR_Umfang_4") Me.columnCMR_Ware_5 = MyBase.Columns("CMR_Ware_5") Me.columnCMR_Statistiknr_5 = MyBase.Columns("CMR_Statistiknr_5") Me.columnCMR_Bruttogewicht_5 = MyBase.Columns("CMR_Bruttogewicht_5") Me.columnCMR_Umfang_5 = MyBase.Columns("CMR_Umfang_5") Me.columnCMR_Ware_6 = MyBase.Columns("CMR_Ware_6") Me.columnCMR_Statistiknr_6 = MyBase.Columns("CMR_Statistiknr_6") Me.columnCMR_Bruttogewicht_6 = MyBase.Columns("CMR_Bruttogewicht_6") Me.columnCMR_Umfang_6 = MyBase.Columns("CMR_Umfang_6") Me.columnCMR_Ware_7 = MyBase.Columns("CMR_Ware_7") Me.columnCMR_Statistiknr_7 = MyBase.Columns("CMR_Statistiknr_7") Me.columnCMR_Bruttogewicht_7 = MyBase.Columns("CMR_Bruttogewicht_7") Me.columnCMR_Umfang_7 = MyBase.Columns("CMR_Umfang_7") Me.columnCMR_Ware_8 = MyBase.Columns("CMR_Ware_8") Me.columnCMR_Statistiknr_8 = MyBase.Columns("CMR_Statistiknr_8") Me.columnCMR_Bruttogewicht_8 = MyBase.Columns("CMR_Bruttogewicht_8") Me.columnCMR_Umfang_8 = MyBase.Columns("CMR_Umfang_8") Me.columnCMR_Klasse = MyBase.Columns("CMR_Klasse") Me.columnCMR_Ziffer = MyBase.Columns("CMR_Ziffer") Me.columnCMR_Buchstabe = MyBase.Columns("CMR_Buchstabe") Me.columnCMR_ADR = MyBase.Columns("CMR_ADR") Me.columnCMR_Ware_9 = MyBase.Columns("CMR_Ware_9") Me.columnCMR_Statistiknr_9 = MyBase.Columns("CMR_Statistiknr_9") Me.columnCMR_Bruttogewicht_9 = MyBase.Columns("CMR_Bruttogewicht_9") Me.columnCMR_Umfang_9 = MyBase.Columns("CMR_Umfang_9") Me.columnCMR_Anweisungen_1 = MyBase.Columns("CMR_Anweisungen_1") Me.columnCMR_Anweisungen_2 = MyBase.Columns("CMR_Anweisungen_2") Me.columnCMR_Anweisungen_3 = MyBase.Columns("CMR_Anweisungen_3") Me.columnCMR_Anweisungen_4 = MyBase.Columns("CMR_Anweisungen_4") Me.columnCMR_Anweisungen_5 = MyBase.Columns("CMR_Anweisungen_5") Me.columnCMR_Anweisungen_6 = MyBase.Columns("CMR_Anweisungen_6") Me.columnCMR_Anweisungen_7 = MyBase.Columns("CMR_Anweisungen_7") Me.columnCMR_Rückerstattung = MyBase.Columns("CMR_Rückerstattung") Me.columnCMR_Frachtzahlungsanweisung_Frei = MyBase.Columns("CMR_Frachtzahlungsanweisung_Frei") Me.columnCMR_Frachtzahlungsanweisung_Unfrei = MyBase.Columns("CMR_Frachtzahlungsanweisung_Unfrei") Me.columnCMR_Frachtführer_1 = MyBase.Columns("CMR_Frachtführer_1") Me.columnCMR_Frachtführer_2 = MyBase.Columns("CMR_Frachtführer_2") Me.columnCMR_Frachtführer_3 = MyBase.Columns("CMR_Frachtführer_3") Me.columnCMR_Frachtführer_4 = MyBase.Columns("CMR_Frachtführer_4") Me.columnCMR_Frachtführer_5 = MyBase.Columns("CMR_Frachtführer_5") Me.columnCMR_Nachf_Frachtführer_1 = MyBase.Columns("CMR_Nachf_Frachtführer_1") Me.columnCMR_Nachf_Frachtführer_2 = MyBase.Columns("CMR_Nachf_Frachtführer_2") Me.columnCMR_Nachf_Frachtführer_3 = MyBase.Columns("CMR_Nachf_Frachtführer_3") Me.columnCMR_Nachf_Frachtführer_4 = MyBase.Columns("CMR_Nachf_Frachtführer_4") Me.columnCMR_Nachf_Frachtführer_5 = MyBase.Columns("CMR_Nachf_Frachtführer_5") Me.columnCMR_Bemerkungen_1 = MyBase.Columns("CMR_Bemerkungen_1") Me.columnCMR_Bemerkungen_2 = MyBase.Columns("CMR_Bemerkungen_2") Me.columnCMR_Bemerkungen_3 = MyBase.Columns("CMR_Bemerkungen_3") Me.columnCMR_Bemerkungen_4 = MyBase.Columns("CMR_Bemerkungen_4") Me.columnCMR_Bemerkungen_5 = MyBase.Columns("CMR_Bemerkungen_5") Me.columnCMR_Vereinbarungen_1 = MyBase.Columns("CMR_Vereinbarungen_1") Me.columnCMR_Vereinbarungen_2 = MyBase.Columns("CMR_Vereinbarungen_2") Me.columnCMR_Ausgefertigt_in = MyBase.Columns("CMR_Ausgefertigt_in") Me.columnCMR_Ausgefertigt_am = MyBase.Columns("CMR_Ausgefertigt_am") Me.columnCMR_Ausgefertigt = MyBase.Columns("CMR_Ausgefertigt") Me.columnCMR_Stempel_Absender_1 = MyBase.Columns("CMR_Stempel_Absender_1") Me.columnCMR_Stempel_Absender_2 = MyBase.Columns("CMR_Stempel_Absender_2") Me.columnCMR_Stempel_Frachtführer_1 = MyBase.Columns("CMR_Stempel_Frachtführer_1") Me.columnCMR_Stempel_Frachtführer_2 = MyBase.Columns("CMR_Stempel_Frachtführer_2") Me.columnCMR_Empfangsbestätigung_Datum = MyBase.Columns("CMR_Empfangsbestätigung_Datum") Me.columnCMR_Stempel_Empfänger_1 = MyBase.Columns("CMR_Stempel_Empfänger_1") Me.columnCMR_Stempel_Empfänger_2 = MyBase.Columns("CMR_Stempel_Empfänger_2") Me.columnCMR_Tarifentfernung_von_1 = MyBase.Columns("CMR_Tarifentfernung_von_1") Me.columnCMR_Tarifentfernung_bis_1 = MyBase.Columns("CMR_Tarifentfernung_bis_1") Me.columnCMR_Tarifentfernung_km_1 = MyBase.Columns("CMR_Tarifentfernung_km_1") Me.columnCMR_Tarifentfernung_von_2 = MyBase.Columns("CMR_Tarifentfernung_von_2") Me.columnCMR_Tarifentfernung_bis_2 = MyBase.Columns("CMR_Tarifentfernung_bis_2") Me.columnCMR_Tarifentfernung_km_2 = MyBase.Columns("CMR_Tarifentfernung_km_2") Me.columnCMR_Tarifentfernung_von_3 = MyBase.Columns("CMR_Tarifentfernung_von_3") Me.columnCMR_Tarifentfernung_bis_3 = MyBase.Columns("CMR_Tarifentfernung_bis_3") Me.columnCMR_Tarifentfernung_km_3 = MyBase.Columns("CMR_Tarifentfernung_km_3") Me.columnCMR_Tarifentfernung_von_4 = MyBase.Columns("CMR_Tarifentfernung_von_4") Me.columnCMR_Tarifentfernung_bis_4 = MyBase.Columns("CMR_Tarifentfernung_bis_4") Me.columnCMR_Tarifentfernung_km_4 = MyBase.Columns("CMR_Tarifentfernung_km_4") Me.columnCMR_Tarifentfernung_von_5 = MyBase.Columns("CMR_Tarifentfernung_von_5") Me.columnCMR_Tarifentfernung_bis_5 = MyBase.Columns("CMR_Tarifentfernung_bis_5") Me.columnCMR_Tarifentfernung_km_5 = MyBase.Columns("CMR_Tarifentfernung_km_5") Me.columnCMR_Kennzeichen_Kfz = MyBase.Columns("CMR_Kennzeichen_Kfz") Me.columnCMR_Nutzlast_Kfz = MyBase.Columns("CMR_Nutzlast_Kfz") Me.columnCMR_Kennzeichen_Anhänger = MyBase.Columns("CMR_Kennzeichen_Anhänger") Me.columnCMR_Nutzlast_Anhänger = MyBase.Columns("CMR_Nutzlast_Anhänger") Me.columnCMR_Erstellt_Datum = MyBase.Columns("CMR_Erstellt_Datum") Me.columnCMR_Erstellt_Sachbearbeiter = MyBase.Columns("CMR_Erstellt_Sachbearbeiter") Me.columnCMR_Geändert_Datum = MyBase.Columns("CMR_Geändert_Datum") Me.columnCMR_Geändert_Sachbearbeiter = MyBase.Columns("CMR_Geändert_Sachbearbeiter") Me.columnCMR_Gedruckt_Datum = MyBase.Columns("CMR_Gedruckt_Datum") Me.columnCMR_Gedruckt_Sachbearbeiter = MyBase.Columns("CMR_Gedruckt_Sachbearbeiter") Me.columnCMR_zeichen_1 = MyBase.Columns("CMR_zeichen_1") Me.columnCMR_zeichen_2 = MyBase.Columns("CMR_zeichen_2") Me.columnCMR_zeichen_3 = MyBase.Columns("CMR_zeichen_3") Me.columnCMR_zeichen_4 = MyBase.Columns("CMR_zeichen_4") Me.columnCMR_zeichen_5 = MyBase.Columns("CMR_zeichen_5") Me.columnCMR_zeichen_6 = MyBase.Columns("CMR_zeichen_6") Me.columnCMR_zeichen_7 = MyBase.Columns("CMR_zeichen_7") Me.columnCMR_zeichen_8 = MyBase.Columns("CMR_zeichen_8") Me.columnCMR_zeichen_9 = MyBase.Columns("CMR_zeichen_9") Me.columnCMR_anzahl_1 = MyBase.Columns("CMR_anzahl_1") Me.columnCMR_anzahl_2 = MyBase.Columns("CMR_anzahl_2") Me.columnCMR_anzahl_3 = MyBase.Columns("CMR_anzahl_3") Me.columnCMR_anzahl_4 = MyBase.Columns("CMR_anzahl_4") Me.columnCMR_anzahl_5 = MyBase.Columns("CMR_anzahl_5") Me.columnCMR_anzahl_6 = MyBase.Columns("CMR_anzahl_6") Me.columnCMR_anzahl_7 = MyBase.Columns("CMR_anzahl_7") Me.columnCMR_anzahl_8 = MyBase.Columns("CMR_anzahl_8") Me.columnCMR_anzahl_9 = MyBase.Columns("CMR_anzahl_9") Me.columnCMR_pkArt_1 = MyBase.Columns("CMR_pkArt_1") Me.columnCMR_pkArt_2 = MyBase.Columns("CMR_pkArt_2") Me.columnCMR_pkArt_3 = MyBase.Columns("CMR_pkArt_3") Me.columnCMR_pkArt_4 = MyBase.Columns("CMR_pkArt_4") Me.columnCMR_pkArt_5 = MyBase.Columns("CMR_pkArt_5") Me.columnCMR_pkArt_6 = MyBase.Columns("CMR_pkArt_6") Me.columnCMR_pkArt_7 = MyBase.Columns("CMR_pkArt_7") Me.columnCMR_pkArt_8 = MyBase.Columns("CMR_pkArt_8") Me.columnCMR_pkArt_9 = MyBase.Columns("CMR_pkArt_9") Me.columnCMR_TblLangKurz = MyBase.Columns("CMR_TblLangKurz") Me.columnEPBes_ID = MyBase.Columns("EPBes_ID") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnCMR_Firma = MyBase.Columns("CMR_Firma") Me.columnCMR_isVorlage = MyBase.Columns("CMR_isVorlage") End Sub _ Private Sub InitClass() Me.columnCMR_ID = New Global.System.Data.DataColumn("CMR_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_ID) Me.columnCMR_Suchbegriff = New Global.System.Data.DataColumn("CMR_Suchbegriff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Suchbegriff) Me.columnCMR_Absender_1 = New Global.System.Data.DataColumn("CMR_Absender_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Absender_1) Me.columnCMR_Absender_2 = New Global.System.Data.DataColumn("CMR_Absender_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Absender_2) Me.columnCMR_Absender_3 = New Global.System.Data.DataColumn("CMR_Absender_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Absender_3) Me.columnCMR_Absender_4 = New Global.System.Data.DataColumn("CMR_Absender_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Absender_4) Me.columnCMR_Absender_5 = New Global.System.Data.DataColumn("CMR_Absender_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Absender_5) Me.columnCMR_Empfänger_1 = New Global.System.Data.DataColumn("CMR_Empfänger_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Empfänger_1) Me.columnCMR_Empfänger_2 = New Global.System.Data.DataColumn("CMR_Empfänger_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Empfänger_2) Me.columnCMR_Empfänger_3 = New Global.System.Data.DataColumn("CMR_Empfänger_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Empfänger_3) Me.columnCMR_Empfänger_4 = New Global.System.Data.DataColumn("CMR_Empfänger_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Empfänger_4) Me.columnCMR_Empfänger_5 = New Global.System.Data.DataColumn("CMR_Empfänger_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Empfänger_5) Me.columnCMR_Auslieferung_Ort = New Global.System.Data.DataColumn("CMR_Auslieferung_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Auslieferung_Ort) Me.columnCMR_Auslieferung_Land = New Global.System.Data.DataColumn("CMR_Auslieferung_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Auslieferung_Land) Me.columnCMR_Auslieferung = New Global.System.Data.DataColumn("CMR_Auslieferung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Auslieferung) Me.columnCMR_Übernahme_Ort = New Global.System.Data.DataColumn("CMR_Übernahme_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Übernahme_Ort) Me.columnCMR_Übernahme_Land = New Global.System.Data.DataColumn("CMR_Übernahme_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Übernahme_Land) Me.columnCMR_Übernahme_Datum = New Global.System.Data.DataColumn("CMR_Übernahme_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Übernahme_Datum) Me.columnCMR_Dokumente_1 = New Global.System.Data.DataColumn("CMR_Dokumente_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Dokumente_1) Me.columnCMR_Dokumente_2 = New Global.System.Data.DataColumn("CMR_Dokumente_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Dokumente_2) Me.columnCMR_Dokumente_3 = New Global.System.Data.DataColumn("CMR_Dokumente_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Dokumente_3) Me.columnCMR_Ware_1 = New Global.System.Data.DataColumn("CMR_Ware_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ware_1) Me.columnCMR_Statistiknr_1 = New Global.System.Data.DataColumn("CMR_Statistiknr_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Statistiknr_1) Me.columnCMR_Bruttogewicht_1 = New Global.System.Data.DataColumn("CMR_Bruttogewicht_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bruttogewicht_1) Me.columnCMR_Umfang_1 = New Global.System.Data.DataColumn("CMR_Umfang_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Umfang_1) Me.columnCMR_Ware_2 = New Global.System.Data.DataColumn("CMR_Ware_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ware_2) Me.columnCMR_Statistiknr_2 = New Global.System.Data.DataColumn("CMR_Statistiknr_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Statistiknr_2) Me.columnCMR_Bruttogewicht_2 = New Global.System.Data.DataColumn("CMR_Bruttogewicht_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bruttogewicht_2) Me.columnCMR_Umfang_2 = New Global.System.Data.DataColumn("CMR_Umfang_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Umfang_2) Me.columnCMR_Ware_3 = New Global.System.Data.DataColumn("CMR_Ware_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ware_3) Me.columnCMR_Statistiknr_3 = New Global.System.Data.DataColumn("CMR_Statistiknr_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Statistiknr_3) Me.columnCMR_Bruttogewicht_3 = New Global.System.Data.DataColumn("CMR_Bruttogewicht_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bruttogewicht_3) Me.columnCMR_Umfang_3 = New Global.System.Data.DataColumn("CMR_Umfang_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Umfang_3) Me.columnCMR_Ware_4 = New Global.System.Data.DataColumn("CMR_Ware_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ware_4) Me.columnCMR_Statistiknr_4 = New Global.System.Data.DataColumn("CMR_Statistiknr_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Statistiknr_4) Me.columnCMR_Bruttogewicht_4 = New Global.System.Data.DataColumn("CMR_Bruttogewicht_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bruttogewicht_4) Me.columnCMR_Umfang_4 = New Global.System.Data.DataColumn("CMR_Umfang_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Umfang_4) Me.columnCMR_Ware_5 = New Global.System.Data.DataColumn("CMR_Ware_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ware_5) Me.columnCMR_Statistiknr_5 = New Global.System.Data.DataColumn("CMR_Statistiknr_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Statistiknr_5) Me.columnCMR_Bruttogewicht_5 = New Global.System.Data.DataColumn("CMR_Bruttogewicht_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bruttogewicht_5) Me.columnCMR_Umfang_5 = New Global.System.Data.DataColumn("CMR_Umfang_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Umfang_5) Me.columnCMR_Ware_6 = New Global.System.Data.DataColumn("CMR_Ware_6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ware_6) Me.columnCMR_Statistiknr_6 = New Global.System.Data.DataColumn("CMR_Statistiknr_6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Statistiknr_6) Me.columnCMR_Bruttogewicht_6 = New Global.System.Data.DataColumn("CMR_Bruttogewicht_6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bruttogewicht_6) Me.columnCMR_Umfang_6 = New Global.System.Data.DataColumn("CMR_Umfang_6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Umfang_6) Me.columnCMR_Ware_7 = New Global.System.Data.DataColumn("CMR_Ware_7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ware_7) Me.columnCMR_Statistiknr_7 = New Global.System.Data.DataColumn("CMR_Statistiknr_7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Statistiknr_7) Me.columnCMR_Bruttogewicht_7 = New Global.System.Data.DataColumn("CMR_Bruttogewicht_7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bruttogewicht_7) Me.columnCMR_Umfang_7 = New Global.System.Data.DataColumn("CMR_Umfang_7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Umfang_7) Me.columnCMR_Ware_8 = New Global.System.Data.DataColumn("CMR_Ware_8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ware_8) Me.columnCMR_Statistiknr_8 = New Global.System.Data.DataColumn("CMR_Statistiknr_8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Statistiknr_8) Me.columnCMR_Bruttogewicht_8 = New Global.System.Data.DataColumn("CMR_Bruttogewicht_8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bruttogewicht_8) Me.columnCMR_Umfang_8 = New Global.System.Data.DataColumn("CMR_Umfang_8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Umfang_8) Me.columnCMR_Klasse = New Global.System.Data.DataColumn("CMR_Klasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Klasse) Me.columnCMR_Ziffer = New Global.System.Data.DataColumn("CMR_Ziffer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ziffer) Me.columnCMR_Buchstabe = New Global.System.Data.DataColumn("CMR_Buchstabe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Buchstabe) Me.columnCMR_ADR = New Global.System.Data.DataColumn("CMR_ADR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_ADR) Me.columnCMR_Ware_9 = New Global.System.Data.DataColumn("CMR_Ware_9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ware_9) Me.columnCMR_Statistiknr_9 = New Global.System.Data.DataColumn("CMR_Statistiknr_9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Statistiknr_9) Me.columnCMR_Bruttogewicht_9 = New Global.System.Data.DataColumn("CMR_Bruttogewicht_9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bruttogewicht_9) Me.columnCMR_Umfang_9 = New Global.System.Data.DataColumn("CMR_Umfang_9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Umfang_9) Me.columnCMR_Anweisungen_1 = New Global.System.Data.DataColumn("CMR_Anweisungen_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Anweisungen_1) Me.columnCMR_Anweisungen_2 = New Global.System.Data.DataColumn("CMR_Anweisungen_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Anweisungen_2) Me.columnCMR_Anweisungen_3 = New Global.System.Data.DataColumn("CMR_Anweisungen_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Anweisungen_3) Me.columnCMR_Anweisungen_4 = New Global.System.Data.DataColumn("CMR_Anweisungen_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Anweisungen_4) Me.columnCMR_Anweisungen_5 = New Global.System.Data.DataColumn("CMR_Anweisungen_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Anweisungen_5) Me.columnCMR_Anweisungen_6 = New Global.System.Data.DataColumn("CMR_Anweisungen_6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Anweisungen_6) Me.columnCMR_Anweisungen_7 = New Global.System.Data.DataColumn("CMR_Anweisungen_7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Anweisungen_7) Me.columnCMR_Rückerstattung = New Global.System.Data.DataColumn("CMR_Rückerstattung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Rückerstattung) Me.columnCMR_Frachtzahlungsanweisung_Frei = New Global.System.Data.DataColumn("CMR_Frachtzahlungsanweisung_Frei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Frachtzahlungsanweisung_Frei) Me.columnCMR_Frachtzahlungsanweisung_Unfrei = New Global.System.Data.DataColumn("CMR_Frachtzahlungsanweisung_Unfrei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Frachtzahlungsanweisung_Unfrei) Me.columnCMR_Frachtführer_1 = New Global.System.Data.DataColumn("CMR_Frachtführer_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Frachtführer_1) Me.columnCMR_Frachtführer_2 = New Global.System.Data.DataColumn("CMR_Frachtführer_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Frachtführer_2) Me.columnCMR_Frachtführer_3 = New Global.System.Data.DataColumn("CMR_Frachtführer_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Frachtführer_3) Me.columnCMR_Frachtführer_4 = New Global.System.Data.DataColumn("CMR_Frachtführer_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Frachtführer_4) Me.columnCMR_Frachtführer_5 = New Global.System.Data.DataColumn("CMR_Frachtführer_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Frachtführer_5) Me.columnCMR_Nachf_Frachtführer_1 = New Global.System.Data.DataColumn("CMR_Nachf_Frachtführer_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Nachf_Frachtführer_1) Me.columnCMR_Nachf_Frachtführer_2 = New Global.System.Data.DataColumn("CMR_Nachf_Frachtführer_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Nachf_Frachtführer_2) Me.columnCMR_Nachf_Frachtführer_3 = New Global.System.Data.DataColumn("CMR_Nachf_Frachtführer_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Nachf_Frachtführer_3) Me.columnCMR_Nachf_Frachtführer_4 = New Global.System.Data.DataColumn("CMR_Nachf_Frachtführer_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Nachf_Frachtführer_4) Me.columnCMR_Nachf_Frachtführer_5 = New Global.System.Data.DataColumn("CMR_Nachf_Frachtführer_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Nachf_Frachtführer_5) Me.columnCMR_Bemerkungen_1 = New Global.System.Data.DataColumn("CMR_Bemerkungen_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bemerkungen_1) Me.columnCMR_Bemerkungen_2 = New Global.System.Data.DataColumn("CMR_Bemerkungen_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bemerkungen_2) Me.columnCMR_Bemerkungen_3 = New Global.System.Data.DataColumn("CMR_Bemerkungen_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bemerkungen_3) Me.columnCMR_Bemerkungen_4 = New Global.System.Data.DataColumn("CMR_Bemerkungen_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bemerkungen_4) Me.columnCMR_Bemerkungen_5 = New Global.System.Data.DataColumn("CMR_Bemerkungen_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Bemerkungen_5) Me.columnCMR_Vereinbarungen_1 = New Global.System.Data.DataColumn("CMR_Vereinbarungen_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Vereinbarungen_1) Me.columnCMR_Vereinbarungen_2 = New Global.System.Data.DataColumn("CMR_Vereinbarungen_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Vereinbarungen_2) Me.columnCMR_Ausgefertigt_in = New Global.System.Data.DataColumn("CMR_Ausgefertigt_in", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ausgefertigt_in) Me.columnCMR_Ausgefertigt_am = New Global.System.Data.DataColumn("CMR_Ausgefertigt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ausgefertigt_am) Me.columnCMR_Ausgefertigt = New Global.System.Data.DataColumn("CMR_Ausgefertigt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Ausgefertigt) Me.columnCMR_Stempel_Absender_1 = New Global.System.Data.DataColumn("CMR_Stempel_Absender_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Stempel_Absender_1) Me.columnCMR_Stempel_Absender_2 = New Global.System.Data.DataColumn("CMR_Stempel_Absender_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Stempel_Absender_2) Me.columnCMR_Stempel_Frachtführer_1 = New Global.System.Data.DataColumn("CMR_Stempel_Frachtführer_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Stempel_Frachtführer_1) Me.columnCMR_Stempel_Frachtführer_2 = New Global.System.Data.DataColumn("CMR_Stempel_Frachtführer_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Stempel_Frachtführer_2) Me.columnCMR_Empfangsbestätigung_Datum = New Global.System.Data.DataColumn("CMR_Empfangsbestätigung_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Empfangsbestätigung_Datum) Me.columnCMR_Stempel_Empfänger_1 = New Global.System.Data.DataColumn("CMR_Stempel_Empfänger_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Stempel_Empfänger_1) Me.columnCMR_Stempel_Empfänger_2 = New Global.System.Data.DataColumn("CMR_Stempel_Empfänger_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Stempel_Empfänger_2) Me.columnCMR_Tarifentfernung_von_1 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_von_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_von_1) Me.columnCMR_Tarifentfernung_bis_1 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_bis_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_bis_1) Me.columnCMR_Tarifentfernung_km_1 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_km_1", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_km_1) Me.columnCMR_Tarifentfernung_von_2 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_von_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_von_2) Me.columnCMR_Tarifentfernung_bis_2 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_bis_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_bis_2) Me.columnCMR_Tarifentfernung_km_2 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_km_2", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_km_2) Me.columnCMR_Tarifentfernung_von_3 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_von_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_von_3) Me.columnCMR_Tarifentfernung_bis_3 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_bis_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_bis_3) Me.columnCMR_Tarifentfernung_km_3 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_km_3", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_km_3) Me.columnCMR_Tarifentfernung_von_4 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_von_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_von_4) Me.columnCMR_Tarifentfernung_bis_4 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_bis_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_bis_4) Me.columnCMR_Tarifentfernung_km_4 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_km_4", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_km_4) Me.columnCMR_Tarifentfernung_von_5 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_von_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_von_5) Me.columnCMR_Tarifentfernung_bis_5 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_bis_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_bis_5) Me.columnCMR_Tarifentfernung_km_5 = New Global.System.Data.DataColumn("CMR_Tarifentfernung_km_5", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Tarifentfernung_km_5) Me.columnCMR_Kennzeichen_Kfz = New Global.System.Data.DataColumn("CMR_Kennzeichen_Kfz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Kennzeichen_Kfz) Me.columnCMR_Nutzlast_Kfz = New Global.System.Data.DataColumn("CMR_Nutzlast_Kfz", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Nutzlast_Kfz) Me.columnCMR_Kennzeichen_Anhänger = New Global.System.Data.DataColumn("CMR_Kennzeichen_Anhänger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Kennzeichen_Anhänger) Me.columnCMR_Nutzlast_Anhänger = New Global.System.Data.DataColumn("CMR_Nutzlast_Anhänger", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Nutzlast_Anhänger) Me.columnCMR_Erstellt_Datum = New Global.System.Data.DataColumn("CMR_Erstellt_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Erstellt_Datum) Me.columnCMR_Erstellt_Sachbearbeiter = New Global.System.Data.DataColumn("CMR_Erstellt_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Erstellt_Sachbearbeiter) Me.columnCMR_Geändert_Datum = New Global.System.Data.DataColumn("CMR_Geändert_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Geändert_Datum) Me.columnCMR_Geändert_Sachbearbeiter = New Global.System.Data.DataColumn("CMR_Geändert_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Geändert_Sachbearbeiter) Me.columnCMR_Gedruckt_Datum = New Global.System.Data.DataColumn("CMR_Gedruckt_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Gedruckt_Datum) Me.columnCMR_Gedruckt_Sachbearbeiter = New Global.System.Data.DataColumn("CMR_Gedruckt_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Gedruckt_Sachbearbeiter) Me.columnCMR_zeichen_1 = New Global.System.Data.DataColumn("CMR_zeichen_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_zeichen_1) Me.columnCMR_zeichen_2 = New Global.System.Data.DataColumn("CMR_zeichen_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_zeichen_2) Me.columnCMR_zeichen_3 = New Global.System.Data.DataColumn("CMR_zeichen_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_zeichen_3) Me.columnCMR_zeichen_4 = New Global.System.Data.DataColumn("CMR_zeichen_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_zeichen_4) Me.columnCMR_zeichen_5 = New Global.System.Data.DataColumn("CMR_zeichen_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_zeichen_5) Me.columnCMR_zeichen_6 = New Global.System.Data.DataColumn("CMR_zeichen_6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_zeichen_6) Me.columnCMR_zeichen_7 = New Global.System.Data.DataColumn("CMR_zeichen_7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_zeichen_7) Me.columnCMR_zeichen_8 = New Global.System.Data.DataColumn("CMR_zeichen_8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_zeichen_8) Me.columnCMR_zeichen_9 = New Global.System.Data.DataColumn("CMR_zeichen_9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_zeichen_9) Me.columnCMR_anzahl_1 = New Global.System.Data.DataColumn("CMR_anzahl_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_anzahl_1) Me.columnCMR_anzahl_2 = New Global.System.Data.DataColumn("CMR_anzahl_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_anzahl_2) Me.columnCMR_anzahl_3 = New Global.System.Data.DataColumn("CMR_anzahl_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_anzahl_3) Me.columnCMR_anzahl_4 = New Global.System.Data.DataColumn("CMR_anzahl_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_anzahl_4) Me.columnCMR_anzahl_5 = New Global.System.Data.DataColumn("CMR_anzahl_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_anzahl_5) Me.columnCMR_anzahl_6 = New Global.System.Data.DataColumn("CMR_anzahl_6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_anzahl_6) Me.columnCMR_anzahl_7 = New Global.System.Data.DataColumn("CMR_anzahl_7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_anzahl_7) Me.columnCMR_anzahl_8 = New Global.System.Data.DataColumn("CMR_anzahl_8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_anzahl_8) Me.columnCMR_anzahl_9 = New Global.System.Data.DataColumn("CMR_anzahl_9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_anzahl_9) Me.columnCMR_pkArt_1 = New Global.System.Data.DataColumn("CMR_pkArt_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_pkArt_1) Me.columnCMR_pkArt_2 = New Global.System.Data.DataColumn("CMR_pkArt_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_pkArt_2) Me.columnCMR_pkArt_3 = New Global.System.Data.DataColumn("CMR_pkArt_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_pkArt_3) Me.columnCMR_pkArt_4 = New Global.System.Data.DataColumn("CMR_pkArt_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_pkArt_4) Me.columnCMR_pkArt_5 = New Global.System.Data.DataColumn("CMR_pkArt_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_pkArt_5) Me.columnCMR_pkArt_6 = New Global.System.Data.DataColumn("CMR_pkArt_6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_pkArt_6) Me.columnCMR_pkArt_7 = New Global.System.Data.DataColumn("CMR_pkArt_7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_pkArt_7) Me.columnCMR_pkArt_8 = New Global.System.Data.DataColumn("CMR_pkArt_8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_pkArt_8) Me.columnCMR_pkArt_9 = New Global.System.Data.DataColumn("CMR_pkArt_9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_pkArt_9) Me.columnCMR_TblLangKurz = New Global.System.Data.DataColumn("CMR_TblLangKurz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_TblLangKurz) Me.columnEPBes_ID = New Global.System.Data.DataColumn("EPBes_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEPBes_ID) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnCMR_Firma = New Global.System.Data.DataColumn("CMR_Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_Firma) Me.columnCMR_isVorlage = New Global.System.Data.DataColumn("CMR_isVorlage", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR_isVorlage) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCMR_ID}, true)) Me.columnCMR_ID.AutoIncrement = true Me.columnCMR_ID.AutoIncrementSeed = -1 Me.columnCMR_ID.AutoIncrementStep = -1 Me.columnCMR_ID.AllowDBNull = false Me.columnCMR_ID.ReadOnly = true Me.columnCMR_ID.Unique = true Me.columnCMR_Suchbegriff.MaxLength = 80 Me.columnCMR_Absender_1.MaxLength = 40 Me.columnCMR_Absender_2.MaxLength = 40 Me.columnCMR_Absender_3.MaxLength = 40 Me.columnCMR_Absender_4.MaxLength = 40 Me.columnCMR_Absender_5.MaxLength = 40 Me.columnCMR_Empfänger_1.MaxLength = 40 Me.columnCMR_Empfänger_2.MaxLength = 40 Me.columnCMR_Empfänger_3.MaxLength = 40 Me.columnCMR_Empfänger_4.MaxLength = 40 Me.columnCMR_Empfänger_5.MaxLength = 40 Me.columnCMR_Auslieferung_Ort.MaxLength = 35 Me.columnCMR_Auslieferung_Land.MaxLength = 35 Me.columnCMR_Auslieferung.MaxLength = 35 Me.columnCMR_Übernahme_Ort.MaxLength = 35 Me.columnCMR_Übernahme_Land.MaxLength = 35 Me.columnCMR_Dokumente_1.MaxLength = 40 Me.columnCMR_Dokumente_2.MaxLength = 40 Me.columnCMR_Dokumente_3.MaxLength = 40 Me.columnCMR_Ware_1.MaxLength = 80 Me.columnCMR_Statistiknr_1.MaxLength = 10 Me.columnCMR_Bruttogewicht_1.MaxLength = 53 Me.columnCMR_Umfang_1.MaxLength = 53 Me.columnCMR_Ware_2.MaxLength = 80 Me.columnCMR_Statistiknr_2.MaxLength = 10 Me.columnCMR_Bruttogewicht_2.MaxLength = 53 Me.columnCMR_Umfang_2.MaxLength = 53 Me.columnCMR_Ware_3.MaxLength = 80 Me.columnCMR_Statistiknr_3.MaxLength = 10 Me.columnCMR_Bruttogewicht_3.MaxLength = 53 Me.columnCMR_Umfang_3.MaxLength = 53 Me.columnCMR_Ware_4.MaxLength = 80 Me.columnCMR_Statistiknr_4.MaxLength = 10 Me.columnCMR_Bruttogewicht_4.MaxLength = 53 Me.columnCMR_Umfang_4.MaxLength = 53 Me.columnCMR_Ware_5.MaxLength = 80 Me.columnCMR_Statistiknr_5.MaxLength = 10 Me.columnCMR_Bruttogewicht_5.MaxLength = 53 Me.columnCMR_Umfang_5.MaxLength = 53 Me.columnCMR_Ware_6.MaxLength = 80 Me.columnCMR_Statistiknr_6.MaxLength = 10 Me.columnCMR_Bruttogewicht_6.MaxLength = 53 Me.columnCMR_Umfang_6.MaxLength = 53 Me.columnCMR_Ware_7.MaxLength = 80 Me.columnCMR_Statistiknr_7.MaxLength = 10 Me.columnCMR_Bruttogewicht_7.MaxLength = 53 Me.columnCMR_Umfang_7.MaxLength = 53 Me.columnCMR_Ware_8.MaxLength = 80 Me.columnCMR_Statistiknr_8.MaxLength = 10 Me.columnCMR_Bruttogewicht_8.MaxLength = 53 Me.columnCMR_Umfang_8.MaxLength = 53 Me.columnCMR_Klasse.MaxLength = 5 Me.columnCMR_Ziffer.MaxLength = 5 Me.columnCMR_Buchstabe.MaxLength = 5 Me.columnCMR_ADR.MaxLength = 10 Me.columnCMR_Ware_9.MaxLength = 80 Me.columnCMR_Statistiknr_9.MaxLength = 10 Me.columnCMR_Bruttogewicht_9.MaxLength = 53 Me.columnCMR_Umfang_9.MaxLength = 53 Me.columnCMR_Anweisungen_1.MaxLength = 40 Me.columnCMR_Anweisungen_2.MaxLength = 40 Me.columnCMR_Anweisungen_3.MaxLength = 40 Me.columnCMR_Anweisungen_4.MaxLength = 40 Me.columnCMR_Anweisungen_5.MaxLength = 40 Me.columnCMR_Anweisungen_6.MaxLength = 40 Me.columnCMR_Anweisungen_7.MaxLength = 40 Me.columnCMR_Rückerstattung.MaxLength = 70 Me.columnCMR_Frachtzahlungsanweisung_Frei.MaxLength = 35 Me.columnCMR_Frachtzahlungsanweisung_Unfrei.MaxLength = 35 Me.columnCMR_Frachtführer_1.MaxLength = 40 Me.columnCMR_Frachtführer_2.MaxLength = 40 Me.columnCMR_Frachtführer_3.MaxLength = 40 Me.columnCMR_Frachtführer_4.MaxLength = 40 Me.columnCMR_Frachtführer_5.MaxLength = 40 Me.columnCMR_Nachf_Frachtführer_1.MaxLength = 40 Me.columnCMR_Nachf_Frachtführer_2.MaxLength = 40 Me.columnCMR_Nachf_Frachtführer_3.MaxLength = 40 Me.columnCMR_Nachf_Frachtführer_4.MaxLength = 40 Me.columnCMR_Nachf_Frachtführer_5.MaxLength = 40 Me.columnCMR_Bemerkungen_1.MaxLength = 40 Me.columnCMR_Bemerkungen_2.MaxLength = 40 Me.columnCMR_Bemerkungen_3.MaxLength = 40 Me.columnCMR_Bemerkungen_4.MaxLength = 40 Me.columnCMR_Bemerkungen_5.MaxLength = 40 Me.columnCMR_Vereinbarungen_1.MaxLength = 40 Me.columnCMR_Vereinbarungen_2.MaxLength = 40 Me.columnCMR_Ausgefertigt_in.MaxLength = 15 Me.columnCMR_Ausgefertigt.MaxLength = 50 Me.columnCMR_Stempel_Absender_1.MaxLength = 25 Me.columnCMR_Stempel_Absender_2.MaxLength = 25 Me.columnCMR_Stempel_Frachtführer_1.MaxLength = 25 Me.columnCMR_Stempel_Frachtführer_2.MaxLength = 25 Me.columnCMR_Stempel_Empfänger_1.MaxLength = 25 Me.columnCMR_Stempel_Empfänger_2.MaxLength = 25 Me.columnCMR_Tarifentfernung_von_1.MaxLength = 12 Me.columnCMR_Tarifentfernung_bis_1.MaxLength = 12 Me.columnCMR_Tarifentfernung_von_2.MaxLength = 12 Me.columnCMR_Tarifentfernung_bis_2.MaxLength = 12 Me.columnCMR_Tarifentfernung_von_3.MaxLength = 12 Me.columnCMR_Tarifentfernung_bis_3.MaxLength = 12 Me.columnCMR_Tarifentfernung_von_4.MaxLength = 12 Me.columnCMR_Tarifentfernung_bis_4.MaxLength = 12 Me.columnCMR_Tarifentfernung_von_5.MaxLength = 12 Me.columnCMR_Tarifentfernung_bis_5.MaxLength = 12 Me.columnCMR_Kennzeichen_Kfz.MaxLength = 17 Me.columnCMR_Kennzeichen_Anhänger.MaxLength = 17 Me.columnCMR_Erstellt_Sachbearbeiter.MaxLength = 15 Me.columnCMR_Geändert_Sachbearbeiter.MaxLength = 15 Me.columnCMR_Gedruckt_Sachbearbeiter.MaxLength = 15 Me.columnCMR_zeichen_1.MaxLength = 50 Me.columnCMR_zeichen_2.MaxLength = 50 Me.columnCMR_zeichen_3.MaxLength = 50 Me.columnCMR_zeichen_4.MaxLength = 50 Me.columnCMR_zeichen_5.MaxLength = 50 Me.columnCMR_zeichen_6.MaxLength = 50 Me.columnCMR_zeichen_7.MaxLength = 50 Me.columnCMR_zeichen_8.MaxLength = 50 Me.columnCMR_zeichen_9.MaxLength = 50 Me.columnCMR_anzahl_1.MaxLength = 50 Me.columnCMR_anzahl_2.MaxLength = 50 Me.columnCMR_anzahl_3.MaxLength = 50 Me.columnCMR_anzahl_4.MaxLength = 50 Me.columnCMR_anzahl_5.MaxLength = 50 Me.columnCMR_anzahl_6.MaxLength = 50 Me.columnCMR_anzahl_7.MaxLength = 50 Me.columnCMR_anzahl_8.MaxLength = 50 Me.columnCMR_anzahl_9.MaxLength = 50 Me.columnCMR_pkArt_1.MaxLength = 50 Me.columnCMR_pkArt_2.MaxLength = 50 Me.columnCMR_pkArt_3.MaxLength = 50 Me.columnCMR_pkArt_4.MaxLength = 50 Me.columnCMR_pkArt_5.MaxLength = 50 Me.columnCMR_pkArt_6.MaxLength = 50 Me.columnCMR_pkArt_7.MaxLength = 50 Me.columnCMR_pkArt_8.MaxLength = 50 Me.columnCMR_pkArt_9.MaxLength = 50 Me.columnCMR_TblLangKurz.AllowDBNull = false Me.columnCMR_TblLangKurz.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnCMR_Firma.AllowDBNull = false Me.columnCMR_Firma.MaxLength = 50 Me.columnCMR_isVorlage.AllowDBNull = false End Sub _ Public Function NewCMRRow() As CMRRow Return CType(Me.NewRow,CMRRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New CMRRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(CMRRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.CMRRowChangedEvent) Is Nothing) Then RaiseEvent CMRRowChanged(Me, New CMRRowChangeEvent(CType(e.Row,CMRRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.CMRRowChangingEvent) Is Nothing) Then RaiseEvent CMRRowChanging(Me, New CMRRowChangeEvent(CType(e.Row,CMRRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.CMRRowDeletedEvent) Is Nothing) Then RaiseEvent CMRRowDeleted(Me, New CMRRowChangeEvent(CType(e.Row,CMRRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.CMRRowDeletingEvent) Is Nothing) Then RaiseEvent CMRRowDeleting(Me, New CMRRowChangeEvent(CType(e.Row,CMRRow), e.Action)) End If End Sub _ Public Sub RemoveCMRRow(ByVal row As CMRRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "CMRDataTable" 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 DevisenkurseDataTable Inherits Global.System.Data.TypedTableBase(Of DevisenkurseRow) Private columnWährungsschlüssel As Global.System.Data.DataColumn Private columnMonat As Global.System.Data.DataColumn Private columnKurs As Global.System.Data.DataColumn Private columnKurs1EUR As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Devisenkurse" 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 WährungsschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungsschlüssel End Get End Property _ Public ReadOnly Property MonatColumn() As Global.System.Data.DataColumn Get Return Me.columnMonat End Get End Property _ Public ReadOnly Property KursColumn() As Global.System.Data.DataColumn Get Return Me.columnKurs End Get End Property _ Public ReadOnly Property Kurs1EURColumn() As Global.System.Data.DataColumn Get Return Me.columnKurs1EUR End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 DevisenkurseRow Get Return CType(Me.Rows(index),DevisenkurseRow) End Get End Property _ Public Event DevisenkurseRowChanging As DevisenkurseRowChangeEventHandler _ Public Event DevisenkurseRowChanged As DevisenkurseRowChangeEventHandler _ Public Event DevisenkurseRowDeleting As DevisenkurseRowChangeEventHandler _ Public Event DevisenkurseRowDeleted As DevisenkurseRowChangeEventHandler _ Public Overloads Sub AddDevisenkurseRow(ByVal row As DevisenkurseRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddDevisenkurseRow(ByVal _parentWährungstabelleRowByDevisenkurse_Reference9 As WährungstabelleRow, ByVal Monat As Short, ByVal Kurs As Double, ByVal Kurs1EUR As Double, ByVal SSMA_TimeStamp() As Byte) As DevisenkurseRow Dim rowDevisenkurseRow As DevisenkurseRow = CType(Me.NewRow,DevisenkurseRow) Dim columnValuesArray() As Object = New Object() {Nothing, Monat, Kurs, Kurs1EUR, SSMA_TimeStamp} If (Not (_parentWährungstabelleRowByDevisenkurse_Reference9) Is Nothing) Then columnValuesArray(0) = _parentWährungstabelleRowByDevisenkurse_Reference9(0) End If rowDevisenkurseRow.ItemArray = columnValuesArray Me.Rows.Add(rowDevisenkurseRow) Return rowDevisenkurseRow End Function _ Public Function FindByWährungsschlüsselMonat(ByVal Währungsschlüssel As Short, ByVal Monat As Short) As DevisenkurseRow Return CType(Me.Rows.Find(New Object() {Währungsschlüssel, Monat}),DevisenkurseRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As DevisenkurseDataTable = CType(MyBase.Clone,DevisenkurseDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New DevisenkurseDataTable() End Function _ Friend Sub InitVars() Me.columnWährungsschlüssel = MyBase.Columns("Währungsschlüssel") Me.columnMonat = MyBase.Columns("Monat") Me.columnKurs = MyBase.Columns("Kurs") Me.columnKurs1EUR = MyBase.Columns("Kurs1EUR") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnWährungsschlüssel = New Global.System.Data.DataColumn("Währungsschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungsschlüssel) Me.columnMonat = New Global.System.Data.DataColumn("Monat", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMonat) Me.columnKurs = New Global.System.Data.DataColumn("Kurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKurs) Me.columnKurs1EUR = New Global.System.Data.DataColumn("Kurs1EUR", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKurs1EUR) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWährungsschlüssel, Me.columnMonat}, true)) Me.columnWährungsschlüssel.AllowDBNull = false Me.columnMonat.AllowDBNull = false Me.columnKurs.AllowDBNull = false Me.columnKurs1EUR.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewDevisenkurseRow() As DevisenkurseRow Return CType(Me.NewRow,DevisenkurseRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New DevisenkurseRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(DevisenkurseRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.DevisenkurseRowChangedEvent) Is Nothing) Then RaiseEvent DevisenkurseRowChanged(Me, New DevisenkurseRowChangeEvent(CType(e.Row,DevisenkurseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.DevisenkurseRowChangingEvent) Is Nothing) Then RaiseEvent DevisenkurseRowChanging(Me, New DevisenkurseRowChangeEvent(CType(e.Row,DevisenkurseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.DevisenkurseRowDeletedEvent) Is Nothing) Then RaiseEvent DevisenkurseRowDeleted(Me, New DevisenkurseRowChangeEvent(CType(e.Row,DevisenkurseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.DevisenkurseRowDeletingEvent) Is Nothing) Then RaiseEvent DevisenkurseRowDeleting(Me, New DevisenkurseRowChangeEvent(CType(e.Row,DevisenkurseRow), e.Action)) End If End Sub _ Public Sub RemoveDevisenkurseRow(ByVal row As DevisenkurseRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "DevisenkurseDataTable" 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 EPBesDataTable Inherits Global.System.Data.TypedTableBase(Of EPBesRow) Private columnID As Global.System.Data.DataColumn Private columnANMELDUNG1 As Global.System.Data.DataColumn Private columnANMELDUNG2 As Global.System.Data.DataColumn Private columnVersenderAusführerNr As Global.System.Data.DataColumn Private columnVersenderAusführer As Global.System.Data.DataColumn Private columnVordrucke1 As Global.System.Data.DataColumn Private columnVordrucke2 As Global.System.Data.DataColumn Private columnPositionen As Global.System.Data.DataColumn Private columnEmpfängerNr As Global.System.Data.DataColumn Private columnEmpfänger As Global.System.Data.DataColumn Private columnHandelsland As Global.System.Data.DataColumn Private columnAnmelderVertreterNr As Global.System.Data.DataColumn Private columnAnmelder As Global.System.Data.DataColumn Private columnVertreter As Global.System.Data.DataColumn Private columnVersendungsAusfuhrland As Global.System.Data.DataColumn Private columnVersendungsAusfuhrlandCode As Global.System.Data.DataColumn Private columnUrsprungsland As Global.System.Data.DataColumn Private columnBestimmungslandCodeA As Global.System.Data.DataColumn Private columnBestimmungslandCodeB As Global.System.Data.DataColumn Private columnKennzeichenAnkunft As Global.System.Data.DataColumn Private columnStaatszugehörigkeitAnkunft As Global.System.Data.DataColumn Private columnContainer As Global.System.Data.DataColumn Private columnLieferbedingungCode As Global.System.Data.DataColumn Private columnLieferbedingung As Global.System.Data.DataColumn Private columnKennzeichenGrenze As Global.System.Data.DataColumn Private columnStaatszugehörigkeitGrenze As Global.System.Data.DataColumn Private columnWährung As Global.System.Data.DataColumn Private columnRechnungsbetrag As Global.System.Data.DataColumn Private columnUmrechnungskurs As Global.System.Data.DataColumn Private columnGeschäftsart As Global.System.Data.DataColumn Private columnVerkehrszweigGrenze As Global.System.Data.DataColumn Private columnInländischerVerkehrszweig As Global.System.Data.DataColumn Private columnEntladeort As Global.System.Data.DataColumn Private columnEingangszollstelle As Global.System.Data.DataColumn Private columnWarenort As Global.System.Data.DataColumn Private columnPackstücke As Global.System.Data.DataColumn Private columnWarenbezeichnung As Global.System.Data.DataColumn Private columnPositionsNr As Global.System.Data.DataColumn Private columnWarennummer1 As Global.System.Data.DataColumn Private columnWarennummer2 As Global.System.Data.DataColumn Private columnWarennummer3 As Global.System.Data.DataColumn Private columnWarennummer4 As Global.System.Data.DataColumn Private columnWarennummer5 As Global.System.Data.DataColumn Private columnUrsprungslandCode As Global.System.Data.DataColumn Private columnRohmasse As Global.System.Data.DataColumn Private columnPräferenz As Global.System.Data.DataColumn Private columnVerfahren As Global.System.Data.DataColumn Private columnEigenmasse As Global.System.Data.DataColumn Private columnKontingent As Global.System.Data.DataColumn Private columnSumAnmeldungVorpapier As Global.System.Data.DataColumn Private columnBesondereMasseinheit As Global.System.Data.DataColumn Private columnVorsteuerabzug As Global.System.Data.DataColumn Private columnBesondereVermerke As Global.System.Data.DataColumn Private columnBesondereVermerkeZeile1 As Global.System.Data.DataColumn Private columnBesondereVermerkeBetrag1 As Global.System.Data.DataColumn Private columnBesondereVermerkeHinweis1 As Global.System.Data.DataColumn Private columnBesondereVermerkeZeile2 As Global.System.Data.DataColumn Private columnBesondereVermerkeBetrag2 As Global.System.Data.DataColumn Private columnBesondereVermerkeHinweis2 As Global.System.Data.DataColumn Private columnBesondereVermerkeZeile3 As Global.System.Data.DataColumn Private columnBesondereVermerkeBetrag3 As Global.System.Data.DataColumn Private columnBesondereVermerkeHinweis3 As Global.System.Data.DataColumn Private columnStatistischerWert As Global.System.Data.DataColumn Private columnSumme As Global.System.Data.DataColumn Private columnZahlungsaufschub As Global.System.Data.DataColumn Private columnLagerbezeichnung As Global.System.Data.DataColumn Private columnAngabenFürVerbuchungszwecke As Global.System.Data.DataColumn Private columnOrt As Global.System.Data.DataColumn Private columnDatum As Global.System.Data.DataColumn Private columnUnterschrift As Global.System.Data.DataColumn Private columnErstelltDatum As Global.System.Data.DataColumn Private columnErstelltSachbearbeiter As Global.System.Data.DataColumn Private columnGeändertDatum As Global.System.Data.DataColumn Private columnGeändertSachbearbeiter As Global.System.Data.DataColumn Private columnGedrucktDatum As Global.System.Data.DataColumn Private columnGedrucktSachbearbeiter As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnFormular As Global.System.Data.DataColumn Private columnZulassungsinhaber As Global.System.Data.DataColumn Private columnBewilligungsnummer As Global.System.Data.DataColumn Private columnOrdnungsnummer As Global.System.Data.DataColumn Private columnRechnungspositionsbetrag As Global.System.Data.DataColumn Private columnANMELDUNG3 As Global.System.Data.DataColumn Private columnLadelisten As Global.System.Data.DataColumn Private columnBestimmungsland As Global.System.Data.DataColumn Private columnHauptverpflichteter As Global.System.Data.DataColumn Private columnHauptverpflichteterVertretenDurch As Global.System.Data.DataColumn Private columnHauptverpflichteterOrtDatum As Global.System.Data.DataColumn Private columnDurchgangszollstelle1 As Global.System.Data.DataColumn Private columnDurchgangszollstelle2 As Global.System.Data.DataColumn Private columnDurchgangszollstelle3 As Global.System.Data.DataColumn Private columnDurchgangszollstelle4 As Global.System.Data.DataColumn Private columnDurchgangszollstelle5 As Global.System.Data.DataColumn Private columnDurchgangszollstelle6 As Global.System.Data.DataColumn Private columnSicherheit As Global.System.Data.DataColumn Private columnSicherheitCode As Global.System.Data.DataColumn Private columnBestimmungsstelle As Global.System.Data.DataColumn Private columnHauptverpflichteterNr As Global.System.Data.DataColumn Private columnSkontobetrag As Global.System.Data.DataColumn Private columnArtikelpreis As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnBemessungsgrundlage As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "EPBes" 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 ANMELDUNG1Column() As Global.System.Data.DataColumn Get Return Me.columnANMELDUNG1 End Get End Property _ Public ReadOnly Property ANMELDUNG2Column() As Global.System.Data.DataColumn Get Return Me.columnANMELDUNG2 End Get End Property _ Public ReadOnly Property VersenderAusführerNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVersenderAusführerNr End Get End Property _ Public ReadOnly Property VersenderAusführerColumn() As Global.System.Data.DataColumn Get Return Me.columnVersenderAusführer End Get End Property _ Public ReadOnly Property Vordrucke1Column() As Global.System.Data.DataColumn Get Return Me.columnVordrucke1 End Get End Property _ Public ReadOnly Property Vordrucke2Column() As Global.System.Data.DataColumn Get Return Me.columnVordrucke2 End Get End Property _ Public ReadOnly Property PositionenColumn() As Global.System.Data.DataColumn Get Return Me.columnPositionen End Get End Property _ Public ReadOnly Property EmpfängerNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerNr End Get End Property _ Public ReadOnly Property EmpfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfänger End Get End Property _ Public ReadOnly Property HandelslandColumn() As Global.System.Data.DataColumn Get Return Me.columnHandelsland End Get End Property _ Public ReadOnly Property AnmelderVertreterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmelderVertreterNr End Get End Property _ Public ReadOnly Property AnmelderColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmelder End Get End Property _ Public ReadOnly Property VertreterColumn() As Global.System.Data.DataColumn Get Return Me.columnVertreter End Get End Property _ Public ReadOnly Property VersendungsAusfuhrlandColumn() As Global.System.Data.DataColumn Get Return Me.columnVersendungsAusfuhrland End Get End Property _ Public ReadOnly Property VersendungsAusfuhrlandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnVersendungsAusfuhrlandCode End Get End Property _ Public ReadOnly Property UrsprungslandColumn() As Global.System.Data.DataColumn Get Return Me.columnUrsprungsland End Get End Property _ Public ReadOnly Property BestimmungslandCodeAColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungslandCodeA End Get End Property _ Public ReadOnly Property BestimmungslandCodeBColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungslandCodeB End Get End Property _ Public ReadOnly Property KennzeichenAnkunftColumn() As Global.System.Data.DataColumn Get Return Me.columnKennzeichenAnkunft End Get End Property _ Public ReadOnly Property StaatszugehörigkeitAnkunftColumn() As Global.System.Data.DataColumn Get Return Me.columnStaatszugehörigkeitAnkunft End Get End Property _ Public ReadOnly Property ContainerColumn() As Global.System.Data.DataColumn Get Return Me.columnContainer End Get End Property _ Public ReadOnly Property LieferbedingungCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferbedingungCode End Get End Property _ Public ReadOnly Property LieferbedingungColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferbedingung End Get End Property _ Public ReadOnly Property KennzeichenGrenzeColumn() As Global.System.Data.DataColumn Get Return Me.columnKennzeichenGrenze End Get End Property _ Public ReadOnly Property StaatszugehörigkeitGrenzeColumn() As Global.System.Data.DataColumn Get Return Me.columnStaatszugehörigkeitGrenze End Get End Property _ Public ReadOnly Property WährungColumn() As Global.System.Data.DataColumn Get Return Me.columnWährung End Get End Property _ Public ReadOnly Property RechnungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetrag End Get End Property _ Public ReadOnly Property UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUmrechnungskurs End Get End Property _ Public ReadOnly Property GeschäftsartColumn() As Global.System.Data.DataColumn Get Return Me.columnGeschäftsart End Get End Property _ Public ReadOnly Property VerkehrszweigGrenzeColumn() As Global.System.Data.DataColumn Get Return Me.columnVerkehrszweigGrenze End Get End Property _ Public ReadOnly Property InländischerVerkehrszweigColumn() As Global.System.Data.DataColumn Get Return Me.columnInländischerVerkehrszweig End Get End Property _ Public ReadOnly Property EntladeortColumn() As Global.System.Data.DataColumn Get Return Me.columnEntladeort End Get End Property _ Public ReadOnly Property EingangszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnEingangszollstelle End Get End Property _ Public ReadOnly Property WarenortColumn() As Global.System.Data.DataColumn Get Return Me.columnWarenort End Get End Property _ Public ReadOnly Property PackstückeColumn() As Global.System.Data.DataColumn Get Return Me.columnPackstücke End Get End Property _ Public ReadOnly Property WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnWarenbezeichnung End Get End Property _ Public ReadOnly Property PositionsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPositionsNr End Get End Property _ Public ReadOnly Property Warennummer1Column() As Global.System.Data.DataColumn Get Return Me.columnWarennummer1 End Get End Property _ Public ReadOnly Property Warennummer2Column() As Global.System.Data.DataColumn Get Return Me.columnWarennummer2 End Get End Property _ Public ReadOnly Property Warennummer3Column() As Global.System.Data.DataColumn Get Return Me.columnWarennummer3 End Get End Property _ Public ReadOnly Property Warennummer4Column() As Global.System.Data.DataColumn Get Return Me.columnWarennummer4 End Get End Property _ Public ReadOnly Property Warennummer5Column() As Global.System.Data.DataColumn Get Return Me.columnWarennummer5 End Get End Property _ Public ReadOnly Property UrsprungslandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnUrsprungslandCode End Get End Property _ Public ReadOnly Property RohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnRohmasse End Get End Property _ Public ReadOnly Property PräferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnPräferenz End Get End Property _ Public ReadOnly Property VerfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columnVerfahren End Get End Property _ Public ReadOnly Property EigenmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnEigenmasse End Get End Property _ Public ReadOnly Property KontingentColumn() As Global.System.Data.DataColumn Get Return Me.columnKontingent End Get End Property _ Public ReadOnly Property SumAnmeldungVorpapierColumn() As Global.System.Data.DataColumn Get Return Me.columnSumAnmeldungVorpapier End Get End Property _ Public ReadOnly Property BesondereMasseinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnBesondereMasseinheit End Get End Property _ Public ReadOnly Property VorsteuerabzugColumn() As Global.System.Data.DataColumn Get Return Me.columnVorsteuerabzug End Get End Property _ Public ReadOnly Property BesondereVermerkeColumn() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerke End Get End Property _ Public ReadOnly Property BesondereVermerkeZeile1Column() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerkeZeile1 End Get End Property _ Public ReadOnly Property BesondereVermerkeBetrag1Column() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerkeBetrag1 End Get End Property _ Public ReadOnly Property BesondereVermerkeHinweis1Column() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerkeHinweis1 End Get End Property _ Public ReadOnly Property BesondereVermerkeZeile2Column() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerkeZeile2 End Get End Property _ Public ReadOnly Property BesondereVermerkeBetrag2Column() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerkeBetrag2 End Get End Property _ Public ReadOnly Property BesondereVermerkeHinweis2Column() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerkeHinweis2 End Get End Property _ Public ReadOnly Property BesondereVermerkeZeile3Column() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerkeZeile3 End Get End Property _ Public ReadOnly Property BesondereVermerkeBetrag3Column() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerkeBetrag3 End Get End Property _ Public ReadOnly Property BesondereVermerkeHinweis3Column() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerkeHinweis3 End Get End Property _ Public ReadOnly Property StatistischerWertColumn() As Global.System.Data.DataColumn Get Return Me.columnStatistischerWert End Get End Property _ Public ReadOnly Property SummeColumn() As Global.System.Data.DataColumn Get Return Me.columnSumme End Get End Property _ Public ReadOnly Property ZahlungsaufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsaufschub End Get End Property _ Public ReadOnly Property LagerbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnLagerbezeichnung End Get End Property _ Public ReadOnly Property AngabenFürVerbuchungszweckeColumn() As Global.System.Data.DataColumn Get Return Me.columnAngabenFürVerbuchungszwecke End Get End Property _ Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnOrt End Get End Property _ Public ReadOnly Property DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnDatum End Get End Property _ Public ReadOnly Property UnterschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterschrift End Get End Property _ Public ReadOnly Property ErstelltDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnErstelltDatum End Get End Property _ Public ReadOnly Property ErstelltSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnErstelltSachbearbeiter End Get End Property _ Public ReadOnly Property GeändertDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändertDatum End Get End Property _ Public ReadOnly Property GeändertSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändertSachbearbeiter End Get End Property _ Public ReadOnly Property GedrucktDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnGedrucktDatum End Get End Property _ Public ReadOnly Property GedrucktSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnGedrucktSachbearbeiter End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property FormularColumn() As Global.System.Data.DataColumn Get Return Me.columnFormular End Get End Property _ Public ReadOnly Property ZulassungsinhaberColumn() As Global.System.Data.DataColumn Get Return Me.columnZulassungsinhaber End Get End Property _ Public ReadOnly Property BewilligungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBewilligungsnummer End Get End Property _ Public ReadOnly Property OrdnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnOrdnungsnummer End Get End Property _ Public ReadOnly Property RechnungspositionsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungspositionsbetrag End Get End Property _ Public ReadOnly Property ANMELDUNG3Column() As Global.System.Data.DataColumn Get Return Me.columnANMELDUNG3 End Get End Property _ Public ReadOnly Property LadelistenColumn() As Global.System.Data.DataColumn Get Return Me.columnLadelisten End Get End Property _ Public ReadOnly Property BestimmungslandColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungsland End Get End Property _ Public ReadOnly Property HauptverpflichteterColumn() As Global.System.Data.DataColumn Get Return Me.columnHauptverpflichteter End Get End Property _ Public ReadOnly Property HauptverpflichteterVertretenDurchColumn() As Global.System.Data.DataColumn Get Return Me.columnHauptverpflichteterVertretenDurch End Get End Property _ Public ReadOnly Property HauptverpflichteterOrtDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnHauptverpflichteterOrtDatum End Get End Property _ Public ReadOnly Property Durchgangszollstelle1Column() As Global.System.Data.DataColumn Get Return Me.columnDurchgangszollstelle1 End Get End Property _ Public ReadOnly Property Durchgangszollstelle2Column() As Global.System.Data.DataColumn Get Return Me.columnDurchgangszollstelle2 End Get End Property _ Public ReadOnly Property Durchgangszollstelle3Column() As Global.System.Data.DataColumn Get Return Me.columnDurchgangszollstelle3 End Get End Property _ Public ReadOnly Property Durchgangszollstelle4Column() As Global.System.Data.DataColumn Get Return Me.columnDurchgangszollstelle4 End Get End Property _ Public ReadOnly Property Durchgangszollstelle5Column() As Global.System.Data.DataColumn Get Return Me.columnDurchgangszollstelle5 End Get End Property _ Public ReadOnly Property Durchgangszollstelle6Column() As Global.System.Data.DataColumn Get Return Me.columnDurchgangszollstelle6 End Get End Property _ Public ReadOnly Property SicherheitColumn() As Global.System.Data.DataColumn Get Return Me.columnSicherheit End Get End Property _ Public ReadOnly Property SicherheitCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnSicherheitCode End Get End Property _ Public ReadOnly Property BestimmungsstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungsstelle End Get End Property _ Public ReadOnly Property HauptverpflichteterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnHauptverpflichteterNr End Get End Property _ Public ReadOnly Property SkontobetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSkontobetrag End Get End Property _ Public ReadOnly Property ArtikelpreisColumn() As Global.System.Data.DataColumn Get Return Me.columnArtikelpreis End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property BemessungsgrundlageColumn() As Global.System.Data.DataColumn Get Return Me.columnBemessungsgrundlage 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 EPBesRow Get Return CType(Me.Rows(index),EPBesRow) End Get End Property _ Public Event EPBesRowChanging As EPBesRowChangeEventHandler _ Public Event EPBesRowChanged As EPBesRowChangeEventHandler _ Public Event EPBesRowDeleting As EPBesRowChangeEventHandler _ Public Event EPBesRowDeleted As EPBesRowChangeEventHandler _ Public Overloads Sub AddEPBesRow(ByVal row As EPBesRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddEPBesRow( _ ByVal ID As Integer, _ ByVal ANMELDUNG1 As String, _ ByVal ANMELDUNG2 As String, _ ByVal VersenderAusführerNr As String, _ ByVal VersenderAusführer As String, _ ByVal Vordrucke1 As Byte, _ ByVal Vordrucke2 As Byte, _ ByVal Positionen As Byte, _ ByVal EmpfängerNr As String, _ ByVal Empfänger As String, _ ByVal Handelsland As Short, _ ByVal AnmelderVertreterNr As String, _ ByVal Anmelder As String, _ ByVal Vertreter As String, _ ByVal VersendungsAusfuhrland As String, _ ByVal VersendungsAusfuhrlandCode As Short, _ ByVal Ursprungsland As String, _ ByVal BestimmungslandCodeA As Short, _ ByVal BestimmungslandCodeB As Byte, _ ByVal KennzeichenAnkunft As String, _ ByVal StaatszugehörigkeitAnkunft As Short, _ ByVal Container As Byte, _ ByVal LieferbedingungCode As String, _ ByVal Lieferbedingung As String, _ ByVal KennzeichenGrenze As String, _ ByVal StaatszugehörigkeitGrenze As Short, _ ByVal Währung As Short, _ ByVal Rechnungsbetrag As Decimal, _ ByVal Umrechnungskurs As Double, _ ByVal Geschäftsart As Byte, _ ByVal VerkehrszweigGrenze As Byte, _ ByVal InländischerVerkehrszweig As Byte, _ ByVal Entladeort As String, _ ByVal Eingangszollstelle As String, _ ByVal Warenort As String, _ ByVal Packstücke As String, _ ByVal Warenbezeichnung As String, _ ByVal PositionsNr As Byte, _ ByVal Warennummer1 As String, _ ByVal Warennummer2 As String, _ ByVal Warennummer3 As String, _ ByVal Warennummer4 As String, _ ByVal Warennummer5 As String, _ ByVal UrsprungslandCode As Short, _ ByVal Rohmasse As Double, _ ByVal Präferenz As Short, _ ByVal Verfahren As String, _ ByVal Eigenmasse As Double, _ ByVal Kontingent As Short, _ ByVal SumAnmeldungVorpapier As String, _ ByVal BesondereMasseinheit As String, _ ByVal Vorsteuerabzug As String, _ ByVal BesondereVermerke As String, _ ByVal BesondereVermerkeZeile1 As String, _ ByVal BesondereVermerkeBetrag1 As Decimal, _ ByVal BesondereVermerkeHinweis1 As String, _ ByVal BesondereVermerkeZeile2 As String, _ ByVal BesondereVermerkeBetrag2 As Decimal, _ ByVal BesondereVermerkeHinweis2 As String, _ ByVal BesondereVermerkeZeile3 As String, _ ByVal BesondereVermerkeBetrag3 As Decimal, _ ByVal BesondereVermerkeHinweis3 As String, _ ByVal StatistischerWert As Decimal, _ ByVal Summe As Decimal, _ ByVal Zahlungsaufschub As String, _ ByVal Lagerbezeichnung As String, _ ByVal AngabenFürVerbuchungszwecke As String, _ ByVal Ort As String, _ ByVal Datum As Date, _ ByVal Unterschrift As String, _ ByVal ErstelltDatum As Date, _ ByVal ErstelltSachbearbeiter As String, _ ByVal GeändertDatum As Date, _ ByVal GeändertSachbearbeiter As String, _ ByVal GedrucktDatum As Date, _ ByVal GedrucktSachbearbeiter As String, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Byte, _ ByVal Formular As String, _ ByVal Zulassungsinhaber As String, _ ByVal Bewilligungsnummer As String, _ ByVal Ordnungsnummer As String, _ ByVal Rechnungspositionsbetrag As Decimal, _ ByVal ANMELDUNG3 As String, _ ByVal Ladelisten As Byte, _ ByVal Bestimmungsland As String, _ ByVal Hauptverpflichteter As String, _ ByVal HauptverpflichteterVertretenDurch As String, _ ByVal HauptverpflichteterOrtDatum As String, _ ByVal Durchgangszollstelle1 As String, _ ByVal Durchgangszollstelle2 As String, _ ByVal Durchgangszollstelle3 As String, _ ByVal Durchgangszollstelle4 As String, _ ByVal Durchgangszollstelle5 As String, _ ByVal Durchgangszollstelle6 As String, _ ByVal Sicherheit As String, _ ByVal SicherheitCode As Byte, _ ByVal Bestimmungsstelle As String, _ ByVal HauptverpflichteterNr As String, _ ByVal Skontobetrag As Decimal, _ ByVal Artikelpreis As Decimal, _ ByVal SSMA_TimeStamp() As Byte, _ ByVal Bemessungsgrundlage As String) As EPBesRow Dim rowEPBesRow As EPBesRow = CType(Me.NewRow,EPBesRow) Dim columnValuesArray() As Object = New Object() {ID, ANMELDUNG1, ANMELDUNG2, VersenderAusführerNr, VersenderAusführer, Vordrucke1, Vordrucke2, Positionen, EmpfängerNr, Empfänger, Handelsland, AnmelderVertreterNr, Anmelder, Vertreter, VersendungsAusfuhrland, VersendungsAusfuhrlandCode, Ursprungsland, BestimmungslandCodeA, BestimmungslandCodeB, KennzeichenAnkunft, StaatszugehörigkeitAnkunft, Container, LieferbedingungCode, Lieferbedingung, KennzeichenGrenze, StaatszugehörigkeitGrenze, Währung, Rechnungsbetrag, Umrechnungskurs, Geschäftsart, VerkehrszweigGrenze, InländischerVerkehrszweig, Entladeort, Eingangszollstelle, Warenort, Packstücke, Warenbezeichnung, PositionsNr, Warennummer1, Warennummer2, Warennummer3, Warennummer4, Warennummer5, UrsprungslandCode, Rohmasse, Präferenz, Verfahren, Eigenmasse, Kontingent, SumAnmeldungVorpapier, BesondereMasseinheit, Vorsteuerabzug, BesondereVermerke, BesondereVermerkeZeile1, BesondereVermerkeBetrag1, BesondereVermerkeHinweis1, BesondereVermerkeZeile2, BesondereVermerkeBetrag2, BesondereVermerkeHinweis2, BesondereVermerkeZeile3, BesondereVermerkeBetrag3, BesondereVermerkeHinweis3, StatistischerWert, Summe, Zahlungsaufschub, Lagerbezeichnung, AngabenFürVerbuchungszwecke, Ort, Datum, Unterschrift, ErstelltDatum, ErstelltSachbearbeiter, GeändertDatum, GeändertSachbearbeiter, GedrucktDatum, GedrucktSachbearbeiter, FilialenNr, AbfertigungsNr, UnterNr, Formular, Zulassungsinhaber, Bewilligungsnummer, Ordnungsnummer, Rechnungspositionsbetrag, ANMELDUNG3, Ladelisten, Bestimmungsland, Hauptverpflichteter, HauptverpflichteterVertretenDurch, HauptverpflichteterOrtDatum, Durchgangszollstelle1, Durchgangszollstelle2, Durchgangszollstelle3, Durchgangszollstelle4, Durchgangszollstelle5, Durchgangszollstelle6, Sicherheit, SicherheitCode, Bestimmungsstelle, HauptverpflichteterNr, Skontobetrag, Artikelpreis, SSMA_TimeStamp, Bemessungsgrundlage} rowEPBesRow.ItemArray = columnValuesArray Me.Rows.Add(rowEPBesRow) Return rowEPBesRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As EPBesDataTable = CType(MyBase.Clone,EPBesDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New EPBesDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnANMELDUNG1 = MyBase.Columns("ANMELDUNG1") Me.columnANMELDUNG2 = MyBase.Columns("ANMELDUNG2") Me.columnVersenderAusführerNr = MyBase.Columns("VersenderAusführerNr") Me.columnVersenderAusführer = MyBase.Columns("VersenderAusführer") Me.columnVordrucke1 = MyBase.Columns("Vordrucke1") Me.columnVordrucke2 = MyBase.Columns("Vordrucke2") Me.columnPositionen = MyBase.Columns("Positionen") Me.columnEmpfängerNr = MyBase.Columns("EmpfängerNr") Me.columnEmpfänger = MyBase.Columns("Empfänger") Me.columnHandelsland = MyBase.Columns("Handelsland") Me.columnAnmelderVertreterNr = MyBase.Columns("AnmelderVertreterNr") Me.columnAnmelder = MyBase.Columns("Anmelder") Me.columnVertreter = MyBase.Columns("Vertreter") Me.columnVersendungsAusfuhrland = MyBase.Columns("VersendungsAusfuhrland") Me.columnVersendungsAusfuhrlandCode = MyBase.Columns("VersendungsAusfuhrlandCode") Me.columnUrsprungsland = MyBase.Columns("Ursprungsland") Me.columnBestimmungslandCodeA = MyBase.Columns("BestimmungslandCodeA") Me.columnBestimmungslandCodeB = MyBase.Columns("BestimmungslandCodeB") Me.columnKennzeichenAnkunft = MyBase.Columns("KennzeichenAnkunft") Me.columnStaatszugehörigkeitAnkunft = MyBase.Columns("StaatszugehörigkeitAnkunft") Me.columnContainer = MyBase.Columns("Container") Me.columnLieferbedingungCode = MyBase.Columns("LieferbedingungCode") Me.columnLieferbedingung = MyBase.Columns("Lieferbedingung") Me.columnKennzeichenGrenze = MyBase.Columns("KennzeichenGrenze") Me.columnStaatszugehörigkeitGrenze = MyBase.Columns("StaatszugehörigkeitGrenze") Me.columnWährung = MyBase.Columns("Währung") Me.columnRechnungsbetrag = MyBase.Columns("Rechnungsbetrag") Me.columnUmrechnungskurs = MyBase.Columns("Umrechnungskurs") Me.columnGeschäftsart = MyBase.Columns("Geschäftsart") Me.columnVerkehrszweigGrenze = MyBase.Columns("VerkehrszweigGrenze") Me.columnInländischerVerkehrszweig = MyBase.Columns("InländischerVerkehrszweig") Me.columnEntladeort = MyBase.Columns("Entladeort") Me.columnEingangszollstelle = MyBase.Columns("Eingangszollstelle") Me.columnWarenort = MyBase.Columns("Warenort") Me.columnPackstücke = MyBase.Columns("Packstücke") Me.columnWarenbezeichnung = MyBase.Columns("Warenbezeichnung") Me.columnPositionsNr = MyBase.Columns("PositionsNr") Me.columnWarennummer1 = MyBase.Columns("Warennummer1") Me.columnWarennummer2 = MyBase.Columns("Warennummer2") Me.columnWarennummer3 = MyBase.Columns("Warennummer3") Me.columnWarennummer4 = MyBase.Columns("Warennummer4") Me.columnWarennummer5 = MyBase.Columns("Warennummer5") Me.columnUrsprungslandCode = MyBase.Columns("UrsprungslandCode") Me.columnRohmasse = MyBase.Columns("Rohmasse") Me.columnPräferenz = MyBase.Columns("Präferenz") Me.columnVerfahren = MyBase.Columns("Verfahren") Me.columnEigenmasse = MyBase.Columns("Eigenmasse") Me.columnKontingent = MyBase.Columns("Kontingent") Me.columnSumAnmeldungVorpapier = MyBase.Columns("SumAnmeldungVorpapier") Me.columnBesondereMasseinheit = MyBase.Columns("BesondereMasseinheit") Me.columnVorsteuerabzug = MyBase.Columns("Vorsteuerabzug") Me.columnBesondereVermerke = MyBase.Columns("BesondereVermerke") Me.columnBesondereVermerkeZeile1 = MyBase.Columns("BesondereVermerkeZeile1") Me.columnBesondereVermerkeBetrag1 = MyBase.Columns("BesondereVermerkeBetrag1") Me.columnBesondereVermerkeHinweis1 = MyBase.Columns("BesondereVermerkeHinweis1") Me.columnBesondereVermerkeZeile2 = MyBase.Columns("BesondereVermerkeZeile2") Me.columnBesondereVermerkeBetrag2 = MyBase.Columns("BesondereVermerkeBetrag2") Me.columnBesondereVermerkeHinweis2 = MyBase.Columns("BesondereVermerkeHinweis2") Me.columnBesondereVermerkeZeile3 = MyBase.Columns("BesondereVermerkeZeile3") Me.columnBesondereVermerkeBetrag3 = MyBase.Columns("BesondereVermerkeBetrag3") Me.columnBesondereVermerkeHinweis3 = MyBase.Columns("BesondereVermerkeHinweis3") Me.columnStatistischerWert = MyBase.Columns("StatistischerWert") Me.columnSumme = MyBase.Columns("Summe") Me.columnZahlungsaufschub = MyBase.Columns("Zahlungsaufschub") Me.columnLagerbezeichnung = MyBase.Columns("Lagerbezeichnung") Me.columnAngabenFürVerbuchungszwecke = MyBase.Columns("AngabenFürVerbuchungszwecke") Me.columnOrt = MyBase.Columns("Ort") Me.columnDatum = MyBase.Columns("Datum") Me.columnUnterschrift = MyBase.Columns("Unterschrift") Me.columnErstelltDatum = MyBase.Columns("ErstelltDatum") Me.columnErstelltSachbearbeiter = MyBase.Columns("ErstelltSachbearbeiter") Me.columnGeändertDatum = MyBase.Columns("GeändertDatum") Me.columnGeändertSachbearbeiter = MyBase.Columns("GeändertSachbearbeiter") Me.columnGedrucktDatum = MyBase.Columns("GedrucktDatum") Me.columnGedrucktSachbearbeiter = MyBase.Columns("GedrucktSachbearbeiter") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnFormular = MyBase.Columns("Formular") Me.columnZulassungsinhaber = MyBase.Columns("Zulassungsinhaber") Me.columnBewilligungsnummer = MyBase.Columns("Bewilligungsnummer") Me.columnOrdnungsnummer = MyBase.Columns("Ordnungsnummer") Me.columnRechnungspositionsbetrag = MyBase.Columns("Rechnungspositionsbetrag") Me.columnANMELDUNG3 = MyBase.Columns("ANMELDUNG3") Me.columnLadelisten = MyBase.Columns("Ladelisten") Me.columnBestimmungsland = MyBase.Columns("Bestimmungsland") Me.columnHauptverpflichteter = MyBase.Columns("Hauptverpflichteter") Me.columnHauptverpflichteterVertretenDurch = MyBase.Columns("HauptverpflichteterVertretenDurch") Me.columnHauptverpflichteterOrtDatum = MyBase.Columns("HauptverpflichteterOrtDatum") Me.columnDurchgangszollstelle1 = MyBase.Columns("Durchgangszollstelle1") Me.columnDurchgangszollstelle2 = MyBase.Columns("Durchgangszollstelle2") Me.columnDurchgangszollstelle3 = MyBase.Columns("Durchgangszollstelle3") Me.columnDurchgangszollstelle4 = MyBase.Columns("Durchgangszollstelle4") Me.columnDurchgangszollstelle5 = MyBase.Columns("Durchgangszollstelle5") Me.columnDurchgangszollstelle6 = MyBase.Columns("Durchgangszollstelle6") Me.columnSicherheit = MyBase.Columns("Sicherheit") Me.columnSicherheitCode = MyBase.Columns("SicherheitCode") Me.columnBestimmungsstelle = MyBase.Columns("Bestimmungsstelle") Me.columnHauptverpflichteterNr = MyBase.Columns("HauptverpflichteterNr") Me.columnSkontobetrag = MyBase.Columns("Skontobetrag") Me.columnArtikelpreis = MyBase.Columns("Artikelpreis") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnBemessungsgrundlage = MyBase.Columns("Bemessungsgrundlage") 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.columnANMELDUNG1 = New Global.System.Data.DataColumn("ANMELDUNG1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnANMELDUNG1) Me.columnANMELDUNG2 = New Global.System.Data.DataColumn("ANMELDUNG2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnANMELDUNG2) Me.columnVersenderAusführerNr = New Global.System.Data.DataColumn("VersenderAusführerNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVersenderAusführerNr) Me.columnVersenderAusführer = New Global.System.Data.DataColumn("VersenderAusführer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVersenderAusführer) Me.columnVordrucke1 = New Global.System.Data.DataColumn("Vordrucke1", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVordrucke1) Me.columnVordrucke2 = New Global.System.Data.DataColumn("Vordrucke2", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVordrucke2) Me.columnPositionen = New Global.System.Data.DataColumn("Positionen", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPositionen) Me.columnEmpfängerNr = New Global.System.Data.DataColumn("EmpfängerNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerNr) Me.columnEmpfänger = New Global.System.Data.DataColumn("Empfänger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfänger) Me.columnHandelsland = New Global.System.Data.DataColumn("Handelsland", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHandelsland) Me.columnAnmelderVertreterNr = New Global.System.Data.DataColumn("AnmelderVertreterNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmelderVertreterNr) Me.columnAnmelder = New Global.System.Data.DataColumn("Anmelder", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmelder) Me.columnVertreter = New Global.System.Data.DataColumn("Vertreter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVertreter) Me.columnVersendungsAusfuhrland = New Global.System.Data.DataColumn("VersendungsAusfuhrland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVersendungsAusfuhrland) Me.columnVersendungsAusfuhrlandCode = New Global.System.Data.DataColumn("VersendungsAusfuhrlandCode", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVersendungsAusfuhrlandCode) Me.columnUrsprungsland = New Global.System.Data.DataColumn("Ursprungsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUrsprungsland) Me.columnBestimmungslandCodeA = New Global.System.Data.DataColumn("BestimmungslandCodeA", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungslandCodeA) Me.columnBestimmungslandCodeB = New Global.System.Data.DataColumn("BestimmungslandCodeB", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungslandCodeB) Me.columnKennzeichenAnkunft = New Global.System.Data.DataColumn("KennzeichenAnkunft", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKennzeichenAnkunft) Me.columnStaatszugehörigkeitAnkunft = New Global.System.Data.DataColumn("StaatszugehörigkeitAnkunft", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStaatszugehörigkeitAnkunft) Me.columnContainer = New Global.System.Data.DataColumn("Container", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnContainer) Me.columnLieferbedingungCode = New Global.System.Data.DataColumn("LieferbedingungCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferbedingungCode) Me.columnLieferbedingung = New Global.System.Data.DataColumn("Lieferbedingung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferbedingung) Me.columnKennzeichenGrenze = New Global.System.Data.DataColumn("KennzeichenGrenze", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKennzeichenGrenze) Me.columnStaatszugehörigkeitGrenze = New Global.System.Data.DataColumn("StaatszugehörigkeitGrenze", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStaatszugehörigkeitGrenze) Me.columnWährung = New Global.System.Data.DataColumn("Währung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährung) Me.columnRechnungsbetrag = New Global.System.Data.DataColumn("Rechnungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetrag) Me.columnUmrechnungskurs = New Global.System.Data.DataColumn("Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmrechnungskurs) Me.columnGeschäftsart = New Global.System.Data.DataColumn("Geschäftsart", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeschäftsart) Me.columnVerkehrszweigGrenze = New Global.System.Data.DataColumn("VerkehrszweigGrenze", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVerkehrszweigGrenze) Me.columnInländischerVerkehrszweig = New Global.System.Data.DataColumn("InländischerVerkehrszweig", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInländischerVerkehrszweig) Me.columnEntladeort = New Global.System.Data.DataColumn("Entladeort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEntladeort) Me.columnEingangszollstelle = New Global.System.Data.DataColumn("Eingangszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingangszollstelle) Me.columnWarenort = New Global.System.Data.DataColumn("Warenort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarenort) Me.columnPackstücke = New Global.System.Data.DataColumn("Packstücke", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPackstücke) Me.columnWarenbezeichnung = New Global.System.Data.DataColumn("Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarenbezeichnung) Me.columnPositionsNr = New Global.System.Data.DataColumn("PositionsNr", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPositionsNr) Me.columnWarennummer1 = New Global.System.Data.DataColumn("Warennummer1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer1) Me.columnWarennummer2 = New Global.System.Data.DataColumn("Warennummer2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer2) Me.columnWarennummer3 = New Global.System.Data.DataColumn("Warennummer3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer3) Me.columnWarennummer4 = New Global.System.Data.DataColumn("Warennummer4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer4) Me.columnWarennummer5 = New Global.System.Data.DataColumn("Warennummer5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer5) Me.columnUrsprungslandCode = New Global.System.Data.DataColumn("UrsprungslandCode", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUrsprungslandCode) Me.columnRohmasse = New Global.System.Data.DataColumn("Rohmasse", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRohmasse) Me.columnPräferenz = New Global.System.Data.DataColumn("Präferenz", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPräferenz) Me.columnVerfahren = New Global.System.Data.DataColumn("Verfahren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVerfahren) Me.columnEigenmasse = New Global.System.Data.DataColumn("Eigenmasse", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEigenmasse) Me.columnKontingent = New Global.System.Data.DataColumn("Kontingent", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKontingent) Me.columnSumAnmeldungVorpapier = New Global.System.Data.DataColumn("SumAnmeldungVorpapier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSumAnmeldungVorpapier) Me.columnBesondereMasseinheit = New Global.System.Data.DataColumn("BesondereMasseinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereMasseinheit) Me.columnVorsteuerabzug = New Global.System.Data.DataColumn("Vorsteuerabzug", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorsteuerabzug) Me.columnBesondereVermerke = New Global.System.Data.DataColumn("BesondereVermerke", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerke) Me.columnBesondereVermerkeZeile1 = New Global.System.Data.DataColumn("BesondereVermerkeZeile1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerkeZeile1) Me.columnBesondereVermerkeBetrag1 = New Global.System.Data.DataColumn("BesondereVermerkeBetrag1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerkeBetrag1) Me.columnBesondereVermerkeHinweis1 = New Global.System.Data.DataColumn("BesondereVermerkeHinweis1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerkeHinweis1) Me.columnBesondereVermerkeZeile2 = New Global.System.Data.DataColumn("BesondereVermerkeZeile2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerkeZeile2) Me.columnBesondereVermerkeBetrag2 = New Global.System.Data.DataColumn("BesondereVermerkeBetrag2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerkeBetrag2) Me.columnBesondereVermerkeHinweis2 = New Global.System.Data.DataColumn("BesondereVermerkeHinweis2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerkeHinweis2) Me.columnBesondereVermerkeZeile3 = New Global.System.Data.DataColumn("BesondereVermerkeZeile3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerkeZeile3) Me.columnBesondereVermerkeBetrag3 = New Global.System.Data.DataColumn("BesondereVermerkeBetrag3", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerkeBetrag3) Me.columnBesondereVermerkeHinweis3 = New Global.System.Data.DataColumn("BesondereVermerkeHinweis3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerkeHinweis3) Me.columnStatistischerWert = New Global.System.Data.DataColumn("StatistischerWert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatistischerWert) Me.columnSumme = New Global.System.Data.DataColumn("Summe", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSumme) Me.columnZahlungsaufschub = New Global.System.Data.DataColumn("Zahlungsaufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsaufschub) Me.columnLagerbezeichnung = New Global.System.Data.DataColumn("Lagerbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLagerbezeichnung) Me.columnAngabenFürVerbuchungszwecke = New Global.System.Data.DataColumn("AngabenFürVerbuchungszwecke", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAngabenFürVerbuchungszwecke) Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrt) Me.columnDatum = New Global.System.Data.DataColumn("Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatum) Me.columnUnterschrift = New Global.System.Data.DataColumn("Unterschrift", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterschrift) Me.columnErstelltDatum = New Global.System.Data.DataColumn("ErstelltDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstelltDatum) Me.columnErstelltSachbearbeiter = New Global.System.Data.DataColumn("ErstelltSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstelltSachbearbeiter) Me.columnGeändertDatum = New Global.System.Data.DataColumn("GeändertDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändertDatum) Me.columnGeändertSachbearbeiter = New Global.System.Data.DataColumn("GeändertSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändertSachbearbeiter) Me.columnGedrucktDatum = New Global.System.Data.DataColumn("GedrucktDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGedrucktDatum) Me.columnGedrucktSachbearbeiter = New Global.System.Data.DataColumn("GedrucktSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGedrucktSachbearbeiter) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnFormular = New Global.System.Data.DataColumn("Formular", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFormular) Me.columnZulassungsinhaber = New Global.System.Data.DataColumn("Zulassungsinhaber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZulassungsinhaber) Me.columnBewilligungsnummer = New Global.System.Data.DataColumn("Bewilligungsnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBewilligungsnummer) Me.columnOrdnungsnummer = New Global.System.Data.DataColumn("Ordnungsnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrdnungsnummer) Me.columnRechnungspositionsbetrag = New Global.System.Data.DataColumn("Rechnungspositionsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungspositionsbetrag) Me.columnANMELDUNG3 = New Global.System.Data.DataColumn("ANMELDUNG3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnANMELDUNG3) Me.columnLadelisten = New Global.System.Data.DataColumn("Ladelisten", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLadelisten) Me.columnBestimmungsland = New Global.System.Data.DataColumn("Bestimmungsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungsland) Me.columnHauptverpflichteter = New Global.System.Data.DataColumn("Hauptverpflichteter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHauptverpflichteter) Me.columnHauptverpflichteterVertretenDurch = New Global.System.Data.DataColumn("HauptverpflichteterVertretenDurch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHauptverpflichteterVertretenDurch) Me.columnHauptverpflichteterOrtDatum = New Global.System.Data.DataColumn("HauptverpflichteterOrtDatum", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHauptverpflichteterOrtDatum) Me.columnDurchgangszollstelle1 = New Global.System.Data.DataColumn("Durchgangszollstelle1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDurchgangszollstelle1) Me.columnDurchgangszollstelle2 = New Global.System.Data.DataColumn("Durchgangszollstelle2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDurchgangszollstelle2) Me.columnDurchgangszollstelle3 = New Global.System.Data.DataColumn("Durchgangszollstelle3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDurchgangszollstelle3) Me.columnDurchgangszollstelle4 = New Global.System.Data.DataColumn("Durchgangszollstelle4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDurchgangszollstelle4) Me.columnDurchgangszollstelle5 = New Global.System.Data.DataColumn("Durchgangszollstelle5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDurchgangszollstelle5) Me.columnDurchgangszollstelle6 = New Global.System.Data.DataColumn("Durchgangszollstelle6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDurchgangszollstelle6) Me.columnSicherheit = New Global.System.Data.DataColumn("Sicherheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSicherheit) Me.columnSicherheitCode = New Global.System.Data.DataColumn("SicherheitCode", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSicherheitCode) Me.columnBestimmungsstelle = New Global.System.Data.DataColumn("Bestimmungsstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungsstelle) Me.columnHauptverpflichteterNr = New Global.System.Data.DataColumn("HauptverpflichteterNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHauptverpflichteterNr) Me.columnSkontobetrag = New Global.System.Data.DataColumn("Skontobetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSkontobetrag) Me.columnArtikelpreis = New Global.System.Data.DataColumn("Artikelpreis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArtikelpreis) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnBemessungsgrundlage = New Global.System.Data.DataColumn("Bemessungsgrundlage", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemessungsgrundlage) Me.columnID.AllowDBNull = false Me.columnANMELDUNG1.MaxLength = 3 Me.columnANMELDUNG2.MaxLength = 1 Me.columnVersenderAusführerNr.MaxLength = 15 Me.columnVersenderAusführer.MaxLength = 2147483647 Me.columnEmpfängerNr.MaxLength = 15 Me.columnEmpfänger.MaxLength = 2147483647 Me.columnAnmelderVertreterNr.MaxLength = 15 Me.columnAnmelder.MaxLength = 2147483647 Me.columnVertreter.MaxLength = 2147483647 Me.columnVersendungsAusfuhrland.MaxLength = 20 Me.columnUrsprungsland.MaxLength = 20 Me.columnKennzeichenAnkunft.MaxLength = 25 Me.columnLieferbedingungCode.MaxLength = 3 Me.columnLieferbedingung.MaxLength = 25 Me.columnKennzeichenGrenze.MaxLength = 25 Me.columnEntladeort.MaxLength = 15 Me.columnEingangszollstelle.MaxLength = 15 Me.columnWarenort.MaxLength = 15 Me.columnPackstücke.MaxLength = 80 Me.columnWarenbezeichnung.MaxLength = 2147483647 Me.columnWarennummer1.MaxLength = 8 Me.columnWarennummer2.MaxLength = 2 Me.columnWarennummer3.MaxLength = 4 Me.columnWarennummer4.MaxLength = 4 Me.columnWarennummer5.MaxLength = 1 Me.columnVerfahren.MaxLength = 8 Me.columnSumAnmeldungVorpapier.MaxLength = 27 Me.columnBesondereMasseinheit.MaxLength = 11 Me.columnVorsteuerabzug.MaxLength = 1 Me.columnBesondereVermerke.MaxLength = 2147483647 Me.columnBesondereVermerkeZeile1.MaxLength = 18 Me.columnBesondereVermerkeHinweis1.MaxLength = 22 Me.columnBesondereVermerkeZeile2.MaxLength = 18 Me.columnBesondereVermerkeHinweis2.MaxLength = 22 Me.columnBesondereVermerkeZeile3.MaxLength = 18 Me.columnBesondereVermerkeHinweis3.MaxLength = 22 Me.columnZahlungsaufschub.MaxLength = 20 Me.columnLagerbezeichnung.MaxLength = 20 Me.columnAngabenFürVerbuchungszwecke.MaxLength = 2147483647 Me.columnOrt.MaxLength = 20 Me.columnUnterschrift.MaxLength = 64 Me.columnErstelltSachbearbeiter.MaxLength = 15 Me.columnGeändertSachbearbeiter.MaxLength = 15 Me.columnGedrucktSachbearbeiter.MaxLength = 15 Me.columnFormular.MaxLength = 4 Me.columnZulassungsinhaber.MaxLength = 100 Me.columnBewilligungsnummer.MaxLength = 20 Me.columnOrdnungsnummer.MaxLength = 6 Me.columnANMELDUNG3.MaxLength = 5 Me.columnBestimmungsland.MaxLength = 17 Me.columnHauptverpflichteter.MaxLength = 2147483647 Me.columnHauptverpflichteterVertretenDurch.MaxLength = 40 Me.columnHauptverpflichteterOrtDatum.MaxLength = 40 Me.columnDurchgangszollstelle1.MaxLength = 11 Me.columnDurchgangszollstelle2.MaxLength = 11 Me.columnDurchgangszollstelle3.MaxLength = 11 Me.columnDurchgangszollstelle4.MaxLength = 11 Me.columnDurchgangszollstelle5.MaxLength = 11 Me.columnDurchgangszollstelle6.MaxLength = 11 Me.columnSicherheit.MaxLength = 2147483647 Me.columnBestimmungsstelle.MaxLength = 23 Me.columnHauptverpflichteterNr.MaxLength = 15 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnBemessungsgrundlage.MaxLength = 500 End Sub _ Public Function NewEPBesRow() As EPBesRow Return CType(Me.NewRow,EPBesRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New EPBesRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(EPBesRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.EPBesRowChangedEvent) Is Nothing) Then RaiseEvent EPBesRowChanged(Me, New EPBesRowChangeEvent(CType(e.Row,EPBesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.EPBesRowChangingEvent) Is Nothing) Then RaiseEvent EPBesRowChanging(Me, New EPBesRowChangeEvent(CType(e.Row,EPBesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.EPBesRowDeletedEvent) Is Nothing) Then RaiseEvent EPBesRowDeleted(Me, New EPBesRowChangeEvent(CType(e.Row,EPBesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.EPBesRowDeletingEvent) Is Nothing) Then RaiseEvent EPBesRowDeleting(Me, New EPBesRowChangeEvent(CType(e.Row,EPBesRow), e.Action)) End If End Sub _ Public Sub RemoveEPBesRow(ByVal row As EPBesRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "EPBesDataTable" 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 EPBesPOSDataTable Inherits Global.System.Data.TypedTableBase(Of EPBesPOSRow) Private columnEPBes_ID As Global.System.Data.DataColumn Private columnPackstücke As Global.System.Data.DataColumn Private columnWarenbezeichnung As Global.System.Data.DataColumn Private columnPositionsNr As Global.System.Data.DataColumn Private columnWarennummer1 As Global.System.Data.DataColumn Private columnWarennummer2 As Global.System.Data.DataColumn Private columnWarennummer3 As Global.System.Data.DataColumn Private columnWarennummer4 As Global.System.Data.DataColumn Private columnWarennummer5 As Global.System.Data.DataColumn Private columnUrsprungslandCode As Global.System.Data.DataColumn Private columnRohmasse As Global.System.Data.DataColumn Private columnPräferenz As Global.System.Data.DataColumn Private columnVerfahren As Global.System.Data.DataColumn Private columnEigenmasse As Global.System.Data.DataColumn Private columnKontingent As Global.System.Data.DataColumn Private columnSumAnmeldungVorpapier As Global.System.Data.DataColumn Private columnBesondereMasseinheit As Global.System.Data.DataColumn Private columnVorsteuerabzug As Global.System.Data.DataColumn Private columnBesondereVermerke As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "EPBesPOS" 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 EPBes_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnEPBes_ID End Get End Property _ Public ReadOnly Property PackstückeColumn() As Global.System.Data.DataColumn Get Return Me.columnPackstücke End Get End Property _ Public ReadOnly Property WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnWarenbezeichnung End Get End Property _ Public ReadOnly Property PositionsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPositionsNr End Get End Property _ Public ReadOnly Property Warennummer1Column() As Global.System.Data.DataColumn Get Return Me.columnWarennummer1 End Get End Property _ Public ReadOnly Property Warennummer2Column() As Global.System.Data.DataColumn Get Return Me.columnWarennummer2 End Get End Property _ Public ReadOnly Property Warennummer3Column() As Global.System.Data.DataColumn Get Return Me.columnWarennummer3 End Get End Property _ Public ReadOnly Property Warennummer4Column() As Global.System.Data.DataColumn Get Return Me.columnWarennummer4 End Get End Property _ Public ReadOnly Property Warennummer5Column() As Global.System.Data.DataColumn Get Return Me.columnWarennummer5 End Get End Property _ Public ReadOnly Property UrsprungslandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnUrsprungslandCode End Get End Property _ Public ReadOnly Property RohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnRohmasse End Get End Property _ Public ReadOnly Property PräferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnPräferenz End Get End Property _ Public ReadOnly Property VerfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columnVerfahren End Get End Property _ Public ReadOnly Property EigenmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnEigenmasse End Get End Property _ Public ReadOnly Property KontingentColumn() As Global.System.Data.DataColumn Get Return Me.columnKontingent End Get End Property _ Public ReadOnly Property SumAnmeldungVorpapierColumn() As Global.System.Data.DataColumn Get Return Me.columnSumAnmeldungVorpapier End Get End Property _ Public ReadOnly Property BesondereMasseinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnBesondereMasseinheit End Get End Property _ Public ReadOnly Property VorsteuerabzugColumn() As Global.System.Data.DataColumn Get Return Me.columnVorsteuerabzug End Get End Property _ Public ReadOnly Property BesondereVermerkeColumn() As Global.System.Data.DataColumn Get Return Me.columnBesondereVermerke 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 EPBesPOSRow Get Return CType(Me.Rows(index),EPBesPOSRow) End Get End Property _ Public Event EPBesPOSRowChanging As EPBesPOSRowChangeEventHandler _ Public Event EPBesPOSRowChanged As EPBesPOSRowChangeEventHandler _ Public Event EPBesPOSRowDeleting As EPBesPOSRowChangeEventHandler _ Public Event EPBesPOSRowDeleted As EPBesPOSRowChangeEventHandler _ Public Overloads Sub AddEPBesPOSRow(ByVal row As EPBesPOSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddEPBesPOSRow( _ ByVal EPBes_ID As Integer, _ ByVal Packstücke As String, _ ByVal Warenbezeichnung As String, _ ByVal PositionsNr As Byte, _ ByVal Warennummer1 As String, _ ByVal Warennummer2 As String, _ ByVal Warennummer3 As String, _ ByVal Warennummer4 As String, _ ByVal Warennummer5 As String, _ ByVal UrsprungslandCode As Short, _ ByVal Rohmasse As Double, _ ByVal Präferenz As Short, _ ByVal Verfahren As String, _ ByVal Eigenmasse As Double, _ ByVal Kontingent As Short, _ ByVal SumAnmeldungVorpapier As String, _ ByVal BesondereMasseinheit As String, _ ByVal Vorsteuerabzug As String, _ ByVal BesondereVermerke As String) As EPBesPOSRow Dim rowEPBesPOSRow As EPBesPOSRow = CType(Me.NewRow,EPBesPOSRow) Dim columnValuesArray() As Object = New Object() {EPBes_ID, Packstücke, Warenbezeichnung, PositionsNr, Warennummer1, Warennummer2, Warennummer3, Warennummer4, Warennummer5, UrsprungslandCode, Rohmasse, Präferenz, Verfahren, Eigenmasse, Kontingent, SumAnmeldungVorpapier, BesondereMasseinheit, Vorsteuerabzug, BesondereVermerke} rowEPBesPOSRow.ItemArray = columnValuesArray Me.Rows.Add(rowEPBesPOSRow) Return rowEPBesPOSRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As EPBesPOSDataTable = CType(MyBase.Clone,EPBesPOSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New EPBesPOSDataTable() End Function _ Friend Sub InitVars() Me.columnEPBes_ID = MyBase.Columns("EPBes_ID") Me.columnPackstücke = MyBase.Columns("Packstücke") Me.columnWarenbezeichnung = MyBase.Columns("Warenbezeichnung") Me.columnPositionsNr = MyBase.Columns("PositionsNr") Me.columnWarennummer1 = MyBase.Columns("Warennummer1") Me.columnWarennummer2 = MyBase.Columns("Warennummer2") Me.columnWarennummer3 = MyBase.Columns("Warennummer3") Me.columnWarennummer4 = MyBase.Columns("Warennummer4") Me.columnWarennummer5 = MyBase.Columns("Warennummer5") Me.columnUrsprungslandCode = MyBase.Columns("UrsprungslandCode") Me.columnRohmasse = MyBase.Columns("Rohmasse") Me.columnPräferenz = MyBase.Columns("Präferenz") Me.columnVerfahren = MyBase.Columns("Verfahren") Me.columnEigenmasse = MyBase.Columns("Eigenmasse") Me.columnKontingent = MyBase.Columns("Kontingent") Me.columnSumAnmeldungVorpapier = MyBase.Columns("SumAnmeldungVorpapier") Me.columnBesondereMasseinheit = MyBase.Columns("BesondereMasseinheit") Me.columnVorsteuerabzug = MyBase.Columns("Vorsteuerabzug") Me.columnBesondereVermerke = MyBase.Columns("BesondereVermerke") End Sub _ Private Sub InitClass() Me.columnEPBes_ID = New Global.System.Data.DataColumn("EPBes_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEPBes_ID) Me.columnPackstücke = New Global.System.Data.DataColumn("Packstücke", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPackstücke) Me.columnWarenbezeichnung = New Global.System.Data.DataColumn("Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarenbezeichnung) Me.columnPositionsNr = New Global.System.Data.DataColumn("PositionsNr", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPositionsNr) Me.columnWarennummer1 = New Global.System.Data.DataColumn("Warennummer1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer1) Me.columnWarennummer2 = New Global.System.Data.DataColumn("Warennummer2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer2) Me.columnWarennummer3 = New Global.System.Data.DataColumn("Warennummer3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer3) Me.columnWarennummer4 = New Global.System.Data.DataColumn("Warennummer4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer4) Me.columnWarennummer5 = New Global.System.Data.DataColumn("Warennummer5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer5) Me.columnUrsprungslandCode = New Global.System.Data.DataColumn("UrsprungslandCode", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUrsprungslandCode) Me.columnRohmasse = New Global.System.Data.DataColumn("Rohmasse", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRohmasse) Me.columnPräferenz = New Global.System.Data.DataColumn("Präferenz", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPräferenz) Me.columnVerfahren = New Global.System.Data.DataColumn("Verfahren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVerfahren) Me.columnEigenmasse = New Global.System.Data.DataColumn("Eigenmasse", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEigenmasse) Me.columnKontingent = New Global.System.Data.DataColumn("Kontingent", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKontingent) Me.columnSumAnmeldungVorpapier = New Global.System.Data.DataColumn("SumAnmeldungVorpapier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSumAnmeldungVorpapier) Me.columnBesondereMasseinheit = New Global.System.Data.DataColumn("BesondereMasseinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereMasseinheit) Me.columnVorsteuerabzug = New Global.System.Data.DataColumn("Vorsteuerabzug", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorsteuerabzug) Me.columnBesondereVermerke = New Global.System.Data.DataColumn("BesondereVermerke", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereVermerke) Me.columnEPBes_ID.AllowDBNull = false Me.columnPackstücke.MaxLength = 80 Me.columnWarenbezeichnung.MaxLength = 2147483647 Me.columnWarennummer1.MaxLength = 8 Me.columnWarennummer2.MaxLength = 2 Me.columnWarennummer3.MaxLength = 4 Me.columnWarennummer4.MaxLength = 4 Me.columnWarennummer5.MaxLength = 1 Me.columnVerfahren.MaxLength = 8 Me.columnSumAnmeldungVorpapier.MaxLength = 27 Me.columnBesondereMasseinheit.MaxLength = 11 Me.columnVorsteuerabzug.MaxLength = 1 Me.columnBesondereVermerke.MaxLength = 2147483647 End Sub _ Public Function NewEPBesPOSRow() As EPBesPOSRow Return CType(Me.NewRow,EPBesPOSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New EPBesPOSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(EPBesPOSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.EPBesPOSRowChangedEvent) Is Nothing) Then RaiseEvent EPBesPOSRowChanged(Me, New EPBesPOSRowChangeEvent(CType(e.Row,EPBesPOSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.EPBesPOSRowChangingEvent) Is Nothing) Then RaiseEvent EPBesPOSRowChanging(Me, New EPBesPOSRowChangeEvent(CType(e.Row,EPBesPOSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.EPBesPOSRowDeletedEvent) Is Nothing) Then RaiseEvent EPBesPOSRowDeleted(Me, New EPBesPOSRowChangeEvent(CType(e.Row,EPBesPOSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.EPBesPOSRowDeletingEvent) Is Nothing) Then RaiseEvent EPBesPOSRowDeleting(Me, New EPBesPOSRowChangeEvent(CType(e.Row,EPBesPOSRow), e.Action)) End If End Sub _ Public Sub RemoveEPBesPOSRow(ByVal row As EPBesPOSRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "EPBesPOSDataTable" 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 FilialenDataTable Inherits Global.System.Data.TypedTableBase(Of FilialenRow) Private columnFilialenNr As Global.System.Data.DataColumn Private columnStammfiliale As Global.System.Data.DataColumn Private columnGrenzstelle As Global.System.Data.DataColumn Private columnSpeditionsbuch As Global.System.Data.DataColumn Private columnName_1 As Global.System.Data.DataColumn Private columnName_2 As Global.System.Data.DataColumn Private columnPostfach As Global.System.Data.DataColumn Private columnPLZPF As Global.System.Data.DataColumn Private columnStraße As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnPLZ As Global.System.Data.DataColumn Private columnOrt As Global.System.Data.DataColumn Private columnTelefon As Global.System.Data.DataColumn Private columnTelefax As Global.System.Data.DataColumn Private _columnE_Mail As Global.System.Data.DataColumn Private columnUstIdKz As Global.System.Data.DataColumn Private columnUstIdNr As Global.System.Data.DataColumn Private columnKorrespondentenNr As Global.System.Data.DataColumn Private columnAbsender As Global.System.Data.DataColumn Private columnFil_Status As Global.System.Data.DataColumn Private columnPP440 As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnFirma As Global.System.Data.DataColumn Private columnCluster As Global.System.Data.DataColumn Private columnPP441 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Filialen" 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 FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property StammfilialeColumn() As Global.System.Data.DataColumn Get Return Me.columnStammfiliale End Get End Property _ Public ReadOnly Property GrenzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnGrenzstelle End Get End Property _ Public ReadOnly Property SpeditionsbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuch End Get End Property _ Public ReadOnly Property Name_1Column() As Global.System.Data.DataColumn Get Return Me.columnName_1 End Get End Property _ Public ReadOnly Property Name_2Column() As Global.System.Data.DataColumn Get Return Me.columnName_2 End Get End Property _ Public ReadOnly Property PostfachColumn() As Global.System.Data.DataColumn Get Return Me.columnPostfach End Get End Property _ Public ReadOnly Property PLZPFColumn() As Global.System.Data.DataColumn Get Return Me.columnPLZPF End Get End Property _ Public ReadOnly Property StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnStraße End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnPLZ End Get End Property _ Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnOrt End Get End Property _ Public ReadOnly Property TelefonColumn() As Global.System.Data.DataColumn Get Return Me.columnTelefon End Get End Property _ Public ReadOnly Property TelefaxColumn() As Global.System.Data.DataColumn Get Return Me.columnTelefax End Get End Property _ Public ReadOnly Property _E_MailColumn() As Global.System.Data.DataColumn Get Return Me._columnE_Mail End Get End Property _ Public ReadOnly Property UstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdKz End Get End Property _ Public ReadOnly Property UstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdNr End Get End Property _ Public ReadOnly Property KorrespondentenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKorrespondentenNr End Get End Property _ Public ReadOnly Property AbsenderColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsender End Get End Property _ Public ReadOnly Property Fil_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnFil_Status End Get End Property _ Public ReadOnly Property PP440Column() As Global.System.Data.DataColumn Get Return Me.columnPP440 End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma End Get End Property _ Public ReadOnly Property ClusterColumn() As Global.System.Data.DataColumn Get Return Me.columnCluster End Get End Property _ Public ReadOnly Property PP441Column() As Global.System.Data.DataColumn Get Return Me.columnPP441 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 FilialenRow Get Return CType(Me.Rows(index),FilialenRow) End Get End Property _ Public Event FilialenRowChanging As FilialenRowChangeEventHandler _ Public Event FilialenRowChanged As FilialenRowChangeEventHandler _ Public Event FilialenRowDeleting As FilialenRowChangeEventHandler _ Public Event FilialenRowDeleted As FilialenRowChangeEventHandler _ Public Overloads Sub AddFilialenRow(ByVal row As FilialenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddFilialenRow( _ ByVal FilialenNr As Short, _ ByVal Stammfiliale As Boolean, _ ByVal Grenzstelle As String, _ ByVal Speditionsbuch As Short, _ ByVal Name_1 As String, _ ByVal Name_2 As String, _ ByVal Postfach As String, _ ByVal PLZPF As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal Telefon As String, _ ByVal Telefax As String, _ ByVal _E_Mail As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal _parentKorrespondentenRowByFilialen_KorrespondentenFilialen As KorrespondentenRow, _ ByVal Absender As String, _ ByVal Fil_Status As String, _ ByVal PP440 As Boolean, _ ByVal SSMA_TimeStamp() As Byte, _ ByVal Firma As String, _ ByVal Cluster As String, _ ByVal PP441 As Boolean) As FilialenRow Dim rowFilialenRow As FilialenRow = CType(Me.NewRow,FilialenRow) Dim columnValuesArray() As Object = New Object() {FilialenNr, Stammfiliale, Grenzstelle, Speditionsbuch, Name_1, Name_2, Postfach, PLZPF, Straße, LandKz, PLZ, Ort, Telefon, Telefax, _E_Mail, UstIdKz, UstIdNr, Nothing, Absender, Fil_Status, PP440, SSMA_TimeStamp, Firma, Cluster, PP441} If (Not (_parentKorrespondentenRowByFilialen_KorrespondentenFilialen) Is Nothing) Then columnValuesArray(17) = _parentKorrespondentenRowByFilialen_KorrespondentenFilialen(0) End If rowFilialenRow.ItemArray = columnValuesArray Me.Rows.Add(rowFilialenRow) Return rowFilialenRow End Function _ Public Function FindByFilialenNr(ByVal FilialenNr As Short) As FilialenRow Return CType(Me.Rows.Find(New Object() {FilialenNr}),FilialenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As FilialenDataTable = CType(MyBase.Clone,FilialenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New FilialenDataTable() End Function _ Friend Sub InitVars() Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnStammfiliale = MyBase.Columns("Stammfiliale") Me.columnGrenzstelle = MyBase.Columns("Grenzstelle") Me.columnSpeditionsbuch = MyBase.Columns("Speditionsbuch") Me.columnName_1 = MyBase.Columns("Name 1") Me.columnName_2 = MyBase.Columns("Name 2") Me.columnPostfach = MyBase.Columns("Postfach") Me.columnPLZPF = MyBase.Columns("PLZPF") Me.columnStraße = MyBase.Columns("Straße") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnPLZ = MyBase.Columns("PLZ") Me.columnOrt = MyBase.Columns("Ort") Me.columnTelefon = MyBase.Columns("Telefon") Me.columnTelefax = MyBase.Columns("Telefax") Me._columnE_Mail = MyBase.Columns("E-Mail") Me.columnUstIdKz = MyBase.Columns("UstIdKz") Me.columnUstIdNr = MyBase.Columns("UstIdNr") Me.columnKorrespondentenNr = MyBase.Columns("KorrespondentenNr") Me.columnAbsender = MyBase.Columns("Absender") Me.columnFil_Status = MyBase.Columns("Fil_Status") Me.columnPP440 = MyBase.Columns("PP440") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnFirma = MyBase.Columns("Firma") Me.columnCluster = MyBase.Columns("Cluster") Me.columnPP441 = MyBase.Columns("PP441") End Sub _ Private Sub InitClass() Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnStammfiliale = New Global.System.Data.DataColumn("Stammfiliale", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStammfiliale) Me.columnGrenzstelle = New Global.System.Data.DataColumn("Grenzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGrenzstelle) Me.columnSpeditionsbuch = New Global.System.Data.DataColumn("Speditionsbuch", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuch) Me.columnName_1 = New Global.System.Data.DataColumn("Name 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName_1) Me.columnName_2 = New Global.System.Data.DataColumn("Name 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName_2) Me.columnPostfach = New Global.System.Data.DataColumn("Postfach", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPostfach) Me.columnPLZPF = New Global.System.Data.DataColumn("PLZPF", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLZPF) Me.columnStraße = New Global.System.Data.DataColumn("Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStraße) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLZ) Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrt) Me.columnTelefon = New Global.System.Data.DataColumn("Telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelefon) Me.columnTelefax = New Global.System.Data.DataColumn("Telefax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelefax) Me._columnE_Mail = New Global.System.Data.DataColumn("E-Mail", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnE_Mail.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnE_Mail") Me._columnE_Mail.ExtendedProperties.Add("Generator_UserColumnName", "E-Mail") MyBase.Columns.Add(Me._columnE_Mail) Me.columnUstIdKz = New Global.System.Data.DataColumn("UstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdKz) Me.columnUstIdNr = New Global.System.Data.DataColumn("UstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdNr) Me.columnKorrespondentenNr = New Global.System.Data.DataColumn("KorrespondentenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKorrespondentenNr) Me.columnAbsender = New Global.System.Data.DataColumn("Absender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsender) Me.columnFil_Status = New Global.System.Data.DataColumn("Fil_Status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFil_Status) Me.columnPP440 = New Global.System.Data.DataColumn("PP440", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPP440) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnFirma = New Global.System.Data.DataColumn("Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma) Me.columnCluster = New Global.System.Data.DataColumn("Cluster", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCluster) Me.columnPP441 = New Global.System.Data.DataColumn("PP441", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPP441) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFilialenNr}, true)) Me.columnFilialenNr.AllowDBNull = false Me.columnFilialenNr.Unique = true Me.columnGrenzstelle.AllowDBNull = false Me.columnGrenzstelle.MaxLength = 50 Me.columnSpeditionsbuch.AllowDBNull = false Me.columnName_1.MaxLength = 40 Me.columnName_2.MaxLength = 40 Me.columnPostfach.MaxLength = 6 Me.columnPLZPF.MaxLength = 7 Me.columnStraße.MaxLength = 40 Me.columnLandKz.MaxLength = 3 Me.columnPLZ.MaxLength = 7 Me.columnOrt.MaxLength = 40 Me.columnTelefon.MaxLength = 20 Me.columnTelefax.MaxLength = 20 Me._columnE_Mail.MaxLength = 25 Me.columnUstIdKz.MaxLength = 2 Me.columnUstIdNr.MaxLength = 12 Me.columnAbsender.MaxLength = 50 Me.columnFil_Status.AllowDBNull = false Me.columnFil_Status.MaxLength = 1 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnFirma.AllowDBNull = false Me.columnFirma.MaxLength = 50 Me.columnCluster.AllowDBNull = false Me.columnCluster.MaxLength = 50 End Sub _ Public Function NewFilialenRow() As FilialenRow Return CType(Me.NewRow,FilialenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New FilialenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(FilialenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.FilialenRowChangedEvent) Is Nothing) Then RaiseEvent FilialenRowChanged(Me, New FilialenRowChangeEvent(CType(e.Row,FilialenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.FilialenRowChangingEvent) Is Nothing) Then RaiseEvent FilialenRowChanging(Me, New FilialenRowChangeEvent(CType(e.Row,FilialenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.FilialenRowDeletedEvent) Is Nothing) Then RaiseEvent FilialenRowDeleted(Me, New FilialenRowChangeEvent(CType(e.Row,FilialenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.FilialenRowDeletingEvent) Is Nothing) Then RaiseEvent FilialenRowDeleting(Me, New FilialenRowChangeEvent(CType(e.Row,FilialenRow), e.Action)) End If End Sub _ Public Sub RemoveFilialenRow(ByVal row As FilialenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "FilialenDataTable" 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 GeschäftsartenDataTable Inherits Global.System.Data.TypedTableBase(Of GeschäftsartenRow) Private columnID As Global.System.Data.DataColumn Private columnArt_des_Geschäfts As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Geschäftsarten" 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 Art_des_GeschäftsColumn() As Global.System.Data.DataColumn Get Return Me.columnArt_des_Geschäfts End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 GeschäftsartenRow Get Return CType(Me.Rows(index),GeschäftsartenRow) End Get End Property _ Public Event GeschäftsartenRowChanging As GeschäftsartenRowChangeEventHandler _ Public Event GeschäftsartenRowChanged As GeschäftsartenRowChangeEventHandler _ Public Event GeschäftsartenRowDeleting As GeschäftsartenRowChangeEventHandler _ Public Event GeschäftsartenRowDeleted As GeschäftsartenRowChangeEventHandler _ Public Overloads Sub AddGeschäftsartenRow(ByVal row As GeschäftsartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddGeschäftsartenRow(ByVal ID As Short, ByVal Art_des_Geschäfts As String, ByVal SSMA_TimeStamp() As Byte) As GeschäftsartenRow Dim rowGeschäftsartenRow As GeschäftsartenRow = CType(Me.NewRow,GeschäftsartenRow) Dim columnValuesArray() As Object = New Object() {ID, Art_des_Geschäfts, SSMA_TimeStamp} rowGeschäftsartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowGeschäftsartenRow) Return rowGeschäftsartenRow End Function _ Public Function FindByID(ByVal ID As Short) As GeschäftsartenRow Return CType(Me.Rows.Find(New Object() {ID}),GeschäftsartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As GeschäftsartenDataTable = CType(MyBase.Clone,GeschäftsartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New GeschäftsartenDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnArt_des_Geschäfts = MyBase.Columns("Art des Geschäfts") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnArt_des_Geschäfts = New Global.System.Data.DataColumn("Art des Geschäfts", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArt_des_Geschäfts) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) 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.columnArt_des_Geschäfts.AllowDBNull = false Me.columnArt_des_Geschäfts.MaxLength = 255 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewGeschäftsartenRow() As GeschäftsartenRow Return CType(Me.NewRow,GeschäftsartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New GeschäftsartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(GeschäftsartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.GeschäftsartenRowChangedEvent) Is Nothing) Then RaiseEvent GeschäftsartenRowChanged(Me, New GeschäftsartenRowChangeEvent(CType(e.Row,GeschäftsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.GeschäftsartenRowChangingEvent) Is Nothing) Then RaiseEvent GeschäftsartenRowChanging(Me, New GeschäftsartenRowChangeEvent(CType(e.Row,GeschäftsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.GeschäftsartenRowDeletedEvent) Is Nothing) Then RaiseEvent GeschäftsartenRowDeleted(Me, New GeschäftsartenRowChangeEvent(CType(e.Row,GeschäftsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.GeschäftsartenRowDeletingEvent) Is Nothing) Then RaiseEvent GeschäftsartenRowDeleting(Me, New GeschäftsartenRowChangeEvent(CType(e.Row,GeschäftsartenRow), e.Action)) End If End Sub _ Public Sub RemoveGeschäftsartenRow(ByVal row As GeschäftsartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "GeschäftsartenDataTable" 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 KorrespondentenDataTable Inherits Global.System.Data.TypedTableBase(Of KorrespondentenRow) Private columnKorrespondentenNr As Global.System.Data.DataColumn Private columnKorrespondentenBez As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Korrespondenten" 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 KorrespondentenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKorrespondentenNr End Get End Property _ Public ReadOnly Property KorrespondentenBezColumn() As Global.System.Data.DataColumn Get Return Me.columnKorrespondentenBez End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 KorrespondentenRow Get Return CType(Me.Rows(index),KorrespondentenRow) End Get End Property _ Public Event KorrespondentenRowChanging As KorrespondentenRowChangeEventHandler _ Public Event KorrespondentenRowChanged As KorrespondentenRowChangeEventHandler _ Public Event KorrespondentenRowDeleting As KorrespondentenRowChangeEventHandler _ Public Event KorrespondentenRowDeleted As KorrespondentenRowChangeEventHandler _ Public Overloads Sub AddKorrespondentenRow(ByVal row As KorrespondentenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddKorrespondentenRow(ByVal KorrespondentenNr As Integer, ByVal KorrespondentenBez As String, ByVal SSMA_TimeStamp() As Byte) As KorrespondentenRow Dim rowKorrespondentenRow As KorrespondentenRow = CType(Me.NewRow,KorrespondentenRow) Dim columnValuesArray() As Object = New Object() {KorrespondentenNr, KorrespondentenBez, SSMA_TimeStamp} rowKorrespondentenRow.ItemArray = columnValuesArray Me.Rows.Add(rowKorrespondentenRow) Return rowKorrespondentenRow End Function _ Public Function FindByKorrespondentenNr(ByVal KorrespondentenNr As Integer) As KorrespondentenRow Return CType(Me.Rows.Find(New Object() {KorrespondentenNr}),KorrespondentenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As KorrespondentenDataTable = CType(MyBase.Clone,KorrespondentenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New KorrespondentenDataTable() End Function _ Friend Sub InitVars() Me.columnKorrespondentenNr = MyBase.Columns("KorrespondentenNr") Me.columnKorrespondentenBez = MyBase.Columns("KorrespondentenBez") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnKorrespondentenNr = New Global.System.Data.DataColumn("KorrespondentenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKorrespondentenNr) Me.columnKorrespondentenBez = New Global.System.Data.DataColumn("KorrespondentenBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKorrespondentenBez) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKorrespondentenNr}, true)) Me.columnKorrespondentenNr.AllowDBNull = false Me.columnKorrespondentenNr.Unique = true Me.columnKorrespondentenBez.AllowDBNull = false Me.columnKorrespondentenBez.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewKorrespondentenRow() As KorrespondentenRow Return CType(Me.NewRow,KorrespondentenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New KorrespondentenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(KorrespondentenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.KorrespondentenRowChangedEvent) Is Nothing) Then RaiseEvent KorrespondentenRowChanged(Me, New KorrespondentenRowChangeEvent(CType(e.Row,KorrespondentenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.KorrespondentenRowChangingEvent) Is Nothing) Then RaiseEvent KorrespondentenRowChanging(Me, New KorrespondentenRowChangeEvent(CType(e.Row,KorrespondentenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.KorrespondentenRowDeletedEvent) Is Nothing) Then RaiseEvent KorrespondentenRowDeleted(Me, New KorrespondentenRowChangeEvent(CType(e.Row,KorrespondentenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.KorrespondentenRowDeletingEvent) Is Nothing) Then RaiseEvent KorrespondentenRowDeleting(Me, New KorrespondentenRowChangeEvent(CType(e.Row,KorrespondentenRow), e.Action)) End If End Sub _ Public Sub RemoveKorrespondentenRow(ByVal row As KorrespondentenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "KorrespondentenDataTable" 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 KostenstellenDataTable Inherits Global.System.Data.TypedTableBase(Of KostenstellenRow) Private columnKostenstelle As Global.System.Data.DataColumn Private columnBezeichnung As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Kostenstellen" 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 KostenstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnKostenstelle End Get End Property _ Public ReadOnly Property BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnBezeichnung End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 KostenstellenRow Get Return CType(Me.Rows(index),KostenstellenRow) End Get End Property _ Public Event KostenstellenRowChanging As KostenstellenRowChangeEventHandler _ Public Event KostenstellenRowChanged As KostenstellenRowChangeEventHandler _ Public Event KostenstellenRowDeleting As KostenstellenRowChangeEventHandler _ Public Event KostenstellenRowDeleted As KostenstellenRowChangeEventHandler _ Public Overloads Sub AddKostenstellenRow(ByVal row As KostenstellenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddKostenstellenRow(ByVal Kostenstelle As Integer, ByVal Bezeichnung As String, ByVal SSMA_TimeStamp() As Byte) As KostenstellenRow Dim rowKostenstellenRow As KostenstellenRow = CType(Me.NewRow,KostenstellenRow) Dim columnValuesArray() As Object = New Object() {Kostenstelle, Bezeichnung, SSMA_TimeStamp} rowKostenstellenRow.ItemArray = columnValuesArray Me.Rows.Add(rowKostenstellenRow) Return rowKostenstellenRow End Function _ Public Function FindByKostenstelle(ByVal Kostenstelle As Integer) As KostenstellenRow Return CType(Me.Rows.Find(New Object() {Kostenstelle}),KostenstellenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As KostenstellenDataTable = CType(MyBase.Clone,KostenstellenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New KostenstellenDataTable() End Function _ Friend Sub InitVars() Me.columnKostenstelle = MyBase.Columns("Kostenstelle") Me.columnBezeichnung = MyBase.Columns("Bezeichnung") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnKostenstelle = New Global.System.Data.DataColumn("Kostenstelle", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKostenstelle) Me.columnBezeichnung = New Global.System.Data.DataColumn("Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBezeichnung) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKostenstelle}, true)) Me.columnKostenstelle.AllowDBNull = false Me.columnKostenstelle.Unique = true Me.columnBezeichnung.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewKostenstellenRow() As KostenstellenRow Return CType(Me.NewRow,KostenstellenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New KostenstellenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(KostenstellenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.KostenstellenRowChangedEvent) Is Nothing) Then RaiseEvent KostenstellenRowChanged(Me, New KostenstellenRowChangeEvent(CType(e.Row,KostenstellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.KostenstellenRowChangingEvent) Is Nothing) Then RaiseEvent KostenstellenRowChanging(Me, New KostenstellenRowChangeEvent(CType(e.Row,KostenstellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.KostenstellenRowDeletedEvent) Is Nothing) Then RaiseEvent KostenstellenRowDeleted(Me, New KostenstellenRowChangeEvent(CType(e.Row,KostenstellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.KostenstellenRowDeletingEvent) Is Nothing) Then RaiseEvent KostenstellenRowDeleting(Me, New KostenstellenRowChangeEvent(CType(e.Row,KostenstellenRow), e.Action)) End If End Sub _ Public Sub RemoveKostenstellenRow(ByVal row As KostenstellenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "KostenstellenDataTable" 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 KreditkartenDataTable Inherits Global.System.Data.TypedTableBase(Of KreditkartenRow) Private columnAdressenNr As Global.System.Data.DataColumn Private columnKartenNr As Global.System.Data.DataColumn Private columnKartenfreischaltungsdatum As Global.System.Data.DataColumn Private columnKartenablaufmonat As Global.System.Data.DataColumn Private columnKartenablaufjahr As Global.System.Data.DataColumn Private columnKartensperre As Global.System.Data.DataColumn Private columnKartensperrdatum As Global.System.Data.DataColumn Private columnNeueKartenNr As Global.System.Data.DataColumn Private columnNeueKartenNrGemeldet As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Kreditkarten" 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 AdressenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAdressenNr End Get End Property _ Public ReadOnly Property KartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenNr End Get End Property _ Public ReadOnly Property KartenfreischaltungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenfreischaltungsdatum End Get End Property _ Public ReadOnly Property KartenablaufmonatColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenablaufmonat End Get End Property _ Public ReadOnly Property KartenablaufjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenablaufjahr End Get End Property _ Public ReadOnly Property KartensperreColumn() As Global.System.Data.DataColumn Get Return Me.columnKartensperre End Get End Property _ Public ReadOnly Property KartensperrdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnKartensperrdatum End Get End Property _ Public ReadOnly Property NeueKartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnNeueKartenNr End Get End Property _ Public ReadOnly Property NeueKartenNrGemeldetColumn() As Global.System.Data.DataColumn Get Return Me.columnNeueKartenNrGemeldet End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 KreditkartenRow Get Return CType(Me.Rows(index),KreditkartenRow) End Get End Property _ Public Event KreditkartenRowChanging As KreditkartenRowChangeEventHandler _ Public Event KreditkartenRowChanged As KreditkartenRowChangeEventHandler _ Public Event KreditkartenRowDeleting As KreditkartenRowChangeEventHandler _ Public Event KreditkartenRowDeleted As KreditkartenRowChangeEventHandler _ Public Overloads Sub AddKreditkartenRow(ByVal row As KreditkartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddKreditkartenRow(ByVal _parentAdressenRowByKreditkarten_AdressenKreditkarten As AdressenRow, ByVal KartenNr As String, ByVal Kartenfreischaltungsdatum As Date, ByVal Kartenablaufmonat As Short, ByVal Kartenablaufjahr As Short, ByVal Kartensperre As Short, ByVal Kartensperrdatum As Date, ByVal NeueKartenNr As String, ByVal NeueKartenNrGemeldet As Boolean, ByVal Zeitstempel As Date, ByVal Sachbearbeiter As String, ByVal SSMA_TimeStamp() As Byte) As KreditkartenRow Dim rowKreditkartenRow As KreditkartenRow = CType(Me.NewRow,KreditkartenRow) Dim columnValuesArray() As Object = New Object() {Nothing, KartenNr, Kartenfreischaltungsdatum, Kartenablaufmonat, Kartenablaufjahr, Kartensperre, Kartensperrdatum, NeueKartenNr, NeueKartenNrGemeldet, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp} If (Not (_parentAdressenRowByKreditkarten_AdressenKreditkarten) Is Nothing) Then columnValuesArray(0) = _parentAdressenRowByKreditkarten_AdressenKreditkarten(1) End If rowKreditkartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowKreditkartenRow) Return rowKreditkartenRow End Function _ Public Function FindByKartenNr(ByVal KartenNr As String) As KreditkartenRow Return CType(Me.Rows.Find(New Object() {KartenNr}),KreditkartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As KreditkartenDataTable = CType(MyBase.Clone,KreditkartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New KreditkartenDataTable() End Function _ Friend Sub InitVars() Me.columnAdressenNr = MyBase.Columns("AdressenNr") Me.columnKartenNr = MyBase.Columns("KartenNr") Me.columnKartenfreischaltungsdatum = MyBase.Columns("Kartenfreischaltungsdatum") Me.columnKartenablaufmonat = MyBase.Columns("Kartenablaufmonat") Me.columnKartenablaufjahr = MyBase.Columns("Kartenablaufjahr") Me.columnKartensperre = MyBase.Columns("Kartensperre") Me.columnKartensperrdatum = MyBase.Columns("Kartensperrdatum") Me.columnNeueKartenNr = MyBase.Columns("NeueKartenNr") Me.columnNeueKartenNrGemeldet = MyBase.Columns("NeueKartenNrGemeldet") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnAdressenNr = New Global.System.Data.DataColumn("AdressenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAdressenNr) Me.columnKartenNr = New Global.System.Data.DataColumn("KartenNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenNr) Me.columnKartenfreischaltungsdatum = New Global.System.Data.DataColumn("Kartenfreischaltungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenfreischaltungsdatum) Me.columnKartenablaufmonat = New Global.System.Data.DataColumn("Kartenablaufmonat", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenablaufmonat) Me.columnKartenablaufjahr = New Global.System.Data.DataColumn("Kartenablaufjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenablaufjahr) Me.columnKartensperre = New Global.System.Data.DataColumn("Kartensperre", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartensperre) Me.columnKartensperrdatum = New Global.System.Data.DataColumn("Kartensperrdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartensperrdatum) Me.columnNeueKartenNr = New Global.System.Data.DataColumn("NeueKartenNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNeueKartenNr) Me.columnNeueKartenNrGemeldet = New Global.System.Data.DataColumn("NeueKartenNrGemeldet", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNeueKartenNrGemeldet) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKartenNr}, true)) Me.columnAdressenNr.AllowDBNull = false Me.columnKartenNr.AllowDBNull = false Me.columnKartenNr.Unique = true Me.columnKartenNr.MaxLength = 20 Me.columnKartenablaufmonat.AllowDBNull = false Me.columnKartenablaufjahr.AllowDBNull = false Me.columnKartensperre.AllowDBNull = false Me.columnNeueKartenNr.MaxLength = 20 Me.columnSachbearbeiter.MaxLength = 20 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewKreditkartenRow() As KreditkartenRow Return CType(Me.NewRow,KreditkartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New KreditkartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(KreditkartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.KreditkartenRowChangedEvent) Is Nothing) Then RaiseEvent KreditkartenRowChanged(Me, New KreditkartenRowChangeEvent(CType(e.Row,KreditkartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.KreditkartenRowChangingEvent) Is Nothing) Then RaiseEvent KreditkartenRowChanging(Me, New KreditkartenRowChangeEvent(CType(e.Row,KreditkartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.KreditkartenRowDeletedEvent) Is Nothing) Then RaiseEvent KreditkartenRowDeleted(Me, New KreditkartenRowChangeEvent(CType(e.Row,KreditkartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.KreditkartenRowDeletingEvent) Is Nothing) Then RaiseEvent KreditkartenRowDeleting(Me, New KreditkartenRowChangeEvent(CType(e.Row,KreditkartenRow), e.Action)) End If End Sub _ Public Sub RemoveKreditkartenRow(ByVal row As KreditkartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "KreditkartenDataTable" 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 KundenDataTable Inherits Global.System.Data.TypedTableBase(Of KundenRow) Private columnKundenNr As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnEinmalige_Abfertigung As Global.System.Data.DataColumn Private columnNeutralisierung As Global.System.Data.DataColumn Private columnAvis As Global.System.Data.DataColumn Private columnZollvollmacht As Global.System.Data.DataColumn Private columnZollvollmacht_vom As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private columnLastschrift_von As Global.System.Data.DataColumn Private columnLastschrift_bis As Global.System.Data.DataColumn Private columnRabattstaffel As Global.System.Data.DataColumn Private columnSVS As Global.System.Data.DataColumn Private _columnVorlageprovision__ As Global.System.Data.DataColumn Private _columnKreditaufwendungen__ As Global.System.Data.DataColumn Private _columnBankspesen__ As Global.System.Data.DataColumn Private columnBankspesen_Mindestbetrag As Global.System.Data.DataColumn Private columnBesonderheiten As Global.System.Data.DataColumn Private columnSammelrechnung As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private columnReferenznummer As Global.System.Data.DataColumn Private columnAntragssumme As Global.System.Data.DataColumn Private columnAntrag_vom As Global.System.Data.DataColumn Private columnVersicherungssumme As Global.System.Data.DataColumn Private columnEntscheidung_vom As Global.System.Data.DataColumn Private columnKreditlimit As Global.System.Data.DataColumn Private columnKreditlimit_vom As Global.System.Data.DataColumn Private columnInfo As Global.System.Data.DataColumn Private columnÜberwachungskunde As Global.System.Data.DataColumn Private columnAbfertigungsverbot As Global.System.Data.DataColumn Private columnAbfertigungsverbot_seit As Global.System.Data.DataColumn Private columnAbfertigungsverbot_Grund As Global.System.Data.DataColumn Private columnRechtsanwalt As Global.System.Data.DataColumn Private columnRechtsanwalt_seit As Global.System.Data.DataColumn Private columnEingegeben_am As Global.System.Data.DataColumn Private columnGeändert_am As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnLfdSaldo As Global.System.Data.DataColumn Private columnErste_Abfertigung As Global.System.Data.DataColumn Private columnVorkasse As Global.System.Data.DataColumn Private columnZahlungsinformationen As Global.System.Data.DataColumn Private columnEORITIN As Global.System.Data.DataColumn Private columnZollnummer As Global.System.Data.DataColumn Private columnZulassungsNr_ZnV As Global.System.Data.DataColumn Private columnAufschubkonto_EUSt As Global.System.Data.DataColumn Private columnAufschubkonto_Zoll As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private columnEuroeinführung As Global.System.Data.DataColumn Private columnLetzteRechnungsNr As Global.System.Data.DataColumn Private columnLetztesRechnungsDatum As Global.System.Data.DataColumn Private columnKonzernkonto As Global.System.Data.DataColumn Private columnFiBuSchnittstelle As Global.System.Data.DataColumn Private columnPlanzahl As Global.System.Data.DataColumn Private columnGesprächsbericht As Global.System.Data.DataColumn Private columnBonität As Global.System.Data.DataColumn Private columnBonitätsdatum As Global.System.Data.DataColumn Private columnZahlungsziel As Global.System.Data.DataColumn Private columnUStV_SummeUmsatzsteuerbetragEUR As Global.System.Data.DataColumn Private columnUStV_SummeErstattungsbetragEUR As Global.System.Data.DataColumn Private columnUStV_Summe3470BetragEUR As Global.System.Data.DataColumn Private columnUStV_SummeVZBetragEUR As Global.System.Data.DataColumn Private columnUStV_SummeVorschaubetragEUR As Global.System.Data.DataColumn Private columnUStV_SummeVorschaubetragEUR_VERAG As Global.System.Data.DataColumn Private columnUStV_SummeVorschaubetragEUR_IDS As Global.System.Data.DataColumn Private columnFiskal As Global.System.Data.DataColumn Private columnAusfuhr As Global.System.Data.DataColumn Private columnBankgarantieBetrag As Global.System.Data.DataColumn Private columnBankgarantieGültigBis As Global.System.Data.DataColumn Private columnKD_Korrespondenz As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnUStV_SummeVorschaubetragEUR_IT As Global.System.Data.DataColumn Private columnUStV_SummeVorschaubetragEUR_MSE As Global.System.Data.DataColumn Private columnUStV_SummeVorschaubetragEUR_UTA As Global.System.Data.DataColumn Private columnFiskal_Aktiv As Global.System.Data.DataColumn Private columnEmailAnkunft As Global.System.Data.DataColumn Private columnEmailFreigabe As Global.System.Data.DataColumn Private columnDokumenteLKWFreigabe As Global.System.Data.DataColumn Private columnHöchstkredit As Global.System.Data.DataColumn Private columnFiBuSchnittstelleNr As Global.System.Data.DataColumn Private columnDakosyExport As Global.System.Data.DataColumn Private columnEORITIN_NL As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Kunden" 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 KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property Einmalige_AbfertigungColumn() As Global.System.Data.DataColumn Get Return Me.columnEinmalige_Abfertigung End Get End Property _ Public ReadOnly Property NeutralisierungColumn() As Global.System.Data.DataColumn Get Return Me.columnNeutralisierung End Get End Property _ Public ReadOnly Property AvisColumn() As Global.System.Data.DataColumn Get Return Me.columnAvis End Get End Property _ Public ReadOnly Property ZollvollmachtColumn() As Global.System.Data.DataColumn Get Return Me.columnZollvollmacht End Get End Property _ Public ReadOnly Property Zollvollmacht_vomColumn() As Global.System.Data.DataColumn Get Return Me.columnZollvollmacht_vom End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property Lastschrift_vonColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift_von End Get End Property _ Public ReadOnly Property Lastschrift_bisColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift_bis End Get End Property _ Public ReadOnly Property RabattstaffelColumn() As Global.System.Data.DataColumn Get Return Me.columnRabattstaffel End Get End Property _ Public ReadOnly Property SVSColumn() As Global.System.Data.DataColumn Get Return Me.columnSVS End Get End Property _ Public ReadOnly Property _Vorlageprovision__Column() As Global.System.Data.DataColumn Get Return Me._columnVorlageprovision__ End Get End Property _ Public ReadOnly Property _Kreditaufwendungen__Column() As Global.System.Data.DataColumn Get Return Me._columnKreditaufwendungen__ End Get End Property _ Public ReadOnly Property _Bankspesen__Column() As Global.System.Data.DataColumn Get Return Me._columnBankspesen__ End Get End Property _ Public ReadOnly Property Bankspesen_MindestbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBankspesen_Mindestbetrag End Get End Property _ Public ReadOnly Property BesonderheitenColumn() As Global.System.Data.DataColumn Get Return Me.columnBesonderheiten End Get End Property _ Public ReadOnly Property SammelrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnung End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property ReferenznummerColumn() As Global.System.Data.DataColumn Get Return Me.columnReferenznummer End Get End Property _ Public ReadOnly Property AntragssummeColumn() As Global.System.Data.DataColumn Get Return Me.columnAntragssumme End Get End Property _ Public ReadOnly Property Antrag_vomColumn() As Global.System.Data.DataColumn Get Return Me.columnAntrag_vom End Get End Property _ Public ReadOnly Property VersicherungssummeColumn() As Global.System.Data.DataColumn Get Return Me.columnVersicherungssumme End Get End Property _ Public ReadOnly Property Entscheidung_vomColumn() As Global.System.Data.DataColumn Get Return Me.columnEntscheidung_vom End Get End Property _ Public ReadOnly Property KreditlimitColumn() As Global.System.Data.DataColumn Get Return Me.columnKreditlimit End Get End Property _ Public ReadOnly Property Kreditlimit_vomColumn() As Global.System.Data.DataColumn Get Return Me.columnKreditlimit_vom End Get End Property _ Public ReadOnly Property InfoColumn() As Global.System.Data.DataColumn Get Return Me.columnInfo End Get End Property _ Public ReadOnly Property ÜberwachungskundeColumn() As Global.System.Data.DataColumn Get Return Me.columnÜberwachungskunde End Get End Property _ Public ReadOnly Property AbfertigungsverbotColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsverbot End Get End Property _ Public ReadOnly Property Abfertigungsverbot_seitColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsverbot_seit End Get End Property _ Public ReadOnly Property Abfertigungsverbot_GrundColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsverbot_Grund End Get End Property _ Public ReadOnly Property RechtsanwaltColumn() As Global.System.Data.DataColumn Get Return Me.columnRechtsanwalt End Get End Property _ Public ReadOnly Property Rechtsanwalt_seitColumn() As Global.System.Data.DataColumn Get Return Me.columnRechtsanwalt_seit End Get End Property _ Public ReadOnly Property Eingegeben_amColumn() As Global.System.Data.DataColumn Get Return Me.columnEingegeben_am End Get End Property _ Public ReadOnly Property Geändert_amColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändert_am End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property LfdSaldoColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdSaldo End Get End Property _ Public ReadOnly Property Erste_AbfertigungColumn() As Global.System.Data.DataColumn Get Return Me.columnErste_Abfertigung End Get End Property _ Public ReadOnly Property VorkasseColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkasse End Get End Property _ Public ReadOnly Property ZahlungsinformationenColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsinformationen End Get End Property _ Public ReadOnly Property EORITINColumn() As Global.System.Data.DataColumn Get Return Me.columnEORITIN End Get End Property _ Public ReadOnly Property ZollnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnZollnummer End Get End Property _ Public ReadOnly Property ZulassungsNr_ZnVColumn() As Global.System.Data.DataColumn Get Return Me.columnZulassungsNr_ZnV End Get End Property _ Public ReadOnly Property Aufschubkonto_EUStColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkonto_EUSt End Get End Property _ Public ReadOnly Property Aufschubkonto_ZollColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkonto_Zoll End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property EuroeinführungColumn() As Global.System.Data.DataColumn Get Return Me.columnEuroeinführung End Get End Property _ Public ReadOnly Property LetzteRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLetzteRechnungsNr End Get End Property _ Public ReadOnly Property LetztesRechnungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnLetztesRechnungsDatum End Get End Property _ Public ReadOnly Property KonzernkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnKonzernkonto End Get End Property _ Public ReadOnly Property FiBuSchnittstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnFiBuSchnittstelle End Get End Property _ Public ReadOnly Property PlanzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnPlanzahl End Get End Property _ Public ReadOnly Property GesprächsberichtColumn() As Global.System.Data.DataColumn Get Return Me.columnGesprächsbericht End Get End Property _ Public ReadOnly Property BonitätColumn() As Global.System.Data.DataColumn Get Return Me.columnBonität End Get End Property _ Public ReadOnly Property BonitätsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBonitätsdatum End Get End Property _ Public ReadOnly Property ZahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsziel End Get End Property _ Public ReadOnly Property UStV_SummeUmsatzsteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeUmsatzsteuerbetragEUR End Get End Property _ Public ReadOnly Property UStV_SummeErstattungsbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeErstattungsbetragEUR End Get End Property _ Public ReadOnly Property UStV_Summe3470BetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_Summe3470BetragEUR End Get End Property _ Public ReadOnly Property UStV_SummeVZBetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVZBetragEUR End Get End Property _ Public ReadOnly Property UStV_SummeVorschaubetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVorschaubetragEUR End Get End Property _ Public ReadOnly Property UStV_SummeVorschaubetragEUR_VERAGColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVorschaubetragEUR_VERAG End Get End Property _ Public ReadOnly Property UStV_SummeVorschaubetragEUR_IDSColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVorschaubetragEUR_IDS End Get End Property _ Public ReadOnly Property FiskalColumn() As Global.System.Data.DataColumn Get Return Me.columnFiskal End Get End Property _ Public ReadOnly Property AusfuhrColumn() As Global.System.Data.DataColumn Get Return Me.columnAusfuhr End Get End Property _ Public ReadOnly Property BankgarantieBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBankgarantieBetrag End Get End Property _ Public ReadOnly Property BankgarantieGültigBisColumn() As Global.System.Data.DataColumn Get Return Me.columnBankgarantieGültigBis End Get End Property _ Public ReadOnly Property KD_KorrespondenzColumn() As Global.System.Data.DataColumn Get Return Me.columnKD_Korrespondenz End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property UStV_SummeVorschaubetragEUR_ITColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVorschaubetragEUR_IT End Get End Property _ Public ReadOnly Property UStV_SummeVorschaubetragEUR_MSEColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVorschaubetragEUR_MSE End Get End Property _ Public ReadOnly Property UStV_SummeVorschaubetragEUR_UTAColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVorschaubetragEUR_UTA End Get End Property _ Public ReadOnly Property Fiskal_AktivColumn() As Global.System.Data.DataColumn Get Return Me.columnFiskal_Aktiv End Get End Property _ Public ReadOnly Property EmailAnkunftColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailAnkunft End Get End Property _ Public ReadOnly Property EmailFreigabeColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailFreigabe End Get End Property _ Public ReadOnly Property DokumenteLKWFreigabeColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumenteLKWFreigabe End Get End Property _ Public ReadOnly Property HöchstkreditColumn() As Global.System.Data.DataColumn Get Return Me.columnHöchstkredit End Get End Property _ Public ReadOnly Property FiBuSchnittstelleNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFiBuSchnittstelleNr End Get End Property _ Public ReadOnly Property DakosyExportColumn() As Global.System.Data.DataColumn Get Return Me.columnDakosyExport End Get End Property _ Public ReadOnly Property EORITIN_NLColumn() As Global.System.Data.DataColumn Get Return Me.columnEORITIN_NL 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 KundenRow Get Return CType(Me.Rows(index),KundenRow) End Get End Property _ Public Event KundenRowChanging As KundenRowChangeEventHandler _ Public Event KundenRowChanged As KundenRowChangeEventHandler _ Public Event KundenRowDeleting As KundenRowChangeEventHandler _ Public Event KundenRowDeleted As KundenRowChangeEventHandler _ Public Overloads Sub AddKundenRow(ByVal row As KundenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddKundenRow( _ ByVal _parentAdressenRowByKunden_AdressenKunden As AdressenRow, _ ByVal KundenNrZentrale As Integer, _ ByVal _parentFilialenRowByKunden_FilialenKunden As FilialenRow, _ ByVal Einmalige_Abfertigung As Boolean, _ ByVal Neutralisierung As Short, _ ByVal Avis As Short, _ ByVal Zollvollmacht As Boolean, _ ByVal Zollvollmacht_vom As Date, _ ByVal Lastschrift As Boolean, _ ByVal Lastschrift_von As Date, _ ByVal Lastschrift_bis As Date, _ ByVal Rabattstaffel As Boolean, _ ByVal SVS As Boolean, _ ByVal _Vorlageprovision__ As Single, _ ByVal _Kreditaufwendungen__ As Single, _ ByVal _Bankspesen__ As Single, _ ByVal Bankspesen_Mindestbetrag As Decimal, _ ByVal Besonderheiten As String, _ ByVal Sammelrechnung As Short, _ ByVal _parentSteuertabelleRowByKunden_Reference7 As SteuertabelleRow, _ ByVal Referenznummer As String, _ ByVal Antragssumme As Decimal, _ ByVal Antrag_vom As Date, _ ByVal Versicherungssumme As Decimal, _ ByVal Entscheidung_vom As Date, _ ByVal Kreditlimit As Decimal, _ ByVal Kreditlimit_vom As Date, _ ByVal Info As String, _ ByVal Überwachungskunde As Boolean, _ ByVal Abfertigungsverbot As Boolean, _ ByVal Abfertigungsverbot_seit As Date, _ ByVal Abfertigungsverbot_Grund As String, _ ByVal Rechtsanwalt As Boolean, _ ByVal Rechtsanwalt_seit As Date, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Date, _ ByVal Sachbearbeiter As String, _ ByVal LfdSaldo As Decimal, _ ByVal Erste_Abfertigung As Date, _ ByVal Vorkasse As Boolean, _ ByVal Zahlungsinformationen As String, _ ByVal EORITIN As String, _ ByVal Zollnummer As String, _ ByVal ZulassungsNr_ZnV As String, _ ByVal Aufschubkonto_EUSt As String, _ ByVal Aufschubkonto_Zoll As String, _ ByVal Währungscode As String, _ ByVal Euroeinführung As Date, _ ByVal LetzteRechnungsNr As Integer, _ ByVal LetztesRechnungsDatum As Date, _ ByVal Konzernkonto As Boolean, _ ByVal FiBuSchnittstelle As Boolean, _ ByVal Planzahl As Integer, _ ByVal Gesprächsbericht As String, _ ByVal Bonität As Short, _ ByVal Bonitätsdatum As Date, _ ByVal Zahlungsziel As Short, _ ByVal UStV_SummeUmsatzsteuerbetragEUR As Decimal, _ ByVal UStV_SummeErstattungsbetragEUR As Decimal, _ ByVal UStV_Summe3470BetragEUR As Decimal, _ ByVal UStV_SummeVZBetragEUR As Decimal, _ ByVal UStV_SummeVorschaubetragEUR As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_VERAG As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_IDS As Decimal, _ ByVal Fiskal As Boolean, _ ByVal Ausfuhr As Boolean, _ ByVal BankgarantieBetrag As Decimal, _ ByVal BankgarantieGültigBis As Date, _ ByVal KD_Korrespondenz As String, _ ByVal SSMA_TimeStamp() As Byte, _ ByVal UStV_SummeVorschaubetragEUR_IT As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_MSE As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_UTA As Decimal, _ ByVal Fiskal_Aktiv As Boolean, _ ByVal EmailAnkunft As Boolean, _ ByVal EmailFreigabe As Boolean, _ ByVal DokumenteLKWFreigabe As String, _ ByVal Höchstkredit As Decimal, _ ByVal FiBuSchnittstelleNr As Short, _ ByVal DakosyExport As Date, _ ByVal EORITIN_NL As String) As KundenRow Dim rowKundenRow As KundenRow = CType(Me.NewRow,KundenRow) Dim columnValuesArray() As Object = New Object() {Nothing, KundenNrZentrale, Nothing, Einmalige_Abfertigung, Neutralisierung, Avis, Zollvollmacht, Zollvollmacht_vom, Lastschrift, Lastschrift_von, Lastschrift_bis, Rabattstaffel, SVS, _Vorlageprovision__, _Kreditaufwendungen__, _Bankspesen__, Bankspesen_Mindestbetrag, Besonderheiten, Sammelrechnung, Nothing, Referenznummer, Antragssumme, Antrag_vom, Versicherungssumme, Entscheidung_vom, Kreditlimit, Kreditlimit_vom, Info, Überwachungskunde, Abfertigungsverbot, Abfertigungsverbot_seit, Abfertigungsverbot_Grund, Rechtsanwalt, Rechtsanwalt_seit, Eingegeben_am, Geändert_am, Sachbearbeiter, LfdSaldo, Erste_Abfertigung, Vorkasse, Zahlungsinformationen, EORITIN, Zollnummer, ZulassungsNr_ZnV, Aufschubkonto_EUSt, Aufschubkonto_Zoll, Währungscode, Euroeinführung, LetzteRechnungsNr, LetztesRechnungsDatum, Konzernkonto, FiBuSchnittstelle, Planzahl, Gesprächsbericht, Bonität, Bonitätsdatum, Zahlungsziel, UStV_SummeUmsatzsteuerbetragEUR, UStV_SummeErstattungsbetragEUR, UStV_Summe3470BetragEUR, UStV_SummeVZBetragEUR, UStV_SummeVorschaubetragEUR, UStV_SummeVorschaubetragEUR_VERAG, UStV_SummeVorschaubetragEUR_IDS, Fiskal, Ausfuhr, BankgarantieBetrag, BankgarantieGültigBis, KD_Korrespondenz, SSMA_TimeStamp, UStV_SummeVorschaubetragEUR_IT, UStV_SummeVorschaubetragEUR_MSE, UStV_SummeVorschaubetragEUR_UTA, Fiskal_Aktiv, EmailAnkunft, EmailFreigabe, DokumenteLKWFreigabe, Höchstkredit, FiBuSchnittstelleNr, DakosyExport, EORITIN_NL} If (Not (_parentAdressenRowByKunden_AdressenKunden) Is Nothing) Then columnValuesArray(0) = _parentAdressenRowByKunden_AdressenKunden(1) End If If (Not (_parentFilialenRowByKunden_FilialenKunden) Is Nothing) Then columnValuesArray(2) = _parentFilialenRowByKunden_FilialenKunden(0) End If If (Not (_parentSteuertabelleRowByKunden_Reference7) Is Nothing) Then columnValuesArray(19) = _parentSteuertabelleRowByKunden_Reference7(0) End If rowKundenRow.ItemArray = columnValuesArray Me.Rows.Add(rowKundenRow) Return rowKundenRow End Function _ Public Function FindByKundenNr(ByVal KundenNr As Integer) As KundenRow Return CType(Me.Rows.Find(New Object() {KundenNr}),KundenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As KundenDataTable = CType(MyBase.Clone,KundenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New KundenDataTable() End Function _ Friend Sub InitVars() Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnEinmalige_Abfertigung = MyBase.Columns("Einmalige Abfertigung") Me.columnNeutralisierung = MyBase.Columns("Neutralisierung") Me.columnAvis = MyBase.Columns("Avis") Me.columnZollvollmacht = MyBase.Columns("Zollvollmacht") Me.columnZollvollmacht_vom = MyBase.Columns("Zollvollmacht vom") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me.columnLastschrift_von = MyBase.Columns("Lastschrift von") Me.columnLastschrift_bis = MyBase.Columns("Lastschrift bis") Me.columnRabattstaffel = MyBase.Columns("Rabattstaffel") Me.columnSVS = MyBase.Columns("SVS") Me._columnVorlageprovision__ = MyBase.Columns("Vorlageprovision %") Me._columnKreditaufwendungen__ = MyBase.Columns("Kreditaufwendungen %") Me._columnBankspesen__ = MyBase.Columns("Bankspesen %") Me.columnBankspesen_Mindestbetrag = MyBase.Columns("Bankspesen Mindestbetrag") Me.columnBesonderheiten = MyBase.Columns("Besonderheiten") Me.columnSammelrechnung = MyBase.Columns("Sammelrechnung") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me.columnReferenznummer = MyBase.Columns("Referenznummer") Me.columnAntragssumme = MyBase.Columns("Antragssumme") Me.columnAntrag_vom = MyBase.Columns("Antrag vom") Me.columnVersicherungssumme = MyBase.Columns("Versicherungssumme") Me.columnEntscheidung_vom = MyBase.Columns("Entscheidung vom") Me.columnKreditlimit = MyBase.Columns("Kreditlimit") Me.columnKreditlimit_vom = MyBase.Columns("Kreditlimit vom") Me.columnInfo = MyBase.Columns("Info") Me.columnÜberwachungskunde = MyBase.Columns("Überwachungskunde") Me.columnAbfertigungsverbot = MyBase.Columns("Abfertigungsverbot") Me.columnAbfertigungsverbot_seit = MyBase.Columns("Abfertigungsverbot seit") Me.columnAbfertigungsverbot_Grund = MyBase.Columns("Abfertigungsverbot Grund") Me.columnRechtsanwalt = MyBase.Columns("Rechtsanwalt") Me.columnRechtsanwalt_seit = MyBase.Columns("Rechtsanwalt seit") Me.columnEingegeben_am = MyBase.Columns("Eingegeben am") Me.columnGeändert_am = MyBase.Columns("Geändert am") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnLfdSaldo = MyBase.Columns("LfdSaldo") Me.columnErste_Abfertigung = MyBase.Columns("Erste Abfertigung") Me.columnVorkasse = MyBase.Columns("Vorkasse") Me.columnZahlungsinformationen = MyBase.Columns("Zahlungsinformationen") Me.columnEORITIN = MyBase.Columns("EORITIN") Me.columnZollnummer = MyBase.Columns("Zollnummer") Me.columnZulassungsNr_ZnV = MyBase.Columns("ZulassungsNr ZnV") Me.columnAufschubkonto_EUSt = MyBase.Columns("Aufschubkonto EUSt") Me.columnAufschubkonto_Zoll = MyBase.Columns("Aufschubkonto Zoll") Me.columnWährungscode = MyBase.Columns("Währungscode") Me.columnEuroeinführung = MyBase.Columns("Euroeinführung") Me.columnLetzteRechnungsNr = MyBase.Columns("LetzteRechnungsNr") Me.columnLetztesRechnungsDatum = MyBase.Columns("LetztesRechnungsDatum") Me.columnKonzernkonto = MyBase.Columns("Konzernkonto") Me.columnFiBuSchnittstelle = MyBase.Columns("FiBuSchnittstelle") Me.columnPlanzahl = MyBase.Columns("Planzahl") Me.columnGesprächsbericht = MyBase.Columns("Gesprächsbericht") Me.columnBonität = MyBase.Columns("Bonität") Me.columnBonitätsdatum = MyBase.Columns("Bonitätsdatum") Me.columnZahlungsziel = MyBase.Columns("Zahlungsziel") Me.columnUStV_SummeUmsatzsteuerbetragEUR = MyBase.Columns("UStV_SummeUmsatzsteuerbetragEUR") Me.columnUStV_SummeErstattungsbetragEUR = MyBase.Columns("UStV_SummeErstattungsbetragEUR") Me.columnUStV_Summe3470BetragEUR = MyBase.Columns("UStV_Summe3470BetragEUR") Me.columnUStV_SummeVZBetragEUR = MyBase.Columns("UStV_SummeVZBetragEUR") Me.columnUStV_SummeVorschaubetragEUR = MyBase.Columns("UStV_SummeVorschaubetragEUR") Me.columnUStV_SummeVorschaubetragEUR_VERAG = MyBase.Columns("UStV_SummeVorschaubetragEUR_VERAG") Me.columnUStV_SummeVorschaubetragEUR_IDS = MyBase.Columns("UStV_SummeVorschaubetragEUR_IDS") Me.columnFiskal = MyBase.Columns("Fiskal") Me.columnAusfuhr = MyBase.Columns("Ausfuhr") Me.columnBankgarantieBetrag = MyBase.Columns("BankgarantieBetrag") Me.columnBankgarantieGültigBis = MyBase.Columns("BankgarantieGültigBis") Me.columnKD_Korrespondenz = MyBase.Columns("KD_Korrespondenz") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnUStV_SummeVorschaubetragEUR_IT = MyBase.Columns("UStV_SummeVorschaubetragEUR_IT") Me.columnUStV_SummeVorschaubetragEUR_MSE = MyBase.Columns("UStV_SummeVorschaubetragEUR_MSE") Me.columnUStV_SummeVorschaubetragEUR_UTA = MyBase.Columns("UStV_SummeVorschaubetragEUR_UTA") Me.columnFiskal_Aktiv = MyBase.Columns("Fiskal_Aktiv") Me.columnEmailAnkunft = MyBase.Columns("EmailAnkunft") Me.columnEmailFreigabe = MyBase.Columns("EmailFreigabe") Me.columnDokumenteLKWFreigabe = MyBase.Columns("DokumenteLKWFreigabe") Me.columnHöchstkredit = MyBase.Columns("Höchstkredit") Me.columnFiBuSchnittstelleNr = MyBase.Columns("FiBuSchnittstelleNr") Me.columnDakosyExport = MyBase.Columns("DakosyExport") Me.columnEORITIN_NL = MyBase.Columns("EORITIN_NL") End Sub _ Private Sub InitClass() Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnEinmalige_Abfertigung = New Global.System.Data.DataColumn("Einmalige Abfertigung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinmalige_Abfertigung) Me.columnNeutralisierung = New Global.System.Data.DataColumn("Neutralisierung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNeutralisierung) Me.columnAvis = New Global.System.Data.DataColumn("Avis", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvis) Me.columnZollvollmacht = New Global.System.Data.DataColumn("Zollvollmacht", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollvollmacht) Me.columnZollvollmacht_vom = New Global.System.Data.DataColumn("Zollvollmacht vom", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollvollmacht_vom) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnLastschrift_von = New Global.System.Data.DataColumn("Lastschrift von", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift_von) Me.columnLastschrift_bis = New Global.System.Data.DataColumn("Lastschrift bis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift_bis) Me.columnRabattstaffel = New Global.System.Data.DataColumn("Rabattstaffel", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRabattstaffel) Me.columnSVS = New Global.System.Data.DataColumn("SVS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSVS) Me._columnVorlageprovision__ = New Global.System.Data.DataColumn("Vorlageprovision %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnVorlageprovision__") Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_UserColumnName", "Vorlageprovision %") MyBase.Columns.Add(Me._columnVorlageprovision__) Me._columnKreditaufwendungen__ = New Global.System.Data.DataColumn("Kreditaufwendungen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnKreditaufwendungen__") Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_UserColumnName", "Kreditaufwendungen %") MyBase.Columns.Add(Me._columnKreditaufwendungen__) Me._columnBankspesen__ = New Global.System.Data.DataColumn("Bankspesen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnBankspesen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnBankspesen__") Me._columnBankspesen__.ExtendedProperties.Add("Generator_UserColumnName", "Bankspesen %") MyBase.Columns.Add(Me._columnBankspesen__) Me.columnBankspesen_Mindestbetrag = New Global.System.Data.DataColumn("Bankspesen Mindestbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankspesen_Mindestbetrag) Me.columnBesonderheiten = New Global.System.Data.DataColumn("Besonderheiten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesonderheiten) Me.columnSammelrechnung = New Global.System.Data.DataColumn("Sammelrechnung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnung) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me.columnReferenznummer = New Global.System.Data.DataColumn("Referenznummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReferenznummer) Me.columnAntragssumme = New Global.System.Data.DataColumn("Antragssumme", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAntragssumme) Me.columnAntrag_vom = New Global.System.Data.DataColumn("Antrag vom", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAntrag_vom) Me.columnVersicherungssumme = New Global.System.Data.DataColumn("Versicherungssumme", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVersicherungssumme) Me.columnEntscheidung_vom = New Global.System.Data.DataColumn("Entscheidung vom", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEntscheidung_vom) Me.columnKreditlimit = New Global.System.Data.DataColumn("Kreditlimit", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKreditlimit) Me.columnKreditlimit_vom = New Global.System.Data.DataColumn("Kreditlimit vom", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKreditlimit_vom) Me.columnInfo = New Global.System.Data.DataColumn("Info", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInfo) Me.columnÜberwachungskunde = New Global.System.Data.DataColumn("Überwachungskunde", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜberwachungskunde) Me.columnAbfertigungsverbot = New Global.System.Data.DataColumn("Abfertigungsverbot", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsverbot) Me.columnAbfertigungsverbot_seit = New Global.System.Data.DataColumn("Abfertigungsverbot seit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsverbot_seit) Me.columnAbfertigungsverbot_Grund = New Global.System.Data.DataColumn("Abfertigungsverbot Grund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsverbot_Grund) Me.columnRechtsanwalt = New Global.System.Data.DataColumn("Rechtsanwalt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechtsanwalt) Me.columnRechtsanwalt_seit = New Global.System.Data.DataColumn("Rechtsanwalt seit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechtsanwalt_seit) Me.columnEingegeben_am = New Global.System.Data.DataColumn("Eingegeben am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingegeben_am) Me.columnGeändert_am = New Global.System.Data.DataColumn("Geändert am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändert_am) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnLfdSaldo = New Global.System.Data.DataColumn("LfdSaldo", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdSaldo) Me.columnErste_Abfertigung = New Global.System.Data.DataColumn("Erste Abfertigung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErste_Abfertigung) Me.columnVorkasse = New Global.System.Data.DataColumn("Vorkasse", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkasse) Me.columnZahlungsinformationen = New Global.System.Data.DataColumn("Zahlungsinformationen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsinformationen) Me.columnEORITIN = New Global.System.Data.DataColumn("EORITIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEORITIN) Me.columnZollnummer = New Global.System.Data.DataColumn("Zollnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollnummer) Me.columnZulassungsNr_ZnV = New Global.System.Data.DataColumn("ZulassungsNr ZnV", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZulassungsNr_ZnV) Me.columnAufschubkonto_EUSt = New Global.System.Data.DataColumn("Aufschubkonto EUSt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkonto_EUSt) Me.columnAufschubkonto_Zoll = New Global.System.Data.DataColumn("Aufschubkonto Zoll", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkonto_Zoll) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.columnEuroeinführung = New Global.System.Data.DataColumn("Euroeinführung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEuroeinführung) Me.columnLetzteRechnungsNr = New Global.System.Data.DataColumn("LetzteRechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLetzteRechnungsNr) Me.columnLetztesRechnungsDatum = New Global.System.Data.DataColumn("LetztesRechnungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLetztesRechnungsDatum) Me.columnKonzernkonto = New Global.System.Data.DataColumn("Konzernkonto", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKonzernkonto) Me.columnFiBuSchnittstelle = New Global.System.Data.DataColumn("FiBuSchnittstelle", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiBuSchnittstelle) Me.columnPlanzahl = New Global.System.Data.DataColumn("Planzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPlanzahl) Me.columnGesprächsbericht = New Global.System.Data.DataColumn("Gesprächsbericht", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesprächsbericht) Me.columnBonität = New Global.System.Data.DataColumn("Bonität", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBonität) Me.columnBonitätsdatum = New Global.System.Data.DataColumn("Bonitätsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBonitätsdatum) Me.columnZahlungsziel = New Global.System.Data.DataColumn("Zahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsziel) Me.columnUStV_SummeUmsatzsteuerbetragEUR = New Global.System.Data.DataColumn("UStV_SummeUmsatzsteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeUmsatzsteuerbetragEUR) Me.columnUStV_SummeErstattungsbetragEUR = New Global.System.Data.DataColumn("UStV_SummeErstattungsbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeErstattungsbetragEUR) Me.columnUStV_Summe3470BetragEUR = New Global.System.Data.DataColumn("UStV_Summe3470BetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_Summe3470BetragEUR) Me.columnUStV_SummeVZBetragEUR = New Global.System.Data.DataColumn("UStV_SummeVZBetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVZBetragEUR) Me.columnUStV_SummeVorschaubetragEUR = New Global.System.Data.DataColumn("UStV_SummeVorschaubetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVorschaubetragEUR) Me.columnUStV_SummeVorschaubetragEUR_VERAG = New Global.System.Data.DataColumn("UStV_SummeVorschaubetragEUR_VERAG", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVorschaubetragEUR_VERAG) Me.columnUStV_SummeVorschaubetragEUR_IDS = New Global.System.Data.DataColumn("UStV_SummeVorschaubetragEUR_IDS", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVorschaubetragEUR_IDS) Me.columnFiskal = New Global.System.Data.DataColumn("Fiskal", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiskal) Me.columnAusfuhr = New Global.System.Data.DataColumn("Ausfuhr", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAusfuhr) Me.columnBankgarantieBetrag = New Global.System.Data.DataColumn("BankgarantieBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankgarantieBetrag) Me.columnBankgarantieGültigBis = New Global.System.Data.DataColumn("BankgarantieGültigBis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankgarantieGültigBis) Me.columnKD_Korrespondenz = New Global.System.Data.DataColumn("KD_Korrespondenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKD_Korrespondenz) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnUStV_SummeVorschaubetragEUR_IT = New Global.System.Data.DataColumn("UStV_SummeVorschaubetragEUR_IT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVorschaubetragEUR_IT) Me.columnUStV_SummeVorschaubetragEUR_MSE = New Global.System.Data.DataColumn("UStV_SummeVorschaubetragEUR_MSE", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVorschaubetragEUR_MSE) Me.columnUStV_SummeVorschaubetragEUR_UTA = New Global.System.Data.DataColumn("UStV_SummeVorschaubetragEUR_UTA", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVorschaubetragEUR_UTA) Me.columnFiskal_Aktiv = New Global.System.Data.DataColumn("Fiskal_Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiskal_Aktiv) Me.columnEmailAnkunft = New Global.System.Data.DataColumn("EmailAnkunft", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailAnkunft) Me.columnEmailFreigabe = New Global.System.Data.DataColumn("EmailFreigabe", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailFreigabe) Me.columnDokumenteLKWFreigabe = New Global.System.Data.DataColumn("DokumenteLKWFreigabe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumenteLKWFreigabe) Me.columnHöchstkredit = New Global.System.Data.DataColumn("Höchstkredit", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHöchstkredit) Me.columnFiBuSchnittstelleNr = New Global.System.Data.DataColumn("FiBuSchnittstelleNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiBuSchnittstelleNr) Me.columnDakosyExport = New Global.System.Data.DataColumn("DakosyExport", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDakosyExport) Me.columnEORITIN_NL = New Global.System.Data.DataColumn("EORITIN_NL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEORITIN_NL) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKundenNr}, true)) Me.columnKundenNr.AllowDBNull = false Me.columnKundenNr.Unique = true Me.columnKundenNrZentrale.AllowDBNull = false Me.columnLastschrift.AllowDBNull = false Me._columnVorlageprovision__.AllowDBNull = false Me._columnKreditaufwendungen__.AllowDBNull = false Me._columnBankspesen__.AllowDBNull = false Me.columnBankspesen_Mindestbetrag.AllowDBNull = false Me.columnBesonderheiten.MaxLength = 2147483647 Me.columnSammelrechnung.AllowDBNull = false Me.columnSteuerschlüssel.AllowDBNull = false Me.columnReferenznummer.MaxLength = 16 Me.columnInfo.MaxLength = 2147483647 Me.columnAbfertigungsverbot_Grund.MaxLength = 2147483647 Me.columnEingegeben_am.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnZahlungsinformationen.MaxLength = 2147483647 Me.columnEORITIN.MaxLength = 17 Me.columnZollnummer.MaxLength = 7 Me.columnZulassungsNr_ZnV.MaxLength = 20 Me.columnAufschubkonto_EUSt.MaxLength = 20 Me.columnAufschubkonto_Zoll.MaxLength = 20 Me.columnWährungscode.AllowDBNull = false Me.columnWährungscode.MaxLength = 3 Me.columnEuroeinführung.AllowDBNull = false Me.columnGesprächsbericht.MaxLength = 2147483647 Me.columnUStV_SummeUmsatzsteuerbetragEUR.AllowDBNull = false Me.columnUStV_SummeErstattungsbetragEUR.AllowDBNull = false Me.columnUStV_Summe3470BetragEUR.AllowDBNull = false Me.columnUStV_SummeVZBetragEUR.AllowDBNull = false Me.columnUStV_SummeVorschaubetragEUR.AllowDBNull = false Me.columnUStV_SummeVorschaubetragEUR_VERAG.AllowDBNull = false Me.columnUStV_SummeVorschaubetragEUR_IDS.AllowDBNull = false Me.columnKD_Korrespondenz.MaxLength = 2147483647 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnFiskal_Aktiv.AllowDBNull = false Me.columnEmailAnkunft.AllowDBNull = false Me.columnEmailFreigabe.AllowDBNull = false Me.columnDokumenteLKWFreigabe.MaxLength = 2147483647 Me.columnEORITIN_NL.MaxLength = 4 End Sub _ Public Function NewKundenRow() As KundenRow Return CType(Me.NewRow,KundenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New KundenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(KundenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.KundenRowChangedEvent) Is Nothing) Then RaiseEvent KundenRowChanged(Me, New KundenRowChangeEvent(CType(e.Row,KundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.KundenRowChangingEvent) Is Nothing) Then RaiseEvent KundenRowChanging(Me, New KundenRowChangeEvent(CType(e.Row,KundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.KundenRowDeletedEvent) Is Nothing) Then RaiseEvent KundenRowDeleted(Me, New KundenRowChangeEvent(CType(e.Row,KundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.KundenRowDeletingEvent) Is Nothing) Then RaiseEvent KundenRowDeleting(Me, New KundenRowChangeEvent(CType(e.Row,KundenRow), e.Action)) End If End Sub _ Public Sub RemoveKundenRow(ByVal row As KundenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "KundenDataTable" 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 KundenFilialenDataTable Inherits Global.System.Data.TypedTableBase(Of KundenFilialenRow) Private columnKundenNr As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "KundenFilialen" 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 KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 KundenFilialenRow Get Return CType(Me.Rows(index),KundenFilialenRow) End Get End Property _ Public Event KundenFilialenRowChanging As KundenFilialenRowChangeEventHandler _ Public Event KundenFilialenRowChanged As KundenFilialenRowChangeEventHandler _ Public Event KundenFilialenRowDeleting As KundenFilialenRowChangeEventHandler _ Public Event KundenFilialenRowDeleted As KundenFilialenRowChangeEventHandler _ Public Overloads Sub AddKundenFilialenRow(ByVal row As KundenFilialenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddKundenFilialenRow(ByVal _parentKundenRowByKundenFilialen_KundenKundenFilialen As KundenRow, ByVal _parentFilialenRowByKundenFilialen_FilialenKundenFilialen As FilialenRow, ByVal Abfertigungsdatum As Date, ByVal SSMA_TimeStamp() As Byte) As KundenFilialenRow Dim rowKundenFilialenRow As KundenFilialenRow = CType(Me.NewRow,KundenFilialenRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Abfertigungsdatum, SSMA_TimeStamp} If (Not (_parentKundenRowByKundenFilialen_KundenKundenFilialen) Is Nothing) Then columnValuesArray(0) = _parentKundenRowByKundenFilialen_KundenKundenFilialen(0) End If If (Not (_parentFilialenRowByKundenFilialen_FilialenKundenFilialen) Is Nothing) Then columnValuesArray(1) = _parentFilialenRowByKundenFilialen_FilialenKundenFilialen(0) End If rowKundenFilialenRow.ItemArray = columnValuesArray Me.Rows.Add(rowKundenFilialenRow) Return rowKundenFilialenRow End Function _ Public Function FindByKundenNrFilialenNr(ByVal KundenNr As Integer, ByVal FilialenNr As Short) As KundenFilialenRow Return CType(Me.Rows.Find(New Object() {KundenNr, FilialenNr}),KundenFilialenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As KundenFilialenDataTable = CType(MyBase.Clone,KundenFilialenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New KundenFilialenDataTable() End Function _ Friend Sub InitVars() Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKundenNr, Me.columnFilialenNr}, true)) Me.columnKundenNr.AllowDBNull = false Me.columnFilialenNr.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewKundenFilialenRow() As KundenFilialenRow Return CType(Me.NewRow,KundenFilialenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New KundenFilialenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(KundenFilialenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.KundenFilialenRowChangedEvent) Is Nothing) Then RaiseEvent KundenFilialenRowChanged(Me, New KundenFilialenRowChangeEvent(CType(e.Row,KundenFilialenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.KundenFilialenRowChangingEvent) Is Nothing) Then RaiseEvent KundenFilialenRowChanging(Me, New KundenFilialenRowChangeEvent(CType(e.Row,KundenFilialenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.KundenFilialenRowDeletedEvent) Is Nothing) Then RaiseEvent KundenFilialenRowDeleted(Me, New KundenFilialenRowChangeEvent(CType(e.Row,KundenFilialenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.KundenFilialenRowDeletingEvent) Is Nothing) Then RaiseEvent KundenFilialenRowDeleting(Me, New KundenFilialenRowChangeEvent(CType(e.Row,KundenFilialenRow), e.Action)) End If End Sub _ Public Sub RemoveKundenFilialenRow(ByVal row As KundenFilialenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "KundenFilialenDataTable" 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 Länder_der_Bundesrepublik_DeutschlandDataTable Inherits Global.System.Data.TypedTableBase(Of Länder_der_Bundesrepublik_DeutschlandRow) Private columnLänderNr As Global.System.Data.DataColumn Private columnLänderBez As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Länder der Bundesrepublik Deutschland" 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 LänderNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLänderNr End Get End Property _ Public ReadOnly Property LänderBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLänderBez End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 Länder_der_Bundesrepublik_DeutschlandRow Get Return CType(Me.Rows(index),Länder_der_Bundesrepublik_DeutschlandRow) End Get End Property _ Public Event Länder_der_Bundesrepublik_DeutschlandRowChanging As Länder_der_Bundesrepublik_DeutschlandRowChangeEventHandler _ Public Event Länder_der_Bundesrepublik_DeutschlandRowChanged As Länder_der_Bundesrepublik_DeutschlandRowChangeEventHandler _ Public Event Länder_der_Bundesrepublik_DeutschlandRowDeleting As Länder_der_Bundesrepublik_DeutschlandRowChangeEventHandler _ Public Event Länder_der_Bundesrepublik_DeutschlandRowDeleted As Länder_der_Bundesrepublik_DeutschlandRowChangeEventHandler _ Public Overloads Sub AddLänder_der_Bundesrepublik_DeutschlandRow(ByVal row As Länder_der_Bundesrepublik_DeutschlandRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddLänder_der_Bundesrepublik_DeutschlandRow(ByVal LänderNr As Short, ByVal LänderBez As String, ByVal SSMA_TimeStamp() As Byte) As Länder_der_Bundesrepublik_DeutschlandRow Dim rowLänder_der_Bundesrepublik_DeutschlandRow As Länder_der_Bundesrepublik_DeutschlandRow = CType(Me.NewRow,Länder_der_Bundesrepublik_DeutschlandRow) Dim columnValuesArray() As Object = New Object() {LänderNr, LänderBez, SSMA_TimeStamp} rowLänder_der_Bundesrepublik_DeutschlandRow.ItemArray = columnValuesArray Me.Rows.Add(rowLänder_der_Bundesrepublik_DeutschlandRow) Return rowLänder_der_Bundesrepublik_DeutschlandRow End Function _ Public Function FindByLänderNr(ByVal LänderNr As Short) As Länder_der_Bundesrepublik_DeutschlandRow Return CType(Me.Rows.Find(New Object() {LänderNr}),Länder_der_Bundesrepublik_DeutschlandRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Länder_der_Bundesrepublik_DeutschlandDataTable = CType(MyBase.Clone,Länder_der_Bundesrepublik_DeutschlandDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Länder_der_Bundesrepublik_DeutschlandDataTable() End Function _ Friend Sub InitVars() Me.columnLänderNr = MyBase.Columns("LänderNr") Me.columnLänderBez = MyBase.Columns("LänderBez") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnLänderNr = New Global.System.Data.DataColumn("LänderNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLänderNr) Me.columnLänderBez = New Global.System.Data.DataColumn("LänderBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLänderBez) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLänderNr}, true)) Me.columnLänderNr.AllowDBNull = false Me.columnLänderNr.Unique = true Me.columnLänderBez.AllowDBNull = false Me.columnLänderBez.MaxLength = 25 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewLänder_der_Bundesrepublik_DeutschlandRow() As Länder_der_Bundesrepublik_DeutschlandRow Return CType(Me.NewRow,Länder_der_Bundesrepublik_DeutschlandRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Länder_der_Bundesrepublik_DeutschlandRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Länder_der_Bundesrepublik_DeutschlandRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Länder_der_Bundesrepublik_DeutschlandRowChangedEvent) Is Nothing) Then RaiseEvent Länder_der_Bundesrepublik_DeutschlandRowChanged(Me, New Länder_der_Bundesrepublik_DeutschlandRowChangeEvent(CType(e.Row,Länder_der_Bundesrepublik_DeutschlandRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Länder_der_Bundesrepublik_DeutschlandRowChangingEvent) Is Nothing) Then RaiseEvent Länder_der_Bundesrepublik_DeutschlandRowChanging(Me, New Länder_der_Bundesrepublik_DeutschlandRowChangeEvent(CType(e.Row,Länder_der_Bundesrepublik_DeutschlandRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Länder_der_Bundesrepublik_DeutschlandRowDeletedEvent) Is Nothing) Then RaiseEvent Länder_der_Bundesrepublik_DeutschlandRowDeleted(Me, New Länder_der_Bundesrepublik_DeutschlandRowChangeEvent(CType(e.Row,Länder_der_Bundesrepublik_DeutschlandRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Länder_der_Bundesrepublik_DeutschlandRowDeletingEvent) Is Nothing) Then RaiseEvent Länder_der_Bundesrepublik_DeutschlandRowDeleting(Me, New Länder_der_Bundesrepublik_DeutschlandRowChangeEvent(CType(e.Row,Länder_der_Bundesrepublik_DeutschlandRow), e.Action)) End If End Sub _ Public Sub RemoveLänder_der_Bundesrepublik_DeutschlandRow(ByVal row As Länder_der_Bundesrepublik_DeutschlandRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "Länder_der_Bundesrepublik_DeutschlandDataTable" 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 Länderverzeichnis_für_die_AußenhandelsstatistikDataTable Inherits Global.System.Data.TypedTableBase(Of Länderverzeichnis_für_die_AußenhandelsstatistikRow) Private columnLandNr As Global.System.Data.DataColumn Private columnLandBez As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnSteuersatz As Global.System.Data.DataColumn Private columnUmsatzsteuervergütungsverfahren As Global.System.Data.DataColumn Private columnFinanzamt As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private columnLandKz_ISO_3 As Global.System.Data.DataColumn Private columnEUBeitrittsdatum As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnReverseCharge As Global.System.Data.DataColumn Private columnEUAustrittsdatum As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Länderverzeichnis für die Außenhandelsstatistik" 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 LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLandNr End Get End Property _ Public ReadOnly Property LandBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLandBez End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property SteuersatzColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuersatz End Get End Property _ Public ReadOnly Property UmsatzsteuervergütungsverfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columnUmsatzsteuervergütungsverfahren End Get End Property _ Public ReadOnly Property FinanzamtColumn() As Global.System.Data.DataColumn Get Return Me.columnFinanzamt End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property LandKz_ISO_3Column() As Global.System.Data.DataColumn Get Return Me.columnLandKz_ISO_3 End Get End Property _ Public ReadOnly Property EUBeitrittsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnEUBeitrittsdatum End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property ReverseChargeColumn() As Global.System.Data.DataColumn Get Return Me.columnReverseCharge End Get End Property _ Public ReadOnly Property EUAustrittsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnEUAustrittsdatum 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 Länderverzeichnis_für_die_AußenhandelsstatistikRow Get Return CType(Me.Rows(index),Länderverzeichnis_für_die_AußenhandelsstatistikRow) End Get End Property _ Public Event Länderverzeichnis_für_die_AußenhandelsstatistikRowChanging As Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEventHandler _ Public Event Länderverzeichnis_für_die_AußenhandelsstatistikRowChanged As Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEventHandler _ Public Event Länderverzeichnis_für_die_AußenhandelsstatistikRowDeleting As Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEventHandler _ Public Event Länderverzeichnis_für_die_AußenhandelsstatistikRowDeleted As Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEventHandler _ Public Overloads Sub AddLänderverzeichnis_für_die_AußenhandelsstatistikRow(ByVal row As Länderverzeichnis_für_die_AußenhandelsstatistikRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddLänderverzeichnis_für_die_AußenhandelsstatistikRow(ByVal LandNr As Short, ByVal LandBez As String, ByVal LandKz As String, ByVal Steuersatz As Double, ByVal Umsatzsteuervergütungsverfahren As Boolean, ByVal Finanzamt As Integer, ByVal Währungscode As String, ByVal LandKz_ISO_3 As String, ByVal EUBeitrittsdatum As Date, ByVal SSMA_TimeStamp() As Byte, ByVal ReverseCharge As Boolean, ByVal EUAustrittsdatum As Date) As Länderverzeichnis_für_die_AußenhandelsstatistikRow Dim rowLänderverzeichnis_für_die_AußenhandelsstatistikRow As Länderverzeichnis_für_die_AußenhandelsstatistikRow = CType(Me.NewRow,Länderverzeichnis_für_die_AußenhandelsstatistikRow) Dim columnValuesArray() As Object = New Object() {LandNr, LandBez, LandKz, Steuersatz, Umsatzsteuervergütungsverfahren, Finanzamt, Währungscode, LandKz_ISO_3, EUBeitrittsdatum, SSMA_TimeStamp, ReverseCharge, EUAustrittsdatum} rowLänderverzeichnis_für_die_AußenhandelsstatistikRow.ItemArray = columnValuesArray Me.Rows.Add(rowLänderverzeichnis_für_die_AußenhandelsstatistikRow) Return rowLänderverzeichnis_für_die_AußenhandelsstatistikRow End Function _ Public Function FindByLandNr(ByVal LandNr As Short) As Länderverzeichnis_für_die_AußenhandelsstatistikRow Return CType(Me.Rows.Find(New Object() {LandNr}),Länderverzeichnis_für_die_AußenhandelsstatistikRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Länderverzeichnis_für_die_AußenhandelsstatistikDataTable = CType(MyBase.Clone,Länderverzeichnis_für_die_AußenhandelsstatistikDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Länderverzeichnis_für_die_AußenhandelsstatistikDataTable() End Function _ Friend Sub InitVars() Me.columnLandNr = MyBase.Columns("LandNr") Me.columnLandBez = MyBase.Columns("LandBez") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnSteuersatz = MyBase.Columns("Steuersatz") Me.columnUmsatzsteuervergütungsverfahren = MyBase.Columns("Umsatzsteuervergütungsverfahren") Me.columnFinanzamt = MyBase.Columns("Finanzamt") Me.columnWährungscode = MyBase.Columns("Währungscode") Me.columnLandKz_ISO_3 = MyBase.Columns("LandKz_ISO_3") Me.columnEUBeitrittsdatum = MyBase.Columns("EUBeitrittsdatum") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnReverseCharge = MyBase.Columns("ReverseCharge") Me.columnEUAustrittsdatum = MyBase.Columns("EUAustrittsdatum") End Sub _ Private Sub InitClass() Me.columnLandNr = New Global.System.Data.DataColumn("LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandNr) Me.columnLandBez = New Global.System.Data.DataColumn("LandBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandBez) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnSteuersatz = New Global.System.Data.DataColumn("Steuersatz", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuersatz) Me.columnUmsatzsteuervergütungsverfahren = New Global.System.Data.DataColumn("Umsatzsteuervergütungsverfahren", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmsatzsteuervergütungsverfahren) Me.columnFinanzamt = New Global.System.Data.DataColumn("Finanzamt", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFinanzamt) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.columnLandKz_ISO_3 = New Global.System.Data.DataColumn("LandKz_ISO_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz_ISO_3) Me.columnEUBeitrittsdatum = New Global.System.Data.DataColumn("EUBeitrittsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEUBeitrittsdatum) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnReverseCharge = New Global.System.Data.DataColumn("ReverseCharge", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReverseCharge) Me.columnEUAustrittsdatum = New Global.System.Data.DataColumn("EUAustrittsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEUAustrittsdatum) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLandNr}, true)) Me.columnLandNr.AllowDBNull = false Me.columnLandNr.Unique = true Me.columnLandBez.AllowDBNull = false Me.columnLandBez.MaxLength = 65 Me.columnLandKz.MaxLength = 2 Me.columnWährungscode.MaxLength = 3 Me.columnLandKz_ISO_3.MaxLength = 3 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewLänderverzeichnis_für_die_AußenhandelsstatistikRow() As Länderverzeichnis_für_die_AußenhandelsstatistikRow Return CType(Me.NewRow,Länderverzeichnis_für_die_AußenhandelsstatistikRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Länderverzeichnis_für_die_AußenhandelsstatistikRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Länderverzeichnis_für_die_AußenhandelsstatistikRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Länderverzeichnis_für_die_AußenhandelsstatistikRowChangedEvent) Is Nothing) Then RaiseEvent Länderverzeichnis_für_die_AußenhandelsstatistikRowChanged(Me, New Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEvent(CType(e.Row,Länderverzeichnis_für_die_AußenhandelsstatistikRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Länderverzeichnis_für_die_AußenhandelsstatistikRowChangingEvent) Is Nothing) Then RaiseEvent Länderverzeichnis_für_die_AußenhandelsstatistikRowChanging(Me, New Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEvent(CType(e.Row,Länderverzeichnis_für_die_AußenhandelsstatistikRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Länderverzeichnis_für_die_AußenhandelsstatistikRowDeletedEvent) Is Nothing) Then RaiseEvent Länderverzeichnis_für_die_AußenhandelsstatistikRowDeleted(Me, New Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEvent(CType(e.Row,Länderverzeichnis_für_die_AußenhandelsstatistikRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Länderverzeichnis_für_die_AußenhandelsstatistikRowDeletingEvent) Is Nothing) Then RaiseEvent Länderverzeichnis_für_die_AußenhandelsstatistikRowDeleting(Me, New Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEvent(CType(e.Row,Länderverzeichnis_für_die_AußenhandelsstatistikRow), e.Action)) End If End Sub _ Public Sub RemoveLänderverzeichnis_für_die_AußenhandelsstatistikRow(ByVal row As Länderverzeichnis_für_die_AußenhandelsstatistikRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "Länderverzeichnis_für_die_AußenhandelsstatistikDataTable" 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 LeistungenDataTable Inherits Global.System.Data.TypedTableBase(Of LeistungenRow) Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnBezeichnungAusListe As Global.System.Data.DataColumn Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnSKR As Global.System.Data.DataColumn Private columnVorlageprovision As Global.System.Data.DataColumn Private columnKreditaufwendungen As Global.System.Data.DataColumn Private columnFixeTaxe As Global.System.Data.DataColumn Private columnAbfertigungskosten As Global.System.Data.DataColumn Private columnPreissperre As Global.System.Data.DataColumn Private columnKostenstelle As Global.System.Data.DataColumn Private columnAufschubkontoNr As Global.System.Data.DataColumn Private columnGl_account As Global.System.Data.DataColumn Private columnAnalysis_type As Global.System.Data.DataColumn Private columnAnalysis_code As Global.System.Data.DataColumn Private columnSachkontoInlandSteuerpflichtig As Global.System.Data.DataColumn Private columnSachkontoInlandSteuerfrei As Global.System.Data.DataColumn Private columnSachkontoEUSteuerpflichtig As Global.System.Data.DataColumn Private columnSachkontoEUSteuerfrei As Global.System.Data.DataColumn Private columnSachkonto3Land As Global.System.Data.DataColumn Private columnBS415 As Global.System.Data.DataColumn Private columnBGebUStV As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnReverseCharge As Global.System.Data.DataColumn Private columnIMEX_Gl_account As Global.System.Data.DataColumn Private columnIMEX_SachkontoInlandSteuerpflichtig As Global.System.Data.DataColumn Private columnIMEX_SachkontoInlandSteuerfrei As Global.System.Data.DataColumn Private columnIMEX_SachkontoEUSteuerpflichtig As Global.System.Data.DataColumn Private columnIMEX_SachkontoEUSteuerfrei As Global.System.Data.DataColumn Private columnIMEX_Sachkonto3Land As Global.System.Data.DataColumn Private columnabzugsfaehigInZZ As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Leistungen" 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 LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property BezeichnungAusListeColumn() As Global.System.Data.DataColumn Get Return Me.columnBezeichnungAusListe End Get End Property _ Public ReadOnly Property BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property SKRColumn() As Global.System.Data.DataColumn Get Return Me.columnSKR End Get End Property _ Public ReadOnly Property VorlageprovisionColumn() As Global.System.Data.DataColumn Get Return Me.columnVorlageprovision End Get End Property _ Public ReadOnly Property KreditaufwendungenColumn() As Global.System.Data.DataColumn Get Return Me.columnKreditaufwendungen End Get End Property _ Public ReadOnly Property FixeTaxeColumn() As Global.System.Data.DataColumn Get Return Me.columnFixeTaxe End Get End Property _ Public ReadOnly Property AbfertigungskostenColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungskosten End Get End Property _ Public ReadOnly Property PreissperreColumn() As Global.System.Data.DataColumn Get Return Me.columnPreissperre End Get End Property _ Public ReadOnly Property KostenstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnKostenstelle End Get End Property _ Public ReadOnly Property AufschubkontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkontoNr End Get End Property _ Public ReadOnly Property Gl_accountColumn() As Global.System.Data.DataColumn Get Return Me.columnGl_account End Get End Property _ Public ReadOnly Property Analysis_typeColumn() As Global.System.Data.DataColumn Get Return Me.columnAnalysis_type End Get End Property _ Public ReadOnly Property Analysis_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnAnalysis_code End Get End Property _ Public ReadOnly Property SachkontoInlandSteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkontoInlandSteuerpflichtig End Get End Property _ Public ReadOnly Property SachkontoInlandSteuerfreiColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkontoInlandSteuerfrei End Get End Property _ Public ReadOnly Property SachkontoEUSteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkontoEUSteuerpflichtig End Get End Property _ Public ReadOnly Property SachkontoEUSteuerfreiColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkontoEUSteuerfrei End Get End Property _ Public ReadOnly Property Sachkonto3LandColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkonto3Land End Get End Property _ Public ReadOnly Property BS415Column() As Global.System.Data.DataColumn Get Return Me.columnBS415 End Get End Property _ Public ReadOnly Property BGebUStVColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebUStV End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property ReverseChargeColumn() As Global.System.Data.DataColumn Get Return Me.columnReverseCharge End Get End Property _ Public ReadOnly Property IMEX_Gl_accountColumn() As Global.System.Data.DataColumn Get Return Me.columnIMEX_Gl_account End Get End Property _ Public ReadOnly Property IMEX_SachkontoInlandSteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnIMEX_SachkontoInlandSteuerpflichtig End Get End Property _ Public ReadOnly Property IMEX_SachkontoInlandSteuerfreiColumn() As Global.System.Data.DataColumn Get Return Me.columnIMEX_SachkontoInlandSteuerfrei End Get End Property _ Public ReadOnly Property IMEX_SachkontoEUSteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnIMEX_SachkontoEUSteuerpflichtig End Get End Property _ Public ReadOnly Property IMEX_SachkontoEUSteuerfreiColumn() As Global.System.Data.DataColumn Get Return Me.columnIMEX_SachkontoEUSteuerfrei End Get End Property _ Public ReadOnly Property IMEX_Sachkonto3LandColumn() As Global.System.Data.DataColumn Get Return Me.columnIMEX_Sachkonto3Land End Get End Property _ Public ReadOnly Property abzugsfaehigInZZColumn() As Global.System.Data.DataColumn Get Return Me.columnabzugsfaehigInZZ 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 LeistungenRow Get Return CType(Me.Rows(index),LeistungenRow) End Get End Property _ Public Event LeistungenRowChanging As LeistungenRowChangeEventHandler _ Public Event LeistungenRowChanged As LeistungenRowChangeEventHandler _ Public Event LeistungenRowDeleting As LeistungenRowChangeEventHandler _ Public Event LeistungenRowDeleted As LeistungenRowChangeEventHandler _ Public Overloads Sub AddLeistungenRow(ByVal row As LeistungenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddLeistungenRow( _ ByVal LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal BezeichnungAusListe As Boolean, _ ByVal _parentBerechnungsartRowByLeistungen_BerechnungsartLeistungen As BerechnungsartRow, _ ByVal Steuerpflichtig As Boolean, _ ByVal SKR As Boolean, _ ByVal Vorlageprovision As Boolean, _ ByVal Kreditaufwendungen As Boolean, _ ByVal FixeTaxe As Boolean, _ ByVal Abfertigungskosten As Boolean, _ ByVal Preissperre As Boolean, _ ByVal _parentKostenstellenRowByLeistungen_KostenstellenLeistungen As KostenstellenRow, _ ByVal AufschubkontoNr As String, _ ByVal Gl_account As String, _ ByVal Analysis_type As String, _ ByVal Analysis_code As String, _ ByVal SachkontoInlandSteuerpflichtig As String, _ ByVal SachkontoInlandSteuerfrei As String, _ ByVal SachkontoEUSteuerpflichtig As String, _ ByVal SachkontoEUSteuerfrei As String, _ ByVal Sachkonto3Land As String, _ ByVal BS415 As Boolean, _ ByVal BGebUStV As Boolean, _ ByVal SSMA_TimeStamp() As Byte, _ ByVal ReverseCharge As Boolean, _ ByVal IMEX_Gl_account As String, _ ByVal IMEX_SachkontoInlandSteuerpflichtig As String, _ ByVal IMEX_SachkontoInlandSteuerfrei As String, _ ByVal IMEX_SachkontoEUSteuerpflichtig As String, _ ByVal IMEX_SachkontoEUSteuerfrei As String, _ ByVal IMEX_Sachkonto3Land As String, _ ByVal abzugsfaehigInZZ As Boolean) As LeistungenRow Dim rowLeistungenRow As LeistungenRow = CType(Me.NewRow,LeistungenRow) Dim columnValuesArray() As Object = New Object() {LeistungsNr, LeistungsBez, BezeichnungAusListe, Nothing, Steuerpflichtig, SKR, Vorlageprovision, Kreditaufwendungen, FixeTaxe, Abfertigungskosten, Preissperre, Nothing, AufschubkontoNr, Gl_account, Analysis_type, Analysis_code, SachkontoInlandSteuerpflichtig, SachkontoInlandSteuerfrei, SachkontoEUSteuerpflichtig, SachkontoEUSteuerfrei, Sachkonto3Land, BS415, BGebUStV, SSMA_TimeStamp, ReverseCharge, IMEX_Gl_account, IMEX_SachkontoInlandSteuerpflichtig, IMEX_SachkontoInlandSteuerfrei, IMEX_SachkontoEUSteuerpflichtig, IMEX_SachkontoEUSteuerfrei, IMEX_Sachkonto3Land, abzugsfaehigInZZ} If (Not (_parentBerechnungsartRowByLeistungen_BerechnungsartLeistungen) Is Nothing) Then columnValuesArray(3) = _parentBerechnungsartRowByLeistungen_BerechnungsartLeistungen(0) End If If (Not (_parentKostenstellenRowByLeistungen_KostenstellenLeistungen) Is Nothing) Then columnValuesArray(11) = _parentKostenstellenRowByLeistungen_KostenstellenLeistungen(0) End If rowLeistungenRow.ItemArray = columnValuesArray Me.Rows.Add(rowLeistungenRow) Return rowLeistungenRow End Function _ Public Function FindByLeistungsNr(ByVal LeistungsNr As Short) As LeistungenRow Return CType(Me.Rows.Find(New Object() {LeistungsNr}),LeistungenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As LeistungenDataTable = CType(MyBase.Clone,LeistungenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New LeistungenDataTable() End Function _ Friend Sub InitVars() Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnBezeichnungAusListe = MyBase.Columns("BezeichnungAusListe") Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnSKR = MyBase.Columns("SKR") Me.columnVorlageprovision = MyBase.Columns("Vorlageprovision") Me.columnKreditaufwendungen = MyBase.Columns("Kreditaufwendungen") Me.columnFixeTaxe = MyBase.Columns("FixeTaxe") Me.columnAbfertigungskosten = MyBase.Columns("Abfertigungskosten") Me.columnPreissperre = MyBase.Columns("Preissperre") Me.columnKostenstelle = MyBase.Columns("Kostenstelle") Me.columnAufschubkontoNr = MyBase.Columns("AufschubkontoNr") Me.columnGl_account = MyBase.Columns("Gl_account") Me.columnAnalysis_type = MyBase.Columns("Analysis_type") Me.columnAnalysis_code = MyBase.Columns("Analysis_code") Me.columnSachkontoInlandSteuerpflichtig = MyBase.Columns("SachkontoInlandSteuerpflichtig") Me.columnSachkontoInlandSteuerfrei = MyBase.Columns("SachkontoInlandSteuerfrei") Me.columnSachkontoEUSteuerpflichtig = MyBase.Columns("SachkontoEUSteuerpflichtig") Me.columnSachkontoEUSteuerfrei = MyBase.Columns("SachkontoEUSteuerfrei") Me.columnSachkonto3Land = MyBase.Columns("Sachkonto3Land") Me.columnBS415 = MyBase.Columns("BS415") Me.columnBGebUStV = MyBase.Columns("BGebUStV") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnReverseCharge = MyBase.Columns("ReverseCharge") Me.columnIMEX_Gl_account = MyBase.Columns("IMEX_Gl_account") Me.columnIMEX_SachkontoInlandSteuerpflichtig = MyBase.Columns("IMEX_SachkontoInlandSteuerpflichtig") Me.columnIMEX_SachkontoInlandSteuerfrei = MyBase.Columns("IMEX_SachkontoInlandSteuerfrei") Me.columnIMEX_SachkontoEUSteuerpflichtig = MyBase.Columns("IMEX_SachkontoEUSteuerpflichtig") Me.columnIMEX_SachkontoEUSteuerfrei = MyBase.Columns("IMEX_SachkontoEUSteuerfrei") Me.columnIMEX_Sachkonto3Land = MyBase.Columns("IMEX_Sachkonto3Land") Me.columnabzugsfaehigInZZ = MyBase.Columns("abzugsfaehigInZZ") End Sub _ Private Sub InitClass() Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnBezeichnungAusListe = New Global.System.Data.DataColumn("BezeichnungAusListe", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBezeichnungAusListe) Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnSKR = New Global.System.Data.DataColumn("SKR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSKR) Me.columnVorlageprovision = New Global.System.Data.DataColumn("Vorlageprovision", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorlageprovision) Me.columnKreditaufwendungen = New Global.System.Data.DataColumn("Kreditaufwendungen", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKreditaufwendungen) Me.columnFixeTaxe = New Global.System.Data.DataColumn("FixeTaxe", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFixeTaxe) Me.columnAbfertigungskosten = New Global.System.Data.DataColumn("Abfertigungskosten", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungskosten) Me.columnPreissperre = New Global.System.Data.DataColumn("Preissperre", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreissperre) Me.columnKostenstelle = New Global.System.Data.DataColumn("Kostenstelle", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKostenstelle) Me.columnAufschubkontoNr = New Global.System.Data.DataColumn("AufschubkontoNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkontoNr) Me.columnGl_account = New Global.System.Data.DataColumn("Gl_account", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGl_account) Me.columnAnalysis_type = New Global.System.Data.DataColumn("Analysis_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnalysis_type) Me.columnAnalysis_code = New Global.System.Data.DataColumn("Analysis_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnalysis_code) Me.columnSachkontoInlandSteuerpflichtig = New Global.System.Data.DataColumn("SachkontoInlandSteuerpflichtig", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkontoInlandSteuerpflichtig) Me.columnSachkontoInlandSteuerfrei = New Global.System.Data.DataColumn("SachkontoInlandSteuerfrei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkontoInlandSteuerfrei) Me.columnSachkontoEUSteuerpflichtig = New Global.System.Data.DataColumn("SachkontoEUSteuerpflichtig", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkontoEUSteuerpflichtig) Me.columnSachkontoEUSteuerfrei = New Global.System.Data.DataColumn("SachkontoEUSteuerfrei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkontoEUSteuerfrei) Me.columnSachkonto3Land = New Global.System.Data.DataColumn("Sachkonto3Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkonto3Land) Me.columnBS415 = New Global.System.Data.DataColumn("BS415", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBS415) Me.columnBGebUStV = New Global.System.Data.DataColumn("BGebUStV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebUStV) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnReverseCharge = New Global.System.Data.DataColumn("ReverseCharge", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReverseCharge) Me.columnIMEX_Gl_account = New Global.System.Data.DataColumn("IMEX_Gl_account", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIMEX_Gl_account) Me.columnIMEX_SachkontoInlandSteuerpflichtig = New Global.System.Data.DataColumn("IMEX_SachkontoInlandSteuerpflichtig", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIMEX_SachkontoInlandSteuerpflichtig) Me.columnIMEX_SachkontoInlandSteuerfrei = New Global.System.Data.DataColumn("IMEX_SachkontoInlandSteuerfrei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIMEX_SachkontoInlandSteuerfrei) Me.columnIMEX_SachkontoEUSteuerpflichtig = New Global.System.Data.DataColumn("IMEX_SachkontoEUSteuerpflichtig", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIMEX_SachkontoEUSteuerpflichtig) Me.columnIMEX_SachkontoEUSteuerfrei = New Global.System.Data.DataColumn("IMEX_SachkontoEUSteuerfrei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIMEX_SachkontoEUSteuerfrei) Me.columnIMEX_Sachkonto3Land = New Global.System.Data.DataColumn("IMEX_Sachkonto3Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIMEX_Sachkonto3Land) Me.columnabzugsfaehigInZZ = New Global.System.Data.DataColumn("abzugsfaehigInZZ", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnabzugsfaehigInZZ) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLeistungsNr}, true)) Me.columnLeistungsNr.AllowDBNull = false Me.columnLeistungsNr.Unique = true Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnBezeichnungAusListe.AllowDBNull = false Me.columnBerechnungsartNr.AllowDBNull = false Me.columnSteuerpflichtig.AllowDBNull = false Me.columnSKR.AllowDBNull = false Me.columnVorlageprovision.AllowDBNull = false Me.columnKreditaufwendungen.AllowDBNull = false Me.columnFixeTaxe.AllowDBNull = false Me.columnAbfertigungskosten.AllowDBNull = false Me.columnPreissperre.AllowDBNull = false Me.columnKostenstelle.AllowDBNull = false Me.columnAufschubkontoNr.MaxLength = 20 Me.columnGl_account.MaxLength = 10 Me.columnAnalysis_type.MaxLength = 1 Me.columnAnalysis_code.MaxLength = 15 Me.columnSachkontoInlandSteuerpflichtig.MaxLength = 7 Me.columnSachkontoInlandSteuerfrei.MaxLength = 7 Me.columnSachkontoEUSteuerpflichtig.MaxLength = 7 Me.columnSachkontoEUSteuerfrei.MaxLength = 7 Me.columnSachkonto3Land.MaxLength = 7 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnIMEX_Gl_account.MaxLength = 10 Me.columnIMEX_SachkontoInlandSteuerpflichtig.MaxLength = 7 Me.columnIMEX_SachkontoInlandSteuerfrei.MaxLength = 7 Me.columnIMEX_SachkontoEUSteuerpflichtig.MaxLength = 7 Me.columnIMEX_SachkontoEUSteuerfrei.MaxLength = 7 Me.columnIMEX_Sachkonto3Land.MaxLength = 7 Me.columnabzugsfaehigInZZ.AllowDBNull = false End Sub _ Public Function NewLeistungenRow() As LeistungenRow Return CType(Me.NewRow,LeistungenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New LeistungenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(LeistungenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.LeistungenRowChangedEvent) Is Nothing) Then RaiseEvent LeistungenRowChanged(Me, New LeistungenRowChangeEvent(CType(e.Row,LeistungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.LeistungenRowChangingEvent) Is Nothing) Then RaiseEvent LeistungenRowChanging(Me, New LeistungenRowChangeEvent(CType(e.Row,LeistungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.LeistungenRowDeletedEvent) Is Nothing) Then RaiseEvent LeistungenRowDeleted(Me, New LeistungenRowChangeEvent(CType(e.Row,LeistungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.LeistungenRowDeletingEvent) Is Nothing) Then RaiseEvent LeistungenRowDeleting(Me, New LeistungenRowChangeEvent(CType(e.Row,LeistungenRow), e.Action)) End If End Sub _ Public Sub RemoveLeistungenRow(ByVal row As LeistungenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "LeistungenDataTable" 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 LeistungenBUKontenDataTable Inherits Global.System.Data.TypedTableBase(Of LeistungenBUKontenRow) Private columnLeistungsNr As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnGl_account As Global.System.Data.DataColumn Private columnSachkontoInlandSteuerpflichtig As Global.System.Data.DataColumn Private columnSachkontoInlandSteuerfrei As Global.System.Data.DataColumn Private columnSachkontoEUSteuerpflichtig As Global.System.Data.DataColumn Private columnSachkontoEUSteuerfrei As Global.System.Data.DataColumn Private columnSachkonto3Land As Global.System.Data.DataColumn Private columnletzteAenderungUser As Global.System.Data.DataColumn Private columnletzteAenderung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "LeistungenBUKonten" 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 LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property Gl_accountColumn() As Global.System.Data.DataColumn Get Return Me.columnGl_account End Get End Property _ Public ReadOnly Property SachkontoInlandSteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkontoInlandSteuerpflichtig End Get End Property _ Public ReadOnly Property SachkontoInlandSteuerfreiColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkontoInlandSteuerfrei End Get End Property _ Public ReadOnly Property SachkontoEUSteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkontoEUSteuerpflichtig End Get End Property _ Public ReadOnly Property SachkontoEUSteuerfreiColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkontoEUSteuerfrei End Get End Property _ Public ReadOnly Property Sachkonto3LandColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkonto3Land End Get End Property _ Public ReadOnly Property letzteAenderungUserColumn() As Global.System.Data.DataColumn Get Return Me.columnletzteAenderungUser End Get End Property _ Public ReadOnly Property letzteAenderungColumn() As Global.System.Data.DataColumn Get Return Me.columnletzteAenderung 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 LeistungenBUKontenRow Get Return CType(Me.Rows(index),LeistungenBUKontenRow) End Get End Property _ Public Event LeistungenBUKontenRowChanging As LeistungenBUKontenRowChangeEventHandler _ Public Event LeistungenBUKontenRowChanged As LeistungenBUKontenRowChangeEventHandler _ Public Event LeistungenBUKontenRowDeleting As LeistungenBUKontenRowChangeEventHandler _ Public Event LeistungenBUKontenRowDeleted As LeistungenBUKontenRowChangeEventHandler _ Public Overloads Sub AddLeistungenBUKontenRow(ByVal row As LeistungenBUKontenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddLeistungenBUKontenRow(ByVal LeistungsNr As Short, ByVal Firma_ID As Integer, ByVal Gl_account As String, ByVal SachkontoInlandSteuerpflichtig As String, ByVal SachkontoInlandSteuerfrei As String, ByVal SachkontoEUSteuerpflichtig As String, ByVal SachkontoEUSteuerfrei As String, ByVal Sachkonto3Land As String, ByVal letzteAenderungUser As String, ByVal letzteAenderung As Date) As LeistungenBUKontenRow Dim rowLeistungenBUKontenRow As LeistungenBUKontenRow = CType(Me.NewRow,LeistungenBUKontenRow) Dim columnValuesArray() As Object = New Object() {LeistungsNr, Firma_ID, Gl_account, SachkontoInlandSteuerpflichtig, SachkontoInlandSteuerfrei, SachkontoEUSteuerpflichtig, SachkontoEUSteuerfrei, Sachkonto3Land, letzteAenderungUser, letzteAenderung} rowLeistungenBUKontenRow.ItemArray = columnValuesArray Me.Rows.Add(rowLeistungenBUKontenRow) Return rowLeistungenBUKontenRow End Function _ Public Function FindByLeistungsNrFirma_ID(ByVal LeistungsNr As Short, ByVal Firma_ID As Integer) As LeistungenBUKontenRow Return CType(Me.Rows.Find(New Object() {LeistungsNr, Firma_ID}),LeistungenBUKontenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As LeistungenBUKontenDataTable = CType(MyBase.Clone,LeistungenBUKontenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New LeistungenBUKontenDataTable() End Function _ Friend Sub InitVars() Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnGl_account = MyBase.Columns("Gl_account") Me.columnSachkontoInlandSteuerpflichtig = MyBase.Columns("SachkontoInlandSteuerpflichtig") Me.columnSachkontoInlandSteuerfrei = MyBase.Columns("SachkontoInlandSteuerfrei") Me.columnSachkontoEUSteuerpflichtig = MyBase.Columns("SachkontoEUSteuerpflichtig") Me.columnSachkontoEUSteuerfrei = MyBase.Columns("SachkontoEUSteuerfrei") Me.columnSachkonto3Land = MyBase.Columns("Sachkonto3Land") Me.columnletzteAenderungUser = MyBase.Columns("letzteAenderungUser") Me.columnletzteAenderung = MyBase.Columns("letzteAenderung") End Sub _ Private Sub InitClass() Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnGl_account = New Global.System.Data.DataColumn("Gl_account", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGl_account) Me.columnSachkontoInlandSteuerpflichtig = New Global.System.Data.DataColumn("SachkontoInlandSteuerpflichtig", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkontoInlandSteuerpflichtig) Me.columnSachkontoInlandSteuerfrei = New Global.System.Data.DataColumn("SachkontoInlandSteuerfrei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkontoInlandSteuerfrei) Me.columnSachkontoEUSteuerpflichtig = New Global.System.Data.DataColumn("SachkontoEUSteuerpflichtig", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkontoEUSteuerpflichtig) Me.columnSachkontoEUSteuerfrei = New Global.System.Data.DataColumn("SachkontoEUSteuerfrei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkontoEUSteuerfrei) Me.columnSachkonto3Land = New Global.System.Data.DataColumn("Sachkonto3Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkonto3Land) Me.columnletzteAenderungUser = New Global.System.Data.DataColumn("letzteAenderungUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnletzteAenderungUser) Me.columnletzteAenderung = New Global.System.Data.DataColumn("letzteAenderung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnletzteAenderung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLeistungsNr, Me.columnFirma_ID}, true)) Me.columnLeistungsNr.AllowDBNull = false Me.columnFirma_ID.AllowDBNull = false Me.columnGl_account.MaxLength = 10 Me.columnSachkontoInlandSteuerpflichtig.MaxLength = 7 Me.columnSachkontoInlandSteuerfrei.MaxLength = 7 Me.columnSachkontoEUSteuerpflichtig.MaxLength = 7 Me.columnSachkontoEUSteuerfrei.MaxLength = 7 Me.columnSachkonto3Land.MaxLength = 7 Me.columnletzteAenderungUser.MaxLength = 50 End Sub _ Public Function NewLeistungenBUKontenRow() As LeistungenBUKontenRow Return CType(Me.NewRow,LeistungenBUKontenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New LeistungenBUKontenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(LeistungenBUKontenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.LeistungenBUKontenRowChangedEvent) Is Nothing) Then RaiseEvent LeistungenBUKontenRowChanged(Me, New LeistungenBUKontenRowChangeEvent(CType(e.Row,LeistungenBUKontenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.LeistungenBUKontenRowChangingEvent) Is Nothing) Then RaiseEvent LeistungenBUKontenRowChanging(Me, New LeistungenBUKontenRowChangeEvent(CType(e.Row,LeistungenBUKontenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.LeistungenBUKontenRowDeletedEvent) Is Nothing) Then RaiseEvent LeistungenBUKontenRowDeleted(Me, New LeistungenBUKontenRowChangeEvent(CType(e.Row,LeistungenBUKontenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.LeistungenBUKontenRowDeletingEvent) Is Nothing) Then RaiseEvent LeistungenBUKontenRowDeleting(Me, New LeistungenBUKontenRowChangeEvent(CType(e.Row,LeistungenBUKontenRow), e.Action)) End If End Sub _ Public Sub RemoveLeistungenBUKontenRow(ByVal row As LeistungenBUKontenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "LeistungenBUKontenDataTable" 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 LieferbedingungenDataTable Inherits Global.System.Data.TypedTableBase(Of LieferbedingungenRow) Private columnIncotermCode As Global.System.Data.DataColumn Private columnBedeutung As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Lieferbedingungen" 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 IncotermCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnIncotermCode End Get End Property _ Public ReadOnly Property BedeutungColumn() As Global.System.Data.DataColumn Get Return Me.columnBedeutung End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 LieferbedingungenRow Get Return CType(Me.Rows(index),LieferbedingungenRow) End Get End Property _ Public Event LieferbedingungenRowChanging As LieferbedingungenRowChangeEventHandler _ Public Event LieferbedingungenRowChanged As LieferbedingungenRowChangeEventHandler _ Public Event LieferbedingungenRowDeleting As LieferbedingungenRowChangeEventHandler _ Public Event LieferbedingungenRowDeleted As LieferbedingungenRowChangeEventHandler _ Public Overloads Sub AddLieferbedingungenRow(ByVal row As LieferbedingungenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddLieferbedingungenRow(ByVal IncotermCode As String, ByVal Bedeutung As String, ByVal SSMA_TimeStamp() As Byte) As LieferbedingungenRow Dim rowLieferbedingungenRow As LieferbedingungenRow = CType(Me.NewRow,LieferbedingungenRow) Dim columnValuesArray() As Object = New Object() {IncotermCode, Bedeutung, SSMA_TimeStamp} rowLieferbedingungenRow.ItemArray = columnValuesArray Me.Rows.Add(rowLieferbedingungenRow) Return rowLieferbedingungenRow End Function _ Public Function FindByIncotermCode(ByVal IncotermCode As String) As LieferbedingungenRow Return CType(Me.Rows.Find(New Object() {IncotermCode}),LieferbedingungenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As LieferbedingungenDataTable = CType(MyBase.Clone,LieferbedingungenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New LieferbedingungenDataTable() End Function _ Friend Sub InitVars() Me.columnIncotermCode = MyBase.Columns("IncotermCode") Me.columnBedeutung = MyBase.Columns("Bedeutung") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnIncotermCode = New Global.System.Data.DataColumn("IncotermCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIncotermCode) Me.columnBedeutung = New Global.System.Data.DataColumn("Bedeutung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBedeutung) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIncotermCode}, true)) Me.columnIncotermCode.AllowDBNull = false Me.columnIncotermCode.Unique = true Me.columnIncotermCode.MaxLength = 3 Me.columnBedeutung.AllowDBNull = false Me.columnBedeutung.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewLieferbedingungenRow() As LieferbedingungenRow Return CType(Me.NewRow,LieferbedingungenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New LieferbedingungenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(LieferbedingungenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.LieferbedingungenRowChangedEvent) Is Nothing) Then RaiseEvent LieferbedingungenRowChanged(Me, New LieferbedingungenRowChangeEvent(CType(e.Row,LieferbedingungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.LieferbedingungenRowChangingEvent) Is Nothing) Then RaiseEvent LieferbedingungenRowChanging(Me, New LieferbedingungenRowChangeEvent(CType(e.Row,LieferbedingungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.LieferbedingungenRowDeletedEvent) Is Nothing) Then RaiseEvent LieferbedingungenRowDeleted(Me, New LieferbedingungenRowChangeEvent(CType(e.Row,LieferbedingungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.LieferbedingungenRowDeletingEvent) Is Nothing) Then RaiseEvent LieferbedingungenRowDeleting(Me, New LieferbedingungenRowChangeEvent(CType(e.Row,LieferbedingungenRow), e.Action)) End If End Sub _ Public Sub RemoveLieferbedingungenRow(ByVal row As LieferbedingungenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "LieferbedingungenDataTable" 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 Nebenkosten_der_KorrespondentenDataTable Inherits Global.System.Data.TypedTableBase(Of Nebenkosten_der_KorrespondentenRow) Private columnKorrespondentenNr As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Nebenkosten der Korrespondenten" 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 KorrespondentenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKorrespondentenNr End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 Nebenkosten_der_KorrespondentenRow Get Return CType(Me.Rows(index),Nebenkosten_der_KorrespondentenRow) End Get End Property _ Public Event Nebenkosten_der_KorrespondentenRowChanging As Nebenkosten_der_KorrespondentenRowChangeEventHandler _ Public Event Nebenkosten_der_KorrespondentenRowChanged As Nebenkosten_der_KorrespondentenRowChangeEventHandler _ Public Event Nebenkosten_der_KorrespondentenRowDeleting As Nebenkosten_der_KorrespondentenRowChangeEventHandler _ Public Event Nebenkosten_der_KorrespondentenRowDeleted As Nebenkosten_der_KorrespondentenRowChangeEventHandler _ Public Overloads Sub AddNebenkosten_der_KorrespondentenRow(ByVal row As Nebenkosten_der_KorrespondentenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddNebenkosten_der_KorrespondentenRow(ByVal _parentKorrespondentenRowByNebenkosten_der_Korrespondenten_KorrespondentenNebenkosten_der_Korrespondenten As KorrespondentenRow, ByVal _parentLeistungenRowByNebenkosten_der_Korrespondenten_LeistungenNebenkosten_der_Korrespondenten As LeistungenRow, ByVal LeistungsBez As String, ByVal Preis As Decimal, ByVal SSMA_TimeStamp() As Byte) As Nebenkosten_der_KorrespondentenRow Dim rowNebenkosten_der_KorrespondentenRow As Nebenkosten_der_KorrespondentenRow = CType(Me.NewRow,Nebenkosten_der_KorrespondentenRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, LeistungsBez, Preis, SSMA_TimeStamp} If (Not (_parentKorrespondentenRowByNebenkosten_der_Korrespondenten_KorrespondentenNebenkosten_der_Korrespondenten) Is Nothing) Then columnValuesArray(0) = _parentKorrespondentenRowByNebenkosten_der_Korrespondenten_KorrespondentenNebenkosten_der_Korrespondenten(0) End If If (Not (_parentLeistungenRowByNebenkosten_der_Korrespondenten_LeistungenNebenkosten_der_Korrespondenten) Is Nothing) Then columnValuesArray(1) = _parentLeistungenRowByNebenkosten_der_Korrespondenten_LeistungenNebenkosten_der_Korrespondenten(0) End If rowNebenkosten_der_KorrespondentenRow.ItemArray = columnValuesArray Me.Rows.Add(rowNebenkosten_der_KorrespondentenRow) Return rowNebenkosten_der_KorrespondentenRow End Function _ Public Function FindByKorrespondentenNrLeistungsNrLeistungsBez(ByVal KorrespondentenNr As Integer, ByVal LeistungsNr As Short, ByVal LeistungsBez As String) As Nebenkosten_der_KorrespondentenRow Return CType(Me.Rows.Find(New Object() {KorrespondentenNr, LeistungsNr, LeistungsBez}),Nebenkosten_der_KorrespondentenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Nebenkosten_der_KorrespondentenDataTable = CType(MyBase.Clone,Nebenkosten_der_KorrespondentenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Nebenkosten_der_KorrespondentenDataTable() End Function _ Friend Sub InitVars() Me.columnKorrespondentenNr = MyBase.Columns("KorrespondentenNr") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnPreis = MyBase.Columns("Preis") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnKorrespondentenNr = New Global.System.Data.DataColumn("KorrespondentenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKorrespondentenNr) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKorrespondentenNr, Me.columnLeistungsNr, Me.columnLeistungsBez}, true)) Me.columnKorrespondentenNr.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnPreis.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewNebenkosten_der_KorrespondentenRow() As Nebenkosten_der_KorrespondentenRow Return CType(Me.NewRow,Nebenkosten_der_KorrespondentenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Nebenkosten_der_KorrespondentenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Nebenkosten_der_KorrespondentenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Nebenkosten_der_KorrespondentenRowChangedEvent) Is Nothing) Then RaiseEvent Nebenkosten_der_KorrespondentenRowChanged(Me, New Nebenkosten_der_KorrespondentenRowChangeEvent(CType(e.Row,Nebenkosten_der_KorrespondentenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Nebenkosten_der_KorrespondentenRowChangingEvent) Is Nothing) Then RaiseEvent Nebenkosten_der_KorrespondentenRowChanging(Me, New Nebenkosten_der_KorrespondentenRowChangeEvent(CType(e.Row,Nebenkosten_der_KorrespondentenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Nebenkosten_der_KorrespondentenRowDeletedEvent) Is Nothing) Then RaiseEvent Nebenkosten_der_KorrespondentenRowDeleted(Me, New Nebenkosten_der_KorrespondentenRowChangeEvent(CType(e.Row,Nebenkosten_der_KorrespondentenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Nebenkosten_der_KorrespondentenRowDeletingEvent) Is Nothing) Then RaiseEvent Nebenkosten_der_KorrespondentenRowDeleting(Me, New Nebenkosten_der_KorrespondentenRowChangeEvent(CType(e.Row,Nebenkosten_der_KorrespondentenRow), e.Action)) End If End Sub _ Public Sub RemoveNebenkosten_der_KorrespondentenRow(ByVal row As Nebenkosten_der_KorrespondentenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "Nebenkosten_der_KorrespondentenDataTable" 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 Offene_PostenDataTable Inherits Global.System.Data.TypedTableBase(Of Offene_PostenRow) Private columnOP_ID As Global.System.Data.DataColumn Private columnKontonummer As Global.System.Data.DataColumn Private columnKontoname As Global.System.Data.DataColumn Private columnBelegnummer As Global.System.Data.DataColumn Private columnBelegdatum As Global.System.Data.DataColumn Private columnFälligkeitsdatum As Global.System.Data.DataColumn Private columnSkontodatum As Global.System.Data.DataColumn Private columnSkontoprozent As Global.System.Data.DataColumn Private columnBruttobetrag As Global.System.Data.DataColumn Private columnWaehrung As Global.System.Data.DataColumn Private columnSteuersatz As Global.System.Data.DataColumn Private columnGesamtausstand As Global.System.Data.DataColumn Private columnSteuersatz2 As Global.System.Data.DataColumn Private columnAusstand2 As Global.System.Data.DataColumn Private columnBuchungstext As Global.System.Data.DataColumn Private columnBemerkung As Global.System.Data.DataColumn Private columnMahnstufe As Global.System.Data.DataColumn Private columnMahndatum As Global.System.Data.DataColumn Private columnGegenkonto As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnKumSaldoEUR As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Offene Posten" 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 OP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnOP_ID End Get End Property _ Public ReadOnly Property KontonummerColumn() As Global.System.Data.DataColumn Get Return Me.columnKontonummer End Get End Property _ Public ReadOnly Property KontonameColumn() As Global.System.Data.DataColumn Get Return Me.columnKontoname End Get End Property _ Public ReadOnly Property BelegnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegnummer End Get End Property _ Public ReadOnly Property BelegdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdatum End Get End Property _ Public ReadOnly Property FälligkeitsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnFälligkeitsdatum End Get End Property _ Public ReadOnly Property SkontodatumColumn() As Global.System.Data.DataColumn Get Return Me.columnSkontodatum End Get End Property _ Public ReadOnly Property SkontoprozentColumn() As Global.System.Data.DataColumn Get Return Me.columnSkontoprozent End Get End Property _ Public ReadOnly Property BruttobetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBruttobetrag End Get End Property _ Public ReadOnly Property WaehrungColumn() As Global.System.Data.DataColumn Get Return Me.columnWaehrung End Get End Property _ Public ReadOnly Property SteuersatzColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuersatz End Get End Property _ Public ReadOnly Property GesamtausstandColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtausstand End Get End Property _ Public ReadOnly Property Steuersatz2Column() As Global.System.Data.DataColumn Get Return Me.columnSteuersatz2 End Get End Property _ Public ReadOnly Property Ausstand2Column() As Global.System.Data.DataColumn Get Return Me.columnAusstand2 End Get End Property _ Public ReadOnly Property BuchungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungstext End Get End Property _ Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkung End Get End Property _ Public ReadOnly Property MahnstufeColumn() As Global.System.Data.DataColumn Get Return Me.columnMahnstufe End Get End Property _ Public ReadOnly Property MahndatumColumn() As Global.System.Data.DataColumn Get Return Me.columnMahndatum End Get End Property _ Public ReadOnly Property GegenkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnGegenkonto End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property KumSaldoEURColumn() As Global.System.Data.DataColumn Get Return Me.columnKumSaldoEUR End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_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 Offene_PostenRow Get Return CType(Me.Rows(index),Offene_PostenRow) End Get End Property _ Public Event Offene_PostenRowChanging As Offene_PostenRowChangeEventHandler _ Public Event Offene_PostenRowChanged As Offene_PostenRowChangeEventHandler _ Public Event Offene_PostenRowDeleting As Offene_PostenRowChangeEventHandler _ Public Event Offene_PostenRowDeleted As Offene_PostenRowChangeEventHandler _ Public Overloads Sub AddOffene_PostenRow(ByVal row As Offene_PostenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddOffene_PostenRow( _ ByVal OP_ID As Integer, _ ByVal Kontonummer As Integer, _ ByVal Kontoname As String, _ ByVal Belegnummer As String, _ ByVal Belegdatum As Date, _ ByVal Fälligkeitsdatum As Date, _ ByVal Skontodatum As Date, _ ByVal Skontoprozent As Double, _ ByVal Bruttobetrag As Double, _ ByVal Waehrung As String, _ ByVal Steuersatz As Double, _ ByVal Gesamtausstand As Double, _ ByVal Steuersatz2 As Double, _ ByVal Ausstand2 As Double, _ ByVal Buchungstext As String, _ ByVal Bemerkung As String, _ ByVal Mahnstufe As Integer, _ ByVal Mahndatum As Date, _ ByVal Gegenkonto As Integer, _ ByVal Status As Integer, _ ByVal KumSaldoEUR As Double, _ ByVal SSMA_TimeStamp() As Byte, _ ByVal Firma_ID As Short) As Offene_PostenRow Dim rowOffene_PostenRow As Offene_PostenRow = CType(Me.NewRow,Offene_PostenRow) Dim columnValuesArray() As Object = New Object() {OP_ID, Kontonummer, Kontoname, Belegnummer, Belegdatum, Fälligkeitsdatum, Skontodatum, Skontoprozent, Bruttobetrag, Waehrung, Steuersatz, Gesamtausstand, Steuersatz2, Ausstand2, Buchungstext, Bemerkung, Mahnstufe, Mahndatum, Gegenkonto, Status, KumSaldoEUR, SSMA_TimeStamp, Firma_ID} rowOffene_PostenRow.ItemArray = columnValuesArray Me.Rows.Add(rowOffene_PostenRow) Return rowOffene_PostenRow End Function _ Public Function FindByOP_ID(ByVal OP_ID As Integer) As Offene_PostenRow Return CType(Me.Rows.Find(New Object() {OP_ID}),Offene_PostenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Offene_PostenDataTable = CType(MyBase.Clone,Offene_PostenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Offene_PostenDataTable() End Function _ Friend Sub InitVars() Me.columnOP_ID = MyBase.Columns("OP_ID") Me.columnKontonummer = MyBase.Columns("Kontonummer") Me.columnKontoname = MyBase.Columns("Kontoname") Me.columnBelegnummer = MyBase.Columns("Belegnummer") Me.columnBelegdatum = MyBase.Columns("Belegdatum") Me.columnFälligkeitsdatum = MyBase.Columns("Fälligkeitsdatum") Me.columnSkontodatum = MyBase.Columns("Skontodatum") Me.columnSkontoprozent = MyBase.Columns("Skontoprozent") Me.columnBruttobetrag = MyBase.Columns("Bruttobetrag") Me.columnWaehrung = MyBase.Columns("Waehrung") Me.columnSteuersatz = MyBase.Columns("Steuersatz") Me.columnGesamtausstand = MyBase.Columns("Gesamtausstand") Me.columnSteuersatz2 = MyBase.Columns("Steuersatz2") Me.columnAusstand2 = MyBase.Columns("Ausstand2") Me.columnBuchungstext = MyBase.Columns("Buchungstext") Me.columnBemerkung = MyBase.Columns("Bemerkung") Me.columnMahnstufe = MyBase.Columns("Mahnstufe") Me.columnMahndatum = MyBase.Columns("Mahndatum") Me.columnGegenkonto = MyBase.Columns("Gegenkonto") Me.columnStatus = MyBase.Columns("Status") Me.columnKumSaldoEUR = MyBase.Columns("KumSaldoEUR") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnFirma_ID = MyBase.Columns("Firma_ID") End Sub _ Private Sub InitClass() Me.columnOP_ID = New Global.System.Data.DataColumn("OP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOP_ID) Me.columnKontonummer = New Global.System.Data.DataColumn("Kontonummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKontonummer) Me.columnKontoname = New Global.System.Data.DataColumn("Kontoname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKontoname) Me.columnBelegnummer = New Global.System.Data.DataColumn("Belegnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegnummer) Me.columnBelegdatum = New Global.System.Data.DataColumn("Belegdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdatum) Me.columnFälligkeitsdatum = New Global.System.Data.DataColumn("Fälligkeitsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFälligkeitsdatum) Me.columnSkontodatum = New Global.System.Data.DataColumn("Skontodatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSkontodatum) Me.columnSkontoprozent = New Global.System.Data.DataColumn("Skontoprozent", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSkontoprozent) Me.columnBruttobetrag = New Global.System.Data.DataColumn("Bruttobetrag", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBruttobetrag) Me.columnWaehrung = New Global.System.Data.DataColumn("Waehrung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWaehrung) Me.columnSteuersatz = New Global.System.Data.DataColumn("Steuersatz", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuersatz) Me.columnGesamtausstand = New Global.System.Data.DataColumn("Gesamtausstand", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtausstand) Me.columnSteuersatz2 = New Global.System.Data.DataColumn("Steuersatz2", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuersatz2) Me.columnAusstand2 = New Global.System.Data.DataColumn("Ausstand2", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAusstand2) Me.columnBuchungstext = New Global.System.Data.DataColumn("Buchungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungstext) Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkung) Me.columnMahnstufe = New Global.System.Data.DataColumn("Mahnstufe", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMahnstufe) Me.columnMahndatum = New Global.System.Data.DataColumn("Mahndatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMahndatum) Me.columnGegenkonto = New Global.System.Data.DataColumn("Gegenkonto", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGegenkonto) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnKumSaldoEUR = New Global.System.Data.DataColumn("KumSaldoEUR", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKumSaldoEUR) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnOP_ID}, true)) Me.columnOP_ID.AllowDBNull = false Me.columnOP_ID.Unique = true Me.columnKontonummer.AllowDBNull = false Me.columnKontoname.MaxLength = 40 Me.columnBelegnummer.MaxLength = 24 Me.columnWaehrung.MaxLength = 4 Me.columnBuchungstext.MaxLength = 50 Me.columnBemerkung.MaxLength = 40 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewOffene_PostenRow() As Offene_PostenRow Return CType(Me.NewRow,Offene_PostenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Offene_PostenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Offene_PostenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Offene_PostenRowChangedEvent) Is Nothing) Then RaiseEvent Offene_PostenRowChanged(Me, New Offene_PostenRowChangeEvent(CType(e.Row,Offene_PostenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Offene_PostenRowChangingEvent) Is Nothing) Then RaiseEvent Offene_PostenRowChanging(Me, New Offene_PostenRowChangeEvent(CType(e.Row,Offene_PostenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Offene_PostenRowDeletedEvent) Is Nothing) Then RaiseEvent Offene_PostenRowDeleted(Me, New Offene_PostenRowChangeEvent(CType(e.Row,Offene_PostenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Offene_PostenRowDeletingEvent) Is Nothing) Then RaiseEvent Offene_PostenRowDeleting(Me, New Offene_PostenRowChangeEvent(CType(e.Row,Offene_PostenRow), e.Action)) End If End Sub _ Public Sub RemoveOffene_PostenRow(ByVal row As Offene_PostenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "Offene_PostenDataTable" 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 Offene_Posten_DVODataTable Inherits Global.System.Data.TypedTableBase(Of Offene_Posten_DVORow) Private columnOP_ID As Global.System.Data.DataColumn Private columnKonto As Global.System.Data.DataColumn Private columnKontoBez As Global.System.Data.DataColumn Private columnKundenNr As Global.System.Data.DataColumn Private columnRechnung As Global.System.Data.DataColumn Private columnDatum As Global.System.Data.DataColumn Private columnBuchungsbetrag_SOLL As Global.System.Data.DataColumn Private columnBuchungsbetrag_HABEN As Global.System.Data.DataColumn Private columnSteuercode As Global.System.Data.DataColumn Private columnLändercode As Global.System.Data.DataColumn Private columnSteuerbetrag As Global.System.Data.DataColumn Private columnBuchungstext As Global.System.Data.DataColumn Private columnFaell_Tage1 As Global.System.Data.DataColumn Private columnFaell_Prozent1 As Global.System.Data.DataColumn Private columnFaell_Tage2 As Global.System.Data.DataColumn Private columnFaell_Prozent2 As Global.System.Data.DataColumn Private columnFaell_Tage3 As Global.System.Data.DataColumn Private columnFaell_Prozent3 As Global.System.Data.DataColumn Private columnMahnstufe As Global.System.Data.DataColumn Private columnRechnung_Gutschrift As Global.System.Data.DataColumn Private columnStorno As Global.System.Data.DataColumn Private columnJahr As Global.System.Data.DataColumn Private columnSaldo As Global.System.Data.DataColumn Private columnFaelligkeit As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Offene_Posten_DVO" 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 OP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnOP_ID End Get End Property _ Public ReadOnly Property KontoColumn() As Global.System.Data.DataColumn Get Return Me.columnKonto End Get End Property _ Public ReadOnly Property KontoBezColumn() As Global.System.Data.DataColumn Get Return Me.columnKontoBez End Get End Property _ Public ReadOnly Property KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property RechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnung End Get End Property _ Public ReadOnly Property DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnDatum End Get End Property _ Public ReadOnly Property Buchungsbetrag_SOLLColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsbetrag_SOLL End Get End Property _ Public ReadOnly Property Buchungsbetrag_HABENColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsbetrag_HABEN End Get End Property _ Public ReadOnly Property SteuercodeColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuercode End Get End Property _ Public ReadOnly Property LändercodeColumn() As Global.System.Data.DataColumn Get Return Me.columnLändercode End Get End Property _ Public ReadOnly Property SteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetrag End Get End Property _ Public ReadOnly Property BuchungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungstext End Get End Property _ Public ReadOnly Property Faell_Tage1Column() As Global.System.Data.DataColumn Get Return Me.columnFaell_Tage1 End Get End Property _ Public ReadOnly Property Faell_Prozent1Column() As Global.System.Data.DataColumn Get Return Me.columnFaell_Prozent1 End Get End Property _ Public ReadOnly Property Faell_Tage2Column() As Global.System.Data.DataColumn Get Return Me.columnFaell_Tage2 End Get End Property _ Public ReadOnly Property Faell_Prozent2Column() As Global.System.Data.DataColumn Get Return Me.columnFaell_Prozent2 End Get End Property _ Public ReadOnly Property Faell_Tage3Column() As Global.System.Data.DataColumn Get Return Me.columnFaell_Tage3 End Get End Property _ Public ReadOnly Property Faell_Prozent3Column() As Global.System.Data.DataColumn Get Return Me.columnFaell_Prozent3 End Get End Property _ Public ReadOnly Property MahnstufeColumn() As Global.System.Data.DataColumn Get Return Me.columnMahnstufe End Get End Property _ Public ReadOnly Property Rechnung_GutschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnung_Gutschrift End Get End Property _ Public ReadOnly Property StornoColumn() As Global.System.Data.DataColumn Get Return Me.columnStorno End Get End Property _ Public ReadOnly Property JahrColumn() As Global.System.Data.DataColumn Get Return Me.columnJahr End Get End Property _ Public ReadOnly Property SaldoColumn() As Global.System.Data.DataColumn Get Return Me.columnSaldo End Get End Property _ Public ReadOnly Property FaelligkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnFaelligkeit 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 Offene_Posten_DVORow Get Return CType(Me.Rows(index),Offene_Posten_DVORow) End Get End Property _ Public Event Offene_Posten_DVORowChanging As Offene_Posten_DVORowChangeEventHandler _ Public Event Offene_Posten_DVORowChanged As Offene_Posten_DVORowChangeEventHandler _ Public Event Offene_Posten_DVORowDeleting As Offene_Posten_DVORowChangeEventHandler _ Public Event Offene_Posten_DVORowDeleted As Offene_Posten_DVORowChangeEventHandler _ Public Overloads Sub AddOffene_Posten_DVORow(ByVal row As Offene_Posten_DVORow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddOffene_Posten_DVORow( _ ByVal Konto As Integer, _ ByVal KontoBez As String, _ ByVal KundenNr As Integer, _ ByVal Rechnung As String, _ ByVal Datum As Date, _ ByVal Buchungsbetrag_SOLL As Decimal, _ ByVal Buchungsbetrag_HABEN As Decimal, _ ByVal Steuercode As String, _ ByVal Ländercode As String, _ ByVal Steuerbetrag As Decimal, _ ByVal Buchungstext As String, _ ByVal Faell_Tage1 As Decimal, _ ByVal Faell_Prozent1 As Decimal, _ ByVal Faell_Tage2 As Decimal, _ ByVal Faell_Prozent2 As Decimal, _ ByVal Faell_Tage3 As Decimal, _ ByVal Faell_Prozent3 As Decimal, _ ByVal Mahnstufe As Short, _ ByVal Rechnung_Gutschrift As String, _ ByVal Storno As String, _ ByVal Jahr As Decimal, _ ByVal Saldo As Decimal, _ ByVal Faelligkeit As Date) As Offene_Posten_DVORow Dim rowOffene_Posten_DVORow As Offene_Posten_DVORow = CType(Me.NewRow,Offene_Posten_DVORow) Dim columnValuesArray() As Object = New Object() {Nothing, Konto, KontoBez, KundenNr, Rechnung, Datum, Buchungsbetrag_SOLL, Buchungsbetrag_HABEN, Steuercode, Ländercode, Steuerbetrag, Buchungstext, Faell_Tage1, Faell_Prozent1, Faell_Tage2, Faell_Prozent2, Faell_Tage3, Faell_Prozent3, Mahnstufe, Rechnung_Gutschrift, Storno, Jahr, Saldo, Faelligkeit} rowOffene_Posten_DVORow.ItemArray = columnValuesArray Me.Rows.Add(rowOffene_Posten_DVORow) Return rowOffene_Posten_DVORow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Offene_Posten_DVODataTable = CType(MyBase.Clone,Offene_Posten_DVODataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Offene_Posten_DVODataTable() End Function _ Friend Sub InitVars() Me.columnOP_ID = MyBase.Columns("OP_ID") Me.columnKonto = MyBase.Columns("Konto") Me.columnKontoBez = MyBase.Columns("KontoBez") Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnRechnung = MyBase.Columns("Rechnung") Me.columnDatum = MyBase.Columns("Datum") Me.columnBuchungsbetrag_SOLL = MyBase.Columns("Buchungsbetrag_SOLL") Me.columnBuchungsbetrag_HABEN = MyBase.Columns("Buchungsbetrag_HABEN") Me.columnSteuercode = MyBase.Columns("Steuercode") Me.columnLändercode = MyBase.Columns("Ländercode") Me.columnSteuerbetrag = MyBase.Columns("Steuerbetrag") Me.columnBuchungstext = MyBase.Columns("Buchungstext") Me.columnFaell_Tage1 = MyBase.Columns("Faell_Tage1") Me.columnFaell_Prozent1 = MyBase.Columns("Faell_Prozent1") Me.columnFaell_Tage2 = MyBase.Columns("Faell_Tage2") Me.columnFaell_Prozent2 = MyBase.Columns("Faell_Prozent2") Me.columnFaell_Tage3 = MyBase.Columns("Faell_Tage3") Me.columnFaell_Prozent3 = MyBase.Columns("Faell_Prozent3") Me.columnMahnstufe = MyBase.Columns("Mahnstufe") Me.columnRechnung_Gutschrift = MyBase.Columns("Rechnung_Gutschrift") Me.columnStorno = MyBase.Columns("Storno") Me.columnJahr = MyBase.Columns("Jahr") Me.columnSaldo = MyBase.Columns("Saldo") Me.columnFaelligkeit = MyBase.Columns("Faelligkeit") End Sub _ Private Sub InitClass() Me.columnOP_ID = New Global.System.Data.DataColumn("OP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOP_ID) Me.columnKonto = New Global.System.Data.DataColumn("Konto", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKonto) Me.columnKontoBez = New Global.System.Data.DataColumn("KontoBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKontoBez) Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnRechnung = New Global.System.Data.DataColumn("Rechnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnung) Me.columnDatum = New Global.System.Data.DataColumn("Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatum) Me.columnBuchungsbetrag_SOLL = New Global.System.Data.DataColumn("Buchungsbetrag_SOLL", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsbetrag_SOLL) Me.columnBuchungsbetrag_HABEN = New Global.System.Data.DataColumn("Buchungsbetrag_HABEN", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsbetrag_HABEN) Me.columnSteuercode = New Global.System.Data.DataColumn("Steuercode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuercode) Me.columnLändercode = New Global.System.Data.DataColumn("Ländercode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLändercode) Me.columnSteuerbetrag = New Global.System.Data.DataColumn("Steuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetrag) Me.columnBuchungstext = New Global.System.Data.DataColumn("Buchungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungstext) Me.columnFaell_Tage1 = New Global.System.Data.DataColumn("Faell_Tage1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFaell_Tage1) Me.columnFaell_Prozent1 = New Global.System.Data.DataColumn("Faell_Prozent1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFaell_Prozent1) Me.columnFaell_Tage2 = New Global.System.Data.DataColumn("Faell_Tage2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFaell_Tage2) Me.columnFaell_Prozent2 = New Global.System.Data.DataColumn("Faell_Prozent2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFaell_Prozent2) Me.columnFaell_Tage3 = New Global.System.Data.DataColumn("Faell_Tage3", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFaell_Tage3) Me.columnFaell_Prozent3 = New Global.System.Data.DataColumn("Faell_Prozent3", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFaell_Prozent3) Me.columnMahnstufe = New Global.System.Data.DataColumn("Mahnstufe", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMahnstufe) Me.columnRechnung_Gutschrift = New Global.System.Data.DataColumn("Rechnung_Gutschrift", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnung_Gutschrift) Me.columnStorno = New Global.System.Data.DataColumn("Storno", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStorno) Me.columnJahr = New Global.System.Data.DataColumn("Jahr", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnJahr) Me.columnSaldo = New Global.System.Data.DataColumn("Saldo", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSaldo) Me.columnFaelligkeit = New Global.System.Data.DataColumn("Faelligkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFaelligkeit) Me.columnOP_ID.AutoIncrement = true Me.columnOP_ID.AutoIncrementSeed = -1 Me.columnOP_ID.AutoIncrementStep = -1 Me.columnOP_ID.AllowDBNull = false Me.columnOP_ID.ReadOnly = true Me.columnKonto.AllowDBNull = false Me.columnKontoBez.MaxLength = 150 Me.columnKundenNr.AllowDBNull = false Me.columnRechnung.MaxLength = 35 Me.columnBuchungsbetrag_SOLL.AllowDBNull = false Me.columnBuchungsbetrag_HABEN.AllowDBNull = false Me.columnSteuercode.MaxLength = 20 Me.columnLändercode.MaxLength = 20 Me.columnBuchungstext.MaxLength = 500 Me.columnMahnstufe.AllowDBNull = false Me.columnRechnung_Gutschrift.MaxLength = 1 Me.columnStorno.MaxLength = 1 Me.columnJahr.AllowDBNull = false Me.columnSaldo.AllowDBNull = false Me.columnFaelligkeit.AllowDBNull = false End Sub _ Public Function NewOffene_Posten_DVORow() As Offene_Posten_DVORow Return CType(Me.NewRow,Offene_Posten_DVORow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Offene_Posten_DVORow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Offene_Posten_DVORow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Offene_Posten_DVORowChangedEvent) Is Nothing) Then RaiseEvent Offene_Posten_DVORowChanged(Me, New Offene_Posten_DVORowChangeEvent(CType(e.Row,Offene_Posten_DVORow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Offene_Posten_DVORowChangingEvent) Is Nothing) Then RaiseEvent Offene_Posten_DVORowChanging(Me, New Offene_Posten_DVORowChangeEvent(CType(e.Row,Offene_Posten_DVORow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Offene_Posten_DVORowDeletedEvent) Is Nothing) Then RaiseEvent Offene_Posten_DVORowDeleted(Me, New Offene_Posten_DVORowChangeEvent(CType(e.Row,Offene_Posten_DVORow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Offene_Posten_DVORowDeletingEvent) Is Nothing) Then RaiseEvent Offene_Posten_DVORowDeleting(Me, New Offene_Posten_DVORowChangeEvent(CType(e.Row,Offene_Posten_DVORow), e.Action)) End If End Sub _ Public Sub RemoveOffene_Posten_DVORow(ByVal row As Offene_Posten_DVORow) 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 VERAGDataSet = New VERAGDataSet() 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 = "Offene_Posten_DVODataTable" 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 OffertenDataTable Inherits Global.System.Data.TypedTableBase(Of OffertenRow) Private columnKundenNr As Global.System.Data.DataColumn Private columnOffertenNr As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnPauschalpreis As Global.System.Data.DataColumn Private columnStandardofferte As Global.System.Data.DataColumn Private columnBesonderheiten As Global.System.Data.DataColumn Private columnEingegeben_am As Global.System.Data.DataColumn Private columnGeändert_am As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnGesperrt As Global.System.Data.DataColumn Private columnGesperrt_Datum As Global.System.Data.DataColumn Private columnGesperrt_Grund As Global.System.Data.DataColumn Private columnArt As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Offerten" 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 KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property PauschalpreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPauschalpreis End Get End Property _ Public ReadOnly Property StandardofferteColumn() As Global.System.Data.DataColumn Get Return Me.columnStandardofferte End Get End Property _ Public ReadOnly Property BesonderheitenColumn() As Global.System.Data.DataColumn Get Return Me.columnBesonderheiten End Get End Property _ Public ReadOnly Property Eingegeben_amColumn() As Global.System.Data.DataColumn Get Return Me.columnEingegeben_am End Get End Property _ Public ReadOnly Property Geändert_amColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändert_am End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property GesperrtColumn() As Global.System.Data.DataColumn Get Return Me.columnGesperrt End Get End Property _ Public ReadOnly Property Gesperrt_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnGesperrt_Datum End Get End Property _ Public ReadOnly Property Gesperrt_GrundColumn() As Global.System.Data.DataColumn Get Return Me.columnGesperrt_Grund End Get End Property _ Public ReadOnly Property ArtColumn() As Global.System.Data.DataColumn Get Return Me.columnArt 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 OffertenRow Get Return CType(Me.Rows(index),OffertenRow) End Get End Property _ Public Event OffertenRowChanging As OffertenRowChangeEventHandler _ Public Event OffertenRowChanged As OffertenRowChangeEventHandler _ Public Event OffertenRowDeleting As OffertenRowChangeEventHandler _ Public Event OffertenRowDeleted As OffertenRowChangeEventHandler _ Public Overloads Sub AddOffertenRow(ByVal row As OffertenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddOffertenRow(ByVal _parentKundenRowByOfferten_KundenOfferten As KundenRow, ByVal _parentOffertenstammRowByOfferten_OffertenstammOfferten As OffertenstammRow, ByVal _parentFilialenRowByOfferten_FilialenOfferten As FilialenRow, ByVal Pauschalpreis As Boolean, ByVal Standardofferte As Boolean, ByVal Besonderheiten As String, ByVal Eingegeben_am As Date, ByVal Geändert_am As Date, ByVal Sachbearbeiter As String, ByVal SSMA_TimeStamp() As Byte, ByVal Gesperrt As Boolean, ByVal Gesperrt_Datum As Date, ByVal Gesperrt_Grund As String, ByVal Art As String) As OffertenRow Dim rowOffertenRow As OffertenRow = CType(Me.NewRow,OffertenRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, Pauschalpreis, Standardofferte, Besonderheiten, Eingegeben_am, Geändert_am, Sachbearbeiter, SSMA_TimeStamp, Gesperrt, Gesperrt_Datum, Gesperrt_Grund, Art} If (Not (_parentKundenRowByOfferten_KundenOfferten) Is Nothing) Then columnValuesArray(0) = _parentKundenRowByOfferten_KundenOfferten(0) End If If (Not (_parentOffertenstammRowByOfferten_OffertenstammOfferten) Is Nothing) Then columnValuesArray(1) = _parentOffertenstammRowByOfferten_OffertenstammOfferten(0) End If If (Not (_parentFilialenRowByOfferten_FilialenOfferten) Is Nothing) Then columnValuesArray(2) = _parentFilialenRowByOfferten_FilialenOfferten(0) End If rowOffertenRow.ItemArray = columnValuesArray Me.Rows.Add(rowOffertenRow) Return rowOffertenRow End Function _ Public Function FindByKundenNrOffertenNr(ByVal KundenNr As Integer, ByVal OffertenNr As Integer) As OffertenRow Return CType(Me.Rows.Find(New Object() {KundenNr, OffertenNr}),OffertenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As OffertenDataTable = CType(MyBase.Clone,OffertenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New OffertenDataTable() End Function _ Friend Sub InitVars() Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnPauschalpreis = MyBase.Columns("Pauschalpreis") Me.columnStandardofferte = MyBase.Columns("Standardofferte") Me.columnBesonderheiten = MyBase.Columns("Besonderheiten") Me.columnEingegeben_am = MyBase.Columns("Eingegeben am") Me.columnGeändert_am = MyBase.Columns("Geändert am") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnGesperrt = MyBase.Columns("Gesperrt") Me.columnGesperrt_Datum = MyBase.Columns("Gesperrt_Datum") Me.columnGesperrt_Grund = MyBase.Columns("Gesperrt_Grund") Me.columnArt = MyBase.Columns("Art") End Sub _ Private Sub InitClass() Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnPauschalpreis = New Global.System.Data.DataColumn("Pauschalpreis", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPauschalpreis) Me.columnStandardofferte = New Global.System.Data.DataColumn("Standardofferte", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStandardofferte) Me.columnBesonderheiten = New Global.System.Data.DataColumn("Besonderheiten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesonderheiten) Me.columnEingegeben_am = New Global.System.Data.DataColumn("Eingegeben am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingegeben_am) Me.columnGeändert_am = New Global.System.Data.DataColumn("Geändert am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändert_am) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnGesperrt = New Global.System.Data.DataColumn("Gesperrt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesperrt) Me.columnGesperrt_Datum = New Global.System.Data.DataColumn("Gesperrt_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesperrt_Datum) Me.columnGesperrt_Grund = New Global.System.Data.DataColumn("Gesperrt_Grund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesperrt_Grund) Me.columnArt = New Global.System.Data.DataColumn("Art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArt) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKundenNr, Me.columnOffertenNr}, true)) Me.columnKundenNr.AllowDBNull = false Me.columnOffertenNr.AllowDBNull = false Me.columnBesonderheiten.MaxLength = 2147483647 Me.columnEingegeben_am.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnGesperrt_Grund.MaxLength = 500 Me.columnArt.MaxLength = 50 End Sub _ Public Function NewOffertenRow() As OffertenRow Return CType(Me.NewRow,OffertenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New OffertenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(OffertenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.OffertenRowChangedEvent) Is Nothing) Then RaiseEvent OffertenRowChanged(Me, New OffertenRowChangeEvent(CType(e.Row,OffertenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.OffertenRowChangingEvent) Is Nothing) Then RaiseEvent OffertenRowChanging(Me, New OffertenRowChangeEvent(CType(e.Row,OffertenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.OffertenRowDeletedEvent) Is Nothing) Then RaiseEvent OffertenRowDeleted(Me, New OffertenRowChangeEvent(CType(e.Row,OffertenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.OffertenRowDeletingEvent) Is Nothing) Then RaiseEvent OffertenRowDeleting(Me, New OffertenRowChangeEvent(CType(e.Row,OffertenRow), e.Action)) End If End Sub _ Public Sub RemoveOffertenRow(ByVal row As OffertenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "OffertenDataTable" 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 OffertenpositionenDataTable Inherits Global.System.Data.TypedTableBase(Of OffertenpositionenRow) Private columnKundenNr As Global.System.Data.DataColumn Private columnOffertenNr As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn Private columnBGebLeistungsNr As Global.System.Data.DataColumn Private columnBGebProzent As Global.System.Data.DataColumn Private columnBGebMinBetrag As Global.System.Data.DataColumn Private columnEingegeben_am As Global.System.Data.DataColumn Private columnGeändert_am As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnPreisänderung As Global.System.Data.DataColumn Private columnPreisänderungProzent As Global.System.Data.DataColumn Private columnPreisAlt As Global.System.Data.DataColumn Private columnBerechnungsartPosInkludiert As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Offertenpositionen" 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 KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl End Get End Property _ Public ReadOnly Property BGebLeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebLeistungsNr End Get End Property _ Public ReadOnly Property BGebProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebProzent End Get End Property _ Public ReadOnly Property BGebMinBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebMinBetrag End Get End Property _ Public ReadOnly Property Eingegeben_amColumn() As Global.System.Data.DataColumn Get Return Me.columnEingegeben_am End Get End Property _ Public ReadOnly Property Geändert_amColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändert_am End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property PreisänderungColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisänderung End Get End Property _ Public ReadOnly Property PreisänderungProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisänderungProzent End Get End Property _ Public ReadOnly Property PreisAltColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisAlt End Get End Property _ Public ReadOnly Property BerechnungsartPosInkludiertColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartPosInkludiert End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 OffertenpositionenRow Get Return CType(Me.Rows(index),OffertenpositionenRow) End Get End Property _ Public Event OffertenpositionenRowChanging As OffertenpositionenRowChangeEventHandler _ Public Event OffertenpositionenRowChanged As OffertenpositionenRowChangeEventHandler _ Public Event OffertenpositionenRowDeleting As OffertenpositionenRowChangeEventHandler _ Public Event OffertenpositionenRowDeleted As OffertenpositionenRowChangeEventHandler _ Public Overloads Sub AddOffertenpositionenRow(ByVal row As OffertenpositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddOffertenpositionenRow( _ ByVal KundenNr As Integer, _ ByVal OffertenNr As Integer, _ ByVal _parentLeistungenRowByOffertenpositionen_LeistungenOffertenpositionen As LeistungenRow, _ ByVal LeistungsBez As String, _ ByVal _parentBerechnungsartRowByOffertenpositionen_BerechnungsartOffertenpositionen As BerechnungsartRow, _ ByVal Preis As Decimal, _ ByVal Anzahl As Short, _ ByVal BGebLeistungsNr As Short, _ ByVal BGebProzent As Single, _ ByVal BGebMinBetrag As Decimal, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Date, _ ByVal Sachbearbeiter As String, _ ByVal Preisänderung As Decimal, _ ByVal PreisänderungProzent As Single, _ ByVal PreisAlt As Decimal, _ ByVal BerechnungsartPosInkludiert As Integer, _ ByVal SSMA_TimeStamp() As Byte) As OffertenpositionenRow Dim rowOffertenpositionenRow As OffertenpositionenRow = CType(Me.NewRow,OffertenpositionenRow) Dim columnValuesArray() As Object = New Object() {KundenNr, OffertenNr, Nothing, LeistungsBez, Nothing, Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, Eingegeben_am, Geändert_am, Sachbearbeiter, Preisänderung, PreisänderungProzent, PreisAlt, BerechnungsartPosInkludiert, SSMA_TimeStamp} If (Not (_parentLeistungenRowByOffertenpositionen_LeistungenOffertenpositionen) Is Nothing) Then columnValuesArray(2) = _parentLeistungenRowByOffertenpositionen_LeistungenOffertenpositionen(0) End If If (Not (_parentBerechnungsartRowByOffertenpositionen_BerechnungsartOffertenpositionen) Is Nothing) Then columnValuesArray(4) = _parentBerechnungsartRowByOffertenpositionen_BerechnungsartOffertenpositionen(0) End If rowOffertenpositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowOffertenpositionenRow) Return rowOffertenpositionenRow End Function _ Public Function FindByKundenNrOffertenNrLeistungsNrLeistungsBez(ByVal KundenNr As Integer, ByVal OffertenNr As Integer, ByVal LeistungsNr As Short, ByVal LeistungsBez As String) As OffertenpositionenRow Return CType(Me.Rows.Find(New Object() {KundenNr, OffertenNr, LeistungsNr, LeistungsBez}),OffertenpositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As OffertenpositionenDataTable = CType(MyBase.Clone,OffertenpositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New OffertenpositionenDataTable() End Function _ Friend Sub InitVars() Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnPreis = MyBase.Columns("Preis") Me.columnAnzahl = MyBase.Columns("Anzahl") Me.columnBGebLeistungsNr = MyBase.Columns("BGebLeistungsNr") Me.columnBGebProzent = MyBase.Columns("BGebProzent") Me.columnBGebMinBetrag = MyBase.Columns("BGebMinBetrag") Me.columnEingegeben_am = MyBase.Columns("Eingegeben am") Me.columnGeändert_am = MyBase.Columns("Geändert am") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnPreisänderung = MyBase.Columns("Preisänderung") Me.columnPreisänderungProzent = MyBase.Columns("PreisänderungProzent") Me.columnPreisAlt = MyBase.Columns("PreisAlt") Me.columnBerechnungsartPosInkludiert = MyBase.Columns("BerechnungsartPosInkludiert") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) Me.columnBGebLeistungsNr = New Global.System.Data.DataColumn("BGebLeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebLeistungsNr) Me.columnBGebProzent = New Global.System.Data.DataColumn("BGebProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebProzent) Me.columnBGebMinBetrag = New Global.System.Data.DataColumn("BGebMinBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebMinBetrag) Me.columnEingegeben_am = New Global.System.Data.DataColumn("Eingegeben am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingegeben_am) Me.columnGeändert_am = New Global.System.Data.DataColumn("Geändert am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändert_am) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnPreisänderung = New Global.System.Data.DataColumn("Preisänderung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisänderung) Me.columnPreisänderungProzent = New Global.System.Data.DataColumn("PreisänderungProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisänderungProzent) Me.columnPreisAlt = New Global.System.Data.DataColumn("PreisAlt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisAlt) Me.columnBerechnungsartPosInkludiert = New Global.System.Data.DataColumn("BerechnungsartPosInkludiert", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartPosInkludiert) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKundenNr, Me.columnOffertenNr, Me.columnLeistungsNr, Me.columnLeistungsBez}, true)) Me.columnKundenNr.AllowDBNull = false Me.columnOffertenNr.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnBerechnungsartNr.AllowDBNull = false Me.columnEingegeben_am.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewOffertenpositionenRow() As OffertenpositionenRow Return CType(Me.NewRow,OffertenpositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New OffertenpositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(OffertenpositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.OffertenpositionenRowChangedEvent) Is Nothing) Then RaiseEvent OffertenpositionenRowChanged(Me, New OffertenpositionenRowChangeEvent(CType(e.Row,OffertenpositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.OffertenpositionenRowChangingEvent) Is Nothing) Then RaiseEvent OffertenpositionenRowChanging(Me, New OffertenpositionenRowChangeEvent(CType(e.Row,OffertenpositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.OffertenpositionenRowDeletedEvent) Is Nothing) Then RaiseEvent OffertenpositionenRowDeleted(Me, New OffertenpositionenRowChangeEvent(CType(e.Row,OffertenpositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.OffertenpositionenRowDeletingEvent) Is Nothing) Then RaiseEvent OffertenpositionenRowDeleting(Me, New OffertenpositionenRowChangeEvent(CType(e.Row,OffertenpositionenRow), e.Action)) End If End Sub _ Public Sub RemoveOffertenpositionenRow(ByVal row As OffertenpositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "OffertenpositionenDataTable" 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 OffertenstammDataTable Inherits Global.System.Data.TypedTableBase(Of OffertenstammRow) Private columnOffertenNr As Global.System.Data.DataColumn Private columnOffertenBez As Global.System.Data.DataColumn Private columnZahlungsziel As Global.System.Data.DataColumn Private columnSF As Global.System.Data.DataColumn Private columnMinusvorzeichen As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Offertenstamm" 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 OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property OffertenBezColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenBez End Get End Property _ Public ReadOnly Property ZahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsziel End Get End Property _ Public ReadOnly Property SFColumn() As Global.System.Data.DataColumn Get Return Me.columnSF End Get End Property _ Public ReadOnly Property MinusvorzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnMinusvorzeichen End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 OffertenstammRow Get Return CType(Me.Rows(index),OffertenstammRow) End Get End Property _ Public Event OffertenstammRowChanging As OffertenstammRowChangeEventHandler _ Public Event OffertenstammRowChanged As OffertenstammRowChangeEventHandler _ Public Event OffertenstammRowDeleting As OffertenstammRowChangeEventHandler _ Public Event OffertenstammRowDeleted As OffertenstammRowChangeEventHandler _ Public Overloads Sub AddOffertenstammRow(ByVal row As OffertenstammRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddOffertenstammRow(ByVal OffertenNr As Integer, ByVal OffertenBez As String, ByVal Zahlungsziel As Short, ByVal SF As Short, ByVal Minusvorzeichen As Boolean, ByVal SSMA_TimeStamp() As Byte) As OffertenstammRow Dim rowOffertenstammRow As OffertenstammRow = CType(Me.NewRow,OffertenstammRow) Dim columnValuesArray() As Object = New Object() {OffertenNr, OffertenBez, Zahlungsziel, SF, Minusvorzeichen, SSMA_TimeStamp} rowOffertenstammRow.ItemArray = columnValuesArray Me.Rows.Add(rowOffertenstammRow) Return rowOffertenstammRow End Function _ Public Function FindByOffertenNr(ByVal OffertenNr As Integer) As OffertenstammRow Return CType(Me.Rows.Find(New Object() {OffertenNr}),OffertenstammRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As OffertenstammDataTable = CType(MyBase.Clone,OffertenstammDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New OffertenstammDataTable() End Function _ Friend Sub InitVars() Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me.columnOffertenBez = MyBase.Columns("OffertenBez") Me.columnZahlungsziel = MyBase.Columns("Zahlungsziel") Me.columnSF = MyBase.Columns("SF") Me.columnMinusvorzeichen = MyBase.Columns("Minusvorzeichen") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me.columnOffertenBez = New Global.System.Data.DataColumn("OffertenBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenBez) Me.columnZahlungsziel = New Global.System.Data.DataColumn("Zahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsziel) Me.columnSF = New Global.System.Data.DataColumn("SF", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSF) Me.columnMinusvorzeichen = New Global.System.Data.DataColumn("Minusvorzeichen", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMinusvorzeichen) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnOffertenNr}, true)) Me.columnOffertenNr.AllowDBNull = false Me.columnOffertenNr.Unique = true Me.columnOffertenBez.AllowDBNull = false Me.columnOffertenBez.MaxLength = 50 Me.columnSF.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewOffertenstammRow() As OffertenstammRow Return CType(Me.NewRow,OffertenstammRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New OffertenstammRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(OffertenstammRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.OffertenstammRowChangedEvent) Is Nothing) Then RaiseEvent OffertenstammRowChanged(Me, New OffertenstammRowChangeEvent(CType(e.Row,OffertenstammRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.OffertenstammRowChangingEvent) Is Nothing) Then RaiseEvent OffertenstammRowChanging(Me, New OffertenstammRowChangeEvent(CType(e.Row,OffertenstammRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.OffertenstammRowDeletedEvent) Is Nothing) Then RaiseEvent OffertenstammRowDeleted(Me, New OffertenstammRowChangeEvent(CType(e.Row,OffertenstammRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.OffertenstammRowDeletingEvent) Is Nothing) Then RaiseEvent OffertenstammRowDeleting(Me, New OffertenstammRowChangeEvent(CType(e.Row,OffertenstammRow), e.Action)) End If End Sub _ Public Sub RemoveOffertenstammRow(ByVal row As OffertenstammRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "OffertenstammDataTable" 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 PersonalDataTable Inherits Global.System.Data.TypedTableBase(Of PersonalRow) Private columnID As Global.System.Data.DataColumn Private columnName As Global.System.Data.DataColumn Private columnKennwort As Global.System.Data.DataColumn Private columnKassenbuchNr As Global.System.Data.DataColumn Private columnSupervisor As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnSBSichtbar As Global.System.Data.DataColumn Private columnBLC As Global.System.Data.DataColumn Private columnCMR As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnStandard_RKSV_KasseId As Global.System.Data.DataColumn Private columnPasswortChanged As Global.System.Data.DataColumn Private columnisLeihgeldkasse As Global.System.Data.DataColumn Private columnAllowLG As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Personal" 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 KennwortColumn() As Global.System.Data.DataColumn Get Return Me.columnKennwort End Get End Property _ Public ReadOnly Property KassenbuchNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKassenbuchNr End Get End Property _ Public ReadOnly Property SupervisorColumn() As Global.System.Data.DataColumn Get Return Me.columnSupervisor End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property SBSichtbarColumn() As Global.System.Data.DataColumn Get Return Me.columnSBSichtbar End Get End Property _ Public ReadOnly Property BLCColumn() As Global.System.Data.DataColumn Get Return Me.columnBLC End Get End Property _ Public ReadOnly Property CMRColumn() As Global.System.Data.DataColumn Get Return Me.columnCMR End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property Standard_RKSV_KasseIdColumn() As Global.System.Data.DataColumn Get Return Me.columnStandard_RKSV_KasseId End Get End Property _ Public ReadOnly Property PasswortChangedColumn() As Global.System.Data.DataColumn Get Return Me.columnPasswortChanged End Get End Property _ Public ReadOnly Property isLeihgeldkasseColumn() As Global.System.Data.DataColumn Get Return Me.columnisLeihgeldkasse End Get End Property _ Public ReadOnly Property AllowLGColumn() As Global.System.Data.DataColumn Get Return Me.columnAllowLG 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 PersonalRow Get Return CType(Me.Rows(index),PersonalRow) End Get End Property _ Public Event PersonalRowChanging As PersonalRowChangeEventHandler _ Public Event PersonalRowChanged As PersonalRowChangeEventHandler _ Public Event PersonalRowDeleting As PersonalRowChangeEventHandler _ Public Event PersonalRowDeleted As PersonalRowChangeEventHandler _ Public Overloads Sub AddPersonalRow(ByVal row As PersonalRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddPersonalRow(ByVal Name As String, ByVal Kennwort As String, ByVal KassenbuchNr As Integer, ByVal Supervisor As Boolean, ByVal Status As String, ByVal Mandant As String, ByVal Niederlassung As String, ByVal SBSichtbar As Boolean, ByVal BLC As String, ByVal CMR As Boolean, ByVal SSMA_TimeStamp() As Byte, ByVal Standard_RKSV_KasseId As Integer, ByVal PasswortChanged As Date, ByVal isLeihgeldkasse As Boolean, ByVal AllowLG As Boolean) As PersonalRow Dim rowPersonalRow As PersonalRow = CType(Me.NewRow,PersonalRow) Dim columnValuesArray() As Object = New Object() {Nothing, Name, Kennwort, KassenbuchNr, Supervisor, Status, Mandant, Niederlassung, SBSichtbar, BLC, CMR, SSMA_TimeStamp, Standard_RKSV_KasseId, PasswortChanged, isLeihgeldkasse, AllowLG} rowPersonalRow.ItemArray = columnValuesArray Me.Rows.Add(rowPersonalRow) Return rowPersonalRow End Function _ Public Function FindByID(ByVal ID As Integer) As PersonalRow Return CType(Me.Rows.Find(New Object() {ID}),PersonalRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As PersonalDataTable = CType(MyBase.Clone,PersonalDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New PersonalDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnName = MyBase.Columns("Name") Me.columnKennwort = MyBase.Columns("Kennwort") Me.columnKassenbuchNr = MyBase.Columns("KassenbuchNr") Me.columnSupervisor = MyBase.Columns("Supervisor") Me.columnStatus = MyBase.Columns("Status") Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnSBSichtbar = MyBase.Columns("SBSichtbar") Me.columnBLC = MyBase.Columns("BLC") Me.columnCMR = MyBase.Columns("CMR") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnStandard_RKSV_KasseId = MyBase.Columns("Standard_RKSV_KasseId") Me.columnPasswortChanged = MyBase.Columns("PasswortChanged") Me.columnisLeihgeldkasse = MyBase.Columns("isLeihgeldkasse") Me.columnAllowLG = MyBase.Columns("AllowLG") 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.columnKennwort = New Global.System.Data.DataColumn("Kennwort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKennwort) Me.columnKassenbuchNr = New Global.System.Data.DataColumn("KassenbuchNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKassenbuchNr) Me.columnSupervisor = New Global.System.Data.DataColumn("Supervisor", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSupervisor) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnSBSichtbar = New Global.System.Data.DataColumn("SBSichtbar", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSBSichtbar) Me.columnBLC = New Global.System.Data.DataColumn("BLC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBLC) Me.columnCMR = New Global.System.Data.DataColumn("CMR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCMR) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnStandard_RKSV_KasseId = New Global.System.Data.DataColumn("Standard_RKSV_KasseId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStandard_RKSV_KasseId) Me.columnPasswortChanged = New Global.System.Data.DataColumn("PasswortChanged", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPasswortChanged) Me.columnisLeihgeldkasse = New Global.System.Data.DataColumn("isLeihgeldkasse", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnisLeihgeldkasse) Me.columnAllowLG = New Global.System.Data.DataColumn("AllowLG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAllowLG) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnName.AllowDBNull = false Me.columnName.MaxLength = 40 Me.columnKennwort.MaxLength = 20 Me.columnStatus.AllowDBNull = false Me.columnStatus.MaxLength = 1 Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.MaxLength = 3 Me.columnBLC.MaxLength = 3 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnStandard_RKSV_KasseId.AllowDBNull = false Me.columnisLeihgeldkasse.AllowDBNull = false Me.columnAllowLG.AllowDBNull = false End Sub _ Public Function NewPersonalRow() As PersonalRow Return CType(Me.NewRow,PersonalRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New PersonalRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(PersonalRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.PersonalRowChangedEvent) Is Nothing) Then RaiseEvent PersonalRowChanged(Me, New PersonalRowChangeEvent(CType(e.Row,PersonalRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.PersonalRowChangingEvent) Is Nothing) Then RaiseEvent PersonalRowChanging(Me, New PersonalRowChangeEvent(CType(e.Row,PersonalRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.PersonalRowDeletedEvent) Is Nothing) Then RaiseEvent PersonalRowDeleted(Me, New PersonalRowChangeEvent(CType(e.Row,PersonalRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.PersonalRowDeletingEvent) Is Nothing) Then RaiseEvent PersonalRowDeleting(Me, New PersonalRowChangeEvent(CType(e.Row,PersonalRow), e.Action)) End If End Sub _ Public Sub RemovePersonalRow(ByVal row As PersonalRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "PersonalDataTable" 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 RechnungsausgangDataTable Inherits Global.System.Data.TypedTableBase(Of RechnungsausgangRow) Private columnRK_ID As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnRechnungsNr As Global.System.Data.DataColumn Private columnRechnungsDatum As Global.System.Data.DataColumn Private columnSammelrechnung As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnBelegartenKz As Global.System.Data.DataColumn Private columnBelegartenBez As Global.System.Data.DataColumn Private columnVorzeichen As Global.System.Data.DataColumn Private columnBelegNr As Global.System.Data.DataColumn Private columnAbsenderLandKz As Global.System.Data.DataColumn Private columnAbsenderKundenNr As Global.System.Data.DataColumn Private columnAbsenderName_1 As Global.System.Data.DataColumn Private columnAbsenderName_2 As Global.System.Data.DataColumn Private columnAbsenderStraße As Global.System.Data.DataColumn Private columnAbsenderOrt As Global.System.Data.DataColumn Private columnAbsenderOffertenNr As Global.System.Data.DataColumn Private columnEmpfängerLandKz As Global.System.Data.DataColumn Private columnEmpfängerKundenNr As Global.System.Data.DataColumn Private columnEmpfängerName_1 As Global.System.Data.DataColumn Private columnEmpfängerName_2 As Global.System.Data.DataColumn Private columnEmpfängerStraße As Global.System.Data.DataColumn Private columnEmpfängerOrt As Global.System.Data.DataColumn Private columnEmpfängerOffertenNr As Global.System.Data.DataColumn Private columnVermittlerLandKz As Global.System.Data.DataColumn Private columnVermittlerKundenNr As Global.System.Data.DataColumn Private columnVermittlerName_1 As Global.System.Data.DataColumn Private columnVermittlerName_2 As Global.System.Data.DataColumn Private columnVermittlerStraße As Global.System.Data.DataColumn Private columnVermittlerOrt As Global.System.Data.DataColumn Private columnVermittlerOffertenNr As Global.System.Data.DataColumn Private columnRechnung_an As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnRechnungsLandKz As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnRechnungsName_1 As Global.System.Data.DataColumn Private columnRechnungsName_2 As Global.System.Data.DataColumn Private columnRechnungsStraße As Global.System.Data.DataColumn Private columnRechnungsOrt As Global.System.Data.DataColumn Private columnRechnungsUstIdKz As Global.System.Data.DataColumn Private columnRechnungsUstIdNr As Global.System.Data.DataColumn Private columnRechnungsUstIdGeprüft As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private _columnKunden_SVS As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnLKW_Kennzeichen As Global.System.Data.DataColumn Private columnWährungsNr As Global.System.Data.DataColumn Private columnWert As Global.System.Data.DataColumn Private columnUmrechnungskurs As Global.System.Data.DataColumn Private columnPackstücke_und_Warenbezeichnung As Global.System.Data.DataColumn Private columnVermerk As Global.System.Data.DataColumn Private columnAnlage_1 As Global.System.Data.DataColumn Private columnAnlage_2 As Global.System.Data.DataColumn Private columnAnlage_3 As Global.System.Data.DataColumn Private columnAnlage_4 As Global.System.Data.DataColumn Private columnAnlage_5 As Global.System.Data.DataColumn Private columnAnlage_6 As Global.System.Data.DataColumn Private columnOffertenNr As Global.System.Data.DataColumn Private _columnVorlageprovision__ As Global.System.Data.DataColumn Private _columnKreditaufwendungen__ As Global.System.Data.DataColumn Private columnBesonderheiten As Global.System.Data.DataColumn Private columnVorkasse As Global.System.Data.DataColumn Private columnText As Global.System.Data.DataColumn Private columnSteuerpflichtigerGesamtbetrag As Global.System.Data.DataColumn Private columnSteuerfreierGesamtbetrag As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnDruckDatumZeit As Global.System.Data.DataColumn Private columnAbfertigungskosten As Global.System.Data.DataColumn Private columnVorkosten As Global.System.Data.DataColumn Private columnErlös As Global.System.Data.DataColumn Private columnBuchungsjahr As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnTrdin As Global.System.Data.DataColumn Private columnKartenNr As Global.System.Data.DataColumn Private columnRefFilialenNr As Global.System.Data.DataColumn Private columnRefAbfertigungsNr As Global.System.Data.DataColumn Private columnRefUnterNr As Global.System.Data.DataColumn Private columnNotiz As Global.System.Data.DataColumn Private columnZucker_MRN_Nr As Global.System.Data.DataColumn Private columnZucker_MRN_Datum As Global.System.Data.DataColumn Private columnZucker_Aufschub As Global.System.Data.DataColumn Private columnReErfZeitstempel As Global.System.Data.DataColumn Private columnNettozahlungsziel As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnSpeditionsbuchUnterNr As Global.System.Data.DataColumn Private columnErfassungsNr As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnAvisiererKundenNr As Global.System.Data.DataColumn Private columnAvisierer As Global.System.Data.DataColumn Private columnEMailRechnungstext As Global.System.Data.DataColumn Private columnAvisoID As Global.System.Data.DataColumn Private columnKdAuftragsNr As Global.System.Data.DataColumn Private columnHandling As Global.System.Data.DataColumn Private columnVorschauID As Global.System.Data.DataColumn Private columnGrenze As Global.System.Data.DataColumn Private columnRechnungSprache As Global.System.Data.DataColumn Private columnFakturierungsGruppe As Global.System.Data.DataColumn Private columnTextZZ As Global.System.Data.DataColumn Private columnRechnungsName_AdressZusatz As Global.System.Data.DataColumn Private columnForceSteuerschlüssel As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Rechnungsausgang" 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 RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property RechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsNr End Get End Property _ Public ReadOnly Property RechnungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsDatum End Get End Property _ Public ReadOnly Property SammelrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnung End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property BelegartenKzColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenKz End Get End Property _ Public ReadOnly Property BelegartenBezColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenBez End Get End Property _ Public ReadOnly Property VorzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorzeichen End Get End Property _ Public ReadOnly Property BelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegNr End Get End Property _ Public ReadOnly Property AbsenderLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderLandKz End Get End Property _ Public ReadOnly Property AbsenderKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderKundenNr End Get End Property _ Public ReadOnly Property AbsenderName_1Column() As Global.System.Data.DataColumn Get Return Me.columnAbsenderName_1 End Get End Property _ Public ReadOnly Property AbsenderName_2Column() As Global.System.Data.DataColumn Get Return Me.columnAbsenderName_2 End Get End Property _ Public ReadOnly Property AbsenderStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderStraße End Get End Property _ Public ReadOnly Property AbsenderOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOrt End Get End Property _ Public ReadOnly Property AbsenderOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOffertenNr End Get End Property _ Public ReadOnly Property EmpfängerLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerLandKz End Get End Property _ Public ReadOnly Property EmpfängerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerKundenNr End Get End Property _ Public ReadOnly Property EmpfängerName_1Column() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerName_1 End Get End Property _ Public ReadOnly Property EmpfängerName_2Column() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerName_2 End Get End Property _ Public ReadOnly Property EmpfängerStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerStraße End Get End Property _ Public ReadOnly Property EmpfängerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOrt End Get End Property _ Public ReadOnly Property EmpfängerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOffertenNr End Get End Property _ Public ReadOnly Property VermittlerLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerLandKz End Get End Property _ Public ReadOnly Property VermittlerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerKundenNr End Get End Property _ Public ReadOnly Property VermittlerName_1Column() As Global.System.Data.DataColumn Get Return Me.columnVermittlerName_1 End Get End Property _ Public ReadOnly Property VermittlerName_2Column() As Global.System.Data.DataColumn Get Return Me.columnVermittlerName_2 End Get End Property _ Public ReadOnly Property VermittlerStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerStraße End Get End Property _ Public ReadOnly Property VermittlerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOrt End Get End Property _ Public ReadOnly Property VermittlerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOffertenNr End Get End Property _ Public ReadOnly Property Rechnung_anColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnung_an End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property RechnungsLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsLandKz End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property RechnungsName_1Column() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_1 End Get End Property _ Public ReadOnly Property RechnungsName_2Column() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_2 End Get End Property _ Public ReadOnly Property RechnungsStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsStraße End Get End Property _ Public ReadOnly Property RechnungsOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsOrt End Get End Property _ Public ReadOnly Property RechnungsUstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdKz End Get End Property _ Public ReadOnly Property RechnungsUstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdNr End Get End Property _ Public ReadOnly Property RechnungsUstIdGeprüftColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdGeprüft End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property _Kunden_SVSColumn() As Global.System.Data.DataColumn Get Return Me._columnKunden_SVS End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property LKW_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnLKW_Kennzeichen End Get End Property _ Public ReadOnly Property WährungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungsNr End Get End Property _ Public ReadOnly Property WertColumn() As Global.System.Data.DataColumn Get Return Me.columnWert End Get End Property _ Public ReadOnly Property UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUmrechnungskurs End Get End Property _ Public ReadOnly Property Packstücke_und_WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnPackstücke_und_Warenbezeichnung End Get End Property _ Public ReadOnly Property VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnVermerk End Get End Property _ Public ReadOnly Property Anlage_1Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_1 End Get End Property _ Public ReadOnly Property Anlage_2Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_2 End Get End Property _ Public ReadOnly Property Anlage_3Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_3 End Get End Property _ Public ReadOnly Property Anlage_4Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_4 End Get End Property _ Public ReadOnly Property Anlage_5Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_5 End Get End Property _ Public ReadOnly Property Anlage_6Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_6 End Get End Property _ Public ReadOnly Property OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property _Vorlageprovision__Column() As Global.System.Data.DataColumn Get Return Me._columnVorlageprovision__ End Get End Property _ Public ReadOnly Property _Kreditaufwendungen__Column() As Global.System.Data.DataColumn Get Return Me._columnKreditaufwendungen__ End Get End Property _ Public ReadOnly Property BesonderheitenColumn() As Global.System.Data.DataColumn Get Return Me.columnBesonderheiten End Get End Property _ Public ReadOnly Property VorkasseColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkasse End Get End Property _ Public ReadOnly Property TextColumn() As Global.System.Data.DataColumn Get Return Me.columnText End Get End Property _ Public ReadOnly Property SteuerpflichtigerGesamtbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerGesamtbetrag End Get End Property _ Public ReadOnly Property SteuerfreierGesamtbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierGesamtbetrag End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property DruckDatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnDruckDatumZeit End Get End Property _ Public ReadOnly Property AbfertigungskostenColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungskosten End Get End Property _ Public ReadOnly Property VorkostenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkosten End Get End Property _ Public ReadOnly Property ErlösColumn() As Global.System.Data.DataColumn Get Return Me.columnErlös End Get End Property _ Public ReadOnly Property BuchungsjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsjahr End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property TrdinColumn() As Global.System.Data.DataColumn Get Return Me.columnTrdin End Get End Property _ Public ReadOnly Property KartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenNr End Get End Property _ Public ReadOnly Property RefFilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefFilialenNr End Get End Property _ Public ReadOnly Property RefAbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefAbfertigungsNr End Get End Property _ Public ReadOnly Property RefUnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefUnterNr End Get End Property _ Public ReadOnly Property NotizColumn() As Global.System.Data.DataColumn Get Return Me.columnNotiz End Get End Property _ Public ReadOnly Property Zucker_MRN_NrColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Nr End Get End Property _ Public ReadOnly Property Zucker_MRN_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Datum End Get End Property _ Public ReadOnly Property Zucker_AufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_Aufschub End Get End Property _ Public ReadOnly Property ReErfZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnReErfZeitstempel End Get End Property _ Public ReadOnly Property NettozahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnNettozahlungsziel End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property SpeditionsbuchUnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuchUnterNr End Get End Property _ Public ReadOnly Property ErfassungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnErfassungsNr End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property AvisiererKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisiererKundenNr End Get End Property _ Public ReadOnly Property AvisiererColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisierer End Get End Property _ Public ReadOnly Property EMailRechnungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnEMailRechnungstext End Get End Property _ Public ReadOnly Property AvisoIDColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisoID End Get End Property _ Public ReadOnly Property KdAuftragsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKdAuftragsNr End Get End Property _ Public ReadOnly Property HandlingColumn() As Global.System.Data.DataColumn Get Return Me.columnHandling End Get End Property _ Public ReadOnly Property VorschauIDColumn() As Global.System.Data.DataColumn Get Return Me.columnVorschauID End Get End Property _ Public ReadOnly Property GrenzeColumn() As Global.System.Data.DataColumn Get Return Me.columnGrenze End Get End Property _ Public ReadOnly Property RechnungSpracheColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungSprache End Get End Property _ Public ReadOnly Property FakturierungsGruppeColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturierungsGruppe End Get End Property _ Public ReadOnly Property TextZZColumn() As Global.System.Data.DataColumn Get Return Me.columnTextZZ End Get End Property _ Public ReadOnly Property RechnungsName_AdressZusatzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_AdressZusatz End Get End Property _ Public ReadOnly Property ForceSteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnForceSteuerschlüssel 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 RechnungsausgangRow Get Return CType(Me.Rows(index),RechnungsausgangRow) End Get End Property _ Public Event RechnungsausgangRowChanging As RechnungsausgangRowChangeEventHandler _ Public Event RechnungsausgangRowChanged As RechnungsausgangRowChangeEventHandler _ Public Event RechnungsausgangRowDeleting As RechnungsausgangRowChangeEventHandler _ Public Event RechnungsausgangRowDeleted As RechnungsausgangRowChangeEventHandler _ Public Overloads Sub AddRechnungsausgangRow(ByVal row As RechnungsausgangRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddRechnungsausgangRow( _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal RechnungsNr As Integer, _ ByVal RechnungsDatum As Date, _ ByVal Sammelrechnung As Short, _ ByVal BelegartenNr As Short, _ ByVal BelegartenKz As String, _ ByVal BelegartenBez As String, _ ByVal Vorzeichen As String, _ ByVal BelegNr As String, _ ByVal AbsenderLandKz As String, _ ByVal AbsenderKundenNr As Integer, _ ByVal AbsenderName_1 As String, _ ByVal AbsenderName_2 As String, _ ByVal AbsenderStraße As String, _ ByVal AbsenderOrt As String, _ ByVal AbsenderOffertenNr As Short, _ ByVal EmpfängerLandKz As String, _ ByVal EmpfängerKundenNr As Integer, _ ByVal EmpfängerName_1 As String, _ ByVal EmpfängerName_2 As String, _ ByVal EmpfängerStraße As String, _ ByVal EmpfängerOrt As String, _ ByVal EmpfängerOffertenNr As Short, _ ByVal VermittlerLandKz As String, _ ByVal VermittlerKundenNr As Integer, _ ByVal VermittlerName_1 As String, _ ByVal VermittlerName_2 As String, _ ByVal VermittlerStraße As String, _ ByVal VermittlerOrt As String, _ ByVal VermittlerOffertenNr As Short, _ ByVal Rechnung_an As Short, _ ByVal KundenNrZentrale As Integer, _ ByVal RechnungsLandKz As String, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsName_1 As String, _ ByVal RechnungsName_2 As String, _ ByVal RechnungsStraße As String, _ ByVal RechnungsOrt As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal RechnungsUstIdGeprüft As Date, _ ByVal Lastschrift As Boolean, _ ByVal _Kunden_SVS As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal _Steuersatz__ As Single, _ ByVal LKW_Kennzeichen As String, _ ByVal WährungsNr As Short, _ ByVal Wert As Decimal, _ ByVal Umrechnungskurs As Double, _ ByVal Packstücke_und_Warenbezeichnung As String, _ ByVal Vermerk As String, _ ByVal Anlage_1 As String, _ ByVal Anlage_2 As String, _ ByVal Anlage_3 As String, _ ByVal Anlage_4 As String, _ ByVal Anlage_5 As String, _ ByVal Anlage_6 As String, _ ByVal OffertenNr As Short, _ ByVal _Vorlageprovision__ As Single, _ ByVal _Kreditaufwendungen__ As Single, _ ByVal Besonderheiten As String, _ ByVal Vorkasse As Boolean, _ ByVal Text As String, _ ByVal SteuerpflichtigerGesamtbetrag As Decimal, _ ByVal SteuerfreierGesamtbetrag As Decimal, _ ByVal Status As Short, _ ByVal DruckDatumZeit As Date, _ ByVal Abfertigungskosten As Decimal, _ ByVal Vorkosten As Decimal, _ ByVal Erlös As Decimal, _ ByVal Buchungsjahr As Short, _ ByVal Währungscode As String, _ ByVal Sachbearbeiter As String, _ ByVal Trdin As Boolean, _ ByVal KartenNr As String, _ ByVal RefFilialenNr As Short, _ ByVal RefAbfertigungsNr As Integer, _ ByVal RefUnterNr As Short, _ ByVal Notiz As String, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Date, _ ByVal Zucker_Aufschub As String, _ ByVal ReErfZeitstempel As Date, _ ByVal Nettozahlungsziel As Short, _ ByVal Firma_ID As Short, _ ByVal SpeditionsbuchUnterNr As Short, _ ByVal ErfassungsNr As String, _ ByVal upsize_ts() As Byte, _ ByVal AvisiererKundenNr As Integer, _ ByVal Avisierer As String, _ ByVal EMailRechnungstext As String, _ ByVal AvisoID As Integer, _ ByVal KdAuftragsNr As String, _ ByVal Handling As String, _ ByVal VorschauID As String, _ ByVal Grenze As String, _ ByVal RechnungSprache As String, _ ByVal FakturierungsGruppe As String, _ ByVal TextZZ As String, _ ByVal RechnungsName_AdressZusatz As String, _ ByVal ForceSteuerschlüssel As Short) As RechnungsausgangRow Dim rowRechnungsausgangRow As RechnungsausgangRow = CType(Me.NewRow,RechnungsausgangRow) Dim columnValuesArray() As Object = New Object() {Nothing, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, RechnungsNr, RechnungsDatum, Sammelrechnung, BelegartenNr, BelegartenKz, BelegartenBez, Vorzeichen, BelegNr, AbsenderLandKz, AbsenderKundenNr, AbsenderName_1, AbsenderName_2, AbsenderStraße, AbsenderOrt, AbsenderOffertenNr, EmpfängerLandKz, EmpfängerKundenNr, EmpfängerName_1, EmpfängerName_2, EmpfängerStraße, EmpfängerOrt, EmpfängerOffertenNr, VermittlerLandKz, VermittlerKundenNr, VermittlerName_1, VermittlerName_2, VermittlerStraße, VermittlerOrt, VermittlerOffertenNr, Rechnung_an, KundenNrZentrale, RechnungsLandKz, RechnungsKundenNr, RechnungsName_1, RechnungsName_2, RechnungsStraße, RechnungsOrt, RechnungsUstIdKz, RechnungsUstIdNr, RechnungsUstIdGeprüft, Lastschrift, _Kunden_SVS, Steuerschlüssel, _Steuersatz__, LKW_Kennzeichen, WährungsNr, Wert, Umrechnungskurs, Packstücke_und_Warenbezeichnung, Vermerk, Anlage_1, Anlage_2, Anlage_3, Anlage_4, Anlage_5, Anlage_6, OffertenNr, _Vorlageprovision__, _Kreditaufwendungen__, Besonderheiten, Vorkasse, Text, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, Status, DruckDatumZeit, Abfertigungskosten, Vorkosten, Erlös, Buchungsjahr, Währungscode, Sachbearbeiter, Trdin, KartenNr, RefFilialenNr, RefAbfertigungsNr, RefUnterNr, Notiz, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, ReErfZeitstempel, Nettozahlungsziel, Firma_ID, SpeditionsbuchUnterNr, ErfassungsNr, upsize_ts, AvisiererKundenNr, Avisierer, EMailRechnungstext, AvisoID, KdAuftragsNr, Handling, VorschauID, Grenze, RechnungSprache, FakturierungsGruppe, TextZZ, RechnungsName_AdressZusatz, ForceSteuerschlüssel} rowRechnungsausgangRow.ItemArray = columnValuesArray Me.Rows.Add(rowRechnungsausgangRow) Return rowRechnungsausgangRow End Function _ Public Function FindByRK_ID(ByVal RK_ID As Integer) As RechnungsausgangRow Return CType(Me.Rows.Find(New Object() {RK_ID}),RechnungsausgangRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As RechnungsausgangDataTable = CType(MyBase.Clone,RechnungsausgangDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New RechnungsausgangDataTable() End Function _ Friend Sub InitVars() Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnRechnungsNr = MyBase.Columns("RechnungsNr") Me.columnRechnungsDatum = MyBase.Columns("RechnungsDatum") Me.columnSammelrechnung = MyBase.Columns("Sammelrechnung") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnBelegartenKz = MyBase.Columns("BelegartenKz") Me.columnBelegartenBez = MyBase.Columns("BelegartenBez") Me.columnVorzeichen = MyBase.Columns("Vorzeichen") Me.columnBelegNr = MyBase.Columns("BelegNr") Me.columnAbsenderLandKz = MyBase.Columns("AbsenderLandKz") Me.columnAbsenderKundenNr = MyBase.Columns("AbsenderKundenNr") Me.columnAbsenderName_1 = MyBase.Columns("AbsenderName 1") Me.columnAbsenderName_2 = MyBase.Columns("AbsenderName 2") Me.columnAbsenderStraße = MyBase.Columns("AbsenderStraße") Me.columnAbsenderOrt = MyBase.Columns("AbsenderOrt") Me.columnAbsenderOffertenNr = MyBase.Columns("AbsenderOffertenNr") Me.columnEmpfängerLandKz = MyBase.Columns("EmpfängerLandKz") Me.columnEmpfängerKundenNr = MyBase.Columns("EmpfängerKundenNr") Me.columnEmpfängerName_1 = MyBase.Columns("EmpfängerName 1") Me.columnEmpfängerName_2 = MyBase.Columns("EmpfängerName 2") Me.columnEmpfängerStraße = MyBase.Columns("EmpfängerStraße") Me.columnEmpfängerOrt = MyBase.Columns("EmpfängerOrt") Me.columnEmpfängerOffertenNr = MyBase.Columns("EmpfängerOffertenNr") Me.columnVermittlerLandKz = MyBase.Columns("VermittlerLandKz") Me.columnVermittlerKundenNr = MyBase.Columns("VermittlerKundenNr") Me.columnVermittlerName_1 = MyBase.Columns("VermittlerName 1") Me.columnVermittlerName_2 = MyBase.Columns("VermittlerName 2") Me.columnVermittlerStraße = MyBase.Columns("VermittlerStraße") Me.columnVermittlerOrt = MyBase.Columns("VermittlerOrt") Me.columnVermittlerOffertenNr = MyBase.Columns("VermittlerOffertenNr") Me.columnRechnung_an = MyBase.Columns("Rechnung an") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnRechnungsLandKz = MyBase.Columns("RechnungsLandKz") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnRechnungsName_1 = MyBase.Columns("RechnungsName 1") Me.columnRechnungsName_2 = MyBase.Columns("RechnungsName 2") Me.columnRechnungsStraße = MyBase.Columns("RechnungsStraße") Me.columnRechnungsOrt = MyBase.Columns("RechnungsOrt") Me.columnRechnungsUstIdKz = MyBase.Columns("RechnungsUstIdKz") Me.columnRechnungsUstIdNr = MyBase.Columns("RechnungsUstIdNr") Me.columnRechnungsUstIdGeprüft = MyBase.Columns("RechnungsUstIdGeprüft") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me._columnKunden_SVS = MyBase.Columns("Kunden-SVS") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnLKW_Kennzeichen = MyBase.Columns("LKW Kennzeichen") Me.columnWährungsNr = MyBase.Columns("WährungsNr") Me.columnWert = MyBase.Columns("Wert") Me.columnUmrechnungskurs = MyBase.Columns("Umrechnungskurs") Me.columnPackstücke_und_Warenbezeichnung = MyBase.Columns("Packstücke und Warenbezeichnung") Me.columnVermerk = MyBase.Columns("Vermerk") Me.columnAnlage_1 = MyBase.Columns("Anlage 1") Me.columnAnlage_2 = MyBase.Columns("Anlage 2") Me.columnAnlage_3 = MyBase.Columns("Anlage 3") Me.columnAnlage_4 = MyBase.Columns("Anlage 4") Me.columnAnlage_5 = MyBase.Columns("Anlage 5") Me.columnAnlage_6 = MyBase.Columns("Anlage 6") Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me._columnVorlageprovision__ = MyBase.Columns("Vorlageprovision %") Me._columnKreditaufwendungen__ = MyBase.Columns("Kreditaufwendungen %") Me.columnBesonderheiten = MyBase.Columns("Besonderheiten") Me.columnVorkasse = MyBase.Columns("Vorkasse") Me.columnText = MyBase.Columns("Text") Me.columnSteuerpflichtigerGesamtbetrag = MyBase.Columns("SteuerpflichtigerGesamtbetrag") Me.columnSteuerfreierGesamtbetrag = MyBase.Columns("SteuerfreierGesamtbetrag") Me.columnStatus = MyBase.Columns("Status") Me.columnDruckDatumZeit = MyBase.Columns("DruckDatumZeit") Me.columnAbfertigungskosten = MyBase.Columns("Abfertigungskosten") Me.columnVorkosten = MyBase.Columns("Vorkosten") Me.columnErlös = MyBase.Columns("Erlös") Me.columnBuchungsjahr = MyBase.Columns("Buchungsjahr") Me.columnWährungscode = MyBase.Columns("Währungscode") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnTrdin = MyBase.Columns("Trdin") Me.columnKartenNr = MyBase.Columns("KartenNr") Me.columnRefFilialenNr = MyBase.Columns("RefFilialenNr") Me.columnRefAbfertigungsNr = MyBase.Columns("RefAbfertigungsNr") Me.columnRefUnterNr = MyBase.Columns("RefUnterNr") Me.columnNotiz = MyBase.Columns("Notiz") Me.columnZucker_MRN_Nr = MyBase.Columns("Zucker_MRN_Nr") Me.columnZucker_MRN_Datum = MyBase.Columns("Zucker_MRN_Datum") Me.columnZucker_Aufschub = MyBase.Columns("Zucker_Aufschub") Me.columnReErfZeitstempel = MyBase.Columns("ReErfZeitstempel") Me.columnNettozahlungsziel = MyBase.Columns("Nettozahlungsziel") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnSpeditionsbuchUnterNr = MyBase.Columns("SpeditionsbuchUnterNr") Me.columnErfassungsNr = MyBase.Columns("ErfassungsNr") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnAvisiererKundenNr = MyBase.Columns("AvisiererKundenNr") Me.columnAvisierer = MyBase.Columns("Avisierer") Me.columnEMailRechnungstext = MyBase.Columns("EMailRechnungstext") Me.columnAvisoID = MyBase.Columns("AvisoID") Me.columnKdAuftragsNr = MyBase.Columns("KdAuftragsNr") Me.columnHandling = MyBase.Columns("Handling") Me.columnVorschauID = MyBase.Columns("VorschauID") Me.columnGrenze = MyBase.Columns("Grenze") Me.columnRechnungSprache = MyBase.Columns("RechnungSprache") Me.columnFakturierungsGruppe = MyBase.Columns("FakturierungsGruppe") Me.columnTextZZ = MyBase.Columns("TextZZ") Me.columnRechnungsName_AdressZusatz = MyBase.Columns("RechnungsName_AdressZusatz") Me.columnForceSteuerschlüssel = MyBase.Columns("ForceSteuerschlüssel") End Sub _ Private Sub InitClass() Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnRechnungsNr = New Global.System.Data.DataColumn("RechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsNr) Me.columnRechnungsDatum = New Global.System.Data.DataColumn("RechnungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsDatum) Me.columnSammelrechnung = New Global.System.Data.DataColumn("Sammelrechnung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnung) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnBelegartenKz = New Global.System.Data.DataColumn("BelegartenKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenKz) Me.columnBelegartenBez = New Global.System.Data.DataColumn("BelegartenBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenBez) Me.columnVorzeichen = New Global.System.Data.DataColumn("Vorzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorzeichen) Me.columnBelegNr = New Global.System.Data.DataColumn("BelegNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegNr) Me.columnAbsenderLandKz = New Global.System.Data.DataColumn("AbsenderLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderLandKz) Me.columnAbsenderKundenNr = New Global.System.Data.DataColumn("AbsenderKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderKundenNr) Me.columnAbsenderName_1 = New Global.System.Data.DataColumn("AbsenderName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderName_1) Me.columnAbsenderName_2 = New Global.System.Data.DataColumn("AbsenderName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderName_2) Me.columnAbsenderStraße = New Global.System.Data.DataColumn("AbsenderStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderStraße) Me.columnAbsenderOrt = New Global.System.Data.DataColumn("AbsenderOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOrt) Me.columnAbsenderOffertenNr = New Global.System.Data.DataColumn("AbsenderOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOffertenNr) Me.columnEmpfängerLandKz = New Global.System.Data.DataColumn("EmpfängerLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerLandKz) Me.columnEmpfängerKundenNr = New Global.System.Data.DataColumn("EmpfängerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerKundenNr) Me.columnEmpfängerName_1 = New Global.System.Data.DataColumn("EmpfängerName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerName_1) Me.columnEmpfängerName_2 = New Global.System.Data.DataColumn("EmpfängerName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerName_2) Me.columnEmpfängerStraße = New Global.System.Data.DataColumn("EmpfängerStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerStraße) Me.columnEmpfängerOrt = New Global.System.Data.DataColumn("EmpfängerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOrt) Me.columnEmpfängerOffertenNr = New Global.System.Data.DataColumn("EmpfängerOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOffertenNr) Me.columnVermittlerLandKz = New Global.System.Data.DataColumn("VermittlerLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerLandKz) Me.columnVermittlerKundenNr = New Global.System.Data.DataColumn("VermittlerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerKundenNr) Me.columnVermittlerName_1 = New Global.System.Data.DataColumn("VermittlerName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerName_1) Me.columnVermittlerName_2 = New Global.System.Data.DataColumn("VermittlerName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerName_2) Me.columnVermittlerStraße = New Global.System.Data.DataColumn("VermittlerStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerStraße) Me.columnVermittlerOrt = New Global.System.Data.DataColumn("VermittlerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOrt) Me.columnVermittlerOffertenNr = New Global.System.Data.DataColumn("VermittlerOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOffertenNr) Me.columnRechnung_an = New Global.System.Data.DataColumn("Rechnung an", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnung_an) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnRechnungsLandKz = New Global.System.Data.DataColumn("RechnungsLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsLandKz) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnRechnungsName_1 = New Global.System.Data.DataColumn("RechnungsName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_1) Me.columnRechnungsName_2 = New Global.System.Data.DataColumn("RechnungsName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_2) Me.columnRechnungsStraße = New Global.System.Data.DataColumn("RechnungsStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsStraße) Me.columnRechnungsOrt = New Global.System.Data.DataColumn("RechnungsOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsOrt) Me.columnRechnungsUstIdKz = New Global.System.Data.DataColumn("RechnungsUstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdKz) Me.columnRechnungsUstIdNr = New Global.System.Data.DataColumn("RechnungsUstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdNr) Me.columnRechnungsUstIdGeprüft = New Global.System.Data.DataColumn("RechnungsUstIdGeprüft", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdGeprüft) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me._columnKunden_SVS = New Global.System.Data.DataColumn("Kunden-SVS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me._columnKunden_SVS.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnKunden_SVS") Me._columnKunden_SVS.ExtendedProperties.Add("Generator_UserColumnName", "Kunden-SVS") MyBase.Columns.Add(Me._columnKunden_SVS) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnLKW_Kennzeichen = New Global.System.Data.DataColumn("LKW Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLKW_Kennzeichen) Me.columnWährungsNr = New Global.System.Data.DataColumn("WährungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungsNr) Me.columnWert = New Global.System.Data.DataColumn("Wert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWert) Me.columnUmrechnungskurs = New Global.System.Data.DataColumn("Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmrechnungskurs) Me.columnPackstücke_und_Warenbezeichnung = New Global.System.Data.DataColumn("Packstücke und Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPackstücke_und_Warenbezeichnung) Me.columnVermerk = New Global.System.Data.DataColumn("Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermerk) Me.columnAnlage_1 = New Global.System.Data.DataColumn("Anlage 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_1) Me.columnAnlage_2 = New Global.System.Data.DataColumn("Anlage 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_2) Me.columnAnlage_3 = New Global.System.Data.DataColumn("Anlage 3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_3) Me.columnAnlage_4 = New Global.System.Data.DataColumn("Anlage 4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_4) Me.columnAnlage_5 = New Global.System.Data.DataColumn("Anlage 5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_5) Me.columnAnlage_6 = New Global.System.Data.DataColumn("Anlage 6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_6) Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me._columnVorlageprovision__ = New Global.System.Data.DataColumn("Vorlageprovision %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnVorlageprovision__") Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_UserColumnName", "Vorlageprovision %") MyBase.Columns.Add(Me._columnVorlageprovision__) Me._columnKreditaufwendungen__ = New Global.System.Data.DataColumn("Kreditaufwendungen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnKreditaufwendungen__") Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_UserColumnName", "Kreditaufwendungen %") MyBase.Columns.Add(Me._columnKreditaufwendungen__) Me.columnBesonderheiten = New Global.System.Data.DataColumn("Besonderheiten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesonderheiten) Me.columnVorkasse = New Global.System.Data.DataColumn("Vorkasse", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkasse) Me.columnText = New Global.System.Data.DataColumn("Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnText) Me.columnSteuerpflichtigerGesamtbetrag = New Global.System.Data.DataColumn("SteuerpflichtigerGesamtbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerGesamtbetrag) Me.columnSteuerfreierGesamtbetrag = New Global.System.Data.DataColumn("SteuerfreierGesamtbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierGesamtbetrag) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnDruckDatumZeit = New Global.System.Data.DataColumn("DruckDatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDruckDatumZeit) Me.columnAbfertigungskosten = New Global.System.Data.DataColumn("Abfertigungskosten", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungskosten) Me.columnVorkosten = New Global.System.Data.DataColumn("Vorkosten", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkosten) Me.columnErlös = New Global.System.Data.DataColumn("Erlös", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErlös) Me.columnBuchungsjahr = New Global.System.Data.DataColumn("Buchungsjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsjahr) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnTrdin = New Global.System.Data.DataColumn("Trdin", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTrdin) Me.columnKartenNr = New Global.System.Data.DataColumn("KartenNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenNr) Me.columnRefFilialenNr = New Global.System.Data.DataColumn("RefFilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefFilialenNr) Me.columnRefAbfertigungsNr = New Global.System.Data.DataColumn("RefAbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefAbfertigungsNr) Me.columnRefUnterNr = New Global.System.Data.DataColumn("RefUnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefUnterNr) Me.columnNotiz = New Global.System.Data.DataColumn("Notiz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNotiz) Me.columnZucker_MRN_Nr = New Global.System.Data.DataColumn("Zucker_MRN_Nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Nr) Me.columnZucker_MRN_Datum = New Global.System.Data.DataColumn("Zucker_MRN_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Datum) Me.columnZucker_Aufschub = New Global.System.Data.DataColumn("Zucker_Aufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_Aufschub) Me.columnReErfZeitstempel = New Global.System.Data.DataColumn("ReErfZeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReErfZeitstempel) Me.columnNettozahlungsziel = New Global.System.Data.DataColumn("Nettozahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettozahlungsziel) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnSpeditionsbuchUnterNr = New Global.System.Data.DataColumn("SpeditionsbuchUnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuchUnterNr) Me.columnErfassungsNr = New Global.System.Data.DataColumn("ErfassungsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErfassungsNr) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnAvisiererKundenNr = New Global.System.Data.DataColumn("AvisiererKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisiererKundenNr) Me.columnAvisierer = New Global.System.Data.DataColumn("Avisierer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisierer) Me.columnEMailRechnungstext = New Global.System.Data.DataColumn("EMailRechnungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMailRechnungstext) Me.columnAvisoID = New Global.System.Data.DataColumn("AvisoID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisoID) Me.columnKdAuftragsNr = New Global.System.Data.DataColumn("KdAuftragsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdAuftragsNr) Me.columnHandling = New Global.System.Data.DataColumn("Handling", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHandling) Me.columnVorschauID = New Global.System.Data.DataColumn("VorschauID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorschauID) Me.columnGrenze = New Global.System.Data.DataColumn("Grenze", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGrenze) Me.columnRechnungSprache = New Global.System.Data.DataColumn("RechnungSprache", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungSprache) Me.columnFakturierungsGruppe = New Global.System.Data.DataColumn("FakturierungsGruppe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturierungsGruppe) Me.columnTextZZ = New Global.System.Data.DataColumn("TextZZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTextZZ) Me.columnRechnungsName_AdressZusatz = New Global.System.Data.DataColumn("RechnungsName_AdressZusatz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_AdressZusatz) Me.columnForceSteuerschlüssel = New Global.System.Data.DataColumn("ForceSteuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnForceSteuerschlüssel) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID}, true)) Me.columnRK_ID.AutoIncrement = true Me.columnRK_ID.AutoIncrementSeed = -1 Me.columnRK_ID.AutoIncrementStep = -1 Me.columnRK_ID.AllowDBNull = false Me.columnRK_ID.ReadOnly = true Me.columnRK_ID.Unique = true Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnAbfertigungsdatum.AllowDBNull = false Me.columnSammelrechnung.AllowDBNull = false Me.columnBelegartenNr.AllowDBNull = false Me.columnBelegartenKz.AllowDBNull = false Me.columnBelegartenKz.MaxLength = 2 Me.columnBelegartenBez.AllowDBNull = false Me.columnBelegartenBez.MaxLength = 10 Me.columnVorzeichen.AllowDBNull = false Me.columnVorzeichen.MaxLength = 1 Me.columnBelegNr.MaxLength = 27 Me.columnAbsenderLandKz.MaxLength = 3 Me.columnAbsenderName_1.MaxLength = 40 Me.columnAbsenderName_2.MaxLength = 40 Me.columnAbsenderStraße.MaxLength = 40 Me.columnAbsenderOrt.MaxLength = 52 Me.columnEmpfängerLandKz.MaxLength = 3 Me.columnEmpfängerName_1.MaxLength = 40 Me.columnEmpfängerName_2.MaxLength = 40 Me.columnEmpfängerStraße.MaxLength = 40 Me.columnEmpfängerOrt.MaxLength = 52 Me.columnVermittlerLandKz.MaxLength = 3 Me.columnVermittlerName_1.MaxLength = 40 Me.columnVermittlerName_2.MaxLength = 40 Me.columnVermittlerStraße.MaxLength = 40 Me.columnVermittlerOrt.MaxLength = 52 Me.columnRechnung_an.AllowDBNull = false Me.columnRechnungsLandKz.MaxLength = 3 Me.columnRechnungsKundenNr.AllowDBNull = false Me.columnRechnungsName_1.MaxLength = 40 Me.columnRechnungsName_2.MaxLength = 40 Me.columnRechnungsStraße.MaxLength = 40 Me.columnRechnungsOrt.MaxLength = 52 Me.columnRechnungsUstIdKz.MaxLength = 2 Me.columnRechnungsUstIdNr.MaxLength = 12 Me.columnLastschrift.AllowDBNull = false Me._columnKunden_SVS.AllowDBNull = false Me.columnSteuerschlüssel.AllowDBNull = false Me._columnSteuersatz__.AllowDBNull = false Me.columnLKW_Kennzeichen.MaxLength = 25 Me.columnPackstücke_und_Warenbezeichnung.MaxLength = 1073741823 Me.columnVermerk.MaxLength = 50 Me.columnAnlage_1.MaxLength = 35 Me.columnAnlage_2.MaxLength = 35 Me.columnAnlage_3.MaxLength = 35 Me.columnAnlage_4.MaxLength = 35 Me.columnAnlage_5.MaxLength = 35 Me.columnAnlage_6.MaxLength = 35 Me.columnBesonderheiten.MaxLength = 1073741823 Me.columnVorkasse.AllowDBNull = false Me.columnText.MaxLength = 1073741823 Me.columnWährungscode.MaxLength = 3 Me.columnSachbearbeiter.MaxLength = 15 Me.columnTrdin.AllowDBNull = false Me.columnKartenNr.MaxLength = 20 Me.columnNotiz.MaxLength = 1073741823 Me.columnZucker_MRN_Nr.MaxLength = 18 Me.columnZucker_Aufschub.MaxLength = 1 Me.columnFirma_ID.AllowDBNull = false Me.columnErfassungsNr.MaxLength = 255 Me.columnupsize_ts.ReadOnly = true Me.columnAvisierer.MaxLength = 50 Me.columnEMailRechnungstext.MaxLength = 255 Me.columnKdAuftragsNr.MaxLength = 50 Me.columnHandling.MaxLength = 2147483647 Me.columnVorschauID.MaxLength = 100 Me.columnGrenze.MaxLength = 100 Me.columnRechnungSprache.AllowDBNull = false Me.columnRechnungSprache.MaxLength = 3 Me.columnFakturierungsGruppe.AllowDBNull = false Me.columnFakturierungsGruppe.MaxLength = 10 Me.columnTextZZ.MaxLength = 1073741823 Me.columnRechnungsName_AdressZusatz.AllowDBNull = false Me.columnRechnungsName_AdressZusatz.MaxLength = 50 End Sub _ Public Function NewRechnungsausgangRow() As RechnungsausgangRow Return CType(Me.NewRow,RechnungsausgangRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New RechnungsausgangRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(RechnungsausgangRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.RechnungsausgangRowChangedEvent) Is Nothing) Then RaiseEvent RechnungsausgangRowChanged(Me, New RechnungsausgangRowChangeEvent(CType(e.Row,RechnungsausgangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.RechnungsausgangRowChangingEvent) Is Nothing) Then RaiseEvent RechnungsausgangRowChanging(Me, New RechnungsausgangRowChangeEvent(CType(e.Row,RechnungsausgangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.RechnungsausgangRowDeletedEvent) Is Nothing) Then RaiseEvent RechnungsausgangRowDeleted(Me, New RechnungsausgangRowChangeEvent(CType(e.Row,RechnungsausgangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.RechnungsausgangRowDeletingEvent) Is Nothing) Then RaiseEvent RechnungsausgangRowDeleting(Me, New RechnungsausgangRowChangeEvent(CType(e.Row,RechnungsausgangRow), e.Action)) End If End Sub _ Public Sub RemoveRechnungsausgangRow(ByVal row As RechnungsausgangRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "RechnungsausgangDataTable" 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 RechnungsausgangAnhaengeDataTable Inherits Global.System.Data.TypedTableBase(Of RechnungsausgangAnhaengeRow) Private columnRK_ID As Global.System.Data.DataColumn Private columndsId As Global.System.Data.DataColumn Private columnanhId As Global.System.Data.DataColumn Private columnBezeichnung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "RechnungsausgangAnhaenge" 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 RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property dsIdColumn() As Global.System.Data.DataColumn Get Return Me.columndsId End Get End Property _ Public ReadOnly Property anhIdColumn() As Global.System.Data.DataColumn Get Return Me.columnanhId End Get End Property _ Public ReadOnly Property BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnBezeichnung 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 RechnungsausgangAnhaengeRow Get Return CType(Me.Rows(index),RechnungsausgangAnhaengeRow) End Get End Property _ Public Event RechnungsausgangAnhaengeRowChanging As RechnungsausgangAnhaengeRowChangeEventHandler _ Public Event RechnungsausgangAnhaengeRowChanged As RechnungsausgangAnhaengeRowChangeEventHandler _ Public Event RechnungsausgangAnhaengeRowDeleting As RechnungsausgangAnhaengeRowChangeEventHandler _ Public Event RechnungsausgangAnhaengeRowDeleted As RechnungsausgangAnhaengeRowChangeEventHandler _ Public Overloads Sub AddRechnungsausgangAnhaengeRow(ByVal row As RechnungsausgangAnhaengeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddRechnungsausgangAnhaengeRow(ByVal RK_ID As Integer, ByVal dsId As Integer, ByVal anhId As Integer, ByVal Bezeichnung As String) As RechnungsausgangAnhaengeRow Dim rowRechnungsausgangAnhaengeRow As RechnungsausgangAnhaengeRow = CType(Me.NewRow,RechnungsausgangAnhaengeRow) Dim columnValuesArray() As Object = New Object() {RK_ID, dsId, anhId, Bezeichnung} rowRechnungsausgangAnhaengeRow.ItemArray = columnValuesArray Me.Rows.Add(rowRechnungsausgangAnhaengeRow) Return rowRechnungsausgangAnhaengeRow End Function _ Public Function FindByRK_IDdsIdanhId(ByVal RK_ID As Integer, ByVal dsId As Integer, ByVal anhId As Integer) As RechnungsausgangAnhaengeRow Return CType(Me.Rows.Find(New Object() {RK_ID, dsId, anhId}),RechnungsausgangAnhaengeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As RechnungsausgangAnhaengeDataTable = CType(MyBase.Clone,RechnungsausgangAnhaengeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New RechnungsausgangAnhaengeDataTable() End Function _ Friend Sub InitVars() Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columndsId = MyBase.Columns("dsId") Me.columnanhId = MyBase.Columns("anhId") Me.columnBezeichnung = MyBase.Columns("Bezeichnung") End Sub _ Private Sub InitClass() Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columndsId = New Global.System.Data.DataColumn("dsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndsId) Me.columnanhId = New Global.System.Data.DataColumn("anhId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnanhId) Me.columnBezeichnung = New Global.System.Data.DataColumn("Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBezeichnung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID, Me.columndsId, Me.columnanhId}, true)) Me.columnRK_ID.AllowDBNull = false Me.columndsId.AllowDBNull = false Me.columnanhId.AllowDBNull = false Me.columnBezeichnung.AllowDBNull = false Me.columnBezeichnung.MaxLength = 250 End Sub _ Public Function NewRechnungsausgangAnhaengeRow() As RechnungsausgangAnhaengeRow Return CType(Me.NewRow,RechnungsausgangAnhaengeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New RechnungsausgangAnhaengeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(RechnungsausgangAnhaengeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.RechnungsausgangAnhaengeRowChangedEvent) Is Nothing) Then RaiseEvent RechnungsausgangAnhaengeRowChanged(Me, New RechnungsausgangAnhaengeRowChangeEvent(CType(e.Row,RechnungsausgangAnhaengeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.RechnungsausgangAnhaengeRowChangingEvent) Is Nothing) Then RaiseEvent RechnungsausgangAnhaengeRowChanging(Me, New RechnungsausgangAnhaengeRowChangeEvent(CType(e.Row,RechnungsausgangAnhaengeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.RechnungsausgangAnhaengeRowDeletedEvent) Is Nothing) Then RaiseEvent RechnungsausgangAnhaengeRowDeleted(Me, New RechnungsausgangAnhaengeRowChangeEvent(CType(e.Row,RechnungsausgangAnhaengeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.RechnungsausgangAnhaengeRowDeletingEvent) Is Nothing) Then RaiseEvent RechnungsausgangAnhaengeRowDeleting(Me, New RechnungsausgangAnhaengeRowChangeEvent(CType(e.Row,RechnungsausgangAnhaengeRow), e.Action)) End If End Sub _ Public Sub RemoveRechnungsausgangAnhaengeRow(ByVal row As RechnungsausgangAnhaengeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "RechnungsausgangAnhaengeDataTable" 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 RechnungsausgangPositionenDataTable Inherits Global.System.Data.TypedTableBase(Of RechnungsausgangPositionenRow) Private columnRK_ID As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnIndexZkteing As Global.System.Data.DataColumn Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetrag As Global.System.Data.DataColumn Private columnSteuerfreierBetrag As Global.System.Data.DataColumn Private columnAufschubkontoNr As Global.System.Data.DataColumn Private columnAufschubfälligkeit As Global.System.Data.DataColumn Private columnPrüfsumme_berechnen As Global.System.Data.DataColumn Private columnDateiNameAufschub As Global.System.Data.DataColumn Private columnPreisbindung As Global.System.Data.DataColumn Private columnBelegdaten As Global.System.Data.DataColumn Private columnFremdwährung As Global.System.Data.DataColumn Private columnBGebLeistungsNr As Global.System.Data.DataColumn Private columnBGebProzent As Global.System.Data.DataColumn Private columnBGebBgl As Global.System.Data.DataColumn Private columnBGebMinBetrag As Global.System.Data.DataColumn Private columnRePosZeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "RechnungsausgangPositionen" 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 RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property IndexZkteingColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexZkteing End Get End Property _ Public ReadOnly Property BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetrag End Get End Property _ Public ReadOnly Property SteuerfreierBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetrag End Get End Property _ Public ReadOnly Property AufschubkontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkontoNr End Get End Property _ Public ReadOnly Property AufschubfälligkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubfälligkeit End Get End Property _ Public ReadOnly Property Prüfsumme_berechnenColumn() As Global.System.Data.DataColumn Get Return Me.columnPrüfsumme_berechnen End Get End Property _ Public ReadOnly Property DateiNameAufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiNameAufschub End Get End Property _ Public ReadOnly Property PreisbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisbindung End Get End Property _ Public ReadOnly Property BelegdatenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdaten End Get End Property _ Public ReadOnly Property FremdwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnFremdwährung End Get End Property _ Public ReadOnly Property BGebLeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebLeistungsNr End Get End Property _ Public ReadOnly Property BGebProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebProzent End Get End Property _ Public ReadOnly Property BGebBglColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebBgl End Get End Property _ Public ReadOnly Property BGebMinBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebMinBetrag End Get End Property _ Public ReadOnly Property RePosZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnRePosZeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 RechnungsausgangPositionenRow Get Return CType(Me.Rows(index),RechnungsausgangPositionenRow) End Get End Property _ Public Event RechnungsausgangPositionenRowChanging As RechnungsausgangPositionenRowChangeEventHandler _ Public Event RechnungsausgangPositionenRowChanged As RechnungsausgangPositionenRowChangeEventHandler _ Public Event RechnungsausgangPositionenRowDeleting As RechnungsausgangPositionenRowChangeEventHandler _ Public Event RechnungsausgangPositionenRowDeleted As RechnungsausgangPositionenRowChangeEventHandler _ Public Overloads Sub AddRechnungsausgangPositionenRow(ByVal row As RechnungsausgangPositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddRechnungsausgangPositionenRow( _ ByVal parentRechnungsausgangRowByRechnungsausgangPositione_FK00 As RechnungsausgangRow, _ ByVal LeistungsNr As Short, _ ByVal Steuerpflichtig As Boolean, _ ByVal LeistungsBez As String, _ ByVal IndexZkteing As Integer, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Decimal, _ ByVal Anzahl As Short, _ ByVal SteuerpflichtigerBetrag As Decimal, _ ByVal SteuerfreierBetrag As Decimal, _ ByVal AufschubkontoNr As String, _ ByVal Aufschubfälligkeit As Date, _ ByVal Prüfsumme_berechnen As Boolean, _ ByVal DateiNameAufschub As String, _ ByVal Preisbindung As Boolean, _ ByVal Belegdaten As String, _ ByVal Fremdwährung As Short, _ ByVal BGebLeistungsNr As Short, _ ByVal BGebProzent As Single, _ ByVal BGebBgl As Decimal, _ ByVal BGebMinBetrag As Decimal, _ ByVal RePosZeitstempel As Date, _ ByVal upsize_ts() As Byte) As RechnungsausgangPositionenRow Dim rowRechnungsausgangPositionenRow As RechnungsausgangPositionenRow = CType(Me.NewRow,RechnungsausgangPositionenRow) Dim columnValuesArray() As Object = New Object() {Nothing, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing, BerechnungsartNr, Preis, Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag, AufschubkontoNr, Aufschubfälligkeit, Prüfsumme_berechnen, DateiNameAufschub, Preisbindung, Belegdaten, Fremdwährung, BGebLeistungsNr, BGebProzent, BGebBgl, BGebMinBetrag, RePosZeitstempel, upsize_ts} If (Not (parentRechnungsausgangRowByRechnungsausgangPositione_FK00) Is Nothing) Then columnValuesArray(0) = parentRechnungsausgangRowByRechnungsausgangPositione_FK00(0) End If rowRechnungsausgangPositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowRechnungsausgangPositionenRow) Return rowRechnungsausgangPositionenRow End Function _ Public Function FindByRK_IDLeistungsNrSteuerpflichtigLeistungsBezIndexZkteing(ByVal RK_ID As Integer, ByVal LeistungsNr As Short, ByVal Steuerpflichtig As Boolean, ByVal LeistungsBez As String, ByVal IndexZkteing As Integer) As RechnungsausgangPositionenRow Return CType(Me.Rows.Find(New Object() {RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing}),RechnungsausgangPositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As RechnungsausgangPositionenDataTable = CType(MyBase.Clone,RechnungsausgangPositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New RechnungsausgangPositionenDataTable() End Function _ Friend Sub InitVars() Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnIndexZkteing = MyBase.Columns("IndexZkteing") Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnPreis = MyBase.Columns("Preis") Me.columnAnzahl = MyBase.Columns("Anzahl") Me.columnSteuerpflichtigerBetrag = MyBase.Columns("SteuerpflichtigerBetrag") Me.columnSteuerfreierBetrag = MyBase.Columns("SteuerfreierBetrag") Me.columnAufschubkontoNr = MyBase.Columns("AufschubkontoNr") Me.columnAufschubfälligkeit = MyBase.Columns("Aufschubfälligkeit") Me.columnPrüfsumme_berechnen = MyBase.Columns("Prüfsumme berechnen") Me.columnDateiNameAufschub = MyBase.Columns("DateiNameAufschub") Me.columnPreisbindung = MyBase.Columns("Preisbindung") Me.columnBelegdaten = MyBase.Columns("Belegdaten") Me.columnFremdwährung = MyBase.Columns("Fremdwährung") Me.columnBGebLeistungsNr = MyBase.Columns("BGebLeistungsNr") Me.columnBGebProzent = MyBase.Columns("BGebProzent") Me.columnBGebBgl = MyBase.Columns("BGebBgl") Me.columnBGebMinBetrag = MyBase.Columns("BGebMinBetrag") Me.columnRePosZeitstempel = MyBase.Columns("RePosZeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnIndexZkteing = New Global.System.Data.DataColumn("IndexZkteing", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndexZkteing) Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) Me.columnSteuerpflichtigerBetrag = New Global.System.Data.DataColumn("SteuerpflichtigerBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetrag) Me.columnSteuerfreierBetrag = New Global.System.Data.DataColumn("SteuerfreierBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetrag) Me.columnAufschubkontoNr = New Global.System.Data.DataColumn("AufschubkontoNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkontoNr) Me.columnAufschubfälligkeit = New Global.System.Data.DataColumn("Aufschubfälligkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubfälligkeit) Me.columnPrüfsumme_berechnen = New Global.System.Data.DataColumn("Prüfsumme berechnen", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrüfsumme_berechnen) Me.columnDateiNameAufschub = New Global.System.Data.DataColumn("DateiNameAufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiNameAufschub) Me.columnPreisbindung = New Global.System.Data.DataColumn("Preisbindung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisbindung) Me.columnBelegdaten = New Global.System.Data.DataColumn("Belegdaten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdaten) Me.columnFremdwährung = New Global.System.Data.DataColumn("Fremdwährung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFremdwährung) Me.columnBGebLeistungsNr = New Global.System.Data.DataColumn("BGebLeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebLeistungsNr) Me.columnBGebProzent = New Global.System.Data.DataColumn("BGebProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebProzent) Me.columnBGebBgl = New Global.System.Data.DataColumn("BGebBgl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebBgl) Me.columnBGebMinBetrag = New Global.System.Data.DataColumn("BGebMinBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebMinBetrag) Me.columnRePosZeitstempel = New Global.System.Data.DataColumn("RePosZeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRePosZeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID, Me.columnLeistungsNr, Me.columnSteuerpflichtig, Me.columnLeistungsBez, Me.columnIndexZkteing}, true)) Me.columnRK_ID.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnSteuerpflichtig.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnIndexZkteing.AllowDBNull = false Me.columnBerechnungsartNr.AllowDBNull = false Me.columnAufschubkontoNr.MaxLength = 20 Me.columnPrüfsumme_berechnen.AllowDBNull = false Me.columnDateiNameAufschub.MaxLength = 12 Me.columnPreisbindung.AllowDBNull = false Me.columnBelegdaten.MaxLength = 30 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewRechnungsausgangPositionenRow() As RechnungsausgangPositionenRow Return CType(Me.NewRow,RechnungsausgangPositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New RechnungsausgangPositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(RechnungsausgangPositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.RechnungsausgangPositionenRowChangedEvent) Is Nothing) Then RaiseEvent RechnungsausgangPositionenRowChanged(Me, New RechnungsausgangPositionenRowChangeEvent(CType(e.Row,RechnungsausgangPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.RechnungsausgangPositionenRowChangingEvent) Is Nothing) Then RaiseEvent RechnungsausgangPositionenRowChanging(Me, New RechnungsausgangPositionenRowChangeEvent(CType(e.Row,RechnungsausgangPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.RechnungsausgangPositionenRowDeletedEvent) Is Nothing) Then RaiseEvent RechnungsausgangPositionenRowDeleted(Me, New RechnungsausgangPositionenRowChangeEvent(CType(e.Row,RechnungsausgangPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.RechnungsausgangPositionenRowDeletingEvent) Is Nothing) Then RaiseEvent RechnungsausgangPositionenRowDeleting(Me, New RechnungsausgangPositionenRowChangeEvent(CType(e.Row,RechnungsausgangPositionenRow), e.Action)) End If End Sub _ Public Sub RemoveRechnungsausgangPositionenRow(ByVal row As RechnungsausgangPositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "RechnungsausgangPositionenDataTable" 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 RechnungsnummernDataTable Inherits Global.System.Data.TypedTableBase(Of RechnungsnummernRow) Private columnSpeditionsbuchNr As Global.System.Data.DataColumn Private columnBuchungsjahr As Global.System.Data.DataColumn Private columnVonRechnungsNr As Global.System.Data.DataColumn Private columnBisRechnungsNr As Global.System.Data.DataColumn Private columnLfdRechnungsNr As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Rechnungsnummern" 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 SpeditionsbuchNrColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuchNr End Get End Property _ Public ReadOnly Property BuchungsjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsjahr End Get End Property _ Public ReadOnly Property VonRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVonRechnungsNr End Get End Property _ Public ReadOnly Property BisRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBisRechnungsNr End Get End Property _ Public ReadOnly Property LfdRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdRechnungsNr End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 RechnungsnummernRow Get Return CType(Me.Rows(index),RechnungsnummernRow) End Get End Property _ Public Event RechnungsnummernRowChanging As RechnungsnummernRowChangeEventHandler _ Public Event RechnungsnummernRowChanged As RechnungsnummernRowChangeEventHandler _ Public Event RechnungsnummernRowDeleting As RechnungsnummernRowChangeEventHandler _ Public Event RechnungsnummernRowDeleted As RechnungsnummernRowChangeEventHandler _ Public Overloads Sub AddRechnungsnummernRow(ByVal row As RechnungsnummernRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddRechnungsnummernRow(ByVal SpeditionsbuchNr As Short, ByVal Buchungsjahr As Short, ByVal VonRechnungsNr As Integer, ByVal BisRechnungsNr As Integer, ByVal LfdRechnungsNr As Integer, ByVal upsize_ts() As Byte) As RechnungsnummernRow Dim rowRechnungsnummernRow As RechnungsnummernRow = CType(Me.NewRow,RechnungsnummernRow) Dim columnValuesArray() As Object = New Object() {SpeditionsbuchNr, Buchungsjahr, VonRechnungsNr, BisRechnungsNr, LfdRechnungsNr, upsize_ts} rowRechnungsnummernRow.ItemArray = columnValuesArray Me.Rows.Add(rowRechnungsnummernRow) Return rowRechnungsnummernRow End Function _ Public Function FindBySpeditionsbuchNrBuchungsjahr(ByVal SpeditionsbuchNr As Short, ByVal Buchungsjahr As Short) As RechnungsnummernRow Return CType(Me.Rows.Find(New Object() {SpeditionsbuchNr, Buchungsjahr}),RechnungsnummernRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As RechnungsnummernDataTable = CType(MyBase.Clone,RechnungsnummernDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New RechnungsnummernDataTable() End Function _ Friend Sub InitVars() Me.columnSpeditionsbuchNr = MyBase.Columns("SpeditionsbuchNr") Me.columnBuchungsjahr = MyBase.Columns("Buchungsjahr") Me.columnVonRechnungsNr = MyBase.Columns("VonRechnungsNr") Me.columnBisRechnungsNr = MyBase.Columns("BisRechnungsNr") Me.columnLfdRechnungsNr = MyBase.Columns("LfdRechnungsNr") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnSpeditionsbuchNr = New Global.System.Data.DataColumn("SpeditionsbuchNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuchNr) Me.columnBuchungsjahr = New Global.System.Data.DataColumn("Buchungsjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsjahr) Me.columnVonRechnungsNr = New Global.System.Data.DataColumn("VonRechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVonRechnungsNr) Me.columnBisRechnungsNr = New Global.System.Data.DataColumn("BisRechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBisRechnungsNr) Me.columnLfdRechnungsNr = New Global.System.Data.DataColumn("LfdRechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdRechnungsNr) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSpeditionsbuchNr, Me.columnBuchungsjahr}, true)) Me.columnSpeditionsbuchNr.AllowDBNull = false Me.columnBuchungsjahr.AllowDBNull = false Me.columnVonRechnungsNr.AllowDBNull = false Me.columnBisRechnungsNr.AllowDBNull = false Me.columnLfdRechnungsNr.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewRechnungsnummernRow() As RechnungsnummernRow Return CType(Me.NewRow,RechnungsnummernRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New RechnungsnummernRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(RechnungsnummernRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.RechnungsnummernRowChangedEvent) Is Nothing) Then RaiseEvent RechnungsnummernRowChanged(Me, New RechnungsnummernRowChangeEvent(CType(e.Row,RechnungsnummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.RechnungsnummernRowChangingEvent) Is Nothing) Then RaiseEvent RechnungsnummernRowChanging(Me, New RechnungsnummernRowChangeEvent(CType(e.Row,RechnungsnummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.RechnungsnummernRowDeletedEvent) Is Nothing) Then RaiseEvent RechnungsnummernRowDeleted(Me, New RechnungsnummernRowChangeEvent(CType(e.Row,RechnungsnummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.RechnungsnummernRowDeletingEvent) Is Nothing) Then RaiseEvent RechnungsnummernRowDeleting(Me, New RechnungsnummernRowChangeEvent(CType(e.Row,RechnungsnummernRow), e.Action)) End If End Sub _ Public Sub RemoveRechnungsnummernRow(ByVal row As RechnungsnummernRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "RechnungsnummernDataTable" 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 RechnungstexteDataTable Inherits Global.System.Data.TypedTableBase(Of RechnungstexteRow) Private columnTextschlüssel As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnOffertenNr As Global.System.Data.DataColumn Private columnText As Global.System.Data.DataColumn Private columnEMailRechnung As Global.System.Data.DataColumn Private columnDrucksteuerungsKz As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnImmerAnfuegen As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Rechnungstexte" 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 TextschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnTextschlüssel End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property TextColumn() As Global.System.Data.DataColumn Get Return Me.columnText End Get End Property _ Public ReadOnly Property EMailRechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnEMailRechnung End Get End Property _ Public ReadOnly Property DrucksteuerungsKzColumn() As Global.System.Data.DataColumn Get Return Me.columnDrucksteuerungsKz End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property ImmerAnfuegenColumn() As Global.System.Data.DataColumn Get Return Me.columnImmerAnfuegen 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 RechnungstexteRow Get Return CType(Me.Rows(index),RechnungstexteRow) End Get End Property _ Public Event RechnungstexteRowChanging As RechnungstexteRowChangeEventHandler _ Public Event RechnungstexteRowChanged As RechnungstexteRowChangeEventHandler _ Public Event RechnungstexteRowDeleting As RechnungstexteRowChangeEventHandler _ Public Event RechnungstexteRowDeleted As RechnungstexteRowChangeEventHandler _ Public Overloads Sub AddRechnungstexteRow(ByVal row As RechnungstexteRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddRechnungstexteRow(ByVal Textschlüssel As Short, ByVal Firma_ID As Short, ByVal LandKz As String, ByVal OffertenNr As Integer, ByVal Text As String, ByVal EMailRechnung As Boolean, ByVal DrucksteuerungsKz As String, ByVal SSMA_TimeStamp() As Byte, ByVal ImmerAnfuegen As Boolean) As RechnungstexteRow Dim rowRechnungstexteRow As RechnungstexteRow = CType(Me.NewRow,RechnungstexteRow) Dim columnValuesArray() As Object = New Object() {Textschlüssel, Firma_ID, LandKz, OffertenNr, Text, EMailRechnung, DrucksteuerungsKz, SSMA_TimeStamp, ImmerAnfuegen} rowRechnungstexteRow.ItemArray = columnValuesArray Me.Rows.Add(rowRechnungstexteRow) Return rowRechnungstexteRow End Function _ Public Function FindByTextschlüssel(ByVal Textschlüssel As Short) As RechnungstexteRow Return CType(Me.Rows.Find(New Object() {Textschlüssel}),RechnungstexteRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As RechnungstexteDataTable = CType(MyBase.Clone,RechnungstexteDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New RechnungstexteDataTable() End Function _ Friend Sub InitVars() Me.columnTextschlüssel = MyBase.Columns("Textschlüssel") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me.columnText = MyBase.Columns("Text") Me.columnEMailRechnung = MyBase.Columns("EMailRechnung") Me.columnDrucksteuerungsKz = MyBase.Columns("DrucksteuerungsKz") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnImmerAnfuegen = MyBase.Columns("ImmerAnfuegen") End Sub _ Private Sub InitClass() Me.columnTextschlüssel = New Global.System.Data.DataColumn("Textschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTextschlüssel) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me.columnText = New Global.System.Data.DataColumn("Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnText) Me.columnEMailRechnung = New Global.System.Data.DataColumn("EMailRechnung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMailRechnung) Me.columnDrucksteuerungsKz = New Global.System.Data.DataColumn("DrucksteuerungsKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDrucksteuerungsKz) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnImmerAnfuegen = New Global.System.Data.DataColumn("ImmerAnfuegen", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnImmerAnfuegen) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnTextschlüssel}, true)) Me.columnTextschlüssel.AllowDBNull = false Me.columnTextschlüssel.Unique = true Me.columnLandKz.MaxLength = 3 Me.columnText.MaxLength = 255 Me.columnDrucksteuerungsKz.MaxLength = 1 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnImmerAnfuegen.AllowDBNull = false End Sub _ Public Function NewRechnungstexteRow() As RechnungstexteRow Return CType(Me.NewRow,RechnungstexteRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New RechnungstexteRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(RechnungstexteRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.RechnungstexteRowChangedEvent) Is Nothing) Then RaiseEvent RechnungstexteRowChanged(Me, New RechnungstexteRowChangeEvent(CType(e.Row,RechnungstexteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.RechnungstexteRowChangingEvent) Is Nothing) Then RaiseEvent RechnungstexteRowChanging(Me, New RechnungstexteRowChangeEvent(CType(e.Row,RechnungstexteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.RechnungstexteRowDeletedEvent) Is Nothing) Then RaiseEvent RechnungstexteRowDeleted(Me, New RechnungstexteRowChangeEvent(CType(e.Row,RechnungstexteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.RechnungstexteRowDeletingEvent) Is Nothing) Then RaiseEvent RechnungstexteRowDeleting(Me, New RechnungstexteRowChangeEvent(CType(e.Row,RechnungstexteRow), e.Action)) End If End Sub _ Public Sub RemoveRechnungstexteRow(ByVal row As RechnungstexteRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "RechnungstexteDataTable" 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 SpeditionsbuchDataTable Inherits Global.System.Data.TypedTableBase(Of SpeditionsbuchRow) Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnBar As Global.System.Data.DataColumn Private columnFakturiert As Global.System.Data.DataColumn Private columnBelegNr As Global.System.Data.DataColumn Private columnErfassungsNr As Global.System.Data.DataColumn Private columnLKW_Kennzeichen As Global.System.Data.DataColumn Private columnAbsenderKundenNr As Global.System.Data.DataColumn Private columnAbsender As Global.System.Data.DataColumn Private columnAbsenderOffertenNr As Global.System.Data.DataColumn Private columnEmpfängerKundenNr As Global.System.Data.DataColumn Private columnEmpfänger As Global.System.Data.DataColumn Private columnEmpfängerOffertenNr As Global.System.Data.DataColumn Private columnVermittlerKundenNr As Global.System.Data.DataColumn Private columnVermittler As Global.System.Data.DataColumn Private columnVermittlerOffertenNr As Global.System.Data.DataColumn Private columnFrachtführerKundenNr As Global.System.Data.DataColumn Private columnFrachtführer As Global.System.Data.DataColumn Private columnAnzahlZA As Global.System.Data.DataColumn Private columnAnzahlZAFremd As Global.System.Data.DataColumn Private columnAnzahlZnV As Global.System.Data.DataColumn Private columnAnzahlZnVFremd As Global.System.Data.DataColumn Private columnAnzahlT1 As Global.System.Data.DataColumn Private columnAnzahlT2 As Global.System.Data.DataColumn Private columnAnzahlAE As Global.System.Data.DataColumn Private columnAnzahlCarnetTIR As Global.System.Data.DataColumn Private columnAnzahlBarvorlagen As Global.System.Data.DataColumn Private columnAnzahlSonstiges As Global.System.Data.DataColumn Private columnAnzahlGrenzgebühren As Global.System.Data.DataColumn Private columnAvisUhrzeit As Global.System.Data.DataColumn Private columnVermerk As Global.System.Data.DataColumn Private columnBemerkungen As Global.System.Data.DataColumn Private columnWährungsschlüssel As Global.System.Data.DataColumn Private columnRechnungsbetrag As Global.System.Data.DataColumn Private columnUmrechnungskurs As Global.System.Data.DataColumn Private columnPackstücke As Global.System.Data.DataColumn Private columnRohmasse As Global.System.Data.DataColumn Private columnZahlungsaufschub As Global.System.Data.DataColumn Private columnLöschen As Global.System.Data.DataColumn Private columnAbfertigungsart As Global.System.Data.DataColumn Private columnAbfertigungsanzahl As Global.System.Data.DataColumn Private columnAbfertigungsanzahlPos As Global.System.Data.DataColumn Private columnBarzahlungsbetrag As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnPersonalnummer As Global.System.Data.DataColumn Private columnAtlasBezNrEZA As Global.System.Data.DataColumn Private columnAtlasBezNrNCTS As Global.System.Data.DataColumn Private columnVersendungsland As Global.System.Data.DataColumn Private columnSB_CMR As Global.System.Data.DataColumn Private columnSB_CMRDatum As Global.System.Data.DataColumn Private columnveoerz_basbtg As Global.System.Data.DataColumn Private columnZucker_MRN_Nr As Global.System.Data.DataColumn Private columnZucker_MRN_Datum As Global.System.Data.DataColumn Private columnZucker_Aufschub As Global.System.Data.DataColumn Private columnZollsystem As Global.System.Data.DataColumn Private columnBestimmungszollstelle As Global.System.Data.DataColumn Private columnBürgschaft As Global.System.Data.DataColumn Private columnSicherheitsbetrag As Global.System.Data.DataColumn Private columnSgutKompl As Global.System.Data.DataColumn Private columnBestimmungsland As Global.System.Data.DataColumn Private columnEuFiskalEmpfänger As Global.System.Data.DataColumn Private columnQKN As Global.System.Data.DataColumn Private columnEndempfängerKundenNr As Global.System.Data.DataColumn Private columnEndempfänger As Global.System.Data.DataColumn Private columnSB_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnAvisoID As Global.System.Data.DataColumn Private columnSendungID As Global.System.Data.DataColumn Private columnPersonalnummerQS As Global.System.Data.DataColumn Private columnAvisiererKundenNr As Global.System.Data.DataColumn Private columnAvisierer As Global.System.Data.DataColumn Private columnKdAuftragsNr As Global.System.Data.DataColumn Private columnGrenzstelle As Global.System.Data.DataColumn Private columnNCTS_Verzollungsadresse As Global.System.Data.DataColumn Private columnNCTS_VerzollungsadresseKdNr As Global.System.Data.DataColumn Private columnNCTS_Verzollungsadresse_EORI As Global.System.Data.DataColumn Private columnNCTS_Bestimmungszollstelle As Global.System.Data.DataColumn Private columnAuftraggeberBetragKassiert As Global.System.Data.DataColumn Private columnKdAuftragsNrAvisierer As Global.System.Data.DataColumn Private columnKdAuftragsNrEmpfaenger As Global.System.Data.DataColumn Private columnKdAuftragsNrFrachtfuehrer As Global.System.Data.DataColumn Private columnLieferantenrechnung As Global.System.Data.DataColumn Private columnDokumentId_Steuerbeleg As Global.System.Data.DataColumn Private columnDokumentId_Mitteilung As Global.System.Data.DataColumn Private columnDokumentId_VBD As Global.System.Data.DataColumn Private columnDokumentId_ABD As Global.System.Data.DataColumn Private columnDokumentId_AVM As Global.System.Data.DataColumn Private columnFilialenNrHandling As Global.System.Data.DataColumn Private columnFilialenNrAbklaerung As Global.System.Data.DataColumn Private columnHandlingZuKassieren As Global.System.Data.DataColumn Private columnSB_CMRNr As Global.System.Data.DataColumn Private columnPersonalnummerAbklTR As Global.System.Data.DataColumn Private columnUK_EIDR_ausstehend As Global.System.Data.DataColumn Private columnZollstelle As Global.System.Data.DataColumn Private columnAtlasBezNrAES As Global.System.Data.DataColumn Private columnPackstücke_Zoll As Global.System.Data.DataColumn Private columnZollsystem_Land As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Speditionsbuch" 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 FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property BarColumn() As Global.System.Data.DataColumn Get Return Me.columnBar End Get End Property _ Public ReadOnly Property FakturiertColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturiert End Get End Property _ Public ReadOnly Property BelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegNr End Get End Property _ Public ReadOnly Property ErfassungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnErfassungsNr End Get End Property _ Public ReadOnly Property LKW_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnLKW_Kennzeichen End Get End Property _ Public ReadOnly Property AbsenderKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderKundenNr End Get End Property _ Public ReadOnly Property AbsenderColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsender End Get End Property _ Public ReadOnly Property AbsenderOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOffertenNr End Get End Property _ Public ReadOnly Property EmpfängerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerKundenNr End Get End Property _ Public ReadOnly Property EmpfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfänger End Get End Property _ Public ReadOnly Property EmpfängerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOffertenNr End Get End Property _ Public ReadOnly Property VermittlerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerKundenNr End Get End Property _ Public ReadOnly Property VermittlerColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittler End Get End Property _ Public ReadOnly Property VermittlerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOffertenNr End Get End Property _ Public ReadOnly Property FrachtführerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFrachtführerKundenNr End Get End Property _ Public ReadOnly Property FrachtführerColumn() As Global.System.Data.DataColumn Get Return Me.columnFrachtführer End Get End Property _ Public ReadOnly Property AnzahlZAColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlZA End Get End Property _ Public ReadOnly Property AnzahlZAFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlZAFremd End Get End Property _ Public ReadOnly Property AnzahlZnVColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlZnV End Get End Property _ Public ReadOnly Property AnzahlZnVFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlZnVFremd End Get End Property _ Public ReadOnly Property AnzahlT1Column() As Global.System.Data.DataColumn Get Return Me.columnAnzahlT1 End Get End Property _ Public ReadOnly Property AnzahlT2Column() As Global.System.Data.DataColumn Get Return Me.columnAnzahlT2 End Get End Property _ Public ReadOnly Property AnzahlAEColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlAE End Get End Property _ Public ReadOnly Property AnzahlCarnetTIRColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlCarnetTIR End Get End Property _ Public ReadOnly Property AnzahlBarvorlagenColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlBarvorlagen End Get End Property _ Public ReadOnly Property AnzahlSonstigesColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlSonstiges End Get End Property _ Public ReadOnly Property AnzahlGrenzgebührenColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlGrenzgebühren End Get End Property _ Public ReadOnly Property AvisUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisUhrzeit End Get End Property _ Public ReadOnly Property VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnVermerk End Get End Property _ Public ReadOnly Property BemerkungenColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkungen End Get End Property _ Public ReadOnly Property WährungsschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungsschlüssel End Get End Property _ Public ReadOnly Property RechnungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetrag End Get End Property _ Public ReadOnly Property UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUmrechnungskurs End Get End Property _ Public ReadOnly Property PackstückeColumn() As Global.System.Data.DataColumn Get Return Me.columnPackstücke End Get End Property _ Public ReadOnly Property RohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnRohmasse End Get End Property _ Public ReadOnly Property ZahlungsaufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsaufschub End Get End Property _ Public ReadOnly Property LöschenColumn() As Global.System.Data.DataColumn Get Return Me.columnLöschen End Get End Property _ Public ReadOnly Property AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsart End Get End Property _ Public ReadOnly Property AbfertigungsanzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsanzahl End Get End Property _ Public ReadOnly Property AbfertigungsanzahlPosColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsanzahlPos End Get End Property _ Public ReadOnly Property BarzahlungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBarzahlungsbetrag End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property PersonalnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnPersonalnummer End Get End Property _ Public ReadOnly Property AtlasBezNrEZAColumn() As Global.System.Data.DataColumn Get Return Me.columnAtlasBezNrEZA End Get End Property _ Public ReadOnly Property AtlasBezNrNCTSColumn() As Global.System.Data.DataColumn Get Return Me.columnAtlasBezNrNCTS End Get End Property _ Public ReadOnly Property VersendungslandColumn() As Global.System.Data.DataColumn Get Return Me.columnVersendungsland End Get End Property _ Public ReadOnly Property SB_CMRColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_CMR End Get End Property _ Public ReadOnly Property SB_CMRDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_CMRDatum End Get End Property _ Public ReadOnly Property veoerz_basbtgColumn() As Global.System.Data.DataColumn Get Return Me.columnveoerz_basbtg End Get End Property _ Public ReadOnly Property Zucker_MRN_NrColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Nr End Get End Property _ Public ReadOnly Property Zucker_MRN_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Datum End Get End Property _ Public ReadOnly Property Zucker_AufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_Aufschub End Get End Property _ Public ReadOnly Property ZollsystemColumn() As Global.System.Data.DataColumn Get Return Me.columnZollsystem End Get End Property _ Public ReadOnly Property BestimmungszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungszollstelle End Get End Property _ Public ReadOnly Property BürgschaftColumn() As Global.System.Data.DataColumn Get Return Me.columnBürgschaft End Get End Property _ Public ReadOnly Property SicherheitsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSicherheitsbetrag End Get End Property _ Public ReadOnly Property SgutKomplColumn() As Global.System.Data.DataColumn Get Return Me.columnSgutKompl End Get End Property _ Public ReadOnly Property BestimmungslandColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungsland End Get End Property _ Public ReadOnly Property EuFiskalEmpfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnEuFiskalEmpfänger End Get End Property _ Public ReadOnly Property QKNColumn() As Global.System.Data.DataColumn Get Return Me.columnQKN End Get End Property _ Public ReadOnly Property EndempfängerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEndempfängerKundenNr End Get End Property _ Public ReadOnly Property EndempfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnEndempfänger End Get End Property _ Public ReadOnly Property SB_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property AvisoIDColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisoID End Get End Property _ Public ReadOnly Property SendungIDColumn() As Global.System.Data.DataColumn Get Return Me.columnSendungID End Get End Property _ Public ReadOnly Property PersonalnummerQSColumn() As Global.System.Data.DataColumn Get Return Me.columnPersonalnummerQS End Get End Property _ Public ReadOnly Property AvisiererKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisiererKundenNr End Get End Property _ Public ReadOnly Property AvisiererColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisierer End Get End Property _ Public ReadOnly Property KdAuftragsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKdAuftragsNr End Get End Property _ Public ReadOnly Property GrenzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnGrenzstelle End Get End Property _ Public ReadOnly Property NCTS_VerzollungsadresseColumn() As Global.System.Data.DataColumn Get Return Me.columnNCTS_Verzollungsadresse End Get End Property _ Public ReadOnly Property NCTS_VerzollungsadresseKdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnNCTS_VerzollungsadresseKdNr End Get End Property _ Public ReadOnly Property NCTS_Verzollungsadresse_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnNCTS_Verzollungsadresse_EORI End Get End Property _ Public ReadOnly Property NCTS_BestimmungszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnNCTS_Bestimmungszollstelle End Get End Property _ Public ReadOnly Property AuftraggeberBetragKassiertColumn() As Global.System.Data.DataColumn Get Return Me.columnAuftraggeberBetragKassiert End Get End Property _ Public ReadOnly Property KdAuftragsNrAvisiererColumn() As Global.System.Data.DataColumn Get Return Me.columnKdAuftragsNrAvisierer End Get End Property _ Public ReadOnly Property KdAuftragsNrEmpfaengerColumn() As Global.System.Data.DataColumn Get Return Me.columnKdAuftragsNrEmpfaenger End Get End Property _ Public ReadOnly Property KdAuftragsNrFrachtfuehrerColumn() As Global.System.Data.DataColumn Get Return Me.columnKdAuftragsNrFrachtfuehrer End Get End Property _ Public ReadOnly Property LieferantenrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferantenrechnung End Get End Property _ Public ReadOnly Property DokumentId_SteuerbelegColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentId_Steuerbeleg End Get End Property _ Public ReadOnly Property DokumentId_MitteilungColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentId_Mitteilung End Get End Property _ Public ReadOnly Property DokumentId_VBDColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentId_VBD End Get End Property _ Public ReadOnly Property DokumentId_ABDColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentId_ABD End Get End Property _ Public ReadOnly Property DokumentId_AVMColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentId_AVM End Get End Property _ Public ReadOnly Property FilialenNrHandlingColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNrHandling End Get End Property _ Public ReadOnly Property FilialenNrAbklaerungColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNrAbklaerung End Get End Property _ Public ReadOnly Property HandlingZuKassierenColumn() As Global.System.Data.DataColumn Get Return Me.columnHandlingZuKassieren End Get End Property _ Public ReadOnly Property SB_CMRNrColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_CMRNr End Get End Property _ Public ReadOnly Property PersonalnummerAbklTRColumn() As Global.System.Data.DataColumn Get Return Me.columnPersonalnummerAbklTR End Get End Property _ Public ReadOnly Property UK_EIDR_ausstehendColumn() As Global.System.Data.DataColumn Get Return Me.columnUK_EIDR_ausstehend End Get End Property _ Public ReadOnly Property ZollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnZollstelle End Get End Property _ Public ReadOnly Property AtlasBezNrAESColumn() As Global.System.Data.DataColumn Get Return Me.columnAtlasBezNrAES End Get End Property _ Public ReadOnly Property Packstücke_ZollColumn() As Global.System.Data.DataColumn Get Return Me.columnPackstücke_Zoll End Get End Property _ Public ReadOnly Property Zollsystem_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnZollsystem_Land 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 SpeditionsbuchRow Get Return CType(Me.Rows(index),SpeditionsbuchRow) End Get End Property _ Public Event SpeditionsbuchRowChanging As SpeditionsbuchRowChangeEventHandler _ Public Event SpeditionsbuchRowChanged As SpeditionsbuchRowChangeEventHandler _ Public Event SpeditionsbuchRowDeleting As SpeditionsbuchRowChangeEventHandler _ Public Event SpeditionsbuchRowDeleted As SpeditionsbuchRowChangeEventHandler _ Public Overloads Sub AddSpeditionsbuchRow(ByVal row As SpeditionsbuchRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddSpeditionsbuchRow( _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal Bar As Boolean, _ ByVal Fakturiert As Boolean, _ ByVal BelegNr As String, _ ByVal ErfassungsNr As String, _ ByVal LKW_Kennzeichen As String, _ ByVal AbsenderKundenNr As Integer, _ ByVal Absender As String, _ ByVal AbsenderOffertenNr As Integer, _ ByVal EmpfängerKundenNr As Integer, _ ByVal Empfänger As String, _ ByVal EmpfängerOffertenNr As Integer, _ ByVal VermittlerKundenNr As Integer, _ ByVal Vermittler As String, _ ByVal VermittlerOffertenNr As Integer, _ ByVal FrachtführerKundenNr As Integer, _ ByVal Frachtführer As String, _ ByVal AnzahlZA As Short, _ ByVal AnzahlZAFremd As Short, _ ByVal AnzahlZnV As Short, _ ByVal AnzahlZnVFremd As Short, _ ByVal AnzahlT1 As Short, _ ByVal AnzahlT2 As Short, _ ByVal AnzahlAE As Short, _ ByVal AnzahlCarnetTIR As Short, _ ByVal AnzahlBarvorlagen As Short, _ ByVal AnzahlSonstiges As Short, _ ByVal AnzahlGrenzgebühren As Short, _ ByVal AvisUhrzeit As Date, _ ByVal Vermerk As String, _ ByVal Bemerkungen As String, _ ByVal Währungsschlüssel As Short, _ ByVal Rechnungsbetrag As Decimal, _ ByVal Umrechnungskurs As Double, _ ByVal Packstücke As String, _ ByVal Rohmasse As Integer, _ ByVal Zahlungsaufschub As String, _ ByVal Löschen As Date, _ ByVal Abfertigungsart As Short, _ ByVal Abfertigungsanzahl As Integer, _ ByVal AbfertigungsanzahlPos As Integer, _ ByVal Barzahlungsbetrag As Decimal, _ ByVal Sachbearbeiter As String, _ ByVal Personalnummer As Integer, _ ByVal AtlasBezNrEZA As String, _ ByVal AtlasBezNrNCTS As String, _ ByVal Versendungsland As String, _ ByVal SB_CMR As Boolean, _ ByVal SB_CMRDatum As Date, _ ByVal veoerz_basbtg As Decimal, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Date, _ ByVal Zucker_Aufschub As String, _ ByVal Zollsystem As String, _ ByVal Bestimmungszollstelle As String, _ ByVal Bürgschaft As String, _ ByVal Sicherheitsbetrag As Decimal, _ ByVal SgutKompl As String, _ ByVal Bestimmungsland As String, _ ByVal EuFiskalEmpfänger As String, _ ByVal QKN As String, _ ByVal EndempfängerKundenNr As Integer, _ ByVal Endempfänger As String, _ ByVal SB_Zeitstempel As Date, _ ByVal upsize_ts() As Byte, _ ByVal AvisoID As Integer, _ ByVal SendungID As Integer, _ ByVal PersonalnummerQS As Integer, _ ByVal AvisiererKundenNr As Integer, _ ByVal Avisierer As String, _ ByVal KdAuftragsNr As String, _ ByVal Grenzstelle As String, _ ByVal NCTS_Verzollungsadresse As String, _ ByVal NCTS_VerzollungsadresseKdNr As Integer, _ ByVal NCTS_Verzollungsadresse_EORI As String, _ ByVal NCTS_Bestimmungszollstelle As String, _ ByVal AuftraggeberBetragKassiert As Decimal, _ ByVal KdAuftragsNrAvisierer As String, _ ByVal KdAuftragsNrEmpfaenger As String, _ ByVal KdAuftragsNrFrachtfuehrer As String, _ ByVal Lieferantenrechnung As String, _ ByVal DokumentId_Steuerbeleg As Integer, _ ByVal DokumentId_Mitteilung As Integer, _ ByVal DokumentId_VBD As Integer, _ ByVal DokumentId_ABD As Integer, _ ByVal DokumentId_AVM As Integer, _ ByVal FilialenNrHandling As Short, _ ByVal FilialenNrAbklaerung As Short, _ ByVal HandlingZuKassieren As Decimal, _ ByVal SB_CMRNr As String, _ ByVal PersonalnummerAbklTR As Integer, _ ByVal UK_EIDR_ausstehend As Boolean, _ ByVal Zollstelle As String, _ ByVal AtlasBezNrAES As String, _ ByVal Packstücke_Zoll As String, _ ByVal Zollsystem_Land As String) As SpeditionsbuchRow Dim rowSpeditionsbuchRow As SpeditionsbuchRow = CType(Me.NewRow,SpeditionsbuchRow) Dim columnValuesArray() As Object = New Object() {FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, Bar, Fakturiert, BelegNr, ErfassungsNr, LKW_Kennzeichen, AbsenderKundenNr, Absender, AbsenderOffertenNr, EmpfängerKundenNr, Empfänger, EmpfängerOffertenNr, VermittlerKundenNr, Vermittler, VermittlerOffertenNr, FrachtführerKundenNr, Frachtführer, AnzahlZA, AnzahlZAFremd, AnzahlZnV, AnzahlZnVFremd, AnzahlT1, AnzahlT2, AnzahlAE, AnzahlCarnetTIR, AnzahlBarvorlagen, AnzahlSonstiges, AnzahlGrenzgebühren, AvisUhrzeit, Vermerk, Bemerkungen, Währungsschlüssel, Rechnungsbetrag, Umrechnungskurs, Packstücke, Rohmasse, Zahlungsaufschub, Löschen, Abfertigungsart, Abfertigungsanzahl, AbfertigungsanzahlPos, Barzahlungsbetrag, Sachbearbeiter, Personalnummer, AtlasBezNrEZA, AtlasBezNrNCTS, Versendungsland, SB_CMR, SB_CMRDatum, veoerz_basbtg, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, Zollsystem, Bestimmungszollstelle, Bürgschaft, Sicherheitsbetrag, SgutKompl, Bestimmungsland, EuFiskalEmpfänger, QKN, EndempfängerKundenNr, Endempfänger, SB_Zeitstempel, upsize_ts, AvisoID, SendungID, PersonalnummerQS, AvisiererKundenNr, Avisierer, KdAuftragsNr, Grenzstelle, NCTS_Verzollungsadresse, NCTS_VerzollungsadresseKdNr, NCTS_Verzollungsadresse_EORI, NCTS_Bestimmungszollstelle, AuftraggeberBetragKassiert, KdAuftragsNrAvisierer, KdAuftragsNrEmpfaenger, KdAuftragsNrFrachtfuehrer, Lieferantenrechnung, DokumentId_Steuerbeleg, DokumentId_Mitteilung, DokumentId_VBD, DokumentId_ABD, DokumentId_AVM, FilialenNrHandling, FilialenNrAbklaerung, HandlingZuKassieren, SB_CMRNr, PersonalnummerAbklTR, UK_EIDR_ausstehend, Zollstelle, AtlasBezNrAES, Packstücke_Zoll, Zollsystem_Land} rowSpeditionsbuchRow.ItemArray = columnValuesArray Me.Rows.Add(rowSpeditionsbuchRow) Return rowSpeditionsbuchRow End Function _ Public Function FindByFilialenNrAbfertigungsNrUnterNr(ByVal FilialenNr As Short, ByVal AbfertigungsNr As Integer, ByVal UnterNr As Short) As SpeditionsbuchRow Return CType(Me.Rows.Find(New Object() {FilialenNr, AbfertigungsNr, UnterNr}),SpeditionsbuchRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As SpeditionsbuchDataTable = CType(MyBase.Clone,SpeditionsbuchDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New SpeditionsbuchDataTable() End Function _ Friend Sub InitVars() Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnBar = MyBase.Columns("Bar") Me.columnFakturiert = MyBase.Columns("Fakturiert") Me.columnBelegNr = MyBase.Columns("BelegNr") Me.columnErfassungsNr = MyBase.Columns("ErfassungsNr") Me.columnLKW_Kennzeichen = MyBase.Columns("LKW Kennzeichen") Me.columnAbsenderKundenNr = MyBase.Columns("AbsenderKundenNr") Me.columnAbsender = MyBase.Columns("Absender") Me.columnAbsenderOffertenNr = MyBase.Columns("AbsenderOffertenNr") Me.columnEmpfängerKundenNr = MyBase.Columns("EmpfängerKundenNr") Me.columnEmpfänger = MyBase.Columns("Empfänger") Me.columnEmpfängerOffertenNr = MyBase.Columns("EmpfängerOffertenNr") Me.columnVermittlerKundenNr = MyBase.Columns("VermittlerKundenNr") Me.columnVermittler = MyBase.Columns("Vermittler") Me.columnVermittlerOffertenNr = MyBase.Columns("VermittlerOffertenNr") Me.columnFrachtführerKundenNr = MyBase.Columns("FrachtführerKundenNr") Me.columnFrachtführer = MyBase.Columns("Frachtführer") Me.columnAnzahlZA = MyBase.Columns("AnzahlZA") Me.columnAnzahlZAFremd = MyBase.Columns("AnzahlZAFremd") Me.columnAnzahlZnV = MyBase.Columns("AnzahlZnV") Me.columnAnzahlZnVFremd = MyBase.Columns("AnzahlZnVFremd") Me.columnAnzahlT1 = MyBase.Columns("AnzahlT1") Me.columnAnzahlT2 = MyBase.Columns("AnzahlT2") Me.columnAnzahlAE = MyBase.Columns("AnzahlAE") Me.columnAnzahlCarnetTIR = MyBase.Columns("AnzahlCarnetTIR") Me.columnAnzahlBarvorlagen = MyBase.Columns("AnzahlBarvorlagen") Me.columnAnzahlSonstiges = MyBase.Columns("AnzahlSonstiges") Me.columnAnzahlGrenzgebühren = MyBase.Columns("AnzahlGrenzgebühren") Me.columnAvisUhrzeit = MyBase.Columns("AvisUhrzeit") Me.columnVermerk = MyBase.Columns("Vermerk") Me.columnBemerkungen = MyBase.Columns("Bemerkungen") Me.columnWährungsschlüssel = MyBase.Columns("Währungsschlüssel") Me.columnRechnungsbetrag = MyBase.Columns("Rechnungsbetrag") Me.columnUmrechnungskurs = MyBase.Columns("Umrechnungskurs") Me.columnPackstücke = MyBase.Columns("Packstücke") Me.columnRohmasse = MyBase.Columns("Rohmasse") Me.columnZahlungsaufschub = MyBase.Columns("Zahlungsaufschub") Me.columnLöschen = MyBase.Columns("Löschen") Me.columnAbfertigungsart = MyBase.Columns("Abfertigungsart") Me.columnAbfertigungsanzahl = MyBase.Columns("Abfertigungsanzahl") Me.columnAbfertigungsanzahlPos = MyBase.Columns("AbfertigungsanzahlPos") Me.columnBarzahlungsbetrag = MyBase.Columns("Barzahlungsbetrag") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnPersonalnummer = MyBase.Columns("Personalnummer") Me.columnAtlasBezNrEZA = MyBase.Columns("AtlasBezNrEZA") Me.columnAtlasBezNrNCTS = MyBase.Columns("AtlasBezNrNCTS") Me.columnVersendungsland = MyBase.Columns("Versendungsland") Me.columnSB_CMR = MyBase.Columns("SB_CMR") Me.columnSB_CMRDatum = MyBase.Columns("SB_CMRDatum") Me.columnveoerz_basbtg = MyBase.Columns("veoerz_basbtg") Me.columnZucker_MRN_Nr = MyBase.Columns("Zucker_MRN_Nr") Me.columnZucker_MRN_Datum = MyBase.Columns("Zucker_MRN_Datum") Me.columnZucker_Aufschub = MyBase.Columns("Zucker_Aufschub") Me.columnZollsystem = MyBase.Columns("Zollsystem") Me.columnBestimmungszollstelle = MyBase.Columns("Bestimmungszollstelle") Me.columnBürgschaft = MyBase.Columns("Bürgschaft") Me.columnSicherheitsbetrag = MyBase.Columns("Sicherheitsbetrag") Me.columnSgutKompl = MyBase.Columns("SgutKompl") Me.columnBestimmungsland = MyBase.Columns("Bestimmungsland") Me.columnEuFiskalEmpfänger = MyBase.Columns("EuFiskalEmpfänger") Me.columnQKN = MyBase.Columns("QKN") Me.columnEndempfängerKundenNr = MyBase.Columns("EndempfängerKundenNr") Me.columnEndempfänger = MyBase.Columns("Endempfänger") Me.columnSB_Zeitstempel = MyBase.Columns("SB_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnAvisoID = MyBase.Columns("AvisoID") Me.columnSendungID = MyBase.Columns("SendungID") Me.columnPersonalnummerQS = MyBase.Columns("PersonalnummerQS") Me.columnAvisiererKundenNr = MyBase.Columns("AvisiererKundenNr") Me.columnAvisierer = MyBase.Columns("Avisierer") Me.columnKdAuftragsNr = MyBase.Columns("KdAuftragsNr") Me.columnGrenzstelle = MyBase.Columns("Grenzstelle") Me.columnNCTS_Verzollungsadresse = MyBase.Columns("NCTS_Verzollungsadresse") Me.columnNCTS_VerzollungsadresseKdNr = MyBase.Columns("NCTS_VerzollungsadresseKdNr") Me.columnNCTS_Verzollungsadresse_EORI = MyBase.Columns("NCTS_Verzollungsadresse_EORI") Me.columnNCTS_Bestimmungszollstelle = MyBase.Columns("NCTS_Bestimmungszollstelle") Me.columnAuftraggeberBetragKassiert = MyBase.Columns("AuftraggeberBetragKassiert") Me.columnKdAuftragsNrAvisierer = MyBase.Columns("KdAuftragsNrAvisierer") Me.columnKdAuftragsNrEmpfaenger = MyBase.Columns("KdAuftragsNrEmpfaenger") Me.columnKdAuftragsNrFrachtfuehrer = MyBase.Columns("KdAuftragsNrFrachtfuehrer") Me.columnLieferantenrechnung = MyBase.Columns("Lieferantenrechnung") Me.columnDokumentId_Steuerbeleg = MyBase.Columns("DokumentId_Steuerbeleg") Me.columnDokumentId_Mitteilung = MyBase.Columns("DokumentId_Mitteilung") Me.columnDokumentId_VBD = MyBase.Columns("DokumentId_VBD") Me.columnDokumentId_ABD = MyBase.Columns("DokumentId_ABD") Me.columnDokumentId_AVM = MyBase.Columns("DokumentId_AVM") Me.columnFilialenNrHandling = MyBase.Columns("FilialenNrHandling") Me.columnFilialenNrAbklaerung = MyBase.Columns("FilialenNrAbklaerung") Me.columnHandlingZuKassieren = MyBase.Columns("HandlingZuKassieren") Me.columnSB_CMRNr = MyBase.Columns("SB_CMRNr") Me.columnPersonalnummerAbklTR = MyBase.Columns("PersonalnummerAbklTR") Me.columnUK_EIDR_ausstehend = MyBase.Columns("UK_EIDR_ausstehend") Me.columnZollstelle = MyBase.Columns("Zollstelle") Me.columnAtlasBezNrAES = MyBase.Columns("AtlasBezNrAES") Me.columnPackstücke_Zoll = MyBase.Columns("Packstücke_Zoll") Me.columnZollsystem_Land = MyBase.Columns("Zollsystem_Land") End Sub _ Private Sub InitClass() Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnBar = New Global.System.Data.DataColumn("Bar", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBar) Me.columnFakturiert = New Global.System.Data.DataColumn("Fakturiert", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturiert) Me.columnBelegNr = New Global.System.Data.DataColumn("BelegNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegNr) Me.columnErfassungsNr = New Global.System.Data.DataColumn("ErfassungsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErfassungsNr) Me.columnLKW_Kennzeichen = New Global.System.Data.DataColumn("LKW Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLKW_Kennzeichen) Me.columnAbsenderKundenNr = New Global.System.Data.DataColumn("AbsenderKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderKundenNr) Me.columnAbsender = New Global.System.Data.DataColumn("Absender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsender) Me.columnAbsenderOffertenNr = New Global.System.Data.DataColumn("AbsenderOffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOffertenNr) Me.columnEmpfängerKundenNr = New Global.System.Data.DataColumn("EmpfängerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerKundenNr) Me.columnEmpfänger = New Global.System.Data.DataColumn("Empfänger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfänger) Me.columnEmpfängerOffertenNr = New Global.System.Data.DataColumn("EmpfängerOffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOffertenNr) Me.columnVermittlerKundenNr = New Global.System.Data.DataColumn("VermittlerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerKundenNr) Me.columnVermittler = New Global.System.Data.DataColumn("Vermittler", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittler) Me.columnVermittlerOffertenNr = New Global.System.Data.DataColumn("VermittlerOffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOffertenNr) Me.columnFrachtführerKundenNr = New Global.System.Data.DataColumn("FrachtführerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFrachtführerKundenNr) Me.columnFrachtführer = New Global.System.Data.DataColumn("Frachtführer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFrachtführer) Me.columnAnzahlZA = New Global.System.Data.DataColumn("AnzahlZA", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlZA) Me.columnAnzahlZAFremd = New Global.System.Data.DataColumn("AnzahlZAFremd", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlZAFremd) Me.columnAnzahlZnV = New Global.System.Data.DataColumn("AnzahlZnV", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlZnV) Me.columnAnzahlZnVFremd = New Global.System.Data.DataColumn("AnzahlZnVFremd", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlZnVFremd) Me.columnAnzahlT1 = New Global.System.Data.DataColumn("AnzahlT1", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlT1) Me.columnAnzahlT2 = New Global.System.Data.DataColumn("AnzahlT2", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlT2) Me.columnAnzahlAE = New Global.System.Data.DataColumn("AnzahlAE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlAE) Me.columnAnzahlCarnetTIR = New Global.System.Data.DataColumn("AnzahlCarnetTIR", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlCarnetTIR) Me.columnAnzahlBarvorlagen = New Global.System.Data.DataColumn("AnzahlBarvorlagen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlBarvorlagen) Me.columnAnzahlSonstiges = New Global.System.Data.DataColumn("AnzahlSonstiges", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlSonstiges) Me.columnAnzahlGrenzgebühren = New Global.System.Data.DataColumn("AnzahlGrenzgebühren", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlGrenzgebühren) Me.columnAvisUhrzeit = New Global.System.Data.DataColumn("AvisUhrzeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisUhrzeit) Me.columnVermerk = New Global.System.Data.DataColumn("Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermerk) Me.columnBemerkungen = New Global.System.Data.DataColumn("Bemerkungen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkungen) Me.columnWährungsschlüssel = New Global.System.Data.DataColumn("Währungsschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungsschlüssel) Me.columnRechnungsbetrag = New Global.System.Data.DataColumn("Rechnungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetrag) Me.columnUmrechnungskurs = New Global.System.Data.DataColumn("Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmrechnungskurs) Me.columnPackstücke = New Global.System.Data.DataColumn("Packstücke", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPackstücke) Me.columnRohmasse = New Global.System.Data.DataColumn("Rohmasse", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRohmasse) Me.columnZahlungsaufschub = New Global.System.Data.DataColumn("Zahlungsaufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsaufschub) Me.columnLöschen = New Global.System.Data.DataColumn("Löschen", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLöschen) Me.columnAbfertigungsart = New Global.System.Data.DataColumn("Abfertigungsart", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsart) Me.columnAbfertigungsanzahl = New Global.System.Data.DataColumn("Abfertigungsanzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsanzahl) Me.columnAbfertigungsanzahlPos = New Global.System.Data.DataColumn("AbfertigungsanzahlPos", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsanzahlPos) Me.columnBarzahlungsbetrag = New Global.System.Data.DataColumn("Barzahlungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBarzahlungsbetrag) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnPersonalnummer = New Global.System.Data.DataColumn("Personalnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPersonalnummer) Me.columnAtlasBezNrEZA = New Global.System.Data.DataColumn("AtlasBezNrEZA", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAtlasBezNrEZA) Me.columnAtlasBezNrNCTS = New Global.System.Data.DataColumn("AtlasBezNrNCTS", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAtlasBezNrNCTS) Me.columnVersendungsland = New Global.System.Data.DataColumn("Versendungsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVersendungsland) Me.columnSB_CMR = New Global.System.Data.DataColumn("SB_CMR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_CMR) Me.columnSB_CMRDatum = New Global.System.Data.DataColumn("SB_CMRDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_CMRDatum) Me.columnveoerz_basbtg = New Global.System.Data.DataColumn("veoerz_basbtg", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoerz_basbtg) Me.columnZucker_MRN_Nr = New Global.System.Data.DataColumn("Zucker_MRN_Nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Nr) Me.columnZucker_MRN_Datum = New Global.System.Data.DataColumn("Zucker_MRN_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Datum) Me.columnZucker_Aufschub = New Global.System.Data.DataColumn("Zucker_Aufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_Aufschub) Me.columnZollsystem = New Global.System.Data.DataColumn("Zollsystem", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollsystem) Me.columnBestimmungszollstelle = New Global.System.Data.DataColumn("Bestimmungszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungszollstelle) Me.columnBürgschaft = New Global.System.Data.DataColumn("Bürgschaft", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBürgschaft) Me.columnSicherheitsbetrag = New Global.System.Data.DataColumn("Sicherheitsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSicherheitsbetrag) Me.columnSgutKompl = New Global.System.Data.DataColumn("SgutKompl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSgutKompl) Me.columnBestimmungsland = New Global.System.Data.DataColumn("Bestimmungsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungsland) Me.columnEuFiskalEmpfänger = New Global.System.Data.DataColumn("EuFiskalEmpfänger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEuFiskalEmpfänger) Me.columnQKN = New Global.System.Data.DataColumn("QKN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQKN) Me.columnEndempfängerKundenNr = New Global.System.Data.DataColumn("EndempfängerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEndempfängerKundenNr) Me.columnEndempfänger = New Global.System.Data.DataColumn("Endempfänger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEndempfänger) Me.columnSB_Zeitstempel = New Global.System.Data.DataColumn("SB_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnAvisoID = New Global.System.Data.DataColumn("AvisoID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisoID) Me.columnSendungID = New Global.System.Data.DataColumn("SendungID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSendungID) Me.columnPersonalnummerQS = New Global.System.Data.DataColumn("PersonalnummerQS", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPersonalnummerQS) Me.columnAvisiererKundenNr = New Global.System.Data.DataColumn("AvisiererKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisiererKundenNr) Me.columnAvisierer = New Global.System.Data.DataColumn("Avisierer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisierer) Me.columnKdAuftragsNr = New Global.System.Data.DataColumn("KdAuftragsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdAuftragsNr) Me.columnGrenzstelle = New Global.System.Data.DataColumn("Grenzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGrenzstelle) Me.columnNCTS_Verzollungsadresse = New Global.System.Data.DataColumn("NCTS_Verzollungsadresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNCTS_Verzollungsadresse) Me.columnNCTS_VerzollungsadresseKdNr = New Global.System.Data.DataColumn("NCTS_VerzollungsadresseKdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNCTS_VerzollungsadresseKdNr) Me.columnNCTS_Verzollungsadresse_EORI = New Global.System.Data.DataColumn("NCTS_Verzollungsadresse_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNCTS_Verzollungsadresse_EORI) Me.columnNCTS_Bestimmungszollstelle = New Global.System.Data.DataColumn("NCTS_Bestimmungszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNCTS_Bestimmungszollstelle) Me.columnAuftraggeberBetragKassiert = New Global.System.Data.DataColumn("AuftraggeberBetragKassiert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAuftraggeberBetragKassiert) Me.columnKdAuftragsNrAvisierer = New Global.System.Data.DataColumn("KdAuftragsNrAvisierer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdAuftragsNrAvisierer) Me.columnKdAuftragsNrEmpfaenger = New Global.System.Data.DataColumn("KdAuftragsNrEmpfaenger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdAuftragsNrEmpfaenger) Me.columnKdAuftragsNrFrachtfuehrer = New Global.System.Data.DataColumn("KdAuftragsNrFrachtfuehrer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdAuftragsNrFrachtfuehrer) Me.columnLieferantenrechnung = New Global.System.Data.DataColumn("Lieferantenrechnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferantenrechnung) Me.columnDokumentId_Steuerbeleg = New Global.System.Data.DataColumn("DokumentId_Steuerbeleg", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentId_Steuerbeleg) Me.columnDokumentId_Mitteilung = New Global.System.Data.DataColumn("DokumentId_Mitteilung", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentId_Mitteilung) Me.columnDokumentId_VBD = New Global.System.Data.DataColumn("DokumentId_VBD", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentId_VBD) Me.columnDokumentId_ABD = New Global.System.Data.DataColumn("DokumentId_ABD", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentId_ABD) Me.columnDokumentId_AVM = New Global.System.Data.DataColumn("DokumentId_AVM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentId_AVM) Me.columnFilialenNrHandling = New Global.System.Data.DataColumn("FilialenNrHandling", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNrHandling) Me.columnFilialenNrAbklaerung = New Global.System.Data.DataColumn("FilialenNrAbklaerung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNrAbklaerung) Me.columnHandlingZuKassieren = New Global.System.Data.DataColumn("HandlingZuKassieren", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHandlingZuKassieren) Me.columnSB_CMRNr = New Global.System.Data.DataColumn("SB_CMRNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_CMRNr) Me.columnPersonalnummerAbklTR = New Global.System.Data.DataColumn("PersonalnummerAbklTR", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPersonalnummerAbklTR) Me.columnUK_EIDR_ausstehend = New Global.System.Data.DataColumn("UK_EIDR_ausstehend", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUK_EIDR_ausstehend) Me.columnZollstelle = New Global.System.Data.DataColumn("Zollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollstelle) Me.columnAtlasBezNrAES = New Global.System.Data.DataColumn("AtlasBezNrAES", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAtlasBezNrAES) Me.columnPackstücke_Zoll = New Global.System.Data.DataColumn("Packstücke_Zoll", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPackstücke_Zoll) Me.columnZollsystem_Land = New Global.System.Data.DataColumn("Zollsystem_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollsystem_Land) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFilialenNr, Me.columnAbfertigungsNr, Me.columnUnterNr}, true)) Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnAbfertigungsdatum.AllowDBNull = false Me.columnBar.AllowDBNull = false Me.columnFakturiert.AllowDBNull = false Me.columnBelegNr.MaxLength = 27 Me.columnErfassungsNr.MaxLength = 255 Me.columnLKW_Kennzeichen.MaxLength = 25 Me.columnAbsender.MaxLength = 50 Me.columnEmpfänger.MaxLength = 50 Me.columnVermittler.MaxLength = 50 Me.columnFrachtführer.MaxLength = 50 Me.columnAnzahlZA.AllowDBNull = false Me.columnAnzahlZAFremd.AllowDBNull = false Me.columnAnzahlZnV.AllowDBNull = false Me.columnAnzahlZnVFremd.AllowDBNull = false Me.columnAnzahlT1.AllowDBNull = false Me.columnAnzahlT2.AllowDBNull = false Me.columnAnzahlAE.AllowDBNull = false Me.columnAnzahlCarnetTIR.AllowDBNull = false Me.columnAnzahlBarvorlagen.AllowDBNull = false Me.columnAnzahlSonstiges.AllowDBNull = false Me.columnAnzahlGrenzgebühren.AllowDBNull = false Me.columnVermerk.MaxLength = 50 Me.columnBemerkungen.MaxLength = 1073741823 Me.columnPackstücke.MaxLength = 1073741823 Me.columnZahlungsaufschub.MaxLength = 20 Me.columnSachbearbeiter.MaxLength = 15 Me.columnAtlasBezNrEZA.MaxLength = 35 Me.columnAtlasBezNrNCTS.MaxLength = 22 Me.columnVersendungsland.MaxLength = 2 Me.columnSB_CMR.AllowDBNull = false Me.columnZucker_MRN_Nr.MaxLength = 18 Me.columnZucker_Aufschub.MaxLength = 1 Me.columnZollsystem.MaxLength = 10 Me.columnBestimmungszollstelle.MaxLength = 8 Me.columnBürgschaft.MaxLength = 35 Me.columnSgutKompl.MaxLength = 1 Me.columnBestimmungsland.MaxLength = 2 Me.columnEuFiskalEmpfänger.MaxLength = 50 Me.columnQKN.MaxLength = 20 Me.columnEndempfänger.MaxLength = 50 Me.columnupsize_ts.ReadOnly = true Me.columnAvisierer.MaxLength = 50 Me.columnKdAuftragsNr.MaxLength = 50 Me.columnGrenzstelle.MaxLength = 50 Me.columnNCTS_Verzollungsadresse.MaxLength = 255 Me.columnNCTS_Verzollungsadresse_EORI.MaxLength = 17 Me.columnNCTS_Bestimmungszollstelle.MaxLength = 8 Me.columnKdAuftragsNrAvisierer.MaxLength = 50 Me.columnKdAuftragsNrEmpfaenger.MaxLength = 50 Me.columnKdAuftragsNrFrachtfuehrer.MaxLength = 50 Me.columnLieferantenrechnung.MaxLength = 1000 Me.columnHandlingZuKassieren.AllowDBNull = false Me.columnSB_CMRNr.MaxLength = 100 Me.columnUK_EIDR_ausstehend.AllowDBNull = false Me.columnZollstelle.MaxLength = 8 Me.columnAtlasBezNrAES.MaxLength = 35 Me.columnPackstücke_Zoll.MaxLength = 1073741823 Me.columnZollsystem_Land.MaxLength = 3 End Sub _ Public Function NewSpeditionsbuchRow() As SpeditionsbuchRow Return CType(Me.NewRow,SpeditionsbuchRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New SpeditionsbuchRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(SpeditionsbuchRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.SpeditionsbuchRowChangedEvent) Is Nothing) Then RaiseEvent SpeditionsbuchRowChanged(Me, New SpeditionsbuchRowChangeEvent(CType(e.Row,SpeditionsbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.SpeditionsbuchRowChangingEvent) Is Nothing) Then RaiseEvent SpeditionsbuchRowChanging(Me, New SpeditionsbuchRowChangeEvent(CType(e.Row,SpeditionsbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.SpeditionsbuchRowDeletedEvent) Is Nothing) Then RaiseEvent SpeditionsbuchRowDeleted(Me, New SpeditionsbuchRowChangeEvent(CType(e.Row,SpeditionsbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.SpeditionsbuchRowDeletingEvent) Is Nothing) Then RaiseEvent SpeditionsbuchRowDeleting(Me, New SpeditionsbuchRowChangeEvent(CType(e.Row,SpeditionsbuchRow), e.Action)) End If End Sub _ Public Sub RemoveSpeditionsbuchRow(ByVal row As SpeditionsbuchRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "SpeditionsbuchDataTable" 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 StandardoffertenDataTable Inherits Global.System.Data.TypedTableBase(Of StandardoffertenRow) Private columnOffertenNr As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn Private columnBGebLeistungsNr As Global.System.Data.DataColumn Private columnBGebProzent As Global.System.Data.DataColumn Private columnBGebMinBetrag As Global.System.Data.DataColumn Private columnBerechnungsartPosInkludiert As Global.System.Data.DataColumn Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Standardofferten" 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 OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl End Get End Property _ Public ReadOnly Property BGebLeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebLeistungsNr End Get End Property _ Public ReadOnly Property BGebProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebProzent End Get End Property _ Public ReadOnly Property BGebMinBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebMinBetrag End Get End Property _ Public ReadOnly Property BerechnungsartPosInkludiertColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartPosInkludiert End Get End Property _ Public ReadOnly Property BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 StandardoffertenRow Get Return CType(Me.Rows(index),StandardoffertenRow) End Get End Property _ Public Event StandardoffertenRowChanging As StandardoffertenRowChangeEventHandler _ Public Event StandardoffertenRowChanged As StandardoffertenRowChangeEventHandler _ Public Event StandardoffertenRowDeleting As StandardoffertenRowChangeEventHandler _ Public Event StandardoffertenRowDeleted As StandardoffertenRowChangeEventHandler _ Public Overloads Sub AddStandardoffertenRow(ByVal row As StandardoffertenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddStandardoffertenRow(ByVal _parentOffertenstammRowByStandardofferten_OffertenstammStandardofferten As OffertenstammRow, ByVal Währungscode As String, ByVal _parentLeistungenRowByStandardofferten_LeistungenStandardofferten As LeistungenRow, ByVal LeistungsBez As String, ByVal Preis As Decimal, ByVal Anzahl As Short, ByVal BGebLeistungsNr As Short, ByVal BGebProzent As Single, ByVal BGebMinBetrag As Decimal, ByVal BerechnungsartPosInkludiert As Integer, ByVal BerechnungsartNr As Short, ByVal SSMA_TimeStamp() As Byte) As StandardoffertenRow Dim rowStandardoffertenRow As StandardoffertenRow = CType(Me.NewRow,StandardoffertenRow) Dim columnValuesArray() As Object = New Object() {Nothing, Währungscode, Nothing, LeistungsBez, Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, BerechnungsartPosInkludiert, BerechnungsartNr, SSMA_TimeStamp} If (Not (_parentOffertenstammRowByStandardofferten_OffertenstammStandardofferten) Is Nothing) Then columnValuesArray(0) = _parentOffertenstammRowByStandardofferten_OffertenstammStandardofferten(0) End If If (Not (_parentLeistungenRowByStandardofferten_LeistungenStandardofferten) Is Nothing) Then columnValuesArray(2) = _parentLeistungenRowByStandardofferten_LeistungenStandardofferten(0) End If rowStandardoffertenRow.ItemArray = columnValuesArray Me.Rows.Add(rowStandardoffertenRow) Return rowStandardoffertenRow End Function _ Public Function FindByOffertenNrWährungscodeLeistungsNrLeistungsBez(ByVal OffertenNr As Integer, ByVal Währungscode As String, ByVal LeistungsNr As Short, ByVal LeistungsBez As String) As StandardoffertenRow Return CType(Me.Rows.Find(New Object() {OffertenNr, Währungscode, LeistungsNr, LeistungsBez}),StandardoffertenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As StandardoffertenDataTable = CType(MyBase.Clone,StandardoffertenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New StandardoffertenDataTable() End Function _ Friend Sub InitVars() Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me.columnWährungscode = MyBase.Columns("Währungscode") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnPreis = MyBase.Columns("Preis") Me.columnAnzahl = MyBase.Columns("Anzahl") Me.columnBGebLeistungsNr = MyBase.Columns("BGebLeistungsNr") Me.columnBGebProzent = MyBase.Columns("BGebProzent") Me.columnBGebMinBetrag = MyBase.Columns("BGebMinBetrag") Me.columnBerechnungsartPosInkludiert = MyBase.Columns("BerechnungsartPosInkludiert") Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) Me.columnBGebLeistungsNr = New Global.System.Data.DataColumn("BGebLeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebLeistungsNr) Me.columnBGebProzent = New Global.System.Data.DataColumn("BGebProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebProzent) Me.columnBGebMinBetrag = New Global.System.Data.DataColumn("BGebMinBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebMinBetrag) Me.columnBerechnungsartPosInkludiert = New Global.System.Data.DataColumn("BerechnungsartPosInkludiert", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartPosInkludiert) Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnOffertenNr, Me.columnWährungscode, Me.columnLeistungsNr, Me.columnLeistungsBez}, true)) Me.columnOffertenNr.AllowDBNull = false Me.columnWährungscode.AllowDBNull = false Me.columnWährungscode.MaxLength = 3 Me.columnLeistungsNr.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewStandardoffertenRow() As StandardoffertenRow Return CType(Me.NewRow,StandardoffertenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New StandardoffertenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(StandardoffertenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.StandardoffertenRowChangedEvent) Is Nothing) Then RaiseEvent StandardoffertenRowChanged(Me, New StandardoffertenRowChangeEvent(CType(e.Row,StandardoffertenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.StandardoffertenRowChangingEvent) Is Nothing) Then RaiseEvent StandardoffertenRowChanging(Me, New StandardoffertenRowChangeEvent(CType(e.Row,StandardoffertenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.StandardoffertenRowDeletedEvent) Is Nothing) Then RaiseEvent StandardoffertenRowDeleted(Me, New StandardoffertenRowChangeEvent(CType(e.Row,StandardoffertenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.StandardoffertenRowDeletingEvent) Is Nothing) Then RaiseEvent StandardoffertenRowDeleting(Me, New StandardoffertenRowChangeEvent(CType(e.Row,StandardoffertenRow), e.Action)) End If End Sub _ Public Sub RemoveStandardoffertenRow(ByVal row As StandardoffertenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "StandardoffertenDataTable" 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 StandardoffertenFirmaDataTable Inherits Global.System.Data.TypedTableBase(Of StandardoffertenFirmaRow) Private columnOffertenNr As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn Private columnBGebLeistungsNr As Global.System.Data.DataColumn Private columnBGebProzent As Global.System.Data.DataColumn Private columnBGebMinBetrag As Global.System.Data.DataColumn Private columnFirma As Global.System.Data.DataColumn Private columnBerechnungsartPosInkludiert As Global.System.Data.DataColumn Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "StandardoffertenFirma" 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 OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl End Get End Property _ Public ReadOnly Property BGebLeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebLeistungsNr End Get End Property _ Public ReadOnly Property BGebProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebProzent End Get End Property _ Public ReadOnly Property BGebMinBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebMinBetrag End Get End Property _ Public ReadOnly Property FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma End Get End Property _ Public ReadOnly Property BerechnungsartPosInkludiertColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartPosInkludiert End Get End Property _ Public ReadOnly Property BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 StandardoffertenFirmaRow Get Return CType(Me.Rows(index),StandardoffertenFirmaRow) End Get End Property _ Public Event StandardoffertenFirmaRowChanging As StandardoffertenFirmaRowChangeEventHandler _ Public Event StandardoffertenFirmaRowChanged As StandardoffertenFirmaRowChangeEventHandler _ Public Event StandardoffertenFirmaRowDeleting As StandardoffertenFirmaRowChangeEventHandler _ Public Event StandardoffertenFirmaRowDeleted As StandardoffertenFirmaRowChangeEventHandler _ Public Overloads Sub AddStandardoffertenFirmaRow(ByVal row As StandardoffertenFirmaRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddStandardoffertenFirmaRow(ByVal _parentOffertenstammRowByStandardoffertenFirma_OffertenstammStandardofferten As OffertenstammRow, ByVal Währungscode As String, ByVal _parentLeistungenRowByStandardoffertenFirma_LeistungenStandardofferten As LeistungenRow, ByVal LeistungsBez As String, ByVal Preis As Decimal, ByVal Anzahl As Short, ByVal BGebLeistungsNr As Short, ByVal BGebProzent As Single, ByVal BGebMinBetrag As Decimal, ByVal Firma As String, ByVal BerechnungsartPosInkludiert As Integer, ByVal BerechnungsartNr As Short, ByVal SSMA_TimeStamp() As Byte) As StandardoffertenFirmaRow Dim rowStandardoffertenFirmaRow As StandardoffertenFirmaRow = CType(Me.NewRow,StandardoffertenFirmaRow) Dim columnValuesArray() As Object = New Object() {Nothing, Währungscode, Nothing, LeistungsBez, Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, Firma, BerechnungsartPosInkludiert, BerechnungsartNr, SSMA_TimeStamp} If (Not (_parentOffertenstammRowByStandardoffertenFirma_OffertenstammStandardofferten) Is Nothing) Then columnValuesArray(0) = _parentOffertenstammRowByStandardoffertenFirma_OffertenstammStandardofferten(0) End If If (Not (_parentLeistungenRowByStandardoffertenFirma_LeistungenStandardofferten) Is Nothing) Then columnValuesArray(2) = _parentLeistungenRowByStandardoffertenFirma_LeistungenStandardofferten(0) End If rowStandardoffertenFirmaRow.ItemArray = columnValuesArray Me.Rows.Add(rowStandardoffertenFirmaRow) Return rowStandardoffertenFirmaRow End Function _ Public Function FindByOffertenNrWährungscodeLeistungsNrLeistungsBezFirma(ByVal OffertenNr As Integer, ByVal Währungscode As String, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Firma As String) As StandardoffertenFirmaRow Return CType(Me.Rows.Find(New Object() {OffertenNr, Währungscode, LeistungsNr, LeistungsBez, Firma}),StandardoffertenFirmaRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As StandardoffertenFirmaDataTable = CType(MyBase.Clone,StandardoffertenFirmaDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New StandardoffertenFirmaDataTable() End Function _ Friend Sub InitVars() Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me.columnWährungscode = MyBase.Columns("Währungscode") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnPreis = MyBase.Columns("Preis") Me.columnAnzahl = MyBase.Columns("Anzahl") Me.columnBGebLeistungsNr = MyBase.Columns("BGebLeistungsNr") Me.columnBGebProzent = MyBase.Columns("BGebProzent") Me.columnBGebMinBetrag = MyBase.Columns("BGebMinBetrag") Me.columnFirma = MyBase.Columns("Firma") Me.columnBerechnungsartPosInkludiert = MyBase.Columns("BerechnungsartPosInkludiert") Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) Me.columnBGebLeistungsNr = New Global.System.Data.DataColumn("BGebLeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebLeistungsNr) Me.columnBGebProzent = New Global.System.Data.DataColumn("BGebProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebProzent) Me.columnBGebMinBetrag = New Global.System.Data.DataColumn("BGebMinBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebMinBetrag) Me.columnFirma = New Global.System.Data.DataColumn("Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma) Me.columnBerechnungsartPosInkludiert = New Global.System.Data.DataColumn("BerechnungsartPosInkludiert", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartPosInkludiert) Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnOffertenNr, Me.columnWährungscode, Me.columnLeistungsNr, Me.columnLeistungsBez, Me.columnFirma}, true)) Me.columnOffertenNr.AllowDBNull = false Me.columnWährungscode.AllowDBNull = false Me.columnWährungscode.MaxLength = 3 Me.columnLeistungsNr.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnFirma.AllowDBNull = false Me.columnFirma.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewStandardoffertenFirmaRow() As StandardoffertenFirmaRow Return CType(Me.NewRow,StandardoffertenFirmaRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New StandardoffertenFirmaRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(StandardoffertenFirmaRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.StandardoffertenFirmaRowChangedEvent) Is Nothing) Then RaiseEvent StandardoffertenFirmaRowChanged(Me, New StandardoffertenFirmaRowChangeEvent(CType(e.Row,StandardoffertenFirmaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.StandardoffertenFirmaRowChangingEvent) Is Nothing) Then RaiseEvent StandardoffertenFirmaRowChanging(Me, New StandardoffertenFirmaRowChangeEvent(CType(e.Row,StandardoffertenFirmaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.StandardoffertenFirmaRowDeletedEvent) Is Nothing) Then RaiseEvent StandardoffertenFirmaRowDeleted(Me, New StandardoffertenFirmaRowChangeEvent(CType(e.Row,StandardoffertenFirmaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.StandardoffertenFirmaRowDeletingEvent) Is Nothing) Then RaiseEvent StandardoffertenFirmaRowDeleting(Me, New StandardoffertenFirmaRowChangeEvent(CType(e.Row,StandardoffertenFirmaRow), e.Action)) End If End Sub _ Public Sub RemoveStandardoffertenFirmaRow(ByVal row As StandardoffertenFirmaRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "StandardoffertenFirmaDataTable" 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 SteuertabelleDataTable Inherits Global.System.Data.TypedTableBase(Of SteuertabelleRow) Private columnSteuerschlüssel As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnSteuerbezeichnung As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnAuswahlSteuerbezeichnung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Steuertabelle" 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 SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property SteuerbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbezeichnung End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property AuswahlSteuerbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnAuswahlSteuerbezeichnung 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 SteuertabelleRow Get Return CType(Me.Rows(index),SteuertabelleRow) End Get End Property _ Public Event SteuertabelleRowChanging As SteuertabelleRowChangeEventHandler _ Public Event SteuertabelleRowChanged As SteuertabelleRowChangeEventHandler _ Public Event SteuertabelleRowDeleting As SteuertabelleRowChangeEventHandler _ Public Event SteuertabelleRowDeleted As SteuertabelleRowChangeEventHandler _ Public Overloads Sub AddSteuertabelleRow(ByVal row As SteuertabelleRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddSteuertabelleRow(ByVal Steuerschlüssel As Short, ByVal _Steuersatz__ As Single, ByVal Steuerbezeichnung As String, ByVal SSMA_TimeStamp() As Byte, ByVal AuswahlSteuerbezeichnung As String) As SteuertabelleRow Dim rowSteuertabelleRow As SteuertabelleRow = CType(Me.NewRow,SteuertabelleRow) Dim columnValuesArray() As Object = New Object() {Steuerschlüssel, _Steuersatz__, Steuerbezeichnung, SSMA_TimeStamp, AuswahlSteuerbezeichnung} rowSteuertabelleRow.ItemArray = columnValuesArray Me.Rows.Add(rowSteuertabelleRow) Return rowSteuertabelleRow End Function _ Public Function FindBySteuerschlüssel(ByVal Steuerschlüssel As Short) As SteuertabelleRow Return CType(Me.Rows.Find(New Object() {Steuerschlüssel}),SteuertabelleRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As SteuertabelleDataTable = CType(MyBase.Clone,SteuertabelleDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New SteuertabelleDataTable() End Function _ Friend Sub InitVars() Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnSteuerbezeichnung = MyBase.Columns("Steuerbezeichnung") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnAuswahlSteuerbezeichnung = MyBase.Columns("AuswahlSteuerbezeichnung") End Sub _ Private Sub InitClass() Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnSteuerbezeichnung = New Global.System.Data.DataColumn("Steuerbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbezeichnung) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnAuswahlSteuerbezeichnung = New Global.System.Data.DataColumn("AuswahlSteuerbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAuswahlSteuerbezeichnung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSteuerschlüssel}, true)) Me.columnSteuerschlüssel.AllowDBNull = false Me.columnSteuerschlüssel.Unique = true Me._columnSteuersatz__.AllowDBNull = false Me.columnSteuerbezeichnung.MaxLength = 55 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnAuswahlSteuerbezeichnung.MaxLength = 55 End Sub _ Public Function NewSteuertabelleRow() As SteuertabelleRow Return CType(Me.NewRow,SteuertabelleRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New SteuertabelleRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(SteuertabelleRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.SteuertabelleRowChangedEvent) Is Nothing) Then RaiseEvent SteuertabelleRowChanged(Me, New SteuertabelleRowChangeEvent(CType(e.Row,SteuertabelleRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.SteuertabelleRowChangingEvent) Is Nothing) Then RaiseEvent SteuertabelleRowChanging(Me, New SteuertabelleRowChangeEvent(CType(e.Row,SteuertabelleRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.SteuertabelleRowDeletedEvent) Is Nothing) Then RaiseEvent SteuertabelleRowDeleted(Me, New SteuertabelleRowChangeEvent(CType(e.Row,SteuertabelleRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.SteuertabelleRowDeletingEvent) Is Nothing) Then RaiseEvent SteuertabelleRowDeleting(Me, New SteuertabelleRowChangeEvent(CType(e.Row,SteuertabelleRow), e.Action)) End If End Sub _ Public Sub RemoveSteuertabelleRow(ByVal row As SteuertabelleRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "SteuertabelleDataTable" 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 tbl_ASFINAG_FileInfoDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_ASFINAG_FileInfoRow) Private columnFileName As Global.System.Data.DataColumn Private columnRunNumber As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_ASFINAG_FileInfo" 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 FileNameColumn() As Global.System.Data.DataColumn Get Return Me.columnFileName End Get End Property _ Public ReadOnly Property RunNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnRunNumber End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_ASFINAG_FileInfoRow Get Return CType(Me.Rows(index),tbl_ASFINAG_FileInfoRow) End Get End Property _ Public Event tbl_ASFINAG_FileInfoRowChanging As tbl_ASFINAG_FileInfoRowChangeEventHandler _ Public Event tbl_ASFINAG_FileInfoRowChanged As tbl_ASFINAG_FileInfoRowChangeEventHandler _ Public Event tbl_ASFINAG_FileInfoRowDeleting As tbl_ASFINAG_FileInfoRowChangeEventHandler _ Public Event tbl_ASFINAG_FileInfoRowDeleted As tbl_ASFINAG_FileInfoRowChangeEventHandler _ Public Overloads Sub Addtbl_ASFINAG_FileInfoRow(ByVal row As tbl_ASFINAG_FileInfoRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_ASFINAG_FileInfoRow(ByVal FileName As String, ByVal RunNumber As Short, ByVal SSMA_TimeStamp() As Byte) As tbl_ASFINAG_FileInfoRow Dim rowtbl_ASFINAG_FileInfoRow As tbl_ASFINAG_FileInfoRow = CType(Me.NewRow,tbl_ASFINAG_FileInfoRow) Dim columnValuesArray() As Object = New Object() {FileName, RunNumber, SSMA_TimeStamp} rowtbl_ASFINAG_FileInfoRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_ASFINAG_FileInfoRow) Return rowtbl_ASFINAG_FileInfoRow End Function _ Public Function FindByFileName(ByVal FileName As String) As tbl_ASFINAG_FileInfoRow Return CType(Me.Rows.Find(New Object() {FileName}),tbl_ASFINAG_FileInfoRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_ASFINAG_FileInfoDataTable = CType(MyBase.Clone,tbl_ASFINAG_FileInfoDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_ASFINAG_FileInfoDataTable() End Function _ Friend Sub InitVars() Me.columnFileName = MyBase.Columns("FileName") Me.columnRunNumber = MyBase.Columns("RunNumber") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnFileName = New Global.System.Data.DataColumn("FileName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFileName) Me.columnRunNumber = New Global.System.Data.DataColumn("RunNumber", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRunNumber) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFileName}, true)) Me.columnFileName.AllowDBNull = false Me.columnFileName.Unique = true Me.columnFileName.MaxLength = 3 Me.columnRunNumber.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_ASFINAG_FileInfoRow() As tbl_ASFINAG_FileInfoRow Return CType(Me.NewRow,tbl_ASFINAG_FileInfoRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_ASFINAG_FileInfoRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_ASFINAG_FileInfoRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_ASFINAG_FileInfoRowChangedEvent) Is Nothing) Then RaiseEvent tbl_ASFINAG_FileInfoRowChanged(Me, New tbl_ASFINAG_FileInfoRowChangeEvent(CType(e.Row,tbl_ASFINAG_FileInfoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_ASFINAG_FileInfoRowChangingEvent) Is Nothing) Then RaiseEvent tbl_ASFINAG_FileInfoRowChanging(Me, New tbl_ASFINAG_FileInfoRowChangeEvent(CType(e.Row,tbl_ASFINAG_FileInfoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_ASFINAG_FileInfoRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_ASFINAG_FileInfoRowDeleted(Me, New tbl_ASFINAG_FileInfoRowChangeEvent(CType(e.Row,tbl_ASFINAG_FileInfoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_ASFINAG_FileInfoRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_ASFINAG_FileInfoRowDeleting(Me, New tbl_ASFINAG_FileInfoRowChangeEvent(CType(e.Row,tbl_ASFINAG_FileInfoRow), e.Action)) End If End Sub _ Public Sub Removetbl_ASFINAG_FileInfoRow(ByVal row As tbl_ASFINAG_FileInfoRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_ASFINAG_FileInfoDataTable" 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 tbl_BMD_LänderDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_BMD_LänderRow) Private columnBMD_Ländernummer As Global.System.Data.DataColumn Private columnBMD_Ländername As Global.System.Data.DataColumn Private columnBMD_Beitrittsdatum_EU As Global.System.Data.DataColumn Private columnFMZ_Ländernummer As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_BMD_Länder" 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 BMD_LändernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBMD_Ländernummer End Get End Property _ Public ReadOnly Property BMD_LändernameColumn() As Global.System.Data.DataColumn Get Return Me.columnBMD_Ländername End Get End Property _ Public ReadOnly Property BMD_Beitrittsdatum_EUColumn() As Global.System.Data.DataColumn Get Return Me.columnBMD_Beitrittsdatum_EU End Get End Property _ Public ReadOnly Property FMZ_LändernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnFMZ_Ländernummer End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_BMD_LänderRow Get Return CType(Me.Rows(index),tbl_BMD_LänderRow) End Get End Property _ Public Event tbl_BMD_LänderRowChanging As tbl_BMD_LänderRowChangeEventHandler _ Public Event tbl_BMD_LänderRowChanged As tbl_BMD_LänderRowChangeEventHandler _ Public Event tbl_BMD_LänderRowDeleting As tbl_BMD_LänderRowChangeEventHandler _ Public Event tbl_BMD_LänderRowDeleted As tbl_BMD_LänderRowChangeEventHandler _ Public Overloads Sub Addtbl_BMD_LänderRow(ByVal row As tbl_BMD_LänderRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_BMD_LänderRow(ByVal BMD_Ländernummer As Short, ByVal BMD_Ländername As String, ByVal BMD_Beitrittsdatum_EU As Date, ByVal FMZ_Ländernummer As Short, ByVal SSMA_TimeStamp() As Byte) As tbl_BMD_LänderRow Dim rowtbl_BMD_LänderRow As tbl_BMD_LänderRow = CType(Me.NewRow,tbl_BMD_LänderRow) Dim columnValuesArray() As Object = New Object() {BMD_Ländernummer, BMD_Ländername, BMD_Beitrittsdatum_EU, FMZ_Ländernummer, SSMA_TimeStamp} rowtbl_BMD_LänderRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_BMD_LänderRow) Return rowtbl_BMD_LänderRow End Function _ Public Function FindByBMD_Ländernummer(ByVal BMD_Ländernummer As Short) As tbl_BMD_LänderRow Return CType(Me.Rows.Find(New Object() {BMD_Ländernummer}),tbl_BMD_LänderRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_BMD_LänderDataTable = CType(MyBase.Clone,tbl_BMD_LänderDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_BMD_LänderDataTable() End Function _ Friend Sub InitVars() Me.columnBMD_Ländernummer = MyBase.Columns("BMD_Ländernummer") Me.columnBMD_Ländername = MyBase.Columns("BMD_Ländername") Me.columnBMD_Beitrittsdatum_EU = MyBase.Columns("BMD_Beitrittsdatum_EU") Me.columnFMZ_Ländernummer = MyBase.Columns("FMZ_Ländernummer") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnBMD_Ländernummer = New Global.System.Data.DataColumn("BMD_Ländernummer", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBMD_Ländernummer) Me.columnBMD_Ländername = New Global.System.Data.DataColumn("BMD_Ländername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBMD_Ländername) Me.columnBMD_Beitrittsdatum_EU = New Global.System.Data.DataColumn("BMD_Beitrittsdatum_EU", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBMD_Beitrittsdatum_EU) Me.columnFMZ_Ländernummer = New Global.System.Data.DataColumn("FMZ_Ländernummer", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFMZ_Ländernummer) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBMD_Ländernummer}, true)) Me.columnBMD_Ländernummer.AllowDBNull = false Me.columnBMD_Ländernummer.Unique = true Me.columnBMD_Ländername.AllowDBNull = false Me.columnBMD_Ländername.MaxLength = 40 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_BMD_LänderRow() As tbl_BMD_LänderRow Return CType(Me.NewRow,tbl_BMD_LänderRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_BMD_LänderRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_BMD_LänderRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_BMD_LänderRowChangedEvent) Is Nothing) Then RaiseEvent tbl_BMD_LänderRowChanged(Me, New tbl_BMD_LänderRowChangeEvent(CType(e.Row,tbl_BMD_LänderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_BMD_LänderRowChangingEvent) Is Nothing) Then RaiseEvent tbl_BMD_LänderRowChanging(Me, New tbl_BMD_LänderRowChangeEvent(CType(e.Row,tbl_BMD_LänderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_BMD_LänderRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_BMD_LänderRowDeleted(Me, New tbl_BMD_LänderRowChangeEvent(CType(e.Row,tbl_BMD_LänderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_BMD_LänderRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_BMD_LänderRowDeleting(Me, New tbl_BMD_LänderRowChangeEvent(CType(e.Row,tbl_BMD_LänderRow), e.Action)) End If End Sub _ Public Sub Removetbl_BMD_LänderRow(ByVal row As tbl_BMD_LänderRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_BMD_LänderDataTable" 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 tbl_DY_ParamterDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ParamterRow) Private columndyParam_name As Global.System.Data.DataColumn Private columndyParam_value As Global.System.Data.DataColumn Private columndyParam_firma As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_Paramter" 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 dyParam_nameColumn() As Global.System.Data.DataColumn Get Return Me.columndyParam_name End Get End Property _ Public ReadOnly Property dyParam_valueColumn() As Global.System.Data.DataColumn Get Return Me.columndyParam_value End Get End Property _ Public ReadOnly Property dyParam_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columndyParam_firma 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 tbl_DY_ParamterRow Get Return CType(Me.Rows(index),tbl_DY_ParamterRow) End Get End Property _ Public Event tbl_DY_ParamterRowChanging As tbl_DY_ParamterRowChangeEventHandler _ Public Event tbl_DY_ParamterRowChanged As tbl_DY_ParamterRowChangeEventHandler _ Public Event tbl_DY_ParamterRowDeleting As tbl_DY_ParamterRowChangeEventHandler _ Public Event tbl_DY_ParamterRowDeleted As tbl_DY_ParamterRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ParamterRow(ByVal row As tbl_DY_ParamterRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ParamterRow(ByVal dyParam_name As String, ByVal dyParam_value As String, ByVal dyParam_firma As String) As tbl_DY_ParamterRow Dim rowtbl_DY_ParamterRow As tbl_DY_ParamterRow = CType(Me.NewRow,tbl_DY_ParamterRow) Dim columnValuesArray() As Object = New Object() {dyParam_name, dyParam_value, dyParam_firma} rowtbl_DY_ParamterRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ParamterRow) Return rowtbl_DY_ParamterRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ParamterDataTable = CType(MyBase.Clone,tbl_DY_ParamterDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ParamterDataTable() End Function _ Friend Sub InitVars() Me.columndyParam_name = MyBase.Columns("dyParam_name") Me.columndyParam_value = MyBase.Columns("dyParam_value") Me.columndyParam_firma = MyBase.Columns("dyParam_firma") End Sub _ Private Sub InitClass() Me.columndyParam_name = New Global.System.Data.DataColumn("dyParam_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndyParam_name) Me.columndyParam_value = New Global.System.Data.DataColumn("dyParam_value", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndyParam_value) Me.columndyParam_firma = New Global.System.Data.DataColumn("dyParam_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndyParam_firma) Me.columndyParam_name.AllowDBNull = false Me.columndyParam_name.MaxLength = 200 Me.columndyParam_value.AllowDBNull = false Me.columndyParam_value.MaxLength = 500 Me.columndyParam_firma.AllowDBNull = false Me.columndyParam_firma.MaxLength = 50 End Sub _ Public Function Newtbl_DY_ParamterRow() As tbl_DY_ParamterRow Return CType(Me.NewRow,tbl_DY_ParamterRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ParamterRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ParamterRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ParamterRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ParamterRowChanged(Me, New tbl_DY_ParamterRowChangeEvent(CType(e.Row,tbl_DY_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ParamterRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ParamterRowChanging(Me, New tbl_DY_ParamterRowChangeEvent(CType(e.Row,tbl_DY_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ParamterRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ParamterRowDeleted(Me, New tbl_DY_ParamterRowChangeEvent(CType(e.Row,tbl_DY_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ParamterRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ParamterRowDeleting(Me, New tbl_DY_ParamterRowChangeEvent(CType(e.Row,tbl_DY_ParamterRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ParamterRow(ByVal row As tbl_DY_ParamterRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ParamterDataTable" 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 tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow) Private columnCode As Global.System.Data.DataColumn Private columnQualifier As Global.System.Data.DataColumn Private columnNote As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property QualifierColumn() As Global.System.Data.DataColumn Get Return Me.columnQualifier End Get End Property _ Public ReadOnly Property NoteColumn() As Global.System.Data.DataColumn Get Return Me.columnNote End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow) End Get End Property _ Public Event tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChanging As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEventHandler _ Public Event tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChanged As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEventHandler _ Public Event tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowDeleting As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEventHandler _ Public Event tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowDeleted As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow(ByVal row As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow(ByVal Code As String, ByVal Qualifier As String, ByVal Note As String, ByVal Description As String) As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow Dim rowtbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow = CType(Me.NewRow,tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow) Dim columnValuesArray() As Object = New Object() {Code, Qualifier, Note, Description} rowtbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow) Return rowtbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnQualifier = MyBase.Columns("Qualifier") Me.columnNote = MyBase.Columns("Note") Me.columnDescription = MyBase.Columns("Description") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnQualifier = New Global.System.Data.DataColumn("Qualifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQualifier) Me.columnNote = New Global.System.Data.DataColumn("Note", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNote) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) Me.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 2 Me.columnQualifier.AllowDBNull = false Me.columnQualifier.MaxLength = 1 Me.columnNote.MaxLength = 200 Me.columnDescription.MaxLength = 500 End Sub _ Public Function Newtbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow() As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow Return CType(Me.NewRow,tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChanged(Me, New tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChanging(Me, New tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowDeleted(Me, New tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowDeleting(Me, New tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow(ByVal row As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable" 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 tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow) Private columnCode As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_A0127_BeteiligtenKonstellation" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow) End Get End Property _ Public Event tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChanging As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEventHandler _ Public Event tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChanged As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEventHandler _ Public Event tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowDeleting As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEventHandler _ Public Event tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowDeleted As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow(ByVal row As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow(ByVal Code As String, ByVal Description As String) As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow Dim rowtbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow = CType(Me.NewRow,tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow) Dim columnValuesArray() As Object = New Object() {Code, Description} rowtbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow) Return rowtbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnDescription = MyBase.Columns("Description") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) Me.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 4 Me.columnDescription.MaxLength = 500 End Sub _ Public Function Newtbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow() As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow Return CType(Me.NewRow,tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChanged(Me, New tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChanging(Me, New tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowDeleted(Me, New tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowDeleting(Me, New tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow(ByVal row As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable" 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 tbl_DY_ZollDE_C0008_LaenderFullDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_C0008_LaenderFullRow) Private columnCode As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_C0008_LaenderFull" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DY_ZollDE_C0008_LaenderFullRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_C0008_LaenderFullRow) End Get End Property _ Public Event tbl_DY_ZollDE_C0008_LaenderFullRowChanging As tbl_DY_ZollDE_C0008_LaenderFullRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0008_LaenderFullRowChanged As tbl_DY_ZollDE_C0008_LaenderFullRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0008_LaenderFullRowDeleting As tbl_DY_ZollDE_C0008_LaenderFullRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0008_LaenderFullRowDeleted As tbl_DY_ZollDE_C0008_LaenderFullRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_C0008_LaenderFullRow(ByVal row As tbl_DY_ZollDE_C0008_LaenderFullRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_C0008_LaenderFullRow(ByVal Code As String, ByVal Description As String, ByVal StartDate As Date, ByVal EndDate As Date) As tbl_DY_ZollDE_C0008_LaenderFullRow Dim rowtbl_DY_ZollDE_C0008_LaenderFullRow As tbl_DY_ZollDE_C0008_LaenderFullRow = CType(Me.NewRow,tbl_DY_ZollDE_C0008_LaenderFullRow) Dim columnValuesArray() As Object = New Object() {Code, Description, StartDate, EndDate} rowtbl_DY_ZollDE_C0008_LaenderFullRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_C0008_LaenderFullRow) Return rowtbl_DY_ZollDE_C0008_LaenderFullRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_C0008_LaenderFullDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_C0008_LaenderFullDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_C0008_LaenderFullDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnDescription = MyBase.Columns("Description") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) 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.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 2 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 200 End Sub _ Public Function Newtbl_DY_ZollDE_C0008_LaenderFullRow() As tbl_DY_ZollDE_C0008_LaenderFullRow Return CType(Me.NewRow,tbl_DY_ZollDE_C0008_LaenderFullRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_C0008_LaenderFullRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_C0008_LaenderFullRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_C0008_LaenderFullRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0008_LaenderFullRowChanged(Me, New tbl_DY_ZollDE_C0008_LaenderFullRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0008_LaenderFullRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_C0008_LaenderFullRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0008_LaenderFullRowChanging(Me, New tbl_DY_ZollDE_C0008_LaenderFullRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0008_LaenderFullRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_C0008_LaenderFullRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0008_LaenderFullRowDeleted(Me, New tbl_DY_ZollDE_C0008_LaenderFullRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0008_LaenderFullRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_C0008_LaenderFullRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0008_LaenderFullRowDeleting(Me, New tbl_DY_ZollDE_C0008_LaenderFullRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0008_LaenderFullRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_C0008_LaenderFullRow(ByVal row As tbl_DY_ZollDE_C0008_LaenderFullRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_C0008_LaenderFullDataTable" 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 tbl_DY_ZollDE_C0010_LaenderAESDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_C0010_LaenderAESRow) Private columnCode As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_C0010_LaenderAES" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DY_ZollDE_C0010_LaenderAESRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_C0010_LaenderAESRow) End Get End Property _ Public Event tbl_DY_ZollDE_C0010_LaenderAESRowChanging As tbl_DY_ZollDE_C0010_LaenderAESRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0010_LaenderAESRowChanged As tbl_DY_ZollDE_C0010_LaenderAESRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0010_LaenderAESRowDeleting As tbl_DY_ZollDE_C0010_LaenderAESRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0010_LaenderAESRowDeleted As tbl_DY_ZollDE_C0010_LaenderAESRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_C0010_LaenderAESRow(ByVal row As tbl_DY_ZollDE_C0010_LaenderAESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_C0010_LaenderAESRow(ByVal Code As String, ByVal Description As String, ByVal StartDate As Date, ByVal EndDate As Date) As tbl_DY_ZollDE_C0010_LaenderAESRow Dim rowtbl_DY_ZollDE_C0010_LaenderAESRow As tbl_DY_ZollDE_C0010_LaenderAESRow = CType(Me.NewRow,tbl_DY_ZollDE_C0010_LaenderAESRow) Dim columnValuesArray() As Object = New Object() {Code, Description, StartDate, EndDate} rowtbl_DY_ZollDE_C0010_LaenderAESRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_C0010_LaenderAESRow) Return rowtbl_DY_ZollDE_C0010_LaenderAESRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_C0010_LaenderAESDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_C0010_LaenderAESDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_C0010_LaenderAESDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnDescription = MyBase.Columns("Description") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) 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.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 2 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 200 End Sub _ Public Function Newtbl_DY_ZollDE_C0010_LaenderAESRow() As tbl_DY_ZollDE_C0010_LaenderAESRow Return CType(Me.NewRow,tbl_DY_ZollDE_C0010_LaenderAESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_C0010_LaenderAESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_C0010_LaenderAESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_C0010_LaenderAESRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0010_LaenderAESRowChanged(Me, New tbl_DY_ZollDE_C0010_LaenderAESRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0010_LaenderAESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_C0010_LaenderAESRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0010_LaenderAESRowChanging(Me, New tbl_DY_ZollDE_C0010_LaenderAESRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0010_LaenderAESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_C0010_LaenderAESRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0010_LaenderAESRowDeleted(Me, New tbl_DY_ZollDE_C0010_LaenderAESRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0010_LaenderAESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_C0010_LaenderAESRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0010_LaenderAESRowDeleting(Me, New tbl_DY_ZollDE_C0010_LaenderAESRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0010_LaenderAESRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_C0010_LaenderAESRow(ByVal row As tbl_DY_ZollDE_C0010_LaenderAESRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_C0010_LaenderAESDataTable" 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 tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_C0013_UnterlagenArtenRow) Private columnCode As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_C0013_UnterlagenArten" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DY_ZollDE_C0013_UnterlagenArtenRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_C0013_UnterlagenArtenRow) End Get End Property _ Public Event tbl_DY_ZollDE_C0013_UnterlagenArtenRowChanging As tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0013_UnterlagenArtenRowChanged As tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0013_UnterlagenArtenRowDeleting As tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0013_UnterlagenArtenRowDeleted As tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_C0013_UnterlagenArtenRow(ByVal row As tbl_DY_ZollDE_C0013_UnterlagenArtenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_C0013_UnterlagenArtenRow(ByVal Code As String, ByVal Description As String, ByVal StartDate As Date, ByVal EndDate As Date) As tbl_DY_ZollDE_C0013_UnterlagenArtenRow Dim rowtbl_DY_ZollDE_C0013_UnterlagenArtenRow As tbl_DY_ZollDE_C0013_UnterlagenArtenRow = CType(Me.NewRow,tbl_DY_ZollDE_C0013_UnterlagenArtenRow) Dim columnValuesArray() As Object = New Object() {Code, Description, StartDate, EndDate} rowtbl_DY_ZollDE_C0013_UnterlagenArtenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_C0013_UnterlagenArtenRow) Return rowtbl_DY_ZollDE_C0013_UnterlagenArtenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnDescription = MyBase.Columns("Description") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) 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.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 5 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 500 End Sub _ Public Function Newtbl_DY_ZollDE_C0013_UnterlagenArtenRow() As tbl_DY_ZollDE_C0013_UnterlagenArtenRow Return CType(Me.NewRow,tbl_DY_ZollDE_C0013_UnterlagenArtenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_C0013_UnterlagenArtenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_C0013_UnterlagenArtenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0013_UnterlagenArtenRowChanged(Me, New tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0013_UnterlagenArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0013_UnterlagenArtenRowChanging(Me, New tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0013_UnterlagenArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_C0013_UnterlagenArtenRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0013_UnterlagenArtenRowDeleted(Me, New tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0013_UnterlagenArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_C0013_UnterlagenArtenRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0013_UnterlagenArtenRowDeleting(Me, New tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0013_UnterlagenArtenRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_C0013_UnterlagenArtenRow(ByVal row As tbl_DY_ZollDE_C0013_UnterlagenArtenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable" 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 tbl_DY_ZollDE_C0014_VorpapierArtenDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_C0014_VorpapierArtenRow) Private columnCode As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_C0014_VorpapierArten" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DY_ZollDE_C0014_VorpapierArtenRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_C0014_VorpapierArtenRow) End Get End Property _ Public Event tbl_DY_ZollDE_C0014_VorpapierArtenRowChanging As tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0014_VorpapierArtenRowChanged As tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0014_VorpapierArtenRowDeleting As tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0014_VorpapierArtenRowDeleted As tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_C0014_VorpapierArtenRow(ByVal row As tbl_DY_ZollDE_C0014_VorpapierArtenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_C0014_VorpapierArtenRow(ByVal Code As String, ByVal Description As String, ByVal StartDate As Date, ByVal EndDate As Date) As tbl_DY_ZollDE_C0014_VorpapierArtenRow Dim rowtbl_DY_ZollDE_C0014_VorpapierArtenRow As tbl_DY_ZollDE_C0014_VorpapierArtenRow = CType(Me.NewRow,tbl_DY_ZollDE_C0014_VorpapierArtenRow) Dim columnValuesArray() As Object = New Object() {Code, Description, StartDate, EndDate} rowtbl_DY_ZollDE_C0014_VorpapierArtenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_C0014_VorpapierArtenRow) Return rowtbl_DY_ZollDE_C0014_VorpapierArtenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_C0014_VorpapierArtenDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_C0014_VorpapierArtenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_C0014_VorpapierArtenDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnDescription = MyBase.Columns("Description") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) 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.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 5 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 500 End Sub _ Public Function Newtbl_DY_ZollDE_C0014_VorpapierArtenRow() As tbl_DY_ZollDE_C0014_VorpapierArtenRow Return CType(Me.NewRow,tbl_DY_ZollDE_C0014_VorpapierArtenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_C0014_VorpapierArtenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_C0014_VorpapierArtenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_C0014_VorpapierArtenRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0014_VorpapierArtenRowChanged(Me, New tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0014_VorpapierArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_C0014_VorpapierArtenRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0014_VorpapierArtenRowChanging(Me, New tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0014_VorpapierArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_C0014_VorpapierArtenRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0014_VorpapierArtenRowDeleted(Me, New tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0014_VorpapierArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_C0014_VorpapierArtenRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0014_VorpapierArtenRowDeleting(Me, New tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0014_VorpapierArtenRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_C0014_VorpapierArtenRow(ByVal row As tbl_DY_ZollDE_C0014_VorpapierArtenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_C0014_VorpapierArtenDataTable" 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 tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow) Private columnCode As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow) End Get End Property _ Public Event tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChanging As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChanged As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowDeleting As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowDeleted As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow(ByVal row As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow(ByVal Code As String, ByVal Description As String, ByVal StartDate As Date, ByVal EndDate As Date) As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow Dim rowtbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow = CType(Me.NewRow,tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow) Dim columnValuesArray() As Object = New Object() {Code, Description, StartDate, EndDate} rowtbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow) Return rowtbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnDescription = MyBase.Columns("Description") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) 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.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 2 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 200 End Sub _ Public Function Newtbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow() As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow Return CType(Me.NewRow,tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChanged(Me, New tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChanging(Me, New tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowDeleted(Me, New tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowDeleting(Me, New tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow(ByVal row As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable" 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 tbl_DY_ZollDE_C0141_ZollstellenDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_C0141_ZollstellenRow) Private columnCode As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_C0141_Zollstellen" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DY_ZollDE_C0141_ZollstellenRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_C0141_ZollstellenRow) End Get End Property _ Public Event tbl_DY_ZollDE_C0141_ZollstellenRowChanging As tbl_DY_ZollDE_C0141_ZollstellenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0141_ZollstellenRowChanged As tbl_DY_ZollDE_C0141_ZollstellenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0141_ZollstellenRowDeleting As tbl_DY_ZollDE_C0141_ZollstellenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0141_ZollstellenRowDeleted As tbl_DY_ZollDE_C0141_ZollstellenRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_C0141_ZollstellenRow(ByVal row As tbl_DY_ZollDE_C0141_ZollstellenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_C0141_ZollstellenRow(ByVal Code As String, ByVal Description As String, ByVal StartDate As Date, ByVal EndDate As Date) As tbl_DY_ZollDE_C0141_ZollstellenRow Dim rowtbl_DY_ZollDE_C0141_ZollstellenRow As tbl_DY_ZollDE_C0141_ZollstellenRow = CType(Me.NewRow,tbl_DY_ZollDE_C0141_ZollstellenRow) Dim columnValuesArray() As Object = New Object() {Code, Description, StartDate, EndDate} rowtbl_DY_ZollDE_C0141_ZollstellenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_C0141_ZollstellenRow) Return rowtbl_DY_ZollDE_C0141_ZollstellenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_C0141_ZollstellenDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_C0141_ZollstellenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_C0141_ZollstellenDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnDescription = MyBase.Columns("Description") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) 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.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 100 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 2147483647 End Sub _ Public Function Newtbl_DY_ZollDE_C0141_ZollstellenRow() As tbl_DY_ZollDE_C0141_ZollstellenRow Return CType(Me.NewRow,tbl_DY_ZollDE_C0141_ZollstellenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_C0141_ZollstellenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_C0141_ZollstellenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_C0141_ZollstellenRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0141_ZollstellenRowChanged(Me, New tbl_DY_ZollDE_C0141_ZollstellenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0141_ZollstellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_C0141_ZollstellenRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0141_ZollstellenRowChanging(Me, New tbl_DY_ZollDE_C0141_ZollstellenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0141_ZollstellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_C0141_ZollstellenRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0141_ZollstellenRowDeleted(Me, New tbl_DY_ZollDE_C0141_ZollstellenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0141_ZollstellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_C0141_ZollstellenRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0141_ZollstellenRowDeleting(Me, New tbl_DY_ZollDE_C0141_ZollstellenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0141_ZollstellenRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_C0141_ZollstellenRow(ByVal row As tbl_DY_ZollDE_C0141_ZollstellenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_C0141_ZollstellenDataTable" 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 tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_C0219_TypeTransportMeansRow) Private columnCode As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_C0219_TypeTransportMeans" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DY_ZollDE_C0219_TypeTransportMeansRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_C0219_TypeTransportMeansRow) End Get End Property _ Public Event tbl_DY_ZollDE_C0219_TypeTransportMeansRowChanging As tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0219_TypeTransportMeansRowChanged As tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0219_TypeTransportMeansRowDeleting As tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEventHandler _ Public Event tbl_DY_ZollDE_C0219_TypeTransportMeansRowDeleted As tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_C0219_TypeTransportMeansRow(ByVal row As tbl_DY_ZollDE_C0219_TypeTransportMeansRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_C0219_TypeTransportMeansRow(ByVal Code As String, ByVal Description As String, ByVal StartDate As Date, ByVal EndDate As Date) As tbl_DY_ZollDE_C0219_TypeTransportMeansRow Dim rowtbl_DY_ZollDE_C0219_TypeTransportMeansRow As tbl_DY_ZollDE_C0219_TypeTransportMeansRow = CType(Me.NewRow,tbl_DY_ZollDE_C0219_TypeTransportMeansRow) Dim columnValuesArray() As Object = New Object() {Code, Description, StartDate, EndDate} rowtbl_DY_ZollDE_C0219_TypeTransportMeansRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_C0219_TypeTransportMeansRow) Return rowtbl_DY_ZollDE_C0219_TypeTransportMeansRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnDescription = MyBase.Columns("Description") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) 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.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 5 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 500 End Sub _ Public Function Newtbl_DY_ZollDE_C0219_TypeTransportMeansRow() As tbl_DY_ZollDE_C0219_TypeTransportMeansRow Return CType(Me.NewRow,tbl_DY_ZollDE_C0219_TypeTransportMeansRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_C0219_TypeTransportMeansRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_C0219_TypeTransportMeansRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0219_TypeTransportMeansRowChanged(Me, New tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0219_TypeTransportMeansRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0219_TypeTransportMeansRowChanging(Me, New tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0219_TypeTransportMeansRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_C0219_TypeTransportMeansRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0219_TypeTransportMeansRowDeleted(Me, New tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0219_TypeTransportMeansRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_C0219_TypeTransportMeansRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_C0219_TypeTransportMeansRowDeleting(Me, New tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_C0219_TypeTransportMeansRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_C0219_TypeTransportMeansRow(ByVal row As tbl_DY_ZollDE_C0219_TypeTransportMeansRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable" 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 tbl_DY_ZollDE_I0200_UnterlageartenDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_I0200_UnterlageartenRow) Private columnCode As Global.System.Data.DataColumn Private columnDocumentCode As Global.System.Data.DataColumn Private columnDivision As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_I0200_Unterlagearten" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property DocumentCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnDocumentCode End Get End Property _ Public ReadOnly Property DivisionColumn() As Global.System.Data.DataColumn Get Return Me.columnDivision End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DY_ZollDE_I0200_UnterlageartenRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_I0200_UnterlageartenRow) End Get End Property _ Public Event tbl_DY_ZollDE_I0200_UnterlageartenRowChanging As tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0200_UnterlageartenRowChanged As tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0200_UnterlageartenRowDeleting As tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0200_UnterlageartenRowDeleted As tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_I0200_UnterlageartenRow(ByVal row As tbl_DY_ZollDE_I0200_UnterlageartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_I0200_UnterlageartenRow(ByVal Code As String, ByVal DocumentCode As String, ByVal Division As String, ByVal Description As String, ByVal StartDate As Date, ByVal EndDate As Date) As tbl_DY_ZollDE_I0200_UnterlageartenRow Dim rowtbl_DY_ZollDE_I0200_UnterlageartenRow As tbl_DY_ZollDE_I0200_UnterlageartenRow = CType(Me.NewRow,tbl_DY_ZollDE_I0200_UnterlageartenRow) Dim columnValuesArray() As Object = New Object() {Code, DocumentCode, Division, Description, StartDate, EndDate} rowtbl_DY_ZollDE_I0200_UnterlageartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_I0200_UnterlageartenRow) Return rowtbl_DY_ZollDE_I0200_UnterlageartenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_I0200_UnterlageartenDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_I0200_UnterlageartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_I0200_UnterlageartenDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnDocumentCode = MyBase.Columns("DocumentCode") Me.columnDivision = MyBase.Columns("Division") Me.columnDescription = MyBase.Columns("Description") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnDocumentCode = New Global.System.Data.DataColumn("DocumentCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocumentCode) Me.columnDivision = New Global.System.Data.DataColumn("Division", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDivision) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) 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.columnCode.MaxLength = 6 Me.columnDocumentCode.AllowDBNull = false Me.columnDocumentCode.MaxLength = 4 Me.columnDivision.AllowDBNull = false Me.columnDivision.MaxLength = 1 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 2000 End Sub _ Public Function Newtbl_DY_ZollDE_I0200_UnterlageartenRow() As tbl_DY_ZollDE_I0200_UnterlageartenRow Return CType(Me.NewRow,tbl_DY_ZollDE_I0200_UnterlageartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_I0200_UnterlageartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_I0200_UnterlageartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_I0200_UnterlageartenRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0200_UnterlageartenRowChanged(Me, New tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0200_UnterlageartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_I0200_UnterlageartenRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0200_UnterlageartenRowChanging(Me, New tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0200_UnterlageartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_I0200_UnterlageartenRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0200_UnterlageartenRowDeleted(Me, New tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0200_UnterlageartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_I0200_UnterlageartenRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0200_UnterlageartenRowDeleting(Me, New tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0200_UnterlageartenRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_I0200_UnterlageartenRow(ByVal row As tbl_DY_ZollDE_I0200_UnterlageartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_I0200_UnterlageartenDataTable" 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 tbl_DY_ZollDE_I0400_WaehrungslisteDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_I0400_WaehrungslisteRow) Private columnCode As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_I0400_Waehrungsliste" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DY_ZollDE_I0400_WaehrungslisteRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_I0400_WaehrungslisteRow) End Get End Property _ Public Event tbl_DY_ZollDE_I0400_WaehrungslisteRowChanging As tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0400_WaehrungslisteRowChanged As tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0400_WaehrungslisteRowDeleting As tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0400_WaehrungslisteRowDeleted As tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_I0400_WaehrungslisteRow(ByVal row As tbl_DY_ZollDE_I0400_WaehrungslisteRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_I0400_WaehrungslisteRow(ByVal Code As String, ByVal Description As String, ByVal StartDate As Date, ByVal EndDate As Date) As tbl_DY_ZollDE_I0400_WaehrungslisteRow Dim rowtbl_DY_ZollDE_I0400_WaehrungslisteRow As tbl_DY_ZollDE_I0400_WaehrungslisteRow = CType(Me.NewRow,tbl_DY_ZollDE_I0400_WaehrungslisteRow) Dim columnValuesArray() As Object = New Object() {Code, Description, StartDate, EndDate} rowtbl_DY_ZollDE_I0400_WaehrungslisteRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_I0400_WaehrungslisteRow) Return rowtbl_DY_ZollDE_I0400_WaehrungslisteRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_I0400_WaehrungslisteDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_I0400_WaehrungslisteDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_I0400_WaehrungslisteDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnDescription = MyBase.Columns("Description") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) 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.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 3 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 200 End Sub _ Public Function Newtbl_DY_ZollDE_I0400_WaehrungslisteRow() As tbl_DY_ZollDE_I0400_WaehrungslisteRow Return CType(Me.NewRow,tbl_DY_ZollDE_I0400_WaehrungslisteRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_I0400_WaehrungslisteRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_I0400_WaehrungslisteRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_I0400_WaehrungslisteRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0400_WaehrungslisteRowChanged(Me, New tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0400_WaehrungslisteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_I0400_WaehrungslisteRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0400_WaehrungslisteRowChanging(Me, New tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0400_WaehrungslisteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_I0400_WaehrungslisteRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0400_WaehrungslisteRowDeleted(Me, New tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0400_WaehrungslisteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_I0400_WaehrungslisteRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0400_WaehrungslisteRowDeleting(Me, New tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0400_WaehrungslisteRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_I0400_WaehrungslisteRow(ByVal row As tbl_DY_ZollDE_I0400_WaehrungslisteRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_I0400_WaehrungslisteDataTable" 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 tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow) Private columnCode As Global.System.Data.DataColumn Private columnQualifier As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_I0610_ZustaendigeZSTAES" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property QualifierColumn() As Global.System.Data.DataColumn Get Return Me.columnQualifier End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow) End Get End Property _ Public Event tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChanging As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChanged As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowDeleting As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowDeleted As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow(ByVal row As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow(ByVal Code As String, ByVal Qualifier As String, ByVal Description As String) As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow Dim rowtbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow = CType(Me.NewRow,tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow) Dim columnValuesArray() As Object = New Object() {Code, Qualifier, Description} rowtbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow) Return rowtbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnQualifier = MyBase.Columns("Qualifier") Me.columnDescription = MyBase.Columns("Description") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnQualifier = New Global.System.Data.DataColumn("Qualifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQualifier) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) Me.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 5 Me.columnQualifier.AllowDBNull = false Me.columnQualifier.MaxLength = 8 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 500 End Sub _ Public Function Newtbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow() As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow Return CType(Me.NewRow,tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChanged(Me, New tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChanging(Me, New tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowDeleted(Me, New tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowDeleting(Me, New tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow(ByVal row As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable" 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 tbl_DY_ZollDE_I0700_MasseinheitenDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DY_ZollDE_I0700_MasseinheitenRow) Private columnCode As Global.System.Data.DataColumn Private columnQualifier As Global.System.Data.DataColumn Private columnCodeQualifier As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_DY_ZollDE_I0700_Masseinheiten" 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 CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode End Get End Property _ Public ReadOnly Property QualifierColumn() As Global.System.Data.DataColumn Get Return Me.columnQualifier End Get End Property _ Public ReadOnly Property CodeQualifierColumn() As Global.System.Data.DataColumn Get Return Me.columnCodeQualifier End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DY_ZollDE_I0700_MasseinheitenRow Get Return CType(Me.Rows(index),tbl_DY_ZollDE_I0700_MasseinheitenRow) End Get End Property _ Public Event tbl_DY_ZollDE_I0700_MasseinheitenRowChanging As tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0700_MasseinheitenRowChanged As tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0700_MasseinheitenRowDeleting As tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEventHandler _ Public Event tbl_DY_ZollDE_I0700_MasseinheitenRowDeleted As tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEventHandler _ Public Overloads Sub Addtbl_DY_ZollDE_I0700_MasseinheitenRow(ByVal row As tbl_DY_ZollDE_I0700_MasseinheitenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DY_ZollDE_I0700_MasseinheitenRow(ByVal Code As String, ByVal Qualifier As String, ByVal CodeQualifier As String, ByVal Description As String, ByVal StartDate As Date, ByVal EndDate As Date) As tbl_DY_ZollDE_I0700_MasseinheitenRow Dim rowtbl_DY_ZollDE_I0700_MasseinheitenRow As tbl_DY_ZollDE_I0700_MasseinheitenRow = CType(Me.NewRow,tbl_DY_ZollDE_I0700_MasseinheitenRow) Dim columnValuesArray() As Object = New Object() {Code, Qualifier, CodeQualifier, Description, StartDate, EndDate} rowtbl_DY_ZollDE_I0700_MasseinheitenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DY_ZollDE_I0700_MasseinheitenRow) Return rowtbl_DY_ZollDE_I0700_MasseinheitenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DY_ZollDE_I0700_MasseinheitenDataTable = CType(MyBase.Clone,tbl_DY_ZollDE_I0700_MasseinheitenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DY_ZollDE_I0700_MasseinheitenDataTable() End Function _ Friend Sub InitVars() Me.columnCode = MyBase.Columns("Code") Me.columnQualifier = MyBase.Columns("Qualifier") Me.columnCodeQualifier = MyBase.Columns("CodeQualifier") Me.columnDescription = MyBase.Columns("Description") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") End Sub _ Private Sub InitClass() Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.columnQualifier = New Global.System.Data.DataColumn("Qualifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQualifier) Me.columnCodeQualifier = New Global.System.Data.DataColumn("CodeQualifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCodeQualifier) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) 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.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 3 Me.columnQualifier.AllowDBNull = false Me.columnQualifier.MaxLength = 1 Me.columnCodeQualifier.AllowDBNull = false Me.columnCodeQualifier.MaxLength = 4 Me.columnDescription.AllowDBNull = false Me.columnDescription.MaxLength = 200 End Sub _ Public Function Newtbl_DY_ZollDE_I0700_MasseinheitenRow() As tbl_DY_ZollDE_I0700_MasseinheitenRow Return CType(Me.NewRow,tbl_DY_ZollDE_I0700_MasseinheitenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DY_ZollDE_I0700_MasseinheitenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DY_ZollDE_I0700_MasseinheitenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DY_ZollDE_I0700_MasseinheitenRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0700_MasseinheitenRowChanged(Me, New tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0700_MasseinheitenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DY_ZollDE_I0700_MasseinheitenRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0700_MasseinheitenRowChanging(Me, New tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0700_MasseinheitenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DY_ZollDE_I0700_MasseinheitenRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0700_MasseinheitenRowDeleted(Me, New tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0700_MasseinheitenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DY_ZollDE_I0700_MasseinheitenRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DY_ZollDE_I0700_MasseinheitenRowDeleting(Me, New tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEvent(CType(e.Row,tbl_DY_ZollDE_I0700_MasseinheitenRow), e.Action)) End If End Sub _ Public Sub Removetbl_DY_ZollDE_I0700_MasseinheitenRow(ByVal row As tbl_DY_ZollDE_I0700_MasseinheitenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_DY_ZollDE_I0700_MasseinheitenDataTable" 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 tbl_ErrorsDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_ErrorsRow) Private columnID As Global.System.Data.DataColumn Private columnErrDate As Global.System.Data.DataColumn Private columnErrLevel As Global.System.Data.DataColumn Private columnMachine As Global.System.Data.DataColumn Private columnLoginUser As Global.System.Data.DataColumn Private columnErrNumber As Global.System.Data.DataColumn Private columnErrDescription As Global.System.Data.DataColumn Private columnErrLine As Global.System.Data.DataColumn Private columnNameObject As Global.System.Data.DataColumn Private columnNameProcedure As Global.System.Data.DataColumn Private columnSent As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_Errors" 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 ErrDateColumn() As Global.System.Data.DataColumn Get Return Me.columnErrDate End Get End Property _ Public ReadOnly Property ErrLevelColumn() As Global.System.Data.DataColumn Get Return Me.columnErrLevel End Get End Property _ Public ReadOnly Property MachineColumn() As Global.System.Data.DataColumn Get Return Me.columnMachine End Get End Property _ Public ReadOnly Property LoginUserColumn() As Global.System.Data.DataColumn Get Return Me.columnLoginUser End Get End Property _ Public ReadOnly Property ErrNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnErrNumber End Get End Property _ Public ReadOnly Property ErrDescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnErrDescription End Get End Property _ Public ReadOnly Property ErrLineColumn() As Global.System.Data.DataColumn Get Return Me.columnErrLine End Get End Property _ Public ReadOnly Property NameObjectColumn() As Global.System.Data.DataColumn Get Return Me.columnNameObject End Get End Property _ Public ReadOnly Property NameProcedureColumn() As Global.System.Data.DataColumn Get Return Me.columnNameProcedure End Get End Property _ Public ReadOnly Property SentColumn() As Global.System.Data.DataColumn Get Return Me.columnSent End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tbl_ErrorsRow Get Return CType(Me.Rows(index),tbl_ErrorsRow) End Get End Property _ Public Event tbl_ErrorsRowChanging As tbl_ErrorsRowChangeEventHandler _ Public Event tbl_ErrorsRowChanged As tbl_ErrorsRowChangeEventHandler _ Public Event tbl_ErrorsRowDeleting As tbl_ErrorsRowChangeEventHandler _ Public Event tbl_ErrorsRowDeleted As tbl_ErrorsRowChangeEventHandler _ Public Overloads Sub Addtbl_ErrorsRow(ByVal row As tbl_ErrorsRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_ErrorsRow(ByVal ErrDate As Date, ByVal ErrLevel As Integer, ByVal Machine As String, ByVal LoginUser As String, ByVal ErrNumber As Integer, ByVal ErrDescription As String, ByVal ErrLine As Integer, ByVal NameObject As String, ByVal NameProcedure As String, ByVal Sent As Boolean, ByVal upsize_ts() As Byte) As tbl_ErrorsRow Dim rowtbl_ErrorsRow As tbl_ErrorsRow = CType(Me.NewRow,tbl_ErrorsRow) Dim columnValuesArray() As Object = New Object() {Nothing, ErrDate, ErrLevel, Machine, LoginUser, ErrNumber, ErrDescription, ErrLine, NameObject, NameProcedure, Sent, upsize_ts} rowtbl_ErrorsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_ErrorsRow) Return rowtbl_ErrorsRow End Function _ Public Function FindByID(ByVal ID As Integer) As tbl_ErrorsRow Return CType(Me.Rows.Find(New Object() {ID}),tbl_ErrorsRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_ErrorsDataTable = CType(MyBase.Clone,tbl_ErrorsDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_ErrorsDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnErrDate = MyBase.Columns("ErrDate") Me.columnErrLevel = MyBase.Columns("ErrLevel") Me.columnMachine = MyBase.Columns("Machine") Me.columnLoginUser = MyBase.Columns("LoginUser") Me.columnErrNumber = MyBase.Columns("ErrNumber") Me.columnErrDescription = MyBase.Columns("ErrDescription") Me.columnErrLine = MyBase.Columns("ErrLine") Me.columnNameObject = MyBase.Columns("NameObject") Me.columnNameProcedure = MyBase.Columns("NameProcedure") Me.columnSent = MyBase.Columns("Sent") Me.columnupsize_ts = MyBase.Columns("upsize_ts") 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.columnErrDate = New Global.System.Data.DataColumn("ErrDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrDate) Me.columnErrLevel = New Global.System.Data.DataColumn("ErrLevel", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrLevel) Me.columnMachine = New Global.System.Data.DataColumn("Machine", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMachine) Me.columnLoginUser = New Global.System.Data.DataColumn("LoginUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLoginUser) Me.columnErrNumber = New Global.System.Data.DataColumn("ErrNumber", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrNumber) Me.columnErrDescription = New Global.System.Data.DataColumn("ErrDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrDescription) Me.columnErrLine = New Global.System.Data.DataColumn("ErrLine", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrLine) Me.columnNameObject = New Global.System.Data.DataColumn("NameObject", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNameObject) Me.columnNameProcedure = New Global.System.Data.DataColumn("NameProcedure", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNameProcedure) Me.columnSent = New Global.System.Data.DataColumn("Sent", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSent) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnMachine.MaxLength = 255 Me.columnLoginUser.MaxLength = 255 Me.columnErrDescription.MaxLength = 1073741823 Me.columnNameObject.MaxLength = 255 Me.columnNameProcedure.MaxLength = 255 Me.columnSent.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function Newtbl_ErrorsRow() As tbl_ErrorsRow Return CType(Me.NewRow,tbl_ErrorsRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_ErrorsRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_ErrorsRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_ErrorsRowChangedEvent) Is Nothing) Then RaiseEvent tbl_ErrorsRowChanged(Me, New tbl_ErrorsRowChangeEvent(CType(e.Row,tbl_ErrorsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_ErrorsRowChangingEvent) Is Nothing) Then RaiseEvent tbl_ErrorsRowChanging(Me, New tbl_ErrorsRowChangeEvent(CType(e.Row,tbl_ErrorsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_ErrorsRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_ErrorsRowDeleted(Me, New tbl_ErrorsRowChangeEvent(CType(e.Row,tbl_ErrorsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_ErrorsRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_ErrorsRowDeleting(Me, New tbl_ErrorsRowChangeEvent(CType(e.Row,tbl_ErrorsRow), e.Action)) End If End Sub _ Public Sub Removetbl_ErrorsRow(ByVal row As tbl_ErrorsRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_ErrorsDataTable" 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 tbl_IDS_Kategorien_KundenDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_IDS_Kategorien_KundenRow) Private columnCustomerCode As Global.System.Data.DataColumn Private columnKategorieNr As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_IDS_Kategorien_Kunden" 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 CustomerCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomerCode End Get End Property _ Public ReadOnly Property KategorieNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKategorieNr End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_IDS_Kategorien_KundenRow Get Return CType(Me.Rows(index),tbl_IDS_Kategorien_KundenRow) End Get End Property _ Public Event tbl_IDS_Kategorien_KundenRowChanging As tbl_IDS_Kategorien_KundenRowChangeEventHandler _ Public Event tbl_IDS_Kategorien_KundenRowChanged As tbl_IDS_Kategorien_KundenRowChangeEventHandler _ Public Event tbl_IDS_Kategorien_KundenRowDeleting As tbl_IDS_Kategorien_KundenRowChangeEventHandler _ Public Event tbl_IDS_Kategorien_KundenRowDeleted As tbl_IDS_Kategorien_KundenRowChangeEventHandler _ Public Overloads Sub Addtbl_IDS_Kategorien_KundenRow(ByVal row As tbl_IDS_Kategorien_KundenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_IDS_Kategorien_KundenRow(ByVal _parentAdressenRowBytbl_IDS_Kategorien_Kunden_Adressentbl_IDS_Kategorien_Kunden As AdressenRow, ByVal KategorieNr As Short, ByVal Zeitstempel As Date, ByVal Sachbearbeiter As String, ByVal SSMA_TimeStamp() As Byte) As tbl_IDS_Kategorien_KundenRow Dim rowtbl_IDS_Kategorien_KundenRow As tbl_IDS_Kategorien_KundenRow = CType(Me.NewRow,tbl_IDS_Kategorien_KundenRow) Dim columnValuesArray() As Object = New Object() {Nothing, KategorieNr, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp} If (Not (_parentAdressenRowBytbl_IDS_Kategorien_Kunden_Adressentbl_IDS_Kategorien_Kunden) Is Nothing) Then columnValuesArray(0) = _parentAdressenRowBytbl_IDS_Kategorien_Kunden_Adressentbl_IDS_Kategorien_Kunden(1) End If rowtbl_IDS_Kategorien_KundenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_IDS_Kategorien_KundenRow) Return rowtbl_IDS_Kategorien_KundenRow End Function _ Public Function FindByCustomerCode(ByVal CustomerCode As Integer) As tbl_IDS_Kategorien_KundenRow Return CType(Me.Rows.Find(New Object() {CustomerCode}),tbl_IDS_Kategorien_KundenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_IDS_Kategorien_KundenDataTable = CType(MyBase.Clone,tbl_IDS_Kategorien_KundenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_IDS_Kategorien_KundenDataTable() End Function _ Friend Sub InitVars() Me.columnCustomerCode = MyBase.Columns("CustomerCode") Me.columnKategorieNr = MyBase.Columns("KategorieNr") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnCustomerCode = New Global.System.Data.DataColumn("CustomerCode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomerCode) Me.columnKategorieNr = New Global.System.Data.DataColumn("KategorieNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKategorieNr) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCustomerCode}, true)) Me.columnCustomerCode.AllowDBNull = false Me.columnCustomerCode.Unique = true Me.columnKategorieNr.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_IDS_Kategorien_KundenRow() As tbl_IDS_Kategorien_KundenRow Return CType(Me.NewRow,tbl_IDS_Kategorien_KundenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_IDS_Kategorien_KundenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_IDS_Kategorien_KundenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_IDS_Kategorien_KundenRowChangedEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kategorien_KundenRowChanged(Me, New tbl_IDS_Kategorien_KundenRowChangeEvent(CType(e.Row,tbl_IDS_Kategorien_KundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_IDS_Kategorien_KundenRowChangingEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kategorien_KundenRowChanging(Me, New tbl_IDS_Kategorien_KundenRowChangeEvent(CType(e.Row,tbl_IDS_Kategorien_KundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_IDS_Kategorien_KundenRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kategorien_KundenRowDeleted(Me, New tbl_IDS_Kategorien_KundenRowChangeEvent(CType(e.Row,tbl_IDS_Kategorien_KundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_IDS_Kategorien_KundenRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kategorien_KundenRowDeleting(Me, New tbl_IDS_Kategorien_KundenRowChangeEvent(CType(e.Row,tbl_IDS_Kategorien_KundenRow), e.Action)) End If End Sub _ Public Sub Removetbl_IDS_Kategorien_KundenRow(ByVal row As tbl_IDS_Kategorien_KundenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_IDS_Kategorien_KundenDataTable" 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 tbl_IDS_Kategorien_RechenwerteDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_IDS_Kategorien_RechenwerteRow) Private columnID As Global.System.Data.DataColumn Private columnKategorieNr As Global.System.Data.DataColumn Private columnProductTypeCode As Global.System.Data.DataColumn Private columnRechenwert As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_IDS_Kategorien_Rechenwerte" 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 KategorieNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKategorieNr End Get End Property _ Public ReadOnly Property ProductTypeCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnProductTypeCode End Get End Property _ Public ReadOnly Property RechenwertColumn() As Global.System.Data.DataColumn Get Return Me.columnRechenwert End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_IDS_Kategorien_RechenwerteRow Get Return CType(Me.Rows(index),tbl_IDS_Kategorien_RechenwerteRow) End Get End Property _ Public Event tbl_IDS_Kategorien_RechenwerteRowChanging As tbl_IDS_Kategorien_RechenwerteRowChangeEventHandler _ Public Event tbl_IDS_Kategorien_RechenwerteRowChanged As tbl_IDS_Kategorien_RechenwerteRowChangeEventHandler _ Public Event tbl_IDS_Kategorien_RechenwerteRowDeleting As tbl_IDS_Kategorien_RechenwerteRowChangeEventHandler _ Public Event tbl_IDS_Kategorien_RechenwerteRowDeleted As tbl_IDS_Kategorien_RechenwerteRowChangeEventHandler _ Public Overloads Sub Addtbl_IDS_Kategorien_RechenwerteRow(ByVal row As tbl_IDS_Kategorien_RechenwerteRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_IDS_Kategorien_RechenwerteRow(ByVal KategorieNr As Short, ByVal _parenttbl_IDS_ProdukteRowBytbl_IDS_Kategorien_Rechenwerte_tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte As tbl_IDS_ProdukteRow, ByVal Rechenwert As Decimal, ByVal Zeitstempel As Date, ByVal Sachbearbeiter As String, ByVal SSMA_TimeStamp() As Byte) As tbl_IDS_Kategorien_RechenwerteRow Dim rowtbl_IDS_Kategorien_RechenwerteRow As tbl_IDS_Kategorien_RechenwerteRow = CType(Me.NewRow,tbl_IDS_Kategorien_RechenwerteRow) Dim columnValuesArray() As Object = New Object() {Nothing, KategorieNr, Nothing, Rechenwert, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp} If (Not (_parenttbl_IDS_ProdukteRowBytbl_IDS_Kategorien_Rechenwerte_tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte) Is Nothing) Then columnValuesArray(2) = _parenttbl_IDS_ProdukteRowBytbl_IDS_Kategorien_Rechenwerte_tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte(0) End If rowtbl_IDS_Kategorien_RechenwerteRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_IDS_Kategorien_RechenwerteRow) Return rowtbl_IDS_Kategorien_RechenwerteRow End Function _ Public Function FindByID(ByVal ID As Integer) As tbl_IDS_Kategorien_RechenwerteRow Return CType(Me.Rows.Find(New Object() {ID}),tbl_IDS_Kategorien_RechenwerteRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_IDS_Kategorien_RechenwerteDataTable = CType(MyBase.Clone,tbl_IDS_Kategorien_RechenwerteDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_IDS_Kategorien_RechenwerteDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnKategorieNr = MyBase.Columns("KategorieNr") Me.columnProductTypeCode = MyBase.Columns("ProductTypeCode") Me.columnRechenwert = MyBase.Columns("Rechenwert") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") 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.columnKategorieNr = New Global.System.Data.DataColumn("KategorieNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKategorieNr) Me.columnProductTypeCode = New Global.System.Data.DataColumn("ProductTypeCode", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProductTypeCode) Me.columnRechenwert = New Global.System.Data.DataColumn("Rechenwert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechenwert) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnKategorieNr.AllowDBNull = false Me.columnProductTypeCode.AllowDBNull = false Me.columnRechenwert.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_IDS_Kategorien_RechenwerteRow() As tbl_IDS_Kategorien_RechenwerteRow Return CType(Me.NewRow,tbl_IDS_Kategorien_RechenwerteRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_IDS_Kategorien_RechenwerteRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_IDS_Kategorien_RechenwerteRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_IDS_Kategorien_RechenwerteRowChangedEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kategorien_RechenwerteRowChanged(Me, New tbl_IDS_Kategorien_RechenwerteRowChangeEvent(CType(e.Row,tbl_IDS_Kategorien_RechenwerteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_IDS_Kategorien_RechenwerteRowChangingEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kategorien_RechenwerteRowChanging(Me, New tbl_IDS_Kategorien_RechenwerteRowChangeEvent(CType(e.Row,tbl_IDS_Kategorien_RechenwerteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_IDS_Kategorien_RechenwerteRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kategorien_RechenwerteRowDeleted(Me, New tbl_IDS_Kategorien_RechenwerteRowChangeEvent(CType(e.Row,tbl_IDS_Kategorien_RechenwerteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_IDS_Kategorien_RechenwerteRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kategorien_RechenwerteRowDeleting(Me, New tbl_IDS_Kategorien_RechenwerteRowChangeEvent(CType(e.Row,tbl_IDS_Kategorien_RechenwerteRow), e.Action)) End If End Sub _ Public Sub Removetbl_IDS_Kategorien_RechenwerteRow(ByVal row As tbl_IDS_Kategorien_RechenwerteRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_IDS_Kategorien_RechenwerteDataTable" 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 tbl_IDS_KundenDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_IDS_KundenRow) Private columnCustomerCode As Global.System.Data.DataColumn Private columnKdNrVERAG As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnKdNrAlt As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_IDS_Kunden" 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 CustomerCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomerCode End Get End Property _ Public ReadOnly Property KdNrVERAGColumn() As Global.System.Data.DataColumn Get Return Me.columnKdNrVERAG End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property KdNrAltColumn() As Global.System.Data.DataColumn Get Return Me.columnKdNrAlt End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_IDS_KundenRow Get Return CType(Me.Rows(index),tbl_IDS_KundenRow) End Get End Property _ Public Event tbl_IDS_KundenRowChanging As tbl_IDS_KundenRowChangeEventHandler _ Public Event tbl_IDS_KundenRowChanged As tbl_IDS_KundenRowChangeEventHandler _ Public Event tbl_IDS_KundenRowDeleting As tbl_IDS_KundenRowChangeEventHandler _ Public Event tbl_IDS_KundenRowDeleted As tbl_IDS_KundenRowChangeEventHandler _ Public Overloads Sub Addtbl_IDS_KundenRow(ByVal row As tbl_IDS_KundenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_IDS_KundenRow(ByVal CustomerCode As Integer, ByVal _parentAdressenRowBytbl_IDS_Kunden_Adressentbl_IDS_Kunden As AdressenRow, ByVal Zeitstempel As Date, ByVal Sachbearbeiter As String, ByVal KdNrAlt As Boolean, ByVal SSMA_TimeStamp() As Byte) As tbl_IDS_KundenRow Dim rowtbl_IDS_KundenRow As tbl_IDS_KundenRow = CType(Me.NewRow,tbl_IDS_KundenRow) Dim columnValuesArray() As Object = New Object() {CustomerCode, Nothing, Zeitstempel, Sachbearbeiter, KdNrAlt, SSMA_TimeStamp} If (Not (_parentAdressenRowBytbl_IDS_Kunden_Adressentbl_IDS_Kunden) Is Nothing) Then columnValuesArray(1) = _parentAdressenRowBytbl_IDS_Kunden_Adressentbl_IDS_Kunden(1) End If rowtbl_IDS_KundenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_IDS_KundenRow) Return rowtbl_IDS_KundenRow End Function _ Public Function FindByCustomerCode(ByVal CustomerCode As Integer) As tbl_IDS_KundenRow Return CType(Me.Rows.Find(New Object() {CustomerCode}),tbl_IDS_KundenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_IDS_KundenDataTable = CType(MyBase.Clone,tbl_IDS_KundenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_IDS_KundenDataTable() End Function _ Friend Sub InitVars() Me.columnCustomerCode = MyBase.Columns("CustomerCode") Me.columnKdNrVERAG = MyBase.Columns("KdNrVERAG") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnKdNrAlt = MyBase.Columns("KdNrAlt") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnCustomerCode = New Global.System.Data.DataColumn("CustomerCode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomerCode) Me.columnKdNrVERAG = New Global.System.Data.DataColumn("KdNrVERAG", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdNrVERAG) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnKdNrAlt = New Global.System.Data.DataColumn("KdNrAlt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdNrAlt) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCustomerCode}, true)) Me.columnCustomerCode.AllowDBNull = false Me.columnCustomerCode.Unique = true Me.columnKdNrVERAG.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_IDS_KundenRow() As tbl_IDS_KundenRow Return CType(Me.NewRow,tbl_IDS_KundenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_IDS_KundenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_IDS_KundenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_IDS_KundenRowChangedEvent) Is Nothing) Then RaiseEvent tbl_IDS_KundenRowChanged(Me, New tbl_IDS_KundenRowChangeEvent(CType(e.Row,tbl_IDS_KundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_IDS_KundenRowChangingEvent) Is Nothing) Then RaiseEvent tbl_IDS_KundenRowChanging(Me, New tbl_IDS_KundenRowChangeEvent(CType(e.Row,tbl_IDS_KundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_IDS_KundenRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_IDS_KundenRowDeleted(Me, New tbl_IDS_KundenRowChangeEvent(CType(e.Row,tbl_IDS_KundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_IDS_KundenRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_IDS_KundenRowDeleting(Me, New tbl_IDS_KundenRowChangeEvent(CType(e.Row,tbl_IDS_KundenRow), e.Action)) End If End Sub _ Public Sub Removetbl_IDS_KundenRow(ByVal row As tbl_IDS_KundenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_IDS_KundenDataTable" 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 tbl_IDS_Kunden_ohne_RabattDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_IDS_Kunden_ohne_RabattRow) Private columnCustomerCode As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_IDS_Kunden_ohne_Rabatt" 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 CustomerCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomerCode End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_IDS_Kunden_ohne_RabattRow Get Return CType(Me.Rows(index),tbl_IDS_Kunden_ohne_RabattRow) End Get End Property _ Public Event tbl_IDS_Kunden_ohne_RabattRowChanging As tbl_IDS_Kunden_ohne_RabattRowChangeEventHandler _ Public Event tbl_IDS_Kunden_ohne_RabattRowChanged As tbl_IDS_Kunden_ohne_RabattRowChangeEventHandler _ Public Event tbl_IDS_Kunden_ohne_RabattRowDeleting As tbl_IDS_Kunden_ohne_RabattRowChangeEventHandler _ Public Event tbl_IDS_Kunden_ohne_RabattRowDeleted As tbl_IDS_Kunden_ohne_RabattRowChangeEventHandler _ Public Overloads Sub Addtbl_IDS_Kunden_ohne_RabattRow(ByVal row As tbl_IDS_Kunden_ohne_RabattRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_IDS_Kunden_ohne_RabattRow(ByVal _parentAdressenRowBytbl_IDS_Kunden_ohne_Rabatt_Adressentbl_IDS_Kunden_ohne_Rabatt As AdressenRow, ByVal Zeitstempel As Date, ByVal Sachbearbeiter As String, ByVal SSMA_TimeStamp() As Byte) As tbl_IDS_Kunden_ohne_RabattRow Dim rowtbl_IDS_Kunden_ohne_RabattRow As tbl_IDS_Kunden_ohne_RabattRow = CType(Me.NewRow,tbl_IDS_Kunden_ohne_RabattRow) Dim columnValuesArray() As Object = New Object() {Nothing, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp} If (Not (_parentAdressenRowBytbl_IDS_Kunden_ohne_Rabatt_Adressentbl_IDS_Kunden_ohne_Rabatt) Is Nothing) Then columnValuesArray(0) = _parentAdressenRowBytbl_IDS_Kunden_ohne_Rabatt_Adressentbl_IDS_Kunden_ohne_Rabatt(1) End If rowtbl_IDS_Kunden_ohne_RabattRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_IDS_Kunden_ohne_RabattRow) Return rowtbl_IDS_Kunden_ohne_RabattRow End Function _ Public Function FindByCustomerCode(ByVal CustomerCode As Integer) As tbl_IDS_Kunden_ohne_RabattRow Return CType(Me.Rows.Find(New Object() {CustomerCode}),tbl_IDS_Kunden_ohne_RabattRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_IDS_Kunden_ohne_RabattDataTable = CType(MyBase.Clone,tbl_IDS_Kunden_ohne_RabattDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_IDS_Kunden_ohne_RabattDataTable() End Function _ Friend Sub InitVars() Me.columnCustomerCode = MyBase.Columns("CustomerCode") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnCustomerCode = New Global.System.Data.DataColumn("CustomerCode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomerCode) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCustomerCode}, true)) Me.columnCustomerCode.AllowDBNull = false Me.columnCustomerCode.Unique = true Me.columnSachbearbeiter.MaxLength = 15 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_IDS_Kunden_ohne_RabattRow() As tbl_IDS_Kunden_ohne_RabattRow Return CType(Me.NewRow,tbl_IDS_Kunden_ohne_RabattRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_IDS_Kunden_ohne_RabattRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_IDS_Kunden_ohne_RabattRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_IDS_Kunden_ohne_RabattRowChangedEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kunden_ohne_RabattRowChanged(Me, New tbl_IDS_Kunden_ohne_RabattRowChangeEvent(CType(e.Row,tbl_IDS_Kunden_ohne_RabattRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_IDS_Kunden_ohne_RabattRowChangingEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kunden_ohne_RabattRowChanging(Me, New tbl_IDS_Kunden_ohne_RabattRowChangeEvent(CType(e.Row,tbl_IDS_Kunden_ohne_RabattRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_IDS_Kunden_ohne_RabattRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kunden_ohne_RabattRowDeleted(Me, New tbl_IDS_Kunden_ohne_RabattRowChangeEvent(CType(e.Row,tbl_IDS_Kunden_ohne_RabattRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_IDS_Kunden_ohne_RabattRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_IDS_Kunden_ohne_RabattRowDeleting(Me, New tbl_IDS_Kunden_ohne_RabattRowChangeEvent(CType(e.Row,tbl_IDS_Kunden_ohne_RabattRow), e.Action)) End If End Sub _ Public Sub Removetbl_IDS_Kunden_ohne_RabattRow(ByVal row As tbl_IDS_Kunden_ohne_RabattRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_IDS_Kunden_ohne_RabattDataTable" 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 tbl_IDS_LänderDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_IDS_LänderRow) Private columnOutletCountryCode As Global.System.Data.DataColumn Private columnOutletCountry As Global.System.Data.DataColumn Private columnSteuersatz As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLandNr As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_IDS_Länder" 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 OutletCountryCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnOutletCountryCode End Get End Property _ Public ReadOnly Property OutletCountryColumn() As Global.System.Data.DataColumn Get Return Me.columnOutletCountry End Get End Property _ Public ReadOnly Property SteuersatzColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuersatz End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLandNr End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_IDS_LänderRow Get Return CType(Me.Rows(index),tbl_IDS_LänderRow) End Get End Property _ Public Event tbl_IDS_LänderRowChanging As tbl_IDS_LänderRowChangeEventHandler _ Public Event tbl_IDS_LänderRowChanged As tbl_IDS_LänderRowChangeEventHandler _ Public Event tbl_IDS_LänderRowDeleting As tbl_IDS_LänderRowChangeEventHandler _ Public Event tbl_IDS_LänderRowDeleted As tbl_IDS_LänderRowChangeEventHandler _ Public Overloads Sub Addtbl_IDS_LänderRow(ByVal row As tbl_IDS_LänderRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_IDS_LänderRow(ByVal OutletCountryCode As Integer, ByVal OutletCountry As String, ByVal Steuersatz As Single, ByVal _parentLeistungenRowBytbl_IDS_Länder_Leistungentbl_IDS_Länder As LeistungenRow, ByVal LandNr As Short, ByVal SSMA_TimeStamp() As Byte) As tbl_IDS_LänderRow Dim rowtbl_IDS_LänderRow As tbl_IDS_LänderRow = CType(Me.NewRow,tbl_IDS_LänderRow) Dim columnValuesArray() As Object = New Object() {OutletCountryCode, OutletCountry, Steuersatz, Nothing, LandNr, SSMA_TimeStamp} If (Not (_parentLeistungenRowBytbl_IDS_Länder_Leistungentbl_IDS_Länder) Is Nothing) Then columnValuesArray(3) = _parentLeistungenRowBytbl_IDS_Länder_Leistungentbl_IDS_Länder(0) End If rowtbl_IDS_LänderRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_IDS_LänderRow) Return rowtbl_IDS_LänderRow End Function _ Public Function FindByOutletCountryCode(ByVal OutletCountryCode As Integer) As tbl_IDS_LänderRow Return CType(Me.Rows.Find(New Object() {OutletCountryCode}),tbl_IDS_LänderRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_IDS_LänderDataTable = CType(MyBase.Clone,tbl_IDS_LänderDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_IDS_LänderDataTable() End Function _ Friend Sub InitVars() Me.columnOutletCountryCode = MyBase.Columns("OutletCountryCode") Me.columnOutletCountry = MyBase.Columns("OutletCountry") Me.columnSteuersatz = MyBase.Columns("Steuersatz") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLandNr = MyBase.Columns("LandNr") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnOutletCountryCode = New Global.System.Data.DataColumn("OutletCountryCode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutletCountryCode) Me.columnOutletCountry = New Global.System.Data.DataColumn("OutletCountry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutletCountry) Me.columnSteuersatz = New Global.System.Data.DataColumn("Steuersatz", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuersatz) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLandNr = New Global.System.Data.DataColumn("LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandNr) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnOutletCountryCode}, true)) Me.columnOutletCountryCode.AllowDBNull = false Me.columnOutletCountryCode.Unique = true Me.columnOutletCountry.AllowDBNull = false Me.columnOutletCountry.MaxLength = 20 Me.columnSteuersatz.AllowDBNull = false Me.columnLandNr.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_IDS_LänderRow() As tbl_IDS_LänderRow Return CType(Me.NewRow,tbl_IDS_LänderRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_IDS_LänderRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_IDS_LänderRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_IDS_LänderRowChangedEvent) Is Nothing) Then RaiseEvent tbl_IDS_LänderRowChanged(Me, New tbl_IDS_LänderRowChangeEvent(CType(e.Row,tbl_IDS_LänderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_IDS_LänderRowChangingEvent) Is Nothing) Then RaiseEvent tbl_IDS_LänderRowChanging(Me, New tbl_IDS_LänderRowChangeEvent(CType(e.Row,tbl_IDS_LänderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_IDS_LänderRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_IDS_LänderRowDeleted(Me, New tbl_IDS_LänderRowChangeEvent(CType(e.Row,tbl_IDS_LänderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_IDS_LänderRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_IDS_LänderRowDeleting(Me, New tbl_IDS_LänderRowChangeEvent(CType(e.Row,tbl_IDS_LänderRow), e.Action)) End If End Sub _ Public Sub Removetbl_IDS_LänderRow(ByVal row As tbl_IDS_LänderRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_IDS_LänderDataTable" 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 tbl_IDS_ProdukteDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_IDS_ProdukteRow) Private columnProductTypeCode As Global.System.Data.DataColumn Private columnProductDescription As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_IDS_Produkte" 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 ProductTypeCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnProductTypeCode End Get End Property _ Public ReadOnly Property ProductDescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnProductDescription End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_IDS_ProdukteRow Get Return CType(Me.Rows(index),tbl_IDS_ProdukteRow) End Get End Property _ Public Event tbl_IDS_ProdukteRowChanging As tbl_IDS_ProdukteRowChangeEventHandler _ Public Event tbl_IDS_ProdukteRowChanged As tbl_IDS_ProdukteRowChangeEventHandler _ Public Event tbl_IDS_ProdukteRowDeleting As tbl_IDS_ProdukteRowChangeEventHandler _ Public Event tbl_IDS_ProdukteRowDeleted As tbl_IDS_ProdukteRowChangeEventHandler _ Public Overloads Sub Addtbl_IDS_ProdukteRow(ByVal row As tbl_IDS_ProdukteRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_IDS_ProdukteRow(ByVal ProductTypeCode As Short, ByVal ProductDescription As String, ByVal SSMA_TimeStamp() As Byte) As tbl_IDS_ProdukteRow Dim rowtbl_IDS_ProdukteRow As tbl_IDS_ProdukteRow = CType(Me.NewRow,tbl_IDS_ProdukteRow) Dim columnValuesArray() As Object = New Object() {ProductTypeCode, ProductDescription, SSMA_TimeStamp} rowtbl_IDS_ProdukteRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_IDS_ProdukteRow) Return rowtbl_IDS_ProdukteRow End Function _ Public Function FindByProductTypeCode(ByVal ProductTypeCode As Short) As tbl_IDS_ProdukteRow Return CType(Me.Rows.Find(New Object() {ProductTypeCode}),tbl_IDS_ProdukteRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_IDS_ProdukteDataTable = CType(MyBase.Clone,tbl_IDS_ProdukteDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_IDS_ProdukteDataTable() End Function _ Friend Sub InitVars() Me.columnProductTypeCode = MyBase.Columns("ProductTypeCode") Me.columnProductDescription = MyBase.Columns("ProductDescription") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnProductTypeCode = New Global.System.Data.DataColumn("ProductTypeCode", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProductTypeCode) Me.columnProductDescription = New Global.System.Data.DataColumn("ProductDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProductDescription) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnProductTypeCode}, true)) Me.columnProductTypeCode.AllowDBNull = false Me.columnProductTypeCode.Unique = true Me.columnProductDescription.AllowDBNull = false Me.columnProductDescription.MaxLength = 30 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_IDS_ProdukteRow() As tbl_IDS_ProdukteRow Return CType(Me.NewRow,tbl_IDS_ProdukteRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_IDS_ProdukteRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_IDS_ProdukteRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_IDS_ProdukteRowChangedEvent) Is Nothing) Then RaiseEvent tbl_IDS_ProdukteRowChanged(Me, New tbl_IDS_ProdukteRowChangeEvent(CType(e.Row,tbl_IDS_ProdukteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_IDS_ProdukteRowChangingEvent) Is Nothing) Then RaiseEvent tbl_IDS_ProdukteRowChanging(Me, New tbl_IDS_ProdukteRowChangeEvent(CType(e.Row,tbl_IDS_ProdukteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_IDS_ProdukteRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_IDS_ProdukteRowDeleted(Me, New tbl_IDS_ProdukteRowChangeEvent(CType(e.Row,tbl_IDS_ProdukteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_IDS_ProdukteRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_IDS_ProdukteRowDeleting(Me, New tbl_IDS_ProdukteRowChangeEvent(CType(e.Row,tbl_IDS_ProdukteRow), e.Action)) End If End Sub _ Public Sub Removetbl_IDS_ProdukteRow(ByVal row As tbl_IDS_ProdukteRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_IDS_ProdukteDataTable" 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 tbl_IDS_RechenwerteDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_IDS_RechenwerteRow) Private columnID As Global.System.Data.DataColumn Private columnOutletCountryCode As Global.System.Data.DataColumn Private columnOutletCode As Global.System.Data.DataColumn Private columnCustomerCode As Global.System.Data.DataColumn Private columnProductTypeCode As Global.System.Data.DataColumn Private columnRechenwert As Global.System.Data.DataColumn Private columnKz As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnKategorieNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_IDS_Rechenwerte" 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 OutletCountryCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnOutletCountryCode End Get End Property _ Public ReadOnly Property OutletCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnOutletCode End Get End Property _ Public ReadOnly Property CustomerCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomerCode End Get End Property _ Public ReadOnly Property ProductTypeCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnProductTypeCode End Get End Property _ Public ReadOnly Property RechenwertColumn() As Global.System.Data.DataColumn Get Return Me.columnRechenwert End Get End Property _ Public ReadOnly Property KzColumn() As Global.System.Data.DataColumn Get Return Me.columnKz End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property KategorieNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKategorieNr 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 tbl_IDS_RechenwerteRow Get Return CType(Me.Rows(index),tbl_IDS_RechenwerteRow) End Get End Property _ Public Event tbl_IDS_RechenwerteRowChanging As tbl_IDS_RechenwerteRowChangeEventHandler _ Public Event tbl_IDS_RechenwerteRowChanged As tbl_IDS_RechenwerteRowChangeEventHandler _ Public Event tbl_IDS_RechenwerteRowDeleting As tbl_IDS_RechenwerteRowChangeEventHandler _ Public Event tbl_IDS_RechenwerteRowDeleted As tbl_IDS_RechenwerteRowChangeEventHandler _ Public Overloads Sub Addtbl_IDS_RechenwerteRow(ByVal row As tbl_IDS_RechenwerteRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_IDS_RechenwerteRow(ByVal _parenttbl_IDS_LänderRowBytbl_IDS_Rechenwerte_tbl_IDS_Ländertbl_IDS_Rechenwerte As tbl_IDS_LänderRow, ByVal OutletCode As Short, ByVal _parentAdressenRowBytbl_IDS_Rechenwerte_Adressentbl_IDS_Rechenwerte As AdressenRow, ByVal _parenttbl_IDS_ProdukteRowBytbl_IDS_Rechenwerte_tbl_IDS_Produktetbl_IDS_Rechenwerte As tbl_IDS_ProdukteRow, ByVal Rechenwert As Decimal, ByVal Kz As String, ByVal Zeitstempel As Date, ByVal Sachbearbeiter As String, ByVal SSMA_TimeStamp() As Byte, ByVal KategorieNr As Short) As tbl_IDS_RechenwerteRow Dim rowtbl_IDS_RechenwerteRow As tbl_IDS_RechenwerteRow = CType(Me.NewRow,tbl_IDS_RechenwerteRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, OutletCode, Nothing, Nothing, Rechenwert, Kz, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp, KategorieNr} If (Not (_parenttbl_IDS_LänderRowBytbl_IDS_Rechenwerte_tbl_IDS_Ländertbl_IDS_Rechenwerte) Is Nothing) Then columnValuesArray(1) = _parenttbl_IDS_LänderRowBytbl_IDS_Rechenwerte_tbl_IDS_Ländertbl_IDS_Rechenwerte(0) End If If (Not (_parentAdressenRowBytbl_IDS_Rechenwerte_Adressentbl_IDS_Rechenwerte) Is Nothing) Then columnValuesArray(3) = _parentAdressenRowBytbl_IDS_Rechenwerte_Adressentbl_IDS_Rechenwerte(1) End If If (Not (_parenttbl_IDS_ProdukteRowBytbl_IDS_Rechenwerte_tbl_IDS_Produktetbl_IDS_Rechenwerte) Is Nothing) Then columnValuesArray(4) = _parenttbl_IDS_ProdukteRowBytbl_IDS_Rechenwerte_tbl_IDS_Produktetbl_IDS_Rechenwerte(0) End If rowtbl_IDS_RechenwerteRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_IDS_RechenwerteRow) Return rowtbl_IDS_RechenwerteRow End Function _ Public Function FindByID(ByVal ID As Integer) As tbl_IDS_RechenwerteRow Return CType(Me.Rows.Find(New Object() {ID}),tbl_IDS_RechenwerteRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_IDS_RechenwerteDataTable = CType(MyBase.Clone,tbl_IDS_RechenwerteDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_IDS_RechenwerteDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnOutletCountryCode = MyBase.Columns("OutletCountryCode") Me.columnOutletCode = MyBase.Columns("OutletCode") Me.columnCustomerCode = MyBase.Columns("CustomerCode") Me.columnProductTypeCode = MyBase.Columns("ProductTypeCode") Me.columnRechenwert = MyBase.Columns("Rechenwert") Me.columnKz = MyBase.Columns("Kz") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnKategorieNr = MyBase.Columns("KategorieNr") 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.columnOutletCountryCode = New Global.System.Data.DataColumn("OutletCountryCode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutletCountryCode) Me.columnOutletCode = New Global.System.Data.DataColumn("OutletCode", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutletCode) Me.columnCustomerCode = New Global.System.Data.DataColumn("CustomerCode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomerCode) Me.columnProductTypeCode = New Global.System.Data.DataColumn("ProductTypeCode", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProductTypeCode) Me.columnRechenwert = New Global.System.Data.DataColumn("Rechenwert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechenwert) Me.columnKz = New Global.System.Data.DataColumn("Kz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKz) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnKategorieNr = New Global.System.Data.DataColumn("KategorieNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKategorieNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnOutletCountryCode.AllowDBNull = false Me.columnProductTypeCode.AllowDBNull = false Me.columnRechenwert.AllowDBNull = false Me.columnKz.AllowDBNull = false Me.columnKz.MaxLength = 1 Me.columnSachbearbeiter.MaxLength = 15 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_IDS_RechenwerteRow() As tbl_IDS_RechenwerteRow Return CType(Me.NewRow,tbl_IDS_RechenwerteRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_IDS_RechenwerteRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_IDS_RechenwerteRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_IDS_RechenwerteRowChangedEvent) Is Nothing) Then RaiseEvent tbl_IDS_RechenwerteRowChanged(Me, New tbl_IDS_RechenwerteRowChangeEvent(CType(e.Row,tbl_IDS_RechenwerteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_IDS_RechenwerteRowChangingEvent) Is Nothing) Then RaiseEvent tbl_IDS_RechenwerteRowChanging(Me, New tbl_IDS_RechenwerteRowChangeEvent(CType(e.Row,tbl_IDS_RechenwerteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_IDS_RechenwerteRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_IDS_RechenwerteRowDeleted(Me, New tbl_IDS_RechenwerteRowChangeEvent(CType(e.Row,tbl_IDS_RechenwerteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_IDS_RechenwerteRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_IDS_RechenwerteRowDeleting(Me, New tbl_IDS_RechenwerteRowChangeEvent(CType(e.Row,tbl_IDS_RechenwerteRow), e.Action)) End If End Sub _ Public Sub Removetbl_IDS_RechenwerteRow(ByVal row As tbl_IDS_RechenwerteRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_IDS_RechenwerteDataTable" 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 tbl_IDS_StationenDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_IDS_StationenRow) Private columnOutletCountryCode As Global.System.Data.DataColumn Private columnOutletCode As Global.System.Data.DataColumn Private columnOutletName As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_IDS_Stationen" 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 OutletCountryCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnOutletCountryCode End Get End Property _ Public ReadOnly Property OutletCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnOutletCode End Get End Property _ Public ReadOnly Property OutletNameColumn() As Global.System.Data.DataColumn Get Return Me.columnOutletName End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_IDS_StationenRow Get Return CType(Me.Rows(index),tbl_IDS_StationenRow) End Get End Property _ Public Event tbl_IDS_StationenRowChanging As tbl_IDS_StationenRowChangeEventHandler _ Public Event tbl_IDS_StationenRowChanged As tbl_IDS_StationenRowChangeEventHandler _ Public Event tbl_IDS_StationenRowDeleting As tbl_IDS_StationenRowChangeEventHandler _ Public Event tbl_IDS_StationenRowDeleted As tbl_IDS_StationenRowChangeEventHandler _ Public Overloads Sub Addtbl_IDS_StationenRow(ByVal row As tbl_IDS_StationenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_IDS_StationenRow(ByVal _parenttbl_IDS_LänderRowBytbl_IDS_Stationen_tbl_IDS_Ländertbl_IDS_Stationen As tbl_IDS_LänderRow, ByVal OutletCode As Short, ByVal OutletName As String, ByVal SSMA_TimeStamp() As Byte) As tbl_IDS_StationenRow Dim rowtbl_IDS_StationenRow As tbl_IDS_StationenRow = CType(Me.NewRow,tbl_IDS_StationenRow) Dim columnValuesArray() As Object = New Object() {Nothing, OutletCode, OutletName, SSMA_TimeStamp} If (Not (_parenttbl_IDS_LänderRowBytbl_IDS_Stationen_tbl_IDS_Ländertbl_IDS_Stationen) Is Nothing) Then columnValuesArray(0) = _parenttbl_IDS_LänderRowBytbl_IDS_Stationen_tbl_IDS_Ländertbl_IDS_Stationen(0) End If rowtbl_IDS_StationenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_IDS_StationenRow) Return rowtbl_IDS_StationenRow End Function _ Public Function FindByOutletCountryCodeOutletCode(ByVal OutletCountryCode As Integer, ByVal OutletCode As Short) As tbl_IDS_StationenRow Return CType(Me.Rows.Find(New Object() {OutletCountryCode, OutletCode}),tbl_IDS_StationenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_IDS_StationenDataTable = CType(MyBase.Clone,tbl_IDS_StationenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_IDS_StationenDataTable() End Function _ Friend Sub InitVars() Me.columnOutletCountryCode = MyBase.Columns("OutletCountryCode") Me.columnOutletCode = MyBase.Columns("OutletCode") Me.columnOutletName = MyBase.Columns("OutletName") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnOutletCountryCode = New Global.System.Data.DataColumn("OutletCountryCode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutletCountryCode) Me.columnOutletCode = New Global.System.Data.DataColumn("OutletCode", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutletCode) Me.columnOutletName = New Global.System.Data.DataColumn("OutletName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutletName) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnOutletCountryCode, Me.columnOutletCode}, true)) Me.columnOutletCountryCode.AllowDBNull = false Me.columnOutletCode.AllowDBNull = false Me.columnOutletName.AllowDBNull = false Me.columnOutletName.MaxLength = 30 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_IDS_StationenRow() As tbl_IDS_StationenRow Return CType(Me.NewRow,tbl_IDS_StationenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_IDS_StationenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_IDS_StationenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_IDS_StationenRowChangedEvent) Is Nothing) Then RaiseEvent tbl_IDS_StationenRowChanged(Me, New tbl_IDS_StationenRowChangeEvent(CType(e.Row,tbl_IDS_StationenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_IDS_StationenRowChangingEvent) Is Nothing) Then RaiseEvent tbl_IDS_StationenRowChanging(Me, New tbl_IDS_StationenRowChangeEvent(CType(e.Row,tbl_IDS_StationenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_IDS_StationenRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_IDS_StationenRowDeleted(Me, New tbl_IDS_StationenRowChangeEvent(CType(e.Row,tbl_IDS_StationenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_IDS_StationenRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_IDS_StationenRowDeleting(Me, New tbl_IDS_StationenRowChangeEvent(CType(e.Row,tbl_IDS_StationenRow), e.Action)) End If End Sub _ Public Sub Removetbl_IDS_StationenRow(ByVal row As tbl_IDS_StationenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_IDS_StationenDataTable" 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 tbl_Intrastat_AusfuhrDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_Intrastat_AusfuhrRow) Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnBezugsnummer As Global.System.Data.DataColumn Private columnPositionsnummer As Global.System.Data.DataColumn Private columnRegistrierkennzeichen As Global.System.Data.DataColumn Private columnDateierzeugungsdatum As Global.System.Data.DataColumn Private columnVersendung As Global.System.Data.DataColumn Private columnAnmeldeform As Global.System.Data.DataColumn Private columnAnmeldemonat As Global.System.Data.DataColumn Private columnAnmeldejahr As Global.System.Data.DataColumn Private columnPaginiernummer As Global.System.Data.DataColumn Private columnBundeslandFinanzamt As Global.System.Data.DataColumn Private columnSteuernummer As Global.System.Data.DataColumn Private columnUnterscheidungsnummer As Global.System.Data.DataColumn Private columnBestimmungsland As Global.System.Data.DataColumn Private columnUrsprungsregion As Global.System.Data.DataColumn Private columnGeschäftsart As Global.System.Data.DataColumn Private columnVerkehrszweig As Global.System.Data.DataColumn Private columnWarennummer As Global.System.Data.DataColumn Private columnEigenmasse As Global.System.Data.DataColumn Private columnBesondereMasseinheit As Global.System.Data.DataColumn Private columnRechnungsbetrag As Global.System.Data.DataColumn Private columnStatistischerWert As Global.System.Data.DataColumn Private columnBezugszeitraum As Global.System.Data.DataColumn Private columnWarenbeschreibung As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_Intrastat_Ausfuhr" 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 MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property BezugsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBezugsnummer End Get End Property _ Public ReadOnly Property PositionsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnPositionsnummer End Get End Property _ Public ReadOnly Property RegistrierkennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnRegistrierkennzeichen End Get End Property _ Public ReadOnly Property DateierzeugungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnDateierzeugungsdatum End Get End Property _ Public ReadOnly Property VersendungColumn() As Global.System.Data.DataColumn Get Return Me.columnVersendung End Get End Property _ Public ReadOnly Property AnmeldeformColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmeldeform End Get End Property _ Public ReadOnly Property AnmeldemonatColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmeldemonat End Get End Property _ Public ReadOnly Property AnmeldejahrColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmeldejahr End Get End Property _ Public ReadOnly Property PaginiernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnPaginiernummer End Get End Property _ Public ReadOnly Property BundeslandFinanzamtColumn() As Global.System.Data.DataColumn Get Return Me.columnBundeslandFinanzamt End Get End Property _ Public ReadOnly Property SteuernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuernummer End Get End Property _ Public ReadOnly Property UnterscheidungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterscheidungsnummer End Get End Property _ Public ReadOnly Property BestimmungslandColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungsland End Get End Property _ Public ReadOnly Property UrsprungsregionColumn() As Global.System.Data.DataColumn Get Return Me.columnUrsprungsregion End Get End Property _ Public ReadOnly Property GeschäftsartColumn() As Global.System.Data.DataColumn Get Return Me.columnGeschäftsart End Get End Property _ Public ReadOnly Property VerkehrszweigColumn() As Global.System.Data.DataColumn Get Return Me.columnVerkehrszweig End Get End Property _ Public ReadOnly Property WarennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnWarennummer End Get End Property _ Public ReadOnly Property EigenmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnEigenmasse End Get End Property _ Public ReadOnly Property BesondereMasseinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnBesondereMasseinheit End Get End Property _ Public ReadOnly Property RechnungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetrag End Get End Property _ Public ReadOnly Property StatistischerWertColumn() As Global.System.Data.DataColumn Get Return Me.columnStatistischerWert End Get End Property _ Public ReadOnly Property BezugszeitraumColumn() As Global.System.Data.DataColumn Get Return Me.columnBezugszeitraum End Get End Property _ Public ReadOnly Property WarenbeschreibungColumn() As Global.System.Data.DataColumn Get Return Me.columnWarenbeschreibung End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tbl_Intrastat_AusfuhrRow Get Return CType(Me.Rows(index),tbl_Intrastat_AusfuhrRow) End Get End Property _ Public Event tbl_Intrastat_AusfuhrRowChanging As tbl_Intrastat_AusfuhrRowChangeEventHandler _ Public Event tbl_Intrastat_AusfuhrRowChanged As tbl_Intrastat_AusfuhrRowChangeEventHandler _ Public Event tbl_Intrastat_AusfuhrRowDeleting As tbl_Intrastat_AusfuhrRowChangeEventHandler _ Public Event tbl_Intrastat_AusfuhrRowDeleted As tbl_Intrastat_AusfuhrRowChangeEventHandler _ Public Overloads Sub Addtbl_Intrastat_AusfuhrRow(ByVal row As tbl_Intrastat_AusfuhrRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_Intrastat_AusfuhrRow( _ ByVal Mandant As String, _ ByVal Niederlassung As String, _ ByVal Bezugsnummer As String, _ ByVal Positionsnummer As Short, _ ByVal Registrierkennzeichen As String, _ ByVal Dateierzeugungsdatum As Date, _ ByVal Versendung As String, _ ByVal Anmeldeform As String, _ ByVal Anmeldemonat As Short, _ ByVal Anmeldejahr As Short, _ ByVal Paginiernummer As Integer, _ ByVal BundeslandFinanzamt As String, _ ByVal Steuernummer As String, _ ByVal Unterscheidungsnummer As String, _ ByVal Bestimmungsland As String, _ ByVal Ursprungsregion As String, _ ByVal Geschäftsart As String, _ ByVal Verkehrszweig As String, _ ByVal Warennummer As String, _ ByVal Eigenmasse As Integer, _ ByVal BesondereMasseinheit As Integer, _ ByVal Rechnungsbetrag As Integer, _ ByVal StatistischerWert As Integer, _ ByVal Bezugszeitraum As Date, _ ByVal Warenbeschreibung As String, _ ByVal Zeitstempel As Date, _ ByVal upsize_ts() As Byte) As tbl_Intrastat_AusfuhrRow Dim rowtbl_Intrastat_AusfuhrRow As tbl_Intrastat_AusfuhrRow = CType(Me.NewRow,tbl_Intrastat_AusfuhrRow) Dim columnValuesArray() As Object = New Object() {Mandant, Niederlassung, Bezugsnummer, Positionsnummer, Registrierkennzeichen, Dateierzeugungsdatum, Versendung, Anmeldeform, Anmeldemonat, Anmeldejahr, Paginiernummer, BundeslandFinanzamt, Steuernummer, Unterscheidungsnummer, Bestimmungsland, Ursprungsregion, Geschäftsart, Verkehrszweig, Warennummer, Eigenmasse, BesondereMasseinheit, Rechnungsbetrag, StatistischerWert, Bezugszeitraum, Warenbeschreibung, Zeitstempel, upsize_ts} rowtbl_Intrastat_AusfuhrRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_Intrastat_AusfuhrRow) Return rowtbl_Intrastat_AusfuhrRow End Function _ Public Function FindByMandantNiederlassungBezugsnummerPositionsnummer(ByVal Mandant As String, ByVal Niederlassung As String, ByVal Bezugsnummer As String, ByVal Positionsnummer As Short) As tbl_Intrastat_AusfuhrRow Return CType(Me.Rows.Find(New Object() {Mandant, Niederlassung, Bezugsnummer, Positionsnummer}),tbl_Intrastat_AusfuhrRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_Intrastat_AusfuhrDataTable = CType(MyBase.Clone,tbl_Intrastat_AusfuhrDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_Intrastat_AusfuhrDataTable() End Function _ Friend Sub InitVars() Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnBezugsnummer = MyBase.Columns("Bezugsnummer") Me.columnPositionsnummer = MyBase.Columns("Positionsnummer") Me.columnRegistrierkennzeichen = MyBase.Columns("Registrierkennzeichen") Me.columnDateierzeugungsdatum = MyBase.Columns("Dateierzeugungsdatum") Me.columnVersendung = MyBase.Columns("Versendung") Me.columnAnmeldeform = MyBase.Columns("Anmeldeform") Me.columnAnmeldemonat = MyBase.Columns("Anmeldemonat") Me.columnAnmeldejahr = MyBase.Columns("Anmeldejahr") Me.columnPaginiernummer = MyBase.Columns("Paginiernummer") Me.columnBundeslandFinanzamt = MyBase.Columns("BundeslandFinanzamt") Me.columnSteuernummer = MyBase.Columns("Steuernummer") Me.columnUnterscheidungsnummer = MyBase.Columns("Unterscheidungsnummer") Me.columnBestimmungsland = MyBase.Columns("Bestimmungsland") Me.columnUrsprungsregion = MyBase.Columns("Ursprungsregion") Me.columnGeschäftsart = MyBase.Columns("Geschäftsart") Me.columnVerkehrszweig = MyBase.Columns("Verkehrszweig") Me.columnWarennummer = MyBase.Columns("Warennummer") Me.columnEigenmasse = MyBase.Columns("Eigenmasse") Me.columnBesondereMasseinheit = MyBase.Columns("BesondereMasseinheit") Me.columnRechnungsbetrag = MyBase.Columns("Rechnungsbetrag") Me.columnStatistischerWert = MyBase.Columns("StatistischerWert") Me.columnBezugszeitraum = MyBase.Columns("Bezugszeitraum") Me.columnWarenbeschreibung = MyBase.Columns("Warenbeschreibung") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnBezugsnummer = New Global.System.Data.DataColumn("Bezugsnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBezugsnummer) Me.columnPositionsnummer = New Global.System.Data.DataColumn("Positionsnummer", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPositionsnummer) Me.columnRegistrierkennzeichen = New Global.System.Data.DataColumn("Registrierkennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRegistrierkennzeichen) Me.columnDateierzeugungsdatum = New Global.System.Data.DataColumn("Dateierzeugungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateierzeugungsdatum) Me.columnVersendung = New Global.System.Data.DataColumn("Versendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVersendung) Me.columnAnmeldeform = New Global.System.Data.DataColumn("Anmeldeform", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmeldeform) Me.columnAnmeldemonat = New Global.System.Data.DataColumn("Anmeldemonat", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmeldemonat) Me.columnAnmeldejahr = New Global.System.Data.DataColumn("Anmeldejahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmeldejahr) Me.columnPaginiernummer = New Global.System.Data.DataColumn("Paginiernummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPaginiernummer) Me.columnBundeslandFinanzamt = New Global.System.Data.DataColumn("BundeslandFinanzamt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBundeslandFinanzamt) Me.columnSteuernummer = New Global.System.Data.DataColumn("Steuernummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuernummer) Me.columnUnterscheidungsnummer = New Global.System.Data.DataColumn("Unterscheidungsnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterscheidungsnummer) Me.columnBestimmungsland = New Global.System.Data.DataColumn("Bestimmungsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungsland) Me.columnUrsprungsregion = New Global.System.Data.DataColumn("Ursprungsregion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUrsprungsregion) Me.columnGeschäftsart = New Global.System.Data.DataColumn("Geschäftsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeschäftsart) Me.columnVerkehrszweig = New Global.System.Data.DataColumn("Verkehrszweig", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVerkehrszweig) Me.columnWarennummer = New Global.System.Data.DataColumn("Warennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarennummer) Me.columnEigenmasse = New Global.System.Data.DataColumn("Eigenmasse", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEigenmasse) Me.columnBesondereMasseinheit = New Global.System.Data.DataColumn("BesondereMasseinheit", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesondereMasseinheit) Me.columnRechnungsbetrag = New Global.System.Data.DataColumn("Rechnungsbetrag", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetrag) Me.columnStatistischerWert = New Global.System.Data.DataColumn("StatistischerWert", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatistischerWert) Me.columnBezugszeitraum = New Global.System.Data.DataColumn("Bezugszeitraum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBezugszeitraum) Me.columnWarenbeschreibung = New Global.System.Data.DataColumn("Warenbeschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarenbeschreibung) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMandant, Me.columnNiederlassung, Me.columnBezugsnummer, Me.columnPositionsnummer}, true)) Me.columnMandant.AllowDBNull = false Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.AllowDBNull = false Me.columnNiederlassung.MaxLength = 3 Me.columnBezugsnummer.AllowDBNull = false Me.columnBezugsnummer.MaxLength = 35 Me.columnPositionsnummer.AllowDBNull = false Me.columnRegistrierkennzeichen.MaxLength = 29 Me.columnVersendung.AllowDBNull = false Me.columnVersendung.MaxLength = 1 Me.columnAnmeldeform.AllowDBNull = false Me.columnAnmeldeform.MaxLength = 1 Me.columnBundeslandFinanzamt.AllowDBNull = false Me.columnBundeslandFinanzamt.MaxLength = 2 Me.columnSteuernummer.AllowDBNull = false Me.columnSteuernummer.MaxLength = 11 Me.columnUnterscheidungsnummer.AllowDBNull = false Me.columnUnterscheidungsnummer.MaxLength = 3 Me.columnBestimmungsland.AllowDBNull = false Me.columnBestimmungsland.MaxLength = 2 Me.columnUrsprungsregion.AllowDBNull = false Me.columnUrsprungsregion.MaxLength = 2 Me.columnGeschäftsart.AllowDBNull = false Me.columnGeschäftsart.MaxLength = 2 Me.columnVerkehrszweig.AllowDBNull = false Me.columnVerkehrszweig.MaxLength = 1 Me.columnWarennummer.AllowDBNull = false Me.columnWarennummer.MaxLength = 8 Me.columnEigenmasse.AllowDBNull = false Me.columnRechnungsbetrag.AllowDBNull = false Me.columnBezugszeitraum.AllowDBNull = false Me.columnWarenbeschreibung.AllowDBNull = false Me.columnWarenbeschreibung.MaxLength = 240 Me.columnZeitstempel.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function Newtbl_Intrastat_AusfuhrRow() As tbl_Intrastat_AusfuhrRow Return CType(Me.NewRow,tbl_Intrastat_AusfuhrRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_Intrastat_AusfuhrRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_Intrastat_AusfuhrRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_Intrastat_AusfuhrRowChangedEvent) Is Nothing) Then RaiseEvent tbl_Intrastat_AusfuhrRowChanged(Me, New tbl_Intrastat_AusfuhrRowChangeEvent(CType(e.Row,tbl_Intrastat_AusfuhrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_Intrastat_AusfuhrRowChangingEvent) Is Nothing) Then RaiseEvent tbl_Intrastat_AusfuhrRowChanging(Me, New tbl_Intrastat_AusfuhrRowChangeEvent(CType(e.Row,tbl_Intrastat_AusfuhrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_Intrastat_AusfuhrRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_Intrastat_AusfuhrRowDeleted(Me, New tbl_Intrastat_AusfuhrRowChangeEvent(CType(e.Row,tbl_Intrastat_AusfuhrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_Intrastat_AusfuhrRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_Intrastat_AusfuhrRowDeleting(Me, New tbl_Intrastat_AusfuhrRowChangeEvent(CType(e.Row,tbl_Intrastat_AusfuhrRow), e.Action)) End If End Sub _ Public Sub Removetbl_Intrastat_AusfuhrRow(ByVal row As tbl_Intrastat_AusfuhrRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_Intrastat_AusfuhrDataTable" 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 tbl_TelefonbuchDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_TelefonbuchRow) Private columnID As Global.System.Data.DataColumn Private columnKurzname As Global.System.Data.DataColumn Private columnKundenNr As Global.System.Data.DataColumn Private columnName_1 As Global.System.Data.DataColumn Private columnName_2 As Global.System.Data.DataColumn Private columnName_3 As Global.System.Data.DataColumn Private columnStraße As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnPLZ As Global.System.Data.DataColumn Private columnOrt As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_Telefonbuch" 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 KurznameColumn() As Global.System.Data.DataColumn Get Return Me.columnKurzname End Get End Property _ Public ReadOnly Property KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property Name_1Column() As Global.System.Data.DataColumn Get Return Me.columnName_1 End Get End Property _ Public ReadOnly Property Name_2Column() As Global.System.Data.DataColumn Get Return Me.columnName_2 End Get End Property _ Public ReadOnly Property Name_3Column() As Global.System.Data.DataColumn Get Return Me.columnName_3 End Get End Property _ Public ReadOnly Property StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnStraße End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnPLZ End Get End Property _ Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnOrt End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_TelefonbuchRow Get Return CType(Me.Rows(index),tbl_TelefonbuchRow) End Get End Property _ Public Event tbl_TelefonbuchRowChanging As tbl_TelefonbuchRowChangeEventHandler _ Public Event tbl_TelefonbuchRowChanged As tbl_TelefonbuchRowChangeEventHandler _ Public Event tbl_TelefonbuchRowDeleting As tbl_TelefonbuchRowChangeEventHandler _ Public Event tbl_TelefonbuchRowDeleted As tbl_TelefonbuchRowChangeEventHandler _ Public Overloads Sub Addtbl_TelefonbuchRow(ByVal row As tbl_TelefonbuchRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_TelefonbuchRow(ByVal Kurzname As String, ByVal KundenNr As Integer, ByVal Name_1 As String, ByVal Name_2 As String, ByVal Name_3 As String, ByVal Straße As String, ByVal LandKz As String, ByVal PLZ As String, ByVal Ort As String, ByVal Zeitstempel As Date, ByVal SSMA_TimeStamp() As Byte) As tbl_TelefonbuchRow Dim rowtbl_TelefonbuchRow As tbl_TelefonbuchRow = CType(Me.NewRow,tbl_TelefonbuchRow) Dim columnValuesArray() As Object = New Object() {Nothing, Kurzname, KundenNr, Name_1, Name_2, Name_3, Straße, LandKz, PLZ, Ort, Zeitstempel, SSMA_TimeStamp} rowtbl_TelefonbuchRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_TelefonbuchRow) Return rowtbl_TelefonbuchRow End Function _ Public Function FindByID(ByVal ID As Integer) As tbl_TelefonbuchRow Return CType(Me.Rows.Find(New Object() {ID}),tbl_TelefonbuchRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_TelefonbuchDataTable = CType(MyBase.Clone,tbl_TelefonbuchDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_TelefonbuchDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnKurzname = MyBase.Columns("Kurzname") Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnName_1 = MyBase.Columns("Name 1") Me.columnName_2 = MyBase.Columns("Name 2") Me.columnName_3 = MyBase.Columns("Name 3") Me.columnStraße = MyBase.Columns("Straße") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnPLZ = MyBase.Columns("PLZ") Me.columnOrt = MyBase.Columns("Ort") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") 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.columnKurzname = New Global.System.Data.DataColumn("Kurzname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKurzname) Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnName_1 = New Global.System.Data.DataColumn("Name 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName_1) Me.columnName_2 = New Global.System.Data.DataColumn("Name 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName_2) Me.columnName_3 = New Global.System.Data.DataColumn("Name 3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName_3) Me.columnStraße = New Global.System.Data.DataColumn("Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStraße) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLZ) Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrt) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnKurzname.AllowDBNull = false Me.columnKurzname.MaxLength = 50 Me.columnName_1.MaxLength = 40 Me.columnName_2.MaxLength = 40 Me.columnName_3.MaxLength = 40 Me.columnStraße.MaxLength = 40 Me.columnLandKz.MaxLength = 3 Me.columnPLZ.MaxLength = 7 Me.columnOrt.MaxLength = 40 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_TelefonbuchRow() As tbl_TelefonbuchRow Return CType(Me.NewRow,tbl_TelefonbuchRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_TelefonbuchRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_TelefonbuchRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_TelefonbuchRowChangedEvent) Is Nothing) Then RaiseEvent tbl_TelefonbuchRowChanged(Me, New tbl_TelefonbuchRowChangeEvent(CType(e.Row,tbl_TelefonbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_TelefonbuchRowChangingEvent) Is Nothing) Then RaiseEvent tbl_TelefonbuchRowChanging(Me, New tbl_TelefonbuchRowChangeEvent(CType(e.Row,tbl_TelefonbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_TelefonbuchRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_TelefonbuchRowDeleted(Me, New tbl_TelefonbuchRowChangeEvent(CType(e.Row,tbl_TelefonbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_TelefonbuchRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_TelefonbuchRowDeleting(Me, New tbl_TelefonbuchRowChangeEvent(CType(e.Row,tbl_TelefonbuchRow), e.Action)) End If End Sub _ Public Sub Removetbl_TelefonbuchRow(ByVal row As tbl_TelefonbuchRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_TelefonbuchDataTable" 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 tbl_TelefonnummernDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_TelefonnummernRow) Private columnID As Global.System.Data.DataColumn Private columnID_tbl_Telefonbuch As Global.System.Data.DataColumn Private columnBS As Global.System.Data.DataColumn Private columnKennung As Global.System.Data.DataColumn Private columnNummer As Global.System.Data.DataColumn Private columnAbteilung As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_Telefonnummern" 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 ID_tbl_TelefonbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnID_tbl_Telefonbuch End Get End Property _ Public ReadOnly Property BSColumn() As Global.System.Data.DataColumn Get Return Me.columnBS End Get End Property _ Public ReadOnly Property KennungColumn() As Global.System.Data.DataColumn Get Return Me.columnKennung End Get End Property _ Public ReadOnly Property NummerColumn() As Global.System.Data.DataColumn Get Return Me.columnNummer End Get End Property _ Public ReadOnly Property AbteilungColumn() As Global.System.Data.DataColumn Get Return Me.columnAbteilung End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_TelefonnummernRow Get Return CType(Me.Rows(index),tbl_TelefonnummernRow) End Get End Property _ Public Event tbl_TelefonnummernRowChanging As tbl_TelefonnummernRowChangeEventHandler _ Public Event tbl_TelefonnummernRowChanged As tbl_TelefonnummernRowChangeEventHandler _ Public Event tbl_TelefonnummernRowDeleting As tbl_TelefonnummernRowChangeEventHandler _ Public Event tbl_TelefonnummernRowDeleted As tbl_TelefonnummernRowChangeEventHandler _ Public Overloads Sub Addtbl_TelefonnummernRow(ByVal row As tbl_TelefonnummernRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_TelefonnummernRow(ByVal _parenttbl_TelefonbuchRowBytbl_Telefonnummern__225FED75_BA09_45E0_9A45_F3814507EBE0_ As tbl_TelefonbuchRow, ByVal BS As Short, ByVal Kennung As Short, ByVal Nummer As String, ByVal Abteilung As String, ByVal Zeitstempel As Date, ByVal SSMA_TimeStamp() As Byte) As tbl_TelefonnummernRow Dim rowtbl_TelefonnummernRow As tbl_TelefonnummernRow = CType(Me.NewRow,tbl_TelefonnummernRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, BS, Kennung, Nummer, Abteilung, Zeitstempel, SSMA_TimeStamp} If (Not (_parenttbl_TelefonbuchRowBytbl_Telefonnummern__225FED75_BA09_45E0_9A45_F3814507EBE0_) Is Nothing) Then columnValuesArray(1) = _parenttbl_TelefonbuchRowBytbl_Telefonnummern__225FED75_BA09_45E0_9A45_F3814507EBE0_(0) End If rowtbl_TelefonnummernRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_TelefonnummernRow) Return rowtbl_TelefonnummernRow End Function _ Public Function FindByID(ByVal ID As Integer) As tbl_TelefonnummernRow Return CType(Me.Rows.Find(New Object() {ID}),tbl_TelefonnummernRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_TelefonnummernDataTable = CType(MyBase.Clone,tbl_TelefonnummernDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_TelefonnummernDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnID_tbl_Telefonbuch = MyBase.Columns("ID_tbl_Telefonbuch") Me.columnBS = MyBase.Columns("BS") Me.columnKennung = MyBase.Columns("Kennung") Me.columnNummer = MyBase.Columns("Nummer") Me.columnAbteilung = MyBase.Columns("Abteilung") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") 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.columnID_tbl_Telefonbuch = New Global.System.Data.DataColumn("ID_tbl_Telefonbuch", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID_tbl_Telefonbuch) Me.columnBS = New Global.System.Data.DataColumn("BS", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBS) Me.columnKennung = New Global.System.Data.DataColumn("Kennung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKennung) Me.columnNummer = New Global.System.Data.DataColumn("Nummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNummer) Me.columnAbteilung = New Global.System.Data.DataColumn("Abteilung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbteilung) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnID_tbl_Telefonbuch.AllowDBNull = false Me.columnKennung.AllowDBNull = false Me.columnNummer.AllowDBNull = false Me.columnNummer.MaxLength = 50 Me.columnAbteilung.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_TelefonnummernRow() As tbl_TelefonnummernRow Return CType(Me.NewRow,tbl_TelefonnummernRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_TelefonnummernRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_TelefonnummernRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_TelefonnummernRowChangedEvent) Is Nothing) Then RaiseEvent tbl_TelefonnummernRowChanged(Me, New tbl_TelefonnummernRowChangeEvent(CType(e.Row,tbl_TelefonnummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_TelefonnummernRowChangingEvent) Is Nothing) Then RaiseEvent tbl_TelefonnummernRowChanging(Me, New tbl_TelefonnummernRowChangeEvent(CType(e.Row,tbl_TelefonnummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_TelefonnummernRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_TelefonnummernRowDeleted(Me, New tbl_TelefonnummernRowChangeEvent(CType(e.Row,tbl_TelefonnummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_TelefonnummernRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_TelefonnummernRowDeleting(Me, New tbl_TelefonnummernRowChangeEvent(CType(e.Row,tbl_TelefonnummernRow), e.Action)) End If End Sub _ Public Sub Removetbl_TelefonnummernRow(ByVal row As tbl_TelefonnummernRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_TelefonnummernDataTable" 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 tbl_WÖLFLDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_WÖLFLRow) Private columnProduktcode As Global.System.Data.DataColumn Private columnBezeichnung As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnPreiszuschlag As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_WÖLFL" 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 ProduktcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnProduktcode End Get End Property _ Public ReadOnly Property BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnBezeichnung End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property PreiszuschlagColumn() As Global.System.Data.DataColumn Get Return Me.columnPreiszuschlag End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tbl_WÖLFLRow Get Return CType(Me.Rows(index),tbl_WÖLFLRow) End Get End Property _ Public Event tbl_WÖLFLRowChanging As tbl_WÖLFLRowChangeEventHandler _ Public Event tbl_WÖLFLRowChanged As tbl_WÖLFLRowChangeEventHandler _ Public Event tbl_WÖLFLRowDeleting As tbl_WÖLFLRowChangeEventHandler _ Public Event tbl_WÖLFLRowDeleted As tbl_WÖLFLRowChangeEventHandler _ Public Overloads Sub Addtbl_WÖLFLRow(ByVal row As tbl_WÖLFLRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_WÖLFLRow(ByVal Produktcode As Short, ByVal Bezeichnung As String, ByVal Preis As Decimal, ByVal Preiszuschlag As Decimal, ByVal SSMA_TimeStamp() As Byte) As tbl_WÖLFLRow Dim rowtbl_WÖLFLRow As tbl_WÖLFLRow = CType(Me.NewRow,tbl_WÖLFLRow) Dim columnValuesArray() As Object = New Object() {Produktcode, Bezeichnung, Preis, Preiszuschlag, SSMA_TimeStamp} rowtbl_WÖLFLRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_WÖLFLRow) Return rowtbl_WÖLFLRow End Function _ Public Function FindByProduktcode(ByVal Produktcode As Short) As tbl_WÖLFLRow Return CType(Me.Rows.Find(New Object() {Produktcode}),tbl_WÖLFLRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_WÖLFLDataTable = CType(MyBase.Clone,tbl_WÖLFLDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_WÖLFLDataTable() End Function _ Friend Sub InitVars() Me.columnProduktcode = MyBase.Columns("Produktcode") Me.columnBezeichnung = MyBase.Columns("Bezeichnung") Me.columnPreis = MyBase.Columns("Preis") Me.columnPreiszuschlag = MyBase.Columns("Preiszuschlag") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnProduktcode = New Global.System.Data.DataColumn("Produktcode", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProduktcode) Me.columnBezeichnung = New Global.System.Data.DataColumn("Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBezeichnung) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnPreiszuschlag = New Global.System.Data.DataColumn("Preiszuschlag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreiszuschlag) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnProduktcode}, true)) Me.columnProduktcode.AllowDBNull = false Me.columnProduktcode.Unique = true Me.columnBezeichnung.AllowDBNull = false Me.columnBezeichnung.MaxLength = 30 Me.columnPreis.AllowDBNull = false Me.columnPreiszuschlag.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function Newtbl_WÖLFLRow() As tbl_WÖLFLRow Return CType(Me.NewRow,tbl_WÖLFLRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_WÖLFLRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_WÖLFLRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_WÖLFLRowChangedEvent) Is Nothing) Then RaiseEvent tbl_WÖLFLRowChanged(Me, New tbl_WÖLFLRowChangeEvent(CType(e.Row,tbl_WÖLFLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_WÖLFLRowChangingEvent) Is Nothing) Then RaiseEvent tbl_WÖLFLRowChanging(Me, New tbl_WÖLFLRowChangeEvent(CType(e.Row,tbl_WÖLFLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_WÖLFLRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_WÖLFLRowDeleted(Me, New tbl_WÖLFLRowChangeEvent(CType(e.Row,tbl_WÖLFLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_WÖLFLRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_WÖLFLRowDeleting(Me, New tbl_WÖLFLRowChangeEvent(CType(e.Row,tbl_WÖLFLRow), e.Action)) End If End Sub _ Public Sub Removetbl_WÖLFLRow(ByVal row As tbl_WÖLFLRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_WÖLFLDataTable" 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 tbl_ZM_tabelleDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_ZM_tabelleRow) Private columnknre1 As Global.System.Data.DataColumn Private columnknre2 As Global.System.Data.DataColumn Private columnbetrag As Global.System.Data.DataColumn Private columnzeile_m As Global.System.Data.DataColumn Private columnumsatz_art As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_ZM_tabelle" 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 knre1Column() As Global.System.Data.DataColumn Get Return Me.columnknre1 End Get End Property _ Public ReadOnly Property knre2Column() As Global.System.Data.DataColumn Get Return Me.columnknre2 End Get End Property _ Public ReadOnly Property betragColumn() As Global.System.Data.DataColumn Get Return Me.columnbetrag End Get End Property _ Public ReadOnly Property zeile_mColumn() As Global.System.Data.DataColumn Get Return Me.columnzeile_m End Get End Property _ Public ReadOnly Property umsatz_artColumn() As Global.System.Data.DataColumn Get Return Me.columnumsatz_art End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tbl_ZM_tabelleRow Get Return CType(Me.Rows(index),tbl_ZM_tabelleRow) End Get End Property _ Public Event tbl_ZM_tabelleRowChanging As tbl_ZM_tabelleRowChangeEventHandler _ Public Event tbl_ZM_tabelleRowChanged As tbl_ZM_tabelleRowChangeEventHandler _ Public Event tbl_ZM_tabelleRowDeleting As tbl_ZM_tabelleRowChangeEventHandler _ Public Event tbl_ZM_tabelleRowDeleted As tbl_ZM_tabelleRowChangeEventHandler _ Public Overloads Sub Addtbl_ZM_tabelleRow(ByVal row As tbl_ZM_tabelleRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_ZM_tabelleRow(ByVal knre1 As String, ByVal knre2 As String, ByVal betrag As Integer, ByVal zeile_m As Short, ByVal umsatz_art As Short, ByVal upsize_ts() As Byte) As tbl_ZM_tabelleRow Dim rowtbl_ZM_tabelleRow As tbl_ZM_tabelleRow = CType(Me.NewRow,tbl_ZM_tabelleRow) Dim columnValuesArray() As Object = New Object() {knre1, knre2, betrag, zeile_m, umsatz_art, upsize_ts} rowtbl_ZM_tabelleRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_ZM_tabelleRow) Return rowtbl_ZM_tabelleRow End Function _ Public Function FindByzeile_m(ByVal zeile_m As Short) As tbl_ZM_tabelleRow Return CType(Me.Rows.Find(New Object() {zeile_m}),tbl_ZM_tabelleRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_ZM_tabelleDataTable = CType(MyBase.Clone,tbl_ZM_tabelleDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_ZM_tabelleDataTable() End Function _ Friend Sub InitVars() Me.columnknre1 = MyBase.Columns("knre1") Me.columnknre2 = MyBase.Columns("knre2") Me.columnbetrag = MyBase.Columns("betrag") Me.columnzeile_m = MyBase.Columns("zeile_m") Me.columnumsatz_art = MyBase.Columns("umsatz_art") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnknre1 = New Global.System.Data.DataColumn("knre1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnknre1) Me.columnknre2 = New Global.System.Data.DataColumn("knre2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnknre2) Me.columnbetrag = New Global.System.Data.DataColumn("betrag", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbetrag) Me.columnzeile_m = New Global.System.Data.DataColumn("zeile_m", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzeile_m) Me.columnumsatz_art = New Global.System.Data.DataColumn("umsatz_art", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnumsatz_art) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnzeile_m}, true)) Me.columnknre1.AllowDBNull = false Me.columnknre1.MaxLength = 2 Me.columnknre2.AllowDBNull = false Me.columnknre2.MaxLength = 13 Me.columnbetrag.AllowDBNull = false Me.columnzeile_m.AllowDBNull = false Me.columnzeile_m.Unique = true Me.columnumsatz_art.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function Newtbl_ZM_tabelleRow() As tbl_ZM_tabelleRow Return CType(Me.NewRow,tbl_ZM_tabelleRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_ZM_tabelleRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_ZM_tabelleRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_ZM_tabelleRowChangedEvent) Is Nothing) Then RaiseEvent tbl_ZM_tabelleRowChanged(Me, New tbl_ZM_tabelleRowChangeEvent(CType(e.Row,tbl_ZM_tabelleRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_ZM_tabelleRowChangingEvent) Is Nothing) Then RaiseEvent tbl_ZM_tabelleRowChanging(Me, New tbl_ZM_tabelleRowChangeEvent(CType(e.Row,tbl_ZM_tabelleRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_ZM_tabelleRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_ZM_tabelleRowDeleted(Me, New tbl_ZM_tabelleRowChangeEvent(CType(e.Row,tbl_ZM_tabelleRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_ZM_tabelleRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_ZM_tabelleRowDeleting(Me, New tbl_ZM_tabelleRowChangeEvent(CType(e.Row,tbl_ZM_tabelleRow), e.Action)) End If End Sub _ Public Sub Removetbl_ZM_tabelleRow(ByVal row As tbl_ZM_tabelleRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tbl_ZM_tabelleDataTable" 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 tblAbfertigungsartenFilialeDataTable Inherits Global.System.Data.TypedTableBase(Of tblAbfertigungsartenFilialeRow) Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsart As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblAbfertigungsartenFiliale" 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 FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsart 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 tblAbfertigungsartenFilialeRow Get Return CType(Me.Rows(index),tblAbfertigungsartenFilialeRow) End Get End Property _ Public Event tblAbfertigungsartenFilialeRowChanging As tblAbfertigungsartenFilialeRowChangeEventHandler _ Public Event tblAbfertigungsartenFilialeRowChanged As tblAbfertigungsartenFilialeRowChangeEventHandler _ Public Event tblAbfertigungsartenFilialeRowDeleting As tblAbfertigungsartenFilialeRowChangeEventHandler _ Public Event tblAbfertigungsartenFilialeRowDeleted As tblAbfertigungsartenFilialeRowChangeEventHandler _ Public Overloads Sub AddtblAbfertigungsartenFilialeRow(ByVal row As tblAbfertigungsartenFilialeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblAbfertigungsartenFilialeRow(ByVal FilialenNr As Integer, ByVal Abfertigungsart As Integer) As tblAbfertigungsartenFilialeRow Dim rowtblAbfertigungsartenFilialeRow As tblAbfertigungsartenFilialeRow = CType(Me.NewRow,tblAbfertigungsartenFilialeRow) Dim columnValuesArray() As Object = New Object() {FilialenNr, Abfertigungsart} rowtblAbfertigungsartenFilialeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblAbfertigungsartenFilialeRow) Return rowtblAbfertigungsartenFilialeRow End Function _ Public Function FindByFilialenNrAbfertigungsart(ByVal FilialenNr As Integer, ByVal Abfertigungsart As Integer) As tblAbfertigungsartenFilialeRow Return CType(Me.Rows.Find(New Object() {FilialenNr, Abfertigungsart}),tblAbfertigungsartenFilialeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblAbfertigungsartenFilialeDataTable = CType(MyBase.Clone,tblAbfertigungsartenFilialeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblAbfertigungsartenFilialeDataTable() End Function _ Friend Sub InitVars() Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsart = MyBase.Columns("Abfertigungsart") End Sub _ Private Sub InitClass() Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsart = New Global.System.Data.DataColumn("Abfertigungsart", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsart) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFilialenNr, Me.columnAbfertigungsart}, true)) Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsart.AllowDBNull = false End Sub _ Public Function NewtblAbfertigungsartenFilialeRow() As tblAbfertigungsartenFilialeRow Return CType(Me.NewRow,tblAbfertigungsartenFilialeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblAbfertigungsartenFilialeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblAbfertigungsartenFilialeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblAbfertigungsartenFilialeRowChangedEvent) Is Nothing) Then RaiseEvent tblAbfertigungsartenFilialeRowChanged(Me, New tblAbfertigungsartenFilialeRowChangeEvent(CType(e.Row,tblAbfertigungsartenFilialeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblAbfertigungsartenFilialeRowChangingEvent) Is Nothing) Then RaiseEvent tblAbfertigungsartenFilialeRowChanging(Me, New tblAbfertigungsartenFilialeRowChangeEvent(CType(e.Row,tblAbfertigungsartenFilialeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblAbfertigungsartenFilialeRowDeletedEvent) Is Nothing) Then RaiseEvent tblAbfertigungsartenFilialeRowDeleted(Me, New tblAbfertigungsartenFilialeRowChangeEvent(CType(e.Row,tblAbfertigungsartenFilialeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblAbfertigungsartenFilialeRowDeletingEvent) Is Nothing) Then RaiseEvent tblAbfertigungsartenFilialeRowDeleting(Me, New tblAbfertigungsartenFilialeRowChangeEvent(CType(e.Row,tblAbfertigungsartenFilialeRow), e.Action)) End If End Sub _ Public Sub RemovetblAbfertigungsartenFilialeRow(ByVal row As tblAbfertigungsartenFilialeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblAbfertigungsartenFilialeDataTable" 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 tblAbfertigungsartOffertenstammDataTable Inherits Global.System.Data.TypedTableBase(Of tblAbfertigungsartOffertenstammRow) Private columnao_id As Global.System.Data.DataColumn Private columnao_Abfertigungsart As Global.System.Data.DataColumn Private columnao_OffertenNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblAbfertigungsartOffertenstamm" 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 ao_idColumn() As Global.System.Data.DataColumn Get Return Me.columnao_id End Get End Property _ Public ReadOnly Property ao_AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnao_Abfertigungsart End Get End Property _ Public ReadOnly Property ao_OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnao_OffertenNr 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 tblAbfertigungsartOffertenstammRow Get Return CType(Me.Rows(index),tblAbfertigungsartOffertenstammRow) End Get End Property _ Public Event tblAbfertigungsartOffertenstammRowChanging As tblAbfertigungsartOffertenstammRowChangeEventHandler _ Public Event tblAbfertigungsartOffertenstammRowChanged As tblAbfertigungsartOffertenstammRowChangeEventHandler _ Public Event tblAbfertigungsartOffertenstammRowDeleting As tblAbfertigungsartOffertenstammRowChangeEventHandler _ Public Event tblAbfertigungsartOffertenstammRowDeleted As tblAbfertigungsartOffertenstammRowChangeEventHandler _ Public Overloads Sub AddtblAbfertigungsartOffertenstammRow(ByVal row As tblAbfertigungsartOffertenstammRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblAbfertigungsartOffertenstammRow(ByVal ao_Abfertigungsart As Integer, ByVal ao_OffertenNr As Integer) As tblAbfertigungsartOffertenstammRow Dim rowtblAbfertigungsartOffertenstammRow As tblAbfertigungsartOffertenstammRow = CType(Me.NewRow,tblAbfertigungsartOffertenstammRow) Dim columnValuesArray() As Object = New Object() {Nothing, ao_Abfertigungsart, ao_OffertenNr} rowtblAbfertigungsartOffertenstammRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblAbfertigungsartOffertenstammRow) Return rowtblAbfertigungsartOffertenstammRow End Function _ Public Function FindByao_id(ByVal ao_id As Integer) As tblAbfertigungsartOffertenstammRow Return CType(Me.Rows.Find(New Object() {ao_id}),tblAbfertigungsartOffertenstammRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblAbfertigungsartOffertenstammDataTable = CType(MyBase.Clone,tblAbfertigungsartOffertenstammDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblAbfertigungsartOffertenstammDataTable() End Function _ Friend Sub InitVars() Me.columnao_id = MyBase.Columns("ao_id") Me.columnao_Abfertigungsart = MyBase.Columns("ao_Abfertigungsart") Me.columnao_OffertenNr = MyBase.Columns("ao_OffertenNr") End Sub _ Private Sub InitClass() Me.columnao_id = New Global.System.Data.DataColumn("ao_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnao_id) Me.columnao_Abfertigungsart = New Global.System.Data.DataColumn("ao_Abfertigungsart", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnao_Abfertigungsart) Me.columnao_OffertenNr = New Global.System.Data.DataColumn("ao_OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnao_OffertenNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnao_id}, true)) Me.columnao_id.AutoIncrement = true Me.columnao_id.AutoIncrementSeed = -1 Me.columnao_id.AutoIncrementStep = -1 Me.columnao_id.AllowDBNull = false Me.columnao_id.ReadOnly = true Me.columnao_id.Unique = true Me.columnao_Abfertigungsart.AllowDBNull = false Me.columnao_OffertenNr.AllowDBNull = false End Sub _ Public Function NewtblAbfertigungsartOffertenstammRow() As tblAbfertigungsartOffertenstammRow Return CType(Me.NewRow,tblAbfertigungsartOffertenstammRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblAbfertigungsartOffertenstammRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblAbfertigungsartOffertenstammRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblAbfertigungsartOffertenstammRowChangedEvent) Is Nothing) Then RaiseEvent tblAbfertigungsartOffertenstammRowChanged(Me, New tblAbfertigungsartOffertenstammRowChangeEvent(CType(e.Row,tblAbfertigungsartOffertenstammRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblAbfertigungsartOffertenstammRowChangingEvent) Is Nothing) Then RaiseEvent tblAbfertigungsartOffertenstammRowChanging(Me, New tblAbfertigungsartOffertenstammRowChangeEvent(CType(e.Row,tblAbfertigungsartOffertenstammRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblAbfertigungsartOffertenstammRowDeletedEvent) Is Nothing) Then RaiseEvent tblAbfertigungsartOffertenstammRowDeleted(Me, New tblAbfertigungsartOffertenstammRowChangeEvent(CType(e.Row,tblAbfertigungsartOffertenstammRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblAbfertigungsartOffertenstammRowDeletingEvent) Is Nothing) Then RaiseEvent tblAbfertigungsartOffertenstammRowDeleting(Me, New tblAbfertigungsartOffertenstammRowChangeEvent(CType(e.Row,tblAbfertigungsartOffertenstammRow), e.Action)) End If End Sub _ Public Sub RemovetblAbfertigungsartOffertenstammRow(ByVal row As tblAbfertigungsartOffertenstammRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblAbfertigungsartOffertenstammDataTable" 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 tblAbrechnung_NCTSBrgDataTable Inherits Global.System.Data.TypedTableBase(Of tblAbrechnung_NCTSBrgRow) Private columnabrg_Id As Global.System.Data.DataColumn Private columnabrg_Partner As Global.System.Data.DataColumn Private columnabrg_artAbrechnung As Global.System.Data.DataColumn Private columnabrg_GarantiewertBis As Global.System.Data.DataColumn Private columnabrg_bertrag As Global.System.Data.DataColumn Private columnabrg_prozent As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblAbrechnung_NCTSBrg" 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 abrg_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnabrg_Id End Get End Property _ Public ReadOnly Property abrg_PartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnabrg_Partner End Get End Property _ Public ReadOnly Property abrg_artAbrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnabrg_artAbrechnung End Get End Property _ Public ReadOnly Property abrg_GarantiewertBisColumn() As Global.System.Data.DataColumn Get Return Me.columnabrg_GarantiewertBis End Get End Property _ Public ReadOnly Property abrg_bertragColumn() As Global.System.Data.DataColumn Get Return Me.columnabrg_bertrag End Get End Property _ Public ReadOnly Property abrg_prozentColumn() As Global.System.Data.DataColumn Get Return Me.columnabrg_prozent 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 tblAbrechnung_NCTSBrgRow Get Return CType(Me.Rows(index),tblAbrechnung_NCTSBrgRow) End Get End Property _ Public Event tblAbrechnung_NCTSBrgRowChanging As tblAbrechnung_NCTSBrgRowChangeEventHandler _ Public Event tblAbrechnung_NCTSBrgRowChanged As tblAbrechnung_NCTSBrgRowChangeEventHandler _ Public Event tblAbrechnung_NCTSBrgRowDeleting As tblAbrechnung_NCTSBrgRowChangeEventHandler _ Public Event tblAbrechnung_NCTSBrgRowDeleted As tblAbrechnung_NCTSBrgRowChangeEventHandler _ Public Overloads Sub AddtblAbrechnung_NCTSBrgRow(ByVal row As tblAbrechnung_NCTSBrgRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblAbrechnung_NCTSBrgRow(ByVal abrg_Partner As String, ByVal abrg_artAbrechnung As String, ByVal abrg_GarantiewertBis As Decimal, ByVal abrg_bertrag As Decimal, ByVal abrg_prozent As Decimal) As tblAbrechnung_NCTSBrgRow Dim rowtblAbrechnung_NCTSBrgRow As tblAbrechnung_NCTSBrgRow = CType(Me.NewRow,tblAbrechnung_NCTSBrgRow) Dim columnValuesArray() As Object = New Object() {Nothing, abrg_Partner, abrg_artAbrechnung, abrg_GarantiewertBis, abrg_bertrag, abrg_prozent} rowtblAbrechnung_NCTSBrgRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblAbrechnung_NCTSBrgRow) Return rowtblAbrechnung_NCTSBrgRow End Function _ Public Function FindByabrg_Id(ByVal abrg_Id As Integer) As tblAbrechnung_NCTSBrgRow Return CType(Me.Rows.Find(New Object() {abrg_Id}),tblAbrechnung_NCTSBrgRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblAbrechnung_NCTSBrgDataTable = CType(MyBase.Clone,tblAbrechnung_NCTSBrgDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblAbrechnung_NCTSBrgDataTable() End Function _ Friend Sub InitVars() Me.columnabrg_Id = MyBase.Columns("abrg_Id") Me.columnabrg_Partner = MyBase.Columns("abrg_Partner") Me.columnabrg_artAbrechnung = MyBase.Columns("abrg_artAbrechnung") Me.columnabrg_GarantiewertBis = MyBase.Columns("abrg_GarantiewertBis") Me.columnabrg_bertrag = MyBase.Columns("abrg_bertrag") Me.columnabrg_prozent = MyBase.Columns("abrg_prozent") End Sub _ Private Sub InitClass() Me.columnabrg_Id = New Global.System.Data.DataColumn("abrg_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnabrg_Id) Me.columnabrg_Partner = New Global.System.Data.DataColumn("abrg_Partner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnabrg_Partner) Me.columnabrg_artAbrechnung = New Global.System.Data.DataColumn("abrg_artAbrechnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnabrg_artAbrechnung) Me.columnabrg_GarantiewertBis = New Global.System.Data.DataColumn("abrg_GarantiewertBis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnabrg_GarantiewertBis) Me.columnabrg_bertrag = New Global.System.Data.DataColumn("abrg_bertrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnabrg_bertrag) Me.columnabrg_prozent = New Global.System.Data.DataColumn("abrg_prozent", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnabrg_prozent) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnabrg_Id}, true)) Me.columnabrg_Id.AutoIncrement = true Me.columnabrg_Id.AutoIncrementSeed = -1 Me.columnabrg_Id.AutoIncrementStep = -1 Me.columnabrg_Id.AllowDBNull = false Me.columnabrg_Id.ReadOnly = true Me.columnabrg_Id.Unique = true Me.columnabrg_Partner.AllowDBNull = false Me.columnabrg_Partner.MaxLength = 100 Me.columnabrg_artAbrechnung.AllowDBNull = false Me.columnabrg_artAbrechnung.MaxLength = 50 Me.columnabrg_GarantiewertBis.AllowDBNull = false Me.columnabrg_bertrag.AllowDBNull = false End Sub _ Public Function NewtblAbrechnung_NCTSBrgRow() As tblAbrechnung_NCTSBrgRow Return CType(Me.NewRow,tblAbrechnung_NCTSBrgRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblAbrechnung_NCTSBrgRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblAbrechnung_NCTSBrgRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblAbrechnung_NCTSBrgRowChangedEvent) Is Nothing) Then RaiseEvent tblAbrechnung_NCTSBrgRowChanged(Me, New tblAbrechnung_NCTSBrgRowChangeEvent(CType(e.Row,tblAbrechnung_NCTSBrgRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblAbrechnung_NCTSBrgRowChangingEvent) Is Nothing) Then RaiseEvent tblAbrechnung_NCTSBrgRowChanging(Me, New tblAbrechnung_NCTSBrgRowChangeEvent(CType(e.Row,tblAbrechnung_NCTSBrgRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblAbrechnung_NCTSBrgRowDeletedEvent) Is Nothing) Then RaiseEvent tblAbrechnung_NCTSBrgRowDeleted(Me, New tblAbrechnung_NCTSBrgRowChangeEvent(CType(e.Row,tblAbrechnung_NCTSBrgRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblAbrechnung_NCTSBrgRowDeletingEvent) Is Nothing) Then RaiseEvent tblAbrechnung_NCTSBrgRowDeleting(Me, New tblAbrechnung_NCTSBrgRowChangeEvent(CType(e.Row,tblAbrechnung_NCTSBrgRow), e.Action)) End If End Sub _ Public Sub RemovetblAbrechnung_NCTSBrgRow(ByVal row As tblAbrechnung_NCTSBrgRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblAbrechnung_NCTSBrgDataTable" 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 tblAnmeldungDataTable Inherits Global.System.Data.TypedTableBase(Of tblAnmeldungRow) Private columnComputername As Global.System.Data.DataColumn Private columnBenutzername As Global.System.Data.DataColumn Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnLogin As Global.System.Data.DataColumn Private columnLogout As Global.System.Data.DataColumn Private columnProgrammversion As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblAnmeldung" 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 ComputernameColumn() As Global.System.Data.DataColumn Get Return Me.columnComputername End Get End Property _ Public ReadOnly Property BenutzernameColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzername End Get End Property _ Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property LoginColumn() As Global.System.Data.DataColumn Get Return Me.columnLogin End Get End Property _ Public ReadOnly Property LogoutColumn() As Global.System.Data.DataColumn Get Return Me.columnLogout End Get End Property _ Public ReadOnly Property ProgrammversionColumn() As Global.System.Data.DataColumn Get Return Me.columnProgrammversion End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblAnmeldungRow Get Return CType(Me.Rows(index),tblAnmeldungRow) End Get End Property _ Public Event tblAnmeldungRowChanging As tblAnmeldungRowChangeEventHandler _ Public Event tblAnmeldungRowChanged As tblAnmeldungRowChangeEventHandler _ Public Event tblAnmeldungRowDeleting As tblAnmeldungRowChangeEventHandler _ Public Event tblAnmeldungRowDeleted As tblAnmeldungRowChangeEventHandler _ Public Overloads Sub AddtblAnmeldungRow(ByVal row As tblAnmeldungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblAnmeldungRow(ByVal Computername As String, ByVal Benutzername As String, ByVal Mandant As String, ByVal Niederlassung As String, ByVal Login As Date, ByVal Logout As Date, ByVal Programmversion As String, ByVal upsize_ts() As Byte) As tblAnmeldungRow Dim rowtblAnmeldungRow As tblAnmeldungRow = CType(Me.NewRow,tblAnmeldungRow) Dim columnValuesArray() As Object = New Object() {Computername, Benutzername, Mandant, Niederlassung, Login, Logout, Programmversion, upsize_ts} rowtblAnmeldungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblAnmeldungRow) Return rowtblAnmeldungRow End Function _ Public Function FindByComputernameBenutzername(ByVal Computername As String, ByVal Benutzername As String) As tblAnmeldungRow Return CType(Me.Rows.Find(New Object() {Computername, Benutzername}),tblAnmeldungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblAnmeldungDataTable = CType(MyBase.Clone,tblAnmeldungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblAnmeldungDataTable() End Function _ Friend Sub InitVars() Me.columnComputername = MyBase.Columns("Computername") Me.columnBenutzername = MyBase.Columns("Benutzername") Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnLogin = MyBase.Columns("Login") Me.columnLogout = MyBase.Columns("Logout") Me.columnProgrammversion = MyBase.Columns("Programmversion") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnComputername = New Global.System.Data.DataColumn("Computername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComputername) Me.columnBenutzername = New Global.System.Data.DataColumn("Benutzername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzername) Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnLogin = New Global.System.Data.DataColumn("Login", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLogin) Me.columnLogout = New Global.System.Data.DataColumn("Logout", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLogout) Me.columnProgrammversion = New Global.System.Data.DataColumn("Programmversion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProgrammversion) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnComputername, Me.columnBenutzername}, true)) Me.columnComputername.AllowDBNull = false Me.columnComputername.MaxLength = 15 Me.columnBenutzername.AllowDBNull = false Me.columnBenutzername.MaxLength = 20 Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.MaxLength = 3 Me.columnProgrammversion.MaxLength = 255 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblAnmeldungRow() As tblAnmeldungRow Return CType(Me.NewRow,tblAnmeldungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblAnmeldungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblAnmeldungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblAnmeldungRowChangedEvent) Is Nothing) Then RaiseEvent tblAnmeldungRowChanged(Me, New tblAnmeldungRowChangeEvent(CType(e.Row,tblAnmeldungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblAnmeldungRowChangingEvent) Is Nothing) Then RaiseEvent tblAnmeldungRowChanging(Me, New tblAnmeldungRowChangeEvent(CType(e.Row,tblAnmeldungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblAnmeldungRowDeletedEvent) Is Nothing) Then RaiseEvent tblAnmeldungRowDeleted(Me, New tblAnmeldungRowChangeEvent(CType(e.Row,tblAnmeldungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblAnmeldungRowDeletingEvent) Is Nothing) Then RaiseEvent tblAnmeldungRowDeleting(Me, New tblAnmeldungRowChangeEvent(CType(e.Row,tblAnmeldungRow), e.Action)) End If End Sub _ Public Sub RemovetblAnmeldungRow(ByVal row As tblAnmeldungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblAnmeldungDataTable" 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 tblAsfinagMautDataTable Inherits Global.System.Data.TypedTableBase(Of tblAsfinagMautRow) Private columncardnumber As Global.System.Data.DataColumn Private columnlicenceplate As Global.System.Data.DataColumn Private columnturnoverdate As Global.System.Data.DataColumn Private columncontractPartner As Global.System.Data.DataColumn Private columnnetAmount As Global.System.Data.DataColumn Private columnVATamount As Global.System.Data.DataColumn Private columntotalAmount As Global.System.Data.DataColumn Private columnadditionalData As Global.System.Data.DataColumn Private columnreceiptnumber As Global.System.Data.DataColumn Private columnreceiptCreated As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblAsfinagMaut" 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 cardnumberColumn() As Global.System.Data.DataColumn Get Return Me.columncardnumber End Get End Property _ Public ReadOnly Property licenceplateColumn() As Global.System.Data.DataColumn Get Return Me.columnlicenceplate End Get End Property _ Public ReadOnly Property turnoverdateColumn() As Global.System.Data.DataColumn Get Return Me.columnturnoverdate End Get End Property _ Public ReadOnly Property contractPartnerColumn() As Global.System.Data.DataColumn Get Return Me.columncontractPartner End Get End Property _ Public ReadOnly Property netAmountColumn() As Global.System.Data.DataColumn Get Return Me.columnnetAmount End Get End Property _ Public ReadOnly Property VATamountColumn() As Global.System.Data.DataColumn Get Return Me.columnVATamount End Get End Property _ Public ReadOnly Property totalAmountColumn() As Global.System.Data.DataColumn Get Return Me.columntotalAmount End Get End Property _ Public ReadOnly Property additionalDataColumn() As Global.System.Data.DataColumn Get Return Me.columnadditionalData End Get End Property _ Public ReadOnly Property receiptnumberColumn() As Global.System.Data.DataColumn Get Return Me.columnreceiptnumber End Get End Property _ Public ReadOnly Property receiptCreatedColumn() As Global.System.Data.DataColumn Get Return Me.columnreceiptCreated 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 tblAsfinagMautRow Get Return CType(Me.Rows(index),tblAsfinagMautRow) End Get End Property _ Public Event tblAsfinagMautRowChanging As tblAsfinagMautRowChangeEventHandler _ Public Event tblAsfinagMautRowChanged As tblAsfinagMautRowChangeEventHandler _ Public Event tblAsfinagMautRowDeleting As tblAsfinagMautRowChangeEventHandler _ Public Event tblAsfinagMautRowDeleted As tblAsfinagMautRowChangeEventHandler _ Public Overloads Sub AddtblAsfinagMautRow(ByVal row As tblAsfinagMautRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblAsfinagMautRow(ByVal cardnumber As String, ByVal licenceplate As String, ByVal turnoverdate As Date, ByVal contractPartner As String, ByVal netAmount As Decimal, ByVal VATamount As Decimal, ByVal totalAmount As Decimal, ByVal additionalData As String, ByVal receiptnumber As String, ByVal receiptCreated As Boolean) As tblAsfinagMautRow Dim rowtblAsfinagMautRow As tblAsfinagMautRow = CType(Me.NewRow,tblAsfinagMautRow) Dim columnValuesArray() As Object = New Object() {cardnumber, licenceplate, turnoverdate, contractPartner, netAmount, VATamount, totalAmount, additionalData, receiptnumber, receiptCreated} rowtblAsfinagMautRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblAsfinagMautRow) Return rowtblAsfinagMautRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblAsfinagMautDataTable = CType(MyBase.Clone,tblAsfinagMautDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblAsfinagMautDataTable() End Function _ Friend Sub InitVars() Me.columncardnumber = MyBase.Columns("cardnumber") Me.columnlicenceplate = MyBase.Columns("licenceplate") Me.columnturnoverdate = MyBase.Columns("turnoverdate") Me.columncontractPartner = MyBase.Columns("contractPartner") Me.columnnetAmount = MyBase.Columns("netAmount") Me.columnVATamount = MyBase.Columns("VATamount") Me.columntotalAmount = MyBase.Columns("totalAmount") Me.columnadditionalData = MyBase.Columns("additionalData") Me.columnreceiptnumber = MyBase.Columns("receiptnumber") Me.columnreceiptCreated = MyBase.Columns("receiptCreated") End Sub _ Private Sub InitClass() Me.columncardnumber = New Global.System.Data.DataColumn("cardnumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncardnumber) Me.columnlicenceplate = New Global.System.Data.DataColumn("licenceplate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnlicenceplate) Me.columnturnoverdate = New Global.System.Data.DataColumn("turnoverdate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnturnoverdate) Me.columncontractPartner = New Global.System.Data.DataColumn("contractPartner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncontractPartner) Me.columnnetAmount = New Global.System.Data.DataColumn("netAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnetAmount) Me.columnVATamount = New Global.System.Data.DataColumn("VATamount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVATamount) Me.columntotalAmount = New Global.System.Data.DataColumn("totalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntotalAmount) Me.columnadditionalData = New Global.System.Data.DataColumn("additionalData", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnadditionalData) Me.columnreceiptnumber = New Global.System.Data.DataColumn("receiptnumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnreceiptnumber) Me.columnreceiptCreated = New Global.System.Data.DataColumn("receiptCreated", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnreceiptCreated) Me.columncardnumber.AllowDBNull = false Me.columncardnumber.MaxLength = 30 Me.columnlicenceplate.AllowDBNull = false Me.columnlicenceplate.MaxLength = 50 Me.columnturnoverdate.AllowDBNull = false Me.columncontractPartner.AllowDBNull = false Me.columncontractPartner.MaxLength = 50 Me.columnnetAmount.AllowDBNull = false Me.columnVATamount.AllowDBNull = false Me.columntotalAmount.AllowDBNull = false Me.columnadditionalData.MaxLength = 2147483647 Me.columnreceiptnumber.MaxLength = 20 Me.columnreceiptCreated.AllowDBNull = false End Sub _ Public Function NewtblAsfinagMautRow() As tblAsfinagMautRow Return CType(Me.NewRow,tblAsfinagMautRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblAsfinagMautRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblAsfinagMautRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblAsfinagMautRowChangedEvent) Is Nothing) Then RaiseEvent tblAsfinagMautRowChanged(Me, New tblAsfinagMautRowChangeEvent(CType(e.Row,tblAsfinagMautRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblAsfinagMautRowChangingEvent) Is Nothing) Then RaiseEvent tblAsfinagMautRowChanging(Me, New tblAsfinagMautRowChangeEvent(CType(e.Row,tblAsfinagMautRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblAsfinagMautRowDeletedEvent) Is Nothing) Then RaiseEvent tblAsfinagMautRowDeleted(Me, New tblAsfinagMautRowChangeEvent(CType(e.Row,tblAsfinagMautRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblAsfinagMautRowDeletingEvent) Is Nothing) Then RaiseEvent tblAsfinagMautRowDeleting(Me, New tblAsfinagMautRowChangeEvent(CType(e.Row,tblAsfinagMautRow), e.Action)) End If End Sub _ Public Sub RemovetblAsfinagMautRow(ByVal row As tblAsfinagMautRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblAsfinagMautDataTable" 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 tblATEZ_NCTSDataTable Inherits Global.System.Data.TypedTableBase(Of tblATEZ_NCTSRow) Private columnId As Global.System.Data.DataColumn Private columnAvisoId As Global.System.Data.DataColumn Private columnSendungsId As Global.System.Data.DataColumn Private columnVERAG_LRN As Global.System.Data.DataColumn Private columnLicensePlateContainerNo As Global.System.Data.DataColumn Private columnDAKOSY_TemplateCode As Global.System.Data.DataColumn Private columnDAKOSY_IOPartner As Global.System.Data.DataColumn Private columnDAKOSY_Division1 As Global.System.Data.DataColumn Private columnDAKOSY_Division2 As Global.System.Data.DataColumn Private columnDAKOSY_Division3 As Global.System.Data.DataColumn Private columnDAKOSY_Procedure As Global.System.Data.DataColumn Private columnDepartureCustomsOffice As Global.System.Data.DataColumn Private columnDestinationCustomsOffice As Global.System.Data.DataColumn Private columnDatDeterminationLimit As Global.System.Data.DataColumn Private columnCoolingTemperature As Global.System.Data.DataColumn Private columnCarrier_Name As Global.System.Data.DataColumn Private columnCarrier_Adress_Country As Global.System.Data.DataColumn Private columnCarrier_Adress_Postcode As Global.System.Data.DataColumn Private columnCarrier_Adress_City As Global.System.Data.DataColumn Private columnCarrier_Adress_Street As Global.System.Data.DataColumn Private columnCarrier_EORI As Global.System.Data.DataColumn Private columnGuarantee_GRN As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnerstellung As Global.System.Data.DataColumn Private columnatezId As Global.System.Data.DataColumn Private columndakosy_ref As Global.System.Data.DataColumn Private columnselectedDocuments As Global.System.Data.DataColumn Private columnjson As Global.System.Data.DataColumn Private columnfehlerbeschreibung As Global.System.Data.DataColumn Private columnerstellerId As Global.System.Data.DataColumn Private columnsessionId As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblATEZ_NCTS" 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 AvisoIdColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisoId End Get End Property _ Public ReadOnly Property SendungsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnSendungsId End Get End Property _ Public ReadOnly Property VERAG_LRNColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_LRN End Get End Property _ Public ReadOnly Property LicensePlateContainerNoColumn() As Global.System.Data.DataColumn Get Return Me.columnLicensePlateContainerNo End Get End Property _ Public ReadOnly Property DAKOSY_TemplateCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnDAKOSY_TemplateCode End Get End Property _ Public ReadOnly Property DAKOSY_IOPartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnDAKOSY_IOPartner End Get End Property _ Public ReadOnly Property DAKOSY_Division1Column() As Global.System.Data.DataColumn Get Return Me.columnDAKOSY_Division1 End Get End Property _ Public ReadOnly Property DAKOSY_Division2Column() As Global.System.Data.DataColumn Get Return Me.columnDAKOSY_Division2 End Get End Property _ Public ReadOnly Property DAKOSY_Division3Column() As Global.System.Data.DataColumn Get Return Me.columnDAKOSY_Division3 End Get End Property _ Public ReadOnly Property DAKOSY_ProcedureColumn() As Global.System.Data.DataColumn Get Return Me.columnDAKOSY_Procedure End Get End Property _ Public ReadOnly Property DepartureCustomsOfficeColumn() As Global.System.Data.DataColumn Get Return Me.columnDepartureCustomsOffice End Get End Property _ Public ReadOnly Property DestinationCustomsOfficeColumn() As Global.System.Data.DataColumn Get Return Me.columnDestinationCustomsOffice End Get End Property _ Public ReadOnly Property DatDeterminationLimitColumn() As Global.System.Data.DataColumn Get Return Me.columnDatDeterminationLimit End Get End Property _ Public ReadOnly Property CoolingTemperatureColumn() As Global.System.Data.DataColumn Get Return Me.columnCoolingTemperature End Get End Property _ Public ReadOnly Property Carrier_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnCarrier_Name End Get End Property _ Public ReadOnly Property Carrier_Adress_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnCarrier_Adress_Country End Get End Property _ Public ReadOnly Property Carrier_Adress_PostcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCarrier_Adress_Postcode End Get End Property _ Public ReadOnly Property Carrier_Adress_CityColumn() As Global.System.Data.DataColumn Get Return Me.columnCarrier_Adress_City End Get End Property _ Public ReadOnly Property Carrier_Adress_StreetColumn() As Global.System.Data.DataColumn Get Return Me.columnCarrier_Adress_Street End Get End Property _ Public ReadOnly Property Carrier_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnCarrier_EORI End Get End Property _ Public ReadOnly Property Guarantee_GRNColumn() As Global.System.Data.DataColumn Get Return Me.columnGuarantee_GRN End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property erstellungColumn() As Global.System.Data.DataColumn Get Return Me.columnerstellung End Get End Property _ Public ReadOnly Property atezIdColumn() As Global.System.Data.DataColumn Get Return Me.columnatezId End Get End Property _ Public ReadOnly Property dakosy_refColumn() As Global.System.Data.DataColumn Get Return Me.columndakosy_ref End Get End Property _ Public ReadOnly Property selectedDocumentsColumn() As Global.System.Data.DataColumn Get Return Me.columnselectedDocuments End Get End Property _ Public ReadOnly Property jsonColumn() As Global.System.Data.DataColumn Get Return Me.columnjson End Get End Property _ Public ReadOnly Property fehlerbeschreibungColumn() As Global.System.Data.DataColumn Get Return Me.columnfehlerbeschreibung End Get End Property _ Public ReadOnly Property erstellerIdColumn() As Global.System.Data.DataColumn Get Return Me.columnerstellerId End Get End Property _ Public ReadOnly Property sessionIdColumn() As Global.System.Data.DataColumn Get Return Me.columnsessionId 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 tblATEZ_NCTSRow Get Return CType(Me.Rows(index),tblATEZ_NCTSRow) End Get End Property _ Public Event tblATEZ_NCTSRowChanging As tblATEZ_NCTSRowChangeEventHandler _ Public Event tblATEZ_NCTSRowChanged As tblATEZ_NCTSRowChangeEventHandler _ Public Event tblATEZ_NCTSRowDeleting As tblATEZ_NCTSRowChangeEventHandler _ Public Event tblATEZ_NCTSRowDeleted As tblATEZ_NCTSRowChangeEventHandler _ Public Overloads Sub AddtblATEZ_NCTSRow(ByVal row As tblATEZ_NCTSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblATEZ_NCTSRow( _ ByVal AvisoId As Integer, _ ByVal SendungsId As Integer, _ ByVal VERAG_LRN As String, _ ByVal LicensePlateContainerNo As String, _ ByVal DAKOSY_TemplateCode As String, _ ByVal DAKOSY_IOPartner As String, _ ByVal DAKOSY_Division1 As String, _ ByVal DAKOSY_Division2 As String, _ ByVal DAKOSY_Division3 As String, _ ByVal DAKOSY_Procedure As String, _ ByVal DepartureCustomsOffice As String, _ ByVal DestinationCustomsOffice As String, _ ByVal DatDeterminationLimit As String, _ ByVal CoolingTemperature As String, _ ByVal Carrier_Name As String, _ ByVal Carrier_Adress_Country As String, _ ByVal Carrier_Adress_Postcode As String, _ ByVal Carrier_Adress_City As String, _ ByVal Carrier_Adress_Street As String, _ ByVal Carrier_EORI As String, _ ByVal Guarantee_GRN As String, _ ByVal Status As String, _ ByVal erstellung As Date, _ ByVal atezId As String, _ ByVal dakosy_ref As String, _ ByVal selectedDocuments As String, _ ByVal json As String, _ ByVal fehlerbeschreibung As String, _ ByVal erstellerId As Integer, _ ByVal sessionId As Integer) As tblATEZ_NCTSRow Dim rowtblATEZ_NCTSRow As tblATEZ_NCTSRow = CType(Me.NewRow,tblATEZ_NCTSRow) Dim columnValuesArray() As Object = New Object() {Nothing, AvisoId, SendungsId, VERAG_LRN, LicensePlateContainerNo, DAKOSY_TemplateCode, DAKOSY_IOPartner, DAKOSY_Division1, DAKOSY_Division2, DAKOSY_Division3, DAKOSY_Procedure, DepartureCustomsOffice, DestinationCustomsOffice, DatDeterminationLimit, CoolingTemperature, Carrier_Name, Carrier_Adress_Country, Carrier_Adress_Postcode, Carrier_Adress_City, Carrier_Adress_Street, Carrier_EORI, Guarantee_GRN, Status, erstellung, atezId, dakosy_ref, selectedDocuments, json, fehlerbeschreibung, erstellerId, sessionId} rowtblATEZ_NCTSRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblATEZ_NCTSRow) Return rowtblATEZ_NCTSRow End Function _ Public Function FindById(ByVal Id As Integer) As tblATEZ_NCTSRow Return CType(Me.Rows.Find(New Object() {Id}),tblATEZ_NCTSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblATEZ_NCTSDataTable = CType(MyBase.Clone,tblATEZ_NCTSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblATEZ_NCTSDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columnAvisoId = MyBase.Columns("AvisoId") Me.columnSendungsId = MyBase.Columns("SendungsId") Me.columnVERAG_LRN = MyBase.Columns("VERAG_LRN") Me.columnLicensePlateContainerNo = MyBase.Columns("LicensePlateContainerNo") Me.columnDAKOSY_TemplateCode = MyBase.Columns("DAKOSY_TemplateCode") Me.columnDAKOSY_IOPartner = MyBase.Columns("DAKOSY_IOPartner") Me.columnDAKOSY_Division1 = MyBase.Columns("DAKOSY_Division1") Me.columnDAKOSY_Division2 = MyBase.Columns("DAKOSY_Division2") Me.columnDAKOSY_Division3 = MyBase.Columns("DAKOSY_Division3") Me.columnDAKOSY_Procedure = MyBase.Columns("DAKOSY_Procedure") Me.columnDepartureCustomsOffice = MyBase.Columns("DepartureCustomsOffice") Me.columnDestinationCustomsOffice = MyBase.Columns("DestinationCustomsOffice") Me.columnDatDeterminationLimit = MyBase.Columns("DatDeterminationLimit") Me.columnCoolingTemperature = MyBase.Columns("CoolingTemperature") Me.columnCarrier_Name = MyBase.Columns("Carrier_Name") Me.columnCarrier_Adress_Country = MyBase.Columns("Carrier_Adress_Country") Me.columnCarrier_Adress_Postcode = MyBase.Columns("Carrier_Adress_Postcode") Me.columnCarrier_Adress_City = MyBase.Columns("Carrier_Adress_City") Me.columnCarrier_Adress_Street = MyBase.Columns("Carrier_Adress_Street") Me.columnCarrier_EORI = MyBase.Columns("Carrier_EORI") Me.columnGuarantee_GRN = MyBase.Columns("Guarantee_GRN") Me.columnStatus = MyBase.Columns("Status") Me.columnerstellung = MyBase.Columns("erstellung") Me.columnatezId = MyBase.Columns("atezId") Me.columndakosy_ref = MyBase.Columns("dakosy_ref") Me.columnselectedDocuments = MyBase.Columns("selectedDocuments") Me.columnjson = MyBase.Columns("json") Me.columnfehlerbeschreibung = MyBase.Columns("fehlerbeschreibung") Me.columnerstellerId = MyBase.Columns("erstellerId") Me.columnsessionId = MyBase.Columns("sessionId") 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.columnAvisoId = New Global.System.Data.DataColumn("AvisoId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisoId) Me.columnSendungsId = New Global.System.Data.DataColumn("SendungsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSendungsId) Me.columnVERAG_LRN = New Global.System.Data.DataColumn("VERAG_LRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_LRN) Me.columnLicensePlateContainerNo = New Global.System.Data.DataColumn("LicensePlateContainerNo", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLicensePlateContainerNo) Me.columnDAKOSY_TemplateCode = New Global.System.Data.DataColumn("DAKOSY_TemplateCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDAKOSY_TemplateCode) Me.columnDAKOSY_IOPartner = New Global.System.Data.DataColumn("DAKOSY_IOPartner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDAKOSY_IOPartner) Me.columnDAKOSY_Division1 = New Global.System.Data.DataColumn("DAKOSY_Division1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDAKOSY_Division1) Me.columnDAKOSY_Division2 = New Global.System.Data.DataColumn("DAKOSY_Division2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDAKOSY_Division2) Me.columnDAKOSY_Division3 = New Global.System.Data.DataColumn("DAKOSY_Division3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDAKOSY_Division3) Me.columnDAKOSY_Procedure = New Global.System.Data.DataColumn("DAKOSY_Procedure", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDAKOSY_Procedure) Me.columnDepartureCustomsOffice = New Global.System.Data.DataColumn("DepartureCustomsOffice", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDepartureCustomsOffice) Me.columnDestinationCustomsOffice = New Global.System.Data.DataColumn("DestinationCustomsOffice", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDestinationCustomsOffice) Me.columnDatDeterminationLimit = New Global.System.Data.DataColumn("DatDeterminationLimit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatDeterminationLimit) Me.columnCoolingTemperature = New Global.System.Data.DataColumn("CoolingTemperature", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCoolingTemperature) Me.columnCarrier_Name = New Global.System.Data.DataColumn("Carrier_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCarrier_Name) Me.columnCarrier_Adress_Country = New Global.System.Data.DataColumn("Carrier_Adress_Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCarrier_Adress_Country) Me.columnCarrier_Adress_Postcode = New Global.System.Data.DataColumn("Carrier_Adress_Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCarrier_Adress_Postcode) Me.columnCarrier_Adress_City = New Global.System.Data.DataColumn("Carrier_Adress_City", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCarrier_Adress_City) Me.columnCarrier_Adress_Street = New Global.System.Data.DataColumn("Carrier_Adress_Street", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCarrier_Adress_Street) Me.columnCarrier_EORI = New Global.System.Data.DataColumn("Carrier_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCarrier_EORI) Me.columnGuarantee_GRN = New Global.System.Data.DataColumn("Guarantee_GRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGuarantee_GRN) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnerstellung = New Global.System.Data.DataColumn("erstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnerstellung) Me.columnatezId = New Global.System.Data.DataColumn("atezId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatezId) Me.columndakosy_ref = New Global.System.Data.DataColumn("dakosy_ref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndakosy_ref) Me.columnselectedDocuments = New Global.System.Data.DataColumn("selectedDocuments", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnselectedDocuments) Me.columnjson = New Global.System.Data.DataColumn("json", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnjson) Me.columnfehlerbeschreibung = New Global.System.Data.DataColumn("fehlerbeschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfehlerbeschreibung) Me.columnerstellerId = New Global.System.Data.DataColumn("erstellerId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnerstellerId) Me.columnsessionId = New Global.System.Data.DataColumn("sessionId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsessionId) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columnVERAG_LRN.MaxLength = 50 Me.columnLicensePlateContainerNo.MaxLength = 50 Me.columnDAKOSY_TemplateCode.MaxLength = 50 Me.columnDAKOSY_IOPartner.MaxLength = 50 Me.columnDAKOSY_Division1.MaxLength = 50 Me.columnDAKOSY_Division2.MaxLength = 50 Me.columnDAKOSY_Division3.MaxLength = 50 Me.columnDAKOSY_Procedure.MaxLength = 10 Me.columnDepartureCustomsOffice.MaxLength = 50 Me.columnDestinationCustomsOffice.MaxLength = 50 Me.columnDatDeterminationLimit.MaxLength = 50 Me.columnCoolingTemperature.MaxLength = 50 Me.columnCarrier_Name.MaxLength = 2147483647 Me.columnCarrier_Adress_Country.MaxLength = 50 Me.columnCarrier_Adress_Postcode.MaxLength = 50 Me.columnCarrier_Adress_City.MaxLength = 50 Me.columnCarrier_Adress_Street.MaxLength = 2147483647 Me.columnCarrier_EORI.MaxLength = 50 Me.columnGuarantee_GRN.MaxLength = 50 Me.columnStatus.MaxLength = 2147483647 Me.columnerstellung.AllowDBNull = false Me.columnatezId.MaxLength = 50 Me.columndakosy_ref.MaxLength = 50 Me.columnselectedDocuments.MaxLength = 2147483647 Me.columnjson.MaxLength = 2147483647 Me.columnfehlerbeschreibung.MaxLength = 2147483647 End Sub _ Public Function NewtblATEZ_NCTSRow() As tblATEZ_NCTSRow Return CType(Me.NewRow,tblATEZ_NCTSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblATEZ_NCTSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblATEZ_NCTSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblATEZ_NCTSRowChangedEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTSRowChanged(Me, New tblATEZ_NCTSRowChangeEvent(CType(e.Row,tblATEZ_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblATEZ_NCTSRowChangingEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTSRowChanging(Me, New tblATEZ_NCTSRowChangeEvent(CType(e.Row,tblATEZ_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblATEZ_NCTSRowDeletedEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTSRowDeleted(Me, New tblATEZ_NCTSRowChangeEvent(CType(e.Row,tblATEZ_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblATEZ_NCTSRowDeletingEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTSRowDeleting(Me, New tblATEZ_NCTSRowChangeEvent(CType(e.Row,tblATEZ_NCTSRow), e.Action)) End If End Sub _ Public Sub RemovetblATEZ_NCTSRow(ByVal row As tblATEZ_NCTSRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblATEZ_NCTSDataTable" 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 tblATEZ_NCTS_RoutenDataTable Inherits Global.System.Data.TypedTableBase(Of tblATEZ_NCTS_RoutenRow) Private columnId As Global.System.Data.DataColumn Private columnAtezNCTS_Id As Global.System.Data.DataColumn Private columnRoute_Country As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblATEZ_NCTS_Routen" 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 AtezNCTS_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnAtezNCTS_Id End Get End Property _ Public ReadOnly Property Route_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnRoute_Country 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 tblATEZ_NCTS_RoutenRow Get Return CType(Me.Rows(index),tblATEZ_NCTS_RoutenRow) End Get End Property _ Public Event tblATEZ_NCTS_RoutenRowChanging As tblATEZ_NCTS_RoutenRowChangeEventHandler _ Public Event tblATEZ_NCTS_RoutenRowChanged As tblATEZ_NCTS_RoutenRowChangeEventHandler _ Public Event tblATEZ_NCTS_RoutenRowDeleting As tblATEZ_NCTS_RoutenRowChangeEventHandler _ Public Event tblATEZ_NCTS_RoutenRowDeleted As tblATEZ_NCTS_RoutenRowChangeEventHandler _ Public Overloads Sub AddtblATEZ_NCTS_RoutenRow(ByVal row As tblATEZ_NCTS_RoutenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblATEZ_NCTS_RoutenRow(ByVal parenttblATEZ_NCTSRowByFK_tblATEZ_NCTS_Routen_TotblATEZNCTS As tblATEZ_NCTSRow, ByVal Route_Country As String) As tblATEZ_NCTS_RoutenRow Dim rowtblATEZ_NCTS_RoutenRow As tblATEZ_NCTS_RoutenRow = CType(Me.NewRow,tblATEZ_NCTS_RoutenRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Route_Country} If (Not (parenttblATEZ_NCTSRowByFK_tblATEZ_NCTS_Routen_TotblATEZNCTS) Is Nothing) Then columnValuesArray(1) = parenttblATEZ_NCTSRowByFK_tblATEZ_NCTS_Routen_TotblATEZNCTS(0) End If rowtblATEZ_NCTS_RoutenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblATEZ_NCTS_RoutenRow) Return rowtblATEZ_NCTS_RoutenRow End Function _ Public Function FindById(ByVal Id As Integer) As tblATEZ_NCTS_RoutenRow Return CType(Me.Rows.Find(New Object() {Id}),tblATEZ_NCTS_RoutenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblATEZ_NCTS_RoutenDataTable = CType(MyBase.Clone,tblATEZ_NCTS_RoutenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblATEZ_NCTS_RoutenDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columnAtezNCTS_Id = MyBase.Columns("AtezNCTS_Id") Me.columnRoute_Country = MyBase.Columns("Route_Country") 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.columnAtezNCTS_Id = New Global.System.Data.DataColumn("AtezNCTS_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAtezNCTS_Id) Me.columnRoute_Country = New Global.System.Data.DataColumn("Route_Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRoute_Country) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columnRoute_Country.MaxLength = 50 End Sub _ Public Function NewtblATEZ_NCTS_RoutenRow() As tblATEZ_NCTS_RoutenRow Return CType(Me.NewRow,tblATEZ_NCTS_RoutenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblATEZ_NCTS_RoutenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblATEZ_NCTS_RoutenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblATEZ_NCTS_RoutenRowChangedEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_RoutenRowChanged(Me, New tblATEZ_NCTS_RoutenRowChangeEvent(CType(e.Row,tblATEZ_NCTS_RoutenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblATEZ_NCTS_RoutenRowChangingEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_RoutenRowChanging(Me, New tblATEZ_NCTS_RoutenRowChangeEvent(CType(e.Row,tblATEZ_NCTS_RoutenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblATEZ_NCTS_RoutenRowDeletedEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_RoutenRowDeleted(Me, New tblATEZ_NCTS_RoutenRowChangeEvent(CType(e.Row,tblATEZ_NCTS_RoutenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblATEZ_NCTS_RoutenRowDeletingEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_RoutenRowDeleting(Me, New tblATEZ_NCTS_RoutenRowChangeEvent(CType(e.Row,tblATEZ_NCTS_RoutenRow), e.Action)) End If End Sub _ Public Sub RemovetblATEZ_NCTS_RoutenRow(ByVal row As tblATEZ_NCTS_RoutenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblATEZ_NCTS_RoutenDataTable" 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 tblATEZ_NCTS_SessionsDataTable Inherits Global.System.Data.TypedTableBase(Of tblATEZ_NCTS_SessionsRow) Private columnsession_Id As Global.System.Data.DataColumn Private columntoken As Global.System.Data.DataColumn Private columndatetime As Global.System.Data.DataColumn Private columnrefresh_token As Global.System.Data.DataColumn Private columntoken_validuntil As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblATEZ_NCTS_Sessions" 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 session_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnsession_Id End Get End Property _ Public ReadOnly Property tokenColumn() As Global.System.Data.DataColumn Get Return Me.columntoken End Get End Property _ Public ReadOnly Property datetimeColumn() As Global.System.Data.DataColumn Get Return Me.columndatetime End Get End Property _ Public ReadOnly Property refresh_tokenColumn() As Global.System.Data.DataColumn Get Return Me.columnrefresh_token End Get End Property _ Public ReadOnly Property token_validuntilColumn() As Global.System.Data.DataColumn Get Return Me.columntoken_validuntil 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 tblATEZ_NCTS_SessionsRow Get Return CType(Me.Rows(index),tblATEZ_NCTS_SessionsRow) End Get End Property _ Public Event tblATEZ_NCTS_SessionsRowChanging As tblATEZ_NCTS_SessionsRowChangeEventHandler _ Public Event tblATEZ_NCTS_SessionsRowChanged As tblATEZ_NCTS_SessionsRowChangeEventHandler _ Public Event tblATEZ_NCTS_SessionsRowDeleting As tblATEZ_NCTS_SessionsRowChangeEventHandler _ Public Event tblATEZ_NCTS_SessionsRowDeleted As tblATEZ_NCTS_SessionsRowChangeEventHandler _ Public Overloads Sub AddtblATEZ_NCTS_SessionsRow(ByVal row As tblATEZ_NCTS_SessionsRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblATEZ_NCTS_SessionsRow(ByVal token As String, ByVal datetime As Date, ByVal refresh_token As String, ByVal token_validuntil As Date) As tblATEZ_NCTS_SessionsRow Dim rowtblATEZ_NCTS_SessionsRow As tblATEZ_NCTS_SessionsRow = CType(Me.NewRow,tblATEZ_NCTS_SessionsRow) Dim columnValuesArray() As Object = New Object() {Nothing, token, datetime, refresh_token, token_validuntil} rowtblATEZ_NCTS_SessionsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblATEZ_NCTS_SessionsRow) Return rowtblATEZ_NCTS_SessionsRow End Function _ Public Function FindBysession_Id(ByVal session_Id As Integer) As tblATEZ_NCTS_SessionsRow Return CType(Me.Rows.Find(New Object() {session_Id}),tblATEZ_NCTS_SessionsRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblATEZ_NCTS_SessionsDataTable = CType(MyBase.Clone,tblATEZ_NCTS_SessionsDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblATEZ_NCTS_SessionsDataTable() End Function _ Friend Sub InitVars() Me.columnsession_Id = MyBase.Columns("session_Id") Me.columntoken = MyBase.Columns("token") Me.columndatetime = MyBase.Columns("datetime") Me.columnrefresh_token = MyBase.Columns("refresh_token") Me.columntoken_validuntil = MyBase.Columns("token_validuntil") End Sub _ Private Sub InitClass() Me.columnsession_Id = New Global.System.Data.DataColumn("session_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsession_Id) Me.columntoken = New Global.System.Data.DataColumn("token", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntoken) Me.columndatetime = New Global.System.Data.DataColumn("datetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndatetime) Me.columnrefresh_token = New Global.System.Data.DataColumn("refresh_token", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefresh_token) Me.columntoken_validuntil = New Global.System.Data.DataColumn("token_validuntil", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntoken_validuntil) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnsession_Id}, true)) Me.columnsession_Id.AutoIncrement = true Me.columnsession_Id.AutoIncrementSeed = -1 Me.columnsession_Id.AutoIncrementStep = -1 Me.columnsession_Id.AllowDBNull = false Me.columnsession_Id.ReadOnly = true Me.columnsession_Id.Unique = true Me.columntoken.MaxLength = 2147483647 Me.columndatetime.AllowDBNull = false Me.columnrefresh_token.MaxLength = 2147483647 End Sub _ Public Function NewtblATEZ_NCTS_SessionsRow() As tblATEZ_NCTS_SessionsRow Return CType(Me.NewRow,tblATEZ_NCTS_SessionsRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblATEZ_NCTS_SessionsRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblATEZ_NCTS_SessionsRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblATEZ_NCTS_SessionsRowChangedEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_SessionsRowChanged(Me, New tblATEZ_NCTS_SessionsRowChangeEvent(CType(e.Row,tblATEZ_NCTS_SessionsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblATEZ_NCTS_SessionsRowChangingEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_SessionsRowChanging(Me, New tblATEZ_NCTS_SessionsRowChangeEvent(CType(e.Row,tblATEZ_NCTS_SessionsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblATEZ_NCTS_SessionsRowDeletedEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_SessionsRowDeleted(Me, New tblATEZ_NCTS_SessionsRowChangeEvent(CType(e.Row,tblATEZ_NCTS_SessionsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblATEZ_NCTS_SessionsRowDeletingEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_SessionsRowDeleting(Me, New tblATEZ_NCTS_SessionsRowChangeEvent(CType(e.Row,tblATEZ_NCTS_SessionsRow), e.Action)) End If End Sub _ Public Sub RemovetblATEZ_NCTS_SessionsRow(ByVal row As tblATEZ_NCTS_SessionsRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblATEZ_NCTS_SessionsDataTable" 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 tblATEZ_NCTS_TransitCustomsOfficeDataTable Inherits Global.System.Data.TypedTableBase(Of tblATEZ_NCTS_TransitCustomsOfficeRow) Private columnId As Global.System.Data.DataColumn Private columnAtezNCTS_Id As Global.System.Data.DataColumn Private columnTransitCustomsOffice As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblATEZ_NCTS_TransitCustomsOffice" 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 AtezNCTS_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnAtezNCTS_Id End Get End Property _ Public ReadOnly Property TransitCustomsOfficeColumn() As Global.System.Data.DataColumn Get Return Me.columnTransitCustomsOffice 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 tblATEZ_NCTS_TransitCustomsOfficeRow Get Return CType(Me.Rows(index),tblATEZ_NCTS_TransitCustomsOfficeRow) End Get End Property _ Public Event tblATEZ_NCTS_TransitCustomsOfficeRowChanging As tblATEZ_NCTS_TransitCustomsOfficeRowChangeEventHandler _ Public Event tblATEZ_NCTS_TransitCustomsOfficeRowChanged As tblATEZ_NCTS_TransitCustomsOfficeRowChangeEventHandler _ Public Event tblATEZ_NCTS_TransitCustomsOfficeRowDeleting As tblATEZ_NCTS_TransitCustomsOfficeRowChangeEventHandler _ Public Event tblATEZ_NCTS_TransitCustomsOfficeRowDeleted As tblATEZ_NCTS_TransitCustomsOfficeRowChangeEventHandler _ Public Overloads Sub AddtblATEZ_NCTS_TransitCustomsOfficeRow(ByVal row As tblATEZ_NCTS_TransitCustomsOfficeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblATEZ_NCTS_TransitCustomsOfficeRow(ByVal parenttblATEZ_NCTSRowByFK_tblATEZ_NCTS_TransitCustomsOffice As tblATEZ_NCTSRow, ByVal TransitCustomsOffice As String) As tblATEZ_NCTS_TransitCustomsOfficeRow Dim rowtblATEZ_NCTS_TransitCustomsOfficeRow As tblATEZ_NCTS_TransitCustomsOfficeRow = CType(Me.NewRow,tblATEZ_NCTS_TransitCustomsOfficeRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, TransitCustomsOffice} If (Not (parenttblATEZ_NCTSRowByFK_tblATEZ_NCTS_TransitCustomsOffice) Is Nothing) Then columnValuesArray(1) = parenttblATEZ_NCTSRowByFK_tblATEZ_NCTS_TransitCustomsOffice(0) End If rowtblATEZ_NCTS_TransitCustomsOfficeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblATEZ_NCTS_TransitCustomsOfficeRow) Return rowtblATEZ_NCTS_TransitCustomsOfficeRow End Function _ Public Function FindById(ByVal Id As Integer) As tblATEZ_NCTS_TransitCustomsOfficeRow Return CType(Me.Rows.Find(New Object() {Id}),tblATEZ_NCTS_TransitCustomsOfficeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblATEZ_NCTS_TransitCustomsOfficeDataTable = CType(MyBase.Clone,tblATEZ_NCTS_TransitCustomsOfficeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblATEZ_NCTS_TransitCustomsOfficeDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columnAtezNCTS_Id = MyBase.Columns("AtezNCTS_Id") Me.columnTransitCustomsOffice = MyBase.Columns("TransitCustomsOffice") 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.columnAtezNCTS_Id = New Global.System.Data.DataColumn("AtezNCTS_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAtezNCTS_Id) Me.columnTransitCustomsOffice = New Global.System.Data.DataColumn("TransitCustomsOffice", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransitCustomsOffice) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columnTransitCustomsOffice.MaxLength = 50 End Sub _ Public Function NewtblATEZ_NCTS_TransitCustomsOfficeRow() As tblATEZ_NCTS_TransitCustomsOfficeRow Return CType(Me.NewRow,tblATEZ_NCTS_TransitCustomsOfficeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblATEZ_NCTS_TransitCustomsOfficeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblATEZ_NCTS_TransitCustomsOfficeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblATEZ_NCTS_TransitCustomsOfficeRowChangedEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_TransitCustomsOfficeRowChanged(Me, New tblATEZ_NCTS_TransitCustomsOfficeRowChangeEvent(CType(e.Row,tblATEZ_NCTS_TransitCustomsOfficeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblATEZ_NCTS_TransitCustomsOfficeRowChangingEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_TransitCustomsOfficeRowChanging(Me, New tblATEZ_NCTS_TransitCustomsOfficeRowChangeEvent(CType(e.Row,tblATEZ_NCTS_TransitCustomsOfficeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblATEZ_NCTS_TransitCustomsOfficeRowDeletedEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_TransitCustomsOfficeRowDeleted(Me, New tblATEZ_NCTS_TransitCustomsOfficeRowChangeEvent(CType(e.Row,tblATEZ_NCTS_TransitCustomsOfficeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblATEZ_NCTS_TransitCustomsOfficeRowDeletingEvent) Is Nothing) Then RaiseEvent tblATEZ_NCTS_TransitCustomsOfficeRowDeleting(Me, New tblATEZ_NCTS_TransitCustomsOfficeRowChangeEvent(CType(e.Row,tblATEZ_NCTS_TransitCustomsOfficeRow), e.Action)) End If End Sub _ Public Sub RemovetblATEZ_NCTS_TransitCustomsOfficeRow(ByVal row As tblATEZ_NCTS_TransitCustomsOfficeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblATEZ_NCTS_TransitCustomsOfficeDataTable" 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 tblBankspesenDataTable Inherits Global.System.Data.TypedTableBase(Of tblBankspesenRow) Private columnKundenNrVon As Global.System.Data.DataColumn Private columnKundenNrBis As Global.System.Data.DataColumn Private _columnBankspesen__ As Global.System.Data.DataColumn Private columnBankspesen_Mindestbetrag As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblBankspesen" 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 KundenNrVonColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrVon End Get End Property _ Public ReadOnly Property KundenNrBisColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrBis End Get End Property _ Public ReadOnly Property _Bankspesen__Column() As Global.System.Data.DataColumn Get Return Me._columnBankspesen__ End Get End Property _ Public ReadOnly Property Bankspesen_MindestbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBankspesen_Mindestbetrag 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 tblBankspesenRow Get Return CType(Me.Rows(index),tblBankspesenRow) End Get End Property _ Public Event tblBankspesenRowChanging As tblBankspesenRowChangeEventHandler _ Public Event tblBankspesenRowChanged As tblBankspesenRowChangeEventHandler _ Public Event tblBankspesenRowDeleting As tblBankspesenRowChangeEventHandler _ Public Event tblBankspesenRowDeleted As tblBankspesenRowChangeEventHandler _ Public Overloads Sub AddtblBankspesenRow(ByVal row As tblBankspesenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblBankspesenRow(ByVal KundenNrVon As Integer, ByVal KundenNrBis As Integer, ByVal _Bankspesen__ As Single, ByVal Bankspesen_Mindestbetrag As Decimal) As tblBankspesenRow Dim rowtblBankspesenRow As tblBankspesenRow = CType(Me.NewRow,tblBankspesenRow) Dim columnValuesArray() As Object = New Object() {KundenNrVon, KundenNrBis, _Bankspesen__, Bankspesen_Mindestbetrag} rowtblBankspesenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblBankspesenRow) Return rowtblBankspesenRow End Function _ Public Function FindByKundenNrVonKundenNrBis(ByVal KundenNrVon As Integer, ByVal KundenNrBis As Integer) As tblBankspesenRow Return CType(Me.Rows.Find(New Object() {KundenNrVon, KundenNrBis}),tblBankspesenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblBankspesenDataTable = CType(MyBase.Clone,tblBankspesenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblBankspesenDataTable() End Function _ Friend Sub InitVars() Me.columnKundenNrVon = MyBase.Columns("KundenNrVon") Me.columnKundenNrBis = MyBase.Columns("KundenNrBis") Me._columnBankspesen__ = MyBase.Columns("Bankspesen %") Me.columnBankspesen_Mindestbetrag = MyBase.Columns("Bankspesen Mindestbetrag") End Sub _ Private Sub InitClass() Me.columnKundenNrVon = New Global.System.Data.DataColumn("KundenNrVon", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrVon) Me.columnKundenNrBis = New Global.System.Data.DataColumn("KundenNrBis", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrBis) Me._columnBankspesen__ = New Global.System.Data.DataColumn("Bankspesen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnBankspesen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnBankspesen__") Me._columnBankspesen__.ExtendedProperties.Add("Generator_UserColumnName", "Bankspesen %") MyBase.Columns.Add(Me._columnBankspesen__) Me.columnBankspesen_Mindestbetrag = New Global.System.Data.DataColumn("Bankspesen Mindestbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankspesen_Mindestbetrag) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKundenNrVon, Me.columnKundenNrBis}, true)) Me.columnKundenNrVon.AllowDBNull = false Me.columnKundenNrBis.AllowDBNull = false Me._columnBankspesen__.AllowDBNull = false Me.columnBankspesen_Mindestbetrag.AllowDBNull = false End Sub _ Public Function NewtblBankspesenRow() As tblBankspesenRow Return CType(Me.NewRow,tblBankspesenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblBankspesenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblBankspesenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblBankspesenRowChangedEvent) Is Nothing) Then RaiseEvent tblBankspesenRowChanged(Me, New tblBankspesenRowChangeEvent(CType(e.Row,tblBankspesenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblBankspesenRowChangingEvent) Is Nothing) Then RaiseEvent tblBankspesenRowChanging(Me, New tblBankspesenRowChangeEvent(CType(e.Row,tblBankspesenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblBankspesenRowDeletedEvent) Is Nothing) Then RaiseEvent tblBankspesenRowDeleted(Me, New tblBankspesenRowChangeEvent(CType(e.Row,tblBankspesenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblBankspesenRowDeletingEvent) Is Nothing) Then RaiseEvent tblBankspesenRowDeleting(Me, New tblBankspesenRowChangeEvent(CType(e.Row,tblBankspesenRow), e.Action)) End If End Sub _ Public Sub RemovetblBankspesenRow(ByVal row As tblBankspesenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblBankspesenDataTable" 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 tblBerechnungsmethodeDataTable Inherits Global.System.Data.TypedTableBase(Of tblBerechnungsmethodeRow) Private columnNr As Global.System.Data.DataColumn Private columnBez As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblBerechnungsmethode" 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 NrColumn() As Global.System.Data.DataColumn Get Return Me.columnNr End Get End Property _ Public ReadOnly Property BezColumn() As Global.System.Data.DataColumn Get Return Me.columnBez End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblBerechnungsmethodeRow Get Return CType(Me.Rows(index),tblBerechnungsmethodeRow) End Get End Property _ Public Event tblBerechnungsmethodeRowChanging As tblBerechnungsmethodeRowChangeEventHandler _ Public Event tblBerechnungsmethodeRowChanged As tblBerechnungsmethodeRowChangeEventHandler _ Public Event tblBerechnungsmethodeRowDeleting As tblBerechnungsmethodeRowChangeEventHandler _ Public Event tblBerechnungsmethodeRowDeleted As tblBerechnungsmethodeRowChangeEventHandler _ Public Overloads Sub AddtblBerechnungsmethodeRow(ByVal row As tblBerechnungsmethodeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblBerechnungsmethodeRow(ByVal Nr As Integer, ByVal Bez As String, ByVal SSMA_TimeStamp() As Byte) As tblBerechnungsmethodeRow Dim rowtblBerechnungsmethodeRow As tblBerechnungsmethodeRow = CType(Me.NewRow,tblBerechnungsmethodeRow) Dim columnValuesArray() As Object = New Object() {Nr, Bez, SSMA_TimeStamp} rowtblBerechnungsmethodeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblBerechnungsmethodeRow) Return rowtblBerechnungsmethodeRow End Function _ Public Function FindByNr(ByVal Nr As Integer) As tblBerechnungsmethodeRow Return CType(Me.Rows.Find(New Object() {Nr}),tblBerechnungsmethodeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblBerechnungsmethodeDataTable = CType(MyBase.Clone,tblBerechnungsmethodeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblBerechnungsmethodeDataTable() End Function _ Friend Sub InitVars() Me.columnNr = MyBase.Columns("Nr") Me.columnBez = MyBase.Columns("Bez") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnNr = New Global.System.Data.DataColumn("Nr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNr) Me.columnBez = New Global.System.Data.DataColumn("Bez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBez) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnNr}, true)) Me.columnNr.AllowDBNull = false Me.columnNr.Unique = true Me.columnBez.AllowDBNull = false Me.columnBez.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblBerechnungsmethodeRow() As tblBerechnungsmethodeRow Return CType(Me.NewRow,tblBerechnungsmethodeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblBerechnungsmethodeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblBerechnungsmethodeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblBerechnungsmethodeRowChangedEvent) Is Nothing) Then RaiseEvent tblBerechnungsmethodeRowChanged(Me, New tblBerechnungsmethodeRowChangeEvent(CType(e.Row,tblBerechnungsmethodeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblBerechnungsmethodeRowChangingEvent) Is Nothing) Then RaiseEvent tblBerechnungsmethodeRowChanging(Me, New tblBerechnungsmethodeRowChangeEvent(CType(e.Row,tblBerechnungsmethodeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblBerechnungsmethodeRowDeletedEvent) Is Nothing) Then RaiseEvent tblBerechnungsmethodeRowDeleted(Me, New tblBerechnungsmethodeRowChangeEvent(CType(e.Row,tblBerechnungsmethodeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblBerechnungsmethodeRowDeletingEvent) Is Nothing) Then RaiseEvent tblBerechnungsmethodeRowDeleting(Me, New tblBerechnungsmethodeRowChangeEvent(CType(e.Row,tblBerechnungsmethodeRow), e.Action)) End If End Sub _ Public Sub RemovetblBerechnungsmethodeRow(ByVal row As tblBerechnungsmethodeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblBerechnungsmethodeDataTable" 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 tblBerichtsdruckerDataTable Inherits Global.System.Data.TypedTableBase(Of tblBerichtsdruckerRow) Private columnComputername As Global.System.Data.DataColumn Private columnBenutzername As Global.System.Data.DataColumn Private columnBerichtsname As Global.System.Data.DataColumn Private columnDruckername As Global.System.Data.DataColumn Private columnRandOben As Global.System.Data.DataColumn Private columnRandUnten As Global.System.Data.DataColumn Private columnRandLinks As Global.System.Data.DataColumn Private columnRandRechts As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblBerichtsdrucker" 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 ComputernameColumn() As Global.System.Data.DataColumn Get Return Me.columnComputername End Get End Property _ Public ReadOnly Property BenutzernameColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzername End Get End Property _ Public ReadOnly Property BerichtsnameColumn() As Global.System.Data.DataColumn Get Return Me.columnBerichtsname End Get End Property _ Public ReadOnly Property DruckernameColumn() As Global.System.Data.DataColumn Get Return Me.columnDruckername End Get End Property _ Public ReadOnly Property RandObenColumn() As Global.System.Data.DataColumn Get Return Me.columnRandOben End Get End Property _ Public ReadOnly Property RandUntenColumn() As Global.System.Data.DataColumn Get Return Me.columnRandUnten End Get End Property _ Public ReadOnly Property RandLinksColumn() As Global.System.Data.DataColumn Get Return Me.columnRandLinks End Get End Property _ Public ReadOnly Property RandRechtsColumn() As Global.System.Data.DataColumn Get Return Me.columnRandRechts End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblBerichtsdruckerRow Get Return CType(Me.Rows(index),tblBerichtsdruckerRow) End Get End Property _ Public Event tblBerichtsdruckerRowChanging As tblBerichtsdruckerRowChangeEventHandler _ Public Event tblBerichtsdruckerRowChanged As tblBerichtsdruckerRowChangeEventHandler _ Public Event tblBerichtsdruckerRowDeleting As tblBerichtsdruckerRowChangeEventHandler _ Public Event tblBerichtsdruckerRowDeleted As tblBerichtsdruckerRowChangeEventHandler _ Public Overloads Sub AddtblBerichtsdruckerRow(ByVal row As tblBerichtsdruckerRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblBerichtsdruckerRow(ByVal Computername As String, ByVal Benutzername As String, ByVal Berichtsname As String, ByVal Druckername As String, ByVal RandOben As Integer, ByVal RandUnten As Integer, ByVal RandLinks As Integer, ByVal RandRechts As Integer, ByVal upsize_ts() As Byte) As tblBerichtsdruckerRow Dim rowtblBerichtsdruckerRow As tblBerichtsdruckerRow = CType(Me.NewRow,tblBerichtsdruckerRow) Dim columnValuesArray() As Object = New Object() {Computername, Benutzername, Berichtsname, Druckername, RandOben, RandUnten, RandLinks, RandRechts, upsize_ts} rowtblBerichtsdruckerRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblBerichtsdruckerRow) Return rowtblBerichtsdruckerRow End Function _ Public Function FindByComputernameBenutzernameBerichtsname(ByVal Computername As String, ByVal Benutzername As String, ByVal Berichtsname As String) As tblBerichtsdruckerRow Return CType(Me.Rows.Find(New Object() {Computername, Benutzername, Berichtsname}),tblBerichtsdruckerRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblBerichtsdruckerDataTable = CType(MyBase.Clone,tblBerichtsdruckerDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblBerichtsdruckerDataTable() End Function _ Friend Sub InitVars() Me.columnComputername = MyBase.Columns("Computername") Me.columnBenutzername = MyBase.Columns("Benutzername") Me.columnBerichtsname = MyBase.Columns("Berichtsname") Me.columnDruckername = MyBase.Columns("Druckername") Me.columnRandOben = MyBase.Columns("RandOben") Me.columnRandUnten = MyBase.Columns("RandUnten") Me.columnRandLinks = MyBase.Columns("RandLinks") Me.columnRandRechts = MyBase.Columns("RandRechts") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnComputername = New Global.System.Data.DataColumn("Computername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComputername) Me.columnBenutzername = New Global.System.Data.DataColumn("Benutzername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzername) Me.columnBerichtsname = New Global.System.Data.DataColumn("Berichtsname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerichtsname) Me.columnDruckername = New Global.System.Data.DataColumn("Druckername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDruckername) Me.columnRandOben = New Global.System.Data.DataColumn("RandOben", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRandOben) Me.columnRandUnten = New Global.System.Data.DataColumn("RandUnten", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRandUnten) Me.columnRandLinks = New Global.System.Data.DataColumn("RandLinks", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRandLinks) Me.columnRandRechts = New Global.System.Data.DataColumn("RandRechts", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRandRechts) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnComputername, Me.columnBenutzername, Me.columnBerichtsname}, true)) Me.columnComputername.AllowDBNull = false Me.columnComputername.MaxLength = 15 Me.columnBenutzername.AllowDBNull = false Me.columnBenutzername.MaxLength = 20 Me.columnBerichtsname.AllowDBNull = false Me.columnBerichtsname.MaxLength = 50 Me.columnDruckername.AllowDBNull = false Me.columnDruckername.MaxLength = 100 Me.columnRandOben.AllowDBNull = false Me.columnRandUnten.AllowDBNull = false Me.columnRandLinks.AllowDBNull = false Me.columnRandRechts.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblBerichtsdruckerRow() As tblBerichtsdruckerRow Return CType(Me.NewRow,tblBerichtsdruckerRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblBerichtsdruckerRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblBerichtsdruckerRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblBerichtsdruckerRowChangedEvent) Is Nothing) Then RaiseEvent tblBerichtsdruckerRowChanged(Me, New tblBerichtsdruckerRowChangeEvent(CType(e.Row,tblBerichtsdruckerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblBerichtsdruckerRowChangingEvent) Is Nothing) Then RaiseEvent tblBerichtsdruckerRowChanging(Me, New tblBerichtsdruckerRowChangeEvent(CType(e.Row,tblBerichtsdruckerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblBerichtsdruckerRowDeletedEvent) Is Nothing) Then RaiseEvent tblBerichtsdruckerRowDeleted(Me, New tblBerichtsdruckerRowChangeEvent(CType(e.Row,tblBerichtsdruckerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblBerichtsdruckerRowDeletingEvent) Is Nothing) Then RaiseEvent tblBerichtsdruckerRowDeleting(Me, New tblBerichtsdruckerRowChangeEvent(CType(e.Row,tblBerichtsdruckerRow), e.Action)) End If End Sub _ Public Sub RemovetblBerichtsdruckerRow(ByVal row As tblBerichtsdruckerRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblBerichtsdruckerDataTable" 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 tblBesuchsberichteDataTable Inherits Global.System.Data.TypedTableBase(Of tblBesuchsberichteRow) Private columnbb_Id As Global.System.Data.DataColumn Private columnbb_Firma As Global.System.Data.DataColumn Private columnbb_DatumErfassung As Global.System.Data.DataColumn Private columnbb_DatumBesuch As Global.System.Data.DataColumn Private columnbb_Sachbearbeiter As Global.System.Data.DataColumn Private columnbb_SachbearbeiterId As Global.System.Data.DataColumn Private columnbb_Teilnehmer As Global.System.Data.DataColumn Private columnbb_Kontaktart As Global.System.Data.DataColumn Private columnbb_Kunde As Global.System.Data.DataColumn Private columnbb_KundenNr As Global.System.Data.DataColumn Private columnbb_Geschaeftsfuehrer As Global.System.Data.DataColumn Private columnbb_Umsatz As Global.System.Data.DataColumn Private columnbb_Anpsprechpartner As Global.System.Data.DataColumn Private columnbb_Telefon As Global.System.Data.DataColumn Private columnbb_Mail As Global.System.Data.DataColumn Private columnbb_FuhrparkEigentum As Global.System.Data.DataColumn Private columnbb_FuhrparkLeasing As Global.System.Data.DataColumn Private columnbb_LKW_Plane As Global.System.Data.DataColumn Private columnbb_LKW_Kuehltranporte As Global.System.Data.DataColumn Private columnbb_LKW_Sondertransporte As Global.System.Data.DataColumn Private columnbb_LKW_Sprinter As Global.System.Data.DataColumn Private columnbb_LKW_SiloTank As Global.System.Data.DataColumn Private columnbb_Auftraggeber As Global.System.Data.DataColumn Private columnbb_Route As Global.System.Data.DataColumn Private columnbb_DerzeitigerLieferant As Global.System.Data.DataColumn Private columnbb_Zufrieden As Global.System.Data.DataColumn Private columnbb_ZufriedenNEIN As Global.System.Data.DataColumn Private columnbb_Garantie As Global.System.Data.DataColumn Private columnbb_Interesse_Zollabfertigung As Global.System.Data.DataColumn Private columnbb_Interesse_Brexit As Global.System.Data.DataColumn Private columnbb_Interesse_Parkplatz As Global.System.Data.DataColumn Private columnbb_Interesse_LagerUmschlag As Global.System.Data.DataColumn Private columnbb_Interesse_Rola As Global.System.Data.DataColumn Private columnbb_Interesse_YesMoney As Global.System.Data.DataColumn Private columnbb_Interesse_Ferry As Global.System.Data.DataColumn Private columnbb_Vermerk As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblBesuchsberichte" 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 bb_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Id End Get End Property _ Public ReadOnly Property bb_FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Firma End Get End Property _ Public ReadOnly Property bb_DatumErfassungColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_DatumErfassung End Get End Property _ Public ReadOnly Property bb_DatumBesuchColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_DatumBesuch End Get End Property _ Public ReadOnly Property bb_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Sachbearbeiter End Get End Property _ Public ReadOnly Property bb_SachbearbeiterIdColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_SachbearbeiterId End Get End Property _ Public ReadOnly Property bb_TeilnehmerColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Teilnehmer End Get End Property _ Public ReadOnly Property bb_KontaktartColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Kontaktart End Get End Property _ Public ReadOnly Property bb_KundeColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Kunde End Get End Property _ Public ReadOnly Property bb_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_KundenNr End Get End Property _ Public ReadOnly Property bb_GeschaeftsfuehrerColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Geschaeftsfuehrer End Get End Property _ Public ReadOnly Property bb_UmsatzColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Umsatz End Get End Property _ Public ReadOnly Property bb_AnpsprechpartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Anpsprechpartner End Get End Property _ Public ReadOnly Property bb_TelefonColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Telefon End Get End Property _ Public ReadOnly Property bb_MailColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Mail End Get End Property _ Public ReadOnly Property bb_FuhrparkEigentumColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_FuhrparkEigentum End Get End Property _ Public ReadOnly Property bb_FuhrparkLeasingColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_FuhrparkLeasing End Get End Property _ Public ReadOnly Property bb_LKW_PlaneColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_LKW_Plane End Get End Property _ Public ReadOnly Property bb_LKW_KuehltranporteColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_LKW_Kuehltranporte End Get End Property _ Public ReadOnly Property bb_LKW_SondertransporteColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_LKW_Sondertransporte End Get End Property _ Public ReadOnly Property bb_LKW_SprinterColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_LKW_Sprinter End Get End Property _ Public ReadOnly Property bb_LKW_SiloTankColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_LKW_SiloTank End Get End Property _ Public ReadOnly Property bb_AuftraggeberColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Auftraggeber End Get End Property _ Public ReadOnly Property bb_RouteColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Route End Get End Property _ Public ReadOnly Property bb_DerzeitigerLieferantColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_DerzeitigerLieferant End Get End Property _ Public ReadOnly Property bb_ZufriedenColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Zufrieden End Get End Property _ Public ReadOnly Property bb_ZufriedenNEINColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_ZufriedenNEIN End Get End Property _ Public ReadOnly Property bb_GarantieColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Garantie End Get End Property _ Public ReadOnly Property bb_Interesse_ZollabfertigungColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Interesse_Zollabfertigung End Get End Property _ Public ReadOnly Property bb_Interesse_BrexitColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Interesse_Brexit End Get End Property _ Public ReadOnly Property bb_Interesse_ParkplatzColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Interesse_Parkplatz End Get End Property _ Public ReadOnly Property bb_Interesse_LagerUmschlagColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Interesse_LagerUmschlag End Get End Property _ Public ReadOnly Property bb_Interesse_RolaColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Interesse_Rola End Get End Property _ Public ReadOnly Property bb_Interesse_YesMoneyColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Interesse_YesMoney End Get End Property _ Public ReadOnly Property bb_Interesse_FerryColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Interesse_Ferry End Get End Property _ Public ReadOnly Property bb_VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnbb_Vermerk 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 tblBesuchsberichteRow Get Return CType(Me.Rows(index),tblBesuchsberichteRow) End Get End Property _ Public Event tblBesuchsberichteRowChanging As tblBesuchsberichteRowChangeEventHandler _ Public Event tblBesuchsberichteRowChanged As tblBesuchsberichteRowChangeEventHandler _ Public Event tblBesuchsberichteRowDeleting As tblBesuchsberichteRowChangeEventHandler _ Public Event tblBesuchsberichteRowDeleted As tblBesuchsberichteRowChangeEventHandler _ Public Overloads Sub AddtblBesuchsberichteRow(ByVal row As tblBesuchsberichteRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblBesuchsberichteRow( _ ByVal bb_Firma As String, _ ByVal bb_DatumErfassung As Date, _ ByVal bb_DatumBesuch As Date, _ ByVal bb_Sachbearbeiter As String, _ ByVal bb_SachbearbeiterId As Integer, _ ByVal bb_Teilnehmer As String, _ ByVal bb_Kontaktart As String, _ ByVal bb_Kunde As String, _ ByVal bb_KundenNr As Integer, _ ByVal bb_Geschaeftsfuehrer As String, _ ByVal bb_Umsatz As Decimal, _ ByVal bb_Anpsprechpartner As String, _ ByVal bb_Telefon As String, _ ByVal bb_Mail As String, _ ByVal bb_FuhrparkEigentum As String, _ ByVal bb_FuhrparkLeasing As String, _ ByVal bb_LKW_Plane As Boolean, _ ByVal bb_LKW_Kuehltranporte As Boolean, _ ByVal bb_LKW_Sondertransporte As Boolean, _ ByVal bb_LKW_Sprinter As Boolean, _ ByVal bb_LKW_SiloTank As Boolean, _ ByVal bb_Auftraggeber As String, _ ByVal bb_Route As String, _ ByVal bb_DerzeitigerLieferant As String, _ ByVal bb_Zufrieden As Boolean, _ ByVal bb_ZufriedenNEIN As String, _ ByVal bb_Garantie As String, _ ByVal bb_Interesse_Zollabfertigung As Boolean, _ ByVal bb_Interesse_Brexit As Boolean, _ ByVal bb_Interesse_Parkplatz As Boolean, _ ByVal bb_Interesse_LagerUmschlag As Boolean, _ ByVal bb_Interesse_Rola As Boolean, _ ByVal bb_Interesse_YesMoney As Boolean, _ ByVal bb_Interesse_Ferry As Boolean, _ ByVal bb_Vermerk As String) As tblBesuchsberichteRow Dim rowtblBesuchsberichteRow As tblBesuchsberichteRow = CType(Me.NewRow,tblBesuchsberichteRow) Dim columnValuesArray() As Object = New Object() {Nothing, bb_Firma, bb_DatumErfassung, bb_DatumBesuch, bb_Sachbearbeiter, bb_SachbearbeiterId, bb_Teilnehmer, bb_Kontaktart, bb_Kunde, bb_KundenNr, bb_Geschaeftsfuehrer, bb_Umsatz, bb_Anpsprechpartner, bb_Telefon, bb_Mail, bb_FuhrparkEigentum, bb_FuhrparkLeasing, bb_LKW_Plane, bb_LKW_Kuehltranporte, bb_LKW_Sondertransporte, bb_LKW_Sprinter, bb_LKW_SiloTank, bb_Auftraggeber, bb_Route, bb_DerzeitigerLieferant, bb_Zufrieden, bb_ZufriedenNEIN, bb_Garantie, bb_Interesse_Zollabfertigung, bb_Interesse_Brexit, bb_Interesse_Parkplatz, bb_Interesse_LagerUmschlag, bb_Interesse_Rola, bb_Interesse_YesMoney, bb_Interesse_Ferry, bb_Vermerk} rowtblBesuchsberichteRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblBesuchsberichteRow) Return rowtblBesuchsberichteRow End Function _ Public Function FindBybb_Id(ByVal bb_Id As Integer) As tblBesuchsberichteRow Return CType(Me.Rows.Find(New Object() {bb_Id}),tblBesuchsberichteRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblBesuchsberichteDataTable = CType(MyBase.Clone,tblBesuchsberichteDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblBesuchsberichteDataTable() End Function _ Friend Sub InitVars() Me.columnbb_Id = MyBase.Columns("bb_Id") Me.columnbb_Firma = MyBase.Columns("bb_Firma") Me.columnbb_DatumErfassung = MyBase.Columns("bb_DatumErfassung") Me.columnbb_DatumBesuch = MyBase.Columns("bb_DatumBesuch") Me.columnbb_Sachbearbeiter = MyBase.Columns("bb_Sachbearbeiter") Me.columnbb_SachbearbeiterId = MyBase.Columns("bb_SachbearbeiterId") Me.columnbb_Teilnehmer = MyBase.Columns("bb_Teilnehmer") Me.columnbb_Kontaktart = MyBase.Columns("bb_Kontaktart") Me.columnbb_Kunde = MyBase.Columns("bb_Kunde") Me.columnbb_KundenNr = MyBase.Columns("bb_KundenNr") Me.columnbb_Geschaeftsfuehrer = MyBase.Columns("bb_Geschaeftsfuehrer") Me.columnbb_Umsatz = MyBase.Columns("bb_Umsatz") Me.columnbb_Anpsprechpartner = MyBase.Columns("bb_Anpsprechpartner") Me.columnbb_Telefon = MyBase.Columns("bb_Telefon") Me.columnbb_Mail = MyBase.Columns("bb_Mail") Me.columnbb_FuhrparkEigentum = MyBase.Columns("bb_FuhrparkEigentum") Me.columnbb_FuhrparkLeasing = MyBase.Columns("bb_FuhrparkLeasing") Me.columnbb_LKW_Plane = MyBase.Columns("bb_LKW_Plane") Me.columnbb_LKW_Kuehltranporte = MyBase.Columns("bb_LKW_Kuehltranporte") Me.columnbb_LKW_Sondertransporte = MyBase.Columns("bb_LKW_Sondertransporte") Me.columnbb_LKW_Sprinter = MyBase.Columns("bb_LKW_Sprinter") Me.columnbb_LKW_SiloTank = MyBase.Columns("bb_LKW_SiloTank") Me.columnbb_Auftraggeber = MyBase.Columns("bb_Auftraggeber") Me.columnbb_Route = MyBase.Columns("bb_Route") Me.columnbb_DerzeitigerLieferant = MyBase.Columns("bb_DerzeitigerLieferant") Me.columnbb_Zufrieden = MyBase.Columns("bb_Zufrieden") Me.columnbb_ZufriedenNEIN = MyBase.Columns("bb_ZufriedenNEIN") Me.columnbb_Garantie = MyBase.Columns("bb_Garantie") Me.columnbb_Interesse_Zollabfertigung = MyBase.Columns("bb_Interesse_Zollabfertigung") Me.columnbb_Interesse_Brexit = MyBase.Columns("bb_Interesse_Brexit") Me.columnbb_Interesse_Parkplatz = MyBase.Columns("bb_Interesse_Parkplatz") Me.columnbb_Interesse_LagerUmschlag = MyBase.Columns("bb_Interesse_LagerUmschlag") Me.columnbb_Interesse_Rola = MyBase.Columns("bb_Interesse_Rola") Me.columnbb_Interesse_YesMoney = MyBase.Columns("bb_Interesse_YesMoney") Me.columnbb_Interesse_Ferry = MyBase.Columns("bb_Interesse_Ferry") Me.columnbb_Vermerk = MyBase.Columns("bb_Vermerk") End Sub _ Private Sub InitClass() Me.columnbb_Id = New Global.System.Data.DataColumn("bb_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Id) Me.columnbb_Firma = New Global.System.Data.DataColumn("bb_Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Firma) Me.columnbb_DatumErfassung = New Global.System.Data.DataColumn("bb_DatumErfassung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_DatumErfassung) Me.columnbb_DatumBesuch = New Global.System.Data.DataColumn("bb_DatumBesuch", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_DatumBesuch) Me.columnbb_Sachbearbeiter = New Global.System.Data.DataColumn("bb_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Sachbearbeiter) Me.columnbb_SachbearbeiterId = New Global.System.Data.DataColumn("bb_SachbearbeiterId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_SachbearbeiterId) Me.columnbb_Teilnehmer = New Global.System.Data.DataColumn("bb_Teilnehmer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Teilnehmer) Me.columnbb_Kontaktart = New Global.System.Data.DataColumn("bb_Kontaktart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Kontaktart) Me.columnbb_Kunde = New Global.System.Data.DataColumn("bb_Kunde", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Kunde) Me.columnbb_KundenNr = New Global.System.Data.DataColumn("bb_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_KundenNr) Me.columnbb_Geschaeftsfuehrer = New Global.System.Data.DataColumn("bb_Geschaeftsfuehrer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Geschaeftsfuehrer) Me.columnbb_Umsatz = New Global.System.Data.DataColumn("bb_Umsatz", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Umsatz) Me.columnbb_Anpsprechpartner = New Global.System.Data.DataColumn("bb_Anpsprechpartner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Anpsprechpartner) Me.columnbb_Telefon = New Global.System.Data.DataColumn("bb_Telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Telefon) Me.columnbb_Mail = New Global.System.Data.DataColumn("bb_Mail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Mail) Me.columnbb_FuhrparkEigentum = New Global.System.Data.DataColumn("bb_FuhrparkEigentum", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_FuhrparkEigentum) Me.columnbb_FuhrparkLeasing = New Global.System.Data.DataColumn("bb_FuhrparkLeasing", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_FuhrparkLeasing) Me.columnbb_LKW_Plane = New Global.System.Data.DataColumn("bb_LKW_Plane", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_LKW_Plane) Me.columnbb_LKW_Kuehltranporte = New Global.System.Data.DataColumn("bb_LKW_Kuehltranporte", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_LKW_Kuehltranporte) Me.columnbb_LKW_Sondertransporte = New Global.System.Data.DataColumn("bb_LKW_Sondertransporte", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_LKW_Sondertransporte) Me.columnbb_LKW_Sprinter = New Global.System.Data.DataColumn("bb_LKW_Sprinter", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_LKW_Sprinter) Me.columnbb_LKW_SiloTank = New Global.System.Data.DataColumn("bb_LKW_SiloTank", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_LKW_SiloTank) Me.columnbb_Auftraggeber = New Global.System.Data.DataColumn("bb_Auftraggeber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Auftraggeber) Me.columnbb_Route = New Global.System.Data.DataColumn("bb_Route", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Route) Me.columnbb_DerzeitigerLieferant = New Global.System.Data.DataColumn("bb_DerzeitigerLieferant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_DerzeitigerLieferant) Me.columnbb_Zufrieden = New Global.System.Data.DataColumn("bb_Zufrieden", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Zufrieden) Me.columnbb_ZufriedenNEIN = New Global.System.Data.DataColumn("bb_ZufriedenNEIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_ZufriedenNEIN) Me.columnbb_Garantie = New Global.System.Data.DataColumn("bb_Garantie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Garantie) Me.columnbb_Interesse_Zollabfertigung = New Global.System.Data.DataColumn("bb_Interesse_Zollabfertigung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Interesse_Zollabfertigung) Me.columnbb_Interesse_Brexit = New Global.System.Data.DataColumn("bb_Interesse_Brexit", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Interesse_Brexit) Me.columnbb_Interesse_Parkplatz = New Global.System.Data.DataColumn("bb_Interesse_Parkplatz", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Interesse_Parkplatz) Me.columnbb_Interesse_LagerUmschlag = New Global.System.Data.DataColumn("bb_Interesse_LagerUmschlag", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Interesse_LagerUmschlag) Me.columnbb_Interesse_Rola = New Global.System.Data.DataColumn("bb_Interesse_Rola", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Interesse_Rola) Me.columnbb_Interesse_YesMoney = New Global.System.Data.DataColumn("bb_Interesse_YesMoney", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Interesse_YesMoney) Me.columnbb_Interesse_Ferry = New Global.System.Data.DataColumn("bb_Interesse_Ferry", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Interesse_Ferry) Me.columnbb_Vermerk = New Global.System.Data.DataColumn("bb_Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbb_Vermerk) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnbb_Id}, true)) Me.columnbb_Id.AutoIncrement = true Me.columnbb_Id.AutoIncrementSeed = -1 Me.columnbb_Id.AutoIncrementStep = -1 Me.columnbb_Id.AllowDBNull = false Me.columnbb_Id.ReadOnly = true Me.columnbb_Id.Unique = true Me.columnbb_Firma.AllowDBNull = false Me.columnbb_Firma.MaxLength = 2147483647 Me.columnbb_DatumErfassung.AllowDBNull = false Me.columnbb_DatumBesuch.AllowDBNull = false Me.columnbb_Sachbearbeiter.AllowDBNull = false Me.columnbb_Sachbearbeiter.MaxLength = 100 Me.columnbb_SachbearbeiterId.AllowDBNull = false Me.columnbb_Teilnehmer.MaxLength = 2147483647 Me.columnbb_Kontaktart.MaxLength = 10 Me.columnbb_Kunde.AllowDBNull = false Me.columnbb_Kunde.MaxLength = 50 Me.columnbb_Geschaeftsfuehrer.MaxLength = 200 Me.columnbb_Anpsprechpartner.MaxLength = 200 Me.columnbb_Telefon.MaxLength = 200 Me.columnbb_Mail.MaxLength = 200 Me.columnbb_FuhrparkEigentum.MaxLength = 10 Me.columnbb_FuhrparkLeasing.MaxLength = 10 Me.columnbb_LKW_Plane.AllowDBNull = false Me.columnbb_LKW_Kuehltranporte.AllowDBNull = false Me.columnbb_LKW_Sondertransporte.AllowDBNull = false Me.columnbb_LKW_Sprinter.AllowDBNull = false Me.columnbb_LKW_SiloTank.AllowDBNull = false Me.columnbb_Auftraggeber.MaxLength = 2147483647 Me.columnbb_Route.MaxLength = 2147483647 Me.columnbb_DerzeitigerLieferant.MaxLength = 200 Me.columnbb_ZufriedenNEIN.MaxLength = 2147483647 Me.columnbb_Garantie.MaxLength = 2147483647 Me.columnbb_Interesse_Zollabfertigung.AllowDBNull = false Me.columnbb_Interesse_Brexit.AllowDBNull = false Me.columnbb_Interesse_Parkplatz.AllowDBNull = false Me.columnbb_Interesse_LagerUmschlag.AllowDBNull = false Me.columnbb_Interesse_Rola.AllowDBNull = false Me.columnbb_Interesse_YesMoney.AllowDBNull = false Me.columnbb_Interesse_Ferry.AllowDBNull = false Me.columnbb_Vermerk.MaxLength = 2147483647 End Sub _ Public Function NewtblBesuchsberichteRow() As tblBesuchsberichteRow Return CType(Me.NewRow,tblBesuchsberichteRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblBesuchsberichteRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblBesuchsberichteRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblBesuchsberichteRowChangedEvent) Is Nothing) Then RaiseEvent tblBesuchsberichteRowChanged(Me, New tblBesuchsberichteRowChangeEvent(CType(e.Row,tblBesuchsberichteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblBesuchsberichteRowChangingEvent) Is Nothing) Then RaiseEvent tblBesuchsberichteRowChanging(Me, New tblBesuchsberichteRowChangeEvent(CType(e.Row,tblBesuchsberichteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblBesuchsberichteRowDeletedEvent) Is Nothing) Then RaiseEvent tblBesuchsberichteRowDeleted(Me, New tblBesuchsberichteRowChangeEvent(CType(e.Row,tblBesuchsberichteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblBesuchsberichteRowDeletingEvent) Is Nothing) Then RaiseEvent tblBesuchsberichteRowDeleting(Me, New tblBesuchsberichteRowChangeEvent(CType(e.Row,tblBesuchsberichteRow), e.Action)) End If End Sub _ Public Sub RemovetblBesuchsberichteRow(ByVal row As tblBesuchsberichteRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblBesuchsberichteDataTable" 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 tblBonitaetsauskunftDataTable Inherits Global.System.Data.TypedTableBase(Of tblBonitaetsauskunftRow) Private columnba_id As Global.System.Data.DataColumn Private columnba_KundenNr As Global.System.Data.DataColumn Private columnba_Datum As Global.System.Data.DataColumn Private columnba_MaId As Global.System.Data.DataColumn Private columnba_Sachbearbeiter As Global.System.Data.DataColumn Private columnba_CRArt As Global.System.Data.DataColumn Private columnba_CRAnsprechpartnerHerrFrau As Global.System.Data.DataColumn Private columnba_CRAnsprechpartner As Global.System.Data.DataColumn Private columnba_Firma As Global.System.Data.DataColumn Private columnba_Adresse1 As Global.System.Data.DataColumn Private columnba_Adresse2 As Global.System.Data.DataColumn Private columnba_LetztesBearbeitungsDatum As Global.System.Data.DataColumn Private columnba_BonitaetsIndex As Global.System.Data.DataColumn Private columnba_CreditSaveBonitaetsIndex As Global.System.Data.DataColumn Private columnba_CreditSaveBonitaetsScore As Global.System.Data.DataColumn Private columnba_GruendundsDatum As Global.System.Data.DataColumn Private columnba_Umsatz As Global.System.Data.DataColumn Private columnba_Mitarbeiter As Global.System.Data.DataColumn Private columnba_Bankverbindung As Global.System.Data.DataColumn Private columnba_Hoechstkredit As Global.System.Data.DataColumn Private columnba_Zahlungsweise As Global.System.Data.DataColumn Private columnba_GFName As Global.System.Data.DataColumn Private columnba_Sonstiges As Global.System.Data.DataColumn Private columnba_Risikostufe As Global.System.Data.DataColumn Private columnba_CreditSaveRisikoklasse As Global.System.Data.DataColumn Private columnba_Pruefungstool As Global.System.Data.DataColumn Private columnba_datenarchivId As Global.System.Data.DataColumn Private columnba_GSName As Global.System.Data.DataColumn Private columnba_Geschaeftszweck As Global.System.Data.DataColumn Private columnba_UID As Global.System.Data.DataColumn Private columnba_forcedRequest As Global.System.Data.DataColumn Private columnba_CScounterBeforeRequest As Global.System.Data.DataColumn Private columnba_CScounterAfterRequest As Global.System.Data.DataColumn Private columnba_CSmax As Global.System.Data.DataColumn Private columnba_CScountry As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblBonitaetsauskunft" 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 ba_idColumn() As Global.System.Data.DataColumn Get Return Me.columnba_id End Get End Property _ Public ReadOnly Property ba_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnba_KundenNr End Get End Property _ Public ReadOnly Property ba_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Datum End Get End Property _ Public ReadOnly Property ba_MaIdColumn() As Global.System.Data.DataColumn Get Return Me.columnba_MaId End Get End Property _ Public ReadOnly Property ba_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Sachbearbeiter End Get End Property _ Public ReadOnly Property ba_CRArtColumn() As Global.System.Data.DataColumn Get Return Me.columnba_CRArt End Get End Property _ Public ReadOnly Property ba_CRAnsprechpartnerHerrFrauColumn() As Global.System.Data.DataColumn Get Return Me.columnba_CRAnsprechpartnerHerrFrau End Get End Property _ Public ReadOnly Property ba_CRAnsprechpartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnba_CRAnsprechpartner End Get End Property _ Public ReadOnly Property ba_FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Firma End Get End Property _ Public ReadOnly Property ba_Adresse1Column() As Global.System.Data.DataColumn Get Return Me.columnba_Adresse1 End Get End Property _ Public ReadOnly Property ba_Adresse2Column() As Global.System.Data.DataColumn Get Return Me.columnba_Adresse2 End Get End Property _ Public ReadOnly Property ba_LetztesBearbeitungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnba_LetztesBearbeitungsDatum End Get End Property _ Public ReadOnly Property ba_BonitaetsIndexColumn() As Global.System.Data.DataColumn Get Return Me.columnba_BonitaetsIndex End Get End Property _ Public ReadOnly Property ba_CreditSaveBonitaetsIndexColumn() As Global.System.Data.DataColumn Get Return Me.columnba_CreditSaveBonitaetsIndex End Get End Property _ Public ReadOnly Property ba_CreditSaveBonitaetsScoreColumn() As Global.System.Data.DataColumn Get Return Me.columnba_CreditSaveBonitaetsScore End Get End Property _ Public ReadOnly Property ba_GruendundsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnba_GruendundsDatum End Get End Property _ Public ReadOnly Property ba_UmsatzColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Umsatz End Get End Property _ Public ReadOnly Property ba_MitarbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Mitarbeiter End Get End Property _ Public ReadOnly Property ba_BankverbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Bankverbindung End Get End Property _ Public ReadOnly Property ba_HoechstkreditColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Hoechstkredit End Get End Property _ Public ReadOnly Property ba_ZahlungsweiseColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Zahlungsweise End Get End Property _ Public ReadOnly Property ba_GFNameColumn() As Global.System.Data.DataColumn Get Return Me.columnba_GFName End Get End Property _ Public ReadOnly Property ba_SonstigesColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Sonstiges End Get End Property _ Public ReadOnly Property ba_RisikostufeColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Risikostufe End Get End Property _ Public ReadOnly Property ba_CreditSaveRisikoklasseColumn() As Global.System.Data.DataColumn Get Return Me.columnba_CreditSaveRisikoklasse End Get End Property _ Public ReadOnly Property ba_PruefungstoolColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Pruefungstool End Get End Property _ Public ReadOnly Property ba_datenarchivIdColumn() As Global.System.Data.DataColumn Get Return Me.columnba_datenarchivId End Get End Property _ Public ReadOnly Property ba_GSNameColumn() As Global.System.Data.DataColumn Get Return Me.columnba_GSName End Get End Property _ Public ReadOnly Property ba_GeschaeftszweckColumn() As Global.System.Data.DataColumn Get Return Me.columnba_Geschaeftszweck End Get End Property _ Public ReadOnly Property ba_UIDColumn() As Global.System.Data.DataColumn Get Return Me.columnba_UID End Get End Property _ Public ReadOnly Property ba_forcedRequestColumn() As Global.System.Data.DataColumn Get Return Me.columnba_forcedRequest End Get End Property _ Public ReadOnly Property ba_CScounterBeforeRequestColumn() As Global.System.Data.DataColumn Get Return Me.columnba_CScounterBeforeRequest End Get End Property _ Public ReadOnly Property ba_CScounterAfterRequestColumn() As Global.System.Data.DataColumn Get Return Me.columnba_CScounterAfterRequest End Get End Property _ Public ReadOnly Property ba_CSmaxColumn() As Global.System.Data.DataColumn Get Return Me.columnba_CSmax End Get End Property _ Public ReadOnly Property ba_CScountryColumn() As Global.System.Data.DataColumn Get Return Me.columnba_CScountry 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 tblBonitaetsauskunftRow Get Return CType(Me.Rows(index),tblBonitaetsauskunftRow) End Get End Property _ Public Event tblBonitaetsauskunftRowChanging As tblBonitaetsauskunftRowChangeEventHandler _ Public Event tblBonitaetsauskunftRowChanged As tblBonitaetsauskunftRowChangeEventHandler _ Public Event tblBonitaetsauskunftRowDeleting As tblBonitaetsauskunftRowChangeEventHandler _ Public Event tblBonitaetsauskunftRowDeleted As tblBonitaetsauskunftRowChangeEventHandler _ Public Overloads Sub AddtblBonitaetsauskunftRow(ByVal row As tblBonitaetsauskunftRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblBonitaetsauskunftRow( _ ByVal ba_KundenNr As Integer, _ ByVal ba_Datum As Date, _ ByVal ba_MaId As Integer, _ ByVal ba_Sachbearbeiter As String, _ ByVal ba_CRArt As String, _ ByVal ba_CRAnsprechpartnerHerrFrau As String, _ ByVal ba_CRAnsprechpartner As String, _ ByVal ba_Firma As String, _ ByVal ba_Adresse1 As String, _ ByVal ba_Adresse2 As String, _ ByVal ba_LetztesBearbeitungsDatum As Date, _ ByVal ba_BonitaetsIndex As Integer, _ ByVal ba_CreditSaveBonitaetsIndex As Double, _ ByVal ba_CreditSaveBonitaetsScore As Integer, _ ByVal ba_GruendundsDatum As Date, _ ByVal ba_Umsatz As String, _ ByVal ba_Mitarbeiter As Integer, _ ByVal ba_Bankverbindung As String, _ ByVal ba_Hoechstkredit As Double, _ ByVal ba_Zahlungsweise As String, _ ByVal ba_GFName As String, _ ByVal ba_Sonstiges As String, _ ByVal ba_Risikostufe As Integer, _ ByVal ba_CreditSaveRisikoklasse As String, _ ByVal ba_Pruefungstool As String, _ ByVal ba_datenarchivId As Integer, _ ByVal ba_GSName As String, _ ByVal ba_Geschaeftszweck As String, _ ByVal ba_UID As String, _ ByVal ba_forcedRequest As Boolean, _ ByVal ba_CScounterBeforeRequest As Integer, _ ByVal ba_CScounterAfterRequest As Integer, _ ByVal ba_CSmax As Integer, _ ByVal ba_CScountry As String) As tblBonitaetsauskunftRow Dim rowtblBonitaetsauskunftRow As tblBonitaetsauskunftRow = CType(Me.NewRow,tblBonitaetsauskunftRow) Dim columnValuesArray() As Object = New Object() {Nothing, ba_KundenNr, ba_Datum, ba_MaId, ba_Sachbearbeiter, ba_CRArt, ba_CRAnsprechpartnerHerrFrau, ba_CRAnsprechpartner, ba_Firma, ba_Adresse1, ba_Adresse2, ba_LetztesBearbeitungsDatum, ba_BonitaetsIndex, ba_CreditSaveBonitaetsIndex, ba_CreditSaveBonitaetsScore, ba_GruendundsDatum, ba_Umsatz, ba_Mitarbeiter, ba_Bankverbindung, ba_Hoechstkredit, ba_Zahlungsweise, ba_GFName, ba_Sonstiges, ba_Risikostufe, ba_CreditSaveRisikoklasse, ba_Pruefungstool, ba_datenarchivId, ba_GSName, ba_Geschaeftszweck, ba_UID, ba_forcedRequest, ba_CScounterBeforeRequest, ba_CScounterAfterRequest, ba_CSmax, ba_CScountry} rowtblBonitaetsauskunftRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblBonitaetsauskunftRow) Return rowtblBonitaetsauskunftRow End Function _ Public Function FindByba_id(ByVal ba_id As Integer) As tblBonitaetsauskunftRow Return CType(Me.Rows.Find(New Object() {ba_id}),tblBonitaetsauskunftRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblBonitaetsauskunftDataTable = CType(MyBase.Clone,tblBonitaetsauskunftDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblBonitaetsauskunftDataTable() End Function _ Friend Sub InitVars() Me.columnba_id = MyBase.Columns("ba_id") Me.columnba_KundenNr = MyBase.Columns("ba_KundenNr") Me.columnba_Datum = MyBase.Columns("ba_Datum") Me.columnba_MaId = MyBase.Columns("ba_MaId") Me.columnba_Sachbearbeiter = MyBase.Columns("ba_Sachbearbeiter") Me.columnba_CRArt = MyBase.Columns("ba_CRArt") Me.columnba_CRAnsprechpartnerHerrFrau = MyBase.Columns("ba_CRAnsprechpartnerHerrFrau") Me.columnba_CRAnsprechpartner = MyBase.Columns("ba_CRAnsprechpartner") Me.columnba_Firma = MyBase.Columns("ba_Firma") Me.columnba_Adresse1 = MyBase.Columns("ba_Adresse1") Me.columnba_Adresse2 = MyBase.Columns("ba_Adresse2") Me.columnba_LetztesBearbeitungsDatum = MyBase.Columns("ba_LetztesBearbeitungsDatum") Me.columnba_BonitaetsIndex = MyBase.Columns("ba_BonitaetsIndex") Me.columnba_CreditSaveBonitaetsIndex = MyBase.Columns("ba_CreditSaveBonitaetsIndex") Me.columnba_CreditSaveBonitaetsScore = MyBase.Columns("ba_CreditSaveBonitaetsScore") Me.columnba_GruendundsDatum = MyBase.Columns("ba_GruendundsDatum") Me.columnba_Umsatz = MyBase.Columns("ba_Umsatz") Me.columnba_Mitarbeiter = MyBase.Columns("ba_Mitarbeiter") Me.columnba_Bankverbindung = MyBase.Columns("ba_Bankverbindung") Me.columnba_Hoechstkredit = MyBase.Columns("ba_Hoechstkredit") Me.columnba_Zahlungsweise = MyBase.Columns("ba_Zahlungsweise") Me.columnba_GFName = MyBase.Columns("ba_GFName") Me.columnba_Sonstiges = MyBase.Columns("ba_Sonstiges") Me.columnba_Risikostufe = MyBase.Columns("ba_Risikostufe") Me.columnba_CreditSaveRisikoklasse = MyBase.Columns("ba_CreditSaveRisikoklasse") Me.columnba_Pruefungstool = MyBase.Columns("ba_Pruefungstool") Me.columnba_datenarchivId = MyBase.Columns("ba_datenarchivId") Me.columnba_GSName = MyBase.Columns("ba_GSName") Me.columnba_Geschaeftszweck = MyBase.Columns("ba_Geschaeftszweck") Me.columnba_UID = MyBase.Columns("ba_UID") Me.columnba_forcedRequest = MyBase.Columns("ba_forcedRequest") Me.columnba_CScounterBeforeRequest = MyBase.Columns("ba_CScounterBeforeRequest") Me.columnba_CScounterAfterRequest = MyBase.Columns("ba_CScounterAfterRequest") Me.columnba_CSmax = MyBase.Columns("ba_CSmax") Me.columnba_CScountry = MyBase.Columns("ba_CScountry") End Sub _ Private Sub InitClass() Me.columnba_id = New Global.System.Data.DataColumn("ba_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_id) Me.columnba_KundenNr = New Global.System.Data.DataColumn("ba_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_KundenNr) Me.columnba_Datum = New Global.System.Data.DataColumn("ba_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Datum) Me.columnba_MaId = New Global.System.Data.DataColumn("ba_MaId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_MaId) Me.columnba_Sachbearbeiter = New Global.System.Data.DataColumn("ba_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Sachbearbeiter) Me.columnba_CRArt = New Global.System.Data.DataColumn("ba_CRArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_CRArt) Me.columnba_CRAnsprechpartnerHerrFrau = New Global.System.Data.DataColumn("ba_CRAnsprechpartnerHerrFrau", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_CRAnsprechpartnerHerrFrau) Me.columnba_CRAnsprechpartner = New Global.System.Data.DataColumn("ba_CRAnsprechpartner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_CRAnsprechpartner) Me.columnba_Firma = New Global.System.Data.DataColumn("ba_Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Firma) Me.columnba_Adresse1 = New Global.System.Data.DataColumn("ba_Adresse1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Adresse1) Me.columnba_Adresse2 = New Global.System.Data.DataColumn("ba_Adresse2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Adresse2) Me.columnba_LetztesBearbeitungsDatum = New Global.System.Data.DataColumn("ba_LetztesBearbeitungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_LetztesBearbeitungsDatum) Me.columnba_BonitaetsIndex = New Global.System.Data.DataColumn("ba_BonitaetsIndex", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_BonitaetsIndex) Me.columnba_CreditSaveBonitaetsIndex = New Global.System.Data.DataColumn("ba_CreditSaveBonitaetsIndex", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_CreditSaveBonitaetsIndex) Me.columnba_CreditSaveBonitaetsScore = New Global.System.Data.DataColumn("ba_CreditSaveBonitaetsScore", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_CreditSaveBonitaetsScore) Me.columnba_GruendundsDatum = New Global.System.Data.DataColumn("ba_GruendundsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_GruendundsDatum) Me.columnba_Umsatz = New Global.System.Data.DataColumn("ba_Umsatz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Umsatz) Me.columnba_Mitarbeiter = New Global.System.Data.DataColumn("ba_Mitarbeiter", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Mitarbeiter) Me.columnba_Bankverbindung = New Global.System.Data.DataColumn("ba_Bankverbindung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Bankverbindung) Me.columnba_Hoechstkredit = New Global.System.Data.DataColumn("ba_Hoechstkredit", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Hoechstkredit) Me.columnba_Zahlungsweise = New Global.System.Data.DataColumn("ba_Zahlungsweise", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Zahlungsweise) Me.columnba_GFName = New Global.System.Data.DataColumn("ba_GFName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_GFName) Me.columnba_Sonstiges = New Global.System.Data.DataColumn("ba_Sonstiges", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Sonstiges) Me.columnba_Risikostufe = New Global.System.Data.DataColumn("ba_Risikostufe", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Risikostufe) Me.columnba_CreditSaveRisikoklasse = New Global.System.Data.DataColumn("ba_CreditSaveRisikoklasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_CreditSaveRisikoklasse) Me.columnba_Pruefungstool = New Global.System.Data.DataColumn("ba_Pruefungstool", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Pruefungstool) Me.columnba_datenarchivId = New Global.System.Data.DataColumn("ba_datenarchivId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_datenarchivId) Me.columnba_GSName = New Global.System.Data.DataColumn("ba_GSName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_GSName) Me.columnba_Geschaeftszweck = New Global.System.Data.DataColumn("ba_Geschaeftszweck", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_Geschaeftszweck) Me.columnba_UID = New Global.System.Data.DataColumn("ba_UID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_UID) Me.columnba_forcedRequest = New Global.System.Data.DataColumn("ba_forcedRequest", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_forcedRequest) Me.columnba_CScounterBeforeRequest = New Global.System.Data.DataColumn("ba_CScounterBeforeRequest", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_CScounterBeforeRequest) Me.columnba_CScounterAfterRequest = New Global.System.Data.DataColumn("ba_CScounterAfterRequest", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_CScounterAfterRequest) Me.columnba_CSmax = New Global.System.Data.DataColumn("ba_CSmax", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_CSmax) Me.columnba_CScountry = New Global.System.Data.DataColumn("ba_CScountry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnba_CScountry) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnba_id}, true)) Me.columnba_id.AutoIncrement = true Me.columnba_id.AutoIncrementSeed = -1 Me.columnba_id.AutoIncrementStep = -1 Me.columnba_id.AllowDBNull = false Me.columnba_id.ReadOnly = true Me.columnba_id.Unique = true Me.columnba_KundenNr.AllowDBNull = false Me.columnba_Datum.AllowDBNull = false Me.columnba_Sachbearbeiter.AllowDBNull = false Me.columnba_Sachbearbeiter.MaxLength = 200 Me.columnba_CRArt.AllowDBNull = false Me.columnba_CRArt.MaxLength = 50 Me.columnba_CRAnsprechpartnerHerrFrau.AllowDBNull = false Me.columnba_CRAnsprechpartnerHerrFrau.MaxLength = 50 Me.columnba_CRAnsprechpartner.AllowDBNull = false Me.columnba_CRAnsprechpartner.MaxLength = 200 Me.columnba_Firma.AllowDBNull = false Me.columnba_Firma.MaxLength = 200 Me.columnba_Adresse1.AllowDBNull = false Me.columnba_Adresse1.MaxLength = 200 Me.columnba_Adresse2.AllowDBNull = false Me.columnba_Adresse2.MaxLength = 200 Me.columnba_Umsatz.MaxLength = 100 Me.columnba_Bankverbindung.AllowDBNull = false Me.columnba_Bankverbindung.MaxLength = 200 Me.columnba_Zahlungsweise.AllowDBNull = false Me.columnba_Zahlungsweise.MaxLength = 200 Me.columnba_GFName.AllowDBNull = false Me.columnba_GFName.MaxLength = 200 Me.columnba_Sonstiges.AllowDBNull = false Me.columnba_Sonstiges.MaxLength = 500 Me.columnba_CreditSaveRisikoklasse.MaxLength = 1 Me.columnba_Pruefungstool.MaxLength = 100 Me.columnba_GSName.MaxLength = 200 Me.columnba_Geschaeftszweck.MaxLength = 2147483647 Me.columnba_UID.MaxLength = 50 Me.columnba_forcedRequest.AllowDBNull = false Me.columnba_CScountry.MaxLength = 3 End Sub _ Public Function NewtblBonitaetsauskunftRow() As tblBonitaetsauskunftRow Return CType(Me.NewRow,tblBonitaetsauskunftRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblBonitaetsauskunftRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblBonitaetsauskunftRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblBonitaetsauskunftRowChangedEvent) Is Nothing) Then RaiseEvent tblBonitaetsauskunftRowChanged(Me, New tblBonitaetsauskunftRowChangeEvent(CType(e.Row,tblBonitaetsauskunftRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblBonitaetsauskunftRowChangingEvent) Is Nothing) Then RaiseEvent tblBonitaetsauskunftRowChanging(Me, New tblBonitaetsauskunftRowChangeEvent(CType(e.Row,tblBonitaetsauskunftRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblBonitaetsauskunftRowDeletedEvent) Is Nothing) Then RaiseEvent tblBonitaetsauskunftRowDeleted(Me, New tblBonitaetsauskunftRowChangeEvent(CType(e.Row,tblBonitaetsauskunftRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblBonitaetsauskunftRowDeletingEvent) Is Nothing) Then RaiseEvent tblBonitaetsauskunftRowDeleting(Me, New tblBonitaetsauskunftRowChangeEvent(CType(e.Row,tblBonitaetsauskunftRow), e.Action)) End If End Sub _ Public Sub RemovetblBonitaetsauskunftRow(ByVal row As tblBonitaetsauskunftRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblBonitaetsauskunftDataTable" 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 tblBuchungstextDataTable Inherits Global.System.Data.TypedTableBase(Of tblBuchungstextRow) Private columnBuchungstext As Global.System.Data.DataColumn Private columnGegenkonto As Global.System.Data.DataColumn Private columnBelegart As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnvisible As Global.System.Data.DataColumn Private columnFirma As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblBuchungstext" 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 BuchungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungstext End Get End Property _ Public ReadOnly Property GegenkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnGegenkonto End Get End Property _ Public ReadOnly Property BelegartColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegart End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property visibleColumn() As Global.System.Data.DataColumn Get Return Me.columnvisible End Get End Property _ Public ReadOnly Property FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma 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 tblBuchungstextRow Get Return CType(Me.Rows(index),tblBuchungstextRow) End Get End Property _ Public Event tblBuchungstextRowChanging As tblBuchungstextRowChangeEventHandler _ Public Event tblBuchungstextRowChanged As tblBuchungstextRowChangeEventHandler _ Public Event tblBuchungstextRowDeleting As tblBuchungstextRowChangeEventHandler _ Public Event tblBuchungstextRowDeleted As tblBuchungstextRowChangeEventHandler _ Public Overloads Sub AddtblBuchungstextRow(ByVal row As tblBuchungstextRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblBuchungstextRow(ByVal Buchungstext As String, ByVal Gegenkonto As Integer, ByVal Belegart As Short, ByVal SSMA_TimeStamp() As Byte, ByVal visible As Boolean, ByVal Firma As String) As tblBuchungstextRow Dim rowtblBuchungstextRow As tblBuchungstextRow = CType(Me.NewRow,tblBuchungstextRow) Dim columnValuesArray() As Object = New Object() {Buchungstext, Gegenkonto, Belegart, SSMA_TimeStamp, visible, Firma} rowtblBuchungstextRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblBuchungstextRow) Return rowtblBuchungstextRow End Function _ Public Function FindByBuchungstextFirma(ByVal Buchungstext As String, ByVal Firma As String) As tblBuchungstextRow Return CType(Me.Rows.Find(New Object() {Buchungstext, Firma}),tblBuchungstextRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblBuchungstextDataTable = CType(MyBase.Clone,tblBuchungstextDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblBuchungstextDataTable() End Function _ Friend Sub InitVars() Me.columnBuchungstext = MyBase.Columns("Buchungstext") Me.columnGegenkonto = MyBase.Columns("Gegenkonto") Me.columnBelegart = MyBase.Columns("Belegart") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnvisible = MyBase.Columns("visible") Me.columnFirma = MyBase.Columns("Firma") End Sub _ Private Sub InitClass() Me.columnBuchungstext = New Global.System.Data.DataColumn("Buchungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungstext) Me.columnGegenkonto = New Global.System.Data.DataColumn("Gegenkonto", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGegenkonto) Me.columnBelegart = New Global.System.Data.DataColumn("Belegart", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegart) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnvisible = New Global.System.Data.DataColumn("visible", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvisible) Me.columnFirma = New Global.System.Data.DataColumn("Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBuchungstext, Me.columnFirma}, true)) Me.columnBuchungstext.AllowDBNull = false Me.columnBuchungstext.MaxLength = 70 Me.columnBelegart.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnvisible.AllowDBNull = false Me.columnFirma.AllowDBNull = false Me.columnFirma.MaxLength = 50 End Sub _ Public Function NewtblBuchungstextRow() As tblBuchungstextRow Return CType(Me.NewRow,tblBuchungstextRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblBuchungstextRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblBuchungstextRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblBuchungstextRowChangedEvent) Is Nothing) Then RaiseEvent tblBuchungstextRowChanged(Me, New tblBuchungstextRowChangeEvent(CType(e.Row,tblBuchungstextRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblBuchungstextRowChangingEvent) Is Nothing) Then RaiseEvent tblBuchungstextRowChanging(Me, New tblBuchungstextRowChangeEvent(CType(e.Row,tblBuchungstextRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblBuchungstextRowDeletedEvent) Is Nothing) Then RaiseEvent tblBuchungstextRowDeleted(Me, New tblBuchungstextRowChangeEvent(CType(e.Row,tblBuchungstextRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblBuchungstextRowDeletingEvent) Is Nothing) Then RaiseEvent tblBuchungstextRowDeleting(Me, New tblBuchungstextRowChangeEvent(CType(e.Row,tblBuchungstextRow), e.Action)) End If End Sub _ Public Sub RemovetblBuchungstextRow(ByVal row As tblBuchungstextRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblBuchungstextDataTable" 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 tblDakosy_AESDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_AESRow) Private columnaes_Id As Global.System.Data.DataColumn Private columnaes_Status As Global.System.Data.DataColumn Private columnaes_Status_KEWILL_Equivalent As Global.System.Data.DataColumn Private columnaes_dyaArt As Global.System.Data.DataColumn Private columnaes_dyaAnmID As Global.System.Data.DataColumn Private columnaes_ANR As Global.System.Data.DataColumn Private columnaes_MRN As Global.System.Data.DataColumn Private columnaes_Erstellung As Global.System.Data.DataColumn Private columnaes_Erstellung_SB As Global.System.Data.DataColumn Private columnaes_LetzteBearbeitung As Global.System.Data.DataColumn Private columnaes_LetzteBearbeitung_SB As Global.System.Data.DataColumn Private columnaes_firma As Global.System.Data.DataColumn Private columnaes_niederlassung As Global.System.Data.DataColumn Private columnaes_Trans_Partner As Global.System.Data.DataColumn Private columnaes_Trans_Div1 As Global.System.Data.DataColumn Private columnaes_Trans_Div2 As Global.System.Data.DataColumn Private columnaes_Trans_Div3 As Global.System.Data.DataColumn Private columnaes_Trans_Referenz As Global.System.Data.DataColumn Private columnaes_Trans_DatumZeit As Global.System.Data.DataColumn Private columnaes_Trans_Version As Global.System.Data.DataColumn Private columnaes_NachrichtenSenderTIN As Global.System.Data.DataColumn Private columnaes_NachrichtenSenderNLNR As Global.System.Data.DataColumn Private columnaes_NachrichtenempfaengerDST As Global.System.Data.DataColumn Private columnaes_ObjectName As Global.System.Data.DataColumn Private columnaes_ObjectAlias As Global.System.Data.DataColumn Private columnaes_BezugsnummerVorblendung As Global.System.Data.DataColumn Private columnaes_Bearbeiter As Global.System.Data.DataColumn Private columnaes_AnmeldeArtAusfuhrCode As Global.System.Data.DataColumn Private columnaes_AnmeldeArtVerfahrensCode As Global.System.Data.DataColumn Private columnaes_AnmeldeArtUeberfuehrungCode As Global.System.Data.DataColumn Private columnaes_Ausfuhrland As Global.System.Data.DataColumn Private columnaes_BestimmungslandCode As Global.System.Data.DataColumn Private columnaes_AnmeldedatumZeit As Global.System.Data.DataColumn Private columnaes_DatumAusgang As Global.System.Data.DataColumn Private columnaes_MassgeblichesDatum As Global.System.Data.DataColumn Private columnaes_BesondereUmstaende As Global.System.Data.DataColumn Private columnaes_Zahlungsweisebefoerderungskosten As Global.System.Data.DataColumn Private columnaes_ContainerIndikator As Global.System.Data.DataColumn Private columnaes_BeteiligteKonstellation As Global.System.Data.DataColumn Private columnaes_AdressdatenKonstellation As Global.System.Data.DataColumn Private columnaes_GesamtRohmasse As Global.System.Data.DataColumn Private columnaes_RegistriernummerFremdsystem As Global.System.Data.DataColumn Private columnaes_Vermerk As Global.System.Data.DataColumn Private columnaes_KennnummerSendung As Global.System.Data.DataColumn Private columnaes_AnzahlPositionen As Global.System.Data.DataColumn Private columnaes_BewiligungsnummerAusfuhr As Global.System.Data.DataColumn Private columnaes_BewiligungsnummerAnschreibeverfahren As Global.System.Data.DataColumn Private columnaes_BewiligungsnummerPassiveVeredelung As Global.System.Data.DataColumn Private columnaes_BewiligungsnummerVertrausenswuerdigerAusfuehrer As Global.System.Data.DataColumn Private columnaes_VerkehrszweigInland As Global.System.Data.DataColumn Private columnaes_BefoerderungsmittelAbgangArtCode As Global.System.Data.DataColumn Private columnaes_BefoerderungsmittelAbgangKennzeichen As Global.System.Data.DataColumn Private columnaes_BefoerderungsmittelAbgangStaatCode As Global.System.Data.DataColumn Private columnaes_VerkehrszweigGrenze As Global.System.Data.DataColumn Private columnaes_BefoerderungsmittelGrenzeArtCode As Global.System.Data.DataColumn Private columnaes_BefoerderungsmittelGrenzeKennzeichen As Global.System.Data.DataColumn Private columnaes_BefoerderungsmittelGrenzeStaatCode As Global.System.Data.DataColumn Private columnaes_LadeortOrtId As Global.System.Data.DataColumn Private columnaes_LadeortStrasse As Global.System.Data.DataColumn Private columnaes_LadeortPLZ As Global.System.Data.DataColumn Private columnaes_LadeortOrt As Global.System.Data.DataColumn Private columnaes_LadeortZusatz As Global.System.Data.DataColumn Private columnaes_AusfuhrZollstelleID As Global.System.Data.DataColumn Private columnaes_AusgangszollstelleID As Global.System.Data.DataColumn Private columnaes_TatsaechlicheAusgangZollstelleID As Global.System.Data.DataColumn Private columnaes_GeschaeftartCode As Global.System.Data.DataColumn Private columnaes_Rechnungspreis As Global.System.Data.DataColumn Private columnaes_Rechnungwaehrung As Global.System.Data.DataColumn Private columnaes_BesondererTatbestand As Global.System.Data.DataColumn Private columnaes_VerschlussArtCode As Global.System.Data.DataColumn Private columnaes_VerschlussAnzahl As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen1 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen2 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen3 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen4 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen5 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen6 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen7 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen8 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen9 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen10 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen11 As Global.System.Data.DataColumn Private columnaes_VerschlussZeichen12 As Global.System.Data.DataColumn Private columnaes_GestellungsfristAnfangDatumZeit As Global.System.Data.DataColumn Private columnaes_GestellungsfristEndeDatumZeit As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerEORI As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerNLNR As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerName As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerStrasse As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerOrt As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerPLZ As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerLandCode As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerAnsprechpartnerStellung As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerAnsprechpartnerEmail As Global.System.Data.DataColumn Private columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefax As Global.System.Data.DataColumn Private columnaes_EmpfaengerTeilnehmerEORI As Global.System.Data.DataColumn Private columnaes_EmpfaengerTeilnehmerNLNR As Global.System.Data.DataColumn Private columnaes_EmpfaengerTeilnehmerName As Global.System.Data.DataColumn Private columnaes_EmpfaengerTeilnehmerStrasse As Global.System.Data.DataColumn Private columnaes_EmpfaengerTeilnehmerOrt As Global.System.Data.DataColumn Private columnaes_EmpfaengerTeilnehmerPLZ As Global.System.Data.DataColumn Private columnaes_EmpfaengerTeilnehmerLandCode As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerEORI As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerNLNR As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerName As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerStrasse As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerOrt As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerPLZ As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerLandCode As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerAnsprechpartnerStellung As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerAnsprechpartnerEmail As Global.System.Data.DataColumn Private columnaes_AnmelderTeilnehmerAnsprechpartnerTelefax As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerEORI As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerNLNR As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerName As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerStrasse As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerOrt As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerPLZ As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerLandCode As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail As Global.System.Data.DataColumn Private columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerEORI As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerNLNR As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerName As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerStrasse As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerOrt As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerPLZ As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerLandCode As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerAnsprechpartnerStellung As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerAnsprechpartnerEmail As Global.System.Data.DataColumn Private columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefax As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerEORI As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerNLNR As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerName As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerStrasse As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerOrt As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerPLZ As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerLandCode As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail As Global.System.Data.DataColumn Private columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand1 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand2 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand3 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand4 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand5 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand6 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand7 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand8 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand9 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand10 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand11 As Global.System.Data.DataColumn Private columnaes_BefoerderungsrouteLand12 As Global.System.Data.DataColumn Private columnaes_LieferbedingungenCode As Global.System.Data.DataColumn Private columnaes_LieferbedingungenText As Global.System.Data.DataColumn Private columnaes_LieferbedingungenOrt As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_AES" 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 aes_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Id End Get End Property _ Public ReadOnly Property aes_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Status End Get End Property _ Public ReadOnly Property aes_Status_KEWILL_EquivalentColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Status_KEWILL_Equivalent End Get End Property _ Public ReadOnly Property aes_dyaArtColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_dyaArt End Get End Property _ Public ReadOnly Property aes_dyaAnmIDColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_dyaAnmID End Get End Property _ Public ReadOnly Property aes_ANRColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_ANR End Get End Property _ Public ReadOnly Property aes_MRNColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_MRN End Get End Property _ Public ReadOnly Property aes_ErstellungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Erstellung End Get End Property _ Public ReadOnly Property aes_Erstellung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Erstellung_SB End Get End Property _ Public ReadOnly Property aes_LetzteBearbeitungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_LetzteBearbeitung End Get End Property _ Public ReadOnly Property aes_LetzteBearbeitung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_LetzteBearbeitung_SB End Get End Property _ Public ReadOnly Property aes_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_firma End Get End Property _ Public ReadOnly Property aes_niederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_niederlassung End Get End Property _ Public ReadOnly Property aes_Trans_PartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Trans_Partner End Get End Property _ Public ReadOnly Property aes_Trans_Div1Column() As Global.System.Data.DataColumn Get Return Me.columnaes_Trans_Div1 End Get End Property _ Public ReadOnly Property aes_Trans_Div2Column() As Global.System.Data.DataColumn Get Return Me.columnaes_Trans_Div2 End Get End Property _ Public ReadOnly Property aes_Trans_Div3Column() As Global.System.Data.DataColumn Get Return Me.columnaes_Trans_Div3 End Get End Property _ Public ReadOnly Property aes_Trans_ReferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Trans_Referenz End Get End Property _ Public ReadOnly Property aes_Trans_DatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Trans_DatumZeit End Get End Property _ Public ReadOnly Property aes_Trans_VersionColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Trans_Version End Get End Property _ Public ReadOnly Property aes_NachrichtenSenderTINColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_NachrichtenSenderTIN End Get End Property _ Public ReadOnly Property aes_NachrichtenSenderNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_NachrichtenSenderNLNR End Get End Property _ Public ReadOnly Property aes_NachrichtenempfaengerDSTColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_NachrichtenempfaengerDST End Get End Property _ Public ReadOnly Property aes_ObjectNameColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_ObjectName End Get End Property _ Public ReadOnly Property aes_ObjectAliasColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_ObjectAlias End Get End Property _ Public ReadOnly Property aes_BezugsnummerVorblendungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BezugsnummerVorblendung End Get End Property _ Public ReadOnly Property aes_BearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Bearbeiter End Get End Property _ Public ReadOnly Property aes_AnmeldeArtAusfuhrCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmeldeArtAusfuhrCode End Get End Property _ Public ReadOnly Property aes_AnmeldeArtVerfahrensCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmeldeArtVerfahrensCode End Get End Property _ Public ReadOnly Property aes_AnmeldeArtUeberfuehrungCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmeldeArtUeberfuehrungCode End Get End Property _ Public ReadOnly Property aes_AusfuhrlandColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Ausfuhrland End Get End Property _ Public ReadOnly Property aes_BestimmungslandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BestimmungslandCode End Get End Property _ Public ReadOnly Property aes_AnmeldedatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmeldedatumZeit End Get End Property _ Public ReadOnly Property aes_DatumAusgangColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_DatumAusgang End Get End Property _ Public ReadOnly Property aes_MassgeblichesDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_MassgeblichesDatum End Get End Property _ Public ReadOnly Property aes_BesondereUmstaendeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BesondereUmstaende End Get End Property _ Public ReadOnly Property aes_ZahlungsweisebefoerderungskostenColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Zahlungsweisebefoerderungskosten End Get End Property _ Public ReadOnly Property aes_ContainerIndikatorColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_ContainerIndikator End Get End Property _ Public ReadOnly Property aes_BeteiligteKonstellationColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BeteiligteKonstellation End Get End Property _ Public ReadOnly Property aes_AdressdatenKonstellationColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AdressdatenKonstellation End Get End Property _ Public ReadOnly Property aes_GesamtRohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_GesamtRohmasse End Get End Property _ Public ReadOnly Property aes_RegistriernummerFremdsystemColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_RegistriernummerFremdsystem End Get End Property _ Public ReadOnly Property aes_VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Vermerk End Get End Property _ Public ReadOnly Property aes_KennnummerSendungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_KennnummerSendung End Get End Property _ Public ReadOnly Property aes_AnzahlPositionenColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnzahlPositionen End Get End Property _ Public ReadOnly Property aes_BewiligungsnummerAusfuhrColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BewiligungsnummerAusfuhr End Get End Property _ Public ReadOnly Property aes_BewiligungsnummerAnschreibeverfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BewiligungsnummerAnschreibeverfahren End Get End Property _ Public ReadOnly Property aes_BewiligungsnummerPassiveVeredelungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BewiligungsnummerPassiveVeredelung End Get End Property _ Public ReadOnly Property aes_BewiligungsnummerVertrausenswuerdigerAusfuehrerColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BewiligungsnummerVertrausenswuerdigerAusfuehrer End Get End Property _ Public ReadOnly Property aes_VerkehrszweigInlandColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerkehrszweigInland End Get End Property _ Public ReadOnly Property aes_BefoerderungsmittelAbgangArtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsmittelAbgangArtCode End Get End Property _ Public ReadOnly Property aes_BefoerderungsmittelAbgangKennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsmittelAbgangKennzeichen End Get End Property _ Public ReadOnly Property aes_BefoerderungsmittelAbgangStaatCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsmittelAbgangStaatCode End Get End Property _ Public ReadOnly Property aes_VerkehrszweigGrenzeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerkehrszweigGrenze End Get End Property _ Public ReadOnly Property aes_BefoerderungsmittelGrenzeArtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsmittelGrenzeArtCode End Get End Property _ Public ReadOnly Property aes_BefoerderungsmittelGrenzeKennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsmittelGrenzeKennzeichen End Get End Property _ Public ReadOnly Property aes_BefoerderungsmittelGrenzeStaatCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsmittelGrenzeStaatCode End Get End Property _ Public ReadOnly Property aes_LadeortOrtIdColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_LadeortOrtId End Get End Property _ Public ReadOnly Property aes_LadeortStrasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_LadeortStrasse End Get End Property _ Public ReadOnly Property aes_LadeortPLZColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_LadeortPLZ End Get End Property _ Public ReadOnly Property aes_LadeortOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_LadeortOrt End Get End Property _ Public ReadOnly Property aes_LadeortZusatzColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_LadeortZusatz End Get End Property _ Public ReadOnly Property aes_AusfuhrZollstelleIDColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuhrZollstelleID End Get End Property _ Public ReadOnly Property aes_AusgangszollstelleIDColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusgangszollstelleID End Get End Property _ Public ReadOnly Property aes_TatsaechlicheAusgangZollstelleIDColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_TatsaechlicheAusgangZollstelleID End Get End Property _ Public ReadOnly Property aes_GeschaeftartCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_GeschaeftartCode End Get End Property _ Public ReadOnly Property aes_RechnungspreisColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Rechnungspreis End Get End Property _ Public ReadOnly Property aes_RechnungwaehrungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_Rechnungwaehrung End Get End Property _ Public ReadOnly Property aes_BesondererTatbestandColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_BesondererTatbestand End Get End Property _ Public ReadOnly Property aes_VerschlussArtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussArtCode End Get End Property _ Public ReadOnly Property aes_VerschlussAnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussAnzahl End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen1Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen1 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen2Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen2 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen3Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen3 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen4Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen4 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen5Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen5 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen6Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen6 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen7Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen7 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen8Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen8 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen9Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen9 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen10Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen10 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen11Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen11 End Get End Property _ Public ReadOnly Property aes_VerschlussZeichen12Column() As Global.System.Data.DataColumn Get Return Me.columnaes_VerschlussZeichen12 End Get End Property _ Public ReadOnly Property aes_GestellungsfristAnfangDatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_GestellungsfristAnfangDatumZeit End Get End Property _ Public ReadOnly Property aes_GestellungsfristEndeDatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_GestellungsfristEndeDatumZeit End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerEORI End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerNLNR End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerName End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerStrasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerStrasse End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerOrt End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerPLZColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerPLZ End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerLandCode End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerAnsprechpartnerStellungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerStellung End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerAnsprechpartnerEmailColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerEmail End Get End Property _ Public ReadOnly Property aes_AusfuehrerTeilnehmerAnsprechpartnerTelefaxColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefax End Get End Property _ Public ReadOnly Property aes_EmpfaengerTeilnehmerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_EmpfaengerTeilnehmerEORI End Get End Property _ Public ReadOnly Property aes_EmpfaengerTeilnehmerNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_EmpfaengerTeilnehmerNLNR End Get End Property _ Public ReadOnly Property aes_EmpfaengerTeilnehmerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_EmpfaengerTeilnehmerName End Get End Property _ Public ReadOnly Property aes_EmpfaengerTeilnehmerStrasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_EmpfaengerTeilnehmerStrasse End Get End Property _ Public ReadOnly Property aes_EmpfaengerTeilnehmerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_EmpfaengerTeilnehmerOrt End Get End Property _ Public ReadOnly Property aes_EmpfaengerTeilnehmerPLZColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_EmpfaengerTeilnehmerPLZ End Get End Property _ Public ReadOnly Property aes_EmpfaengerTeilnehmerLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_EmpfaengerTeilnehmerLandCode End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerEORI End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerNLNR End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerName End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerStrasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerStrasse End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerOrt End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerPLZColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerPLZ End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerLandCode End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerAnsprechpartnerStellungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerAnsprechpartnerStellung End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerAnsprechpartnerEmailColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerAnsprechpartnerEmail End Get End Property _ Public ReadOnly Property aes_AnmelderTeilnehmerAnsprechpartnerTelefaxColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_AnmelderTeilnehmerAnsprechpartnerTelefax End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerEORI End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerNLNR End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerName End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerStrasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerStrasse End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerOrt End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerPLZColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerPLZ End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerLandCode End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmailColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail End Get End Property _ Public ReadOnly Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefaxColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerEORI End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerNLNR End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerName End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerStrasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerStrasse End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerOrt End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerPLZColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerPLZ End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerLandCode End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerAnsprechpartnerStellungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerStellung End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerAnsprechpartnerEmailColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerEmail End Get End Property _ Public ReadOnly Property aes_SubunternehmerTeilnehmerAnsprechpartnerTelefaxColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefax End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerEORI End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerNLNR End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerName End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerStrasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerStrasse End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerOrt End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerPLZColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerPLZ End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerLandCode End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellungColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmailColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail End Get End Property _ Public ReadOnly Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefaxColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand1Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand1 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand2Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand2 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand3Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand3 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand4Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand4 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand5Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand5 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand6Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand6 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand7Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand7 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand8Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand8 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand9Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand9 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand10Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand10 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand11Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand11 End Get End Property _ Public ReadOnly Property aes_BefoerderungsrouteLand12Column() As Global.System.Data.DataColumn Get Return Me.columnaes_BefoerderungsrouteLand12 End Get End Property _ Public ReadOnly Property aes_LieferbedingungenCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_LieferbedingungenCode End Get End Property _ Public ReadOnly Property aes_LieferbedingungenTextColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_LieferbedingungenText End Get End Property _ Public ReadOnly Property aes_LieferbedingungenOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnaes_LieferbedingungenOrt 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 tblDakosy_AESRow Get Return CType(Me.Rows(index),tblDakosy_AESRow) End Get End Property _ Public Event tblDakosy_AESRowChanging As tblDakosy_AESRowChangeEventHandler _ Public Event tblDakosy_AESRowChanged As tblDakosy_AESRowChangeEventHandler _ Public Event tblDakosy_AESRowDeleting As tblDakosy_AESRowChangeEventHandler _ Public Event tblDakosy_AESRowDeleted As tblDakosy_AESRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_AESRow(ByVal row As tblDakosy_AESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_AESRow( _ ByVal aes_Status As Integer, _ ByVal aes_Status_KEWILL_Equivalent As Integer, _ ByVal aes_dyaArt As String, _ ByVal aes_dyaAnmID As Integer, _ ByVal aes_ANR As String, _ ByVal aes_MRN As String, _ ByVal aes_Erstellung As Date, _ ByVal aes_Erstellung_SB As Integer, _ ByVal aes_LetzteBearbeitung As Date, _ ByVal aes_LetzteBearbeitung_SB As Integer, _ ByVal aes_firma As String, _ ByVal aes_niederlassung As String, _ ByVal aes_Trans_Partner As String, _ ByVal aes_Trans_Div1 As String, _ ByVal aes_Trans_Div2 As String, _ ByVal aes_Trans_Div3 As String, _ ByVal aes_Trans_Referenz As String, _ ByVal aes_Trans_DatumZeit As Date, _ ByVal aes_Trans_Version As Decimal, _ ByVal aes_NachrichtenSenderTIN As String, _ ByVal aes_NachrichtenSenderNLNR As String, _ ByVal aes_NachrichtenempfaengerDST As String, _ ByVal aes_ObjectName As String, _ ByVal aes_ObjectAlias As String, _ ByVal aes_BezugsnummerVorblendung As String, _ ByVal aes_Bearbeiter As String, _ ByVal aes_AnmeldeArtAusfuhrCode As String, _ ByVal aes_AnmeldeArtVerfahrensCode As String, _ ByVal aes_AnmeldeArtUeberfuehrungCode As String, _ ByVal aes_Ausfuhrland As String, _ ByVal aes_BestimmungslandCode As String, _ ByVal aes_AnmeldedatumZeit As Date, _ ByVal aes_DatumAusgang As Date, _ ByVal aes_MassgeblichesDatum As Date, _ ByVal aes_BesondereUmstaende As String, _ ByVal aes_Zahlungsweisebefoerderungskosten As String, _ ByVal aes_ContainerIndikator As String, _ ByVal aes_BeteiligteKonstellation As String, _ ByVal aes_AdressdatenKonstellation As String, _ ByVal aes_GesamtRohmasse As Decimal, _ ByVal aes_RegistriernummerFremdsystem As String, _ ByVal aes_Vermerk As String, _ ByVal aes_KennnummerSendung As String, _ ByVal aes_AnzahlPositionen As Decimal, _ ByVal aes_BewiligungsnummerAusfuhr As String, _ ByVal aes_BewiligungsnummerAnschreibeverfahren As String, _ ByVal aes_BewiligungsnummerPassiveVeredelung As String, _ ByVal aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer As String, _ ByVal aes_VerkehrszweigInland As String, _ ByVal aes_BefoerderungsmittelAbgangArtCode As String, _ ByVal aes_BefoerderungsmittelAbgangKennzeichen As String, _ ByVal aes_BefoerderungsmittelAbgangStaatCode As String, _ ByVal aes_VerkehrszweigGrenze As String, _ ByVal aes_BefoerderungsmittelGrenzeArtCode As String, _ ByVal aes_BefoerderungsmittelGrenzeKennzeichen As String, _ ByVal aes_BefoerderungsmittelGrenzeStaatCode As String, _ ByVal aes_LadeortOrtId As String, _ ByVal aes_LadeortStrasse As String, _ ByVal aes_LadeortPLZ As String, _ ByVal aes_LadeortOrt As String, _ ByVal aes_LadeortZusatz As String, _ ByVal aes_AusfuhrZollstelleID As String, _ ByVal aes_AusgangszollstelleID As String, _ ByVal aes_TatsaechlicheAusgangZollstelleID As String, _ ByVal aes_GeschaeftartCode As String, _ ByVal aes_Rechnungspreis As Decimal, _ ByVal aes_Rechnungwaehrung As String, _ ByVal aes_BesondererTatbestand As String, _ ByVal aes_VerschlussArtCode As String, _ ByVal aes_VerschlussAnzahl As String, _ ByVal aes_VerschlussZeichen1 As String, _ ByVal aes_VerschlussZeichen2 As String, _ ByVal aes_VerschlussZeichen3 As String, _ ByVal aes_VerschlussZeichen4 As String, _ ByVal aes_VerschlussZeichen5 As String, _ ByVal aes_VerschlussZeichen6 As String, _ ByVal aes_VerschlussZeichen7 As String, _ ByVal aes_VerschlussZeichen8 As String, _ ByVal aes_VerschlussZeichen9 As String, _ ByVal aes_VerschlussZeichen10 As String, _ ByVal aes_VerschlussZeichen11 As String, _ ByVal aes_VerschlussZeichen12 As String, _ ByVal aes_GestellungsfristAnfangDatumZeit As Date, _ ByVal aes_GestellungsfristEndeDatumZeit As Date, _ ByVal aes_AusfuehrerTeilnehmerEORI As String, _ ByVal aes_AusfuehrerTeilnehmerNLNR As String, _ ByVal aes_AusfuehrerTeilnehmerName As String, _ ByVal aes_AusfuehrerTeilnehmerStrasse As String, _ ByVal aes_AusfuehrerTeilnehmerOrt As String, _ ByVal aes_AusfuehrerTeilnehmerPLZ As String, _ ByVal aes_AusfuehrerTeilnehmerLandCode As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_EmpfaengerTeilnehmerEORI As String, _ ByVal aes_EmpfaengerTeilnehmerNLNR As String, _ ByVal aes_EmpfaengerTeilnehmerName As String, _ ByVal aes_EmpfaengerTeilnehmerStrasse As String, _ ByVal aes_EmpfaengerTeilnehmerOrt As String, _ ByVal aes_EmpfaengerTeilnehmerPLZ As String, _ ByVal aes_EmpfaengerTeilnehmerLandCode As String, _ ByVal aes_AnmelderTeilnehmerEORI As String, _ ByVal aes_AnmelderTeilnehmerNLNR As String, _ ByVal aes_AnmelderTeilnehmerName As String, _ ByVal aes_AnmelderTeilnehmerStrasse As String, _ ByVal aes_AnmelderTeilnehmerOrt As String, _ ByVal aes_AnmelderTeilnehmerPLZ As String, _ ByVal aes_AnmelderTeilnehmerLandCode As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_VertreterAnmelderTeilnehmerEORI As String, _ ByVal aes_VertreterAnmelderTeilnehmerNLNR As String, _ ByVal aes_VertreterAnmelderTeilnehmerName As String, _ ByVal aes_VertreterAnmelderTeilnehmerStrasse As String, _ ByVal aes_VertreterAnmelderTeilnehmerOrt As String, _ ByVal aes_VertreterAnmelderTeilnehmerPLZ As String, _ ByVal aes_VertreterAnmelderTeilnehmerLandCode As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_SubunternehmerTeilnehmerEORI As String, _ ByVal aes_SubunternehmerTeilnehmerNLNR As String, _ ByVal aes_SubunternehmerTeilnehmerName As String, _ ByVal aes_SubunternehmerTeilnehmerStrasse As String, _ ByVal aes_SubunternehmerTeilnehmerOrt As String, _ ByVal aes_SubunternehmerTeilnehmerPLZ As String, _ ByVal aes_SubunternehmerTeilnehmerLandCode As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerEORI As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerNLNR As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerName As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerStrasse As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerOrt As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerPLZ As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerLandCode As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_BefoerderungsrouteLand1 As String, _ ByVal aes_BefoerderungsrouteLand2 As String, _ ByVal aes_BefoerderungsrouteLand3 As String, _ ByVal aes_BefoerderungsrouteLand4 As String, _ ByVal aes_BefoerderungsrouteLand5 As String, _ ByVal aes_BefoerderungsrouteLand6 As String, _ ByVal aes_BefoerderungsrouteLand7 As String, _ ByVal aes_BefoerderungsrouteLand8 As String, _ ByVal aes_BefoerderungsrouteLand9 As String, _ ByVal aes_BefoerderungsrouteLand10 As String, _ ByVal aes_BefoerderungsrouteLand11 As String, _ ByVal aes_BefoerderungsrouteLand12 As String, _ ByVal aes_LieferbedingungenCode As String, _ ByVal aes_LieferbedingungenText As String, _ ByVal aes_LieferbedingungenOrt As String) As tblDakosy_AESRow Dim rowtblDakosy_AESRow As tblDakosy_AESRow = CType(Me.NewRow,tblDakosy_AESRow) Dim columnValuesArray() As Object = New Object() {Nothing, aes_Status, aes_Status_KEWILL_Equivalent, aes_dyaArt, aes_dyaAnmID, aes_ANR, aes_MRN, aes_Erstellung, aes_Erstellung_SB, aes_LetzteBearbeitung, aes_LetzteBearbeitung_SB, aes_firma, aes_niederlassung, aes_Trans_Partner, aes_Trans_Div1, aes_Trans_Div2, aes_Trans_Div3, aes_Trans_Referenz, aes_Trans_DatumZeit, aes_Trans_Version, aes_NachrichtenSenderTIN, aes_NachrichtenSenderNLNR, aes_NachrichtenempfaengerDST, aes_ObjectName, aes_ObjectAlias, aes_BezugsnummerVorblendung, aes_Bearbeiter, aes_AnmeldeArtAusfuhrCode, aes_AnmeldeArtVerfahrensCode, aes_AnmeldeArtUeberfuehrungCode, aes_Ausfuhrland, aes_BestimmungslandCode, aes_AnmeldedatumZeit, aes_DatumAusgang, aes_MassgeblichesDatum, aes_BesondereUmstaende, aes_Zahlungsweisebefoerderungskosten, aes_ContainerIndikator, aes_BeteiligteKonstellation, aes_AdressdatenKonstellation, aes_GesamtRohmasse, aes_RegistriernummerFremdsystem, aes_Vermerk, aes_KennnummerSendung, aes_AnzahlPositionen, aes_BewiligungsnummerAusfuhr, aes_BewiligungsnummerAnschreibeverfahren, aes_BewiligungsnummerPassiveVeredelung, aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer, aes_VerkehrszweigInland, aes_BefoerderungsmittelAbgangArtCode, aes_BefoerderungsmittelAbgangKennzeichen, aes_BefoerderungsmittelAbgangStaatCode, aes_VerkehrszweigGrenze, aes_BefoerderungsmittelGrenzeArtCode, aes_BefoerderungsmittelGrenzeKennzeichen, aes_BefoerderungsmittelGrenzeStaatCode, aes_LadeortOrtId, aes_LadeortStrasse, aes_LadeortPLZ, aes_LadeortOrt, aes_LadeortZusatz, aes_AusfuhrZollstelleID, aes_AusgangszollstelleID, aes_TatsaechlicheAusgangZollstelleID, aes_GeschaeftartCode, aes_Rechnungspreis, aes_Rechnungwaehrung, aes_BesondererTatbestand, aes_VerschlussArtCode, aes_VerschlussAnzahl, aes_VerschlussZeichen1, aes_VerschlussZeichen2, aes_VerschlussZeichen3, aes_VerschlussZeichen4, aes_VerschlussZeichen5, aes_VerschlussZeichen6, aes_VerschlussZeichen7, aes_VerschlussZeichen8, aes_VerschlussZeichen9, aes_VerschlussZeichen10, aes_VerschlussZeichen11, aes_VerschlussZeichen12, aes_GestellungsfristAnfangDatumZeit, aes_GestellungsfristEndeDatumZeit, aes_AusfuehrerTeilnehmerEORI, aes_AusfuehrerTeilnehmerNLNR, aes_AusfuehrerTeilnehmerName, aes_AusfuehrerTeilnehmerStrasse, aes_AusfuehrerTeilnehmerOrt, aes_AusfuehrerTeilnehmerPLZ, aes_AusfuehrerTeilnehmerLandCode, aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter, aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer, aes_AusfuehrerTeilnehmerAnsprechpartnerStellung, aes_AusfuehrerTeilnehmerAnsprechpartnerEmail, aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax, aes_EmpfaengerTeilnehmerEORI, aes_EmpfaengerTeilnehmerNLNR, aes_EmpfaengerTeilnehmerName, aes_EmpfaengerTeilnehmerStrasse, aes_EmpfaengerTeilnehmerOrt, aes_EmpfaengerTeilnehmerPLZ, aes_EmpfaengerTeilnehmerLandCode, aes_AnmelderTeilnehmerEORI, aes_AnmelderTeilnehmerNLNR, aes_AnmelderTeilnehmerName, aes_AnmelderTeilnehmerStrasse, aes_AnmelderTeilnehmerOrt, aes_AnmelderTeilnehmerPLZ, aes_AnmelderTeilnehmerLandCode, aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter, aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer, aes_AnmelderTeilnehmerAnsprechpartnerStellung, aes_AnmelderTeilnehmerAnsprechpartnerEmail, aes_AnmelderTeilnehmerAnsprechpartnerTelefax, aes_VertreterAnmelderTeilnehmerEORI, aes_VertreterAnmelderTeilnehmerNLNR, aes_VertreterAnmelderTeilnehmerName, aes_VertreterAnmelderTeilnehmerStrasse, aes_VertreterAnmelderTeilnehmerOrt, aes_VertreterAnmelderTeilnehmerPLZ, aes_VertreterAnmelderTeilnehmerLandCode, aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter, aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer, aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung, aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail, aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax, aes_SubunternehmerTeilnehmerEORI, aes_SubunternehmerTeilnehmerNLNR, aes_SubunternehmerTeilnehmerName, aes_SubunternehmerTeilnehmerStrasse, aes_SubunternehmerTeilnehmerOrt, aes_SubunternehmerTeilnehmerPLZ, aes_SubunternehmerTeilnehmerLandCode, aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter, aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer, aes_SubunternehmerTeilnehmerAnsprechpartnerStellung, aes_SubunternehmerTeilnehmerAnsprechpartnerEmail, aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax, aes_VerfahrensinhaberPVTeilnehmerEORI, aes_VerfahrensinhaberPVTeilnehmerNLNR, aes_VerfahrensinhaberPVTeilnehmerName, aes_VerfahrensinhaberPVTeilnehmerStrasse, aes_VerfahrensinhaberPVTeilnehmerOrt, aes_VerfahrensinhaberPVTeilnehmerPLZ, aes_VerfahrensinhaberPVTeilnehmerLandCode, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax, aes_BefoerderungsrouteLand1, aes_BefoerderungsrouteLand2, aes_BefoerderungsrouteLand3, aes_BefoerderungsrouteLand4, aes_BefoerderungsrouteLand5, aes_BefoerderungsrouteLand6, aes_BefoerderungsrouteLand7, aes_BefoerderungsrouteLand8, aes_BefoerderungsrouteLand9, aes_BefoerderungsrouteLand10, aes_BefoerderungsrouteLand11, aes_BefoerderungsrouteLand12, aes_LieferbedingungenCode, aes_LieferbedingungenText, aes_LieferbedingungenOrt} rowtblDakosy_AESRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_AESRow) Return rowtblDakosy_AESRow End Function _ Public Function FindByaes_Id(ByVal aes_Id As Integer) As tblDakosy_AESRow Return CType(Me.Rows.Find(New Object() {aes_Id}),tblDakosy_AESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_AESDataTable = CType(MyBase.Clone,tblDakosy_AESDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_AESDataTable() End Function _ Friend Sub InitVars() Me.columnaes_Id = MyBase.Columns("aes_Id") Me.columnaes_Status = MyBase.Columns("aes_Status") Me.columnaes_Status_KEWILL_Equivalent = MyBase.Columns("aes_Status_KEWILL_Equivalent") Me.columnaes_dyaArt = MyBase.Columns("aes_dyaArt") Me.columnaes_dyaAnmID = MyBase.Columns("aes_dyaAnmID") Me.columnaes_ANR = MyBase.Columns("aes_ANR") Me.columnaes_MRN = MyBase.Columns("aes_MRN") Me.columnaes_Erstellung = MyBase.Columns("aes_Erstellung") Me.columnaes_Erstellung_SB = MyBase.Columns("aes_Erstellung_SB") Me.columnaes_LetzteBearbeitung = MyBase.Columns("aes_LetzteBearbeitung") Me.columnaes_LetzteBearbeitung_SB = MyBase.Columns("aes_LetzteBearbeitung_SB") Me.columnaes_firma = MyBase.Columns("aes_firma") Me.columnaes_niederlassung = MyBase.Columns("aes_niederlassung") Me.columnaes_Trans_Partner = MyBase.Columns("aes_Trans_Partner") Me.columnaes_Trans_Div1 = MyBase.Columns("aes_Trans_Div1") Me.columnaes_Trans_Div2 = MyBase.Columns("aes_Trans_Div2") Me.columnaes_Trans_Div3 = MyBase.Columns("aes_Trans_Div3") Me.columnaes_Trans_Referenz = MyBase.Columns("aes_Trans_Referenz") Me.columnaes_Trans_DatumZeit = MyBase.Columns("aes_Trans_DatumZeit") Me.columnaes_Trans_Version = MyBase.Columns("aes_Trans_Version") Me.columnaes_NachrichtenSenderTIN = MyBase.Columns("aes_NachrichtenSenderTIN") Me.columnaes_NachrichtenSenderNLNR = MyBase.Columns("aes_NachrichtenSenderNLNR") Me.columnaes_NachrichtenempfaengerDST = MyBase.Columns("aes_NachrichtenempfaengerDST") Me.columnaes_ObjectName = MyBase.Columns("aes_ObjectName") Me.columnaes_ObjectAlias = MyBase.Columns("aes_ObjectAlias") Me.columnaes_BezugsnummerVorblendung = MyBase.Columns("aes_BezugsnummerVorblendung") Me.columnaes_Bearbeiter = MyBase.Columns("aes_Bearbeiter") Me.columnaes_AnmeldeArtAusfuhrCode = MyBase.Columns("aes_AnmeldeArtAusfuhrCode") Me.columnaes_AnmeldeArtVerfahrensCode = MyBase.Columns("aes_AnmeldeArtVerfahrensCode") Me.columnaes_AnmeldeArtUeberfuehrungCode = MyBase.Columns("aes_AnmeldeArtUeberfuehrungCode") Me.columnaes_Ausfuhrland = MyBase.Columns("aes_Ausfuhrland") Me.columnaes_BestimmungslandCode = MyBase.Columns("aes_BestimmungslandCode") Me.columnaes_AnmeldedatumZeit = MyBase.Columns("aes_AnmeldedatumZeit") Me.columnaes_DatumAusgang = MyBase.Columns("aes_DatumAusgang") Me.columnaes_MassgeblichesDatum = MyBase.Columns("aes_MassgeblichesDatum") Me.columnaes_BesondereUmstaende = MyBase.Columns("aes_BesondereUmstaende") Me.columnaes_Zahlungsweisebefoerderungskosten = MyBase.Columns("aes_Zahlungsweisebefoerderungskosten") Me.columnaes_ContainerIndikator = MyBase.Columns("aes_ContainerIndikator") Me.columnaes_BeteiligteKonstellation = MyBase.Columns("aes_BeteiligteKonstellation") Me.columnaes_AdressdatenKonstellation = MyBase.Columns("aes_AdressdatenKonstellation") Me.columnaes_GesamtRohmasse = MyBase.Columns("aes_GesamtRohmasse") Me.columnaes_RegistriernummerFremdsystem = MyBase.Columns("aes_RegistriernummerFremdsystem") Me.columnaes_Vermerk = MyBase.Columns("aes_Vermerk") Me.columnaes_KennnummerSendung = MyBase.Columns("aes_KennnummerSendung") Me.columnaes_AnzahlPositionen = MyBase.Columns("aes_AnzahlPositionen") Me.columnaes_BewiligungsnummerAusfuhr = MyBase.Columns("aes_BewiligungsnummerAusfuhr") Me.columnaes_BewiligungsnummerAnschreibeverfahren = MyBase.Columns("aes_BewiligungsnummerAnschreibeverfahren") Me.columnaes_BewiligungsnummerPassiveVeredelung = MyBase.Columns("aes_BewiligungsnummerPassiveVeredelung") Me.columnaes_BewiligungsnummerVertrausenswuerdigerAusfuehrer = MyBase.Columns("aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer") Me.columnaes_VerkehrszweigInland = MyBase.Columns("aes_VerkehrszweigInland") Me.columnaes_BefoerderungsmittelAbgangArtCode = MyBase.Columns("aes_BefoerderungsmittelAbgangArtCode") Me.columnaes_BefoerderungsmittelAbgangKennzeichen = MyBase.Columns("aes_BefoerderungsmittelAbgangKennzeichen") Me.columnaes_BefoerderungsmittelAbgangStaatCode = MyBase.Columns("aes_BefoerderungsmittelAbgangStaatCode") Me.columnaes_VerkehrszweigGrenze = MyBase.Columns("aes_VerkehrszweigGrenze") Me.columnaes_BefoerderungsmittelGrenzeArtCode = MyBase.Columns("aes_BefoerderungsmittelGrenzeArtCode") Me.columnaes_BefoerderungsmittelGrenzeKennzeichen = MyBase.Columns("aes_BefoerderungsmittelGrenzeKennzeichen") Me.columnaes_BefoerderungsmittelGrenzeStaatCode = MyBase.Columns("aes_BefoerderungsmittelGrenzeStaatCode") Me.columnaes_LadeortOrtId = MyBase.Columns("aes_LadeortOrtId") Me.columnaes_LadeortStrasse = MyBase.Columns("aes_LadeortStrasse") Me.columnaes_LadeortPLZ = MyBase.Columns("aes_LadeortPLZ") Me.columnaes_LadeortOrt = MyBase.Columns("aes_LadeortOrt") Me.columnaes_LadeortZusatz = MyBase.Columns("aes_LadeortZusatz") Me.columnaes_AusfuhrZollstelleID = MyBase.Columns("aes_AusfuhrZollstelleID") Me.columnaes_AusgangszollstelleID = MyBase.Columns("aes_AusgangszollstelleID") Me.columnaes_TatsaechlicheAusgangZollstelleID = MyBase.Columns("aes_TatsaechlicheAusgangZollstelleID") Me.columnaes_GeschaeftartCode = MyBase.Columns("aes_GeschaeftartCode") Me.columnaes_Rechnungspreis = MyBase.Columns("aes_Rechnungspreis") Me.columnaes_Rechnungwaehrung = MyBase.Columns("aes_Rechnungwaehrung") Me.columnaes_BesondererTatbestand = MyBase.Columns("aes_BesondererTatbestand") Me.columnaes_VerschlussArtCode = MyBase.Columns("aes_VerschlussArtCode") Me.columnaes_VerschlussAnzahl = MyBase.Columns("aes_VerschlussAnzahl") Me.columnaes_VerschlussZeichen1 = MyBase.Columns("aes_VerschlussZeichen1") Me.columnaes_VerschlussZeichen2 = MyBase.Columns("aes_VerschlussZeichen2") Me.columnaes_VerschlussZeichen3 = MyBase.Columns("aes_VerschlussZeichen3") Me.columnaes_VerschlussZeichen4 = MyBase.Columns("aes_VerschlussZeichen4") Me.columnaes_VerschlussZeichen5 = MyBase.Columns("aes_VerschlussZeichen5") Me.columnaes_VerschlussZeichen6 = MyBase.Columns("aes_VerschlussZeichen6") Me.columnaes_VerschlussZeichen7 = MyBase.Columns("aes_VerschlussZeichen7") Me.columnaes_VerschlussZeichen8 = MyBase.Columns("aes_VerschlussZeichen8") Me.columnaes_VerschlussZeichen9 = MyBase.Columns("aes_VerschlussZeichen9") Me.columnaes_VerschlussZeichen10 = MyBase.Columns("aes_VerschlussZeichen10") Me.columnaes_VerschlussZeichen11 = MyBase.Columns("aes_VerschlussZeichen11") Me.columnaes_VerschlussZeichen12 = MyBase.Columns("aes_VerschlussZeichen12") Me.columnaes_GestellungsfristAnfangDatumZeit = MyBase.Columns("aes_GestellungsfristAnfangDatumZeit") Me.columnaes_GestellungsfristEndeDatumZeit = MyBase.Columns("aes_GestellungsfristEndeDatumZeit") Me.columnaes_AusfuehrerTeilnehmerEORI = MyBase.Columns("aes_AusfuehrerTeilnehmerEORI") Me.columnaes_AusfuehrerTeilnehmerNLNR = MyBase.Columns("aes_AusfuehrerTeilnehmerNLNR") Me.columnaes_AusfuehrerTeilnehmerName = MyBase.Columns("aes_AusfuehrerTeilnehmerName") Me.columnaes_AusfuehrerTeilnehmerStrasse = MyBase.Columns("aes_AusfuehrerTeilnehmerStrasse") Me.columnaes_AusfuehrerTeilnehmerOrt = MyBase.Columns("aes_AusfuehrerTeilnehmerOrt") Me.columnaes_AusfuehrerTeilnehmerPLZ = MyBase.Columns("aes_AusfuehrerTeilnehmerPLZ") Me.columnaes_AusfuehrerTeilnehmerLandCode = MyBase.Columns("aes_AusfuehrerTeilnehmerLandCode") Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter = MyBase.Columns("aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter") Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer = MyBase.Columns("aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer") Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerStellung = MyBase.Columns("aes_AusfuehrerTeilnehmerAnsprechpartnerStellung") Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerEmail = MyBase.Columns("aes_AusfuehrerTeilnehmerAnsprechpartnerEmail") Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefax = MyBase.Columns("aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax") Me.columnaes_EmpfaengerTeilnehmerEORI = MyBase.Columns("aes_EmpfaengerTeilnehmerEORI") Me.columnaes_EmpfaengerTeilnehmerNLNR = MyBase.Columns("aes_EmpfaengerTeilnehmerNLNR") Me.columnaes_EmpfaengerTeilnehmerName = MyBase.Columns("aes_EmpfaengerTeilnehmerName") Me.columnaes_EmpfaengerTeilnehmerStrasse = MyBase.Columns("aes_EmpfaengerTeilnehmerStrasse") Me.columnaes_EmpfaengerTeilnehmerOrt = MyBase.Columns("aes_EmpfaengerTeilnehmerOrt") Me.columnaes_EmpfaengerTeilnehmerPLZ = MyBase.Columns("aes_EmpfaengerTeilnehmerPLZ") Me.columnaes_EmpfaengerTeilnehmerLandCode = MyBase.Columns("aes_EmpfaengerTeilnehmerLandCode") Me.columnaes_AnmelderTeilnehmerEORI = MyBase.Columns("aes_AnmelderTeilnehmerEORI") Me.columnaes_AnmelderTeilnehmerNLNR = MyBase.Columns("aes_AnmelderTeilnehmerNLNR") Me.columnaes_AnmelderTeilnehmerName = MyBase.Columns("aes_AnmelderTeilnehmerName") Me.columnaes_AnmelderTeilnehmerStrasse = MyBase.Columns("aes_AnmelderTeilnehmerStrasse") Me.columnaes_AnmelderTeilnehmerOrt = MyBase.Columns("aes_AnmelderTeilnehmerOrt") Me.columnaes_AnmelderTeilnehmerPLZ = MyBase.Columns("aes_AnmelderTeilnehmerPLZ") Me.columnaes_AnmelderTeilnehmerLandCode = MyBase.Columns("aes_AnmelderTeilnehmerLandCode") Me.columnaes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter = MyBase.Columns("aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter") Me.columnaes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer = MyBase.Columns("aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer") Me.columnaes_AnmelderTeilnehmerAnsprechpartnerStellung = MyBase.Columns("aes_AnmelderTeilnehmerAnsprechpartnerStellung") Me.columnaes_AnmelderTeilnehmerAnsprechpartnerEmail = MyBase.Columns("aes_AnmelderTeilnehmerAnsprechpartnerEmail") Me.columnaes_AnmelderTeilnehmerAnsprechpartnerTelefax = MyBase.Columns("aes_AnmelderTeilnehmerAnsprechpartnerTelefax") Me.columnaes_VertreterAnmelderTeilnehmerEORI = MyBase.Columns("aes_VertreterAnmelderTeilnehmerEORI") Me.columnaes_VertreterAnmelderTeilnehmerNLNR = MyBase.Columns("aes_VertreterAnmelderTeilnehmerNLNR") Me.columnaes_VertreterAnmelderTeilnehmerName = MyBase.Columns("aes_VertreterAnmelderTeilnehmerName") Me.columnaes_VertreterAnmelderTeilnehmerStrasse = MyBase.Columns("aes_VertreterAnmelderTeilnehmerStrasse") Me.columnaes_VertreterAnmelderTeilnehmerOrt = MyBase.Columns("aes_VertreterAnmelderTeilnehmerOrt") Me.columnaes_VertreterAnmelderTeilnehmerPLZ = MyBase.Columns("aes_VertreterAnmelderTeilnehmerPLZ") Me.columnaes_VertreterAnmelderTeilnehmerLandCode = MyBase.Columns("aes_VertreterAnmelderTeilnehmerLandCode") Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter = MyBase.Columns("aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter") Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer = MyBase.Columns("aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer") Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung = MyBase.Columns("aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung") Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail = MyBase.Columns("aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail") Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax = MyBase.Columns("aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax") Me.columnaes_SubunternehmerTeilnehmerEORI = MyBase.Columns("aes_SubunternehmerTeilnehmerEORI") Me.columnaes_SubunternehmerTeilnehmerNLNR = MyBase.Columns("aes_SubunternehmerTeilnehmerNLNR") Me.columnaes_SubunternehmerTeilnehmerName = MyBase.Columns("aes_SubunternehmerTeilnehmerName") Me.columnaes_SubunternehmerTeilnehmerStrasse = MyBase.Columns("aes_SubunternehmerTeilnehmerStrasse") Me.columnaes_SubunternehmerTeilnehmerOrt = MyBase.Columns("aes_SubunternehmerTeilnehmerOrt") Me.columnaes_SubunternehmerTeilnehmerPLZ = MyBase.Columns("aes_SubunternehmerTeilnehmerPLZ") Me.columnaes_SubunternehmerTeilnehmerLandCode = MyBase.Columns("aes_SubunternehmerTeilnehmerLandCode") Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter = MyBase.Columns("aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter") Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer = MyBase.Columns("aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer") Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerStellung = MyBase.Columns("aes_SubunternehmerTeilnehmerAnsprechpartnerStellung") Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerEmail = MyBase.Columns("aes_SubunternehmerTeilnehmerAnsprechpartnerEmail") Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefax = MyBase.Columns("aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax") Me.columnaes_VerfahrensinhaberPVTeilnehmerEORI = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerEORI") Me.columnaes_VerfahrensinhaberPVTeilnehmerNLNR = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerNLNR") Me.columnaes_VerfahrensinhaberPVTeilnehmerName = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerName") Me.columnaes_VerfahrensinhaberPVTeilnehmerStrasse = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerStrasse") Me.columnaes_VerfahrensinhaberPVTeilnehmerOrt = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerOrt") Me.columnaes_VerfahrensinhaberPVTeilnehmerPLZ = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerPLZ") Me.columnaes_VerfahrensinhaberPVTeilnehmerLandCode = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerLandCode") Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter") Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer") Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung") Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail") Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax = MyBase.Columns("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax") Me.columnaes_BefoerderungsrouteLand1 = MyBase.Columns("aes_BefoerderungsrouteLand1") Me.columnaes_BefoerderungsrouteLand2 = MyBase.Columns("aes_BefoerderungsrouteLand2") Me.columnaes_BefoerderungsrouteLand3 = MyBase.Columns("aes_BefoerderungsrouteLand3") Me.columnaes_BefoerderungsrouteLand4 = MyBase.Columns("aes_BefoerderungsrouteLand4") Me.columnaes_BefoerderungsrouteLand5 = MyBase.Columns("aes_BefoerderungsrouteLand5") Me.columnaes_BefoerderungsrouteLand6 = MyBase.Columns("aes_BefoerderungsrouteLand6") Me.columnaes_BefoerderungsrouteLand7 = MyBase.Columns("aes_BefoerderungsrouteLand7") Me.columnaes_BefoerderungsrouteLand8 = MyBase.Columns("aes_BefoerderungsrouteLand8") Me.columnaes_BefoerderungsrouteLand9 = MyBase.Columns("aes_BefoerderungsrouteLand9") Me.columnaes_BefoerderungsrouteLand10 = MyBase.Columns("aes_BefoerderungsrouteLand10") Me.columnaes_BefoerderungsrouteLand11 = MyBase.Columns("aes_BefoerderungsrouteLand11") Me.columnaes_BefoerderungsrouteLand12 = MyBase.Columns("aes_BefoerderungsrouteLand12") Me.columnaes_LieferbedingungenCode = MyBase.Columns("aes_LieferbedingungenCode") Me.columnaes_LieferbedingungenText = MyBase.Columns("aes_LieferbedingungenText") Me.columnaes_LieferbedingungenOrt = MyBase.Columns("aes_LieferbedingungenOrt") End Sub _ Private Sub InitClass() Me.columnaes_Id = New Global.System.Data.DataColumn("aes_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Id) Me.columnaes_Status = New Global.System.Data.DataColumn("aes_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Status) Me.columnaes_Status_KEWILL_Equivalent = New Global.System.Data.DataColumn("aes_Status_KEWILL_Equivalent", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Status_KEWILL_Equivalent) Me.columnaes_dyaArt = New Global.System.Data.DataColumn("aes_dyaArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_dyaArt) Me.columnaes_dyaAnmID = New Global.System.Data.DataColumn("aes_dyaAnmID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_dyaAnmID) Me.columnaes_ANR = New Global.System.Data.DataColumn("aes_ANR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_ANR) Me.columnaes_MRN = New Global.System.Data.DataColumn("aes_MRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_MRN) Me.columnaes_Erstellung = New Global.System.Data.DataColumn("aes_Erstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Erstellung) Me.columnaes_Erstellung_SB = New Global.System.Data.DataColumn("aes_Erstellung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Erstellung_SB) Me.columnaes_LetzteBearbeitung = New Global.System.Data.DataColumn("aes_LetzteBearbeitung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_LetzteBearbeitung) Me.columnaes_LetzteBearbeitung_SB = New Global.System.Data.DataColumn("aes_LetzteBearbeitung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_LetzteBearbeitung_SB) Me.columnaes_firma = New Global.System.Data.DataColumn("aes_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_firma) Me.columnaes_niederlassung = New Global.System.Data.DataColumn("aes_niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_niederlassung) Me.columnaes_Trans_Partner = New Global.System.Data.DataColumn("aes_Trans_Partner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Trans_Partner) Me.columnaes_Trans_Div1 = New Global.System.Data.DataColumn("aes_Trans_Div1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Trans_Div1) Me.columnaes_Trans_Div2 = New Global.System.Data.DataColumn("aes_Trans_Div2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Trans_Div2) Me.columnaes_Trans_Div3 = New Global.System.Data.DataColumn("aes_Trans_Div3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Trans_Div3) Me.columnaes_Trans_Referenz = New Global.System.Data.DataColumn("aes_Trans_Referenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Trans_Referenz) Me.columnaes_Trans_DatumZeit = New Global.System.Data.DataColumn("aes_Trans_DatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Trans_DatumZeit) Me.columnaes_Trans_Version = New Global.System.Data.DataColumn("aes_Trans_Version", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Trans_Version) Me.columnaes_NachrichtenSenderTIN = New Global.System.Data.DataColumn("aes_NachrichtenSenderTIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_NachrichtenSenderTIN) Me.columnaes_NachrichtenSenderNLNR = New Global.System.Data.DataColumn("aes_NachrichtenSenderNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_NachrichtenSenderNLNR) Me.columnaes_NachrichtenempfaengerDST = New Global.System.Data.DataColumn("aes_NachrichtenempfaengerDST", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_NachrichtenempfaengerDST) Me.columnaes_ObjectName = New Global.System.Data.DataColumn("aes_ObjectName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_ObjectName) Me.columnaes_ObjectAlias = New Global.System.Data.DataColumn("aes_ObjectAlias", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_ObjectAlias) Me.columnaes_BezugsnummerVorblendung = New Global.System.Data.DataColumn("aes_BezugsnummerVorblendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BezugsnummerVorblendung) Me.columnaes_Bearbeiter = New Global.System.Data.DataColumn("aes_Bearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Bearbeiter) Me.columnaes_AnmeldeArtAusfuhrCode = New Global.System.Data.DataColumn("aes_AnmeldeArtAusfuhrCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmeldeArtAusfuhrCode) Me.columnaes_AnmeldeArtVerfahrensCode = New Global.System.Data.DataColumn("aes_AnmeldeArtVerfahrensCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmeldeArtVerfahrensCode) Me.columnaes_AnmeldeArtUeberfuehrungCode = New Global.System.Data.DataColumn("aes_AnmeldeArtUeberfuehrungCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmeldeArtUeberfuehrungCode) Me.columnaes_Ausfuhrland = New Global.System.Data.DataColumn("aes_Ausfuhrland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Ausfuhrland) Me.columnaes_BestimmungslandCode = New Global.System.Data.DataColumn("aes_BestimmungslandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BestimmungslandCode) Me.columnaes_AnmeldedatumZeit = New Global.System.Data.DataColumn("aes_AnmeldedatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmeldedatumZeit) Me.columnaes_DatumAusgang = New Global.System.Data.DataColumn("aes_DatumAusgang", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_DatumAusgang) Me.columnaes_MassgeblichesDatum = New Global.System.Data.DataColumn("aes_MassgeblichesDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_MassgeblichesDatum) Me.columnaes_BesondereUmstaende = New Global.System.Data.DataColumn("aes_BesondereUmstaende", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BesondereUmstaende) Me.columnaes_Zahlungsweisebefoerderungskosten = New Global.System.Data.DataColumn("aes_Zahlungsweisebefoerderungskosten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Zahlungsweisebefoerderungskosten) Me.columnaes_ContainerIndikator = New Global.System.Data.DataColumn("aes_ContainerIndikator", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_ContainerIndikator) Me.columnaes_BeteiligteKonstellation = New Global.System.Data.DataColumn("aes_BeteiligteKonstellation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BeteiligteKonstellation) Me.columnaes_AdressdatenKonstellation = New Global.System.Data.DataColumn("aes_AdressdatenKonstellation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AdressdatenKonstellation) Me.columnaes_GesamtRohmasse = New Global.System.Data.DataColumn("aes_GesamtRohmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_GesamtRohmasse) Me.columnaes_RegistriernummerFremdsystem = New Global.System.Data.DataColumn("aes_RegistriernummerFremdsystem", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_RegistriernummerFremdsystem) Me.columnaes_Vermerk = New Global.System.Data.DataColumn("aes_Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Vermerk) Me.columnaes_KennnummerSendung = New Global.System.Data.DataColumn("aes_KennnummerSendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_KennnummerSendung) Me.columnaes_AnzahlPositionen = New Global.System.Data.DataColumn("aes_AnzahlPositionen", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnzahlPositionen) Me.columnaes_BewiligungsnummerAusfuhr = New Global.System.Data.DataColumn("aes_BewiligungsnummerAusfuhr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BewiligungsnummerAusfuhr) Me.columnaes_BewiligungsnummerAnschreibeverfahren = New Global.System.Data.DataColumn("aes_BewiligungsnummerAnschreibeverfahren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BewiligungsnummerAnschreibeverfahren) Me.columnaes_BewiligungsnummerPassiveVeredelung = New Global.System.Data.DataColumn("aes_BewiligungsnummerPassiveVeredelung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BewiligungsnummerPassiveVeredelung) Me.columnaes_BewiligungsnummerVertrausenswuerdigerAusfuehrer = New Global.System.Data.DataColumn("aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BewiligungsnummerVertrausenswuerdigerAusfuehrer) Me.columnaes_VerkehrszweigInland = New Global.System.Data.DataColumn("aes_VerkehrszweigInland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerkehrszweigInland) Me.columnaes_BefoerderungsmittelAbgangArtCode = New Global.System.Data.DataColumn("aes_BefoerderungsmittelAbgangArtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsmittelAbgangArtCode) Me.columnaes_BefoerderungsmittelAbgangKennzeichen = New Global.System.Data.DataColumn("aes_BefoerderungsmittelAbgangKennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsmittelAbgangKennzeichen) Me.columnaes_BefoerderungsmittelAbgangStaatCode = New Global.System.Data.DataColumn("aes_BefoerderungsmittelAbgangStaatCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsmittelAbgangStaatCode) Me.columnaes_VerkehrszweigGrenze = New Global.System.Data.DataColumn("aes_VerkehrszweigGrenze", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerkehrszweigGrenze) Me.columnaes_BefoerderungsmittelGrenzeArtCode = New Global.System.Data.DataColumn("aes_BefoerderungsmittelGrenzeArtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsmittelGrenzeArtCode) Me.columnaes_BefoerderungsmittelGrenzeKennzeichen = New Global.System.Data.DataColumn("aes_BefoerderungsmittelGrenzeKennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsmittelGrenzeKennzeichen) Me.columnaes_BefoerderungsmittelGrenzeStaatCode = New Global.System.Data.DataColumn("aes_BefoerderungsmittelGrenzeStaatCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsmittelGrenzeStaatCode) Me.columnaes_LadeortOrtId = New Global.System.Data.DataColumn("aes_LadeortOrtId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_LadeortOrtId) Me.columnaes_LadeortStrasse = New Global.System.Data.DataColumn("aes_LadeortStrasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_LadeortStrasse) Me.columnaes_LadeortPLZ = New Global.System.Data.DataColumn("aes_LadeortPLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_LadeortPLZ) Me.columnaes_LadeortOrt = New Global.System.Data.DataColumn("aes_LadeortOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_LadeortOrt) Me.columnaes_LadeortZusatz = New Global.System.Data.DataColumn("aes_LadeortZusatz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_LadeortZusatz) Me.columnaes_AusfuhrZollstelleID = New Global.System.Data.DataColumn("aes_AusfuhrZollstelleID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuhrZollstelleID) Me.columnaes_AusgangszollstelleID = New Global.System.Data.DataColumn("aes_AusgangszollstelleID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusgangszollstelleID) Me.columnaes_TatsaechlicheAusgangZollstelleID = New Global.System.Data.DataColumn("aes_TatsaechlicheAusgangZollstelleID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_TatsaechlicheAusgangZollstelleID) Me.columnaes_GeschaeftartCode = New Global.System.Data.DataColumn("aes_GeschaeftartCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_GeschaeftartCode) Me.columnaes_Rechnungspreis = New Global.System.Data.DataColumn("aes_Rechnungspreis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Rechnungspreis) Me.columnaes_Rechnungwaehrung = New Global.System.Data.DataColumn("aes_Rechnungwaehrung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_Rechnungwaehrung) Me.columnaes_BesondererTatbestand = New Global.System.Data.DataColumn("aes_BesondererTatbestand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BesondererTatbestand) Me.columnaes_VerschlussArtCode = New Global.System.Data.DataColumn("aes_VerschlussArtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussArtCode) Me.columnaes_VerschlussAnzahl = New Global.System.Data.DataColumn("aes_VerschlussAnzahl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussAnzahl) Me.columnaes_VerschlussZeichen1 = New Global.System.Data.DataColumn("aes_VerschlussZeichen1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen1) Me.columnaes_VerschlussZeichen2 = New Global.System.Data.DataColumn("aes_VerschlussZeichen2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen2) Me.columnaes_VerschlussZeichen3 = New Global.System.Data.DataColumn("aes_VerschlussZeichen3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen3) Me.columnaes_VerschlussZeichen4 = New Global.System.Data.DataColumn("aes_VerschlussZeichen4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen4) Me.columnaes_VerschlussZeichen5 = New Global.System.Data.DataColumn("aes_VerschlussZeichen5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen5) Me.columnaes_VerschlussZeichen6 = New Global.System.Data.DataColumn("aes_VerschlussZeichen6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen6) Me.columnaes_VerschlussZeichen7 = New Global.System.Data.DataColumn("aes_VerschlussZeichen7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen7) Me.columnaes_VerschlussZeichen8 = New Global.System.Data.DataColumn("aes_VerschlussZeichen8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen8) Me.columnaes_VerschlussZeichen9 = New Global.System.Data.DataColumn("aes_VerschlussZeichen9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen9) Me.columnaes_VerschlussZeichen10 = New Global.System.Data.DataColumn("aes_VerschlussZeichen10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen10) Me.columnaes_VerschlussZeichen11 = New Global.System.Data.DataColumn("aes_VerschlussZeichen11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen11) Me.columnaes_VerschlussZeichen12 = New Global.System.Data.DataColumn("aes_VerschlussZeichen12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerschlussZeichen12) Me.columnaes_GestellungsfristAnfangDatumZeit = New Global.System.Data.DataColumn("aes_GestellungsfristAnfangDatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_GestellungsfristAnfangDatumZeit) Me.columnaes_GestellungsfristEndeDatumZeit = New Global.System.Data.DataColumn("aes_GestellungsfristEndeDatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_GestellungsfristEndeDatumZeit) Me.columnaes_AusfuehrerTeilnehmerEORI = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerEORI) Me.columnaes_AusfuehrerTeilnehmerNLNR = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerNLNR) Me.columnaes_AusfuehrerTeilnehmerName = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerName) Me.columnaes_AusfuehrerTeilnehmerStrasse = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerStrasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerStrasse) Me.columnaes_AusfuehrerTeilnehmerOrt = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerOrt) Me.columnaes_AusfuehrerTeilnehmerPLZ = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerPLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerPLZ) Me.columnaes_AusfuehrerTeilnehmerLandCode = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerLandCode) Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter) Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer) Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerStellung = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerStellung) Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerEmail = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerEmail) Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefax = New Global.System.Data.DataColumn("aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefax) Me.columnaes_EmpfaengerTeilnehmerEORI = New Global.System.Data.DataColumn("aes_EmpfaengerTeilnehmerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_EmpfaengerTeilnehmerEORI) Me.columnaes_EmpfaengerTeilnehmerNLNR = New Global.System.Data.DataColumn("aes_EmpfaengerTeilnehmerNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_EmpfaengerTeilnehmerNLNR) Me.columnaes_EmpfaengerTeilnehmerName = New Global.System.Data.DataColumn("aes_EmpfaengerTeilnehmerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_EmpfaengerTeilnehmerName) Me.columnaes_EmpfaengerTeilnehmerStrasse = New Global.System.Data.DataColumn("aes_EmpfaengerTeilnehmerStrasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_EmpfaengerTeilnehmerStrasse) Me.columnaes_EmpfaengerTeilnehmerOrt = New Global.System.Data.DataColumn("aes_EmpfaengerTeilnehmerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_EmpfaengerTeilnehmerOrt) Me.columnaes_EmpfaengerTeilnehmerPLZ = New Global.System.Data.DataColumn("aes_EmpfaengerTeilnehmerPLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_EmpfaengerTeilnehmerPLZ) Me.columnaes_EmpfaengerTeilnehmerLandCode = New Global.System.Data.DataColumn("aes_EmpfaengerTeilnehmerLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_EmpfaengerTeilnehmerLandCode) Me.columnaes_AnmelderTeilnehmerEORI = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerEORI) Me.columnaes_AnmelderTeilnehmerNLNR = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerNLNR) Me.columnaes_AnmelderTeilnehmerName = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerName) Me.columnaes_AnmelderTeilnehmerStrasse = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerStrasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerStrasse) Me.columnaes_AnmelderTeilnehmerOrt = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerOrt) Me.columnaes_AnmelderTeilnehmerPLZ = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerPLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerPLZ) Me.columnaes_AnmelderTeilnehmerLandCode = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerLandCode) Me.columnaes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter) Me.columnaes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer) Me.columnaes_AnmelderTeilnehmerAnsprechpartnerStellung = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerAnsprechpartnerStellung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerAnsprechpartnerStellung) Me.columnaes_AnmelderTeilnehmerAnsprechpartnerEmail = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerAnsprechpartnerEmail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerAnsprechpartnerEmail) Me.columnaes_AnmelderTeilnehmerAnsprechpartnerTelefax = New Global.System.Data.DataColumn("aes_AnmelderTeilnehmerAnsprechpartnerTelefax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_AnmelderTeilnehmerAnsprechpartnerTelefax) Me.columnaes_VertreterAnmelderTeilnehmerEORI = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerEORI) Me.columnaes_VertreterAnmelderTeilnehmerNLNR = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerNLNR) Me.columnaes_VertreterAnmelderTeilnehmerName = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerName) Me.columnaes_VertreterAnmelderTeilnehmerStrasse = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerStrasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerStrasse) Me.columnaes_VertreterAnmelderTeilnehmerOrt = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerOrt) Me.columnaes_VertreterAnmelderTeilnehmerPLZ = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerPLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerPLZ) Me.columnaes_VertreterAnmelderTeilnehmerLandCode = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerLandCode) Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter) Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer) Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung) Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail) Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax = New Global.System.Data.DataColumn("aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax) Me.columnaes_SubunternehmerTeilnehmerEORI = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerEORI) Me.columnaes_SubunternehmerTeilnehmerNLNR = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerNLNR) Me.columnaes_SubunternehmerTeilnehmerName = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerName) Me.columnaes_SubunternehmerTeilnehmerStrasse = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerStrasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerStrasse) Me.columnaes_SubunternehmerTeilnehmerOrt = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerOrt) Me.columnaes_SubunternehmerTeilnehmerPLZ = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerPLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerPLZ) Me.columnaes_SubunternehmerTeilnehmerLandCode = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerLandCode) Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter) Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer) Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerStellung = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerStellung) Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerEmail = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerEmail) Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefax = New Global.System.Data.DataColumn("aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefax) Me.columnaes_VerfahrensinhaberPVTeilnehmerEORI = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerEORI) Me.columnaes_VerfahrensinhaberPVTeilnehmerNLNR = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerNLNR) Me.columnaes_VerfahrensinhaberPVTeilnehmerName = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerName) Me.columnaes_VerfahrensinhaberPVTeilnehmerStrasse = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerStrasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerStrasse) Me.columnaes_VerfahrensinhaberPVTeilnehmerOrt = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerOrt) Me.columnaes_VerfahrensinhaberPVTeilnehmerPLZ = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerPLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerPLZ) Me.columnaes_VerfahrensinhaberPVTeilnehmerLandCode = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerLandCode) Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter) Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer) Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung) Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail) Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax = New Global.System.Data.DataColumn("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax) Me.columnaes_BefoerderungsrouteLand1 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand1) Me.columnaes_BefoerderungsrouteLand2 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand2) Me.columnaes_BefoerderungsrouteLand3 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand3) Me.columnaes_BefoerderungsrouteLand4 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand4) Me.columnaes_BefoerderungsrouteLand5 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand5) Me.columnaes_BefoerderungsrouteLand6 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand6) Me.columnaes_BefoerderungsrouteLand7 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand7) Me.columnaes_BefoerderungsrouteLand8 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand8) Me.columnaes_BefoerderungsrouteLand9 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand9) Me.columnaes_BefoerderungsrouteLand10 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand10) Me.columnaes_BefoerderungsrouteLand11 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand11) Me.columnaes_BefoerderungsrouteLand12 = New Global.System.Data.DataColumn("aes_BefoerderungsrouteLand12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_BefoerderungsrouteLand12) Me.columnaes_LieferbedingungenCode = New Global.System.Data.DataColumn("aes_LieferbedingungenCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_LieferbedingungenCode) Me.columnaes_LieferbedingungenText = New Global.System.Data.DataColumn("aes_LieferbedingungenText", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_LieferbedingungenText) Me.columnaes_LieferbedingungenOrt = New Global.System.Data.DataColumn("aes_LieferbedingungenOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaes_LieferbedingungenOrt) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnaes_Id}, true)) Me.columnaes_Id.AutoIncrement = true Me.columnaes_Id.AutoIncrementSeed = -1 Me.columnaes_Id.AutoIncrementStep = -1 Me.columnaes_Id.AllowDBNull = false Me.columnaes_Id.ReadOnly = true Me.columnaes_Id.Unique = true Me.columnaes_Status.AllowDBNull = false Me.columnaes_Status_KEWILL_Equivalent.AllowDBNull = false Me.columnaes_dyaArt.AllowDBNull = false Me.columnaes_dyaArt.MaxLength = 50 Me.columnaes_dyaAnmID.AllowDBNull = false Me.columnaes_ANR.MaxLength = 18 Me.columnaes_MRN.MaxLength = 18 Me.columnaes_Erstellung.AllowDBNull = false Me.columnaes_LetzteBearbeitung.AllowDBNull = false Me.columnaes_firma.MaxLength = 10 Me.columnaes_niederlassung.MaxLength = 10 Me.columnaes_Trans_Partner.MaxLength = 10 Me.columnaes_Trans_Div1.MaxLength = 10 Me.columnaes_Trans_Div2.MaxLength = 10 Me.columnaes_Trans_Div3.MaxLength = 10 Me.columnaes_Trans_Referenz.MaxLength = 35 Me.columnaes_NachrichtenSenderTIN.MaxLength = 17 Me.columnaes_NachrichtenSenderNLNR.MaxLength = 4 Me.columnaes_NachrichtenempfaengerDST.MaxLength = 8 Me.columnaes_ObjectName.MaxLength = 22 Me.columnaes_ObjectAlias.MaxLength = 15 Me.columnaes_BezugsnummerVorblendung.MaxLength = 35 Me.columnaes_Bearbeiter.MaxLength = 20 Me.columnaes_AnmeldeArtAusfuhrCode.MaxLength = 2 Me.columnaes_AnmeldeArtVerfahrensCode.MaxLength = 2 Me.columnaes_AnmeldeArtUeberfuehrungCode.MaxLength = 1 Me.columnaes_Ausfuhrland.MaxLength = 2 Me.columnaes_BestimmungslandCode.MaxLength = 2 Me.columnaes_BesondereUmstaende.MaxLength = 1 Me.columnaes_Zahlungsweisebefoerderungskosten.MaxLength = 1 Me.columnaes_ContainerIndikator.MaxLength = 1 Me.columnaes_BeteiligteKonstellation.MaxLength = 4 Me.columnaes_AdressdatenKonstellation.MaxLength = 1 Me.columnaes_RegistriernummerFremdsystem.MaxLength = 70 Me.columnaes_Vermerk.MaxLength = 350 Me.columnaes_KennnummerSendung.MaxLength = 70 Me.columnaes_BewiligungsnummerAusfuhr.MaxLength = 35 Me.columnaes_BewiligungsnummerAnschreibeverfahren.MaxLength = 35 Me.columnaes_BewiligungsnummerPassiveVeredelung.MaxLength = 35 Me.columnaes_BewiligungsnummerVertrausenswuerdigerAusfuehrer.MaxLength = 35 Me.columnaes_VerkehrszweigInland.MaxLength = 2 Me.columnaes_BefoerderungsmittelAbgangArtCode.MaxLength = 2 Me.columnaes_BefoerderungsmittelAbgangKennzeichen.MaxLength = 27 Me.columnaes_BefoerderungsmittelAbgangStaatCode.MaxLength = 2 Me.columnaes_VerkehrszweigGrenze.MaxLength = 2 Me.columnaes_BefoerderungsmittelGrenzeArtCode.MaxLength = 2 Me.columnaes_BefoerderungsmittelGrenzeKennzeichen.MaxLength = 27 Me.columnaes_BefoerderungsmittelGrenzeStaatCode.MaxLength = 2 Me.columnaes_LadeortOrtId.MaxLength = 4 Me.columnaes_LadeortStrasse.MaxLength = 35 Me.columnaes_LadeortPLZ.MaxLength = 5 Me.columnaes_LadeortOrt.MaxLength = 35 Me.columnaes_LadeortZusatz.MaxLength = 35 Me.columnaes_AusfuhrZollstelleID.MaxLength = 8 Me.columnaes_AusgangszollstelleID.MaxLength = 8 Me.columnaes_TatsaechlicheAusgangZollstelleID.MaxLength = 8 Me.columnaes_GeschaeftartCode.MaxLength = 2 Me.columnaes_Rechnungwaehrung.MaxLength = 3 Me.columnaes_BesondererTatbestand.MaxLength = 1 Me.columnaes_VerschlussArtCode.MaxLength = 1 Me.columnaes_VerschlussAnzahl.MaxLength = 4 Me.columnaes_VerschlussZeichen1.MaxLength = 20 Me.columnaes_VerschlussZeichen2.MaxLength = 20 Me.columnaes_VerschlussZeichen3.MaxLength = 20 Me.columnaes_VerschlussZeichen4.MaxLength = 20 Me.columnaes_VerschlussZeichen5.MaxLength = 20 Me.columnaes_VerschlussZeichen6.MaxLength = 20 Me.columnaes_VerschlussZeichen7.MaxLength = 20 Me.columnaes_VerschlussZeichen8.MaxLength = 20 Me.columnaes_VerschlussZeichen9.MaxLength = 20 Me.columnaes_VerschlussZeichen10.MaxLength = 20 Me.columnaes_VerschlussZeichen11.MaxLength = 20 Me.columnaes_VerschlussZeichen12.MaxLength = 20 Me.columnaes_AusfuehrerTeilnehmerEORI.MaxLength = 17 Me.columnaes_AusfuehrerTeilnehmerNLNR.MaxLength = 4 Me.columnaes_AusfuehrerTeilnehmerName.MaxLength = 120 Me.columnaes_AusfuehrerTeilnehmerStrasse.MaxLength = 70 Me.columnaes_AusfuehrerTeilnehmerOrt.MaxLength = 35 Me.columnaes_AusfuehrerTeilnehmerPLZ.MaxLength = 9 Me.columnaes_AusfuehrerTeilnehmerLandCode.MaxLength = 2 Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter.MaxLength = 35 Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer.MaxLength = 35 Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerStellung.MaxLength = 35 Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerEmail.MaxLength = 256 Me.columnaes_AusfuehrerTeilnehmerAnsprechpartnerTelefax.MaxLength = 35 Me.columnaes_EmpfaengerTeilnehmerEORI.MaxLength = 17 Me.columnaes_EmpfaengerTeilnehmerNLNR.MaxLength = 4 Me.columnaes_EmpfaengerTeilnehmerName.MaxLength = 120 Me.columnaes_EmpfaengerTeilnehmerStrasse.MaxLength = 70 Me.columnaes_EmpfaengerTeilnehmerOrt.MaxLength = 35 Me.columnaes_EmpfaengerTeilnehmerPLZ.MaxLength = 9 Me.columnaes_EmpfaengerTeilnehmerLandCode.MaxLength = 2 Me.columnaes_AnmelderTeilnehmerEORI.MaxLength = 17 Me.columnaes_AnmelderTeilnehmerNLNR.MaxLength = 4 Me.columnaes_AnmelderTeilnehmerName.MaxLength = 120 Me.columnaes_AnmelderTeilnehmerStrasse.MaxLength = 70 Me.columnaes_AnmelderTeilnehmerOrt.MaxLength = 35 Me.columnaes_AnmelderTeilnehmerPLZ.MaxLength = 9 Me.columnaes_AnmelderTeilnehmerLandCode.MaxLength = 2 Me.columnaes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter.MaxLength = 35 Me.columnaes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer.MaxLength = 35 Me.columnaes_AnmelderTeilnehmerAnsprechpartnerStellung.MaxLength = 35 Me.columnaes_AnmelderTeilnehmerAnsprechpartnerEmail.MaxLength = 256 Me.columnaes_AnmelderTeilnehmerAnsprechpartnerTelefax.MaxLength = 35 Me.columnaes_VertreterAnmelderTeilnehmerEORI.MaxLength = 17 Me.columnaes_VertreterAnmelderTeilnehmerNLNR.MaxLength = 4 Me.columnaes_VertreterAnmelderTeilnehmerName.MaxLength = 120 Me.columnaes_VertreterAnmelderTeilnehmerStrasse.MaxLength = 70 Me.columnaes_VertreterAnmelderTeilnehmerOrt.MaxLength = 35 Me.columnaes_VertreterAnmelderTeilnehmerPLZ.MaxLength = 9 Me.columnaes_VertreterAnmelderTeilnehmerLandCode.MaxLength = 2 Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter.MaxLength = 35 Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer.MaxLength = 35 Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung.MaxLength = 35 Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail.MaxLength = 256 Me.columnaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax.MaxLength = 35 Me.columnaes_SubunternehmerTeilnehmerEORI.MaxLength = 17 Me.columnaes_SubunternehmerTeilnehmerNLNR.MaxLength = 4 Me.columnaes_SubunternehmerTeilnehmerName.MaxLength = 120 Me.columnaes_SubunternehmerTeilnehmerStrasse.MaxLength = 70 Me.columnaes_SubunternehmerTeilnehmerOrt.MaxLength = 35 Me.columnaes_SubunternehmerTeilnehmerPLZ.MaxLength = 9 Me.columnaes_SubunternehmerTeilnehmerLandCode.MaxLength = 2 Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter.MaxLength = 35 Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer.MaxLength = 35 Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerStellung.MaxLength = 35 Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerEmail.MaxLength = 256 Me.columnaes_SubunternehmerTeilnehmerAnsprechpartnerTelefax.MaxLength = 35 Me.columnaes_VerfahrensinhaberPVTeilnehmerEORI.MaxLength = 17 Me.columnaes_VerfahrensinhaberPVTeilnehmerNLNR.MaxLength = 4 Me.columnaes_VerfahrensinhaberPVTeilnehmerName.MaxLength = 120 Me.columnaes_VerfahrensinhaberPVTeilnehmerStrasse.MaxLength = 70 Me.columnaes_VerfahrensinhaberPVTeilnehmerOrt.MaxLength = 35 Me.columnaes_VerfahrensinhaberPVTeilnehmerPLZ.MaxLength = 9 Me.columnaes_VerfahrensinhaberPVTeilnehmerLandCode.MaxLength = 2 Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter.MaxLength = 35 Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer.MaxLength = 35 Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung.MaxLength = 35 Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail.MaxLength = 256 Me.columnaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax.MaxLength = 35 Me.columnaes_BefoerderungsrouteLand1.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand2.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand3.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand4.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand5.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand6.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand7.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand8.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand9.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand10.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand11.MaxLength = 2 Me.columnaes_BefoerderungsrouteLand12.MaxLength = 2 Me.columnaes_LieferbedingungenCode.MaxLength = 3 Me.columnaes_LieferbedingungenText.MaxLength = 140 Me.columnaes_LieferbedingungenOrt.MaxLength = 35 End Sub _ Public Function NewtblDakosy_AESRow() As tblDakosy_AESRow Return CType(Me.NewRow,tblDakosy_AESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_AESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_AESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_AESRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_AESRowChanged(Me, New tblDakosy_AESRowChangeEvent(CType(e.Row,tblDakosy_AESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_AESRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_AESRowChanging(Me, New tblDakosy_AESRowChangeEvent(CType(e.Row,tblDakosy_AESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_AESRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_AESRowDeleted(Me, New tblDakosy_AESRowChangeEvent(CType(e.Row,tblDakosy_AESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_AESRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_AESRowDeleting(Me, New tblDakosy_AESRowChangeEvent(CType(e.Row,tblDakosy_AESRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_AESRow(ByVal row As tblDakosy_AESRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_AESDataTable" 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 tblDakosy_AES_WarenpositionDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_AES_WarenpositionRow) Private columnaesWP_Id As Global.System.Data.DataColumn Private columnaesWP_AESId As Global.System.Data.DataColumn Private columnaesWP_PositionsNummer As Global.System.Data.DataColumn Private columnaesWP_WarennummerKN8 As Global.System.Data.DataColumn Private columnaesWP_WarennummerTARIC As Global.System.Data.DataColumn Private columnaesWP_WarennummerZusatz1 As Global.System.Data.DataColumn Private columnaesWP_WarennummerZusatz2 As Global.System.Data.DataColumn Private columnaesWP_WarennummerNational As Global.System.Data.DataColumn Private columnaesWP_Warenbezeichnung As Global.System.Data.DataColumn Private columnaesWP_RegisternummerFremdsystem As Global.System.Data.DataColumn Private columnaesWP_Vermerk As Global.System.Data.DataColumn Private columnaesWP_KennungSendung As Global.System.Data.DataColumn Private columnaesWP_UrsprungsbundeslandCode As Global.System.Data.DataColumn Private columnaesWP_Eigenmasse As Global.System.Data.DataColumn Private columnaesWP_Rohmasse As Global.System.Data.DataColumn Private columnaesWP_Gefahrgutnummer As Global.System.Data.DataColumn Private columnaesWP_ZahlungsweiseBefoerderungskosten As Global.System.Data.DataColumn Private columnaesWP_VerfahrenAngemeldetCode As Global.System.Data.DataColumn Private columnaesWP_VerfahrenVorangegangenCode As Global.System.Data.DataColumn Private columnaesWP_VerfahrenNationalCode As Global.System.Data.DataColumn Private columnaesWP_AusfuhrerstattungVerfahrensCode As Global.System.Data.DataColumn Private columnaesWP_Menge As Global.System.Data.DataColumn Private columnaesWP_Wert As Global.System.Data.DataColumn Private columnaesWP_VorpapierTypCode1 As Global.System.Data.DataColumn Private columnaesWP_ReferenzID1 As Global.System.Data.DataColumn Private columnaesWP_Zusatz1 As Global.System.Data.DataColumn Private columnaesWP_VorpapierTypCode2 As Global.System.Data.DataColumn Private columnaesWP_ReferenzID2 As Global.System.Data.DataColumn Private columnaesWP_Zusatz2 As Global.System.Data.DataColumn Private columnaesWP_VorpapierTypCode3 As Global.System.Data.DataColumn Private columnaesWP_ReferenzID3 As Global.System.Data.DataColumn Private columnaesWP_Zusatz3 As Global.System.Data.DataColumn Private columnaesWP_VorpapierTypCode4 As Global.System.Data.DataColumn Private columnaesWP_ReferenzID4 As Global.System.Data.DataColumn Private columnaesWP_Zusatz4 As Global.System.Data.DataColumn Private columnaesWP_VorpapierTypCode5 As Global.System.Data.DataColumn Private columnaesWP_ReferenzID5 As Global.System.Data.DataColumn Private columnaesWP_Zusatz5 As Global.System.Data.DataColumn Private columnaesWP_VorpapierTypCode6 As Global.System.Data.DataColumn Private columnaesWP_ReferenzID6 As Global.System.Data.DataColumn Private columnaesWP_Zusatz6 As Global.System.Data.DataColumn Private columnaesWP_VorpapierTypCode7 As Global.System.Data.DataColumn Private columnaesWP_ReferenzID7 As Global.System.Data.DataColumn Private columnaesWP_Zusatz7 As Global.System.Data.DataColumn Private columnaesWP_VorpapierTypCode8 As Global.System.Data.DataColumn Private columnaesWP_ReferenzID8 As Global.System.Data.DataColumn Private columnaesWP_Zusatz8 As Global.System.Data.DataColumn Private columnaesWP_VorpapierTypCode9 As Global.System.Data.DataColumn Private columnaesWP_ReferenzID9 As Global.System.Data.DataColumn Private columnaesWP_Zusatz9 As Global.System.Data.DataColumn Private columnaesWP_Containernummer1 As Global.System.Data.DataColumn Private columnaesWP_Containernummer2 As Global.System.Data.DataColumn Private columnaesWP_Containernummer3 As Global.System.Data.DataColumn Private columnaesWP_Containernummer4 As Global.System.Data.DataColumn Private columnaesWP_EmpfaengerTeilnehmerEORI As Global.System.Data.DataColumn Private columnaesWP_EmpfaengerTeilnehmerNLNR As Global.System.Data.DataColumn Private columnaesWP_EmpfaengerTeilnehmerName As Global.System.Data.DataColumn Private columnaesWP_EmpfaengerTeilnehmerStrasse As Global.System.Data.DataColumn Private columnaesWP_EmpfaengerTeilnehmerOrt As Global.System.Data.DataColumn Private columnaesWP_EmpfaengerTeilnehmerPLZ As Global.System.Data.DataColumn Private columnaesWP_EmpfaengerTeilnehmerLandCode As Global.System.Data.DataColumn Private columnaesWP_EndverwenderTeilnehmerEORI As Global.System.Data.DataColumn Private columnaesWP_EndverwenderTeilnehmerNLNR As Global.System.Data.DataColumn Private columnaesWP_EndverwenderTeilnehmerName As Global.System.Data.DataColumn Private columnaesWP_EndverwenderTeilnehmerStrasse As Global.System.Data.DataColumn Private columnaesWP_EndverwenderTeilnehmerOrt As Global.System.Data.DataColumn Private columnaesWP_EndverwenderTeilnehmerPLZ As Global.System.Data.DataColumn Private columnaesWP_EndverwenderTeilnehmerLandCode As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_AES_Warenposition" 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 aesWP_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Id End Get End Property _ Public ReadOnly Property aesWP_AESIdColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_AESId End Get End Property _ Public ReadOnly Property aesWP_PositionsNummerColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_PositionsNummer End Get End Property _ Public ReadOnly Property aesWP_WarennummerKN8Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_WarennummerKN8 End Get End Property _ Public ReadOnly Property aesWP_WarennummerTARICColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_WarennummerTARIC End Get End Property _ Public ReadOnly Property aesWP_WarennummerZusatz1Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_WarennummerZusatz1 End Get End Property _ Public ReadOnly Property aesWP_WarennummerZusatz2Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_WarennummerZusatz2 End Get End Property _ Public ReadOnly Property aesWP_WarennummerNationalColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_WarennummerNational End Get End Property _ Public ReadOnly Property aesWP_WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Warenbezeichnung End Get End Property _ Public ReadOnly Property aesWP_RegisternummerFremdsystemColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_RegisternummerFremdsystem End Get End Property _ Public ReadOnly Property aesWP_VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Vermerk End Get End Property _ Public ReadOnly Property aesWP_KennungSendungColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_KennungSendung End Get End Property _ Public ReadOnly Property aesWP_UrsprungsbundeslandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_UrsprungsbundeslandCode End Get End Property _ Public ReadOnly Property aesWP_EigenmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Eigenmasse End Get End Property _ Public ReadOnly Property aesWP_RohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Rohmasse End Get End Property _ Public ReadOnly Property aesWP_GefahrgutnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Gefahrgutnummer End Get End Property _ Public ReadOnly Property aesWP_ZahlungsweiseBefoerderungskostenColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_ZahlungsweiseBefoerderungskosten End Get End Property _ Public ReadOnly Property aesWP_VerfahrenAngemeldetCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VerfahrenAngemeldetCode End Get End Property _ Public ReadOnly Property aesWP_VerfahrenVorangegangenCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VerfahrenVorangegangenCode End Get End Property _ Public ReadOnly Property aesWP_VerfahrenNationalCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VerfahrenNationalCode End Get End Property _ Public ReadOnly Property aesWP_AusfuhrerstattungVerfahrensCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_AusfuhrerstattungVerfahrensCode End Get End Property _ Public ReadOnly Property aesWP_MengeColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Menge End Get End Property _ Public ReadOnly Property aesWP_WertColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Wert End Get End Property _ Public ReadOnly Property aesWP_VorpapierTypCode1Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VorpapierTypCode1 End Get End Property _ Public ReadOnly Property aesWP_ReferenzID1Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_ReferenzID1 End Get End Property _ Public ReadOnly Property aesWP_Zusatz1Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Zusatz1 End Get End Property _ Public ReadOnly Property aesWP_VorpapierTypCode2Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VorpapierTypCode2 End Get End Property _ Public ReadOnly Property aesWP_ReferenzID2Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_ReferenzID2 End Get End Property _ Public ReadOnly Property aesWP_Zusatz2Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Zusatz2 End Get End Property _ Public ReadOnly Property aesWP_VorpapierTypCode3Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VorpapierTypCode3 End Get End Property _ Public ReadOnly Property aesWP_ReferenzID3Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_ReferenzID3 End Get End Property _ Public ReadOnly Property aesWP_Zusatz3Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Zusatz3 End Get End Property _ Public ReadOnly Property aesWP_VorpapierTypCode4Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VorpapierTypCode4 End Get End Property _ Public ReadOnly Property aesWP_ReferenzID4Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_ReferenzID4 End Get End Property _ Public ReadOnly Property aesWP_Zusatz4Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Zusatz4 End Get End Property _ Public ReadOnly Property aesWP_VorpapierTypCode5Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VorpapierTypCode5 End Get End Property _ Public ReadOnly Property aesWP_ReferenzID5Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_ReferenzID5 End Get End Property _ Public ReadOnly Property aesWP_Zusatz5Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Zusatz5 End Get End Property _ Public ReadOnly Property aesWP_VorpapierTypCode6Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VorpapierTypCode6 End Get End Property _ Public ReadOnly Property aesWP_ReferenzID6Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_ReferenzID6 End Get End Property _ Public ReadOnly Property aesWP_Zusatz6Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Zusatz6 End Get End Property _ Public ReadOnly Property aesWP_VorpapierTypCode7Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VorpapierTypCode7 End Get End Property _ Public ReadOnly Property aesWP_ReferenzID7Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_ReferenzID7 End Get End Property _ Public ReadOnly Property aesWP_Zusatz7Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Zusatz7 End Get End Property _ Public ReadOnly Property aesWP_VorpapierTypCode8Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VorpapierTypCode8 End Get End Property _ Public ReadOnly Property aesWP_ReferenzID8Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_ReferenzID8 End Get End Property _ Public ReadOnly Property aesWP_Zusatz8Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Zusatz8 End Get End Property _ Public ReadOnly Property aesWP_VorpapierTypCode9Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_VorpapierTypCode9 End Get End Property _ Public ReadOnly Property aesWP_ReferenzID9Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_ReferenzID9 End Get End Property _ Public ReadOnly Property aesWP_Zusatz9Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Zusatz9 End Get End Property _ Public ReadOnly Property aesWP_Containernummer1Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Containernummer1 End Get End Property _ Public ReadOnly Property aesWP_Containernummer2Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Containernummer2 End Get End Property _ Public ReadOnly Property aesWP_Containernummer3Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Containernummer3 End Get End Property _ Public ReadOnly Property aesWP_Containernummer4Column() As Global.System.Data.DataColumn Get Return Me.columnaesWP_Containernummer4 End Get End Property _ Public ReadOnly Property aesWP_EmpfaengerTeilnehmerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EmpfaengerTeilnehmerEORI End Get End Property _ Public ReadOnly Property aesWP_EmpfaengerTeilnehmerNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EmpfaengerTeilnehmerNLNR End Get End Property _ Public ReadOnly Property aesWP_EmpfaengerTeilnehmerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EmpfaengerTeilnehmerName End Get End Property _ Public ReadOnly Property aesWP_EmpfaengerTeilnehmerStrasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EmpfaengerTeilnehmerStrasse End Get End Property _ Public ReadOnly Property aesWP_EmpfaengerTeilnehmerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EmpfaengerTeilnehmerOrt End Get End Property _ Public ReadOnly Property aesWP_EmpfaengerTeilnehmerPLZColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EmpfaengerTeilnehmerPLZ End Get End Property _ Public ReadOnly Property aesWP_EmpfaengerTeilnehmerLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EmpfaengerTeilnehmerLandCode End Get End Property _ Public ReadOnly Property aesWP_EndverwenderTeilnehmerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EndverwenderTeilnehmerEORI End Get End Property _ Public ReadOnly Property aesWP_EndverwenderTeilnehmerNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EndverwenderTeilnehmerNLNR End Get End Property _ Public ReadOnly Property aesWP_EndverwenderTeilnehmerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EndverwenderTeilnehmerName End Get End Property _ Public ReadOnly Property aesWP_EndverwenderTeilnehmerStrasseColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EndverwenderTeilnehmerStrasse End Get End Property _ Public ReadOnly Property aesWP_EndverwenderTeilnehmerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EndverwenderTeilnehmerOrt End Get End Property _ Public ReadOnly Property aesWP_EndverwenderTeilnehmerPLZColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EndverwenderTeilnehmerPLZ End Get End Property _ Public ReadOnly Property aesWP_EndverwenderTeilnehmerLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWP_EndverwenderTeilnehmerLandCode 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 tblDakosy_AES_WarenpositionRow Get Return CType(Me.Rows(index),tblDakosy_AES_WarenpositionRow) End Get End Property _ Public Event tblDakosy_AES_WarenpositionRowChanging As tblDakosy_AES_WarenpositionRowChangeEventHandler _ Public Event tblDakosy_AES_WarenpositionRowChanged As tblDakosy_AES_WarenpositionRowChangeEventHandler _ Public Event tblDakosy_AES_WarenpositionRowDeleting As tblDakosy_AES_WarenpositionRowChangeEventHandler _ Public Event tblDakosy_AES_WarenpositionRowDeleted As tblDakosy_AES_WarenpositionRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_AES_WarenpositionRow(ByVal row As tblDakosy_AES_WarenpositionRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_AES_WarenpositionRow( _ ByVal aesWP_AESId As Integer, _ ByVal aesWP_PositionsNummer As Decimal, _ ByVal aesWP_WarennummerKN8 As String, _ ByVal aesWP_WarennummerTARIC As String, _ ByVal aesWP_WarennummerZusatz1 As String, _ ByVal aesWP_WarennummerZusatz2 As String, _ ByVal aesWP_WarennummerNational As String, _ ByVal aesWP_Warenbezeichnung As String, _ ByVal aesWP_RegisternummerFremdsystem As String, _ ByVal aesWP_Vermerk As String, _ ByVal aesWP_KennungSendung As String, _ ByVal aesWP_UrsprungsbundeslandCode As String, _ ByVal aesWP_Eigenmasse As Decimal, _ ByVal aesWP_Rohmasse As Decimal, _ ByVal aesWP_Gefahrgutnummer As String, _ ByVal aesWP_ZahlungsweiseBefoerderungskosten As String, _ ByVal aesWP_VerfahrenAngemeldetCode As String, _ ByVal aesWP_VerfahrenVorangegangenCode As String, _ ByVal aesWP_VerfahrenNationalCode As String, _ ByVal aesWP_AusfuhrerstattungVerfahrensCode As String, _ ByVal aesWP_Menge As Decimal, _ ByVal aesWP_Wert As Decimal, _ ByVal aesWP_VorpapierTypCode1 As String, _ ByVal aesWP_ReferenzID1 As String, _ ByVal aesWP_Zusatz1 As String, _ ByVal aesWP_VorpapierTypCode2 As String, _ ByVal aesWP_ReferenzID2 As String, _ ByVal aesWP_Zusatz2 As String, _ ByVal aesWP_VorpapierTypCode3 As String, _ ByVal aesWP_ReferenzID3 As String, _ ByVal aesWP_Zusatz3 As String, _ ByVal aesWP_VorpapierTypCode4 As String, _ ByVal aesWP_ReferenzID4 As String, _ ByVal aesWP_Zusatz4 As String, _ ByVal aesWP_VorpapierTypCode5 As String, _ ByVal aesWP_ReferenzID5 As String, _ ByVal aesWP_Zusatz5 As String, _ ByVal aesWP_VorpapierTypCode6 As String, _ ByVal aesWP_ReferenzID6 As String, _ ByVal aesWP_Zusatz6 As String, _ ByVal aesWP_VorpapierTypCode7 As String, _ ByVal aesWP_ReferenzID7 As String, _ ByVal aesWP_Zusatz7 As String, _ ByVal aesWP_VorpapierTypCode8 As String, _ ByVal aesWP_ReferenzID8 As String, _ ByVal aesWP_Zusatz8 As String, _ ByVal aesWP_VorpapierTypCode9 As String, _ ByVal aesWP_ReferenzID9 As String, _ ByVal aesWP_Zusatz9 As String, _ ByVal aesWP_Containernummer1 As String, _ ByVal aesWP_Containernummer2 As String, _ ByVal aesWP_Containernummer3 As String, _ ByVal aesWP_Containernummer4 As String, _ ByVal aesWP_EmpfaengerTeilnehmerEORI As String, _ ByVal aesWP_EmpfaengerTeilnehmerNLNR As String, _ ByVal aesWP_EmpfaengerTeilnehmerName As String, _ ByVal aesWP_EmpfaengerTeilnehmerStrasse As String, _ ByVal aesWP_EmpfaengerTeilnehmerOrt As String, _ ByVal aesWP_EmpfaengerTeilnehmerPLZ As String, _ ByVal aesWP_EmpfaengerTeilnehmerLandCode As String, _ ByVal aesWP_EndverwenderTeilnehmerEORI As String, _ ByVal aesWP_EndverwenderTeilnehmerNLNR As String, _ ByVal aesWP_EndverwenderTeilnehmerName As String, _ ByVal aesWP_EndverwenderTeilnehmerStrasse As String, _ ByVal aesWP_EndverwenderTeilnehmerOrt As String, _ ByVal aesWP_EndverwenderTeilnehmerPLZ As String, _ ByVal aesWP_EndverwenderTeilnehmerLandCode As String) As tblDakosy_AES_WarenpositionRow Dim rowtblDakosy_AES_WarenpositionRow As tblDakosy_AES_WarenpositionRow = CType(Me.NewRow,tblDakosy_AES_WarenpositionRow) Dim columnValuesArray() As Object = New Object() {Nothing, aesWP_AESId, aesWP_PositionsNummer, aesWP_WarennummerKN8, aesWP_WarennummerTARIC, aesWP_WarennummerZusatz1, aesWP_WarennummerZusatz2, aesWP_WarennummerNational, aesWP_Warenbezeichnung, aesWP_RegisternummerFremdsystem, aesWP_Vermerk, aesWP_KennungSendung, aesWP_UrsprungsbundeslandCode, aesWP_Eigenmasse, aesWP_Rohmasse, aesWP_Gefahrgutnummer, aesWP_ZahlungsweiseBefoerderungskosten, aesWP_VerfahrenAngemeldetCode, aesWP_VerfahrenVorangegangenCode, aesWP_VerfahrenNationalCode, aesWP_AusfuhrerstattungVerfahrensCode, aesWP_Menge, aesWP_Wert, aesWP_VorpapierTypCode1, aesWP_ReferenzID1, aesWP_Zusatz1, aesWP_VorpapierTypCode2, aesWP_ReferenzID2, aesWP_Zusatz2, aesWP_VorpapierTypCode3, aesWP_ReferenzID3, aesWP_Zusatz3, aesWP_VorpapierTypCode4, aesWP_ReferenzID4, aesWP_Zusatz4, aesWP_VorpapierTypCode5, aesWP_ReferenzID5, aesWP_Zusatz5, aesWP_VorpapierTypCode6, aesWP_ReferenzID6, aesWP_Zusatz6, aesWP_VorpapierTypCode7, aesWP_ReferenzID7, aesWP_Zusatz7, aesWP_VorpapierTypCode8, aesWP_ReferenzID8, aesWP_Zusatz8, aesWP_VorpapierTypCode9, aesWP_ReferenzID9, aesWP_Zusatz9, aesWP_Containernummer1, aesWP_Containernummer2, aesWP_Containernummer3, aesWP_Containernummer4, aesWP_EmpfaengerTeilnehmerEORI, aesWP_EmpfaengerTeilnehmerNLNR, aesWP_EmpfaengerTeilnehmerName, aesWP_EmpfaengerTeilnehmerStrasse, aesWP_EmpfaengerTeilnehmerOrt, aesWP_EmpfaengerTeilnehmerPLZ, aesWP_EmpfaengerTeilnehmerLandCode, aesWP_EndverwenderTeilnehmerEORI, aesWP_EndverwenderTeilnehmerNLNR, aesWP_EndverwenderTeilnehmerName, aesWP_EndverwenderTeilnehmerStrasse, aesWP_EndverwenderTeilnehmerOrt, aesWP_EndverwenderTeilnehmerPLZ, aesWP_EndverwenderTeilnehmerLandCode} rowtblDakosy_AES_WarenpositionRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_AES_WarenpositionRow) Return rowtblDakosy_AES_WarenpositionRow End Function _ Public Function FindByaesWP_Id(ByVal aesWP_Id As Integer) As tblDakosy_AES_WarenpositionRow Return CType(Me.Rows.Find(New Object() {aesWP_Id}),tblDakosy_AES_WarenpositionRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_AES_WarenpositionDataTable = CType(MyBase.Clone,tblDakosy_AES_WarenpositionDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_AES_WarenpositionDataTable() End Function _ Friend Sub InitVars() Me.columnaesWP_Id = MyBase.Columns("aesWP_Id") Me.columnaesWP_AESId = MyBase.Columns("aesWP_AESId") Me.columnaesWP_PositionsNummer = MyBase.Columns("aesWP_PositionsNummer") Me.columnaesWP_WarennummerKN8 = MyBase.Columns("aesWP_WarennummerKN8") Me.columnaesWP_WarennummerTARIC = MyBase.Columns("aesWP_WarennummerTARIC") Me.columnaesWP_WarennummerZusatz1 = MyBase.Columns("aesWP_WarennummerZusatz1") Me.columnaesWP_WarennummerZusatz2 = MyBase.Columns("aesWP_WarennummerZusatz2") Me.columnaesWP_WarennummerNational = MyBase.Columns("aesWP_WarennummerNational") Me.columnaesWP_Warenbezeichnung = MyBase.Columns("aesWP_Warenbezeichnung") Me.columnaesWP_RegisternummerFremdsystem = MyBase.Columns("aesWP_RegisternummerFremdsystem") Me.columnaesWP_Vermerk = MyBase.Columns("aesWP_Vermerk") Me.columnaesWP_KennungSendung = MyBase.Columns("aesWP_KennungSendung") Me.columnaesWP_UrsprungsbundeslandCode = MyBase.Columns("aesWP_UrsprungsbundeslandCode") Me.columnaesWP_Eigenmasse = MyBase.Columns("aesWP_Eigenmasse") Me.columnaesWP_Rohmasse = MyBase.Columns("aesWP_Rohmasse") Me.columnaesWP_Gefahrgutnummer = MyBase.Columns("aesWP_Gefahrgutnummer") Me.columnaesWP_ZahlungsweiseBefoerderungskosten = MyBase.Columns("aesWP_ZahlungsweiseBefoerderungskosten") Me.columnaesWP_VerfahrenAngemeldetCode = MyBase.Columns("aesWP_VerfahrenAngemeldetCode") Me.columnaesWP_VerfahrenVorangegangenCode = MyBase.Columns("aesWP_VerfahrenVorangegangenCode") Me.columnaesWP_VerfahrenNationalCode = MyBase.Columns("aesWP_VerfahrenNationalCode") Me.columnaesWP_AusfuhrerstattungVerfahrensCode = MyBase.Columns("aesWP_AusfuhrerstattungVerfahrensCode") Me.columnaesWP_Menge = MyBase.Columns("aesWP_Menge") Me.columnaesWP_Wert = MyBase.Columns("aesWP_Wert") Me.columnaesWP_VorpapierTypCode1 = MyBase.Columns("aesWP_VorpapierTypCode1") Me.columnaesWP_ReferenzID1 = MyBase.Columns("aesWP_ReferenzID1") Me.columnaesWP_Zusatz1 = MyBase.Columns("aesWP_Zusatz1") Me.columnaesWP_VorpapierTypCode2 = MyBase.Columns("aesWP_VorpapierTypCode2") Me.columnaesWP_ReferenzID2 = MyBase.Columns("aesWP_ReferenzID2") Me.columnaesWP_Zusatz2 = MyBase.Columns("aesWP_Zusatz2") Me.columnaesWP_VorpapierTypCode3 = MyBase.Columns("aesWP_VorpapierTypCode3") Me.columnaesWP_ReferenzID3 = MyBase.Columns("aesWP_ReferenzID3") Me.columnaesWP_Zusatz3 = MyBase.Columns("aesWP_Zusatz3") Me.columnaesWP_VorpapierTypCode4 = MyBase.Columns("aesWP_VorpapierTypCode4") Me.columnaesWP_ReferenzID4 = MyBase.Columns("aesWP_ReferenzID4") Me.columnaesWP_Zusatz4 = MyBase.Columns("aesWP_Zusatz4") Me.columnaesWP_VorpapierTypCode5 = MyBase.Columns("aesWP_VorpapierTypCode5") Me.columnaesWP_ReferenzID5 = MyBase.Columns("aesWP_ReferenzID5") Me.columnaesWP_Zusatz5 = MyBase.Columns("aesWP_Zusatz5") Me.columnaesWP_VorpapierTypCode6 = MyBase.Columns("aesWP_VorpapierTypCode6") Me.columnaesWP_ReferenzID6 = MyBase.Columns("aesWP_ReferenzID6") Me.columnaesWP_Zusatz6 = MyBase.Columns("aesWP_Zusatz6") Me.columnaesWP_VorpapierTypCode7 = MyBase.Columns("aesWP_VorpapierTypCode7") Me.columnaesWP_ReferenzID7 = MyBase.Columns("aesWP_ReferenzID7") Me.columnaesWP_Zusatz7 = MyBase.Columns("aesWP_Zusatz7") Me.columnaesWP_VorpapierTypCode8 = MyBase.Columns("aesWP_VorpapierTypCode8") Me.columnaesWP_ReferenzID8 = MyBase.Columns("aesWP_ReferenzID8") Me.columnaesWP_Zusatz8 = MyBase.Columns("aesWP_Zusatz8") Me.columnaesWP_VorpapierTypCode9 = MyBase.Columns("aesWP_VorpapierTypCode9") Me.columnaesWP_ReferenzID9 = MyBase.Columns("aesWP_ReferenzID9") Me.columnaesWP_Zusatz9 = MyBase.Columns("aesWP_Zusatz9") Me.columnaesWP_Containernummer1 = MyBase.Columns("aesWP_Containernummer1") Me.columnaesWP_Containernummer2 = MyBase.Columns("aesWP_Containernummer2") Me.columnaesWP_Containernummer3 = MyBase.Columns("aesWP_Containernummer3") Me.columnaesWP_Containernummer4 = MyBase.Columns("aesWP_Containernummer4") Me.columnaesWP_EmpfaengerTeilnehmerEORI = MyBase.Columns("aesWP_EmpfaengerTeilnehmerEORI") Me.columnaesWP_EmpfaengerTeilnehmerNLNR = MyBase.Columns("aesWP_EmpfaengerTeilnehmerNLNR") Me.columnaesWP_EmpfaengerTeilnehmerName = MyBase.Columns("aesWP_EmpfaengerTeilnehmerName") Me.columnaesWP_EmpfaengerTeilnehmerStrasse = MyBase.Columns("aesWP_EmpfaengerTeilnehmerStrasse") Me.columnaesWP_EmpfaengerTeilnehmerOrt = MyBase.Columns("aesWP_EmpfaengerTeilnehmerOrt") Me.columnaesWP_EmpfaengerTeilnehmerPLZ = MyBase.Columns("aesWP_EmpfaengerTeilnehmerPLZ") Me.columnaesWP_EmpfaengerTeilnehmerLandCode = MyBase.Columns("aesWP_EmpfaengerTeilnehmerLandCode") Me.columnaesWP_EndverwenderTeilnehmerEORI = MyBase.Columns("aesWP_EndverwenderTeilnehmerEORI") Me.columnaesWP_EndverwenderTeilnehmerNLNR = MyBase.Columns("aesWP_EndverwenderTeilnehmerNLNR") Me.columnaesWP_EndverwenderTeilnehmerName = MyBase.Columns("aesWP_EndverwenderTeilnehmerName") Me.columnaesWP_EndverwenderTeilnehmerStrasse = MyBase.Columns("aesWP_EndverwenderTeilnehmerStrasse") Me.columnaesWP_EndverwenderTeilnehmerOrt = MyBase.Columns("aesWP_EndverwenderTeilnehmerOrt") Me.columnaesWP_EndverwenderTeilnehmerPLZ = MyBase.Columns("aesWP_EndverwenderTeilnehmerPLZ") Me.columnaesWP_EndverwenderTeilnehmerLandCode = MyBase.Columns("aesWP_EndverwenderTeilnehmerLandCode") End Sub _ Private Sub InitClass() Me.columnaesWP_Id = New Global.System.Data.DataColumn("aesWP_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Id) Me.columnaesWP_AESId = New Global.System.Data.DataColumn("aesWP_AESId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_AESId) Me.columnaesWP_PositionsNummer = New Global.System.Data.DataColumn("aesWP_PositionsNummer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_PositionsNummer) Me.columnaesWP_WarennummerKN8 = New Global.System.Data.DataColumn("aesWP_WarennummerKN8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_WarennummerKN8) Me.columnaesWP_WarennummerTARIC = New Global.System.Data.DataColumn("aesWP_WarennummerTARIC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_WarennummerTARIC) Me.columnaesWP_WarennummerZusatz1 = New Global.System.Data.DataColumn("aesWP_WarennummerZusatz1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_WarennummerZusatz1) Me.columnaesWP_WarennummerZusatz2 = New Global.System.Data.DataColumn("aesWP_WarennummerZusatz2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_WarennummerZusatz2) Me.columnaesWP_WarennummerNational = New Global.System.Data.DataColumn("aesWP_WarennummerNational", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_WarennummerNational) Me.columnaesWP_Warenbezeichnung = New Global.System.Data.DataColumn("aesWP_Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Warenbezeichnung) Me.columnaesWP_RegisternummerFremdsystem = New Global.System.Data.DataColumn("aesWP_RegisternummerFremdsystem", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_RegisternummerFremdsystem) Me.columnaesWP_Vermerk = New Global.System.Data.DataColumn("aesWP_Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Vermerk) Me.columnaesWP_KennungSendung = New Global.System.Data.DataColumn("aesWP_KennungSendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_KennungSendung) Me.columnaesWP_UrsprungsbundeslandCode = New Global.System.Data.DataColumn("aesWP_UrsprungsbundeslandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_UrsprungsbundeslandCode) Me.columnaesWP_Eigenmasse = New Global.System.Data.DataColumn("aesWP_Eigenmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Eigenmasse) Me.columnaesWP_Rohmasse = New Global.System.Data.DataColumn("aesWP_Rohmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Rohmasse) Me.columnaesWP_Gefahrgutnummer = New Global.System.Data.DataColumn("aesWP_Gefahrgutnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Gefahrgutnummer) Me.columnaesWP_ZahlungsweiseBefoerderungskosten = New Global.System.Data.DataColumn("aesWP_ZahlungsweiseBefoerderungskosten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_ZahlungsweiseBefoerderungskosten) Me.columnaesWP_VerfahrenAngemeldetCode = New Global.System.Data.DataColumn("aesWP_VerfahrenAngemeldetCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VerfahrenAngemeldetCode) Me.columnaesWP_VerfahrenVorangegangenCode = New Global.System.Data.DataColumn("aesWP_VerfahrenVorangegangenCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VerfahrenVorangegangenCode) Me.columnaesWP_VerfahrenNationalCode = New Global.System.Data.DataColumn("aesWP_VerfahrenNationalCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VerfahrenNationalCode) Me.columnaesWP_AusfuhrerstattungVerfahrensCode = New Global.System.Data.DataColumn("aesWP_AusfuhrerstattungVerfahrensCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_AusfuhrerstattungVerfahrensCode) Me.columnaesWP_Menge = New Global.System.Data.DataColumn("aesWP_Menge", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Menge) Me.columnaesWP_Wert = New Global.System.Data.DataColumn("aesWP_Wert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Wert) Me.columnaesWP_VorpapierTypCode1 = New Global.System.Data.DataColumn("aesWP_VorpapierTypCode1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VorpapierTypCode1) Me.columnaesWP_ReferenzID1 = New Global.System.Data.DataColumn("aesWP_ReferenzID1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_ReferenzID1) Me.columnaesWP_Zusatz1 = New Global.System.Data.DataColumn("aesWP_Zusatz1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Zusatz1) Me.columnaesWP_VorpapierTypCode2 = New Global.System.Data.DataColumn("aesWP_VorpapierTypCode2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VorpapierTypCode2) Me.columnaesWP_ReferenzID2 = New Global.System.Data.DataColumn("aesWP_ReferenzID2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_ReferenzID2) Me.columnaesWP_Zusatz2 = New Global.System.Data.DataColumn("aesWP_Zusatz2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Zusatz2) Me.columnaesWP_VorpapierTypCode3 = New Global.System.Data.DataColumn("aesWP_VorpapierTypCode3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VorpapierTypCode3) Me.columnaesWP_ReferenzID3 = New Global.System.Data.DataColumn("aesWP_ReferenzID3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_ReferenzID3) Me.columnaesWP_Zusatz3 = New Global.System.Data.DataColumn("aesWP_Zusatz3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Zusatz3) Me.columnaesWP_VorpapierTypCode4 = New Global.System.Data.DataColumn("aesWP_VorpapierTypCode4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VorpapierTypCode4) Me.columnaesWP_ReferenzID4 = New Global.System.Data.DataColumn("aesWP_ReferenzID4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_ReferenzID4) Me.columnaesWP_Zusatz4 = New Global.System.Data.DataColumn("aesWP_Zusatz4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Zusatz4) Me.columnaesWP_VorpapierTypCode5 = New Global.System.Data.DataColumn("aesWP_VorpapierTypCode5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VorpapierTypCode5) Me.columnaesWP_ReferenzID5 = New Global.System.Data.DataColumn("aesWP_ReferenzID5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_ReferenzID5) Me.columnaesWP_Zusatz5 = New Global.System.Data.DataColumn("aesWP_Zusatz5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Zusatz5) Me.columnaesWP_VorpapierTypCode6 = New Global.System.Data.DataColumn("aesWP_VorpapierTypCode6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VorpapierTypCode6) Me.columnaesWP_ReferenzID6 = New Global.System.Data.DataColumn("aesWP_ReferenzID6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_ReferenzID6) Me.columnaesWP_Zusatz6 = New Global.System.Data.DataColumn("aesWP_Zusatz6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Zusatz6) Me.columnaesWP_VorpapierTypCode7 = New Global.System.Data.DataColumn("aesWP_VorpapierTypCode7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VorpapierTypCode7) Me.columnaesWP_ReferenzID7 = New Global.System.Data.DataColumn("aesWP_ReferenzID7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_ReferenzID7) Me.columnaesWP_Zusatz7 = New Global.System.Data.DataColumn("aesWP_Zusatz7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Zusatz7) Me.columnaesWP_VorpapierTypCode8 = New Global.System.Data.DataColumn("aesWP_VorpapierTypCode8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VorpapierTypCode8) Me.columnaesWP_ReferenzID8 = New Global.System.Data.DataColumn("aesWP_ReferenzID8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_ReferenzID8) Me.columnaesWP_Zusatz8 = New Global.System.Data.DataColumn("aesWP_Zusatz8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Zusatz8) Me.columnaesWP_VorpapierTypCode9 = New Global.System.Data.DataColumn("aesWP_VorpapierTypCode9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_VorpapierTypCode9) Me.columnaesWP_ReferenzID9 = New Global.System.Data.DataColumn("aesWP_ReferenzID9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_ReferenzID9) Me.columnaesWP_Zusatz9 = New Global.System.Data.DataColumn("aesWP_Zusatz9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Zusatz9) Me.columnaesWP_Containernummer1 = New Global.System.Data.DataColumn("aesWP_Containernummer1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Containernummer1) Me.columnaesWP_Containernummer2 = New Global.System.Data.DataColumn("aesWP_Containernummer2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Containernummer2) Me.columnaesWP_Containernummer3 = New Global.System.Data.DataColumn("aesWP_Containernummer3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Containernummer3) Me.columnaesWP_Containernummer4 = New Global.System.Data.DataColumn("aesWP_Containernummer4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_Containernummer4) Me.columnaesWP_EmpfaengerTeilnehmerEORI = New Global.System.Data.DataColumn("aesWP_EmpfaengerTeilnehmerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EmpfaengerTeilnehmerEORI) Me.columnaesWP_EmpfaengerTeilnehmerNLNR = New Global.System.Data.DataColumn("aesWP_EmpfaengerTeilnehmerNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EmpfaengerTeilnehmerNLNR) Me.columnaesWP_EmpfaengerTeilnehmerName = New Global.System.Data.DataColumn("aesWP_EmpfaengerTeilnehmerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EmpfaengerTeilnehmerName) Me.columnaesWP_EmpfaengerTeilnehmerStrasse = New Global.System.Data.DataColumn("aesWP_EmpfaengerTeilnehmerStrasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EmpfaengerTeilnehmerStrasse) Me.columnaesWP_EmpfaengerTeilnehmerOrt = New Global.System.Data.DataColumn("aesWP_EmpfaengerTeilnehmerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EmpfaengerTeilnehmerOrt) Me.columnaesWP_EmpfaengerTeilnehmerPLZ = New Global.System.Data.DataColumn("aesWP_EmpfaengerTeilnehmerPLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EmpfaengerTeilnehmerPLZ) Me.columnaesWP_EmpfaengerTeilnehmerLandCode = New Global.System.Data.DataColumn("aesWP_EmpfaengerTeilnehmerLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EmpfaengerTeilnehmerLandCode) Me.columnaesWP_EndverwenderTeilnehmerEORI = New Global.System.Data.DataColumn("aesWP_EndverwenderTeilnehmerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EndverwenderTeilnehmerEORI) Me.columnaesWP_EndverwenderTeilnehmerNLNR = New Global.System.Data.DataColumn("aesWP_EndverwenderTeilnehmerNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EndverwenderTeilnehmerNLNR) Me.columnaesWP_EndverwenderTeilnehmerName = New Global.System.Data.DataColumn("aesWP_EndverwenderTeilnehmerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EndverwenderTeilnehmerName) Me.columnaesWP_EndverwenderTeilnehmerStrasse = New Global.System.Data.DataColumn("aesWP_EndverwenderTeilnehmerStrasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EndverwenderTeilnehmerStrasse) Me.columnaesWP_EndverwenderTeilnehmerOrt = New Global.System.Data.DataColumn("aesWP_EndverwenderTeilnehmerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EndverwenderTeilnehmerOrt) Me.columnaesWP_EndverwenderTeilnehmerPLZ = New Global.System.Data.DataColumn("aesWP_EndverwenderTeilnehmerPLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EndverwenderTeilnehmerPLZ) Me.columnaesWP_EndverwenderTeilnehmerLandCode = New Global.System.Data.DataColumn("aesWP_EndverwenderTeilnehmerLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWP_EndverwenderTeilnehmerLandCode) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnaesWP_Id}, true)) Me.columnaesWP_Id.AutoIncrement = true Me.columnaesWP_Id.AutoIncrementSeed = -1 Me.columnaesWP_Id.AutoIncrementStep = -1 Me.columnaesWP_Id.AllowDBNull = false Me.columnaesWP_Id.ReadOnly = true Me.columnaesWP_Id.Unique = true Me.columnaesWP_AESId.AllowDBNull = false Me.columnaesWP_WarennummerKN8.MaxLength = 8 Me.columnaesWP_WarennummerTARIC.MaxLength = 2 Me.columnaesWP_WarennummerZusatz1.MaxLength = 4 Me.columnaesWP_WarennummerZusatz2.MaxLength = 4 Me.columnaesWP_WarennummerNational.MaxLength = 4 Me.columnaesWP_Warenbezeichnung.MaxLength = 280 Me.columnaesWP_RegisternummerFremdsystem.MaxLength = 70 Me.columnaesWP_Vermerk.MaxLength = 70 Me.columnaesWP_KennungSendung.MaxLength = 70 Me.columnaesWP_UrsprungsbundeslandCode.MaxLength = 2 Me.columnaesWP_Gefahrgutnummer.MaxLength = 4 Me.columnaesWP_ZahlungsweiseBefoerderungskosten.MaxLength = 1 Me.columnaesWP_VerfahrenAngemeldetCode.MaxLength = 2 Me.columnaesWP_VerfahrenVorangegangenCode.MaxLength = 2 Me.columnaesWP_VerfahrenNationalCode.MaxLength = 3 Me.columnaesWP_AusfuhrerstattungVerfahrensCode.MaxLength = 3 Me.columnaesWP_VorpapierTypCode1.MaxLength = 6 Me.columnaesWP_ReferenzID1.MaxLength = 35 Me.columnaesWP_Zusatz1.MaxLength = 26 Me.columnaesWP_VorpapierTypCode2.MaxLength = 6 Me.columnaesWP_ReferenzID2.MaxLength = 35 Me.columnaesWP_Zusatz2.MaxLength = 26 Me.columnaesWP_VorpapierTypCode3.MaxLength = 6 Me.columnaesWP_ReferenzID3.MaxLength = 35 Me.columnaesWP_Zusatz3.MaxLength = 26 Me.columnaesWP_VorpapierTypCode4.MaxLength = 6 Me.columnaesWP_ReferenzID4.MaxLength = 35 Me.columnaesWP_Zusatz4.MaxLength = 26 Me.columnaesWP_VorpapierTypCode5.MaxLength = 6 Me.columnaesWP_ReferenzID5.MaxLength = 35 Me.columnaesWP_Zusatz5.MaxLength = 26 Me.columnaesWP_VorpapierTypCode6.MaxLength = 6 Me.columnaesWP_ReferenzID6.MaxLength = 35 Me.columnaesWP_Zusatz6.MaxLength = 26 Me.columnaesWP_VorpapierTypCode7.MaxLength = 6 Me.columnaesWP_ReferenzID7.MaxLength = 35 Me.columnaesWP_Zusatz7.MaxLength = 26 Me.columnaesWP_VorpapierTypCode8.MaxLength = 6 Me.columnaesWP_ReferenzID8.MaxLength = 35 Me.columnaesWP_Zusatz8.MaxLength = 26 Me.columnaesWP_VorpapierTypCode9.MaxLength = 6 Me.columnaesWP_ReferenzID9.MaxLength = 35 Me.columnaesWP_Zusatz9.MaxLength = 26 Me.columnaesWP_Containernummer1.MaxLength = 17 Me.columnaesWP_Containernummer2.MaxLength = 17 Me.columnaesWP_Containernummer3.MaxLength = 17 Me.columnaesWP_Containernummer4.MaxLength = 17 Me.columnaesWP_EmpfaengerTeilnehmerEORI.MaxLength = 17 Me.columnaesWP_EmpfaengerTeilnehmerNLNR.MaxLength = 4 Me.columnaesWP_EmpfaengerTeilnehmerName.MaxLength = 120 Me.columnaesWP_EmpfaengerTeilnehmerStrasse.MaxLength = 70 Me.columnaesWP_EmpfaengerTeilnehmerOrt.MaxLength = 35 Me.columnaesWP_EmpfaengerTeilnehmerPLZ.MaxLength = 9 Me.columnaesWP_EmpfaengerTeilnehmerLandCode.MaxLength = 2 Me.columnaesWP_EndverwenderTeilnehmerEORI.MaxLength = 17 Me.columnaesWP_EndverwenderTeilnehmerNLNR.MaxLength = 4 Me.columnaesWP_EndverwenderTeilnehmerName.MaxLength = 120 Me.columnaesWP_EndverwenderTeilnehmerStrasse.MaxLength = 70 Me.columnaesWP_EndverwenderTeilnehmerOrt.MaxLength = 35 Me.columnaesWP_EndverwenderTeilnehmerPLZ.MaxLength = 9 Me.columnaesWP_EndverwenderTeilnehmerLandCode.MaxLength = 2 End Sub _ Public Function NewtblDakosy_AES_WarenpositionRow() As tblDakosy_AES_WarenpositionRow Return CType(Me.NewRow,tblDakosy_AES_WarenpositionRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_AES_WarenpositionRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_AES_WarenpositionRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_AES_WarenpositionRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionRowChanged(Me, New tblDakosy_AES_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_AES_WarenpositionRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionRowChanging(Me, New tblDakosy_AES_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_AES_WarenpositionRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionRowDeleted(Me, New tblDakosy_AES_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_AES_WarenpositionRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionRowDeleting(Me, New tblDakosy_AES_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_AES_WarenpositionRow(ByVal row As tblDakosy_AES_WarenpositionRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_AES_WarenpositionDataTable" 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 tblDakosy_AES_WarenpositionPackstueckeDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_AES_WarenpositionPackstueckeRow) Private columnaesWpPk_Id As Global.System.Data.DataColumn Private columnaesWpPk_aesWPId As Global.System.Data.DataColumn Private columnaesWpPk_aesId As Global.System.Data.DataColumn Private columnaesWpPk_PackstueckeAnzahl As Global.System.Data.DataColumn Private columnaesWpPk_Verpackungsart As Global.System.Data.DataColumn Private columnaesWpPk_Kennzeichnung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_AES_WarenpositionPackstuecke" 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 aesWpPk_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpPk_Id End Get End Property _ Public ReadOnly Property aesWpPk_aesWPIdColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpPk_aesWPId End Get End Property _ Public ReadOnly Property aesWpPk_aesIdColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpPk_aesId End Get End Property _ Public ReadOnly Property aesWpPk_PackstueckeAnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpPk_PackstueckeAnzahl End Get End Property _ Public ReadOnly Property aesWpPk_VerpackungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpPk_Verpackungsart End Get End Property _ Public ReadOnly Property aesWpPk_KennzeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpPk_Kennzeichnung 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 tblDakosy_AES_WarenpositionPackstueckeRow Get Return CType(Me.Rows(index),tblDakosy_AES_WarenpositionPackstueckeRow) End Get End Property _ Public Event tblDakosy_AES_WarenpositionPackstueckeRowChanging As tblDakosy_AES_WarenpositionPackstueckeRowChangeEventHandler _ Public Event tblDakosy_AES_WarenpositionPackstueckeRowChanged As tblDakosy_AES_WarenpositionPackstueckeRowChangeEventHandler _ Public Event tblDakosy_AES_WarenpositionPackstueckeRowDeleting As tblDakosy_AES_WarenpositionPackstueckeRowChangeEventHandler _ Public Event tblDakosy_AES_WarenpositionPackstueckeRowDeleted As tblDakosy_AES_WarenpositionPackstueckeRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_AES_WarenpositionPackstueckeRow(ByVal row As tblDakosy_AES_WarenpositionPackstueckeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_AES_WarenpositionPackstueckeRow(ByVal aesWpPk_aesWPId As Integer, ByVal aesWpPk_aesId As Integer, ByVal aesWpPk_PackstueckeAnzahl As Decimal, ByVal aesWpPk_Verpackungsart As String, ByVal aesWpPk_Kennzeichnung As String) As tblDakosy_AES_WarenpositionPackstueckeRow Dim rowtblDakosy_AES_WarenpositionPackstueckeRow As tblDakosy_AES_WarenpositionPackstueckeRow = CType(Me.NewRow,tblDakosy_AES_WarenpositionPackstueckeRow) Dim columnValuesArray() As Object = New Object() {Nothing, aesWpPk_aesWPId, aesWpPk_aesId, aesWpPk_PackstueckeAnzahl, aesWpPk_Verpackungsart, aesWpPk_Kennzeichnung} rowtblDakosy_AES_WarenpositionPackstueckeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_AES_WarenpositionPackstueckeRow) Return rowtblDakosy_AES_WarenpositionPackstueckeRow End Function _ Public Function FindByaesWpPk_Id(ByVal aesWpPk_Id As Integer) As tblDakosy_AES_WarenpositionPackstueckeRow Return CType(Me.Rows.Find(New Object() {aesWpPk_Id}),tblDakosy_AES_WarenpositionPackstueckeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_AES_WarenpositionPackstueckeDataTable = CType(MyBase.Clone,tblDakosy_AES_WarenpositionPackstueckeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_AES_WarenpositionPackstueckeDataTable() End Function _ Friend Sub InitVars() Me.columnaesWpPk_Id = MyBase.Columns("aesWpPk_Id") Me.columnaesWpPk_aesWPId = MyBase.Columns("aesWpPk_aesWPId") Me.columnaesWpPk_aesId = MyBase.Columns("aesWpPk_aesId") Me.columnaesWpPk_PackstueckeAnzahl = MyBase.Columns("aesWpPk_PackstueckeAnzahl") Me.columnaesWpPk_Verpackungsart = MyBase.Columns("aesWpPk_Verpackungsart") Me.columnaesWpPk_Kennzeichnung = MyBase.Columns("aesWpPk_Kennzeichnung") End Sub _ Private Sub InitClass() Me.columnaesWpPk_Id = New Global.System.Data.DataColumn("aesWpPk_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpPk_Id) Me.columnaesWpPk_aesWPId = New Global.System.Data.DataColumn("aesWpPk_aesWPId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpPk_aesWPId) Me.columnaesWpPk_aesId = New Global.System.Data.DataColumn("aesWpPk_aesId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpPk_aesId) Me.columnaesWpPk_PackstueckeAnzahl = New Global.System.Data.DataColumn("aesWpPk_PackstueckeAnzahl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpPk_PackstueckeAnzahl) Me.columnaesWpPk_Verpackungsart = New Global.System.Data.DataColumn("aesWpPk_Verpackungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpPk_Verpackungsart) Me.columnaesWpPk_Kennzeichnung = New Global.System.Data.DataColumn("aesWpPk_Kennzeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpPk_Kennzeichnung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnaesWpPk_Id}, true)) Me.columnaesWpPk_Id.AutoIncrement = true Me.columnaesWpPk_Id.AutoIncrementSeed = -1 Me.columnaesWpPk_Id.AutoIncrementStep = -1 Me.columnaesWpPk_Id.AllowDBNull = false Me.columnaesWpPk_Id.ReadOnly = true Me.columnaesWpPk_Id.Unique = true Me.columnaesWpPk_aesWPId.AllowDBNull = false Me.columnaesWpPk_aesId.AllowDBNull = false Me.columnaesWpPk_Verpackungsart.MaxLength = 3 Me.columnaesWpPk_Kennzeichnung.MaxLength = 42 End Sub _ Public Function NewtblDakosy_AES_WarenpositionPackstueckeRow() As tblDakosy_AES_WarenpositionPackstueckeRow Return CType(Me.NewRow,tblDakosy_AES_WarenpositionPackstueckeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_AES_WarenpositionPackstueckeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_AES_WarenpositionPackstueckeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_AES_WarenpositionPackstueckeRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionPackstueckeRowChanged(Me, New tblDakosy_AES_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_AES_WarenpositionPackstueckeRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionPackstueckeRowChanging(Me, New tblDakosy_AES_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_AES_WarenpositionPackstueckeRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionPackstueckeRowDeleted(Me, New tblDakosy_AES_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_AES_WarenpositionPackstueckeRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionPackstueckeRowDeleting(Me, New tblDakosy_AES_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_AES_WarenpositionPackstueckeRow(ByVal row As tblDakosy_AES_WarenpositionPackstueckeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_AES_WarenpositionPackstueckeDataTable" 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 tblDakosy_AES_WarenpositionUnterlagenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_AES_WarenpositionUnterlagenRow) Private columnaesWpUl_Id As Global.System.Data.DataColumn Private columnaesWpUl_aesWPId As Global.System.Data.DataColumn Private columnaesWpUl_aesId As Global.System.Data.DataColumn Private columnaesWpUl_Typ As Global.System.Data.DataColumn Private columnaesWpUl_QualifierCode As Global.System.Data.DataColumn Private columnaesWpUl_ReferenzID As Global.System.Data.DataColumn Private columnaesWpUl_Zusatz As Global.System.Data.DataColumn Private columnaesWpUl_Detail As Global.System.Data.DataColumn Private columnaesWpUl_DatumAusstellung As Global.System.Data.DataColumn Private columnaesWpUl_DatumEndeGueltigkeit As Global.System.Data.DataColumn Private columnaesWpUl_Wert As Global.System.Data.DataColumn Private columnaesWpUl_Abschreibungsmenge As Global.System.Data.DataColumn Private columnaesWpUl_Masseinheit As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_AES_WarenpositionUnterlagen" 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 aesWpUl_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_Id End Get End Property _ Public ReadOnly Property aesWpUl_aesWPIdColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_aesWPId End Get End Property _ Public ReadOnly Property aesWpUl_aesIdColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_aesId End Get End Property _ Public ReadOnly Property aesWpUl_TypColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_Typ End Get End Property _ Public ReadOnly Property aesWpUl_QualifierCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_QualifierCode End Get End Property _ Public ReadOnly Property aesWpUl_ReferenzIDColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_ReferenzID End Get End Property _ Public ReadOnly Property aesWpUl_ZusatzColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_Zusatz End Get End Property _ Public ReadOnly Property aesWpUl_DetailColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_Detail End Get End Property _ Public ReadOnly Property aesWpUl_DatumAusstellungColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_DatumAusstellung End Get End Property _ Public ReadOnly Property aesWpUl_DatumEndeGueltigkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_DatumEndeGueltigkeit End Get End Property _ Public ReadOnly Property aesWpUl_WertColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_Wert End Get End Property _ Public ReadOnly Property aesWpUl_AbschreibungsmengeColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_Abschreibungsmenge End Get End Property _ Public ReadOnly Property aesWpUl_MasseinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnaesWpUl_Masseinheit 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 tblDakosy_AES_WarenpositionUnterlagenRow Get Return CType(Me.Rows(index),tblDakosy_AES_WarenpositionUnterlagenRow) End Get End Property _ Public Event tblDakosy_AES_WarenpositionUnterlagenRowChanging As tblDakosy_AES_WarenpositionUnterlagenRowChangeEventHandler _ Public Event tblDakosy_AES_WarenpositionUnterlagenRowChanged As tblDakosy_AES_WarenpositionUnterlagenRowChangeEventHandler _ Public Event tblDakosy_AES_WarenpositionUnterlagenRowDeleting As tblDakosy_AES_WarenpositionUnterlagenRowChangeEventHandler _ Public Event tblDakosy_AES_WarenpositionUnterlagenRowDeleted As tblDakosy_AES_WarenpositionUnterlagenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_AES_WarenpositionUnterlagenRow(ByVal row As tblDakosy_AES_WarenpositionUnterlagenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_AES_WarenpositionUnterlagenRow(ByVal aesWpUl_aesWPId As Integer, ByVal aesWpUl_aesId As Integer, ByVal aesWpUl_Typ As String, ByVal aesWpUl_QualifierCode As String, ByVal aesWpUl_ReferenzID As String, ByVal aesWpUl_Zusatz As String, ByVal aesWpUl_Detail As String, ByVal aesWpUl_DatumAusstellung As Date, ByVal aesWpUl_DatumEndeGueltigkeit As Date, ByVal aesWpUl_Wert As Decimal, ByVal aesWpUl_Abschreibungsmenge As Decimal, ByVal aesWpUl_Masseinheit As String) As tblDakosy_AES_WarenpositionUnterlagenRow Dim rowtblDakosy_AES_WarenpositionUnterlagenRow As tblDakosy_AES_WarenpositionUnterlagenRow = CType(Me.NewRow,tblDakosy_AES_WarenpositionUnterlagenRow) Dim columnValuesArray() As Object = New Object() {Nothing, aesWpUl_aesWPId, aesWpUl_aesId, aesWpUl_Typ, aesWpUl_QualifierCode, aesWpUl_ReferenzID, aesWpUl_Zusatz, aesWpUl_Detail, aesWpUl_DatumAusstellung, aesWpUl_DatumEndeGueltigkeit, aesWpUl_Wert, aesWpUl_Abschreibungsmenge, aesWpUl_Masseinheit} rowtblDakosy_AES_WarenpositionUnterlagenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_AES_WarenpositionUnterlagenRow) Return rowtblDakosy_AES_WarenpositionUnterlagenRow End Function _ Public Function FindByaesWpUl_Id(ByVal aesWpUl_Id As Integer) As tblDakosy_AES_WarenpositionUnterlagenRow Return CType(Me.Rows.Find(New Object() {aesWpUl_Id}),tblDakosy_AES_WarenpositionUnterlagenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_AES_WarenpositionUnterlagenDataTable = CType(MyBase.Clone,tblDakosy_AES_WarenpositionUnterlagenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_AES_WarenpositionUnterlagenDataTable() End Function _ Friend Sub InitVars() Me.columnaesWpUl_Id = MyBase.Columns("aesWpUl_Id") Me.columnaesWpUl_aesWPId = MyBase.Columns("aesWpUl_aesWPId") Me.columnaesWpUl_aesId = MyBase.Columns("aesWpUl_aesId") Me.columnaesWpUl_Typ = MyBase.Columns("aesWpUl_Typ") Me.columnaesWpUl_QualifierCode = MyBase.Columns("aesWpUl_QualifierCode") Me.columnaesWpUl_ReferenzID = MyBase.Columns("aesWpUl_ReferenzID") Me.columnaesWpUl_Zusatz = MyBase.Columns("aesWpUl_Zusatz") Me.columnaesWpUl_Detail = MyBase.Columns("aesWpUl_Detail") Me.columnaesWpUl_DatumAusstellung = MyBase.Columns("aesWpUl_DatumAusstellung") Me.columnaesWpUl_DatumEndeGueltigkeit = MyBase.Columns("aesWpUl_DatumEndeGueltigkeit") Me.columnaesWpUl_Wert = MyBase.Columns("aesWpUl_Wert") Me.columnaesWpUl_Abschreibungsmenge = MyBase.Columns("aesWpUl_Abschreibungsmenge") Me.columnaesWpUl_Masseinheit = MyBase.Columns("aesWpUl_Masseinheit") End Sub _ Private Sub InitClass() Me.columnaesWpUl_Id = New Global.System.Data.DataColumn("aesWpUl_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_Id) Me.columnaesWpUl_aesWPId = New Global.System.Data.DataColumn("aesWpUl_aesWPId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_aesWPId) Me.columnaesWpUl_aesId = New Global.System.Data.DataColumn("aesWpUl_aesId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_aesId) Me.columnaesWpUl_Typ = New Global.System.Data.DataColumn("aesWpUl_Typ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_Typ) Me.columnaesWpUl_QualifierCode = New Global.System.Data.DataColumn("aesWpUl_QualifierCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_QualifierCode) Me.columnaesWpUl_ReferenzID = New Global.System.Data.DataColumn("aesWpUl_ReferenzID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_ReferenzID) Me.columnaesWpUl_Zusatz = New Global.System.Data.DataColumn("aesWpUl_Zusatz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_Zusatz) Me.columnaesWpUl_Detail = New Global.System.Data.DataColumn("aesWpUl_Detail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_Detail) Me.columnaesWpUl_DatumAusstellung = New Global.System.Data.DataColumn("aesWpUl_DatumAusstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_DatumAusstellung) Me.columnaesWpUl_DatumEndeGueltigkeit = New Global.System.Data.DataColumn("aesWpUl_DatumEndeGueltigkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_DatumEndeGueltigkeit) Me.columnaesWpUl_Wert = New Global.System.Data.DataColumn("aesWpUl_Wert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_Wert) Me.columnaesWpUl_Abschreibungsmenge = New Global.System.Data.DataColumn("aesWpUl_Abschreibungsmenge", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_Abschreibungsmenge) Me.columnaesWpUl_Masseinheit = New Global.System.Data.DataColumn("aesWpUl_Masseinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaesWpUl_Masseinheit) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnaesWpUl_Id}, true)) Me.columnaesWpUl_Id.AutoIncrement = true Me.columnaesWpUl_Id.AutoIncrementSeed = -1 Me.columnaesWpUl_Id.AutoIncrementStep = -1 Me.columnaesWpUl_Id.AllowDBNull = false Me.columnaesWpUl_Id.ReadOnly = true Me.columnaesWpUl_Id.Unique = true Me.columnaesWpUl_aesWPId.AllowDBNull = false Me.columnaesWpUl_aesId.AllowDBNull = false Me.columnaesWpUl_Typ.MaxLength = 4 Me.columnaesWpUl_QualifierCode.MaxLength = 3 Me.columnaesWpUl_ReferenzID.MaxLength = 35 Me.columnaesWpUl_Zusatz.MaxLength = 35 Me.columnaesWpUl_Detail.MaxLength = 12 Me.columnaesWpUl_Masseinheit.MaxLength = 10 End Sub _ Public Function NewtblDakosy_AES_WarenpositionUnterlagenRow() As tblDakosy_AES_WarenpositionUnterlagenRow Return CType(Me.NewRow,tblDakosy_AES_WarenpositionUnterlagenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_AES_WarenpositionUnterlagenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_AES_WarenpositionUnterlagenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_AES_WarenpositionUnterlagenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionUnterlagenRowChanged(Me, New tblDakosy_AES_WarenpositionUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionUnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_AES_WarenpositionUnterlagenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionUnterlagenRowChanging(Me, New tblDakosy_AES_WarenpositionUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionUnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_AES_WarenpositionUnterlagenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionUnterlagenRowDeleted(Me, New tblDakosy_AES_WarenpositionUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionUnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_AES_WarenpositionUnterlagenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_AES_WarenpositionUnterlagenRowDeleting(Me, New tblDakosy_AES_WarenpositionUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_AES_WarenpositionUnterlagenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_AES_WarenpositionUnterlagenRow(ByVal row As tblDakosy_AES_WarenpositionUnterlagenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_AES_WarenpositionUnterlagenDataTable" 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 tblDakosy_EZADataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_EZARow) Private columneza_Id As Global.System.Data.DataColumn Private columneza_Status As Global.System.Data.DataColumn Private columneza_Status_KEWILL_Equivalent As Global.System.Data.DataColumn Private columneza_dyaArt As Global.System.Data.DataColumn Private columneza_dyaAnmID As Global.System.Data.DataColumn Private columneza_ANR As Global.System.Data.DataColumn Private columneza_MRN As Global.System.Data.DataColumn Private columneza_Erstellung As Global.System.Data.DataColumn Private columneza_Erstellung_SB As Global.System.Data.DataColumn Private columneza_LetzteBearbeitung As Global.System.Data.DataColumn Private columneza_LetzteBearbeitung_SB As Global.System.Data.DataColumn Private columneza_firma As Global.System.Data.DataColumn Private columneza_niederlassung As Global.System.Data.DataColumn Private columneza_Trans_Partner As Global.System.Data.DataColumn Private columneza_Trans_Div1 As Global.System.Data.DataColumn Private columneza_Trans_Div2 As Global.System.Data.DataColumn Private columneza_Trans_Div3 As Global.System.Data.DataColumn Private columneza_Trans_Referenz As Global.System.Data.DataColumn Private columneza_Trans_DatumZeit As Global.System.Data.DataColumn Private columneza_Trans_Version As Global.System.Data.DataColumn Private columneza_NachrichtenSenderTIN As Global.System.Data.DataColumn Private columneza_NachrichtenSenderNLNR As Global.System.Data.DataColumn Private columneza_NachrichtenempfaengerDST As Global.System.Data.DataColumn Private columneza_ObjectName As Global.System.Data.DataColumn Private columneza_ObjectAlias As Global.System.Data.DataColumn Private columneza_BezugsnummerVorblendung As Global.System.Data.DataColumn Private columneza_Bearbeiter As Global.System.Data.DataColumn Private columneza_AnmeldungArt As Global.System.Data.DataColumn Private columneza_CompliancePruefung As Global.System.Data.DataColumn Private columneza_AnfBemerkungStatusanzeige As Global.System.Data.DataColumn Private columneza_AdressierteZollstelle As Global.System.Data.DataColumn Private columneza_AnmelderistEmpfaenger As Global.System.Data.DataColumn Private columneza_VertretungsVerhaeltnisCode As Global.System.Data.DataColumn Private columneza_Vorsteuerabzug As Global.System.Data.DataColumn Private columneza_AnmeldenderBearbeiterName As Global.System.Data.DataColumn Private columneza_AnmeldenderBearbeiterTel As Global.System.Data.DataColumn Private columneza_AnmeldenderBearbeiterStellung As Global.System.Data.DataColumn Private columneza_AnmeldenderBearbeiterEMail As Global.System.Data.DataColumn Private columneza_FiskalvertretungKz As Global.System.Data.DataColumn Private columneza_Ausstellungsort As Global.System.Data.DataColumn Private columneza_ZollrechtlicherStatus As Global.System.Data.DataColumn Private columneza_GesamtRohmasse As Global.System.Data.DataColumn Private columneza_VerfahrenBeantragtCode As Global.System.Data.DataColumn Private columneza_VerkehrszweigInland As Global.System.Data.DataColumn Private columneza_VerkehrszweigGrenze As Global.System.Data.DataColumn Private columneza_VersendungsLandCode As Global.System.Data.DataColumn Private columneza_Bestimmungsbundesland As Global.System.Data.DataColumn Private columneza_Bestimmungsland As Global.System.Data.DataColumn Private columneza_KennzeichenNameBefoerderungsmittelAnkunft As Global.System.Data.DataColumn Private columneza_BeförderungsmittelGrenzeStaatszugehörigkeitCode As Global.System.Data.DataColumn Private columneza_BeförderungsmittelGrenzeArt As Global.System.Data.DataColumn Private columneza_BeförderungsmittelGrenze As Global.System.Data.DataColumn Private columneza_LieferbedingungCode As Global.System.Data.DataColumn Private columneza_LieferbedingungText As Global.System.Data.DataColumn Private columneza_LieferbedingungSchluessel As Global.System.Data.DataColumn Private columneza_LieferbedingungOrt As Global.System.Data.DataColumn Private columneza_VorpapierArtCode As Global.System.Data.DataColumn Private columneza_VorpapierNr As Global.System.Data.DataColumn Private columneza_ArtGeschaeftCode As Global.System.Data.DataColumn Private columneza_Statistikstatus As Global.System.Data.DataColumn Private columneza_Warenort As Global.System.Data.DataColumn Private columneza_Rechnungspreis As Global.System.Data.DataColumn Private columneza_Rechnungswaehrung As Global.System.Data.DataColumn Private columneza_DV1Kz As Global.System.Data.DataColumn Private columneza_DV1Vertretungsverhaeltnis As Global.System.Data.DataColumn Private columneza_DV1FruehereEntscheidungen As Global.System.Data.DataColumn Private columneza_DV1Verbundenheit As Global.System.Data.DataColumn Private columneza_DV1VerbungenheitEinzelheiten As Global.System.Data.DataColumn Private columneza_DV1EinschraenkungenKz As Global.System.Data.DataColumn Private columneza_DV1BedingungenLeistungenKz As Global.System.Data.DataColumn Private columneza_DV1BedingungenLeistungenArt As Global.System.Data.DataColumn Private columneza_DV1LizenzgebuehrenKz As Global.System.Data.DataColumn Private columneza_DV1LizenzgebuehrenUmstand As Global.System.Data.DataColumn Private columneza_DV1SpezielleVereinbarungKz As Global.System.Data.DataColumn Private columneza_DV1SpezielleVereinbarungUmstand As Global.System.Data.DataColumn Private columneza_ZusatzangabenAnmeldung As Global.System.Data.DataColumn Private columneza_KzAutoBestaetigung As Global.System.Data.DataColumn Private columneza_AnschreibungDatum As Global.System.Data.DataColumn Private columneza_Eingangszollstelle As Global.System.Data.DataColumn Private columneza_Zahlungsart As Global.System.Data.DataColumn Private columneza_ContainerNr1 As Global.System.Data.DataColumn Private columneza_ContainerNr2 As Global.System.Data.DataColumn Private columneza_ContainerNr3 As Global.System.Data.DataColumn Private columneza_ContainerNr4 As Global.System.Data.DataColumn Private columneza_ContainerNr5 As Global.System.Data.DataColumn Private columneza_ContainerNr6 As Global.System.Data.DataColumn Private columneza_ContainerNr7 As Global.System.Data.DataColumn Private columneza_ContainerNr8 As Global.System.Data.DataColumn Private columneza_ContainerNr9 As Global.System.Data.DataColumn Private columneza_BeendigungsanteilArtCode As Global.System.Data.DataColumn Private columneza_BewilligungsIDZLAVUV As Global.System.Data.DataColumn Private columneza_BezugsnummerBEAnteilZL As Global.System.Data.DataColumn Private columneza_UstIdAnmelder As Global.System.Data.DataColumn Private columneza_FinanzamtAnmelder As Global.System.Data.DataColumn Private columneza_Anmeldedatum As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_EZA" 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 eza_IdColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Id End Get End Property _ Public ReadOnly Property eza_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Status End Get End Property _ Public ReadOnly Property eza_Status_KEWILL_EquivalentColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Status_KEWILL_Equivalent End Get End Property _ Public ReadOnly Property eza_dyaArtColumn() As Global.System.Data.DataColumn Get Return Me.columneza_dyaArt End Get End Property _ Public ReadOnly Property eza_dyaAnmIDColumn() As Global.System.Data.DataColumn Get Return Me.columneza_dyaAnmID End Get End Property _ Public ReadOnly Property eza_ANRColumn() As Global.System.Data.DataColumn Get Return Me.columneza_ANR End Get End Property _ Public ReadOnly Property eza_MRNColumn() As Global.System.Data.DataColumn Get Return Me.columneza_MRN End Get End Property _ Public ReadOnly Property eza_ErstellungColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Erstellung End Get End Property _ Public ReadOnly Property eza_Erstellung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Erstellung_SB End Get End Property _ Public ReadOnly Property eza_LetzteBearbeitungColumn() As Global.System.Data.DataColumn Get Return Me.columneza_LetzteBearbeitung End Get End Property _ Public ReadOnly Property eza_LetzteBearbeitung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columneza_LetzteBearbeitung_SB End Get End Property _ Public ReadOnly Property eza_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columneza_firma End Get End Property _ Public ReadOnly Property eza_niederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columneza_niederlassung End Get End Property _ Public ReadOnly Property eza_Trans_PartnerColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Trans_Partner End Get End Property _ Public ReadOnly Property eza_Trans_Div1Column() As Global.System.Data.DataColumn Get Return Me.columneza_Trans_Div1 End Get End Property _ Public ReadOnly Property eza_Trans_Div2Column() As Global.System.Data.DataColumn Get Return Me.columneza_Trans_Div2 End Get End Property _ Public ReadOnly Property eza_Trans_Div3Column() As Global.System.Data.DataColumn Get Return Me.columneza_Trans_Div3 End Get End Property _ Public ReadOnly Property eza_Trans_ReferenzColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Trans_Referenz End Get End Property _ Public ReadOnly Property eza_Trans_DatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Trans_DatumZeit End Get End Property _ Public ReadOnly Property eza_Trans_VersionColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Trans_Version End Get End Property _ Public ReadOnly Property eza_NachrichtenSenderTINColumn() As Global.System.Data.DataColumn Get Return Me.columneza_NachrichtenSenderTIN End Get End Property _ Public ReadOnly Property eza_NachrichtenSenderNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columneza_NachrichtenSenderNLNR End Get End Property _ Public ReadOnly Property eza_NachrichtenempfaengerDSTColumn() As Global.System.Data.DataColumn Get Return Me.columneza_NachrichtenempfaengerDST End Get End Property _ Public ReadOnly Property eza_ObjectNameColumn() As Global.System.Data.DataColumn Get Return Me.columneza_ObjectName End Get End Property _ Public ReadOnly Property eza_ObjectAliasColumn() As Global.System.Data.DataColumn Get Return Me.columneza_ObjectAlias End Get End Property _ Public ReadOnly Property eza_BezugsnummerVorblendungColumn() As Global.System.Data.DataColumn Get Return Me.columneza_BezugsnummerVorblendung End Get End Property _ Public ReadOnly Property eza_BearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Bearbeiter End Get End Property _ Public ReadOnly Property eza_AnmeldungArtColumn() As Global.System.Data.DataColumn Get Return Me.columneza_AnmeldungArt End Get End Property _ Public ReadOnly Property eza_CompliancePruefungColumn() As Global.System.Data.DataColumn Get Return Me.columneza_CompliancePruefung End Get End Property _ Public ReadOnly Property eza_AnfBemerkungStatusanzeigeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_AnfBemerkungStatusanzeige End Get End Property _ Public ReadOnly Property eza_AdressierteZollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columneza_AdressierteZollstelle End Get End Property _ Public ReadOnly Property eza_AnmelderistEmpfaengerColumn() As Global.System.Data.DataColumn Get Return Me.columneza_AnmelderistEmpfaenger End Get End Property _ Public ReadOnly Property eza_VertretungsVerhaeltnisCodeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_VertretungsVerhaeltnisCode End Get End Property _ Public ReadOnly Property eza_VorsteuerabzugColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Vorsteuerabzug End Get End Property _ Public ReadOnly Property eza_AnmeldenderBearbeiterNameColumn() As Global.System.Data.DataColumn Get Return Me.columneza_AnmeldenderBearbeiterName End Get End Property _ Public ReadOnly Property eza_AnmeldenderBearbeiterTelColumn() As Global.System.Data.DataColumn Get Return Me.columneza_AnmeldenderBearbeiterTel End Get End Property _ Public ReadOnly Property eza_AnmeldenderBearbeiterStellungColumn() As Global.System.Data.DataColumn Get Return Me.columneza_AnmeldenderBearbeiterStellung End Get End Property _ Public ReadOnly Property eza_AnmeldenderBearbeiterEMailColumn() As Global.System.Data.DataColumn Get Return Me.columneza_AnmeldenderBearbeiterEMail End Get End Property _ Public ReadOnly Property eza_FiskalvertretungKzColumn() As Global.System.Data.DataColumn Get Return Me.columneza_FiskalvertretungKz End Get End Property _ Public ReadOnly Property eza_AusstellungsortColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Ausstellungsort End Get End Property _ Public ReadOnly Property eza_ZollrechtlicherStatusColumn() As Global.System.Data.DataColumn Get Return Me.columneza_ZollrechtlicherStatus End Get End Property _ Public ReadOnly Property eza_GesamtRohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columneza_GesamtRohmasse End Get End Property _ Public ReadOnly Property eza_VerfahrenBeantragtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_VerfahrenBeantragtCode End Get End Property _ Public ReadOnly Property eza_VerkehrszweigInlandColumn() As Global.System.Data.DataColumn Get Return Me.columneza_VerkehrszweigInland End Get End Property _ Public ReadOnly Property eza_VerkehrszweigGrenzeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_VerkehrszweigGrenze End Get End Property _ Public ReadOnly Property eza_VersendungsLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_VersendungsLandCode End Get End Property _ Public ReadOnly Property eza_BestimmungsbundeslandColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Bestimmungsbundesland End Get End Property _ Public ReadOnly Property eza_BestimmungslandColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Bestimmungsland End Get End Property _ Public ReadOnly Property eza_KennzeichenNameBefoerderungsmittelAnkunftColumn() As Global.System.Data.DataColumn Get Return Me.columneza_KennzeichenNameBefoerderungsmittelAnkunft End Get End Property _ Public ReadOnly Property eza_BeförderungsmittelGrenzeStaatszugehörigkeitCodeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_BeförderungsmittelGrenzeStaatszugehörigkeitCode End Get End Property _ Public ReadOnly Property eza_BeförderungsmittelGrenzeArtColumn() As Global.System.Data.DataColumn Get Return Me.columneza_BeförderungsmittelGrenzeArt End Get End Property _ Public ReadOnly Property eza_BeförderungsmittelGrenzeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_BeförderungsmittelGrenze End Get End Property _ Public ReadOnly Property eza_LieferbedingungCodeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_LieferbedingungCode End Get End Property _ Public ReadOnly Property eza_LieferbedingungTextColumn() As Global.System.Data.DataColumn Get Return Me.columneza_LieferbedingungText End Get End Property _ Public ReadOnly Property eza_LieferbedingungSchluesselColumn() As Global.System.Data.DataColumn Get Return Me.columneza_LieferbedingungSchluessel End Get End Property _ Public ReadOnly Property eza_LieferbedingungOrtColumn() As Global.System.Data.DataColumn Get Return Me.columneza_LieferbedingungOrt End Get End Property _ Public ReadOnly Property eza_VorpapierArtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_VorpapierArtCode End Get End Property _ Public ReadOnly Property eza_VorpapierNrColumn() As Global.System.Data.DataColumn Get Return Me.columneza_VorpapierNr End Get End Property _ Public ReadOnly Property eza_ArtGeschaeftCodeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_ArtGeschaeftCode End Get End Property _ Public ReadOnly Property eza_StatistikstatusColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Statistikstatus End Get End Property _ Public ReadOnly Property eza_WarenortColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Warenort End Get End Property _ Public ReadOnly Property eza_RechnungspreisColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Rechnungspreis End Get End Property _ Public ReadOnly Property eza_RechnungswaehrungColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Rechnungswaehrung End Get End Property _ Public ReadOnly Property eza_DV1KzColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1Kz End Get End Property _ Public ReadOnly Property eza_DV1VertretungsverhaeltnisColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1Vertretungsverhaeltnis End Get End Property _ Public ReadOnly Property eza_DV1FruehereEntscheidungenColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1FruehereEntscheidungen End Get End Property _ Public ReadOnly Property eza_DV1VerbundenheitColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1Verbundenheit End Get End Property _ Public ReadOnly Property eza_DV1VerbungenheitEinzelheitenColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1VerbungenheitEinzelheiten End Get End Property _ Public ReadOnly Property eza_DV1EinschraenkungenKzColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1EinschraenkungenKz End Get End Property _ Public ReadOnly Property eza_DV1BedingungenLeistungenKzColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1BedingungenLeistungenKz End Get End Property _ Public ReadOnly Property eza_DV1BedingungenLeistungenArtColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1BedingungenLeistungenArt End Get End Property _ Public ReadOnly Property eza_DV1LizenzgebuehrenKzColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1LizenzgebuehrenKz End Get End Property _ Public ReadOnly Property eza_DV1LizenzgebuehrenUmstandColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1LizenzgebuehrenUmstand End Get End Property _ Public ReadOnly Property eza_DV1SpezielleVereinbarungKzColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1SpezielleVereinbarungKz End Get End Property _ Public ReadOnly Property eza_DV1SpezielleVereinbarungUmstandColumn() As Global.System.Data.DataColumn Get Return Me.columneza_DV1SpezielleVereinbarungUmstand End Get End Property _ Public ReadOnly Property eza_ZusatzangabenAnmeldungColumn() As Global.System.Data.DataColumn Get Return Me.columneza_ZusatzangabenAnmeldung End Get End Property _ Public ReadOnly Property eza_KzAutoBestaetigungColumn() As Global.System.Data.DataColumn Get Return Me.columneza_KzAutoBestaetigung End Get End Property _ Public ReadOnly Property eza_AnschreibungDatumColumn() As Global.System.Data.DataColumn Get Return Me.columneza_AnschreibungDatum End Get End Property _ Public ReadOnly Property eza_EingangszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Eingangszollstelle End Get End Property _ Public ReadOnly Property eza_ZahlungsartColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Zahlungsart End Get End Property _ Public ReadOnly Property eza_ContainerNr1Column() As Global.System.Data.DataColumn Get Return Me.columneza_ContainerNr1 End Get End Property _ Public ReadOnly Property eza_ContainerNr2Column() As Global.System.Data.DataColumn Get Return Me.columneza_ContainerNr2 End Get End Property _ Public ReadOnly Property eza_ContainerNr3Column() As Global.System.Data.DataColumn Get Return Me.columneza_ContainerNr3 End Get End Property _ Public ReadOnly Property eza_ContainerNr4Column() As Global.System.Data.DataColumn Get Return Me.columneza_ContainerNr4 End Get End Property _ Public ReadOnly Property eza_ContainerNr5Column() As Global.System.Data.DataColumn Get Return Me.columneza_ContainerNr5 End Get End Property _ Public ReadOnly Property eza_ContainerNr6Column() As Global.System.Data.DataColumn Get Return Me.columneza_ContainerNr6 End Get End Property _ Public ReadOnly Property eza_ContainerNr7Column() As Global.System.Data.DataColumn Get Return Me.columneza_ContainerNr7 End Get End Property _ Public ReadOnly Property eza_ContainerNr8Column() As Global.System.Data.DataColumn Get Return Me.columneza_ContainerNr8 End Get End Property _ Public ReadOnly Property eza_ContainerNr9Column() As Global.System.Data.DataColumn Get Return Me.columneza_ContainerNr9 End Get End Property _ Public ReadOnly Property eza_BeendigungsanteilArtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columneza_BeendigungsanteilArtCode End Get End Property _ Public ReadOnly Property eza_BewilligungsIDZLAVUVColumn() As Global.System.Data.DataColumn Get Return Me.columneza_BewilligungsIDZLAVUV End Get End Property _ Public ReadOnly Property eza_BezugsnummerBEAnteilZLColumn() As Global.System.Data.DataColumn Get Return Me.columneza_BezugsnummerBEAnteilZL End Get End Property _ Public ReadOnly Property eza_UstIdAnmelderColumn() As Global.System.Data.DataColumn Get Return Me.columneza_UstIdAnmelder End Get End Property _ Public ReadOnly Property eza_FinanzamtAnmelderColumn() As Global.System.Data.DataColumn Get Return Me.columneza_FinanzamtAnmelder End Get End Property _ Public ReadOnly Property eza_AnmeldedatumColumn() As Global.System.Data.DataColumn Get Return Me.columneza_Anmeldedatum 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 tblDakosy_EZARow Get Return CType(Me.Rows(index),tblDakosy_EZARow) End Get End Property _ Public Event tblDakosy_EZARowChanging As tblDakosy_EZARowChangeEventHandler _ Public Event tblDakosy_EZARowChanged As tblDakosy_EZARowChangeEventHandler _ Public Event tblDakosy_EZARowDeleting As tblDakosy_EZARowChangeEventHandler _ Public Event tblDakosy_EZARowDeleted As tblDakosy_EZARowChangeEventHandler _ Public Overloads Sub AddtblDakosy_EZARow(ByVal row As tblDakosy_EZARow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_EZARow( _ ByVal eza_Status As Integer, _ ByVal eza_Status_KEWILL_Equivalent As Integer, _ ByVal eza_dyaArt As String, _ ByVal eza_dyaAnmID As Integer, _ ByVal eza_ANR As String, _ ByVal eza_MRN As String, _ ByVal eza_Erstellung As Date, _ ByVal eza_Erstellung_SB As Integer, _ ByVal eza_LetzteBearbeitung As Date, _ ByVal eza_LetzteBearbeitung_SB As Integer, _ ByVal eza_firma As String, _ ByVal eza_niederlassung As String, _ ByVal eza_Trans_Partner As String, _ ByVal eza_Trans_Div1 As String, _ ByVal eza_Trans_Div2 As String, _ ByVal eza_Trans_Div3 As String, _ ByVal eza_Trans_Referenz As String, _ ByVal eza_Trans_DatumZeit As Date, _ ByVal eza_Trans_Version As Decimal, _ ByVal eza_NachrichtenSenderTIN As String, _ ByVal eza_NachrichtenSenderNLNR As String, _ ByVal eza_NachrichtenempfaengerDST As String, _ ByVal eza_ObjectName As String, _ ByVal eza_ObjectAlias As String, _ ByVal eza_BezugsnummerVorblendung As String, _ ByVal eza_Bearbeiter As String, _ ByVal eza_AnmeldungArt As String, _ ByVal eza_CompliancePruefung As String, _ ByVal eza_AnfBemerkungStatusanzeige As String, _ ByVal eza_AdressierteZollstelle As String, _ ByVal eza_AnmelderistEmpfaenger As String, _ ByVal eza_VertretungsVerhaeltnisCode As String, _ ByVal eza_Vorsteuerabzug As String, _ ByVal eza_AnmeldenderBearbeiterName As String, _ ByVal eza_AnmeldenderBearbeiterTel As String, _ ByVal eza_AnmeldenderBearbeiterStellung As String, _ ByVal eza_AnmeldenderBearbeiterEMail As String, _ ByVal eza_FiskalvertretungKz As String, _ ByVal eza_Ausstellungsort As String, _ ByVal eza_ZollrechtlicherStatus As String, _ ByVal eza_GesamtRohmasse As Decimal, _ ByVal eza_VerfahrenBeantragtCode As String, _ ByVal eza_VerkehrszweigInland As String, _ ByVal eza_VerkehrszweigGrenze As String, _ ByVal eza_VersendungsLandCode As String, _ ByVal eza_Bestimmungsbundesland As String, _ ByVal eza_Bestimmungsland As String, _ ByVal eza_KennzeichenNameBefoerderungsmittelAnkunft As String, _ ByVal eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode As String, _ ByVal eza_BeförderungsmittelGrenzeArt As String, _ ByVal eza_BeförderungsmittelGrenze As String, _ ByVal eza_LieferbedingungCode As String, _ ByVal eza_LieferbedingungText As String, _ ByVal eza_LieferbedingungSchluessel As String, _ ByVal eza_LieferbedingungOrt As String, _ ByVal eza_VorpapierArtCode As String, _ ByVal eza_VorpapierNr As String, _ ByVal eza_ArtGeschaeftCode As String, _ ByVal eza_Statistikstatus As String, _ ByVal eza_Warenort As String, _ ByVal eza_Rechnungspreis As Decimal, _ ByVal eza_Rechnungswaehrung As String, _ ByVal eza_DV1Kz As String, _ ByVal eza_DV1Vertretungsverhaeltnis As String, _ ByVal eza_DV1FruehereEntscheidungen As String, _ ByVal eza_DV1Verbundenheit As String, _ ByVal eza_DV1VerbungenheitEinzelheiten As String, _ ByVal eza_DV1EinschraenkungenKz As String, _ ByVal eza_DV1BedingungenLeistungenKz As String, _ ByVal eza_DV1BedingungenLeistungenArt As String, _ ByVal eza_DV1LizenzgebuehrenKz As String, _ ByVal eza_DV1LizenzgebuehrenUmstand As String, _ ByVal eza_DV1SpezielleVereinbarungKz As String, _ ByVal eza_DV1SpezielleVereinbarungUmstand As String, _ ByVal eza_ZusatzangabenAnmeldung As String, _ ByVal eza_KzAutoBestaetigung As String, _ ByVal eza_AnschreibungDatum As Date, _ ByVal eza_Eingangszollstelle As String, _ ByVal eza_Zahlungsart As String, _ ByVal eza_ContainerNr1 As String, _ ByVal eza_ContainerNr2 As String, _ ByVal eza_ContainerNr3 As String, _ ByVal eza_ContainerNr4 As String, _ ByVal eza_ContainerNr5 As String, _ ByVal eza_ContainerNr6 As String, _ ByVal eza_ContainerNr7 As String, _ ByVal eza_ContainerNr8 As String, _ ByVal eza_ContainerNr9 As String, _ ByVal eza_BeendigungsanteilArtCode As String, _ ByVal eza_BewilligungsIDZLAVUV As String, _ ByVal eza_BezugsnummerBEAnteilZL As String, _ ByVal eza_UstIdAnmelder As String, _ ByVal eza_FinanzamtAnmelder As String, _ ByVal eza_Anmeldedatum As Date) As tblDakosy_EZARow Dim rowtblDakosy_EZARow As tblDakosy_EZARow = CType(Me.NewRow,tblDakosy_EZARow) Dim columnValuesArray() As Object = New Object() {Nothing, eza_Status, eza_Status_KEWILL_Equivalent, eza_dyaArt, eza_dyaAnmID, eza_ANR, eza_MRN, eza_Erstellung, eza_Erstellung_SB, eza_LetzteBearbeitung, eza_LetzteBearbeitung_SB, eza_firma, eza_niederlassung, eza_Trans_Partner, eza_Trans_Div1, eza_Trans_Div2, eza_Trans_Div3, eza_Trans_Referenz, eza_Trans_DatumZeit, eza_Trans_Version, eza_NachrichtenSenderTIN, eza_NachrichtenSenderNLNR, eza_NachrichtenempfaengerDST, eza_ObjectName, eza_ObjectAlias, eza_BezugsnummerVorblendung, eza_Bearbeiter, eza_AnmeldungArt, eza_CompliancePruefung, eza_AnfBemerkungStatusanzeige, eza_AdressierteZollstelle, eza_AnmelderistEmpfaenger, eza_VertretungsVerhaeltnisCode, eza_Vorsteuerabzug, eza_AnmeldenderBearbeiterName, eza_AnmeldenderBearbeiterTel, eza_AnmeldenderBearbeiterStellung, eza_AnmeldenderBearbeiterEMail, eza_FiskalvertretungKz, eza_Ausstellungsort, eza_ZollrechtlicherStatus, eza_GesamtRohmasse, eza_VerfahrenBeantragtCode, eza_VerkehrszweigInland, eza_VerkehrszweigGrenze, eza_VersendungsLandCode, eza_Bestimmungsbundesland, eza_Bestimmungsland, eza_KennzeichenNameBefoerderungsmittelAnkunft, eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode, eza_BeförderungsmittelGrenzeArt, eza_BeförderungsmittelGrenze, eza_LieferbedingungCode, eza_LieferbedingungText, eza_LieferbedingungSchluessel, eza_LieferbedingungOrt, eza_VorpapierArtCode, eza_VorpapierNr, eza_ArtGeschaeftCode, eza_Statistikstatus, eza_Warenort, eza_Rechnungspreis, eza_Rechnungswaehrung, eza_DV1Kz, eza_DV1Vertretungsverhaeltnis, eza_DV1FruehereEntscheidungen, eza_DV1Verbundenheit, eza_DV1VerbungenheitEinzelheiten, eza_DV1EinschraenkungenKz, eza_DV1BedingungenLeistungenKz, eza_DV1BedingungenLeistungenArt, eza_DV1LizenzgebuehrenKz, eza_DV1LizenzgebuehrenUmstand, eza_DV1SpezielleVereinbarungKz, eza_DV1SpezielleVereinbarungUmstand, eza_ZusatzangabenAnmeldung, eza_KzAutoBestaetigung, eza_AnschreibungDatum, eza_Eingangszollstelle, eza_Zahlungsart, eza_ContainerNr1, eza_ContainerNr2, eza_ContainerNr3, eza_ContainerNr4, eza_ContainerNr5, eza_ContainerNr6, eza_ContainerNr7, eza_ContainerNr8, eza_ContainerNr9, eza_BeendigungsanteilArtCode, eza_BewilligungsIDZLAVUV, eza_BezugsnummerBEAnteilZL, eza_UstIdAnmelder, eza_FinanzamtAnmelder, eza_Anmeldedatum} rowtblDakosy_EZARow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_EZARow) Return rowtblDakosy_EZARow End Function _ Public Function FindByeza_Id(ByVal eza_Id As Integer) As tblDakosy_EZARow Return CType(Me.Rows.Find(New Object() {eza_Id}),tblDakosy_EZARow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_EZADataTable = CType(MyBase.Clone,tblDakosy_EZADataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_EZADataTable() End Function _ Friend Sub InitVars() Me.columneza_Id = MyBase.Columns("eza_Id") Me.columneza_Status = MyBase.Columns("eza_Status") Me.columneza_Status_KEWILL_Equivalent = MyBase.Columns("eza_Status_KEWILL_Equivalent") Me.columneza_dyaArt = MyBase.Columns("eza_dyaArt") Me.columneza_dyaAnmID = MyBase.Columns("eza_dyaAnmID") Me.columneza_ANR = MyBase.Columns("eza_ANR") Me.columneza_MRN = MyBase.Columns("eza_MRN") Me.columneza_Erstellung = MyBase.Columns("eza_Erstellung") Me.columneza_Erstellung_SB = MyBase.Columns("eza_Erstellung_SB") Me.columneza_LetzteBearbeitung = MyBase.Columns("eza_LetzteBearbeitung") Me.columneza_LetzteBearbeitung_SB = MyBase.Columns("eza_LetzteBearbeitung_SB") Me.columneza_firma = MyBase.Columns("eza_firma") Me.columneza_niederlassung = MyBase.Columns("eza_niederlassung") Me.columneza_Trans_Partner = MyBase.Columns("eza_Trans_Partner") Me.columneza_Trans_Div1 = MyBase.Columns("eza_Trans_Div1") Me.columneza_Trans_Div2 = MyBase.Columns("eza_Trans_Div2") Me.columneza_Trans_Div3 = MyBase.Columns("eza_Trans_Div3") Me.columneza_Trans_Referenz = MyBase.Columns("eza_Trans_Referenz") Me.columneza_Trans_DatumZeit = MyBase.Columns("eza_Trans_DatumZeit") Me.columneza_Trans_Version = MyBase.Columns("eza_Trans_Version") Me.columneza_NachrichtenSenderTIN = MyBase.Columns("eza_NachrichtenSenderTIN") Me.columneza_NachrichtenSenderNLNR = MyBase.Columns("eza_NachrichtenSenderNLNR") Me.columneza_NachrichtenempfaengerDST = MyBase.Columns("eza_NachrichtenempfaengerDST") Me.columneza_ObjectName = MyBase.Columns("eza_ObjectName") Me.columneza_ObjectAlias = MyBase.Columns("eza_ObjectAlias") Me.columneza_BezugsnummerVorblendung = MyBase.Columns("eza_BezugsnummerVorblendung") Me.columneza_Bearbeiter = MyBase.Columns("eza_Bearbeiter") Me.columneza_AnmeldungArt = MyBase.Columns("eza_AnmeldungArt") Me.columneza_CompliancePruefung = MyBase.Columns("eza_CompliancePruefung") Me.columneza_AnfBemerkungStatusanzeige = MyBase.Columns("eza_AnfBemerkungStatusanzeige") Me.columneza_AdressierteZollstelle = MyBase.Columns("eza_AdressierteZollstelle") Me.columneza_AnmelderistEmpfaenger = MyBase.Columns("eza_AnmelderistEmpfaenger") Me.columneza_VertretungsVerhaeltnisCode = MyBase.Columns("eza_VertretungsVerhaeltnisCode") Me.columneza_Vorsteuerabzug = MyBase.Columns("eza_Vorsteuerabzug") Me.columneza_AnmeldenderBearbeiterName = MyBase.Columns("eza_AnmeldenderBearbeiterName") Me.columneza_AnmeldenderBearbeiterTel = MyBase.Columns("eza_AnmeldenderBearbeiterTel") Me.columneza_AnmeldenderBearbeiterStellung = MyBase.Columns("eza_AnmeldenderBearbeiterStellung") Me.columneza_AnmeldenderBearbeiterEMail = MyBase.Columns("eza_AnmeldenderBearbeiterEMail") Me.columneza_FiskalvertretungKz = MyBase.Columns("eza_FiskalvertretungKz") Me.columneza_Ausstellungsort = MyBase.Columns("eza_Ausstellungsort") Me.columneza_ZollrechtlicherStatus = MyBase.Columns("eza_ZollrechtlicherStatus") Me.columneza_GesamtRohmasse = MyBase.Columns("eza_GesamtRohmasse") Me.columneza_VerfahrenBeantragtCode = MyBase.Columns("eza_VerfahrenBeantragtCode") Me.columneza_VerkehrszweigInland = MyBase.Columns("eza_VerkehrszweigInland") Me.columneza_VerkehrszweigGrenze = MyBase.Columns("eza_VerkehrszweigGrenze") Me.columneza_VersendungsLandCode = MyBase.Columns("eza_VersendungsLandCode") Me.columneza_Bestimmungsbundesland = MyBase.Columns("eza_Bestimmungsbundesland") Me.columneza_Bestimmungsland = MyBase.Columns("eza_Bestimmungsland") Me.columneza_KennzeichenNameBefoerderungsmittelAnkunft = MyBase.Columns("eza_KennzeichenNameBefoerderungsmittelAnkunft") Me.columneza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = MyBase.Columns("eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode") Me.columneza_BeförderungsmittelGrenzeArt = MyBase.Columns("eza_BeförderungsmittelGrenzeArt") Me.columneza_BeförderungsmittelGrenze = MyBase.Columns("eza_BeförderungsmittelGrenze") Me.columneza_LieferbedingungCode = MyBase.Columns("eza_LieferbedingungCode") Me.columneza_LieferbedingungText = MyBase.Columns("eza_LieferbedingungText") Me.columneza_LieferbedingungSchluessel = MyBase.Columns("eza_LieferbedingungSchluessel") Me.columneza_LieferbedingungOrt = MyBase.Columns("eza_LieferbedingungOrt") Me.columneza_VorpapierArtCode = MyBase.Columns("eza_VorpapierArtCode") Me.columneza_VorpapierNr = MyBase.Columns("eza_VorpapierNr") Me.columneza_ArtGeschaeftCode = MyBase.Columns("eza_ArtGeschaeftCode") Me.columneza_Statistikstatus = MyBase.Columns("eza_Statistikstatus") Me.columneza_Warenort = MyBase.Columns("eza_Warenort") Me.columneza_Rechnungspreis = MyBase.Columns("eza_Rechnungspreis") Me.columneza_Rechnungswaehrung = MyBase.Columns("eza_Rechnungswaehrung") Me.columneza_DV1Kz = MyBase.Columns("eza_DV1Kz") Me.columneza_DV1Vertretungsverhaeltnis = MyBase.Columns("eza_DV1Vertretungsverhaeltnis") Me.columneza_DV1FruehereEntscheidungen = MyBase.Columns("eza_DV1FruehereEntscheidungen") Me.columneza_DV1Verbundenheit = MyBase.Columns("eza_DV1Verbundenheit") Me.columneza_DV1VerbungenheitEinzelheiten = MyBase.Columns("eza_DV1VerbungenheitEinzelheiten") Me.columneza_DV1EinschraenkungenKz = MyBase.Columns("eza_DV1EinschraenkungenKz") Me.columneza_DV1BedingungenLeistungenKz = MyBase.Columns("eza_DV1BedingungenLeistungenKz") Me.columneza_DV1BedingungenLeistungenArt = MyBase.Columns("eza_DV1BedingungenLeistungenArt") Me.columneza_DV1LizenzgebuehrenKz = MyBase.Columns("eza_DV1LizenzgebuehrenKz") Me.columneza_DV1LizenzgebuehrenUmstand = MyBase.Columns("eza_DV1LizenzgebuehrenUmstand") Me.columneza_DV1SpezielleVereinbarungKz = MyBase.Columns("eza_DV1SpezielleVereinbarungKz") Me.columneza_DV1SpezielleVereinbarungUmstand = MyBase.Columns("eza_DV1SpezielleVereinbarungUmstand") Me.columneza_ZusatzangabenAnmeldung = MyBase.Columns("eza_ZusatzangabenAnmeldung") Me.columneza_KzAutoBestaetigung = MyBase.Columns("eza_KzAutoBestaetigung") Me.columneza_AnschreibungDatum = MyBase.Columns("eza_AnschreibungDatum") Me.columneza_Eingangszollstelle = MyBase.Columns("eza_Eingangszollstelle") Me.columneza_Zahlungsart = MyBase.Columns("eza_Zahlungsart") Me.columneza_ContainerNr1 = MyBase.Columns("eza_ContainerNr1") Me.columneza_ContainerNr2 = MyBase.Columns("eza_ContainerNr2") Me.columneza_ContainerNr3 = MyBase.Columns("eza_ContainerNr3") Me.columneza_ContainerNr4 = MyBase.Columns("eza_ContainerNr4") Me.columneza_ContainerNr5 = MyBase.Columns("eza_ContainerNr5") Me.columneza_ContainerNr6 = MyBase.Columns("eza_ContainerNr6") Me.columneza_ContainerNr7 = MyBase.Columns("eza_ContainerNr7") Me.columneza_ContainerNr8 = MyBase.Columns("eza_ContainerNr8") Me.columneza_ContainerNr9 = MyBase.Columns("eza_ContainerNr9") Me.columneza_BeendigungsanteilArtCode = MyBase.Columns("eza_BeendigungsanteilArtCode") Me.columneza_BewilligungsIDZLAVUV = MyBase.Columns("eza_BewilligungsIDZLAVUV") Me.columneza_BezugsnummerBEAnteilZL = MyBase.Columns("eza_BezugsnummerBEAnteilZL") Me.columneza_UstIdAnmelder = MyBase.Columns("eza_UstIdAnmelder") Me.columneza_FinanzamtAnmelder = MyBase.Columns("eza_FinanzamtAnmelder") Me.columneza_Anmeldedatum = MyBase.Columns("eza_Anmeldedatum") End Sub _ Private Sub InitClass() Me.columneza_Id = New Global.System.Data.DataColumn("eza_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Id) Me.columneza_Status = New Global.System.Data.DataColumn("eza_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Status) Me.columneza_Status_KEWILL_Equivalent = New Global.System.Data.DataColumn("eza_Status_KEWILL_Equivalent", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Status_KEWILL_Equivalent) Me.columneza_dyaArt = New Global.System.Data.DataColumn("eza_dyaArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_dyaArt) Me.columneza_dyaAnmID = New Global.System.Data.DataColumn("eza_dyaAnmID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_dyaAnmID) Me.columneza_ANR = New Global.System.Data.DataColumn("eza_ANR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ANR) Me.columneza_MRN = New Global.System.Data.DataColumn("eza_MRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_MRN) Me.columneza_Erstellung = New Global.System.Data.DataColumn("eza_Erstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Erstellung) Me.columneza_Erstellung_SB = New Global.System.Data.DataColumn("eza_Erstellung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Erstellung_SB) Me.columneza_LetzteBearbeitung = New Global.System.Data.DataColumn("eza_LetzteBearbeitung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_LetzteBearbeitung) Me.columneza_LetzteBearbeitung_SB = New Global.System.Data.DataColumn("eza_LetzteBearbeitung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_LetzteBearbeitung_SB) Me.columneza_firma = New Global.System.Data.DataColumn("eza_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_firma) Me.columneza_niederlassung = New Global.System.Data.DataColumn("eza_niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_niederlassung) Me.columneza_Trans_Partner = New Global.System.Data.DataColumn("eza_Trans_Partner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Trans_Partner) Me.columneza_Trans_Div1 = New Global.System.Data.DataColumn("eza_Trans_Div1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Trans_Div1) Me.columneza_Trans_Div2 = New Global.System.Data.DataColumn("eza_Trans_Div2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Trans_Div2) Me.columneza_Trans_Div3 = New Global.System.Data.DataColumn("eza_Trans_Div3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Trans_Div3) Me.columneza_Trans_Referenz = New Global.System.Data.DataColumn("eza_Trans_Referenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Trans_Referenz) Me.columneza_Trans_DatumZeit = New Global.System.Data.DataColumn("eza_Trans_DatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Trans_DatumZeit) Me.columneza_Trans_Version = New Global.System.Data.DataColumn("eza_Trans_Version", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Trans_Version) Me.columneza_NachrichtenSenderTIN = New Global.System.Data.DataColumn("eza_NachrichtenSenderTIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_NachrichtenSenderTIN) Me.columneza_NachrichtenSenderNLNR = New Global.System.Data.DataColumn("eza_NachrichtenSenderNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_NachrichtenSenderNLNR) Me.columneza_NachrichtenempfaengerDST = New Global.System.Data.DataColumn("eza_NachrichtenempfaengerDST", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_NachrichtenempfaengerDST) Me.columneza_ObjectName = New Global.System.Data.DataColumn("eza_ObjectName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ObjectName) Me.columneza_ObjectAlias = New Global.System.Data.DataColumn("eza_ObjectAlias", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ObjectAlias) Me.columneza_BezugsnummerVorblendung = New Global.System.Data.DataColumn("eza_BezugsnummerVorblendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_BezugsnummerVorblendung) Me.columneza_Bearbeiter = New Global.System.Data.DataColumn("eza_Bearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Bearbeiter) Me.columneza_AnmeldungArt = New Global.System.Data.DataColumn("eza_AnmeldungArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_AnmeldungArt) Me.columneza_CompliancePruefung = New Global.System.Data.DataColumn("eza_CompliancePruefung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_CompliancePruefung) Me.columneza_AnfBemerkungStatusanzeige = New Global.System.Data.DataColumn("eza_AnfBemerkungStatusanzeige", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_AnfBemerkungStatusanzeige) Me.columneza_AdressierteZollstelle = New Global.System.Data.DataColumn("eza_AdressierteZollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_AdressierteZollstelle) Me.columneza_AnmelderistEmpfaenger = New Global.System.Data.DataColumn("eza_AnmelderistEmpfaenger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_AnmelderistEmpfaenger) Me.columneza_VertretungsVerhaeltnisCode = New Global.System.Data.DataColumn("eza_VertretungsVerhaeltnisCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_VertretungsVerhaeltnisCode) Me.columneza_Vorsteuerabzug = New Global.System.Data.DataColumn("eza_Vorsteuerabzug", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Vorsteuerabzug) Me.columneza_AnmeldenderBearbeiterName = New Global.System.Data.DataColumn("eza_AnmeldenderBearbeiterName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_AnmeldenderBearbeiterName) Me.columneza_AnmeldenderBearbeiterTel = New Global.System.Data.DataColumn("eza_AnmeldenderBearbeiterTel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_AnmeldenderBearbeiterTel) Me.columneza_AnmeldenderBearbeiterStellung = New Global.System.Data.DataColumn("eza_AnmeldenderBearbeiterStellung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_AnmeldenderBearbeiterStellung) Me.columneza_AnmeldenderBearbeiterEMail = New Global.System.Data.DataColumn("eza_AnmeldenderBearbeiterEMail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_AnmeldenderBearbeiterEMail) Me.columneza_FiskalvertretungKz = New Global.System.Data.DataColumn("eza_FiskalvertretungKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_FiskalvertretungKz) Me.columneza_Ausstellungsort = New Global.System.Data.DataColumn("eza_Ausstellungsort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Ausstellungsort) Me.columneza_ZollrechtlicherStatus = New Global.System.Data.DataColumn("eza_ZollrechtlicherStatus", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ZollrechtlicherStatus) Me.columneza_GesamtRohmasse = New Global.System.Data.DataColumn("eza_GesamtRohmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_GesamtRohmasse) Me.columneza_VerfahrenBeantragtCode = New Global.System.Data.DataColumn("eza_VerfahrenBeantragtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_VerfahrenBeantragtCode) Me.columneza_VerkehrszweigInland = New Global.System.Data.DataColumn("eza_VerkehrszweigInland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_VerkehrszweigInland) Me.columneza_VerkehrszweigGrenze = New Global.System.Data.DataColumn("eza_VerkehrszweigGrenze", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_VerkehrszweigGrenze) Me.columneza_VersendungsLandCode = New Global.System.Data.DataColumn("eza_VersendungsLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_VersendungsLandCode) Me.columneza_Bestimmungsbundesland = New Global.System.Data.DataColumn("eza_Bestimmungsbundesland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Bestimmungsbundesland) Me.columneza_Bestimmungsland = New Global.System.Data.DataColumn("eza_Bestimmungsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Bestimmungsland) Me.columneza_KennzeichenNameBefoerderungsmittelAnkunft = New Global.System.Data.DataColumn("eza_KennzeichenNameBefoerderungsmittelAnkunft", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_KennzeichenNameBefoerderungsmittelAnkunft) Me.columneza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = New Global.System.Data.DataColumn("eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_BeförderungsmittelGrenzeStaatszugehörigkeitCode) Me.columneza_BeförderungsmittelGrenzeArt = New Global.System.Data.DataColumn("eza_BeförderungsmittelGrenzeArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_BeförderungsmittelGrenzeArt) Me.columneza_BeförderungsmittelGrenze = New Global.System.Data.DataColumn("eza_BeförderungsmittelGrenze", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_BeförderungsmittelGrenze) Me.columneza_LieferbedingungCode = New Global.System.Data.DataColumn("eza_LieferbedingungCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_LieferbedingungCode) Me.columneza_LieferbedingungText = New Global.System.Data.DataColumn("eza_LieferbedingungText", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_LieferbedingungText) Me.columneza_LieferbedingungSchluessel = New Global.System.Data.DataColumn("eza_LieferbedingungSchluessel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_LieferbedingungSchluessel) Me.columneza_LieferbedingungOrt = New Global.System.Data.DataColumn("eza_LieferbedingungOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_LieferbedingungOrt) Me.columneza_VorpapierArtCode = New Global.System.Data.DataColumn("eza_VorpapierArtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_VorpapierArtCode) Me.columneza_VorpapierNr = New Global.System.Data.DataColumn("eza_VorpapierNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_VorpapierNr) Me.columneza_ArtGeschaeftCode = New Global.System.Data.DataColumn("eza_ArtGeschaeftCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ArtGeschaeftCode) Me.columneza_Statistikstatus = New Global.System.Data.DataColumn("eza_Statistikstatus", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Statistikstatus) Me.columneza_Warenort = New Global.System.Data.DataColumn("eza_Warenort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Warenort) Me.columneza_Rechnungspreis = New Global.System.Data.DataColumn("eza_Rechnungspreis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Rechnungspreis) Me.columneza_Rechnungswaehrung = New Global.System.Data.DataColumn("eza_Rechnungswaehrung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Rechnungswaehrung) Me.columneza_DV1Kz = New Global.System.Data.DataColumn("eza_DV1Kz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1Kz) Me.columneza_DV1Vertretungsverhaeltnis = New Global.System.Data.DataColumn("eza_DV1Vertretungsverhaeltnis", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1Vertretungsverhaeltnis) Me.columneza_DV1FruehereEntscheidungen = New Global.System.Data.DataColumn("eza_DV1FruehereEntscheidungen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1FruehereEntscheidungen) Me.columneza_DV1Verbundenheit = New Global.System.Data.DataColumn("eza_DV1Verbundenheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1Verbundenheit) Me.columneza_DV1VerbungenheitEinzelheiten = New Global.System.Data.DataColumn("eza_DV1VerbungenheitEinzelheiten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1VerbungenheitEinzelheiten) Me.columneza_DV1EinschraenkungenKz = New Global.System.Data.DataColumn("eza_DV1EinschraenkungenKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1EinschraenkungenKz) Me.columneza_DV1BedingungenLeistungenKz = New Global.System.Data.DataColumn("eza_DV1BedingungenLeistungenKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1BedingungenLeistungenKz) Me.columneza_DV1BedingungenLeistungenArt = New Global.System.Data.DataColumn("eza_DV1BedingungenLeistungenArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1BedingungenLeistungenArt) Me.columneza_DV1LizenzgebuehrenKz = New Global.System.Data.DataColumn("eza_DV1LizenzgebuehrenKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1LizenzgebuehrenKz) Me.columneza_DV1LizenzgebuehrenUmstand = New Global.System.Data.DataColumn("eza_DV1LizenzgebuehrenUmstand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1LizenzgebuehrenUmstand) Me.columneza_DV1SpezielleVereinbarungKz = New Global.System.Data.DataColumn("eza_DV1SpezielleVereinbarungKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1SpezielleVereinbarungKz) Me.columneza_DV1SpezielleVereinbarungUmstand = New Global.System.Data.DataColumn("eza_DV1SpezielleVereinbarungUmstand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_DV1SpezielleVereinbarungUmstand) Me.columneza_ZusatzangabenAnmeldung = New Global.System.Data.DataColumn("eza_ZusatzangabenAnmeldung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ZusatzangabenAnmeldung) Me.columneza_KzAutoBestaetigung = New Global.System.Data.DataColumn("eza_KzAutoBestaetigung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_KzAutoBestaetigung) Me.columneza_AnschreibungDatum = New Global.System.Data.DataColumn("eza_AnschreibungDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_AnschreibungDatum) Me.columneza_Eingangszollstelle = New Global.System.Data.DataColumn("eza_Eingangszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Eingangszollstelle) Me.columneza_Zahlungsart = New Global.System.Data.DataColumn("eza_Zahlungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Zahlungsart) Me.columneza_ContainerNr1 = New Global.System.Data.DataColumn("eza_ContainerNr1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ContainerNr1) Me.columneza_ContainerNr2 = New Global.System.Data.DataColumn("eza_ContainerNr2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ContainerNr2) Me.columneza_ContainerNr3 = New Global.System.Data.DataColumn("eza_ContainerNr3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ContainerNr3) Me.columneza_ContainerNr4 = New Global.System.Data.DataColumn("eza_ContainerNr4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ContainerNr4) Me.columneza_ContainerNr5 = New Global.System.Data.DataColumn("eza_ContainerNr5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ContainerNr5) Me.columneza_ContainerNr6 = New Global.System.Data.DataColumn("eza_ContainerNr6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ContainerNr6) Me.columneza_ContainerNr7 = New Global.System.Data.DataColumn("eza_ContainerNr7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ContainerNr7) Me.columneza_ContainerNr8 = New Global.System.Data.DataColumn("eza_ContainerNr8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ContainerNr8) Me.columneza_ContainerNr9 = New Global.System.Data.DataColumn("eza_ContainerNr9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_ContainerNr9) Me.columneza_BeendigungsanteilArtCode = New Global.System.Data.DataColumn("eza_BeendigungsanteilArtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_BeendigungsanteilArtCode) Me.columneza_BewilligungsIDZLAVUV = New Global.System.Data.DataColumn("eza_BewilligungsIDZLAVUV", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_BewilligungsIDZLAVUV) Me.columneza_BezugsnummerBEAnteilZL = New Global.System.Data.DataColumn("eza_BezugsnummerBEAnteilZL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_BezugsnummerBEAnteilZL) Me.columneza_UstIdAnmelder = New Global.System.Data.DataColumn("eza_UstIdAnmelder", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_UstIdAnmelder) Me.columneza_FinanzamtAnmelder = New Global.System.Data.DataColumn("eza_FinanzamtAnmelder", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_FinanzamtAnmelder) Me.columneza_Anmeldedatum = New Global.System.Data.DataColumn("eza_Anmeldedatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneza_Anmeldedatum) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columneza_Id}, true)) Me.columneza_Id.AutoIncrement = true Me.columneza_Id.AutoIncrementSeed = -1 Me.columneza_Id.AutoIncrementStep = -1 Me.columneza_Id.AllowDBNull = false Me.columneza_Id.ReadOnly = true Me.columneza_Id.Unique = true Me.columneza_Status.AllowDBNull = false Me.columneza_Status_KEWILL_Equivalent.AllowDBNull = false Me.columneza_dyaArt.AllowDBNull = false Me.columneza_dyaArt.MaxLength = 50 Me.columneza_dyaAnmID.AllowDBNull = false Me.columneza_ANR.MaxLength = 35 Me.columneza_MRN.MaxLength = 35 Me.columneza_Erstellung.AllowDBNull = false Me.columneza_LetzteBearbeitung.AllowDBNull = false Me.columneza_firma.MaxLength = 10 Me.columneza_niederlassung.MaxLength = 10 Me.columneza_Trans_Partner.MaxLength = 10 Me.columneza_Trans_Div1.MaxLength = 10 Me.columneza_Trans_Div2.MaxLength = 10 Me.columneza_Trans_Div3.MaxLength = 10 Me.columneza_Trans_Referenz.MaxLength = 35 Me.columneza_NachrichtenSenderTIN.MaxLength = 17 Me.columneza_NachrichtenSenderNLNR.MaxLength = 4 Me.columneza_NachrichtenempfaengerDST.MaxLength = 8 Me.columneza_ObjectName.MaxLength = 35 Me.columneza_ObjectAlias.MaxLength = 35 Me.columneza_BezugsnummerVorblendung.MaxLength = 35 Me.columneza_Bearbeiter.MaxLength = 20 Me.columneza_AnmeldungArt.MaxLength = 5 Me.columneza_CompliancePruefung.MaxLength = 3 Me.columneza_AnfBemerkungStatusanzeige.MaxLength = 17 Me.columneza_AdressierteZollstelle.MaxLength = 4 Me.columneza_AnmelderistEmpfaenger.MaxLength = 1 Me.columneza_VertretungsVerhaeltnisCode.MaxLength = 1 Me.columneza_Vorsteuerabzug.MaxLength = 1 Me.columneza_AnmeldenderBearbeiterName.MaxLength = 35 Me.columneza_AnmeldenderBearbeiterTel.MaxLength = 35 Me.columneza_AnmeldenderBearbeiterStellung.MaxLength = 35 Me.columneza_AnmeldenderBearbeiterEMail.MaxLength = 256 Me.columneza_FiskalvertretungKz.MaxLength = 1 Me.columneza_Ausstellungsort.MaxLength = 35 Me.columneza_ZollrechtlicherStatus.MaxLength = 2 Me.columneza_VerfahrenBeantragtCode.MaxLength = 2 Me.columneza_VerkehrszweigInland.MaxLength = 1 Me.columneza_VerkehrszweigGrenze.MaxLength = 1 Me.columneza_VersendungsLandCode.MaxLength = 2 Me.columneza_Bestimmungsbundesland.MaxLength = 2 Me.columneza_Bestimmungsland.MaxLength = 2 Me.columneza_KennzeichenNameBefoerderungsmittelAnkunft.MaxLength = 30 Me.columneza_BeförderungsmittelGrenzeStaatszugehörigkeitCode.MaxLength = 2 Me.columneza_BeförderungsmittelGrenzeArt.MaxLength = 2 Me.columneza_BeförderungsmittelGrenze.MaxLength = 17 Me.columneza_LieferbedingungCode.MaxLength = 3 Me.columneza_LieferbedingungText.MaxLength = 100 Me.columneza_LieferbedingungSchluessel.MaxLength = 1 Me.columneza_LieferbedingungOrt.MaxLength = 35 Me.columneza_VorpapierArtCode.MaxLength = 6 Me.columneza_VorpapierNr.MaxLength = 28 Me.columneza_ArtGeschaeftCode.MaxLength = 2 Me.columneza_Statistikstatus.MaxLength = 2 Me.columneza_Warenort.MaxLength = 35 Me.columneza_Rechnungswaehrung.MaxLength = 3 Me.columneza_DV1Kz.MaxLength = 1 Me.columneza_DV1Vertretungsverhaeltnis.MaxLength = 1 Me.columneza_DV1FruehereEntscheidungen.MaxLength = 100 Me.columneza_DV1Verbundenheit.MaxLength = 1 Me.columneza_DV1VerbungenheitEinzelheiten.MaxLength = 100 Me.columneza_DV1EinschraenkungenKz.MaxLength = 1 Me.columneza_DV1BedingungenLeistungenKz.MaxLength = 1 Me.columneza_DV1BedingungenLeistungenArt.MaxLength = 100 Me.columneza_DV1LizenzgebuehrenKz.MaxLength = 1 Me.columneza_DV1LizenzgebuehrenUmstand.MaxLength = 100 Me.columneza_DV1SpezielleVereinbarungKz.MaxLength = 1 Me.columneza_DV1SpezielleVereinbarungUmstand.MaxLength = 100 Me.columneza_ZusatzangabenAnmeldung.MaxLength = 2000 Me.columneza_KzAutoBestaetigung.MaxLength = 1 Me.columneza_Eingangszollstelle.MaxLength = 8 Me.columneza_Zahlungsart.MaxLength = 1 Me.columneza_ContainerNr1.MaxLength = 11 Me.columneza_ContainerNr2.MaxLength = 11 Me.columneza_ContainerNr3.MaxLength = 11 Me.columneza_ContainerNr4.MaxLength = 11 Me.columneza_ContainerNr5.MaxLength = 11 Me.columneza_ContainerNr6.MaxLength = 11 Me.columneza_ContainerNr7.MaxLength = 11 Me.columneza_ContainerNr8.MaxLength = 11 Me.columneza_ContainerNr9.MaxLength = 11 Me.columneza_BeendigungsanteilArtCode.MaxLength = 10 Me.columneza_BewilligungsIDZLAVUV.MaxLength = 35 Me.columneza_BezugsnummerBEAnteilZL.MaxLength = 35 Me.columneza_UstIdAnmelder.MaxLength = 14 Me.columneza_FinanzamtAnmelder.MaxLength = 4 End Sub _ Public Function NewtblDakosy_EZARow() As tblDakosy_EZARow Return CType(Me.NewRow,tblDakosy_EZARow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_EZARow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_EZARow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_EZARowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZARowChanged(Me, New tblDakosy_EZARowChangeEvent(CType(e.Row,tblDakosy_EZARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_EZARowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZARowChanging(Me, New tblDakosy_EZARowChangeEvent(CType(e.Row,tblDakosy_EZARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_EZARowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZARowDeleted(Me, New tblDakosy_EZARowChangeEvent(CType(e.Row,tblDakosy_EZARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_EZARowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZARowDeleting(Me, New tblDakosy_EZARowChangeEvent(CType(e.Row,tblDakosy_EZARow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_EZARow(ByVal row As tblDakosy_EZARow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_EZADataTable" 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 tblDakosy_EZA_AdressenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_EZA_AdressenRow) Private columnezaAd_Id As Global.System.Data.DataColumn Private columnezaAd_EZAId As Global.System.Data.DataColumn Private columnezaAd_AdressTyp As Global.System.Data.DataColumn Private columnezaAd_AdressCode As Global.System.Data.DataColumn Private columnezaAd_TeilnehmerEORI As Global.System.Data.DataColumn Private columnezaAd_TeilnehmerNLNR As Global.System.Data.DataColumn Private columnezaAd_NameFirma1 As Global.System.Data.DataColumn Private columnezaAd_NameFirma2 As Global.System.Data.DataColumn Private columnezaAd_NameFirma3 As Global.System.Data.DataColumn Private columnezaAd_StrasseHausNr1 As Global.System.Data.DataColumn Private columnezaAd_StrasseHausNr2 As Global.System.Data.DataColumn Private columnezaAd_Ortsteil As Global.System.Data.DataColumn Private columnezaAd_LandCode As Global.System.Data.DataColumn Private columnezaAd_PLZ As Global.System.Data.DataColumn Private columnezaAd_Ort As Global.System.Data.DataColumn Private columnezaAd_UStIDAnmelder As Global.System.Data.DataColumn Private columnezaAd_FinanzamtIDAnmelder As Global.System.Data.DataColumn Private columnezaAd_Bewilligungsnummer As Global.System.Data.DataColumn Private columnezaAd_BewilligungsFachVerfahren As Global.System.Data.DataColumn Private columnezaAd_BewilligungsnummerEndverwender As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_EZA_Adressen" 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 ezaAd_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_Id End Get End Property _ Public ReadOnly Property ezaAd_EZAIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_EZAId End Get End Property _ Public ReadOnly Property ezaAd_AdressTypColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_AdressTyp End Get End Property _ Public ReadOnly Property ezaAd_AdressCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_AdressCode End Get End Property _ Public ReadOnly Property ezaAd_TeilnehmerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_TeilnehmerEORI End Get End Property _ Public ReadOnly Property ezaAd_TeilnehmerNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_TeilnehmerNLNR End Get End Property _ Public ReadOnly Property ezaAd_NameFirma1Column() As Global.System.Data.DataColumn Get Return Me.columnezaAd_NameFirma1 End Get End Property _ Public ReadOnly Property ezaAd_NameFirma2Column() As Global.System.Data.DataColumn Get Return Me.columnezaAd_NameFirma2 End Get End Property _ Public ReadOnly Property ezaAd_NameFirma3Column() As Global.System.Data.DataColumn Get Return Me.columnezaAd_NameFirma3 End Get End Property _ Public ReadOnly Property ezaAd_StrasseHausNr1Column() As Global.System.Data.DataColumn Get Return Me.columnezaAd_StrasseHausNr1 End Get End Property _ Public ReadOnly Property ezaAd_StrasseHausNr2Column() As Global.System.Data.DataColumn Get Return Me.columnezaAd_StrasseHausNr2 End Get End Property _ Public ReadOnly Property ezaAd_OrtsteilColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_Ortsteil End Get End Property _ Public ReadOnly Property ezaAd_LandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_LandCode End Get End Property _ Public ReadOnly Property ezaAd_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_PLZ End Get End Property _ Public ReadOnly Property ezaAd_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_Ort End Get End Property _ Public ReadOnly Property ezaAd_UStIDAnmelderColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_UStIDAnmelder End Get End Property _ Public ReadOnly Property ezaAd_FinanzamtIDAnmelderColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_FinanzamtIDAnmelder End Get End Property _ Public ReadOnly Property ezaAd_BewilligungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_Bewilligungsnummer End Get End Property _ Public ReadOnly Property ezaAd_BewilligungsFachVerfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_BewilligungsFachVerfahren End Get End Property _ Public ReadOnly Property ezaAd_BewilligungsnummerEndverwenderColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAd_BewilligungsnummerEndverwender 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 tblDakosy_EZA_AdressenRow Get Return CType(Me.Rows(index),tblDakosy_EZA_AdressenRow) End Get End Property _ Public Event tblDakosy_EZA_AdressenRowChanging As tblDakosy_EZA_AdressenRowChangeEventHandler _ Public Event tblDakosy_EZA_AdressenRowChanged As tblDakosy_EZA_AdressenRowChangeEventHandler _ Public Event tblDakosy_EZA_AdressenRowDeleting As tblDakosy_EZA_AdressenRowChangeEventHandler _ Public Event tblDakosy_EZA_AdressenRowDeleted As tblDakosy_EZA_AdressenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_EZA_AdressenRow(ByVal row As tblDakosy_EZA_AdressenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_EZA_AdressenRow( _ ByVal ezaAd_EZAId As Integer, _ ByVal ezaAd_AdressTyp As String, _ ByVal ezaAd_AdressCode As String, _ ByVal ezaAd_TeilnehmerEORI As String, _ ByVal ezaAd_TeilnehmerNLNR As Decimal, _ ByVal ezaAd_NameFirma1 As String, _ ByVal ezaAd_NameFirma2 As String, _ ByVal ezaAd_NameFirma3 As String, _ ByVal ezaAd_StrasseHausNr1 As String, _ ByVal ezaAd_StrasseHausNr2 As String, _ ByVal ezaAd_Ortsteil As String, _ ByVal ezaAd_LandCode As String, _ ByVal ezaAd_PLZ As String, _ ByVal ezaAd_Ort As String, _ ByVal ezaAd_UStIDAnmelder As String, _ ByVal ezaAd_FinanzamtIDAnmelder As String, _ ByVal ezaAd_Bewilligungsnummer As String, _ ByVal ezaAd_BewilligungsFachVerfahren As String, _ ByVal ezaAd_BewilligungsnummerEndverwender As String) As tblDakosy_EZA_AdressenRow Dim rowtblDakosy_EZA_AdressenRow As tblDakosy_EZA_AdressenRow = CType(Me.NewRow,tblDakosy_EZA_AdressenRow) Dim columnValuesArray() As Object = New Object() {Nothing, ezaAd_EZAId, ezaAd_AdressTyp, ezaAd_AdressCode, ezaAd_TeilnehmerEORI, ezaAd_TeilnehmerNLNR, ezaAd_NameFirma1, ezaAd_NameFirma2, ezaAd_NameFirma3, ezaAd_StrasseHausNr1, ezaAd_StrasseHausNr2, ezaAd_Ortsteil, ezaAd_LandCode, ezaAd_PLZ, ezaAd_Ort, ezaAd_UStIDAnmelder, ezaAd_FinanzamtIDAnmelder, ezaAd_Bewilligungsnummer, ezaAd_BewilligungsFachVerfahren, ezaAd_BewilligungsnummerEndverwender} rowtblDakosy_EZA_AdressenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_EZA_AdressenRow) Return rowtblDakosy_EZA_AdressenRow End Function _ Public Function FindByezaAd_Id(ByVal ezaAd_Id As Integer) As tblDakosy_EZA_AdressenRow Return CType(Me.Rows.Find(New Object() {ezaAd_Id}),tblDakosy_EZA_AdressenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_EZA_AdressenDataTable = CType(MyBase.Clone,tblDakosy_EZA_AdressenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_EZA_AdressenDataTable() End Function _ Friend Sub InitVars() Me.columnezaAd_Id = MyBase.Columns("ezaAd_Id") Me.columnezaAd_EZAId = MyBase.Columns("ezaAd_EZAId") Me.columnezaAd_AdressTyp = MyBase.Columns("ezaAd_AdressTyp") Me.columnezaAd_AdressCode = MyBase.Columns("ezaAd_AdressCode") Me.columnezaAd_TeilnehmerEORI = MyBase.Columns("ezaAd_TeilnehmerEORI") Me.columnezaAd_TeilnehmerNLNR = MyBase.Columns("ezaAd_TeilnehmerNLNR") Me.columnezaAd_NameFirma1 = MyBase.Columns("ezaAd_NameFirma1") Me.columnezaAd_NameFirma2 = MyBase.Columns("ezaAd_NameFirma2") Me.columnezaAd_NameFirma3 = MyBase.Columns("ezaAd_NameFirma3") Me.columnezaAd_StrasseHausNr1 = MyBase.Columns("ezaAd_StrasseHausNr1") Me.columnezaAd_StrasseHausNr2 = MyBase.Columns("ezaAd_StrasseHausNr2") Me.columnezaAd_Ortsteil = MyBase.Columns("ezaAd_Ortsteil") Me.columnezaAd_LandCode = MyBase.Columns("ezaAd_LandCode") Me.columnezaAd_PLZ = MyBase.Columns("ezaAd_PLZ") Me.columnezaAd_Ort = MyBase.Columns("ezaAd_Ort") Me.columnezaAd_UStIDAnmelder = MyBase.Columns("ezaAd_UStIDAnmelder") Me.columnezaAd_FinanzamtIDAnmelder = MyBase.Columns("ezaAd_FinanzamtIDAnmelder") Me.columnezaAd_Bewilligungsnummer = MyBase.Columns("ezaAd_Bewilligungsnummer") Me.columnezaAd_BewilligungsFachVerfahren = MyBase.Columns("ezaAd_BewilligungsFachVerfahren") Me.columnezaAd_BewilligungsnummerEndverwender = MyBase.Columns("ezaAd_BewilligungsnummerEndverwender") End Sub _ Private Sub InitClass() Me.columnezaAd_Id = New Global.System.Data.DataColumn("ezaAd_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_Id) Me.columnezaAd_EZAId = New Global.System.Data.DataColumn("ezaAd_EZAId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_EZAId) Me.columnezaAd_AdressTyp = New Global.System.Data.DataColumn("ezaAd_AdressTyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_AdressTyp) Me.columnezaAd_AdressCode = New Global.System.Data.DataColumn("ezaAd_AdressCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_AdressCode) Me.columnezaAd_TeilnehmerEORI = New Global.System.Data.DataColumn("ezaAd_TeilnehmerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_TeilnehmerEORI) Me.columnezaAd_TeilnehmerNLNR = New Global.System.Data.DataColumn("ezaAd_TeilnehmerNLNR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_TeilnehmerNLNR) Me.columnezaAd_NameFirma1 = New Global.System.Data.DataColumn("ezaAd_NameFirma1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_NameFirma1) Me.columnezaAd_NameFirma2 = New Global.System.Data.DataColumn("ezaAd_NameFirma2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_NameFirma2) Me.columnezaAd_NameFirma3 = New Global.System.Data.DataColumn("ezaAd_NameFirma3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_NameFirma3) Me.columnezaAd_StrasseHausNr1 = New Global.System.Data.DataColumn("ezaAd_StrasseHausNr1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_StrasseHausNr1) Me.columnezaAd_StrasseHausNr2 = New Global.System.Data.DataColumn("ezaAd_StrasseHausNr2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_StrasseHausNr2) Me.columnezaAd_Ortsteil = New Global.System.Data.DataColumn("ezaAd_Ortsteil", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_Ortsteil) Me.columnezaAd_LandCode = New Global.System.Data.DataColumn("ezaAd_LandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_LandCode) Me.columnezaAd_PLZ = New Global.System.Data.DataColumn("ezaAd_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_PLZ) Me.columnezaAd_Ort = New Global.System.Data.DataColumn("ezaAd_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_Ort) Me.columnezaAd_UStIDAnmelder = New Global.System.Data.DataColumn("ezaAd_UStIDAnmelder", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_UStIDAnmelder) Me.columnezaAd_FinanzamtIDAnmelder = New Global.System.Data.DataColumn("ezaAd_FinanzamtIDAnmelder", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_FinanzamtIDAnmelder) Me.columnezaAd_Bewilligungsnummer = New Global.System.Data.DataColumn("ezaAd_Bewilligungsnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_Bewilligungsnummer) Me.columnezaAd_BewilligungsFachVerfahren = New Global.System.Data.DataColumn("ezaAd_BewilligungsFachVerfahren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_BewilligungsFachVerfahren) Me.columnezaAd_BewilligungsnummerEndverwender = New Global.System.Data.DataColumn("ezaAd_BewilligungsnummerEndverwender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAd_BewilligungsnummerEndverwender) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezaAd_Id}, true)) Me.columnezaAd_Id.AutoIncrement = true Me.columnezaAd_Id.AutoIncrementSeed = -1 Me.columnezaAd_Id.AutoIncrementStep = -1 Me.columnezaAd_Id.AllowDBNull = false Me.columnezaAd_Id.ReadOnly = true Me.columnezaAd_Id.Unique = true Me.columnezaAd_EZAId.AllowDBNull = false Me.columnezaAd_AdressTyp.MaxLength = 10 Me.columnezaAd_AdressCode.MaxLength = 10 Me.columnezaAd_TeilnehmerEORI.MaxLength = 17 Me.columnezaAd_NameFirma1.MaxLength = 120 Me.columnezaAd_NameFirma2.MaxLength = 120 Me.columnezaAd_NameFirma3.MaxLength = 120 Me.columnezaAd_StrasseHausNr1.MaxLength = 35 Me.columnezaAd_StrasseHausNr2.MaxLength = 35 Me.columnezaAd_Ortsteil.MaxLength = 35 Me.columnezaAd_LandCode.MaxLength = 3 Me.columnezaAd_PLZ.MaxLength = 9 Me.columnezaAd_Ort.MaxLength = 35 Me.columnezaAd_UStIDAnmelder.MaxLength = 20 Me.columnezaAd_FinanzamtIDAnmelder.MaxLength = 4 Me.columnezaAd_Bewilligungsnummer.MaxLength = 35 Me.columnezaAd_BewilligungsFachVerfahren.MaxLength = 35 Me.columnezaAd_BewilligungsnummerEndverwender.MaxLength = 35 End Sub _ Public Function NewtblDakosy_EZA_AdressenRow() As tblDakosy_EZA_AdressenRow Return CType(Me.NewRow,tblDakosy_EZA_AdressenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_EZA_AdressenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_EZA_AdressenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_EZA_AdressenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_AdressenRowChanged(Me, New tblDakosy_EZA_AdressenRowChangeEvent(CType(e.Row,tblDakosy_EZA_AdressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_EZA_AdressenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_AdressenRowChanging(Me, New tblDakosy_EZA_AdressenRowChangeEvent(CType(e.Row,tblDakosy_EZA_AdressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_EZA_AdressenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_AdressenRowDeleted(Me, New tblDakosy_EZA_AdressenRowChangeEvent(CType(e.Row,tblDakosy_EZA_AdressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_EZA_AdressenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_AdressenRowDeleting(Me, New tblDakosy_EZA_AdressenRowChangeEvent(CType(e.Row,tblDakosy_EZA_AdressenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_EZA_AdressenRow(ByVal row As tblDakosy_EZA_AdressenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_EZA_AdressenDataTable" 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 tblDakosy_EZA_AufschubDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_EZA_AufschubRow) Private columnezaAfb_Id As Global.System.Data.DataColumn Private columnezaAfb_EZAId As Global.System.Data.DataColumn Private columnezaAfb_Aufschubart As Global.System.Data.DataColumn Private columnezaAfb_ArtAufschubantrag As Global.System.Data.DataColumn Private columnezaAfb_AufschubnehmerEORI As Global.System.Data.DataColumn Private columnezaAfb_KontoNr As Global.System.Data.DataColumn Private columnezaAfb_AufschuBIN As Global.System.Data.DataColumn Private columnezaAfb_HZA As Global.System.Data.DataColumn Private columnAufschubnehmerName As Global.System.Data.DataColumn Private columnezaAfb_Faelligkeit As Global.System.Data.DataColumn Private columnezaAfb_Zahlungsart As Global.System.Data.DataColumn Private columnezaAfb_Abgabenbetrag As Global.System.Data.DataColumn Private columnezaAfb_AbgabeArt As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_EZA_Aufschub" 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 ezaAfb_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_Id End Get End Property _ Public ReadOnly Property ezaAfb_EZAIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_EZAId End Get End Property _ Public ReadOnly Property ezaAfb_AufschubartColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_Aufschubart End Get End Property _ Public ReadOnly Property ezaAfb_ArtAufschubantragColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_ArtAufschubantrag End Get End Property _ Public ReadOnly Property ezaAfb_AufschubnehmerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_AufschubnehmerEORI End Get End Property _ Public ReadOnly Property ezaAfb_KontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_KontoNr End Get End Property _ Public ReadOnly Property ezaAfb_AufschuBINColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_AufschuBIN End Get End Property _ Public ReadOnly Property ezaAfb_HZAColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_HZA End Get End Property _ Public ReadOnly Property AufschubnehmerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubnehmerName End Get End Property _ Public ReadOnly Property ezaAfb_FaelligkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_Faelligkeit End Get End Property _ Public ReadOnly Property ezaAfb_ZahlungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_Zahlungsart End Get End Property _ Public ReadOnly Property ezaAfb_AbgabenbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_Abgabenbetrag End Get End Property _ Public ReadOnly Property ezaAfb_AbgabeArtColumn() As Global.System.Data.DataColumn Get Return Me.columnezaAfb_AbgabeArt 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 tblDakosy_EZA_AufschubRow Get Return CType(Me.Rows(index),tblDakosy_EZA_AufschubRow) End Get End Property _ Public Event tblDakosy_EZA_AufschubRowChanging As tblDakosy_EZA_AufschubRowChangeEventHandler _ Public Event tblDakosy_EZA_AufschubRowChanged As tblDakosy_EZA_AufschubRowChangeEventHandler _ Public Event tblDakosy_EZA_AufschubRowDeleting As tblDakosy_EZA_AufschubRowChangeEventHandler _ Public Event tblDakosy_EZA_AufschubRowDeleted As tblDakosy_EZA_AufschubRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_EZA_AufschubRow(ByVal row As tblDakosy_EZA_AufschubRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_EZA_AufschubRow(ByVal ezaAfb_EZAId As Integer, ByVal ezaAfb_Aufschubart As String, ByVal ezaAfb_ArtAufschubantrag As String, ByVal ezaAfb_AufschubnehmerEORI As String, ByVal ezaAfb_KontoNr As String, ByVal ezaAfb_AufschuBIN As String, ByVal ezaAfb_HZA As String, ByVal AufschubnehmerName As String, ByVal ezaAfb_Faelligkeit As Date, ByVal ezaAfb_Zahlungsart As String, ByVal ezaAfb_Abgabenbetrag As Double, ByVal ezaAfb_AbgabeArt As String) As tblDakosy_EZA_AufschubRow Dim rowtblDakosy_EZA_AufschubRow As tblDakosy_EZA_AufschubRow = CType(Me.NewRow,tblDakosy_EZA_AufschubRow) Dim columnValuesArray() As Object = New Object() {Nothing, ezaAfb_EZAId, ezaAfb_Aufschubart, ezaAfb_ArtAufschubantrag, ezaAfb_AufschubnehmerEORI, ezaAfb_KontoNr, ezaAfb_AufschuBIN, ezaAfb_HZA, AufschubnehmerName, ezaAfb_Faelligkeit, ezaAfb_Zahlungsart, ezaAfb_Abgabenbetrag, ezaAfb_AbgabeArt} rowtblDakosy_EZA_AufschubRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_EZA_AufschubRow) Return rowtblDakosy_EZA_AufschubRow End Function _ Public Function FindByezaAfb_Id(ByVal ezaAfb_Id As Integer) As tblDakosy_EZA_AufschubRow Return CType(Me.Rows.Find(New Object() {ezaAfb_Id}),tblDakosy_EZA_AufschubRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_EZA_AufschubDataTable = CType(MyBase.Clone,tblDakosy_EZA_AufschubDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_EZA_AufschubDataTable() End Function _ Friend Sub InitVars() Me.columnezaAfb_Id = MyBase.Columns("ezaAfb_Id") Me.columnezaAfb_EZAId = MyBase.Columns("ezaAfb_EZAId") Me.columnezaAfb_Aufschubart = MyBase.Columns("ezaAfb_Aufschubart") Me.columnezaAfb_ArtAufschubantrag = MyBase.Columns("ezaAfb_ArtAufschubantrag") Me.columnezaAfb_AufschubnehmerEORI = MyBase.Columns("ezaAfb_AufschubnehmerEORI") Me.columnezaAfb_KontoNr = MyBase.Columns("ezaAfb_KontoNr") Me.columnezaAfb_AufschuBIN = MyBase.Columns("ezaAfb_AufschuBIN") Me.columnezaAfb_HZA = MyBase.Columns("ezaAfb_HZA") Me.columnAufschubnehmerName = MyBase.Columns("AufschubnehmerName") Me.columnezaAfb_Faelligkeit = MyBase.Columns("ezaAfb_Faelligkeit") Me.columnezaAfb_Zahlungsart = MyBase.Columns("ezaAfb_Zahlungsart") Me.columnezaAfb_Abgabenbetrag = MyBase.Columns("ezaAfb_Abgabenbetrag") Me.columnezaAfb_AbgabeArt = MyBase.Columns("ezaAfb_AbgabeArt") End Sub _ Private Sub InitClass() Me.columnezaAfb_Id = New Global.System.Data.DataColumn("ezaAfb_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_Id) Me.columnezaAfb_EZAId = New Global.System.Data.DataColumn("ezaAfb_EZAId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_EZAId) Me.columnezaAfb_Aufschubart = New Global.System.Data.DataColumn("ezaAfb_Aufschubart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_Aufschubart) Me.columnezaAfb_ArtAufschubantrag = New Global.System.Data.DataColumn("ezaAfb_ArtAufschubantrag", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_ArtAufschubantrag) Me.columnezaAfb_AufschubnehmerEORI = New Global.System.Data.DataColumn("ezaAfb_AufschubnehmerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_AufschubnehmerEORI) Me.columnezaAfb_KontoNr = New Global.System.Data.DataColumn("ezaAfb_KontoNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_KontoNr) Me.columnezaAfb_AufschuBIN = New Global.System.Data.DataColumn("ezaAfb_AufschuBIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_AufschuBIN) Me.columnezaAfb_HZA = New Global.System.Data.DataColumn("ezaAfb_HZA", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_HZA) Me.columnAufschubnehmerName = New Global.System.Data.DataColumn("AufschubnehmerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubnehmerName) Me.columnezaAfb_Faelligkeit = New Global.System.Data.DataColumn("ezaAfb_Faelligkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_Faelligkeit) Me.columnezaAfb_Zahlungsart = New Global.System.Data.DataColumn("ezaAfb_Zahlungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_Zahlungsart) Me.columnezaAfb_Abgabenbetrag = New Global.System.Data.DataColumn("ezaAfb_Abgabenbetrag", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_Abgabenbetrag) Me.columnezaAfb_AbgabeArt = New Global.System.Data.DataColumn("ezaAfb_AbgabeArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaAfb_AbgabeArt) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezaAfb_Id}, true)) Me.columnezaAfb_Id.AutoIncrement = true Me.columnezaAfb_Id.AutoIncrementSeed = -1 Me.columnezaAfb_Id.AutoIncrementStep = -1 Me.columnezaAfb_Id.AllowDBNull = false Me.columnezaAfb_Id.ReadOnly = true Me.columnezaAfb_Id.Unique = true Me.columnezaAfb_EZAId.AllowDBNull = false Me.columnezaAfb_Aufschubart.MaxLength = 2 Me.columnezaAfb_ArtAufschubantrag.MaxLength = 1 Me.columnezaAfb_AufschubnehmerEORI.MaxLength = 17 Me.columnezaAfb_KontoNr.MaxLength = 6 Me.columnezaAfb_AufschuBIN.MaxLength = 25 Me.columnezaAfb_HZA.MaxLength = 3 Me.columnAufschubnehmerName.MaxLength = 100 Me.columnezaAfb_Zahlungsart.MaxLength = 1 Me.columnezaAfb_AbgabeArt.MaxLength = 5 End Sub _ Public Function NewtblDakosy_EZA_AufschubRow() As tblDakosy_EZA_AufschubRow Return CType(Me.NewRow,tblDakosy_EZA_AufschubRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_EZA_AufschubRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_EZA_AufschubRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_EZA_AufschubRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_AufschubRowChanged(Me, New tblDakosy_EZA_AufschubRowChangeEvent(CType(e.Row,tblDakosy_EZA_AufschubRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_EZA_AufschubRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_AufschubRowChanging(Me, New tblDakosy_EZA_AufschubRowChangeEvent(CType(e.Row,tblDakosy_EZA_AufschubRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_EZA_AufschubRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_AufschubRowDeleted(Me, New tblDakosy_EZA_AufschubRowChangeEvent(CType(e.Row,tblDakosy_EZA_AufschubRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_EZA_AufschubRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_AufschubRowDeleting(Me, New tblDakosy_EZA_AufschubRowChangeEvent(CType(e.Row,tblDakosy_EZA_AufschubRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_EZA_AufschubRow(ByVal row As tblDakosy_EZA_AufschubRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_EZA_AufschubDataTable" 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 tblDakosy_EZA_BEAnteilZLAVUVDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_EZA_BEAnteilZLAVUVRow) Private columnezaBAZ_Id As Global.System.Data.DataColumn Private columnezaBAZ_EZAId As Global.System.Data.DataColumn Private columnezaBAZ_RegistrierNummerZugang As Global.System.Data.DataColumn Private columnezaBAZ_PositionZugang As Global.System.Data.DataColumn Private columnezaBAZ_ArtikelCodeATZL As Global.System.Data.DataColumn Private columnezaBAZ_EigentuemerATUL As Global.System.Data.DataColumn Private columnezaBAZ_ChargennummerATZL As Global.System.Data.DataColumn Private columnezaBAZ_UrsprungslandATZL As Global.System.Data.DataColumn Private columnezaBAZ_AtlasKz As Global.System.Data.DataColumn Private columnezaBAZ_Wartennummer As Global.System.Data.DataColumn Private columnezaBAZ_UeblicheBehandlungKz As Global.System.Data.DataColumn Private columnezaBAZ_Handelsmenge As Global.System.Data.DataColumn Private columnezaBAZ_MasseinheitHandelsmenge As Global.System.Data.DataColumn Private columnezaBAZ_QualifikatorHandelsmenge As Global.System.Data.DataColumn Private columnezaBAZ_Abgangsmenge As Global.System.Data.DataColumn Private columnezaBAZ_MasseinheitAbgangsmenge As Global.System.Data.DataColumn Private columnezaBAZ_QualifikatorAbgangsmenge As Global.System.Data.DataColumn Private columnezaBAZ_Positionszusatz As Global.System.Data.DataColumn Private columnezaBAZ_WarenbezogeneAngaben As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_EZA_BEAnteilZLAVUV" 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 ezaBAZ_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_Id End Get End Property _ Public ReadOnly Property ezaBAZ_EZAIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_EZAId End Get End Property _ Public ReadOnly Property ezaBAZ_RegistrierNummerZugangColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_RegistrierNummerZugang End Get End Property _ Public ReadOnly Property ezaBAZ_PositionZugangColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_PositionZugang End Get End Property _ Public ReadOnly Property ezaBAZ_ArtikelCodeATZLColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_ArtikelCodeATZL End Get End Property _ Public ReadOnly Property ezaBAZ_EigentuemerATULColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_EigentuemerATUL End Get End Property _ Public ReadOnly Property ezaBAZ_ChargennummerATZLColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_ChargennummerATZL End Get End Property _ Public ReadOnly Property ezaBAZ_UrsprungslandATZLColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_UrsprungslandATZL End Get End Property _ Public ReadOnly Property ezaBAZ_AtlasKzColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_AtlasKz End Get End Property _ Public ReadOnly Property ezaBAZ_WartennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_Wartennummer End Get End Property _ Public ReadOnly Property ezaBAZ_UeblicheBehandlungKzColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_UeblicheBehandlungKz End Get End Property _ Public ReadOnly Property ezaBAZ_HandelsmengeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_Handelsmenge End Get End Property _ Public ReadOnly Property ezaBAZ_MasseinheitHandelsmengeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_MasseinheitHandelsmenge End Get End Property _ Public ReadOnly Property ezaBAZ_QualifikatorHandelsmengeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_QualifikatorHandelsmenge End Get End Property _ Public ReadOnly Property ezaBAZ_AbgangsmengeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_Abgangsmenge End Get End Property _ Public ReadOnly Property ezaBAZ_MasseinheitAbgangsmengeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_MasseinheitAbgangsmenge End Get End Property _ Public ReadOnly Property ezaBAZ_QualifikatorAbgangsmengeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_QualifikatorAbgangsmenge End Get End Property _ Public ReadOnly Property ezaBAZ_PositionszusatzColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_Positionszusatz End Get End Property _ Public ReadOnly Property ezaBAZ_WarenbezogeneAngabenColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBAZ_WarenbezogeneAngaben 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 tblDakosy_EZA_BEAnteilZLAVUVRow Get Return CType(Me.Rows(index),tblDakosy_EZA_BEAnteilZLAVUVRow) End Get End Property _ Public Event tblDakosy_EZA_BEAnteilZLAVUVRowChanging As tblDakosy_EZA_BEAnteilZLAVUVRowChangeEventHandler _ Public Event tblDakosy_EZA_BEAnteilZLAVUVRowChanged As tblDakosy_EZA_BEAnteilZLAVUVRowChangeEventHandler _ Public Event tblDakosy_EZA_BEAnteilZLAVUVRowDeleting As tblDakosy_EZA_BEAnteilZLAVUVRowChangeEventHandler _ Public Event tblDakosy_EZA_BEAnteilZLAVUVRowDeleted As tblDakosy_EZA_BEAnteilZLAVUVRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_EZA_BEAnteilZLAVUVRow(ByVal row As tblDakosy_EZA_BEAnteilZLAVUVRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_EZA_BEAnteilZLAVUVRow( _ ByVal ezaBAZ_EZAId As Integer, _ ByVal ezaBAZ_RegistrierNummerZugang As String, _ ByVal ezaBAZ_PositionZugang As String, _ ByVal ezaBAZ_ArtikelCodeATZL As String, _ ByVal ezaBAZ_EigentuemerATUL As String, _ ByVal ezaBAZ_ChargennummerATZL As String, _ ByVal ezaBAZ_UrsprungslandATZL As String, _ ByVal ezaBAZ_AtlasKz As String, _ ByVal ezaBAZ_Wartennummer As Decimal, _ ByVal ezaBAZ_UeblicheBehandlungKz As String, _ ByVal ezaBAZ_Handelsmenge As Decimal, _ ByVal ezaBAZ_MasseinheitHandelsmenge As String, _ ByVal ezaBAZ_QualifikatorHandelsmenge As String, _ ByVal ezaBAZ_Abgangsmenge As Decimal, _ ByVal ezaBAZ_MasseinheitAbgangsmenge As String, _ ByVal ezaBAZ_QualifikatorAbgangsmenge As String, _ ByVal ezaBAZ_Positionszusatz As String, _ ByVal ezaBAZ_WarenbezogeneAngaben As String) As tblDakosy_EZA_BEAnteilZLAVUVRow Dim rowtblDakosy_EZA_BEAnteilZLAVUVRow As tblDakosy_EZA_BEAnteilZLAVUVRow = CType(Me.NewRow,tblDakosy_EZA_BEAnteilZLAVUVRow) Dim columnValuesArray() As Object = New Object() {Nothing, ezaBAZ_EZAId, ezaBAZ_RegistrierNummerZugang, ezaBAZ_PositionZugang, ezaBAZ_ArtikelCodeATZL, ezaBAZ_EigentuemerATUL, ezaBAZ_ChargennummerATZL, ezaBAZ_UrsprungslandATZL, ezaBAZ_AtlasKz, ezaBAZ_Wartennummer, ezaBAZ_UeblicheBehandlungKz, ezaBAZ_Handelsmenge, ezaBAZ_MasseinheitHandelsmenge, ezaBAZ_QualifikatorHandelsmenge, ezaBAZ_Abgangsmenge, ezaBAZ_MasseinheitAbgangsmenge, ezaBAZ_QualifikatorAbgangsmenge, ezaBAZ_Positionszusatz, ezaBAZ_WarenbezogeneAngaben} rowtblDakosy_EZA_BEAnteilZLAVUVRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_EZA_BEAnteilZLAVUVRow) Return rowtblDakosy_EZA_BEAnteilZLAVUVRow End Function _ Public Function FindByezaBAZ_Id(ByVal ezaBAZ_Id As Integer) As tblDakosy_EZA_BEAnteilZLAVUVRow Return CType(Me.Rows.Find(New Object() {ezaBAZ_Id}),tblDakosy_EZA_BEAnteilZLAVUVRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_EZA_BEAnteilZLAVUVDataTable = CType(MyBase.Clone,tblDakosy_EZA_BEAnteilZLAVUVDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_EZA_BEAnteilZLAVUVDataTable() End Function _ Friend Sub InitVars() Me.columnezaBAZ_Id = MyBase.Columns("ezaBAZ_Id") Me.columnezaBAZ_EZAId = MyBase.Columns("ezaBAZ_EZAId") Me.columnezaBAZ_RegistrierNummerZugang = MyBase.Columns("ezaBAZ_RegistrierNummerZugang") Me.columnezaBAZ_PositionZugang = MyBase.Columns("ezaBAZ_PositionZugang") Me.columnezaBAZ_ArtikelCodeATZL = MyBase.Columns("ezaBAZ_ArtikelCodeATZL") Me.columnezaBAZ_EigentuemerATUL = MyBase.Columns("ezaBAZ_EigentuemerATUL") Me.columnezaBAZ_ChargennummerATZL = MyBase.Columns("ezaBAZ_ChargennummerATZL") Me.columnezaBAZ_UrsprungslandATZL = MyBase.Columns("ezaBAZ_UrsprungslandATZL") Me.columnezaBAZ_AtlasKz = MyBase.Columns("ezaBAZ_AtlasKz") Me.columnezaBAZ_Wartennummer = MyBase.Columns("ezaBAZ_Wartennummer") Me.columnezaBAZ_UeblicheBehandlungKz = MyBase.Columns("ezaBAZ_UeblicheBehandlungKz") Me.columnezaBAZ_Handelsmenge = MyBase.Columns("ezaBAZ_Handelsmenge") Me.columnezaBAZ_MasseinheitHandelsmenge = MyBase.Columns("ezaBAZ_MasseinheitHandelsmenge") Me.columnezaBAZ_QualifikatorHandelsmenge = MyBase.Columns("ezaBAZ_QualifikatorHandelsmenge") Me.columnezaBAZ_Abgangsmenge = MyBase.Columns("ezaBAZ_Abgangsmenge") Me.columnezaBAZ_MasseinheitAbgangsmenge = MyBase.Columns("ezaBAZ_MasseinheitAbgangsmenge") Me.columnezaBAZ_QualifikatorAbgangsmenge = MyBase.Columns("ezaBAZ_QualifikatorAbgangsmenge") Me.columnezaBAZ_Positionszusatz = MyBase.Columns("ezaBAZ_Positionszusatz") Me.columnezaBAZ_WarenbezogeneAngaben = MyBase.Columns("ezaBAZ_WarenbezogeneAngaben") End Sub _ Private Sub InitClass() Me.columnezaBAZ_Id = New Global.System.Data.DataColumn("ezaBAZ_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_Id) Me.columnezaBAZ_EZAId = New Global.System.Data.DataColumn("ezaBAZ_EZAId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_EZAId) Me.columnezaBAZ_RegistrierNummerZugang = New Global.System.Data.DataColumn("ezaBAZ_RegistrierNummerZugang", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_RegistrierNummerZugang) Me.columnezaBAZ_PositionZugang = New Global.System.Data.DataColumn("ezaBAZ_PositionZugang", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_PositionZugang) Me.columnezaBAZ_ArtikelCodeATZL = New Global.System.Data.DataColumn("ezaBAZ_ArtikelCodeATZL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_ArtikelCodeATZL) Me.columnezaBAZ_EigentuemerATUL = New Global.System.Data.DataColumn("ezaBAZ_EigentuemerATUL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_EigentuemerATUL) Me.columnezaBAZ_ChargennummerATZL = New Global.System.Data.DataColumn("ezaBAZ_ChargennummerATZL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_ChargennummerATZL) Me.columnezaBAZ_UrsprungslandATZL = New Global.System.Data.DataColumn("ezaBAZ_UrsprungslandATZL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_UrsprungslandATZL) Me.columnezaBAZ_AtlasKz = New Global.System.Data.DataColumn("ezaBAZ_AtlasKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_AtlasKz) Me.columnezaBAZ_Wartennummer = New Global.System.Data.DataColumn("ezaBAZ_Wartennummer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_Wartennummer) Me.columnezaBAZ_UeblicheBehandlungKz = New Global.System.Data.DataColumn("ezaBAZ_UeblicheBehandlungKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_UeblicheBehandlungKz) Me.columnezaBAZ_Handelsmenge = New Global.System.Data.DataColumn("ezaBAZ_Handelsmenge", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_Handelsmenge) Me.columnezaBAZ_MasseinheitHandelsmenge = New Global.System.Data.DataColumn("ezaBAZ_MasseinheitHandelsmenge", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_MasseinheitHandelsmenge) Me.columnezaBAZ_QualifikatorHandelsmenge = New Global.System.Data.DataColumn("ezaBAZ_QualifikatorHandelsmenge", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_QualifikatorHandelsmenge) Me.columnezaBAZ_Abgangsmenge = New Global.System.Data.DataColumn("ezaBAZ_Abgangsmenge", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_Abgangsmenge) Me.columnezaBAZ_MasseinheitAbgangsmenge = New Global.System.Data.DataColumn("ezaBAZ_MasseinheitAbgangsmenge", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_MasseinheitAbgangsmenge) Me.columnezaBAZ_QualifikatorAbgangsmenge = New Global.System.Data.DataColumn("ezaBAZ_QualifikatorAbgangsmenge", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_QualifikatorAbgangsmenge) Me.columnezaBAZ_Positionszusatz = New Global.System.Data.DataColumn("ezaBAZ_Positionszusatz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_Positionszusatz) Me.columnezaBAZ_WarenbezogeneAngaben = New Global.System.Data.DataColumn("ezaBAZ_WarenbezogeneAngaben", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBAZ_WarenbezogeneAngaben) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezaBAZ_Id}, true)) Me.columnezaBAZ_Id.AutoIncrement = true Me.columnezaBAZ_Id.AutoIncrementSeed = -1 Me.columnezaBAZ_Id.AutoIncrementStep = -1 Me.columnezaBAZ_Id.AllowDBNull = false Me.columnezaBAZ_Id.ReadOnly = true Me.columnezaBAZ_Id.Unique = true Me.columnezaBAZ_EZAId.AllowDBNull = false Me.columnezaBAZ_RegistrierNummerZugang.MaxLength = 35 Me.columnezaBAZ_PositionZugang.MaxLength = 5 Me.columnezaBAZ_ArtikelCodeATZL.MaxLength = 35 Me.columnezaBAZ_EigentuemerATUL.MaxLength = 20 Me.columnezaBAZ_ChargennummerATZL.MaxLength = 35 Me.columnezaBAZ_UrsprungslandATZL.MaxLength = 2 Me.columnezaBAZ_AtlasKz.MaxLength = 1 Me.columnezaBAZ_UeblicheBehandlungKz.MaxLength = 1 Me.columnezaBAZ_MasseinheitHandelsmenge.MaxLength = 3 Me.columnezaBAZ_QualifikatorHandelsmenge.MaxLength = 1 Me.columnezaBAZ_MasseinheitAbgangsmenge.MaxLength = 3 Me.columnezaBAZ_QualifikatorAbgangsmenge.MaxLength = 1 Me.columnezaBAZ_Positionszusatz.MaxLength = 100 Me.columnezaBAZ_WarenbezogeneAngaben.MaxLength = 350 End Sub _ Public Function NewtblDakosy_EZA_BEAnteilZLAVUVRow() As tblDakosy_EZA_BEAnteilZLAVUVRow Return CType(Me.NewRow,tblDakosy_EZA_BEAnteilZLAVUVRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_EZA_BEAnteilZLAVUVRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_EZA_BEAnteilZLAVUVRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_EZA_BEAnteilZLAVUVRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_BEAnteilZLAVUVRowChanged(Me, New tblDakosy_EZA_BEAnteilZLAVUVRowChangeEvent(CType(e.Row,tblDakosy_EZA_BEAnteilZLAVUVRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_EZA_BEAnteilZLAVUVRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_BEAnteilZLAVUVRowChanging(Me, New tblDakosy_EZA_BEAnteilZLAVUVRowChangeEvent(CType(e.Row,tblDakosy_EZA_BEAnteilZLAVUVRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_EZA_BEAnteilZLAVUVRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_BEAnteilZLAVUVRowDeleted(Me, New tblDakosy_EZA_BEAnteilZLAVUVRowChangeEvent(CType(e.Row,tblDakosy_EZA_BEAnteilZLAVUVRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_EZA_BEAnteilZLAVUVRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_BEAnteilZLAVUVRowDeleting(Me, New tblDakosy_EZA_BEAnteilZLAVUVRowChangeEvent(CType(e.Row,tblDakosy_EZA_BEAnteilZLAVUVRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_EZA_BEAnteilZLAVUVRow(ByVal row As tblDakosy_EZA_BEAnteilZLAVUVRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_EZA_BEAnteilZLAVUVDataTable" 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 tblDakosy_EZA_SumABeendigungsAnteilDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_EZA_SumABeendigungsAnteilRow) Private columnezaBa_Id As Global.System.Data.DataColumn Private columnezaBa_EZAId As Global.System.Data.DataColumn Private columnezaBa_SumARegistriernummer As Global.System.Data.DataColumn Private columnezaBa_SumAPosNr As Global.System.Data.DataColumn Private columnezaBa_BeendigungsPackstueckzahl As Global.System.Data.DataColumn Private columnezaBa_Artidentifikation As Global.System.Data.DataColumn Private columnezaBa_VerwahrerEORI As Global.System.Data.DataColumn Private columnezaBa_SpezifOrdnungsbegriffArt As Global.System.Data.DataColumn Private columnezaBa_SpezifOrdnungsbegriff As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_EZA_SumABeendigungsAnteil" 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 ezaBa_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBa_Id End Get End Property _ Public ReadOnly Property ezaBa_EZAIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBa_EZAId End Get End Property _ Public ReadOnly Property ezaBa_SumARegistriernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBa_SumARegistriernummer End Get End Property _ Public ReadOnly Property ezaBa_SumAPosNrColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBa_SumAPosNr End Get End Property _ Public ReadOnly Property ezaBa_BeendigungsPackstueckzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBa_BeendigungsPackstueckzahl End Get End Property _ Public ReadOnly Property ezaBa_ArtidentifikationColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBa_Artidentifikation End Get End Property _ Public ReadOnly Property ezaBa_VerwahrerEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBa_VerwahrerEORI End Get End Property _ Public ReadOnly Property ezaBa_SpezifOrdnungsbegriffArtColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBa_SpezifOrdnungsbegriffArt End Get End Property _ Public ReadOnly Property ezaBa_SpezifOrdnungsbegriffColumn() As Global.System.Data.DataColumn Get Return Me.columnezaBa_SpezifOrdnungsbegriff 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 tblDakosy_EZA_SumABeendigungsAnteilRow Get Return CType(Me.Rows(index),tblDakosy_EZA_SumABeendigungsAnteilRow) End Get End Property _ Public Event tblDakosy_EZA_SumABeendigungsAnteilRowChanging As tblDakosy_EZA_SumABeendigungsAnteilRowChangeEventHandler _ Public Event tblDakosy_EZA_SumABeendigungsAnteilRowChanged As tblDakosy_EZA_SumABeendigungsAnteilRowChangeEventHandler _ Public Event tblDakosy_EZA_SumABeendigungsAnteilRowDeleting As tblDakosy_EZA_SumABeendigungsAnteilRowChangeEventHandler _ Public Event tblDakosy_EZA_SumABeendigungsAnteilRowDeleted As tblDakosy_EZA_SumABeendigungsAnteilRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_EZA_SumABeendigungsAnteilRow(ByVal row As tblDakosy_EZA_SumABeendigungsAnteilRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_EZA_SumABeendigungsAnteilRow(ByVal ezaBa_EZAId As Integer, ByVal ezaBa_SumARegistriernummer As String, ByVal ezaBa_SumAPosNr As Decimal, ByVal ezaBa_BeendigungsPackstueckzahl As Decimal, ByVal ezaBa_Artidentifikation As String, ByVal ezaBa_VerwahrerEORI As String, ByVal ezaBa_SpezifOrdnungsbegriffArt As String, ByVal ezaBa_SpezifOrdnungsbegriff As String) As tblDakosy_EZA_SumABeendigungsAnteilRow Dim rowtblDakosy_EZA_SumABeendigungsAnteilRow As tblDakosy_EZA_SumABeendigungsAnteilRow = CType(Me.NewRow,tblDakosy_EZA_SumABeendigungsAnteilRow) Dim columnValuesArray() As Object = New Object() {Nothing, ezaBa_EZAId, ezaBa_SumARegistriernummer, ezaBa_SumAPosNr, ezaBa_BeendigungsPackstueckzahl, ezaBa_Artidentifikation, ezaBa_VerwahrerEORI, ezaBa_SpezifOrdnungsbegriffArt, ezaBa_SpezifOrdnungsbegriff} rowtblDakosy_EZA_SumABeendigungsAnteilRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_EZA_SumABeendigungsAnteilRow) Return rowtblDakosy_EZA_SumABeendigungsAnteilRow End Function _ Public Function FindByezaBa_Id(ByVal ezaBa_Id As Integer) As tblDakosy_EZA_SumABeendigungsAnteilRow Return CType(Me.Rows.Find(New Object() {ezaBa_Id}),tblDakosy_EZA_SumABeendigungsAnteilRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_EZA_SumABeendigungsAnteilDataTable = CType(MyBase.Clone,tblDakosy_EZA_SumABeendigungsAnteilDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_EZA_SumABeendigungsAnteilDataTable() End Function _ Friend Sub InitVars() Me.columnezaBa_Id = MyBase.Columns("ezaBa_Id") Me.columnezaBa_EZAId = MyBase.Columns("ezaBa_EZAId") Me.columnezaBa_SumARegistriernummer = MyBase.Columns("ezaBa_SumARegistriernummer") Me.columnezaBa_SumAPosNr = MyBase.Columns("ezaBa_SumAPosNr") Me.columnezaBa_BeendigungsPackstueckzahl = MyBase.Columns("ezaBa_BeendigungsPackstueckzahl") Me.columnezaBa_Artidentifikation = MyBase.Columns("ezaBa_Artidentifikation") Me.columnezaBa_VerwahrerEORI = MyBase.Columns("ezaBa_VerwahrerEORI") Me.columnezaBa_SpezifOrdnungsbegriffArt = MyBase.Columns("ezaBa_SpezifOrdnungsbegriffArt") Me.columnezaBa_SpezifOrdnungsbegriff = MyBase.Columns("ezaBa_SpezifOrdnungsbegriff") End Sub _ Private Sub InitClass() Me.columnezaBa_Id = New Global.System.Data.DataColumn("ezaBa_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBa_Id) Me.columnezaBa_EZAId = New Global.System.Data.DataColumn("ezaBa_EZAId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBa_EZAId) Me.columnezaBa_SumARegistriernummer = New Global.System.Data.DataColumn("ezaBa_SumARegistriernummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBa_SumARegistriernummer) Me.columnezaBa_SumAPosNr = New Global.System.Data.DataColumn("ezaBa_SumAPosNr", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBa_SumAPosNr) Me.columnezaBa_BeendigungsPackstueckzahl = New Global.System.Data.DataColumn("ezaBa_BeendigungsPackstueckzahl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBa_BeendigungsPackstueckzahl) Me.columnezaBa_Artidentifikation = New Global.System.Data.DataColumn("ezaBa_Artidentifikation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBa_Artidentifikation) Me.columnezaBa_VerwahrerEORI = New Global.System.Data.DataColumn("ezaBa_VerwahrerEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBa_VerwahrerEORI) Me.columnezaBa_SpezifOrdnungsbegriffArt = New Global.System.Data.DataColumn("ezaBa_SpezifOrdnungsbegriffArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBa_SpezifOrdnungsbegriffArt) Me.columnezaBa_SpezifOrdnungsbegriff = New Global.System.Data.DataColumn("ezaBa_SpezifOrdnungsbegriff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaBa_SpezifOrdnungsbegriff) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezaBa_Id}, true)) Me.columnezaBa_Id.AutoIncrement = true Me.columnezaBa_Id.AutoIncrementSeed = -1 Me.columnezaBa_Id.AutoIncrementStep = -1 Me.columnezaBa_Id.AllowDBNull = false Me.columnezaBa_Id.ReadOnly = true Me.columnezaBa_Id.Unique = true Me.columnezaBa_EZAId.AllowDBNull = false Me.columnezaBa_SumARegistriernummer.MaxLength = 21 Me.columnezaBa_Artidentifikation.MaxLength = 3 Me.columnezaBa_VerwahrerEORI.MaxLength = 17 Me.columnezaBa_SpezifOrdnungsbegriffArt.MaxLength = 3 Me.columnezaBa_SpezifOrdnungsbegriff.MaxLength = 44 End Sub _ Public Function NewtblDakosy_EZA_SumABeendigungsAnteilRow() As tblDakosy_EZA_SumABeendigungsAnteilRow Return CType(Me.NewRow,tblDakosy_EZA_SumABeendigungsAnteilRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_EZA_SumABeendigungsAnteilRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_EZA_SumABeendigungsAnteilRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_EZA_SumABeendigungsAnteilRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_SumABeendigungsAnteilRowChanged(Me, New tblDakosy_EZA_SumABeendigungsAnteilRowChangeEvent(CType(e.Row,tblDakosy_EZA_SumABeendigungsAnteilRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_EZA_SumABeendigungsAnteilRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_SumABeendigungsAnteilRowChanging(Me, New tblDakosy_EZA_SumABeendigungsAnteilRowChangeEvent(CType(e.Row,tblDakosy_EZA_SumABeendigungsAnteilRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_EZA_SumABeendigungsAnteilRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_SumABeendigungsAnteilRowDeleted(Me, New tblDakosy_EZA_SumABeendigungsAnteilRowChangeEvent(CType(e.Row,tblDakosy_EZA_SumABeendigungsAnteilRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_EZA_SumABeendigungsAnteilRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_SumABeendigungsAnteilRowDeleting(Me, New tblDakosy_EZA_SumABeendigungsAnteilRowChangeEvent(CType(e.Row,tblDakosy_EZA_SumABeendigungsAnteilRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_EZA_SumABeendigungsAnteilRow(ByVal row As tblDakosy_EZA_SumABeendigungsAnteilRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_EZA_SumABeendigungsAnteilDataTable" 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 tblDakosy_EZA_UnterlagenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_EZA_UnterlagenRow) Private columnezaUl_Id As Global.System.Data.DataColumn Private columnezaUl_EZAId As Global.System.Data.DataColumn Private columnezaUl_Bereich As Global.System.Data.DataColumn Private columnezaUl_Art As Global.System.Data.DataColumn Private columnezaUl_Nummer As Global.System.Data.DataColumn Private columnezaUl_DatumAusstellung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_EZA_Unterlagen" 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 ezaUl_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaUl_Id End Get End Property _ Public ReadOnly Property ezaUl_EZAIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaUl_EZAId End Get End Property _ Public ReadOnly Property ezaUl_BereichColumn() As Global.System.Data.DataColumn Get Return Me.columnezaUl_Bereich End Get End Property _ Public ReadOnly Property ezaUl_ArtColumn() As Global.System.Data.DataColumn Get Return Me.columnezaUl_Art End Get End Property _ Public ReadOnly Property ezaUl_NummerColumn() As Global.System.Data.DataColumn Get Return Me.columnezaUl_Nummer End Get End Property _ Public ReadOnly Property ezaUl_DatumAusstellungColumn() As Global.System.Data.DataColumn Get Return Me.columnezaUl_DatumAusstellung 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 tblDakosy_EZA_UnterlagenRow Get Return CType(Me.Rows(index),tblDakosy_EZA_UnterlagenRow) End Get End Property _ Public Event tblDakosy_EZA_UnterlagenRowChanging As tblDakosy_EZA_UnterlagenRowChangeEventHandler _ Public Event tblDakosy_EZA_UnterlagenRowChanged As tblDakosy_EZA_UnterlagenRowChangeEventHandler _ Public Event tblDakosy_EZA_UnterlagenRowDeleting As tblDakosy_EZA_UnterlagenRowChangeEventHandler _ Public Event tblDakosy_EZA_UnterlagenRowDeleted As tblDakosy_EZA_UnterlagenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_EZA_UnterlagenRow(ByVal row As tblDakosy_EZA_UnterlagenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_EZA_UnterlagenRow(ByVal ezaUl_EZAId As Integer, ByVal ezaUl_Bereich As String, ByVal ezaUl_Art As String, ByVal ezaUl_Nummer As String, ByVal ezaUl_DatumAusstellung As Date) As tblDakosy_EZA_UnterlagenRow Dim rowtblDakosy_EZA_UnterlagenRow As tblDakosy_EZA_UnterlagenRow = CType(Me.NewRow,tblDakosy_EZA_UnterlagenRow) Dim columnValuesArray() As Object = New Object() {Nothing, ezaUl_EZAId, ezaUl_Bereich, ezaUl_Art, ezaUl_Nummer, ezaUl_DatumAusstellung} rowtblDakosy_EZA_UnterlagenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_EZA_UnterlagenRow) Return rowtblDakosy_EZA_UnterlagenRow End Function _ Public Function FindByezaUl_Id(ByVal ezaUl_Id As Integer) As tblDakosy_EZA_UnterlagenRow Return CType(Me.Rows.Find(New Object() {ezaUl_Id}),tblDakosy_EZA_UnterlagenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_EZA_UnterlagenDataTable = CType(MyBase.Clone,tblDakosy_EZA_UnterlagenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_EZA_UnterlagenDataTable() End Function _ Friend Sub InitVars() Me.columnezaUl_Id = MyBase.Columns("ezaUl_Id") Me.columnezaUl_EZAId = MyBase.Columns("ezaUl_EZAId") Me.columnezaUl_Bereich = MyBase.Columns("ezaUl_Bereich") Me.columnezaUl_Art = MyBase.Columns("ezaUl_Art") Me.columnezaUl_Nummer = MyBase.Columns("ezaUl_Nummer") Me.columnezaUl_DatumAusstellung = MyBase.Columns("ezaUl_DatumAusstellung") End Sub _ Private Sub InitClass() Me.columnezaUl_Id = New Global.System.Data.DataColumn("ezaUl_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaUl_Id) Me.columnezaUl_EZAId = New Global.System.Data.DataColumn("ezaUl_EZAId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaUl_EZAId) Me.columnezaUl_Bereich = New Global.System.Data.DataColumn("ezaUl_Bereich", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaUl_Bereich) Me.columnezaUl_Art = New Global.System.Data.DataColumn("ezaUl_Art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaUl_Art) Me.columnezaUl_Nummer = New Global.System.Data.DataColumn("ezaUl_Nummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaUl_Nummer) Me.columnezaUl_DatumAusstellung = New Global.System.Data.DataColumn("ezaUl_DatumAusstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaUl_DatumAusstellung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezaUl_Id}, true)) Me.columnezaUl_Id.AutoIncrement = true Me.columnezaUl_Id.AutoIncrementSeed = -1 Me.columnezaUl_Id.AutoIncrementStep = -1 Me.columnezaUl_Id.AllowDBNull = false Me.columnezaUl_Id.ReadOnly = true Me.columnezaUl_Id.Unique = true Me.columnezaUl_EZAId.AllowDBNull = false Me.columnezaUl_Bereich.MaxLength = 1 Me.columnezaUl_Art.MaxLength = 4 Me.columnezaUl_Nummer.MaxLength = 35 End Sub _ Public Function NewtblDakosy_EZA_UnterlagenRow() As tblDakosy_EZA_UnterlagenRow Return CType(Me.NewRow,tblDakosy_EZA_UnterlagenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_EZA_UnterlagenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_EZA_UnterlagenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_EZA_UnterlagenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_UnterlagenRowChanged(Me, New tblDakosy_EZA_UnterlagenRowChangeEvent(CType(e.Row,tblDakosy_EZA_UnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_EZA_UnterlagenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_UnterlagenRowChanging(Me, New tblDakosy_EZA_UnterlagenRowChangeEvent(CType(e.Row,tblDakosy_EZA_UnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_EZA_UnterlagenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_UnterlagenRowDeleted(Me, New tblDakosy_EZA_UnterlagenRowChangeEvent(CType(e.Row,tblDakosy_EZA_UnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_EZA_UnterlagenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_UnterlagenRowDeleting(Me, New tblDakosy_EZA_UnterlagenRowChangeEvent(CType(e.Row,tblDakosy_EZA_UnterlagenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_EZA_UnterlagenRow(ByVal row As tblDakosy_EZA_UnterlagenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_EZA_UnterlagenDataTable" 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 tblDakosy_EZA_WarenpositionDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_EZA_WarenpositionRow) Private columnezaWP_Id As Global.System.Data.DataColumn Private columnezaWP_EzaId As Global.System.Data.DataColumn Private columnezaWP_PositionsNummer As Global.System.Data.DataColumn Private columnezaWP_Artikelnummer As Global.System.Data.DataColumn Private columnezaWP_WarennummerEZT As Global.System.Data.DataColumn Private columnezaWP_WarennummerZusatzCode1 As Global.System.Data.DataColumn Private columnezaWP_WarennummerZusatzCode2 As Global.System.Data.DataColumn Private columnezaWP_WarennummerZusatzCode3 As Global.System.Data.DataColumn Private columnezaWP_WarennummerZusatzCode4 As Global.System.Data.DataColumn Private columnezaWP_WarennummerZusatzCode5 As Global.System.Data.DataColumn Private columnezaWP_WarennummerZusatzCode6 As Global.System.Data.DataColumn Private columnezaWP_WarennummerZusatzCode7 As Global.System.Data.DataColumn Private columnezaWP_WarennummerZusatzCode8 As Global.System.Data.DataColumn Private columnezaWP_WarennummerZusatzCode9 As Global.System.Data.DataColumn Private columnezaWP_WarennummerZusatzCode10 As Global.System.Data.DataColumn Private columnezaWP_Warennummerzusatz1 As Global.System.Data.DataColumn Private columnezaWP_Warennummerzusatz2 As Global.System.Data.DataColumn Private columnezaWP_Warenbezeichnung As Global.System.Data.DataColumn Private columnezaWP_VerfahrensCodeVorangegangenesVerfahren As Global.System.Data.DataColumn Private columnezaWP_AbgabensteuerungKz As Global.System.Data.DataColumn Private columnezaWP_EUCode As Global.System.Data.DataColumn Private columnezaWP_UrsprungslandCode As Global.System.Data.DataColumn Private columnezaWP_Rohmasse As Global.System.Data.DataColumn Private columnezaWP_Eigenmasse As Global.System.Data.DataColumn Private columnezaWP_AHStatMenge As Global.System.Data.DataColumn Private columnezaWP_AHStatMengeMasseinheit As Global.System.Data.DataColumn Private columnezaWP_AHStatMengeQualifier As Global.System.Data.DataColumn Private columnezaWP_KostenEUSt As Global.System.Data.DataColumn Private columnezaWP_AHStatWert As Global.System.Data.DataColumn Private columnezaWP_PackstueckAnzahl As Global.System.Data.DataColumn Private columnezaWP_PackstueckArt As Global.System.Data.DataColumn Private columnezaWP_PackstueckZeichen As Global.System.Data.DataColumn Private columnezaWP_Warenmenge1 As Global.System.Data.DataColumn Private columnezaWP_WarenMasseinheit1 As Global.System.Data.DataColumn Private columnezaWP_WarenQualifier1 As Global.System.Data.DataColumn Private columnezaWP_Warenmenge2 As Global.System.Data.DataColumn Private columnezaWP_WarenMasseinheit2 As Global.System.Data.DataColumn Private columnezaWP_WarenQualifier2 As Global.System.Data.DataColumn Private columnezaWP_Warenmenge3 As Global.System.Data.DataColumn Private columnezaWP_WarenMasseinheit3 As Global.System.Data.DataColumn Private columnezaWP_WarenQualifier3 As Global.System.Data.DataColumn Private columnezaWP_Warenmenge4 As Global.System.Data.DataColumn Private columnezaWP_WarenMasseinheit4 As Global.System.Data.DataColumn Private columnezaWP_WarenQualifier4 As Global.System.Data.DataColumn Private columnezaWP_Warenmenge5 As Global.System.Data.DataColumn Private columnezaWP_WarenMasseinheit5 As Global.System.Data.DataColumn Private columnezaWP_WarenQualifier5 As Global.System.Data.DataColumn Private columnezaWP_BeguenstigungBenatragtCode As Global.System.Data.DataColumn Private columnezaWP_Kentigentnummer1 As Global.System.Data.DataColumn Private columnezaWP_Kentigentnummer2 As Global.System.Data.DataColumn Private columnezaWP_PositionsZusatz As Global.System.Data.DataColumn Private columnezaWP_AHStatWertManuellKZ As Global.System.Data.DataColumn Private columnezaWP_Artikelpreis As Global.System.Data.DataColumn Private columnezaWP_ArtikelpreisWaehrung As Global.System.Data.DataColumn Private columnezaWP_OrtVerbringens As Global.System.Data.DataColumn Private columnezaWP_AbflughafenIATACode As Global.System.Data.DataColumn Private columnezaWP_WarenmengeAVUVZugang As Global.System.Data.DataColumn Private columnezaWP_WarenmengeAVUVZugangMasseinheit As Global.System.Data.DataColumn Private columnezaWP_WarenmengeAVUVZugangMasseinheitQualifier As Global.System.Data.DataColumn Private columnezaWP_Sachbereich As Global.System.Data.DataColumn Private columnezaWP_BedingungCode As Global.System.Data.DataColumn Private columnezaWP_VeredelungWertsteigerung As Global.System.Data.DataColumn Private columnezaWP_TabakSteuerzeichenID As Global.System.Data.DataColumn Private columnezaWP_GehaltsAngabenArtCode1 As Global.System.Data.DataColumn Private columnezaWP_GehaltsAngabenGradProzent1 As Global.System.Data.DataColumn Private columnezaWP_GehaltsAngabenArtCode2 As Global.System.Data.DataColumn Private columnezaWP_GehaltsAngabenGradProzent2 As Global.System.Data.DataColumn Private columnezaWP_GehaltsAngabenArtCode3 As Global.System.Data.DataColumn Private columnezaWP_GehaltsAngabenGradProzent3 As Global.System.Data.DataColumn Private columnezaWP_BeguenstigungsMengeMenge As Global.System.Data.DataColumn Private columnezaWP_BeguenstigungsMengeMasseinheitCode As Global.System.Data.DataColumn Private columnezaWP_BeguenstigungsMengeQualifier As Global.System.Data.DataColumn Private columnezaWP_Abgabenminderung_AbgabengruppeCode1 As Global.System.Data.DataColumn Private columnezaWP_Abgabenminderung_Minderungsbetrag1 As Global.System.Data.DataColumn Private columnezaWP_Abgabenminderung_AbgabengruppeCode2 As Global.System.Data.DataColumn Private columnezaWP_Abgabenminderung_Minderungsbetrag2 As Global.System.Data.DataColumn Private columnezaWP_Abgabenminderung_AbgabengruppeCode3 As Global.System.Data.DataColumn Private columnezaWP_Abgabenminderung_Minderungsbetrag3 As Global.System.Data.DataColumn Private columnezaWP_BesondereWertangabe_Wert1 As Global.System.Data.DataColumn Private columnezaWP_BesondereWertangabe_PreisartCode1 As Global.System.Data.DataColumn Private columnezaWP_BesondereWertangabe_Wert2 As Global.System.Data.DataColumn Private columnezaWP_BesondereWertangabe_PreisartCode2 As Global.System.Data.DataColumn Private columnezaWP_BesondereWertangabe_Wert3 As Global.System.Data.DataColumn Private columnezaWP_BesondereWertangabe_PreisartCode3 As Global.System.Data.DataColumn Private columnezaWP_BesondereWertangabe_Wert4 As Global.System.Data.DataColumn Private columnezaWP_BesondereWertangabe_PreisartCode4 As Global.System.Data.DataColumn Private columnezaWP_BesondereWertangabe_Wert5 As Global.System.Data.DataColumn Private columnezaWP_BesondereWertangabe_PreisartCode5 As Global.System.Data.DataColumn Private columnezaWP_VZAStatus As Global.System.Data.DataColumn Private columnezaWP_EGZStatus As Global.System.Data.DataColumn Private columnezaWP_DV1Status As Global.System.Data.DataColumn Private columnezaWP_AnmeldeArt As Global.System.Data.DataColumn Private columnezaWP_BefundDatum As Global.System.Data.DataColumn Private columnezaWP_AnmelderAdressCodeEORI As Global.System.Data.DataColumn Private columnezaWP_Zollverfahren As Global.System.Data.DataColumn Private columnezaWP_AbrechnungszollstelleCode As Global.System.Data.DataColumn Private columnezaWP_SachbereichCode As Global.System.Data.DataColumn Private columnezaWP_RegistriernummerZA As Global.System.Data.DataColumn Private columnezaWP_AnmeldeVErfahren As Global.System.Data.DataColumn Private columnezaWP_Bewilligungsnummer As Global.System.Data.DataColumn Private columnezaWP_BewilligungsnummerEndverwenderEGZDurchDritte As Global.System.Data.DataColumn Private columnezaWP_Zollwert As Global.System.Data.DataColumn Private columnezaWP_LuftfrachtkostenGesamt As Global.System.Data.DataColumn Private columnezaWP_IATAKursKz As Global.System.Data.DataColumn Private columnezaWP_LuftfrachtkostenGesamtWaehrung As Global.System.Data.DataColumn Private columnezaWP_KursVereinbartKz As Global.System.Data.DataColumn Private columnezaWP_KursBetragVereinbart As Global.System.Data.DataColumn Private columnezaWP_KursDatum As Global.System.Data.DataColumn Private columnezaWP_Aussenhandelsstatistik_VerkehrszweigInland As Global.System.Data.DataColumn Private columnezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze As Global.System.Data.DataColumn Private columnezaWP_Aussenhandelsstatistik_Versendungsland As Global.System.Data.DataColumn Private columnezaWP_Aussenhandelsstatistik_BEstimmungsbundesland As Global.System.Data.DataColumn Private columnezaWP_Aussenhandelsstatistik_Bestimmungsland As Global.System.Data.DataColumn Private columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode As Global.System.Data.DataColumn Private columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt As Global.System.Data.DataColumn Private columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung As Global.System.Data.DataColumn Private columnezaWP_Aussenhandelsstatistik_ArtGeschaeft As Global.System.Data.DataColumn Private columnezaWP_Aussenhandelsstatistik_Statistikstatus As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_EZA_Warenposition" 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 ezaWP_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Id End Get End Property _ Public ReadOnly Property ezaWP_EzaIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_EzaId End Get End Property _ Public ReadOnly Property ezaWP_PositionsNummerColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_PositionsNummer End Get End Property _ Public ReadOnly Property ezaWP_ArtikelnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Artikelnummer End Get End Property _ Public ReadOnly Property ezaWP_WarennummerEZTColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerEZT End Get End Property _ Public ReadOnly Property ezaWP_WarennummerZusatzCode1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerZusatzCode1 End Get End Property _ Public ReadOnly Property ezaWP_WarennummerZusatzCode2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerZusatzCode2 End Get End Property _ Public ReadOnly Property ezaWP_WarennummerZusatzCode3Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerZusatzCode3 End Get End Property _ Public ReadOnly Property ezaWP_WarennummerZusatzCode4Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerZusatzCode4 End Get End Property _ Public ReadOnly Property ezaWP_WarennummerZusatzCode5Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerZusatzCode5 End Get End Property _ Public ReadOnly Property ezaWP_WarennummerZusatzCode6Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerZusatzCode6 End Get End Property _ Public ReadOnly Property ezaWP_WarennummerZusatzCode7Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerZusatzCode7 End Get End Property _ Public ReadOnly Property ezaWP_WarennummerZusatzCode8Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerZusatzCode8 End Get End Property _ Public ReadOnly Property ezaWP_WarennummerZusatzCode9Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerZusatzCode9 End Get End Property _ Public ReadOnly Property ezaWP_WarennummerZusatzCode10Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarennummerZusatzCode10 End Get End Property _ Public ReadOnly Property ezaWP_Warennummerzusatz1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Warennummerzusatz1 End Get End Property _ Public ReadOnly Property ezaWP_Warennummerzusatz2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Warennummerzusatz2 End Get End Property _ Public ReadOnly Property ezaWP_WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Warenbezeichnung End Get End Property _ Public ReadOnly Property ezaWP_VerfahrensCodeVorangegangenesVerfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_VerfahrensCodeVorangegangenesVerfahren End Get End Property _ Public ReadOnly Property ezaWP_AbgabensteuerungKzColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AbgabensteuerungKz End Get End Property _ Public ReadOnly Property ezaWP_EUCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_EUCode End Get End Property _ Public ReadOnly Property ezaWP_UrsprungslandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_UrsprungslandCode End Get End Property _ Public ReadOnly Property ezaWP_RohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Rohmasse End Get End Property _ Public ReadOnly Property ezaWP_EigenmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Eigenmasse End Get End Property _ Public ReadOnly Property ezaWP_AHStatMengeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AHStatMenge End Get End Property _ Public ReadOnly Property ezaWP_AHStatMengeMasseinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AHStatMengeMasseinheit End Get End Property _ Public ReadOnly Property ezaWP_AHStatMengeQualifierColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AHStatMengeQualifier End Get End Property _ Public ReadOnly Property ezaWP_KostenEUStColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_KostenEUSt End Get End Property _ Public ReadOnly Property ezaWP_AHStatWertColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AHStatWert End Get End Property _ Public ReadOnly Property ezaWP_PackstueckAnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_PackstueckAnzahl End Get End Property _ Public ReadOnly Property ezaWP_PackstueckArtColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_PackstueckArt End Get End Property _ Public ReadOnly Property ezaWP_PackstueckZeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_PackstueckZeichen End Get End Property _ Public ReadOnly Property ezaWP_Warenmenge1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Warenmenge1 End Get End Property _ Public ReadOnly Property ezaWP_WarenMasseinheit1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenMasseinheit1 End Get End Property _ Public ReadOnly Property ezaWP_WarenQualifier1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenQualifier1 End Get End Property _ Public ReadOnly Property ezaWP_Warenmenge2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Warenmenge2 End Get End Property _ Public ReadOnly Property ezaWP_WarenMasseinheit2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenMasseinheit2 End Get End Property _ Public ReadOnly Property ezaWP_WarenQualifier2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenQualifier2 End Get End Property _ Public ReadOnly Property ezaWP_Warenmenge3Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Warenmenge3 End Get End Property _ Public ReadOnly Property ezaWP_WarenMasseinheit3Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenMasseinheit3 End Get End Property _ Public ReadOnly Property ezaWP_WarenQualifier3Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenQualifier3 End Get End Property _ Public ReadOnly Property ezaWP_Warenmenge4Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Warenmenge4 End Get End Property _ Public ReadOnly Property ezaWP_WarenMasseinheit4Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenMasseinheit4 End Get End Property _ Public ReadOnly Property ezaWP_WarenQualifier4Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenQualifier4 End Get End Property _ Public ReadOnly Property ezaWP_Warenmenge5Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Warenmenge5 End Get End Property _ Public ReadOnly Property ezaWP_WarenMasseinheit5Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenMasseinheit5 End Get End Property _ Public ReadOnly Property ezaWP_WarenQualifier5Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenQualifier5 End Get End Property _ Public ReadOnly Property ezaWP_BeguenstigungBenatragtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BeguenstigungBenatragtCode End Get End Property _ Public ReadOnly Property ezaWP_Kentigentnummer1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Kentigentnummer1 End Get End Property _ Public ReadOnly Property ezaWP_Kentigentnummer2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Kentigentnummer2 End Get End Property _ Public ReadOnly Property ezaWP_PositionsZusatzColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_PositionsZusatz End Get End Property _ Public ReadOnly Property ezaWP_AHStatWertManuellKZColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AHStatWertManuellKZ End Get End Property _ Public ReadOnly Property ezaWP_ArtikelpreisColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Artikelpreis End Get End Property _ Public ReadOnly Property ezaWP_ArtikelpreisWaehrungColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_ArtikelpreisWaehrung End Get End Property _ Public ReadOnly Property ezaWP_OrtVerbringensColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_OrtVerbringens End Get End Property _ Public ReadOnly Property ezaWP_AbflughafenIATACodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AbflughafenIATACode End Get End Property _ Public ReadOnly Property ezaWP_WarenmengeAVUVZugangColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenmengeAVUVZugang End Get End Property _ Public ReadOnly Property ezaWP_WarenmengeAVUVZugangMasseinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenmengeAVUVZugangMasseinheit End Get End Property _ Public ReadOnly Property ezaWP_WarenmengeAVUVZugangMasseinheitQualifierColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_WarenmengeAVUVZugangMasseinheitQualifier End Get End Property _ Public ReadOnly Property ezaWP_SachbereichColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Sachbereich End Get End Property _ Public ReadOnly Property ezaWP_BedingungCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BedingungCode End Get End Property _ Public ReadOnly Property ezaWP_VeredelungWertsteigerungColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_VeredelungWertsteigerung End Get End Property _ Public ReadOnly Property ezaWP_TabakSteuerzeichenIDColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_TabakSteuerzeichenID End Get End Property _ Public ReadOnly Property ezaWP_GehaltsAngabenArtCode1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_GehaltsAngabenArtCode1 End Get End Property _ Public ReadOnly Property ezaWP_GehaltsAngabenGradProzent1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_GehaltsAngabenGradProzent1 End Get End Property _ Public ReadOnly Property ezaWP_GehaltsAngabenArtCode2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_GehaltsAngabenArtCode2 End Get End Property _ Public ReadOnly Property ezaWP_GehaltsAngabenGradProzent2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_GehaltsAngabenGradProzent2 End Get End Property _ Public ReadOnly Property ezaWP_GehaltsAngabenArtCode3Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_GehaltsAngabenArtCode3 End Get End Property _ Public ReadOnly Property ezaWP_GehaltsAngabenGradProzent3Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_GehaltsAngabenGradProzent3 End Get End Property _ Public ReadOnly Property ezaWP_BeguenstigungsMengeMengeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BeguenstigungsMengeMenge End Get End Property _ Public ReadOnly Property ezaWP_BeguenstigungsMengeMasseinheitCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BeguenstigungsMengeMasseinheitCode End Get End Property _ Public ReadOnly Property ezaWP_BeguenstigungsMengeQualifierColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BeguenstigungsMengeQualifier End Get End Property _ Public ReadOnly Property ezaWP_Abgabenminderung_AbgabengruppeCode1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Abgabenminderung_AbgabengruppeCode1 End Get End Property _ Public ReadOnly Property ezaWP_Abgabenminderung_Minderungsbetrag1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Abgabenminderung_Minderungsbetrag1 End Get End Property _ Public ReadOnly Property ezaWP_Abgabenminderung_AbgabengruppeCode2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Abgabenminderung_AbgabengruppeCode2 End Get End Property _ Public ReadOnly Property ezaWP_Abgabenminderung_Minderungsbetrag2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Abgabenminderung_Minderungsbetrag2 End Get End Property _ Public ReadOnly Property ezaWP_Abgabenminderung_AbgabengruppeCode3Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Abgabenminderung_AbgabengruppeCode3 End Get End Property _ Public ReadOnly Property ezaWP_Abgabenminderung_Minderungsbetrag3Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Abgabenminderung_Minderungsbetrag3 End Get End Property _ Public ReadOnly Property ezaWP_BesondereWertangabe_Wert1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BesondereWertangabe_Wert1 End Get End Property _ Public ReadOnly Property ezaWP_BesondereWertangabe_PreisartCode1Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BesondereWertangabe_PreisartCode1 End Get End Property _ Public ReadOnly Property ezaWP_BesondereWertangabe_Wert2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BesondereWertangabe_Wert2 End Get End Property _ Public ReadOnly Property ezaWP_BesondereWertangabe_PreisartCode2Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BesondereWertangabe_PreisartCode2 End Get End Property _ Public ReadOnly Property ezaWP_BesondereWertangabe_Wert3Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BesondereWertangabe_Wert3 End Get End Property _ Public ReadOnly Property ezaWP_BesondereWertangabe_PreisartCode3Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BesondereWertangabe_PreisartCode3 End Get End Property _ Public ReadOnly Property ezaWP_BesondereWertangabe_Wert4Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BesondereWertangabe_Wert4 End Get End Property _ Public ReadOnly Property ezaWP_BesondereWertangabe_PreisartCode4Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BesondereWertangabe_PreisartCode4 End Get End Property _ Public ReadOnly Property ezaWP_BesondereWertangabe_Wert5Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BesondereWertangabe_Wert5 End Get End Property _ Public ReadOnly Property ezaWP_BesondereWertangabe_PreisartCode5Column() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BesondereWertangabe_PreisartCode5 End Get End Property _ Public ReadOnly Property ezaWP_VZAStatusColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_VZAStatus End Get End Property _ Public ReadOnly Property ezaWP_EGZStatusColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_EGZStatus End Get End Property _ Public ReadOnly Property ezaWP_DV1StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_DV1Status End Get End Property _ Public ReadOnly Property ezaWP_AnmeldeArtColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AnmeldeArt End Get End Property _ Public ReadOnly Property ezaWP_BefundDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BefundDatum End Get End Property _ Public ReadOnly Property ezaWP_AnmelderAdressCodeEORIColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AnmelderAdressCodeEORI End Get End Property _ Public ReadOnly Property ezaWP_ZollverfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Zollverfahren End Get End Property _ Public ReadOnly Property ezaWP_AbrechnungszollstelleCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AbrechnungszollstelleCode End Get End Property _ Public ReadOnly Property ezaWP_SachbereichCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_SachbereichCode End Get End Property _ Public ReadOnly Property ezaWP_RegistriernummerZAColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_RegistriernummerZA End Get End Property _ Public ReadOnly Property ezaWP_AnmeldeVErfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_AnmeldeVErfahren End Get End Property _ Public ReadOnly Property ezaWP_BewilligungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Bewilligungsnummer End Get End Property _ Public ReadOnly Property ezaWP_BewilligungsnummerEndverwenderEGZDurchDritteColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_BewilligungsnummerEndverwenderEGZDurchDritte End Get End Property _ Public ReadOnly Property ezaWP_ZollwertColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Zollwert End Get End Property _ Public ReadOnly Property ezaWP_LuftfrachtkostenGesamtColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_LuftfrachtkostenGesamt End Get End Property _ Public ReadOnly Property ezaWP_IATAKursKzColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_IATAKursKz End Get End Property _ Public ReadOnly Property ezaWP_LuftfrachtkostenGesamtWaehrungColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_LuftfrachtkostenGesamtWaehrung End Get End Property _ Public ReadOnly Property ezaWP_KursVereinbartKzColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_KursVereinbartKz End Get End Property _ Public ReadOnly Property ezaWP_KursBetragVereinbartColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_KursBetragVereinbart End Get End Property _ Public ReadOnly Property ezaWP_KursDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_KursDatum End Get End Property _ Public ReadOnly Property ezaWP_Aussenhandelsstatistik_VerkehrszweigInlandColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Aussenhandelsstatistik_VerkehrszweigInland End Get End Property _ Public ReadOnly Property ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenzeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze End Get End Property _ Public ReadOnly Property ezaWP_Aussenhandelsstatistik_VersendungslandColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Aussenhandelsstatistik_Versendungsland End Get End Property _ Public ReadOnly Property ezaWP_Aussenhandelsstatistik_BEstimmungsbundeslandColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Aussenhandelsstatistik_BEstimmungsbundesland End Get End Property _ Public ReadOnly Property ezaWP_Aussenhandelsstatistik_BestimmungslandColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Aussenhandelsstatistik_Bestimmungsland End Get End Property _ Public ReadOnly Property ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode End Get End Property _ Public ReadOnly Property ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArtColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt End Get End Property _ Public ReadOnly Property ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibungColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung End Get End Property _ Public ReadOnly Property ezaWP_Aussenhandelsstatistik_ArtGeschaeftColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Aussenhandelsstatistik_ArtGeschaeft End Get End Property _ Public ReadOnly Property ezaWP_Aussenhandelsstatistik_StatistikstatusColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWP_Aussenhandelsstatistik_Statistikstatus 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 tblDakosy_EZA_WarenpositionRow Get Return CType(Me.Rows(index),tblDakosy_EZA_WarenpositionRow) End Get End Property _ Public Event tblDakosy_EZA_WarenpositionRowChanging As tblDakosy_EZA_WarenpositionRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionRowChanged As tblDakosy_EZA_WarenpositionRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionRowDeleting As tblDakosy_EZA_WarenpositionRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionRowDeleted As tblDakosy_EZA_WarenpositionRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_EZA_WarenpositionRow(ByVal row As tblDakosy_EZA_WarenpositionRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_EZA_WarenpositionRow( _ ByVal ezaWP_EzaId As Integer, _ ByVal ezaWP_PositionsNummer As Decimal, _ ByVal ezaWP_Artikelnummer As String, _ ByVal ezaWP_WarennummerEZT As String, _ ByVal ezaWP_WarennummerZusatzCode1 As String, _ ByVal ezaWP_WarennummerZusatzCode2 As String, _ ByVal ezaWP_WarennummerZusatzCode3 As String, _ ByVal ezaWP_WarennummerZusatzCode4 As String, _ ByVal ezaWP_WarennummerZusatzCode5 As String, _ ByVal ezaWP_WarennummerZusatzCode6 As String, _ ByVal ezaWP_WarennummerZusatzCode7 As String, _ ByVal ezaWP_WarennummerZusatzCode8 As String, _ ByVal ezaWP_WarennummerZusatzCode9 As String, _ ByVal ezaWP_WarennummerZusatzCode10 As String, _ ByVal ezaWP_Warennummerzusatz1 As String, _ ByVal ezaWP_Warennummerzusatz2 As String, _ ByVal ezaWP_Warenbezeichnung As String, _ ByVal ezaWP_VerfahrensCodeVorangegangenesVerfahren As String, _ ByVal ezaWP_AbgabensteuerungKz As String, _ ByVal ezaWP_EUCode As String, _ ByVal ezaWP_UrsprungslandCode As String, _ ByVal ezaWP_Rohmasse As Decimal, _ ByVal ezaWP_Eigenmasse As Decimal, _ ByVal ezaWP_AHStatMenge As Decimal, _ ByVal ezaWP_AHStatMengeMasseinheit As String, _ ByVal ezaWP_AHStatMengeQualifier As String, _ ByVal ezaWP_KostenEUSt As Decimal, _ ByVal ezaWP_AHStatWert As Decimal, _ ByVal ezaWP_PackstueckAnzahl As Decimal, _ ByVal ezaWP_PackstueckArt As String, _ ByVal ezaWP_PackstueckZeichen As String, _ ByVal ezaWP_Warenmenge1 As Decimal, _ ByVal ezaWP_WarenMasseinheit1 As String, _ ByVal ezaWP_WarenQualifier1 As String, _ ByVal ezaWP_Warenmenge2 As Decimal, _ ByVal ezaWP_WarenMasseinheit2 As String, _ ByVal ezaWP_WarenQualifier2 As String, _ ByVal ezaWP_Warenmenge3 As Decimal, _ ByVal ezaWP_WarenMasseinheit3 As String, _ ByVal ezaWP_WarenQualifier3 As String, _ ByVal ezaWP_Warenmenge4 As Decimal, _ ByVal ezaWP_WarenMasseinheit4 As String, _ ByVal ezaWP_WarenQualifier4 As String, _ ByVal ezaWP_Warenmenge5 As Decimal, _ ByVal ezaWP_WarenMasseinheit5 As String, _ ByVal ezaWP_WarenQualifier5 As String, _ ByVal ezaWP_BeguenstigungBenatragtCode As String, _ ByVal ezaWP_Kentigentnummer1 As String, _ ByVal ezaWP_Kentigentnummer2 As String, _ ByVal ezaWP_PositionsZusatz As String, _ ByVal ezaWP_AHStatWertManuellKZ As String, _ ByVal ezaWP_Artikelpreis As Decimal, _ ByVal ezaWP_ArtikelpreisWaehrung As String, _ ByVal ezaWP_OrtVerbringens As String, _ ByVal ezaWP_AbflughafenIATACode As String, _ ByVal ezaWP_WarenmengeAVUVZugang As Decimal, _ ByVal ezaWP_WarenmengeAVUVZugangMasseinheit As String, _ ByVal ezaWP_WarenmengeAVUVZugangMasseinheitQualifier As String, _ ByVal ezaWP_Sachbereich As String, _ ByVal ezaWP_BedingungCode As String, _ ByVal ezaWP_VeredelungWertsteigerung As Decimal, _ ByVal ezaWP_TabakSteuerzeichenID As String, _ ByVal ezaWP_GehaltsAngabenArtCode1 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent1 As Decimal, _ ByVal ezaWP_GehaltsAngabenArtCode2 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent2 As Decimal, _ ByVal ezaWP_GehaltsAngabenArtCode3 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent3 As Decimal, _ ByVal ezaWP_BeguenstigungsMengeMenge As Decimal, _ ByVal ezaWP_BeguenstigungsMengeMasseinheitCode As String, _ ByVal ezaWP_BeguenstigungsMengeQualifier As String, _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode1 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag1 As Decimal, _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode2 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag2 As Decimal, _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode3 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag3 As Decimal, _ ByVal ezaWP_BesondereWertangabe_Wert1 As Decimal, _ ByVal ezaWP_BesondereWertangabe_PreisartCode1 As String, _ ByVal ezaWP_BesondereWertangabe_Wert2 As Decimal, _ ByVal ezaWP_BesondereWertangabe_PreisartCode2 As String, _ ByVal ezaWP_BesondereWertangabe_Wert3 As Decimal, _ ByVal ezaWP_BesondereWertangabe_PreisartCode3 As String, _ ByVal ezaWP_BesondereWertangabe_Wert4 As Decimal, _ ByVal ezaWP_BesondereWertangabe_PreisartCode4 As String, _ ByVal ezaWP_BesondereWertangabe_Wert5 As Decimal, _ ByVal ezaWP_BesondereWertangabe_PreisartCode5 As String, _ ByVal ezaWP_VZAStatus As String, _ ByVal ezaWP_EGZStatus As String, _ ByVal ezaWP_DV1Status As String, _ ByVal ezaWP_AnmeldeArt As String, _ ByVal ezaWP_BefundDatum As Date, _ ByVal ezaWP_AnmelderAdressCodeEORI As String, _ ByVal ezaWP_Zollverfahren As String, _ ByVal ezaWP_AbrechnungszollstelleCode As String, _ ByVal ezaWP_SachbereichCode As String, _ ByVal ezaWP_RegistriernummerZA As String, _ ByVal ezaWP_AnmeldeVErfahren As String, _ ByVal ezaWP_Bewilligungsnummer As String, _ ByVal ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte As String, _ ByVal ezaWP_Zollwert As Decimal, _ ByVal ezaWP_LuftfrachtkostenGesamt As Decimal, _ ByVal ezaWP_IATAKursKz As String, _ ByVal ezaWP_LuftfrachtkostenGesamtWaehrung As String, _ ByVal ezaWP_KursVereinbartKz As String, _ ByVal ezaWP_KursBetragVereinbart As Decimal, _ ByVal ezaWP_KursDatum As Date, _ ByVal ezaWP_Aussenhandelsstatistik_VerkehrszweigInland As String, _ ByVal ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze As String, _ ByVal ezaWP_Aussenhandelsstatistik_Versendungsland As String, _ ByVal ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland As String, _ ByVal ezaWP_Aussenhandelsstatistik_Bestimmungsland As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung As String, _ ByVal ezaWP_Aussenhandelsstatistik_ArtGeschaeft As String, _ ByVal ezaWP_Aussenhandelsstatistik_Statistikstatus As String) As tblDakosy_EZA_WarenpositionRow Dim rowtblDakosy_EZA_WarenpositionRow As tblDakosy_EZA_WarenpositionRow = CType(Me.NewRow,tblDakosy_EZA_WarenpositionRow) Dim columnValuesArray() As Object = New Object() {Nothing, ezaWP_EzaId, ezaWP_PositionsNummer, ezaWP_Artikelnummer, ezaWP_WarennummerEZT, ezaWP_WarennummerZusatzCode1, ezaWP_WarennummerZusatzCode2, ezaWP_WarennummerZusatzCode3, ezaWP_WarennummerZusatzCode4, ezaWP_WarennummerZusatzCode5, ezaWP_WarennummerZusatzCode6, ezaWP_WarennummerZusatzCode7, ezaWP_WarennummerZusatzCode8, ezaWP_WarennummerZusatzCode9, ezaWP_WarennummerZusatzCode10, ezaWP_Warennummerzusatz1, ezaWP_Warennummerzusatz2, ezaWP_Warenbezeichnung, ezaWP_VerfahrensCodeVorangegangenesVerfahren, ezaWP_AbgabensteuerungKz, ezaWP_EUCode, ezaWP_UrsprungslandCode, ezaWP_Rohmasse, ezaWP_Eigenmasse, ezaWP_AHStatMenge, ezaWP_AHStatMengeMasseinheit, ezaWP_AHStatMengeQualifier, ezaWP_KostenEUSt, ezaWP_AHStatWert, ezaWP_PackstueckAnzahl, ezaWP_PackstueckArt, ezaWP_PackstueckZeichen, ezaWP_Warenmenge1, ezaWP_WarenMasseinheit1, ezaWP_WarenQualifier1, ezaWP_Warenmenge2, ezaWP_WarenMasseinheit2, ezaWP_WarenQualifier2, ezaWP_Warenmenge3, ezaWP_WarenMasseinheit3, ezaWP_WarenQualifier3, ezaWP_Warenmenge4, ezaWP_WarenMasseinheit4, ezaWP_WarenQualifier4, ezaWP_Warenmenge5, ezaWP_WarenMasseinheit5, ezaWP_WarenQualifier5, ezaWP_BeguenstigungBenatragtCode, ezaWP_Kentigentnummer1, ezaWP_Kentigentnummer2, ezaWP_PositionsZusatz, ezaWP_AHStatWertManuellKZ, ezaWP_Artikelpreis, ezaWP_ArtikelpreisWaehrung, ezaWP_OrtVerbringens, ezaWP_AbflughafenIATACode, ezaWP_WarenmengeAVUVZugang, ezaWP_WarenmengeAVUVZugangMasseinheit, ezaWP_WarenmengeAVUVZugangMasseinheitQualifier, ezaWP_Sachbereich, ezaWP_BedingungCode, ezaWP_VeredelungWertsteigerung, ezaWP_TabakSteuerzeichenID, ezaWP_GehaltsAngabenArtCode1, ezaWP_GehaltsAngabenGradProzent1, ezaWP_GehaltsAngabenArtCode2, ezaWP_GehaltsAngabenGradProzent2, ezaWP_GehaltsAngabenArtCode3, ezaWP_GehaltsAngabenGradProzent3, ezaWP_BeguenstigungsMengeMenge, ezaWP_BeguenstigungsMengeMasseinheitCode, ezaWP_BeguenstigungsMengeQualifier, ezaWP_Abgabenminderung_AbgabengruppeCode1, ezaWP_Abgabenminderung_Minderungsbetrag1, ezaWP_Abgabenminderung_AbgabengruppeCode2, ezaWP_Abgabenminderung_Minderungsbetrag2, ezaWP_Abgabenminderung_AbgabengruppeCode3, ezaWP_Abgabenminderung_Minderungsbetrag3, ezaWP_BesondereWertangabe_Wert1, ezaWP_BesondereWertangabe_PreisartCode1, ezaWP_BesondereWertangabe_Wert2, ezaWP_BesondereWertangabe_PreisartCode2, ezaWP_BesondereWertangabe_Wert3, ezaWP_BesondereWertangabe_PreisartCode3, ezaWP_BesondereWertangabe_Wert4, ezaWP_BesondereWertangabe_PreisartCode4, ezaWP_BesondereWertangabe_Wert5, ezaWP_BesondereWertangabe_PreisartCode5, ezaWP_VZAStatus, ezaWP_EGZStatus, ezaWP_DV1Status, ezaWP_AnmeldeArt, ezaWP_BefundDatum, ezaWP_AnmelderAdressCodeEORI, ezaWP_Zollverfahren, ezaWP_AbrechnungszollstelleCode, ezaWP_SachbereichCode, ezaWP_RegistriernummerZA, ezaWP_AnmeldeVErfahren, ezaWP_Bewilligungsnummer, ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte, ezaWP_Zollwert, ezaWP_LuftfrachtkostenGesamt, ezaWP_IATAKursKz, ezaWP_LuftfrachtkostenGesamtWaehrung, ezaWP_KursVereinbartKz, ezaWP_KursBetragVereinbart, ezaWP_KursDatum, ezaWP_Aussenhandelsstatistik_VerkehrszweigInland, ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze, ezaWP_Aussenhandelsstatistik_Versendungsland, ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland, ezaWP_Aussenhandelsstatistik_Bestimmungsland, ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode, ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt, ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung, ezaWP_Aussenhandelsstatistik_ArtGeschaeft, ezaWP_Aussenhandelsstatistik_Statistikstatus} rowtblDakosy_EZA_WarenpositionRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_EZA_WarenpositionRow) Return rowtblDakosy_EZA_WarenpositionRow End Function _ Public Function FindByezaWP_Id(ByVal ezaWP_Id As Integer) As tblDakosy_EZA_WarenpositionRow Return CType(Me.Rows.Find(New Object() {ezaWP_Id}),tblDakosy_EZA_WarenpositionRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_EZA_WarenpositionDataTable = CType(MyBase.Clone,tblDakosy_EZA_WarenpositionDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_EZA_WarenpositionDataTable() End Function _ Friend Sub InitVars() Me.columnezaWP_Id = MyBase.Columns("ezaWP_Id") Me.columnezaWP_EzaId = MyBase.Columns("ezaWP_EzaId") Me.columnezaWP_PositionsNummer = MyBase.Columns("ezaWP_PositionsNummer") Me.columnezaWP_Artikelnummer = MyBase.Columns("ezaWP_Artikelnummer") Me.columnezaWP_WarennummerEZT = MyBase.Columns("ezaWP_WarennummerEZT") Me.columnezaWP_WarennummerZusatzCode1 = MyBase.Columns("ezaWP_WarennummerZusatzCode1") Me.columnezaWP_WarennummerZusatzCode2 = MyBase.Columns("ezaWP_WarennummerZusatzCode2") Me.columnezaWP_WarennummerZusatzCode3 = MyBase.Columns("ezaWP_WarennummerZusatzCode3") Me.columnezaWP_WarennummerZusatzCode4 = MyBase.Columns("ezaWP_WarennummerZusatzCode4") Me.columnezaWP_WarennummerZusatzCode5 = MyBase.Columns("ezaWP_WarennummerZusatzCode5") Me.columnezaWP_WarennummerZusatzCode6 = MyBase.Columns("ezaWP_WarennummerZusatzCode6") Me.columnezaWP_WarennummerZusatzCode7 = MyBase.Columns("ezaWP_WarennummerZusatzCode7") Me.columnezaWP_WarennummerZusatzCode8 = MyBase.Columns("ezaWP_WarennummerZusatzCode8") Me.columnezaWP_WarennummerZusatzCode9 = MyBase.Columns("ezaWP_WarennummerZusatzCode9") Me.columnezaWP_WarennummerZusatzCode10 = MyBase.Columns("ezaWP_WarennummerZusatzCode10") Me.columnezaWP_Warennummerzusatz1 = MyBase.Columns("ezaWP_Warennummerzusatz1") Me.columnezaWP_Warennummerzusatz2 = MyBase.Columns("ezaWP_Warennummerzusatz2") Me.columnezaWP_Warenbezeichnung = MyBase.Columns("ezaWP_Warenbezeichnung") Me.columnezaWP_VerfahrensCodeVorangegangenesVerfahren = MyBase.Columns("ezaWP_VerfahrensCodeVorangegangenesVerfahren") Me.columnezaWP_AbgabensteuerungKz = MyBase.Columns("ezaWP_AbgabensteuerungKz") Me.columnezaWP_EUCode = MyBase.Columns("ezaWP_EUCode") Me.columnezaWP_UrsprungslandCode = MyBase.Columns("ezaWP_UrsprungslandCode") Me.columnezaWP_Rohmasse = MyBase.Columns("ezaWP_Rohmasse") Me.columnezaWP_Eigenmasse = MyBase.Columns("ezaWP_Eigenmasse") Me.columnezaWP_AHStatMenge = MyBase.Columns("ezaWP_AHStatMenge") Me.columnezaWP_AHStatMengeMasseinheit = MyBase.Columns("ezaWP_AHStatMengeMasseinheit") Me.columnezaWP_AHStatMengeQualifier = MyBase.Columns("ezaWP_AHStatMengeQualifier") Me.columnezaWP_KostenEUSt = MyBase.Columns("ezaWP_KostenEUSt") Me.columnezaWP_AHStatWert = MyBase.Columns("ezaWP_AHStatWert") Me.columnezaWP_PackstueckAnzahl = MyBase.Columns("ezaWP_PackstueckAnzahl") Me.columnezaWP_PackstueckArt = MyBase.Columns("ezaWP_PackstueckArt") Me.columnezaWP_PackstueckZeichen = MyBase.Columns("ezaWP_PackstueckZeichen") Me.columnezaWP_Warenmenge1 = MyBase.Columns("ezaWP_Warenmenge1") Me.columnezaWP_WarenMasseinheit1 = MyBase.Columns("ezaWP_WarenMasseinheit1") Me.columnezaWP_WarenQualifier1 = MyBase.Columns("ezaWP_WarenQualifier1") Me.columnezaWP_Warenmenge2 = MyBase.Columns("ezaWP_Warenmenge2") Me.columnezaWP_WarenMasseinheit2 = MyBase.Columns("ezaWP_WarenMasseinheit2") Me.columnezaWP_WarenQualifier2 = MyBase.Columns("ezaWP_WarenQualifier2") Me.columnezaWP_Warenmenge3 = MyBase.Columns("ezaWP_Warenmenge3") Me.columnezaWP_WarenMasseinheit3 = MyBase.Columns("ezaWP_WarenMasseinheit3") Me.columnezaWP_WarenQualifier3 = MyBase.Columns("ezaWP_WarenQualifier3") Me.columnezaWP_Warenmenge4 = MyBase.Columns("ezaWP_Warenmenge4") Me.columnezaWP_WarenMasseinheit4 = MyBase.Columns("ezaWP_WarenMasseinheit4") Me.columnezaWP_WarenQualifier4 = MyBase.Columns("ezaWP_WarenQualifier4") Me.columnezaWP_Warenmenge5 = MyBase.Columns("ezaWP_Warenmenge5") Me.columnezaWP_WarenMasseinheit5 = MyBase.Columns("ezaWP_WarenMasseinheit5") Me.columnezaWP_WarenQualifier5 = MyBase.Columns("ezaWP_WarenQualifier5") Me.columnezaWP_BeguenstigungBenatragtCode = MyBase.Columns("ezaWP_BeguenstigungBenatragtCode") Me.columnezaWP_Kentigentnummer1 = MyBase.Columns("ezaWP_Kentigentnummer1") Me.columnezaWP_Kentigentnummer2 = MyBase.Columns("ezaWP_Kentigentnummer2") Me.columnezaWP_PositionsZusatz = MyBase.Columns("ezaWP_PositionsZusatz") Me.columnezaWP_AHStatWertManuellKZ = MyBase.Columns("ezaWP_AHStatWertManuellKZ") Me.columnezaWP_Artikelpreis = MyBase.Columns("ezaWP_Artikelpreis") Me.columnezaWP_ArtikelpreisWaehrung = MyBase.Columns("ezaWP_ArtikelpreisWaehrung") Me.columnezaWP_OrtVerbringens = MyBase.Columns("ezaWP_OrtVerbringens") Me.columnezaWP_AbflughafenIATACode = MyBase.Columns("ezaWP_AbflughafenIATACode") Me.columnezaWP_WarenmengeAVUVZugang = MyBase.Columns("ezaWP_WarenmengeAVUVZugang") Me.columnezaWP_WarenmengeAVUVZugangMasseinheit = MyBase.Columns("ezaWP_WarenmengeAVUVZugangMasseinheit") Me.columnezaWP_WarenmengeAVUVZugangMasseinheitQualifier = MyBase.Columns("ezaWP_WarenmengeAVUVZugangMasseinheitQualifier") Me.columnezaWP_Sachbereich = MyBase.Columns("ezaWP_Sachbereich") Me.columnezaWP_BedingungCode = MyBase.Columns("ezaWP_BedingungCode") Me.columnezaWP_VeredelungWertsteigerung = MyBase.Columns("ezaWP_VeredelungWertsteigerung") Me.columnezaWP_TabakSteuerzeichenID = MyBase.Columns("ezaWP_TabakSteuerzeichenID") Me.columnezaWP_GehaltsAngabenArtCode1 = MyBase.Columns("ezaWP_GehaltsAngabenArtCode1") Me.columnezaWP_GehaltsAngabenGradProzent1 = MyBase.Columns("ezaWP_GehaltsAngabenGradProzent1") Me.columnezaWP_GehaltsAngabenArtCode2 = MyBase.Columns("ezaWP_GehaltsAngabenArtCode2") Me.columnezaWP_GehaltsAngabenGradProzent2 = MyBase.Columns("ezaWP_GehaltsAngabenGradProzent2") Me.columnezaWP_GehaltsAngabenArtCode3 = MyBase.Columns("ezaWP_GehaltsAngabenArtCode3") Me.columnezaWP_GehaltsAngabenGradProzent3 = MyBase.Columns("ezaWP_GehaltsAngabenGradProzent3") Me.columnezaWP_BeguenstigungsMengeMenge = MyBase.Columns("ezaWP_BeguenstigungsMengeMenge") Me.columnezaWP_BeguenstigungsMengeMasseinheitCode = MyBase.Columns("ezaWP_BeguenstigungsMengeMasseinheitCode") Me.columnezaWP_BeguenstigungsMengeQualifier = MyBase.Columns("ezaWP_BeguenstigungsMengeQualifier") Me.columnezaWP_Abgabenminderung_AbgabengruppeCode1 = MyBase.Columns("ezaWP_Abgabenminderung_AbgabengruppeCode1") Me.columnezaWP_Abgabenminderung_Minderungsbetrag1 = MyBase.Columns("ezaWP_Abgabenminderung_Minderungsbetrag1") Me.columnezaWP_Abgabenminderung_AbgabengruppeCode2 = MyBase.Columns("ezaWP_Abgabenminderung_AbgabengruppeCode2") Me.columnezaWP_Abgabenminderung_Minderungsbetrag2 = MyBase.Columns("ezaWP_Abgabenminderung_Minderungsbetrag2") Me.columnezaWP_Abgabenminderung_AbgabengruppeCode3 = MyBase.Columns("ezaWP_Abgabenminderung_AbgabengruppeCode3") Me.columnezaWP_Abgabenminderung_Minderungsbetrag3 = MyBase.Columns("ezaWP_Abgabenminderung_Minderungsbetrag3") Me.columnezaWP_BesondereWertangabe_Wert1 = MyBase.Columns("ezaWP_BesondereWertangabe_Wert1") Me.columnezaWP_BesondereWertangabe_PreisartCode1 = MyBase.Columns("ezaWP_BesondereWertangabe_PreisartCode1") Me.columnezaWP_BesondereWertangabe_Wert2 = MyBase.Columns("ezaWP_BesondereWertangabe_Wert2") Me.columnezaWP_BesondereWertangabe_PreisartCode2 = MyBase.Columns("ezaWP_BesondereWertangabe_PreisartCode2") Me.columnezaWP_BesondereWertangabe_Wert3 = MyBase.Columns("ezaWP_BesondereWertangabe_Wert3") Me.columnezaWP_BesondereWertangabe_PreisartCode3 = MyBase.Columns("ezaWP_BesondereWertangabe_PreisartCode3") Me.columnezaWP_BesondereWertangabe_Wert4 = MyBase.Columns("ezaWP_BesondereWertangabe_Wert4") Me.columnezaWP_BesondereWertangabe_PreisartCode4 = MyBase.Columns("ezaWP_BesondereWertangabe_PreisartCode4") Me.columnezaWP_BesondereWertangabe_Wert5 = MyBase.Columns("ezaWP_BesondereWertangabe_Wert5") Me.columnezaWP_BesondereWertangabe_PreisartCode5 = MyBase.Columns("ezaWP_BesondereWertangabe_PreisartCode5") Me.columnezaWP_VZAStatus = MyBase.Columns("ezaWP_VZAStatus") Me.columnezaWP_EGZStatus = MyBase.Columns("ezaWP_EGZStatus") Me.columnezaWP_DV1Status = MyBase.Columns("ezaWP_DV1Status") Me.columnezaWP_AnmeldeArt = MyBase.Columns("ezaWP_AnmeldeArt") Me.columnezaWP_BefundDatum = MyBase.Columns("ezaWP_BefundDatum") Me.columnezaWP_AnmelderAdressCodeEORI = MyBase.Columns("ezaWP_AnmelderAdressCodeEORI") Me.columnezaWP_Zollverfahren = MyBase.Columns("ezaWP_Zollverfahren") Me.columnezaWP_AbrechnungszollstelleCode = MyBase.Columns("ezaWP_AbrechnungszollstelleCode") Me.columnezaWP_SachbereichCode = MyBase.Columns("ezaWP_SachbereichCode") Me.columnezaWP_RegistriernummerZA = MyBase.Columns("ezaWP_RegistriernummerZA") Me.columnezaWP_AnmeldeVErfahren = MyBase.Columns("ezaWP_AnmeldeVErfahren") Me.columnezaWP_Bewilligungsnummer = MyBase.Columns("ezaWP_Bewilligungsnummer") Me.columnezaWP_BewilligungsnummerEndverwenderEGZDurchDritte = MyBase.Columns("ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte") Me.columnezaWP_Zollwert = MyBase.Columns("ezaWP_Zollwert") Me.columnezaWP_LuftfrachtkostenGesamt = MyBase.Columns("ezaWP_LuftfrachtkostenGesamt") Me.columnezaWP_IATAKursKz = MyBase.Columns("ezaWP_IATAKursKz") Me.columnezaWP_LuftfrachtkostenGesamtWaehrung = MyBase.Columns("ezaWP_LuftfrachtkostenGesamtWaehrung") Me.columnezaWP_KursVereinbartKz = MyBase.Columns("ezaWP_KursVereinbartKz") Me.columnezaWP_KursBetragVereinbart = MyBase.Columns("ezaWP_KursBetragVereinbart") Me.columnezaWP_KursDatum = MyBase.Columns("ezaWP_KursDatum") Me.columnezaWP_Aussenhandelsstatistik_VerkehrszweigInland = MyBase.Columns("ezaWP_Aussenhandelsstatistik_VerkehrszweigInland") Me.columnezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze = MyBase.Columns("ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze") Me.columnezaWP_Aussenhandelsstatistik_Versendungsland = MyBase.Columns("ezaWP_Aussenhandelsstatistik_Versendungsland") Me.columnezaWP_Aussenhandelsstatistik_BEstimmungsbundesland = MyBase.Columns("ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland") Me.columnezaWP_Aussenhandelsstatistik_Bestimmungsland = MyBase.Columns("ezaWP_Aussenhandelsstatistik_Bestimmungsland") Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode = MyBase.Columns("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode") Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt = MyBase.Columns("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt") Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung = MyBase.Columns("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung") Me.columnezaWP_Aussenhandelsstatistik_ArtGeschaeft = MyBase.Columns("ezaWP_Aussenhandelsstatistik_ArtGeschaeft") Me.columnezaWP_Aussenhandelsstatistik_Statistikstatus = MyBase.Columns("ezaWP_Aussenhandelsstatistik_Statistikstatus") End Sub _ Private Sub InitClass() Me.columnezaWP_Id = New Global.System.Data.DataColumn("ezaWP_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Id) Me.columnezaWP_EzaId = New Global.System.Data.DataColumn("ezaWP_EzaId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_EzaId) Me.columnezaWP_PositionsNummer = New Global.System.Data.DataColumn("ezaWP_PositionsNummer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_PositionsNummer) Me.columnezaWP_Artikelnummer = New Global.System.Data.DataColumn("ezaWP_Artikelnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Artikelnummer) Me.columnezaWP_WarennummerEZT = New Global.System.Data.DataColumn("ezaWP_WarennummerEZT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerEZT) Me.columnezaWP_WarennummerZusatzCode1 = New Global.System.Data.DataColumn("ezaWP_WarennummerZusatzCode1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerZusatzCode1) Me.columnezaWP_WarennummerZusatzCode2 = New Global.System.Data.DataColumn("ezaWP_WarennummerZusatzCode2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerZusatzCode2) Me.columnezaWP_WarennummerZusatzCode3 = New Global.System.Data.DataColumn("ezaWP_WarennummerZusatzCode3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerZusatzCode3) Me.columnezaWP_WarennummerZusatzCode4 = New Global.System.Data.DataColumn("ezaWP_WarennummerZusatzCode4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerZusatzCode4) Me.columnezaWP_WarennummerZusatzCode5 = New Global.System.Data.DataColumn("ezaWP_WarennummerZusatzCode5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerZusatzCode5) Me.columnezaWP_WarennummerZusatzCode6 = New Global.System.Data.DataColumn("ezaWP_WarennummerZusatzCode6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerZusatzCode6) Me.columnezaWP_WarennummerZusatzCode7 = New Global.System.Data.DataColumn("ezaWP_WarennummerZusatzCode7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerZusatzCode7) Me.columnezaWP_WarennummerZusatzCode8 = New Global.System.Data.DataColumn("ezaWP_WarennummerZusatzCode8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerZusatzCode8) Me.columnezaWP_WarennummerZusatzCode9 = New Global.System.Data.DataColumn("ezaWP_WarennummerZusatzCode9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerZusatzCode9) Me.columnezaWP_WarennummerZusatzCode10 = New Global.System.Data.DataColumn("ezaWP_WarennummerZusatzCode10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarennummerZusatzCode10) Me.columnezaWP_Warennummerzusatz1 = New Global.System.Data.DataColumn("ezaWP_Warennummerzusatz1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Warennummerzusatz1) Me.columnezaWP_Warennummerzusatz2 = New Global.System.Data.DataColumn("ezaWP_Warennummerzusatz2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Warennummerzusatz2) Me.columnezaWP_Warenbezeichnung = New Global.System.Data.DataColumn("ezaWP_Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Warenbezeichnung) Me.columnezaWP_VerfahrensCodeVorangegangenesVerfahren = New Global.System.Data.DataColumn("ezaWP_VerfahrensCodeVorangegangenesVerfahren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_VerfahrensCodeVorangegangenesVerfahren) Me.columnezaWP_AbgabensteuerungKz = New Global.System.Data.DataColumn("ezaWP_AbgabensteuerungKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AbgabensteuerungKz) Me.columnezaWP_EUCode = New Global.System.Data.DataColumn("ezaWP_EUCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_EUCode) Me.columnezaWP_UrsprungslandCode = New Global.System.Data.DataColumn("ezaWP_UrsprungslandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_UrsprungslandCode) Me.columnezaWP_Rohmasse = New Global.System.Data.DataColumn("ezaWP_Rohmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Rohmasse) Me.columnezaWP_Eigenmasse = New Global.System.Data.DataColumn("ezaWP_Eigenmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Eigenmasse) Me.columnezaWP_AHStatMenge = New Global.System.Data.DataColumn("ezaWP_AHStatMenge", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AHStatMenge) Me.columnezaWP_AHStatMengeMasseinheit = New Global.System.Data.DataColumn("ezaWP_AHStatMengeMasseinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AHStatMengeMasseinheit) Me.columnezaWP_AHStatMengeQualifier = New Global.System.Data.DataColumn("ezaWP_AHStatMengeQualifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AHStatMengeQualifier) Me.columnezaWP_KostenEUSt = New Global.System.Data.DataColumn("ezaWP_KostenEUSt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_KostenEUSt) Me.columnezaWP_AHStatWert = New Global.System.Data.DataColumn("ezaWP_AHStatWert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AHStatWert) Me.columnezaWP_PackstueckAnzahl = New Global.System.Data.DataColumn("ezaWP_PackstueckAnzahl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_PackstueckAnzahl) Me.columnezaWP_PackstueckArt = New Global.System.Data.DataColumn("ezaWP_PackstueckArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_PackstueckArt) Me.columnezaWP_PackstueckZeichen = New Global.System.Data.DataColumn("ezaWP_PackstueckZeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_PackstueckZeichen) Me.columnezaWP_Warenmenge1 = New Global.System.Data.DataColumn("ezaWP_Warenmenge1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Warenmenge1) Me.columnezaWP_WarenMasseinheit1 = New Global.System.Data.DataColumn("ezaWP_WarenMasseinheit1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenMasseinheit1) Me.columnezaWP_WarenQualifier1 = New Global.System.Data.DataColumn("ezaWP_WarenQualifier1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenQualifier1) Me.columnezaWP_Warenmenge2 = New Global.System.Data.DataColumn("ezaWP_Warenmenge2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Warenmenge2) Me.columnezaWP_WarenMasseinheit2 = New Global.System.Data.DataColumn("ezaWP_WarenMasseinheit2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenMasseinheit2) Me.columnezaWP_WarenQualifier2 = New Global.System.Data.DataColumn("ezaWP_WarenQualifier2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenQualifier2) Me.columnezaWP_Warenmenge3 = New Global.System.Data.DataColumn("ezaWP_Warenmenge3", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Warenmenge3) Me.columnezaWP_WarenMasseinheit3 = New Global.System.Data.DataColumn("ezaWP_WarenMasseinheit3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenMasseinheit3) Me.columnezaWP_WarenQualifier3 = New Global.System.Data.DataColumn("ezaWP_WarenQualifier3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenQualifier3) Me.columnezaWP_Warenmenge4 = New Global.System.Data.DataColumn("ezaWP_Warenmenge4", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Warenmenge4) Me.columnezaWP_WarenMasseinheit4 = New Global.System.Data.DataColumn("ezaWP_WarenMasseinheit4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenMasseinheit4) Me.columnezaWP_WarenQualifier4 = New Global.System.Data.DataColumn("ezaWP_WarenQualifier4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenQualifier4) Me.columnezaWP_Warenmenge5 = New Global.System.Data.DataColumn("ezaWP_Warenmenge5", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Warenmenge5) Me.columnezaWP_WarenMasseinheit5 = New Global.System.Data.DataColumn("ezaWP_WarenMasseinheit5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenMasseinheit5) Me.columnezaWP_WarenQualifier5 = New Global.System.Data.DataColumn("ezaWP_WarenQualifier5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenQualifier5) Me.columnezaWP_BeguenstigungBenatragtCode = New Global.System.Data.DataColumn("ezaWP_BeguenstigungBenatragtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BeguenstigungBenatragtCode) Me.columnezaWP_Kentigentnummer1 = New Global.System.Data.DataColumn("ezaWP_Kentigentnummer1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Kentigentnummer1) Me.columnezaWP_Kentigentnummer2 = New Global.System.Data.DataColumn("ezaWP_Kentigentnummer2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Kentigentnummer2) Me.columnezaWP_PositionsZusatz = New Global.System.Data.DataColumn("ezaWP_PositionsZusatz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_PositionsZusatz) Me.columnezaWP_AHStatWertManuellKZ = New Global.System.Data.DataColumn("ezaWP_AHStatWertManuellKZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AHStatWertManuellKZ) Me.columnezaWP_Artikelpreis = New Global.System.Data.DataColumn("ezaWP_Artikelpreis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Artikelpreis) Me.columnezaWP_ArtikelpreisWaehrung = New Global.System.Data.DataColumn("ezaWP_ArtikelpreisWaehrung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_ArtikelpreisWaehrung) Me.columnezaWP_OrtVerbringens = New Global.System.Data.DataColumn("ezaWP_OrtVerbringens", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_OrtVerbringens) Me.columnezaWP_AbflughafenIATACode = New Global.System.Data.DataColumn("ezaWP_AbflughafenIATACode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AbflughafenIATACode) Me.columnezaWP_WarenmengeAVUVZugang = New Global.System.Data.DataColumn("ezaWP_WarenmengeAVUVZugang", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenmengeAVUVZugang) Me.columnezaWP_WarenmengeAVUVZugangMasseinheit = New Global.System.Data.DataColumn("ezaWP_WarenmengeAVUVZugangMasseinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenmengeAVUVZugangMasseinheit) Me.columnezaWP_WarenmengeAVUVZugangMasseinheitQualifier = New Global.System.Data.DataColumn("ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_WarenmengeAVUVZugangMasseinheitQualifier) Me.columnezaWP_Sachbereich = New Global.System.Data.DataColumn("ezaWP_Sachbereich", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Sachbereich) Me.columnezaWP_BedingungCode = New Global.System.Data.DataColumn("ezaWP_BedingungCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BedingungCode) Me.columnezaWP_VeredelungWertsteigerung = New Global.System.Data.DataColumn("ezaWP_VeredelungWertsteigerung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_VeredelungWertsteigerung) Me.columnezaWP_TabakSteuerzeichenID = New Global.System.Data.DataColumn("ezaWP_TabakSteuerzeichenID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_TabakSteuerzeichenID) Me.columnezaWP_GehaltsAngabenArtCode1 = New Global.System.Data.DataColumn("ezaWP_GehaltsAngabenArtCode1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_GehaltsAngabenArtCode1) Me.columnezaWP_GehaltsAngabenGradProzent1 = New Global.System.Data.DataColumn("ezaWP_GehaltsAngabenGradProzent1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_GehaltsAngabenGradProzent1) Me.columnezaWP_GehaltsAngabenArtCode2 = New Global.System.Data.DataColumn("ezaWP_GehaltsAngabenArtCode2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_GehaltsAngabenArtCode2) Me.columnezaWP_GehaltsAngabenGradProzent2 = New Global.System.Data.DataColumn("ezaWP_GehaltsAngabenGradProzent2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_GehaltsAngabenGradProzent2) Me.columnezaWP_GehaltsAngabenArtCode3 = New Global.System.Data.DataColumn("ezaWP_GehaltsAngabenArtCode3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_GehaltsAngabenArtCode3) Me.columnezaWP_GehaltsAngabenGradProzent3 = New Global.System.Data.DataColumn("ezaWP_GehaltsAngabenGradProzent3", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_GehaltsAngabenGradProzent3) Me.columnezaWP_BeguenstigungsMengeMenge = New Global.System.Data.DataColumn("ezaWP_BeguenstigungsMengeMenge", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BeguenstigungsMengeMenge) Me.columnezaWP_BeguenstigungsMengeMasseinheitCode = New Global.System.Data.DataColumn("ezaWP_BeguenstigungsMengeMasseinheitCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BeguenstigungsMengeMasseinheitCode) Me.columnezaWP_BeguenstigungsMengeQualifier = New Global.System.Data.DataColumn("ezaWP_BeguenstigungsMengeQualifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BeguenstigungsMengeQualifier) Me.columnezaWP_Abgabenminderung_AbgabengruppeCode1 = New Global.System.Data.DataColumn("ezaWP_Abgabenminderung_AbgabengruppeCode1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Abgabenminderung_AbgabengruppeCode1) Me.columnezaWP_Abgabenminderung_Minderungsbetrag1 = New Global.System.Data.DataColumn("ezaWP_Abgabenminderung_Minderungsbetrag1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Abgabenminderung_Minderungsbetrag1) Me.columnezaWP_Abgabenminderung_AbgabengruppeCode2 = New Global.System.Data.DataColumn("ezaWP_Abgabenminderung_AbgabengruppeCode2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Abgabenminderung_AbgabengruppeCode2) Me.columnezaWP_Abgabenminderung_Minderungsbetrag2 = New Global.System.Data.DataColumn("ezaWP_Abgabenminderung_Minderungsbetrag2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Abgabenminderung_Minderungsbetrag2) Me.columnezaWP_Abgabenminderung_AbgabengruppeCode3 = New Global.System.Data.DataColumn("ezaWP_Abgabenminderung_AbgabengruppeCode3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Abgabenminderung_AbgabengruppeCode3) Me.columnezaWP_Abgabenminderung_Minderungsbetrag3 = New Global.System.Data.DataColumn("ezaWP_Abgabenminderung_Minderungsbetrag3", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Abgabenminderung_Minderungsbetrag3) Me.columnezaWP_BesondereWertangabe_Wert1 = New Global.System.Data.DataColumn("ezaWP_BesondereWertangabe_Wert1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BesondereWertangabe_Wert1) Me.columnezaWP_BesondereWertangabe_PreisartCode1 = New Global.System.Data.DataColumn("ezaWP_BesondereWertangabe_PreisartCode1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BesondereWertangabe_PreisartCode1) Me.columnezaWP_BesondereWertangabe_Wert2 = New Global.System.Data.DataColumn("ezaWP_BesondereWertangabe_Wert2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BesondereWertangabe_Wert2) Me.columnezaWP_BesondereWertangabe_PreisartCode2 = New Global.System.Data.DataColumn("ezaWP_BesondereWertangabe_PreisartCode2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BesondereWertangabe_PreisartCode2) Me.columnezaWP_BesondereWertangabe_Wert3 = New Global.System.Data.DataColumn("ezaWP_BesondereWertangabe_Wert3", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BesondereWertangabe_Wert3) Me.columnezaWP_BesondereWertangabe_PreisartCode3 = New Global.System.Data.DataColumn("ezaWP_BesondereWertangabe_PreisartCode3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BesondereWertangabe_PreisartCode3) Me.columnezaWP_BesondereWertangabe_Wert4 = New Global.System.Data.DataColumn("ezaWP_BesondereWertangabe_Wert4", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BesondereWertangabe_Wert4) Me.columnezaWP_BesondereWertangabe_PreisartCode4 = New Global.System.Data.DataColumn("ezaWP_BesondereWertangabe_PreisartCode4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BesondereWertangabe_PreisartCode4) Me.columnezaWP_BesondereWertangabe_Wert5 = New Global.System.Data.DataColumn("ezaWP_BesondereWertangabe_Wert5", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BesondereWertangabe_Wert5) Me.columnezaWP_BesondereWertangabe_PreisartCode5 = New Global.System.Data.DataColumn("ezaWP_BesondereWertangabe_PreisartCode5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BesondereWertangabe_PreisartCode5) Me.columnezaWP_VZAStatus = New Global.System.Data.DataColumn("ezaWP_VZAStatus", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_VZAStatus) Me.columnezaWP_EGZStatus = New Global.System.Data.DataColumn("ezaWP_EGZStatus", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_EGZStatus) Me.columnezaWP_DV1Status = New Global.System.Data.DataColumn("ezaWP_DV1Status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_DV1Status) Me.columnezaWP_AnmeldeArt = New Global.System.Data.DataColumn("ezaWP_AnmeldeArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AnmeldeArt) Me.columnezaWP_BefundDatum = New Global.System.Data.DataColumn("ezaWP_BefundDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BefundDatum) Me.columnezaWP_AnmelderAdressCodeEORI = New Global.System.Data.DataColumn("ezaWP_AnmelderAdressCodeEORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AnmelderAdressCodeEORI) Me.columnezaWP_Zollverfahren = New Global.System.Data.DataColumn("ezaWP_Zollverfahren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Zollverfahren) Me.columnezaWP_AbrechnungszollstelleCode = New Global.System.Data.DataColumn("ezaWP_AbrechnungszollstelleCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AbrechnungszollstelleCode) Me.columnezaWP_SachbereichCode = New Global.System.Data.DataColumn("ezaWP_SachbereichCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_SachbereichCode) Me.columnezaWP_RegistriernummerZA = New Global.System.Data.DataColumn("ezaWP_RegistriernummerZA", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_RegistriernummerZA) Me.columnezaWP_AnmeldeVErfahren = New Global.System.Data.DataColumn("ezaWP_AnmeldeVErfahren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_AnmeldeVErfahren) Me.columnezaWP_Bewilligungsnummer = New Global.System.Data.DataColumn("ezaWP_Bewilligungsnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Bewilligungsnummer) Me.columnezaWP_BewilligungsnummerEndverwenderEGZDurchDritte = New Global.System.Data.DataColumn("ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_BewilligungsnummerEndverwenderEGZDurchDritte) Me.columnezaWP_Zollwert = New Global.System.Data.DataColumn("ezaWP_Zollwert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Zollwert) Me.columnezaWP_LuftfrachtkostenGesamt = New Global.System.Data.DataColumn("ezaWP_LuftfrachtkostenGesamt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_LuftfrachtkostenGesamt) Me.columnezaWP_IATAKursKz = New Global.System.Data.DataColumn("ezaWP_IATAKursKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_IATAKursKz) Me.columnezaWP_LuftfrachtkostenGesamtWaehrung = New Global.System.Data.DataColumn("ezaWP_LuftfrachtkostenGesamtWaehrung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_LuftfrachtkostenGesamtWaehrung) Me.columnezaWP_KursVereinbartKz = New Global.System.Data.DataColumn("ezaWP_KursVereinbartKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_KursVereinbartKz) Me.columnezaWP_KursBetragVereinbart = New Global.System.Data.DataColumn("ezaWP_KursBetragVereinbart", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_KursBetragVereinbart) Me.columnezaWP_KursDatum = New Global.System.Data.DataColumn("ezaWP_KursDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_KursDatum) Me.columnezaWP_Aussenhandelsstatistik_VerkehrszweigInland = New Global.System.Data.DataColumn("ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Aussenhandelsstatistik_VerkehrszweigInland) Me.columnezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze = New Global.System.Data.DataColumn("ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze) Me.columnezaWP_Aussenhandelsstatistik_Versendungsland = New Global.System.Data.DataColumn("ezaWP_Aussenhandelsstatistik_Versendungsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Aussenhandelsstatistik_Versendungsland) Me.columnezaWP_Aussenhandelsstatistik_BEstimmungsbundesland = New Global.System.Data.DataColumn("ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Aussenhandelsstatistik_BEstimmungsbundesland) Me.columnezaWP_Aussenhandelsstatistik_Bestimmungsland = New Global.System.Data.DataColumn("ezaWP_Aussenhandelsstatistik_Bestimmungsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Aussenhandelsstatistik_Bestimmungsland) Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode = New Global.System.Data.DataColumn("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode) Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt = New Global.System.Data.DataColumn("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt) Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung = New Global.System.Data.DataColumn("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung) Me.columnezaWP_Aussenhandelsstatistik_ArtGeschaeft = New Global.System.Data.DataColumn("ezaWP_Aussenhandelsstatistik_ArtGeschaeft", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Aussenhandelsstatistik_ArtGeschaeft) Me.columnezaWP_Aussenhandelsstatistik_Statistikstatus = New Global.System.Data.DataColumn("ezaWP_Aussenhandelsstatistik_Statistikstatus", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWP_Aussenhandelsstatistik_Statistikstatus) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezaWP_Id}, true)) Me.columnezaWP_Id.AutoIncrement = true Me.columnezaWP_Id.AutoIncrementSeed = -1 Me.columnezaWP_Id.AutoIncrementStep = -1 Me.columnezaWP_Id.AllowDBNull = false Me.columnezaWP_Id.ReadOnly = true Me.columnezaWP_Id.Unique = true Me.columnezaWP_EzaId.AllowDBNull = false Me.columnezaWP_Artikelnummer.MaxLength = 35 Me.columnezaWP_WarennummerEZT.MaxLength = 11 Me.columnezaWP_WarennummerZusatzCode1.MaxLength = 4 Me.columnezaWP_WarennummerZusatzCode2.MaxLength = 4 Me.columnezaWP_WarennummerZusatzCode3.MaxLength = 4 Me.columnezaWP_WarennummerZusatzCode4.MaxLength = 4 Me.columnezaWP_WarennummerZusatzCode5.MaxLength = 4 Me.columnezaWP_WarennummerZusatzCode6.MaxLength = 4 Me.columnezaWP_WarennummerZusatzCode7.MaxLength = 4 Me.columnezaWP_WarennummerZusatzCode8.MaxLength = 4 Me.columnezaWP_WarennummerZusatzCode9.MaxLength = 4 Me.columnezaWP_WarennummerZusatzCode10.MaxLength = 4 Me.columnezaWP_Warennummerzusatz1.MaxLength = 4 Me.columnezaWP_Warennummerzusatz2.MaxLength = 4 Me.columnezaWP_Warenbezeichnung.MaxLength = 240 Me.columnezaWP_VerfahrensCodeVorangegangenesVerfahren.MaxLength = 2 Me.columnezaWP_AbgabensteuerungKz.MaxLength = 2 Me.columnezaWP_EUCode.MaxLength = 3 Me.columnezaWP_UrsprungslandCode.MaxLength = 2 Me.columnezaWP_AHStatMengeMasseinheit.MaxLength = 3 Me.columnezaWP_AHStatMengeQualifier.MaxLength = 1 Me.columnezaWP_PackstueckArt.MaxLength = 2 Me.columnezaWP_PackstueckZeichen.MaxLength = 70 Me.columnezaWP_WarenMasseinheit1.MaxLength = 3 Me.columnezaWP_WarenQualifier1.MaxLength = 1 Me.columnezaWP_WarenMasseinheit2.MaxLength = 3 Me.columnezaWP_WarenQualifier2.MaxLength = 1 Me.columnezaWP_WarenMasseinheit3.MaxLength = 3 Me.columnezaWP_WarenQualifier3.MaxLength = 1 Me.columnezaWP_WarenMasseinheit4.MaxLength = 3 Me.columnezaWP_WarenQualifier4.MaxLength = 1 Me.columnezaWP_WarenMasseinheit5.MaxLength = 3 Me.columnezaWP_WarenQualifier5.MaxLength = 1 Me.columnezaWP_BeguenstigungBenatragtCode.MaxLength = 3 Me.columnezaWP_Kentigentnummer1.MaxLength = 4 Me.columnezaWP_Kentigentnummer2.MaxLength = 4 Me.columnezaWP_PositionsZusatz.MaxLength = 100 Me.columnezaWP_AHStatWertManuellKZ.MaxLength = 1 Me.columnezaWP_ArtikelpreisWaehrung.MaxLength = 3 Me.columnezaWP_OrtVerbringens.MaxLength = 35 Me.columnezaWP_AbflughafenIATACode.MaxLength = 3 Me.columnezaWP_WarenmengeAVUVZugangMasseinheit.MaxLength = 3 Me.columnezaWP_WarenmengeAVUVZugangMasseinheitQualifier.MaxLength = 1 Me.columnezaWP_Sachbereich.MaxLength = 2 Me.columnezaWP_BedingungCode.MaxLength = 1 Me.columnezaWP_TabakSteuerzeichenID.MaxLength = 5 Me.columnezaWP_GehaltsAngabenArtCode1.MaxLength = 2 Me.columnezaWP_GehaltsAngabenArtCode2.MaxLength = 2 Me.columnezaWP_GehaltsAngabenArtCode3.MaxLength = 2 Me.columnezaWP_BeguenstigungsMengeMasseinheitCode.MaxLength = 3 Me.columnezaWP_BeguenstigungsMengeQualifier.MaxLength = 1 Me.columnezaWP_Abgabenminderung_AbgabengruppeCode1.MaxLength = 2 Me.columnezaWP_Abgabenminderung_AbgabengruppeCode2.MaxLength = 2 Me.columnezaWP_Abgabenminderung_AbgabengruppeCode3.MaxLength = 2 Me.columnezaWP_BesondereWertangabe_PreisartCode1.MaxLength = 1 Me.columnezaWP_BesondereWertangabe_PreisartCode2.MaxLength = 1 Me.columnezaWP_BesondereWertangabe_PreisartCode3.MaxLength = 1 Me.columnezaWP_BesondereWertangabe_PreisartCode4.MaxLength = 1 Me.columnezaWP_BesondereWertangabe_PreisartCode5.MaxLength = 1 Me.columnezaWP_VZAStatus.MaxLength = 1 Me.columnezaWP_EGZStatus.MaxLength = 1 Me.columnezaWP_DV1Status.MaxLength = 1 Me.columnezaWP_AnmeldeArt.MaxLength = 2 Me.columnezaWP_AnmelderAdressCodeEORI.MaxLength = 17 Me.columnezaWP_Zollverfahren.MaxLength = 2 Me.columnezaWP_AbrechnungszollstelleCode.MaxLength = 4 Me.columnezaWP_SachbereichCode.MaxLength = 2 Me.columnezaWP_RegistriernummerZA.MaxLength = 21 Me.columnezaWP_AnmeldeVErfahren.MaxLength = 4 Me.columnezaWP_Bewilligungsnummer.MaxLength = 35 Me.columnezaWP_BewilligungsnummerEndverwenderEGZDurchDritte.MaxLength = 35 Me.columnezaWP_IATAKursKz.MaxLength = 1 Me.columnezaWP_LuftfrachtkostenGesamtWaehrung.MaxLength = 3 Me.columnezaWP_KursVereinbartKz.MaxLength = 1 Me.columnezaWP_Aussenhandelsstatistik_VerkehrszweigInland.MaxLength = 1 Me.columnezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze.MaxLength = 1 Me.columnezaWP_Aussenhandelsstatistik_Versendungsland.MaxLength = 2 Me.columnezaWP_Aussenhandelsstatistik_BEstimmungsbundesland.MaxLength = 2 Me.columnezaWP_Aussenhandelsstatistik_Bestimmungsland.MaxLength = 2 Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode.MaxLength = 2 Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt.MaxLength = 2 Me.columnezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung.MaxLength = 17 Me.columnezaWP_Aussenhandelsstatistik_ArtGeschaeft.MaxLength = 2 Me.columnezaWP_Aussenhandelsstatistik_Statistikstatus.MaxLength = 2 End Sub _ Public Function NewtblDakosy_EZA_WarenpositionRow() As tblDakosy_EZA_WarenpositionRow Return CType(Me.NewRow,tblDakosy_EZA_WarenpositionRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_EZA_WarenpositionRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_EZA_WarenpositionRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_EZA_WarenpositionRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionRowChanged(Me, New tblDakosy_EZA_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_EZA_WarenpositionRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionRowChanging(Me, New tblDakosy_EZA_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_EZA_WarenpositionRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionRowDeleted(Me, New tblDakosy_EZA_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_EZA_WarenpositionRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionRowDeleting(Me, New tblDakosy_EZA_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_EZA_WarenpositionRow(ByVal row As tblDakosy_EZA_WarenpositionRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_EZA_WarenpositionDataTable" 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 tblDakosy_EZA_WarenpositionSonderfalldatenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_EZA_WarenpositionSonderfalldatenRow) Private columnezaWpSfd_Id As Global.System.Data.DataColumn Private columnezaWpSfd_EzaWpId As Global.System.Data.DataColumn Private columnezaWpSfd_EzaId As Global.System.Data.DataColumn Private columnezaWpSfd_SonderabgabenGruppeCode As Global.System.Data.DataColumn Private columnezaWpSfd_AnwendungArt As Global.System.Data.DataColumn Private columnezaWpSfd_SatzBetragFaktor As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_EZA_WarenpositionSonderfalldaten" 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 ezaWpSfd_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpSfd_Id End Get End Property _ Public ReadOnly Property ezaWpSfd_EzaWpIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpSfd_EzaWpId End Get End Property _ Public ReadOnly Property ezaWpSfd_EzaIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpSfd_EzaId End Get End Property _ Public ReadOnly Property ezaWpSfd_SonderabgabenGruppeCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpSfd_SonderabgabenGruppeCode End Get End Property _ Public ReadOnly Property ezaWpSfd_AnwendungArtColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpSfd_AnwendungArt End Get End Property _ Public ReadOnly Property ezaWpSfd_SatzBetragFaktorColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpSfd_SatzBetragFaktor 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 tblDakosy_EZA_WarenpositionSonderfalldatenRow Get Return CType(Me.Rows(index),tblDakosy_EZA_WarenpositionSonderfalldatenRow) End Get End Property _ Public Event tblDakosy_EZA_WarenpositionSonderfalldatenRowChanging As tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionSonderfalldatenRowChanged As tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionSonderfalldatenRowDeleting As tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionSonderfalldatenRowDeleted As tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_EZA_WarenpositionSonderfalldatenRow(ByVal row As tblDakosy_EZA_WarenpositionSonderfalldatenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_EZA_WarenpositionSonderfalldatenRow(ByVal ezaWpSfd_EzaWpId As Integer, ByVal ezaWpSfd_EzaId As Integer, ByVal ezaWpSfd_SonderabgabenGruppeCode As String, ByVal ezaWpSfd_AnwendungArt As String, ByVal ezaWpSfd_SatzBetragFaktor As Decimal) As tblDakosy_EZA_WarenpositionSonderfalldatenRow Dim rowtblDakosy_EZA_WarenpositionSonderfalldatenRow As tblDakosy_EZA_WarenpositionSonderfalldatenRow = CType(Me.NewRow,tblDakosy_EZA_WarenpositionSonderfalldatenRow) Dim columnValuesArray() As Object = New Object() {Nothing, ezaWpSfd_EzaWpId, ezaWpSfd_EzaId, ezaWpSfd_SonderabgabenGruppeCode, ezaWpSfd_AnwendungArt, ezaWpSfd_SatzBetragFaktor} rowtblDakosy_EZA_WarenpositionSonderfalldatenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_EZA_WarenpositionSonderfalldatenRow) Return rowtblDakosy_EZA_WarenpositionSonderfalldatenRow End Function _ Public Function FindByezaWpSfd_Id(ByVal ezaWpSfd_Id As Integer) As tblDakosy_EZA_WarenpositionSonderfalldatenRow Return CType(Me.Rows.Find(New Object() {ezaWpSfd_Id}),tblDakosy_EZA_WarenpositionSonderfalldatenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_EZA_WarenpositionSonderfalldatenDataTable = CType(MyBase.Clone,tblDakosy_EZA_WarenpositionSonderfalldatenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_EZA_WarenpositionSonderfalldatenDataTable() End Function _ Friend Sub InitVars() Me.columnezaWpSfd_Id = MyBase.Columns("ezaWpSfd_Id") Me.columnezaWpSfd_EzaWpId = MyBase.Columns("ezaWpSfd_EzaWpId") Me.columnezaWpSfd_EzaId = MyBase.Columns("ezaWpSfd_EzaId") Me.columnezaWpSfd_SonderabgabenGruppeCode = MyBase.Columns("ezaWpSfd_SonderabgabenGruppeCode") Me.columnezaWpSfd_AnwendungArt = MyBase.Columns("ezaWpSfd_AnwendungArt") Me.columnezaWpSfd_SatzBetragFaktor = MyBase.Columns("ezaWpSfd_SatzBetragFaktor") End Sub _ Private Sub InitClass() Me.columnezaWpSfd_Id = New Global.System.Data.DataColumn("ezaWpSfd_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpSfd_Id) Me.columnezaWpSfd_EzaWpId = New Global.System.Data.DataColumn("ezaWpSfd_EzaWpId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpSfd_EzaWpId) Me.columnezaWpSfd_EzaId = New Global.System.Data.DataColumn("ezaWpSfd_EzaId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpSfd_EzaId) Me.columnezaWpSfd_SonderabgabenGruppeCode = New Global.System.Data.DataColumn("ezaWpSfd_SonderabgabenGruppeCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpSfd_SonderabgabenGruppeCode) Me.columnezaWpSfd_AnwendungArt = New Global.System.Data.DataColumn("ezaWpSfd_AnwendungArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpSfd_AnwendungArt) Me.columnezaWpSfd_SatzBetragFaktor = New Global.System.Data.DataColumn("ezaWpSfd_SatzBetragFaktor", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpSfd_SatzBetragFaktor) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezaWpSfd_Id}, true)) Me.columnezaWpSfd_Id.AutoIncrement = true Me.columnezaWpSfd_Id.AutoIncrementSeed = -1 Me.columnezaWpSfd_Id.AutoIncrementStep = -1 Me.columnezaWpSfd_Id.AllowDBNull = false Me.columnezaWpSfd_Id.ReadOnly = true Me.columnezaWpSfd_Id.Unique = true Me.columnezaWpSfd_EzaWpId.AllowDBNull = false Me.columnezaWpSfd_EzaId.AllowDBNull = false Me.columnezaWpSfd_SonderabgabenGruppeCode.MaxLength = 2 Me.columnezaWpSfd_AnwendungArt.MaxLength = 2 End Sub _ Public Function NewtblDakosy_EZA_WarenpositionSonderfalldatenRow() As tblDakosy_EZA_WarenpositionSonderfalldatenRow Return CType(Me.NewRow,tblDakosy_EZA_WarenpositionSonderfalldatenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_EZA_WarenpositionSonderfalldatenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_EZA_WarenpositionSonderfalldatenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_EZA_WarenpositionSonderfalldatenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionSonderfalldatenRowChanged(Me, New tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionSonderfalldatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_EZA_WarenpositionSonderfalldatenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionSonderfalldatenRowChanging(Me, New tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionSonderfalldatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_EZA_WarenpositionSonderfalldatenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionSonderfalldatenRowDeleted(Me, New tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionSonderfalldatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_EZA_WarenpositionSonderfalldatenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionSonderfalldatenRowDeleting(Me, New tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionSonderfalldatenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_EZA_WarenpositionSonderfalldatenRow(ByVal row As tblDakosy_EZA_WarenpositionSonderfalldatenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_EZA_WarenpositionSonderfalldatenDataTable" 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 tblDakosy_EZA_WarenpositionUnterlagenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_EZA_WarenpositionUnterlagenRow) Private columnezaWpUl_Id As Global.System.Data.DataColumn Private columnezaWpUl_EzaWpId As Global.System.Data.DataColumn Private columnezaWpUl_EzaId As Global.System.Data.DataColumn Private columnezaWpUl_Bereich As Global.System.Data.DataColumn Private columnezaWpUl_Art As Global.System.Data.DataColumn Private columnezaWpUl_Nummer As Global.System.Data.DataColumn Private columnezaWpUl_DatumAusstellung As Global.System.Data.DataColumn Private columnezaWpUl_VorlageKz As Global.System.Data.DataColumn Private columnezaWpUl_AbschreibungsMenge As Global.System.Data.DataColumn Private columnezaWpUl_AbschreibungsMengeMasseinheit As Global.System.Data.DataColumn Private columnezaWpUl_AbschreibungsMengeMasseinheitQualifier As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_EZA_WarenpositionUnterlagen" 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 ezaWpUl_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_Id End Get End Property _ Public ReadOnly Property ezaWpUl_EzaWpIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_EzaWpId End Get End Property _ Public ReadOnly Property ezaWpUl_EzaIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_EzaId End Get End Property _ Public ReadOnly Property ezaWpUl_BereichColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_Bereich End Get End Property _ Public ReadOnly Property ezaWpUl_ArtColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_Art End Get End Property _ Public ReadOnly Property ezaWpUl_NummerColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_Nummer End Get End Property _ Public ReadOnly Property ezaWpUl_DatumAusstellungColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_DatumAusstellung End Get End Property _ Public ReadOnly Property ezaWpUl_VorlageKzColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_VorlageKz End Get End Property _ Public ReadOnly Property ezaWpUl_AbschreibungsMengeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_AbschreibungsMenge End Get End Property _ Public ReadOnly Property ezaWpUl_AbschreibungsMengeMasseinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_AbschreibungsMengeMasseinheit End Get End Property _ Public ReadOnly Property ezaWpUl_AbschreibungsMengeMasseinheitQualifierColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpUl_AbschreibungsMengeMasseinheitQualifier 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 tblDakosy_EZA_WarenpositionUnterlagenRow Get Return CType(Me.Rows(index),tblDakosy_EZA_WarenpositionUnterlagenRow) End Get End Property _ Public Event tblDakosy_EZA_WarenpositionUnterlagenRowChanging As tblDakosy_EZA_WarenpositionUnterlagenRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionUnterlagenRowChanged As tblDakosy_EZA_WarenpositionUnterlagenRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionUnterlagenRowDeleting As tblDakosy_EZA_WarenpositionUnterlagenRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionUnterlagenRowDeleted As tblDakosy_EZA_WarenpositionUnterlagenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_EZA_WarenpositionUnterlagenRow(ByVal row As tblDakosy_EZA_WarenpositionUnterlagenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_EZA_WarenpositionUnterlagenRow(ByVal ezaWpUl_EzaWpId As Integer, ByVal ezaWpUl_EzaId As Integer, ByVal ezaWpUl_Bereich As String, ByVal ezaWpUl_Art As String, ByVal ezaWpUl_Nummer As String, ByVal ezaWpUl_DatumAusstellung As Date, ByVal ezaWpUl_VorlageKz As String, ByVal ezaWpUl_AbschreibungsMenge As Decimal, ByVal ezaWpUl_AbschreibungsMengeMasseinheit As String, ByVal ezaWpUl_AbschreibungsMengeMasseinheitQualifier As String) As tblDakosy_EZA_WarenpositionUnterlagenRow Dim rowtblDakosy_EZA_WarenpositionUnterlagenRow As tblDakosy_EZA_WarenpositionUnterlagenRow = CType(Me.NewRow,tblDakosy_EZA_WarenpositionUnterlagenRow) Dim columnValuesArray() As Object = New Object() {Nothing, ezaWpUl_EzaWpId, ezaWpUl_EzaId, ezaWpUl_Bereich, ezaWpUl_Art, ezaWpUl_Nummer, ezaWpUl_DatumAusstellung, ezaWpUl_VorlageKz, ezaWpUl_AbschreibungsMenge, ezaWpUl_AbschreibungsMengeMasseinheit, ezaWpUl_AbschreibungsMengeMasseinheitQualifier} rowtblDakosy_EZA_WarenpositionUnterlagenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_EZA_WarenpositionUnterlagenRow) Return rowtblDakosy_EZA_WarenpositionUnterlagenRow End Function _ Public Function FindByezaWpUl_Id(ByVal ezaWpUl_Id As Integer) As tblDakosy_EZA_WarenpositionUnterlagenRow Return CType(Me.Rows.Find(New Object() {ezaWpUl_Id}),tblDakosy_EZA_WarenpositionUnterlagenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_EZA_WarenpositionUnterlagenDataTable = CType(MyBase.Clone,tblDakosy_EZA_WarenpositionUnterlagenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_EZA_WarenpositionUnterlagenDataTable() End Function _ Friend Sub InitVars() Me.columnezaWpUl_Id = MyBase.Columns("ezaWpUl_Id") Me.columnezaWpUl_EzaWpId = MyBase.Columns("ezaWpUl_EzaWpId") Me.columnezaWpUl_EzaId = MyBase.Columns("ezaWpUl_EzaId") Me.columnezaWpUl_Bereich = MyBase.Columns("ezaWpUl_Bereich") Me.columnezaWpUl_Art = MyBase.Columns("ezaWpUl_Art") Me.columnezaWpUl_Nummer = MyBase.Columns("ezaWpUl_Nummer") Me.columnezaWpUl_DatumAusstellung = MyBase.Columns("ezaWpUl_DatumAusstellung") Me.columnezaWpUl_VorlageKz = MyBase.Columns("ezaWpUl_VorlageKz") Me.columnezaWpUl_AbschreibungsMenge = MyBase.Columns("ezaWpUl_AbschreibungsMenge") Me.columnezaWpUl_AbschreibungsMengeMasseinheit = MyBase.Columns("ezaWpUl_AbschreibungsMengeMasseinheit") Me.columnezaWpUl_AbschreibungsMengeMasseinheitQualifier = MyBase.Columns("ezaWpUl_AbschreibungsMengeMasseinheitQualifier") End Sub _ Private Sub InitClass() Me.columnezaWpUl_Id = New Global.System.Data.DataColumn("ezaWpUl_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_Id) Me.columnezaWpUl_EzaWpId = New Global.System.Data.DataColumn("ezaWpUl_EzaWpId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_EzaWpId) Me.columnezaWpUl_EzaId = New Global.System.Data.DataColumn("ezaWpUl_EzaId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_EzaId) Me.columnezaWpUl_Bereich = New Global.System.Data.DataColumn("ezaWpUl_Bereich", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_Bereich) Me.columnezaWpUl_Art = New Global.System.Data.DataColumn("ezaWpUl_Art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_Art) Me.columnezaWpUl_Nummer = New Global.System.Data.DataColumn("ezaWpUl_Nummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_Nummer) Me.columnezaWpUl_DatumAusstellung = New Global.System.Data.DataColumn("ezaWpUl_DatumAusstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_DatumAusstellung) Me.columnezaWpUl_VorlageKz = New Global.System.Data.DataColumn("ezaWpUl_VorlageKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_VorlageKz) Me.columnezaWpUl_AbschreibungsMenge = New Global.System.Data.DataColumn("ezaWpUl_AbschreibungsMenge", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_AbschreibungsMenge) Me.columnezaWpUl_AbschreibungsMengeMasseinheit = New Global.System.Data.DataColumn("ezaWpUl_AbschreibungsMengeMasseinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_AbschreibungsMengeMasseinheit) Me.columnezaWpUl_AbschreibungsMengeMasseinheitQualifier = New Global.System.Data.DataColumn("ezaWpUl_AbschreibungsMengeMasseinheitQualifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpUl_AbschreibungsMengeMasseinheitQualifier) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezaWpUl_Id}, true)) Me.columnezaWpUl_Id.AutoIncrement = true Me.columnezaWpUl_Id.AutoIncrementSeed = -1 Me.columnezaWpUl_Id.AutoIncrementStep = -1 Me.columnezaWpUl_Id.AllowDBNull = false Me.columnezaWpUl_Id.ReadOnly = true Me.columnezaWpUl_Id.Unique = true Me.columnezaWpUl_EzaWpId.AllowDBNull = false Me.columnezaWpUl_EzaId.AllowDBNull = false Me.columnezaWpUl_Bereich.MaxLength = 1 Me.columnezaWpUl_Art.MaxLength = 4 Me.columnezaWpUl_Nummer.MaxLength = 35 Me.columnezaWpUl_VorlageKz.MaxLength = 1 Me.columnezaWpUl_AbschreibungsMengeMasseinheit.MaxLength = 3 Me.columnezaWpUl_AbschreibungsMengeMasseinheitQualifier.MaxLength = 1 End Sub _ Public Function NewtblDakosy_EZA_WarenpositionUnterlagenRow() As tblDakosy_EZA_WarenpositionUnterlagenRow Return CType(Me.NewRow,tblDakosy_EZA_WarenpositionUnterlagenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_EZA_WarenpositionUnterlagenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_EZA_WarenpositionUnterlagenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_EZA_WarenpositionUnterlagenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionUnterlagenRowChanged(Me, New tblDakosy_EZA_WarenpositionUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionUnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_EZA_WarenpositionUnterlagenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionUnterlagenRowChanging(Me, New tblDakosy_EZA_WarenpositionUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionUnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_EZA_WarenpositionUnterlagenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionUnterlagenRowDeleted(Me, New tblDakosy_EZA_WarenpositionUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionUnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_EZA_WarenpositionUnterlagenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionUnterlagenRowDeleting(Me, New tblDakosy_EZA_WarenpositionUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionUnterlagenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_EZA_WarenpositionUnterlagenRow(ByVal row As tblDakosy_EZA_WarenpositionUnterlagenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_EZA_WarenpositionUnterlagenDataTable" 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 tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_EZA_WarenpositionVerbrauchssteuerRow) Private columnezaWpVs_Id As Global.System.Data.DataColumn Private columnezaWpVs_EzaWpId As Global.System.Data.DataColumn Private columnezaWpVs_EzaId As Global.System.Data.DataColumn Private columnezaWpVs_VerbrauchsteuerCode As Global.System.Data.DataColumn Private columnezaWpVs_VerbrauchssteuerMenge As Global.System.Data.DataColumn Private columnezaWpVs_VerbrauchssteuerMasseinheitCode As Global.System.Data.DataColumn Private columnezaWpVs_VerbrauchssteuerMasseinheitQualifier As Global.System.Data.DataColumn Private columnezaWpVs_GradProzent As Global.System.Data.DataColumn Private columnezaWpVs_VerbrauchssteuerWertbasis As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_EZA_WarenpositionVerbrauchssteuer" 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 ezaWpVs_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpVs_Id End Get End Property _ Public ReadOnly Property ezaWpVs_EzaWpIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpVs_EzaWpId End Get End Property _ Public ReadOnly Property ezaWpVs_EzaIdColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpVs_EzaId End Get End Property _ Public ReadOnly Property ezaWpVs_VerbrauchsteuerCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpVs_VerbrauchsteuerCode End Get End Property _ Public ReadOnly Property ezaWpVs_VerbrauchssteuerMengeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpVs_VerbrauchssteuerMenge End Get End Property _ Public ReadOnly Property ezaWpVs_VerbrauchssteuerMasseinheitCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpVs_VerbrauchssteuerMasseinheitCode End Get End Property _ Public ReadOnly Property ezaWpVs_VerbrauchssteuerMasseinheitQualifierColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpVs_VerbrauchssteuerMasseinheitQualifier End Get End Property _ Public ReadOnly Property ezaWpVs_GradProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpVs_GradProzent End Get End Property _ Public ReadOnly Property ezaWpVs_VerbrauchssteuerWertbasisColumn() As Global.System.Data.DataColumn Get Return Me.columnezaWpVs_VerbrauchssteuerWertbasis 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 tblDakosy_EZA_WarenpositionVerbrauchssteuerRow Get Return CType(Me.Rows(index),tblDakosy_EZA_WarenpositionVerbrauchssteuerRow) End Get End Property _ Public Event tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChanging As tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChanged As tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionVerbrauchssteuerRowDeleting As tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEventHandler _ Public Event tblDakosy_EZA_WarenpositionVerbrauchssteuerRowDeleted As tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_EZA_WarenpositionVerbrauchssteuerRow(ByVal row As tblDakosy_EZA_WarenpositionVerbrauchssteuerRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_EZA_WarenpositionVerbrauchssteuerRow(ByVal ezaWpVs_EzaWpId As Integer, ByVal ezaWpVs_EzaId As Integer, ByVal ezaWpVs_VerbrauchsteuerCode As String, ByVal ezaWpVs_VerbrauchssteuerMenge As Decimal, ByVal ezaWpVs_VerbrauchssteuerMasseinheitCode As String, ByVal ezaWpVs_VerbrauchssteuerMasseinheitQualifier As String, ByVal ezaWpVs_GradProzent As Decimal, ByVal ezaWpVs_VerbrauchssteuerWertbasis As Decimal) As tblDakosy_EZA_WarenpositionVerbrauchssteuerRow Dim rowtblDakosy_EZA_WarenpositionVerbrauchssteuerRow As tblDakosy_EZA_WarenpositionVerbrauchssteuerRow = CType(Me.NewRow,tblDakosy_EZA_WarenpositionVerbrauchssteuerRow) Dim columnValuesArray() As Object = New Object() {Nothing, ezaWpVs_EzaWpId, ezaWpVs_EzaId, ezaWpVs_VerbrauchsteuerCode, ezaWpVs_VerbrauchssteuerMenge, ezaWpVs_VerbrauchssteuerMasseinheitCode, ezaWpVs_VerbrauchssteuerMasseinheitQualifier, ezaWpVs_GradProzent, ezaWpVs_VerbrauchssteuerWertbasis} rowtblDakosy_EZA_WarenpositionVerbrauchssteuerRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_EZA_WarenpositionVerbrauchssteuerRow) Return rowtblDakosy_EZA_WarenpositionVerbrauchssteuerRow End Function _ Public Function FindByezaWpVs_Id(ByVal ezaWpVs_Id As Integer) As tblDakosy_EZA_WarenpositionVerbrauchssteuerRow Return CType(Me.Rows.Find(New Object() {ezaWpVs_Id}),tblDakosy_EZA_WarenpositionVerbrauchssteuerRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable = CType(MyBase.Clone,tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable() End Function _ Friend Sub InitVars() Me.columnezaWpVs_Id = MyBase.Columns("ezaWpVs_Id") Me.columnezaWpVs_EzaWpId = MyBase.Columns("ezaWpVs_EzaWpId") Me.columnezaWpVs_EzaId = MyBase.Columns("ezaWpVs_EzaId") Me.columnezaWpVs_VerbrauchsteuerCode = MyBase.Columns("ezaWpVs_VerbrauchsteuerCode") Me.columnezaWpVs_VerbrauchssteuerMenge = MyBase.Columns("ezaWpVs_VerbrauchssteuerMenge") Me.columnezaWpVs_VerbrauchssteuerMasseinheitCode = MyBase.Columns("ezaWpVs_VerbrauchssteuerMasseinheitCode") Me.columnezaWpVs_VerbrauchssteuerMasseinheitQualifier = MyBase.Columns("ezaWpVs_VerbrauchssteuerMasseinheitQualifier") Me.columnezaWpVs_GradProzent = MyBase.Columns("ezaWpVs_GradProzent") Me.columnezaWpVs_VerbrauchssteuerWertbasis = MyBase.Columns("ezaWpVs_VerbrauchssteuerWertbasis") End Sub _ Private Sub InitClass() Me.columnezaWpVs_Id = New Global.System.Data.DataColumn("ezaWpVs_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpVs_Id) Me.columnezaWpVs_EzaWpId = New Global.System.Data.DataColumn("ezaWpVs_EzaWpId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpVs_EzaWpId) Me.columnezaWpVs_EzaId = New Global.System.Data.DataColumn("ezaWpVs_EzaId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpVs_EzaId) Me.columnezaWpVs_VerbrauchsteuerCode = New Global.System.Data.DataColumn("ezaWpVs_VerbrauchsteuerCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpVs_VerbrauchsteuerCode) Me.columnezaWpVs_VerbrauchssteuerMenge = New Global.System.Data.DataColumn("ezaWpVs_VerbrauchssteuerMenge", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpVs_VerbrauchssteuerMenge) Me.columnezaWpVs_VerbrauchssteuerMasseinheitCode = New Global.System.Data.DataColumn("ezaWpVs_VerbrauchssteuerMasseinheitCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpVs_VerbrauchssteuerMasseinheitCode) Me.columnezaWpVs_VerbrauchssteuerMasseinheitQualifier = New Global.System.Data.DataColumn("ezaWpVs_VerbrauchssteuerMasseinheitQualifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpVs_VerbrauchssteuerMasseinheitQualifier) Me.columnezaWpVs_GradProzent = New Global.System.Data.DataColumn("ezaWpVs_GradProzent", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpVs_GradProzent) Me.columnezaWpVs_VerbrauchssteuerWertbasis = New Global.System.Data.DataColumn("ezaWpVs_VerbrauchssteuerWertbasis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezaWpVs_VerbrauchssteuerWertbasis) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezaWpVs_Id}, true)) Me.columnezaWpVs_Id.AutoIncrement = true Me.columnezaWpVs_Id.AutoIncrementSeed = -1 Me.columnezaWpVs_Id.AutoIncrementStep = -1 Me.columnezaWpVs_Id.AllowDBNull = false Me.columnezaWpVs_Id.ReadOnly = true Me.columnezaWpVs_Id.Unique = true Me.columnezaWpVs_EzaWpId.AllowDBNull = false Me.columnezaWpVs_EzaId.AllowDBNull = false Me.columnezaWpVs_VerbrauchsteuerCode.MaxLength = 4 Me.columnezaWpVs_VerbrauchssteuerMasseinheitCode.MaxLength = 3 Me.columnezaWpVs_VerbrauchssteuerMasseinheitQualifier.MaxLength = 1 End Sub _ Public Function NewtblDakosy_EZA_WarenpositionVerbrauchssteuerRow() As tblDakosy_EZA_WarenpositionVerbrauchssteuerRow Return CType(Me.NewRow,tblDakosy_EZA_WarenpositionVerbrauchssteuerRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_EZA_WarenpositionVerbrauchssteuerRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_EZA_WarenpositionVerbrauchssteuerRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChanged(Me, New tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionVerbrauchssteuerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChanging(Me, New tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionVerbrauchssteuerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_EZA_WarenpositionVerbrauchssteuerRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionVerbrauchssteuerRowDeleted(Me, New tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionVerbrauchssteuerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_EZA_WarenpositionVerbrauchssteuerRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_EZA_WarenpositionVerbrauchssteuerRowDeleting(Me, New tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEvent(CType(e.Row,tblDakosy_EZA_WarenpositionVerbrauchssteuerRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_EZA_WarenpositionVerbrauchssteuerRow(ByVal row As tblDakosy_EZA_WarenpositionVerbrauchssteuerRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable" 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 tblDakosy_NCTSOutDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOutRow) Private columnncts_Id As Global.System.Data.DataColumn Private columnncts_Status As Global.System.Data.DataColumn Private columnncts_Status_KEWILL_Equivalent As Global.System.Data.DataColumn Private columnncts_dyaArt As Global.System.Data.DataColumn Private columnncts_dyaAnmID As Global.System.Data.DataColumn Private columnncts_ANR As Global.System.Data.DataColumn Private columnncts_MRN As Global.System.Data.DataColumn Private columnncts_Erstellung As Global.System.Data.DataColumn Private columnncts_Erstellung_SB As Global.System.Data.DataColumn Private columnncts_LetzteBearbeitung As Global.System.Data.DataColumn Private columnncts_LetzteBearbeitung_SB As Global.System.Data.DataColumn Private columnncts_firma As Global.System.Data.DataColumn Private columnncts_niederlassung As Global.System.Data.DataColumn Private columnncts_Gestellt As Global.System.Data.DataColumn Private columnncts_GestelltAm As Global.System.Data.DataColumn Private columnncts_Trans_Partner As Global.System.Data.DataColumn Private columnncts_Trans_Div1 As Global.System.Data.DataColumn Private columnncts_Trans_Div2 As Global.System.Data.DataColumn Private columnncts_Trans_Div3 As Global.System.Data.DataColumn Private columnncts_Trans_Referenz As Global.System.Data.DataColumn Private columnncts_Trans_DatumZeit As Global.System.Data.DataColumn Private columnncts_Trans_Version As Global.System.Data.DataColumn Private columnncts_NachrichtenSenderTIN As Global.System.Data.DataColumn Private columnncts_NachrichtenSenderNLNR As Global.System.Data.DataColumn Private columnncts_NachrichtenempfaengerDST As Global.System.Data.DataColumn Private columnncts_ObjectName As Global.System.Data.DataColumn Private columnncts_ObjectAlias As Global.System.Data.DataColumn Private columnncts_BezugsnummerVorblendung As Global.System.Data.DataColumn Private columnncts_Bearbeiter As Global.System.Data.DataColumn Private columnncts_VersendungsLandCode As Global.System.Data.DataColumn Private columnncts_BestimmungslandCode As Global.System.Data.DataColumn Private columnncts_ArtAnmeldung As Global.System.Data.DataColumn Private columnncts_BeladungsOrt As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer1 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer2 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer3 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer4 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer5 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer6 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer7 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer8 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer9 As Global.System.Data.DataColumn Private columnncts_BestimmungsstelleDienststellennummer As Global.System.Data.DataColumn Private columnncts_AbgangsDienststellennummer As Global.System.Data.DataColumn Private columnncts_Wiedergestellungsdatum As Global.System.Data.DataColumn Private columnncts_KzVereinfachtesVerfahren As Global.System.Data.DataColumn Private columnncts_GesamtRohmasse As Global.System.Data.DataColumn Private columnncts_GesamtAnzahlPackstuecke As Global.System.Data.DataColumn Private columnncts_Verschluss_ArtCode As Global.System.Data.DataColumn Private columnncts_Verschluss_Anzahl As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen1 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen2 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen3 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen4 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen5 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen6 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen7 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen8 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen9 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen10 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen11 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen12 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen13 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen14 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen15 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen16 As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_KennzeichenAbgang As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_ArtGrenzueberschreitung As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Global.System.Data.DataColumn Private columnncts_Versender_EORI As Global.System.Data.DataColumn Private columnncts_Versender_NLNR As Global.System.Data.DataColumn Private columnncts_Versender_TIN As Global.System.Data.DataColumn Private columnncts_Versender_Name As Global.System.Data.DataColumn Private columnncts_Versender_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_Versender_Ort As Global.System.Data.DataColumn Private columnncts_Versender_PLZ As Global.System.Data.DataColumn Private columnncts_Versender_Land As Global.System.Data.DataColumn Private columnncts_Empfaenger_EORI As Global.System.Data.DataColumn Private columnncts_Empfaenger_NLNR As Global.System.Data.DataColumn Private columnncts_Empfaenger_TIN As Global.System.Data.DataColumn Private columnncts_Empfaenger_Name As Global.System.Data.DataColumn Private columnncts_Empfaenger_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_Empfaenger_Ort As Global.System.Data.DataColumn Private columnncts_Empfaenger_PLZ As Global.System.Data.DataColumn Private columnncts_Empfaenger_Land As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_EORI As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_NLNR As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_TIN As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_Name As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_Ort As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_PLZ As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_Land As Global.System.Data.DataColumn Private columnncts_ZugelassenerEmpfaenger_EORI As Global.System.Data.DataColumn Private columnncts_ZugelassenerEmpfaenger_TIN As Global.System.Data.DataColumn Private columnncts_ZugelassenerEmpfaenger_IDCarnet As Global.System.Data.DataColumn Private columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Global.System.Data.DataColumn Private columnncts_SumA_KzSumASicherheit As Global.System.Data.DataColumn Private columnncts_SumA_KennnummerSendung As Global.System.Data.DataColumn Private columnncts_SumA_NummerBefoerderung As Global.System.Data.DataColumn Private columnncts_SumA_BesondereUmstaende As Global.System.Data.DataColumn Private columnncts_SumA_Ladeort As Global.System.Data.DataColumn Private columnncts_SumA_Entladeort As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungskostenZahlungsweise As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand1 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand2 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand3 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand4 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand5 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand6 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand7 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand8 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand9 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand10 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand11 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand12 As Global.System.Data.DataColumn Private columnncts_SumA_Versender_EORI As Global.System.Data.DataColumn Private columnncts_SumA_Versender_NLNR As Global.System.Data.DataColumn Private columnncts_SumA_Versender_TIN As Global.System.Data.DataColumn Private columnncts_SumA_Versender_Name As Global.System.Data.DataColumn Private columnncts_SumA_Versender_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_SumA_Versender_Land As Global.System.Data.DataColumn Private columnncts_SumA_Versender_PLZ As Global.System.Data.DataColumn Private columnncts_SumA_Versender_Ort As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_EORI As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_NLNR As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_TIN As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_Name As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_Land As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_PLZ As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_Ort As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_EORI As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_NLNR As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_TIN As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_Name As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_Land As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_PLZ As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_Ort As Global.System.Data.DataColumn Private columnncts_Stammreferenz As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut" 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 ncts_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Id End Get End Property _ Public ReadOnly Property ncts_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Status End Get End Property _ Public ReadOnly Property ncts_Status_KEWILL_EquivalentColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Status_KEWILL_Equivalent End Get End Property _ Public ReadOnly Property ncts_dyaArtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_dyaArt End Get End Property _ Public ReadOnly Property ncts_dyaAnmIDColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_dyaAnmID End Get End Property _ Public ReadOnly Property ncts_ANRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ANR End Get End Property _ Public ReadOnly Property ncts_MRNColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_MRN End Get End Property _ Public ReadOnly Property ncts_ErstellungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Erstellung End Get End Property _ Public ReadOnly Property ncts_Erstellung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Erstellung_SB End Get End Property _ Public ReadOnly Property ncts_LetzteBearbeitungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LetzteBearbeitung End Get End Property _ Public ReadOnly Property ncts_LetzteBearbeitung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LetzteBearbeitung_SB End Get End Property _ Public ReadOnly Property ncts_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_firma End Get End Property _ Public ReadOnly Property ncts_niederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_niederlassung End Get End Property _ Public ReadOnly Property ncts_GestelltColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Gestellt End Get End Property _ Public ReadOnly Property ncts_GestelltAmColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_GestelltAm End Get End Property _ Public ReadOnly Property ncts_Trans_PartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Partner End Get End Property _ Public ReadOnly Property ncts_Trans_Div1Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Div1 End Get End Property _ Public ReadOnly Property ncts_Trans_Div2Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Div2 End Get End Property _ Public ReadOnly Property ncts_Trans_Div3Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Div3 End Get End Property _ Public ReadOnly Property ncts_Trans_ReferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Referenz End Get End Property _ Public ReadOnly Property ncts_Trans_DatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_DatumZeit End Get End Property _ Public ReadOnly Property ncts_Trans_VersionColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Version End Get End Property _ Public ReadOnly Property ncts_NachrichtenSenderTINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_NachrichtenSenderTIN End Get End Property _ Public ReadOnly Property ncts_NachrichtenSenderNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_NachrichtenSenderNLNR End Get End Property _ Public ReadOnly Property ncts_NachrichtenempfaengerDSTColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_NachrichtenempfaengerDST End Get End Property _ Public ReadOnly Property ncts_ObjectNameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ObjectName End Get End Property _ Public ReadOnly Property ncts_ObjectAliasColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ObjectAlias End Get End Property _ Public ReadOnly Property ncts_BezugsnummerVorblendungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_BezugsnummerVorblendung End Get End Property _ Public ReadOnly Property ncts_BearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Bearbeiter End Get End Property _ Public ReadOnly Property ncts_VersendungsLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_VersendungsLandCode End Get End Property _ Public ReadOnly Property ncts_BestimmungslandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_BestimmungslandCode End Get End Property _ Public ReadOnly Property ncts_ArtAnmeldungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ArtAnmeldung End Get End Property _ Public ReadOnly Property ncts_BeladungsOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_BeladungsOrt End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer1Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer1 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer2Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer2 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer3Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer3 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer4Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer4 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer5Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer5 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer6Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer6 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer7Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer7 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer8Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer8 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer9Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer9 End Get End Property _ Public ReadOnly Property ncts_BestimmungsstelleDienststellennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_BestimmungsstelleDienststellennummer End Get End Property _ Public ReadOnly Property ncts_AbgangsDienststellennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AbgangsDienststellennummer End Get End Property _ Public ReadOnly Property ncts_WiedergestellungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Wiedergestellungsdatum End Get End Property _ Public ReadOnly Property ncts_KzVereinfachtesVerfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_KzVereinfachtesVerfahren End Get End Property _ Public ReadOnly Property ncts_GesamtRohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_GesamtRohmasse End Get End Property _ Public ReadOnly Property ncts_GesamtAnzahlPackstueckeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_GesamtAnzahlPackstuecke End Get End Property _ Public ReadOnly Property ncts_Verschluss_ArtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_ArtCode End Get End Property _ Public ReadOnly Property ncts_Verschluss_AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Anzahl End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen1Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen1 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen2Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen2 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen3Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen3 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen4Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen4 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen5Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen5 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen6Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen6 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen7Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen7 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen8Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen8 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen9Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen9 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen10Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen10 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen11Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen11 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen12Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen12 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen13Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen13 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen14Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen14 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen15Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen15 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen16Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen16 End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_KennzeichenAbgangColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_KennzeichenAbgang End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_ArtGrenzueberschreitungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_ArtGrenzueberschreitung End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode End Get End Property _ Public ReadOnly Property ncts_Versender_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_EORI End Get End Property _ Public ReadOnly Property ncts_Versender_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_NLNR End Get End Property _ Public ReadOnly Property ncts_Versender_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_TIN End Get End Property _ Public ReadOnly Property ncts_Versender_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_Name End Get End Property _ Public ReadOnly Property ncts_Versender_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_Versender_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_Ort End Get End Property _ Public ReadOnly Property ncts_Versender_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_PLZ End Get End Property _ Public ReadOnly Property ncts_Versender_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_Land End Get End Property _ Public ReadOnly Property ncts_Empfaenger_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_EORI End Get End Property _ Public ReadOnly Property ncts_Empfaenger_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_NLNR End Get End Property _ Public ReadOnly Property ncts_Empfaenger_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_TIN End Get End Property _ Public ReadOnly Property ncts_Empfaenger_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_Name End Get End Property _ Public ReadOnly Property ncts_Empfaenger_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_Empfaenger_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_Ort End Get End Property _ Public ReadOnly Property ncts_Empfaenger_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_PLZ End Get End Property _ Public ReadOnly Property ncts_Empfaenger_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_Land End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_EORI End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_NLNR End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_TIN End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_Name End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_Ort End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_PLZ End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_Land End Get End Property _ Public ReadOnly Property ncts_ZugelassenerEmpfaenger_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ZugelassenerEmpfaenger_EORI End Get End Property _ Public ReadOnly Property ncts_ZugelassenerEmpfaenger_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ZugelassenerEmpfaenger_TIN End Get End Property _ Public ReadOnly Property ncts_ZugelassenerEmpfaenger_IDCarnetColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ZugelassenerEmpfaenger_IDCarnet End Get End Property _ Public ReadOnly Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender End Get End Property _ Public ReadOnly Property ncts_SumA_KzSumASicherheitColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_KzSumASicherheit End Get End Property _ Public ReadOnly Property ncts_SumA_KennnummerSendungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_KennnummerSendung End Get End Property _ Public ReadOnly Property ncts_SumA_NummerBefoerderungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_NummerBefoerderung End Get End Property _ Public ReadOnly Property ncts_SumA_BesondereUmstaendeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BesondereUmstaende End Get End Property _ Public ReadOnly Property ncts_SumA_LadeortColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Ladeort End Get End Property _ Public ReadOnly Property ncts_SumA_EntladeortColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Entladeort End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungskostenZahlungsweiseColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungskostenZahlungsweise End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand1Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand1 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand2Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand2 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand3Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand3 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand4Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand4 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand5Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand5 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand6Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand6 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand7Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand7 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand8Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand8 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand9Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand9 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand10Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand10 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand11Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand11 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand12Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand12 End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_EORI End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_NLNR End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_TIN End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_Name End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_Land End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_PLZ End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_Ort End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_EORI End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_NLNR End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_TIN End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_Name End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_Land End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_PLZ End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_Ort End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_EORI End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_NLNR End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_TIN End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_Name End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_Land End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_PLZ End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_Ort End Get End Property _ Public ReadOnly Property ncts_StammreferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Stammreferenz 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 tblDakosy_NCTSOutRow Get Return CType(Me.Rows(index),tblDakosy_NCTSOutRow) End Get End Property _ Public Event tblDakosy_NCTSOutRowChanging As tblDakosy_NCTSOutRowChangeEventHandler _ Public Event tblDakosy_NCTSOutRowChanged As tblDakosy_NCTSOutRowChangeEventHandler _ Public Event tblDakosy_NCTSOutRowDeleting As tblDakosy_NCTSOutRowChangeEventHandler _ Public Event tblDakosy_NCTSOutRowDeleted As tblDakosy_NCTSOutRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOutRow(ByVal row As tblDakosy_NCTSOutRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOutRow( _ ByVal ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Integer, _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Integer, _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Date, _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Date, _ ByVal ncts_Trans_Version As Decimal, _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_VersendungsLandCode As String, _ ByVal ncts_BestimmungslandCode As String, _ ByVal ncts_ArtAnmeldung As String, _ ByVal ncts_BeladungsOrt As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal ncts_BestimmungsstelleDienststellennummer As String, _ ByVal ncts_AbgangsDienststellennummer As String, _ ByVal ncts_Wiedergestellungsdatum As Date, _ ByVal ncts_KzVereinfachtesVerfahren As String, _ ByVal ncts_GesamtRohmasse As Decimal, _ ByVal ncts_GesamtAnzahlPackstuecke As Decimal, _ ByVal ncts_Verschluss_ArtCode As String, _ ByVal ncts_Verschluss_Anzahl As Decimal, _ ByVal ncts_Verschluss_Zeichen1 As String, _ ByVal ncts_Verschluss_Zeichen2 As String, _ ByVal ncts_Verschluss_Zeichen3 As String, _ ByVal ncts_Verschluss_Zeichen4 As String, _ ByVal ncts_Verschluss_Zeichen5 As String, _ ByVal ncts_Verschluss_Zeichen6 As String, _ ByVal ncts_Verschluss_Zeichen7 As String, _ ByVal ncts_Verschluss_Zeichen8 As String, _ ByVal ncts_Verschluss_Zeichen9 As String, _ ByVal ncts_Verschluss_Zeichen10 As String, _ ByVal ncts_Verschluss_Zeichen11 As String, _ ByVal ncts_Verschluss_Zeichen12 As String, _ ByVal ncts_Verschluss_Zeichen13 As String, _ ByVal ncts_Verschluss_Zeichen14 As String, _ ByVal ncts_Verschluss_Zeichen15 As String, _ ByVal ncts_Verschluss_Zeichen16 As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal ncts_Versender_EORI As String, _ ByVal ncts_Versender_NLNR As String, _ ByVal ncts_Versender_TIN As String, _ ByVal ncts_Versender_Name As String, _ ByVal ncts_Versender_StrasseHausnummer As String, _ ByVal ncts_Versender_Ort As String, _ ByVal ncts_Versender_PLZ As String, _ ByVal ncts_Versender_Land As String, _ ByVal ncts_Empfaenger_EORI As String, _ ByVal ncts_Empfaenger_NLNR As String, _ ByVal ncts_Empfaenger_TIN As String, _ ByVal ncts_Empfaenger_Name As String, _ ByVal ncts_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_Empfaenger_Ort As String, _ ByVal ncts_Empfaenger_PLZ As String, _ ByVal ncts_Empfaenger_Land As String, _ ByVal ncts_Hauptverpflichteter_EORI As String, _ ByVal ncts_Hauptverpflichteter_NLNR As String, _ ByVal ncts_Hauptverpflichteter_TIN As String, _ ByVal ncts_Hauptverpflichteter_Name As String, _ ByVal ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal ncts_Hauptverpflichteter_Ort As String, _ ByVal ncts_Hauptverpflichteter_PLZ As String, _ ByVal ncts_Hauptverpflichteter_Land As String, _ ByVal ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal ncts_SumA_KzSumASicherheit As String, _ ByVal ncts_SumA_KennnummerSendung As String, _ ByVal ncts_SumA_NummerBefoerderung As String, _ ByVal ncts_SumA_BesondereUmstaende As String, _ ByVal ncts_SumA_Ladeort As String, _ ByVal ncts_SumA_Entladeort As String, _ ByVal ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal ncts_SumA_Versender_EORI As String, _ ByVal ncts_SumA_Versender_NLNR As String, _ ByVal ncts_SumA_Versender_TIN As String, _ ByVal ncts_SumA_Versender_Name As String, _ ByVal ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal ncts_SumA_Versender_Land As String, _ ByVal ncts_SumA_Versender_PLZ As String, _ ByVal ncts_SumA_Versender_Ort As String, _ ByVal ncts_SumA_Empfaenger_EORI As String, _ ByVal ncts_SumA_Empfaenger_NLNR As String, _ ByVal ncts_SumA_Empfaenger_TIN As String, _ ByVal ncts_SumA_Empfaenger_Name As String, _ ByVal ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_SumA_Empfaenger_Land As String, _ ByVal ncts_SumA_Empfaenger_PLZ As String, _ ByVal ncts_SumA_Empfaenger_Ort As String, _ ByVal ncts_SumA_Befoerderer_EORI As String, _ ByVal ncts_SumA_Befoerderer_NLNR As String, _ ByVal ncts_SumA_Befoerderer_TIN As String, _ ByVal ncts_SumA_Befoerderer_Name As String, _ ByVal ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal ncts_SumA_Befoerderer_Land As String, _ ByVal ncts_SumA_Befoerderer_PLZ As String, _ ByVal ncts_SumA_Befoerderer_Ort As String, _ ByVal ncts_Stammreferenz As String) As tblDakosy_NCTSOutRow Dim rowtblDakosy_NCTSOutRow As tblDakosy_NCTSOutRow = CType(Me.NewRow,tblDakosy_NCTSOutRow) Dim columnValuesArray() As Object = New Object() {Nothing, ncts_Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR, ncts_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_LetzteBearbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_GestelltAm, ncts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_Trans_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenSenderTIN, ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, ncts_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_VersendungsLandCode, ncts_BestimmungslandCode, ncts_ArtAnmeldung, ncts_BeladungsOrt, ncts_DurchgangszollstelleDienststellnummer1, ncts_DurchgangszollstelleDienststellnummer2, ncts_DurchgangszollstelleDienststellnummer3, ncts_DurchgangszollstelleDienststellnummer4, ncts_DurchgangszollstelleDienststellnummer5, ncts_DurchgangszollstelleDienststellnummer6, ncts_DurchgangszollstelleDienststellnummer7, ncts_DurchgangszollstelleDienststellnummer8, ncts_DurchgangszollstelleDienststellnummer9, ncts_BestimmungsstelleDienststellennummer, ncts_AbgangsDienststellennummer, ncts_Wiedergestellungsdatum, ncts_KzVereinfachtesVerfahren, ncts_GesamtRohmasse, ncts_GesamtAnzahlPackstuecke, ncts_Verschluss_ArtCode, ncts_Verschluss_Anzahl, ncts_Verschluss_Zeichen1, ncts_Verschluss_Zeichen2, ncts_Verschluss_Zeichen3, ncts_Verschluss_Zeichen4, ncts_Verschluss_Zeichen5, ncts_Verschluss_Zeichen6, ncts_Verschluss_Zeichen7, ncts_Verschluss_Zeichen8, ncts_Verschluss_Zeichen9, ncts_Verschluss_Zeichen10, ncts_Verschluss_Zeichen11, ncts_Verschluss_Zeichen12, ncts_Verschluss_Zeichen13, ncts_Verschluss_Zeichen14, ncts_Verschluss_Zeichen15, ncts_Verschluss_Zeichen16, ncts_Befoerderungsmittel_KennzeichenAbgang, ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent, ncts_Befoerderungsmittel_ArtGrenzueberschreitung, ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, ncts_Versender_EORI, ncts_Versender_NLNR, ncts_Versender_TIN, ncts_Versender_Name, ncts_Versender_StrasseHausnummer, ncts_Versender_Ort, ncts_Versender_PLZ, ncts_Versender_Land, ncts_Empfaenger_EORI, ncts_Empfaenger_NLNR, ncts_Empfaenger_TIN, ncts_Empfaenger_Name, ncts_Empfaenger_StrasseHausnummer, ncts_Empfaenger_Ort, ncts_Empfaenger_PLZ, ncts_Empfaenger_Land, ncts_Hauptverpflichteter_EORI, ncts_Hauptverpflichteter_NLNR, ncts_Hauptverpflichteter_TIN, ncts_Hauptverpflichteter_Name, ncts_Hauptverpflichteter_StrasseHausnummer, ncts_Hauptverpflichteter_Ort, ncts_Hauptverpflichteter_PLZ, ncts_Hauptverpflichteter_Land, ncts_ZugelassenerEmpfaenger_EORI, ncts_ZugelassenerEmpfaenger_TIN, ncts_ZugelassenerEmpfaenger_IDCarnet, ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender, ncts_SumA_KzSumASicherheit, ncts_SumA_KennnummerSendung, ncts_SumA_NummerBefoerderung, ncts_SumA_BesondereUmstaende, ncts_SumA_Ladeort, ncts_SumA_Entladeort, ncts_SumA_BefoerderungskostenZahlungsweise, ncts_SumA_BefoerderungsrouteLand1, ncts_SumA_BefoerderungsrouteLand2, ncts_SumA_BefoerderungsrouteLand3, ncts_SumA_BefoerderungsrouteLand4, ncts_SumA_BefoerderungsrouteLand5, ncts_SumA_BefoerderungsrouteLand6, ncts_SumA_BefoerderungsrouteLand7, ncts_SumA_BefoerderungsrouteLand8, ncts_SumA_BefoerderungsrouteLand9, ncts_SumA_BefoerderungsrouteLand10, ncts_SumA_BefoerderungsrouteLand11, ncts_SumA_BefoerderungsrouteLand12, ncts_SumA_Versender_EORI, ncts_SumA_Versender_NLNR, ncts_SumA_Versender_TIN, ncts_SumA_Versender_Name, ncts_SumA_Versender_StrasseHausnummer, ncts_SumA_Versender_Land, ncts_SumA_Versender_PLZ, ncts_SumA_Versender_Ort, ncts_SumA_Empfaenger_EORI, ncts_SumA_Empfaenger_NLNR, ncts_SumA_Empfaenger_TIN, ncts_SumA_Empfaenger_Name, ncts_SumA_Empfaenger_StrasseHausnummer, ncts_SumA_Empfaenger_Land, ncts_SumA_Empfaenger_PLZ, ncts_SumA_Empfaenger_Ort, ncts_SumA_Befoerderer_EORI, ncts_SumA_Befoerderer_NLNR, ncts_SumA_Befoerderer_TIN, ncts_SumA_Befoerderer_Name, ncts_SumA_Befoerderer_StrasseHausnummer, ncts_SumA_Befoerderer_Land, ncts_SumA_Befoerderer_PLZ, ncts_SumA_Befoerderer_Ort, ncts_Stammreferenz} rowtblDakosy_NCTSOutRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOutRow) Return rowtblDakosy_NCTSOutRow End Function _ Public Function FindByncts_Id(ByVal ncts_Id As Integer) As tblDakosy_NCTSOutRow Return CType(Me.Rows.Find(New Object() {ncts_Id}),tblDakosy_NCTSOutRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOutDataTable = CType(MyBase.Clone,tblDakosy_NCTSOutDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOutDataTable() End Function _ Friend Sub InitVars() Me.columnncts_Id = MyBase.Columns("ncts_Id") Me.columnncts_Status = MyBase.Columns("ncts_Status") Me.columnncts_Status_KEWILL_Equivalent = MyBase.Columns("ncts_Status_KEWILL_Equivalent") Me.columnncts_dyaArt = MyBase.Columns("ncts_dyaArt") Me.columnncts_dyaAnmID = MyBase.Columns("ncts_dyaAnmID") Me.columnncts_ANR = MyBase.Columns("ncts_ANR") Me.columnncts_MRN = MyBase.Columns("ncts_MRN") Me.columnncts_Erstellung = MyBase.Columns("ncts_Erstellung") Me.columnncts_Erstellung_SB = MyBase.Columns("ncts_Erstellung_SB") Me.columnncts_LetzteBearbeitung = MyBase.Columns("ncts_LetzteBearbeitung") Me.columnncts_LetzteBearbeitung_SB = MyBase.Columns("ncts_LetzteBearbeitung_SB") Me.columnncts_firma = MyBase.Columns("ncts_firma") Me.columnncts_niederlassung = MyBase.Columns("ncts_niederlassung") Me.columnncts_Gestellt = MyBase.Columns("ncts_Gestellt") Me.columnncts_GestelltAm = MyBase.Columns("ncts_GestelltAm") Me.columnncts_Trans_Partner = MyBase.Columns("ncts_Trans_Partner") Me.columnncts_Trans_Div1 = MyBase.Columns("ncts_Trans_Div1") Me.columnncts_Trans_Div2 = MyBase.Columns("ncts_Trans_Div2") Me.columnncts_Trans_Div3 = MyBase.Columns("ncts_Trans_Div3") Me.columnncts_Trans_Referenz = MyBase.Columns("ncts_Trans_Referenz") Me.columnncts_Trans_DatumZeit = MyBase.Columns("ncts_Trans_DatumZeit") Me.columnncts_Trans_Version = MyBase.Columns("ncts_Trans_Version") Me.columnncts_NachrichtenSenderTIN = MyBase.Columns("ncts_NachrichtenSenderTIN") Me.columnncts_NachrichtenSenderNLNR = MyBase.Columns("ncts_NachrichtenSenderNLNR") Me.columnncts_NachrichtenempfaengerDST = MyBase.Columns("ncts_NachrichtenempfaengerDST") Me.columnncts_ObjectName = MyBase.Columns("ncts_ObjectName") Me.columnncts_ObjectAlias = MyBase.Columns("ncts_ObjectAlias") Me.columnncts_BezugsnummerVorblendung = MyBase.Columns("ncts_BezugsnummerVorblendung") Me.columnncts_Bearbeiter = MyBase.Columns("ncts_Bearbeiter") Me.columnncts_VersendungsLandCode = MyBase.Columns("ncts_VersendungsLandCode") Me.columnncts_BestimmungslandCode = MyBase.Columns("ncts_BestimmungslandCode") Me.columnncts_ArtAnmeldung = MyBase.Columns("ncts_ArtAnmeldung") Me.columnncts_BeladungsOrt = MyBase.Columns("ncts_BeladungsOrt") Me.columnncts_DurchgangszollstelleDienststellnummer1 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer1") Me.columnncts_DurchgangszollstelleDienststellnummer2 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer2") Me.columnncts_DurchgangszollstelleDienststellnummer3 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer3") Me.columnncts_DurchgangszollstelleDienststellnummer4 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer4") Me.columnncts_DurchgangszollstelleDienststellnummer5 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer5") Me.columnncts_DurchgangszollstelleDienststellnummer6 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer6") Me.columnncts_DurchgangszollstelleDienststellnummer7 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer7") Me.columnncts_DurchgangszollstelleDienststellnummer8 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer8") Me.columnncts_DurchgangszollstelleDienststellnummer9 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer9") Me.columnncts_BestimmungsstelleDienststellennummer = MyBase.Columns("ncts_BestimmungsstelleDienststellennummer") Me.columnncts_AbgangsDienststellennummer = MyBase.Columns("ncts_AbgangsDienststellennummer") Me.columnncts_Wiedergestellungsdatum = MyBase.Columns("ncts_Wiedergestellungsdatum") Me.columnncts_KzVereinfachtesVerfahren = MyBase.Columns("ncts_KzVereinfachtesVerfahren") Me.columnncts_GesamtRohmasse = MyBase.Columns("ncts_GesamtRohmasse") Me.columnncts_GesamtAnzahlPackstuecke = MyBase.Columns("ncts_GesamtAnzahlPackstuecke") Me.columnncts_Verschluss_ArtCode = MyBase.Columns("ncts_Verschluss_ArtCode") Me.columnncts_Verschluss_Anzahl = MyBase.Columns("ncts_Verschluss_Anzahl") Me.columnncts_Verschluss_Zeichen1 = MyBase.Columns("ncts_Verschluss_Zeichen1") Me.columnncts_Verschluss_Zeichen2 = MyBase.Columns("ncts_Verschluss_Zeichen2") Me.columnncts_Verschluss_Zeichen3 = MyBase.Columns("ncts_Verschluss_Zeichen3") Me.columnncts_Verschluss_Zeichen4 = MyBase.Columns("ncts_Verschluss_Zeichen4") Me.columnncts_Verschluss_Zeichen5 = MyBase.Columns("ncts_Verschluss_Zeichen5") Me.columnncts_Verschluss_Zeichen6 = MyBase.Columns("ncts_Verschluss_Zeichen6") Me.columnncts_Verschluss_Zeichen7 = MyBase.Columns("ncts_Verschluss_Zeichen7") Me.columnncts_Verschluss_Zeichen8 = MyBase.Columns("ncts_Verschluss_Zeichen8") Me.columnncts_Verschluss_Zeichen9 = MyBase.Columns("ncts_Verschluss_Zeichen9") Me.columnncts_Verschluss_Zeichen10 = MyBase.Columns("ncts_Verschluss_Zeichen10") Me.columnncts_Verschluss_Zeichen11 = MyBase.Columns("ncts_Verschluss_Zeichen11") Me.columnncts_Verschluss_Zeichen12 = MyBase.Columns("ncts_Verschluss_Zeichen12") Me.columnncts_Verschluss_Zeichen13 = MyBase.Columns("ncts_Verschluss_Zeichen13") Me.columnncts_Verschluss_Zeichen14 = MyBase.Columns("ncts_Verschluss_Zeichen14") Me.columnncts_Verschluss_Zeichen15 = MyBase.Columns("ncts_Verschluss_Zeichen15") Me.columnncts_Verschluss_Zeichen16 = MyBase.Columns("ncts_Verschluss_Zeichen16") Me.columnncts_Befoerderungsmittel_KennzeichenAbgang = MyBase.Columns("ncts_Befoerderungsmittel_KennzeichenAbgang") Me.columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = MyBase.Columns("ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode") Me.columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = MyBase.Columns("ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent") Me.columnncts_Befoerderungsmittel_ArtGrenzueberschreitung = MyBase.Columns("ncts_Befoerderungsmittel_ArtGrenzueberschreitung") Me.columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = MyBase.Columns("ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend") Me.columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = MyBase.Columns("ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode") Me.columnncts_Versender_EORI = MyBase.Columns("ncts_Versender_EORI") Me.columnncts_Versender_NLNR = MyBase.Columns("ncts_Versender_NLNR") Me.columnncts_Versender_TIN = MyBase.Columns("ncts_Versender_TIN") Me.columnncts_Versender_Name = MyBase.Columns("ncts_Versender_Name") Me.columnncts_Versender_StrasseHausnummer = MyBase.Columns("ncts_Versender_StrasseHausnummer") Me.columnncts_Versender_Ort = MyBase.Columns("ncts_Versender_Ort") Me.columnncts_Versender_PLZ = MyBase.Columns("ncts_Versender_PLZ") Me.columnncts_Versender_Land = MyBase.Columns("ncts_Versender_Land") Me.columnncts_Empfaenger_EORI = MyBase.Columns("ncts_Empfaenger_EORI") Me.columnncts_Empfaenger_NLNR = MyBase.Columns("ncts_Empfaenger_NLNR") Me.columnncts_Empfaenger_TIN = MyBase.Columns("ncts_Empfaenger_TIN") Me.columnncts_Empfaenger_Name = MyBase.Columns("ncts_Empfaenger_Name") Me.columnncts_Empfaenger_StrasseHausnummer = MyBase.Columns("ncts_Empfaenger_StrasseHausnummer") Me.columnncts_Empfaenger_Ort = MyBase.Columns("ncts_Empfaenger_Ort") Me.columnncts_Empfaenger_PLZ = MyBase.Columns("ncts_Empfaenger_PLZ") Me.columnncts_Empfaenger_Land = MyBase.Columns("ncts_Empfaenger_Land") Me.columnncts_Hauptverpflichteter_EORI = MyBase.Columns("ncts_Hauptverpflichteter_EORI") Me.columnncts_Hauptverpflichteter_NLNR = MyBase.Columns("ncts_Hauptverpflichteter_NLNR") Me.columnncts_Hauptverpflichteter_TIN = MyBase.Columns("ncts_Hauptverpflichteter_TIN") Me.columnncts_Hauptverpflichteter_Name = MyBase.Columns("ncts_Hauptverpflichteter_Name") Me.columnncts_Hauptverpflichteter_StrasseHausnummer = MyBase.Columns("ncts_Hauptverpflichteter_StrasseHausnummer") Me.columnncts_Hauptverpflichteter_Ort = MyBase.Columns("ncts_Hauptverpflichteter_Ort") Me.columnncts_Hauptverpflichteter_PLZ = MyBase.Columns("ncts_Hauptverpflichteter_PLZ") Me.columnncts_Hauptverpflichteter_Land = MyBase.Columns("ncts_Hauptverpflichteter_Land") Me.columnncts_ZugelassenerEmpfaenger_EORI = MyBase.Columns("ncts_ZugelassenerEmpfaenger_EORI") Me.columnncts_ZugelassenerEmpfaenger_TIN = MyBase.Columns("ncts_ZugelassenerEmpfaenger_TIN") Me.columnncts_ZugelassenerEmpfaenger_IDCarnet = MyBase.Columns("ncts_ZugelassenerEmpfaenger_IDCarnet") Me.columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender = MyBase.Columns("ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender") Me.columnncts_SumA_KzSumASicherheit = MyBase.Columns("ncts_SumA_KzSumASicherheit") Me.columnncts_SumA_KennnummerSendung = MyBase.Columns("ncts_SumA_KennnummerSendung") Me.columnncts_SumA_NummerBefoerderung = MyBase.Columns("ncts_SumA_NummerBefoerderung") Me.columnncts_SumA_BesondereUmstaende = MyBase.Columns("ncts_SumA_BesondereUmstaende") Me.columnncts_SumA_Ladeort = MyBase.Columns("ncts_SumA_Ladeort") Me.columnncts_SumA_Entladeort = MyBase.Columns("ncts_SumA_Entladeort") Me.columnncts_SumA_BefoerderungskostenZahlungsweise = MyBase.Columns("ncts_SumA_BefoerderungskostenZahlungsweise") Me.columnncts_SumA_BefoerderungsrouteLand1 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand1") Me.columnncts_SumA_BefoerderungsrouteLand2 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand2") Me.columnncts_SumA_BefoerderungsrouteLand3 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand3") Me.columnncts_SumA_BefoerderungsrouteLand4 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand4") Me.columnncts_SumA_BefoerderungsrouteLand5 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand5") Me.columnncts_SumA_BefoerderungsrouteLand6 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand6") Me.columnncts_SumA_BefoerderungsrouteLand7 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand7") Me.columnncts_SumA_BefoerderungsrouteLand8 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand8") Me.columnncts_SumA_BefoerderungsrouteLand9 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand9") Me.columnncts_SumA_BefoerderungsrouteLand10 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand10") Me.columnncts_SumA_BefoerderungsrouteLand11 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand11") Me.columnncts_SumA_BefoerderungsrouteLand12 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand12") Me.columnncts_SumA_Versender_EORI = MyBase.Columns("ncts_SumA_Versender_EORI") Me.columnncts_SumA_Versender_NLNR = MyBase.Columns("ncts_SumA_Versender_NLNR") Me.columnncts_SumA_Versender_TIN = MyBase.Columns("ncts_SumA_Versender_TIN") Me.columnncts_SumA_Versender_Name = MyBase.Columns("ncts_SumA_Versender_Name") Me.columnncts_SumA_Versender_StrasseHausnummer = MyBase.Columns("ncts_SumA_Versender_StrasseHausnummer") Me.columnncts_SumA_Versender_Land = MyBase.Columns("ncts_SumA_Versender_Land") Me.columnncts_SumA_Versender_PLZ = MyBase.Columns("ncts_SumA_Versender_PLZ") Me.columnncts_SumA_Versender_Ort = MyBase.Columns("ncts_SumA_Versender_Ort") Me.columnncts_SumA_Empfaenger_EORI = MyBase.Columns("ncts_SumA_Empfaenger_EORI") Me.columnncts_SumA_Empfaenger_NLNR = MyBase.Columns("ncts_SumA_Empfaenger_NLNR") Me.columnncts_SumA_Empfaenger_TIN = MyBase.Columns("ncts_SumA_Empfaenger_TIN") Me.columnncts_SumA_Empfaenger_Name = MyBase.Columns("ncts_SumA_Empfaenger_Name") Me.columnncts_SumA_Empfaenger_StrasseHausnummer = MyBase.Columns("ncts_SumA_Empfaenger_StrasseHausnummer") Me.columnncts_SumA_Empfaenger_Land = MyBase.Columns("ncts_SumA_Empfaenger_Land") Me.columnncts_SumA_Empfaenger_PLZ = MyBase.Columns("ncts_SumA_Empfaenger_PLZ") Me.columnncts_SumA_Empfaenger_Ort = MyBase.Columns("ncts_SumA_Empfaenger_Ort") Me.columnncts_SumA_Befoerderer_EORI = MyBase.Columns("ncts_SumA_Befoerderer_EORI") Me.columnncts_SumA_Befoerderer_NLNR = MyBase.Columns("ncts_SumA_Befoerderer_NLNR") Me.columnncts_SumA_Befoerderer_TIN = MyBase.Columns("ncts_SumA_Befoerderer_TIN") Me.columnncts_SumA_Befoerderer_Name = MyBase.Columns("ncts_SumA_Befoerderer_Name") Me.columnncts_SumA_Befoerderer_StrasseHausnummer = MyBase.Columns("ncts_SumA_Befoerderer_StrasseHausnummer") Me.columnncts_SumA_Befoerderer_Land = MyBase.Columns("ncts_SumA_Befoerderer_Land") Me.columnncts_SumA_Befoerderer_PLZ = MyBase.Columns("ncts_SumA_Befoerderer_PLZ") Me.columnncts_SumA_Befoerderer_Ort = MyBase.Columns("ncts_SumA_Befoerderer_Ort") Me.columnncts_Stammreferenz = MyBase.Columns("ncts_Stammreferenz") End Sub _ Private Sub InitClass() Me.columnncts_Id = New Global.System.Data.DataColumn("ncts_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Id) Me.columnncts_Status = New Global.System.Data.DataColumn("ncts_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Status) Me.columnncts_Status_KEWILL_Equivalent = New Global.System.Data.DataColumn("ncts_Status_KEWILL_Equivalent", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Status_KEWILL_Equivalent) Me.columnncts_dyaArt = New Global.System.Data.DataColumn("ncts_dyaArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_dyaArt) Me.columnncts_dyaAnmID = New Global.System.Data.DataColumn("ncts_dyaAnmID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_dyaAnmID) Me.columnncts_ANR = New Global.System.Data.DataColumn("ncts_ANR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ANR) Me.columnncts_MRN = New Global.System.Data.DataColumn("ncts_MRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_MRN) Me.columnncts_Erstellung = New Global.System.Data.DataColumn("ncts_Erstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Erstellung) Me.columnncts_Erstellung_SB = New Global.System.Data.DataColumn("ncts_Erstellung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Erstellung_SB) Me.columnncts_LetzteBearbeitung = New Global.System.Data.DataColumn("ncts_LetzteBearbeitung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LetzteBearbeitung) Me.columnncts_LetzteBearbeitung_SB = New Global.System.Data.DataColumn("ncts_LetzteBearbeitung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LetzteBearbeitung_SB) Me.columnncts_firma = New Global.System.Data.DataColumn("ncts_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_firma) Me.columnncts_niederlassung = New Global.System.Data.DataColumn("ncts_niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_niederlassung) Me.columnncts_Gestellt = New Global.System.Data.DataColumn("ncts_Gestellt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Gestellt) Me.columnncts_GestelltAm = New Global.System.Data.DataColumn("ncts_GestelltAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_GestelltAm) Me.columnncts_Trans_Partner = New Global.System.Data.DataColumn("ncts_Trans_Partner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Partner) Me.columnncts_Trans_Div1 = New Global.System.Data.DataColumn("ncts_Trans_Div1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Div1) Me.columnncts_Trans_Div2 = New Global.System.Data.DataColumn("ncts_Trans_Div2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Div2) Me.columnncts_Trans_Div3 = New Global.System.Data.DataColumn("ncts_Trans_Div3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Div3) Me.columnncts_Trans_Referenz = New Global.System.Data.DataColumn("ncts_Trans_Referenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Referenz) Me.columnncts_Trans_DatumZeit = New Global.System.Data.DataColumn("ncts_Trans_DatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_DatumZeit) Me.columnncts_Trans_Version = New Global.System.Data.DataColumn("ncts_Trans_Version", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Version) Me.columnncts_NachrichtenSenderTIN = New Global.System.Data.DataColumn("ncts_NachrichtenSenderTIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_NachrichtenSenderTIN) Me.columnncts_NachrichtenSenderNLNR = New Global.System.Data.DataColumn("ncts_NachrichtenSenderNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_NachrichtenSenderNLNR) Me.columnncts_NachrichtenempfaengerDST = New Global.System.Data.DataColumn("ncts_NachrichtenempfaengerDST", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_NachrichtenempfaengerDST) Me.columnncts_ObjectName = New Global.System.Data.DataColumn("ncts_ObjectName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ObjectName) Me.columnncts_ObjectAlias = New Global.System.Data.DataColumn("ncts_ObjectAlias", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ObjectAlias) Me.columnncts_BezugsnummerVorblendung = New Global.System.Data.DataColumn("ncts_BezugsnummerVorblendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_BezugsnummerVorblendung) Me.columnncts_Bearbeiter = New Global.System.Data.DataColumn("ncts_Bearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Bearbeiter) Me.columnncts_VersendungsLandCode = New Global.System.Data.DataColumn("ncts_VersendungsLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_VersendungsLandCode) Me.columnncts_BestimmungslandCode = New Global.System.Data.DataColumn("ncts_BestimmungslandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_BestimmungslandCode) Me.columnncts_ArtAnmeldung = New Global.System.Data.DataColumn("ncts_ArtAnmeldung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ArtAnmeldung) Me.columnncts_BeladungsOrt = New Global.System.Data.DataColumn("ncts_BeladungsOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_BeladungsOrt) Me.columnncts_DurchgangszollstelleDienststellnummer1 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer1) Me.columnncts_DurchgangszollstelleDienststellnummer2 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer2) Me.columnncts_DurchgangszollstelleDienststellnummer3 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer3) Me.columnncts_DurchgangszollstelleDienststellnummer4 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer4) Me.columnncts_DurchgangszollstelleDienststellnummer5 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer5) Me.columnncts_DurchgangszollstelleDienststellnummer6 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer6) Me.columnncts_DurchgangszollstelleDienststellnummer7 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer7) Me.columnncts_DurchgangszollstelleDienststellnummer8 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer8) Me.columnncts_DurchgangszollstelleDienststellnummer9 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer9) Me.columnncts_BestimmungsstelleDienststellennummer = New Global.System.Data.DataColumn("ncts_BestimmungsstelleDienststellennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_BestimmungsstelleDienststellennummer) Me.columnncts_AbgangsDienststellennummer = New Global.System.Data.DataColumn("ncts_AbgangsDienststellennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AbgangsDienststellennummer) Me.columnncts_Wiedergestellungsdatum = New Global.System.Data.DataColumn("ncts_Wiedergestellungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Wiedergestellungsdatum) Me.columnncts_KzVereinfachtesVerfahren = New Global.System.Data.DataColumn("ncts_KzVereinfachtesVerfahren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_KzVereinfachtesVerfahren) Me.columnncts_GesamtRohmasse = New Global.System.Data.DataColumn("ncts_GesamtRohmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_GesamtRohmasse) Me.columnncts_GesamtAnzahlPackstuecke = New Global.System.Data.DataColumn("ncts_GesamtAnzahlPackstuecke", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_GesamtAnzahlPackstuecke) Me.columnncts_Verschluss_ArtCode = New Global.System.Data.DataColumn("ncts_Verschluss_ArtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_ArtCode) Me.columnncts_Verschluss_Anzahl = New Global.System.Data.DataColumn("ncts_Verschluss_Anzahl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Anzahl) Me.columnncts_Verschluss_Zeichen1 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen1) Me.columnncts_Verschluss_Zeichen2 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen2) Me.columnncts_Verschluss_Zeichen3 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen3) Me.columnncts_Verschluss_Zeichen4 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen4) Me.columnncts_Verschluss_Zeichen5 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen5) Me.columnncts_Verschluss_Zeichen6 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen6) Me.columnncts_Verschluss_Zeichen7 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen7) Me.columnncts_Verschluss_Zeichen8 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen8) Me.columnncts_Verschluss_Zeichen9 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen9) Me.columnncts_Verschluss_Zeichen10 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen10) Me.columnncts_Verschluss_Zeichen11 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen11) Me.columnncts_Verschluss_Zeichen12 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen12) Me.columnncts_Verschluss_Zeichen13 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen13", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen13) Me.columnncts_Verschluss_Zeichen14 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen14", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen14) Me.columnncts_Verschluss_Zeichen15 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen15", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen15) Me.columnncts_Verschluss_Zeichen16 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen16", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen16) Me.columnncts_Befoerderungsmittel_KennzeichenAbgang = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_KennzeichenAbgang", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_KennzeichenAbgang) Me.columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode) Me.columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent) Me.columnncts_Befoerderungsmittel_ArtGrenzueberschreitung = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_ArtGrenzueberschreitung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_ArtGrenzueberschreitung) Me.columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend) Me.columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode) Me.columnncts_Versender_EORI = New Global.System.Data.DataColumn("ncts_Versender_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_EORI) Me.columnncts_Versender_NLNR = New Global.System.Data.DataColumn("ncts_Versender_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_NLNR) Me.columnncts_Versender_TIN = New Global.System.Data.DataColumn("ncts_Versender_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_TIN) Me.columnncts_Versender_Name = New Global.System.Data.DataColumn("ncts_Versender_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_Name) Me.columnncts_Versender_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_Versender_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_StrasseHausnummer) Me.columnncts_Versender_Ort = New Global.System.Data.DataColumn("ncts_Versender_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_Ort) Me.columnncts_Versender_PLZ = New Global.System.Data.DataColumn("ncts_Versender_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_PLZ) Me.columnncts_Versender_Land = New Global.System.Data.DataColumn("ncts_Versender_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_Land) Me.columnncts_Empfaenger_EORI = New Global.System.Data.DataColumn("ncts_Empfaenger_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_EORI) Me.columnncts_Empfaenger_NLNR = New Global.System.Data.DataColumn("ncts_Empfaenger_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_NLNR) Me.columnncts_Empfaenger_TIN = New Global.System.Data.DataColumn("ncts_Empfaenger_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_TIN) Me.columnncts_Empfaenger_Name = New Global.System.Data.DataColumn("ncts_Empfaenger_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_Name) Me.columnncts_Empfaenger_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_Empfaenger_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_StrasseHausnummer) Me.columnncts_Empfaenger_Ort = New Global.System.Data.DataColumn("ncts_Empfaenger_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_Ort) Me.columnncts_Empfaenger_PLZ = New Global.System.Data.DataColumn("ncts_Empfaenger_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_PLZ) Me.columnncts_Empfaenger_Land = New Global.System.Data.DataColumn("ncts_Empfaenger_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_Land) Me.columnncts_Hauptverpflichteter_EORI = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_EORI) Me.columnncts_Hauptverpflichteter_NLNR = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_NLNR) Me.columnncts_Hauptverpflichteter_TIN = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_TIN) Me.columnncts_Hauptverpflichteter_Name = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_Name) Me.columnncts_Hauptverpflichteter_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_StrasseHausnummer) Me.columnncts_Hauptverpflichteter_Ort = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_Ort) Me.columnncts_Hauptverpflichteter_PLZ = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_PLZ) Me.columnncts_Hauptverpflichteter_Land = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_Land) Me.columnncts_ZugelassenerEmpfaenger_EORI = New Global.System.Data.DataColumn("ncts_ZugelassenerEmpfaenger_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ZugelassenerEmpfaenger_EORI) Me.columnncts_ZugelassenerEmpfaenger_TIN = New Global.System.Data.DataColumn("ncts_ZugelassenerEmpfaenger_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ZugelassenerEmpfaenger_TIN) Me.columnncts_ZugelassenerEmpfaenger_IDCarnet = New Global.System.Data.DataColumn("ncts_ZugelassenerEmpfaenger_IDCarnet", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ZugelassenerEmpfaenger_IDCarnet) Me.columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender = New Global.System.Data.DataColumn("ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender) Me.columnncts_SumA_KzSumASicherheit = New Global.System.Data.DataColumn("ncts_SumA_KzSumASicherheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_KzSumASicherheit) Me.columnncts_SumA_KennnummerSendung = New Global.System.Data.DataColumn("ncts_SumA_KennnummerSendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_KennnummerSendung) Me.columnncts_SumA_NummerBefoerderung = New Global.System.Data.DataColumn("ncts_SumA_NummerBefoerderung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_NummerBefoerderung) Me.columnncts_SumA_BesondereUmstaende = New Global.System.Data.DataColumn("ncts_SumA_BesondereUmstaende", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BesondereUmstaende) Me.columnncts_SumA_Ladeort = New Global.System.Data.DataColumn("ncts_SumA_Ladeort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Ladeort) Me.columnncts_SumA_Entladeort = New Global.System.Data.DataColumn("ncts_SumA_Entladeort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Entladeort) Me.columnncts_SumA_BefoerderungskostenZahlungsweise = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungskostenZahlungsweise", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungskostenZahlungsweise) Me.columnncts_SumA_BefoerderungsrouteLand1 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand1) Me.columnncts_SumA_BefoerderungsrouteLand2 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand2) Me.columnncts_SumA_BefoerderungsrouteLand3 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand3) Me.columnncts_SumA_BefoerderungsrouteLand4 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand4) Me.columnncts_SumA_BefoerderungsrouteLand5 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand5) Me.columnncts_SumA_BefoerderungsrouteLand6 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand6) Me.columnncts_SumA_BefoerderungsrouteLand7 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand7) Me.columnncts_SumA_BefoerderungsrouteLand8 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand8) Me.columnncts_SumA_BefoerderungsrouteLand9 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand9) Me.columnncts_SumA_BefoerderungsrouteLand10 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand10) Me.columnncts_SumA_BefoerderungsrouteLand11 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand11) Me.columnncts_SumA_BefoerderungsrouteLand12 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand12) Me.columnncts_SumA_Versender_EORI = New Global.System.Data.DataColumn("ncts_SumA_Versender_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_EORI) Me.columnncts_SumA_Versender_NLNR = New Global.System.Data.DataColumn("ncts_SumA_Versender_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_NLNR) Me.columnncts_SumA_Versender_TIN = New Global.System.Data.DataColumn("ncts_SumA_Versender_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_TIN) Me.columnncts_SumA_Versender_Name = New Global.System.Data.DataColumn("ncts_SumA_Versender_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_Name) Me.columnncts_SumA_Versender_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_SumA_Versender_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_StrasseHausnummer) Me.columnncts_SumA_Versender_Land = New Global.System.Data.DataColumn("ncts_SumA_Versender_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_Land) Me.columnncts_SumA_Versender_PLZ = New Global.System.Data.DataColumn("ncts_SumA_Versender_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_PLZ) Me.columnncts_SumA_Versender_Ort = New Global.System.Data.DataColumn("ncts_SumA_Versender_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_Ort) Me.columnncts_SumA_Empfaenger_EORI = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_EORI) Me.columnncts_SumA_Empfaenger_NLNR = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_NLNR) Me.columnncts_SumA_Empfaenger_TIN = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_TIN) Me.columnncts_SumA_Empfaenger_Name = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_Name) Me.columnncts_SumA_Empfaenger_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_StrasseHausnummer) Me.columnncts_SumA_Empfaenger_Land = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_Land) Me.columnncts_SumA_Empfaenger_PLZ = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_PLZ) Me.columnncts_SumA_Empfaenger_Ort = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_Ort) Me.columnncts_SumA_Befoerderer_EORI = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_EORI) Me.columnncts_SumA_Befoerderer_NLNR = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_NLNR) Me.columnncts_SumA_Befoerderer_TIN = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_TIN) Me.columnncts_SumA_Befoerderer_Name = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_Name) Me.columnncts_SumA_Befoerderer_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_StrasseHausnummer) Me.columnncts_SumA_Befoerderer_Land = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_Land) Me.columnncts_SumA_Befoerderer_PLZ = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_PLZ) Me.columnncts_SumA_Befoerderer_Ort = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_Ort) Me.columnncts_Stammreferenz = New Global.System.Data.DataColumn("ncts_Stammreferenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Stammreferenz) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnncts_Id}, true)) Me.columnncts_Id.AutoIncrement = true Me.columnncts_Id.AutoIncrementSeed = -1 Me.columnncts_Id.AutoIncrementStep = -1 Me.columnncts_Id.AllowDBNull = false Me.columnncts_Id.ReadOnly = true Me.columnncts_Id.Unique = true Me.columnncts_Status.AllowDBNull = false Me.columnncts_Status_KEWILL_Equivalent.AllowDBNull = false Me.columnncts_dyaArt.AllowDBNull = false Me.columnncts_dyaArt.MaxLength = 50 Me.columnncts_dyaAnmID.AllowDBNull = false Me.columnncts_ANR.MaxLength = 21 Me.columnncts_MRN.MaxLength = 21 Me.columnncts_Erstellung.AllowDBNull = false Me.columnncts_LetzteBearbeitung.AllowDBNull = false Me.columnncts_firma.MaxLength = 10 Me.columnncts_niederlassung.MaxLength = 10 Me.columnncts_Gestellt.AllowDBNull = false Me.columnncts_Trans_Partner.MaxLength = 10 Me.columnncts_Trans_Div1.MaxLength = 10 Me.columnncts_Trans_Div2.MaxLength = 10 Me.columnncts_Trans_Div3.MaxLength = 10 Me.columnncts_Trans_Referenz.MaxLength = 35 Me.columnncts_NachrichtenSenderTIN.MaxLength = 17 Me.columnncts_NachrichtenSenderNLNR.MaxLength = 4 Me.columnncts_NachrichtenempfaengerDST.MaxLength = 8 Me.columnncts_ObjectName.MaxLength = 22 Me.columnncts_ObjectAlias.MaxLength = 35 Me.columnncts_BezugsnummerVorblendung.MaxLength = 35 Me.columnncts_Bearbeiter.MaxLength = 20 Me.columnncts_VersendungsLandCode.MaxLength = 2 Me.columnncts_BestimmungslandCode.MaxLength = 2 Me.columnncts_ArtAnmeldung.MaxLength = 5 Me.columnncts_BeladungsOrt.MaxLength = 4 Me.columnncts_DurchgangszollstelleDienststellnummer1.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer2.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer3.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer4.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer5.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer6.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer7.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer8.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer9.MaxLength = 8 Me.columnncts_BestimmungsstelleDienststellennummer.MaxLength = 8 Me.columnncts_AbgangsDienststellennummer.MaxLength = 8 Me.columnncts_KzVereinfachtesVerfahren.MaxLength = 1 Me.columnncts_Verschluss_ArtCode.MaxLength = 1 Me.columnncts_Verschluss_Zeichen1.MaxLength = 20 Me.columnncts_Verschluss_Zeichen2.MaxLength = 20 Me.columnncts_Verschluss_Zeichen3.MaxLength = 20 Me.columnncts_Verschluss_Zeichen4.MaxLength = 20 Me.columnncts_Verschluss_Zeichen5.MaxLength = 20 Me.columnncts_Verschluss_Zeichen6.MaxLength = 20 Me.columnncts_Verschluss_Zeichen7.MaxLength = 20 Me.columnncts_Verschluss_Zeichen8.MaxLength = 20 Me.columnncts_Verschluss_Zeichen9.MaxLength = 20 Me.columnncts_Verschluss_Zeichen10.MaxLength = 20 Me.columnncts_Verschluss_Zeichen11.MaxLength = 20 Me.columnncts_Verschluss_Zeichen12.MaxLength = 20 Me.columnncts_Verschluss_Zeichen13.MaxLength = 20 Me.columnncts_Verschluss_Zeichen14.MaxLength = 20 Me.columnncts_Verschluss_Zeichen15.MaxLength = 20 Me.columnncts_Verschluss_Zeichen16.MaxLength = 20 Me.columnncts_Befoerderungsmittel_KennzeichenAbgang.MaxLength = 27 Me.columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode.MaxLength = 2 Me.columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent.MaxLength = 2 Me.columnncts_Befoerderungsmittel_ArtGrenzueberschreitung.MaxLength = 2 Me.columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend.MaxLength = 27 Me.columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode.MaxLength = 2 Me.columnncts_Versender_EORI.MaxLength = 17 Me.columnncts_Versender_NLNR.MaxLength = 4 Me.columnncts_Versender_TIN.MaxLength = 17 Me.columnncts_Versender_Name.MaxLength = 35 Me.columnncts_Versender_StrasseHausnummer.MaxLength = 35 Me.columnncts_Versender_Ort.MaxLength = 35 Me.columnncts_Versender_PLZ.MaxLength = 9 Me.columnncts_Versender_Land.MaxLength = 2 Me.columnncts_Empfaenger_EORI.MaxLength = 17 Me.columnncts_Empfaenger_NLNR.MaxLength = 4 Me.columnncts_Empfaenger_TIN.MaxLength = 17 Me.columnncts_Empfaenger_Name.MaxLength = 35 Me.columnncts_Empfaenger_StrasseHausnummer.MaxLength = 35 Me.columnncts_Empfaenger_Ort.MaxLength = 35 Me.columnncts_Empfaenger_PLZ.MaxLength = 9 Me.columnncts_Empfaenger_Land.MaxLength = 2 Me.columnncts_Hauptverpflichteter_EORI.MaxLength = 17 Me.columnncts_Hauptverpflichteter_NLNR.MaxLength = 4 Me.columnncts_Hauptverpflichteter_TIN.MaxLength = 17 Me.columnncts_Hauptverpflichteter_Name.MaxLength = 35 Me.columnncts_Hauptverpflichteter_StrasseHausnummer.MaxLength = 35 Me.columnncts_Hauptverpflichteter_Ort.MaxLength = 35 Me.columnncts_Hauptverpflichteter_PLZ.MaxLength = 9 Me.columnncts_Hauptverpflichteter_Land.MaxLength = 2 Me.columnncts_ZugelassenerEmpfaenger_EORI.MaxLength = 17 Me.columnncts_ZugelassenerEmpfaenger_TIN.MaxLength = 17 Me.columnncts_ZugelassenerEmpfaenger_IDCarnet.MaxLength = 17 Me.columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender.MaxLength = 35 Me.columnncts_SumA_KzSumASicherheit.MaxLength = 1 Me.columnncts_SumA_KennnummerSendung.MaxLength = 70 Me.columnncts_SumA_NummerBefoerderung.MaxLength = 35 Me.columnncts_SumA_BesondereUmstaende.MaxLength = 1 Me.columnncts_SumA_Ladeort.MaxLength = 17 Me.columnncts_SumA_Entladeort.MaxLength = 35 Me.columnncts_SumA_BefoerderungskostenZahlungsweise.MaxLength = 1 Me.columnncts_SumA_BefoerderungsrouteLand1.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand2.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand3.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand4.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand5.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand6.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand7.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand8.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand9.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand10.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand11.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand12.MaxLength = 2 Me.columnncts_SumA_Versender_EORI.MaxLength = 17 Me.columnncts_SumA_Versender_NLNR.MaxLength = 4 Me.columnncts_SumA_Versender_TIN.MaxLength = 17 Me.columnncts_SumA_Versender_Name.MaxLength = 35 Me.columnncts_SumA_Versender_StrasseHausnummer.MaxLength = 35 Me.columnncts_SumA_Versender_Land.MaxLength = 2 Me.columnncts_SumA_Versender_PLZ.MaxLength = 9 Me.columnncts_SumA_Versender_Ort.MaxLength = 35 Me.columnncts_SumA_Empfaenger_EORI.MaxLength = 17 Me.columnncts_SumA_Empfaenger_NLNR.MaxLength = 4 Me.columnncts_SumA_Empfaenger_TIN.MaxLength = 17 Me.columnncts_SumA_Empfaenger_Name.MaxLength = 35 Me.columnncts_SumA_Empfaenger_StrasseHausnummer.MaxLength = 35 Me.columnncts_SumA_Empfaenger_Land.MaxLength = 2 Me.columnncts_SumA_Empfaenger_PLZ.MaxLength = 9 Me.columnncts_SumA_Empfaenger_Ort.MaxLength = 35 Me.columnncts_SumA_Befoerderer_EORI.MaxLength = 17 Me.columnncts_SumA_Befoerderer_NLNR.MaxLength = 4 Me.columnncts_SumA_Befoerderer_TIN.MaxLength = 17 Me.columnncts_SumA_Befoerderer_Name.MaxLength = 35 Me.columnncts_SumA_Befoerderer_StrasseHausnummer.MaxLength = 35 Me.columnncts_SumA_Befoerderer_Land.MaxLength = 2 Me.columnncts_SumA_Befoerderer_PLZ.MaxLength = 9 Me.columnncts_SumA_Befoerderer_Ort.MaxLength = 35 Me.columnncts_Stammreferenz.MaxLength = 35 End Sub _ Public Function NewtblDakosy_NCTSOutRow() As tblDakosy_NCTSOutRow Return CType(Me.NewRow,tblDakosy_NCTSOutRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOutRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOutRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOutRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOutRowChanged(Me, New tblDakosy_NCTSOutRowChangeEvent(CType(e.Row,tblDakosy_NCTSOutRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOutRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOutRowChanging(Me, New tblDakosy_NCTSOutRowChangeEvent(CType(e.Row,tblDakosy_NCTSOutRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOutRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOutRowDeleted(Me, New tblDakosy_NCTSOutRowChangeEvent(CType(e.Row,tblDakosy_NCTSOutRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOutRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOutRowDeleting(Me, New tblDakosy_NCTSOutRowChangeEvent(CType(e.Row,tblDakosy_NCTSOutRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOutRow(ByVal row As tblDakosy_NCTSOutRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOutDataTable" 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 tblDakosy_NCTSOut_SicherheitsangabenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOut_SicherheitsangabenRow) Private columnnctsSA_Id As Global.System.Data.DataColumn Private columnnctsSA_NctsId As Global.System.Data.DataColumn Private columnnctsSA_ArtCode As Global.System.Data.DataColumn Private columnnctsSA_BezeichnungBescheinigun As Global.System.Data.DataColumn Private columnnctsSA_AbgabenBetrag As Global.System.Data.DataColumn Private columnnctsSA_GRN As Global.System.Data.DataColumn Private columnnctsSA_Zugriffcode As Global.System.Data.DataColumn Private columnnctsSA_TIN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut_Sicherheitsangaben" 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 nctsSA_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_Id End Get End Property _ Public ReadOnly Property nctsSA_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_NctsId End Get End Property _ Public ReadOnly Property nctsSA_ArtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_ArtCode End Get End Property _ Public ReadOnly Property nctsSA_BezeichnungBescheinigunColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_BezeichnungBescheinigun End Get End Property _ Public ReadOnly Property nctsSA_AbgabenBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_AbgabenBetrag End Get End Property _ Public ReadOnly Property nctsSA_GRNColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_GRN End Get End Property _ Public ReadOnly Property nctsSA_ZugriffcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_Zugriffcode End Get End Property _ Public ReadOnly Property nctsSA_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_TIN 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 tblDakosy_NCTSOut_SicherheitsangabenRow Get Return CType(Me.Rows(index),tblDakosy_NCTSOut_SicherheitsangabenRow) End Get End Property _ Public Event tblDakosy_NCTSOut_SicherheitsangabenRowChanging As tblDakosy_NCTSOut_SicherheitsangabenRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_SicherheitsangabenRowChanged As tblDakosy_NCTSOut_SicherheitsangabenRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_SicherheitsangabenRowDeleting As tblDakosy_NCTSOut_SicherheitsangabenRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_SicherheitsangabenRowDeleted As tblDakosy_NCTSOut_SicherheitsangabenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOut_SicherheitsangabenRow(ByVal row As tblDakosy_NCTSOut_SicherheitsangabenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOut_SicherheitsangabenRow(ByVal nctsSA_NctsId As Integer, ByVal nctsSA_ArtCode As String, ByVal nctsSA_BezeichnungBescheinigun As String, ByVal nctsSA_AbgabenBetrag As Decimal, ByVal nctsSA_GRN As String, ByVal nctsSA_Zugriffcode As String, ByVal nctsSA_TIN As String) As tblDakosy_NCTSOut_SicherheitsangabenRow Dim rowtblDakosy_NCTSOut_SicherheitsangabenRow As tblDakosy_NCTSOut_SicherheitsangabenRow = CType(Me.NewRow,tblDakosy_NCTSOut_SicherheitsangabenRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsSA_NctsId, nctsSA_ArtCode, nctsSA_BezeichnungBescheinigun, nctsSA_AbgabenBetrag, nctsSA_GRN, nctsSA_Zugriffcode, nctsSA_TIN} rowtblDakosy_NCTSOut_SicherheitsangabenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOut_SicherheitsangabenRow) Return rowtblDakosy_NCTSOut_SicherheitsangabenRow End Function _ Public Function FindBynctsSA_Id(ByVal nctsSA_Id As Integer) As tblDakosy_NCTSOut_SicherheitsangabenRow Return CType(Me.Rows.Find(New Object() {nctsSA_Id}),tblDakosy_NCTSOut_SicherheitsangabenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOut_SicherheitsangabenDataTable = CType(MyBase.Clone,tblDakosy_NCTSOut_SicherheitsangabenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOut_SicherheitsangabenDataTable() End Function _ Friend Sub InitVars() Me.columnnctsSA_Id = MyBase.Columns("nctsSA_Id") Me.columnnctsSA_NctsId = MyBase.Columns("nctsSA_NctsId") Me.columnnctsSA_ArtCode = MyBase.Columns("nctsSA_ArtCode") Me.columnnctsSA_BezeichnungBescheinigun = MyBase.Columns("nctsSA_BezeichnungBescheinigun") Me.columnnctsSA_AbgabenBetrag = MyBase.Columns("nctsSA_AbgabenBetrag") Me.columnnctsSA_GRN = MyBase.Columns("nctsSA_GRN") Me.columnnctsSA_Zugriffcode = MyBase.Columns("nctsSA_Zugriffcode") Me.columnnctsSA_TIN = MyBase.Columns("nctsSA_TIN") End Sub _ Private Sub InitClass() Me.columnnctsSA_Id = New Global.System.Data.DataColumn("nctsSA_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_Id) Me.columnnctsSA_NctsId = New Global.System.Data.DataColumn("nctsSA_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_NctsId) Me.columnnctsSA_ArtCode = New Global.System.Data.DataColumn("nctsSA_ArtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_ArtCode) Me.columnnctsSA_BezeichnungBescheinigun = New Global.System.Data.DataColumn("nctsSA_BezeichnungBescheinigun", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_BezeichnungBescheinigun) Me.columnnctsSA_AbgabenBetrag = New Global.System.Data.DataColumn("nctsSA_AbgabenBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_AbgabenBetrag) Me.columnnctsSA_GRN = New Global.System.Data.DataColumn("nctsSA_GRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_GRN) Me.columnnctsSA_Zugriffcode = New Global.System.Data.DataColumn("nctsSA_Zugriffcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_Zugriffcode) Me.columnnctsSA_TIN = New Global.System.Data.DataColumn("nctsSA_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_TIN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsSA_Id}, true)) Me.columnnctsSA_Id.AutoIncrement = true Me.columnnctsSA_Id.AutoIncrementSeed = -1 Me.columnnctsSA_Id.AutoIncrementStep = -1 Me.columnnctsSA_Id.AllowDBNull = false Me.columnnctsSA_Id.ReadOnly = true Me.columnnctsSA_Id.Unique = true Me.columnnctsSA_NctsId.AllowDBNull = false Me.columnnctsSA_ArtCode.MaxLength = 1 Me.columnnctsSA_BezeichnungBescheinigun.MaxLength = 35 Me.columnnctsSA_GRN.MaxLength = 24 Me.columnnctsSA_Zugriffcode.MaxLength = 4 Me.columnnctsSA_TIN.MaxLength = 17 End Sub _ Public Function NewtblDakosy_NCTSOut_SicherheitsangabenRow() As tblDakosy_NCTSOut_SicherheitsangabenRow Return CType(Me.NewRow,tblDakosy_NCTSOut_SicherheitsangabenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOut_SicherheitsangabenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOut_SicherheitsangabenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOut_SicherheitsangabenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_SicherheitsangabenRowChanged(Me, New tblDakosy_NCTSOut_SicherheitsangabenRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_SicherheitsangabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOut_SicherheitsangabenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_SicherheitsangabenRowChanging(Me, New tblDakosy_NCTSOut_SicherheitsangabenRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_SicherheitsangabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOut_SicherheitsangabenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_SicherheitsangabenRowDeleted(Me, New tblDakosy_NCTSOut_SicherheitsangabenRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_SicherheitsangabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOut_SicherheitsangabenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_SicherheitsangabenRowDeleting(Me, New tblDakosy_NCTSOut_SicherheitsangabenRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_SicherheitsangabenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOut_SicherheitsangabenRow(ByVal row As tblDakosy_NCTSOut_SicherheitsangabenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOut_SicherheitsangabenDataTable" 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 tblDakosy_NCTSOut_WarenpositionDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOut_WarenpositionRow) Private columnnctsWP_Id As Global.System.Data.DataColumn Private columnnctsWP_NctsId As Global.System.Data.DataColumn Private columnnctsWP_PositionsNummer As Global.System.Data.DataColumn Private columnnctsWP_Warennummer As Global.System.Data.DataColumn Private columnnctsWP_ArtAnmeldungPositionCode As Global.System.Data.DataColumn Private columnnctsWP_Warenbezeichnung As Global.System.Data.DataColumn Private columnnctsWP_Warenwert As Global.System.Data.DataColumn Private columnnctsWP_WarenwertWaehrung As Global.System.Data.DataColumn Private columnnctsWP_SchaetzKz As Global.System.Data.DataColumn Private columnnctsWP_WarenwertProzent As Global.System.Data.DataColumn Private columnnctsWP_VersendungslandPositionCode As Global.System.Data.DataColumn Private columnnctsWP_BestimmungslandPositionCode As Global.System.Data.DataColumn Private columnnctsWP_Rohmasse As Global.System.Data.DataColumn Private columnnctsWP_Eigenmasse As Global.System.Data.DataColumn Private columnnctsWP_VorpapierTyp As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz1 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz1 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz2 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz2 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz3 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz3 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz4 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz4 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz5 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz5 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz6 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz6 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz7 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz7 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz8 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz8 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz9 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz9 As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_ExportAusEU As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_ExportAusLand As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_Export As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_ExportBeschraenkung As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_ExportAbgaben As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_Vermerk As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_Kz10600 As Global.System.Data.DataColumn Private columnnctsWP_Versender_EORI As Global.System.Data.DataColumn Private columnnctsWP_Versender_NLNR As Global.System.Data.DataColumn Private columnnctsWP_Versender_TIN As Global.System.Data.DataColumn Private columnnctsWP_Versender_Name As Global.System.Data.DataColumn Private columnnctsWP_Versender_StrasseHausnummer As Global.System.Data.DataColumn Private columnnctsWP_Versender_Ort As Global.System.Data.DataColumn Private columnnctsWP_Versender_PLZ As Global.System.Data.DataColumn Private columnnctsWP_Versender_Land As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_EORI As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_NLNR As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_TIN As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_Name As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_StrasseHausnummer As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_Ort As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_PLZ As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_Land As Global.System.Data.DataColumn Private columnnctsWP_SumAKennnummerSendung As Global.System.Data.DataColumn Private columnnctsWP_SumABefoerderungskostenZahlungsweise As Global.System.Data.DataColumn Private columnnctsWP_SumAUNGefahrgutnummer As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_EORI As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_NLNR As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_TIN As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_Name As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_StrasseHausnummer As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_Ort As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_PLZ As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_Land As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_EORI As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_NLNR As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_TIN As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_Name As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_StrasseHausnummer As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_Ort As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_PLZ As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_Land As Global.System.Data.DataColumn Private columnnctsWP_KdRefNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut_Warenposition" 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 nctsWP_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Id End Get End Property _ Public ReadOnly Property nctsWP_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_NctsId End Get End Property _ Public ReadOnly Property nctsWP_PositionsNummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_PositionsNummer End Get End Property _ Public ReadOnly Property nctsWP_WarennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Warennummer End Get End Property _ Public ReadOnly Property nctsWP_ArtAnmeldungPositionCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_ArtAnmeldungPositionCode End Get End Property _ Public ReadOnly Property nctsWP_WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Warenbezeichnung End Get End Property _ Public ReadOnly Property nctsWP_WarenwertColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Warenwert End Get End Property _ Public ReadOnly Property nctsWP_WarenwertWaehrungColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_WarenwertWaehrung End Get End Property _ Public ReadOnly Property nctsWP_SchaetzKzColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SchaetzKz End Get End Property _ Public ReadOnly Property nctsWP_WarenwertProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_WarenwertProzent End Get End Property _ Public ReadOnly Property nctsWP_VersendungslandPositionCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VersendungslandPositionCode End Get End Property _ Public ReadOnly Property nctsWP_BestimmungslandPositionCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BestimmungslandPositionCode End Get End Property _ Public ReadOnly Property nctsWP_RohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Rohmasse End Get End Property _ Public ReadOnly Property nctsWP_EigenmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Eigenmasse End Get End Property _ Public ReadOnly Property nctsWP_VorpapierTypColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierTyp End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz1Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz1 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz1Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz1 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz2Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz2 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz2Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz2 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz3Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz3 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz3Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz3 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz4Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz4 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz4Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz4 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz5Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz5 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz5Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz5 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz6Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz6 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz6Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz6 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz7Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz7 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz7Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz7 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz8Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz8 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz8Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz8 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz9Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz9 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz9Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz9 End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_ExportAusEUColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_ExportAusEU End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_ExportAusLandColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_ExportAusLand End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_ExportColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_Export End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_ExportBeschraenkungColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_ExportBeschraenkung End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_ExportAbgabenColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_ExportAbgaben End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_Vermerk End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_Kz10600Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_Kz10600 End Get End Property _ Public ReadOnly Property nctsWP_Versender_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_EORI End Get End Property _ Public ReadOnly Property nctsWP_Versender_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_NLNR End Get End Property _ Public ReadOnly Property nctsWP_Versender_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_TIN End Get End Property _ Public ReadOnly Property nctsWP_Versender_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_Name End Get End Property _ Public ReadOnly Property nctsWP_Versender_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_StrasseHausnummer End Get End Property _ Public ReadOnly Property nctsWP_Versender_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_Ort End Get End Property _ Public ReadOnly Property nctsWP_Versender_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_PLZ End Get End Property _ Public ReadOnly Property nctsWP_Versender_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_Land End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_EORI End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_NLNR End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_TIN End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_Name End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_StrasseHausnummer End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_Ort End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_PLZ End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_Land End Get End Property _ Public ReadOnly Property nctsWP_SumAKennnummerSendungColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAKennnummerSendung End Get End Property _ Public ReadOnly Property nctsWP_SumABefoerderungskostenZahlungsweiseColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumABefoerderungskostenZahlungsweise End Get End Property _ Public ReadOnly Property nctsWP_SumAUNGefahrgutnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAUNGefahrgutnummer End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_EORI End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_NLNR End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_TIN End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_Name End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_StrasseHausnummer End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_Ort End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_PLZ End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_Land End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_EORI End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_NLNR End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_TIN End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_Name End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_StrasseHausnummer End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_Ort End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_PLZ End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_Land End Get End Property _ Public ReadOnly Property nctsWP_KdRefNrColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_KdRefNr 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 tblDakosy_NCTSOut_WarenpositionRow Get Return CType(Me.Rows(index),tblDakosy_NCTSOut_WarenpositionRow) End Get End Property _ Public Event tblDakosy_NCTSOut_WarenpositionRowChanging As tblDakosy_NCTSOut_WarenpositionRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_WarenpositionRowChanged As tblDakosy_NCTSOut_WarenpositionRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_WarenpositionRowDeleting As tblDakosy_NCTSOut_WarenpositionRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_WarenpositionRowDeleted As tblDakosy_NCTSOut_WarenpositionRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOut_WarenpositionRow(ByVal row As tblDakosy_NCTSOut_WarenpositionRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOut_WarenpositionRow( _ ByVal nctsWP_NctsId As Integer, _ ByVal nctsWP_PositionsNummer As Decimal, _ ByVal nctsWP_Warennummer As String, _ ByVal nctsWP_ArtAnmeldungPositionCode As String, _ ByVal nctsWP_Warenbezeichnung As String, _ ByVal nctsWP_Warenwert As Decimal, _ ByVal nctsWP_WarenwertWaehrung As String, _ ByVal nctsWP_SchaetzKz As String, _ ByVal nctsWP_WarenwertProzent As Decimal, _ ByVal nctsWP_VersendungslandPositionCode As String, _ ByVal nctsWP_BestimmungslandPositionCode As String, _ ByVal nctsWP_Rohmasse As Decimal, _ ByVal nctsWP_Eigenmasse As Decimal, _ ByVal nctsWP_VorpapierTyp As String, _ ByVal nctsWP_VorpapierReferenz1 As String, _ ByVal nctsWP_VorpapierZusatz1 As String, _ ByVal nctsWP_VorpapierReferenz2 As String, _ ByVal nctsWP_VorpapierZusatz2 As String, _ ByVal nctsWP_VorpapierReferenz3 As String, _ ByVal nctsWP_VorpapierZusatz3 As String, _ ByVal nctsWP_VorpapierReferenz4 As String, _ ByVal nctsWP_VorpapierZusatz4 As String, _ ByVal nctsWP_VorpapierReferenz5 As String, _ ByVal nctsWP_VorpapierZusatz5 As String, _ ByVal nctsWP_VorpapierReferenz6 As String, _ ByVal nctsWP_VorpapierZusatz6 As String, _ ByVal nctsWP_VorpapierReferenz7 As String, _ ByVal nctsWP_VorpapierZusatz7 As String, _ ByVal nctsWP_VorpapierReferenz8 As String, _ ByVal nctsWP_VorpapierZusatz8 As String, _ ByVal nctsWP_VorpapierReferenz9 As String, _ ByVal nctsWP_VorpapierZusatz9 As String, _ ByVal nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal nctsWP_BesondereVermeke_Export As String, _ ByVal nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal nctsWP_BesondereVermeke_Vermerk As String, _ ByVal nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal nctsWP_Versender_EORI As String, _ ByVal nctsWP_Versender_NLNR As String, _ ByVal nctsWP_Versender_TIN As String, _ ByVal nctsWP_Versender_Name As String, _ ByVal nctsWP_Versender_StrasseHausnummer As String, _ ByVal nctsWP_Versender_Ort As String, _ ByVal nctsWP_Versender_PLZ As String, _ ByVal nctsWP_Versender_Land As String, _ ByVal nctsWP_Empfaenger_EORI As String, _ ByVal nctsWP_Empfaenger_NLNR As String, _ ByVal nctsWP_Empfaenger_TIN As String, _ ByVal nctsWP_Empfaenger_Name As String, _ ByVal nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal nctsWP_Empfaenger_Ort As String, _ ByVal nctsWP_Empfaenger_PLZ As String, _ ByVal nctsWP_Empfaenger_Land As String, _ ByVal nctsWP_SumAKennnummerSendung As String, _ ByVal nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal nctsWP_SumAUNGefahrgutnummer As String, _ ByVal nctsWP_SumAVersender_EORI As String, _ ByVal nctsWP_SumAVersender_NLNR As String, _ ByVal nctsWP_SumAVersender_TIN As String, _ ByVal nctsWP_SumAVersender_Name As String, _ ByVal nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal nctsWP_SumAVersender_Ort As String, _ ByVal nctsWP_SumAVersender_PLZ As String, _ ByVal nctsWP_SumAVersender_Land As String, _ ByVal nctsWP_SumAEmpfaenger_EORI As String, _ ByVal nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal nctsWP_SumAEmpfaenger_TIN As String, _ ByVal nctsWP_SumAEmpfaenger_Name As String, _ ByVal nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal nctsWP_SumAEmpfaenger_Ort As String, _ ByVal nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal nctsWP_SumAEmpfaenger_Land As String, _ ByVal nctsWP_KdRefNr As String) As tblDakosy_NCTSOut_WarenpositionRow Dim rowtblDakosy_NCTSOut_WarenpositionRow As tblDakosy_NCTSOut_WarenpositionRow = CType(Me.NewRow,tblDakosy_NCTSOut_WarenpositionRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsWP_NctsId, nctsWP_PositionsNummer, nctsWP_Warennummer, nctsWP_ArtAnmeldungPositionCode, nctsWP_Warenbezeichnung, nctsWP_Warenwert, nctsWP_WarenwertWaehrung, nctsWP_SchaetzKz, nctsWP_WarenwertProzent, nctsWP_VersendungslandPositionCode, nctsWP_BestimmungslandPositionCode, nctsWP_Rohmasse, nctsWP_Eigenmasse, nctsWP_VorpapierTyp, nctsWP_VorpapierReferenz1, nctsWP_VorpapierZusatz1, nctsWP_VorpapierReferenz2, nctsWP_VorpapierZusatz2, nctsWP_VorpapierReferenz3, nctsWP_VorpapierZusatz3, nctsWP_VorpapierReferenz4, nctsWP_VorpapierZusatz4, nctsWP_VorpapierReferenz5, nctsWP_VorpapierZusatz5, nctsWP_VorpapierReferenz6, nctsWP_VorpapierZusatz6, nctsWP_VorpapierReferenz7, nctsWP_VorpapierZusatz7, nctsWP_VorpapierReferenz8, nctsWP_VorpapierZusatz8, nctsWP_VorpapierReferenz9, nctsWP_VorpapierZusatz9, nctsWP_BesondereVermeke_ExportAusEU, nctsWP_BesondereVermeke_ExportAusLand, nctsWP_BesondereVermeke_Export, nctsWP_BesondereVermeke_ExportBeschraenkung, nctsWP_BesondereVermeke_ExportAbgaben, nctsWP_BesondereVermeke_Vermerk, nctsWP_BesondereVermeke_Kz10600, nctsWP_Versender_EORI, nctsWP_Versender_NLNR, nctsWP_Versender_TIN, nctsWP_Versender_Name, nctsWP_Versender_StrasseHausnummer, nctsWP_Versender_Ort, nctsWP_Versender_PLZ, nctsWP_Versender_Land, nctsWP_Empfaenger_EORI, nctsWP_Empfaenger_NLNR, nctsWP_Empfaenger_TIN, nctsWP_Empfaenger_Name, nctsWP_Empfaenger_StrasseHausnummer, nctsWP_Empfaenger_Ort, nctsWP_Empfaenger_PLZ, nctsWP_Empfaenger_Land, nctsWP_SumAKennnummerSendung, nctsWP_SumABefoerderungskostenZahlungsweise, nctsWP_SumAUNGefahrgutnummer, nctsWP_SumAVersender_EORI, nctsWP_SumAVersender_NLNR, nctsWP_SumAVersender_TIN, nctsWP_SumAVersender_Name, nctsWP_SumAVersender_StrasseHausnummer, nctsWP_SumAVersender_Ort, nctsWP_SumAVersender_PLZ, nctsWP_SumAVersender_Land, nctsWP_SumAEmpfaenger_EORI, nctsWP_SumAEmpfaenger_NLNR, nctsWP_SumAEmpfaenger_TIN, nctsWP_SumAEmpfaenger_Name, nctsWP_SumAEmpfaenger_StrasseHausnummer, nctsWP_SumAEmpfaenger_Ort, nctsWP_SumAEmpfaenger_PLZ, nctsWP_SumAEmpfaenger_Land, nctsWP_KdRefNr} rowtblDakosy_NCTSOut_WarenpositionRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOut_WarenpositionRow) Return rowtblDakosy_NCTSOut_WarenpositionRow End Function _ Public Function FindBynctsWP_Id(ByVal nctsWP_Id As Integer) As tblDakosy_NCTSOut_WarenpositionRow Return CType(Me.Rows.Find(New Object() {nctsWP_Id}),tblDakosy_NCTSOut_WarenpositionRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOut_WarenpositionDataTable = CType(MyBase.Clone,tblDakosy_NCTSOut_WarenpositionDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOut_WarenpositionDataTable() End Function _ Friend Sub InitVars() Me.columnnctsWP_Id = MyBase.Columns("nctsWP_Id") Me.columnnctsWP_NctsId = MyBase.Columns("nctsWP_NctsId") Me.columnnctsWP_PositionsNummer = MyBase.Columns("nctsWP_PositionsNummer") Me.columnnctsWP_Warennummer = MyBase.Columns("nctsWP_Warennummer") Me.columnnctsWP_ArtAnmeldungPositionCode = MyBase.Columns("nctsWP_ArtAnmeldungPositionCode") Me.columnnctsWP_Warenbezeichnung = MyBase.Columns("nctsWP_Warenbezeichnung") Me.columnnctsWP_Warenwert = MyBase.Columns("nctsWP_Warenwert") Me.columnnctsWP_WarenwertWaehrung = MyBase.Columns("nctsWP_WarenwertWaehrung") Me.columnnctsWP_SchaetzKz = MyBase.Columns("nctsWP_SchaetzKz") Me.columnnctsWP_WarenwertProzent = MyBase.Columns("nctsWP_WarenwertProzent") Me.columnnctsWP_VersendungslandPositionCode = MyBase.Columns("nctsWP_VersendungslandPositionCode") Me.columnnctsWP_BestimmungslandPositionCode = MyBase.Columns("nctsWP_BestimmungslandPositionCode") Me.columnnctsWP_Rohmasse = MyBase.Columns("nctsWP_Rohmasse") Me.columnnctsWP_Eigenmasse = MyBase.Columns("nctsWP_Eigenmasse") Me.columnnctsWP_VorpapierTyp = MyBase.Columns("nctsWP_VorpapierTyp") Me.columnnctsWP_VorpapierReferenz1 = MyBase.Columns("nctsWP_VorpapierReferenz1") Me.columnnctsWP_VorpapierZusatz1 = MyBase.Columns("nctsWP_VorpapierZusatz1") Me.columnnctsWP_VorpapierReferenz2 = MyBase.Columns("nctsWP_VorpapierReferenz2") Me.columnnctsWP_VorpapierZusatz2 = MyBase.Columns("nctsWP_VorpapierZusatz2") Me.columnnctsWP_VorpapierReferenz3 = MyBase.Columns("nctsWP_VorpapierReferenz3") Me.columnnctsWP_VorpapierZusatz3 = MyBase.Columns("nctsWP_VorpapierZusatz3") Me.columnnctsWP_VorpapierReferenz4 = MyBase.Columns("nctsWP_VorpapierReferenz4") Me.columnnctsWP_VorpapierZusatz4 = MyBase.Columns("nctsWP_VorpapierZusatz4") Me.columnnctsWP_VorpapierReferenz5 = MyBase.Columns("nctsWP_VorpapierReferenz5") Me.columnnctsWP_VorpapierZusatz5 = MyBase.Columns("nctsWP_VorpapierZusatz5") Me.columnnctsWP_VorpapierReferenz6 = MyBase.Columns("nctsWP_VorpapierReferenz6") Me.columnnctsWP_VorpapierZusatz6 = MyBase.Columns("nctsWP_VorpapierZusatz6") Me.columnnctsWP_VorpapierReferenz7 = MyBase.Columns("nctsWP_VorpapierReferenz7") Me.columnnctsWP_VorpapierZusatz7 = MyBase.Columns("nctsWP_VorpapierZusatz7") Me.columnnctsWP_VorpapierReferenz8 = MyBase.Columns("nctsWP_VorpapierReferenz8") Me.columnnctsWP_VorpapierZusatz8 = MyBase.Columns("nctsWP_VorpapierZusatz8") Me.columnnctsWP_VorpapierReferenz9 = MyBase.Columns("nctsWP_VorpapierReferenz9") Me.columnnctsWP_VorpapierZusatz9 = MyBase.Columns("nctsWP_VorpapierZusatz9") Me.columnnctsWP_BesondereVermeke_ExportAusEU = MyBase.Columns("nctsWP_BesondereVermeke_ExportAusEU") Me.columnnctsWP_BesondereVermeke_ExportAusLand = MyBase.Columns("nctsWP_BesondereVermeke_ExportAusLand") Me.columnnctsWP_BesondereVermeke_Export = MyBase.Columns("nctsWP_BesondereVermeke_Export") Me.columnnctsWP_BesondereVermeke_ExportBeschraenkung = MyBase.Columns("nctsWP_BesondereVermeke_ExportBeschraenkung") Me.columnnctsWP_BesondereVermeke_ExportAbgaben = MyBase.Columns("nctsWP_BesondereVermeke_ExportAbgaben") Me.columnnctsWP_BesondereVermeke_Vermerk = MyBase.Columns("nctsWP_BesondereVermeke_Vermerk") Me.columnnctsWP_BesondereVermeke_Kz10600 = MyBase.Columns("nctsWP_BesondereVermeke_Kz10600") Me.columnnctsWP_Versender_EORI = MyBase.Columns("nctsWP_Versender_EORI") Me.columnnctsWP_Versender_NLNR = MyBase.Columns("nctsWP_Versender_NLNR") Me.columnnctsWP_Versender_TIN = MyBase.Columns("nctsWP_Versender_TIN") Me.columnnctsWP_Versender_Name = MyBase.Columns("nctsWP_Versender_Name") Me.columnnctsWP_Versender_StrasseHausnummer = MyBase.Columns("nctsWP_Versender_StrasseHausnummer") Me.columnnctsWP_Versender_Ort = MyBase.Columns("nctsWP_Versender_Ort") Me.columnnctsWP_Versender_PLZ = MyBase.Columns("nctsWP_Versender_PLZ") Me.columnnctsWP_Versender_Land = MyBase.Columns("nctsWP_Versender_Land") Me.columnnctsWP_Empfaenger_EORI = MyBase.Columns("nctsWP_Empfaenger_EORI") Me.columnnctsWP_Empfaenger_NLNR = MyBase.Columns("nctsWP_Empfaenger_NLNR") Me.columnnctsWP_Empfaenger_TIN = MyBase.Columns("nctsWP_Empfaenger_TIN") Me.columnnctsWP_Empfaenger_Name = MyBase.Columns("nctsWP_Empfaenger_Name") Me.columnnctsWP_Empfaenger_StrasseHausnummer = MyBase.Columns("nctsWP_Empfaenger_StrasseHausnummer") Me.columnnctsWP_Empfaenger_Ort = MyBase.Columns("nctsWP_Empfaenger_Ort") Me.columnnctsWP_Empfaenger_PLZ = MyBase.Columns("nctsWP_Empfaenger_PLZ") Me.columnnctsWP_Empfaenger_Land = MyBase.Columns("nctsWP_Empfaenger_Land") Me.columnnctsWP_SumAKennnummerSendung = MyBase.Columns("nctsWP_SumAKennnummerSendung") Me.columnnctsWP_SumABefoerderungskostenZahlungsweise = MyBase.Columns("nctsWP_SumABefoerderungskostenZahlungsweise") Me.columnnctsWP_SumAUNGefahrgutnummer = MyBase.Columns("nctsWP_SumAUNGefahrgutnummer") Me.columnnctsWP_SumAVersender_EORI = MyBase.Columns("nctsWP_SumAVersender_EORI") Me.columnnctsWP_SumAVersender_NLNR = MyBase.Columns("nctsWP_SumAVersender_NLNR") Me.columnnctsWP_SumAVersender_TIN = MyBase.Columns("nctsWP_SumAVersender_TIN") Me.columnnctsWP_SumAVersender_Name = MyBase.Columns("nctsWP_SumAVersender_Name") Me.columnnctsWP_SumAVersender_StrasseHausnummer = MyBase.Columns("nctsWP_SumAVersender_StrasseHausnummer") Me.columnnctsWP_SumAVersender_Ort = MyBase.Columns("nctsWP_SumAVersender_Ort") Me.columnnctsWP_SumAVersender_PLZ = MyBase.Columns("nctsWP_SumAVersender_PLZ") Me.columnnctsWP_SumAVersender_Land = MyBase.Columns("nctsWP_SumAVersender_Land") Me.columnnctsWP_SumAEmpfaenger_EORI = MyBase.Columns("nctsWP_SumAEmpfaenger_EORI") Me.columnnctsWP_SumAEmpfaenger_NLNR = MyBase.Columns("nctsWP_SumAEmpfaenger_NLNR") Me.columnnctsWP_SumAEmpfaenger_TIN = MyBase.Columns("nctsWP_SumAEmpfaenger_TIN") Me.columnnctsWP_SumAEmpfaenger_Name = MyBase.Columns("nctsWP_SumAEmpfaenger_Name") Me.columnnctsWP_SumAEmpfaenger_StrasseHausnummer = MyBase.Columns("nctsWP_SumAEmpfaenger_StrasseHausnummer") Me.columnnctsWP_SumAEmpfaenger_Ort = MyBase.Columns("nctsWP_SumAEmpfaenger_Ort") Me.columnnctsWP_SumAEmpfaenger_PLZ = MyBase.Columns("nctsWP_SumAEmpfaenger_PLZ") Me.columnnctsWP_SumAEmpfaenger_Land = MyBase.Columns("nctsWP_SumAEmpfaenger_Land") Me.columnnctsWP_KdRefNr = MyBase.Columns("nctsWP_KdRefNr") End Sub _ Private Sub InitClass() Me.columnnctsWP_Id = New Global.System.Data.DataColumn("nctsWP_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Id) Me.columnnctsWP_NctsId = New Global.System.Data.DataColumn("nctsWP_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_NctsId) Me.columnnctsWP_PositionsNummer = New Global.System.Data.DataColumn("nctsWP_PositionsNummer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_PositionsNummer) Me.columnnctsWP_Warennummer = New Global.System.Data.DataColumn("nctsWP_Warennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Warennummer) Me.columnnctsWP_ArtAnmeldungPositionCode = New Global.System.Data.DataColumn("nctsWP_ArtAnmeldungPositionCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_ArtAnmeldungPositionCode) Me.columnnctsWP_Warenbezeichnung = New Global.System.Data.DataColumn("nctsWP_Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Warenbezeichnung) Me.columnnctsWP_Warenwert = New Global.System.Data.DataColumn("nctsWP_Warenwert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Warenwert) Me.columnnctsWP_WarenwertWaehrung = New Global.System.Data.DataColumn("nctsWP_WarenwertWaehrung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_WarenwertWaehrung) Me.columnnctsWP_SchaetzKz = New Global.System.Data.DataColumn("nctsWP_SchaetzKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SchaetzKz) Me.columnnctsWP_WarenwertProzent = New Global.System.Data.DataColumn("nctsWP_WarenwertProzent", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_WarenwertProzent) Me.columnnctsWP_VersendungslandPositionCode = New Global.System.Data.DataColumn("nctsWP_VersendungslandPositionCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VersendungslandPositionCode) Me.columnnctsWP_BestimmungslandPositionCode = New Global.System.Data.DataColumn("nctsWP_BestimmungslandPositionCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BestimmungslandPositionCode) Me.columnnctsWP_Rohmasse = New Global.System.Data.DataColumn("nctsWP_Rohmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Rohmasse) Me.columnnctsWP_Eigenmasse = New Global.System.Data.DataColumn("nctsWP_Eigenmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Eigenmasse) Me.columnnctsWP_VorpapierTyp = New Global.System.Data.DataColumn("nctsWP_VorpapierTyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierTyp) Me.columnnctsWP_VorpapierReferenz1 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz1) Me.columnnctsWP_VorpapierZusatz1 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz1) Me.columnnctsWP_VorpapierReferenz2 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz2) Me.columnnctsWP_VorpapierZusatz2 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz2) Me.columnnctsWP_VorpapierReferenz3 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz3) Me.columnnctsWP_VorpapierZusatz3 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz3) Me.columnnctsWP_VorpapierReferenz4 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz4) Me.columnnctsWP_VorpapierZusatz4 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz4) Me.columnnctsWP_VorpapierReferenz5 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz5) Me.columnnctsWP_VorpapierZusatz5 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz5) Me.columnnctsWP_VorpapierReferenz6 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz6) Me.columnnctsWP_VorpapierZusatz6 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz6) Me.columnnctsWP_VorpapierReferenz7 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz7) Me.columnnctsWP_VorpapierZusatz7 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz7) Me.columnnctsWP_VorpapierReferenz8 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz8) Me.columnnctsWP_VorpapierZusatz8 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz8) Me.columnnctsWP_VorpapierReferenz9 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz9) Me.columnnctsWP_VorpapierZusatz9 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz9) Me.columnnctsWP_BesondereVermeke_ExportAusEU = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_ExportAusEU", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_ExportAusEU) Me.columnnctsWP_BesondereVermeke_ExportAusLand = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_ExportAusLand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_ExportAusLand) Me.columnnctsWP_BesondereVermeke_Export = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_Export", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_Export) Me.columnnctsWP_BesondereVermeke_ExportBeschraenkung = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_ExportBeschraenkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_ExportBeschraenkung) Me.columnnctsWP_BesondereVermeke_ExportAbgaben = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_ExportAbgaben", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_ExportAbgaben) Me.columnnctsWP_BesondereVermeke_Vermerk = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_Vermerk) Me.columnnctsWP_BesondereVermeke_Kz10600 = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_Kz10600", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_Kz10600) Me.columnnctsWP_Versender_EORI = New Global.System.Data.DataColumn("nctsWP_Versender_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_EORI) Me.columnnctsWP_Versender_NLNR = New Global.System.Data.DataColumn("nctsWP_Versender_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_NLNR) Me.columnnctsWP_Versender_TIN = New Global.System.Data.DataColumn("nctsWP_Versender_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_TIN) Me.columnnctsWP_Versender_Name = New Global.System.Data.DataColumn("nctsWP_Versender_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_Name) Me.columnnctsWP_Versender_StrasseHausnummer = New Global.System.Data.DataColumn("nctsWP_Versender_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_StrasseHausnummer) Me.columnnctsWP_Versender_Ort = New Global.System.Data.DataColumn("nctsWP_Versender_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_Ort) Me.columnnctsWP_Versender_PLZ = New Global.System.Data.DataColumn("nctsWP_Versender_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_PLZ) Me.columnnctsWP_Versender_Land = New Global.System.Data.DataColumn("nctsWP_Versender_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_Land) Me.columnnctsWP_Empfaenger_EORI = New Global.System.Data.DataColumn("nctsWP_Empfaenger_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_EORI) Me.columnnctsWP_Empfaenger_NLNR = New Global.System.Data.DataColumn("nctsWP_Empfaenger_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_NLNR) Me.columnnctsWP_Empfaenger_TIN = New Global.System.Data.DataColumn("nctsWP_Empfaenger_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_TIN) Me.columnnctsWP_Empfaenger_Name = New Global.System.Data.DataColumn("nctsWP_Empfaenger_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_Name) Me.columnnctsWP_Empfaenger_StrasseHausnummer = New Global.System.Data.DataColumn("nctsWP_Empfaenger_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_StrasseHausnummer) Me.columnnctsWP_Empfaenger_Ort = New Global.System.Data.DataColumn("nctsWP_Empfaenger_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_Ort) Me.columnnctsWP_Empfaenger_PLZ = New Global.System.Data.DataColumn("nctsWP_Empfaenger_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_PLZ) Me.columnnctsWP_Empfaenger_Land = New Global.System.Data.DataColumn("nctsWP_Empfaenger_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_Land) Me.columnnctsWP_SumAKennnummerSendung = New Global.System.Data.DataColumn("nctsWP_SumAKennnummerSendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAKennnummerSendung) Me.columnnctsWP_SumABefoerderungskostenZahlungsweise = New Global.System.Data.DataColumn("nctsWP_SumABefoerderungskostenZahlungsweise", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumABefoerderungskostenZahlungsweise) Me.columnnctsWP_SumAUNGefahrgutnummer = New Global.System.Data.DataColumn("nctsWP_SumAUNGefahrgutnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAUNGefahrgutnummer) Me.columnnctsWP_SumAVersender_EORI = New Global.System.Data.DataColumn("nctsWP_SumAVersender_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_EORI) Me.columnnctsWP_SumAVersender_NLNR = New Global.System.Data.DataColumn("nctsWP_SumAVersender_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_NLNR) Me.columnnctsWP_SumAVersender_TIN = New Global.System.Data.DataColumn("nctsWP_SumAVersender_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_TIN) Me.columnnctsWP_SumAVersender_Name = New Global.System.Data.DataColumn("nctsWP_SumAVersender_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_Name) Me.columnnctsWP_SumAVersender_StrasseHausnummer = New Global.System.Data.DataColumn("nctsWP_SumAVersender_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_StrasseHausnummer) Me.columnnctsWP_SumAVersender_Ort = New Global.System.Data.DataColumn("nctsWP_SumAVersender_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_Ort) Me.columnnctsWP_SumAVersender_PLZ = New Global.System.Data.DataColumn("nctsWP_SumAVersender_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_PLZ) Me.columnnctsWP_SumAVersender_Land = New Global.System.Data.DataColumn("nctsWP_SumAVersender_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_Land) Me.columnnctsWP_SumAEmpfaenger_EORI = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_EORI) Me.columnnctsWP_SumAEmpfaenger_NLNR = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_NLNR) Me.columnnctsWP_SumAEmpfaenger_TIN = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_TIN) Me.columnnctsWP_SumAEmpfaenger_Name = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_Name) Me.columnnctsWP_SumAEmpfaenger_StrasseHausnummer = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_StrasseHausnummer) Me.columnnctsWP_SumAEmpfaenger_Ort = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_Ort) Me.columnnctsWP_SumAEmpfaenger_PLZ = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_PLZ) Me.columnnctsWP_SumAEmpfaenger_Land = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_Land) Me.columnnctsWP_KdRefNr = New Global.System.Data.DataColumn("nctsWP_KdRefNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_KdRefNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsWP_Id}, true)) Me.columnnctsWP_Id.AutoIncrement = true Me.columnnctsWP_Id.AutoIncrementSeed = -1 Me.columnnctsWP_Id.AutoIncrementStep = -1 Me.columnnctsWP_Id.AllowDBNull = false Me.columnnctsWP_Id.ReadOnly = true Me.columnnctsWP_Id.Unique = true Me.columnnctsWP_NctsId.AllowDBNull = false Me.columnnctsWP_Warennummer.MaxLength = 10 Me.columnnctsWP_ArtAnmeldungPositionCode.MaxLength = 5 Me.columnnctsWP_Warenbezeichnung.MaxLength = 280 Me.columnnctsWP_WarenwertWaehrung.MaxLength = 3 Me.columnnctsWP_SchaetzKz.MaxLength = 1 Me.columnnctsWP_VersendungslandPositionCode.MaxLength = 2 Me.columnnctsWP_BestimmungslandPositionCode.MaxLength = 2 Me.columnnctsWP_VorpapierTyp.MaxLength = 6 Me.columnnctsWP_VorpapierReferenz1.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz1.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz2.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz2.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz3.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz3.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz4.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz4.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz5.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz5.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz6.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz6.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz7.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz7.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz8.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz8.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz9.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz9.MaxLength = 26 Me.columnnctsWP_BesondereVermeke_ExportAusEU.MaxLength = 1 Me.columnnctsWP_BesondereVermeke_ExportAusLand.MaxLength = 2 Me.columnnctsWP_BesondereVermeke_Export.MaxLength = 1 Me.columnnctsWP_BesondereVermeke_ExportBeschraenkung.MaxLength = 1 Me.columnnctsWP_BesondereVermeke_ExportAbgaben.MaxLength = 1 Me.columnnctsWP_BesondereVermeke_Vermerk.MaxLength = 70 Me.columnnctsWP_BesondereVermeke_Kz10600.MaxLength = 1 Me.columnnctsWP_Versender_EORI.MaxLength = 17 Me.columnnctsWP_Versender_NLNR.MaxLength = 4 Me.columnnctsWP_Versender_TIN.MaxLength = 17 Me.columnnctsWP_Versender_Name.MaxLength = 35 Me.columnnctsWP_Versender_StrasseHausnummer.MaxLength = 35 Me.columnnctsWP_Versender_Ort.MaxLength = 35 Me.columnnctsWP_Versender_PLZ.MaxLength = 9 Me.columnnctsWP_Versender_Land.MaxLength = 2 Me.columnnctsWP_Empfaenger_EORI.MaxLength = 17 Me.columnnctsWP_Empfaenger_NLNR.MaxLength = 4 Me.columnnctsWP_Empfaenger_TIN.MaxLength = 17 Me.columnnctsWP_Empfaenger_Name.MaxLength = 35 Me.columnnctsWP_Empfaenger_StrasseHausnummer.MaxLength = 35 Me.columnnctsWP_Empfaenger_Ort.MaxLength = 35 Me.columnnctsWP_Empfaenger_PLZ.MaxLength = 9 Me.columnnctsWP_Empfaenger_Land.MaxLength = 2 Me.columnnctsWP_SumAKennnummerSendung.MaxLength = 70 Me.columnnctsWP_SumABefoerderungskostenZahlungsweise.MaxLength = 1 Me.columnnctsWP_SumAUNGefahrgutnummer.MaxLength = 4 Me.columnnctsWP_SumAVersender_EORI.MaxLength = 17 Me.columnnctsWP_SumAVersender_NLNR.MaxLength = 4 Me.columnnctsWP_SumAVersender_TIN.MaxLength = 17 Me.columnnctsWP_SumAVersender_Name.MaxLength = 35 Me.columnnctsWP_SumAVersender_StrasseHausnummer.MaxLength = 35 Me.columnnctsWP_SumAVersender_Ort.MaxLength = 35 Me.columnnctsWP_SumAVersender_PLZ.MaxLength = 9 Me.columnnctsWP_SumAVersender_Land.MaxLength = 2 Me.columnnctsWP_SumAEmpfaenger_EORI.MaxLength = 17 Me.columnnctsWP_SumAEmpfaenger_NLNR.MaxLength = 4 Me.columnnctsWP_SumAEmpfaenger_TIN.MaxLength = 17 Me.columnnctsWP_SumAEmpfaenger_Name.MaxLength = 35 Me.columnnctsWP_SumAEmpfaenger_StrasseHausnummer.MaxLength = 35 Me.columnnctsWP_SumAEmpfaenger_Ort.MaxLength = 35 Me.columnnctsWP_SumAEmpfaenger_PLZ.MaxLength = 9 Me.columnnctsWP_SumAEmpfaenger_Land.MaxLength = 2 Me.columnnctsWP_KdRefNr.MaxLength = 500 End Sub _ Public Function NewtblDakosy_NCTSOut_WarenpositionRow() As tblDakosy_NCTSOut_WarenpositionRow Return CType(Me.NewRow,tblDakosy_NCTSOut_WarenpositionRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOut_WarenpositionRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOut_WarenpositionRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionRowChanged(Me, New tblDakosy_NCTSOut_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionRowChanging(Me, New tblDakosy_NCTSOut_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionRowDeleted(Me, New tblDakosy_NCTSOut_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionRowDeleting(Me, New tblDakosy_NCTSOut_WarenpositionRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOut_WarenpositionRow(ByVal row As tblDakosy_NCTSOut_WarenpositionRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOut_WarenpositionDataTable" 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 tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOut_WarenpositionPackstueckeRow) Private columnnctsWpPk_Id As Global.System.Data.DataColumn Private columnnctsWpPk_nctsWPId As Global.System.Data.DataColumn Private columnnctsWpPk_NctsId As Global.System.Data.DataColumn Private columnnctsWpPk_PackstueckeAnzahl As Global.System.Data.DataColumn Private columnnctsWpPk_Verpackungsart As Global.System.Data.DataColumn Private columnnctsWpPk_ZeichenNummern As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut_WarenpositionPackstuecke" 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 nctsWpPk_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_Id End Get End Property _ Public ReadOnly Property nctsWpPk_nctsWPIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_nctsWPId End Get End Property _ Public ReadOnly Property nctsWpPk_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_NctsId End Get End Property _ Public ReadOnly Property nctsWpPk_PackstueckeAnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_PackstueckeAnzahl End Get End Property _ Public ReadOnly Property nctsWpPk_VerpackungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_Verpackungsart End Get End Property _ Public ReadOnly Property nctsWpPk_ZeichenNummernColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_ZeichenNummern 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 tblDakosy_NCTSOut_WarenpositionPackstueckeRow Get Return CType(Me.Rows(index),tblDakosy_NCTSOut_WarenpositionPackstueckeRow) End Get End Property _ Public Event tblDakosy_NCTSOut_WarenpositionPackstueckeRowChanging As tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_WarenpositionPackstueckeRowChanged As tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_WarenpositionPackstueckeRowDeleting As tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_WarenpositionPackstueckeRowDeleted As tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOut_WarenpositionPackstueckeRow(ByVal row As tblDakosy_NCTSOut_WarenpositionPackstueckeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOut_WarenpositionPackstueckeRow(ByVal nctsWpPk_nctsWPId As Integer, ByVal nctsWpPk_NctsId As Integer, ByVal nctsWpPk_PackstueckeAnzahl As Decimal, ByVal nctsWpPk_Verpackungsart As String, ByVal nctsWpPk_ZeichenNummern As String) As tblDakosy_NCTSOut_WarenpositionPackstueckeRow Dim rowtblDakosy_NCTSOut_WarenpositionPackstueckeRow As tblDakosy_NCTSOut_WarenpositionPackstueckeRow = CType(Me.NewRow,tblDakosy_NCTSOut_WarenpositionPackstueckeRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsWpPk_nctsWPId, nctsWpPk_NctsId, nctsWpPk_PackstueckeAnzahl, nctsWpPk_Verpackungsart, nctsWpPk_ZeichenNummern} rowtblDakosy_NCTSOut_WarenpositionPackstueckeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOut_WarenpositionPackstueckeRow) Return rowtblDakosy_NCTSOut_WarenpositionPackstueckeRow End Function _ Public Function FindBynctsWpPk_Id(ByVal nctsWpPk_Id As Integer) As tblDakosy_NCTSOut_WarenpositionPackstueckeRow Return CType(Me.Rows.Find(New Object() {nctsWpPk_Id}),tblDakosy_NCTSOut_WarenpositionPackstueckeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable = CType(MyBase.Clone,tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable() End Function _ Friend Sub InitVars() Me.columnnctsWpPk_Id = MyBase.Columns("nctsWpPk_Id") Me.columnnctsWpPk_nctsWPId = MyBase.Columns("nctsWpPk_nctsWPId") Me.columnnctsWpPk_NctsId = MyBase.Columns("nctsWpPk_NctsId") Me.columnnctsWpPk_PackstueckeAnzahl = MyBase.Columns("nctsWpPk_PackstueckeAnzahl") Me.columnnctsWpPk_Verpackungsart = MyBase.Columns("nctsWpPk_Verpackungsart") Me.columnnctsWpPk_ZeichenNummern = MyBase.Columns("nctsWpPk_ZeichenNummern") End Sub _ Private Sub InitClass() Me.columnnctsWpPk_Id = New Global.System.Data.DataColumn("nctsWpPk_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_Id) Me.columnnctsWpPk_nctsWPId = New Global.System.Data.DataColumn("nctsWpPk_nctsWPId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_nctsWPId) Me.columnnctsWpPk_NctsId = New Global.System.Data.DataColumn("nctsWpPk_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_NctsId) Me.columnnctsWpPk_PackstueckeAnzahl = New Global.System.Data.DataColumn("nctsWpPk_PackstueckeAnzahl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_PackstueckeAnzahl) Me.columnnctsWpPk_Verpackungsart = New Global.System.Data.DataColumn("nctsWpPk_Verpackungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_Verpackungsart) Me.columnnctsWpPk_ZeichenNummern = New Global.System.Data.DataColumn("nctsWpPk_ZeichenNummern", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_ZeichenNummern) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsWpPk_Id}, true)) Me.columnnctsWpPk_Id.AutoIncrement = true Me.columnnctsWpPk_Id.AutoIncrementSeed = -1 Me.columnnctsWpPk_Id.AutoIncrementStep = -1 Me.columnnctsWpPk_Id.AllowDBNull = false Me.columnnctsWpPk_Id.ReadOnly = true Me.columnnctsWpPk_Id.Unique = true Me.columnnctsWpPk_nctsWPId.AllowDBNull = false Me.columnnctsWpPk_NctsId.AllowDBNull = false Me.columnnctsWpPk_Verpackungsart.MaxLength = 3 Me.columnnctsWpPk_ZeichenNummern.MaxLength = 42 End Sub _ Public Function NewtblDakosy_NCTSOut_WarenpositionPackstueckeRow() As tblDakosy_NCTSOut_WarenpositionPackstueckeRow Return CType(Me.NewRow,tblDakosy_NCTSOut_WarenpositionPackstueckeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOut_WarenpositionPackstueckeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOut_WarenpositionPackstueckeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionPackstueckeRowChanged(Me, New tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionPackstueckeRowChanging(Me, New tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionPackstueckeRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionPackstueckeRowDeleted(Me, New tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionPackstueckeRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionPackstueckeRowDeleting(Me, New tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOut_WarenpositionPackstueckeRow(ByVal row As tblDakosy_NCTSOut_WarenpositionPackstueckeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable" 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 tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow) Private columnnctsWpUl_Id As Global.System.Data.DataColumn Private columnnctsWpUl_nctsWPId As Global.System.Data.DataColumn Private columnnctsWpUl_NctsId As Global.System.Data.DataColumn Private columnnctsWpUl_Typ As Global.System.Data.DataColumn Private columnnctsWpUl_Referenz As Global.System.Data.DataColumn Private columnnctsWpUl_Zusatz As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen" 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 nctsWpUl_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpUl_Id End Get End Property _ Public ReadOnly Property nctsWpUl_nctsWPIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpUl_nctsWPId End Get End Property _ Public ReadOnly Property nctsWpUl_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpUl_NctsId End Get End Property _ Public ReadOnly Property nctsWpUl_TypColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpUl_Typ End Get End Property _ Public ReadOnly Property nctsWpUl_ReferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpUl_Referenz End Get End Property _ Public ReadOnly Property nctsWpUl_ZusatzColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpUl_Zusatz 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 tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow Get Return CType(Me.Rows(index),tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow) End Get End Property _ Public Event tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChanging As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChanged As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowDeleting As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEventHandler _ Public Event tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowDeleted As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow(ByVal row As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow(ByVal nctsWpUl_nctsWPId As Integer, ByVal nctsWpUl_NctsId As Integer, ByVal nctsWpUl_Typ As String, ByVal nctsWpUl_Referenz As String, ByVal nctsWpUl_Zusatz As String) As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow Dim rowtblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow = CType(Me.NewRow,tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsWpUl_nctsWPId, nctsWpUl_NctsId, nctsWpUl_Typ, nctsWpUl_Referenz, nctsWpUl_Zusatz} rowtblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow) Return rowtblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow End Function _ Public Function FindBynctsWpUl_Id(ByVal nctsWpUl_Id As Integer) As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow Return CType(Me.Rows.Find(New Object() {nctsWpUl_Id}),tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable = CType(MyBase.Clone,tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable() End Function _ Friend Sub InitVars() Me.columnnctsWpUl_Id = MyBase.Columns("nctsWpUl_Id") Me.columnnctsWpUl_nctsWPId = MyBase.Columns("nctsWpUl_nctsWPId") Me.columnnctsWpUl_NctsId = MyBase.Columns("nctsWpUl_NctsId") Me.columnnctsWpUl_Typ = MyBase.Columns("nctsWpUl_Typ") Me.columnnctsWpUl_Referenz = MyBase.Columns("nctsWpUl_Referenz") Me.columnnctsWpUl_Zusatz = MyBase.Columns("nctsWpUl_Zusatz") End Sub _ Private Sub InitClass() Me.columnnctsWpUl_Id = New Global.System.Data.DataColumn("nctsWpUl_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpUl_Id) Me.columnnctsWpUl_nctsWPId = New Global.System.Data.DataColumn("nctsWpUl_nctsWPId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpUl_nctsWPId) Me.columnnctsWpUl_NctsId = New Global.System.Data.DataColumn("nctsWpUl_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpUl_NctsId) Me.columnnctsWpUl_Typ = New Global.System.Data.DataColumn("nctsWpUl_Typ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpUl_Typ) Me.columnnctsWpUl_Referenz = New Global.System.Data.DataColumn("nctsWpUl_Referenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpUl_Referenz) Me.columnnctsWpUl_Zusatz = New Global.System.Data.DataColumn("nctsWpUl_Zusatz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpUl_Zusatz) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsWpUl_Id}, true)) Me.columnnctsWpUl_Id.AutoIncrement = true Me.columnnctsWpUl_Id.AutoIncrementSeed = -1 Me.columnnctsWpUl_Id.AutoIncrementStep = -1 Me.columnnctsWpUl_Id.AllowDBNull = false Me.columnnctsWpUl_Id.ReadOnly = true Me.columnnctsWpUl_Id.Unique = true Me.columnnctsWpUl_nctsWPId.AllowDBNull = false Me.columnnctsWpUl_NctsId.AllowDBNull = false Me.columnnctsWpUl_Typ.MaxLength = 4 Me.columnnctsWpUl_Referenz.MaxLength = 35 Me.columnnctsWpUl_Zusatz.MaxLength = 26 End Sub _ Public Function NewtblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow() As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow Return CType(Me.NewRow,tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChanged(Me, New tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChanging(Me, New tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowDeleted(Me, New tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowDeleting(Me, New tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow(ByVal row As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable" 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 tblDakosy_NCTSOut004DataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOut004Row) Private columnncts_Id As Global.System.Data.DataColumn Private columnncts_Status As Global.System.Data.DataColumn Private columnncts_Status_KEWILL_Equivalent As Global.System.Data.DataColumn Private columnncts_dyaArt As Global.System.Data.DataColumn Private columnncts_dyaAnmID As Global.System.Data.DataColumn Private columnncts_ANR As Global.System.Data.DataColumn Private columnncts_MRN As Global.System.Data.DataColumn Private columnncts_Erstellung As Global.System.Data.DataColumn Private columnncts_Erstellung_SB As Global.System.Data.DataColumn Private columnncts_LetzteBearbeitung As Global.System.Data.DataColumn Private columnncts_LetzteBearbeitung_SB As Global.System.Data.DataColumn Private columnncts_firma As Global.System.Data.DataColumn Private columnncts_niederlassung As Global.System.Data.DataColumn Private columnncts_Gestellt As Global.System.Data.DataColumn Private columnncts_GestelltAm As Global.System.Data.DataColumn Private columnncts_Trans_Partner As Global.System.Data.DataColumn Private columnncts_Trans_Div1 As Global.System.Data.DataColumn Private columnncts_Trans_Div2 As Global.System.Data.DataColumn Private columnncts_Trans_Div3 As Global.System.Data.DataColumn Private columnncts_Trans_Referenz As Global.System.Data.DataColumn Private columnncts_Trans_DatumZeit As Global.System.Data.DataColumn Private columnncts_Trans_Version As Global.System.Data.DataColumn Private columnncts_NachrichtenSenderTIN As Global.System.Data.DataColumn Private columnncts_NachrichtenSenderNLNR As Global.System.Data.DataColumn Private columnncts_NachrichtenempfaengerDST As Global.System.Data.DataColumn Private columnncts_ObjectName As Global.System.Data.DataColumn Private columnncts_ObjectAlias As Global.System.Data.DataColumn Private columnncts_BezugsnummerVorblendung As Global.System.Data.DataColumn Private columnncts_Bearbeiter As Global.System.Data.DataColumn Private columnncts_CountryOfDispatch As Global.System.Data.DataColumn Private columnncts_CountryOfDestination As Global.System.Data.DataColumn Private columnncts_Declarationtype As Global.System.Data.DataColumn Private columnncts_TIRCarnetNumber As Global.System.Data.DataColumn Private columnncts_ReductedDatasetIndicator As Global.System.Data.DataColumn Private columnncts_LocationOfGoods_TypeofLocation As Global.System.Data.DataColumn Private columnncts_LocationOfGoods_QualifierIdenfitication As Global.System.Data.DataColumn Private columnncts_LocationOfGoods_AdditionalIdentifier As Global.System.Data.DataColumn Private columnncts_LocationOfGoods_ContactPerson_Name As Global.System.Data.DataColumn Private columnncts_LocationOfGoods_ContactPerson_PhoneNumber As Global.System.Data.DataColumn Private columnncts_LocationOfGoods_ContactPerson_EMailAddress As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_1_RefNumber As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_2_RefNumber As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_3_RefNumber As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_4_RefNumber As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_5_RefNumber As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_6_RefNumber As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_7_RefNumber As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_8_RefNumber As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_9_RefNumber As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfDestinationDeclared As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfDeparture As Global.System.Data.DataColumn Private columnncts_CustomsOfficeOfExitForTransitDeclared As Global.System.Data.DataColumn Private columnncts_LimitDate As Global.System.Data.DataColumn Private columnncts_TransitDeclarationType As Global.System.Data.DataColumn Private columnncts_GrossMass As Global.System.Data.DataColumn Private columnncts_BindingItinerary As Global.System.Data.DataColumn Private columnncts_ContainerIndicator As Global.System.Data.DataColumn Private columnncts_InlandModeOfTransport As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_1_TypeOfIdentification As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_1_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_1_Nationality As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_2_TypeOfIdentification As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_2_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_2_Nationality As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_3_TypeOfIdentification As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_3_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_3_Nationality As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_4_TypeOfIdentification As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_4_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_DepartureTransportMeans_4_Nationality As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_1_TypeOfIdentification As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_1_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_1_Nationality As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_2_TypeOfIdentification As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_2_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_2_Nationality As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_3_TypeOfIdentification As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_3_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_3_Nationality As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_4_TypeOfIdentification As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_4_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_4_Nationality As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As Global.System.Data.DataColumn Private columnncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As Global.System.Data.DataColumn Private columnncts_Authorisation_1_Type As Global.System.Data.DataColumn Private columnncts_Authorisation_1_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_Authorisation_2_Type As Global.System.Data.DataColumn Private columnncts_Authorisation_2_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_Authorisation_3_Type As Global.System.Data.DataColumn Private columnncts_Authorisation_3_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_Authorisation_4_Type As Global.System.Data.DataColumn Private columnncts_Authorisation_4_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_Authorisation_5_Type As Global.System.Data.DataColumn Private columnncts_Authorisation_5_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_Authorisation_6_Type As Global.System.Data.DataColumn Private columnncts_Authorisation_6_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_Authorisation_7_Type As Global.System.Data.DataColumn Private columnncts_Authorisation_7_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_Authorisation_8_Type As Global.System.Data.DataColumn Private columnncts_Authorisation_8_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_Authorisation_9_Type As Global.System.Data.DataColumn Private columnncts_Authorisation_9_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_Consignor_AdressCode As Global.System.Data.DataColumn Private columnncts_Consignor_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_Consignor_SubsidiaryNumber As Global.System.Data.DataColumn Private columnncts_Consignor_Name As Global.System.Data.DataColumn Private columnncts_Consignor_StreetNumber As Global.System.Data.DataColumn Private columnncts_Consignor_City As Global.System.Data.DataColumn Private columnncts_Consignor_Postcode As Global.System.Data.DataColumn Private columnncts_Consignor_Country As Global.System.Data.DataColumn Private columnncts_Consignor_ContactPerson_Name As Global.System.Data.DataColumn Private columnncts_Consignor_ContactPerson_PhoneNumber As Global.System.Data.DataColumn Private columnncts_Consignor_ContactPerson_EMailAddress As Global.System.Data.DataColumn Private columnncts_Consignee_AdressCode As Global.System.Data.DataColumn Private columnncts_Consignee_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_Consignee_SubsidiaryNumber As Global.System.Data.DataColumn Private columnncts_Consignee_Name As Global.System.Data.DataColumn Private columnncts_Consignee_StreetNumber As Global.System.Data.DataColumn Private columnncts_Consignee_City As Global.System.Data.DataColumn Private columnncts_Consignee_Postcode As Global.System.Data.DataColumn Private columnncts_Consignee_Country As Global.System.Data.DataColumn Private columnncts_Consignee_ContactPerson_Name As Global.System.Data.DataColumn Private columnncts_Consignee_ContactPerson_PhoneNumber As Global.System.Data.DataColumn Private columnncts_Consignee_ContactPerson_EMailAddress As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_AdressCode As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_Name As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_StreetNumber As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_City As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_Postcode As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_Country As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_ContactPerson_Name As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As Global.System.Data.DataColumn Private columnncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As Global.System.Data.DataColumn Private columnncts_Representative_AdressCode As Global.System.Data.DataColumn Private columnncts_Representative_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_Representative_ContactPerson_Name As Global.System.Data.DataColumn Private columnncts_Representative_ContactPerson_PhoneNumber As Global.System.Data.DataColumn Private columnncts_Representative_ContactPerson_EMailAddress As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_1_Role As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_1_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_2_Role As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_2_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_3_Role As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_3_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_4_Role As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_4_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_5_Role As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_5_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_6_Role As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_6_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_7_Role As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_7_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_8_Role As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_8_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_9_Role As Global.System.Data.DataColumn Private columnncts_AdditionalSupplyChainActor_9_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_Security As Global.System.Data.DataColumn Private columnncts_ReferenceNumberUCR As Global.System.Data.DataColumn Private columnncts_SpecificCircomstanceIndicator As Global.System.Data.DataColumn Private columnncts_PlaceOfLoading_Location As Global.System.Data.DataColumn Private columnncts_PlaceOfLoading_Country As Global.System.Data.DataColumn Private columnncts_PlaceOfUnLoading_Location As Global.System.Data.DataColumn Private columnncts_PlaceOfUnLoading_Country As Global.System.Data.DataColumn Private columnncts_TransportCharges As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_1 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_2 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_3 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_4 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_5 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_6 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_7 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_8 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_9 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_10 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_11 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_12 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_13 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_14 As Global.System.Data.DataColumn Private columnncts_CountryOfRoutingOfConsignment_15 As Global.System.Data.DataColumn Private columnncts_Carrier_AdressCode As Global.System.Data.DataColumn Private columnncts_Carrier_IdentificationNumber As Global.System.Data.DataColumn Private columnncts_Carrier_SubsidiaryNumber As Global.System.Data.DataColumn Private columnncts_Carrier_ContactPerson_Name As Global.System.Data.DataColumn Private columnncts_Carrier_ContactPerson_PhoneNumber As Global.System.Data.DataColumn Private columnncts_Carrier_ContactPerson_EMailAddress As Global.System.Data.DataColumn Private columnncts_SupportingDocument_1_Type As Global.System.Data.DataColumn Private columnncts_SupportingDocument_1_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_1_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_1_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_SupportingDocument_2_Type As Global.System.Data.DataColumn Private columnncts_SupportingDocument_2_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_2_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_2_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_SupportingDocument_3_Type As Global.System.Data.DataColumn Private columnncts_SupportingDocument_3_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_3_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_3_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_SupportingDocument_4_Type As Global.System.Data.DataColumn Private columnncts_SupportingDocument_4_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_4_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_4_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_SupportingDocument_5_Type As Global.System.Data.DataColumn Private columnncts_SupportingDocument_5_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_5_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_5_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_SupportingDocument_6_Type As Global.System.Data.DataColumn Private columnncts_SupportingDocument_6_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_6_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_6_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_SupportingDocument_7_Type As Global.System.Data.DataColumn Private columnncts_SupportingDocument_7_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_7_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_7_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_SupportingDocument_8_Type As Global.System.Data.DataColumn Private columnncts_SupportingDocument_8_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_8_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_8_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_SupportingDocument_9_Type As Global.System.Data.DataColumn Private columnncts_SupportingDocument_9_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_9_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnncts_SupportingDocument_9_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_PreviousDocument_1_Type As Global.System.Data.DataColumn Private columnncts_PreviousDocument_1_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_PreviousDocument_1_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_PreviousDocument_2_Type As Global.System.Data.DataColumn Private columnncts_PreviousDocument_2_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_PreviousDocument_2_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_PreviousDocument_3_Type As Global.System.Data.DataColumn Private columnncts_PreviousDocument_3_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_PreviousDocument_3_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_PreviousDocument_4_Type As Global.System.Data.DataColumn Private columnncts_PreviousDocument_4_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_PreviousDocument_4_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_PreviousDocument_5_Type As Global.System.Data.DataColumn Private columnncts_PreviousDocument_5_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_PreviousDocument_5_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_PreviousDocument_6_Type As Global.System.Data.DataColumn Private columnncts_PreviousDocument_6_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_PreviousDocument_6_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_PreviousDocument_7_Type As Global.System.Data.DataColumn Private columnncts_PreviousDocument_7_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_PreviousDocument_7_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_PreviousDocument_8_Type As Global.System.Data.DataColumn Private columnncts_PreviousDocument_8_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_PreviousDocument_8_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_PreviousDocument_9_Type As Global.System.Data.DataColumn Private columnncts_PreviousDocument_9_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_PreviousDocument_9_ComplementOfInformation As Global.System.Data.DataColumn Private columnncts_TransportDocument_1_Type As Global.System.Data.DataColumn Private columnncts_TransportDocument_1_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_TransportDocument_2_Type As Global.System.Data.DataColumn Private columnncts_TransportDocument_2_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_TransportDocument_3_Type As Global.System.Data.DataColumn Private columnncts_TransportDocument_3_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_TransportDocument_4_Type As Global.System.Data.DataColumn Private columnncts_TransportDocument_4_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_TransportDocument_5_Type As Global.System.Data.DataColumn Private columnncts_TransportDocument_5_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_TransportDocument_6_Type As Global.System.Data.DataColumn Private columnncts_TransportDocument_6_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_TransportDocument_7_Type As Global.System.Data.DataColumn Private columnncts_TransportDocument_7_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_TransportDocument_8_Type As Global.System.Data.DataColumn Private columnncts_TransportDocument_8_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_TransportDocument_9_Type As Global.System.Data.DataColumn Private columnncts_TransportDocument_9_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_AdditionalReference_1_Type As Global.System.Data.DataColumn Private columnncts_AdditionalReference_1_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_AdditionalReference_2_Type As Global.System.Data.DataColumn Private columnncts_AdditionalReference_2_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_AdditionalReference_3_Type As Global.System.Data.DataColumn Private columnncts_AdditionalReference_3_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_AdditionalReference_4_Type As Global.System.Data.DataColumn Private columnncts_AdditionalReference_4_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_AdditionalReference_5_Type As Global.System.Data.DataColumn Private columnncts_AdditionalReference_5_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_AdditionalReference_6_Type As Global.System.Data.DataColumn Private columnncts_AdditionalReference_6_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_AdditionalReference_7_Type As Global.System.Data.DataColumn Private columnncts_AdditionalReference_7_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_AdditionalReference_8_Type As Global.System.Data.DataColumn Private columnncts_AdditionalReference_8_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_AdditionalReference_9_Type As Global.System.Data.DataColumn Private columnncts_AdditionalReference_9_ReferenceNumber As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_1_Code As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_1_Text As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_2_Code As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_2_Text As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_3_Code As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_3_Text As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_4_Code As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_4_Text As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_5_Code As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_5_Text As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_6_Code As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_6_Text As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_7_Code As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_7_Text As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_8_Code As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_8_Text As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_9_Code As Global.System.Data.DataColumn Private columnncts_AdditionalInformation_9_Text As Global.System.Data.DataColumn Private columnncts_AUTOIMPIndicator As Global.System.Data.DataColumn Private columnncts_Stammreferenz As Global.System.Data.DataColumn Private columnncts_ModeOfTransportAtTheBorder As Global.System.Data.DataColumn Private columnncts_Eroeffnung As Global.System.Data.DataColumn Private columnncts_Ankunft As Global.System.Data.DataColumn Private columnncts_Erledigung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut004" 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 ncts_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Id End Get End Property _ Public ReadOnly Property ncts_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Status End Get End Property _ Public ReadOnly Property ncts_Status_KEWILL_EquivalentColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Status_KEWILL_Equivalent End Get End Property _ Public ReadOnly Property ncts_dyaArtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_dyaArt End Get End Property _ Public ReadOnly Property ncts_dyaAnmIDColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_dyaAnmID End Get End Property _ Public ReadOnly Property ncts_ANRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ANR End Get End Property _ Public ReadOnly Property ncts_MRNColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_MRN End Get End Property _ Public ReadOnly Property ncts_ErstellungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Erstellung End Get End Property _ Public ReadOnly Property ncts_Erstellung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Erstellung_SB End Get End Property _ Public ReadOnly Property ncts_LetzteBearbeitungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LetzteBearbeitung End Get End Property _ Public ReadOnly Property ncts_LetzteBearbeitung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LetzteBearbeitung_SB End Get End Property _ Public ReadOnly Property ncts_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_firma End Get End Property _ Public ReadOnly Property ncts_niederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_niederlassung End Get End Property _ Public ReadOnly Property ncts_GestelltColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Gestellt End Get End Property _ Public ReadOnly Property ncts_GestelltAmColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_GestelltAm End Get End Property _ Public ReadOnly Property ncts_Trans_PartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Partner End Get End Property _ Public ReadOnly Property ncts_Trans_Div1Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Div1 End Get End Property _ Public ReadOnly Property ncts_Trans_Div2Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Div2 End Get End Property _ Public ReadOnly Property ncts_Trans_Div3Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Div3 End Get End Property _ Public ReadOnly Property ncts_Trans_ReferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Referenz End Get End Property _ Public ReadOnly Property ncts_Trans_DatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_DatumZeit End Get End Property _ Public ReadOnly Property ncts_Trans_VersionColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Version End Get End Property _ Public ReadOnly Property ncts_NachrichtenSenderTINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_NachrichtenSenderTIN End Get End Property _ Public ReadOnly Property ncts_NachrichtenSenderNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_NachrichtenSenderNLNR End Get End Property _ Public ReadOnly Property ncts_NachrichtenempfaengerDSTColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_NachrichtenempfaengerDST End Get End Property _ Public ReadOnly Property ncts_ObjectNameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ObjectName End Get End Property _ Public ReadOnly Property ncts_ObjectAliasColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ObjectAlias End Get End Property _ Public ReadOnly Property ncts_BezugsnummerVorblendungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_BezugsnummerVorblendung End Get End Property _ Public ReadOnly Property ncts_BearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Bearbeiter End Get End Property _ Public ReadOnly Property ncts_CountryOfDispatchColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfDispatch End Get End Property _ Public ReadOnly Property ncts_CountryOfDestinationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfDestination End Get End Property _ Public ReadOnly Property ncts_DeclarationtypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Declarationtype End Get End Property _ Public ReadOnly Property ncts_TIRCarnetNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TIRCarnetNumber End Get End Property _ Public ReadOnly Property ncts_ReductedDatasetIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ReductedDatasetIndicator End Get End Property _ Public ReadOnly Property ncts_LocationOfGoods_TypeofLocationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LocationOfGoods_TypeofLocation End Get End Property _ Public ReadOnly Property ncts_LocationOfGoods_QualifierIdenfiticationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LocationOfGoods_QualifierIdenfitication End Get End Property _ Public ReadOnly Property ncts_LocationOfGoods_AdditionalIdentifierColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LocationOfGoods_AdditionalIdentifier End Get End Property _ Public ReadOnly Property ncts_LocationOfGoods_ContactPerson_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LocationOfGoods_ContactPerson_Name End Get End Property _ Public ReadOnly Property ncts_LocationOfGoods_ContactPerson_PhoneNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LocationOfGoods_ContactPerson_PhoneNumber End Get End Property _ Public ReadOnly Property ncts_LocationOfGoods_ContactPerson_EMailAddressColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LocationOfGoods_ContactPerson_EMailAddress End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_1_RefNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_1_RefNumber End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_2_RefNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_2_RefNumber End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_3_RefNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_3_RefNumber End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_4_RefNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_4_RefNumber End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_5_RefNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_5_RefNumber End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_6_RefNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_6_RefNumber End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_7_RefNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_7_RefNumber End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_8_RefNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_8_RefNumber End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_9_RefNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_9_RefNumber End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTimeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTimeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTimeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTimeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTimeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTimeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTimeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTimeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTimeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfDestinationDeclaredColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfDestinationDeclared End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfDepartureColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfDeparture End Get End Property _ Public ReadOnly Property ncts_CustomsOfficeOfExitForTransitDeclaredColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_CustomsOfficeOfExitForTransitDeclared End Get End Property _ Public ReadOnly Property ncts_LimitDateColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LimitDate End Get End Property _ Public ReadOnly Property ncts_TransitDeclarationTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransitDeclarationType End Get End Property _ Public ReadOnly Property ncts_GrossMassColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_GrossMass End Get End Property _ Public ReadOnly Property ncts_BindingItineraryColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_BindingItinerary End Get End Property _ Public ReadOnly Property ncts_ContainerIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ContainerIndicator End Get End Property _ Public ReadOnly Property ncts_InlandModeOfTransportColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_InlandModeOfTransport End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_1_TypeOfIdentificationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_1_TypeOfIdentification End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_1_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_1_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_1_NationalityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_1_Nationality End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_2_TypeOfIdentificationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_2_TypeOfIdentification End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_2_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_2_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_2_NationalityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_2_Nationality End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_3_TypeOfIdentificationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_3_TypeOfIdentification End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_3_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_3_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_3_NationalityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_3_Nationality End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_4_TypeOfIdentificationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_4_TypeOfIdentification End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_4_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_4_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_DepartureTransportMeans_4_NationalityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_DepartureTransportMeans_4_Nationality End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_1_TypeOfIdentificationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_1_TypeOfIdentification End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_1_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_1_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_1_NationalityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_1_Nationality End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclaredColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_2_TypeOfIdentificationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_2_TypeOfIdentification End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_2_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_2_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_2_NationalityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_2_Nationality End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclaredColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_3_TypeOfIdentificationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_3_TypeOfIdentification End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_3_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_3_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_3_NationalityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_3_Nationality End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclaredColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_4_TypeOfIdentificationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_4_TypeOfIdentification End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_4_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_4_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_4_NationalityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_4_Nationality End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber End Get End Property _ Public ReadOnly Property ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclaredColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared End Get End Property _ Public ReadOnly Property ncts_Authorisation_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_1_Type End Get End Property _ Public ReadOnly Property ncts_Authorisation_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_1_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_Authorisation_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_2_Type End Get End Property _ Public ReadOnly Property ncts_Authorisation_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_2_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_Authorisation_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_3_Type End Get End Property _ Public ReadOnly Property ncts_Authorisation_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_3_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_Authorisation_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_4_Type End Get End Property _ Public ReadOnly Property ncts_Authorisation_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_4_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_Authorisation_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_5_Type End Get End Property _ Public ReadOnly Property ncts_Authorisation_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_5_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_Authorisation_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_6_Type End Get End Property _ Public ReadOnly Property ncts_Authorisation_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_6_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_Authorisation_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_7_Type End Get End Property _ Public ReadOnly Property ncts_Authorisation_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_7_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_Authorisation_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_8_Type End Get End Property _ Public ReadOnly Property ncts_Authorisation_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_8_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_Authorisation_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_9_Type End Get End Property _ Public ReadOnly Property ncts_Authorisation_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Authorisation_9_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_Consignor_AdressCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_AdressCode End Get End Property _ Public ReadOnly Property ncts_Consignor_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_Consignor_SubsidiaryNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_SubsidiaryNumber End Get End Property _ Public ReadOnly Property ncts_Consignor_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_Name End Get End Property _ Public ReadOnly Property ncts_Consignor_StreetNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_StreetNumber End Get End Property _ Public ReadOnly Property ncts_Consignor_CityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_City End Get End Property _ Public ReadOnly Property ncts_Consignor_PostcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_Postcode End Get End Property _ Public ReadOnly Property ncts_Consignor_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_Country End Get End Property _ Public ReadOnly Property ncts_Consignor_ContactPerson_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_ContactPerson_Name End Get End Property _ Public ReadOnly Property ncts_Consignor_ContactPerson_PhoneNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_ContactPerson_PhoneNumber End Get End Property _ Public ReadOnly Property ncts_Consignor_ContactPerson_EMailAddressColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignor_ContactPerson_EMailAddress End Get End Property _ Public ReadOnly Property ncts_Consignee_AdressCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_AdressCode End Get End Property _ Public ReadOnly Property ncts_Consignee_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_Consignee_SubsidiaryNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_SubsidiaryNumber End Get End Property _ Public ReadOnly Property ncts_Consignee_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_Name End Get End Property _ Public ReadOnly Property ncts_Consignee_StreetNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_StreetNumber End Get End Property _ Public ReadOnly Property ncts_Consignee_CityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_City End Get End Property _ Public ReadOnly Property ncts_Consignee_PostcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_Postcode End Get End Property _ Public ReadOnly Property ncts_Consignee_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_Country End Get End Property _ Public ReadOnly Property ncts_Consignee_ContactPerson_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_ContactPerson_Name End Get End Property _ Public ReadOnly Property ncts_Consignee_ContactPerson_PhoneNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_ContactPerson_PhoneNumber End Get End Property _ Public ReadOnly Property ncts_Consignee_ContactPerson_EMailAddressColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Consignee_ContactPerson_EMailAddress End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_AdressCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_AdressCode End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_Name End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_StreetNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_StreetNumber End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_CityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_City End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_PostcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_Postcode End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_Country End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_ContactPerson_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_Name End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber End Get End Property _ Public ReadOnly Property ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddressColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress End Get End Property _ Public ReadOnly Property ncts_Representative_AdressCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Representative_AdressCode End Get End Property _ Public ReadOnly Property ncts_Representative_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Representative_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_Representative_ContactPerson_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Representative_ContactPerson_Name End Get End Property _ Public ReadOnly Property ncts_Representative_ContactPerson_PhoneNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Representative_ContactPerson_PhoneNumber End Get End Property _ Public ReadOnly Property ncts_Representative_ContactPerson_EMailAddressColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Representative_ContactPerson_EMailAddress End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_1_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_1_Role End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_1_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_1_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_2_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_2_Role End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_2_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_2_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_3_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_3_Role End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_3_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_3_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_4_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_4_Role End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_4_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_4_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_5_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_5_Role End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_5_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_5_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_6_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_6_Role End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_6_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_6_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_7_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_7_Role End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_7_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_7_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_8_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_8_Role End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_8_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_8_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_9_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_9_Role End Get End Property _ Public ReadOnly Property ncts_AdditionalSupplyChainActor_9_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalSupplyChainActor_9_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_SecurityColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Security End Get End Property _ Public ReadOnly Property ncts_ReferenceNumberUCRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ReferenceNumberUCR End Get End Property _ Public ReadOnly Property ncts_SpecificCircomstanceIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SpecificCircomstanceIndicator End Get End Property _ Public ReadOnly Property ncts_PlaceOfLoading_LocationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PlaceOfLoading_Location End Get End Property _ Public ReadOnly Property ncts_PlaceOfLoading_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PlaceOfLoading_Country End Get End Property _ Public ReadOnly Property ncts_PlaceOfUnLoading_LocationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PlaceOfUnLoading_Location End Get End Property _ Public ReadOnly Property ncts_PlaceOfUnLoading_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PlaceOfUnLoading_Country End Get End Property _ Public ReadOnly Property ncts_TransportChargesColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportCharges End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_1Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_1 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_2Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_2 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_3Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_3 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_4Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_4 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_5Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_5 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_6Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_6 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_7Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_7 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_8Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_8 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_9Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_9 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_10Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_10 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_11Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_11 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_12Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_12 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_13Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_13 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_14Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_14 End Get End Property _ Public ReadOnly Property ncts_CountryOfRoutingOfConsignment_15Column() As Global.System.Data.DataColumn Get Return Me.columnncts_CountryOfRoutingOfConsignment_15 End Get End Property _ Public ReadOnly Property ncts_Carrier_AdressCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Carrier_AdressCode End Get End Property _ Public ReadOnly Property ncts_Carrier_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Carrier_IdentificationNumber End Get End Property _ Public ReadOnly Property ncts_Carrier_SubsidiaryNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Carrier_SubsidiaryNumber End Get End Property _ Public ReadOnly Property ncts_Carrier_ContactPerson_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Carrier_ContactPerson_Name End Get End Property _ Public ReadOnly Property ncts_Carrier_ContactPerson_PhoneNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Carrier_ContactPerson_PhoneNumber End Get End Property _ Public ReadOnly Property ncts_Carrier_ContactPerson_EMailAddressColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Carrier_ContactPerson_EMailAddress End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_1_Type End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_1_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_1_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_1_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_1_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_1_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_2_Type End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_2_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_2_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_2_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_2_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_2_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_3_Type End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_3_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_3_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_3_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_3_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_3_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_4_Type End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_4_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_4_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_4_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_4_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_4_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_5_Type End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_5_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_5_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_5_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_5_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_5_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_6_Type End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_6_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_6_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_6_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_6_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_6_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_7_Type End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_7_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_7_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_7_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_7_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_7_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_8_Type End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_8_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_8_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_8_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_8_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_8_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_9_Type End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_9_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_9_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_9_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property ncts_SupportingDocument_9_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SupportingDocument_9_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_1_Type End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_1_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_1_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_1_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_2_Type End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_2_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_2_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_2_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_3_Type End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_3_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_3_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_3_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_4_Type End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_4_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_4_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_4_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_5_Type End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_5_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_5_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_5_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_6_Type End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_6_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_6_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_6_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_7_Type End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_7_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_7_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_7_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_8_Type End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_8_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_8_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_8_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_9_Type End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_9_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_PreviousDocument_9_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_PreviousDocument_9_ComplementOfInformation End Get End Property _ Public ReadOnly Property ncts_TransportDocument_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_1_Type End Get End Property _ Public ReadOnly Property ncts_TransportDocument_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_1_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_TransportDocument_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_2_Type End Get End Property _ Public ReadOnly Property ncts_TransportDocument_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_2_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_TransportDocument_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_3_Type End Get End Property _ Public ReadOnly Property ncts_TransportDocument_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_3_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_TransportDocument_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_4_Type End Get End Property _ Public ReadOnly Property ncts_TransportDocument_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_4_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_TransportDocument_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_5_Type End Get End Property _ Public ReadOnly Property ncts_TransportDocument_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_5_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_TransportDocument_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_6_Type End Get End Property _ Public ReadOnly Property ncts_TransportDocument_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_6_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_TransportDocument_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_7_Type End Get End Property _ Public ReadOnly Property ncts_TransportDocument_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_7_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_TransportDocument_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_8_Type End Get End Property _ Public ReadOnly Property ncts_TransportDocument_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_8_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_TransportDocument_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_9_Type End Get End Property _ Public ReadOnly Property ncts_TransportDocument_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_TransportDocument_9_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_1_Type End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_1_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_2_Type End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_2_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_3_Type End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_3_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_4_Type End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_4_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_5_Type End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_5_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_6_Type End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_6_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_7_Type End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_7_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_8_Type End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_8_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_9_Type End Get End Property _ Public ReadOnly Property ncts_AdditionalReference_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalReference_9_ReferenceNumber End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_1_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_1_Code End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_1_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_1_Text End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_2_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_2_Code End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_2_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_2_Text End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_3_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_3_Code End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_3_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_3_Text End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_4_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_4_Code End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_4_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_4_Text End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_5_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_5_Code End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_5_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_5_Text End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_6_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_6_Code End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_6_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_6_Text End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_7_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_7_Code End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_7_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_7_Text End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_8_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_8_Code End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_8_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_8_Text End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_9_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_9_Code End Get End Property _ Public ReadOnly Property ncts_AdditionalInformation_9_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AdditionalInformation_9_Text End Get End Property _ Public ReadOnly Property ncts_AUTOIMPIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AUTOIMPIndicator End Get End Property _ Public ReadOnly Property ncts_StammreferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Stammreferenz End Get End Property _ Public ReadOnly Property ncts_ModeOfTransportAtTheBorderColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ModeOfTransportAtTheBorder End Get End Property _ Public ReadOnly Property ncts_EroeffnungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Eroeffnung End Get End Property _ Public ReadOnly Property ncts_AnkunftColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Ankunft End Get End Property _ Public ReadOnly Property ncts_ErledigungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Erledigung 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 tblDakosy_NCTSOut004Row Get Return CType(Me.Rows(index),tblDakosy_NCTSOut004Row) End Get End Property _ Public Event tblDakosy_NCTSOut004RowChanging As tblDakosy_NCTSOut004RowChangeEventHandler _ Public Event tblDakosy_NCTSOut004RowChanged As tblDakosy_NCTSOut004RowChangeEventHandler _ Public Event tblDakosy_NCTSOut004RowDeleting As tblDakosy_NCTSOut004RowChangeEventHandler _ Public Event tblDakosy_NCTSOut004RowDeleted As tblDakosy_NCTSOut004RowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOut004Row(ByVal row As tblDakosy_NCTSOut004Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOut004Row( _ ByVal ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Integer, _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Integer, _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Date, _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Date, _ ByVal ncts_Trans_Version As Decimal, _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_CountryOfDispatch As String, _ ByVal ncts_CountryOfDestination As String, _ ByVal ncts_Declarationtype As String, _ ByVal ncts_TIRCarnetNumber As String, _ ByVal ncts_ReductedDatasetIndicator As String, _ ByVal ncts_LocationOfGoods_TypeofLocation As String, _ ByVal ncts_LocationOfGoods_QualifierIdenfitication As String, _ ByVal ncts_LocationOfGoods_AdditionalIdentifier As String, _ ByVal ncts_LocationOfGoods_ContactPerson_Name As String, _ ByVal ncts_LocationOfGoods_ContactPerson_PhoneNumber As String, _ ByVal ncts_LocationOfGoods_ContactPerson_EMailAddress As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Date, _ ByVal ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Date, _ ByVal ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Date, _ ByVal ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Date, _ ByVal ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Date, _ ByVal ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Date, _ ByVal ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Date, _ ByVal ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Date, _ ByVal ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Date, _ ByVal ncts_CustomsOfficeOfDestinationDeclared As String, _ ByVal ncts_CustomsOfficeOfDeparture As String, _ ByVal ncts_CustomsOfficeOfExitForTransitDeclared As String, _ ByVal ncts_LimitDate As Date, _ ByVal ncts_TransitDeclarationType As String, _ ByVal ncts_GrossMass As Decimal, _ ByVal ncts_BindingItinerary As String, _ ByVal ncts_ContainerIndicator As String, _ ByVal ncts_InlandModeOfTransport As String, _ ByVal ncts_DepartureTransportMeans_1_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_1_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_1_Nationality As String, _ ByVal ncts_DepartureTransportMeans_2_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_2_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_2_Nationality As String, _ ByVal ncts_DepartureTransportMeans_3_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_3_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_3_Nationality As String, _ ByVal ncts_DepartureTransportMeans_4_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_4_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_4_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_1_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_1_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_2_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_2_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_3_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_3_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_4_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_4_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_Authorisation_1_Type As String, _ ByVal ncts_Authorisation_1_ReferenceNumber As String, _ ByVal ncts_Authorisation_2_Type As String, _ ByVal ncts_Authorisation_2_ReferenceNumber As String, _ ByVal ncts_Authorisation_3_Type As String, _ ByVal ncts_Authorisation_3_ReferenceNumber As String, _ ByVal ncts_Authorisation_4_Type As String, _ ByVal ncts_Authorisation_4_ReferenceNumber As String, _ ByVal ncts_Authorisation_5_Type As String, _ ByVal ncts_Authorisation_5_ReferenceNumber As String, _ ByVal ncts_Authorisation_6_Type As String, _ ByVal ncts_Authorisation_6_ReferenceNumber As String, _ ByVal ncts_Authorisation_7_Type As String, _ ByVal ncts_Authorisation_7_ReferenceNumber As String, _ ByVal ncts_Authorisation_8_Type As String, _ ByVal ncts_Authorisation_8_ReferenceNumber As String, _ ByVal ncts_Authorisation_9_Type As String, _ ByVal ncts_Authorisation_9_ReferenceNumber As String, _ ByVal ncts_Consignor_AdressCode As String, _ ByVal ncts_Consignor_IdentificationNumber As String, _ ByVal ncts_Consignor_SubsidiaryNumber As String, _ ByVal ncts_Consignor_Name As String, _ ByVal ncts_Consignor_StreetNumber As String, _ ByVal ncts_Consignor_City As String, _ ByVal ncts_Consignor_Postcode As String, _ ByVal ncts_Consignor_Country As String, _ ByVal ncts_Consignor_ContactPerson_Name As String, _ ByVal ncts_Consignor_ContactPerson_PhoneNumber As String, _ ByVal ncts_Consignor_ContactPerson_EMailAddress As String, _ ByVal ncts_Consignee_AdressCode As String, _ ByVal ncts_Consignee_IdentificationNumber As String, _ ByVal ncts_Consignee_SubsidiaryNumber As String, _ ByVal ncts_Consignee_Name As String, _ ByVal ncts_Consignee_StreetNumber As String, _ ByVal ncts_Consignee_City As String, _ ByVal ncts_Consignee_Postcode As String, _ ByVal ncts_Consignee_Country As String, _ ByVal ncts_Consignee_ContactPerson_Name As String, _ ByVal ncts_Consignee_ContactPerson_PhoneNumber As String, _ ByVal ncts_Consignee_ContactPerson_EMailAddress As String, _ ByVal ncts_HolderOfTheTransitProcedure_AdressCode As String, _ ByVal ncts_HolderOfTheTransitProcedure_IdentificationNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_Name As String, _ ByVal ncts_HolderOfTheTransitProcedure_StreetNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_City As String, _ ByVal ncts_HolderOfTheTransitProcedure_Postcode As String, _ ByVal ncts_HolderOfTheTransitProcedure_Country As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_Name As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As String, _ ByVal ncts_Representative_AdressCode As String, _ ByVal ncts_Representative_IdentificationNumber As String, _ ByVal ncts_Representative_ContactPerson_Name As String, _ ByVal ncts_Representative_ContactPerson_PhoneNumber As String, _ ByVal ncts_Representative_ContactPerson_EMailAddress As String, _ ByVal ncts_AdditionalSupplyChainActor_1_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_2_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_3_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_4_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_5_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_6_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_7_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_8_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_9_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal ncts_Security As String, _ ByVal ncts_ReferenceNumberUCR As String, _ ByVal ncts_SpecificCircomstanceIndicator As String, _ ByVal ncts_PlaceOfLoading_Location As String, _ ByVal ncts_PlaceOfLoading_Country As String, _ ByVal ncts_PlaceOfUnLoading_Location As String, _ ByVal ncts_PlaceOfUnLoading_Country As String, _ ByVal ncts_TransportCharges As String, _ ByVal ncts_CountryOfRoutingOfConsignment_1 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_2 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_3 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_4 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_5 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_6 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_7 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_8 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_9 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_10 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_11 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_12 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_13 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_14 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_15 As String, _ ByVal ncts_Carrier_AdressCode As String, _ ByVal ncts_Carrier_IdentificationNumber As String, _ ByVal ncts_Carrier_SubsidiaryNumber As String, _ ByVal ncts_Carrier_ContactPerson_Name As String, _ ByVal ncts_Carrier_ContactPerson_PhoneNumber As String, _ ByVal ncts_Carrier_ContactPerson_EMailAddress As String, _ ByVal ncts_SupportingDocument_1_Type As String, _ ByVal ncts_SupportingDocument_1_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_1_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_2_Type As String, _ ByVal ncts_SupportingDocument_2_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_2_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_3_Type As String, _ ByVal ncts_SupportingDocument_3_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_3_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_4_Type As String, _ ByVal ncts_SupportingDocument_4_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_4_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_5_Type As String, _ ByVal ncts_SupportingDocument_5_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_5_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_6_Type As String, _ ByVal ncts_SupportingDocument_6_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_6_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_7_Type As String, _ ByVal ncts_SupportingDocument_7_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_7_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_8_Type As String, _ ByVal ncts_SupportingDocument_8_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_8_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_9_Type As String, _ ByVal ncts_SupportingDocument_9_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_9_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_1_Type As String, _ ByVal ncts_PreviousDocument_1_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_1_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_2_Type As String, _ ByVal ncts_PreviousDocument_2_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_2_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_3_Type As String, _ ByVal ncts_PreviousDocument_3_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_3_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_4_Type As String, _ ByVal ncts_PreviousDocument_4_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_4_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_5_Type As String, _ ByVal ncts_PreviousDocument_5_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_5_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_6_Type As String, _ ByVal ncts_PreviousDocument_6_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_6_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_7_Type As String, _ ByVal ncts_PreviousDocument_7_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_7_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_8_Type As String, _ ByVal ncts_PreviousDocument_8_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_8_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_9_Type As String, _ ByVal ncts_PreviousDocument_9_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_9_ComplementOfInformation As String, _ ByVal ncts_TransportDocument_1_Type As String, _ ByVal ncts_TransportDocument_1_ReferenceNumber As String, _ ByVal ncts_TransportDocument_2_Type As String, _ ByVal ncts_TransportDocument_2_ReferenceNumber As String, _ ByVal ncts_TransportDocument_3_Type As String, _ ByVal ncts_TransportDocument_3_ReferenceNumber As String, _ ByVal ncts_TransportDocument_4_Type As String, _ ByVal ncts_TransportDocument_4_ReferenceNumber As String, _ ByVal ncts_TransportDocument_5_Type As String, _ ByVal ncts_TransportDocument_5_ReferenceNumber As String, _ ByVal ncts_TransportDocument_6_Type As String, _ ByVal ncts_TransportDocument_6_ReferenceNumber As String, _ ByVal ncts_TransportDocument_7_Type As String, _ ByVal ncts_TransportDocument_7_ReferenceNumber As String, _ ByVal ncts_TransportDocument_8_Type As String, _ ByVal ncts_TransportDocument_8_ReferenceNumber As String, _ ByVal ncts_TransportDocument_9_Type As String, _ ByVal ncts_TransportDocument_9_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_1_Type As String, _ ByVal ncts_AdditionalReference_1_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_2_Type As String, _ ByVal ncts_AdditionalReference_2_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_3_Type As String, _ ByVal ncts_AdditionalReference_3_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_4_Type As String, _ ByVal ncts_AdditionalReference_4_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_5_Type As String, _ ByVal ncts_AdditionalReference_5_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_6_Type As String, _ ByVal ncts_AdditionalReference_6_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_7_Type As String, _ ByVal ncts_AdditionalReference_7_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_8_Type As String, _ ByVal ncts_AdditionalReference_8_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_9_Type As String, _ ByVal ncts_AdditionalReference_9_ReferenceNumber As String, _ ByVal ncts_AdditionalInformation_1_Code As String, _ ByVal ncts_AdditionalInformation_1_Text As String, _ ByVal ncts_AdditionalInformation_2_Code As String, _ ByVal ncts_AdditionalInformation_2_Text As String, _ ByVal ncts_AdditionalInformation_3_Code As String, _ ByVal ncts_AdditionalInformation_3_Text As String, _ ByVal ncts_AdditionalInformation_4_Code As String, _ ByVal ncts_AdditionalInformation_4_Text As String, _ ByVal ncts_AdditionalInformation_5_Code As String, _ ByVal ncts_AdditionalInformation_5_Text As String, _ ByVal ncts_AdditionalInformation_6_Code As String, _ ByVal ncts_AdditionalInformation_6_Text As String, _ ByVal ncts_AdditionalInformation_7_Code As String, _ ByVal ncts_AdditionalInformation_7_Text As String, _ ByVal ncts_AdditionalInformation_8_Code As String, _ ByVal ncts_AdditionalInformation_8_Text As String, _ ByVal ncts_AdditionalInformation_9_Code As String, _ ByVal ncts_AdditionalInformation_9_Text As String, _ ByVal ncts_AUTOIMPIndicator As String, _ ByVal ncts_Stammreferenz As String, _ ByVal ncts_ModeOfTransportAtTheBorder As String, _ ByVal ncts_Eroeffnung As Date, _ ByVal ncts_Ankunft As Date, _ ByVal ncts_Erledigung As Date) As tblDakosy_NCTSOut004Row Dim rowtblDakosy_NCTSOut004Row As tblDakosy_NCTSOut004Row = CType(Me.NewRow,tblDakosy_NCTSOut004Row) Dim columnValuesArray() As Object = New Object() {Nothing, ncts_Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR, ncts_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_LetzteBearbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_GestelltAm, ncts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_Trans_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenSenderTIN, ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, ncts_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_CountryOfDispatch, ncts_CountryOfDestination, ncts_Declarationtype, ncts_TIRCarnetNumber, ncts_ReductedDatasetIndicator, ncts_LocationOfGoods_TypeofLocation, ncts_LocationOfGoods_QualifierIdenfitication, ncts_LocationOfGoods_AdditionalIdentifier, ncts_LocationOfGoods_ContactPerson_Name, ncts_LocationOfGoods_ContactPerson_PhoneNumber, ncts_LocationOfGoods_ContactPerson_EMailAddress, ncts_CustomsOfficeOfTransitDeclared_1_RefNumber, ncts_CustomsOfficeOfTransitDeclared_2_RefNumber, ncts_CustomsOfficeOfTransitDeclared_3_RefNumber, ncts_CustomsOfficeOfTransitDeclared_4_RefNumber, ncts_CustomsOfficeOfTransitDeclared_5_RefNumber, ncts_CustomsOfficeOfTransitDeclared_6_RefNumber, ncts_CustomsOfficeOfTransitDeclared_7_RefNumber, ncts_CustomsOfficeOfTransitDeclared_8_RefNumber, ncts_CustomsOfficeOfTransitDeclared_9_RefNumber, ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime, ncts_CustomsOfficeOfDestinationDeclared, ncts_CustomsOfficeOfDeparture, ncts_CustomsOfficeOfExitForTransitDeclared, ncts_LimitDate, ncts_TransitDeclarationType, ncts_GrossMass, ncts_BindingItinerary, ncts_ContainerIndicator, ncts_InlandModeOfTransport, ncts_DepartureTransportMeans_1_TypeOfIdentification, ncts_DepartureTransportMeans_1_IdentificationNumber, ncts_DepartureTransportMeans_1_Nationality, ncts_DepartureTransportMeans_2_TypeOfIdentification, ncts_DepartureTransportMeans_2_IdentificationNumber, ncts_DepartureTransportMeans_2_Nationality, ncts_DepartureTransportMeans_3_TypeOfIdentification, ncts_DepartureTransportMeans_3_IdentificationNumber, ncts_DepartureTransportMeans_3_Nationality, ncts_DepartureTransportMeans_4_TypeOfIdentification, ncts_DepartureTransportMeans_4_IdentificationNumber, ncts_DepartureTransportMeans_4_Nationality, ncts_ActiveBorderTransportMeans_1_TypeOfIdentification, ncts_ActiveBorderTransportMeans_1_IdentificationNumber, ncts_ActiveBorderTransportMeans_1_Nationality, ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared, ncts_ActiveBorderTransportMeans_2_TypeOfIdentification, ncts_ActiveBorderTransportMeans_2_IdentificationNumber, ncts_ActiveBorderTransportMeans_2_Nationality, ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared, ncts_ActiveBorderTransportMeans_3_TypeOfIdentification, ncts_ActiveBorderTransportMeans_3_IdentificationNumber, ncts_ActiveBorderTransportMeans_3_Nationality, ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared, ncts_ActiveBorderTransportMeans_4_TypeOfIdentification, ncts_ActiveBorderTransportMeans_4_IdentificationNumber, ncts_ActiveBorderTransportMeans_4_Nationality, ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared, ncts_Authorisation_1_Type, ncts_Authorisation_1_ReferenceNumber, ncts_Authorisation_2_Type, ncts_Authorisation_2_ReferenceNumber, ncts_Authorisation_3_Type, ncts_Authorisation_3_ReferenceNumber, ncts_Authorisation_4_Type, ncts_Authorisation_4_ReferenceNumber, ncts_Authorisation_5_Type, ncts_Authorisation_5_ReferenceNumber, ncts_Authorisation_6_Type, ncts_Authorisation_6_ReferenceNumber, ncts_Authorisation_7_Type, ncts_Authorisation_7_ReferenceNumber, ncts_Authorisation_8_Type, ncts_Authorisation_8_ReferenceNumber, ncts_Authorisation_9_Type, ncts_Authorisation_9_ReferenceNumber, ncts_Consignor_AdressCode, ncts_Consignor_IdentificationNumber, ncts_Consignor_SubsidiaryNumber, ncts_Consignor_Name, ncts_Consignor_StreetNumber, ncts_Consignor_City, ncts_Consignor_Postcode, ncts_Consignor_Country, ncts_Consignor_ContactPerson_Name, ncts_Consignor_ContactPerson_PhoneNumber, ncts_Consignor_ContactPerson_EMailAddress, ncts_Consignee_AdressCode, ncts_Consignee_IdentificationNumber, ncts_Consignee_SubsidiaryNumber, ncts_Consignee_Name, ncts_Consignee_StreetNumber, ncts_Consignee_City, ncts_Consignee_Postcode, ncts_Consignee_Country, ncts_Consignee_ContactPerson_Name, ncts_Consignee_ContactPerson_PhoneNumber, ncts_Consignee_ContactPerson_EMailAddress, ncts_HolderOfTheTransitProcedure_AdressCode, ncts_HolderOfTheTransitProcedure_IdentificationNumber, ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber, ncts_HolderOfTheTransitProcedure_Name, ncts_HolderOfTheTransitProcedure_StreetNumber, ncts_HolderOfTheTransitProcedure_City, ncts_HolderOfTheTransitProcedure_Postcode, ncts_HolderOfTheTransitProcedure_Country, ncts_HolderOfTheTransitProcedure_ContactPerson_Name, ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber, ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress, ncts_Representative_AdressCode, ncts_Representative_IdentificationNumber, ncts_Representative_ContactPerson_Name, ncts_Representative_ContactPerson_PhoneNumber, ncts_Representative_ContactPerson_EMailAddress, ncts_AdditionalSupplyChainActor_1_Role, ncts_AdditionalSupplyChainActor_1_IdentificationNumber, ncts_AdditionalSupplyChainActor_2_Role, ncts_AdditionalSupplyChainActor_2_IdentificationNumber, ncts_AdditionalSupplyChainActor_3_Role, ncts_AdditionalSupplyChainActor_3_IdentificationNumber, ncts_AdditionalSupplyChainActor_4_Role, ncts_AdditionalSupplyChainActor_4_IdentificationNumber, ncts_AdditionalSupplyChainActor_5_Role, ncts_AdditionalSupplyChainActor_5_IdentificationNumber, ncts_AdditionalSupplyChainActor_6_Role, ncts_AdditionalSupplyChainActor_6_IdentificationNumber, ncts_AdditionalSupplyChainActor_7_Role, ncts_AdditionalSupplyChainActor_7_IdentificationNumber, ncts_AdditionalSupplyChainActor_8_Role, ncts_AdditionalSupplyChainActor_8_IdentificationNumber, ncts_AdditionalSupplyChainActor_9_Role, ncts_AdditionalSupplyChainActor_9_IdentificationNumber, ncts_Security, ncts_ReferenceNumberUCR, ncts_SpecificCircomstanceIndicator, ncts_PlaceOfLoading_Location, ncts_PlaceOfLoading_Country, ncts_PlaceOfUnLoading_Location, ncts_PlaceOfUnLoading_Country, ncts_TransportCharges, ncts_CountryOfRoutingOfConsignment_1, ncts_CountryOfRoutingOfConsignment_2, ncts_CountryOfRoutingOfConsignment_3, ncts_CountryOfRoutingOfConsignment_4, ncts_CountryOfRoutingOfConsignment_5, ncts_CountryOfRoutingOfConsignment_6, ncts_CountryOfRoutingOfConsignment_7, ncts_CountryOfRoutingOfConsignment_8, ncts_CountryOfRoutingOfConsignment_9, ncts_CountryOfRoutingOfConsignment_10, ncts_CountryOfRoutingOfConsignment_11, ncts_CountryOfRoutingOfConsignment_12, ncts_CountryOfRoutingOfConsignment_13, ncts_CountryOfRoutingOfConsignment_14, ncts_CountryOfRoutingOfConsignment_15, ncts_Carrier_AdressCode, ncts_Carrier_IdentificationNumber, ncts_Carrier_SubsidiaryNumber, ncts_Carrier_ContactPerson_Name, ncts_Carrier_ContactPerson_PhoneNumber, ncts_Carrier_ContactPerson_EMailAddress, ncts_SupportingDocument_1_Type, ncts_SupportingDocument_1_ReferenceNumber, ncts_SupportingDocument_1_DocumentLineItemNumber, ncts_SupportingDocument_1_ComplementOfInformation, ncts_SupportingDocument_2_Type, ncts_SupportingDocument_2_ReferenceNumber, ncts_SupportingDocument_2_DocumentLineItemNumber, ncts_SupportingDocument_2_ComplementOfInformation, ncts_SupportingDocument_3_Type, ncts_SupportingDocument_3_ReferenceNumber, ncts_SupportingDocument_3_DocumentLineItemNumber, ncts_SupportingDocument_3_ComplementOfInformation, ncts_SupportingDocument_4_Type, ncts_SupportingDocument_4_ReferenceNumber, ncts_SupportingDocument_4_DocumentLineItemNumber, ncts_SupportingDocument_4_ComplementOfInformation, ncts_SupportingDocument_5_Type, ncts_SupportingDocument_5_ReferenceNumber, ncts_SupportingDocument_5_DocumentLineItemNumber, ncts_SupportingDocument_5_ComplementOfInformation, ncts_SupportingDocument_6_Type, ncts_SupportingDocument_6_ReferenceNumber, ncts_SupportingDocument_6_DocumentLineItemNumber, ncts_SupportingDocument_6_ComplementOfInformation, ncts_SupportingDocument_7_Type, ncts_SupportingDocument_7_ReferenceNumber, ncts_SupportingDocument_7_DocumentLineItemNumber, ncts_SupportingDocument_7_ComplementOfInformation, ncts_SupportingDocument_8_Type, ncts_SupportingDocument_8_ReferenceNumber, ncts_SupportingDocument_8_DocumentLineItemNumber, ncts_SupportingDocument_8_ComplementOfInformation, ncts_SupportingDocument_9_Type, ncts_SupportingDocument_9_ReferenceNumber, ncts_SupportingDocument_9_DocumentLineItemNumber, ncts_SupportingDocument_9_ComplementOfInformation, ncts_PreviousDocument_1_Type, ncts_PreviousDocument_1_ReferenceNumber, ncts_PreviousDocument_1_ComplementOfInformation, ncts_PreviousDocument_2_Type, ncts_PreviousDocument_2_ReferenceNumber, ncts_PreviousDocument_2_ComplementOfInformation, ncts_PreviousDocument_3_Type, ncts_PreviousDocument_3_ReferenceNumber, ncts_PreviousDocument_3_ComplementOfInformation, ncts_PreviousDocument_4_Type, ncts_PreviousDocument_4_ReferenceNumber, ncts_PreviousDocument_4_ComplementOfInformation, ncts_PreviousDocument_5_Type, ncts_PreviousDocument_5_ReferenceNumber, ncts_PreviousDocument_5_ComplementOfInformation, ncts_PreviousDocument_6_Type, ncts_PreviousDocument_6_ReferenceNumber, ncts_PreviousDocument_6_ComplementOfInformation, ncts_PreviousDocument_7_Type, ncts_PreviousDocument_7_ReferenceNumber, ncts_PreviousDocument_7_ComplementOfInformation, ncts_PreviousDocument_8_Type, ncts_PreviousDocument_8_ReferenceNumber, ncts_PreviousDocument_8_ComplementOfInformation, ncts_PreviousDocument_9_Type, ncts_PreviousDocument_9_ReferenceNumber, ncts_PreviousDocument_9_ComplementOfInformation, ncts_TransportDocument_1_Type, ncts_TransportDocument_1_ReferenceNumber, ncts_TransportDocument_2_Type, ncts_TransportDocument_2_ReferenceNumber, ncts_TransportDocument_3_Type, ncts_TransportDocument_3_ReferenceNumber, ncts_TransportDocument_4_Type, ncts_TransportDocument_4_ReferenceNumber, ncts_TransportDocument_5_Type, ncts_TransportDocument_5_ReferenceNumber, ncts_TransportDocument_6_Type, ncts_TransportDocument_6_ReferenceNumber, ncts_TransportDocument_7_Type, ncts_TransportDocument_7_ReferenceNumber, ncts_TransportDocument_8_Type, ncts_TransportDocument_8_ReferenceNumber, ncts_TransportDocument_9_Type, ncts_TransportDocument_9_ReferenceNumber, ncts_AdditionalReference_1_Type, ncts_AdditionalReference_1_ReferenceNumber, ncts_AdditionalReference_2_Type, ncts_AdditionalReference_2_ReferenceNumber, ncts_AdditionalReference_3_Type, ncts_AdditionalReference_3_ReferenceNumber, ncts_AdditionalReference_4_Type, ncts_AdditionalReference_4_ReferenceNumber, ncts_AdditionalReference_5_Type, ncts_AdditionalReference_5_ReferenceNumber, ncts_AdditionalReference_6_Type, ncts_AdditionalReference_6_ReferenceNumber, ncts_AdditionalReference_7_Type, ncts_AdditionalReference_7_ReferenceNumber, ncts_AdditionalReference_8_Type, ncts_AdditionalReference_8_ReferenceNumber, ncts_AdditionalReference_9_Type, ncts_AdditionalReference_9_ReferenceNumber, ncts_AdditionalInformation_1_Code, ncts_AdditionalInformation_1_Text, ncts_AdditionalInformation_2_Code, ncts_AdditionalInformation_2_Text, ncts_AdditionalInformation_3_Code, ncts_AdditionalInformation_3_Text, ncts_AdditionalInformation_4_Code, ncts_AdditionalInformation_4_Text, ncts_AdditionalInformation_5_Code, ncts_AdditionalInformation_5_Text, ncts_AdditionalInformation_6_Code, ncts_AdditionalInformation_6_Text, ncts_AdditionalInformation_7_Code, ncts_AdditionalInformation_7_Text, ncts_AdditionalInformation_8_Code, ncts_AdditionalInformation_8_Text, ncts_AdditionalInformation_9_Code, ncts_AdditionalInformation_9_Text, ncts_AUTOIMPIndicator, ncts_Stammreferenz, ncts_ModeOfTransportAtTheBorder, ncts_Eroeffnung, ncts_Ankunft, ncts_Erledigung} rowtblDakosy_NCTSOut004Row.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOut004Row) Return rowtblDakosy_NCTSOut004Row End Function _ Public Function FindByncts_Id(ByVal ncts_Id As Integer) As tblDakosy_NCTSOut004Row Return CType(Me.Rows.Find(New Object() {ncts_Id}),tblDakosy_NCTSOut004Row) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOut004DataTable = CType(MyBase.Clone,tblDakosy_NCTSOut004DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOut004DataTable() End Function _ Friend Sub InitVars() Me.columnncts_Id = MyBase.Columns("ncts_Id") Me.columnncts_Status = MyBase.Columns("ncts_Status") Me.columnncts_Status_KEWILL_Equivalent = MyBase.Columns("ncts_Status_KEWILL_Equivalent") Me.columnncts_dyaArt = MyBase.Columns("ncts_dyaArt") Me.columnncts_dyaAnmID = MyBase.Columns("ncts_dyaAnmID") Me.columnncts_ANR = MyBase.Columns("ncts_ANR") Me.columnncts_MRN = MyBase.Columns("ncts_MRN") Me.columnncts_Erstellung = MyBase.Columns("ncts_Erstellung") Me.columnncts_Erstellung_SB = MyBase.Columns("ncts_Erstellung_SB") Me.columnncts_LetzteBearbeitung = MyBase.Columns("ncts_LetzteBearbeitung") Me.columnncts_LetzteBearbeitung_SB = MyBase.Columns("ncts_LetzteBearbeitung_SB") Me.columnncts_firma = MyBase.Columns("ncts_firma") Me.columnncts_niederlassung = MyBase.Columns("ncts_niederlassung") Me.columnncts_Gestellt = MyBase.Columns("ncts_Gestellt") Me.columnncts_GestelltAm = MyBase.Columns("ncts_GestelltAm") Me.columnncts_Trans_Partner = MyBase.Columns("ncts_Trans_Partner") Me.columnncts_Trans_Div1 = MyBase.Columns("ncts_Trans_Div1") Me.columnncts_Trans_Div2 = MyBase.Columns("ncts_Trans_Div2") Me.columnncts_Trans_Div3 = MyBase.Columns("ncts_Trans_Div3") Me.columnncts_Trans_Referenz = MyBase.Columns("ncts_Trans_Referenz") Me.columnncts_Trans_DatumZeit = MyBase.Columns("ncts_Trans_DatumZeit") Me.columnncts_Trans_Version = MyBase.Columns("ncts_Trans_Version") Me.columnncts_NachrichtenSenderTIN = MyBase.Columns("ncts_NachrichtenSenderTIN") Me.columnncts_NachrichtenSenderNLNR = MyBase.Columns("ncts_NachrichtenSenderNLNR") Me.columnncts_NachrichtenempfaengerDST = MyBase.Columns("ncts_NachrichtenempfaengerDST") Me.columnncts_ObjectName = MyBase.Columns("ncts_ObjectName") Me.columnncts_ObjectAlias = MyBase.Columns("ncts_ObjectAlias") Me.columnncts_BezugsnummerVorblendung = MyBase.Columns("ncts_BezugsnummerVorblendung") Me.columnncts_Bearbeiter = MyBase.Columns("ncts_Bearbeiter") Me.columnncts_CountryOfDispatch = MyBase.Columns("ncts_CountryOfDispatch") Me.columnncts_CountryOfDestination = MyBase.Columns("ncts_CountryOfDestination") Me.columnncts_Declarationtype = MyBase.Columns("ncts_Declarationtype") Me.columnncts_TIRCarnetNumber = MyBase.Columns("ncts_TIRCarnetNumber") Me.columnncts_ReductedDatasetIndicator = MyBase.Columns("ncts_ReductedDatasetIndicator") Me.columnncts_LocationOfGoods_TypeofLocation = MyBase.Columns("ncts_LocationOfGoods_TypeofLocation") Me.columnncts_LocationOfGoods_QualifierIdenfitication = MyBase.Columns("ncts_LocationOfGoods_QualifierIdenfitication") Me.columnncts_LocationOfGoods_AdditionalIdentifier = MyBase.Columns("ncts_LocationOfGoods_AdditionalIdentifier") Me.columnncts_LocationOfGoods_ContactPerson_Name = MyBase.Columns("ncts_LocationOfGoods_ContactPerson_Name") Me.columnncts_LocationOfGoods_ContactPerson_PhoneNumber = MyBase.Columns("ncts_LocationOfGoods_ContactPerson_PhoneNumber") Me.columnncts_LocationOfGoods_ContactPerson_EMailAddress = MyBase.Columns("ncts_LocationOfGoods_ContactPerson_EMailAddress") Me.columnncts_CustomsOfficeOfTransitDeclared_1_RefNumber = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_1_RefNumber") Me.columnncts_CustomsOfficeOfTransitDeclared_2_RefNumber = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_2_RefNumber") Me.columnncts_CustomsOfficeOfTransitDeclared_3_RefNumber = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_3_RefNumber") Me.columnncts_CustomsOfficeOfTransitDeclared_4_RefNumber = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_4_RefNumber") Me.columnncts_CustomsOfficeOfTransitDeclared_5_RefNumber = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_5_RefNumber") Me.columnncts_CustomsOfficeOfTransitDeclared_6_RefNumber = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_6_RefNumber") Me.columnncts_CustomsOfficeOfTransitDeclared_7_RefNumber = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_7_RefNumber") Me.columnncts_CustomsOfficeOfTransitDeclared_8_RefNumber = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_8_RefNumber") Me.columnncts_CustomsOfficeOfTransitDeclared_9_RefNumber = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_9_RefNumber") Me.columnncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime") Me.columnncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime") Me.columnncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime") Me.columnncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime") Me.columnncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime") Me.columnncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime") Me.columnncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime") Me.columnncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime") Me.columnncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime = MyBase.Columns("ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime") Me.columnncts_CustomsOfficeOfDestinationDeclared = MyBase.Columns("ncts_CustomsOfficeOfDestinationDeclared") Me.columnncts_CustomsOfficeOfDeparture = MyBase.Columns("ncts_CustomsOfficeOfDeparture") Me.columnncts_CustomsOfficeOfExitForTransitDeclared = MyBase.Columns("ncts_CustomsOfficeOfExitForTransitDeclared") Me.columnncts_LimitDate = MyBase.Columns("ncts_LimitDate") Me.columnncts_TransitDeclarationType = MyBase.Columns("ncts_TransitDeclarationType") Me.columnncts_GrossMass = MyBase.Columns("ncts_GrossMass") Me.columnncts_BindingItinerary = MyBase.Columns("ncts_BindingItinerary") Me.columnncts_ContainerIndicator = MyBase.Columns("ncts_ContainerIndicator") Me.columnncts_InlandModeOfTransport = MyBase.Columns("ncts_InlandModeOfTransport") Me.columnncts_DepartureTransportMeans_1_TypeOfIdentification = MyBase.Columns("ncts_DepartureTransportMeans_1_TypeOfIdentification") Me.columnncts_DepartureTransportMeans_1_IdentificationNumber = MyBase.Columns("ncts_DepartureTransportMeans_1_IdentificationNumber") Me.columnncts_DepartureTransportMeans_1_Nationality = MyBase.Columns("ncts_DepartureTransportMeans_1_Nationality") Me.columnncts_DepartureTransportMeans_2_TypeOfIdentification = MyBase.Columns("ncts_DepartureTransportMeans_2_TypeOfIdentification") Me.columnncts_DepartureTransportMeans_2_IdentificationNumber = MyBase.Columns("ncts_DepartureTransportMeans_2_IdentificationNumber") Me.columnncts_DepartureTransportMeans_2_Nationality = MyBase.Columns("ncts_DepartureTransportMeans_2_Nationality") Me.columnncts_DepartureTransportMeans_3_TypeOfIdentification = MyBase.Columns("ncts_DepartureTransportMeans_3_TypeOfIdentification") Me.columnncts_DepartureTransportMeans_3_IdentificationNumber = MyBase.Columns("ncts_DepartureTransportMeans_3_IdentificationNumber") Me.columnncts_DepartureTransportMeans_3_Nationality = MyBase.Columns("ncts_DepartureTransportMeans_3_Nationality") Me.columnncts_DepartureTransportMeans_4_TypeOfIdentification = MyBase.Columns("ncts_DepartureTransportMeans_4_TypeOfIdentification") Me.columnncts_DepartureTransportMeans_4_IdentificationNumber = MyBase.Columns("ncts_DepartureTransportMeans_4_IdentificationNumber") Me.columnncts_DepartureTransportMeans_4_Nationality = MyBase.Columns("ncts_DepartureTransportMeans_4_Nationality") Me.columnncts_ActiveBorderTransportMeans_1_TypeOfIdentification = MyBase.Columns("ncts_ActiveBorderTransportMeans_1_TypeOfIdentification") Me.columnncts_ActiveBorderTransportMeans_1_IdentificationNumber = MyBase.Columns("ncts_ActiveBorderTransportMeans_1_IdentificationNumber") Me.columnncts_ActiveBorderTransportMeans_1_Nationality = MyBase.Columns("ncts_ActiveBorderTransportMeans_1_Nationality") Me.columnncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber = MyBase.Columns("ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber") Me.columnncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared = MyBase.Columns("ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared") Me.columnncts_ActiveBorderTransportMeans_2_TypeOfIdentification = MyBase.Columns("ncts_ActiveBorderTransportMeans_2_TypeOfIdentification") Me.columnncts_ActiveBorderTransportMeans_2_IdentificationNumber = MyBase.Columns("ncts_ActiveBorderTransportMeans_2_IdentificationNumber") Me.columnncts_ActiveBorderTransportMeans_2_Nationality = MyBase.Columns("ncts_ActiveBorderTransportMeans_2_Nationality") Me.columnncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber = MyBase.Columns("ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber") Me.columnncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared = MyBase.Columns("ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared") Me.columnncts_ActiveBorderTransportMeans_3_TypeOfIdentification = MyBase.Columns("ncts_ActiveBorderTransportMeans_3_TypeOfIdentification") Me.columnncts_ActiveBorderTransportMeans_3_IdentificationNumber = MyBase.Columns("ncts_ActiveBorderTransportMeans_3_IdentificationNumber") Me.columnncts_ActiveBorderTransportMeans_3_Nationality = MyBase.Columns("ncts_ActiveBorderTransportMeans_3_Nationality") Me.columnncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber = MyBase.Columns("ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber") Me.columnncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared = MyBase.Columns("ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared") Me.columnncts_ActiveBorderTransportMeans_4_TypeOfIdentification = MyBase.Columns("ncts_ActiveBorderTransportMeans_4_TypeOfIdentification") Me.columnncts_ActiveBorderTransportMeans_4_IdentificationNumber = MyBase.Columns("ncts_ActiveBorderTransportMeans_4_IdentificationNumber") Me.columnncts_ActiveBorderTransportMeans_4_Nationality = MyBase.Columns("ncts_ActiveBorderTransportMeans_4_Nationality") Me.columnncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber = MyBase.Columns("ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber") Me.columnncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared = MyBase.Columns("ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared") Me.columnncts_Authorisation_1_Type = MyBase.Columns("ncts_Authorisation_1_Type") Me.columnncts_Authorisation_1_ReferenceNumber = MyBase.Columns("ncts_Authorisation_1_ReferenceNumber") Me.columnncts_Authorisation_2_Type = MyBase.Columns("ncts_Authorisation_2_Type") Me.columnncts_Authorisation_2_ReferenceNumber = MyBase.Columns("ncts_Authorisation_2_ReferenceNumber") Me.columnncts_Authorisation_3_Type = MyBase.Columns("ncts_Authorisation_3_Type") Me.columnncts_Authorisation_3_ReferenceNumber = MyBase.Columns("ncts_Authorisation_3_ReferenceNumber") Me.columnncts_Authorisation_4_Type = MyBase.Columns("ncts_Authorisation_4_Type") Me.columnncts_Authorisation_4_ReferenceNumber = MyBase.Columns("ncts_Authorisation_4_ReferenceNumber") Me.columnncts_Authorisation_5_Type = MyBase.Columns("ncts_Authorisation_5_Type") Me.columnncts_Authorisation_5_ReferenceNumber = MyBase.Columns("ncts_Authorisation_5_ReferenceNumber") Me.columnncts_Authorisation_6_Type = MyBase.Columns("ncts_Authorisation_6_Type") Me.columnncts_Authorisation_6_ReferenceNumber = MyBase.Columns("ncts_Authorisation_6_ReferenceNumber") Me.columnncts_Authorisation_7_Type = MyBase.Columns("ncts_Authorisation_7_Type") Me.columnncts_Authorisation_7_ReferenceNumber = MyBase.Columns("ncts_Authorisation_7_ReferenceNumber") Me.columnncts_Authorisation_8_Type = MyBase.Columns("ncts_Authorisation_8_Type") Me.columnncts_Authorisation_8_ReferenceNumber = MyBase.Columns("ncts_Authorisation_8_ReferenceNumber") Me.columnncts_Authorisation_9_Type = MyBase.Columns("ncts_Authorisation_9_Type") Me.columnncts_Authorisation_9_ReferenceNumber = MyBase.Columns("ncts_Authorisation_9_ReferenceNumber") Me.columnncts_Consignor_AdressCode = MyBase.Columns("ncts_Consignor_AdressCode") Me.columnncts_Consignor_IdentificationNumber = MyBase.Columns("ncts_Consignor_IdentificationNumber") Me.columnncts_Consignor_SubsidiaryNumber = MyBase.Columns("ncts_Consignor_SubsidiaryNumber") Me.columnncts_Consignor_Name = MyBase.Columns("ncts_Consignor_Name") Me.columnncts_Consignor_StreetNumber = MyBase.Columns("ncts_Consignor_StreetNumber") Me.columnncts_Consignor_City = MyBase.Columns("ncts_Consignor_City") Me.columnncts_Consignor_Postcode = MyBase.Columns("ncts_Consignor_Postcode") Me.columnncts_Consignor_Country = MyBase.Columns("ncts_Consignor_Country") Me.columnncts_Consignor_ContactPerson_Name = MyBase.Columns("ncts_Consignor_ContactPerson_Name") Me.columnncts_Consignor_ContactPerson_PhoneNumber = MyBase.Columns("ncts_Consignor_ContactPerson_PhoneNumber") Me.columnncts_Consignor_ContactPerson_EMailAddress = MyBase.Columns("ncts_Consignor_ContactPerson_EMailAddress") Me.columnncts_Consignee_AdressCode = MyBase.Columns("ncts_Consignee_AdressCode") Me.columnncts_Consignee_IdentificationNumber = MyBase.Columns("ncts_Consignee_IdentificationNumber") Me.columnncts_Consignee_SubsidiaryNumber = MyBase.Columns("ncts_Consignee_SubsidiaryNumber") Me.columnncts_Consignee_Name = MyBase.Columns("ncts_Consignee_Name") Me.columnncts_Consignee_StreetNumber = MyBase.Columns("ncts_Consignee_StreetNumber") Me.columnncts_Consignee_City = MyBase.Columns("ncts_Consignee_City") Me.columnncts_Consignee_Postcode = MyBase.Columns("ncts_Consignee_Postcode") Me.columnncts_Consignee_Country = MyBase.Columns("ncts_Consignee_Country") Me.columnncts_Consignee_ContactPerson_Name = MyBase.Columns("ncts_Consignee_ContactPerson_Name") Me.columnncts_Consignee_ContactPerson_PhoneNumber = MyBase.Columns("ncts_Consignee_ContactPerson_PhoneNumber") Me.columnncts_Consignee_ContactPerson_EMailAddress = MyBase.Columns("ncts_Consignee_ContactPerson_EMailAddress") Me.columnncts_HolderOfTheTransitProcedure_AdressCode = MyBase.Columns("ncts_HolderOfTheTransitProcedure_AdressCode") Me.columnncts_HolderOfTheTransitProcedure_IdentificationNumber = MyBase.Columns("ncts_HolderOfTheTransitProcedure_IdentificationNumber") Me.columnncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber = MyBase.Columns("ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber") Me.columnncts_HolderOfTheTransitProcedure_Name = MyBase.Columns("ncts_HolderOfTheTransitProcedure_Name") Me.columnncts_HolderOfTheTransitProcedure_StreetNumber = MyBase.Columns("ncts_HolderOfTheTransitProcedure_StreetNumber") Me.columnncts_HolderOfTheTransitProcedure_City = MyBase.Columns("ncts_HolderOfTheTransitProcedure_City") Me.columnncts_HolderOfTheTransitProcedure_Postcode = MyBase.Columns("ncts_HolderOfTheTransitProcedure_Postcode") Me.columnncts_HolderOfTheTransitProcedure_Country = MyBase.Columns("ncts_HolderOfTheTransitProcedure_Country") Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_Name = MyBase.Columns("ncts_HolderOfTheTransitProcedure_ContactPerson_Name") Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber = MyBase.Columns("ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber") Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress = MyBase.Columns("ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress") Me.columnncts_Representative_AdressCode = MyBase.Columns("ncts_Representative_AdressCode") Me.columnncts_Representative_IdentificationNumber = MyBase.Columns("ncts_Representative_IdentificationNumber") Me.columnncts_Representative_ContactPerson_Name = MyBase.Columns("ncts_Representative_ContactPerson_Name") Me.columnncts_Representative_ContactPerson_PhoneNumber = MyBase.Columns("ncts_Representative_ContactPerson_PhoneNumber") Me.columnncts_Representative_ContactPerson_EMailAddress = MyBase.Columns("ncts_Representative_ContactPerson_EMailAddress") Me.columnncts_AdditionalSupplyChainActor_1_Role = MyBase.Columns("ncts_AdditionalSupplyChainActor_1_Role") Me.columnncts_AdditionalSupplyChainActor_1_IdentificationNumber = MyBase.Columns("ncts_AdditionalSupplyChainActor_1_IdentificationNumber") Me.columnncts_AdditionalSupplyChainActor_2_Role = MyBase.Columns("ncts_AdditionalSupplyChainActor_2_Role") Me.columnncts_AdditionalSupplyChainActor_2_IdentificationNumber = MyBase.Columns("ncts_AdditionalSupplyChainActor_2_IdentificationNumber") Me.columnncts_AdditionalSupplyChainActor_3_Role = MyBase.Columns("ncts_AdditionalSupplyChainActor_3_Role") Me.columnncts_AdditionalSupplyChainActor_3_IdentificationNumber = MyBase.Columns("ncts_AdditionalSupplyChainActor_3_IdentificationNumber") Me.columnncts_AdditionalSupplyChainActor_4_Role = MyBase.Columns("ncts_AdditionalSupplyChainActor_4_Role") Me.columnncts_AdditionalSupplyChainActor_4_IdentificationNumber = MyBase.Columns("ncts_AdditionalSupplyChainActor_4_IdentificationNumber") Me.columnncts_AdditionalSupplyChainActor_5_Role = MyBase.Columns("ncts_AdditionalSupplyChainActor_5_Role") Me.columnncts_AdditionalSupplyChainActor_5_IdentificationNumber = MyBase.Columns("ncts_AdditionalSupplyChainActor_5_IdentificationNumber") Me.columnncts_AdditionalSupplyChainActor_6_Role = MyBase.Columns("ncts_AdditionalSupplyChainActor_6_Role") Me.columnncts_AdditionalSupplyChainActor_6_IdentificationNumber = MyBase.Columns("ncts_AdditionalSupplyChainActor_6_IdentificationNumber") Me.columnncts_AdditionalSupplyChainActor_7_Role = MyBase.Columns("ncts_AdditionalSupplyChainActor_7_Role") Me.columnncts_AdditionalSupplyChainActor_7_IdentificationNumber = MyBase.Columns("ncts_AdditionalSupplyChainActor_7_IdentificationNumber") Me.columnncts_AdditionalSupplyChainActor_8_Role = MyBase.Columns("ncts_AdditionalSupplyChainActor_8_Role") Me.columnncts_AdditionalSupplyChainActor_8_IdentificationNumber = MyBase.Columns("ncts_AdditionalSupplyChainActor_8_IdentificationNumber") Me.columnncts_AdditionalSupplyChainActor_9_Role = MyBase.Columns("ncts_AdditionalSupplyChainActor_9_Role") Me.columnncts_AdditionalSupplyChainActor_9_IdentificationNumber = MyBase.Columns("ncts_AdditionalSupplyChainActor_9_IdentificationNumber") Me.columnncts_Security = MyBase.Columns("ncts_Security") Me.columnncts_ReferenceNumberUCR = MyBase.Columns("ncts_ReferenceNumberUCR") Me.columnncts_SpecificCircomstanceIndicator = MyBase.Columns("ncts_SpecificCircomstanceIndicator") Me.columnncts_PlaceOfLoading_Location = MyBase.Columns("ncts_PlaceOfLoading_Location") Me.columnncts_PlaceOfLoading_Country = MyBase.Columns("ncts_PlaceOfLoading_Country") Me.columnncts_PlaceOfUnLoading_Location = MyBase.Columns("ncts_PlaceOfUnLoading_Location") Me.columnncts_PlaceOfUnLoading_Country = MyBase.Columns("ncts_PlaceOfUnLoading_Country") Me.columnncts_TransportCharges = MyBase.Columns("ncts_TransportCharges") Me.columnncts_CountryOfRoutingOfConsignment_1 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_1") Me.columnncts_CountryOfRoutingOfConsignment_2 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_2") Me.columnncts_CountryOfRoutingOfConsignment_3 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_3") Me.columnncts_CountryOfRoutingOfConsignment_4 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_4") Me.columnncts_CountryOfRoutingOfConsignment_5 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_5") Me.columnncts_CountryOfRoutingOfConsignment_6 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_6") Me.columnncts_CountryOfRoutingOfConsignment_7 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_7") Me.columnncts_CountryOfRoutingOfConsignment_8 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_8") Me.columnncts_CountryOfRoutingOfConsignment_9 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_9") Me.columnncts_CountryOfRoutingOfConsignment_10 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_10") Me.columnncts_CountryOfRoutingOfConsignment_11 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_11") Me.columnncts_CountryOfRoutingOfConsignment_12 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_12") Me.columnncts_CountryOfRoutingOfConsignment_13 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_13") Me.columnncts_CountryOfRoutingOfConsignment_14 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_14") Me.columnncts_CountryOfRoutingOfConsignment_15 = MyBase.Columns("ncts_CountryOfRoutingOfConsignment_15") Me.columnncts_Carrier_AdressCode = MyBase.Columns("ncts_Carrier_AdressCode") Me.columnncts_Carrier_IdentificationNumber = MyBase.Columns("ncts_Carrier_IdentificationNumber") Me.columnncts_Carrier_SubsidiaryNumber = MyBase.Columns("ncts_Carrier_SubsidiaryNumber") Me.columnncts_Carrier_ContactPerson_Name = MyBase.Columns("ncts_Carrier_ContactPerson_Name") Me.columnncts_Carrier_ContactPerson_PhoneNumber = MyBase.Columns("ncts_Carrier_ContactPerson_PhoneNumber") Me.columnncts_Carrier_ContactPerson_EMailAddress = MyBase.Columns("ncts_Carrier_ContactPerson_EMailAddress") Me.columnncts_SupportingDocument_1_Type = MyBase.Columns("ncts_SupportingDocument_1_Type") Me.columnncts_SupportingDocument_1_ReferenceNumber = MyBase.Columns("ncts_SupportingDocument_1_ReferenceNumber") Me.columnncts_SupportingDocument_1_DocumentLineItemNumber = MyBase.Columns("ncts_SupportingDocument_1_DocumentLineItemNumber") Me.columnncts_SupportingDocument_1_ComplementOfInformation = MyBase.Columns("ncts_SupportingDocument_1_ComplementOfInformation") Me.columnncts_SupportingDocument_2_Type = MyBase.Columns("ncts_SupportingDocument_2_Type") Me.columnncts_SupportingDocument_2_ReferenceNumber = MyBase.Columns("ncts_SupportingDocument_2_ReferenceNumber") Me.columnncts_SupportingDocument_2_DocumentLineItemNumber = MyBase.Columns("ncts_SupportingDocument_2_DocumentLineItemNumber") Me.columnncts_SupportingDocument_2_ComplementOfInformation = MyBase.Columns("ncts_SupportingDocument_2_ComplementOfInformation") Me.columnncts_SupportingDocument_3_Type = MyBase.Columns("ncts_SupportingDocument_3_Type") Me.columnncts_SupportingDocument_3_ReferenceNumber = MyBase.Columns("ncts_SupportingDocument_3_ReferenceNumber") Me.columnncts_SupportingDocument_3_DocumentLineItemNumber = MyBase.Columns("ncts_SupportingDocument_3_DocumentLineItemNumber") Me.columnncts_SupportingDocument_3_ComplementOfInformation = MyBase.Columns("ncts_SupportingDocument_3_ComplementOfInformation") Me.columnncts_SupportingDocument_4_Type = MyBase.Columns("ncts_SupportingDocument_4_Type") Me.columnncts_SupportingDocument_4_ReferenceNumber = MyBase.Columns("ncts_SupportingDocument_4_ReferenceNumber") Me.columnncts_SupportingDocument_4_DocumentLineItemNumber = MyBase.Columns("ncts_SupportingDocument_4_DocumentLineItemNumber") Me.columnncts_SupportingDocument_4_ComplementOfInformation = MyBase.Columns("ncts_SupportingDocument_4_ComplementOfInformation") Me.columnncts_SupportingDocument_5_Type = MyBase.Columns("ncts_SupportingDocument_5_Type") Me.columnncts_SupportingDocument_5_ReferenceNumber = MyBase.Columns("ncts_SupportingDocument_5_ReferenceNumber") Me.columnncts_SupportingDocument_5_DocumentLineItemNumber = MyBase.Columns("ncts_SupportingDocument_5_DocumentLineItemNumber") Me.columnncts_SupportingDocument_5_ComplementOfInformation = MyBase.Columns("ncts_SupportingDocument_5_ComplementOfInformation") Me.columnncts_SupportingDocument_6_Type = MyBase.Columns("ncts_SupportingDocument_6_Type") Me.columnncts_SupportingDocument_6_ReferenceNumber = MyBase.Columns("ncts_SupportingDocument_6_ReferenceNumber") Me.columnncts_SupportingDocument_6_DocumentLineItemNumber = MyBase.Columns("ncts_SupportingDocument_6_DocumentLineItemNumber") Me.columnncts_SupportingDocument_6_ComplementOfInformation = MyBase.Columns("ncts_SupportingDocument_6_ComplementOfInformation") Me.columnncts_SupportingDocument_7_Type = MyBase.Columns("ncts_SupportingDocument_7_Type") Me.columnncts_SupportingDocument_7_ReferenceNumber = MyBase.Columns("ncts_SupportingDocument_7_ReferenceNumber") Me.columnncts_SupportingDocument_7_DocumentLineItemNumber = MyBase.Columns("ncts_SupportingDocument_7_DocumentLineItemNumber") Me.columnncts_SupportingDocument_7_ComplementOfInformation = MyBase.Columns("ncts_SupportingDocument_7_ComplementOfInformation") Me.columnncts_SupportingDocument_8_Type = MyBase.Columns("ncts_SupportingDocument_8_Type") Me.columnncts_SupportingDocument_8_ReferenceNumber = MyBase.Columns("ncts_SupportingDocument_8_ReferenceNumber") Me.columnncts_SupportingDocument_8_DocumentLineItemNumber = MyBase.Columns("ncts_SupportingDocument_8_DocumentLineItemNumber") Me.columnncts_SupportingDocument_8_ComplementOfInformation = MyBase.Columns("ncts_SupportingDocument_8_ComplementOfInformation") Me.columnncts_SupportingDocument_9_Type = MyBase.Columns("ncts_SupportingDocument_9_Type") Me.columnncts_SupportingDocument_9_ReferenceNumber = MyBase.Columns("ncts_SupportingDocument_9_ReferenceNumber") Me.columnncts_SupportingDocument_9_DocumentLineItemNumber = MyBase.Columns("ncts_SupportingDocument_9_DocumentLineItemNumber") Me.columnncts_SupportingDocument_9_ComplementOfInformation = MyBase.Columns("ncts_SupportingDocument_9_ComplementOfInformation") Me.columnncts_PreviousDocument_1_Type = MyBase.Columns("ncts_PreviousDocument_1_Type") Me.columnncts_PreviousDocument_1_ReferenceNumber = MyBase.Columns("ncts_PreviousDocument_1_ReferenceNumber") Me.columnncts_PreviousDocument_1_ComplementOfInformation = MyBase.Columns("ncts_PreviousDocument_1_ComplementOfInformation") Me.columnncts_PreviousDocument_2_Type = MyBase.Columns("ncts_PreviousDocument_2_Type") Me.columnncts_PreviousDocument_2_ReferenceNumber = MyBase.Columns("ncts_PreviousDocument_2_ReferenceNumber") Me.columnncts_PreviousDocument_2_ComplementOfInformation = MyBase.Columns("ncts_PreviousDocument_2_ComplementOfInformation") Me.columnncts_PreviousDocument_3_Type = MyBase.Columns("ncts_PreviousDocument_3_Type") Me.columnncts_PreviousDocument_3_ReferenceNumber = MyBase.Columns("ncts_PreviousDocument_3_ReferenceNumber") Me.columnncts_PreviousDocument_3_ComplementOfInformation = MyBase.Columns("ncts_PreviousDocument_3_ComplementOfInformation") Me.columnncts_PreviousDocument_4_Type = MyBase.Columns("ncts_PreviousDocument_4_Type") Me.columnncts_PreviousDocument_4_ReferenceNumber = MyBase.Columns("ncts_PreviousDocument_4_ReferenceNumber") Me.columnncts_PreviousDocument_4_ComplementOfInformation = MyBase.Columns("ncts_PreviousDocument_4_ComplementOfInformation") Me.columnncts_PreviousDocument_5_Type = MyBase.Columns("ncts_PreviousDocument_5_Type") Me.columnncts_PreviousDocument_5_ReferenceNumber = MyBase.Columns("ncts_PreviousDocument_5_ReferenceNumber") Me.columnncts_PreviousDocument_5_ComplementOfInformation = MyBase.Columns("ncts_PreviousDocument_5_ComplementOfInformation") Me.columnncts_PreviousDocument_6_Type = MyBase.Columns("ncts_PreviousDocument_6_Type") Me.columnncts_PreviousDocument_6_ReferenceNumber = MyBase.Columns("ncts_PreviousDocument_6_ReferenceNumber") Me.columnncts_PreviousDocument_6_ComplementOfInformation = MyBase.Columns("ncts_PreviousDocument_6_ComplementOfInformation") Me.columnncts_PreviousDocument_7_Type = MyBase.Columns("ncts_PreviousDocument_7_Type") Me.columnncts_PreviousDocument_7_ReferenceNumber = MyBase.Columns("ncts_PreviousDocument_7_ReferenceNumber") Me.columnncts_PreviousDocument_7_ComplementOfInformation = MyBase.Columns("ncts_PreviousDocument_7_ComplementOfInformation") Me.columnncts_PreviousDocument_8_Type = MyBase.Columns("ncts_PreviousDocument_8_Type") Me.columnncts_PreviousDocument_8_ReferenceNumber = MyBase.Columns("ncts_PreviousDocument_8_ReferenceNumber") Me.columnncts_PreviousDocument_8_ComplementOfInformation = MyBase.Columns("ncts_PreviousDocument_8_ComplementOfInformation") Me.columnncts_PreviousDocument_9_Type = MyBase.Columns("ncts_PreviousDocument_9_Type") Me.columnncts_PreviousDocument_9_ReferenceNumber = MyBase.Columns("ncts_PreviousDocument_9_ReferenceNumber") Me.columnncts_PreviousDocument_9_ComplementOfInformation = MyBase.Columns("ncts_PreviousDocument_9_ComplementOfInformation") Me.columnncts_TransportDocument_1_Type = MyBase.Columns("ncts_TransportDocument_1_Type") Me.columnncts_TransportDocument_1_ReferenceNumber = MyBase.Columns("ncts_TransportDocument_1_ReferenceNumber") Me.columnncts_TransportDocument_2_Type = MyBase.Columns("ncts_TransportDocument_2_Type") Me.columnncts_TransportDocument_2_ReferenceNumber = MyBase.Columns("ncts_TransportDocument_2_ReferenceNumber") Me.columnncts_TransportDocument_3_Type = MyBase.Columns("ncts_TransportDocument_3_Type") Me.columnncts_TransportDocument_3_ReferenceNumber = MyBase.Columns("ncts_TransportDocument_3_ReferenceNumber") Me.columnncts_TransportDocument_4_Type = MyBase.Columns("ncts_TransportDocument_4_Type") Me.columnncts_TransportDocument_4_ReferenceNumber = MyBase.Columns("ncts_TransportDocument_4_ReferenceNumber") Me.columnncts_TransportDocument_5_Type = MyBase.Columns("ncts_TransportDocument_5_Type") Me.columnncts_TransportDocument_5_ReferenceNumber = MyBase.Columns("ncts_TransportDocument_5_ReferenceNumber") Me.columnncts_TransportDocument_6_Type = MyBase.Columns("ncts_TransportDocument_6_Type") Me.columnncts_TransportDocument_6_ReferenceNumber = MyBase.Columns("ncts_TransportDocument_6_ReferenceNumber") Me.columnncts_TransportDocument_7_Type = MyBase.Columns("ncts_TransportDocument_7_Type") Me.columnncts_TransportDocument_7_ReferenceNumber = MyBase.Columns("ncts_TransportDocument_7_ReferenceNumber") Me.columnncts_TransportDocument_8_Type = MyBase.Columns("ncts_TransportDocument_8_Type") Me.columnncts_TransportDocument_8_ReferenceNumber = MyBase.Columns("ncts_TransportDocument_8_ReferenceNumber") Me.columnncts_TransportDocument_9_Type = MyBase.Columns("ncts_TransportDocument_9_Type") Me.columnncts_TransportDocument_9_ReferenceNumber = MyBase.Columns("ncts_TransportDocument_9_ReferenceNumber") Me.columnncts_AdditionalReference_1_Type = MyBase.Columns("ncts_AdditionalReference_1_Type") Me.columnncts_AdditionalReference_1_ReferenceNumber = MyBase.Columns("ncts_AdditionalReference_1_ReferenceNumber") Me.columnncts_AdditionalReference_2_Type = MyBase.Columns("ncts_AdditionalReference_2_Type") Me.columnncts_AdditionalReference_2_ReferenceNumber = MyBase.Columns("ncts_AdditionalReference_2_ReferenceNumber") Me.columnncts_AdditionalReference_3_Type = MyBase.Columns("ncts_AdditionalReference_3_Type") Me.columnncts_AdditionalReference_3_ReferenceNumber = MyBase.Columns("ncts_AdditionalReference_3_ReferenceNumber") Me.columnncts_AdditionalReference_4_Type = MyBase.Columns("ncts_AdditionalReference_4_Type") Me.columnncts_AdditionalReference_4_ReferenceNumber = MyBase.Columns("ncts_AdditionalReference_4_ReferenceNumber") Me.columnncts_AdditionalReference_5_Type = MyBase.Columns("ncts_AdditionalReference_5_Type") Me.columnncts_AdditionalReference_5_ReferenceNumber = MyBase.Columns("ncts_AdditionalReference_5_ReferenceNumber") Me.columnncts_AdditionalReference_6_Type = MyBase.Columns("ncts_AdditionalReference_6_Type") Me.columnncts_AdditionalReference_6_ReferenceNumber = MyBase.Columns("ncts_AdditionalReference_6_ReferenceNumber") Me.columnncts_AdditionalReference_7_Type = MyBase.Columns("ncts_AdditionalReference_7_Type") Me.columnncts_AdditionalReference_7_ReferenceNumber = MyBase.Columns("ncts_AdditionalReference_7_ReferenceNumber") Me.columnncts_AdditionalReference_8_Type = MyBase.Columns("ncts_AdditionalReference_8_Type") Me.columnncts_AdditionalReference_8_ReferenceNumber = MyBase.Columns("ncts_AdditionalReference_8_ReferenceNumber") Me.columnncts_AdditionalReference_9_Type = MyBase.Columns("ncts_AdditionalReference_9_Type") Me.columnncts_AdditionalReference_9_ReferenceNumber = MyBase.Columns("ncts_AdditionalReference_9_ReferenceNumber") Me.columnncts_AdditionalInformation_1_Code = MyBase.Columns("ncts_AdditionalInformation_1_Code") Me.columnncts_AdditionalInformation_1_Text = MyBase.Columns("ncts_AdditionalInformation_1_Text") Me.columnncts_AdditionalInformation_2_Code = MyBase.Columns("ncts_AdditionalInformation_2_Code") Me.columnncts_AdditionalInformation_2_Text = MyBase.Columns("ncts_AdditionalInformation_2_Text") Me.columnncts_AdditionalInformation_3_Code = MyBase.Columns("ncts_AdditionalInformation_3_Code") Me.columnncts_AdditionalInformation_3_Text = MyBase.Columns("ncts_AdditionalInformation_3_Text") Me.columnncts_AdditionalInformation_4_Code = MyBase.Columns("ncts_AdditionalInformation_4_Code") Me.columnncts_AdditionalInformation_4_Text = MyBase.Columns("ncts_AdditionalInformation_4_Text") Me.columnncts_AdditionalInformation_5_Code = MyBase.Columns("ncts_AdditionalInformation_5_Code") Me.columnncts_AdditionalInformation_5_Text = MyBase.Columns("ncts_AdditionalInformation_5_Text") Me.columnncts_AdditionalInformation_6_Code = MyBase.Columns("ncts_AdditionalInformation_6_Code") Me.columnncts_AdditionalInformation_6_Text = MyBase.Columns("ncts_AdditionalInformation_6_Text") Me.columnncts_AdditionalInformation_7_Code = MyBase.Columns("ncts_AdditionalInformation_7_Code") Me.columnncts_AdditionalInformation_7_Text = MyBase.Columns("ncts_AdditionalInformation_7_Text") Me.columnncts_AdditionalInformation_8_Code = MyBase.Columns("ncts_AdditionalInformation_8_Code") Me.columnncts_AdditionalInformation_8_Text = MyBase.Columns("ncts_AdditionalInformation_8_Text") Me.columnncts_AdditionalInformation_9_Code = MyBase.Columns("ncts_AdditionalInformation_9_Code") Me.columnncts_AdditionalInformation_9_Text = MyBase.Columns("ncts_AdditionalInformation_9_Text") Me.columnncts_AUTOIMPIndicator = MyBase.Columns("ncts_AUTOIMPIndicator") Me.columnncts_Stammreferenz = MyBase.Columns("ncts_Stammreferenz") Me.columnncts_ModeOfTransportAtTheBorder = MyBase.Columns("ncts_ModeOfTransportAtTheBorder") Me.columnncts_Eroeffnung = MyBase.Columns("ncts_Eroeffnung") Me.columnncts_Ankunft = MyBase.Columns("ncts_Ankunft") Me.columnncts_Erledigung = MyBase.Columns("ncts_Erledigung") End Sub _ Private Sub InitClass() Me.columnncts_Id = New Global.System.Data.DataColumn("ncts_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Id) Me.columnncts_Status = New Global.System.Data.DataColumn("ncts_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Status) Me.columnncts_Status_KEWILL_Equivalent = New Global.System.Data.DataColumn("ncts_Status_KEWILL_Equivalent", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Status_KEWILL_Equivalent) Me.columnncts_dyaArt = New Global.System.Data.DataColumn("ncts_dyaArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_dyaArt) Me.columnncts_dyaAnmID = New Global.System.Data.DataColumn("ncts_dyaAnmID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_dyaAnmID) Me.columnncts_ANR = New Global.System.Data.DataColumn("ncts_ANR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ANR) Me.columnncts_MRN = New Global.System.Data.DataColumn("ncts_MRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_MRN) Me.columnncts_Erstellung = New Global.System.Data.DataColumn("ncts_Erstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Erstellung) Me.columnncts_Erstellung_SB = New Global.System.Data.DataColumn("ncts_Erstellung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Erstellung_SB) Me.columnncts_LetzteBearbeitung = New Global.System.Data.DataColumn("ncts_LetzteBearbeitung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LetzteBearbeitung) Me.columnncts_LetzteBearbeitung_SB = New Global.System.Data.DataColumn("ncts_LetzteBearbeitung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LetzteBearbeitung_SB) Me.columnncts_firma = New Global.System.Data.DataColumn("ncts_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_firma) Me.columnncts_niederlassung = New Global.System.Data.DataColumn("ncts_niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_niederlassung) Me.columnncts_Gestellt = New Global.System.Data.DataColumn("ncts_Gestellt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Gestellt) Me.columnncts_GestelltAm = New Global.System.Data.DataColumn("ncts_GestelltAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_GestelltAm) Me.columnncts_Trans_Partner = New Global.System.Data.DataColumn("ncts_Trans_Partner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Partner) Me.columnncts_Trans_Div1 = New Global.System.Data.DataColumn("ncts_Trans_Div1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Div1) Me.columnncts_Trans_Div2 = New Global.System.Data.DataColumn("ncts_Trans_Div2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Div2) Me.columnncts_Trans_Div3 = New Global.System.Data.DataColumn("ncts_Trans_Div3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Div3) Me.columnncts_Trans_Referenz = New Global.System.Data.DataColumn("ncts_Trans_Referenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Referenz) Me.columnncts_Trans_DatumZeit = New Global.System.Data.DataColumn("ncts_Trans_DatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_DatumZeit) Me.columnncts_Trans_Version = New Global.System.Data.DataColumn("ncts_Trans_Version", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Version) Me.columnncts_NachrichtenSenderTIN = New Global.System.Data.DataColumn("ncts_NachrichtenSenderTIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_NachrichtenSenderTIN) Me.columnncts_NachrichtenSenderNLNR = New Global.System.Data.DataColumn("ncts_NachrichtenSenderNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_NachrichtenSenderNLNR) Me.columnncts_NachrichtenempfaengerDST = New Global.System.Data.DataColumn("ncts_NachrichtenempfaengerDST", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_NachrichtenempfaengerDST) Me.columnncts_ObjectName = New Global.System.Data.DataColumn("ncts_ObjectName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ObjectName) Me.columnncts_ObjectAlias = New Global.System.Data.DataColumn("ncts_ObjectAlias", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ObjectAlias) Me.columnncts_BezugsnummerVorblendung = New Global.System.Data.DataColumn("ncts_BezugsnummerVorblendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_BezugsnummerVorblendung) Me.columnncts_Bearbeiter = New Global.System.Data.DataColumn("ncts_Bearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Bearbeiter) Me.columnncts_CountryOfDispatch = New Global.System.Data.DataColumn("ncts_CountryOfDispatch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfDispatch) Me.columnncts_CountryOfDestination = New Global.System.Data.DataColumn("ncts_CountryOfDestination", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfDestination) Me.columnncts_Declarationtype = New Global.System.Data.DataColumn("ncts_Declarationtype", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Declarationtype) Me.columnncts_TIRCarnetNumber = New Global.System.Data.DataColumn("ncts_TIRCarnetNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TIRCarnetNumber) Me.columnncts_ReductedDatasetIndicator = New Global.System.Data.DataColumn("ncts_ReductedDatasetIndicator", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ReductedDatasetIndicator) Me.columnncts_LocationOfGoods_TypeofLocation = New Global.System.Data.DataColumn("ncts_LocationOfGoods_TypeofLocation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LocationOfGoods_TypeofLocation) Me.columnncts_LocationOfGoods_QualifierIdenfitication = New Global.System.Data.DataColumn("ncts_LocationOfGoods_QualifierIdenfitication", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LocationOfGoods_QualifierIdenfitication) Me.columnncts_LocationOfGoods_AdditionalIdentifier = New Global.System.Data.DataColumn("ncts_LocationOfGoods_AdditionalIdentifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LocationOfGoods_AdditionalIdentifier) Me.columnncts_LocationOfGoods_ContactPerson_Name = New Global.System.Data.DataColumn("ncts_LocationOfGoods_ContactPerson_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LocationOfGoods_ContactPerson_Name) Me.columnncts_LocationOfGoods_ContactPerson_PhoneNumber = New Global.System.Data.DataColumn("ncts_LocationOfGoods_ContactPerson_PhoneNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LocationOfGoods_ContactPerson_PhoneNumber) Me.columnncts_LocationOfGoods_ContactPerson_EMailAddress = New Global.System.Data.DataColumn("ncts_LocationOfGoods_ContactPerson_EMailAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LocationOfGoods_ContactPerson_EMailAddress) Me.columnncts_CustomsOfficeOfTransitDeclared_1_RefNumber = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_1_RefNumber) Me.columnncts_CustomsOfficeOfTransitDeclared_2_RefNumber = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_2_RefNumber) Me.columnncts_CustomsOfficeOfTransitDeclared_3_RefNumber = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_3_RefNumber) Me.columnncts_CustomsOfficeOfTransitDeclared_4_RefNumber = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_4_RefNumber) Me.columnncts_CustomsOfficeOfTransitDeclared_5_RefNumber = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_5_RefNumber) Me.columnncts_CustomsOfficeOfTransitDeclared_6_RefNumber = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_6_RefNumber) Me.columnncts_CustomsOfficeOfTransitDeclared_7_RefNumber = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_7_RefNumber) Me.columnncts_CustomsOfficeOfTransitDeclared_8_RefNumber = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_8_RefNumber) Me.columnncts_CustomsOfficeOfTransitDeclared_9_RefNumber = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_9_RefNumber) Me.columnncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime) Me.columnncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime) Me.columnncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime) Me.columnncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime) Me.columnncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime) Me.columnncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime) Me.columnncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime) Me.columnncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime) Me.columnncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime) Me.columnncts_CustomsOfficeOfDestinationDeclared = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfDestinationDeclared", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfDestinationDeclared) Me.columnncts_CustomsOfficeOfDeparture = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfDeparture", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfDeparture) Me.columnncts_CustomsOfficeOfExitForTransitDeclared = New Global.System.Data.DataColumn("ncts_CustomsOfficeOfExitForTransitDeclared", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CustomsOfficeOfExitForTransitDeclared) Me.columnncts_LimitDate = New Global.System.Data.DataColumn("ncts_LimitDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LimitDate) Me.columnncts_TransitDeclarationType = New Global.System.Data.DataColumn("ncts_TransitDeclarationType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransitDeclarationType) Me.columnncts_GrossMass = New Global.System.Data.DataColumn("ncts_GrossMass", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_GrossMass) Me.columnncts_BindingItinerary = New Global.System.Data.DataColumn("ncts_BindingItinerary", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_BindingItinerary) Me.columnncts_ContainerIndicator = New Global.System.Data.DataColumn("ncts_ContainerIndicator", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ContainerIndicator) Me.columnncts_InlandModeOfTransport = New Global.System.Data.DataColumn("ncts_InlandModeOfTransport", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_InlandModeOfTransport) Me.columnncts_DepartureTransportMeans_1_TypeOfIdentification = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_1_TypeOfIdentification", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_1_TypeOfIdentification) Me.columnncts_DepartureTransportMeans_1_IdentificationNumber = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_1_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_1_IdentificationNumber) Me.columnncts_DepartureTransportMeans_1_Nationality = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_1_Nationality", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_1_Nationality) Me.columnncts_DepartureTransportMeans_2_TypeOfIdentification = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_2_TypeOfIdentification", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_2_TypeOfIdentification) Me.columnncts_DepartureTransportMeans_2_IdentificationNumber = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_2_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_2_IdentificationNumber) Me.columnncts_DepartureTransportMeans_2_Nationality = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_2_Nationality", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_2_Nationality) Me.columnncts_DepartureTransportMeans_3_TypeOfIdentification = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_3_TypeOfIdentification", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_3_TypeOfIdentification) Me.columnncts_DepartureTransportMeans_3_IdentificationNumber = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_3_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_3_IdentificationNumber) Me.columnncts_DepartureTransportMeans_3_Nationality = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_3_Nationality", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_3_Nationality) Me.columnncts_DepartureTransportMeans_4_TypeOfIdentification = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_4_TypeOfIdentification", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_4_TypeOfIdentification) Me.columnncts_DepartureTransportMeans_4_IdentificationNumber = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_4_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_4_IdentificationNumber) Me.columnncts_DepartureTransportMeans_4_Nationality = New Global.System.Data.DataColumn("ncts_DepartureTransportMeans_4_Nationality", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DepartureTransportMeans_4_Nationality) Me.columnncts_ActiveBorderTransportMeans_1_TypeOfIdentification = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_1_TypeOfIdentification) Me.columnncts_ActiveBorderTransportMeans_1_IdentificationNumber = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_1_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_1_IdentificationNumber) Me.columnncts_ActiveBorderTransportMeans_1_Nationality = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_1_Nationality", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_1_Nationality) Me.columnncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber) Me.columnncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared) Me.columnncts_ActiveBorderTransportMeans_2_TypeOfIdentification = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_2_TypeOfIdentification) Me.columnncts_ActiveBorderTransportMeans_2_IdentificationNumber = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_2_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_2_IdentificationNumber) Me.columnncts_ActiveBorderTransportMeans_2_Nationality = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_2_Nationality", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_2_Nationality) Me.columnncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber) Me.columnncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared) Me.columnncts_ActiveBorderTransportMeans_3_TypeOfIdentification = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_3_TypeOfIdentification) Me.columnncts_ActiveBorderTransportMeans_3_IdentificationNumber = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_3_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_3_IdentificationNumber) Me.columnncts_ActiveBorderTransportMeans_3_Nationality = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_3_Nationality", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_3_Nationality) Me.columnncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber) Me.columnncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared) Me.columnncts_ActiveBorderTransportMeans_4_TypeOfIdentification = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_4_TypeOfIdentification) Me.columnncts_ActiveBorderTransportMeans_4_IdentificationNumber = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_4_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_4_IdentificationNumber) Me.columnncts_ActiveBorderTransportMeans_4_Nationality = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_4_Nationality", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_4_Nationality) Me.columnncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber) Me.columnncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared = New Global.System.Data.DataColumn("ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared) Me.columnncts_Authorisation_1_Type = New Global.System.Data.DataColumn("ncts_Authorisation_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_1_Type) Me.columnncts_Authorisation_1_ReferenceNumber = New Global.System.Data.DataColumn("ncts_Authorisation_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_1_ReferenceNumber) Me.columnncts_Authorisation_2_Type = New Global.System.Data.DataColumn("ncts_Authorisation_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_2_Type) Me.columnncts_Authorisation_2_ReferenceNumber = New Global.System.Data.DataColumn("ncts_Authorisation_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_2_ReferenceNumber) Me.columnncts_Authorisation_3_Type = New Global.System.Data.DataColumn("ncts_Authorisation_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_3_Type) Me.columnncts_Authorisation_3_ReferenceNumber = New Global.System.Data.DataColumn("ncts_Authorisation_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_3_ReferenceNumber) Me.columnncts_Authorisation_4_Type = New Global.System.Data.DataColumn("ncts_Authorisation_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_4_Type) Me.columnncts_Authorisation_4_ReferenceNumber = New Global.System.Data.DataColumn("ncts_Authorisation_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_4_ReferenceNumber) Me.columnncts_Authorisation_5_Type = New Global.System.Data.DataColumn("ncts_Authorisation_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_5_Type) Me.columnncts_Authorisation_5_ReferenceNumber = New Global.System.Data.DataColumn("ncts_Authorisation_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_5_ReferenceNumber) Me.columnncts_Authorisation_6_Type = New Global.System.Data.DataColumn("ncts_Authorisation_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_6_Type) Me.columnncts_Authorisation_6_ReferenceNumber = New Global.System.Data.DataColumn("ncts_Authorisation_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_6_ReferenceNumber) Me.columnncts_Authorisation_7_Type = New Global.System.Data.DataColumn("ncts_Authorisation_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_7_Type) Me.columnncts_Authorisation_7_ReferenceNumber = New Global.System.Data.DataColumn("ncts_Authorisation_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_7_ReferenceNumber) Me.columnncts_Authorisation_8_Type = New Global.System.Data.DataColumn("ncts_Authorisation_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_8_Type) Me.columnncts_Authorisation_8_ReferenceNumber = New Global.System.Data.DataColumn("ncts_Authorisation_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_8_ReferenceNumber) Me.columnncts_Authorisation_9_Type = New Global.System.Data.DataColumn("ncts_Authorisation_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_9_Type) Me.columnncts_Authorisation_9_ReferenceNumber = New Global.System.Data.DataColumn("ncts_Authorisation_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Authorisation_9_ReferenceNumber) Me.columnncts_Consignor_AdressCode = New Global.System.Data.DataColumn("ncts_Consignor_AdressCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_AdressCode) Me.columnncts_Consignor_IdentificationNumber = New Global.System.Data.DataColumn("ncts_Consignor_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_IdentificationNumber) Me.columnncts_Consignor_SubsidiaryNumber = New Global.System.Data.DataColumn("ncts_Consignor_SubsidiaryNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_SubsidiaryNumber) Me.columnncts_Consignor_Name = New Global.System.Data.DataColumn("ncts_Consignor_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_Name) Me.columnncts_Consignor_StreetNumber = New Global.System.Data.DataColumn("ncts_Consignor_StreetNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_StreetNumber) Me.columnncts_Consignor_City = New Global.System.Data.DataColumn("ncts_Consignor_City", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_City) Me.columnncts_Consignor_Postcode = New Global.System.Data.DataColumn("ncts_Consignor_Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_Postcode) Me.columnncts_Consignor_Country = New Global.System.Data.DataColumn("ncts_Consignor_Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_Country) Me.columnncts_Consignor_ContactPerson_Name = New Global.System.Data.DataColumn("ncts_Consignor_ContactPerson_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_ContactPerson_Name) Me.columnncts_Consignor_ContactPerson_PhoneNumber = New Global.System.Data.DataColumn("ncts_Consignor_ContactPerson_PhoneNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_ContactPerson_PhoneNumber) Me.columnncts_Consignor_ContactPerson_EMailAddress = New Global.System.Data.DataColumn("ncts_Consignor_ContactPerson_EMailAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignor_ContactPerson_EMailAddress) Me.columnncts_Consignee_AdressCode = New Global.System.Data.DataColumn("ncts_Consignee_AdressCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_AdressCode) Me.columnncts_Consignee_IdentificationNumber = New Global.System.Data.DataColumn("ncts_Consignee_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_IdentificationNumber) Me.columnncts_Consignee_SubsidiaryNumber = New Global.System.Data.DataColumn("ncts_Consignee_SubsidiaryNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_SubsidiaryNumber) Me.columnncts_Consignee_Name = New Global.System.Data.DataColumn("ncts_Consignee_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_Name) Me.columnncts_Consignee_StreetNumber = New Global.System.Data.DataColumn("ncts_Consignee_StreetNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_StreetNumber) Me.columnncts_Consignee_City = New Global.System.Data.DataColumn("ncts_Consignee_City", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_City) Me.columnncts_Consignee_Postcode = New Global.System.Data.DataColumn("ncts_Consignee_Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_Postcode) Me.columnncts_Consignee_Country = New Global.System.Data.DataColumn("ncts_Consignee_Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_Country) Me.columnncts_Consignee_ContactPerson_Name = New Global.System.Data.DataColumn("ncts_Consignee_ContactPerson_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_ContactPerson_Name) Me.columnncts_Consignee_ContactPerson_PhoneNumber = New Global.System.Data.DataColumn("ncts_Consignee_ContactPerson_PhoneNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_ContactPerson_PhoneNumber) Me.columnncts_Consignee_ContactPerson_EMailAddress = New Global.System.Data.DataColumn("ncts_Consignee_ContactPerson_EMailAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Consignee_ContactPerson_EMailAddress) Me.columnncts_HolderOfTheTransitProcedure_AdressCode = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_AdressCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_AdressCode) Me.columnncts_HolderOfTheTransitProcedure_IdentificationNumber = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_IdentificationNumber) Me.columnncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber) Me.columnncts_HolderOfTheTransitProcedure_Name = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_Name) Me.columnncts_HolderOfTheTransitProcedure_StreetNumber = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_StreetNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_StreetNumber) Me.columnncts_HolderOfTheTransitProcedure_City = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_City", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_City) Me.columnncts_HolderOfTheTransitProcedure_Postcode = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_Postcode) Me.columnncts_HolderOfTheTransitProcedure_Country = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_Country) Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_Name = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_ContactPerson_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_Name) Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber) Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress = New Global.System.Data.DataColumn("ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress) Me.columnncts_Representative_AdressCode = New Global.System.Data.DataColumn("ncts_Representative_AdressCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Representative_AdressCode) Me.columnncts_Representative_IdentificationNumber = New Global.System.Data.DataColumn("ncts_Representative_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Representative_IdentificationNumber) Me.columnncts_Representative_ContactPerson_Name = New Global.System.Data.DataColumn("ncts_Representative_ContactPerson_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Representative_ContactPerson_Name) Me.columnncts_Representative_ContactPerson_PhoneNumber = New Global.System.Data.DataColumn("ncts_Representative_ContactPerson_PhoneNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Representative_ContactPerson_PhoneNumber) Me.columnncts_Representative_ContactPerson_EMailAddress = New Global.System.Data.DataColumn("ncts_Representative_ContactPerson_EMailAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Representative_ContactPerson_EMailAddress) Me.columnncts_AdditionalSupplyChainActor_1_Role = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_1_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_1_Role) Me.columnncts_AdditionalSupplyChainActor_1_IdentificationNumber = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_1_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_1_IdentificationNumber) Me.columnncts_AdditionalSupplyChainActor_2_Role = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_2_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_2_Role) Me.columnncts_AdditionalSupplyChainActor_2_IdentificationNumber = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_2_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_2_IdentificationNumber) Me.columnncts_AdditionalSupplyChainActor_3_Role = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_3_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_3_Role) Me.columnncts_AdditionalSupplyChainActor_3_IdentificationNumber = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_3_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_3_IdentificationNumber) Me.columnncts_AdditionalSupplyChainActor_4_Role = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_4_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_4_Role) Me.columnncts_AdditionalSupplyChainActor_4_IdentificationNumber = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_4_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_4_IdentificationNumber) Me.columnncts_AdditionalSupplyChainActor_5_Role = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_5_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_5_Role) Me.columnncts_AdditionalSupplyChainActor_5_IdentificationNumber = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_5_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_5_IdentificationNumber) Me.columnncts_AdditionalSupplyChainActor_6_Role = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_6_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_6_Role) Me.columnncts_AdditionalSupplyChainActor_6_IdentificationNumber = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_6_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_6_IdentificationNumber) Me.columnncts_AdditionalSupplyChainActor_7_Role = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_7_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_7_Role) Me.columnncts_AdditionalSupplyChainActor_7_IdentificationNumber = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_7_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_7_IdentificationNumber) Me.columnncts_AdditionalSupplyChainActor_8_Role = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_8_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_8_Role) Me.columnncts_AdditionalSupplyChainActor_8_IdentificationNumber = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_8_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_8_IdentificationNumber) Me.columnncts_AdditionalSupplyChainActor_9_Role = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_9_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_9_Role) Me.columnncts_AdditionalSupplyChainActor_9_IdentificationNumber = New Global.System.Data.DataColumn("ncts_AdditionalSupplyChainActor_9_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalSupplyChainActor_9_IdentificationNumber) Me.columnncts_Security = New Global.System.Data.DataColumn("ncts_Security", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Security) Me.columnncts_ReferenceNumberUCR = New Global.System.Data.DataColumn("ncts_ReferenceNumberUCR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ReferenceNumberUCR) Me.columnncts_SpecificCircomstanceIndicator = New Global.System.Data.DataColumn("ncts_SpecificCircomstanceIndicator", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SpecificCircomstanceIndicator) Me.columnncts_PlaceOfLoading_Location = New Global.System.Data.DataColumn("ncts_PlaceOfLoading_Location", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PlaceOfLoading_Location) Me.columnncts_PlaceOfLoading_Country = New Global.System.Data.DataColumn("ncts_PlaceOfLoading_Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PlaceOfLoading_Country) Me.columnncts_PlaceOfUnLoading_Location = New Global.System.Data.DataColumn("ncts_PlaceOfUnLoading_Location", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PlaceOfUnLoading_Location) Me.columnncts_PlaceOfUnLoading_Country = New Global.System.Data.DataColumn("ncts_PlaceOfUnLoading_Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PlaceOfUnLoading_Country) Me.columnncts_TransportCharges = New Global.System.Data.DataColumn("ncts_TransportCharges", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportCharges) Me.columnncts_CountryOfRoutingOfConsignment_1 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_1) Me.columnncts_CountryOfRoutingOfConsignment_2 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_2) Me.columnncts_CountryOfRoutingOfConsignment_3 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_3) Me.columnncts_CountryOfRoutingOfConsignment_4 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_4) Me.columnncts_CountryOfRoutingOfConsignment_5 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_5) Me.columnncts_CountryOfRoutingOfConsignment_6 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_6) Me.columnncts_CountryOfRoutingOfConsignment_7 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_7) Me.columnncts_CountryOfRoutingOfConsignment_8 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_8) Me.columnncts_CountryOfRoutingOfConsignment_9 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_9) Me.columnncts_CountryOfRoutingOfConsignment_10 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_10) Me.columnncts_CountryOfRoutingOfConsignment_11 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_11) Me.columnncts_CountryOfRoutingOfConsignment_12 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_12) Me.columnncts_CountryOfRoutingOfConsignment_13 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_13", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_13) Me.columnncts_CountryOfRoutingOfConsignment_14 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_14", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_14) Me.columnncts_CountryOfRoutingOfConsignment_15 = New Global.System.Data.DataColumn("ncts_CountryOfRoutingOfConsignment_15", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_CountryOfRoutingOfConsignment_15) Me.columnncts_Carrier_AdressCode = New Global.System.Data.DataColumn("ncts_Carrier_AdressCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Carrier_AdressCode) Me.columnncts_Carrier_IdentificationNumber = New Global.System.Data.DataColumn("ncts_Carrier_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Carrier_IdentificationNumber) Me.columnncts_Carrier_SubsidiaryNumber = New Global.System.Data.DataColumn("ncts_Carrier_SubsidiaryNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Carrier_SubsidiaryNumber) Me.columnncts_Carrier_ContactPerson_Name = New Global.System.Data.DataColumn("ncts_Carrier_ContactPerson_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Carrier_ContactPerson_Name) Me.columnncts_Carrier_ContactPerson_PhoneNumber = New Global.System.Data.DataColumn("ncts_Carrier_ContactPerson_PhoneNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Carrier_ContactPerson_PhoneNumber) Me.columnncts_Carrier_ContactPerson_EMailAddress = New Global.System.Data.DataColumn("ncts_Carrier_ContactPerson_EMailAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Carrier_ContactPerson_EMailAddress) Me.columnncts_SupportingDocument_1_Type = New Global.System.Data.DataColumn("ncts_SupportingDocument_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_1_Type) Me.columnncts_SupportingDocument_1_ReferenceNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_1_ReferenceNumber) Me.columnncts_SupportingDocument_1_DocumentLineItemNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_1_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_1_DocumentLineItemNumber) Me.columnncts_SupportingDocument_1_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_SupportingDocument_1_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_1_ComplementOfInformation) Me.columnncts_SupportingDocument_2_Type = New Global.System.Data.DataColumn("ncts_SupportingDocument_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_2_Type) Me.columnncts_SupportingDocument_2_ReferenceNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_2_ReferenceNumber) Me.columnncts_SupportingDocument_2_DocumentLineItemNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_2_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_2_DocumentLineItemNumber) Me.columnncts_SupportingDocument_2_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_SupportingDocument_2_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_2_ComplementOfInformation) Me.columnncts_SupportingDocument_3_Type = New Global.System.Data.DataColumn("ncts_SupportingDocument_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_3_Type) Me.columnncts_SupportingDocument_3_ReferenceNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_3_ReferenceNumber) Me.columnncts_SupportingDocument_3_DocumentLineItemNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_3_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_3_DocumentLineItemNumber) Me.columnncts_SupportingDocument_3_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_SupportingDocument_3_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_3_ComplementOfInformation) Me.columnncts_SupportingDocument_4_Type = New Global.System.Data.DataColumn("ncts_SupportingDocument_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_4_Type) Me.columnncts_SupportingDocument_4_ReferenceNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_4_ReferenceNumber) Me.columnncts_SupportingDocument_4_DocumentLineItemNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_4_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_4_DocumentLineItemNumber) Me.columnncts_SupportingDocument_4_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_SupportingDocument_4_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_4_ComplementOfInformation) Me.columnncts_SupportingDocument_5_Type = New Global.System.Data.DataColumn("ncts_SupportingDocument_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_5_Type) Me.columnncts_SupportingDocument_5_ReferenceNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_5_ReferenceNumber) Me.columnncts_SupportingDocument_5_DocumentLineItemNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_5_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_5_DocumentLineItemNumber) Me.columnncts_SupportingDocument_5_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_SupportingDocument_5_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_5_ComplementOfInformation) Me.columnncts_SupportingDocument_6_Type = New Global.System.Data.DataColumn("ncts_SupportingDocument_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_6_Type) Me.columnncts_SupportingDocument_6_ReferenceNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_6_ReferenceNumber) Me.columnncts_SupportingDocument_6_DocumentLineItemNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_6_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_6_DocumentLineItemNumber) Me.columnncts_SupportingDocument_6_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_SupportingDocument_6_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_6_ComplementOfInformation) Me.columnncts_SupportingDocument_7_Type = New Global.System.Data.DataColumn("ncts_SupportingDocument_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_7_Type) Me.columnncts_SupportingDocument_7_ReferenceNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_7_ReferenceNumber) Me.columnncts_SupportingDocument_7_DocumentLineItemNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_7_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_7_DocumentLineItemNumber) Me.columnncts_SupportingDocument_7_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_SupportingDocument_7_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_7_ComplementOfInformation) Me.columnncts_SupportingDocument_8_Type = New Global.System.Data.DataColumn("ncts_SupportingDocument_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_8_Type) Me.columnncts_SupportingDocument_8_ReferenceNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_8_ReferenceNumber) Me.columnncts_SupportingDocument_8_DocumentLineItemNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_8_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_8_DocumentLineItemNumber) Me.columnncts_SupportingDocument_8_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_SupportingDocument_8_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_8_ComplementOfInformation) Me.columnncts_SupportingDocument_9_Type = New Global.System.Data.DataColumn("ncts_SupportingDocument_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_9_Type) Me.columnncts_SupportingDocument_9_ReferenceNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_9_ReferenceNumber) Me.columnncts_SupportingDocument_9_DocumentLineItemNumber = New Global.System.Data.DataColumn("ncts_SupportingDocument_9_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_9_DocumentLineItemNumber) Me.columnncts_SupportingDocument_9_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_SupportingDocument_9_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SupportingDocument_9_ComplementOfInformation) Me.columnncts_PreviousDocument_1_Type = New Global.System.Data.DataColumn("ncts_PreviousDocument_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_1_Type) Me.columnncts_PreviousDocument_1_ReferenceNumber = New Global.System.Data.DataColumn("ncts_PreviousDocument_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_1_ReferenceNumber) Me.columnncts_PreviousDocument_1_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_PreviousDocument_1_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_1_ComplementOfInformation) Me.columnncts_PreviousDocument_2_Type = New Global.System.Data.DataColumn("ncts_PreviousDocument_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_2_Type) Me.columnncts_PreviousDocument_2_ReferenceNumber = New Global.System.Data.DataColumn("ncts_PreviousDocument_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_2_ReferenceNumber) Me.columnncts_PreviousDocument_2_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_PreviousDocument_2_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_2_ComplementOfInformation) Me.columnncts_PreviousDocument_3_Type = New Global.System.Data.DataColumn("ncts_PreviousDocument_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_3_Type) Me.columnncts_PreviousDocument_3_ReferenceNumber = New Global.System.Data.DataColumn("ncts_PreviousDocument_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_3_ReferenceNumber) Me.columnncts_PreviousDocument_3_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_PreviousDocument_3_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_3_ComplementOfInformation) Me.columnncts_PreviousDocument_4_Type = New Global.System.Data.DataColumn("ncts_PreviousDocument_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_4_Type) Me.columnncts_PreviousDocument_4_ReferenceNumber = New Global.System.Data.DataColumn("ncts_PreviousDocument_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_4_ReferenceNumber) Me.columnncts_PreviousDocument_4_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_PreviousDocument_4_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_4_ComplementOfInformation) Me.columnncts_PreviousDocument_5_Type = New Global.System.Data.DataColumn("ncts_PreviousDocument_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_5_Type) Me.columnncts_PreviousDocument_5_ReferenceNumber = New Global.System.Data.DataColumn("ncts_PreviousDocument_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_5_ReferenceNumber) Me.columnncts_PreviousDocument_5_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_PreviousDocument_5_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_5_ComplementOfInformation) Me.columnncts_PreviousDocument_6_Type = New Global.System.Data.DataColumn("ncts_PreviousDocument_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_6_Type) Me.columnncts_PreviousDocument_6_ReferenceNumber = New Global.System.Data.DataColumn("ncts_PreviousDocument_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_6_ReferenceNumber) Me.columnncts_PreviousDocument_6_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_PreviousDocument_6_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_6_ComplementOfInformation) Me.columnncts_PreviousDocument_7_Type = New Global.System.Data.DataColumn("ncts_PreviousDocument_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_7_Type) Me.columnncts_PreviousDocument_7_ReferenceNumber = New Global.System.Data.DataColumn("ncts_PreviousDocument_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_7_ReferenceNumber) Me.columnncts_PreviousDocument_7_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_PreviousDocument_7_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_7_ComplementOfInformation) Me.columnncts_PreviousDocument_8_Type = New Global.System.Data.DataColumn("ncts_PreviousDocument_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_8_Type) Me.columnncts_PreviousDocument_8_ReferenceNumber = New Global.System.Data.DataColumn("ncts_PreviousDocument_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_8_ReferenceNumber) Me.columnncts_PreviousDocument_8_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_PreviousDocument_8_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_8_ComplementOfInformation) Me.columnncts_PreviousDocument_9_Type = New Global.System.Data.DataColumn("ncts_PreviousDocument_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_9_Type) Me.columnncts_PreviousDocument_9_ReferenceNumber = New Global.System.Data.DataColumn("ncts_PreviousDocument_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_9_ReferenceNumber) Me.columnncts_PreviousDocument_9_ComplementOfInformation = New Global.System.Data.DataColumn("ncts_PreviousDocument_9_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_PreviousDocument_9_ComplementOfInformation) Me.columnncts_TransportDocument_1_Type = New Global.System.Data.DataColumn("ncts_TransportDocument_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_1_Type) Me.columnncts_TransportDocument_1_ReferenceNumber = New Global.System.Data.DataColumn("ncts_TransportDocument_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_1_ReferenceNumber) Me.columnncts_TransportDocument_2_Type = New Global.System.Data.DataColumn("ncts_TransportDocument_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_2_Type) Me.columnncts_TransportDocument_2_ReferenceNumber = New Global.System.Data.DataColumn("ncts_TransportDocument_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_2_ReferenceNumber) Me.columnncts_TransportDocument_3_Type = New Global.System.Data.DataColumn("ncts_TransportDocument_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_3_Type) Me.columnncts_TransportDocument_3_ReferenceNumber = New Global.System.Data.DataColumn("ncts_TransportDocument_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_3_ReferenceNumber) Me.columnncts_TransportDocument_4_Type = New Global.System.Data.DataColumn("ncts_TransportDocument_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_4_Type) Me.columnncts_TransportDocument_4_ReferenceNumber = New Global.System.Data.DataColumn("ncts_TransportDocument_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_4_ReferenceNumber) Me.columnncts_TransportDocument_5_Type = New Global.System.Data.DataColumn("ncts_TransportDocument_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_5_Type) Me.columnncts_TransportDocument_5_ReferenceNumber = New Global.System.Data.DataColumn("ncts_TransportDocument_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_5_ReferenceNumber) Me.columnncts_TransportDocument_6_Type = New Global.System.Data.DataColumn("ncts_TransportDocument_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_6_Type) Me.columnncts_TransportDocument_6_ReferenceNumber = New Global.System.Data.DataColumn("ncts_TransportDocument_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_6_ReferenceNumber) Me.columnncts_TransportDocument_7_Type = New Global.System.Data.DataColumn("ncts_TransportDocument_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_7_Type) Me.columnncts_TransportDocument_7_ReferenceNumber = New Global.System.Data.DataColumn("ncts_TransportDocument_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_7_ReferenceNumber) Me.columnncts_TransportDocument_8_Type = New Global.System.Data.DataColumn("ncts_TransportDocument_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_8_Type) Me.columnncts_TransportDocument_8_ReferenceNumber = New Global.System.Data.DataColumn("ncts_TransportDocument_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_8_ReferenceNumber) Me.columnncts_TransportDocument_9_Type = New Global.System.Data.DataColumn("ncts_TransportDocument_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_9_Type) Me.columnncts_TransportDocument_9_ReferenceNumber = New Global.System.Data.DataColumn("ncts_TransportDocument_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_TransportDocument_9_ReferenceNumber) Me.columnncts_AdditionalReference_1_Type = New Global.System.Data.DataColumn("ncts_AdditionalReference_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_1_Type) Me.columnncts_AdditionalReference_1_ReferenceNumber = New Global.System.Data.DataColumn("ncts_AdditionalReference_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_1_ReferenceNumber) Me.columnncts_AdditionalReference_2_Type = New Global.System.Data.DataColumn("ncts_AdditionalReference_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_2_Type) Me.columnncts_AdditionalReference_2_ReferenceNumber = New Global.System.Data.DataColumn("ncts_AdditionalReference_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_2_ReferenceNumber) Me.columnncts_AdditionalReference_3_Type = New Global.System.Data.DataColumn("ncts_AdditionalReference_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_3_Type) Me.columnncts_AdditionalReference_3_ReferenceNumber = New Global.System.Data.DataColumn("ncts_AdditionalReference_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_3_ReferenceNumber) Me.columnncts_AdditionalReference_4_Type = New Global.System.Data.DataColumn("ncts_AdditionalReference_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_4_Type) Me.columnncts_AdditionalReference_4_ReferenceNumber = New Global.System.Data.DataColumn("ncts_AdditionalReference_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_4_ReferenceNumber) Me.columnncts_AdditionalReference_5_Type = New Global.System.Data.DataColumn("ncts_AdditionalReference_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_5_Type) Me.columnncts_AdditionalReference_5_ReferenceNumber = New Global.System.Data.DataColumn("ncts_AdditionalReference_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_5_ReferenceNumber) Me.columnncts_AdditionalReference_6_Type = New Global.System.Data.DataColumn("ncts_AdditionalReference_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_6_Type) Me.columnncts_AdditionalReference_6_ReferenceNumber = New Global.System.Data.DataColumn("ncts_AdditionalReference_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_6_ReferenceNumber) Me.columnncts_AdditionalReference_7_Type = New Global.System.Data.DataColumn("ncts_AdditionalReference_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_7_Type) Me.columnncts_AdditionalReference_7_ReferenceNumber = New Global.System.Data.DataColumn("ncts_AdditionalReference_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_7_ReferenceNumber) Me.columnncts_AdditionalReference_8_Type = New Global.System.Data.DataColumn("ncts_AdditionalReference_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_8_Type) Me.columnncts_AdditionalReference_8_ReferenceNumber = New Global.System.Data.DataColumn("ncts_AdditionalReference_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_8_ReferenceNumber) Me.columnncts_AdditionalReference_9_Type = New Global.System.Data.DataColumn("ncts_AdditionalReference_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_9_Type) Me.columnncts_AdditionalReference_9_ReferenceNumber = New Global.System.Data.DataColumn("ncts_AdditionalReference_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalReference_9_ReferenceNumber) Me.columnncts_AdditionalInformation_1_Code = New Global.System.Data.DataColumn("ncts_AdditionalInformation_1_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_1_Code) Me.columnncts_AdditionalInformation_1_Text = New Global.System.Data.DataColumn("ncts_AdditionalInformation_1_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_1_Text) Me.columnncts_AdditionalInformation_2_Code = New Global.System.Data.DataColumn("ncts_AdditionalInformation_2_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_2_Code) Me.columnncts_AdditionalInformation_2_Text = New Global.System.Data.DataColumn("ncts_AdditionalInformation_2_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_2_Text) Me.columnncts_AdditionalInformation_3_Code = New Global.System.Data.DataColumn("ncts_AdditionalInformation_3_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_3_Code) Me.columnncts_AdditionalInformation_3_Text = New Global.System.Data.DataColumn("ncts_AdditionalInformation_3_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_3_Text) Me.columnncts_AdditionalInformation_4_Code = New Global.System.Data.DataColumn("ncts_AdditionalInformation_4_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_4_Code) Me.columnncts_AdditionalInformation_4_Text = New Global.System.Data.DataColumn("ncts_AdditionalInformation_4_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_4_Text) Me.columnncts_AdditionalInformation_5_Code = New Global.System.Data.DataColumn("ncts_AdditionalInformation_5_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_5_Code) Me.columnncts_AdditionalInformation_5_Text = New Global.System.Data.DataColumn("ncts_AdditionalInformation_5_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_5_Text) Me.columnncts_AdditionalInformation_6_Code = New Global.System.Data.DataColumn("ncts_AdditionalInformation_6_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_6_Code) Me.columnncts_AdditionalInformation_6_Text = New Global.System.Data.DataColumn("ncts_AdditionalInformation_6_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_6_Text) Me.columnncts_AdditionalInformation_7_Code = New Global.System.Data.DataColumn("ncts_AdditionalInformation_7_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_7_Code) Me.columnncts_AdditionalInformation_7_Text = New Global.System.Data.DataColumn("ncts_AdditionalInformation_7_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_7_Text) Me.columnncts_AdditionalInformation_8_Code = New Global.System.Data.DataColumn("ncts_AdditionalInformation_8_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_8_Code) Me.columnncts_AdditionalInformation_8_Text = New Global.System.Data.DataColumn("ncts_AdditionalInformation_8_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_8_Text) Me.columnncts_AdditionalInformation_9_Code = New Global.System.Data.DataColumn("ncts_AdditionalInformation_9_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_9_Code) Me.columnncts_AdditionalInformation_9_Text = New Global.System.Data.DataColumn("ncts_AdditionalInformation_9_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AdditionalInformation_9_Text) Me.columnncts_AUTOIMPIndicator = New Global.System.Data.DataColumn("ncts_AUTOIMPIndicator", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AUTOIMPIndicator) Me.columnncts_Stammreferenz = New Global.System.Data.DataColumn("ncts_Stammreferenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Stammreferenz) Me.columnncts_ModeOfTransportAtTheBorder = New Global.System.Data.DataColumn("ncts_ModeOfTransportAtTheBorder", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ModeOfTransportAtTheBorder) Me.columnncts_Eroeffnung = New Global.System.Data.DataColumn("ncts_Eroeffnung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Eroeffnung) Me.columnncts_Ankunft = New Global.System.Data.DataColumn("ncts_Ankunft", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Ankunft) Me.columnncts_Erledigung = New Global.System.Data.DataColumn("ncts_Erledigung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Erledigung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnncts_Id}, true)) Me.columnncts_Id.AutoIncrement = true Me.columnncts_Id.AutoIncrementSeed = -1 Me.columnncts_Id.AutoIncrementStep = -1 Me.columnncts_Id.AllowDBNull = false Me.columnncts_Id.ReadOnly = true Me.columnncts_Id.Unique = true Me.columnncts_Status.AllowDBNull = false Me.columnncts_Status_KEWILL_Equivalent.AllowDBNull = false Me.columnncts_dyaArt.AllowDBNull = false Me.columnncts_dyaArt.MaxLength = 50 Me.columnncts_dyaAnmID.AllowDBNull = false Me.columnncts_ANR.MaxLength = 21 Me.columnncts_MRN.MaxLength = 21 Me.columnncts_Erstellung.AllowDBNull = false Me.columnncts_LetzteBearbeitung.AllowDBNull = false Me.columnncts_firma.MaxLength = 10 Me.columnncts_niederlassung.MaxLength = 10 Me.columnncts_Gestellt.AllowDBNull = false Me.columnncts_Trans_Partner.MaxLength = 10 Me.columnncts_Trans_Div1.MaxLength = 10 Me.columnncts_Trans_Div2.MaxLength = 10 Me.columnncts_Trans_Div3.MaxLength = 10 Me.columnncts_Trans_Referenz.MaxLength = 35 Me.columnncts_NachrichtenSenderTIN.MaxLength = 17 Me.columnncts_NachrichtenSenderNLNR.MaxLength = 4 Me.columnncts_NachrichtenempfaengerDST.MaxLength = 8 Me.columnncts_ObjectName.MaxLength = 22 Me.columnncts_ObjectAlias.MaxLength = 35 Me.columnncts_BezugsnummerVorblendung.MaxLength = 35 Me.columnncts_Bearbeiter.MaxLength = 20 Me.columnncts_CountryOfDispatch.MaxLength = 2 Me.columnncts_CountryOfDestination.MaxLength = 2 Me.columnncts_Declarationtype.MaxLength = 5 Me.columnncts_TIRCarnetNumber.MaxLength = 12 Me.columnncts_ReductedDatasetIndicator.MaxLength = 1 Me.columnncts_LocationOfGoods_TypeofLocation.MaxLength = 1 Me.columnncts_LocationOfGoods_QualifierIdenfitication.MaxLength = 1 Me.columnncts_LocationOfGoods_AdditionalIdentifier.MaxLength = 4 Me.columnncts_LocationOfGoods_ContactPerson_Name.MaxLength = 70 Me.columnncts_LocationOfGoods_ContactPerson_PhoneNumber.MaxLength = 35 Me.columnncts_LocationOfGoods_ContactPerson_EMailAddress.MaxLength = 256 Me.columnncts_CustomsOfficeOfTransitDeclared_1_RefNumber.MaxLength = 8 Me.columnncts_CustomsOfficeOfTransitDeclared_2_RefNumber.MaxLength = 8 Me.columnncts_CustomsOfficeOfTransitDeclared_3_RefNumber.MaxLength = 8 Me.columnncts_CustomsOfficeOfTransitDeclared_4_RefNumber.MaxLength = 8 Me.columnncts_CustomsOfficeOfTransitDeclared_5_RefNumber.MaxLength = 8 Me.columnncts_CustomsOfficeOfTransitDeclared_6_RefNumber.MaxLength = 8 Me.columnncts_CustomsOfficeOfTransitDeclared_7_RefNumber.MaxLength = 8 Me.columnncts_CustomsOfficeOfTransitDeclared_8_RefNumber.MaxLength = 8 Me.columnncts_CustomsOfficeOfTransitDeclared_9_RefNumber.MaxLength = 8 Me.columnncts_CustomsOfficeOfDestinationDeclared.MaxLength = 8 Me.columnncts_CustomsOfficeOfDeparture.MaxLength = 8 Me.columnncts_CustomsOfficeOfExitForTransitDeclared.MaxLength = 8 Me.columnncts_TransitDeclarationType.MaxLength = 2 Me.columnncts_BindingItinerary.MaxLength = 1 Me.columnncts_ContainerIndicator.MaxLength = 1 Me.columnncts_InlandModeOfTransport.MaxLength = 1 Me.columnncts_DepartureTransportMeans_1_TypeOfIdentification.MaxLength = 2 Me.columnncts_DepartureTransportMeans_1_IdentificationNumber.MaxLength = 35 Me.columnncts_DepartureTransportMeans_1_Nationality.MaxLength = 2 Me.columnncts_DepartureTransportMeans_2_TypeOfIdentification.MaxLength = 2 Me.columnncts_DepartureTransportMeans_2_IdentificationNumber.MaxLength = 35 Me.columnncts_DepartureTransportMeans_2_Nationality.MaxLength = 2 Me.columnncts_DepartureTransportMeans_3_TypeOfIdentification.MaxLength = 2 Me.columnncts_DepartureTransportMeans_3_IdentificationNumber.MaxLength = 35 Me.columnncts_DepartureTransportMeans_3_Nationality.MaxLength = 2 Me.columnncts_DepartureTransportMeans_4_TypeOfIdentification.MaxLength = 2 Me.columnncts_DepartureTransportMeans_4_IdentificationNumber.MaxLength = 35 Me.columnncts_DepartureTransportMeans_4_Nationality.MaxLength = 2 Me.columnncts_ActiveBorderTransportMeans_1_TypeOfIdentification.MaxLength = 2 Me.columnncts_ActiveBorderTransportMeans_1_IdentificationNumber.MaxLength = 35 Me.columnncts_ActiveBorderTransportMeans_1_Nationality.MaxLength = 2 Me.columnncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber.MaxLength = 17 Me.columnncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared.MaxLength = 8 Me.columnncts_ActiveBorderTransportMeans_2_TypeOfIdentification.MaxLength = 2 Me.columnncts_ActiveBorderTransportMeans_2_IdentificationNumber.MaxLength = 35 Me.columnncts_ActiveBorderTransportMeans_2_Nationality.MaxLength = 2 Me.columnncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber.MaxLength = 17 Me.columnncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared.MaxLength = 8 Me.columnncts_ActiveBorderTransportMeans_3_TypeOfIdentification.MaxLength = 2 Me.columnncts_ActiveBorderTransportMeans_3_IdentificationNumber.MaxLength = 35 Me.columnncts_ActiveBorderTransportMeans_3_Nationality.MaxLength = 2 Me.columnncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber.MaxLength = 17 Me.columnncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared.MaxLength = 8 Me.columnncts_ActiveBorderTransportMeans_4_TypeOfIdentification.MaxLength = 2 Me.columnncts_ActiveBorderTransportMeans_4_IdentificationNumber.MaxLength = 35 Me.columnncts_ActiveBorderTransportMeans_4_Nationality.MaxLength = 2 Me.columnncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber.MaxLength = 17 Me.columnncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared.MaxLength = 8 Me.columnncts_Authorisation_1_Type.MaxLength = 4 Me.columnncts_Authorisation_1_ReferenceNumber.MaxLength = 35 Me.columnncts_Authorisation_2_Type.MaxLength = 4 Me.columnncts_Authorisation_2_ReferenceNumber.MaxLength = 35 Me.columnncts_Authorisation_3_Type.MaxLength = 4 Me.columnncts_Authorisation_3_ReferenceNumber.MaxLength = 35 Me.columnncts_Authorisation_4_Type.MaxLength = 4 Me.columnncts_Authorisation_4_ReferenceNumber.MaxLength = 35 Me.columnncts_Authorisation_5_Type.MaxLength = 4 Me.columnncts_Authorisation_5_ReferenceNumber.MaxLength = 35 Me.columnncts_Authorisation_6_Type.MaxLength = 4 Me.columnncts_Authorisation_6_ReferenceNumber.MaxLength = 35 Me.columnncts_Authorisation_7_Type.MaxLength = 4 Me.columnncts_Authorisation_7_ReferenceNumber.MaxLength = 35 Me.columnncts_Authorisation_8_Type.MaxLength = 4 Me.columnncts_Authorisation_8_ReferenceNumber.MaxLength = 35 Me.columnncts_Authorisation_9_Type.MaxLength = 4 Me.columnncts_Authorisation_9_ReferenceNumber.MaxLength = 35 Me.columnncts_Consignor_AdressCode.MaxLength = 50 Me.columnncts_Consignor_IdentificationNumber.MaxLength = 17 Me.columnncts_Consignor_SubsidiaryNumber.MaxLength = 4 Me.columnncts_Consignor_Name.MaxLength = 70 Me.columnncts_Consignor_StreetNumber.MaxLength = 70 Me.columnncts_Consignor_City.MaxLength = 35 Me.columnncts_Consignor_Postcode.MaxLength = 17 Me.columnncts_Consignor_Country.MaxLength = 2 Me.columnncts_Consignor_ContactPerson_Name.MaxLength = 70 Me.columnncts_Consignor_ContactPerson_PhoneNumber.MaxLength = 35 Me.columnncts_Consignor_ContactPerson_EMailAddress.MaxLength = 256 Me.columnncts_Consignee_AdressCode.MaxLength = 50 Me.columnncts_Consignee_IdentificationNumber.MaxLength = 17 Me.columnncts_Consignee_SubsidiaryNumber.MaxLength = 4 Me.columnncts_Consignee_Name.MaxLength = 70 Me.columnncts_Consignee_StreetNumber.MaxLength = 70 Me.columnncts_Consignee_City.MaxLength = 35 Me.columnncts_Consignee_Postcode.MaxLength = 17 Me.columnncts_Consignee_Country.MaxLength = 2 Me.columnncts_Consignee_ContactPerson_Name.MaxLength = 70 Me.columnncts_Consignee_ContactPerson_PhoneNumber.MaxLength = 35 Me.columnncts_Consignee_ContactPerson_EMailAddress.MaxLength = 256 Me.columnncts_HolderOfTheTransitProcedure_AdressCode.MaxLength = 50 Me.columnncts_HolderOfTheTransitProcedure_IdentificationNumber.MaxLength = 17 Me.columnncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber.MaxLength = 17 Me.columnncts_HolderOfTheTransitProcedure_Name.MaxLength = 70 Me.columnncts_HolderOfTheTransitProcedure_StreetNumber.MaxLength = 70 Me.columnncts_HolderOfTheTransitProcedure_City.MaxLength = 35 Me.columnncts_HolderOfTheTransitProcedure_Postcode.MaxLength = 17 Me.columnncts_HolderOfTheTransitProcedure_Country.MaxLength = 2 Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_Name.MaxLength = 70 Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber.MaxLength = 35 Me.columnncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress.MaxLength = 256 Me.columnncts_Representative_AdressCode.MaxLength = 50 Me.columnncts_Representative_IdentificationNumber.MaxLength = 17 Me.columnncts_Representative_ContactPerson_Name.MaxLength = 70 Me.columnncts_Representative_ContactPerson_PhoneNumber.MaxLength = 35 Me.columnncts_Representative_ContactPerson_EMailAddress.MaxLength = 256 Me.columnncts_AdditionalSupplyChainActor_1_Role.MaxLength = 3 Me.columnncts_AdditionalSupplyChainActor_1_IdentificationNumber.MaxLength = 17 Me.columnncts_AdditionalSupplyChainActor_2_Role.MaxLength = 3 Me.columnncts_AdditionalSupplyChainActor_2_IdentificationNumber.MaxLength = 17 Me.columnncts_AdditionalSupplyChainActor_3_Role.MaxLength = 3 Me.columnncts_AdditionalSupplyChainActor_3_IdentificationNumber.MaxLength = 17 Me.columnncts_AdditionalSupplyChainActor_4_Role.MaxLength = 3 Me.columnncts_AdditionalSupplyChainActor_4_IdentificationNumber.MaxLength = 17 Me.columnncts_AdditionalSupplyChainActor_5_Role.MaxLength = 3 Me.columnncts_AdditionalSupplyChainActor_5_IdentificationNumber.MaxLength = 17 Me.columnncts_AdditionalSupplyChainActor_6_Role.MaxLength = 3 Me.columnncts_AdditionalSupplyChainActor_6_IdentificationNumber.MaxLength = 17 Me.columnncts_AdditionalSupplyChainActor_7_Role.MaxLength = 3 Me.columnncts_AdditionalSupplyChainActor_7_IdentificationNumber.MaxLength = 17 Me.columnncts_AdditionalSupplyChainActor_8_Role.MaxLength = 3 Me.columnncts_AdditionalSupplyChainActor_8_IdentificationNumber.MaxLength = 17 Me.columnncts_AdditionalSupplyChainActor_9_Role.MaxLength = 3 Me.columnncts_AdditionalSupplyChainActor_9_IdentificationNumber.MaxLength = 17 Me.columnncts_Security.MaxLength = 1 Me.columnncts_ReferenceNumberUCR.MaxLength = 35 Me.columnncts_SpecificCircomstanceIndicator.MaxLength = 3 Me.columnncts_PlaceOfLoading_Location.MaxLength = 35 Me.columnncts_PlaceOfLoading_Country.MaxLength = 2 Me.columnncts_PlaceOfUnLoading_Location.MaxLength = 35 Me.columnncts_PlaceOfUnLoading_Country.MaxLength = 2 Me.columnncts_TransportCharges.MaxLength = 1 Me.columnncts_CountryOfRoutingOfConsignment_1.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_2.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_3.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_4.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_5.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_6.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_7.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_8.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_9.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_10.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_11.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_12.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_13.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_14.MaxLength = 2 Me.columnncts_CountryOfRoutingOfConsignment_15.MaxLength = 2 Me.columnncts_Carrier_AdressCode.MaxLength = 50 Me.columnncts_Carrier_IdentificationNumber.MaxLength = 17 Me.columnncts_Carrier_SubsidiaryNumber.MaxLength = 4 Me.columnncts_Carrier_ContactPerson_Name.MaxLength = 70 Me.columnncts_Carrier_ContactPerson_PhoneNumber.MaxLength = 35 Me.columnncts_Carrier_ContactPerson_EMailAddress.MaxLength = 256 Me.columnncts_SupportingDocument_1_Type.MaxLength = 4 Me.columnncts_SupportingDocument_1_ReferenceNumber.MaxLength = 70 Me.columnncts_SupportingDocument_1_DocumentLineItemNumber.MaxLength = 5 Me.columnncts_SupportingDocument_1_ComplementOfInformation.MaxLength = 35 Me.columnncts_SupportingDocument_2_Type.MaxLength = 4 Me.columnncts_SupportingDocument_2_ReferenceNumber.MaxLength = 70 Me.columnncts_SupportingDocument_2_DocumentLineItemNumber.MaxLength = 5 Me.columnncts_SupportingDocument_2_ComplementOfInformation.MaxLength = 35 Me.columnncts_SupportingDocument_3_Type.MaxLength = 4 Me.columnncts_SupportingDocument_3_ReferenceNumber.MaxLength = 70 Me.columnncts_SupportingDocument_3_DocumentLineItemNumber.MaxLength = 5 Me.columnncts_SupportingDocument_3_ComplementOfInformation.MaxLength = 35 Me.columnncts_SupportingDocument_4_Type.MaxLength = 4 Me.columnncts_SupportingDocument_4_ReferenceNumber.MaxLength = 70 Me.columnncts_SupportingDocument_4_DocumentLineItemNumber.MaxLength = 5 Me.columnncts_SupportingDocument_4_ComplementOfInformation.MaxLength = 35 Me.columnncts_SupportingDocument_5_Type.MaxLength = 4 Me.columnncts_SupportingDocument_5_ReferenceNumber.MaxLength = 70 Me.columnncts_SupportingDocument_5_DocumentLineItemNumber.MaxLength = 5 Me.columnncts_SupportingDocument_5_ComplementOfInformation.MaxLength = 35 Me.columnncts_SupportingDocument_6_Type.MaxLength = 4 Me.columnncts_SupportingDocument_6_ReferenceNumber.MaxLength = 70 Me.columnncts_SupportingDocument_6_DocumentLineItemNumber.MaxLength = 5 Me.columnncts_SupportingDocument_6_ComplementOfInformation.MaxLength = 35 Me.columnncts_SupportingDocument_7_Type.MaxLength = 4 Me.columnncts_SupportingDocument_7_ReferenceNumber.MaxLength = 70 Me.columnncts_SupportingDocument_7_DocumentLineItemNumber.MaxLength = 5 Me.columnncts_SupportingDocument_7_ComplementOfInformation.MaxLength = 35 Me.columnncts_SupportingDocument_8_Type.MaxLength = 4 Me.columnncts_SupportingDocument_8_ReferenceNumber.MaxLength = 70 Me.columnncts_SupportingDocument_8_DocumentLineItemNumber.MaxLength = 5 Me.columnncts_SupportingDocument_8_ComplementOfInformation.MaxLength = 35 Me.columnncts_SupportingDocument_9_Type.MaxLength = 4 Me.columnncts_SupportingDocument_9_ReferenceNumber.MaxLength = 70 Me.columnncts_SupportingDocument_9_DocumentLineItemNumber.MaxLength = 5 Me.columnncts_SupportingDocument_9_ComplementOfInformation.MaxLength = 35 Me.columnncts_PreviousDocument_1_Type.MaxLength = 4 Me.columnncts_PreviousDocument_1_ReferenceNumber.MaxLength = 70 Me.columnncts_PreviousDocument_1_ComplementOfInformation.MaxLength = 35 Me.columnncts_PreviousDocument_2_Type.MaxLength = 4 Me.columnncts_PreviousDocument_2_ReferenceNumber.MaxLength = 70 Me.columnncts_PreviousDocument_2_ComplementOfInformation.MaxLength = 35 Me.columnncts_PreviousDocument_3_Type.MaxLength = 4 Me.columnncts_PreviousDocument_3_ReferenceNumber.MaxLength = 70 Me.columnncts_PreviousDocument_3_ComplementOfInformation.MaxLength = 35 Me.columnncts_PreviousDocument_4_Type.MaxLength = 4 Me.columnncts_PreviousDocument_4_ReferenceNumber.MaxLength = 70 Me.columnncts_PreviousDocument_4_ComplementOfInformation.MaxLength = 35 Me.columnncts_PreviousDocument_5_Type.MaxLength = 4 Me.columnncts_PreviousDocument_5_ReferenceNumber.MaxLength = 70 Me.columnncts_PreviousDocument_5_ComplementOfInformation.MaxLength = 35 Me.columnncts_PreviousDocument_6_Type.MaxLength = 4 Me.columnncts_PreviousDocument_6_ReferenceNumber.MaxLength = 70 Me.columnncts_PreviousDocument_6_ComplementOfInformation.MaxLength = 35 Me.columnncts_PreviousDocument_7_Type.MaxLength = 4 Me.columnncts_PreviousDocument_7_ReferenceNumber.MaxLength = 70 Me.columnncts_PreviousDocument_7_ComplementOfInformation.MaxLength = 35 Me.columnncts_PreviousDocument_8_Type.MaxLength = 4 Me.columnncts_PreviousDocument_8_ReferenceNumber.MaxLength = 70 Me.columnncts_PreviousDocument_8_ComplementOfInformation.MaxLength = 35 Me.columnncts_PreviousDocument_9_Type.MaxLength = 4 Me.columnncts_PreviousDocument_9_ReferenceNumber.MaxLength = 70 Me.columnncts_PreviousDocument_9_ComplementOfInformation.MaxLength = 35 Me.columnncts_TransportDocument_1_Type.MaxLength = 4 Me.columnncts_TransportDocument_1_ReferenceNumber.MaxLength = 70 Me.columnncts_TransportDocument_2_Type.MaxLength = 4 Me.columnncts_TransportDocument_2_ReferenceNumber.MaxLength = 70 Me.columnncts_TransportDocument_3_Type.MaxLength = 4 Me.columnncts_TransportDocument_3_ReferenceNumber.MaxLength = 70 Me.columnncts_TransportDocument_4_Type.MaxLength = 4 Me.columnncts_TransportDocument_4_ReferenceNumber.MaxLength = 70 Me.columnncts_TransportDocument_5_Type.MaxLength = 4 Me.columnncts_TransportDocument_5_ReferenceNumber.MaxLength = 70 Me.columnncts_TransportDocument_6_Type.MaxLength = 4 Me.columnncts_TransportDocument_6_ReferenceNumber.MaxLength = 70 Me.columnncts_TransportDocument_7_Type.MaxLength = 4 Me.columnncts_TransportDocument_7_ReferenceNumber.MaxLength = 70 Me.columnncts_TransportDocument_8_Type.MaxLength = 4 Me.columnncts_TransportDocument_8_ReferenceNumber.MaxLength = 70 Me.columnncts_TransportDocument_9_Type.MaxLength = 4 Me.columnncts_TransportDocument_9_ReferenceNumber.MaxLength = 70 Me.columnncts_AdditionalReference_1_Type.MaxLength = 4 Me.columnncts_AdditionalReference_1_ReferenceNumber.MaxLength = 70 Me.columnncts_AdditionalReference_2_Type.MaxLength = 4 Me.columnncts_AdditionalReference_2_ReferenceNumber.MaxLength = 70 Me.columnncts_AdditionalReference_3_Type.MaxLength = 4 Me.columnncts_AdditionalReference_3_ReferenceNumber.MaxLength = 70 Me.columnncts_AdditionalReference_4_Type.MaxLength = 4 Me.columnncts_AdditionalReference_4_ReferenceNumber.MaxLength = 70 Me.columnncts_AdditionalReference_5_Type.MaxLength = 4 Me.columnncts_AdditionalReference_5_ReferenceNumber.MaxLength = 70 Me.columnncts_AdditionalReference_6_Type.MaxLength = 4 Me.columnncts_AdditionalReference_6_ReferenceNumber.MaxLength = 70 Me.columnncts_AdditionalReference_7_Type.MaxLength = 4 Me.columnncts_AdditionalReference_7_ReferenceNumber.MaxLength = 70 Me.columnncts_AdditionalReference_8_Type.MaxLength = 4 Me.columnncts_AdditionalReference_8_ReferenceNumber.MaxLength = 70 Me.columnncts_AdditionalReference_9_Type.MaxLength = 4 Me.columnncts_AdditionalReference_9_ReferenceNumber.MaxLength = 70 Me.columnncts_AdditionalInformation_1_Code.MaxLength = 5 Me.columnncts_AdditionalInformation_1_Text.MaxLength = 512 Me.columnncts_AdditionalInformation_2_Code.MaxLength = 5 Me.columnncts_AdditionalInformation_2_Text.MaxLength = 512 Me.columnncts_AdditionalInformation_3_Code.MaxLength = 5 Me.columnncts_AdditionalInformation_3_Text.MaxLength = 512 Me.columnncts_AdditionalInformation_4_Code.MaxLength = 5 Me.columnncts_AdditionalInformation_4_Text.MaxLength = 512 Me.columnncts_AdditionalInformation_5_Code.MaxLength = 5 Me.columnncts_AdditionalInformation_5_Text.MaxLength = 512 Me.columnncts_AdditionalInformation_6_Code.MaxLength = 5 Me.columnncts_AdditionalInformation_6_Text.MaxLength = 512 Me.columnncts_AdditionalInformation_7_Code.MaxLength = 5 Me.columnncts_AdditionalInformation_7_Text.MaxLength = 512 Me.columnncts_AdditionalInformation_8_Code.MaxLength = 5 Me.columnncts_AdditionalInformation_8_Text.MaxLength = 512 Me.columnncts_AdditionalInformation_9_Code.MaxLength = 5 Me.columnncts_AdditionalInformation_9_Text.MaxLength = 512 Me.columnncts_AUTOIMPIndicator.MaxLength = 1 Me.columnncts_Stammreferenz.MaxLength = 35 Me.columnncts_ModeOfTransportAtTheBorder.MaxLength = 1 End Sub _ Public Function NewtblDakosy_NCTSOut004Row() As tblDakosy_NCTSOut004Row Return CType(Me.NewRow,tblDakosy_NCTSOut004Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOut004Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOut004Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOut004RowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004RowChanged(Me, New tblDakosy_NCTSOut004RowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOut004RowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004RowChanging(Me, New tblDakosy_NCTSOut004RowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOut004RowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004RowDeleted(Me, New tblDakosy_NCTSOut004RowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOut004RowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004RowDeleting(Me, New tblDakosy_NCTSOut004RowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004Row), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOut004Row(ByVal row As tblDakosy_NCTSOut004Row) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOut004DataTable" 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 tblDakosy_NCTSOut004_GuaranteeDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOut004_GuaranteeRow) Private columnnctsGRT_Id As Global.System.Data.DataColumn Private columnnctsGRT_NctsId As Global.System.Data.DataColumn Private columnnctsGRT_Type As Global.System.Data.DataColumn Private columnnctsGRT_OtherGuaranteeReference As Global.System.Data.DataColumn Private columnnctsGRT_Currency As Global.System.Data.DataColumn Private columnnctsGRT_AmountToBeCovered As Global.System.Data.DataColumn Private columnnctsGRT_GRN As Global.System.Data.DataColumn Private columnnctsGRT_AccessCode As Global.System.Data.DataColumn Private columnnctsGRT_AccountName As Global.System.Data.DataColumn Private columnnctsGRT_GoodsValue As Global.System.Data.DataColumn Private columnnctsGRT_CurrencyOfGoodsValue As Global.System.Data.DataColumn Private columnnctsGRT_FractionOfGoodsValue As Global.System.Data.DataColumn Private columnnctsGRT_CurrencyExchangeRateCustoms As Global.System.Data.DataColumn Private columnnctsGRT_CurrencyExchangeRateAccount As Global.System.Data.DataColumn Private columnnctsGRT_ExchangeDateCustoms As Global.System.Data.DataColumn Private columnnctsGRT_ExchangeDateAccount As Global.System.Data.DataColumn Private columnnctsGRT_CurrencyExchangeRateTypeCustoms As Global.System.Data.DataColumn Private columnnctsGRT_CurrencyExchangeRateTypeAccount As Global.System.Data.DataColumn Private columnnctsGRT_CalculateGoodsValueFromGoodsItems As Global.System.Data.DataColumn Private columnnctsGRT_Commentary As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut004_Guarantee" 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 nctsGRT_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_Id End Get End Property _ Public ReadOnly Property nctsGRT_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_NctsId End Get End Property _ Public ReadOnly Property nctsGRT_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_Type End Get End Property _ Public ReadOnly Property nctsGRT_OtherGuaranteeReferenceColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_OtherGuaranteeReference End Get End Property _ Public ReadOnly Property nctsGRT_CurrencyColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_Currency End Get End Property _ Public ReadOnly Property nctsGRT_AmountToBeCoveredColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_AmountToBeCovered End Get End Property _ Public ReadOnly Property nctsGRT_GRNColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_GRN End Get End Property _ Public ReadOnly Property nctsGRT_AccessCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_AccessCode End Get End Property _ Public ReadOnly Property nctsGRT_AccountNameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_AccountName End Get End Property _ Public ReadOnly Property nctsGRT_GoodsValueColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_GoodsValue End Get End Property _ Public ReadOnly Property nctsGRT_CurrencyOfGoodsValueColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_CurrencyOfGoodsValue End Get End Property _ Public ReadOnly Property nctsGRT_FractionOfGoodsValueColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_FractionOfGoodsValue End Get End Property _ Public ReadOnly Property nctsGRT_CurrencyExchangeRateCustomsColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_CurrencyExchangeRateCustoms End Get End Property _ Public ReadOnly Property nctsGRT_CurrencyExchangeRateAccountColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_CurrencyExchangeRateAccount End Get End Property _ Public ReadOnly Property nctsGRT_ExchangeDateCustomsColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_ExchangeDateCustoms End Get End Property _ Public ReadOnly Property nctsGRT_ExchangeDateAccountColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_ExchangeDateAccount End Get End Property _ Public ReadOnly Property nctsGRT_CurrencyExchangeRateTypeCustomsColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_CurrencyExchangeRateTypeCustoms End Get End Property _ Public ReadOnly Property nctsGRT_CurrencyExchangeRateTypeAccountColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_CurrencyExchangeRateTypeAccount End Get End Property _ Public ReadOnly Property nctsGRT_CalculateGoodsValueFromGoodsItemsColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_CalculateGoodsValueFromGoodsItems End Get End Property _ Public ReadOnly Property nctsGRT_CommentaryColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsGRT_Commentary 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 tblDakosy_NCTSOut004_GuaranteeRow Get Return CType(Me.Rows(index),tblDakosy_NCTSOut004_GuaranteeRow) End Get End Property _ Public Event tblDakosy_NCTSOut004_GuaranteeRowChanging As tblDakosy_NCTSOut004_GuaranteeRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_GuaranteeRowChanged As tblDakosy_NCTSOut004_GuaranteeRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_GuaranteeRowDeleting As tblDakosy_NCTSOut004_GuaranteeRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_GuaranteeRowDeleted As tblDakosy_NCTSOut004_GuaranteeRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOut004_GuaranteeRow(ByVal row As tblDakosy_NCTSOut004_GuaranteeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOut004_GuaranteeRow( _ ByVal nctsGRT_NctsId As Integer, _ ByVal nctsGRT_Type As String, _ ByVal nctsGRT_OtherGuaranteeReference As String, _ ByVal nctsGRT_Currency As String, _ ByVal nctsGRT_AmountToBeCovered As Decimal, _ ByVal nctsGRT_GRN As String, _ ByVal nctsGRT_AccessCode As String, _ ByVal nctsGRT_AccountName As String, _ ByVal nctsGRT_GoodsValue As Decimal, _ ByVal nctsGRT_CurrencyOfGoodsValue As String, _ ByVal nctsGRT_FractionOfGoodsValue As Decimal, _ ByVal nctsGRT_CurrencyExchangeRateCustoms As Decimal, _ ByVal nctsGRT_CurrencyExchangeRateAccount As Decimal, _ ByVal nctsGRT_ExchangeDateCustoms As Date, _ ByVal nctsGRT_ExchangeDateAccount As Date, _ ByVal nctsGRT_CurrencyExchangeRateTypeCustoms As String, _ ByVal nctsGRT_CurrencyExchangeRateTypeAccount As String, _ ByVal nctsGRT_CalculateGoodsValueFromGoodsItems As String, _ ByVal nctsGRT_Commentary As String) As tblDakosy_NCTSOut004_GuaranteeRow Dim rowtblDakosy_NCTSOut004_GuaranteeRow As tblDakosy_NCTSOut004_GuaranteeRow = CType(Me.NewRow,tblDakosy_NCTSOut004_GuaranteeRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsGRT_NctsId, nctsGRT_Type, nctsGRT_OtherGuaranteeReference, nctsGRT_Currency, nctsGRT_AmountToBeCovered, nctsGRT_GRN, nctsGRT_AccessCode, nctsGRT_AccountName, nctsGRT_GoodsValue, nctsGRT_CurrencyOfGoodsValue, nctsGRT_FractionOfGoodsValue, nctsGRT_CurrencyExchangeRateCustoms, nctsGRT_CurrencyExchangeRateAccount, nctsGRT_ExchangeDateCustoms, nctsGRT_ExchangeDateAccount, nctsGRT_CurrencyExchangeRateTypeCustoms, nctsGRT_CurrencyExchangeRateTypeAccount, nctsGRT_CalculateGoodsValueFromGoodsItems, nctsGRT_Commentary} rowtblDakosy_NCTSOut004_GuaranteeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOut004_GuaranteeRow) Return rowtblDakosy_NCTSOut004_GuaranteeRow End Function _ Public Function FindBynctsGRT_Id(ByVal nctsGRT_Id As Integer) As tblDakosy_NCTSOut004_GuaranteeRow Return CType(Me.Rows.Find(New Object() {nctsGRT_Id}),tblDakosy_NCTSOut004_GuaranteeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOut004_GuaranteeDataTable = CType(MyBase.Clone,tblDakosy_NCTSOut004_GuaranteeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOut004_GuaranteeDataTable() End Function _ Friend Sub InitVars() Me.columnnctsGRT_Id = MyBase.Columns("nctsGRT_Id") Me.columnnctsGRT_NctsId = MyBase.Columns("nctsGRT_NctsId") Me.columnnctsGRT_Type = MyBase.Columns("nctsGRT_Type") Me.columnnctsGRT_OtherGuaranteeReference = MyBase.Columns("nctsGRT_OtherGuaranteeReference") Me.columnnctsGRT_Currency = MyBase.Columns("nctsGRT_Currency") Me.columnnctsGRT_AmountToBeCovered = MyBase.Columns("nctsGRT_AmountToBeCovered") Me.columnnctsGRT_GRN = MyBase.Columns("nctsGRT_GRN") Me.columnnctsGRT_AccessCode = MyBase.Columns("nctsGRT_AccessCode") Me.columnnctsGRT_AccountName = MyBase.Columns("nctsGRT_AccountName") Me.columnnctsGRT_GoodsValue = MyBase.Columns("nctsGRT_GoodsValue") Me.columnnctsGRT_CurrencyOfGoodsValue = MyBase.Columns("nctsGRT_CurrencyOfGoodsValue") Me.columnnctsGRT_FractionOfGoodsValue = MyBase.Columns("nctsGRT_FractionOfGoodsValue") Me.columnnctsGRT_CurrencyExchangeRateCustoms = MyBase.Columns("nctsGRT_CurrencyExchangeRateCustoms") Me.columnnctsGRT_CurrencyExchangeRateAccount = MyBase.Columns("nctsGRT_CurrencyExchangeRateAccount") Me.columnnctsGRT_ExchangeDateCustoms = MyBase.Columns("nctsGRT_ExchangeDateCustoms") Me.columnnctsGRT_ExchangeDateAccount = MyBase.Columns("nctsGRT_ExchangeDateAccount") Me.columnnctsGRT_CurrencyExchangeRateTypeCustoms = MyBase.Columns("nctsGRT_CurrencyExchangeRateTypeCustoms") Me.columnnctsGRT_CurrencyExchangeRateTypeAccount = MyBase.Columns("nctsGRT_CurrencyExchangeRateTypeAccount") Me.columnnctsGRT_CalculateGoodsValueFromGoodsItems = MyBase.Columns("nctsGRT_CalculateGoodsValueFromGoodsItems") Me.columnnctsGRT_Commentary = MyBase.Columns("nctsGRT_Commentary") End Sub _ Private Sub InitClass() Me.columnnctsGRT_Id = New Global.System.Data.DataColumn("nctsGRT_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_Id) Me.columnnctsGRT_NctsId = New Global.System.Data.DataColumn("nctsGRT_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_NctsId) Me.columnnctsGRT_Type = New Global.System.Data.DataColumn("nctsGRT_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_Type) Me.columnnctsGRT_OtherGuaranteeReference = New Global.System.Data.DataColumn("nctsGRT_OtherGuaranteeReference", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_OtherGuaranteeReference) Me.columnnctsGRT_Currency = New Global.System.Data.DataColumn("nctsGRT_Currency", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_Currency) Me.columnnctsGRT_AmountToBeCovered = New Global.System.Data.DataColumn("nctsGRT_AmountToBeCovered", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_AmountToBeCovered) Me.columnnctsGRT_GRN = New Global.System.Data.DataColumn("nctsGRT_GRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_GRN) Me.columnnctsGRT_AccessCode = New Global.System.Data.DataColumn("nctsGRT_AccessCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_AccessCode) Me.columnnctsGRT_AccountName = New Global.System.Data.DataColumn("nctsGRT_AccountName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_AccountName) Me.columnnctsGRT_GoodsValue = New Global.System.Data.DataColumn("nctsGRT_GoodsValue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_GoodsValue) Me.columnnctsGRT_CurrencyOfGoodsValue = New Global.System.Data.DataColumn("nctsGRT_CurrencyOfGoodsValue", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_CurrencyOfGoodsValue) Me.columnnctsGRT_FractionOfGoodsValue = New Global.System.Data.DataColumn("nctsGRT_FractionOfGoodsValue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_FractionOfGoodsValue) Me.columnnctsGRT_CurrencyExchangeRateCustoms = New Global.System.Data.DataColumn("nctsGRT_CurrencyExchangeRateCustoms", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_CurrencyExchangeRateCustoms) Me.columnnctsGRT_CurrencyExchangeRateAccount = New Global.System.Data.DataColumn("nctsGRT_CurrencyExchangeRateAccount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_CurrencyExchangeRateAccount) Me.columnnctsGRT_ExchangeDateCustoms = New Global.System.Data.DataColumn("nctsGRT_ExchangeDateCustoms", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_ExchangeDateCustoms) Me.columnnctsGRT_ExchangeDateAccount = New Global.System.Data.DataColumn("nctsGRT_ExchangeDateAccount", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_ExchangeDateAccount) Me.columnnctsGRT_CurrencyExchangeRateTypeCustoms = New Global.System.Data.DataColumn("nctsGRT_CurrencyExchangeRateTypeCustoms", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_CurrencyExchangeRateTypeCustoms) Me.columnnctsGRT_CurrencyExchangeRateTypeAccount = New Global.System.Data.DataColumn("nctsGRT_CurrencyExchangeRateTypeAccount", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_CurrencyExchangeRateTypeAccount) Me.columnnctsGRT_CalculateGoodsValueFromGoodsItems = New Global.System.Data.DataColumn("nctsGRT_CalculateGoodsValueFromGoodsItems", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_CalculateGoodsValueFromGoodsItems) Me.columnnctsGRT_Commentary = New Global.System.Data.DataColumn("nctsGRT_Commentary", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsGRT_Commentary) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsGRT_Id}, true)) Me.columnnctsGRT_Id.AutoIncrement = true Me.columnnctsGRT_Id.AutoIncrementSeed = -1 Me.columnnctsGRT_Id.AutoIncrementStep = -1 Me.columnnctsGRT_Id.AllowDBNull = false Me.columnnctsGRT_Id.ReadOnly = true Me.columnnctsGRT_Id.Unique = true Me.columnnctsGRT_NctsId.AllowDBNull = false Me.columnnctsGRT_Type.MaxLength = 2 Me.columnnctsGRT_OtherGuaranteeReference.MaxLength = 35 Me.columnnctsGRT_Currency.MaxLength = 3 Me.columnnctsGRT_GRN.MaxLength = 24 Me.columnnctsGRT_AccessCode.MaxLength = 4 Me.columnnctsGRT_AccountName.MaxLength = 15 Me.columnnctsGRT_CurrencyOfGoodsValue.MaxLength = 3 Me.columnnctsGRT_CurrencyExchangeRateTypeCustoms.MaxLength = 9 Me.columnnctsGRT_CurrencyExchangeRateTypeAccount.MaxLength = 10 Me.columnnctsGRT_CalculateGoodsValueFromGoodsItems.MaxLength = 1 Me.columnnctsGRT_Commentary.MaxLength = 50 End Sub _ Public Function NewtblDakosy_NCTSOut004_GuaranteeRow() As tblDakosy_NCTSOut004_GuaranteeRow Return CType(Me.NewRow,tblDakosy_NCTSOut004_GuaranteeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOut004_GuaranteeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOut004_GuaranteeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOut004_GuaranteeRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_GuaranteeRowChanged(Me, New tblDakosy_NCTSOut004_GuaranteeRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_GuaranteeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOut004_GuaranteeRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_GuaranteeRowChanging(Me, New tblDakosy_NCTSOut004_GuaranteeRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_GuaranteeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOut004_GuaranteeRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_GuaranteeRowDeleted(Me, New tblDakosy_NCTSOut004_GuaranteeRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_GuaranteeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOut004_GuaranteeRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_GuaranteeRowDeleting(Me, New tblDakosy_NCTSOut004_GuaranteeRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_GuaranteeRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOut004_GuaranteeRow(ByVal row As tblDakosy_NCTSOut004_GuaranteeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOut004_GuaranteeDataTable" 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 tblDakosy_NCTSOut004_HouseConsignmentDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOut004_HouseConsignmentRow) Private columnnctsHC_Id As Global.System.Data.DataColumn Private columnnctsHC_NctsId As Global.System.Data.DataColumn Private columnnctsHC_HouseConsignMentReference As Global.System.Data.DataColumn Private columnnctsHC_CountryOfDispatch As Global.System.Data.DataColumn Private columnnctsHC_CountryOfDestination As Global.System.Data.DataColumn Private columnnctsHC_GrossMass As Global.System.Data.DataColumn Private columnnctsHC_ReferenceNumberUCR As Global.System.Data.DataColumn Private columnnctsHC_Consignor_AdressCode As Global.System.Data.DataColumn Private columnnctsHC_Consignor_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_Consignor_SubsidiaryNumber As Global.System.Data.DataColumn Private columnnctsHC_Consignor_Name As Global.System.Data.DataColumn Private columnnctsHC_Consignor_StreetNumber As Global.System.Data.DataColumn Private columnnctsHC_Consignor_City As Global.System.Data.DataColumn Private columnnctsHC_Consignor_Postcode As Global.System.Data.DataColumn Private columnnctsHC_Consignor_Country As Global.System.Data.DataColumn Private columnnctsHC_Consignor_ContactPerson_Name As Global.System.Data.DataColumn Private columnnctsHC_Consignor_ContactPerson_PhoneNumber As Global.System.Data.DataColumn Private columnnctsHC_Consignor_ContactPerson_EMailAddress As Global.System.Data.DataColumn Private columnnctsHC_Consignee_AdressCode As Global.System.Data.DataColumn Private columnnctsHC_Consignee_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_Consignee_SubsidiaryNumber As Global.System.Data.DataColumn Private columnnctsHC_Consignee_Name As Global.System.Data.DataColumn Private columnnctsHC_Consignee_StreetNumber As Global.System.Data.DataColumn Private columnnctsHC_Consignee_City As Global.System.Data.DataColumn Private columnnctsHC_Consignee_Postcode As Global.System.Data.DataColumn Private columnnctsHC_Consignee_Country As Global.System.Data.DataColumn Private columnnctsHC_Consignee_ContactPerson_Name As Global.System.Data.DataColumn Private columnnctsHC_Consignee_ContactPerson_PhoneNumber As Global.System.Data.DataColumn Private columnnctsHC_Consignee_ContactPerson_EMailAddress As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_1_Role As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_2_Role As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_3_Role As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_4_Role As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_5_Role As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_6_Role As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_7_Role As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_8_Role As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_9_Role As Global.System.Data.DataColumn Private columnnctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_1_Type As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_1_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_1_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_1_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_2_Type As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_2_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_2_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_2_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_3_Type As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_3_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_3_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_3_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_4_Type As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_4_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_4_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_4_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_5_Type As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_5_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_5_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_5_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_6_Type As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_6_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_6_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_6_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_7_Type As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_7_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_7_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_7_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_8_Type As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_8_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_8_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_8_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_9_Type As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_9_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_9_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHC_SupportingDocument_9_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_1_Type As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_1_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_1_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_2_Type As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_2_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_2_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_3_Type As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_3_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_3_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_4_Type As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_4_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_4_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_5_Type As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_5_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_5_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_6_Type As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_6_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_6_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_7_Type As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_7_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_7_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_8_Type As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_8_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_8_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_9_Type As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_9_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_PreviousDocument_9_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_1_Type As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_1_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_2_Type As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_2_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_3_Type As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_3_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_4_Type As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_4_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_5_Type As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_5_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_6_Type As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_6_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_7_Type As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_7_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_8_Type As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_8_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_9_Type As Global.System.Data.DataColumn Private columnnctsHC_TransportDocument_9_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_1_Type As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_1_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_2_Type As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_2_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_3_Type As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_3_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_4_Type As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_4_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_5_Type As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_5_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_6_Type As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_6_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_7_Type As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_7_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_8_Type As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_8_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_9_Type As Global.System.Data.DataColumn Private columnnctsHC_AdditionalReference_9_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_1_Code As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_1_Text As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_2_Code As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_2_Text As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_3_Code As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_3_Text As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_4_Code As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_4_Text As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_5_Code As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_5_Text As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_6_Code As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_6_Text As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_7_Code As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_7_Text As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_8_Code As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_8_Text As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_9_Code As Global.System.Data.DataColumn Private columnnctsHC_AdditionalInformation_9_Text As Global.System.Data.DataColumn Private columnnctsHC_TransportCharges As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut004_HouseConsignment" 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 nctsHC_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Id End Get End Property _ Public ReadOnly Property nctsHC_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_NctsId End Get End Property _ Public ReadOnly Property nctsHC_HouseConsignMentReferenceColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_HouseConsignMentReference End Get End Property _ Public ReadOnly Property nctsHC_CountryOfDispatchColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_CountryOfDispatch End Get End Property _ Public ReadOnly Property nctsHC_CountryOfDestinationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_CountryOfDestination End Get End Property _ Public ReadOnly Property nctsHC_GrossMassColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_GrossMass End Get End Property _ Public ReadOnly Property nctsHC_ReferenceNumberUCRColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_ReferenceNumberUCR End Get End Property _ Public ReadOnly Property nctsHC_Consignor_AdressCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_AdressCode End Get End Property _ Public ReadOnly Property nctsHC_Consignor_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_Consignor_SubsidiaryNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_SubsidiaryNumber End Get End Property _ Public ReadOnly Property nctsHC_Consignor_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_Name End Get End Property _ Public ReadOnly Property nctsHC_Consignor_StreetNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_StreetNumber End Get End Property _ Public ReadOnly Property nctsHC_Consignor_CityColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_City End Get End Property _ Public ReadOnly Property nctsHC_Consignor_PostcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_Postcode End Get End Property _ Public ReadOnly Property nctsHC_Consignor_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_Country End Get End Property _ Public ReadOnly Property nctsHC_Consignor_ContactPerson_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_ContactPerson_Name End Get End Property _ Public ReadOnly Property nctsHC_Consignor_ContactPerson_PhoneNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_ContactPerson_PhoneNumber End Get End Property _ Public ReadOnly Property nctsHC_Consignor_ContactPerson_EMailAddressColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignor_ContactPerson_EMailAddress End Get End Property _ Public ReadOnly Property nctsHC_Consignee_AdressCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_AdressCode End Get End Property _ Public ReadOnly Property nctsHC_Consignee_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_Consignee_SubsidiaryNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_SubsidiaryNumber End Get End Property _ Public ReadOnly Property nctsHC_Consignee_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_Name End Get End Property _ Public ReadOnly Property nctsHC_Consignee_StreetNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_StreetNumber End Get End Property _ Public ReadOnly Property nctsHC_Consignee_CityColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_City End Get End Property _ Public ReadOnly Property nctsHC_Consignee_PostcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_Postcode End Get End Property _ Public ReadOnly Property nctsHC_Consignee_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_Country End Get End Property _ Public ReadOnly Property nctsHC_Consignee_ContactPerson_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_ContactPerson_Name End Get End Property _ Public ReadOnly Property nctsHC_Consignee_ContactPerson_PhoneNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_ContactPerson_PhoneNumber End Get End Property _ Public ReadOnly Property nctsHC_Consignee_ContactPerson_EMailAddressColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_Consignee_ContactPerson_EMailAddress End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_1_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_1_Role End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_1_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_1_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_2_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_2_Role End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_2_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_2_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_3_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_3_Role End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_3_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_3_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_4_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_4_Role End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_4_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_4_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_5_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_5_Role End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_5_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_5_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_6_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_6_Role End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_6_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_6_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_7_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_7_Role End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_7_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_7_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_8_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_8_Role End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_8_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_8_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_9_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_9_Role End Get End Property _ Public ReadOnly Property nctsHC_AdditionalSupplyChainActor_9_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalSupplyChainActor_9_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_1_Type End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_1_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_1_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_1_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_1_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_1_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_2_Type End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_2_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_2_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_2_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_2_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_2_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_3_Type End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_3_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_3_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_3_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_3_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_3_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_4_Type End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_4_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_4_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_4_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_4_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_4_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_5_Type End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_5_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_5_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_5_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_5_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_5_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_6_Type End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_6_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_6_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_6_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_6_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_6_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_7_Type End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_7_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_7_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_7_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_7_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_7_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_8_Type End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_8_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_8_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_8_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_8_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_8_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_9_Type End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_9_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_9_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_9_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHC_SupportingDocument_9_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_SupportingDocument_9_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_1_Type End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_1_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_1_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_1_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_2_Type End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_2_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_2_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_2_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_3_Type End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_3_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_3_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_3_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_4_Type End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_4_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_4_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_4_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_5_Type End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_5_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_5_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_5_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_6_Type End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_6_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_6_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_6_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_7_Type End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_7_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_7_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_7_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_8_Type End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_8_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_8_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_8_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_9_Type End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_9_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_PreviousDocument_9_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_PreviousDocument_9_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_1_Type End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_1_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_2_Type End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_2_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_3_Type End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_3_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_4_Type End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_4_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_5_Type End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_5_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_6_Type End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_6_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_7_Type End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_7_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_8_Type End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_8_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_9_Type End Get End Property _ Public ReadOnly Property nctsHC_TransportDocument_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportDocument_9_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_1_Type End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_1_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_2_Type End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_2_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_3_Type End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_3_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_4_Type End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_4_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_5_Type End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_5_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_6_Type End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_6_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_7_Type End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_7_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_8_Type End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_8_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_9_Type End Get End Property _ Public ReadOnly Property nctsHC_AdditionalReference_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalReference_9_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_1_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_1_Code End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_1_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_1_Text End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_2_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_2_Code End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_2_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_2_Text End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_3_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_3_Code End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_3_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_3_Text End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_4_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_4_Code End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_4_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_4_Text End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_5_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_5_Code End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_5_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_5_Text End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_6_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_6_Code End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_6_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_6_Text End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_7_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_7_Code End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_7_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_7_Text End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_8_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_8_Code End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_8_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_8_Text End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_9_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_9_Code End Get End Property _ Public ReadOnly Property nctsHC_AdditionalInformation_9_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_AdditionalInformation_9_Text End Get End Property _ Public ReadOnly Property nctsHC_TransportChargesColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHC_TransportCharges 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 tblDakosy_NCTSOut004_HouseConsignmentRow Get Return CType(Me.Rows(index),tblDakosy_NCTSOut004_HouseConsignmentRow) End Get End Property _ Public Event tblDakosy_NCTSOut004_HouseConsignmentRowChanging As tblDakosy_NCTSOut004_HouseConsignmentRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_HouseConsignmentRowChanged As tblDakosy_NCTSOut004_HouseConsignmentRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_HouseConsignmentRowDeleting As tblDakosy_NCTSOut004_HouseConsignmentRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_HouseConsignmentRowDeleted As tblDakosy_NCTSOut004_HouseConsignmentRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOut004_HouseConsignmentRow(ByVal row As tblDakosy_NCTSOut004_HouseConsignmentRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOut004_HouseConsignmentRow( _ ByVal nctsHC_NctsId As Integer, _ ByVal nctsHC_HouseConsignMentReference As String, _ ByVal nctsHC_CountryOfDispatch As String, _ ByVal nctsHC_CountryOfDestination As String, _ ByVal nctsHC_GrossMass As Decimal, _ ByVal nctsHC_ReferenceNumberUCR As String, _ ByVal nctsHC_Consignor_AdressCode As String, _ ByVal nctsHC_Consignor_IdentificationNumber As String, _ ByVal nctsHC_Consignor_SubsidiaryNumber As String, _ ByVal nctsHC_Consignor_Name As String, _ ByVal nctsHC_Consignor_StreetNumber As String, _ ByVal nctsHC_Consignor_City As String, _ ByVal nctsHC_Consignor_Postcode As String, _ ByVal nctsHC_Consignor_Country As String, _ ByVal nctsHC_Consignor_ContactPerson_Name As String, _ ByVal nctsHC_Consignor_ContactPerson_PhoneNumber As String, _ ByVal nctsHC_Consignor_ContactPerson_EMailAddress As String, _ ByVal nctsHC_Consignee_AdressCode As String, _ ByVal nctsHC_Consignee_IdentificationNumber As String, _ ByVal nctsHC_Consignee_SubsidiaryNumber As String, _ ByVal nctsHC_Consignee_Name As String, _ ByVal nctsHC_Consignee_StreetNumber As String, _ ByVal nctsHC_Consignee_City As String, _ ByVal nctsHC_Consignee_Postcode As String, _ ByVal nctsHC_Consignee_Country As String, _ ByVal nctsHC_Consignee_ContactPerson_Name As String, _ ByVal nctsHC_Consignee_ContactPerson_PhoneNumber As String, _ ByVal nctsHC_Consignee_ContactPerson_EMailAddress As String, _ ByVal nctsHC_AdditionalSupplyChainActor_1_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_2_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_3_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_4_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_5_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_6_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_7_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_8_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_9_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal nctsHC_SupportingDocument_1_Type As String, _ ByVal nctsHC_SupportingDocument_1_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_1_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_2_Type As String, _ ByVal nctsHC_SupportingDocument_2_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_2_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_3_Type As String, _ ByVal nctsHC_SupportingDocument_3_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_3_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_4_Type As String, _ ByVal nctsHC_SupportingDocument_4_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_4_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_5_Type As String, _ ByVal nctsHC_SupportingDocument_5_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_5_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_6_Type As String, _ ByVal nctsHC_SupportingDocument_6_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_6_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_7_Type As String, _ ByVal nctsHC_SupportingDocument_7_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_7_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_8_Type As String, _ ByVal nctsHC_SupportingDocument_8_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_8_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_9_Type As String, _ ByVal nctsHC_SupportingDocument_9_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_9_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_1_Type As String, _ ByVal nctsHC_PreviousDocument_1_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_1_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_2_Type As String, _ ByVal nctsHC_PreviousDocument_2_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_2_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_3_Type As String, _ ByVal nctsHC_PreviousDocument_3_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_3_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_4_Type As String, _ ByVal nctsHC_PreviousDocument_4_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_4_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_5_Type As String, _ ByVal nctsHC_PreviousDocument_5_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_5_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_6_Type As String, _ ByVal nctsHC_PreviousDocument_6_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_6_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_7_Type As String, _ ByVal nctsHC_PreviousDocument_7_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_7_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_8_Type As String, _ ByVal nctsHC_PreviousDocument_8_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_8_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_9_Type As String, _ ByVal nctsHC_PreviousDocument_9_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_9_ComplementOfInformation As String, _ ByVal nctsHC_TransportDocument_1_Type As String, _ ByVal nctsHC_TransportDocument_1_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_2_Type As String, _ ByVal nctsHC_TransportDocument_2_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_3_Type As String, _ ByVal nctsHC_TransportDocument_3_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_4_Type As String, _ ByVal nctsHC_TransportDocument_4_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_5_Type As String, _ ByVal nctsHC_TransportDocument_5_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_6_Type As String, _ ByVal nctsHC_TransportDocument_6_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_7_Type As String, _ ByVal nctsHC_TransportDocument_7_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_8_Type As String, _ ByVal nctsHC_TransportDocument_8_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_9_Type As String, _ ByVal nctsHC_TransportDocument_9_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_1_Type As String, _ ByVal nctsHC_AdditionalReference_1_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_2_Type As String, _ ByVal nctsHC_AdditionalReference_2_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_3_Type As String, _ ByVal nctsHC_AdditionalReference_3_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_4_Type As String, _ ByVal nctsHC_AdditionalReference_4_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_5_Type As String, _ ByVal nctsHC_AdditionalReference_5_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_6_Type As String, _ ByVal nctsHC_AdditionalReference_6_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_7_Type As String, _ ByVal nctsHC_AdditionalReference_7_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_8_Type As String, _ ByVal nctsHC_AdditionalReference_8_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_9_Type As String, _ ByVal nctsHC_AdditionalReference_9_ReferenceNumber As String, _ ByVal nctsHC_AdditionalInformation_1_Code As String, _ ByVal nctsHC_AdditionalInformation_1_Text As String, _ ByVal nctsHC_AdditionalInformation_2_Code As String, _ ByVal nctsHC_AdditionalInformation_2_Text As String, _ ByVal nctsHC_AdditionalInformation_3_Code As String, _ ByVal nctsHC_AdditionalInformation_3_Text As String, _ ByVal nctsHC_AdditionalInformation_4_Code As String, _ ByVal nctsHC_AdditionalInformation_4_Text As String, _ ByVal nctsHC_AdditionalInformation_5_Code As String, _ ByVal nctsHC_AdditionalInformation_5_Text As String, _ ByVal nctsHC_AdditionalInformation_6_Code As String, _ ByVal nctsHC_AdditionalInformation_6_Text As String, _ ByVal nctsHC_AdditionalInformation_7_Code As String, _ ByVal nctsHC_AdditionalInformation_7_Text As String, _ ByVal nctsHC_AdditionalInformation_8_Code As String, _ ByVal nctsHC_AdditionalInformation_8_Text As String, _ ByVal nctsHC_AdditionalInformation_9_Code As String, _ ByVal nctsHC_AdditionalInformation_9_Text As String, _ ByVal nctsHC_TransportCharges As String) As tblDakosy_NCTSOut004_HouseConsignmentRow Dim rowtblDakosy_NCTSOut004_HouseConsignmentRow As tblDakosy_NCTSOut004_HouseConsignmentRow = CType(Me.NewRow,tblDakosy_NCTSOut004_HouseConsignmentRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsHC_NctsId, nctsHC_HouseConsignMentReference, nctsHC_CountryOfDispatch, nctsHC_CountryOfDestination, nctsHC_GrossMass, nctsHC_ReferenceNumberUCR, nctsHC_Consignor_AdressCode, nctsHC_Consignor_IdentificationNumber, nctsHC_Consignor_SubsidiaryNumber, nctsHC_Consignor_Name, nctsHC_Consignor_StreetNumber, nctsHC_Consignor_City, nctsHC_Consignor_Postcode, nctsHC_Consignor_Country, nctsHC_Consignor_ContactPerson_Name, nctsHC_Consignor_ContactPerson_PhoneNumber, nctsHC_Consignor_ContactPerson_EMailAddress, nctsHC_Consignee_AdressCode, nctsHC_Consignee_IdentificationNumber, nctsHC_Consignee_SubsidiaryNumber, nctsHC_Consignee_Name, nctsHC_Consignee_StreetNumber, nctsHC_Consignee_City, nctsHC_Consignee_Postcode, nctsHC_Consignee_Country, nctsHC_Consignee_ContactPerson_Name, nctsHC_Consignee_ContactPerson_PhoneNumber, nctsHC_Consignee_ContactPerson_EMailAddress, nctsHC_AdditionalSupplyChainActor_1_Role, nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_2_Role, nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_3_Role, nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_4_Role, nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_5_Role, nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_6_Role, nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_7_Role, nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_8_Role, nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_9_Role, nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber, nctsHC_SupportingDocument_1_Type, nctsHC_SupportingDocument_1_ReferenceNumber, nctsHC_SupportingDocument_1_DocumentLineItemNumber, nctsHC_SupportingDocument_1_ComplementOfInformation, nctsHC_SupportingDocument_2_Type, nctsHC_SupportingDocument_2_ReferenceNumber, nctsHC_SupportingDocument_2_DocumentLineItemNumber, nctsHC_SupportingDocument_2_ComplementOfInformation, nctsHC_SupportingDocument_3_Type, nctsHC_SupportingDocument_3_ReferenceNumber, nctsHC_SupportingDocument_3_DocumentLineItemNumber, nctsHC_SupportingDocument_3_ComplementOfInformation, nctsHC_SupportingDocument_4_Type, nctsHC_SupportingDocument_4_ReferenceNumber, nctsHC_SupportingDocument_4_DocumentLineItemNumber, nctsHC_SupportingDocument_4_ComplementOfInformation, nctsHC_SupportingDocument_5_Type, nctsHC_SupportingDocument_5_ReferenceNumber, nctsHC_SupportingDocument_5_DocumentLineItemNumber, nctsHC_SupportingDocument_5_ComplementOfInformation, nctsHC_SupportingDocument_6_Type, nctsHC_SupportingDocument_6_ReferenceNumber, nctsHC_SupportingDocument_6_DocumentLineItemNumber, nctsHC_SupportingDocument_6_ComplementOfInformation, nctsHC_SupportingDocument_7_Type, nctsHC_SupportingDocument_7_ReferenceNumber, nctsHC_SupportingDocument_7_DocumentLineItemNumber, nctsHC_SupportingDocument_7_ComplementOfInformation, nctsHC_SupportingDocument_8_Type, nctsHC_SupportingDocument_8_ReferenceNumber, nctsHC_SupportingDocument_8_DocumentLineItemNumber, nctsHC_SupportingDocument_8_ComplementOfInformation, nctsHC_SupportingDocument_9_Type, nctsHC_SupportingDocument_9_ReferenceNumber, nctsHC_SupportingDocument_9_DocumentLineItemNumber, nctsHC_SupportingDocument_9_ComplementOfInformation, nctsHC_PreviousDocument_1_Type, nctsHC_PreviousDocument_1_ReferenceNumber, nctsHC_PreviousDocument_1_ComplementOfInformation, nctsHC_PreviousDocument_2_Type, nctsHC_PreviousDocument_2_ReferenceNumber, nctsHC_PreviousDocument_2_ComplementOfInformation, nctsHC_PreviousDocument_3_Type, nctsHC_PreviousDocument_3_ReferenceNumber, nctsHC_PreviousDocument_3_ComplementOfInformation, nctsHC_PreviousDocument_4_Type, nctsHC_PreviousDocument_4_ReferenceNumber, nctsHC_PreviousDocument_4_ComplementOfInformation, nctsHC_PreviousDocument_5_Type, nctsHC_PreviousDocument_5_ReferenceNumber, nctsHC_PreviousDocument_5_ComplementOfInformation, nctsHC_PreviousDocument_6_Type, nctsHC_PreviousDocument_6_ReferenceNumber, nctsHC_PreviousDocument_6_ComplementOfInformation, nctsHC_PreviousDocument_7_Type, nctsHC_PreviousDocument_7_ReferenceNumber, nctsHC_PreviousDocument_7_ComplementOfInformation, nctsHC_PreviousDocument_8_Type, nctsHC_PreviousDocument_8_ReferenceNumber, nctsHC_PreviousDocument_8_ComplementOfInformation, nctsHC_PreviousDocument_9_Type, nctsHC_PreviousDocument_9_ReferenceNumber, nctsHC_PreviousDocument_9_ComplementOfInformation, nctsHC_TransportDocument_1_Type, nctsHC_TransportDocument_1_ReferenceNumber, nctsHC_TransportDocument_2_Type, nctsHC_TransportDocument_2_ReferenceNumber, nctsHC_TransportDocument_3_Type, nctsHC_TransportDocument_3_ReferenceNumber, nctsHC_TransportDocument_4_Type, nctsHC_TransportDocument_4_ReferenceNumber, nctsHC_TransportDocument_5_Type, nctsHC_TransportDocument_5_ReferenceNumber, nctsHC_TransportDocument_6_Type, nctsHC_TransportDocument_6_ReferenceNumber, nctsHC_TransportDocument_7_Type, nctsHC_TransportDocument_7_ReferenceNumber, nctsHC_TransportDocument_8_Type, nctsHC_TransportDocument_8_ReferenceNumber, nctsHC_TransportDocument_9_Type, nctsHC_TransportDocument_9_ReferenceNumber, nctsHC_AdditionalReference_1_Type, nctsHC_AdditionalReference_1_ReferenceNumber, nctsHC_AdditionalReference_2_Type, nctsHC_AdditionalReference_2_ReferenceNumber, nctsHC_AdditionalReference_3_Type, nctsHC_AdditionalReference_3_ReferenceNumber, nctsHC_AdditionalReference_4_Type, nctsHC_AdditionalReference_4_ReferenceNumber, nctsHC_AdditionalReference_5_Type, nctsHC_AdditionalReference_5_ReferenceNumber, nctsHC_AdditionalReference_6_Type, nctsHC_AdditionalReference_6_ReferenceNumber, nctsHC_AdditionalReference_7_Type, nctsHC_AdditionalReference_7_ReferenceNumber, nctsHC_AdditionalReference_8_Type, nctsHC_AdditionalReference_8_ReferenceNumber, nctsHC_AdditionalReference_9_Type, nctsHC_AdditionalReference_9_ReferenceNumber, nctsHC_AdditionalInformation_1_Code, nctsHC_AdditionalInformation_1_Text, nctsHC_AdditionalInformation_2_Code, nctsHC_AdditionalInformation_2_Text, nctsHC_AdditionalInformation_3_Code, nctsHC_AdditionalInformation_3_Text, nctsHC_AdditionalInformation_4_Code, nctsHC_AdditionalInformation_4_Text, nctsHC_AdditionalInformation_5_Code, nctsHC_AdditionalInformation_5_Text, nctsHC_AdditionalInformation_6_Code, nctsHC_AdditionalInformation_6_Text, nctsHC_AdditionalInformation_7_Code, nctsHC_AdditionalInformation_7_Text, nctsHC_AdditionalInformation_8_Code, nctsHC_AdditionalInformation_8_Text, nctsHC_AdditionalInformation_9_Code, nctsHC_AdditionalInformation_9_Text, nctsHC_TransportCharges} rowtblDakosy_NCTSOut004_HouseConsignmentRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOut004_HouseConsignmentRow) Return rowtblDakosy_NCTSOut004_HouseConsignmentRow End Function _ Public Function FindBynctsHC_Id(ByVal nctsHC_Id As Integer) As tblDakosy_NCTSOut004_HouseConsignmentRow Return CType(Me.Rows.Find(New Object() {nctsHC_Id}),tblDakosy_NCTSOut004_HouseConsignmentRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOut004_HouseConsignmentDataTable = CType(MyBase.Clone,tblDakosy_NCTSOut004_HouseConsignmentDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOut004_HouseConsignmentDataTable() End Function _ Friend Sub InitVars() Me.columnnctsHC_Id = MyBase.Columns("nctsHC_Id") Me.columnnctsHC_NctsId = MyBase.Columns("nctsHC_NctsId") Me.columnnctsHC_HouseConsignMentReference = MyBase.Columns("nctsHC_HouseConsignMentReference") Me.columnnctsHC_CountryOfDispatch = MyBase.Columns("nctsHC_CountryOfDispatch") Me.columnnctsHC_CountryOfDestination = MyBase.Columns("nctsHC_CountryOfDestination") Me.columnnctsHC_GrossMass = MyBase.Columns("nctsHC_GrossMass") Me.columnnctsHC_ReferenceNumberUCR = MyBase.Columns("nctsHC_ReferenceNumberUCR") Me.columnnctsHC_Consignor_AdressCode = MyBase.Columns("nctsHC_Consignor_AdressCode") Me.columnnctsHC_Consignor_IdentificationNumber = MyBase.Columns("nctsHC_Consignor_IdentificationNumber") Me.columnnctsHC_Consignor_SubsidiaryNumber = MyBase.Columns("nctsHC_Consignor_SubsidiaryNumber") Me.columnnctsHC_Consignor_Name = MyBase.Columns("nctsHC_Consignor_Name") Me.columnnctsHC_Consignor_StreetNumber = MyBase.Columns("nctsHC_Consignor_StreetNumber") Me.columnnctsHC_Consignor_City = MyBase.Columns("nctsHC_Consignor_City") Me.columnnctsHC_Consignor_Postcode = MyBase.Columns("nctsHC_Consignor_Postcode") Me.columnnctsHC_Consignor_Country = MyBase.Columns("nctsHC_Consignor_Country") Me.columnnctsHC_Consignor_ContactPerson_Name = MyBase.Columns("nctsHC_Consignor_ContactPerson_Name") Me.columnnctsHC_Consignor_ContactPerson_PhoneNumber = MyBase.Columns("nctsHC_Consignor_ContactPerson_PhoneNumber") Me.columnnctsHC_Consignor_ContactPerson_EMailAddress = MyBase.Columns("nctsHC_Consignor_ContactPerson_EMailAddress") Me.columnnctsHC_Consignee_AdressCode = MyBase.Columns("nctsHC_Consignee_AdressCode") Me.columnnctsHC_Consignee_IdentificationNumber = MyBase.Columns("nctsHC_Consignee_IdentificationNumber") Me.columnnctsHC_Consignee_SubsidiaryNumber = MyBase.Columns("nctsHC_Consignee_SubsidiaryNumber") Me.columnnctsHC_Consignee_Name = MyBase.Columns("nctsHC_Consignee_Name") Me.columnnctsHC_Consignee_StreetNumber = MyBase.Columns("nctsHC_Consignee_StreetNumber") Me.columnnctsHC_Consignee_City = MyBase.Columns("nctsHC_Consignee_City") Me.columnnctsHC_Consignee_Postcode = MyBase.Columns("nctsHC_Consignee_Postcode") Me.columnnctsHC_Consignee_Country = MyBase.Columns("nctsHC_Consignee_Country") Me.columnnctsHC_Consignee_ContactPerson_Name = MyBase.Columns("nctsHC_Consignee_ContactPerson_Name") Me.columnnctsHC_Consignee_ContactPerson_PhoneNumber = MyBase.Columns("nctsHC_Consignee_ContactPerson_PhoneNumber") Me.columnnctsHC_Consignee_ContactPerson_EMailAddress = MyBase.Columns("nctsHC_Consignee_ContactPerson_EMailAddress") Me.columnnctsHC_AdditionalSupplyChainActor_1_Role = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_1_Role") Me.columnnctsHC_AdditionalSupplyChainActor_1_IdentificationNumber = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber") Me.columnnctsHC_AdditionalSupplyChainActor_2_Role = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_2_Role") Me.columnnctsHC_AdditionalSupplyChainActor_2_IdentificationNumber = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber") Me.columnnctsHC_AdditionalSupplyChainActor_3_Role = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_3_Role") Me.columnnctsHC_AdditionalSupplyChainActor_3_IdentificationNumber = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber") Me.columnnctsHC_AdditionalSupplyChainActor_4_Role = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_4_Role") Me.columnnctsHC_AdditionalSupplyChainActor_4_IdentificationNumber = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber") Me.columnnctsHC_AdditionalSupplyChainActor_5_Role = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_5_Role") Me.columnnctsHC_AdditionalSupplyChainActor_5_IdentificationNumber = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber") Me.columnnctsHC_AdditionalSupplyChainActor_6_Role = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_6_Role") Me.columnnctsHC_AdditionalSupplyChainActor_6_IdentificationNumber = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber") Me.columnnctsHC_AdditionalSupplyChainActor_7_Role = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_7_Role") Me.columnnctsHC_AdditionalSupplyChainActor_7_IdentificationNumber = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber") Me.columnnctsHC_AdditionalSupplyChainActor_8_Role = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_8_Role") Me.columnnctsHC_AdditionalSupplyChainActor_8_IdentificationNumber = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber") Me.columnnctsHC_AdditionalSupplyChainActor_9_Role = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_9_Role") Me.columnnctsHC_AdditionalSupplyChainActor_9_IdentificationNumber = MyBase.Columns("nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber") Me.columnnctsHC_SupportingDocument_1_Type = MyBase.Columns("nctsHC_SupportingDocument_1_Type") Me.columnnctsHC_SupportingDocument_1_ReferenceNumber = MyBase.Columns("nctsHC_SupportingDocument_1_ReferenceNumber") Me.columnnctsHC_SupportingDocument_1_DocumentLineItemNumber = MyBase.Columns("nctsHC_SupportingDocument_1_DocumentLineItemNumber") Me.columnnctsHC_SupportingDocument_1_ComplementOfInformation = MyBase.Columns("nctsHC_SupportingDocument_1_ComplementOfInformation") Me.columnnctsHC_SupportingDocument_2_Type = MyBase.Columns("nctsHC_SupportingDocument_2_Type") Me.columnnctsHC_SupportingDocument_2_ReferenceNumber = MyBase.Columns("nctsHC_SupportingDocument_2_ReferenceNumber") Me.columnnctsHC_SupportingDocument_2_DocumentLineItemNumber = MyBase.Columns("nctsHC_SupportingDocument_2_DocumentLineItemNumber") Me.columnnctsHC_SupportingDocument_2_ComplementOfInformation = MyBase.Columns("nctsHC_SupportingDocument_2_ComplementOfInformation") Me.columnnctsHC_SupportingDocument_3_Type = MyBase.Columns("nctsHC_SupportingDocument_3_Type") Me.columnnctsHC_SupportingDocument_3_ReferenceNumber = MyBase.Columns("nctsHC_SupportingDocument_3_ReferenceNumber") Me.columnnctsHC_SupportingDocument_3_DocumentLineItemNumber = MyBase.Columns("nctsHC_SupportingDocument_3_DocumentLineItemNumber") Me.columnnctsHC_SupportingDocument_3_ComplementOfInformation = MyBase.Columns("nctsHC_SupportingDocument_3_ComplementOfInformation") Me.columnnctsHC_SupportingDocument_4_Type = MyBase.Columns("nctsHC_SupportingDocument_4_Type") Me.columnnctsHC_SupportingDocument_4_ReferenceNumber = MyBase.Columns("nctsHC_SupportingDocument_4_ReferenceNumber") Me.columnnctsHC_SupportingDocument_4_DocumentLineItemNumber = MyBase.Columns("nctsHC_SupportingDocument_4_DocumentLineItemNumber") Me.columnnctsHC_SupportingDocument_4_ComplementOfInformation = MyBase.Columns("nctsHC_SupportingDocument_4_ComplementOfInformation") Me.columnnctsHC_SupportingDocument_5_Type = MyBase.Columns("nctsHC_SupportingDocument_5_Type") Me.columnnctsHC_SupportingDocument_5_ReferenceNumber = MyBase.Columns("nctsHC_SupportingDocument_5_ReferenceNumber") Me.columnnctsHC_SupportingDocument_5_DocumentLineItemNumber = MyBase.Columns("nctsHC_SupportingDocument_5_DocumentLineItemNumber") Me.columnnctsHC_SupportingDocument_5_ComplementOfInformation = MyBase.Columns("nctsHC_SupportingDocument_5_ComplementOfInformation") Me.columnnctsHC_SupportingDocument_6_Type = MyBase.Columns("nctsHC_SupportingDocument_6_Type") Me.columnnctsHC_SupportingDocument_6_ReferenceNumber = MyBase.Columns("nctsHC_SupportingDocument_6_ReferenceNumber") Me.columnnctsHC_SupportingDocument_6_DocumentLineItemNumber = MyBase.Columns("nctsHC_SupportingDocument_6_DocumentLineItemNumber") Me.columnnctsHC_SupportingDocument_6_ComplementOfInformation = MyBase.Columns("nctsHC_SupportingDocument_6_ComplementOfInformation") Me.columnnctsHC_SupportingDocument_7_Type = MyBase.Columns("nctsHC_SupportingDocument_7_Type") Me.columnnctsHC_SupportingDocument_7_ReferenceNumber = MyBase.Columns("nctsHC_SupportingDocument_7_ReferenceNumber") Me.columnnctsHC_SupportingDocument_7_DocumentLineItemNumber = MyBase.Columns("nctsHC_SupportingDocument_7_DocumentLineItemNumber") Me.columnnctsHC_SupportingDocument_7_ComplementOfInformation = MyBase.Columns("nctsHC_SupportingDocument_7_ComplementOfInformation") Me.columnnctsHC_SupportingDocument_8_Type = MyBase.Columns("nctsHC_SupportingDocument_8_Type") Me.columnnctsHC_SupportingDocument_8_ReferenceNumber = MyBase.Columns("nctsHC_SupportingDocument_8_ReferenceNumber") Me.columnnctsHC_SupportingDocument_8_DocumentLineItemNumber = MyBase.Columns("nctsHC_SupportingDocument_8_DocumentLineItemNumber") Me.columnnctsHC_SupportingDocument_8_ComplementOfInformation = MyBase.Columns("nctsHC_SupportingDocument_8_ComplementOfInformation") Me.columnnctsHC_SupportingDocument_9_Type = MyBase.Columns("nctsHC_SupportingDocument_9_Type") Me.columnnctsHC_SupportingDocument_9_ReferenceNumber = MyBase.Columns("nctsHC_SupportingDocument_9_ReferenceNumber") Me.columnnctsHC_SupportingDocument_9_DocumentLineItemNumber = MyBase.Columns("nctsHC_SupportingDocument_9_DocumentLineItemNumber") Me.columnnctsHC_SupportingDocument_9_ComplementOfInformation = MyBase.Columns("nctsHC_SupportingDocument_9_ComplementOfInformation") Me.columnnctsHC_PreviousDocument_1_Type = MyBase.Columns("nctsHC_PreviousDocument_1_Type") Me.columnnctsHC_PreviousDocument_1_ReferenceNumber = MyBase.Columns("nctsHC_PreviousDocument_1_ReferenceNumber") Me.columnnctsHC_PreviousDocument_1_ComplementOfInformation = MyBase.Columns("nctsHC_PreviousDocument_1_ComplementOfInformation") Me.columnnctsHC_PreviousDocument_2_Type = MyBase.Columns("nctsHC_PreviousDocument_2_Type") Me.columnnctsHC_PreviousDocument_2_ReferenceNumber = MyBase.Columns("nctsHC_PreviousDocument_2_ReferenceNumber") Me.columnnctsHC_PreviousDocument_2_ComplementOfInformation = MyBase.Columns("nctsHC_PreviousDocument_2_ComplementOfInformation") Me.columnnctsHC_PreviousDocument_3_Type = MyBase.Columns("nctsHC_PreviousDocument_3_Type") Me.columnnctsHC_PreviousDocument_3_ReferenceNumber = MyBase.Columns("nctsHC_PreviousDocument_3_ReferenceNumber") Me.columnnctsHC_PreviousDocument_3_ComplementOfInformation = MyBase.Columns("nctsHC_PreviousDocument_3_ComplementOfInformation") Me.columnnctsHC_PreviousDocument_4_Type = MyBase.Columns("nctsHC_PreviousDocument_4_Type") Me.columnnctsHC_PreviousDocument_4_ReferenceNumber = MyBase.Columns("nctsHC_PreviousDocument_4_ReferenceNumber") Me.columnnctsHC_PreviousDocument_4_ComplementOfInformation = MyBase.Columns("nctsHC_PreviousDocument_4_ComplementOfInformation") Me.columnnctsHC_PreviousDocument_5_Type = MyBase.Columns("nctsHC_PreviousDocument_5_Type") Me.columnnctsHC_PreviousDocument_5_ReferenceNumber = MyBase.Columns("nctsHC_PreviousDocument_5_ReferenceNumber") Me.columnnctsHC_PreviousDocument_5_ComplementOfInformation = MyBase.Columns("nctsHC_PreviousDocument_5_ComplementOfInformation") Me.columnnctsHC_PreviousDocument_6_Type = MyBase.Columns("nctsHC_PreviousDocument_6_Type") Me.columnnctsHC_PreviousDocument_6_ReferenceNumber = MyBase.Columns("nctsHC_PreviousDocument_6_ReferenceNumber") Me.columnnctsHC_PreviousDocument_6_ComplementOfInformation = MyBase.Columns("nctsHC_PreviousDocument_6_ComplementOfInformation") Me.columnnctsHC_PreviousDocument_7_Type = MyBase.Columns("nctsHC_PreviousDocument_7_Type") Me.columnnctsHC_PreviousDocument_7_ReferenceNumber = MyBase.Columns("nctsHC_PreviousDocument_7_ReferenceNumber") Me.columnnctsHC_PreviousDocument_7_ComplementOfInformation = MyBase.Columns("nctsHC_PreviousDocument_7_ComplementOfInformation") Me.columnnctsHC_PreviousDocument_8_Type = MyBase.Columns("nctsHC_PreviousDocument_8_Type") Me.columnnctsHC_PreviousDocument_8_ReferenceNumber = MyBase.Columns("nctsHC_PreviousDocument_8_ReferenceNumber") Me.columnnctsHC_PreviousDocument_8_ComplementOfInformation = MyBase.Columns("nctsHC_PreviousDocument_8_ComplementOfInformation") Me.columnnctsHC_PreviousDocument_9_Type = MyBase.Columns("nctsHC_PreviousDocument_9_Type") Me.columnnctsHC_PreviousDocument_9_ReferenceNumber = MyBase.Columns("nctsHC_PreviousDocument_9_ReferenceNumber") Me.columnnctsHC_PreviousDocument_9_ComplementOfInformation = MyBase.Columns("nctsHC_PreviousDocument_9_ComplementOfInformation") Me.columnnctsHC_TransportDocument_1_Type = MyBase.Columns("nctsHC_TransportDocument_1_Type") Me.columnnctsHC_TransportDocument_1_ReferenceNumber = MyBase.Columns("nctsHC_TransportDocument_1_ReferenceNumber") Me.columnnctsHC_TransportDocument_2_Type = MyBase.Columns("nctsHC_TransportDocument_2_Type") Me.columnnctsHC_TransportDocument_2_ReferenceNumber = MyBase.Columns("nctsHC_TransportDocument_2_ReferenceNumber") Me.columnnctsHC_TransportDocument_3_Type = MyBase.Columns("nctsHC_TransportDocument_3_Type") Me.columnnctsHC_TransportDocument_3_ReferenceNumber = MyBase.Columns("nctsHC_TransportDocument_3_ReferenceNumber") Me.columnnctsHC_TransportDocument_4_Type = MyBase.Columns("nctsHC_TransportDocument_4_Type") Me.columnnctsHC_TransportDocument_4_ReferenceNumber = MyBase.Columns("nctsHC_TransportDocument_4_ReferenceNumber") Me.columnnctsHC_TransportDocument_5_Type = MyBase.Columns("nctsHC_TransportDocument_5_Type") Me.columnnctsHC_TransportDocument_5_ReferenceNumber = MyBase.Columns("nctsHC_TransportDocument_5_ReferenceNumber") Me.columnnctsHC_TransportDocument_6_Type = MyBase.Columns("nctsHC_TransportDocument_6_Type") Me.columnnctsHC_TransportDocument_6_ReferenceNumber = MyBase.Columns("nctsHC_TransportDocument_6_ReferenceNumber") Me.columnnctsHC_TransportDocument_7_Type = MyBase.Columns("nctsHC_TransportDocument_7_Type") Me.columnnctsHC_TransportDocument_7_ReferenceNumber = MyBase.Columns("nctsHC_TransportDocument_7_ReferenceNumber") Me.columnnctsHC_TransportDocument_8_Type = MyBase.Columns("nctsHC_TransportDocument_8_Type") Me.columnnctsHC_TransportDocument_8_ReferenceNumber = MyBase.Columns("nctsHC_TransportDocument_8_ReferenceNumber") Me.columnnctsHC_TransportDocument_9_Type = MyBase.Columns("nctsHC_TransportDocument_9_Type") Me.columnnctsHC_TransportDocument_9_ReferenceNumber = MyBase.Columns("nctsHC_TransportDocument_9_ReferenceNumber") Me.columnnctsHC_AdditionalReference_1_Type = MyBase.Columns("nctsHC_AdditionalReference_1_Type") Me.columnnctsHC_AdditionalReference_1_ReferenceNumber = MyBase.Columns("nctsHC_AdditionalReference_1_ReferenceNumber") Me.columnnctsHC_AdditionalReference_2_Type = MyBase.Columns("nctsHC_AdditionalReference_2_Type") Me.columnnctsHC_AdditionalReference_2_ReferenceNumber = MyBase.Columns("nctsHC_AdditionalReference_2_ReferenceNumber") Me.columnnctsHC_AdditionalReference_3_Type = MyBase.Columns("nctsHC_AdditionalReference_3_Type") Me.columnnctsHC_AdditionalReference_3_ReferenceNumber = MyBase.Columns("nctsHC_AdditionalReference_3_ReferenceNumber") Me.columnnctsHC_AdditionalReference_4_Type = MyBase.Columns("nctsHC_AdditionalReference_4_Type") Me.columnnctsHC_AdditionalReference_4_ReferenceNumber = MyBase.Columns("nctsHC_AdditionalReference_4_ReferenceNumber") Me.columnnctsHC_AdditionalReference_5_Type = MyBase.Columns("nctsHC_AdditionalReference_5_Type") Me.columnnctsHC_AdditionalReference_5_ReferenceNumber = MyBase.Columns("nctsHC_AdditionalReference_5_ReferenceNumber") Me.columnnctsHC_AdditionalReference_6_Type = MyBase.Columns("nctsHC_AdditionalReference_6_Type") Me.columnnctsHC_AdditionalReference_6_ReferenceNumber = MyBase.Columns("nctsHC_AdditionalReference_6_ReferenceNumber") Me.columnnctsHC_AdditionalReference_7_Type = MyBase.Columns("nctsHC_AdditionalReference_7_Type") Me.columnnctsHC_AdditionalReference_7_ReferenceNumber = MyBase.Columns("nctsHC_AdditionalReference_7_ReferenceNumber") Me.columnnctsHC_AdditionalReference_8_Type = MyBase.Columns("nctsHC_AdditionalReference_8_Type") Me.columnnctsHC_AdditionalReference_8_ReferenceNumber = MyBase.Columns("nctsHC_AdditionalReference_8_ReferenceNumber") Me.columnnctsHC_AdditionalReference_9_Type = MyBase.Columns("nctsHC_AdditionalReference_9_Type") Me.columnnctsHC_AdditionalReference_9_ReferenceNumber = MyBase.Columns("nctsHC_AdditionalReference_9_ReferenceNumber") Me.columnnctsHC_AdditionalInformation_1_Code = MyBase.Columns("nctsHC_AdditionalInformation_1_Code") Me.columnnctsHC_AdditionalInformation_1_Text = MyBase.Columns("nctsHC_AdditionalInformation_1_Text") Me.columnnctsHC_AdditionalInformation_2_Code = MyBase.Columns("nctsHC_AdditionalInformation_2_Code") Me.columnnctsHC_AdditionalInformation_2_Text = MyBase.Columns("nctsHC_AdditionalInformation_2_Text") Me.columnnctsHC_AdditionalInformation_3_Code = MyBase.Columns("nctsHC_AdditionalInformation_3_Code") Me.columnnctsHC_AdditionalInformation_3_Text = MyBase.Columns("nctsHC_AdditionalInformation_3_Text") Me.columnnctsHC_AdditionalInformation_4_Code = MyBase.Columns("nctsHC_AdditionalInformation_4_Code") Me.columnnctsHC_AdditionalInformation_4_Text = MyBase.Columns("nctsHC_AdditionalInformation_4_Text") Me.columnnctsHC_AdditionalInformation_5_Code = MyBase.Columns("nctsHC_AdditionalInformation_5_Code") Me.columnnctsHC_AdditionalInformation_5_Text = MyBase.Columns("nctsHC_AdditionalInformation_5_Text") Me.columnnctsHC_AdditionalInformation_6_Code = MyBase.Columns("nctsHC_AdditionalInformation_6_Code") Me.columnnctsHC_AdditionalInformation_6_Text = MyBase.Columns("nctsHC_AdditionalInformation_6_Text") Me.columnnctsHC_AdditionalInformation_7_Code = MyBase.Columns("nctsHC_AdditionalInformation_7_Code") Me.columnnctsHC_AdditionalInformation_7_Text = MyBase.Columns("nctsHC_AdditionalInformation_7_Text") Me.columnnctsHC_AdditionalInformation_8_Code = MyBase.Columns("nctsHC_AdditionalInformation_8_Code") Me.columnnctsHC_AdditionalInformation_8_Text = MyBase.Columns("nctsHC_AdditionalInformation_8_Text") Me.columnnctsHC_AdditionalInformation_9_Code = MyBase.Columns("nctsHC_AdditionalInformation_9_Code") Me.columnnctsHC_AdditionalInformation_9_Text = MyBase.Columns("nctsHC_AdditionalInformation_9_Text") Me.columnnctsHC_TransportCharges = MyBase.Columns("nctsHC_TransportCharges") End Sub _ Private Sub InitClass() Me.columnnctsHC_Id = New Global.System.Data.DataColumn("nctsHC_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Id) Me.columnnctsHC_NctsId = New Global.System.Data.DataColumn("nctsHC_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_NctsId) Me.columnnctsHC_HouseConsignMentReference = New Global.System.Data.DataColumn("nctsHC_HouseConsignMentReference", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_HouseConsignMentReference) Me.columnnctsHC_CountryOfDispatch = New Global.System.Data.DataColumn("nctsHC_CountryOfDispatch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_CountryOfDispatch) Me.columnnctsHC_CountryOfDestination = New Global.System.Data.DataColumn("nctsHC_CountryOfDestination", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_CountryOfDestination) Me.columnnctsHC_GrossMass = New Global.System.Data.DataColumn("nctsHC_GrossMass", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_GrossMass) Me.columnnctsHC_ReferenceNumberUCR = New Global.System.Data.DataColumn("nctsHC_ReferenceNumberUCR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_ReferenceNumberUCR) Me.columnnctsHC_Consignor_AdressCode = New Global.System.Data.DataColumn("nctsHC_Consignor_AdressCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_AdressCode) Me.columnnctsHC_Consignor_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_Consignor_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_IdentificationNumber) Me.columnnctsHC_Consignor_SubsidiaryNumber = New Global.System.Data.DataColumn("nctsHC_Consignor_SubsidiaryNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_SubsidiaryNumber) Me.columnnctsHC_Consignor_Name = New Global.System.Data.DataColumn("nctsHC_Consignor_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_Name) Me.columnnctsHC_Consignor_StreetNumber = New Global.System.Data.DataColumn("nctsHC_Consignor_StreetNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_StreetNumber) Me.columnnctsHC_Consignor_City = New Global.System.Data.DataColumn("nctsHC_Consignor_City", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_City) Me.columnnctsHC_Consignor_Postcode = New Global.System.Data.DataColumn("nctsHC_Consignor_Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_Postcode) Me.columnnctsHC_Consignor_Country = New Global.System.Data.DataColumn("nctsHC_Consignor_Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_Country) Me.columnnctsHC_Consignor_ContactPerson_Name = New Global.System.Data.DataColumn("nctsHC_Consignor_ContactPerson_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_ContactPerson_Name) Me.columnnctsHC_Consignor_ContactPerson_PhoneNumber = New Global.System.Data.DataColumn("nctsHC_Consignor_ContactPerson_PhoneNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_ContactPerson_PhoneNumber) Me.columnnctsHC_Consignor_ContactPerson_EMailAddress = New Global.System.Data.DataColumn("nctsHC_Consignor_ContactPerson_EMailAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignor_ContactPerson_EMailAddress) Me.columnnctsHC_Consignee_AdressCode = New Global.System.Data.DataColumn("nctsHC_Consignee_AdressCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_AdressCode) Me.columnnctsHC_Consignee_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_Consignee_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_IdentificationNumber) Me.columnnctsHC_Consignee_SubsidiaryNumber = New Global.System.Data.DataColumn("nctsHC_Consignee_SubsidiaryNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_SubsidiaryNumber) Me.columnnctsHC_Consignee_Name = New Global.System.Data.DataColumn("nctsHC_Consignee_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_Name) Me.columnnctsHC_Consignee_StreetNumber = New Global.System.Data.DataColumn("nctsHC_Consignee_StreetNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_StreetNumber) Me.columnnctsHC_Consignee_City = New Global.System.Data.DataColumn("nctsHC_Consignee_City", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_City) Me.columnnctsHC_Consignee_Postcode = New Global.System.Data.DataColumn("nctsHC_Consignee_Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_Postcode) Me.columnnctsHC_Consignee_Country = New Global.System.Data.DataColumn("nctsHC_Consignee_Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_Country) Me.columnnctsHC_Consignee_ContactPerson_Name = New Global.System.Data.DataColumn("nctsHC_Consignee_ContactPerson_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_ContactPerson_Name) Me.columnnctsHC_Consignee_ContactPerson_PhoneNumber = New Global.System.Data.DataColumn("nctsHC_Consignee_ContactPerson_PhoneNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_ContactPerson_PhoneNumber) Me.columnnctsHC_Consignee_ContactPerson_EMailAddress = New Global.System.Data.DataColumn("nctsHC_Consignee_ContactPerson_EMailAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_Consignee_ContactPerson_EMailAddress) Me.columnnctsHC_AdditionalSupplyChainActor_1_Role = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_1_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_1_Role) Me.columnnctsHC_AdditionalSupplyChainActor_1_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_1_IdentificationNumber) Me.columnnctsHC_AdditionalSupplyChainActor_2_Role = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_2_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_2_Role) Me.columnnctsHC_AdditionalSupplyChainActor_2_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_2_IdentificationNumber) Me.columnnctsHC_AdditionalSupplyChainActor_3_Role = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_3_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_3_Role) Me.columnnctsHC_AdditionalSupplyChainActor_3_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_3_IdentificationNumber) Me.columnnctsHC_AdditionalSupplyChainActor_4_Role = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_4_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_4_Role) Me.columnnctsHC_AdditionalSupplyChainActor_4_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_4_IdentificationNumber) Me.columnnctsHC_AdditionalSupplyChainActor_5_Role = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_5_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_5_Role) Me.columnnctsHC_AdditionalSupplyChainActor_5_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_5_IdentificationNumber) Me.columnnctsHC_AdditionalSupplyChainActor_6_Role = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_6_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_6_Role) Me.columnnctsHC_AdditionalSupplyChainActor_6_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_6_IdentificationNumber) Me.columnnctsHC_AdditionalSupplyChainActor_7_Role = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_7_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_7_Role) Me.columnnctsHC_AdditionalSupplyChainActor_7_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_7_IdentificationNumber) Me.columnnctsHC_AdditionalSupplyChainActor_8_Role = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_8_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_8_Role) Me.columnnctsHC_AdditionalSupplyChainActor_8_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_8_IdentificationNumber) Me.columnnctsHC_AdditionalSupplyChainActor_9_Role = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_9_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_9_Role) Me.columnnctsHC_AdditionalSupplyChainActor_9_IdentificationNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalSupplyChainActor_9_IdentificationNumber) Me.columnnctsHC_SupportingDocument_1_Type = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_1_Type) Me.columnnctsHC_SupportingDocument_1_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_1_ReferenceNumber) Me.columnnctsHC_SupportingDocument_1_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_1_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_1_DocumentLineItemNumber) Me.columnnctsHC_SupportingDocument_1_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_1_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_1_ComplementOfInformation) Me.columnnctsHC_SupportingDocument_2_Type = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_2_Type) Me.columnnctsHC_SupportingDocument_2_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_2_ReferenceNumber) Me.columnnctsHC_SupportingDocument_2_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_2_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_2_DocumentLineItemNumber) Me.columnnctsHC_SupportingDocument_2_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_2_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_2_ComplementOfInformation) Me.columnnctsHC_SupportingDocument_3_Type = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_3_Type) Me.columnnctsHC_SupportingDocument_3_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_3_ReferenceNumber) Me.columnnctsHC_SupportingDocument_3_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_3_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_3_DocumentLineItemNumber) Me.columnnctsHC_SupportingDocument_3_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_3_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_3_ComplementOfInformation) Me.columnnctsHC_SupportingDocument_4_Type = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_4_Type) Me.columnnctsHC_SupportingDocument_4_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_4_ReferenceNumber) Me.columnnctsHC_SupportingDocument_4_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_4_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_4_DocumentLineItemNumber) Me.columnnctsHC_SupportingDocument_4_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_4_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_4_ComplementOfInformation) Me.columnnctsHC_SupportingDocument_5_Type = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_5_Type) Me.columnnctsHC_SupportingDocument_5_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_5_ReferenceNumber) Me.columnnctsHC_SupportingDocument_5_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_5_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_5_DocumentLineItemNumber) Me.columnnctsHC_SupportingDocument_5_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_5_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_5_ComplementOfInformation) Me.columnnctsHC_SupportingDocument_6_Type = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_6_Type) Me.columnnctsHC_SupportingDocument_6_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_6_ReferenceNumber) Me.columnnctsHC_SupportingDocument_6_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_6_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_6_DocumentLineItemNumber) Me.columnnctsHC_SupportingDocument_6_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_6_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_6_ComplementOfInformation) Me.columnnctsHC_SupportingDocument_7_Type = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_7_Type) Me.columnnctsHC_SupportingDocument_7_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_7_ReferenceNumber) Me.columnnctsHC_SupportingDocument_7_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_7_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_7_DocumentLineItemNumber) Me.columnnctsHC_SupportingDocument_7_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_7_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_7_ComplementOfInformation) Me.columnnctsHC_SupportingDocument_8_Type = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_8_Type) Me.columnnctsHC_SupportingDocument_8_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_8_ReferenceNumber) Me.columnnctsHC_SupportingDocument_8_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_8_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_8_DocumentLineItemNumber) Me.columnnctsHC_SupportingDocument_8_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_8_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_8_ComplementOfInformation) Me.columnnctsHC_SupportingDocument_9_Type = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_9_Type) Me.columnnctsHC_SupportingDocument_9_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_9_ReferenceNumber) Me.columnnctsHC_SupportingDocument_9_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_9_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_9_DocumentLineItemNumber) Me.columnnctsHC_SupportingDocument_9_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_SupportingDocument_9_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_SupportingDocument_9_ComplementOfInformation) Me.columnnctsHC_PreviousDocument_1_Type = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_1_Type) Me.columnnctsHC_PreviousDocument_1_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_1_ReferenceNumber) Me.columnnctsHC_PreviousDocument_1_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_1_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_1_ComplementOfInformation) Me.columnnctsHC_PreviousDocument_2_Type = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_2_Type) Me.columnnctsHC_PreviousDocument_2_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_2_ReferenceNumber) Me.columnnctsHC_PreviousDocument_2_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_2_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_2_ComplementOfInformation) Me.columnnctsHC_PreviousDocument_3_Type = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_3_Type) Me.columnnctsHC_PreviousDocument_3_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_3_ReferenceNumber) Me.columnnctsHC_PreviousDocument_3_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_3_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_3_ComplementOfInformation) Me.columnnctsHC_PreviousDocument_4_Type = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_4_Type) Me.columnnctsHC_PreviousDocument_4_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_4_ReferenceNumber) Me.columnnctsHC_PreviousDocument_4_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_4_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_4_ComplementOfInformation) Me.columnnctsHC_PreviousDocument_5_Type = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_5_Type) Me.columnnctsHC_PreviousDocument_5_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_5_ReferenceNumber) Me.columnnctsHC_PreviousDocument_5_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_5_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_5_ComplementOfInformation) Me.columnnctsHC_PreviousDocument_6_Type = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_6_Type) Me.columnnctsHC_PreviousDocument_6_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_6_ReferenceNumber) Me.columnnctsHC_PreviousDocument_6_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_6_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_6_ComplementOfInformation) Me.columnnctsHC_PreviousDocument_7_Type = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_7_Type) Me.columnnctsHC_PreviousDocument_7_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_7_ReferenceNumber) Me.columnnctsHC_PreviousDocument_7_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_7_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_7_ComplementOfInformation) Me.columnnctsHC_PreviousDocument_8_Type = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_8_Type) Me.columnnctsHC_PreviousDocument_8_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_8_ReferenceNumber) Me.columnnctsHC_PreviousDocument_8_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_8_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_8_ComplementOfInformation) Me.columnnctsHC_PreviousDocument_9_Type = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_9_Type) Me.columnnctsHC_PreviousDocument_9_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_9_ReferenceNumber) Me.columnnctsHC_PreviousDocument_9_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHC_PreviousDocument_9_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_PreviousDocument_9_ComplementOfInformation) Me.columnnctsHC_TransportDocument_1_Type = New Global.System.Data.DataColumn("nctsHC_TransportDocument_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_1_Type) Me.columnnctsHC_TransportDocument_1_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_TransportDocument_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_1_ReferenceNumber) Me.columnnctsHC_TransportDocument_2_Type = New Global.System.Data.DataColumn("nctsHC_TransportDocument_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_2_Type) Me.columnnctsHC_TransportDocument_2_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_TransportDocument_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_2_ReferenceNumber) Me.columnnctsHC_TransportDocument_3_Type = New Global.System.Data.DataColumn("nctsHC_TransportDocument_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_3_Type) Me.columnnctsHC_TransportDocument_3_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_TransportDocument_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_3_ReferenceNumber) Me.columnnctsHC_TransportDocument_4_Type = New Global.System.Data.DataColumn("nctsHC_TransportDocument_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_4_Type) Me.columnnctsHC_TransportDocument_4_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_TransportDocument_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_4_ReferenceNumber) Me.columnnctsHC_TransportDocument_5_Type = New Global.System.Data.DataColumn("nctsHC_TransportDocument_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_5_Type) Me.columnnctsHC_TransportDocument_5_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_TransportDocument_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_5_ReferenceNumber) Me.columnnctsHC_TransportDocument_6_Type = New Global.System.Data.DataColumn("nctsHC_TransportDocument_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_6_Type) Me.columnnctsHC_TransportDocument_6_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_TransportDocument_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_6_ReferenceNumber) Me.columnnctsHC_TransportDocument_7_Type = New Global.System.Data.DataColumn("nctsHC_TransportDocument_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_7_Type) Me.columnnctsHC_TransportDocument_7_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_TransportDocument_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_7_ReferenceNumber) Me.columnnctsHC_TransportDocument_8_Type = New Global.System.Data.DataColumn("nctsHC_TransportDocument_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_8_Type) Me.columnnctsHC_TransportDocument_8_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_TransportDocument_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_8_ReferenceNumber) Me.columnnctsHC_TransportDocument_9_Type = New Global.System.Data.DataColumn("nctsHC_TransportDocument_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_9_Type) Me.columnnctsHC_TransportDocument_9_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_TransportDocument_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportDocument_9_ReferenceNumber) Me.columnnctsHC_AdditionalReference_1_Type = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_1_Type) Me.columnnctsHC_AdditionalReference_1_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_1_ReferenceNumber) Me.columnnctsHC_AdditionalReference_2_Type = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_2_Type) Me.columnnctsHC_AdditionalReference_2_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_2_ReferenceNumber) Me.columnnctsHC_AdditionalReference_3_Type = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_3_Type) Me.columnnctsHC_AdditionalReference_3_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_3_ReferenceNumber) Me.columnnctsHC_AdditionalReference_4_Type = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_4_Type) Me.columnnctsHC_AdditionalReference_4_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_4_ReferenceNumber) Me.columnnctsHC_AdditionalReference_5_Type = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_5_Type) Me.columnnctsHC_AdditionalReference_5_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_5_ReferenceNumber) Me.columnnctsHC_AdditionalReference_6_Type = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_6_Type) Me.columnnctsHC_AdditionalReference_6_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_6_ReferenceNumber) Me.columnnctsHC_AdditionalReference_7_Type = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_7_Type) Me.columnnctsHC_AdditionalReference_7_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_7_ReferenceNumber) Me.columnnctsHC_AdditionalReference_8_Type = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_8_Type) Me.columnnctsHC_AdditionalReference_8_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_8_ReferenceNumber) Me.columnnctsHC_AdditionalReference_9_Type = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_9_Type) Me.columnnctsHC_AdditionalReference_9_ReferenceNumber = New Global.System.Data.DataColumn("nctsHC_AdditionalReference_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalReference_9_ReferenceNumber) Me.columnnctsHC_AdditionalInformation_1_Code = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_1_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_1_Code) Me.columnnctsHC_AdditionalInformation_1_Text = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_1_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_1_Text) Me.columnnctsHC_AdditionalInformation_2_Code = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_2_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_2_Code) Me.columnnctsHC_AdditionalInformation_2_Text = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_2_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_2_Text) Me.columnnctsHC_AdditionalInformation_3_Code = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_3_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_3_Code) Me.columnnctsHC_AdditionalInformation_3_Text = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_3_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_3_Text) Me.columnnctsHC_AdditionalInformation_4_Code = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_4_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_4_Code) Me.columnnctsHC_AdditionalInformation_4_Text = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_4_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_4_Text) Me.columnnctsHC_AdditionalInformation_5_Code = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_5_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_5_Code) Me.columnnctsHC_AdditionalInformation_5_Text = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_5_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_5_Text) Me.columnnctsHC_AdditionalInformation_6_Code = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_6_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_6_Code) Me.columnnctsHC_AdditionalInformation_6_Text = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_6_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_6_Text) Me.columnnctsHC_AdditionalInformation_7_Code = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_7_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_7_Code) Me.columnnctsHC_AdditionalInformation_7_Text = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_7_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_7_Text) Me.columnnctsHC_AdditionalInformation_8_Code = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_8_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_8_Code) Me.columnnctsHC_AdditionalInformation_8_Text = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_8_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_8_Text) Me.columnnctsHC_AdditionalInformation_9_Code = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_9_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_9_Code) Me.columnnctsHC_AdditionalInformation_9_Text = New Global.System.Data.DataColumn("nctsHC_AdditionalInformation_9_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_AdditionalInformation_9_Text) Me.columnnctsHC_TransportCharges = New Global.System.Data.DataColumn("nctsHC_TransportCharges", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHC_TransportCharges) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsHC_Id}, true)) Me.columnnctsHC_Id.AutoIncrement = true Me.columnnctsHC_Id.AutoIncrementSeed = -1 Me.columnnctsHC_Id.AutoIncrementStep = -1 Me.columnnctsHC_Id.AllowDBNull = false Me.columnnctsHC_Id.ReadOnly = true Me.columnnctsHC_Id.Unique = true Me.columnnctsHC_NctsId.AllowDBNull = false Me.columnnctsHC_HouseConsignMentReference.MaxLength = 35 Me.columnnctsHC_CountryOfDispatch.MaxLength = 2 Me.columnnctsHC_CountryOfDestination.MaxLength = 2 Me.columnnctsHC_ReferenceNumberUCR.MaxLength = 35 Me.columnnctsHC_Consignor_AdressCode.MaxLength = 50 Me.columnnctsHC_Consignor_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_Consignor_SubsidiaryNumber.MaxLength = 4 Me.columnnctsHC_Consignor_Name.MaxLength = 70 Me.columnnctsHC_Consignor_StreetNumber.MaxLength = 70 Me.columnnctsHC_Consignor_City.MaxLength = 35 Me.columnnctsHC_Consignor_Postcode.MaxLength = 17 Me.columnnctsHC_Consignor_Country.MaxLength = 2 Me.columnnctsHC_Consignor_ContactPerson_Name.MaxLength = 70 Me.columnnctsHC_Consignor_ContactPerson_PhoneNumber.MaxLength = 35 Me.columnnctsHC_Consignor_ContactPerson_EMailAddress.MaxLength = 256 Me.columnnctsHC_Consignee_AdressCode.MaxLength = 50 Me.columnnctsHC_Consignee_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_Consignee_SubsidiaryNumber.MaxLength = 4 Me.columnnctsHC_Consignee_Name.MaxLength = 70 Me.columnnctsHC_Consignee_StreetNumber.MaxLength = 70 Me.columnnctsHC_Consignee_City.MaxLength = 35 Me.columnnctsHC_Consignee_Postcode.MaxLength = 17 Me.columnnctsHC_Consignee_Country.MaxLength = 2 Me.columnnctsHC_Consignee_ContactPerson_Name.MaxLength = 70 Me.columnnctsHC_Consignee_ContactPerson_PhoneNumber.MaxLength = 35 Me.columnnctsHC_Consignee_ContactPerson_EMailAddress.MaxLength = 256 Me.columnnctsHC_AdditionalSupplyChainActor_1_Role.MaxLength = 3 Me.columnnctsHC_AdditionalSupplyChainActor_1_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_AdditionalSupplyChainActor_2_Role.MaxLength = 3 Me.columnnctsHC_AdditionalSupplyChainActor_2_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_AdditionalSupplyChainActor_3_Role.MaxLength = 3 Me.columnnctsHC_AdditionalSupplyChainActor_3_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_AdditionalSupplyChainActor_4_Role.MaxLength = 3 Me.columnnctsHC_AdditionalSupplyChainActor_4_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_AdditionalSupplyChainActor_5_Role.MaxLength = 3 Me.columnnctsHC_AdditionalSupplyChainActor_5_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_AdditionalSupplyChainActor_6_Role.MaxLength = 3 Me.columnnctsHC_AdditionalSupplyChainActor_6_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_AdditionalSupplyChainActor_7_Role.MaxLength = 3 Me.columnnctsHC_AdditionalSupplyChainActor_7_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_AdditionalSupplyChainActor_8_Role.MaxLength = 3 Me.columnnctsHC_AdditionalSupplyChainActor_8_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_AdditionalSupplyChainActor_9_Role.MaxLength = 3 Me.columnnctsHC_AdditionalSupplyChainActor_9_IdentificationNumber.MaxLength = 17 Me.columnnctsHC_SupportingDocument_1_Type.MaxLength = 4 Me.columnnctsHC_SupportingDocument_1_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_SupportingDocument_1_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHC_SupportingDocument_1_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_SupportingDocument_2_Type.MaxLength = 4 Me.columnnctsHC_SupportingDocument_2_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_SupportingDocument_2_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHC_SupportingDocument_2_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_SupportingDocument_3_Type.MaxLength = 4 Me.columnnctsHC_SupportingDocument_3_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_SupportingDocument_3_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHC_SupportingDocument_3_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_SupportingDocument_4_Type.MaxLength = 4 Me.columnnctsHC_SupportingDocument_4_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_SupportingDocument_4_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHC_SupportingDocument_4_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_SupportingDocument_5_Type.MaxLength = 4 Me.columnnctsHC_SupportingDocument_5_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_SupportingDocument_5_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHC_SupportingDocument_5_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_SupportingDocument_6_Type.MaxLength = 4 Me.columnnctsHC_SupportingDocument_6_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_SupportingDocument_6_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHC_SupportingDocument_6_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_SupportingDocument_7_Type.MaxLength = 4 Me.columnnctsHC_SupportingDocument_7_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_SupportingDocument_7_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHC_SupportingDocument_7_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_SupportingDocument_8_Type.MaxLength = 4 Me.columnnctsHC_SupportingDocument_8_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_SupportingDocument_8_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHC_SupportingDocument_8_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_SupportingDocument_9_Type.MaxLength = 4 Me.columnnctsHC_SupportingDocument_9_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_SupportingDocument_9_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHC_SupportingDocument_9_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_PreviousDocument_1_Type.MaxLength = 4 Me.columnnctsHC_PreviousDocument_1_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_PreviousDocument_1_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_PreviousDocument_2_Type.MaxLength = 4 Me.columnnctsHC_PreviousDocument_2_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_PreviousDocument_2_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_PreviousDocument_3_Type.MaxLength = 4 Me.columnnctsHC_PreviousDocument_3_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_PreviousDocument_3_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_PreviousDocument_4_Type.MaxLength = 4 Me.columnnctsHC_PreviousDocument_4_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_PreviousDocument_4_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_PreviousDocument_5_Type.MaxLength = 4 Me.columnnctsHC_PreviousDocument_5_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_PreviousDocument_5_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_PreviousDocument_6_Type.MaxLength = 4 Me.columnnctsHC_PreviousDocument_6_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_PreviousDocument_6_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_PreviousDocument_7_Type.MaxLength = 4 Me.columnnctsHC_PreviousDocument_7_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_PreviousDocument_7_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_PreviousDocument_8_Type.MaxLength = 4 Me.columnnctsHC_PreviousDocument_8_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_PreviousDocument_8_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_PreviousDocument_9_Type.MaxLength = 4 Me.columnnctsHC_PreviousDocument_9_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_PreviousDocument_9_ComplementOfInformation.MaxLength = 35 Me.columnnctsHC_TransportDocument_1_Type.MaxLength = 4 Me.columnnctsHC_TransportDocument_1_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_TransportDocument_2_Type.MaxLength = 4 Me.columnnctsHC_TransportDocument_2_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_TransportDocument_3_Type.MaxLength = 4 Me.columnnctsHC_TransportDocument_3_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_TransportDocument_4_Type.MaxLength = 4 Me.columnnctsHC_TransportDocument_4_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_TransportDocument_5_Type.MaxLength = 4 Me.columnnctsHC_TransportDocument_5_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_TransportDocument_6_Type.MaxLength = 4 Me.columnnctsHC_TransportDocument_6_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_TransportDocument_7_Type.MaxLength = 4 Me.columnnctsHC_TransportDocument_7_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_TransportDocument_8_Type.MaxLength = 4 Me.columnnctsHC_TransportDocument_8_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_TransportDocument_9_Type.MaxLength = 4 Me.columnnctsHC_TransportDocument_9_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_AdditionalReference_1_Type.MaxLength = 4 Me.columnnctsHC_AdditionalReference_1_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_AdditionalReference_2_Type.MaxLength = 4 Me.columnnctsHC_AdditionalReference_2_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_AdditionalReference_3_Type.MaxLength = 4 Me.columnnctsHC_AdditionalReference_3_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_AdditionalReference_4_Type.MaxLength = 4 Me.columnnctsHC_AdditionalReference_4_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_AdditionalReference_5_Type.MaxLength = 4 Me.columnnctsHC_AdditionalReference_5_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_AdditionalReference_6_Type.MaxLength = 4 Me.columnnctsHC_AdditionalReference_6_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_AdditionalReference_7_Type.MaxLength = 4 Me.columnnctsHC_AdditionalReference_7_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_AdditionalReference_8_Type.MaxLength = 4 Me.columnnctsHC_AdditionalReference_8_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_AdditionalReference_9_Type.MaxLength = 4 Me.columnnctsHC_AdditionalReference_9_ReferenceNumber.MaxLength = 70 Me.columnnctsHC_AdditionalInformation_1_Code.MaxLength = 5 Me.columnnctsHC_AdditionalInformation_1_Text.MaxLength = 512 Me.columnnctsHC_AdditionalInformation_2_Code.MaxLength = 5 Me.columnnctsHC_AdditionalInformation_2_Text.MaxLength = 512 Me.columnnctsHC_AdditionalInformation_3_Code.MaxLength = 5 Me.columnnctsHC_AdditionalInformation_3_Text.MaxLength = 512 Me.columnnctsHC_AdditionalInformation_4_Code.MaxLength = 5 Me.columnnctsHC_AdditionalInformation_4_Text.MaxLength = 512 Me.columnnctsHC_AdditionalInformation_5_Code.MaxLength = 5 Me.columnnctsHC_AdditionalInformation_5_Text.MaxLength = 512 Me.columnnctsHC_AdditionalInformation_6_Code.MaxLength = 5 Me.columnnctsHC_AdditionalInformation_6_Text.MaxLength = 512 Me.columnnctsHC_AdditionalInformation_7_Code.MaxLength = 5 Me.columnnctsHC_AdditionalInformation_7_Text.MaxLength = 512 Me.columnnctsHC_AdditionalInformation_8_Code.MaxLength = 5 Me.columnnctsHC_AdditionalInformation_8_Text.MaxLength = 512 Me.columnnctsHC_AdditionalInformation_9_Code.MaxLength = 5 Me.columnnctsHC_AdditionalInformation_9_Text.MaxLength = 512 Me.columnnctsHC_TransportCharges.MaxLength = 1 End Sub _ Public Function NewtblDakosy_NCTSOut004_HouseConsignmentRow() As tblDakosy_NCTSOut004_HouseConsignmentRow Return CType(Me.NewRow,tblDakosy_NCTSOut004_HouseConsignmentRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOut004_HouseConsignmentRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOut004_HouseConsignmentRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignmentRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignmentRowChanged(Me, New tblDakosy_NCTSOut004_HouseConsignmentRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignmentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignmentRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignmentRowChanging(Me, New tblDakosy_NCTSOut004_HouseConsignmentRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignmentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignmentRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignmentRowDeleted(Me, New tblDakosy_NCTSOut004_HouseConsignmentRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignmentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignmentRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignmentRowDeleting(Me, New tblDakosy_NCTSOut004_HouseConsignmentRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignmentRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOut004_HouseConsignmentRow(ByVal row As tblDakosy_NCTSOut004_HouseConsignmentRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOut004_HouseConsignmentDataTable" 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 tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow) Private columnnctsHCCI_Id As Global.System.Data.DataColumn Private columnnctsHCCI_NctsId As Global.System.Data.DataColumn Private columnnctsHCCI_NctsHCId As Global.System.Data.DataColumn Private columnnctsHCCI_GoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_DeclarationGoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_CommodityCode As Global.System.Data.DataColumn Private columnnctsHCCI_MethodeOfPayment As Global.System.Data.DataColumn Private columnnctsHCCI_UNNumber_1 As Global.System.Data.DataColumn Private columnnctsHCCI_UNNumber_2 As Global.System.Data.DataColumn Private columnnctsHCCI_UNNumber_3 As Global.System.Data.DataColumn Private columnnctsHCCI_UNNumber_4 As Global.System.Data.DataColumn Private columnnctsHCCI_DeclarationType As Global.System.Data.DataColumn Private columnnctsHCCI_ArticleCode As Global.System.Data.DataColumn Private columnnctsHCCI_DescriptionOfGoods As Global.System.Data.DataColumn Private columnnctsHCCI_CusCode As Global.System.Data.DataColumn Private columnnctsHCCI_CountryOfDispatch As Global.System.Data.DataColumn Private columnnctsHCCI_CountryOfDestination As Global.System.Data.DataColumn Private columnnctsHCCI_GrossMass As Global.System.Data.DataColumn Private columnnctsHCCI_NetMass As Global.System.Data.DataColumn Private columnnctsHCCI_ReferenceNumberUCR As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_AdressCode As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_SubsidiaryNumber As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_Name As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_StreetNumber As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_City As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_Postcode As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_Country As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_ContactPerson_Name As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_ContactPerson_PhoneNumber As Global.System.Data.DataColumn Private columnnctsHCCI_Consignor_ContactPerson_EMailAddress As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_1_Role As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_2_Role As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_3_Role As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_4_Role As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_5_Role As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_6_Role As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_7_Role As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_8_Role As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_9_Role As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As Global.System.Data.DataColumn Private columnnctsHCCI_GoodsValue As Global.System.Data.DataColumn Private columnnctsHCCI_CurrencyOfGoodsValue As Global.System.Data.DataColumn Private columnnctsHCCI_ExchangeRate As Global.System.Data.DataColumn Private columnnctsHCCI_ExchangeDate As Global.System.Data.DataColumn Private columnnctsHCCI_CurrencyExchangeRateType As Global.System.Data.DataColumn Private columnnctsHCCI_FractionOfGoodsValue As Global.System.Data.DataColumn Private columnnctsHCCI_GuaranteeAmount As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_1_Type As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_1_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_1_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_1_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_1_GoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_2_Type As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_2_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_2_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_2_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_2_GoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_3_Type As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_3_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_3_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_3_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_3_GoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_4_Type As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_4_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_4_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_4_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_4_GoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_5_Type As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_5_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_5_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_5_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_5_GoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_6_Type As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_6_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_6_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_6_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_6_GoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_7_Type As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_7_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_7_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_7_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_7_GoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_8_Type As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_8_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_8_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_8_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_8_GoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_9_Type As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_9_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_9_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_9_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_PreviousDocument_9_GoodsItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_1_Type As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_1_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_1_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_1_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_2_Type As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_2_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_2_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_2_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_3_Type As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_3_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_3_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_3_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_4_Type As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_4_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_4_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_4_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_5_Type As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_5_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_5_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_5_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_6_Type As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_6_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_6_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_6_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_7_Type As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_7_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_7_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_7_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_8_Type As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_8_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_8_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_8_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_9_Type As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_9_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_9_DocumentLineItemNumber As Global.System.Data.DataColumn Private columnnctsHCCI_SupportingDocument_9_ComplementOfInformation As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_1_Type As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_1_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_2_Type As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_2_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_3_Type As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_3_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_4_Type As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_4_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_5_Type As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_5_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_6_Type As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_6_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_7_Type As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_7_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_8_Type As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_8_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_9_Type As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalReference_9_ReferenceNumber As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_1_Code As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_1_Text As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_2_Code As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_2_Text As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_3_Code As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_3_Text As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_4_Code As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_4_Text As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_5_Code As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_5_Text As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_6_Code As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_6_Text As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_7_Code As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_7_Text As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_8_Code As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_8_Text As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_9_Code As Global.System.Data.DataColumn Private columnnctsHCCI_AdditionalInformation_9_Text As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem" 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 nctsHCCI_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Id End Get End Property _ Public ReadOnly Property nctsHCCI_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_NctsId End Get End Property _ Public ReadOnly Property nctsHCCI_NctsHCIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_NctsHCId End Get End Property _ Public ReadOnly Property nctsHCCI_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_GoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_DeclarationGoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_DeclarationGoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_CommodityCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_CommodityCode End Get End Property _ Public ReadOnly Property nctsHCCI_MethodeOfPaymentColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_MethodeOfPayment End Get End Property _ Public ReadOnly Property nctsHCCI_UNNumber_1Column() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_UNNumber_1 End Get End Property _ Public ReadOnly Property nctsHCCI_UNNumber_2Column() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_UNNumber_2 End Get End Property _ Public ReadOnly Property nctsHCCI_UNNumber_3Column() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_UNNumber_3 End Get End Property _ Public ReadOnly Property nctsHCCI_UNNumber_4Column() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_UNNumber_4 End Get End Property _ Public ReadOnly Property nctsHCCI_DeclarationTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_DeclarationType End Get End Property _ Public ReadOnly Property nctsHCCI_ArticleCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_ArticleCode End Get End Property _ Public ReadOnly Property nctsHCCI_DescriptionOfGoodsColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_DescriptionOfGoods End Get End Property _ Public ReadOnly Property nctsHCCI_CusCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_CusCode End Get End Property _ Public ReadOnly Property nctsHCCI_CountryOfDispatchColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_CountryOfDispatch End Get End Property _ Public ReadOnly Property nctsHCCI_CountryOfDestinationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_CountryOfDestination End Get End Property _ Public ReadOnly Property nctsHCCI_GrossMassColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_GrossMass End Get End Property _ Public ReadOnly Property nctsHCCI_NetMassColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_NetMass End Get End Property _ Public ReadOnly Property nctsHCCI_ReferenceNumberUCRColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_ReferenceNumberUCR End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_AdressCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_AdressCode End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_SubsidiaryNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_SubsidiaryNumber End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_Name End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_StreetNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_StreetNumber End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_CityColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_City End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_PostcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_Postcode End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_Country End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_ContactPerson_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_ContactPerson_Name End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_ContactPerson_PhoneNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_ContactPerson_PhoneNumber End Get End Property _ Public ReadOnly Property nctsHCCI_Consignor_ContactPerson_EMailAddressColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_Consignor_ContactPerson_EMailAddress End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_1_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_1_Role End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_2_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_2_Role End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_3_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_3_Role End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_4_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_4_Role End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_5_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_5_Role End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_6_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_6_Role End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_7_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_7_Role End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_8_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_8_Role End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_9_RoleColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_9_Role End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber End Get End Property _ Public ReadOnly Property nctsHCCI_GoodsValueColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_GoodsValue End Get End Property _ Public ReadOnly Property nctsHCCI_CurrencyOfGoodsValueColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_CurrencyOfGoodsValue End Get End Property _ Public ReadOnly Property nctsHCCI_ExchangeRateColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_ExchangeRate End Get End Property _ Public ReadOnly Property nctsHCCI_ExchangeDateColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_ExchangeDate End Get End Property _ Public ReadOnly Property nctsHCCI_CurrencyExchangeRateTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_CurrencyExchangeRateType End Get End Property _ Public ReadOnly Property nctsHCCI_FractionOfGoodsValueColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_FractionOfGoodsValue End Get End Property _ Public ReadOnly Property nctsHCCI_GuaranteeAmountColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_GuaranteeAmount End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_1_Type End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_1_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_1_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_1_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_1_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_1_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_1_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_1_GoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_2_Type End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_2_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_2_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_2_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_2_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_2_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_2_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_2_GoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_3_Type End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_3_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_3_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_3_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_3_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_3_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_3_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_3_GoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_4_Type End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_4_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_4_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_4_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_4_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_4_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_4_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_4_GoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_5_Type End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_5_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_5_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_5_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_5_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_5_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_5_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_5_GoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_6_Type End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_6_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_6_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_6_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_6_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_6_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_6_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_6_GoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_7_Type End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_7_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_7_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_7_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_7_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_7_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_7_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_7_GoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_8_Type End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_8_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_8_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_8_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_8_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_8_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_8_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_8_GoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_9_Type End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_9_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_9_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_9_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_9_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_9_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_PreviousDocument_9_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_PreviousDocument_9_GoodsItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_1_Type End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_1_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_1_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_1_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_1_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_1_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_2_Type End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_2_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_2_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_2_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_2_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_2_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_3_Type End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_3_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_3_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_3_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_3_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_3_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_4_Type End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_4_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_4_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_4_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_4_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_4_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_5_Type End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_5_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_5_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_5_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_5_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_5_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_6_Type End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_6_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_6_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_6_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_6_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_6_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_7_Type End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_7_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_7_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_7_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_7_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_7_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_8_Type End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_8_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_8_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_8_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_8_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_8_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_9_Type End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_9_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_9_DocumentLineItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_9_DocumentLineItemNumber End Get End Property _ Public ReadOnly Property nctsHCCI_SupportingDocument_9_ComplementOfInformationColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_SupportingDocument_9_ComplementOfInformation End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_1_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_1_Type End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_1_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_1_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_2_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_2_Type End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_2_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_2_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_3_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_3_Type End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_3_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_3_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_4_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_4_Type End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_4_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_4_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_5_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_5_Type End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_5_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_5_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_6_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_6_Type End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_6_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_6_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_7_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_7_Type End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_7_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_7_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_8_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_8_Type End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_8_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_8_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_9_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_9_Type End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalReference_9_ReferenceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalReference_9_ReferenceNumber End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_1_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_1_Code End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_1_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_1_Text End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_2_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_2_Code End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_2_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_2_Text End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_3_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_3_Code End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_3_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_3_Text End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_4_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_4_Code End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_4_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_4_Text End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_5_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_5_Code End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_5_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_5_Text End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_6_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_6_Code End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_6_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_6_Text End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_7_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_7_Code End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_7_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_7_Text End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_8_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_8_Code End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_8_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_8_Text End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_9_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_9_Code End Get End Property _ Public ReadOnly Property nctsHCCI_AdditionalInformation_9_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCI_AdditionalInformation_9_Text 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 tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow Get Return CType(Me.Rows(index),tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow) End Get End Property _ Public Event tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChanging As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChanged As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowDeleting As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowDeleted As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow(ByVal row As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow( _ ByVal nctsHCCI_NctsId As Integer, _ ByVal nctsHCCI_NctsHCId As Integer, _ ByVal nctsHCCI_GoodsItemNumber As Integer, _ ByVal nctsHCCI_DeclarationGoodsItemNumber As Integer, _ ByVal nctsHCCI_CommodityCode As String, _ ByVal nctsHCCI_MethodeOfPayment As String, _ ByVal nctsHCCI_UNNumber_1 As String, _ ByVal nctsHCCI_UNNumber_2 As String, _ ByVal nctsHCCI_UNNumber_3 As String, _ ByVal nctsHCCI_UNNumber_4 As String, _ ByVal nctsHCCI_DeclarationType As String, _ ByVal nctsHCCI_ArticleCode As String, _ ByVal nctsHCCI_DescriptionOfGoods As String, _ ByVal nctsHCCI_CusCode As String, _ ByVal nctsHCCI_CountryOfDispatch As String, _ ByVal nctsHCCI_CountryOfDestination As String, _ ByVal nctsHCCI_GrossMass As Decimal, _ ByVal nctsHCCI_NetMass As Decimal, _ ByVal nctsHCCI_ReferenceNumberUCR As String, _ ByVal nctsHCCI_Consignor_AdressCode As String, _ ByVal nctsHCCI_Consignor_IdentificationNumber As String, _ ByVal nctsHCCI_Consignor_SubsidiaryNumber As String, _ ByVal nctsHCCI_Consignor_Name As String, _ ByVal nctsHCCI_Consignor_StreetNumber As String, _ ByVal nctsHCCI_Consignor_City As String, _ ByVal nctsHCCI_Consignor_Postcode As String, _ ByVal nctsHCCI_Consignor_Country As String, _ ByVal nctsHCCI_Consignor_ContactPerson_Name As String, _ ByVal nctsHCCI_Consignor_ContactPerson_PhoneNumber As String, _ ByVal nctsHCCI_Consignor_ContactPerson_EMailAddress As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_1_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_2_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_3_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_4_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_5_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_6_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_7_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_8_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_9_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal nctsHCCI_GoodsValue As Decimal, _ ByVal nctsHCCI_CurrencyOfGoodsValue As String, _ ByVal nctsHCCI_ExchangeRate As Decimal, _ ByVal nctsHCCI_ExchangeDate As Date, _ ByVal nctsHCCI_CurrencyExchangeRateType As String, _ ByVal nctsHCCI_FractionOfGoodsValue As Decimal, _ ByVal nctsHCCI_GuaranteeAmount As Decimal, _ ByVal nctsHCCI_PreviousDocument_1_Type As String, _ ByVal nctsHCCI_PreviousDocument_1_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_1_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_1_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_Type As String, _ ByVal nctsHCCI_PreviousDocument_2_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_2_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_Type As String, _ ByVal nctsHCCI_PreviousDocument_3_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_3_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_Type As String, _ ByVal nctsHCCI_PreviousDocument_4_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_4_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_Type As String, _ ByVal nctsHCCI_PreviousDocument_5_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_5_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_Type As String, _ ByVal nctsHCCI_PreviousDocument_6_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_6_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_Type As String, _ ByVal nctsHCCI_PreviousDocument_7_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_7_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_Type As String, _ ByVal nctsHCCI_PreviousDocument_8_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_8_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_Type As String, _ ByVal nctsHCCI_PreviousDocument_9_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_9_GoodsItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_Type As String, _ ByVal nctsHCCI_SupportingDocument_1_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_2_Type As String, _ ByVal nctsHCCI_SupportingDocument_2_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_2_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_3_Type As String, _ ByVal nctsHCCI_SupportingDocument_3_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_3_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_4_Type As String, _ ByVal nctsHCCI_SupportingDocument_4_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_4_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_5_Type As String, _ ByVal nctsHCCI_SupportingDocument_5_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_5_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_6_Type As String, _ ByVal nctsHCCI_SupportingDocument_6_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_6_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_7_Type As String, _ ByVal nctsHCCI_SupportingDocument_7_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_7_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_8_Type As String, _ ByVal nctsHCCI_SupportingDocument_8_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_8_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_9_Type As String, _ ByVal nctsHCCI_SupportingDocument_9_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_9_ComplementOfInformation As String, _ ByVal nctsHCCI_AdditionalReference_1_Type As String, _ ByVal nctsHCCI_AdditionalReference_1_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_2_Type As String, _ ByVal nctsHCCI_AdditionalReference_2_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_3_Type As String, _ ByVal nctsHCCI_AdditionalReference_3_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_4_Type As String, _ ByVal nctsHCCI_AdditionalReference_4_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_5_Type As String, _ ByVal nctsHCCI_AdditionalReference_5_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_6_Type As String, _ ByVal nctsHCCI_AdditionalReference_6_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_7_Type As String, _ ByVal nctsHCCI_AdditionalReference_7_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_8_Type As String, _ ByVal nctsHCCI_AdditionalReference_8_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_9_Type As String, _ ByVal nctsHCCI_AdditionalReference_9_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalInformation_1_Code As String, _ ByVal nctsHCCI_AdditionalInformation_1_Text As String, _ ByVal nctsHCCI_AdditionalInformation_2_Code As String, _ ByVal nctsHCCI_AdditionalInformation_2_Text As String, _ ByVal nctsHCCI_AdditionalInformation_3_Code As String, _ ByVal nctsHCCI_AdditionalInformation_3_Text As String, _ ByVal nctsHCCI_AdditionalInformation_4_Code As String, _ ByVal nctsHCCI_AdditionalInformation_4_Text As String, _ ByVal nctsHCCI_AdditionalInformation_5_Code As String, _ ByVal nctsHCCI_AdditionalInformation_5_Text As String, _ ByVal nctsHCCI_AdditionalInformation_6_Code As String, _ ByVal nctsHCCI_AdditionalInformation_6_Text As String, _ ByVal nctsHCCI_AdditionalInformation_7_Code As String, _ ByVal nctsHCCI_AdditionalInformation_7_Text As String, _ ByVal nctsHCCI_AdditionalInformation_8_Code As String, _ ByVal nctsHCCI_AdditionalInformation_8_Text As String, _ ByVal nctsHCCI_AdditionalInformation_9_Code As String, _ ByVal nctsHCCI_AdditionalInformation_9_Text As String) As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow Dim rowtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow = CType(Me.NewRow,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsHCCI_NctsId, nctsHCCI_NctsHCId, nctsHCCI_GoodsItemNumber, nctsHCCI_DeclarationGoodsItemNumber, nctsHCCI_CommodityCode, nctsHCCI_MethodeOfPayment, nctsHCCI_UNNumber_1, nctsHCCI_UNNumber_2, nctsHCCI_UNNumber_3, nctsHCCI_UNNumber_4, nctsHCCI_DeclarationType, nctsHCCI_ArticleCode, nctsHCCI_DescriptionOfGoods, nctsHCCI_CusCode, nctsHCCI_CountryOfDispatch, nctsHCCI_CountryOfDestination, nctsHCCI_GrossMass, nctsHCCI_NetMass, nctsHCCI_ReferenceNumberUCR, nctsHCCI_Consignor_AdressCode, nctsHCCI_Consignor_IdentificationNumber, nctsHCCI_Consignor_SubsidiaryNumber, nctsHCCI_Consignor_Name, nctsHCCI_Consignor_StreetNumber, nctsHCCI_Consignor_City, nctsHCCI_Consignor_Postcode, nctsHCCI_Consignor_Country, nctsHCCI_Consignor_ContactPerson_Name, nctsHCCI_Consignor_ContactPerson_PhoneNumber, nctsHCCI_Consignor_ContactPerson_EMailAddress, nctsHCCI_AdditionalSupplyChainActor_1_Role, nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_2_Role, nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_3_Role, nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_4_Role, nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_5_Role, nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_6_Role, nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_7_Role, nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_8_Role, nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_9_Role, nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber, nctsHCCI_GoodsValue, nctsHCCI_CurrencyOfGoodsValue, nctsHCCI_ExchangeRate, nctsHCCI_ExchangeDate, nctsHCCI_CurrencyExchangeRateType, nctsHCCI_FractionOfGoodsValue, nctsHCCI_GuaranteeAmount, nctsHCCI_PreviousDocument_1_Type, nctsHCCI_PreviousDocument_1_ReferenceNumber, nctsHCCI_PreviousDocument_1_DocumentLineItemNumber, nctsHCCI_PreviousDocument_1_ComplementOfInformation, nctsHCCI_PreviousDocument_1_GoodsItemNumber, nctsHCCI_PreviousDocument_2_Type, nctsHCCI_PreviousDocument_2_ReferenceNumber, nctsHCCI_PreviousDocument_2_DocumentLineItemNumber, nctsHCCI_PreviousDocument_2_ComplementOfInformation, nctsHCCI_PreviousDocument_2_GoodsItemNumber, nctsHCCI_PreviousDocument_3_Type, nctsHCCI_PreviousDocument_3_ReferenceNumber, nctsHCCI_PreviousDocument_3_DocumentLineItemNumber, nctsHCCI_PreviousDocument_3_ComplementOfInformation, nctsHCCI_PreviousDocument_3_GoodsItemNumber, nctsHCCI_PreviousDocument_4_Type, nctsHCCI_PreviousDocument_4_ReferenceNumber, nctsHCCI_PreviousDocument_4_DocumentLineItemNumber, nctsHCCI_PreviousDocument_4_ComplementOfInformation, nctsHCCI_PreviousDocument_4_GoodsItemNumber, nctsHCCI_PreviousDocument_5_Type, nctsHCCI_PreviousDocument_5_ReferenceNumber, nctsHCCI_PreviousDocument_5_DocumentLineItemNumber, nctsHCCI_PreviousDocument_5_ComplementOfInformation, nctsHCCI_PreviousDocument_5_GoodsItemNumber, nctsHCCI_PreviousDocument_6_Type, nctsHCCI_PreviousDocument_6_ReferenceNumber, nctsHCCI_PreviousDocument_6_DocumentLineItemNumber, nctsHCCI_PreviousDocument_6_ComplementOfInformation, nctsHCCI_PreviousDocument_6_GoodsItemNumber, nctsHCCI_PreviousDocument_7_Type, nctsHCCI_PreviousDocument_7_ReferenceNumber, nctsHCCI_PreviousDocument_7_DocumentLineItemNumber, nctsHCCI_PreviousDocument_7_ComplementOfInformation, nctsHCCI_PreviousDocument_7_GoodsItemNumber, nctsHCCI_PreviousDocument_8_Type, nctsHCCI_PreviousDocument_8_ReferenceNumber, nctsHCCI_PreviousDocument_8_DocumentLineItemNumber, nctsHCCI_PreviousDocument_8_ComplementOfInformation, nctsHCCI_PreviousDocument_8_GoodsItemNumber, nctsHCCI_PreviousDocument_9_Type, nctsHCCI_PreviousDocument_9_ReferenceNumber, nctsHCCI_PreviousDocument_9_DocumentLineItemNumber, nctsHCCI_PreviousDocument_9_ComplementOfInformation, nctsHCCI_PreviousDocument_9_GoodsItemNumber, nctsHCCI_SupportingDocument_1_Type, nctsHCCI_SupportingDocument_1_ReferenceNumber, nctsHCCI_SupportingDocument_1_DocumentLineItemNumber, nctsHCCI_SupportingDocument_1_ComplementOfInformation, nctsHCCI_SupportingDocument_2_Type, nctsHCCI_SupportingDocument_2_ReferenceNumber, nctsHCCI_SupportingDocument_2_DocumentLineItemNumber, nctsHCCI_SupportingDocument_2_ComplementOfInformation, nctsHCCI_SupportingDocument_3_Type, nctsHCCI_SupportingDocument_3_ReferenceNumber, nctsHCCI_SupportingDocument_3_DocumentLineItemNumber, nctsHCCI_SupportingDocument_3_ComplementOfInformation, nctsHCCI_SupportingDocument_4_Type, nctsHCCI_SupportingDocument_4_ReferenceNumber, nctsHCCI_SupportingDocument_4_DocumentLineItemNumber, nctsHCCI_SupportingDocument_4_ComplementOfInformation, nctsHCCI_SupportingDocument_5_Type, nctsHCCI_SupportingDocument_5_ReferenceNumber, nctsHCCI_SupportingDocument_5_DocumentLineItemNumber, nctsHCCI_SupportingDocument_5_ComplementOfInformation, nctsHCCI_SupportingDocument_6_Type, nctsHCCI_SupportingDocument_6_ReferenceNumber, nctsHCCI_SupportingDocument_6_DocumentLineItemNumber, nctsHCCI_SupportingDocument_6_ComplementOfInformation, nctsHCCI_SupportingDocument_7_Type, nctsHCCI_SupportingDocument_7_ReferenceNumber, nctsHCCI_SupportingDocument_7_DocumentLineItemNumber, nctsHCCI_SupportingDocument_7_ComplementOfInformation, nctsHCCI_SupportingDocument_8_Type, nctsHCCI_SupportingDocument_8_ReferenceNumber, nctsHCCI_SupportingDocument_8_DocumentLineItemNumber, nctsHCCI_SupportingDocument_8_ComplementOfInformation, nctsHCCI_SupportingDocument_9_Type, nctsHCCI_SupportingDocument_9_ReferenceNumber, nctsHCCI_SupportingDocument_9_DocumentLineItemNumber, nctsHCCI_SupportingDocument_9_ComplementOfInformation, nctsHCCI_AdditionalReference_1_Type, nctsHCCI_AdditionalReference_1_ReferenceNumber, nctsHCCI_AdditionalReference_2_Type, nctsHCCI_AdditionalReference_2_ReferenceNumber, nctsHCCI_AdditionalReference_3_Type, nctsHCCI_AdditionalReference_3_ReferenceNumber, nctsHCCI_AdditionalReference_4_Type, nctsHCCI_AdditionalReference_4_ReferenceNumber, nctsHCCI_AdditionalReference_5_Type, nctsHCCI_AdditionalReference_5_ReferenceNumber, nctsHCCI_AdditionalReference_6_Type, nctsHCCI_AdditionalReference_6_ReferenceNumber, nctsHCCI_AdditionalReference_7_Type, nctsHCCI_AdditionalReference_7_ReferenceNumber, nctsHCCI_AdditionalReference_8_Type, nctsHCCI_AdditionalReference_8_ReferenceNumber, nctsHCCI_AdditionalReference_9_Type, nctsHCCI_AdditionalReference_9_ReferenceNumber, nctsHCCI_AdditionalInformation_1_Code, nctsHCCI_AdditionalInformation_1_Text, nctsHCCI_AdditionalInformation_2_Code, nctsHCCI_AdditionalInformation_2_Text, nctsHCCI_AdditionalInformation_3_Code, nctsHCCI_AdditionalInformation_3_Text, nctsHCCI_AdditionalInformation_4_Code, nctsHCCI_AdditionalInformation_4_Text, nctsHCCI_AdditionalInformation_5_Code, nctsHCCI_AdditionalInformation_5_Text, nctsHCCI_AdditionalInformation_6_Code, nctsHCCI_AdditionalInformation_6_Text, nctsHCCI_AdditionalInformation_7_Code, nctsHCCI_AdditionalInformation_7_Text, nctsHCCI_AdditionalInformation_8_Code, nctsHCCI_AdditionalInformation_8_Text, nctsHCCI_AdditionalInformation_9_Code, nctsHCCI_AdditionalInformation_9_Text} rowtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow) Return rowtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow End Function _ Public Function FindBynctsHCCI_Id(ByVal nctsHCCI_Id As Integer) As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow Return CType(Me.Rows.Find(New Object() {nctsHCCI_Id}),tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable = CType(MyBase.Clone,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable() End Function _ Friend Sub InitVars() Me.columnnctsHCCI_Id = MyBase.Columns("nctsHCCI_Id") Me.columnnctsHCCI_NctsId = MyBase.Columns("nctsHCCI_NctsId") Me.columnnctsHCCI_NctsHCId = MyBase.Columns("nctsHCCI_NctsHCId") Me.columnnctsHCCI_GoodsItemNumber = MyBase.Columns("nctsHCCI_GoodsItemNumber") Me.columnnctsHCCI_DeclarationGoodsItemNumber = MyBase.Columns("nctsHCCI_DeclarationGoodsItemNumber") Me.columnnctsHCCI_CommodityCode = MyBase.Columns("nctsHCCI_CommodityCode") Me.columnnctsHCCI_MethodeOfPayment = MyBase.Columns("nctsHCCI_MethodeOfPayment") Me.columnnctsHCCI_UNNumber_1 = MyBase.Columns("nctsHCCI_UNNumber_1") Me.columnnctsHCCI_UNNumber_2 = MyBase.Columns("nctsHCCI_UNNumber_2") Me.columnnctsHCCI_UNNumber_3 = MyBase.Columns("nctsHCCI_UNNumber_3") Me.columnnctsHCCI_UNNumber_4 = MyBase.Columns("nctsHCCI_UNNumber_4") Me.columnnctsHCCI_DeclarationType = MyBase.Columns("nctsHCCI_DeclarationType") Me.columnnctsHCCI_ArticleCode = MyBase.Columns("nctsHCCI_ArticleCode") Me.columnnctsHCCI_DescriptionOfGoods = MyBase.Columns("nctsHCCI_DescriptionOfGoods") Me.columnnctsHCCI_CusCode = MyBase.Columns("nctsHCCI_CusCode") Me.columnnctsHCCI_CountryOfDispatch = MyBase.Columns("nctsHCCI_CountryOfDispatch") Me.columnnctsHCCI_CountryOfDestination = MyBase.Columns("nctsHCCI_CountryOfDestination") Me.columnnctsHCCI_GrossMass = MyBase.Columns("nctsHCCI_GrossMass") Me.columnnctsHCCI_NetMass = MyBase.Columns("nctsHCCI_NetMass") Me.columnnctsHCCI_ReferenceNumberUCR = MyBase.Columns("nctsHCCI_ReferenceNumberUCR") Me.columnnctsHCCI_Consignor_AdressCode = MyBase.Columns("nctsHCCI_Consignor_AdressCode") Me.columnnctsHCCI_Consignor_IdentificationNumber = MyBase.Columns("nctsHCCI_Consignor_IdentificationNumber") Me.columnnctsHCCI_Consignor_SubsidiaryNumber = MyBase.Columns("nctsHCCI_Consignor_SubsidiaryNumber") Me.columnnctsHCCI_Consignor_Name = MyBase.Columns("nctsHCCI_Consignor_Name") Me.columnnctsHCCI_Consignor_StreetNumber = MyBase.Columns("nctsHCCI_Consignor_StreetNumber") Me.columnnctsHCCI_Consignor_City = MyBase.Columns("nctsHCCI_Consignor_City") Me.columnnctsHCCI_Consignor_Postcode = MyBase.Columns("nctsHCCI_Consignor_Postcode") Me.columnnctsHCCI_Consignor_Country = MyBase.Columns("nctsHCCI_Consignor_Country") Me.columnnctsHCCI_Consignor_ContactPerson_Name = MyBase.Columns("nctsHCCI_Consignor_ContactPerson_Name") Me.columnnctsHCCI_Consignor_ContactPerson_PhoneNumber = MyBase.Columns("nctsHCCI_Consignor_ContactPerson_PhoneNumber") Me.columnnctsHCCI_Consignor_ContactPerson_EMailAddress = MyBase.Columns("nctsHCCI_Consignor_ContactPerson_EMailAddress") Me.columnnctsHCCI_AdditionalSupplyChainActor_1_Role = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_1_Role") Me.columnnctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber") Me.columnnctsHCCI_AdditionalSupplyChainActor_2_Role = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_2_Role") Me.columnnctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber") Me.columnnctsHCCI_AdditionalSupplyChainActor_3_Role = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_3_Role") Me.columnnctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber") Me.columnnctsHCCI_AdditionalSupplyChainActor_4_Role = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_4_Role") Me.columnnctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber") Me.columnnctsHCCI_AdditionalSupplyChainActor_5_Role = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_5_Role") Me.columnnctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber") Me.columnnctsHCCI_AdditionalSupplyChainActor_6_Role = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_6_Role") Me.columnnctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber") Me.columnnctsHCCI_AdditionalSupplyChainActor_7_Role = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_7_Role") Me.columnnctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber") Me.columnnctsHCCI_AdditionalSupplyChainActor_8_Role = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_8_Role") Me.columnnctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber") Me.columnnctsHCCI_AdditionalSupplyChainActor_9_Role = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_9_Role") Me.columnnctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber = MyBase.Columns("nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber") Me.columnnctsHCCI_GoodsValue = MyBase.Columns("nctsHCCI_GoodsValue") Me.columnnctsHCCI_CurrencyOfGoodsValue = MyBase.Columns("nctsHCCI_CurrencyOfGoodsValue") Me.columnnctsHCCI_ExchangeRate = MyBase.Columns("nctsHCCI_ExchangeRate") Me.columnnctsHCCI_ExchangeDate = MyBase.Columns("nctsHCCI_ExchangeDate") Me.columnnctsHCCI_CurrencyExchangeRateType = MyBase.Columns("nctsHCCI_CurrencyExchangeRateType") Me.columnnctsHCCI_FractionOfGoodsValue = MyBase.Columns("nctsHCCI_FractionOfGoodsValue") Me.columnnctsHCCI_GuaranteeAmount = MyBase.Columns("nctsHCCI_GuaranteeAmount") Me.columnnctsHCCI_PreviousDocument_1_Type = MyBase.Columns("nctsHCCI_PreviousDocument_1_Type") Me.columnnctsHCCI_PreviousDocument_1_ReferenceNumber = MyBase.Columns("nctsHCCI_PreviousDocument_1_ReferenceNumber") Me.columnnctsHCCI_PreviousDocument_1_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_1_DocumentLineItemNumber") Me.columnnctsHCCI_PreviousDocument_1_ComplementOfInformation = MyBase.Columns("nctsHCCI_PreviousDocument_1_ComplementOfInformation") Me.columnnctsHCCI_PreviousDocument_1_GoodsItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_1_GoodsItemNumber") Me.columnnctsHCCI_PreviousDocument_2_Type = MyBase.Columns("nctsHCCI_PreviousDocument_2_Type") Me.columnnctsHCCI_PreviousDocument_2_ReferenceNumber = MyBase.Columns("nctsHCCI_PreviousDocument_2_ReferenceNumber") Me.columnnctsHCCI_PreviousDocument_2_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_2_DocumentLineItemNumber") Me.columnnctsHCCI_PreviousDocument_2_ComplementOfInformation = MyBase.Columns("nctsHCCI_PreviousDocument_2_ComplementOfInformation") Me.columnnctsHCCI_PreviousDocument_2_GoodsItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_2_GoodsItemNumber") Me.columnnctsHCCI_PreviousDocument_3_Type = MyBase.Columns("nctsHCCI_PreviousDocument_3_Type") Me.columnnctsHCCI_PreviousDocument_3_ReferenceNumber = MyBase.Columns("nctsHCCI_PreviousDocument_3_ReferenceNumber") Me.columnnctsHCCI_PreviousDocument_3_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_3_DocumentLineItemNumber") Me.columnnctsHCCI_PreviousDocument_3_ComplementOfInformation = MyBase.Columns("nctsHCCI_PreviousDocument_3_ComplementOfInformation") Me.columnnctsHCCI_PreviousDocument_3_GoodsItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_3_GoodsItemNumber") Me.columnnctsHCCI_PreviousDocument_4_Type = MyBase.Columns("nctsHCCI_PreviousDocument_4_Type") Me.columnnctsHCCI_PreviousDocument_4_ReferenceNumber = MyBase.Columns("nctsHCCI_PreviousDocument_4_ReferenceNumber") Me.columnnctsHCCI_PreviousDocument_4_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_4_DocumentLineItemNumber") Me.columnnctsHCCI_PreviousDocument_4_ComplementOfInformation = MyBase.Columns("nctsHCCI_PreviousDocument_4_ComplementOfInformation") Me.columnnctsHCCI_PreviousDocument_4_GoodsItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_4_GoodsItemNumber") Me.columnnctsHCCI_PreviousDocument_5_Type = MyBase.Columns("nctsHCCI_PreviousDocument_5_Type") Me.columnnctsHCCI_PreviousDocument_5_ReferenceNumber = MyBase.Columns("nctsHCCI_PreviousDocument_5_ReferenceNumber") Me.columnnctsHCCI_PreviousDocument_5_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_5_DocumentLineItemNumber") Me.columnnctsHCCI_PreviousDocument_5_ComplementOfInformation = MyBase.Columns("nctsHCCI_PreviousDocument_5_ComplementOfInformation") Me.columnnctsHCCI_PreviousDocument_5_GoodsItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_5_GoodsItemNumber") Me.columnnctsHCCI_PreviousDocument_6_Type = MyBase.Columns("nctsHCCI_PreviousDocument_6_Type") Me.columnnctsHCCI_PreviousDocument_6_ReferenceNumber = MyBase.Columns("nctsHCCI_PreviousDocument_6_ReferenceNumber") Me.columnnctsHCCI_PreviousDocument_6_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_6_DocumentLineItemNumber") Me.columnnctsHCCI_PreviousDocument_6_ComplementOfInformation = MyBase.Columns("nctsHCCI_PreviousDocument_6_ComplementOfInformation") Me.columnnctsHCCI_PreviousDocument_6_GoodsItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_6_GoodsItemNumber") Me.columnnctsHCCI_PreviousDocument_7_Type = MyBase.Columns("nctsHCCI_PreviousDocument_7_Type") Me.columnnctsHCCI_PreviousDocument_7_ReferenceNumber = MyBase.Columns("nctsHCCI_PreviousDocument_7_ReferenceNumber") Me.columnnctsHCCI_PreviousDocument_7_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_7_DocumentLineItemNumber") Me.columnnctsHCCI_PreviousDocument_7_ComplementOfInformation = MyBase.Columns("nctsHCCI_PreviousDocument_7_ComplementOfInformation") Me.columnnctsHCCI_PreviousDocument_7_GoodsItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_7_GoodsItemNumber") Me.columnnctsHCCI_PreviousDocument_8_Type = MyBase.Columns("nctsHCCI_PreviousDocument_8_Type") Me.columnnctsHCCI_PreviousDocument_8_ReferenceNumber = MyBase.Columns("nctsHCCI_PreviousDocument_8_ReferenceNumber") Me.columnnctsHCCI_PreviousDocument_8_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_8_DocumentLineItemNumber") Me.columnnctsHCCI_PreviousDocument_8_ComplementOfInformation = MyBase.Columns("nctsHCCI_PreviousDocument_8_ComplementOfInformation") Me.columnnctsHCCI_PreviousDocument_8_GoodsItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_8_GoodsItemNumber") Me.columnnctsHCCI_PreviousDocument_9_Type = MyBase.Columns("nctsHCCI_PreviousDocument_9_Type") Me.columnnctsHCCI_PreviousDocument_9_ReferenceNumber = MyBase.Columns("nctsHCCI_PreviousDocument_9_ReferenceNumber") Me.columnnctsHCCI_PreviousDocument_9_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_9_DocumentLineItemNumber") Me.columnnctsHCCI_PreviousDocument_9_ComplementOfInformation = MyBase.Columns("nctsHCCI_PreviousDocument_9_ComplementOfInformation") Me.columnnctsHCCI_PreviousDocument_9_GoodsItemNumber = MyBase.Columns("nctsHCCI_PreviousDocument_9_GoodsItemNumber") Me.columnnctsHCCI_SupportingDocument_1_Type = MyBase.Columns("nctsHCCI_SupportingDocument_1_Type") Me.columnnctsHCCI_SupportingDocument_1_ReferenceNumber = MyBase.Columns("nctsHCCI_SupportingDocument_1_ReferenceNumber") Me.columnnctsHCCI_SupportingDocument_1_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_SupportingDocument_1_DocumentLineItemNumber") Me.columnnctsHCCI_SupportingDocument_1_ComplementOfInformation = MyBase.Columns("nctsHCCI_SupportingDocument_1_ComplementOfInformation") Me.columnnctsHCCI_SupportingDocument_2_Type = MyBase.Columns("nctsHCCI_SupportingDocument_2_Type") Me.columnnctsHCCI_SupportingDocument_2_ReferenceNumber = MyBase.Columns("nctsHCCI_SupportingDocument_2_ReferenceNumber") Me.columnnctsHCCI_SupportingDocument_2_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_SupportingDocument_2_DocumentLineItemNumber") Me.columnnctsHCCI_SupportingDocument_2_ComplementOfInformation = MyBase.Columns("nctsHCCI_SupportingDocument_2_ComplementOfInformation") Me.columnnctsHCCI_SupportingDocument_3_Type = MyBase.Columns("nctsHCCI_SupportingDocument_3_Type") Me.columnnctsHCCI_SupportingDocument_3_ReferenceNumber = MyBase.Columns("nctsHCCI_SupportingDocument_3_ReferenceNumber") Me.columnnctsHCCI_SupportingDocument_3_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_SupportingDocument_3_DocumentLineItemNumber") Me.columnnctsHCCI_SupportingDocument_3_ComplementOfInformation = MyBase.Columns("nctsHCCI_SupportingDocument_3_ComplementOfInformation") Me.columnnctsHCCI_SupportingDocument_4_Type = MyBase.Columns("nctsHCCI_SupportingDocument_4_Type") Me.columnnctsHCCI_SupportingDocument_4_ReferenceNumber = MyBase.Columns("nctsHCCI_SupportingDocument_4_ReferenceNumber") Me.columnnctsHCCI_SupportingDocument_4_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_SupportingDocument_4_DocumentLineItemNumber") Me.columnnctsHCCI_SupportingDocument_4_ComplementOfInformation = MyBase.Columns("nctsHCCI_SupportingDocument_4_ComplementOfInformation") Me.columnnctsHCCI_SupportingDocument_5_Type = MyBase.Columns("nctsHCCI_SupportingDocument_5_Type") Me.columnnctsHCCI_SupportingDocument_5_ReferenceNumber = MyBase.Columns("nctsHCCI_SupportingDocument_5_ReferenceNumber") Me.columnnctsHCCI_SupportingDocument_5_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_SupportingDocument_5_DocumentLineItemNumber") Me.columnnctsHCCI_SupportingDocument_5_ComplementOfInformation = MyBase.Columns("nctsHCCI_SupportingDocument_5_ComplementOfInformation") Me.columnnctsHCCI_SupportingDocument_6_Type = MyBase.Columns("nctsHCCI_SupportingDocument_6_Type") Me.columnnctsHCCI_SupportingDocument_6_ReferenceNumber = MyBase.Columns("nctsHCCI_SupportingDocument_6_ReferenceNumber") Me.columnnctsHCCI_SupportingDocument_6_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_SupportingDocument_6_DocumentLineItemNumber") Me.columnnctsHCCI_SupportingDocument_6_ComplementOfInformation = MyBase.Columns("nctsHCCI_SupportingDocument_6_ComplementOfInformation") Me.columnnctsHCCI_SupportingDocument_7_Type = MyBase.Columns("nctsHCCI_SupportingDocument_7_Type") Me.columnnctsHCCI_SupportingDocument_7_ReferenceNumber = MyBase.Columns("nctsHCCI_SupportingDocument_7_ReferenceNumber") Me.columnnctsHCCI_SupportingDocument_7_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_SupportingDocument_7_DocumentLineItemNumber") Me.columnnctsHCCI_SupportingDocument_7_ComplementOfInformation = MyBase.Columns("nctsHCCI_SupportingDocument_7_ComplementOfInformation") Me.columnnctsHCCI_SupportingDocument_8_Type = MyBase.Columns("nctsHCCI_SupportingDocument_8_Type") Me.columnnctsHCCI_SupportingDocument_8_ReferenceNumber = MyBase.Columns("nctsHCCI_SupportingDocument_8_ReferenceNumber") Me.columnnctsHCCI_SupportingDocument_8_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_SupportingDocument_8_DocumentLineItemNumber") Me.columnnctsHCCI_SupportingDocument_8_ComplementOfInformation = MyBase.Columns("nctsHCCI_SupportingDocument_8_ComplementOfInformation") Me.columnnctsHCCI_SupportingDocument_9_Type = MyBase.Columns("nctsHCCI_SupportingDocument_9_Type") Me.columnnctsHCCI_SupportingDocument_9_ReferenceNumber = MyBase.Columns("nctsHCCI_SupportingDocument_9_ReferenceNumber") Me.columnnctsHCCI_SupportingDocument_9_DocumentLineItemNumber = MyBase.Columns("nctsHCCI_SupportingDocument_9_DocumentLineItemNumber") Me.columnnctsHCCI_SupportingDocument_9_ComplementOfInformation = MyBase.Columns("nctsHCCI_SupportingDocument_9_ComplementOfInformation") Me.columnnctsHCCI_AdditionalReference_1_Type = MyBase.Columns("nctsHCCI_AdditionalReference_1_Type") Me.columnnctsHCCI_AdditionalReference_1_ReferenceNumber = MyBase.Columns("nctsHCCI_AdditionalReference_1_ReferenceNumber") Me.columnnctsHCCI_AdditionalReference_2_Type = MyBase.Columns("nctsHCCI_AdditionalReference_2_Type") Me.columnnctsHCCI_AdditionalReference_2_ReferenceNumber = MyBase.Columns("nctsHCCI_AdditionalReference_2_ReferenceNumber") Me.columnnctsHCCI_AdditionalReference_3_Type = MyBase.Columns("nctsHCCI_AdditionalReference_3_Type") Me.columnnctsHCCI_AdditionalReference_3_ReferenceNumber = MyBase.Columns("nctsHCCI_AdditionalReference_3_ReferenceNumber") Me.columnnctsHCCI_AdditionalReference_4_Type = MyBase.Columns("nctsHCCI_AdditionalReference_4_Type") Me.columnnctsHCCI_AdditionalReference_4_ReferenceNumber = MyBase.Columns("nctsHCCI_AdditionalReference_4_ReferenceNumber") Me.columnnctsHCCI_AdditionalReference_5_Type = MyBase.Columns("nctsHCCI_AdditionalReference_5_Type") Me.columnnctsHCCI_AdditionalReference_5_ReferenceNumber = MyBase.Columns("nctsHCCI_AdditionalReference_5_ReferenceNumber") Me.columnnctsHCCI_AdditionalReference_6_Type = MyBase.Columns("nctsHCCI_AdditionalReference_6_Type") Me.columnnctsHCCI_AdditionalReference_6_ReferenceNumber = MyBase.Columns("nctsHCCI_AdditionalReference_6_ReferenceNumber") Me.columnnctsHCCI_AdditionalReference_7_Type = MyBase.Columns("nctsHCCI_AdditionalReference_7_Type") Me.columnnctsHCCI_AdditionalReference_7_ReferenceNumber = MyBase.Columns("nctsHCCI_AdditionalReference_7_ReferenceNumber") Me.columnnctsHCCI_AdditionalReference_8_Type = MyBase.Columns("nctsHCCI_AdditionalReference_8_Type") Me.columnnctsHCCI_AdditionalReference_8_ReferenceNumber = MyBase.Columns("nctsHCCI_AdditionalReference_8_ReferenceNumber") Me.columnnctsHCCI_AdditionalReference_9_Type = MyBase.Columns("nctsHCCI_AdditionalReference_9_Type") Me.columnnctsHCCI_AdditionalReference_9_ReferenceNumber = MyBase.Columns("nctsHCCI_AdditionalReference_9_ReferenceNumber") Me.columnnctsHCCI_AdditionalInformation_1_Code = MyBase.Columns("nctsHCCI_AdditionalInformation_1_Code") Me.columnnctsHCCI_AdditionalInformation_1_Text = MyBase.Columns("nctsHCCI_AdditionalInformation_1_Text") Me.columnnctsHCCI_AdditionalInformation_2_Code = MyBase.Columns("nctsHCCI_AdditionalInformation_2_Code") Me.columnnctsHCCI_AdditionalInformation_2_Text = MyBase.Columns("nctsHCCI_AdditionalInformation_2_Text") Me.columnnctsHCCI_AdditionalInformation_3_Code = MyBase.Columns("nctsHCCI_AdditionalInformation_3_Code") Me.columnnctsHCCI_AdditionalInformation_3_Text = MyBase.Columns("nctsHCCI_AdditionalInformation_3_Text") Me.columnnctsHCCI_AdditionalInformation_4_Code = MyBase.Columns("nctsHCCI_AdditionalInformation_4_Code") Me.columnnctsHCCI_AdditionalInformation_4_Text = MyBase.Columns("nctsHCCI_AdditionalInformation_4_Text") Me.columnnctsHCCI_AdditionalInformation_5_Code = MyBase.Columns("nctsHCCI_AdditionalInformation_5_Code") Me.columnnctsHCCI_AdditionalInformation_5_Text = MyBase.Columns("nctsHCCI_AdditionalInformation_5_Text") Me.columnnctsHCCI_AdditionalInformation_6_Code = MyBase.Columns("nctsHCCI_AdditionalInformation_6_Code") Me.columnnctsHCCI_AdditionalInformation_6_Text = MyBase.Columns("nctsHCCI_AdditionalInformation_6_Text") Me.columnnctsHCCI_AdditionalInformation_7_Code = MyBase.Columns("nctsHCCI_AdditionalInformation_7_Code") Me.columnnctsHCCI_AdditionalInformation_7_Text = MyBase.Columns("nctsHCCI_AdditionalInformation_7_Text") Me.columnnctsHCCI_AdditionalInformation_8_Code = MyBase.Columns("nctsHCCI_AdditionalInformation_8_Code") Me.columnnctsHCCI_AdditionalInformation_8_Text = MyBase.Columns("nctsHCCI_AdditionalInformation_8_Text") Me.columnnctsHCCI_AdditionalInformation_9_Code = MyBase.Columns("nctsHCCI_AdditionalInformation_9_Code") Me.columnnctsHCCI_AdditionalInformation_9_Text = MyBase.Columns("nctsHCCI_AdditionalInformation_9_Text") End Sub _ Private Sub InitClass() Me.columnnctsHCCI_Id = New Global.System.Data.DataColumn("nctsHCCI_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Id) Me.columnnctsHCCI_NctsId = New Global.System.Data.DataColumn("nctsHCCI_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_NctsId) Me.columnnctsHCCI_NctsHCId = New Global.System.Data.DataColumn("nctsHCCI_NctsHCId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_NctsHCId) Me.columnnctsHCCI_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_GoodsItemNumber", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_GoodsItemNumber) Me.columnnctsHCCI_DeclarationGoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_DeclarationGoodsItemNumber", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_DeclarationGoodsItemNumber) Me.columnnctsHCCI_CommodityCode = New Global.System.Data.DataColumn("nctsHCCI_CommodityCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_CommodityCode) Me.columnnctsHCCI_MethodeOfPayment = New Global.System.Data.DataColumn("nctsHCCI_MethodeOfPayment", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_MethodeOfPayment) Me.columnnctsHCCI_UNNumber_1 = New Global.System.Data.DataColumn("nctsHCCI_UNNumber_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_UNNumber_1) Me.columnnctsHCCI_UNNumber_2 = New Global.System.Data.DataColumn("nctsHCCI_UNNumber_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_UNNumber_2) Me.columnnctsHCCI_UNNumber_3 = New Global.System.Data.DataColumn("nctsHCCI_UNNumber_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_UNNumber_3) Me.columnnctsHCCI_UNNumber_4 = New Global.System.Data.DataColumn("nctsHCCI_UNNumber_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_UNNumber_4) Me.columnnctsHCCI_DeclarationType = New Global.System.Data.DataColumn("nctsHCCI_DeclarationType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_DeclarationType) Me.columnnctsHCCI_ArticleCode = New Global.System.Data.DataColumn("nctsHCCI_ArticleCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_ArticleCode) Me.columnnctsHCCI_DescriptionOfGoods = New Global.System.Data.DataColumn("nctsHCCI_DescriptionOfGoods", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_DescriptionOfGoods) Me.columnnctsHCCI_CusCode = New Global.System.Data.DataColumn("nctsHCCI_CusCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_CusCode) Me.columnnctsHCCI_CountryOfDispatch = New Global.System.Data.DataColumn("nctsHCCI_CountryOfDispatch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_CountryOfDispatch) Me.columnnctsHCCI_CountryOfDestination = New Global.System.Data.DataColumn("nctsHCCI_CountryOfDestination", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_CountryOfDestination) Me.columnnctsHCCI_GrossMass = New Global.System.Data.DataColumn("nctsHCCI_GrossMass", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_GrossMass) Me.columnnctsHCCI_NetMass = New Global.System.Data.DataColumn("nctsHCCI_NetMass", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_NetMass) Me.columnnctsHCCI_ReferenceNumberUCR = New Global.System.Data.DataColumn("nctsHCCI_ReferenceNumberUCR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_ReferenceNumberUCR) Me.columnnctsHCCI_Consignor_AdressCode = New Global.System.Data.DataColumn("nctsHCCI_Consignor_AdressCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_AdressCode) Me.columnnctsHCCI_Consignor_IdentificationNumber = New Global.System.Data.DataColumn("nctsHCCI_Consignor_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_IdentificationNumber) Me.columnnctsHCCI_Consignor_SubsidiaryNumber = New Global.System.Data.DataColumn("nctsHCCI_Consignor_SubsidiaryNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_SubsidiaryNumber) Me.columnnctsHCCI_Consignor_Name = New Global.System.Data.DataColumn("nctsHCCI_Consignor_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_Name) Me.columnnctsHCCI_Consignor_StreetNumber = New Global.System.Data.DataColumn("nctsHCCI_Consignor_StreetNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_StreetNumber) Me.columnnctsHCCI_Consignor_City = New Global.System.Data.DataColumn("nctsHCCI_Consignor_City", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_City) Me.columnnctsHCCI_Consignor_Postcode = New Global.System.Data.DataColumn("nctsHCCI_Consignor_Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_Postcode) Me.columnnctsHCCI_Consignor_Country = New Global.System.Data.DataColumn("nctsHCCI_Consignor_Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_Country) Me.columnnctsHCCI_Consignor_ContactPerson_Name = New Global.System.Data.DataColumn("nctsHCCI_Consignor_ContactPerson_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_ContactPerson_Name) Me.columnnctsHCCI_Consignor_ContactPerson_PhoneNumber = New Global.System.Data.DataColumn("nctsHCCI_Consignor_ContactPerson_PhoneNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_ContactPerson_PhoneNumber) Me.columnnctsHCCI_Consignor_ContactPerson_EMailAddress = New Global.System.Data.DataColumn("nctsHCCI_Consignor_ContactPerson_EMailAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_Consignor_ContactPerson_EMailAddress) Me.columnnctsHCCI_AdditionalSupplyChainActor_1_Role = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_1_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_1_Role) Me.columnnctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber) Me.columnnctsHCCI_AdditionalSupplyChainActor_2_Role = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_2_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_2_Role) Me.columnnctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber) Me.columnnctsHCCI_AdditionalSupplyChainActor_3_Role = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_3_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_3_Role) Me.columnnctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber) Me.columnnctsHCCI_AdditionalSupplyChainActor_4_Role = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_4_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_4_Role) Me.columnnctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber) Me.columnnctsHCCI_AdditionalSupplyChainActor_5_Role = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_5_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_5_Role) Me.columnnctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber) Me.columnnctsHCCI_AdditionalSupplyChainActor_6_Role = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_6_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_6_Role) Me.columnnctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber) Me.columnnctsHCCI_AdditionalSupplyChainActor_7_Role = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_7_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_7_Role) Me.columnnctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber) Me.columnnctsHCCI_AdditionalSupplyChainActor_8_Role = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_8_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_8_Role) Me.columnnctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber) Me.columnnctsHCCI_AdditionalSupplyChainActor_9_Role = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_9_Role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_9_Role) Me.columnnctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber) Me.columnnctsHCCI_GoodsValue = New Global.System.Data.DataColumn("nctsHCCI_GoodsValue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_GoodsValue) Me.columnnctsHCCI_CurrencyOfGoodsValue = New Global.System.Data.DataColumn("nctsHCCI_CurrencyOfGoodsValue", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_CurrencyOfGoodsValue) Me.columnnctsHCCI_ExchangeRate = New Global.System.Data.DataColumn("nctsHCCI_ExchangeRate", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_ExchangeRate) Me.columnnctsHCCI_ExchangeDate = New Global.System.Data.DataColumn("nctsHCCI_ExchangeDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_ExchangeDate) Me.columnnctsHCCI_CurrencyExchangeRateType = New Global.System.Data.DataColumn("nctsHCCI_CurrencyExchangeRateType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_CurrencyExchangeRateType) Me.columnnctsHCCI_FractionOfGoodsValue = New Global.System.Data.DataColumn("nctsHCCI_FractionOfGoodsValue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_FractionOfGoodsValue) Me.columnnctsHCCI_GuaranteeAmount = New Global.System.Data.DataColumn("nctsHCCI_GuaranteeAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_GuaranteeAmount) Me.columnnctsHCCI_PreviousDocument_1_Type = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_1_Type) Me.columnnctsHCCI_PreviousDocument_1_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_1_ReferenceNumber) Me.columnnctsHCCI_PreviousDocument_1_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_1_DocumentLineItemNumber) Me.columnnctsHCCI_PreviousDocument_1_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_1_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_1_ComplementOfInformation) Me.columnnctsHCCI_PreviousDocument_1_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_1_GoodsItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_1_GoodsItemNumber) Me.columnnctsHCCI_PreviousDocument_2_Type = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_2_Type) Me.columnnctsHCCI_PreviousDocument_2_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_2_ReferenceNumber) Me.columnnctsHCCI_PreviousDocument_2_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_2_DocumentLineItemNumber) Me.columnnctsHCCI_PreviousDocument_2_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_2_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_2_ComplementOfInformation) Me.columnnctsHCCI_PreviousDocument_2_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_2_GoodsItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_2_GoodsItemNumber) Me.columnnctsHCCI_PreviousDocument_3_Type = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_3_Type) Me.columnnctsHCCI_PreviousDocument_3_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_3_ReferenceNumber) Me.columnnctsHCCI_PreviousDocument_3_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_3_DocumentLineItemNumber) Me.columnnctsHCCI_PreviousDocument_3_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_3_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_3_ComplementOfInformation) Me.columnnctsHCCI_PreviousDocument_3_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_3_GoodsItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_3_GoodsItemNumber) Me.columnnctsHCCI_PreviousDocument_4_Type = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_4_Type) Me.columnnctsHCCI_PreviousDocument_4_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_4_ReferenceNumber) Me.columnnctsHCCI_PreviousDocument_4_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_4_DocumentLineItemNumber) Me.columnnctsHCCI_PreviousDocument_4_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_4_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_4_ComplementOfInformation) Me.columnnctsHCCI_PreviousDocument_4_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_4_GoodsItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_4_GoodsItemNumber) Me.columnnctsHCCI_PreviousDocument_5_Type = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_5_Type) Me.columnnctsHCCI_PreviousDocument_5_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_5_ReferenceNumber) Me.columnnctsHCCI_PreviousDocument_5_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_5_DocumentLineItemNumber) Me.columnnctsHCCI_PreviousDocument_5_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_5_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_5_ComplementOfInformation) Me.columnnctsHCCI_PreviousDocument_5_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_5_GoodsItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_5_GoodsItemNumber) Me.columnnctsHCCI_PreviousDocument_6_Type = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_6_Type) Me.columnnctsHCCI_PreviousDocument_6_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_6_ReferenceNumber) Me.columnnctsHCCI_PreviousDocument_6_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_6_DocumentLineItemNumber) Me.columnnctsHCCI_PreviousDocument_6_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_6_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_6_ComplementOfInformation) Me.columnnctsHCCI_PreviousDocument_6_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_6_GoodsItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_6_GoodsItemNumber) Me.columnnctsHCCI_PreviousDocument_7_Type = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_7_Type) Me.columnnctsHCCI_PreviousDocument_7_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_7_ReferenceNumber) Me.columnnctsHCCI_PreviousDocument_7_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_7_DocumentLineItemNumber) Me.columnnctsHCCI_PreviousDocument_7_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_7_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_7_ComplementOfInformation) Me.columnnctsHCCI_PreviousDocument_7_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_7_GoodsItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_7_GoodsItemNumber) Me.columnnctsHCCI_PreviousDocument_8_Type = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_8_Type) Me.columnnctsHCCI_PreviousDocument_8_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_8_ReferenceNumber) Me.columnnctsHCCI_PreviousDocument_8_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_8_DocumentLineItemNumber) Me.columnnctsHCCI_PreviousDocument_8_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_8_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_8_ComplementOfInformation) Me.columnnctsHCCI_PreviousDocument_8_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_8_GoodsItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_8_GoodsItemNumber) Me.columnnctsHCCI_PreviousDocument_9_Type = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_9_Type) Me.columnnctsHCCI_PreviousDocument_9_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_9_ReferenceNumber) Me.columnnctsHCCI_PreviousDocument_9_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_9_DocumentLineItemNumber) Me.columnnctsHCCI_PreviousDocument_9_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_9_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_9_ComplementOfInformation) Me.columnnctsHCCI_PreviousDocument_9_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCI_PreviousDocument_9_GoodsItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_PreviousDocument_9_GoodsItemNumber) Me.columnnctsHCCI_SupportingDocument_1_Type = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_1_Type) Me.columnnctsHCCI_SupportingDocument_1_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_1_ReferenceNumber) Me.columnnctsHCCI_SupportingDocument_1_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_1_DocumentLineItemNumber) Me.columnnctsHCCI_SupportingDocument_1_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_1_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_1_ComplementOfInformation) Me.columnnctsHCCI_SupportingDocument_2_Type = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_2_Type) Me.columnnctsHCCI_SupportingDocument_2_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_2_ReferenceNumber) Me.columnnctsHCCI_SupportingDocument_2_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_2_DocumentLineItemNumber) Me.columnnctsHCCI_SupportingDocument_2_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_2_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_2_ComplementOfInformation) Me.columnnctsHCCI_SupportingDocument_3_Type = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_3_Type) Me.columnnctsHCCI_SupportingDocument_3_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_3_ReferenceNumber) Me.columnnctsHCCI_SupportingDocument_3_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_3_DocumentLineItemNumber) Me.columnnctsHCCI_SupportingDocument_3_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_3_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_3_ComplementOfInformation) Me.columnnctsHCCI_SupportingDocument_4_Type = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_4_Type) Me.columnnctsHCCI_SupportingDocument_4_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_4_ReferenceNumber) Me.columnnctsHCCI_SupportingDocument_4_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_4_DocumentLineItemNumber) Me.columnnctsHCCI_SupportingDocument_4_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_4_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_4_ComplementOfInformation) Me.columnnctsHCCI_SupportingDocument_5_Type = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_5_Type) Me.columnnctsHCCI_SupportingDocument_5_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_5_ReferenceNumber) Me.columnnctsHCCI_SupportingDocument_5_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_5_DocumentLineItemNumber) Me.columnnctsHCCI_SupportingDocument_5_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_5_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_5_ComplementOfInformation) Me.columnnctsHCCI_SupportingDocument_6_Type = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_6_Type) Me.columnnctsHCCI_SupportingDocument_6_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_6_ReferenceNumber) Me.columnnctsHCCI_SupportingDocument_6_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_6_DocumentLineItemNumber) Me.columnnctsHCCI_SupportingDocument_6_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_6_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_6_ComplementOfInformation) Me.columnnctsHCCI_SupportingDocument_7_Type = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_7_Type) Me.columnnctsHCCI_SupportingDocument_7_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_7_ReferenceNumber) Me.columnnctsHCCI_SupportingDocument_7_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_7_DocumentLineItemNumber) Me.columnnctsHCCI_SupportingDocument_7_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_7_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_7_ComplementOfInformation) Me.columnnctsHCCI_SupportingDocument_8_Type = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_8_Type) Me.columnnctsHCCI_SupportingDocument_8_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_8_ReferenceNumber) Me.columnnctsHCCI_SupportingDocument_8_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_8_DocumentLineItemNumber) Me.columnnctsHCCI_SupportingDocument_8_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_8_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_8_ComplementOfInformation) Me.columnnctsHCCI_SupportingDocument_9_Type = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_9_Type) Me.columnnctsHCCI_SupportingDocument_9_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_9_ReferenceNumber) Me.columnnctsHCCI_SupportingDocument_9_DocumentLineItemNumber = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_9_DocumentLineItemNumber) Me.columnnctsHCCI_SupportingDocument_9_ComplementOfInformation = New Global.System.Data.DataColumn("nctsHCCI_SupportingDocument_9_ComplementOfInformation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_SupportingDocument_9_ComplementOfInformation) Me.columnnctsHCCI_AdditionalReference_1_Type = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_1_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_1_Type) Me.columnnctsHCCI_AdditionalReference_1_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_1_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_1_ReferenceNumber) Me.columnnctsHCCI_AdditionalReference_2_Type = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_2_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_2_Type) Me.columnnctsHCCI_AdditionalReference_2_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_2_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_2_ReferenceNumber) Me.columnnctsHCCI_AdditionalReference_3_Type = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_3_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_3_Type) Me.columnnctsHCCI_AdditionalReference_3_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_3_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_3_ReferenceNumber) Me.columnnctsHCCI_AdditionalReference_4_Type = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_4_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_4_Type) Me.columnnctsHCCI_AdditionalReference_4_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_4_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_4_ReferenceNumber) Me.columnnctsHCCI_AdditionalReference_5_Type = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_5_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_5_Type) Me.columnnctsHCCI_AdditionalReference_5_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_5_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_5_ReferenceNumber) Me.columnnctsHCCI_AdditionalReference_6_Type = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_6_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_6_Type) Me.columnnctsHCCI_AdditionalReference_6_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_6_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_6_ReferenceNumber) Me.columnnctsHCCI_AdditionalReference_7_Type = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_7_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_7_Type) Me.columnnctsHCCI_AdditionalReference_7_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_7_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_7_ReferenceNumber) Me.columnnctsHCCI_AdditionalReference_8_Type = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_8_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_8_Type) Me.columnnctsHCCI_AdditionalReference_8_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_8_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_8_ReferenceNumber) Me.columnnctsHCCI_AdditionalReference_9_Type = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_9_Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_9_Type) Me.columnnctsHCCI_AdditionalReference_9_ReferenceNumber = New Global.System.Data.DataColumn("nctsHCCI_AdditionalReference_9_ReferenceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalReference_9_ReferenceNumber) Me.columnnctsHCCI_AdditionalInformation_1_Code = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_1_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_1_Code) Me.columnnctsHCCI_AdditionalInformation_1_Text = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_1_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_1_Text) Me.columnnctsHCCI_AdditionalInformation_2_Code = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_2_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_2_Code) Me.columnnctsHCCI_AdditionalInformation_2_Text = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_2_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_2_Text) Me.columnnctsHCCI_AdditionalInformation_3_Code = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_3_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_3_Code) Me.columnnctsHCCI_AdditionalInformation_3_Text = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_3_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_3_Text) Me.columnnctsHCCI_AdditionalInformation_4_Code = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_4_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_4_Code) Me.columnnctsHCCI_AdditionalInformation_4_Text = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_4_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_4_Text) Me.columnnctsHCCI_AdditionalInformation_5_Code = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_5_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_5_Code) Me.columnnctsHCCI_AdditionalInformation_5_Text = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_5_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_5_Text) Me.columnnctsHCCI_AdditionalInformation_6_Code = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_6_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_6_Code) Me.columnnctsHCCI_AdditionalInformation_6_Text = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_6_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_6_Text) Me.columnnctsHCCI_AdditionalInformation_7_Code = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_7_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_7_Code) Me.columnnctsHCCI_AdditionalInformation_7_Text = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_7_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_7_Text) Me.columnnctsHCCI_AdditionalInformation_8_Code = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_8_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_8_Code) Me.columnnctsHCCI_AdditionalInformation_8_Text = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_8_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_8_Text) Me.columnnctsHCCI_AdditionalInformation_9_Code = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_9_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_9_Code) Me.columnnctsHCCI_AdditionalInformation_9_Text = New Global.System.Data.DataColumn("nctsHCCI_AdditionalInformation_9_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCI_AdditionalInformation_9_Text) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsHCCI_Id}, true)) Me.columnnctsHCCI_Id.AutoIncrement = true Me.columnnctsHCCI_Id.AutoIncrementSeed = -1 Me.columnnctsHCCI_Id.AutoIncrementStep = -1 Me.columnnctsHCCI_Id.AllowDBNull = false Me.columnnctsHCCI_Id.ReadOnly = true Me.columnnctsHCCI_Id.Unique = true Me.columnnctsHCCI_NctsId.AllowDBNull = false Me.columnnctsHCCI_NctsHCId.AllowDBNull = false Me.columnnctsHCCI_CommodityCode.MaxLength = 10 Me.columnnctsHCCI_MethodeOfPayment.MaxLength = 1 Me.columnnctsHCCI_UNNumber_1.MaxLength = 4 Me.columnnctsHCCI_UNNumber_2.MaxLength = 4 Me.columnnctsHCCI_UNNumber_3.MaxLength = 4 Me.columnnctsHCCI_UNNumber_4.MaxLength = 4 Me.columnnctsHCCI_DeclarationType.MaxLength = 5 Me.columnnctsHCCI_ArticleCode.MaxLength = 50 Me.columnnctsHCCI_DescriptionOfGoods.MaxLength = 512 Me.columnnctsHCCI_CusCode.MaxLength = 9 Me.columnnctsHCCI_CountryOfDispatch.MaxLength = 2 Me.columnnctsHCCI_CountryOfDestination.MaxLength = 2 Me.columnnctsHCCI_ReferenceNumberUCR.MaxLength = 35 Me.columnnctsHCCI_Consignor_AdressCode.MaxLength = 50 Me.columnnctsHCCI_Consignor_IdentificationNumber.MaxLength = 17 Me.columnnctsHCCI_Consignor_SubsidiaryNumber.MaxLength = 4 Me.columnnctsHCCI_Consignor_Name.MaxLength = 70 Me.columnnctsHCCI_Consignor_StreetNumber.MaxLength = 70 Me.columnnctsHCCI_Consignor_City.MaxLength = 35 Me.columnnctsHCCI_Consignor_Postcode.MaxLength = 17 Me.columnnctsHCCI_Consignor_Country.MaxLength = 2 Me.columnnctsHCCI_Consignor_ContactPerson_Name.MaxLength = 70 Me.columnnctsHCCI_Consignor_ContactPerson_PhoneNumber.MaxLength = 35 Me.columnnctsHCCI_Consignor_ContactPerson_EMailAddress.MaxLength = 256 Me.columnnctsHCCI_AdditionalSupplyChainActor_1_Role.MaxLength = 3 Me.columnnctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber.MaxLength = 17 Me.columnnctsHCCI_AdditionalSupplyChainActor_2_Role.MaxLength = 3 Me.columnnctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber.MaxLength = 17 Me.columnnctsHCCI_AdditionalSupplyChainActor_3_Role.MaxLength = 3 Me.columnnctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber.MaxLength = 17 Me.columnnctsHCCI_AdditionalSupplyChainActor_4_Role.MaxLength = 3 Me.columnnctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber.MaxLength = 17 Me.columnnctsHCCI_AdditionalSupplyChainActor_5_Role.MaxLength = 3 Me.columnnctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber.MaxLength = 17 Me.columnnctsHCCI_AdditionalSupplyChainActor_6_Role.MaxLength = 3 Me.columnnctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber.MaxLength = 17 Me.columnnctsHCCI_AdditionalSupplyChainActor_7_Role.MaxLength = 3 Me.columnnctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber.MaxLength = 17 Me.columnnctsHCCI_AdditionalSupplyChainActor_8_Role.MaxLength = 3 Me.columnnctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber.MaxLength = 17 Me.columnnctsHCCI_AdditionalSupplyChainActor_9_Role.MaxLength = 3 Me.columnnctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber.MaxLength = 17 Me.columnnctsHCCI_CurrencyOfGoodsValue.MaxLength = 3 Me.columnnctsHCCI_CurrencyExchangeRateType.MaxLength = 3 Me.columnnctsHCCI_PreviousDocument_1_Type.MaxLength = 4 Me.columnnctsHCCI_PreviousDocument_1_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_PreviousDocument_1_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_PreviousDocument_1_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_1_GoodsItemNumber.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_2_Type.MaxLength = 4 Me.columnnctsHCCI_PreviousDocument_2_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_PreviousDocument_2_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_PreviousDocument_2_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_2_GoodsItemNumber.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_3_Type.MaxLength = 4 Me.columnnctsHCCI_PreviousDocument_3_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_PreviousDocument_3_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_PreviousDocument_3_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_3_GoodsItemNumber.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_4_Type.MaxLength = 4 Me.columnnctsHCCI_PreviousDocument_4_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_PreviousDocument_4_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_PreviousDocument_4_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_4_GoodsItemNumber.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_5_Type.MaxLength = 4 Me.columnnctsHCCI_PreviousDocument_5_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_PreviousDocument_5_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_PreviousDocument_5_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_5_GoodsItemNumber.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_6_Type.MaxLength = 4 Me.columnnctsHCCI_PreviousDocument_6_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_PreviousDocument_6_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_PreviousDocument_6_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_6_GoodsItemNumber.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_7_Type.MaxLength = 4 Me.columnnctsHCCI_PreviousDocument_7_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_PreviousDocument_7_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_PreviousDocument_7_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_7_GoodsItemNumber.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_8_Type.MaxLength = 4 Me.columnnctsHCCI_PreviousDocument_8_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_PreviousDocument_8_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_PreviousDocument_8_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_8_GoodsItemNumber.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_9_Type.MaxLength = 4 Me.columnnctsHCCI_PreviousDocument_9_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_PreviousDocument_9_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_PreviousDocument_9_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_PreviousDocument_9_GoodsItemNumber.MaxLength = 35 Me.columnnctsHCCI_SupportingDocument_1_Type.MaxLength = 4 Me.columnnctsHCCI_SupportingDocument_1_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_SupportingDocument_1_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_SupportingDocument_1_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_SupportingDocument_2_Type.MaxLength = 4 Me.columnnctsHCCI_SupportingDocument_2_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_SupportingDocument_2_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_SupportingDocument_2_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_SupportingDocument_3_Type.MaxLength = 4 Me.columnnctsHCCI_SupportingDocument_3_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_SupportingDocument_3_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_SupportingDocument_3_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_SupportingDocument_4_Type.MaxLength = 4 Me.columnnctsHCCI_SupportingDocument_4_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_SupportingDocument_4_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_SupportingDocument_4_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_SupportingDocument_5_Type.MaxLength = 4 Me.columnnctsHCCI_SupportingDocument_5_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_SupportingDocument_5_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_SupportingDocument_5_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_SupportingDocument_6_Type.MaxLength = 4 Me.columnnctsHCCI_SupportingDocument_6_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_SupportingDocument_6_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_SupportingDocument_6_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_SupportingDocument_7_Type.MaxLength = 4 Me.columnnctsHCCI_SupportingDocument_7_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_SupportingDocument_7_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_SupportingDocument_7_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_SupportingDocument_8_Type.MaxLength = 4 Me.columnnctsHCCI_SupportingDocument_8_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_SupportingDocument_8_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_SupportingDocument_8_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_SupportingDocument_9_Type.MaxLength = 4 Me.columnnctsHCCI_SupportingDocument_9_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_SupportingDocument_9_DocumentLineItemNumber.MaxLength = 5 Me.columnnctsHCCI_SupportingDocument_9_ComplementOfInformation.MaxLength = 35 Me.columnnctsHCCI_AdditionalReference_1_Type.MaxLength = 4 Me.columnnctsHCCI_AdditionalReference_1_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_AdditionalReference_2_Type.MaxLength = 4 Me.columnnctsHCCI_AdditionalReference_2_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_AdditionalReference_3_Type.MaxLength = 4 Me.columnnctsHCCI_AdditionalReference_3_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_AdditionalReference_4_Type.MaxLength = 4 Me.columnnctsHCCI_AdditionalReference_4_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_AdditionalReference_5_Type.MaxLength = 4 Me.columnnctsHCCI_AdditionalReference_5_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_AdditionalReference_6_Type.MaxLength = 4 Me.columnnctsHCCI_AdditionalReference_6_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_AdditionalReference_7_Type.MaxLength = 4 Me.columnnctsHCCI_AdditionalReference_7_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_AdditionalReference_8_Type.MaxLength = 4 Me.columnnctsHCCI_AdditionalReference_8_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_AdditionalReference_9_Type.MaxLength = 4 Me.columnnctsHCCI_AdditionalReference_9_ReferenceNumber.MaxLength = 70 Me.columnnctsHCCI_AdditionalInformation_1_Code.MaxLength = 5 Me.columnnctsHCCI_AdditionalInformation_1_Text.MaxLength = 512 Me.columnnctsHCCI_AdditionalInformation_2_Code.MaxLength = 5 Me.columnnctsHCCI_AdditionalInformation_2_Text.MaxLength = 512 Me.columnnctsHCCI_AdditionalInformation_3_Code.MaxLength = 5 Me.columnnctsHCCI_AdditionalInformation_3_Text.MaxLength = 512 Me.columnnctsHCCI_AdditionalInformation_4_Code.MaxLength = 5 Me.columnnctsHCCI_AdditionalInformation_4_Text.MaxLength = 512 Me.columnnctsHCCI_AdditionalInformation_5_Code.MaxLength = 5 Me.columnnctsHCCI_AdditionalInformation_5_Text.MaxLength = 512 Me.columnnctsHCCI_AdditionalInformation_6_Code.MaxLength = 5 Me.columnnctsHCCI_AdditionalInformation_6_Text.MaxLength = 512 Me.columnnctsHCCI_AdditionalInformation_7_Code.MaxLength = 5 Me.columnnctsHCCI_AdditionalInformation_7_Text.MaxLength = 512 Me.columnnctsHCCI_AdditionalInformation_8_Code.MaxLength = 5 Me.columnnctsHCCI_AdditionalInformation_8_Text.MaxLength = 512 Me.columnnctsHCCI_AdditionalInformation_9_Code.MaxLength = 5 Me.columnnctsHCCI_AdditionalInformation_9_Text.MaxLength = 512 End Sub _ Public Function NewtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow() As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow Return CType(Me.NewRow,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChanged(Me, New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChanging(Me, New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowDeleted(Me, New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowDeleting(Me, New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow(ByVal row As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable" 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 tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow) Private columnnctsHCCIPK_Id As Global.System.Data.DataColumn Private columnnctsHCCIPK_NctsId As Global.System.Data.DataColumn Private columnnctsHCCIPK_NctsHCId As Global.System.Data.DataColumn Private columnnctsHCCIPK_NctsHCCIId As Global.System.Data.DataColumn Private columnnctsHCCIPK_NumberOfPackages As Global.System.Data.DataColumn Private columnnctsHCCIPK_TypeOfPackages As Global.System.Data.DataColumn Private columnnctsHCCIPK_ShippingMarks As Global.System.Data.DataColumn Private columnnctsHCCIPK_GoodsItemNumber As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging" 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 nctsHCCIPK_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCIPK_Id End Get End Property _ Public ReadOnly Property nctsHCCIPK_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCIPK_NctsId End Get End Property _ Public ReadOnly Property nctsHCCIPK_NctsHCIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCIPK_NctsHCId End Get End Property _ Public ReadOnly Property nctsHCCIPK_NctsHCCIIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCIPK_NctsHCCIId End Get End Property _ Public ReadOnly Property nctsHCCIPK_NumberOfPackagesColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCIPK_NumberOfPackages End Get End Property _ Public ReadOnly Property nctsHCCIPK_TypeOfPackagesColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCIPK_TypeOfPackages End Get End Property _ Public ReadOnly Property nctsHCCIPK_ShippingMarksColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCIPK_ShippingMarks End Get End Property _ Public ReadOnly Property nctsHCCIPK_GoodsItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsHCCIPK_GoodsItemNumber 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 tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow Get Return CType(Me.Rows(index),tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow) End Get End Property _ Public Event tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChanging As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChanged As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowDeleting As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowDeleted As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow(ByVal row As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow(ByVal nctsHCCIPK_NctsId As Integer, ByVal nctsHCCIPK_NctsHCId As Integer, ByVal nctsHCCIPK_NctsHCCIId As Integer, ByVal nctsHCCIPK_NumberOfPackages As Integer, ByVal nctsHCCIPK_TypeOfPackages As String, ByVal nctsHCCIPK_ShippingMarks As String, ByVal nctsHCCIPK_GoodsItemNumber As String) As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow Dim rowtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow = CType(Me.NewRow,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsHCCIPK_NctsId, nctsHCCIPK_NctsHCId, nctsHCCIPK_NctsHCCIId, nctsHCCIPK_NumberOfPackages, nctsHCCIPK_TypeOfPackages, nctsHCCIPK_ShippingMarks, nctsHCCIPK_GoodsItemNumber} rowtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow) Return rowtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow End Function _ Public Function FindBynctsHCCIPK_Id(ByVal nctsHCCIPK_Id As Integer) As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow Return CType(Me.Rows.Find(New Object() {nctsHCCIPK_Id}),tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable = CType(MyBase.Clone,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable() End Function _ Friend Sub InitVars() Me.columnnctsHCCIPK_Id = MyBase.Columns("nctsHCCIPK_Id") Me.columnnctsHCCIPK_NctsId = MyBase.Columns("nctsHCCIPK_NctsId") Me.columnnctsHCCIPK_NctsHCId = MyBase.Columns("nctsHCCIPK_NctsHCId") Me.columnnctsHCCIPK_NctsHCCIId = MyBase.Columns("nctsHCCIPK_NctsHCCIId") Me.columnnctsHCCIPK_NumberOfPackages = MyBase.Columns("nctsHCCIPK_NumberOfPackages") Me.columnnctsHCCIPK_TypeOfPackages = MyBase.Columns("nctsHCCIPK_TypeOfPackages") Me.columnnctsHCCIPK_ShippingMarks = MyBase.Columns("nctsHCCIPK_ShippingMarks") Me.columnnctsHCCIPK_GoodsItemNumber = MyBase.Columns("nctsHCCIPK_GoodsItemNumber") End Sub _ Private Sub InitClass() Me.columnnctsHCCIPK_Id = New Global.System.Data.DataColumn("nctsHCCIPK_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCIPK_Id) Me.columnnctsHCCIPK_NctsId = New Global.System.Data.DataColumn("nctsHCCIPK_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCIPK_NctsId) Me.columnnctsHCCIPK_NctsHCId = New Global.System.Data.DataColumn("nctsHCCIPK_NctsHCId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCIPK_NctsHCId) Me.columnnctsHCCIPK_NctsHCCIId = New Global.System.Data.DataColumn("nctsHCCIPK_NctsHCCIId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCIPK_NctsHCCIId) Me.columnnctsHCCIPK_NumberOfPackages = New Global.System.Data.DataColumn("nctsHCCIPK_NumberOfPackages", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCIPK_NumberOfPackages) Me.columnnctsHCCIPK_TypeOfPackages = New Global.System.Data.DataColumn("nctsHCCIPK_TypeOfPackages", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCIPK_TypeOfPackages) Me.columnnctsHCCIPK_ShippingMarks = New Global.System.Data.DataColumn("nctsHCCIPK_ShippingMarks", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCIPK_ShippingMarks) Me.columnnctsHCCIPK_GoodsItemNumber = New Global.System.Data.DataColumn("nctsHCCIPK_GoodsItemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsHCCIPK_GoodsItemNumber) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsHCCIPK_Id}, true)) Me.columnnctsHCCIPK_Id.AutoIncrement = true Me.columnnctsHCCIPK_Id.AutoIncrementSeed = -1 Me.columnnctsHCCIPK_Id.AutoIncrementStep = -1 Me.columnnctsHCCIPK_Id.AllowDBNull = false Me.columnnctsHCCIPK_Id.ReadOnly = true Me.columnnctsHCCIPK_Id.Unique = true Me.columnnctsHCCIPK_NctsId.AllowDBNull = false Me.columnnctsHCCIPK_NctsHCId.AllowDBNull = false Me.columnnctsHCCIPK_NctsHCCIId.AllowDBNull = false Me.columnnctsHCCIPK_NumberOfPackages.AllowDBNull = false Me.columnnctsHCCIPK_TypeOfPackages.AllowDBNull = false Me.columnnctsHCCIPK_TypeOfPackages.MaxLength = 2 Me.columnnctsHCCIPK_ShippingMarks.MaxLength = 512 Me.columnnctsHCCIPK_GoodsItemNumber.MaxLength = 2147483647 End Sub _ Public Function NewtblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow() As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow Return CType(Me.NewRow,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChanged(Me, New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChanging(Me, New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowDeleted(Me, New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowDeleting(Me, New tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow(ByVal row As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable" 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 tblDakosy_NCTSOut004_TransportEquipmentDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_NCTSOut004_TransportEquipmentRow) Private columnnctsTE_Id As Global.System.Data.DataColumn Private columnnctsTE_NctsId As Global.System.Data.DataColumn Private columnnctsTE_NumberOfSeals As Global.System.Data.DataColumn Private columnnctsTE_Seal_1 As Global.System.Data.DataColumn Private columnnctsTE_Seal_2 As Global.System.Data.DataColumn Private columnnctsTE_Seal_3 As Global.System.Data.DataColumn Private columnnctsTE_Seal_4 As Global.System.Data.DataColumn Private columnnctsTE_Seal_5 As Global.System.Data.DataColumn Private columnnctsTE_Seal_6 As Global.System.Data.DataColumn Private columnnctsTE_Seal_7 As Global.System.Data.DataColumn Private columnnctsTE_Seal_8 As Global.System.Data.DataColumn Private columnnctsTE_Seal_9 As Global.System.Data.DataColumn Private columnnctsTE_Seal_10 As Global.System.Data.DataColumn Private columnnctsTE_Seal_11 As Global.System.Data.DataColumn Private columnnctsTE_Seal_12 As Global.System.Data.DataColumn Private columnnctsTE_Seal_13 As Global.System.Data.DataColumn Private columnnctsTE_Seal_14 As Global.System.Data.DataColumn Private columnnctsTE_Seal_15 As Global.System.Data.DataColumn Private columnnctsTE_ContainerIdentificationNumber As Global.System.Data.DataColumn Private columnnctsTE_GoodsReference As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_NCTSOut004_TransportEquipment" 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 nctsTE_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Id End Get End Property _ Public ReadOnly Property nctsTE_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_NctsId End Get End Property _ Public ReadOnly Property nctsTE_NumberOfSealsColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_NumberOfSeals End Get End Property _ Public ReadOnly Property nctsTE_Seal_1Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_1 End Get End Property _ Public ReadOnly Property nctsTE_Seal_2Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_2 End Get End Property _ Public ReadOnly Property nctsTE_Seal_3Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_3 End Get End Property _ Public ReadOnly Property nctsTE_Seal_4Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_4 End Get End Property _ Public ReadOnly Property nctsTE_Seal_5Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_5 End Get End Property _ Public ReadOnly Property nctsTE_Seal_6Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_6 End Get End Property _ Public ReadOnly Property nctsTE_Seal_7Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_7 End Get End Property _ Public ReadOnly Property nctsTE_Seal_8Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_8 End Get End Property _ Public ReadOnly Property nctsTE_Seal_9Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_9 End Get End Property _ Public ReadOnly Property nctsTE_Seal_10Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_10 End Get End Property _ Public ReadOnly Property nctsTE_Seal_11Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_11 End Get End Property _ Public ReadOnly Property nctsTE_Seal_12Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_12 End Get End Property _ Public ReadOnly Property nctsTE_Seal_13Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_13 End Get End Property _ Public ReadOnly Property nctsTE_Seal_14Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_14 End Get End Property _ Public ReadOnly Property nctsTE_Seal_15Column() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_Seal_15 End Get End Property _ Public ReadOnly Property nctsTE_ContainerIdentificationNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_ContainerIdentificationNumber End Get End Property _ Public ReadOnly Property nctsTE_GoodsReferenceColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsTE_GoodsReference 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 tblDakosy_NCTSOut004_TransportEquipmentRow Get Return CType(Me.Rows(index),tblDakosy_NCTSOut004_TransportEquipmentRow) End Get End Property _ Public Event tblDakosy_NCTSOut004_TransportEquipmentRowChanging As tblDakosy_NCTSOut004_TransportEquipmentRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_TransportEquipmentRowChanged As tblDakosy_NCTSOut004_TransportEquipmentRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_TransportEquipmentRowDeleting As tblDakosy_NCTSOut004_TransportEquipmentRowChangeEventHandler _ Public Event tblDakosy_NCTSOut004_TransportEquipmentRowDeleted As tblDakosy_NCTSOut004_TransportEquipmentRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_NCTSOut004_TransportEquipmentRow(ByVal row As tblDakosy_NCTSOut004_TransportEquipmentRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_NCTSOut004_TransportEquipmentRow( _ ByVal nctsTE_NctsId As Integer, _ ByVal nctsTE_NumberOfSeals As String, _ ByVal nctsTE_Seal_1 As String, _ ByVal nctsTE_Seal_2 As String, _ ByVal nctsTE_Seal_3 As String, _ ByVal nctsTE_Seal_4 As String, _ ByVal nctsTE_Seal_5 As String, _ ByVal nctsTE_Seal_6 As String, _ ByVal nctsTE_Seal_7 As String, _ ByVal nctsTE_Seal_8 As String, _ ByVal nctsTE_Seal_9 As String, _ ByVal nctsTE_Seal_10 As String, _ ByVal nctsTE_Seal_11 As String, _ ByVal nctsTE_Seal_12 As String, _ ByVal nctsTE_Seal_13 As String, _ ByVal nctsTE_Seal_14 As String, _ ByVal nctsTE_Seal_15 As String, _ ByVal nctsTE_ContainerIdentificationNumber As String, _ ByVal nctsTE_GoodsReference As String) As tblDakosy_NCTSOut004_TransportEquipmentRow Dim rowtblDakosy_NCTSOut004_TransportEquipmentRow As tblDakosy_NCTSOut004_TransportEquipmentRow = CType(Me.NewRow,tblDakosy_NCTSOut004_TransportEquipmentRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsTE_NctsId, nctsTE_NumberOfSeals, nctsTE_Seal_1, nctsTE_Seal_2, nctsTE_Seal_3, nctsTE_Seal_4, nctsTE_Seal_5, nctsTE_Seal_6, nctsTE_Seal_7, nctsTE_Seal_8, nctsTE_Seal_9, nctsTE_Seal_10, nctsTE_Seal_11, nctsTE_Seal_12, nctsTE_Seal_13, nctsTE_Seal_14, nctsTE_Seal_15, nctsTE_ContainerIdentificationNumber, nctsTE_GoodsReference} rowtblDakosy_NCTSOut004_TransportEquipmentRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_NCTSOut004_TransportEquipmentRow) Return rowtblDakosy_NCTSOut004_TransportEquipmentRow End Function _ Public Function FindBynctsTE_Id(ByVal nctsTE_Id As Integer) As tblDakosy_NCTSOut004_TransportEquipmentRow Return CType(Me.Rows.Find(New Object() {nctsTE_Id}),tblDakosy_NCTSOut004_TransportEquipmentRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_NCTSOut004_TransportEquipmentDataTable = CType(MyBase.Clone,tblDakosy_NCTSOut004_TransportEquipmentDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_NCTSOut004_TransportEquipmentDataTable() End Function _ Friend Sub InitVars() Me.columnnctsTE_Id = MyBase.Columns("nctsTE_Id") Me.columnnctsTE_NctsId = MyBase.Columns("nctsTE_NctsId") Me.columnnctsTE_NumberOfSeals = MyBase.Columns("nctsTE_NumberOfSeals") Me.columnnctsTE_Seal_1 = MyBase.Columns("nctsTE_Seal_1") Me.columnnctsTE_Seal_2 = MyBase.Columns("nctsTE_Seal_2") Me.columnnctsTE_Seal_3 = MyBase.Columns("nctsTE_Seal_3") Me.columnnctsTE_Seal_4 = MyBase.Columns("nctsTE_Seal_4") Me.columnnctsTE_Seal_5 = MyBase.Columns("nctsTE_Seal_5") Me.columnnctsTE_Seal_6 = MyBase.Columns("nctsTE_Seal_6") Me.columnnctsTE_Seal_7 = MyBase.Columns("nctsTE_Seal_7") Me.columnnctsTE_Seal_8 = MyBase.Columns("nctsTE_Seal_8") Me.columnnctsTE_Seal_9 = MyBase.Columns("nctsTE_Seal_9") Me.columnnctsTE_Seal_10 = MyBase.Columns("nctsTE_Seal_10") Me.columnnctsTE_Seal_11 = MyBase.Columns("nctsTE_Seal_11") Me.columnnctsTE_Seal_12 = MyBase.Columns("nctsTE_Seal_12") Me.columnnctsTE_Seal_13 = MyBase.Columns("nctsTE_Seal_13") Me.columnnctsTE_Seal_14 = MyBase.Columns("nctsTE_Seal_14") Me.columnnctsTE_Seal_15 = MyBase.Columns("nctsTE_Seal_15") Me.columnnctsTE_ContainerIdentificationNumber = MyBase.Columns("nctsTE_ContainerIdentificationNumber") Me.columnnctsTE_GoodsReference = MyBase.Columns("nctsTE_GoodsReference") End Sub _ Private Sub InitClass() Me.columnnctsTE_Id = New Global.System.Data.DataColumn("nctsTE_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Id) Me.columnnctsTE_NctsId = New Global.System.Data.DataColumn("nctsTE_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_NctsId) Me.columnnctsTE_NumberOfSeals = New Global.System.Data.DataColumn("nctsTE_NumberOfSeals", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_NumberOfSeals) Me.columnnctsTE_Seal_1 = New Global.System.Data.DataColumn("nctsTE_Seal_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_1) Me.columnnctsTE_Seal_2 = New Global.System.Data.DataColumn("nctsTE_Seal_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_2) Me.columnnctsTE_Seal_3 = New Global.System.Data.DataColumn("nctsTE_Seal_3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_3) Me.columnnctsTE_Seal_4 = New Global.System.Data.DataColumn("nctsTE_Seal_4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_4) Me.columnnctsTE_Seal_5 = New Global.System.Data.DataColumn("nctsTE_Seal_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_5) Me.columnnctsTE_Seal_6 = New Global.System.Data.DataColumn("nctsTE_Seal_6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_6) Me.columnnctsTE_Seal_7 = New Global.System.Data.DataColumn("nctsTE_Seal_7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_7) Me.columnnctsTE_Seal_8 = New Global.System.Data.DataColumn("nctsTE_Seal_8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_8) Me.columnnctsTE_Seal_9 = New Global.System.Data.DataColumn("nctsTE_Seal_9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_9) Me.columnnctsTE_Seal_10 = New Global.System.Data.DataColumn("nctsTE_Seal_10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_10) Me.columnnctsTE_Seal_11 = New Global.System.Data.DataColumn("nctsTE_Seal_11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_11) Me.columnnctsTE_Seal_12 = New Global.System.Data.DataColumn("nctsTE_Seal_12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_12) Me.columnnctsTE_Seal_13 = New Global.System.Data.DataColumn("nctsTE_Seal_13", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_13) Me.columnnctsTE_Seal_14 = New Global.System.Data.DataColumn("nctsTE_Seal_14", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_14) Me.columnnctsTE_Seal_15 = New Global.System.Data.DataColumn("nctsTE_Seal_15", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_Seal_15) Me.columnnctsTE_ContainerIdentificationNumber = New Global.System.Data.DataColumn("nctsTE_ContainerIdentificationNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_ContainerIdentificationNumber) Me.columnnctsTE_GoodsReference = New Global.System.Data.DataColumn("nctsTE_GoodsReference", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsTE_GoodsReference) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsTE_Id}, true)) Me.columnnctsTE_Id.AutoIncrement = true Me.columnnctsTE_Id.AutoIncrementSeed = -1 Me.columnnctsTE_Id.AutoIncrementStep = -1 Me.columnnctsTE_Id.AllowDBNull = false Me.columnnctsTE_Id.ReadOnly = true Me.columnnctsTE_Id.Unique = true Me.columnnctsTE_NctsId.AllowDBNull = false Me.columnnctsTE_NumberOfSeals.MaxLength = 2 Me.columnnctsTE_Seal_1.MaxLength = 20 Me.columnnctsTE_Seal_2.MaxLength = 20 Me.columnnctsTE_Seal_3.MaxLength = 20 Me.columnnctsTE_Seal_4.MaxLength = 20 Me.columnnctsTE_Seal_5.MaxLength = 20 Me.columnnctsTE_Seal_6.MaxLength = 20 Me.columnnctsTE_Seal_7.MaxLength = 20 Me.columnnctsTE_Seal_8.MaxLength = 20 Me.columnnctsTE_Seal_9.MaxLength = 20 Me.columnnctsTE_Seal_10.MaxLength = 20 Me.columnnctsTE_Seal_11.MaxLength = 20 Me.columnnctsTE_Seal_12.MaxLength = 20 Me.columnnctsTE_Seal_13.MaxLength = 20 Me.columnnctsTE_Seal_14.MaxLength = 20 Me.columnnctsTE_Seal_15.MaxLength = 20 Me.columnnctsTE_ContainerIdentificationNumber.MaxLength = 17 Me.columnnctsTE_GoodsReference.MaxLength = 2147483647 End Sub _ Public Function NewtblDakosy_NCTSOut004_TransportEquipmentRow() As tblDakosy_NCTSOut004_TransportEquipmentRow Return CType(Me.NewRow,tblDakosy_NCTSOut004_TransportEquipmentRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_NCTSOut004_TransportEquipmentRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_NCTSOut004_TransportEquipmentRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_NCTSOut004_TransportEquipmentRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_TransportEquipmentRowChanged(Me, New tblDakosy_NCTSOut004_TransportEquipmentRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_TransportEquipmentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_NCTSOut004_TransportEquipmentRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_TransportEquipmentRowChanging(Me, New tblDakosy_NCTSOut004_TransportEquipmentRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_TransportEquipmentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_NCTSOut004_TransportEquipmentRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_TransportEquipmentRowDeleted(Me, New tblDakosy_NCTSOut004_TransportEquipmentRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_TransportEquipmentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_NCTSOut004_TransportEquipmentRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_NCTSOut004_TransportEquipmentRowDeleting(Me, New tblDakosy_NCTSOut004_TransportEquipmentRowChangeEvent(CType(e.Row,tblDakosy_NCTSOut004_TransportEquipmentRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_NCTSOut004_TransportEquipmentRow(ByVal row As tblDakosy_NCTSOut004_TransportEquipmentRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_NCTSOut004_TransportEquipmentDataTable" 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 tblDakosy_StammreferenzenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_StammreferenzenRow) Private columndySr_Id As Global.System.Data.DataColumn Private columndySr_Land As Global.System.Data.DataColumn Private columndySr_Verfahren As Global.System.Data.DataColumn Private columndySr_Stammreferenz As Global.System.Data.DataColumn Private columndySr_Bezeichnung As Global.System.Data.DataColumn Private columndySr_dyId As Global.System.Data.DataColumn Private columndySr_dy_Mandant As Global.System.Data.DataColumn Private columndySr_dy_Niederlassung As Global.System.Data.DataColumn Private columndySr_dy_Standard As Global.System.Data.DataColumn Private columndySr_visible As Global.System.Data.DataColumn Private columndyStr_KdNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_Stammreferenzen" 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 dySr_IdColumn() As Global.System.Data.DataColumn Get Return Me.columndySr_Id End Get End Property _ Public ReadOnly Property dySr_LandColumn() As Global.System.Data.DataColumn Get Return Me.columndySr_Land End Get End Property _ Public ReadOnly Property dySr_VerfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columndySr_Verfahren End Get End Property _ Public ReadOnly Property dySr_StammreferenzColumn() As Global.System.Data.DataColumn Get Return Me.columndySr_Stammreferenz End Get End Property _ Public ReadOnly Property dySr_BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columndySr_Bezeichnung End Get End Property _ Public ReadOnly Property dySr_dyIdColumn() As Global.System.Data.DataColumn Get Return Me.columndySr_dyId End Get End Property _ Public ReadOnly Property dySr_dy_MandantColumn() As Global.System.Data.DataColumn Get Return Me.columndySr_dy_Mandant End Get End Property _ Public ReadOnly Property dySr_dy_NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columndySr_dy_Niederlassung End Get End Property _ Public ReadOnly Property dySr_dy_StandardColumn() As Global.System.Data.DataColumn Get Return Me.columndySr_dy_Standard End Get End Property _ Public ReadOnly Property dySr_visibleColumn() As Global.System.Data.DataColumn Get Return Me.columndySr_visible End Get End Property _ Public ReadOnly Property dyStr_KdNrColumn() As Global.System.Data.DataColumn Get Return Me.columndyStr_KdNr 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 tblDakosy_StammreferenzenRow Get Return CType(Me.Rows(index),tblDakosy_StammreferenzenRow) End Get End Property _ Public Event tblDakosy_StammreferenzenRowChanging As tblDakosy_StammreferenzenRowChangeEventHandler _ Public Event tblDakosy_StammreferenzenRowChanged As tblDakosy_StammreferenzenRowChangeEventHandler _ Public Event tblDakosy_StammreferenzenRowDeleting As tblDakosy_StammreferenzenRowChangeEventHandler _ Public Event tblDakosy_StammreferenzenRowDeleted As tblDakosy_StammreferenzenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_StammreferenzenRow(ByVal row As tblDakosy_StammreferenzenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_StammreferenzenRow(ByVal dySr_Land As String, ByVal dySr_Verfahren As String, ByVal dySr_Stammreferenz As String, ByVal dySr_Bezeichnung As String, ByVal dySr_dyId As Integer, ByVal dySr_dy_Mandant As String, ByVal dySr_dy_Niederlassung As String, ByVal dySr_dy_Standard As Boolean, ByVal dySr_visible As Boolean, ByVal dyStr_KdNr As Integer) As tblDakosy_StammreferenzenRow Dim rowtblDakosy_StammreferenzenRow As tblDakosy_StammreferenzenRow = CType(Me.NewRow,tblDakosy_StammreferenzenRow) Dim columnValuesArray() As Object = New Object() {Nothing, dySr_Land, dySr_Verfahren, dySr_Stammreferenz, dySr_Bezeichnung, dySr_dyId, dySr_dy_Mandant, dySr_dy_Niederlassung, dySr_dy_Standard, dySr_visible, dyStr_KdNr} rowtblDakosy_StammreferenzenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_StammreferenzenRow) Return rowtblDakosy_StammreferenzenRow End Function _ Public Function FindBydySr_Id(ByVal dySr_Id As Integer) As tblDakosy_StammreferenzenRow Return CType(Me.Rows.Find(New Object() {dySr_Id}),tblDakosy_StammreferenzenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_StammreferenzenDataTable = CType(MyBase.Clone,tblDakosy_StammreferenzenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_StammreferenzenDataTable() End Function _ Friend Sub InitVars() Me.columndySr_Id = MyBase.Columns("dySr_Id") Me.columndySr_Land = MyBase.Columns("dySr_Land") Me.columndySr_Verfahren = MyBase.Columns("dySr_Verfahren") Me.columndySr_Stammreferenz = MyBase.Columns("dySr_Stammreferenz") Me.columndySr_Bezeichnung = MyBase.Columns("dySr_Bezeichnung") Me.columndySr_dyId = MyBase.Columns("dySr_dyId") Me.columndySr_dy_Mandant = MyBase.Columns("dySr_dy_Mandant") Me.columndySr_dy_Niederlassung = MyBase.Columns("dySr_dy_Niederlassung") Me.columndySr_dy_Standard = MyBase.Columns("dySr_dy_Standard") Me.columndySr_visible = MyBase.Columns("dySr_visible") Me.columndyStr_KdNr = MyBase.Columns("dyStr_KdNr") End Sub _ Private Sub InitClass() Me.columndySr_Id = New Global.System.Data.DataColumn("dySr_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySr_Id) Me.columndySr_Land = New Global.System.Data.DataColumn("dySr_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySr_Land) Me.columndySr_Verfahren = New Global.System.Data.DataColumn("dySr_Verfahren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySr_Verfahren) Me.columndySr_Stammreferenz = New Global.System.Data.DataColumn("dySr_Stammreferenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySr_Stammreferenz) Me.columndySr_Bezeichnung = New Global.System.Data.DataColumn("dySr_Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySr_Bezeichnung) Me.columndySr_dyId = New Global.System.Data.DataColumn("dySr_dyId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySr_dyId) Me.columndySr_dy_Mandant = New Global.System.Data.DataColumn("dySr_dy_Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySr_dy_Mandant) Me.columndySr_dy_Niederlassung = New Global.System.Data.DataColumn("dySr_dy_Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySr_dy_Niederlassung) Me.columndySr_dy_Standard = New Global.System.Data.DataColumn("dySr_dy_Standard", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySr_dy_Standard) Me.columndySr_visible = New Global.System.Data.DataColumn("dySr_visible", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySr_visible) Me.columndyStr_KdNr = New Global.System.Data.DataColumn("dyStr_KdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndyStr_KdNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columndySr_Id}, true)) Me.columndySr_Id.AutoIncrement = true Me.columndySr_Id.AutoIncrementSeed = -1 Me.columndySr_Id.AutoIncrementStep = -1 Me.columndySr_Id.AllowDBNull = false Me.columndySr_Id.ReadOnly = true Me.columndySr_Id.Unique = true Me.columndySr_Land.AllowDBNull = false Me.columndySr_Land.MaxLength = 10 Me.columndySr_Verfahren.AllowDBNull = false Me.columndySr_Verfahren.MaxLength = 50 Me.columndySr_Stammreferenz.AllowDBNull = false Me.columndySr_Stammreferenz.MaxLength = 200 Me.columndySr_Bezeichnung.AllowDBNull = false Me.columndySr_Bezeichnung.MaxLength = 200 Me.columndySr_dy_Mandant.AllowDBNull = false Me.columndySr_dy_Mandant.MaxLength = 10 Me.columndySr_dy_Niederlassung.AllowDBNull = false Me.columndySr_dy_Niederlassung.MaxLength = 5 Me.columndySr_dy_Standard.AllowDBNull = false Me.columndySr_visible.AllowDBNull = false End Sub _ Public Function NewtblDakosy_StammreferenzenRow() As tblDakosy_StammreferenzenRow Return CType(Me.NewRow,tblDakosy_StammreferenzenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_StammreferenzenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_StammreferenzenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_StammreferenzenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_StammreferenzenRowChanged(Me, New tblDakosy_StammreferenzenRowChangeEvent(CType(e.Row,tblDakosy_StammreferenzenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_StammreferenzenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_StammreferenzenRowChanging(Me, New tblDakosy_StammreferenzenRowChangeEvent(CType(e.Row,tblDakosy_StammreferenzenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_StammreferenzenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_StammreferenzenRowDeleted(Me, New tblDakosy_StammreferenzenRowChangeEvent(CType(e.Row,tblDakosy_StammreferenzenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_StammreferenzenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_StammreferenzenRowDeleting(Me, New tblDakosy_StammreferenzenRowChangeEvent(CType(e.Row,tblDakosy_StammreferenzenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_StammreferenzenRow(ByVal row As tblDakosy_StammreferenzenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_StammreferenzenDataTable" 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 tblDakosy_StatusmeldungenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_StatusmeldungenRow) Private columndySt_id As Global.System.Data.DataColumn Private columndySt_dyId As Global.System.Data.DataColumn Private columndySt_dyArt As Global.System.Data.DataColumn Private columndySt_BezugsNr As Global.System.Data.DataColumn Private columndySt_status As Global.System.Data.DataColumn Private columndySt_artMitteilung As Global.System.Data.DataColumn Private columndySt_ergCode As Global.System.Data.DataColumn Private columndySt_ergMitteilung As Global.System.Data.DataColumn Private columndySt_ergZeitpunkt As Global.System.Data.DataColumn Private columndySt_DakosyTransaktionsID As Global.System.Data.DataColumn Private columndySt_DakosyTransaktionsDatum As Global.System.Data.DataColumn Private columndySt_ts As Global.System.Data.DataColumn Private columndySt_ergDetails As Global.System.Data.DataColumn Private columndySt_ergZoellner As Global.System.Data.DataColumn Private columndySt_pfad As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_Statusmeldungen" 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 dySt_idColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_id End Get End Property _ Public ReadOnly Property dySt_dyIdColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_dyId End Get End Property _ Public ReadOnly Property dySt_dyArtColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_dyArt End Get End Property _ Public ReadOnly Property dySt_BezugsNrColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_BezugsNr End Get End Property _ Public ReadOnly Property dySt_statusColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_status End Get End Property _ Public ReadOnly Property dySt_artMitteilungColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_artMitteilung End Get End Property _ Public ReadOnly Property dySt_ergCodeColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_ergCode End Get End Property _ Public ReadOnly Property dySt_ergMitteilungColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_ergMitteilung End Get End Property _ Public ReadOnly Property dySt_ergZeitpunktColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_ergZeitpunkt End Get End Property _ Public ReadOnly Property dySt_DakosyTransaktionsIDColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_DakosyTransaktionsID End Get End Property _ Public ReadOnly Property dySt_DakosyTransaktionsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_DakosyTransaktionsDatum End Get End Property _ Public ReadOnly Property dySt_tsColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_ts End Get End Property _ Public ReadOnly Property dySt_ergDetailsColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_ergDetails End Get End Property _ Public ReadOnly Property dySt_ergZoellnerColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_ergZoellner End Get End Property _ Public ReadOnly Property dySt_pfadColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_pfad 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 tblDakosy_StatusmeldungenRow Get Return CType(Me.Rows(index),tblDakosy_StatusmeldungenRow) End Get End Property _ Public Event tblDakosy_StatusmeldungenRowChanging As tblDakosy_StatusmeldungenRowChangeEventHandler _ Public Event tblDakosy_StatusmeldungenRowChanged As tblDakosy_StatusmeldungenRowChangeEventHandler _ Public Event tblDakosy_StatusmeldungenRowDeleting As tblDakosy_StatusmeldungenRowChangeEventHandler _ Public Event tblDakosy_StatusmeldungenRowDeleted As tblDakosy_StatusmeldungenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_StatusmeldungenRow(ByVal row As tblDakosy_StatusmeldungenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_StatusmeldungenRow(ByVal dySt_dyId As Integer, ByVal dySt_dyArt As String, ByVal dySt_BezugsNr As String, ByVal dySt_status As Integer, ByVal dySt_artMitteilung As String, ByVal dySt_ergCode As String, ByVal dySt_ergMitteilung As String, ByVal dySt_ergZeitpunkt As Date, ByVal dySt_DakosyTransaktionsID As String, ByVal dySt_DakosyTransaktionsDatum As Date, ByVal dySt_ts As Date, ByVal dySt_ergDetails As String, ByVal dySt_ergZoellner As String, ByVal dySt_pfad As String) As tblDakosy_StatusmeldungenRow Dim rowtblDakosy_StatusmeldungenRow As tblDakosy_StatusmeldungenRow = CType(Me.NewRow,tblDakosy_StatusmeldungenRow) Dim columnValuesArray() As Object = New Object() {Nothing, dySt_dyId, dySt_dyArt, dySt_BezugsNr, dySt_status, dySt_artMitteilung, dySt_ergCode, dySt_ergMitteilung, dySt_ergZeitpunkt, dySt_DakosyTransaktionsID, dySt_DakosyTransaktionsDatum, dySt_ts, dySt_ergDetails, dySt_ergZoellner, dySt_pfad} rowtblDakosy_StatusmeldungenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_StatusmeldungenRow) Return rowtblDakosy_StatusmeldungenRow End Function _ Public Function FindBydySt_id(ByVal dySt_id As Integer) As tblDakosy_StatusmeldungenRow Return CType(Me.Rows.Find(New Object() {dySt_id}),tblDakosy_StatusmeldungenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_StatusmeldungenDataTable = CType(MyBase.Clone,tblDakosy_StatusmeldungenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_StatusmeldungenDataTable() End Function _ Friend Sub InitVars() Me.columndySt_id = MyBase.Columns("dySt_id") Me.columndySt_dyId = MyBase.Columns("dySt_dyId") Me.columndySt_dyArt = MyBase.Columns("dySt_dyArt") Me.columndySt_BezugsNr = MyBase.Columns("dySt_BezugsNr") Me.columndySt_status = MyBase.Columns("dySt_status") Me.columndySt_artMitteilung = MyBase.Columns("dySt_artMitteilung") Me.columndySt_ergCode = MyBase.Columns("dySt_ergCode") Me.columndySt_ergMitteilung = MyBase.Columns("dySt_ergMitteilung") Me.columndySt_ergZeitpunkt = MyBase.Columns("dySt_ergZeitpunkt") Me.columndySt_DakosyTransaktionsID = MyBase.Columns("dySt_DakosyTransaktionsID") Me.columndySt_DakosyTransaktionsDatum = MyBase.Columns("dySt_DakosyTransaktionsDatum") Me.columndySt_ts = MyBase.Columns("dySt_ts") Me.columndySt_ergDetails = MyBase.Columns("dySt_ergDetails") Me.columndySt_ergZoellner = MyBase.Columns("dySt_ergZoellner") Me.columndySt_pfad = MyBase.Columns("dySt_pfad") End Sub _ Private Sub InitClass() Me.columndySt_id = New Global.System.Data.DataColumn("dySt_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_id) Me.columndySt_dyId = New Global.System.Data.DataColumn("dySt_dyId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_dyId) Me.columndySt_dyArt = New Global.System.Data.DataColumn("dySt_dyArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_dyArt) Me.columndySt_BezugsNr = New Global.System.Data.DataColumn("dySt_BezugsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_BezugsNr) Me.columndySt_status = New Global.System.Data.DataColumn("dySt_status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_status) Me.columndySt_artMitteilung = New Global.System.Data.DataColumn("dySt_artMitteilung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_artMitteilung) Me.columndySt_ergCode = New Global.System.Data.DataColumn("dySt_ergCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_ergCode) Me.columndySt_ergMitteilung = New Global.System.Data.DataColumn("dySt_ergMitteilung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_ergMitteilung) Me.columndySt_ergZeitpunkt = New Global.System.Data.DataColumn("dySt_ergZeitpunkt", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_ergZeitpunkt) Me.columndySt_DakosyTransaktionsID = New Global.System.Data.DataColumn("dySt_DakosyTransaktionsID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_DakosyTransaktionsID) Me.columndySt_DakosyTransaktionsDatum = New Global.System.Data.DataColumn("dySt_DakosyTransaktionsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_DakosyTransaktionsDatum) Me.columndySt_ts = New Global.System.Data.DataColumn("dySt_ts", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_ts) Me.columndySt_ergDetails = New Global.System.Data.DataColumn("dySt_ergDetails", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_ergDetails) Me.columndySt_ergZoellner = New Global.System.Data.DataColumn("dySt_ergZoellner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_ergZoellner) Me.columndySt_pfad = New Global.System.Data.DataColumn("dySt_pfad", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_pfad) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columndySt_id}, true)) Me.columndySt_id.AutoIncrement = true Me.columndySt_id.AutoIncrementSeed = -1 Me.columndySt_id.AutoIncrementStep = -1 Me.columndySt_id.AllowDBNull = false Me.columndySt_id.ReadOnly = true Me.columndySt_id.Unique = true Me.columndySt_dyId.AllowDBNull = false Me.columndySt_dyArt.AllowDBNull = false Me.columndySt_dyArt.MaxLength = 50 Me.columndySt_BezugsNr.AllowDBNull = false Me.columndySt_BezugsNr.MaxLength = 50 Me.columndySt_status.AllowDBNull = false Me.columndySt_artMitteilung.AllowDBNull = false Me.columndySt_artMitteilung.MaxLength = 50 Me.columndySt_ergCode.AllowDBNull = false Me.columndySt_ergCode.MaxLength = 200 Me.columndySt_ergMitteilung.AllowDBNull = false Me.columndySt_ergMitteilung.MaxLength = 500 Me.columndySt_DakosyTransaktionsID.MaxLength = 35 Me.columndySt_ts.AllowDBNull = false Me.columndySt_ergDetails.MaxLength = 2147483647 Me.columndySt_ergZoellner.MaxLength = 500 Me.columndySt_pfad.MaxLength = 500 End Sub _ Public Function NewtblDakosy_StatusmeldungenRow() As tblDakosy_StatusmeldungenRow Return CType(Me.NewRow,tblDakosy_StatusmeldungenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_StatusmeldungenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_StatusmeldungenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_StatusmeldungenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_StatusmeldungenRowChanged(Me, New tblDakosy_StatusmeldungenRowChangeEvent(CType(e.Row,tblDakosy_StatusmeldungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_StatusmeldungenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_StatusmeldungenRowChanging(Me, New tblDakosy_StatusmeldungenRowChangeEvent(CType(e.Row,tblDakosy_StatusmeldungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_StatusmeldungenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_StatusmeldungenRowDeleted(Me, New tblDakosy_StatusmeldungenRowChangeEvent(CType(e.Row,tblDakosy_StatusmeldungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_StatusmeldungenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_StatusmeldungenRowDeleting(Me, New tblDakosy_StatusmeldungenRowChangeEvent(CType(e.Row,tblDakosy_StatusmeldungenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_StatusmeldungenRow(ByVal row As tblDakosy_StatusmeldungenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_StatusmeldungenDataTable" 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 tblDakosy_ZollanmeldungenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_ZollanmeldungenRow) Private columndy_Id As Global.System.Data.DataColumn Private columndy_ART As Global.System.Data.DataColumn Private columndy_BezugsNr As Global.System.Data.DataColumn Private columndy_Status As Global.System.Data.DataColumn Private columndy_Status_KEWILL_Equivalent As Global.System.Data.DataColumn Private columndy_AvisoId As Global.System.Data.DataColumn Private columndy_SendungsId As Global.System.Data.DataColumn Private columndy_Erstellung As Global.System.Data.DataColumn Private columndy_Erstellung_SB As Global.System.Data.DataColumn Private columndy_LetzteBearbeitung As Global.System.Data.DataColumn Private columndy_LetzteBearbeitung_SB As Global.System.Data.DataColumn Private columndy_Steuerbescheid_dsId As Global.System.Data.DataColumn Private columndy_VBD_dsId As Global.System.Data.DataColumn Private columndy_ABD_dsId As Global.System.Data.DataColumn Private columndy_AVM_dsId As Global.System.Data.DataColumn Private columndySt_pfad As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_Zollanmeldungen" 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 dy_IdColumn() As Global.System.Data.DataColumn Get Return Me.columndy_Id End Get End Property _ Public ReadOnly Property dy_ARTColumn() As Global.System.Data.DataColumn Get Return Me.columndy_ART End Get End Property _ Public ReadOnly Property dy_BezugsNrColumn() As Global.System.Data.DataColumn Get Return Me.columndy_BezugsNr End Get End Property _ Public ReadOnly Property dy_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columndy_Status End Get End Property _ Public ReadOnly Property dy_Status_KEWILL_EquivalentColumn() As Global.System.Data.DataColumn Get Return Me.columndy_Status_KEWILL_Equivalent End Get End Property _ Public ReadOnly Property dy_AvisoIdColumn() As Global.System.Data.DataColumn Get Return Me.columndy_AvisoId End Get End Property _ Public ReadOnly Property dy_SendungsIdColumn() As Global.System.Data.DataColumn Get Return Me.columndy_SendungsId End Get End Property _ Public ReadOnly Property dy_ErstellungColumn() As Global.System.Data.DataColumn Get Return Me.columndy_Erstellung End Get End Property _ Public ReadOnly Property dy_Erstellung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columndy_Erstellung_SB End Get End Property _ Public ReadOnly Property dy_LetzteBearbeitungColumn() As Global.System.Data.DataColumn Get Return Me.columndy_LetzteBearbeitung End Get End Property _ Public ReadOnly Property dy_LetzteBearbeitung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columndy_LetzteBearbeitung_SB End Get End Property _ Public ReadOnly Property dy_Steuerbescheid_dsIdColumn() As Global.System.Data.DataColumn Get Return Me.columndy_Steuerbescheid_dsId End Get End Property _ Public ReadOnly Property dy_VBD_dsIdColumn() As Global.System.Data.DataColumn Get Return Me.columndy_VBD_dsId End Get End Property _ Public ReadOnly Property dy_ABD_dsIdColumn() As Global.System.Data.DataColumn Get Return Me.columndy_ABD_dsId End Get End Property _ Public ReadOnly Property dy_AVM_dsIdColumn() As Global.System.Data.DataColumn Get Return Me.columndy_AVM_dsId End Get End Property _ Public ReadOnly Property dySt_pfadColumn() As Global.System.Data.DataColumn Get Return Me.columndySt_pfad 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 tblDakosy_ZollanmeldungenRow Get Return CType(Me.Rows(index),tblDakosy_ZollanmeldungenRow) End Get End Property _ Public Event tblDakosy_ZollanmeldungenRowChanging As tblDakosy_ZollanmeldungenRowChangeEventHandler _ Public Event tblDakosy_ZollanmeldungenRowChanged As tblDakosy_ZollanmeldungenRowChangeEventHandler _ Public Event tblDakosy_ZollanmeldungenRowDeleting As tblDakosy_ZollanmeldungenRowChangeEventHandler _ Public Event tblDakosy_ZollanmeldungenRowDeleted As tblDakosy_ZollanmeldungenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_ZollanmeldungenRow(ByVal row As tblDakosy_ZollanmeldungenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_ZollanmeldungenRow(ByVal dy_ART As String, ByVal dy_BezugsNr As String, ByVal dy_Status As Integer, ByVal dy_Status_KEWILL_Equivalent As Integer, ByVal dy_AvisoId As Integer, ByVal dy_SendungsId As Integer, ByVal dy_Erstellung As Date, ByVal dy_Erstellung_SB As Integer, ByVal dy_LetzteBearbeitung As Date, ByVal dy_LetzteBearbeitung_SB As Integer, ByVal dy_Steuerbescheid_dsId As Integer, ByVal dy_VBD_dsId As Integer, ByVal dy_ABD_dsId As Integer, ByVal dy_AVM_dsId As Integer, ByVal dySt_pfad As String) As tblDakosy_ZollanmeldungenRow Dim rowtblDakosy_ZollanmeldungenRow As tblDakosy_ZollanmeldungenRow = CType(Me.NewRow,tblDakosy_ZollanmeldungenRow) Dim columnValuesArray() As Object = New Object() {Nothing, dy_ART, dy_BezugsNr, dy_Status, dy_Status_KEWILL_Equivalent, dy_AvisoId, dy_SendungsId, dy_Erstellung, dy_Erstellung_SB, dy_LetzteBearbeitung, dy_LetzteBearbeitung_SB, dy_Steuerbescheid_dsId, dy_VBD_dsId, dy_ABD_dsId, dy_AVM_dsId, dySt_pfad} rowtblDakosy_ZollanmeldungenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_ZollanmeldungenRow) Return rowtblDakosy_ZollanmeldungenRow End Function _ Public Function FindBydy_Id(ByVal dy_Id As Integer) As tblDakosy_ZollanmeldungenRow Return CType(Me.Rows.Find(New Object() {dy_Id}),tblDakosy_ZollanmeldungenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_ZollanmeldungenDataTable = CType(MyBase.Clone,tblDakosy_ZollanmeldungenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_ZollanmeldungenDataTable() End Function _ Friend Sub InitVars() Me.columndy_Id = MyBase.Columns("dy_Id") Me.columndy_ART = MyBase.Columns("dy_ART") Me.columndy_BezugsNr = MyBase.Columns("dy_BezugsNr") Me.columndy_Status = MyBase.Columns("dy_Status") Me.columndy_Status_KEWILL_Equivalent = MyBase.Columns("dy_Status_KEWILL_Equivalent") Me.columndy_AvisoId = MyBase.Columns("dy_AvisoId") Me.columndy_SendungsId = MyBase.Columns("dy_SendungsId") Me.columndy_Erstellung = MyBase.Columns("dy_Erstellung") Me.columndy_Erstellung_SB = MyBase.Columns("dy_Erstellung_SB") Me.columndy_LetzteBearbeitung = MyBase.Columns("dy_LetzteBearbeitung") Me.columndy_LetzteBearbeitung_SB = MyBase.Columns("dy_LetzteBearbeitung_SB") Me.columndy_Steuerbescheid_dsId = MyBase.Columns("dy_Steuerbescheid_dsId") Me.columndy_VBD_dsId = MyBase.Columns("dy_VBD_dsId") Me.columndy_ABD_dsId = MyBase.Columns("dy_ABD_dsId") Me.columndy_AVM_dsId = MyBase.Columns("dy_AVM_dsId") Me.columndySt_pfad = MyBase.Columns("dySt_pfad") End Sub _ Private Sub InitClass() Me.columndy_Id = New Global.System.Data.DataColumn("dy_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_Id) Me.columndy_ART = New Global.System.Data.DataColumn("dy_ART", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_ART) Me.columndy_BezugsNr = New Global.System.Data.DataColumn("dy_BezugsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_BezugsNr) Me.columndy_Status = New Global.System.Data.DataColumn("dy_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_Status) Me.columndy_Status_KEWILL_Equivalent = New Global.System.Data.DataColumn("dy_Status_KEWILL_Equivalent", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_Status_KEWILL_Equivalent) Me.columndy_AvisoId = New Global.System.Data.DataColumn("dy_AvisoId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_AvisoId) Me.columndy_SendungsId = New Global.System.Data.DataColumn("dy_SendungsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_SendungsId) Me.columndy_Erstellung = New Global.System.Data.DataColumn("dy_Erstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_Erstellung) Me.columndy_Erstellung_SB = New Global.System.Data.DataColumn("dy_Erstellung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_Erstellung_SB) Me.columndy_LetzteBearbeitung = New Global.System.Data.DataColumn("dy_LetzteBearbeitung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_LetzteBearbeitung) Me.columndy_LetzteBearbeitung_SB = New Global.System.Data.DataColumn("dy_LetzteBearbeitung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_LetzteBearbeitung_SB) Me.columndy_Steuerbescheid_dsId = New Global.System.Data.DataColumn("dy_Steuerbescheid_dsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_Steuerbescheid_dsId) Me.columndy_VBD_dsId = New Global.System.Data.DataColumn("dy_VBD_dsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_VBD_dsId) Me.columndy_ABD_dsId = New Global.System.Data.DataColumn("dy_ABD_dsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_ABD_dsId) Me.columndy_AVM_dsId = New Global.System.Data.DataColumn("dy_AVM_dsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndy_AVM_dsId) Me.columndySt_pfad = New Global.System.Data.DataColumn("dySt_pfad", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndySt_pfad) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columndy_Id}, true)) Me.columndy_Id.AutoIncrement = true Me.columndy_Id.AutoIncrementSeed = -1 Me.columndy_Id.AutoIncrementStep = -1 Me.columndy_Id.AllowDBNull = false Me.columndy_Id.ReadOnly = true Me.columndy_Id.Unique = true Me.columndy_ART.AllowDBNull = false Me.columndy_ART.MaxLength = 50 Me.columndy_BezugsNr.AllowDBNull = false Me.columndy_BezugsNr.MaxLength = 50 Me.columndy_Status.AllowDBNull = false Me.columndy_Status_KEWILL_Equivalent.AllowDBNull = false Me.columndy_Erstellung.AllowDBNull = false Me.columndy_LetzteBearbeitung.AllowDBNull = false Me.columndySt_pfad.MaxLength = 500 End Sub _ Public Function NewtblDakosy_ZollanmeldungenRow() As tblDakosy_ZollanmeldungenRow Return CType(Me.NewRow,tblDakosy_ZollanmeldungenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_ZollanmeldungenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_ZollanmeldungenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_ZollanmeldungenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_ZollanmeldungenRowChanged(Me, New tblDakosy_ZollanmeldungenRowChangeEvent(CType(e.Row,tblDakosy_ZollanmeldungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_ZollanmeldungenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_ZollanmeldungenRowChanging(Me, New tblDakosy_ZollanmeldungenRowChangeEvent(CType(e.Row,tblDakosy_ZollanmeldungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_ZollanmeldungenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_ZollanmeldungenRowDeleted(Me, New tblDakosy_ZollanmeldungenRowChangeEvent(CType(e.Row,tblDakosy_ZollanmeldungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_ZollanmeldungenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_ZollanmeldungenRowDeleting(Me, New tblDakosy_ZollanmeldungenRowChangeEvent(CType(e.Row,tblDakosy_ZollanmeldungenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_ZollanmeldungenRow(ByVal row As tblDakosy_ZollanmeldungenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_ZollanmeldungenDataTable" 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 tblDakosy_ZollanmeldungenArtenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDakosy_ZollanmeldungenArtenRow) Private columndya_ART As Global.System.Data.DataColumn Private columndya_Bezeichnung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDakosy_ZollanmeldungenArten" 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 dya_ARTColumn() As Global.System.Data.DataColumn Get Return Me.columndya_ART End Get End Property _ Public ReadOnly Property dya_BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columndya_Bezeichnung 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 tblDakosy_ZollanmeldungenArtenRow Get Return CType(Me.Rows(index),tblDakosy_ZollanmeldungenArtenRow) End Get End Property _ Public Event tblDakosy_ZollanmeldungenArtenRowChanging As tblDakosy_ZollanmeldungenArtenRowChangeEventHandler _ Public Event tblDakosy_ZollanmeldungenArtenRowChanged As tblDakosy_ZollanmeldungenArtenRowChangeEventHandler _ Public Event tblDakosy_ZollanmeldungenArtenRowDeleting As tblDakosy_ZollanmeldungenArtenRowChangeEventHandler _ Public Event tblDakosy_ZollanmeldungenArtenRowDeleted As tblDakosy_ZollanmeldungenArtenRowChangeEventHandler _ Public Overloads Sub AddtblDakosy_ZollanmeldungenArtenRow(ByVal row As tblDakosy_ZollanmeldungenArtenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDakosy_ZollanmeldungenArtenRow(ByVal dya_ART As String, ByVal dya_Bezeichnung As String) As tblDakosy_ZollanmeldungenArtenRow Dim rowtblDakosy_ZollanmeldungenArtenRow As tblDakosy_ZollanmeldungenArtenRow = CType(Me.NewRow,tblDakosy_ZollanmeldungenArtenRow) Dim columnValuesArray() As Object = New Object() {dya_ART, dya_Bezeichnung} rowtblDakosy_ZollanmeldungenArtenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDakosy_ZollanmeldungenArtenRow) Return rowtblDakosy_ZollanmeldungenArtenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDakosy_ZollanmeldungenArtenDataTable = CType(MyBase.Clone,tblDakosy_ZollanmeldungenArtenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDakosy_ZollanmeldungenArtenDataTable() End Function _ Friend Sub InitVars() Me.columndya_ART = MyBase.Columns("dya_ART") Me.columndya_Bezeichnung = MyBase.Columns("dya_Bezeichnung") End Sub _ Private Sub InitClass() Me.columndya_ART = New Global.System.Data.DataColumn("dya_ART", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndya_ART) Me.columndya_Bezeichnung = New Global.System.Data.DataColumn("dya_Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndya_Bezeichnung) Me.columndya_ART.AllowDBNull = false Me.columndya_ART.MaxLength = 50 Me.columndya_Bezeichnung.AllowDBNull = false Me.columndya_Bezeichnung.MaxLength = 500 End Sub _ Public Function NewtblDakosy_ZollanmeldungenArtenRow() As tblDakosy_ZollanmeldungenArtenRow Return CType(Me.NewRow,tblDakosy_ZollanmeldungenArtenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDakosy_ZollanmeldungenArtenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDakosy_ZollanmeldungenArtenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDakosy_ZollanmeldungenArtenRowChangedEvent) Is Nothing) Then RaiseEvent tblDakosy_ZollanmeldungenArtenRowChanged(Me, New tblDakosy_ZollanmeldungenArtenRowChangeEvent(CType(e.Row,tblDakosy_ZollanmeldungenArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDakosy_ZollanmeldungenArtenRowChangingEvent) Is Nothing) Then RaiseEvent tblDakosy_ZollanmeldungenArtenRowChanging(Me, New tblDakosy_ZollanmeldungenArtenRowChangeEvent(CType(e.Row,tblDakosy_ZollanmeldungenArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDakosy_ZollanmeldungenArtenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDakosy_ZollanmeldungenArtenRowDeleted(Me, New tblDakosy_ZollanmeldungenArtenRowChangeEvent(CType(e.Row,tblDakosy_ZollanmeldungenArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDakosy_ZollanmeldungenArtenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDakosy_ZollanmeldungenArtenRowDeleting(Me, New tblDakosy_ZollanmeldungenArtenRowChangeEvent(CType(e.Row,tblDakosy_ZollanmeldungenArtenRow), e.Action)) End If End Sub _ Public Sub RemovetblDakosy_ZollanmeldungenArtenRow(ByVal row As tblDakosy_ZollanmeldungenArtenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDakosy_ZollanmeldungenArtenDataTable" 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 tblDatenarchivDataTable Inherits Global.System.Data.TypedTableBase(Of tblDatenarchivRow) Private columnda_id As Global.System.Data.DataColumn Private columnda_KundenNr As Global.System.Data.DataColumn Private columnda_vorlage As Global.System.Data.DataColumn Private columnda_kategorie As Global.System.Data.DataColumn Private columnda_ordner As Global.System.Data.DataColumn Private columnda_uOrdner1 As Global.System.Data.DataColumn Private columnda_uOrdner2 As Global.System.Data.DataColumn Private columnda_uOrdner3 As Global.System.Data.DataColumn Private columnda_name As Global.System.Data.DataColumn Private columnda_pfad As Global.System.Data.DataColumn Private columnda_info As Global.System.Data.DataColumn Private columnda_multifiles As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDatenarchiv" 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 da_idColumn() As Global.System.Data.DataColumn Get Return Me.columnda_id End Get End Property _ Public ReadOnly Property da_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnda_KundenNr End Get End Property _ Public ReadOnly Property da_vorlageColumn() As Global.System.Data.DataColumn Get Return Me.columnda_vorlage End Get End Property _ Public ReadOnly Property da_kategorieColumn() As Global.System.Data.DataColumn Get Return Me.columnda_kategorie End Get End Property _ Public ReadOnly Property da_ordnerColumn() As Global.System.Data.DataColumn Get Return Me.columnda_ordner End Get End Property _ Public ReadOnly Property da_uOrdner1Column() As Global.System.Data.DataColumn Get Return Me.columnda_uOrdner1 End Get End Property _ Public ReadOnly Property da_uOrdner2Column() As Global.System.Data.DataColumn Get Return Me.columnda_uOrdner2 End Get End Property _ Public ReadOnly Property da_uOrdner3Column() As Global.System.Data.DataColumn Get Return Me.columnda_uOrdner3 End Get End Property _ Public ReadOnly Property da_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnda_name End Get End Property _ Public ReadOnly Property da_pfadColumn() As Global.System.Data.DataColumn Get Return Me.columnda_pfad End Get End Property _ Public ReadOnly Property da_infoColumn() As Global.System.Data.DataColumn Get Return Me.columnda_info End Get End Property _ Public ReadOnly Property da_multifilesColumn() As Global.System.Data.DataColumn Get Return Me.columnda_multifiles 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 tblDatenarchivRow Get Return CType(Me.Rows(index),tblDatenarchivRow) End Get End Property _ Public Event tblDatenarchivRowChanging As tblDatenarchivRowChangeEventHandler _ Public Event tblDatenarchivRowChanged As tblDatenarchivRowChangeEventHandler _ Public Event tblDatenarchivRowDeleting As tblDatenarchivRowChangeEventHandler _ Public Event tblDatenarchivRowDeleted As tblDatenarchivRowChangeEventHandler _ Public Overloads Sub AddtblDatenarchivRow(ByVal row As tblDatenarchivRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDatenarchivRow(ByVal da_KundenNr As Integer, ByVal da_vorlage As Boolean, ByVal da_kategorie As String, ByVal da_ordner As String, ByVal da_uOrdner1 As String, ByVal da_uOrdner2 As String, ByVal da_uOrdner3 As String, ByVal da_name As String, ByVal da_pfad As String, ByVal da_info As String, ByVal da_multifiles As Boolean) As tblDatenarchivRow Dim rowtblDatenarchivRow As tblDatenarchivRow = CType(Me.NewRow,tblDatenarchivRow) Dim columnValuesArray() As Object = New Object() {Nothing, da_KundenNr, da_vorlage, da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name, da_pfad, da_info, da_multifiles} rowtblDatenarchivRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDatenarchivRow) Return rowtblDatenarchivRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDatenarchivDataTable = CType(MyBase.Clone,tblDatenarchivDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDatenarchivDataTable() End Function _ Friend Sub InitVars() Me.columnda_id = MyBase.Columns("da_id") Me.columnda_KundenNr = MyBase.Columns("da_KundenNr") Me.columnda_vorlage = MyBase.Columns("da_vorlage") Me.columnda_kategorie = MyBase.Columns("da_kategorie") Me.columnda_ordner = MyBase.Columns("da_ordner") Me.columnda_uOrdner1 = MyBase.Columns("da_uOrdner1") Me.columnda_uOrdner2 = MyBase.Columns("da_uOrdner2") Me.columnda_uOrdner3 = MyBase.Columns("da_uOrdner3") Me.columnda_name = MyBase.Columns("da_name") Me.columnda_pfad = MyBase.Columns("da_pfad") Me.columnda_info = MyBase.Columns("da_info") Me.columnda_multifiles = MyBase.Columns("da_multifiles") End Sub _ Private Sub InitClass() Me.columnda_id = New Global.System.Data.DataColumn("da_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_id) Me.columnda_KundenNr = New Global.System.Data.DataColumn("da_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_KundenNr) Me.columnda_vorlage = New Global.System.Data.DataColumn("da_vorlage", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_vorlage) Me.columnda_kategorie = New Global.System.Data.DataColumn("da_kategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_kategorie) Me.columnda_ordner = New Global.System.Data.DataColumn("da_ordner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_ordner) Me.columnda_uOrdner1 = New Global.System.Data.DataColumn("da_uOrdner1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_uOrdner1) Me.columnda_uOrdner2 = New Global.System.Data.DataColumn("da_uOrdner2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_uOrdner2) Me.columnda_uOrdner3 = New Global.System.Data.DataColumn("da_uOrdner3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_uOrdner3) Me.columnda_name = New Global.System.Data.DataColumn("da_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_name) Me.columnda_pfad = New Global.System.Data.DataColumn("da_pfad", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_pfad) Me.columnda_info = New Global.System.Data.DataColumn("da_info", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_info) Me.columnda_multifiles = New Global.System.Data.DataColumn("da_multifiles", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnda_multifiles) Me.columnda_id.AutoIncrement = true Me.columnda_id.AutoIncrementSeed = -1 Me.columnda_id.AutoIncrementStep = -1 Me.columnda_id.AllowDBNull = false Me.columnda_id.ReadOnly = true Me.columnda_vorlage.AllowDBNull = false Me.columnda_kategorie.AllowDBNull = false Me.columnda_kategorie.MaxLength = 200 Me.columnda_ordner.AllowDBNull = false Me.columnda_ordner.MaxLength = 200 Me.columnda_uOrdner1.AllowDBNull = false Me.columnda_uOrdner1.MaxLength = 200 Me.columnda_uOrdner2.AllowDBNull = false Me.columnda_uOrdner2.MaxLength = 200 Me.columnda_uOrdner3.AllowDBNull = false Me.columnda_uOrdner3.MaxLength = 200 Me.columnda_name.AllowDBNull = false Me.columnda_name.MaxLength = 500 Me.columnda_pfad.AllowDBNull = false Me.columnda_pfad.MaxLength = 1024 Me.columnda_info.AllowDBNull = false Me.columnda_info.MaxLength = 2147483647 Me.columnda_multifiles.AllowDBNull = false End Sub _ Public Function NewtblDatenarchivRow() As tblDatenarchivRow Return CType(Me.NewRow,tblDatenarchivRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDatenarchivRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDatenarchivRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDatenarchivRowChangedEvent) Is Nothing) Then RaiseEvent tblDatenarchivRowChanged(Me, New tblDatenarchivRowChangeEvent(CType(e.Row,tblDatenarchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDatenarchivRowChangingEvent) Is Nothing) Then RaiseEvent tblDatenarchivRowChanging(Me, New tblDatenarchivRowChangeEvent(CType(e.Row,tblDatenarchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDatenarchivRowDeletedEvent) Is Nothing) Then RaiseEvent tblDatenarchivRowDeleted(Me, New tblDatenarchivRowChangeEvent(CType(e.Row,tblDatenarchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDatenarchivRowDeletingEvent) Is Nothing) Then RaiseEvent tblDatenarchivRowDeleting(Me, New tblDatenarchivRowChangeEvent(CType(e.Row,tblDatenarchivRow), e.Action)) End If End Sub _ Public Sub RemovetblDatenarchivRow(ByVal row As tblDatenarchivRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDatenarchivDataTable" 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 tblDatenarchiv_CollectionDataTable Inherits Global.System.Data.TypedTableBase(Of tblDatenarchiv_CollectionRow) Private columncoll_id As Global.System.Data.DataColumn Private columncoll_daId As Global.System.Data.DataColumn Private columncoll_bezeichnung As Global.System.Data.DataColumn Private columncoll_pfad As Global.System.Data.DataColumn Private columncoll_info As Global.System.Data.DataColumn Private columncoll_date As Global.System.Data.DataColumn Private columncoll_archiv As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDatenarchiv_Collection" 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 coll_idColumn() As Global.System.Data.DataColumn Get Return Me.columncoll_id End Get End Property _ Public ReadOnly Property coll_daIdColumn() As Global.System.Data.DataColumn Get Return Me.columncoll_daId End Get End Property _ Public ReadOnly Property coll_bezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columncoll_bezeichnung End Get End Property _ Public ReadOnly Property coll_pfadColumn() As Global.System.Data.DataColumn Get Return Me.columncoll_pfad End Get End Property _ Public ReadOnly Property coll_infoColumn() As Global.System.Data.DataColumn Get Return Me.columncoll_info End Get End Property _ Public ReadOnly Property coll_dateColumn() As Global.System.Data.DataColumn Get Return Me.columncoll_date End Get End Property _ Public ReadOnly Property coll_archivColumn() As Global.System.Data.DataColumn Get Return Me.columncoll_archiv 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 tblDatenarchiv_CollectionRow Get Return CType(Me.Rows(index),tblDatenarchiv_CollectionRow) End Get End Property _ Public Event tblDatenarchiv_CollectionRowChanging As tblDatenarchiv_CollectionRowChangeEventHandler _ Public Event tblDatenarchiv_CollectionRowChanged As tblDatenarchiv_CollectionRowChangeEventHandler _ Public Event tblDatenarchiv_CollectionRowDeleting As tblDatenarchiv_CollectionRowChangeEventHandler _ Public Event tblDatenarchiv_CollectionRowDeleted As tblDatenarchiv_CollectionRowChangeEventHandler _ Public Overloads Sub AddtblDatenarchiv_CollectionRow(ByVal row As tblDatenarchiv_CollectionRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDatenarchiv_CollectionRow(ByVal coll_daId As Integer, ByVal coll_bezeichnung As String, ByVal coll_pfad As String, ByVal coll_info As String, ByVal coll_date As Date, ByVal coll_archiv As Boolean) As tblDatenarchiv_CollectionRow Dim rowtblDatenarchiv_CollectionRow As tblDatenarchiv_CollectionRow = CType(Me.NewRow,tblDatenarchiv_CollectionRow) Dim columnValuesArray() As Object = New Object() {Nothing, coll_daId, coll_bezeichnung, coll_pfad, coll_info, coll_date, coll_archiv} rowtblDatenarchiv_CollectionRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDatenarchiv_CollectionRow) Return rowtblDatenarchiv_CollectionRow End Function _ Public Function FindBycoll_id(ByVal coll_id As Integer) As tblDatenarchiv_CollectionRow Return CType(Me.Rows.Find(New Object() {coll_id}),tblDatenarchiv_CollectionRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDatenarchiv_CollectionDataTable = CType(MyBase.Clone,tblDatenarchiv_CollectionDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDatenarchiv_CollectionDataTable() End Function _ Friend Sub InitVars() Me.columncoll_id = MyBase.Columns("coll_id") Me.columncoll_daId = MyBase.Columns("coll_daId") Me.columncoll_bezeichnung = MyBase.Columns("coll_bezeichnung") Me.columncoll_pfad = MyBase.Columns("coll_pfad") Me.columncoll_info = MyBase.Columns("coll_info") Me.columncoll_date = MyBase.Columns("coll_date") Me.columncoll_archiv = MyBase.Columns("coll_archiv") End Sub _ Private Sub InitClass() Me.columncoll_id = New Global.System.Data.DataColumn("coll_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncoll_id) Me.columncoll_daId = New Global.System.Data.DataColumn("coll_daId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncoll_daId) Me.columncoll_bezeichnung = New Global.System.Data.DataColumn("coll_bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncoll_bezeichnung) Me.columncoll_pfad = New Global.System.Data.DataColumn("coll_pfad", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncoll_pfad) Me.columncoll_info = New Global.System.Data.DataColumn("coll_info", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncoll_info) Me.columncoll_date = New Global.System.Data.DataColumn("coll_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncoll_date) Me.columncoll_archiv = New Global.System.Data.DataColumn("coll_archiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncoll_archiv) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncoll_id}, true)) Me.columncoll_id.AutoIncrement = true Me.columncoll_id.AutoIncrementSeed = -1 Me.columncoll_id.AutoIncrementStep = -1 Me.columncoll_id.AllowDBNull = false Me.columncoll_id.ReadOnly = true Me.columncoll_id.Unique = true Me.columncoll_daId.AllowDBNull = false Me.columncoll_bezeichnung.AllowDBNull = false Me.columncoll_bezeichnung.MaxLength = 200 Me.columncoll_pfad.AllowDBNull = false Me.columncoll_pfad.MaxLength = 500 Me.columncoll_info.AllowDBNull = false Me.columncoll_info.MaxLength = 5000 Me.columncoll_date.AllowDBNull = false Me.columncoll_archiv.AllowDBNull = false End Sub _ Public Function NewtblDatenarchiv_CollectionRow() As tblDatenarchiv_CollectionRow Return CType(Me.NewRow,tblDatenarchiv_CollectionRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDatenarchiv_CollectionRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDatenarchiv_CollectionRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDatenarchiv_CollectionRowChangedEvent) Is Nothing) Then RaiseEvent tblDatenarchiv_CollectionRowChanged(Me, New tblDatenarchiv_CollectionRowChangeEvent(CType(e.Row,tblDatenarchiv_CollectionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDatenarchiv_CollectionRowChangingEvent) Is Nothing) Then RaiseEvent tblDatenarchiv_CollectionRowChanging(Me, New tblDatenarchiv_CollectionRowChangeEvent(CType(e.Row,tblDatenarchiv_CollectionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDatenarchiv_CollectionRowDeletedEvent) Is Nothing) Then RaiseEvent tblDatenarchiv_CollectionRowDeleted(Me, New tblDatenarchiv_CollectionRowChangeEvent(CType(e.Row,tblDatenarchiv_CollectionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDatenarchiv_CollectionRowDeletingEvent) Is Nothing) Then RaiseEvent tblDatenarchiv_CollectionRowDeleting(Me, New tblDatenarchiv_CollectionRowChangeEvent(CType(e.Row,tblDatenarchiv_CollectionRow), e.Action)) End If End Sub _ Public Sub RemovetblDatenarchiv_CollectionRow(ByVal row As tblDatenarchiv_CollectionRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDatenarchiv_CollectionDataTable" 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 tblDEBundeslaenderPLZDataTable Inherits Global.System.Data.TypedTableBase(Of tblDEBundeslaenderPLZRow) Private columnPLZ As Global.System.Data.DataColumn Private columnBundesland As Global.System.Data.DataColumn Private columnKreis As Global.System.Data.DataColumn Private columnTyp As Global.System.Data.DataColumn Private columnCode As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDEBundeslaenderPLZ" 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 PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnPLZ End Get End Property _ Public ReadOnly Property BundeslandColumn() As Global.System.Data.DataColumn Get Return Me.columnBundesland End Get End Property _ Public ReadOnly Property KreisColumn() As Global.System.Data.DataColumn Get Return Me.columnKreis End Get End Property _ Public ReadOnly Property TypColumn() As Global.System.Data.DataColumn Get Return Me.columnTyp End Get End Property _ Public ReadOnly Property CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCode 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 tblDEBundeslaenderPLZRow Get Return CType(Me.Rows(index),tblDEBundeslaenderPLZRow) End Get End Property _ Public Event tblDEBundeslaenderPLZRowChanging As tblDEBundeslaenderPLZRowChangeEventHandler _ Public Event tblDEBundeslaenderPLZRowChanged As tblDEBundeslaenderPLZRowChangeEventHandler _ Public Event tblDEBundeslaenderPLZRowDeleting As tblDEBundeslaenderPLZRowChangeEventHandler _ Public Event tblDEBundeslaenderPLZRowDeleted As tblDEBundeslaenderPLZRowChangeEventHandler _ Public Overloads Sub AddtblDEBundeslaenderPLZRow(ByVal row As tblDEBundeslaenderPLZRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDEBundeslaenderPLZRow(ByVal PLZ As Integer, ByVal Bundesland As String, ByVal Kreis As String, ByVal Typ As String, ByVal Code As String) As tblDEBundeslaenderPLZRow Dim rowtblDEBundeslaenderPLZRow As tblDEBundeslaenderPLZRow = CType(Me.NewRow,tblDEBundeslaenderPLZRow) Dim columnValuesArray() As Object = New Object() {PLZ, Bundesland, Kreis, Typ, Code} rowtblDEBundeslaenderPLZRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDEBundeslaenderPLZRow) Return rowtblDEBundeslaenderPLZRow End Function _ Public Function FindByPLZ(ByVal PLZ As Integer) As tblDEBundeslaenderPLZRow Return CType(Me.Rows.Find(New Object() {PLZ}),tblDEBundeslaenderPLZRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDEBundeslaenderPLZDataTable = CType(MyBase.Clone,tblDEBundeslaenderPLZDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDEBundeslaenderPLZDataTable() End Function _ Friend Sub InitVars() Me.columnPLZ = MyBase.Columns("PLZ") Me.columnBundesland = MyBase.Columns("Bundesland") Me.columnKreis = MyBase.Columns("Kreis") Me.columnTyp = MyBase.Columns("Typ") Me.columnCode = MyBase.Columns("Code") End Sub _ Private Sub InitClass() Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLZ) Me.columnBundesland = New Global.System.Data.DataColumn("Bundesland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBundesland) Me.columnKreis = New Global.System.Data.DataColumn("Kreis", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKreis) Me.columnTyp = New Global.System.Data.DataColumn("Typ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTyp) Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPLZ}, true)) Me.columnPLZ.AllowDBNull = false Me.columnPLZ.Unique = true Me.columnBundesland.AllowDBNull = false Me.columnBundesland.MaxLength = 50 Me.columnKreis.AllowDBNull = false Me.columnKreis.MaxLength = 50 Me.columnTyp.AllowDBNull = false Me.columnTyp.MaxLength = 50 Me.columnCode.AllowDBNull = false Me.columnCode.MaxLength = 2 End Sub _ Public Function NewtblDEBundeslaenderPLZRow() As tblDEBundeslaenderPLZRow Return CType(Me.NewRow,tblDEBundeslaenderPLZRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDEBundeslaenderPLZRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDEBundeslaenderPLZRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDEBundeslaenderPLZRowChangedEvent) Is Nothing) Then RaiseEvent tblDEBundeslaenderPLZRowChanged(Me, New tblDEBundeslaenderPLZRowChangeEvent(CType(e.Row,tblDEBundeslaenderPLZRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDEBundeslaenderPLZRowChangingEvent) Is Nothing) Then RaiseEvent tblDEBundeslaenderPLZRowChanging(Me, New tblDEBundeslaenderPLZRowChangeEvent(CType(e.Row,tblDEBundeslaenderPLZRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDEBundeslaenderPLZRowDeletedEvent) Is Nothing) Then RaiseEvent tblDEBundeslaenderPLZRowDeleted(Me, New tblDEBundeslaenderPLZRowChangeEvent(CType(e.Row,tblDEBundeslaenderPLZRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDEBundeslaenderPLZRowDeletingEvent) Is Nothing) Then RaiseEvent tblDEBundeslaenderPLZRowDeleting(Me, New tblDEBundeslaenderPLZRowChangeEvent(CType(e.Row,tblDEBundeslaenderPLZRow), e.Action)) End If End Sub _ Public Sub RemovetblDEBundeslaenderPLZRow(ByVal row As tblDEBundeslaenderPLZRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDEBundeslaenderPLZDataTable" 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 tblDHF_AnhaengeDataTable Inherits Global.System.Data.TypedTableBase(Of tblDHF_AnhaengeRow) Private columndhfanh_id As Global.System.Data.DataColumn Private columnLizenzNr As Global.System.Data.DataColumn Private columnOperatorid As Global.System.Data.DataColumn Private columnAnmID As Global.System.Data.DataColumn Private columnMsgTyp As Global.System.Data.DataColumn Private columnErstelltAm As Global.System.Data.DataColumn Private columnpfad As Global.System.Data.DataColumn Private columnLRN As Global.System.Data.DataColumn Private columnCRN As Global.System.Data.DataColumn Private columndocID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDHF_Anhaenge" 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 dhfanh_idColumn() As Global.System.Data.DataColumn Get Return Me.columndhfanh_id End Get End Property _ Public ReadOnly Property LizenzNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLizenzNr End Get End Property _ Public ReadOnly Property OperatoridColumn() As Global.System.Data.DataColumn Get Return Me.columnOperatorid End Get End Property _ Public ReadOnly Property AnmIDColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmID End Get End Property _ Public ReadOnly Property MsgTypColumn() As Global.System.Data.DataColumn Get Return Me.columnMsgTyp End Get End Property _ Public ReadOnly Property ErstelltAmColumn() As Global.System.Data.DataColumn Get Return Me.columnErstelltAm End Get End Property _ Public ReadOnly Property pfadColumn() As Global.System.Data.DataColumn Get Return Me.columnpfad End Get End Property _ Public ReadOnly Property LRNColumn() As Global.System.Data.DataColumn Get Return Me.columnLRN End Get End Property _ Public ReadOnly Property CRNColumn() As Global.System.Data.DataColumn Get Return Me.columnCRN End Get End Property _ Public ReadOnly Property docIDColumn() As Global.System.Data.DataColumn Get Return Me.columndocID 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 tblDHF_AnhaengeRow Get Return CType(Me.Rows(index),tblDHF_AnhaengeRow) End Get End Property _ Public Event tblDHF_AnhaengeRowChanging As tblDHF_AnhaengeRowChangeEventHandler _ Public Event tblDHF_AnhaengeRowChanged As tblDHF_AnhaengeRowChangeEventHandler _ Public Event tblDHF_AnhaengeRowDeleting As tblDHF_AnhaengeRowChangeEventHandler _ Public Event tblDHF_AnhaengeRowDeleted As tblDHF_AnhaengeRowChangeEventHandler _ Public Overloads Sub AddtblDHF_AnhaengeRow(ByVal row As tblDHF_AnhaengeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDHF_AnhaengeRow(ByVal LizenzNr As String, ByVal Operatorid As Integer, ByVal AnmID As Integer, ByVal MsgTyp As String, ByVal ErstelltAm As Date, ByVal pfad As String, ByVal LRN As String, ByVal CRN As String, ByVal docID As Integer) As tblDHF_AnhaengeRow Dim rowtblDHF_AnhaengeRow As tblDHF_AnhaengeRow = CType(Me.NewRow,tblDHF_AnhaengeRow) Dim columnValuesArray() As Object = New Object() {Nothing, LizenzNr, Operatorid, AnmID, MsgTyp, ErstelltAm, pfad, LRN, CRN, docID} rowtblDHF_AnhaengeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDHF_AnhaengeRow) Return rowtblDHF_AnhaengeRow End Function _ Public Function FindBydhfanh_id(ByVal dhfanh_id As Integer) As tblDHF_AnhaengeRow Return CType(Me.Rows.Find(New Object() {dhfanh_id}),tblDHF_AnhaengeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDHF_AnhaengeDataTable = CType(MyBase.Clone,tblDHF_AnhaengeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDHF_AnhaengeDataTable() End Function _ Friend Sub InitVars() Me.columndhfanh_id = MyBase.Columns("dhfanh_id") Me.columnLizenzNr = MyBase.Columns("LizenzNr") Me.columnOperatorid = MyBase.Columns("Operatorid") Me.columnAnmID = MyBase.Columns("AnmID") Me.columnMsgTyp = MyBase.Columns("MsgTyp") Me.columnErstelltAm = MyBase.Columns("ErstelltAm") Me.columnpfad = MyBase.Columns("pfad") Me.columnLRN = MyBase.Columns("LRN") Me.columnCRN = MyBase.Columns("CRN") Me.columndocID = MyBase.Columns("docID") End Sub _ Private Sub InitClass() Me.columndhfanh_id = New Global.System.Data.DataColumn("dhfanh_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndhfanh_id) Me.columnLizenzNr = New Global.System.Data.DataColumn("LizenzNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLizenzNr) Me.columnOperatorid = New Global.System.Data.DataColumn("Operatorid", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOperatorid) Me.columnAnmID = New Global.System.Data.DataColumn("AnmID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmID) Me.columnMsgTyp = New Global.System.Data.DataColumn("MsgTyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMsgTyp) Me.columnErstelltAm = New Global.System.Data.DataColumn("ErstelltAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstelltAm) Me.columnpfad = New Global.System.Data.DataColumn("pfad", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpfad) Me.columnLRN = New Global.System.Data.DataColumn("LRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLRN) Me.columnCRN = New Global.System.Data.DataColumn("CRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCRN) Me.columndocID = New Global.System.Data.DataColumn("docID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndocID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columndhfanh_id}, true)) Me.columndhfanh_id.AutoIncrement = true Me.columndhfanh_id.AutoIncrementSeed = -1 Me.columndhfanh_id.AutoIncrementStep = -1 Me.columndhfanh_id.AllowDBNull = false Me.columndhfanh_id.ReadOnly = true Me.columndhfanh_id.Unique = true Me.columnLizenzNr.AllowDBNull = false Me.columnLizenzNr.MaxLength = 10 Me.columnOperatorid.AllowDBNull = false Me.columnAnmID.AllowDBNull = false Me.columnMsgTyp.AllowDBNull = false Me.columnMsgTyp.MaxLength = 10 Me.columnErstelltAm.AllowDBNull = false Me.columnpfad.AllowDBNull = false Me.columnpfad.MaxLength = 500 Me.columnLRN.AllowDBNull = false Me.columnLRN.MaxLength = 500 Me.columnCRN.AllowDBNull = false Me.columnCRN.MaxLength = 500 End Sub _ Public Function NewtblDHF_AnhaengeRow() As tblDHF_AnhaengeRow Return CType(Me.NewRow,tblDHF_AnhaengeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDHF_AnhaengeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDHF_AnhaengeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDHF_AnhaengeRowChangedEvent) Is Nothing) Then RaiseEvent tblDHF_AnhaengeRowChanged(Me, New tblDHF_AnhaengeRowChangeEvent(CType(e.Row,tblDHF_AnhaengeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDHF_AnhaengeRowChangingEvent) Is Nothing) Then RaiseEvent tblDHF_AnhaengeRowChanging(Me, New tblDHF_AnhaengeRowChangeEvent(CType(e.Row,tblDHF_AnhaengeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDHF_AnhaengeRowDeletedEvent) Is Nothing) Then RaiseEvent tblDHF_AnhaengeRowDeleted(Me, New tblDHF_AnhaengeRowChangeEvent(CType(e.Row,tblDHF_AnhaengeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDHF_AnhaengeRowDeletingEvent) Is Nothing) Then RaiseEvent tblDHF_AnhaengeRowDeleting(Me, New tblDHF_AnhaengeRowChangeEvent(CType(e.Row,tblDHF_AnhaengeRow), e.Action)) End If End Sub _ Public Sub RemovetblDHF_AnhaengeRow(ByVal row As tblDHF_AnhaengeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDHF_AnhaengeDataTable" 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 tblDieselArchivDataTable Inherits Global.System.Data.TypedTableBase(Of tblDieselArchivRow) Private columnYear_Month_Day As Global.System.Data.DataColumn Private columnPayment_summary_number As Global.System.Data.DataColumn Private columnCustomer_Code As Global.System.Data.DataColumn Private columnCustomer_Name As Global.System.Data.DataColumn Private columnOutlet_Country_Code As Global.System.Data.DataColumn Private columnOutlet_Country As Global.System.Data.DataColumn Private columnOutlet_Code As Global.System.Data.DataColumn Private columnOutlet_Name As Global.System.Data.DataColumn Private columnProduct_Type_Code As Global.System.Data.DataColumn Private columnTransaction_Volume As Global.System.Data.DataColumn Private columnAmminclVAT As Global.System.Data.DataColumn Private columnTotal_Net_Amount As Global.System.Data.DataColumn Private columnVAT_Amount As Global.System.Data.DataColumn Private columnav_price_excl_VAT As Global.System.Data.DataColumn Private columnRechenwert As Global.System.Data.DataColumn Private columnKz As Global.System.Data.DataColumn Private columnRabattbetrag As Global.System.Data.DataColumn Private columnRabattbetragProLiter As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnKdNrVERAG As Global.System.Data.DataColumn Private columnCard_Number As Global.System.Data.DataColumn Private columnEmission_Number As Global.System.Data.DataColumn Private columnCard_Comments As Global.System.Data.DataColumn Private columnCalendarDate As Global.System.Data.DataColumn Private columnTransaction_HHMM As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnVR_Number As Global.System.Data.DataColumn Private columnOBO_Number As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDieselArchiv" 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 Year_Month_DayColumn() As Global.System.Data.DataColumn Get Return Me.columnYear_Month_Day End Get End Property _ Public ReadOnly Property Payment_summary_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnPayment_summary_number End Get End Property _ Public ReadOnly Property Customer_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomer_Code End Get End Property _ Public ReadOnly Property Customer_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomer_Name End Get End Property _ Public ReadOnly Property Outlet_Country_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnOutlet_Country_Code End Get End Property _ Public ReadOnly Property Outlet_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnOutlet_Country End Get End Property _ Public ReadOnly Property Outlet_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnOutlet_Code End Get End Property _ Public ReadOnly Property Outlet_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnOutlet_Name End Get End Property _ Public ReadOnly Property Product_Type_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnProduct_Type_Code End Get End Property _ Public ReadOnly Property Transaction_VolumeColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_Volume End Get End Property _ Public ReadOnly Property AmminclVATColumn() As Global.System.Data.DataColumn Get Return Me.columnAmminclVAT End Get End Property _ Public ReadOnly Property Total_Net_AmountColumn() As Global.System.Data.DataColumn Get Return Me.columnTotal_Net_Amount End Get End Property _ Public ReadOnly Property VAT_AmountColumn() As Global.System.Data.DataColumn Get Return Me.columnVAT_Amount End Get End Property _ Public ReadOnly Property av_price_excl_VATColumn() As Global.System.Data.DataColumn Get Return Me.columnav_price_excl_VAT End Get End Property _ Public ReadOnly Property RechenwertColumn() As Global.System.Data.DataColumn Get Return Me.columnRechenwert End Get End Property _ Public ReadOnly Property KzColumn() As Global.System.Data.DataColumn Get Return Me.columnKz End Get End Property _ Public ReadOnly Property RabattbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnRabattbetrag End Get End Property _ Public ReadOnly Property RabattbetragProLiterColumn() As Global.System.Data.DataColumn Get Return Me.columnRabattbetragProLiter End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property KdNrVERAGColumn() As Global.System.Data.DataColumn Get Return Me.columnKdNrVERAG End Get End Property _ Public ReadOnly Property Card_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnCard_Number End Get End Property _ Public ReadOnly Property Emission_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnEmission_Number End Get End Property _ Public ReadOnly Property Card_CommentsColumn() As Global.System.Data.DataColumn Get Return Me.columnCard_Comments End Get End Property _ Public ReadOnly Property CalendarDateColumn() As Global.System.Data.DataColumn Get Return Me.columnCalendarDate End Get End Property _ Public ReadOnly Property Transaction_HHMMColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_HHMM End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property VR_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnVR_Number End Get End Property _ Public ReadOnly Property OBO_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnOBO_Number End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblDieselArchivRow Get Return CType(Me.Rows(index),tblDieselArchivRow) End Get End Property _ Public Event tblDieselArchivRowChanging As tblDieselArchivRowChangeEventHandler _ Public Event tblDieselArchivRowChanged As tblDieselArchivRowChangeEventHandler _ Public Event tblDieselArchivRowDeleting As tblDieselArchivRowChangeEventHandler _ Public Event tblDieselArchivRowDeleted As tblDieselArchivRowChangeEventHandler _ Public Overloads Sub AddtblDieselArchivRow(ByVal row As tblDieselArchivRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDieselArchivRow( _ ByVal Year_Month_Day As Date, _ ByVal Payment_summary_number As String, _ ByVal Customer_Code As Integer, _ ByVal Customer_Name As String, _ ByVal Outlet_Country_Code As Integer, _ ByVal Outlet_Country As String, _ ByVal Outlet_Code As Short, _ ByVal Outlet_Name As String, _ ByVal Product_Type_Code As Short, _ ByVal Transaction_Volume As Decimal, _ ByVal AmminclVAT As Decimal, _ ByVal Total_Net_Amount As Decimal, _ ByVal VAT_Amount As Decimal, _ ByVal av_price_excl_VAT As Decimal, _ ByVal Rechenwert As Decimal, _ ByVal Kz As String, _ ByVal Rabattbetrag As Decimal, _ ByVal RabattbetragProLiter As Decimal, _ ByVal Zeitstempel As Date, _ ByVal Sachbearbeiter As String, _ ByVal KdNrVERAG As Integer, _ ByVal Card_Number As Short, _ ByVal Emission_Number As Short, _ ByVal Card_Comments As String, _ ByVal CalendarDate As String, _ ByVal Transaction_HHMM As String, _ ByVal UStVAn_ID As Integer, _ ByVal VR_Number As String, _ ByVal OBO_Number As String, _ ByVal SSMA_TimeStamp() As Byte) As tblDieselArchivRow Dim rowtblDieselArchivRow As tblDieselArchivRow = CType(Me.NewRow,tblDieselArchivRow) Dim columnValuesArray() As Object = New Object() {Year_Month_Day, Payment_summary_number, Customer_Code, Customer_Name, Outlet_Country_Code, Outlet_Country, Outlet_Code, Outlet_Name, Product_Type_Code, Transaction_Volume, AmminclVAT, Total_Net_Amount, VAT_Amount, av_price_excl_VAT, Rechenwert, Kz, Rabattbetrag, RabattbetragProLiter, Zeitstempel, Sachbearbeiter, KdNrVERAG, Card_Number, Emission_Number, Card_Comments, CalendarDate, Transaction_HHMM, UStVAn_ID, VR_Number, OBO_Number, SSMA_TimeStamp} rowtblDieselArchivRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDieselArchivRow) Return rowtblDieselArchivRow End Function _ Public Function FindByYear_Month_DayPayment_summary_numberCustomer_CodeOutlet_Country_CodeOutlet_CodeProduct_Type_Code(ByVal Year_Month_Day As Date, ByVal Payment_summary_number As String, ByVal Customer_Code As Integer, ByVal Outlet_Country_Code As Integer, ByVal Outlet_Code As Short, ByVal Product_Type_Code As Short) As tblDieselArchivRow Return CType(Me.Rows.Find(New Object() {Year_Month_Day, Payment_summary_number, Customer_Code, Outlet_Country_Code, Outlet_Code, Product_Type_Code}),tblDieselArchivRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDieselArchivDataTable = CType(MyBase.Clone,tblDieselArchivDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDieselArchivDataTable() End Function _ Friend Sub InitVars() Me.columnYear_Month_Day = MyBase.Columns("Year Month Day") Me.columnPayment_summary_number = MyBase.Columns("Payment summary number") Me.columnCustomer_Code = MyBase.Columns("Customer Code") Me.columnCustomer_Name = MyBase.Columns("Customer Name") Me.columnOutlet_Country_Code = MyBase.Columns("Outlet Country Code") Me.columnOutlet_Country = MyBase.Columns("Outlet Country") Me.columnOutlet_Code = MyBase.Columns("Outlet Code") Me.columnOutlet_Name = MyBase.Columns("Outlet Name") Me.columnProduct_Type_Code = MyBase.Columns("Product Type Code") Me.columnTransaction_Volume = MyBase.Columns("Transaction Volume") Me.columnAmminclVAT = MyBase.Columns("AmminclVAT") Me.columnTotal_Net_Amount = MyBase.Columns("Total Net Amount") Me.columnVAT_Amount = MyBase.Columns("VAT Amount") Me.columnav_price_excl_VAT = MyBase.Columns("av price excl VAT") Me.columnRechenwert = MyBase.Columns("Rechenwert") Me.columnKz = MyBase.Columns("Kz") Me.columnRabattbetrag = MyBase.Columns("Rabattbetrag") Me.columnRabattbetragProLiter = MyBase.Columns("RabattbetragProLiter") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnKdNrVERAG = MyBase.Columns("KdNrVERAG") Me.columnCard_Number = MyBase.Columns("Card Number") Me.columnEmission_Number = MyBase.Columns("Emission Number") Me.columnCard_Comments = MyBase.Columns("Card Comments") Me.columnCalendarDate = MyBase.Columns("CalendarDate") Me.columnTransaction_HHMM = MyBase.Columns("Transaction HHMM") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnVR_Number = MyBase.Columns("VR Number") Me.columnOBO_Number = MyBase.Columns("OBO Number") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnYear_Month_Day = New Global.System.Data.DataColumn("Year Month Day", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnYear_Month_Day) Me.columnPayment_summary_number = New Global.System.Data.DataColumn("Payment summary number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPayment_summary_number) Me.columnCustomer_Code = New Global.System.Data.DataColumn("Customer Code", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomer_Code) Me.columnCustomer_Name = New Global.System.Data.DataColumn("Customer Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomer_Name) Me.columnOutlet_Country_Code = New Global.System.Data.DataColumn("Outlet Country Code", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutlet_Country_Code) Me.columnOutlet_Country = New Global.System.Data.DataColumn("Outlet Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutlet_Country) Me.columnOutlet_Code = New Global.System.Data.DataColumn("Outlet Code", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutlet_Code) Me.columnOutlet_Name = New Global.System.Data.DataColumn("Outlet Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOutlet_Name) Me.columnProduct_Type_Code = New Global.System.Data.DataColumn("Product Type Code", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProduct_Type_Code) Me.columnTransaction_Volume = New Global.System.Data.DataColumn("Transaction Volume", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_Volume) Me.columnAmminclVAT = New Global.System.Data.DataColumn("AmminclVAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAmminclVAT) Me.columnTotal_Net_Amount = New Global.System.Data.DataColumn("Total Net Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTotal_Net_Amount) Me.columnVAT_Amount = New Global.System.Data.DataColumn("VAT Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVAT_Amount) Me.columnav_price_excl_VAT = New Global.System.Data.DataColumn("av price excl VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnav_price_excl_VAT) Me.columnRechenwert = New Global.System.Data.DataColumn("Rechenwert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechenwert) Me.columnKz = New Global.System.Data.DataColumn("Kz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKz) Me.columnRabattbetrag = New Global.System.Data.DataColumn("Rabattbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRabattbetrag) Me.columnRabattbetragProLiter = New Global.System.Data.DataColumn("RabattbetragProLiter", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRabattbetragProLiter) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnKdNrVERAG = New Global.System.Data.DataColumn("KdNrVERAG", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdNrVERAG) Me.columnCard_Number = New Global.System.Data.DataColumn("Card Number", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCard_Number) Me.columnEmission_Number = New Global.System.Data.DataColumn("Emission Number", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmission_Number) Me.columnCard_Comments = New Global.System.Data.DataColumn("Card Comments", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCard_Comments) Me.columnCalendarDate = New Global.System.Data.DataColumn("CalendarDate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCalendarDate) Me.columnTransaction_HHMM = New Global.System.Data.DataColumn("Transaction HHMM", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_HHMM) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnVR_Number = New Global.System.Data.DataColumn("VR Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVR_Number) Me.columnOBO_Number = New Global.System.Data.DataColumn("OBO Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOBO_Number) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnYear_Month_Day, Me.columnPayment_summary_number, Me.columnCustomer_Code, Me.columnOutlet_Country_Code, Me.columnOutlet_Code, Me.columnProduct_Type_Code}, true)) Me.columnYear_Month_Day.AllowDBNull = false Me.columnPayment_summary_number.AllowDBNull = false Me.columnPayment_summary_number.MaxLength = 50 Me.columnCustomer_Code.AllowDBNull = false Me.columnCustomer_Name.MaxLength = 50 Me.columnOutlet_Country_Code.AllowDBNull = false Me.columnOutlet_Country.MaxLength = 50 Me.columnOutlet_Code.AllowDBNull = false Me.columnOutlet_Name.MaxLength = 30 Me.columnProduct_Type_Code.AllowDBNull = false Me.columnKz.MaxLength = 1 Me.columnSachbearbeiter.MaxLength = 15 Me.columnCard_Number.AllowDBNull = false Me.columnEmission_Number.AllowDBNull = false Me.columnCard_Comments.AllowDBNull = false Me.columnCard_Comments.MaxLength = 20 Me.columnCalendarDate.AllowDBNull = false Me.columnCalendarDate.MaxLength = 10 Me.columnTransaction_HHMM.AllowDBNull = false Me.columnTransaction_HHMM.MaxLength = 5 Me.columnVR_Number.MaxLength = 12 Me.columnOBO_Number.MaxLength = 15 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblDieselArchivRow() As tblDieselArchivRow Return CType(Me.NewRow,tblDieselArchivRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDieselArchivRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDieselArchivRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDieselArchivRowChangedEvent) Is Nothing) Then RaiseEvent tblDieselArchivRowChanged(Me, New tblDieselArchivRowChangeEvent(CType(e.Row,tblDieselArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDieselArchivRowChangingEvent) Is Nothing) Then RaiseEvent tblDieselArchivRowChanging(Me, New tblDieselArchivRowChangeEvent(CType(e.Row,tblDieselArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDieselArchivRowDeletedEvent) Is Nothing) Then RaiseEvent tblDieselArchivRowDeleted(Me, New tblDieselArchivRowChangeEvent(CType(e.Row,tblDieselArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDieselArchivRowDeletingEvent) Is Nothing) Then RaiseEvent tblDieselArchivRowDeleting(Me, New tblDieselArchivRowChangeEvent(CType(e.Row,tblDieselArchivRow), e.Action)) End If End Sub _ Public Sub RemovetblDieselArchivRow(ByVal row As tblDieselArchivRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDieselArchivDataTable" 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 tblDigicust_SendungenDataTable Inherits Global.System.Data.TypedTableBase(Of tblDigicust_SendungenRow) Private columnId As Global.System.Data.DataColumn Private columnAvisoId As Global.System.Data.DataColumn Private columnreference As Global.System.Data.DataColumn Private columnstatus As Global.System.Data.DataColumn Private columndigicustId As Global.System.Data.DataColumn Private columncreatedAt As Global.System.Data.DataColumn Private columnmodifiedAt As Global.System.Data.DataColumn Private columnuploadedDocuments As Global.System.Data.DataColumn Private columncompanyId As Global.System.Data.DataColumn Private columnprojectId As Global.System.Data.DataColumn Private columnlicencePlate As Global.System.Data.DataColumn Private columnconsignor_eori As Global.System.Data.DataColumn Private columnconsignor_name As Global.System.Data.DataColumn Private columnconsignor_address As Global.System.Data.DataColumn Private columnconsignor_city_name As Global.System.Data.DataColumn Private columnconsignor_country_id As Global.System.Data.DataColumn Private columnconsignor_postcode As Global.System.Data.DataColumn Private columnconsignee_eori As Global.System.Data.DataColumn Private columnconsignee_name As Global.System.Data.DataColumn Private columnconsignee_address As Global.System.Data.DataColumn Private columnconsignee_city_name As Global.System.Data.DataColumn Private columnconsignee_country_id As Global.System.Data.DataColumn Private columnconsignee_postcode As Global.System.Data.DataColumn Private columnprepaper As Global.System.Data.DataColumn Private columnprepaper_code As Global.System.Data.DataColumn Private columnlkwCountryId As Global.System.Data.DataColumn Private columncustomsOfficeNr As Global.System.Data.DataColumn Private columnsettingsId As Global.System.Data.DataColumn Private columntype As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDigicust_Sendungen" 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 AvisoIdColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisoId End Get End Property _ Public ReadOnly Property referenceColumn() As Global.System.Data.DataColumn Get Return Me.columnreference End Get End Property _ Public ReadOnly Property statusColumn() As Global.System.Data.DataColumn Get Return Me.columnstatus End Get End Property _ Public ReadOnly Property digicustIdColumn() As Global.System.Data.DataColumn Get Return Me.columndigicustId End Get End Property _ Public ReadOnly Property createdAtColumn() As Global.System.Data.DataColumn Get Return Me.columncreatedAt End Get End Property _ Public ReadOnly Property modifiedAtColumn() As Global.System.Data.DataColumn Get Return Me.columnmodifiedAt End Get End Property _ Public ReadOnly Property uploadedDocumentsColumn() As Global.System.Data.DataColumn Get Return Me.columnuploadedDocuments End Get End Property _ Public ReadOnly Property companyIdColumn() As Global.System.Data.DataColumn Get Return Me.columncompanyId End Get End Property _ Public ReadOnly Property projectIdColumn() As Global.System.Data.DataColumn Get Return Me.columnprojectId End Get End Property _ Public ReadOnly Property licencePlateColumn() As Global.System.Data.DataColumn Get Return Me.columnlicencePlate End Get End Property _ Public ReadOnly Property consignor_eoriColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_eori End Get End Property _ Public ReadOnly Property consignor_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_name End Get End Property _ Public ReadOnly Property consignor_addressColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_address End Get End Property _ Public ReadOnly Property consignor_city_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_city_name End Get End Property _ Public ReadOnly Property consignor_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_country_id End Get End Property _ Public ReadOnly Property consignor_postcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_postcode End Get End Property _ Public ReadOnly Property consignee_eoriColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_eori End Get End Property _ Public ReadOnly Property consignee_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_name End Get End Property _ Public ReadOnly Property consignee_addressColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_address End Get End Property _ Public ReadOnly Property consignee_city_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_city_name End Get End Property _ Public ReadOnly Property consignee_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_country_id End Get End Property _ Public ReadOnly Property consignee_postcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_postcode End Get End Property _ Public ReadOnly Property prepaperColumn() As Global.System.Data.DataColumn Get Return Me.columnprepaper End Get End Property _ Public ReadOnly Property prepaper_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnprepaper_code End Get End Property _ Public ReadOnly Property lkwCountryIdColumn() As Global.System.Data.DataColumn Get Return Me.columnlkwCountryId End Get End Property _ Public ReadOnly Property customsOfficeNrColumn() As Global.System.Data.DataColumn Get Return Me.columncustomsOfficeNr End Get End Property _ Public ReadOnly Property settingsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnsettingsId End Get End Property _ Public ReadOnly Property typeColumn() As Global.System.Data.DataColumn Get Return Me.columntype 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 tblDigicust_SendungenRow Get Return CType(Me.Rows(index),tblDigicust_SendungenRow) End Get End Property _ Public Event tblDigicust_SendungenRowChanging As tblDigicust_SendungenRowChangeEventHandler _ Public Event tblDigicust_SendungenRowChanged As tblDigicust_SendungenRowChangeEventHandler _ Public Event tblDigicust_SendungenRowDeleting As tblDigicust_SendungenRowChangeEventHandler _ Public Event tblDigicust_SendungenRowDeleted As tblDigicust_SendungenRowChangeEventHandler _ Public Overloads Sub AddtblDigicust_SendungenRow(ByVal row As tblDigicust_SendungenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDigicust_SendungenRow( _ ByVal AvisoId As Integer, _ ByVal reference As String, _ ByVal status As String, _ ByVal digicustId As String, _ ByVal createdAt As Date, _ ByVal modifiedAt As Date, _ ByVal uploadedDocuments As Integer, _ ByVal companyId As String, _ ByVal projectId As String, _ ByVal licencePlate As String, _ ByVal consignor_eori As String, _ ByVal consignor_name As String, _ ByVal consignor_address As String, _ ByVal consignor_city_name As String, _ ByVal consignor_country_id As String, _ ByVal consignor_postcode As String, _ ByVal consignee_eori As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal prepaper As String, _ ByVal prepaper_code As String, _ ByVal lkwCountryId As String, _ ByVal customsOfficeNr As String, _ ByVal settingsId As Integer, _ ByVal type As String) As tblDigicust_SendungenRow Dim rowtblDigicust_SendungenRow As tblDigicust_SendungenRow = CType(Me.NewRow,tblDigicust_SendungenRow) Dim columnValuesArray() As Object = New Object() {Nothing, AvisoId, reference, status, digicustId, createdAt, modifiedAt, uploadedDocuments, companyId, projectId, licencePlate, consignor_eori, consignor_name, consignor_address, consignor_city_name, consignor_country_id, consignor_postcode, consignee_eori, consignee_name, consignee_address, consignee_city_name, consignee_country_id, consignee_postcode, prepaper, prepaper_code, lkwCountryId, customsOfficeNr, settingsId, type} rowtblDigicust_SendungenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDigicust_SendungenRow) Return rowtblDigicust_SendungenRow End Function _ Public Function FindById(ByVal Id As Integer) As tblDigicust_SendungenRow Return CType(Me.Rows.Find(New Object() {Id}),tblDigicust_SendungenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDigicust_SendungenDataTable = CType(MyBase.Clone,tblDigicust_SendungenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDigicust_SendungenDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columnAvisoId = MyBase.Columns("AvisoId") Me.columnreference = MyBase.Columns("reference") Me.columnstatus = MyBase.Columns("status") Me.columndigicustId = MyBase.Columns("digicustId") Me.columncreatedAt = MyBase.Columns("createdAt") Me.columnmodifiedAt = MyBase.Columns("modifiedAt") Me.columnuploadedDocuments = MyBase.Columns("uploadedDocuments") Me.columncompanyId = MyBase.Columns("companyId") Me.columnprojectId = MyBase.Columns("projectId") Me.columnlicencePlate = MyBase.Columns("licencePlate") Me.columnconsignor_eori = MyBase.Columns("consignor_eori") Me.columnconsignor_name = MyBase.Columns("consignor_name") Me.columnconsignor_address = MyBase.Columns("consignor_address") Me.columnconsignor_city_name = MyBase.Columns("consignor_city_name") Me.columnconsignor_country_id = MyBase.Columns("consignor_country_id") Me.columnconsignor_postcode = MyBase.Columns("consignor_postcode") Me.columnconsignee_eori = MyBase.Columns("consignee_eori") Me.columnconsignee_name = MyBase.Columns("consignee_name") Me.columnconsignee_address = MyBase.Columns("consignee_address") Me.columnconsignee_city_name = MyBase.Columns("consignee_city_name") Me.columnconsignee_country_id = MyBase.Columns("consignee_country_id") Me.columnconsignee_postcode = MyBase.Columns("consignee_postcode") Me.columnprepaper = MyBase.Columns("prepaper") Me.columnprepaper_code = MyBase.Columns("prepaper_code") Me.columnlkwCountryId = MyBase.Columns("lkwCountryId") Me.columncustomsOfficeNr = MyBase.Columns("customsOfficeNr") Me.columnsettingsId = MyBase.Columns("settingsId") Me.columntype = MyBase.Columns("type") 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.columnAvisoId = New Global.System.Data.DataColumn("AvisoId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisoId) Me.columnreference = New Global.System.Data.DataColumn("reference", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnreference) Me.columnstatus = New Global.System.Data.DataColumn("status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstatus) Me.columndigicustId = New Global.System.Data.DataColumn("digicustId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndigicustId) Me.columncreatedAt = New Global.System.Data.DataColumn("createdAt", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncreatedAt) Me.columnmodifiedAt = New Global.System.Data.DataColumn("modifiedAt", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmodifiedAt) Me.columnuploadedDocuments = New Global.System.Data.DataColumn("uploadedDocuments", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuploadedDocuments) Me.columncompanyId = New Global.System.Data.DataColumn("companyId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncompanyId) Me.columnprojectId = New Global.System.Data.DataColumn("projectId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnprojectId) Me.columnlicencePlate = New Global.System.Data.DataColumn("licencePlate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnlicencePlate) Me.columnconsignor_eori = New Global.System.Data.DataColumn("consignor_eori", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_eori) Me.columnconsignor_name = New Global.System.Data.DataColumn("consignor_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_name) Me.columnconsignor_address = New Global.System.Data.DataColumn("consignor_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_address) Me.columnconsignor_city_name = New Global.System.Data.DataColumn("consignor_city_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_city_name) Me.columnconsignor_country_id = New Global.System.Data.DataColumn("consignor_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_country_id) Me.columnconsignor_postcode = New Global.System.Data.DataColumn("consignor_postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_postcode) Me.columnconsignee_eori = New Global.System.Data.DataColumn("consignee_eori", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_eori) Me.columnconsignee_name = New Global.System.Data.DataColumn("consignee_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_name) Me.columnconsignee_address = New Global.System.Data.DataColumn("consignee_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_address) Me.columnconsignee_city_name = New Global.System.Data.DataColumn("consignee_city_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_city_name) Me.columnconsignee_country_id = New Global.System.Data.DataColumn("consignee_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_country_id) Me.columnconsignee_postcode = New Global.System.Data.DataColumn("consignee_postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_postcode) Me.columnprepaper = New Global.System.Data.DataColumn("prepaper", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnprepaper) Me.columnprepaper_code = New Global.System.Data.DataColumn("prepaper_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnprepaper_code) Me.columnlkwCountryId = New Global.System.Data.DataColumn("lkwCountryId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnlkwCountryId) Me.columncustomsOfficeNr = New Global.System.Data.DataColumn("customsOfficeNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncustomsOfficeNr) Me.columnsettingsId = New Global.System.Data.DataColumn("settingsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsettingsId) Me.columntype = New Global.System.Data.DataColumn("type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntype) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columnreference.MaxLength = 50 Me.columnstatus.MaxLength = 50 Me.columndigicustId.MaxLength = 2147483647 Me.columncompanyId.MaxLength = 2147483647 Me.columnprojectId.MaxLength = 2147483647 Me.columnlicencePlate.MaxLength = 10 Me.columnconsignor_eori.MaxLength = 50 Me.columnconsignor_name.MaxLength = 50 Me.columnconsignor_address.MaxLength = 50 Me.columnconsignor_city_name.MaxLength = 50 Me.columnconsignor_country_id.MaxLength = 50 Me.columnconsignor_postcode.MaxLength = 50 Me.columnconsignee_eori.MaxLength = 50 Me.columnconsignee_name.MaxLength = 50 Me.columnconsignee_address.MaxLength = 50 Me.columnconsignee_city_name.MaxLength = 50 Me.columnconsignee_country_id.MaxLength = 50 Me.columnconsignee_postcode.MaxLength = 50 Me.columnprepaper.MaxLength = 30 Me.columnprepaper_code.MaxLength = 2 Me.columnlkwCountryId.MaxLength = 10 Me.columncustomsOfficeNr.MaxLength = 15 Me.columntype.MaxLength = 15 End Sub _ Public Function NewtblDigicust_SendungenRow() As tblDigicust_SendungenRow Return CType(Me.NewRow,tblDigicust_SendungenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDigicust_SendungenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDigicust_SendungenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDigicust_SendungenRowChangedEvent) Is Nothing) Then RaiseEvent tblDigicust_SendungenRowChanged(Me, New tblDigicust_SendungenRowChangeEvent(CType(e.Row,tblDigicust_SendungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDigicust_SendungenRowChangingEvent) Is Nothing) Then RaiseEvent tblDigicust_SendungenRowChanging(Me, New tblDigicust_SendungenRowChangeEvent(CType(e.Row,tblDigicust_SendungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDigicust_SendungenRowDeletedEvent) Is Nothing) Then RaiseEvent tblDigicust_SendungenRowDeleted(Me, New tblDigicust_SendungenRowChangeEvent(CType(e.Row,tblDigicust_SendungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDigicust_SendungenRowDeletingEvent) Is Nothing) Then RaiseEvent tblDigicust_SendungenRowDeleting(Me, New tblDigicust_SendungenRowChangeEvent(CType(e.Row,tblDigicust_SendungenRow), e.Action)) End If End Sub _ Public Sub RemovetblDigicust_SendungenRow(ByVal row As tblDigicust_SendungenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDigicust_SendungenDataTable" 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 tblDigicust_SessionsDataTable Inherits Global.System.Data.TypedTableBase(Of tblDigicust_SessionsRow) Private columnsession_Id As Global.System.Data.DataColumn Private columntoken As Global.System.Data.DataColumn Private columndatetime As Global.System.Data.DataColumn Private columnrefresh_token As Global.System.Data.DataColumn Private columntoken_validuntil As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDigicust_Sessions" 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 session_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnsession_Id End Get End Property _ Public ReadOnly Property tokenColumn() As Global.System.Data.DataColumn Get Return Me.columntoken End Get End Property _ Public ReadOnly Property datetimeColumn() As Global.System.Data.DataColumn Get Return Me.columndatetime End Get End Property _ Public ReadOnly Property refresh_tokenColumn() As Global.System.Data.DataColumn Get Return Me.columnrefresh_token End Get End Property _ Public ReadOnly Property token_validuntilColumn() As Global.System.Data.DataColumn Get Return Me.columntoken_validuntil 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 tblDigicust_SessionsRow Get Return CType(Me.Rows(index),tblDigicust_SessionsRow) End Get End Property _ Public Event tblDigicust_SessionsRowChanging As tblDigicust_SessionsRowChangeEventHandler _ Public Event tblDigicust_SessionsRowChanged As tblDigicust_SessionsRowChangeEventHandler _ Public Event tblDigicust_SessionsRowDeleting As tblDigicust_SessionsRowChangeEventHandler _ Public Event tblDigicust_SessionsRowDeleted As tblDigicust_SessionsRowChangeEventHandler _ Public Overloads Sub AddtblDigicust_SessionsRow(ByVal row As tblDigicust_SessionsRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDigicust_SessionsRow(ByVal token As String, ByVal datetime As Date, ByVal refresh_token As String, ByVal token_validuntil As Date) As tblDigicust_SessionsRow Dim rowtblDigicust_SessionsRow As tblDigicust_SessionsRow = CType(Me.NewRow,tblDigicust_SessionsRow) Dim columnValuesArray() As Object = New Object() {Nothing, token, datetime, refresh_token, token_validuntil} rowtblDigicust_SessionsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDigicust_SessionsRow) Return rowtblDigicust_SessionsRow End Function _ Public Function FindBysession_Id(ByVal session_Id As Integer) As tblDigicust_SessionsRow Return CType(Me.Rows.Find(New Object() {session_Id}),tblDigicust_SessionsRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDigicust_SessionsDataTable = CType(MyBase.Clone,tblDigicust_SessionsDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDigicust_SessionsDataTable() End Function _ Friend Sub InitVars() Me.columnsession_Id = MyBase.Columns("session_Id") Me.columntoken = MyBase.Columns("token") Me.columndatetime = MyBase.Columns("datetime") Me.columnrefresh_token = MyBase.Columns("refresh_token") Me.columntoken_validuntil = MyBase.Columns("token_validuntil") End Sub _ Private Sub InitClass() Me.columnsession_Id = New Global.System.Data.DataColumn("session_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsession_Id) Me.columntoken = New Global.System.Data.DataColumn("token", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntoken) Me.columndatetime = New Global.System.Data.DataColumn("datetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndatetime) Me.columnrefresh_token = New Global.System.Data.DataColumn("refresh_token", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefresh_token) Me.columntoken_validuntil = New Global.System.Data.DataColumn("token_validuntil", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntoken_validuntil) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnsession_Id}, true)) Me.columnsession_Id.AutoIncrement = true Me.columnsession_Id.AutoIncrementSeed = -1 Me.columnsession_Id.AutoIncrementStep = -1 Me.columnsession_Id.AllowDBNull = false Me.columnsession_Id.ReadOnly = true Me.columnsession_Id.Unique = true Me.columntoken.MaxLength = 2147483647 Me.columndatetime.AllowDBNull = false Me.columnrefresh_token.MaxLength = 2147483647 End Sub _ Public Function NewtblDigicust_SessionsRow() As tblDigicust_SessionsRow Return CType(Me.NewRow,tblDigicust_SessionsRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDigicust_SessionsRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDigicust_SessionsRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDigicust_SessionsRowChangedEvent) Is Nothing) Then RaiseEvent tblDigicust_SessionsRowChanged(Me, New tblDigicust_SessionsRowChangeEvent(CType(e.Row,tblDigicust_SessionsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDigicust_SessionsRowChangingEvent) Is Nothing) Then RaiseEvent tblDigicust_SessionsRowChanging(Me, New tblDigicust_SessionsRowChangeEvent(CType(e.Row,tblDigicust_SessionsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDigicust_SessionsRowDeletedEvent) Is Nothing) Then RaiseEvent tblDigicust_SessionsRowDeleted(Me, New tblDigicust_SessionsRowChangeEvent(CType(e.Row,tblDigicust_SessionsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDigicust_SessionsRowDeletingEvent) Is Nothing) Then RaiseEvent tblDigicust_SessionsRowDeleting(Me, New tblDigicust_SessionsRowChangeEvent(CType(e.Row,tblDigicust_SessionsRow), e.Action)) End If End Sub _ Public Sub RemovetblDigicust_SessionsRow(ByVal row As tblDigicust_SessionsRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDigicust_SessionsDataTable" 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 tblDigicust_SettingsDataTable Inherits Global.System.Data.TypedTableBase(Of tblDigicust_SettingsRow) Private columnId As Global.System.Data.DataColumn Private columncustomerId As Global.System.Data.DataColumn Private columnprojectId As Global.System.Data.DataColumn Private columnexecutionStrategyId As Global.System.Data.DataColumn Private columnvalidUntil As Global.System.Data.DataColumn Private columnvalid As Global.System.Data.DataColumn Private columncompanyId As Global.System.Data.DataColumn Private columndescription As Global.System.Data.DataColumn Private columncompanyGroup As Global.System.Data.DataColumn Private columntype As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblDigicust_Settings" 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 customerIdColumn() As Global.System.Data.DataColumn Get Return Me.columncustomerId End Get End Property _ Public ReadOnly Property projectIdColumn() As Global.System.Data.DataColumn Get Return Me.columnprojectId End Get End Property _ Public ReadOnly Property executionStrategyIdColumn() As Global.System.Data.DataColumn Get Return Me.columnexecutionStrategyId End Get End Property _ Public ReadOnly Property validUntilColumn() As Global.System.Data.DataColumn Get Return Me.columnvalidUntil End Get End Property _ Public ReadOnly Property validColumn() As Global.System.Data.DataColumn Get Return Me.columnvalid End Get End Property _ Public ReadOnly Property companyIdColumn() As Global.System.Data.DataColumn Get Return Me.columncompanyId End Get End Property _ Public ReadOnly Property descriptionColumn() As Global.System.Data.DataColumn Get Return Me.columndescription End Get End Property _ Public ReadOnly Property companyGroupColumn() As Global.System.Data.DataColumn Get Return Me.columncompanyGroup End Get End Property _ Public ReadOnly Property typeColumn() As Global.System.Data.DataColumn Get Return Me.columntype 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 tblDigicust_SettingsRow Get Return CType(Me.Rows(index),tblDigicust_SettingsRow) End Get End Property _ Public Event tblDigicust_SettingsRowChanging As tblDigicust_SettingsRowChangeEventHandler _ Public Event tblDigicust_SettingsRowChanged As tblDigicust_SettingsRowChangeEventHandler _ Public Event tblDigicust_SettingsRowDeleting As tblDigicust_SettingsRowChangeEventHandler _ Public Event tblDigicust_SettingsRowDeleted As tblDigicust_SettingsRowChangeEventHandler _ Public Overloads Sub AddtblDigicust_SettingsRow(ByVal row As tblDigicust_SettingsRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblDigicust_SettingsRow(ByVal customerId As String, ByVal projectId As String, ByVal executionStrategyId As String, ByVal validUntil As Date, ByVal valid As Boolean, ByVal companyId As Integer, ByVal description As String, ByVal companyGroup As String, ByVal type As String) As tblDigicust_SettingsRow Dim rowtblDigicust_SettingsRow As tblDigicust_SettingsRow = CType(Me.NewRow,tblDigicust_SettingsRow) Dim columnValuesArray() As Object = New Object() {Nothing, customerId, projectId, executionStrategyId, validUntil, valid, companyId, description, companyGroup, type} rowtblDigicust_SettingsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblDigicust_SettingsRow) Return rowtblDigicust_SettingsRow End Function _ Public Function FindById(ByVal Id As Integer) As tblDigicust_SettingsRow Return CType(Me.Rows.Find(New Object() {Id}),tblDigicust_SettingsRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblDigicust_SettingsDataTable = CType(MyBase.Clone,tblDigicust_SettingsDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblDigicust_SettingsDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columncustomerId = MyBase.Columns("customerId") Me.columnprojectId = MyBase.Columns("projectId") Me.columnexecutionStrategyId = MyBase.Columns("executionStrategyId") Me.columnvalidUntil = MyBase.Columns("validUntil") Me.columnvalid = MyBase.Columns("valid") Me.columncompanyId = MyBase.Columns("companyId") Me.columndescription = MyBase.Columns("description") Me.columncompanyGroup = MyBase.Columns("companyGroup") Me.columntype = MyBase.Columns("type") 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.columncustomerId = New Global.System.Data.DataColumn("customerId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncustomerId) Me.columnprojectId = New Global.System.Data.DataColumn("projectId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnprojectId) Me.columnexecutionStrategyId = New Global.System.Data.DataColumn("executionStrategyId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnexecutionStrategyId) Me.columnvalidUntil = New Global.System.Data.DataColumn("validUntil", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvalidUntil) Me.columnvalid = New Global.System.Data.DataColumn("valid", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvalid) Me.columncompanyId = New Global.System.Data.DataColumn("companyId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncompanyId) Me.columndescription = New Global.System.Data.DataColumn("description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndescription) Me.columncompanyGroup = New Global.System.Data.DataColumn("companyGroup", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncompanyGroup) Me.columntype = New Global.System.Data.DataColumn("type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntype) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columncustomerId.MaxLength = 2147483647 Me.columnprojectId.MaxLength = 2147483647 Me.columnexecutionStrategyId.MaxLength = 2147483647 Me.columndescription.MaxLength = 50 Me.columncompanyGroup.MaxLength = 40 Me.columntype.MaxLength = 10 End Sub _ Public Function NewtblDigicust_SettingsRow() As tblDigicust_SettingsRow Return CType(Me.NewRow,tblDigicust_SettingsRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblDigicust_SettingsRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblDigicust_SettingsRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblDigicust_SettingsRowChangedEvent) Is Nothing) Then RaiseEvent tblDigicust_SettingsRowChanged(Me, New tblDigicust_SettingsRowChangeEvent(CType(e.Row,tblDigicust_SettingsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblDigicust_SettingsRowChangingEvent) Is Nothing) Then RaiseEvent tblDigicust_SettingsRowChanging(Me, New tblDigicust_SettingsRowChangeEvent(CType(e.Row,tblDigicust_SettingsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblDigicust_SettingsRowDeletedEvent) Is Nothing) Then RaiseEvent tblDigicust_SettingsRowDeleted(Me, New tblDigicust_SettingsRowChangeEvent(CType(e.Row,tblDigicust_SettingsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblDigicust_SettingsRowDeletingEvent) Is Nothing) Then RaiseEvent tblDigicust_SettingsRowDeleting(Me, New tblDigicust_SettingsRowChangeEvent(CType(e.Row,tblDigicust_SettingsRow), e.Action)) End If End Sub _ Public Sub RemovetblDigicust_SettingsRow(ByVal row As tblDigicust_SettingsRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblDigicust_SettingsDataTable" 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 tblEABelegnummerDataTable Inherits Global.System.Data.TypedTableBase(Of tblEABelegnummerRow) Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnBenutzer As Global.System.Data.DataColumn Private columnBelegDat As Global.System.Data.DataColumn Private columnBelegNr As Global.System.Data.DataColumn Private columnBelegart As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnOrdnungsbegriff As Global.System.Data.DataColumn Private columnKundenNr As Global.System.Data.DataColumn Private columnName1 As Global.System.Data.DataColumn Private columnName2 As Global.System.Data.DataColumn Private columnStraße As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnPLZ As Global.System.Data.DataColumn Private columnOrt As Global.System.Data.DataColumn Private columnUstIdKz As Global.System.Data.DataColumn Private columnUstIdNr As Global.System.Data.DataColumn Private columnFrachtführer As Global.System.Data.DataColumn Private columnFrachtführerKundenNr As Global.System.Data.DataColumn Private columnLKW_Kennzeichen As Global.System.Data.DataColumn Private columnFahrer As Global.System.Data.DataColumn Private columnPassnummer As Global.System.Data.DataColumn Private columnPreislistenNr As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private columnDruckDatumUhrzeit As Global.System.Data.DataColumn Private columnstorniert As Global.System.Data.DataColumn Private columnStornogrund As Global.System.Data.DataColumn Private columngebucht As Global.System.Data.DataColumn Private columngebuchtStorno As Global.System.Data.DataColumn Private columnSgutKompl As Global.System.Data.DataColumn Private columnEABNr_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnrksv_id As Global.System.Data.DataColumn Private columnrksv_BelegId As Global.System.Data.DataColumn Private columnrksv_BelegIdStorno As Global.System.Data.DataColumn Private columnrksv_jws As Global.System.Data.DataColumn Private columnrksv_qr As Global.System.Data.DataColumn Private columnrksv_umsatz As Global.System.Data.DataColumn Private columnrksv_aktiv As Global.System.Data.DataColumn Private columnBeleg_TYP As Global.System.Data.DataColumn Private columnAuftraggeber_KdAuftragsnummer As Global.System.Data.DataColumn Private columnAuftraggeber_Provision As Global.System.Data.DataColumn Private columnLKW_Id As Global.System.Data.DataColumn Private columnLKW_Beleg As Global.System.Data.DataColumn Private columnBenutzer_LG As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblEABelegnummer" 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 MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property BenutzerColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzer End Get End Property _ Public ReadOnly Property BelegDatColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegDat End Get End Property _ Public ReadOnly Property BelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegNr End Get End Property _ Public ReadOnly Property BelegartColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegart End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property OrdnungsbegriffColumn() As Global.System.Data.DataColumn Get Return Me.columnOrdnungsbegriff End Get End Property _ Public ReadOnly Property KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property Name1Column() As Global.System.Data.DataColumn Get Return Me.columnName1 End Get End Property _ Public ReadOnly Property Name2Column() As Global.System.Data.DataColumn Get Return Me.columnName2 End Get End Property _ Public ReadOnly Property StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnStraße End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnPLZ End Get End Property _ Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnOrt End Get End Property _ Public ReadOnly Property UstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdKz End Get End Property _ Public ReadOnly Property UstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdNr End Get End Property _ Public ReadOnly Property FrachtführerColumn() As Global.System.Data.DataColumn Get Return Me.columnFrachtführer End Get End Property _ Public ReadOnly Property FrachtführerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFrachtführerKundenNr End Get End Property _ Public ReadOnly Property LKW_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnLKW_Kennzeichen End Get End Property _ Public ReadOnly Property FahrerColumn() As Global.System.Data.DataColumn Get Return Me.columnFahrer End Get End Property _ Public ReadOnly Property PassnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnPassnummer End Get End Property _ Public ReadOnly Property PreislistenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislistenNr End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property DruckDatumUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnDruckDatumUhrzeit End Get End Property _ Public ReadOnly Property storniertColumn() As Global.System.Data.DataColumn Get Return Me.columnstorniert End Get End Property _ Public ReadOnly Property StornogrundColumn() As Global.System.Data.DataColumn Get Return Me.columnStornogrund End Get End Property _ Public ReadOnly Property gebuchtColumn() As Global.System.Data.DataColumn Get Return Me.columngebucht End Get End Property _ Public ReadOnly Property gebuchtStornoColumn() As Global.System.Data.DataColumn Get Return Me.columngebuchtStorno End Get End Property _ Public ReadOnly Property SgutKomplColumn() As Global.System.Data.DataColumn Get Return Me.columnSgutKompl End Get End Property _ Public ReadOnly Property EABNr_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnEABNr_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property rksv_idColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_id End Get End Property _ Public ReadOnly Property rksv_BelegIdColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_BelegId End Get End Property _ Public ReadOnly Property rksv_BelegIdStornoColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_BelegIdStorno End Get End Property _ Public ReadOnly Property rksv_jwsColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_jws End Get End Property _ Public ReadOnly Property rksv_qrColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_qr End Get End Property _ Public ReadOnly Property rksv_umsatzColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_umsatz End Get End Property _ Public ReadOnly Property rksv_aktivColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_aktiv End Get End Property _ Public ReadOnly Property Beleg_TYPColumn() As Global.System.Data.DataColumn Get Return Me.columnBeleg_TYP End Get End Property _ Public ReadOnly Property Auftraggeber_KdAuftragsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnAuftraggeber_KdAuftragsnummer End Get End Property _ Public ReadOnly Property Auftraggeber_ProvisionColumn() As Global.System.Data.DataColumn Get Return Me.columnAuftraggeber_Provision End Get End Property _ Public ReadOnly Property LKW_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnLKW_Id End Get End Property _ Public ReadOnly Property LKW_BelegColumn() As Global.System.Data.DataColumn Get Return Me.columnLKW_Beleg End Get End Property _ Public ReadOnly Property Benutzer_LGColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzer_LG 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 tblEABelegnummerRow Get Return CType(Me.Rows(index),tblEABelegnummerRow) End Get End Property _ Public Event tblEABelegnummerRowChanging As tblEABelegnummerRowChangeEventHandler _ Public Event tblEABelegnummerRowChanged As tblEABelegnummerRowChangeEventHandler _ Public Event tblEABelegnummerRowDeleting As tblEABelegnummerRowChangeEventHandler _ Public Event tblEABelegnummerRowDeleted As tblEABelegnummerRowChangeEventHandler _ Public Overloads Sub AddtblEABelegnummerRow(ByVal row As tblEABelegnummerRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblEABelegnummerRow( _ ByVal Mandant As String, _ ByVal Niederlassung As String, _ ByVal Benutzer As Integer, _ ByVal BelegDat As Date, _ ByVal BelegNr As Integer, _ ByVal Belegart As Short, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal Ordnungsbegriff As String, _ ByVal KundenNr As Integer, _ ByVal Name1 As String, _ ByVal Name2 As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal Frachtführer As String, _ ByVal FrachtführerKundenNr As Integer, _ ByVal LKW_Kennzeichen As String, _ ByVal Fahrer As String, _ ByVal Passnummer As String, _ ByVal PreislistenNr As Short, _ ByVal Steuerschlüssel As Integer, _ ByVal DruckDatumUhrzeit As Date, _ ByVal storniert As Boolean, _ ByVal Stornogrund As String, _ ByVal gebucht As Boolean, _ ByVal gebuchtStorno As Boolean, _ ByVal SgutKompl As String, _ ByVal EABNr_Zeitstempel As Date, _ ByVal upsize_ts() As Byte, _ ByVal rksv_id As Integer, _ ByVal rksv_BelegId As Integer, _ ByVal rksv_BelegIdStorno As Integer, _ ByVal rksv_jws As String, _ ByVal rksv_qr As String, _ ByVal rksv_umsatz As Double, _ ByVal rksv_aktiv As Boolean, _ ByVal Beleg_TYP As String, _ ByVal Auftraggeber_KdAuftragsnummer As String, _ ByVal Auftraggeber_Provision As Decimal, _ ByVal LKW_Id As Integer, _ ByVal LKW_Beleg As Boolean, _ ByVal Benutzer_LG As Integer) As tblEABelegnummerRow Dim rowtblEABelegnummerRow As tblEABelegnummerRow = CType(Me.NewRow,tblEABelegnummerRow) Dim columnValuesArray() As Object = New Object() {Mandant, Niederlassung, Benutzer, BelegDat, BelegNr, Belegart, FilialenNr, AbfertigungsNr, Ordnungsbegriff, KundenNr, Name1, Name2, Straße, LandKz, PLZ, Ort, UstIdKz, UstIdNr, Frachtführer, FrachtführerKundenNr, LKW_Kennzeichen, Fahrer, Passnummer, PreislistenNr, Steuerschlüssel, DruckDatumUhrzeit, storniert, Stornogrund, gebucht, gebuchtStorno, SgutKompl, EABNr_Zeitstempel, upsize_ts, rksv_id, rksv_BelegId, rksv_BelegIdStorno, rksv_jws, rksv_qr, rksv_umsatz, rksv_aktiv, Beleg_TYP, Auftraggeber_KdAuftragsnummer, Auftraggeber_Provision, LKW_Id, LKW_Beleg, Benutzer_LG} rowtblEABelegnummerRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblEABelegnummerRow) Return rowtblEABelegnummerRow End Function _ Public Function FindByMandantNiederlassungBenutzerBelegDatBelegNr(ByVal Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal BelegDat As Date, ByVal BelegNr As Integer) As tblEABelegnummerRow Return CType(Me.Rows.Find(New Object() {Mandant, Niederlassung, Benutzer, BelegDat, BelegNr}),tblEABelegnummerRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblEABelegnummerDataTable = CType(MyBase.Clone,tblEABelegnummerDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblEABelegnummerDataTable() End Function _ Friend Sub InitVars() Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnBenutzer = MyBase.Columns("Benutzer") Me.columnBelegDat = MyBase.Columns("BelegDat") Me.columnBelegNr = MyBase.Columns("BelegNr") Me.columnBelegart = MyBase.Columns("Belegart") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnOrdnungsbegriff = MyBase.Columns("Ordnungsbegriff") Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnName1 = MyBase.Columns("Name1") Me.columnName2 = MyBase.Columns("Name2") Me.columnStraße = MyBase.Columns("Straße") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnPLZ = MyBase.Columns("PLZ") Me.columnOrt = MyBase.Columns("Ort") Me.columnUstIdKz = MyBase.Columns("UstIdKz") Me.columnUstIdNr = MyBase.Columns("UstIdNr") Me.columnFrachtführer = MyBase.Columns("Frachtführer") Me.columnFrachtführerKundenNr = MyBase.Columns("FrachtführerKundenNr") Me.columnLKW_Kennzeichen = MyBase.Columns("LKW Kennzeichen") Me.columnFahrer = MyBase.Columns("Fahrer") Me.columnPassnummer = MyBase.Columns("Passnummer") Me.columnPreislistenNr = MyBase.Columns("PreislistenNr") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me.columnDruckDatumUhrzeit = MyBase.Columns("DruckDatumUhrzeit") Me.columnstorniert = MyBase.Columns("storniert") Me.columnStornogrund = MyBase.Columns("Stornogrund") Me.columngebucht = MyBase.Columns("gebucht") Me.columngebuchtStorno = MyBase.Columns("gebuchtStorno") Me.columnSgutKompl = MyBase.Columns("SgutKompl") Me.columnEABNr_Zeitstempel = MyBase.Columns("EABNr_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnrksv_id = MyBase.Columns("rksv_id") Me.columnrksv_BelegId = MyBase.Columns("rksv_BelegId") Me.columnrksv_BelegIdStorno = MyBase.Columns("rksv_BelegIdStorno") Me.columnrksv_jws = MyBase.Columns("rksv_jws") Me.columnrksv_qr = MyBase.Columns("rksv_qr") Me.columnrksv_umsatz = MyBase.Columns("rksv_umsatz") Me.columnrksv_aktiv = MyBase.Columns("rksv_aktiv") Me.columnBeleg_TYP = MyBase.Columns("Beleg_TYP") Me.columnAuftraggeber_KdAuftragsnummer = MyBase.Columns("Auftraggeber_KdAuftragsnummer") Me.columnAuftraggeber_Provision = MyBase.Columns("Auftraggeber_Provision") Me.columnLKW_Id = MyBase.Columns("LKW_Id") Me.columnLKW_Beleg = MyBase.Columns("LKW_Beleg") Me.columnBenutzer_LG = MyBase.Columns("Benutzer_LG") End Sub _ Private Sub InitClass() Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnBenutzer = New Global.System.Data.DataColumn("Benutzer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzer) Me.columnBelegDat = New Global.System.Data.DataColumn("BelegDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegDat) Me.columnBelegNr = New Global.System.Data.DataColumn("BelegNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegNr) Me.columnBelegart = New Global.System.Data.DataColumn("Belegart", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegart) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnOrdnungsbegriff = New Global.System.Data.DataColumn("Ordnungsbegriff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrdnungsbegriff) Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnName1 = New Global.System.Data.DataColumn("Name1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName1) Me.columnName2 = New Global.System.Data.DataColumn("Name2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName2) Me.columnStraße = New Global.System.Data.DataColumn("Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStraße) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLZ) Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrt) Me.columnUstIdKz = New Global.System.Data.DataColumn("UstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdKz) Me.columnUstIdNr = New Global.System.Data.DataColumn("UstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdNr) Me.columnFrachtführer = New Global.System.Data.DataColumn("Frachtführer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFrachtführer) Me.columnFrachtführerKundenNr = New Global.System.Data.DataColumn("FrachtführerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFrachtführerKundenNr) Me.columnLKW_Kennzeichen = New Global.System.Data.DataColumn("LKW Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLKW_Kennzeichen) Me.columnFahrer = New Global.System.Data.DataColumn("Fahrer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFahrer) Me.columnPassnummer = New Global.System.Data.DataColumn("Passnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPassnummer) Me.columnPreislistenNr = New Global.System.Data.DataColumn("PreislistenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislistenNr) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me.columnDruckDatumUhrzeit = New Global.System.Data.DataColumn("DruckDatumUhrzeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDruckDatumUhrzeit) Me.columnstorniert = New Global.System.Data.DataColumn("storniert", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstorniert) Me.columnStornogrund = New Global.System.Data.DataColumn("Stornogrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStornogrund) Me.columngebucht = New Global.System.Data.DataColumn("gebucht", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngebucht) Me.columngebuchtStorno = New Global.System.Data.DataColumn("gebuchtStorno", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngebuchtStorno) Me.columnSgutKompl = New Global.System.Data.DataColumn("SgutKompl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSgutKompl) Me.columnEABNr_Zeitstempel = New Global.System.Data.DataColumn("EABNr_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEABNr_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnrksv_id = New Global.System.Data.DataColumn("rksv_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_id) Me.columnrksv_BelegId = New Global.System.Data.DataColumn("rksv_BelegId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_BelegId) Me.columnrksv_BelegIdStorno = New Global.System.Data.DataColumn("rksv_BelegIdStorno", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_BelegIdStorno) Me.columnrksv_jws = New Global.System.Data.DataColumn("rksv_jws", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_jws) Me.columnrksv_qr = New Global.System.Data.DataColumn("rksv_qr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_qr) Me.columnrksv_umsatz = New Global.System.Data.DataColumn("rksv_umsatz", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_umsatz) Me.columnrksv_aktiv = New Global.System.Data.DataColumn("rksv_aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_aktiv) Me.columnBeleg_TYP = New Global.System.Data.DataColumn("Beleg_TYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBeleg_TYP) Me.columnAuftraggeber_KdAuftragsnummer = New Global.System.Data.DataColumn("Auftraggeber_KdAuftragsnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAuftraggeber_KdAuftragsnummer) Me.columnAuftraggeber_Provision = New Global.System.Data.DataColumn("Auftraggeber_Provision", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAuftraggeber_Provision) Me.columnLKW_Id = New Global.System.Data.DataColumn("LKW_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLKW_Id) Me.columnLKW_Beleg = New Global.System.Data.DataColumn("LKW_Beleg", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLKW_Beleg) Me.columnBenutzer_LG = New Global.System.Data.DataColumn("Benutzer_LG", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzer_LG) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMandant, Me.columnNiederlassung, Me.columnBenutzer, Me.columnBelegDat, Me.columnBelegNr}, true)) Me.columnMandant.AllowDBNull = false Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.AllowDBNull = false Me.columnNiederlassung.MaxLength = 3 Me.columnBenutzer.AllowDBNull = false Me.columnBelegDat.AllowDBNull = false Me.columnBelegNr.AllowDBNull = false Me.columnBelegart.AllowDBNull = false Me.columnOrdnungsbegriff.MaxLength = 50 Me.columnName1.MaxLength = 40 Me.columnName2.MaxLength = 40 Me.columnStraße.MaxLength = 40 Me.columnLandKz.MaxLength = 3 Me.columnPLZ.MaxLength = 7 Me.columnOrt.MaxLength = 40 Me.columnUstIdKz.MaxLength = 2 Me.columnUstIdNr.MaxLength = 12 Me.columnFrachtführer.MaxLength = 50 Me.columnLKW_Kennzeichen.MaxLength = 25 Me.columnFahrer.MaxLength = 40 Me.columnPassnummer.MaxLength = 15 Me.columnSteuerschlüssel.AllowDBNull = false Me.columnstorniert.AllowDBNull = false Me.columnStornogrund.MaxLength = 1073741823 Me.columngebucht.AllowDBNull = false Me.columngebuchtStorno.AllowDBNull = false Me.columnSgutKompl.MaxLength = 1 Me.columnupsize_ts.ReadOnly = true Me.columnrksv_jws.MaxLength = 2147483647 Me.columnrksv_qr.MaxLength = 2147483647 Me.columnrksv_aktiv.AllowDBNull = false Me.columnBeleg_TYP.AllowDBNull = false Me.columnBeleg_TYP.MaxLength = 1 Me.columnAuftraggeber_KdAuftragsnummer.MaxLength = 100 End Sub _ Public Function NewtblEABelegnummerRow() As tblEABelegnummerRow Return CType(Me.NewRow,tblEABelegnummerRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblEABelegnummerRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblEABelegnummerRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblEABelegnummerRowChangedEvent) Is Nothing) Then RaiseEvent tblEABelegnummerRowChanged(Me, New tblEABelegnummerRowChangeEvent(CType(e.Row,tblEABelegnummerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblEABelegnummerRowChangingEvent) Is Nothing) Then RaiseEvent tblEABelegnummerRowChanging(Me, New tblEABelegnummerRowChangeEvent(CType(e.Row,tblEABelegnummerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblEABelegnummerRowDeletedEvent) Is Nothing) Then RaiseEvent tblEABelegnummerRowDeleted(Me, New tblEABelegnummerRowChangeEvent(CType(e.Row,tblEABelegnummerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblEABelegnummerRowDeletingEvent) Is Nothing) Then RaiseEvent tblEABelegnummerRowDeleting(Me, New tblEABelegnummerRowChangeEvent(CType(e.Row,tblEABelegnummerRow), e.Action)) End If End Sub _ Public Sub RemovetblEABelegnummerRow(ByVal row As tblEABelegnummerRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblEABelegnummerDataTable" 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 tblEABelegpositionDataTable Inherits Global.System.Data.TypedTableBase(Of tblEABelegpositionRow) Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnBenutzer As Global.System.Data.DataColumn Private columnBelegDat As Global.System.Data.DataColumn Private columnBelegNr As Global.System.Data.DataColumn Private columnPreislistenPos As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnLeistungsbeschreibung As Global.System.Data.DataColumn Private columnAbfertigungsart As Global.System.Data.DataColumn Private columnPreislistenNr As Global.System.Data.DataColumn Private columnPreistabellenNr As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnTW1 As Global.System.Data.DataColumn Private columnTW2 As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn Private columnAnzahlmultiplikator As Global.System.Data.DataColumn Private columnBetrag As Global.System.Data.DataColumn Private columnPreisbindung As Global.System.Data.DataColumn Private columnEABPo_Zeitstempel As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblEABelegposition" 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 MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property BenutzerColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzer End Get End Property _ Public ReadOnly Property BelegDatColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegDat End Get End Property _ Public ReadOnly Property BelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegNr End Get End Property _ Public ReadOnly Property PreislistenPosColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislistenPos End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property LeistungsbeschreibungColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsbeschreibung End Get End Property _ Public ReadOnly Property AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsart End Get End Property _ Public ReadOnly Property PreislistenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislistenNr End Get End Property _ Public ReadOnly Property PreistabellenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPreistabellenNr End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property TW1Column() As Global.System.Data.DataColumn Get Return Me.columnTW1 End Get End Property _ Public ReadOnly Property TW2Column() As Global.System.Data.DataColumn Get Return Me.columnTW2 End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl End Get End Property _ Public ReadOnly Property AnzahlmultiplikatorColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlmultiplikator End Get End Property _ Public ReadOnly Property BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag End Get End Property _ Public ReadOnly Property PreisbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisbindung End Get End Property _ Public ReadOnly Property EABPo_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnEABPo_Zeitstempel End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblEABelegpositionRow Get Return CType(Me.Rows(index),tblEABelegpositionRow) End Get End Property _ Public Event tblEABelegpositionRowChanging As tblEABelegpositionRowChangeEventHandler _ Public Event tblEABelegpositionRowChanged As tblEABelegpositionRowChangeEventHandler _ Public Event tblEABelegpositionRowDeleting As tblEABelegpositionRowChangeEventHandler _ Public Event tblEABelegpositionRowDeleted As tblEABelegpositionRowChangeEventHandler _ Public Overloads Sub AddtblEABelegpositionRow(ByVal row As tblEABelegpositionRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblEABelegpositionRow( _ ByVal Mandant As String, _ ByVal Niederlassung As String, _ ByVal Benutzer As Integer, _ ByVal BelegDat As Date, _ ByVal BelegNr As Integer, _ ByVal PreislistenPos As Short, _ ByVal LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal Leistungsbeschreibung As String, _ ByVal Abfertigungsart As Short, _ ByVal PreislistenNr As Short, _ ByVal PreistabellenNr As Short, _ ByVal Preis As Decimal, _ ByVal TW1 As Short, _ ByVal TW2 As Short, _ ByVal Anzahl As Short, _ ByVal Anzahlmultiplikator As Short, _ ByVal Betrag As Decimal, _ ByVal Preisbindung As Boolean, _ ByVal EABPo_Zeitstempel As Date, _ ByVal FilialenNr As Integer, _ ByVal AbfertigungsNr As Integer, _ ByVal upsize_ts() As Byte) As tblEABelegpositionRow Dim rowtblEABelegpositionRow As tblEABelegpositionRow = CType(Me.NewRow,tblEABelegpositionRow) Dim columnValuesArray() As Object = New Object() {Mandant, Niederlassung, Benutzer, BelegDat, BelegNr, PreislistenPos, LeistungsNr, LeistungsBez, Leistungsbeschreibung, Abfertigungsart, PreislistenNr, PreistabellenNr, Preis, TW1, TW2, Anzahl, Anzahlmultiplikator, Betrag, Preisbindung, EABPo_Zeitstempel, FilialenNr, AbfertigungsNr, upsize_ts} rowtblEABelegpositionRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblEABelegpositionRow) Return rowtblEABelegpositionRow End Function _ Public Function FindByMandantNiederlassungBenutzerBelegDatBelegNrPreislistenPosLeistungsNrLeistungsBezLeistungsbeschreibungFilialenNrAbfertigungsNr(ByVal Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal BelegDat As Date, ByVal BelegNr As Integer, ByVal PreislistenPos As Short, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Leistungsbeschreibung As String, ByVal FilialenNr As Integer, ByVal AbfertigungsNr As Integer) As tblEABelegpositionRow Return CType(Me.Rows.Find(New Object() {Mandant, Niederlassung, Benutzer, BelegDat, BelegNr, PreislistenPos, LeistungsNr, LeistungsBez, Leistungsbeschreibung, FilialenNr, AbfertigungsNr}),tblEABelegpositionRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblEABelegpositionDataTable = CType(MyBase.Clone,tblEABelegpositionDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblEABelegpositionDataTable() End Function _ Friend Sub InitVars() Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnBenutzer = MyBase.Columns("Benutzer") Me.columnBelegDat = MyBase.Columns("BelegDat") Me.columnBelegNr = MyBase.Columns("BelegNr") Me.columnPreislistenPos = MyBase.Columns("PreislistenPos") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnLeistungsbeschreibung = MyBase.Columns("Leistungsbeschreibung") Me.columnAbfertigungsart = MyBase.Columns("Abfertigungsart") Me.columnPreislistenNr = MyBase.Columns("PreislistenNr") Me.columnPreistabellenNr = MyBase.Columns("PreistabellenNr") Me.columnPreis = MyBase.Columns("Preis") Me.columnTW1 = MyBase.Columns("TW1") Me.columnTW2 = MyBase.Columns("TW2") Me.columnAnzahl = MyBase.Columns("Anzahl") Me.columnAnzahlmultiplikator = MyBase.Columns("Anzahlmultiplikator") Me.columnBetrag = MyBase.Columns("Betrag") Me.columnPreisbindung = MyBase.Columns("Preisbindung") Me.columnEABPo_Zeitstempel = MyBase.Columns("EABPo_Zeitstempel") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnBenutzer = New Global.System.Data.DataColumn("Benutzer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzer) Me.columnBelegDat = New Global.System.Data.DataColumn("BelegDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegDat) Me.columnBelegNr = New Global.System.Data.DataColumn("BelegNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegNr) Me.columnPreislistenPos = New Global.System.Data.DataColumn("PreislistenPos", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislistenPos) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnLeistungsbeschreibung = New Global.System.Data.DataColumn("Leistungsbeschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsbeschreibung) Me.columnAbfertigungsart = New Global.System.Data.DataColumn("Abfertigungsart", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsart) Me.columnPreislistenNr = New Global.System.Data.DataColumn("PreislistenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislistenNr) Me.columnPreistabellenNr = New Global.System.Data.DataColumn("PreistabellenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreistabellenNr) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnTW1 = New Global.System.Data.DataColumn("TW1", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTW1) Me.columnTW2 = New Global.System.Data.DataColumn("TW2", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTW2) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) Me.columnAnzahlmultiplikator = New Global.System.Data.DataColumn("Anzahlmultiplikator", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlmultiplikator) Me.columnBetrag = New Global.System.Data.DataColumn("Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag) Me.columnPreisbindung = New Global.System.Data.DataColumn("Preisbindung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisbindung) Me.columnEABPo_Zeitstempel = New Global.System.Data.DataColumn("EABPo_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEABPo_Zeitstempel) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMandant, Me.columnNiederlassung, Me.columnBenutzer, Me.columnBelegDat, Me.columnBelegNr, Me.columnPreislistenPos, Me.columnLeistungsNr, Me.columnLeistungsBez, Me.columnLeistungsbeschreibung, Me.columnFilialenNr, Me.columnAbfertigungsNr}, true)) Me.columnMandant.AllowDBNull = false Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.AllowDBNull = false Me.columnNiederlassung.MaxLength = 3 Me.columnBenutzer.AllowDBNull = false Me.columnBelegDat.AllowDBNull = false Me.columnBelegNr.AllowDBNull = false Me.columnPreislistenPos.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnLeistungsbeschreibung.AllowDBNull = false Me.columnLeistungsbeschreibung.MaxLength = 100 Me.columnAnzahlmultiplikator.AllowDBNull = false Me.columnPreisbindung.AllowDBNull = false Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsNr.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblEABelegpositionRow() As tblEABelegpositionRow Return CType(Me.NewRow,tblEABelegpositionRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblEABelegpositionRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblEABelegpositionRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblEABelegpositionRowChangedEvent) Is Nothing) Then RaiseEvent tblEABelegpositionRowChanged(Me, New tblEABelegpositionRowChangeEvent(CType(e.Row,tblEABelegpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblEABelegpositionRowChangingEvent) Is Nothing) Then RaiseEvent tblEABelegpositionRowChanging(Me, New tblEABelegpositionRowChangeEvent(CType(e.Row,tblEABelegpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblEABelegpositionRowDeletedEvent) Is Nothing) Then RaiseEvent tblEABelegpositionRowDeleted(Me, New tblEABelegpositionRowChangeEvent(CType(e.Row,tblEABelegpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblEABelegpositionRowDeletingEvent) Is Nothing) Then RaiseEvent tblEABelegpositionRowDeleting(Me, New tblEABelegpositionRowChangeEvent(CType(e.Row,tblEABelegpositionRow), e.Action)) End If End Sub _ Public Sub RemovetblEABelegpositionRow(ByVal row As tblEABelegpositionRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblEABelegpositionDataTable" 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 tblEmailBenachrichtigungDataTable Inherits Global.System.Data.TypedTableBase(Of tblEmailBenachrichtigungRow) Private columneb_KundenNr As Global.System.Data.DataColumn Private columneb_ebartId As Global.System.Data.DataColumn Private columneb_EMail As Global.System.Data.DataColumn Private columneb_cc As Global.System.Data.DataColumn Private columneb_bcc As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblEmailBenachrichtigung" 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 eb_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columneb_KundenNr End Get End Property _ Public ReadOnly Property eb_ebartIdColumn() As Global.System.Data.DataColumn Get Return Me.columneb_ebartId End Get End Property _ Public ReadOnly Property eb_EMailColumn() As Global.System.Data.DataColumn Get Return Me.columneb_EMail End Get End Property _ Public ReadOnly Property eb_ccColumn() As Global.System.Data.DataColumn Get Return Me.columneb_cc End Get End Property _ Public ReadOnly Property eb_bccColumn() As Global.System.Data.DataColumn Get Return Me.columneb_bcc 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 tblEmailBenachrichtigungRow Get Return CType(Me.Rows(index),tblEmailBenachrichtigungRow) End Get End Property _ Public Event tblEmailBenachrichtigungRowChanging As tblEmailBenachrichtigungRowChangeEventHandler _ Public Event tblEmailBenachrichtigungRowChanged As tblEmailBenachrichtigungRowChangeEventHandler _ Public Event tblEmailBenachrichtigungRowDeleting As tblEmailBenachrichtigungRowChangeEventHandler _ Public Event tblEmailBenachrichtigungRowDeleted As tblEmailBenachrichtigungRowChangeEventHandler _ Public Overloads Sub AddtblEmailBenachrichtigungRow(ByVal row As tblEmailBenachrichtigungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblEmailBenachrichtigungRow(ByVal eb_KundenNr As Integer, ByVal eb_ebartId As Integer, ByVal eb_EMail As String, ByVal eb_cc As Boolean, ByVal eb_bcc As Boolean) As tblEmailBenachrichtigungRow Dim rowtblEmailBenachrichtigungRow As tblEmailBenachrichtigungRow = CType(Me.NewRow,tblEmailBenachrichtigungRow) Dim columnValuesArray() As Object = New Object() {eb_KundenNr, eb_ebartId, eb_EMail, eb_cc, eb_bcc} rowtblEmailBenachrichtigungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblEmailBenachrichtigungRow) Return rowtblEmailBenachrichtigungRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblEmailBenachrichtigungDataTable = CType(MyBase.Clone,tblEmailBenachrichtigungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblEmailBenachrichtigungDataTable() End Function _ Friend Sub InitVars() Me.columneb_KundenNr = MyBase.Columns("eb_KundenNr") Me.columneb_ebartId = MyBase.Columns("eb_ebartId") Me.columneb_EMail = MyBase.Columns("eb_EMail") Me.columneb_cc = MyBase.Columns("eb_cc") Me.columneb_bcc = MyBase.Columns("eb_bcc") End Sub _ Private Sub InitClass() Me.columneb_KundenNr = New Global.System.Data.DataColumn("eb_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneb_KundenNr) Me.columneb_ebartId = New Global.System.Data.DataColumn("eb_ebartId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneb_ebartId) Me.columneb_EMail = New Global.System.Data.DataColumn("eb_EMail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneb_EMail) Me.columneb_cc = New Global.System.Data.DataColumn("eb_cc", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneb_cc) Me.columneb_bcc = New Global.System.Data.DataColumn("eb_bcc", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneb_bcc) Me.columneb_KundenNr.AllowDBNull = false Me.columneb_ebartId.AllowDBNull = false Me.columneb_EMail.AllowDBNull = false Me.columneb_EMail.MaxLength = 256 Me.columneb_cc.AllowDBNull = false Me.columneb_bcc.AllowDBNull = false End Sub _ Public Function NewtblEmailBenachrichtigungRow() As tblEmailBenachrichtigungRow Return CType(Me.NewRow,tblEmailBenachrichtigungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblEmailBenachrichtigungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblEmailBenachrichtigungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblEmailBenachrichtigungRowChangedEvent) Is Nothing) Then RaiseEvent tblEmailBenachrichtigungRowChanged(Me, New tblEmailBenachrichtigungRowChangeEvent(CType(e.Row,tblEmailBenachrichtigungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblEmailBenachrichtigungRowChangingEvent) Is Nothing) Then RaiseEvent tblEmailBenachrichtigungRowChanging(Me, New tblEmailBenachrichtigungRowChangeEvent(CType(e.Row,tblEmailBenachrichtigungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblEmailBenachrichtigungRowDeletedEvent) Is Nothing) Then RaiseEvent tblEmailBenachrichtigungRowDeleted(Me, New tblEmailBenachrichtigungRowChangeEvent(CType(e.Row,tblEmailBenachrichtigungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblEmailBenachrichtigungRowDeletingEvent) Is Nothing) Then RaiseEvent tblEmailBenachrichtigungRowDeleting(Me, New tblEmailBenachrichtigungRowChangeEvent(CType(e.Row,tblEmailBenachrichtigungRow), e.Action)) End If End Sub _ Public Sub RemovetblEmailBenachrichtigungRow(ByVal row As tblEmailBenachrichtigungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblEmailBenachrichtigungDataTable" 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 tblEmailBenachrichtigungArtenDataTable Inherits Global.System.Data.TypedTableBase(Of tblEmailBenachrichtigungArtenRow) Private columnebart_id As Global.System.Data.DataColumn Private columnebart_bezeichnung As Global.System.Data.DataColumn Private columnebart_betreff As Global.System.Data.DataColumn Private columnebart_text As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblEmailBenachrichtigungArten" 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 ebart_idColumn() As Global.System.Data.DataColumn Get Return Me.columnebart_id End Get End Property _ Public ReadOnly Property ebart_bezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnebart_bezeichnung End Get End Property _ Public ReadOnly Property ebart_betreffColumn() As Global.System.Data.DataColumn Get Return Me.columnebart_betreff End Get End Property _ Public ReadOnly Property ebart_textColumn() As Global.System.Data.DataColumn Get Return Me.columnebart_text 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 tblEmailBenachrichtigungArtenRow Get Return CType(Me.Rows(index),tblEmailBenachrichtigungArtenRow) End Get End Property _ Public Event tblEmailBenachrichtigungArtenRowChanging As tblEmailBenachrichtigungArtenRowChangeEventHandler _ Public Event tblEmailBenachrichtigungArtenRowChanged As tblEmailBenachrichtigungArtenRowChangeEventHandler _ Public Event tblEmailBenachrichtigungArtenRowDeleting As tblEmailBenachrichtigungArtenRowChangeEventHandler _ Public Event tblEmailBenachrichtigungArtenRowDeleted As tblEmailBenachrichtigungArtenRowChangeEventHandler _ Public Overloads Sub AddtblEmailBenachrichtigungArtenRow(ByVal row As tblEmailBenachrichtigungArtenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblEmailBenachrichtigungArtenRow(ByVal ebart_bezeichnung As String, ByVal ebart_betreff As String, ByVal ebart_text As String) As tblEmailBenachrichtigungArtenRow Dim rowtblEmailBenachrichtigungArtenRow As tblEmailBenachrichtigungArtenRow = CType(Me.NewRow,tblEmailBenachrichtigungArtenRow) Dim columnValuesArray() As Object = New Object() {Nothing, ebart_bezeichnung, ebart_betreff, ebart_text} rowtblEmailBenachrichtigungArtenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblEmailBenachrichtigungArtenRow) Return rowtblEmailBenachrichtigungArtenRow End Function _ Public Function FindByebart_id(ByVal ebart_id As Integer) As tblEmailBenachrichtigungArtenRow Return CType(Me.Rows.Find(New Object() {ebart_id}),tblEmailBenachrichtigungArtenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblEmailBenachrichtigungArtenDataTable = CType(MyBase.Clone,tblEmailBenachrichtigungArtenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblEmailBenachrichtigungArtenDataTable() End Function _ Friend Sub InitVars() Me.columnebart_id = MyBase.Columns("ebart_id") Me.columnebart_bezeichnung = MyBase.Columns("ebart_bezeichnung") Me.columnebart_betreff = MyBase.Columns("ebart_betreff") Me.columnebart_text = MyBase.Columns("ebart_text") End Sub _ Private Sub InitClass() Me.columnebart_id = New Global.System.Data.DataColumn("ebart_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnebart_id) Me.columnebart_bezeichnung = New Global.System.Data.DataColumn("ebart_bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnebart_bezeichnung) Me.columnebart_betreff = New Global.System.Data.DataColumn("ebart_betreff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnebart_betreff) Me.columnebart_text = New Global.System.Data.DataColumn("ebart_text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnebart_text) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnebart_id}, true)) Me.columnebart_id.AutoIncrement = true Me.columnebart_id.AutoIncrementSeed = -1 Me.columnebart_id.AutoIncrementStep = -1 Me.columnebart_id.AllowDBNull = false Me.columnebart_id.ReadOnly = true Me.columnebart_id.Unique = true Me.columnebart_bezeichnung.AllowDBNull = false Me.columnebart_bezeichnung.MaxLength = 50 Me.columnebart_betreff.MaxLength = 500 Me.columnebart_text.MaxLength = 2147483647 End Sub _ Public Function NewtblEmailBenachrichtigungArtenRow() As tblEmailBenachrichtigungArtenRow Return CType(Me.NewRow,tblEmailBenachrichtigungArtenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblEmailBenachrichtigungArtenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblEmailBenachrichtigungArtenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblEmailBenachrichtigungArtenRowChangedEvent) Is Nothing) Then RaiseEvent tblEmailBenachrichtigungArtenRowChanged(Me, New tblEmailBenachrichtigungArtenRowChangeEvent(CType(e.Row,tblEmailBenachrichtigungArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblEmailBenachrichtigungArtenRowChangingEvent) Is Nothing) Then RaiseEvent tblEmailBenachrichtigungArtenRowChanging(Me, New tblEmailBenachrichtigungArtenRowChangeEvent(CType(e.Row,tblEmailBenachrichtigungArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblEmailBenachrichtigungArtenRowDeletedEvent) Is Nothing) Then RaiseEvent tblEmailBenachrichtigungArtenRowDeleted(Me, New tblEmailBenachrichtigungArtenRowChangeEvent(CType(e.Row,tblEmailBenachrichtigungArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblEmailBenachrichtigungArtenRowDeletingEvent) Is Nothing) Then RaiseEvent tblEmailBenachrichtigungArtenRowDeleting(Me, New tblEmailBenachrichtigungArtenRowChangeEvent(CType(e.Row,tblEmailBenachrichtigungArtenRow), e.Action)) End If End Sub _ Public Sub RemovetblEmailBenachrichtigungArtenRow(ByVal row As tblEmailBenachrichtigungArtenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblEmailBenachrichtigungArtenDataTable" 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 tblEORIPruefungDataTable Inherits Global.System.Data.TypedTableBase(Of tblEORIPruefungRow) Private columneori_id As Global.System.Data.DataColumn Private columneori_KdNr As Global.System.Data.DataColumn Private columneori_valid As Global.System.Data.DataColumn Private columneori_Datum As Global.System.Data.DataColumn Private columneori_Maid As Global.System.Data.DataColumn Private columneori_SendungsID As Global.System.Data.DataColumn Private columneori_AvisoID As Global.System.Data.DataColumn Private columneori_firma As Global.System.Data.DataColumn Private columneori_Sachbearbeiter As Global.System.Data.DataColumn Private columneori_sessionID As Global.System.Data.DataColumn Private columneori_Nr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblEORIPruefung" 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 eori_idColumn() As Global.System.Data.DataColumn Get Return Me.columneori_id End Get End Property _ Public ReadOnly Property eori_KdNrColumn() As Global.System.Data.DataColumn Get Return Me.columneori_KdNr End Get End Property _ Public ReadOnly Property eori_validColumn() As Global.System.Data.DataColumn Get Return Me.columneori_valid End Get End Property _ Public ReadOnly Property eori_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columneori_Datum End Get End Property _ Public ReadOnly Property eori_MaidColumn() As Global.System.Data.DataColumn Get Return Me.columneori_Maid End Get End Property _ Public ReadOnly Property eori_SendungsIDColumn() As Global.System.Data.DataColumn Get Return Me.columneori_SendungsID End Get End Property _ Public ReadOnly Property eori_AvisoIDColumn() As Global.System.Data.DataColumn Get Return Me.columneori_AvisoID End Get End Property _ Public ReadOnly Property eori_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columneori_firma End Get End Property _ Public ReadOnly Property eori_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columneori_Sachbearbeiter End Get End Property _ Public ReadOnly Property eori_sessionIDColumn() As Global.System.Data.DataColumn Get Return Me.columneori_sessionID End Get End Property _ Public ReadOnly Property eori_NrColumn() As Global.System.Data.DataColumn Get Return Me.columneori_Nr 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 tblEORIPruefungRow Get Return CType(Me.Rows(index),tblEORIPruefungRow) End Get End Property _ Public Event tblEORIPruefungRowChanging As tblEORIPruefungRowChangeEventHandler _ Public Event tblEORIPruefungRowChanged As tblEORIPruefungRowChangeEventHandler _ Public Event tblEORIPruefungRowDeleting As tblEORIPruefungRowChangeEventHandler _ Public Event tblEORIPruefungRowDeleted As tblEORIPruefungRowChangeEventHandler _ Public Overloads Sub AddtblEORIPruefungRow(ByVal row As tblEORIPruefungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblEORIPruefungRow(ByVal eori_KdNr As Integer, ByVal eori_valid As Boolean, ByVal eori_Datum As Date, ByVal eori_Maid As Integer, ByVal eori_SendungsID As Integer, ByVal eori_AvisoID As Integer, ByVal eori_firma As String, ByVal eori_Sachbearbeiter As String, ByVal eori_sessionID As String, ByVal eori_Nr As String) As tblEORIPruefungRow Dim rowtblEORIPruefungRow As tblEORIPruefungRow = CType(Me.NewRow,tblEORIPruefungRow) Dim columnValuesArray() As Object = New Object() {Nothing, eori_KdNr, eori_valid, eori_Datum, eori_Maid, eori_SendungsID, eori_AvisoID, eori_firma, eori_Sachbearbeiter, eori_sessionID, eori_Nr} rowtblEORIPruefungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblEORIPruefungRow) Return rowtblEORIPruefungRow End Function _ Public Function FindByeori_id(ByVal eori_id As Integer) As tblEORIPruefungRow Return CType(Me.Rows.Find(New Object() {eori_id}),tblEORIPruefungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblEORIPruefungDataTable = CType(MyBase.Clone,tblEORIPruefungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblEORIPruefungDataTable() End Function _ Friend Sub InitVars() Me.columneori_id = MyBase.Columns("eori_id") Me.columneori_KdNr = MyBase.Columns("eori_KdNr") Me.columneori_valid = MyBase.Columns("eori_valid") Me.columneori_Datum = MyBase.Columns("eori_Datum") Me.columneori_Maid = MyBase.Columns("eori_Maid") Me.columneori_SendungsID = MyBase.Columns("eori_SendungsID") Me.columneori_AvisoID = MyBase.Columns("eori_AvisoID") Me.columneori_firma = MyBase.Columns("eori_firma") Me.columneori_Sachbearbeiter = MyBase.Columns("eori_Sachbearbeiter") Me.columneori_sessionID = MyBase.Columns("eori_sessionID") Me.columneori_Nr = MyBase.Columns("eori_Nr") End Sub _ Private Sub InitClass() Me.columneori_id = New Global.System.Data.DataColumn("eori_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_id) Me.columneori_KdNr = New Global.System.Data.DataColumn("eori_KdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_KdNr) Me.columneori_valid = New Global.System.Data.DataColumn("eori_valid", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_valid) Me.columneori_Datum = New Global.System.Data.DataColumn("eori_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_Datum) Me.columneori_Maid = New Global.System.Data.DataColumn("eori_Maid", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_Maid) Me.columneori_SendungsID = New Global.System.Data.DataColumn("eori_SendungsID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_SendungsID) Me.columneori_AvisoID = New Global.System.Data.DataColumn("eori_AvisoID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_AvisoID) Me.columneori_firma = New Global.System.Data.DataColumn("eori_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_firma) Me.columneori_Sachbearbeiter = New Global.System.Data.DataColumn("eori_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_Sachbearbeiter) Me.columneori_sessionID = New Global.System.Data.DataColumn("eori_sessionID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_sessionID) Me.columneori_Nr = New Global.System.Data.DataColumn("eori_Nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_Nr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columneori_id}, true)) Me.columneori_id.AutoIncrement = true Me.columneori_id.AutoIncrementSeed = -1 Me.columneori_id.AutoIncrementStep = -1 Me.columneori_id.AllowDBNull = false Me.columneori_id.ReadOnly = true Me.columneori_id.Unique = true Me.columneori_KdNr.AllowDBNull = false Me.columneori_valid.AllowDBNull = false Me.columneori_Datum.AllowDBNull = false Me.columneori_Maid.AllowDBNull = false Me.columneori_firma.MaxLength = 2147483647 Me.columneori_Sachbearbeiter.MaxLength = 2147483647 Me.columneori_sessionID.MaxLength = 2147483647 Me.columneori_Nr.MaxLength = 20 End Sub _ Public Function NewtblEORIPruefungRow() As tblEORIPruefungRow Return CType(Me.NewRow,tblEORIPruefungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblEORIPruefungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblEORIPruefungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblEORIPruefungRowChangedEvent) Is Nothing) Then RaiseEvent tblEORIPruefungRowChanged(Me, New tblEORIPruefungRowChangeEvent(CType(e.Row,tblEORIPruefungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblEORIPruefungRowChangingEvent) Is Nothing) Then RaiseEvent tblEORIPruefungRowChanging(Me, New tblEORIPruefungRowChangeEvent(CType(e.Row,tblEORIPruefungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblEORIPruefungRowDeletedEvent) Is Nothing) Then RaiseEvent tblEORIPruefungRowDeleted(Me, New tblEORIPruefungRowChangeEvent(CType(e.Row,tblEORIPruefungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblEORIPruefungRowDeletingEvent) Is Nothing) Then RaiseEvent tblEORIPruefungRowDeleting(Me, New tblEORIPruefungRowChangeEvent(CType(e.Row,tblEORIPruefungRow), e.Action)) End If End Sub _ Public Sub RemovetblEORIPruefungRow(ByVal row As tblEORIPruefungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblEORIPruefungDataTable" 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 tblEZB_WaehrungskurseDataTable Inherits Global.System.Data.TypedTableBase(Of tblEZB_WaehrungskurseRow) Private columnezb_waehrungscode As Global.System.Data.DataColumn Private columnezb_datum As Global.System.Data.DataColumn Private columnezb_waehrungsschluessel As Global.System.Data.DataColumn Private columnezb_kurs As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblEZB_Waehrungskurse" 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 ezb_waehrungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnezb_waehrungscode End Get End Property _ Public ReadOnly Property ezb_datumColumn() As Global.System.Data.DataColumn Get Return Me.columnezb_datum End Get End Property _ Public ReadOnly Property ezb_waehrungsschluesselColumn() As Global.System.Data.DataColumn Get Return Me.columnezb_waehrungsschluessel End Get End Property _ Public ReadOnly Property ezb_kursColumn() As Global.System.Data.DataColumn Get Return Me.columnezb_kurs 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 tblEZB_WaehrungskurseRow Get Return CType(Me.Rows(index),tblEZB_WaehrungskurseRow) End Get End Property _ Public Event tblEZB_WaehrungskurseRowChanging As tblEZB_WaehrungskurseRowChangeEventHandler _ Public Event tblEZB_WaehrungskurseRowChanged As tblEZB_WaehrungskurseRowChangeEventHandler _ Public Event tblEZB_WaehrungskurseRowDeleting As tblEZB_WaehrungskurseRowChangeEventHandler _ Public Event tblEZB_WaehrungskurseRowDeleted As tblEZB_WaehrungskurseRowChangeEventHandler _ Public Overloads Sub AddtblEZB_WaehrungskurseRow(ByVal row As tblEZB_WaehrungskurseRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblEZB_WaehrungskurseRow(ByVal ezb_waehrungscode As String, ByVal ezb_datum As Date, ByVal ezb_waehrungsschluessel As String, ByVal ezb_kurs As Double) As tblEZB_WaehrungskurseRow Dim rowtblEZB_WaehrungskurseRow As tblEZB_WaehrungskurseRow = CType(Me.NewRow,tblEZB_WaehrungskurseRow) Dim columnValuesArray() As Object = New Object() {ezb_waehrungscode, ezb_datum, ezb_waehrungsschluessel, ezb_kurs} rowtblEZB_WaehrungskurseRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblEZB_WaehrungskurseRow) Return rowtblEZB_WaehrungskurseRow End Function _ Public Function FindByezb_waehrungscodeezb_datum(ByVal ezb_waehrungscode As String, ByVal ezb_datum As Date) As tblEZB_WaehrungskurseRow Return CType(Me.Rows.Find(New Object() {ezb_waehrungscode, ezb_datum}),tblEZB_WaehrungskurseRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblEZB_WaehrungskurseDataTable = CType(MyBase.Clone,tblEZB_WaehrungskurseDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblEZB_WaehrungskurseDataTable() End Function _ Friend Sub InitVars() Me.columnezb_waehrungscode = MyBase.Columns("ezb_waehrungscode") Me.columnezb_datum = MyBase.Columns("ezb_datum") Me.columnezb_waehrungsschluessel = MyBase.Columns("ezb_waehrungsschluessel") Me.columnezb_kurs = MyBase.Columns("ezb_kurs") End Sub _ Private Sub InitClass() Me.columnezb_waehrungscode = New Global.System.Data.DataColumn("ezb_waehrungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezb_waehrungscode) Me.columnezb_datum = New Global.System.Data.DataColumn("ezb_datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezb_datum) Me.columnezb_waehrungsschluessel = New Global.System.Data.DataColumn("ezb_waehrungsschluessel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezb_waehrungsschluessel) Me.columnezb_kurs = New Global.System.Data.DataColumn("ezb_kurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezb_kurs) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezb_waehrungscode, Me.columnezb_datum}, true)) Me.columnezb_waehrungscode.AllowDBNull = false Me.columnezb_waehrungscode.MaxLength = 3 Me.columnezb_datum.AllowDBNull = false Me.columnezb_waehrungsschluessel.AllowDBNull = false Me.columnezb_waehrungsschluessel.MaxLength = 3 Me.columnezb_kurs.AllowDBNull = false End Sub _ Public Function NewtblEZB_WaehrungskurseRow() As tblEZB_WaehrungskurseRow Return CType(Me.NewRow,tblEZB_WaehrungskurseRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblEZB_WaehrungskurseRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblEZB_WaehrungskurseRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblEZB_WaehrungskurseRowChangedEvent) Is Nothing) Then RaiseEvent tblEZB_WaehrungskurseRowChanged(Me, New tblEZB_WaehrungskurseRowChangeEvent(CType(e.Row,tblEZB_WaehrungskurseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblEZB_WaehrungskurseRowChangingEvent) Is Nothing) Then RaiseEvent tblEZB_WaehrungskurseRowChanging(Me, New tblEZB_WaehrungskurseRowChangeEvent(CType(e.Row,tblEZB_WaehrungskurseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblEZB_WaehrungskurseRowDeletedEvent) Is Nothing) Then RaiseEvent tblEZB_WaehrungskurseRowDeleted(Me, New tblEZB_WaehrungskurseRowChangeEvent(CType(e.Row,tblEZB_WaehrungskurseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblEZB_WaehrungskurseRowDeletingEvent) Is Nothing) Then RaiseEvent tblEZB_WaehrungskurseRowDeleting(Me, New tblEZB_WaehrungskurseRowChangeEvent(CType(e.Row,tblEZB_WaehrungskurseRow), e.Action)) End If End Sub _ Public Sub RemovetblEZB_WaehrungskurseRow(ByVal row As tblEZB_WaehrungskurseRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblEZB_WaehrungskurseDataTable" 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 tblEZT_ImportcodenummernDataTable Inherits Global.System.Data.TypedTableBase(Of tblEZT_ImportcodenummernRow) Private columnezt_id As Global.System.Data.DataColumn Private columnezt_Land As Global.System.Data.DataColumn Private columnezt_Codenummer As Global.System.Data.DataColumn Private columnezt_BesMasseinheit As Global.System.Data.DataColumn Private columnezt_BesMasseinheit2 As Global.System.Data.DataColumn Private columnezt_Start As Global.System.Data.DataColumn Private columnezt_Ende As Global.System.Data.DataColumn Private columnezt_Sprache As Global.System.Data.DataColumn Private columnezt_Text As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblEZT_Importcodenummern" 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 ezt_idColumn() As Global.System.Data.DataColumn Get Return Me.columnezt_id End Get End Property _ Public ReadOnly Property ezt_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnezt_Land End Get End Property _ Public ReadOnly Property ezt_CodenummerColumn() As Global.System.Data.DataColumn Get Return Me.columnezt_Codenummer End Get End Property _ Public ReadOnly Property ezt_BesMasseinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnezt_BesMasseinheit End Get End Property _ Public ReadOnly Property ezt_BesMasseinheit2Column() As Global.System.Data.DataColumn Get Return Me.columnezt_BesMasseinheit2 End Get End Property _ Public ReadOnly Property ezt_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnezt_Start End Get End Property _ Public ReadOnly Property ezt_EndeColumn() As Global.System.Data.DataColumn Get Return Me.columnezt_Ende End Get End Property _ Public ReadOnly Property ezt_SpracheColumn() As Global.System.Data.DataColumn Get Return Me.columnezt_Sprache End Get End Property _ Public ReadOnly Property ezt_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnezt_Text 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 tblEZT_ImportcodenummernRow Get Return CType(Me.Rows(index),tblEZT_ImportcodenummernRow) End Get End Property _ Public Event tblEZT_ImportcodenummernRowChanging As tblEZT_ImportcodenummernRowChangeEventHandler _ Public Event tblEZT_ImportcodenummernRowChanged As tblEZT_ImportcodenummernRowChangeEventHandler _ Public Event tblEZT_ImportcodenummernRowDeleting As tblEZT_ImportcodenummernRowChangeEventHandler _ Public Event tblEZT_ImportcodenummernRowDeleted As tblEZT_ImportcodenummernRowChangeEventHandler _ Public Overloads Sub AddtblEZT_ImportcodenummernRow(ByVal row As tblEZT_ImportcodenummernRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblEZT_ImportcodenummernRow(ByVal ezt_Land As String, ByVal ezt_Codenummer As String, ByVal ezt_BesMasseinheit As String, ByVal ezt_BesMasseinheit2 As String, ByVal ezt_Start As Date, ByVal ezt_Ende As Date, ByVal ezt_Sprache As String, ByVal ezt_Text As String) As tblEZT_ImportcodenummernRow Dim rowtblEZT_ImportcodenummernRow As tblEZT_ImportcodenummernRow = CType(Me.NewRow,tblEZT_ImportcodenummernRow) Dim columnValuesArray() As Object = New Object() {Nothing, ezt_Land, ezt_Codenummer, ezt_BesMasseinheit, ezt_BesMasseinheit2, ezt_Start, ezt_Ende, ezt_Sprache, ezt_Text} rowtblEZT_ImportcodenummernRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblEZT_ImportcodenummernRow) Return rowtblEZT_ImportcodenummernRow End Function _ Public Function FindByezt_id(ByVal ezt_id As Integer) As tblEZT_ImportcodenummernRow Return CType(Me.Rows.Find(New Object() {ezt_id}),tblEZT_ImportcodenummernRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblEZT_ImportcodenummernDataTable = CType(MyBase.Clone,tblEZT_ImportcodenummernDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblEZT_ImportcodenummernDataTable() End Function _ Friend Sub InitVars() Me.columnezt_id = MyBase.Columns("ezt_id") Me.columnezt_Land = MyBase.Columns("ezt_Land") Me.columnezt_Codenummer = MyBase.Columns("ezt_Codenummer") Me.columnezt_BesMasseinheit = MyBase.Columns("ezt_BesMasseinheit") Me.columnezt_BesMasseinheit2 = MyBase.Columns("ezt_BesMasseinheit2") Me.columnezt_Start = MyBase.Columns("ezt_Start") Me.columnezt_Ende = MyBase.Columns("ezt_Ende") Me.columnezt_Sprache = MyBase.Columns("ezt_Sprache") Me.columnezt_Text = MyBase.Columns("ezt_Text") End Sub _ Private Sub InitClass() Me.columnezt_id = New Global.System.Data.DataColumn("ezt_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezt_id) Me.columnezt_Land = New Global.System.Data.DataColumn("ezt_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezt_Land) Me.columnezt_Codenummer = New Global.System.Data.DataColumn("ezt_Codenummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezt_Codenummer) Me.columnezt_BesMasseinheit = New Global.System.Data.DataColumn("ezt_BesMasseinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezt_BesMasseinheit) Me.columnezt_BesMasseinheit2 = New Global.System.Data.DataColumn("ezt_BesMasseinheit2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezt_BesMasseinheit2) Me.columnezt_Start = New Global.System.Data.DataColumn("ezt_Start", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezt_Start) Me.columnezt_Ende = New Global.System.Data.DataColumn("ezt_Ende", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezt_Ende) Me.columnezt_Sprache = New Global.System.Data.DataColumn("ezt_Sprache", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezt_Sprache) Me.columnezt_Text = New Global.System.Data.DataColumn("ezt_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnezt_Text) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnezt_id}, true)) Me.columnezt_id.AutoIncrement = true Me.columnezt_id.AutoIncrementSeed = -1 Me.columnezt_id.AutoIncrementStep = -1 Me.columnezt_id.AllowDBNull = false Me.columnezt_id.ReadOnly = true Me.columnezt_id.Unique = true Me.columnezt_Land.AllowDBNull = false Me.columnezt_Land.MaxLength = 3 Me.columnezt_Codenummer.AllowDBNull = false Me.columnezt_Codenummer.MaxLength = 11 Me.columnezt_BesMasseinheit.AllowDBNull = false Me.columnezt_BesMasseinheit.MaxLength = 3 Me.columnezt_BesMasseinheit2.AllowDBNull = false Me.columnezt_BesMasseinheit2.MaxLength = 3 Me.columnezt_Start.AllowDBNull = false Me.columnezt_Ende.AllowDBNull = false Me.columnezt_Sprache.AllowDBNull = false Me.columnezt_Sprache.MaxLength = 3 Me.columnezt_Text.AllowDBNull = false Me.columnezt_Text.MaxLength = 300 End Sub _ Public Function NewtblEZT_ImportcodenummernRow() As tblEZT_ImportcodenummernRow Return CType(Me.NewRow,tblEZT_ImportcodenummernRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblEZT_ImportcodenummernRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblEZT_ImportcodenummernRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblEZT_ImportcodenummernRowChangedEvent) Is Nothing) Then RaiseEvent tblEZT_ImportcodenummernRowChanged(Me, New tblEZT_ImportcodenummernRowChangeEvent(CType(e.Row,tblEZT_ImportcodenummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblEZT_ImportcodenummernRowChangingEvent) Is Nothing) Then RaiseEvent tblEZT_ImportcodenummernRowChanging(Me, New tblEZT_ImportcodenummernRowChangeEvent(CType(e.Row,tblEZT_ImportcodenummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblEZT_ImportcodenummernRowDeletedEvent) Is Nothing) Then RaiseEvent tblEZT_ImportcodenummernRowDeleted(Me, New tblEZT_ImportcodenummernRowChangeEvent(CType(e.Row,tblEZT_ImportcodenummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblEZT_ImportcodenummernRowDeletingEvent) Is Nothing) Then RaiseEvent tblEZT_ImportcodenummernRowDeleting(Me, New tblEZT_ImportcodenummernRowChangeEvent(CType(e.Row,tblEZT_ImportcodenummernRow), e.Action)) End If End Sub _ Public Sub RemovetblEZT_ImportcodenummernRow(ByVal row As tblEZT_ImportcodenummernRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblEZT_ImportcodenummernDataTable" 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 tblFahrerDatenDataTable Inherits Global.System.Data.TypedTableBase(Of tblFahrerDatenRow) Private columnfd_id As Global.System.Data.DataColumn Private columnfd_fraechter As Global.System.Data.DataColumn Private columnfd_lkw As Global.System.Data.DataColumn Private columnfd_fahrerName As Global.System.Data.DataColumn Private columnfd_tel As Global.System.Data.DataColumn Private columnfd_passNummer As Global.System.Data.DataColumn Private columnfd_wohnAdresse As Global.System.Data.DataColumn Private columnfd_datum As Global.System.Data.DataColumn Private columnfd_dsId As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblFahrerDaten" 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 fd_idColumn() As Global.System.Data.DataColumn Get Return Me.columnfd_id End Get End Property _ Public ReadOnly Property fd_fraechterColumn() As Global.System.Data.DataColumn Get Return Me.columnfd_fraechter End Get End Property _ Public ReadOnly Property fd_lkwColumn() As Global.System.Data.DataColumn Get Return Me.columnfd_lkw End Get End Property _ Public ReadOnly Property fd_fahrerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnfd_fahrerName End Get End Property _ Public ReadOnly Property fd_telColumn() As Global.System.Data.DataColumn Get Return Me.columnfd_tel End Get End Property _ Public ReadOnly Property fd_passNummerColumn() As Global.System.Data.DataColumn Get Return Me.columnfd_passNummer End Get End Property _ Public ReadOnly Property fd_wohnAdresseColumn() As Global.System.Data.DataColumn Get Return Me.columnfd_wohnAdresse End Get End Property _ Public ReadOnly Property fd_datumColumn() As Global.System.Data.DataColumn Get Return Me.columnfd_datum End Get End Property _ Public ReadOnly Property fd_dsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnfd_dsId 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 tblFahrerDatenRow Get Return CType(Me.Rows(index),tblFahrerDatenRow) End Get End Property _ Public Event tblFahrerDatenRowChanging As tblFahrerDatenRowChangeEventHandler _ Public Event tblFahrerDatenRowChanged As tblFahrerDatenRowChangeEventHandler _ Public Event tblFahrerDatenRowDeleting As tblFahrerDatenRowChangeEventHandler _ Public Event tblFahrerDatenRowDeleted As tblFahrerDatenRowChangeEventHandler _ Public Overloads Sub AddtblFahrerDatenRow(ByVal row As tblFahrerDatenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblFahrerDatenRow(ByVal fd_fraechter As String, ByVal fd_lkw As String, ByVal fd_fahrerName As String, ByVal fd_tel As String, ByVal fd_passNummer As String, ByVal fd_wohnAdresse As String, ByVal fd_datum As Date, ByVal fd_dsId As Integer) As tblFahrerDatenRow Dim rowtblFahrerDatenRow As tblFahrerDatenRow = CType(Me.NewRow,tblFahrerDatenRow) Dim columnValuesArray() As Object = New Object() {Nothing, fd_fraechter, fd_lkw, fd_fahrerName, fd_tel, fd_passNummer, fd_wohnAdresse, fd_datum, fd_dsId} rowtblFahrerDatenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblFahrerDatenRow) Return rowtblFahrerDatenRow End Function _ Public Function FindByfd_id(ByVal fd_id As Integer) As tblFahrerDatenRow Return CType(Me.Rows.Find(New Object() {fd_id}),tblFahrerDatenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblFahrerDatenDataTable = CType(MyBase.Clone,tblFahrerDatenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblFahrerDatenDataTable() End Function _ Friend Sub InitVars() Me.columnfd_id = MyBase.Columns("fd_id") Me.columnfd_fraechter = MyBase.Columns("fd_fraechter") Me.columnfd_lkw = MyBase.Columns("fd_lkw") Me.columnfd_fahrerName = MyBase.Columns("fd_fahrerName") Me.columnfd_tel = MyBase.Columns("fd_tel") Me.columnfd_passNummer = MyBase.Columns("fd_passNummer") Me.columnfd_wohnAdresse = MyBase.Columns("fd_wohnAdresse") Me.columnfd_datum = MyBase.Columns("fd_datum") Me.columnfd_dsId = MyBase.Columns("fd_dsId") End Sub _ Private Sub InitClass() Me.columnfd_id = New Global.System.Data.DataColumn("fd_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfd_id) Me.columnfd_fraechter = New Global.System.Data.DataColumn("fd_fraechter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfd_fraechter) Me.columnfd_lkw = New Global.System.Data.DataColumn("fd_lkw", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfd_lkw) Me.columnfd_fahrerName = New Global.System.Data.DataColumn("fd_fahrerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfd_fahrerName) Me.columnfd_tel = New Global.System.Data.DataColumn("fd_tel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfd_tel) Me.columnfd_passNummer = New Global.System.Data.DataColumn("fd_passNummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfd_passNummer) Me.columnfd_wohnAdresse = New Global.System.Data.DataColumn("fd_wohnAdresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfd_wohnAdresse) Me.columnfd_datum = New Global.System.Data.DataColumn("fd_datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfd_datum) Me.columnfd_dsId = New Global.System.Data.DataColumn("fd_dsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfd_dsId) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnfd_id}, true)) Me.columnfd_id.AutoIncrement = true Me.columnfd_id.AutoIncrementSeed = -1 Me.columnfd_id.AutoIncrementStep = -1 Me.columnfd_id.AllowDBNull = false Me.columnfd_id.ReadOnly = true Me.columnfd_id.Unique = true Me.columnfd_fraechter.MaxLength = 500 Me.columnfd_lkw.MaxLength = 200 Me.columnfd_fahrerName.MaxLength = 500 Me.columnfd_tel.MaxLength = 200 Me.columnfd_passNummer.MaxLength = 200 Me.columnfd_wohnAdresse.MaxLength = 2000 Me.columnfd_datum.AllowDBNull = false End Sub _ Public Function NewtblFahrerDatenRow() As tblFahrerDatenRow Return CType(Me.NewRow,tblFahrerDatenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblFahrerDatenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblFahrerDatenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblFahrerDatenRowChangedEvent) Is Nothing) Then RaiseEvent tblFahrerDatenRowChanged(Me, New tblFahrerDatenRowChangeEvent(CType(e.Row,tblFahrerDatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblFahrerDatenRowChangingEvent) Is Nothing) Then RaiseEvent tblFahrerDatenRowChanging(Me, New tblFahrerDatenRowChangeEvent(CType(e.Row,tblFahrerDatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblFahrerDatenRowDeletedEvent) Is Nothing) Then RaiseEvent tblFahrerDatenRowDeleted(Me, New tblFahrerDatenRowChangeEvent(CType(e.Row,tblFahrerDatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblFahrerDatenRowDeletingEvent) Is Nothing) Then RaiseEvent tblFahrerDatenRowDeleting(Me, New tblFahrerDatenRowChangeEvent(CType(e.Row,tblFahrerDatenRow), e.Action)) End If End Sub _ Public Sub RemovetblFahrerDatenRow(ByVal row As tblFahrerDatenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblFahrerDatenDataTable" 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 tblFirmaDataTable Inherits Global.System.Data.TypedTableBase(Of tblFirmaRow) Private columnFirma_ID As Global.System.Data.DataColumn Private columnFirma_Bez As Global.System.Data.DataColumn Private columnFirma_BackColor As Global.System.Data.DataColumn Private columnFirma_Logo As Global.System.Data.DataColumn Private columnFirma_Firmenbuch As Global.System.Data.DataColumn Private columnFirma_UID As Global.System.Data.DataColumn Private columnFirma_EORI As Global.System.Data.DataColumn Private columnFirma_Bankverbindung1 As Global.System.Data.DataColumn Private columnFirma_BLZ1 As Global.System.Data.DataColumn Private columnFirma_KTO1 As Global.System.Data.DataColumn Private columnFirma_IBAN1 As Global.System.Data.DataColumn Private columnFirma_BIC1 As Global.System.Data.DataColumn Private columnFirma_Bankverbindung2 As Global.System.Data.DataColumn Private columnFirma_BLZ2 As Global.System.Data.DataColumn Private columnFirma_KTO2 As Global.System.Data.DataColumn Private columnFirma_IBAN2 As Global.System.Data.DataColumn Private columnFirma_BIC2 As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnFirma_Ort As Global.System.Data.DataColumn Private columnFirma_Straße As Global.System.Data.DataColumn Private columnFirma_Telefon As Global.System.Data.DataColumn Private columnFirma_Telefax As Global.System.Data.DataColumn Private _columnFirma_E_Mail As Global.System.Data.DataColumn Private columnFirma_Webadresse As Global.System.Data.DataColumn Private columnFirma_LandKz As Global.System.Data.DataColumn Private columnFirmengruppe As Global.System.Data.DataColumn Private columnFirma_Warenort As Global.System.Data.DataColumn Private columnFirma_E_Mail_Mahnungen As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblFirma" 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 Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property Firma_BezColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_Bez End Get End Property _ Public ReadOnly Property Firma_BackColorColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_BackColor End Get End Property _ Public ReadOnly Property Firma_LogoColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_Logo End Get End Property _ Public ReadOnly Property Firma_FirmenbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_Firmenbuch End Get End Property _ Public ReadOnly Property Firma_UIDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_UID End Get End Property _ Public ReadOnly Property Firma_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_EORI End Get End Property _ Public ReadOnly Property Firma_Bankverbindung1Column() As Global.System.Data.DataColumn Get Return Me.columnFirma_Bankverbindung1 End Get End Property _ Public ReadOnly Property Firma_BLZ1Column() As Global.System.Data.DataColumn Get Return Me.columnFirma_BLZ1 End Get End Property _ Public ReadOnly Property Firma_KTO1Column() As Global.System.Data.DataColumn Get Return Me.columnFirma_KTO1 End Get End Property _ Public ReadOnly Property Firma_IBAN1Column() As Global.System.Data.DataColumn Get Return Me.columnFirma_IBAN1 End Get End Property _ Public ReadOnly Property Firma_BIC1Column() As Global.System.Data.DataColumn Get Return Me.columnFirma_BIC1 End Get End Property _ Public ReadOnly Property Firma_Bankverbindung2Column() As Global.System.Data.DataColumn Get Return Me.columnFirma_Bankverbindung2 End Get End Property _ Public ReadOnly Property Firma_BLZ2Column() As Global.System.Data.DataColumn Get Return Me.columnFirma_BLZ2 End Get End Property _ Public ReadOnly Property Firma_KTO2Column() As Global.System.Data.DataColumn Get Return Me.columnFirma_KTO2 End Get End Property _ Public ReadOnly Property Firma_IBAN2Column() As Global.System.Data.DataColumn Get Return Me.columnFirma_IBAN2 End Get End Property _ Public ReadOnly Property Firma_BIC2Column() As Global.System.Data.DataColumn Get Return Me.columnFirma_BIC2 End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property Firma_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_Ort End Get End Property _ Public ReadOnly Property Firma_StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_Straße End Get End Property _ Public ReadOnly Property Firma_TelefonColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_Telefon End Get End Property _ Public ReadOnly Property Firma_TelefaxColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_Telefax End Get End Property _ Public ReadOnly Property _Firma_E_MailColumn() As Global.System.Data.DataColumn Get Return Me._columnFirma_E_Mail End Get End Property _ Public ReadOnly Property Firma_WebadresseColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_Webadresse End Get End Property _ Public ReadOnly Property Firma_LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_LandKz End Get End Property _ Public ReadOnly Property FirmengruppeColumn() As Global.System.Data.DataColumn Get Return Me.columnFirmengruppe End Get End Property _ Public ReadOnly Property Firma_WarenortColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_Warenort End Get End Property _ Public ReadOnly Property Firma_E_Mail_MahnungenColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_E_Mail_Mahnungen 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 tblFirmaRow Get Return CType(Me.Rows(index),tblFirmaRow) End Get End Property _ Public Event tblFirmaRowChanging As tblFirmaRowChangeEventHandler _ Public Event tblFirmaRowChanged As tblFirmaRowChangeEventHandler _ Public Event tblFirmaRowDeleting As tblFirmaRowChangeEventHandler _ Public Event tblFirmaRowDeleted As tblFirmaRowChangeEventHandler _ Public Overloads Sub AddtblFirmaRow(ByVal row As tblFirmaRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblFirmaRow( _ ByVal Firma_ID As Short, _ ByVal Firma_Bez As String, _ ByVal Firma_BackColor As Integer, _ ByVal Firma_Logo() As Byte, _ ByVal Firma_Firmenbuch As String, _ ByVal Firma_UID As String, _ ByVal Firma_EORI As String, _ ByVal Firma_Bankverbindung1 As String, _ ByVal Firma_BLZ1 As String, _ ByVal Firma_KTO1 As String, _ ByVal Firma_IBAN1 As String, _ ByVal Firma_BIC1 As String, _ ByVal Firma_Bankverbindung2 As String, _ ByVal Firma_BLZ2 As String, _ ByVal Firma_KTO2 As String, _ ByVal Firma_IBAN2 As String, _ ByVal Firma_BIC2 As String, _ ByVal SSMA_TimeStamp() As Byte, _ ByVal Firma_Ort As String, _ ByVal Firma_Straße As String, _ ByVal Firma_Telefon As String, _ ByVal Firma_Telefax As String, _ ByVal _Firma_E_Mail As String, _ ByVal Firma_Webadresse As String, _ ByVal Firma_LandKz As String, _ ByVal Firmengruppe As String, _ ByVal Firma_Warenort As Boolean, _ ByVal Firma_E_Mail_Mahnungen As String) As tblFirmaRow Dim rowtblFirmaRow As tblFirmaRow = CType(Me.NewRow,tblFirmaRow) Dim columnValuesArray() As Object = New Object() {Firma_ID, Firma_Bez, Firma_BackColor, Firma_Logo, Firma_Firmenbuch, Firma_UID, Firma_EORI, Firma_Bankverbindung1, Firma_BLZ1, Firma_KTO1, Firma_IBAN1, Firma_BIC1, Firma_Bankverbindung2, Firma_BLZ2, Firma_KTO2, Firma_IBAN2, Firma_BIC2, SSMA_TimeStamp, Firma_Ort, Firma_Straße, Firma_Telefon, Firma_Telefax, _Firma_E_Mail, Firma_Webadresse, Firma_LandKz, Firmengruppe, Firma_Warenort, Firma_E_Mail_Mahnungen} rowtblFirmaRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblFirmaRow) Return rowtblFirmaRow End Function _ Public Function FindByFirma_ID(ByVal Firma_ID As Short) As tblFirmaRow Return CType(Me.Rows.Find(New Object() {Firma_ID}),tblFirmaRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblFirmaDataTable = CType(MyBase.Clone,tblFirmaDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblFirmaDataTable() End Function _ Friend Sub InitVars() Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnFirma_Bez = MyBase.Columns("Firma_Bez") Me.columnFirma_BackColor = MyBase.Columns("Firma_BackColor") Me.columnFirma_Logo = MyBase.Columns("Firma_Logo") Me.columnFirma_Firmenbuch = MyBase.Columns("Firma_Firmenbuch") Me.columnFirma_UID = MyBase.Columns("Firma_UID") Me.columnFirma_EORI = MyBase.Columns("Firma_EORI") Me.columnFirma_Bankverbindung1 = MyBase.Columns("Firma_Bankverbindung1") Me.columnFirma_BLZ1 = MyBase.Columns("Firma_BLZ1") Me.columnFirma_KTO1 = MyBase.Columns("Firma_KTO1") Me.columnFirma_IBAN1 = MyBase.Columns("Firma_IBAN1") Me.columnFirma_BIC1 = MyBase.Columns("Firma_BIC1") Me.columnFirma_Bankverbindung2 = MyBase.Columns("Firma_Bankverbindung2") Me.columnFirma_BLZ2 = MyBase.Columns("Firma_BLZ2") Me.columnFirma_KTO2 = MyBase.Columns("Firma_KTO2") Me.columnFirma_IBAN2 = MyBase.Columns("Firma_IBAN2") Me.columnFirma_BIC2 = MyBase.Columns("Firma_BIC2") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnFirma_Ort = MyBase.Columns("Firma_Ort") Me.columnFirma_Straße = MyBase.Columns("Firma_Straße") Me.columnFirma_Telefon = MyBase.Columns("Firma_Telefon") Me.columnFirma_Telefax = MyBase.Columns("Firma_Telefax") Me._columnFirma_E_Mail = MyBase.Columns("Firma_E-Mail") Me.columnFirma_Webadresse = MyBase.Columns("Firma_Webadresse") Me.columnFirma_LandKz = MyBase.Columns("Firma_LandKz") Me.columnFirmengruppe = MyBase.Columns("Firmengruppe") Me.columnFirma_Warenort = MyBase.Columns("Firma_Warenort") Me.columnFirma_E_Mail_Mahnungen = MyBase.Columns("Firma_E_Mail_Mahnungen") End Sub _ Private Sub InitClass() Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnFirma_Bez = New Global.System.Data.DataColumn("Firma_Bez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Bez) Me.columnFirma_BackColor = New Global.System.Data.DataColumn("Firma_BackColor", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_BackColor) Me.columnFirma_Logo = New Global.System.Data.DataColumn("Firma_Logo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Logo) Me.columnFirma_Firmenbuch = New Global.System.Data.DataColumn("Firma_Firmenbuch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Firmenbuch) Me.columnFirma_UID = New Global.System.Data.DataColumn("Firma_UID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_UID) Me.columnFirma_EORI = New Global.System.Data.DataColumn("Firma_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_EORI) Me.columnFirma_Bankverbindung1 = New Global.System.Data.DataColumn("Firma_Bankverbindung1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Bankverbindung1) Me.columnFirma_BLZ1 = New Global.System.Data.DataColumn("Firma_BLZ1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_BLZ1) Me.columnFirma_KTO1 = New Global.System.Data.DataColumn("Firma_KTO1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_KTO1) Me.columnFirma_IBAN1 = New Global.System.Data.DataColumn("Firma_IBAN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_IBAN1) Me.columnFirma_BIC1 = New Global.System.Data.DataColumn("Firma_BIC1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_BIC1) Me.columnFirma_Bankverbindung2 = New Global.System.Data.DataColumn("Firma_Bankverbindung2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Bankverbindung2) Me.columnFirma_BLZ2 = New Global.System.Data.DataColumn("Firma_BLZ2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_BLZ2) Me.columnFirma_KTO2 = New Global.System.Data.DataColumn("Firma_KTO2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_KTO2) Me.columnFirma_IBAN2 = New Global.System.Data.DataColumn("Firma_IBAN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_IBAN2) Me.columnFirma_BIC2 = New Global.System.Data.DataColumn("Firma_BIC2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_BIC2) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnFirma_Ort = New Global.System.Data.DataColumn("Firma_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Ort) Me.columnFirma_Straße = New Global.System.Data.DataColumn("Firma_Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Straße) Me.columnFirma_Telefon = New Global.System.Data.DataColumn("Firma_Telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Telefon) Me.columnFirma_Telefax = New Global.System.Data.DataColumn("Firma_Telefax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Telefax) Me._columnFirma_E_Mail = New Global.System.Data.DataColumn("Firma_E-Mail", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnFirma_E_Mail.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnFirma_E_Mail") Me._columnFirma_E_Mail.ExtendedProperties.Add("Generator_UserColumnName", "Firma_E-Mail") MyBase.Columns.Add(Me._columnFirma_E_Mail) Me.columnFirma_Webadresse = New Global.System.Data.DataColumn("Firma_Webadresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Webadresse) Me.columnFirma_LandKz = New Global.System.Data.DataColumn("Firma_LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_LandKz) Me.columnFirmengruppe = New Global.System.Data.DataColumn("Firmengruppe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirmengruppe) Me.columnFirma_Warenort = New Global.System.Data.DataColumn("Firma_Warenort", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_Warenort) Me.columnFirma_E_Mail_Mahnungen = New Global.System.Data.DataColumn("Firma_E_Mail_Mahnungen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_E_Mail_Mahnungen) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFirma_ID}, true)) Me.columnFirma_ID.AllowDBNull = false Me.columnFirma_ID.Unique = true Me.columnFirma_Bez.AllowDBNull = false Me.columnFirma_Bez.MaxLength = 50 Me.columnFirma_BackColor.AllowDBNull = false Me.columnFirma_Firmenbuch.MaxLength = 22 Me.columnFirma_UID.MaxLength = 16 Me.columnFirma_EORI.MaxLength = 21 Me.columnFirma_Bankverbindung1.MaxLength = 50 Me.columnFirma_BLZ1.MaxLength = 33 Me.columnFirma_KTO1.MaxLength = 18 Me.columnFirma_IBAN1.MaxLength = 38 Me.columnFirma_BIC1.MaxLength = 16 Me.columnFirma_Bankverbindung2.MaxLength = 50 Me.columnFirma_BLZ2.MaxLength = 33 Me.columnFirma_KTO2.MaxLength = 18 Me.columnFirma_IBAN2.MaxLength = 38 Me.columnFirma_BIC2.MaxLength = 16 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnFirma_Ort.MaxLength = 40 Me.columnFirma_Straße.MaxLength = 40 Me.columnFirma_Telefon.MaxLength = 40 Me.columnFirma_Telefax.MaxLength = 40 Me._columnFirma_E_Mail.MaxLength = 40 Me.columnFirma_Webadresse.MaxLength = 40 Me.columnFirma_LandKz.AllowDBNull = false Me.columnFirma_LandKz.MaxLength = 40 Me.columnFirmengruppe.MaxLength = 40 Me.columnFirma_E_Mail_Mahnungen.MaxLength = 40 End Sub _ Public Function NewtblFirmaRow() As tblFirmaRow Return CType(Me.NewRow,tblFirmaRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblFirmaRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblFirmaRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblFirmaRowChangedEvent) Is Nothing) Then RaiseEvent tblFirmaRowChanged(Me, New tblFirmaRowChangeEvent(CType(e.Row,tblFirmaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblFirmaRowChangingEvent) Is Nothing) Then RaiseEvent tblFirmaRowChanging(Me, New tblFirmaRowChangeEvent(CType(e.Row,tblFirmaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblFirmaRowDeletedEvent) Is Nothing) Then RaiseEvent tblFirmaRowDeleted(Me, New tblFirmaRowChangeEvent(CType(e.Row,tblFirmaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblFirmaRowDeletingEvent) Is Nothing) Then RaiseEvent tblFirmaRowDeleting(Me, New tblFirmaRowChangeEvent(CType(e.Row,tblFirmaRow), e.Action)) End If End Sub _ Public Sub RemovetblFirmaRow(ByVal row As tblFirmaRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblFirmaDataTable" 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 tblFiskal_DatenDataTable Inherits Global.System.Data.TypedTableBase(Of tblFiskal_DatenRow) Private columnfisk_KundenNr As Global.System.Data.DataColumn Private columnfisk_schreibenFA As Global.System.Data.DataColumn Private columnfisk_schreibenSB As Global.System.Data.DataColumn Private columnfisk_schreibenCMR As Global.System.Data.DataColumn Private columnfisk_schreibenFA_Adr As Global.System.Data.DataColumn Private columnfisk_schreibenSB_Adr As Global.System.Data.DataColumn Private columnfisk_schreibenSB_Mail As Global.System.Data.DataColumn Private columnfisk_schreibenFA_Mail As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblFiskal_Daten" 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 fisk_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnfisk_KundenNr End Get End Property _ Public ReadOnly Property fisk_schreibenFAColumn() As Global.System.Data.DataColumn Get Return Me.columnfisk_schreibenFA End Get End Property _ Public ReadOnly Property fisk_schreibenSBColumn() As Global.System.Data.DataColumn Get Return Me.columnfisk_schreibenSB End Get End Property _ Public ReadOnly Property fisk_schreibenCMRColumn() As Global.System.Data.DataColumn Get Return Me.columnfisk_schreibenCMR End Get End Property _ Public ReadOnly Property fisk_schreibenFA_AdrColumn() As Global.System.Data.DataColumn Get Return Me.columnfisk_schreibenFA_Adr End Get End Property _ Public ReadOnly Property fisk_schreibenSB_AdrColumn() As Global.System.Data.DataColumn Get Return Me.columnfisk_schreibenSB_Adr End Get End Property _ Public ReadOnly Property fisk_schreibenSB_MailColumn() As Global.System.Data.DataColumn Get Return Me.columnfisk_schreibenSB_Mail End Get End Property _ Public ReadOnly Property fisk_schreibenFA_MailColumn() As Global.System.Data.DataColumn Get Return Me.columnfisk_schreibenFA_Mail 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 tblFiskal_DatenRow Get Return CType(Me.Rows(index),tblFiskal_DatenRow) End Get End Property _ Public Event tblFiskal_DatenRowChanging As tblFiskal_DatenRowChangeEventHandler _ Public Event tblFiskal_DatenRowChanged As tblFiskal_DatenRowChangeEventHandler _ Public Event tblFiskal_DatenRowDeleting As tblFiskal_DatenRowChangeEventHandler _ Public Event tblFiskal_DatenRowDeleted As tblFiskal_DatenRowChangeEventHandler _ Public Overloads Sub AddtblFiskal_DatenRow(ByVal row As tblFiskal_DatenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblFiskal_DatenRow(ByVal fisk_KundenNr As Integer, ByVal fisk_schreibenFA As Boolean, ByVal fisk_schreibenSB As Boolean, ByVal fisk_schreibenCMR As Boolean, ByVal fisk_schreibenFA_Adr As String, ByVal fisk_schreibenSB_Adr As String, ByVal fisk_schreibenSB_Mail As String, ByVal fisk_schreibenFA_Mail As String) As tblFiskal_DatenRow Dim rowtblFiskal_DatenRow As tblFiskal_DatenRow = CType(Me.NewRow,tblFiskal_DatenRow) Dim columnValuesArray() As Object = New Object() {fisk_KundenNr, fisk_schreibenFA, fisk_schreibenSB, fisk_schreibenCMR, fisk_schreibenFA_Adr, fisk_schreibenSB_Adr, fisk_schreibenSB_Mail, fisk_schreibenFA_Mail} rowtblFiskal_DatenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblFiskal_DatenRow) Return rowtblFiskal_DatenRow End Function _ Public Function FindByfisk_KundenNr(ByVal fisk_KundenNr As Integer) As tblFiskal_DatenRow Return CType(Me.Rows.Find(New Object() {fisk_KundenNr}),tblFiskal_DatenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblFiskal_DatenDataTable = CType(MyBase.Clone,tblFiskal_DatenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblFiskal_DatenDataTable() End Function _ Friend Sub InitVars() Me.columnfisk_KundenNr = MyBase.Columns("fisk_KundenNr") Me.columnfisk_schreibenFA = MyBase.Columns("fisk_schreibenFA") Me.columnfisk_schreibenSB = MyBase.Columns("fisk_schreibenSB") Me.columnfisk_schreibenCMR = MyBase.Columns("fisk_schreibenCMR") Me.columnfisk_schreibenFA_Adr = MyBase.Columns("fisk_schreibenFA_Adr") Me.columnfisk_schreibenSB_Adr = MyBase.Columns("fisk_schreibenSB_Adr") Me.columnfisk_schreibenSB_Mail = MyBase.Columns("fisk_schreibenSB_Mail") Me.columnfisk_schreibenFA_Mail = MyBase.Columns("fisk_schreibenFA_Mail") End Sub _ Private Sub InitClass() Me.columnfisk_KundenNr = New Global.System.Data.DataColumn("fisk_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfisk_KundenNr) Me.columnfisk_schreibenFA = New Global.System.Data.DataColumn("fisk_schreibenFA", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfisk_schreibenFA) Me.columnfisk_schreibenSB = New Global.System.Data.DataColumn("fisk_schreibenSB", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfisk_schreibenSB) Me.columnfisk_schreibenCMR = New Global.System.Data.DataColumn("fisk_schreibenCMR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfisk_schreibenCMR) Me.columnfisk_schreibenFA_Adr = New Global.System.Data.DataColumn("fisk_schreibenFA_Adr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfisk_schreibenFA_Adr) Me.columnfisk_schreibenSB_Adr = New Global.System.Data.DataColumn("fisk_schreibenSB_Adr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfisk_schreibenSB_Adr) Me.columnfisk_schreibenSB_Mail = New Global.System.Data.DataColumn("fisk_schreibenSB_Mail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfisk_schreibenSB_Mail) Me.columnfisk_schreibenFA_Mail = New Global.System.Data.DataColumn("fisk_schreibenFA_Mail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfisk_schreibenFA_Mail) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnfisk_KundenNr}, true)) Me.columnfisk_KundenNr.AllowDBNull = false Me.columnfisk_KundenNr.Unique = true Me.columnfisk_schreibenFA.AllowDBNull = false Me.columnfisk_schreibenSB.AllowDBNull = false Me.columnfisk_schreibenCMR.AllowDBNull = false Me.columnfisk_schreibenFA_Adr.MaxLength = 2147483647 Me.columnfisk_schreibenSB_Adr.MaxLength = 2147483647 Me.columnfisk_schreibenSB_Mail.MaxLength = 200 Me.columnfisk_schreibenFA_Mail.MaxLength = 200 End Sub _ Public Function NewtblFiskal_DatenRow() As tblFiskal_DatenRow Return CType(Me.NewRow,tblFiskal_DatenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblFiskal_DatenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblFiskal_DatenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblFiskal_DatenRowChangedEvent) Is Nothing) Then RaiseEvent tblFiskal_DatenRowChanged(Me, New tblFiskal_DatenRowChangeEvent(CType(e.Row,tblFiskal_DatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblFiskal_DatenRowChangingEvent) Is Nothing) Then RaiseEvent tblFiskal_DatenRowChanging(Me, New tblFiskal_DatenRowChangeEvent(CType(e.Row,tblFiskal_DatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblFiskal_DatenRowDeletedEvent) Is Nothing) Then RaiseEvent tblFiskal_DatenRowDeleted(Me, New tblFiskal_DatenRowChangeEvent(CType(e.Row,tblFiskal_DatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblFiskal_DatenRowDeletingEvent) Is Nothing) Then RaiseEvent tblFiskal_DatenRowDeleting(Me, New tblFiskal_DatenRowChangeEvent(CType(e.Row,tblFiskal_DatenRow), e.Action)) End If End Sub _ Public Sub RemovetblFiskal_DatenRow(ByVal row As tblFiskal_DatenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblFiskal_DatenDataTable" 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 tblFiskalkundenDataTable Inherits Global.System.Data.TypedTableBase(Of tblFiskalkundenRow) Private columnFK_Id As Global.System.Data.DataColumn Private columnFK_Kdnr As Global.System.Data.DataColumn Private columnFK_Datum As Global.System.Data.DataColumn Private columnFK_Art As Global.System.Data.DataColumn Private columnFK_locked As Global.System.Data.DataColumn Private columnFK_WebsiteSt_URL As Global.System.Data.DataColumn Private columnFK_Bonitaet As Global.System.Data.DataColumn Private columnFK_Vollmacht As Global.System.Data.DataColumn Private columnFK_Untervollmacht As Global.System.Data.DataColumn Private columnFK_UID As Global.System.Data.DataColumn Private columnFK_EORI As Global.System.Data.DataColumn Private columnFK_VollmachtOriginal As Global.System.Data.DataColumn Private columnFK_Website_URL As Global.System.Data.DataColumn Private columnFK_Anmerkung As Global.System.Data.DataColumn Private columnFK_Abschlussdatum As Global.System.Data.DataColumn Private columnFK_MaId As Global.System.Data.DataColumn Private columnFK_Lieferanten As Global.System.Data.DataColumn Private columnFK_Empfaenger As Global.System.Data.DataColumn Private columnFK_Waren As Global.System.Data.DataColumn Private columnFK_Zwischenhaendler As Global.System.Data.DataColumn Private columnFK_Gruendungsdatum As Global.System.Data.DataColumn Private columnFK_AnzahlMitarbeiter As Global.System.Data.DataColumn Private columnFK_Geschaeftszweck As Global.System.Data.DataColumn Private columnFK_KreditMax As Global.System.Data.DataColumn Private columnFK_Umsatz As Global.System.Data.DataColumn Private columnFK_Geschaeftsfuehrer As Global.System.Data.DataColumn Private columnFK_Steuerberater As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblFiskalkunden" 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 FK_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Id End Get End Property _ Public ReadOnly Property FK_KdnrColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Kdnr End Get End Property _ Public ReadOnly Property FK_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Datum End Get End Property _ Public ReadOnly Property FK_ArtColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Art End Get End Property _ Public ReadOnly Property FK_lockedColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_locked End Get End Property _ Public ReadOnly Property FK_WebsiteSt_URLColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_WebsiteSt_URL End Get End Property _ Public ReadOnly Property FK_BonitaetColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Bonitaet End Get End Property _ Public ReadOnly Property FK_VollmachtColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Vollmacht End Get End Property _ Public ReadOnly Property FK_UntervollmachtColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Untervollmacht End Get End Property _ Public ReadOnly Property FK_UIDColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_UID End Get End Property _ Public ReadOnly Property FK_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_EORI End Get End Property _ Public ReadOnly Property FK_VollmachtOriginalColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_VollmachtOriginal End Get End Property _ Public ReadOnly Property FK_Website_URLColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Website_URL End Get End Property _ Public ReadOnly Property FK_AnmerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Anmerkung End Get End Property _ Public ReadOnly Property FK_AbschlussdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Abschlussdatum End Get End Property _ Public ReadOnly Property FK_MaIdColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_MaId End Get End Property _ Public ReadOnly Property FK_LieferantenColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Lieferanten End Get End Property _ Public ReadOnly Property FK_EmpfaengerColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Empfaenger End Get End Property _ Public ReadOnly Property FK_WarenColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Waren End Get End Property _ Public ReadOnly Property FK_ZwischenhaendlerColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Zwischenhaendler End Get End Property _ Public ReadOnly Property FK_GruendungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Gruendungsdatum End Get End Property _ Public ReadOnly Property FK_AnzahlMitarbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_AnzahlMitarbeiter End Get End Property _ Public ReadOnly Property FK_GeschaeftszweckColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Geschaeftszweck End Get End Property _ Public ReadOnly Property FK_KreditMaxColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_KreditMax End Get End Property _ Public ReadOnly Property FK_UmsatzColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Umsatz End Get End Property _ Public ReadOnly Property FK_GeschaeftsfuehrerColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Geschaeftsfuehrer End Get End Property _ Public ReadOnly Property FK_SteuerberaterColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_Steuerberater 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 tblFiskalkundenRow Get Return CType(Me.Rows(index),tblFiskalkundenRow) End Get End Property _ Public Event tblFiskalkundenRowChanging As tblFiskalkundenRowChangeEventHandler _ Public Event tblFiskalkundenRowChanged As tblFiskalkundenRowChangeEventHandler _ Public Event tblFiskalkundenRowDeleting As tblFiskalkundenRowChangeEventHandler _ Public Event tblFiskalkundenRowDeleted As tblFiskalkundenRowChangeEventHandler _ Public Overloads Sub AddtblFiskalkundenRow(ByVal row As tblFiskalkundenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblFiskalkundenRow( _ ByVal FK_Kdnr As Integer, _ ByVal FK_Datum As Date, _ ByVal FK_Art As String, _ ByVal FK_locked As Boolean, _ ByVal FK_WebsiteSt_URL As String, _ ByVal FK_Bonitaet As Integer, _ ByVal FK_Vollmacht As Integer, _ ByVal FK_Untervollmacht As Integer, _ ByVal FK_UID As Integer, _ ByVal FK_EORI As Integer, _ ByVal FK_VollmachtOriginal As Boolean, _ ByVal FK_Website_URL As String, _ ByVal FK_Anmerkung As String, _ ByVal FK_Abschlussdatum As Date, _ ByVal FK_MaId As Integer, _ ByVal FK_Lieferanten As String, _ ByVal FK_Empfaenger As String, _ ByVal FK_Waren As String, _ ByVal FK_Zwischenhaendler As String, _ ByVal FK_Gruendungsdatum As Date, _ ByVal FK_AnzahlMitarbeiter As Integer, _ ByVal FK_Geschaeftszweck As String, _ ByVal FK_KreditMax As Decimal, _ ByVal FK_Umsatz As Decimal, _ ByVal FK_Geschaeftsfuehrer As String, _ ByVal FK_Steuerberater As String) As tblFiskalkundenRow Dim rowtblFiskalkundenRow As tblFiskalkundenRow = CType(Me.NewRow,tblFiskalkundenRow) Dim columnValuesArray() As Object = New Object() {Nothing, FK_Kdnr, FK_Datum, FK_Art, FK_locked, FK_WebsiteSt_URL, FK_Bonitaet, FK_Vollmacht, FK_Untervollmacht, FK_UID, FK_EORI, FK_VollmachtOriginal, FK_Website_URL, FK_Anmerkung, FK_Abschlussdatum, FK_MaId, FK_Lieferanten, FK_Empfaenger, FK_Waren, FK_Zwischenhaendler, FK_Gruendungsdatum, FK_AnzahlMitarbeiter, FK_Geschaeftszweck, FK_KreditMax, FK_Umsatz, FK_Geschaeftsfuehrer, FK_Steuerberater} rowtblFiskalkundenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblFiskalkundenRow) Return rowtblFiskalkundenRow End Function _ Public Function FindByFK_Id(ByVal FK_Id As Integer) As tblFiskalkundenRow Return CType(Me.Rows.Find(New Object() {FK_Id}),tblFiskalkundenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblFiskalkundenDataTable = CType(MyBase.Clone,tblFiskalkundenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblFiskalkundenDataTable() End Function _ Friend Sub InitVars() Me.columnFK_Id = MyBase.Columns("FK_Id") Me.columnFK_Kdnr = MyBase.Columns("FK_Kdnr") Me.columnFK_Datum = MyBase.Columns("FK_Datum") Me.columnFK_Art = MyBase.Columns("FK_Art") Me.columnFK_locked = MyBase.Columns("FK_locked") Me.columnFK_WebsiteSt_URL = MyBase.Columns("FK_WebsiteSt_URL") Me.columnFK_Bonitaet = MyBase.Columns("FK_Bonitaet") Me.columnFK_Vollmacht = MyBase.Columns("FK_Vollmacht") Me.columnFK_Untervollmacht = MyBase.Columns("FK_Untervollmacht") Me.columnFK_UID = MyBase.Columns("FK_UID") Me.columnFK_EORI = MyBase.Columns("FK_EORI") Me.columnFK_VollmachtOriginal = MyBase.Columns("FK_VollmachtOriginal") Me.columnFK_Website_URL = MyBase.Columns("FK_Website_URL") Me.columnFK_Anmerkung = MyBase.Columns("FK_Anmerkung") Me.columnFK_Abschlussdatum = MyBase.Columns("FK_Abschlussdatum") Me.columnFK_MaId = MyBase.Columns("FK_MaId") Me.columnFK_Lieferanten = MyBase.Columns("FK_Lieferanten") Me.columnFK_Empfaenger = MyBase.Columns("FK_Empfaenger") Me.columnFK_Waren = MyBase.Columns("FK_Waren") Me.columnFK_Zwischenhaendler = MyBase.Columns("FK_Zwischenhaendler") Me.columnFK_Gruendungsdatum = MyBase.Columns("FK_Gruendungsdatum") Me.columnFK_AnzahlMitarbeiter = MyBase.Columns("FK_AnzahlMitarbeiter") Me.columnFK_Geschaeftszweck = MyBase.Columns("FK_Geschaeftszweck") Me.columnFK_KreditMax = MyBase.Columns("FK_KreditMax") Me.columnFK_Umsatz = MyBase.Columns("FK_Umsatz") Me.columnFK_Geschaeftsfuehrer = MyBase.Columns("FK_Geschaeftsfuehrer") Me.columnFK_Steuerberater = MyBase.Columns("FK_Steuerberater") End Sub _ Private Sub InitClass() Me.columnFK_Id = New Global.System.Data.DataColumn("FK_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Id) Me.columnFK_Kdnr = New Global.System.Data.DataColumn("FK_Kdnr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Kdnr) Me.columnFK_Datum = New Global.System.Data.DataColumn("FK_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Datum) Me.columnFK_Art = New Global.System.Data.DataColumn("FK_Art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Art) Me.columnFK_locked = New Global.System.Data.DataColumn("FK_locked", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_locked) Me.columnFK_WebsiteSt_URL = New Global.System.Data.DataColumn("FK_WebsiteSt_URL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_WebsiteSt_URL) Me.columnFK_Bonitaet = New Global.System.Data.DataColumn("FK_Bonitaet", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Bonitaet) Me.columnFK_Vollmacht = New Global.System.Data.DataColumn("FK_Vollmacht", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Vollmacht) Me.columnFK_Untervollmacht = New Global.System.Data.DataColumn("FK_Untervollmacht", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Untervollmacht) Me.columnFK_UID = New Global.System.Data.DataColumn("FK_UID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_UID) Me.columnFK_EORI = New Global.System.Data.DataColumn("FK_EORI", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_EORI) Me.columnFK_VollmachtOriginal = New Global.System.Data.DataColumn("FK_VollmachtOriginal", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_VollmachtOriginal) Me.columnFK_Website_URL = New Global.System.Data.DataColumn("FK_Website_URL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Website_URL) Me.columnFK_Anmerkung = New Global.System.Data.DataColumn("FK_Anmerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Anmerkung) Me.columnFK_Abschlussdatum = New Global.System.Data.DataColumn("FK_Abschlussdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Abschlussdatum) Me.columnFK_MaId = New Global.System.Data.DataColumn("FK_MaId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_MaId) Me.columnFK_Lieferanten = New Global.System.Data.DataColumn("FK_Lieferanten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Lieferanten) Me.columnFK_Empfaenger = New Global.System.Data.DataColumn("FK_Empfaenger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Empfaenger) Me.columnFK_Waren = New Global.System.Data.DataColumn("FK_Waren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Waren) Me.columnFK_Zwischenhaendler = New Global.System.Data.DataColumn("FK_Zwischenhaendler", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Zwischenhaendler) Me.columnFK_Gruendungsdatum = New Global.System.Data.DataColumn("FK_Gruendungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Gruendungsdatum) Me.columnFK_AnzahlMitarbeiter = New Global.System.Data.DataColumn("FK_AnzahlMitarbeiter", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_AnzahlMitarbeiter) Me.columnFK_Geschaeftszweck = New Global.System.Data.DataColumn("FK_Geschaeftszweck", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Geschaeftszweck) Me.columnFK_KreditMax = New Global.System.Data.DataColumn("FK_KreditMax", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_KreditMax) Me.columnFK_Umsatz = New Global.System.Data.DataColumn("FK_Umsatz", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Umsatz) Me.columnFK_Geschaeftsfuehrer = New Global.System.Data.DataColumn("FK_Geschaeftsfuehrer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Geschaeftsfuehrer) Me.columnFK_Steuerberater = New Global.System.Data.DataColumn("FK_Steuerberater", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_Steuerberater) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFK_Id}, true)) Me.columnFK_Id.AutoIncrement = true Me.columnFK_Id.AutoIncrementSeed = -1 Me.columnFK_Id.AutoIncrementStep = -1 Me.columnFK_Id.AllowDBNull = false Me.columnFK_Id.ReadOnly = true Me.columnFK_Id.Unique = true Me.columnFK_Kdnr.AllowDBNull = false Me.columnFK_Datum.AllowDBNull = false Me.columnFK_Art.AllowDBNull = false Me.columnFK_Art.MaxLength = 2 Me.columnFK_WebsiteSt_URL.MaxLength = 2147483647 Me.columnFK_Website_URL.MaxLength = 2147483647 Me.columnFK_Anmerkung.MaxLength = 2147483647 Me.columnFK_Lieferanten.MaxLength = 2147483647 Me.columnFK_Empfaenger.MaxLength = 2147483647 Me.columnFK_Waren.MaxLength = 2147483647 Me.columnFK_Zwischenhaendler.MaxLength = 2147483647 Me.columnFK_Geschaeftszweck.MaxLength = 2147483647 Me.columnFK_Geschaeftsfuehrer.MaxLength = 2147483647 Me.columnFK_Steuerberater.MaxLength = 2147483647 End Sub _ Public Function NewtblFiskalkundenRow() As tblFiskalkundenRow Return CType(Me.NewRow,tblFiskalkundenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblFiskalkundenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblFiskalkundenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblFiskalkundenRowChangedEvent) Is Nothing) Then RaiseEvent tblFiskalkundenRowChanged(Me, New tblFiskalkundenRowChangeEvent(CType(e.Row,tblFiskalkundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblFiskalkundenRowChangingEvent) Is Nothing) Then RaiseEvent tblFiskalkundenRowChanging(Me, New tblFiskalkundenRowChangeEvent(CType(e.Row,tblFiskalkundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblFiskalkundenRowDeletedEvent) Is Nothing) Then RaiseEvent tblFiskalkundenRowDeleted(Me, New tblFiskalkundenRowChangeEvent(CType(e.Row,tblFiskalkundenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblFiskalkundenRowDeletingEvent) Is Nothing) Then RaiseEvent tblFiskalkundenRowDeleting(Me, New tblFiskalkundenRowChangeEvent(CType(e.Row,tblFiskalkundenRow), e.Action)) End If End Sub _ Public Sub RemovetblFiskalkundenRow(ByVal row As tblFiskalkundenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblFiskalkundenDataTable" 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 tblFormulardatenDataTable Inherits Global.System.Data.TypedTableBase(Of tblFormulardatenRow) Private columnComputername As Global.System.Data.DataColumn Private columnBenutzername As Global.System.Data.DataColumn Private columnFormularname As Global.System.Data.DataColumn Private columnFeldname As Global.System.Data.DataColumn Private columnFeldwert As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblFormulardaten" 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 ComputernameColumn() As Global.System.Data.DataColumn Get Return Me.columnComputername End Get End Property _ Public ReadOnly Property BenutzernameColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzername End Get End Property _ Public ReadOnly Property FormularnameColumn() As Global.System.Data.DataColumn Get Return Me.columnFormularname End Get End Property _ Public ReadOnly Property FeldnameColumn() As Global.System.Data.DataColumn Get Return Me.columnFeldname End Get End Property _ Public ReadOnly Property FeldwertColumn() As Global.System.Data.DataColumn Get Return Me.columnFeldwert End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblFormulardatenRow Get Return CType(Me.Rows(index),tblFormulardatenRow) End Get End Property _ Public Event tblFormulardatenRowChanging As tblFormulardatenRowChangeEventHandler _ Public Event tblFormulardatenRowChanged As tblFormulardatenRowChangeEventHandler _ Public Event tblFormulardatenRowDeleting As tblFormulardatenRowChangeEventHandler _ Public Event tblFormulardatenRowDeleted As tblFormulardatenRowChangeEventHandler _ Public Overloads Sub AddtblFormulardatenRow(ByVal row As tblFormulardatenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblFormulardatenRow(ByVal Computername As String, ByVal Benutzername As String, ByVal Formularname As String, ByVal Feldname As String, ByVal Feldwert As String, ByVal upsize_ts() As Byte) As tblFormulardatenRow Dim rowtblFormulardatenRow As tblFormulardatenRow = CType(Me.NewRow,tblFormulardatenRow) Dim columnValuesArray() As Object = New Object() {Computername, Benutzername, Formularname, Feldname, Feldwert, upsize_ts} rowtblFormulardatenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblFormulardatenRow) Return rowtblFormulardatenRow End Function _ Public Function FindByComputernameBenutzernameFormularnameFeldname(ByVal Computername As String, ByVal Benutzername As String, ByVal Formularname As String, ByVal Feldname As String) As tblFormulardatenRow Return CType(Me.Rows.Find(New Object() {Computername, Benutzername, Formularname, Feldname}),tblFormulardatenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblFormulardatenDataTable = CType(MyBase.Clone,tblFormulardatenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblFormulardatenDataTable() End Function _ Friend Sub InitVars() Me.columnComputername = MyBase.Columns("Computername") Me.columnBenutzername = MyBase.Columns("Benutzername") Me.columnFormularname = MyBase.Columns("Formularname") Me.columnFeldname = MyBase.Columns("Feldname") Me.columnFeldwert = MyBase.Columns("Feldwert") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnComputername = New Global.System.Data.DataColumn("Computername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComputername) Me.columnBenutzername = New Global.System.Data.DataColumn("Benutzername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzername) Me.columnFormularname = New Global.System.Data.DataColumn("Formularname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFormularname) Me.columnFeldname = New Global.System.Data.DataColumn("Feldname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFeldname) Me.columnFeldwert = New Global.System.Data.DataColumn("Feldwert", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFeldwert) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnComputername, Me.columnBenutzername, Me.columnFormularname, Me.columnFeldname}, true)) Me.columnComputername.AllowDBNull = false Me.columnComputername.MaxLength = 15 Me.columnBenutzername.AllowDBNull = false Me.columnBenutzername.MaxLength = 20 Me.columnFormularname.AllowDBNull = false Me.columnFormularname.MaxLength = 20 Me.columnFeldname.AllowDBNull = false Me.columnFeldname.MaxLength = 20 Me.columnFeldwert.AllowDBNull = false Me.columnFeldwert.MaxLength = 20 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblFormulardatenRow() As tblFormulardatenRow Return CType(Me.NewRow,tblFormulardatenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblFormulardatenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblFormulardatenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblFormulardatenRowChangedEvent) Is Nothing) Then RaiseEvent tblFormulardatenRowChanged(Me, New tblFormulardatenRowChangeEvent(CType(e.Row,tblFormulardatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblFormulardatenRowChangingEvent) Is Nothing) Then RaiseEvent tblFormulardatenRowChanging(Me, New tblFormulardatenRowChangeEvent(CType(e.Row,tblFormulardatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblFormulardatenRowDeletedEvent) Is Nothing) Then RaiseEvent tblFormulardatenRowDeleted(Me, New tblFormulardatenRowChangeEvent(CType(e.Row,tblFormulardatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblFormulardatenRowDeletingEvent) Is Nothing) Then RaiseEvent tblFormulardatenRowDeleting(Me, New tblFormulardatenRowChangeEvent(CType(e.Row,tblFormulardatenRow), e.Action)) End If End Sub _ Public Sub RemovetblFormulardatenRow(ByVal row As tblFormulardatenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblFormulardatenDataTable" 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 tblFormulareVorlagenDataTable Inherits Global.System.Data.TypedTableBase(Of tblFormulareVorlagenRow) Private columntblform_id As Global.System.Data.DataColumn Private columntblform_KundenNr As Global.System.Data.DataColumn Private columntblform_art As Global.System.Data.DataColumn Private columntblform_begriff As Global.System.Data.DataColumn Private columntblform_Sachbearbeiter As Global.System.Data.DataColumn Private columntblform_letzeAenderung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblFormulareVorlagen" 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 tblform_idColumn() As Global.System.Data.DataColumn Get Return Me.columntblform_id End Get End Property _ Public ReadOnly Property tblform_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columntblform_KundenNr End Get End Property _ Public ReadOnly Property tblform_artColumn() As Global.System.Data.DataColumn Get Return Me.columntblform_art End Get End Property _ Public ReadOnly Property tblform_begriffColumn() As Global.System.Data.DataColumn Get Return Me.columntblform_begriff End Get End Property _ Public ReadOnly Property tblform_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columntblform_Sachbearbeiter End Get End Property _ Public ReadOnly Property tblform_letzeAenderungColumn() As Global.System.Data.DataColumn Get Return Me.columntblform_letzeAenderung 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 tblFormulareVorlagenRow Get Return CType(Me.Rows(index),tblFormulareVorlagenRow) End Get End Property _ Public Event tblFormulareVorlagenRowChanging As tblFormulareVorlagenRowChangeEventHandler _ Public Event tblFormulareVorlagenRowChanged As tblFormulareVorlagenRowChangeEventHandler _ Public Event tblFormulareVorlagenRowDeleting As tblFormulareVorlagenRowChangeEventHandler _ Public Event tblFormulareVorlagenRowDeleted As tblFormulareVorlagenRowChangeEventHandler _ Public Overloads Sub AddtblFormulareVorlagenRow(ByVal row As tblFormulareVorlagenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblFormulareVorlagenRow(ByVal tblform_KundenNr As Integer, ByVal tblform_art As String, ByVal tblform_begriff As String, ByVal tblform_Sachbearbeiter As String, ByVal tblform_letzeAenderung As Date) As tblFormulareVorlagenRow Dim rowtblFormulareVorlagenRow As tblFormulareVorlagenRow = CType(Me.NewRow,tblFormulareVorlagenRow) Dim columnValuesArray() As Object = New Object() {Nothing, tblform_KundenNr, tblform_art, tblform_begriff, tblform_Sachbearbeiter, tblform_letzeAenderung} rowtblFormulareVorlagenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblFormulareVorlagenRow) Return rowtblFormulareVorlagenRow End Function _ Public Function FindBytblform_id(ByVal tblform_id As Integer) As tblFormulareVorlagenRow Return CType(Me.Rows.Find(New Object() {tblform_id}),tblFormulareVorlagenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblFormulareVorlagenDataTable = CType(MyBase.Clone,tblFormulareVorlagenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblFormulareVorlagenDataTable() End Function _ Friend Sub InitVars() Me.columntblform_id = MyBase.Columns("tblform_id") Me.columntblform_KundenNr = MyBase.Columns("tblform_KundenNr") Me.columntblform_art = MyBase.Columns("tblform_art") Me.columntblform_begriff = MyBase.Columns("tblform_begriff") Me.columntblform_Sachbearbeiter = MyBase.Columns("tblform_Sachbearbeiter") Me.columntblform_letzeAenderung = MyBase.Columns("tblform_letzeAenderung") End Sub _ Private Sub InitClass() Me.columntblform_id = New Global.System.Data.DataColumn("tblform_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntblform_id) Me.columntblform_KundenNr = New Global.System.Data.DataColumn("tblform_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntblform_KundenNr) Me.columntblform_art = New Global.System.Data.DataColumn("tblform_art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntblform_art) Me.columntblform_begriff = New Global.System.Data.DataColumn("tblform_begriff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntblform_begriff) Me.columntblform_Sachbearbeiter = New Global.System.Data.DataColumn("tblform_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntblform_Sachbearbeiter) Me.columntblform_letzeAenderung = New Global.System.Data.DataColumn("tblform_letzeAenderung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntblform_letzeAenderung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntblform_id}, true)) Me.columntblform_id.AutoIncrement = true Me.columntblform_id.AutoIncrementSeed = -1 Me.columntblform_id.AutoIncrementStep = -1 Me.columntblform_id.AllowDBNull = false Me.columntblform_id.ReadOnly = true Me.columntblform_id.Unique = true Me.columntblform_art.AllowDBNull = false Me.columntblform_art.MaxLength = 100 Me.columntblform_begriff.AllowDBNull = false Me.columntblform_begriff.MaxLength = 200 Me.columntblform_Sachbearbeiter.MaxLength = 100 Me.columntblform_letzeAenderung.AllowDBNull = false End Sub _ Public Function NewtblFormulareVorlagenRow() As tblFormulareVorlagenRow Return CType(Me.NewRow,tblFormulareVorlagenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblFormulareVorlagenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblFormulareVorlagenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblFormulareVorlagenRowChangedEvent) Is Nothing) Then RaiseEvent tblFormulareVorlagenRowChanged(Me, New tblFormulareVorlagenRowChangeEvent(CType(e.Row,tblFormulareVorlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblFormulareVorlagenRowChangingEvent) Is Nothing) Then RaiseEvent tblFormulareVorlagenRowChanging(Me, New tblFormulareVorlagenRowChangeEvent(CType(e.Row,tblFormulareVorlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblFormulareVorlagenRowDeletedEvent) Is Nothing) Then RaiseEvent tblFormulareVorlagenRowDeleted(Me, New tblFormulareVorlagenRowChangeEvent(CType(e.Row,tblFormulareVorlagenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblFormulareVorlagenRowDeletingEvent) Is Nothing) Then RaiseEvent tblFormulareVorlagenRowDeleting(Me, New tblFormulareVorlagenRowChangeEvent(CType(e.Row,tblFormulareVorlagenRow), e.Action)) End If End Sub _ Public Sub RemovetblFormulareVorlagenRow(ByVal row As tblFormulareVorlagenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblFormulareVorlagenDataTable" 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 tblFormulareVorlagenValuesDataTable Inherits Global.System.Data.TypedTableBase(Of tblFormulareVorlagenValuesRow) Private columntblfv_tblformId As Global.System.Data.DataColumn Private columntblfv_name As Global.System.Data.DataColumn Private columntblfv_wert As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblFormulareVorlagenValues" 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 tblfv_tblformIdColumn() As Global.System.Data.DataColumn Get Return Me.columntblfv_tblformId End Get End Property _ Public ReadOnly Property tblfv_nameColumn() As Global.System.Data.DataColumn Get Return Me.columntblfv_name End Get End Property _ Public ReadOnly Property tblfv_wertColumn() As Global.System.Data.DataColumn Get Return Me.columntblfv_wert 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 tblFormulareVorlagenValuesRow Get Return CType(Me.Rows(index),tblFormulareVorlagenValuesRow) End Get End Property _ Public Event tblFormulareVorlagenValuesRowChanging As tblFormulareVorlagenValuesRowChangeEventHandler _ Public Event tblFormulareVorlagenValuesRowChanged As tblFormulareVorlagenValuesRowChangeEventHandler _ Public Event tblFormulareVorlagenValuesRowDeleting As tblFormulareVorlagenValuesRowChangeEventHandler _ Public Event tblFormulareVorlagenValuesRowDeleted As tblFormulareVorlagenValuesRowChangeEventHandler _ Public Overloads Sub AddtblFormulareVorlagenValuesRow(ByVal row As tblFormulareVorlagenValuesRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblFormulareVorlagenValuesRow(ByVal tblfv_tblformId As Integer, ByVal tblfv_name As String, ByVal tblfv_wert As String) As tblFormulareVorlagenValuesRow Dim rowtblFormulareVorlagenValuesRow As tblFormulareVorlagenValuesRow = CType(Me.NewRow,tblFormulareVorlagenValuesRow) Dim columnValuesArray() As Object = New Object() {tblfv_tblformId, tblfv_name, tblfv_wert} rowtblFormulareVorlagenValuesRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblFormulareVorlagenValuesRow) Return rowtblFormulareVorlagenValuesRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblFormulareVorlagenValuesDataTable = CType(MyBase.Clone,tblFormulareVorlagenValuesDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblFormulareVorlagenValuesDataTable() End Function _ Friend Sub InitVars() Me.columntblfv_tblformId = MyBase.Columns("tblfv_tblformId") Me.columntblfv_name = MyBase.Columns("tblfv_name") Me.columntblfv_wert = MyBase.Columns("tblfv_wert") End Sub _ Private Sub InitClass() Me.columntblfv_tblformId = New Global.System.Data.DataColumn("tblfv_tblformId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntblfv_tblformId) Me.columntblfv_name = New Global.System.Data.DataColumn("tblfv_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntblfv_name) Me.columntblfv_wert = New Global.System.Data.DataColumn("tblfv_wert", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntblfv_wert) Me.columntblfv_tblformId.AllowDBNull = false Me.columntblfv_name.AllowDBNull = false Me.columntblfv_name.MaxLength = 500 Me.columntblfv_wert.AllowDBNull = false Me.columntblfv_wert.MaxLength = 5000 End Sub _ Public Function NewtblFormulareVorlagenValuesRow() As tblFormulareVorlagenValuesRow Return CType(Me.NewRow,tblFormulareVorlagenValuesRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblFormulareVorlagenValuesRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblFormulareVorlagenValuesRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblFormulareVorlagenValuesRowChangedEvent) Is Nothing) Then RaiseEvent tblFormulareVorlagenValuesRowChanged(Me, New tblFormulareVorlagenValuesRowChangeEvent(CType(e.Row,tblFormulareVorlagenValuesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblFormulareVorlagenValuesRowChangingEvent) Is Nothing) Then RaiseEvent tblFormulareVorlagenValuesRowChanging(Me, New tblFormulareVorlagenValuesRowChangeEvent(CType(e.Row,tblFormulareVorlagenValuesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblFormulareVorlagenValuesRowDeletedEvent) Is Nothing) Then RaiseEvent tblFormulareVorlagenValuesRowDeleted(Me, New tblFormulareVorlagenValuesRowChangeEvent(CType(e.Row,tblFormulareVorlagenValuesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblFormulareVorlagenValuesRowDeletingEvent) Is Nothing) Then RaiseEvent tblFormulareVorlagenValuesRowDeleting(Me, New tblFormulareVorlagenValuesRowChangeEvent(CType(e.Row,tblFormulareVorlagenValuesRow), e.Action)) End If End Sub _ Public Sub RemovetblFormulareVorlagenValuesRow(ByVal row As tblFormulareVorlagenValuesRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblFormulareVorlagenValuesDataTable" 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 tblFremdSpeditionenZuordnungDataTable Inherits Global.System.Data.TypedTableBase(Of tblFremdSpeditionenZuordnungRow) Private columnfremdz_Id As Global.System.Data.DataColumn Private columnfremdz_firma As Global.System.Data.DataColumn Private columnfremdz_KundenNr As Global.System.Data.DataColumn Private columnfremdz_plz As Global.System.Data.DataColumn Private columnfremdz_ort As Global.System.Data.DataColumn Private columnfremdz_SpeditionKundenNr As Global.System.Data.DataColumn Private columnfremdz_verzolltBei As Global.System.Data.DataColumn Private columnfremdz_bemerkung As Global.System.Data.DataColumn Private columnfremdz_Sachbearbeiter As Global.System.Data.DataColumn Private columnfremdz_Datum As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblFremdSpeditionenZuordnung" 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 fremdz_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnfremdz_Id End Get End Property _ Public ReadOnly Property fremdz_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columnfremdz_firma End Get End Property _ Public ReadOnly Property fremdz_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnfremdz_KundenNr End Get End Property _ Public ReadOnly Property fremdz_plzColumn() As Global.System.Data.DataColumn Get Return Me.columnfremdz_plz End Get End Property _ Public ReadOnly Property fremdz_ortColumn() As Global.System.Data.DataColumn Get Return Me.columnfremdz_ort End Get End Property _ Public ReadOnly Property fremdz_SpeditionKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnfremdz_SpeditionKundenNr End Get End Property _ Public ReadOnly Property fremdz_verzolltBeiColumn() As Global.System.Data.DataColumn Get Return Me.columnfremdz_verzolltBei End Get End Property _ Public ReadOnly Property fremdz_bemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnfremdz_bemerkung End Get End Property _ Public ReadOnly Property fremdz_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnfremdz_Sachbearbeiter End Get End Property _ Public ReadOnly Property fremdz_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnfremdz_Datum 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 tblFremdSpeditionenZuordnungRow Get Return CType(Me.Rows(index),tblFremdSpeditionenZuordnungRow) End Get End Property _ Public Event tblFremdSpeditionenZuordnungRowChanging As tblFremdSpeditionenZuordnungRowChangeEventHandler _ Public Event tblFremdSpeditionenZuordnungRowChanged As tblFremdSpeditionenZuordnungRowChangeEventHandler _ Public Event tblFremdSpeditionenZuordnungRowDeleting As tblFremdSpeditionenZuordnungRowChangeEventHandler _ Public Event tblFremdSpeditionenZuordnungRowDeleted As tblFremdSpeditionenZuordnungRowChangeEventHandler _ Public Overloads Sub AddtblFremdSpeditionenZuordnungRow(ByVal row As tblFremdSpeditionenZuordnungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblFremdSpeditionenZuordnungRow(ByVal fremdz_firma As String, ByVal fremdz_KundenNr As Integer, ByVal fremdz_plz As String, ByVal fremdz_ort As String, ByVal fremdz_SpeditionKundenNr As Integer, ByVal fremdz_verzolltBei As String, ByVal fremdz_bemerkung As String, ByVal fremdz_Sachbearbeiter As String, ByVal fremdz_Datum As Date) As tblFremdSpeditionenZuordnungRow Dim rowtblFremdSpeditionenZuordnungRow As tblFremdSpeditionenZuordnungRow = CType(Me.NewRow,tblFremdSpeditionenZuordnungRow) Dim columnValuesArray() As Object = New Object() {Nothing, fremdz_firma, fremdz_KundenNr, fremdz_plz, fremdz_ort, fremdz_SpeditionKundenNr, fremdz_verzolltBei, fremdz_bemerkung, fremdz_Sachbearbeiter, fremdz_Datum} rowtblFremdSpeditionenZuordnungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblFremdSpeditionenZuordnungRow) Return rowtblFremdSpeditionenZuordnungRow End Function _ Public Function FindByfremdz_Id(ByVal fremdz_Id As Integer) As tblFremdSpeditionenZuordnungRow Return CType(Me.Rows.Find(New Object() {fremdz_Id}),tblFremdSpeditionenZuordnungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblFremdSpeditionenZuordnungDataTable = CType(MyBase.Clone,tblFremdSpeditionenZuordnungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblFremdSpeditionenZuordnungDataTable() End Function _ Friend Sub InitVars() Me.columnfremdz_Id = MyBase.Columns("fremdz_Id") Me.columnfremdz_firma = MyBase.Columns("fremdz_firma") Me.columnfremdz_KundenNr = MyBase.Columns("fremdz_KundenNr") Me.columnfremdz_plz = MyBase.Columns("fremdz_plz") Me.columnfremdz_ort = MyBase.Columns("fremdz_ort") Me.columnfremdz_SpeditionKundenNr = MyBase.Columns("fremdz_SpeditionKundenNr") Me.columnfremdz_verzolltBei = MyBase.Columns("fremdz_verzolltBei") Me.columnfremdz_bemerkung = MyBase.Columns("fremdz_bemerkung") Me.columnfremdz_Sachbearbeiter = MyBase.Columns("fremdz_Sachbearbeiter") Me.columnfremdz_Datum = MyBase.Columns("fremdz_Datum") End Sub _ Private Sub InitClass() Me.columnfremdz_Id = New Global.System.Data.DataColumn("fremdz_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfremdz_Id) Me.columnfremdz_firma = New Global.System.Data.DataColumn("fremdz_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfremdz_firma) Me.columnfremdz_KundenNr = New Global.System.Data.DataColumn("fremdz_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfremdz_KundenNr) Me.columnfremdz_plz = New Global.System.Data.DataColumn("fremdz_plz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfremdz_plz) Me.columnfremdz_ort = New Global.System.Data.DataColumn("fremdz_ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfremdz_ort) Me.columnfremdz_SpeditionKundenNr = New Global.System.Data.DataColumn("fremdz_SpeditionKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfremdz_SpeditionKundenNr) Me.columnfremdz_verzolltBei = New Global.System.Data.DataColumn("fremdz_verzolltBei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfremdz_verzolltBei) Me.columnfremdz_bemerkung = New Global.System.Data.DataColumn("fremdz_bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfremdz_bemerkung) Me.columnfremdz_Sachbearbeiter = New Global.System.Data.DataColumn("fremdz_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfremdz_Sachbearbeiter) Me.columnfremdz_Datum = New Global.System.Data.DataColumn("fremdz_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfremdz_Datum) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnfremdz_Id}, true)) Me.columnfremdz_Id.AutoIncrement = true Me.columnfremdz_Id.AutoIncrementSeed = -1 Me.columnfremdz_Id.AutoIncrementStep = -1 Me.columnfremdz_Id.AllowDBNull = false Me.columnfremdz_Id.ReadOnly = true Me.columnfremdz_Id.Unique = true Me.columnfremdz_firma.AllowDBNull = false Me.columnfremdz_firma.MaxLength = 300 Me.columnfremdz_plz.AllowDBNull = false Me.columnfremdz_plz.MaxLength = 50 Me.columnfremdz_ort.AllowDBNull = false Me.columnfremdz_ort.MaxLength = 300 Me.columnfremdz_verzolltBei.AllowDBNull = false Me.columnfremdz_verzolltBei.MaxLength = 300 Me.columnfremdz_bemerkung.AllowDBNull = false Me.columnfremdz_bemerkung.MaxLength = 1000 Me.columnfremdz_Sachbearbeiter.MaxLength = 300 End Sub _ Public Function NewtblFremdSpeditionenZuordnungRow() As tblFremdSpeditionenZuordnungRow Return CType(Me.NewRow,tblFremdSpeditionenZuordnungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblFremdSpeditionenZuordnungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblFremdSpeditionenZuordnungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblFremdSpeditionenZuordnungRowChangedEvent) Is Nothing) Then RaiseEvent tblFremdSpeditionenZuordnungRowChanged(Me, New tblFremdSpeditionenZuordnungRowChangeEvent(CType(e.Row,tblFremdSpeditionenZuordnungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblFremdSpeditionenZuordnungRowChangingEvent) Is Nothing) Then RaiseEvent tblFremdSpeditionenZuordnungRowChanging(Me, New tblFremdSpeditionenZuordnungRowChangeEvent(CType(e.Row,tblFremdSpeditionenZuordnungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblFremdSpeditionenZuordnungRowDeletedEvent) Is Nothing) Then RaiseEvent tblFremdSpeditionenZuordnungRowDeleted(Me, New tblFremdSpeditionenZuordnungRowChangeEvent(CType(e.Row,tblFremdSpeditionenZuordnungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblFremdSpeditionenZuordnungRowDeletingEvent) Is Nothing) Then RaiseEvent tblFremdSpeditionenZuordnungRowDeleting(Me, New tblFremdSpeditionenZuordnungRowChangeEvent(CType(e.Row,tblFremdSpeditionenZuordnungRow), e.Action)) End If End Sub _ Public Sub RemovetblFremdSpeditionenZuordnungRow(ByVal row As tblFremdSpeditionenZuordnungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblFremdSpeditionenZuordnungDataTable" 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 tblFTP_LogDataTable Inherits Global.System.Data.TypedTableBase(Of tblFTP_LogRow) Private columnftp_id As Global.System.Data.DataColumn Private columnftp_filepath As Global.System.Data.DataColumn Private columnftp_BezugsNr As Global.System.Data.DataColumn Private columnftp_art As Global.System.Data.DataColumn Private columnftp_status As Global.System.Data.DataColumn Private columnftp_vorsystem As Global.System.Data.DataColumn Private columnftp_CooName As Global.System.Data.DataColumn Private columnftp_timestamp As Global.System.Data.DataColumn Private columnftp_user As Global.System.Data.DataColumn Private columnftp_datetime As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblFTP_Log" 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 ftp_idColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_id End Get End Property _ Public ReadOnly Property ftp_filepathColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_filepath End Get End Property _ Public ReadOnly Property ftp_BezugsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_BezugsNr End Get End Property _ Public ReadOnly Property ftp_artColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_art End Get End Property _ Public ReadOnly Property ftp_statusColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_status End Get End Property _ Public ReadOnly Property ftp_vorsystemColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_vorsystem End Get End Property _ Public ReadOnly Property ftp_CooNameColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_CooName End Get End Property _ Public ReadOnly Property ftp_timestampColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_timestamp End Get End Property _ Public ReadOnly Property ftp_userColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_user End Get End Property _ Public ReadOnly Property ftp_datetimeColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_datetime 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 tblFTP_LogRow Get Return CType(Me.Rows(index),tblFTP_LogRow) End Get End Property _ Public Event tblFTP_LogRowChanging As tblFTP_LogRowChangeEventHandler _ Public Event tblFTP_LogRowChanged As tblFTP_LogRowChangeEventHandler _ Public Event tblFTP_LogRowDeleting As tblFTP_LogRowChangeEventHandler _ Public Event tblFTP_LogRowDeleted As tblFTP_LogRowChangeEventHandler _ Public Overloads Sub AddtblFTP_LogRow(ByVal row As tblFTP_LogRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblFTP_LogRow(ByVal ftp_filepath As String, ByVal ftp_BezugsNr As String, ByVal ftp_art As String, ByVal ftp_status As String, ByVal ftp_vorsystem As String, ByVal ftp_CooName As String, ByVal ftp_timestamp() As Byte, ByVal ftp_user As String, ByVal ftp_datetime As Date) As tblFTP_LogRow Dim rowtblFTP_LogRow As tblFTP_LogRow = CType(Me.NewRow,tblFTP_LogRow) Dim columnValuesArray() As Object = New Object() {Nothing, ftp_filepath, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem, ftp_CooName, ftp_timestamp, ftp_user, ftp_datetime} rowtblFTP_LogRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblFTP_LogRow) Return rowtblFTP_LogRow End Function _ Public Function FindByftp_id(ByVal ftp_id As Integer) As tblFTP_LogRow Return CType(Me.Rows.Find(New Object() {ftp_id}),tblFTP_LogRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblFTP_LogDataTable = CType(MyBase.Clone,tblFTP_LogDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblFTP_LogDataTable() End Function _ Friend Sub InitVars() Me.columnftp_id = MyBase.Columns("ftp_id") Me.columnftp_filepath = MyBase.Columns("ftp_filepath") Me.columnftp_BezugsNr = MyBase.Columns("ftp_BezugsNr") Me.columnftp_art = MyBase.Columns("ftp_art") Me.columnftp_status = MyBase.Columns("ftp_status") Me.columnftp_vorsystem = MyBase.Columns("ftp_vorsystem") Me.columnftp_CooName = MyBase.Columns("ftp_CooName") Me.columnftp_timestamp = MyBase.Columns("ftp_timestamp") Me.columnftp_user = MyBase.Columns("ftp_user") Me.columnftp_datetime = MyBase.Columns("ftp_datetime") End Sub _ Private Sub InitClass() Me.columnftp_id = New Global.System.Data.DataColumn("ftp_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_id) Me.columnftp_filepath = New Global.System.Data.DataColumn("ftp_filepath", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_filepath) Me.columnftp_BezugsNr = New Global.System.Data.DataColumn("ftp_BezugsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_BezugsNr) Me.columnftp_art = New Global.System.Data.DataColumn("ftp_art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_art) Me.columnftp_status = New Global.System.Data.DataColumn("ftp_status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_status) Me.columnftp_vorsystem = New Global.System.Data.DataColumn("ftp_vorsystem", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_vorsystem) Me.columnftp_CooName = New Global.System.Data.DataColumn("ftp_CooName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_CooName) Me.columnftp_timestamp = New Global.System.Data.DataColumn("ftp_timestamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_timestamp) Me.columnftp_user = New Global.System.Data.DataColumn("ftp_user", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_user) Me.columnftp_datetime = New Global.System.Data.DataColumn("ftp_datetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_datetime) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnftp_id}, true)) Me.columnftp_id.AutoIncrement = true Me.columnftp_id.AutoIncrementSeed = -1 Me.columnftp_id.AutoIncrementStep = -1 Me.columnftp_id.AllowDBNull = false Me.columnftp_id.ReadOnly = true Me.columnftp_id.Unique = true Me.columnftp_filepath.AllowDBNull = false Me.columnftp_filepath.MaxLength = 500 Me.columnftp_BezugsNr.MaxLength = 200 Me.columnftp_art.MaxLength = 500 Me.columnftp_status.MaxLength = 500 Me.columnftp_vorsystem.MaxLength = 500 Me.columnftp_CooName.MaxLength = 500 Me.columnftp_timestamp.ReadOnly = true Me.columnftp_user.AllowDBNull = false Me.columnftp_user.MaxLength = 500 End Sub _ Public Function NewtblFTP_LogRow() As tblFTP_LogRow Return CType(Me.NewRow,tblFTP_LogRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblFTP_LogRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblFTP_LogRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblFTP_LogRowChangedEvent) Is Nothing) Then RaiseEvent tblFTP_LogRowChanged(Me, New tblFTP_LogRowChangeEvent(CType(e.Row,tblFTP_LogRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblFTP_LogRowChangingEvent) Is Nothing) Then RaiseEvent tblFTP_LogRowChanging(Me, New tblFTP_LogRowChangeEvent(CType(e.Row,tblFTP_LogRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblFTP_LogRowDeletedEvent) Is Nothing) Then RaiseEvent tblFTP_LogRowDeleted(Me, New tblFTP_LogRowChangeEvent(CType(e.Row,tblFTP_LogRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblFTP_LogRowDeletingEvent) Is Nothing) Then RaiseEvent tblFTP_LogRowDeleting(Me, New tblFTP_LogRowChangeEvent(CType(e.Row,tblFTP_LogRow), e.Action)) End If End Sub _ Public Sub RemovetblFTP_LogRow(ByVal row As tblFTP_LogRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblFTP_LogDataTable" 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 tblFTP_Log_Backup2DataTable Inherits Global.System.Data.TypedTableBase(Of tblFTP_Log_Backup2Row) Private columnftp_id As Global.System.Data.DataColumn Private columnftp_filepath As Global.System.Data.DataColumn Private columnftp_BezugsNr As Global.System.Data.DataColumn Private columnftp_art As Global.System.Data.DataColumn Private columnftp_status As Global.System.Data.DataColumn Private columnftp_vorsystem As Global.System.Data.DataColumn Private columnftp_CooName As Global.System.Data.DataColumn Private columnftp_timestamp As Global.System.Data.DataColumn Private columnftp_user As Global.System.Data.DataColumn Private columnftp_datetime As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblFTP_Log_Backup2" 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 ftp_idColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_id End Get End Property _ Public ReadOnly Property ftp_filepathColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_filepath End Get End Property _ Public ReadOnly Property ftp_BezugsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_BezugsNr End Get End Property _ Public ReadOnly Property ftp_artColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_art End Get End Property _ Public ReadOnly Property ftp_statusColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_status End Get End Property _ Public ReadOnly Property ftp_vorsystemColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_vorsystem End Get End Property _ Public ReadOnly Property ftp_CooNameColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_CooName End Get End Property _ Public ReadOnly Property ftp_timestampColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_timestamp End Get End Property _ Public ReadOnly Property ftp_userColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_user End Get End Property _ Public ReadOnly Property ftp_datetimeColumn() As Global.System.Data.DataColumn Get Return Me.columnftp_datetime 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 tblFTP_Log_Backup2Row Get Return CType(Me.Rows(index),tblFTP_Log_Backup2Row) End Get End Property _ Public Event tblFTP_Log_Backup2RowChanging As tblFTP_Log_Backup2RowChangeEventHandler _ Public Event tblFTP_Log_Backup2RowChanged As tblFTP_Log_Backup2RowChangeEventHandler _ Public Event tblFTP_Log_Backup2RowDeleting As tblFTP_Log_Backup2RowChangeEventHandler _ Public Event tblFTP_Log_Backup2RowDeleted As tblFTP_Log_Backup2RowChangeEventHandler _ Public Overloads Sub AddtblFTP_Log_Backup2Row(ByVal row As tblFTP_Log_Backup2Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblFTP_Log_Backup2Row(ByVal ftp_filepath As String, ByVal ftp_BezugsNr As String, ByVal ftp_art As String, ByVal ftp_status As String, ByVal ftp_vorsystem As String, ByVal ftp_CooName As String, ByVal ftp_timestamp() As Byte, ByVal ftp_user As String, ByVal ftp_datetime As Date) As tblFTP_Log_Backup2Row Dim rowtblFTP_Log_Backup2Row As tblFTP_Log_Backup2Row = CType(Me.NewRow,tblFTP_Log_Backup2Row) Dim columnValuesArray() As Object = New Object() {Nothing, ftp_filepath, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem, ftp_CooName, ftp_timestamp, ftp_user, ftp_datetime} rowtblFTP_Log_Backup2Row.ItemArray = columnValuesArray Me.Rows.Add(rowtblFTP_Log_Backup2Row) Return rowtblFTP_Log_Backup2Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblFTP_Log_Backup2DataTable = CType(MyBase.Clone,tblFTP_Log_Backup2DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblFTP_Log_Backup2DataTable() End Function _ Friend Sub InitVars() Me.columnftp_id = MyBase.Columns("ftp_id") Me.columnftp_filepath = MyBase.Columns("ftp_filepath") Me.columnftp_BezugsNr = MyBase.Columns("ftp_BezugsNr") Me.columnftp_art = MyBase.Columns("ftp_art") Me.columnftp_status = MyBase.Columns("ftp_status") Me.columnftp_vorsystem = MyBase.Columns("ftp_vorsystem") Me.columnftp_CooName = MyBase.Columns("ftp_CooName") Me.columnftp_timestamp = MyBase.Columns("ftp_timestamp") Me.columnftp_user = MyBase.Columns("ftp_user") Me.columnftp_datetime = MyBase.Columns("ftp_datetime") End Sub _ Private Sub InitClass() Me.columnftp_id = New Global.System.Data.DataColumn("ftp_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_id) Me.columnftp_filepath = New Global.System.Data.DataColumn("ftp_filepath", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_filepath) Me.columnftp_BezugsNr = New Global.System.Data.DataColumn("ftp_BezugsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_BezugsNr) Me.columnftp_art = New Global.System.Data.DataColumn("ftp_art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_art) Me.columnftp_status = New Global.System.Data.DataColumn("ftp_status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_status) Me.columnftp_vorsystem = New Global.System.Data.DataColumn("ftp_vorsystem", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_vorsystem) Me.columnftp_CooName = New Global.System.Data.DataColumn("ftp_CooName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_CooName) Me.columnftp_timestamp = New Global.System.Data.DataColumn("ftp_timestamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_timestamp) Me.columnftp_user = New Global.System.Data.DataColumn("ftp_user", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_user) Me.columnftp_datetime = New Global.System.Data.DataColumn("ftp_datetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnftp_datetime) Me.columnftp_id.AutoIncrement = true Me.columnftp_id.AutoIncrementSeed = -1 Me.columnftp_id.AutoIncrementStep = -1 Me.columnftp_id.AllowDBNull = false Me.columnftp_id.ReadOnly = true Me.columnftp_filepath.AllowDBNull = false Me.columnftp_filepath.MaxLength = 500 Me.columnftp_BezugsNr.MaxLength = 500 Me.columnftp_art.MaxLength = 500 Me.columnftp_status.MaxLength = 500 Me.columnftp_vorsystem.MaxLength = 500 Me.columnftp_CooName.MaxLength = 500 Me.columnftp_timestamp.ReadOnly = true Me.columnftp_user.AllowDBNull = false Me.columnftp_user.MaxLength = 500 End Sub _ Public Function NewtblFTP_Log_Backup2Row() As tblFTP_Log_Backup2Row Return CType(Me.NewRow,tblFTP_Log_Backup2Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblFTP_Log_Backup2Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblFTP_Log_Backup2Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblFTP_Log_Backup2RowChangedEvent) Is Nothing) Then RaiseEvent tblFTP_Log_Backup2RowChanged(Me, New tblFTP_Log_Backup2RowChangeEvent(CType(e.Row,tblFTP_Log_Backup2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblFTP_Log_Backup2RowChangingEvent) Is Nothing) Then RaiseEvent tblFTP_Log_Backup2RowChanging(Me, New tblFTP_Log_Backup2RowChangeEvent(CType(e.Row,tblFTP_Log_Backup2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblFTP_Log_Backup2RowDeletedEvent) Is Nothing) Then RaiseEvent tblFTP_Log_Backup2RowDeleted(Me, New tblFTP_Log_Backup2RowChangeEvent(CType(e.Row,tblFTP_Log_Backup2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblFTP_Log_Backup2RowDeletingEvent) Is Nothing) Then RaiseEvent tblFTP_Log_Backup2RowDeleting(Me, New tblFTP_Log_Backup2RowChangeEvent(CType(e.Row,tblFTP_Log_Backup2Row), e.Action)) End If End Sub _ Public Sub RemovetblFTP_Log_Backup2Row(ByVal row As tblFTP_Log_Backup2Row) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblFTP_Log_Backup2DataTable" 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 tblGebuehrenvermarktungsnormenDataTable Inherits Global.System.Data.TypedTableBase(Of tblGebuehrenvermarktungsnormenRow) Private columngueltigAb As Global.System.Data.DataColumn Private columnbetrag As Global.System.Data.DataColumn Private columnspeziell As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGebuehrenvermarktungsnormen" 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 gueltigAbColumn() As Global.System.Data.DataColumn Get Return Me.columngueltigAb End Get End Property _ Public ReadOnly Property betragColumn() As Global.System.Data.DataColumn Get Return Me.columnbetrag End Get End Property _ Public ReadOnly Property speziellColumn() As Global.System.Data.DataColumn Get Return Me.columnspeziell 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 tblGebuehrenvermarktungsnormenRow Get Return CType(Me.Rows(index),tblGebuehrenvermarktungsnormenRow) End Get End Property _ Public Event tblGebuehrenvermarktungsnormenRowChanging As tblGebuehrenvermarktungsnormenRowChangeEventHandler _ Public Event tblGebuehrenvermarktungsnormenRowChanged As tblGebuehrenvermarktungsnormenRowChangeEventHandler _ Public Event tblGebuehrenvermarktungsnormenRowDeleting As tblGebuehrenvermarktungsnormenRowChangeEventHandler _ Public Event tblGebuehrenvermarktungsnormenRowDeleted As tblGebuehrenvermarktungsnormenRowChangeEventHandler _ Public Overloads Sub AddtblGebuehrenvermarktungsnormenRow(ByVal row As tblGebuehrenvermarktungsnormenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGebuehrenvermarktungsnormenRow(ByVal gueltigAb As Date, ByVal betrag As Decimal, ByVal speziell As Boolean) As tblGebuehrenvermarktungsnormenRow Dim rowtblGebuehrenvermarktungsnormenRow As tblGebuehrenvermarktungsnormenRow = CType(Me.NewRow,tblGebuehrenvermarktungsnormenRow) Dim columnValuesArray() As Object = New Object() {gueltigAb, betrag, speziell} rowtblGebuehrenvermarktungsnormenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGebuehrenvermarktungsnormenRow) Return rowtblGebuehrenvermarktungsnormenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGebuehrenvermarktungsnormenDataTable = CType(MyBase.Clone,tblGebuehrenvermarktungsnormenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGebuehrenvermarktungsnormenDataTable() End Function _ Friend Sub InitVars() Me.columngueltigAb = MyBase.Columns("gueltigAb") Me.columnbetrag = MyBase.Columns("betrag") Me.columnspeziell = MyBase.Columns("speziell") End Sub _ Private Sub InitClass() Me.columngueltigAb = New Global.System.Data.DataColumn("gueltigAb", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngueltigAb) Me.columnbetrag = New Global.System.Data.DataColumn("betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbetrag) Me.columnspeziell = New Global.System.Data.DataColumn("speziell", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnspeziell) Me.columngueltigAb.AllowDBNull = false Me.columnbetrag.AllowDBNull = false Me.columnspeziell.AllowDBNull = false End Sub _ Public Function NewtblGebuehrenvermarktungsnormenRow() As tblGebuehrenvermarktungsnormenRow Return CType(Me.NewRow,tblGebuehrenvermarktungsnormenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGebuehrenvermarktungsnormenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGebuehrenvermarktungsnormenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGebuehrenvermarktungsnormenRowChangedEvent) Is Nothing) Then RaiseEvent tblGebuehrenvermarktungsnormenRowChanged(Me, New tblGebuehrenvermarktungsnormenRowChangeEvent(CType(e.Row,tblGebuehrenvermarktungsnormenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGebuehrenvermarktungsnormenRowChangingEvent) Is Nothing) Then RaiseEvent tblGebuehrenvermarktungsnormenRowChanging(Me, New tblGebuehrenvermarktungsnormenRowChangeEvent(CType(e.Row,tblGebuehrenvermarktungsnormenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGebuehrenvermarktungsnormenRowDeletedEvent) Is Nothing) Then RaiseEvent tblGebuehrenvermarktungsnormenRowDeleted(Me, New tblGebuehrenvermarktungsnormenRowChangeEvent(CType(e.Row,tblGebuehrenvermarktungsnormenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGebuehrenvermarktungsnormenRowDeletingEvent) Is Nothing) Then RaiseEvent tblGebuehrenvermarktungsnormenRowDeleting(Me, New tblGebuehrenvermarktungsnormenRowChangeEvent(CType(e.Row,tblGebuehrenvermarktungsnormenRow), e.Action)) End If End Sub _ Public Sub RemovetblGebuehrenvermarktungsnormenRow(ByVal row As tblGebuehrenvermarktungsnormenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGebuehrenvermarktungsnormenDataTable" 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 tblGelangensbestaetigungDataTable Inherits Global.System.Data.TypedTableBase(Of tblGelangensbestaetigungRow) Private columngb_nr As Global.System.Data.DataColumn Private columngb_firma As Global.System.Data.DataColumn Private columngb_KdNr As Global.System.Data.DataColumn Private columngb_datetime As Global.System.Data.DataColumn Private columngb_sachbearbeiter As Global.System.Data.DataColumn Private columngb_sachbearbeiterId As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGelangensbestaetigung" 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 gb_nrColumn() As Global.System.Data.DataColumn Get Return Me.columngb_nr End Get End Property _ Public ReadOnly Property gb_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columngb_firma End Get End Property _ Public ReadOnly Property gb_KdNrColumn() As Global.System.Data.DataColumn Get Return Me.columngb_KdNr End Get End Property _ Public ReadOnly Property gb_datetimeColumn() As Global.System.Data.DataColumn Get Return Me.columngb_datetime End Get End Property _ Public ReadOnly Property gb_sachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columngb_sachbearbeiter End Get End Property _ Public ReadOnly Property gb_sachbearbeiterIdColumn() As Global.System.Data.DataColumn Get Return Me.columngb_sachbearbeiterId 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 tblGelangensbestaetigungRow Get Return CType(Me.Rows(index),tblGelangensbestaetigungRow) End Get End Property _ Public Event tblGelangensbestaetigungRowChanging As tblGelangensbestaetigungRowChangeEventHandler _ Public Event tblGelangensbestaetigungRowChanged As tblGelangensbestaetigungRowChangeEventHandler _ Public Event tblGelangensbestaetigungRowDeleting As tblGelangensbestaetigungRowChangeEventHandler _ Public Event tblGelangensbestaetigungRowDeleted As tblGelangensbestaetigungRowChangeEventHandler _ Public Overloads Sub AddtblGelangensbestaetigungRow(ByVal row As tblGelangensbestaetigungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGelangensbestaetigungRow(ByVal gb_nr As Integer, ByVal gb_firma As String, ByVal gb_KdNr As Integer, ByVal gb_datetime As Date, ByVal gb_sachbearbeiter As String, ByVal gb_sachbearbeiterId As Integer) As tblGelangensbestaetigungRow Dim rowtblGelangensbestaetigungRow As tblGelangensbestaetigungRow = CType(Me.NewRow,tblGelangensbestaetigungRow) Dim columnValuesArray() As Object = New Object() {gb_nr, gb_firma, gb_KdNr, gb_datetime, gb_sachbearbeiter, gb_sachbearbeiterId} rowtblGelangensbestaetigungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGelangensbestaetigungRow) Return rowtblGelangensbestaetigungRow End Function _ Public Function FindBygb_nr(ByVal gb_nr As Integer) As tblGelangensbestaetigungRow Return CType(Me.Rows.Find(New Object() {gb_nr}),tblGelangensbestaetigungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGelangensbestaetigungDataTable = CType(MyBase.Clone,tblGelangensbestaetigungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGelangensbestaetigungDataTable() End Function _ Friend Sub InitVars() Me.columngb_nr = MyBase.Columns("gb_nr") Me.columngb_firma = MyBase.Columns("gb_firma") Me.columngb_KdNr = MyBase.Columns("gb_KdNr") Me.columngb_datetime = MyBase.Columns("gb_datetime") Me.columngb_sachbearbeiter = MyBase.Columns("gb_sachbearbeiter") Me.columngb_sachbearbeiterId = MyBase.Columns("gb_sachbearbeiterId") End Sub _ Private Sub InitClass() Me.columngb_nr = New Global.System.Data.DataColumn("gb_nr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_nr) Me.columngb_firma = New Global.System.Data.DataColumn("gb_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_firma) Me.columngb_KdNr = New Global.System.Data.DataColumn("gb_KdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_KdNr) Me.columngb_datetime = New Global.System.Data.DataColumn("gb_datetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_datetime) Me.columngb_sachbearbeiter = New Global.System.Data.DataColumn("gb_sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_sachbearbeiter) Me.columngb_sachbearbeiterId = New Global.System.Data.DataColumn("gb_sachbearbeiterId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_sachbearbeiterId) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columngb_nr}, true)) Me.columngb_nr.AllowDBNull = false Me.columngb_nr.Unique = true Me.columngb_firma.MaxLength = 500 Me.columngb_datetime.AllowDBNull = false Me.columngb_sachbearbeiter.AllowDBNull = false Me.columngb_sachbearbeiter.MaxLength = 200 Me.columngb_sachbearbeiterId.AllowDBNull = false End Sub _ Public Function NewtblGelangensbestaetigungRow() As tblGelangensbestaetigungRow Return CType(Me.NewRow,tblGelangensbestaetigungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGelangensbestaetigungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGelangensbestaetigungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGelangensbestaetigungRowChangedEvent) Is Nothing) Then RaiseEvent tblGelangensbestaetigungRowChanged(Me, New tblGelangensbestaetigungRowChangeEvent(CType(e.Row,tblGelangensbestaetigungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGelangensbestaetigungRowChangingEvent) Is Nothing) Then RaiseEvent tblGelangensbestaetigungRowChanging(Me, New tblGelangensbestaetigungRowChangeEvent(CType(e.Row,tblGelangensbestaetigungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGelangensbestaetigungRowDeletedEvent) Is Nothing) Then RaiseEvent tblGelangensbestaetigungRowDeleted(Me, New tblGelangensbestaetigungRowChangeEvent(CType(e.Row,tblGelangensbestaetigungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGelangensbestaetigungRowDeletingEvent) Is Nothing) Then RaiseEvent tblGelangensbestaetigungRowDeleting(Me, New tblGelangensbestaetigungRowChangeEvent(CType(e.Row,tblGelangensbestaetigungRow), e.Action)) End If End Sub _ Public Sub RemovetblGelangensbestaetigungRow(ByVal row As tblGelangensbestaetigungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGelangensbestaetigungDataTable" 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 tblGeschäftsjahrDataTable Inherits Global.System.Data.TypedTableBase(Of tblGeschäftsjahrRow) Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnBenutzer As Global.System.Data.DataColumn Private columnGeschäftsjahr As Global.System.Data.DataColumn Private columnLfdBelegNr As Global.System.Data.DataColumn Private columnLfdJournalNr As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGeschäftsjahr" 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 MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property BenutzerColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzer End Get End Property _ Public ReadOnly Property GeschäftsjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnGeschäftsjahr End Get End Property _ Public ReadOnly Property LfdBelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdBelegNr End Get End Property _ Public ReadOnly Property LfdJournalNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdJournalNr End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblGeschäftsjahrRow Get Return CType(Me.Rows(index),tblGeschäftsjahrRow) End Get End Property _ Public Event tblGeschäftsjahrRowChanging As tblGeschäftsjahrRowChangeEventHandler _ Public Event tblGeschäftsjahrRowChanged As tblGeschäftsjahrRowChangeEventHandler _ Public Event tblGeschäftsjahrRowDeleting As tblGeschäftsjahrRowChangeEventHandler _ Public Event tblGeschäftsjahrRowDeleted As tblGeschäftsjahrRowChangeEventHandler _ Public Overloads Sub AddtblGeschäftsjahrRow(ByVal row As tblGeschäftsjahrRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGeschäftsjahrRow(ByVal Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short, ByVal LfdBelegNr As Integer, ByVal LfdJournalNr As Integer, ByVal upsize_ts() As Byte) As tblGeschäftsjahrRow Dim rowtblGeschäftsjahrRow As tblGeschäftsjahrRow = CType(Me.NewRow,tblGeschäftsjahrRow) Dim columnValuesArray() As Object = New Object() {Mandant, Niederlassung, Benutzer, Geschäftsjahr, LfdBelegNr, LfdJournalNr, upsize_ts} rowtblGeschäftsjahrRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGeschäftsjahrRow) Return rowtblGeschäftsjahrRow End Function _ Public Function FindByMandantNiederlassungBenutzerGeschäftsjahr(ByVal Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short) As tblGeschäftsjahrRow Return CType(Me.Rows.Find(New Object() {Mandant, Niederlassung, Benutzer, Geschäftsjahr}),tblGeschäftsjahrRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGeschäftsjahrDataTable = CType(MyBase.Clone,tblGeschäftsjahrDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGeschäftsjahrDataTable() End Function _ Friend Sub InitVars() Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnBenutzer = MyBase.Columns("Benutzer") Me.columnGeschäftsjahr = MyBase.Columns("Geschäftsjahr") Me.columnLfdBelegNr = MyBase.Columns("LfdBelegNr") Me.columnLfdJournalNr = MyBase.Columns("LfdJournalNr") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnBenutzer = New Global.System.Data.DataColumn("Benutzer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzer) Me.columnGeschäftsjahr = New Global.System.Data.DataColumn("Geschäftsjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeschäftsjahr) Me.columnLfdBelegNr = New Global.System.Data.DataColumn("LfdBelegNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdBelegNr) Me.columnLfdJournalNr = New Global.System.Data.DataColumn("LfdJournalNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdJournalNr) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMandant, Me.columnNiederlassung, Me.columnBenutzer, Me.columnGeschäftsjahr}, true)) Me.columnMandant.AllowDBNull = false Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.AllowDBNull = false Me.columnNiederlassung.MaxLength = 3 Me.columnBenutzer.AllowDBNull = false Me.columnGeschäftsjahr.AllowDBNull = false Me.columnLfdBelegNr.AllowDBNull = false Me.columnLfdJournalNr.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblGeschäftsjahrRow() As tblGeschäftsjahrRow Return CType(Me.NewRow,tblGeschäftsjahrRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGeschäftsjahrRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGeschäftsjahrRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGeschäftsjahrRowChangedEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrRowChanged(Me, New tblGeschäftsjahrRowChangeEvent(CType(e.Row,tblGeschäftsjahrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGeschäftsjahrRowChangingEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrRowChanging(Me, New tblGeschäftsjahrRowChangeEvent(CType(e.Row,tblGeschäftsjahrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGeschäftsjahrRowDeletedEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrRowDeleted(Me, New tblGeschäftsjahrRowChangeEvent(CType(e.Row,tblGeschäftsjahrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGeschäftsjahrRowDeletingEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrRowDeleting(Me, New tblGeschäftsjahrRowChangeEvent(CType(e.Row,tblGeschäftsjahrRow), e.Action)) End If End Sub _ Public Sub RemovetblGeschäftsjahrRow(ByVal row As tblGeschäftsjahrRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGeschäftsjahrDataTable" 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 tblGeschäftsjahrBelegNrDataTable Inherits Global.System.Data.TypedTableBase(Of tblGeschäftsjahrBelegNrRow) Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnBenutzer As Global.System.Data.DataColumn Private columnGeschäftsjahr As Global.System.Data.DataColumn Private columnLfdBelegNr As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGeschäftsjahrBelegNr" 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 MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property BenutzerColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzer End Get End Property _ Public ReadOnly Property GeschäftsjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnGeschäftsjahr End Get End Property _ Public ReadOnly Property LfdBelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdBelegNr End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblGeschäftsjahrBelegNrRow Get Return CType(Me.Rows(index),tblGeschäftsjahrBelegNrRow) End Get End Property _ Public Event tblGeschäftsjahrBelegNrRowChanging As tblGeschäftsjahrBelegNrRowChangeEventHandler _ Public Event tblGeschäftsjahrBelegNrRowChanged As tblGeschäftsjahrBelegNrRowChangeEventHandler _ Public Event tblGeschäftsjahrBelegNrRowDeleting As tblGeschäftsjahrBelegNrRowChangeEventHandler _ Public Event tblGeschäftsjahrBelegNrRowDeleted As tblGeschäftsjahrBelegNrRowChangeEventHandler _ Public Overloads Sub AddtblGeschäftsjahrBelegNrRow(ByVal row As tblGeschäftsjahrBelegNrRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGeschäftsjahrBelegNrRow(ByVal Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short, ByVal LfdBelegNr As Integer, ByVal upsize_ts() As Byte) As tblGeschäftsjahrBelegNrRow Dim rowtblGeschäftsjahrBelegNrRow As tblGeschäftsjahrBelegNrRow = CType(Me.NewRow,tblGeschäftsjahrBelegNrRow) Dim columnValuesArray() As Object = New Object() {Mandant, Niederlassung, Benutzer, Geschäftsjahr, LfdBelegNr, upsize_ts} rowtblGeschäftsjahrBelegNrRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGeschäftsjahrBelegNrRow) Return rowtblGeschäftsjahrBelegNrRow End Function _ Public Function FindByMandantNiederlassungBenutzerGeschäftsjahr(ByVal Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short) As tblGeschäftsjahrBelegNrRow Return CType(Me.Rows.Find(New Object() {Mandant, Niederlassung, Benutzer, Geschäftsjahr}),tblGeschäftsjahrBelegNrRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGeschäftsjahrBelegNrDataTable = CType(MyBase.Clone,tblGeschäftsjahrBelegNrDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGeschäftsjahrBelegNrDataTable() End Function _ Friend Sub InitVars() Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnBenutzer = MyBase.Columns("Benutzer") Me.columnGeschäftsjahr = MyBase.Columns("Geschäftsjahr") Me.columnLfdBelegNr = MyBase.Columns("LfdBelegNr") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnBenutzer = New Global.System.Data.DataColumn("Benutzer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzer) Me.columnGeschäftsjahr = New Global.System.Data.DataColumn("Geschäftsjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeschäftsjahr) Me.columnLfdBelegNr = New Global.System.Data.DataColumn("LfdBelegNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdBelegNr) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMandant, Me.columnNiederlassung, Me.columnBenutzer, Me.columnGeschäftsjahr}, true)) Me.columnMandant.AllowDBNull = false Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.AllowDBNull = false Me.columnNiederlassung.MaxLength = 3 Me.columnBenutzer.AllowDBNull = false Me.columnGeschäftsjahr.AllowDBNull = false Me.columnLfdBelegNr.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblGeschäftsjahrBelegNrRow() As tblGeschäftsjahrBelegNrRow Return CType(Me.NewRow,tblGeschäftsjahrBelegNrRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGeschäftsjahrBelegNrRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGeschäftsjahrBelegNrRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGeschäftsjahrBelegNrRowChangedEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrBelegNrRowChanged(Me, New tblGeschäftsjahrBelegNrRowChangeEvent(CType(e.Row,tblGeschäftsjahrBelegNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGeschäftsjahrBelegNrRowChangingEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrBelegNrRowChanging(Me, New tblGeschäftsjahrBelegNrRowChangeEvent(CType(e.Row,tblGeschäftsjahrBelegNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGeschäftsjahrBelegNrRowDeletedEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrBelegNrRowDeleted(Me, New tblGeschäftsjahrBelegNrRowChangeEvent(CType(e.Row,tblGeschäftsjahrBelegNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGeschäftsjahrBelegNrRowDeletingEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrBelegNrRowDeleting(Me, New tblGeschäftsjahrBelegNrRowChangeEvent(CType(e.Row,tblGeschäftsjahrBelegNrRow), e.Action)) End If End Sub _ Public Sub RemovetblGeschäftsjahrBelegNrRow(ByVal row As tblGeschäftsjahrBelegNrRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGeschäftsjahrBelegNrDataTable" 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 tblGeschäftsjahrJournalNrDataTable Inherits Global.System.Data.TypedTableBase(Of tblGeschäftsjahrJournalNrRow) Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnBenutzer As Global.System.Data.DataColumn Private columnGeschäftsjahr As Global.System.Data.DataColumn Private columnLfdJournalNr As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGeschäftsjahrJournalNr" 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 MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property BenutzerColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzer End Get End Property _ Public ReadOnly Property GeschäftsjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnGeschäftsjahr End Get End Property _ Public ReadOnly Property LfdJournalNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdJournalNr End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblGeschäftsjahrJournalNrRow Get Return CType(Me.Rows(index),tblGeschäftsjahrJournalNrRow) End Get End Property _ Public Event tblGeschäftsjahrJournalNrRowChanging As tblGeschäftsjahrJournalNrRowChangeEventHandler _ Public Event tblGeschäftsjahrJournalNrRowChanged As tblGeschäftsjahrJournalNrRowChangeEventHandler _ Public Event tblGeschäftsjahrJournalNrRowDeleting As tblGeschäftsjahrJournalNrRowChangeEventHandler _ Public Event tblGeschäftsjahrJournalNrRowDeleted As tblGeschäftsjahrJournalNrRowChangeEventHandler _ Public Overloads Sub AddtblGeschäftsjahrJournalNrRow(ByVal row As tblGeschäftsjahrJournalNrRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGeschäftsjahrJournalNrRow(ByVal Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short, ByVal LfdJournalNr As Integer, ByVal upsize_ts() As Byte) As tblGeschäftsjahrJournalNrRow Dim rowtblGeschäftsjahrJournalNrRow As tblGeschäftsjahrJournalNrRow = CType(Me.NewRow,tblGeschäftsjahrJournalNrRow) Dim columnValuesArray() As Object = New Object() {Mandant, Niederlassung, Benutzer, Geschäftsjahr, LfdJournalNr, upsize_ts} rowtblGeschäftsjahrJournalNrRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGeschäftsjahrJournalNrRow) Return rowtblGeschäftsjahrJournalNrRow End Function _ Public Function FindByMandantNiederlassungBenutzerGeschäftsjahr(ByVal Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short) As tblGeschäftsjahrJournalNrRow Return CType(Me.Rows.Find(New Object() {Mandant, Niederlassung, Benutzer, Geschäftsjahr}),tblGeschäftsjahrJournalNrRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGeschäftsjahrJournalNrDataTable = CType(MyBase.Clone,tblGeschäftsjahrJournalNrDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGeschäftsjahrJournalNrDataTable() End Function _ Friend Sub InitVars() Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnBenutzer = MyBase.Columns("Benutzer") Me.columnGeschäftsjahr = MyBase.Columns("Geschäftsjahr") Me.columnLfdJournalNr = MyBase.Columns("LfdJournalNr") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnBenutzer = New Global.System.Data.DataColumn("Benutzer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzer) Me.columnGeschäftsjahr = New Global.System.Data.DataColumn("Geschäftsjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeschäftsjahr) Me.columnLfdJournalNr = New Global.System.Data.DataColumn("LfdJournalNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdJournalNr) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMandant, Me.columnNiederlassung, Me.columnBenutzer, Me.columnGeschäftsjahr}, true)) Me.columnMandant.AllowDBNull = false Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.AllowDBNull = false Me.columnNiederlassung.MaxLength = 3 Me.columnBenutzer.AllowDBNull = false Me.columnGeschäftsjahr.AllowDBNull = false Me.columnLfdJournalNr.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblGeschäftsjahrJournalNrRow() As tblGeschäftsjahrJournalNrRow Return CType(Me.NewRow,tblGeschäftsjahrJournalNrRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGeschäftsjahrJournalNrRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGeschäftsjahrJournalNrRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGeschäftsjahrJournalNrRowChangedEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrJournalNrRowChanged(Me, New tblGeschäftsjahrJournalNrRowChangeEvent(CType(e.Row,tblGeschäftsjahrJournalNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGeschäftsjahrJournalNrRowChangingEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrJournalNrRowChanging(Me, New tblGeschäftsjahrJournalNrRowChangeEvent(CType(e.Row,tblGeschäftsjahrJournalNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGeschäftsjahrJournalNrRowDeletedEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrJournalNrRowDeleted(Me, New tblGeschäftsjahrJournalNrRowChangeEvent(CType(e.Row,tblGeschäftsjahrJournalNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGeschäftsjahrJournalNrRowDeletingEvent) Is Nothing) Then RaiseEvent tblGeschäftsjahrJournalNrRowDeleting(Me, New tblGeschäftsjahrJournalNrRowChangeEvent(CType(e.Row,tblGeschäftsjahrJournalNrRow), e.Action)) End If End Sub _ Public Sub RemovetblGeschäftsjahrJournalNrRow(ByVal row As tblGeschäftsjahrJournalNrRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGeschäftsjahrJournalNrDataTable" 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 tblGestellungsgarantienDataTable Inherits Global.System.Data.TypedTableBase(Of tblGestellungsgarantienRow) Private columngg_Id As Global.System.Data.DataColumn Private columngg_KundenNr As Global.System.Data.DataColumn Private columngg_erhalten_Datum As Global.System.Data.DataColumn Private columngg_Zollamt As Global.System.Data.DataColumn Private columngg_Info As Global.System.Data.DataColumn Private columngg_datenarchivId As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGestellungsgarantien" 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 gg_IdColumn() As Global.System.Data.DataColumn Get Return Me.columngg_Id End Get End Property _ Public ReadOnly Property gg_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columngg_KundenNr End Get End Property _ Public ReadOnly Property gg_erhalten_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columngg_erhalten_Datum End Get End Property _ Public ReadOnly Property gg_ZollamtColumn() As Global.System.Data.DataColumn Get Return Me.columngg_Zollamt End Get End Property _ Public ReadOnly Property gg_InfoColumn() As Global.System.Data.DataColumn Get Return Me.columngg_Info End Get End Property _ Public ReadOnly Property gg_datenarchivIdColumn() As Global.System.Data.DataColumn Get Return Me.columngg_datenarchivId 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 tblGestellungsgarantienRow Get Return CType(Me.Rows(index),tblGestellungsgarantienRow) End Get End Property _ Public Event tblGestellungsgarantienRowChanging As tblGestellungsgarantienRowChangeEventHandler _ Public Event tblGestellungsgarantienRowChanged As tblGestellungsgarantienRowChangeEventHandler _ Public Event tblGestellungsgarantienRowDeleting As tblGestellungsgarantienRowChangeEventHandler _ Public Event tblGestellungsgarantienRowDeleted As tblGestellungsgarantienRowChangeEventHandler _ Public Overloads Sub AddtblGestellungsgarantienRow(ByVal row As tblGestellungsgarantienRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGestellungsgarantienRow(ByVal gg_KundenNr As Integer, ByVal gg_erhalten_Datum As Date, ByVal gg_Zollamt As String, ByVal gg_Info As String, ByVal gg_datenarchivId As Integer) As tblGestellungsgarantienRow Dim rowtblGestellungsgarantienRow As tblGestellungsgarantienRow = CType(Me.NewRow,tblGestellungsgarantienRow) Dim columnValuesArray() As Object = New Object() {Nothing, gg_KundenNr, gg_erhalten_Datum, gg_Zollamt, gg_Info, gg_datenarchivId} rowtblGestellungsgarantienRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGestellungsgarantienRow) Return rowtblGestellungsgarantienRow End Function _ Public Function FindBygg_Id(ByVal gg_Id As Integer) As tblGestellungsgarantienRow Return CType(Me.Rows.Find(New Object() {gg_Id}),tblGestellungsgarantienRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGestellungsgarantienDataTable = CType(MyBase.Clone,tblGestellungsgarantienDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGestellungsgarantienDataTable() End Function _ Friend Sub InitVars() Me.columngg_Id = MyBase.Columns("gg_Id") Me.columngg_KundenNr = MyBase.Columns("gg_KundenNr") Me.columngg_erhalten_Datum = MyBase.Columns("gg_erhalten_Datum") Me.columngg_Zollamt = MyBase.Columns("gg_Zollamt") Me.columngg_Info = MyBase.Columns("gg_Info") Me.columngg_datenarchivId = MyBase.Columns("gg_datenarchivId") End Sub _ Private Sub InitClass() Me.columngg_Id = New Global.System.Data.DataColumn("gg_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngg_Id) Me.columngg_KundenNr = New Global.System.Data.DataColumn("gg_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngg_KundenNr) Me.columngg_erhalten_Datum = New Global.System.Data.DataColumn("gg_erhalten_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngg_erhalten_Datum) Me.columngg_Zollamt = New Global.System.Data.DataColumn("gg_Zollamt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngg_Zollamt) Me.columngg_Info = New Global.System.Data.DataColumn("gg_Info", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngg_Info) Me.columngg_datenarchivId = New Global.System.Data.DataColumn("gg_datenarchivId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngg_datenarchivId) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columngg_Id}, true)) Me.columngg_Id.AutoIncrement = true Me.columngg_Id.AutoIncrementSeed = -1 Me.columngg_Id.AutoIncrementStep = -1 Me.columngg_Id.AllowDBNull = false Me.columngg_Id.ReadOnly = true Me.columngg_Id.Unique = true Me.columngg_erhalten_Datum.AllowDBNull = false Me.columngg_Zollamt.AllowDBNull = false Me.columngg_Zollamt.MaxLength = 50 Me.columngg_Info.MaxLength = 2147483647 End Sub _ Public Function NewtblGestellungsgarantienRow() As tblGestellungsgarantienRow Return CType(Me.NewRow,tblGestellungsgarantienRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGestellungsgarantienRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGestellungsgarantienRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGestellungsgarantienRowChangedEvent) Is Nothing) Then RaiseEvent tblGestellungsgarantienRowChanged(Me, New tblGestellungsgarantienRowChangeEvent(CType(e.Row,tblGestellungsgarantienRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGestellungsgarantienRowChangingEvent) Is Nothing) Then RaiseEvent tblGestellungsgarantienRowChanging(Me, New tblGestellungsgarantienRowChangeEvent(CType(e.Row,tblGestellungsgarantienRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGestellungsgarantienRowDeletedEvent) Is Nothing) Then RaiseEvent tblGestellungsgarantienRowDeleted(Me, New tblGestellungsgarantienRowChangeEvent(CType(e.Row,tblGestellungsgarantienRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGestellungsgarantienRowDeletingEvent) Is Nothing) Then RaiseEvent tblGestellungsgarantienRowDeleting(Me, New tblGestellungsgarantienRowChangeEvent(CType(e.Row,tblGestellungsgarantienRow), e.Action)) End If End Sub _ Public Sub RemovetblGestellungsgarantienRow(ByVal row As tblGestellungsgarantienRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGestellungsgarantienDataTable" 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 tblGestellungsmitteilungDataTable Inherits Global.System.Data.TypedTableBase(Of tblGestellungsmitteilungRow) Private columngstm_id As Global.System.Data.DataColumn Private columngstm_AvisoId As Global.System.Data.DataColumn Private columngstm_T1Gestellung_ATB As Global.System.Data.DataColumn Private columngstm_BezugsNrSumA As Global.System.Data.DataColumn Private columngstm_LKWKennzeichen As Global.System.Data.DataColumn Private columngstm_GesamtColli As Global.System.Data.DataColumn Private columngstm_GesamtGewicht As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGestellungsmitteilung" 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 gstm_idColumn() As Global.System.Data.DataColumn Get Return Me.columngstm_id End Get End Property _ Public ReadOnly Property gstm_AvisoIdColumn() As Global.System.Data.DataColumn Get Return Me.columngstm_AvisoId End Get End Property _ Public ReadOnly Property gstm_T1Gestellung_ATBColumn() As Global.System.Data.DataColumn Get Return Me.columngstm_T1Gestellung_ATB End Get End Property _ Public ReadOnly Property gstm_BezugsNrSumAColumn() As Global.System.Data.DataColumn Get Return Me.columngstm_BezugsNrSumA End Get End Property _ Public ReadOnly Property gstm_LKWKennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columngstm_LKWKennzeichen End Get End Property _ Public ReadOnly Property gstm_GesamtColliColumn() As Global.System.Data.DataColumn Get Return Me.columngstm_GesamtColli End Get End Property _ Public ReadOnly Property gstm_GesamtGewichtColumn() As Global.System.Data.DataColumn Get Return Me.columngstm_GesamtGewicht 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 tblGestellungsmitteilungRow Get Return CType(Me.Rows(index),tblGestellungsmitteilungRow) End Get End Property _ Public Event tblGestellungsmitteilungRowChanging As tblGestellungsmitteilungRowChangeEventHandler _ Public Event tblGestellungsmitteilungRowChanged As tblGestellungsmitteilungRowChangeEventHandler _ Public Event tblGestellungsmitteilungRowDeleting As tblGestellungsmitteilungRowChangeEventHandler _ Public Event tblGestellungsmitteilungRowDeleted As tblGestellungsmitteilungRowChangeEventHandler _ Public Overloads Sub AddtblGestellungsmitteilungRow(ByVal row As tblGestellungsmitteilungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGestellungsmitteilungRow(ByVal gstm_AvisoId As Integer, ByVal gstm_T1Gestellung_ATB As String, ByVal gstm_BezugsNrSumA As String, ByVal gstm_LKWKennzeichen As String, ByVal gstm_GesamtColli As String, ByVal gstm_GesamtGewicht As String) As tblGestellungsmitteilungRow Dim rowtblGestellungsmitteilungRow As tblGestellungsmitteilungRow = CType(Me.NewRow,tblGestellungsmitteilungRow) Dim columnValuesArray() As Object = New Object() {Nothing, gstm_AvisoId, gstm_T1Gestellung_ATB, gstm_BezugsNrSumA, gstm_LKWKennzeichen, gstm_GesamtColli, gstm_GesamtGewicht} rowtblGestellungsmitteilungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGestellungsmitteilungRow) Return rowtblGestellungsmitteilungRow End Function _ Public Function FindBygstm_id(ByVal gstm_id As Integer) As tblGestellungsmitteilungRow Return CType(Me.Rows.Find(New Object() {gstm_id}),tblGestellungsmitteilungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGestellungsmitteilungDataTable = CType(MyBase.Clone,tblGestellungsmitteilungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGestellungsmitteilungDataTable() End Function _ Friend Sub InitVars() Me.columngstm_id = MyBase.Columns("gstm_id") Me.columngstm_AvisoId = MyBase.Columns("gstm_AvisoId") Me.columngstm_T1Gestellung_ATB = MyBase.Columns("gstm_T1Gestellung_ATB") Me.columngstm_BezugsNrSumA = MyBase.Columns("gstm_BezugsNrSumA") Me.columngstm_LKWKennzeichen = MyBase.Columns("gstm_LKWKennzeichen") Me.columngstm_GesamtColli = MyBase.Columns("gstm_GesamtColli") Me.columngstm_GesamtGewicht = MyBase.Columns("gstm_GesamtGewicht") End Sub _ Private Sub InitClass() Me.columngstm_id = New Global.System.Data.DataColumn("gstm_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstm_id) Me.columngstm_AvisoId = New Global.System.Data.DataColumn("gstm_AvisoId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstm_AvisoId) Me.columngstm_T1Gestellung_ATB = New Global.System.Data.DataColumn("gstm_T1Gestellung_ATB", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstm_T1Gestellung_ATB) Me.columngstm_BezugsNrSumA = New Global.System.Data.DataColumn("gstm_BezugsNrSumA", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstm_BezugsNrSumA) Me.columngstm_LKWKennzeichen = New Global.System.Data.DataColumn("gstm_LKWKennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstm_LKWKennzeichen) Me.columngstm_GesamtColli = New Global.System.Data.DataColumn("gstm_GesamtColli", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstm_GesamtColli) Me.columngstm_GesamtGewicht = New Global.System.Data.DataColumn("gstm_GesamtGewicht", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstm_GesamtGewicht) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columngstm_id}, true)) Me.columngstm_id.AutoIncrement = true Me.columngstm_id.AutoIncrementSeed = -1 Me.columngstm_id.AutoIncrementStep = -1 Me.columngstm_id.AllowDBNull = false Me.columngstm_id.ReadOnly = true Me.columngstm_id.Unique = true Me.columngstm_AvisoId.AllowDBNull = false Me.columngstm_T1Gestellung_ATB.MaxLength = 200 Me.columngstm_BezugsNrSumA.AllowDBNull = false Me.columngstm_BezugsNrSumA.MaxLength = 200 Me.columngstm_LKWKennzeichen.AllowDBNull = false Me.columngstm_LKWKennzeichen.MaxLength = 200 Me.columngstm_GesamtColli.AllowDBNull = false Me.columngstm_GesamtColli.MaxLength = 200 Me.columngstm_GesamtGewicht.AllowDBNull = false Me.columngstm_GesamtGewicht.MaxLength = 200 End Sub _ Public Function NewtblGestellungsmitteilungRow() As tblGestellungsmitteilungRow Return CType(Me.NewRow,tblGestellungsmitteilungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGestellungsmitteilungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGestellungsmitteilungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGestellungsmitteilungRowChangedEvent) Is Nothing) Then RaiseEvent tblGestellungsmitteilungRowChanged(Me, New tblGestellungsmitteilungRowChangeEvent(CType(e.Row,tblGestellungsmitteilungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGestellungsmitteilungRowChangingEvent) Is Nothing) Then RaiseEvent tblGestellungsmitteilungRowChanging(Me, New tblGestellungsmitteilungRowChangeEvent(CType(e.Row,tblGestellungsmitteilungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGestellungsmitteilungRowDeletedEvent) Is Nothing) Then RaiseEvent tblGestellungsmitteilungRowDeleted(Me, New tblGestellungsmitteilungRowChangeEvent(CType(e.Row,tblGestellungsmitteilungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGestellungsmitteilungRowDeletingEvent) Is Nothing) Then RaiseEvent tblGestellungsmitteilungRowDeleting(Me, New tblGestellungsmitteilungRowChangeEvent(CType(e.Row,tblGestellungsmitteilungRow), e.Action)) End If End Sub _ Public Sub RemovetblGestellungsmitteilungRow(ByVal row As tblGestellungsmitteilungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGestellungsmitteilungDataTable" 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 tblGestellungsmitteilung_PositionenDataTable Inherits Global.System.Data.TypedTableBase(Of tblGestellungsmitteilung_PositionenRow) Private columngstmp_id As Global.System.Data.DataColumn Private columngstmp_GstmID As Global.System.Data.DataColumn Private columngstmp_SendungID As Global.System.Data.DataColumn Private columngstmp_T1Nr As Global.System.Data.DataColumn Private columngstmp_AvisoID As Global.System.Data.DataColumn Private columngstmp_Abfertigungsart As Global.System.Data.DataColumn Private columngstmp_Abfertigungsart_ID As Global.System.Data.DataColumn Private columngstmp_Empfaenger As Global.System.Data.DataColumn Private columngstmp_Bemerkung As Global.System.Data.DataColumn Private columngstmp_FilialenNr As Global.System.Data.DataColumn Private columngstmp_AbfertigungsNr As Global.System.Data.DataColumn Private columngstmp_UnterNr As Global.System.Data.DataColumn Private columngstmp_Colli As Global.System.Data.DataColumn Private columngstmp_Gewicht As Global.System.Data.DataColumn Private columngstmp_Warenbezeichnung As Global.System.Data.DataColumn Private columngstmp_Absender As Global.System.Data.DataColumn Private columngstmp_ATANr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGestellungsmitteilung_Positionen" 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 gstmp_idColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_id End Get End Property _ Public ReadOnly Property gstmp_GstmIDColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_GstmID End Get End Property _ Public ReadOnly Property gstmp_SendungIDColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_SendungID End Get End Property _ Public ReadOnly Property gstmp_T1NrColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_T1Nr End Get End Property _ Public ReadOnly Property gstmp_AvisoIDColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_AvisoID End Get End Property _ Public ReadOnly Property gstmp_AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_Abfertigungsart End Get End Property _ Public ReadOnly Property gstmp_Abfertigungsart_IDColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_Abfertigungsart_ID End Get End Property _ Public ReadOnly Property gstmp_EmpfaengerColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_Empfaenger End Get End Property _ Public ReadOnly Property gstmp_BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_Bemerkung End Get End Property _ Public ReadOnly Property gstmp_FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_FilialenNr End Get End Property _ Public ReadOnly Property gstmp_AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_AbfertigungsNr End Get End Property _ Public ReadOnly Property gstmp_UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_UnterNr End Get End Property _ Public ReadOnly Property gstmp_ColliColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_Colli End Get End Property _ Public ReadOnly Property gstmp_GewichtColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_Gewicht End Get End Property _ Public ReadOnly Property gstmp_WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_Warenbezeichnung End Get End Property _ Public ReadOnly Property gstmp_AbsenderColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_Absender End Get End Property _ Public ReadOnly Property gstmp_ATANrColumn() As Global.System.Data.DataColumn Get Return Me.columngstmp_ATANr 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 tblGestellungsmitteilung_PositionenRow Get Return CType(Me.Rows(index),tblGestellungsmitteilung_PositionenRow) End Get End Property _ Public Event tblGestellungsmitteilung_PositionenRowChanging As tblGestellungsmitteilung_PositionenRowChangeEventHandler _ Public Event tblGestellungsmitteilung_PositionenRowChanged As tblGestellungsmitteilung_PositionenRowChangeEventHandler _ Public Event tblGestellungsmitteilung_PositionenRowDeleting As tblGestellungsmitteilung_PositionenRowChangeEventHandler _ Public Event tblGestellungsmitteilung_PositionenRowDeleted As tblGestellungsmitteilung_PositionenRowChangeEventHandler _ Public Overloads Sub AddtblGestellungsmitteilung_PositionenRow(ByVal row As tblGestellungsmitteilung_PositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGestellungsmitteilung_PositionenRow( _ ByVal gstmp_GstmID As Integer, _ ByVal gstmp_SendungID As Integer, _ ByVal gstmp_T1Nr As Integer, _ ByVal gstmp_AvisoID As Integer, _ ByVal gstmp_Abfertigungsart As String, _ ByVal gstmp_Abfertigungsart_ID As Integer, _ ByVal gstmp_Empfaenger As String, _ ByVal gstmp_Bemerkung As String, _ ByVal gstmp_FilialenNr As Short, _ ByVal gstmp_AbfertigungsNr As Integer, _ ByVal gstmp_UnterNr As Short, _ ByVal gstmp_Colli As String, _ ByVal gstmp_Gewicht As String, _ ByVal gstmp_Warenbezeichnung As String, _ ByVal gstmp_Absender As String, _ ByVal gstmp_ATANr As String) As tblGestellungsmitteilung_PositionenRow Dim rowtblGestellungsmitteilung_PositionenRow As tblGestellungsmitteilung_PositionenRow = CType(Me.NewRow,tblGestellungsmitteilung_PositionenRow) Dim columnValuesArray() As Object = New Object() {Nothing, gstmp_GstmID, gstmp_SendungID, gstmp_T1Nr, gstmp_AvisoID, gstmp_Abfertigungsart, gstmp_Abfertigungsart_ID, gstmp_Empfaenger, gstmp_Bemerkung, gstmp_FilialenNr, gstmp_AbfertigungsNr, gstmp_UnterNr, gstmp_Colli, gstmp_Gewicht, gstmp_Warenbezeichnung, gstmp_Absender, gstmp_ATANr} rowtblGestellungsmitteilung_PositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGestellungsmitteilung_PositionenRow) Return rowtblGestellungsmitteilung_PositionenRow End Function _ Public Function FindBygstmp_id(ByVal gstmp_id As Integer) As tblGestellungsmitteilung_PositionenRow Return CType(Me.Rows.Find(New Object() {gstmp_id}),tblGestellungsmitteilung_PositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGestellungsmitteilung_PositionenDataTable = CType(MyBase.Clone,tblGestellungsmitteilung_PositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGestellungsmitteilung_PositionenDataTable() End Function _ Friend Sub InitVars() Me.columngstmp_id = MyBase.Columns("gstmp_id") Me.columngstmp_GstmID = MyBase.Columns("gstmp_GstmID") Me.columngstmp_SendungID = MyBase.Columns("gstmp_SendungID") Me.columngstmp_T1Nr = MyBase.Columns("gstmp_T1Nr") Me.columngstmp_AvisoID = MyBase.Columns("gstmp_AvisoID") Me.columngstmp_Abfertigungsart = MyBase.Columns("gstmp_Abfertigungsart") Me.columngstmp_Abfertigungsart_ID = MyBase.Columns("gstmp_Abfertigungsart_ID") Me.columngstmp_Empfaenger = MyBase.Columns("gstmp_Empfaenger") Me.columngstmp_Bemerkung = MyBase.Columns("gstmp_Bemerkung") Me.columngstmp_FilialenNr = MyBase.Columns("gstmp_FilialenNr") Me.columngstmp_AbfertigungsNr = MyBase.Columns("gstmp_AbfertigungsNr") Me.columngstmp_UnterNr = MyBase.Columns("gstmp_UnterNr") Me.columngstmp_Colli = MyBase.Columns("gstmp_Colli") Me.columngstmp_Gewicht = MyBase.Columns("gstmp_Gewicht") Me.columngstmp_Warenbezeichnung = MyBase.Columns("gstmp_Warenbezeichnung") Me.columngstmp_Absender = MyBase.Columns("gstmp_Absender") Me.columngstmp_ATANr = MyBase.Columns("gstmp_ATANr") End Sub _ Private Sub InitClass() Me.columngstmp_id = New Global.System.Data.DataColumn("gstmp_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_id) Me.columngstmp_GstmID = New Global.System.Data.DataColumn("gstmp_GstmID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_GstmID) Me.columngstmp_SendungID = New Global.System.Data.DataColumn("gstmp_SendungID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_SendungID) Me.columngstmp_T1Nr = New Global.System.Data.DataColumn("gstmp_T1Nr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_T1Nr) Me.columngstmp_AvisoID = New Global.System.Data.DataColumn("gstmp_AvisoID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_AvisoID) Me.columngstmp_Abfertigungsart = New Global.System.Data.DataColumn("gstmp_Abfertigungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_Abfertigungsart) Me.columngstmp_Abfertigungsart_ID = New Global.System.Data.DataColumn("gstmp_Abfertigungsart_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_Abfertigungsart_ID) Me.columngstmp_Empfaenger = New Global.System.Data.DataColumn("gstmp_Empfaenger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_Empfaenger) Me.columngstmp_Bemerkung = New Global.System.Data.DataColumn("gstmp_Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_Bemerkung) Me.columngstmp_FilialenNr = New Global.System.Data.DataColumn("gstmp_FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_FilialenNr) Me.columngstmp_AbfertigungsNr = New Global.System.Data.DataColumn("gstmp_AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_AbfertigungsNr) Me.columngstmp_UnterNr = New Global.System.Data.DataColumn("gstmp_UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_UnterNr) Me.columngstmp_Colli = New Global.System.Data.DataColumn("gstmp_Colli", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_Colli) Me.columngstmp_Gewicht = New Global.System.Data.DataColumn("gstmp_Gewicht", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_Gewicht) Me.columngstmp_Warenbezeichnung = New Global.System.Data.DataColumn("gstmp_Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_Warenbezeichnung) Me.columngstmp_Absender = New Global.System.Data.DataColumn("gstmp_Absender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_Absender) Me.columngstmp_ATANr = New Global.System.Data.DataColumn("gstmp_ATANr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngstmp_ATANr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columngstmp_id}, true)) Me.columngstmp_id.AutoIncrement = true Me.columngstmp_id.AutoIncrementSeed = -1 Me.columngstmp_id.AutoIncrementStep = -1 Me.columngstmp_id.AllowDBNull = false Me.columngstmp_id.ReadOnly = true Me.columngstmp_id.Unique = true Me.columngstmp_GstmID.AllowDBNull = false Me.columngstmp_AvisoID.AllowDBNull = false Me.columngstmp_Abfertigungsart.AllowDBNull = false Me.columngstmp_Abfertigungsart.MaxLength = 50 Me.columngstmp_Empfaenger.AllowDBNull = false Me.columngstmp_Empfaenger.MaxLength = 200 Me.columngstmp_Bemerkung.AllowDBNull = false Me.columngstmp_Bemerkung.MaxLength = 500 Me.columngstmp_Colli.AllowDBNull = false Me.columngstmp_Colli.MaxLength = 50 Me.columngstmp_Gewicht.AllowDBNull = false Me.columngstmp_Gewicht.MaxLength = 50 Me.columngstmp_Warenbezeichnung.AllowDBNull = false Me.columngstmp_Warenbezeichnung.MaxLength = 500 Me.columngstmp_Absender.AllowDBNull = false Me.columngstmp_Absender.MaxLength = 200 Me.columngstmp_ATANr.AllowDBNull = false Me.columngstmp_ATANr.MaxLength = 500 End Sub _ Public Function NewtblGestellungsmitteilung_PositionenRow() As tblGestellungsmitteilung_PositionenRow Return CType(Me.NewRow,tblGestellungsmitteilung_PositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGestellungsmitteilung_PositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGestellungsmitteilung_PositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGestellungsmitteilung_PositionenRowChangedEvent) Is Nothing) Then RaiseEvent tblGestellungsmitteilung_PositionenRowChanged(Me, New tblGestellungsmitteilung_PositionenRowChangeEvent(CType(e.Row,tblGestellungsmitteilung_PositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGestellungsmitteilung_PositionenRowChangingEvent) Is Nothing) Then RaiseEvent tblGestellungsmitteilung_PositionenRowChanging(Me, New tblGestellungsmitteilung_PositionenRowChangeEvent(CType(e.Row,tblGestellungsmitteilung_PositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGestellungsmitteilung_PositionenRowDeletedEvent) Is Nothing) Then RaiseEvent tblGestellungsmitteilung_PositionenRowDeleted(Me, New tblGestellungsmitteilung_PositionenRowChangeEvent(CType(e.Row,tblGestellungsmitteilung_PositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGestellungsmitteilung_PositionenRowDeletingEvent) Is Nothing) Then RaiseEvent tblGestellungsmitteilung_PositionenRowDeleting(Me, New tblGestellungsmitteilung_PositionenRowChangeEvent(CType(e.Row,tblGestellungsmitteilung_PositionenRow), e.Action)) End If End Sub _ Public Sub RemovetblGestellungsmitteilung_PositionenRow(ByVal row As tblGestellungsmitteilung_PositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGestellungsmitteilung_PositionenDataTable" 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 tblGOBOXBestellungenDataTable Inherits Global.System.Data.TypedTableBase(Of tblGOBOXBestellungenRow) Private columngb_ID As Global.System.Data.DataColumn Private columngb_bestelldatum As Global.System.Data.DataColumn Private columngb_bestellNr As Global.System.Data.DataColumn Private columngb_adressNr As Global.System.Data.DataColumn Private columngb_transactionTyp As Global.System.Data.DataColumn Private columngb_company1 As Global.System.Data.DataColumn Private columngb_company2 As Global.System.Data.DataColumn Private columngb_companyStreet As Global.System.Data.DataColumn Private columngb_companyStreetNr As Global.System.Data.DataColumn Private columngb_companyPostalcode As Global.System.Data.DataColumn Private columngb_companyCity As Global.System.Data.DataColumn Private columngb_companyCountry As Global.System.Data.DataColumn Private columngb_companyCountryISO As Global.System.Data.DataColumn Private columngb_companyTel As Global.System.Data.DataColumn Private columngb_companyFax As Global.System.Data.DataColumn Private columngb_salutation As Global.System.Data.DataColumn Private columngb_title As Global.System.Data.DataColumn Private columngb_firstname As Global.System.Data.DataColumn Private columngb_lastname As Global.System.Data.DataColumn Private columngb_email As Global.System.Data.DataColumn Private columngb_personLanguage As Global.System.Data.DataColumn Private columngb_licensePlate As Global.System.Data.DataColumn Private columngb_licensePlateNat As Global.System.Data.DataColumn Private columngb_vehicleTyp As Global.System.Data.DataColumn Private columngb_Axles As Global.System.Data.DataColumn Private columngb_CardNum As Global.System.Data.DataColumn Private columngb_CardValidMonth As Global.System.Data.DataColumn Private columngb_CardValidYear As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGOBOXBestellungen" 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 gb_IDColumn() As Global.System.Data.DataColumn Get Return Me.columngb_ID End Get End Property _ Public ReadOnly Property gb_bestelldatumColumn() As Global.System.Data.DataColumn Get Return Me.columngb_bestelldatum End Get End Property _ Public ReadOnly Property gb_bestellNrColumn() As Global.System.Data.DataColumn Get Return Me.columngb_bestellNr End Get End Property _ Public ReadOnly Property gb_adressNrColumn() As Global.System.Data.DataColumn Get Return Me.columngb_adressNr End Get End Property _ Public ReadOnly Property gb_transactionTypColumn() As Global.System.Data.DataColumn Get Return Me.columngb_transactionTyp End Get End Property _ Public ReadOnly Property gb_company1Column() As Global.System.Data.DataColumn Get Return Me.columngb_company1 End Get End Property _ Public ReadOnly Property gb_company2Column() As Global.System.Data.DataColumn Get Return Me.columngb_company2 End Get End Property _ Public ReadOnly Property gb_companyStreetColumn() As Global.System.Data.DataColumn Get Return Me.columngb_companyStreet End Get End Property _ Public ReadOnly Property gb_companyStreetNrColumn() As Global.System.Data.DataColumn Get Return Me.columngb_companyStreetNr End Get End Property _ Public ReadOnly Property gb_companyPostalcodeColumn() As Global.System.Data.DataColumn Get Return Me.columngb_companyPostalcode End Get End Property _ Public ReadOnly Property gb_companyCityColumn() As Global.System.Data.DataColumn Get Return Me.columngb_companyCity End Get End Property _ Public ReadOnly Property gb_companyCountryColumn() As Global.System.Data.DataColumn Get Return Me.columngb_companyCountry End Get End Property _ Public ReadOnly Property gb_companyCountryISOColumn() As Global.System.Data.DataColumn Get Return Me.columngb_companyCountryISO End Get End Property _ Public ReadOnly Property gb_companyTelColumn() As Global.System.Data.DataColumn Get Return Me.columngb_companyTel End Get End Property _ Public ReadOnly Property gb_companyFaxColumn() As Global.System.Data.DataColumn Get Return Me.columngb_companyFax End Get End Property _ Public ReadOnly Property gb_salutationColumn() As Global.System.Data.DataColumn Get Return Me.columngb_salutation End Get End Property _ Public ReadOnly Property gb_titleColumn() As Global.System.Data.DataColumn Get Return Me.columngb_title End Get End Property _ Public ReadOnly Property gb_firstnameColumn() As Global.System.Data.DataColumn Get Return Me.columngb_firstname End Get End Property _ Public ReadOnly Property gb_lastnameColumn() As Global.System.Data.DataColumn Get Return Me.columngb_lastname End Get End Property _ Public ReadOnly Property gb_emailColumn() As Global.System.Data.DataColumn Get Return Me.columngb_email End Get End Property _ Public ReadOnly Property gb_personLanguageColumn() As Global.System.Data.DataColumn Get Return Me.columngb_personLanguage End Get End Property _ Public ReadOnly Property gb_licensePlateColumn() As Global.System.Data.DataColumn Get Return Me.columngb_licensePlate End Get End Property _ Public ReadOnly Property gb_licensePlateNatColumn() As Global.System.Data.DataColumn Get Return Me.columngb_licensePlateNat End Get End Property _ Public ReadOnly Property gb_vehicleTypColumn() As Global.System.Data.DataColumn Get Return Me.columngb_vehicleTyp End Get End Property _ Public ReadOnly Property gb_AxlesColumn() As Global.System.Data.DataColumn Get Return Me.columngb_Axles End Get End Property _ Public ReadOnly Property gb_CardNumColumn() As Global.System.Data.DataColumn Get Return Me.columngb_CardNum End Get End Property _ Public ReadOnly Property gb_CardValidMonthColumn() As Global.System.Data.DataColumn Get Return Me.columngb_CardValidMonth End Get End Property _ Public ReadOnly Property gb_CardValidYearColumn() As Global.System.Data.DataColumn Get Return Me.columngb_CardValidYear 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 tblGOBOXBestellungenRow Get Return CType(Me.Rows(index),tblGOBOXBestellungenRow) End Get End Property _ Public Event tblGOBOXBestellungenRowChanging As tblGOBOXBestellungenRowChangeEventHandler _ Public Event tblGOBOXBestellungenRowChanged As tblGOBOXBestellungenRowChangeEventHandler _ Public Event tblGOBOXBestellungenRowDeleting As tblGOBOXBestellungenRowChangeEventHandler _ Public Event tblGOBOXBestellungenRowDeleted As tblGOBOXBestellungenRowChangeEventHandler _ Public Overloads Sub AddtblGOBOXBestellungenRow(ByVal row As tblGOBOXBestellungenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGOBOXBestellungenRow( _ ByVal gb_ID As Integer, _ ByVal gb_bestelldatum As Date, _ ByVal gb_bestellNr As Integer, _ ByVal gb_adressNr As Integer, _ ByVal gb_transactionTyp As String, _ ByVal gb_company1 As String, _ ByVal gb_company2 As String, _ ByVal gb_companyStreet As String, _ ByVal gb_companyStreetNr As String, _ ByVal gb_companyPostalcode As String, _ ByVal gb_companyCity As String, _ ByVal gb_companyCountry As String, _ ByVal gb_companyCountryISO As String, _ ByVal gb_companyTel As String, _ ByVal gb_companyFax As String, _ ByVal gb_salutation As String, _ ByVal gb_title As String, _ ByVal gb_firstname As String, _ ByVal gb_lastname As String, _ ByVal gb_email As String, _ ByVal gb_personLanguage As String, _ ByVal gb_licensePlate As String, _ ByVal gb_licensePlateNat As String, _ ByVal gb_vehicleTyp As String, _ ByVal gb_Axles As Integer, _ ByVal gb_CardNum As String, _ ByVal gb_CardValidMonth As Integer, _ ByVal gb_CardValidYear As Integer) As tblGOBOXBestellungenRow Dim rowtblGOBOXBestellungenRow As tblGOBOXBestellungenRow = CType(Me.NewRow,tblGOBOXBestellungenRow) Dim columnValuesArray() As Object = New Object() {gb_ID, gb_bestelldatum, gb_bestellNr, gb_adressNr, gb_transactionTyp, gb_company1, gb_company2, gb_companyStreet, gb_companyStreetNr, gb_companyPostalcode, gb_companyCity, gb_companyCountry, gb_companyCountryISO, gb_companyTel, gb_companyFax, gb_salutation, gb_title, gb_firstname, gb_lastname, gb_email, gb_personLanguage, gb_licensePlate, gb_licensePlateNat, gb_vehicleTyp, gb_Axles, gb_CardNum, gb_CardValidMonth, gb_CardValidYear} rowtblGOBOXBestellungenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGOBOXBestellungenRow) Return rowtblGOBOXBestellungenRow End Function _ Public Function FindBygb_ID(ByVal gb_ID As Integer) As tblGOBOXBestellungenRow Return CType(Me.Rows.Find(New Object() {gb_ID}),tblGOBOXBestellungenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGOBOXBestellungenDataTable = CType(MyBase.Clone,tblGOBOXBestellungenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGOBOXBestellungenDataTable() End Function _ Friend Sub InitVars() Me.columngb_ID = MyBase.Columns("gb_ID") Me.columngb_bestelldatum = MyBase.Columns("gb_bestelldatum") Me.columngb_bestellNr = MyBase.Columns("gb_bestellNr") Me.columngb_adressNr = MyBase.Columns("gb_adressNr") Me.columngb_transactionTyp = MyBase.Columns("gb_transactionTyp") Me.columngb_company1 = MyBase.Columns("gb_company1") Me.columngb_company2 = MyBase.Columns("gb_company2") Me.columngb_companyStreet = MyBase.Columns("gb_companyStreet") Me.columngb_companyStreetNr = MyBase.Columns("gb_companyStreetNr") Me.columngb_companyPostalcode = MyBase.Columns("gb_companyPostalcode") Me.columngb_companyCity = MyBase.Columns("gb_companyCity") Me.columngb_companyCountry = MyBase.Columns("gb_companyCountry") Me.columngb_companyCountryISO = MyBase.Columns("gb_companyCountryISO") Me.columngb_companyTel = MyBase.Columns("gb_companyTel") Me.columngb_companyFax = MyBase.Columns("gb_companyFax") Me.columngb_salutation = MyBase.Columns("gb_salutation") Me.columngb_title = MyBase.Columns("gb_title") Me.columngb_firstname = MyBase.Columns("gb_firstname") Me.columngb_lastname = MyBase.Columns("gb_lastname") Me.columngb_email = MyBase.Columns("gb_email") Me.columngb_personLanguage = MyBase.Columns("gb_personLanguage") Me.columngb_licensePlate = MyBase.Columns("gb_licensePlate") Me.columngb_licensePlateNat = MyBase.Columns("gb_licensePlateNat") Me.columngb_vehicleTyp = MyBase.Columns("gb_vehicleTyp") Me.columngb_Axles = MyBase.Columns("gb_Axles") Me.columngb_CardNum = MyBase.Columns("gb_CardNum") Me.columngb_CardValidMonth = MyBase.Columns("gb_CardValidMonth") Me.columngb_CardValidYear = MyBase.Columns("gb_CardValidYear") End Sub _ Private Sub InitClass() Me.columngb_ID = New Global.System.Data.DataColumn("gb_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_ID) Me.columngb_bestelldatum = New Global.System.Data.DataColumn("gb_bestelldatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_bestelldatum) Me.columngb_bestellNr = New Global.System.Data.DataColumn("gb_bestellNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_bestellNr) Me.columngb_adressNr = New Global.System.Data.DataColumn("gb_adressNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_adressNr) Me.columngb_transactionTyp = New Global.System.Data.DataColumn("gb_transactionTyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_transactionTyp) Me.columngb_company1 = New Global.System.Data.DataColumn("gb_company1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_company1) Me.columngb_company2 = New Global.System.Data.DataColumn("gb_company2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_company2) Me.columngb_companyStreet = New Global.System.Data.DataColumn("gb_companyStreet", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_companyStreet) Me.columngb_companyStreetNr = New Global.System.Data.DataColumn("gb_companyStreetNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_companyStreetNr) Me.columngb_companyPostalcode = New Global.System.Data.DataColumn("gb_companyPostalcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_companyPostalcode) Me.columngb_companyCity = New Global.System.Data.DataColumn("gb_companyCity", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_companyCity) Me.columngb_companyCountry = New Global.System.Data.DataColumn("gb_companyCountry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_companyCountry) Me.columngb_companyCountryISO = New Global.System.Data.DataColumn("gb_companyCountryISO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_companyCountryISO) Me.columngb_companyTel = New Global.System.Data.DataColumn("gb_companyTel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_companyTel) Me.columngb_companyFax = New Global.System.Data.DataColumn("gb_companyFax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_companyFax) Me.columngb_salutation = New Global.System.Data.DataColumn("gb_salutation", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_salutation) Me.columngb_title = New Global.System.Data.DataColumn("gb_title", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_title) Me.columngb_firstname = New Global.System.Data.DataColumn("gb_firstname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_firstname) Me.columngb_lastname = New Global.System.Data.DataColumn("gb_lastname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_lastname) Me.columngb_email = New Global.System.Data.DataColumn("gb_email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_email) Me.columngb_personLanguage = New Global.System.Data.DataColumn("gb_personLanguage", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_personLanguage) Me.columngb_licensePlate = New Global.System.Data.DataColumn("gb_licensePlate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_licensePlate) Me.columngb_licensePlateNat = New Global.System.Data.DataColumn("gb_licensePlateNat", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_licensePlateNat) Me.columngb_vehicleTyp = New Global.System.Data.DataColumn("gb_vehicleTyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_vehicleTyp) Me.columngb_Axles = New Global.System.Data.DataColumn("gb_Axles", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_Axles) Me.columngb_CardNum = New Global.System.Data.DataColumn("gb_CardNum", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_CardNum) Me.columngb_CardValidMonth = New Global.System.Data.DataColumn("gb_CardValidMonth", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_CardValidMonth) Me.columngb_CardValidYear = New Global.System.Data.DataColumn("gb_CardValidYear", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngb_CardValidYear) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columngb_ID}, true)) Me.columngb_ID.AllowDBNull = false Me.columngb_ID.Unique = true Me.columngb_transactionTyp.MaxLength = 2 Me.columngb_company1.MaxLength = 50 Me.columngb_company2.MaxLength = 50 Me.columngb_companyStreet.MaxLength = 50 Me.columngb_companyStreetNr.MaxLength = 10 Me.columngb_companyPostalcode.MaxLength = 10 Me.columngb_companyCity.MaxLength = 40 Me.columngb_companyCountry.MaxLength = 40 Me.columngb_companyCountryISO.MaxLength = 2 Me.columngb_companyTel.MaxLength = 30 Me.columngb_companyFax.MaxLength = 30 Me.columngb_salutation.MaxLength = 4 Me.columngb_title.MaxLength = 20 Me.columngb_firstname.MaxLength = 40 Me.columngb_lastname.MaxLength = 40 Me.columngb_email.MaxLength = 50 Me.columngb_personLanguage.MaxLength = 15 Me.columngb_licensePlate.MaxLength = 10 Me.columngb_licensePlateNat.MaxLength = 2 Me.columngb_vehicleTyp.MaxLength = 3 Me.columngb_CardNum.MaxLength = 20 End Sub _ Public Function NewtblGOBOXBestellungenRow() As tblGOBOXBestellungenRow Return CType(Me.NewRow,tblGOBOXBestellungenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGOBOXBestellungenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGOBOXBestellungenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGOBOXBestellungenRowChangedEvent) Is Nothing) Then RaiseEvent tblGOBOXBestellungenRowChanged(Me, New tblGOBOXBestellungenRowChangeEvent(CType(e.Row,tblGOBOXBestellungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGOBOXBestellungenRowChangingEvent) Is Nothing) Then RaiseEvent tblGOBOXBestellungenRowChanging(Me, New tblGOBOXBestellungenRowChangeEvent(CType(e.Row,tblGOBOXBestellungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGOBOXBestellungenRowDeletedEvent) Is Nothing) Then RaiseEvent tblGOBOXBestellungenRowDeleted(Me, New tblGOBOXBestellungenRowChangeEvent(CType(e.Row,tblGOBOXBestellungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGOBOXBestellungenRowDeletingEvent) Is Nothing) Then RaiseEvent tblGOBOXBestellungenRowDeleting(Me, New tblGOBOXBestellungenRowChangeEvent(CType(e.Row,tblGOBOXBestellungenRow), e.Action)) End If End Sub _ Public Sub RemovetblGOBOXBestellungenRow(ByVal row As tblGOBOXBestellungenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGOBOXBestellungenDataTable" 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 tblGVMSDataTable Inherits Global.System.Data.TypedTableBase(Of tblGVMSRow) Private columngvms_id As Global.System.Data.DataColumn Private columngvms_datetime As Global.System.Data.DataColumn Private columngvms_firma As Global.System.Data.DataColumn Private columngvms_notification_id As Global.System.Data.DataColumn Private columngvms_notification_boxid As Global.System.Data.DataColumn Private columngvms_status As Global.System.Data.DataColumn Private columngvms_GMR As Global.System.Data.DataColumn Private columngvms_gmr_creationDate As Global.System.Data.DataColumn Private columngvms_gmr_statusVersion As Global.System.Data.DataColumn Private columngvms_routeId As Global.System.Data.DataColumn Private columngvms_direction As Global.System.Data.DataColumn Private columngvms_vehicleRegNum As Global.System.Data.DataColumn Private columngvms_trailorRegNum As Global.System.Data.DataColumn Private columngvms_isUnaccompanied As Global.System.Data.DataColumn Private columngvms_empty As Global.System.Data.DataColumn Private columngvms_emptyisOwn As Global.System.Data.DataColumn Private columngvms_locateDateTimeOfDeparture As Global.System.Data.DataColumn Private columngvms_SS As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGVMS" 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 gvms_idColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_id End Get End Property _ Public ReadOnly Property gvms_datetimeColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_datetime End Get End Property _ Public ReadOnly Property gvms_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_firma End Get End Property _ Public ReadOnly Property gvms_notification_idColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_notification_id End Get End Property _ Public ReadOnly Property gvms_notification_boxidColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_notification_boxid End Get End Property _ Public ReadOnly Property gvms_statusColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_status End Get End Property _ Public ReadOnly Property gvms_GMRColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_GMR End Get End Property _ Public ReadOnly Property gvms_gmr_creationDateColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_gmr_creationDate End Get End Property _ Public ReadOnly Property gvms_gmr_statusVersionColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_gmr_statusVersion End Get End Property _ Public ReadOnly Property gvms_routeIdColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_routeId End Get End Property _ Public ReadOnly Property gvms_directionColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_direction End Get End Property _ Public ReadOnly Property gvms_vehicleRegNumColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_vehicleRegNum End Get End Property _ Public ReadOnly Property gvms_trailorRegNumColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_trailorRegNum End Get End Property _ Public ReadOnly Property gvms_isUnaccompaniedColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_isUnaccompanied End Get End Property _ Public ReadOnly Property gvms_emptyColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_empty End Get End Property _ Public ReadOnly Property gvms_emptyisOwnColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_emptyisOwn End Get End Property _ Public ReadOnly Property gvms_locateDateTimeOfDepartureColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_locateDateTimeOfDeparture End Get End Property _ Public ReadOnly Property gvms_SSColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_SS 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 tblGVMSRow Get Return CType(Me.Rows(index),tblGVMSRow) End Get End Property _ Public Event tblGVMSRowChanging As tblGVMSRowChangeEventHandler _ Public Event tblGVMSRowChanged As tblGVMSRowChangeEventHandler _ Public Event tblGVMSRowDeleting As tblGVMSRowChangeEventHandler _ Public Event tblGVMSRowDeleted As tblGVMSRowChangeEventHandler _ Public Overloads Sub AddtblGVMSRow(ByVal row As tblGVMSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGVMSRow( _ ByVal gvms_datetime As Date, _ ByVal gvms_firma As String, _ ByVal gvms_notification_id As String, _ ByVal gvms_notification_boxid As String, _ ByVal gvms_status As String, _ ByVal gvms_GMR As String, _ ByVal gvms_gmr_creationDate As Date, _ ByVal gvms_gmr_statusVersion As String, _ ByVal gvms_routeId As Integer, _ ByVal gvms_direction As String, _ ByVal gvms_vehicleRegNum As String, _ ByVal gvms_trailorRegNum As String, _ ByVal gvms_isUnaccompanied As Boolean, _ ByVal gvms_empty As Boolean, _ ByVal gvms_emptyisOwn As Boolean, _ ByVal gvms_locateDateTimeOfDeparture As Date, _ ByVal gvms_SS As String) As tblGVMSRow Dim rowtblGVMSRow As tblGVMSRow = CType(Me.NewRow,tblGVMSRow) Dim columnValuesArray() As Object = New Object() {Nothing, gvms_datetime, gvms_firma, gvms_notification_id, gvms_notification_boxid, gvms_status, gvms_GMR, gvms_gmr_creationDate, gvms_gmr_statusVersion, gvms_routeId, gvms_direction, gvms_vehicleRegNum, gvms_trailorRegNum, gvms_isUnaccompanied, gvms_empty, gvms_emptyisOwn, gvms_locateDateTimeOfDeparture, gvms_SS} rowtblGVMSRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGVMSRow) Return rowtblGVMSRow End Function _ Public Function FindBygvms_id(ByVal gvms_id As Integer) As tblGVMSRow Return CType(Me.Rows.Find(New Object() {gvms_id}),tblGVMSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGVMSDataTable = CType(MyBase.Clone,tblGVMSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGVMSDataTable() End Function _ Friend Sub InitVars() Me.columngvms_id = MyBase.Columns("gvms_id") Me.columngvms_datetime = MyBase.Columns("gvms_datetime") Me.columngvms_firma = MyBase.Columns("gvms_firma") Me.columngvms_notification_id = MyBase.Columns("gvms_notification_id") Me.columngvms_notification_boxid = MyBase.Columns("gvms_notification_boxid") Me.columngvms_status = MyBase.Columns("gvms_status") Me.columngvms_GMR = MyBase.Columns("gvms_GMR") Me.columngvms_gmr_creationDate = MyBase.Columns("gvms_gmr_creationDate") Me.columngvms_gmr_statusVersion = MyBase.Columns("gvms_gmr_statusVersion") Me.columngvms_routeId = MyBase.Columns("gvms_routeId") Me.columngvms_direction = MyBase.Columns("gvms_direction") Me.columngvms_vehicleRegNum = MyBase.Columns("gvms_vehicleRegNum") Me.columngvms_trailorRegNum = MyBase.Columns("gvms_trailorRegNum") Me.columngvms_isUnaccompanied = MyBase.Columns("gvms_isUnaccompanied") Me.columngvms_empty = MyBase.Columns("gvms_empty") Me.columngvms_emptyisOwn = MyBase.Columns("gvms_emptyisOwn") Me.columngvms_locateDateTimeOfDeparture = MyBase.Columns("gvms_locateDateTimeOfDeparture") Me.columngvms_SS = MyBase.Columns("gvms_SS") End Sub _ Private Sub InitClass() Me.columngvms_id = New Global.System.Data.DataColumn("gvms_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_id) Me.columngvms_datetime = New Global.System.Data.DataColumn("gvms_datetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_datetime) Me.columngvms_firma = New Global.System.Data.DataColumn("gvms_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_firma) Me.columngvms_notification_id = New Global.System.Data.DataColumn("gvms_notification_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_notification_id) Me.columngvms_notification_boxid = New Global.System.Data.DataColumn("gvms_notification_boxid", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_notification_boxid) Me.columngvms_status = New Global.System.Data.DataColumn("gvms_status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_status) Me.columngvms_GMR = New Global.System.Data.DataColumn("gvms_GMR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_GMR) Me.columngvms_gmr_creationDate = New Global.System.Data.DataColumn("gvms_gmr_creationDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_gmr_creationDate) Me.columngvms_gmr_statusVersion = New Global.System.Data.DataColumn("gvms_gmr_statusVersion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_gmr_statusVersion) Me.columngvms_routeId = New Global.System.Data.DataColumn("gvms_routeId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_routeId) Me.columngvms_direction = New Global.System.Data.DataColumn("gvms_direction", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_direction) Me.columngvms_vehicleRegNum = New Global.System.Data.DataColumn("gvms_vehicleRegNum", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_vehicleRegNum) Me.columngvms_trailorRegNum = New Global.System.Data.DataColumn("gvms_trailorRegNum", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_trailorRegNum) Me.columngvms_isUnaccompanied = New Global.System.Data.DataColumn("gvms_isUnaccompanied", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_isUnaccompanied) Me.columngvms_empty = New Global.System.Data.DataColumn("gvms_empty", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_empty) Me.columngvms_emptyisOwn = New Global.System.Data.DataColumn("gvms_emptyisOwn", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_emptyisOwn) Me.columngvms_locateDateTimeOfDeparture = New Global.System.Data.DataColumn("gvms_locateDateTimeOfDeparture", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_locateDateTimeOfDeparture) Me.columngvms_SS = New Global.System.Data.DataColumn("gvms_SS", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_SS) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columngvms_id}, true)) Me.columngvms_id.AutoIncrement = true Me.columngvms_id.AutoIncrementSeed = -1 Me.columngvms_id.AutoIncrementStep = -1 Me.columngvms_id.AllowDBNull = false Me.columngvms_id.ReadOnly = true Me.columngvms_id.Unique = true Me.columngvms_datetime.AllowDBNull = false Me.columngvms_firma.AllowDBNull = false Me.columngvms_firma.MaxLength = 10 Me.columngvms_notification_id.MaxLength = 200 Me.columngvms_notification_boxid.MaxLength = 200 Me.columngvms_status.MaxLength = 10 Me.columngvms_GMR.MaxLength = 200 Me.columngvms_gmr_statusVersion.MaxLength = 10 Me.columngvms_routeId.AllowDBNull = false Me.columngvms_direction.AllowDBNull = false Me.columngvms_direction.MaxLength = 50 Me.columngvms_vehicleRegNum.MaxLength = 200 Me.columngvms_trailorRegNum.MaxLength = 200 Me.columngvms_SS.MaxLength = 200 End Sub _ Public Function NewtblGVMSRow() As tblGVMSRow Return CType(Me.NewRow,tblGVMSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGVMSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGVMSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGVMSRowChangedEvent) Is Nothing) Then RaiseEvent tblGVMSRowChanged(Me, New tblGVMSRowChangeEvent(CType(e.Row,tblGVMSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGVMSRowChangingEvent) Is Nothing) Then RaiseEvent tblGVMSRowChanging(Me, New tblGVMSRowChangeEvent(CType(e.Row,tblGVMSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGVMSRowDeletedEvent) Is Nothing) Then RaiseEvent tblGVMSRowDeleted(Me, New tblGVMSRowChangeEvent(CType(e.Row,tblGVMSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGVMSRowDeletingEvent) Is Nothing) Then RaiseEvent tblGVMSRowDeleting(Me, New tblGVMSRowChangeEvent(CType(e.Row,tblGVMSRow), e.Action)) End If End Sub _ Public Sub RemovetblGVMSRow(ByVal row As tblGVMSRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGVMSDataTable" 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 tblGVMS_CarriersDataTable Inherits Global.System.Data.TypedTableBase(Of tblGVMS_CarriersRow) Private columncarrierId As Global.System.Data.DataColumn Private columncarrierName As Global.System.Data.DataColumn Private columncountryCode As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGVMS_Carriers" 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 carrierIdColumn() As Global.System.Data.DataColumn Get Return Me.columncarrierId End Get End Property _ Public ReadOnly Property carrierNameColumn() As Global.System.Data.DataColumn Get Return Me.columncarrierName End Get End Property _ Public ReadOnly Property countryCodeColumn() As Global.System.Data.DataColumn Get Return Me.columncountryCode 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 tblGVMS_CarriersRow Get Return CType(Me.Rows(index),tblGVMS_CarriersRow) End Get End Property _ Public Event tblGVMS_CarriersRowChanging As tblGVMS_CarriersRowChangeEventHandler _ Public Event tblGVMS_CarriersRowChanged As tblGVMS_CarriersRowChangeEventHandler _ Public Event tblGVMS_CarriersRowDeleting As tblGVMS_CarriersRowChangeEventHandler _ Public Event tblGVMS_CarriersRowDeleted As tblGVMS_CarriersRowChangeEventHandler _ Public Overloads Sub AddtblGVMS_CarriersRow(ByVal row As tblGVMS_CarriersRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGVMS_CarriersRow(ByVal carrierId As Integer, ByVal carrierName As String, ByVal countryCode As String) As tblGVMS_CarriersRow Dim rowtblGVMS_CarriersRow As tblGVMS_CarriersRow = CType(Me.NewRow,tblGVMS_CarriersRow) Dim columnValuesArray() As Object = New Object() {carrierId, carrierName, countryCode} rowtblGVMS_CarriersRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGVMS_CarriersRow) Return rowtblGVMS_CarriersRow End Function _ Public Function FindBycarrierId(ByVal carrierId As Integer) As tblGVMS_CarriersRow Return CType(Me.Rows.Find(New Object() {carrierId}),tblGVMS_CarriersRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGVMS_CarriersDataTable = CType(MyBase.Clone,tblGVMS_CarriersDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGVMS_CarriersDataTable() End Function _ Friend Sub InitVars() Me.columncarrierId = MyBase.Columns("carrierId") Me.columncarrierName = MyBase.Columns("carrierName") Me.columncountryCode = MyBase.Columns("countryCode") End Sub _ Private Sub InitClass() Me.columncarrierId = New Global.System.Data.DataColumn("carrierId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncarrierId) Me.columncarrierName = New Global.System.Data.DataColumn("carrierName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncarrierName) Me.columncountryCode = New Global.System.Data.DataColumn("countryCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncountryCode) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncarrierId}, true)) Me.columncarrierId.AllowDBNull = false Me.columncarrierId.Unique = true Me.columncarrierName.AllowDBNull = false Me.columncarrierName.MaxLength = 200 Me.columncountryCode.AllowDBNull = false Me.columncountryCode.MaxLength = 200 End Sub _ Public Function NewtblGVMS_CarriersRow() As tblGVMS_CarriersRow Return CType(Me.NewRow,tblGVMS_CarriersRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGVMS_CarriersRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGVMS_CarriersRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGVMS_CarriersRowChangedEvent) Is Nothing) Then RaiseEvent tblGVMS_CarriersRowChanged(Me, New tblGVMS_CarriersRowChangeEvent(CType(e.Row,tblGVMS_CarriersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGVMS_CarriersRowChangingEvent) Is Nothing) Then RaiseEvent tblGVMS_CarriersRowChanging(Me, New tblGVMS_CarriersRowChangeEvent(CType(e.Row,tblGVMS_CarriersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGVMS_CarriersRowDeletedEvent) Is Nothing) Then RaiseEvent tblGVMS_CarriersRowDeleted(Me, New tblGVMS_CarriersRowChangeEvent(CType(e.Row,tblGVMS_CarriersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGVMS_CarriersRowDeletingEvent) Is Nothing) Then RaiseEvent tblGVMS_CarriersRowDeleting(Me, New tblGVMS_CarriersRowChangeEvent(CType(e.Row,tblGVMS_CarriersRow), e.Action)) End If End Sub _ Public Sub RemovetblGVMS_CarriersRow(ByVal row As tblGVMS_CarriersRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGVMS_CarriersDataTable" 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 tblGVMS_PortsDataTable Inherits Global.System.Data.TypedTableBase(Of tblGVMS_PortsRow) Private columnportId As Global.System.Data.DataColumn Private columnportDescription As Global.System.Data.DataColumn Private columnportRegion As Global.System.Data.DataColumn Private columnportEffectiveFrom As Global.System.Data.DataColumn Private columnchiefPortCode As Global.System.Data.DataColumn Private columncdsPortCode As Global.System.Data.DataColumn Private columnofficeOfTransitCustomsOfficeCode As Global.System.Data.DataColumn Private columnportEffectiveTo As Global.System.Data.DataColumn Private columnportCountryCode As Global.System.Data.DataColumn Private columnisOperatingArrivedExportsProcess As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGVMS_Ports" 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 portIdColumn() As Global.System.Data.DataColumn Get Return Me.columnportId End Get End Property _ Public ReadOnly Property portDescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnportDescription End Get End Property _ Public ReadOnly Property portRegionColumn() As Global.System.Data.DataColumn Get Return Me.columnportRegion End Get End Property _ Public ReadOnly Property portEffectiveFromColumn() As Global.System.Data.DataColumn Get Return Me.columnportEffectiveFrom End Get End Property _ Public ReadOnly Property chiefPortCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnchiefPortCode End Get End Property _ Public ReadOnly Property cdsPortCodeColumn() As Global.System.Data.DataColumn Get Return Me.columncdsPortCode End Get End Property _ Public ReadOnly Property officeOfTransitCustomsOfficeCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnofficeOfTransitCustomsOfficeCode End Get End Property _ Public ReadOnly Property portEffectiveToColumn() As Global.System.Data.DataColumn Get Return Me.columnportEffectiveTo End Get End Property _ Public ReadOnly Property portCountryCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnportCountryCode End Get End Property _ Public ReadOnly Property isOperatingArrivedExportsProcessColumn() As Global.System.Data.DataColumn Get Return Me.columnisOperatingArrivedExportsProcess 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 tblGVMS_PortsRow Get Return CType(Me.Rows(index),tblGVMS_PortsRow) End Get End Property _ Public Event tblGVMS_PortsRowChanging As tblGVMS_PortsRowChangeEventHandler _ Public Event tblGVMS_PortsRowChanged As tblGVMS_PortsRowChangeEventHandler _ Public Event tblGVMS_PortsRowDeleting As tblGVMS_PortsRowChangeEventHandler _ Public Event tblGVMS_PortsRowDeleted As tblGVMS_PortsRowChangeEventHandler _ Public Overloads Sub AddtblGVMS_PortsRow(ByVal row As tblGVMS_PortsRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGVMS_PortsRow(ByVal portId As Integer, ByVal portDescription As String, ByVal portRegion As String, ByVal portEffectiveFrom As Date, ByVal chiefPortCode As String, ByVal cdsPortCode As String, ByVal officeOfTransitCustomsOfficeCode As String, ByVal portEffectiveTo As Date, ByVal portCountryCode As String, ByVal isOperatingArrivedExportsProcess As Boolean) As tblGVMS_PortsRow Dim rowtblGVMS_PortsRow As tblGVMS_PortsRow = CType(Me.NewRow,tblGVMS_PortsRow) Dim columnValuesArray() As Object = New Object() {portId, portDescription, portRegion, portEffectiveFrom, chiefPortCode, cdsPortCode, officeOfTransitCustomsOfficeCode, portEffectiveTo, portCountryCode, isOperatingArrivedExportsProcess} rowtblGVMS_PortsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGVMS_PortsRow) Return rowtblGVMS_PortsRow End Function _ Public Function FindByportId(ByVal portId As Integer) As tblGVMS_PortsRow Return CType(Me.Rows.Find(New Object() {portId}),tblGVMS_PortsRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGVMS_PortsDataTable = CType(MyBase.Clone,tblGVMS_PortsDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGVMS_PortsDataTable() End Function _ Friend Sub InitVars() Me.columnportId = MyBase.Columns("portId") Me.columnportDescription = MyBase.Columns("portDescription") Me.columnportRegion = MyBase.Columns("portRegion") Me.columnportEffectiveFrom = MyBase.Columns("portEffectiveFrom") Me.columnchiefPortCode = MyBase.Columns("chiefPortCode") Me.columncdsPortCode = MyBase.Columns("cdsPortCode") Me.columnofficeOfTransitCustomsOfficeCode = MyBase.Columns("officeOfTransitCustomsOfficeCode") Me.columnportEffectiveTo = MyBase.Columns("portEffectiveTo") Me.columnportCountryCode = MyBase.Columns("portCountryCode") Me.columnisOperatingArrivedExportsProcess = MyBase.Columns("isOperatingArrivedExportsProcess") End Sub _ Private Sub InitClass() Me.columnportId = New Global.System.Data.DataColumn("portId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnportId) Me.columnportDescription = New Global.System.Data.DataColumn("portDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnportDescription) Me.columnportRegion = New Global.System.Data.DataColumn("portRegion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnportRegion) Me.columnportEffectiveFrom = New Global.System.Data.DataColumn("portEffectiveFrom", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnportEffectiveFrom) Me.columnchiefPortCode = New Global.System.Data.DataColumn("chiefPortCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnchiefPortCode) Me.columncdsPortCode = New Global.System.Data.DataColumn("cdsPortCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncdsPortCode) Me.columnofficeOfTransitCustomsOfficeCode = New Global.System.Data.DataColumn("officeOfTransitCustomsOfficeCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnofficeOfTransitCustomsOfficeCode) Me.columnportEffectiveTo = New Global.System.Data.DataColumn("portEffectiveTo", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnportEffectiveTo) Me.columnportCountryCode = New Global.System.Data.DataColumn("portCountryCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnportCountryCode) Me.columnisOperatingArrivedExportsProcess = New Global.System.Data.DataColumn("isOperatingArrivedExportsProcess", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnisOperatingArrivedExportsProcess) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnportId}, true)) Me.columnportId.AllowDBNull = false Me.columnportId.Unique = true Me.columnportDescription.AllowDBNull = false Me.columnportDescription.MaxLength = 200 Me.columnportRegion.MaxLength = 200 Me.columnchiefPortCode.MaxLength = 200 Me.columncdsPortCode.MaxLength = 200 Me.columnofficeOfTransitCustomsOfficeCode.MaxLength = 200 Me.columnportCountryCode.MaxLength = 2 End Sub _ Public Function NewtblGVMS_PortsRow() As tblGVMS_PortsRow Return CType(Me.NewRow,tblGVMS_PortsRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGVMS_PortsRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGVMS_PortsRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGVMS_PortsRowChangedEvent) Is Nothing) Then RaiseEvent tblGVMS_PortsRowChanged(Me, New tblGVMS_PortsRowChangeEvent(CType(e.Row,tblGVMS_PortsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGVMS_PortsRowChangingEvent) Is Nothing) Then RaiseEvent tblGVMS_PortsRowChanging(Me, New tblGVMS_PortsRowChangeEvent(CType(e.Row,tblGVMS_PortsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGVMS_PortsRowDeletedEvent) Is Nothing) Then RaiseEvent tblGVMS_PortsRowDeleted(Me, New tblGVMS_PortsRowChangeEvent(CType(e.Row,tblGVMS_PortsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGVMS_PortsRowDeletingEvent) Is Nothing) Then RaiseEvent tblGVMS_PortsRowDeleting(Me, New tblGVMS_PortsRowChangeEvent(CType(e.Row,tblGVMS_PortsRow), e.Action)) End If End Sub _ Public Sub RemovetblGVMS_PortsRow(ByVal row As tblGVMS_PortsRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGVMS_PortsDataTable" 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 tblGVMS_PosDataTable Inherits Global.System.Data.TypedTableBase(Of tblGVMS_PosRow) Private columngvmsPos_id As Global.System.Data.DataColumn Private columngvmsPos_gvmsId As Global.System.Data.DataColumn Private columngvms_art As Global.System.Data.DataColumn Private columngvms_RefNum As Global.System.Data.DataColumn Private columngvms_SS As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGVMS_Pos" 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 gvmsPos_idColumn() As Global.System.Data.DataColumn Get Return Me.columngvmsPos_id End Get End Property _ Public ReadOnly Property gvmsPos_gvmsIdColumn() As Global.System.Data.DataColumn Get Return Me.columngvmsPos_gvmsId End Get End Property _ Public ReadOnly Property gvms_artColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_art End Get End Property _ Public ReadOnly Property gvms_RefNumColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_RefNum End Get End Property _ Public ReadOnly Property gvms_SSColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_SS 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 tblGVMS_PosRow Get Return CType(Me.Rows(index),tblGVMS_PosRow) End Get End Property _ Public Event tblGVMS_PosRowChanging As tblGVMS_PosRowChangeEventHandler _ Public Event tblGVMS_PosRowChanged As tblGVMS_PosRowChangeEventHandler _ Public Event tblGVMS_PosRowDeleting As tblGVMS_PosRowChangeEventHandler _ Public Event tblGVMS_PosRowDeleted As tblGVMS_PosRowChangeEventHandler _ Public Overloads Sub AddtblGVMS_PosRow(ByVal row As tblGVMS_PosRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGVMS_PosRow(ByVal gvmsPos_gvmsId As Integer, ByVal gvms_art As String, ByVal gvms_RefNum As String, ByVal gvms_SS As String) As tblGVMS_PosRow Dim rowtblGVMS_PosRow As tblGVMS_PosRow = CType(Me.NewRow,tblGVMS_PosRow) Dim columnValuesArray() As Object = New Object() {Nothing, gvmsPos_gvmsId, gvms_art, gvms_RefNum, gvms_SS} rowtblGVMS_PosRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGVMS_PosRow) Return rowtblGVMS_PosRow End Function _ Public Function FindBygvmsPos_id(ByVal gvmsPos_id As Integer) As tblGVMS_PosRow Return CType(Me.Rows.Find(New Object() {gvmsPos_id}),tblGVMS_PosRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGVMS_PosDataTable = CType(MyBase.Clone,tblGVMS_PosDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGVMS_PosDataTable() End Function _ Friend Sub InitVars() Me.columngvmsPos_id = MyBase.Columns("gvmsPos_id") Me.columngvmsPos_gvmsId = MyBase.Columns("gvmsPos_gvmsId") Me.columngvms_art = MyBase.Columns("gvms_art") Me.columngvms_RefNum = MyBase.Columns("gvms_RefNum") Me.columngvms_SS = MyBase.Columns("gvms_SS") End Sub _ Private Sub InitClass() Me.columngvmsPos_id = New Global.System.Data.DataColumn("gvmsPos_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvmsPos_id) Me.columngvmsPos_gvmsId = New Global.System.Data.DataColumn("gvmsPos_gvmsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvmsPos_gvmsId) Me.columngvms_art = New Global.System.Data.DataColumn("gvms_art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_art) Me.columngvms_RefNum = New Global.System.Data.DataColumn("gvms_RefNum", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_RefNum) Me.columngvms_SS = New Global.System.Data.DataColumn("gvms_SS", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_SS) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columngvmsPos_id}, true)) Me.columngvmsPos_id.AutoIncrement = true Me.columngvmsPos_id.AutoIncrementSeed = -1 Me.columngvmsPos_id.AutoIncrementStep = -1 Me.columngvmsPos_id.AllowDBNull = false Me.columngvmsPos_id.ReadOnly = true Me.columngvmsPos_id.Unique = true Me.columngvmsPos_gvmsId.AllowDBNull = false Me.columngvms_art.AllowDBNull = false Me.columngvms_art.MaxLength = 10 Me.columngvms_RefNum.AllowDBNull = false Me.columngvms_RefNum.MaxLength = 100 Me.columngvms_SS.MaxLength = 100 End Sub _ Public Function NewtblGVMS_PosRow() As tblGVMS_PosRow Return CType(Me.NewRow,tblGVMS_PosRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGVMS_PosRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGVMS_PosRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGVMS_PosRowChangedEvent) Is Nothing) Then RaiseEvent tblGVMS_PosRowChanged(Me, New tblGVMS_PosRowChangeEvent(CType(e.Row,tblGVMS_PosRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGVMS_PosRowChangingEvent) Is Nothing) Then RaiseEvent tblGVMS_PosRowChanging(Me, New tblGVMS_PosRowChangeEvent(CType(e.Row,tblGVMS_PosRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGVMS_PosRowDeletedEvent) Is Nothing) Then RaiseEvent tblGVMS_PosRowDeleted(Me, New tblGVMS_PosRowChangeEvent(CType(e.Row,tblGVMS_PosRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGVMS_PosRowDeletingEvent) Is Nothing) Then RaiseEvent tblGVMS_PosRowDeleting(Me, New tblGVMS_PosRowChangeEvent(CType(e.Row,tblGVMS_PosRow), e.Action)) End If End Sub _ Public Sub RemovetblGVMS_PosRow(ByVal row As tblGVMS_PosRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGVMS_PosDataTable" 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 tblGVMS_RoutesDataTable Inherits Global.System.Data.TypedTableBase(Of tblGVMS_RoutesRow) Private columnrouteId As Global.System.Data.DataColumn Private columnrouteDirection As Global.System.Data.DataColumn Private columnrouteEffectiveFrom As Global.System.Data.DataColumn Private columndeparturePortId As Global.System.Data.DataColumn Private columnarrivalPortId As Global.System.Data.DataColumn Private columncarrierId As Global.System.Data.DataColumn Private columnrouteEffectiveTo As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblGVMS_Routes" 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 routeIdColumn() As Global.System.Data.DataColumn Get Return Me.columnrouteId End Get End Property _ Public ReadOnly Property routeDirectionColumn() As Global.System.Data.DataColumn Get Return Me.columnrouteDirection End Get End Property _ Public ReadOnly Property routeEffectiveFromColumn() As Global.System.Data.DataColumn Get Return Me.columnrouteEffectiveFrom End Get End Property _ Public ReadOnly Property departurePortIdColumn() As Global.System.Data.DataColumn Get Return Me.columndeparturePortId End Get End Property _ Public ReadOnly Property arrivalPortIdColumn() As Global.System.Data.DataColumn Get Return Me.columnarrivalPortId End Get End Property _ Public ReadOnly Property carrierIdColumn() As Global.System.Data.DataColumn Get Return Me.columncarrierId End Get End Property _ Public ReadOnly Property routeEffectiveToColumn() As Global.System.Data.DataColumn Get Return Me.columnrouteEffectiveTo 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 tblGVMS_RoutesRow Get Return CType(Me.Rows(index),tblGVMS_RoutesRow) End Get End Property _ Public Event tblGVMS_RoutesRowChanging As tblGVMS_RoutesRowChangeEventHandler _ Public Event tblGVMS_RoutesRowChanged As tblGVMS_RoutesRowChangeEventHandler _ Public Event tblGVMS_RoutesRowDeleting As tblGVMS_RoutesRowChangeEventHandler _ Public Event tblGVMS_RoutesRowDeleted As tblGVMS_RoutesRowChangeEventHandler _ Public Overloads Sub AddtblGVMS_RoutesRow(ByVal row As tblGVMS_RoutesRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblGVMS_RoutesRow(ByVal routeId As Integer, ByVal routeDirection As String, ByVal routeEffectiveFrom As Date, ByVal departurePortId As String, ByVal arrivalPortId As String, ByVal carrierId As String, ByVal routeEffectiveTo As Date) As tblGVMS_RoutesRow Dim rowtblGVMS_RoutesRow As tblGVMS_RoutesRow = CType(Me.NewRow,tblGVMS_RoutesRow) Dim columnValuesArray() As Object = New Object() {routeId, routeDirection, routeEffectiveFrom, departurePortId, arrivalPortId, carrierId, routeEffectiveTo} rowtblGVMS_RoutesRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblGVMS_RoutesRow) Return rowtblGVMS_RoutesRow End Function _ Public Function FindByrouteId(ByVal routeId As Integer) As tblGVMS_RoutesRow Return CType(Me.Rows.Find(New Object() {routeId}),tblGVMS_RoutesRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblGVMS_RoutesDataTable = CType(MyBase.Clone,tblGVMS_RoutesDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblGVMS_RoutesDataTable() End Function _ Friend Sub InitVars() Me.columnrouteId = MyBase.Columns("routeId") Me.columnrouteDirection = MyBase.Columns("routeDirection") Me.columnrouteEffectiveFrom = MyBase.Columns("routeEffectiveFrom") Me.columndeparturePortId = MyBase.Columns("departurePortId") Me.columnarrivalPortId = MyBase.Columns("arrivalPortId") Me.columncarrierId = MyBase.Columns("carrierId") Me.columnrouteEffectiveTo = MyBase.Columns("routeEffectiveTo") End Sub _ Private Sub InitClass() Me.columnrouteId = New Global.System.Data.DataColumn("routeId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrouteId) Me.columnrouteDirection = New Global.System.Data.DataColumn("routeDirection", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrouteDirection) Me.columnrouteEffectiveFrom = New Global.System.Data.DataColumn("routeEffectiveFrom", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrouteEffectiveFrom) Me.columndeparturePortId = New Global.System.Data.DataColumn("departurePortId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeparturePortId) Me.columnarrivalPortId = New Global.System.Data.DataColumn("arrivalPortId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnarrivalPortId) Me.columncarrierId = New Global.System.Data.DataColumn("carrierId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncarrierId) Me.columnrouteEffectiveTo = New Global.System.Data.DataColumn("routeEffectiveTo", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrouteEffectiveTo) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrouteId}, true)) Me.columnrouteId.AllowDBNull = false Me.columnrouteId.Unique = true Me.columnrouteDirection.AllowDBNull = false Me.columnrouteDirection.MaxLength = 200 Me.columndeparturePortId.MaxLength = 200 Me.columnarrivalPortId.MaxLength = 200 Me.columncarrierId.MaxLength = 200 End Sub _ Public Function NewtblGVMS_RoutesRow() As tblGVMS_RoutesRow Return CType(Me.NewRow,tblGVMS_RoutesRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblGVMS_RoutesRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblGVMS_RoutesRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblGVMS_RoutesRowChangedEvent) Is Nothing) Then RaiseEvent tblGVMS_RoutesRowChanged(Me, New tblGVMS_RoutesRowChangeEvent(CType(e.Row,tblGVMS_RoutesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblGVMS_RoutesRowChangingEvent) Is Nothing) Then RaiseEvent tblGVMS_RoutesRowChanging(Me, New tblGVMS_RoutesRowChangeEvent(CType(e.Row,tblGVMS_RoutesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblGVMS_RoutesRowDeletedEvent) Is Nothing) Then RaiseEvent tblGVMS_RoutesRowDeleted(Me, New tblGVMS_RoutesRowChangeEvent(CType(e.Row,tblGVMS_RoutesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblGVMS_RoutesRowDeletingEvent) Is Nothing) Then RaiseEvent tblGVMS_RoutesRowDeleting(Me, New tblGVMS_RoutesRowChangeEvent(CType(e.Row,tblGVMS_RoutesRow), e.Action)) End If End Sub _ Public Sub RemovetblGVMS_RoutesRow(ByVal row As tblGVMS_RoutesRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblGVMS_RoutesDataTable" 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 tblHandlingssaetzeInternDataTable Inherits Global.System.Data.TypedTableBase(Of tblHandlingssaetzeInternRow) Private columnhs_Bezeichnung As Global.System.Data.DataColumn Private columnhs_RgVon As Global.System.Data.DataColumn Private columnhs_RgAn As Global.System.Data.DataColumn Private columnhs_Abfertigungsart As Global.System.Data.DataColumn Private columnhs_Preis As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblHandlingssaetzeIntern" 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 hs_BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnhs_Bezeichnung End Get End Property _ Public ReadOnly Property hs_RgVonColumn() As Global.System.Data.DataColumn Get Return Me.columnhs_RgVon End Get End Property _ Public ReadOnly Property hs_RgAnColumn() As Global.System.Data.DataColumn Get Return Me.columnhs_RgAn End Get End Property _ Public ReadOnly Property hs_AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnhs_Abfertigungsart End Get End Property _ Public ReadOnly Property hs_PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnhs_Preis 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 tblHandlingssaetzeInternRow Get Return CType(Me.Rows(index),tblHandlingssaetzeInternRow) End Get End Property _ Public Event tblHandlingssaetzeInternRowChanging As tblHandlingssaetzeInternRowChangeEventHandler _ Public Event tblHandlingssaetzeInternRowChanged As tblHandlingssaetzeInternRowChangeEventHandler _ Public Event tblHandlingssaetzeInternRowDeleting As tblHandlingssaetzeInternRowChangeEventHandler _ Public Event tblHandlingssaetzeInternRowDeleted As tblHandlingssaetzeInternRowChangeEventHandler _ Public Overloads Sub AddtblHandlingssaetzeInternRow(ByVal row As tblHandlingssaetzeInternRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblHandlingssaetzeInternRow(ByVal hs_Bezeichnung As String, ByVal hs_RgVon As String, ByVal hs_RgAn As String, ByVal hs_Abfertigungsart As Integer, ByVal hs_Preis As Double) As tblHandlingssaetzeInternRow Dim rowtblHandlingssaetzeInternRow As tblHandlingssaetzeInternRow = CType(Me.NewRow,tblHandlingssaetzeInternRow) Dim columnValuesArray() As Object = New Object() {hs_Bezeichnung, hs_RgVon, hs_RgAn, hs_Abfertigungsart, hs_Preis} rowtblHandlingssaetzeInternRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblHandlingssaetzeInternRow) Return rowtblHandlingssaetzeInternRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblHandlingssaetzeInternDataTable = CType(MyBase.Clone,tblHandlingssaetzeInternDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblHandlingssaetzeInternDataTable() End Function _ Friend Sub InitVars() Me.columnhs_Bezeichnung = MyBase.Columns("hs_Bezeichnung") Me.columnhs_RgVon = MyBase.Columns("hs_RgVon") Me.columnhs_RgAn = MyBase.Columns("hs_RgAn") Me.columnhs_Abfertigungsart = MyBase.Columns("hs_Abfertigungsart") Me.columnhs_Preis = MyBase.Columns("hs_Preis") End Sub _ Private Sub InitClass() Me.columnhs_Bezeichnung = New Global.System.Data.DataColumn("hs_Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnhs_Bezeichnung) Me.columnhs_RgVon = New Global.System.Data.DataColumn("hs_RgVon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnhs_RgVon) Me.columnhs_RgAn = New Global.System.Data.DataColumn("hs_RgAn", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnhs_RgAn) Me.columnhs_Abfertigungsart = New Global.System.Data.DataColumn("hs_Abfertigungsart", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnhs_Abfertigungsart) Me.columnhs_Preis = New Global.System.Data.DataColumn("hs_Preis", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnhs_Preis) Me.columnhs_Bezeichnung.MaxLength = 200 Me.columnhs_RgVon.AllowDBNull = false Me.columnhs_RgVon.MaxLength = 200 Me.columnhs_RgAn.AllowDBNull = false Me.columnhs_RgAn.MaxLength = 10 Me.columnhs_Preis.AllowDBNull = false End Sub _ Public Function NewtblHandlingssaetzeInternRow() As tblHandlingssaetzeInternRow Return CType(Me.NewRow,tblHandlingssaetzeInternRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblHandlingssaetzeInternRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblHandlingssaetzeInternRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblHandlingssaetzeInternRowChangedEvent) Is Nothing) Then RaiseEvent tblHandlingssaetzeInternRowChanged(Me, New tblHandlingssaetzeInternRowChangeEvent(CType(e.Row,tblHandlingssaetzeInternRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblHandlingssaetzeInternRowChangingEvent) Is Nothing) Then RaiseEvent tblHandlingssaetzeInternRowChanging(Me, New tblHandlingssaetzeInternRowChangeEvent(CType(e.Row,tblHandlingssaetzeInternRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblHandlingssaetzeInternRowDeletedEvent) Is Nothing) Then RaiseEvent tblHandlingssaetzeInternRowDeleted(Me, New tblHandlingssaetzeInternRowChangeEvent(CType(e.Row,tblHandlingssaetzeInternRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblHandlingssaetzeInternRowDeletingEvent) Is Nothing) Then RaiseEvent tblHandlingssaetzeInternRowDeleting(Me, New tblHandlingssaetzeInternRowChangeEvent(CType(e.Row,tblHandlingssaetzeInternRow), e.Action)) End If End Sub _ Public Sub RemovetblHandlingssaetzeInternRow(ByVal row As tblHandlingssaetzeInternRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblHandlingssaetzeInternDataTable" 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 tblHistorieDataTable Inherits Global.System.Data.TypedTableBase(Of tblHistorieRow) Private columnComputername As Global.System.Data.DataColumn Private columnBenutzername As Global.System.Data.DataColumn Private columnLogin As Global.System.Data.DataColumn Private columnLogout As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblHistorie" 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 ComputernameColumn() As Global.System.Data.DataColumn Get Return Me.columnComputername End Get End Property _ Public ReadOnly Property BenutzernameColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzername End Get End Property _ Public ReadOnly Property LoginColumn() As Global.System.Data.DataColumn Get Return Me.columnLogin End Get End Property _ Public ReadOnly Property LogoutColumn() As Global.System.Data.DataColumn Get Return Me.columnLogout End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblHistorieRow Get Return CType(Me.Rows(index),tblHistorieRow) End Get End Property _ Public Event tblHistorieRowChanging As tblHistorieRowChangeEventHandler _ Public Event tblHistorieRowChanged As tblHistorieRowChangeEventHandler _ Public Event tblHistorieRowDeleting As tblHistorieRowChangeEventHandler _ Public Event tblHistorieRowDeleted As tblHistorieRowChangeEventHandler _ Public Overloads Sub AddtblHistorieRow(ByVal row As tblHistorieRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblHistorieRow(ByVal Computername As String, ByVal Benutzername As String, ByVal Login As Date, ByVal Logout As Date, ByVal upsize_ts() As Byte) As tblHistorieRow Dim rowtblHistorieRow As tblHistorieRow = CType(Me.NewRow,tblHistorieRow) Dim columnValuesArray() As Object = New Object() {Computername, Benutzername, Login, Logout, upsize_ts} rowtblHistorieRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblHistorieRow) Return rowtblHistorieRow End Function _ Public Function FindByComputernameBenutzernameLogin(ByVal Computername As String, ByVal Benutzername As String, ByVal Login As Date) As tblHistorieRow Return CType(Me.Rows.Find(New Object() {Computername, Benutzername, Login}),tblHistorieRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblHistorieDataTable = CType(MyBase.Clone,tblHistorieDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblHistorieDataTable() End Function _ Friend Sub InitVars() Me.columnComputername = MyBase.Columns("Computername") Me.columnBenutzername = MyBase.Columns("Benutzername") Me.columnLogin = MyBase.Columns("Login") Me.columnLogout = MyBase.Columns("Logout") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnComputername = New Global.System.Data.DataColumn("Computername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComputername) Me.columnBenutzername = New Global.System.Data.DataColumn("Benutzername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzername) Me.columnLogin = New Global.System.Data.DataColumn("Login", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLogin) Me.columnLogout = New Global.System.Data.DataColumn("Logout", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLogout) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnComputername, Me.columnBenutzername, Me.columnLogin}, true)) Me.columnComputername.AllowDBNull = false Me.columnComputername.MaxLength = 15 Me.columnBenutzername.AllowDBNull = false Me.columnBenutzername.MaxLength = 20 Me.columnLogin.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblHistorieRow() As tblHistorieRow Return CType(Me.NewRow,tblHistorieRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblHistorieRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblHistorieRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblHistorieRowChangedEvent) Is Nothing) Then RaiseEvent tblHistorieRowChanged(Me, New tblHistorieRowChangeEvent(CType(e.Row,tblHistorieRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblHistorieRowChangingEvent) Is Nothing) Then RaiseEvent tblHistorieRowChanging(Me, New tblHistorieRowChangeEvent(CType(e.Row,tblHistorieRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblHistorieRowDeletedEvent) Is Nothing) Then RaiseEvent tblHistorieRowDeleted(Me, New tblHistorieRowChangeEvent(CType(e.Row,tblHistorieRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblHistorieRowDeletingEvent) Is Nothing) Then RaiseEvent tblHistorieRowDeleting(Me, New tblHistorieRowChangeEvent(CType(e.Row,tblHistorieRow), e.Action)) End If End Sub _ Public Sub RemovetblHistorieRow(ByVal row As tblHistorieRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblHistorieDataTable" 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 tblIDS_TransaktionenDataTable Inherits Global.System.Data.TypedTableBase(Of tblIDS_TransaktionenRow) Private columnId As Global.System.Data.DataColumn Private columnBC_ID As Global.System.Data.DataColumn Private columnBC_DESCR As Global.System.Data.DataColumn Private columnCLUB_ID As Global.System.Data.DataColumn Private columnCOU_ISO_COD As Global.System.Data.DataColumn Private columnCOU_DESCR As Global.System.Data.DataColumn Private columnCUST_COD As Global.System.Data.DataColumn Private columnCUST_LEVEL As Global.System.Data.DataColumn Private columnCUST_NAME1 As Global.System.Data.DataColumn Private columnCARD_SER_NUM As Global.System.Data.DataColumn Private columnSOU_ISO_COD As Global.System.Data.DataColumn Private columnSOU_DESCR As Global.System.Data.DataColumn Private columnTRS_NUM As Global.System.Data.DataColumn Private columnTRS_VERS_NUM As Global.System.Data.DataColumn Private columnOUT_COD As Global.System.Data.DataColumn Private columnOUT_DESCR As Global.System.Data.DataColumn Private columnOUT_GRP_COD As Global.System.Data.DataColumn Private columnTRS_DATE As Global.System.Data.DataColumn Private columnTOT_QTY As Global.System.Data.DataColumn Private columnPROD_NUM As Global.System.Data.DataColumn Private columnPROD_DESCR As Global.System.Data.DataColumn Private columnSERVICE_PROD_NUM As Global.System.Data.DataColumn Private columnSERVICE_PROD_DESCR As Global.System.Data.DataColumn Private columnSOU_CURR As Global.System.Data.DataColumn Private columnORIG_LIST_PRICE As Global.System.Data.DataColumn Private columnORIG_REBATE As Global.System.Data.DataColumn Private columnORIG_PRICE As Global.System.Data.DataColumn Private columnPLATTS_PRICE As Global.System.Data.DataColumn Private columnSC_BC_RATE As Global.System.Data.DataColumn Private columnSC_IV_BC_AMNT As Global.System.Data.DataColumn Private columnCOU_BENEFICIARY_CURR As Global.System.Data.DataColumn Private columnCO_IV_BC_AMNT As Global.System.Data.DataColumn Private columnEUR_IV_BC_AMNT As Global.System.Data.DataColumn Private columnSC_CO_EXCHRATE As Global.System.Data.DataColumn Private columnSC_EUR_EXCHRATE As Global.System.Data.DataColumn Private columnBC_INVO_DATE As Global.System.Data.DataColumn Private columnINVO_NUM As Global.System.Data.DataColumn Private columnFIXED_OR_TOTAL As Global.System.Data.DataColumn Private columnBC_TYPE As Global.System.Data.DataColumn Private columnCOU_BENEFICIARY As Global.System.Data.DataColumn Private columnCUST_BENEFICIARY As Global.System.Data.DataColumn Private columnLEVEL_BENEFICIARY As Global.System.Data.DataColumn Private columnCUST_GRP_BENEFICIARY As Global.System.Data.DataColumn Private columnImportiert As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblIDS_Transaktionen" 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 BC_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBC_ID End Get End Property _ Public ReadOnly Property BC_DESCRColumn() As Global.System.Data.DataColumn Get Return Me.columnBC_DESCR End Get End Property _ Public ReadOnly Property CLUB_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCLUB_ID End Get End Property _ Public ReadOnly Property COU_ISO_CODColumn() As Global.System.Data.DataColumn Get Return Me.columnCOU_ISO_COD End Get End Property _ Public ReadOnly Property COU_DESCRColumn() As Global.System.Data.DataColumn Get Return Me.columnCOU_DESCR End Get End Property _ Public ReadOnly Property CUST_CODColumn() As Global.System.Data.DataColumn Get Return Me.columnCUST_COD End Get End Property _ Public ReadOnly Property CUST_LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnCUST_LEVEL End Get End Property _ Public ReadOnly Property CUST_NAME1Column() As Global.System.Data.DataColumn Get Return Me.columnCUST_NAME1 End Get End Property _ Public ReadOnly Property CARD_SER_NUMColumn() As Global.System.Data.DataColumn Get Return Me.columnCARD_SER_NUM End Get End Property _ Public ReadOnly Property SOU_ISO_CODColumn() As Global.System.Data.DataColumn Get Return Me.columnSOU_ISO_COD End Get End Property _ Public ReadOnly Property SOU_DESCRColumn() As Global.System.Data.DataColumn Get Return Me.columnSOU_DESCR End Get End Property _ Public ReadOnly Property TRS_NUMColumn() As Global.System.Data.DataColumn Get Return Me.columnTRS_NUM End Get End Property _ Public ReadOnly Property TRS_VERS_NUMColumn() As Global.System.Data.DataColumn Get Return Me.columnTRS_VERS_NUM End Get End Property _ Public ReadOnly Property OUT_CODColumn() As Global.System.Data.DataColumn Get Return Me.columnOUT_COD End Get End Property _ Public ReadOnly Property OUT_DESCRColumn() As Global.System.Data.DataColumn Get Return Me.columnOUT_DESCR End Get End Property _ Public ReadOnly Property OUT_GRP_CODColumn() As Global.System.Data.DataColumn Get Return Me.columnOUT_GRP_COD End Get End Property _ Public ReadOnly Property TRS_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnTRS_DATE End Get End Property _ Public ReadOnly Property TOT_QTYColumn() As Global.System.Data.DataColumn Get Return Me.columnTOT_QTY End Get End Property _ Public ReadOnly Property PROD_NUMColumn() As Global.System.Data.DataColumn Get Return Me.columnPROD_NUM End Get End Property _ Public ReadOnly Property PROD_DESCRColumn() As Global.System.Data.DataColumn Get Return Me.columnPROD_DESCR End Get End Property _ Public ReadOnly Property SERVICE_PROD_NUMColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVICE_PROD_NUM End Get End Property _ Public ReadOnly Property SERVICE_PROD_DESCRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVICE_PROD_DESCR End Get End Property _ Public ReadOnly Property SOU_CURRColumn() As Global.System.Data.DataColumn Get Return Me.columnSOU_CURR End Get End Property _ Public ReadOnly Property ORIG_LIST_PRICEColumn() As Global.System.Data.DataColumn Get Return Me.columnORIG_LIST_PRICE End Get End Property _ Public ReadOnly Property ORIG_REBATEColumn() As Global.System.Data.DataColumn Get Return Me.columnORIG_REBATE End Get End Property _ Public ReadOnly Property ORIG_PRICEColumn() As Global.System.Data.DataColumn Get Return Me.columnORIG_PRICE End Get End Property _ Public ReadOnly Property PLATTS_PRICEColumn() As Global.System.Data.DataColumn Get Return Me.columnPLATTS_PRICE End Get End Property _ Public ReadOnly Property SC_BC_RATEColumn() As Global.System.Data.DataColumn Get Return Me.columnSC_BC_RATE End Get End Property _ Public ReadOnly Property SC_IV_BC_AMNTColumn() As Global.System.Data.DataColumn Get Return Me.columnSC_IV_BC_AMNT End Get End Property _ Public ReadOnly Property COU_BENEFICIARY_CURRColumn() As Global.System.Data.DataColumn Get Return Me.columnCOU_BENEFICIARY_CURR End Get End Property _ Public ReadOnly Property CO_IV_BC_AMNTColumn() As Global.System.Data.DataColumn Get Return Me.columnCO_IV_BC_AMNT End Get End Property _ Public ReadOnly Property EUR_IV_BC_AMNTColumn() As Global.System.Data.DataColumn Get Return Me.columnEUR_IV_BC_AMNT End Get End Property _ Public ReadOnly Property SC_CO_EXCHRATEColumn() As Global.System.Data.DataColumn Get Return Me.columnSC_CO_EXCHRATE End Get End Property _ Public ReadOnly Property SC_EUR_EXCHRATEColumn() As Global.System.Data.DataColumn Get Return Me.columnSC_EUR_EXCHRATE End Get End Property _ Public ReadOnly Property BC_INVO_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnBC_INVO_DATE End Get End Property _ Public ReadOnly Property INVO_NUMColumn() As Global.System.Data.DataColumn Get Return Me.columnINVO_NUM End Get End Property _ Public ReadOnly Property FIXED_OR_TOTALColumn() As Global.System.Data.DataColumn Get Return Me.columnFIXED_OR_TOTAL End Get End Property _ Public ReadOnly Property BC_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnBC_TYPE End Get End Property _ Public ReadOnly Property COU_BENEFICIARYColumn() As Global.System.Data.DataColumn Get Return Me.columnCOU_BENEFICIARY End Get End Property _ Public ReadOnly Property CUST_BENEFICIARYColumn() As Global.System.Data.DataColumn Get Return Me.columnCUST_BENEFICIARY End Get End Property _ Public ReadOnly Property LEVEL_BENEFICIARYColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL_BENEFICIARY End Get End Property _ Public ReadOnly Property CUST_GRP_BENEFICIARYColumn() As Global.System.Data.DataColumn Get Return Me.columnCUST_GRP_BENEFICIARY End Get End Property _ Public ReadOnly Property ImportiertColumn() As Global.System.Data.DataColumn Get Return Me.columnImportiert 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 tblIDS_TransaktionenRow Get Return CType(Me.Rows(index),tblIDS_TransaktionenRow) End Get End Property _ Public Event tblIDS_TransaktionenRowChanging As tblIDS_TransaktionenRowChangeEventHandler _ Public Event tblIDS_TransaktionenRowChanged As tblIDS_TransaktionenRowChangeEventHandler _ Public Event tblIDS_TransaktionenRowDeleting As tblIDS_TransaktionenRowChangeEventHandler _ Public Event tblIDS_TransaktionenRowDeleted As tblIDS_TransaktionenRowChangeEventHandler _ Public Overloads Sub AddtblIDS_TransaktionenRow(ByVal row As tblIDS_TransaktionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblIDS_TransaktionenRow( _ ByVal BC_ID As Integer, _ ByVal BC_DESCR As String, _ ByVal CLUB_ID As Integer, _ ByVal COU_ISO_COD As String, _ ByVal COU_DESCR As String, _ ByVal CUST_COD As String, _ ByVal CUST_LEVEL As Integer, _ ByVal CUST_NAME1 As String, _ ByVal CARD_SER_NUM As String, _ ByVal SOU_ISO_COD As String, _ ByVal SOU_DESCR As String, _ ByVal TRS_NUM As String, _ ByVal TRS_VERS_NUM As String, _ ByVal OUT_COD As String, _ ByVal OUT_DESCR As String, _ ByVal OUT_GRP_COD As String, _ ByVal TRS_DATE As Date, _ ByVal TOT_QTY As Decimal, _ ByVal PROD_NUM As String, _ ByVal PROD_DESCR As String, _ ByVal SERVICE_PROD_NUM As String, _ ByVal SERVICE_PROD_DESCR As String, _ ByVal SOU_CURR As String, _ ByVal ORIG_LIST_PRICE As Decimal, _ ByVal ORIG_REBATE As Decimal, _ ByVal ORIG_PRICE As Decimal, _ ByVal PLATTS_PRICE As Decimal, _ ByVal SC_BC_RATE As Decimal, _ ByVal SC_IV_BC_AMNT As Decimal, _ ByVal COU_BENEFICIARY_CURR As String, _ ByVal CO_IV_BC_AMNT As Decimal, _ ByVal EUR_IV_BC_AMNT As Decimal, _ ByVal SC_CO_EXCHRATE As Decimal, _ ByVal SC_EUR_EXCHRATE As Decimal, _ ByVal BC_INVO_DATE As Date, _ ByVal INVO_NUM As String, _ ByVal FIXED_OR_TOTAL As String, _ ByVal BC_TYPE As String, _ ByVal COU_BENEFICIARY As String, _ ByVal CUST_BENEFICIARY As String, _ ByVal LEVEL_BENEFICIARY As Integer, _ ByVal CUST_GRP_BENEFICIARY As Integer, _ ByVal Importiert As Date) As tblIDS_TransaktionenRow Dim rowtblIDS_TransaktionenRow As tblIDS_TransaktionenRow = CType(Me.NewRow,tblIDS_TransaktionenRow) Dim columnValuesArray() As Object = New Object() {Nothing, BC_ID, BC_DESCR, CLUB_ID, COU_ISO_COD, COU_DESCR, CUST_COD, CUST_LEVEL, CUST_NAME1, CARD_SER_NUM, SOU_ISO_COD, SOU_DESCR, TRS_NUM, TRS_VERS_NUM, OUT_COD, OUT_DESCR, OUT_GRP_COD, TRS_DATE, TOT_QTY, PROD_NUM, PROD_DESCR, SERVICE_PROD_NUM, SERVICE_PROD_DESCR, SOU_CURR, ORIG_LIST_PRICE, ORIG_REBATE, ORIG_PRICE, PLATTS_PRICE, SC_BC_RATE, SC_IV_BC_AMNT, COU_BENEFICIARY_CURR, CO_IV_BC_AMNT, EUR_IV_BC_AMNT, SC_CO_EXCHRATE, SC_EUR_EXCHRATE, BC_INVO_DATE, INVO_NUM, FIXED_OR_TOTAL, BC_TYPE, COU_BENEFICIARY, CUST_BENEFICIARY, LEVEL_BENEFICIARY, CUST_GRP_BENEFICIARY, Importiert} rowtblIDS_TransaktionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblIDS_TransaktionenRow) Return rowtblIDS_TransaktionenRow End Function _ Public Function FindById(ByVal Id As Integer) As tblIDS_TransaktionenRow Return CType(Me.Rows.Find(New Object() {Id}),tblIDS_TransaktionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblIDS_TransaktionenDataTable = CType(MyBase.Clone,tblIDS_TransaktionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblIDS_TransaktionenDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columnBC_ID = MyBase.Columns("BC_ID") Me.columnBC_DESCR = MyBase.Columns("BC_DESCR") Me.columnCLUB_ID = MyBase.Columns("CLUB_ID") Me.columnCOU_ISO_COD = MyBase.Columns("COU_ISO_COD") Me.columnCOU_DESCR = MyBase.Columns("COU_DESCR") Me.columnCUST_COD = MyBase.Columns("CUST_COD") Me.columnCUST_LEVEL = MyBase.Columns("CUST_LEVEL") Me.columnCUST_NAME1 = MyBase.Columns("CUST_NAME1") Me.columnCARD_SER_NUM = MyBase.Columns("CARD_SER_NUM") Me.columnSOU_ISO_COD = MyBase.Columns("SOU_ISO_COD") Me.columnSOU_DESCR = MyBase.Columns("SOU_DESCR") Me.columnTRS_NUM = MyBase.Columns("TRS_NUM") Me.columnTRS_VERS_NUM = MyBase.Columns("TRS_VERS_NUM") Me.columnOUT_COD = MyBase.Columns("OUT_COD") Me.columnOUT_DESCR = MyBase.Columns("OUT_DESCR") Me.columnOUT_GRP_COD = MyBase.Columns("OUT_GRP_COD") Me.columnTRS_DATE = MyBase.Columns("TRS_DATE") Me.columnTOT_QTY = MyBase.Columns("TOT_QTY") Me.columnPROD_NUM = MyBase.Columns("PROD_NUM") Me.columnPROD_DESCR = MyBase.Columns("PROD_DESCR") Me.columnSERVICE_PROD_NUM = MyBase.Columns("SERVICE_PROD_NUM") Me.columnSERVICE_PROD_DESCR = MyBase.Columns("SERVICE_PROD_DESCR") Me.columnSOU_CURR = MyBase.Columns("SOU_CURR") Me.columnORIG_LIST_PRICE = MyBase.Columns("ORIG_LIST_PRICE") Me.columnORIG_REBATE = MyBase.Columns("ORIG_REBATE") Me.columnORIG_PRICE = MyBase.Columns("ORIG_PRICE") Me.columnPLATTS_PRICE = MyBase.Columns("PLATTS_PRICE") Me.columnSC_BC_RATE = MyBase.Columns("SC_BC_RATE") Me.columnSC_IV_BC_AMNT = MyBase.Columns("SC_IV_BC_AMNT") Me.columnCOU_BENEFICIARY_CURR = MyBase.Columns("COU_BENEFICIARY_CURR") Me.columnCO_IV_BC_AMNT = MyBase.Columns("CO_IV_BC_AMNT") Me.columnEUR_IV_BC_AMNT = MyBase.Columns("EUR_IV_BC_AMNT") Me.columnSC_CO_EXCHRATE = MyBase.Columns("SC_CO_EXCHRATE") Me.columnSC_EUR_EXCHRATE = MyBase.Columns("SC_EUR_EXCHRATE") Me.columnBC_INVO_DATE = MyBase.Columns("BC_INVO_DATE") Me.columnINVO_NUM = MyBase.Columns("INVO_NUM") Me.columnFIXED_OR_TOTAL = MyBase.Columns("FIXED_OR_TOTAL") Me.columnBC_TYPE = MyBase.Columns("BC_TYPE") Me.columnCOU_BENEFICIARY = MyBase.Columns("COU_BENEFICIARY") Me.columnCUST_BENEFICIARY = MyBase.Columns("CUST_BENEFICIARY") Me.columnLEVEL_BENEFICIARY = MyBase.Columns("LEVEL_BENEFICIARY") Me.columnCUST_GRP_BENEFICIARY = MyBase.Columns("CUST_GRP_BENEFICIARY") Me.columnImportiert = MyBase.Columns("Importiert") 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.columnBC_ID = New Global.System.Data.DataColumn("BC_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBC_ID) Me.columnBC_DESCR = New Global.System.Data.DataColumn("BC_DESCR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBC_DESCR) Me.columnCLUB_ID = New Global.System.Data.DataColumn("CLUB_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCLUB_ID) Me.columnCOU_ISO_COD = New Global.System.Data.DataColumn("COU_ISO_COD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOU_ISO_COD) Me.columnCOU_DESCR = New Global.System.Data.DataColumn("COU_DESCR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOU_DESCR) Me.columnCUST_COD = New Global.System.Data.DataColumn("CUST_COD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCUST_COD) Me.columnCUST_LEVEL = New Global.System.Data.DataColumn("CUST_LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCUST_LEVEL) Me.columnCUST_NAME1 = New Global.System.Data.DataColumn("CUST_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCUST_NAME1) Me.columnCARD_SER_NUM = New Global.System.Data.DataColumn("CARD_SER_NUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCARD_SER_NUM) Me.columnSOU_ISO_COD = New Global.System.Data.DataColumn("SOU_ISO_COD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSOU_ISO_COD) Me.columnSOU_DESCR = New Global.System.Data.DataColumn("SOU_DESCR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSOU_DESCR) Me.columnTRS_NUM = New Global.System.Data.DataColumn("TRS_NUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTRS_NUM) Me.columnTRS_VERS_NUM = New Global.System.Data.DataColumn("TRS_VERS_NUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTRS_VERS_NUM) Me.columnOUT_COD = New Global.System.Data.DataColumn("OUT_COD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOUT_COD) Me.columnOUT_DESCR = New Global.System.Data.DataColumn("OUT_DESCR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOUT_DESCR) Me.columnOUT_GRP_COD = New Global.System.Data.DataColumn("OUT_GRP_COD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOUT_GRP_COD) Me.columnTRS_DATE = New Global.System.Data.DataColumn("TRS_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTRS_DATE) Me.columnTOT_QTY = New Global.System.Data.DataColumn("TOT_QTY", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTOT_QTY) Me.columnPROD_NUM = New Global.System.Data.DataColumn("PROD_NUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROD_NUM) Me.columnPROD_DESCR = New Global.System.Data.DataColumn("PROD_DESCR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROD_DESCR) Me.columnSERVICE_PROD_NUM = New Global.System.Data.DataColumn("SERVICE_PROD_NUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSERVICE_PROD_NUM) Me.columnSERVICE_PROD_DESCR = New Global.System.Data.DataColumn("SERVICE_PROD_DESCR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSERVICE_PROD_DESCR) Me.columnSOU_CURR = New Global.System.Data.DataColumn("SOU_CURR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSOU_CURR) Me.columnORIG_LIST_PRICE = New Global.System.Data.DataColumn("ORIG_LIST_PRICE", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnORIG_LIST_PRICE) Me.columnORIG_REBATE = New Global.System.Data.DataColumn("ORIG_REBATE", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnORIG_REBATE) Me.columnORIG_PRICE = New Global.System.Data.DataColumn("ORIG_PRICE", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnORIG_PRICE) Me.columnPLATTS_PRICE = New Global.System.Data.DataColumn("PLATTS_PRICE", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLATTS_PRICE) Me.columnSC_BC_RATE = New Global.System.Data.DataColumn("SC_BC_RATE", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSC_BC_RATE) Me.columnSC_IV_BC_AMNT = New Global.System.Data.DataColumn("SC_IV_BC_AMNT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSC_IV_BC_AMNT) Me.columnCOU_BENEFICIARY_CURR = New Global.System.Data.DataColumn("COU_BENEFICIARY_CURR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOU_BENEFICIARY_CURR) Me.columnCO_IV_BC_AMNT = New Global.System.Data.DataColumn("CO_IV_BC_AMNT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCO_IV_BC_AMNT) Me.columnEUR_IV_BC_AMNT = New Global.System.Data.DataColumn("EUR_IV_BC_AMNT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEUR_IV_BC_AMNT) Me.columnSC_CO_EXCHRATE = New Global.System.Data.DataColumn("SC_CO_EXCHRATE", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSC_CO_EXCHRATE) Me.columnSC_EUR_EXCHRATE = New Global.System.Data.DataColumn("SC_EUR_EXCHRATE", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSC_EUR_EXCHRATE) Me.columnBC_INVO_DATE = New Global.System.Data.DataColumn("BC_INVO_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBC_INVO_DATE) Me.columnINVO_NUM = New Global.System.Data.DataColumn("INVO_NUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINVO_NUM) Me.columnFIXED_OR_TOTAL = New Global.System.Data.DataColumn("FIXED_OR_TOTAL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFIXED_OR_TOTAL) Me.columnBC_TYPE = New Global.System.Data.DataColumn("BC_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBC_TYPE) Me.columnCOU_BENEFICIARY = New Global.System.Data.DataColumn("COU_BENEFICIARY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOU_BENEFICIARY) Me.columnCUST_BENEFICIARY = New Global.System.Data.DataColumn("CUST_BENEFICIARY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCUST_BENEFICIARY) Me.columnLEVEL_BENEFICIARY = New Global.System.Data.DataColumn("LEVEL_BENEFICIARY", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLEVEL_BENEFICIARY) Me.columnCUST_GRP_BENEFICIARY = New Global.System.Data.DataColumn("CUST_GRP_BENEFICIARY", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCUST_GRP_BENEFICIARY) Me.columnImportiert = New Global.System.Data.DataColumn("Importiert", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnImportiert) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columnBC_DESCR.MaxLength = 80 Me.columnCOU_ISO_COD.MaxLength = 6 Me.columnCOU_DESCR.MaxLength = 24 Me.columnCUST_COD.MaxLength = 10 Me.columnCUST_NAME1.MaxLength = 32 Me.columnCARD_SER_NUM.MaxLength = 5 Me.columnSOU_ISO_COD.MaxLength = 6 Me.columnSOU_DESCR.MaxLength = 24 Me.columnTRS_NUM.MaxLength = 38 Me.columnTRS_VERS_NUM.MaxLength = 2 Me.columnOUT_COD.MaxLength = 4 Me.columnOUT_DESCR.MaxLength = 24 Me.columnOUT_GRP_COD.MaxLength = 24 Me.columnPROD_NUM.MaxLength = 3 Me.columnPROD_DESCR.MaxLength = 64 Me.columnSERVICE_PROD_NUM.MaxLength = 50 Me.columnSERVICE_PROD_DESCR.MaxLength = 500 Me.columnSOU_CURR.MaxLength = 50 Me.columnCOU_BENEFICIARY_CURR.MaxLength = 3 Me.columnINVO_NUM.MaxLength = 20 Me.columnFIXED_OR_TOTAL.MaxLength = 1 Me.columnBC_TYPE.MaxLength = 1 Me.columnCOU_BENEFICIARY.MaxLength = 6 Me.columnCUST_BENEFICIARY.MaxLength = 10 Me.columnImportiert.AllowDBNull = false End Sub _ Public Function NewtblIDS_TransaktionenRow() As tblIDS_TransaktionenRow Return CType(Me.NewRow,tblIDS_TransaktionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblIDS_TransaktionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblIDS_TransaktionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblIDS_TransaktionenRowChangedEvent) Is Nothing) Then RaiseEvent tblIDS_TransaktionenRowChanged(Me, New tblIDS_TransaktionenRowChangeEvent(CType(e.Row,tblIDS_TransaktionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblIDS_TransaktionenRowChangingEvent) Is Nothing) Then RaiseEvent tblIDS_TransaktionenRowChanging(Me, New tblIDS_TransaktionenRowChangeEvent(CType(e.Row,tblIDS_TransaktionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblIDS_TransaktionenRowDeletedEvent) Is Nothing) Then RaiseEvent tblIDS_TransaktionenRowDeleted(Me, New tblIDS_TransaktionenRowChangeEvent(CType(e.Row,tblIDS_TransaktionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblIDS_TransaktionenRowDeletingEvent) Is Nothing) Then RaiseEvent tblIDS_TransaktionenRowDeleting(Me, New tblIDS_TransaktionenRowChangeEvent(CType(e.Row,tblIDS_TransaktionenRow), e.Action)) End If End Sub _ Public Sub RemovetblIDS_TransaktionenRow(ByVal row As tblIDS_TransaktionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblIDS_TransaktionenDataTable" 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 tblKassenbuchDataTable Inherits Global.System.Data.TypedTableBase(Of tblKassenbuchRow) Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnBenutzer As Global.System.Data.DataColumn Private columnGeschäftsjahr As Global.System.Data.DataColumn Private columnJournalNr As Global.System.Data.DataColumn Private columnBuchungsdatum As Global.System.Data.DataColumn Private columnBelegDat As Global.System.Data.DataColumn Private columnBelegNr As Global.System.Data.DataColumn Private columnBelegart As Global.System.Data.DataColumn Private columnBuchungstext As Global.System.Data.DataColumn Private columnBetrag As Global.System.Data.DataColumn Private columnWährung As Global.System.Data.DataColumn Private columnKurs As Global.System.Data.DataColumn Private columnEingabeart As Global.System.Data.DataColumn Private columnKonto As Global.System.Data.DataColumn Private columnSoll As Global.System.Data.DataColumn Private columnHaben As Global.System.Data.DataColumn Private columnSteuer As Global.System.Data.DataColumn Private columnSteuerbetrag As Global.System.Data.DataColumn Private columnReferenz As Global.System.Data.DataColumn Private columnBelegverbuchung As Global.System.Data.DataColumn Private columngebucht As Global.System.Data.DataColumn Private columnKB_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnrksv_id As Global.System.Data.DataColumn Private columnrksv_BelegId As Global.System.Data.DataColumn Private columnrksv_aktiv As Global.System.Data.DataColumn Private columnFinanzwege As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKassenbuch" 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 MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property BenutzerColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzer End Get End Property _ Public ReadOnly Property GeschäftsjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnGeschäftsjahr End Get End Property _ Public ReadOnly Property JournalNrColumn() As Global.System.Data.DataColumn Get Return Me.columnJournalNr End Get End Property _ Public ReadOnly Property BuchungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsdatum End Get End Property _ Public ReadOnly Property BelegDatColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegDat End Get End Property _ Public ReadOnly Property BelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegNr End Get End Property _ Public ReadOnly Property BelegartColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegart End Get End Property _ Public ReadOnly Property BuchungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungstext End Get End Property _ Public ReadOnly Property BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag End Get End Property _ Public ReadOnly Property WährungColumn() As Global.System.Data.DataColumn Get Return Me.columnWährung End Get End Property _ Public ReadOnly Property KursColumn() As Global.System.Data.DataColumn Get Return Me.columnKurs End Get End Property _ Public ReadOnly Property EingabeartColumn() As Global.System.Data.DataColumn Get Return Me.columnEingabeart End Get End Property _ Public ReadOnly Property KontoColumn() As Global.System.Data.DataColumn Get Return Me.columnKonto End Get End Property _ Public ReadOnly Property SollColumn() As Global.System.Data.DataColumn Get Return Me.columnSoll End Get End Property _ Public ReadOnly Property HabenColumn() As Global.System.Data.DataColumn Get Return Me.columnHaben End Get End Property _ Public ReadOnly Property SteuerColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuer End Get End Property _ Public ReadOnly Property SteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetrag End Get End Property _ Public ReadOnly Property ReferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnReferenz End Get End Property _ Public ReadOnly Property BelegverbuchungColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegverbuchung End Get End Property _ Public ReadOnly Property gebuchtColumn() As Global.System.Data.DataColumn Get Return Me.columngebucht End Get End Property _ Public ReadOnly Property KB_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnKB_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property rksv_idColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_id End Get End Property _ Public ReadOnly Property rksv_BelegIdColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_BelegId End Get End Property _ Public ReadOnly Property rksv_aktivColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_aktiv End Get End Property _ Public ReadOnly Property FinanzwegeColumn() As Global.System.Data.DataColumn Get Return Me.columnFinanzwege 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 tblKassenbuchRow Get Return CType(Me.Rows(index),tblKassenbuchRow) End Get End Property _ Public Event tblKassenbuchRowChanging As tblKassenbuchRowChangeEventHandler _ Public Event tblKassenbuchRowChanged As tblKassenbuchRowChangeEventHandler _ Public Event tblKassenbuchRowDeleting As tblKassenbuchRowChangeEventHandler _ Public Event tblKassenbuchRowDeleted As tblKassenbuchRowChangeEventHandler _ Public Overloads Sub AddtblKassenbuchRow(ByVal row As tblKassenbuchRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKassenbuchRow( _ ByVal Mandant As String, _ ByVal Niederlassung As String, _ ByVal Benutzer As Integer, _ ByVal Geschäftsjahr As Short, _ ByVal JournalNr As Integer, _ ByVal Buchungsdatum As Date, _ ByVal BelegDat As Date, _ ByVal BelegNr As Integer, _ ByVal Belegart As Short, _ ByVal Buchungstext As String, _ ByVal Betrag As Decimal, _ ByVal Währung As String, _ ByVal Kurs As Double, _ ByVal Eingabeart As Boolean, _ ByVal Konto As Integer, _ ByVal Soll As Decimal, _ ByVal Haben As Decimal, _ ByVal Steuer As Integer, _ ByVal Steuerbetrag As Decimal, _ ByVal Referenz As String, _ ByVal Belegverbuchung As Boolean, _ ByVal gebucht As Boolean, _ ByVal KB_Zeitstempel As Date, _ ByVal upsize_ts() As Byte, _ ByVal rksv_id As Integer, _ ByVal rksv_BelegId As Integer, _ ByVal rksv_aktiv As Boolean, _ ByVal Finanzwege As String) As tblKassenbuchRow Dim rowtblKassenbuchRow As tblKassenbuchRow = CType(Me.NewRow,tblKassenbuchRow) Dim columnValuesArray() As Object = New Object() {Mandant, Niederlassung, Benutzer, Geschäftsjahr, JournalNr, Buchungsdatum, BelegDat, BelegNr, Belegart, Buchungstext, Betrag, Währung, Kurs, Eingabeart, Konto, Soll, Haben, Steuer, Steuerbetrag, Referenz, Belegverbuchung, gebucht, KB_Zeitstempel, upsize_ts, rksv_id, rksv_BelegId, rksv_aktiv, Finanzwege} rowtblKassenbuchRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKassenbuchRow) Return rowtblKassenbuchRow End Function _ Public Function FindByMandantNiederlassungBenutzerGeschäftsjahrJournalNr(ByVal Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short, ByVal JournalNr As Integer) As tblKassenbuchRow Return CType(Me.Rows.Find(New Object() {Mandant, Niederlassung, Benutzer, Geschäftsjahr, JournalNr}),tblKassenbuchRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKassenbuchDataTable = CType(MyBase.Clone,tblKassenbuchDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKassenbuchDataTable() End Function _ Friend Sub InitVars() Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnBenutzer = MyBase.Columns("Benutzer") Me.columnGeschäftsjahr = MyBase.Columns("Geschäftsjahr") Me.columnJournalNr = MyBase.Columns("JournalNr") Me.columnBuchungsdatum = MyBase.Columns("Buchungsdatum") Me.columnBelegDat = MyBase.Columns("BelegDat") Me.columnBelegNr = MyBase.Columns("BelegNr") Me.columnBelegart = MyBase.Columns("Belegart") Me.columnBuchungstext = MyBase.Columns("Buchungstext") Me.columnBetrag = MyBase.Columns("Betrag") Me.columnWährung = MyBase.Columns("Währung") Me.columnKurs = MyBase.Columns("Kurs") Me.columnEingabeart = MyBase.Columns("Eingabeart") Me.columnKonto = MyBase.Columns("Konto") Me.columnSoll = MyBase.Columns("Soll") Me.columnHaben = MyBase.Columns("Haben") Me.columnSteuer = MyBase.Columns("Steuer") Me.columnSteuerbetrag = MyBase.Columns("Steuerbetrag") Me.columnReferenz = MyBase.Columns("Referenz") Me.columnBelegverbuchung = MyBase.Columns("Belegverbuchung") Me.columngebucht = MyBase.Columns("gebucht") Me.columnKB_Zeitstempel = MyBase.Columns("KB_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnrksv_id = MyBase.Columns("rksv_id") Me.columnrksv_BelegId = MyBase.Columns("rksv_BelegId") Me.columnrksv_aktiv = MyBase.Columns("rksv_aktiv") Me.columnFinanzwege = MyBase.Columns("Finanzwege") End Sub _ Private Sub InitClass() Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnBenutzer = New Global.System.Data.DataColumn("Benutzer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzer) Me.columnGeschäftsjahr = New Global.System.Data.DataColumn("Geschäftsjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeschäftsjahr) Me.columnJournalNr = New Global.System.Data.DataColumn("JournalNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnJournalNr) Me.columnBuchungsdatum = New Global.System.Data.DataColumn("Buchungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsdatum) Me.columnBelegDat = New Global.System.Data.DataColumn("BelegDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegDat) Me.columnBelegNr = New Global.System.Data.DataColumn("BelegNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegNr) Me.columnBelegart = New Global.System.Data.DataColumn("Belegart", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegart) Me.columnBuchungstext = New Global.System.Data.DataColumn("Buchungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungstext) Me.columnBetrag = New Global.System.Data.DataColumn("Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag) Me.columnWährung = New Global.System.Data.DataColumn("Währung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährung) Me.columnKurs = New Global.System.Data.DataColumn("Kurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKurs) Me.columnEingabeart = New Global.System.Data.DataColumn("Eingabeart", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingabeart) Me.columnKonto = New Global.System.Data.DataColumn("Konto", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKonto) Me.columnSoll = New Global.System.Data.DataColumn("Soll", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSoll) Me.columnHaben = New Global.System.Data.DataColumn("Haben", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHaben) Me.columnSteuer = New Global.System.Data.DataColumn("Steuer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuer) Me.columnSteuerbetrag = New Global.System.Data.DataColumn("Steuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetrag) Me.columnReferenz = New Global.System.Data.DataColumn("Referenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReferenz) Me.columnBelegverbuchung = New Global.System.Data.DataColumn("Belegverbuchung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegverbuchung) Me.columngebucht = New Global.System.Data.DataColumn("gebucht", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngebucht) Me.columnKB_Zeitstempel = New Global.System.Data.DataColumn("KB_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKB_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnrksv_id = New Global.System.Data.DataColumn("rksv_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_id) Me.columnrksv_BelegId = New Global.System.Data.DataColumn("rksv_BelegId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_BelegId) Me.columnrksv_aktiv = New Global.System.Data.DataColumn("rksv_aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_aktiv) Me.columnFinanzwege = New Global.System.Data.DataColumn("Finanzwege", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFinanzwege) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMandant, Me.columnNiederlassung, Me.columnBenutzer, Me.columnGeschäftsjahr, Me.columnJournalNr}, true)) Me.columnMandant.AllowDBNull = false Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.AllowDBNull = false Me.columnNiederlassung.MaxLength = 3 Me.columnBenutzer.AllowDBNull = false Me.columnGeschäftsjahr.AllowDBNull = false Me.columnJournalNr.AllowDBNull = false Me.columnBuchungsdatum.AllowDBNull = false Me.columnBelegDat.AllowDBNull = false Me.columnBelegNr.AllowDBNull = false Me.columnBelegart.AllowDBNull = false Me.columnBuchungstext.AllowDBNull = false Me.columnBuchungstext.MaxLength = 70 Me.columnWährung.AllowDBNull = false Me.columnWährung.MaxLength = 3 Me.columnKurs.AllowDBNull = false Me.columnEingabeart.AllowDBNull = false Me.columnKonto.AllowDBNull = false Me.columnSoll.AllowDBNull = false Me.columnHaben.AllowDBNull = false Me.columnSteuer.AllowDBNull = false Me.columnSteuerbetrag.AllowDBNull = false Me.columnReferenz.MaxLength = 50 Me.columnBelegverbuchung.AllowDBNull = false Me.columngebucht.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true Me.columnrksv_aktiv.AllowDBNull = false Me.columnFinanzwege.MaxLength = 20 End Sub _ Public Function NewtblKassenbuchRow() As tblKassenbuchRow Return CType(Me.NewRow,tblKassenbuchRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKassenbuchRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKassenbuchRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKassenbuchRowChangedEvent) Is Nothing) Then RaiseEvent tblKassenbuchRowChanged(Me, New tblKassenbuchRowChangeEvent(CType(e.Row,tblKassenbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKassenbuchRowChangingEvent) Is Nothing) Then RaiseEvent tblKassenbuchRowChanging(Me, New tblKassenbuchRowChangeEvent(CType(e.Row,tblKassenbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKassenbuchRowDeletedEvent) Is Nothing) Then RaiseEvent tblKassenbuchRowDeleted(Me, New tblKassenbuchRowChangeEvent(CType(e.Row,tblKassenbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKassenbuchRowDeletingEvent) Is Nothing) Then RaiseEvent tblKassenbuchRowDeleting(Me, New tblKassenbuchRowChangeEvent(CType(e.Row,tblKassenbuchRow), e.Action)) End If End Sub _ Public Sub RemovetblKassenbuchRow(ByVal row As tblKassenbuchRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKassenbuchDataTable" 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 tblKontoDataTable Inherits Global.System.Data.TypedTableBase(Of tblKontoRow) Private columnKontoNr As Global.System.Data.DataColumn Private columnBez As Global.System.Data.DataColumn Private columnSteuer As Global.System.Data.DataColumn Private columnGruppe As Global.System.Data.DataColumn Private columnUSTKonto As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKonto" 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 KontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKontoNr End Get End Property _ Public ReadOnly Property BezColumn() As Global.System.Data.DataColumn Get Return Me.columnBez End Get End Property _ Public ReadOnly Property SteuerColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuer End Get End Property _ Public ReadOnly Property GruppeColumn() As Global.System.Data.DataColumn Get Return Me.columnGruppe End Get End Property _ Public ReadOnly Property USTKontoColumn() As Global.System.Data.DataColumn Get Return Me.columnUSTKonto End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblKontoRow Get Return CType(Me.Rows(index),tblKontoRow) End Get End Property _ Public Event tblKontoRowChanging As tblKontoRowChangeEventHandler _ Public Event tblKontoRowChanged As tblKontoRowChangeEventHandler _ Public Event tblKontoRowDeleting As tblKontoRowChangeEventHandler _ Public Event tblKontoRowDeleted As tblKontoRowChangeEventHandler _ Public Overloads Sub AddtblKontoRow(ByVal row As tblKontoRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKontoRow(ByVal KontoNr As Integer, ByVal Bez As String, ByVal _parenttblSteuersätzeRowBytblKonto__C2FF3095_6D95_4263_9D51_CD3DEDA1AB7B_ As tblSteuersätzeRow, ByVal Gruppe As Integer, ByVal USTKonto As String, ByVal SSMA_TimeStamp() As Byte) As tblKontoRow Dim rowtblKontoRow As tblKontoRow = CType(Me.NewRow,tblKontoRow) Dim columnValuesArray() As Object = New Object() {KontoNr, Bez, Nothing, Gruppe, USTKonto, SSMA_TimeStamp} If (Not (_parenttblSteuersätzeRowBytblKonto__C2FF3095_6D95_4263_9D51_CD3DEDA1AB7B_) Is Nothing) Then columnValuesArray(2) = _parenttblSteuersätzeRowBytblKonto__C2FF3095_6D95_4263_9D51_CD3DEDA1AB7B_(0) End If rowtblKontoRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKontoRow) Return rowtblKontoRow End Function _ Public Function FindByKontoNr(ByVal KontoNr As Integer) As tblKontoRow Return CType(Me.Rows.Find(New Object() {KontoNr}),tblKontoRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKontoDataTable = CType(MyBase.Clone,tblKontoDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKontoDataTable() End Function _ Friend Sub InitVars() Me.columnKontoNr = MyBase.Columns("KontoNr") Me.columnBez = MyBase.Columns("Bez") Me.columnSteuer = MyBase.Columns("Steuer") Me.columnGruppe = MyBase.Columns("Gruppe") Me.columnUSTKonto = MyBase.Columns("USTKonto") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnKontoNr = New Global.System.Data.DataColumn("KontoNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKontoNr) Me.columnBez = New Global.System.Data.DataColumn("Bez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBez) Me.columnSteuer = New Global.System.Data.DataColumn("Steuer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuer) Me.columnGruppe = New Global.System.Data.DataColumn("Gruppe", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGruppe) Me.columnUSTKonto = New Global.System.Data.DataColumn("USTKonto", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSTKonto) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKontoNr}, true)) Me.columnKontoNr.AllowDBNull = false Me.columnKontoNr.Unique = true Me.columnBez.MaxLength = 70 Me.columnSteuer.AllowDBNull = false Me.columnUSTKonto.MaxLength = 1 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblKontoRow() As tblKontoRow Return CType(Me.NewRow,tblKontoRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKontoRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKontoRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKontoRowChangedEvent) Is Nothing) Then RaiseEvent tblKontoRowChanged(Me, New tblKontoRowChangeEvent(CType(e.Row,tblKontoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKontoRowChangingEvent) Is Nothing) Then RaiseEvent tblKontoRowChanging(Me, New tblKontoRowChangeEvent(CType(e.Row,tblKontoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKontoRowDeletedEvent) Is Nothing) Then RaiseEvent tblKontoRowDeleted(Me, New tblKontoRowChangeEvent(CType(e.Row,tblKontoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKontoRowDeletingEvent) Is Nothing) Then RaiseEvent tblKontoRowDeleting(Me, New tblKontoRowChangeEvent(CType(e.Row,tblKontoRow), e.Action)) End If End Sub _ Public Sub RemovetblKontoRow(ByVal row As tblKontoRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKontoDataTable" 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 tblKundenAufschubkontenDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenAufschubkontenRow) Private columnkdAkto_id As Global.System.Data.DataColumn Private columnkdAkto_KundenNr As Global.System.Data.DataColumn Private columnkdAkto_art As Global.System.Data.DataColumn Private columnkdAkto_hauptzollamt As Global.System.Data.DataColumn Private columnkdAkto_kontonummer As Global.System.Data.DataColumn Private columnkdAkto_bin As Global.System.Data.DataColumn Private columnkdAkto_eori As Global.System.Data.DataColumn Private columnkdAkto_eoriNL As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenAufschubkonten" 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 kdAkto_idColumn() As Global.System.Data.DataColumn Get Return Me.columnkdAkto_id End Get End Property _ Public ReadOnly Property kdAkto_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkdAkto_KundenNr End Get End Property _ Public ReadOnly Property kdAkto_artColumn() As Global.System.Data.DataColumn Get Return Me.columnkdAkto_art End Get End Property _ Public ReadOnly Property kdAkto_hauptzollamtColumn() As Global.System.Data.DataColumn Get Return Me.columnkdAkto_hauptzollamt End Get End Property _ Public ReadOnly Property kdAkto_kontonummerColumn() As Global.System.Data.DataColumn Get Return Me.columnkdAkto_kontonummer End Get End Property _ Public ReadOnly Property kdAkto_binColumn() As Global.System.Data.DataColumn Get Return Me.columnkdAkto_bin End Get End Property _ Public ReadOnly Property kdAkto_eoriColumn() As Global.System.Data.DataColumn Get Return Me.columnkdAkto_eori End Get End Property _ Public ReadOnly Property kdAkto_eoriNLColumn() As Global.System.Data.DataColumn Get Return Me.columnkdAkto_eoriNL 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 tblKundenAufschubkontenRow Get Return CType(Me.Rows(index),tblKundenAufschubkontenRow) End Get End Property _ Public Event tblKundenAufschubkontenRowChanging As tblKundenAufschubkontenRowChangeEventHandler _ Public Event tblKundenAufschubkontenRowChanged As tblKundenAufschubkontenRowChangeEventHandler _ Public Event tblKundenAufschubkontenRowDeleting As tblKundenAufschubkontenRowChangeEventHandler _ Public Event tblKundenAufschubkontenRowDeleted As tblKundenAufschubkontenRowChangeEventHandler _ Public Overloads Sub AddtblKundenAufschubkontenRow(ByVal row As tblKundenAufschubkontenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenAufschubkontenRow(ByVal kdAkto_KundenNr As Integer, ByVal kdAkto_art As Integer, ByVal kdAkto_hauptzollamt As String, ByVal kdAkto_kontonummer As String, ByVal kdAkto_bin As String, ByVal kdAkto_eori As String, ByVal kdAkto_eoriNL As String) As tblKundenAufschubkontenRow Dim rowtblKundenAufschubkontenRow As tblKundenAufschubkontenRow = CType(Me.NewRow,tblKundenAufschubkontenRow) Dim columnValuesArray() As Object = New Object() {Nothing, kdAkto_KundenNr, kdAkto_art, kdAkto_hauptzollamt, kdAkto_kontonummer, kdAkto_bin, kdAkto_eori, kdAkto_eoriNL} rowtblKundenAufschubkontenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenAufschubkontenRow) Return rowtblKundenAufschubkontenRow End Function _ Public Function FindBykdAkto_id(ByVal kdAkto_id As Integer) As tblKundenAufschubkontenRow Return CType(Me.Rows.Find(New Object() {kdAkto_id}),tblKundenAufschubkontenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenAufschubkontenDataTable = CType(MyBase.Clone,tblKundenAufschubkontenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenAufschubkontenDataTable() End Function _ Friend Sub InitVars() Me.columnkdAkto_id = MyBase.Columns("kdAkto_id") Me.columnkdAkto_KundenNr = MyBase.Columns("kdAkto_KundenNr") Me.columnkdAkto_art = MyBase.Columns("kdAkto_art") Me.columnkdAkto_hauptzollamt = MyBase.Columns("kdAkto_hauptzollamt") Me.columnkdAkto_kontonummer = MyBase.Columns("kdAkto_kontonummer") Me.columnkdAkto_bin = MyBase.Columns("kdAkto_bin") Me.columnkdAkto_eori = MyBase.Columns("kdAkto_eori") Me.columnkdAkto_eoriNL = MyBase.Columns("kdAkto_eoriNL") End Sub _ Private Sub InitClass() Me.columnkdAkto_id = New Global.System.Data.DataColumn("kdAkto_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdAkto_id) Me.columnkdAkto_KundenNr = New Global.System.Data.DataColumn("kdAkto_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdAkto_KundenNr) Me.columnkdAkto_art = New Global.System.Data.DataColumn("kdAkto_art", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdAkto_art) Me.columnkdAkto_hauptzollamt = New Global.System.Data.DataColumn("kdAkto_hauptzollamt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdAkto_hauptzollamt) Me.columnkdAkto_kontonummer = New Global.System.Data.DataColumn("kdAkto_kontonummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdAkto_kontonummer) Me.columnkdAkto_bin = New Global.System.Data.DataColumn("kdAkto_bin", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdAkto_bin) Me.columnkdAkto_eori = New Global.System.Data.DataColumn("kdAkto_eori", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdAkto_eori) Me.columnkdAkto_eoriNL = New Global.System.Data.DataColumn("kdAkto_eoriNL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdAkto_eoriNL) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkdAkto_id}, true)) Me.columnkdAkto_id.AutoIncrement = true Me.columnkdAkto_id.AutoIncrementSeed = -1 Me.columnkdAkto_id.AutoIncrementStep = -1 Me.columnkdAkto_id.AllowDBNull = false Me.columnkdAkto_id.ReadOnly = true Me.columnkdAkto_id.Unique = true Me.columnkdAkto_KundenNr.AllowDBNull = false Me.columnkdAkto_art.AllowDBNull = false Me.columnkdAkto_hauptzollamt.MaxLength = 50 Me.columnkdAkto_kontonummer.MaxLength = 50 Me.columnkdAkto_bin.MaxLength = 50 Me.columnkdAkto_eori.MaxLength = 17 Me.columnkdAkto_eoriNL.MaxLength = 4 End Sub _ Public Function NewtblKundenAufschubkontenRow() As tblKundenAufschubkontenRow Return CType(Me.NewRow,tblKundenAufschubkontenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenAufschubkontenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenAufschubkontenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenAufschubkontenRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenAufschubkontenRowChanged(Me, New tblKundenAufschubkontenRowChangeEvent(CType(e.Row,tblKundenAufschubkontenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenAufschubkontenRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenAufschubkontenRowChanging(Me, New tblKundenAufschubkontenRowChangeEvent(CType(e.Row,tblKundenAufschubkontenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenAufschubkontenRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenAufschubkontenRowDeleted(Me, New tblKundenAufschubkontenRowChangeEvent(CType(e.Row,tblKundenAufschubkontenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenAufschubkontenRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenAufschubkontenRowDeleting(Me, New tblKundenAufschubkontenRowChangeEvent(CType(e.Row,tblKundenAufschubkontenRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenAufschubkontenRow(ByVal row As tblKundenAufschubkontenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenAufschubkontenDataTable" 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 tblKundenBesonderheitenDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenBesonderheitenRow) Private columnkdb_id As Global.System.Data.DataColumn Private columnkdb_KundenNr As Global.System.Data.DataColumn Private columnkdb_kategorie As Global.System.Data.DataColumn Private columnkdb_text As Global.System.Data.DataColumn Private columnkdb_mitId As Global.System.Data.DataColumn Private columnkdb_mitName As Global.System.Data.DataColumn Private columnkdb_EingetragenAm As Global.System.Data.DataColumn Private columnkdb_AenderungAm As Global.System.Data.DataColumn Private columnkdb_visible As Global.System.Data.DataColumn Private columnkdb_hervorheben As Global.System.Data.DataColumn Private columnkdb_history As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenBesonderheiten" 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 kdb_idColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_id End Get End Property _ Public ReadOnly Property kdb_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_KundenNr End Get End Property _ Public ReadOnly Property kdb_kategorieColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_kategorie End Get End Property _ Public ReadOnly Property kdb_textColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_text End Get End Property _ Public ReadOnly Property kdb_mitIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_mitId End Get End Property _ Public ReadOnly Property kdb_mitNameColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_mitName End Get End Property _ Public ReadOnly Property kdb_EingetragenAmColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_EingetragenAm End Get End Property _ Public ReadOnly Property kdb_AenderungAmColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_AenderungAm End Get End Property _ Public ReadOnly Property kdb_visibleColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_visible End Get End Property _ Public ReadOnly Property kdb_hervorhebenColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_hervorheben End Get End Property _ Public ReadOnly Property kdb_historyColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_history 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 tblKundenBesonderheitenRow Get Return CType(Me.Rows(index),tblKundenBesonderheitenRow) End Get End Property _ Public Event tblKundenBesonderheitenRowChanging As tblKundenBesonderheitenRowChangeEventHandler _ Public Event tblKundenBesonderheitenRowChanged As tblKundenBesonderheitenRowChangeEventHandler _ Public Event tblKundenBesonderheitenRowDeleting As tblKundenBesonderheitenRowChangeEventHandler _ Public Event tblKundenBesonderheitenRowDeleted As tblKundenBesonderheitenRowChangeEventHandler _ Public Overloads Sub AddtblKundenBesonderheitenRow(ByVal row As tblKundenBesonderheitenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenBesonderheitenRow(ByVal kdb_KundenNr As Integer, ByVal kdb_kategorie As String, ByVal kdb_text As String, ByVal kdb_mitId As Integer, ByVal kdb_mitName As String, ByVal kdb_EingetragenAm As Date, ByVal kdb_AenderungAm As Date, ByVal kdb_visible As Boolean, ByVal kdb_hervorheben As Boolean, ByVal kdb_history As Boolean) As tblKundenBesonderheitenRow Dim rowtblKundenBesonderheitenRow As tblKundenBesonderheitenRow = CType(Me.NewRow,tblKundenBesonderheitenRow) Dim columnValuesArray() As Object = New Object() {Nothing, kdb_KundenNr, kdb_kategorie, kdb_text, kdb_mitId, kdb_mitName, kdb_EingetragenAm, kdb_AenderungAm, kdb_visible, kdb_hervorheben, kdb_history} rowtblKundenBesonderheitenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenBesonderheitenRow) Return rowtblKundenBesonderheitenRow End Function _ Public Function FindBykdb_id(ByVal kdb_id As Integer) As tblKundenBesonderheitenRow Return CType(Me.Rows.Find(New Object() {kdb_id}),tblKundenBesonderheitenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenBesonderheitenDataTable = CType(MyBase.Clone,tblKundenBesonderheitenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenBesonderheitenDataTable() End Function _ Friend Sub InitVars() Me.columnkdb_id = MyBase.Columns("kdb_id") Me.columnkdb_KundenNr = MyBase.Columns("kdb_KundenNr") Me.columnkdb_kategorie = MyBase.Columns("kdb_kategorie") Me.columnkdb_text = MyBase.Columns("kdb_text") Me.columnkdb_mitId = MyBase.Columns("kdb_mitId") Me.columnkdb_mitName = MyBase.Columns("kdb_mitName") Me.columnkdb_EingetragenAm = MyBase.Columns("kdb_EingetragenAm") Me.columnkdb_AenderungAm = MyBase.Columns("kdb_AenderungAm") Me.columnkdb_visible = MyBase.Columns("kdb_visible") Me.columnkdb_hervorheben = MyBase.Columns("kdb_hervorheben") Me.columnkdb_history = MyBase.Columns("kdb_history") End Sub _ Private Sub InitClass() Me.columnkdb_id = New Global.System.Data.DataColumn("kdb_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_id) Me.columnkdb_KundenNr = New Global.System.Data.DataColumn("kdb_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_KundenNr) Me.columnkdb_kategorie = New Global.System.Data.DataColumn("kdb_kategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_kategorie) Me.columnkdb_text = New Global.System.Data.DataColumn("kdb_text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_text) Me.columnkdb_mitId = New Global.System.Data.DataColumn("kdb_mitId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_mitId) Me.columnkdb_mitName = New Global.System.Data.DataColumn("kdb_mitName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_mitName) Me.columnkdb_EingetragenAm = New Global.System.Data.DataColumn("kdb_EingetragenAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_EingetragenAm) Me.columnkdb_AenderungAm = New Global.System.Data.DataColumn("kdb_AenderungAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_AenderungAm) Me.columnkdb_visible = New Global.System.Data.DataColumn("kdb_visible", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_visible) Me.columnkdb_hervorheben = New Global.System.Data.DataColumn("kdb_hervorheben", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_hervorheben) Me.columnkdb_history = New Global.System.Data.DataColumn("kdb_history", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_history) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkdb_id}, true)) Me.columnkdb_id.AutoIncrement = true Me.columnkdb_id.AutoIncrementSeed = -1 Me.columnkdb_id.AutoIncrementStep = -1 Me.columnkdb_id.AllowDBNull = false Me.columnkdb_id.ReadOnly = true Me.columnkdb_id.Unique = true Me.columnkdb_KundenNr.AllowDBNull = false Me.columnkdb_kategorie.AllowDBNull = false Me.columnkdb_kategorie.MaxLength = 50 Me.columnkdb_text.AllowDBNull = false Me.columnkdb_text.MaxLength = 2147483647 Me.columnkdb_mitId.AllowDBNull = false Me.columnkdb_mitName.AllowDBNull = false Me.columnkdb_mitName.MaxLength = 100 Me.columnkdb_EingetragenAm.AllowDBNull = false Me.columnkdb_AenderungAm.AllowDBNull = false Me.columnkdb_visible.AllowDBNull = false Me.columnkdb_hervorheben.AllowDBNull = false Me.columnkdb_history.AllowDBNull = false End Sub _ Public Function NewtblKundenBesonderheitenRow() As tblKundenBesonderheitenRow Return CType(Me.NewRow,tblKundenBesonderheitenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenBesonderheitenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenBesonderheitenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenBesonderheitenRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenBesonderheitenRowChanged(Me, New tblKundenBesonderheitenRowChangeEvent(CType(e.Row,tblKundenBesonderheitenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenBesonderheitenRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenBesonderheitenRowChanging(Me, New tblKundenBesonderheitenRowChangeEvent(CType(e.Row,tblKundenBesonderheitenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenBesonderheitenRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenBesonderheitenRowDeleted(Me, New tblKundenBesonderheitenRowChangeEvent(CType(e.Row,tblKundenBesonderheitenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenBesonderheitenRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenBesonderheitenRowDeleting(Me, New tblKundenBesonderheitenRowChangeEvent(CType(e.Row,tblKundenBesonderheitenRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenBesonderheitenRow(ByVal row As tblKundenBesonderheitenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenBesonderheitenDataTable" 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 tblKundenBesonderheiten_KategorienDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenBesonderheiten_KategorienRow) Private columnkdbkat_kategorie As Global.System.Data.DataColumn Private columnkdbkat_bezeichnung As Global.System.Data.DataColumn Private columnkdbkat_Firma As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenBesonderheiten_Kategorien" 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 kdbkat_kategorieColumn() As Global.System.Data.DataColumn Get Return Me.columnkdbkat_kategorie End Get End Property _ Public ReadOnly Property kdbkat_bezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnkdbkat_bezeichnung End Get End Property _ Public ReadOnly Property kdbkat_FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnkdbkat_Firma 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 tblKundenBesonderheiten_KategorienRow Get Return CType(Me.Rows(index),tblKundenBesonderheiten_KategorienRow) End Get End Property _ Public Event tblKundenBesonderheiten_KategorienRowChanging As tblKundenBesonderheiten_KategorienRowChangeEventHandler _ Public Event tblKundenBesonderheiten_KategorienRowChanged As tblKundenBesonderheiten_KategorienRowChangeEventHandler _ Public Event tblKundenBesonderheiten_KategorienRowDeleting As tblKundenBesonderheiten_KategorienRowChangeEventHandler _ Public Event tblKundenBesonderheiten_KategorienRowDeleted As tblKundenBesonderheiten_KategorienRowChangeEventHandler _ Public Overloads Sub AddtblKundenBesonderheiten_KategorienRow(ByVal row As tblKundenBesonderheiten_KategorienRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenBesonderheiten_KategorienRow(ByVal kdbkat_kategorie As String, ByVal kdbkat_bezeichnung As String, ByVal kdbkat_Firma As String) As tblKundenBesonderheiten_KategorienRow Dim rowtblKundenBesonderheiten_KategorienRow As tblKundenBesonderheiten_KategorienRow = CType(Me.NewRow,tblKundenBesonderheiten_KategorienRow) Dim columnValuesArray() As Object = New Object() {kdbkat_kategorie, kdbkat_bezeichnung, kdbkat_Firma} rowtblKundenBesonderheiten_KategorienRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenBesonderheiten_KategorienRow) Return rowtblKundenBesonderheiten_KategorienRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenBesonderheiten_KategorienDataTable = CType(MyBase.Clone,tblKundenBesonderheiten_KategorienDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenBesonderheiten_KategorienDataTable() End Function _ Friend Sub InitVars() Me.columnkdbkat_kategorie = MyBase.Columns("kdbkat_kategorie") Me.columnkdbkat_bezeichnung = MyBase.Columns("kdbkat_bezeichnung") Me.columnkdbkat_Firma = MyBase.Columns("kdbkat_Firma") End Sub _ Private Sub InitClass() Me.columnkdbkat_kategorie = New Global.System.Data.DataColumn("kdbkat_kategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdbkat_kategorie) Me.columnkdbkat_bezeichnung = New Global.System.Data.DataColumn("kdbkat_bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdbkat_bezeichnung) Me.columnkdbkat_Firma = New Global.System.Data.DataColumn("kdbkat_Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdbkat_Firma) Me.columnkdbkat_kategorie.AllowDBNull = false Me.columnkdbkat_kategorie.MaxLength = 50 Me.columnkdbkat_bezeichnung.AllowDBNull = false Me.columnkdbkat_bezeichnung.MaxLength = 2147483647 Me.columnkdbkat_Firma.AllowDBNull = false Me.columnkdbkat_Firma.MaxLength = 100 End Sub _ Public Function NewtblKundenBesonderheiten_KategorienRow() As tblKundenBesonderheiten_KategorienRow Return CType(Me.NewRow,tblKundenBesonderheiten_KategorienRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenBesonderheiten_KategorienRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenBesonderheiten_KategorienRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenBesonderheiten_KategorienRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenBesonderheiten_KategorienRowChanged(Me, New tblKundenBesonderheiten_KategorienRowChangeEvent(CType(e.Row,tblKundenBesonderheiten_KategorienRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenBesonderheiten_KategorienRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenBesonderheiten_KategorienRowChanging(Me, New tblKundenBesonderheiten_KategorienRowChangeEvent(CType(e.Row,tblKundenBesonderheiten_KategorienRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenBesonderheiten_KategorienRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenBesonderheiten_KategorienRowDeleted(Me, New tblKundenBesonderheiten_KategorienRowChangeEvent(CType(e.Row,tblKundenBesonderheiten_KategorienRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenBesonderheiten_KategorienRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenBesonderheiten_KategorienRowDeleting(Me, New tblKundenBesonderheiten_KategorienRowChangeEvent(CType(e.Row,tblKundenBesonderheiten_KategorienRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenBesonderheiten_KategorienRow(ByVal row As tblKundenBesonderheiten_KategorienRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenBesonderheiten_KategorienDataTable" 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 tblKundenDatenblattDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenDatenblattRow) Private columnkdb_KundenNr As Global.System.Data.DataColumn Private columnkdb_route As Global.System.Data.DataColumn Private columnkdb_buergschaftsgeber As Global.System.Data.DataColumn Private columnkdb_anzahlLKW As Global.System.Data.DataColumn Private columnkdb_anzahlMA As Global.System.Data.DataColumn Private columnkdb_bestimmungslandEU As Global.System.Data.DataColumn Private columnkdb_grosskunden As Global.System.Data.DataColumn Private columnkdb_gueter As Global.System.Data.DataColumn Private columnkdb_grenzen As Global.System.Data.DataColumn Private columnkdb_verhaltenAvisierung As Global.System.Data.DataColumn Private columnkdb_sonstiges As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenDatenblatt" 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 kdb_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_KundenNr End Get End Property _ Public ReadOnly Property kdb_routeColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_route End Get End Property _ Public ReadOnly Property kdb_buergschaftsgeberColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_buergschaftsgeber End Get End Property _ Public ReadOnly Property kdb_anzahlLKWColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_anzahlLKW End Get End Property _ Public ReadOnly Property kdb_anzahlMAColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_anzahlMA End Get End Property _ Public ReadOnly Property kdb_bestimmungslandEUColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_bestimmungslandEU End Get End Property _ Public ReadOnly Property kdb_grosskundenColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_grosskunden End Get End Property _ Public ReadOnly Property kdb_gueterColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_gueter End Get End Property _ Public ReadOnly Property kdb_grenzenColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_grenzen End Get End Property _ Public ReadOnly Property kdb_verhaltenAvisierungColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_verhaltenAvisierung End Get End Property _ Public ReadOnly Property kdb_sonstigesColumn() As Global.System.Data.DataColumn Get Return Me.columnkdb_sonstiges 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 tblKundenDatenblattRow Get Return CType(Me.Rows(index),tblKundenDatenblattRow) End Get End Property _ Public Event tblKundenDatenblattRowChanging As tblKundenDatenblattRowChangeEventHandler _ Public Event tblKundenDatenblattRowChanged As tblKundenDatenblattRowChangeEventHandler _ Public Event tblKundenDatenblattRowDeleting As tblKundenDatenblattRowChangeEventHandler _ Public Event tblKundenDatenblattRowDeleted As tblKundenDatenblattRowChangeEventHandler _ Public Overloads Sub AddtblKundenDatenblattRow(ByVal row As tblKundenDatenblattRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenDatenblattRow(ByVal kdb_KundenNr As Integer, ByVal kdb_route As String, ByVal kdb_buergschaftsgeber As String, ByVal kdb_anzahlLKW As Integer, ByVal kdb_anzahlMA As Integer, ByVal kdb_bestimmungslandEU As String, ByVal kdb_grosskunden As String, ByVal kdb_gueter As String, ByVal kdb_grenzen As String, ByVal kdb_verhaltenAvisierung As String, ByVal kdb_sonstiges As String) As tblKundenDatenblattRow Dim rowtblKundenDatenblattRow As tblKundenDatenblattRow = CType(Me.NewRow,tblKundenDatenblattRow) Dim columnValuesArray() As Object = New Object() {kdb_KundenNr, kdb_route, kdb_buergschaftsgeber, kdb_anzahlLKW, kdb_anzahlMA, kdb_bestimmungslandEU, kdb_grosskunden, kdb_gueter, kdb_grenzen, kdb_verhaltenAvisierung, kdb_sonstiges} rowtblKundenDatenblattRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenDatenblattRow) Return rowtblKundenDatenblattRow End Function _ Public Function FindBykdb_KundenNr(ByVal kdb_KundenNr As Integer) As tblKundenDatenblattRow Return CType(Me.Rows.Find(New Object() {kdb_KundenNr}),tblKundenDatenblattRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenDatenblattDataTable = CType(MyBase.Clone,tblKundenDatenblattDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenDatenblattDataTable() End Function _ Friend Sub InitVars() Me.columnkdb_KundenNr = MyBase.Columns("kdb_KundenNr") Me.columnkdb_route = MyBase.Columns("kdb_route") Me.columnkdb_buergschaftsgeber = MyBase.Columns("kdb_buergschaftsgeber") Me.columnkdb_anzahlLKW = MyBase.Columns("kdb_anzahlLKW") Me.columnkdb_anzahlMA = MyBase.Columns("kdb_anzahlMA") Me.columnkdb_bestimmungslandEU = MyBase.Columns("kdb_bestimmungslandEU") Me.columnkdb_grosskunden = MyBase.Columns("kdb_grosskunden") Me.columnkdb_gueter = MyBase.Columns("kdb_gueter") Me.columnkdb_grenzen = MyBase.Columns("kdb_grenzen") Me.columnkdb_verhaltenAvisierung = MyBase.Columns("kdb_verhaltenAvisierung") Me.columnkdb_sonstiges = MyBase.Columns("kdb_sonstiges") End Sub _ Private Sub InitClass() Me.columnkdb_KundenNr = New Global.System.Data.DataColumn("kdb_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_KundenNr) Me.columnkdb_route = New Global.System.Data.DataColumn("kdb_route", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_route) Me.columnkdb_buergschaftsgeber = New Global.System.Data.DataColumn("kdb_buergschaftsgeber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_buergschaftsgeber) Me.columnkdb_anzahlLKW = New Global.System.Data.DataColumn("kdb_anzahlLKW", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_anzahlLKW) Me.columnkdb_anzahlMA = New Global.System.Data.DataColumn("kdb_anzahlMA", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_anzahlMA) Me.columnkdb_bestimmungslandEU = New Global.System.Data.DataColumn("kdb_bestimmungslandEU", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_bestimmungslandEU) Me.columnkdb_grosskunden = New Global.System.Data.DataColumn("kdb_grosskunden", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_grosskunden) Me.columnkdb_gueter = New Global.System.Data.DataColumn("kdb_gueter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_gueter) Me.columnkdb_grenzen = New Global.System.Data.DataColumn("kdb_grenzen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_grenzen) Me.columnkdb_verhaltenAvisierung = New Global.System.Data.DataColumn("kdb_verhaltenAvisierung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_verhaltenAvisierung) Me.columnkdb_sonstiges = New Global.System.Data.DataColumn("kdb_sonstiges", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdb_sonstiges) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkdb_KundenNr}, true)) Me.columnkdb_KundenNr.AllowDBNull = false Me.columnkdb_KundenNr.Unique = true Me.columnkdb_route.MaxLength = 500 Me.columnkdb_buergschaftsgeber.MaxLength = 500 Me.columnkdb_bestimmungslandEU.MaxLength = 500 Me.columnkdb_grosskunden.MaxLength = 500 Me.columnkdb_gueter.MaxLength = 500 Me.columnkdb_grenzen.MaxLength = 500 Me.columnkdb_verhaltenAvisierung.MaxLength = 500 Me.columnkdb_sonstiges.MaxLength = 2147483647 End Sub _ Public Function NewtblKundenDatenblattRow() As tblKundenDatenblattRow Return CType(Me.NewRow,tblKundenDatenblattRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenDatenblattRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenDatenblattRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenDatenblattRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenDatenblattRowChanged(Me, New tblKundenDatenblattRowChangeEvent(CType(e.Row,tblKundenDatenblattRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenDatenblattRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenDatenblattRowChanging(Me, New tblKundenDatenblattRowChangeEvent(CType(e.Row,tblKundenDatenblattRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenDatenblattRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenDatenblattRowDeleted(Me, New tblKundenDatenblattRowChangeEvent(CType(e.Row,tblKundenDatenblattRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenDatenblattRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenDatenblattRowDeleting(Me, New tblKundenDatenblattRowChangeEvent(CType(e.Row,tblKundenDatenblattRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenDatenblattRow(ByVal row As tblKundenDatenblattRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenDatenblattDataTable" 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 tblKundenErweitertDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenErweitertRow) Private columnkde_KundenNr As Global.System.Data.DataColumn Private columnkde_FirmenwortlautFiskal As Global.System.Data.DataColumn Private columnkde_VerwendetAuftragsNr As Global.System.Data.DataColumn Private columnkde_FixeAuftragsNr As Global.System.Data.DataColumn Private columnkde_qsTeamId As Global.System.Data.DataColumn Private columnkde_qsTeamMAId As Global.System.Data.DataColumn Private columnkde_TeamId As Global.System.Data.DataColumn Private columnkde_TeamMAId As Global.System.Data.DataColumn Private columnkde_qsTeamMAName As Global.System.Data.DataColumn Private columnkde_qsTeamName As Global.System.Data.DataColumn Private columnkde_Hoechstkredit As Global.System.Data.DataColumn Private columnkde_Versicherung_Deckungsstopp As Global.System.Data.DataColumn Private columnkde_Versicherung_DeckungsstoppDatum As Global.System.Data.DataColumn Private columnkde_Versicherung_Uebergeben As Global.System.Data.DataColumn Private columnkde_Versicherung_UebergebenAm As Global.System.Data.DataColumn Private columnkde_Versicherung_AnerkennungVersicherungsfall As Global.System.Data.DataColumn Private columnkde_Versicherung_AnerkennungVersicherungsfallAm As Global.System.Data.DataColumn Private columnkde_Versicherung_AnerkennungVersicherungsfallAb As Global.System.Data.DataColumn Private columnkde_txtVersicherungDeckungsquote As Global.System.Data.DataColumn Private columnkde_txtVersicherungNichtVersicherbar As Global.System.Data.DataColumn Private columnkde_Versicherung_GemeldeterBetrag As Global.System.Data.DataColumn Private columnkde_txtVersicherungEHNr As Global.System.Data.DataColumn Private columnkde_Leihgeld_Provision As Global.System.Data.DataColumn Private columnkde_Leihgeld_ProvisionPreisstaffel As Global.System.Data.DataColumn Private columnkde_Leihgeld_ProvisionAuftraggeber As Global.System.Data.DataColumn Private columnEmailFreigabeSendungsListe As Global.System.Data.DataColumn Private columnEmailFreigabe_SteuerbescheidPDF As Global.System.Data.DataColumn Private columnEmailFreigabe_SteuerbescheidPDF_Bedingung As Global.System.Data.DataColumn Private columnEmailFreigabe_Art As Global.System.Data.DataColumn Private columnEmailFreigabe_VBDPDF As Global.System.Data.DataColumn Private columnEmailFreigabe_ABDPDF As Global.System.Data.DataColumn Private columnEmail_AVM As Global.System.Data.DataColumn Private columnDepot_Kunde As Global.System.Data.DataColumn Private columnFiBuSchnittstelleLG As Global.System.Data.DataColumn Private columnZahlungsziel2 As Global.System.Data.DataColumn Private columnZahlungsziel3 As Global.System.Data.DataColumn Private columnEmailAnkunft_Export As Global.System.Data.DataColumn Private columnEmailFreigabe_Export As Global.System.Data.DataColumn Private columnEmailFreigabe_Export_Art As Global.System.Data.DataColumn Private columnkde_BonitaetsStufe As Global.System.Data.DataColumn Private columnkde_Inkasso_Uebergeben As Global.System.Data.DataColumn Private columnkde_Inkasso_UebergebenAm As Global.System.Data.DataColumn Private columnkde_Inkasso_GemeldeterBetrag As Global.System.Data.DataColumn Private columnAutoFakturierung As Global.System.Data.DataColumn Private columnAnmerkungen_Warnhinweis As Global.System.Data.DataColumn Private columnkde_VERAG_INTERFACE_ID As Global.System.Data.DataColumn Private columnkde_BesonderheitenNeu As Global.System.Data.DataColumn Private columnkde_InfoAuftragsNr As Global.System.Data.DataColumn Private columnkde_KundeFremdspedition As Global.System.Data.DataColumn Private columnkde_verzolltBei As Global.System.Data.DataColumn Private columnkde_KundeFremdspeditionExport As Global.System.Data.DataColumn Private columnkde_verzolltBeiExport As Global.System.Data.DataColumn Private columnVeranlagungskunde As Global.System.Data.DataColumn Private columnkde_API_Tradeshift As Global.System.Data.DataColumn Private columnkde_FakturierungSR_Details As Global.System.Data.DataColumn Private columnkde_Fakturierung_Sprache As Global.System.Data.DataColumn Private columnkde_TOBB_KundenNr As Global.System.Data.DataColumn Private columnkde_CreditSaveBonitaetsklasse As Global.System.Data.DataColumn Private columnkde_CreditSaveBonitaetsIndex As Global.System.Data.DataColumn Private columnkde_CreditSaveBonitaetsScore As Global.System.Data.DataColumn Private columnkde_CreditSaveId As Global.System.Data.DataColumn Private columnkde_CreditSaveNo As Global.System.Data.DataColumn Private columnkde_Abrechnung_SendungsdatenAusSTB As Global.System.Data.DataColumn Private columnkde_UIDMehrfachverwendung As Global.System.Data.DataColumn Private columnkde_EORIgeprueftAm As Global.System.Data.DataColumn Private columnkde_AdressZusatz As Global.System.Data.DataColumn Private columnkde_abweichendesZZVL As Global.System.Data.DataColumn Private columnkde_HRNr As Global.System.Data.DataColumn Private columnkde_Kapital As Global.System.Data.DataColumn Private columnkde_KapitalWaehrung As Global.System.Data.DataColumn Private columnkde_GruendungsDatum As Global.System.Data.DataColumn Private columnkde_WechselBetrag As Global.System.Data.DataColumn Private columnkde_WechselGueltigBis As Global.System.Data.DataColumn Private columnkde_WechselErhaltenAm As Global.System.Data.DataColumn Private columnkde_BankgarantielErhaltenAm As Global.System.Data.DataColumn Private columnkde_WechselBlanko As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenErweitert" 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 kde_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_KundenNr End Get End Property _ Public ReadOnly Property kde_FirmenwortlautFiskalColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_FirmenwortlautFiskal End Get End Property _ Public ReadOnly Property kde_VerwendetAuftragsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_VerwendetAuftragsNr End Get End Property _ Public ReadOnly Property kde_FixeAuftragsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_FixeAuftragsNr End Get End Property _ Public ReadOnly Property kde_qsTeamIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_qsTeamId End Get End Property _ Public ReadOnly Property kde_qsTeamMAIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_qsTeamMAId End Get End Property _ Public ReadOnly Property kde_TeamIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_TeamId End Get End Property _ Public ReadOnly Property kde_TeamMAIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_TeamMAId End Get End Property _ Public ReadOnly Property kde_qsTeamMANameColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_qsTeamMAName End Get End Property _ Public ReadOnly Property kde_qsTeamNameColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_qsTeamName End Get End Property _ Public ReadOnly Property kde_HoechstkreditColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Hoechstkredit End Get End Property _ Public ReadOnly Property kde_Versicherung_DeckungsstoppColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Versicherung_Deckungsstopp End Get End Property _ Public ReadOnly Property kde_Versicherung_DeckungsstoppDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Versicherung_DeckungsstoppDatum End Get End Property _ Public ReadOnly Property kde_Versicherung_UebergebenColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Versicherung_Uebergeben End Get End Property _ Public ReadOnly Property kde_Versicherung_UebergebenAmColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Versicherung_UebergebenAm End Get End Property _ Public ReadOnly Property kde_Versicherung_AnerkennungVersicherungsfallColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Versicherung_AnerkennungVersicherungsfall End Get End Property _ Public ReadOnly Property kde_Versicherung_AnerkennungVersicherungsfallAmColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Versicherung_AnerkennungVersicherungsfallAm End Get End Property _ Public ReadOnly Property kde_Versicherung_AnerkennungVersicherungsfallAbColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Versicherung_AnerkennungVersicherungsfallAb End Get End Property _ Public ReadOnly Property kde_txtVersicherungDeckungsquoteColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_txtVersicherungDeckungsquote End Get End Property _ Public ReadOnly Property kde_txtVersicherungNichtVersicherbarColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_txtVersicherungNichtVersicherbar End Get End Property _ Public ReadOnly Property kde_Versicherung_GemeldeterBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Versicherung_GemeldeterBetrag End Get End Property _ Public ReadOnly Property kde_txtVersicherungEHNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_txtVersicherungEHNr End Get End Property _ Public ReadOnly Property kde_Leihgeld_ProvisionColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Leihgeld_Provision End Get End Property _ Public ReadOnly Property kde_Leihgeld_ProvisionPreisstaffelColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Leihgeld_ProvisionPreisstaffel End Get End Property _ Public ReadOnly Property kde_Leihgeld_ProvisionAuftraggeberColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Leihgeld_ProvisionAuftraggeber End Get End Property _ Public ReadOnly Property EmailFreigabeSendungsListeColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailFreigabeSendungsListe End Get End Property _ Public ReadOnly Property EmailFreigabe_SteuerbescheidPDFColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailFreigabe_SteuerbescheidPDF End Get End Property _ Public ReadOnly Property EmailFreigabe_SteuerbescheidPDF_BedingungColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailFreigabe_SteuerbescheidPDF_Bedingung End Get End Property _ Public ReadOnly Property EmailFreigabe_ArtColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailFreigabe_Art End Get End Property _ Public ReadOnly Property EmailFreigabe_VBDPDFColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailFreigabe_VBDPDF End Get End Property _ Public ReadOnly Property EmailFreigabe_ABDPDFColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailFreigabe_ABDPDF End Get End Property _ Public ReadOnly Property Email_AVMColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail_AVM End Get End Property _ Public ReadOnly Property Depot_KundeColumn() As Global.System.Data.DataColumn Get Return Me.columnDepot_Kunde End Get End Property _ Public ReadOnly Property FiBuSchnittstelleLGColumn() As Global.System.Data.DataColumn Get Return Me.columnFiBuSchnittstelleLG End Get End Property _ Public ReadOnly Property Zahlungsziel2Column() As Global.System.Data.DataColumn Get Return Me.columnZahlungsziel2 End Get End Property _ Public ReadOnly Property Zahlungsziel3Column() As Global.System.Data.DataColumn Get Return Me.columnZahlungsziel3 End Get End Property _ Public ReadOnly Property EmailAnkunft_ExportColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailAnkunft_Export End Get End Property _ Public ReadOnly Property EmailFreigabe_ExportColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailFreigabe_Export End Get End Property _ Public ReadOnly Property EmailFreigabe_Export_ArtColumn() As Global.System.Data.DataColumn Get Return Me.columnEmailFreigabe_Export_Art End Get End Property _ Public ReadOnly Property kde_BonitaetsStufeColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_BonitaetsStufe End Get End Property _ Public ReadOnly Property kde_Inkasso_UebergebenColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Inkasso_Uebergeben End Get End Property _ Public ReadOnly Property kde_Inkasso_UebergebenAmColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Inkasso_UebergebenAm End Get End Property _ Public ReadOnly Property kde_Inkasso_GemeldeterBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Inkasso_GemeldeterBetrag End Get End Property _ Public ReadOnly Property AutoFakturierungColumn() As Global.System.Data.DataColumn Get Return Me.columnAutoFakturierung End Get End Property _ Public ReadOnly Property Anmerkungen_WarnhinweisColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmerkungen_Warnhinweis End Get End Property _ Public ReadOnly Property kde_VERAG_INTERFACE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_VERAG_INTERFACE_ID End Get End Property _ Public ReadOnly Property kde_BesonderheitenNeuColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_BesonderheitenNeu End Get End Property _ Public ReadOnly Property kde_InfoAuftragsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_InfoAuftragsNr End Get End Property _ Public ReadOnly Property kde_KundeFremdspeditionColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_KundeFremdspedition End Get End Property _ Public ReadOnly Property kde_verzolltBeiColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_verzolltBei End Get End Property _ Public ReadOnly Property kde_KundeFremdspeditionExportColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_KundeFremdspeditionExport End Get End Property _ Public ReadOnly Property kde_verzolltBeiExportColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_verzolltBeiExport End Get End Property _ Public ReadOnly Property VeranlagungskundeColumn() As Global.System.Data.DataColumn Get Return Me.columnVeranlagungskunde End Get End Property _ Public ReadOnly Property kde_API_TradeshiftColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_API_Tradeshift End Get End Property _ Public ReadOnly Property kde_FakturierungSR_DetailsColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_FakturierungSR_Details End Get End Property _ Public ReadOnly Property kde_Fakturierung_SpracheColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Fakturierung_Sprache End Get End Property _ Public ReadOnly Property kde_TOBB_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_TOBB_KundenNr End Get End Property _ Public ReadOnly Property kde_CreditSaveBonitaetsklasseColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_CreditSaveBonitaetsklasse End Get End Property _ Public ReadOnly Property kde_CreditSaveBonitaetsIndexColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_CreditSaveBonitaetsIndex End Get End Property _ Public ReadOnly Property kde_CreditSaveBonitaetsScoreColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_CreditSaveBonitaetsScore End Get End Property _ Public ReadOnly Property kde_CreditSaveIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_CreditSaveId End Get End Property _ Public ReadOnly Property kde_CreditSaveNoColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_CreditSaveNo End Get End Property _ Public ReadOnly Property kde_Abrechnung_SendungsdatenAusSTBColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Abrechnung_SendungsdatenAusSTB End Get End Property _ Public ReadOnly Property kde_UIDMehrfachverwendungColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_UIDMehrfachverwendung End Get End Property _ Public ReadOnly Property kde_EORIgeprueftAmColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_EORIgeprueftAm End Get End Property _ Public ReadOnly Property kde_AdressZusatzColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_AdressZusatz End Get End Property _ Public ReadOnly Property kde_abweichendesZZVLColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_abweichendesZZVL End Get End Property _ Public ReadOnly Property kde_HRNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_HRNr End Get End Property _ Public ReadOnly Property kde_KapitalColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_Kapital End Get End Property _ Public ReadOnly Property kde_KapitalWaehrungColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_KapitalWaehrung End Get End Property _ Public ReadOnly Property kde_GruendungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_GruendungsDatum End Get End Property _ Public ReadOnly Property kde_WechselBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_WechselBetrag End Get End Property _ Public ReadOnly Property kde_WechselGueltigBisColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_WechselGueltigBis End Get End Property _ Public ReadOnly Property kde_WechselErhaltenAmColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_WechselErhaltenAm End Get End Property _ Public ReadOnly Property kde_BankgarantielErhaltenAmColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_BankgarantielErhaltenAm End Get End Property _ Public ReadOnly Property kde_WechselBlankoColumn() As Global.System.Data.DataColumn Get Return Me.columnkde_WechselBlanko 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 tblKundenErweitertRow Get Return CType(Me.Rows(index),tblKundenErweitertRow) End Get End Property _ Public Event tblKundenErweitertRowChanging As tblKundenErweitertRowChangeEventHandler _ Public Event tblKundenErweitertRowChanged As tblKundenErweitertRowChangeEventHandler _ Public Event tblKundenErweitertRowDeleting As tblKundenErweitertRowChangeEventHandler _ Public Event tblKundenErweitertRowDeleted As tblKundenErweitertRowChangeEventHandler _ Public Overloads Sub AddtblKundenErweitertRow(ByVal row As tblKundenErweitertRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenErweitertRow( _ ByVal kde_KundenNr As Integer, _ ByVal kde_FirmenwortlautFiskal As String, _ ByVal kde_VerwendetAuftragsNr As Boolean, _ ByVal kde_FixeAuftragsNr As String, _ ByVal kde_qsTeamId As Integer, _ ByVal kde_qsTeamMAId As Integer, _ ByVal kde_TeamId As Integer, _ ByVal kde_TeamMAId As Integer, _ ByVal kde_qsTeamMAName As String, _ ByVal kde_qsTeamName As String, _ ByVal kde_Hoechstkredit As Double, _ ByVal kde_Versicherung_Deckungsstopp As Boolean, _ ByVal kde_Versicherung_DeckungsstoppDatum As Date, _ ByVal kde_Versicherung_Uebergeben As Boolean, _ ByVal kde_Versicherung_UebergebenAm As Date, _ ByVal kde_Versicherung_AnerkennungVersicherungsfall As Boolean, _ ByVal kde_Versicherung_AnerkennungVersicherungsfallAm As Date, _ ByVal kde_Versicherung_AnerkennungVersicherungsfallAb As Date, _ ByVal kde_txtVersicherungDeckungsquote As Double, _ ByVal kde_txtVersicherungNichtVersicherbar As Boolean, _ ByVal kde_Versicherung_GemeldeterBetrag As Decimal, _ ByVal kde_txtVersicherungEHNr As String, _ ByVal kde_Leihgeld_Provision As Integer, _ ByVal kde_Leihgeld_ProvisionPreisstaffel As Integer, _ ByVal kde_Leihgeld_ProvisionAuftraggeber As Decimal, _ ByVal EmailFreigabeSendungsListe As Boolean, _ ByVal EmailFreigabe_SteuerbescheidPDF As Boolean, _ ByVal EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer, _ ByVal EmailFreigabe_Art As String, _ ByVal EmailFreigabe_VBDPDF As Boolean, _ ByVal EmailFreigabe_ABDPDF As Boolean, _ ByVal Email_AVM As Boolean, _ ByVal Depot_Kunde As Boolean, _ ByVal FiBuSchnittstelleLG As Boolean, _ ByVal Zahlungsziel2 As Integer, _ ByVal Zahlungsziel3 As Integer, _ ByVal EmailAnkunft_Export As Boolean, _ ByVal EmailFreigabe_Export As Boolean, _ ByVal EmailFreigabe_Export_Art As String, _ ByVal kde_BonitaetsStufe As Integer, _ ByVal kde_Inkasso_Uebergeben As Boolean, _ ByVal kde_Inkasso_UebergebenAm As Date, _ ByVal kde_Inkasso_GemeldeterBetrag As Decimal, _ ByVal AutoFakturierung As Boolean, _ ByVal Anmerkungen_Warnhinweis As String, _ ByVal kde_VERAG_INTERFACE_ID As String, _ ByVal kde_BesonderheitenNeu As Boolean, _ ByVal kde_InfoAuftragsNr As String, _ ByVal kde_KundeFremdspedition As Boolean, _ ByVal kde_verzolltBei As String, _ ByVal kde_KundeFremdspeditionExport As Boolean, _ ByVal kde_verzolltBeiExport As String, _ ByVal Veranlagungskunde As Boolean, _ ByVal kde_API_Tradeshift As Boolean, _ ByVal kde_FakturierungSR_Details As Boolean, _ ByVal kde_Fakturierung_Sprache As String, _ ByVal kde_TOBB_KundenNr As String, _ ByVal kde_CreditSaveBonitaetsklasse As String, _ ByVal kde_CreditSaveBonitaetsIndex As Double, _ ByVal kde_CreditSaveBonitaetsScore As Integer, _ ByVal kde_CreditSaveId As String, _ ByVal kde_CreditSaveNo As String, _ ByVal kde_Abrechnung_SendungsdatenAusSTB As Boolean, _ ByVal kde_UIDMehrfachverwendung As Boolean, _ ByVal kde_EORIgeprueftAm As Date, _ ByVal kde_AdressZusatz As String, _ ByVal kde_abweichendesZZVL As Integer, _ ByVal kde_HRNr As String, _ ByVal kde_Kapital As Decimal, _ ByVal kde_KapitalWaehrung As String, _ ByVal kde_GruendungsDatum As Date, _ ByVal kde_WechselBetrag As Decimal, _ ByVal kde_WechselGueltigBis As Date, _ ByVal kde_WechselErhaltenAm As Date, _ ByVal kde_BankgarantielErhaltenAm As Date, _ ByVal kde_WechselBlanko As Boolean) As tblKundenErweitertRow Dim rowtblKundenErweitertRow As tblKundenErweitertRow = CType(Me.NewRow,tblKundenErweitertRow) Dim columnValuesArray() As Object = New Object() {kde_KundenNr, kde_FirmenwortlautFiskal, kde_VerwendetAuftragsNr, kde_FixeAuftragsNr, kde_qsTeamId, kde_qsTeamMAId, kde_TeamId, kde_TeamMAId, kde_qsTeamMAName, kde_qsTeamName, kde_Hoechstkredit, kde_Versicherung_Deckungsstopp, kde_Versicherung_DeckungsstoppDatum, kde_Versicherung_Uebergeben, kde_Versicherung_UebergebenAm, kde_Versicherung_AnerkennungVersicherungsfall, kde_Versicherung_AnerkennungVersicherungsfallAm, kde_Versicherung_AnerkennungVersicherungsfallAb, kde_txtVersicherungDeckungsquote, kde_txtVersicherungNichtVersicherbar, kde_Versicherung_GemeldeterBetrag, kde_txtVersicherungEHNr, kde_Leihgeld_Provision, kde_Leihgeld_ProvisionPreisstaffel, kde_Leihgeld_ProvisionAuftraggeber, EmailFreigabeSendungsListe, EmailFreigabe_SteuerbescheidPDF, EmailFreigabe_SteuerbescheidPDF_Bedingung, EmailFreigabe_Art, EmailFreigabe_VBDPDF, EmailFreigabe_ABDPDF, Email_AVM, Depot_Kunde, FiBuSchnittstelleLG, Zahlungsziel2, Zahlungsziel3, EmailAnkunft_Export, EmailFreigabe_Export, EmailFreigabe_Export_Art, kde_BonitaetsStufe, kde_Inkasso_Uebergeben, kde_Inkasso_UebergebenAm, kde_Inkasso_GemeldeterBetrag, AutoFakturierung, Anmerkungen_Warnhinweis, kde_VERAG_INTERFACE_ID, kde_BesonderheitenNeu, kde_InfoAuftragsNr, kde_KundeFremdspedition, kde_verzolltBei, kde_KundeFremdspeditionExport, kde_verzolltBeiExport, Veranlagungskunde, kde_API_Tradeshift, kde_FakturierungSR_Details, kde_Fakturierung_Sprache, kde_TOBB_KundenNr, kde_CreditSaveBonitaetsklasse, kde_CreditSaveBonitaetsIndex, kde_CreditSaveBonitaetsScore, kde_CreditSaveId, kde_CreditSaveNo, kde_Abrechnung_SendungsdatenAusSTB, kde_UIDMehrfachverwendung, kde_EORIgeprueftAm, kde_AdressZusatz, kde_abweichendesZZVL, kde_HRNr, kde_Kapital, kde_KapitalWaehrung, kde_GruendungsDatum, kde_WechselBetrag, kde_WechselGueltigBis, kde_WechselErhaltenAm, kde_BankgarantielErhaltenAm, kde_WechselBlanko} rowtblKundenErweitertRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenErweitertRow) Return rowtblKundenErweitertRow End Function _ Public Function FindBykde_KundenNr(ByVal kde_KundenNr As Integer) As tblKundenErweitertRow Return CType(Me.Rows.Find(New Object() {kde_KundenNr}),tblKundenErweitertRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenErweitertDataTable = CType(MyBase.Clone,tblKundenErweitertDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenErweitertDataTable() End Function _ Friend Sub InitVars() Me.columnkde_KundenNr = MyBase.Columns("kde_KundenNr") Me.columnkde_FirmenwortlautFiskal = MyBase.Columns("kde_FirmenwortlautFiskal") Me.columnkde_VerwendetAuftragsNr = MyBase.Columns("kde_VerwendetAuftragsNr") Me.columnkde_FixeAuftragsNr = MyBase.Columns("kde_FixeAuftragsNr") Me.columnkde_qsTeamId = MyBase.Columns("kde_qsTeamId") Me.columnkde_qsTeamMAId = MyBase.Columns("kde_qsTeamMAId") Me.columnkde_TeamId = MyBase.Columns("kde_TeamId") Me.columnkde_TeamMAId = MyBase.Columns("kde_TeamMAId") Me.columnkde_qsTeamMAName = MyBase.Columns("kde_qsTeamMAName") Me.columnkde_qsTeamName = MyBase.Columns("kde_qsTeamName") Me.columnkde_Hoechstkredit = MyBase.Columns("kde_Hoechstkredit") Me.columnkde_Versicherung_Deckungsstopp = MyBase.Columns("kde_Versicherung_Deckungsstopp") Me.columnkde_Versicherung_DeckungsstoppDatum = MyBase.Columns("kde_Versicherung_DeckungsstoppDatum") Me.columnkde_Versicherung_Uebergeben = MyBase.Columns("kde_Versicherung_Uebergeben") Me.columnkde_Versicherung_UebergebenAm = MyBase.Columns("kde_Versicherung_UebergebenAm") Me.columnkde_Versicherung_AnerkennungVersicherungsfall = MyBase.Columns("kde_Versicherung_AnerkennungVersicherungsfall") Me.columnkde_Versicherung_AnerkennungVersicherungsfallAm = MyBase.Columns("kde_Versicherung_AnerkennungVersicherungsfallAm") Me.columnkde_Versicherung_AnerkennungVersicherungsfallAb = MyBase.Columns("kde_Versicherung_AnerkennungVersicherungsfallAb") Me.columnkde_txtVersicherungDeckungsquote = MyBase.Columns("kde_txtVersicherungDeckungsquote") Me.columnkde_txtVersicherungNichtVersicherbar = MyBase.Columns("kde_txtVersicherungNichtVersicherbar") Me.columnkde_Versicherung_GemeldeterBetrag = MyBase.Columns("kde_Versicherung_GemeldeterBetrag") Me.columnkde_txtVersicherungEHNr = MyBase.Columns("kde_txtVersicherungEHNr") Me.columnkde_Leihgeld_Provision = MyBase.Columns("kde_Leihgeld_Provision") Me.columnkde_Leihgeld_ProvisionPreisstaffel = MyBase.Columns("kde_Leihgeld_ProvisionPreisstaffel") Me.columnkde_Leihgeld_ProvisionAuftraggeber = MyBase.Columns("kde_Leihgeld_ProvisionAuftraggeber") Me.columnEmailFreigabeSendungsListe = MyBase.Columns("EmailFreigabeSendungsListe") Me.columnEmailFreigabe_SteuerbescheidPDF = MyBase.Columns("EmailFreigabe_SteuerbescheidPDF") Me.columnEmailFreigabe_SteuerbescheidPDF_Bedingung = MyBase.Columns("EmailFreigabe_SteuerbescheidPDF_Bedingung") Me.columnEmailFreigabe_Art = MyBase.Columns("EmailFreigabe_Art") Me.columnEmailFreigabe_VBDPDF = MyBase.Columns("EmailFreigabe_VBDPDF") Me.columnEmailFreigabe_ABDPDF = MyBase.Columns("EmailFreigabe_ABDPDF") Me.columnEmail_AVM = MyBase.Columns("Email_AVM") Me.columnDepot_Kunde = MyBase.Columns("Depot_Kunde") Me.columnFiBuSchnittstelleLG = MyBase.Columns("FiBuSchnittstelleLG") Me.columnZahlungsziel2 = MyBase.Columns("Zahlungsziel2") Me.columnZahlungsziel3 = MyBase.Columns("Zahlungsziel3") Me.columnEmailAnkunft_Export = MyBase.Columns("EmailAnkunft_Export") Me.columnEmailFreigabe_Export = MyBase.Columns("EmailFreigabe_Export") Me.columnEmailFreigabe_Export_Art = MyBase.Columns("EmailFreigabe_Export_Art") Me.columnkde_BonitaetsStufe = MyBase.Columns("kde_BonitaetsStufe") Me.columnkde_Inkasso_Uebergeben = MyBase.Columns("kde_Inkasso_Uebergeben") Me.columnkde_Inkasso_UebergebenAm = MyBase.Columns("kde_Inkasso_UebergebenAm") Me.columnkde_Inkasso_GemeldeterBetrag = MyBase.Columns("kde_Inkasso_GemeldeterBetrag") Me.columnAutoFakturierung = MyBase.Columns("AutoFakturierung") Me.columnAnmerkungen_Warnhinweis = MyBase.Columns("Anmerkungen_Warnhinweis") Me.columnkde_VERAG_INTERFACE_ID = MyBase.Columns("kde_VERAG_INTERFACE_ID") Me.columnkde_BesonderheitenNeu = MyBase.Columns("kde_BesonderheitenNeu") Me.columnkde_InfoAuftragsNr = MyBase.Columns("kde_InfoAuftragsNr") Me.columnkde_KundeFremdspedition = MyBase.Columns("kde_KundeFremdspedition") Me.columnkde_verzolltBei = MyBase.Columns("kde_verzolltBei") Me.columnkde_KundeFremdspeditionExport = MyBase.Columns("kde_KundeFremdspeditionExport") Me.columnkde_verzolltBeiExport = MyBase.Columns("kde_verzolltBeiExport") Me.columnVeranlagungskunde = MyBase.Columns("Veranlagungskunde") Me.columnkde_API_Tradeshift = MyBase.Columns("kde_API_Tradeshift") Me.columnkde_FakturierungSR_Details = MyBase.Columns("kde_FakturierungSR_Details") Me.columnkde_Fakturierung_Sprache = MyBase.Columns("kde_Fakturierung_Sprache") Me.columnkde_TOBB_KundenNr = MyBase.Columns("kde_TOBB_KundenNr") Me.columnkde_CreditSaveBonitaetsklasse = MyBase.Columns("kde_CreditSaveBonitaetsklasse") Me.columnkde_CreditSaveBonitaetsIndex = MyBase.Columns("kde_CreditSaveBonitaetsIndex") Me.columnkde_CreditSaveBonitaetsScore = MyBase.Columns("kde_CreditSaveBonitaetsScore") Me.columnkde_CreditSaveId = MyBase.Columns("kde_CreditSaveId") Me.columnkde_CreditSaveNo = MyBase.Columns("kde_CreditSaveNo") Me.columnkde_Abrechnung_SendungsdatenAusSTB = MyBase.Columns("kde_Abrechnung_SendungsdatenAusSTB") Me.columnkde_UIDMehrfachverwendung = MyBase.Columns("kde_UIDMehrfachverwendung") Me.columnkde_EORIgeprueftAm = MyBase.Columns("kde_EORIgeprueftAm") Me.columnkde_AdressZusatz = MyBase.Columns("kde_AdressZusatz") Me.columnkde_abweichendesZZVL = MyBase.Columns("kde_abweichendesZZVL") Me.columnkde_HRNr = MyBase.Columns("kde_HRNr") Me.columnkde_Kapital = MyBase.Columns("kde_Kapital") Me.columnkde_KapitalWaehrung = MyBase.Columns("kde_KapitalWaehrung") Me.columnkde_GruendungsDatum = MyBase.Columns("kde_GruendungsDatum") Me.columnkde_WechselBetrag = MyBase.Columns("kde_WechselBetrag") Me.columnkde_WechselGueltigBis = MyBase.Columns("kde_WechselGueltigBis") Me.columnkde_WechselErhaltenAm = MyBase.Columns("kde_WechselErhaltenAm") Me.columnkde_BankgarantielErhaltenAm = MyBase.Columns("kde_BankgarantielErhaltenAm") Me.columnkde_WechselBlanko = MyBase.Columns("kde_WechselBlanko") End Sub _ Private Sub InitClass() Me.columnkde_KundenNr = New Global.System.Data.DataColumn("kde_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_KundenNr) Me.columnkde_FirmenwortlautFiskal = New Global.System.Data.DataColumn("kde_FirmenwortlautFiskal", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_FirmenwortlautFiskal) Me.columnkde_VerwendetAuftragsNr = New Global.System.Data.DataColumn("kde_VerwendetAuftragsNr", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_VerwendetAuftragsNr) Me.columnkde_FixeAuftragsNr = New Global.System.Data.DataColumn("kde_FixeAuftragsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_FixeAuftragsNr) Me.columnkde_qsTeamId = New Global.System.Data.DataColumn("kde_qsTeamId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_qsTeamId) Me.columnkde_qsTeamMAId = New Global.System.Data.DataColumn("kde_qsTeamMAId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_qsTeamMAId) Me.columnkde_TeamId = New Global.System.Data.DataColumn("kde_TeamId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_TeamId) Me.columnkde_TeamMAId = New Global.System.Data.DataColumn("kde_TeamMAId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_TeamMAId) Me.columnkde_qsTeamMAName = New Global.System.Data.DataColumn("kde_qsTeamMAName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_qsTeamMAName) Me.columnkde_qsTeamName = New Global.System.Data.DataColumn("kde_qsTeamName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_qsTeamName) Me.columnkde_Hoechstkredit = New Global.System.Data.DataColumn("kde_Hoechstkredit", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Hoechstkredit) Me.columnkde_Versicherung_Deckungsstopp = New Global.System.Data.DataColumn("kde_Versicherung_Deckungsstopp", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Versicherung_Deckungsstopp) Me.columnkde_Versicherung_DeckungsstoppDatum = New Global.System.Data.DataColumn("kde_Versicherung_DeckungsstoppDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Versicherung_DeckungsstoppDatum) Me.columnkde_Versicherung_Uebergeben = New Global.System.Data.DataColumn("kde_Versicherung_Uebergeben", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Versicherung_Uebergeben) Me.columnkde_Versicherung_UebergebenAm = New Global.System.Data.DataColumn("kde_Versicherung_UebergebenAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Versicherung_UebergebenAm) Me.columnkde_Versicherung_AnerkennungVersicherungsfall = New Global.System.Data.DataColumn("kde_Versicherung_AnerkennungVersicherungsfall", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Versicherung_AnerkennungVersicherungsfall) Me.columnkde_Versicherung_AnerkennungVersicherungsfallAm = New Global.System.Data.DataColumn("kde_Versicherung_AnerkennungVersicherungsfallAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Versicherung_AnerkennungVersicherungsfallAm) Me.columnkde_Versicherung_AnerkennungVersicherungsfallAb = New Global.System.Data.DataColumn("kde_Versicherung_AnerkennungVersicherungsfallAb", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Versicherung_AnerkennungVersicherungsfallAb) Me.columnkde_txtVersicherungDeckungsquote = New Global.System.Data.DataColumn("kde_txtVersicherungDeckungsquote", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_txtVersicherungDeckungsquote) Me.columnkde_txtVersicherungNichtVersicherbar = New Global.System.Data.DataColumn("kde_txtVersicherungNichtVersicherbar", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_txtVersicherungNichtVersicherbar) Me.columnkde_Versicherung_GemeldeterBetrag = New Global.System.Data.DataColumn("kde_Versicherung_GemeldeterBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Versicherung_GemeldeterBetrag) Me.columnkde_txtVersicherungEHNr = New Global.System.Data.DataColumn("kde_txtVersicherungEHNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_txtVersicherungEHNr) Me.columnkde_Leihgeld_Provision = New Global.System.Data.DataColumn("kde_Leihgeld_Provision", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Leihgeld_Provision) Me.columnkde_Leihgeld_ProvisionPreisstaffel = New Global.System.Data.DataColumn("kde_Leihgeld_ProvisionPreisstaffel", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Leihgeld_ProvisionPreisstaffel) Me.columnkde_Leihgeld_ProvisionAuftraggeber = New Global.System.Data.DataColumn("kde_Leihgeld_ProvisionAuftraggeber", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Leihgeld_ProvisionAuftraggeber) Me.columnEmailFreigabeSendungsListe = New Global.System.Data.DataColumn("EmailFreigabeSendungsListe", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailFreigabeSendungsListe) Me.columnEmailFreigabe_SteuerbescheidPDF = New Global.System.Data.DataColumn("EmailFreigabe_SteuerbescheidPDF", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailFreigabe_SteuerbescheidPDF) Me.columnEmailFreigabe_SteuerbescheidPDF_Bedingung = New Global.System.Data.DataColumn("EmailFreigabe_SteuerbescheidPDF_Bedingung", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailFreigabe_SteuerbescheidPDF_Bedingung) Me.columnEmailFreigabe_Art = New Global.System.Data.DataColumn("EmailFreigabe_Art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailFreigabe_Art) Me.columnEmailFreigabe_VBDPDF = New Global.System.Data.DataColumn("EmailFreigabe_VBDPDF", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailFreigabe_VBDPDF) Me.columnEmailFreigabe_ABDPDF = New Global.System.Data.DataColumn("EmailFreigabe_ABDPDF", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailFreigabe_ABDPDF) Me.columnEmail_AVM = New Global.System.Data.DataColumn("Email_AVM", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail_AVM) Me.columnDepot_Kunde = New Global.System.Data.DataColumn("Depot_Kunde", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDepot_Kunde) Me.columnFiBuSchnittstelleLG = New Global.System.Data.DataColumn("FiBuSchnittstelleLG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiBuSchnittstelleLG) Me.columnZahlungsziel2 = New Global.System.Data.DataColumn("Zahlungsziel2", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsziel2) Me.columnZahlungsziel3 = New Global.System.Data.DataColumn("Zahlungsziel3", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsziel3) Me.columnEmailAnkunft_Export = New Global.System.Data.DataColumn("EmailAnkunft_Export", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailAnkunft_Export) Me.columnEmailFreigabe_Export = New Global.System.Data.DataColumn("EmailFreigabe_Export", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailFreigabe_Export) Me.columnEmailFreigabe_Export_Art = New Global.System.Data.DataColumn("EmailFreigabe_Export_Art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmailFreigabe_Export_Art) Me.columnkde_BonitaetsStufe = New Global.System.Data.DataColumn("kde_BonitaetsStufe", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_BonitaetsStufe) Me.columnkde_Inkasso_Uebergeben = New Global.System.Data.DataColumn("kde_Inkasso_Uebergeben", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Inkasso_Uebergeben) Me.columnkde_Inkasso_UebergebenAm = New Global.System.Data.DataColumn("kde_Inkasso_UebergebenAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Inkasso_UebergebenAm) Me.columnkde_Inkasso_GemeldeterBetrag = New Global.System.Data.DataColumn("kde_Inkasso_GemeldeterBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Inkasso_GemeldeterBetrag) Me.columnAutoFakturierung = New Global.System.Data.DataColumn("AutoFakturierung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAutoFakturierung) Me.columnAnmerkungen_Warnhinweis = New Global.System.Data.DataColumn("Anmerkungen_Warnhinweis", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmerkungen_Warnhinweis) Me.columnkde_VERAG_INTERFACE_ID = New Global.System.Data.DataColumn("kde_VERAG_INTERFACE_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_VERAG_INTERFACE_ID) Me.columnkde_BesonderheitenNeu = New Global.System.Data.DataColumn("kde_BesonderheitenNeu", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_BesonderheitenNeu) Me.columnkde_InfoAuftragsNr = New Global.System.Data.DataColumn("kde_InfoAuftragsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_InfoAuftragsNr) Me.columnkde_KundeFremdspedition = New Global.System.Data.DataColumn("kde_KundeFremdspedition", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_KundeFremdspedition) Me.columnkde_verzolltBei = New Global.System.Data.DataColumn("kde_verzolltBei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_verzolltBei) Me.columnkde_KundeFremdspeditionExport = New Global.System.Data.DataColumn("kde_KundeFremdspeditionExport", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_KundeFremdspeditionExport) Me.columnkde_verzolltBeiExport = New Global.System.Data.DataColumn("kde_verzolltBeiExport", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_verzolltBeiExport) Me.columnVeranlagungskunde = New Global.System.Data.DataColumn("Veranlagungskunde", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVeranlagungskunde) Me.columnkde_API_Tradeshift = New Global.System.Data.DataColumn("kde_API_Tradeshift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_API_Tradeshift) Me.columnkde_FakturierungSR_Details = New Global.System.Data.DataColumn("kde_FakturierungSR_Details", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_FakturierungSR_Details) Me.columnkde_Fakturierung_Sprache = New Global.System.Data.DataColumn("kde_Fakturierung_Sprache", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Fakturierung_Sprache) Me.columnkde_TOBB_KundenNr = New Global.System.Data.DataColumn("kde_TOBB_KundenNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_TOBB_KundenNr) Me.columnkde_CreditSaveBonitaetsklasse = New Global.System.Data.DataColumn("kde_CreditSaveBonitaetsklasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_CreditSaveBonitaetsklasse) Me.columnkde_CreditSaveBonitaetsIndex = New Global.System.Data.DataColumn("kde_CreditSaveBonitaetsIndex", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_CreditSaveBonitaetsIndex) Me.columnkde_CreditSaveBonitaetsScore = New Global.System.Data.DataColumn("kde_CreditSaveBonitaetsScore", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_CreditSaveBonitaetsScore) Me.columnkde_CreditSaveId = New Global.System.Data.DataColumn("kde_CreditSaveId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_CreditSaveId) Me.columnkde_CreditSaveNo = New Global.System.Data.DataColumn("kde_CreditSaveNo", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_CreditSaveNo) Me.columnkde_Abrechnung_SendungsdatenAusSTB = New Global.System.Data.DataColumn("kde_Abrechnung_SendungsdatenAusSTB", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Abrechnung_SendungsdatenAusSTB) Me.columnkde_UIDMehrfachverwendung = New Global.System.Data.DataColumn("kde_UIDMehrfachverwendung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_UIDMehrfachverwendung) Me.columnkde_EORIgeprueftAm = New Global.System.Data.DataColumn("kde_EORIgeprueftAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_EORIgeprueftAm) Me.columnkde_AdressZusatz = New Global.System.Data.DataColumn("kde_AdressZusatz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_AdressZusatz) Me.columnkde_abweichendesZZVL = New Global.System.Data.DataColumn("kde_abweichendesZZVL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_abweichendesZZVL) Me.columnkde_HRNr = New Global.System.Data.DataColumn("kde_HRNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_HRNr) Me.columnkde_Kapital = New Global.System.Data.DataColumn("kde_Kapital", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_Kapital) Me.columnkde_KapitalWaehrung = New Global.System.Data.DataColumn("kde_KapitalWaehrung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_KapitalWaehrung) Me.columnkde_GruendungsDatum = New Global.System.Data.DataColumn("kde_GruendungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_GruendungsDatum) Me.columnkde_WechselBetrag = New Global.System.Data.DataColumn("kde_WechselBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_WechselBetrag) Me.columnkde_WechselGueltigBis = New Global.System.Data.DataColumn("kde_WechselGueltigBis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_WechselGueltigBis) Me.columnkde_WechselErhaltenAm = New Global.System.Data.DataColumn("kde_WechselErhaltenAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_WechselErhaltenAm) Me.columnkde_BankgarantielErhaltenAm = New Global.System.Data.DataColumn("kde_BankgarantielErhaltenAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_BankgarantielErhaltenAm) Me.columnkde_WechselBlanko = New Global.System.Data.DataColumn("kde_WechselBlanko", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkde_WechselBlanko) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkde_KundenNr}, true)) Me.columnkde_KundenNr.AllowDBNull = false Me.columnkde_KundenNr.Unique = true Me.columnkde_FirmenwortlautFiskal.MaxLength = 500 Me.columnkde_VerwendetAuftragsNr.AllowDBNull = false Me.columnkde_FixeAuftragsNr.MaxLength = 100 Me.columnkde_qsTeamMAName.MaxLength = 100 Me.columnkde_qsTeamName.MaxLength = 100 Me.columnkde_Versicherung_Deckungsstopp.AllowDBNull = false Me.columnkde_txtVersicherungEHNr.MaxLength = 100 Me.columnEmailFreigabeSendungsListe.AllowDBNull = false Me.columnEmailFreigabe_SteuerbescheidPDF.AllowDBNull = false Me.columnEmailFreigabe_SteuerbescheidPDF_Bedingung.AllowDBNull = false Me.columnEmailFreigabe_Art.AllowDBNull = false Me.columnEmailFreigabe_Art.MaxLength = 100 Me.columnEmailFreigabe_VBDPDF.AllowDBNull = false Me.columnEmailFreigabe_ABDPDF.AllowDBNull = false Me.columnEmail_AVM.AllowDBNull = false Me.columnDepot_Kunde.AllowDBNull = false Me.columnFiBuSchnittstelleLG.AllowDBNull = false Me.columnEmailAnkunft_Export.AllowDBNull = false Me.columnEmailFreigabe_Export.AllowDBNull = false Me.columnEmailFreigabe_Export_Art.AllowDBNull = false Me.columnEmailFreigabe_Export_Art.MaxLength = 100 Me.columnAutoFakturierung.AllowDBNull = false Me.columnAnmerkungen_Warnhinweis.MaxLength = 2147483647 Me.columnkde_VERAG_INTERFACE_ID.MaxLength = 50 Me.columnkde_BesonderheitenNeu.AllowDBNull = false Me.columnkde_InfoAuftragsNr.MaxLength = 500 Me.columnkde_KundeFremdspedition.AllowDBNull = false Me.columnkde_verzolltBei.MaxLength = 500 Me.columnkde_KundeFremdspeditionExport.AllowDBNull = false Me.columnkde_verzolltBeiExport.MaxLength = 500 Me.columnVeranlagungskunde.AllowDBNull = false Me.columnkde_API_Tradeshift.AllowDBNull = false Me.columnkde_FakturierungSR_Details.AllowDBNull = false Me.columnkde_Fakturierung_Sprache.MaxLength = 3 Me.columnkde_TOBB_KundenNr.MaxLength = 20 Me.columnkde_CreditSaveBonitaetsklasse.MaxLength = 1 Me.columnkde_CreditSaveId.MaxLength = 50 Me.columnkde_CreditSaveNo.MaxLength = 50 Me.columnkde_Abrechnung_SendungsdatenAusSTB.AllowDBNull = false Me.columnkde_UIDMehrfachverwendung.AllowDBNull = false Me.columnkde_AdressZusatz.MaxLength = 50 Me.columnkde_HRNr.MaxLength = 25 Me.columnkde_KapitalWaehrung.MaxLength = 3 Me.columnkde_WechselBlanko.AllowDBNull = false End Sub _ Public Function NewtblKundenErweitertRow() As tblKundenErweitertRow Return CType(Me.NewRow,tblKundenErweitertRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenErweitertRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenErweitertRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenErweitertRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenErweitertRowChanged(Me, New tblKundenErweitertRowChangeEvent(CType(e.Row,tblKundenErweitertRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenErweitertRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenErweitertRowChanging(Me, New tblKundenErweitertRowChangeEvent(CType(e.Row,tblKundenErweitertRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenErweitertRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenErweitertRowDeleted(Me, New tblKundenErweitertRowChangeEvent(CType(e.Row,tblKundenErweitertRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenErweitertRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenErweitertRowDeleting(Me, New tblKundenErweitertRowChangeEvent(CType(e.Row,tblKundenErweitertRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenErweitertRow(ByVal row As tblKundenErweitertRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenErweitertDataTable" 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 tblKundenKontaktDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenKontaktRow) Private columnkkd_id As Global.System.Data.DataColumn Private columnkkd_KundenNr As Global.System.Data.DataColumn Private columnkkd_kkaId As Global.System.Data.DataColumn Private columnkkd_kkaBez As Global.System.Data.DataColumn Private columnkkd_Tel As Global.System.Data.DataColumn Private columnkkd_Email As Global.System.Data.DataColumn Private columnkkd_EmailCC As Global.System.Data.DataColumn Private columnkkd_EmailBCC As Global.System.Data.DataColumn Private columnkkd_Fax As Global.System.Data.DataColumn Private columnkkd_Homepage As Global.System.Data.DataColumn Private columnkkd_Mobil As Global.System.Data.DataColumn Private columnkkd_AnsprechpartnerAnrede As Global.System.Data.DataColumn Private columnkkd_AnsprechpartnerVorname As Global.System.Data.DataColumn Private columnkkd_AnsprechpartnerNachname As Global.System.Data.DataColumn Private columnkkd_Adresse As Global.System.Data.DataColumn Private columnkkd_Ort As Global.System.Data.DataColumn Private columnkkd_Land As Global.System.Data.DataColumn Private columnkkd_PLZ As Global.System.Data.DataColumn Private columnkkd_GebDatum As Global.System.Data.DataColumn Private columnkkd_Passgueltigbis As Global.System.Data.DataColumn Private columnkkd_Firmenname As Global.System.Data.DataColumn Private columnkkd_Geburtsland As Global.System.Data.DataColumn Private columnkkd_Geburtsort As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenKontakt" 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 kkd_idColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_id End Get End Property _ Public ReadOnly Property kkd_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_KundenNr End Get End Property _ Public ReadOnly Property kkd_kkaIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_kkaId End Get End Property _ Public ReadOnly Property kkd_kkaBezColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_kkaBez End Get End Property _ Public ReadOnly Property kkd_TelColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Tel End Get End Property _ Public ReadOnly Property kkd_EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Email End Get End Property _ Public ReadOnly Property kkd_EmailCCColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_EmailCC End Get End Property _ Public ReadOnly Property kkd_EmailBCCColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_EmailBCC End Get End Property _ Public ReadOnly Property kkd_FaxColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Fax End Get End Property _ Public ReadOnly Property kkd_HomepageColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Homepage End Get End Property _ Public ReadOnly Property kkd_MobilColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Mobil End Get End Property _ Public ReadOnly Property kkd_AnsprechpartnerAnredeColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_AnsprechpartnerAnrede End Get End Property _ Public ReadOnly Property kkd_AnsprechpartnerVornameColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_AnsprechpartnerVorname End Get End Property _ Public ReadOnly Property kkd_AnsprechpartnerNachnameColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_AnsprechpartnerNachname End Get End Property _ Public ReadOnly Property kkd_AdresseColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Adresse End Get End Property _ Public ReadOnly Property kkd_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Ort End Get End Property _ Public ReadOnly Property kkd_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Land End Get End Property _ Public ReadOnly Property kkd_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_PLZ End Get End Property _ Public ReadOnly Property kkd_GebDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_GebDatum End Get End Property _ Public ReadOnly Property kkd_PassgueltigbisColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Passgueltigbis End Get End Property _ Public ReadOnly Property kkd_FirmennameColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Firmenname End Get End Property _ Public ReadOnly Property kkd_GeburtslandColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Geburtsland End Get End Property _ Public ReadOnly Property kkd_GeburtsortColumn() As Global.System.Data.DataColumn Get Return Me.columnkkd_Geburtsort 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 tblKundenKontaktRow Get Return CType(Me.Rows(index),tblKundenKontaktRow) End Get End Property _ Public Event tblKundenKontaktRowChanging As tblKundenKontaktRowChangeEventHandler _ Public Event tblKundenKontaktRowChanged As tblKundenKontaktRowChangeEventHandler _ Public Event tblKundenKontaktRowDeleting As tblKundenKontaktRowChangeEventHandler _ Public Event tblKundenKontaktRowDeleted As tblKundenKontaktRowChangeEventHandler _ Public Overloads Sub AddtblKundenKontaktRow(ByVal row As tblKundenKontaktRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenKontaktRow( _ ByVal kkd_KundenNr As Integer, _ ByVal kkd_kkaId As Integer, _ ByVal kkd_kkaBez As String, _ ByVal kkd_Tel As String, _ ByVal kkd_Email As String, _ ByVal kkd_EmailCC As String, _ ByVal kkd_EmailBCC As String, _ ByVal kkd_Fax As String, _ ByVal kkd_Homepage As String, _ ByVal kkd_Mobil As String, _ ByVal kkd_AnsprechpartnerAnrede As String, _ ByVal kkd_AnsprechpartnerVorname As String, _ ByVal kkd_AnsprechpartnerNachname As String, _ ByVal kkd_Adresse As String, _ ByVal kkd_Ort As String, _ ByVal kkd_Land As String, _ ByVal kkd_PLZ As String, _ ByVal kkd_GebDatum As Date, _ ByVal kkd_Passgueltigbis As Date, _ ByVal kkd_Firmenname As String, _ ByVal kkd_Geburtsland As String, _ ByVal kkd_Geburtsort As String) As tblKundenKontaktRow Dim rowtblKundenKontaktRow As tblKundenKontaktRow = CType(Me.NewRow,tblKundenKontaktRow) Dim columnValuesArray() As Object = New Object() {Nothing, kkd_KundenNr, kkd_kkaId, kkd_kkaBez, kkd_Tel, kkd_Email, kkd_EmailCC, kkd_EmailBCC, kkd_Fax, kkd_Homepage, kkd_Mobil, kkd_AnsprechpartnerAnrede, kkd_AnsprechpartnerVorname, kkd_AnsprechpartnerNachname, kkd_Adresse, kkd_Ort, kkd_Land, kkd_PLZ, kkd_GebDatum, kkd_Passgueltigbis, kkd_Firmenname, kkd_Geburtsland, kkd_Geburtsort} rowtblKundenKontaktRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenKontaktRow) Return rowtblKundenKontaktRow End Function _ Public Function FindBykkd_id(ByVal kkd_id As Integer) As tblKundenKontaktRow Return CType(Me.Rows.Find(New Object() {kkd_id}),tblKundenKontaktRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenKontaktDataTable = CType(MyBase.Clone,tblKundenKontaktDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenKontaktDataTable() End Function _ Friend Sub InitVars() Me.columnkkd_id = MyBase.Columns("kkd_id") Me.columnkkd_KundenNr = MyBase.Columns("kkd_KundenNr") Me.columnkkd_kkaId = MyBase.Columns("kkd_kkaId") Me.columnkkd_kkaBez = MyBase.Columns("kkd_kkaBez") Me.columnkkd_Tel = MyBase.Columns("kkd_Tel") Me.columnkkd_Email = MyBase.Columns("kkd_Email") Me.columnkkd_EmailCC = MyBase.Columns("kkd_EmailCC") Me.columnkkd_EmailBCC = MyBase.Columns("kkd_EmailBCC") Me.columnkkd_Fax = MyBase.Columns("kkd_Fax") Me.columnkkd_Homepage = MyBase.Columns("kkd_Homepage") Me.columnkkd_Mobil = MyBase.Columns("kkd_Mobil") Me.columnkkd_AnsprechpartnerAnrede = MyBase.Columns("kkd_AnsprechpartnerAnrede") Me.columnkkd_AnsprechpartnerVorname = MyBase.Columns("kkd_AnsprechpartnerVorname") Me.columnkkd_AnsprechpartnerNachname = MyBase.Columns("kkd_AnsprechpartnerNachname") Me.columnkkd_Adresse = MyBase.Columns("kkd_Adresse") Me.columnkkd_Ort = MyBase.Columns("kkd_Ort") Me.columnkkd_Land = MyBase.Columns("kkd_Land") Me.columnkkd_PLZ = MyBase.Columns("kkd_PLZ") Me.columnkkd_GebDatum = MyBase.Columns("kkd_GebDatum") Me.columnkkd_Passgueltigbis = MyBase.Columns("kkd_Passgueltigbis") Me.columnkkd_Firmenname = MyBase.Columns("kkd_Firmenname") Me.columnkkd_Geburtsland = MyBase.Columns("kkd_Geburtsland") Me.columnkkd_Geburtsort = MyBase.Columns("kkd_Geburtsort") End Sub _ Private Sub InitClass() Me.columnkkd_id = New Global.System.Data.DataColumn("kkd_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_id) Me.columnkkd_KundenNr = New Global.System.Data.DataColumn("kkd_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_KundenNr) Me.columnkkd_kkaId = New Global.System.Data.DataColumn("kkd_kkaId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_kkaId) Me.columnkkd_kkaBez = New Global.System.Data.DataColumn("kkd_kkaBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_kkaBez) Me.columnkkd_Tel = New Global.System.Data.DataColumn("kkd_Tel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Tel) Me.columnkkd_Email = New Global.System.Data.DataColumn("kkd_Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Email) Me.columnkkd_EmailCC = New Global.System.Data.DataColumn("kkd_EmailCC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_EmailCC) Me.columnkkd_EmailBCC = New Global.System.Data.DataColumn("kkd_EmailBCC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_EmailBCC) Me.columnkkd_Fax = New Global.System.Data.DataColumn("kkd_Fax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Fax) Me.columnkkd_Homepage = New Global.System.Data.DataColumn("kkd_Homepage", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Homepage) Me.columnkkd_Mobil = New Global.System.Data.DataColumn("kkd_Mobil", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Mobil) Me.columnkkd_AnsprechpartnerAnrede = New Global.System.Data.DataColumn("kkd_AnsprechpartnerAnrede", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_AnsprechpartnerAnrede) Me.columnkkd_AnsprechpartnerVorname = New Global.System.Data.DataColumn("kkd_AnsprechpartnerVorname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_AnsprechpartnerVorname) Me.columnkkd_AnsprechpartnerNachname = New Global.System.Data.DataColumn("kkd_AnsprechpartnerNachname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_AnsprechpartnerNachname) Me.columnkkd_Adresse = New Global.System.Data.DataColumn("kkd_Adresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Adresse) Me.columnkkd_Ort = New Global.System.Data.DataColumn("kkd_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Ort) Me.columnkkd_Land = New Global.System.Data.DataColumn("kkd_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Land) Me.columnkkd_PLZ = New Global.System.Data.DataColumn("kkd_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_PLZ) Me.columnkkd_GebDatum = New Global.System.Data.DataColumn("kkd_GebDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_GebDatum) Me.columnkkd_Passgueltigbis = New Global.System.Data.DataColumn("kkd_Passgueltigbis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Passgueltigbis) Me.columnkkd_Firmenname = New Global.System.Data.DataColumn("kkd_Firmenname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Firmenname) Me.columnkkd_Geburtsland = New Global.System.Data.DataColumn("kkd_Geburtsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Geburtsland) Me.columnkkd_Geburtsort = New Global.System.Data.DataColumn("kkd_Geburtsort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkkd_Geburtsort) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkkd_id}, true)) Me.columnkkd_id.AutoIncrement = true Me.columnkkd_id.AutoIncrementSeed = -1 Me.columnkkd_id.AutoIncrementStep = -1 Me.columnkkd_id.AllowDBNull = false Me.columnkkd_id.ReadOnly = true Me.columnkkd_id.Unique = true Me.columnkkd_KundenNr.AllowDBNull = false Me.columnkkd_kkaId.AllowDBNull = false Me.columnkkd_kkaBez.MaxLength = 50 Me.columnkkd_Tel.MaxLength = 256 Me.columnkkd_Email.MaxLength = 2147483647 Me.columnkkd_EmailCC.MaxLength = 2147483647 Me.columnkkd_EmailBCC.MaxLength = 2147483647 Me.columnkkd_Fax.MaxLength = 256 Me.columnkkd_Homepage.MaxLength = 256 Me.columnkkd_Mobil.MaxLength = 256 Me.columnkkd_AnsprechpartnerAnrede.MaxLength = 256 Me.columnkkd_AnsprechpartnerVorname.MaxLength = 256 Me.columnkkd_AnsprechpartnerNachname.MaxLength = 256 Me.columnkkd_Adresse.MaxLength = 2147483647 Me.columnkkd_Ort.MaxLength = 50 Me.columnkkd_Land.MaxLength = 3 Me.columnkkd_PLZ.MaxLength = 10 Me.columnkkd_Firmenname.MaxLength = 256 Me.columnkkd_Geburtsland.MaxLength = 3 Me.columnkkd_Geburtsort.MaxLength = 50 End Sub _ Public Function NewtblKundenKontaktRow() As tblKundenKontaktRow Return CType(Me.NewRow,tblKundenKontaktRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenKontaktRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenKontaktRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenKontaktRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenKontaktRowChanged(Me, New tblKundenKontaktRowChangeEvent(CType(e.Row,tblKundenKontaktRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenKontaktRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenKontaktRowChanging(Me, New tblKundenKontaktRowChangeEvent(CType(e.Row,tblKundenKontaktRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenKontaktRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenKontaktRowDeleted(Me, New tblKundenKontaktRowChangeEvent(CType(e.Row,tblKundenKontaktRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenKontaktRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenKontaktRowDeleting(Me, New tblKundenKontaktRowChangeEvent(CType(e.Row,tblKundenKontaktRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenKontaktRow(ByVal row As tblKundenKontaktRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenKontaktDataTable" 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 tblKundenKontaktArtenDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenKontaktArtenRow) Private columnkka_id As Global.System.Data.DataColumn Private columnkka_Bezeichnung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenKontaktArten" 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 kka_idColumn() As Global.System.Data.DataColumn Get Return Me.columnkka_id End Get End Property _ Public ReadOnly Property kka_BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnkka_Bezeichnung 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 tblKundenKontaktArtenRow Get Return CType(Me.Rows(index),tblKundenKontaktArtenRow) End Get End Property _ Public Event tblKundenKontaktArtenRowChanging As tblKundenKontaktArtenRowChangeEventHandler _ Public Event tblKundenKontaktArtenRowChanged As tblKundenKontaktArtenRowChangeEventHandler _ Public Event tblKundenKontaktArtenRowDeleting As tblKundenKontaktArtenRowChangeEventHandler _ Public Event tblKundenKontaktArtenRowDeleted As tblKundenKontaktArtenRowChangeEventHandler _ Public Overloads Sub AddtblKundenKontaktArtenRow(ByVal row As tblKundenKontaktArtenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenKontaktArtenRow(ByVal kka_Bezeichnung As String) As tblKundenKontaktArtenRow Dim rowtblKundenKontaktArtenRow As tblKundenKontaktArtenRow = CType(Me.NewRow,tblKundenKontaktArtenRow) Dim columnValuesArray() As Object = New Object() {Nothing, kka_Bezeichnung} rowtblKundenKontaktArtenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenKontaktArtenRow) Return rowtblKundenKontaktArtenRow End Function _ Public Function FindBykka_id(ByVal kka_id As Integer) As tblKundenKontaktArtenRow Return CType(Me.Rows.Find(New Object() {kka_id}),tblKundenKontaktArtenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenKontaktArtenDataTable = CType(MyBase.Clone,tblKundenKontaktArtenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenKontaktArtenDataTable() End Function _ Friend Sub InitVars() Me.columnkka_id = MyBase.Columns("kka_id") Me.columnkka_Bezeichnung = MyBase.Columns("kka_Bezeichnung") End Sub _ Private Sub InitClass() Me.columnkka_id = New Global.System.Data.DataColumn("kka_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkka_id) Me.columnkka_Bezeichnung = New Global.System.Data.DataColumn("kka_Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkka_Bezeichnung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkka_id}, true)) Me.columnkka_id.AutoIncrement = true Me.columnkka_id.AutoIncrementSeed = -1 Me.columnkka_id.AutoIncrementStep = -1 Me.columnkka_id.AllowDBNull = false Me.columnkka_id.ReadOnly = true Me.columnkka_id.Unique = true Me.columnkka_Bezeichnung.AllowDBNull = false Me.columnkka_Bezeichnung.MaxLength = 50 End Sub _ Public Function NewtblKundenKontaktArtenRow() As tblKundenKontaktArtenRow Return CType(Me.NewRow,tblKundenKontaktArtenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenKontaktArtenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenKontaktArtenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenKontaktArtenRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenKontaktArtenRowChanged(Me, New tblKundenKontaktArtenRowChangeEvent(CType(e.Row,tblKundenKontaktArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenKontaktArtenRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenKontaktArtenRowChanging(Me, New tblKundenKontaktArtenRowChangeEvent(CType(e.Row,tblKundenKontaktArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenKontaktArtenRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenKontaktArtenRowDeleted(Me, New tblKundenKontaktArtenRowChangeEvent(CType(e.Row,tblKundenKontaktArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenKontaktArtenRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenKontaktArtenRowDeleting(Me, New tblKundenKontaktArtenRowChangeEvent(CType(e.Row,tblKundenKontaktArtenRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenKontaktArtenRow(ByVal row As tblKundenKontaktArtenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenKontaktArtenDataTable" 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 tblKundenumsatzDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenumsatzRow) Private columnKundenNr As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnJahr As Global.System.Data.DataColumn Private columnsteuerpflichtig As Global.System.Data.DataColumn Private columnsteuerfrei As Global.System.Data.DataColumn Private columnNettoumsatz As Global.System.Data.DataColumn Private columnMwSt As Global.System.Data.DataColumn Private columnBruttoumsatz As Global.System.Data.DataColumn Private columnWährung As Global.System.Data.DataColumn Private columnRechnungen As Global.System.Data.DataColumn Private columnGutschriften As Global.System.Data.DataColumn Private columnDatum As Global.System.Data.DataColumn Private columnNummer As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenumsatz" 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 KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property JahrColumn() As Global.System.Data.DataColumn Get Return Me.columnJahr End Get End Property _ Public ReadOnly Property steuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnsteuerpflichtig End Get End Property _ Public ReadOnly Property steuerfreiColumn() As Global.System.Data.DataColumn Get Return Me.columnsteuerfrei End Get End Property _ Public ReadOnly Property NettoumsatzColumn() As Global.System.Data.DataColumn Get Return Me.columnNettoumsatz End Get End Property _ Public ReadOnly Property MwStColumn() As Global.System.Data.DataColumn Get Return Me.columnMwSt End Get End Property _ Public ReadOnly Property BruttoumsatzColumn() As Global.System.Data.DataColumn Get Return Me.columnBruttoumsatz End Get End Property _ Public ReadOnly Property WährungColumn() As Global.System.Data.DataColumn Get Return Me.columnWährung End Get End Property _ Public ReadOnly Property RechnungenColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungen End Get End Property _ Public ReadOnly Property GutschriftenColumn() As Global.System.Data.DataColumn Get Return Me.columnGutschriften End Get End Property _ Public ReadOnly Property DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnDatum End Get End Property _ Public ReadOnly Property NummerColumn() As Global.System.Data.DataColumn Get Return Me.columnNummer End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblKundenumsatzRow Get Return CType(Me.Rows(index),tblKundenumsatzRow) End Get End Property _ Public Event tblKundenumsatzRowChanging As tblKundenumsatzRowChangeEventHandler _ Public Event tblKundenumsatzRowChanged As tblKundenumsatzRowChangeEventHandler _ Public Event tblKundenumsatzRowDeleting As tblKundenumsatzRowChangeEventHandler _ Public Event tblKundenumsatzRowDeleted As tblKundenumsatzRowChangeEventHandler _ Public Overloads Sub AddtblKundenumsatzRow(ByVal row As tblKundenumsatzRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenumsatzRow(ByVal KundenNr As Integer, ByVal Firma_ID As Short, ByVal Jahr As Short, ByVal steuerpflichtig As Decimal, ByVal steuerfrei As Decimal, ByVal Nettoumsatz As Decimal, ByVal MwSt As Decimal, ByVal Bruttoumsatz As Decimal, ByVal Währung As String, ByVal Rechnungen As Double, ByVal Gutschriften As Double, ByVal Datum As Date, ByVal Nummer As Integer, ByVal SSMA_TimeStamp() As Byte) As tblKundenumsatzRow Dim rowtblKundenumsatzRow As tblKundenumsatzRow = CType(Me.NewRow,tblKundenumsatzRow) Dim columnValuesArray() As Object = New Object() {KundenNr, Firma_ID, Jahr, steuerpflichtig, steuerfrei, Nettoumsatz, MwSt, Bruttoumsatz, Währung, Rechnungen, Gutschriften, Datum, Nummer, SSMA_TimeStamp} rowtblKundenumsatzRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenumsatzRow) Return rowtblKundenumsatzRow End Function _ Public Function FindByKundenNrFirma_IDJahrWährung(ByVal KundenNr As Integer, ByVal Firma_ID As Short, ByVal Jahr As Short, ByVal Währung As String) As tblKundenumsatzRow Return CType(Me.Rows.Find(New Object() {KundenNr, Firma_ID, Jahr, Währung}),tblKundenumsatzRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenumsatzDataTable = CType(MyBase.Clone,tblKundenumsatzDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenumsatzDataTable() End Function _ Friend Sub InitVars() Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnJahr = MyBase.Columns("Jahr") Me.columnsteuerpflichtig = MyBase.Columns("steuerpflichtig") Me.columnsteuerfrei = MyBase.Columns("steuerfrei") Me.columnNettoumsatz = MyBase.Columns("Nettoumsatz") Me.columnMwSt = MyBase.Columns("MwSt") Me.columnBruttoumsatz = MyBase.Columns("Bruttoumsatz") Me.columnWährung = MyBase.Columns("Währung") Me.columnRechnungen = MyBase.Columns("Rechnungen") Me.columnGutschriften = MyBase.Columns("Gutschriften") Me.columnDatum = MyBase.Columns("Datum") Me.columnNummer = MyBase.Columns("Nummer") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnJahr = New Global.System.Data.DataColumn("Jahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnJahr) Me.columnsteuerpflichtig = New Global.System.Data.DataColumn("steuerpflichtig", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsteuerpflichtig) Me.columnsteuerfrei = New Global.System.Data.DataColumn("steuerfrei", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsteuerfrei) Me.columnNettoumsatz = New Global.System.Data.DataColumn("Nettoumsatz", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettoumsatz) Me.columnMwSt = New Global.System.Data.DataColumn("MwSt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMwSt) Me.columnBruttoumsatz = New Global.System.Data.DataColumn("Bruttoumsatz", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBruttoumsatz) Me.columnWährung = New Global.System.Data.DataColumn("Währung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährung) Me.columnRechnungen = New Global.System.Data.DataColumn("Rechnungen", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungen) Me.columnGutschriften = New Global.System.Data.DataColumn("Gutschriften", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGutschriften) Me.columnDatum = New Global.System.Data.DataColumn("Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatum) Me.columnNummer = New Global.System.Data.DataColumn("Nummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNummer) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKundenNr, Me.columnFirma_ID, Me.columnJahr, Me.columnWährung}, true)) Me.columnKundenNr.AllowDBNull = false Me.columnFirma_ID.AllowDBNull = false Me.columnJahr.AllowDBNull = false Me.columnWährung.AllowDBNull = false Me.columnWährung.MaxLength = 3 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblKundenumsatzRow() As tblKundenumsatzRow Return CType(Me.NewRow,tblKundenumsatzRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenumsatzRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenumsatzRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenumsatzRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenumsatzRowChanged(Me, New tblKundenumsatzRowChangeEvent(CType(e.Row,tblKundenumsatzRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenumsatzRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenumsatzRowChanging(Me, New tblKundenumsatzRowChangeEvent(CType(e.Row,tblKundenumsatzRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenumsatzRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenumsatzRowDeleted(Me, New tblKundenumsatzRowChangeEvent(CType(e.Row,tblKundenumsatzRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenumsatzRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenumsatzRowDeleting(Me, New tblKundenumsatzRowChangeEvent(CType(e.Row,tblKundenumsatzRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenumsatzRow(ByVal row As tblKundenumsatzRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenumsatzDataTable" 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 tblKundenVermerkeDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenVermerkeRow) Private columnkvm_id As Global.System.Data.DataColumn Private columnkvm_KundenNr As Global.System.Data.DataColumn Private columnkvm_art As Global.System.Data.DataColumn Private columnkvm_datum As Global.System.Data.DataColumn Private columnkvm_text As Global.System.Data.DataColumn Private columnkvm_sbId As Global.System.Data.DataColumn Private columnkvm_sb As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenVermerke" 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 kvm_idColumn() As Global.System.Data.DataColumn Get Return Me.columnkvm_id End Get End Property _ Public ReadOnly Property kvm_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkvm_KundenNr End Get End Property _ Public ReadOnly Property kvm_artColumn() As Global.System.Data.DataColumn Get Return Me.columnkvm_art End Get End Property _ Public ReadOnly Property kvm_datumColumn() As Global.System.Data.DataColumn Get Return Me.columnkvm_datum End Get End Property _ Public ReadOnly Property kvm_textColumn() As Global.System.Data.DataColumn Get Return Me.columnkvm_text End Get End Property _ Public ReadOnly Property kvm_sbIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkvm_sbId End Get End Property _ Public ReadOnly Property kvm_sbColumn() As Global.System.Data.DataColumn Get Return Me.columnkvm_sb 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 tblKundenVermerkeRow Get Return CType(Me.Rows(index),tblKundenVermerkeRow) End Get End Property _ Public Event tblKundenVermerkeRowChanging As tblKundenVermerkeRowChangeEventHandler _ Public Event tblKundenVermerkeRowChanged As tblKundenVermerkeRowChangeEventHandler _ Public Event tblKundenVermerkeRowDeleting As tblKundenVermerkeRowChangeEventHandler _ Public Event tblKundenVermerkeRowDeleted As tblKundenVermerkeRowChangeEventHandler _ Public Overloads Sub AddtblKundenVermerkeRow(ByVal row As tblKundenVermerkeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenVermerkeRow(ByVal kvm_KundenNr As Integer, ByVal kvm_art As String, ByVal kvm_datum As Date, ByVal kvm_text As String, ByVal kvm_sbId As Integer, ByVal kvm_sb As String) As tblKundenVermerkeRow Dim rowtblKundenVermerkeRow As tblKundenVermerkeRow = CType(Me.NewRow,tblKundenVermerkeRow) Dim columnValuesArray() As Object = New Object() {Nothing, kvm_KundenNr, kvm_art, kvm_datum, kvm_text, kvm_sbId, kvm_sb} rowtblKundenVermerkeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenVermerkeRow) Return rowtblKundenVermerkeRow End Function _ Public Function FindBykvm_id(ByVal kvm_id As Integer) As tblKundenVermerkeRow Return CType(Me.Rows.Find(New Object() {kvm_id}),tblKundenVermerkeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenVermerkeDataTable = CType(MyBase.Clone,tblKundenVermerkeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenVermerkeDataTable() End Function _ Friend Sub InitVars() Me.columnkvm_id = MyBase.Columns("kvm_id") Me.columnkvm_KundenNr = MyBase.Columns("kvm_KundenNr") Me.columnkvm_art = MyBase.Columns("kvm_art") Me.columnkvm_datum = MyBase.Columns("kvm_datum") Me.columnkvm_text = MyBase.Columns("kvm_text") Me.columnkvm_sbId = MyBase.Columns("kvm_sbId") Me.columnkvm_sb = MyBase.Columns("kvm_sb") End Sub _ Private Sub InitClass() Me.columnkvm_id = New Global.System.Data.DataColumn("kvm_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkvm_id) Me.columnkvm_KundenNr = New Global.System.Data.DataColumn("kvm_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkvm_KundenNr) Me.columnkvm_art = New Global.System.Data.DataColumn("kvm_art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkvm_art) Me.columnkvm_datum = New Global.System.Data.DataColumn("kvm_datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkvm_datum) Me.columnkvm_text = New Global.System.Data.DataColumn("kvm_text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkvm_text) Me.columnkvm_sbId = New Global.System.Data.DataColumn("kvm_sbId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkvm_sbId) Me.columnkvm_sb = New Global.System.Data.DataColumn("kvm_sb", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkvm_sb) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkvm_id}, true)) Me.columnkvm_id.AutoIncrement = true Me.columnkvm_id.AutoIncrementSeed = -1 Me.columnkvm_id.AutoIncrementStep = -1 Me.columnkvm_id.AllowDBNull = false Me.columnkvm_id.ReadOnly = true Me.columnkvm_id.Unique = true Me.columnkvm_KundenNr.AllowDBNull = false Me.columnkvm_art.AllowDBNull = false Me.columnkvm_art.MaxLength = 100 Me.columnkvm_datum.AllowDBNull = false Me.columnkvm_text.AllowDBNull = false Me.columnkvm_text.MaxLength = 5000 Me.columnkvm_sbId.AllowDBNull = false Me.columnkvm_sb.AllowDBNull = false Me.columnkvm_sb.MaxLength = 200 End Sub _ Public Function NewtblKundenVermerkeRow() As tblKundenVermerkeRow Return CType(Me.NewRow,tblKundenVermerkeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenVermerkeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenVermerkeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenVermerkeRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenVermerkeRowChanged(Me, New tblKundenVermerkeRowChangeEvent(CType(e.Row,tblKundenVermerkeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenVermerkeRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenVermerkeRowChanging(Me, New tblKundenVermerkeRowChangeEvent(CType(e.Row,tblKundenVermerkeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenVermerkeRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenVermerkeRowDeleted(Me, New tblKundenVermerkeRowChangeEvent(CType(e.Row,tblKundenVermerkeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenVermerkeRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenVermerkeRowDeleting(Me, New tblKundenVermerkeRowChangeEvent(CType(e.Row,tblKundenVermerkeRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenVermerkeRow(ByVal row As tblKundenVermerkeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenVermerkeDataTable" 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 tblKundenVertraegeDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenVertraegeRow) Private columnkv_Id As Global.System.Data.DataColumn Private columnkv_KundenNr As Global.System.Data.DataColumn Private columnkv_erhalten_Datum As Global.System.Data.DataColumn Private columnkv_vertragArtId As Global.System.Data.DataColumn Private columnkv_Info As Global.System.Data.DataColumn Private columnkv_datenarchivId As Global.System.Data.DataColumn Private columnkv_gueltig As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenVertraege" 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 kv_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnkv_Id End Get End Property _ Public ReadOnly Property kv_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkv_KundenNr End Get End Property _ Public ReadOnly Property kv_erhalten_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnkv_erhalten_Datum End Get End Property _ Public ReadOnly Property kv_vertragArtIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkv_vertragArtId End Get End Property _ Public ReadOnly Property kv_InfoColumn() As Global.System.Data.DataColumn Get Return Me.columnkv_Info End Get End Property _ Public ReadOnly Property kv_datenarchivIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkv_datenarchivId End Get End Property _ Public ReadOnly Property kv_gueltigColumn() As Global.System.Data.DataColumn Get Return Me.columnkv_gueltig 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 tblKundenVertraegeRow Get Return CType(Me.Rows(index),tblKundenVertraegeRow) End Get End Property _ Public Event tblKundenVertraegeRowChanging As tblKundenVertraegeRowChangeEventHandler _ Public Event tblKundenVertraegeRowChanged As tblKundenVertraegeRowChangeEventHandler _ Public Event tblKundenVertraegeRowDeleting As tblKundenVertraegeRowChangeEventHandler _ Public Event tblKundenVertraegeRowDeleted As tblKundenVertraegeRowChangeEventHandler _ Public Overloads Sub AddtblKundenVertraegeRow(ByVal row As tblKundenVertraegeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenVertraegeRow(ByVal kv_KundenNr As Integer, ByVal kv_erhalten_Datum As Date, ByVal kv_vertragArtId As Integer, ByVal kv_Info As String, ByVal kv_datenarchivId As Integer, ByVal kv_gueltig As Boolean) As tblKundenVertraegeRow Dim rowtblKundenVertraegeRow As tblKundenVertraegeRow = CType(Me.NewRow,tblKundenVertraegeRow) Dim columnValuesArray() As Object = New Object() {Nothing, kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId, kv_Info, kv_datenarchivId, kv_gueltig} rowtblKundenVertraegeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenVertraegeRow) Return rowtblKundenVertraegeRow End Function _ Public Function FindBykv_Id(ByVal kv_Id As Integer) As tblKundenVertraegeRow Return CType(Me.Rows.Find(New Object() {kv_Id}),tblKundenVertraegeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenVertraegeDataTable = CType(MyBase.Clone,tblKundenVertraegeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenVertraegeDataTable() End Function _ Friend Sub InitVars() Me.columnkv_Id = MyBase.Columns("kv_Id") Me.columnkv_KundenNr = MyBase.Columns("kv_KundenNr") Me.columnkv_erhalten_Datum = MyBase.Columns("kv_erhalten_Datum") Me.columnkv_vertragArtId = MyBase.Columns("kv_vertragArtId") Me.columnkv_Info = MyBase.Columns("kv_Info") Me.columnkv_datenarchivId = MyBase.Columns("kv_datenarchivId") Me.columnkv_gueltig = MyBase.Columns("kv_gueltig") End Sub _ Private Sub InitClass() Me.columnkv_Id = New Global.System.Data.DataColumn("kv_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkv_Id) Me.columnkv_KundenNr = New Global.System.Data.DataColumn("kv_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkv_KundenNr) Me.columnkv_erhalten_Datum = New Global.System.Data.DataColumn("kv_erhalten_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkv_erhalten_Datum) Me.columnkv_vertragArtId = New Global.System.Data.DataColumn("kv_vertragArtId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkv_vertragArtId) Me.columnkv_Info = New Global.System.Data.DataColumn("kv_Info", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkv_Info) Me.columnkv_datenarchivId = New Global.System.Data.DataColumn("kv_datenarchivId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkv_datenarchivId) Me.columnkv_gueltig = New Global.System.Data.DataColumn("kv_gueltig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkv_gueltig) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkv_Id}, true)) Me.columnkv_Id.AutoIncrement = true Me.columnkv_Id.AutoIncrementSeed = -1 Me.columnkv_Id.AutoIncrementStep = -1 Me.columnkv_Id.AllowDBNull = false Me.columnkv_Id.ReadOnly = true Me.columnkv_Id.Unique = true Me.columnkv_KundenNr.AllowDBNull = false Me.columnkv_erhalten_Datum.AllowDBNull = false Me.columnkv_vertragArtId.AllowDBNull = false Me.columnkv_Info.MaxLength = 2147483647 Me.columnkv_gueltig.AllowDBNull = false End Sub _ Public Function NewtblKundenVertraegeRow() As tblKundenVertraegeRow Return CType(Me.NewRow,tblKundenVertraegeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenVertraegeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenVertraegeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenVertraegeRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenVertraegeRowChanged(Me, New tblKundenVertraegeRowChangeEvent(CType(e.Row,tblKundenVertraegeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenVertraegeRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenVertraegeRowChanging(Me, New tblKundenVertraegeRowChangeEvent(CType(e.Row,tblKundenVertraegeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenVertraegeRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenVertraegeRowDeleted(Me, New tblKundenVertraegeRowChangeEvent(CType(e.Row,tblKundenVertraegeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenVertraegeRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenVertraegeRowDeleting(Me, New tblKundenVertraegeRowChangeEvent(CType(e.Row,tblKundenVertraegeRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenVertraegeRow(ByVal row As tblKundenVertraegeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenVertraegeDataTable" 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 tblKundenVertraegeArtenDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenVertraegeArtenRow) Private columnkva_Id As Global.System.Data.DataColumn Private columnkva_Bezeichnung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenVertraegeArten" 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 kva_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnkva_Id End Get End Property _ Public ReadOnly Property kva_BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnkva_Bezeichnung 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 tblKundenVertraegeArtenRow Get Return CType(Me.Rows(index),tblKundenVertraegeArtenRow) End Get End Property _ Public Event tblKundenVertraegeArtenRowChanging As tblKundenVertraegeArtenRowChangeEventHandler _ Public Event tblKundenVertraegeArtenRowChanged As tblKundenVertraegeArtenRowChangeEventHandler _ Public Event tblKundenVertraegeArtenRowDeleting As tblKundenVertraegeArtenRowChangeEventHandler _ Public Event tblKundenVertraegeArtenRowDeleted As tblKundenVertraegeArtenRowChangeEventHandler _ Public Overloads Sub AddtblKundenVertraegeArtenRow(ByVal row As tblKundenVertraegeArtenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenVertraegeArtenRow(ByVal kva_Bezeichnung As String) As tblKundenVertraegeArtenRow Dim rowtblKundenVertraegeArtenRow As tblKundenVertraegeArtenRow = CType(Me.NewRow,tblKundenVertraegeArtenRow) Dim columnValuesArray() As Object = New Object() {Nothing, kva_Bezeichnung} rowtblKundenVertraegeArtenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenVertraegeArtenRow) Return rowtblKundenVertraegeArtenRow End Function _ Public Function FindBykva_Id(ByVal kva_Id As Integer) As tblKundenVertraegeArtenRow Return CType(Me.Rows.Find(New Object() {kva_Id}),tblKundenVertraegeArtenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenVertraegeArtenDataTable = CType(MyBase.Clone,tblKundenVertraegeArtenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenVertraegeArtenDataTable() End Function _ Friend Sub InitVars() Me.columnkva_Id = MyBase.Columns("kva_Id") Me.columnkva_Bezeichnung = MyBase.Columns("kva_Bezeichnung") End Sub _ Private Sub InitClass() Me.columnkva_Id = New Global.System.Data.DataColumn("kva_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkva_Id) Me.columnkva_Bezeichnung = New Global.System.Data.DataColumn("kva_Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkva_Bezeichnung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkva_Id}, true)) Me.columnkva_Id.AutoIncrement = true Me.columnkva_Id.AutoIncrementSeed = -1 Me.columnkva_Id.AutoIncrementStep = -1 Me.columnkva_Id.AllowDBNull = false Me.columnkva_Id.ReadOnly = true Me.columnkva_Id.Unique = true Me.columnkva_Bezeichnung.AllowDBNull = false Me.columnkva_Bezeichnung.MaxLength = 200 End Sub _ Public Function NewtblKundenVertraegeArtenRow() As tblKundenVertraegeArtenRow Return CType(Me.NewRow,tblKundenVertraegeArtenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenVertraegeArtenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenVertraegeArtenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenVertraegeArtenRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenVertraegeArtenRowChanged(Me, New tblKundenVertraegeArtenRowChangeEvent(CType(e.Row,tblKundenVertraegeArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenVertraegeArtenRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenVertraegeArtenRowChanging(Me, New tblKundenVertraegeArtenRowChangeEvent(CType(e.Row,tblKundenVertraegeArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenVertraegeArtenRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenVertraegeArtenRowDeleted(Me, New tblKundenVertraegeArtenRowChangeEvent(CType(e.Row,tblKundenVertraegeArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenVertraegeArtenRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenVertraegeArtenRowDeleting(Me, New tblKundenVertraegeArtenRowChangeEvent(CType(e.Row,tblKundenVertraegeArtenRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenVertraegeArtenRow(ByVal row As tblKundenVertraegeArtenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenVertraegeArtenDataTable" 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 tblKundenVollmachtenDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenVollmachtenRow) Private columnkdvm_Id As Global.System.Data.DataColumn Private columnkdvm_KundenNr As Global.System.Data.DataColumn Private columnkdvm_kdvmaId As Global.System.Data.DataColumn Private columnkdvm_erhalten As Global.System.Data.DataColumn Private columnkdvm_erhalten_Datum As Global.System.Data.DataColumn Private columnkdvm_Info As Global.System.Data.DataColumn Private columnkdvm_datenarchivId As Global.System.Data.DataColumn Private columnkdvm_archiviert As Global.System.Data.DataColumn Private columnkdvm_gueltig_bis As Global.System.Data.DataColumn Private columnkdvm_gueltig_ab As Global.System.Data.DataColumn Private columnkdvm_vermerk As Global.System.Data.DataColumn Private columnkdvm_geloescht As Global.System.Data.DataColumn Private columnkdvm_emailId As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenVollmachten" 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 kdvm_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_Id End Get End Property _ Public ReadOnly Property kdvm_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_KundenNr End Get End Property _ Public ReadOnly Property kdvm_kdvmaIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_kdvmaId End Get End Property _ Public ReadOnly Property kdvm_erhaltenColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_erhalten End Get End Property _ Public ReadOnly Property kdvm_erhalten_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_erhalten_Datum End Get End Property _ Public ReadOnly Property kdvm_InfoColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_Info End Get End Property _ Public ReadOnly Property kdvm_datenarchivIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_datenarchivId End Get End Property _ Public ReadOnly Property kdvm_archiviertColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_archiviert End Get End Property _ Public ReadOnly Property kdvm_gueltig_bisColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_gueltig_bis End Get End Property _ Public ReadOnly Property kdvm_gueltig_abColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_gueltig_ab End Get End Property _ Public ReadOnly Property kdvm_vermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_vermerk End Get End Property _ Public ReadOnly Property kdvm_geloeschtColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_geloescht End Get End Property _ Public ReadOnly Property kdvm_emailIdColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvm_emailId 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 tblKundenVollmachtenRow Get Return CType(Me.Rows(index),tblKundenVollmachtenRow) End Get End Property _ Public Event tblKundenVollmachtenRowChanging As tblKundenVollmachtenRowChangeEventHandler _ Public Event tblKundenVollmachtenRowChanged As tblKundenVollmachtenRowChangeEventHandler _ Public Event tblKundenVollmachtenRowDeleting As tblKundenVollmachtenRowChangeEventHandler _ Public Event tblKundenVollmachtenRowDeleted As tblKundenVollmachtenRowChangeEventHandler _ Public Overloads Sub AddtblKundenVollmachtenRow(ByVal row As tblKundenVollmachtenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenVollmachtenRow(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer, ByVal kdvm_erhalten As Boolean, ByVal kdvm_erhalten_Datum As Date, ByVal kdvm_Info As String, ByVal kdvm_datenarchivId As Integer, ByVal kdvm_archiviert As Boolean, ByVal kdvm_gueltig_bis As Date, ByVal kdvm_gueltig_ab As Date, ByVal kdvm_vermerk As String, ByVal kdvm_geloescht As Boolean, ByVal kdvm_emailId As Integer) As tblKundenVollmachtenRow Dim rowtblKundenVollmachtenRow As tblKundenVollmachtenRow = CType(Me.NewRow,tblKundenVollmachtenRow) Dim columnValuesArray() As Object = New Object() {Nothing, kdvm_KundenNr, kdvm_kdvmaId, kdvm_erhalten, kdvm_erhalten_Datum, kdvm_Info, kdvm_datenarchivId, kdvm_archiviert, kdvm_gueltig_bis, kdvm_gueltig_ab, kdvm_vermerk, kdvm_geloescht, kdvm_emailId} rowtblKundenVollmachtenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenVollmachtenRow) Return rowtblKundenVollmachtenRow End Function _ Public Function FindBykdvm_Id(ByVal kdvm_Id As Integer) As tblKundenVollmachtenRow Return CType(Me.Rows.Find(New Object() {kdvm_Id}),tblKundenVollmachtenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenVollmachtenDataTable = CType(MyBase.Clone,tblKundenVollmachtenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenVollmachtenDataTable() End Function _ Friend Sub InitVars() Me.columnkdvm_Id = MyBase.Columns("kdvm_Id") Me.columnkdvm_KundenNr = MyBase.Columns("kdvm_KundenNr") Me.columnkdvm_kdvmaId = MyBase.Columns("kdvm_kdvmaId") Me.columnkdvm_erhalten = MyBase.Columns("kdvm_erhalten") Me.columnkdvm_erhalten_Datum = MyBase.Columns("kdvm_erhalten_Datum") Me.columnkdvm_Info = MyBase.Columns("kdvm_Info") Me.columnkdvm_datenarchivId = MyBase.Columns("kdvm_datenarchivId") Me.columnkdvm_archiviert = MyBase.Columns("kdvm_archiviert") Me.columnkdvm_gueltig_bis = MyBase.Columns("kdvm_gueltig_bis") Me.columnkdvm_gueltig_ab = MyBase.Columns("kdvm_gueltig_ab") Me.columnkdvm_vermerk = MyBase.Columns("kdvm_vermerk") Me.columnkdvm_geloescht = MyBase.Columns("kdvm_geloescht") Me.columnkdvm_emailId = MyBase.Columns("kdvm_emailId") End Sub _ Private Sub InitClass() Me.columnkdvm_Id = New Global.System.Data.DataColumn("kdvm_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_Id) Me.columnkdvm_KundenNr = New Global.System.Data.DataColumn("kdvm_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_KundenNr) Me.columnkdvm_kdvmaId = New Global.System.Data.DataColumn("kdvm_kdvmaId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_kdvmaId) Me.columnkdvm_erhalten = New Global.System.Data.DataColumn("kdvm_erhalten", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_erhalten) Me.columnkdvm_erhalten_Datum = New Global.System.Data.DataColumn("kdvm_erhalten_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_erhalten_Datum) Me.columnkdvm_Info = New Global.System.Data.DataColumn("kdvm_Info", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_Info) Me.columnkdvm_datenarchivId = New Global.System.Data.DataColumn("kdvm_datenarchivId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_datenarchivId) Me.columnkdvm_archiviert = New Global.System.Data.DataColumn("kdvm_archiviert", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_archiviert) Me.columnkdvm_gueltig_bis = New Global.System.Data.DataColumn("kdvm_gueltig_bis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_gueltig_bis) Me.columnkdvm_gueltig_ab = New Global.System.Data.DataColumn("kdvm_gueltig_ab", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_gueltig_ab) Me.columnkdvm_vermerk = New Global.System.Data.DataColumn("kdvm_vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_vermerk) Me.columnkdvm_geloescht = New Global.System.Data.DataColumn("kdvm_geloescht", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_geloescht) Me.columnkdvm_emailId = New Global.System.Data.DataColumn("kdvm_emailId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvm_emailId) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkdvm_Id}, true)) Me.columnkdvm_Id.AutoIncrement = true Me.columnkdvm_Id.AutoIncrementSeed = -1 Me.columnkdvm_Id.AutoIncrementStep = -1 Me.columnkdvm_Id.AllowDBNull = false Me.columnkdvm_Id.ReadOnly = true Me.columnkdvm_Id.Unique = true Me.columnkdvm_erhalten.AllowDBNull = false Me.columnkdvm_Info.AllowDBNull = false Me.columnkdvm_Info.MaxLength = 2147483647 Me.columnkdvm_archiviert.AllowDBNull = false Me.columnkdvm_vermerk.MaxLength = 2147483647 Me.columnkdvm_geloescht.AllowDBNull = false End Sub _ Public Function NewtblKundenVollmachtenRow() As tblKundenVollmachtenRow Return CType(Me.NewRow,tblKundenVollmachtenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenVollmachtenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenVollmachtenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenVollmachtenRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenVollmachtenRowChanged(Me, New tblKundenVollmachtenRowChangeEvent(CType(e.Row,tblKundenVollmachtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenVollmachtenRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenVollmachtenRowChanging(Me, New tblKundenVollmachtenRowChangeEvent(CType(e.Row,tblKundenVollmachtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenVollmachtenRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenVollmachtenRowDeleted(Me, New tblKundenVollmachtenRowChangeEvent(CType(e.Row,tblKundenVollmachtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenVollmachtenRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenVollmachtenRowDeleting(Me, New tblKundenVollmachtenRowChangeEvent(CType(e.Row,tblKundenVollmachtenRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenVollmachtenRow(ByVal row As tblKundenVollmachtenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenVollmachtenDataTable" 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 tblKundenVollmachtenArtDataTable Inherits Global.System.Data.TypedTableBase(Of tblKundenVollmachtenArtRow) Private columnkdvma_Id As Global.System.Data.DataColumn Private columnkdvma_Bezeichnung As Global.System.Data.DataColumn Private columnkdvma_Firma As Global.System.Data.DataColumn Private columnkdvma_visible As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblKundenVollmachtenArt" 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 kdvma_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvma_Id End Get End Property _ Public ReadOnly Property kdvma_BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvma_Bezeichnung End Get End Property _ Public ReadOnly Property kdvma_FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvma_Firma End Get End Property _ Public ReadOnly Property kdvma_visibleColumn() As Global.System.Data.DataColumn Get Return Me.columnkdvma_visible 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 tblKundenVollmachtenArtRow Get Return CType(Me.Rows(index),tblKundenVollmachtenArtRow) End Get End Property _ Public Event tblKundenVollmachtenArtRowChanging As tblKundenVollmachtenArtRowChangeEventHandler _ Public Event tblKundenVollmachtenArtRowChanged As tblKundenVollmachtenArtRowChangeEventHandler _ Public Event tblKundenVollmachtenArtRowDeleting As tblKundenVollmachtenArtRowChangeEventHandler _ Public Event tblKundenVollmachtenArtRowDeleted As tblKundenVollmachtenArtRowChangeEventHandler _ Public Overloads Sub AddtblKundenVollmachtenArtRow(ByVal row As tblKundenVollmachtenArtRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblKundenVollmachtenArtRow(ByVal kdvma_Bezeichnung As String, ByVal kdvma_Firma As String, ByVal kdvma_visible As Boolean) As tblKundenVollmachtenArtRow Dim rowtblKundenVollmachtenArtRow As tblKundenVollmachtenArtRow = CType(Me.NewRow,tblKundenVollmachtenArtRow) Dim columnValuesArray() As Object = New Object() {Nothing, kdvma_Bezeichnung, kdvma_Firma, kdvma_visible} rowtblKundenVollmachtenArtRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblKundenVollmachtenArtRow) Return rowtblKundenVollmachtenArtRow End Function _ Public Function FindBykdvma_Id(ByVal kdvma_Id As Integer) As tblKundenVollmachtenArtRow Return CType(Me.Rows.Find(New Object() {kdvma_Id}),tblKundenVollmachtenArtRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblKundenVollmachtenArtDataTable = CType(MyBase.Clone,tblKundenVollmachtenArtDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblKundenVollmachtenArtDataTable() End Function _ Friend Sub InitVars() Me.columnkdvma_Id = MyBase.Columns("kdvma_Id") Me.columnkdvma_Bezeichnung = MyBase.Columns("kdvma_Bezeichnung") Me.columnkdvma_Firma = MyBase.Columns("kdvma_Firma") Me.columnkdvma_visible = MyBase.Columns("kdvma_visible") End Sub _ Private Sub InitClass() Me.columnkdvma_Id = New Global.System.Data.DataColumn("kdvma_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvma_Id) Me.columnkdvma_Bezeichnung = New Global.System.Data.DataColumn("kdvma_Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvma_Bezeichnung) Me.columnkdvma_Firma = New Global.System.Data.DataColumn("kdvma_Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvma_Firma) Me.columnkdvma_visible = New Global.System.Data.DataColumn("kdvma_visible", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdvma_visible) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkdvma_Id}, true)) Me.columnkdvma_Id.AutoIncrement = true Me.columnkdvma_Id.AutoIncrementSeed = -1 Me.columnkdvma_Id.AutoIncrementStep = -1 Me.columnkdvma_Id.AllowDBNull = false Me.columnkdvma_Id.ReadOnly = true Me.columnkdvma_Id.Unique = true Me.columnkdvma_Bezeichnung.AllowDBNull = false Me.columnkdvma_Bezeichnung.MaxLength = 2147483647 Me.columnkdvma_Firma.AllowDBNull = false Me.columnkdvma_Firma.MaxLength = 50 Me.columnkdvma_visible.AllowDBNull = false End Sub _ Public Function NewtblKundenVollmachtenArtRow() As tblKundenVollmachtenArtRow Return CType(Me.NewRow,tblKundenVollmachtenArtRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblKundenVollmachtenArtRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblKundenVollmachtenArtRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblKundenVollmachtenArtRowChangedEvent) Is Nothing) Then RaiseEvent tblKundenVollmachtenArtRowChanged(Me, New tblKundenVollmachtenArtRowChangeEvent(CType(e.Row,tblKundenVollmachtenArtRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblKundenVollmachtenArtRowChangingEvent) Is Nothing) Then RaiseEvent tblKundenVollmachtenArtRowChanging(Me, New tblKundenVollmachtenArtRowChangeEvent(CType(e.Row,tblKundenVollmachtenArtRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblKundenVollmachtenArtRowDeletedEvent) Is Nothing) Then RaiseEvent tblKundenVollmachtenArtRowDeleted(Me, New tblKundenVollmachtenArtRowChangeEvent(CType(e.Row,tblKundenVollmachtenArtRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblKundenVollmachtenArtRowDeletingEvent) Is Nothing) Then RaiseEvent tblKundenVollmachtenArtRowDeleting(Me, New tblKundenVollmachtenArtRowChangeEvent(CType(e.Row,tblKundenVollmachtenArtRow), e.Action)) End If End Sub _ Public Sub RemovetblKundenVollmachtenArtRow(ByVal row As tblKundenVollmachtenArtRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblKundenVollmachtenArtDataTable" 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 tblLogbuchDataTable Inherits Global.System.Data.TypedTableBase(Of tblLogbuchRow) Private columnID As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnComputername As Global.System.Data.DataColumn Private columnBenutzername As Global.System.Data.DataColumn Private columnSwitchboardID As Global.System.Data.DataColumn Private columnItemNumber As Global.System.Data.DataColumn Private columnItemText As Global.System.Data.DataColumn Private columnCommand As Global.System.Data.DataColumn Private columnArgument As Global.System.Data.DataColumn Private columnProgrammversion As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblLogbuch" 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 ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property ComputernameColumn() As Global.System.Data.DataColumn Get Return Me.columnComputername End Get End Property _ Public ReadOnly Property BenutzernameColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzername End Get End Property _ Public ReadOnly Property SwitchboardIDColumn() As Global.System.Data.DataColumn Get Return Me.columnSwitchboardID End Get End Property _ Public ReadOnly Property ItemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnItemNumber End Get End Property _ Public ReadOnly Property ItemTextColumn() As Global.System.Data.DataColumn Get Return Me.columnItemText End Get End Property _ Public ReadOnly Property CommandColumn() As Global.System.Data.DataColumn Get Return Me.columnCommand End Get End Property _ Public ReadOnly Property ArgumentColumn() As Global.System.Data.DataColumn Get Return Me.columnArgument End Get End Property _ Public ReadOnly Property ProgrammversionColumn() As Global.System.Data.DataColumn Get Return Me.columnProgrammversion End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblLogbuchRow Get Return CType(Me.Rows(index),tblLogbuchRow) End Get End Property _ Public Event tblLogbuchRowChanging As tblLogbuchRowChangeEventHandler _ Public Event tblLogbuchRowChanged As tblLogbuchRowChangeEventHandler _ Public Event tblLogbuchRowDeleting As tblLogbuchRowChangeEventHandler _ Public Event tblLogbuchRowDeleted As tblLogbuchRowChangeEventHandler _ Public Overloads Sub AddtblLogbuchRow(ByVal row As tblLogbuchRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblLogbuchRow(ByVal Zeitstempel As Date, ByVal Computername As String, ByVal Benutzername As String, ByVal SwitchboardID As Integer, ByVal ItemNumber As Short, ByVal ItemText As String, ByVal Command As Short, ByVal Argument As String, ByVal Programmversion As String, ByVal upsize_ts() As Byte) As tblLogbuchRow Dim rowtblLogbuchRow As tblLogbuchRow = CType(Me.NewRow,tblLogbuchRow) Dim columnValuesArray() As Object = New Object() {Nothing, Zeitstempel, Computername, Benutzername, SwitchboardID, ItemNumber, ItemText, Command, Argument, Programmversion, upsize_ts} rowtblLogbuchRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblLogbuchRow) Return rowtblLogbuchRow End Function _ Public Function FindByID(ByVal ID As Integer) As tblLogbuchRow Return CType(Me.Rows.Find(New Object() {ID}),tblLogbuchRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblLogbuchDataTable = CType(MyBase.Clone,tblLogbuchDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblLogbuchDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnComputername = MyBase.Columns("Computername") Me.columnBenutzername = MyBase.Columns("Benutzername") Me.columnSwitchboardID = MyBase.Columns("SwitchboardID") Me.columnItemNumber = MyBase.Columns("ItemNumber") Me.columnItemText = MyBase.Columns("ItemText") Me.columnCommand = MyBase.Columns("Command") Me.columnArgument = MyBase.Columns("Argument") Me.columnProgrammversion = MyBase.Columns("Programmversion") Me.columnupsize_ts = MyBase.Columns("upsize_ts") 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.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnComputername = New Global.System.Data.DataColumn("Computername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComputername) Me.columnBenutzername = New Global.System.Data.DataColumn("Benutzername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzername) Me.columnSwitchboardID = New Global.System.Data.DataColumn("SwitchboardID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSwitchboardID) Me.columnItemNumber = New Global.System.Data.DataColumn("ItemNumber", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItemNumber) Me.columnItemText = New Global.System.Data.DataColumn("ItemText", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItemText) Me.columnCommand = New Global.System.Data.DataColumn("Command", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCommand) Me.columnArgument = New Global.System.Data.DataColumn("Argument", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArgument) Me.columnProgrammversion = New Global.System.Data.DataColumn("Programmversion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProgrammversion) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnZeitstempel.AllowDBNull = false Me.columnComputername.AllowDBNull = false Me.columnComputername.MaxLength = 15 Me.columnBenutzername.AllowDBNull = false Me.columnBenutzername.MaxLength = 20 Me.columnItemText.AllowDBNull = false Me.columnItemText.MaxLength = 255 Me.columnArgument.AllowDBNull = false Me.columnArgument.MaxLength = 50 Me.columnProgrammversion.AllowDBNull = false Me.columnProgrammversion.MaxLength = 255 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblLogbuchRow() As tblLogbuchRow Return CType(Me.NewRow,tblLogbuchRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblLogbuchRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblLogbuchRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblLogbuchRowChangedEvent) Is Nothing) Then RaiseEvent tblLogbuchRowChanged(Me, New tblLogbuchRowChangeEvent(CType(e.Row,tblLogbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblLogbuchRowChangingEvent) Is Nothing) Then RaiseEvent tblLogbuchRowChanging(Me, New tblLogbuchRowChangeEvent(CType(e.Row,tblLogbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblLogbuchRowDeletedEvent) Is Nothing) Then RaiseEvent tblLogbuchRowDeleted(Me, New tblLogbuchRowChangeEvent(CType(e.Row,tblLogbuchRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblLogbuchRowDeletingEvent) Is Nothing) Then RaiseEvent tblLogbuchRowDeleting(Me, New tblLogbuchRowChangeEvent(CType(e.Row,tblLogbuchRow), e.Action)) End If End Sub _ Public Sub RemovetblLogbuchRow(ByVal row As tblLogbuchRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblLogbuchDataTable" 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 tblMandantDataTable Inherits Global.System.Data.TypedTableBase(Of tblMandantRow) Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnKundenNr As Global.System.Data.DataColumn Private columnMonatGJB As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMandant" 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 MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property MonatGJBColumn() As Global.System.Data.DataColumn Get Return Me.columnMonatGJB End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblMandantRow Get Return CType(Me.Rows(index),tblMandantRow) End Get End Property _ Public Event tblMandantRowChanging As tblMandantRowChangeEventHandler _ Public Event tblMandantRowChanged As tblMandantRowChangeEventHandler _ Public Event tblMandantRowDeleting As tblMandantRowChangeEventHandler _ Public Event tblMandantRowDeleted As tblMandantRowChangeEventHandler _ Public Overloads Sub AddtblMandantRow(ByVal row As tblMandantRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMandantRow(ByVal Mandant As String, ByVal Niederlassung As String, ByVal KundenNr As Integer, ByVal MonatGJB As Short, ByVal SSMA_TimeStamp() As Byte) As tblMandantRow Dim rowtblMandantRow As tblMandantRow = CType(Me.NewRow,tblMandantRow) Dim columnValuesArray() As Object = New Object() {Mandant, Niederlassung, KundenNr, MonatGJB, SSMA_TimeStamp} rowtblMandantRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMandantRow) Return rowtblMandantRow End Function _ Public Function FindByMandantNiederlassung(ByVal Mandant As String, ByVal Niederlassung As String) As tblMandantRow Return CType(Me.Rows.Find(New Object() {Mandant, Niederlassung}),tblMandantRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMandantDataTable = CType(MyBase.Clone,tblMandantDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMandantDataTable() End Function _ Friend Sub InitVars() Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnMonatGJB = MyBase.Columns("MonatGJB") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnMonatGJB = New Global.System.Data.DataColumn("MonatGJB", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMonatGJB) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMandant, Me.columnNiederlassung}, true)) Me.columnMandant.AllowDBNull = false Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.AllowDBNull = false Me.columnNiederlassung.MaxLength = 3 Me.columnKundenNr.AllowDBNull = false Me.columnMonatGJB.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblMandantRow() As tblMandantRow Return CType(Me.NewRow,tblMandantRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMandantRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMandantRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMandantRowChangedEvent) Is Nothing) Then RaiseEvent tblMandantRowChanged(Me, New tblMandantRowChangeEvent(CType(e.Row,tblMandantRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMandantRowChangingEvent) Is Nothing) Then RaiseEvent tblMandantRowChanging(Me, New tblMandantRowChangeEvent(CType(e.Row,tblMandantRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMandantRowDeletedEvent) Is Nothing) Then RaiseEvent tblMandantRowDeleted(Me, New tblMandantRowChangeEvent(CType(e.Row,tblMandantRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMandantRowDeletingEvent) Is Nothing) Then RaiseEvent tblMandantRowDeleting(Me, New tblMandantRowChangeEvent(CType(e.Row,tblMandantRow), e.Action)) End If End Sub _ Public Sub RemovetblMandantRow(ByVal row As tblMandantRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMandantDataTable" 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 tblMautIT_BelegartenDataTable Inherits Global.System.Data.TypedTableBase(Of tblMautIT_BelegartenRow) Private columnBelegartID As Global.System.Data.DataColumn Private columnBelegartBez As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMautIT_Belegarten" 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 BelegartIDColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartID End Get End Property _ Public ReadOnly Property BelegartBezColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartBez End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblMautIT_BelegartenRow Get Return CType(Me.Rows(index),tblMautIT_BelegartenRow) End Get End Property _ Public Event tblMautIT_BelegartenRowChanging As tblMautIT_BelegartenRowChangeEventHandler _ Public Event tblMautIT_BelegartenRowChanged As tblMautIT_BelegartenRowChangeEventHandler _ Public Event tblMautIT_BelegartenRowDeleting As tblMautIT_BelegartenRowChangeEventHandler _ Public Event tblMautIT_BelegartenRowDeleted As tblMautIT_BelegartenRowChangeEventHandler _ Public Overloads Sub AddtblMautIT_BelegartenRow(ByVal row As tblMautIT_BelegartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMautIT_BelegartenRow(ByVal BelegartID As String, ByVal BelegartBez As String, ByVal SSMA_TimeStamp() As Byte) As tblMautIT_BelegartenRow Dim rowtblMautIT_BelegartenRow As tblMautIT_BelegartenRow = CType(Me.NewRow,tblMautIT_BelegartenRow) Dim columnValuesArray() As Object = New Object() {BelegartID, BelegartBez, SSMA_TimeStamp} rowtblMautIT_BelegartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMautIT_BelegartenRow) Return rowtblMautIT_BelegartenRow End Function _ Public Function FindByBelegartID(ByVal BelegartID As String) As tblMautIT_BelegartenRow Return CType(Me.Rows.Find(New Object() {BelegartID}),tblMautIT_BelegartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMautIT_BelegartenDataTable = CType(MyBase.Clone,tblMautIT_BelegartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMautIT_BelegartenDataTable() End Function _ Friend Sub InitVars() Me.columnBelegartID = MyBase.Columns("BelegartID") Me.columnBelegartBez = MyBase.Columns("BelegartBez") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnBelegartID = New Global.System.Data.DataColumn("BelegartID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartID) Me.columnBelegartBez = New Global.System.Data.DataColumn("BelegartBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartBez) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBelegartID}, true)) Me.columnBelegartID.AllowDBNull = false Me.columnBelegartID.Unique = true Me.columnBelegartID.MaxLength = 2 Me.columnBelegartBez.AllowDBNull = false Me.columnBelegartBez.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblMautIT_BelegartenRow() As tblMautIT_BelegartenRow Return CType(Me.NewRow,tblMautIT_BelegartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMautIT_BelegartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMautIT_BelegartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMautIT_BelegartenRowChangedEvent) Is Nothing) Then RaiseEvent tblMautIT_BelegartenRowChanged(Me, New tblMautIT_BelegartenRowChangeEvent(CType(e.Row,tblMautIT_BelegartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMautIT_BelegartenRowChangingEvent) Is Nothing) Then RaiseEvent tblMautIT_BelegartenRowChanging(Me, New tblMautIT_BelegartenRowChangeEvent(CType(e.Row,tblMautIT_BelegartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMautIT_BelegartenRowDeletedEvent) Is Nothing) Then RaiseEvent tblMautIT_BelegartenRowDeleted(Me, New tblMautIT_BelegartenRowChangeEvent(CType(e.Row,tblMautIT_BelegartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMautIT_BelegartenRowDeletingEvent) Is Nothing) Then RaiseEvent tblMautIT_BelegartenRowDeleting(Me, New tblMautIT_BelegartenRowChangeEvent(CType(e.Row,tblMautIT_BelegartenRow), e.Action)) End If End Sub _ Public Sub RemovetblMautIT_BelegartenRow(ByVal row As tblMautIT_BelegartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMautIT_BelegartenDataTable" 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 tblMautITArchivDataTable Inherits Global.System.Data.TypedTableBase(Of tblMautITArchivRow) Private columnDateiname As Global.System.Data.DataColumn Private columnLfdNr As Global.System.Data.DataColumn Private columnCode_Adressat_der_Rechnung As Global.System.Data.DataColumn Private columnCode_Adressat_des_Kontoauszugs As Global.System.Data.DataColumn Private columnArt_der_Bewegung As Global.System.Data.DataColumn Private columnDatum_der_Bewegung As Global.System.Data.DataColumn Private columnUhrzeit_der_Bewegung As Global.System.Data.DataColumn Private columnUrsprünglicher_Betrag_der_Bewegung As Global.System.Data.DataColumn Private columnNicht_mehrwertsteuerpflichtiger_Betrag As Global.System.Data.DataColumn Private columnBetrag_mit_Preisnachlass_oder_Preisnachlass As Global.System.Data.DataColumn Private columnForm_des_Mediums As Global.System.Data.DataColumn Private columnBeschreibung_Form_des_Mediums As Global.System.Data.DataColumn Private columnKodierung_Medium As Global.System.Data.DataColumn Private columnBeschreibung_der_Bewegung As Global.System.Data.DataColumn Private columnGebührenklasse As Global.System.Data.DataColumn Private columnVerrechnungsdatum As Global.System.Data.DataColumn Private columnZeichen_Betrag As Global.System.Data.DataColumn Private columnKfzKennzeichen As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMautITArchiv" 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 DateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiname End Get End Property _ Public ReadOnly Property LfdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdNr End Get End Property _ Public ReadOnly Property Code_Adressat_der_RechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnCode_Adressat_der_Rechnung End Get End Property _ Public ReadOnly Property Code_Adressat_des_KontoauszugsColumn() As Global.System.Data.DataColumn Get Return Me.columnCode_Adressat_des_Kontoauszugs End Get End Property _ Public ReadOnly Property Art_der_BewegungColumn() As Global.System.Data.DataColumn Get Return Me.columnArt_der_Bewegung End Get End Property _ Public ReadOnly Property Datum_der_BewegungColumn() As Global.System.Data.DataColumn Get Return Me.columnDatum_der_Bewegung End Get End Property _ Public ReadOnly Property Uhrzeit_der_BewegungColumn() As Global.System.Data.DataColumn Get Return Me.columnUhrzeit_der_Bewegung End Get End Property _ Public ReadOnly Property Ursprünglicher_Betrag_der_BewegungColumn() As Global.System.Data.DataColumn Get Return Me.columnUrsprünglicher_Betrag_der_Bewegung End Get End Property _ Public ReadOnly Property Nicht_mehrwertsteuerpflichtiger_BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnNicht_mehrwertsteuerpflichtiger_Betrag End Get End Property _ Public ReadOnly Property Betrag_mit_Preisnachlass_oder_PreisnachlassColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_mit_Preisnachlass_oder_Preisnachlass End Get End Property _ Public ReadOnly Property Form_des_MediumsColumn() As Global.System.Data.DataColumn Get Return Me.columnForm_des_Mediums End Get End Property _ Public ReadOnly Property Beschreibung_Form_des_MediumsColumn() As Global.System.Data.DataColumn Get Return Me.columnBeschreibung_Form_des_Mediums End Get End Property _ Public ReadOnly Property Kodierung_MediumColumn() As Global.System.Data.DataColumn Get Return Me.columnKodierung_Medium End Get End Property _ Public ReadOnly Property Beschreibung_der_BewegungColumn() As Global.System.Data.DataColumn Get Return Me.columnBeschreibung_der_Bewegung End Get End Property _ Public ReadOnly Property GebührenklasseColumn() As Global.System.Data.DataColumn Get Return Me.columnGebührenklasse End Get End Property _ Public ReadOnly Property VerrechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnVerrechnungsdatum End Get End Property _ Public ReadOnly Property Zeichen_BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnZeichen_Betrag End Get End Property _ Public ReadOnly Property KfzKennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnKfzKennzeichen End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblMautITArchivRow Get Return CType(Me.Rows(index),tblMautITArchivRow) End Get End Property _ Public Event tblMautITArchivRowChanging As tblMautITArchivRowChangeEventHandler _ Public Event tblMautITArchivRowChanged As tblMautITArchivRowChangeEventHandler _ Public Event tblMautITArchivRowDeleting As tblMautITArchivRowChangeEventHandler _ Public Event tblMautITArchivRowDeleted As tblMautITArchivRowChangeEventHandler _ Public Overloads Sub AddtblMautITArchivRow(ByVal row As tblMautITArchivRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMautITArchivRow( _ ByVal Dateiname As String, _ ByVal LfdNr As Integer, _ ByVal Code_Adressat_der_Rechnung As Integer, _ ByVal Code_Adressat_des_Kontoauszugs As Integer, _ ByVal Art_der_Bewegung As String, _ ByVal Datum_der_Bewegung As Date, _ ByVal Uhrzeit_der_Bewegung As Date, _ ByVal Ursprünglicher_Betrag_der_Bewegung As Decimal, _ ByVal Nicht_mehrwertsteuerpflichtiger_Betrag As Decimal, _ ByVal Betrag_mit_Preisnachlass_oder_Preisnachlass As Decimal, _ ByVal Form_des_Mediums As String, _ ByVal Beschreibung_Form_des_Mediums As String, _ ByVal Kodierung_Medium As String, _ ByVal Beschreibung_der_Bewegung As String, _ ByVal Gebührenklasse As String, _ ByVal Verrechnungsdatum As Date, _ ByVal Zeichen_Betrag As String, _ ByVal KfzKennzeichen As String, _ ByVal UStVAn_ID As Integer, _ ByVal upsize_ts() As Byte) As tblMautITArchivRow Dim rowtblMautITArchivRow As tblMautITArchivRow = CType(Me.NewRow,tblMautITArchivRow) Dim columnValuesArray() As Object = New Object() {Dateiname, LfdNr, Code_Adressat_der_Rechnung, Code_Adressat_des_Kontoauszugs, Art_der_Bewegung, Datum_der_Bewegung, Uhrzeit_der_Bewegung, Ursprünglicher_Betrag_der_Bewegung, Nicht_mehrwertsteuerpflichtiger_Betrag, Betrag_mit_Preisnachlass_oder_Preisnachlass, Form_des_Mediums, Beschreibung_Form_des_Mediums, Kodierung_Medium, Beschreibung_der_Bewegung, Gebührenklasse, Verrechnungsdatum, Zeichen_Betrag, KfzKennzeichen, UStVAn_ID, upsize_ts} rowtblMautITArchivRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMautITArchivRow) Return rowtblMautITArchivRow End Function _ Public Function FindByDateinameLfdNr(ByVal Dateiname As String, ByVal LfdNr As Integer) As tblMautITArchivRow Return CType(Me.Rows.Find(New Object() {Dateiname, LfdNr}),tblMautITArchivRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMautITArchivDataTable = CType(MyBase.Clone,tblMautITArchivDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMautITArchivDataTable() End Function _ Friend Sub InitVars() Me.columnDateiname = MyBase.Columns("Dateiname") Me.columnLfdNr = MyBase.Columns("LfdNr") Me.columnCode_Adressat_der_Rechnung = MyBase.Columns("Code_Adressat_der_Rechnung") Me.columnCode_Adressat_des_Kontoauszugs = MyBase.Columns("Code_Adressat_des_Kontoauszugs") Me.columnArt_der_Bewegung = MyBase.Columns("Art_der_Bewegung") Me.columnDatum_der_Bewegung = MyBase.Columns("Datum_der_Bewegung") Me.columnUhrzeit_der_Bewegung = MyBase.Columns("Uhrzeit_der_Bewegung") Me.columnUrsprünglicher_Betrag_der_Bewegung = MyBase.Columns("Ursprünglicher_Betrag_der_Bewegung") Me.columnNicht_mehrwertsteuerpflichtiger_Betrag = MyBase.Columns("Nicht_mehrwertsteuerpflichtiger_Betrag") Me.columnBetrag_mit_Preisnachlass_oder_Preisnachlass = MyBase.Columns("Betrag_mit_Preisnachlass_oder_Preisnachlass") Me.columnForm_des_Mediums = MyBase.Columns("Form_des_Mediums") Me.columnBeschreibung_Form_des_Mediums = MyBase.Columns("Beschreibung_Form_des_Mediums") Me.columnKodierung_Medium = MyBase.Columns("Kodierung_Medium") Me.columnBeschreibung_der_Bewegung = MyBase.Columns("Beschreibung_der_Bewegung") Me.columnGebührenklasse = MyBase.Columns("Gebührenklasse") Me.columnVerrechnungsdatum = MyBase.Columns("Verrechnungsdatum") Me.columnZeichen_Betrag = MyBase.Columns("Zeichen_Betrag") Me.columnKfzKennzeichen = MyBase.Columns("KfzKennzeichen") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnDateiname = New Global.System.Data.DataColumn("Dateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiname) Me.columnLfdNr = New Global.System.Data.DataColumn("LfdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdNr) Me.columnCode_Adressat_der_Rechnung = New Global.System.Data.DataColumn("Code_Adressat_der_Rechnung", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode_Adressat_der_Rechnung) Me.columnCode_Adressat_des_Kontoauszugs = New Global.System.Data.DataColumn("Code_Adressat_des_Kontoauszugs", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode_Adressat_des_Kontoauszugs) Me.columnArt_der_Bewegung = New Global.System.Data.DataColumn("Art_der_Bewegung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArt_der_Bewegung) Me.columnDatum_der_Bewegung = New Global.System.Data.DataColumn("Datum_der_Bewegung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatum_der_Bewegung) Me.columnUhrzeit_der_Bewegung = New Global.System.Data.DataColumn("Uhrzeit_der_Bewegung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUhrzeit_der_Bewegung) Me.columnUrsprünglicher_Betrag_der_Bewegung = New Global.System.Data.DataColumn("Ursprünglicher_Betrag_der_Bewegung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUrsprünglicher_Betrag_der_Bewegung) Me.columnNicht_mehrwertsteuerpflichtiger_Betrag = New Global.System.Data.DataColumn("Nicht_mehrwertsteuerpflichtiger_Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNicht_mehrwertsteuerpflichtiger_Betrag) Me.columnBetrag_mit_Preisnachlass_oder_Preisnachlass = New Global.System.Data.DataColumn("Betrag_mit_Preisnachlass_oder_Preisnachlass", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_mit_Preisnachlass_oder_Preisnachlass) Me.columnForm_des_Mediums = New Global.System.Data.DataColumn("Form_des_Mediums", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnForm_des_Mediums) Me.columnBeschreibung_Form_des_Mediums = New Global.System.Data.DataColumn("Beschreibung_Form_des_Mediums", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBeschreibung_Form_des_Mediums) Me.columnKodierung_Medium = New Global.System.Data.DataColumn("Kodierung_Medium", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKodierung_Medium) Me.columnBeschreibung_der_Bewegung = New Global.System.Data.DataColumn("Beschreibung_der_Bewegung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBeschreibung_der_Bewegung) Me.columnGebührenklasse = New Global.System.Data.DataColumn("Gebührenklasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGebührenklasse) Me.columnVerrechnungsdatum = New Global.System.Data.DataColumn("Verrechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVerrechnungsdatum) Me.columnZeichen_Betrag = New Global.System.Data.DataColumn("Zeichen_Betrag", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeichen_Betrag) Me.columnKfzKennzeichen = New Global.System.Data.DataColumn("KfzKennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKfzKennzeichen) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDateiname, Me.columnLfdNr}, true)) Me.columnDateiname.AllowDBNull = false Me.columnDateiname.MaxLength = 50 Me.columnLfdNr.AllowDBNull = false Me.columnArt_der_Bewegung.MaxLength = 2 Me.columnForm_des_Mediums.MaxLength = 2 Me.columnBeschreibung_Form_des_Mediums.MaxLength = 20 Me.columnKodierung_Medium.MaxLength = 20 Me.columnBeschreibung_der_Bewegung.MaxLength = 36 Me.columnGebührenklasse.MaxLength = 2 Me.columnZeichen_Betrag.MaxLength = 1 Me.columnKfzKennzeichen.MaxLength = 14 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblMautITArchivRow() As tblMautITArchivRow Return CType(Me.NewRow,tblMautITArchivRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMautITArchivRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMautITArchivRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMautITArchivRowChangedEvent) Is Nothing) Then RaiseEvent tblMautITArchivRowChanged(Me, New tblMautITArchivRowChangeEvent(CType(e.Row,tblMautITArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMautITArchivRowChangingEvent) Is Nothing) Then RaiseEvent tblMautITArchivRowChanging(Me, New tblMautITArchivRowChangeEvent(CType(e.Row,tblMautITArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMautITArchivRowDeletedEvent) Is Nothing) Then RaiseEvent tblMautITArchivRowDeleted(Me, New tblMautITArchivRowChangeEvent(CType(e.Row,tblMautITArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMautITArchivRowDeletingEvent) Is Nothing) Then RaiseEvent tblMautITArchivRowDeleting(Me, New tblMautITArchivRowChangeEvent(CType(e.Row,tblMautITArchivRow), e.Action)) End If End Sub _ Public Sub RemovetblMautITArchivRow(ByVal row As tblMautITArchivRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMautITArchivDataTable" 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 tblMDM_ParamterDataTable Inherits Global.System.Data.TypedTableBase(Of tblMDM_ParamterRow) Private columnParam_name As Global.System.Data.DataColumn Private columnParam_value As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMDM_Paramter" 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 Param_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnParam_name End Get End Property _ Public ReadOnly Property Param_valueColumn() As Global.System.Data.DataColumn Get Return Me.columnParam_value 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 tblMDM_ParamterRow Get Return CType(Me.Rows(index),tblMDM_ParamterRow) End Get End Property _ Public Event tblMDM_ParamterRowChanging As tblMDM_ParamterRowChangeEventHandler _ Public Event tblMDM_ParamterRowChanged As tblMDM_ParamterRowChangeEventHandler _ Public Event tblMDM_ParamterRowDeleting As tblMDM_ParamterRowChangeEventHandler _ Public Event tblMDM_ParamterRowDeleted As tblMDM_ParamterRowChangeEventHandler _ Public Overloads Sub AddtblMDM_ParamterRow(ByVal row As tblMDM_ParamterRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMDM_ParamterRow(ByVal Param_name As String, ByVal Param_value As String) As tblMDM_ParamterRow Dim rowtblMDM_ParamterRow As tblMDM_ParamterRow = CType(Me.NewRow,tblMDM_ParamterRow) Dim columnValuesArray() As Object = New Object() {Param_name, Param_value} rowtblMDM_ParamterRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMDM_ParamterRow) Return rowtblMDM_ParamterRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMDM_ParamterDataTable = CType(MyBase.Clone,tblMDM_ParamterDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMDM_ParamterDataTable() End Function _ Friend Sub InitVars() Me.columnParam_name = MyBase.Columns("Param_name") Me.columnParam_value = MyBase.Columns("Param_value") End Sub _ Private Sub InitClass() Me.columnParam_name = New Global.System.Data.DataColumn("Param_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnParam_name) Me.columnParam_value = New Global.System.Data.DataColumn("Param_value", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnParam_value) Me.columnParam_name.AllowDBNull = false Me.columnParam_name.MaxLength = 200 Me.columnParam_value.AllowDBNull = false Me.columnParam_value.MaxLength = 500 End Sub _ Public Function NewtblMDM_ParamterRow() As tblMDM_ParamterRow Return CType(Me.NewRow,tblMDM_ParamterRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMDM_ParamterRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMDM_ParamterRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMDM_ParamterRowChangedEvent) Is Nothing) Then RaiseEvent tblMDM_ParamterRowChanged(Me, New tblMDM_ParamterRowChangeEvent(CType(e.Row,tblMDM_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMDM_ParamterRowChangingEvent) Is Nothing) Then RaiseEvent tblMDM_ParamterRowChanging(Me, New tblMDM_ParamterRowChangeEvent(CType(e.Row,tblMDM_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMDM_ParamterRowDeletedEvent) Is Nothing) Then RaiseEvent tblMDM_ParamterRowDeleted(Me, New tblMDM_ParamterRowChangeEvent(CType(e.Row,tblMDM_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMDM_ParamterRowDeletingEvent) Is Nothing) Then RaiseEvent tblMDM_ParamterRowDeleting(Me, New tblMDM_ParamterRowChangeEvent(CType(e.Row,tblMDM_ParamterRow), e.Action)) End If End Sub _ Public Sub RemovetblMDM_ParamterRow(ByVal row As tblMDM_ParamterRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMDM_ParamterDataTable" 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 tblMSECustomersDataTable Inherits Global.System.Data.TypedTableBase(Of tblMSECustomersRow) Private columncustomer_id As Global.System.Data.DataColumn Private columnpartner_customer_number As Global.System.Data.DataColumn Private columncustomer_name As Global.System.Data.DataColumn Private columnvat_number As Global.System.Data.DataColumn Private columnalternative_vat_number As Global.System.Data.DataColumn Private columncoc_number As Global.System.Data.DataColumn Private columnpartner_fleet_card_number As Global.System.Data.DataColumn Private columntstmp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMSECustomers" 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 customer_idColumn() As Global.System.Data.DataColumn Get Return Me.columncustomer_id End Get End Property _ Public ReadOnly Property partner_customer_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnpartner_customer_number End Get End Property _ Public ReadOnly Property customer_nameColumn() As Global.System.Data.DataColumn Get Return Me.columncustomer_name End Get End Property _ Public ReadOnly Property vat_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnvat_number End Get End Property _ Public ReadOnly Property alternative_vat_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnalternative_vat_number End Get End Property _ Public ReadOnly Property coc_numberColumn() As Global.System.Data.DataColumn Get Return Me.columncoc_number End Get End Property _ Public ReadOnly Property partner_fleet_card_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnpartner_fleet_card_number End Get End Property _ Public ReadOnly Property tstmpColumn() As Global.System.Data.DataColumn Get Return Me.columntstmp 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 tblMSECustomersRow Get Return CType(Me.Rows(index),tblMSECustomersRow) End Get End Property _ Public Event tblMSECustomersRowChanging As tblMSECustomersRowChangeEventHandler _ Public Event tblMSECustomersRowChanged As tblMSECustomersRowChangeEventHandler _ Public Event tblMSECustomersRowDeleting As tblMSECustomersRowChangeEventHandler _ Public Event tblMSECustomersRowDeleted As tblMSECustomersRowChangeEventHandler _ Public Overloads Sub AddtblMSECustomersRow(ByVal row As tblMSECustomersRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMSECustomersRow(ByVal customer_id As Integer, ByVal partner_customer_number As String, ByVal customer_name As String, ByVal vat_number As String, ByVal alternative_vat_number As String, ByVal coc_number As String, ByVal partner_fleet_card_number As String, ByVal tstmp As Date) As tblMSECustomersRow Dim rowtblMSECustomersRow As tblMSECustomersRow = CType(Me.NewRow,tblMSECustomersRow) Dim columnValuesArray() As Object = New Object() {customer_id, partner_customer_number, customer_name, vat_number, alternative_vat_number, coc_number, partner_fleet_card_number, tstmp} rowtblMSECustomersRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMSECustomersRow) Return rowtblMSECustomersRow End Function _ Public Function FindBycustomer_id(ByVal customer_id As Integer) As tblMSECustomersRow Return CType(Me.Rows.Find(New Object() {customer_id}),tblMSECustomersRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMSECustomersDataTable = CType(MyBase.Clone,tblMSECustomersDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMSECustomersDataTable() End Function _ Friend Sub InitVars() Me.columncustomer_id = MyBase.Columns("customer_id") Me.columnpartner_customer_number = MyBase.Columns("partner_customer_number") Me.columncustomer_name = MyBase.Columns("customer_name") Me.columnvat_number = MyBase.Columns("vat_number") Me.columnalternative_vat_number = MyBase.Columns("alternative_vat_number") Me.columncoc_number = MyBase.Columns("coc_number") Me.columnpartner_fleet_card_number = MyBase.Columns("partner_fleet_card_number") Me.columntstmp = MyBase.Columns("tstmp") End Sub _ Private Sub InitClass() Me.columncustomer_id = New Global.System.Data.DataColumn("customer_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncustomer_id) Me.columnpartner_customer_number = New Global.System.Data.DataColumn("partner_customer_number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpartner_customer_number) Me.columncustomer_name = New Global.System.Data.DataColumn("customer_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncustomer_name) Me.columnvat_number = New Global.System.Data.DataColumn("vat_number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvat_number) Me.columnalternative_vat_number = New Global.System.Data.DataColumn("alternative_vat_number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnalternative_vat_number) Me.columncoc_number = New Global.System.Data.DataColumn("coc_number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncoc_number) Me.columnpartner_fleet_card_number = New Global.System.Data.DataColumn("partner_fleet_card_number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpartner_fleet_card_number) Me.columntstmp = New Global.System.Data.DataColumn("tstmp", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntstmp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncustomer_id}, true)) Me.columncustomer_id.AllowDBNull = false Me.columncustomer_id.Unique = true Me.columnpartner_customer_number.MaxLength = 20 Me.columncustomer_name.MaxLength = 100 Me.columnvat_number.MaxLength = 20 Me.columnalternative_vat_number.MaxLength = 20 Me.columncoc_number.MaxLength = 20 Me.columnpartner_fleet_card_number.MaxLength = 50 End Sub _ Public Function NewtblMSECustomersRow() As tblMSECustomersRow Return CType(Me.NewRow,tblMSECustomersRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMSECustomersRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMSECustomersRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMSECustomersRowChangedEvent) Is Nothing) Then RaiseEvent tblMSECustomersRowChanged(Me, New tblMSECustomersRowChangeEvent(CType(e.Row,tblMSECustomersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMSECustomersRowChangingEvent) Is Nothing) Then RaiseEvent tblMSECustomersRowChanging(Me, New tblMSECustomersRowChangeEvent(CType(e.Row,tblMSECustomersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMSECustomersRowDeletedEvent) Is Nothing) Then RaiseEvent tblMSECustomersRowDeleted(Me, New tblMSECustomersRowChangeEvent(CType(e.Row,tblMSECustomersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMSECustomersRowDeletingEvent) Is Nothing) Then RaiseEvent tblMSECustomersRowDeleting(Me, New tblMSECustomersRowChangeEvent(CType(e.Row,tblMSECustomersRow), e.Action)) End If End Sub _ Public Sub RemovetblMSECustomersRow(ByVal row As tblMSECustomersRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMSECustomersDataTable" 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 tblMSEImportDataTable Inherits Global.System.Data.TypedTableBase(Of tblMSEImportRow) Private columnmse_id As Global.System.Data.DataColumn Private columnmse_kdNr As Global.System.Data.DataColumn Private columnmse_kdName As Global.System.Data.DataColumn Private columnmse_UID As Global.System.Data.DataColumn Private columnmse_landKZ As Global.System.Data.DataColumn Private columnmse_landBezeichnung As Global.System.Data.DataColumn Private columnmse_reDatum As Global.System.Data.DataColumn Private columnmse_reNr As Global.System.Data.DataColumn Private columnmse_betragNetto As Global.System.Data.DataColumn Private columnmse_betrag_Brutto As Global.System.Data.DataColumn Private columnmse_waehrung As Global.System.Data.DataColumn Private columnmse_euroBrutto As Global.System.Data.DataColumn Private columnmse_file As Global.System.Data.DataColumn Private columnmse_importDatum As Global.System.Data.DataColumn Private columnmse_version As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMSEImport" 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 mse_idColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_id End Get End Property _ Public ReadOnly Property mse_kdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_kdNr End Get End Property _ Public ReadOnly Property mse_kdNameColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_kdName End Get End Property _ Public ReadOnly Property mse_UIDColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_UID End Get End Property _ Public ReadOnly Property mse_landKZColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_landKZ End Get End Property _ Public ReadOnly Property mse_landBezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_landBezeichnung End Get End Property _ Public ReadOnly Property mse_reDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_reDatum End Get End Property _ Public ReadOnly Property mse_reNrColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_reNr End Get End Property _ Public ReadOnly Property mse_betragNettoColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_betragNetto End Get End Property _ Public ReadOnly Property mse_betrag_BruttoColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_betrag_Brutto End Get End Property _ Public ReadOnly Property mse_waehrungColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_waehrung End Get End Property _ Public ReadOnly Property mse_euroBruttoColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_euroBrutto End Get End Property _ Public ReadOnly Property mse_fileColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_file End Get End Property _ Public ReadOnly Property mse_importDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_importDatum End Get End Property _ Public ReadOnly Property mse_versionColumn() As Global.System.Data.DataColumn Get Return Me.columnmse_version 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 tblMSEImportRow Get Return CType(Me.Rows(index),tblMSEImportRow) End Get End Property _ Public Event tblMSEImportRowChanging As tblMSEImportRowChangeEventHandler _ Public Event tblMSEImportRowChanged As tblMSEImportRowChangeEventHandler _ Public Event tblMSEImportRowDeleting As tblMSEImportRowChangeEventHandler _ Public Event tblMSEImportRowDeleted As tblMSEImportRowChangeEventHandler _ Public Overloads Sub AddtblMSEImportRow(ByVal row As tblMSEImportRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMSEImportRow(ByVal mse_id As Integer, ByVal mse_kdNr As Integer, ByVal mse_kdName As String, ByVal mse_UID As String, ByVal mse_landKZ As String, ByVal mse_landBezeichnung As String, ByVal mse_reDatum As Date, ByVal mse_reNr As Integer, ByVal mse_betragNetto As Decimal, ByVal mse_betrag_Brutto As Decimal, ByVal mse_waehrung As String, ByVal mse_euroBrutto As Decimal, ByVal mse_file As String, ByVal mse_importDatum As Date, ByVal mse_version As Integer) As tblMSEImportRow Dim rowtblMSEImportRow As tblMSEImportRow = CType(Me.NewRow,tblMSEImportRow) Dim columnValuesArray() As Object = New Object() {mse_id, mse_kdNr, mse_kdName, mse_UID, mse_landKZ, mse_landBezeichnung, mse_reDatum, mse_reNr, mse_betragNetto, mse_betrag_Brutto, mse_waehrung, mse_euroBrutto, mse_file, mse_importDatum, mse_version} rowtblMSEImportRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMSEImportRow) Return rowtblMSEImportRow End Function _ Public Function FindBymse_id(ByVal mse_id As Integer) As tblMSEImportRow Return CType(Me.Rows.Find(New Object() {mse_id}),tblMSEImportRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMSEImportDataTable = CType(MyBase.Clone,tblMSEImportDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMSEImportDataTable() End Function _ Friend Sub InitVars() Me.columnmse_id = MyBase.Columns("mse_id") Me.columnmse_kdNr = MyBase.Columns("mse_kdNr") Me.columnmse_kdName = MyBase.Columns("mse_kdName") Me.columnmse_UID = MyBase.Columns("mse_UID") Me.columnmse_landKZ = MyBase.Columns("mse_landKZ") Me.columnmse_landBezeichnung = MyBase.Columns("mse_landBezeichnung") Me.columnmse_reDatum = MyBase.Columns("mse_reDatum") Me.columnmse_reNr = MyBase.Columns("mse_reNr") Me.columnmse_betragNetto = MyBase.Columns("mse_betragNetto") Me.columnmse_betrag_Brutto = MyBase.Columns("mse_betrag_Brutto") Me.columnmse_waehrung = MyBase.Columns("mse_waehrung") Me.columnmse_euroBrutto = MyBase.Columns("mse_euroBrutto") Me.columnmse_file = MyBase.Columns("mse_file") Me.columnmse_importDatum = MyBase.Columns("mse_importDatum") Me.columnmse_version = MyBase.Columns("mse_version") End Sub _ Private Sub InitClass() Me.columnmse_id = New Global.System.Data.DataColumn("mse_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_id) Me.columnmse_kdNr = New Global.System.Data.DataColumn("mse_kdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_kdNr) Me.columnmse_kdName = New Global.System.Data.DataColumn("mse_kdName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_kdName) Me.columnmse_UID = New Global.System.Data.DataColumn("mse_UID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_UID) Me.columnmse_landKZ = New Global.System.Data.DataColumn("mse_landKZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_landKZ) Me.columnmse_landBezeichnung = New Global.System.Data.DataColumn("mse_landBezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_landBezeichnung) Me.columnmse_reDatum = New Global.System.Data.DataColumn("mse_reDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_reDatum) Me.columnmse_reNr = New Global.System.Data.DataColumn("mse_reNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_reNr) Me.columnmse_betragNetto = New Global.System.Data.DataColumn("mse_betragNetto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_betragNetto) Me.columnmse_betrag_Brutto = New Global.System.Data.DataColumn("mse_betrag_Brutto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_betrag_Brutto) Me.columnmse_waehrung = New Global.System.Data.DataColumn("mse_waehrung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_waehrung) Me.columnmse_euroBrutto = New Global.System.Data.DataColumn("mse_euroBrutto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_euroBrutto) Me.columnmse_file = New Global.System.Data.DataColumn("mse_file", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_file) Me.columnmse_importDatum = New Global.System.Data.DataColumn("mse_importDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_importDatum) Me.columnmse_version = New Global.System.Data.DataColumn("mse_version", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmse_version) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnmse_id}, true)) Me.columnmse_id.AllowDBNull = false Me.columnmse_id.Unique = true Me.columnmse_kdName.MaxLength = 2147483647 Me.columnmse_UID.MaxLength = 20 Me.columnmse_landKZ.MaxLength = 2 Me.columnmse_landBezeichnung.MaxLength = 50 Me.columnmse_waehrung.MaxLength = 3 Me.columnmse_file.MaxLength = 50 End Sub _ Public Function NewtblMSEImportRow() As tblMSEImportRow Return CType(Me.NewRow,tblMSEImportRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMSEImportRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMSEImportRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMSEImportRowChangedEvent) Is Nothing) Then RaiseEvent tblMSEImportRowChanged(Me, New tblMSEImportRowChangeEvent(CType(e.Row,tblMSEImportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMSEImportRowChangingEvent) Is Nothing) Then RaiseEvent tblMSEImportRowChanging(Me, New tblMSEImportRowChangeEvent(CType(e.Row,tblMSEImportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMSEImportRowDeletedEvent) Is Nothing) Then RaiseEvent tblMSEImportRowDeleted(Me, New tblMSEImportRowChangeEvent(CType(e.Row,tblMSEImportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMSEImportRowDeletingEvent) Is Nothing) Then RaiseEvent tblMSEImportRowDeleting(Me, New tblMSEImportRowChangeEvent(CType(e.Row,tblMSEImportRow), e.Action)) End If End Sub _ Public Sub RemovetblMSEImportRow(ByVal row As tblMSEImportRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMSEImportDataTable" 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 tblMSEInvoicesDataTable Inherits Global.System.Data.TypedTableBase(Of tblMSEInvoicesRow) Private columnname As Global.System.Data.DataColumn Private columntotal_amount_euro As Global.System.Data.DataColumn Private columntotal_vat_amount_euro As Global.System.Data.DataColumn Private columnmsts_vat_number As Global.System.Data.DataColumn Private columninvoice_id As Global.System.Data.DataColumn Private columninvoice_date As Global.System.Data.DataColumn Private columncustomer_number As Global.System.Data.DataColumn Private columnimported As Global.System.Data.DataColumn Private columntstmp As Global.System.Data.DataColumn Private columncountry As Global.System.Data.DataColumn Private columndaId As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMSEInvoices" 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 nameColumn() As Global.System.Data.DataColumn Get Return Me.columnname End Get End Property _ Public ReadOnly Property total_amount_euroColumn() As Global.System.Data.DataColumn Get Return Me.columntotal_amount_euro End Get End Property _ Public ReadOnly Property total_vat_amount_euroColumn() As Global.System.Data.DataColumn Get Return Me.columntotal_vat_amount_euro End Get End Property _ Public ReadOnly Property msts_vat_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnmsts_vat_number End Get End Property _ Public ReadOnly Property invoice_idColumn() As Global.System.Data.DataColumn Get Return Me.columninvoice_id End Get End Property _ Public ReadOnly Property invoice_dateColumn() As Global.System.Data.DataColumn Get Return Me.columninvoice_date End Get End Property _ Public ReadOnly Property customer_numberColumn() As Global.System.Data.DataColumn Get Return Me.columncustomer_number End Get End Property _ Public ReadOnly Property importedColumn() As Global.System.Data.DataColumn Get Return Me.columnimported End Get End Property _ Public ReadOnly Property tstmpColumn() As Global.System.Data.DataColumn Get Return Me.columntstmp End Get End Property _ Public ReadOnly Property countryColumn() As Global.System.Data.DataColumn Get Return Me.columncountry End Get End Property _ Public ReadOnly Property daIdColumn() As Global.System.Data.DataColumn Get Return Me.columndaId 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 tblMSEInvoicesRow Get Return CType(Me.Rows(index),tblMSEInvoicesRow) End Get End Property _ Public Event tblMSEInvoicesRowChanging As tblMSEInvoicesRowChangeEventHandler _ Public Event tblMSEInvoicesRowChanged As tblMSEInvoicesRowChangeEventHandler _ Public Event tblMSEInvoicesRowDeleting As tblMSEInvoicesRowChangeEventHandler _ Public Event tblMSEInvoicesRowDeleted As tblMSEInvoicesRowChangeEventHandler _ Public Overloads Sub AddtblMSEInvoicesRow(ByVal row As tblMSEInvoicesRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMSEInvoicesRow(ByVal name As String, ByVal total_amount_euro As Decimal, ByVal total_vat_amount_euro As Decimal, ByVal msts_vat_number As String, ByVal invoice_id As Integer, ByVal invoice_date As Date, ByVal customer_number As Integer, ByVal imported As Boolean, ByVal tstmp As Date, ByVal country As String, ByVal daId As Integer) As tblMSEInvoicesRow Dim rowtblMSEInvoicesRow As tblMSEInvoicesRow = CType(Me.NewRow,tblMSEInvoicesRow) Dim columnValuesArray() As Object = New Object() {name, total_amount_euro, total_vat_amount_euro, msts_vat_number, invoice_id, invoice_date, customer_number, imported, tstmp, country, daId} rowtblMSEInvoicesRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMSEInvoicesRow) Return rowtblMSEInvoicesRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMSEInvoicesDataTable = CType(MyBase.Clone,tblMSEInvoicesDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMSEInvoicesDataTable() End Function _ Friend Sub InitVars() Me.columnname = MyBase.Columns("name") Me.columntotal_amount_euro = MyBase.Columns("total_amount_euro") Me.columntotal_vat_amount_euro = MyBase.Columns("total_vat_amount_euro") Me.columnmsts_vat_number = MyBase.Columns("msts_vat_number") Me.columninvoice_id = MyBase.Columns("invoice_id") Me.columninvoice_date = MyBase.Columns("invoice_date") Me.columncustomer_number = MyBase.Columns("customer_number") Me.columnimported = MyBase.Columns("imported") Me.columntstmp = MyBase.Columns("tstmp") Me.columncountry = MyBase.Columns("country") Me.columndaId = MyBase.Columns("daId") End Sub _ Private Sub InitClass() Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnname) Me.columntotal_amount_euro = New Global.System.Data.DataColumn("total_amount_euro", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntotal_amount_euro) Me.columntotal_vat_amount_euro = New Global.System.Data.DataColumn("total_vat_amount_euro", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntotal_vat_amount_euro) Me.columnmsts_vat_number = New Global.System.Data.DataColumn("msts_vat_number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmsts_vat_number) Me.columninvoice_id = New Global.System.Data.DataColumn("invoice_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninvoice_id) Me.columninvoice_date = New Global.System.Data.DataColumn("invoice_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninvoice_date) Me.columncustomer_number = New Global.System.Data.DataColumn("customer_number", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncustomer_number) Me.columnimported = New Global.System.Data.DataColumn("imported", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnimported) Me.columntstmp = New Global.System.Data.DataColumn("tstmp", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntstmp) Me.columncountry = New Global.System.Data.DataColumn("country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncountry) Me.columndaId = New Global.System.Data.DataColumn("daId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndaId) Me.columnname.AllowDBNull = false Me.columnname.MaxLength = 50 Me.columntotal_amount_euro.AllowDBNull = false Me.columntotal_vat_amount_euro.AllowDBNull = false Me.columnmsts_vat_number.AllowDBNull = false Me.columnmsts_vat_number.MaxLength = 50 Me.columninvoice_id.AllowDBNull = false Me.columninvoice_date.AllowDBNull = false Me.columnimported.AllowDBNull = false Me.columncountry.MaxLength = 2 End Sub _ Public Function NewtblMSEInvoicesRow() As tblMSEInvoicesRow Return CType(Me.NewRow,tblMSEInvoicesRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMSEInvoicesRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMSEInvoicesRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMSEInvoicesRowChangedEvent) Is Nothing) Then RaiseEvent tblMSEInvoicesRowChanged(Me, New tblMSEInvoicesRowChangeEvent(CType(e.Row,tblMSEInvoicesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMSEInvoicesRowChangingEvent) Is Nothing) Then RaiseEvent tblMSEInvoicesRowChanging(Me, New tblMSEInvoicesRowChangeEvent(CType(e.Row,tblMSEInvoicesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMSEInvoicesRowDeletedEvent) Is Nothing) Then RaiseEvent tblMSEInvoicesRowDeleted(Me, New tblMSEInvoicesRowChangeEvent(CType(e.Row,tblMSEInvoicesRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMSEInvoicesRowDeletingEvent) Is Nothing) Then RaiseEvent tblMSEInvoicesRowDeleting(Me, New tblMSEInvoicesRowChangeEvent(CType(e.Row,tblMSEInvoicesRow), e.Action)) End If End Sub _ Public Sub RemovetblMSEInvoicesRow(ByVal row As tblMSEInvoicesRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMSEInvoicesDataTable" 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 tblMSELeistungenDataTable Inherits Global.System.Data.TypedTableBase(Of tblMSELeistungenRow) Private columnCard_Type As Global.System.Data.DataColumn Private columnTransaction_Country As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMSELeistungen" 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 Card_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnCard_Type End Get End Property _ Public ReadOnly Property Transaction_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_Country End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblMSELeistungenRow Get Return CType(Me.Rows(index),tblMSELeistungenRow) End Get End Property _ Public Event tblMSELeistungenRowChanging As tblMSELeistungenRowChangeEventHandler _ Public Event tblMSELeistungenRowChanged As tblMSELeistungenRowChangeEventHandler _ Public Event tblMSELeistungenRowDeleting As tblMSELeistungenRowChangeEventHandler _ Public Event tblMSELeistungenRowDeleted As tblMSELeistungenRowChangeEventHandler _ Public Overloads Sub AddtblMSELeistungenRow(ByVal row As tblMSELeistungenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMSELeistungenRow(ByVal Card_Type As String, ByVal Transaction_Country As String, ByVal _parentLeistungenRowBytblMSELeistungen_LeistungentblMSELeistungen As LeistungenRow, ByVal SSMA_TimeStamp() As Byte) As tblMSELeistungenRow Dim rowtblMSELeistungenRow As tblMSELeistungenRow = CType(Me.NewRow,tblMSELeistungenRow) Dim columnValuesArray() As Object = New Object() {Card_Type, Transaction_Country, Nothing, SSMA_TimeStamp} If (Not (_parentLeistungenRowBytblMSELeistungen_LeistungentblMSELeistungen) Is Nothing) Then columnValuesArray(2) = _parentLeistungenRowBytblMSELeistungen_LeistungentblMSELeistungen(0) End If rowtblMSELeistungenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMSELeistungenRow) Return rowtblMSELeistungenRow End Function _ Public Function FindByCard_TypeTransaction_Country(ByVal Card_Type As String, ByVal Transaction_Country As String) As tblMSELeistungenRow Return CType(Me.Rows.Find(New Object() {Card_Type, Transaction_Country}),tblMSELeistungenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMSELeistungenDataTable = CType(MyBase.Clone,tblMSELeistungenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMSELeistungenDataTable() End Function _ Friend Sub InitVars() Me.columnCard_Type = MyBase.Columns("Card Type") Me.columnTransaction_Country = MyBase.Columns("Transaction Country") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnCard_Type = New Global.System.Data.DataColumn("Card Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCard_Type) Me.columnTransaction_Country = New Global.System.Data.DataColumn("Transaction Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_Country) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCard_Type, Me.columnTransaction_Country}, true)) Me.columnCard_Type.AllowDBNull = false Me.columnCard_Type.MaxLength = 50 Me.columnTransaction_Country.AllowDBNull = false Me.columnTransaction_Country.MaxLength = 2 Me.columnLeistungsNr.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblMSELeistungenRow() As tblMSELeistungenRow Return CType(Me.NewRow,tblMSELeistungenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMSELeistungenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMSELeistungenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMSELeistungenRowChangedEvent) Is Nothing) Then RaiseEvent tblMSELeistungenRowChanged(Me, New tblMSELeistungenRowChangeEvent(CType(e.Row,tblMSELeistungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMSELeistungenRowChangingEvent) Is Nothing) Then RaiseEvent tblMSELeistungenRowChanging(Me, New tblMSELeistungenRowChangeEvent(CType(e.Row,tblMSELeistungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMSELeistungenRowDeletedEvent) Is Nothing) Then RaiseEvent tblMSELeistungenRowDeleted(Me, New tblMSELeistungenRowChangeEvent(CType(e.Row,tblMSELeistungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMSELeistungenRowDeletingEvent) Is Nothing) Then RaiseEvent tblMSELeistungenRowDeleting(Me, New tblMSELeistungenRowChangeEvent(CType(e.Row,tblMSELeistungenRow), e.Action)) End If End Sub _ Public Sub RemovetblMSELeistungenRow(ByVal row As tblMSELeistungenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMSELeistungenDataTable" 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 tblMSESettlementsDataTable Inherits Global.System.Data.TypedTableBase(Of tblMSESettlementsRow) Private columntransaction_id As Global.System.Data.DataColumn Private columninvoice_number As Global.System.Data.DataColumn Private columninvoice_date As Global.System.Data.DataColumn Private columnspecification_page_id As Global.System.Data.DataColumn Private columnspecification_page_name As Global.System.Data.DataColumn Private columntransaction_debit_or_credit As Global.System.Data.DataColumn Private columnoriginal_transaction_id As Global.System.Data.DataColumn Private columnoriginal_invoice_number As Global.System.Data.DataColumn Private columnoriginal_invoice_date As Global.System.Data.DataColumn Private columncredit_comment As Global.System.Data.DataColumn Private columntstmp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMSESettlements" 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 transaction_idColumn() As Global.System.Data.DataColumn Get Return Me.columntransaction_id End Get End Property _ Public ReadOnly Property invoice_numberColumn() As Global.System.Data.DataColumn Get Return Me.columninvoice_number End Get End Property _ Public ReadOnly Property invoice_dateColumn() As Global.System.Data.DataColumn Get Return Me.columninvoice_date End Get End Property _ Public ReadOnly Property specification_page_idColumn() As Global.System.Data.DataColumn Get Return Me.columnspecification_page_id End Get End Property _ Public ReadOnly Property specification_page_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnspecification_page_name End Get End Property _ Public ReadOnly Property transaction_debit_or_creditColumn() As Global.System.Data.DataColumn Get Return Me.columntransaction_debit_or_credit End Get End Property _ Public ReadOnly Property original_transaction_idColumn() As Global.System.Data.DataColumn Get Return Me.columnoriginal_transaction_id End Get End Property _ Public ReadOnly Property original_invoice_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnoriginal_invoice_number End Get End Property _ Public ReadOnly Property original_invoice_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnoriginal_invoice_date End Get End Property _ Public ReadOnly Property credit_commentColumn() As Global.System.Data.DataColumn Get Return Me.columncredit_comment End Get End Property _ Public ReadOnly Property tstmpColumn() As Global.System.Data.DataColumn Get Return Me.columntstmp 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 tblMSESettlementsRow Get Return CType(Me.Rows(index),tblMSESettlementsRow) End Get End Property _ Public Event tblMSESettlementsRowChanging As tblMSESettlementsRowChangeEventHandler _ Public Event tblMSESettlementsRowChanged As tblMSESettlementsRowChangeEventHandler _ Public Event tblMSESettlementsRowDeleting As tblMSESettlementsRowChangeEventHandler _ Public Event tblMSESettlementsRowDeleted As tblMSESettlementsRowChangeEventHandler _ Public Overloads Sub AddtblMSESettlementsRow(ByVal row As tblMSESettlementsRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMSESettlementsRow(ByVal transaction_id As Integer, ByVal invoice_number As Integer, ByVal invoice_date As Date, ByVal specification_page_id As Integer, ByVal specification_page_name As String, ByVal transaction_debit_or_credit As String, ByVal original_transaction_id As Integer, ByVal original_invoice_number As Integer, ByVal original_invoice_date As Date, ByVal credit_comment As String, ByVal tstmp As Date) As tblMSESettlementsRow Dim rowtblMSESettlementsRow As tblMSESettlementsRow = CType(Me.NewRow,tblMSESettlementsRow) Dim columnValuesArray() As Object = New Object() {transaction_id, invoice_number, invoice_date, specification_page_id, specification_page_name, transaction_debit_or_credit, original_transaction_id, original_invoice_number, original_invoice_date, credit_comment, tstmp} rowtblMSESettlementsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMSESettlementsRow) Return rowtblMSESettlementsRow End Function _ Public Function FindBytransaction_id(ByVal transaction_id As Integer) As tblMSESettlementsRow Return CType(Me.Rows.Find(New Object() {transaction_id}),tblMSESettlementsRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMSESettlementsDataTable = CType(MyBase.Clone,tblMSESettlementsDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMSESettlementsDataTable() End Function _ Friend Sub InitVars() Me.columntransaction_id = MyBase.Columns("transaction_id") Me.columninvoice_number = MyBase.Columns("invoice_number") Me.columninvoice_date = MyBase.Columns("invoice_date") Me.columnspecification_page_id = MyBase.Columns("specification_page_id") Me.columnspecification_page_name = MyBase.Columns("specification_page_name") Me.columntransaction_debit_or_credit = MyBase.Columns("transaction_debit_or_credit") Me.columnoriginal_transaction_id = MyBase.Columns("original_transaction_id") Me.columnoriginal_invoice_number = MyBase.Columns("original_invoice_number") Me.columnoriginal_invoice_date = MyBase.Columns("original_invoice_date") Me.columncredit_comment = MyBase.Columns("credit_comment") Me.columntstmp = MyBase.Columns("tstmp") End Sub _ Private Sub InitClass() Me.columntransaction_id = New Global.System.Data.DataColumn("transaction_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntransaction_id) Me.columninvoice_number = New Global.System.Data.DataColumn("invoice_number", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninvoice_number) Me.columninvoice_date = New Global.System.Data.DataColumn("invoice_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninvoice_date) Me.columnspecification_page_id = New Global.System.Data.DataColumn("specification_page_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnspecification_page_id) Me.columnspecification_page_name = New Global.System.Data.DataColumn("specification_page_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnspecification_page_name) Me.columntransaction_debit_or_credit = New Global.System.Data.DataColumn("transaction_debit_or_credit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntransaction_debit_or_credit) Me.columnoriginal_transaction_id = New Global.System.Data.DataColumn("original_transaction_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnoriginal_transaction_id) Me.columnoriginal_invoice_number = New Global.System.Data.DataColumn("original_invoice_number", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnoriginal_invoice_number) Me.columnoriginal_invoice_date = New Global.System.Data.DataColumn("original_invoice_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnoriginal_invoice_date) Me.columncredit_comment = New Global.System.Data.DataColumn("credit_comment", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncredit_comment) Me.columntstmp = New Global.System.Data.DataColumn("tstmp", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntstmp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntransaction_id}, true)) Me.columntransaction_id.AllowDBNull = false Me.columntransaction_id.Unique = true Me.columnspecification_page_name.MaxLength = 50 Me.columntransaction_debit_or_credit.MaxLength = 10 Me.columncredit_comment.MaxLength = 2147483647 End Sub _ Public Function NewtblMSESettlementsRow() As tblMSESettlementsRow Return CType(Me.NewRow,tblMSESettlementsRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMSESettlementsRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMSESettlementsRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMSESettlementsRowChangedEvent) Is Nothing) Then RaiseEvent tblMSESettlementsRowChanged(Me, New tblMSESettlementsRowChangeEvent(CType(e.Row,tblMSESettlementsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMSESettlementsRowChangingEvent) Is Nothing) Then RaiseEvent tblMSESettlementsRowChanging(Me, New tblMSESettlementsRowChangeEvent(CType(e.Row,tblMSESettlementsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMSESettlementsRowDeletedEvent) Is Nothing) Then RaiseEvent tblMSESettlementsRowDeleted(Me, New tblMSESettlementsRowChangeEvent(CType(e.Row,tblMSESettlementsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMSESettlementsRowDeletingEvent) Is Nothing) Then RaiseEvent tblMSESettlementsRowDeleting(Me, New tblMSESettlementsRowChangeEvent(CType(e.Row,tblMSESettlementsRow), e.Action)) End If End Sub _ Public Sub RemovetblMSESettlementsRow(ByVal row As tblMSESettlementsRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMSESettlementsDataTable" 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 tblMSETransactionsDataTable Inherits Global.System.Data.TypedTableBase(Of tblMSETransactionsRow) Private columntransaction_id As Global.System.Data.DataColumn Private columncontroller_id As Global.System.Data.DataColumn Private columnpartner_haulier_id As Global.System.Data.DataColumn Private columnsupplier_name As Global.System.Data.DataColumn Private columntransaction_country As Global.System.Data.DataColumn Private columntransaction_domain As Global.System.Data.DataColumn Private columnpurchase_datetime As Global.System.Data.DataColumn Private columnentry_point_name As Global.System.Data.DataColumn Private columnentry_datetime As Global.System.Data.DataColumn Private columnexit_point_name As Global.System.Data.DataColumn Private columnexit_datetime As Global.System.Data.DataColumn Private columndevice_product_type As Global.System.Data.DataColumn Private columndevice_product_number As Global.System.Data.DataColumn Private columntransaction_product_id As Global.System.Data.DataColumn Private columntransaction_product_name As Global.System.Data.DataColumn Private columnlicense_plate_number As Global.System.Data.DataColumn Private columnvehicle_country As Global.System.Data.DataColumn Private columnoriginal_currency As Global.System.Data.DataColumn Private columnoriginal_net_amount As Global.System.Data.DataColumn Private columnoriginal_gross_amount As Global.System.Data.DataColumn Private columnoriginal_vat_percentage As Global.System.Data.DataColumn Private columncustomer_currency As Global.System.Data.DataColumn Private columntransaction_net_amount As Global.System.Data.DataColumn Private columntransaction_gross_amount As Global.System.Data.DataColumn Private columnexempt_amount As Global.System.Data.DataColumn Private columnmsts_fee_amount As Global.System.Data.DataColumn Private columnmsts_vat_amount As Global.System.Data.DataColumn Private columnmsts_vat_percentage As Global.System.Data.DataColumn Private columntotal_gross_amount As Global.System.Data.DataColumn Private columntransaction_status As Global.System.Data.DataColumn Private columnloading_date As Global.System.Data.DataColumn Private columnbatch_seq_nr As Global.System.Data.DataColumn Private columndistance_km As Global.System.Data.DataColumn Private columncredit_comment As Global.System.Data.DataColumn Private columntstmp As Global.System.Data.DataColumn Private columnoriginal_vat_amount As Global.System.Data.DataColumn Private columnUSteuer_EUR As Global.System.Data.DataColumn Private columncharged As Global.System.Data.DataColumn Private columnchargedDatetime As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMSETransactions" 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 transaction_idColumn() As Global.System.Data.DataColumn Get Return Me.columntransaction_id End Get End Property _ Public ReadOnly Property controller_idColumn() As Global.System.Data.DataColumn Get Return Me.columncontroller_id End Get End Property _ Public ReadOnly Property partner_haulier_idColumn() As Global.System.Data.DataColumn Get Return Me.columnpartner_haulier_id End Get End Property _ Public ReadOnly Property supplier_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnsupplier_name End Get End Property _ Public ReadOnly Property transaction_countryColumn() As Global.System.Data.DataColumn Get Return Me.columntransaction_country End Get End Property _ Public ReadOnly Property transaction_domainColumn() As Global.System.Data.DataColumn Get Return Me.columntransaction_domain End Get End Property _ Public ReadOnly Property purchase_datetimeColumn() As Global.System.Data.DataColumn Get Return Me.columnpurchase_datetime End Get End Property _ Public ReadOnly Property entry_point_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnentry_point_name End Get End Property _ Public ReadOnly Property entry_datetimeColumn() As Global.System.Data.DataColumn Get Return Me.columnentry_datetime End Get End Property _ Public ReadOnly Property exit_point_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnexit_point_name End Get End Property _ Public ReadOnly Property exit_datetimeColumn() As Global.System.Data.DataColumn Get Return Me.columnexit_datetime End Get End Property _ Public ReadOnly Property device_product_typeColumn() As Global.System.Data.DataColumn Get Return Me.columndevice_product_type End Get End Property _ Public ReadOnly Property device_product_numberColumn() As Global.System.Data.DataColumn Get Return Me.columndevice_product_number End Get End Property _ Public ReadOnly Property transaction_product_idColumn() As Global.System.Data.DataColumn Get Return Me.columntransaction_product_id End Get End Property _ Public ReadOnly Property transaction_product_nameColumn() As Global.System.Data.DataColumn Get Return Me.columntransaction_product_name End Get End Property _ Public ReadOnly Property license_plate_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnlicense_plate_number End Get End Property _ Public ReadOnly Property vehicle_countryColumn() As Global.System.Data.DataColumn Get Return Me.columnvehicle_country End Get End Property _ Public ReadOnly Property original_currencyColumn() As Global.System.Data.DataColumn Get Return Me.columnoriginal_currency End Get End Property _ Public ReadOnly Property original_net_amountColumn() As Global.System.Data.DataColumn Get Return Me.columnoriginal_net_amount End Get End Property _ Public ReadOnly Property original_gross_amountColumn() As Global.System.Data.DataColumn Get Return Me.columnoriginal_gross_amount End Get End Property _ Public ReadOnly Property original_vat_percentageColumn() As Global.System.Data.DataColumn Get Return Me.columnoriginal_vat_percentage End Get End Property _ Public ReadOnly Property customer_currencyColumn() As Global.System.Data.DataColumn Get Return Me.columncustomer_currency End Get End Property _ Public ReadOnly Property transaction_net_amountColumn() As Global.System.Data.DataColumn Get Return Me.columntransaction_net_amount End Get End Property _ Public ReadOnly Property transaction_gross_amountColumn() As Global.System.Data.DataColumn Get Return Me.columntransaction_gross_amount End Get End Property _ Public ReadOnly Property exempt_amountColumn() As Global.System.Data.DataColumn Get Return Me.columnexempt_amount End Get End Property _ Public ReadOnly Property msts_fee_amountColumn() As Global.System.Data.DataColumn Get Return Me.columnmsts_fee_amount End Get End Property _ Public ReadOnly Property msts_vat_amountColumn() As Global.System.Data.DataColumn Get Return Me.columnmsts_vat_amount End Get End Property _ Public ReadOnly Property msts_vat_percentageColumn() As Global.System.Data.DataColumn Get Return Me.columnmsts_vat_percentage End Get End Property _ Public ReadOnly Property total_gross_amountColumn() As Global.System.Data.DataColumn Get Return Me.columntotal_gross_amount End Get End Property _ Public ReadOnly Property transaction_statusColumn() As Global.System.Data.DataColumn Get Return Me.columntransaction_status End Get End Property _ Public ReadOnly Property loading_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnloading_date End Get End Property _ Public ReadOnly Property batch_seq_nrColumn() As Global.System.Data.DataColumn Get Return Me.columnbatch_seq_nr End Get End Property _ Public ReadOnly Property distance_kmColumn() As Global.System.Data.DataColumn Get Return Me.columndistance_km End Get End Property _ Public ReadOnly Property credit_commentColumn() As Global.System.Data.DataColumn Get Return Me.columncredit_comment End Get End Property _ Public ReadOnly Property tstmpColumn() As Global.System.Data.DataColumn Get Return Me.columntstmp End Get End Property _ Public ReadOnly Property original_vat_amountColumn() As Global.System.Data.DataColumn Get Return Me.columnoriginal_vat_amount End Get End Property _ Public ReadOnly Property USteuer_EURColumn() As Global.System.Data.DataColumn Get Return Me.columnUSteuer_EUR End Get End Property _ Public ReadOnly Property chargedColumn() As Global.System.Data.DataColumn Get Return Me.columncharged End Get End Property _ Public ReadOnly Property chargedDatetimeColumn() As Global.System.Data.DataColumn Get Return Me.columnchargedDatetime 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 tblMSETransactionsRow Get Return CType(Me.Rows(index),tblMSETransactionsRow) End Get End Property _ Public Event tblMSETransactionsRowChanging As tblMSETransactionsRowChangeEventHandler _ Public Event tblMSETransactionsRowChanged As tblMSETransactionsRowChangeEventHandler _ Public Event tblMSETransactionsRowDeleting As tblMSETransactionsRowChangeEventHandler _ Public Event tblMSETransactionsRowDeleted As tblMSETransactionsRowChangeEventHandler _ Public Overloads Sub AddtblMSETransactionsRow(ByVal row As tblMSETransactionsRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMSETransactionsRow( _ ByVal transaction_id As Integer, _ ByVal controller_id As Integer, _ ByVal partner_haulier_id As Integer, _ ByVal supplier_name As String, _ ByVal transaction_country As String, _ ByVal transaction_domain As String, _ ByVal purchase_datetime As Date, _ ByVal entry_point_name As String, _ ByVal entry_datetime As Date, _ ByVal exit_point_name As String, _ ByVal exit_datetime As Date, _ ByVal device_product_type As String, _ ByVal device_product_number As String, _ ByVal transaction_product_id As Integer, _ ByVal transaction_product_name As String, _ ByVal license_plate_number As String, _ ByVal vehicle_country As String, _ ByVal original_currency As String, _ ByVal original_net_amount As Decimal, _ ByVal original_gross_amount As Decimal, _ ByVal original_vat_percentage As Decimal, _ ByVal customer_currency As String, _ ByVal transaction_net_amount As Decimal, _ ByVal transaction_gross_amount As Decimal, _ ByVal exempt_amount As Decimal, _ ByVal msts_fee_amount As Decimal, _ ByVal msts_vat_amount As Decimal, _ ByVal msts_vat_percentage As Decimal, _ ByVal total_gross_amount As Decimal, _ ByVal transaction_status As String, _ ByVal loading_date As Date, _ ByVal batch_seq_nr As Integer, _ ByVal distance_km As Decimal, _ ByVal credit_comment As String, _ ByVal tstmp As Date, _ ByVal original_vat_amount As Decimal, _ ByVal USteuer_EUR As Decimal, _ ByVal charged As Boolean, _ ByVal chargedDatetime As Date) As tblMSETransactionsRow Dim rowtblMSETransactionsRow As tblMSETransactionsRow = CType(Me.NewRow,tblMSETransactionsRow) Dim columnValuesArray() As Object = New Object() {transaction_id, controller_id, partner_haulier_id, supplier_name, transaction_country, transaction_domain, purchase_datetime, entry_point_name, entry_datetime, exit_point_name, exit_datetime, device_product_type, device_product_number, transaction_product_id, transaction_product_name, license_plate_number, vehicle_country, original_currency, original_net_amount, original_gross_amount, original_vat_percentage, customer_currency, transaction_net_amount, transaction_gross_amount, exempt_amount, msts_fee_amount, msts_vat_amount, msts_vat_percentage, total_gross_amount, transaction_status, loading_date, batch_seq_nr, distance_km, credit_comment, tstmp, original_vat_amount, USteuer_EUR, charged, chargedDatetime} rowtblMSETransactionsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMSETransactionsRow) Return rowtblMSETransactionsRow End Function _ Public Function FindBytransaction_id(ByVal transaction_id As Integer) As tblMSETransactionsRow Return CType(Me.Rows.Find(New Object() {transaction_id}),tblMSETransactionsRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMSETransactionsDataTable = CType(MyBase.Clone,tblMSETransactionsDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMSETransactionsDataTable() End Function _ Friend Sub InitVars() Me.columntransaction_id = MyBase.Columns("transaction_id") Me.columncontroller_id = MyBase.Columns("controller_id") Me.columnpartner_haulier_id = MyBase.Columns("partner_haulier_id") Me.columnsupplier_name = MyBase.Columns("supplier_name") Me.columntransaction_country = MyBase.Columns("transaction_country") Me.columntransaction_domain = MyBase.Columns("transaction_domain") Me.columnpurchase_datetime = MyBase.Columns("purchase_datetime") Me.columnentry_point_name = MyBase.Columns("entry_point_name") Me.columnentry_datetime = MyBase.Columns("entry_datetime") Me.columnexit_point_name = MyBase.Columns("exit_point_name") Me.columnexit_datetime = MyBase.Columns("exit_datetime") Me.columndevice_product_type = MyBase.Columns("device_product_type") Me.columndevice_product_number = MyBase.Columns("device_product_number") Me.columntransaction_product_id = MyBase.Columns("transaction_product_id") Me.columntransaction_product_name = MyBase.Columns("transaction_product_name") Me.columnlicense_plate_number = MyBase.Columns("license_plate_number") Me.columnvehicle_country = MyBase.Columns("vehicle_country") Me.columnoriginal_currency = MyBase.Columns("original_currency") Me.columnoriginal_net_amount = MyBase.Columns("original_net_amount") Me.columnoriginal_gross_amount = MyBase.Columns("original_gross_amount") Me.columnoriginal_vat_percentage = MyBase.Columns("original_vat_percentage") Me.columncustomer_currency = MyBase.Columns("customer_currency") Me.columntransaction_net_amount = MyBase.Columns("transaction_net_amount") Me.columntransaction_gross_amount = MyBase.Columns("transaction_gross_amount") Me.columnexempt_amount = MyBase.Columns("exempt_amount") Me.columnmsts_fee_amount = MyBase.Columns("msts_fee_amount") Me.columnmsts_vat_amount = MyBase.Columns("msts_vat_amount") Me.columnmsts_vat_percentage = MyBase.Columns("msts_vat_percentage") Me.columntotal_gross_amount = MyBase.Columns("total_gross_amount") Me.columntransaction_status = MyBase.Columns("transaction_status") Me.columnloading_date = MyBase.Columns("loading_date") Me.columnbatch_seq_nr = MyBase.Columns("batch_seq_nr") Me.columndistance_km = MyBase.Columns("distance_km") Me.columncredit_comment = MyBase.Columns("credit_comment") Me.columntstmp = MyBase.Columns("tstmp") Me.columnoriginal_vat_amount = MyBase.Columns("original_vat_amount") Me.columnUSteuer_EUR = MyBase.Columns("USteuer_EUR") Me.columncharged = MyBase.Columns("charged") Me.columnchargedDatetime = MyBase.Columns("chargedDatetime") End Sub _ Private Sub InitClass() Me.columntransaction_id = New Global.System.Data.DataColumn("transaction_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntransaction_id) Me.columncontroller_id = New Global.System.Data.DataColumn("controller_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncontroller_id) Me.columnpartner_haulier_id = New Global.System.Data.DataColumn("partner_haulier_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpartner_haulier_id) Me.columnsupplier_name = New Global.System.Data.DataColumn("supplier_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsupplier_name) Me.columntransaction_country = New Global.System.Data.DataColumn("transaction_country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntransaction_country) Me.columntransaction_domain = New Global.System.Data.DataColumn("transaction_domain", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntransaction_domain) Me.columnpurchase_datetime = New Global.System.Data.DataColumn("purchase_datetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpurchase_datetime) Me.columnentry_point_name = New Global.System.Data.DataColumn("entry_point_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnentry_point_name) Me.columnentry_datetime = New Global.System.Data.DataColumn("entry_datetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnentry_datetime) Me.columnexit_point_name = New Global.System.Data.DataColumn("exit_point_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnexit_point_name) Me.columnexit_datetime = New Global.System.Data.DataColumn("exit_datetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnexit_datetime) Me.columndevice_product_type = New Global.System.Data.DataColumn("device_product_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndevice_product_type) Me.columndevice_product_number = New Global.System.Data.DataColumn("device_product_number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndevice_product_number) Me.columntransaction_product_id = New Global.System.Data.DataColumn("transaction_product_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntransaction_product_id) Me.columntransaction_product_name = New Global.System.Data.DataColumn("transaction_product_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntransaction_product_name) Me.columnlicense_plate_number = New Global.System.Data.DataColumn("license_plate_number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnlicense_plate_number) Me.columnvehicle_country = New Global.System.Data.DataColumn("vehicle_country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvehicle_country) Me.columnoriginal_currency = New Global.System.Data.DataColumn("original_currency", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnoriginal_currency) Me.columnoriginal_net_amount = New Global.System.Data.DataColumn("original_net_amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnoriginal_net_amount) Me.columnoriginal_gross_amount = New Global.System.Data.DataColumn("original_gross_amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnoriginal_gross_amount) Me.columnoriginal_vat_percentage = New Global.System.Data.DataColumn("original_vat_percentage", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnoriginal_vat_percentage) Me.columncustomer_currency = New Global.System.Data.DataColumn("customer_currency", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncustomer_currency) Me.columntransaction_net_amount = New Global.System.Data.DataColumn("transaction_net_amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntransaction_net_amount) Me.columntransaction_gross_amount = New Global.System.Data.DataColumn("transaction_gross_amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntransaction_gross_amount) Me.columnexempt_amount = New Global.System.Data.DataColumn("exempt_amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnexempt_amount) Me.columnmsts_fee_amount = New Global.System.Data.DataColumn("msts_fee_amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmsts_fee_amount) Me.columnmsts_vat_amount = New Global.System.Data.DataColumn("msts_vat_amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmsts_vat_amount) Me.columnmsts_vat_percentage = New Global.System.Data.DataColumn("msts_vat_percentage", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmsts_vat_percentage) Me.columntotal_gross_amount = New Global.System.Data.DataColumn("total_gross_amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntotal_gross_amount) Me.columntransaction_status = New Global.System.Data.DataColumn("transaction_status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntransaction_status) Me.columnloading_date = New Global.System.Data.DataColumn("loading_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnloading_date) Me.columnbatch_seq_nr = New Global.System.Data.DataColumn("batch_seq_nr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbatch_seq_nr) Me.columndistance_km = New Global.System.Data.DataColumn("distance_km", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndistance_km) Me.columncredit_comment = New Global.System.Data.DataColumn("credit_comment", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncredit_comment) Me.columntstmp = New Global.System.Data.DataColumn("tstmp", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntstmp) Me.columnoriginal_vat_amount = New Global.System.Data.DataColumn("original_vat_amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnoriginal_vat_amount) Me.columnUSteuer_EUR = New Global.System.Data.DataColumn("USteuer_EUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSteuer_EUR) Me.columncharged = New Global.System.Data.DataColumn("charged", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncharged) Me.columnchargedDatetime = New Global.System.Data.DataColumn("chargedDatetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnchargedDatetime) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntransaction_id}, true)) Me.columntransaction_id.AllowDBNull = false Me.columntransaction_id.Unique = true Me.columnsupplier_name.MaxLength = 50 Me.columntransaction_country.MaxLength = 2 Me.columntransaction_domain.MaxLength = 200 Me.columnentry_point_name.MaxLength = 200 Me.columnexit_point_name.MaxLength = 200 Me.columndevice_product_type.MaxLength = 50 Me.columndevice_product_number.MaxLength = 2147483647 Me.columntransaction_product_name.MaxLength = 2147483647 Me.columnlicense_plate_number.MaxLength = 10 Me.columnvehicle_country.MaxLength = 2 Me.columnoriginal_currency.MaxLength = 3 Me.columncustomer_currency.MaxLength = 3 Me.columntransaction_status.MaxLength = 10 Me.columncredit_comment.MaxLength = 2147483647 Me.columncharged.AllowDBNull = false End Sub _ Public Function NewtblMSETransactionsRow() As tblMSETransactionsRow Return CType(Me.NewRow,tblMSETransactionsRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMSETransactionsRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMSETransactionsRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMSETransactionsRowChangedEvent) Is Nothing) Then RaiseEvent tblMSETransactionsRowChanged(Me, New tblMSETransactionsRowChangeEvent(CType(e.Row,tblMSETransactionsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMSETransactionsRowChangingEvent) Is Nothing) Then RaiseEvent tblMSETransactionsRowChanging(Me, New tblMSETransactionsRowChangeEvent(CType(e.Row,tblMSETransactionsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMSETransactionsRowDeletedEvent) Is Nothing) Then RaiseEvent tblMSETransactionsRowDeleted(Me, New tblMSETransactionsRowChangeEvent(CType(e.Row,tblMSETransactionsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMSETransactionsRowDeletingEvent) Is Nothing) Then RaiseEvent tblMSETransactionsRowDeleting(Me, New tblMSETransactionsRowChangeEvent(CType(e.Row,tblMSETransactionsRow), e.Action)) End If End Sub _ Public Sub RemovetblMSETransactionsRow(ByVal row As tblMSETransactionsRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMSETransactionsDataTable" 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 tblMSETransactionsArchivDataTable Inherits Global.System.Data.TypedTableBase(Of tblMSETransactionsArchivRow) Private columnController_ID As Global.System.Data.DataColumn Private columnController_Name As Global.System.Data.DataColumn Private columnInvoice_ID As Global.System.Data.DataColumn Private columnInvoice_Date As Global.System.Data.DataColumn Private columnCustomer_ID As Global.System.Data.DataColumn Private columnCustomer_No As Global.System.Data.DataColumn Private columnCustomer_name As Global.System.Data.DataColumn Private columnSpecification_Page As Global.System.Data.DataColumn Private columnSpecification_ID As Global.System.Data.DataColumn Private columnTransaction_date As Global.System.Data.DataColumn Private columnTransaction_Month As Global.System.Data.DataColumn Private columnTransaction_ID As Global.System.Data.DataColumn Private _columnTransaction_Supplier_Terminal As Global.System.Data.DataColumn Private columnTransaction_Country As Global.System.Data.DataColumn Private columnProduct_description As Global.System.Data.DataColumn Private columnProduct_Description_ID As Global.System.Data.DataColumn Private columnCard_Type As Global.System.Data.DataColumn Private columnCard_number As Global.System.Data.DataColumn Private columnLoad_File_Licence_Plate_Number As Global.System.Data.DataColumn Private columnCard_Licence_Plate_Number As Global.System.Data.DataColumn Private columnTruck_Licence_Plate_Number As Global.System.Data.DataColumn Private columnTruck_Fleet_Code As Global.System.Data.DataColumn Private columnTruck_Driver_Name As Global.System.Data.DataColumn Private _columnEntry_Terminal_Direction As Global.System.Data.DataColumn Private columnStart_date As Global.System.Data.DataColumn Private columnStart_Time As Global.System.Data.DataColumn Private columnExit_Terminal_Description As Global.System.Data.DataColumn Private columnEnd_Date As Global.System.Data.DataColumn Private columnEnd_Time As Global.System.Data.DataColumn Private _columnEurovignet_K_Number As Global.System.Data.DataColumn Private _columnLKW_Kostenstelle As Global.System.Data.DataColumn Private columnOriginal_Nett_Amount As Global.System.Data.DataColumn Private columnOriginal_VAT_Amount As Global.System.Data.DataColumn Private columnOriginal_Amount As Global.System.Data.DataColumn Private columnOriginal_Currency As Global.System.Data.DataColumn Private _columnTransaction_Amount___EUR__ As Global.System.Data.DataColumn Private _columnAdmin_Fee_Amount___EUR__ As Global.System.Data.DataColumn Private _columnFees_and_Costs_Amount___EUR__ As Global.System.Data.DataColumn Private _columnVAT_Amount___EUR__ As Global.System.Data.DataColumn Private _columnTotal_Amount___EUR__ As Global.System.Data.DataColumn Private _columnTotal_Dutch_VAT___EUR__ As Global.System.Data.DataColumn Private _columnTotal_Foreign_VAT___EUR__ As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnDateiname As Global.System.Data.DataColumn Private columnLfdNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMSETransactionsArchiv" 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 Controller_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnController_ID End Get End Property _ Public ReadOnly Property Controller_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnController_Name End Get End Property _ Public ReadOnly Property Invoice_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnInvoice_ID End Get End Property _ Public ReadOnly Property Invoice_DateColumn() As Global.System.Data.DataColumn Get Return Me.columnInvoice_Date End Get End Property _ Public ReadOnly Property Customer_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomer_ID End Get End Property _ Public ReadOnly Property Customer_NoColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomer_No End Get End Property _ Public ReadOnly Property Customer_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomer_name End Get End Property _ Public ReadOnly Property Specification_PageColumn() As Global.System.Data.DataColumn Get Return Me.columnSpecification_Page End Get End Property _ Public ReadOnly Property Specification_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSpecification_ID End Get End Property _ Public ReadOnly Property Transaction_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_date End Get End Property _ Public ReadOnly Property Transaction_MonthColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_Month End Get End Property _ Public ReadOnly Property Transaction_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_ID End Get End Property _ Public ReadOnly Property _Transaction_Supplier_TerminalColumn() As Global.System.Data.DataColumn Get Return Me._columnTransaction_Supplier_Terminal End Get End Property _ Public ReadOnly Property Transaction_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_Country End Get End Property _ Public ReadOnly Property Product_descriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnProduct_description End Get End Property _ Public ReadOnly Property Product_Description_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnProduct_Description_ID End Get End Property _ Public ReadOnly Property Card_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnCard_Type End Get End Property _ Public ReadOnly Property Card_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnCard_number End Get End Property _ Public ReadOnly Property Load_File_Licence_Plate_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnLoad_File_Licence_Plate_Number End Get End Property _ Public ReadOnly Property Card_Licence_Plate_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnCard_Licence_Plate_Number End Get End Property _ Public ReadOnly Property Truck_Licence_Plate_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnTruck_Licence_Plate_Number End Get End Property _ Public ReadOnly Property Truck_Fleet_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnTruck_Fleet_Code End Get End Property _ Public ReadOnly Property Truck_Driver_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnTruck_Driver_Name End Get End Property _ Public ReadOnly Property _Entry_Terminal_DirectionColumn() As Global.System.Data.DataColumn Get Return Me._columnEntry_Terminal_Direction End Get End Property _ Public ReadOnly Property Start_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnStart_date End Get End Property _ Public ReadOnly Property Start_TimeColumn() As Global.System.Data.DataColumn Get Return Me.columnStart_Time End Get End Property _ Public ReadOnly Property Exit_Terminal_DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnExit_Terminal_Description End Get End Property _ Public ReadOnly Property End_DateColumn() As Global.System.Data.DataColumn Get Return Me.columnEnd_Date End Get End Property _ Public ReadOnly Property End_TimeColumn() As Global.System.Data.DataColumn Get Return Me.columnEnd_Time End Get End Property _ Public ReadOnly Property _Eurovignet_K_NumberColumn() As Global.System.Data.DataColumn Get Return Me._columnEurovignet_K_Number End Get End Property _ Public ReadOnly Property _LKW_KostenstelleColumn() As Global.System.Data.DataColumn Get Return Me._columnLKW_Kostenstelle End Get End Property _ Public ReadOnly Property Original_Nett_AmountColumn() As Global.System.Data.DataColumn Get Return Me.columnOriginal_Nett_Amount End Get End Property _ Public ReadOnly Property Original_VAT_AmountColumn() As Global.System.Data.DataColumn Get Return Me.columnOriginal_VAT_Amount End Get End Property _ Public ReadOnly Property Original_AmountColumn() As Global.System.Data.DataColumn Get Return Me.columnOriginal_Amount End Get End Property _ Public ReadOnly Property Original_CurrencyColumn() As Global.System.Data.DataColumn Get Return Me.columnOriginal_Currency End Get End Property _ Public ReadOnly Property _Transaction_Amount___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnTransaction_Amount___EUR__ End Get End Property _ Public ReadOnly Property _Admin_Fee_Amount___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnAdmin_Fee_Amount___EUR__ End Get End Property _ Public ReadOnly Property _Fees_and_Costs_Amount___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnFees_and_Costs_Amount___EUR__ End Get End Property _ Public ReadOnly Property _VAT_Amount___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnVAT_Amount___EUR__ End Get End Property _ Public ReadOnly Property _Total_Amount___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnTotal_Amount___EUR__ End Get End Property _ Public ReadOnly Property _Total_Dutch_VAT___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnTotal_Dutch_VAT___EUR__ End Get End Property _ Public ReadOnly Property _Total_Foreign_VAT___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnTotal_Foreign_VAT___EUR__ End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property DateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiname End Get End Property _ Public ReadOnly Property LfdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdNr 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 tblMSETransactionsArchivRow Get Return CType(Me.Rows(index),tblMSETransactionsArchivRow) End Get End Property _ Public Event tblMSETransactionsArchivRowChanging As tblMSETransactionsArchivRowChangeEventHandler _ Public Event tblMSETransactionsArchivRowChanged As tblMSETransactionsArchivRowChangeEventHandler _ Public Event tblMSETransactionsArchivRowDeleting As tblMSETransactionsArchivRowChangeEventHandler _ Public Event tblMSETransactionsArchivRowDeleted As tblMSETransactionsArchivRowChangeEventHandler _ Public Overloads Sub AddtblMSETransactionsArchivRow(ByVal row As tblMSETransactionsArchivRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMSETransactionsArchivRow( _ ByVal Controller_ID As Integer, _ ByVal Controller_Name As String, _ ByVal Invoice_ID As String, _ ByVal Invoice_Date As Date, _ ByVal Customer_ID As Integer, _ ByVal Customer_No As Integer, _ ByVal Customer_name As String, _ ByVal Specification_Page As String, _ ByVal Specification_ID As Short, _ ByVal Transaction_date As Date, _ ByVal Transaction_Month As Date, _ ByVal Transaction_ID As Integer, _ ByVal _Transaction_Supplier_Terminal As String, _ ByVal Transaction_Country As String, _ ByVal Product_description As String, _ ByVal Product_Description_ID As Integer, _ ByVal Card_Type As String, _ ByVal Card_number As String, _ ByVal Load_File_Licence_Plate_Number As String, _ ByVal Card_Licence_Plate_Number As String, _ ByVal Truck_Licence_Plate_Number As String, _ ByVal Truck_Fleet_Code As String, _ ByVal Truck_Driver_Name As String, _ ByVal _Entry_Terminal_Direction As String, _ ByVal Start_date As Date, _ ByVal Start_Time As Date, _ ByVal Exit_Terminal_Description As String, _ ByVal End_Date As Date, _ ByVal End_Time As Date, _ ByVal _Eurovignet_K_Number As String, _ ByVal _LKW_Kostenstelle As String, _ ByVal Original_Nett_Amount As Decimal, _ ByVal Original_VAT_Amount As Decimal, _ ByVal Original_Amount As Decimal, _ ByVal Original_Currency As String, _ ByVal _Transaction_Amount___EUR__ As Decimal, _ ByVal _Admin_Fee_Amount___EUR__ As Decimal, _ ByVal _Fees_and_Costs_Amount___EUR__ As Decimal, _ ByVal _VAT_Amount___EUR__ As Decimal, _ ByVal _Total_Amount___EUR__ As Decimal, _ ByVal _Total_Dutch_VAT___EUR__ As Decimal, _ ByVal _Total_Foreign_VAT___EUR__ As Decimal, _ ByVal UStVAn_ID As Integer, _ ByVal upsize_ts() As Byte, _ ByVal Dateiname As String, _ ByVal LfdNr As Integer) As tblMSETransactionsArchivRow Dim rowtblMSETransactionsArchivRow As tblMSETransactionsArchivRow = CType(Me.NewRow,tblMSETransactionsArchivRow) Dim columnValuesArray() As Object = New Object() {Controller_ID, Controller_Name, Invoice_ID, Invoice_Date, Customer_ID, Customer_No, Customer_name, Specification_Page, Specification_ID, Transaction_date, Transaction_Month, Transaction_ID, _Transaction_Supplier_Terminal, Transaction_Country, Product_description, Product_Description_ID, Card_Type, Card_number, Load_File_Licence_Plate_Number, Card_Licence_Plate_Number, Truck_Licence_Plate_Number, Truck_Fleet_Code, Truck_Driver_Name, _Entry_Terminal_Direction, Start_date, Start_Time, Exit_Terminal_Description, End_Date, End_Time, _Eurovignet_K_Number, _LKW_Kostenstelle, Original_Nett_Amount, Original_VAT_Amount, Original_Amount, Original_Currency, _Transaction_Amount___EUR__, _Admin_Fee_Amount___EUR__, _Fees_and_Costs_Amount___EUR__, _VAT_Amount___EUR__, _Total_Amount___EUR__, _Total_Dutch_VAT___EUR__, _Total_Foreign_VAT___EUR__, UStVAn_ID, upsize_ts, Dateiname, LfdNr} rowtblMSETransactionsArchivRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMSETransactionsArchivRow) Return rowtblMSETransactionsArchivRow End Function _ Public Function FindByDateinameLfdNr(ByVal Dateiname As String, ByVal LfdNr As Integer) As tblMSETransactionsArchivRow Return CType(Me.Rows.Find(New Object() {Dateiname, LfdNr}),tblMSETransactionsArchivRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMSETransactionsArchivDataTable = CType(MyBase.Clone,tblMSETransactionsArchivDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMSETransactionsArchivDataTable() End Function _ Friend Sub InitVars() Me.columnController_ID = MyBase.Columns("Controller ID") Me.columnController_Name = MyBase.Columns("Controller Name") Me.columnInvoice_ID = MyBase.Columns("Invoice ID") Me.columnInvoice_Date = MyBase.Columns("Invoice Date") Me.columnCustomer_ID = MyBase.Columns("Customer ID") Me.columnCustomer_No = MyBase.Columns("Customer No") Me.columnCustomer_name = MyBase.Columns("Customer name") Me.columnSpecification_Page = MyBase.Columns("Specification Page") Me.columnSpecification_ID = MyBase.Columns("Specification ID") Me.columnTransaction_date = MyBase.Columns("Transaction date") Me.columnTransaction_Month = MyBase.Columns("Transaction Month") Me.columnTransaction_ID = MyBase.Columns("Transaction ID") Me._columnTransaction_Supplier_Terminal = MyBase.Columns("Transaction Supplier/Terminal") Me.columnTransaction_Country = MyBase.Columns("Transaction Country") Me.columnProduct_description = MyBase.Columns("Product description") Me.columnProduct_Description_ID = MyBase.Columns("Product Description ID") Me.columnCard_Type = MyBase.Columns("Card Type") Me.columnCard_number = MyBase.Columns("Card number") Me.columnLoad_File_Licence_Plate_Number = MyBase.Columns("Load File Licence Plate Number") Me.columnCard_Licence_Plate_Number = MyBase.Columns("Card Licence Plate Number") Me.columnTruck_Licence_Plate_Number = MyBase.Columns("Truck Licence Plate Number") Me.columnTruck_Fleet_Code = MyBase.Columns("Truck Fleet Code") Me.columnTruck_Driver_Name = MyBase.Columns("Truck Driver Name") Me._columnEntry_Terminal_Direction = MyBase.Columns("Entry Terminal/Direction") Me.columnStart_date = MyBase.Columns("Start date") Me.columnStart_Time = MyBase.Columns("Start Time") Me.columnExit_Terminal_Description = MyBase.Columns("Exit Terminal Description") Me.columnEnd_Date = MyBase.Columns("End Date") Me.columnEnd_Time = MyBase.Columns("End Time") Me._columnEurovignet_K_Number = MyBase.Columns("Eurovignet K-Number") Me._columnLKW_Kostenstelle = MyBase.Columns("LKW-Kostenstelle") Me.columnOriginal_Nett_Amount = MyBase.Columns("Original Nett Amount") Me.columnOriginal_VAT_Amount = MyBase.Columns("Original VAT Amount") Me.columnOriginal_Amount = MyBase.Columns("Original Amount") Me.columnOriginal_Currency = MyBase.Columns("Original Currency") Me._columnTransaction_Amount___EUR__ = MyBase.Columns("Transaction Amount ( EUR )") Me._columnAdmin_Fee_Amount___EUR__ = MyBase.Columns("Admin Fee Amount ( EUR )") Me._columnFees_and_Costs_Amount___EUR__ = MyBase.Columns("Fees and Costs Amount ( EUR )") Me._columnVAT_Amount___EUR__ = MyBase.Columns("VAT Amount ( EUR )") Me._columnTotal_Amount___EUR__ = MyBase.Columns("Total Amount ( EUR )") Me._columnTotal_Dutch_VAT___EUR__ = MyBase.Columns("Total Dutch VAT ( EUR )") Me._columnTotal_Foreign_VAT___EUR__ = MyBase.Columns("Total Foreign VAT ( EUR )") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnDateiname = MyBase.Columns("Dateiname") Me.columnLfdNr = MyBase.Columns("LfdNr") End Sub _ Private Sub InitClass() Me.columnController_ID = New Global.System.Data.DataColumn("Controller ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnController_ID) Me.columnController_Name = New Global.System.Data.DataColumn("Controller Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnController_Name) Me.columnInvoice_ID = New Global.System.Data.DataColumn("Invoice ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInvoice_ID) Me.columnInvoice_Date = New Global.System.Data.DataColumn("Invoice Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInvoice_Date) Me.columnCustomer_ID = New Global.System.Data.DataColumn("Customer ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomer_ID) Me.columnCustomer_No = New Global.System.Data.DataColumn("Customer No", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomer_No) Me.columnCustomer_name = New Global.System.Data.DataColumn("Customer name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomer_name) Me.columnSpecification_Page = New Global.System.Data.DataColumn("Specification Page", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpecification_Page) Me.columnSpecification_ID = New Global.System.Data.DataColumn("Specification ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpecification_ID) Me.columnTransaction_date = New Global.System.Data.DataColumn("Transaction date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_date) Me.columnTransaction_Month = New Global.System.Data.DataColumn("Transaction Month", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_Month) Me.columnTransaction_ID = New Global.System.Data.DataColumn("Transaction ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_ID) Me._columnTransaction_Supplier_Terminal = New Global.System.Data.DataColumn("Transaction Supplier/Terminal", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnTransaction_Supplier_Terminal.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTransaction_Supplier_Terminal") Me._columnTransaction_Supplier_Terminal.ExtendedProperties.Add("Generator_UserColumnName", "Transaction Supplier/Terminal") MyBase.Columns.Add(Me._columnTransaction_Supplier_Terminal) Me.columnTransaction_Country = New Global.System.Data.DataColumn("Transaction Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_Country) Me.columnProduct_description = New Global.System.Data.DataColumn("Product description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProduct_description) Me.columnProduct_Description_ID = New Global.System.Data.DataColumn("Product Description ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProduct_Description_ID) Me.columnCard_Type = New Global.System.Data.DataColumn("Card Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCard_Type) Me.columnCard_number = New Global.System.Data.DataColumn("Card number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCard_number) Me.columnLoad_File_Licence_Plate_Number = New Global.System.Data.DataColumn("Load File Licence Plate Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLoad_File_Licence_Plate_Number) Me.columnCard_Licence_Plate_Number = New Global.System.Data.DataColumn("Card Licence Plate Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCard_Licence_Plate_Number) Me.columnTruck_Licence_Plate_Number = New Global.System.Data.DataColumn("Truck Licence Plate Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTruck_Licence_Plate_Number) Me.columnTruck_Fleet_Code = New Global.System.Data.DataColumn("Truck Fleet Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTruck_Fleet_Code) Me.columnTruck_Driver_Name = New Global.System.Data.DataColumn("Truck Driver Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTruck_Driver_Name) Me._columnEntry_Terminal_Direction = New Global.System.Data.DataColumn("Entry Terminal/Direction", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnEntry_Terminal_Direction.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnEntry_Terminal_Direction") Me._columnEntry_Terminal_Direction.ExtendedProperties.Add("Generator_UserColumnName", "Entry Terminal/Direction") MyBase.Columns.Add(Me._columnEntry_Terminal_Direction) Me.columnStart_date = New Global.System.Data.DataColumn("Start date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStart_date) Me.columnStart_Time = New Global.System.Data.DataColumn("Start Time", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStart_Time) Me.columnExit_Terminal_Description = New Global.System.Data.DataColumn("Exit Terminal Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExit_Terminal_Description) Me.columnEnd_Date = New Global.System.Data.DataColumn("End Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEnd_Date) Me.columnEnd_Time = New Global.System.Data.DataColumn("End Time", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEnd_Time) Me._columnEurovignet_K_Number = New Global.System.Data.DataColumn("Eurovignet K-Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnEurovignet_K_Number.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnEurovignet_K_Number") Me._columnEurovignet_K_Number.ExtendedProperties.Add("Generator_UserColumnName", "Eurovignet K-Number") MyBase.Columns.Add(Me._columnEurovignet_K_Number) Me._columnLKW_Kostenstelle = New Global.System.Data.DataColumn("LKW-Kostenstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnLKW_Kostenstelle.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnLKW_Kostenstelle") Me._columnLKW_Kostenstelle.ExtendedProperties.Add("Generator_UserColumnName", "LKW-Kostenstelle") MyBase.Columns.Add(Me._columnLKW_Kostenstelle) Me.columnOriginal_Nett_Amount = New Global.System.Data.DataColumn("Original Nett Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOriginal_Nett_Amount) Me.columnOriginal_VAT_Amount = New Global.System.Data.DataColumn("Original VAT Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOriginal_VAT_Amount) Me.columnOriginal_Amount = New Global.System.Data.DataColumn("Original Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOriginal_Amount) Me.columnOriginal_Currency = New Global.System.Data.DataColumn("Original Currency", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOriginal_Currency) Me._columnTransaction_Amount___EUR__ = New Global.System.Data.DataColumn("Transaction Amount ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnTransaction_Amount___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTransaction_Amount___EUR__") Me._columnTransaction_Amount___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Transaction Amount ( EUR )") MyBase.Columns.Add(Me._columnTransaction_Amount___EUR__) Me._columnAdmin_Fee_Amount___EUR__ = New Global.System.Data.DataColumn("Admin Fee Amount ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnAdmin_Fee_Amount___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnAdmin_Fee_Amount___EUR__") Me._columnAdmin_Fee_Amount___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Admin Fee Amount ( EUR )") MyBase.Columns.Add(Me._columnAdmin_Fee_Amount___EUR__) Me._columnFees_and_Costs_Amount___EUR__ = New Global.System.Data.DataColumn("Fees and Costs Amount ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnFees_and_Costs_Amount___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnFees_and_Costs_Amount___EUR__") Me._columnFees_and_Costs_Amount___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Fees and Costs Amount ( EUR )") MyBase.Columns.Add(Me._columnFees_and_Costs_Amount___EUR__) Me._columnVAT_Amount___EUR__ = New Global.System.Data.DataColumn("VAT Amount ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnVAT_Amount___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnVAT_Amount___EUR__") Me._columnVAT_Amount___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "VAT Amount ( EUR )") MyBase.Columns.Add(Me._columnVAT_Amount___EUR__) Me._columnTotal_Amount___EUR__ = New Global.System.Data.DataColumn("Total Amount ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnTotal_Amount___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTotal_Amount___EUR__") Me._columnTotal_Amount___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Total Amount ( EUR )") MyBase.Columns.Add(Me._columnTotal_Amount___EUR__) Me._columnTotal_Dutch_VAT___EUR__ = New Global.System.Data.DataColumn("Total Dutch VAT ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnTotal_Dutch_VAT___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTotal_Dutch_VAT___EUR__") Me._columnTotal_Dutch_VAT___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Total Dutch VAT ( EUR )") MyBase.Columns.Add(Me._columnTotal_Dutch_VAT___EUR__) Me._columnTotal_Foreign_VAT___EUR__ = New Global.System.Data.DataColumn("Total Foreign VAT ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnTotal_Foreign_VAT___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTotal_Foreign_VAT___EUR__") Me._columnTotal_Foreign_VAT___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Total Foreign VAT ( EUR )") MyBase.Columns.Add(Me._columnTotal_Foreign_VAT___EUR__) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnDateiname = New Global.System.Data.DataColumn("Dateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiname) Me.columnLfdNr = New Global.System.Data.DataColumn("LfdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDateiname, Me.columnLfdNr}, true)) Me.columnController_Name.MaxLength = 50 Me.columnInvoice_ID.MaxLength = 50 Me.columnCustomer_name.MaxLength = 50 Me.columnSpecification_Page.MaxLength = 50 Me.columnTransaction_date.AllowDBNull = false Me.columnTransaction_ID.AllowDBNull = false Me._columnTransaction_Supplier_Terminal.MaxLength = 50 Me.columnTransaction_Country.MaxLength = 2 Me.columnProduct_description.MaxLength = 50 Me.columnCard_Type.MaxLength = 50 Me.columnCard_number.MaxLength = 50 Me.columnLoad_File_Licence_Plate_Number.MaxLength = 50 Me.columnCard_Licence_Plate_Number.MaxLength = 50 Me.columnTruck_Licence_Plate_Number.MaxLength = 50 Me.columnTruck_Fleet_Code.MaxLength = 50 Me.columnTruck_Driver_Name.MaxLength = 50 Me._columnEntry_Terminal_Direction.MaxLength = 255 Me.columnExit_Terminal_Description.MaxLength = 255 Me._columnEurovignet_K_Number.MaxLength = 50 Me._columnLKW_Kostenstelle.MaxLength = 50 Me.columnOriginal_Currency.MaxLength = 3 Me.columnupsize_ts.ReadOnly = true Me.columnDateiname.AllowDBNull = false Me.columnDateiname.MaxLength = 50 Me.columnLfdNr.AllowDBNull = false End Sub _ Public Function NewtblMSETransactionsArchivRow() As tblMSETransactionsArchivRow Return CType(Me.NewRow,tblMSETransactionsArchivRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMSETransactionsArchivRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMSETransactionsArchivRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMSETransactionsArchivRowChangedEvent) Is Nothing) Then RaiseEvent tblMSETransactionsArchivRowChanged(Me, New tblMSETransactionsArchivRowChangeEvent(CType(e.Row,tblMSETransactionsArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMSETransactionsArchivRowChangingEvent) Is Nothing) Then RaiseEvent tblMSETransactionsArchivRowChanging(Me, New tblMSETransactionsArchivRowChangeEvent(CType(e.Row,tblMSETransactionsArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMSETransactionsArchivRowDeletedEvent) Is Nothing) Then RaiseEvent tblMSETransactionsArchivRowDeleted(Me, New tblMSETransactionsArchivRowChangeEvent(CType(e.Row,tblMSETransactionsArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMSETransactionsArchivRowDeletingEvent) Is Nothing) Then RaiseEvent tblMSETransactionsArchivRowDeleting(Me, New tblMSETransactionsArchivRowChangeEvent(CType(e.Row,tblMSETransactionsArchivRow), e.Action)) End If End Sub _ Public Sub RemovetblMSETransactionsArchivRow(ByVal row As tblMSETransactionsArchivRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMSETransactionsArchivDataTable" 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 tblMSETransactionsArchivOLDDataTable Inherits Global.System.Data.TypedTableBase(Of tblMSETransactionsArchivOLDRow) Private columnController_ID As Global.System.Data.DataColumn Private columnController_Name As Global.System.Data.DataColumn Private columnInvoice_ID As Global.System.Data.DataColumn Private columnInvoice_Date As Global.System.Data.DataColumn Private columnCustomer_ID As Global.System.Data.DataColumn Private columnCustomer_No As Global.System.Data.DataColumn Private columnCustomer_name As Global.System.Data.DataColumn Private columnSpecification_Page As Global.System.Data.DataColumn Private columnSpecification_ID As Global.System.Data.DataColumn Private columnTransaction_date As Global.System.Data.DataColumn Private columnTransaction_Month As Global.System.Data.DataColumn Private columnTransaction_ID As Global.System.Data.DataColumn Private _columnTransaction_Supplier_Terminal As Global.System.Data.DataColumn Private columnTransaction_Country As Global.System.Data.DataColumn Private columnProduct_description As Global.System.Data.DataColumn Private columnProduct_Description_ID As Global.System.Data.DataColumn Private columnCard_Type As Global.System.Data.DataColumn Private columnCard_number As Global.System.Data.DataColumn Private columnLoad_File_Licence_Plate_Number As Global.System.Data.DataColumn Private columnCard_Licence_Plate_Number As Global.System.Data.DataColumn Private columnTruck_Licence_Plate_Number As Global.System.Data.DataColumn Private columnTruck_Fleet_Code As Global.System.Data.DataColumn Private columnTruck_Driver_Name As Global.System.Data.DataColumn Private _columnEntry_Terminal_Direction As Global.System.Data.DataColumn Private columnStart_date As Global.System.Data.DataColumn Private columnStart_Time As Global.System.Data.DataColumn Private columnExit_Terminal_Description As Global.System.Data.DataColumn Private columnEnd_Date As Global.System.Data.DataColumn Private columnEnd_Time As Global.System.Data.DataColumn Private _columnEurovignet_K_Number As Global.System.Data.DataColumn Private _columnLKW_Kostenstelle As Global.System.Data.DataColumn Private columnOriginal_Nett_Amount As Global.System.Data.DataColumn Private columnOriginal_VAT_Amount As Global.System.Data.DataColumn Private columnOriginal_Amount As Global.System.Data.DataColumn Private columnOriginal_Currency As Global.System.Data.DataColumn Private _columnTransaction_Amount___EUR__ As Global.System.Data.DataColumn Private _columnAdmin_Fee_Amount___EUR__ As Global.System.Data.DataColumn Private _columnFees_and_Costs_Amount___EUR__ As Global.System.Data.DataColumn Private _columnVAT_Amount___EUR__ As Global.System.Data.DataColumn Private _columnTotal_Amount___EUR__ As Global.System.Data.DataColumn Private _columnTotal_Dutch_VAT___EUR__ As Global.System.Data.DataColumn Private _columnTotal_Foreign_VAT___EUR__ As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnDateiname As Global.System.Data.DataColumn Private columnLfdNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblMSETransactionsArchivOLD" 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 Controller_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnController_ID End Get End Property _ Public ReadOnly Property Controller_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnController_Name End Get End Property _ Public ReadOnly Property Invoice_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnInvoice_ID End Get End Property _ Public ReadOnly Property Invoice_DateColumn() As Global.System.Data.DataColumn Get Return Me.columnInvoice_Date End Get End Property _ Public ReadOnly Property Customer_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomer_ID End Get End Property _ Public ReadOnly Property Customer_NoColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomer_No End Get End Property _ Public ReadOnly Property Customer_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomer_name End Get End Property _ Public ReadOnly Property Specification_PageColumn() As Global.System.Data.DataColumn Get Return Me.columnSpecification_Page End Get End Property _ Public ReadOnly Property Specification_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSpecification_ID End Get End Property _ Public ReadOnly Property Transaction_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_date End Get End Property _ Public ReadOnly Property Transaction_MonthColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_Month End Get End Property _ Public ReadOnly Property Transaction_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_ID End Get End Property _ Public ReadOnly Property _Transaction_Supplier_TerminalColumn() As Global.System.Data.DataColumn Get Return Me._columnTransaction_Supplier_Terminal End Get End Property _ Public ReadOnly Property Transaction_CountryColumn() As Global.System.Data.DataColumn Get Return Me.columnTransaction_Country End Get End Property _ Public ReadOnly Property Product_descriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnProduct_description End Get End Property _ Public ReadOnly Property Product_Description_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnProduct_Description_ID End Get End Property _ Public ReadOnly Property Card_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnCard_Type End Get End Property _ Public ReadOnly Property Card_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnCard_number End Get End Property _ Public ReadOnly Property Load_File_Licence_Plate_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnLoad_File_Licence_Plate_Number End Get End Property _ Public ReadOnly Property Card_Licence_Plate_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnCard_Licence_Plate_Number End Get End Property _ Public ReadOnly Property Truck_Licence_Plate_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnTruck_Licence_Plate_Number End Get End Property _ Public ReadOnly Property Truck_Fleet_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnTruck_Fleet_Code End Get End Property _ Public ReadOnly Property Truck_Driver_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnTruck_Driver_Name End Get End Property _ Public ReadOnly Property _Entry_Terminal_DirectionColumn() As Global.System.Data.DataColumn Get Return Me._columnEntry_Terminal_Direction End Get End Property _ Public ReadOnly Property Start_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnStart_date End Get End Property _ Public ReadOnly Property Start_TimeColumn() As Global.System.Data.DataColumn Get Return Me.columnStart_Time End Get End Property _ Public ReadOnly Property Exit_Terminal_DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnExit_Terminal_Description End Get End Property _ Public ReadOnly Property End_DateColumn() As Global.System.Data.DataColumn Get Return Me.columnEnd_Date End Get End Property _ Public ReadOnly Property End_TimeColumn() As Global.System.Data.DataColumn Get Return Me.columnEnd_Time End Get End Property _ Public ReadOnly Property _Eurovignet_K_NumberColumn() As Global.System.Data.DataColumn Get Return Me._columnEurovignet_K_Number End Get End Property _ Public ReadOnly Property _LKW_KostenstelleColumn() As Global.System.Data.DataColumn Get Return Me._columnLKW_Kostenstelle End Get End Property _ Public ReadOnly Property Original_Nett_AmountColumn() As Global.System.Data.DataColumn Get Return Me.columnOriginal_Nett_Amount End Get End Property _ Public ReadOnly Property Original_VAT_AmountColumn() As Global.System.Data.DataColumn Get Return Me.columnOriginal_VAT_Amount End Get End Property _ Public ReadOnly Property Original_AmountColumn() As Global.System.Data.DataColumn Get Return Me.columnOriginal_Amount End Get End Property _ Public ReadOnly Property Original_CurrencyColumn() As Global.System.Data.DataColumn Get Return Me.columnOriginal_Currency End Get End Property _ Public ReadOnly Property _Transaction_Amount___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnTransaction_Amount___EUR__ End Get End Property _ Public ReadOnly Property _Admin_Fee_Amount___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnAdmin_Fee_Amount___EUR__ End Get End Property _ Public ReadOnly Property _Fees_and_Costs_Amount___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnFees_and_Costs_Amount___EUR__ End Get End Property _ Public ReadOnly Property _VAT_Amount___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnVAT_Amount___EUR__ End Get End Property _ Public ReadOnly Property _Total_Amount___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnTotal_Amount___EUR__ End Get End Property _ Public ReadOnly Property _Total_Dutch_VAT___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnTotal_Dutch_VAT___EUR__ End Get End Property _ Public ReadOnly Property _Total_Foreign_VAT___EUR__Column() As Global.System.Data.DataColumn Get Return Me._columnTotal_Foreign_VAT___EUR__ End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property DateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiname End Get End Property _ Public ReadOnly Property LfdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdNr 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 tblMSETransactionsArchivOLDRow Get Return CType(Me.Rows(index),tblMSETransactionsArchivOLDRow) End Get End Property _ Public Event tblMSETransactionsArchivOLDRowChanging As tblMSETransactionsArchivOLDRowChangeEventHandler _ Public Event tblMSETransactionsArchivOLDRowChanged As tblMSETransactionsArchivOLDRowChangeEventHandler _ Public Event tblMSETransactionsArchivOLDRowDeleting As tblMSETransactionsArchivOLDRowChangeEventHandler _ Public Event tblMSETransactionsArchivOLDRowDeleted As tblMSETransactionsArchivOLDRowChangeEventHandler _ Public Overloads Sub AddtblMSETransactionsArchivOLDRow(ByVal row As tblMSETransactionsArchivOLDRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblMSETransactionsArchivOLDRow( _ ByVal Controller_ID As Integer, _ ByVal Controller_Name As String, _ ByVal Invoice_ID As String, _ ByVal Invoice_Date As Date, _ ByVal Customer_ID As Integer, _ ByVal Customer_No As Integer, _ ByVal Customer_name As String, _ ByVal Specification_Page As String, _ ByVal Specification_ID As Short, _ ByVal Transaction_date As Date, _ ByVal Transaction_Month As Date, _ ByVal Transaction_ID As Integer, _ ByVal _Transaction_Supplier_Terminal As String, _ ByVal Transaction_Country As String, _ ByVal Product_description As String, _ ByVal Product_Description_ID As Integer, _ ByVal Card_Type As String, _ ByVal Card_number As String, _ ByVal Load_File_Licence_Plate_Number As String, _ ByVal Card_Licence_Plate_Number As String, _ ByVal Truck_Licence_Plate_Number As String, _ ByVal Truck_Fleet_Code As String, _ ByVal Truck_Driver_Name As String, _ ByVal _Entry_Terminal_Direction As String, _ ByVal Start_date As Date, _ ByVal Start_Time As Date, _ ByVal Exit_Terminal_Description As String, _ ByVal End_Date As Date, _ ByVal End_Time As Date, _ ByVal _Eurovignet_K_Number As String, _ ByVal _LKW_Kostenstelle As String, _ ByVal Original_Nett_Amount As Decimal, _ ByVal Original_VAT_Amount As Decimal, _ ByVal Original_Amount As Decimal, _ ByVal Original_Currency As String, _ ByVal _Transaction_Amount___EUR__ As Decimal, _ ByVal _Admin_Fee_Amount___EUR__ As Decimal, _ ByVal _Fees_and_Costs_Amount___EUR__ As Decimal, _ ByVal _VAT_Amount___EUR__ As Decimal, _ ByVal _Total_Amount___EUR__ As Decimal, _ ByVal _Total_Dutch_VAT___EUR__ As Decimal, _ ByVal _Total_Foreign_VAT___EUR__ As Decimal, _ ByVal UStVAn_ID As Integer, _ ByVal upsize_ts() As Byte, _ ByVal Dateiname As String, _ ByVal LfdNr As Integer) As tblMSETransactionsArchivOLDRow Dim rowtblMSETransactionsArchivOLDRow As tblMSETransactionsArchivOLDRow = CType(Me.NewRow,tblMSETransactionsArchivOLDRow) Dim columnValuesArray() As Object = New Object() {Controller_ID, Controller_Name, Invoice_ID, Invoice_Date, Customer_ID, Customer_No, Customer_name, Specification_Page, Specification_ID, Transaction_date, Transaction_Month, Transaction_ID, _Transaction_Supplier_Terminal, Transaction_Country, Product_description, Product_Description_ID, Card_Type, Card_number, Load_File_Licence_Plate_Number, Card_Licence_Plate_Number, Truck_Licence_Plate_Number, Truck_Fleet_Code, Truck_Driver_Name, _Entry_Terminal_Direction, Start_date, Start_Time, Exit_Terminal_Description, End_Date, End_Time, _Eurovignet_K_Number, _LKW_Kostenstelle, Original_Nett_Amount, Original_VAT_Amount, Original_Amount, Original_Currency, _Transaction_Amount___EUR__, _Admin_Fee_Amount___EUR__, _Fees_and_Costs_Amount___EUR__, _VAT_Amount___EUR__, _Total_Amount___EUR__, _Total_Dutch_VAT___EUR__, _Total_Foreign_VAT___EUR__, UStVAn_ID, upsize_ts, Dateiname, LfdNr} rowtblMSETransactionsArchivOLDRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblMSETransactionsArchivOLDRow) Return rowtblMSETransactionsArchivOLDRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblMSETransactionsArchivOLDDataTable = CType(MyBase.Clone,tblMSETransactionsArchivOLDDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblMSETransactionsArchivOLDDataTable() End Function _ Friend Sub InitVars() Me.columnController_ID = MyBase.Columns("Controller ID") Me.columnController_Name = MyBase.Columns("Controller Name") Me.columnInvoice_ID = MyBase.Columns("Invoice ID") Me.columnInvoice_Date = MyBase.Columns("Invoice Date") Me.columnCustomer_ID = MyBase.Columns("Customer ID") Me.columnCustomer_No = MyBase.Columns("Customer No") Me.columnCustomer_name = MyBase.Columns("Customer name") Me.columnSpecification_Page = MyBase.Columns("Specification Page") Me.columnSpecification_ID = MyBase.Columns("Specification ID") Me.columnTransaction_date = MyBase.Columns("Transaction date") Me.columnTransaction_Month = MyBase.Columns("Transaction Month") Me.columnTransaction_ID = MyBase.Columns("Transaction ID") Me._columnTransaction_Supplier_Terminal = MyBase.Columns("Transaction Supplier/Terminal") Me.columnTransaction_Country = MyBase.Columns("Transaction Country") Me.columnProduct_description = MyBase.Columns("Product description") Me.columnProduct_Description_ID = MyBase.Columns("Product Description ID") Me.columnCard_Type = MyBase.Columns("Card Type") Me.columnCard_number = MyBase.Columns("Card number") Me.columnLoad_File_Licence_Plate_Number = MyBase.Columns("Load File Licence Plate Number") Me.columnCard_Licence_Plate_Number = MyBase.Columns("Card Licence Plate Number") Me.columnTruck_Licence_Plate_Number = MyBase.Columns("Truck Licence Plate Number") Me.columnTruck_Fleet_Code = MyBase.Columns("Truck Fleet Code") Me.columnTruck_Driver_Name = MyBase.Columns("Truck Driver Name") Me._columnEntry_Terminal_Direction = MyBase.Columns("Entry Terminal/Direction") Me.columnStart_date = MyBase.Columns("Start date") Me.columnStart_Time = MyBase.Columns("Start Time") Me.columnExit_Terminal_Description = MyBase.Columns("Exit Terminal Description") Me.columnEnd_Date = MyBase.Columns("End Date") Me.columnEnd_Time = MyBase.Columns("End Time") Me._columnEurovignet_K_Number = MyBase.Columns("Eurovignet K-Number") Me._columnLKW_Kostenstelle = MyBase.Columns("LKW-Kostenstelle") Me.columnOriginal_Nett_Amount = MyBase.Columns("Original Nett Amount") Me.columnOriginal_VAT_Amount = MyBase.Columns("Original VAT Amount") Me.columnOriginal_Amount = MyBase.Columns("Original Amount") Me.columnOriginal_Currency = MyBase.Columns("Original Currency") Me._columnTransaction_Amount___EUR__ = MyBase.Columns("Transaction Amount ( EUR )") Me._columnAdmin_Fee_Amount___EUR__ = MyBase.Columns("Admin Fee Amount ( EUR )") Me._columnFees_and_Costs_Amount___EUR__ = MyBase.Columns("Fees and Costs Amount ( EUR )") Me._columnVAT_Amount___EUR__ = MyBase.Columns("VAT Amount ( EUR )") Me._columnTotal_Amount___EUR__ = MyBase.Columns("Total Amount ( EUR )") Me._columnTotal_Dutch_VAT___EUR__ = MyBase.Columns("Total Dutch VAT ( EUR )") Me._columnTotal_Foreign_VAT___EUR__ = MyBase.Columns("Total Foreign VAT ( EUR )") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnDateiname = MyBase.Columns("Dateiname") Me.columnLfdNr = MyBase.Columns("LfdNr") End Sub _ Private Sub InitClass() Me.columnController_ID = New Global.System.Data.DataColumn("Controller ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnController_ID) Me.columnController_Name = New Global.System.Data.DataColumn("Controller Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnController_Name) Me.columnInvoice_ID = New Global.System.Data.DataColumn("Invoice ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInvoice_ID) Me.columnInvoice_Date = New Global.System.Data.DataColumn("Invoice Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInvoice_Date) Me.columnCustomer_ID = New Global.System.Data.DataColumn("Customer ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomer_ID) Me.columnCustomer_No = New Global.System.Data.DataColumn("Customer No", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomer_No) Me.columnCustomer_name = New Global.System.Data.DataColumn("Customer name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomer_name) Me.columnSpecification_Page = New Global.System.Data.DataColumn("Specification Page", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpecification_Page) Me.columnSpecification_ID = New Global.System.Data.DataColumn("Specification ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpecification_ID) Me.columnTransaction_date = New Global.System.Data.DataColumn("Transaction date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_date) Me.columnTransaction_Month = New Global.System.Data.DataColumn("Transaction Month", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_Month) Me.columnTransaction_ID = New Global.System.Data.DataColumn("Transaction ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_ID) Me._columnTransaction_Supplier_Terminal = New Global.System.Data.DataColumn("Transaction Supplier/Terminal", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnTransaction_Supplier_Terminal.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTransaction_Supplier_Terminal") Me._columnTransaction_Supplier_Terminal.ExtendedProperties.Add("Generator_UserColumnName", "Transaction Supplier/Terminal") MyBase.Columns.Add(Me._columnTransaction_Supplier_Terminal) Me.columnTransaction_Country = New Global.System.Data.DataColumn("Transaction Country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransaction_Country) Me.columnProduct_description = New Global.System.Data.DataColumn("Product description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProduct_description) Me.columnProduct_Description_ID = New Global.System.Data.DataColumn("Product Description ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProduct_Description_ID) Me.columnCard_Type = New Global.System.Data.DataColumn("Card Type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCard_Type) Me.columnCard_number = New Global.System.Data.DataColumn("Card number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCard_number) Me.columnLoad_File_Licence_Plate_Number = New Global.System.Data.DataColumn("Load File Licence Plate Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLoad_File_Licence_Plate_Number) Me.columnCard_Licence_Plate_Number = New Global.System.Data.DataColumn("Card Licence Plate Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCard_Licence_Plate_Number) Me.columnTruck_Licence_Plate_Number = New Global.System.Data.DataColumn("Truck Licence Plate Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTruck_Licence_Plate_Number) Me.columnTruck_Fleet_Code = New Global.System.Data.DataColumn("Truck Fleet Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTruck_Fleet_Code) Me.columnTruck_Driver_Name = New Global.System.Data.DataColumn("Truck Driver Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTruck_Driver_Name) Me._columnEntry_Terminal_Direction = New Global.System.Data.DataColumn("Entry Terminal/Direction", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnEntry_Terminal_Direction.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnEntry_Terminal_Direction") Me._columnEntry_Terminal_Direction.ExtendedProperties.Add("Generator_UserColumnName", "Entry Terminal/Direction") MyBase.Columns.Add(Me._columnEntry_Terminal_Direction) Me.columnStart_date = New Global.System.Data.DataColumn("Start date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStart_date) Me.columnStart_Time = New Global.System.Data.DataColumn("Start Time", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStart_Time) Me.columnExit_Terminal_Description = New Global.System.Data.DataColumn("Exit Terminal Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExit_Terminal_Description) Me.columnEnd_Date = New Global.System.Data.DataColumn("End Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEnd_Date) Me.columnEnd_Time = New Global.System.Data.DataColumn("End Time", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEnd_Time) Me._columnEurovignet_K_Number = New Global.System.Data.DataColumn("Eurovignet K-Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnEurovignet_K_Number.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnEurovignet_K_Number") Me._columnEurovignet_K_Number.ExtendedProperties.Add("Generator_UserColumnName", "Eurovignet K-Number") MyBase.Columns.Add(Me._columnEurovignet_K_Number) Me._columnLKW_Kostenstelle = New Global.System.Data.DataColumn("LKW-Kostenstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnLKW_Kostenstelle.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnLKW_Kostenstelle") Me._columnLKW_Kostenstelle.ExtendedProperties.Add("Generator_UserColumnName", "LKW-Kostenstelle") MyBase.Columns.Add(Me._columnLKW_Kostenstelle) Me.columnOriginal_Nett_Amount = New Global.System.Data.DataColumn("Original Nett Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOriginal_Nett_Amount) Me.columnOriginal_VAT_Amount = New Global.System.Data.DataColumn("Original VAT Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOriginal_VAT_Amount) Me.columnOriginal_Amount = New Global.System.Data.DataColumn("Original Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOriginal_Amount) Me.columnOriginal_Currency = New Global.System.Data.DataColumn("Original Currency", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOriginal_Currency) Me._columnTransaction_Amount___EUR__ = New Global.System.Data.DataColumn("Transaction Amount ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnTransaction_Amount___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTransaction_Amount___EUR__") Me._columnTransaction_Amount___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Transaction Amount ( EUR )") MyBase.Columns.Add(Me._columnTransaction_Amount___EUR__) Me._columnAdmin_Fee_Amount___EUR__ = New Global.System.Data.DataColumn("Admin Fee Amount ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnAdmin_Fee_Amount___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnAdmin_Fee_Amount___EUR__") Me._columnAdmin_Fee_Amount___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Admin Fee Amount ( EUR )") MyBase.Columns.Add(Me._columnAdmin_Fee_Amount___EUR__) Me._columnFees_and_Costs_Amount___EUR__ = New Global.System.Data.DataColumn("Fees and Costs Amount ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnFees_and_Costs_Amount___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnFees_and_Costs_Amount___EUR__") Me._columnFees_and_Costs_Amount___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Fees and Costs Amount ( EUR )") MyBase.Columns.Add(Me._columnFees_and_Costs_Amount___EUR__) Me._columnVAT_Amount___EUR__ = New Global.System.Data.DataColumn("VAT Amount ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnVAT_Amount___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnVAT_Amount___EUR__") Me._columnVAT_Amount___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "VAT Amount ( EUR )") MyBase.Columns.Add(Me._columnVAT_Amount___EUR__) Me._columnTotal_Amount___EUR__ = New Global.System.Data.DataColumn("Total Amount ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnTotal_Amount___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTotal_Amount___EUR__") Me._columnTotal_Amount___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Total Amount ( EUR )") MyBase.Columns.Add(Me._columnTotal_Amount___EUR__) Me._columnTotal_Dutch_VAT___EUR__ = New Global.System.Data.DataColumn("Total Dutch VAT ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnTotal_Dutch_VAT___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTotal_Dutch_VAT___EUR__") Me._columnTotal_Dutch_VAT___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Total Dutch VAT ( EUR )") MyBase.Columns.Add(Me._columnTotal_Dutch_VAT___EUR__) Me._columnTotal_Foreign_VAT___EUR__ = New Global.System.Data.DataColumn("Total Foreign VAT ( EUR )", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) Me._columnTotal_Foreign_VAT___EUR__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTotal_Foreign_VAT___EUR__") Me._columnTotal_Foreign_VAT___EUR__.ExtendedProperties.Add("Generator_UserColumnName", "Total Foreign VAT ( EUR )") MyBase.Columns.Add(Me._columnTotal_Foreign_VAT___EUR__) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnDateiname = New Global.System.Data.DataColumn("Dateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiname) Me.columnLfdNr = New Global.System.Data.DataColumn("LfdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdNr) Me.columnController_Name.MaxLength = 50 Me.columnInvoice_ID.MaxLength = 50 Me.columnCustomer_name.MaxLength = 50 Me.columnSpecification_Page.MaxLength = 50 Me.columnTransaction_date.AllowDBNull = false Me.columnTransaction_ID.AllowDBNull = false Me._columnTransaction_Supplier_Terminal.MaxLength = 50 Me.columnTransaction_Country.MaxLength = 2 Me.columnProduct_description.MaxLength = 50 Me.columnCard_Type.MaxLength = 50 Me.columnCard_number.MaxLength = 50 Me.columnLoad_File_Licence_Plate_Number.MaxLength = 50 Me.columnCard_Licence_Plate_Number.MaxLength = 50 Me.columnTruck_Licence_Plate_Number.MaxLength = 50 Me.columnTruck_Fleet_Code.MaxLength = 50 Me.columnTruck_Driver_Name.MaxLength = 50 Me._columnEntry_Terminal_Direction.MaxLength = 255 Me.columnExit_Terminal_Description.MaxLength = 255 Me._columnEurovignet_K_Number.MaxLength = 50 Me._columnLKW_Kostenstelle.MaxLength = 50 Me.columnOriginal_Currency.MaxLength = 3 Me.columnupsize_ts.ReadOnly = true Me.columnDateiname.AllowDBNull = false Me.columnDateiname.MaxLength = 50 Me.columnLfdNr.AllowDBNull = false End Sub _ Public Function NewtblMSETransactionsArchivOLDRow() As tblMSETransactionsArchivOLDRow Return CType(Me.NewRow,tblMSETransactionsArchivOLDRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblMSETransactionsArchivOLDRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblMSETransactionsArchivOLDRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblMSETransactionsArchivOLDRowChangedEvent) Is Nothing) Then RaiseEvent tblMSETransactionsArchivOLDRowChanged(Me, New tblMSETransactionsArchivOLDRowChangeEvent(CType(e.Row,tblMSETransactionsArchivOLDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblMSETransactionsArchivOLDRowChangingEvent) Is Nothing) Then RaiseEvent tblMSETransactionsArchivOLDRowChanging(Me, New tblMSETransactionsArchivOLDRowChangeEvent(CType(e.Row,tblMSETransactionsArchivOLDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblMSETransactionsArchivOLDRowDeletedEvent) Is Nothing) Then RaiseEvent tblMSETransactionsArchivOLDRowDeleted(Me, New tblMSETransactionsArchivOLDRowChangeEvent(CType(e.Row,tblMSETransactionsArchivOLDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblMSETransactionsArchivOLDRowDeletingEvent) Is Nothing) Then RaiseEvent tblMSETransactionsArchivOLDRowDeleting(Me, New tblMSETransactionsArchivOLDRowChangeEvent(CType(e.Row,tblMSETransactionsArchivOLDRow), e.Action)) End If End Sub _ Public Sub RemovetblMSETransactionsArchivOLDRow(ByVal row As tblMSETransactionsArchivOLDRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblMSETransactionsArchivOLDDataTable" 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 tblNCTS_TRDataTable Inherits Global.System.Data.TypedTableBase(Of tblNCTS_TRRow) Private columnncts_Id As Global.System.Data.DataColumn Private columnncts_Partnersystem As Global.System.Data.DataColumn Private columnncts_Status As Global.System.Data.DataColumn Private columnncts_Status_KEWILL_Equivalent As Global.System.Data.DataColumn Private columnncts_dyaArt As Global.System.Data.DataColumn Private columnncts_dyaAnmID As Global.System.Data.DataColumn Private columnncts_ANR As Global.System.Data.DataColumn Private columnncts_MRN As Global.System.Data.DataColumn Private columnncts_Erstellung As Global.System.Data.DataColumn Private columnncts_Erstellung_SB As Global.System.Data.DataColumn Private columnncts_LetzteBearbeitung As Global.System.Data.DataColumn Private columnncts_LetzteBearbeitung_SB As Global.System.Data.DataColumn Private columnncts_firma As Global.System.Data.DataColumn Private columnncts_niederlassung As Global.System.Data.DataColumn Private columnncts_Gestellt As Global.System.Data.DataColumn Private columnncts_GestelltAm As Global.System.Data.DataColumn Private columnncts_Trans_Partner As Global.System.Data.DataColumn Private columnncts_Trans_Div1 As Global.System.Data.DataColumn Private columnncts_Trans_Div2 As Global.System.Data.DataColumn Private columnncts_Trans_Div3 As Global.System.Data.DataColumn Private columnncts_Trans_Referenz As Global.System.Data.DataColumn Private columnncts_Trans_DatumZeit As Global.System.Data.DataColumn Private columnncts_Trans_Version As Global.System.Data.DataColumn Private columnncts_NachrichtenSenderTIN As Global.System.Data.DataColumn Private columnncts_NachrichtenSenderNLNR As Global.System.Data.DataColumn Private columnncts_NachrichtenempfaengerDST As Global.System.Data.DataColumn Private columnncts_ObjectName As Global.System.Data.DataColumn Private columnncts_ObjectAlias As Global.System.Data.DataColumn Private columnncts_BezugsnummerVorblendung As Global.System.Data.DataColumn Private columnncts_Bearbeiter As Global.System.Data.DataColumn Private columnncts_VersendungsLandCode As Global.System.Data.DataColumn Private columnncts_BestimmungslandCode As Global.System.Data.DataColumn Private columnncts_ArtAnmeldung As Global.System.Data.DataColumn Private columnncts_BeladungsOrt As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer1 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer2 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer3 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer4 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer5 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer6 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer7 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer8 As Global.System.Data.DataColumn Private columnncts_DurchgangszollstelleDienststellnummer9 As Global.System.Data.DataColumn Private columnncts_BestimmungsstelleDienststellennummer As Global.System.Data.DataColumn Private columnncts_AbgangsDienststellennummer As Global.System.Data.DataColumn Private columnncts_Wiedergestellungsdatum As Global.System.Data.DataColumn Private columnncts_KzVereinfachtesVerfahren As Global.System.Data.DataColumn Private columnncts_GesamtRohmasse As Global.System.Data.DataColumn Private columnncts_GesamtAnzahlPackstuecke As Global.System.Data.DataColumn Private columnncts_Verschluss_ArtCode As Global.System.Data.DataColumn Private columnncts_Verschluss_Anzahl As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen1 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen2 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen3 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen4 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen5 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen6 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen7 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen8 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen9 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen10 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen11 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen12 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen13 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen14 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen15 As Global.System.Data.DataColumn Private columnncts_Verschluss_Zeichen16 As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_KennzeichenAbgang As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_ArtGrenzueberschreitung As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Global.System.Data.DataColumn Private columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Global.System.Data.DataColumn Private columnncts_Versender_EORI As Global.System.Data.DataColumn Private columnncts_Versender_NLNR As Global.System.Data.DataColumn Private columnncts_Versender_TIN As Global.System.Data.DataColumn Private columnncts_Versender_Name As Global.System.Data.DataColumn Private columnncts_Versender_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_Versender_Ort As Global.System.Data.DataColumn Private columnncts_Versender_PLZ As Global.System.Data.DataColumn Private columnncts_Versender_Land As Global.System.Data.DataColumn Private columnncts_Empfaenger_EORI As Global.System.Data.DataColumn Private columnncts_Empfaenger_NLNR As Global.System.Data.DataColumn Private columnncts_Empfaenger_TIN As Global.System.Data.DataColumn Private columnncts_Empfaenger_Name As Global.System.Data.DataColumn Private columnncts_Empfaenger_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_Empfaenger_Ort As Global.System.Data.DataColumn Private columnncts_Empfaenger_PLZ As Global.System.Data.DataColumn Private columnncts_Empfaenger_Land As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_EORI As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_NLNR As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_TIN As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_Name As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_Ort As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_PLZ As Global.System.Data.DataColumn Private columnncts_Hauptverpflichteter_Land As Global.System.Data.DataColumn Private columnncts_ZugelassenerEmpfaenger_EORI As Global.System.Data.DataColumn Private columnncts_ZugelassenerEmpfaenger_TIN As Global.System.Data.DataColumn Private columnncts_ZugelassenerEmpfaenger_IDCarnet As Global.System.Data.DataColumn Private columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Global.System.Data.DataColumn Private columnncts_SumA_KzSumASicherheit As Global.System.Data.DataColumn Private columnncts_SumA_KennnummerSendung As Global.System.Data.DataColumn Private columnncts_SumA_NummerBefoerderung As Global.System.Data.DataColumn Private columnncts_SumA_BesondereUmstaende As Global.System.Data.DataColumn Private columnncts_SumA_Ladeort As Global.System.Data.DataColumn Private columnncts_SumA_Entladeort As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungskostenZahlungsweise As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand1 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand2 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand3 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand4 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand5 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand6 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand7 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand8 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand9 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand10 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand11 As Global.System.Data.DataColumn Private columnncts_SumA_BefoerderungsrouteLand12 As Global.System.Data.DataColumn Private columnncts_SumA_Versender_EORI As Global.System.Data.DataColumn Private columnncts_SumA_Versender_NLNR As Global.System.Data.DataColumn Private columnncts_SumA_Versender_TIN As Global.System.Data.DataColumn Private columnncts_SumA_Versender_Name As Global.System.Data.DataColumn Private columnncts_SumA_Versender_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_SumA_Versender_Land As Global.System.Data.DataColumn Private columnncts_SumA_Versender_PLZ As Global.System.Data.DataColumn Private columnncts_SumA_Versender_Ort As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_EORI As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_NLNR As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_TIN As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_Name As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_Land As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_PLZ As Global.System.Data.DataColumn Private columnncts_SumA_Empfaenger_Ort As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_EORI As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_NLNR As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_TIN As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_Name As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_StrasseHausnummer As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_Land As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_PLZ As Global.System.Data.DataColumn Private columnncts_SumA_Befoerderer_Ort As Global.System.Data.DataColumn Private columnncts_Stammreferenz As Global.System.Data.DataColumn Private columnncts_GUID As Global.System.Data.DataColumn Private columnncts_Eroeffnung As Global.System.Data.DataColumn Private columnncts_Ankunft As Global.System.Data.DataColumn Private columnncts_Erledigung As Global.System.Data.DataColumn Private columnncts_AVISO_einarbeitet As Global.System.Data.DataColumn Private columnncts_VERAG_WeiterverrechungSatz As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblNCTS_TR" 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 ncts_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Id End Get End Property _ Public ReadOnly Property ncts_PartnersystemColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Partnersystem End Get End Property _ Public ReadOnly Property ncts_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Status End Get End Property _ Public ReadOnly Property ncts_Status_KEWILL_EquivalentColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Status_KEWILL_Equivalent End Get End Property _ Public ReadOnly Property ncts_dyaArtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_dyaArt End Get End Property _ Public ReadOnly Property ncts_dyaAnmIDColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_dyaAnmID End Get End Property _ Public ReadOnly Property ncts_ANRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ANR End Get End Property _ Public ReadOnly Property ncts_MRNColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_MRN End Get End Property _ Public ReadOnly Property ncts_ErstellungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Erstellung End Get End Property _ Public ReadOnly Property ncts_Erstellung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Erstellung_SB End Get End Property _ Public ReadOnly Property ncts_LetzteBearbeitungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LetzteBearbeitung End Get End Property _ Public ReadOnly Property ncts_LetzteBearbeitung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_LetzteBearbeitung_SB End Get End Property _ Public ReadOnly Property ncts_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_firma End Get End Property _ Public ReadOnly Property ncts_niederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_niederlassung End Get End Property _ Public ReadOnly Property ncts_GestelltColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Gestellt End Get End Property _ Public ReadOnly Property ncts_GestelltAmColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_GestelltAm End Get End Property _ Public ReadOnly Property ncts_Trans_PartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Partner End Get End Property _ Public ReadOnly Property ncts_Trans_Div1Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Div1 End Get End Property _ Public ReadOnly Property ncts_Trans_Div2Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Div2 End Get End Property _ Public ReadOnly Property ncts_Trans_Div3Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Div3 End Get End Property _ Public ReadOnly Property ncts_Trans_ReferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Referenz End Get End Property _ Public ReadOnly Property ncts_Trans_DatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_DatumZeit End Get End Property _ Public ReadOnly Property ncts_Trans_VersionColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Trans_Version End Get End Property _ Public ReadOnly Property ncts_NachrichtenSenderTINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_NachrichtenSenderTIN End Get End Property _ Public ReadOnly Property ncts_NachrichtenSenderNLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_NachrichtenSenderNLNR End Get End Property _ Public ReadOnly Property ncts_NachrichtenempfaengerDSTColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_NachrichtenempfaengerDST End Get End Property _ Public ReadOnly Property ncts_ObjectNameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ObjectName End Get End Property _ Public ReadOnly Property ncts_ObjectAliasColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ObjectAlias End Get End Property _ Public ReadOnly Property ncts_BezugsnummerVorblendungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_BezugsnummerVorblendung End Get End Property _ Public ReadOnly Property ncts_BearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Bearbeiter End Get End Property _ Public ReadOnly Property ncts_VersendungsLandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_VersendungsLandCode End Get End Property _ Public ReadOnly Property ncts_BestimmungslandCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_BestimmungslandCode End Get End Property _ Public ReadOnly Property ncts_ArtAnmeldungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ArtAnmeldung End Get End Property _ Public ReadOnly Property ncts_BeladungsOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_BeladungsOrt End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer1Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer1 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer2Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer2 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer3Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer3 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer4Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer4 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer5Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer5 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer6Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer6 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer7Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer7 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer8Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer8 End Get End Property _ Public ReadOnly Property ncts_DurchgangszollstelleDienststellnummer9Column() As Global.System.Data.DataColumn Get Return Me.columnncts_DurchgangszollstelleDienststellnummer9 End Get End Property _ Public ReadOnly Property ncts_BestimmungsstelleDienststellennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_BestimmungsstelleDienststellennummer End Get End Property _ Public ReadOnly Property ncts_AbgangsDienststellennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AbgangsDienststellennummer End Get End Property _ Public ReadOnly Property ncts_WiedergestellungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Wiedergestellungsdatum End Get End Property _ Public ReadOnly Property ncts_KzVereinfachtesVerfahrenColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_KzVereinfachtesVerfahren End Get End Property _ Public ReadOnly Property ncts_GesamtRohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_GesamtRohmasse End Get End Property _ Public ReadOnly Property ncts_GesamtAnzahlPackstueckeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_GesamtAnzahlPackstuecke End Get End Property _ Public ReadOnly Property ncts_Verschluss_ArtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_ArtCode End Get End Property _ Public ReadOnly Property ncts_Verschluss_AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Anzahl End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen1Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen1 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen2Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen2 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen3Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen3 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen4Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen4 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen5Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen5 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen6Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen6 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen7Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen7 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen8Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen8 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen9Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen9 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen10Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen10 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen11Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen11 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen12Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen12 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen13Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen13 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen14Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen14 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen15Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen15 End Get End Property _ Public ReadOnly Property ncts_Verschluss_Zeichen16Column() As Global.System.Data.DataColumn Get Return Me.columnncts_Verschluss_Zeichen16 End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_KennzeichenAbgangColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_KennzeichenAbgang End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_ArtGrenzueberschreitungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_ArtGrenzueberschreitung End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend End Get End Property _ Public ReadOnly Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode End Get End Property _ Public ReadOnly Property ncts_Versender_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_EORI End Get End Property _ Public ReadOnly Property ncts_Versender_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_NLNR End Get End Property _ Public ReadOnly Property ncts_Versender_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_TIN End Get End Property _ Public ReadOnly Property ncts_Versender_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_Name End Get End Property _ Public ReadOnly Property ncts_Versender_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_Versender_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_Ort End Get End Property _ Public ReadOnly Property ncts_Versender_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_PLZ End Get End Property _ Public ReadOnly Property ncts_Versender_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Versender_Land End Get End Property _ Public ReadOnly Property ncts_Empfaenger_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_EORI End Get End Property _ Public ReadOnly Property ncts_Empfaenger_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_NLNR End Get End Property _ Public ReadOnly Property ncts_Empfaenger_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_TIN End Get End Property _ Public ReadOnly Property ncts_Empfaenger_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_Name End Get End Property _ Public ReadOnly Property ncts_Empfaenger_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_Empfaenger_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_Ort End Get End Property _ Public ReadOnly Property ncts_Empfaenger_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_PLZ End Get End Property _ Public ReadOnly Property ncts_Empfaenger_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Empfaenger_Land End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_EORI End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_NLNR End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_TIN End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_Name End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_Ort End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_PLZ End Get End Property _ Public ReadOnly Property ncts_Hauptverpflichteter_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Hauptverpflichteter_Land End Get End Property _ Public ReadOnly Property ncts_ZugelassenerEmpfaenger_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ZugelassenerEmpfaenger_EORI End Get End Property _ Public ReadOnly Property ncts_ZugelassenerEmpfaenger_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ZugelassenerEmpfaenger_TIN End Get End Property _ Public ReadOnly Property ncts_ZugelassenerEmpfaenger_IDCarnetColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ZugelassenerEmpfaenger_IDCarnet End Get End Property _ Public ReadOnly Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender End Get End Property _ Public ReadOnly Property ncts_SumA_KzSumASicherheitColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_KzSumASicherheit End Get End Property _ Public ReadOnly Property ncts_SumA_KennnummerSendungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_KennnummerSendung End Get End Property _ Public ReadOnly Property ncts_SumA_NummerBefoerderungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_NummerBefoerderung End Get End Property _ Public ReadOnly Property ncts_SumA_BesondereUmstaendeColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BesondereUmstaende End Get End Property _ Public ReadOnly Property ncts_SumA_LadeortColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Ladeort End Get End Property _ Public ReadOnly Property ncts_SumA_EntladeortColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Entladeort End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungskostenZahlungsweiseColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungskostenZahlungsweise End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand1Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand1 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand2Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand2 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand3Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand3 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand4Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand4 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand5Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand5 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand6Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand6 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand7Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand7 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand8Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand8 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand9Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand9 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand10Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand10 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand11Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand11 End Get End Property _ Public ReadOnly Property ncts_SumA_BefoerderungsrouteLand12Column() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_BefoerderungsrouteLand12 End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_EORI End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_NLNR End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_TIN End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_Name End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_Land End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_PLZ End Get End Property _ Public ReadOnly Property ncts_SumA_Versender_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Versender_Ort End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_EORI End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_NLNR End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_TIN End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_Name End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_Land End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_PLZ End Get End Property _ Public ReadOnly Property ncts_SumA_Empfaenger_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Empfaenger_Ort End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_EORI End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_NLNR End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_TIN End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_Name End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_StrasseHausnummer End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_Land End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_PLZ End Get End Property _ Public ReadOnly Property ncts_SumA_Befoerderer_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_SumA_Befoerderer_Ort End Get End Property _ Public ReadOnly Property ncts_StammreferenzColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Stammreferenz End Get End Property _ Public ReadOnly Property ncts_GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_GUID End Get End Property _ Public ReadOnly Property ncts_EroeffnungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Eroeffnung End Get End Property _ Public ReadOnly Property ncts_AnkunftColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Ankunft End Get End Property _ Public ReadOnly Property ncts_ErledigungColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_Erledigung End Get End Property _ Public ReadOnly Property ncts_AVISO_einarbeitetColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_AVISO_einarbeitet End Get End Property _ Public ReadOnly Property ncts_VERAG_WeiterverrechungSatzColumn() As Global.System.Data.DataColumn Get Return Me.columnncts_VERAG_WeiterverrechungSatz 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 tblNCTS_TRRow Get Return CType(Me.Rows(index),tblNCTS_TRRow) End Get End Property _ Public Event tblNCTS_TRRowChanging As tblNCTS_TRRowChangeEventHandler _ Public Event tblNCTS_TRRowChanged As tblNCTS_TRRowChangeEventHandler _ Public Event tblNCTS_TRRowDeleting As tblNCTS_TRRowChangeEventHandler _ Public Event tblNCTS_TRRowDeleted As tblNCTS_TRRowChangeEventHandler _ Public Overloads Sub AddtblNCTS_TRRow(ByVal row As tblNCTS_TRRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblNCTS_TRRow( _ ByVal ncts_Partnersystem As String, _ ByVal ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Integer, _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Integer, _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Date, _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Date, _ ByVal ncts_Trans_Version As Decimal, _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_VersendungsLandCode As String, _ ByVal ncts_BestimmungslandCode As String, _ ByVal ncts_ArtAnmeldung As String, _ ByVal ncts_BeladungsOrt As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal ncts_BestimmungsstelleDienststellennummer As String, _ ByVal ncts_AbgangsDienststellennummer As String, _ ByVal ncts_Wiedergestellungsdatum As Date, _ ByVal ncts_KzVereinfachtesVerfahren As String, _ ByVal ncts_GesamtRohmasse As Decimal, _ ByVal ncts_GesamtAnzahlPackstuecke As Decimal, _ ByVal ncts_Verschluss_ArtCode As String, _ ByVal ncts_Verschluss_Anzahl As Decimal, _ ByVal ncts_Verschluss_Zeichen1 As String, _ ByVal ncts_Verschluss_Zeichen2 As String, _ ByVal ncts_Verschluss_Zeichen3 As String, _ ByVal ncts_Verschluss_Zeichen4 As String, _ ByVal ncts_Verschluss_Zeichen5 As String, _ ByVal ncts_Verschluss_Zeichen6 As String, _ ByVal ncts_Verschluss_Zeichen7 As String, _ ByVal ncts_Verschluss_Zeichen8 As String, _ ByVal ncts_Verschluss_Zeichen9 As String, _ ByVal ncts_Verschluss_Zeichen10 As String, _ ByVal ncts_Verschluss_Zeichen11 As String, _ ByVal ncts_Verschluss_Zeichen12 As String, _ ByVal ncts_Verschluss_Zeichen13 As String, _ ByVal ncts_Verschluss_Zeichen14 As String, _ ByVal ncts_Verschluss_Zeichen15 As String, _ ByVal ncts_Verschluss_Zeichen16 As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal ncts_Versender_EORI As String, _ ByVal ncts_Versender_NLNR As String, _ ByVal ncts_Versender_TIN As String, _ ByVal ncts_Versender_Name As String, _ ByVal ncts_Versender_StrasseHausnummer As String, _ ByVal ncts_Versender_Ort As String, _ ByVal ncts_Versender_PLZ As String, _ ByVal ncts_Versender_Land As String, _ ByVal ncts_Empfaenger_EORI As String, _ ByVal ncts_Empfaenger_NLNR As String, _ ByVal ncts_Empfaenger_TIN As String, _ ByVal ncts_Empfaenger_Name As String, _ ByVal ncts_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_Empfaenger_Ort As String, _ ByVal ncts_Empfaenger_PLZ As String, _ ByVal ncts_Empfaenger_Land As String, _ ByVal ncts_Hauptverpflichteter_EORI As String, _ ByVal ncts_Hauptverpflichteter_NLNR As String, _ ByVal ncts_Hauptverpflichteter_TIN As String, _ ByVal ncts_Hauptverpflichteter_Name As String, _ ByVal ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal ncts_Hauptverpflichteter_Ort As String, _ ByVal ncts_Hauptverpflichteter_PLZ As String, _ ByVal ncts_Hauptverpflichteter_Land As String, _ ByVal ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal ncts_SumA_KzSumASicherheit As String, _ ByVal ncts_SumA_KennnummerSendung As String, _ ByVal ncts_SumA_NummerBefoerderung As String, _ ByVal ncts_SumA_BesondereUmstaende As String, _ ByVal ncts_SumA_Ladeort As String, _ ByVal ncts_SumA_Entladeort As String, _ ByVal ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal ncts_SumA_Versender_EORI As String, _ ByVal ncts_SumA_Versender_NLNR As String, _ ByVal ncts_SumA_Versender_TIN As String, _ ByVal ncts_SumA_Versender_Name As String, _ ByVal ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal ncts_SumA_Versender_Land As String, _ ByVal ncts_SumA_Versender_PLZ As String, _ ByVal ncts_SumA_Versender_Ort As String, _ ByVal ncts_SumA_Empfaenger_EORI As String, _ ByVal ncts_SumA_Empfaenger_NLNR As String, _ ByVal ncts_SumA_Empfaenger_TIN As String, _ ByVal ncts_SumA_Empfaenger_Name As String, _ ByVal ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_SumA_Empfaenger_Land As String, _ ByVal ncts_SumA_Empfaenger_PLZ As String, _ ByVal ncts_SumA_Empfaenger_Ort As String, _ ByVal ncts_SumA_Befoerderer_EORI As String, _ ByVal ncts_SumA_Befoerderer_NLNR As String, _ ByVal ncts_SumA_Befoerderer_TIN As String, _ ByVal ncts_SumA_Befoerderer_Name As String, _ ByVal ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal ncts_SumA_Befoerderer_Land As String, _ ByVal ncts_SumA_Befoerderer_PLZ As String, _ ByVal ncts_SumA_Befoerderer_Ort As String, _ ByVal ncts_Stammreferenz As String, _ ByVal ncts_GUID As String, _ ByVal ncts_Eroeffnung As Date, _ ByVal ncts_Ankunft As Date, _ ByVal ncts_Erledigung As Date, _ ByVal ncts_AVISO_einarbeitet As Boolean, _ ByVal ncts_VERAG_WeiterverrechungSatz As Decimal) As tblNCTS_TRRow Dim rowtblNCTS_TRRow As tblNCTS_TRRow = CType(Me.NewRow,tblNCTS_TRRow) Dim columnValuesArray() As Object = New Object() {Nothing, ncts_Partnersystem, ncts_Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR, ncts_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_LetzteBearbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_GestelltAm, ncts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_Trans_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenSenderTIN, ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, ncts_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_VersendungsLandCode, ncts_BestimmungslandCode, ncts_ArtAnmeldung, ncts_BeladungsOrt, ncts_DurchgangszollstelleDienststellnummer1, ncts_DurchgangszollstelleDienststellnummer2, ncts_DurchgangszollstelleDienststellnummer3, ncts_DurchgangszollstelleDienststellnummer4, ncts_DurchgangszollstelleDienststellnummer5, ncts_DurchgangszollstelleDienststellnummer6, ncts_DurchgangszollstelleDienststellnummer7, ncts_DurchgangszollstelleDienststellnummer8, ncts_DurchgangszollstelleDienststellnummer9, ncts_BestimmungsstelleDienststellennummer, ncts_AbgangsDienststellennummer, ncts_Wiedergestellungsdatum, ncts_KzVereinfachtesVerfahren, ncts_GesamtRohmasse, ncts_GesamtAnzahlPackstuecke, ncts_Verschluss_ArtCode, ncts_Verschluss_Anzahl, ncts_Verschluss_Zeichen1, ncts_Verschluss_Zeichen2, ncts_Verschluss_Zeichen3, ncts_Verschluss_Zeichen4, ncts_Verschluss_Zeichen5, ncts_Verschluss_Zeichen6, ncts_Verschluss_Zeichen7, ncts_Verschluss_Zeichen8, ncts_Verschluss_Zeichen9, ncts_Verschluss_Zeichen10, ncts_Verschluss_Zeichen11, ncts_Verschluss_Zeichen12, ncts_Verschluss_Zeichen13, ncts_Verschluss_Zeichen14, ncts_Verschluss_Zeichen15, ncts_Verschluss_Zeichen16, ncts_Befoerderungsmittel_KennzeichenAbgang, ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent, ncts_Befoerderungsmittel_ArtGrenzueberschreitung, ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, ncts_Versender_EORI, ncts_Versender_NLNR, ncts_Versender_TIN, ncts_Versender_Name, ncts_Versender_StrasseHausnummer, ncts_Versender_Ort, ncts_Versender_PLZ, ncts_Versender_Land, ncts_Empfaenger_EORI, ncts_Empfaenger_NLNR, ncts_Empfaenger_TIN, ncts_Empfaenger_Name, ncts_Empfaenger_StrasseHausnummer, ncts_Empfaenger_Ort, ncts_Empfaenger_PLZ, ncts_Empfaenger_Land, ncts_Hauptverpflichteter_EORI, ncts_Hauptverpflichteter_NLNR, ncts_Hauptverpflichteter_TIN, ncts_Hauptverpflichteter_Name, ncts_Hauptverpflichteter_StrasseHausnummer, ncts_Hauptverpflichteter_Ort, ncts_Hauptverpflichteter_PLZ, ncts_Hauptverpflichteter_Land, ncts_ZugelassenerEmpfaenger_EORI, ncts_ZugelassenerEmpfaenger_TIN, ncts_ZugelassenerEmpfaenger_IDCarnet, ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender, ncts_SumA_KzSumASicherheit, ncts_SumA_KennnummerSendung, ncts_SumA_NummerBefoerderung, ncts_SumA_BesondereUmstaende, ncts_SumA_Ladeort, ncts_SumA_Entladeort, ncts_SumA_BefoerderungskostenZahlungsweise, ncts_SumA_BefoerderungsrouteLand1, ncts_SumA_BefoerderungsrouteLand2, ncts_SumA_BefoerderungsrouteLand3, ncts_SumA_BefoerderungsrouteLand4, ncts_SumA_BefoerderungsrouteLand5, ncts_SumA_BefoerderungsrouteLand6, ncts_SumA_BefoerderungsrouteLand7, ncts_SumA_BefoerderungsrouteLand8, ncts_SumA_BefoerderungsrouteLand9, ncts_SumA_BefoerderungsrouteLand10, ncts_SumA_BefoerderungsrouteLand11, ncts_SumA_BefoerderungsrouteLand12, ncts_SumA_Versender_EORI, ncts_SumA_Versender_NLNR, ncts_SumA_Versender_TIN, ncts_SumA_Versender_Name, ncts_SumA_Versender_StrasseHausnummer, ncts_SumA_Versender_Land, ncts_SumA_Versender_PLZ, ncts_SumA_Versender_Ort, ncts_SumA_Empfaenger_EORI, ncts_SumA_Empfaenger_NLNR, ncts_SumA_Empfaenger_TIN, ncts_SumA_Empfaenger_Name, ncts_SumA_Empfaenger_StrasseHausnummer, ncts_SumA_Empfaenger_Land, ncts_SumA_Empfaenger_PLZ, ncts_SumA_Empfaenger_Ort, ncts_SumA_Befoerderer_EORI, ncts_SumA_Befoerderer_NLNR, ncts_SumA_Befoerderer_TIN, ncts_SumA_Befoerderer_Name, ncts_SumA_Befoerderer_StrasseHausnummer, ncts_SumA_Befoerderer_Land, ncts_SumA_Befoerderer_PLZ, ncts_SumA_Befoerderer_Ort, ncts_Stammreferenz, ncts_GUID, ncts_Eroeffnung, ncts_Ankunft, ncts_Erledigung, ncts_AVISO_einarbeitet, ncts_VERAG_WeiterverrechungSatz} rowtblNCTS_TRRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblNCTS_TRRow) Return rowtblNCTS_TRRow End Function _ Public Function FindByncts_Id(ByVal ncts_Id As Integer) As tblNCTS_TRRow Return CType(Me.Rows.Find(New Object() {ncts_Id}),tblNCTS_TRRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblNCTS_TRDataTable = CType(MyBase.Clone,tblNCTS_TRDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblNCTS_TRDataTable() End Function _ Friend Sub InitVars() Me.columnncts_Id = MyBase.Columns("ncts_Id") Me.columnncts_Partnersystem = MyBase.Columns("ncts_Partnersystem") Me.columnncts_Status = MyBase.Columns("ncts_Status") Me.columnncts_Status_KEWILL_Equivalent = MyBase.Columns("ncts_Status_KEWILL_Equivalent") Me.columnncts_dyaArt = MyBase.Columns("ncts_dyaArt") Me.columnncts_dyaAnmID = MyBase.Columns("ncts_dyaAnmID") Me.columnncts_ANR = MyBase.Columns("ncts_ANR") Me.columnncts_MRN = MyBase.Columns("ncts_MRN") Me.columnncts_Erstellung = MyBase.Columns("ncts_Erstellung") Me.columnncts_Erstellung_SB = MyBase.Columns("ncts_Erstellung_SB") Me.columnncts_LetzteBearbeitung = MyBase.Columns("ncts_LetzteBearbeitung") Me.columnncts_LetzteBearbeitung_SB = MyBase.Columns("ncts_LetzteBearbeitung_SB") Me.columnncts_firma = MyBase.Columns("ncts_firma") Me.columnncts_niederlassung = MyBase.Columns("ncts_niederlassung") Me.columnncts_Gestellt = MyBase.Columns("ncts_Gestellt") Me.columnncts_GestelltAm = MyBase.Columns("ncts_GestelltAm") Me.columnncts_Trans_Partner = MyBase.Columns("ncts_Trans_Partner") Me.columnncts_Trans_Div1 = MyBase.Columns("ncts_Trans_Div1") Me.columnncts_Trans_Div2 = MyBase.Columns("ncts_Trans_Div2") Me.columnncts_Trans_Div3 = MyBase.Columns("ncts_Trans_Div3") Me.columnncts_Trans_Referenz = MyBase.Columns("ncts_Trans_Referenz") Me.columnncts_Trans_DatumZeit = MyBase.Columns("ncts_Trans_DatumZeit") Me.columnncts_Trans_Version = MyBase.Columns("ncts_Trans_Version") Me.columnncts_NachrichtenSenderTIN = MyBase.Columns("ncts_NachrichtenSenderTIN") Me.columnncts_NachrichtenSenderNLNR = MyBase.Columns("ncts_NachrichtenSenderNLNR") Me.columnncts_NachrichtenempfaengerDST = MyBase.Columns("ncts_NachrichtenempfaengerDST") Me.columnncts_ObjectName = MyBase.Columns("ncts_ObjectName") Me.columnncts_ObjectAlias = MyBase.Columns("ncts_ObjectAlias") Me.columnncts_BezugsnummerVorblendung = MyBase.Columns("ncts_BezugsnummerVorblendung") Me.columnncts_Bearbeiter = MyBase.Columns("ncts_Bearbeiter") Me.columnncts_VersendungsLandCode = MyBase.Columns("ncts_VersendungsLandCode") Me.columnncts_BestimmungslandCode = MyBase.Columns("ncts_BestimmungslandCode") Me.columnncts_ArtAnmeldung = MyBase.Columns("ncts_ArtAnmeldung") Me.columnncts_BeladungsOrt = MyBase.Columns("ncts_BeladungsOrt") Me.columnncts_DurchgangszollstelleDienststellnummer1 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer1") Me.columnncts_DurchgangszollstelleDienststellnummer2 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer2") Me.columnncts_DurchgangszollstelleDienststellnummer3 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer3") Me.columnncts_DurchgangszollstelleDienststellnummer4 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer4") Me.columnncts_DurchgangszollstelleDienststellnummer5 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer5") Me.columnncts_DurchgangszollstelleDienststellnummer6 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer6") Me.columnncts_DurchgangszollstelleDienststellnummer7 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer7") Me.columnncts_DurchgangszollstelleDienststellnummer8 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer8") Me.columnncts_DurchgangszollstelleDienststellnummer9 = MyBase.Columns("ncts_DurchgangszollstelleDienststellnummer9") Me.columnncts_BestimmungsstelleDienststellennummer = MyBase.Columns("ncts_BestimmungsstelleDienststellennummer") Me.columnncts_AbgangsDienststellennummer = MyBase.Columns("ncts_AbgangsDienststellennummer") Me.columnncts_Wiedergestellungsdatum = MyBase.Columns("ncts_Wiedergestellungsdatum") Me.columnncts_KzVereinfachtesVerfahren = MyBase.Columns("ncts_KzVereinfachtesVerfahren") Me.columnncts_GesamtRohmasse = MyBase.Columns("ncts_GesamtRohmasse") Me.columnncts_GesamtAnzahlPackstuecke = MyBase.Columns("ncts_GesamtAnzahlPackstuecke") Me.columnncts_Verschluss_ArtCode = MyBase.Columns("ncts_Verschluss_ArtCode") Me.columnncts_Verschluss_Anzahl = MyBase.Columns("ncts_Verschluss_Anzahl") Me.columnncts_Verschluss_Zeichen1 = MyBase.Columns("ncts_Verschluss_Zeichen1") Me.columnncts_Verschluss_Zeichen2 = MyBase.Columns("ncts_Verschluss_Zeichen2") Me.columnncts_Verschluss_Zeichen3 = MyBase.Columns("ncts_Verschluss_Zeichen3") Me.columnncts_Verschluss_Zeichen4 = MyBase.Columns("ncts_Verschluss_Zeichen4") Me.columnncts_Verschluss_Zeichen5 = MyBase.Columns("ncts_Verschluss_Zeichen5") Me.columnncts_Verschluss_Zeichen6 = MyBase.Columns("ncts_Verschluss_Zeichen6") Me.columnncts_Verschluss_Zeichen7 = MyBase.Columns("ncts_Verschluss_Zeichen7") Me.columnncts_Verschluss_Zeichen8 = MyBase.Columns("ncts_Verschluss_Zeichen8") Me.columnncts_Verschluss_Zeichen9 = MyBase.Columns("ncts_Verschluss_Zeichen9") Me.columnncts_Verschluss_Zeichen10 = MyBase.Columns("ncts_Verschluss_Zeichen10") Me.columnncts_Verschluss_Zeichen11 = MyBase.Columns("ncts_Verschluss_Zeichen11") Me.columnncts_Verschluss_Zeichen12 = MyBase.Columns("ncts_Verschluss_Zeichen12") Me.columnncts_Verschluss_Zeichen13 = MyBase.Columns("ncts_Verschluss_Zeichen13") Me.columnncts_Verschluss_Zeichen14 = MyBase.Columns("ncts_Verschluss_Zeichen14") Me.columnncts_Verschluss_Zeichen15 = MyBase.Columns("ncts_Verschluss_Zeichen15") Me.columnncts_Verschluss_Zeichen16 = MyBase.Columns("ncts_Verschluss_Zeichen16") Me.columnncts_Befoerderungsmittel_KennzeichenAbgang = MyBase.Columns("ncts_Befoerderungsmittel_KennzeichenAbgang") Me.columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = MyBase.Columns("ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode") Me.columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = MyBase.Columns("ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent") Me.columnncts_Befoerderungsmittel_ArtGrenzueberschreitung = MyBase.Columns("ncts_Befoerderungsmittel_ArtGrenzueberschreitung") Me.columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = MyBase.Columns("ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend") Me.columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = MyBase.Columns("ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode") Me.columnncts_Versender_EORI = MyBase.Columns("ncts_Versender_EORI") Me.columnncts_Versender_NLNR = MyBase.Columns("ncts_Versender_NLNR") Me.columnncts_Versender_TIN = MyBase.Columns("ncts_Versender_TIN") Me.columnncts_Versender_Name = MyBase.Columns("ncts_Versender_Name") Me.columnncts_Versender_StrasseHausnummer = MyBase.Columns("ncts_Versender_StrasseHausnummer") Me.columnncts_Versender_Ort = MyBase.Columns("ncts_Versender_Ort") Me.columnncts_Versender_PLZ = MyBase.Columns("ncts_Versender_PLZ") Me.columnncts_Versender_Land = MyBase.Columns("ncts_Versender_Land") Me.columnncts_Empfaenger_EORI = MyBase.Columns("ncts_Empfaenger_EORI") Me.columnncts_Empfaenger_NLNR = MyBase.Columns("ncts_Empfaenger_NLNR") Me.columnncts_Empfaenger_TIN = MyBase.Columns("ncts_Empfaenger_TIN") Me.columnncts_Empfaenger_Name = MyBase.Columns("ncts_Empfaenger_Name") Me.columnncts_Empfaenger_StrasseHausnummer = MyBase.Columns("ncts_Empfaenger_StrasseHausnummer") Me.columnncts_Empfaenger_Ort = MyBase.Columns("ncts_Empfaenger_Ort") Me.columnncts_Empfaenger_PLZ = MyBase.Columns("ncts_Empfaenger_PLZ") Me.columnncts_Empfaenger_Land = MyBase.Columns("ncts_Empfaenger_Land") Me.columnncts_Hauptverpflichteter_EORI = MyBase.Columns("ncts_Hauptverpflichteter_EORI") Me.columnncts_Hauptverpflichteter_NLNR = MyBase.Columns("ncts_Hauptverpflichteter_NLNR") Me.columnncts_Hauptverpflichteter_TIN = MyBase.Columns("ncts_Hauptverpflichteter_TIN") Me.columnncts_Hauptverpflichteter_Name = MyBase.Columns("ncts_Hauptverpflichteter_Name") Me.columnncts_Hauptverpflichteter_StrasseHausnummer = MyBase.Columns("ncts_Hauptverpflichteter_StrasseHausnummer") Me.columnncts_Hauptverpflichteter_Ort = MyBase.Columns("ncts_Hauptverpflichteter_Ort") Me.columnncts_Hauptverpflichteter_PLZ = MyBase.Columns("ncts_Hauptverpflichteter_PLZ") Me.columnncts_Hauptverpflichteter_Land = MyBase.Columns("ncts_Hauptverpflichteter_Land") Me.columnncts_ZugelassenerEmpfaenger_EORI = MyBase.Columns("ncts_ZugelassenerEmpfaenger_EORI") Me.columnncts_ZugelassenerEmpfaenger_TIN = MyBase.Columns("ncts_ZugelassenerEmpfaenger_TIN") Me.columnncts_ZugelassenerEmpfaenger_IDCarnet = MyBase.Columns("ncts_ZugelassenerEmpfaenger_IDCarnet") Me.columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender = MyBase.Columns("ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender") Me.columnncts_SumA_KzSumASicherheit = MyBase.Columns("ncts_SumA_KzSumASicherheit") Me.columnncts_SumA_KennnummerSendung = MyBase.Columns("ncts_SumA_KennnummerSendung") Me.columnncts_SumA_NummerBefoerderung = MyBase.Columns("ncts_SumA_NummerBefoerderung") Me.columnncts_SumA_BesondereUmstaende = MyBase.Columns("ncts_SumA_BesondereUmstaende") Me.columnncts_SumA_Ladeort = MyBase.Columns("ncts_SumA_Ladeort") Me.columnncts_SumA_Entladeort = MyBase.Columns("ncts_SumA_Entladeort") Me.columnncts_SumA_BefoerderungskostenZahlungsweise = MyBase.Columns("ncts_SumA_BefoerderungskostenZahlungsweise") Me.columnncts_SumA_BefoerderungsrouteLand1 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand1") Me.columnncts_SumA_BefoerderungsrouteLand2 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand2") Me.columnncts_SumA_BefoerderungsrouteLand3 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand3") Me.columnncts_SumA_BefoerderungsrouteLand4 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand4") Me.columnncts_SumA_BefoerderungsrouteLand5 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand5") Me.columnncts_SumA_BefoerderungsrouteLand6 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand6") Me.columnncts_SumA_BefoerderungsrouteLand7 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand7") Me.columnncts_SumA_BefoerderungsrouteLand8 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand8") Me.columnncts_SumA_BefoerderungsrouteLand9 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand9") Me.columnncts_SumA_BefoerderungsrouteLand10 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand10") Me.columnncts_SumA_BefoerderungsrouteLand11 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand11") Me.columnncts_SumA_BefoerderungsrouteLand12 = MyBase.Columns("ncts_SumA_BefoerderungsrouteLand12") Me.columnncts_SumA_Versender_EORI = MyBase.Columns("ncts_SumA_Versender_EORI") Me.columnncts_SumA_Versender_NLNR = MyBase.Columns("ncts_SumA_Versender_NLNR") Me.columnncts_SumA_Versender_TIN = MyBase.Columns("ncts_SumA_Versender_TIN") Me.columnncts_SumA_Versender_Name = MyBase.Columns("ncts_SumA_Versender_Name") Me.columnncts_SumA_Versender_StrasseHausnummer = MyBase.Columns("ncts_SumA_Versender_StrasseHausnummer") Me.columnncts_SumA_Versender_Land = MyBase.Columns("ncts_SumA_Versender_Land") Me.columnncts_SumA_Versender_PLZ = MyBase.Columns("ncts_SumA_Versender_PLZ") Me.columnncts_SumA_Versender_Ort = MyBase.Columns("ncts_SumA_Versender_Ort") Me.columnncts_SumA_Empfaenger_EORI = MyBase.Columns("ncts_SumA_Empfaenger_EORI") Me.columnncts_SumA_Empfaenger_NLNR = MyBase.Columns("ncts_SumA_Empfaenger_NLNR") Me.columnncts_SumA_Empfaenger_TIN = MyBase.Columns("ncts_SumA_Empfaenger_TIN") Me.columnncts_SumA_Empfaenger_Name = MyBase.Columns("ncts_SumA_Empfaenger_Name") Me.columnncts_SumA_Empfaenger_StrasseHausnummer = MyBase.Columns("ncts_SumA_Empfaenger_StrasseHausnummer") Me.columnncts_SumA_Empfaenger_Land = MyBase.Columns("ncts_SumA_Empfaenger_Land") Me.columnncts_SumA_Empfaenger_PLZ = MyBase.Columns("ncts_SumA_Empfaenger_PLZ") Me.columnncts_SumA_Empfaenger_Ort = MyBase.Columns("ncts_SumA_Empfaenger_Ort") Me.columnncts_SumA_Befoerderer_EORI = MyBase.Columns("ncts_SumA_Befoerderer_EORI") Me.columnncts_SumA_Befoerderer_NLNR = MyBase.Columns("ncts_SumA_Befoerderer_NLNR") Me.columnncts_SumA_Befoerderer_TIN = MyBase.Columns("ncts_SumA_Befoerderer_TIN") Me.columnncts_SumA_Befoerderer_Name = MyBase.Columns("ncts_SumA_Befoerderer_Name") Me.columnncts_SumA_Befoerderer_StrasseHausnummer = MyBase.Columns("ncts_SumA_Befoerderer_StrasseHausnummer") Me.columnncts_SumA_Befoerderer_Land = MyBase.Columns("ncts_SumA_Befoerderer_Land") Me.columnncts_SumA_Befoerderer_PLZ = MyBase.Columns("ncts_SumA_Befoerderer_PLZ") Me.columnncts_SumA_Befoerderer_Ort = MyBase.Columns("ncts_SumA_Befoerderer_Ort") Me.columnncts_Stammreferenz = MyBase.Columns("ncts_Stammreferenz") Me.columnncts_GUID = MyBase.Columns("ncts_GUID") Me.columnncts_Eroeffnung = MyBase.Columns("ncts_Eroeffnung") Me.columnncts_Ankunft = MyBase.Columns("ncts_Ankunft") Me.columnncts_Erledigung = MyBase.Columns("ncts_Erledigung") Me.columnncts_AVISO_einarbeitet = MyBase.Columns("ncts_AVISO_einarbeitet") Me.columnncts_VERAG_WeiterverrechungSatz = MyBase.Columns("ncts_VERAG_WeiterverrechungSatz") End Sub _ Private Sub InitClass() Me.columnncts_Id = New Global.System.Data.DataColumn("ncts_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Id) Me.columnncts_Partnersystem = New Global.System.Data.DataColumn("ncts_Partnersystem", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Partnersystem) Me.columnncts_Status = New Global.System.Data.DataColumn("ncts_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Status) Me.columnncts_Status_KEWILL_Equivalent = New Global.System.Data.DataColumn("ncts_Status_KEWILL_Equivalent", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Status_KEWILL_Equivalent) Me.columnncts_dyaArt = New Global.System.Data.DataColumn("ncts_dyaArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_dyaArt) Me.columnncts_dyaAnmID = New Global.System.Data.DataColumn("ncts_dyaAnmID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_dyaAnmID) Me.columnncts_ANR = New Global.System.Data.DataColumn("ncts_ANR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ANR) Me.columnncts_MRN = New Global.System.Data.DataColumn("ncts_MRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_MRN) Me.columnncts_Erstellung = New Global.System.Data.DataColumn("ncts_Erstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Erstellung) Me.columnncts_Erstellung_SB = New Global.System.Data.DataColumn("ncts_Erstellung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Erstellung_SB) Me.columnncts_LetzteBearbeitung = New Global.System.Data.DataColumn("ncts_LetzteBearbeitung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LetzteBearbeitung) Me.columnncts_LetzteBearbeitung_SB = New Global.System.Data.DataColumn("ncts_LetzteBearbeitung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_LetzteBearbeitung_SB) Me.columnncts_firma = New Global.System.Data.DataColumn("ncts_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_firma) Me.columnncts_niederlassung = New Global.System.Data.DataColumn("ncts_niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_niederlassung) Me.columnncts_Gestellt = New Global.System.Data.DataColumn("ncts_Gestellt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Gestellt) Me.columnncts_GestelltAm = New Global.System.Data.DataColumn("ncts_GestelltAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_GestelltAm) Me.columnncts_Trans_Partner = New Global.System.Data.DataColumn("ncts_Trans_Partner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Partner) Me.columnncts_Trans_Div1 = New Global.System.Data.DataColumn("ncts_Trans_Div1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Div1) Me.columnncts_Trans_Div2 = New Global.System.Data.DataColumn("ncts_Trans_Div2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Div2) Me.columnncts_Trans_Div3 = New Global.System.Data.DataColumn("ncts_Trans_Div3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Div3) Me.columnncts_Trans_Referenz = New Global.System.Data.DataColumn("ncts_Trans_Referenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Referenz) Me.columnncts_Trans_DatumZeit = New Global.System.Data.DataColumn("ncts_Trans_DatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_DatumZeit) Me.columnncts_Trans_Version = New Global.System.Data.DataColumn("ncts_Trans_Version", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Trans_Version) Me.columnncts_NachrichtenSenderTIN = New Global.System.Data.DataColumn("ncts_NachrichtenSenderTIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_NachrichtenSenderTIN) Me.columnncts_NachrichtenSenderNLNR = New Global.System.Data.DataColumn("ncts_NachrichtenSenderNLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_NachrichtenSenderNLNR) Me.columnncts_NachrichtenempfaengerDST = New Global.System.Data.DataColumn("ncts_NachrichtenempfaengerDST", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_NachrichtenempfaengerDST) Me.columnncts_ObjectName = New Global.System.Data.DataColumn("ncts_ObjectName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ObjectName) Me.columnncts_ObjectAlias = New Global.System.Data.DataColumn("ncts_ObjectAlias", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ObjectAlias) Me.columnncts_BezugsnummerVorblendung = New Global.System.Data.DataColumn("ncts_BezugsnummerVorblendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_BezugsnummerVorblendung) Me.columnncts_Bearbeiter = New Global.System.Data.DataColumn("ncts_Bearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Bearbeiter) Me.columnncts_VersendungsLandCode = New Global.System.Data.DataColumn("ncts_VersendungsLandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_VersendungsLandCode) Me.columnncts_BestimmungslandCode = New Global.System.Data.DataColumn("ncts_BestimmungslandCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_BestimmungslandCode) Me.columnncts_ArtAnmeldung = New Global.System.Data.DataColumn("ncts_ArtAnmeldung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ArtAnmeldung) Me.columnncts_BeladungsOrt = New Global.System.Data.DataColumn("ncts_BeladungsOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_BeladungsOrt) Me.columnncts_DurchgangszollstelleDienststellnummer1 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer1) Me.columnncts_DurchgangszollstelleDienststellnummer2 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer2) Me.columnncts_DurchgangszollstelleDienststellnummer3 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer3) Me.columnncts_DurchgangszollstelleDienststellnummer4 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer4) Me.columnncts_DurchgangszollstelleDienststellnummer5 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer5) Me.columnncts_DurchgangszollstelleDienststellnummer6 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer6) Me.columnncts_DurchgangszollstelleDienststellnummer7 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer7) Me.columnncts_DurchgangszollstelleDienststellnummer8 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer8) Me.columnncts_DurchgangszollstelleDienststellnummer9 = New Global.System.Data.DataColumn("ncts_DurchgangszollstelleDienststellnummer9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_DurchgangszollstelleDienststellnummer9) Me.columnncts_BestimmungsstelleDienststellennummer = New Global.System.Data.DataColumn("ncts_BestimmungsstelleDienststellennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_BestimmungsstelleDienststellennummer) Me.columnncts_AbgangsDienststellennummer = New Global.System.Data.DataColumn("ncts_AbgangsDienststellennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AbgangsDienststellennummer) Me.columnncts_Wiedergestellungsdatum = New Global.System.Data.DataColumn("ncts_Wiedergestellungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Wiedergestellungsdatum) Me.columnncts_KzVereinfachtesVerfahren = New Global.System.Data.DataColumn("ncts_KzVereinfachtesVerfahren", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_KzVereinfachtesVerfahren) Me.columnncts_GesamtRohmasse = New Global.System.Data.DataColumn("ncts_GesamtRohmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_GesamtRohmasse) Me.columnncts_GesamtAnzahlPackstuecke = New Global.System.Data.DataColumn("ncts_GesamtAnzahlPackstuecke", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_GesamtAnzahlPackstuecke) Me.columnncts_Verschluss_ArtCode = New Global.System.Data.DataColumn("ncts_Verschluss_ArtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_ArtCode) Me.columnncts_Verschluss_Anzahl = New Global.System.Data.DataColumn("ncts_Verschluss_Anzahl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Anzahl) Me.columnncts_Verschluss_Zeichen1 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen1) Me.columnncts_Verschluss_Zeichen2 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen2) Me.columnncts_Verschluss_Zeichen3 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen3) Me.columnncts_Verschluss_Zeichen4 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen4) Me.columnncts_Verschluss_Zeichen5 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen5) Me.columnncts_Verschluss_Zeichen6 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen6) Me.columnncts_Verschluss_Zeichen7 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen7) Me.columnncts_Verschluss_Zeichen8 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen8) Me.columnncts_Verschluss_Zeichen9 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen9) Me.columnncts_Verschluss_Zeichen10 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen10) Me.columnncts_Verschluss_Zeichen11 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen11) Me.columnncts_Verschluss_Zeichen12 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen12) Me.columnncts_Verschluss_Zeichen13 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen13", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen13) Me.columnncts_Verschluss_Zeichen14 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen14", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen14) Me.columnncts_Verschluss_Zeichen15 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen15", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen15) Me.columnncts_Verschluss_Zeichen16 = New Global.System.Data.DataColumn("ncts_Verschluss_Zeichen16", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Verschluss_Zeichen16) Me.columnncts_Befoerderungsmittel_KennzeichenAbgang = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_KennzeichenAbgang", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_KennzeichenAbgang) Me.columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode) Me.columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent) Me.columnncts_Befoerderungsmittel_ArtGrenzueberschreitung = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_ArtGrenzueberschreitung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_ArtGrenzueberschreitung) Me.columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend) Me.columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = New Global.System.Data.DataColumn("ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode) Me.columnncts_Versender_EORI = New Global.System.Data.DataColumn("ncts_Versender_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_EORI) Me.columnncts_Versender_NLNR = New Global.System.Data.DataColumn("ncts_Versender_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_NLNR) Me.columnncts_Versender_TIN = New Global.System.Data.DataColumn("ncts_Versender_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_TIN) Me.columnncts_Versender_Name = New Global.System.Data.DataColumn("ncts_Versender_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_Name) Me.columnncts_Versender_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_Versender_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_StrasseHausnummer) Me.columnncts_Versender_Ort = New Global.System.Data.DataColumn("ncts_Versender_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_Ort) Me.columnncts_Versender_PLZ = New Global.System.Data.DataColumn("ncts_Versender_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_PLZ) Me.columnncts_Versender_Land = New Global.System.Data.DataColumn("ncts_Versender_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Versender_Land) Me.columnncts_Empfaenger_EORI = New Global.System.Data.DataColumn("ncts_Empfaenger_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_EORI) Me.columnncts_Empfaenger_NLNR = New Global.System.Data.DataColumn("ncts_Empfaenger_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_NLNR) Me.columnncts_Empfaenger_TIN = New Global.System.Data.DataColumn("ncts_Empfaenger_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_TIN) Me.columnncts_Empfaenger_Name = New Global.System.Data.DataColumn("ncts_Empfaenger_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_Name) Me.columnncts_Empfaenger_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_Empfaenger_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_StrasseHausnummer) Me.columnncts_Empfaenger_Ort = New Global.System.Data.DataColumn("ncts_Empfaenger_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_Ort) Me.columnncts_Empfaenger_PLZ = New Global.System.Data.DataColumn("ncts_Empfaenger_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_PLZ) Me.columnncts_Empfaenger_Land = New Global.System.Data.DataColumn("ncts_Empfaenger_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Empfaenger_Land) Me.columnncts_Hauptverpflichteter_EORI = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_EORI) Me.columnncts_Hauptverpflichteter_NLNR = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_NLNR) Me.columnncts_Hauptverpflichteter_TIN = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_TIN) Me.columnncts_Hauptverpflichteter_Name = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_Name) Me.columnncts_Hauptverpflichteter_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_StrasseHausnummer) Me.columnncts_Hauptverpflichteter_Ort = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_Ort) Me.columnncts_Hauptverpflichteter_PLZ = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_PLZ) Me.columnncts_Hauptverpflichteter_Land = New Global.System.Data.DataColumn("ncts_Hauptverpflichteter_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Hauptverpflichteter_Land) Me.columnncts_ZugelassenerEmpfaenger_EORI = New Global.System.Data.DataColumn("ncts_ZugelassenerEmpfaenger_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ZugelassenerEmpfaenger_EORI) Me.columnncts_ZugelassenerEmpfaenger_TIN = New Global.System.Data.DataColumn("ncts_ZugelassenerEmpfaenger_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ZugelassenerEmpfaenger_TIN) Me.columnncts_ZugelassenerEmpfaenger_IDCarnet = New Global.System.Data.DataColumn("ncts_ZugelassenerEmpfaenger_IDCarnet", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ZugelassenerEmpfaenger_IDCarnet) Me.columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender = New Global.System.Data.DataColumn("ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender) Me.columnncts_SumA_KzSumASicherheit = New Global.System.Data.DataColumn("ncts_SumA_KzSumASicherheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_KzSumASicherheit) Me.columnncts_SumA_KennnummerSendung = New Global.System.Data.DataColumn("ncts_SumA_KennnummerSendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_KennnummerSendung) Me.columnncts_SumA_NummerBefoerderung = New Global.System.Data.DataColumn("ncts_SumA_NummerBefoerderung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_NummerBefoerderung) Me.columnncts_SumA_BesondereUmstaende = New Global.System.Data.DataColumn("ncts_SumA_BesondereUmstaende", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BesondereUmstaende) Me.columnncts_SumA_Ladeort = New Global.System.Data.DataColumn("ncts_SumA_Ladeort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Ladeort) Me.columnncts_SumA_Entladeort = New Global.System.Data.DataColumn("ncts_SumA_Entladeort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Entladeort) Me.columnncts_SumA_BefoerderungskostenZahlungsweise = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungskostenZahlungsweise", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungskostenZahlungsweise) Me.columnncts_SumA_BefoerderungsrouteLand1 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand1) Me.columnncts_SumA_BefoerderungsrouteLand2 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand2) Me.columnncts_SumA_BefoerderungsrouteLand3 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand3) Me.columnncts_SumA_BefoerderungsrouteLand4 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand4) Me.columnncts_SumA_BefoerderungsrouteLand5 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand5) Me.columnncts_SumA_BefoerderungsrouteLand6 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand6) Me.columnncts_SumA_BefoerderungsrouteLand7 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand7) Me.columnncts_SumA_BefoerderungsrouteLand8 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand8) Me.columnncts_SumA_BefoerderungsrouteLand9 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand9) Me.columnncts_SumA_BefoerderungsrouteLand10 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand10) Me.columnncts_SumA_BefoerderungsrouteLand11 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand11) Me.columnncts_SumA_BefoerderungsrouteLand12 = New Global.System.Data.DataColumn("ncts_SumA_BefoerderungsrouteLand12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_BefoerderungsrouteLand12) Me.columnncts_SumA_Versender_EORI = New Global.System.Data.DataColumn("ncts_SumA_Versender_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_EORI) Me.columnncts_SumA_Versender_NLNR = New Global.System.Data.DataColumn("ncts_SumA_Versender_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_NLNR) Me.columnncts_SumA_Versender_TIN = New Global.System.Data.DataColumn("ncts_SumA_Versender_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_TIN) Me.columnncts_SumA_Versender_Name = New Global.System.Data.DataColumn("ncts_SumA_Versender_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_Name) Me.columnncts_SumA_Versender_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_SumA_Versender_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_StrasseHausnummer) Me.columnncts_SumA_Versender_Land = New Global.System.Data.DataColumn("ncts_SumA_Versender_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_Land) Me.columnncts_SumA_Versender_PLZ = New Global.System.Data.DataColumn("ncts_SumA_Versender_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_PLZ) Me.columnncts_SumA_Versender_Ort = New Global.System.Data.DataColumn("ncts_SumA_Versender_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Versender_Ort) Me.columnncts_SumA_Empfaenger_EORI = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_EORI) Me.columnncts_SumA_Empfaenger_NLNR = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_NLNR) Me.columnncts_SumA_Empfaenger_TIN = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_TIN) Me.columnncts_SumA_Empfaenger_Name = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_Name) Me.columnncts_SumA_Empfaenger_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_StrasseHausnummer) Me.columnncts_SumA_Empfaenger_Land = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_Land) Me.columnncts_SumA_Empfaenger_PLZ = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_PLZ) Me.columnncts_SumA_Empfaenger_Ort = New Global.System.Data.DataColumn("ncts_SumA_Empfaenger_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Empfaenger_Ort) Me.columnncts_SumA_Befoerderer_EORI = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_EORI) Me.columnncts_SumA_Befoerderer_NLNR = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_NLNR) Me.columnncts_SumA_Befoerderer_TIN = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_TIN) Me.columnncts_SumA_Befoerderer_Name = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_Name) Me.columnncts_SumA_Befoerderer_StrasseHausnummer = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_StrasseHausnummer) Me.columnncts_SumA_Befoerderer_Land = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_Land) Me.columnncts_SumA_Befoerderer_PLZ = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_PLZ) Me.columnncts_SumA_Befoerderer_Ort = New Global.System.Data.DataColumn("ncts_SumA_Befoerderer_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_SumA_Befoerderer_Ort) Me.columnncts_Stammreferenz = New Global.System.Data.DataColumn("ncts_Stammreferenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Stammreferenz) Me.columnncts_GUID = New Global.System.Data.DataColumn("ncts_GUID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_GUID) Me.columnncts_Eroeffnung = New Global.System.Data.DataColumn("ncts_Eroeffnung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Eroeffnung) Me.columnncts_Ankunft = New Global.System.Data.DataColumn("ncts_Ankunft", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Ankunft) Me.columnncts_Erledigung = New Global.System.Data.DataColumn("ncts_Erledigung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_Erledigung) Me.columnncts_AVISO_einarbeitet = New Global.System.Data.DataColumn("ncts_AVISO_einarbeitet", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_AVISO_einarbeitet) Me.columnncts_VERAG_WeiterverrechungSatz = New Global.System.Data.DataColumn("ncts_VERAG_WeiterverrechungSatz", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnncts_VERAG_WeiterverrechungSatz) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnncts_Id}, true)) Me.columnncts_Id.AutoIncrement = true Me.columnncts_Id.AutoIncrementSeed = -1 Me.columnncts_Id.AutoIncrementStep = -1 Me.columnncts_Id.AllowDBNull = false Me.columnncts_Id.ReadOnly = true Me.columnncts_Id.Unique = true Me.columnncts_Partnersystem.AllowDBNull = false Me.columnncts_Partnersystem.MaxLength = 50 Me.columnncts_Status.AllowDBNull = false Me.columnncts_Status_KEWILL_Equivalent.AllowDBNull = false Me.columnncts_dyaArt.AllowDBNull = false Me.columnncts_dyaArt.MaxLength = 50 Me.columnncts_dyaAnmID.AllowDBNull = false Me.columnncts_ANR.MaxLength = 21 Me.columnncts_MRN.MaxLength = 21 Me.columnncts_Erstellung.AllowDBNull = false Me.columnncts_LetzteBearbeitung.AllowDBNull = false Me.columnncts_firma.MaxLength = 10 Me.columnncts_niederlassung.MaxLength = 10 Me.columnncts_Gestellt.AllowDBNull = false Me.columnncts_Trans_Partner.MaxLength = 10 Me.columnncts_Trans_Div1.MaxLength = 10 Me.columnncts_Trans_Div2.MaxLength = 10 Me.columnncts_Trans_Div3.MaxLength = 10 Me.columnncts_Trans_Referenz.MaxLength = 35 Me.columnncts_NachrichtenSenderTIN.MaxLength = 17 Me.columnncts_NachrichtenSenderNLNR.MaxLength = 4 Me.columnncts_NachrichtenempfaengerDST.MaxLength = 8 Me.columnncts_ObjectName.MaxLength = 22 Me.columnncts_ObjectAlias.MaxLength = 35 Me.columnncts_BezugsnummerVorblendung.MaxLength = 35 Me.columnncts_Bearbeiter.MaxLength = 20 Me.columnncts_VersendungsLandCode.MaxLength = 2 Me.columnncts_BestimmungslandCode.MaxLength = 2 Me.columnncts_ArtAnmeldung.MaxLength = 5 Me.columnncts_BeladungsOrt.MaxLength = 4 Me.columnncts_DurchgangszollstelleDienststellnummer1.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer2.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer3.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer4.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer5.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer6.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer7.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer8.MaxLength = 8 Me.columnncts_DurchgangszollstelleDienststellnummer9.MaxLength = 8 Me.columnncts_BestimmungsstelleDienststellennummer.MaxLength = 8 Me.columnncts_AbgangsDienststellennummer.MaxLength = 8 Me.columnncts_KzVereinfachtesVerfahren.MaxLength = 1 Me.columnncts_Verschluss_ArtCode.MaxLength = 1 Me.columnncts_Verschluss_Zeichen1.MaxLength = 20 Me.columnncts_Verschluss_Zeichen2.MaxLength = 20 Me.columnncts_Verschluss_Zeichen3.MaxLength = 20 Me.columnncts_Verschluss_Zeichen4.MaxLength = 20 Me.columnncts_Verschluss_Zeichen5.MaxLength = 20 Me.columnncts_Verschluss_Zeichen6.MaxLength = 20 Me.columnncts_Verschluss_Zeichen7.MaxLength = 20 Me.columnncts_Verschluss_Zeichen8.MaxLength = 20 Me.columnncts_Verschluss_Zeichen9.MaxLength = 20 Me.columnncts_Verschluss_Zeichen10.MaxLength = 20 Me.columnncts_Verschluss_Zeichen11.MaxLength = 20 Me.columnncts_Verschluss_Zeichen12.MaxLength = 20 Me.columnncts_Verschluss_Zeichen13.MaxLength = 20 Me.columnncts_Verschluss_Zeichen14.MaxLength = 20 Me.columnncts_Verschluss_Zeichen15.MaxLength = 20 Me.columnncts_Verschluss_Zeichen16.MaxLength = 20 Me.columnncts_Befoerderungsmittel_KennzeichenAbgang.MaxLength = 27 Me.columnncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode.MaxLength = 2 Me.columnncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent.MaxLength = 2 Me.columnncts_Befoerderungsmittel_ArtGrenzueberschreitung.MaxLength = 2 Me.columnncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend.MaxLength = 27 Me.columnncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode.MaxLength = 2 Me.columnncts_Versender_EORI.MaxLength = 17 Me.columnncts_Versender_NLNR.MaxLength = 4 Me.columnncts_Versender_TIN.MaxLength = 17 Me.columnncts_Versender_Name.MaxLength = 35 Me.columnncts_Versender_StrasseHausnummer.MaxLength = 35 Me.columnncts_Versender_Ort.MaxLength = 35 Me.columnncts_Versender_PLZ.MaxLength = 9 Me.columnncts_Versender_Land.MaxLength = 2 Me.columnncts_Empfaenger_EORI.MaxLength = 17 Me.columnncts_Empfaenger_NLNR.MaxLength = 4 Me.columnncts_Empfaenger_TIN.MaxLength = 17 Me.columnncts_Empfaenger_Name.MaxLength = 35 Me.columnncts_Empfaenger_StrasseHausnummer.MaxLength = 35 Me.columnncts_Empfaenger_Ort.MaxLength = 35 Me.columnncts_Empfaenger_PLZ.MaxLength = 9 Me.columnncts_Empfaenger_Land.MaxLength = 2 Me.columnncts_Hauptverpflichteter_EORI.MaxLength = 17 Me.columnncts_Hauptverpflichteter_NLNR.MaxLength = 4 Me.columnncts_Hauptverpflichteter_TIN.MaxLength = 17 Me.columnncts_Hauptverpflichteter_Name.MaxLength = 35 Me.columnncts_Hauptverpflichteter_StrasseHausnummer.MaxLength = 35 Me.columnncts_Hauptverpflichteter_Ort.MaxLength = 35 Me.columnncts_Hauptverpflichteter_PLZ.MaxLength = 9 Me.columnncts_Hauptverpflichteter_Land.MaxLength = 2 Me.columnncts_ZugelassenerEmpfaenger_EORI.MaxLength = 17 Me.columnncts_ZugelassenerEmpfaenger_TIN.MaxLength = 17 Me.columnncts_ZugelassenerEmpfaenger_IDCarnet.MaxLength = 17 Me.columnncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender.MaxLength = 35 Me.columnncts_SumA_KzSumASicherheit.MaxLength = 1 Me.columnncts_SumA_KennnummerSendung.MaxLength = 70 Me.columnncts_SumA_NummerBefoerderung.MaxLength = 35 Me.columnncts_SumA_BesondereUmstaende.MaxLength = 1 Me.columnncts_SumA_Ladeort.MaxLength = 17 Me.columnncts_SumA_Entladeort.MaxLength = 35 Me.columnncts_SumA_BefoerderungskostenZahlungsweise.MaxLength = 1 Me.columnncts_SumA_BefoerderungsrouteLand1.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand2.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand3.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand4.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand5.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand6.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand7.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand8.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand9.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand10.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand11.MaxLength = 2 Me.columnncts_SumA_BefoerderungsrouteLand12.MaxLength = 2 Me.columnncts_SumA_Versender_EORI.MaxLength = 17 Me.columnncts_SumA_Versender_NLNR.MaxLength = 4 Me.columnncts_SumA_Versender_TIN.MaxLength = 17 Me.columnncts_SumA_Versender_Name.MaxLength = 35 Me.columnncts_SumA_Versender_StrasseHausnummer.MaxLength = 35 Me.columnncts_SumA_Versender_Land.MaxLength = 2 Me.columnncts_SumA_Versender_PLZ.MaxLength = 9 Me.columnncts_SumA_Versender_Ort.MaxLength = 35 Me.columnncts_SumA_Empfaenger_EORI.MaxLength = 17 Me.columnncts_SumA_Empfaenger_NLNR.MaxLength = 4 Me.columnncts_SumA_Empfaenger_TIN.MaxLength = 17 Me.columnncts_SumA_Empfaenger_Name.MaxLength = 35 Me.columnncts_SumA_Empfaenger_StrasseHausnummer.MaxLength = 35 Me.columnncts_SumA_Empfaenger_Land.MaxLength = 2 Me.columnncts_SumA_Empfaenger_PLZ.MaxLength = 9 Me.columnncts_SumA_Empfaenger_Ort.MaxLength = 35 Me.columnncts_SumA_Befoerderer_EORI.MaxLength = 17 Me.columnncts_SumA_Befoerderer_NLNR.MaxLength = 4 Me.columnncts_SumA_Befoerderer_TIN.MaxLength = 17 Me.columnncts_SumA_Befoerderer_Name.MaxLength = 35 Me.columnncts_SumA_Befoerderer_StrasseHausnummer.MaxLength = 35 Me.columnncts_SumA_Befoerderer_Land.MaxLength = 2 Me.columnncts_SumA_Befoerderer_PLZ.MaxLength = 9 Me.columnncts_SumA_Befoerderer_Ort.MaxLength = 35 Me.columnncts_Stammreferenz.MaxLength = 35 Me.columnncts_GUID.MaxLength = 200 Me.columnncts_AVISO_einarbeitet.AllowDBNull = false End Sub _ Public Function NewtblNCTS_TRRow() As tblNCTS_TRRow Return CType(Me.NewRow,tblNCTS_TRRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblNCTS_TRRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblNCTS_TRRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblNCTS_TRRowChangedEvent) Is Nothing) Then RaiseEvent tblNCTS_TRRowChanged(Me, New tblNCTS_TRRowChangeEvent(CType(e.Row,tblNCTS_TRRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblNCTS_TRRowChangingEvent) Is Nothing) Then RaiseEvent tblNCTS_TRRowChanging(Me, New tblNCTS_TRRowChangeEvent(CType(e.Row,tblNCTS_TRRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblNCTS_TRRowDeletedEvent) Is Nothing) Then RaiseEvent tblNCTS_TRRowDeleted(Me, New tblNCTS_TRRowChangeEvent(CType(e.Row,tblNCTS_TRRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblNCTS_TRRowDeletingEvent) Is Nothing) Then RaiseEvent tblNCTS_TRRowDeleting(Me, New tblNCTS_TRRowChangeEvent(CType(e.Row,tblNCTS_TRRow), e.Action)) End If End Sub _ Public Sub RemovetblNCTS_TRRow(ByVal row As tblNCTS_TRRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblNCTS_TRDataTable" 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 tblNCTS_TR_NachrichtenDataTable Inherits Global.System.Data.TypedTableBase(Of tblNCTS_TR_NachrichtenRow) Private columnnctsNr_id As Global.System.Data.DataColumn Private columnnctsNr_nctsId As Global.System.Data.DataColumn Private columnnctsNr_typ As Global.System.Data.DataColumn Private columnnctsNr_GUID As Global.System.Data.DataColumn Private columnnctsNr_MRN As Global.System.Data.DataColumn Private columnnctsNr_LRN As Global.System.Data.DataColumn Private columnnctsNr_path As Global.System.Data.DataColumn Private columnnctsNr_tstmp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblNCTS_TR_Nachrichten" 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 nctsNr_idColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsNr_id End Get End Property _ Public ReadOnly Property nctsNr_nctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsNr_nctsId End Get End Property _ Public ReadOnly Property nctsNr_typColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsNr_typ End Get End Property _ Public ReadOnly Property nctsNr_GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsNr_GUID End Get End Property _ Public ReadOnly Property nctsNr_MRNColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsNr_MRN End Get End Property _ Public ReadOnly Property nctsNr_LRNColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsNr_LRN End Get End Property _ Public ReadOnly Property nctsNr_pathColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsNr_path End Get End Property _ Public ReadOnly Property nctsNr_tstmpColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsNr_tstmp 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 tblNCTS_TR_NachrichtenRow Get Return CType(Me.Rows(index),tblNCTS_TR_NachrichtenRow) End Get End Property _ Public Event tblNCTS_TR_NachrichtenRowChanging As tblNCTS_TR_NachrichtenRowChangeEventHandler _ Public Event tblNCTS_TR_NachrichtenRowChanged As tblNCTS_TR_NachrichtenRowChangeEventHandler _ Public Event tblNCTS_TR_NachrichtenRowDeleting As tblNCTS_TR_NachrichtenRowChangeEventHandler _ Public Event tblNCTS_TR_NachrichtenRowDeleted As tblNCTS_TR_NachrichtenRowChangeEventHandler _ Public Overloads Sub AddtblNCTS_TR_NachrichtenRow(ByVal row As tblNCTS_TR_NachrichtenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblNCTS_TR_NachrichtenRow(ByVal nctsNr_nctsId As Integer, ByVal nctsNr_typ As String, ByVal nctsNr_GUID As String, ByVal nctsNr_MRN As String, ByVal nctsNr_LRN As String, ByVal nctsNr_path As String, ByVal nctsNr_tstmp As Date) As tblNCTS_TR_NachrichtenRow Dim rowtblNCTS_TR_NachrichtenRow As tblNCTS_TR_NachrichtenRow = CType(Me.NewRow,tblNCTS_TR_NachrichtenRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsNr_nctsId, nctsNr_typ, nctsNr_GUID, nctsNr_MRN, nctsNr_LRN, nctsNr_path, nctsNr_tstmp} rowtblNCTS_TR_NachrichtenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblNCTS_TR_NachrichtenRow) Return rowtblNCTS_TR_NachrichtenRow End Function _ Public Function FindBynctsNr_id(ByVal nctsNr_id As Integer) As tblNCTS_TR_NachrichtenRow Return CType(Me.Rows.Find(New Object() {nctsNr_id}),tblNCTS_TR_NachrichtenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblNCTS_TR_NachrichtenDataTable = CType(MyBase.Clone,tblNCTS_TR_NachrichtenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblNCTS_TR_NachrichtenDataTable() End Function _ Friend Sub InitVars() Me.columnnctsNr_id = MyBase.Columns("nctsNr_id") Me.columnnctsNr_nctsId = MyBase.Columns("nctsNr_nctsId") Me.columnnctsNr_typ = MyBase.Columns("nctsNr_typ") Me.columnnctsNr_GUID = MyBase.Columns("nctsNr_GUID") Me.columnnctsNr_MRN = MyBase.Columns("nctsNr_MRN") Me.columnnctsNr_LRN = MyBase.Columns("nctsNr_LRN") Me.columnnctsNr_path = MyBase.Columns("nctsNr_path") Me.columnnctsNr_tstmp = MyBase.Columns("nctsNr_tstmp") End Sub _ Private Sub InitClass() Me.columnnctsNr_id = New Global.System.Data.DataColumn("nctsNr_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsNr_id) Me.columnnctsNr_nctsId = New Global.System.Data.DataColumn("nctsNr_nctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsNr_nctsId) Me.columnnctsNr_typ = New Global.System.Data.DataColumn("nctsNr_typ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsNr_typ) Me.columnnctsNr_GUID = New Global.System.Data.DataColumn("nctsNr_GUID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsNr_GUID) Me.columnnctsNr_MRN = New Global.System.Data.DataColumn("nctsNr_MRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsNr_MRN) Me.columnnctsNr_LRN = New Global.System.Data.DataColumn("nctsNr_LRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsNr_LRN) Me.columnnctsNr_path = New Global.System.Data.DataColumn("nctsNr_path", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsNr_path) Me.columnnctsNr_tstmp = New Global.System.Data.DataColumn("nctsNr_tstmp", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsNr_tstmp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsNr_id}, true)) Me.columnnctsNr_id.AutoIncrement = true Me.columnnctsNr_id.AutoIncrementSeed = -1 Me.columnnctsNr_id.AutoIncrementStep = -1 Me.columnnctsNr_id.AllowDBNull = false Me.columnnctsNr_id.ReadOnly = true Me.columnnctsNr_id.Unique = true Me.columnnctsNr_nctsId.AllowDBNull = false Me.columnnctsNr_typ.AllowDBNull = false Me.columnnctsNr_typ.MaxLength = 250 Me.columnnctsNr_GUID.MaxLength = 250 Me.columnnctsNr_MRN.MaxLength = 250 Me.columnnctsNr_LRN.MaxLength = 250 Me.columnnctsNr_path.AllowDBNull = false Me.columnnctsNr_path.MaxLength = 512 Me.columnnctsNr_tstmp.AllowDBNull = false End Sub _ Public Function NewtblNCTS_TR_NachrichtenRow() As tblNCTS_TR_NachrichtenRow Return CType(Me.NewRow,tblNCTS_TR_NachrichtenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblNCTS_TR_NachrichtenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblNCTS_TR_NachrichtenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblNCTS_TR_NachrichtenRowChangedEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_NachrichtenRowChanged(Me, New tblNCTS_TR_NachrichtenRowChangeEvent(CType(e.Row,tblNCTS_TR_NachrichtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblNCTS_TR_NachrichtenRowChangingEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_NachrichtenRowChanging(Me, New tblNCTS_TR_NachrichtenRowChangeEvent(CType(e.Row,tblNCTS_TR_NachrichtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblNCTS_TR_NachrichtenRowDeletedEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_NachrichtenRowDeleted(Me, New tblNCTS_TR_NachrichtenRowChangeEvent(CType(e.Row,tblNCTS_TR_NachrichtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblNCTS_TR_NachrichtenRowDeletingEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_NachrichtenRowDeleting(Me, New tblNCTS_TR_NachrichtenRowChangeEvent(CType(e.Row,tblNCTS_TR_NachrichtenRow), e.Action)) End If End Sub _ Public Sub RemovetblNCTS_TR_NachrichtenRow(ByVal row As tblNCTS_TR_NachrichtenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblNCTS_TR_NachrichtenDataTable" 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 tblNCTS_TR_SicherheitsangabenDataTable Inherits Global.System.Data.TypedTableBase(Of tblNCTS_TR_SicherheitsangabenRow) Private columnnctsSA_Id As Global.System.Data.DataColumn Private columnnctsSA_NctsId As Global.System.Data.DataColumn Private columnnctsSA_ArtCode As Global.System.Data.DataColumn Private columnnctsSA_BezeichnungBescheinigun As Global.System.Data.DataColumn Private columnnctsSA_AbgabenBetrag As Global.System.Data.DataColumn Private columnnctsSA_GRN As Global.System.Data.DataColumn Private columnnctsSA_Zugriffcode As Global.System.Data.DataColumn Private columnnctsSA_TIN As Global.System.Data.DataColumn Private columnnctsSA_AbgabenBetragFremdWaehrung As Global.System.Data.DataColumn Private columnnctsSA_Waerung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblNCTS_TR_Sicherheitsangaben" 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 nctsSA_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_Id End Get End Property _ Public ReadOnly Property nctsSA_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_NctsId End Get End Property _ Public ReadOnly Property nctsSA_ArtCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_ArtCode End Get End Property _ Public ReadOnly Property nctsSA_BezeichnungBescheinigunColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_BezeichnungBescheinigun End Get End Property _ Public ReadOnly Property nctsSA_AbgabenBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_AbgabenBetrag End Get End Property _ Public ReadOnly Property nctsSA_GRNColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_GRN End Get End Property _ Public ReadOnly Property nctsSA_ZugriffcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_Zugriffcode End Get End Property _ Public ReadOnly Property nctsSA_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_TIN End Get End Property _ Public ReadOnly Property nctsSA_AbgabenBetragFremdWaehrungColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_AbgabenBetragFremdWaehrung End Get End Property _ Public ReadOnly Property nctsSA_WaerungColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsSA_Waerung 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 tblNCTS_TR_SicherheitsangabenRow Get Return CType(Me.Rows(index),tblNCTS_TR_SicherheitsangabenRow) End Get End Property _ Public Event tblNCTS_TR_SicherheitsangabenRowChanging As tblNCTS_TR_SicherheitsangabenRowChangeEventHandler _ Public Event tblNCTS_TR_SicherheitsangabenRowChanged As tblNCTS_TR_SicherheitsangabenRowChangeEventHandler _ Public Event tblNCTS_TR_SicherheitsangabenRowDeleting As tblNCTS_TR_SicherheitsangabenRowChangeEventHandler _ Public Event tblNCTS_TR_SicherheitsangabenRowDeleted As tblNCTS_TR_SicherheitsangabenRowChangeEventHandler _ Public Overloads Sub AddtblNCTS_TR_SicherheitsangabenRow(ByVal row As tblNCTS_TR_SicherheitsangabenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblNCTS_TR_SicherheitsangabenRow(ByVal nctsSA_NctsId As Integer, ByVal nctsSA_ArtCode As String, ByVal nctsSA_BezeichnungBescheinigun As String, ByVal nctsSA_AbgabenBetrag As Decimal, ByVal nctsSA_GRN As String, ByVal nctsSA_Zugriffcode As String, ByVal nctsSA_TIN As String, ByVal nctsSA_AbgabenBetragFremdWaehrung As Decimal, ByVal nctsSA_Waerung As String) As tblNCTS_TR_SicherheitsangabenRow Dim rowtblNCTS_TR_SicherheitsangabenRow As tblNCTS_TR_SicherheitsangabenRow = CType(Me.NewRow,tblNCTS_TR_SicherheitsangabenRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsSA_NctsId, nctsSA_ArtCode, nctsSA_BezeichnungBescheinigun, nctsSA_AbgabenBetrag, nctsSA_GRN, nctsSA_Zugriffcode, nctsSA_TIN, nctsSA_AbgabenBetragFremdWaehrung, nctsSA_Waerung} rowtblNCTS_TR_SicherheitsangabenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblNCTS_TR_SicherheitsangabenRow) Return rowtblNCTS_TR_SicherheitsangabenRow End Function _ Public Function FindBynctsSA_Id(ByVal nctsSA_Id As Integer) As tblNCTS_TR_SicherheitsangabenRow Return CType(Me.Rows.Find(New Object() {nctsSA_Id}),tblNCTS_TR_SicherheitsangabenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblNCTS_TR_SicherheitsangabenDataTable = CType(MyBase.Clone,tblNCTS_TR_SicherheitsangabenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblNCTS_TR_SicherheitsangabenDataTable() End Function _ Friend Sub InitVars() Me.columnnctsSA_Id = MyBase.Columns("nctsSA_Id") Me.columnnctsSA_NctsId = MyBase.Columns("nctsSA_NctsId") Me.columnnctsSA_ArtCode = MyBase.Columns("nctsSA_ArtCode") Me.columnnctsSA_BezeichnungBescheinigun = MyBase.Columns("nctsSA_BezeichnungBescheinigun") Me.columnnctsSA_AbgabenBetrag = MyBase.Columns("nctsSA_AbgabenBetrag") Me.columnnctsSA_GRN = MyBase.Columns("nctsSA_GRN") Me.columnnctsSA_Zugriffcode = MyBase.Columns("nctsSA_Zugriffcode") Me.columnnctsSA_TIN = MyBase.Columns("nctsSA_TIN") Me.columnnctsSA_AbgabenBetragFremdWaehrung = MyBase.Columns("nctsSA_AbgabenBetragFremdWaehrung") Me.columnnctsSA_Waerung = MyBase.Columns("nctsSA_Waerung") End Sub _ Private Sub InitClass() Me.columnnctsSA_Id = New Global.System.Data.DataColumn("nctsSA_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_Id) Me.columnnctsSA_NctsId = New Global.System.Data.DataColumn("nctsSA_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_NctsId) Me.columnnctsSA_ArtCode = New Global.System.Data.DataColumn("nctsSA_ArtCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_ArtCode) Me.columnnctsSA_BezeichnungBescheinigun = New Global.System.Data.DataColumn("nctsSA_BezeichnungBescheinigun", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_BezeichnungBescheinigun) Me.columnnctsSA_AbgabenBetrag = New Global.System.Data.DataColumn("nctsSA_AbgabenBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_AbgabenBetrag) Me.columnnctsSA_GRN = New Global.System.Data.DataColumn("nctsSA_GRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_GRN) Me.columnnctsSA_Zugriffcode = New Global.System.Data.DataColumn("nctsSA_Zugriffcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_Zugriffcode) Me.columnnctsSA_TIN = New Global.System.Data.DataColumn("nctsSA_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_TIN) Me.columnnctsSA_AbgabenBetragFremdWaehrung = New Global.System.Data.DataColumn("nctsSA_AbgabenBetragFremdWaehrung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_AbgabenBetragFremdWaehrung) Me.columnnctsSA_Waerung = New Global.System.Data.DataColumn("nctsSA_Waerung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsSA_Waerung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsSA_Id}, true)) Me.columnnctsSA_Id.AutoIncrement = true Me.columnnctsSA_Id.AutoIncrementSeed = -1 Me.columnnctsSA_Id.AutoIncrementStep = -1 Me.columnnctsSA_Id.AllowDBNull = false Me.columnnctsSA_Id.ReadOnly = true Me.columnnctsSA_Id.Unique = true Me.columnnctsSA_NctsId.AllowDBNull = false Me.columnnctsSA_ArtCode.MaxLength = 1 Me.columnnctsSA_BezeichnungBescheinigun.MaxLength = 35 Me.columnnctsSA_GRN.MaxLength = 24 Me.columnnctsSA_Zugriffcode.MaxLength = 4 Me.columnnctsSA_TIN.MaxLength = 17 Me.columnnctsSA_Waerung.MaxLength = 3 End Sub _ Public Function NewtblNCTS_TR_SicherheitsangabenRow() As tblNCTS_TR_SicherheitsangabenRow Return CType(Me.NewRow,tblNCTS_TR_SicherheitsangabenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblNCTS_TR_SicherheitsangabenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblNCTS_TR_SicherheitsangabenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblNCTS_TR_SicherheitsangabenRowChangedEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_SicherheitsangabenRowChanged(Me, New tblNCTS_TR_SicherheitsangabenRowChangeEvent(CType(e.Row,tblNCTS_TR_SicherheitsangabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblNCTS_TR_SicherheitsangabenRowChangingEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_SicherheitsangabenRowChanging(Me, New tblNCTS_TR_SicherheitsangabenRowChangeEvent(CType(e.Row,tblNCTS_TR_SicherheitsangabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblNCTS_TR_SicherheitsangabenRowDeletedEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_SicherheitsangabenRowDeleted(Me, New tblNCTS_TR_SicherheitsangabenRowChangeEvent(CType(e.Row,tblNCTS_TR_SicherheitsangabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblNCTS_TR_SicherheitsangabenRowDeletingEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_SicherheitsangabenRowDeleting(Me, New tblNCTS_TR_SicherheitsangabenRowChangeEvent(CType(e.Row,tblNCTS_TR_SicherheitsangabenRow), e.Action)) End If End Sub _ Public Sub RemovetblNCTS_TR_SicherheitsangabenRow(ByVal row As tblNCTS_TR_SicherheitsangabenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblNCTS_TR_SicherheitsangabenDataTable" 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 tblNCTS_TR_WarenpositionDataTable Inherits Global.System.Data.TypedTableBase(Of tblNCTS_TR_WarenpositionRow) Private columnnctsWP_Id As Global.System.Data.DataColumn Private columnnctsWP_NctsId As Global.System.Data.DataColumn Private columnnctsWP_PositionsNummer As Global.System.Data.DataColumn Private columnnctsWP_Warennummer As Global.System.Data.DataColumn Private columnnctsWP_ArtAnmeldungPositionCode As Global.System.Data.DataColumn Private columnnctsWP_Warenbezeichnung As Global.System.Data.DataColumn Private columnnctsWP_Warenwert As Global.System.Data.DataColumn Private columnnctsWP_WarenwertWaehrung As Global.System.Data.DataColumn Private columnnctsWP_SchaetzKz As Global.System.Data.DataColumn Private columnnctsWP_WarenwertProzent As Global.System.Data.DataColumn Private columnnctsWP_VersendungslandPositionCode As Global.System.Data.DataColumn Private columnnctsWP_BestimmungslandPositionCode As Global.System.Data.DataColumn Private columnnctsWP_Rohmasse As Global.System.Data.DataColumn Private columnnctsWP_Eigenmasse As Global.System.Data.DataColumn Private columnnctsWP_VorpapierTyp As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz1 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz1 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz2 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz2 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz3 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz3 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz4 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz4 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz5 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz5 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz6 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz6 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz7 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz7 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz8 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz8 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierReferenz9 As Global.System.Data.DataColumn Private columnnctsWP_VorpapierZusatz9 As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_ExportAusEU As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_ExportAusLand As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_Export As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_ExportBeschraenkung As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_ExportAbgaben As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_Vermerk As Global.System.Data.DataColumn Private columnnctsWP_BesondereVermeke_Kz10600 As Global.System.Data.DataColumn Private columnnctsWP_Versender_EORI As Global.System.Data.DataColumn Private columnnctsWP_Versender_NLNR As Global.System.Data.DataColumn Private columnnctsWP_Versender_TIN As Global.System.Data.DataColumn Private columnnctsWP_Versender_Name As Global.System.Data.DataColumn Private columnnctsWP_Versender_StrasseHausnummer As Global.System.Data.DataColumn Private columnnctsWP_Versender_Ort As Global.System.Data.DataColumn Private columnnctsWP_Versender_PLZ As Global.System.Data.DataColumn Private columnnctsWP_Versender_Land As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_EORI As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_NLNR As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_TIN As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_Name As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_StrasseHausnummer As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_Ort As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_PLZ As Global.System.Data.DataColumn Private columnnctsWP_Empfaenger_Land As Global.System.Data.DataColumn Private columnnctsWP_SumAKennnummerSendung As Global.System.Data.DataColumn Private columnnctsWP_SumABefoerderungskostenZahlungsweise As Global.System.Data.DataColumn Private columnnctsWP_SumAUNGefahrgutnummer As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_EORI As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_NLNR As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_TIN As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_Name As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_StrasseHausnummer As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_Ort As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_PLZ As Global.System.Data.DataColumn Private columnnctsWP_SumAVersender_Land As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_EORI As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_NLNR As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_TIN As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_Name As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_StrasseHausnummer As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_Ort As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_PLZ As Global.System.Data.DataColumn Private columnnctsWP_SumAEmpfaenger_Land As Global.System.Data.DataColumn Private columnnctsWP_KdRefNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblNCTS_TR_Warenposition" 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 nctsWP_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Id End Get End Property _ Public ReadOnly Property nctsWP_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_NctsId End Get End Property _ Public ReadOnly Property nctsWP_PositionsNummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_PositionsNummer End Get End Property _ Public ReadOnly Property nctsWP_WarennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Warennummer End Get End Property _ Public ReadOnly Property nctsWP_ArtAnmeldungPositionCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_ArtAnmeldungPositionCode End Get End Property _ Public ReadOnly Property nctsWP_WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Warenbezeichnung End Get End Property _ Public ReadOnly Property nctsWP_WarenwertColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Warenwert End Get End Property _ Public ReadOnly Property nctsWP_WarenwertWaehrungColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_WarenwertWaehrung End Get End Property _ Public ReadOnly Property nctsWP_SchaetzKzColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SchaetzKz End Get End Property _ Public ReadOnly Property nctsWP_WarenwertProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_WarenwertProzent End Get End Property _ Public ReadOnly Property nctsWP_VersendungslandPositionCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VersendungslandPositionCode End Get End Property _ Public ReadOnly Property nctsWP_BestimmungslandPositionCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BestimmungslandPositionCode End Get End Property _ Public ReadOnly Property nctsWP_RohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Rohmasse End Get End Property _ Public ReadOnly Property nctsWP_EigenmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Eigenmasse End Get End Property _ Public ReadOnly Property nctsWP_VorpapierTypColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierTyp End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz1Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz1 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz1Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz1 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz2Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz2 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz2Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz2 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz3Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz3 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz3Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz3 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz4Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz4 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz4Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz4 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz5Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz5 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz5Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz5 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz6Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz6 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz6Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz6 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz7Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz7 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz7Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz7 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz8Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz8 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz8Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz8 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierReferenz9Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierReferenz9 End Get End Property _ Public ReadOnly Property nctsWP_VorpapierZusatz9Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_VorpapierZusatz9 End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_ExportAusEUColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_ExportAusEU End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_ExportAusLandColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_ExportAusLand End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_ExportColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_Export End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_ExportBeschraenkungColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_ExportBeschraenkung End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_ExportAbgabenColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_ExportAbgaben End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_Vermerk End Get End Property _ Public ReadOnly Property nctsWP_BesondereVermeke_Kz10600Column() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_BesondereVermeke_Kz10600 End Get End Property _ Public ReadOnly Property nctsWP_Versender_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_EORI End Get End Property _ Public ReadOnly Property nctsWP_Versender_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_NLNR End Get End Property _ Public ReadOnly Property nctsWP_Versender_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_TIN End Get End Property _ Public ReadOnly Property nctsWP_Versender_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_Name End Get End Property _ Public ReadOnly Property nctsWP_Versender_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_StrasseHausnummer End Get End Property _ Public ReadOnly Property nctsWP_Versender_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_Ort End Get End Property _ Public ReadOnly Property nctsWP_Versender_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_PLZ End Get End Property _ Public ReadOnly Property nctsWP_Versender_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Versender_Land End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_EORI End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_NLNR End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_TIN End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_Name End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_StrasseHausnummer End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_Ort End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_PLZ End Get End Property _ Public ReadOnly Property nctsWP_Empfaenger_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_Empfaenger_Land End Get End Property _ Public ReadOnly Property nctsWP_SumAKennnummerSendungColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAKennnummerSendung End Get End Property _ Public ReadOnly Property nctsWP_SumABefoerderungskostenZahlungsweiseColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumABefoerderungskostenZahlungsweise End Get End Property _ Public ReadOnly Property nctsWP_SumAUNGefahrgutnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAUNGefahrgutnummer End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_EORI End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_NLNR End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_TIN End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_Name End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_StrasseHausnummer End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_Ort End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_PLZ End Get End Property _ Public ReadOnly Property nctsWP_SumAVersender_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAVersender_Land End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_EORI End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_NLNR End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_TIN End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_Name End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_StrasseHausnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_StrasseHausnummer End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_Ort End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_PLZ End Get End Property _ Public ReadOnly Property nctsWP_SumAEmpfaenger_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_SumAEmpfaenger_Land End Get End Property _ Public ReadOnly Property nctsWP_KdRefNrColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWP_KdRefNr 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 tblNCTS_TR_WarenpositionRow Get Return CType(Me.Rows(index),tblNCTS_TR_WarenpositionRow) End Get End Property _ Public Event tblNCTS_TR_WarenpositionRowChanging As tblNCTS_TR_WarenpositionRowChangeEventHandler _ Public Event tblNCTS_TR_WarenpositionRowChanged As tblNCTS_TR_WarenpositionRowChangeEventHandler _ Public Event tblNCTS_TR_WarenpositionRowDeleting As tblNCTS_TR_WarenpositionRowChangeEventHandler _ Public Event tblNCTS_TR_WarenpositionRowDeleted As tblNCTS_TR_WarenpositionRowChangeEventHandler _ Public Overloads Sub AddtblNCTS_TR_WarenpositionRow(ByVal row As tblNCTS_TR_WarenpositionRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblNCTS_TR_WarenpositionRow( _ ByVal nctsWP_NctsId As Integer, _ ByVal nctsWP_PositionsNummer As Decimal, _ ByVal nctsWP_Warennummer As String, _ ByVal nctsWP_ArtAnmeldungPositionCode As String, _ ByVal nctsWP_Warenbezeichnung As String, _ ByVal nctsWP_Warenwert As Decimal, _ ByVal nctsWP_WarenwertWaehrung As String, _ ByVal nctsWP_SchaetzKz As String, _ ByVal nctsWP_WarenwertProzent As Decimal, _ ByVal nctsWP_VersendungslandPositionCode As String, _ ByVal nctsWP_BestimmungslandPositionCode As String, _ ByVal nctsWP_Rohmasse As Decimal, _ ByVal nctsWP_Eigenmasse As Decimal, _ ByVal nctsWP_VorpapierTyp As String, _ ByVal nctsWP_VorpapierReferenz1 As String, _ ByVal nctsWP_VorpapierZusatz1 As String, _ ByVal nctsWP_VorpapierReferenz2 As String, _ ByVal nctsWP_VorpapierZusatz2 As String, _ ByVal nctsWP_VorpapierReferenz3 As String, _ ByVal nctsWP_VorpapierZusatz3 As String, _ ByVal nctsWP_VorpapierReferenz4 As String, _ ByVal nctsWP_VorpapierZusatz4 As String, _ ByVal nctsWP_VorpapierReferenz5 As String, _ ByVal nctsWP_VorpapierZusatz5 As String, _ ByVal nctsWP_VorpapierReferenz6 As String, _ ByVal nctsWP_VorpapierZusatz6 As String, _ ByVal nctsWP_VorpapierReferenz7 As String, _ ByVal nctsWP_VorpapierZusatz7 As String, _ ByVal nctsWP_VorpapierReferenz8 As String, _ ByVal nctsWP_VorpapierZusatz8 As String, _ ByVal nctsWP_VorpapierReferenz9 As String, _ ByVal nctsWP_VorpapierZusatz9 As String, _ ByVal nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal nctsWP_BesondereVermeke_Export As String, _ ByVal nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal nctsWP_BesondereVermeke_Vermerk As String, _ ByVal nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal nctsWP_Versender_EORI As String, _ ByVal nctsWP_Versender_NLNR As String, _ ByVal nctsWP_Versender_TIN As String, _ ByVal nctsWP_Versender_Name As String, _ ByVal nctsWP_Versender_StrasseHausnummer As String, _ ByVal nctsWP_Versender_Ort As String, _ ByVal nctsWP_Versender_PLZ As String, _ ByVal nctsWP_Versender_Land As String, _ ByVal nctsWP_Empfaenger_EORI As String, _ ByVal nctsWP_Empfaenger_NLNR As String, _ ByVal nctsWP_Empfaenger_TIN As String, _ ByVal nctsWP_Empfaenger_Name As String, _ ByVal nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal nctsWP_Empfaenger_Ort As String, _ ByVal nctsWP_Empfaenger_PLZ As String, _ ByVal nctsWP_Empfaenger_Land As String, _ ByVal nctsWP_SumAKennnummerSendung As String, _ ByVal nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal nctsWP_SumAUNGefahrgutnummer As String, _ ByVal nctsWP_SumAVersender_EORI As String, _ ByVal nctsWP_SumAVersender_NLNR As String, _ ByVal nctsWP_SumAVersender_TIN As String, _ ByVal nctsWP_SumAVersender_Name As String, _ ByVal nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal nctsWP_SumAVersender_Ort As String, _ ByVal nctsWP_SumAVersender_PLZ As String, _ ByVal nctsWP_SumAVersender_Land As String, _ ByVal nctsWP_SumAEmpfaenger_EORI As String, _ ByVal nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal nctsWP_SumAEmpfaenger_TIN As String, _ ByVal nctsWP_SumAEmpfaenger_Name As String, _ ByVal nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal nctsWP_SumAEmpfaenger_Ort As String, _ ByVal nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal nctsWP_SumAEmpfaenger_Land As String, _ ByVal nctsWP_KdRefNr As String) As tblNCTS_TR_WarenpositionRow Dim rowtblNCTS_TR_WarenpositionRow As tblNCTS_TR_WarenpositionRow = CType(Me.NewRow,tblNCTS_TR_WarenpositionRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsWP_NctsId, nctsWP_PositionsNummer, nctsWP_Warennummer, nctsWP_ArtAnmeldungPositionCode, nctsWP_Warenbezeichnung, nctsWP_Warenwert, nctsWP_WarenwertWaehrung, nctsWP_SchaetzKz, nctsWP_WarenwertProzent, nctsWP_VersendungslandPositionCode, nctsWP_BestimmungslandPositionCode, nctsWP_Rohmasse, nctsWP_Eigenmasse, nctsWP_VorpapierTyp, nctsWP_VorpapierReferenz1, nctsWP_VorpapierZusatz1, nctsWP_VorpapierReferenz2, nctsWP_VorpapierZusatz2, nctsWP_VorpapierReferenz3, nctsWP_VorpapierZusatz3, nctsWP_VorpapierReferenz4, nctsWP_VorpapierZusatz4, nctsWP_VorpapierReferenz5, nctsWP_VorpapierZusatz5, nctsWP_VorpapierReferenz6, nctsWP_VorpapierZusatz6, nctsWP_VorpapierReferenz7, nctsWP_VorpapierZusatz7, nctsWP_VorpapierReferenz8, nctsWP_VorpapierZusatz8, nctsWP_VorpapierReferenz9, nctsWP_VorpapierZusatz9, nctsWP_BesondereVermeke_ExportAusEU, nctsWP_BesondereVermeke_ExportAusLand, nctsWP_BesondereVermeke_Export, nctsWP_BesondereVermeke_ExportBeschraenkung, nctsWP_BesondereVermeke_ExportAbgaben, nctsWP_BesondereVermeke_Vermerk, nctsWP_BesondereVermeke_Kz10600, nctsWP_Versender_EORI, nctsWP_Versender_NLNR, nctsWP_Versender_TIN, nctsWP_Versender_Name, nctsWP_Versender_StrasseHausnummer, nctsWP_Versender_Ort, nctsWP_Versender_PLZ, nctsWP_Versender_Land, nctsWP_Empfaenger_EORI, nctsWP_Empfaenger_NLNR, nctsWP_Empfaenger_TIN, nctsWP_Empfaenger_Name, nctsWP_Empfaenger_StrasseHausnummer, nctsWP_Empfaenger_Ort, nctsWP_Empfaenger_PLZ, nctsWP_Empfaenger_Land, nctsWP_SumAKennnummerSendung, nctsWP_SumABefoerderungskostenZahlungsweise, nctsWP_SumAUNGefahrgutnummer, nctsWP_SumAVersender_EORI, nctsWP_SumAVersender_NLNR, nctsWP_SumAVersender_TIN, nctsWP_SumAVersender_Name, nctsWP_SumAVersender_StrasseHausnummer, nctsWP_SumAVersender_Ort, nctsWP_SumAVersender_PLZ, nctsWP_SumAVersender_Land, nctsWP_SumAEmpfaenger_EORI, nctsWP_SumAEmpfaenger_NLNR, nctsWP_SumAEmpfaenger_TIN, nctsWP_SumAEmpfaenger_Name, nctsWP_SumAEmpfaenger_StrasseHausnummer, nctsWP_SumAEmpfaenger_Ort, nctsWP_SumAEmpfaenger_PLZ, nctsWP_SumAEmpfaenger_Land, nctsWP_KdRefNr} rowtblNCTS_TR_WarenpositionRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblNCTS_TR_WarenpositionRow) Return rowtblNCTS_TR_WarenpositionRow End Function _ Public Function FindBynctsWP_Id(ByVal nctsWP_Id As Integer) As tblNCTS_TR_WarenpositionRow Return CType(Me.Rows.Find(New Object() {nctsWP_Id}),tblNCTS_TR_WarenpositionRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblNCTS_TR_WarenpositionDataTable = CType(MyBase.Clone,tblNCTS_TR_WarenpositionDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblNCTS_TR_WarenpositionDataTable() End Function _ Friend Sub InitVars() Me.columnnctsWP_Id = MyBase.Columns("nctsWP_Id") Me.columnnctsWP_NctsId = MyBase.Columns("nctsWP_NctsId") Me.columnnctsWP_PositionsNummer = MyBase.Columns("nctsWP_PositionsNummer") Me.columnnctsWP_Warennummer = MyBase.Columns("nctsWP_Warennummer") Me.columnnctsWP_ArtAnmeldungPositionCode = MyBase.Columns("nctsWP_ArtAnmeldungPositionCode") Me.columnnctsWP_Warenbezeichnung = MyBase.Columns("nctsWP_Warenbezeichnung") Me.columnnctsWP_Warenwert = MyBase.Columns("nctsWP_Warenwert") Me.columnnctsWP_WarenwertWaehrung = MyBase.Columns("nctsWP_WarenwertWaehrung") Me.columnnctsWP_SchaetzKz = MyBase.Columns("nctsWP_SchaetzKz") Me.columnnctsWP_WarenwertProzent = MyBase.Columns("nctsWP_WarenwertProzent") Me.columnnctsWP_VersendungslandPositionCode = MyBase.Columns("nctsWP_VersendungslandPositionCode") Me.columnnctsWP_BestimmungslandPositionCode = MyBase.Columns("nctsWP_BestimmungslandPositionCode") Me.columnnctsWP_Rohmasse = MyBase.Columns("nctsWP_Rohmasse") Me.columnnctsWP_Eigenmasse = MyBase.Columns("nctsWP_Eigenmasse") Me.columnnctsWP_VorpapierTyp = MyBase.Columns("nctsWP_VorpapierTyp") Me.columnnctsWP_VorpapierReferenz1 = MyBase.Columns("nctsWP_VorpapierReferenz1") Me.columnnctsWP_VorpapierZusatz1 = MyBase.Columns("nctsWP_VorpapierZusatz1") Me.columnnctsWP_VorpapierReferenz2 = MyBase.Columns("nctsWP_VorpapierReferenz2") Me.columnnctsWP_VorpapierZusatz2 = MyBase.Columns("nctsWP_VorpapierZusatz2") Me.columnnctsWP_VorpapierReferenz3 = MyBase.Columns("nctsWP_VorpapierReferenz3") Me.columnnctsWP_VorpapierZusatz3 = MyBase.Columns("nctsWP_VorpapierZusatz3") Me.columnnctsWP_VorpapierReferenz4 = MyBase.Columns("nctsWP_VorpapierReferenz4") Me.columnnctsWP_VorpapierZusatz4 = MyBase.Columns("nctsWP_VorpapierZusatz4") Me.columnnctsWP_VorpapierReferenz5 = MyBase.Columns("nctsWP_VorpapierReferenz5") Me.columnnctsWP_VorpapierZusatz5 = MyBase.Columns("nctsWP_VorpapierZusatz5") Me.columnnctsWP_VorpapierReferenz6 = MyBase.Columns("nctsWP_VorpapierReferenz6") Me.columnnctsWP_VorpapierZusatz6 = MyBase.Columns("nctsWP_VorpapierZusatz6") Me.columnnctsWP_VorpapierReferenz7 = MyBase.Columns("nctsWP_VorpapierReferenz7") Me.columnnctsWP_VorpapierZusatz7 = MyBase.Columns("nctsWP_VorpapierZusatz7") Me.columnnctsWP_VorpapierReferenz8 = MyBase.Columns("nctsWP_VorpapierReferenz8") Me.columnnctsWP_VorpapierZusatz8 = MyBase.Columns("nctsWP_VorpapierZusatz8") Me.columnnctsWP_VorpapierReferenz9 = MyBase.Columns("nctsWP_VorpapierReferenz9") Me.columnnctsWP_VorpapierZusatz9 = MyBase.Columns("nctsWP_VorpapierZusatz9") Me.columnnctsWP_BesondereVermeke_ExportAusEU = MyBase.Columns("nctsWP_BesondereVermeke_ExportAusEU") Me.columnnctsWP_BesondereVermeke_ExportAusLand = MyBase.Columns("nctsWP_BesondereVermeke_ExportAusLand") Me.columnnctsWP_BesondereVermeke_Export = MyBase.Columns("nctsWP_BesondereVermeke_Export") Me.columnnctsWP_BesondereVermeke_ExportBeschraenkung = MyBase.Columns("nctsWP_BesondereVermeke_ExportBeschraenkung") Me.columnnctsWP_BesondereVermeke_ExportAbgaben = MyBase.Columns("nctsWP_BesondereVermeke_ExportAbgaben") Me.columnnctsWP_BesondereVermeke_Vermerk = MyBase.Columns("nctsWP_BesondereVermeke_Vermerk") Me.columnnctsWP_BesondereVermeke_Kz10600 = MyBase.Columns("nctsWP_BesondereVermeke_Kz10600") Me.columnnctsWP_Versender_EORI = MyBase.Columns("nctsWP_Versender_EORI") Me.columnnctsWP_Versender_NLNR = MyBase.Columns("nctsWP_Versender_NLNR") Me.columnnctsWP_Versender_TIN = MyBase.Columns("nctsWP_Versender_TIN") Me.columnnctsWP_Versender_Name = MyBase.Columns("nctsWP_Versender_Name") Me.columnnctsWP_Versender_StrasseHausnummer = MyBase.Columns("nctsWP_Versender_StrasseHausnummer") Me.columnnctsWP_Versender_Ort = MyBase.Columns("nctsWP_Versender_Ort") Me.columnnctsWP_Versender_PLZ = MyBase.Columns("nctsWP_Versender_PLZ") Me.columnnctsWP_Versender_Land = MyBase.Columns("nctsWP_Versender_Land") Me.columnnctsWP_Empfaenger_EORI = MyBase.Columns("nctsWP_Empfaenger_EORI") Me.columnnctsWP_Empfaenger_NLNR = MyBase.Columns("nctsWP_Empfaenger_NLNR") Me.columnnctsWP_Empfaenger_TIN = MyBase.Columns("nctsWP_Empfaenger_TIN") Me.columnnctsWP_Empfaenger_Name = MyBase.Columns("nctsWP_Empfaenger_Name") Me.columnnctsWP_Empfaenger_StrasseHausnummer = MyBase.Columns("nctsWP_Empfaenger_StrasseHausnummer") Me.columnnctsWP_Empfaenger_Ort = MyBase.Columns("nctsWP_Empfaenger_Ort") Me.columnnctsWP_Empfaenger_PLZ = MyBase.Columns("nctsWP_Empfaenger_PLZ") Me.columnnctsWP_Empfaenger_Land = MyBase.Columns("nctsWP_Empfaenger_Land") Me.columnnctsWP_SumAKennnummerSendung = MyBase.Columns("nctsWP_SumAKennnummerSendung") Me.columnnctsWP_SumABefoerderungskostenZahlungsweise = MyBase.Columns("nctsWP_SumABefoerderungskostenZahlungsweise") Me.columnnctsWP_SumAUNGefahrgutnummer = MyBase.Columns("nctsWP_SumAUNGefahrgutnummer") Me.columnnctsWP_SumAVersender_EORI = MyBase.Columns("nctsWP_SumAVersender_EORI") Me.columnnctsWP_SumAVersender_NLNR = MyBase.Columns("nctsWP_SumAVersender_NLNR") Me.columnnctsWP_SumAVersender_TIN = MyBase.Columns("nctsWP_SumAVersender_TIN") Me.columnnctsWP_SumAVersender_Name = MyBase.Columns("nctsWP_SumAVersender_Name") Me.columnnctsWP_SumAVersender_StrasseHausnummer = MyBase.Columns("nctsWP_SumAVersender_StrasseHausnummer") Me.columnnctsWP_SumAVersender_Ort = MyBase.Columns("nctsWP_SumAVersender_Ort") Me.columnnctsWP_SumAVersender_PLZ = MyBase.Columns("nctsWP_SumAVersender_PLZ") Me.columnnctsWP_SumAVersender_Land = MyBase.Columns("nctsWP_SumAVersender_Land") Me.columnnctsWP_SumAEmpfaenger_EORI = MyBase.Columns("nctsWP_SumAEmpfaenger_EORI") Me.columnnctsWP_SumAEmpfaenger_NLNR = MyBase.Columns("nctsWP_SumAEmpfaenger_NLNR") Me.columnnctsWP_SumAEmpfaenger_TIN = MyBase.Columns("nctsWP_SumAEmpfaenger_TIN") Me.columnnctsWP_SumAEmpfaenger_Name = MyBase.Columns("nctsWP_SumAEmpfaenger_Name") Me.columnnctsWP_SumAEmpfaenger_StrasseHausnummer = MyBase.Columns("nctsWP_SumAEmpfaenger_StrasseHausnummer") Me.columnnctsWP_SumAEmpfaenger_Ort = MyBase.Columns("nctsWP_SumAEmpfaenger_Ort") Me.columnnctsWP_SumAEmpfaenger_PLZ = MyBase.Columns("nctsWP_SumAEmpfaenger_PLZ") Me.columnnctsWP_SumAEmpfaenger_Land = MyBase.Columns("nctsWP_SumAEmpfaenger_Land") Me.columnnctsWP_KdRefNr = MyBase.Columns("nctsWP_KdRefNr") End Sub _ Private Sub InitClass() Me.columnnctsWP_Id = New Global.System.Data.DataColumn("nctsWP_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Id) Me.columnnctsWP_NctsId = New Global.System.Data.DataColumn("nctsWP_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_NctsId) Me.columnnctsWP_PositionsNummer = New Global.System.Data.DataColumn("nctsWP_PositionsNummer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_PositionsNummer) Me.columnnctsWP_Warennummer = New Global.System.Data.DataColumn("nctsWP_Warennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Warennummer) Me.columnnctsWP_ArtAnmeldungPositionCode = New Global.System.Data.DataColumn("nctsWP_ArtAnmeldungPositionCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_ArtAnmeldungPositionCode) Me.columnnctsWP_Warenbezeichnung = New Global.System.Data.DataColumn("nctsWP_Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Warenbezeichnung) Me.columnnctsWP_Warenwert = New Global.System.Data.DataColumn("nctsWP_Warenwert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Warenwert) Me.columnnctsWP_WarenwertWaehrung = New Global.System.Data.DataColumn("nctsWP_WarenwertWaehrung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_WarenwertWaehrung) Me.columnnctsWP_SchaetzKz = New Global.System.Data.DataColumn("nctsWP_SchaetzKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SchaetzKz) Me.columnnctsWP_WarenwertProzent = New Global.System.Data.DataColumn("nctsWP_WarenwertProzent", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_WarenwertProzent) Me.columnnctsWP_VersendungslandPositionCode = New Global.System.Data.DataColumn("nctsWP_VersendungslandPositionCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VersendungslandPositionCode) Me.columnnctsWP_BestimmungslandPositionCode = New Global.System.Data.DataColumn("nctsWP_BestimmungslandPositionCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BestimmungslandPositionCode) Me.columnnctsWP_Rohmasse = New Global.System.Data.DataColumn("nctsWP_Rohmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Rohmasse) Me.columnnctsWP_Eigenmasse = New Global.System.Data.DataColumn("nctsWP_Eigenmasse", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Eigenmasse) Me.columnnctsWP_VorpapierTyp = New Global.System.Data.DataColumn("nctsWP_VorpapierTyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierTyp) Me.columnnctsWP_VorpapierReferenz1 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz1) Me.columnnctsWP_VorpapierZusatz1 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz1) Me.columnnctsWP_VorpapierReferenz2 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz2) Me.columnnctsWP_VorpapierZusatz2 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz2) Me.columnnctsWP_VorpapierReferenz3 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz3) Me.columnnctsWP_VorpapierZusatz3 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz3) Me.columnnctsWP_VorpapierReferenz4 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz4) Me.columnnctsWP_VorpapierZusatz4 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz4) Me.columnnctsWP_VorpapierReferenz5 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz5) Me.columnnctsWP_VorpapierZusatz5 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz5) Me.columnnctsWP_VorpapierReferenz6 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz6) Me.columnnctsWP_VorpapierZusatz6 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz6) Me.columnnctsWP_VorpapierReferenz7 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz7) Me.columnnctsWP_VorpapierZusatz7 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz7) Me.columnnctsWP_VorpapierReferenz8 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz8) Me.columnnctsWP_VorpapierZusatz8 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz8) Me.columnnctsWP_VorpapierReferenz9 = New Global.System.Data.DataColumn("nctsWP_VorpapierReferenz9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierReferenz9) Me.columnnctsWP_VorpapierZusatz9 = New Global.System.Data.DataColumn("nctsWP_VorpapierZusatz9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_VorpapierZusatz9) Me.columnnctsWP_BesondereVermeke_ExportAusEU = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_ExportAusEU", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_ExportAusEU) Me.columnnctsWP_BesondereVermeke_ExportAusLand = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_ExportAusLand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_ExportAusLand) Me.columnnctsWP_BesondereVermeke_Export = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_Export", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_Export) Me.columnnctsWP_BesondereVermeke_ExportBeschraenkung = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_ExportBeschraenkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_ExportBeschraenkung) Me.columnnctsWP_BesondereVermeke_ExportAbgaben = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_ExportAbgaben", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_ExportAbgaben) Me.columnnctsWP_BesondereVermeke_Vermerk = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_Vermerk) Me.columnnctsWP_BesondereVermeke_Kz10600 = New Global.System.Data.DataColumn("nctsWP_BesondereVermeke_Kz10600", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_BesondereVermeke_Kz10600) Me.columnnctsWP_Versender_EORI = New Global.System.Data.DataColumn("nctsWP_Versender_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_EORI) Me.columnnctsWP_Versender_NLNR = New Global.System.Data.DataColumn("nctsWP_Versender_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_NLNR) Me.columnnctsWP_Versender_TIN = New Global.System.Data.DataColumn("nctsWP_Versender_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_TIN) Me.columnnctsWP_Versender_Name = New Global.System.Data.DataColumn("nctsWP_Versender_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_Name) Me.columnnctsWP_Versender_StrasseHausnummer = New Global.System.Data.DataColumn("nctsWP_Versender_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_StrasseHausnummer) Me.columnnctsWP_Versender_Ort = New Global.System.Data.DataColumn("nctsWP_Versender_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_Ort) Me.columnnctsWP_Versender_PLZ = New Global.System.Data.DataColumn("nctsWP_Versender_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_PLZ) Me.columnnctsWP_Versender_Land = New Global.System.Data.DataColumn("nctsWP_Versender_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Versender_Land) Me.columnnctsWP_Empfaenger_EORI = New Global.System.Data.DataColumn("nctsWP_Empfaenger_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_EORI) Me.columnnctsWP_Empfaenger_NLNR = New Global.System.Data.DataColumn("nctsWP_Empfaenger_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_NLNR) Me.columnnctsWP_Empfaenger_TIN = New Global.System.Data.DataColumn("nctsWP_Empfaenger_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_TIN) Me.columnnctsWP_Empfaenger_Name = New Global.System.Data.DataColumn("nctsWP_Empfaenger_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_Name) Me.columnnctsWP_Empfaenger_StrasseHausnummer = New Global.System.Data.DataColumn("nctsWP_Empfaenger_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_StrasseHausnummer) Me.columnnctsWP_Empfaenger_Ort = New Global.System.Data.DataColumn("nctsWP_Empfaenger_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_Ort) Me.columnnctsWP_Empfaenger_PLZ = New Global.System.Data.DataColumn("nctsWP_Empfaenger_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_PLZ) Me.columnnctsWP_Empfaenger_Land = New Global.System.Data.DataColumn("nctsWP_Empfaenger_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_Empfaenger_Land) Me.columnnctsWP_SumAKennnummerSendung = New Global.System.Data.DataColumn("nctsWP_SumAKennnummerSendung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAKennnummerSendung) Me.columnnctsWP_SumABefoerderungskostenZahlungsweise = New Global.System.Data.DataColumn("nctsWP_SumABefoerderungskostenZahlungsweise", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumABefoerderungskostenZahlungsweise) Me.columnnctsWP_SumAUNGefahrgutnummer = New Global.System.Data.DataColumn("nctsWP_SumAUNGefahrgutnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAUNGefahrgutnummer) Me.columnnctsWP_SumAVersender_EORI = New Global.System.Data.DataColumn("nctsWP_SumAVersender_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_EORI) Me.columnnctsWP_SumAVersender_NLNR = New Global.System.Data.DataColumn("nctsWP_SumAVersender_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_NLNR) Me.columnnctsWP_SumAVersender_TIN = New Global.System.Data.DataColumn("nctsWP_SumAVersender_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_TIN) Me.columnnctsWP_SumAVersender_Name = New Global.System.Data.DataColumn("nctsWP_SumAVersender_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_Name) Me.columnnctsWP_SumAVersender_StrasseHausnummer = New Global.System.Data.DataColumn("nctsWP_SumAVersender_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_StrasseHausnummer) Me.columnnctsWP_SumAVersender_Ort = New Global.System.Data.DataColumn("nctsWP_SumAVersender_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_Ort) Me.columnnctsWP_SumAVersender_PLZ = New Global.System.Data.DataColumn("nctsWP_SumAVersender_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_PLZ) Me.columnnctsWP_SumAVersender_Land = New Global.System.Data.DataColumn("nctsWP_SumAVersender_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAVersender_Land) Me.columnnctsWP_SumAEmpfaenger_EORI = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_EORI) Me.columnnctsWP_SumAEmpfaenger_NLNR = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_NLNR) Me.columnnctsWP_SumAEmpfaenger_TIN = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_TIN) Me.columnnctsWP_SumAEmpfaenger_Name = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_Name) Me.columnnctsWP_SumAEmpfaenger_StrasseHausnummer = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_StrasseHausnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_StrasseHausnummer) Me.columnnctsWP_SumAEmpfaenger_Ort = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_Ort) Me.columnnctsWP_SumAEmpfaenger_PLZ = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_PLZ) Me.columnnctsWP_SumAEmpfaenger_Land = New Global.System.Data.DataColumn("nctsWP_SumAEmpfaenger_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_SumAEmpfaenger_Land) Me.columnnctsWP_KdRefNr = New Global.System.Data.DataColumn("nctsWP_KdRefNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWP_KdRefNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsWP_Id}, true)) Me.columnnctsWP_Id.AutoIncrement = true Me.columnnctsWP_Id.AutoIncrementSeed = -1 Me.columnnctsWP_Id.AutoIncrementStep = -1 Me.columnnctsWP_Id.AllowDBNull = false Me.columnnctsWP_Id.ReadOnly = true Me.columnnctsWP_Id.Unique = true Me.columnnctsWP_NctsId.AllowDBNull = false Me.columnnctsWP_Warennummer.MaxLength = 10 Me.columnnctsWP_ArtAnmeldungPositionCode.MaxLength = 5 Me.columnnctsWP_Warenbezeichnung.MaxLength = 280 Me.columnnctsWP_WarenwertWaehrung.MaxLength = 3 Me.columnnctsWP_SchaetzKz.MaxLength = 1 Me.columnnctsWP_VersendungslandPositionCode.MaxLength = 2 Me.columnnctsWP_BestimmungslandPositionCode.MaxLength = 2 Me.columnnctsWP_VorpapierTyp.MaxLength = 6 Me.columnnctsWP_VorpapierReferenz1.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz1.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz2.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz2.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz3.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz3.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz4.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz4.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz5.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz5.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz6.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz6.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz7.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz7.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz8.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz8.MaxLength = 26 Me.columnnctsWP_VorpapierReferenz9.MaxLength = 35 Me.columnnctsWP_VorpapierZusatz9.MaxLength = 26 Me.columnnctsWP_BesondereVermeke_ExportAusEU.MaxLength = 1 Me.columnnctsWP_BesondereVermeke_ExportAusLand.MaxLength = 2 Me.columnnctsWP_BesondereVermeke_Export.MaxLength = 1 Me.columnnctsWP_BesondereVermeke_ExportBeschraenkung.MaxLength = 1 Me.columnnctsWP_BesondereVermeke_ExportAbgaben.MaxLength = 1 Me.columnnctsWP_BesondereVermeke_Vermerk.MaxLength = 70 Me.columnnctsWP_BesondereVermeke_Kz10600.MaxLength = 1 Me.columnnctsWP_Versender_EORI.MaxLength = 17 Me.columnnctsWP_Versender_NLNR.MaxLength = 4 Me.columnnctsWP_Versender_TIN.MaxLength = 17 Me.columnnctsWP_Versender_Name.MaxLength = 35 Me.columnnctsWP_Versender_StrasseHausnummer.MaxLength = 35 Me.columnnctsWP_Versender_Ort.MaxLength = 35 Me.columnnctsWP_Versender_PLZ.MaxLength = 9 Me.columnnctsWP_Versender_Land.MaxLength = 2 Me.columnnctsWP_Empfaenger_EORI.MaxLength = 17 Me.columnnctsWP_Empfaenger_NLNR.MaxLength = 4 Me.columnnctsWP_Empfaenger_TIN.MaxLength = 17 Me.columnnctsWP_Empfaenger_Name.MaxLength = 35 Me.columnnctsWP_Empfaenger_StrasseHausnummer.MaxLength = 35 Me.columnnctsWP_Empfaenger_Ort.MaxLength = 35 Me.columnnctsWP_Empfaenger_PLZ.MaxLength = 9 Me.columnnctsWP_Empfaenger_Land.MaxLength = 2 Me.columnnctsWP_SumAKennnummerSendung.MaxLength = 70 Me.columnnctsWP_SumABefoerderungskostenZahlungsweise.MaxLength = 1 Me.columnnctsWP_SumAUNGefahrgutnummer.MaxLength = 4 Me.columnnctsWP_SumAVersender_EORI.MaxLength = 17 Me.columnnctsWP_SumAVersender_NLNR.MaxLength = 4 Me.columnnctsWP_SumAVersender_TIN.MaxLength = 17 Me.columnnctsWP_SumAVersender_Name.MaxLength = 35 Me.columnnctsWP_SumAVersender_StrasseHausnummer.MaxLength = 35 Me.columnnctsWP_SumAVersender_Ort.MaxLength = 35 Me.columnnctsWP_SumAVersender_PLZ.MaxLength = 9 Me.columnnctsWP_SumAVersender_Land.MaxLength = 2 Me.columnnctsWP_SumAEmpfaenger_EORI.MaxLength = 17 Me.columnnctsWP_SumAEmpfaenger_NLNR.MaxLength = 4 Me.columnnctsWP_SumAEmpfaenger_TIN.MaxLength = 17 Me.columnnctsWP_SumAEmpfaenger_Name.MaxLength = 35 Me.columnnctsWP_SumAEmpfaenger_StrasseHausnummer.MaxLength = 35 Me.columnnctsWP_SumAEmpfaenger_Ort.MaxLength = 35 Me.columnnctsWP_SumAEmpfaenger_PLZ.MaxLength = 9 Me.columnnctsWP_SumAEmpfaenger_Land.MaxLength = 2 Me.columnnctsWP_KdRefNr.MaxLength = 500 End Sub _ Public Function NewtblNCTS_TR_WarenpositionRow() As tblNCTS_TR_WarenpositionRow Return CType(Me.NewRow,tblNCTS_TR_WarenpositionRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblNCTS_TR_WarenpositionRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblNCTS_TR_WarenpositionRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblNCTS_TR_WarenpositionRowChangedEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_WarenpositionRowChanged(Me, New tblNCTS_TR_WarenpositionRowChangeEvent(CType(e.Row,tblNCTS_TR_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblNCTS_TR_WarenpositionRowChangingEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_WarenpositionRowChanging(Me, New tblNCTS_TR_WarenpositionRowChangeEvent(CType(e.Row,tblNCTS_TR_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblNCTS_TR_WarenpositionRowDeletedEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_WarenpositionRowDeleted(Me, New tblNCTS_TR_WarenpositionRowChangeEvent(CType(e.Row,tblNCTS_TR_WarenpositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblNCTS_TR_WarenpositionRowDeletingEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_WarenpositionRowDeleting(Me, New tblNCTS_TR_WarenpositionRowChangeEvent(CType(e.Row,tblNCTS_TR_WarenpositionRow), e.Action)) End If End Sub _ Public Sub RemovetblNCTS_TR_WarenpositionRow(ByVal row As tblNCTS_TR_WarenpositionRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblNCTS_TR_WarenpositionDataTable" 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 tblNCTS_TR_WarenpositionPackstueckeDataTable Inherits Global.System.Data.TypedTableBase(Of tblNCTS_TR_WarenpositionPackstueckeRow) Private columnnctsWpPk_Id As Global.System.Data.DataColumn Private columnnctsWpPk_nctsWPId As Global.System.Data.DataColumn Private columnnctsWpPk_NctsId As Global.System.Data.DataColumn Private columnnctsWpPk_PackstueckeAnzahl As Global.System.Data.DataColumn Private columnnctsWpPk_Verpackungsart As Global.System.Data.DataColumn Private columnnctsWpPk_ZeichenNummern As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblNCTS_TR_WarenpositionPackstuecke" 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 nctsWpPk_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_Id End Get End Property _ Public ReadOnly Property nctsWpPk_nctsWPIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_nctsWPId End Get End Property _ Public ReadOnly Property nctsWpPk_NctsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_NctsId End Get End Property _ Public ReadOnly Property nctsWpPk_PackstueckeAnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_PackstueckeAnzahl End Get End Property _ Public ReadOnly Property nctsWpPk_VerpackungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_Verpackungsart End Get End Property _ Public ReadOnly Property nctsWpPk_ZeichenNummernColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsWpPk_ZeichenNummern 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 tblNCTS_TR_WarenpositionPackstueckeRow Get Return CType(Me.Rows(index),tblNCTS_TR_WarenpositionPackstueckeRow) End Get End Property _ Public Event tblNCTS_TR_WarenpositionPackstueckeRowChanging As tblNCTS_TR_WarenpositionPackstueckeRowChangeEventHandler _ Public Event tblNCTS_TR_WarenpositionPackstueckeRowChanged As tblNCTS_TR_WarenpositionPackstueckeRowChangeEventHandler _ Public Event tblNCTS_TR_WarenpositionPackstueckeRowDeleting As tblNCTS_TR_WarenpositionPackstueckeRowChangeEventHandler _ Public Event tblNCTS_TR_WarenpositionPackstueckeRowDeleted As tblNCTS_TR_WarenpositionPackstueckeRowChangeEventHandler _ Public Overloads Sub AddtblNCTS_TR_WarenpositionPackstueckeRow(ByVal row As tblNCTS_TR_WarenpositionPackstueckeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblNCTS_TR_WarenpositionPackstueckeRow(ByVal nctsWpPk_nctsWPId As Integer, ByVal nctsWpPk_NctsId As Integer, ByVal nctsWpPk_PackstueckeAnzahl As Decimal, ByVal nctsWpPk_Verpackungsart As String, ByVal nctsWpPk_ZeichenNummern As String) As tblNCTS_TR_WarenpositionPackstueckeRow Dim rowtblNCTS_TR_WarenpositionPackstueckeRow As tblNCTS_TR_WarenpositionPackstueckeRow = CType(Me.NewRow,tblNCTS_TR_WarenpositionPackstueckeRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsWpPk_nctsWPId, nctsWpPk_NctsId, nctsWpPk_PackstueckeAnzahl, nctsWpPk_Verpackungsart, nctsWpPk_ZeichenNummern} rowtblNCTS_TR_WarenpositionPackstueckeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblNCTS_TR_WarenpositionPackstueckeRow) Return rowtblNCTS_TR_WarenpositionPackstueckeRow End Function _ Public Function FindBynctsWpPk_Id(ByVal nctsWpPk_Id As Integer) As tblNCTS_TR_WarenpositionPackstueckeRow Return CType(Me.Rows.Find(New Object() {nctsWpPk_Id}),tblNCTS_TR_WarenpositionPackstueckeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblNCTS_TR_WarenpositionPackstueckeDataTable = CType(MyBase.Clone,tblNCTS_TR_WarenpositionPackstueckeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblNCTS_TR_WarenpositionPackstueckeDataTable() End Function _ Friend Sub InitVars() Me.columnnctsWpPk_Id = MyBase.Columns("nctsWpPk_Id") Me.columnnctsWpPk_nctsWPId = MyBase.Columns("nctsWpPk_nctsWPId") Me.columnnctsWpPk_NctsId = MyBase.Columns("nctsWpPk_NctsId") Me.columnnctsWpPk_PackstueckeAnzahl = MyBase.Columns("nctsWpPk_PackstueckeAnzahl") Me.columnnctsWpPk_Verpackungsart = MyBase.Columns("nctsWpPk_Verpackungsart") Me.columnnctsWpPk_ZeichenNummern = MyBase.Columns("nctsWpPk_ZeichenNummern") End Sub _ Private Sub InitClass() Me.columnnctsWpPk_Id = New Global.System.Data.DataColumn("nctsWpPk_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_Id) Me.columnnctsWpPk_nctsWPId = New Global.System.Data.DataColumn("nctsWpPk_nctsWPId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_nctsWPId) Me.columnnctsWpPk_NctsId = New Global.System.Data.DataColumn("nctsWpPk_NctsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_NctsId) Me.columnnctsWpPk_PackstueckeAnzahl = New Global.System.Data.DataColumn("nctsWpPk_PackstueckeAnzahl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_PackstueckeAnzahl) Me.columnnctsWpPk_Verpackungsart = New Global.System.Data.DataColumn("nctsWpPk_Verpackungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_Verpackungsart) Me.columnnctsWpPk_ZeichenNummern = New Global.System.Data.DataColumn("nctsWpPk_ZeichenNummern", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsWpPk_ZeichenNummern) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsWpPk_Id}, true)) Me.columnnctsWpPk_Id.AutoIncrement = true Me.columnnctsWpPk_Id.AutoIncrementSeed = -1 Me.columnnctsWpPk_Id.AutoIncrementStep = -1 Me.columnnctsWpPk_Id.AllowDBNull = false Me.columnnctsWpPk_Id.ReadOnly = true Me.columnnctsWpPk_Id.Unique = true Me.columnnctsWpPk_nctsWPId.AllowDBNull = false Me.columnnctsWpPk_NctsId.AllowDBNull = false Me.columnnctsWpPk_Verpackungsart.MaxLength = 3 Me.columnnctsWpPk_ZeichenNummern.MaxLength = 42 End Sub _ Public Function NewtblNCTS_TR_WarenpositionPackstueckeRow() As tblNCTS_TR_WarenpositionPackstueckeRow Return CType(Me.NewRow,tblNCTS_TR_WarenpositionPackstueckeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblNCTS_TR_WarenpositionPackstueckeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblNCTS_TR_WarenpositionPackstueckeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblNCTS_TR_WarenpositionPackstueckeRowChangedEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_WarenpositionPackstueckeRowChanged(Me, New tblNCTS_TR_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblNCTS_TR_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblNCTS_TR_WarenpositionPackstueckeRowChangingEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_WarenpositionPackstueckeRowChanging(Me, New tblNCTS_TR_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblNCTS_TR_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblNCTS_TR_WarenpositionPackstueckeRowDeletedEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_WarenpositionPackstueckeRowDeleted(Me, New tblNCTS_TR_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblNCTS_TR_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblNCTS_TR_WarenpositionPackstueckeRowDeletingEvent) Is Nothing) Then RaiseEvent tblNCTS_TR_WarenpositionPackstueckeRowDeleting(Me, New tblNCTS_TR_WarenpositionPackstueckeRowChangeEvent(CType(e.Row,tblNCTS_TR_WarenpositionPackstueckeRow), e.Action)) End If End Sub _ Public Sub RemovetblNCTS_TR_WarenpositionPackstueckeRow(ByVal row As tblNCTS_TR_WarenpositionPackstueckeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblNCTS_TR_WarenpositionPackstueckeDataTable" 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 tblNCTSGestellungsadressenDataTable Inherits Global.System.Data.TypedTableBase(Of tblNCTSGestellungsadressenRow) Private columnnga_id As Global.System.Data.DataColumn Private columnnga_name As Global.System.Data.DataColumn Private columnnga_strasse As Global.System.Data.DataColumn Private columnnga_land As Global.System.Data.DataColumn Private columnnga_plz As Global.System.Data.DataColumn Private columnnga_ort As Global.System.Data.DataColumn Private columnnga_EORI As Global.System.Data.DataColumn Private columnnga_EORI_NL As Global.System.Data.DataColumn Private columnnga_Ansprechpartner As Global.System.Data.DataColumn Private columnnga_bestZollst As Global.System.Data.DataColumn Private columnnga_firma As Global.System.Data.DataColumn Private columnnga_SB As Global.System.Data.DataColumn Private columnnga_Aenderungsdatum As Global.System.Data.DataColumn Private columnnga_ATANr As Global.System.Data.DataColumn Private columnnga_gestellungsMail As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblNCTSGestellungsadressen" 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 nga_idColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_id End Get End Property _ Public ReadOnly Property nga_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_name End Get End Property _ Public ReadOnly Property nga_strasseColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_strasse End Get End Property _ Public ReadOnly Property nga_landColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_land End Get End Property _ Public ReadOnly Property nga_plzColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_plz End Get End Property _ Public ReadOnly Property nga_ortColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_ort End Get End Property _ Public ReadOnly Property nga_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_EORI End Get End Property _ Public ReadOnly Property nga_EORI_NLColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_EORI_NL End Get End Property _ Public ReadOnly Property nga_AnsprechpartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_Ansprechpartner End Get End Property _ Public ReadOnly Property nga_bestZollstColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_bestZollst End Get End Property _ Public ReadOnly Property nga_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_firma End Get End Property _ Public ReadOnly Property nga_SBColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_SB End Get End Property _ Public ReadOnly Property nga_AenderungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_Aenderungsdatum End Get End Property _ Public ReadOnly Property nga_ATANrColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_ATANr End Get End Property _ Public ReadOnly Property nga_gestellungsMailColumn() As Global.System.Data.DataColumn Get Return Me.columnnga_gestellungsMail 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 tblNCTSGestellungsadressenRow Get Return CType(Me.Rows(index),tblNCTSGestellungsadressenRow) End Get End Property _ Public Event tblNCTSGestellungsadressenRowChanging As tblNCTSGestellungsadressenRowChangeEventHandler _ Public Event tblNCTSGestellungsadressenRowChanged As tblNCTSGestellungsadressenRowChangeEventHandler _ Public Event tblNCTSGestellungsadressenRowDeleting As tblNCTSGestellungsadressenRowChangeEventHandler _ Public Event tblNCTSGestellungsadressenRowDeleted As tblNCTSGestellungsadressenRowChangeEventHandler _ Public Overloads Sub AddtblNCTSGestellungsadressenRow(ByVal row As tblNCTSGestellungsadressenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblNCTSGestellungsadressenRow(ByVal nga_name As String, ByVal nga_strasse As String, ByVal nga_land As String, ByVal nga_plz As String, ByVal nga_ort As String, ByVal nga_EORI As String, ByVal nga_EORI_NL As String, ByVal nga_Ansprechpartner As String, ByVal nga_bestZollst As String, ByVal nga_firma As String, ByVal nga_SB As String, ByVal nga_Aenderungsdatum As Date, ByVal nga_ATANr As String, ByVal nga_gestellungsMail As String) As tblNCTSGestellungsadressenRow Dim rowtblNCTSGestellungsadressenRow As tblNCTSGestellungsadressenRow = CType(Me.NewRow,tblNCTSGestellungsadressenRow) Dim columnValuesArray() As Object = New Object() {Nothing, nga_name, nga_strasse, nga_land, nga_plz, nga_ort, nga_EORI, nga_EORI_NL, nga_Ansprechpartner, nga_bestZollst, nga_firma, nga_SB, nga_Aenderungsdatum, nga_ATANr, nga_gestellungsMail} rowtblNCTSGestellungsadressenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblNCTSGestellungsadressenRow) Return rowtblNCTSGestellungsadressenRow End Function _ Public Function FindBynga_id(ByVal nga_id As Integer) As tblNCTSGestellungsadressenRow Return CType(Me.Rows.Find(New Object() {nga_id}),tblNCTSGestellungsadressenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblNCTSGestellungsadressenDataTable = CType(MyBase.Clone,tblNCTSGestellungsadressenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblNCTSGestellungsadressenDataTable() End Function _ Friend Sub InitVars() Me.columnnga_id = MyBase.Columns("nga_id") Me.columnnga_name = MyBase.Columns("nga_name") Me.columnnga_strasse = MyBase.Columns("nga_strasse") Me.columnnga_land = MyBase.Columns("nga_land") Me.columnnga_plz = MyBase.Columns("nga_plz") Me.columnnga_ort = MyBase.Columns("nga_ort") Me.columnnga_EORI = MyBase.Columns("nga_EORI") Me.columnnga_EORI_NL = MyBase.Columns("nga_EORI_NL") Me.columnnga_Ansprechpartner = MyBase.Columns("nga_Ansprechpartner") Me.columnnga_bestZollst = MyBase.Columns("nga_bestZollst") Me.columnnga_firma = MyBase.Columns("nga_firma") Me.columnnga_SB = MyBase.Columns("nga_SB") Me.columnnga_Aenderungsdatum = MyBase.Columns("nga_Aenderungsdatum") Me.columnnga_ATANr = MyBase.Columns("nga_ATANr") Me.columnnga_gestellungsMail = MyBase.Columns("nga_gestellungsMail") End Sub _ Private Sub InitClass() Me.columnnga_id = New Global.System.Data.DataColumn("nga_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_id) Me.columnnga_name = New Global.System.Data.DataColumn("nga_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_name) Me.columnnga_strasse = New Global.System.Data.DataColumn("nga_strasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_strasse) Me.columnnga_land = New Global.System.Data.DataColumn("nga_land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_land) Me.columnnga_plz = New Global.System.Data.DataColumn("nga_plz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_plz) Me.columnnga_ort = New Global.System.Data.DataColumn("nga_ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_ort) Me.columnnga_EORI = New Global.System.Data.DataColumn("nga_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_EORI) Me.columnnga_EORI_NL = New Global.System.Data.DataColumn("nga_EORI_NL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_EORI_NL) Me.columnnga_Ansprechpartner = New Global.System.Data.DataColumn("nga_Ansprechpartner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_Ansprechpartner) Me.columnnga_bestZollst = New Global.System.Data.DataColumn("nga_bestZollst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_bestZollst) Me.columnnga_firma = New Global.System.Data.DataColumn("nga_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_firma) Me.columnnga_SB = New Global.System.Data.DataColumn("nga_SB", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_SB) Me.columnnga_Aenderungsdatum = New Global.System.Data.DataColumn("nga_Aenderungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_Aenderungsdatum) Me.columnnga_ATANr = New Global.System.Data.DataColumn("nga_ATANr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_ATANr) Me.columnnga_gestellungsMail = New Global.System.Data.DataColumn("nga_gestellungsMail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnga_gestellungsMail) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnga_id}, true)) Me.columnnga_id.AutoIncrement = true Me.columnnga_id.AutoIncrementSeed = -1 Me.columnnga_id.AutoIncrementStep = -1 Me.columnnga_id.AllowDBNull = false Me.columnnga_id.ReadOnly = true Me.columnnga_id.Unique = true Me.columnnga_name.AllowDBNull = false Me.columnnga_name.MaxLength = 35 Me.columnnga_strasse.MaxLength = 35 Me.columnnga_land.MaxLength = 2 Me.columnnga_plz.MaxLength = 9 Me.columnnga_ort.MaxLength = 35 Me.columnnga_EORI.MaxLength = 17 Me.columnnga_EORI_NL.MaxLength = 4 Me.columnnga_Ansprechpartner.MaxLength = 35 Me.columnnga_bestZollst.MaxLength = 8 Me.columnnga_firma.AllowDBNull = false Me.columnnga_firma.MaxLength = 35 Me.columnnga_SB.MaxLength = 50 Me.columnnga_Aenderungsdatum.AllowDBNull = false Me.columnnga_ATANr.MaxLength = 2147483647 Me.columnnga_gestellungsMail.MaxLength = 250 End Sub _ Public Function NewtblNCTSGestellungsadressenRow() As tblNCTSGestellungsadressenRow Return CType(Me.NewRow,tblNCTSGestellungsadressenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblNCTSGestellungsadressenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblNCTSGestellungsadressenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblNCTSGestellungsadressenRowChangedEvent) Is Nothing) Then RaiseEvent tblNCTSGestellungsadressenRowChanged(Me, New tblNCTSGestellungsadressenRowChangeEvent(CType(e.Row,tblNCTSGestellungsadressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblNCTSGestellungsadressenRowChangingEvent) Is Nothing) Then RaiseEvent tblNCTSGestellungsadressenRowChanging(Me, New tblNCTSGestellungsadressenRowChangeEvent(CType(e.Row,tblNCTSGestellungsadressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblNCTSGestellungsadressenRowDeletedEvent) Is Nothing) Then RaiseEvent tblNCTSGestellungsadressenRowDeleted(Me, New tblNCTSGestellungsadressenRowChangeEvent(CType(e.Row,tblNCTSGestellungsadressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblNCTSGestellungsadressenRowDeletingEvent) Is Nothing) Then RaiseEvent tblNCTSGestellungsadressenRowDeleting(Me, New tblNCTSGestellungsadressenRowChangeEvent(CType(e.Row,tblNCTSGestellungsadressenRow), e.Action)) End If End Sub _ Public Sub RemovetblNCTSGestellungsadressenRow(ByVal row As tblNCTSGestellungsadressenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblNCTSGestellungsadressenDataTable" 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 tblNTCSRoutenDataTable Inherits Global.System.Data.TypedTableBase(Of tblNTCSRoutenRow) Private columnnctsr_id As Global.System.Data.DataColumn Private columnnctsr_von As Global.System.Data.DataColumn Private columnnctsr_nach As Global.System.Data.DataColumn Private columnnctsr_dauer_in_tagen As Global.System.Data.DataColumn Private columnnctsr_route As Global.System.Data.DataColumn Private columnnctsr_transportmittel As Global.System.Data.DataColumn Private columnnctsr_von_region As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblNTCSRouten" 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 nctsr_idColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsr_id End Get End Property _ Public ReadOnly Property nctsr_vonColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsr_von End Get End Property _ Public ReadOnly Property nctsr_nachColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsr_nach End Get End Property _ Public ReadOnly Property nctsr_dauer_in_tagenColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsr_dauer_in_tagen End Get End Property _ Public ReadOnly Property nctsr_routeColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsr_route End Get End Property _ Public ReadOnly Property nctsr_transportmittelColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsr_transportmittel End Get End Property _ Public ReadOnly Property nctsr_von_regionColumn() As Global.System.Data.DataColumn Get Return Me.columnnctsr_von_region 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 tblNTCSRoutenRow Get Return CType(Me.Rows(index),tblNTCSRoutenRow) End Get End Property _ Public Event tblNTCSRoutenRowChanging As tblNTCSRoutenRowChangeEventHandler _ Public Event tblNTCSRoutenRowChanged As tblNTCSRoutenRowChangeEventHandler _ Public Event tblNTCSRoutenRowDeleting As tblNTCSRoutenRowChangeEventHandler _ Public Event tblNTCSRoutenRowDeleted As tblNTCSRoutenRowChangeEventHandler _ Public Overloads Sub AddtblNTCSRoutenRow(ByVal row As tblNTCSRoutenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblNTCSRoutenRow(ByVal nctsr_von As String, ByVal nctsr_nach As String, ByVal nctsr_dauer_in_tagen As Integer, ByVal nctsr_route As String, ByVal nctsr_transportmittel As String, ByVal nctsr_von_region As String) As tblNTCSRoutenRow Dim rowtblNTCSRoutenRow As tblNTCSRoutenRow = CType(Me.NewRow,tblNTCSRoutenRow) Dim columnValuesArray() As Object = New Object() {Nothing, nctsr_von, nctsr_nach, nctsr_dauer_in_tagen, nctsr_route, nctsr_transportmittel, nctsr_von_region} rowtblNTCSRoutenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblNTCSRoutenRow) Return rowtblNTCSRoutenRow End Function _ Public Function FindBynctsr_id(ByVal nctsr_id As Integer) As tblNTCSRoutenRow Return CType(Me.Rows.Find(New Object() {nctsr_id}),tblNTCSRoutenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblNTCSRoutenDataTable = CType(MyBase.Clone,tblNTCSRoutenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblNTCSRoutenDataTable() End Function _ Friend Sub InitVars() Me.columnnctsr_id = MyBase.Columns("nctsr_id") Me.columnnctsr_von = MyBase.Columns("nctsr_von") Me.columnnctsr_nach = MyBase.Columns("nctsr_nach") Me.columnnctsr_dauer_in_tagen = MyBase.Columns("nctsr_dauer_in_tagen") Me.columnnctsr_route = MyBase.Columns("nctsr_route") Me.columnnctsr_transportmittel = MyBase.Columns("nctsr_transportmittel") Me.columnnctsr_von_region = MyBase.Columns("nctsr_von_region") End Sub _ Private Sub InitClass() Me.columnnctsr_id = New Global.System.Data.DataColumn("nctsr_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsr_id) Me.columnnctsr_von = New Global.System.Data.DataColumn("nctsr_von", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsr_von) Me.columnnctsr_nach = New Global.System.Data.DataColumn("nctsr_nach", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsr_nach) Me.columnnctsr_dauer_in_tagen = New Global.System.Data.DataColumn("nctsr_dauer_in_tagen", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsr_dauer_in_tagen) Me.columnnctsr_route = New Global.System.Data.DataColumn("nctsr_route", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsr_route) Me.columnnctsr_transportmittel = New Global.System.Data.DataColumn("nctsr_transportmittel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsr_transportmittel) Me.columnnctsr_von_region = New Global.System.Data.DataColumn("nctsr_von_region", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnctsr_von_region) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnnctsr_id}, true)) Me.columnnctsr_id.AutoIncrement = true Me.columnnctsr_id.AutoIncrementSeed = -1 Me.columnnctsr_id.AutoIncrementStep = -1 Me.columnnctsr_id.AllowDBNull = false Me.columnnctsr_id.ReadOnly = true Me.columnnctsr_id.Unique = true Me.columnnctsr_von.AllowDBNull = false Me.columnnctsr_von.MaxLength = 50 Me.columnnctsr_nach.AllowDBNull = false Me.columnnctsr_nach.MaxLength = 50 Me.columnnctsr_dauer_in_tagen.AllowDBNull = false Me.columnnctsr_route.MaxLength = 50 Me.columnnctsr_transportmittel.AllowDBNull = false Me.columnnctsr_transportmittel.MaxLength = 50 Me.columnnctsr_von_region.AllowDBNull = false Me.columnnctsr_von_region.MaxLength = 50 End Sub _ Public Function NewtblNTCSRoutenRow() As tblNTCSRoutenRow Return CType(Me.NewRow,tblNTCSRoutenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblNTCSRoutenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblNTCSRoutenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblNTCSRoutenRowChangedEvent) Is Nothing) Then RaiseEvent tblNTCSRoutenRowChanged(Me, New tblNTCSRoutenRowChangeEvent(CType(e.Row,tblNTCSRoutenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblNTCSRoutenRowChangingEvent) Is Nothing) Then RaiseEvent tblNTCSRoutenRowChanging(Me, New tblNTCSRoutenRowChangeEvent(CType(e.Row,tblNTCSRoutenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblNTCSRoutenRowDeletedEvent) Is Nothing) Then RaiseEvent tblNTCSRoutenRowDeleted(Me, New tblNTCSRoutenRowChangeEvent(CType(e.Row,tblNTCSRoutenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblNTCSRoutenRowDeletingEvent) Is Nothing) Then RaiseEvent tblNTCSRoutenRowDeleting(Me, New tblNTCSRoutenRowChangeEvent(CType(e.Row,tblNTCSRoutenRow), e.Action)) End If End Sub _ Public Sub RemovetblNTCSRoutenRow(ByVal row As tblNTCSRoutenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblNTCSRoutenDataTable" 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 tblOffertenArchivDataTable Inherits Global.System.Data.TypedTableBase(Of tblOffertenArchivRow) Private columnOfID As Global.System.Data.DataColumn Private columnKundenNr As Global.System.Data.DataColumn Private columnOffertenNr As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnPauschalpreis As Global.System.Data.DataColumn Private columnStandardofferte As Global.System.Data.DataColumn Private columnBesonderheiten As Global.System.Data.DataColumn Private columnEingegeben_am As Global.System.Data.DataColumn Private columnGeändert_am As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnGesperrt As Global.System.Data.DataColumn Private columnGesperrt_Datum As Global.System.Data.DataColumn Private columnGesperrt_Grund As Global.System.Data.DataColumn Private columnArchiviert_am As Global.System.Data.DataColumn Private columnArt As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOffertenArchiv" 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 OfIDColumn() As Global.System.Data.DataColumn Get Return Me.columnOfID End Get End Property _ Public ReadOnly Property KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property PauschalpreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPauschalpreis End Get End Property _ Public ReadOnly Property StandardofferteColumn() As Global.System.Data.DataColumn Get Return Me.columnStandardofferte End Get End Property _ Public ReadOnly Property BesonderheitenColumn() As Global.System.Data.DataColumn Get Return Me.columnBesonderheiten End Get End Property _ Public ReadOnly Property Eingegeben_amColumn() As Global.System.Data.DataColumn Get Return Me.columnEingegeben_am End Get End Property _ Public ReadOnly Property Geändert_amColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändert_am End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property GesperrtColumn() As Global.System.Data.DataColumn Get Return Me.columnGesperrt End Get End Property _ Public ReadOnly Property Gesperrt_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnGesperrt_Datum End Get End Property _ Public ReadOnly Property Gesperrt_GrundColumn() As Global.System.Data.DataColumn Get Return Me.columnGesperrt_Grund End Get End Property _ Public ReadOnly Property Archiviert_amColumn() As Global.System.Data.DataColumn Get Return Me.columnArchiviert_am End Get End Property _ Public ReadOnly Property ArtColumn() As Global.System.Data.DataColumn Get Return Me.columnArt 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 tblOffertenArchivRow Get Return CType(Me.Rows(index),tblOffertenArchivRow) End Get End Property _ Public Event tblOffertenArchivRowChanging As tblOffertenArchivRowChangeEventHandler _ Public Event tblOffertenArchivRowChanged As tblOffertenArchivRowChangeEventHandler _ Public Event tblOffertenArchivRowDeleting As tblOffertenArchivRowChangeEventHandler _ Public Event tblOffertenArchivRowDeleted As tblOffertenArchivRowChangeEventHandler _ Public Overloads Sub AddtblOffertenArchivRow(ByVal row As tblOffertenArchivRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOffertenArchivRow(ByVal KundenNr As Integer, ByVal OffertenNr As Integer, ByVal FilialenNr As Short, ByVal Pauschalpreis As Boolean, ByVal Standardofferte As Boolean, ByVal Besonderheiten As String, ByVal Eingegeben_am As Date, ByVal Geändert_am As Date, ByVal Sachbearbeiter As String, ByVal SSMA_TimeStamp As String, ByVal Gesperrt As Boolean, ByVal Gesperrt_Datum As Date, ByVal Gesperrt_Grund As String, ByVal Archiviert_am As Date, ByVal Art As String) As tblOffertenArchivRow Dim rowtblOffertenArchivRow As tblOffertenArchivRow = CType(Me.NewRow,tblOffertenArchivRow) Dim columnValuesArray() As Object = New Object() {Nothing, KundenNr, OffertenNr, FilialenNr, Pauschalpreis, Standardofferte, Besonderheiten, Eingegeben_am, Geändert_am, Sachbearbeiter, SSMA_TimeStamp, Gesperrt, Gesperrt_Datum, Gesperrt_Grund, Archiviert_am, Art} rowtblOffertenArchivRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOffertenArchivRow) Return rowtblOffertenArchivRow End Function _ Public Function FindByOfID(ByVal OfID As Integer) As tblOffertenArchivRow Return CType(Me.Rows.Find(New Object() {OfID}),tblOffertenArchivRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOffertenArchivDataTable = CType(MyBase.Clone,tblOffertenArchivDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOffertenArchivDataTable() End Function _ Friend Sub InitVars() Me.columnOfID = MyBase.Columns("OfID") Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnPauschalpreis = MyBase.Columns("Pauschalpreis") Me.columnStandardofferte = MyBase.Columns("Standardofferte") Me.columnBesonderheiten = MyBase.Columns("Besonderheiten") Me.columnEingegeben_am = MyBase.Columns("Eingegeben am") Me.columnGeändert_am = MyBase.Columns("Geändert am") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnGesperrt = MyBase.Columns("Gesperrt") Me.columnGesperrt_Datum = MyBase.Columns("Gesperrt_Datum") Me.columnGesperrt_Grund = MyBase.Columns("Gesperrt_Grund") Me.columnArchiviert_am = MyBase.Columns("Archiviert am") Me.columnArt = MyBase.Columns("Art") End Sub _ Private Sub InitClass() Me.columnOfID = New Global.System.Data.DataColumn("OfID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOfID) Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnPauschalpreis = New Global.System.Data.DataColumn("Pauschalpreis", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPauschalpreis) Me.columnStandardofferte = New Global.System.Data.DataColumn("Standardofferte", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStandardofferte) Me.columnBesonderheiten = New Global.System.Data.DataColumn("Besonderheiten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesonderheiten) Me.columnEingegeben_am = New Global.System.Data.DataColumn("Eingegeben am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingegeben_am) Me.columnGeändert_am = New Global.System.Data.DataColumn("Geändert am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändert_am) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnGesperrt = New Global.System.Data.DataColumn("Gesperrt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesperrt) Me.columnGesperrt_Datum = New Global.System.Data.DataColumn("Gesperrt_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesperrt_Datum) Me.columnGesperrt_Grund = New Global.System.Data.DataColumn("Gesperrt_Grund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesperrt_Grund) Me.columnArchiviert_am = New Global.System.Data.DataColumn("Archiviert am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArchiviert_am) Me.columnArt = New Global.System.Data.DataColumn("Art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArt) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnOfID}, true)) Me.columnOfID.AutoIncrement = true Me.columnOfID.AutoIncrementSeed = -1 Me.columnOfID.AutoIncrementStep = -1 Me.columnOfID.AllowDBNull = false Me.columnOfID.ReadOnly = true Me.columnOfID.Unique = true Me.columnKundenNr.AllowDBNull = false Me.columnOffertenNr.AllowDBNull = false Me.columnBesonderheiten.MaxLength = 2147483647 Me.columnEingegeben_am.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnSSMA_TimeStamp.MaxLength = 2147483647 Me.columnGesperrt_Grund.MaxLength = 500 Me.columnArchiviert_am.AllowDBNull = false Me.columnArt.MaxLength = 300 End Sub _ Public Function NewtblOffertenArchivRow() As tblOffertenArchivRow Return CType(Me.NewRow,tblOffertenArchivRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOffertenArchivRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOffertenArchivRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOffertenArchivRowChangedEvent) Is Nothing) Then RaiseEvent tblOffertenArchivRowChanged(Me, New tblOffertenArchivRowChangeEvent(CType(e.Row,tblOffertenArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOffertenArchivRowChangingEvent) Is Nothing) Then RaiseEvent tblOffertenArchivRowChanging(Me, New tblOffertenArchivRowChangeEvent(CType(e.Row,tblOffertenArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOffertenArchivRowDeletedEvent) Is Nothing) Then RaiseEvent tblOffertenArchivRowDeleted(Me, New tblOffertenArchivRowChangeEvent(CType(e.Row,tblOffertenArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOffertenArchivRowDeletingEvent) Is Nothing) Then RaiseEvent tblOffertenArchivRowDeleting(Me, New tblOffertenArchivRowChangeEvent(CType(e.Row,tblOffertenArchivRow), e.Action)) End If End Sub _ Public Sub RemovetblOffertenArchivRow(ByVal row As tblOffertenArchivRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOffertenArchivDataTable" 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 tblOffertenPositionenArchivDataTable Inherits Global.System.Data.TypedTableBase(Of tblOffertenPositionenArchivRow) Private columnKundenNr As Global.System.Data.DataColumn Private columnOffertenNr As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn Private columnBGebLeistungsNr As Global.System.Data.DataColumn Private columnBGebProzent As Global.System.Data.DataColumn Private columnBGebMinBetrag As Global.System.Data.DataColumn Private columnEingegeben_am As Global.System.Data.DataColumn Private columnGeändert_am As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnPreisänderung As Global.System.Data.DataColumn Private columnPreisänderungProzent As Global.System.Data.DataColumn Private columnPreisAlt As Global.System.Data.DataColumn Private columnBerechnungsartPosInkludiert As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnArchiviert_am As Global.System.Data.DataColumn Private columnOfID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOffertenPositionenArchiv" 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 KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl End Get End Property _ Public ReadOnly Property BGebLeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebLeistungsNr End Get End Property _ Public ReadOnly Property BGebProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebProzent End Get End Property _ Public ReadOnly Property BGebMinBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebMinBetrag End Get End Property _ Public ReadOnly Property Eingegeben_amColumn() As Global.System.Data.DataColumn Get Return Me.columnEingegeben_am End Get End Property _ Public ReadOnly Property Geändert_amColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändert_am End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property PreisänderungColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisänderung End Get End Property _ Public ReadOnly Property PreisänderungProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisänderungProzent End Get End Property _ Public ReadOnly Property PreisAltColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisAlt End Get End Property _ Public ReadOnly Property BerechnungsartPosInkludiertColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartPosInkludiert End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property Archiviert_amColumn() As Global.System.Data.DataColumn Get Return Me.columnArchiviert_am End Get End Property _ Public ReadOnly Property OfIDColumn() As Global.System.Data.DataColumn Get Return Me.columnOfID 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 tblOffertenPositionenArchivRow Get Return CType(Me.Rows(index),tblOffertenPositionenArchivRow) End Get End Property _ Public Event tblOffertenPositionenArchivRowChanging As tblOffertenPositionenArchivRowChangeEventHandler _ Public Event tblOffertenPositionenArchivRowChanged As tblOffertenPositionenArchivRowChangeEventHandler _ Public Event tblOffertenPositionenArchivRowDeleting As tblOffertenPositionenArchivRowChangeEventHandler _ Public Event tblOffertenPositionenArchivRowDeleted As tblOffertenPositionenArchivRowChangeEventHandler _ Public Overloads Sub AddtblOffertenPositionenArchivRow(ByVal row As tblOffertenPositionenArchivRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOffertenPositionenArchivRow( _ ByVal KundenNr As Integer, _ ByVal OffertenNr As Integer, _ ByVal LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Decimal, _ ByVal Anzahl As Short, _ ByVal BGebLeistungsNr As Short, _ ByVal BGebProzent As Single, _ ByVal BGebMinBetrag As Decimal, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Date, _ ByVal Sachbearbeiter As String, _ ByVal Preisänderung As Decimal, _ ByVal PreisänderungProzent As Single, _ ByVal PreisAlt As Decimal, _ ByVal BerechnungsartPosInkludiert As Integer, _ ByVal SSMA_TimeStamp As String, _ ByVal Archiviert_am As Date, _ ByVal parenttblOffertenArchivRowByFK_tblOffertenPositionenArchiv_ToOffertenArchiv As tblOffertenArchivRow) As tblOffertenPositionenArchivRow Dim rowtblOffertenPositionenArchivRow As tblOffertenPositionenArchivRow = CType(Me.NewRow,tblOffertenPositionenArchivRow) Dim columnValuesArray() As Object = New Object() {KundenNr, OffertenNr, LeistungsNr, LeistungsBez, BerechnungsartNr, Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, Eingegeben_am, Geändert_am, Sachbearbeiter, Preisänderung, PreisänderungProzent, PreisAlt, BerechnungsartPosInkludiert, SSMA_TimeStamp, Archiviert_am, Nothing} If (Not (parenttblOffertenArchivRowByFK_tblOffertenPositionenArchiv_ToOffertenArchiv) Is Nothing) Then columnValuesArray(19) = parenttblOffertenArchivRowByFK_tblOffertenPositionenArchiv_ToOffertenArchiv(0) End If rowtblOffertenPositionenArchivRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOffertenPositionenArchivRow) Return rowtblOffertenPositionenArchivRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOffertenPositionenArchivDataTable = CType(MyBase.Clone,tblOffertenPositionenArchivDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOffertenPositionenArchivDataTable() End Function _ Friend Sub InitVars() Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnPreis = MyBase.Columns("Preis") Me.columnAnzahl = MyBase.Columns("Anzahl") Me.columnBGebLeistungsNr = MyBase.Columns("BGebLeistungsNr") Me.columnBGebProzent = MyBase.Columns("BGebProzent") Me.columnBGebMinBetrag = MyBase.Columns("BGebMinBetrag") Me.columnEingegeben_am = MyBase.Columns("Eingegeben am") Me.columnGeändert_am = MyBase.Columns("Geändert am") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnPreisänderung = MyBase.Columns("Preisänderung") Me.columnPreisänderungProzent = MyBase.Columns("PreisänderungProzent") Me.columnPreisAlt = MyBase.Columns("PreisAlt") Me.columnBerechnungsartPosInkludiert = MyBase.Columns("BerechnungsartPosInkludiert") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnArchiviert_am = MyBase.Columns("Archiviert am") Me.columnOfID = MyBase.Columns("OfID") End Sub _ Private Sub InitClass() Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) Me.columnBGebLeistungsNr = New Global.System.Data.DataColumn("BGebLeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebLeistungsNr) Me.columnBGebProzent = New Global.System.Data.DataColumn("BGebProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebProzent) Me.columnBGebMinBetrag = New Global.System.Data.DataColumn("BGebMinBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebMinBetrag) Me.columnEingegeben_am = New Global.System.Data.DataColumn("Eingegeben am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingegeben_am) Me.columnGeändert_am = New Global.System.Data.DataColumn("Geändert am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändert_am) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnPreisänderung = New Global.System.Data.DataColumn("Preisänderung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisänderung) Me.columnPreisänderungProzent = New Global.System.Data.DataColumn("PreisänderungProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisänderungProzent) Me.columnPreisAlt = New Global.System.Data.DataColumn("PreisAlt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisAlt) Me.columnBerechnungsartPosInkludiert = New Global.System.Data.DataColumn("BerechnungsartPosInkludiert", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartPosInkludiert) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnArchiviert_am = New Global.System.Data.DataColumn("Archiviert am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArchiviert_am) Me.columnOfID = New Global.System.Data.DataColumn("OfID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOfID) Me.columnKundenNr.AllowDBNull = false Me.columnOffertenNr.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnBerechnungsartNr.AllowDBNull = false Me.columnEingegeben_am.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnSSMA_TimeStamp.MaxLength = 2147483647 Me.columnArchiviert_am.AllowDBNull = false Me.columnOfID.AllowDBNull = false End Sub _ Public Function NewtblOffertenPositionenArchivRow() As tblOffertenPositionenArchivRow Return CType(Me.NewRow,tblOffertenPositionenArchivRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOffertenPositionenArchivRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOffertenPositionenArchivRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOffertenPositionenArchivRowChangedEvent) Is Nothing) Then RaiseEvent tblOffertenPositionenArchivRowChanged(Me, New tblOffertenPositionenArchivRowChangeEvent(CType(e.Row,tblOffertenPositionenArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOffertenPositionenArchivRowChangingEvent) Is Nothing) Then RaiseEvent tblOffertenPositionenArchivRowChanging(Me, New tblOffertenPositionenArchivRowChangeEvent(CType(e.Row,tblOffertenPositionenArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOffertenPositionenArchivRowDeletedEvent) Is Nothing) Then RaiseEvent tblOffertenPositionenArchivRowDeleted(Me, New tblOffertenPositionenArchivRowChangeEvent(CType(e.Row,tblOffertenPositionenArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOffertenPositionenArchivRowDeletingEvent) Is Nothing) Then RaiseEvent tblOffertenPositionenArchivRowDeleting(Me, New tblOffertenPositionenArchivRowChangeEvent(CType(e.Row,tblOffertenPositionenArchivRow), e.Action)) End If End Sub _ Public Sub RemovetblOffertenPositionenArchivRow(ByVal row As tblOffertenPositionenArchivRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOffertenPositionenArchivDataTable" 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 tblOregonNCTS_DeclarationDataDataTable Inherits Global.System.Data.TypedTableBase(Of tblOregonNCTS_DeclarationDataRow) Private columnId As Global.System.Data.DataColumn Private columnauto_send As Global.System.Data.DataColumn Private columnbadge_code As Global.System.Data.DataColumn Private columnservice_code As Global.System.Data.DataColumn Private columndoc_type As Global.System.Data.DataColumn Private columndeclaration_type As Global.System.Data.DataColumn Private columncommercial_ref As Global.System.Data.DataColumn Private columnducr As Global.System.Data.DataColumn Private columnmucr As Global.System.Data.DataColumn Private columnducr_part As Global.System.Data.DataColumn Private columndeclarant_eori As Global.System.Data.DataColumn Private columndeclarant_name As Global.System.Data.DataColumn Private columndeclarant_address As Global.System.Data.DataColumn Private columndeclarant_city_name As Global.System.Data.DataColumn Private columndeclarant_country_id As Global.System.Data.DataColumn Private columndeclarant_postcode As Global.System.Data.DataColumn Private columndeclarant_rep As Global.System.Data.DataColumn Private columnexport_country_id As Global.System.Data.DataColumn Private columnconsignor_eori As Global.System.Data.DataColumn Private columnconsignor_name As Global.System.Data.DataColumn Private columnconsignor_address As Global.System.Data.DataColumn Private columnconsignor_city_name As Global.System.Data.DataColumn Private columnconsignor_country_id As Global.System.Data.DataColumn Private columnconsignor_postcode As Global.System.Data.DataColumn Private columnmultiple_consignor As Global.System.Data.DataColumn Private columnimport_country_id As Global.System.Data.DataColumn Private columnconsignee_eori As Global.System.Data.DataColumn Private columnconsignee_name As Global.System.Data.DataColumn Private columnconsignee_address As Global.System.Data.DataColumn Private columnconsignee_city_name As Global.System.Data.DataColumn Private columnconsignee_country_id As Global.System.Data.DataColumn Private columnconsignee_postcode As Global.System.Data.DataColumn Private columnmultiple_consignee As Global.System.Data.DataColumn Private columninvoice_amount As Global.System.Data.DataColumn Private columninvoice_curr As Global.System.Data.DataColumn Private columngoods_location As Global.System.Data.DataColumn Private columnborder_transport_type As Global.System.Data.DataColumn Private columnborder_vehicle_code As Global.System.Data.DataColumn Private columnborder_vehicle_coun As Global.System.Data.DataColumn Private columninland_transport_type As Global.System.Data.DataColumn Private columncontainer_no As Global.System.Data.DataColumn Private columngvms_interested As Global.System.Data.DataColumn Private columnfreight_amount As Global.System.Data.DataColumn Private columnfreight_curr As Global.System.Data.DataColumn Private columnpayment_method As Global.System.Data.DataColumn Private columncarrier_eori As Global.System.Data.DataColumn Private columncarrier_name As Global.System.Data.DataColumn Private columncarrier_address As Global.System.Data.DataColumn Private columncarrier_city_name As Global.System.Data.DataColumn Private columncarrier_country_id As Global.System.Data.DataColumn Private columncarrier_postcode As Global.System.Data.DataColumn Private columntotal_packages As Global.System.Data.DataColumn Private columnnature_of_transaction As Global.System.Data.DataColumn Private columnpremises_code As Global.System.Data.DataColumn Private columnfirst_dan_no As Global.System.Data.DataColumn Private columnsecond_dan_no As Global.System.Data.DataColumn Private columninsurance_amount As Global.System.Data.DataColumn Private columninsurance_curr As Global.System.Data.DataColumn Private columnother_amounts As Global.System.Data.DataColumn Private columnother_amounts_curr As Global.System.Data.DataColumn Private columnapportment_indicator As Global.System.Data.DataColumn Private columntotal_gross_weight As Global.System.Data.DataColumn Private columntotal_net_weight As Global.System.Data.DataColumn Private columnairfreight_cost As Global.System.Data.DataColumn Private columnvat_adjustment As Global.System.Data.DataColumn Private columnvat_adjustment_curr As Global.System.Data.DataColumn Private columndiscount_amount As Global.System.Data.DataColumn Private columndiscount_curr As Global.System.Data.DataColumn Private columndiscount_rate As Global.System.Data.DataColumn Private columnincoterm As Global.System.Data.DataColumn Private columnincoterm_location As Global.System.Data.DataColumn Private columntrader_ref As Global.System.Data.DataColumn Private columnarrival_transport_type As Global.System.Data.DataColumn Private columnguarantee_code As Global.System.Data.DataColumn Private columnguarantee_reference As Global.System.Data.DataColumn Private columncreated As Global.System.Data.DataColumn Private columnstatus As Global.System.Data.DataColumn Private columnaviso_id As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOregonNCTS_DeclarationData" 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 auto_sendColumn() As Global.System.Data.DataColumn Get Return Me.columnauto_send End Get End Property _ Public ReadOnly Property badge_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnbadge_code End Get End Property _ Public ReadOnly Property service_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnservice_code End Get End Property _ Public ReadOnly Property doc_typeColumn() As Global.System.Data.DataColumn Get Return Me.columndoc_type End Get End Property _ Public ReadOnly Property declaration_typeColumn() As Global.System.Data.DataColumn Get Return Me.columndeclaration_type End Get End Property _ Public ReadOnly Property commercial_refColumn() As Global.System.Data.DataColumn Get Return Me.columncommercial_ref End Get End Property _ Public ReadOnly Property ducrColumn() As Global.System.Data.DataColumn Get Return Me.columnducr End Get End Property _ Public ReadOnly Property mucrColumn() As Global.System.Data.DataColumn Get Return Me.columnmucr End Get End Property _ Public ReadOnly Property ducr_partColumn() As Global.System.Data.DataColumn Get Return Me.columnducr_part End Get End Property _ Public ReadOnly Property declarant_eoriColumn() As Global.System.Data.DataColumn Get Return Me.columndeclarant_eori End Get End Property _ Public ReadOnly Property declarant_nameColumn() As Global.System.Data.DataColumn Get Return Me.columndeclarant_name End Get End Property _ Public ReadOnly Property declarant_addressColumn() As Global.System.Data.DataColumn Get Return Me.columndeclarant_address End Get End Property _ Public ReadOnly Property declarant_city_nameColumn() As Global.System.Data.DataColumn Get Return Me.columndeclarant_city_name End Get End Property _ Public ReadOnly Property declarant_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columndeclarant_country_id End Get End Property _ Public ReadOnly Property declarant_postcodeColumn() As Global.System.Data.DataColumn Get Return Me.columndeclarant_postcode End Get End Property _ Public ReadOnly Property declarant_repColumn() As Global.System.Data.DataColumn Get Return Me.columndeclarant_rep End Get End Property _ Public ReadOnly Property export_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columnexport_country_id End Get End Property _ Public ReadOnly Property consignor_eoriColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_eori End Get End Property _ Public ReadOnly Property consignor_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_name End Get End Property _ Public ReadOnly Property consignor_addressColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_address End Get End Property _ Public ReadOnly Property consignor_city_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_city_name End Get End Property _ Public ReadOnly Property consignor_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_country_id End Get End Property _ Public ReadOnly Property consignor_postcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignor_postcode End Get End Property _ Public ReadOnly Property multiple_consignorColumn() As Global.System.Data.DataColumn Get Return Me.columnmultiple_consignor End Get End Property _ Public ReadOnly Property import_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columnimport_country_id End Get End Property _ Public ReadOnly Property consignee_eoriColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_eori End Get End Property _ Public ReadOnly Property consignee_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_name End Get End Property _ Public ReadOnly Property consignee_addressColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_address End Get End Property _ Public ReadOnly Property consignee_city_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_city_name End Get End Property _ Public ReadOnly Property consignee_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_country_id End Get End Property _ Public ReadOnly Property consignee_postcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_postcode End Get End Property _ Public ReadOnly Property multiple_consigneeColumn() As Global.System.Data.DataColumn Get Return Me.columnmultiple_consignee End Get End Property _ Public ReadOnly Property invoice_amountColumn() As Global.System.Data.DataColumn Get Return Me.columninvoice_amount End Get End Property _ Public ReadOnly Property invoice_currColumn() As Global.System.Data.DataColumn Get Return Me.columninvoice_curr End Get End Property _ Public ReadOnly Property goods_locationColumn() As Global.System.Data.DataColumn Get Return Me.columngoods_location End Get End Property _ Public ReadOnly Property border_transport_typeColumn() As Global.System.Data.DataColumn Get Return Me.columnborder_transport_type End Get End Property _ Public ReadOnly Property border_vehicle_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnborder_vehicle_code End Get End Property _ Public ReadOnly Property border_vehicle_counColumn() As Global.System.Data.DataColumn Get Return Me.columnborder_vehicle_coun End Get End Property _ Public ReadOnly Property inland_transport_typeColumn() As Global.System.Data.DataColumn Get Return Me.columninland_transport_type End Get End Property _ Public ReadOnly Property container_noColumn() As Global.System.Data.DataColumn Get Return Me.columncontainer_no End Get End Property _ Public ReadOnly Property gvms_interestedColumn() As Global.System.Data.DataColumn Get Return Me.columngvms_interested End Get End Property _ Public ReadOnly Property freight_amountColumn() As Global.System.Data.DataColumn Get Return Me.columnfreight_amount End Get End Property _ Public ReadOnly Property freight_currColumn() As Global.System.Data.DataColumn Get Return Me.columnfreight_curr End Get End Property _ Public ReadOnly Property payment_methodColumn() As Global.System.Data.DataColumn Get Return Me.columnpayment_method End Get End Property _ Public ReadOnly Property carrier_eoriColumn() As Global.System.Data.DataColumn Get Return Me.columncarrier_eori End Get End Property _ Public ReadOnly Property carrier_nameColumn() As Global.System.Data.DataColumn Get Return Me.columncarrier_name End Get End Property _ Public ReadOnly Property carrier_addressColumn() As Global.System.Data.DataColumn Get Return Me.columncarrier_address End Get End Property _ Public ReadOnly Property carrier_city_nameColumn() As Global.System.Data.DataColumn Get Return Me.columncarrier_city_name End Get End Property _ Public ReadOnly Property carrier_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columncarrier_country_id End Get End Property _ Public ReadOnly Property carrier_postcodeColumn() As Global.System.Data.DataColumn Get Return Me.columncarrier_postcode End Get End Property _ Public ReadOnly Property total_packagesColumn() As Global.System.Data.DataColumn Get Return Me.columntotal_packages End Get End Property _ Public ReadOnly Property nature_of_transactionColumn() As Global.System.Data.DataColumn Get Return Me.columnnature_of_transaction End Get End Property _ Public ReadOnly Property premises_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnpremises_code End Get End Property _ Public ReadOnly Property first_dan_noColumn() As Global.System.Data.DataColumn Get Return Me.columnfirst_dan_no End Get End Property _ Public ReadOnly Property second_dan_noColumn() As Global.System.Data.DataColumn Get Return Me.columnsecond_dan_no End Get End Property _ Public ReadOnly Property insurance_amountColumn() As Global.System.Data.DataColumn Get Return Me.columninsurance_amount End Get End Property _ Public ReadOnly Property insurance_currColumn() As Global.System.Data.DataColumn Get Return Me.columninsurance_curr End Get End Property _ Public ReadOnly Property other_amountsColumn() As Global.System.Data.DataColumn Get Return Me.columnother_amounts End Get End Property _ Public ReadOnly Property other_amounts_currColumn() As Global.System.Data.DataColumn Get Return Me.columnother_amounts_curr End Get End Property _ Public ReadOnly Property apportment_indicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnapportment_indicator End Get End Property _ Public ReadOnly Property total_gross_weightColumn() As Global.System.Data.DataColumn Get Return Me.columntotal_gross_weight End Get End Property _ Public ReadOnly Property total_net_weightColumn() As Global.System.Data.DataColumn Get Return Me.columntotal_net_weight End Get End Property _ Public ReadOnly Property airfreight_costColumn() As Global.System.Data.DataColumn Get Return Me.columnairfreight_cost End Get End Property _ Public ReadOnly Property vat_adjustmentColumn() As Global.System.Data.DataColumn Get Return Me.columnvat_adjustment End Get End Property _ Public ReadOnly Property vat_adjustment_currColumn() As Global.System.Data.DataColumn Get Return Me.columnvat_adjustment_curr End Get End Property _ Public ReadOnly Property discount_amountColumn() As Global.System.Data.DataColumn Get Return Me.columndiscount_amount End Get End Property _ Public ReadOnly Property discount_currColumn() As Global.System.Data.DataColumn Get Return Me.columndiscount_curr End Get End Property _ Public ReadOnly Property discount_rateColumn() As Global.System.Data.DataColumn Get Return Me.columndiscount_rate End Get End Property _ Public ReadOnly Property incotermColumn() As Global.System.Data.DataColumn Get Return Me.columnincoterm End Get End Property _ Public ReadOnly Property incoterm_locationColumn() As Global.System.Data.DataColumn Get Return Me.columnincoterm_location End Get End Property _ Public ReadOnly Property trader_refColumn() As Global.System.Data.DataColumn Get Return Me.columntrader_ref End Get End Property _ Public ReadOnly Property arrival_transport_typeColumn() As Global.System.Data.DataColumn Get Return Me.columnarrival_transport_type End Get End Property _ Public ReadOnly Property guarantee_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnguarantee_code End Get End Property _ Public ReadOnly Property guarantee_referenceColumn() As Global.System.Data.DataColumn Get Return Me.columnguarantee_reference End Get End Property _ Public ReadOnly Property createdColumn() As Global.System.Data.DataColumn Get Return Me.columncreated End Get End Property _ Public ReadOnly Property statusColumn() As Global.System.Data.DataColumn Get Return Me.columnstatus End Get End Property _ Public ReadOnly Property aviso_idColumn() As Global.System.Data.DataColumn Get Return Me.columnaviso_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 tblOregonNCTS_DeclarationDataRow Get Return CType(Me.Rows(index),tblOregonNCTS_DeclarationDataRow) End Get End Property _ Public Event tblOregonNCTS_DeclarationDataRowChanging As tblOregonNCTS_DeclarationDataRowChangeEventHandler _ Public Event tblOregonNCTS_DeclarationDataRowChanged As tblOregonNCTS_DeclarationDataRowChangeEventHandler _ Public Event tblOregonNCTS_DeclarationDataRowDeleting As tblOregonNCTS_DeclarationDataRowChangeEventHandler _ Public Event tblOregonNCTS_DeclarationDataRowDeleted As tblOregonNCTS_DeclarationDataRowChangeEventHandler _ Public Overloads Sub AddtblOregonNCTS_DeclarationDataRow(ByVal row As tblOregonNCTS_DeclarationDataRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOregonNCTS_DeclarationDataRow( _ ByVal auto_send As Boolean, _ ByVal badge_code As String, _ ByVal service_code As String, _ ByVal doc_type As String, _ ByVal declaration_type As String, _ ByVal commercial_ref As String, _ ByVal ducr As String, _ ByVal mucr As String, _ ByVal ducr_part As String, _ ByVal declarant_eori As String, _ ByVal declarant_name As String, _ ByVal declarant_address As String, _ ByVal declarant_city_name As String, _ ByVal declarant_country_id As String, _ ByVal declarant_postcode As String, _ ByVal declarant_rep As String, _ ByVal export_country_id As String, _ ByVal consignor_eori As String, _ ByVal consignor_name As String, _ ByVal consignor_address As String, _ ByVal consignor_city_name As String, _ ByVal consignor_country_id As String, _ ByVal consignor_postcode As String, _ ByVal multiple_consignor As Boolean, _ ByVal import_country_id As String, _ ByVal consignee_eori As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal multiple_consignee As Boolean, _ ByVal invoice_amount As String, _ ByVal invoice_curr As String, _ ByVal goods_location As String, _ ByVal border_transport_type As String, _ ByVal border_vehicle_code As String, _ ByVal border_vehicle_coun As String, _ ByVal inland_transport_type As String, _ ByVal container_no As String, _ ByVal gvms_interested As Boolean, _ ByVal freight_amount As String, _ ByVal freight_curr As String, _ ByVal payment_method As String, _ ByVal carrier_eori As String, _ ByVal carrier_name As String, _ ByVal carrier_address As String, _ ByVal carrier_city_name As String, _ ByVal carrier_country_id As String, _ ByVal carrier_postcode As String, _ ByVal total_packages As Integer, _ ByVal nature_of_transaction As String, _ ByVal premises_code As String, _ ByVal first_dan_no As String, _ ByVal second_dan_no As String, _ ByVal insurance_amount As String, _ ByVal insurance_curr As String, _ ByVal other_amounts As String, _ ByVal other_amounts_curr As String, _ ByVal apportment_indicator As String, _ ByVal total_gross_weight As String, _ ByVal total_net_weight As String, _ ByVal airfreight_cost As String, _ ByVal vat_adjustment As String, _ ByVal vat_adjustment_curr As String, _ ByVal discount_amount As String, _ ByVal discount_curr As String, _ ByVal discount_rate As String, _ ByVal incoterm As String, _ ByVal incoterm_location As String, _ ByVal trader_ref As String, _ ByVal arrival_transport_type As String, _ ByVal guarantee_code As Integer, _ ByVal guarantee_reference As String, _ ByVal created As Date, _ ByVal status As String, _ ByVal aviso_id As String) As tblOregonNCTS_DeclarationDataRow Dim rowtblOregonNCTS_DeclarationDataRow As tblOregonNCTS_DeclarationDataRow = CType(Me.NewRow,tblOregonNCTS_DeclarationDataRow) Dim columnValuesArray() As Object = New Object() {Nothing, auto_send, badge_code, service_code, doc_type, declaration_type, commercial_ref, ducr, mucr, ducr_part, declarant_eori, declarant_name, declarant_address, declarant_city_name, declarant_country_id, declarant_postcode, declarant_rep, export_country_id, consignor_eori, consignor_name, consignor_address, consignor_city_name, consignor_country_id, consignor_postcode, multiple_consignor, import_country_id, consignee_eori, consignee_name, consignee_address, consignee_city_name, consignee_country_id, consignee_postcode, multiple_consignee, invoice_amount, invoice_curr, goods_location, border_transport_type, border_vehicle_code, border_vehicle_coun, inland_transport_type, container_no, gvms_interested, freight_amount, freight_curr, payment_method, carrier_eori, carrier_name, carrier_address, carrier_city_name, carrier_country_id, carrier_postcode, total_packages, nature_of_transaction, premises_code, first_dan_no, second_dan_no, insurance_amount, insurance_curr, other_amounts, other_amounts_curr, apportment_indicator, total_gross_weight, total_net_weight, airfreight_cost, vat_adjustment, vat_adjustment_curr, discount_amount, discount_curr, discount_rate, incoterm, incoterm_location, trader_ref, arrival_transport_type, guarantee_code, guarantee_reference, created, status, aviso_id} rowtblOregonNCTS_DeclarationDataRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOregonNCTS_DeclarationDataRow) Return rowtblOregonNCTS_DeclarationDataRow End Function _ Public Function FindById(ByVal Id As Integer) As tblOregonNCTS_DeclarationDataRow Return CType(Me.Rows.Find(New Object() {Id}),tblOregonNCTS_DeclarationDataRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOregonNCTS_DeclarationDataDataTable = CType(MyBase.Clone,tblOregonNCTS_DeclarationDataDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOregonNCTS_DeclarationDataDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columnauto_send = MyBase.Columns("auto_send") Me.columnbadge_code = MyBase.Columns("badge_code") Me.columnservice_code = MyBase.Columns("service_code") Me.columndoc_type = MyBase.Columns("doc_type") Me.columndeclaration_type = MyBase.Columns("declaration_type") Me.columncommercial_ref = MyBase.Columns("commercial_ref") Me.columnducr = MyBase.Columns("ducr") Me.columnmucr = MyBase.Columns("mucr") Me.columnducr_part = MyBase.Columns("ducr_part") Me.columndeclarant_eori = MyBase.Columns("declarant_eori") Me.columndeclarant_name = MyBase.Columns("declarant_name") Me.columndeclarant_address = MyBase.Columns("declarant_address") Me.columndeclarant_city_name = MyBase.Columns("declarant_city_name") Me.columndeclarant_country_id = MyBase.Columns("declarant_country_id") Me.columndeclarant_postcode = MyBase.Columns("declarant_postcode") Me.columndeclarant_rep = MyBase.Columns("declarant_rep") Me.columnexport_country_id = MyBase.Columns("export_country_id") Me.columnconsignor_eori = MyBase.Columns("consignor_eori") Me.columnconsignor_name = MyBase.Columns("consignor_name") Me.columnconsignor_address = MyBase.Columns("consignor_address") Me.columnconsignor_city_name = MyBase.Columns("consignor_city_name") Me.columnconsignor_country_id = MyBase.Columns("consignor_country_id") Me.columnconsignor_postcode = MyBase.Columns("consignor_postcode") Me.columnmultiple_consignor = MyBase.Columns("multiple_consignor") Me.columnimport_country_id = MyBase.Columns("import_country_id") Me.columnconsignee_eori = MyBase.Columns("consignee_eori") Me.columnconsignee_name = MyBase.Columns("consignee_name") Me.columnconsignee_address = MyBase.Columns("consignee_address") Me.columnconsignee_city_name = MyBase.Columns("consignee_city_name") Me.columnconsignee_country_id = MyBase.Columns("consignee_country_id") Me.columnconsignee_postcode = MyBase.Columns("consignee_postcode") Me.columnmultiple_consignee = MyBase.Columns("multiple_consignee") Me.columninvoice_amount = MyBase.Columns("invoice_amount") Me.columninvoice_curr = MyBase.Columns("invoice_curr") Me.columngoods_location = MyBase.Columns("goods_location") Me.columnborder_transport_type = MyBase.Columns("border_transport_type") Me.columnborder_vehicle_code = MyBase.Columns("border_vehicle_code") Me.columnborder_vehicle_coun = MyBase.Columns("border_vehicle_coun") Me.columninland_transport_type = MyBase.Columns("inland_transport_type") Me.columncontainer_no = MyBase.Columns("container_no") Me.columngvms_interested = MyBase.Columns("gvms_interested") Me.columnfreight_amount = MyBase.Columns("freight_amount") Me.columnfreight_curr = MyBase.Columns("freight_curr") Me.columnpayment_method = MyBase.Columns("payment_method") Me.columncarrier_eori = MyBase.Columns("carrier_eori") Me.columncarrier_name = MyBase.Columns("carrier_name") Me.columncarrier_address = MyBase.Columns("carrier_address") Me.columncarrier_city_name = MyBase.Columns("carrier_city_name") Me.columncarrier_country_id = MyBase.Columns("carrier_country_id") Me.columncarrier_postcode = MyBase.Columns("carrier_postcode") Me.columntotal_packages = MyBase.Columns("total_packages") Me.columnnature_of_transaction = MyBase.Columns("nature_of_transaction") Me.columnpremises_code = MyBase.Columns("premises_code") Me.columnfirst_dan_no = MyBase.Columns("first_dan_no") Me.columnsecond_dan_no = MyBase.Columns("second_dan_no") Me.columninsurance_amount = MyBase.Columns("insurance_amount") Me.columninsurance_curr = MyBase.Columns("insurance_curr") Me.columnother_amounts = MyBase.Columns("other_amounts") Me.columnother_amounts_curr = MyBase.Columns("other_amounts_curr") Me.columnapportment_indicator = MyBase.Columns("apportment_indicator") Me.columntotal_gross_weight = MyBase.Columns("total_gross_weight") Me.columntotal_net_weight = MyBase.Columns("total_net_weight") Me.columnairfreight_cost = MyBase.Columns("airfreight_cost") Me.columnvat_adjustment = MyBase.Columns("vat_adjustment") Me.columnvat_adjustment_curr = MyBase.Columns("vat_adjustment_curr") Me.columndiscount_amount = MyBase.Columns("discount_amount") Me.columndiscount_curr = MyBase.Columns("discount_curr") Me.columndiscount_rate = MyBase.Columns("discount_rate") Me.columnincoterm = MyBase.Columns("incoterm") Me.columnincoterm_location = MyBase.Columns("incoterm_location") Me.columntrader_ref = MyBase.Columns("trader_ref") Me.columnarrival_transport_type = MyBase.Columns("arrival_transport_type") Me.columnguarantee_code = MyBase.Columns("guarantee_code") Me.columnguarantee_reference = MyBase.Columns("guarantee_reference") Me.columncreated = MyBase.Columns("created") Me.columnstatus = MyBase.Columns("status") Me.columnaviso_id = MyBase.Columns("aviso_id") 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.columnauto_send = New Global.System.Data.DataColumn("auto_send", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnauto_send) Me.columnbadge_code = New Global.System.Data.DataColumn("badge_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbadge_code) Me.columnservice_code = New Global.System.Data.DataColumn("service_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnservice_code) Me.columndoc_type = New Global.System.Data.DataColumn("doc_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndoc_type) Me.columndeclaration_type = New Global.System.Data.DataColumn("declaration_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclaration_type) Me.columncommercial_ref = New Global.System.Data.DataColumn("commercial_ref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncommercial_ref) Me.columnducr = New Global.System.Data.DataColumn("ducr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnducr) Me.columnmucr = New Global.System.Data.DataColumn("mucr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmucr) Me.columnducr_part = New Global.System.Data.DataColumn("ducr_part", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnducr_part) Me.columndeclarant_eori = New Global.System.Data.DataColumn("declarant_eori", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclarant_eori) Me.columndeclarant_name = New Global.System.Data.DataColumn("declarant_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclarant_name) Me.columndeclarant_address = New Global.System.Data.DataColumn("declarant_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclarant_address) Me.columndeclarant_city_name = New Global.System.Data.DataColumn("declarant_city_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclarant_city_name) Me.columndeclarant_country_id = New Global.System.Data.DataColumn("declarant_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclarant_country_id) Me.columndeclarant_postcode = New Global.System.Data.DataColumn("declarant_postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclarant_postcode) Me.columndeclarant_rep = New Global.System.Data.DataColumn("declarant_rep", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclarant_rep) Me.columnexport_country_id = New Global.System.Data.DataColumn("export_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnexport_country_id) Me.columnconsignor_eori = New Global.System.Data.DataColumn("consignor_eori", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_eori) Me.columnconsignor_name = New Global.System.Data.DataColumn("consignor_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_name) Me.columnconsignor_address = New Global.System.Data.DataColumn("consignor_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_address) Me.columnconsignor_city_name = New Global.System.Data.DataColumn("consignor_city_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_city_name) Me.columnconsignor_country_id = New Global.System.Data.DataColumn("consignor_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_country_id) Me.columnconsignor_postcode = New Global.System.Data.DataColumn("consignor_postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignor_postcode) Me.columnmultiple_consignor = New Global.System.Data.DataColumn("multiple_consignor", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmultiple_consignor) Me.columnimport_country_id = New Global.System.Data.DataColumn("import_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnimport_country_id) Me.columnconsignee_eori = New Global.System.Data.DataColumn("consignee_eori", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_eori) Me.columnconsignee_name = New Global.System.Data.DataColumn("consignee_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_name) Me.columnconsignee_address = New Global.System.Data.DataColumn("consignee_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_address) Me.columnconsignee_city_name = New Global.System.Data.DataColumn("consignee_city_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_city_name) Me.columnconsignee_country_id = New Global.System.Data.DataColumn("consignee_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_country_id) Me.columnconsignee_postcode = New Global.System.Data.DataColumn("consignee_postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_postcode) Me.columnmultiple_consignee = New Global.System.Data.DataColumn("multiple_consignee", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmultiple_consignee) Me.columninvoice_amount = New Global.System.Data.DataColumn("invoice_amount", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninvoice_amount) Me.columninvoice_curr = New Global.System.Data.DataColumn("invoice_curr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninvoice_curr) Me.columngoods_location = New Global.System.Data.DataColumn("goods_location", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngoods_location) Me.columnborder_transport_type = New Global.System.Data.DataColumn("border_transport_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnborder_transport_type) Me.columnborder_vehicle_code = New Global.System.Data.DataColumn("border_vehicle_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnborder_vehicle_code) Me.columnborder_vehicle_coun = New Global.System.Data.DataColumn("border_vehicle_coun", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnborder_vehicle_coun) Me.columninland_transport_type = New Global.System.Data.DataColumn("inland_transport_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninland_transport_type) Me.columncontainer_no = New Global.System.Data.DataColumn("container_no", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncontainer_no) Me.columngvms_interested = New Global.System.Data.DataColumn("gvms_interested", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngvms_interested) Me.columnfreight_amount = New Global.System.Data.DataColumn("freight_amount", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfreight_amount) Me.columnfreight_curr = New Global.System.Data.DataColumn("freight_curr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfreight_curr) Me.columnpayment_method = New Global.System.Data.DataColumn("payment_method", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpayment_method) Me.columncarrier_eori = New Global.System.Data.DataColumn("carrier_eori", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncarrier_eori) Me.columncarrier_name = New Global.System.Data.DataColumn("carrier_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncarrier_name) Me.columncarrier_address = New Global.System.Data.DataColumn("carrier_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncarrier_address) Me.columncarrier_city_name = New Global.System.Data.DataColumn("carrier_city_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncarrier_city_name) Me.columncarrier_country_id = New Global.System.Data.DataColumn("carrier_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncarrier_country_id) Me.columncarrier_postcode = New Global.System.Data.DataColumn("carrier_postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncarrier_postcode) Me.columntotal_packages = New Global.System.Data.DataColumn("total_packages", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntotal_packages) Me.columnnature_of_transaction = New Global.System.Data.DataColumn("nature_of_transaction", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnature_of_transaction) Me.columnpremises_code = New Global.System.Data.DataColumn("premises_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpremises_code) Me.columnfirst_dan_no = New Global.System.Data.DataColumn("first_dan_no", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfirst_dan_no) Me.columnsecond_dan_no = New Global.System.Data.DataColumn("second_dan_no", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsecond_dan_no) Me.columninsurance_amount = New Global.System.Data.DataColumn("insurance_amount", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninsurance_amount) Me.columninsurance_curr = New Global.System.Data.DataColumn("insurance_curr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninsurance_curr) Me.columnother_amounts = New Global.System.Data.DataColumn("other_amounts", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnother_amounts) Me.columnother_amounts_curr = New Global.System.Data.DataColumn("other_amounts_curr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnother_amounts_curr) Me.columnapportment_indicator = New Global.System.Data.DataColumn("apportment_indicator", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnapportment_indicator) Me.columntotal_gross_weight = New Global.System.Data.DataColumn("total_gross_weight", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntotal_gross_weight) Me.columntotal_net_weight = New Global.System.Data.DataColumn("total_net_weight", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntotal_net_weight) Me.columnairfreight_cost = New Global.System.Data.DataColumn("airfreight_cost", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnairfreight_cost) Me.columnvat_adjustment = New Global.System.Data.DataColumn("vat_adjustment", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvat_adjustment) Me.columnvat_adjustment_curr = New Global.System.Data.DataColumn("vat_adjustment_curr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvat_adjustment_curr) Me.columndiscount_amount = New Global.System.Data.DataColumn("discount_amount", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndiscount_amount) Me.columndiscount_curr = New Global.System.Data.DataColumn("discount_curr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndiscount_curr) Me.columndiscount_rate = New Global.System.Data.DataColumn("discount_rate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndiscount_rate) Me.columnincoterm = New Global.System.Data.DataColumn("incoterm", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnincoterm) Me.columnincoterm_location = New Global.System.Data.DataColumn("incoterm_location", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnincoterm_location) Me.columntrader_ref = New Global.System.Data.DataColumn("trader_ref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrader_ref) Me.columnarrival_transport_type = New Global.System.Data.DataColumn("arrival_transport_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnarrival_transport_type) Me.columnguarantee_code = New Global.System.Data.DataColumn("guarantee_code", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnguarantee_code) Me.columnguarantee_reference = New Global.System.Data.DataColumn("guarantee_reference", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnguarantee_reference) Me.columncreated = New Global.System.Data.DataColumn("created", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncreated) Me.columnstatus = New Global.System.Data.DataColumn("status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstatus) Me.columnaviso_id = New Global.System.Data.DataColumn("aviso_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaviso_id) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columnauto_send.AllowDBNull = false Me.columnbadge_code.MaxLength = 50 Me.columnservice_code.MaxLength = 50 Me.columndoc_type.MaxLength = 50 Me.columndeclaration_type.MaxLength = 50 Me.columncommercial_ref.MaxLength = 50 Me.columnducr.MaxLength = 50 Me.columnmucr.MaxLength = 50 Me.columnducr_part.MaxLength = 50 Me.columndeclarant_eori.MaxLength = 50 Me.columndeclarant_name.MaxLength = 50 Me.columndeclarant_address.MaxLength = 50 Me.columndeclarant_city_name.MaxLength = 50 Me.columndeclarant_country_id.MaxLength = 50 Me.columndeclarant_postcode.MaxLength = 50 Me.columndeclarant_rep.MaxLength = 50 Me.columnexport_country_id.MaxLength = 50 Me.columnconsignor_eori.MaxLength = 50 Me.columnconsignor_name.MaxLength = 50 Me.columnconsignor_address.MaxLength = 50 Me.columnconsignor_city_name.MaxLength = 50 Me.columnconsignor_country_id.MaxLength = 50 Me.columnconsignor_postcode.MaxLength = 50 Me.columnmultiple_consignor.AllowDBNull = false Me.columnimport_country_id.MaxLength = 50 Me.columnconsignee_eori.MaxLength = 50 Me.columnconsignee_name.MaxLength = 50 Me.columnconsignee_address.MaxLength = 50 Me.columnconsignee_city_name.MaxLength = 50 Me.columnconsignee_country_id.MaxLength = 50 Me.columnconsignee_postcode.MaxLength = 50 Me.columnmultiple_consignee.AllowDBNull = false Me.columninvoice_amount.MaxLength = 50 Me.columninvoice_curr.MaxLength = 50 Me.columngoods_location.MaxLength = 50 Me.columnborder_transport_type.MaxLength = 50 Me.columnborder_vehicle_code.MaxLength = 50 Me.columnborder_vehicle_coun.MaxLength = 50 Me.columninland_transport_type.MaxLength = 50 Me.columncontainer_no.MaxLength = 50 Me.columngvms_interested.AllowDBNull = false Me.columnfreight_amount.MaxLength = 50 Me.columnfreight_curr.MaxLength = 50 Me.columnpayment_method.MaxLength = 50 Me.columncarrier_eori.MaxLength = 50 Me.columncarrier_name.MaxLength = 50 Me.columncarrier_address.MaxLength = 50 Me.columncarrier_city_name.MaxLength = 50 Me.columncarrier_country_id.MaxLength = 50 Me.columncarrier_postcode.MaxLength = 50 Me.columntotal_packages.AllowDBNull = false Me.columnnature_of_transaction.MaxLength = 50 Me.columnpremises_code.MaxLength = 50 Me.columnfirst_dan_no.MaxLength = 50 Me.columnsecond_dan_no.MaxLength = 50 Me.columninsurance_amount.MaxLength = 50 Me.columninsurance_curr.MaxLength = 50 Me.columnother_amounts.MaxLength = 50 Me.columnother_amounts_curr.MaxLength = 50 Me.columnapportment_indicator.MaxLength = 50 Me.columntotal_gross_weight.MaxLength = 50 Me.columntotal_net_weight.MaxLength = 50 Me.columnairfreight_cost.MaxLength = 50 Me.columnvat_adjustment.MaxLength = 50 Me.columnvat_adjustment_curr.MaxLength = 50 Me.columndiscount_amount.MaxLength = 50 Me.columndiscount_curr.MaxLength = 50 Me.columndiscount_rate.MaxLength = 50 Me.columnincoterm.MaxLength = 50 Me.columnincoterm_location.MaxLength = 50 Me.columntrader_ref.MaxLength = 50 Me.columnarrival_transport_type.MaxLength = 50 Me.columnguarantee_code.AllowDBNull = false Me.columnguarantee_reference.MaxLength = 50 Me.columncreated.AllowDBNull = false Me.columnstatus.MaxLength = 50 Me.columnaviso_id.MaxLength = 50 End Sub _ Public Function NewtblOregonNCTS_DeclarationDataRow() As tblOregonNCTS_DeclarationDataRow Return CType(Me.NewRow,tblOregonNCTS_DeclarationDataRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOregonNCTS_DeclarationDataRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOregonNCTS_DeclarationDataRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOregonNCTS_DeclarationDataRowChangedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_DeclarationDataRowChanged(Me, New tblOregonNCTS_DeclarationDataRowChangeEvent(CType(e.Row,tblOregonNCTS_DeclarationDataRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOregonNCTS_DeclarationDataRowChangingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_DeclarationDataRowChanging(Me, New tblOregonNCTS_DeclarationDataRowChangeEvent(CType(e.Row,tblOregonNCTS_DeclarationDataRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOregonNCTS_DeclarationDataRowDeletedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_DeclarationDataRowDeleted(Me, New tblOregonNCTS_DeclarationDataRowChangeEvent(CType(e.Row,tblOregonNCTS_DeclarationDataRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOregonNCTS_DeclarationDataRowDeletingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_DeclarationDataRowDeleting(Me, New tblOregonNCTS_DeclarationDataRowChangeEvent(CType(e.Row,tblOregonNCTS_DeclarationDataRow), e.Action)) End If End Sub _ Public Sub RemovetblOregonNCTS_DeclarationDataRow(ByVal row As tblOregonNCTS_DeclarationDataRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOregonNCTS_DeclarationDataDataTable" 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 tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable Inherits Global.System.Data.TypedTableBase(Of tblOregonNCTS_Declarations_AdditionalCodesAttributeRow) Private columnId As Global.System.Data.DataColumn Private columncode As Global.System.Data.DataColumn Private columnnotes As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOregonNCTS_Declarations_AdditionalCodesAttribute" 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 codeColumn() As Global.System.Data.DataColumn Get Return Me.columncode End Get End Property _ Public ReadOnly Property notesColumn() As Global.System.Data.DataColumn Get Return Me.columnnotes 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 tblOregonNCTS_Declarations_AdditionalCodesAttributeRow Get Return CType(Me.Rows(index),tblOregonNCTS_Declarations_AdditionalCodesAttributeRow) End Get End Property _ Public Event tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChanging As tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChanged As tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_AdditionalCodesAttributeRowDeleting As tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_AdditionalCodesAttributeRowDeleted As tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEventHandler _ Public Overloads Sub AddtblOregonNCTS_Declarations_AdditionalCodesAttributeRow(ByVal row As tblOregonNCTS_Declarations_AdditionalCodesAttributeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOregonNCTS_Declarations_AdditionalCodesAttributeRow(ByVal code As String, ByVal notes As String) As tblOregonNCTS_Declarations_AdditionalCodesAttributeRow Dim rowtblOregonNCTS_Declarations_AdditionalCodesAttributeRow As tblOregonNCTS_Declarations_AdditionalCodesAttributeRow = CType(Me.NewRow,tblOregonNCTS_Declarations_AdditionalCodesAttributeRow) Dim columnValuesArray() As Object = New Object() {Nothing, code, notes} rowtblOregonNCTS_Declarations_AdditionalCodesAttributeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOregonNCTS_Declarations_AdditionalCodesAttributeRow) Return rowtblOregonNCTS_Declarations_AdditionalCodesAttributeRow End Function _ Public Function FindById(ByVal Id As Integer) As tblOregonNCTS_Declarations_AdditionalCodesAttributeRow Return CType(Me.Rows.Find(New Object() {Id}),tblOregonNCTS_Declarations_AdditionalCodesAttributeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable = CType(MyBase.Clone,tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columncode = MyBase.Columns("code") Me.columnnotes = MyBase.Columns("notes") 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.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncode) Me.columnnotes = New Global.System.Data.DataColumn("notes", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnotes) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columncode.MaxLength = 50 Me.columnnotes.MaxLength = 50 End Sub _ Public Function NewtblOregonNCTS_Declarations_AdditionalCodesAttributeRow() As tblOregonNCTS_Declarations_AdditionalCodesAttributeRow Return CType(Me.NewRow,tblOregonNCTS_Declarations_AdditionalCodesAttributeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOregonNCTS_Declarations_AdditionalCodesAttributeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOregonNCTS_Declarations_AdditionalCodesAttributeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChanged(Me, New tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_AdditionalCodesAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChanging(Me, New tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_AdditionalCodesAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOregonNCTS_Declarations_AdditionalCodesAttributeRowDeletedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_AdditionalCodesAttributeRowDeleted(Me, New tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_AdditionalCodesAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOregonNCTS_Declarations_AdditionalCodesAttributeRowDeletingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_AdditionalCodesAttributeRowDeleting(Me, New tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_AdditionalCodesAttributeRow), e.Action)) End If End Sub _ Public Sub RemovetblOregonNCTS_Declarations_AdditionalCodesAttributeRow(ByVal row As tblOregonNCTS_Declarations_AdditionalCodesAttributeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable" 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 tblOregonNCTS_Declarations_DocumentsAttributeDataTable Inherits Global.System.Data.TypedTableBase(Of tblOregonNCTS_Declarations_DocumentsAttributeRow) Private columnId As Global.System.Data.DataColumn Private columngoods_attribute_id As Global.System.Data.DataColumn Private columndoc_type As Global.System.Data.DataColumn Private columndoc_no As Global.System.Data.DataColumn Private columnpre_post As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOregonNCTS_Declarations_DocumentsAttribute" 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 goods_attribute_idColumn() As Global.System.Data.DataColumn Get Return Me.columngoods_attribute_id End Get End Property _ Public ReadOnly Property doc_typeColumn() As Global.System.Data.DataColumn Get Return Me.columndoc_type End Get End Property _ Public ReadOnly Property doc_noColumn() As Global.System.Data.DataColumn Get Return Me.columndoc_no End Get End Property _ Public ReadOnly Property pre_postColumn() As Global.System.Data.DataColumn Get Return Me.columnpre_post 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 tblOregonNCTS_Declarations_DocumentsAttributeRow Get Return CType(Me.Rows(index),tblOregonNCTS_Declarations_DocumentsAttributeRow) End Get End Property _ Public Event tblOregonNCTS_Declarations_DocumentsAttributeRowChanging As tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_DocumentsAttributeRowChanged As tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_DocumentsAttributeRowDeleting As tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_DocumentsAttributeRowDeleted As tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEventHandler _ Public Overloads Sub AddtblOregonNCTS_Declarations_DocumentsAttributeRow(ByVal row As tblOregonNCTS_Declarations_DocumentsAttributeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOregonNCTS_Declarations_DocumentsAttributeRow(ByVal goods_attribute_id As Integer, ByVal doc_type As String, ByVal doc_no As String, ByVal pre_post As String) As tblOregonNCTS_Declarations_DocumentsAttributeRow Dim rowtblOregonNCTS_Declarations_DocumentsAttributeRow As tblOregonNCTS_Declarations_DocumentsAttributeRow = CType(Me.NewRow,tblOregonNCTS_Declarations_DocumentsAttributeRow) Dim columnValuesArray() As Object = New Object() {Nothing, goods_attribute_id, doc_type, doc_no, pre_post} rowtblOregonNCTS_Declarations_DocumentsAttributeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOregonNCTS_Declarations_DocumentsAttributeRow) Return rowtblOregonNCTS_Declarations_DocumentsAttributeRow End Function _ Public Function FindById(ByVal Id As Integer) As tblOregonNCTS_Declarations_DocumentsAttributeRow Return CType(Me.Rows.Find(New Object() {Id}),tblOregonNCTS_Declarations_DocumentsAttributeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOregonNCTS_Declarations_DocumentsAttributeDataTable = CType(MyBase.Clone,tblOregonNCTS_Declarations_DocumentsAttributeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOregonNCTS_Declarations_DocumentsAttributeDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columngoods_attribute_id = MyBase.Columns("goods_attribute_id") Me.columndoc_type = MyBase.Columns("doc_type") Me.columndoc_no = MyBase.Columns("doc_no") Me.columnpre_post = MyBase.Columns("pre_post") 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.columngoods_attribute_id = New Global.System.Data.DataColumn("goods_attribute_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngoods_attribute_id) Me.columndoc_type = New Global.System.Data.DataColumn("doc_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndoc_type) Me.columndoc_no = New Global.System.Data.DataColumn("doc_no", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndoc_no) Me.columnpre_post = New Global.System.Data.DataColumn("pre_post", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpre_post) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columngoods_attribute_id.AllowDBNull = false Me.columndoc_type.MaxLength = 50 Me.columndoc_no.MaxLength = 50 Me.columnpre_post.MaxLength = 50 End Sub _ Public Function NewtblOregonNCTS_Declarations_DocumentsAttributeRow() As tblOregonNCTS_Declarations_DocumentsAttributeRow Return CType(Me.NewRow,tblOregonNCTS_Declarations_DocumentsAttributeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOregonNCTS_Declarations_DocumentsAttributeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOregonNCTS_Declarations_DocumentsAttributeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOregonNCTS_Declarations_DocumentsAttributeRowChangedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_DocumentsAttributeRowChanged(Me, New tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_DocumentsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOregonNCTS_Declarations_DocumentsAttributeRowChangingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_DocumentsAttributeRowChanging(Me, New tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_DocumentsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOregonNCTS_Declarations_DocumentsAttributeRowDeletedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_DocumentsAttributeRowDeleted(Me, New tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_DocumentsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOregonNCTS_Declarations_DocumentsAttributeRowDeletingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_DocumentsAttributeRowDeleting(Me, New tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_DocumentsAttributeRow), e.Action)) End If End Sub _ Public Sub RemovetblOregonNCTS_Declarations_DocumentsAttributeRow(ByVal row As tblOregonNCTS_Declarations_DocumentsAttributeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOregonNCTS_Declarations_DocumentsAttributeDataTable" 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 tblOregonNCTS_Declarations_GoodsAttributeDataTable Inherits Global.System.Data.TypedTableBase(Of tblOregonNCTS_Declarations_GoodsAttributeRow) Private columnId As Global.System.Data.DataColumn Private columncommodity As Global.System.Data.DataColumn Private columngtip_code As Global.System.Data.DataColumn Private columngtip_language As Global.System.Data.DataColumn Private columnbrut_wg As Global.System.Data.DataColumn Private columnnet_wg As Global.System.Data.DataColumn Private columnsender_name As Global.System.Data.DataColumn Private columnsender_address As Global.System.Data.DataColumn Private columnsender_city_name As Global.System.Data.DataColumn Private columnsender_country_id As Global.System.Data.DataColumn Private columnsender_postcode As Global.System.Data.DataColumn Private columnsender_eori_code As Global.System.Data.DataColumn Private columnconsignee_name As Global.System.Data.DataColumn Private columnconsignee_address As Global.System.Data.DataColumn Private columnconsignee_city_name As Global.System.Data.DataColumn Private columnconsignee_country_id As Global.System.Data.DataColumn Private columnconsignee_postcode As Global.System.Data.DataColumn Private columnconsignee_eori_code As Global.System.Data.DataColumn Private columninvoice_amount As Global.System.Data.DataColumn Private columninvoice_curr As Global.System.Data.DataColumn Private columncpc_code As Global.System.Data.DataColumn Private columnadditional_cpc_code As Global.System.Data.DataColumn Private columncontainer_no As Global.System.Data.DataColumn Private columnpreferential_country_id As Global.System.Data.DataColumn Private columncus_code As Global.System.Data.DataColumn Private columnnature_of_transaction As Global.System.Data.DataColumn Private columnadditional_commodity_codes As Global.System.Data.DataColumn Private columnorigin_country_id As Global.System.Data.DataColumn Private columnpreference_request As Global.System.Data.DataColumn Private columnquota_desc As Global.System.Data.DataColumn Private columnvaluation_method As Global.System.Data.DataColumn Private columnvaluation_adjustment As Global.System.Data.DataColumn Private columnthird_quantity_type As Global.System.Data.DataColumn Private columnthird_quantity As Global.System.Data.DataColumn Private columnsupplementary_unit As Global.System.Data.DataColumn Private columndeclarationdata_id As Global.System.Data.DataColumn Private columnline_no As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOregonNCTS_Declarations_GoodsAttribute" 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 commodityColumn() As Global.System.Data.DataColumn Get Return Me.columncommodity End Get End Property _ Public ReadOnly Property gtip_codeColumn() As Global.System.Data.DataColumn Get Return Me.columngtip_code End Get End Property _ Public ReadOnly Property gtip_languageColumn() As Global.System.Data.DataColumn Get Return Me.columngtip_language End Get End Property _ Public ReadOnly Property brut_wgColumn() As Global.System.Data.DataColumn Get Return Me.columnbrut_wg End Get End Property _ Public ReadOnly Property net_wgColumn() As Global.System.Data.DataColumn Get Return Me.columnnet_wg End Get End Property _ Public ReadOnly Property sender_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnsender_name End Get End Property _ Public ReadOnly Property sender_addressColumn() As Global.System.Data.DataColumn Get Return Me.columnsender_address End Get End Property _ Public ReadOnly Property sender_city_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnsender_city_name End Get End Property _ Public ReadOnly Property sender_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columnsender_country_id End Get End Property _ Public ReadOnly Property sender_postcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnsender_postcode End Get End Property _ Public ReadOnly Property sender_eori_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnsender_eori_code End Get End Property _ Public ReadOnly Property consignee_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_name End Get End Property _ Public ReadOnly Property consignee_addressColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_address End Get End Property _ Public ReadOnly Property consignee_city_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_city_name End Get End Property _ Public ReadOnly Property consignee_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_country_id End Get End Property _ Public ReadOnly Property consignee_postcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_postcode End Get End Property _ Public ReadOnly Property consignee_eori_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnconsignee_eori_code End Get End Property _ Public ReadOnly Property invoice_amountColumn() As Global.System.Data.DataColumn Get Return Me.columninvoice_amount End Get End Property _ Public ReadOnly Property invoice_currColumn() As Global.System.Data.DataColumn Get Return Me.columninvoice_curr End Get End Property _ Public ReadOnly Property cpc_codeColumn() As Global.System.Data.DataColumn Get Return Me.columncpc_code End Get End Property _ Public ReadOnly Property additional_cpc_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnadditional_cpc_code End Get End Property _ Public ReadOnly Property container_noColumn() As Global.System.Data.DataColumn Get Return Me.columncontainer_no End Get End Property _ Public ReadOnly Property preferential_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columnpreferential_country_id End Get End Property _ Public ReadOnly Property cus_codeColumn() As Global.System.Data.DataColumn Get Return Me.columncus_code End Get End Property _ Public ReadOnly Property nature_of_transactionColumn() As Global.System.Data.DataColumn Get Return Me.columnnature_of_transaction End Get End Property _ Public ReadOnly Property additional_commodity_codesColumn() As Global.System.Data.DataColumn Get Return Me.columnadditional_commodity_codes End Get End Property _ Public ReadOnly Property origin_country_idColumn() As Global.System.Data.DataColumn Get Return Me.columnorigin_country_id End Get End Property _ Public ReadOnly Property preference_requestColumn() As Global.System.Data.DataColumn Get Return Me.columnpreference_request End Get End Property _ Public ReadOnly Property quota_descColumn() As Global.System.Data.DataColumn Get Return Me.columnquota_desc End Get End Property _ Public ReadOnly Property valuation_methodColumn() As Global.System.Data.DataColumn Get Return Me.columnvaluation_method End Get End Property _ Public ReadOnly Property valuation_adjustmentColumn() As Global.System.Data.DataColumn Get Return Me.columnvaluation_adjustment End Get End Property _ Public ReadOnly Property third_quantity_typeColumn() As Global.System.Data.DataColumn Get Return Me.columnthird_quantity_type End Get End Property _ Public ReadOnly Property third_quantityColumn() As Global.System.Data.DataColumn Get Return Me.columnthird_quantity End Get End Property _ Public ReadOnly Property supplementary_unitColumn() As Global.System.Data.DataColumn Get Return Me.columnsupplementary_unit End Get End Property _ Public ReadOnly Property declarationdata_idColumn() As Global.System.Data.DataColumn Get Return Me.columndeclarationdata_id End Get End Property _ Public ReadOnly Property line_noColumn() As Global.System.Data.DataColumn Get Return Me.columnline_no 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 tblOregonNCTS_Declarations_GoodsAttributeRow Get Return CType(Me.Rows(index),tblOregonNCTS_Declarations_GoodsAttributeRow) End Get End Property _ Public Event tblOregonNCTS_Declarations_GoodsAttributeRowChanging As tblOregonNCTS_Declarations_GoodsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_GoodsAttributeRowChanged As tblOregonNCTS_Declarations_GoodsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_GoodsAttributeRowDeleting As tblOregonNCTS_Declarations_GoodsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_GoodsAttributeRowDeleted As tblOregonNCTS_Declarations_GoodsAttributeRowChangeEventHandler _ Public Overloads Sub AddtblOregonNCTS_Declarations_GoodsAttributeRow(ByVal row As tblOregonNCTS_Declarations_GoodsAttributeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOregonNCTS_Declarations_GoodsAttributeRow( _ ByVal commodity As String, _ ByVal gtip_code As String, _ ByVal gtip_language As String, _ ByVal brut_wg As Decimal, _ ByVal net_wg As Decimal, _ ByVal sender_name As String, _ ByVal sender_address As String, _ ByVal sender_city_name As String, _ ByVal sender_country_id As String, _ ByVal sender_postcode As String, _ ByVal sender_eori_code As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal consignee_eori_code As String, _ ByVal invoice_amount As String, _ ByVal invoice_curr As String, _ ByVal cpc_code As String, _ ByVal additional_cpc_code As String, _ ByVal container_no As String, _ ByVal preferential_country_id As String, _ ByVal cus_code As String, _ ByVal nature_of_transaction As String, _ ByVal additional_commodity_codes As String, _ ByVal origin_country_id As String, _ ByVal preference_request As String, _ ByVal quota_desc As String, _ ByVal valuation_method As String, _ ByVal valuation_adjustment As String, _ ByVal third_quantity_type As String, _ ByVal third_quantity As String, _ ByVal supplementary_unit As String, _ ByVal declarationdata_id As Integer, _ ByVal line_no As Integer) As tblOregonNCTS_Declarations_GoodsAttributeRow Dim rowtblOregonNCTS_Declarations_GoodsAttributeRow As tblOregonNCTS_Declarations_GoodsAttributeRow = CType(Me.NewRow,tblOregonNCTS_Declarations_GoodsAttributeRow) Dim columnValuesArray() As Object = New Object() {Nothing, commodity, gtip_code, gtip_language, brut_wg, net_wg, sender_name, sender_address, sender_city_name, sender_country_id, sender_postcode, sender_eori_code, consignee_name, consignee_address, consignee_city_name, consignee_country_id, consignee_postcode, consignee_eori_code, invoice_amount, invoice_curr, cpc_code, additional_cpc_code, container_no, preferential_country_id, cus_code, nature_of_transaction, additional_commodity_codes, origin_country_id, preference_request, quota_desc, valuation_method, valuation_adjustment, third_quantity_type, third_quantity, supplementary_unit, declarationdata_id, line_no} rowtblOregonNCTS_Declarations_GoodsAttributeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOregonNCTS_Declarations_GoodsAttributeRow) Return rowtblOregonNCTS_Declarations_GoodsAttributeRow End Function _ Public Function FindById(ByVal Id As Integer) As tblOregonNCTS_Declarations_GoodsAttributeRow Return CType(Me.Rows.Find(New Object() {Id}),tblOregonNCTS_Declarations_GoodsAttributeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOregonNCTS_Declarations_GoodsAttributeDataTable = CType(MyBase.Clone,tblOregonNCTS_Declarations_GoodsAttributeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOregonNCTS_Declarations_GoodsAttributeDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columncommodity = MyBase.Columns("commodity") Me.columngtip_code = MyBase.Columns("gtip_code") Me.columngtip_language = MyBase.Columns("gtip_language") Me.columnbrut_wg = MyBase.Columns("brut_wg") Me.columnnet_wg = MyBase.Columns("net_wg") Me.columnsender_name = MyBase.Columns("sender_name") Me.columnsender_address = MyBase.Columns("sender_address") Me.columnsender_city_name = MyBase.Columns("sender_city_name") Me.columnsender_country_id = MyBase.Columns("sender_country_id") Me.columnsender_postcode = MyBase.Columns("sender_postcode") Me.columnsender_eori_code = MyBase.Columns("sender_eori_code") Me.columnconsignee_name = MyBase.Columns("consignee_name") Me.columnconsignee_address = MyBase.Columns("consignee_address") Me.columnconsignee_city_name = MyBase.Columns("consignee_city_name") Me.columnconsignee_country_id = MyBase.Columns("consignee_country_id") Me.columnconsignee_postcode = MyBase.Columns("consignee_postcode") Me.columnconsignee_eori_code = MyBase.Columns("consignee_eori_code") Me.columninvoice_amount = MyBase.Columns("invoice_amount") Me.columninvoice_curr = MyBase.Columns("invoice_curr") Me.columncpc_code = MyBase.Columns("cpc_code") Me.columnadditional_cpc_code = MyBase.Columns("additional_cpc_code") Me.columncontainer_no = MyBase.Columns("container_no") Me.columnpreferential_country_id = MyBase.Columns("preferential_country_id") Me.columncus_code = MyBase.Columns("cus_code") Me.columnnature_of_transaction = MyBase.Columns("nature_of_transaction") Me.columnadditional_commodity_codes = MyBase.Columns("additional_commodity_codes") Me.columnorigin_country_id = MyBase.Columns("origin_country_id") Me.columnpreference_request = MyBase.Columns("preference_request") Me.columnquota_desc = MyBase.Columns("quota_desc") Me.columnvaluation_method = MyBase.Columns("valuation_method") Me.columnvaluation_adjustment = MyBase.Columns("valuation_adjustment") Me.columnthird_quantity_type = MyBase.Columns("third_quantity_type") Me.columnthird_quantity = MyBase.Columns("third_quantity") Me.columnsupplementary_unit = MyBase.Columns("supplementary_unit") Me.columndeclarationdata_id = MyBase.Columns("declarationdata_id") Me.columnline_no = MyBase.Columns("line_no") 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.columncommodity = New Global.System.Data.DataColumn("commodity", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncommodity) Me.columngtip_code = New Global.System.Data.DataColumn("gtip_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngtip_code) Me.columngtip_language = New Global.System.Data.DataColumn("gtip_language", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngtip_language) Me.columnbrut_wg = New Global.System.Data.DataColumn("brut_wg", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbrut_wg) Me.columnnet_wg = New Global.System.Data.DataColumn("net_wg", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnet_wg) Me.columnsender_name = New Global.System.Data.DataColumn("sender_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsender_name) Me.columnsender_address = New Global.System.Data.DataColumn("sender_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsender_address) Me.columnsender_city_name = New Global.System.Data.DataColumn("sender_city_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsender_city_name) Me.columnsender_country_id = New Global.System.Data.DataColumn("sender_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsender_country_id) Me.columnsender_postcode = New Global.System.Data.DataColumn("sender_postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsender_postcode) Me.columnsender_eori_code = New Global.System.Data.DataColumn("sender_eori_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsender_eori_code) Me.columnconsignee_name = New Global.System.Data.DataColumn("consignee_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_name) Me.columnconsignee_address = New Global.System.Data.DataColumn("consignee_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_address) Me.columnconsignee_city_name = New Global.System.Data.DataColumn("consignee_city_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_city_name) Me.columnconsignee_country_id = New Global.System.Data.DataColumn("consignee_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_country_id) Me.columnconsignee_postcode = New Global.System.Data.DataColumn("consignee_postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_postcode) Me.columnconsignee_eori_code = New Global.System.Data.DataColumn("consignee_eori_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnconsignee_eori_code) Me.columninvoice_amount = New Global.System.Data.DataColumn("invoice_amount", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninvoice_amount) Me.columninvoice_curr = New Global.System.Data.DataColumn("invoice_curr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninvoice_curr) Me.columncpc_code = New Global.System.Data.DataColumn("cpc_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncpc_code) Me.columnadditional_cpc_code = New Global.System.Data.DataColumn("additional_cpc_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnadditional_cpc_code) Me.columncontainer_no = New Global.System.Data.DataColumn("container_no", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncontainer_no) Me.columnpreferential_country_id = New Global.System.Data.DataColumn("preferential_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpreferential_country_id) Me.columncus_code = New Global.System.Data.DataColumn("cus_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncus_code) Me.columnnature_of_transaction = New Global.System.Data.DataColumn("nature_of_transaction", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnature_of_transaction) Me.columnadditional_commodity_codes = New Global.System.Data.DataColumn("additional_commodity_codes", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnadditional_commodity_codes) Me.columnorigin_country_id = New Global.System.Data.DataColumn("origin_country_id", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnorigin_country_id) Me.columnpreference_request = New Global.System.Data.DataColumn("preference_request", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpreference_request) Me.columnquota_desc = New Global.System.Data.DataColumn("quota_desc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnquota_desc) Me.columnvaluation_method = New Global.System.Data.DataColumn("valuation_method", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvaluation_method) Me.columnvaluation_adjustment = New Global.System.Data.DataColumn("valuation_adjustment", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvaluation_adjustment) Me.columnthird_quantity_type = New Global.System.Data.DataColumn("third_quantity_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnthird_quantity_type) Me.columnthird_quantity = New Global.System.Data.DataColumn("third_quantity", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnthird_quantity) Me.columnsupplementary_unit = New Global.System.Data.DataColumn("supplementary_unit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsupplementary_unit) Me.columndeclarationdata_id = New Global.System.Data.DataColumn("declarationdata_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclarationdata_id) Me.columnline_no = New Global.System.Data.DataColumn("line_no", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnline_no) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columncommodity.MaxLength = 50 Me.columngtip_code.MaxLength = 50 Me.columngtip_language.MaxLength = 50 Me.columnbrut_wg.AllowDBNull = false Me.columnnet_wg.AllowDBNull = false Me.columnsender_name.MaxLength = 50 Me.columnsender_address.MaxLength = 50 Me.columnsender_city_name.MaxLength = 50 Me.columnsender_country_id.MaxLength = 50 Me.columnsender_postcode.MaxLength = 50 Me.columnsender_eori_code.MaxLength = 50 Me.columnconsignee_name.MaxLength = 50 Me.columnconsignee_address.MaxLength = 50 Me.columnconsignee_city_name.MaxLength = 50 Me.columnconsignee_country_id.MaxLength = 50 Me.columnconsignee_postcode.MaxLength = 50 Me.columnconsignee_eori_code.MaxLength = 50 Me.columninvoice_amount.MaxLength = 50 Me.columninvoice_curr.MaxLength = 50 Me.columncpc_code.MaxLength = 50 Me.columnadditional_cpc_code.MaxLength = 50 Me.columncontainer_no.MaxLength = 50 Me.columnpreferential_country_id.MaxLength = 50 Me.columncus_code.MaxLength = 50 Me.columnnature_of_transaction.MaxLength = 50 Me.columnadditional_commodity_codes.MaxLength = 50 Me.columnorigin_country_id.MaxLength = 50 Me.columnpreference_request.MaxLength = 50 Me.columnquota_desc.MaxLength = 50 Me.columnvaluation_method.MaxLength = 50 Me.columnvaluation_adjustment.MaxLength = 50 Me.columnthird_quantity_type.MaxLength = 50 Me.columnthird_quantity.MaxLength = 50 Me.columnsupplementary_unit.MaxLength = 50 End Sub _ Public Function NewtblOregonNCTS_Declarations_GoodsAttributeRow() As tblOregonNCTS_Declarations_GoodsAttributeRow Return CType(Me.NewRow,tblOregonNCTS_Declarations_GoodsAttributeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOregonNCTS_Declarations_GoodsAttributeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOregonNCTS_Declarations_GoodsAttributeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOregonNCTS_Declarations_GoodsAttributeRowChangedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_GoodsAttributeRowChanged(Me, New tblOregonNCTS_Declarations_GoodsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_GoodsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOregonNCTS_Declarations_GoodsAttributeRowChangingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_GoodsAttributeRowChanging(Me, New tblOregonNCTS_Declarations_GoodsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_GoodsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOregonNCTS_Declarations_GoodsAttributeRowDeletedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_GoodsAttributeRowDeleted(Me, New tblOregonNCTS_Declarations_GoodsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_GoodsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOregonNCTS_Declarations_GoodsAttributeRowDeletingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_GoodsAttributeRowDeleting(Me, New tblOregonNCTS_Declarations_GoodsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_GoodsAttributeRow), e.Action)) End If End Sub _ Public Sub RemovetblOregonNCTS_Declarations_GoodsAttributeRow(ByVal row As tblOregonNCTS_Declarations_GoodsAttributeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOregonNCTS_Declarations_GoodsAttributeDataTable" 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 tblOregonNCTS_Declarations_PacksAttributeDataTable Inherits Global.System.Data.TypedTableBase(Of tblOregonNCTS_Declarations_PacksAttributeRow) Private columnId As Global.System.Data.DataColumn Private columngoods_attribute_id As Global.System.Data.DataColumn Private columngoods_attribute_Posid As Global.System.Data.DataColumn Private columnpack_count As Global.System.Data.DataColumn Private columnpack_type As Global.System.Data.DataColumn Private columnnotes As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOregonNCTS_Declarations_PacksAttribute" 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 goods_attribute_idColumn() As Global.System.Data.DataColumn Get Return Me.columngoods_attribute_id End Get End Property _ Public ReadOnly Property goods_attribute_PosidColumn() As Global.System.Data.DataColumn Get Return Me.columngoods_attribute_Posid End Get End Property _ Public ReadOnly Property pack_countColumn() As Global.System.Data.DataColumn Get Return Me.columnpack_count End Get End Property _ Public ReadOnly Property pack_typeColumn() As Global.System.Data.DataColumn Get Return Me.columnpack_type End Get End Property _ Public ReadOnly Property notesColumn() As Global.System.Data.DataColumn Get Return Me.columnnotes 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 tblOregonNCTS_Declarations_PacksAttributeRow Get Return CType(Me.Rows(index),tblOregonNCTS_Declarations_PacksAttributeRow) End Get End Property _ Public Event tblOregonNCTS_Declarations_PacksAttributeRowChanging As tblOregonNCTS_Declarations_PacksAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_PacksAttributeRowChanged As tblOregonNCTS_Declarations_PacksAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_PacksAttributeRowDeleting As tblOregonNCTS_Declarations_PacksAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_PacksAttributeRowDeleted As tblOregonNCTS_Declarations_PacksAttributeRowChangeEventHandler _ Public Overloads Sub AddtblOregonNCTS_Declarations_PacksAttributeRow(ByVal row As tblOregonNCTS_Declarations_PacksAttributeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOregonNCTS_Declarations_PacksAttributeRow(ByVal goods_attribute_id As Integer, ByVal goods_attribute_Posid As Integer, ByVal pack_count As Integer, ByVal pack_type As String, ByVal notes As String) As tblOregonNCTS_Declarations_PacksAttributeRow Dim rowtblOregonNCTS_Declarations_PacksAttributeRow As tblOregonNCTS_Declarations_PacksAttributeRow = CType(Me.NewRow,tblOregonNCTS_Declarations_PacksAttributeRow) Dim columnValuesArray() As Object = New Object() {Nothing, goods_attribute_id, goods_attribute_Posid, pack_count, pack_type, notes} rowtblOregonNCTS_Declarations_PacksAttributeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOregonNCTS_Declarations_PacksAttributeRow) Return rowtblOregonNCTS_Declarations_PacksAttributeRow End Function _ Public Function FindById(ByVal Id As Integer) As tblOregonNCTS_Declarations_PacksAttributeRow Return CType(Me.Rows.Find(New Object() {Id}),tblOregonNCTS_Declarations_PacksAttributeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOregonNCTS_Declarations_PacksAttributeDataTable = CType(MyBase.Clone,tblOregonNCTS_Declarations_PacksAttributeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOregonNCTS_Declarations_PacksAttributeDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columngoods_attribute_id = MyBase.Columns("goods_attribute_id") Me.columngoods_attribute_Posid = MyBase.Columns("goods_attribute_Posid") Me.columnpack_count = MyBase.Columns("pack_count") Me.columnpack_type = MyBase.Columns("pack_type") Me.columnnotes = MyBase.Columns("notes") 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.columngoods_attribute_id = New Global.System.Data.DataColumn("goods_attribute_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngoods_attribute_id) Me.columngoods_attribute_Posid = New Global.System.Data.DataColumn("goods_attribute_Posid", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngoods_attribute_Posid) Me.columnpack_count = New Global.System.Data.DataColumn("pack_count", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpack_count) Me.columnpack_type = New Global.System.Data.DataColumn("pack_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpack_type) Me.columnnotes = New Global.System.Data.DataColumn("notes", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnotes) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columngoods_attribute_id.AllowDBNull = false Me.columngoods_attribute_Posid.AllowDBNull = false Me.columnpack_count.AllowDBNull = false Me.columnpack_type.MaxLength = 50 Me.columnnotes.MaxLength = 50 End Sub _ Public Function NewtblOregonNCTS_Declarations_PacksAttributeRow() As tblOregonNCTS_Declarations_PacksAttributeRow Return CType(Me.NewRow,tblOregonNCTS_Declarations_PacksAttributeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOregonNCTS_Declarations_PacksAttributeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOregonNCTS_Declarations_PacksAttributeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOregonNCTS_Declarations_PacksAttributeRowChangedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_PacksAttributeRowChanged(Me, New tblOregonNCTS_Declarations_PacksAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_PacksAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOregonNCTS_Declarations_PacksAttributeRowChangingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_PacksAttributeRowChanging(Me, New tblOregonNCTS_Declarations_PacksAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_PacksAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOregonNCTS_Declarations_PacksAttributeRowDeletedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_PacksAttributeRowDeleted(Me, New tblOregonNCTS_Declarations_PacksAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_PacksAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOregonNCTS_Declarations_PacksAttributeRowDeletingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_PacksAttributeRowDeleting(Me, New tblOregonNCTS_Declarations_PacksAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_PacksAttributeRow), e.Action)) End If End Sub _ Public Sub RemovetblOregonNCTS_Declarations_PacksAttributeRow(ByVal row As tblOregonNCTS_Declarations_PacksAttributeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOregonNCTS_Declarations_PacksAttributeDataTable" 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 tblOregonNCTS_Declarations_PartiesAttributeDataTable Inherits Global.System.Data.TypedTableBase(Of tblOregonNCTS_Declarations_PartiesAttributeRow) Private columnId As Global.System.Data.DataColumn Private columndeclarationdata_id As Global.System.Data.DataColumn Private columnparty_role As Global.System.Data.DataColumn Private columnparty_code As Global.System.Data.DataColumn Private columneori_code As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOregonNCTS_Declarations_PartiesAttribute" 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 declarationdata_idColumn() As Global.System.Data.DataColumn Get Return Me.columndeclarationdata_id End Get End Property _ Public ReadOnly Property party_roleColumn() As Global.System.Data.DataColumn Get Return Me.columnparty_role End Get End Property _ Public ReadOnly Property party_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnparty_code End Get End Property _ Public ReadOnly Property eori_codeColumn() As Global.System.Data.DataColumn Get Return Me.columneori_code 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 tblOregonNCTS_Declarations_PartiesAttributeRow Get Return CType(Me.Rows(index),tblOregonNCTS_Declarations_PartiesAttributeRow) End Get End Property _ Public Event tblOregonNCTS_Declarations_PartiesAttributeRowChanging As tblOregonNCTS_Declarations_PartiesAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_PartiesAttributeRowChanged As tblOregonNCTS_Declarations_PartiesAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_PartiesAttributeRowDeleting As tblOregonNCTS_Declarations_PartiesAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_PartiesAttributeRowDeleted As tblOregonNCTS_Declarations_PartiesAttributeRowChangeEventHandler _ Public Overloads Sub AddtblOregonNCTS_Declarations_PartiesAttributeRow(ByVal row As tblOregonNCTS_Declarations_PartiesAttributeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOregonNCTS_Declarations_PartiesAttributeRow(ByVal declarationdata_id As Integer, ByVal party_role As String, ByVal party_code As String, ByVal eori_code As String) As tblOregonNCTS_Declarations_PartiesAttributeRow Dim rowtblOregonNCTS_Declarations_PartiesAttributeRow As tblOregonNCTS_Declarations_PartiesAttributeRow = CType(Me.NewRow,tblOregonNCTS_Declarations_PartiesAttributeRow) Dim columnValuesArray() As Object = New Object() {Nothing, declarationdata_id, party_role, party_code, eori_code} rowtblOregonNCTS_Declarations_PartiesAttributeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOregonNCTS_Declarations_PartiesAttributeRow) Return rowtblOregonNCTS_Declarations_PartiesAttributeRow End Function _ Public Function FindById(ByVal Id As Integer) As tblOregonNCTS_Declarations_PartiesAttributeRow Return CType(Me.Rows.Find(New Object() {Id}),tblOregonNCTS_Declarations_PartiesAttributeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOregonNCTS_Declarations_PartiesAttributeDataTable = CType(MyBase.Clone,tblOregonNCTS_Declarations_PartiesAttributeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOregonNCTS_Declarations_PartiesAttributeDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columndeclarationdata_id = MyBase.Columns("declarationdata_id") Me.columnparty_role = MyBase.Columns("party_role") Me.columnparty_code = MyBase.Columns("party_code") Me.columneori_code = MyBase.Columns("eori_code") 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.columndeclarationdata_id = New Global.System.Data.DataColumn("declarationdata_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclarationdata_id) Me.columnparty_role = New Global.System.Data.DataColumn("party_role", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnparty_role) Me.columnparty_code = New Global.System.Data.DataColumn("party_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnparty_code) Me.columneori_code = New Global.System.Data.DataColumn("eori_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columneori_code) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columndeclarationdata_id.AllowDBNull = false Me.columnparty_role.MaxLength = 50 Me.columnparty_code.MaxLength = 50 Me.columneori_code.MaxLength = 50 End Sub _ Public Function NewtblOregonNCTS_Declarations_PartiesAttributeRow() As tblOregonNCTS_Declarations_PartiesAttributeRow Return CType(Me.NewRow,tblOregonNCTS_Declarations_PartiesAttributeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOregonNCTS_Declarations_PartiesAttributeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOregonNCTS_Declarations_PartiesAttributeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOregonNCTS_Declarations_PartiesAttributeRowChangedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_PartiesAttributeRowChanged(Me, New tblOregonNCTS_Declarations_PartiesAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_PartiesAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOregonNCTS_Declarations_PartiesAttributeRowChangingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_PartiesAttributeRowChanging(Me, New tblOregonNCTS_Declarations_PartiesAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_PartiesAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOregonNCTS_Declarations_PartiesAttributeRowDeletedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_PartiesAttributeRowDeleted(Me, New tblOregonNCTS_Declarations_PartiesAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_PartiesAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOregonNCTS_Declarations_PartiesAttributeRowDeletingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_PartiesAttributeRowDeleting(Me, New tblOregonNCTS_Declarations_PartiesAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_PartiesAttributeRow), e.Action)) End If End Sub _ Public Sub RemovetblOregonNCTS_Declarations_PartiesAttributeRow(ByVal row As tblOregonNCTS_Declarations_PartiesAttributeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOregonNCTS_Declarations_PartiesAttributeDataTable" 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 tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable Inherits Global.System.Data.TypedTableBase(Of tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow) Private columnId As Global.System.Data.DataColumn Private columngoods_attribute_id As Global.System.Data.DataColumn Private columndoc_type As Global.System.Data.DataColumn Private columndoc_no As Global.System.Data.DataColumn Private columnpre_post As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOregonNCTS_Declarations_ProducedDocumentsAttribute" 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 goods_attribute_idColumn() As Global.System.Data.DataColumn Get Return Me.columngoods_attribute_id End Get End Property _ Public ReadOnly Property doc_typeColumn() As Global.System.Data.DataColumn Get Return Me.columndoc_type End Get End Property _ Public ReadOnly Property doc_noColumn() As Global.System.Data.DataColumn Get Return Me.columndoc_no End Get End Property _ Public ReadOnly Property pre_postColumn() As Global.System.Data.DataColumn Get Return Me.columnpre_post 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 tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow Get Return CType(Me.Rows(index),tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow) End Get End Property _ Public Event tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChanging As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChanged As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowDeleting As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowDeleted As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEventHandler _ Public Overloads Sub AddtblOregonNCTS_Declarations_ProducedDocumentsAttributeRow(ByVal row As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOregonNCTS_Declarations_ProducedDocumentsAttributeRow(ByVal goods_attribute_id As Integer, ByVal doc_type As String, ByVal doc_no As String, ByVal pre_post As String) As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow Dim rowtblOregonNCTS_Declarations_ProducedDocumentsAttributeRow As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow = CType(Me.NewRow,tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow) Dim columnValuesArray() As Object = New Object() {Nothing, goods_attribute_id, doc_type, doc_no, pre_post} rowtblOregonNCTS_Declarations_ProducedDocumentsAttributeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOregonNCTS_Declarations_ProducedDocumentsAttributeRow) Return rowtblOregonNCTS_Declarations_ProducedDocumentsAttributeRow End Function _ Public Function FindById(ByVal Id As Integer) As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow Return CType(Me.Rows.Find(New Object() {Id}),tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable = CType(MyBase.Clone,tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columngoods_attribute_id = MyBase.Columns("goods_attribute_id") Me.columndoc_type = MyBase.Columns("doc_type") Me.columndoc_no = MyBase.Columns("doc_no") Me.columnpre_post = MyBase.Columns("pre_post") 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.columngoods_attribute_id = New Global.System.Data.DataColumn("goods_attribute_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngoods_attribute_id) Me.columndoc_type = New Global.System.Data.DataColumn("doc_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndoc_type) Me.columndoc_no = New Global.System.Data.DataColumn("doc_no", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndoc_no) Me.columnpre_post = New Global.System.Data.DataColumn("pre_post", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpre_post) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columngoods_attribute_id.AllowDBNull = false Me.columndoc_type.MaxLength = 50 Me.columndoc_no.MaxLength = 50 Me.columnpre_post.MaxLength = 50 End Sub _ Public Function NewtblOregonNCTS_Declarations_ProducedDocumentsAttributeRow() As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow Return CType(Me.NewRow,tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChanged(Me, New tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChanging(Me, New tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowDeletedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowDeleted(Me, New tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowDeletingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowDeleting(Me, New tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow), e.Action)) End If End Sub _ Public Sub RemovetblOregonNCTS_Declarations_ProducedDocumentsAttributeRow(ByVal row As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable" 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 tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable Inherits Global.System.Data.TypedTableBase(Of tblOregonNCTS_Declarations_TraderAdditionsAttributeRow) Private columnId As Global.System.Data.DataColumn Private columndeclarationdata_id As Global.System.Data.DataColumn Private columncode As Global.System.Data.DataColumn Private columnamount As Global.System.Data.DataColumn Private columncurr As Global.System.Data.DataColumn Private columnrate_code As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOregonNCTS_Declarations_TraderAdditionsAttribute" 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 declarationdata_idColumn() As Global.System.Data.DataColumn Get Return Me.columndeclarationdata_id End Get End Property _ Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn Get Return Me.columncode End Get End Property _ Public ReadOnly Property amountColumn() As Global.System.Data.DataColumn Get Return Me.columnamount End Get End Property _ Public ReadOnly Property currColumn() As Global.System.Data.DataColumn Get Return Me.columncurr End Get End Property _ Public ReadOnly Property rate_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnrate_code 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 tblOregonNCTS_Declarations_TraderAdditionsAttributeRow Get Return CType(Me.Rows(index),tblOregonNCTS_Declarations_TraderAdditionsAttributeRow) End Get End Property _ Public Event tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChanging As tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChanged As tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_TraderAdditionsAttributeRowDeleting As tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEventHandler _ Public Event tblOregonNCTS_Declarations_TraderAdditionsAttributeRowDeleted As tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEventHandler _ Public Overloads Sub AddtblOregonNCTS_Declarations_TraderAdditionsAttributeRow(ByVal row As tblOregonNCTS_Declarations_TraderAdditionsAttributeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOregonNCTS_Declarations_TraderAdditionsAttributeRow(ByVal declarationdata_id As Integer, ByVal code As String, ByVal amount As Integer, ByVal curr As String, ByVal rate_code As Integer) As tblOregonNCTS_Declarations_TraderAdditionsAttributeRow Dim rowtblOregonNCTS_Declarations_TraderAdditionsAttributeRow As tblOregonNCTS_Declarations_TraderAdditionsAttributeRow = CType(Me.NewRow,tblOregonNCTS_Declarations_TraderAdditionsAttributeRow) Dim columnValuesArray() As Object = New Object() {Nothing, declarationdata_id, code, amount, curr, rate_code} rowtblOregonNCTS_Declarations_TraderAdditionsAttributeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOregonNCTS_Declarations_TraderAdditionsAttributeRow) Return rowtblOregonNCTS_Declarations_TraderAdditionsAttributeRow End Function _ Public Function FindById(ByVal Id As Integer) As tblOregonNCTS_Declarations_TraderAdditionsAttributeRow Return CType(Me.Rows.Find(New Object() {Id}),tblOregonNCTS_Declarations_TraderAdditionsAttributeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable = CType(MyBase.Clone,tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columndeclarationdata_id = MyBase.Columns("declarationdata_id") Me.columncode = MyBase.Columns("code") Me.columnamount = MyBase.Columns("amount") Me.columncurr = MyBase.Columns("curr") Me.columnrate_code = MyBase.Columns("rate_code") 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.columndeclarationdata_id = New Global.System.Data.DataColumn("declarationdata_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclarationdata_id) Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncode) Me.columnamount = New Global.System.Data.DataColumn("amount", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnamount) Me.columncurr = New Global.System.Data.DataColumn("curr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncurr) Me.columnrate_code = New Global.System.Data.DataColumn("rate_code", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrate_code) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true)) Me.columnId.AutoIncrement = true Me.columnId.AutoIncrementSeed = -1 Me.columnId.AutoIncrementStep = -1 Me.columnId.AllowDBNull = false Me.columnId.ReadOnly = true Me.columnId.Unique = true Me.columndeclarationdata_id.AllowDBNull = false Me.columncode.MaxLength = 50 Me.columnamount.AllowDBNull = false Me.columncurr.MaxLength = 50 Me.columnrate_code.AllowDBNull = false End Sub _ Public Function NewtblOregonNCTS_Declarations_TraderAdditionsAttributeRow() As tblOregonNCTS_Declarations_TraderAdditionsAttributeRow Return CType(Me.NewRow,tblOregonNCTS_Declarations_TraderAdditionsAttributeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOregonNCTS_Declarations_TraderAdditionsAttributeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOregonNCTS_Declarations_TraderAdditionsAttributeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChanged(Me, New tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_TraderAdditionsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChanging(Me, New tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_TraderAdditionsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOregonNCTS_Declarations_TraderAdditionsAttributeRowDeletedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_TraderAdditionsAttributeRowDeleted(Me, New tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_TraderAdditionsAttributeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOregonNCTS_Declarations_TraderAdditionsAttributeRowDeletingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_Declarations_TraderAdditionsAttributeRowDeleting(Me, New tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEvent(CType(e.Row,tblOregonNCTS_Declarations_TraderAdditionsAttributeRow), e.Action)) End If End Sub _ Public Sub RemovetblOregonNCTS_Declarations_TraderAdditionsAttributeRow(ByVal row As tblOregonNCTS_Declarations_TraderAdditionsAttributeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable" 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 tblOregonNCTS_ReferenceTemplateDataTable Inherits Global.System.Data.TypedTableBase(Of tblOregonNCTS_ReferenceTemplateRow) Private columnId As Global.System.Data.DataColumn Private columncountry As Global.System.Data.DataColumn Private columndeclaration As Global.System.Data.DataColumn Private columnreference As Global.System.Data.DataColumn Private columndescr As Global.System.Data.DataColumn Private columnmandant As Global.System.Data.DataColumn Private columnniederlassung As Global.System.Data.DataColumn Private columnstandard As Global.System.Data.DataColumn Private columnvisible As Global.System.Data.DataColumn Private columnkdNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOregonNCTS_ReferenceTemplate" 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 countryColumn() As Global.System.Data.DataColumn Get Return Me.columncountry End Get End Property _ Public ReadOnly Property declarationColumn() As Global.System.Data.DataColumn Get Return Me.columndeclaration End Get End Property _ Public ReadOnly Property referenceColumn() As Global.System.Data.DataColumn Get Return Me.columnreference End Get End Property _ Public ReadOnly Property descrColumn() As Global.System.Data.DataColumn Get Return Me.columndescr End Get End Property _ Public ReadOnly Property mandantColumn() As Global.System.Data.DataColumn Get Return Me.columnmandant End Get End Property _ Public ReadOnly Property niederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnniederlassung End Get End Property _ Public ReadOnly Property standardColumn() As Global.System.Data.DataColumn Get Return Me.columnstandard End Get End Property _ Public ReadOnly Property visibleColumn() As Global.System.Data.DataColumn Get Return Me.columnvisible End Get End Property _ Public ReadOnly Property kdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnkdNr 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 tblOregonNCTS_ReferenceTemplateRow Get Return CType(Me.Rows(index),tblOregonNCTS_ReferenceTemplateRow) End Get End Property _ Public Event tblOregonNCTS_ReferenceTemplateRowChanging As tblOregonNCTS_ReferenceTemplateRowChangeEventHandler _ Public Event tblOregonNCTS_ReferenceTemplateRowChanged As tblOregonNCTS_ReferenceTemplateRowChangeEventHandler _ Public Event tblOregonNCTS_ReferenceTemplateRowDeleting As tblOregonNCTS_ReferenceTemplateRowChangeEventHandler _ Public Event tblOregonNCTS_ReferenceTemplateRowDeleted As tblOregonNCTS_ReferenceTemplateRowChangeEventHandler _ Public Overloads Sub AddtblOregonNCTS_ReferenceTemplateRow(ByVal row As tblOregonNCTS_ReferenceTemplateRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOregonNCTS_ReferenceTemplateRow(ByVal Id As Integer, ByVal country As String, ByVal declaration As String, ByVal reference As String, ByVal descr As String, ByVal mandant As String, ByVal niederlassung As String, ByVal standard As Boolean, ByVal visible As Boolean, ByVal kdNr As Integer) As tblOregonNCTS_ReferenceTemplateRow Dim rowtblOregonNCTS_ReferenceTemplateRow As tblOregonNCTS_ReferenceTemplateRow = CType(Me.NewRow,tblOregonNCTS_ReferenceTemplateRow) Dim columnValuesArray() As Object = New Object() {Id, country, declaration, reference, descr, mandant, niederlassung, standard, visible, kdNr} rowtblOregonNCTS_ReferenceTemplateRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOregonNCTS_ReferenceTemplateRow) Return rowtblOregonNCTS_ReferenceTemplateRow End Function _ Public Function FindById(ByVal Id As Integer) As tblOregonNCTS_ReferenceTemplateRow Return CType(Me.Rows.Find(New Object() {Id}),tblOregonNCTS_ReferenceTemplateRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOregonNCTS_ReferenceTemplateDataTable = CType(MyBase.Clone,tblOregonNCTS_ReferenceTemplateDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOregonNCTS_ReferenceTemplateDataTable() End Function _ Friend Sub InitVars() Me.columnId = MyBase.Columns("Id") Me.columncountry = MyBase.Columns("country") Me.columndeclaration = MyBase.Columns("declaration") Me.columnreference = MyBase.Columns("reference") Me.columndescr = MyBase.Columns("descr") Me.columnmandant = MyBase.Columns("mandant") Me.columnniederlassung = MyBase.Columns("niederlassung") Me.columnstandard = MyBase.Columns("standard") Me.columnvisible = MyBase.Columns("visible") Me.columnkdNr = MyBase.Columns("kdNr") 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.columncountry = New Global.System.Data.DataColumn("country", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncountry) Me.columndeclaration = New Global.System.Data.DataColumn("declaration", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndeclaration) Me.columnreference = New Global.System.Data.DataColumn("reference", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnreference) Me.columndescr = New Global.System.Data.DataColumn("descr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndescr) Me.columnmandant = New Global.System.Data.DataColumn("mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmandant) Me.columnniederlassung = New Global.System.Data.DataColumn("niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnniederlassung) Me.columnstandard = New Global.System.Data.DataColumn("standard", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstandard) Me.columnvisible = New Global.System.Data.DataColumn("visible", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvisible) Me.columnkdNr = New Global.System.Data.DataColumn("kdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkdNr) 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.columncountry.MaxLength = 10 Me.columndeclaration.AllowDBNull = false Me.columndeclaration.MaxLength = 50 Me.columnreference.AllowDBNull = false Me.columnreference.MaxLength = 200 Me.columndescr.AllowDBNull = false Me.columndescr.MaxLength = 200 Me.columnmandant.AllowDBNull = false Me.columnmandant.MaxLength = 10 Me.columnniederlassung.AllowDBNull = false Me.columnniederlassung.MaxLength = 5 Me.columnstandard.AllowDBNull = false Me.columnvisible.AllowDBNull = false End Sub _ Public Function NewtblOregonNCTS_ReferenceTemplateRow() As tblOregonNCTS_ReferenceTemplateRow Return CType(Me.NewRow,tblOregonNCTS_ReferenceTemplateRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOregonNCTS_ReferenceTemplateRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOregonNCTS_ReferenceTemplateRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOregonNCTS_ReferenceTemplateRowChangedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_ReferenceTemplateRowChanged(Me, New tblOregonNCTS_ReferenceTemplateRowChangeEvent(CType(e.Row,tblOregonNCTS_ReferenceTemplateRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOregonNCTS_ReferenceTemplateRowChangingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_ReferenceTemplateRowChanging(Me, New tblOregonNCTS_ReferenceTemplateRowChangeEvent(CType(e.Row,tblOregonNCTS_ReferenceTemplateRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOregonNCTS_ReferenceTemplateRowDeletedEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_ReferenceTemplateRowDeleted(Me, New tblOregonNCTS_ReferenceTemplateRowChangeEvent(CType(e.Row,tblOregonNCTS_ReferenceTemplateRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOregonNCTS_ReferenceTemplateRowDeletingEvent) Is Nothing) Then RaiseEvent tblOregonNCTS_ReferenceTemplateRowDeleting(Me, New tblOregonNCTS_ReferenceTemplateRowChangeEvent(CType(e.Row,tblOregonNCTS_ReferenceTemplateRow), e.Action)) End If End Sub _ Public Sub RemovetblOregonNCTS_ReferenceTemplateRow(ByVal row As tblOregonNCTS_ReferenceTemplateRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOregonNCTS_ReferenceTemplateDataTable" 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 tblOriginalATRDataTable Inherits Global.System.Data.TypedTableBase(Of tblOriginalATRRow) Private columnatr_id As Global.System.Data.DataColumn Private columnatr_documentNr As Global.System.Data.DataColumn Private columnatr_erfassungsdatum As Global.System.Data.DataColumn Private columnatr_Sachbearbeiter As Global.System.Data.DataColumn Private columnatr_mitId As Global.System.Data.DataColumn Private columnatr_absender As Global.System.Data.DataColumn Private columnatr_absenderKdNr As Global.System.Data.DataColumn Private columnatr_empfaenger As Global.System.Data.DataColumn Private columnatr_empfaengerKdNr As Global.System.Data.DataColumn Private columnatr_austellungsdatum As Global.System.Data.DataColumn Private columnatr_AvisoId As Global.System.Data.DataColumn Private columnatr_SendungsId As Global.System.Data.DataColumn Private columnatr_LKW As Global.System.Data.DataColumn Private columnatr_dsId As Global.System.Data.DataColumn Private columnatr_DHL_ReferenzNr As Global.System.Data.DataColumn Private columnatr_location As Global.System.Data.DataColumn Private columnatr_info As Global.System.Data.DataColumn Private columnatr_erhalten_Art As Global.System.Data.DataColumn Private columnatr_erhalenDatum As Global.System.Data.DataColumn Private columnatr_FilialenNr As Global.System.Data.DataColumn Private columnatr_AbfertigungsNr As Global.System.Data.DataColumn Private columnatr_anhID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblOriginalATR" 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 atr_idColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_id End Get End Property _ Public ReadOnly Property atr_documentNrColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_documentNr End Get End Property _ Public ReadOnly Property atr_erfassungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_erfassungsdatum End Get End Property _ Public ReadOnly Property atr_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_Sachbearbeiter End Get End Property _ Public ReadOnly Property atr_mitIdColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_mitId End Get End Property _ Public ReadOnly Property atr_absenderColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_absender End Get End Property _ Public ReadOnly Property atr_absenderKdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_absenderKdNr End Get End Property _ Public ReadOnly Property atr_empfaengerColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_empfaenger End Get End Property _ Public ReadOnly Property atr_empfaengerKdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_empfaengerKdNr End Get End Property _ Public ReadOnly Property atr_austellungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_austellungsdatum End Get End Property _ Public ReadOnly Property atr_AvisoIdColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_AvisoId End Get End Property _ Public ReadOnly Property atr_SendungsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_SendungsId End Get End Property _ Public ReadOnly Property atr_LKWColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_LKW End Get End Property _ Public ReadOnly Property atr_dsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_dsId End Get End Property _ Public ReadOnly Property atr_DHL_ReferenzNrColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_DHL_ReferenzNr End Get End Property _ Public ReadOnly Property atr_locationColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_location End Get End Property _ Public ReadOnly Property atr_infoColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_info End Get End Property _ Public ReadOnly Property atr_erhalten_ArtColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_erhalten_Art End Get End Property _ Public ReadOnly Property atr_erhalenDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_erhalenDatum End Get End Property _ Public ReadOnly Property atr_FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_FilialenNr End Get End Property _ Public ReadOnly Property atr_AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_AbfertigungsNr End Get End Property _ Public ReadOnly Property atr_anhIDColumn() As Global.System.Data.DataColumn Get Return Me.columnatr_anhID 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 tblOriginalATRRow Get Return CType(Me.Rows(index),tblOriginalATRRow) End Get End Property _ Public Event tblOriginalATRRowChanging As tblOriginalATRRowChangeEventHandler _ Public Event tblOriginalATRRowChanged As tblOriginalATRRowChangeEventHandler _ Public Event tblOriginalATRRowDeleting As tblOriginalATRRowChangeEventHandler _ Public Event tblOriginalATRRowDeleted As tblOriginalATRRowChangeEventHandler _ Public Overloads Sub AddtblOriginalATRRow(ByVal row As tblOriginalATRRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblOriginalATRRow( _ ByVal atr_documentNr As String, _ ByVal atr_erfassungsdatum As Date, _ ByVal atr_Sachbearbeiter As String, _ ByVal atr_mitId As Integer, _ ByVal atr_absender As String, _ ByVal atr_absenderKdNr As Integer, _ ByVal atr_empfaenger As String, _ ByVal atr_empfaengerKdNr As Integer, _ ByVal atr_austellungsdatum As Date, _ ByVal atr_AvisoId As Integer, _ ByVal atr_SendungsId As Integer, _ ByVal atr_LKW As String, _ ByVal atr_dsId As Integer, _ ByVal atr_DHL_ReferenzNr As String, _ ByVal atr_location As String, _ ByVal atr_info As String, _ ByVal atr_erhalten_Art As String, _ ByVal atr_erhalenDatum As Date, _ ByVal atr_FilialenNr As Integer, _ ByVal atr_AbfertigungsNr As Integer, _ ByVal atr_anhID As Integer) As tblOriginalATRRow Dim rowtblOriginalATRRow As tblOriginalATRRow = CType(Me.NewRow,tblOriginalATRRow) Dim columnValuesArray() As Object = New Object() {Nothing, atr_documentNr, atr_erfassungsdatum, atr_Sachbearbeiter, atr_mitId, atr_absender, atr_absenderKdNr, atr_empfaenger, atr_empfaengerKdNr, atr_austellungsdatum, atr_AvisoId, atr_SendungsId, atr_LKW, atr_dsId, atr_DHL_ReferenzNr, atr_location, atr_info, atr_erhalten_Art, atr_erhalenDatum, atr_FilialenNr, atr_AbfertigungsNr, atr_anhID} rowtblOriginalATRRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblOriginalATRRow) Return rowtblOriginalATRRow End Function _ Public Function FindByatr_id(ByVal atr_id As Integer) As tblOriginalATRRow Return CType(Me.Rows.Find(New Object() {atr_id}),tblOriginalATRRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblOriginalATRDataTable = CType(MyBase.Clone,tblOriginalATRDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblOriginalATRDataTable() End Function _ Friend Sub InitVars() Me.columnatr_id = MyBase.Columns("atr_id") Me.columnatr_documentNr = MyBase.Columns("atr_documentNr") Me.columnatr_erfassungsdatum = MyBase.Columns("atr_erfassungsdatum") Me.columnatr_Sachbearbeiter = MyBase.Columns("atr_Sachbearbeiter") Me.columnatr_mitId = MyBase.Columns("atr_mitId") Me.columnatr_absender = MyBase.Columns("atr_absender") Me.columnatr_absenderKdNr = MyBase.Columns("atr_absenderKdNr") Me.columnatr_empfaenger = MyBase.Columns("atr_empfaenger") Me.columnatr_empfaengerKdNr = MyBase.Columns("atr_empfaengerKdNr") Me.columnatr_austellungsdatum = MyBase.Columns("atr_austellungsdatum") Me.columnatr_AvisoId = MyBase.Columns("atr_AvisoId") Me.columnatr_SendungsId = MyBase.Columns("atr_SendungsId") Me.columnatr_LKW = MyBase.Columns("atr_LKW") Me.columnatr_dsId = MyBase.Columns("atr_dsId") Me.columnatr_DHL_ReferenzNr = MyBase.Columns("atr_DHL_ReferenzNr") Me.columnatr_location = MyBase.Columns("atr_location") Me.columnatr_info = MyBase.Columns("atr_info") Me.columnatr_erhalten_Art = MyBase.Columns("atr_erhalten_Art") Me.columnatr_erhalenDatum = MyBase.Columns("atr_erhalenDatum") Me.columnatr_FilialenNr = MyBase.Columns("atr_FilialenNr") Me.columnatr_AbfertigungsNr = MyBase.Columns("atr_AbfertigungsNr") Me.columnatr_anhID = MyBase.Columns("atr_anhID") End Sub _ Private Sub InitClass() Me.columnatr_id = New Global.System.Data.DataColumn("atr_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_id) Me.columnatr_documentNr = New Global.System.Data.DataColumn("atr_documentNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_documentNr) Me.columnatr_erfassungsdatum = New Global.System.Data.DataColumn("atr_erfassungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_erfassungsdatum) Me.columnatr_Sachbearbeiter = New Global.System.Data.DataColumn("atr_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_Sachbearbeiter) Me.columnatr_mitId = New Global.System.Data.DataColumn("atr_mitId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_mitId) Me.columnatr_absender = New Global.System.Data.DataColumn("atr_absender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_absender) Me.columnatr_absenderKdNr = New Global.System.Data.DataColumn("atr_absenderKdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_absenderKdNr) Me.columnatr_empfaenger = New Global.System.Data.DataColumn("atr_empfaenger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_empfaenger) Me.columnatr_empfaengerKdNr = New Global.System.Data.DataColumn("atr_empfaengerKdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_empfaengerKdNr) Me.columnatr_austellungsdatum = New Global.System.Data.DataColumn("atr_austellungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_austellungsdatum) Me.columnatr_AvisoId = New Global.System.Data.DataColumn("atr_AvisoId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_AvisoId) Me.columnatr_SendungsId = New Global.System.Data.DataColumn("atr_SendungsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_SendungsId) Me.columnatr_LKW = New Global.System.Data.DataColumn("atr_LKW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_LKW) Me.columnatr_dsId = New Global.System.Data.DataColumn("atr_dsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_dsId) Me.columnatr_DHL_ReferenzNr = New Global.System.Data.DataColumn("atr_DHL_ReferenzNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_DHL_ReferenzNr) Me.columnatr_location = New Global.System.Data.DataColumn("atr_location", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_location) Me.columnatr_info = New Global.System.Data.DataColumn("atr_info", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_info) Me.columnatr_erhalten_Art = New Global.System.Data.DataColumn("atr_erhalten_Art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_erhalten_Art) Me.columnatr_erhalenDatum = New Global.System.Data.DataColumn("atr_erhalenDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_erhalenDatum) Me.columnatr_FilialenNr = New Global.System.Data.DataColumn("atr_FilialenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_FilialenNr) Me.columnatr_AbfertigungsNr = New Global.System.Data.DataColumn("atr_AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_AbfertigungsNr) Me.columnatr_anhID = New Global.System.Data.DataColumn("atr_anhID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnatr_anhID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnatr_id}, true)) Me.columnatr_id.AutoIncrement = true Me.columnatr_id.AutoIncrementSeed = -1 Me.columnatr_id.AutoIncrementStep = -1 Me.columnatr_id.AllowDBNull = false Me.columnatr_id.ReadOnly = true Me.columnatr_id.Unique = true Me.columnatr_documentNr.AllowDBNull = false Me.columnatr_documentNr.MaxLength = 100 Me.columnatr_erfassungsdatum.AllowDBNull = false Me.columnatr_Sachbearbeiter.AllowDBNull = false Me.columnatr_Sachbearbeiter.MaxLength = 50 Me.columnatr_mitId.AllowDBNull = false Me.columnatr_absender.MaxLength = 500 Me.columnatr_absenderKdNr.AllowDBNull = false Me.columnatr_empfaenger.MaxLength = 500 Me.columnatr_empfaengerKdNr.AllowDBNull = false Me.columnatr_AvisoId.AllowDBNull = false Me.columnatr_SendungsId.AllowDBNull = false Me.columnatr_LKW.MaxLength = 500 Me.columnatr_DHL_ReferenzNr.MaxLength = 500 Me.columnatr_location.MaxLength = 500 Me.columnatr_info.MaxLength = 2147483647 Me.columnatr_erhalten_Art.MaxLength = 50 Me.columnatr_FilialenNr.AllowDBNull = false Me.columnatr_AbfertigungsNr.AllowDBNull = false End Sub _ Public Function NewtblOriginalATRRow() As tblOriginalATRRow Return CType(Me.NewRow,tblOriginalATRRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblOriginalATRRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblOriginalATRRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblOriginalATRRowChangedEvent) Is Nothing) Then RaiseEvent tblOriginalATRRowChanged(Me, New tblOriginalATRRowChangeEvent(CType(e.Row,tblOriginalATRRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblOriginalATRRowChangingEvent) Is Nothing) Then RaiseEvent tblOriginalATRRowChanging(Me, New tblOriginalATRRowChangeEvent(CType(e.Row,tblOriginalATRRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblOriginalATRRowDeletedEvent) Is Nothing) Then RaiseEvent tblOriginalATRRowDeleted(Me, New tblOriginalATRRowChangeEvent(CType(e.Row,tblOriginalATRRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblOriginalATRRowDeletingEvent) Is Nothing) Then RaiseEvent tblOriginalATRRowDeleting(Me, New tblOriginalATRRowChangeEvent(CType(e.Row,tblOriginalATRRow), e.Action)) End If End Sub _ Public Sub RemovetblOriginalATRRow(ByVal row As tblOriginalATRRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblOriginalATRDataTable" 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 tblPartnersystem_ParamterDataTable Inherits Global.System.Data.TypedTableBase(Of tblPartnersystem_ParamterRow) Private columnParam_name As Global.System.Data.DataColumn Private columnParam_value As Global.System.Data.DataColumn Private columnParam_system As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPartnersystem_Paramter" 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 Param_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnParam_name End Get End Property _ Public ReadOnly Property Param_valueColumn() As Global.System.Data.DataColumn Get Return Me.columnParam_value End Get End Property _ Public ReadOnly Property Param_systemColumn() As Global.System.Data.DataColumn Get Return Me.columnParam_system 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 tblPartnersystem_ParamterRow Get Return CType(Me.Rows(index),tblPartnersystem_ParamterRow) End Get End Property _ Public Event tblPartnersystem_ParamterRowChanging As tblPartnersystem_ParamterRowChangeEventHandler _ Public Event tblPartnersystem_ParamterRowChanged As tblPartnersystem_ParamterRowChangeEventHandler _ Public Event tblPartnersystem_ParamterRowDeleting As tblPartnersystem_ParamterRowChangeEventHandler _ Public Event tblPartnersystem_ParamterRowDeleted As tblPartnersystem_ParamterRowChangeEventHandler _ Public Overloads Sub AddtblPartnersystem_ParamterRow(ByVal row As tblPartnersystem_ParamterRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPartnersystem_ParamterRow(ByVal Param_name As String, ByVal Param_value As String, ByVal Param_system As String) As tblPartnersystem_ParamterRow Dim rowtblPartnersystem_ParamterRow As tblPartnersystem_ParamterRow = CType(Me.NewRow,tblPartnersystem_ParamterRow) Dim columnValuesArray() As Object = New Object() {Param_name, Param_value, Param_system} rowtblPartnersystem_ParamterRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPartnersystem_ParamterRow) Return rowtblPartnersystem_ParamterRow End Function _ Public Function FindByParam_nameParam_valueParam_system(ByVal Param_name As String, ByVal Param_value As String, ByVal Param_system As String) As tblPartnersystem_ParamterRow Return CType(Me.Rows.Find(New Object() {Param_name, Param_value, Param_system}),tblPartnersystem_ParamterRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPartnersystem_ParamterDataTable = CType(MyBase.Clone,tblPartnersystem_ParamterDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPartnersystem_ParamterDataTable() End Function _ Friend Sub InitVars() Me.columnParam_name = MyBase.Columns("Param_name") Me.columnParam_value = MyBase.Columns("Param_value") Me.columnParam_system = MyBase.Columns("Param_system") End Sub _ Private Sub InitClass() Me.columnParam_name = New Global.System.Data.DataColumn("Param_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnParam_name) Me.columnParam_value = New Global.System.Data.DataColumn("Param_value", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnParam_value) Me.columnParam_system = New Global.System.Data.DataColumn("Param_system", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnParam_system) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnParam_name, Me.columnParam_value, Me.columnParam_system}, true)) Me.columnParam_name.AllowDBNull = false Me.columnParam_name.MaxLength = 200 Me.columnParam_value.AllowDBNull = false Me.columnParam_value.MaxLength = 500 Me.columnParam_system.AllowDBNull = false Me.columnParam_system.MaxLength = 500 End Sub _ Public Function NewtblPartnersystem_ParamterRow() As tblPartnersystem_ParamterRow Return CType(Me.NewRow,tblPartnersystem_ParamterRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPartnersystem_ParamterRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPartnersystem_ParamterRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPartnersystem_ParamterRowChangedEvent) Is Nothing) Then RaiseEvent tblPartnersystem_ParamterRowChanged(Me, New tblPartnersystem_ParamterRowChangeEvent(CType(e.Row,tblPartnersystem_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPartnersystem_ParamterRowChangingEvent) Is Nothing) Then RaiseEvent tblPartnersystem_ParamterRowChanging(Me, New tblPartnersystem_ParamterRowChangeEvent(CType(e.Row,tblPartnersystem_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPartnersystem_ParamterRowDeletedEvent) Is Nothing) Then RaiseEvent tblPartnersystem_ParamterRowDeleted(Me, New tblPartnersystem_ParamterRowChangeEvent(CType(e.Row,tblPartnersystem_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPartnersystem_ParamterRowDeletingEvent) Is Nothing) Then RaiseEvent tblPartnersystem_ParamterRowDeleting(Me, New tblPartnersystem_ParamterRowChangeEvent(CType(e.Row,tblPartnersystem_ParamterRow), e.Action)) End If End Sub _ Public Sub RemovetblPartnersystem_ParamterRow(ByVal row As tblPartnersystem_ParamterRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPartnersystem_ParamterDataTable" 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 tblPfadDataTable Inherits Global.System.Data.TypedTableBase(Of tblPfadRow) Private columnID As Global.System.Data.DataColumn Private columnVerzeichnispfad As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPfad" 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 VerzeichnispfadColumn() As Global.System.Data.DataColumn Get Return Me.columnVerzeichnispfad End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblPfadRow Get Return CType(Me.Rows(index),tblPfadRow) End Get End Property _ Public Event tblPfadRowChanging As tblPfadRowChangeEventHandler _ Public Event tblPfadRowChanged As tblPfadRowChangeEventHandler _ Public Event tblPfadRowDeleting As tblPfadRowChangeEventHandler _ Public Event tblPfadRowDeleted As tblPfadRowChangeEventHandler _ Public Overloads Sub AddtblPfadRow(ByVal row As tblPfadRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPfadRow(ByVal Verzeichnispfad As String, ByVal SSMA_TimeStamp() As Byte) As tblPfadRow Dim rowtblPfadRow As tblPfadRow = CType(Me.NewRow,tblPfadRow) Dim columnValuesArray() As Object = New Object() {Nothing, Verzeichnispfad, SSMA_TimeStamp} rowtblPfadRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPfadRow) Return rowtblPfadRow End Function _ Public Function FindByID(ByVal ID As Integer) As tblPfadRow Return CType(Me.Rows.Find(New Object() {ID}),tblPfadRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPfadDataTable = CType(MyBase.Clone,tblPfadDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPfadDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnVerzeichnispfad = MyBase.Columns("Verzeichnispfad") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") 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.columnVerzeichnispfad = New Global.System.Data.DataColumn("Verzeichnispfad", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVerzeichnispfad) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnVerzeichnispfad.AllowDBNull = false Me.columnVerzeichnispfad.MaxLength = 255 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblPfadRow() As tblPfadRow Return CType(Me.NewRow,tblPfadRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPfadRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPfadRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPfadRowChangedEvent) Is Nothing) Then RaiseEvent tblPfadRowChanged(Me, New tblPfadRowChangeEvent(CType(e.Row,tblPfadRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPfadRowChangingEvent) Is Nothing) Then RaiseEvent tblPfadRowChanging(Me, New tblPfadRowChangeEvent(CType(e.Row,tblPfadRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPfadRowDeletedEvent) Is Nothing) Then RaiseEvent tblPfadRowDeleted(Me, New tblPfadRowChangeEvent(CType(e.Row,tblPfadRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPfadRowDeletingEvent) Is Nothing) Then RaiseEvent tblPfadRowDeleting(Me, New tblPfadRowChangeEvent(CType(e.Row,tblPfadRow), e.Action)) End If End Sub _ Public Sub RemovetblPfadRow(ByVal row As tblPfadRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPfadDataTable" 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 tblPLOSE_DetailsDataTable Inherits Global.System.Data.TypedTableBase(Of tblPLOSE_DetailsRow) Private columnplose_Id As Global.System.Data.DataColumn Private columnplose_plInvId As Global.System.Data.DataColumn Private columnplose_RechnungsDatum As Global.System.Data.DataColumn Private columnplose_RechnungsNr As Global.System.Data.DataColumn Private columnplose_SupplierRechnungsDatum As Global.System.Data.DataColumn Private columnplose_SupplierRechnungsNr As Global.System.Data.DataColumn Private columnplose_Lieferant As Global.System.Data.DataColumn Private columnplose_LieferantCode As Global.System.Data.DataColumn Private columnplose_RechnungsJahr As Global.System.Data.DataColumn Private columnplose_Dateiname As Global.System.Data.DataColumn Private columnplose_Einlesedatum As Global.System.Data.DataColumn Private columnplose_Datensatztyp As Global.System.Data.DataColumn Private columnplose_KodexMautTankstelle As Global.System.Data.DataColumn Private columnplose_BeschreibungMautTankstelle As Global.System.Data.DataColumn Private columnplose_KodexEinfahrt As Global.System.Data.DataColumn Private columnplose_BeschreibungEinfahrt As Global.System.Data.DataColumn Private columnplose_KodexAusfahrt As Global.System.Data.DataColumn Private columnplose_BeschreibungAusfahrt As Global.System.Data.DataColumn Private columnplose_Kartenkodex As Global.System.Data.DataColumn Private columnplose_Kontonummer As Global.System.Data.DataColumn Private columnplose_NummerKarteGeraet As Global.System.Data.DataColumn Private columnplose_Kennzeichen As Global.System.Data.DataColumn Private columnplose_InterneNrFahrzeug As Global.System.Data.DataColumn Private columnplose_POLSEKundennummer As Global.System.Data.DataColumn Private columnplose_Firmenname As Global.System.Data.DataColumn Private columnplose_DatumTransaktion As Global.System.Data.DataColumn Private columnplose_Produktbeschreibung As Global.System.Data.DataColumn Private columnplose_Menge As Global.System.Data.DataColumn Private columnplose_Preis As Global.System.Data.DataColumn Private columnEinheitsrabatt As Global.System.Data.DataColumn Private columnplose_NettobetragTransaktion As Global.System.Data.DataColumn Private columnplose_MWSTBetrag As Global.System.Data.DataColumn Private columnplose_BruttobetragTransaktion As Global.System.Data.DataColumn Private columnplose_NettobetragWaehrungAbbuchung As Global.System.Data.DataColumn Private columnplose_MWSTBetragWaehrungAbbuchung As Global.System.Data.DataColumn Private columnplose_BruttobetragWaehrungAbbuchung As Global.System.Data.DataColumn Private columnplose_WaehrungLandDiesntleistung As Global.System.Data.DataColumn Private columnplose_WaehrungAbbuchung As Global.System.Data.DataColumn Private columnplose_DokumentNrQuittungUhrzeit As Global.System.Data.DataColumn Private columnplose_ArtTransaktion As Global.System.Data.DataColumn Private columnplose_Fahrzeugklasse As Global.System.Data.DataColumn Private columnplose_KlassenidentifikationEURO As Global.System.Data.DataColumn Private columnplose_ProduktbeschreibungShort As Global.System.Data.DataColumn Private columnplose_TransaktionUhrzeit As Global.System.Data.DataColumn Private columnplose_Geraetetyp As Global.System.Data.DataColumn Private columnplose_ProduktCode As Global.System.Data.DataColumn Private columnplose_ReferenzenBuchungMaut As Global.System.Data.DataColumn Private columnplose_Fakturiert As Global.System.Data.DataColumn Private columnplose_FakturiertDatum As Global.System.Data.DataColumn Private columnplose_Archiv As Global.System.Data.DataColumn Private columnplose_ArchiviertDatum As Global.System.Data.DataColumn Private columnplose_tstmp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPLOSE_Details" 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 plose_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Id End Get End Property _ Public ReadOnly Property plose_plInvIdColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_plInvId End Get End Property _ Public ReadOnly Property plose_RechnungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_RechnungsDatum End Get End Property _ Public ReadOnly Property plose_RechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_RechnungsNr End Get End Property _ Public ReadOnly Property plose_SupplierRechnungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_SupplierRechnungsDatum End Get End Property _ Public ReadOnly Property plose_SupplierRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_SupplierRechnungsNr End Get End Property _ Public ReadOnly Property plose_LieferantColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Lieferant End Get End Property _ Public ReadOnly Property plose_LieferantCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_LieferantCode End Get End Property _ Public ReadOnly Property plose_RechnungsJahrColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_RechnungsJahr End Get End Property _ Public ReadOnly Property plose_DateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Dateiname End Get End Property _ Public ReadOnly Property plose_EinlesedatumColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Einlesedatum End Get End Property _ Public ReadOnly Property plose_DatensatztypColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Datensatztyp End Get End Property _ Public ReadOnly Property plose_KodexMautTankstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_KodexMautTankstelle End Get End Property _ Public ReadOnly Property plose_BeschreibungMautTankstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_BeschreibungMautTankstelle End Get End Property _ Public ReadOnly Property plose_KodexEinfahrtColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_KodexEinfahrt End Get End Property _ Public ReadOnly Property plose_BeschreibungEinfahrtColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_BeschreibungEinfahrt End Get End Property _ Public ReadOnly Property plose_KodexAusfahrtColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_KodexAusfahrt End Get End Property _ Public ReadOnly Property plose_BeschreibungAusfahrtColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_BeschreibungAusfahrt End Get End Property _ Public ReadOnly Property plose_KartenkodexColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Kartenkodex End Get End Property _ Public ReadOnly Property plose_KontonummerColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Kontonummer End Get End Property _ Public ReadOnly Property plose_NummerKarteGeraetColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_NummerKarteGeraet End Get End Property _ Public ReadOnly Property plose_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Kennzeichen End Get End Property _ Public ReadOnly Property plose_InterneNrFahrzeugColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_InterneNrFahrzeug End Get End Property _ Public ReadOnly Property plose_POLSEKundennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_POLSEKundennummer End Get End Property _ Public ReadOnly Property plose_FirmennameColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Firmenname End Get End Property _ Public ReadOnly Property plose_DatumTransaktionColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_DatumTransaktion End Get End Property _ Public ReadOnly Property plose_ProduktbeschreibungColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Produktbeschreibung End Get End Property _ Public ReadOnly Property plose_MengeColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Menge End Get End Property _ Public ReadOnly Property plose_PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Preis End Get End Property _ Public ReadOnly Property EinheitsrabattColumn() As Global.System.Data.DataColumn Get Return Me.columnEinheitsrabatt End Get End Property _ Public ReadOnly Property plose_NettobetragTransaktionColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_NettobetragTransaktion End Get End Property _ Public ReadOnly Property plose_MWSTBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_MWSTBetrag End Get End Property _ Public ReadOnly Property plose_BruttobetragTransaktionColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_BruttobetragTransaktion End Get End Property _ Public ReadOnly Property plose_NettobetragWaehrungAbbuchungColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_NettobetragWaehrungAbbuchung End Get End Property _ Public ReadOnly Property plose_MWSTBetragWaehrungAbbuchungColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_MWSTBetragWaehrungAbbuchung End Get End Property _ Public ReadOnly Property plose_BruttobetragWaehrungAbbuchungColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_BruttobetragWaehrungAbbuchung End Get End Property _ Public ReadOnly Property plose_WaehrungLandDiesntleistungColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_WaehrungLandDiesntleistung End Get End Property _ Public ReadOnly Property plose_WaehrungAbbuchungColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_WaehrungAbbuchung End Get End Property _ Public ReadOnly Property plose_DokumentNrQuittungUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_DokumentNrQuittungUhrzeit End Get End Property _ Public ReadOnly Property plose_ArtTransaktionColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_ArtTransaktion End Get End Property _ Public ReadOnly Property plose_FahrzeugklasseColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Fahrzeugklasse End Get End Property _ Public ReadOnly Property plose_KlassenidentifikationEUROColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_KlassenidentifikationEURO End Get End Property _ Public ReadOnly Property plose_ProduktbeschreibungShortColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_ProduktbeschreibungShort End Get End Property _ Public ReadOnly Property plose_TransaktionUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_TransaktionUhrzeit End Get End Property _ Public ReadOnly Property plose_GeraetetypColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Geraetetyp End Get End Property _ Public ReadOnly Property plose_ProduktCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_ProduktCode End Get End Property _ Public ReadOnly Property plose_ReferenzenBuchungMautColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_ReferenzenBuchungMaut End Get End Property _ Public ReadOnly Property plose_FakturiertColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Fakturiert End Get End Property _ Public ReadOnly Property plose_FakturiertDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_FakturiertDatum End Get End Property _ Public ReadOnly Property plose_ArchivColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_Archiv End Get End Property _ Public ReadOnly Property plose_ArchiviertDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_ArchiviertDatum End Get End Property _ Public ReadOnly Property plose_tstmpColumn() As Global.System.Data.DataColumn Get Return Me.columnplose_tstmp 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 tblPLOSE_DetailsRow Get Return CType(Me.Rows(index),tblPLOSE_DetailsRow) End Get End Property _ Public Event tblPLOSE_DetailsRowChanging As tblPLOSE_DetailsRowChangeEventHandler _ Public Event tblPLOSE_DetailsRowChanged As tblPLOSE_DetailsRowChangeEventHandler _ Public Event tblPLOSE_DetailsRowDeleting As tblPLOSE_DetailsRowChangeEventHandler _ Public Event tblPLOSE_DetailsRowDeleted As tblPLOSE_DetailsRowChangeEventHandler _ Public Overloads Sub AddtblPLOSE_DetailsRow(ByVal row As tblPLOSE_DetailsRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPLOSE_DetailsRow( _ ByVal plose_plInvId As Integer, _ ByVal plose_RechnungsDatum As Date, _ ByVal plose_RechnungsNr As String, _ ByVal plose_SupplierRechnungsDatum As Date, _ ByVal plose_SupplierRechnungsNr As String, _ ByVal plose_Lieferant As String, _ ByVal plose_LieferantCode As String, _ ByVal plose_RechnungsJahr As Integer, _ ByVal plose_Dateiname As String, _ ByVal plose_Einlesedatum As Date, _ ByVal plose_Datensatztyp As String, _ ByVal plose_KodexMautTankstelle As String, _ ByVal plose_BeschreibungMautTankstelle As String, _ ByVal plose_KodexEinfahrt As String, _ ByVal plose_BeschreibungEinfahrt As String, _ ByVal plose_KodexAusfahrt As String, _ ByVal plose_BeschreibungAusfahrt As String, _ ByVal plose_Kartenkodex As String, _ ByVal plose_Kontonummer As String, _ ByVal plose_NummerKarteGeraet As String, _ ByVal plose_Kennzeichen As String, _ ByVal plose_InterneNrFahrzeug As String, _ ByVal plose_POLSEKundennummer As String, _ ByVal plose_Firmenname As String, _ ByVal plose_DatumTransaktion As Date, _ ByVal plose_Produktbeschreibung As String, _ ByVal plose_Menge As Decimal, _ ByVal plose_Preis As Decimal, _ ByVal Einheitsrabatt As String, _ ByVal plose_NettobetragTransaktion As Decimal, _ ByVal plose_MWSTBetrag As Decimal, _ ByVal plose_BruttobetragTransaktion As Decimal, _ ByVal plose_NettobetragWaehrungAbbuchung As Decimal, _ ByVal plose_MWSTBetragWaehrungAbbuchung As Decimal, _ ByVal plose_BruttobetragWaehrungAbbuchung As Decimal, _ ByVal plose_WaehrungLandDiesntleistung As String, _ ByVal plose_WaehrungAbbuchung As String, _ ByVal plose_DokumentNrQuittungUhrzeit As String, _ ByVal plose_ArtTransaktion As String, _ ByVal plose_Fahrzeugklasse As String, _ ByVal plose_KlassenidentifikationEURO As String, _ ByVal plose_ProduktbeschreibungShort As String, _ ByVal plose_TransaktionUhrzeit As String, _ ByVal plose_Geraetetyp As String, _ ByVal plose_ProduktCode As String, _ ByVal plose_ReferenzenBuchungMaut As String, _ ByVal plose_Fakturiert As Boolean, _ ByVal plose_FakturiertDatum As Date, _ ByVal plose_Archiv As Boolean, _ ByVal plose_ArchiviertDatum As Date, _ ByVal plose_tstmp As Date) As tblPLOSE_DetailsRow Dim rowtblPLOSE_DetailsRow As tblPLOSE_DetailsRow = CType(Me.NewRow,tblPLOSE_DetailsRow) Dim columnValuesArray() As Object = New Object() {Nothing, plose_plInvId, plose_RechnungsDatum, plose_RechnungsNr, plose_SupplierRechnungsDatum, plose_SupplierRechnungsNr, plose_Lieferant, plose_LieferantCode, plose_RechnungsJahr, plose_Dateiname, plose_Einlesedatum, plose_Datensatztyp, plose_KodexMautTankstelle, plose_BeschreibungMautTankstelle, plose_KodexEinfahrt, plose_BeschreibungEinfahrt, plose_KodexAusfahrt, plose_BeschreibungAusfahrt, plose_Kartenkodex, plose_Kontonummer, plose_NummerKarteGeraet, plose_Kennzeichen, plose_InterneNrFahrzeug, plose_POLSEKundennummer, plose_Firmenname, plose_DatumTransaktion, plose_Produktbeschreibung, plose_Menge, plose_Preis, Einheitsrabatt, plose_NettobetragTransaktion, plose_MWSTBetrag, plose_BruttobetragTransaktion, plose_NettobetragWaehrungAbbuchung, plose_MWSTBetragWaehrungAbbuchung, plose_BruttobetragWaehrungAbbuchung, plose_WaehrungLandDiesntleistung, plose_WaehrungAbbuchung, plose_DokumentNrQuittungUhrzeit, plose_ArtTransaktion, plose_Fahrzeugklasse, plose_KlassenidentifikationEURO, plose_ProduktbeschreibungShort, plose_TransaktionUhrzeit, plose_Geraetetyp, plose_ProduktCode, plose_ReferenzenBuchungMaut, plose_Fakturiert, plose_FakturiertDatum, plose_Archiv, plose_ArchiviertDatum, plose_tstmp} rowtblPLOSE_DetailsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPLOSE_DetailsRow) Return rowtblPLOSE_DetailsRow End Function _ Public Function FindByplose_Id(ByVal plose_Id As Integer) As tblPLOSE_DetailsRow Return CType(Me.Rows.Find(New Object() {plose_Id}),tblPLOSE_DetailsRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPLOSE_DetailsDataTable = CType(MyBase.Clone,tblPLOSE_DetailsDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPLOSE_DetailsDataTable() End Function _ Friend Sub InitVars() Me.columnplose_Id = MyBase.Columns("plose_Id") Me.columnplose_plInvId = MyBase.Columns("plose_plInvId") Me.columnplose_RechnungsDatum = MyBase.Columns("plose_RechnungsDatum") Me.columnplose_RechnungsNr = MyBase.Columns("plose_RechnungsNr") Me.columnplose_SupplierRechnungsDatum = MyBase.Columns("plose_SupplierRechnungsDatum") Me.columnplose_SupplierRechnungsNr = MyBase.Columns("plose_SupplierRechnungsNr") Me.columnplose_Lieferant = MyBase.Columns("plose_Lieferant") Me.columnplose_LieferantCode = MyBase.Columns("plose_LieferantCode") Me.columnplose_RechnungsJahr = MyBase.Columns("plose_RechnungsJahr") Me.columnplose_Dateiname = MyBase.Columns("plose_Dateiname") Me.columnplose_Einlesedatum = MyBase.Columns("plose_Einlesedatum") Me.columnplose_Datensatztyp = MyBase.Columns("plose_Datensatztyp") Me.columnplose_KodexMautTankstelle = MyBase.Columns("plose_KodexMautTankstelle") Me.columnplose_BeschreibungMautTankstelle = MyBase.Columns("plose_BeschreibungMautTankstelle") Me.columnplose_KodexEinfahrt = MyBase.Columns("plose_KodexEinfahrt") Me.columnplose_BeschreibungEinfahrt = MyBase.Columns("plose_BeschreibungEinfahrt") Me.columnplose_KodexAusfahrt = MyBase.Columns("plose_KodexAusfahrt") Me.columnplose_BeschreibungAusfahrt = MyBase.Columns("plose_BeschreibungAusfahrt") Me.columnplose_Kartenkodex = MyBase.Columns("plose_Kartenkodex") Me.columnplose_Kontonummer = MyBase.Columns("plose_Kontonummer") Me.columnplose_NummerKarteGeraet = MyBase.Columns("plose_NummerKarteGeraet") Me.columnplose_Kennzeichen = MyBase.Columns("plose_Kennzeichen") Me.columnplose_InterneNrFahrzeug = MyBase.Columns("plose_InterneNrFahrzeug") Me.columnplose_POLSEKundennummer = MyBase.Columns("plose_POLSEKundennummer") Me.columnplose_Firmenname = MyBase.Columns("plose_Firmenname") Me.columnplose_DatumTransaktion = MyBase.Columns("plose_DatumTransaktion") Me.columnplose_Produktbeschreibung = MyBase.Columns("plose_Produktbeschreibung") Me.columnplose_Menge = MyBase.Columns("plose_Menge") Me.columnplose_Preis = MyBase.Columns("plose_Preis") Me.columnEinheitsrabatt = MyBase.Columns("Einheitsrabatt") Me.columnplose_NettobetragTransaktion = MyBase.Columns("plose_NettobetragTransaktion") Me.columnplose_MWSTBetrag = MyBase.Columns("plose_MWSTBetrag") Me.columnplose_BruttobetragTransaktion = MyBase.Columns("plose_BruttobetragTransaktion") Me.columnplose_NettobetragWaehrungAbbuchung = MyBase.Columns("plose_NettobetragWaehrungAbbuchung") Me.columnplose_MWSTBetragWaehrungAbbuchung = MyBase.Columns("plose_MWSTBetragWaehrungAbbuchung") Me.columnplose_BruttobetragWaehrungAbbuchung = MyBase.Columns("plose_BruttobetragWaehrungAbbuchung") Me.columnplose_WaehrungLandDiesntleistung = MyBase.Columns("plose_WaehrungLandDiesntleistung") Me.columnplose_WaehrungAbbuchung = MyBase.Columns("plose_WaehrungAbbuchung") Me.columnplose_DokumentNrQuittungUhrzeit = MyBase.Columns("plose_DokumentNrQuittungUhrzeit") Me.columnplose_ArtTransaktion = MyBase.Columns("plose_ArtTransaktion") Me.columnplose_Fahrzeugklasse = MyBase.Columns("plose_Fahrzeugklasse") Me.columnplose_KlassenidentifikationEURO = MyBase.Columns("plose_KlassenidentifikationEURO") Me.columnplose_ProduktbeschreibungShort = MyBase.Columns("plose_ProduktbeschreibungShort") Me.columnplose_TransaktionUhrzeit = MyBase.Columns("plose_TransaktionUhrzeit") Me.columnplose_Geraetetyp = MyBase.Columns("plose_Geraetetyp") Me.columnplose_ProduktCode = MyBase.Columns("plose_ProduktCode") Me.columnplose_ReferenzenBuchungMaut = MyBase.Columns("plose_ReferenzenBuchungMaut") Me.columnplose_Fakturiert = MyBase.Columns("plose_Fakturiert") Me.columnplose_FakturiertDatum = MyBase.Columns("plose_FakturiertDatum") Me.columnplose_Archiv = MyBase.Columns("plose_Archiv") Me.columnplose_ArchiviertDatum = MyBase.Columns("plose_ArchiviertDatum") Me.columnplose_tstmp = MyBase.Columns("plose_tstmp") End Sub _ Private Sub InitClass() Me.columnplose_Id = New Global.System.Data.DataColumn("plose_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Id) Me.columnplose_plInvId = New Global.System.Data.DataColumn("plose_plInvId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_plInvId) Me.columnplose_RechnungsDatum = New Global.System.Data.DataColumn("plose_RechnungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_RechnungsDatum) Me.columnplose_RechnungsNr = New Global.System.Data.DataColumn("plose_RechnungsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_RechnungsNr) Me.columnplose_SupplierRechnungsDatum = New Global.System.Data.DataColumn("plose_SupplierRechnungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_SupplierRechnungsDatum) Me.columnplose_SupplierRechnungsNr = New Global.System.Data.DataColumn("plose_SupplierRechnungsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_SupplierRechnungsNr) Me.columnplose_Lieferant = New Global.System.Data.DataColumn("plose_Lieferant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Lieferant) Me.columnplose_LieferantCode = New Global.System.Data.DataColumn("plose_LieferantCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_LieferantCode) Me.columnplose_RechnungsJahr = New Global.System.Data.DataColumn("plose_RechnungsJahr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_RechnungsJahr) Me.columnplose_Dateiname = New Global.System.Data.DataColumn("plose_Dateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Dateiname) Me.columnplose_Einlesedatum = New Global.System.Data.DataColumn("plose_Einlesedatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Einlesedatum) Me.columnplose_Datensatztyp = New Global.System.Data.DataColumn("plose_Datensatztyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Datensatztyp) Me.columnplose_KodexMautTankstelle = New Global.System.Data.DataColumn("plose_KodexMautTankstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_KodexMautTankstelle) Me.columnplose_BeschreibungMautTankstelle = New Global.System.Data.DataColumn("plose_BeschreibungMautTankstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_BeschreibungMautTankstelle) Me.columnplose_KodexEinfahrt = New Global.System.Data.DataColumn("plose_KodexEinfahrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_KodexEinfahrt) Me.columnplose_BeschreibungEinfahrt = New Global.System.Data.DataColumn("plose_BeschreibungEinfahrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_BeschreibungEinfahrt) Me.columnplose_KodexAusfahrt = New Global.System.Data.DataColumn("plose_KodexAusfahrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_KodexAusfahrt) Me.columnplose_BeschreibungAusfahrt = New Global.System.Data.DataColumn("plose_BeschreibungAusfahrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_BeschreibungAusfahrt) Me.columnplose_Kartenkodex = New Global.System.Data.DataColumn("plose_Kartenkodex", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Kartenkodex) Me.columnplose_Kontonummer = New Global.System.Data.DataColumn("plose_Kontonummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Kontonummer) Me.columnplose_NummerKarteGeraet = New Global.System.Data.DataColumn("plose_NummerKarteGeraet", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_NummerKarteGeraet) Me.columnplose_Kennzeichen = New Global.System.Data.DataColumn("plose_Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Kennzeichen) Me.columnplose_InterneNrFahrzeug = New Global.System.Data.DataColumn("plose_InterneNrFahrzeug", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_InterneNrFahrzeug) Me.columnplose_POLSEKundennummer = New Global.System.Data.DataColumn("plose_POLSEKundennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_POLSEKundennummer) Me.columnplose_Firmenname = New Global.System.Data.DataColumn("plose_Firmenname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Firmenname) Me.columnplose_DatumTransaktion = New Global.System.Data.DataColumn("plose_DatumTransaktion", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_DatumTransaktion) Me.columnplose_Produktbeschreibung = New Global.System.Data.DataColumn("plose_Produktbeschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Produktbeschreibung) Me.columnplose_Menge = New Global.System.Data.DataColumn("plose_Menge", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Menge) Me.columnplose_Preis = New Global.System.Data.DataColumn("plose_Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Preis) Me.columnEinheitsrabatt = New Global.System.Data.DataColumn("Einheitsrabatt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinheitsrabatt) Me.columnplose_NettobetragTransaktion = New Global.System.Data.DataColumn("plose_NettobetragTransaktion", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_NettobetragTransaktion) Me.columnplose_MWSTBetrag = New Global.System.Data.DataColumn("plose_MWSTBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_MWSTBetrag) Me.columnplose_BruttobetragTransaktion = New Global.System.Data.DataColumn("plose_BruttobetragTransaktion", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_BruttobetragTransaktion) Me.columnplose_NettobetragWaehrungAbbuchung = New Global.System.Data.DataColumn("plose_NettobetragWaehrungAbbuchung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_NettobetragWaehrungAbbuchung) Me.columnplose_MWSTBetragWaehrungAbbuchung = New Global.System.Data.DataColumn("plose_MWSTBetragWaehrungAbbuchung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_MWSTBetragWaehrungAbbuchung) Me.columnplose_BruttobetragWaehrungAbbuchung = New Global.System.Data.DataColumn("plose_BruttobetragWaehrungAbbuchung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_BruttobetragWaehrungAbbuchung) Me.columnplose_WaehrungLandDiesntleistung = New Global.System.Data.DataColumn("plose_WaehrungLandDiesntleistung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_WaehrungLandDiesntleistung) Me.columnplose_WaehrungAbbuchung = New Global.System.Data.DataColumn("plose_WaehrungAbbuchung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_WaehrungAbbuchung) Me.columnplose_DokumentNrQuittungUhrzeit = New Global.System.Data.DataColumn("plose_DokumentNrQuittungUhrzeit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_DokumentNrQuittungUhrzeit) Me.columnplose_ArtTransaktion = New Global.System.Data.DataColumn("plose_ArtTransaktion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_ArtTransaktion) Me.columnplose_Fahrzeugklasse = New Global.System.Data.DataColumn("plose_Fahrzeugklasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Fahrzeugklasse) Me.columnplose_KlassenidentifikationEURO = New Global.System.Data.DataColumn("plose_KlassenidentifikationEURO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_KlassenidentifikationEURO) Me.columnplose_ProduktbeschreibungShort = New Global.System.Data.DataColumn("plose_ProduktbeschreibungShort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_ProduktbeschreibungShort) Me.columnplose_TransaktionUhrzeit = New Global.System.Data.DataColumn("plose_TransaktionUhrzeit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_TransaktionUhrzeit) Me.columnplose_Geraetetyp = New Global.System.Data.DataColumn("plose_Geraetetyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Geraetetyp) Me.columnplose_ProduktCode = New Global.System.Data.DataColumn("plose_ProduktCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_ProduktCode) Me.columnplose_ReferenzenBuchungMaut = New Global.System.Data.DataColumn("plose_ReferenzenBuchungMaut", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_ReferenzenBuchungMaut) Me.columnplose_Fakturiert = New Global.System.Data.DataColumn("plose_Fakturiert", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Fakturiert) Me.columnplose_FakturiertDatum = New Global.System.Data.DataColumn("plose_FakturiertDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_FakturiertDatum) Me.columnplose_Archiv = New Global.System.Data.DataColumn("plose_Archiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_Archiv) Me.columnplose_ArchiviertDatum = New Global.System.Data.DataColumn("plose_ArchiviertDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_ArchiviertDatum) Me.columnplose_tstmp = New Global.System.Data.DataColumn("plose_tstmp", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplose_tstmp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnplose_Id}, true)) Me.columnplose_Id.AutoIncrement = true Me.columnplose_Id.AutoIncrementSeed = -1 Me.columnplose_Id.AutoIncrementStep = -1 Me.columnplose_Id.AllowDBNull = false Me.columnplose_Id.ReadOnly = true Me.columnplose_Id.Unique = true Me.columnplose_RechnungsNr.MaxLength = 200 Me.columnplose_SupplierRechnungsNr.MaxLength = 500 Me.columnplose_Lieferant.MaxLength = 200 Me.columnplose_LieferantCode.MaxLength = 200 Me.columnplose_Dateiname.MaxLength = 200 Me.columnplose_Datensatztyp.MaxLength = 3 Me.columnplose_KodexMautTankstelle.MaxLength = 7 Me.columnplose_BeschreibungMautTankstelle.MaxLength = 12 Me.columnplose_KodexEinfahrt.MaxLength = 7 Me.columnplose_BeschreibungEinfahrt.MaxLength = 12 Me.columnplose_KodexAusfahrt.MaxLength = 7 Me.columnplose_BeschreibungAusfahrt.MaxLength = 12 Me.columnplose_Kartenkodex.MaxLength = 7 Me.columnplose_Kontonummer.MaxLength = 13 Me.columnplose_NummerKarteGeraet.MaxLength = 20 Me.columnplose_Kennzeichen.MaxLength = 10 Me.columnplose_InterneNrFahrzeug.MaxLength = 6 Me.columnplose_POLSEKundennummer.MaxLength = 6 Me.columnplose_Firmenname.MaxLength = 35 Me.columnplose_Produktbeschreibung.MaxLength = 15 Me.columnEinheitsrabatt.MaxLength = 9 Me.columnplose_WaehrungLandDiesntleistung.MaxLength = 3 Me.columnplose_WaehrungAbbuchung.MaxLength = 3 Me.columnplose_DokumentNrQuittungUhrzeit.MaxLength = 7 Me.columnplose_ArtTransaktion.MaxLength = 1 Me.columnplose_Fahrzeugklasse.MaxLength = 2 Me.columnplose_KlassenidentifikationEURO.MaxLength = 2 Me.columnplose_ProduktbeschreibungShort.MaxLength = 3 Me.columnplose_TransaktionUhrzeit.MaxLength = 5 Me.columnplose_Geraetetyp.MaxLength = 3 Me.columnplose_ProduktCode.MaxLength = 6 Me.columnplose_ReferenzenBuchungMaut.MaxLength = 33 Me.columnplose_Fakturiert.AllowDBNull = false Me.columnplose_Archiv.AllowDBNull = false End Sub _ Public Function NewtblPLOSE_DetailsRow() As tblPLOSE_DetailsRow Return CType(Me.NewRow,tblPLOSE_DetailsRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPLOSE_DetailsRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPLOSE_DetailsRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPLOSE_DetailsRowChangedEvent) Is Nothing) Then RaiseEvent tblPLOSE_DetailsRowChanged(Me, New tblPLOSE_DetailsRowChangeEvent(CType(e.Row,tblPLOSE_DetailsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPLOSE_DetailsRowChangingEvent) Is Nothing) Then RaiseEvent tblPLOSE_DetailsRowChanging(Me, New tblPLOSE_DetailsRowChangeEvent(CType(e.Row,tblPLOSE_DetailsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPLOSE_DetailsRowDeletedEvent) Is Nothing) Then RaiseEvent tblPLOSE_DetailsRowDeleted(Me, New tblPLOSE_DetailsRowChangeEvent(CType(e.Row,tblPLOSE_DetailsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPLOSE_DetailsRowDeletingEvent) Is Nothing) Then RaiseEvent tblPLOSE_DetailsRowDeleting(Me, New tblPLOSE_DetailsRowChangeEvent(CType(e.Row,tblPLOSE_DetailsRow), e.Action)) End If End Sub _ Public Sub RemovetblPLOSE_DetailsRow(ByVal row As tblPLOSE_DetailsRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPLOSE_DetailsDataTable" 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 tblPLOSE_Inv_DataDataTable Inherits Global.System.Data.TypedTableBase(Of tblPLOSE_Inv_DataRow) Private columnplInv_Id As Global.System.Data.DataColumn Private columnplInv_SupplierRechnungsDatum As Global.System.Data.DataColumn Private columnplInv_SupplierRechnungsNr As Global.System.Data.DataColumn Private columnplInv_SupplierCountry As Global.System.Data.DataColumn Private columnplInv_Lieferant As Global.System.Data.DataColumn Private columnplInv_LieferantCode As Global.System.Data.DataColumn Private columnplInv_LieferantUID As Global.System.Data.DataColumn Private columnplInv_RechnungsJahr As Global.System.Data.DataColumn Private columnplInv_Dateiname As Global.System.Data.DataColumn Private columnplInv_Einlesedatum As Global.System.Data.DataColumn Private columnplInv_Datensatztyp As Global.System.Data.DataColumn Private columnplInv_PLOSEKundennummer As Global.System.Data.DataColumn Private columnplInv_Firmenname As Global.System.Data.DataColumn Private columnplInv_Nettobetrag As Global.System.Data.DataColumn Private columnplInv_MWSTBetrag As Global.System.Data.DataColumn Private columnplInv_Bruttobetrag As Global.System.Data.DataColumn Private columnplInv_Services As Global.System.Data.DataColumn Private columnplInv_tstmp As Global.System.Data.DataColumn Private columnplInv_daId As Global.System.Data.DataColumn Private columnplInv_PdfFileName As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPLOSE_Inv_Data" 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 plInv_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_Id End Get End Property _ Public ReadOnly Property plInv_SupplierRechnungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_SupplierRechnungsDatum End Get End Property _ Public ReadOnly Property plInv_SupplierRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_SupplierRechnungsNr End Get End Property _ Public ReadOnly Property plInv_SupplierCountryColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_SupplierCountry End Get End Property _ Public ReadOnly Property plInv_LieferantColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_Lieferant End Get End Property _ Public ReadOnly Property plInv_LieferantCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_LieferantCode End Get End Property _ Public ReadOnly Property plInv_LieferantUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_LieferantUID End Get End Property _ Public ReadOnly Property plInv_RechnungsJahrColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_RechnungsJahr End Get End Property _ Public ReadOnly Property plInv_DateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_Dateiname End Get End Property _ Public ReadOnly Property plInv_EinlesedatumColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_Einlesedatum End Get End Property _ Public ReadOnly Property plInv_DatensatztypColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_Datensatztyp End Get End Property _ Public ReadOnly Property plInv_PLOSEKundennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_PLOSEKundennummer End Get End Property _ Public ReadOnly Property plInv_FirmennameColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_Firmenname End Get End Property _ Public ReadOnly Property plInv_NettobetragColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_Nettobetrag End Get End Property _ Public ReadOnly Property plInv_MWSTBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_MWSTBetrag End Get End Property _ Public ReadOnly Property plInv_BruttobetragColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_Bruttobetrag End Get End Property _ Public ReadOnly Property plInv_ServicesColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_Services End Get End Property _ Public ReadOnly Property plInv_tstmpColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_tstmp End Get End Property _ Public ReadOnly Property plInv_daIdColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_daId End Get End Property _ Public ReadOnly Property plInv_PdfFileNameColumn() As Global.System.Data.DataColumn Get Return Me.columnplInv_PdfFileName 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 tblPLOSE_Inv_DataRow Get Return CType(Me.Rows(index),tblPLOSE_Inv_DataRow) End Get End Property _ Public Event tblPLOSE_Inv_DataRowChanging As tblPLOSE_Inv_DataRowChangeEventHandler _ Public Event tblPLOSE_Inv_DataRowChanged As tblPLOSE_Inv_DataRowChangeEventHandler _ Public Event tblPLOSE_Inv_DataRowDeleting As tblPLOSE_Inv_DataRowChangeEventHandler _ Public Event tblPLOSE_Inv_DataRowDeleted As tblPLOSE_Inv_DataRowChangeEventHandler _ Public Overloads Sub AddtblPLOSE_Inv_DataRow(ByVal row As tblPLOSE_Inv_DataRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPLOSE_Inv_DataRow( _ ByVal plInv_SupplierRechnungsDatum As Date, _ ByVal plInv_SupplierRechnungsNr As String, _ ByVal plInv_SupplierCountry As String, _ ByVal plInv_Lieferant As String, _ ByVal plInv_LieferantCode As String, _ ByVal plInv_LieferantUID As String, _ ByVal plInv_RechnungsJahr As Integer, _ ByVal plInv_Dateiname As String, _ ByVal plInv_Einlesedatum As Date, _ ByVal plInv_Datensatztyp As String, _ ByVal plInv_PLOSEKundennummer As String, _ ByVal plInv_Firmenname As String, _ ByVal plInv_Nettobetrag As Decimal, _ ByVal plInv_MWSTBetrag As Decimal, _ ByVal plInv_Bruttobetrag As Decimal, _ ByVal plInv_Services As String, _ ByVal plInv_tstmp As Date, _ ByVal plInv_daId As Integer, _ ByVal plInv_PdfFileName As String) As tblPLOSE_Inv_DataRow Dim rowtblPLOSE_Inv_DataRow As tblPLOSE_Inv_DataRow = CType(Me.NewRow,tblPLOSE_Inv_DataRow) Dim columnValuesArray() As Object = New Object() {Nothing, plInv_SupplierRechnungsDatum, plInv_SupplierRechnungsNr, plInv_SupplierCountry, plInv_Lieferant, plInv_LieferantCode, plInv_LieferantUID, plInv_RechnungsJahr, plInv_Dateiname, plInv_Einlesedatum, plInv_Datensatztyp, plInv_PLOSEKundennummer, plInv_Firmenname, plInv_Nettobetrag, plInv_MWSTBetrag, plInv_Bruttobetrag, plInv_Services, plInv_tstmp, plInv_daId, plInv_PdfFileName} rowtblPLOSE_Inv_DataRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPLOSE_Inv_DataRow) Return rowtblPLOSE_Inv_DataRow End Function _ Public Function FindByplInv_Id(ByVal plInv_Id As Integer) As tblPLOSE_Inv_DataRow Return CType(Me.Rows.Find(New Object() {plInv_Id}),tblPLOSE_Inv_DataRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPLOSE_Inv_DataDataTable = CType(MyBase.Clone,tblPLOSE_Inv_DataDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPLOSE_Inv_DataDataTable() End Function _ Friend Sub InitVars() Me.columnplInv_Id = MyBase.Columns("plInv_Id") Me.columnplInv_SupplierRechnungsDatum = MyBase.Columns("plInv_SupplierRechnungsDatum") Me.columnplInv_SupplierRechnungsNr = MyBase.Columns("plInv_SupplierRechnungsNr") Me.columnplInv_SupplierCountry = MyBase.Columns("plInv_SupplierCountry") Me.columnplInv_Lieferant = MyBase.Columns("plInv_Lieferant") Me.columnplInv_LieferantCode = MyBase.Columns("plInv_LieferantCode") Me.columnplInv_LieferantUID = MyBase.Columns("plInv_LieferantUID") Me.columnplInv_RechnungsJahr = MyBase.Columns("plInv_RechnungsJahr") Me.columnplInv_Dateiname = MyBase.Columns("plInv_Dateiname") Me.columnplInv_Einlesedatum = MyBase.Columns("plInv_Einlesedatum") Me.columnplInv_Datensatztyp = MyBase.Columns("plInv_Datensatztyp") Me.columnplInv_PLOSEKundennummer = MyBase.Columns("plInv_PLOSEKundennummer") Me.columnplInv_Firmenname = MyBase.Columns("plInv_Firmenname") Me.columnplInv_Nettobetrag = MyBase.Columns("plInv_Nettobetrag") Me.columnplInv_MWSTBetrag = MyBase.Columns("plInv_MWSTBetrag") Me.columnplInv_Bruttobetrag = MyBase.Columns("plInv_Bruttobetrag") Me.columnplInv_Services = MyBase.Columns("plInv_Services") Me.columnplInv_tstmp = MyBase.Columns("plInv_tstmp") Me.columnplInv_daId = MyBase.Columns("plInv_daId") Me.columnplInv_PdfFileName = MyBase.Columns("plInv_PdfFileName") End Sub _ Private Sub InitClass() Me.columnplInv_Id = New Global.System.Data.DataColumn("plInv_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_Id) Me.columnplInv_SupplierRechnungsDatum = New Global.System.Data.DataColumn("plInv_SupplierRechnungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_SupplierRechnungsDatum) Me.columnplInv_SupplierRechnungsNr = New Global.System.Data.DataColumn("plInv_SupplierRechnungsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_SupplierRechnungsNr) Me.columnplInv_SupplierCountry = New Global.System.Data.DataColumn("plInv_SupplierCountry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_SupplierCountry) Me.columnplInv_Lieferant = New Global.System.Data.DataColumn("plInv_Lieferant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_Lieferant) Me.columnplInv_LieferantCode = New Global.System.Data.DataColumn("plInv_LieferantCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_LieferantCode) Me.columnplInv_LieferantUID = New Global.System.Data.DataColumn("plInv_LieferantUID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_LieferantUID) Me.columnplInv_RechnungsJahr = New Global.System.Data.DataColumn("plInv_RechnungsJahr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_RechnungsJahr) Me.columnplInv_Dateiname = New Global.System.Data.DataColumn("plInv_Dateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_Dateiname) Me.columnplInv_Einlesedatum = New Global.System.Data.DataColumn("plInv_Einlesedatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_Einlesedatum) Me.columnplInv_Datensatztyp = New Global.System.Data.DataColumn("plInv_Datensatztyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_Datensatztyp) Me.columnplInv_PLOSEKundennummer = New Global.System.Data.DataColumn("plInv_PLOSEKundennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_PLOSEKundennummer) Me.columnplInv_Firmenname = New Global.System.Data.DataColumn("plInv_Firmenname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_Firmenname) Me.columnplInv_Nettobetrag = New Global.System.Data.DataColumn("plInv_Nettobetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_Nettobetrag) Me.columnplInv_MWSTBetrag = New Global.System.Data.DataColumn("plInv_MWSTBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_MWSTBetrag) Me.columnplInv_Bruttobetrag = New Global.System.Data.DataColumn("plInv_Bruttobetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_Bruttobetrag) Me.columnplInv_Services = New Global.System.Data.DataColumn("plInv_Services", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_Services) Me.columnplInv_tstmp = New Global.System.Data.DataColumn("plInv_tstmp", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_tstmp) Me.columnplInv_daId = New Global.System.Data.DataColumn("plInv_daId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_daId) Me.columnplInv_PdfFileName = New Global.System.Data.DataColumn("plInv_PdfFileName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplInv_PdfFileName) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnplInv_Id}, true)) Me.columnplInv_Id.AutoIncrement = true Me.columnplInv_Id.AutoIncrementSeed = -1 Me.columnplInv_Id.AutoIncrementStep = -1 Me.columnplInv_Id.AllowDBNull = false Me.columnplInv_Id.ReadOnly = true Me.columnplInv_Id.Unique = true Me.columnplInv_SupplierRechnungsNr.MaxLength = 500 Me.columnplInv_SupplierCountry.MaxLength = 2 Me.columnplInv_Lieferant.MaxLength = 200 Me.columnplInv_LieferantCode.MaxLength = 200 Me.columnplInv_LieferantUID.MaxLength = 200 Me.columnplInv_Dateiname.MaxLength = 200 Me.columnplInv_Datensatztyp.MaxLength = 10 Me.columnplInv_PLOSEKundennummer.MaxLength = 10 Me.columnplInv_Firmenname.MaxLength = 500 Me.columnplInv_Services.MaxLength = 500 Me.columnplInv_PdfFileName.MaxLength = 200 End Sub _ Public Function NewtblPLOSE_Inv_DataRow() As tblPLOSE_Inv_DataRow Return CType(Me.NewRow,tblPLOSE_Inv_DataRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPLOSE_Inv_DataRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPLOSE_Inv_DataRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPLOSE_Inv_DataRowChangedEvent) Is Nothing) Then RaiseEvent tblPLOSE_Inv_DataRowChanged(Me, New tblPLOSE_Inv_DataRowChangeEvent(CType(e.Row,tblPLOSE_Inv_DataRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPLOSE_Inv_DataRowChangingEvent) Is Nothing) Then RaiseEvent tblPLOSE_Inv_DataRowChanging(Me, New tblPLOSE_Inv_DataRowChangeEvent(CType(e.Row,tblPLOSE_Inv_DataRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPLOSE_Inv_DataRowDeletedEvent) Is Nothing) Then RaiseEvent tblPLOSE_Inv_DataRowDeleted(Me, New tblPLOSE_Inv_DataRowChangeEvent(CType(e.Row,tblPLOSE_Inv_DataRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPLOSE_Inv_DataRowDeletingEvent) Is Nothing) Then RaiseEvent tblPLOSE_Inv_DataRowDeleting(Me, New tblPLOSE_Inv_DataRowChangeEvent(CType(e.Row,tblPLOSE_Inv_DataRow), e.Action)) End If End Sub _ Public Sub RemovetblPLOSE_Inv_DataRow(ByVal row As tblPLOSE_Inv_DataRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPLOSE_Inv_DataDataTable" 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 tblPLOSE_LieferantDataTable Inherits Global.System.Data.TypedTableBase(Of tblPLOSE_LieferantRow) Private columnpl_LieferantCode As Global.System.Data.DataColumn Private columnpl_Bezeichnung As Global.System.Data.DataColumn Private columnpl_Land As Global.System.Data.DataColumn Private columnpl_SupplierCode As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPLOSE_Lieferant" 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 pl_LieferantCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnpl_LieferantCode End Get End Property _ Public ReadOnly Property pl_BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnpl_Bezeichnung End Get End Property _ Public ReadOnly Property pl_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnpl_Land End Get End Property _ Public ReadOnly Property pl_SupplierCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnpl_SupplierCode 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 tblPLOSE_LieferantRow Get Return CType(Me.Rows(index),tblPLOSE_LieferantRow) End Get End Property _ Public Event tblPLOSE_LieferantRowChanging As tblPLOSE_LieferantRowChangeEventHandler _ Public Event tblPLOSE_LieferantRowChanged As tblPLOSE_LieferantRowChangeEventHandler _ Public Event tblPLOSE_LieferantRowDeleting As tblPLOSE_LieferantRowChangeEventHandler _ Public Event tblPLOSE_LieferantRowDeleted As tblPLOSE_LieferantRowChangeEventHandler _ Public Overloads Sub AddtblPLOSE_LieferantRow(ByVal row As tblPLOSE_LieferantRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPLOSE_LieferantRow(ByVal pl_LieferantCode As Integer, ByVal pl_Bezeichnung As String, ByVal pl_Land As String, ByVal pl_SupplierCode As String) As tblPLOSE_LieferantRow Dim rowtblPLOSE_LieferantRow As tblPLOSE_LieferantRow = CType(Me.NewRow,tblPLOSE_LieferantRow) Dim columnValuesArray() As Object = New Object() {pl_LieferantCode, pl_Bezeichnung, pl_Land, pl_SupplierCode} rowtblPLOSE_LieferantRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPLOSE_LieferantRow) Return rowtblPLOSE_LieferantRow End Function _ Public Function FindBypl_LieferantCode(ByVal pl_LieferantCode As Integer) As tblPLOSE_LieferantRow Return CType(Me.Rows.Find(New Object() {pl_LieferantCode}),tblPLOSE_LieferantRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPLOSE_LieferantDataTable = CType(MyBase.Clone,tblPLOSE_LieferantDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPLOSE_LieferantDataTable() End Function _ Friend Sub InitVars() Me.columnpl_LieferantCode = MyBase.Columns("pl_LieferantCode") Me.columnpl_Bezeichnung = MyBase.Columns("pl_Bezeichnung") Me.columnpl_Land = MyBase.Columns("pl_Land") Me.columnpl_SupplierCode = MyBase.Columns("pl_SupplierCode") End Sub _ Private Sub InitClass() Me.columnpl_LieferantCode = New Global.System.Data.DataColumn("pl_LieferantCode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpl_LieferantCode) Me.columnpl_Bezeichnung = New Global.System.Data.DataColumn("pl_Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpl_Bezeichnung) Me.columnpl_Land = New Global.System.Data.DataColumn("pl_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpl_Land) Me.columnpl_SupplierCode = New Global.System.Data.DataColumn("pl_SupplierCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpl_SupplierCode) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpl_LieferantCode}, true)) Me.columnpl_LieferantCode.AllowDBNull = false Me.columnpl_LieferantCode.Unique = true Me.columnpl_Bezeichnung.AllowDBNull = false Me.columnpl_Bezeichnung.MaxLength = 256 Me.columnpl_Land.AllowDBNull = false Me.columnpl_Land.MaxLength = 3 Me.columnpl_SupplierCode.MaxLength = 5 End Sub _ Public Function NewtblPLOSE_LieferantRow() As tblPLOSE_LieferantRow Return CType(Me.NewRow,tblPLOSE_LieferantRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPLOSE_LieferantRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPLOSE_LieferantRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPLOSE_LieferantRowChangedEvent) Is Nothing) Then RaiseEvent tblPLOSE_LieferantRowChanged(Me, New tblPLOSE_LieferantRowChangeEvent(CType(e.Row,tblPLOSE_LieferantRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPLOSE_LieferantRowChangingEvent) Is Nothing) Then RaiseEvent tblPLOSE_LieferantRowChanging(Me, New tblPLOSE_LieferantRowChangeEvent(CType(e.Row,tblPLOSE_LieferantRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPLOSE_LieferantRowDeletedEvent) Is Nothing) Then RaiseEvent tblPLOSE_LieferantRowDeleted(Me, New tblPLOSE_LieferantRowChangeEvent(CType(e.Row,tblPLOSE_LieferantRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPLOSE_LieferantRowDeletingEvent) Is Nothing) Then RaiseEvent tblPLOSE_LieferantRowDeleting(Me, New tblPLOSE_LieferantRowChangeEvent(CType(e.Row,tblPLOSE_LieferantRow), e.Action)) End If End Sub _ Public Sub RemovetblPLOSE_LieferantRow(ByVal row As tblPLOSE_LieferantRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPLOSE_LieferantDataTable" 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 tblPLOSE_ProduktbeschreibungDataTable Inherits Global.System.Data.TypedTableBase(Of tblPLOSE_ProduktbeschreibungRow) Private columnplp_ProductCode As Global.System.Data.DataColumn Private columnplp_Land As Global.System.Data.DataColumn Private columnplp_Firma As Global.System.Data.DataColumn Private columnplp_Description_DE As Global.System.Data.DataColumn Private columnplp_Description_EN As Global.System.Data.DataColumn Private columnplp_Description_IT As Global.System.Data.DataColumn Private columnplp_LeistungsNr As Global.System.Data.DataColumn Private columnplp_Kategorie As Global.System.Data.DataColumn Private columnplp_einarbeiten As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPLOSE_Produktbeschreibung" 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 plp_ProductCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnplp_ProductCode End Get End Property _ Public ReadOnly Property plp_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnplp_Land End Get End Property _ Public ReadOnly Property plp_FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnplp_Firma End Get End Property _ Public ReadOnly Property plp_Description_DEColumn() As Global.System.Data.DataColumn Get Return Me.columnplp_Description_DE End Get End Property _ Public ReadOnly Property plp_Description_ENColumn() As Global.System.Data.DataColumn Get Return Me.columnplp_Description_EN End Get End Property _ Public ReadOnly Property plp_Description_ITColumn() As Global.System.Data.DataColumn Get Return Me.columnplp_Description_IT End Get End Property _ Public ReadOnly Property plp_LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnplp_LeistungsNr End Get End Property _ Public ReadOnly Property plp_KategorieColumn() As Global.System.Data.DataColumn Get Return Me.columnplp_Kategorie End Get End Property _ Public ReadOnly Property plp_einarbeitenColumn() As Global.System.Data.DataColumn Get Return Me.columnplp_einarbeiten 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 tblPLOSE_ProduktbeschreibungRow Get Return CType(Me.Rows(index),tblPLOSE_ProduktbeschreibungRow) End Get End Property _ Public Event tblPLOSE_ProduktbeschreibungRowChanging As tblPLOSE_ProduktbeschreibungRowChangeEventHandler _ Public Event tblPLOSE_ProduktbeschreibungRowChanged As tblPLOSE_ProduktbeschreibungRowChangeEventHandler _ Public Event tblPLOSE_ProduktbeschreibungRowDeleting As tblPLOSE_ProduktbeschreibungRowChangeEventHandler _ Public Event tblPLOSE_ProduktbeschreibungRowDeleted As tblPLOSE_ProduktbeschreibungRowChangeEventHandler _ Public Overloads Sub AddtblPLOSE_ProduktbeschreibungRow(ByVal row As tblPLOSE_ProduktbeschreibungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPLOSE_ProduktbeschreibungRow(ByVal plp_ProductCode As Integer, ByVal plp_Land As String, ByVal plp_Firma As String, ByVal plp_Description_DE As String, ByVal plp_Description_EN As String, ByVal plp_Description_IT As String, ByVal plp_LeistungsNr As Integer, ByVal plp_Kategorie As String, ByVal plp_einarbeiten As Boolean) As tblPLOSE_ProduktbeschreibungRow Dim rowtblPLOSE_ProduktbeschreibungRow As tblPLOSE_ProduktbeschreibungRow = CType(Me.NewRow,tblPLOSE_ProduktbeschreibungRow) Dim columnValuesArray() As Object = New Object() {plp_ProductCode, plp_Land, plp_Firma, plp_Description_DE, plp_Description_EN, plp_Description_IT, plp_LeistungsNr, plp_Kategorie, plp_einarbeiten} rowtblPLOSE_ProduktbeschreibungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPLOSE_ProduktbeschreibungRow) Return rowtblPLOSE_ProduktbeschreibungRow End Function _ Public Function FindByplp_ProductCodeplp_Firma(ByVal plp_ProductCode As Integer, ByVal plp_Firma As String) As tblPLOSE_ProduktbeschreibungRow Return CType(Me.Rows.Find(New Object() {plp_ProductCode, plp_Firma}),tblPLOSE_ProduktbeschreibungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPLOSE_ProduktbeschreibungDataTable = CType(MyBase.Clone,tblPLOSE_ProduktbeschreibungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPLOSE_ProduktbeschreibungDataTable() End Function _ Friend Sub InitVars() Me.columnplp_ProductCode = MyBase.Columns("plp_ProductCode") Me.columnplp_Land = MyBase.Columns("plp_Land") Me.columnplp_Firma = MyBase.Columns("plp_Firma") Me.columnplp_Description_DE = MyBase.Columns("plp_Description_DE") Me.columnplp_Description_EN = MyBase.Columns("plp_Description_EN") Me.columnplp_Description_IT = MyBase.Columns("plp_Description_IT") Me.columnplp_LeistungsNr = MyBase.Columns("plp_LeistungsNr") Me.columnplp_Kategorie = MyBase.Columns("plp_Kategorie") Me.columnplp_einarbeiten = MyBase.Columns("plp_einarbeiten") End Sub _ Private Sub InitClass() Me.columnplp_ProductCode = New Global.System.Data.DataColumn("plp_ProductCode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplp_ProductCode) Me.columnplp_Land = New Global.System.Data.DataColumn("plp_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplp_Land) Me.columnplp_Firma = New Global.System.Data.DataColumn("plp_Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplp_Firma) Me.columnplp_Description_DE = New Global.System.Data.DataColumn("plp_Description_DE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplp_Description_DE) Me.columnplp_Description_EN = New Global.System.Data.DataColumn("plp_Description_EN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplp_Description_EN) Me.columnplp_Description_IT = New Global.System.Data.DataColumn("plp_Description_IT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplp_Description_IT) Me.columnplp_LeistungsNr = New Global.System.Data.DataColumn("plp_LeistungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplp_LeistungsNr) Me.columnplp_Kategorie = New Global.System.Data.DataColumn("plp_Kategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplp_Kategorie) Me.columnplp_einarbeiten = New Global.System.Data.DataColumn("plp_einarbeiten", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnplp_einarbeiten) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnplp_ProductCode, Me.columnplp_Firma}, true)) Me.columnplp_ProductCode.AllowDBNull = false Me.columnplp_Land.AllowDBNull = false Me.columnplp_Land.MaxLength = 256 Me.columnplp_Firma.AllowDBNull = false Me.columnplp_Firma.MaxLength = 256 Me.columnplp_Description_DE.MaxLength = 256 Me.columnplp_Description_EN.MaxLength = 256 Me.columnplp_Description_IT.MaxLength = 256 Me.columnplp_Kategorie.MaxLength = 256 End Sub _ Public Function NewtblPLOSE_ProduktbeschreibungRow() As tblPLOSE_ProduktbeschreibungRow Return CType(Me.NewRow,tblPLOSE_ProduktbeschreibungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPLOSE_ProduktbeschreibungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPLOSE_ProduktbeschreibungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPLOSE_ProduktbeschreibungRowChangedEvent) Is Nothing) Then RaiseEvent tblPLOSE_ProduktbeschreibungRowChanged(Me, New tblPLOSE_ProduktbeschreibungRowChangeEvent(CType(e.Row,tblPLOSE_ProduktbeschreibungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPLOSE_ProduktbeschreibungRowChangingEvent) Is Nothing) Then RaiseEvent tblPLOSE_ProduktbeschreibungRowChanging(Me, New tblPLOSE_ProduktbeschreibungRowChangeEvent(CType(e.Row,tblPLOSE_ProduktbeschreibungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPLOSE_ProduktbeschreibungRowDeletedEvent) Is Nothing) Then RaiseEvent tblPLOSE_ProduktbeschreibungRowDeleted(Me, New tblPLOSE_ProduktbeschreibungRowChangeEvent(CType(e.Row,tblPLOSE_ProduktbeschreibungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPLOSE_ProduktbeschreibungRowDeletingEvent) Is Nothing) Then RaiseEvent tblPLOSE_ProduktbeschreibungRowDeleting(Me, New tblPLOSE_ProduktbeschreibungRowChangeEvent(CType(e.Row,tblPLOSE_ProduktbeschreibungRow), e.Action)) End If End Sub _ Public Sub RemovetblPLOSE_ProduktbeschreibungRow(ByVal row As tblPLOSE_ProduktbeschreibungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPLOSE_ProduktbeschreibungDataTable" 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 tblPosNrDataTable Inherits Global.System.Data.TypedTableBase(Of tblPosNrRow) Private columnFilialeNr As Global.System.Data.DataColumn Private columnJahr As Global.System.Data.DataColumn Private columnwert As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPosNr" 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 FilialeNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialeNr End Get End Property _ Public ReadOnly Property JahrColumn() As Global.System.Data.DataColumn Get Return Me.columnJahr End Get End Property _ Public ReadOnly Property wertColumn() As Global.System.Data.DataColumn Get Return Me.columnwert 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 tblPosNrRow Get Return CType(Me.Rows(index),tblPosNrRow) End Get End Property _ Public Event tblPosNrRowChanging As tblPosNrRowChangeEventHandler _ Public Event tblPosNrRowChanged As tblPosNrRowChangeEventHandler _ Public Event tblPosNrRowDeleting As tblPosNrRowChangeEventHandler _ Public Event tblPosNrRowDeleted As tblPosNrRowChangeEventHandler _ Public Overloads Sub AddtblPosNrRow(ByVal row As tblPosNrRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPosNrRow(ByVal FilialeNr As Integer, ByVal Jahr As Integer, ByVal wert As Integer) As tblPosNrRow Dim rowtblPosNrRow As tblPosNrRow = CType(Me.NewRow,tblPosNrRow) Dim columnValuesArray() As Object = New Object() {FilialeNr, Jahr, wert} rowtblPosNrRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPosNrRow) Return rowtblPosNrRow End Function _ Public Function FindByFilialeNrJahr(ByVal FilialeNr As Integer, ByVal Jahr As Integer) As tblPosNrRow Return CType(Me.Rows.Find(New Object() {FilialeNr, Jahr}),tblPosNrRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPosNrDataTable = CType(MyBase.Clone,tblPosNrDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPosNrDataTable() End Function _ Friend Sub InitVars() Me.columnFilialeNr = MyBase.Columns("FilialeNr") Me.columnJahr = MyBase.Columns("Jahr") Me.columnwert = MyBase.Columns("wert") End Sub _ Private Sub InitClass() Me.columnFilialeNr = New Global.System.Data.DataColumn("FilialeNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialeNr) Me.columnJahr = New Global.System.Data.DataColumn("Jahr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnJahr) Me.columnwert = New Global.System.Data.DataColumn("wert", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwert) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFilialeNr, Me.columnJahr}, true)) Me.columnFilialeNr.AllowDBNull = false Me.columnJahr.AllowDBNull = false Me.columnwert.AllowDBNull = false End Sub _ Public Function NewtblPosNrRow() As tblPosNrRow Return CType(Me.NewRow,tblPosNrRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPosNrRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPosNrRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPosNrRowChangedEvent) Is Nothing) Then RaiseEvent tblPosNrRowChanged(Me, New tblPosNrRowChangeEvent(CType(e.Row,tblPosNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPosNrRowChangingEvent) Is Nothing) Then RaiseEvent tblPosNrRowChanging(Me, New tblPosNrRowChangeEvent(CType(e.Row,tblPosNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPosNrRowDeletedEvent) Is Nothing) Then RaiseEvent tblPosNrRowDeleted(Me, New tblPosNrRowChangeEvent(CType(e.Row,tblPosNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPosNrRowDeletingEvent) Is Nothing) Then RaiseEvent tblPosNrRowDeleting(Me, New tblPosNrRowChangeEvent(CType(e.Row,tblPosNrRow), e.Action)) End If End Sub _ Public Sub RemovetblPosNrRow(ByVal row As tblPosNrRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPosNrDataTable" 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 tblPostversandDataTable Inherits Global.System.Data.TypedTableBase(Of tblPostversandRow) Private columnpost_id As Global.System.Data.DataColumn Private columnpost_AvisoId As Global.System.Data.DataColumn Private columnpost_SendungsId As Global.System.Data.DataColumn Private columnpost_FilialenNr As Global.System.Data.DataColumn Private columnpost_AbfertigungsNr As Global.System.Data.DataColumn Private columnpost_art As Global.System.Data.DataColumn Private columnpost_Empfaenger_KdNr As Global.System.Data.DataColumn Private columnpost_Empfaenger_Name1 As Global.System.Data.DataColumn Private columnpost_Empfaenger_Name2 As Global.System.Data.DataColumn Private columnpost_Empfaenger_Adresse1 As Global.System.Data.DataColumn Private columnpost_Empfaenger_Adresse2 As Global.System.Data.DataColumn Private columnpost_Empfaenger_Adresse3 As Global.System.Data.DataColumn Private columnpost_ReferenzPaketdienst As Global.System.Data.DataColumn Private columnpost_ContainerLKWNr As Global.System.Data.DataColumn Private columnpost_Datum As Global.System.Data.DataColumn Private columnpost_Sachbearbeiter As Global.System.Data.DataColumn Private columnpost_SachbearbeiterId As Global.System.Data.DataColumn Private columnpost_FirmaInAuftragKdnr As Global.System.Data.DataColumn Private columnpost_FirmaInAuftrag As Global.System.Data.DataColumn Private columnpost_Rolle As Global.System.Data.DataColumn Private columnpost_KdAuftrNrAvisierer As Global.System.Data.DataColumn Private columnpost_RgEmpfaenger_KdNr As Global.System.Data.DataColumn Private columnpost_RgEmpfaenger_Name As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPostversand" 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 post_idColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_id End Get End Property _ Public ReadOnly Property post_AvisoIdColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_AvisoId End Get End Property _ Public ReadOnly Property post_SendungsIdColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_SendungsId End Get End Property _ Public ReadOnly Property post_FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_FilialenNr End Get End Property _ Public ReadOnly Property post_AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_AbfertigungsNr End Get End Property _ Public ReadOnly Property post_artColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_art End Get End Property _ Public ReadOnly Property post_Empfaenger_KdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_Empfaenger_KdNr End Get End Property _ Public ReadOnly Property post_Empfaenger_Name1Column() As Global.System.Data.DataColumn Get Return Me.columnpost_Empfaenger_Name1 End Get End Property _ Public ReadOnly Property post_Empfaenger_Name2Column() As Global.System.Data.DataColumn Get Return Me.columnpost_Empfaenger_Name2 End Get End Property _ Public ReadOnly Property post_Empfaenger_Adresse1Column() As Global.System.Data.DataColumn Get Return Me.columnpost_Empfaenger_Adresse1 End Get End Property _ Public ReadOnly Property post_Empfaenger_Adresse2Column() As Global.System.Data.DataColumn Get Return Me.columnpost_Empfaenger_Adresse2 End Get End Property _ Public ReadOnly Property post_Empfaenger_Adresse3Column() As Global.System.Data.DataColumn Get Return Me.columnpost_Empfaenger_Adresse3 End Get End Property _ Public ReadOnly Property post_ReferenzPaketdienstColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_ReferenzPaketdienst End Get End Property _ Public ReadOnly Property post_ContainerLKWNrColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_ContainerLKWNr End Get End Property _ Public ReadOnly Property post_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_Datum End Get End Property _ Public ReadOnly Property post_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_Sachbearbeiter End Get End Property _ Public ReadOnly Property post_SachbearbeiterIdColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_SachbearbeiterId End Get End Property _ Public ReadOnly Property post_FirmaInAuftragKdnrColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_FirmaInAuftragKdnr End Get End Property _ Public ReadOnly Property post_FirmaInAuftragColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_FirmaInAuftrag End Get End Property _ Public ReadOnly Property post_RolleColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_Rolle End Get End Property _ Public ReadOnly Property post_KdAuftrNrAvisiererColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_KdAuftrNrAvisierer End Get End Property _ Public ReadOnly Property post_RgEmpfaenger_KdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_RgEmpfaenger_KdNr End Get End Property _ Public ReadOnly Property post_RgEmpfaenger_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnpost_RgEmpfaenger_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 tblPostversandRow Get Return CType(Me.Rows(index),tblPostversandRow) End Get End Property _ Public Event tblPostversandRowChanging As tblPostversandRowChangeEventHandler _ Public Event tblPostversandRowChanged As tblPostversandRowChangeEventHandler _ Public Event tblPostversandRowDeleting As tblPostversandRowChangeEventHandler _ Public Event tblPostversandRowDeleted As tblPostversandRowChangeEventHandler _ Public Overloads Sub AddtblPostversandRow(ByVal row As tblPostversandRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPostversandRow( _ ByVal post_AvisoId As Integer, _ ByVal post_SendungsId As Integer, _ ByVal post_FilialenNr As Integer, _ ByVal post_AbfertigungsNr As Integer, _ ByVal post_art As String, _ ByVal post_Empfaenger_KdNr As Integer, _ ByVal post_Empfaenger_Name1 As String, _ ByVal post_Empfaenger_Name2 As String, _ ByVal post_Empfaenger_Adresse1 As String, _ ByVal post_Empfaenger_Adresse2 As String, _ ByVal post_Empfaenger_Adresse3 As String, _ ByVal post_ReferenzPaketdienst As String, _ ByVal post_ContainerLKWNr As String, _ ByVal post_Datum As Date, _ ByVal post_Sachbearbeiter As String, _ ByVal post_SachbearbeiterId As Integer, _ ByVal post_FirmaInAuftragKdnr As Integer, _ ByVal post_FirmaInAuftrag As String, _ ByVal post_Rolle As String, _ ByVal post_KdAuftrNrAvisierer As String, _ ByVal post_RgEmpfaenger_KdNr As Integer, _ ByVal post_RgEmpfaenger_Name As String) As tblPostversandRow Dim rowtblPostversandRow As tblPostversandRow = CType(Me.NewRow,tblPostversandRow) Dim columnValuesArray() As Object = New Object() {Nothing, post_AvisoId, post_SendungsId, post_FilialenNr, post_AbfertigungsNr, post_art, post_Empfaenger_KdNr, post_Empfaenger_Name1, post_Empfaenger_Name2, post_Empfaenger_Adresse1, post_Empfaenger_Adresse2, post_Empfaenger_Adresse3, post_ReferenzPaketdienst, post_ContainerLKWNr, post_Datum, post_Sachbearbeiter, post_SachbearbeiterId, post_FirmaInAuftragKdnr, post_FirmaInAuftrag, post_Rolle, post_KdAuftrNrAvisierer, post_RgEmpfaenger_KdNr, post_RgEmpfaenger_Name} rowtblPostversandRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPostversandRow) Return rowtblPostversandRow End Function _ Public Function FindBypost_id(ByVal post_id As Integer) As tblPostversandRow Return CType(Me.Rows.Find(New Object() {post_id}),tblPostversandRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPostversandDataTable = CType(MyBase.Clone,tblPostversandDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPostversandDataTable() End Function _ Friend Sub InitVars() Me.columnpost_id = MyBase.Columns("post_id") Me.columnpost_AvisoId = MyBase.Columns("post_AvisoId") Me.columnpost_SendungsId = MyBase.Columns("post_SendungsId") Me.columnpost_FilialenNr = MyBase.Columns("post_FilialenNr") Me.columnpost_AbfertigungsNr = MyBase.Columns("post_AbfertigungsNr") Me.columnpost_art = MyBase.Columns("post_art") Me.columnpost_Empfaenger_KdNr = MyBase.Columns("post_Empfaenger_KdNr") Me.columnpost_Empfaenger_Name1 = MyBase.Columns("post_Empfaenger_Name1") Me.columnpost_Empfaenger_Name2 = MyBase.Columns("post_Empfaenger_Name2") Me.columnpost_Empfaenger_Adresse1 = MyBase.Columns("post_Empfaenger_Adresse1") Me.columnpost_Empfaenger_Adresse2 = MyBase.Columns("post_Empfaenger_Adresse2") Me.columnpost_Empfaenger_Adresse3 = MyBase.Columns("post_Empfaenger_Adresse3") Me.columnpost_ReferenzPaketdienst = MyBase.Columns("post_ReferenzPaketdienst") Me.columnpost_ContainerLKWNr = MyBase.Columns("post_ContainerLKWNr") Me.columnpost_Datum = MyBase.Columns("post_Datum") Me.columnpost_Sachbearbeiter = MyBase.Columns("post_Sachbearbeiter") Me.columnpost_SachbearbeiterId = MyBase.Columns("post_SachbearbeiterId") Me.columnpost_FirmaInAuftragKdnr = MyBase.Columns("post_FirmaInAuftragKdnr") Me.columnpost_FirmaInAuftrag = MyBase.Columns("post_FirmaInAuftrag") Me.columnpost_Rolle = MyBase.Columns("post_Rolle") Me.columnpost_KdAuftrNrAvisierer = MyBase.Columns("post_KdAuftrNrAvisierer") Me.columnpost_RgEmpfaenger_KdNr = MyBase.Columns("post_RgEmpfaenger_KdNr") Me.columnpost_RgEmpfaenger_Name = MyBase.Columns("post_RgEmpfaenger_Name") End Sub _ Private Sub InitClass() Me.columnpost_id = New Global.System.Data.DataColumn("post_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_id) Me.columnpost_AvisoId = New Global.System.Data.DataColumn("post_AvisoId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_AvisoId) Me.columnpost_SendungsId = New Global.System.Data.DataColumn("post_SendungsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_SendungsId) Me.columnpost_FilialenNr = New Global.System.Data.DataColumn("post_FilialenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_FilialenNr) Me.columnpost_AbfertigungsNr = New Global.System.Data.DataColumn("post_AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_AbfertigungsNr) Me.columnpost_art = New Global.System.Data.DataColumn("post_art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_art) Me.columnpost_Empfaenger_KdNr = New Global.System.Data.DataColumn("post_Empfaenger_KdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_Empfaenger_KdNr) Me.columnpost_Empfaenger_Name1 = New Global.System.Data.DataColumn("post_Empfaenger_Name1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_Empfaenger_Name1) Me.columnpost_Empfaenger_Name2 = New Global.System.Data.DataColumn("post_Empfaenger_Name2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_Empfaenger_Name2) Me.columnpost_Empfaenger_Adresse1 = New Global.System.Data.DataColumn("post_Empfaenger_Adresse1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_Empfaenger_Adresse1) Me.columnpost_Empfaenger_Adresse2 = New Global.System.Data.DataColumn("post_Empfaenger_Adresse2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_Empfaenger_Adresse2) Me.columnpost_Empfaenger_Adresse3 = New Global.System.Data.DataColumn("post_Empfaenger_Adresse3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_Empfaenger_Adresse3) Me.columnpost_ReferenzPaketdienst = New Global.System.Data.DataColumn("post_ReferenzPaketdienst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_ReferenzPaketdienst) Me.columnpost_ContainerLKWNr = New Global.System.Data.DataColumn("post_ContainerLKWNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_ContainerLKWNr) Me.columnpost_Datum = New Global.System.Data.DataColumn("post_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_Datum) Me.columnpost_Sachbearbeiter = New Global.System.Data.DataColumn("post_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_Sachbearbeiter) Me.columnpost_SachbearbeiterId = New Global.System.Data.DataColumn("post_SachbearbeiterId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_SachbearbeiterId) Me.columnpost_FirmaInAuftragKdnr = New Global.System.Data.DataColumn("post_FirmaInAuftragKdnr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_FirmaInAuftragKdnr) Me.columnpost_FirmaInAuftrag = New Global.System.Data.DataColumn("post_FirmaInAuftrag", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_FirmaInAuftrag) Me.columnpost_Rolle = New Global.System.Data.DataColumn("post_Rolle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_Rolle) Me.columnpost_KdAuftrNrAvisierer = New Global.System.Data.DataColumn("post_KdAuftrNrAvisierer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_KdAuftrNrAvisierer) Me.columnpost_RgEmpfaenger_KdNr = New Global.System.Data.DataColumn("post_RgEmpfaenger_KdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_RgEmpfaenger_KdNr) Me.columnpost_RgEmpfaenger_Name = New Global.System.Data.DataColumn("post_RgEmpfaenger_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpost_RgEmpfaenger_Name) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpost_id}, true)) Me.columnpost_id.AutoIncrement = true Me.columnpost_id.AutoIncrementSeed = -1 Me.columnpost_id.AutoIncrementStep = -1 Me.columnpost_id.AllowDBNull = false Me.columnpost_id.ReadOnly = true Me.columnpost_id.Unique = true Me.columnpost_art.AllowDBNull = false Me.columnpost_art.MaxLength = 200 Me.columnpost_Empfaenger_KdNr.AllowDBNull = false Me.columnpost_Empfaenger_Name1.AllowDBNull = false Me.columnpost_Empfaenger_Name1.MaxLength = 40 Me.columnpost_Empfaenger_Name2.MaxLength = 40 Me.columnpost_Empfaenger_Adresse1.AllowDBNull = false Me.columnpost_Empfaenger_Adresse1.MaxLength = 40 Me.columnpost_Empfaenger_Adresse2.AllowDBNull = false Me.columnpost_Empfaenger_Adresse2.MaxLength = 60 Me.columnpost_Empfaenger_Adresse3.AllowDBNull = false Me.columnpost_Empfaenger_Adresse3.MaxLength = 60 Me.columnpost_ReferenzPaketdienst.MaxLength = 200 Me.columnpost_ContainerLKWNr.AllowDBNull = false Me.columnpost_ContainerLKWNr.MaxLength = 200 Me.columnpost_Datum.AllowDBNull = false Me.columnpost_Sachbearbeiter.AllowDBNull = false Me.columnpost_Sachbearbeiter.MaxLength = 200 Me.columnpost_SachbearbeiterId.AllowDBNull = false Me.columnpost_FirmaInAuftrag.MaxLength = 200 Me.columnpost_Rolle.MaxLength = 20 Me.columnpost_KdAuftrNrAvisierer.MaxLength = 200 Me.columnpost_RgEmpfaenger_Name.MaxLength = 100 End Sub _ Public Function NewtblPostversandRow() As tblPostversandRow Return CType(Me.NewRow,tblPostversandRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPostversandRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPostversandRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPostversandRowChangedEvent) Is Nothing) Then RaiseEvent tblPostversandRowChanged(Me, New tblPostversandRowChangeEvent(CType(e.Row,tblPostversandRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPostversandRowChangingEvent) Is Nothing) Then RaiseEvent tblPostversandRowChanging(Me, New tblPostversandRowChangeEvent(CType(e.Row,tblPostversandRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPostversandRowDeletedEvent) Is Nothing) Then RaiseEvent tblPostversandRowDeleted(Me, New tblPostversandRowChangeEvent(CType(e.Row,tblPostversandRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPostversandRowDeletingEvent) Is Nothing) Then RaiseEvent tblPostversandRowDeleting(Me, New tblPostversandRowChangeEvent(CType(e.Row,tblPostversandRow), e.Action)) End If End Sub _ Public Sub RemovetblPostversandRow(ByVal row As tblPostversandRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPostversandDataTable" 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 tblPreislistenDataTable Inherits Global.System.Data.TypedTableBase(Of tblPreislistenRow) Private columnPreislistenNr As Global.System.Data.DataColumn Private columnPreislistenBez As Global.System.Data.DataColumn Private columnPreislistenLand As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnPreislisten_visibleSUB As Global.System.Data.DataColumn Private columnPreislisten_visibleATILLA As Global.System.Data.DataColumn Private columnPreislisten_visibleSBG As Global.System.Data.DataColumn Private columnPreislisten_visibleWAI As Global.System.Data.DataColumn Private columnPreislisten_visibleNKD As Global.System.Data.DataColumn Private columnPreislisten_visibleIMEX As Global.System.Data.DataColumn Private columnPreislisten_visibleFRONTOFFICE As Global.System.Data.DataColumn Private columnArt As Global.System.Data.DataColumn Private columnallowLGKasse As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPreislisten" 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 PreislistenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislistenNr End Get End Property _ Public ReadOnly Property PreislistenBezColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislistenBez End Get End Property _ Public ReadOnly Property PreislistenLandColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislistenLand End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property Preislisten_visibleSUBColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislisten_visibleSUB End Get End Property _ Public ReadOnly Property Preislisten_visibleATILLAColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislisten_visibleATILLA End Get End Property _ Public ReadOnly Property Preislisten_visibleSBGColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislisten_visibleSBG End Get End Property _ Public ReadOnly Property Preislisten_visibleWAIColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislisten_visibleWAI End Get End Property _ Public ReadOnly Property Preislisten_visibleNKDColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislisten_visibleNKD End Get End Property _ Public ReadOnly Property Preislisten_visibleIMEXColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislisten_visibleIMEX End Get End Property _ Public ReadOnly Property Preislisten_visibleFRONTOFFICEColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislisten_visibleFRONTOFFICE End Get End Property _ Public ReadOnly Property ArtColumn() As Global.System.Data.DataColumn Get Return Me.columnArt End Get End Property _ Public ReadOnly Property allowLGKasseColumn() As Global.System.Data.DataColumn Get Return Me.columnallowLGKasse 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 tblPreislistenRow Get Return CType(Me.Rows(index),tblPreislistenRow) End Get End Property _ Public Event tblPreislistenRowChanging As tblPreislistenRowChangeEventHandler _ Public Event tblPreislistenRowChanged As tblPreislistenRowChangeEventHandler _ Public Event tblPreislistenRowDeleting As tblPreislistenRowChangeEventHandler _ Public Event tblPreislistenRowDeleted As tblPreislistenRowChangeEventHandler _ Public Overloads Sub AddtblPreislistenRow(ByVal row As tblPreislistenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPreislistenRow(ByVal PreislistenNr As Short, ByVal PreislistenBez As String, ByVal PreislistenLand As String, ByVal SSMA_TimeStamp() As Byte, ByVal Preislisten_visibleSUB As Boolean, ByVal Preislisten_visibleATILLA As Boolean, ByVal Preislisten_visibleSBG As Boolean, ByVal Preislisten_visibleWAI As Boolean, ByVal Preislisten_visibleNKD As Boolean, ByVal Preislisten_visibleIMEX As Boolean, ByVal Preislisten_visibleFRONTOFFICE As Boolean, ByVal Art As String, ByVal allowLGKasse As Boolean) As tblPreislistenRow Dim rowtblPreislistenRow As tblPreislistenRow = CType(Me.NewRow,tblPreislistenRow) Dim columnValuesArray() As Object = New Object() {PreislistenNr, PreislistenBez, PreislistenLand, SSMA_TimeStamp, Preislisten_visibleSUB, Preislisten_visibleATILLA, Preislisten_visibleSBG, Preislisten_visibleWAI, Preislisten_visibleNKD, Preislisten_visibleIMEX, Preislisten_visibleFRONTOFFICE, Art, allowLGKasse} rowtblPreislistenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPreislistenRow) Return rowtblPreislistenRow End Function _ Public Function FindByPreislistenNr(ByVal PreislistenNr As Short) As tblPreislistenRow Return CType(Me.Rows.Find(New Object() {PreislistenNr}),tblPreislistenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPreislistenDataTable = CType(MyBase.Clone,tblPreislistenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPreislistenDataTable() End Function _ Friend Sub InitVars() Me.columnPreislistenNr = MyBase.Columns("PreislistenNr") Me.columnPreislistenBez = MyBase.Columns("PreislistenBez") Me.columnPreislistenLand = MyBase.Columns("PreislistenLand") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnPreislisten_visibleSUB = MyBase.Columns("Preislisten_visibleSUB") Me.columnPreislisten_visibleATILLA = MyBase.Columns("Preislisten_visibleATILLA") Me.columnPreislisten_visibleSBG = MyBase.Columns("Preislisten_visibleSBG") Me.columnPreislisten_visibleWAI = MyBase.Columns("Preislisten_visibleWAI") Me.columnPreislisten_visibleNKD = MyBase.Columns("Preislisten_visibleNKD") Me.columnPreislisten_visibleIMEX = MyBase.Columns("Preislisten_visibleIMEX") Me.columnPreislisten_visibleFRONTOFFICE = MyBase.Columns("Preislisten_visibleFRONTOFFICE") Me.columnArt = MyBase.Columns("Art") Me.columnallowLGKasse = MyBase.Columns("allowLGKasse") End Sub _ Private Sub InitClass() Me.columnPreislistenNr = New Global.System.Data.DataColumn("PreislistenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislistenNr) Me.columnPreislistenBez = New Global.System.Data.DataColumn("PreislistenBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislistenBez) Me.columnPreislistenLand = New Global.System.Data.DataColumn("PreislistenLand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislistenLand) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnPreislisten_visibleSUB = New Global.System.Data.DataColumn("Preislisten_visibleSUB", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislisten_visibleSUB) Me.columnPreislisten_visibleATILLA = New Global.System.Data.DataColumn("Preislisten_visibleATILLA", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislisten_visibleATILLA) Me.columnPreislisten_visibleSBG = New Global.System.Data.DataColumn("Preislisten_visibleSBG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislisten_visibleSBG) Me.columnPreislisten_visibleWAI = New Global.System.Data.DataColumn("Preislisten_visibleWAI", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislisten_visibleWAI) Me.columnPreislisten_visibleNKD = New Global.System.Data.DataColumn("Preislisten_visibleNKD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislisten_visibleNKD) Me.columnPreislisten_visibleIMEX = New Global.System.Data.DataColumn("Preislisten_visibleIMEX", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislisten_visibleIMEX) Me.columnPreislisten_visibleFRONTOFFICE = New Global.System.Data.DataColumn("Preislisten_visibleFRONTOFFICE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislisten_visibleFRONTOFFICE) Me.columnArt = New Global.System.Data.DataColumn("Art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArt) Me.columnallowLGKasse = New Global.System.Data.DataColumn("allowLGKasse", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnallowLGKasse) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPreislistenNr}, true)) Me.columnPreislistenNr.AllowDBNull = false Me.columnPreislistenNr.Unique = true Me.columnPreislistenBez.AllowDBNull = false Me.columnPreislistenBez.MaxLength = 50 Me.columnPreislistenLand.MaxLength = 3 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnPreislisten_visibleSUB.AllowDBNull = false Me.columnPreislisten_visibleATILLA.AllowDBNull = false Me.columnPreislisten_visibleSBG.AllowDBNull = false Me.columnPreislisten_visibleWAI.AllowDBNull = false Me.columnPreislisten_visibleNKD.AllowDBNull = false Me.columnPreislisten_visibleIMEX.AllowDBNull = false Me.columnPreislisten_visibleFRONTOFFICE.AllowDBNull = false Me.columnArt.AllowDBNull = false Me.columnArt.MaxLength = 1 Me.columnallowLGKasse.AllowDBNull = false End Sub _ Public Function NewtblPreislistenRow() As tblPreislistenRow Return CType(Me.NewRow,tblPreislistenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPreislistenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPreislistenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPreislistenRowChangedEvent) Is Nothing) Then RaiseEvent tblPreislistenRowChanged(Me, New tblPreislistenRowChangeEvent(CType(e.Row,tblPreislistenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPreislistenRowChangingEvent) Is Nothing) Then RaiseEvent tblPreislistenRowChanging(Me, New tblPreislistenRowChangeEvent(CType(e.Row,tblPreislistenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPreislistenRowDeletedEvent) Is Nothing) Then RaiseEvent tblPreislistenRowDeleted(Me, New tblPreislistenRowChangeEvent(CType(e.Row,tblPreislistenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPreislistenRowDeletingEvent) Is Nothing) Then RaiseEvent tblPreislistenRowDeleting(Me, New tblPreislistenRowChangeEvent(CType(e.Row,tblPreislistenRow), e.Action)) End If End Sub _ Public Sub RemovetblPreislistenRow(ByVal row As tblPreislistenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPreislistenDataTable" 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 tblPreislistenpositionenDataTable Inherits Global.System.Data.TypedTableBase(Of tblPreislistenpositionenRow) Private columnPreislistenNr As Global.System.Data.DataColumn Private columnPreislistenPos As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnLeistungsbeschreibung As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnPreistabellenNr As Global.System.Data.DataColumn Private columnAbfertigungsart As Global.System.Data.DataColumn Private columnAnzahlmultiplikator As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnArt As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPreislistenpositionen" 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 PreislistenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislistenNr End Get End Property _ Public ReadOnly Property PreislistenPosColumn() As Global.System.Data.DataColumn Get Return Me.columnPreislistenPos End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property LeistungsbeschreibungColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsbeschreibung End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property PreistabellenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPreistabellenNr End Get End Property _ Public ReadOnly Property AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsart End Get End Property _ Public ReadOnly Property AnzahlmultiplikatorColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlmultiplikator End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property ArtColumn() As Global.System.Data.DataColumn Get Return Me.columnArt 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 tblPreislistenpositionenRow Get Return CType(Me.Rows(index),tblPreislistenpositionenRow) End Get End Property _ Public Event tblPreislistenpositionenRowChanging As tblPreislistenpositionenRowChangeEventHandler _ Public Event tblPreislistenpositionenRowChanged As tblPreislistenpositionenRowChangeEventHandler _ Public Event tblPreislistenpositionenRowDeleting As tblPreislistenpositionenRowChangeEventHandler _ Public Event tblPreislistenpositionenRowDeleted As tblPreislistenpositionenRowChangeEventHandler _ Public Overloads Sub AddtblPreislistenpositionenRow(ByVal row As tblPreislistenpositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPreislistenpositionenRow(ByVal _parenttblPreislistenRowBytblPreislistenpositionen__D78DE894_2B0C_43E6_B462_32459F9DF422_ As tblPreislistenRow, ByVal PreislistenPos As Short, ByVal _parentLeistungenRowBytblPreislistenpositionen_LeistungentblPreislistenpositionen As LeistungenRow, ByVal LeistungsBez As String, ByVal Leistungsbeschreibung As String, ByVal Preis As Decimal, ByVal _parenttblPreistabellenRowBytblPreislistenpositionen__7909BA97_12D3_4CFF_A642_CB950EFCC006_ As tblPreistabellenRow, ByVal Abfertigungsart As Short, ByVal Anzahlmultiplikator As Short, ByVal SSMA_TimeStamp() As Byte, ByVal Art As String) As tblPreislistenpositionenRow Dim rowtblPreislistenpositionenRow As tblPreislistenpositionenRow = CType(Me.NewRow,tblPreislistenpositionenRow) Dim columnValuesArray() As Object = New Object() {Nothing, PreislistenPos, Nothing, LeistungsBez, Leistungsbeschreibung, Preis, Nothing, Abfertigungsart, Anzahlmultiplikator, SSMA_TimeStamp, Art} If (Not (_parenttblPreislistenRowBytblPreislistenpositionen__D78DE894_2B0C_43E6_B462_32459F9DF422_) Is Nothing) Then columnValuesArray(0) = _parenttblPreislistenRowBytblPreislistenpositionen__D78DE894_2B0C_43E6_B462_32459F9DF422_(0) End If If (Not (_parentLeistungenRowBytblPreislistenpositionen_LeistungentblPreislistenpositionen) Is Nothing) Then columnValuesArray(2) = _parentLeistungenRowBytblPreislistenpositionen_LeistungentblPreislistenpositionen(0) End If If (Not (_parenttblPreistabellenRowBytblPreislistenpositionen__7909BA97_12D3_4CFF_A642_CB950EFCC006_) Is Nothing) Then columnValuesArray(6) = _parenttblPreistabellenRowBytblPreislistenpositionen__7909BA97_12D3_4CFF_A642_CB950EFCC006_(0) End If rowtblPreislistenpositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPreislistenpositionenRow) Return rowtblPreislistenpositionenRow End Function _ Public Function FindByPreislistenNrPreislistenPos(ByVal PreislistenNr As Short, ByVal PreislistenPos As Short) As tblPreislistenpositionenRow Return CType(Me.Rows.Find(New Object() {PreislistenNr, PreislistenPos}),tblPreislistenpositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPreislistenpositionenDataTable = CType(MyBase.Clone,tblPreislistenpositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPreislistenpositionenDataTable() End Function _ Friend Sub InitVars() Me.columnPreislistenNr = MyBase.Columns("PreislistenNr") Me.columnPreislistenPos = MyBase.Columns("PreislistenPos") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnLeistungsbeschreibung = MyBase.Columns("Leistungsbeschreibung") Me.columnPreis = MyBase.Columns("Preis") Me.columnPreistabellenNr = MyBase.Columns("PreistabellenNr") Me.columnAbfertigungsart = MyBase.Columns("Abfertigungsart") Me.columnAnzahlmultiplikator = MyBase.Columns("Anzahlmultiplikator") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnArt = MyBase.Columns("Art") End Sub _ Private Sub InitClass() Me.columnPreislistenNr = New Global.System.Data.DataColumn("PreislistenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislistenNr) Me.columnPreislistenPos = New Global.System.Data.DataColumn("PreislistenPos", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreislistenPos) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnLeistungsbeschreibung = New Global.System.Data.DataColumn("Leistungsbeschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsbeschreibung) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnPreistabellenNr = New Global.System.Data.DataColumn("PreistabellenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreistabellenNr) Me.columnAbfertigungsart = New Global.System.Data.DataColumn("Abfertigungsart", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsart) Me.columnAnzahlmultiplikator = New Global.System.Data.DataColumn("Anzahlmultiplikator", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlmultiplikator) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnArt = New Global.System.Data.DataColumn("Art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArt) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPreislistenNr, Me.columnPreislistenPos}, true)) Me.columnPreislistenNr.AllowDBNull = false Me.columnPreislistenPos.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnLeistungsbeschreibung.AllowDBNull = false Me.columnLeistungsbeschreibung.MaxLength = 100 Me.columnAnzahlmultiplikator.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnArt.AllowDBNull = false Me.columnArt.MaxLength = 10 End Sub _ Public Function NewtblPreislistenpositionenRow() As tblPreislistenpositionenRow Return CType(Me.NewRow,tblPreislistenpositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPreislistenpositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPreislistenpositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPreislistenpositionenRowChangedEvent) Is Nothing) Then RaiseEvent tblPreislistenpositionenRowChanged(Me, New tblPreislistenpositionenRowChangeEvent(CType(e.Row,tblPreislistenpositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPreislistenpositionenRowChangingEvent) Is Nothing) Then RaiseEvent tblPreislistenpositionenRowChanging(Me, New tblPreislistenpositionenRowChangeEvent(CType(e.Row,tblPreislistenpositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPreislistenpositionenRowDeletedEvent) Is Nothing) Then RaiseEvent tblPreislistenpositionenRowDeleted(Me, New tblPreislistenpositionenRowChangeEvent(CType(e.Row,tblPreislistenpositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPreislistenpositionenRowDeletingEvent) Is Nothing) Then RaiseEvent tblPreislistenpositionenRowDeleting(Me, New tblPreislistenpositionenRowChangeEvent(CType(e.Row,tblPreislistenpositionenRow), e.Action)) End If End Sub _ Public Sub RemovetblPreislistenpositionenRow(ByVal row As tblPreislistenpositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPreislistenpositionenDataTable" 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 tblPreistabellenDataTable Inherits Global.System.Data.TypedTableBase(Of tblPreistabellenRow) Private columnPreistabellenNr As Global.System.Data.DataColumn Private columnPreistabellenBez As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPreistabellen" 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 PreistabellenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPreistabellenNr End Get End Property _ Public ReadOnly Property PreistabellenBezColumn() As Global.System.Data.DataColumn Get Return Me.columnPreistabellenBez End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblPreistabellenRow Get Return CType(Me.Rows(index),tblPreistabellenRow) End Get End Property _ Public Event tblPreistabellenRowChanging As tblPreistabellenRowChangeEventHandler _ Public Event tblPreistabellenRowChanged As tblPreistabellenRowChangeEventHandler _ Public Event tblPreistabellenRowDeleting As tblPreistabellenRowChangeEventHandler _ Public Event tblPreistabellenRowDeleted As tblPreistabellenRowChangeEventHandler _ Public Overloads Sub AddtblPreistabellenRow(ByVal row As tblPreistabellenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPreistabellenRow(ByVal PreistabellenNr As Short, ByVal PreistabellenBez As String, ByVal SSMA_TimeStamp() As Byte) As tblPreistabellenRow Dim rowtblPreistabellenRow As tblPreistabellenRow = CType(Me.NewRow,tblPreistabellenRow) Dim columnValuesArray() As Object = New Object() {PreistabellenNr, PreistabellenBez, SSMA_TimeStamp} rowtblPreistabellenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPreistabellenRow) Return rowtblPreistabellenRow End Function _ Public Function FindByPreistabellenNr(ByVal PreistabellenNr As Short) As tblPreistabellenRow Return CType(Me.Rows.Find(New Object() {PreistabellenNr}),tblPreistabellenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPreistabellenDataTable = CType(MyBase.Clone,tblPreistabellenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPreistabellenDataTable() End Function _ Friend Sub InitVars() Me.columnPreistabellenNr = MyBase.Columns("PreistabellenNr") Me.columnPreistabellenBez = MyBase.Columns("PreistabellenBez") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnPreistabellenNr = New Global.System.Data.DataColumn("PreistabellenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreistabellenNr) Me.columnPreistabellenBez = New Global.System.Data.DataColumn("PreistabellenBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreistabellenBez) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPreistabellenNr}, true)) Me.columnPreistabellenNr.AllowDBNull = false Me.columnPreistabellenNr.Unique = true Me.columnPreistabellenBez.AllowDBNull = false Me.columnPreistabellenBez.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblPreistabellenRow() As tblPreistabellenRow Return CType(Me.NewRow,tblPreistabellenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPreistabellenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPreistabellenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPreistabellenRowChangedEvent) Is Nothing) Then RaiseEvent tblPreistabellenRowChanged(Me, New tblPreistabellenRowChangeEvent(CType(e.Row,tblPreistabellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPreistabellenRowChangingEvent) Is Nothing) Then RaiseEvent tblPreistabellenRowChanging(Me, New tblPreistabellenRowChangeEvent(CType(e.Row,tblPreistabellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPreistabellenRowDeletedEvent) Is Nothing) Then RaiseEvent tblPreistabellenRowDeleted(Me, New tblPreistabellenRowChangeEvent(CType(e.Row,tblPreistabellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPreistabellenRowDeletingEvent) Is Nothing) Then RaiseEvent tblPreistabellenRowDeleting(Me, New tblPreistabellenRowChangeEvent(CType(e.Row,tblPreistabellenRow), e.Action)) End If End Sub _ Public Sub RemovetblPreistabellenRow(ByVal row As tblPreistabellenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPreistabellenDataTable" 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 tblPreistabellenpositionenDataTable Inherits Global.System.Data.TypedTableBase(Of tblPreistabellenpositionenRow) Private columnPreistabellenNr As Global.System.Data.DataColumn Private columnTW1 As Global.System.Data.DataColumn Private columnTW2 As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblPreistabellenpositionen" 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 PreistabellenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPreistabellenNr End Get End Property _ Public ReadOnly Property TW1Column() As Global.System.Data.DataColumn Get Return Me.columnTW1 End Get End Property _ Public ReadOnly Property TW2Column() As Global.System.Data.DataColumn Get Return Me.columnTW2 End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblPreistabellenpositionenRow Get Return CType(Me.Rows(index),tblPreistabellenpositionenRow) End Get End Property _ Public Event tblPreistabellenpositionenRowChanging As tblPreistabellenpositionenRowChangeEventHandler _ Public Event tblPreistabellenpositionenRowChanged As tblPreistabellenpositionenRowChangeEventHandler _ Public Event tblPreistabellenpositionenRowDeleting As tblPreistabellenpositionenRowChangeEventHandler _ Public Event tblPreistabellenpositionenRowDeleted As tblPreistabellenpositionenRowChangeEventHandler _ Public Overloads Sub AddtblPreistabellenpositionenRow(ByVal row As tblPreistabellenpositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblPreistabellenpositionenRow(ByVal _parenttblPreistabellenRowBytblPreistabellenpositionen__0A7945E3_819D_45DD_A5AE_7188FF604603_ As tblPreistabellenRow, ByVal TW1 As Short, ByVal TW2 As Short, ByVal Preis As Decimal, ByVal SSMA_TimeStamp() As Byte) As tblPreistabellenpositionenRow Dim rowtblPreistabellenpositionenRow As tblPreistabellenpositionenRow = CType(Me.NewRow,tblPreistabellenpositionenRow) Dim columnValuesArray() As Object = New Object() {Nothing, TW1, TW2, Preis, SSMA_TimeStamp} If (Not (_parenttblPreistabellenRowBytblPreistabellenpositionen__0A7945E3_819D_45DD_A5AE_7188FF604603_) Is Nothing) Then columnValuesArray(0) = _parenttblPreistabellenRowBytblPreistabellenpositionen__0A7945E3_819D_45DD_A5AE_7188FF604603_(0) End If rowtblPreistabellenpositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblPreistabellenpositionenRow) Return rowtblPreistabellenpositionenRow End Function _ Public Function FindByPreistabellenNrTW1TW2(ByVal PreistabellenNr As Short, ByVal TW1 As Short, ByVal TW2 As Short) As tblPreistabellenpositionenRow Return CType(Me.Rows.Find(New Object() {PreistabellenNr, TW1, TW2}),tblPreistabellenpositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblPreistabellenpositionenDataTable = CType(MyBase.Clone,tblPreistabellenpositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblPreistabellenpositionenDataTable() End Function _ Friend Sub InitVars() Me.columnPreistabellenNr = MyBase.Columns("PreistabellenNr") Me.columnTW1 = MyBase.Columns("TW1") Me.columnTW2 = MyBase.Columns("TW2") Me.columnPreis = MyBase.Columns("Preis") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnPreistabellenNr = New Global.System.Data.DataColumn("PreistabellenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreistabellenNr) Me.columnTW1 = New Global.System.Data.DataColumn("TW1", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTW1) Me.columnTW2 = New Global.System.Data.DataColumn("TW2", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTW2) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPreistabellenNr, Me.columnTW1, Me.columnTW2}, true)) Me.columnPreistabellenNr.AllowDBNull = false Me.columnTW1.AllowDBNull = false Me.columnTW2.AllowDBNull = false Me.columnPreis.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblPreistabellenpositionenRow() As tblPreistabellenpositionenRow Return CType(Me.NewRow,tblPreistabellenpositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblPreistabellenpositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblPreistabellenpositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblPreistabellenpositionenRowChangedEvent) Is Nothing) Then RaiseEvent tblPreistabellenpositionenRowChanged(Me, New tblPreistabellenpositionenRowChangeEvent(CType(e.Row,tblPreistabellenpositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblPreistabellenpositionenRowChangingEvent) Is Nothing) Then RaiseEvent tblPreistabellenpositionenRowChanging(Me, New tblPreistabellenpositionenRowChangeEvent(CType(e.Row,tblPreistabellenpositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblPreistabellenpositionenRowDeletedEvent) Is Nothing) Then RaiseEvent tblPreistabellenpositionenRowDeleted(Me, New tblPreistabellenpositionenRowChangeEvent(CType(e.Row,tblPreistabellenpositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblPreistabellenpositionenRowDeletingEvent) Is Nothing) Then RaiseEvent tblPreistabellenpositionenRowDeleting(Me, New tblPreistabellenpositionenRowChangeEvent(CType(e.Row,tblPreistabellenpositionenRow), e.Action)) End If End Sub _ Public Sub RemovetblPreistabellenpositionenRow(ByVal row As tblPreistabellenpositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblPreistabellenpositionenDataTable" 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 tblQS_AbfertigungsartenDataTable Inherits Global.System.Data.TypedTableBase(Of tblQS_AbfertigungsartenRow) Private columnQS_Abfertigungsart_ID As Global.System.Data.DataColumn Private columnQS_Abfertigungsart_Bezeichnung As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblQS_Abfertigungsarten" 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 QS_Abfertigungsart_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Abfertigungsart_ID End Get End Property _ Public ReadOnly Property QS_Abfertigungsart_BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Abfertigungsart_Bezeichnung End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblQS_AbfertigungsartenRow Get Return CType(Me.Rows(index),tblQS_AbfertigungsartenRow) End Get End Property _ Public Event tblQS_AbfertigungsartenRowChanging As tblQS_AbfertigungsartenRowChangeEventHandler _ Public Event tblQS_AbfertigungsartenRowChanged As tblQS_AbfertigungsartenRowChangeEventHandler _ Public Event tblQS_AbfertigungsartenRowDeleting As tblQS_AbfertigungsartenRowChangeEventHandler _ Public Event tblQS_AbfertigungsartenRowDeleted As tblQS_AbfertigungsartenRowChangeEventHandler _ Public Overloads Sub AddtblQS_AbfertigungsartenRow(ByVal row As tblQS_AbfertigungsartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblQS_AbfertigungsartenRow(ByVal QS_Abfertigungsart_Bezeichnung As String, ByVal upsize_ts() As Byte) As tblQS_AbfertigungsartenRow Dim rowtblQS_AbfertigungsartenRow As tblQS_AbfertigungsartenRow = CType(Me.NewRow,tblQS_AbfertigungsartenRow) Dim columnValuesArray() As Object = New Object() {Nothing, QS_Abfertigungsart_Bezeichnung, upsize_ts} rowtblQS_AbfertigungsartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblQS_AbfertigungsartenRow) Return rowtblQS_AbfertigungsartenRow End Function _ Public Function FindByQS_Abfertigungsart_ID(ByVal QS_Abfertigungsart_ID As Integer) As tblQS_AbfertigungsartenRow Return CType(Me.Rows.Find(New Object() {QS_Abfertigungsart_ID}),tblQS_AbfertigungsartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblQS_AbfertigungsartenDataTable = CType(MyBase.Clone,tblQS_AbfertigungsartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblQS_AbfertigungsartenDataTable() End Function _ Friend Sub InitVars() Me.columnQS_Abfertigungsart_ID = MyBase.Columns("QS_Abfertigungsart_ID") Me.columnQS_Abfertigungsart_Bezeichnung = MyBase.Columns("QS_Abfertigungsart_Bezeichnung") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnQS_Abfertigungsart_ID = New Global.System.Data.DataColumn("QS_Abfertigungsart_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Abfertigungsart_ID) Me.columnQS_Abfertigungsart_Bezeichnung = New Global.System.Data.DataColumn("QS_Abfertigungsart_Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Abfertigungsart_Bezeichnung) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQS_Abfertigungsart_ID}, true)) Me.columnQS_Abfertigungsart_ID.AutoIncrement = true Me.columnQS_Abfertigungsart_ID.AutoIncrementSeed = -1 Me.columnQS_Abfertigungsart_ID.AutoIncrementStep = -1 Me.columnQS_Abfertigungsart_ID.AllowDBNull = false Me.columnQS_Abfertigungsart_ID.ReadOnly = true Me.columnQS_Abfertigungsart_ID.Unique = true Me.columnQS_Abfertigungsart_Bezeichnung.AllowDBNull = false Me.columnQS_Abfertigungsart_Bezeichnung.MaxLength = 50 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblQS_AbfertigungsartenRow() As tblQS_AbfertigungsartenRow Return CType(Me.NewRow,tblQS_AbfertigungsartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblQS_AbfertigungsartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblQS_AbfertigungsartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblQS_AbfertigungsartenRowChangedEvent) Is Nothing) Then RaiseEvent tblQS_AbfertigungsartenRowChanged(Me, New tblQS_AbfertigungsartenRowChangeEvent(CType(e.Row,tblQS_AbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblQS_AbfertigungsartenRowChangingEvent) Is Nothing) Then RaiseEvent tblQS_AbfertigungsartenRowChanging(Me, New tblQS_AbfertigungsartenRowChangeEvent(CType(e.Row,tblQS_AbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblQS_AbfertigungsartenRowDeletedEvent) Is Nothing) Then RaiseEvent tblQS_AbfertigungsartenRowDeleted(Me, New tblQS_AbfertigungsartenRowChangeEvent(CType(e.Row,tblQS_AbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblQS_AbfertigungsartenRowDeletingEvent) Is Nothing) Then RaiseEvent tblQS_AbfertigungsartenRowDeleting(Me, New tblQS_AbfertigungsartenRowChangeEvent(CType(e.Row,tblQS_AbfertigungsartenRow), e.Action)) End If End Sub _ Public Sub RemovetblQS_AbfertigungsartenRow(ByVal row As tblQS_AbfertigungsartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblQS_AbfertigungsartenDataTable" 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 tblQS_AufträgeDataTable Inherits Global.System.Data.TypedTableBase(Of tblQS_AufträgeRow) Private columnQS_Auftrags_ID As Global.System.Data.DataColumn Private columnQS_Auftrags_Datum As Global.System.Data.DataColumn Private columnQS_Sachbearbeiter_ID As Global.System.Data.DataColumn Private columnQS_Frachtführer_ID As Global.System.Data.DataColumn Private columnQS_Kennzeichen_LKW As Global.System.Data.DataColumn Private columnQS_Sendungen_Gesamtanzahl As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblQS_Aufträge" 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 QS_Auftrags_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Auftrags_ID End Get End Property _ Public ReadOnly Property QS_Auftrags_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Auftrags_Datum End Get End Property _ Public ReadOnly Property QS_Sachbearbeiter_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Sachbearbeiter_ID End Get End Property _ Public ReadOnly Property QS_Frachtführer_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Frachtführer_ID End Get End Property _ Public ReadOnly Property QS_Kennzeichen_LKWColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Kennzeichen_LKW End Get End Property _ Public ReadOnly Property QS_Sendungen_GesamtanzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Sendungen_Gesamtanzahl End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblQS_AufträgeRow Get Return CType(Me.Rows(index),tblQS_AufträgeRow) End Get End Property _ Public Event tblQS_AufträgeRowChanging As tblQS_AufträgeRowChangeEventHandler _ Public Event tblQS_AufträgeRowChanged As tblQS_AufträgeRowChangeEventHandler _ Public Event tblQS_AufträgeRowDeleting As tblQS_AufträgeRowChangeEventHandler _ Public Event tblQS_AufträgeRowDeleted As tblQS_AufträgeRowChangeEventHandler _ Public Overloads Sub AddtblQS_AufträgeRow(ByVal row As tblQS_AufträgeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblQS_AufträgeRow(ByVal QS_Auftrags_Datum As Date, ByVal QS_Sachbearbeiter_ID As Integer, ByVal QS_Frachtführer_ID As Integer, ByVal QS_Kennzeichen_LKW As String, ByVal QS_Sendungen_Gesamtanzahl As Integer, ByVal upsize_ts() As Byte) As tblQS_AufträgeRow Dim rowtblQS_AufträgeRow As tblQS_AufträgeRow = CType(Me.NewRow,tblQS_AufträgeRow) Dim columnValuesArray() As Object = New Object() {Nothing, QS_Auftrags_Datum, QS_Sachbearbeiter_ID, QS_Frachtführer_ID, QS_Kennzeichen_LKW, QS_Sendungen_Gesamtanzahl, upsize_ts} rowtblQS_AufträgeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblQS_AufträgeRow) Return rowtblQS_AufträgeRow End Function _ Public Function FindByQS_Auftrags_ID(ByVal QS_Auftrags_ID As Integer) As tblQS_AufträgeRow Return CType(Me.Rows.Find(New Object() {QS_Auftrags_ID}),tblQS_AufträgeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblQS_AufträgeDataTable = CType(MyBase.Clone,tblQS_AufträgeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblQS_AufträgeDataTable() End Function _ Friend Sub InitVars() Me.columnQS_Auftrags_ID = MyBase.Columns("QS_Auftrags_ID") Me.columnQS_Auftrags_Datum = MyBase.Columns("QS_Auftrags_Datum") Me.columnQS_Sachbearbeiter_ID = MyBase.Columns("QS_Sachbearbeiter_ID") Me.columnQS_Frachtführer_ID = MyBase.Columns("QS_Frachtführer_ID") Me.columnQS_Kennzeichen_LKW = MyBase.Columns("QS_Kennzeichen_LKW") Me.columnQS_Sendungen_Gesamtanzahl = MyBase.Columns("QS_Sendungen_Gesamtanzahl") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnQS_Auftrags_ID = New Global.System.Data.DataColumn("QS_Auftrags_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Auftrags_ID) Me.columnQS_Auftrags_Datum = New Global.System.Data.DataColumn("QS_Auftrags_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Auftrags_Datum) Me.columnQS_Sachbearbeiter_ID = New Global.System.Data.DataColumn("QS_Sachbearbeiter_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Sachbearbeiter_ID) Me.columnQS_Frachtführer_ID = New Global.System.Data.DataColumn("QS_Frachtführer_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Frachtführer_ID) Me.columnQS_Kennzeichen_LKW = New Global.System.Data.DataColumn("QS_Kennzeichen_LKW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Kennzeichen_LKW) Me.columnQS_Sendungen_Gesamtanzahl = New Global.System.Data.DataColumn("QS_Sendungen_Gesamtanzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Sendungen_Gesamtanzahl) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQS_Auftrags_ID}, true)) Me.columnQS_Auftrags_ID.AutoIncrement = true Me.columnQS_Auftrags_ID.AutoIncrementSeed = -1 Me.columnQS_Auftrags_ID.AutoIncrementStep = -1 Me.columnQS_Auftrags_ID.AllowDBNull = false Me.columnQS_Auftrags_ID.ReadOnly = true Me.columnQS_Auftrags_ID.Unique = true Me.columnQS_Auftrags_Datum.AllowDBNull = false Me.columnQS_Sachbearbeiter_ID.AllowDBNull = false Me.columnQS_Frachtführer_ID.AllowDBNull = false Me.columnQS_Kennzeichen_LKW.AllowDBNull = false Me.columnQS_Kennzeichen_LKW.MaxLength = 25 Me.columnQS_Sendungen_Gesamtanzahl.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblQS_AufträgeRow() As tblQS_AufträgeRow Return CType(Me.NewRow,tblQS_AufträgeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblQS_AufträgeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblQS_AufträgeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblQS_AufträgeRowChangedEvent) Is Nothing) Then RaiseEvent tblQS_AufträgeRowChanged(Me, New tblQS_AufträgeRowChangeEvent(CType(e.Row,tblQS_AufträgeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblQS_AufträgeRowChangingEvent) Is Nothing) Then RaiseEvent tblQS_AufträgeRowChanging(Me, New tblQS_AufträgeRowChangeEvent(CType(e.Row,tblQS_AufträgeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblQS_AufträgeRowDeletedEvent) Is Nothing) Then RaiseEvent tblQS_AufträgeRowDeleted(Me, New tblQS_AufträgeRowChangeEvent(CType(e.Row,tblQS_AufträgeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblQS_AufträgeRowDeletingEvent) Is Nothing) Then RaiseEvent tblQS_AufträgeRowDeleting(Me, New tblQS_AufträgeRowChangeEvent(CType(e.Row,tblQS_AufträgeRow), e.Action)) End If End Sub _ Public Sub RemovetblQS_AufträgeRow(ByVal row As tblQS_AufträgeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblQS_AufträgeDataTable" 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 tblQS_AuftragspositionenDataTable Inherits Global.System.Data.TypedTableBase(Of tblQS_AuftragspositionenRow) Private columnQS_Auftrags_ID As Global.System.Data.DataColumn Private columnQS_Abfertigungsart_ID As Global.System.Data.DataColumn Private columnQS_Abfertigungsart_Anzahl As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblQS_Auftragspositionen" 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 QS_Auftrags_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Auftrags_ID End Get End Property _ Public ReadOnly Property QS_Abfertigungsart_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Abfertigungsart_ID End Get End Property _ Public ReadOnly Property QS_Abfertigungsart_AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Abfertigungsart_Anzahl End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblQS_AuftragspositionenRow Get Return CType(Me.Rows(index),tblQS_AuftragspositionenRow) End Get End Property _ Public Event tblQS_AuftragspositionenRowChanging As tblQS_AuftragspositionenRowChangeEventHandler _ Public Event tblQS_AuftragspositionenRowChanged As tblQS_AuftragspositionenRowChangeEventHandler _ Public Event tblQS_AuftragspositionenRowDeleting As tblQS_AuftragspositionenRowChangeEventHandler _ Public Event tblQS_AuftragspositionenRowDeleted As tblQS_AuftragspositionenRowChangeEventHandler _ Public Overloads Sub AddtblQS_AuftragspositionenRow(ByVal row As tblQS_AuftragspositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblQS_AuftragspositionenRow(ByVal parenttblQS_AufträgeRowBytblQS_Auftragspositionen_FK01 As tblQS_AufträgeRow, ByVal parenttblQS_AbfertigungsartenRowBytblQS_Auftragspositionen_FK00 As tblQS_AbfertigungsartenRow, ByVal QS_Abfertigungsart_Anzahl As Integer, ByVal upsize_ts() As Byte) As tblQS_AuftragspositionenRow Dim rowtblQS_AuftragspositionenRow As tblQS_AuftragspositionenRow = CType(Me.NewRow,tblQS_AuftragspositionenRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, QS_Abfertigungsart_Anzahl, upsize_ts} If (Not (parenttblQS_AufträgeRowBytblQS_Auftragspositionen_FK01) Is Nothing) Then columnValuesArray(0) = parenttblQS_AufträgeRowBytblQS_Auftragspositionen_FK01(0) End If If (Not (parenttblQS_AbfertigungsartenRowBytblQS_Auftragspositionen_FK00) Is Nothing) Then columnValuesArray(1) = parenttblQS_AbfertigungsartenRowBytblQS_Auftragspositionen_FK00(0) End If rowtblQS_AuftragspositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblQS_AuftragspositionenRow) Return rowtblQS_AuftragspositionenRow End Function _ Public Function FindByQS_Auftrags_IDQS_Abfertigungsart_ID(ByVal QS_Auftrags_ID As Integer, ByVal QS_Abfertigungsart_ID As Integer) As tblQS_AuftragspositionenRow Return CType(Me.Rows.Find(New Object() {QS_Auftrags_ID, QS_Abfertigungsart_ID}),tblQS_AuftragspositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblQS_AuftragspositionenDataTable = CType(MyBase.Clone,tblQS_AuftragspositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblQS_AuftragspositionenDataTable() End Function _ Friend Sub InitVars() Me.columnQS_Auftrags_ID = MyBase.Columns("QS_Auftrags_ID") Me.columnQS_Abfertigungsart_ID = MyBase.Columns("QS_Abfertigungsart_ID") Me.columnQS_Abfertigungsart_Anzahl = MyBase.Columns("QS_Abfertigungsart_Anzahl") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnQS_Auftrags_ID = New Global.System.Data.DataColumn("QS_Auftrags_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Auftrags_ID) Me.columnQS_Abfertigungsart_ID = New Global.System.Data.DataColumn("QS_Abfertigungsart_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Abfertigungsart_ID) Me.columnQS_Abfertigungsart_Anzahl = New Global.System.Data.DataColumn("QS_Abfertigungsart_Anzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Abfertigungsart_Anzahl) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQS_Auftrags_ID, Me.columnQS_Abfertigungsart_ID}, true)) Me.columnQS_Auftrags_ID.AllowDBNull = false Me.columnQS_Abfertigungsart_ID.AllowDBNull = false Me.columnQS_Abfertigungsart_Anzahl.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblQS_AuftragspositionenRow() As tblQS_AuftragspositionenRow Return CType(Me.NewRow,tblQS_AuftragspositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblQS_AuftragspositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblQS_AuftragspositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblQS_AuftragspositionenRowChangedEvent) Is Nothing) Then RaiseEvent tblQS_AuftragspositionenRowChanged(Me, New tblQS_AuftragspositionenRowChangeEvent(CType(e.Row,tblQS_AuftragspositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblQS_AuftragspositionenRowChangingEvent) Is Nothing) Then RaiseEvent tblQS_AuftragspositionenRowChanging(Me, New tblQS_AuftragspositionenRowChangeEvent(CType(e.Row,tblQS_AuftragspositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblQS_AuftragspositionenRowDeletedEvent) Is Nothing) Then RaiseEvent tblQS_AuftragspositionenRowDeleted(Me, New tblQS_AuftragspositionenRowChangeEvent(CType(e.Row,tblQS_AuftragspositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblQS_AuftragspositionenRowDeletingEvent) Is Nothing) Then RaiseEvent tblQS_AuftragspositionenRowDeleting(Me, New tblQS_AuftragspositionenRowChangeEvent(CType(e.Row,tblQS_AuftragspositionenRow), e.Action)) End If End Sub _ Public Sub RemovetblQS_AuftragspositionenRow(ByVal row As tblQS_AuftragspositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblQS_AuftragspositionenDataTable" 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 tblQS_TeamsDataTable Inherits Global.System.Data.TypedTableBase(Of tblQS_TeamsRow) Private columnqstm_Id As Global.System.Data.DataColumn Private columnqstm_bezeichnung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblQS_Teams" 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 qstm_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnqstm_Id End Get End Property _ Public ReadOnly Property qstm_bezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnqstm_bezeichnung 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 tblQS_TeamsRow Get Return CType(Me.Rows(index),tblQS_TeamsRow) End Get End Property _ Public Event tblQS_TeamsRowChanging As tblQS_TeamsRowChangeEventHandler _ Public Event tblQS_TeamsRowChanged As tblQS_TeamsRowChangeEventHandler _ Public Event tblQS_TeamsRowDeleting As tblQS_TeamsRowChangeEventHandler _ Public Event tblQS_TeamsRowDeleted As tblQS_TeamsRowChangeEventHandler _ Public Overloads Sub AddtblQS_TeamsRow(ByVal row As tblQS_TeamsRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblQS_TeamsRow(ByVal qstm_bezeichnung As String) As tblQS_TeamsRow Dim rowtblQS_TeamsRow As tblQS_TeamsRow = CType(Me.NewRow,tblQS_TeamsRow) Dim columnValuesArray() As Object = New Object() {Nothing, qstm_bezeichnung} rowtblQS_TeamsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblQS_TeamsRow) Return rowtblQS_TeamsRow End Function _ Public Function FindByqstm_Id(ByVal qstm_Id As Integer) As tblQS_TeamsRow Return CType(Me.Rows.Find(New Object() {qstm_Id}),tblQS_TeamsRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblQS_TeamsDataTable = CType(MyBase.Clone,tblQS_TeamsDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblQS_TeamsDataTable() End Function _ Friend Sub InitVars() Me.columnqstm_Id = MyBase.Columns("qstm_Id") Me.columnqstm_bezeichnung = MyBase.Columns("qstm_bezeichnung") End Sub _ Private Sub InitClass() Me.columnqstm_Id = New Global.System.Data.DataColumn("qstm_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnqstm_Id) Me.columnqstm_bezeichnung = New Global.System.Data.DataColumn("qstm_bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnqstm_bezeichnung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnqstm_Id}, true)) Me.columnqstm_Id.AutoIncrement = true Me.columnqstm_Id.AutoIncrementSeed = -1 Me.columnqstm_Id.AutoIncrementStep = -1 Me.columnqstm_Id.AllowDBNull = false Me.columnqstm_Id.ReadOnly = true Me.columnqstm_Id.Unique = true Me.columnqstm_bezeichnung.AllowDBNull = false Me.columnqstm_bezeichnung.MaxLength = 100 End Sub _ Public Function NewtblQS_TeamsRow() As tblQS_TeamsRow Return CType(Me.NewRow,tblQS_TeamsRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblQS_TeamsRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblQS_TeamsRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblQS_TeamsRowChangedEvent) Is Nothing) Then RaiseEvent tblQS_TeamsRowChanged(Me, New tblQS_TeamsRowChangeEvent(CType(e.Row,tblQS_TeamsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblQS_TeamsRowChangingEvent) Is Nothing) Then RaiseEvent tblQS_TeamsRowChanging(Me, New tblQS_TeamsRowChangeEvent(CType(e.Row,tblQS_TeamsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblQS_TeamsRowDeletedEvent) Is Nothing) Then RaiseEvent tblQS_TeamsRowDeleted(Me, New tblQS_TeamsRowChangeEvent(CType(e.Row,tblQS_TeamsRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblQS_TeamsRowDeletingEvent) Is Nothing) Then RaiseEvent tblQS_TeamsRowDeleting(Me, New tblQS_TeamsRowChangeEvent(CType(e.Row,tblQS_TeamsRow), e.Action)) End If End Sub _ Public Sub RemovetblQS_TeamsRow(ByVal row As tblQS_TeamsRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblQS_TeamsDataTable" 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 tblQS_TeamsMADataTable Inherits Global.System.Data.TypedTableBase(Of tblQS_TeamsMARow) Private columnqtma_Id As Global.System.Data.DataColumn Private columnqtma_QstmId As Global.System.Data.DataColumn Private columnqtma_MaId As Global.System.Data.DataColumn Private columnqtma_name As Global.System.Data.DataColumn Private columnqtma_funktion As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblQS_TeamsMA" 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 qtma_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnqtma_Id End Get End Property _ Public ReadOnly Property qtma_QstmIdColumn() As Global.System.Data.DataColumn Get Return Me.columnqtma_QstmId End Get End Property _ Public ReadOnly Property qtma_MaIdColumn() As Global.System.Data.DataColumn Get Return Me.columnqtma_MaId End Get End Property _ Public ReadOnly Property qtma_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnqtma_name End Get End Property _ Public ReadOnly Property qtma_funktionColumn() As Global.System.Data.DataColumn Get Return Me.columnqtma_funktion 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 tblQS_TeamsMARow Get Return CType(Me.Rows(index),tblQS_TeamsMARow) End Get End Property _ Public Event tblQS_TeamsMARowChanging As tblQS_TeamsMARowChangeEventHandler _ Public Event tblQS_TeamsMARowChanged As tblQS_TeamsMARowChangeEventHandler _ Public Event tblQS_TeamsMARowDeleting As tblQS_TeamsMARowChangeEventHandler _ Public Event tblQS_TeamsMARowDeleted As tblQS_TeamsMARowChangeEventHandler _ Public Overloads Sub AddtblQS_TeamsMARow(ByVal row As tblQS_TeamsMARow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblQS_TeamsMARow(ByVal qtma_QstmId As Integer, ByVal qtma_MaId As Integer, ByVal qtma_name As String, ByVal qtma_funktion As String) As tblQS_TeamsMARow Dim rowtblQS_TeamsMARow As tblQS_TeamsMARow = CType(Me.NewRow,tblQS_TeamsMARow) Dim columnValuesArray() As Object = New Object() {Nothing, qtma_QstmId, qtma_MaId, qtma_name, qtma_funktion} rowtblQS_TeamsMARow.ItemArray = columnValuesArray Me.Rows.Add(rowtblQS_TeamsMARow) Return rowtblQS_TeamsMARow End Function _ Public Function FindByqtma_Id(ByVal qtma_Id As Integer) As tblQS_TeamsMARow Return CType(Me.Rows.Find(New Object() {qtma_Id}),tblQS_TeamsMARow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblQS_TeamsMADataTable = CType(MyBase.Clone,tblQS_TeamsMADataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblQS_TeamsMADataTable() End Function _ Friend Sub InitVars() Me.columnqtma_Id = MyBase.Columns("qtma_Id") Me.columnqtma_QstmId = MyBase.Columns("qtma_QstmId") Me.columnqtma_MaId = MyBase.Columns("qtma_MaId") Me.columnqtma_name = MyBase.Columns("qtma_name") Me.columnqtma_funktion = MyBase.Columns("qtma_funktion") End Sub _ Private Sub InitClass() Me.columnqtma_Id = New Global.System.Data.DataColumn("qtma_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnqtma_Id) Me.columnqtma_QstmId = New Global.System.Data.DataColumn("qtma_QstmId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnqtma_QstmId) Me.columnqtma_MaId = New Global.System.Data.DataColumn("qtma_MaId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnqtma_MaId) Me.columnqtma_name = New Global.System.Data.DataColumn("qtma_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnqtma_name) Me.columnqtma_funktion = New Global.System.Data.DataColumn("qtma_funktion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnqtma_funktion) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnqtma_Id}, true)) Me.columnqtma_Id.AutoIncrement = true Me.columnqtma_Id.AutoIncrementSeed = -1 Me.columnqtma_Id.AutoIncrementStep = -1 Me.columnqtma_Id.AllowDBNull = false Me.columnqtma_Id.ReadOnly = true Me.columnqtma_Id.Unique = true Me.columnqtma_QstmId.AllowDBNull = false Me.columnqtma_MaId.AllowDBNull = false Me.columnqtma_name.AllowDBNull = false Me.columnqtma_name.MaxLength = 100 Me.columnqtma_funktion.MaxLength = 100 End Sub _ Public Function NewtblQS_TeamsMARow() As tblQS_TeamsMARow Return CType(Me.NewRow,tblQS_TeamsMARow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblQS_TeamsMARow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblQS_TeamsMARow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblQS_TeamsMARowChangedEvent) Is Nothing) Then RaiseEvent tblQS_TeamsMARowChanged(Me, New tblQS_TeamsMARowChangeEvent(CType(e.Row,tblQS_TeamsMARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblQS_TeamsMARowChangingEvent) Is Nothing) Then RaiseEvent tblQS_TeamsMARowChanging(Me, New tblQS_TeamsMARowChangeEvent(CType(e.Row,tblQS_TeamsMARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblQS_TeamsMARowDeletedEvent) Is Nothing) Then RaiseEvent tblQS_TeamsMARowDeleted(Me, New tblQS_TeamsMARowChangeEvent(CType(e.Row,tblQS_TeamsMARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblQS_TeamsMARowDeletingEvent) Is Nothing) Then RaiseEvent tblQS_TeamsMARowDeleting(Me, New tblQS_TeamsMARowChangeEvent(CType(e.Row,tblQS_TeamsMARow), e.Action)) End If End Sub _ Public Sub RemovetblQS_TeamsMARow(ByVal row As tblQS_TeamsMARow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblQS_TeamsMADataTable" 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 tblRechnungsnotizenDataTable Inherits Global.System.Data.TypedTableBase(Of tblRechnungsnotizenRow) Private columnNotiz As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblRechnungsnotizen" 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 NotizColumn() As Global.System.Data.DataColumn Get Return Me.columnNotiz End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblRechnungsnotizenRow Get Return CType(Me.Rows(index),tblRechnungsnotizenRow) End Get End Property _ Public Event tblRechnungsnotizenRowChanging As tblRechnungsnotizenRowChangeEventHandler _ Public Event tblRechnungsnotizenRowChanged As tblRechnungsnotizenRowChangeEventHandler _ Public Event tblRechnungsnotizenRowDeleting As tblRechnungsnotizenRowChangeEventHandler _ Public Event tblRechnungsnotizenRowDeleted As tblRechnungsnotizenRowChangeEventHandler _ Public Overloads Sub AddtblRechnungsnotizenRow(ByVal row As tblRechnungsnotizenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblRechnungsnotizenRow(ByVal Notiz As String, ByVal SSMA_TimeStamp() As Byte) As tblRechnungsnotizenRow Dim rowtblRechnungsnotizenRow As tblRechnungsnotizenRow = CType(Me.NewRow,tblRechnungsnotizenRow) Dim columnValuesArray() As Object = New Object() {Notiz, SSMA_TimeStamp} rowtblRechnungsnotizenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblRechnungsnotizenRow) Return rowtblRechnungsnotizenRow End Function _ Public Function FindByNotiz(ByVal Notiz As String) As tblRechnungsnotizenRow Return CType(Me.Rows.Find(New Object() {Notiz}),tblRechnungsnotizenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblRechnungsnotizenDataTable = CType(MyBase.Clone,tblRechnungsnotizenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblRechnungsnotizenDataTable() End Function _ Friend Sub InitVars() Me.columnNotiz = MyBase.Columns("Notiz") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnNotiz = New Global.System.Data.DataColumn("Notiz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNotiz) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnNotiz}, true)) Me.columnNotiz.AllowDBNull = false Me.columnNotiz.Unique = true Me.columnNotiz.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblRechnungsnotizenRow() As tblRechnungsnotizenRow Return CType(Me.NewRow,tblRechnungsnotizenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblRechnungsnotizenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblRechnungsnotizenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblRechnungsnotizenRowChangedEvent) Is Nothing) Then RaiseEvent tblRechnungsnotizenRowChanged(Me, New tblRechnungsnotizenRowChangeEvent(CType(e.Row,tblRechnungsnotizenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblRechnungsnotizenRowChangingEvent) Is Nothing) Then RaiseEvent tblRechnungsnotizenRowChanging(Me, New tblRechnungsnotizenRowChangeEvent(CType(e.Row,tblRechnungsnotizenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblRechnungsnotizenRowDeletedEvent) Is Nothing) Then RaiseEvent tblRechnungsnotizenRowDeleted(Me, New tblRechnungsnotizenRowChangeEvent(CType(e.Row,tblRechnungsnotizenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblRechnungsnotizenRowDeletingEvent) Is Nothing) Then RaiseEvent tblRechnungsnotizenRowDeleting(Me, New tblRechnungsnotizenRowChangeEvent(CType(e.Row,tblRechnungsnotizenRow), e.Action)) End If End Sub _ Public Sub RemovetblRechnungsnotizenRow(ByVal row As tblRechnungsnotizenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblRechnungsnotizenDataTable" 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 tblRefDataTable Inherits Global.System.Data.TypedTableBase(Of tblRefRow) Private columnRefBenutzer As Global.System.Data.DataColumn Private columnRefTabelle As Global.System.Data.DataColumn Private columnRefFeld As Global.System.Data.DataColumn Private columnRefIntegrität As Global.System.Data.DataColumn Private columnRefAktualisierung As Global.System.Data.DataColumn Private columnRefLöschung As Global.System.Data.DataColumn Private columnRefAnzahl As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblRef" 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 RefBenutzerColumn() As Global.System.Data.DataColumn Get Return Me.columnRefBenutzer End Get End Property _ Public ReadOnly Property RefTabelleColumn() As Global.System.Data.DataColumn Get Return Me.columnRefTabelle End Get End Property _ Public ReadOnly Property RefFeldColumn() As Global.System.Data.DataColumn Get Return Me.columnRefFeld End Get End Property _ Public ReadOnly Property RefIntegritätColumn() As Global.System.Data.DataColumn Get Return Me.columnRefIntegrität End Get End Property _ Public ReadOnly Property RefAktualisierungColumn() As Global.System.Data.DataColumn Get Return Me.columnRefAktualisierung End Get End Property _ Public ReadOnly Property RefLöschungColumn() As Global.System.Data.DataColumn Get Return Me.columnRefLöschung End Get End Property _ Public ReadOnly Property RefAnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnRefAnzahl End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblRefRow Get Return CType(Me.Rows(index),tblRefRow) End Get End Property _ Public Event tblRefRowChanging As tblRefRowChangeEventHandler _ Public Event tblRefRowChanged As tblRefRowChangeEventHandler _ Public Event tblRefRowDeleting As tblRefRowChangeEventHandler _ Public Event tblRefRowDeleted As tblRefRowChangeEventHandler _ Public Overloads Sub AddtblRefRow(ByVal row As tblRefRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblRefRow(ByVal RefBenutzer As String, ByVal RefTabelle As String, ByVal RefFeld As String, ByVal RefIntegrität As Boolean, ByVal RefAktualisierung As Boolean, ByVal RefLöschung As Boolean, ByVal RefAnzahl As Integer, ByVal SSMA_TimeStamp() As Byte) As tblRefRow Dim rowtblRefRow As tblRefRow = CType(Me.NewRow,tblRefRow) Dim columnValuesArray() As Object = New Object() {RefBenutzer, RefTabelle, RefFeld, RefIntegrität, RefAktualisierung, RefLöschung, RefAnzahl, SSMA_TimeStamp} rowtblRefRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblRefRow) Return rowtblRefRow End Function _ Public Function FindByRefBenutzerRefTabelleRefFeld(ByVal RefBenutzer As String, ByVal RefTabelle As String, ByVal RefFeld As String) As tblRefRow Return CType(Me.Rows.Find(New Object() {RefBenutzer, RefTabelle, RefFeld}),tblRefRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblRefDataTable = CType(MyBase.Clone,tblRefDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblRefDataTable() End Function _ Friend Sub InitVars() Me.columnRefBenutzer = MyBase.Columns("RefBenutzer") Me.columnRefTabelle = MyBase.Columns("RefTabelle") Me.columnRefFeld = MyBase.Columns("RefFeld") Me.columnRefIntegrität = MyBase.Columns("RefIntegrität") Me.columnRefAktualisierung = MyBase.Columns("RefAktualisierung") Me.columnRefLöschung = MyBase.Columns("RefLöschung") Me.columnRefAnzahl = MyBase.Columns("RefAnzahl") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnRefBenutzer = New Global.System.Data.DataColumn("RefBenutzer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefBenutzer) Me.columnRefTabelle = New Global.System.Data.DataColumn("RefTabelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefTabelle) Me.columnRefFeld = New Global.System.Data.DataColumn("RefFeld", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefFeld) Me.columnRefIntegrität = New Global.System.Data.DataColumn("RefIntegrität", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefIntegrität) Me.columnRefAktualisierung = New Global.System.Data.DataColumn("RefAktualisierung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefAktualisierung) Me.columnRefLöschung = New Global.System.Data.DataColumn("RefLöschung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefLöschung) Me.columnRefAnzahl = New Global.System.Data.DataColumn("RefAnzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefAnzahl) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRefBenutzer, Me.columnRefTabelle, Me.columnRefFeld}, true)) Me.columnRefBenutzer.AllowDBNull = false Me.columnRefBenutzer.MaxLength = 50 Me.columnRefTabelle.AllowDBNull = false Me.columnRefTabelle.MaxLength = 50 Me.columnRefFeld.AllowDBNull = false Me.columnRefFeld.MaxLength = 50 Me.columnRefAnzahl.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblRefRow() As tblRefRow Return CType(Me.NewRow,tblRefRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblRefRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblRefRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblRefRowChangedEvent) Is Nothing) Then RaiseEvent tblRefRowChanged(Me, New tblRefRowChangeEvent(CType(e.Row,tblRefRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblRefRowChangingEvent) Is Nothing) Then RaiseEvent tblRefRowChanging(Me, New tblRefRowChangeEvent(CType(e.Row,tblRefRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblRefRowDeletedEvent) Is Nothing) Then RaiseEvent tblRefRowDeleted(Me, New tblRefRowChangeEvent(CType(e.Row,tblRefRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblRefRowDeletingEvent) Is Nothing) Then RaiseEvent tblRefRowDeleting(Me, New tblRefRowChangeEvent(CType(e.Row,tblRefRow), e.Action)) End If End Sub _ Public Sub RemovetblRefRow(ByVal row As tblRefRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblRefDataTable" 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 tblRefBeziehungenDataTable Inherits Global.System.Data.TypedTableBase(Of tblRefBeziehungenRow) Private columnRefTabelle As Global.System.Data.DataColumn Private columnRefFeld As Global.System.Data.DataColumn Private columnRefIntegrität As Global.System.Data.DataColumn Private columnRefAktualisierung As Global.System.Data.DataColumn Private columnRefLöschung As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblRefBeziehungen" 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 RefTabelleColumn() As Global.System.Data.DataColumn Get Return Me.columnRefTabelle End Get End Property _ Public ReadOnly Property RefFeldColumn() As Global.System.Data.DataColumn Get Return Me.columnRefFeld End Get End Property _ Public ReadOnly Property RefIntegritätColumn() As Global.System.Data.DataColumn Get Return Me.columnRefIntegrität End Get End Property _ Public ReadOnly Property RefAktualisierungColumn() As Global.System.Data.DataColumn Get Return Me.columnRefAktualisierung End Get End Property _ Public ReadOnly Property RefLöschungColumn() As Global.System.Data.DataColumn Get Return Me.columnRefLöschung End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblRefBeziehungenRow Get Return CType(Me.Rows(index),tblRefBeziehungenRow) End Get End Property _ Public Event tblRefBeziehungenRowChanging As tblRefBeziehungenRowChangeEventHandler _ Public Event tblRefBeziehungenRowChanged As tblRefBeziehungenRowChangeEventHandler _ Public Event tblRefBeziehungenRowDeleting As tblRefBeziehungenRowChangeEventHandler _ Public Event tblRefBeziehungenRowDeleted As tblRefBeziehungenRowChangeEventHandler _ Public Overloads Sub AddtblRefBeziehungenRow(ByVal row As tblRefBeziehungenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblRefBeziehungenRow(ByVal RefTabelle As String, ByVal RefFeld As String, ByVal RefIntegrität As Boolean, ByVal RefAktualisierung As Boolean, ByVal RefLöschung As Boolean, ByVal SSMA_TimeStamp() As Byte) As tblRefBeziehungenRow Dim rowtblRefBeziehungenRow As tblRefBeziehungenRow = CType(Me.NewRow,tblRefBeziehungenRow) Dim columnValuesArray() As Object = New Object() {RefTabelle, RefFeld, RefIntegrität, RefAktualisierung, RefLöschung, SSMA_TimeStamp} rowtblRefBeziehungenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblRefBeziehungenRow) Return rowtblRefBeziehungenRow End Function _ Public Function FindByRefTabelleRefFeld(ByVal RefTabelle As String, ByVal RefFeld As String) As tblRefBeziehungenRow Return CType(Me.Rows.Find(New Object() {RefTabelle, RefFeld}),tblRefBeziehungenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblRefBeziehungenDataTable = CType(MyBase.Clone,tblRefBeziehungenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblRefBeziehungenDataTable() End Function _ Friend Sub InitVars() Me.columnRefTabelle = MyBase.Columns("RefTabelle") Me.columnRefFeld = MyBase.Columns("RefFeld") Me.columnRefIntegrität = MyBase.Columns("RefIntegrität") Me.columnRefAktualisierung = MyBase.Columns("RefAktualisierung") Me.columnRefLöschung = MyBase.Columns("RefLöschung") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnRefTabelle = New Global.System.Data.DataColumn("RefTabelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefTabelle) Me.columnRefFeld = New Global.System.Data.DataColumn("RefFeld", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefFeld) Me.columnRefIntegrität = New Global.System.Data.DataColumn("RefIntegrität", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefIntegrität) Me.columnRefAktualisierung = New Global.System.Data.DataColumn("RefAktualisierung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefAktualisierung) Me.columnRefLöschung = New Global.System.Data.DataColumn("RefLöschung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefLöschung) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRefTabelle, Me.columnRefFeld}, true)) Me.columnRefTabelle.AllowDBNull = false Me.columnRefTabelle.MaxLength = 50 Me.columnRefFeld.AllowDBNull = false Me.columnRefFeld.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblRefBeziehungenRow() As tblRefBeziehungenRow Return CType(Me.NewRow,tblRefBeziehungenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblRefBeziehungenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblRefBeziehungenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblRefBeziehungenRowChangedEvent) Is Nothing) Then RaiseEvent tblRefBeziehungenRowChanged(Me, New tblRefBeziehungenRowChangeEvent(CType(e.Row,tblRefBeziehungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblRefBeziehungenRowChangingEvent) Is Nothing) Then RaiseEvent tblRefBeziehungenRowChanging(Me, New tblRefBeziehungenRowChangeEvent(CType(e.Row,tblRefBeziehungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblRefBeziehungenRowDeletedEvent) Is Nothing) Then RaiseEvent tblRefBeziehungenRowDeleted(Me, New tblRefBeziehungenRowChangeEvent(CType(e.Row,tblRefBeziehungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblRefBeziehungenRowDeletingEvent) Is Nothing) Then RaiseEvent tblRefBeziehungenRowDeleting(Me, New tblRefBeziehungenRowChangeEvent(CType(e.Row,tblRefBeziehungenRow), e.Action)) End If End Sub _ Public Sub RemovetblRefBeziehungenRow(ByVal row As tblRefBeziehungenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblRefBeziehungenDataTable" 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 tblRKSV_KassenDataTable Inherits Global.System.Data.TypedTableBase(Of tblRKSV_KassenRow) Private columnrksv_id As Global.System.Data.DataColumn Private columnrksv_bez As Global.System.Data.DataColumn Private columnrksv_CompanyGUID As Global.System.Data.DataColumn Private columnrksv_firma As Global.System.Data.DataColumn Private columnrksv_startdatum As Global.System.Data.DataColumn Private columnrksv_aktiv As Global.System.Data.DataColumn Private columnrksvDE_aktiv As Global.System.Data.DataColumn Private columnrksv_BelegIdZaehler As Global.System.Data.DataColumn Private columnrksv_Umsatzzaehler As Global.System.Data.DataColumn Private columnrksv_lastJWS As Global.System.Data.DataColumn Private columnrksv_lastQR As Global.System.Data.DataColumn Private columnrksv_lastBeleg As Global.System.Data.DataColumn Private columnrksv_ITG_id As Global.System.Data.DataColumn Private columnrksv_AesKey As Global.System.Data.DataColumn Private columnrksv_KassaGuid As Global.System.Data.DataColumn Private columnrksv_ipAdresse As Global.System.Data.DataColumn Private columnrksv_DE_TSE_Serial As Global.System.Data.DataColumn Private columnrksv_DE_user As Global.System.Data.DataColumn Private columnrksv_DE_pwd As Global.System.Data.DataColumn Private columnrksv_DE_apiToken As Global.System.Data.DataColumn Private columnrksv_DE_license As Global.System.Data.DataColumn Private columnrksv_StornoIncreaseBelegCnt As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblRKSV_Kassen" 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 rksv_idColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_id End Get End Property _ Public ReadOnly Property rksv_bezColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_bez End Get End Property _ Public ReadOnly Property rksv_CompanyGUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_CompanyGUID End Get End Property _ Public ReadOnly Property rksv_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_firma End Get End Property _ Public ReadOnly Property rksv_startdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_startdatum End Get End Property _ Public ReadOnly Property rksv_aktivColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_aktiv End Get End Property _ Public ReadOnly Property rksvDE_aktivColumn() As Global.System.Data.DataColumn Get Return Me.columnrksvDE_aktiv End Get End Property _ Public ReadOnly Property rksv_BelegIdZaehlerColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_BelegIdZaehler End Get End Property _ Public ReadOnly Property rksv_UmsatzzaehlerColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_Umsatzzaehler End Get End Property _ Public ReadOnly Property rksv_lastJWSColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_lastJWS End Get End Property _ Public ReadOnly Property rksv_lastQRColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_lastQR End Get End Property _ Public ReadOnly Property rksv_lastBelegColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_lastBeleg End Get End Property _ Public ReadOnly Property rksv_ITG_idColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_ITG_id End Get End Property _ Public ReadOnly Property rksv_AesKeyColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_AesKey End Get End Property _ Public ReadOnly Property rksv_KassaGuidColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_KassaGuid End Get End Property _ Public ReadOnly Property rksv_ipAdresseColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_ipAdresse End Get End Property _ Public ReadOnly Property rksv_DE_TSE_SerialColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_DE_TSE_Serial End Get End Property _ Public ReadOnly Property rksv_DE_userColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_DE_user End Get End Property _ Public ReadOnly Property rksv_DE_pwdColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_DE_pwd End Get End Property _ Public ReadOnly Property rksv_DE_apiTokenColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_DE_apiToken End Get End Property _ Public ReadOnly Property rksv_DE_licenseColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_DE_license End Get End Property _ Public ReadOnly Property rksv_StornoIncreaseBelegCntColumn() As Global.System.Data.DataColumn Get Return Me.columnrksv_StornoIncreaseBelegCnt 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 tblRKSV_KassenRow Get Return CType(Me.Rows(index),tblRKSV_KassenRow) End Get End Property _ Public Event tblRKSV_KassenRowChanging As tblRKSV_KassenRowChangeEventHandler _ Public Event tblRKSV_KassenRowChanged As tblRKSV_KassenRowChangeEventHandler _ Public Event tblRKSV_KassenRowDeleting As tblRKSV_KassenRowChangeEventHandler _ Public Event tblRKSV_KassenRowDeleted As tblRKSV_KassenRowChangeEventHandler _ Public Overloads Sub AddtblRKSV_KassenRow(ByVal row As tblRKSV_KassenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblRKSV_KassenRow( _ ByVal rksv_bez As String, _ ByVal rksv_CompanyGUID As String, _ ByVal rksv_firma As String, _ ByVal rksv_startdatum As Date, _ ByVal rksv_aktiv As Boolean, _ ByVal rksvDE_aktiv As Boolean, _ ByVal rksv_BelegIdZaehler As Integer, _ ByVal rksv_Umsatzzaehler As Double, _ ByVal rksv_lastJWS As String, _ ByVal rksv_lastQR As String, _ ByVal rksv_lastBeleg As Date, _ ByVal rksv_ITG_id As Integer, _ ByVal rksv_AesKey As String, _ ByVal rksv_KassaGuid As String, _ ByVal rksv_ipAdresse As String, _ ByVal rksv_DE_TSE_Serial As String, _ ByVal rksv_DE_user As String, _ ByVal rksv_DE_pwd As String, _ ByVal rksv_DE_apiToken As String, _ ByVal rksv_DE_license As String, _ ByVal rksv_StornoIncreaseBelegCnt As Boolean) As tblRKSV_KassenRow Dim rowtblRKSV_KassenRow As tblRKSV_KassenRow = CType(Me.NewRow,tblRKSV_KassenRow) Dim columnValuesArray() As Object = New Object() {Nothing, rksv_bez, rksv_CompanyGUID, rksv_firma, rksv_startdatum, rksv_aktiv, rksvDE_aktiv, rksv_BelegIdZaehler, rksv_Umsatzzaehler, rksv_lastJWS, rksv_lastQR, rksv_lastBeleg, rksv_ITG_id, rksv_AesKey, rksv_KassaGuid, rksv_ipAdresse, rksv_DE_TSE_Serial, rksv_DE_user, rksv_DE_pwd, rksv_DE_apiToken, rksv_DE_license, rksv_StornoIncreaseBelegCnt} rowtblRKSV_KassenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblRKSV_KassenRow) Return rowtblRKSV_KassenRow End Function _ Public Function FindByrksv_id(ByVal rksv_id As Integer) As tblRKSV_KassenRow Return CType(Me.Rows.Find(New Object() {rksv_id}),tblRKSV_KassenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblRKSV_KassenDataTable = CType(MyBase.Clone,tblRKSV_KassenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblRKSV_KassenDataTable() End Function _ Friend Sub InitVars() Me.columnrksv_id = MyBase.Columns("rksv_id") Me.columnrksv_bez = MyBase.Columns("rksv_bez") Me.columnrksv_CompanyGUID = MyBase.Columns("rksv_CompanyGUID") Me.columnrksv_firma = MyBase.Columns("rksv_firma") Me.columnrksv_startdatum = MyBase.Columns("rksv_startdatum") Me.columnrksv_aktiv = MyBase.Columns("rksv_aktiv") Me.columnrksvDE_aktiv = MyBase.Columns("rksvDE_aktiv") Me.columnrksv_BelegIdZaehler = MyBase.Columns("rksv_BelegIdZaehler") Me.columnrksv_Umsatzzaehler = MyBase.Columns("rksv_Umsatzzaehler") Me.columnrksv_lastJWS = MyBase.Columns("rksv_lastJWS") Me.columnrksv_lastQR = MyBase.Columns("rksv_lastQR") Me.columnrksv_lastBeleg = MyBase.Columns("rksv_lastBeleg") Me.columnrksv_ITG_id = MyBase.Columns("rksv_ITG_id") Me.columnrksv_AesKey = MyBase.Columns("rksv_AesKey") Me.columnrksv_KassaGuid = MyBase.Columns("rksv_KassaGuid") Me.columnrksv_ipAdresse = MyBase.Columns("rksv_ipAdresse") Me.columnrksv_DE_TSE_Serial = MyBase.Columns("rksv_DE_TSE_Serial") Me.columnrksv_DE_user = MyBase.Columns("rksv_DE_user") Me.columnrksv_DE_pwd = MyBase.Columns("rksv_DE_pwd") Me.columnrksv_DE_apiToken = MyBase.Columns("rksv_DE_apiToken") Me.columnrksv_DE_license = MyBase.Columns("rksv_DE_license") Me.columnrksv_StornoIncreaseBelegCnt = MyBase.Columns("rksv_StornoIncreaseBelegCnt") End Sub _ Private Sub InitClass() Me.columnrksv_id = New Global.System.Data.DataColumn("rksv_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_id) Me.columnrksv_bez = New Global.System.Data.DataColumn("rksv_bez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_bez) Me.columnrksv_CompanyGUID = New Global.System.Data.DataColumn("rksv_CompanyGUID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_CompanyGUID) Me.columnrksv_firma = New Global.System.Data.DataColumn("rksv_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_firma) Me.columnrksv_startdatum = New Global.System.Data.DataColumn("rksv_startdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_startdatum) Me.columnrksv_aktiv = New Global.System.Data.DataColumn("rksv_aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_aktiv) Me.columnrksvDE_aktiv = New Global.System.Data.DataColumn("rksvDE_aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksvDE_aktiv) Me.columnrksv_BelegIdZaehler = New Global.System.Data.DataColumn("rksv_BelegIdZaehler", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_BelegIdZaehler) Me.columnrksv_Umsatzzaehler = New Global.System.Data.DataColumn("rksv_Umsatzzaehler", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_Umsatzzaehler) Me.columnrksv_lastJWS = New Global.System.Data.DataColumn("rksv_lastJWS", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_lastJWS) Me.columnrksv_lastQR = New Global.System.Data.DataColumn("rksv_lastQR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_lastQR) Me.columnrksv_lastBeleg = New Global.System.Data.DataColumn("rksv_lastBeleg", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_lastBeleg) Me.columnrksv_ITG_id = New Global.System.Data.DataColumn("rksv_ITG_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_ITG_id) Me.columnrksv_AesKey = New Global.System.Data.DataColumn("rksv_AesKey", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_AesKey) Me.columnrksv_KassaGuid = New Global.System.Data.DataColumn("rksv_KassaGuid", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_KassaGuid) Me.columnrksv_ipAdresse = New Global.System.Data.DataColumn("rksv_ipAdresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_ipAdresse) Me.columnrksv_DE_TSE_Serial = New Global.System.Data.DataColumn("rksv_DE_TSE_Serial", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_DE_TSE_Serial) Me.columnrksv_DE_user = New Global.System.Data.DataColumn("rksv_DE_user", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_DE_user) Me.columnrksv_DE_pwd = New Global.System.Data.DataColumn("rksv_DE_pwd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_DE_pwd) Me.columnrksv_DE_apiToken = New Global.System.Data.DataColumn("rksv_DE_apiToken", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_DE_apiToken) Me.columnrksv_DE_license = New Global.System.Data.DataColumn("rksv_DE_license", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_DE_license) Me.columnrksv_StornoIncreaseBelegCnt = New Global.System.Data.DataColumn("rksv_StornoIncreaseBelegCnt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrksv_StornoIncreaseBelegCnt) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrksv_id}, true)) Me.columnrksv_id.AutoIncrement = true Me.columnrksv_id.AutoIncrementSeed = -1 Me.columnrksv_id.AutoIncrementStep = -1 Me.columnrksv_id.AllowDBNull = false Me.columnrksv_id.ReadOnly = true Me.columnrksv_id.Unique = true Me.columnrksv_bez.AllowDBNull = false Me.columnrksv_bez.MaxLength = 50 Me.columnrksv_CompanyGUID.AllowDBNull = false Me.columnrksv_CompanyGUID.MaxLength = 1024 Me.columnrksv_firma.AllowDBNull = false Me.columnrksv_firma.MaxLength = 50 Me.columnrksv_aktiv.AllowDBNull = false Me.columnrksvDE_aktiv.AllowDBNull = false Me.columnrksv_BelegIdZaehler.AllowDBNull = false Me.columnrksv_Umsatzzaehler.AllowDBNull = false Me.columnrksv_lastJWS.AllowDBNull = false Me.columnrksv_lastJWS.MaxLength = 2147483647 Me.columnrksv_lastQR.AllowDBNull = false Me.columnrksv_lastQR.MaxLength = 2147483647 Me.columnrksv_AesKey.MaxLength = 100 Me.columnrksv_KassaGuid.MaxLength = 36 Me.columnrksv_ipAdresse.MaxLength = 500 Me.columnrksv_DE_TSE_Serial.MaxLength = 500 Me.columnrksv_DE_user.MaxLength = 500 Me.columnrksv_DE_pwd.MaxLength = 500 Me.columnrksv_DE_apiToken.MaxLength = 500 Me.columnrksv_DE_license.MaxLength = 500 Me.columnrksv_StornoIncreaseBelegCnt.AllowDBNull = false End Sub _ Public Function NewtblRKSV_KassenRow() As tblRKSV_KassenRow Return CType(Me.NewRow,tblRKSV_KassenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblRKSV_KassenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblRKSV_KassenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblRKSV_KassenRowChangedEvent) Is Nothing) Then RaiseEvent tblRKSV_KassenRowChanged(Me, New tblRKSV_KassenRowChangeEvent(CType(e.Row,tblRKSV_KassenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblRKSV_KassenRowChangingEvent) Is Nothing) Then RaiseEvent tblRKSV_KassenRowChanging(Me, New tblRKSV_KassenRowChangeEvent(CType(e.Row,tblRKSV_KassenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblRKSV_KassenRowDeletedEvent) Is Nothing) Then RaiseEvent tblRKSV_KassenRowDeleted(Me, New tblRKSV_KassenRowChangeEvent(CType(e.Row,tblRKSV_KassenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblRKSV_KassenRowDeletingEvent) Is Nothing) Then RaiseEvent tblRKSV_KassenRowDeleting(Me, New tblRKSV_KassenRowChangeEvent(CType(e.Row,tblRKSV_KassenRow), e.Action)) End If End Sub _ Public Sub RemovetblRKSV_KassenRow(ByVal row As tblRKSV_KassenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblRKSV_KassenDataTable" 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 tblRKSV_POSDataTable Inherits Global.System.Data.TypedTableBase(Of tblRKSV_POSRow) Private columnpos_id As Global.System.Data.DataColumn Private columnpos_aktiv As Global.System.Data.DataColumn Private columnpos_kasse As Global.System.Data.DataColumn Private columnpos_kassennr As Global.System.Data.DataColumn Private columnpos_bezeichnung As Global.System.Data.DataColumn Private columnpos_com As Global.System.Data.DataColumn Private columnpos_baudrate As Global.System.Data.DataColumn Private columnpos_comspeed As Global.System.Data.DataColumn Private columnpos_comstop As Global.System.Data.DataColumn Private columnpos_ip As Global.System.Data.DataColumn Private columnpos_port As Global.System.Data.DataColumn Private columnpos_typ As Global.System.Data.DataColumn Private columnpos_lizenz As Global.System.Data.DataColumn Private columnpos_kassendruck As Global.System.Data.DataColumn Private columnpos_demoausdruck As Global.System.Data.DataColumn Private columnpos_demodummyausdruck As Global.System.Data.DataColumn Private columnpos_pin As Global.System.Data.DataColumn Private columnpos_händerbeleg_drucken As Global.System.Data.DataColumn Private columnpos_storno As Global.System.Data.DataColumn Private columnpos_wartezeit As Global.System.Data.DataColumn Private columnpos_FIBU As Global.System.Data.DataColumn Private columnpos_XML As Global.System.Data.DataColumn Private columnpos_Protokollpfad As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblRKSV_POS" 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 pos_idColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_id End Get End Property _ Public ReadOnly Property pos_aktivColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_aktiv End Get End Property _ Public ReadOnly Property pos_kasseColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_kasse End Get End Property _ Public ReadOnly Property pos_kassennrColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_kassennr End Get End Property _ Public ReadOnly Property pos_bezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_bezeichnung End Get End Property _ Public ReadOnly Property pos_comColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_com End Get End Property _ Public ReadOnly Property pos_baudrateColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_baudrate End Get End Property _ Public ReadOnly Property pos_comspeedColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_comspeed End Get End Property _ Public ReadOnly Property pos_comstopColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_comstop End Get End Property _ Public ReadOnly Property pos_ipColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_ip End Get End Property _ Public ReadOnly Property pos_portColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_port End Get End Property _ Public ReadOnly Property pos_typColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_typ End Get End Property _ Public ReadOnly Property pos_lizenzColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_lizenz End Get End Property _ Public ReadOnly Property pos_kassendruckColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_kassendruck End Get End Property _ Public ReadOnly Property pos_demoausdruckColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_demoausdruck End Get End Property _ Public ReadOnly Property pos_demodummyausdruckColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_demodummyausdruck End Get End Property _ Public ReadOnly Property pos_pinColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_pin End Get End Property _ Public ReadOnly Property pos_händerbeleg_druckenColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_händerbeleg_drucken End Get End Property _ Public ReadOnly Property pos_stornoColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_storno End Get End Property _ Public ReadOnly Property pos_wartezeitColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_wartezeit End Get End Property _ Public ReadOnly Property pos_FIBUColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_FIBU End Get End Property _ Public ReadOnly Property pos_XMLColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_XML End Get End Property _ Public ReadOnly Property pos_ProtokollpfadColumn() As Global.System.Data.DataColumn Get Return Me.columnpos_Protokollpfad 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 tblRKSV_POSRow Get Return CType(Me.Rows(index),tblRKSV_POSRow) End Get End Property _ Public Event tblRKSV_POSRowChanging As tblRKSV_POSRowChangeEventHandler _ Public Event tblRKSV_POSRowChanged As tblRKSV_POSRowChangeEventHandler _ Public Event tblRKSV_POSRowDeleting As tblRKSV_POSRowChangeEventHandler _ Public Event tblRKSV_POSRowDeleted As tblRKSV_POSRowChangeEventHandler _ Public Overloads Sub AddtblRKSV_POSRow(ByVal row As tblRKSV_POSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblRKSV_POSRow( _ ByVal pos_aktiv As Boolean, _ ByVal parenttblRKSV_KassenRowByFK_Kasse As tblRKSV_KassenRow, _ ByVal pos_kassennr As Integer, _ ByVal pos_bezeichnung As String, _ ByVal pos_com As String, _ ByVal pos_baudrate As Integer, _ ByVal pos_comspeed As Integer, _ ByVal pos_comstop As Integer, _ ByVal pos_ip As String, _ ByVal pos_port As Integer, _ ByVal pos_typ As String, _ ByVal pos_lizenz As String, _ ByVal pos_kassendruck As Integer, _ ByVal pos_demoausdruck As Boolean, _ ByVal pos_demodummyausdruck As Boolean, _ ByVal pos_pin As Integer, _ ByVal pos_händerbeleg_drucken As Boolean, _ ByVal pos_storno As Integer, _ ByVal pos_wartezeit As Integer, _ ByVal pos_FIBU As Integer, _ ByVal pos_XML As Boolean, _ ByVal pos_Protokollpfad As String) As tblRKSV_POSRow Dim rowtblRKSV_POSRow As tblRKSV_POSRow = CType(Me.NewRow,tblRKSV_POSRow) Dim columnValuesArray() As Object = New Object() {Nothing, pos_aktiv, Nothing, pos_kassennr, pos_bezeichnung, pos_com, pos_baudrate, pos_comspeed, pos_comstop, pos_ip, pos_port, pos_typ, pos_lizenz, pos_kassendruck, pos_demoausdruck, pos_demodummyausdruck, pos_pin, pos_händerbeleg_drucken, pos_storno, pos_wartezeit, pos_FIBU, pos_XML, pos_Protokollpfad} If (Not (parenttblRKSV_KassenRowByFK_Kasse) Is Nothing) Then columnValuesArray(2) = parenttblRKSV_KassenRowByFK_Kasse(0) End If rowtblRKSV_POSRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblRKSV_POSRow) Return rowtblRKSV_POSRow End Function _ Public Function FindBypos_id(ByVal pos_id As Integer) As tblRKSV_POSRow Return CType(Me.Rows.Find(New Object() {pos_id}),tblRKSV_POSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblRKSV_POSDataTable = CType(MyBase.Clone,tblRKSV_POSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblRKSV_POSDataTable() End Function _ Friend Sub InitVars() Me.columnpos_id = MyBase.Columns("pos_id") Me.columnpos_aktiv = MyBase.Columns("pos_aktiv") Me.columnpos_kasse = MyBase.Columns("pos_kasse") Me.columnpos_kassennr = MyBase.Columns("pos_kassennr") Me.columnpos_bezeichnung = MyBase.Columns("pos_bezeichnung") Me.columnpos_com = MyBase.Columns("pos_com") Me.columnpos_baudrate = MyBase.Columns("pos_baudrate") Me.columnpos_comspeed = MyBase.Columns("pos_comspeed") Me.columnpos_comstop = MyBase.Columns("pos_comstop") Me.columnpos_ip = MyBase.Columns("pos_ip") Me.columnpos_port = MyBase.Columns("pos_port") Me.columnpos_typ = MyBase.Columns("pos_typ") Me.columnpos_lizenz = MyBase.Columns("pos_lizenz") Me.columnpos_kassendruck = MyBase.Columns("pos_kassendruck") Me.columnpos_demoausdruck = MyBase.Columns("pos_demoausdruck") Me.columnpos_demodummyausdruck = MyBase.Columns("pos_demodummyausdruck") Me.columnpos_pin = MyBase.Columns("pos_pin") Me.columnpos_händerbeleg_drucken = MyBase.Columns("pos_händerbeleg_drucken") Me.columnpos_storno = MyBase.Columns("pos_storno") Me.columnpos_wartezeit = MyBase.Columns("pos_wartezeit") Me.columnpos_FIBU = MyBase.Columns("pos_FIBU") Me.columnpos_XML = MyBase.Columns("pos_XML") Me.columnpos_Protokollpfad = MyBase.Columns("pos_Protokollpfad") End Sub _ Private Sub InitClass() Me.columnpos_id = New Global.System.Data.DataColumn("pos_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_id) Me.columnpos_aktiv = New Global.System.Data.DataColumn("pos_aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_aktiv) Me.columnpos_kasse = New Global.System.Data.DataColumn("pos_kasse", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_kasse) Me.columnpos_kassennr = New Global.System.Data.DataColumn("pos_kassennr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_kassennr) Me.columnpos_bezeichnung = New Global.System.Data.DataColumn("pos_bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_bezeichnung) Me.columnpos_com = New Global.System.Data.DataColumn("pos_com", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_com) Me.columnpos_baudrate = New Global.System.Data.DataColumn("pos_baudrate", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_baudrate) Me.columnpos_comspeed = New Global.System.Data.DataColumn("pos_comspeed", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_comspeed) Me.columnpos_comstop = New Global.System.Data.DataColumn("pos_comstop", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_comstop) Me.columnpos_ip = New Global.System.Data.DataColumn("pos_ip", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_ip) Me.columnpos_port = New Global.System.Data.DataColumn("pos_port", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_port) Me.columnpos_typ = New Global.System.Data.DataColumn("pos_typ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_typ) Me.columnpos_lizenz = New Global.System.Data.DataColumn("pos_lizenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_lizenz) Me.columnpos_kassendruck = New Global.System.Data.DataColumn("pos_kassendruck", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_kassendruck) Me.columnpos_demoausdruck = New Global.System.Data.DataColumn("pos_demoausdruck", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_demoausdruck) Me.columnpos_demodummyausdruck = New Global.System.Data.DataColumn("pos_demodummyausdruck", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_demodummyausdruck) Me.columnpos_pin = New Global.System.Data.DataColumn("pos_pin", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_pin) Me.columnpos_händerbeleg_drucken = New Global.System.Data.DataColumn("pos_händerbeleg_drucken", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_händerbeleg_drucken) Me.columnpos_storno = New Global.System.Data.DataColumn("pos_storno", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_storno) Me.columnpos_wartezeit = New Global.System.Data.DataColumn("pos_wartezeit", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_wartezeit) Me.columnpos_FIBU = New Global.System.Data.DataColumn("pos_FIBU", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_FIBU) Me.columnpos_XML = New Global.System.Data.DataColumn("pos_XML", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_XML) Me.columnpos_Protokollpfad = New Global.System.Data.DataColumn("pos_Protokollpfad", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpos_Protokollpfad) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpos_id}, true)) Me.columnpos_id.AutoIncrement = true Me.columnpos_id.AutoIncrementSeed = -1 Me.columnpos_id.AutoIncrementStep = -1 Me.columnpos_id.AllowDBNull = false Me.columnpos_id.ReadOnly = true Me.columnpos_id.Unique = true Me.columnpos_aktiv.AllowDBNull = false Me.columnpos_kasse.AllowDBNull = false Me.columnpos_bezeichnung.AllowDBNull = false Me.columnpos_bezeichnung.MaxLength = 50 Me.columnpos_com.MaxLength = 5 Me.columnpos_ip.MaxLength = 50 Me.columnpos_typ.MaxLength = 50 Me.columnpos_lizenz.MaxLength = 50 Me.columnpos_Protokollpfad.MaxLength = 100 End Sub _ Public Function NewtblRKSV_POSRow() As tblRKSV_POSRow Return CType(Me.NewRow,tblRKSV_POSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblRKSV_POSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblRKSV_POSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblRKSV_POSRowChangedEvent) Is Nothing) Then RaiseEvent tblRKSV_POSRowChanged(Me, New tblRKSV_POSRowChangeEvent(CType(e.Row,tblRKSV_POSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblRKSV_POSRowChangingEvent) Is Nothing) Then RaiseEvent tblRKSV_POSRowChanging(Me, New tblRKSV_POSRowChangeEvent(CType(e.Row,tblRKSV_POSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblRKSV_POSRowDeletedEvent) Is Nothing) Then RaiseEvent tblRKSV_POSRowDeleted(Me, New tblRKSV_POSRowChangeEvent(CType(e.Row,tblRKSV_POSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblRKSV_POSRowDeletingEvent) Is Nothing) Then RaiseEvent tblRKSV_POSRowDeleting(Me, New tblRKSV_POSRowChangeEvent(CType(e.Row,tblRKSV_POSRow), e.Action)) End If End Sub _ Public Sub RemovetblRKSV_POSRow(ByVal row As tblRKSV_POSRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblRKSV_POSDataTable" 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 tblRMCImportDataTable Inherits Global.System.Data.TypedTableBase(Of tblRMCImportRow) Private columnrmc_id As Global.System.Data.DataColumn Private columnrmc_kdNr As Global.System.Data.DataColumn Private columnrmc_kdName As Global.System.Data.DataColumn Private columnrmc_UID As Global.System.Data.DataColumn Private columnrmc_landKZ As Global.System.Data.DataColumn Private columnrmc_landBezeichnung As Global.System.Data.DataColumn Private columnrmc_reDatum As Global.System.Data.DataColumn Private columnrmc_reNr As Global.System.Data.DataColumn Private columnrmc_betragNetto As Global.System.Data.DataColumn Private columnrmc_betragBrutto As Global.System.Data.DataColumn Private columnrmc_waehrung As Global.System.Data.DataColumn Private columnrmc_euroBrutto As Global.System.Data.DataColumn Private columnrmc_file As Global.System.Data.DataColumn Private columnrmc_fileNr As Global.System.Data.DataColumn Private columnrmc_importDatum As Global.System.Data.DataColumn Private columnrmc_version As Global.System.Data.DataColumn Private columnrmc_daId As Global.System.Data.DataColumn Private columnrmc_pdfFileName As Global.System.Data.DataColumn Private columnrmc_archiv As Global.System.Data.DataColumn Private columnrmc_archiviertDatum As Global.System.Data.DataColumn Private columnrmc_fibuNr As Global.System.Data.DataColumn Private columnrmc_sammelReNr As Global.System.Data.DataColumn Private columnrmc_betragMWST As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblRMCImport" 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 rmc_idColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_id End Get End Property _ Public ReadOnly Property rmc_kdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_kdNr End Get End Property _ Public ReadOnly Property rmc_kdNameColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_kdName End Get End Property _ Public ReadOnly Property rmc_UIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_UID End Get End Property _ Public ReadOnly Property rmc_landKZColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_landKZ End Get End Property _ Public ReadOnly Property rmc_landBezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_landBezeichnung End Get End Property _ Public ReadOnly Property rmc_reDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_reDatum End Get End Property _ Public ReadOnly Property rmc_reNrColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_reNr End Get End Property _ Public ReadOnly Property rmc_betragNettoColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_betragNetto End Get End Property _ Public ReadOnly Property rmc_betragBruttoColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_betragBrutto End Get End Property _ Public ReadOnly Property rmc_waehrungColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_waehrung End Get End Property _ Public ReadOnly Property rmc_euroBruttoColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_euroBrutto End Get End Property _ Public ReadOnly Property rmc_fileColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_file End Get End Property _ Public ReadOnly Property rmc_fileNrColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_fileNr End Get End Property _ Public ReadOnly Property rmc_importDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_importDatum End Get End Property _ Public ReadOnly Property rmc_versionColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_version End Get End Property _ Public ReadOnly Property rmc_daIdColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_daId End Get End Property _ Public ReadOnly Property rmc_pdfFileNameColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_pdfFileName End Get End Property _ Public ReadOnly Property rmc_archivColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_archiv End Get End Property _ Public ReadOnly Property rmc_archiviertDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_archiviertDatum End Get End Property _ Public ReadOnly Property rmc_fibuNrColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_fibuNr End Get End Property _ Public ReadOnly Property rmc_sammelReNrColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_sammelReNr End Get End Property _ Public ReadOnly Property rmc_betragMWSTColumn() As Global.System.Data.DataColumn Get Return Me.columnrmc_betragMWST 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 tblRMCImportRow Get Return CType(Me.Rows(index),tblRMCImportRow) End Get End Property _ Public Event tblRMCImportRowChanging As tblRMCImportRowChangeEventHandler _ Public Event tblRMCImportRowChanged As tblRMCImportRowChangeEventHandler _ Public Event tblRMCImportRowDeleting As tblRMCImportRowChangeEventHandler _ Public Event tblRMCImportRowDeleted As tblRMCImportRowChangeEventHandler _ Public Overloads Sub AddtblRMCImportRow(ByVal row As tblRMCImportRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblRMCImportRow( _ ByVal rmc_kdNr As String, _ ByVal rmc_kdName As String, _ ByVal rmc_UID As String, _ ByVal rmc_landKZ As String, _ ByVal rmc_landBezeichnung As String, _ ByVal rmc_reDatum As Date, _ ByVal rmc_reNr As String, _ ByVal rmc_betragNetto As Double, _ ByVal rmc_betragBrutto As Double, _ ByVal rmc_waehrung As String, _ ByVal rmc_euroBrutto As Double, _ ByVal rmc_file As String, _ ByVal rmc_fileNr As Integer, _ ByVal rmc_importDatum As Date, _ ByVal rmc_version As Integer, _ ByVal rmc_daId As Integer, _ ByVal rmc_pdfFileName As String, _ ByVal rmc_archiv As Boolean, _ ByVal rmc_archiviertDatum As Date, _ ByVal rmc_fibuNr As String, _ ByVal rmc_sammelReNr As String, _ ByVal rmc_betragMWST As Double) As tblRMCImportRow Dim rowtblRMCImportRow As tblRMCImportRow = CType(Me.NewRow,tblRMCImportRow) Dim columnValuesArray() As Object = New Object() {Nothing, rmc_kdNr, rmc_kdName, rmc_UID, rmc_landKZ, rmc_landBezeichnung, rmc_reDatum, rmc_reNr, rmc_betragNetto, rmc_betragBrutto, rmc_waehrung, rmc_euroBrutto, rmc_file, rmc_fileNr, rmc_importDatum, rmc_version, rmc_daId, rmc_pdfFileName, rmc_archiv, rmc_archiviertDatum, rmc_fibuNr, rmc_sammelReNr, rmc_betragMWST} rowtblRMCImportRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblRMCImportRow) Return rowtblRMCImportRow End Function _ Public Function FindByrmc_id(ByVal rmc_id As Integer) As tblRMCImportRow Return CType(Me.Rows.Find(New Object() {rmc_id}),tblRMCImportRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblRMCImportDataTable = CType(MyBase.Clone,tblRMCImportDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblRMCImportDataTable() End Function _ Friend Sub InitVars() Me.columnrmc_id = MyBase.Columns("rmc_id") Me.columnrmc_kdNr = MyBase.Columns("rmc_kdNr") Me.columnrmc_kdName = MyBase.Columns("rmc_kdName") Me.columnrmc_UID = MyBase.Columns("rmc_UID") Me.columnrmc_landKZ = MyBase.Columns("rmc_landKZ") Me.columnrmc_landBezeichnung = MyBase.Columns("rmc_landBezeichnung") Me.columnrmc_reDatum = MyBase.Columns("rmc_reDatum") Me.columnrmc_reNr = MyBase.Columns("rmc_reNr") Me.columnrmc_betragNetto = MyBase.Columns("rmc_betragNetto") Me.columnrmc_betragBrutto = MyBase.Columns("rmc_betragBrutto") Me.columnrmc_waehrung = MyBase.Columns("rmc_waehrung") Me.columnrmc_euroBrutto = MyBase.Columns("rmc_euroBrutto") Me.columnrmc_file = MyBase.Columns("rmc_file") Me.columnrmc_fileNr = MyBase.Columns("rmc_fileNr") Me.columnrmc_importDatum = MyBase.Columns("rmc_importDatum") Me.columnrmc_version = MyBase.Columns("rmc_version") Me.columnrmc_daId = MyBase.Columns("rmc_daId") Me.columnrmc_pdfFileName = MyBase.Columns("rmc_pdfFileName") Me.columnrmc_archiv = MyBase.Columns("rmc_archiv") Me.columnrmc_archiviertDatum = MyBase.Columns("rmc_archiviertDatum") Me.columnrmc_fibuNr = MyBase.Columns("rmc_fibuNr") Me.columnrmc_sammelReNr = MyBase.Columns("rmc_sammelReNr") Me.columnrmc_betragMWST = MyBase.Columns("rmc_betragMWST") End Sub _ Private Sub InitClass() Me.columnrmc_id = New Global.System.Data.DataColumn("rmc_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_id) Me.columnrmc_kdNr = New Global.System.Data.DataColumn("rmc_kdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_kdNr) Me.columnrmc_kdName = New Global.System.Data.DataColumn("rmc_kdName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_kdName) Me.columnrmc_UID = New Global.System.Data.DataColumn("rmc_UID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_UID) Me.columnrmc_landKZ = New Global.System.Data.DataColumn("rmc_landKZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_landKZ) Me.columnrmc_landBezeichnung = New Global.System.Data.DataColumn("rmc_landBezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_landBezeichnung) Me.columnrmc_reDatum = New Global.System.Data.DataColumn("rmc_reDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_reDatum) Me.columnrmc_reNr = New Global.System.Data.DataColumn("rmc_reNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_reNr) Me.columnrmc_betragNetto = New Global.System.Data.DataColumn("rmc_betragNetto", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_betragNetto) Me.columnrmc_betragBrutto = New Global.System.Data.DataColumn("rmc_betragBrutto", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_betragBrutto) Me.columnrmc_waehrung = New Global.System.Data.DataColumn("rmc_waehrung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_waehrung) Me.columnrmc_euroBrutto = New Global.System.Data.DataColumn("rmc_euroBrutto", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_euroBrutto) Me.columnrmc_file = New Global.System.Data.DataColumn("rmc_file", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_file) Me.columnrmc_fileNr = New Global.System.Data.DataColumn("rmc_fileNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_fileNr) Me.columnrmc_importDatum = New Global.System.Data.DataColumn("rmc_importDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_importDatum) Me.columnrmc_version = New Global.System.Data.DataColumn("rmc_version", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_version) Me.columnrmc_daId = New Global.System.Data.DataColumn("rmc_daId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_daId) Me.columnrmc_pdfFileName = New Global.System.Data.DataColumn("rmc_pdfFileName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_pdfFileName) Me.columnrmc_archiv = New Global.System.Data.DataColumn("rmc_archiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_archiv) Me.columnrmc_archiviertDatum = New Global.System.Data.DataColumn("rmc_archiviertDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_archiviertDatum) Me.columnrmc_fibuNr = New Global.System.Data.DataColumn("rmc_fibuNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_fibuNr) Me.columnrmc_sammelReNr = New Global.System.Data.DataColumn("rmc_sammelReNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_sammelReNr) Me.columnrmc_betragMWST = New Global.System.Data.DataColumn("rmc_betragMWST", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrmc_betragMWST) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrmc_id}, true)) Me.columnrmc_id.AutoIncrement = true Me.columnrmc_id.AutoIncrementSeed = -1 Me.columnrmc_id.AutoIncrementStep = -1 Me.columnrmc_id.AllowDBNull = false Me.columnrmc_id.ReadOnly = true Me.columnrmc_id.Unique = true Me.columnrmc_kdNr.MaxLength = 20 Me.columnrmc_kdName.MaxLength = 2147483647 Me.columnrmc_UID.MaxLength = 15 Me.columnrmc_landKZ.MaxLength = 2 Me.columnrmc_landBezeichnung.MaxLength = 50 Me.columnrmc_reNr.MaxLength = 20 Me.columnrmc_waehrung.MaxLength = 3 Me.columnrmc_file.MaxLength = 50 Me.columnrmc_pdfFileName.MaxLength = 200 Me.columnrmc_archiv.AllowDBNull = false Me.columnrmc_fibuNr.MaxLength = 20 Me.columnrmc_sammelReNr.MaxLength = 20 End Sub _ Public Function NewtblRMCImportRow() As tblRMCImportRow Return CType(Me.NewRow,tblRMCImportRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblRMCImportRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblRMCImportRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblRMCImportRowChangedEvent) Is Nothing) Then RaiseEvent tblRMCImportRowChanged(Me, New tblRMCImportRowChangeEvent(CType(e.Row,tblRMCImportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblRMCImportRowChangingEvent) Is Nothing) Then RaiseEvent tblRMCImportRowChanging(Me, New tblRMCImportRowChangeEvent(CType(e.Row,tblRMCImportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblRMCImportRowDeletedEvent) Is Nothing) Then RaiseEvent tblRMCImportRowDeleted(Me, New tblRMCImportRowChangeEvent(CType(e.Row,tblRMCImportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblRMCImportRowDeletingEvent) Is Nothing) Then RaiseEvent tblRMCImportRowDeleting(Me, New tblRMCImportRowChangeEvent(CType(e.Row,tblRMCImportRow), e.Action)) End If End Sub _ Public Sub RemovetblRMCImportRow(ByVal row As tblRMCImportRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblRMCImportDataTable" 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 tblSMSDataTable Inherits Global.System.Data.TypedTableBase(Of tblSMSRow) Private columnsms_id As Global.System.Data.DataColumn Private columnsms_Datum As Global.System.Data.DataColumn Private columnsms_Firma As Global.System.Data.DataColumn Private columnsms_Account As Global.System.Data.DataColumn Private columnsms_Fahrername As Global.System.Data.DataColumn Private columnsms_KundenNr As Global.System.Data.DataColumn Private columnsms_Kunde As Global.System.Data.DataColumn Private columnsms_Vorwahl As Global.System.Data.DataColumn Private columnsms_Handynummer As Global.System.Data.DataColumn Private columnsms_Nachricht As Global.System.Data.DataColumn Private columnsms_templateID As Global.System.Data.DataColumn Private columnsms_BatchId As Global.System.Data.DataColumn Private columnsms_MessageIds As Global.System.Data.DataColumn Private columnsms_Uris As Global.System.Data.DataColumn Private columnsms_Sachbearbeiter As Global.System.Data.DataColumn Private columnsms_SachbearbeiterId As Global.System.Data.DataColumn Private columnsms_AvisoId As Global.System.Data.DataColumn Private columnsms_Status As Global.System.Data.DataColumn Private columnsms_Queued As Global.System.Data.DataColumn Private columnsms_Sent As Global.System.Data.DataColumn Private columnsms_Delivered As Global.System.Data.DataColumn Private columnsms_Failure As Global.System.Data.DataColumn Private columnsms_art As Global.System.Data.DataColumn Private columnwhatsApp_status As Global.System.Data.DataColumn Private columnwhatsApp_gatewayId As Global.System.Data.DataColumn Private columnwhatsApp_error As Global.System.Data.DataColumn Private columnwhatsApp_errorCode As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblSMS" 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 sms_idColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_id End Get End Property _ Public ReadOnly Property sms_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Datum End Get End Property _ Public ReadOnly Property sms_FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Firma End Get End Property _ Public ReadOnly Property sms_AccountColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Account End Get End Property _ Public ReadOnly Property sms_FahrernameColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Fahrername End Get End Property _ Public ReadOnly Property sms_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_KundenNr End Get End Property _ Public ReadOnly Property sms_KundeColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Kunde End Get End Property _ Public ReadOnly Property sms_VorwahlColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Vorwahl End Get End Property _ Public ReadOnly Property sms_HandynummerColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Handynummer End Get End Property _ Public ReadOnly Property sms_NachrichtColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Nachricht End Get End Property _ Public ReadOnly Property sms_templateIDColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_templateID End Get End Property _ Public ReadOnly Property sms_BatchIdColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_BatchId End Get End Property _ Public ReadOnly Property sms_MessageIdsColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_MessageIds End Get End Property _ Public ReadOnly Property sms_UrisColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Uris End Get End Property _ Public ReadOnly Property sms_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Sachbearbeiter End Get End Property _ Public ReadOnly Property sms_SachbearbeiterIdColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_SachbearbeiterId End Get End Property _ Public ReadOnly Property sms_AvisoIdColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_AvisoId End Get End Property _ Public ReadOnly Property sms_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Status End Get End Property _ Public ReadOnly Property sms_QueuedColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Queued End Get End Property _ Public ReadOnly Property sms_SentColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Sent End Get End Property _ Public ReadOnly Property sms_DeliveredColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Delivered End Get End Property _ Public ReadOnly Property sms_FailureColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_Failure End Get End Property _ Public ReadOnly Property sms_artColumn() As Global.System.Data.DataColumn Get Return Me.columnsms_art End Get End Property _ Public ReadOnly Property whatsApp_statusColumn() As Global.System.Data.DataColumn Get Return Me.columnwhatsApp_status End Get End Property _ Public ReadOnly Property whatsApp_gatewayIdColumn() As Global.System.Data.DataColumn Get Return Me.columnwhatsApp_gatewayId End Get End Property _ Public ReadOnly Property whatsApp_errorColumn() As Global.System.Data.DataColumn Get Return Me.columnwhatsApp_error End Get End Property _ Public ReadOnly Property whatsApp_errorCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnwhatsApp_errorCode 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 tblSMSRow Get Return CType(Me.Rows(index),tblSMSRow) End Get End Property _ Public Event tblSMSRowChanging As tblSMSRowChangeEventHandler _ Public Event tblSMSRowChanged As tblSMSRowChangeEventHandler _ Public Event tblSMSRowDeleting As tblSMSRowChangeEventHandler _ Public Event tblSMSRowDeleted As tblSMSRowChangeEventHandler _ Public Overloads Sub AddtblSMSRow(ByVal row As tblSMSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblSMSRow( _ ByVal sms_Datum As Date, _ ByVal sms_Firma As String, _ ByVal sms_Account As String, _ ByVal sms_Fahrername As String, _ ByVal sms_KundenNr As Integer, _ ByVal sms_Kunde As String, _ ByVal sms_Vorwahl As String, _ ByVal sms_Handynummer As String, _ ByVal sms_Nachricht As String, _ ByVal sms_templateID As String, _ ByVal sms_BatchId As String, _ ByVal sms_MessageIds As String, _ ByVal sms_Uris As String, _ ByVal sms_Sachbearbeiter As String, _ ByVal sms_SachbearbeiterId As Integer, _ ByVal sms_AvisoId As Integer, _ ByVal sms_Status As Integer, _ ByVal sms_Queued As Date, _ ByVal sms_Sent As Date, _ ByVal sms_Delivered As Date, _ ByVal sms_Failure As String, _ ByVal sms_art As String, _ ByVal whatsApp_status As Integer, _ ByVal whatsApp_gatewayId As String, _ ByVal whatsApp_error As String, _ ByVal whatsApp_errorCode As String) As tblSMSRow Dim rowtblSMSRow As tblSMSRow = CType(Me.NewRow,tblSMSRow) Dim columnValuesArray() As Object = New Object() {Nothing, sms_Datum, sms_Firma, sms_Account, sms_Fahrername, sms_KundenNr, sms_Kunde, sms_Vorwahl, sms_Handynummer, sms_Nachricht, sms_templateID, sms_BatchId, sms_MessageIds, sms_Uris, sms_Sachbearbeiter, sms_SachbearbeiterId, sms_AvisoId, sms_Status, sms_Queued, sms_Sent, sms_Delivered, sms_Failure, sms_art, whatsApp_status, whatsApp_gatewayId, whatsApp_error, whatsApp_errorCode} rowtblSMSRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblSMSRow) Return rowtblSMSRow End Function _ Public Function FindBysms_id(ByVal sms_id As Integer) As tblSMSRow Return CType(Me.Rows.Find(New Object() {sms_id}),tblSMSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblSMSDataTable = CType(MyBase.Clone,tblSMSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblSMSDataTable() End Function _ Friend Sub InitVars() Me.columnsms_id = MyBase.Columns("sms_id") Me.columnsms_Datum = MyBase.Columns("sms_Datum") Me.columnsms_Firma = MyBase.Columns("sms_Firma") Me.columnsms_Account = MyBase.Columns("sms_Account") Me.columnsms_Fahrername = MyBase.Columns("sms_Fahrername") Me.columnsms_KundenNr = MyBase.Columns("sms_KundenNr") Me.columnsms_Kunde = MyBase.Columns("sms_Kunde") Me.columnsms_Vorwahl = MyBase.Columns("sms_Vorwahl") Me.columnsms_Handynummer = MyBase.Columns("sms_Handynummer") Me.columnsms_Nachricht = MyBase.Columns("sms_Nachricht") Me.columnsms_templateID = MyBase.Columns("sms_templateID") Me.columnsms_BatchId = MyBase.Columns("sms_BatchId") Me.columnsms_MessageIds = MyBase.Columns("sms_MessageIds") Me.columnsms_Uris = MyBase.Columns("sms_Uris") Me.columnsms_Sachbearbeiter = MyBase.Columns("sms_Sachbearbeiter") Me.columnsms_SachbearbeiterId = MyBase.Columns("sms_SachbearbeiterId") Me.columnsms_AvisoId = MyBase.Columns("sms_AvisoId") Me.columnsms_Status = MyBase.Columns("sms_Status") Me.columnsms_Queued = MyBase.Columns("sms_Queued") Me.columnsms_Sent = MyBase.Columns("sms_Sent") Me.columnsms_Delivered = MyBase.Columns("sms_Delivered") Me.columnsms_Failure = MyBase.Columns("sms_Failure") Me.columnsms_art = MyBase.Columns("sms_art") Me.columnwhatsApp_status = MyBase.Columns("whatsApp_status") Me.columnwhatsApp_gatewayId = MyBase.Columns("whatsApp_gatewayId") Me.columnwhatsApp_error = MyBase.Columns("whatsApp_error") Me.columnwhatsApp_errorCode = MyBase.Columns("whatsApp_errorCode") End Sub _ Private Sub InitClass() Me.columnsms_id = New Global.System.Data.DataColumn("sms_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_id) Me.columnsms_Datum = New Global.System.Data.DataColumn("sms_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Datum) Me.columnsms_Firma = New Global.System.Data.DataColumn("sms_Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Firma) Me.columnsms_Account = New Global.System.Data.DataColumn("sms_Account", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Account) Me.columnsms_Fahrername = New Global.System.Data.DataColumn("sms_Fahrername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Fahrername) Me.columnsms_KundenNr = New Global.System.Data.DataColumn("sms_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_KundenNr) Me.columnsms_Kunde = New Global.System.Data.DataColumn("sms_Kunde", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Kunde) Me.columnsms_Vorwahl = New Global.System.Data.DataColumn("sms_Vorwahl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Vorwahl) Me.columnsms_Handynummer = New Global.System.Data.DataColumn("sms_Handynummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Handynummer) Me.columnsms_Nachricht = New Global.System.Data.DataColumn("sms_Nachricht", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Nachricht) Me.columnsms_templateID = New Global.System.Data.DataColumn("sms_templateID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_templateID) Me.columnsms_BatchId = New Global.System.Data.DataColumn("sms_BatchId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_BatchId) Me.columnsms_MessageIds = New Global.System.Data.DataColumn("sms_MessageIds", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_MessageIds) Me.columnsms_Uris = New Global.System.Data.DataColumn("sms_Uris", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Uris) Me.columnsms_Sachbearbeiter = New Global.System.Data.DataColumn("sms_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Sachbearbeiter) Me.columnsms_SachbearbeiterId = New Global.System.Data.DataColumn("sms_SachbearbeiterId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_SachbearbeiterId) Me.columnsms_AvisoId = New Global.System.Data.DataColumn("sms_AvisoId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_AvisoId) Me.columnsms_Status = New Global.System.Data.DataColumn("sms_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Status) Me.columnsms_Queued = New Global.System.Data.DataColumn("sms_Queued", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Queued) Me.columnsms_Sent = New Global.System.Data.DataColumn("sms_Sent", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Sent) Me.columnsms_Delivered = New Global.System.Data.DataColumn("sms_Delivered", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Delivered) Me.columnsms_Failure = New Global.System.Data.DataColumn("sms_Failure", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_Failure) Me.columnsms_art = New Global.System.Data.DataColumn("sms_art", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsms_art) Me.columnwhatsApp_status = New Global.System.Data.DataColumn("whatsApp_status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwhatsApp_status) Me.columnwhatsApp_gatewayId = New Global.System.Data.DataColumn("whatsApp_gatewayId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwhatsApp_gatewayId) Me.columnwhatsApp_error = New Global.System.Data.DataColumn("whatsApp_error", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwhatsApp_error) Me.columnwhatsApp_errorCode = New Global.System.Data.DataColumn("whatsApp_errorCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwhatsApp_errorCode) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnsms_id}, true)) Me.columnsms_id.AutoIncrement = true Me.columnsms_id.AutoIncrementSeed = -1 Me.columnsms_id.AutoIncrementStep = -1 Me.columnsms_id.AllowDBNull = false Me.columnsms_id.ReadOnly = true Me.columnsms_id.Unique = true Me.columnsms_Datum.AllowDBNull = false Me.columnsms_Firma.AllowDBNull = false Me.columnsms_Firma.MaxLength = 50 Me.columnsms_Account.AllowDBNull = false Me.columnsms_Account.MaxLength = 10 Me.columnsms_Fahrername.MaxLength = 200 Me.columnsms_Kunde.MaxLength = 200 Me.columnsms_Vorwahl.MaxLength = 10 Me.columnsms_Handynummer.AllowDBNull = false Me.columnsms_Handynummer.MaxLength = 100 Me.columnsms_Nachricht.AllowDBNull = false Me.columnsms_Nachricht.MaxLength = 2147483647 Me.columnsms_templateID.MaxLength = 256 Me.columnsms_BatchId.MaxLength = 500 Me.columnsms_MessageIds.MaxLength = 2147483647 Me.columnsms_Uris.MaxLength = 2147483647 Me.columnsms_Sachbearbeiter.AllowDBNull = false Me.columnsms_Sachbearbeiter.MaxLength = 100 Me.columnsms_SachbearbeiterId.AllowDBNull = false Me.columnsms_Status.AllowDBNull = false Me.columnsms_Failure.MaxLength = 2147483647 Me.columnsms_art.AllowDBNull = false Me.columnsms_art.MaxLength = 10 Me.columnwhatsApp_gatewayId.MaxLength = 100 Me.columnwhatsApp_error.MaxLength = 2147483647 Me.columnwhatsApp_errorCode.MaxLength = 2147483647 End Sub _ Public Function NewtblSMSRow() As tblSMSRow Return CType(Me.NewRow,tblSMSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblSMSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblSMSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblSMSRowChangedEvent) Is Nothing) Then RaiseEvent tblSMSRowChanged(Me, New tblSMSRowChangeEvent(CType(e.Row,tblSMSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblSMSRowChangingEvent) Is Nothing) Then RaiseEvent tblSMSRowChanging(Me, New tblSMSRowChangeEvent(CType(e.Row,tblSMSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblSMSRowDeletedEvent) Is Nothing) Then RaiseEvent tblSMSRowDeleted(Me, New tblSMSRowChangeEvent(CType(e.Row,tblSMSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblSMSRowDeletingEvent) Is Nothing) Then RaiseEvent tblSMSRowDeleting(Me, New tblSMSRowChangeEvent(CType(e.Row,tblSMSRow), e.Action)) End If End Sub _ Public Sub RemovetblSMSRow(ByVal row As tblSMSRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblSMSDataTable" 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 tblSpeditionsbucharchivDataTable Inherits Global.System.Data.TypedTableBase(Of tblSpeditionsbucharchivRow) Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnBar As Global.System.Data.DataColumn Private columnFakturiert As Global.System.Data.DataColumn Private columnBelegNr As Global.System.Data.DataColumn Private columnErfassungsNr As Global.System.Data.DataColumn Private columnLKW_Kennzeichen As Global.System.Data.DataColumn Private columnAbsenderKundenNr As Global.System.Data.DataColumn Private columnAbsender As Global.System.Data.DataColumn Private columnAbsenderOffertenNr As Global.System.Data.DataColumn Private columnEmpfängerKundenNr As Global.System.Data.DataColumn Private columnEmpfänger As Global.System.Data.DataColumn Private columnEmpfängerOffertenNr As Global.System.Data.DataColumn Private columnVermittlerKundenNr As Global.System.Data.DataColumn Private columnVermittler As Global.System.Data.DataColumn Private columnVermittlerOffertenNr As Global.System.Data.DataColumn Private columnFrachtführerKundenNr As Global.System.Data.DataColumn Private columnFrachtführer As Global.System.Data.DataColumn Private columnAnzahlZA As Global.System.Data.DataColumn Private columnAnzahlZAFremd As Global.System.Data.DataColumn Private columnAnzahlZnV As Global.System.Data.DataColumn Private columnAnzahlZnVFremd As Global.System.Data.DataColumn Private columnAnzahlT1 As Global.System.Data.DataColumn Private columnAnzahlT2 As Global.System.Data.DataColumn Private columnAnzahlAE As Global.System.Data.DataColumn Private columnAnzahlCarnetTIR As Global.System.Data.DataColumn Private columnAnzahlBarvorlagen As Global.System.Data.DataColumn Private columnAnzahlSonstiges As Global.System.Data.DataColumn Private columnAnzahlGrenzgebühren As Global.System.Data.DataColumn Private columnAvisUhrzeit As Global.System.Data.DataColumn Private columnVermerk As Global.System.Data.DataColumn Private columnBemerkungen As Global.System.Data.DataColumn Private columnWährungsschlüssel As Global.System.Data.DataColumn Private columnRechnungsbetrag As Global.System.Data.DataColumn Private columnUmrechnungskurs As Global.System.Data.DataColumn Private columnPackstücke As Global.System.Data.DataColumn Private columnRohmasse As Global.System.Data.DataColumn Private columnZahlungsaufschub As Global.System.Data.DataColumn Private columnLöschen As Global.System.Data.DataColumn Private columnAbfertigungsart As Global.System.Data.DataColumn Private columnAbfertigungsanzahl As Global.System.Data.DataColumn Private columnAbfertigungsanzahlPos As Global.System.Data.DataColumn Private columnBarzahlungsbetrag As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnPersonalnummer As Global.System.Data.DataColumn Private columnAtlasBezNrEZA As Global.System.Data.DataColumn Private columnAtlasBezNrNCTS As Global.System.Data.DataColumn Private columnVersendungsland As Global.System.Data.DataColumn Private columnSB_CMR As Global.System.Data.DataColumn Private columnSB_CMRDatum As Global.System.Data.DataColumn Private columnveoerz_basbtg As Global.System.Data.DataColumn Private columnZucker_MRN_Nr As Global.System.Data.DataColumn Private columnZucker_MRN_Datum As Global.System.Data.DataColumn Private columnZucker_Aufschub As Global.System.Data.DataColumn Private columnZollsystem As Global.System.Data.DataColumn Private columnBestimmungszollstelle As Global.System.Data.DataColumn Private columnBürgschaft As Global.System.Data.DataColumn Private columnSicherheitsbetrag As Global.System.Data.DataColumn Private columnSgutKompl As Global.System.Data.DataColumn Private columnBestimmungsland As Global.System.Data.DataColumn Private columnEuFiskalEmpfänger As Global.System.Data.DataColumn Private columnQKN As Global.System.Data.DataColumn Private columnEndempfängerKundenNr As Global.System.Data.DataColumn Private columnEndempfänger As Global.System.Data.DataColumn Private columnSB_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnAvisoID As Global.System.Data.DataColumn Private columnSendungID As Global.System.Data.DataColumn Private columnPersonalnummerQS As Global.System.Data.DataColumn Private columnAvisiererKundenNr As Global.System.Data.DataColumn Private columnAvisierer As Global.System.Data.DataColumn Private columnKdAuftragsNr As Global.System.Data.DataColumn Private columnGrenzstelle As Global.System.Data.DataColumn Private columnNCTS_Verzollungsadresse As Global.System.Data.DataColumn Private columnNCTS_VerzollungsadresseKdNr As Global.System.Data.DataColumn Private columnNCTS_Verzollungsadresse_EORI As Global.System.Data.DataColumn Private columnNCTS_Bestimmungszollstelle As Global.System.Data.DataColumn Private columnAuftraggeberBetragKassiert As Global.System.Data.DataColumn Private columnKdAuftragsNrAvisierer As Global.System.Data.DataColumn Private columnKdAuftragsNrEmpfaenger As Global.System.Data.DataColumn Private columnKdAuftragsNrFrachtfuehrer As Global.System.Data.DataColumn Private columnLieferantenrechnung As Global.System.Data.DataColumn Private columnDokumentId_Steuerbeleg As Global.System.Data.DataColumn Private columnDokumentId_Mitteilung As Global.System.Data.DataColumn Private columnDokumentId_VBD As Global.System.Data.DataColumn Private columnDokumentId_ABD As Global.System.Data.DataColumn Private columnDokumentId_AVM As Global.System.Data.DataColumn Private columnFilialenNrHandling As Global.System.Data.DataColumn Private columnFilialenNrAbklaerung As Global.System.Data.DataColumn Private columnHandlingZuKassieren As Global.System.Data.DataColumn Private columnSB_CMRNr As Global.System.Data.DataColumn Private columnPersonalnummerAbklTR As Global.System.Data.DataColumn Private columnUK_EIDR_ausstehend As Global.System.Data.DataColumn Private columnZollstelle As Global.System.Data.DataColumn Private columnAtlasBezNrAES As Global.System.Data.DataColumn Private columnPackstücke_Zoll As Global.System.Data.DataColumn Private columnZollsystem_Land As Global.System.Data.DataColumn Private columngeloescht_am As Global.System.Data.DataColumn Private columngeloescht_von As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblSpeditionsbucharchiv" 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 FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property BarColumn() As Global.System.Data.DataColumn Get Return Me.columnBar End Get End Property _ Public ReadOnly Property FakturiertColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturiert End Get End Property _ Public ReadOnly Property BelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegNr End Get End Property _ Public ReadOnly Property ErfassungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnErfassungsNr End Get End Property _ Public ReadOnly Property LKW_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnLKW_Kennzeichen End Get End Property _ Public ReadOnly Property AbsenderKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderKundenNr End Get End Property _ Public ReadOnly Property AbsenderColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsender End Get End Property _ Public ReadOnly Property AbsenderOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOffertenNr End Get End Property _ Public ReadOnly Property EmpfängerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerKundenNr End Get End Property _ Public ReadOnly Property EmpfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfänger End Get End Property _ Public ReadOnly Property EmpfängerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOffertenNr End Get End Property _ Public ReadOnly Property VermittlerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerKundenNr End Get End Property _ Public ReadOnly Property VermittlerColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittler End Get End Property _ Public ReadOnly Property VermittlerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOffertenNr End Get End Property _ Public ReadOnly Property FrachtführerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFrachtführerKundenNr End Get End Property _ Public ReadOnly Property FrachtführerColumn() As Global.System.Data.DataColumn Get Return Me.columnFrachtführer End Get End Property _ Public ReadOnly Property AnzahlZAColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlZA End Get End Property _ Public ReadOnly Property AnzahlZAFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlZAFremd End Get End Property _ Public ReadOnly Property AnzahlZnVColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlZnV End Get End Property _ Public ReadOnly Property AnzahlZnVFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlZnVFremd End Get End Property _ Public ReadOnly Property AnzahlT1Column() As Global.System.Data.DataColumn Get Return Me.columnAnzahlT1 End Get End Property _ Public ReadOnly Property AnzahlT2Column() As Global.System.Data.DataColumn Get Return Me.columnAnzahlT2 End Get End Property _ Public ReadOnly Property AnzahlAEColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlAE End Get End Property _ Public ReadOnly Property AnzahlCarnetTIRColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlCarnetTIR End Get End Property _ Public ReadOnly Property AnzahlBarvorlagenColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlBarvorlagen End Get End Property _ Public ReadOnly Property AnzahlSonstigesColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlSonstiges End Get End Property _ Public ReadOnly Property AnzahlGrenzgebührenColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahlGrenzgebühren End Get End Property _ Public ReadOnly Property AvisUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisUhrzeit End Get End Property _ Public ReadOnly Property VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnVermerk End Get End Property _ Public ReadOnly Property BemerkungenColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkungen End Get End Property _ Public ReadOnly Property WährungsschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungsschlüssel End Get End Property _ Public ReadOnly Property RechnungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetrag End Get End Property _ Public ReadOnly Property UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUmrechnungskurs End Get End Property _ Public ReadOnly Property PackstückeColumn() As Global.System.Data.DataColumn Get Return Me.columnPackstücke End Get End Property _ Public ReadOnly Property RohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnRohmasse End Get End Property _ Public ReadOnly Property ZahlungsaufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsaufschub End Get End Property _ Public ReadOnly Property LöschenColumn() As Global.System.Data.DataColumn Get Return Me.columnLöschen End Get End Property _ Public ReadOnly Property AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsart End Get End Property _ Public ReadOnly Property AbfertigungsanzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsanzahl End Get End Property _ Public ReadOnly Property AbfertigungsanzahlPosColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsanzahlPos End Get End Property _ Public ReadOnly Property BarzahlungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBarzahlungsbetrag End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property PersonalnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnPersonalnummer End Get End Property _ Public ReadOnly Property AtlasBezNrEZAColumn() As Global.System.Data.DataColumn Get Return Me.columnAtlasBezNrEZA End Get End Property _ Public ReadOnly Property AtlasBezNrNCTSColumn() As Global.System.Data.DataColumn Get Return Me.columnAtlasBezNrNCTS End Get End Property _ Public ReadOnly Property VersendungslandColumn() As Global.System.Data.DataColumn Get Return Me.columnVersendungsland End Get End Property _ Public ReadOnly Property SB_CMRColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_CMR End Get End Property _ Public ReadOnly Property SB_CMRDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_CMRDatum End Get End Property _ Public ReadOnly Property veoerz_basbtgColumn() As Global.System.Data.DataColumn Get Return Me.columnveoerz_basbtg End Get End Property _ Public ReadOnly Property Zucker_MRN_NrColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Nr End Get End Property _ Public ReadOnly Property Zucker_MRN_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Datum End Get End Property _ Public ReadOnly Property Zucker_AufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_Aufschub End Get End Property _ Public ReadOnly Property ZollsystemColumn() As Global.System.Data.DataColumn Get Return Me.columnZollsystem End Get End Property _ Public ReadOnly Property BestimmungszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungszollstelle End Get End Property _ Public ReadOnly Property BürgschaftColumn() As Global.System.Data.DataColumn Get Return Me.columnBürgschaft End Get End Property _ Public ReadOnly Property SicherheitsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSicherheitsbetrag End Get End Property _ Public ReadOnly Property SgutKomplColumn() As Global.System.Data.DataColumn Get Return Me.columnSgutKompl End Get End Property _ Public ReadOnly Property BestimmungslandColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungsland End Get End Property _ Public ReadOnly Property EuFiskalEmpfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnEuFiskalEmpfänger End Get End Property _ Public ReadOnly Property QKNColumn() As Global.System.Data.DataColumn Get Return Me.columnQKN End Get End Property _ Public ReadOnly Property EndempfängerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEndempfängerKundenNr End Get End Property _ Public ReadOnly Property EndempfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnEndempfänger End Get End Property _ Public ReadOnly Property SB_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property AvisoIDColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisoID End Get End Property _ Public ReadOnly Property SendungIDColumn() As Global.System.Data.DataColumn Get Return Me.columnSendungID End Get End Property _ Public ReadOnly Property PersonalnummerQSColumn() As Global.System.Data.DataColumn Get Return Me.columnPersonalnummerQS End Get End Property _ Public ReadOnly Property AvisiererKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisiererKundenNr End Get End Property _ Public ReadOnly Property AvisiererColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisierer End Get End Property _ Public ReadOnly Property KdAuftragsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKdAuftragsNr End Get End Property _ Public ReadOnly Property GrenzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnGrenzstelle End Get End Property _ Public ReadOnly Property NCTS_VerzollungsadresseColumn() As Global.System.Data.DataColumn Get Return Me.columnNCTS_Verzollungsadresse End Get End Property _ Public ReadOnly Property NCTS_VerzollungsadresseKdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnNCTS_VerzollungsadresseKdNr End Get End Property _ Public ReadOnly Property NCTS_Verzollungsadresse_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnNCTS_Verzollungsadresse_EORI End Get End Property _ Public ReadOnly Property NCTS_BestimmungszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnNCTS_Bestimmungszollstelle End Get End Property _ Public ReadOnly Property AuftraggeberBetragKassiertColumn() As Global.System.Data.DataColumn Get Return Me.columnAuftraggeberBetragKassiert End Get End Property _ Public ReadOnly Property KdAuftragsNrAvisiererColumn() As Global.System.Data.DataColumn Get Return Me.columnKdAuftragsNrAvisierer End Get End Property _ Public ReadOnly Property KdAuftragsNrEmpfaengerColumn() As Global.System.Data.DataColumn Get Return Me.columnKdAuftragsNrEmpfaenger End Get End Property _ Public ReadOnly Property KdAuftragsNrFrachtfuehrerColumn() As Global.System.Data.DataColumn Get Return Me.columnKdAuftragsNrFrachtfuehrer End Get End Property _ Public ReadOnly Property LieferantenrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferantenrechnung End Get End Property _ Public ReadOnly Property DokumentId_SteuerbelegColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentId_Steuerbeleg End Get End Property _ Public ReadOnly Property DokumentId_MitteilungColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentId_Mitteilung End Get End Property _ Public ReadOnly Property DokumentId_VBDColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentId_VBD End Get End Property _ Public ReadOnly Property DokumentId_ABDColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentId_ABD End Get End Property _ Public ReadOnly Property DokumentId_AVMColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentId_AVM End Get End Property _ Public ReadOnly Property FilialenNrHandlingColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNrHandling End Get End Property _ Public ReadOnly Property FilialenNrAbklaerungColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNrAbklaerung End Get End Property _ Public ReadOnly Property HandlingZuKassierenColumn() As Global.System.Data.DataColumn Get Return Me.columnHandlingZuKassieren End Get End Property _ Public ReadOnly Property SB_CMRNrColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_CMRNr End Get End Property _ Public ReadOnly Property PersonalnummerAbklTRColumn() As Global.System.Data.DataColumn Get Return Me.columnPersonalnummerAbklTR End Get End Property _ Public ReadOnly Property UK_EIDR_ausstehendColumn() As Global.System.Data.DataColumn Get Return Me.columnUK_EIDR_ausstehend End Get End Property _ Public ReadOnly Property ZollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnZollstelle End Get End Property _ Public ReadOnly Property AtlasBezNrAESColumn() As Global.System.Data.DataColumn Get Return Me.columnAtlasBezNrAES End Get End Property _ Public ReadOnly Property Packstücke_ZollColumn() As Global.System.Data.DataColumn Get Return Me.columnPackstücke_Zoll End Get End Property _ Public ReadOnly Property Zollsystem_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnZollsystem_Land End Get End Property _ Public ReadOnly Property geloescht_amColumn() As Global.System.Data.DataColumn Get Return Me.columngeloescht_am End Get End Property _ Public ReadOnly Property geloescht_vonColumn() As Global.System.Data.DataColumn Get Return Me.columngeloescht_von 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 tblSpeditionsbucharchivRow Get Return CType(Me.Rows(index),tblSpeditionsbucharchivRow) End Get End Property _ Public Event tblSpeditionsbucharchivRowChanging As tblSpeditionsbucharchivRowChangeEventHandler _ Public Event tblSpeditionsbucharchivRowChanged As tblSpeditionsbucharchivRowChangeEventHandler _ Public Event tblSpeditionsbucharchivRowDeleting As tblSpeditionsbucharchivRowChangeEventHandler _ Public Event tblSpeditionsbucharchivRowDeleted As tblSpeditionsbucharchivRowChangeEventHandler _ Public Overloads Sub AddtblSpeditionsbucharchivRow(ByVal row As tblSpeditionsbucharchivRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblSpeditionsbucharchivRow( _ ByVal FilialenNr As Integer, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal Bar As Boolean, _ ByVal Fakturiert As Boolean, _ ByVal BelegNr As String, _ ByVal ErfassungsNr As String, _ ByVal LKW_Kennzeichen As String, _ ByVal AbsenderKundenNr As Integer, _ ByVal Absender As String, _ ByVal AbsenderOffertenNr As Integer, _ ByVal EmpfängerKundenNr As Integer, _ ByVal Empfänger As String, _ ByVal EmpfängerOffertenNr As Integer, _ ByVal VermittlerKundenNr As Integer, _ ByVal Vermittler As String, _ ByVal VermittlerOffertenNr As Integer, _ ByVal FrachtführerKundenNr As Integer, _ ByVal Frachtführer As String, _ ByVal AnzahlZA As Short, _ ByVal AnzahlZAFremd As Short, _ ByVal AnzahlZnV As Short, _ ByVal AnzahlZnVFremd As Short, _ ByVal AnzahlT1 As Short, _ ByVal AnzahlT2 As Short, _ ByVal AnzahlAE As Short, _ ByVal AnzahlCarnetTIR As Short, _ ByVal AnzahlBarvorlagen As Short, _ ByVal AnzahlSonstiges As Short, _ ByVal AnzahlGrenzgebühren As Short, _ ByVal AvisUhrzeit As Date, _ ByVal Vermerk As String, _ ByVal Bemerkungen As String, _ ByVal Währungsschlüssel As Short, _ ByVal Rechnungsbetrag As Decimal, _ ByVal Umrechnungskurs As Double, _ ByVal Packstücke As String, _ ByVal Rohmasse As Integer, _ ByVal Zahlungsaufschub As String, _ ByVal Löschen As Date, _ ByVal Abfertigungsart As Short, _ ByVal Abfertigungsanzahl As Integer, _ ByVal AbfertigungsanzahlPos As Integer, _ ByVal Barzahlungsbetrag As Decimal, _ ByVal Sachbearbeiter As String, _ ByVal Personalnummer As Integer, _ ByVal AtlasBezNrEZA As String, _ ByVal AtlasBezNrNCTS As String, _ ByVal Versendungsland As String, _ ByVal SB_CMR As Boolean, _ ByVal SB_CMRDatum As Date, _ ByVal veoerz_basbtg As Decimal, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Date, _ ByVal Zucker_Aufschub As String, _ ByVal Zollsystem As String, _ ByVal Bestimmungszollstelle As String, _ ByVal Bürgschaft As String, _ ByVal Sicherheitsbetrag As Decimal, _ ByVal SgutKompl As String, _ ByVal Bestimmungsland As String, _ ByVal EuFiskalEmpfänger As String, _ ByVal QKN As String, _ ByVal EndempfängerKundenNr As Integer, _ ByVal Endempfänger As String, _ ByVal SB_Zeitstempel As Date, _ ByVal upsize_ts() As Byte, _ ByVal AvisoID As Integer, _ ByVal SendungID As Integer, _ ByVal PersonalnummerQS As Integer, _ ByVal AvisiererKundenNr As Integer, _ ByVal Avisierer As String, _ ByVal KdAuftragsNr As String, _ ByVal Grenzstelle As String, _ ByVal NCTS_Verzollungsadresse As String, _ ByVal NCTS_VerzollungsadresseKdNr As Integer, _ ByVal NCTS_Verzollungsadresse_EORI As String, _ ByVal NCTS_Bestimmungszollstelle As String, _ ByVal AuftraggeberBetragKassiert As Decimal, _ ByVal KdAuftragsNrAvisierer As String, _ ByVal KdAuftragsNrEmpfaenger As String, _ ByVal KdAuftragsNrFrachtfuehrer As String, _ ByVal Lieferantenrechnung As String, _ ByVal DokumentId_Steuerbeleg As Integer, _ ByVal DokumentId_Mitteilung As Integer, _ ByVal DokumentId_VBD As Integer, _ ByVal DokumentId_ABD As Integer, _ ByVal DokumentId_AVM As Integer, _ ByVal FilialenNrHandling As Short, _ ByVal FilialenNrAbklaerung As Short, _ ByVal HandlingZuKassieren As Decimal, _ ByVal SB_CMRNr As String, _ ByVal PersonalnummerAbklTR As Integer, _ ByVal UK_EIDR_ausstehend As Boolean, _ ByVal Zollstelle As String, _ ByVal AtlasBezNrAES As String, _ ByVal Packstücke_Zoll As String, _ ByVal Zollsystem_Land As String, _ ByVal geloescht_am As Date, _ ByVal geloescht_von As String) As tblSpeditionsbucharchivRow Dim rowtblSpeditionsbucharchivRow As tblSpeditionsbucharchivRow = CType(Me.NewRow,tblSpeditionsbucharchivRow) Dim columnValuesArray() As Object = New Object() {FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, Bar, Fakturiert, BelegNr, ErfassungsNr, LKW_Kennzeichen, AbsenderKundenNr, Absender, AbsenderOffertenNr, EmpfängerKundenNr, Empfänger, EmpfängerOffertenNr, VermittlerKundenNr, Vermittler, VermittlerOffertenNr, FrachtführerKundenNr, Frachtführer, AnzahlZA, AnzahlZAFremd, AnzahlZnV, AnzahlZnVFremd, AnzahlT1, AnzahlT2, AnzahlAE, AnzahlCarnetTIR, AnzahlBarvorlagen, AnzahlSonstiges, AnzahlGrenzgebühren, AvisUhrzeit, Vermerk, Bemerkungen, Währungsschlüssel, Rechnungsbetrag, Umrechnungskurs, Packstücke, Rohmasse, Zahlungsaufschub, Löschen, Abfertigungsart, Abfertigungsanzahl, AbfertigungsanzahlPos, Barzahlungsbetrag, Sachbearbeiter, Personalnummer, AtlasBezNrEZA, AtlasBezNrNCTS, Versendungsland, SB_CMR, SB_CMRDatum, veoerz_basbtg, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, Zollsystem, Bestimmungszollstelle, Bürgschaft, Sicherheitsbetrag, SgutKompl, Bestimmungsland, EuFiskalEmpfänger, QKN, EndempfängerKundenNr, Endempfänger, SB_Zeitstempel, upsize_ts, AvisoID, SendungID, PersonalnummerQS, AvisiererKundenNr, Avisierer, KdAuftragsNr, Grenzstelle, NCTS_Verzollungsadresse, NCTS_VerzollungsadresseKdNr, NCTS_Verzollungsadresse_EORI, NCTS_Bestimmungszollstelle, AuftraggeberBetragKassiert, KdAuftragsNrAvisierer, KdAuftragsNrEmpfaenger, KdAuftragsNrFrachtfuehrer, Lieferantenrechnung, DokumentId_Steuerbeleg, DokumentId_Mitteilung, DokumentId_VBD, DokumentId_ABD, DokumentId_AVM, FilialenNrHandling, FilialenNrAbklaerung, HandlingZuKassieren, SB_CMRNr, PersonalnummerAbklTR, UK_EIDR_ausstehend, Zollstelle, AtlasBezNrAES, Packstücke_Zoll, Zollsystem_Land, geloescht_am, geloescht_von} rowtblSpeditionsbucharchivRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblSpeditionsbucharchivRow) Return rowtblSpeditionsbucharchivRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblSpeditionsbucharchivDataTable = CType(MyBase.Clone,tblSpeditionsbucharchivDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblSpeditionsbucharchivDataTable() End Function _ Friend Sub InitVars() Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnBar = MyBase.Columns("Bar") Me.columnFakturiert = MyBase.Columns("Fakturiert") Me.columnBelegNr = MyBase.Columns("BelegNr") Me.columnErfassungsNr = MyBase.Columns("ErfassungsNr") Me.columnLKW_Kennzeichen = MyBase.Columns("LKW Kennzeichen") Me.columnAbsenderKundenNr = MyBase.Columns("AbsenderKundenNr") Me.columnAbsender = MyBase.Columns("Absender") Me.columnAbsenderOffertenNr = MyBase.Columns("AbsenderOffertenNr") Me.columnEmpfängerKundenNr = MyBase.Columns("EmpfängerKundenNr") Me.columnEmpfänger = MyBase.Columns("Empfänger") Me.columnEmpfängerOffertenNr = MyBase.Columns("EmpfängerOffertenNr") Me.columnVermittlerKundenNr = MyBase.Columns("VermittlerKundenNr") Me.columnVermittler = MyBase.Columns("Vermittler") Me.columnVermittlerOffertenNr = MyBase.Columns("VermittlerOffertenNr") Me.columnFrachtführerKundenNr = MyBase.Columns("FrachtführerKundenNr") Me.columnFrachtführer = MyBase.Columns("Frachtführer") Me.columnAnzahlZA = MyBase.Columns("AnzahlZA") Me.columnAnzahlZAFremd = MyBase.Columns("AnzahlZAFremd") Me.columnAnzahlZnV = MyBase.Columns("AnzahlZnV") Me.columnAnzahlZnVFremd = MyBase.Columns("AnzahlZnVFremd") Me.columnAnzahlT1 = MyBase.Columns("AnzahlT1") Me.columnAnzahlT2 = MyBase.Columns("AnzahlT2") Me.columnAnzahlAE = MyBase.Columns("AnzahlAE") Me.columnAnzahlCarnetTIR = MyBase.Columns("AnzahlCarnetTIR") Me.columnAnzahlBarvorlagen = MyBase.Columns("AnzahlBarvorlagen") Me.columnAnzahlSonstiges = MyBase.Columns("AnzahlSonstiges") Me.columnAnzahlGrenzgebühren = MyBase.Columns("AnzahlGrenzgebühren") Me.columnAvisUhrzeit = MyBase.Columns("AvisUhrzeit") Me.columnVermerk = MyBase.Columns("Vermerk") Me.columnBemerkungen = MyBase.Columns("Bemerkungen") Me.columnWährungsschlüssel = MyBase.Columns("Währungsschlüssel") Me.columnRechnungsbetrag = MyBase.Columns("Rechnungsbetrag") Me.columnUmrechnungskurs = MyBase.Columns("Umrechnungskurs") Me.columnPackstücke = MyBase.Columns("Packstücke") Me.columnRohmasse = MyBase.Columns("Rohmasse") Me.columnZahlungsaufschub = MyBase.Columns("Zahlungsaufschub") Me.columnLöschen = MyBase.Columns("Löschen") Me.columnAbfertigungsart = MyBase.Columns("Abfertigungsart") Me.columnAbfertigungsanzahl = MyBase.Columns("Abfertigungsanzahl") Me.columnAbfertigungsanzahlPos = MyBase.Columns("AbfertigungsanzahlPos") Me.columnBarzahlungsbetrag = MyBase.Columns("Barzahlungsbetrag") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnPersonalnummer = MyBase.Columns("Personalnummer") Me.columnAtlasBezNrEZA = MyBase.Columns("AtlasBezNrEZA") Me.columnAtlasBezNrNCTS = MyBase.Columns("AtlasBezNrNCTS") Me.columnVersendungsland = MyBase.Columns("Versendungsland") Me.columnSB_CMR = MyBase.Columns("SB_CMR") Me.columnSB_CMRDatum = MyBase.Columns("SB_CMRDatum") Me.columnveoerz_basbtg = MyBase.Columns("veoerz_basbtg") Me.columnZucker_MRN_Nr = MyBase.Columns("Zucker_MRN_Nr") Me.columnZucker_MRN_Datum = MyBase.Columns("Zucker_MRN_Datum") Me.columnZucker_Aufschub = MyBase.Columns("Zucker_Aufschub") Me.columnZollsystem = MyBase.Columns("Zollsystem") Me.columnBestimmungszollstelle = MyBase.Columns("Bestimmungszollstelle") Me.columnBürgschaft = MyBase.Columns("Bürgschaft") Me.columnSicherheitsbetrag = MyBase.Columns("Sicherheitsbetrag") Me.columnSgutKompl = MyBase.Columns("SgutKompl") Me.columnBestimmungsland = MyBase.Columns("Bestimmungsland") Me.columnEuFiskalEmpfänger = MyBase.Columns("EuFiskalEmpfänger") Me.columnQKN = MyBase.Columns("QKN") Me.columnEndempfängerKundenNr = MyBase.Columns("EndempfängerKundenNr") Me.columnEndempfänger = MyBase.Columns("Endempfänger") Me.columnSB_Zeitstempel = MyBase.Columns("SB_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnAvisoID = MyBase.Columns("AvisoID") Me.columnSendungID = MyBase.Columns("SendungID") Me.columnPersonalnummerQS = MyBase.Columns("PersonalnummerQS") Me.columnAvisiererKundenNr = MyBase.Columns("AvisiererKundenNr") Me.columnAvisierer = MyBase.Columns("Avisierer") Me.columnKdAuftragsNr = MyBase.Columns("KdAuftragsNr") Me.columnGrenzstelle = MyBase.Columns("Grenzstelle") Me.columnNCTS_Verzollungsadresse = MyBase.Columns("NCTS_Verzollungsadresse") Me.columnNCTS_VerzollungsadresseKdNr = MyBase.Columns("NCTS_VerzollungsadresseKdNr") Me.columnNCTS_Verzollungsadresse_EORI = MyBase.Columns("NCTS_Verzollungsadresse_EORI") Me.columnNCTS_Bestimmungszollstelle = MyBase.Columns("NCTS_Bestimmungszollstelle") Me.columnAuftraggeberBetragKassiert = MyBase.Columns("AuftraggeberBetragKassiert") Me.columnKdAuftragsNrAvisierer = MyBase.Columns("KdAuftragsNrAvisierer") Me.columnKdAuftragsNrEmpfaenger = MyBase.Columns("KdAuftragsNrEmpfaenger") Me.columnKdAuftragsNrFrachtfuehrer = MyBase.Columns("KdAuftragsNrFrachtfuehrer") Me.columnLieferantenrechnung = MyBase.Columns("Lieferantenrechnung") Me.columnDokumentId_Steuerbeleg = MyBase.Columns("DokumentId_Steuerbeleg") Me.columnDokumentId_Mitteilung = MyBase.Columns("DokumentId_Mitteilung") Me.columnDokumentId_VBD = MyBase.Columns("DokumentId_VBD") Me.columnDokumentId_ABD = MyBase.Columns("DokumentId_ABD") Me.columnDokumentId_AVM = MyBase.Columns("DokumentId_AVM") Me.columnFilialenNrHandling = MyBase.Columns("FilialenNrHandling") Me.columnFilialenNrAbklaerung = MyBase.Columns("FilialenNrAbklaerung") Me.columnHandlingZuKassieren = MyBase.Columns("HandlingZuKassieren") Me.columnSB_CMRNr = MyBase.Columns("SB_CMRNr") Me.columnPersonalnummerAbklTR = MyBase.Columns("PersonalnummerAbklTR") Me.columnUK_EIDR_ausstehend = MyBase.Columns("UK_EIDR_ausstehend") Me.columnZollstelle = MyBase.Columns("Zollstelle") Me.columnAtlasBezNrAES = MyBase.Columns("AtlasBezNrAES") Me.columnPackstücke_Zoll = MyBase.Columns("Packstücke_Zoll") Me.columnZollsystem_Land = MyBase.Columns("Zollsystem_Land") Me.columngeloescht_am = MyBase.Columns("geloescht_am") Me.columngeloescht_von = MyBase.Columns("geloescht_von") End Sub _ Private Sub InitClass() Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnBar = New Global.System.Data.DataColumn("Bar", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBar) Me.columnFakturiert = New Global.System.Data.DataColumn("Fakturiert", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturiert) Me.columnBelegNr = New Global.System.Data.DataColumn("BelegNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegNr) Me.columnErfassungsNr = New Global.System.Data.DataColumn("ErfassungsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErfassungsNr) Me.columnLKW_Kennzeichen = New Global.System.Data.DataColumn("LKW Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLKW_Kennzeichen) Me.columnAbsenderKundenNr = New Global.System.Data.DataColumn("AbsenderKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderKundenNr) Me.columnAbsender = New Global.System.Data.DataColumn("Absender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsender) Me.columnAbsenderOffertenNr = New Global.System.Data.DataColumn("AbsenderOffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOffertenNr) Me.columnEmpfängerKundenNr = New Global.System.Data.DataColumn("EmpfängerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerKundenNr) Me.columnEmpfänger = New Global.System.Data.DataColumn("Empfänger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfänger) Me.columnEmpfängerOffertenNr = New Global.System.Data.DataColumn("EmpfängerOffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOffertenNr) Me.columnVermittlerKundenNr = New Global.System.Data.DataColumn("VermittlerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerKundenNr) Me.columnVermittler = New Global.System.Data.DataColumn("Vermittler", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittler) Me.columnVermittlerOffertenNr = New Global.System.Data.DataColumn("VermittlerOffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOffertenNr) Me.columnFrachtführerKundenNr = New Global.System.Data.DataColumn("FrachtführerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFrachtführerKundenNr) Me.columnFrachtführer = New Global.System.Data.DataColumn("Frachtführer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFrachtführer) Me.columnAnzahlZA = New Global.System.Data.DataColumn("AnzahlZA", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlZA) Me.columnAnzahlZAFremd = New Global.System.Data.DataColumn("AnzahlZAFremd", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlZAFremd) Me.columnAnzahlZnV = New Global.System.Data.DataColumn("AnzahlZnV", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlZnV) Me.columnAnzahlZnVFremd = New Global.System.Data.DataColumn("AnzahlZnVFremd", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlZnVFremd) Me.columnAnzahlT1 = New Global.System.Data.DataColumn("AnzahlT1", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlT1) Me.columnAnzahlT2 = New Global.System.Data.DataColumn("AnzahlT2", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlT2) Me.columnAnzahlAE = New Global.System.Data.DataColumn("AnzahlAE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlAE) Me.columnAnzahlCarnetTIR = New Global.System.Data.DataColumn("AnzahlCarnetTIR", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlCarnetTIR) Me.columnAnzahlBarvorlagen = New Global.System.Data.DataColumn("AnzahlBarvorlagen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlBarvorlagen) Me.columnAnzahlSonstiges = New Global.System.Data.DataColumn("AnzahlSonstiges", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlSonstiges) Me.columnAnzahlGrenzgebühren = New Global.System.Data.DataColumn("AnzahlGrenzgebühren", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahlGrenzgebühren) Me.columnAvisUhrzeit = New Global.System.Data.DataColumn("AvisUhrzeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisUhrzeit) Me.columnVermerk = New Global.System.Data.DataColumn("Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermerk) Me.columnBemerkungen = New Global.System.Data.DataColumn("Bemerkungen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkungen) Me.columnWährungsschlüssel = New Global.System.Data.DataColumn("Währungsschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungsschlüssel) Me.columnRechnungsbetrag = New Global.System.Data.DataColumn("Rechnungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetrag) Me.columnUmrechnungskurs = New Global.System.Data.DataColumn("Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmrechnungskurs) Me.columnPackstücke = New Global.System.Data.DataColumn("Packstücke", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPackstücke) Me.columnRohmasse = New Global.System.Data.DataColumn("Rohmasse", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRohmasse) Me.columnZahlungsaufschub = New Global.System.Data.DataColumn("Zahlungsaufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsaufschub) Me.columnLöschen = New Global.System.Data.DataColumn("Löschen", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLöschen) Me.columnAbfertigungsart = New Global.System.Data.DataColumn("Abfertigungsart", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsart) Me.columnAbfertigungsanzahl = New Global.System.Data.DataColumn("Abfertigungsanzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsanzahl) Me.columnAbfertigungsanzahlPos = New Global.System.Data.DataColumn("AbfertigungsanzahlPos", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsanzahlPos) Me.columnBarzahlungsbetrag = New Global.System.Data.DataColumn("Barzahlungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBarzahlungsbetrag) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnPersonalnummer = New Global.System.Data.DataColumn("Personalnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPersonalnummer) Me.columnAtlasBezNrEZA = New Global.System.Data.DataColumn("AtlasBezNrEZA", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAtlasBezNrEZA) Me.columnAtlasBezNrNCTS = New Global.System.Data.DataColumn("AtlasBezNrNCTS", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAtlasBezNrNCTS) Me.columnVersendungsland = New Global.System.Data.DataColumn("Versendungsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVersendungsland) Me.columnSB_CMR = New Global.System.Data.DataColumn("SB_CMR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_CMR) Me.columnSB_CMRDatum = New Global.System.Data.DataColumn("SB_CMRDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_CMRDatum) Me.columnveoerz_basbtg = New Global.System.Data.DataColumn("veoerz_basbtg", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoerz_basbtg) Me.columnZucker_MRN_Nr = New Global.System.Data.DataColumn("Zucker_MRN_Nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Nr) Me.columnZucker_MRN_Datum = New Global.System.Data.DataColumn("Zucker_MRN_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Datum) Me.columnZucker_Aufschub = New Global.System.Data.DataColumn("Zucker_Aufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_Aufschub) Me.columnZollsystem = New Global.System.Data.DataColumn("Zollsystem", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollsystem) Me.columnBestimmungszollstelle = New Global.System.Data.DataColumn("Bestimmungszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungszollstelle) Me.columnBürgschaft = New Global.System.Data.DataColumn("Bürgschaft", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBürgschaft) Me.columnSicherheitsbetrag = New Global.System.Data.DataColumn("Sicherheitsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSicherheitsbetrag) Me.columnSgutKompl = New Global.System.Data.DataColumn("SgutKompl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSgutKompl) Me.columnBestimmungsland = New Global.System.Data.DataColumn("Bestimmungsland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungsland) Me.columnEuFiskalEmpfänger = New Global.System.Data.DataColumn("EuFiskalEmpfänger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEuFiskalEmpfänger) Me.columnQKN = New Global.System.Data.DataColumn("QKN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQKN) Me.columnEndempfängerKundenNr = New Global.System.Data.DataColumn("EndempfängerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEndempfängerKundenNr) Me.columnEndempfänger = New Global.System.Data.DataColumn("Endempfänger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEndempfänger) Me.columnSB_Zeitstempel = New Global.System.Data.DataColumn("SB_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnAvisoID = New Global.System.Data.DataColumn("AvisoID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisoID) Me.columnSendungID = New Global.System.Data.DataColumn("SendungID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSendungID) Me.columnPersonalnummerQS = New Global.System.Data.DataColumn("PersonalnummerQS", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPersonalnummerQS) Me.columnAvisiererKundenNr = New Global.System.Data.DataColumn("AvisiererKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisiererKundenNr) Me.columnAvisierer = New Global.System.Data.DataColumn("Avisierer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisierer) Me.columnKdAuftragsNr = New Global.System.Data.DataColumn("KdAuftragsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdAuftragsNr) Me.columnGrenzstelle = New Global.System.Data.DataColumn("Grenzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGrenzstelle) Me.columnNCTS_Verzollungsadresse = New Global.System.Data.DataColumn("NCTS_Verzollungsadresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNCTS_Verzollungsadresse) Me.columnNCTS_VerzollungsadresseKdNr = New Global.System.Data.DataColumn("NCTS_VerzollungsadresseKdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNCTS_VerzollungsadresseKdNr) Me.columnNCTS_Verzollungsadresse_EORI = New Global.System.Data.DataColumn("NCTS_Verzollungsadresse_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNCTS_Verzollungsadresse_EORI) Me.columnNCTS_Bestimmungszollstelle = New Global.System.Data.DataColumn("NCTS_Bestimmungszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNCTS_Bestimmungszollstelle) Me.columnAuftraggeberBetragKassiert = New Global.System.Data.DataColumn("AuftraggeberBetragKassiert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAuftraggeberBetragKassiert) Me.columnKdAuftragsNrAvisierer = New Global.System.Data.DataColumn("KdAuftragsNrAvisierer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdAuftragsNrAvisierer) Me.columnKdAuftragsNrEmpfaenger = New Global.System.Data.DataColumn("KdAuftragsNrEmpfaenger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdAuftragsNrEmpfaenger) Me.columnKdAuftragsNrFrachtfuehrer = New Global.System.Data.DataColumn("KdAuftragsNrFrachtfuehrer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdAuftragsNrFrachtfuehrer) Me.columnLieferantenrechnung = New Global.System.Data.DataColumn("Lieferantenrechnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferantenrechnung) Me.columnDokumentId_Steuerbeleg = New Global.System.Data.DataColumn("DokumentId_Steuerbeleg", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentId_Steuerbeleg) Me.columnDokumentId_Mitteilung = New Global.System.Data.DataColumn("DokumentId_Mitteilung", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentId_Mitteilung) Me.columnDokumentId_VBD = New Global.System.Data.DataColumn("DokumentId_VBD", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentId_VBD) Me.columnDokumentId_ABD = New Global.System.Data.DataColumn("DokumentId_ABD", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentId_ABD) Me.columnDokumentId_AVM = New Global.System.Data.DataColumn("DokumentId_AVM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentId_AVM) Me.columnFilialenNrHandling = New Global.System.Data.DataColumn("FilialenNrHandling", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNrHandling) Me.columnFilialenNrAbklaerung = New Global.System.Data.DataColumn("FilialenNrAbklaerung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNrAbklaerung) Me.columnHandlingZuKassieren = New Global.System.Data.DataColumn("HandlingZuKassieren", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHandlingZuKassieren) Me.columnSB_CMRNr = New Global.System.Data.DataColumn("SB_CMRNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_CMRNr) Me.columnPersonalnummerAbklTR = New Global.System.Data.DataColumn("PersonalnummerAbklTR", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPersonalnummerAbklTR) Me.columnUK_EIDR_ausstehend = New Global.System.Data.DataColumn("UK_EIDR_ausstehend", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUK_EIDR_ausstehend) Me.columnZollstelle = New Global.System.Data.DataColumn("Zollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollstelle) Me.columnAtlasBezNrAES = New Global.System.Data.DataColumn("AtlasBezNrAES", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAtlasBezNrAES) Me.columnPackstücke_Zoll = New Global.System.Data.DataColumn("Packstücke_Zoll", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPackstücke_Zoll) Me.columnZollsystem_Land = New Global.System.Data.DataColumn("Zollsystem_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollsystem_Land) Me.columngeloescht_am = New Global.System.Data.DataColumn("geloescht_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngeloescht_am) Me.columngeloescht_von = New Global.System.Data.DataColumn("geloescht_von", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngeloescht_von) Me.columnBelegNr.MaxLength = 27 Me.columnErfassungsNr.MaxLength = 255 Me.columnLKW_Kennzeichen.MaxLength = 25 Me.columnAbsender.MaxLength = 50 Me.columnEmpfänger.MaxLength = 50 Me.columnVermittler.MaxLength = 50 Me.columnFrachtführer.MaxLength = 50 Me.columnAnzahlZA.AllowDBNull = false Me.columnAnzahlZAFremd.AllowDBNull = false Me.columnAnzahlZnV.AllowDBNull = false Me.columnAnzahlZnVFremd.AllowDBNull = false Me.columnAnzahlT1.AllowDBNull = false Me.columnAnzahlT2.AllowDBNull = false Me.columnAnzahlAE.AllowDBNull = false Me.columnAnzahlCarnetTIR.AllowDBNull = false Me.columnAnzahlBarvorlagen.AllowDBNull = false Me.columnAnzahlSonstiges.AllowDBNull = false Me.columnAnzahlGrenzgebühren.AllowDBNull = false Me.columnVermerk.MaxLength = 50 Me.columnBemerkungen.MaxLength = 1073741823 Me.columnPackstücke.MaxLength = 1073741823 Me.columnZahlungsaufschub.MaxLength = 20 Me.columnSachbearbeiter.MaxLength = 15 Me.columnAtlasBezNrEZA.MaxLength = 35 Me.columnAtlasBezNrNCTS.MaxLength = 22 Me.columnVersendungsland.MaxLength = 2 Me.columnSB_CMR.AllowDBNull = false Me.columnZucker_MRN_Nr.MaxLength = 18 Me.columnZucker_Aufschub.MaxLength = 1 Me.columnZollsystem.MaxLength = 10 Me.columnBestimmungszollstelle.MaxLength = 8 Me.columnBürgschaft.MaxLength = 35 Me.columnSgutKompl.MaxLength = 1 Me.columnBestimmungsland.MaxLength = 2 Me.columnEuFiskalEmpfänger.MaxLength = 50 Me.columnQKN.MaxLength = 20 Me.columnEndempfänger.MaxLength = 50 Me.columnupsize_ts.ReadOnly = true Me.columnAvisierer.MaxLength = 50 Me.columnKdAuftragsNr.MaxLength = 50 Me.columnGrenzstelle.MaxLength = 50 Me.columnNCTS_Verzollungsadresse.MaxLength = 255 Me.columnNCTS_Verzollungsadresse_EORI.MaxLength = 17 Me.columnNCTS_Bestimmungszollstelle.MaxLength = 8 Me.columnKdAuftragsNrAvisierer.MaxLength = 50 Me.columnKdAuftragsNrEmpfaenger.MaxLength = 50 Me.columnKdAuftragsNrFrachtfuehrer.MaxLength = 50 Me.columnLieferantenrechnung.MaxLength = 1000 Me.columnHandlingZuKassieren.AllowDBNull = false Me.columnSB_CMRNr.MaxLength = 100 Me.columnUK_EIDR_ausstehend.AllowDBNull = false Me.columnZollstelle.MaxLength = 8 Me.columnAtlasBezNrAES.MaxLength = 35 Me.columnPackstücke_Zoll.MaxLength = 1073741823 Me.columnZollsystem_Land.MaxLength = 3 Me.columngeloescht_von.MaxLength = 50 End Sub _ Public Function NewtblSpeditionsbucharchivRow() As tblSpeditionsbucharchivRow Return CType(Me.NewRow,tblSpeditionsbucharchivRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblSpeditionsbucharchivRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblSpeditionsbucharchivRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblSpeditionsbucharchivRowChangedEvent) Is Nothing) Then RaiseEvent tblSpeditionsbucharchivRowChanged(Me, New tblSpeditionsbucharchivRowChangeEvent(CType(e.Row,tblSpeditionsbucharchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblSpeditionsbucharchivRowChangingEvent) Is Nothing) Then RaiseEvent tblSpeditionsbucharchivRowChanging(Me, New tblSpeditionsbucharchivRowChangeEvent(CType(e.Row,tblSpeditionsbucharchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblSpeditionsbucharchivRowDeletedEvent) Is Nothing) Then RaiseEvent tblSpeditionsbucharchivRowDeleted(Me, New tblSpeditionsbucharchivRowChangeEvent(CType(e.Row,tblSpeditionsbucharchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblSpeditionsbucharchivRowDeletingEvent) Is Nothing) Then RaiseEvent tblSpeditionsbucharchivRowDeleting(Me, New tblSpeditionsbucharchivRowChangeEvent(CType(e.Row,tblSpeditionsbucharchivRow), e.Action)) End If End Sub _ Public Sub RemovetblSpeditionsbucharchivRow(ByVal row As tblSpeditionsbucharchivRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblSpeditionsbucharchivDataTable" 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 tblSpeditionsbuchEndEmpfaengerDataTable Inherits Global.System.Data.TypedTableBase(Of tblSpeditionsbuchEndEmpfaengerRow) Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnEndEmpfaengerKdNr As Global.System.Data.DataColumn Private columnEndEmpfaenger As Global.System.Data.DataColumn Private columnUstIdKz As Global.System.Data.DataColumn Private columnUstIdNr As Global.System.Data.DataColumn Private columnRechnungsbetrag As Global.System.Data.DataColumn Private columnRechnungsNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblSpeditionsbuchEndEmpfaenger" 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 FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property EndEmpfaengerKdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEndEmpfaengerKdNr End Get End Property _ Public ReadOnly Property EndEmpfaengerColumn() As Global.System.Data.DataColumn Get Return Me.columnEndEmpfaenger End Get End Property _ Public ReadOnly Property UstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdKz End Get End Property _ Public ReadOnly Property UstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdNr End Get End Property _ Public ReadOnly Property RechnungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetrag End Get End Property _ Public ReadOnly Property RechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsNr 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 tblSpeditionsbuchEndEmpfaengerRow Get Return CType(Me.Rows(index),tblSpeditionsbuchEndEmpfaengerRow) End Get End Property _ Public Event tblSpeditionsbuchEndEmpfaengerRowChanging As tblSpeditionsbuchEndEmpfaengerRowChangeEventHandler _ Public Event tblSpeditionsbuchEndEmpfaengerRowChanged As tblSpeditionsbuchEndEmpfaengerRowChangeEventHandler _ Public Event tblSpeditionsbuchEndEmpfaengerRowDeleting As tblSpeditionsbuchEndEmpfaengerRowChangeEventHandler _ Public Event tblSpeditionsbuchEndEmpfaengerRowDeleted As tblSpeditionsbuchEndEmpfaengerRowChangeEventHandler _ Public Overloads Sub AddtblSpeditionsbuchEndEmpfaengerRow(ByVal row As tblSpeditionsbuchEndEmpfaengerRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblSpeditionsbuchEndEmpfaengerRow(ByVal FilialenNr As Short, ByVal AbfertigungsNr As Integer, ByVal UnterNr As Short, ByVal EndEmpfaengerKdNr As Integer, ByVal EndEmpfaenger As String, ByVal UstIdKz As String, ByVal UstIdNr As String, ByVal Rechnungsbetrag As Decimal, ByVal RechnungsNr As String) As tblSpeditionsbuchEndEmpfaengerRow Dim rowtblSpeditionsbuchEndEmpfaengerRow As tblSpeditionsbuchEndEmpfaengerRow = CType(Me.NewRow,tblSpeditionsbuchEndEmpfaengerRow) Dim columnValuesArray() As Object = New Object() {FilialenNr, AbfertigungsNr, UnterNr, EndEmpfaengerKdNr, EndEmpfaenger, UstIdKz, UstIdNr, Rechnungsbetrag, RechnungsNr} rowtblSpeditionsbuchEndEmpfaengerRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblSpeditionsbuchEndEmpfaengerRow) Return rowtblSpeditionsbuchEndEmpfaengerRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblSpeditionsbuchEndEmpfaengerDataTable = CType(MyBase.Clone,tblSpeditionsbuchEndEmpfaengerDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblSpeditionsbuchEndEmpfaengerDataTable() End Function _ Friend Sub InitVars() Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnEndEmpfaengerKdNr = MyBase.Columns("EndEmpfaengerKdNr") Me.columnEndEmpfaenger = MyBase.Columns("EndEmpfaenger") Me.columnUstIdKz = MyBase.Columns("UstIdKz") Me.columnUstIdNr = MyBase.Columns("UstIdNr") Me.columnRechnungsbetrag = MyBase.Columns("Rechnungsbetrag") Me.columnRechnungsNr = MyBase.Columns("RechnungsNr") End Sub _ Private Sub InitClass() Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnEndEmpfaengerKdNr = New Global.System.Data.DataColumn("EndEmpfaengerKdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEndEmpfaengerKdNr) Me.columnEndEmpfaenger = New Global.System.Data.DataColumn("EndEmpfaenger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEndEmpfaenger) Me.columnUstIdKz = New Global.System.Data.DataColumn("UstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdKz) Me.columnUstIdNr = New Global.System.Data.DataColumn("UstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdNr) Me.columnRechnungsbetrag = New Global.System.Data.DataColumn("Rechnungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetrag) Me.columnRechnungsNr = New Global.System.Data.DataColumn("RechnungsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsNr) Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnEndEmpfaengerKdNr.AllowDBNull = false Me.columnEndEmpfaenger.AllowDBNull = false Me.columnEndEmpfaenger.MaxLength = 50 Me.columnUstIdKz.MaxLength = 2 Me.columnUstIdNr.MaxLength = 12 Me.columnRechnungsNr.MaxLength = 500 End Sub _ Public Function NewtblSpeditionsbuchEndEmpfaengerRow() As tblSpeditionsbuchEndEmpfaengerRow Return CType(Me.NewRow,tblSpeditionsbuchEndEmpfaengerRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblSpeditionsbuchEndEmpfaengerRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblSpeditionsbuchEndEmpfaengerRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblSpeditionsbuchEndEmpfaengerRowChangedEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchEndEmpfaengerRowChanged(Me, New tblSpeditionsbuchEndEmpfaengerRowChangeEvent(CType(e.Row,tblSpeditionsbuchEndEmpfaengerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblSpeditionsbuchEndEmpfaengerRowChangingEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchEndEmpfaengerRowChanging(Me, New tblSpeditionsbuchEndEmpfaengerRowChangeEvent(CType(e.Row,tblSpeditionsbuchEndEmpfaengerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblSpeditionsbuchEndEmpfaengerRowDeletedEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchEndEmpfaengerRowDeleted(Me, New tblSpeditionsbuchEndEmpfaengerRowChangeEvent(CType(e.Row,tblSpeditionsbuchEndEmpfaengerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblSpeditionsbuchEndEmpfaengerRowDeletingEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchEndEmpfaengerRowDeleting(Me, New tblSpeditionsbuchEndEmpfaengerRowChangeEvent(CType(e.Row,tblSpeditionsbuchEndEmpfaengerRow), e.Action)) End If End Sub _ Public Sub RemovetblSpeditionsbuchEndEmpfaengerRow(ByVal row As tblSpeditionsbuchEndEmpfaengerRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblSpeditionsbuchEndEmpfaengerDataTable" 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 tblSpeditionsbuchUnterPosDataTable Inherits Global.System.Data.TypedTableBase(Of tblSpeditionsbuchUnterPosRow) Private columnsbup_id As Global.System.Data.DataColumn Private columnsbup_Filiale As Global.System.Data.DataColumn Private columnsbup_AbfertigungsNr As Global.System.Data.DataColumn Private columnsbup_UnterNr As Global.System.Data.DataColumn Private columnsbup_UnterPosArt As Global.System.Data.DataColumn Private columnsbup_Anzahl As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblSpeditionsbuchUnterPos" 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 sbup_idColumn() As Global.System.Data.DataColumn Get Return Me.columnsbup_id End Get End Property _ Public ReadOnly Property sbup_FilialeColumn() As Global.System.Data.DataColumn Get Return Me.columnsbup_Filiale End Get End Property _ Public ReadOnly Property sbup_AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnsbup_AbfertigungsNr End Get End Property _ Public ReadOnly Property sbup_UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnsbup_UnterNr End Get End Property _ Public ReadOnly Property sbup_UnterPosArtColumn() As Global.System.Data.DataColumn Get Return Me.columnsbup_UnterPosArt End Get End Property _ Public ReadOnly Property sbup_AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnsbup_Anzahl 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 tblSpeditionsbuchUnterPosRow Get Return CType(Me.Rows(index),tblSpeditionsbuchUnterPosRow) End Get End Property _ Public Event tblSpeditionsbuchUnterPosRowChanging As tblSpeditionsbuchUnterPosRowChangeEventHandler _ Public Event tblSpeditionsbuchUnterPosRowChanged As tblSpeditionsbuchUnterPosRowChangeEventHandler _ Public Event tblSpeditionsbuchUnterPosRowDeleting As tblSpeditionsbuchUnterPosRowChangeEventHandler _ Public Event tblSpeditionsbuchUnterPosRowDeleted As tblSpeditionsbuchUnterPosRowChangeEventHandler _ Public Overloads Sub AddtblSpeditionsbuchUnterPosRow(ByVal row As tblSpeditionsbuchUnterPosRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblSpeditionsbuchUnterPosRow(ByVal sbup_Filiale As Integer, ByVal sbup_AbfertigungsNr As Integer, ByVal sbup_UnterNr As Integer, ByVal sbup_UnterPosArt As Integer, ByVal sbup_Anzahl As Integer) As tblSpeditionsbuchUnterPosRow Dim rowtblSpeditionsbuchUnterPosRow As tblSpeditionsbuchUnterPosRow = CType(Me.NewRow,tblSpeditionsbuchUnterPosRow) Dim columnValuesArray() As Object = New Object() {Nothing, sbup_Filiale, sbup_AbfertigungsNr, sbup_UnterNr, sbup_UnterPosArt, sbup_Anzahl} rowtblSpeditionsbuchUnterPosRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblSpeditionsbuchUnterPosRow) Return rowtblSpeditionsbuchUnterPosRow End Function _ Public Function FindBysbup_id(ByVal sbup_id As Integer) As tblSpeditionsbuchUnterPosRow Return CType(Me.Rows.Find(New Object() {sbup_id}),tblSpeditionsbuchUnterPosRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblSpeditionsbuchUnterPosDataTable = CType(MyBase.Clone,tblSpeditionsbuchUnterPosDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblSpeditionsbuchUnterPosDataTable() End Function _ Friend Sub InitVars() Me.columnsbup_id = MyBase.Columns("sbup_id") Me.columnsbup_Filiale = MyBase.Columns("sbup_Filiale") Me.columnsbup_AbfertigungsNr = MyBase.Columns("sbup_AbfertigungsNr") Me.columnsbup_UnterNr = MyBase.Columns("sbup_UnterNr") Me.columnsbup_UnterPosArt = MyBase.Columns("sbup_UnterPosArt") Me.columnsbup_Anzahl = MyBase.Columns("sbup_Anzahl") End Sub _ Private Sub InitClass() Me.columnsbup_id = New Global.System.Data.DataColumn("sbup_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsbup_id) Me.columnsbup_Filiale = New Global.System.Data.DataColumn("sbup_Filiale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsbup_Filiale) Me.columnsbup_AbfertigungsNr = New Global.System.Data.DataColumn("sbup_AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsbup_AbfertigungsNr) Me.columnsbup_UnterNr = New Global.System.Data.DataColumn("sbup_UnterNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsbup_UnterNr) Me.columnsbup_UnterPosArt = New Global.System.Data.DataColumn("sbup_UnterPosArt", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsbup_UnterPosArt) Me.columnsbup_Anzahl = New Global.System.Data.DataColumn("sbup_Anzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsbup_Anzahl) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnsbup_id}, true)) Me.columnsbup_id.AutoIncrement = true Me.columnsbup_id.AutoIncrementSeed = -1 Me.columnsbup_id.AutoIncrementStep = -1 Me.columnsbup_id.AllowDBNull = false Me.columnsbup_id.ReadOnly = true Me.columnsbup_id.Unique = true Me.columnsbup_Filiale.AllowDBNull = false Me.columnsbup_AbfertigungsNr.AllowDBNull = false Me.columnsbup_UnterNr.AllowDBNull = false Me.columnsbup_UnterPosArt.AllowDBNull = false Me.columnsbup_Anzahl.AllowDBNull = false End Sub _ Public Function NewtblSpeditionsbuchUnterPosRow() As tblSpeditionsbuchUnterPosRow Return CType(Me.NewRow,tblSpeditionsbuchUnterPosRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblSpeditionsbuchUnterPosRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblSpeditionsbuchUnterPosRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblSpeditionsbuchUnterPosRowChangedEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchUnterPosRowChanged(Me, New tblSpeditionsbuchUnterPosRowChangeEvent(CType(e.Row,tblSpeditionsbuchUnterPosRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblSpeditionsbuchUnterPosRowChangingEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchUnterPosRowChanging(Me, New tblSpeditionsbuchUnterPosRowChangeEvent(CType(e.Row,tblSpeditionsbuchUnterPosRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblSpeditionsbuchUnterPosRowDeletedEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchUnterPosRowDeleted(Me, New tblSpeditionsbuchUnterPosRowChangeEvent(CType(e.Row,tblSpeditionsbuchUnterPosRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblSpeditionsbuchUnterPosRowDeletingEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchUnterPosRowDeleting(Me, New tblSpeditionsbuchUnterPosRowChangeEvent(CType(e.Row,tblSpeditionsbuchUnterPosRow), e.Action)) End If End Sub _ Public Sub RemovetblSpeditionsbuchUnterPosRow(ByVal row As tblSpeditionsbuchUnterPosRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblSpeditionsbuchUnterPosDataTable" 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 tblSpeditionsbuchUnterPosArtenDataTable Inherits Global.System.Data.TypedTableBase(Of tblSpeditionsbuchUnterPosArtenRow) Private columnsbupa_id As Global.System.Data.DataColumn Private columnsbupa_bez As Global.System.Data.DataColumn Private columnsbupa_Abfertigungsart As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblSpeditionsbuchUnterPosArten" 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 sbupa_idColumn() As Global.System.Data.DataColumn Get Return Me.columnsbupa_id End Get End Property _ Public ReadOnly Property sbupa_bezColumn() As Global.System.Data.DataColumn Get Return Me.columnsbupa_bez End Get End Property _ Public ReadOnly Property sbupa_AbfertigungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnsbupa_Abfertigungsart 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 tblSpeditionsbuchUnterPosArtenRow Get Return CType(Me.Rows(index),tblSpeditionsbuchUnterPosArtenRow) End Get End Property _ Public Event tblSpeditionsbuchUnterPosArtenRowChanging As tblSpeditionsbuchUnterPosArtenRowChangeEventHandler _ Public Event tblSpeditionsbuchUnterPosArtenRowChanged As tblSpeditionsbuchUnterPosArtenRowChangeEventHandler _ Public Event tblSpeditionsbuchUnterPosArtenRowDeleting As tblSpeditionsbuchUnterPosArtenRowChangeEventHandler _ Public Event tblSpeditionsbuchUnterPosArtenRowDeleted As tblSpeditionsbuchUnterPosArtenRowChangeEventHandler _ Public Overloads Sub AddtblSpeditionsbuchUnterPosArtenRow(ByVal row As tblSpeditionsbuchUnterPosArtenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblSpeditionsbuchUnterPosArtenRow(ByVal sbupa_bez As String, ByVal sbupa_Abfertigungsart As Integer) As tblSpeditionsbuchUnterPosArtenRow Dim rowtblSpeditionsbuchUnterPosArtenRow As tblSpeditionsbuchUnterPosArtenRow = CType(Me.NewRow,tblSpeditionsbuchUnterPosArtenRow) Dim columnValuesArray() As Object = New Object() {Nothing, sbupa_bez, sbupa_Abfertigungsart} rowtblSpeditionsbuchUnterPosArtenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblSpeditionsbuchUnterPosArtenRow) Return rowtblSpeditionsbuchUnterPosArtenRow End Function _ Public Function FindBysbupa_id(ByVal sbupa_id As Integer) As tblSpeditionsbuchUnterPosArtenRow Return CType(Me.Rows.Find(New Object() {sbupa_id}),tblSpeditionsbuchUnterPosArtenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblSpeditionsbuchUnterPosArtenDataTable = CType(MyBase.Clone,tblSpeditionsbuchUnterPosArtenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblSpeditionsbuchUnterPosArtenDataTable() End Function _ Friend Sub InitVars() Me.columnsbupa_id = MyBase.Columns("sbupa_id") Me.columnsbupa_bez = MyBase.Columns("sbupa_bez") Me.columnsbupa_Abfertigungsart = MyBase.Columns("sbupa_Abfertigungsart") End Sub _ Private Sub InitClass() Me.columnsbupa_id = New Global.System.Data.DataColumn("sbupa_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsbupa_id) Me.columnsbupa_bez = New Global.System.Data.DataColumn("sbupa_bez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsbupa_bez) Me.columnsbupa_Abfertigungsart = New Global.System.Data.DataColumn("sbupa_Abfertigungsart", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsbupa_Abfertigungsart) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnsbupa_id}, true)) Me.columnsbupa_id.AutoIncrement = true Me.columnsbupa_id.AutoIncrementSeed = -1 Me.columnsbupa_id.AutoIncrementStep = -1 Me.columnsbupa_id.AllowDBNull = false Me.columnsbupa_id.ReadOnly = true Me.columnsbupa_id.Unique = true Me.columnsbupa_bez.AllowDBNull = false Me.columnsbupa_bez.MaxLength = 200 End Sub _ Public Function NewtblSpeditionsbuchUnterPosArtenRow() As tblSpeditionsbuchUnterPosArtenRow Return CType(Me.NewRow,tblSpeditionsbuchUnterPosArtenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblSpeditionsbuchUnterPosArtenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblSpeditionsbuchUnterPosArtenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblSpeditionsbuchUnterPosArtenRowChangedEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchUnterPosArtenRowChanged(Me, New tblSpeditionsbuchUnterPosArtenRowChangeEvent(CType(e.Row,tblSpeditionsbuchUnterPosArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblSpeditionsbuchUnterPosArtenRowChangingEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchUnterPosArtenRowChanging(Me, New tblSpeditionsbuchUnterPosArtenRowChangeEvent(CType(e.Row,tblSpeditionsbuchUnterPosArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblSpeditionsbuchUnterPosArtenRowDeletedEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchUnterPosArtenRowDeleted(Me, New tblSpeditionsbuchUnterPosArtenRowChangeEvent(CType(e.Row,tblSpeditionsbuchUnterPosArtenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblSpeditionsbuchUnterPosArtenRowDeletingEvent) Is Nothing) Then RaiseEvent tblSpeditionsbuchUnterPosArtenRowDeleting(Me, New tblSpeditionsbuchUnterPosArtenRowChangeEvent(CType(e.Row,tblSpeditionsbuchUnterPosArtenRow), e.Action)) End If End Sub _ Public Sub RemovetblSpeditionsbuchUnterPosArtenRow(ByVal row As tblSpeditionsbuchUnterPosArtenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblSpeditionsbuchUnterPosArtenDataTable" 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 tblSteuernummernDataTable Inherits Global.System.Data.TypedTableBase(Of tblSteuernummernRow) Private columnAdressenNr As Global.System.Data.DataColumn Private columnLandNr As Global.System.Data.DataColumn Private columnStNrFürRückerstattungUSt As Global.System.Data.DataColumn Private columnStNrGültigkeitsdatum As Global.System.Data.DataColumn Private columnUStV As Global.System.Data.DataColumn Private columnVertretungsvollmachtAusgestelltAm As Global.System.Data.DataColumn Private columnVertretungsvollmachtErhaltenAm As Global.System.Data.DataColumn Private columnAuszahlungsvollmachtAusgestelltAm As Global.System.Data.DataColumn Private columnAuszahlungsvollmachtErhaltenAm As Global.System.Data.DataColumn Private columnBemerkung As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblSteuernummern" 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 AdressenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAdressenNr End Get End Property _ Public ReadOnly Property LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLandNr End Get End Property _ Public ReadOnly Property StNrFürRückerstattungUStColumn() As Global.System.Data.DataColumn Get Return Me.columnStNrFürRückerstattungUSt End Get End Property _ Public ReadOnly Property StNrGültigkeitsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnStNrGültigkeitsdatum End Get End Property _ Public ReadOnly Property UStVColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV End Get End Property _ Public ReadOnly Property VertretungsvollmachtAusgestelltAmColumn() As Global.System.Data.DataColumn Get Return Me.columnVertretungsvollmachtAusgestelltAm End Get End Property _ Public ReadOnly Property VertretungsvollmachtErhaltenAmColumn() As Global.System.Data.DataColumn Get Return Me.columnVertretungsvollmachtErhaltenAm End Get End Property _ Public ReadOnly Property AuszahlungsvollmachtAusgestelltAmColumn() As Global.System.Data.DataColumn Get Return Me.columnAuszahlungsvollmachtAusgestelltAm End Get End Property _ Public ReadOnly Property AuszahlungsvollmachtErhaltenAmColumn() As Global.System.Data.DataColumn Get Return Me.columnAuszahlungsvollmachtErhaltenAm End Get End Property _ Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkung End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblSteuernummernRow Get Return CType(Me.Rows(index),tblSteuernummernRow) End Get End Property _ Public Event tblSteuernummernRowChanging As tblSteuernummernRowChangeEventHandler _ Public Event tblSteuernummernRowChanged As tblSteuernummernRowChangeEventHandler _ Public Event tblSteuernummernRowDeleting As tblSteuernummernRowChangeEventHandler _ Public Event tblSteuernummernRowDeleted As tblSteuernummernRowChangeEventHandler _ Public Overloads Sub AddtblSteuernummernRow(ByVal row As tblSteuernummernRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblSteuernummernRow(ByVal _parentAdressenRowBytblSteuernummern_AdressentblSteuernummern As AdressenRow, ByVal _parentLänderverzeichnis_für_die_AußenhandelsstatistikRowBytblSteuernummern_Länderverzeichnis_für_die_AußenhandelsstatistiktblSteuernummern As Länderverzeichnis_für_die_AußenhandelsstatistikRow, ByVal StNrFürRückerstattungUSt As String, ByVal StNrGültigkeitsdatum As Date, ByVal UStV As Boolean, ByVal VertretungsvollmachtAusgestelltAm As Date, ByVal VertretungsvollmachtErhaltenAm As Date, ByVal AuszahlungsvollmachtAusgestelltAm As Date, ByVal AuszahlungsvollmachtErhaltenAm As Date, ByVal Bemerkung As String, ByVal SSMA_TimeStamp() As Byte) As tblSteuernummernRow Dim rowtblSteuernummernRow As tblSteuernummernRow = CType(Me.NewRow,tblSteuernummernRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, StNrFürRückerstattungUSt, StNrGültigkeitsdatum, UStV, VertretungsvollmachtAusgestelltAm, VertretungsvollmachtErhaltenAm, AuszahlungsvollmachtAusgestelltAm, AuszahlungsvollmachtErhaltenAm, Bemerkung, SSMA_TimeStamp} If (Not (_parentAdressenRowBytblSteuernummern_AdressentblSteuernummern) Is Nothing) Then columnValuesArray(0) = _parentAdressenRowBytblSteuernummern_AdressentblSteuernummern(1) End If If (Not (_parentLänderverzeichnis_für_die_AußenhandelsstatistikRowBytblSteuernummern_Länderverzeichnis_für_die_AußenhandelsstatistiktblSteuernummern) Is Nothing) Then columnValuesArray(1) = _parentLänderverzeichnis_für_die_AußenhandelsstatistikRowBytblSteuernummern_Länderverzeichnis_für_die_AußenhandelsstatistiktblSteuernummern(0) End If rowtblSteuernummernRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblSteuernummernRow) Return rowtblSteuernummernRow End Function _ Public Function FindByAdressenNrLandNr(ByVal AdressenNr As Integer, ByVal LandNr As Short) As tblSteuernummernRow Return CType(Me.Rows.Find(New Object() {AdressenNr, LandNr}),tblSteuernummernRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblSteuernummernDataTable = CType(MyBase.Clone,tblSteuernummernDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblSteuernummernDataTable() End Function _ Friend Sub InitVars() Me.columnAdressenNr = MyBase.Columns("AdressenNr") Me.columnLandNr = MyBase.Columns("LandNr") Me.columnStNrFürRückerstattungUSt = MyBase.Columns("StNrFürRückerstattungUSt") Me.columnStNrGültigkeitsdatum = MyBase.Columns("StNrGültigkeitsdatum") Me.columnUStV = MyBase.Columns("UStV") Me.columnVertretungsvollmachtAusgestelltAm = MyBase.Columns("VertretungsvollmachtAusgestelltAm") Me.columnVertretungsvollmachtErhaltenAm = MyBase.Columns("VertretungsvollmachtErhaltenAm") Me.columnAuszahlungsvollmachtAusgestelltAm = MyBase.Columns("AuszahlungsvollmachtAusgestelltAm") Me.columnAuszahlungsvollmachtErhaltenAm = MyBase.Columns("AuszahlungsvollmachtErhaltenAm") Me.columnBemerkung = MyBase.Columns("Bemerkung") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnAdressenNr = New Global.System.Data.DataColumn("AdressenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAdressenNr) Me.columnLandNr = New Global.System.Data.DataColumn("LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandNr) Me.columnStNrFürRückerstattungUSt = New Global.System.Data.DataColumn("StNrFürRückerstattungUSt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStNrFürRückerstattungUSt) Me.columnStNrGültigkeitsdatum = New Global.System.Data.DataColumn("StNrGültigkeitsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStNrGültigkeitsdatum) Me.columnUStV = New Global.System.Data.DataColumn("UStV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV) Me.columnVertretungsvollmachtAusgestelltAm = New Global.System.Data.DataColumn("VertretungsvollmachtAusgestelltAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVertretungsvollmachtAusgestelltAm) Me.columnVertretungsvollmachtErhaltenAm = New Global.System.Data.DataColumn("VertretungsvollmachtErhaltenAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVertretungsvollmachtErhaltenAm) Me.columnAuszahlungsvollmachtAusgestelltAm = New Global.System.Data.DataColumn("AuszahlungsvollmachtAusgestelltAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAuszahlungsvollmachtAusgestelltAm) Me.columnAuszahlungsvollmachtErhaltenAm = New Global.System.Data.DataColumn("AuszahlungsvollmachtErhaltenAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAuszahlungsvollmachtErhaltenAm) Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkung) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdressenNr, Me.columnLandNr}, true)) Me.columnAdressenNr.AllowDBNull = false Me.columnLandNr.AllowDBNull = false Me.columnStNrFürRückerstattungUSt.MaxLength = 20 Me.columnUStV.AllowDBNull = false Me.columnBemerkung.MaxLength = 255 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblSteuernummernRow() As tblSteuernummernRow Return CType(Me.NewRow,tblSteuernummernRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblSteuernummernRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblSteuernummernRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblSteuernummernRowChangedEvent) Is Nothing) Then RaiseEvent tblSteuernummernRowChanged(Me, New tblSteuernummernRowChangeEvent(CType(e.Row,tblSteuernummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblSteuernummernRowChangingEvent) Is Nothing) Then RaiseEvent tblSteuernummernRowChanging(Me, New tblSteuernummernRowChangeEvent(CType(e.Row,tblSteuernummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblSteuernummernRowDeletedEvent) Is Nothing) Then RaiseEvent tblSteuernummernRowDeleted(Me, New tblSteuernummernRowChangeEvent(CType(e.Row,tblSteuernummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblSteuernummernRowDeletingEvent) Is Nothing) Then RaiseEvent tblSteuernummernRowDeleting(Me, New tblSteuernummernRowChangeEvent(CType(e.Row,tblSteuernummernRow), e.Action)) End If End Sub _ Public Sub RemovetblSteuernummernRow(ByVal row As tblSteuernummernRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblSteuernummernDataTable" 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 tblSteuersätzeDataTable Inherits Global.System.Data.TypedTableBase(Of tblSteuersätzeRow) Private columnNr As Global.System.Data.DataColumn Private columnBez As Global.System.Data.DataColumn Private columnBeschreibung As Global.System.Data.DataColumn Private columnSteuersatz As Global.System.Data.DataColumn Private columnBerechnungsmethode As Global.System.Data.DataColumn Private columnSteuertyp As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblSteuersätze" 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 NrColumn() As Global.System.Data.DataColumn Get Return Me.columnNr End Get End Property _ Public ReadOnly Property BezColumn() As Global.System.Data.DataColumn Get Return Me.columnBez End Get End Property _ Public ReadOnly Property BeschreibungColumn() As Global.System.Data.DataColumn Get Return Me.columnBeschreibung End Get End Property _ Public ReadOnly Property SteuersatzColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuersatz End Get End Property _ Public ReadOnly Property BerechnungsmethodeColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsmethode End Get End Property _ Public ReadOnly Property SteuertypColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuertyp End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblSteuersätzeRow Get Return CType(Me.Rows(index),tblSteuersätzeRow) End Get End Property _ Public Event tblSteuersätzeRowChanging As tblSteuersätzeRowChangeEventHandler _ Public Event tblSteuersätzeRowChanged As tblSteuersätzeRowChangeEventHandler _ Public Event tblSteuersätzeRowDeleting As tblSteuersätzeRowChangeEventHandler _ Public Event tblSteuersätzeRowDeleted As tblSteuersätzeRowChangeEventHandler _ Public Overloads Sub AddtblSteuersätzeRow(ByVal row As tblSteuersätzeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblSteuersätzeRow(ByVal Nr As Integer, ByVal Bez As String, ByVal Beschreibung As String, ByVal Steuersatz As Double, ByVal _parenttblBerechnungsmethodeRowBytblSteuersätze__BC888FF9_57C1_4308_AE4D_435AEB9FE6A5_ As tblBerechnungsmethodeRow, ByVal _parenttblSteuertypRowBytblSteuersätze__3334C686_1593_4561_99E6_824AA652DDAB_ As tblSteuertypRow, ByVal SSMA_TimeStamp() As Byte) As tblSteuersätzeRow Dim rowtblSteuersätzeRow As tblSteuersätzeRow = CType(Me.NewRow,tblSteuersätzeRow) Dim columnValuesArray() As Object = New Object() {Nr, Bez, Beschreibung, Steuersatz, Nothing, Nothing, SSMA_TimeStamp} If (Not (_parenttblBerechnungsmethodeRowBytblSteuersätze__BC888FF9_57C1_4308_AE4D_435AEB9FE6A5_) Is Nothing) Then columnValuesArray(4) = _parenttblBerechnungsmethodeRowBytblSteuersätze__BC888FF9_57C1_4308_AE4D_435AEB9FE6A5_(0) End If If (Not (_parenttblSteuertypRowBytblSteuersätze__3334C686_1593_4561_99E6_824AA652DDAB_) Is Nothing) Then columnValuesArray(5) = _parenttblSteuertypRowBytblSteuersätze__3334C686_1593_4561_99E6_824AA652DDAB_(0) End If rowtblSteuersätzeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblSteuersätzeRow) Return rowtblSteuersätzeRow End Function _ Public Function FindByNr(ByVal Nr As Integer) As tblSteuersätzeRow Return CType(Me.Rows.Find(New Object() {Nr}),tblSteuersätzeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblSteuersätzeDataTable = CType(MyBase.Clone,tblSteuersätzeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblSteuersätzeDataTable() End Function _ Friend Sub InitVars() Me.columnNr = MyBase.Columns("Nr") Me.columnBez = MyBase.Columns("Bez") Me.columnBeschreibung = MyBase.Columns("Beschreibung") Me.columnSteuersatz = MyBase.Columns("Steuersatz") Me.columnBerechnungsmethode = MyBase.Columns("Berechnungsmethode") Me.columnSteuertyp = MyBase.Columns("Steuertyp") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnNr = New Global.System.Data.DataColumn("Nr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNr) Me.columnBez = New Global.System.Data.DataColumn("Bez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBez) Me.columnBeschreibung = New Global.System.Data.DataColumn("Beschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBeschreibung) Me.columnSteuersatz = New Global.System.Data.DataColumn("Steuersatz", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuersatz) Me.columnBerechnungsmethode = New Global.System.Data.DataColumn("Berechnungsmethode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsmethode) Me.columnSteuertyp = New Global.System.Data.DataColumn("Steuertyp", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuertyp) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnNr}, true)) Me.columnNr.AllowDBNull = false Me.columnNr.Unique = true Me.columnBez.AllowDBNull = false Me.columnBez.MaxLength = 15 Me.columnBeschreibung.AllowDBNull = false Me.columnBeschreibung.MaxLength = 50 Me.columnSteuersatz.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblSteuersätzeRow() As tblSteuersätzeRow Return CType(Me.NewRow,tblSteuersätzeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblSteuersätzeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblSteuersätzeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblSteuersätzeRowChangedEvent) Is Nothing) Then RaiseEvent tblSteuersätzeRowChanged(Me, New tblSteuersätzeRowChangeEvent(CType(e.Row,tblSteuersätzeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblSteuersätzeRowChangingEvent) Is Nothing) Then RaiseEvent tblSteuersätzeRowChanging(Me, New tblSteuersätzeRowChangeEvent(CType(e.Row,tblSteuersätzeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblSteuersätzeRowDeletedEvent) Is Nothing) Then RaiseEvent tblSteuersätzeRowDeleted(Me, New tblSteuersätzeRowChangeEvent(CType(e.Row,tblSteuersätzeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblSteuersätzeRowDeletingEvent) Is Nothing) Then RaiseEvent tblSteuersätzeRowDeleting(Me, New tblSteuersätzeRowChangeEvent(CType(e.Row,tblSteuersätzeRow), e.Action)) End If End Sub _ Public Sub RemovetblSteuersätzeRow(ByVal row As tblSteuersätzeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblSteuersätzeDataTable" 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 tblSteuertypDataTable Inherits Global.System.Data.TypedTableBase(Of tblSteuertypRow) Private columnNr As Global.System.Data.DataColumn Private columnBez As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblSteuertyp" 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 NrColumn() As Global.System.Data.DataColumn Get Return Me.columnNr End Get End Property _ Public ReadOnly Property BezColumn() As Global.System.Data.DataColumn Get Return Me.columnBez End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblSteuertypRow Get Return CType(Me.Rows(index),tblSteuertypRow) End Get End Property _ Public Event tblSteuertypRowChanging As tblSteuertypRowChangeEventHandler _ Public Event tblSteuertypRowChanged As tblSteuertypRowChangeEventHandler _ Public Event tblSteuertypRowDeleting As tblSteuertypRowChangeEventHandler _ Public Event tblSteuertypRowDeleted As tblSteuertypRowChangeEventHandler _ Public Overloads Sub AddtblSteuertypRow(ByVal row As tblSteuertypRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblSteuertypRow(ByVal Nr As Integer, ByVal Bez As String, ByVal SSMA_TimeStamp() As Byte) As tblSteuertypRow Dim rowtblSteuertypRow As tblSteuertypRow = CType(Me.NewRow,tblSteuertypRow) Dim columnValuesArray() As Object = New Object() {Nr, Bez, SSMA_TimeStamp} rowtblSteuertypRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblSteuertypRow) Return rowtblSteuertypRow End Function _ Public Function FindByNr(ByVal Nr As Integer) As tblSteuertypRow Return CType(Me.Rows.Find(New Object() {Nr}),tblSteuertypRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblSteuertypDataTable = CType(MyBase.Clone,tblSteuertypDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblSteuertypDataTable() End Function _ Friend Sub InitVars() Me.columnNr = MyBase.Columns("Nr") Me.columnBez = MyBase.Columns("Bez") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnNr = New Global.System.Data.DataColumn("Nr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNr) Me.columnBez = New Global.System.Data.DataColumn("Bez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBez) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnNr}, true)) Me.columnNr.AllowDBNull = false Me.columnNr.Unique = true Me.columnBez.AllowDBNull = false Me.columnBez.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblSteuertypRow() As tblSteuertypRow Return CType(Me.NewRow,tblSteuertypRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblSteuertypRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblSteuertypRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblSteuertypRowChangedEvent) Is Nothing) Then RaiseEvent tblSteuertypRowChanged(Me, New tblSteuertypRowChangeEvent(CType(e.Row,tblSteuertypRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblSteuertypRowChangingEvent) Is Nothing) Then RaiseEvent tblSteuertypRowChanging(Me, New tblSteuertypRowChangeEvent(CType(e.Row,tblSteuertypRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblSteuertypRowDeletedEvent) Is Nothing) Then RaiseEvent tblSteuertypRowDeleted(Me, New tblSteuertypRowChangeEvent(CType(e.Row,tblSteuertypRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblSteuertypRowDeletingEvent) Is Nothing) Then RaiseEvent tblSteuertypRowDeleting(Me, New tblSteuertypRowChangeEvent(CType(e.Row,tblSteuertypRow), e.Action)) End If End Sub _ Public Sub RemovetblSteuertypRow(ByVal row As tblSteuertypRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblSteuertypDataTable" 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 tblTelotec_AbgabenDataTable Inherits Global.System.Data.TypedTableBase(Of tblTelotec_AbgabenRow) Private columntelAbg_id As Global.System.Data.DataColumn Private columntelAbg_telanmId As Global.System.Data.DataColumn Private columnMandant_ID As Global.System.Data.DataColumn Private columnBereich_ID As Global.System.Data.DataColumn Private columnReferenz_ID As Global.System.Data.DataColumn Private columnComIndicator As Global.System.Data.DataColumn Private columnTotDuties_ID As Global.System.Data.DataColumn Private columnTy As Global.System.Data.DataColumn Private columnAmnt As Global.System.Data.DataColumn Private columnTyInd As Global.System.Data.DataColumn Private columnErstelldatum As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTelotec_Abgaben" 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 telAbg_idColumn() As Global.System.Data.DataColumn Get Return Me.columntelAbg_id End Get End Property _ Public ReadOnly Property telAbg_telanmIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelAbg_telanmId End Get End Property _ Public ReadOnly Property Mandant_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant_ID End Get End Property _ Public ReadOnly Property Bereich_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBereich_ID End Get End Property _ Public ReadOnly Property Referenz_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnReferenz_ID End Get End Property _ Public ReadOnly Property ComIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnComIndicator End Get End Property _ Public ReadOnly Property TotDuties_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTotDuties_ID End Get End Property _ Public ReadOnly Property TyColumn() As Global.System.Data.DataColumn Get Return Me.columnTy End Get End Property _ Public ReadOnly Property AmntColumn() As Global.System.Data.DataColumn Get Return Me.columnAmnt End Get End Property _ Public ReadOnly Property TyIndColumn() As Global.System.Data.DataColumn Get Return Me.columnTyInd End Get End Property _ Public ReadOnly Property ErstelldatumColumn() As Global.System.Data.DataColumn Get Return Me.columnErstelldatum 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 tblTelotec_AbgabenRow Get Return CType(Me.Rows(index),tblTelotec_AbgabenRow) End Get End Property _ Public Event tblTelotec_AbgabenRowChanging As tblTelotec_AbgabenRowChangeEventHandler _ Public Event tblTelotec_AbgabenRowChanged As tblTelotec_AbgabenRowChangeEventHandler _ Public Event tblTelotec_AbgabenRowDeleting As tblTelotec_AbgabenRowChangeEventHandler _ Public Event tblTelotec_AbgabenRowDeleted As tblTelotec_AbgabenRowChangeEventHandler _ Public Overloads Sub AddtblTelotec_AbgabenRow(ByVal row As tblTelotec_AbgabenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTelotec_AbgabenRow(ByVal telAbg_telanmId As Integer, ByVal Mandant_ID As String, ByVal Bereich_ID As String, ByVal Referenz_ID As String, ByVal ComIndicator As Boolean, ByVal TotDuties_ID As Integer, ByVal Ty As String, ByVal Amnt As Decimal, ByVal TyInd As String, ByVal Erstelldatum As Date) As tblTelotec_AbgabenRow Dim rowtblTelotec_AbgabenRow As tblTelotec_AbgabenRow = CType(Me.NewRow,tblTelotec_AbgabenRow) Dim columnValuesArray() As Object = New Object() {Nothing, telAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, TotDuties_ID, Ty, Amnt, TyInd, Erstelldatum} rowtblTelotec_AbgabenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTelotec_AbgabenRow) Return rowtblTelotec_AbgabenRow End Function _ Public Function FindBytelAbg_id(ByVal telAbg_id As Integer) As tblTelotec_AbgabenRow Return CType(Me.Rows.Find(New Object() {telAbg_id}),tblTelotec_AbgabenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTelotec_AbgabenDataTable = CType(MyBase.Clone,tblTelotec_AbgabenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTelotec_AbgabenDataTable() End Function _ Friend Sub InitVars() Me.columntelAbg_id = MyBase.Columns("telAbg_id") Me.columntelAbg_telanmId = MyBase.Columns("telAbg_telanmId") Me.columnMandant_ID = MyBase.Columns("Mandant_ID") Me.columnBereich_ID = MyBase.Columns("Bereich_ID") Me.columnReferenz_ID = MyBase.Columns("Referenz_ID") Me.columnComIndicator = MyBase.Columns("ComIndicator") Me.columnTotDuties_ID = MyBase.Columns("TotDuties_ID") Me.columnTy = MyBase.Columns("Ty") Me.columnAmnt = MyBase.Columns("Amnt") Me.columnTyInd = MyBase.Columns("TyInd") Me.columnErstelldatum = MyBase.Columns("Erstelldatum") End Sub _ Private Sub InitClass() Me.columntelAbg_id = New Global.System.Data.DataColumn("telAbg_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelAbg_id) Me.columntelAbg_telanmId = New Global.System.Data.DataColumn("telAbg_telanmId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelAbg_telanmId) Me.columnMandant_ID = New Global.System.Data.DataColumn("Mandant_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant_ID) Me.columnBereich_ID = New Global.System.Data.DataColumn("Bereich_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBereich_ID) Me.columnReferenz_ID = New Global.System.Data.DataColumn("Referenz_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReferenz_ID) Me.columnComIndicator = New Global.System.Data.DataColumn("ComIndicator", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComIndicator) Me.columnTotDuties_ID = New Global.System.Data.DataColumn("TotDuties_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTotDuties_ID) Me.columnTy = New Global.System.Data.DataColumn("Ty", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTy) Me.columnAmnt = New Global.System.Data.DataColumn("Amnt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAmnt) Me.columnTyInd = New Global.System.Data.DataColumn("TyInd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTyInd) Me.columnErstelldatum = New Global.System.Data.DataColumn("Erstelldatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstelldatum) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntelAbg_id}, true)) Me.columntelAbg_id.AutoIncrement = true Me.columntelAbg_id.AutoIncrementSeed = -1 Me.columntelAbg_id.AutoIncrementStep = -1 Me.columntelAbg_id.AllowDBNull = false Me.columntelAbg_id.ReadOnly = true Me.columntelAbg_id.Unique = true Me.columntelAbg_telanmId.AllowDBNull = false Me.columnMandant_ID.AllowDBNull = false Me.columnMandant_ID.MaxLength = 6 Me.columnBereich_ID.AllowDBNull = false Me.columnBereich_ID.MaxLength = 6 Me.columnReferenz_ID.AllowDBNull = false Me.columnReferenz_ID.MaxLength = 36 Me.columnComIndicator.AllowDBNull = false Me.columnTotDuties_ID.AllowDBNull = false Me.columnTy.MaxLength = 3 Me.columnTyInd.MaxLength = 1 End Sub _ Public Function NewtblTelotec_AbgabenRow() As tblTelotec_AbgabenRow Return CType(Me.NewRow,tblTelotec_AbgabenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTelotec_AbgabenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTelotec_AbgabenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTelotec_AbgabenRowChangedEvent) Is Nothing) Then RaiseEvent tblTelotec_AbgabenRowChanged(Me, New tblTelotec_AbgabenRowChangeEvent(CType(e.Row,tblTelotec_AbgabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTelotec_AbgabenRowChangingEvent) Is Nothing) Then RaiseEvent tblTelotec_AbgabenRowChanging(Me, New tblTelotec_AbgabenRowChangeEvent(CType(e.Row,tblTelotec_AbgabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTelotec_AbgabenRowDeletedEvent) Is Nothing) Then RaiseEvent tblTelotec_AbgabenRowDeleted(Me, New tblTelotec_AbgabenRowChangeEvent(CType(e.Row,tblTelotec_AbgabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTelotec_AbgabenRowDeletingEvent) Is Nothing) Then RaiseEvent tblTelotec_AbgabenRowDeleting(Me, New tblTelotec_AbgabenRowChangeEvent(CType(e.Row,tblTelotec_AbgabenRow), e.Action)) End If End Sub _ Public Sub RemovetblTelotec_AbgabenRow(ByVal row As tblTelotec_AbgabenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTelotec_AbgabenDataTable" 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 tblTelotec_AnmeldungDataTable Inherits Global.System.Data.TypedTableBase(Of tblTelotec_AnmeldungRow) Private columntelanm_id As Global.System.Data.DataColumn Private columntelanm_ART As Global.System.Data.DataColumn Private columntelanm_BezugsNr As Global.System.Data.DataColumn Private columntelanm_Status As Global.System.Data.DataColumn Private columntelanm_Status_KEWILL_Equivalent As Global.System.Data.DataColumn Private columntelanm_AvisoId As Global.System.Data.DataColumn Private columntelanm_SendungsId As Global.System.Data.DataColumn Private columntelanm_Steuerbescheid_dsId As Global.System.Data.DataColumn Private columntelanm_Mitteilung_dsId As Global.System.Data.DataColumn Private columntelanm_VBD_dsId As Global.System.Data.DataColumn Private columntelanm_LNR As Global.System.Data.DataColumn Private columntelanm_CRN As Global.System.Data.DataColumn Private columntelanm_Erstellung As Global.System.Data.DataColumn Private columntelanm_Erstellung_SB As Global.System.Data.DataColumn Private columntelanm_LetzteBearbeitung As Global.System.Data.DataColumn Private columntelanm_LetzteBearbeitung_SB As Global.System.Data.DataColumn Private columntelanm_firma As Global.System.Data.DataColumn Private columntelanm_niederlassung As Global.System.Data.DataColumn Private columnMandant_ID As Global.System.Data.DataColumn Private columnBereich_ID As Global.System.Data.DataColumn Private columnReferenz_ID As Global.System.Data.DataColumn Private columnComIndicator As Global.System.Data.DataColumn Private columnTransferStatus As Global.System.Data.DataColumn Private columnMsgType As Global.System.Data.DataColumn Private columndec_ProzessArt As Global.System.Data.DataColumn Private columndec_Anmelde_ID As Global.System.Data.DataColumn Private columndec_Template_ID As Global.System.Data.DataColumn Private columndec_Lager_ID As Global.System.Data.DataColumn Private columndec_Lag_IND As Global.System.Data.DataColumn Private columndec_CreateDate As Global.System.Data.DataColumn Private columndec_CreatePersonalID As Global.System.Data.DataColumn Private columndec_PreDec_IND As Global.System.Data.DataColumn Private columndec_TotNet As Global.System.Data.DataColumn Private columndec_TotNetSplit_IND As Global.System.Data.DataColumn Private columndec_FillPackList_IND As Global.System.Data.DataColumn Private columndec_Memo As Global.System.Data.DataColumn Private columnRefs_LRN As Global.System.Data.DataColumn Private columnRefs_CRN As Global.System.Data.DataColumn Private columnRefs_CSRN As Global.System.Data.DataColumn Private columnRefs_ERN As Global.System.Data.DataColumn Private columnRefs_FRN As Global.System.Data.DataColumn Private columnRefs_Stat As Global.System.Data.DataColumn Private columnHea_DecTy As Global.System.Data.DataColumn Private columnHea_TotItem As Global.System.Data.DataColumn Private columnHea_TotPack As Global.System.Data.DataColumn Private columnHea_TotGross As Global.System.Data.DataColumn Private columnHea_DepLNG As Global.System.Data.DataColumn Private columnHea_DestLNG As Global.System.Data.DataColumn Private columnHea_PayTy As Global.System.Data.DataColumn Private columnHea_DefPayRef As Global.System.Data.DataColumn Private columnHea_PerPayRef As Global.System.Data.DataColumn Private columnHea_PayMet As Global.System.Data.DataColumn Private columnHea_AExpRef As Global.System.Data.DataColumn Private columnHea_Fin As Global.System.Data.DataColumn Private columnHea_Simp As Global.System.Data.DataColumn Private columnHea_IssD As Global.System.Data.DataColumn Private columnHea_AuthID As Global.System.Data.DataColumn Private columnHea_TransDat As Global.System.Data.DataColumn Private columnHea_WoffD As Global.System.Data.DataColumn Private columnHea_DecDT As Global.System.Data.DataColumn Private columnHea_DecPlc As Global.System.Data.DataColumn Private columnHea_AccDT As Global.System.Data.DataColumn Private columnHea_SecInd As Global.System.Data.DataColumn Private columnHea_ComRef As Global.System.Data.DataColumn Private columnHea_ProArrDT As Global.System.Data.DataColumn Private columnHea_PlaDepDT As Global.System.Data.DataColumn Private columnLocs_TradCtry As Global.System.Data.DataColumn Private columnLocs_Disp As Global.System.Data.DataColumn Private columnLocs_Dest As Global.System.Data.DataColumn Private columnLocs_GdsLocCd As Global.System.Data.DataColumn Private columnLocs_GdsLoc As Global.System.Data.DataColumn Private columnLocs_GdsLocAuth As Global.System.Data.DataColumn Private columnLocs_LoadPlcCd As Global.System.Data.DataColumn Private columnLocs_LoadPlc As Global.System.Data.DataColumn Private columnLocs_CustPlc As Global.System.Data.DataColumn Private columnLocs_ArrLocCd As Global.System.Data.DataColumn Private columnLocs_ArrLoc As Global.System.Data.DataColumn Private columnLocs_ArrLocAuth As Global.System.Data.DataColumn Private columnLocs_WarTy As Global.System.Data.DataColumn Private columnLocs_WarCtry As Global.System.Data.DataColumn Private columnLocs_War As Global.System.Data.DataColumn Private columnTransp_InMo As Global.System.Data.DataColumn Private columnTransp_BordMo As Global.System.Data.DataColumn Private columnTransp_DepTy As Global.System.Data.DataColumn Private columnTransp_DepIdnt As Global.System.Data.DataColumn Private columnTransp_DepNat As Global.System.Data.DataColumn Private columnTransp_CrossTy As Global.System.Data.DataColumn Private columnTransp_CrossIdnt As Global.System.Data.DataColumn Private columnTransp_CrossIdntNat As Global.System.Data.DataColumn Private columnTransp_ContInd As Global.System.Data.DataColumn Private columnValData_TermDelCd As Global.System.Data.DataColumn Private columnValData_TermDelPlc As Global.System.Data.DataColumn Private columnValData_TermDelSit As Global.System.Data.DataColumn Private columnValData_InvCurr As Global.System.Data.DataColumn Private columnValData_ExRa As Global.System.Data.DataColumn Private columnValData_InvVal As Global.System.Data.DataColumn Private columnValData_TransacCd As Global.System.Data.DataColumn Private columnConorTra_Na As Global.System.Data.DataColumn Private columnConorTra_Strt As Global.System.Data.DataColumn Private columnConorTra_Pst As Global.System.Data.DataColumn Private columnConorTra_Cty As Global.System.Data.DataColumn Private columnConorTra_Ctry As Global.System.Data.DataColumn Private columnConorTra_TIN As Global.System.Data.DataColumn Private columnConorTra_UIDCtry As Global.System.Data.DataColumn Private columnConorTra_UID As Global.System.Data.DataColumn Private columnConeeTra_Na As Global.System.Data.DataColumn Private columnConeeTra_Strt As Global.System.Data.DataColumn Private columnConeeTra_Pst As Global.System.Data.DataColumn Private columnConeeTra_Cty As Global.System.Data.DataColumn Private columnConeeTra_Ctry As Global.System.Data.DataColumn Private columnConeeTra_TIN As Global.System.Data.DataColumn Private columnConeeTra_UIDCtry As Global.System.Data.DataColumn Private columnConeeTra_UID As Global.System.Data.DataColumn Private columnExpTra_Na As Global.System.Data.DataColumn Private columnExpTra_Strt As Global.System.Data.DataColumn Private columnExpTra_Pst As Global.System.Data.DataColumn Private columnExpTra_Cty As Global.System.Data.DataColumn Private columnExpTra_Ctry As Global.System.Data.DataColumn Private columnExpTra_TIN As Global.System.Data.DataColumn Private columnExpTra_UIDCtry As Global.System.Data.DataColumn Private columnExpTra_UID As Global.System.Data.DataColumn Private columnDeclarant_Na As Global.System.Data.DataColumn Private columnDeclarant_Strt As Global.System.Data.DataColumn Private columnDeclarant_Pst As Global.System.Data.DataColumn Private columnDeclarant_Cty As Global.System.Data.DataColumn Private columnDeclarant_Ctry As Global.System.Data.DataColumn Private columnDeclarant_TIN As Global.System.Data.DataColumn Private columnDeclarant_UIDCtry As Global.System.Data.DataColumn Private columnDeclarant_UID As Global.System.Data.DataColumn Private columnDeclarant_DecRep As Global.System.Data.DataColumn Private columnRepresent_RIN As Global.System.Data.DataColumn Private columnRepresent_Na As Global.System.Data.DataColumn Private columnEntryCO_Ref As Global.System.Data.DataColumn Private columnExitCO_Ref As Global.System.Data.DataColumn Private columnSurvCO_Ref As Global.System.Data.DataColumn Private columnDestCO_Ref As Global.System.Data.DataColumn Private columnPresCO_Ref As Global.System.Data.DataColumn Private columnDepCO_Ref As Global.System.Data.DataColumn Private columnCtrlRslt_ResCd As Global.System.Data.DataColumn Private columnCtrlRslt_DLimit As Global.System.Data.DataColumn Private columntelnam_aktuellsteNachricht As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTelotec_Anmeldung" 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 telanm_idColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_id End Get End Property _ Public ReadOnly Property telanm_ARTColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_ART End Get End Property _ Public ReadOnly Property telanm_BezugsNrColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_BezugsNr End Get End Property _ Public ReadOnly Property telanm_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_Status End Get End Property _ Public ReadOnly Property telanm_Status_KEWILL_EquivalentColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_Status_KEWILL_Equivalent End Get End Property _ Public ReadOnly Property telanm_AvisoIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_AvisoId End Get End Property _ Public ReadOnly Property telanm_SendungsIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_SendungsId End Get End Property _ Public ReadOnly Property telanm_Steuerbescheid_dsIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_Steuerbescheid_dsId End Get End Property _ Public ReadOnly Property telanm_Mitteilung_dsIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_Mitteilung_dsId End Get End Property _ Public ReadOnly Property telanm_VBD_dsIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_VBD_dsId End Get End Property _ Public ReadOnly Property telanm_LNRColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_LNR End Get End Property _ Public ReadOnly Property telanm_CRNColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_CRN End Get End Property _ Public ReadOnly Property telanm_ErstellungColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_Erstellung End Get End Property _ Public ReadOnly Property telanm_Erstellung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_Erstellung_SB End Get End Property _ Public ReadOnly Property telanm_LetzteBearbeitungColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_LetzteBearbeitung End Get End Property _ Public ReadOnly Property telanm_LetzteBearbeitung_SBColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_LetzteBearbeitung_SB End Get End Property _ Public ReadOnly Property telanm_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_firma End Get End Property _ Public ReadOnly Property telanm_niederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columntelanm_niederlassung End Get End Property _ Public ReadOnly Property Mandant_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant_ID End Get End Property _ Public ReadOnly Property Bereich_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBereich_ID End Get End Property _ Public ReadOnly Property Referenz_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnReferenz_ID End Get End Property _ Public ReadOnly Property ComIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnComIndicator End Get End Property _ Public ReadOnly Property TransferStatusColumn() As Global.System.Data.DataColumn Get Return Me.columnTransferStatus End Get End Property _ Public ReadOnly Property MsgTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnMsgType End Get End Property _ Public ReadOnly Property dec_ProzessArtColumn() As Global.System.Data.DataColumn Get Return Me.columndec_ProzessArt End Get End Property _ Public ReadOnly Property dec_Anmelde_IDColumn() As Global.System.Data.DataColumn Get Return Me.columndec_Anmelde_ID End Get End Property _ Public ReadOnly Property dec_Template_IDColumn() As Global.System.Data.DataColumn Get Return Me.columndec_Template_ID End Get End Property _ Public ReadOnly Property dec_Lager_IDColumn() As Global.System.Data.DataColumn Get Return Me.columndec_Lager_ID End Get End Property _ Public ReadOnly Property dec_Lag_INDColumn() As Global.System.Data.DataColumn Get Return Me.columndec_Lag_IND End Get End Property _ Public ReadOnly Property dec_CreateDateColumn() As Global.System.Data.DataColumn Get Return Me.columndec_CreateDate End Get End Property _ Public ReadOnly Property dec_CreatePersonalIDColumn() As Global.System.Data.DataColumn Get Return Me.columndec_CreatePersonalID End Get End Property _ Public ReadOnly Property dec_PreDec_INDColumn() As Global.System.Data.DataColumn Get Return Me.columndec_PreDec_IND End Get End Property _ Public ReadOnly Property dec_TotNetColumn() As Global.System.Data.DataColumn Get Return Me.columndec_TotNet End Get End Property _ Public ReadOnly Property dec_TotNetSplit_INDColumn() As Global.System.Data.DataColumn Get Return Me.columndec_TotNetSplit_IND End Get End Property _ Public ReadOnly Property dec_FillPackList_INDColumn() As Global.System.Data.DataColumn Get Return Me.columndec_FillPackList_IND End Get End Property _ Public ReadOnly Property dec_MemoColumn() As Global.System.Data.DataColumn Get Return Me.columndec_Memo End Get End Property _ Public ReadOnly Property Refs_LRNColumn() As Global.System.Data.DataColumn Get Return Me.columnRefs_LRN End Get End Property _ Public ReadOnly Property Refs_CRNColumn() As Global.System.Data.DataColumn Get Return Me.columnRefs_CRN End Get End Property _ Public ReadOnly Property Refs_CSRNColumn() As Global.System.Data.DataColumn Get Return Me.columnRefs_CSRN End Get End Property _ Public ReadOnly Property Refs_ERNColumn() As Global.System.Data.DataColumn Get Return Me.columnRefs_ERN End Get End Property _ Public ReadOnly Property Refs_FRNColumn() As Global.System.Data.DataColumn Get Return Me.columnRefs_FRN End Get End Property _ Public ReadOnly Property Refs_StatColumn() As Global.System.Data.DataColumn Get Return Me.columnRefs_Stat End Get End Property _ Public ReadOnly Property Hea_DecTyColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_DecTy End Get End Property _ Public ReadOnly Property Hea_TotItemColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_TotItem End Get End Property _ Public ReadOnly Property Hea_TotPackColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_TotPack End Get End Property _ Public ReadOnly Property Hea_TotGrossColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_TotGross End Get End Property _ Public ReadOnly Property Hea_DepLNGColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_DepLNG End Get End Property _ Public ReadOnly Property Hea_DestLNGColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_DestLNG End Get End Property _ Public ReadOnly Property Hea_PayTyColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_PayTy End Get End Property _ Public ReadOnly Property Hea_DefPayRefColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_DefPayRef End Get End Property _ Public ReadOnly Property Hea_PerPayRefColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_PerPayRef End Get End Property _ Public ReadOnly Property Hea_PayMetColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_PayMet End Get End Property _ Public ReadOnly Property Hea_AExpRefColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_AExpRef End Get End Property _ Public ReadOnly Property Hea_FinColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_Fin End Get End Property _ Public ReadOnly Property Hea_SimpColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_Simp End Get End Property _ Public ReadOnly Property Hea_IssDColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_IssD End Get End Property _ Public ReadOnly Property Hea_AuthIDColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_AuthID End Get End Property _ Public ReadOnly Property Hea_TransDatColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_TransDat End Get End Property _ Public ReadOnly Property Hea_WoffDColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_WoffD End Get End Property _ Public ReadOnly Property Hea_DecDTColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_DecDT End Get End Property _ Public ReadOnly Property Hea_DecPlcColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_DecPlc End Get End Property _ Public ReadOnly Property Hea_AccDTColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_AccDT End Get End Property _ Public ReadOnly Property Hea_SecIndColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_SecInd End Get End Property _ Public ReadOnly Property Hea_ComRefColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_ComRef End Get End Property _ Public ReadOnly Property Hea_ProArrDTColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_ProArrDT End Get End Property _ Public ReadOnly Property Hea_PlaDepDTColumn() As Global.System.Data.DataColumn Get Return Me.columnHea_PlaDepDT End Get End Property _ Public ReadOnly Property Locs_TradCtryColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_TradCtry End Get End Property _ Public ReadOnly Property Locs_DispColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_Disp End Get End Property _ Public ReadOnly Property Locs_DestColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_Dest End Get End Property _ Public ReadOnly Property Locs_GdsLocCdColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_GdsLocCd End Get End Property _ Public ReadOnly Property Locs_GdsLocColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_GdsLoc End Get End Property _ Public ReadOnly Property Locs_GdsLocAuthColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_GdsLocAuth End Get End Property _ Public ReadOnly Property Locs_LoadPlcCdColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_LoadPlcCd End Get End Property _ Public ReadOnly Property Locs_LoadPlcColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_LoadPlc End Get End Property _ Public ReadOnly Property Locs_CustPlcColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_CustPlc End Get End Property _ Public ReadOnly Property Locs_ArrLocCdColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_ArrLocCd End Get End Property _ Public ReadOnly Property Locs_ArrLocColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_ArrLoc End Get End Property _ Public ReadOnly Property Locs_ArrLocAuthColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_ArrLocAuth End Get End Property _ Public ReadOnly Property Locs_WarTyColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_WarTy End Get End Property _ Public ReadOnly Property Locs_WarCtryColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_WarCtry End Get End Property _ Public ReadOnly Property Locs_WarColumn() As Global.System.Data.DataColumn Get Return Me.columnLocs_War End Get End Property _ Public ReadOnly Property Transp_InMoColumn() As Global.System.Data.DataColumn Get Return Me.columnTransp_InMo End Get End Property _ Public ReadOnly Property Transp_BordMoColumn() As Global.System.Data.DataColumn Get Return Me.columnTransp_BordMo End Get End Property _ Public ReadOnly Property Transp_DepTyColumn() As Global.System.Data.DataColumn Get Return Me.columnTransp_DepTy End Get End Property _ Public ReadOnly Property Transp_DepIdntColumn() As Global.System.Data.DataColumn Get Return Me.columnTransp_DepIdnt End Get End Property _ Public ReadOnly Property Transp_DepNatColumn() As Global.System.Data.DataColumn Get Return Me.columnTransp_DepNat End Get End Property _ Public ReadOnly Property Transp_CrossTyColumn() As Global.System.Data.DataColumn Get Return Me.columnTransp_CrossTy End Get End Property _ Public ReadOnly Property Transp_CrossIdntColumn() As Global.System.Data.DataColumn Get Return Me.columnTransp_CrossIdnt End Get End Property _ Public ReadOnly Property Transp_CrossIdntNatColumn() As Global.System.Data.DataColumn Get Return Me.columnTransp_CrossIdntNat End Get End Property _ Public ReadOnly Property Transp_ContIndColumn() As Global.System.Data.DataColumn Get Return Me.columnTransp_ContInd End Get End Property _ Public ReadOnly Property ValData_TermDelCdColumn() As Global.System.Data.DataColumn Get Return Me.columnValData_TermDelCd End Get End Property _ Public ReadOnly Property ValData_TermDelPlcColumn() As Global.System.Data.DataColumn Get Return Me.columnValData_TermDelPlc End Get End Property _ Public ReadOnly Property ValData_TermDelSitColumn() As Global.System.Data.DataColumn Get Return Me.columnValData_TermDelSit End Get End Property _ Public ReadOnly Property ValData_InvCurrColumn() As Global.System.Data.DataColumn Get Return Me.columnValData_InvCurr End Get End Property _ Public ReadOnly Property ValData_ExRaColumn() As Global.System.Data.DataColumn Get Return Me.columnValData_ExRa End Get End Property _ Public ReadOnly Property ValData_InvValColumn() As Global.System.Data.DataColumn Get Return Me.columnValData_InvVal End Get End Property _ Public ReadOnly Property ValData_TransacCdColumn() As Global.System.Data.DataColumn Get Return Me.columnValData_TransacCd End Get End Property _ Public ReadOnly Property ConorTra_NaColumn() As Global.System.Data.DataColumn Get Return Me.columnConorTra_Na End Get End Property _ Public ReadOnly Property ConorTra_StrtColumn() As Global.System.Data.DataColumn Get Return Me.columnConorTra_Strt End Get End Property _ Public ReadOnly Property ConorTra_PstColumn() As Global.System.Data.DataColumn Get Return Me.columnConorTra_Pst End Get End Property _ Public ReadOnly Property ConorTra_CtyColumn() As Global.System.Data.DataColumn Get Return Me.columnConorTra_Cty End Get End Property _ Public ReadOnly Property ConorTra_CtryColumn() As Global.System.Data.DataColumn Get Return Me.columnConorTra_Ctry End Get End Property _ Public ReadOnly Property ConorTra_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnConorTra_TIN End Get End Property _ Public ReadOnly Property ConorTra_UIDCtryColumn() As Global.System.Data.DataColumn Get Return Me.columnConorTra_UIDCtry End Get End Property _ Public ReadOnly Property ConorTra_UIDColumn() As Global.System.Data.DataColumn Get Return Me.columnConorTra_UID End Get End Property _ Public ReadOnly Property ConeeTra_NaColumn() As Global.System.Data.DataColumn Get Return Me.columnConeeTra_Na End Get End Property _ Public ReadOnly Property ConeeTra_StrtColumn() As Global.System.Data.DataColumn Get Return Me.columnConeeTra_Strt End Get End Property _ Public ReadOnly Property ConeeTra_PstColumn() As Global.System.Data.DataColumn Get Return Me.columnConeeTra_Pst End Get End Property _ Public ReadOnly Property ConeeTra_CtyColumn() As Global.System.Data.DataColumn Get Return Me.columnConeeTra_Cty End Get End Property _ Public ReadOnly Property ConeeTra_CtryColumn() As Global.System.Data.DataColumn Get Return Me.columnConeeTra_Ctry End Get End Property _ Public ReadOnly Property ConeeTra_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnConeeTra_TIN End Get End Property _ Public ReadOnly Property ConeeTra_UIDCtryColumn() As Global.System.Data.DataColumn Get Return Me.columnConeeTra_UIDCtry End Get End Property _ Public ReadOnly Property ConeeTra_UIDColumn() As Global.System.Data.DataColumn Get Return Me.columnConeeTra_UID End Get End Property _ Public ReadOnly Property ExpTra_NaColumn() As Global.System.Data.DataColumn Get Return Me.columnExpTra_Na End Get End Property _ Public ReadOnly Property ExpTra_StrtColumn() As Global.System.Data.DataColumn Get Return Me.columnExpTra_Strt End Get End Property _ Public ReadOnly Property ExpTra_PstColumn() As Global.System.Data.DataColumn Get Return Me.columnExpTra_Pst End Get End Property _ Public ReadOnly Property ExpTra_CtyColumn() As Global.System.Data.DataColumn Get Return Me.columnExpTra_Cty End Get End Property _ Public ReadOnly Property ExpTra_CtryColumn() As Global.System.Data.DataColumn Get Return Me.columnExpTra_Ctry End Get End Property _ Public ReadOnly Property ExpTra_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnExpTra_TIN End Get End Property _ Public ReadOnly Property ExpTra_UIDCtryColumn() As Global.System.Data.DataColumn Get Return Me.columnExpTra_UIDCtry End Get End Property _ Public ReadOnly Property ExpTra_UIDColumn() As Global.System.Data.DataColumn Get Return Me.columnExpTra_UID End Get End Property _ Public ReadOnly Property Declarant_NaColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarant_Na End Get End Property _ Public ReadOnly Property Declarant_StrtColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarant_Strt End Get End Property _ Public ReadOnly Property Declarant_PstColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarant_Pst End Get End Property _ Public ReadOnly Property Declarant_CtyColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarant_Cty End Get End Property _ Public ReadOnly Property Declarant_CtryColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarant_Ctry End Get End Property _ Public ReadOnly Property Declarant_TINColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarant_TIN End Get End Property _ Public ReadOnly Property Declarant_UIDCtryColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarant_UIDCtry End Get End Property _ Public ReadOnly Property Declarant_UIDColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarant_UID End Get End Property _ Public ReadOnly Property Declarant_DecRepColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarant_DecRep End Get End Property _ Public ReadOnly Property Represent_RINColumn() As Global.System.Data.DataColumn Get Return Me.columnRepresent_RIN End Get End Property _ Public ReadOnly Property Represent_NaColumn() As Global.System.Data.DataColumn Get Return Me.columnRepresent_Na End Get End Property _ Public ReadOnly Property EntryCO_RefColumn() As Global.System.Data.DataColumn Get Return Me.columnEntryCO_Ref End Get End Property _ Public ReadOnly Property ExitCO_RefColumn() As Global.System.Data.DataColumn Get Return Me.columnExitCO_Ref End Get End Property _ Public ReadOnly Property SurvCO_RefColumn() As Global.System.Data.DataColumn Get Return Me.columnSurvCO_Ref End Get End Property _ Public ReadOnly Property DestCO_RefColumn() As Global.System.Data.DataColumn Get Return Me.columnDestCO_Ref End Get End Property _ Public ReadOnly Property PresCO_RefColumn() As Global.System.Data.DataColumn Get Return Me.columnPresCO_Ref End Get End Property _ Public ReadOnly Property DepCO_RefColumn() As Global.System.Data.DataColumn Get Return Me.columnDepCO_Ref End Get End Property _ Public ReadOnly Property CtrlRslt_ResCdColumn() As Global.System.Data.DataColumn Get Return Me.columnCtrlRslt_ResCd End Get End Property _ Public ReadOnly Property CtrlRslt_DLimitColumn() As Global.System.Data.DataColumn Get Return Me.columnCtrlRslt_DLimit End Get End Property _ Public ReadOnly Property telnam_aktuellsteNachrichtColumn() As Global.System.Data.DataColumn Get Return Me.columntelnam_aktuellsteNachricht 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 tblTelotec_AnmeldungRow Get Return CType(Me.Rows(index),tblTelotec_AnmeldungRow) End Get End Property _ Public Event tblTelotec_AnmeldungRowChanging As tblTelotec_AnmeldungRowChangeEventHandler _ Public Event tblTelotec_AnmeldungRowChanged As tblTelotec_AnmeldungRowChangeEventHandler _ Public Event tblTelotec_AnmeldungRowDeleting As tblTelotec_AnmeldungRowChangeEventHandler _ Public Event tblTelotec_AnmeldungRowDeleted As tblTelotec_AnmeldungRowChangeEventHandler _ Public Overloads Sub AddtblTelotec_AnmeldungRow(ByVal row As tblTelotec_AnmeldungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTelotec_AnmeldungRow( _ ByVal telanm_ART As String, _ ByVal telanm_BezugsNr As String, _ ByVal telanm_Status As Integer, _ ByVal telanm_Status_KEWILL_Equivalent As Integer, _ ByVal telanm_AvisoId As Integer, _ ByVal telanm_SendungsId As Integer, _ ByVal telanm_Steuerbescheid_dsId As Integer, _ ByVal telanm_Mitteilung_dsId As Integer, _ ByVal telanm_VBD_dsId As Integer, _ ByVal telanm_LNR As String, _ ByVal telanm_CRN As String, _ ByVal telanm_Erstellung As Date, _ ByVal telanm_Erstellung_SB As Integer, _ ByVal telanm_LetzteBearbeitung As Date, _ ByVal telanm_LetzteBearbeitung_SB As Integer, _ ByVal telanm_firma As String, _ ByVal telanm_niederlassung As String, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal TransferStatus As String, _ ByVal MsgType As String, _ ByVal dec_ProzessArt As String, _ ByVal dec_Anmelde_ID As Integer, _ ByVal dec_Template_ID As Integer, _ ByVal dec_Lager_ID As String, _ ByVal dec_Lag_IND As Boolean, _ ByVal dec_CreateDate As Date, _ ByVal dec_CreatePersonalID As String, _ ByVal dec_PreDec_IND As Boolean, _ ByVal dec_TotNet As Decimal, _ ByVal dec_TotNetSplit_IND As Boolean, _ ByVal dec_FillPackList_IND As Boolean, _ ByVal dec_Memo As String, _ ByVal Refs_LRN As String, _ ByVal Refs_CRN As String, _ ByVal Refs_CSRN As String, _ ByVal Refs_ERN As String, _ ByVal Refs_FRN As String, _ ByVal Refs_Stat As String, _ ByVal Hea_DecTy As String, _ ByVal Hea_TotItem As Integer, _ ByVal Hea_TotPack As Integer, _ ByVal Hea_TotGross As Decimal, _ ByVal Hea_DepLNG As String, _ ByVal Hea_DestLNG As String, _ ByVal Hea_PayTy As String, _ ByVal Hea_DefPayRef As Integer, _ ByVal Hea_PerPayRef As Integer, _ ByVal Hea_PayMet As Integer, _ ByVal Hea_AExpRef As Boolean, _ ByVal Hea_Fin As String, _ ByVal Hea_Simp As Boolean, _ ByVal Hea_IssD As Date, _ ByVal Hea_AuthID As String, _ ByVal Hea_TransDat As Boolean, _ ByVal Hea_WoffD As Date, _ ByVal Hea_DecDT As Date, _ ByVal Hea_DecPlc As String, _ ByVal Hea_AccDT As Date, _ ByVal Hea_SecInd As Boolean, _ ByVal Hea_ComRef As String, _ ByVal Hea_ProArrDT As Date, _ ByVal Hea_PlaDepDT As Date, _ ByVal Locs_TradCtry As String, _ ByVal Locs_Disp As String, _ ByVal Locs_Dest As String, _ ByVal Locs_GdsLocCd As String, _ ByVal Locs_GdsLoc As String, _ ByVal Locs_GdsLocAuth As String, _ ByVal Locs_LoadPlcCd As String, _ ByVal Locs_LoadPlc As String, _ ByVal Locs_CustPlc As String, _ ByVal Locs_ArrLocCd As String, _ ByVal Locs_ArrLoc As String, _ ByVal Locs_ArrLocAuth As String, _ ByVal Locs_WarTy As String, _ ByVal Locs_WarCtry As String, _ ByVal Locs_War As String, _ ByVal Transp_InMo As Integer, _ ByVal Transp_BordMo As Integer, _ ByVal Transp_DepTy As Integer, _ ByVal Transp_DepIdnt As String, _ ByVal Transp_DepNat As String, _ ByVal Transp_CrossTy As Integer, _ ByVal Transp_CrossIdnt As String, _ ByVal Transp_CrossIdntNat As String, _ ByVal Transp_ContInd As Boolean, _ ByVal ValData_TermDelCd As String, _ ByVal ValData_TermDelPlc As String, _ ByVal ValData_TermDelSit As String, _ ByVal ValData_InvCurr As String, _ ByVal ValData_ExRa As Decimal, _ ByVal ValData_InvVal As Decimal, _ ByVal ValData_TransacCd As Integer, _ ByVal ConorTra_Na As String, _ ByVal ConorTra_Strt As String, _ ByVal ConorTra_Pst As String, _ ByVal ConorTra_Cty As String, _ ByVal ConorTra_Ctry As String, _ ByVal ConorTra_TIN As String, _ ByVal ConorTra_UIDCtry As String, _ ByVal ConorTra_UID As String, _ ByVal ConeeTra_Na As String, _ ByVal ConeeTra_Strt As String, _ ByVal ConeeTra_Pst As String, _ ByVal ConeeTra_Cty As String, _ ByVal ConeeTra_Ctry As String, _ ByVal ConeeTra_TIN As String, _ ByVal ConeeTra_UIDCtry As String, _ ByVal ConeeTra_UID As String, _ ByVal ExpTra_Na As String, _ ByVal ExpTra_Strt As String, _ ByVal ExpTra_Pst As String, _ ByVal ExpTra_Cty As String, _ ByVal ExpTra_Ctry As String, _ ByVal ExpTra_TIN As String, _ ByVal ExpTra_UIDCtry As String, _ ByVal ExpTra_UID As String, _ ByVal Declarant_Na As String, _ ByVal Declarant_Strt As String, _ ByVal Declarant_Pst As String, _ ByVal Declarant_Cty As String, _ ByVal Declarant_Ctry As String, _ ByVal Declarant_TIN As String, _ ByVal Declarant_UIDCtry As String, _ ByVal Declarant_UID As String, _ ByVal Declarant_DecRep As Integer, _ ByVal Represent_RIN As String, _ ByVal Represent_Na As String, _ ByVal EntryCO_Ref As String, _ ByVal ExitCO_Ref As String, _ ByVal SurvCO_Ref As String, _ ByVal DestCO_Ref As String, _ ByVal PresCO_Ref As String, _ ByVal DepCO_Ref As String, _ ByVal CtrlRslt_ResCd As String, _ ByVal CtrlRslt_DLimit As Date, _ ByVal telnam_aktuellsteNachricht As Boolean) As tblTelotec_AnmeldungRow Dim rowtblTelotec_AnmeldungRow As tblTelotec_AnmeldungRow = CType(Me.NewRow,tblTelotec_AnmeldungRow) Dim columnValuesArray() As Object = New Object() {Nothing, telanm_ART, telanm_BezugsNr, telanm_Status, telanm_Status_KEWILL_Equivalent, telanm_AvisoId, telanm_SendungsId, telanm_Steuerbescheid_dsId, telanm_Mitteilung_dsId, telanm_VBD_dsId, telanm_LNR, telanm_CRN, telanm_Erstellung, telanm_Erstellung_SB, telanm_LetzteBearbeitung, telanm_LetzteBearbeitung_SB, telanm_firma, telanm_niederlassung, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, TransferStatus, MsgType, dec_ProzessArt, dec_Anmelde_ID, dec_Template_ID, dec_Lager_ID, dec_Lag_IND, dec_CreateDate, dec_CreatePersonalID, dec_PreDec_IND, dec_TotNet, dec_TotNetSplit_IND, dec_FillPackList_IND, dec_Memo, Refs_LRN, Refs_CRN, Refs_CSRN, Refs_ERN, Refs_FRN, Refs_Stat, Hea_DecTy, Hea_TotItem, Hea_TotPack, Hea_TotGross, Hea_DepLNG, Hea_DestLNG, Hea_PayTy, Hea_DefPayRef, Hea_PerPayRef, Hea_PayMet, Hea_AExpRef, Hea_Fin, Hea_Simp, Hea_IssD, Hea_AuthID, Hea_TransDat, Hea_WoffD, Hea_DecDT, Hea_DecPlc, Hea_AccDT, Hea_SecInd, Hea_ComRef, Hea_ProArrDT, Hea_PlaDepDT, Locs_TradCtry, Locs_Disp, Locs_Dest, Locs_GdsLocCd, Locs_GdsLoc, Locs_GdsLocAuth, Locs_LoadPlcCd, Locs_LoadPlc, Locs_CustPlc, Locs_ArrLocCd, Locs_ArrLoc, Locs_ArrLocAuth, Locs_WarTy, Locs_WarCtry, Locs_War, Transp_InMo, Transp_BordMo, Transp_DepTy, Transp_DepIdnt, Transp_DepNat, Transp_CrossTy, Transp_CrossIdnt, Transp_CrossIdntNat, Transp_ContInd, ValData_TermDelCd, ValData_TermDelPlc, ValData_TermDelSit, ValData_InvCurr, ValData_ExRa, ValData_InvVal, ValData_TransacCd, ConorTra_Na, ConorTra_Strt, ConorTra_Pst, ConorTra_Cty, ConorTra_Ctry, ConorTra_TIN, ConorTra_UIDCtry, ConorTra_UID, ConeeTra_Na, ConeeTra_Strt, ConeeTra_Pst, ConeeTra_Cty, ConeeTra_Ctry, ConeeTra_TIN, ConeeTra_UIDCtry, ConeeTra_UID, ExpTra_Na, ExpTra_Strt, ExpTra_Pst, ExpTra_Cty, ExpTra_Ctry, ExpTra_TIN, ExpTra_UIDCtry, ExpTra_UID, Declarant_Na, Declarant_Strt, Declarant_Pst, Declarant_Cty, Declarant_Ctry, Declarant_TIN, Declarant_UIDCtry, Declarant_UID, Declarant_DecRep, Represent_RIN, Represent_Na, EntryCO_Ref, ExitCO_Ref, SurvCO_Ref, DestCO_Ref, PresCO_Ref, DepCO_Ref, CtrlRslt_ResCd, CtrlRslt_DLimit, telnam_aktuellsteNachricht} rowtblTelotec_AnmeldungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTelotec_AnmeldungRow) Return rowtblTelotec_AnmeldungRow End Function _ Public Function FindBytelanm_id(ByVal telanm_id As Integer) As tblTelotec_AnmeldungRow Return CType(Me.Rows.Find(New Object() {telanm_id}),tblTelotec_AnmeldungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTelotec_AnmeldungDataTable = CType(MyBase.Clone,tblTelotec_AnmeldungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTelotec_AnmeldungDataTable() End Function _ Friend Sub InitVars() Me.columntelanm_id = MyBase.Columns("telanm_id") Me.columntelanm_ART = MyBase.Columns("telanm_ART") Me.columntelanm_BezugsNr = MyBase.Columns("telanm_BezugsNr") Me.columntelanm_Status = MyBase.Columns("telanm_Status") Me.columntelanm_Status_KEWILL_Equivalent = MyBase.Columns("telanm_Status_KEWILL_Equivalent") Me.columntelanm_AvisoId = MyBase.Columns("telanm_AvisoId") Me.columntelanm_SendungsId = MyBase.Columns("telanm_SendungsId") Me.columntelanm_Steuerbescheid_dsId = MyBase.Columns("telanm_Steuerbescheid_dsId") Me.columntelanm_Mitteilung_dsId = MyBase.Columns("telanm_Mitteilung_dsId") Me.columntelanm_VBD_dsId = MyBase.Columns("telanm_VBD_dsId") Me.columntelanm_LNR = MyBase.Columns("telanm_LNR") Me.columntelanm_CRN = MyBase.Columns("telanm_CRN") Me.columntelanm_Erstellung = MyBase.Columns("telanm_Erstellung") Me.columntelanm_Erstellung_SB = MyBase.Columns("telanm_Erstellung_SB") Me.columntelanm_LetzteBearbeitung = MyBase.Columns("telanm_LetzteBearbeitung") Me.columntelanm_LetzteBearbeitung_SB = MyBase.Columns("telanm_LetzteBearbeitung_SB") Me.columntelanm_firma = MyBase.Columns("telanm_firma") Me.columntelanm_niederlassung = MyBase.Columns("telanm_niederlassung") Me.columnMandant_ID = MyBase.Columns("Mandant_ID") Me.columnBereich_ID = MyBase.Columns("Bereich_ID") Me.columnReferenz_ID = MyBase.Columns("Referenz_ID") Me.columnComIndicator = MyBase.Columns("ComIndicator") Me.columnTransferStatus = MyBase.Columns("TransferStatus") Me.columnMsgType = MyBase.Columns("MsgType") Me.columndec_ProzessArt = MyBase.Columns("dec_ProzessArt") Me.columndec_Anmelde_ID = MyBase.Columns("dec_Anmelde_ID") Me.columndec_Template_ID = MyBase.Columns("dec_Template_ID") Me.columndec_Lager_ID = MyBase.Columns("dec_Lager_ID") Me.columndec_Lag_IND = MyBase.Columns("dec_Lag_IND") Me.columndec_CreateDate = MyBase.Columns("dec_CreateDate") Me.columndec_CreatePersonalID = MyBase.Columns("dec_CreatePersonalID") Me.columndec_PreDec_IND = MyBase.Columns("dec_PreDec_IND") Me.columndec_TotNet = MyBase.Columns("dec_TotNet") Me.columndec_TotNetSplit_IND = MyBase.Columns("dec_TotNetSplit_IND") Me.columndec_FillPackList_IND = MyBase.Columns("dec_FillPackList_IND") Me.columndec_Memo = MyBase.Columns("dec_Memo") Me.columnRefs_LRN = MyBase.Columns("Refs_LRN") Me.columnRefs_CRN = MyBase.Columns("Refs_CRN") Me.columnRefs_CSRN = MyBase.Columns("Refs_CSRN") Me.columnRefs_ERN = MyBase.Columns("Refs_ERN") Me.columnRefs_FRN = MyBase.Columns("Refs_FRN") Me.columnRefs_Stat = MyBase.Columns("Refs_Stat") Me.columnHea_DecTy = MyBase.Columns("Hea_DecTy") Me.columnHea_TotItem = MyBase.Columns("Hea_TotItem") Me.columnHea_TotPack = MyBase.Columns("Hea_TotPack") Me.columnHea_TotGross = MyBase.Columns("Hea_TotGross") Me.columnHea_DepLNG = MyBase.Columns("Hea_DepLNG") Me.columnHea_DestLNG = MyBase.Columns("Hea_DestLNG") Me.columnHea_PayTy = MyBase.Columns("Hea_PayTy") Me.columnHea_DefPayRef = MyBase.Columns("Hea_DefPayRef") Me.columnHea_PerPayRef = MyBase.Columns("Hea_PerPayRef") Me.columnHea_PayMet = MyBase.Columns("Hea_PayMet") Me.columnHea_AExpRef = MyBase.Columns("Hea_AExpRef") Me.columnHea_Fin = MyBase.Columns("Hea_Fin") Me.columnHea_Simp = MyBase.Columns("Hea_Simp") Me.columnHea_IssD = MyBase.Columns("Hea_IssD") Me.columnHea_AuthID = MyBase.Columns("Hea_AuthID") Me.columnHea_TransDat = MyBase.Columns("Hea_TransDat") Me.columnHea_WoffD = MyBase.Columns("Hea_WoffD") Me.columnHea_DecDT = MyBase.Columns("Hea_DecDT") Me.columnHea_DecPlc = MyBase.Columns("Hea_DecPlc") Me.columnHea_AccDT = MyBase.Columns("Hea_AccDT") Me.columnHea_SecInd = MyBase.Columns("Hea_SecInd") Me.columnHea_ComRef = MyBase.Columns("Hea_ComRef") Me.columnHea_ProArrDT = MyBase.Columns("Hea_ProArrDT") Me.columnHea_PlaDepDT = MyBase.Columns("Hea_PlaDepDT") Me.columnLocs_TradCtry = MyBase.Columns("Locs_TradCtry") Me.columnLocs_Disp = MyBase.Columns("Locs_Disp") Me.columnLocs_Dest = MyBase.Columns("Locs_Dest") Me.columnLocs_GdsLocCd = MyBase.Columns("Locs_GdsLocCd") Me.columnLocs_GdsLoc = MyBase.Columns("Locs_GdsLoc") Me.columnLocs_GdsLocAuth = MyBase.Columns("Locs_GdsLocAuth") Me.columnLocs_LoadPlcCd = MyBase.Columns("Locs_LoadPlcCd") Me.columnLocs_LoadPlc = MyBase.Columns("Locs_LoadPlc") Me.columnLocs_CustPlc = MyBase.Columns("Locs_CustPlc") Me.columnLocs_ArrLocCd = MyBase.Columns("Locs_ArrLocCd") Me.columnLocs_ArrLoc = MyBase.Columns("Locs_ArrLoc") Me.columnLocs_ArrLocAuth = MyBase.Columns("Locs_ArrLocAuth") Me.columnLocs_WarTy = MyBase.Columns("Locs_WarTy") Me.columnLocs_WarCtry = MyBase.Columns("Locs_WarCtry") Me.columnLocs_War = MyBase.Columns("Locs_War") Me.columnTransp_InMo = MyBase.Columns("Transp_InMo") Me.columnTransp_BordMo = MyBase.Columns("Transp_BordMo") Me.columnTransp_DepTy = MyBase.Columns("Transp_DepTy") Me.columnTransp_DepIdnt = MyBase.Columns("Transp_DepIdnt") Me.columnTransp_DepNat = MyBase.Columns("Transp_DepNat") Me.columnTransp_CrossTy = MyBase.Columns("Transp_CrossTy") Me.columnTransp_CrossIdnt = MyBase.Columns("Transp_CrossIdnt") Me.columnTransp_CrossIdntNat = MyBase.Columns("Transp_CrossIdntNat") Me.columnTransp_ContInd = MyBase.Columns("Transp_ContInd") Me.columnValData_TermDelCd = MyBase.Columns("ValData_TermDelCd") Me.columnValData_TermDelPlc = MyBase.Columns("ValData_TermDelPlc") Me.columnValData_TermDelSit = MyBase.Columns("ValData_TermDelSit") Me.columnValData_InvCurr = MyBase.Columns("ValData_InvCurr") Me.columnValData_ExRa = MyBase.Columns("ValData_ExRa") Me.columnValData_InvVal = MyBase.Columns("ValData_InvVal") Me.columnValData_TransacCd = MyBase.Columns("ValData_TransacCd") Me.columnConorTra_Na = MyBase.Columns("ConorTra_Na") Me.columnConorTra_Strt = MyBase.Columns("ConorTra_Strt") Me.columnConorTra_Pst = MyBase.Columns("ConorTra_Pst") Me.columnConorTra_Cty = MyBase.Columns("ConorTra_Cty") Me.columnConorTra_Ctry = MyBase.Columns("ConorTra_Ctry") Me.columnConorTra_TIN = MyBase.Columns("ConorTra_TIN") Me.columnConorTra_UIDCtry = MyBase.Columns("ConorTra_UIDCtry") Me.columnConorTra_UID = MyBase.Columns("ConorTra_UID") Me.columnConeeTra_Na = MyBase.Columns("ConeeTra_Na") Me.columnConeeTra_Strt = MyBase.Columns("ConeeTra_Strt") Me.columnConeeTra_Pst = MyBase.Columns("ConeeTra_Pst") Me.columnConeeTra_Cty = MyBase.Columns("ConeeTra_Cty") Me.columnConeeTra_Ctry = MyBase.Columns("ConeeTra_Ctry") Me.columnConeeTra_TIN = MyBase.Columns("ConeeTra_TIN") Me.columnConeeTra_UIDCtry = MyBase.Columns("ConeeTra_UIDCtry") Me.columnConeeTra_UID = MyBase.Columns("ConeeTra_UID") Me.columnExpTra_Na = MyBase.Columns("ExpTra_Na") Me.columnExpTra_Strt = MyBase.Columns("ExpTra_Strt") Me.columnExpTra_Pst = MyBase.Columns("ExpTra_Pst") Me.columnExpTra_Cty = MyBase.Columns("ExpTra_Cty") Me.columnExpTra_Ctry = MyBase.Columns("ExpTra_Ctry") Me.columnExpTra_TIN = MyBase.Columns("ExpTra_TIN") Me.columnExpTra_UIDCtry = MyBase.Columns("ExpTra_UIDCtry") Me.columnExpTra_UID = MyBase.Columns("ExpTra_UID") Me.columnDeclarant_Na = MyBase.Columns("Declarant_Na") Me.columnDeclarant_Strt = MyBase.Columns("Declarant_Strt") Me.columnDeclarant_Pst = MyBase.Columns("Declarant_Pst") Me.columnDeclarant_Cty = MyBase.Columns("Declarant_Cty") Me.columnDeclarant_Ctry = MyBase.Columns("Declarant_Ctry") Me.columnDeclarant_TIN = MyBase.Columns("Declarant_TIN") Me.columnDeclarant_UIDCtry = MyBase.Columns("Declarant_UIDCtry") Me.columnDeclarant_UID = MyBase.Columns("Declarant_UID") Me.columnDeclarant_DecRep = MyBase.Columns("Declarant_DecRep") Me.columnRepresent_RIN = MyBase.Columns("Represent_RIN") Me.columnRepresent_Na = MyBase.Columns("Represent_Na") Me.columnEntryCO_Ref = MyBase.Columns("EntryCO_Ref") Me.columnExitCO_Ref = MyBase.Columns("ExitCO_Ref") Me.columnSurvCO_Ref = MyBase.Columns("SurvCO_Ref") Me.columnDestCO_Ref = MyBase.Columns("DestCO_Ref") Me.columnPresCO_Ref = MyBase.Columns("PresCO_Ref") Me.columnDepCO_Ref = MyBase.Columns("DepCO_Ref") Me.columnCtrlRslt_ResCd = MyBase.Columns("CtrlRslt_ResCd") Me.columnCtrlRslt_DLimit = MyBase.Columns("CtrlRslt_DLimit") Me.columntelnam_aktuellsteNachricht = MyBase.Columns("telnam_aktuellsteNachricht") End Sub _ Private Sub InitClass() Me.columntelanm_id = New Global.System.Data.DataColumn("telanm_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_id) Me.columntelanm_ART = New Global.System.Data.DataColumn("telanm_ART", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_ART) Me.columntelanm_BezugsNr = New Global.System.Data.DataColumn("telanm_BezugsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_BezugsNr) Me.columntelanm_Status = New Global.System.Data.DataColumn("telanm_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_Status) Me.columntelanm_Status_KEWILL_Equivalent = New Global.System.Data.DataColumn("telanm_Status_KEWILL_Equivalent", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_Status_KEWILL_Equivalent) Me.columntelanm_AvisoId = New Global.System.Data.DataColumn("telanm_AvisoId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_AvisoId) Me.columntelanm_SendungsId = New Global.System.Data.DataColumn("telanm_SendungsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_SendungsId) Me.columntelanm_Steuerbescheid_dsId = New Global.System.Data.DataColumn("telanm_Steuerbescheid_dsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_Steuerbescheid_dsId) Me.columntelanm_Mitteilung_dsId = New Global.System.Data.DataColumn("telanm_Mitteilung_dsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_Mitteilung_dsId) Me.columntelanm_VBD_dsId = New Global.System.Data.DataColumn("telanm_VBD_dsId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_VBD_dsId) Me.columntelanm_LNR = New Global.System.Data.DataColumn("telanm_LNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_LNR) Me.columntelanm_CRN = New Global.System.Data.DataColumn("telanm_CRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_CRN) Me.columntelanm_Erstellung = New Global.System.Data.DataColumn("telanm_Erstellung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_Erstellung) Me.columntelanm_Erstellung_SB = New Global.System.Data.DataColumn("telanm_Erstellung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_Erstellung_SB) Me.columntelanm_LetzteBearbeitung = New Global.System.Data.DataColumn("telanm_LetzteBearbeitung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_LetzteBearbeitung) Me.columntelanm_LetzteBearbeitung_SB = New Global.System.Data.DataColumn("telanm_LetzteBearbeitung_SB", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_LetzteBearbeitung_SB) Me.columntelanm_firma = New Global.System.Data.DataColumn("telanm_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_firma) Me.columntelanm_niederlassung = New Global.System.Data.DataColumn("telanm_niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelanm_niederlassung) Me.columnMandant_ID = New Global.System.Data.DataColumn("Mandant_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant_ID) Me.columnBereich_ID = New Global.System.Data.DataColumn("Bereich_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBereich_ID) Me.columnReferenz_ID = New Global.System.Data.DataColumn("Referenz_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReferenz_ID) Me.columnComIndicator = New Global.System.Data.DataColumn("ComIndicator", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComIndicator) Me.columnTransferStatus = New Global.System.Data.DataColumn("TransferStatus", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransferStatus) Me.columnMsgType = New Global.System.Data.DataColumn("MsgType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMsgType) Me.columndec_ProzessArt = New Global.System.Data.DataColumn("dec_ProzessArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_ProzessArt) Me.columndec_Anmelde_ID = New Global.System.Data.DataColumn("dec_Anmelde_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_Anmelde_ID) Me.columndec_Template_ID = New Global.System.Data.DataColumn("dec_Template_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_Template_ID) Me.columndec_Lager_ID = New Global.System.Data.DataColumn("dec_Lager_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_Lager_ID) Me.columndec_Lag_IND = New Global.System.Data.DataColumn("dec_Lag_IND", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_Lag_IND) Me.columndec_CreateDate = New Global.System.Data.DataColumn("dec_CreateDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_CreateDate) Me.columndec_CreatePersonalID = New Global.System.Data.DataColumn("dec_CreatePersonalID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_CreatePersonalID) Me.columndec_PreDec_IND = New Global.System.Data.DataColumn("dec_PreDec_IND", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_PreDec_IND) Me.columndec_TotNet = New Global.System.Data.DataColumn("dec_TotNet", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_TotNet) Me.columndec_TotNetSplit_IND = New Global.System.Data.DataColumn("dec_TotNetSplit_IND", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_TotNetSplit_IND) Me.columndec_FillPackList_IND = New Global.System.Data.DataColumn("dec_FillPackList_IND", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_FillPackList_IND) Me.columndec_Memo = New Global.System.Data.DataColumn("dec_Memo", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndec_Memo) Me.columnRefs_LRN = New Global.System.Data.DataColumn("Refs_LRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefs_LRN) Me.columnRefs_CRN = New Global.System.Data.DataColumn("Refs_CRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefs_CRN) Me.columnRefs_CSRN = New Global.System.Data.DataColumn("Refs_CSRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefs_CSRN) Me.columnRefs_ERN = New Global.System.Data.DataColumn("Refs_ERN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefs_ERN) Me.columnRefs_FRN = New Global.System.Data.DataColumn("Refs_FRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefs_FRN) Me.columnRefs_Stat = New Global.System.Data.DataColumn("Refs_Stat", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefs_Stat) Me.columnHea_DecTy = New Global.System.Data.DataColumn("Hea_DecTy", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_DecTy) Me.columnHea_TotItem = New Global.System.Data.DataColumn("Hea_TotItem", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_TotItem) Me.columnHea_TotPack = New Global.System.Data.DataColumn("Hea_TotPack", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_TotPack) Me.columnHea_TotGross = New Global.System.Data.DataColumn("Hea_TotGross", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_TotGross) Me.columnHea_DepLNG = New Global.System.Data.DataColumn("Hea_DepLNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_DepLNG) Me.columnHea_DestLNG = New Global.System.Data.DataColumn("Hea_DestLNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_DestLNG) Me.columnHea_PayTy = New Global.System.Data.DataColumn("Hea_PayTy", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_PayTy) Me.columnHea_DefPayRef = New Global.System.Data.DataColumn("Hea_DefPayRef", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_DefPayRef) Me.columnHea_PerPayRef = New Global.System.Data.DataColumn("Hea_PerPayRef", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_PerPayRef) Me.columnHea_PayMet = New Global.System.Data.DataColumn("Hea_PayMet", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_PayMet) Me.columnHea_AExpRef = New Global.System.Data.DataColumn("Hea_AExpRef", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_AExpRef) Me.columnHea_Fin = New Global.System.Data.DataColumn("Hea_Fin", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_Fin) Me.columnHea_Simp = New Global.System.Data.DataColumn("Hea_Simp", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_Simp) Me.columnHea_IssD = New Global.System.Data.DataColumn("Hea_IssD", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_IssD) Me.columnHea_AuthID = New Global.System.Data.DataColumn("Hea_AuthID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_AuthID) Me.columnHea_TransDat = New Global.System.Data.DataColumn("Hea_TransDat", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_TransDat) Me.columnHea_WoffD = New Global.System.Data.DataColumn("Hea_WoffD", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_WoffD) Me.columnHea_DecDT = New Global.System.Data.DataColumn("Hea_DecDT", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_DecDT) Me.columnHea_DecPlc = New Global.System.Data.DataColumn("Hea_DecPlc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_DecPlc) Me.columnHea_AccDT = New Global.System.Data.DataColumn("Hea_AccDT", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_AccDT) Me.columnHea_SecInd = New Global.System.Data.DataColumn("Hea_SecInd", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_SecInd) Me.columnHea_ComRef = New Global.System.Data.DataColumn("Hea_ComRef", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_ComRef) Me.columnHea_ProArrDT = New Global.System.Data.DataColumn("Hea_ProArrDT", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_ProArrDT) Me.columnHea_PlaDepDT = New Global.System.Data.DataColumn("Hea_PlaDepDT", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHea_PlaDepDT) Me.columnLocs_TradCtry = New Global.System.Data.DataColumn("Locs_TradCtry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_TradCtry) Me.columnLocs_Disp = New Global.System.Data.DataColumn("Locs_Disp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_Disp) Me.columnLocs_Dest = New Global.System.Data.DataColumn("Locs_Dest", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_Dest) Me.columnLocs_GdsLocCd = New Global.System.Data.DataColumn("Locs_GdsLocCd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_GdsLocCd) Me.columnLocs_GdsLoc = New Global.System.Data.DataColumn("Locs_GdsLoc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_GdsLoc) Me.columnLocs_GdsLocAuth = New Global.System.Data.DataColumn("Locs_GdsLocAuth", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_GdsLocAuth) Me.columnLocs_LoadPlcCd = New Global.System.Data.DataColumn("Locs_LoadPlcCd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_LoadPlcCd) Me.columnLocs_LoadPlc = New Global.System.Data.DataColumn("Locs_LoadPlc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_LoadPlc) Me.columnLocs_CustPlc = New Global.System.Data.DataColumn("Locs_CustPlc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_CustPlc) Me.columnLocs_ArrLocCd = New Global.System.Data.DataColumn("Locs_ArrLocCd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_ArrLocCd) Me.columnLocs_ArrLoc = New Global.System.Data.DataColumn("Locs_ArrLoc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_ArrLoc) Me.columnLocs_ArrLocAuth = New Global.System.Data.DataColumn("Locs_ArrLocAuth", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_ArrLocAuth) Me.columnLocs_WarTy = New Global.System.Data.DataColumn("Locs_WarTy", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_WarTy) Me.columnLocs_WarCtry = New Global.System.Data.DataColumn("Locs_WarCtry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_WarCtry) Me.columnLocs_War = New Global.System.Data.DataColumn("Locs_War", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocs_War) Me.columnTransp_InMo = New Global.System.Data.DataColumn("Transp_InMo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransp_InMo) Me.columnTransp_BordMo = New Global.System.Data.DataColumn("Transp_BordMo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransp_BordMo) Me.columnTransp_DepTy = New Global.System.Data.DataColumn("Transp_DepTy", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransp_DepTy) Me.columnTransp_DepIdnt = New Global.System.Data.DataColumn("Transp_DepIdnt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransp_DepIdnt) Me.columnTransp_DepNat = New Global.System.Data.DataColumn("Transp_DepNat", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransp_DepNat) Me.columnTransp_CrossTy = New Global.System.Data.DataColumn("Transp_CrossTy", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransp_CrossTy) Me.columnTransp_CrossIdnt = New Global.System.Data.DataColumn("Transp_CrossIdnt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransp_CrossIdnt) Me.columnTransp_CrossIdntNat = New Global.System.Data.DataColumn("Transp_CrossIdntNat", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransp_CrossIdntNat) Me.columnTransp_ContInd = New Global.System.Data.DataColumn("Transp_ContInd", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransp_ContInd) Me.columnValData_TermDelCd = New Global.System.Data.DataColumn("ValData_TermDelCd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnValData_TermDelCd) Me.columnValData_TermDelPlc = New Global.System.Data.DataColumn("ValData_TermDelPlc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnValData_TermDelPlc) Me.columnValData_TermDelSit = New Global.System.Data.DataColumn("ValData_TermDelSit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnValData_TermDelSit) Me.columnValData_InvCurr = New Global.System.Data.DataColumn("ValData_InvCurr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnValData_InvCurr) Me.columnValData_ExRa = New Global.System.Data.DataColumn("ValData_ExRa", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnValData_ExRa) Me.columnValData_InvVal = New Global.System.Data.DataColumn("ValData_InvVal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnValData_InvVal) Me.columnValData_TransacCd = New Global.System.Data.DataColumn("ValData_TransacCd", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnValData_TransacCd) Me.columnConorTra_Na = New Global.System.Data.DataColumn("ConorTra_Na", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConorTra_Na) Me.columnConorTra_Strt = New Global.System.Data.DataColumn("ConorTra_Strt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConorTra_Strt) Me.columnConorTra_Pst = New Global.System.Data.DataColumn("ConorTra_Pst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConorTra_Pst) Me.columnConorTra_Cty = New Global.System.Data.DataColumn("ConorTra_Cty", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConorTra_Cty) Me.columnConorTra_Ctry = New Global.System.Data.DataColumn("ConorTra_Ctry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConorTra_Ctry) Me.columnConorTra_TIN = New Global.System.Data.DataColumn("ConorTra_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConorTra_TIN) Me.columnConorTra_UIDCtry = New Global.System.Data.DataColumn("ConorTra_UIDCtry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConorTra_UIDCtry) Me.columnConorTra_UID = New Global.System.Data.DataColumn("ConorTra_UID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConorTra_UID) Me.columnConeeTra_Na = New Global.System.Data.DataColumn("ConeeTra_Na", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConeeTra_Na) Me.columnConeeTra_Strt = New Global.System.Data.DataColumn("ConeeTra_Strt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConeeTra_Strt) Me.columnConeeTra_Pst = New Global.System.Data.DataColumn("ConeeTra_Pst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConeeTra_Pst) Me.columnConeeTra_Cty = New Global.System.Data.DataColumn("ConeeTra_Cty", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConeeTra_Cty) Me.columnConeeTra_Ctry = New Global.System.Data.DataColumn("ConeeTra_Ctry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConeeTra_Ctry) Me.columnConeeTra_TIN = New Global.System.Data.DataColumn("ConeeTra_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConeeTra_TIN) Me.columnConeeTra_UIDCtry = New Global.System.Data.DataColumn("ConeeTra_UIDCtry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConeeTra_UIDCtry) Me.columnConeeTra_UID = New Global.System.Data.DataColumn("ConeeTra_UID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnConeeTra_UID) Me.columnExpTra_Na = New Global.System.Data.DataColumn("ExpTra_Na", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpTra_Na) Me.columnExpTra_Strt = New Global.System.Data.DataColumn("ExpTra_Strt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpTra_Strt) Me.columnExpTra_Pst = New Global.System.Data.DataColumn("ExpTra_Pst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpTra_Pst) Me.columnExpTra_Cty = New Global.System.Data.DataColumn("ExpTra_Cty", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpTra_Cty) Me.columnExpTra_Ctry = New Global.System.Data.DataColumn("ExpTra_Ctry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpTra_Ctry) Me.columnExpTra_TIN = New Global.System.Data.DataColumn("ExpTra_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpTra_TIN) Me.columnExpTra_UIDCtry = New Global.System.Data.DataColumn("ExpTra_UIDCtry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpTra_UIDCtry) Me.columnExpTra_UID = New Global.System.Data.DataColumn("ExpTra_UID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpTra_UID) Me.columnDeclarant_Na = New Global.System.Data.DataColumn("Declarant_Na", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarant_Na) Me.columnDeclarant_Strt = New Global.System.Data.DataColumn("Declarant_Strt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarant_Strt) Me.columnDeclarant_Pst = New Global.System.Data.DataColumn("Declarant_Pst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarant_Pst) Me.columnDeclarant_Cty = New Global.System.Data.DataColumn("Declarant_Cty", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarant_Cty) Me.columnDeclarant_Ctry = New Global.System.Data.DataColumn("Declarant_Ctry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarant_Ctry) Me.columnDeclarant_TIN = New Global.System.Data.DataColumn("Declarant_TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarant_TIN) Me.columnDeclarant_UIDCtry = New Global.System.Data.DataColumn("Declarant_UIDCtry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarant_UIDCtry) Me.columnDeclarant_UID = New Global.System.Data.DataColumn("Declarant_UID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarant_UID) Me.columnDeclarant_DecRep = New Global.System.Data.DataColumn("Declarant_DecRep", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarant_DecRep) Me.columnRepresent_RIN = New Global.System.Data.DataColumn("Represent_RIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRepresent_RIN) Me.columnRepresent_Na = New Global.System.Data.DataColumn("Represent_Na", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRepresent_Na) Me.columnEntryCO_Ref = New Global.System.Data.DataColumn("EntryCO_Ref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEntryCO_Ref) Me.columnExitCO_Ref = New Global.System.Data.DataColumn("ExitCO_Ref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExitCO_Ref) Me.columnSurvCO_Ref = New Global.System.Data.DataColumn("SurvCO_Ref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSurvCO_Ref) Me.columnDestCO_Ref = New Global.System.Data.DataColumn("DestCO_Ref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDestCO_Ref) Me.columnPresCO_Ref = New Global.System.Data.DataColumn("PresCO_Ref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPresCO_Ref) Me.columnDepCO_Ref = New Global.System.Data.DataColumn("DepCO_Ref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDepCO_Ref) Me.columnCtrlRslt_ResCd = New Global.System.Data.DataColumn("CtrlRslt_ResCd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCtrlRslt_ResCd) Me.columnCtrlRslt_DLimit = New Global.System.Data.DataColumn("CtrlRslt_DLimit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCtrlRslt_DLimit) Me.columntelnam_aktuellsteNachricht = New Global.System.Data.DataColumn("telnam_aktuellsteNachricht", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelnam_aktuellsteNachricht) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntelanm_id}, true)) Me.columntelanm_id.AutoIncrement = true Me.columntelanm_id.AutoIncrementSeed = -1 Me.columntelanm_id.AutoIncrementStep = -1 Me.columntelanm_id.AllowDBNull = false Me.columntelanm_id.ReadOnly = true Me.columntelanm_id.Unique = true Me.columntelanm_ART.AllowDBNull = false Me.columntelanm_ART.MaxLength = 50 Me.columntelanm_BezugsNr.AllowDBNull = false Me.columntelanm_BezugsNr.MaxLength = 50 Me.columntelanm_Status.AllowDBNull = false Me.columntelanm_Status_KEWILL_Equivalent.AllowDBNull = false Me.columntelanm_LNR.MaxLength = 35 Me.columntelanm_CRN.MaxLength = 35 Me.columntelanm_Erstellung.AllowDBNull = false Me.columntelanm_LetzteBearbeitung.AllowDBNull = false Me.columntelanm_firma.MaxLength = 10 Me.columntelanm_niederlassung.MaxLength = 10 Me.columnMandant_ID.AllowDBNull = false Me.columnMandant_ID.MaxLength = 6 Me.columnBereich_ID.AllowDBNull = false Me.columnBereich_ID.MaxLength = 6 Me.columnReferenz_ID.AllowDBNull = false Me.columnReferenz_ID.MaxLength = 36 Me.columnComIndicator.AllowDBNull = false Me.columnTransferStatus.MaxLength = 4 Me.columnMsgType.MaxLength = 10 Me.columndec_ProzessArt.AllowDBNull = false Me.columndec_ProzessArt.MaxLength = 4 Me.columndec_Lager_ID.MaxLength = 6 Me.columndec_CreateDate.AllowDBNull = false Me.columndec_CreatePersonalID.MaxLength = 12 Me.columndec_Memo.MaxLength = 1000 Me.columnRefs_LRN.AllowDBNull = false Me.columnRefs_LRN.MaxLength = 22 Me.columnRefs_CRN.MaxLength = 21 Me.columnRefs_CSRN.MaxLength = 21 Me.columnRefs_ERN.MaxLength = 21 Me.columnRefs_FRN.MaxLength = 21 Me.columnRefs_Stat.MaxLength = 2 Me.columnHea_DecTy.AllowDBNull = false Me.columnHea_DecTy.MaxLength = 9 Me.columnHea_TotItem.AllowDBNull = false Me.columnHea_DepLNG.MaxLength = 2 Me.columnHea_DestLNG.MaxLength = 2 Me.columnHea_PayTy.MaxLength = 1 Me.columnHea_Fin.MaxLength = 2 Me.columnHea_Simp.AllowDBNull = false Me.columnHea_AuthID.MaxLength = 17 Me.columnHea_DecDT.AllowDBNull = false Me.columnHea_DecPlc.AllowDBNull = false Me.columnHea_DecPlc.MaxLength = 35 Me.columnHea_ComRef.MaxLength = 70 Me.columnLocs_TradCtry.MaxLength = 2 Me.columnLocs_Disp.MaxLength = 2 Me.columnLocs_Dest.MaxLength = 2 Me.columnLocs_GdsLocCd.MaxLength = 17 Me.columnLocs_GdsLoc.MaxLength = 35 Me.columnLocs_GdsLocAuth.MaxLength = 17 Me.columnLocs_LoadPlcCd.MaxLength = 17 Me.columnLocs_LoadPlc.MaxLength = 35 Me.columnLocs_CustPlc.MaxLength = 17 Me.columnLocs_ArrLocCd.MaxLength = 17 Me.columnLocs_ArrLoc.MaxLength = 35 Me.columnLocs_ArrLocAuth.MaxLength = 17 Me.columnLocs_WarTy.MaxLength = 1 Me.columnLocs_WarCtry.MaxLength = 2 Me.columnLocs_War.MaxLength = 17 Me.columnTransp_DepIdnt.MaxLength = 27 Me.columnTransp_DepNat.MaxLength = 2 Me.columnTransp_CrossIdnt.MaxLength = 27 Me.columnTransp_CrossIdntNat.MaxLength = 2 Me.columnValData_TermDelCd.MaxLength = 3 Me.columnValData_TermDelPlc.MaxLength = 35 Me.columnValData_TermDelSit.MaxLength = 1 Me.columnValData_InvCurr.MaxLength = 3 Me.columnConorTra_Na.MaxLength = 35 Me.columnConorTra_Strt.MaxLength = 35 Me.columnConorTra_Pst.MaxLength = 9 Me.columnConorTra_Cty.MaxLength = 35 Me.columnConorTra_Ctry.MaxLength = 2 Me.columnConorTra_TIN.MaxLength = 17 Me.columnConorTra_UIDCtry.MaxLength = 2 Me.columnConorTra_UID.MaxLength = 20 Me.columnConeeTra_Na.MaxLength = 35 Me.columnConeeTra_Strt.MaxLength = 35 Me.columnConeeTra_Pst.MaxLength = 9 Me.columnConeeTra_Cty.MaxLength = 35 Me.columnConeeTra_Ctry.MaxLength = 2 Me.columnConeeTra_TIN.MaxLength = 17 Me.columnConeeTra_UIDCtry.MaxLength = 2 Me.columnConeeTra_UID.MaxLength = 20 Me.columnExpTra_Na.MaxLength = 35 Me.columnExpTra_Strt.MaxLength = 35 Me.columnExpTra_Pst.MaxLength = 9 Me.columnExpTra_Cty.MaxLength = 35 Me.columnExpTra_Ctry.MaxLength = 2 Me.columnExpTra_TIN.MaxLength = 17 Me.columnExpTra_UIDCtry.MaxLength = 2 Me.columnExpTra_UID.MaxLength = 20 Me.columnDeclarant_Na.MaxLength = 35 Me.columnDeclarant_Strt.MaxLength = 35 Me.columnDeclarant_Pst.MaxLength = 9 Me.columnDeclarant_Cty.MaxLength = 35 Me.columnDeclarant_Ctry.MaxLength = 2 Me.columnDeclarant_TIN.MaxLength = 17 Me.columnDeclarant_UIDCtry.MaxLength = 2 Me.columnDeclarant_UID.MaxLength = 20 Me.columnRepresent_RIN.MaxLength = 17 Me.columnRepresent_Na.MaxLength = 35 Me.columnEntryCO_Ref.MaxLength = 8 Me.columnExitCO_Ref.MaxLength = 8 Me.columnSurvCO_Ref.MaxLength = 8 Me.columnDestCO_Ref.MaxLength = 8 Me.columnPresCO_Ref.MaxLength = 8 Me.columnDepCO_Ref.MaxLength = 8 Me.columnCtrlRslt_ResCd.MaxLength = 2 Me.columntelnam_aktuellsteNachricht.AllowDBNull = false End Sub _ Public Function NewtblTelotec_AnmeldungRow() As tblTelotec_AnmeldungRow Return CType(Me.NewRow,tblTelotec_AnmeldungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTelotec_AnmeldungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTelotec_AnmeldungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTelotec_AnmeldungRowChangedEvent) Is Nothing) Then RaiseEvent tblTelotec_AnmeldungRowChanged(Me, New tblTelotec_AnmeldungRowChangeEvent(CType(e.Row,tblTelotec_AnmeldungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTelotec_AnmeldungRowChangingEvent) Is Nothing) Then RaiseEvent tblTelotec_AnmeldungRowChanging(Me, New tblTelotec_AnmeldungRowChangeEvent(CType(e.Row,tblTelotec_AnmeldungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTelotec_AnmeldungRowDeletedEvent) Is Nothing) Then RaiseEvent tblTelotec_AnmeldungRowDeleted(Me, New tblTelotec_AnmeldungRowChangeEvent(CType(e.Row,tblTelotec_AnmeldungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTelotec_AnmeldungRowDeletingEvent) Is Nothing) Then RaiseEvent tblTelotec_AnmeldungRowDeleting(Me, New tblTelotec_AnmeldungRowChangeEvent(CType(e.Row,tblTelotec_AnmeldungRow), e.Action)) End If End Sub _ Public Sub RemovetblTelotec_AnmeldungRow(ByVal row As tblTelotec_AnmeldungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTelotec_AnmeldungDataTable" 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 tblTelotec_PackstueckeDataTable Inherits Global.System.Data.TypedTableBase(Of tblTelotec_PackstueckeRow) Private columntelpospk_id As Global.System.Data.DataColumn Private columntelpospk_telanmId As Global.System.Data.DataColumn Private columntelpospk_telposId As Global.System.Data.DataColumn Private columnMandant_ID As Global.System.Data.DataColumn Private columnBereich_ID As Global.System.Data.DataColumn Private columnReferenz_ID As Global.System.Data.DataColumn Private columnComIndicator As Global.System.Data.DataColumn Private columnPos_ID As Global.System.Data.DataColumn Private columnPack_ID As Global.System.Data.DataColumn Private columnPack_Mark As Global.System.Data.DataColumn Private columnPack_Kind As Global.System.Data.DataColumn Private columnPack_Nr As Global.System.Data.DataColumn Private columnPack_Piec As Global.System.Data.DataColumn Private columnTelo_Gross As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTelotec_Packstuecke" 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 telpospk_idColumn() As Global.System.Data.DataColumn Get Return Me.columntelpospk_id End Get End Property _ Public ReadOnly Property telpospk_telanmIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelpospk_telanmId End Get End Property _ Public ReadOnly Property telpospk_telposIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelpospk_telposId End Get End Property _ Public ReadOnly Property Mandant_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant_ID End Get End Property _ Public ReadOnly Property Bereich_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBereich_ID End Get End Property _ Public ReadOnly Property Referenz_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnReferenz_ID End Get End Property _ Public ReadOnly Property ComIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnComIndicator End Get End Property _ Public ReadOnly Property Pos_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPos_ID End Get End Property _ Public ReadOnly Property Pack_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPack_ID End Get End Property _ Public ReadOnly Property Pack_MarkColumn() As Global.System.Data.DataColumn Get Return Me.columnPack_Mark End Get End Property _ Public ReadOnly Property Pack_KindColumn() As Global.System.Data.DataColumn Get Return Me.columnPack_Kind End Get End Property _ Public ReadOnly Property Pack_NrColumn() As Global.System.Data.DataColumn Get Return Me.columnPack_Nr End Get End Property _ Public ReadOnly Property Pack_PiecColumn() As Global.System.Data.DataColumn Get Return Me.columnPack_Piec End Get End Property _ Public ReadOnly Property Telo_GrossColumn() As Global.System.Data.DataColumn Get Return Me.columnTelo_Gross 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 tblTelotec_PackstueckeRow Get Return CType(Me.Rows(index),tblTelotec_PackstueckeRow) End Get End Property _ Public Event tblTelotec_PackstueckeRowChanging As tblTelotec_PackstueckeRowChangeEventHandler _ Public Event tblTelotec_PackstueckeRowChanged As tblTelotec_PackstueckeRowChangeEventHandler _ Public Event tblTelotec_PackstueckeRowDeleting As tblTelotec_PackstueckeRowChangeEventHandler _ Public Event tblTelotec_PackstueckeRowDeleted As tblTelotec_PackstueckeRowChangeEventHandler _ Public Overloads Sub AddtblTelotec_PackstueckeRow(ByVal row As tblTelotec_PackstueckeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTelotec_PackstueckeRow(ByVal telpospk_telanmId As Integer, ByVal telpospk_telposId As Integer, ByVal Mandant_ID As String, ByVal Bereich_ID As String, ByVal Referenz_ID As String, ByVal ComIndicator As Boolean, ByVal Pos_ID As Integer, ByVal Pack_ID As Integer, ByVal Pack_Mark As String, ByVal Pack_Kind As String, ByVal Pack_Nr As Integer, ByVal Pack_Piec As Integer, ByVal Telo_Gross As Decimal) As tblTelotec_PackstueckeRow Dim rowtblTelotec_PackstueckeRow As tblTelotec_PackstueckeRow = CType(Me.NewRow,tblTelotec_PackstueckeRow) Dim columnValuesArray() As Object = New Object() {Nothing, telpospk_telanmId, telpospk_telposId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, Pack_ID, Pack_Mark, Pack_Kind, Pack_Nr, Pack_Piec, Telo_Gross} rowtblTelotec_PackstueckeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTelotec_PackstueckeRow) Return rowtblTelotec_PackstueckeRow End Function _ Public Function FindBytelpospk_id(ByVal telpospk_id As Integer) As tblTelotec_PackstueckeRow Return CType(Me.Rows.Find(New Object() {telpospk_id}),tblTelotec_PackstueckeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTelotec_PackstueckeDataTable = CType(MyBase.Clone,tblTelotec_PackstueckeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTelotec_PackstueckeDataTable() End Function _ Friend Sub InitVars() Me.columntelpospk_id = MyBase.Columns("telpospk_id") Me.columntelpospk_telanmId = MyBase.Columns("telpospk_telanmId") Me.columntelpospk_telposId = MyBase.Columns("telpospk_telposId") Me.columnMandant_ID = MyBase.Columns("Mandant_ID") Me.columnBereich_ID = MyBase.Columns("Bereich_ID") Me.columnReferenz_ID = MyBase.Columns("Referenz_ID") Me.columnComIndicator = MyBase.Columns("ComIndicator") Me.columnPos_ID = MyBase.Columns("Pos_ID") Me.columnPack_ID = MyBase.Columns("Pack_ID") Me.columnPack_Mark = MyBase.Columns("Pack_Mark") Me.columnPack_Kind = MyBase.Columns("Pack_Kind") Me.columnPack_Nr = MyBase.Columns("Pack_Nr") Me.columnPack_Piec = MyBase.Columns("Pack_Piec") Me.columnTelo_Gross = MyBase.Columns("Telo_Gross") End Sub _ Private Sub InitClass() Me.columntelpospk_id = New Global.System.Data.DataColumn("telpospk_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelpospk_id) Me.columntelpospk_telanmId = New Global.System.Data.DataColumn("telpospk_telanmId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelpospk_telanmId) Me.columntelpospk_telposId = New Global.System.Data.DataColumn("telpospk_telposId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelpospk_telposId) Me.columnMandant_ID = New Global.System.Data.DataColumn("Mandant_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant_ID) Me.columnBereich_ID = New Global.System.Data.DataColumn("Bereich_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBereich_ID) Me.columnReferenz_ID = New Global.System.Data.DataColumn("Referenz_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReferenz_ID) Me.columnComIndicator = New Global.System.Data.DataColumn("ComIndicator", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComIndicator) Me.columnPos_ID = New Global.System.Data.DataColumn("Pos_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPos_ID) Me.columnPack_ID = New Global.System.Data.DataColumn("Pack_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPack_ID) Me.columnPack_Mark = New Global.System.Data.DataColumn("Pack_Mark", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPack_Mark) Me.columnPack_Kind = New Global.System.Data.DataColumn("Pack_Kind", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPack_Kind) Me.columnPack_Nr = New Global.System.Data.DataColumn("Pack_Nr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPack_Nr) Me.columnPack_Piec = New Global.System.Data.DataColumn("Pack_Piec", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPack_Piec) Me.columnTelo_Gross = New Global.System.Data.DataColumn("Telo_Gross", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelo_Gross) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntelpospk_id}, true)) Me.columntelpospk_id.AutoIncrement = true Me.columntelpospk_id.AutoIncrementSeed = -1 Me.columntelpospk_id.AutoIncrementStep = -1 Me.columntelpospk_id.AllowDBNull = false Me.columntelpospk_id.ReadOnly = true Me.columntelpospk_id.Unique = true Me.columntelpospk_telanmId.AllowDBNull = false Me.columntelpospk_telposId.AllowDBNull = false Me.columnMandant_ID.AllowDBNull = false Me.columnMandant_ID.MaxLength = 6 Me.columnBereich_ID.AllowDBNull = false Me.columnBereich_ID.MaxLength = 6 Me.columnReferenz_ID.AllowDBNull = false Me.columnReferenz_ID.MaxLength = 36 Me.columnComIndicator.AllowDBNull = false Me.columnPos_ID.AllowDBNull = false Me.columnPack_ID.AllowDBNull = false Me.columnPack_Mark.MaxLength = 140 Me.columnPack_Kind.MaxLength = 3 End Sub _ Public Function NewtblTelotec_PackstueckeRow() As tblTelotec_PackstueckeRow Return CType(Me.NewRow,tblTelotec_PackstueckeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTelotec_PackstueckeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTelotec_PackstueckeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTelotec_PackstueckeRowChangedEvent) Is Nothing) Then RaiseEvent tblTelotec_PackstueckeRowChanged(Me, New tblTelotec_PackstueckeRowChangeEvent(CType(e.Row,tblTelotec_PackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTelotec_PackstueckeRowChangingEvent) Is Nothing) Then RaiseEvent tblTelotec_PackstueckeRowChanging(Me, New tblTelotec_PackstueckeRowChangeEvent(CType(e.Row,tblTelotec_PackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTelotec_PackstueckeRowDeletedEvent) Is Nothing) Then RaiseEvent tblTelotec_PackstueckeRowDeleted(Me, New tblTelotec_PackstueckeRowChangeEvent(CType(e.Row,tblTelotec_PackstueckeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTelotec_PackstueckeRowDeletingEvent) Is Nothing) Then RaiseEvent tblTelotec_PackstueckeRowDeleting(Me, New tblTelotec_PackstueckeRowChangeEvent(CType(e.Row,tblTelotec_PackstueckeRow), e.Action)) End If End Sub _ Public Sub RemovetblTelotec_PackstueckeRow(ByVal row As tblTelotec_PackstueckeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTelotec_PackstueckeDataTable" 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 tblTelotec_ParamterDataTable Inherits Global.System.Data.TypedTableBase(Of tblTelotec_ParamterRow) Private columntcParam_name As Global.System.Data.DataColumn Private columntcParam_value As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTelotec_Paramter" 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 tcParam_nameColumn() As Global.System.Data.DataColumn Get Return Me.columntcParam_name End Get End Property _ Public ReadOnly Property tcParam_valueColumn() As Global.System.Data.DataColumn Get Return Me.columntcParam_value 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 tblTelotec_ParamterRow Get Return CType(Me.Rows(index),tblTelotec_ParamterRow) End Get End Property _ Public Event tblTelotec_ParamterRowChanging As tblTelotec_ParamterRowChangeEventHandler _ Public Event tblTelotec_ParamterRowChanged As tblTelotec_ParamterRowChangeEventHandler _ Public Event tblTelotec_ParamterRowDeleting As tblTelotec_ParamterRowChangeEventHandler _ Public Event tblTelotec_ParamterRowDeleted As tblTelotec_ParamterRowChangeEventHandler _ Public Overloads Sub AddtblTelotec_ParamterRow(ByVal row As tblTelotec_ParamterRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTelotec_ParamterRow(ByVal tcParam_name As String, ByVal tcParam_value As String) As tblTelotec_ParamterRow Dim rowtblTelotec_ParamterRow As tblTelotec_ParamterRow = CType(Me.NewRow,tblTelotec_ParamterRow) Dim columnValuesArray() As Object = New Object() {tcParam_name, tcParam_value} rowtblTelotec_ParamterRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTelotec_ParamterRow) Return rowtblTelotec_ParamterRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTelotec_ParamterDataTable = CType(MyBase.Clone,tblTelotec_ParamterDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTelotec_ParamterDataTable() End Function _ Friend Sub InitVars() Me.columntcParam_name = MyBase.Columns("tcParam_name") Me.columntcParam_value = MyBase.Columns("tcParam_value") End Sub _ Private Sub InitClass() Me.columntcParam_name = New Global.System.Data.DataColumn("tcParam_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntcParam_name) Me.columntcParam_value = New Global.System.Data.DataColumn("tcParam_value", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntcParam_value) Me.columntcParam_name.AllowDBNull = false Me.columntcParam_name.MaxLength = 200 Me.columntcParam_value.AllowDBNull = false Me.columntcParam_value.MaxLength = 500 End Sub _ Public Function NewtblTelotec_ParamterRow() As tblTelotec_ParamterRow Return CType(Me.NewRow,tblTelotec_ParamterRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTelotec_ParamterRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTelotec_ParamterRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTelotec_ParamterRowChangedEvent) Is Nothing) Then RaiseEvent tblTelotec_ParamterRowChanged(Me, New tblTelotec_ParamterRowChangeEvent(CType(e.Row,tblTelotec_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTelotec_ParamterRowChangingEvent) Is Nothing) Then RaiseEvent tblTelotec_ParamterRowChanging(Me, New tblTelotec_ParamterRowChangeEvent(CType(e.Row,tblTelotec_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTelotec_ParamterRowDeletedEvent) Is Nothing) Then RaiseEvent tblTelotec_ParamterRowDeleted(Me, New tblTelotec_ParamterRowChangeEvent(CType(e.Row,tblTelotec_ParamterRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTelotec_ParamterRowDeletingEvent) Is Nothing) Then RaiseEvent tblTelotec_ParamterRowDeleting(Me, New tblTelotec_ParamterRowChangeEvent(CType(e.Row,tblTelotec_ParamterRow), e.Action)) End If End Sub _ Public Sub RemovetblTelotec_ParamterRow(ByVal row As tblTelotec_ParamterRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTelotec_ParamterDataTable" 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 tblTelotec_PositionsdatenDataTable Inherits Global.System.Data.TypedTableBase(Of tblTelotec_PositionsdatenRow) Private columntelpos_id As Global.System.Data.DataColumn Private columntelpos_telanmId As Global.System.Data.DataColumn Private columnMandant_ID As Global.System.Data.DataColumn Private columnBereich_ID As Global.System.Data.DataColumn Private columnReferenz_ID As Global.System.Data.DataColumn Private columnComIndicator As Global.System.Data.DataColumn Private columnPos_ID As Global.System.Data.DataColumn Private columnItem_Status As Global.System.Data.DataColumn Private columnItem_ComCd As Global.System.Data.DataColumn Private columnItem_GdsDes As Global.System.Data.DataColumn Private columnItem_Gross As Global.System.Data.DataColumn Private columnItem_Net As Global.System.Data.DataColumn Private columnItem_Orig As Global.System.Data.DataColumn Private columnItem_ProcCd As Global.System.Data.DataColumn Private columnItem_ProcAddCd As Global.System.Data.DataColumn Private columnItem_ItVal As Global.System.Data.DataColumn Private columnItem_Pref As Global.System.Data.DataColumn Private columnItem_Quota As Global.System.Data.DataColumn Private columnItem_ValMet As Global.System.Data.DataColumn Private columnItem_VATInd As Global.System.Data.DataColumn Private columnItem_StatVal As Global.System.Data.DataColumn Private columnSurvCO_Ref As Global.System.Data.DataColumn Private columnTelo_Artikel_ID As Global.System.Data.DataColumn Private columnTelo_Artikelmenge As Global.System.Data.DataColumn Private columnTelo_ArtikelMEH As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTelotec_Positionsdaten" 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 telpos_idColumn() As Global.System.Data.DataColumn Get Return Me.columntelpos_id End Get End Property _ Public ReadOnly Property telpos_telanmIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelpos_telanmId End Get End Property _ Public ReadOnly Property Mandant_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant_ID End Get End Property _ Public ReadOnly Property Bereich_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBereich_ID End Get End Property _ Public ReadOnly Property Referenz_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnReferenz_ID End Get End Property _ Public ReadOnly Property ComIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnComIndicator End Get End Property _ Public ReadOnly Property Pos_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPos_ID End Get End Property _ Public ReadOnly Property Item_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_Status End Get End Property _ Public ReadOnly Property Item_ComCdColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_ComCd End Get End Property _ Public ReadOnly Property Item_GdsDesColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_GdsDes End Get End Property _ Public ReadOnly Property Item_GrossColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_Gross End Get End Property _ Public ReadOnly Property Item_NetColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_Net End Get End Property _ Public ReadOnly Property Item_OrigColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_Orig End Get End Property _ Public ReadOnly Property Item_ProcCdColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_ProcCd End Get End Property _ Public ReadOnly Property Item_ProcAddCdColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_ProcAddCd End Get End Property _ Public ReadOnly Property Item_ItValColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_ItVal End Get End Property _ Public ReadOnly Property Item_PrefColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_Pref End Get End Property _ Public ReadOnly Property Item_QuotaColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_Quota End Get End Property _ Public ReadOnly Property Item_ValMetColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_ValMet End Get End Property _ Public ReadOnly Property Item_VATIndColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_VATInd End Get End Property _ Public ReadOnly Property Item_StatValColumn() As Global.System.Data.DataColumn Get Return Me.columnItem_StatVal End Get End Property _ Public ReadOnly Property SurvCO_RefColumn() As Global.System.Data.DataColumn Get Return Me.columnSurvCO_Ref End Get End Property _ Public ReadOnly Property Telo_Artikel_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTelo_Artikel_ID End Get End Property _ Public ReadOnly Property Telo_ArtikelmengeColumn() As Global.System.Data.DataColumn Get Return Me.columnTelo_Artikelmenge End Get End Property _ Public ReadOnly Property Telo_ArtikelMEHColumn() As Global.System.Data.DataColumn Get Return Me.columnTelo_ArtikelMEH 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 tblTelotec_PositionsdatenRow Get Return CType(Me.Rows(index),tblTelotec_PositionsdatenRow) End Get End Property _ Public Event tblTelotec_PositionsdatenRowChanging As tblTelotec_PositionsdatenRowChangeEventHandler _ Public Event tblTelotec_PositionsdatenRowChanged As tblTelotec_PositionsdatenRowChangeEventHandler _ Public Event tblTelotec_PositionsdatenRowDeleting As tblTelotec_PositionsdatenRowChangeEventHandler _ Public Event tblTelotec_PositionsdatenRowDeleted As tblTelotec_PositionsdatenRowChangeEventHandler _ Public Overloads Sub AddtblTelotec_PositionsdatenRow(ByVal row As tblTelotec_PositionsdatenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTelotec_PositionsdatenRow( _ ByVal telpos_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal Item_Status As String, _ ByVal Item_ComCd As String, _ ByVal Item_GdsDes As String, _ ByVal Item_Gross As Decimal, _ ByVal Item_Net As Decimal, _ ByVal Item_Orig As String, _ ByVal Item_ProcCd As Integer, _ ByVal Item_ProcAddCd As String, _ ByVal Item_ItVal As Decimal, _ ByVal Item_Pref As String, _ ByVal Item_Quota As Integer, _ ByVal Item_ValMet As Integer, _ ByVal Item_VATInd As Boolean, _ ByVal Item_StatVal As Decimal, _ ByVal SurvCO_Ref As String, _ ByVal Telo_Artikel_ID As String, _ ByVal Telo_Artikelmenge As Decimal, _ ByVal Telo_ArtikelMEH As String) As tblTelotec_PositionsdatenRow Dim rowtblTelotec_PositionsdatenRow As tblTelotec_PositionsdatenRow = CType(Me.NewRow,tblTelotec_PositionsdatenRow) Dim columnValuesArray() As Object = New Object() {Nothing, telpos_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, Item_Status, Item_ComCd, Item_GdsDes, Item_Gross, Item_Net, Item_Orig, Item_ProcCd, Item_ProcAddCd, Item_ItVal, Item_Pref, Item_Quota, Item_ValMet, Item_VATInd, Item_StatVal, SurvCO_Ref, Telo_Artikel_ID, Telo_Artikelmenge, Telo_ArtikelMEH} rowtblTelotec_PositionsdatenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTelotec_PositionsdatenRow) Return rowtblTelotec_PositionsdatenRow End Function _ Public Function FindBytelpos_id(ByVal telpos_id As Integer) As tblTelotec_PositionsdatenRow Return CType(Me.Rows.Find(New Object() {telpos_id}),tblTelotec_PositionsdatenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTelotec_PositionsdatenDataTable = CType(MyBase.Clone,tblTelotec_PositionsdatenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTelotec_PositionsdatenDataTable() End Function _ Friend Sub InitVars() Me.columntelpos_id = MyBase.Columns("telpos_id") Me.columntelpos_telanmId = MyBase.Columns("telpos_telanmId") Me.columnMandant_ID = MyBase.Columns("Mandant_ID") Me.columnBereich_ID = MyBase.Columns("Bereich_ID") Me.columnReferenz_ID = MyBase.Columns("Referenz_ID") Me.columnComIndicator = MyBase.Columns("ComIndicator") Me.columnPos_ID = MyBase.Columns("Pos_ID") Me.columnItem_Status = MyBase.Columns("Item_Status") Me.columnItem_ComCd = MyBase.Columns("Item_ComCd") Me.columnItem_GdsDes = MyBase.Columns("Item_GdsDes") Me.columnItem_Gross = MyBase.Columns("Item_Gross") Me.columnItem_Net = MyBase.Columns("Item_Net") Me.columnItem_Orig = MyBase.Columns("Item_Orig") Me.columnItem_ProcCd = MyBase.Columns("Item_ProcCd") Me.columnItem_ProcAddCd = MyBase.Columns("Item_ProcAddCd") Me.columnItem_ItVal = MyBase.Columns("Item_ItVal") Me.columnItem_Pref = MyBase.Columns("Item_Pref") Me.columnItem_Quota = MyBase.Columns("Item_Quota") Me.columnItem_ValMet = MyBase.Columns("Item_ValMet") Me.columnItem_VATInd = MyBase.Columns("Item_VATInd") Me.columnItem_StatVal = MyBase.Columns("Item_StatVal") Me.columnSurvCO_Ref = MyBase.Columns("SurvCO_Ref") Me.columnTelo_Artikel_ID = MyBase.Columns("Telo_Artikel_ID") Me.columnTelo_Artikelmenge = MyBase.Columns("Telo_Artikelmenge") Me.columnTelo_ArtikelMEH = MyBase.Columns("Telo_ArtikelMEH") End Sub _ Private Sub InitClass() Me.columntelpos_id = New Global.System.Data.DataColumn("telpos_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelpos_id) Me.columntelpos_telanmId = New Global.System.Data.DataColumn("telpos_telanmId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelpos_telanmId) Me.columnMandant_ID = New Global.System.Data.DataColumn("Mandant_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant_ID) Me.columnBereich_ID = New Global.System.Data.DataColumn("Bereich_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBereich_ID) Me.columnReferenz_ID = New Global.System.Data.DataColumn("Referenz_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReferenz_ID) Me.columnComIndicator = New Global.System.Data.DataColumn("ComIndicator", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComIndicator) Me.columnPos_ID = New Global.System.Data.DataColumn("Pos_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPos_ID) Me.columnItem_Status = New Global.System.Data.DataColumn("Item_Status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_Status) Me.columnItem_ComCd = New Global.System.Data.DataColumn("Item_ComCd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_ComCd) Me.columnItem_GdsDes = New Global.System.Data.DataColumn("Item_GdsDes", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_GdsDes) Me.columnItem_Gross = New Global.System.Data.DataColumn("Item_Gross", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_Gross) Me.columnItem_Net = New Global.System.Data.DataColumn("Item_Net", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_Net) Me.columnItem_Orig = New Global.System.Data.DataColumn("Item_Orig", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_Orig) Me.columnItem_ProcCd = New Global.System.Data.DataColumn("Item_ProcCd", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_ProcCd) Me.columnItem_ProcAddCd = New Global.System.Data.DataColumn("Item_ProcAddCd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_ProcAddCd) Me.columnItem_ItVal = New Global.System.Data.DataColumn("Item_ItVal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_ItVal) Me.columnItem_Pref = New Global.System.Data.DataColumn("Item_Pref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_Pref) Me.columnItem_Quota = New Global.System.Data.DataColumn("Item_Quota", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_Quota) Me.columnItem_ValMet = New Global.System.Data.DataColumn("Item_ValMet", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_ValMet) Me.columnItem_VATInd = New Global.System.Data.DataColumn("Item_VATInd", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_VATInd) Me.columnItem_StatVal = New Global.System.Data.DataColumn("Item_StatVal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItem_StatVal) Me.columnSurvCO_Ref = New Global.System.Data.DataColumn("SurvCO_Ref", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSurvCO_Ref) Me.columnTelo_Artikel_ID = New Global.System.Data.DataColumn("Telo_Artikel_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelo_Artikel_ID) Me.columnTelo_Artikelmenge = New Global.System.Data.DataColumn("Telo_Artikelmenge", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelo_Artikelmenge) Me.columnTelo_ArtikelMEH = New Global.System.Data.DataColumn("Telo_ArtikelMEH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelo_ArtikelMEH) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntelpos_id}, true)) Me.columntelpos_id.AutoIncrement = true Me.columntelpos_id.AutoIncrementSeed = -1 Me.columntelpos_id.AutoIncrementStep = -1 Me.columntelpos_id.AllowDBNull = false Me.columntelpos_id.ReadOnly = true Me.columntelpos_id.Unique = true Me.columntelpos_telanmId.AllowDBNull = false Me.columnMandant_ID.AllowDBNull = false Me.columnMandant_ID.MaxLength = 6 Me.columnBereich_ID.AllowDBNull = false Me.columnBereich_ID.MaxLength = 6 Me.columnReferenz_ID.AllowDBNull = false Me.columnReferenz_ID.MaxLength = 36 Me.columnComIndicator.AllowDBNull = false Me.columnPos_ID.AllowDBNull = false Me.columnItem_Status.MaxLength = 4 Me.columnItem_ComCd.MaxLength = 10 Me.columnItem_GdsDes.AllowDBNull = false Me.columnItem_GdsDes.MaxLength = 280 Me.columnItem_Orig.MaxLength = 2 Me.columnItem_ProcAddCd.MaxLength = 3 Me.columnItem_Pref.MaxLength = 3 Me.columnSurvCO_Ref.MaxLength = 8 Me.columnTelo_Artikel_ID.MaxLength = 20 Me.columnTelo_ArtikelMEH.MaxLength = 4 End Sub _ Public Function NewtblTelotec_PositionsdatenRow() As tblTelotec_PositionsdatenRow Return CType(Me.NewRow,tblTelotec_PositionsdatenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTelotec_PositionsdatenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTelotec_PositionsdatenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTelotec_PositionsdatenRowChangedEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenRowChanged(Me, New tblTelotec_PositionsdatenRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTelotec_PositionsdatenRowChangingEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenRowChanging(Me, New tblTelotec_PositionsdatenRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTelotec_PositionsdatenRowDeletedEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenRowDeleted(Me, New tblTelotec_PositionsdatenRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTelotec_PositionsdatenRowDeletingEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenRowDeleting(Me, New tblTelotec_PositionsdatenRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenRow), e.Action)) End If End Sub _ Public Sub RemovetblTelotec_PositionsdatenRow(ByVal row As tblTelotec_PositionsdatenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTelotec_PositionsdatenDataTable" 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 tblTelotec_PositionsdatenAbgabenDataTable Inherits Global.System.Data.TypedTableBase(Of tblTelotec_PositionsdatenAbgabenRow) Private columntelposAbg_id As Global.System.Data.DataColumn Private columntelposAbg_telposId As Global.System.Data.DataColumn Private columntelposAbg_telanmId As Global.System.Data.DataColumn Private columnMandant_ID As Global.System.Data.DataColumn Private columnBereich_ID As Global.System.Data.DataColumn Private columnReferenz_ID As Global.System.Data.DataColumn Private columnComIndicator As Global.System.Data.DataColumn Private columnPos_ID As Global.System.Data.DataColumn Private columnDutyCalc_ID As Global.System.Data.DataColumn Private columnTy As Global.System.Data.DataColumn Private columnBaseD As Global.System.Data.DataColumn Private columnCurr As Global.System.Data.DataColumn Private columnUnit As Global.System.Data.DataColumn Private columnBase As Global.System.Data.DataColumn Private columnRate As Global.System.Data.DataColumn Private columnRateUsed As Global.System.Data.DataColumn Private columnAmnt As Global.System.Data.DataColumn Private columnMeaID As Global.System.Data.DataColumn Private columnTyInd As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTelotec_PositionsdatenAbgaben" 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 telposAbg_idColumn() As Global.System.Data.DataColumn Get Return Me.columntelposAbg_id End Get End Property _ Public ReadOnly Property telposAbg_telposIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelposAbg_telposId End Get End Property _ Public ReadOnly Property telposAbg_telanmIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelposAbg_telanmId End Get End Property _ Public ReadOnly Property Mandant_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant_ID End Get End Property _ Public ReadOnly Property Bereich_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBereich_ID End Get End Property _ Public ReadOnly Property Referenz_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnReferenz_ID End Get End Property _ Public ReadOnly Property ComIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnComIndicator End Get End Property _ Public ReadOnly Property Pos_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPos_ID End Get End Property _ Public ReadOnly Property DutyCalc_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDutyCalc_ID End Get End Property _ Public ReadOnly Property TyColumn() As Global.System.Data.DataColumn Get Return Me.columnTy End Get End Property _ Public ReadOnly Property BaseDColumn() As Global.System.Data.DataColumn Get Return Me.columnBaseD End Get End Property _ Public ReadOnly Property CurrColumn() As Global.System.Data.DataColumn Get Return Me.columnCurr End Get End Property _ Public ReadOnly Property UnitColumn() As Global.System.Data.DataColumn Get Return Me.columnUnit End Get End Property _ Public ReadOnly Property BaseColumn() As Global.System.Data.DataColumn Get Return Me.columnBase End Get End Property _ Public ReadOnly Property RateColumn() As Global.System.Data.DataColumn Get Return Me.columnRate End Get End Property _ Public ReadOnly Property RateUsedColumn() As Global.System.Data.DataColumn Get Return Me.columnRateUsed End Get End Property _ Public ReadOnly Property AmntColumn() As Global.System.Data.DataColumn Get Return Me.columnAmnt End Get End Property _ Public ReadOnly Property MeaIDColumn() As Global.System.Data.DataColumn Get Return Me.columnMeaID End Get End Property _ Public ReadOnly Property TyIndColumn() As Global.System.Data.DataColumn Get Return Me.columnTyInd 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 tblTelotec_PositionsdatenAbgabenRow Get Return CType(Me.Rows(index),tblTelotec_PositionsdatenAbgabenRow) End Get End Property _ Public Event tblTelotec_PositionsdatenAbgabenRowChanging As tblTelotec_PositionsdatenAbgabenRowChangeEventHandler _ Public Event tblTelotec_PositionsdatenAbgabenRowChanged As tblTelotec_PositionsdatenAbgabenRowChangeEventHandler _ Public Event tblTelotec_PositionsdatenAbgabenRowDeleting As tblTelotec_PositionsdatenAbgabenRowChangeEventHandler _ Public Event tblTelotec_PositionsdatenAbgabenRowDeleted As tblTelotec_PositionsdatenAbgabenRowChangeEventHandler _ Public Overloads Sub AddtblTelotec_PositionsdatenAbgabenRow(ByVal row As tblTelotec_PositionsdatenAbgabenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTelotec_PositionsdatenAbgabenRow( _ ByVal telposAbg_telposId As Integer, _ ByVal telposAbg_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal DutyCalc_ID As Integer, _ ByVal Ty As String, _ ByVal BaseD As Date, _ ByVal Curr As String, _ ByVal Unit As String, _ ByVal Base As Decimal, _ ByVal Rate As String, _ ByVal RateUsed As String, _ ByVal Amnt As Decimal, _ ByVal MeaID As Integer, _ ByVal TyInd As String) As tblTelotec_PositionsdatenAbgabenRow Dim rowtblTelotec_PositionsdatenAbgabenRow As tblTelotec_PositionsdatenAbgabenRow = CType(Me.NewRow,tblTelotec_PositionsdatenAbgabenRow) Dim columnValuesArray() As Object = New Object() {Nothing, telposAbg_telposId, telposAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, DutyCalc_ID, Ty, BaseD, Curr, Unit, Base, Rate, RateUsed, Amnt, MeaID, TyInd} rowtblTelotec_PositionsdatenAbgabenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTelotec_PositionsdatenAbgabenRow) Return rowtblTelotec_PositionsdatenAbgabenRow End Function _ Public Function FindBytelposAbg_id(ByVal telposAbg_id As Integer) As tblTelotec_PositionsdatenAbgabenRow Return CType(Me.Rows.Find(New Object() {telposAbg_id}),tblTelotec_PositionsdatenAbgabenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTelotec_PositionsdatenAbgabenDataTable = CType(MyBase.Clone,tblTelotec_PositionsdatenAbgabenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTelotec_PositionsdatenAbgabenDataTable() End Function _ Friend Sub InitVars() Me.columntelposAbg_id = MyBase.Columns("telposAbg_id") Me.columntelposAbg_telposId = MyBase.Columns("telposAbg_telposId") Me.columntelposAbg_telanmId = MyBase.Columns("telposAbg_telanmId") Me.columnMandant_ID = MyBase.Columns("Mandant_ID") Me.columnBereich_ID = MyBase.Columns("Bereich_ID") Me.columnReferenz_ID = MyBase.Columns("Referenz_ID") Me.columnComIndicator = MyBase.Columns("ComIndicator") Me.columnPos_ID = MyBase.Columns("Pos_ID") Me.columnDutyCalc_ID = MyBase.Columns("DutyCalc_ID") Me.columnTy = MyBase.Columns("Ty") Me.columnBaseD = MyBase.Columns("BaseD") Me.columnCurr = MyBase.Columns("Curr") Me.columnUnit = MyBase.Columns("Unit") Me.columnBase = MyBase.Columns("Base") Me.columnRate = MyBase.Columns("Rate") Me.columnRateUsed = MyBase.Columns("RateUsed") Me.columnAmnt = MyBase.Columns("Amnt") Me.columnMeaID = MyBase.Columns("MeaID") Me.columnTyInd = MyBase.Columns("TyInd") End Sub _ Private Sub InitClass() Me.columntelposAbg_id = New Global.System.Data.DataColumn("telposAbg_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelposAbg_id) Me.columntelposAbg_telposId = New Global.System.Data.DataColumn("telposAbg_telposId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelposAbg_telposId) Me.columntelposAbg_telanmId = New Global.System.Data.DataColumn("telposAbg_telanmId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelposAbg_telanmId) Me.columnMandant_ID = New Global.System.Data.DataColumn("Mandant_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant_ID) Me.columnBereich_ID = New Global.System.Data.DataColumn("Bereich_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBereich_ID) Me.columnReferenz_ID = New Global.System.Data.DataColumn("Referenz_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReferenz_ID) Me.columnComIndicator = New Global.System.Data.DataColumn("ComIndicator", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComIndicator) Me.columnPos_ID = New Global.System.Data.DataColumn("Pos_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPos_ID) Me.columnDutyCalc_ID = New Global.System.Data.DataColumn("DutyCalc_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDutyCalc_ID) Me.columnTy = New Global.System.Data.DataColumn("Ty", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTy) Me.columnBaseD = New Global.System.Data.DataColumn("BaseD", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBaseD) Me.columnCurr = New Global.System.Data.DataColumn("Curr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCurr) Me.columnUnit = New Global.System.Data.DataColumn("Unit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnit) Me.columnBase = New Global.System.Data.DataColumn("Base", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBase) Me.columnRate = New Global.System.Data.DataColumn("Rate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRate) Me.columnRateUsed = New Global.System.Data.DataColumn("RateUsed", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRateUsed) Me.columnAmnt = New Global.System.Data.DataColumn("Amnt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAmnt) Me.columnMeaID = New Global.System.Data.DataColumn("MeaID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMeaID) Me.columnTyInd = New Global.System.Data.DataColumn("TyInd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTyInd) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntelposAbg_id}, true)) Me.columntelposAbg_id.AutoIncrement = true Me.columntelposAbg_id.AutoIncrementSeed = -1 Me.columntelposAbg_id.AutoIncrementStep = -1 Me.columntelposAbg_id.AllowDBNull = false Me.columntelposAbg_id.ReadOnly = true Me.columntelposAbg_id.Unique = true Me.columntelposAbg_telposId.AllowDBNull = false Me.columntelposAbg_telanmId.AllowDBNull = false Me.columnMandant_ID.AllowDBNull = false Me.columnMandant_ID.MaxLength = 6 Me.columnBereich_ID.AllowDBNull = false Me.columnBereich_ID.MaxLength = 6 Me.columnReferenz_ID.AllowDBNull = false Me.columnReferenz_ID.MaxLength = 36 Me.columnComIndicator.AllowDBNull = false Me.columnPos_ID.AllowDBNull = false Me.columnDutyCalc_ID.AllowDBNull = false Me.columnTy.MaxLength = 3 Me.columnCurr.MaxLength = 3 Me.columnUnit.MaxLength = 4 Me.columnRate.MaxLength = 200 Me.columnRateUsed.MaxLength = 200 Me.columnTyInd.MaxLength = 1 End Sub _ Public Function NewtblTelotec_PositionsdatenAbgabenRow() As tblTelotec_PositionsdatenAbgabenRow Return CType(Me.NewRow,tblTelotec_PositionsdatenAbgabenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTelotec_PositionsdatenAbgabenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTelotec_PositionsdatenAbgabenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTelotec_PositionsdatenAbgabenRowChangedEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenAbgabenRowChanged(Me, New tblTelotec_PositionsdatenAbgabenRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenAbgabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTelotec_PositionsdatenAbgabenRowChangingEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenAbgabenRowChanging(Me, New tblTelotec_PositionsdatenAbgabenRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenAbgabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTelotec_PositionsdatenAbgabenRowDeletedEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenAbgabenRowDeleted(Me, New tblTelotec_PositionsdatenAbgabenRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenAbgabenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTelotec_PositionsdatenAbgabenRowDeletingEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenAbgabenRowDeleting(Me, New tblTelotec_PositionsdatenAbgabenRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenAbgabenRow), e.Action)) End If End Sub _ Public Sub RemovetblTelotec_PositionsdatenAbgabenRow(ByVal row As tblTelotec_PositionsdatenAbgabenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTelotec_PositionsdatenAbgabenDataTable" 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 tblTelotec_PositionsdatenDokumenteDataTable Inherits Global.System.Data.TypedTableBase(Of tblTelotec_PositionsdatenDokumenteRow) Private columntelposAbg_id As Global.System.Data.DataColumn Private columntelposAbg_telposId As Global.System.Data.DataColumn Private columntelposAbg_telanmId As Global.System.Data.DataColumn Private columnMandant_ID As Global.System.Data.DataColumn Private columnBereich_ID As Global.System.Data.DataColumn Private columnReferenz_ID As Global.System.Data.DataColumn Private columnComIndicator As Global.System.Data.DataColumn Private columnPos_ID As Global.System.Data.DataColumn Private columnDocCerts_ID As Global.System.Data.DataColumn Private columnDocCerts_DocCd As Global.System.Data.DataColumn Private columnDocCerts_DTy As Global.System.Data.DataColumn Private columnDocCerts_DRef As Global.System.Data.DataColumn Private columnDocCerts_IssD As Global.System.Data.DataColumn Private columnDocCerts_IssCtry As Global.System.Data.DataColumn Private columnDocCerts_DTIN As Global.System.Data.DataColumn Private columnDocCerts_UidVid As Global.System.Data.DataColumn Private columnDocCerts_ValD As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTelotec_PositionsdatenDokumente" 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 telposAbg_idColumn() As Global.System.Data.DataColumn Get Return Me.columntelposAbg_id End Get End Property _ Public ReadOnly Property telposAbg_telposIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelposAbg_telposId End Get End Property _ Public ReadOnly Property telposAbg_telanmIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelposAbg_telanmId End Get End Property _ Public ReadOnly Property Mandant_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant_ID End Get End Property _ Public ReadOnly Property Bereich_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBereich_ID End Get End Property _ Public ReadOnly Property Referenz_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnReferenz_ID End Get End Property _ Public ReadOnly Property ComIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnComIndicator End Get End Property _ Public ReadOnly Property Pos_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPos_ID End Get End Property _ Public ReadOnly Property DocCerts_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDocCerts_ID End Get End Property _ Public ReadOnly Property DocCerts_DocCdColumn() As Global.System.Data.DataColumn Get Return Me.columnDocCerts_DocCd End Get End Property _ Public ReadOnly Property DocCerts_DTyColumn() As Global.System.Data.DataColumn Get Return Me.columnDocCerts_DTy End Get End Property _ Public ReadOnly Property DocCerts_DRefColumn() As Global.System.Data.DataColumn Get Return Me.columnDocCerts_DRef End Get End Property _ Public ReadOnly Property DocCerts_IssDColumn() As Global.System.Data.DataColumn Get Return Me.columnDocCerts_IssD End Get End Property _ Public ReadOnly Property DocCerts_IssCtryColumn() As Global.System.Data.DataColumn Get Return Me.columnDocCerts_IssCtry End Get End Property _ Public ReadOnly Property DocCerts_DTINColumn() As Global.System.Data.DataColumn Get Return Me.columnDocCerts_DTIN End Get End Property _ Public ReadOnly Property DocCerts_UidVidColumn() As Global.System.Data.DataColumn Get Return Me.columnDocCerts_UidVid End Get End Property _ Public ReadOnly Property DocCerts_ValDColumn() As Global.System.Data.DataColumn Get Return Me.columnDocCerts_ValD 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 tblTelotec_PositionsdatenDokumenteRow Get Return CType(Me.Rows(index),tblTelotec_PositionsdatenDokumenteRow) End Get End Property _ Public Event tblTelotec_PositionsdatenDokumenteRowChanging As tblTelotec_PositionsdatenDokumenteRowChangeEventHandler _ Public Event tblTelotec_PositionsdatenDokumenteRowChanged As tblTelotec_PositionsdatenDokumenteRowChangeEventHandler _ Public Event tblTelotec_PositionsdatenDokumenteRowDeleting As tblTelotec_PositionsdatenDokumenteRowChangeEventHandler _ Public Event tblTelotec_PositionsdatenDokumenteRowDeleted As tblTelotec_PositionsdatenDokumenteRowChangeEventHandler _ Public Overloads Sub AddtblTelotec_PositionsdatenDokumenteRow(ByVal row As tblTelotec_PositionsdatenDokumenteRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTelotec_PositionsdatenDokumenteRow( _ ByVal telposAbg_telposId As Integer, _ ByVal telposAbg_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal DocCerts_ID As Integer, _ ByVal DocCerts_DocCd As String, _ ByVal DocCerts_DTy As String, _ ByVal DocCerts_DRef As String, _ ByVal DocCerts_IssD As Date, _ ByVal DocCerts_IssCtry As String, _ ByVal DocCerts_DTIN As String, _ ByVal DocCerts_UidVid As String, _ ByVal DocCerts_ValD As Date) As tblTelotec_PositionsdatenDokumenteRow Dim rowtblTelotec_PositionsdatenDokumenteRow As tblTelotec_PositionsdatenDokumenteRow = CType(Me.NewRow,tblTelotec_PositionsdatenDokumenteRow) Dim columnValuesArray() As Object = New Object() {Nothing, telposAbg_telposId, telposAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, DocCerts_ID, DocCerts_DocCd, DocCerts_DTy, DocCerts_DRef, DocCerts_IssD, DocCerts_IssCtry, DocCerts_DTIN, DocCerts_UidVid, DocCerts_ValD} rowtblTelotec_PositionsdatenDokumenteRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTelotec_PositionsdatenDokumenteRow) Return rowtblTelotec_PositionsdatenDokumenteRow End Function _ Public Function FindBytelposAbg_id(ByVal telposAbg_id As Integer) As tblTelotec_PositionsdatenDokumenteRow Return CType(Me.Rows.Find(New Object() {telposAbg_id}),tblTelotec_PositionsdatenDokumenteRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTelotec_PositionsdatenDokumenteDataTable = CType(MyBase.Clone,tblTelotec_PositionsdatenDokumenteDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTelotec_PositionsdatenDokumenteDataTable() End Function _ Friend Sub InitVars() Me.columntelposAbg_id = MyBase.Columns("telposAbg_id") Me.columntelposAbg_telposId = MyBase.Columns("telposAbg_telposId") Me.columntelposAbg_telanmId = MyBase.Columns("telposAbg_telanmId") Me.columnMandant_ID = MyBase.Columns("Mandant_ID") Me.columnBereich_ID = MyBase.Columns("Bereich_ID") Me.columnReferenz_ID = MyBase.Columns("Referenz_ID") Me.columnComIndicator = MyBase.Columns("ComIndicator") Me.columnPos_ID = MyBase.Columns("Pos_ID") Me.columnDocCerts_ID = MyBase.Columns("DocCerts_ID") Me.columnDocCerts_DocCd = MyBase.Columns("DocCerts_DocCd") Me.columnDocCerts_DTy = MyBase.Columns("DocCerts_DTy") Me.columnDocCerts_DRef = MyBase.Columns("DocCerts_DRef") Me.columnDocCerts_IssD = MyBase.Columns("DocCerts_IssD") Me.columnDocCerts_IssCtry = MyBase.Columns("DocCerts_IssCtry") Me.columnDocCerts_DTIN = MyBase.Columns("DocCerts_DTIN") Me.columnDocCerts_UidVid = MyBase.Columns("DocCerts_UidVid") Me.columnDocCerts_ValD = MyBase.Columns("DocCerts_ValD") End Sub _ Private Sub InitClass() Me.columntelposAbg_id = New Global.System.Data.DataColumn("telposAbg_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelposAbg_id) Me.columntelposAbg_telposId = New Global.System.Data.DataColumn("telposAbg_telposId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelposAbg_telposId) Me.columntelposAbg_telanmId = New Global.System.Data.DataColumn("telposAbg_telanmId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelposAbg_telanmId) Me.columnMandant_ID = New Global.System.Data.DataColumn("Mandant_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant_ID) Me.columnBereich_ID = New Global.System.Data.DataColumn("Bereich_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBereich_ID) Me.columnReferenz_ID = New Global.System.Data.DataColumn("Referenz_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReferenz_ID) Me.columnComIndicator = New Global.System.Data.DataColumn("ComIndicator", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComIndicator) Me.columnPos_ID = New Global.System.Data.DataColumn("Pos_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPos_ID) Me.columnDocCerts_ID = New Global.System.Data.DataColumn("DocCerts_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocCerts_ID) Me.columnDocCerts_DocCd = New Global.System.Data.DataColumn("DocCerts_DocCd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocCerts_DocCd) Me.columnDocCerts_DTy = New Global.System.Data.DataColumn("DocCerts_DTy", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocCerts_DTy) Me.columnDocCerts_DRef = New Global.System.Data.DataColumn("DocCerts_DRef", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocCerts_DRef) Me.columnDocCerts_IssD = New Global.System.Data.DataColumn("DocCerts_IssD", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocCerts_IssD) Me.columnDocCerts_IssCtry = New Global.System.Data.DataColumn("DocCerts_IssCtry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocCerts_IssCtry) Me.columnDocCerts_DTIN = New Global.System.Data.DataColumn("DocCerts_DTIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocCerts_DTIN) Me.columnDocCerts_UidVid = New Global.System.Data.DataColumn("DocCerts_UidVid", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocCerts_UidVid) Me.columnDocCerts_ValD = New Global.System.Data.DataColumn("DocCerts_ValD", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocCerts_ValD) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntelposAbg_id}, true)) Me.columntelposAbg_id.AutoIncrement = true Me.columntelposAbg_id.AutoIncrementSeed = -1 Me.columntelposAbg_id.AutoIncrementStep = -1 Me.columntelposAbg_id.AllowDBNull = false Me.columntelposAbg_id.ReadOnly = true Me.columntelposAbg_id.Unique = true Me.columntelposAbg_telposId.AllowDBNull = false Me.columntelposAbg_telanmId.AllowDBNull = false Me.columnMandant_ID.AllowDBNull = false Me.columnMandant_ID.MaxLength = 6 Me.columnBereich_ID.AllowDBNull = false Me.columnBereich_ID.MaxLength = 6 Me.columnReferenz_ID.AllowDBNull = false Me.columnReferenz_ID.MaxLength = 36 Me.columnComIndicator.AllowDBNull = false Me.columnPos_ID.AllowDBNull = false Me.columnDocCerts_DocCd.MaxLength = 4 Me.columnDocCerts_DTy.MaxLength = 140 Me.columnDocCerts_DRef.MaxLength = 35 Me.columnDocCerts_IssCtry.MaxLength = 2 Me.columnDocCerts_DTIN.MaxLength = 17 Me.columnDocCerts_UidVid.MaxLength = 25 End Sub _ Public Function NewtblTelotec_PositionsdatenDokumenteRow() As tblTelotec_PositionsdatenDokumenteRow Return CType(Me.NewRow,tblTelotec_PositionsdatenDokumenteRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTelotec_PositionsdatenDokumenteRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTelotec_PositionsdatenDokumenteRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTelotec_PositionsdatenDokumenteRowChangedEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenDokumenteRowChanged(Me, New tblTelotec_PositionsdatenDokumenteRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenDokumenteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTelotec_PositionsdatenDokumenteRowChangingEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenDokumenteRowChanging(Me, New tblTelotec_PositionsdatenDokumenteRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenDokumenteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTelotec_PositionsdatenDokumenteRowDeletedEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenDokumenteRowDeleted(Me, New tblTelotec_PositionsdatenDokumenteRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenDokumenteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTelotec_PositionsdatenDokumenteRowDeletingEvent) Is Nothing) Then RaiseEvent tblTelotec_PositionsdatenDokumenteRowDeleting(Me, New tblTelotec_PositionsdatenDokumenteRowChangeEvent(CType(e.Row,tblTelotec_PositionsdatenDokumenteRow), e.Action)) End If End Sub _ Public Sub RemovetblTelotec_PositionsdatenDokumenteRow(ByVal row As tblTelotec_PositionsdatenDokumenteRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTelotec_PositionsdatenDokumenteDataTable" 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 tblTelotec_SicherheitDataTable Inherits Global.System.Data.TypedTableBase(Of tblTelotec_SicherheitRow) Private columntelgrt_id As Global.System.Data.DataColumn Private columntelgrt_telanmId As Global.System.Data.DataColumn Private columnMandant_ID As Global.System.Data.DataColumn Private columnBereich_ID As Global.System.Data.DataColumn Private columnReferenz_ID As Global.System.Data.DataColumn Private columnComIndicator As Global.System.Data.DataColumn Private columnGrteeRef_ID As Global.System.Data.DataColumn Private columnGrteeRef_GTy As Global.System.Data.DataColumn Private columnGRN As Global.System.Data.DataColumn Private columnOGR As Global.System.Data.DataColumn Private columnAcc As Global.System.Data.DataColumn Private columnGTIN As Global.System.Data.DataColumn Private columnGVal As Global.System.Data.DataColumn Private columnCurr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTelotec_Sicherheit" 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 telgrt_idColumn() As Global.System.Data.DataColumn Get Return Me.columntelgrt_id End Get End Property _ Public ReadOnly Property telgrt_telanmIdColumn() As Global.System.Data.DataColumn Get Return Me.columntelgrt_telanmId End Get End Property _ Public ReadOnly Property Mandant_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant_ID End Get End Property _ Public ReadOnly Property Bereich_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBereich_ID End Get End Property _ Public ReadOnly Property Referenz_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnReferenz_ID End Get End Property _ Public ReadOnly Property ComIndicatorColumn() As Global.System.Data.DataColumn Get Return Me.columnComIndicator End Get End Property _ Public ReadOnly Property GrteeRef_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGrteeRef_ID End Get End Property _ Public ReadOnly Property GrteeRef_GTyColumn() As Global.System.Data.DataColumn Get Return Me.columnGrteeRef_GTy End Get End Property _ Public ReadOnly Property GRNColumn() As Global.System.Data.DataColumn Get Return Me.columnGRN End Get End Property _ Public ReadOnly Property OGRColumn() As Global.System.Data.DataColumn Get Return Me.columnOGR End Get End Property _ Public ReadOnly Property AccColumn() As Global.System.Data.DataColumn Get Return Me.columnAcc End Get End Property _ Public ReadOnly Property GTINColumn() As Global.System.Data.DataColumn Get Return Me.columnGTIN End Get End Property _ Public ReadOnly Property GValColumn() As Global.System.Data.DataColumn Get Return Me.columnGVal End Get End Property _ Public ReadOnly Property CurrColumn() As Global.System.Data.DataColumn Get Return Me.columnCurr 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 tblTelotec_SicherheitRow Get Return CType(Me.Rows(index),tblTelotec_SicherheitRow) End Get End Property _ Public Event tblTelotec_SicherheitRowChanging As tblTelotec_SicherheitRowChangeEventHandler _ Public Event tblTelotec_SicherheitRowChanged As tblTelotec_SicherheitRowChangeEventHandler _ Public Event tblTelotec_SicherheitRowDeleting As tblTelotec_SicherheitRowChangeEventHandler _ Public Event tblTelotec_SicherheitRowDeleted As tblTelotec_SicherheitRowChangeEventHandler _ Public Overloads Sub AddtblTelotec_SicherheitRow(ByVal row As tblTelotec_SicherheitRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTelotec_SicherheitRow(ByVal telgrt_telanmId As Integer, ByVal Mandant_ID As String, ByVal Bereich_ID As String, ByVal Referenz_ID As String, ByVal ComIndicator As Boolean, ByVal GrteeRef_ID As Integer, ByVal GrteeRef_GTy As String, ByVal GRN As String, ByVal OGR As String, ByVal Acc As String, ByVal GTIN As String, ByVal GVal As Decimal, ByVal Curr As String) As tblTelotec_SicherheitRow Dim rowtblTelotec_SicherheitRow As tblTelotec_SicherheitRow = CType(Me.NewRow,tblTelotec_SicherheitRow) Dim columnValuesArray() As Object = New Object() {Nothing, telgrt_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, GrteeRef_ID, GrteeRef_GTy, GRN, OGR, Acc, GTIN, GVal, Curr} rowtblTelotec_SicherheitRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTelotec_SicherheitRow) Return rowtblTelotec_SicherheitRow End Function _ Public Function FindBytelgrt_id(ByVal telgrt_id As Integer) As tblTelotec_SicherheitRow Return CType(Me.Rows.Find(New Object() {telgrt_id}),tblTelotec_SicherheitRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTelotec_SicherheitDataTable = CType(MyBase.Clone,tblTelotec_SicherheitDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTelotec_SicherheitDataTable() End Function _ Friend Sub InitVars() Me.columntelgrt_id = MyBase.Columns("telgrt_id") Me.columntelgrt_telanmId = MyBase.Columns("telgrt_telanmId") Me.columnMandant_ID = MyBase.Columns("Mandant_ID") Me.columnBereich_ID = MyBase.Columns("Bereich_ID") Me.columnReferenz_ID = MyBase.Columns("Referenz_ID") Me.columnComIndicator = MyBase.Columns("ComIndicator") Me.columnGrteeRef_ID = MyBase.Columns("GrteeRef_ID") Me.columnGrteeRef_GTy = MyBase.Columns("GrteeRef_GTy") Me.columnGRN = MyBase.Columns("GRN") Me.columnOGR = MyBase.Columns("OGR") Me.columnAcc = MyBase.Columns("Acc") Me.columnGTIN = MyBase.Columns("GTIN") Me.columnGVal = MyBase.Columns("GVal") Me.columnCurr = MyBase.Columns("Curr") End Sub _ Private Sub InitClass() Me.columntelgrt_id = New Global.System.Data.DataColumn("telgrt_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelgrt_id) Me.columntelgrt_telanmId = New Global.System.Data.DataColumn("telgrt_telanmId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntelgrt_telanmId) Me.columnMandant_ID = New Global.System.Data.DataColumn("Mandant_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant_ID) Me.columnBereich_ID = New Global.System.Data.DataColumn("Bereich_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBereich_ID) Me.columnReferenz_ID = New Global.System.Data.DataColumn("Referenz_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReferenz_ID) Me.columnComIndicator = New Global.System.Data.DataColumn("ComIndicator", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComIndicator) Me.columnGrteeRef_ID = New Global.System.Data.DataColumn("GrteeRef_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGrteeRef_ID) Me.columnGrteeRef_GTy = New Global.System.Data.DataColumn("GrteeRef_GTy", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGrteeRef_GTy) Me.columnGRN = New Global.System.Data.DataColumn("GRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGRN) Me.columnOGR = New Global.System.Data.DataColumn("OGR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOGR) Me.columnAcc = New Global.System.Data.DataColumn("Acc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAcc) Me.columnGTIN = New Global.System.Data.DataColumn("GTIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGTIN) Me.columnGVal = New Global.System.Data.DataColumn("GVal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGVal) Me.columnCurr = New Global.System.Data.DataColumn("Curr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCurr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntelgrt_id}, true)) Me.columntelgrt_id.AutoIncrement = true Me.columntelgrt_id.AutoIncrementSeed = -1 Me.columntelgrt_id.AutoIncrementStep = -1 Me.columntelgrt_id.AllowDBNull = false Me.columntelgrt_id.ReadOnly = true Me.columntelgrt_id.Unique = true Me.columntelgrt_telanmId.AllowDBNull = false Me.columnMandant_ID.AllowDBNull = false Me.columnMandant_ID.MaxLength = 6 Me.columnBereich_ID.AllowDBNull = false Me.columnBereich_ID.MaxLength = 6 Me.columnReferenz_ID.AllowDBNull = false Me.columnReferenz_ID.MaxLength = 36 Me.columnComIndicator.AllowDBNull = false Me.columnGrteeRef_ID.AllowDBNull = false Me.columnGrteeRef_GTy.AllowDBNull = false Me.columnGrteeRef_GTy.MaxLength = 1 Me.columnGRN.MaxLength = 24 Me.columnOGR.MaxLength = 35 Me.columnAcc.MaxLength = 4 Me.columnGTIN.MaxLength = 17 Me.columnCurr.MaxLength = 3 End Sub _ Public Function NewtblTelotec_SicherheitRow() As tblTelotec_SicherheitRow Return CType(Me.NewRow,tblTelotec_SicherheitRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTelotec_SicherheitRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTelotec_SicherheitRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTelotec_SicherheitRowChangedEvent) Is Nothing) Then RaiseEvent tblTelotec_SicherheitRowChanged(Me, New tblTelotec_SicherheitRowChangeEvent(CType(e.Row,tblTelotec_SicherheitRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTelotec_SicherheitRowChangingEvent) Is Nothing) Then RaiseEvent tblTelotec_SicherheitRowChanging(Me, New tblTelotec_SicherheitRowChangeEvent(CType(e.Row,tblTelotec_SicherheitRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTelotec_SicherheitRowDeletedEvent) Is Nothing) Then RaiseEvent tblTelotec_SicherheitRowDeleted(Me, New tblTelotec_SicherheitRowChangeEvent(CType(e.Row,tblTelotec_SicherheitRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTelotec_SicherheitRowDeletingEvent) Is Nothing) Then RaiseEvent tblTelotec_SicherheitRowDeleting(Me, New tblTelotec_SicherheitRowChangeEvent(CType(e.Row,tblTelotec_SicherheitRow), e.Action)) End If End Sub _ Public Sub RemovetblTelotec_SicherheitRow(ByVal row As tblTelotec_SicherheitRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTelotec_SicherheitDataTable" 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 tblTestDataTable Inherits Global.System.Data.TypedTableBase(Of tblTestRow) Private columnTEST As Global.System.Data.DataColumn Private columntmstmp As Global.System.Data.DataColumn Private columnipaddress As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTest" 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 TESTColumn() As Global.System.Data.DataColumn Get Return Me.columnTEST End Get End Property _ Public ReadOnly Property tmstmpColumn() As Global.System.Data.DataColumn Get Return Me.columntmstmp End Get End Property _ Public ReadOnly Property ipaddressColumn() As Global.System.Data.DataColumn Get Return Me.columnipaddress 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 tblTestRow Get Return CType(Me.Rows(index),tblTestRow) End Get End Property _ Public Event tblTestRowChanging As tblTestRowChangeEventHandler _ Public Event tblTestRowChanged As tblTestRowChangeEventHandler _ Public Event tblTestRowDeleting As tblTestRowChangeEventHandler _ Public Event tblTestRowDeleted As tblTestRowChangeEventHandler _ Public Overloads Sub AddtblTestRow(ByVal row As tblTestRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTestRow(ByVal TEST As String, ByVal tmstmp As Date, ByVal ipaddress As String) As tblTestRow Dim rowtblTestRow As tblTestRow = CType(Me.NewRow,tblTestRow) Dim columnValuesArray() As Object = New Object() {TEST, tmstmp, ipaddress} rowtblTestRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTestRow) Return rowtblTestRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTestDataTable = CType(MyBase.Clone,tblTestDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTestDataTable() End Function _ Friend Sub InitVars() Me.columnTEST = MyBase.Columns("TEST") Me.columntmstmp = MyBase.Columns("tmstmp") Me.columnipaddress = MyBase.Columns("ipaddress") End Sub _ Private Sub InitClass() Me.columnTEST = New Global.System.Data.DataColumn("TEST", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTEST) Me.columntmstmp = New Global.System.Data.DataColumn("tmstmp", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntmstmp) Me.columnipaddress = New Global.System.Data.DataColumn("ipaddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnipaddress) Me.columnTEST.MaxLength = 2147483647 Me.columntmstmp.AllowDBNull = false Me.columnipaddress.MaxLength = 500 End Sub _ Public Function NewtblTestRow() As tblTestRow Return CType(Me.NewRow,tblTestRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTestRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTestRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTestRowChangedEvent) Is Nothing) Then RaiseEvent tblTestRowChanged(Me, New tblTestRowChangeEvent(CType(e.Row,tblTestRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTestRowChangingEvent) Is Nothing) Then RaiseEvent tblTestRowChanging(Me, New tblTestRowChangeEvent(CType(e.Row,tblTestRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTestRowDeletedEvent) Is Nothing) Then RaiseEvent tblTestRowDeleted(Me, New tblTestRowChangeEvent(CType(e.Row,tblTestRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTestRowDeletingEvent) Is Nothing) Then RaiseEvent tblTestRowDeleting(Me, New tblTestRowChangeEvent(CType(e.Row,tblTestRow), e.Action)) End If End Sub _ Public Sub RemovetblTestRow(ByVal row As tblTestRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTestDataTable" 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 tblTextkonserveDataTable Inherits Global.System.Data.TypedTableBase(Of tblTextkonserveRow) Private columntxt_Id As Global.System.Data.DataColumn Private columntxt_kategorie As Global.System.Data.DataColumn Private columntxt_bezeichnung As Global.System.Data.DataColumn Private columntxt_sprache As Global.System.Data.DataColumn Private columntxt_text As Global.System.Data.DataColumn Private columntxt_betreff As Global.System.Data.DataColumn Private columntxt_FIRMA As Global.System.Data.DataColumn Private columntxt_firmaSig As Global.System.Data.DataColumn Private columntxt_dynMailvorlage As Global.System.Data.DataColumn Private columntxt_letzteAenderungUser As Global.System.Data.DataColumn Private columntxt_letzteAenderung As Global.System.Data.DataColumn Private columntxt_sendungsvermerk As Global.System.Data.DataColumn Private columntxt_sendungsvermerkId As Global.System.Data.DataColumn Private columntxt_sendungsvermerkText As Global.System.Data.DataColumn Private columntxt_fixerEmpfaengerEmail As Global.System.Data.DataColumn Private columntxt_typ As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTextkonserve" 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 txt_IdColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_Id End Get End Property _ Public ReadOnly Property txt_kategorieColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_kategorie End Get End Property _ Public ReadOnly Property txt_bezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_bezeichnung End Get End Property _ Public ReadOnly Property txt_spracheColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_sprache End Get End Property _ Public ReadOnly Property txt_textColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_text End Get End Property _ Public ReadOnly Property txt_betreffColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_betreff End Get End Property _ Public ReadOnly Property txt_FIRMAColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_FIRMA End Get End Property _ Public ReadOnly Property txt_firmaSigColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_firmaSig End Get End Property _ Public ReadOnly Property txt_dynMailvorlageColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_dynMailvorlage End Get End Property _ Public ReadOnly Property txt_letzteAenderungUserColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_letzteAenderungUser End Get End Property _ Public ReadOnly Property txt_letzteAenderungColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_letzteAenderung End Get End Property _ Public ReadOnly Property txt_sendungsvermerkColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_sendungsvermerk End Get End Property _ Public ReadOnly Property txt_sendungsvermerkIdColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_sendungsvermerkId End Get End Property _ Public ReadOnly Property txt_sendungsvermerkTextColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_sendungsvermerkText End Get End Property _ Public ReadOnly Property txt_fixerEmpfaengerEmailColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_fixerEmpfaengerEmail End Get End Property _ Public ReadOnly Property txt_typColumn() As Global.System.Data.DataColumn Get Return Me.columntxt_typ 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 tblTextkonserveRow Get Return CType(Me.Rows(index),tblTextkonserveRow) End Get End Property _ Public Event tblTextkonserveRowChanging As tblTextkonserveRowChangeEventHandler _ Public Event tblTextkonserveRowChanged As tblTextkonserveRowChangeEventHandler _ Public Event tblTextkonserveRowDeleting As tblTextkonserveRowChangeEventHandler _ Public Event tblTextkonserveRowDeleted As tblTextkonserveRowChangeEventHandler _ Public Overloads Sub AddtblTextkonserveRow(ByVal row As tblTextkonserveRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTextkonserveRow(ByVal txt_kategorie As String, ByVal txt_bezeichnung As String, ByVal txt_sprache As String, ByVal txt_text As String, ByVal txt_betreff As String, ByVal txt_FIRMA As String, ByVal txt_firmaSig As Integer, ByVal txt_dynMailvorlage As Boolean, ByVal txt_letzteAenderungUser As String, ByVal txt_letzteAenderung As Date, ByVal txt_sendungsvermerk As Boolean, ByVal txt_sendungsvermerkId As Integer, ByVal txt_sendungsvermerkText As String, ByVal txt_fixerEmpfaengerEmail As String, ByVal txt_typ As Integer) As tblTextkonserveRow Dim rowtblTextkonserveRow As tblTextkonserveRow = CType(Me.NewRow,tblTextkonserveRow) Dim columnValuesArray() As Object = New Object() {Nothing, txt_kategorie, txt_bezeichnung, txt_sprache, txt_text, txt_betreff, txt_FIRMA, txt_firmaSig, txt_dynMailvorlage, txt_letzteAenderungUser, txt_letzteAenderung, txt_sendungsvermerk, txt_sendungsvermerkId, txt_sendungsvermerkText, txt_fixerEmpfaengerEmail, txt_typ} rowtblTextkonserveRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTextkonserveRow) Return rowtblTextkonserveRow End Function _ Public Function FindBytxt_Id(ByVal txt_Id As Integer) As tblTextkonserveRow Return CType(Me.Rows.Find(New Object() {txt_Id}),tblTextkonserveRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTextkonserveDataTable = CType(MyBase.Clone,tblTextkonserveDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTextkonserveDataTable() End Function _ Friend Sub InitVars() Me.columntxt_Id = MyBase.Columns("txt_Id") Me.columntxt_kategorie = MyBase.Columns("txt_kategorie") Me.columntxt_bezeichnung = MyBase.Columns("txt_bezeichnung") Me.columntxt_sprache = MyBase.Columns("txt_sprache") Me.columntxt_text = MyBase.Columns("txt_text") Me.columntxt_betreff = MyBase.Columns("txt_betreff") Me.columntxt_FIRMA = MyBase.Columns("txt_FIRMA") Me.columntxt_firmaSig = MyBase.Columns("txt_firmaSig") Me.columntxt_dynMailvorlage = MyBase.Columns("txt_dynMailvorlage") Me.columntxt_letzteAenderungUser = MyBase.Columns("txt_letzteAenderungUser") Me.columntxt_letzteAenderung = MyBase.Columns("txt_letzteAenderung") Me.columntxt_sendungsvermerk = MyBase.Columns("txt_sendungsvermerk") Me.columntxt_sendungsvermerkId = MyBase.Columns("txt_sendungsvermerkId") Me.columntxt_sendungsvermerkText = MyBase.Columns("txt_sendungsvermerkText") Me.columntxt_fixerEmpfaengerEmail = MyBase.Columns("txt_fixerEmpfaengerEmail") Me.columntxt_typ = MyBase.Columns("txt_typ") End Sub _ Private Sub InitClass() Me.columntxt_Id = New Global.System.Data.DataColumn("txt_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_Id) Me.columntxt_kategorie = New Global.System.Data.DataColumn("txt_kategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_kategorie) Me.columntxt_bezeichnung = New Global.System.Data.DataColumn("txt_bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_bezeichnung) Me.columntxt_sprache = New Global.System.Data.DataColumn("txt_sprache", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_sprache) Me.columntxt_text = New Global.System.Data.DataColumn("txt_text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_text) Me.columntxt_betreff = New Global.System.Data.DataColumn("txt_betreff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_betreff) Me.columntxt_FIRMA = New Global.System.Data.DataColumn("txt_FIRMA", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_FIRMA) Me.columntxt_firmaSig = New Global.System.Data.DataColumn("txt_firmaSig", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_firmaSig) Me.columntxt_dynMailvorlage = New Global.System.Data.DataColumn("txt_dynMailvorlage", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_dynMailvorlage) Me.columntxt_letzteAenderungUser = New Global.System.Data.DataColumn("txt_letzteAenderungUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_letzteAenderungUser) Me.columntxt_letzteAenderung = New Global.System.Data.DataColumn("txt_letzteAenderung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_letzteAenderung) Me.columntxt_sendungsvermerk = New Global.System.Data.DataColumn("txt_sendungsvermerk", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_sendungsvermerk) Me.columntxt_sendungsvermerkId = New Global.System.Data.DataColumn("txt_sendungsvermerkId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_sendungsvermerkId) Me.columntxt_sendungsvermerkText = New Global.System.Data.DataColumn("txt_sendungsvermerkText", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_sendungsvermerkText) Me.columntxt_fixerEmpfaengerEmail = New Global.System.Data.DataColumn("txt_fixerEmpfaengerEmail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_fixerEmpfaengerEmail) Me.columntxt_typ = New Global.System.Data.DataColumn("txt_typ", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxt_typ) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntxt_Id}, true)) Me.columntxt_Id.AutoIncrement = true Me.columntxt_Id.AutoIncrementSeed = -1 Me.columntxt_Id.AutoIncrementStep = -1 Me.columntxt_Id.AllowDBNull = false Me.columntxt_Id.ReadOnly = true Me.columntxt_Id.Unique = true Me.columntxt_kategorie.AllowDBNull = false Me.columntxt_kategorie.MaxLength = 200 Me.columntxt_bezeichnung.AllowDBNull = false Me.columntxt_bezeichnung.MaxLength = 200 Me.columntxt_sprache.AllowDBNull = false Me.columntxt_sprache.MaxLength = 10 Me.columntxt_text.AllowDBNull = false Me.columntxt_text.MaxLength = 2147483647 Me.columntxt_betreff.AllowDBNull = false Me.columntxt_betreff.MaxLength = 2147483647 Me.columntxt_FIRMA.AllowDBNull = false Me.columntxt_FIRMA.MaxLength = 50 Me.columntxt_firmaSig.AllowDBNull = false Me.columntxt_dynMailvorlage.AllowDBNull = false Me.columntxt_letzteAenderungUser.MaxLength = 50 Me.columntxt_sendungsvermerkText.MaxLength = 50 Me.columntxt_fixerEmpfaengerEmail.MaxLength = 50 End Sub _ Public Function NewtblTextkonserveRow() As tblTextkonserveRow Return CType(Me.NewRow,tblTextkonserveRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTextkonserveRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTextkonserveRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTextkonserveRowChangedEvent) Is Nothing) Then RaiseEvent tblTextkonserveRowChanged(Me, New tblTextkonserveRowChangeEvent(CType(e.Row,tblTextkonserveRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTextkonserveRowChangingEvent) Is Nothing) Then RaiseEvent tblTextkonserveRowChanging(Me, New tblTextkonserveRowChangeEvent(CType(e.Row,tblTextkonserveRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTextkonserveRowDeletedEvent) Is Nothing) Then RaiseEvent tblTextkonserveRowDeleted(Me, New tblTextkonserveRowChangeEvent(CType(e.Row,tblTextkonserveRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTextkonserveRowDeletingEvent) Is Nothing) Then RaiseEvent tblTextkonserveRowDeleting(Me, New tblTextkonserveRowChangeEvent(CType(e.Row,tblTextkonserveRow), e.Action)) End If End Sub _ Public Sub RemovetblTextkonserveRow(ByVal row As tblTextkonserveRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTextkonserveDataTable" 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 tblTR_AvisoDataTable Inherits Global.System.Data.TypedTableBase(Of tblTR_AvisoRow) Private columntrAv_Id As Global.System.Data.DataColumn Private columntrAv_PartnerSystem As Global.System.Data.DataColumn Private columntrAv_datetime As Global.System.Data.DataColumn Private columntrAv_Firma As Global.System.Data.DataColumn Private columntrAv_Niederlassung As Global.System.Data.DataColumn Private columntrAv_Reference As Global.System.Data.DataColumn Private columntrAv_Kennzeichen As Global.System.Data.DataColumn Private columntrAv_Nationalitaet As Global.System.Data.DataColumn Private columntrAv_Avisierer As Global.System.Data.DataColumn Private columntrAv_AvisiererKdNr As Global.System.Data.DataColumn Private columntrAv_Fraechter As Global.System.Data.DataColumn Private columntrAv_FraechterKdNr As Global.System.Data.DataColumn Private columntrAv_Grenzueberschreitung As Global.System.Data.DataColumn Private columntrAv_Transportmittel As Global.System.Data.DataColumn Private columntrAv_colli As Global.System.Data.DataColumn Private columntrAv_gewicht As Global.System.Data.DataColumn Private columntrAv_VoraussichtlichesEintreffen As Global.System.Data.DataColumn Private columntrAv_Info As Global.System.Data.DataColumn Private columntrAv_AVISO_einarbeitet As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTR_Aviso" 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 trAv_IdColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Id End Get End Property _ Public ReadOnly Property trAv_PartnerSystemColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_PartnerSystem End Get End Property _ Public ReadOnly Property trAv_datetimeColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_datetime End Get End Property _ Public ReadOnly Property trAv_FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Firma End Get End Property _ Public ReadOnly Property trAv_NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Niederlassung End Get End Property _ Public ReadOnly Property trAv_ReferenceColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Reference End Get End Property _ Public ReadOnly Property trAv_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Kennzeichen End Get End Property _ Public ReadOnly Property trAv_NationalitaetColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Nationalitaet End Get End Property _ Public ReadOnly Property trAv_AvisiererColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Avisierer End Get End Property _ Public ReadOnly Property trAv_AvisiererKdNrColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_AvisiererKdNr End Get End Property _ Public ReadOnly Property trAv_FraechterColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Fraechter End Get End Property _ Public ReadOnly Property trAv_FraechterKdNrColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_FraechterKdNr End Get End Property _ Public ReadOnly Property trAv_GrenzueberschreitungColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Grenzueberschreitung End Get End Property _ Public ReadOnly Property trAv_TransportmittelColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Transportmittel End Get End Property _ Public ReadOnly Property trAv_colliColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_colli End Get End Property _ Public ReadOnly Property trAv_gewichtColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_gewicht End Get End Property _ Public ReadOnly Property trAv_VoraussichtlichesEintreffenColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_VoraussichtlichesEintreffen End Get End Property _ Public ReadOnly Property trAv_InfoColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Info End Get End Property _ Public ReadOnly Property trAv_AVISO_einarbeitetColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_AVISO_einarbeitet 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 tblTR_AvisoRow Get Return CType(Me.Rows(index),tblTR_AvisoRow) End Get End Property _ Public Event tblTR_AvisoRowChanging As tblTR_AvisoRowChangeEventHandler _ Public Event tblTR_AvisoRowChanged As tblTR_AvisoRowChangeEventHandler _ Public Event tblTR_AvisoRowDeleting As tblTR_AvisoRowChangeEventHandler _ Public Event tblTR_AvisoRowDeleted As tblTR_AvisoRowChangeEventHandler _ Public Overloads Sub AddtblTR_AvisoRow(ByVal row As tblTR_AvisoRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTR_AvisoRow( _ ByVal trAv_PartnerSystem As String, _ ByVal trAv_datetime As Date, _ ByVal trAv_Firma As String, _ ByVal trAv_Niederlassung As String, _ ByVal trAv_Reference As String, _ ByVal trAv_Kennzeichen As String, _ ByVal trAv_Nationalitaet As String, _ ByVal trAv_Avisierer As String, _ ByVal trAv_AvisiererKdNr As Integer, _ ByVal trAv_Fraechter As String, _ ByVal trAv_FraechterKdNr As Integer, _ ByVal trAv_Grenzueberschreitung As Integer, _ ByVal trAv_Transportmittel As Integer, _ ByVal trAv_colli As Double, _ ByVal trAv_gewicht As Double, _ ByVal trAv_VoraussichtlichesEintreffen As Date, _ ByVal trAv_Info As String, _ ByVal trAv_AVISO_einarbeitet As Boolean) As tblTR_AvisoRow Dim rowtblTR_AvisoRow As tblTR_AvisoRow = CType(Me.NewRow,tblTR_AvisoRow) Dim columnValuesArray() As Object = New Object() {Nothing, trAv_PartnerSystem, trAv_datetime, trAv_Firma, trAv_Niederlassung, trAv_Reference, trAv_Kennzeichen, trAv_Nationalitaet, trAv_Avisierer, trAv_AvisiererKdNr, trAv_Fraechter, trAv_FraechterKdNr, trAv_Grenzueberschreitung, trAv_Transportmittel, trAv_colli, trAv_gewicht, trAv_VoraussichtlichesEintreffen, trAv_Info, trAv_AVISO_einarbeitet} rowtblTR_AvisoRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTR_AvisoRow) Return rowtblTR_AvisoRow End Function _ Public Function FindBytrAv_Id(ByVal trAv_Id As Integer) As tblTR_AvisoRow Return CType(Me.Rows.Find(New Object() {trAv_Id}),tblTR_AvisoRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTR_AvisoDataTable = CType(MyBase.Clone,tblTR_AvisoDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTR_AvisoDataTable() End Function _ Friend Sub InitVars() Me.columntrAv_Id = MyBase.Columns("trAv_Id") Me.columntrAv_PartnerSystem = MyBase.Columns("trAv_PartnerSystem") Me.columntrAv_datetime = MyBase.Columns("trAv_datetime") Me.columntrAv_Firma = MyBase.Columns("trAv_Firma") Me.columntrAv_Niederlassung = MyBase.Columns("trAv_Niederlassung") Me.columntrAv_Reference = MyBase.Columns("trAv_Reference") Me.columntrAv_Kennzeichen = MyBase.Columns("trAv_Kennzeichen") Me.columntrAv_Nationalitaet = MyBase.Columns("trAv_Nationalitaet") Me.columntrAv_Avisierer = MyBase.Columns("trAv_Avisierer") Me.columntrAv_AvisiererKdNr = MyBase.Columns("trAv_AvisiererKdNr") Me.columntrAv_Fraechter = MyBase.Columns("trAv_Fraechter") Me.columntrAv_FraechterKdNr = MyBase.Columns("trAv_FraechterKdNr") Me.columntrAv_Grenzueberschreitung = MyBase.Columns("trAv_Grenzueberschreitung") Me.columntrAv_Transportmittel = MyBase.Columns("trAv_Transportmittel") Me.columntrAv_colli = MyBase.Columns("trAv_colli") Me.columntrAv_gewicht = MyBase.Columns("trAv_gewicht") Me.columntrAv_VoraussichtlichesEintreffen = MyBase.Columns("trAv_VoraussichtlichesEintreffen") Me.columntrAv_Info = MyBase.Columns("trAv_Info") Me.columntrAv_AVISO_einarbeitet = MyBase.Columns("trAv_AVISO_einarbeitet") End Sub _ Private Sub InitClass() Me.columntrAv_Id = New Global.System.Data.DataColumn("trAv_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Id) Me.columntrAv_PartnerSystem = New Global.System.Data.DataColumn("trAv_PartnerSystem", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_PartnerSystem) Me.columntrAv_datetime = New Global.System.Data.DataColumn("trAv_datetime", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_datetime) Me.columntrAv_Firma = New Global.System.Data.DataColumn("trAv_Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Firma) Me.columntrAv_Niederlassung = New Global.System.Data.DataColumn("trAv_Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Niederlassung) Me.columntrAv_Reference = New Global.System.Data.DataColumn("trAv_Reference", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Reference) Me.columntrAv_Kennzeichen = New Global.System.Data.DataColumn("trAv_Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Kennzeichen) Me.columntrAv_Nationalitaet = New Global.System.Data.DataColumn("trAv_Nationalitaet", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Nationalitaet) Me.columntrAv_Avisierer = New Global.System.Data.DataColumn("trAv_Avisierer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Avisierer) Me.columntrAv_AvisiererKdNr = New Global.System.Data.DataColumn("trAv_AvisiererKdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_AvisiererKdNr) Me.columntrAv_Fraechter = New Global.System.Data.DataColumn("trAv_Fraechter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Fraechter) Me.columntrAv_FraechterKdNr = New Global.System.Data.DataColumn("trAv_FraechterKdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_FraechterKdNr) Me.columntrAv_Grenzueberschreitung = New Global.System.Data.DataColumn("trAv_Grenzueberschreitung", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Grenzueberschreitung) Me.columntrAv_Transportmittel = New Global.System.Data.DataColumn("trAv_Transportmittel", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Transportmittel) Me.columntrAv_colli = New Global.System.Data.DataColumn("trAv_colli", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_colli) Me.columntrAv_gewicht = New Global.System.Data.DataColumn("trAv_gewicht", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_gewicht) Me.columntrAv_VoraussichtlichesEintreffen = New Global.System.Data.DataColumn("trAv_VoraussichtlichesEintreffen", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_VoraussichtlichesEintreffen) Me.columntrAv_Info = New Global.System.Data.DataColumn("trAv_Info", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Info) Me.columntrAv_AVISO_einarbeitet = New Global.System.Data.DataColumn("trAv_AVISO_einarbeitet", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_AVISO_einarbeitet) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntrAv_Id}, true)) Me.columntrAv_Id.AutoIncrement = true Me.columntrAv_Id.AutoIncrementSeed = -1 Me.columntrAv_Id.AutoIncrementStep = -1 Me.columntrAv_Id.AllowDBNull = false Me.columntrAv_Id.ReadOnly = true Me.columntrAv_Id.Unique = true Me.columntrAv_PartnerSystem.AllowDBNull = false Me.columntrAv_PartnerSystem.MaxLength = 50 Me.columntrAv_datetime.AllowDBNull = false Me.columntrAv_Firma.AllowDBNull = false Me.columntrAv_Firma.MaxLength = 50 Me.columntrAv_Niederlassung.AllowDBNull = false Me.columntrAv_Niederlassung.MaxLength = 50 Me.columntrAv_Reference.AllowDBNull = false Me.columntrAv_Reference.MaxLength = 500 Me.columntrAv_Kennzeichen.MaxLength = 50 Me.columntrAv_Nationalitaet.MaxLength = 50 Me.columntrAv_Avisierer.MaxLength = 200 Me.columntrAv_Fraechter.MaxLength = 200 Me.columntrAv_Info.MaxLength = 2147483647 Me.columntrAv_AVISO_einarbeitet.AllowDBNull = false End Sub _ Public Function NewtblTR_AvisoRow() As tblTR_AvisoRow Return CType(Me.NewRow,tblTR_AvisoRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTR_AvisoRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTR_AvisoRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTR_AvisoRowChangedEvent) Is Nothing) Then RaiseEvent tblTR_AvisoRowChanged(Me, New tblTR_AvisoRowChangeEvent(CType(e.Row,tblTR_AvisoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTR_AvisoRowChangingEvent) Is Nothing) Then RaiseEvent tblTR_AvisoRowChanging(Me, New tblTR_AvisoRowChangeEvent(CType(e.Row,tblTR_AvisoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTR_AvisoRowDeletedEvent) Is Nothing) Then RaiseEvent tblTR_AvisoRowDeleted(Me, New tblTR_AvisoRowChangeEvent(CType(e.Row,tblTR_AvisoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTR_AvisoRowDeletingEvent) Is Nothing) Then RaiseEvent tblTR_AvisoRowDeleting(Me, New tblTR_AvisoRowChangeEvent(CType(e.Row,tblTR_AvisoRow), e.Action)) End If End Sub _ Public Sub RemovetblTR_AvisoRow(ByVal row As tblTR_AvisoRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTR_AvisoDataTable" 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 tblTR_AvisoAnheangeDataTable Inherits Global.System.Data.TypedTableBase(Of tblTR_AvisoAnheangeRow) Private columntrAvAh_id As Global.System.Data.DataColumn Private columntrAvAh_trAvId As Global.System.Data.DataColumn Private columnDocumentType As Global.System.Data.DataColumn Private columnDocumentNr As Global.System.Data.DataColumn Private columnDocumentDate As Global.System.Data.DataColumn Private columntrAvAh_docID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTR_AvisoAnheange" 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 trAvAh_idColumn() As Global.System.Data.DataColumn Get Return Me.columntrAvAh_id End Get End Property _ Public ReadOnly Property trAvAh_trAvIdColumn() As Global.System.Data.DataColumn Get Return Me.columntrAvAh_trAvId End Get End Property _ Public ReadOnly Property DocumentTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnDocumentType End Get End Property _ Public ReadOnly Property DocumentNrColumn() As Global.System.Data.DataColumn Get Return Me.columnDocumentNr End Get End Property _ Public ReadOnly Property DocumentDateColumn() As Global.System.Data.DataColumn Get Return Me.columnDocumentDate End Get End Property _ Public ReadOnly Property trAvAh_docIDColumn() As Global.System.Data.DataColumn Get Return Me.columntrAvAh_docID 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 tblTR_AvisoAnheangeRow Get Return CType(Me.Rows(index),tblTR_AvisoAnheangeRow) End Get End Property _ Public Event tblTR_AvisoAnheangeRowChanging As tblTR_AvisoAnheangeRowChangeEventHandler _ Public Event tblTR_AvisoAnheangeRowChanged As tblTR_AvisoAnheangeRowChangeEventHandler _ Public Event tblTR_AvisoAnheangeRowDeleting As tblTR_AvisoAnheangeRowChangeEventHandler _ Public Event tblTR_AvisoAnheangeRowDeleted As tblTR_AvisoAnheangeRowChangeEventHandler _ Public Overloads Sub AddtblTR_AvisoAnheangeRow(ByVal row As tblTR_AvisoAnheangeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTR_AvisoAnheangeRow(ByVal trAvAh_trAvId As String, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Date, ByVal trAvAh_docID As String) As tblTR_AvisoAnheangeRow Dim rowtblTR_AvisoAnheangeRow As tblTR_AvisoAnheangeRow = CType(Me.NewRow,tblTR_AvisoAnheangeRow) Dim columnValuesArray() As Object = New Object() {Nothing, trAvAh_trAvId, DocumentType, DocumentNr, DocumentDate, trAvAh_docID} rowtblTR_AvisoAnheangeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTR_AvisoAnheangeRow) Return rowtblTR_AvisoAnheangeRow End Function _ Public Function FindBytrAvAh_id(ByVal trAvAh_id As Integer) As tblTR_AvisoAnheangeRow Return CType(Me.Rows.Find(New Object() {trAvAh_id}),tblTR_AvisoAnheangeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTR_AvisoAnheangeDataTable = CType(MyBase.Clone,tblTR_AvisoAnheangeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTR_AvisoAnheangeDataTable() End Function _ Friend Sub InitVars() Me.columntrAvAh_id = MyBase.Columns("trAvAh_id") Me.columntrAvAh_trAvId = MyBase.Columns("trAvAh_trAvId") Me.columnDocumentType = MyBase.Columns("DocumentType") Me.columnDocumentNr = MyBase.Columns("DocumentNr") Me.columnDocumentDate = MyBase.Columns("DocumentDate") Me.columntrAvAh_docID = MyBase.Columns("trAvAh_docID") End Sub _ Private Sub InitClass() Me.columntrAvAh_id = New Global.System.Data.DataColumn("trAvAh_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAvAh_id) Me.columntrAvAh_trAvId = New Global.System.Data.DataColumn("trAvAh_trAvId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAvAh_trAvId) Me.columnDocumentType = New Global.System.Data.DataColumn("DocumentType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocumentType) Me.columnDocumentNr = New Global.System.Data.DataColumn("DocumentNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocumentNr) Me.columnDocumentDate = New Global.System.Data.DataColumn("DocumentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocumentDate) Me.columntrAvAh_docID = New Global.System.Data.DataColumn("trAvAh_docID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAvAh_docID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntrAvAh_id}, true)) Me.columntrAvAh_id.AutoIncrement = true Me.columntrAvAh_id.AutoIncrementSeed = -1 Me.columntrAvAh_id.AutoIncrementStep = -1 Me.columntrAvAh_id.AllowDBNull = false Me.columntrAvAh_id.ReadOnly = true Me.columntrAvAh_id.Unique = true Me.columntrAvAh_trAvId.AllowDBNull = false Me.columntrAvAh_trAvId.MaxLength = 50 Me.columnDocumentType.MaxLength = 20 Me.columnDocumentNr.MaxLength = 100 Me.columntrAvAh_docID.MaxLength = 10 End Sub _ Public Function NewtblTR_AvisoAnheangeRow() As tblTR_AvisoAnheangeRow Return CType(Me.NewRow,tblTR_AvisoAnheangeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTR_AvisoAnheangeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTR_AvisoAnheangeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTR_AvisoAnheangeRowChangedEvent) Is Nothing) Then RaiseEvent tblTR_AvisoAnheangeRowChanged(Me, New tblTR_AvisoAnheangeRowChangeEvent(CType(e.Row,tblTR_AvisoAnheangeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTR_AvisoAnheangeRowChangingEvent) Is Nothing) Then RaiseEvent tblTR_AvisoAnheangeRowChanging(Me, New tblTR_AvisoAnheangeRowChangeEvent(CType(e.Row,tblTR_AvisoAnheangeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTR_AvisoAnheangeRowDeletedEvent) Is Nothing) Then RaiseEvent tblTR_AvisoAnheangeRowDeleted(Me, New tblTR_AvisoAnheangeRowChangeEvent(CType(e.Row,tblTR_AvisoAnheangeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTR_AvisoAnheangeRowDeletingEvent) Is Nothing) Then RaiseEvent tblTR_AvisoAnheangeRowDeleting(Me, New tblTR_AvisoAnheangeRowChangeEvent(CType(e.Row,tblTR_AvisoAnheangeRow), e.Action)) End If End Sub _ Public Sub RemovetblTR_AvisoAnheangeRow(ByVal row As tblTR_AvisoAnheangeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTR_AvisoAnheangeDataTable" 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 tblTR_ShipmentDataTable Inherits Global.System.Data.TypedTableBase(Of tblTR_ShipmentRow) Private columnshTr_id As Global.System.Data.DataColumn Private columnshTr_Partnersystem As Global.System.Data.DataColumn Private columnshTr_Status As Global.System.Data.DataColumn Private columnshTr_TRAvisoId As Global.System.Data.DataColumn Private columnCompany As Global.System.Data.DataColumn Private columnDepartment As Global.System.Data.DataColumn Private columnReference As Global.System.Data.DataColumn Private columnDeclarationCountry As Global.System.Data.DataColumn Private columnDeclarationType As Global.System.Data.DataColumn Private columnTotPackage As Global.System.Data.DataColumn Private columnTotGrossWeight As Global.System.Data.DataColumn Private columnCustomsCodeDeparture As Global.System.Data.DataColumn Private columnCustomsCodeDestination As Global.System.Data.DataColumn Private columnCustomsCodeEntry As Global.System.Data.DataColumn Private columnTransportModeBorder As Global.System.Data.DataColumn Private columnCountryCodeDeparture As Global.System.Data.DataColumn Private columnCountryCodeDestination As Global.System.Data.DataColumn Private columnDEStateCodeDestination As Global.System.Data.DataColumn Private columnTransportArrivalLicensePlate As Global.System.Data.DataColumn Private columnTransportArrivalCountryCode As Global.System.Data.DataColumn Private columnTransportBorderType As Global.System.Data.DataColumn Private columnTransportBorderLicensePlate As Global.System.Data.DataColumn Private columnIncoterm As Global.System.Data.DataColumn Private columnPrePaperCode As Global.System.Data.DataColumn Private columnPrePaperNr As Global.System.Data.DataColumn Private columnKindOfBusiness As Global.System.Data.DataColumn Private columnInvoiceAmount As Global.System.Data.DataColumn Private columnInvoiceCurrency As Global.System.Data.DataColumn Private columnContainerNr1 As Global.System.Data.DataColumn Private columnContainerNr2 As Global.System.Data.DataColumn Private columnContainerNr3 As Global.System.Data.DataColumn Private columnContainerNr4 As Global.System.Data.DataColumn Private columntrAv_Info As Global.System.Data.DataColumn Private columnFreightCostsEU As Global.System.Data.DataColumn Private columnFreightCostsNonEU As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTR_Shipment" 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 shTr_idColumn() As Global.System.Data.DataColumn Get Return Me.columnshTr_id End Get End Property _ Public ReadOnly Property shTr_PartnersystemColumn() As Global.System.Data.DataColumn Get Return Me.columnshTr_Partnersystem End Get End Property _ Public ReadOnly Property shTr_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnshTr_Status End Get End Property _ Public ReadOnly Property shTr_TRAvisoIdColumn() As Global.System.Data.DataColumn Get Return Me.columnshTr_TRAvisoId End Get End Property _ Public ReadOnly Property CompanyColumn() As Global.System.Data.DataColumn Get Return Me.columnCompany End Get End Property _ Public ReadOnly Property DepartmentColumn() As Global.System.Data.DataColumn Get Return Me.columnDepartment End Get End Property _ Public ReadOnly Property ReferenceColumn() As Global.System.Data.DataColumn Get Return Me.columnReference End Get End Property _ Public ReadOnly Property DeclarationCountryColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarationCountry End Get End Property _ Public ReadOnly Property DeclarationTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnDeclarationType End Get End Property _ Public ReadOnly Property TotPackageColumn() As Global.System.Data.DataColumn Get Return Me.columnTotPackage End Get End Property _ Public ReadOnly Property TotGrossWeightColumn() As Global.System.Data.DataColumn Get Return Me.columnTotGrossWeight End Get End Property _ Public ReadOnly Property CustomsCodeDepartureColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomsCodeDeparture End Get End Property _ Public ReadOnly Property CustomsCodeDestinationColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomsCodeDestination End Get End Property _ Public ReadOnly Property CustomsCodeEntryColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomsCodeEntry End Get End Property _ Public ReadOnly Property TransportModeBorderColumn() As Global.System.Data.DataColumn Get Return Me.columnTransportModeBorder End Get End Property _ Public ReadOnly Property CountryCodeDepartureColumn() As Global.System.Data.DataColumn Get Return Me.columnCountryCodeDeparture End Get End Property _ Public ReadOnly Property CountryCodeDestinationColumn() As Global.System.Data.DataColumn Get Return Me.columnCountryCodeDestination End Get End Property _ Public ReadOnly Property DEStateCodeDestinationColumn() As Global.System.Data.DataColumn Get Return Me.columnDEStateCodeDestination End Get End Property _ Public ReadOnly Property TransportArrivalLicensePlateColumn() As Global.System.Data.DataColumn Get Return Me.columnTransportArrivalLicensePlate End Get End Property _ Public ReadOnly Property TransportArrivalCountryCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnTransportArrivalCountryCode End Get End Property _ Public ReadOnly Property TransportBorderTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnTransportBorderType End Get End Property _ Public ReadOnly Property TransportBorderLicensePlateColumn() As Global.System.Data.DataColumn Get Return Me.columnTransportBorderLicensePlate End Get End Property _ Public ReadOnly Property IncotermColumn() As Global.System.Data.DataColumn Get Return Me.columnIncoterm End Get End Property _ Public ReadOnly Property PrePaperCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnPrePaperCode End Get End Property _ Public ReadOnly Property PrePaperNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPrePaperNr End Get End Property _ Public ReadOnly Property KindOfBusinessColumn() As Global.System.Data.DataColumn Get Return Me.columnKindOfBusiness End Get End Property _ Public ReadOnly Property InvoiceAmountColumn() As Global.System.Data.DataColumn Get Return Me.columnInvoiceAmount End Get End Property _ Public ReadOnly Property InvoiceCurrencyColumn() As Global.System.Data.DataColumn Get Return Me.columnInvoiceCurrency End Get End Property _ Public ReadOnly Property ContainerNr1Column() As Global.System.Data.DataColumn Get Return Me.columnContainerNr1 End Get End Property _ Public ReadOnly Property ContainerNr2Column() As Global.System.Data.DataColumn Get Return Me.columnContainerNr2 End Get End Property _ Public ReadOnly Property ContainerNr3Column() As Global.System.Data.DataColumn Get Return Me.columnContainerNr3 End Get End Property _ Public ReadOnly Property ContainerNr4Column() As Global.System.Data.DataColumn Get Return Me.columnContainerNr4 End Get End Property _ Public ReadOnly Property trAv_InfoColumn() As Global.System.Data.DataColumn Get Return Me.columntrAv_Info End Get End Property _ Public ReadOnly Property FreightCostsEUColumn() As Global.System.Data.DataColumn Get Return Me.columnFreightCostsEU End Get End Property _ Public ReadOnly Property FreightCostsNonEUColumn() As Global.System.Data.DataColumn Get Return Me.columnFreightCostsNonEU 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 tblTR_ShipmentRow Get Return CType(Me.Rows(index),tblTR_ShipmentRow) End Get End Property _ Public Event tblTR_ShipmentRowChanging As tblTR_ShipmentRowChangeEventHandler _ Public Event tblTR_ShipmentRowChanged As tblTR_ShipmentRowChangeEventHandler _ Public Event tblTR_ShipmentRowDeleting As tblTR_ShipmentRowChangeEventHandler _ Public Event tblTR_ShipmentRowDeleted As tblTR_ShipmentRowChangeEventHandler _ Public Overloads Sub AddtblTR_ShipmentRow(ByVal row As tblTR_ShipmentRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTR_ShipmentRow( _ ByVal shTr_Partnersystem As String, _ ByVal shTr_Status As Integer, _ ByVal shTr_TRAvisoId As Integer, _ ByVal Company As String, _ ByVal Department As String, _ ByVal Reference As String, _ ByVal DeclarationCountry As String, _ ByVal DeclarationType As String, _ ByVal TotPackage As Integer, _ ByVal TotGrossWeight As Decimal, _ ByVal CustomsCodeDeparture As String, _ ByVal CustomsCodeDestination As String, _ ByVal CustomsCodeEntry As String, _ ByVal TransportModeBorder As String, _ ByVal CountryCodeDeparture As String, _ ByVal CountryCodeDestination As String, _ ByVal DEStateCodeDestination As String, _ ByVal TransportArrivalLicensePlate As String, _ ByVal TransportArrivalCountryCode As String, _ ByVal TransportBorderType As String, _ ByVal TransportBorderLicensePlate As String, _ ByVal Incoterm As String, _ ByVal PrePaperCode As String, _ ByVal PrePaperNr As String, _ ByVal KindOfBusiness As Integer, _ ByVal InvoiceAmount As Decimal, _ ByVal InvoiceCurrency As String, _ ByVal ContainerNr1 As String, _ ByVal ContainerNr2 As String, _ ByVal ContainerNr3 As String, _ ByVal ContainerNr4 As String, _ ByVal trAv_Info As String, _ ByVal FreightCostsEU As Decimal, _ ByVal FreightCostsNonEU As Decimal) As tblTR_ShipmentRow Dim rowtblTR_ShipmentRow As tblTR_ShipmentRow = CType(Me.NewRow,tblTR_ShipmentRow) Dim columnValuesArray() As Object = New Object() {Nothing, shTr_Partnersystem, shTr_Status, shTr_TRAvisoId, Company, Department, Reference, DeclarationCountry, DeclarationType, TotPackage, TotGrossWeight, CustomsCodeDeparture, CustomsCodeDestination, CustomsCodeEntry, TransportModeBorder, CountryCodeDeparture, CountryCodeDestination, DEStateCodeDestination, TransportArrivalLicensePlate, TransportArrivalCountryCode, TransportBorderType, TransportBorderLicensePlate, Incoterm, PrePaperCode, PrePaperNr, KindOfBusiness, InvoiceAmount, InvoiceCurrency, ContainerNr1, ContainerNr2, ContainerNr3, ContainerNr4, trAv_Info, FreightCostsEU, FreightCostsNonEU} rowtblTR_ShipmentRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTR_ShipmentRow) Return rowtblTR_ShipmentRow End Function _ Public Function FindByshTr_id(ByVal shTr_id As Integer) As tblTR_ShipmentRow Return CType(Me.Rows.Find(New Object() {shTr_id}),tblTR_ShipmentRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTR_ShipmentDataTable = CType(MyBase.Clone,tblTR_ShipmentDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTR_ShipmentDataTable() End Function _ Friend Sub InitVars() Me.columnshTr_id = MyBase.Columns("shTr_id") Me.columnshTr_Partnersystem = MyBase.Columns("shTr_Partnersystem") Me.columnshTr_Status = MyBase.Columns("shTr_Status") Me.columnshTr_TRAvisoId = MyBase.Columns("shTr_TRAvisoId") Me.columnCompany = MyBase.Columns("Company") Me.columnDepartment = MyBase.Columns("Department") Me.columnReference = MyBase.Columns("Reference") Me.columnDeclarationCountry = MyBase.Columns("DeclarationCountry") Me.columnDeclarationType = MyBase.Columns("DeclarationType") Me.columnTotPackage = MyBase.Columns("TotPackage") Me.columnTotGrossWeight = MyBase.Columns("TotGrossWeight") Me.columnCustomsCodeDeparture = MyBase.Columns("CustomsCodeDeparture") Me.columnCustomsCodeDestination = MyBase.Columns("CustomsCodeDestination") Me.columnCustomsCodeEntry = MyBase.Columns("CustomsCodeEntry") Me.columnTransportModeBorder = MyBase.Columns("TransportModeBorder") Me.columnCountryCodeDeparture = MyBase.Columns("CountryCodeDeparture") Me.columnCountryCodeDestination = MyBase.Columns("CountryCodeDestination") Me.columnDEStateCodeDestination = MyBase.Columns("DEStateCodeDestination") Me.columnTransportArrivalLicensePlate = MyBase.Columns("TransportArrivalLicensePlate") Me.columnTransportArrivalCountryCode = MyBase.Columns("TransportArrivalCountryCode") Me.columnTransportBorderType = MyBase.Columns("TransportBorderType") Me.columnTransportBorderLicensePlate = MyBase.Columns("TransportBorderLicensePlate") Me.columnIncoterm = MyBase.Columns("Incoterm") Me.columnPrePaperCode = MyBase.Columns("PrePaperCode") Me.columnPrePaperNr = MyBase.Columns("PrePaperNr") Me.columnKindOfBusiness = MyBase.Columns("KindOfBusiness") Me.columnInvoiceAmount = MyBase.Columns("InvoiceAmount") Me.columnInvoiceCurrency = MyBase.Columns("InvoiceCurrency") Me.columnContainerNr1 = MyBase.Columns("ContainerNr1") Me.columnContainerNr2 = MyBase.Columns("ContainerNr2") Me.columnContainerNr3 = MyBase.Columns("ContainerNr3") Me.columnContainerNr4 = MyBase.Columns("ContainerNr4") Me.columntrAv_Info = MyBase.Columns("trAv_Info") Me.columnFreightCostsEU = MyBase.Columns("FreightCostsEU") Me.columnFreightCostsNonEU = MyBase.Columns("FreightCostsNonEU") End Sub _ Private Sub InitClass() Me.columnshTr_id = New Global.System.Data.DataColumn("shTr_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTr_id) Me.columnshTr_Partnersystem = New Global.System.Data.DataColumn("shTr_Partnersystem", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTr_Partnersystem) Me.columnshTr_Status = New Global.System.Data.DataColumn("shTr_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTr_Status) Me.columnshTr_TRAvisoId = New Global.System.Data.DataColumn("shTr_TRAvisoId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTr_TRAvisoId) Me.columnCompany = New Global.System.Data.DataColumn("Company", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCompany) Me.columnDepartment = New Global.System.Data.DataColumn("Department", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDepartment) Me.columnReference = New Global.System.Data.DataColumn("Reference", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReference) Me.columnDeclarationCountry = New Global.System.Data.DataColumn("DeclarationCountry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarationCountry) Me.columnDeclarationType = New Global.System.Data.DataColumn("DeclarationType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDeclarationType) Me.columnTotPackage = New Global.System.Data.DataColumn("TotPackage", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTotPackage) Me.columnTotGrossWeight = New Global.System.Data.DataColumn("TotGrossWeight", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTotGrossWeight) Me.columnCustomsCodeDeparture = New Global.System.Data.DataColumn("CustomsCodeDeparture", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomsCodeDeparture) Me.columnCustomsCodeDestination = New Global.System.Data.DataColumn("CustomsCodeDestination", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomsCodeDestination) Me.columnCustomsCodeEntry = New Global.System.Data.DataColumn("CustomsCodeEntry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomsCodeEntry) Me.columnTransportModeBorder = New Global.System.Data.DataColumn("TransportModeBorder", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransportModeBorder) Me.columnCountryCodeDeparture = New Global.System.Data.DataColumn("CountryCodeDeparture", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCountryCodeDeparture) Me.columnCountryCodeDestination = New Global.System.Data.DataColumn("CountryCodeDestination", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCountryCodeDestination) Me.columnDEStateCodeDestination = New Global.System.Data.DataColumn("DEStateCodeDestination", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDEStateCodeDestination) Me.columnTransportArrivalLicensePlate = New Global.System.Data.DataColumn("TransportArrivalLicensePlate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransportArrivalLicensePlate) Me.columnTransportArrivalCountryCode = New Global.System.Data.DataColumn("TransportArrivalCountryCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransportArrivalCountryCode) Me.columnTransportBorderType = New Global.System.Data.DataColumn("TransportBorderType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransportBorderType) Me.columnTransportBorderLicensePlate = New Global.System.Data.DataColumn("TransportBorderLicensePlate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTransportBorderLicensePlate) Me.columnIncoterm = New Global.System.Data.DataColumn("Incoterm", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIncoterm) Me.columnPrePaperCode = New Global.System.Data.DataColumn("PrePaperCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrePaperCode) Me.columnPrePaperNr = New Global.System.Data.DataColumn("PrePaperNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrePaperNr) Me.columnKindOfBusiness = New Global.System.Data.DataColumn("KindOfBusiness", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKindOfBusiness) Me.columnInvoiceAmount = New Global.System.Data.DataColumn("InvoiceAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInvoiceAmount) Me.columnInvoiceCurrency = New Global.System.Data.DataColumn("InvoiceCurrency", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInvoiceCurrency) Me.columnContainerNr1 = New Global.System.Data.DataColumn("ContainerNr1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnContainerNr1) Me.columnContainerNr2 = New Global.System.Data.DataColumn("ContainerNr2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnContainerNr2) Me.columnContainerNr3 = New Global.System.Data.DataColumn("ContainerNr3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnContainerNr3) Me.columnContainerNr4 = New Global.System.Data.DataColumn("ContainerNr4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnContainerNr4) Me.columntrAv_Info = New Global.System.Data.DataColumn("trAv_Info", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrAv_Info) Me.columnFreightCostsEU = New Global.System.Data.DataColumn("FreightCostsEU", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFreightCostsEU) Me.columnFreightCostsNonEU = New Global.System.Data.DataColumn("FreightCostsNonEU", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFreightCostsNonEU) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnshTr_id}, true)) Me.columnshTr_id.AutoIncrement = true Me.columnshTr_id.AutoIncrementSeed = -1 Me.columnshTr_id.AutoIncrementStep = -1 Me.columnshTr_id.AllowDBNull = false Me.columnshTr_id.ReadOnly = true Me.columnshTr_id.Unique = true Me.columnshTr_Partnersystem.AllowDBNull = false Me.columnshTr_Partnersystem.MaxLength = 50 Me.columnCompany.MaxLength = 50 Me.columnDepartment.MaxLength = 50 Me.columnReference.MaxLength = 50 Me.columnDeclarationCountry.MaxLength = 50 Me.columnDeclarationType.MaxLength = 50 Me.columnCustomsCodeDeparture.MaxLength = 10 Me.columnCustomsCodeDestination.MaxLength = 10 Me.columnCustomsCodeEntry.MaxLength = 10 Me.columnTransportModeBorder.MaxLength = 1 Me.columnCountryCodeDeparture.MaxLength = 3 Me.columnCountryCodeDestination.MaxLength = 3 Me.columnDEStateCodeDestination.MaxLength = 3 Me.columnTransportArrivalLicensePlate.MaxLength = 50 Me.columnTransportArrivalCountryCode.MaxLength = 50 Me.columnTransportBorderType.MaxLength = 50 Me.columnTransportBorderLicensePlate.MaxLength = 50 Me.columnIncoterm.MaxLength = 50 Me.columnPrePaperCode.MaxLength = 20 Me.columnPrePaperNr.MaxLength = 50 Me.columnInvoiceCurrency.MaxLength = 3 Me.columnContainerNr1.MaxLength = 50 Me.columnContainerNr2.MaxLength = 50 Me.columnContainerNr3.MaxLength = 50 Me.columnContainerNr4.MaxLength = 50 Me.columntrAv_Info.MaxLength = 2147483647 End Sub _ Public Function NewtblTR_ShipmentRow() As tblTR_ShipmentRow Return CType(Me.NewRow,tblTR_ShipmentRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTR_ShipmentRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTR_ShipmentRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTR_ShipmentRowChangedEvent) Is Nothing) Then RaiseEvent tblTR_ShipmentRowChanged(Me, New tblTR_ShipmentRowChangeEvent(CType(e.Row,tblTR_ShipmentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTR_ShipmentRowChangingEvent) Is Nothing) Then RaiseEvent tblTR_ShipmentRowChanging(Me, New tblTR_ShipmentRowChangeEvent(CType(e.Row,tblTR_ShipmentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTR_ShipmentRowDeletedEvent) Is Nothing) Then RaiseEvent tblTR_ShipmentRowDeleted(Me, New tblTR_ShipmentRowChangeEvent(CType(e.Row,tblTR_ShipmentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTR_ShipmentRowDeletingEvent) Is Nothing) Then RaiseEvent tblTR_ShipmentRowDeleting(Me, New tblTR_ShipmentRowChangeEvent(CType(e.Row,tblTR_ShipmentRow), e.Action)) End If End Sub _ Public Sub RemovetblTR_ShipmentRow(ByVal row As tblTR_ShipmentRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTR_ShipmentDataTable" 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 tblTR_Shipment_AdressenDataTable Inherits Global.System.Data.TypedTableBase(Of tblTR_Shipment_AdressenRow) Private columnshTrAd_id As Global.System.Data.DataColumn Private columnshTrAd_ShTrId As Global.System.Data.DataColumn Private columnAddressCode As Global.System.Data.DataColumn Private columnCustomerID As Global.System.Data.DataColumn Private columnEORI As Global.System.Data.DataColumn Private columnNLNR As Global.System.Data.DataColumn Private columnName1 As Global.System.Data.DataColumn Private columnName2 As Global.System.Data.DataColumn Private columnName3 As Global.System.Data.DataColumn Private columnStreet1 As Global.System.Data.DataColumn Private columnStreet2 As Global.System.Data.DataColumn Private columnCity As Global.System.Data.DataColumn Private columnCountryCode As Global.System.Data.DataColumn Private columnPostalCode As Global.System.Data.DataColumn Private columnUStID As Global.System.Data.DataColumn Private columnTaxNo As Global.System.Data.DataColumn Private columnContactPerson As Global.System.Data.DataColumn Private columnTelefon As Global.System.Data.DataColumn Private columnEmail As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTR_Shipment_Adressen" 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 shTrAd_idColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrAd_id End Get End Property _ Public ReadOnly Property shTrAd_ShTrIdColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrAd_ShTrId End Get End Property _ Public ReadOnly Property AddressCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnAddressCode End Get End Property _ Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn Get Return Me.columnCustomerID End Get End Property _ Public ReadOnly Property EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnEORI End Get End Property _ Public ReadOnly Property NLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnNLNR End Get End Property _ Public ReadOnly Property Name1Column() As Global.System.Data.DataColumn Get Return Me.columnName1 End Get End Property _ Public ReadOnly Property Name2Column() As Global.System.Data.DataColumn Get Return Me.columnName2 End Get End Property _ Public ReadOnly Property Name3Column() As Global.System.Data.DataColumn Get Return Me.columnName3 End Get End Property _ Public ReadOnly Property Street1Column() As Global.System.Data.DataColumn Get Return Me.columnStreet1 End Get End Property _ Public ReadOnly Property Street2Column() As Global.System.Data.DataColumn Get Return Me.columnStreet2 End Get End Property _ Public ReadOnly Property CityColumn() As Global.System.Data.DataColumn Get Return Me.columnCity End Get End Property _ Public ReadOnly Property CountryCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCountryCode End Get End Property _ Public ReadOnly Property PostalCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnPostalCode End Get End Property _ Public ReadOnly Property UStIDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStID End Get End Property _ Public ReadOnly Property TaxNoColumn() As Global.System.Data.DataColumn Get Return Me.columnTaxNo End Get End Property _ Public ReadOnly Property ContactPersonColumn() As Global.System.Data.DataColumn Get Return Me.columnContactPerson End Get End Property _ Public ReadOnly Property TelefonColumn() As Global.System.Data.DataColumn Get Return Me.columnTelefon End Get End Property _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail 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 tblTR_Shipment_AdressenRow Get Return CType(Me.Rows(index),tblTR_Shipment_AdressenRow) End Get End Property _ Public Event tblTR_Shipment_AdressenRowChanging As tblTR_Shipment_AdressenRowChangeEventHandler _ Public Event tblTR_Shipment_AdressenRowChanged As tblTR_Shipment_AdressenRowChangeEventHandler _ Public Event tblTR_Shipment_AdressenRowDeleting As tblTR_Shipment_AdressenRowChangeEventHandler _ Public Event tblTR_Shipment_AdressenRowDeleted As tblTR_Shipment_AdressenRowChangeEventHandler _ Public Overloads Sub AddtblTR_Shipment_AdressenRow(ByVal row As tblTR_Shipment_AdressenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTR_Shipment_AdressenRow( _ ByVal shTrAd_ShTrId As Integer, _ ByVal AddressCode As String, _ ByVal CustomerID As String, _ ByVal EORI As String, _ ByVal NLNR As String, _ ByVal Name1 As String, _ ByVal Name2 As String, _ ByVal Name3 As String, _ ByVal Street1 As String, _ ByVal Street2 As String, _ ByVal City As String, _ ByVal CountryCode As String, _ ByVal PostalCode As String, _ ByVal UStID As String, _ ByVal TaxNo As String, _ ByVal ContactPerson As String, _ ByVal Telefon As String, _ ByVal Email As String) As tblTR_Shipment_AdressenRow Dim rowtblTR_Shipment_AdressenRow As tblTR_Shipment_AdressenRow = CType(Me.NewRow,tblTR_Shipment_AdressenRow) Dim columnValuesArray() As Object = New Object() {Nothing, shTrAd_ShTrId, AddressCode, CustomerID, EORI, NLNR, Name1, Name2, Name3, Street1, Street2, City, CountryCode, PostalCode, UStID, TaxNo, ContactPerson, Telefon, Email} rowtblTR_Shipment_AdressenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTR_Shipment_AdressenRow) Return rowtblTR_Shipment_AdressenRow End Function _ Public Function FindByshTrAd_id(ByVal shTrAd_id As Integer) As tblTR_Shipment_AdressenRow Return CType(Me.Rows.Find(New Object() {shTrAd_id}),tblTR_Shipment_AdressenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTR_Shipment_AdressenDataTable = CType(MyBase.Clone,tblTR_Shipment_AdressenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTR_Shipment_AdressenDataTable() End Function _ Friend Sub InitVars() Me.columnshTrAd_id = MyBase.Columns("shTrAd_id") Me.columnshTrAd_ShTrId = MyBase.Columns("shTrAd_ShTrId") Me.columnAddressCode = MyBase.Columns("AddressCode") Me.columnCustomerID = MyBase.Columns("CustomerID") Me.columnEORI = MyBase.Columns("EORI") Me.columnNLNR = MyBase.Columns("NLNR") Me.columnName1 = MyBase.Columns("Name1") Me.columnName2 = MyBase.Columns("Name2") Me.columnName3 = MyBase.Columns("Name3") Me.columnStreet1 = MyBase.Columns("Street1") Me.columnStreet2 = MyBase.Columns("Street2") Me.columnCity = MyBase.Columns("City") Me.columnCountryCode = MyBase.Columns("CountryCode") Me.columnPostalCode = MyBase.Columns("PostalCode") Me.columnUStID = MyBase.Columns("UStID") Me.columnTaxNo = MyBase.Columns("TaxNo") Me.columnContactPerson = MyBase.Columns("ContactPerson") Me.columnTelefon = MyBase.Columns("Telefon") Me.columnEmail = MyBase.Columns("Email") End Sub _ Private Sub InitClass() Me.columnshTrAd_id = New Global.System.Data.DataColumn("shTrAd_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrAd_id) Me.columnshTrAd_ShTrId = New Global.System.Data.DataColumn("shTrAd_ShTrId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrAd_ShTrId) Me.columnAddressCode = New Global.System.Data.DataColumn("AddressCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAddressCode) Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomerID) Me.columnEORI = New Global.System.Data.DataColumn("EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEORI) Me.columnNLNR = New Global.System.Data.DataColumn("NLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNLNR) Me.columnName1 = New Global.System.Data.DataColumn("Name1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName1) Me.columnName2 = New Global.System.Data.DataColumn("Name2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName2) Me.columnName3 = New Global.System.Data.DataColumn("Name3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName3) Me.columnStreet1 = New Global.System.Data.DataColumn("Street1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStreet1) Me.columnStreet2 = New Global.System.Data.DataColumn("Street2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStreet2) Me.columnCity = New Global.System.Data.DataColumn("City", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCity) Me.columnCountryCode = New Global.System.Data.DataColumn("CountryCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCountryCode) Me.columnPostalCode = New Global.System.Data.DataColumn("PostalCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPostalCode) Me.columnUStID = New Global.System.Data.DataColumn("UStID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStID) Me.columnTaxNo = New Global.System.Data.DataColumn("TaxNo", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTaxNo) Me.columnContactPerson = New Global.System.Data.DataColumn("ContactPerson", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnContactPerson) Me.columnTelefon = New Global.System.Data.DataColumn("Telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelefon) Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnshTrAd_id}, true)) Me.columnshTrAd_id.AutoIncrement = true Me.columnshTrAd_id.AutoIncrementSeed = -1 Me.columnshTrAd_id.AutoIncrementStep = -1 Me.columnshTrAd_id.AllowDBNull = false Me.columnshTrAd_id.ReadOnly = true Me.columnshTrAd_id.Unique = true Me.columnshTrAd_ShTrId.AllowDBNull = false Me.columnAddressCode.MaxLength = 2 Me.columnCustomerID.MaxLength = 30 Me.columnEORI.MaxLength = 17 Me.columnNLNR.MaxLength = 4 Me.columnName1.MaxLength = 120 Me.columnName2.MaxLength = 120 Me.columnName3.MaxLength = 120 Me.columnStreet1.MaxLength = 35 Me.columnStreet2.MaxLength = 35 Me.columnCity.MaxLength = 35 Me.columnCountryCode.MaxLength = 3 Me.columnPostalCode.MaxLength = 9 Me.columnUStID.MaxLength = 14 Me.columnTaxNo.MaxLength = 14 Me.columnContactPerson.MaxLength = 256 Me.columnTelefon.MaxLength = 256 Me.columnEmail.MaxLength = 256 End Sub _ Public Function NewtblTR_Shipment_AdressenRow() As tblTR_Shipment_AdressenRow Return CType(Me.NewRow,tblTR_Shipment_AdressenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTR_Shipment_AdressenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTR_Shipment_AdressenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTR_Shipment_AdressenRowChangedEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_AdressenRowChanged(Me, New tblTR_Shipment_AdressenRowChangeEvent(CType(e.Row,tblTR_Shipment_AdressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTR_Shipment_AdressenRowChangingEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_AdressenRowChanging(Me, New tblTR_Shipment_AdressenRowChangeEvent(CType(e.Row,tblTR_Shipment_AdressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTR_Shipment_AdressenRowDeletedEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_AdressenRowDeleted(Me, New tblTR_Shipment_AdressenRowChangeEvent(CType(e.Row,tblTR_Shipment_AdressenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTR_Shipment_AdressenRowDeletingEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_AdressenRowDeleting(Me, New tblTR_Shipment_AdressenRowChangeEvent(CType(e.Row,tblTR_Shipment_AdressenRow), e.Action)) End If End Sub _ Public Sub RemovetblTR_Shipment_AdressenRow(ByVal row As tblTR_Shipment_AdressenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTR_Shipment_AdressenDataTable" 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 tblTR_Shipment_DocumentDataTable Inherits Global.System.Data.TypedTableBase(Of tblTR_Shipment_DocumentRow) Private columnshTrDoc_id As Global.System.Data.DataColumn Private columnshTrDoc_ShTrId As Global.System.Data.DataColumn Private columnDocumentType As Global.System.Data.DataColumn Private columnDocumentNr As Global.System.Data.DataColumn Private columnDocumentDate As Global.System.Data.DataColumn Private columnshTrPosDoc_docID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTR_Shipment_Document" 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 shTrDoc_idColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrDoc_id End Get End Property _ Public ReadOnly Property shTrDoc_ShTrIdColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrDoc_ShTrId End Get End Property _ Public ReadOnly Property DocumentTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnDocumentType End Get End Property _ Public ReadOnly Property DocumentNrColumn() As Global.System.Data.DataColumn Get Return Me.columnDocumentNr End Get End Property _ Public ReadOnly Property DocumentDateColumn() As Global.System.Data.DataColumn Get Return Me.columnDocumentDate End Get End Property _ Public ReadOnly Property shTrPosDoc_docIDColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrPosDoc_docID 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 tblTR_Shipment_DocumentRow Get Return CType(Me.Rows(index),tblTR_Shipment_DocumentRow) End Get End Property _ Public Event tblTR_Shipment_DocumentRowChanging As tblTR_Shipment_DocumentRowChangeEventHandler _ Public Event tblTR_Shipment_DocumentRowChanged As tblTR_Shipment_DocumentRowChangeEventHandler _ Public Event tblTR_Shipment_DocumentRowDeleting As tblTR_Shipment_DocumentRowChangeEventHandler _ Public Event tblTR_Shipment_DocumentRowDeleted As tblTR_Shipment_DocumentRowChangeEventHandler _ Public Overloads Sub AddtblTR_Shipment_DocumentRow(ByVal row As tblTR_Shipment_DocumentRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTR_Shipment_DocumentRow(ByVal shTrDoc_ShTrId As Integer, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Date, ByVal shTrPosDoc_docID As Integer) As tblTR_Shipment_DocumentRow Dim rowtblTR_Shipment_DocumentRow As tblTR_Shipment_DocumentRow = CType(Me.NewRow,tblTR_Shipment_DocumentRow) Dim columnValuesArray() As Object = New Object() {Nothing, shTrDoc_ShTrId, DocumentType, DocumentNr, DocumentDate, shTrPosDoc_docID} rowtblTR_Shipment_DocumentRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTR_Shipment_DocumentRow) Return rowtblTR_Shipment_DocumentRow End Function _ Public Function FindByshTrDoc_id(ByVal shTrDoc_id As Integer) As tblTR_Shipment_DocumentRow Return CType(Me.Rows.Find(New Object() {shTrDoc_id}),tblTR_Shipment_DocumentRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTR_Shipment_DocumentDataTable = CType(MyBase.Clone,tblTR_Shipment_DocumentDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTR_Shipment_DocumentDataTable() End Function _ Friend Sub InitVars() Me.columnshTrDoc_id = MyBase.Columns("shTrDoc_id") Me.columnshTrDoc_ShTrId = MyBase.Columns("shTrDoc_ShTrId") Me.columnDocumentType = MyBase.Columns("DocumentType") Me.columnDocumentNr = MyBase.Columns("DocumentNr") Me.columnDocumentDate = MyBase.Columns("DocumentDate") Me.columnshTrPosDoc_docID = MyBase.Columns("shTrPosDoc_docID") End Sub _ Private Sub InitClass() Me.columnshTrDoc_id = New Global.System.Data.DataColumn("shTrDoc_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrDoc_id) Me.columnshTrDoc_ShTrId = New Global.System.Data.DataColumn("shTrDoc_ShTrId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrDoc_ShTrId) Me.columnDocumentType = New Global.System.Data.DataColumn("DocumentType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocumentType) Me.columnDocumentNr = New Global.System.Data.DataColumn("DocumentNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocumentNr) Me.columnDocumentDate = New Global.System.Data.DataColumn("DocumentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocumentDate) Me.columnshTrPosDoc_docID = New Global.System.Data.DataColumn("shTrPosDoc_docID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrPosDoc_docID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnshTrDoc_id}, true)) Me.columnshTrDoc_id.AutoIncrement = true Me.columnshTrDoc_id.AutoIncrementSeed = -1 Me.columnshTrDoc_id.AutoIncrementStep = -1 Me.columnshTrDoc_id.AllowDBNull = false Me.columnshTrDoc_id.ReadOnly = true Me.columnshTrDoc_id.Unique = true Me.columnshTrDoc_ShTrId.AllowDBNull = false Me.columnDocumentType.MaxLength = 20 Me.columnDocumentNr.MaxLength = 100 End Sub _ Public Function NewtblTR_Shipment_DocumentRow() As tblTR_Shipment_DocumentRow Return CType(Me.NewRow,tblTR_Shipment_DocumentRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTR_Shipment_DocumentRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTR_Shipment_DocumentRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTR_Shipment_DocumentRowChangedEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_DocumentRowChanged(Me, New tblTR_Shipment_DocumentRowChangeEvent(CType(e.Row,tblTR_Shipment_DocumentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTR_Shipment_DocumentRowChangingEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_DocumentRowChanging(Me, New tblTR_Shipment_DocumentRowChangeEvent(CType(e.Row,tblTR_Shipment_DocumentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTR_Shipment_DocumentRowDeletedEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_DocumentRowDeleted(Me, New tblTR_Shipment_DocumentRowChangeEvent(CType(e.Row,tblTR_Shipment_DocumentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTR_Shipment_DocumentRowDeletingEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_DocumentRowDeleting(Me, New tblTR_Shipment_DocumentRowChangeEvent(CType(e.Row,tblTR_Shipment_DocumentRow), e.Action)) End If End Sub _ Public Sub RemovetblTR_Shipment_DocumentRow(ByVal row As tblTR_Shipment_DocumentRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTR_Shipment_DocumentDataTable" 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 tblTR_Shipment_PositionDataTable Inherits Global.System.Data.TypedTableBase(Of tblTR_Shipment_PositionRow) Private columnshTrPos_id As Global.System.Data.DataColumn Private columnshTrPos_ShTrId As Global.System.Data.DataColumn Private columnPosNr As Global.System.Data.DataColumn Private columnGoodsTariff As Global.System.Data.DataColumn Private columnGoodsTariffExt1 As Global.System.Data.DataColumn Private columnGoodsTariffExt2 As Global.System.Data.DataColumn Private columnGoodsTariffExt3 As Global.System.Data.DataColumn Private columnGoodsTariffExt4 As Global.System.Data.DataColumn Private columnGoodsTariffExt5 As Global.System.Data.DataColumn Private columnGoodsTariffExt6 As Global.System.Data.DataColumn Private columnGoodsTariffExt7 As Global.System.Data.DataColumn Private columnGoodsTariffExt8 As Global.System.Data.DataColumn Private columnGoodsTariffExt9 As Global.System.Data.DataColumn Private columnGoodsTariffExt10 As Global.System.Data.DataColumn Private columnGoodsTariffYCode1 As Global.System.Data.DataColumn Private columnGoodsTariffYCode2 As Global.System.Data.DataColumn Private columnGoodsTariffYCode3 As Global.System.Data.DataColumn Private columnGoodsTariffYCode4 As Global.System.Data.DataColumn Private columnGoodsTariffYCode5 As Global.System.Data.DataColumn Private columnGoodsTariffYCode6 As Global.System.Data.DataColumn Private columnGoodsTariffYCode7 As Global.System.Data.DataColumn Private columnGoodsTariffYCode8 As Global.System.Data.DataColumn Private columnGoodsTariffYCode9 As Global.System.Data.DataColumn Private columnGoodsTariffYCode10 As Global.System.Data.DataColumn Private columnGoodsDescription As Global.System.Data.DataColumn Private columnOriginCountryCode As Global.System.Data.DataColumn Private columnGrossWeight As Global.System.Data.DataColumn Private columnNetWeight As Global.System.Data.DataColumn Private columnNumberOfPackages As Global.System.Data.DataColumn Private columnKindOfPackages As Global.System.Data.DataColumn Private columnItemInvoiceAmount As Global.System.Data.DataColumn Private columnItemInvoiceCurrency As Global.System.Data.DataColumn Private columnItemAmount As Global.System.Data.DataColumn Private columnItemAmountUnitCode As Global.System.Data.DataColumn Private columnProcedure As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTR_Shipment_Position" 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 shTrPos_idColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrPos_id End Get End Property _ Public ReadOnly Property shTrPos_ShTrIdColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrPos_ShTrId End Get End Property _ Public ReadOnly Property PosNrColumn() As Global.System.Data.DataColumn Get Return Me.columnPosNr End Get End Property _ Public ReadOnly Property GoodsTariffColumn() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariff End Get End Property _ Public ReadOnly Property GoodsTariffExt1Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffExt1 End Get End Property _ Public ReadOnly Property GoodsTariffExt2Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffExt2 End Get End Property _ Public ReadOnly Property GoodsTariffExt3Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffExt3 End Get End Property _ Public ReadOnly Property GoodsTariffExt4Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffExt4 End Get End Property _ Public ReadOnly Property GoodsTariffExt5Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffExt5 End Get End Property _ Public ReadOnly Property GoodsTariffExt6Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffExt6 End Get End Property _ Public ReadOnly Property GoodsTariffExt7Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffExt7 End Get End Property _ Public ReadOnly Property GoodsTariffExt8Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffExt8 End Get End Property _ Public ReadOnly Property GoodsTariffExt9Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffExt9 End Get End Property _ Public ReadOnly Property GoodsTariffExt10Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffExt10 End Get End Property _ Public ReadOnly Property GoodsTariffYCode1Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffYCode1 End Get End Property _ Public ReadOnly Property GoodsTariffYCode2Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffYCode2 End Get End Property _ Public ReadOnly Property GoodsTariffYCode3Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffYCode3 End Get End Property _ Public ReadOnly Property GoodsTariffYCode4Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffYCode4 End Get End Property _ Public ReadOnly Property GoodsTariffYCode5Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffYCode5 End Get End Property _ Public ReadOnly Property GoodsTariffYCode6Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffYCode6 End Get End Property _ Public ReadOnly Property GoodsTariffYCode7Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffYCode7 End Get End Property _ Public ReadOnly Property GoodsTariffYCode8Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffYCode8 End Get End Property _ Public ReadOnly Property GoodsTariffYCode9Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffYCode9 End Get End Property _ Public ReadOnly Property GoodsTariffYCode10Column() As Global.System.Data.DataColumn Get Return Me.columnGoodsTariffYCode10 End Get End Property _ Public ReadOnly Property GoodsDescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnGoodsDescription End Get End Property _ Public ReadOnly Property OriginCountryCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnOriginCountryCode End Get End Property _ Public ReadOnly Property GrossWeightColumn() As Global.System.Data.DataColumn Get Return Me.columnGrossWeight End Get End Property _ Public ReadOnly Property NetWeightColumn() As Global.System.Data.DataColumn Get Return Me.columnNetWeight End Get End Property _ Public ReadOnly Property NumberOfPackagesColumn() As Global.System.Data.DataColumn Get Return Me.columnNumberOfPackages End Get End Property _ Public ReadOnly Property KindOfPackagesColumn() As Global.System.Data.DataColumn Get Return Me.columnKindOfPackages End Get End Property _ Public ReadOnly Property ItemInvoiceAmountColumn() As Global.System.Data.DataColumn Get Return Me.columnItemInvoiceAmount End Get End Property _ Public ReadOnly Property ItemInvoiceCurrencyColumn() As Global.System.Data.DataColumn Get Return Me.columnItemInvoiceCurrency End Get End Property _ Public ReadOnly Property ItemAmountColumn() As Global.System.Data.DataColumn Get Return Me.columnItemAmount End Get End Property _ Public ReadOnly Property ItemAmountUnitCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnItemAmountUnitCode End Get End Property _ Public ReadOnly Property ProcedureColumn() As Global.System.Data.DataColumn Get Return Me.columnProcedure 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 tblTR_Shipment_PositionRow Get Return CType(Me.Rows(index),tblTR_Shipment_PositionRow) End Get End Property _ Public Event tblTR_Shipment_PositionRowChanging As tblTR_Shipment_PositionRowChangeEventHandler _ Public Event tblTR_Shipment_PositionRowChanged As tblTR_Shipment_PositionRowChangeEventHandler _ Public Event tblTR_Shipment_PositionRowDeleting As tblTR_Shipment_PositionRowChangeEventHandler _ Public Event tblTR_Shipment_PositionRowDeleted As tblTR_Shipment_PositionRowChangeEventHandler _ Public Overloads Sub AddtblTR_Shipment_PositionRow(ByVal row As tblTR_Shipment_PositionRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTR_Shipment_PositionRow( _ ByVal shTrPos_ShTrId As Integer, _ ByVal PosNr As Integer, _ ByVal GoodsTariff As String, _ ByVal GoodsTariffExt1 As String, _ ByVal GoodsTariffExt2 As String, _ ByVal GoodsTariffExt3 As String, _ ByVal GoodsTariffExt4 As String, _ ByVal GoodsTariffExt5 As String, _ ByVal GoodsTariffExt6 As String, _ ByVal GoodsTariffExt7 As String, _ ByVal GoodsTariffExt8 As String, _ ByVal GoodsTariffExt9 As String, _ ByVal GoodsTariffExt10 As String, _ ByVal GoodsTariffYCode1 As String, _ ByVal GoodsTariffYCode2 As String, _ ByVal GoodsTariffYCode3 As String, _ ByVal GoodsTariffYCode4 As String, _ ByVal GoodsTariffYCode5 As String, _ ByVal GoodsTariffYCode6 As String, _ ByVal GoodsTariffYCode7 As String, _ ByVal GoodsTariffYCode8 As String, _ ByVal GoodsTariffYCode9 As String, _ ByVal GoodsTariffYCode10 As String, _ ByVal GoodsDescription As String, _ ByVal OriginCountryCode As String, _ ByVal GrossWeight As Decimal, _ ByVal NetWeight As Decimal, _ ByVal NumberOfPackages As Integer, _ ByVal KindOfPackages As String, _ ByVal ItemInvoiceAmount As Decimal, _ ByVal ItemInvoiceCurrency As String, _ ByVal ItemAmount As Decimal, _ ByVal ItemAmountUnitCode As String, _ ByVal Procedure As String) As tblTR_Shipment_PositionRow Dim rowtblTR_Shipment_PositionRow As tblTR_Shipment_PositionRow = CType(Me.NewRow,tblTR_Shipment_PositionRow) Dim columnValuesArray() As Object = New Object() {Nothing, shTrPos_ShTrId, PosNr, GoodsTariff, GoodsTariffExt1, GoodsTariffExt2, GoodsTariffExt3, GoodsTariffExt4, GoodsTariffExt5, GoodsTariffExt6, GoodsTariffExt7, GoodsTariffExt8, GoodsTariffExt9, GoodsTariffExt10, GoodsTariffYCode1, GoodsTariffYCode2, GoodsTariffYCode3, GoodsTariffYCode4, GoodsTariffYCode5, GoodsTariffYCode6, GoodsTariffYCode7, GoodsTariffYCode8, GoodsTariffYCode9, GoodsTariffYCode10, GoodsDescription, OriginCountryCode, GrossWeight, NetWeight, NumberOfPackages, KindOfPackages, ItemInvoiceAmount, ItemInvoiceCurrency, ItemAmount, ItemAmountUnitCode, Procedure} rowtblTR_Shipment_PositionRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTR_Shipment_PositionRow) Return rowtblTR_Shipment_PositionRow End Function _ Public Function FindByshTrPos_id(ByVal shTrPos_id As Integer) As tblTR_Shipment_PositionRow Return CType(Me.Rows.Find(New Object() {shTrPos_id}),tblTR_Shipment_PositionRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTR_Shipment_PositionDataTable = CType(MyBase.Clone,tblTR_Shipment_PositionDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTR_Shipment_PositionDataTable() End Function _ Friend Sub InitVars() Me.columnshTrPos_id = MyBase.Columns("shTrPos_id") Me.columnshTrPos_ShTrId = MyBase.Columns("shTrPos_ShTrId") Me.columnPosNr = MyBase.Columns("PosNr") Me.columnGoodsTariff = MyBase.Columns("GoodsTariff") Me.columnGoodsTariffExt1 = MyBase.Columns("GoodsTariffExt1") Me.columnGoodsTariffExt2 = MyBase.Columns("GoodsTariffExt2") Me.columnGoodsTariffExt3 = MyBase.Columns("GoodsTariffExt3") Me.columnGoodsTariffExt4 = MyBase.Columns("GoodsTariffExt4") Me.columnGoodsTariffExt5 = MyBase.Columns("GoodsTariffExt5") Me.columnGoodsTariffExt6 = MyBase.Columns("GoodsTariffExt6") Me.columnGoodsTariffExt7 = MyBase.Columns("GoodsTariffExt7") Me.columnGoodsTariffExt8 = MyBase.Columns("GoodsTariffExt8") Me.columnGoodsTariffExt9 = MyBase.Columns("GoodsTariffExt9") Me.columnGoodsTariffExt10 = MyBase.Columns("GoodsTariffExt10") Me.columnGoodsTariffYCode1 = MyBase.Columns("GoodsTariffYCode1") Me.columnGoodsTariffYCode2 = MyBase.Columns("GoodsTariffYCode2") Me.columnGoodsTariffYCode3 = MyBase.Columns("GoodsTariffYCode3") Me.columnGoodsTariffYCode4 = MyBase.Columns("GoodsTariffYCode4") Me.columnGoodsTariffYCode5 = MyBase.Columns("GoodsTariffYCode5") Me.columnGoodsTariffYCode6 = MyBase.Columns("GoodsTariffYCode6") Me.columnGoodsTariffYCode7 = MyBase.Columns("GoodsTariffYCode7") Me.columnGoodsTariffYCode8 = MyBase.Columns("GoodsTariffYCode8") Me.columnGoodsTariffYCode9 = MyBase.Columns("GoodsTariffYCode9") Me.columnGoodsTariffYCode10 = MyBase.Columns("GoodsTariffYCode10") Me.columnGoodsDescription = MyBase.Columns("GoodsDescription") Me.columnOriginCountryCode = MyBase.Columns("OriginCountryCode") Me.columnGrossWeight = MyBase.Columns("GrossWeight") Me.columnNetWeight = MyBase.Columns("NetWeight") Me.columnNumberOfPackages = MyBase.Columns("NumberOfPackages") Me.columnKindOfPackages = MyBase.Columns("KindOfPackages") Me.columnItemInvoiceAmount = MyBase.Columns("ItemInvoiceAmount") Me.columnItemInvoiceCurrency = MyBase.Columns("ItemInvoiceCurrency") Me.columnItemAmount = MyBase.Columns("ItemAmount") Me.columnItemAmountUnitCode = MyBase.Columns("ItemAmountUnitCode") Me.columnProcedure = MyBase.Columns("Procedure") End Sub _ Private Sub InitClass() Me.columnshTrPos_id = New Global.System.Data.DataColumn("shTrPos_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrPos_id) Me.columnshTrPos_ShTrId = New Global.System.Data.DataColumn("shTrPos_ShTrId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrPos_ShTrId) Me.columnPosNr = New Global.System.Data.DataColumn("PosNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPosNr) Me.columnGoodsTariff = New Global.System.Data.DataColumn("GoodsTariff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariff) Me.columnGoodsTariffExt1 = New Global.System.Data.DataColumn("GoodsTariffExt1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffExt1) Me.columnGoodsTariffExt2 = New Global.System.Data.DataColumn("GoodsTariffExt2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffExt2) Me.columnGoodsTariffExt3 = New Global.System.Data.DataColumn("GoodsTariffExt3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffExt3) Me.columnGoodsTariffExt4 = New Global.System.Data.DataColumn("GoodsTariffExt4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffExt4) Me.columnGoodsTariffExt5 = New Global.System.Data.DataColumn("GoodsTariffExt5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffExt5) Me.columnGoodsTariffExt6 = New Global.System.Data.DataColumn("GoodsTariffExt6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffExt6) Me.columnGoodsTariffExt7 = New Global.System.Data.DataColumn("GoodsTariffExt7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffExt7) Me.columnGoodsTariffExt8 = New Global.System.Data.DataColumn("GoodsTariffExt8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffExt8) Me.columnGoodsTariffExt9 = New Global.System.Data.DataColumn("GoodsTariffExt9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffExt9) Me.columnGoodsTariffExt10 = New Global.System.Data.DataColumn("GoodsTariffExt10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffExt10) Me.columnGoodsTariffYCode1 = New Global.System.Data.DataColumn("GoodsTariffYCode1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffYCode1) Me.columnGoodsTariffYCode2 = New Global.System.Data.DataColumn("GoodsTariffYCode2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffYCode2) Me.columnGoodsTariffYCode3 = New Global.System.Data.DataColumn("GoodsTariffYCode3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffYCode3) Me.columnGoodsTariffYCode4 = New Global.System.Data.DataColumn("GoodsTariffYCode4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffYCode4) Me.columnGoodsTariffYCode5 = New Global.System.Data.DataColumn("GoodsTariffYCode5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffYCode5) Me.columnGoodsTariffYCode6 = New Global.System.Data.DataColumn("GoodsTariffYCode6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffYCode6) Me.columnGoodsTariffYCode7 = New Global.System.Data.DataColumn("GoodsTariffYCode7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffYCode7) Me.columnGoodsTariffYCode8 = New Global.System.Data.DataColumn("GoodsTariffYCode8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffYCode8) Me.columnGoodsTariffYCode9 = New Global.System.Data.DataColumn("GoodsTariffYCode9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffYCode9) Me.columnGoodsTariffYCode10 = New Global.System.Data.DataColumn("GoodsTariffYCode10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsTariffYCode10) Me.columnGoodsDescription = New Global.System.Data.DataColumn("GoodsDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGoodsDescription) Me.columnOriginCountryCode = New Global.System.Data.DataColumn("OriginCountryCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOriginCountryCode) Me.columnGrossWeight = New Global.System.Data.DataColumn("GrossWeight", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGrossWeight) Me.columnNetWeight = New Global.System.Data.DataColumn("NetWeight", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNetWeight) Me.columnNumberOfPackages = New Global.System.Data.DataColumn("NumberOfPackages", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNumberOfPackages) Me.columnKindOfPackages = New Global.System.Data.DataColumn("KindOfPackages", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKindOfPackages) Me.columnItemInvoiceAmount = New Global.System.Data.DataColumn("ItemInvoiceAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItemInvoiceAmount) Me.columnItemInvoiceCurrency = New Global.System.Data.DataColumn("ItemInvoiceCurrency", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItemInvoiceCurrency) Me.columnItemAmount = New Global.System.Data.DataColumn("ItemAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItemAmount) Me.columnItemAmountUnitCode = New Global.System.Data.DataColumn("ItemAmountUnitCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItemAmountUnitCode) Me.columnProcedure = New Global.System.Data.DataColumn("Procedure", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProcedure) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnshTrPos_id}, true)) Me.columnshTrPos_id.AutoIncrement = true Me.columnshTrPos_id.AutoIncrementSeed = -1 Me.columnshTrPos_id.AutoIncrementStep = -1 Me.columnshTrPos_id.AllowDBNull = false Me.columnshTrPos_id.ReadOnly = true Me.columnshTrPos_id.Unique = true Me.columnshTrPos_ShTrId.AllowDBNull = false Me.columnGoodsTariff.MaxLength = 11 Me.columnGoodsTariffExt1.MaxLength = 4 Me.columnGoodsTariffExt2.MaxLength = 4 Me.columnGoodsTariffExt3.MaxLength = 4 Me.columnGoodsTariffExt4.MaxLength = 4 Me.columnGoodsTariffExt5.MaxLength = 4 Me.columnGoodsTariffExt6.MaxLength = 4 Me.columnGoodsTariffExt7.MaxLength = 4 Me.columnGoodsTariffExt8.MaxLength = 4 Me.columnGoodsTariffExt9.MaxLength = 4 Me.columnGoodsTariffExt10.MaxLength = 4 Me.columnGoodsTariffYCode1.MaxLength = 4 Me.columnGoodsTariffYCode2.MaxLength = 4 Me.columnGoodsTariffYCode3.MaxLength = 4 Me.columnGoodsTariffYCode4.MaxLength = 4 Me.columnGoodsTariffYCode5.MaxLength = 4 Me.columnGoodsTariffYCode6.MaxLength = 4 Me.columnGoodsTariffYCode7.MaxLength = 4 Me.columnGoodsTariffYCode8.MaxLength = 4 Me.columnGoodsTariffYCode9.MaxLength = 4 Me.columnGoodsTariffYCode10.MaxLength = 4 Me.columnGoodsDescription.MaxLength = 240 Me.columnOriginCountryCode.MaxLength = 3 Me.columnKindOfPackages.MaxLength = 30 Me.columnItemInvoiceCurrency.MaxLength = 3 Me.columnItemAmountUnitCode.MaxLength = 7 Me.columnProcedure.MaxLength = 4 End Sub _ Public Function NewtblTR_Shipment_PositionRow() As tblTR_Shipment_PositionRow Return CType(Me.NewRow,tblTR_Shipment_PositionRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTR_Shipment_PositionRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTR_Shipment_PositionRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTR_Shipment_PositionRowChangedEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_PositionRowChanged(Me, New tblTR_Shipment_PositionRowChangeEvent(CType(e.Row,tblTR_Shipment_PositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTR_Shipment_PositionRowChangingEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_PositionRowChanging(Me, New tblTR_Shipment_PositionRowChangeEvent(CType(e.Row,tblTR_Shipment_PositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTR_Shipment_PositionRowDeletedEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_PositionRowDeleted(Me, New tblTR_Shipment_PositionRowChangeEvent(CType(e.Row,tblTR_Shipment_PositionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTR_Shipment_PositionRowDeletingEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_PositionRowDeleting(Me, New tblTR_Shipment_PositionRowChangeEvent(CType(e.Row,tblTR_Shipment_PositionRow), e.Action)) End If End Sub _ Public Sub RemovetblTR_Shipment_PositionRow(ByVal row As tblTR_Shipment_PositionRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTR_Shipment_PositionDataTable" 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 tblTR_Shipment_Position_DocumentDataTable Inherits Global.System.Data.TypedTableBase(Of tblTR_Shipment_Position_DocumentRow) Private columnshTrPosDoc_id As Global.System.Data.DataColumn Private columnshTrPosDoc_ShTrId As Global.System.Data.DataColumn Private columnshTrPosDoc_ShTrPosId As Global.System.Data.DataColumn Private columnDocumentType As Global.System.Data.DataColumn Private columnDocumentNr As Global.System.Data.DataColumn Private columnDocumentDate As Global.System.Data.DataColumn Private columnshTrPosDoc_docID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTR_Shipment_Position_Document" 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 shTrPosDoc_idColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrPosDoc_id End Get End Property _ Public ReadOnly Property shTrPosDoc_ShTrIdColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrPosDoc_ShTrId End Get End Property _ Public ReadOnly Property shTrPosDoc_ShTrPosIdColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrPosDoc_ShTrPosId End Get End Property _ Public ReadOnly Property DocumentTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnDocumentType End Get End Property _ Public ReadOnly Property DocumentNrColumn() As Global.System.Data.DataColumn Get Return Me.columnDocumentNr End Get End Property _ Public ReadOnly Property DocumentDateColumn() As Global.System.Data.DataColumn Get Return Me.columnDocumentDate End Get End Property _ Public ReadOnly Property shTrPosDoc_docIDColumn() As Global.System.Data.DataColumn Get Return Me.columnshTrPosDoc_docID 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 tblTR_Shipment_Position_DocumentRow Get Return CType(Me.Rows(index),tblTR_Shipment_Position_DocumentRow) End Get End Property _ Public Event tblTR_Shipment_Position_DocumentRowChanging As tblTR_Shipment_Position_DocumentRowChangeEventHandler _ Public Event tblTR_Shipment_Position_DocumentRowChanged As tblTR_Shipment_Position_DocumentRowChangeEventHandler _ Public Event tblTR_Shipment_Position_DocumentRowDeleting As tblTR_Shipment_Position_DocumentRowChangeEventHandler _ Public Event tblTR_Shipment_Position_DocumentRowDeleted As tblTR_Shipment_Position_DocumentRowChangeEventHandler _ Public Overloads Sub AddtblTR_Shipment_Position_DocumentRow(ByVal row As tblTR_Shipment_Position_DocumentRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTR_Shipment_Position_DocumentRow(ByVal shTrPosDoc_ShTrId As Integer, ByVal shTrPosDoc_ShTrPosId As Integer, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Date, ByVal shTrPosDoc_docID As Integer) As tblTR_Shipment_Position_DocumentRow Dim rowtblTR_Shipment_Position_DocumentRow As tblTR_Shipment_Position_DocumentRow = CType(Me.NewRow,tblTR_Shipment_Position_DocumentRow) Dim columnValuesArray() As Object = New Object() {Nothing, shTrPosDoc_ShTrId, shTrPosDoc_ShTrPosId, DocumentType, DocumentNr, DocumentDate, shTrPosDoc_docID} rowtblTR_Shipment_Position_DocumentRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTR_Shipment_Position_DocumentRow) Return rowtblTR_Shipment_Position_DocumentRow End Function _ Public Function FindByshTrPosDoc_id(ByVal shTrPosDoc_id As Integer) As tblTR_Shipment_Position_DocumentRow Return CType(Me.Rows.Find(New Object() {shTrPosDoc_id}),tblTR_Shipment_Position_DocumentRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTR_Shipment_Position_DocumentDataTable = CType(MyBase.Clone,tblTR_Shipment_Position_DocumentDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTR_Shipment_Position_DocumentDataTable() End Function _ Friend Sub InitVars() Me.columnshTrPosDoc_id = MyBase.Columns("shTrPosDoc_id") Me.columnshTrPosDoc_ShTrId = MyBase.Columns("shTrPosDoc_ShTrId") Me.columnshTrPosDoc_ShTrPosId = MyBase.Columns("shTrPosDoc_ShTrPosId") Me.columnDocumentType = MyBase.Columns("DocumentType") Me.columnDocumentNr = MyBase.Columns("DocumentNr") Me.columnDocumentDate = MyBase.Columns("DocumentDate") Me.columnshTrPosDoc_docID = MyBase.Columns("shTrPosDoc_docID") End Sub _ Private Sub InitClass() Me.columnshTrPosDoc_id = New Global.System.Data.DataColumn("shTrPosDoc_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrPosDoc_id) Me.columnshTrPosDoc_ShTrId = New Global.System.Data.DataColumn("shTrPosDoc_ShTrId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrPosDoc_ShTrId) Me.columnshTrPosDoc_ShTrPosId = New Global.System.Data.DataColumn("shTrPosDoc_ShTrPosId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrPosDoc_ShTrPosId) Me.columnDocumentType = New Global.System.Data.DataColumn("DocumentType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocumentType) Me.columnDocumentNr = New Global.System.Data.DataColumn("DocumentNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocumentNr) Me.columnDocumentDate = New Global.System.Data.DataColumn("DocumentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDocumentDate) Me.columnshTrPosDoc_docID = New Global.System.Data.DataColumn("shTrPosDoc_docID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnshTrPosDoc_docID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnshTrPosDoc_id}, true)) Me.columnshTrPosDoc_id.AutoIncrement = true Me.columnshTrPosDoc_id.AutoIncrementSeed = -1 Me.columnshTrPosDoc_id.AutoIncrementStep = -1 Me.columnshTrPosDoc_id.AllowDBNull = false Me.columnshTrPosDoc_id.ReadOnly = true Me.columnshTrPosDoc_id.Unique = true Me.columnshTrPosDoc_ShTrId.AllowDBNull = false Me.columnshTrPosDoc_ShTrPosId.AllowDBNull = false Me.columnDocumentType.MaxLength = 20 Me.columnDocumentNr.MaxLength = 100 End Sub _ Public Function NewtblTR_Shipment_Position_DocumentRow() As tblTR_Shipment_Position_DocumentRow Return CType(Me.NewRow,tblTR_Shipment_Position_DocumentRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTR_Shipment_Position_DocumentRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTR_Shipment_Position_DocumentRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTR_Shipment_Position_DocumentRowChangedEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_Position_DocumentRowChanged(Me, New tblTR_Shipment_Position_DocumentRowChangeEvent(CType(e.Row,tblTR_Shipment_Position_DocumentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTR_Shipment_Position_DocumentRowChangingEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_Position_DocumentRowChanging(Me, New tblTR_Shipment_Position_DocumentRowChangeEvent(CType(e.Row,tblTR_Shipment_Position_DocumentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTR_Shipment_Position_DocumentRowDeletedEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_Position_DocumentRowDeleted(Me, New tblTR_Shipment_Position_DocumentRowChangeEvent(CType(e.Row,tblTR_Shipment_Position_DocumentRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTR_Shipment_Position_DocumentRowDeletingEvent) Is Nothing) Then RaiseEvent tblTR_Shipment_Position_DocumentRowDeleting(Me, New tblTR_Shipment_Position_DocumentRowChangeEvent(CType(e.Row,tblTR_Shipment_Position_DocumentRow), e.Action)) End If End Sub _ Public Sub RemovetblTR_Shipment_Position_DocumentRow(ByVal row As tblTR_Shipment_Position_DocumentRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTR_Shipment_Position_DocumentDataTable" 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 tblTranslateDataTable Inherits Global.System.Data.TypedTableBase(Of tblTranslateRow) Private columntrs_id As Global.System.Data.DataColumn Private columntrs_progId As Global.System.Data.DataColumn Private columntrs_progName As Global.System.Data.DataColumn Private columntrs_object As Global.System.Data.DataColumn Private columntrs_control As Global.System.Data.DataColumn Private columntrs_subControl As Global.System.Data.DataColumn Private columntrs_sprache As Global.System.Data.DataColumn Private columntrs_text As Global.System.Data.DataColumn Private columntrs_textDE As Global.System.Data.DataColumn Private columntrs_active As Global.System.Data.DataColumn Private columntrs_FirmaID As Global.System.Data.DataColumn Private columntrs_Option As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTranslate" 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 trs_idColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_id End Get End Property _ Public ReadOnly Property trs_progIdColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_progId End Get End Property _ Public ReadOnly Property trs_progNameColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_progName End Get End Property _ Public ReadOnly Property trs_objectColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_object End Get End Property _ Public ReadOnly Property trs_controlColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_control End Get End Property _ Public ReadOnly Property trs_subControlColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_subControl End Get End Property _ Public ReadOnly Property trs_spracheColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_sprache End Get End Property _ Public ReadOnly Property trs_textColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_text End Get End Property _ Public ReadOnly Property trs_textDEColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_textDE End Get End Property _ Public ReadOnly Property trs_activeColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_active End Get End Property _ Public ReadOnly Property trs_FirmaIDColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_FirmaID End Get End Property _ Public ReadOnly Property trs_OptionColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_Option 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 tblTranslateRow Get Return CType(Me.Rows(index),tblTranslateRow) End Get End Property _ Public Event tblTranslateRowChanging As tblTranslateRowChangeEventHandler _ Public Event tblTranslateRowChanged As tblTranslateRowChangeEventHandler _ Public Event tblTranslateRowDeleting As tblTranslateRowChangeEventHandler _ Public Event tblTranslateRowDeleted As tblTranslateRowChangeEventHandler _ Public Overloads Sub AddtblTranslateRow(ByVal row As tblTranslateRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTranslateRow(ByVal trs_progId As Integer, ByVal trs_progName As String, ByVal trs_object As String, ByVal trs_control As String, ByVal trs_subControl As String, ByVal trs_sprache As String, ByVal trs_text As String, ByVal trs_textDE As String, ByVal trs_active As Boolean, ByVal trs_FirmaID As Integer, ByVal trs_Option As String) As tblTranslateRow Dim rowtblTranslateRow As tblTranslateRow = CType(Me.NewRow,tblTranslateRow) Dim columnValuesArray() As Object = New Object() {Nothing, trs_progId, trs_progName, trs_object, trs_control, trs_subControl, trs_sprache, trs_text, trs_textDE, trs_active, trs_FirmaID, trs_Option} rowtblTranslateRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTranslateRow) Return rowtblTranslateRow End Function _ Public Function FindBytrs_id(ByVal trs_id As Integer) As tblTranslateRow Return CType(Me.Rows.Find(New Object() {trs_id}),tblTranslateRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTranslateDataTable = CType(MyBase.Clone,tblTranslateDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTranslateDataTable() End Function _ Friend Sub InitVars() Me.columntrs_id = MyBase.Columns("trs_id") Me.columntrs_progId = MyBase.Columns("trs_progId") Me.columntrs_progName = MyBase.Columns("trs_progName") Me.columntrs_object = MyBase.Columns("trs_object") Me.columntrs_control = MyBase.Columns("trs_control") Me.columntrs_subControl = MyBase.Columns("trs_subControl") Me.columntrs_sprache = MyBase.Columns("trs_sprache") Me.columntrs_text = MyBase.Columns("trs_text") Me.columntrs_textDE = MyBase.Columns("trs_textDE") Me.columntrs_active = MyBase.Columns("trs_active") Me.columntrs_FirmaID = MyBase.Columns("trs_FirmaID") Me.columntrs_Option = MyBase.Columns("trs_Option") End Sub _ Private Sub InitClass() Me.columntrs_id = New Global.System.Data.DataColumn("trs_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_id) Me.columntrs_progId = New Global.System.Data.DataColumn("trs_progId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_progId) Me.columntrs_progName = New Global.System.Data.DataColumn("trs_progName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_progName) Me.columntrs_object = New Global.System.Data.DataColumn("trs_object", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_object) Me.columntrs_control = New Global.System.Data.DataColumn("trs_control", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_control) Me.columntrs_subControl = New Global.System.Data.DataColumn("trs_subControl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_subControl) Me.columntrs_sprache = New Global.System.Data.DataColumn("trs_sprache", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_sprache) Me.columntrs_text = New Global.System.Data.DataColumn("trs_text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_text) Me.columntrs_textDE = New Global.System.Data.DataColumn("trs_textDE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_textDE) Me.columntrs_active = New Global.System.Data.DataColumn("trs_active", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_active) Me.columntrs_FirmaID = New Global.System.Data.DataColumn("trs_FirmaID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_FirmaID) Me.columntrs_Option = New Global.System.Data.DataColumn("trs_Option", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_Option) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntrs_id}, true)) Me.columntrs_id.AutoIncrement = true Me.columntrs_id.AutoIncrementSeed = -1 Me.columntrs_id.AutoIncrementStep = -1 Me.columntrs_id.AllowDBNull = false Me.columntrs_id.ReadOnly = true Me.columntrs_id.Unique = true Me.columntrs_progId.AllowDBNull = false Me.columntrs_progName.AllowDBNull = false Me.columntrs_progName.MaxLength = 50 Me.columntrs_object.AllowDBNull = false Me.columntrs_object.MaxLength = 50 Me.columntrs_control.AllowDBNull = false Me.columntrs_control.MaxLength = 50 Me.columntrs_subControl.MaxLength = 50 Me.columntrs_sprache.AllowDBNull = false Me.columntrs_sprache.MaxLength = 3 Me.columntrs_text.AllowDBNull = false Me.columntrs_text.MaxLength = 2147483647 Me.columntrs_textDE.AllowDBNull = false Me.columntrs_textDE.MaxLength = 2147483647 Me.columntrs_active.AllowDBNull = false Me.columntrs_Option.MaxLength = 50 End Sub _ Public Function NewtblTranslateRow() As tblTranslateRow Return CType(Me.NewRow,tblTranslateRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTranslateRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTranslateRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTranslateRowChangedEvent) Is Nothing) Then RaiseEvent tblTranslateRowChanged(Me, New tblTranslateRowChangeEvent(CType(e.Row,tblTranslateRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTranslateRowChangingEvent) Is Nothing) Then RaiseEvent tblTranslateRowChanging(Me, New tblTranslateRowChangeEvent(CType(e.Row,tblTranslateRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTranslateRowDeletedEvent) Is Nothing) Then RaiseEvent tblTranslateRowDeleted(Me, New tblTranslateRowChangeEvent(CType(e.Row,tblTranslateRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTranslateRowDeletingEvent) Is Nothing) Then RaiseEvent tblTranslateRowDeleting(Me, New tblTranslateRowChangeEvent(CType(e.Row,tblTranslateRow), e.Action)) End If End Sub _ Public Sub RemovetblTranslateRow(ByVal row As tblTranslateRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTranslateDataTable" 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 tblTranslateAutoDataTable Inherits Global.System.Data.TypedTableBase(Of tblTranslateAutoRow) Private columntrs_id As Global.System.Data.DataColumn Private columntrs_sprache As Global.System.Data.DataColumn Private columntrs_text As Global.System.Data.DataColumn Private columntrs_textDE As Global.System.Data.DataColumn Private columntrs_active As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTranslateAuto" 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 trs_idColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_id End Get End Property _ Public ReadOnly Property trs_spracheColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_sprache End Get End Property _ Public ReadOnly Property trs_textColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_text End Get End Property _ Public ReadOnly Property trs_textDEColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_textDE End Get End Property _ Public ReadOnly Property trs_activeColumn() As Global.System.Data.DataColumn Get Return Me.columntrs_active 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 tblTranslateAutoRow Get Return CType(Me.Rows(index),tblTranslateAutoRow) End Get End Property _ Public Event tblTranslateAutoRowChanging As tblTranslateAutoRowChangeEventHandler _ Public Event tblTranslateAutoRowChanged As tblTranslateAutoRowChangeEventHandler _ Public Event tblTranslateAutoRowDeleting As tblTranslateAutoRowChangeEventHandler _ Public Event tblTranslateAutoRowDeleted As tblTranslateAutoRowChangeEventHandler _ Public Overloads Sub AddtblTranslateAutoRow(ByVal row As tblTranslateAutoRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTranslateAutoRow(ByVal trs_sprache As String, ByVal trs_text As String, ByVal trs_textDE As String, ByVal trs_active As Boolean) As tblTranslateAutoRow Dim rowtblTranslateAutoRow As tblTranslateAutoRow = CType(Me.NewRow,tblTranslateAutoRow) Dim columnValuesArray() As Object = New Object() {Nothing, trs_sprache, trs_text, trs_textDE, trs_active} rowtblTranslateAutoRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTranslateAutoRow) Return rowtblTranslateAutoRow End Function _ Public Function FindBytrs_id(ByVal trs_id As Integer) As tblTranslateAutoRow Return CType(Me.Rows.Find(New Object() {trs_id}),tblTranslateAutoRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTranslateAutoDataTable = CType(MyBase.Clone,tblTranslateAutoDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTranslateAutoDataTable() End Function _ Friend Sub InitVars() Me.columntrs_id = MyBase.Columns("trs_id") Me.columntrs_sprache = MyBase.Columns("trs_sprache") Me.columntrs_text = MyBase.Columns("trs_text") Me.columntrs_textDE = MyBase.Columns("trs_textDE") Me.columntrs_active = MyBase.Columns("trs_active") End Sub _ Private Sub InitClass() Me.columntrs_id = New Global.System.Data.DataColumn("trs_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_id) Me.columntrs_sprache = New Global.System.Data.DataColumn("trs_sprache", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_sprache) Me.columntrs_text = New Global.System.Data.DataColumn("trs_text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_text) Me.columntrs_textDE = New Global.System.Data.DataColumn("trs_textDE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_textDE) Me.columntrs_active = New Global.System.Data.DataColumn("trs_active", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntrs_active) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columntrs_id}, true)) Me.columntrs_id.AutoIncrement = true Me.columntrs_id.AutoIncrementSeed = -1 Me.columntrs_id.AutoIncrementStep = -1 Me.columntrs_id.AllowDBNull = false Me.columntrs_id.ReadOnly = true Me.columntrs_id.Unique = true Me.columntrs_sprache.AllowDBNull = false Me.columntrs_sprache.MaxLength = 3 Me.columntrs_text.AllowDBNull = false Me.columntrs_text.MaxLength = 2147483647 Me.columntrs_textDE.AllowDBNull = false Me.columntrs_textDE.MaxLength = 2147483647 Me.columntrs_active.AllowDBNull = false End Sub _ Public Function NewtblTranslateAutoRow() As tblTranslateAutoRow Return CType(Me.NewRow,tblTranslateAutoRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTranslateAutoRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTranslateAutoRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTranslateAutoRowChangedEvent) Is Nothing) Then RaiseEvent tblTranslateAutoRowChanged(Me, New tblTranslateAutoRowChangeEvent(CType(e.Row,tblTranslateAutoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTranslateAutoRowChangingEvent) Is Nothing) Then RaiseEvent tblTranslateAutoRowChanging(Me, New tblTranslateAutoRowChangeEvent(CType(e.Row,tblTranslateAutoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTranslateAutoRowDeletedEvent) Is Nothing) Then RaiseEvent tblTranslateAutoRowDeleted(Me, New tblTranslateAutoRowChangeEvent(CType(e.Row,tblTranslateAutoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTranslateAutoRowDeletingEvent) Is Nothing) Then RaiseEvent tblTranslateAutoRowDeleting(Me, New tblTranslateAutoRowChangeEvent(CType(e.Row,tblTranslateAutoRow), e.Action)) End If End Sub _ Public Sub RemovetblTranslateAutoRow(ByVal row As tblTranslateAutoRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTranslateAutoDataTable" 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 tblTrdinHeaderDataTable Inherits Global.System.Data.TypedTableBase(Of tblTrdinHeaderRow) Private columnSpeditionsbuch As Global.System.Data.DataColumn Private columnCompany_code As Global.System.Data.DataColumn Private columnDepot_code As Global.System.Data.DataColumn Private columnSend_number As Global.System.Data.DataColumn Private columnSend_date As Global.System.Data.DataColumn Private columnComputer_location As Global.System.Data.DataColumn Private columnMessage_type As Global.System.Data.DataColumn Private columnFm_net_address As Global.System.Data.DataColumn Private columnAccounting_date As Global.System.Data.DataColumn Private columnCurrency_code As Global.System.Data.DataColumn Private columnCountry_code_dispatch As Global.System.Data.DataColumn Private columnVat_number_dispatch As Global.System.Data.DataColumn Private columnVat_code_I As Global.System.Data.DataColumn Private columnVat_code_S0 As Global.System.Data.DataColumn Private columnVat_code_S1 As Global.System.Data.DataColumn Private columnVat_code_X As Global.System.Data.DataColumn Private columnPfad1 As Global.System.Data.DataColumn Private columnPfad2 As Global.System.Data.DataColumn Private columnDatei As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTrdinHeader" 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 SpeditionsbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuch End Get End Property _ Public ReadOnly Property Company_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnCompany_code End Get End Property _ Public ReadOnly Property Depot_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnDepot_code End Get End Property _ Public ReadOnly Property Send_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnSend_number End Get End Property _ Public ReadOnly Property Send_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnSend_date End Get End Property _ Public ReadOnly Property Computer_locationColumn() As Global.System.Data.DataColumn Get Return Me.columnComputer_location End Get End Property _ Public ReadOnly Property Message_typeColumn() As Global.System.Data.DataColumn Get Return Me.columnMessage_type End Get End Property _ Public ReadOnly Property Fm_net_addressColumn() As Global.System.Data.DataColumn Get Return Me.columnFm_net_address End Get End Property _ Public ReadOnly Property Accounting_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnAccounting_date End Get End Property _ Public ReadOnly Property Currency_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnCurrency_code End Get End Property _ Public ReadOnly Property Country_code_dispatchColumn() As Global.System.Data.DataColumn Get Return Me.columnCountry_code_dispatch End Get End Property _ Public ReadOnly Property Vat_number_dispatchColumn() As Global.System.Data.DataColumn Get Return Me.columnVat_number_dispatch End Get End Property _ Public ReadOnly Property Vat_code_IColumn() As Global.System.Data.DataColumn Get Return Me.columnVat_code_I End Get End Property _ Public ReadOnly Property Vat_code_S0Column() As Global.System.Data.DataColumn Get Return Me.columnVat_code_S0 End Get End Property _ Public ReadOnly Property Vat_code_S1Column() As Global.System.Data.DataColumn Get Return Me.columnVat_code_S1 End Get End Property _ Public ReadOnly Property Vat_code_XColumn() As Global.System.Data.DataColumn Get Return Me.columnVat_code_X End Get End Property _ Public ReadOnly Property Pfad1Column() As Global.System.Data.DataColumn Get Return Me.columnPfad1 End Get End Property _ Public ReadOnly Property Pfad2Column() As Global.System.Data.DataColumn Get Return Me.columnPfad2 End Get End Property _ Public ReadOnly Property DateiColumn() As Global.System.Data.DataColumn Get Return Me.columnDatei End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblTrdinHeaderRow Get Return CType(Me.Rows(index),tblTrdinHeaderRow) End Get End Property _ Public Event tblTrdinHeaderRowChanging As tblTrdinHeaderRowChangeEventHandler _ Public Event tblTrdinHeaderRowChanged As tblTrdinHeaderRowChangeEventHandler _ Public Event tblTrdinHeaderRowDeleting As tblTrdinHeaderRowChangeEventHandler _ Public Event tblTrdinHeaderRowDeleted As tblTrdinHeaderRowChangeEventHandler _ Public Overloads Sub AddtblTrdinHeaderRow(ByVal row As tblTrdinHeaderRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTrdinHeaderRow( _ ByVal Speditionsbuch As Short, _ ByVal Company_code As String, _ ByVal Depot_code As String, _ ByVal Send_number As Integer, _ ByVal Send_date As Date, _ ByVal Computer_location As String, _ ByVal Message_type As String, _ ByVal Fm_net_address As String, _ ByVal Accounting_date As Date, _ ByVal Currency_code As String, _ ByVal Country_code_dispatch As String, _ ByVal Vat_number_dispatch As String, _ ByVal Vat_code_I As String, _ ByVal Vat_code_S0 As String, _ ByVal Vat_code_S1 As String, _ ByVal Vat_code_X As String, _ ByVal Pfad1 As String, _ ByVal Pfad2 As String, _ ByVal Datei As String, _ ByVal upsize_ts() As Byte) As tblTrdinHeaderRow Dim rowtblTrdinHeaderRow As tblTrdinHeaderRow = CType(Me.NewRow,tblTrdinHeaderRow) Dim columnValuesArray() As Object = New Object() {Speditionsbuch, Company_code, Depot_code, Send_number, Send_date, Computer_location, Message_type, Fm_net_address, Accounting_date, Currency_code, Country_code_dispatch, Vat_number_dispatch, Vat_code_I, Vat_code_S0, Vat_code_S1, Vat_code_X, Pfad1, Pfad2, Datei, upsize_ts} rowtblTrdinHeaderRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTrdinHeaderRow) Return rowtblTrdinHeaderRow End Function _ Public Function FindBySpeditionsbuch(ByVal Speditionsbuch As Short) As tblTrdinHeaderRow Return CType(Me.Rows.Find(New Object() {Speditionsbuch}),tblTrdinHeaderRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTrdinHeaderDataTable = CType(MyBase.Clone,tblTrdinHeaderDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTrdinHeaderDataTable() End Function _ Friend Sub InitVars() Me.columnSpeditionsbuch = MyBase.Columns("Speditionsbuch") Me.columnCompany_code = MyBase.Columns("Company_code") Me.columnDepot_code = MyBase.Columns("Depot_code") Me.columnSend_number = MyBase.Columns("Send_number") Me.columnSend_date = MyBase.Columns("Send_date") Me.columnComputer_location = MyBase.Columns("Computer_location") Me.columnMessage_type = MyBase.Columns("Message_type") Me.columnFm_net_address = MyBase.Columns("Fm_net_address") Me.columnAccounting_date = MyBase.Columns("Accounting_date") Me.columnCurrency_code = MyBase.Columns("Currency_code") Me.columnCountry_code_dispatch = MyBase.Columns("Country_code_dispatch") Me.columnVat_number_dispatch = MyBase.Columns("Vat_number_dispatch") Me.columnVat_code_I = MyBase.Columns("Vat_code_I") Me.columnVat_code_S0 = MyBase.Columns("Vat_code_S0") Me.columnVat_code_S1 = MyBase.Columns("Vat_code_S1") Me.columnVat_code_X = MyBase.Columns("Vat_code_X") Me.columnPfad1 = MyBase.Columns("Pfad1") Me.columnPfad2 = MyBase.Columns("Pfad2") Me.columnDatei = MyBase.Columns("Datei") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnSpeditionsbuch = New Global.System.Data.DataColumn("Speditionsbuch", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuch) Me.columnCompany_code = New Global.System.Data.DataColumn("Company_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCompany_code) Me.columnDepot_code = New Global.System.Data.DataColumn("Depot_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDepot_code) Me.columnSend_number = New Global.System.Data.DataColumn("Send_number", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSend_number) Me.columnSend_date = New Global.System.Data.DataColumn("Send_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSend_date) Me.columnComputer_location = New Global.System.Data.DataColumn("Computer_location", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComputer_location) Me.columnMessage_type = New Global.System.Data.DataColumn("Message_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMessage_type) Me.columnFm_net_address = New Global.System.Data.DataColumn("Fm_net_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFm_net_address) Me.columnAccounting_date = New Global.System.Data.DataColumn("Accounting_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAccounting_date) Me.columnCurrency_code = New Global.System.Data.DataColumn("Currency_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCurrency_code) Me.columnCountry_code_dispatch = New Global.System.Data.DataColumn("Country_code_dispatch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCountry_code_dispatch) Me.columnVat_number_dispatch = New Global.System.Data.DataColumn("Vat_number_dispatch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_number_dispatch) Me.columnVat_code_I = New Global.System.Data.DataColumn("Vat_code_I", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_I) Me.columnVat_code_S0 = New Global.System.Data.DataColumn("Vat_code_S0", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_S0) Me.columnVat_code_S1 = New Global.System.Data.DataColumn("Vat_code_S1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_S1) Me.columnVat_code_X = New Global.System.Data.DataColumn("Vat_code_X", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_X) Me.columnPfad1 = New Global.System.Data.DataColumn("Pfad1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPfad1) Me.columnPfad2 = New Global.System.Data.DataColumn("Pfad2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPfad2) Me.columnDatei = New Global.System.Data.DataColumn("Datei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatei) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSpeditionsbuch}, true)) Me.columnSpeditionsbuch.AllowDBNull = false Me.columnSpeditionsbuch.Unique = true Me.columnCompany_code.AllowDBNull = false Me.columnCompany_code.MaxLength = 3 Me.columnDepot_code.MaxLength = 2 Me.columnSend_number.AllowDBNull = false Me.columnComputer_location.AllowDBNull = false Me.columnComputer_location.MaxLength = 2 Me.columnMessage_type.AllowDBNull = false Me.columnMessage_type.MaxLength = 25 Me.columnFm_net_address.AllowDBNull = false Me.columnFm_net_address.MaxLength = 20 Me.columnAccounting_date.AllowDBNull = false Me.columnCurrency_code.AllowDBNull = false Me.columnCurrency_code.MaxLength = 3 Me.columnCountry_code_dispatch.AllowDBNull = false Me.columnCountry_code_dispatch.MaxLength = 3 Me.columnVat_number_dispatch.AllowDBNull = false Me.columnVat_number_dispatch.MaxLength = 16 Me.columnVat_code_I.AllowDBNull = false Me.columnVat_code_I.MaxLength = 6 Me.columnVat_code_S0.AllowDBNull = false Me.columnVat_code_S0.MaxLength = 6 Me.columnVat_code_S1.AllowDBNull = false Me.columnVat_code_S1.MaxLength = 6 Me.columnVat_code_X.AllowDBNull = false Me.columnVat_code_X.MaxLength = 6 Me.columnPfad1.AllowDBNull = false Me.columnPfad1.MaxLength = 50 Me.columnPfad2.AllowDBNull = false Me.columnPfad2.MaxLength = 50 Me.columnDatei.MaxLength = 12 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblTrdinHeaderRow() As tblTrdinHeaderRow Return CType(Me.NewRow,tblTrdinHeaderRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTrdinHeaderRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTrdinHeaderRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTrdinHeaderRowChangedEvent) Is Nothing) Then RaiseEvent tblTrdinHeaderRowChanged(Me, New tblTrdinHeaderRowChangeEvent(CType(e.Row,tblTrdinHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTrdinHeaderRowChangingEvent) Is Nothing) Then RaiseEvent tblTrdinHeaderRowChanging(Me, New tblTrdinHeaderRowChangeEvent(CType(e.Row,tblTrdinHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTrdinHeaderRowDeletedEvent) Is Nothing) Then RaiseEvent tblTrdinHeaderRowDeleted(Me, New tblTrdinHeaderRowChangeEvent(CType(e.Row,tblTrdinHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTrdinHeaderRowDeletingEvent) Is Nothing) Then RaiseEvent tblTrdinHeaderRowDeleting(Me, New tblTrdinHeaderRowChangeEvent(CType(e.Row,tblTrdinHeaderRow), e.Action)) End If End Sub _ Public Sub RemovetblTrdinHeaderRow(ByVal row As tblTrdinHeaderRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTrdinHeaderDataTable" 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 tblTrdinInvoiceDataTable Inherits Global.System.Data.TypedTableBase(Of tblTrdinInvoiceRow) Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnSpeditionsbuch As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnRechnungsLandKz As Global.System.Data.DataColumn Private columnRechnungsUstIdKz As Global.System.Data.DataColumn Private columnRechnungsUstIdNr As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnWährungLokal As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragLokal As Global.System.Data.DataColumn Private columnSteuerfreierBetragLokal As Global.System.Data.DataColumn Private columnSteuerbetragLokal As Global.System.Data.DataColumn Private columnRechnungsbetragLokal As Global.System.Data.DataColumn Private columnWährungFremd As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragFremd As Global.System.Data.DataColumn Private columnSteuerfreierBetragFremd As Global.System.Data.DataColumn Private columnSteuerbetragFremd As Global.System.Data.DataColumn Private columnRechnungsbetragFremd As Global.System.Data.DataColumn Private columnTrdinDateiname As Global.System.Data.DataColumn Private columnAbgleich_op_debitor As Global.System.Data.DataColumn Private columnNettozahlungsziel As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnAmbDateiname As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTrdinInvoice" 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 RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property SpeditionsbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuch End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property RechnungsLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsLandKz End Get End Property _ Public ReadOnly Property RechnungsUstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdKz End Get End Property _ Public ReadOnly Property RechnungsUstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdNr End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property WährungLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungLokal End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragLokal End Get End Property _ Public ReadOnly Property SteuerfreierBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragLokal End Get End Property _ Public ReadOnly Property SteuerbetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetragLokal End Get End Property _ Public ReadOnly Property RechnungsbetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetragLokal End Get End Property _ Public ReadOnly Property WährungFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungFremd End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragFremd End Get End Property _ Public ReadOnly Property SteuerfreierBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragFremd End Get End Property _ Public ReadOnly Property SteuerbetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetragFremd End Get End Property _ Public ReadOnly Property RechnungsbetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetragFremd End Get End Property _ Public ReadOnly Property TrdinDateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnTrdinDateiname End Get End Property _ Public ReadOnly Property Abgleich_op_debitorColumn() As Global.System.Data.DataColumn Get Return Me.columnAbgleich_op_debitor End Get End Property _ Public ReadOnly Property NettozahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnNettozahlungsziel End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property AmbDateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnAmbDateiname 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 tblTrdinInvoiceRow Get Return CType(Me.Rows(index),tblTrdinInvoiceRow) End Get End Property _ Public Event tblTrdinInvoiceRowChanging As tblTrdinInvoiceRowChangeEventHandler _ Public Event tblTrdinInvoiceRowChanged As tblTrdinInvoiceRowChangeEventHandler _ Public Event tblTrdinInvoiceRowDeleting As tblTrdinInvoiceRowChangeEventHandler _ Public Event tblTrdinInvoiceRowDeleted As tblTrdinInvoiceRowChangeEventHandler _ Public Overloads Sub AddtblTrdinInvoiceRow(ByVal row As tblTrdinInvoiceRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTrdinInvoiceRow( _ ByVal Rechnungsdatum As Date, _ ByVal Rechnungsnummer As Integer, _ ByVal Speditionsbuch As Short, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal BelegartenNr As Short, _ ByVal KundenNrZentrale As Integer, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsLandKz As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal Lastschrift As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal _Steuersatz__ As Single, _ ByVal WährungLokal As String, _ ByVal SteuerpflichtigerBetragLokal As Decimal, _ ByVal SteuerfreierBetragLokal As Decimal, _ ByVal SteuerbetragLokal As Decimal, _ ByVal RechnungsbetragLokal As Decimal, _ ByVal WährungFremd As String, _ ByVal SteuerpflichtigerBetragFremd As Decimal, _ ByVal SteuerfreierBetragFremd As Decimal, _ ByVal SteuerbetragFremd As Decimal, _ ByVal RechnungsbetragFremd As Decimal, _ ByVal TrdinDateiname As String, _ ByVal Abgleich_op_debitor As Boolean, _ ByVal Nettozahlungsziel As Short, _ ByVal Firma_ID As Short, _ ByVal UStVAn_ID As Integer, _ ByVal upsize_ts() As Byte, _ ByVal AmbDateiname As String) As tblTrdinInvoiceRow Dim rowtblTrdinInvoiceRow As tblTrdinInvoiceRow = CType(Me.NewRow,tblTrdinInvoiceRow) Dim columnValuesArray() As Object = New Object() {Rechnungsdatum, Rechnungsnummer, Speditionsbuch, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, BelegartenNr, KundenNrZentrale, RechnungsKundenNr, RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr, Lastschrift, Steuerschlüssel, _Steuersatz__, WährungLokal, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerbetragLokal, RechnungsbetragLokal, WährungFremd, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, SteuerbetragFremd, RechnungsbetragFremd, TrdinDateiname, Abgleich_op_debitor, Nettozahlungsziel, Firma_ID, UStVAn_ID, upsize_ts, AmbDateiname} rowtblTrdinInvoiceRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTrdinInvoiceRow) Return rowtblTrdinInvoiceRow End Function _ Public Function FindByRechnungsdatumRechnungsnummer(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer) As tblTrdinInvoiceRow Return CType(Me.Rows.Find(New Object() {Rechnungsdatum, Rechnungsnummer}),tblTrdinInvoiceRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTrdinInvoiceDataTable = CType(MyBase.Clone,tblTrdinInvoiceDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTrdinInvoiceDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnSpeditionsbuch = MyBase.Columns("Speditionsbuch") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnRechnungsLandKz = MyBase.Columns("RechnungsLandKz") Me.columnRechnungsUstIdKz = MyBase.Columns("RechnungsUstIdKz") Me.columnRechnungsUstIdNr = MyBase.Columns("RechnungsUstIdNr") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnWährungLokal = MyBase.Columns("WährungLokal") Me.columnSteuerpflichtigerBetragLokal = MyBase.Columns("SteuerpflichtigerBetragLokal") Me.columnSteuerfreierBetragLokal = MyBase.Columns("SteuerfreierBetragLokal") Me.columnSteuerbetragLokal = MyBase.Columns("SteuerbetragLokal") Me.columnRechnungsbetragLokal = MyBase.Columns("RechnungsbetragLokal") Me.columnWährungFremd = MyBase.Columns("WährungFremd") Me.columnSteuerpflichtigerBetragFremd = MyBase.Columns("SteuerpflichtigerBetragFremd") Me.columnSteuerfreierBetragFremd = MyBase.Columns("SteuerfreierBetragFremd") Me.columnSteuerbetragFremd = MyBase.Columns("SteuerbetragFremd") Me.columnRechnungsbetragFremd = MyBase.Columns("RechnungsbetragFremd") Me.columnTrdinDateiname = MyBase.Columns("TrdinDateiname") Me.columnAbgleich_op_debitor = MyBase.Columns("Abgleich_op_debitor") Me.columnNettozahlungsziel = MyBase.Columns("Nettozahlungsziel") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnAmbDateiname = MyBase.Columns("AmbDateiname") End Sub _ Private Sub InitClass() Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnSpeditionsbuch = New Global.System.Data.DataColumn("Speditionsbuch", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuch) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnRechnungsLandKz = New Global.System.Data.DataColumn("RechnungsLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsLandKz) Me.columnRechnungsUstIdKz = New Global.System.Data.DataColumn("RechnungsUstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdKz) Me.columnRechnungsUstIdNr = New Global.System.Data.DataColumn("RechnungsUstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdNr) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnWährungLokal = New Global.System.Data.DataColumn("WährungLokal", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungLokal) Me.columnSteuerpflichtigerBetragLokal = New Global.System.Data.DataColumn("SteuerpflichtigerBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragLokal) Me.columnSteuerfreierBetragLokal = New Global.System.Data.DataColumn("SteuerfreierBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragLokal) Me.columnSteuerbetragLokal = New Global.System.Data.DataColumn("SteuerbetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetragLokal) Me.columnRechnungsbetragLokal = New Global.System.Data.DataColumn("RechnungsbetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetragLokal) Me.columnWährungFremd = New Global.System.Data.DataColumn("WährungFremd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungFremd) Me.columnSteuerpflichtigerBetragFremd = New Global.System.Data.DataColumn("SteuerpflichtigerBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragFremd) Me.columnSteuerfreierBetragFremd = New Global.System.Data.DataColumn("SteuerfreierBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragFremd) Me.columnSteuerbetragFremd = New Global.System.Data.DataColumn("SteuerbetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetragFremd) Me.columnRechnungsbetragFremd = New Global.System.Data.DataColumn("RechnungsbetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetragFremd) Me.columnTrdinDateiname = New Global.System.Data.DataColumn("TrdinDateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTrdinDateiname) Me.columnAbgleich_op_debitor = New Global.System.Data.DataColumn("Abgleich_op_debitor", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbgleich_op_debitor) Me.columnNettozahlungsziel = New Global.System.Data.DataColumn("Nettozahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettozahlungsziel) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnAmbDateiname = New Global.System.Data.DataColumn("AmbDateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAmbDateiname) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRechnungsdatum, Me.columnRechnungsnummer}, true)) Me.columnRechnungsdatum.AllowDBNull = false Me.columnRechnungsnummer.AllowDBNull = false Me.columnRechnungsLandKz.MaxLength = 3 Me.columnRechnungsUstIdKz.MaxLength = 2 Me.columnRechnungsUstIdNr.MaxLength = 12 Me.columnLastschrift.AllowDBNull = false Me.columnWährungLokal.MaxLength = 3 Me.columnWährungFremd.MaxLength = 3 Me.columnTrdinDateiname.MaxLength = 12 Me.columnAbgleich_op_debitor.AllowDBNull = false Me.columnFirma_ID.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true Me.columnAmbDateiname.MaxLength = 12 End Sub _ Public Function NewtblTrdinInvoiceRow() As tblTrdinInvoiceRow Return CType(Me.NewRow,tblTrdinInvoiceRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTrdinInvoiceRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTrdinInvoiceRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTrdinInvoiceRowChangedEvent) Is Nothing) Then RaiseEvent tblTrdinInvoiceRowChanged(Me, New tblTrdinInvoiceRowChangeEvent(CType(e.Row,tblTrdinInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTrdinInvoiceRowChangingEvent) Is Nothing) Then RaiseEvent tblTrdinInvoiceRowChanging(Me, New tblTrdinInvoiceRowChangeEvent(CType(e.Row,tblTrdinInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTrdinInvoiceRowDeletedEvent) Is Nothing) Then RaiseEvent tblTrdinInvoiceRowDeleted(Me, New tblTrdinInvoiceRowChangeEvent(CType(e.Row,tblTrdinInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTrdinInvoiceRowDeletingEvent) Is Nothing) Then RaiseEvent tblTrdinInvoiceRowDeleting(Me, New tblTrdinInvoiceRowChangeEvent(CType(e.Row,tblTrdinInvoiceRow), e.Action)) End If End Sub _ Public Sub RemovetblTrdinInvoiceRow(ByVal row As tblTrdinInvoiceRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTrdinInvoiceDataTable" 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 tblTrdinProductDataTable Inherits Global.System.Data.TypedTableBase(Of tblTrdinProductRow) Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnLeistungsnummer As Global.System.Data.DataColumn Private columnLeistungsbezeichnung As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragLokal As Global.System.Data.DataColumn Private columnSteuerfreierBetragLokal As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragFremd As Global.System.Data.DataColumn Private columnSteuerfreierBetragFremd As Global.System.Data.DataColumn Private columnBelegdaten As Global.System.Data.DataColumn Private columnSachkonto As Global.System.Data.DataColumn Private columnBuchungstext As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblTrdinProduct" 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 RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property LeistungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsnummer End Get End Property _ Public ReadOnly Property LeistungsbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsbezeichnung End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragLokal End Get End Property _ Public ReadOnly Property SteuerfreierBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragLokal End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragFremd End Get End Property _ Public ReadOnly Property SteuerfreierBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragFremd End Get End Property _ Public ReadOnly Property BelegdatenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdaten End Get End Property _ Public ReadOnly Property SachkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkonto End Get End Property _ Public ReadOnly Property BuchungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungstext End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblTrdinProductRow Get Return CType(Me.Rows(index),tblTrdinProductRow) End Get End Property _ Public Event tblTrdinProductRowChanging As tblTrdinProductRowChangeEventHandler _ Public Event tblTrdinProductRowChanged As tblTrdinProductRowChangeEventHandler _ Public Event tblTrdinProductRowDeleting As tblTrdinProductRowChangeEventHandler _ Public Event tblTrdinProductRowDeleted As tblTrdinProductRowChangeEventHandler _ Public Overloads Sub AddtblTrdinProductRow(ByVal row As tblTrdinProductRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblTrdinProductRow(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean, ByVal SteuerpflichtigerBetragLokal As Decimal, ByVal SteuerfreierBetragLokal As Decimal, ByVal SteuerpflichtigerBetragFremd As Decimal, ByVal SteuerfreierBetragFremd As Decimal, ByVal Belegdaten As String, ByVal Sachkonto As String, ByVal Buchungstext As String, ByVal upsize_ts() As Byte) As tblTrdinProductRow Dim rowtblTrdinProductRow As tblTrdinProductRow = CType(Me.NewRow,tblTrdinProductRow) Dim columnValuesArray() As Object = New Object() {Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, Belegdaten, Sachkonto, Buchungstext, upsize_ts} rowtblTrdinProductRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblTrdinProductRow) Return rowtblTrdinProductRow End Function _ Public Function FindByRechnungsdatumRechnungsnummerLeistungsnummerLeistungsbezeichnungSteuerpflichtig(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean) As tblTrdinProductRow Return CType(Me.Rows.Find(New Object() {Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig}),tblTrdinProductRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblTrdinProductDataTable = CType(MyBase.Clone,tblTrdinProductDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblTrdinProductDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnLeistungsnummer = MyBase.Columns("Leistungsnummer") Me.columnLeistungsbezeichnung = MyBase.Columns("Leistungsbezeichnung") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnSteuerpflichtigerBetragLokal = MyBase.Columns("SteuerpflichtigerBetragLokal") Me.columnSteuerfreierBetragLokal = MyBase.Columns("SteuerfreierBetragLokal") Me.columnSteuerpflichtigerBetragFremd = MyBase.Columns("SteuerpflichtigerBetragFremd") Me.columnSteuerfreierBetragFremd = MyBase.Columns("SteuerfreierBetragFremd") Me.columnBelegdaten = MyBase.Columns("Belegdaten") Me.columnSachkonto = MyBase.Columns("Sachkonto") Me.columnBuchungstext = MyBase.Columns("Buchungstext") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnLeistungsnummer = New Global.System.Data.DataColumn("Leistungsnummer", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsnummer) Me.columnLeistungsbezeichnung = New Global.System.Data.DataColumn("Leistungsbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsbezeichnung) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnSteuerpflichtigerBetragLokal = New Global.System.Data.DataColumn("SteuerpflichtigerBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragLokal) Me.columnSteuerfreierBetragLokal = New Global.System.Data.DataColumn("SteuerfreierBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragLokal) Me.columnSteuerpflichtigerBetragFremd = New Global.System.Data.DataColumn("SteuerpflichtigerBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragFremd) Me.columnSteuerfreierBetragFremd = New Global.System.Data.DataColumn("SteuerfreierBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragFremd) Me.columnBelegdaten = New Global.System.Data.DataColumn("Belegdaten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdaten) Me.columnSachkonto = New Global.System.Data.DataColumn("Sachkonto", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkonto) Me.columnBuchungstext = New Global.System.Data.DataColumn("Buchungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungstext) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRechnungsdatum, Me.columnRechnungsnummer, Me.columnLeistungsnummer, Me.columnLeistungsbezeichnung, Me.columnSteuerpflichtig}, true)) Me.columnRechnungsdatum.AllowDBNull = false Me.columnRechnungsnummer.AllowDBNull = false Me.columnLeistungsnummer.AllowDBNull = false Me.columnLeistungsbezeichnung.AllowDBNull = false Me.columnLeistungsbezeichnung.MaxLength = 30 Me.columnSteuerpflichtig.AllowDBNull = false Me.columnBelegdaten.MaxLength = 30 Me.columnSachkonto.MaxLength = 7 Me.columnBuchungstext.MaxLength = 35 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblTrdinProductRow() As tblTrdinProductRow Return CType(Me.NewRow,tblTrdinProductRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblTrdinProductRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblTrdinProductRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblTrdinProductRowChangedEvent) Is Nothing) Then RaiseEvent tblTrdinProductRowChanged(Me, New tblTrdinProductRowChangeEvent(CType(e.Row,tblTrdinProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblTrdinProductRowChangingEvent) Is Nothing) Then RaiseEvent tblTrdinProductRowChanging(Me, New tblTrdinProductRowChangeEvent(CType(e.Row,tblTrdinProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblTrdinProductRowDeletedEvent) Is Nothing) Then RaiseEvent tblTrdinProductRowDeleted(Me, New tblTrdinProductRowChangeEvent(CType(e.Row,tblTrdinProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblTrdinProductRowDeletingEvent) Is Nothing) Then RaiseEvent tblTrdinProductRowDeleting(Me, New tblTrdinProductRowChangeEvent(CType(e.Row,tblTrdinProductRow), e.Action)) End If End Sub _ Public Sub RemovetblTrdinProductRow(ByVal row As tblTrdinProductRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblTrdinProductDataTable" 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 tblUIDPruefungDataTable Inherits Global.System.Data.TypedTableBase(Of tblUIDPruefungRow) Private columnuid_id As Global.System.Data.DataColumn Private columnuid_KundenNr As Global.System.Data.DataColumn Private columnuid_UstIdKz As Global.System.Data.DataColumn Private columnuid_UstIdNr As Global.System.Data.DataColumn Private columnuid_Datum As Global.System.Data.DataColumn Private columnuid_valid As Global.System.Data.DataColumn Private columnuid_MaId As Global.System.Data.DataColumn Private columnuid_Sachbearbeiter As Global.System.Data.DataColumn Private columnuid_firma As Global.System.Data.DataColumn Private columnuid_stufe As Global.System.Data.DataColumn Private columnFirma As Global.System.Data.DataColumn Private columnuid_abfrageUid As Global.System.Data.DataColumn Private columnuid_sessionId As Global.System.Data.DataColumn Private columnuid_adr1 As Global.System.Data.DataColumn Private columnuid_adr2 As Global.System.Data.DataColumn Private columnuid_adr3 As Global.System.Data.DataColumn Private columnuid_adr4 As Global.System.Data.DataColumn Private columnuid_adr5 As Global.System.Data.DataColumn Private columnuid_adr6 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUIDPruefung" 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 uid_idColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_id End Get End Property _ Public ReadOnly Property uid_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_KundenNr End Get End Property _ Public ReadOnly Property uid_UstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_UstIdKz End Get End Property _ Public ReadOnly Property uid_UstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_UstIdNr End Get End Property _ Public ReadOnly Property uid_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_Datum End Get End Property _ Public ReadOnly Property uid_validColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_valid End Get End Property _ Public ReadOnly Property uid_MaIdColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_MaId End Get End Property _ Public ReadOnly Property uid_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_Sachbearbeiter End Get End Property _ Public ReadOnly Property uid_firmaColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_firma End Get End Property _ Public ReadOnly Property uid_stufeColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_stufe End Get End Property _ Public ReadOnly Property FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma End Get End Property _ Public ReadOnly Property uid_abfrageUidColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_abfrageUid End Get End Property _ Public ReadOnly Property uid_sessionIdColumn() As Global.System.Data.DataColumn Get Return Me.columnuid_sessionId End Get End Property _ Public ReadOnly Property uid_adr1Column() As Global.System.Data.DataColumn Get Return Me.columnuid_adr1 End Get End Property _ Public ReadOnly Property uid_adr2Column() As Global.System.Data.DataColumn Get Return Me.columnuid_adr2 End Get End Property _ Public ReadOnly Property uid_adr3Column() As Global.System.Data.DataColumn Get Return Me.columnuid_adr3 End Get End Property _ Public ReadOnly Property uid_adr4Column() As Global.System.Data.DataColumn Get Return Me.columnuid_adr4 End Get End Property _ Public ReadOnly Property uid_adr5Column() As Global.System.Data.DataColumn Get Return Me.columnuid_adr5 End Get End Property _ Public ReadOnly Property uid_adr6Column() As Global.System.Data.DataColumn Get Return Me.columnuid_adr6 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 tblUIDPruefungRow Get Return CType(Me.Rows(index),tblUIDPruefungRow) End Get End Property _ Public Event tblUIDPruefungRowChanging As tblUIDPruefungRowChangeEventHandler _ Public Event tblUIDPruefungRowChanged As tblUIDPruefungRowChangeEventHandler _ Public Event tblUIDPruefungRowDeleting As tblUIDPruefungRowChangeEventHandler _ Public Event tblUIDPruefungRowDeleted As tblUIDPruefungRowChangeEventHandler _ Public Overloads Sub AddtblUIDPruefungRow(ByVal row As tblUIDPruefungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUIDPruefungRow( _ ByVal uid_KundenNr As Integer, _ ByVal uid_UstIdKz As String, _ ByVal uid_UstIdNr As String, _ ByVal uid_Datum As Date, _ ByVal uid_valid As Boolean, _ ByVal uid_MaId As Integer, _ ByVal uid_Sachbearbeiter As String, _ ByVal uid_firma As String, _ ByVal uid_stufe As Integer, _ ByVal Firma As String, _ ByVal uid_abfrageUid As String, _ ByVal uid_sessionId As String, _ ByVal uid_adr1 As String, _ ByVal uid_adr2 As String, _ ByVal uid_adr3 As String, _ ByVal uid_adr4 As String, _ ByVal uid_adr5 As String, _ ByVal uid_adr6 As String) As tblUIDPruefungRow Dim rowtblUIDPruefungRow As tblUIDPruefungRow = CType(Me.NewRow,tblUIDPruefungRow) Dim columnValuesArray() As Object = New Object() {Nothing, uid_KundenNr, uid_UstIdKz, uid_UstIdNr, uid_Datum, uid_valid, uid_MaId, uid_Sachbearbeiter, uid_firma, uid_stufe, Firma, uid_abfrageUid, uid_sessionId, uid_adr1, uid_adr2, uid_adr3, uid_adr4, uid_adr5, uid_adr6} rowtblUIDPruefungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUIDPruefungRow) Return rowtblUIDPruefungRow End Function _ Public Function FindByuid_id(ByVal uid_id As Integer) As tblUIDPruefungRow Return CType(Me.Rows.Find(New Object() {uid_id}),tblUIDPruefungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUIDPruefungDataTable = CType(MyBase.Clone,tblUIDPruefungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUIDPruefungDataTable() End Function _ Friend Sub InitVars() Me.columnuid_id = MyBase.Columns("uid_id") Me.columnuid_KundenNr = MyBase.Columns("uid_KundenNr") Me.columnuid_UstIdKz = MyBase.Columns("uid_UstIdKz") Me.columnuid_UstIdNr = MyBase.Columns("uid_UstIdNr") Me.columnuid_Datum = MyBase.Columns("uid_Datum") Me.columnuid_valid = MyBase.Columns("uid_valid") Me.columnuid_MaId = MyBase.Columns("uid_MaId") Me.columnuid_Sachbearbeiter = MyBase.Columns("uid_Sachbearbeiter") Me.columnuid_firma = MyBase.Columns("uid_firma") Me.columnuid_stufe = MyBase.Columns("uid_stufe") Me.columnFirma = MyBase.Columns("Firma") Me.columnuid_abfrageUid = MyBase.Columns("uid_abfrageUid") Me.columnuid_sessionId = MyBase.Columns("uid_sessionId") Me.columnuid_adr1 = MyBase.Columns("uid_adr1") Me.columnuid_adr2 = MyBase.Columns("uid_adr2") Me.columnuid_adr3 = MyBase.Columns("uid_adr3") Me.columnuid_adr4 = MyBase.Columns("uid_adr4") Me.columnuid_adr5 = MyBase.Columns("uid_adr5") Me.columnuid_adr6 = MyBase.Columns("uid_adr6") End Sub _ Private Sub InitClass() Me.columnuid_id = New Global.System.Data.DataColumn("uid_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_id) Me.columnuid_KundenNr = New Global.System.Data.DataColumn("uid_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_KundenNr) Me.columnuid_UstIdKz = New Global.System.Data.DataColumn("uid_UstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_UstIdKz) Me.columnuid_UstIdNr = New Global.System.Data.DataColumn("uid_UstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_UstIdNr) Me.columnuid_Datum = New Global.System.Data.DataColumn("uid_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_Datum) Me.columnuid_valid = New Global.System.Data.DataColumn("uid_valid", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_valid) Me.columnuid_MaId = New Global.System.Data.DataColumn("uid_MaId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_MaId) Me.columnuid_Sachbearbeiter = New Global.System.Data.DataColumn("uid_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_Sachbearbeiter) Me.columnuid_firma = New Global.System.Data.DataColumn("uid_firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_firma) Me.columnuid_stufe = New Global.System.Data.DataColumn("uid_stufe", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_stufe) Me.columnFirma = New Global.System.Data.DataColumn("Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma) Me.columnuid_abfrageUid = New Global.System.Data.DataColumn("uid_abfrageUid", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_abfrageUid) Me.columnuid_sessionId = New Global.System.Data.DataColumn("uid_sessionId", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_sessionId) Me.columnuid_adr1 = New Global.System.Data.DataColumn("uid_adr1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_adr1) Me.columnuid_adr2 = New Global.System.Data.DataColumn("uid_adr2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_adr2) Me.columnuid_adr3 = New Global.System.Data.DataColumn("uid_adr3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_adr3) Me.columnuid_adr4 = New Global.System.Data.DataColumn("uid_adr4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_adr4) Me.columnuid_adr5 = New Global.System.Data.DataColumn("uid_adr5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_adr5) Me.columnuid_adr6 = New Global.System.Data.DataColumn("uid_adr6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnuid_adr6) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnuid_id}, true)) Me.columnuid_id.AutoIncrement = true Me.columnuid_id.AutoIncrementSeed = -1 Me.columnuid_id.AutoIncrementStep = -1 Me.columnuid_id.AllowDBNull = false Me.columnuid_id.ReadOnly = true Me.columnuid_id.Unique = true Me.columnuid_KundenNr.AllowDBNull = false Me.columnuid_UstIdKz.AllowDBNull = false Me.columnuid_UstIdKz.MaxLength = 2 Me.columnuid_UstIdNr.AllowDBNull = false Me.columnuid_UstIdNr.MaxLength = 12 Me.columnuid_Datum.AllowDBNull = false Me.columnuid_valid.AllowDBNull = false Me.columnuid_Sachbearbeiter.AllowDBNull = false Me.columnuid_Sachbearbeiter.MaxLength = 200 Me.columnuid_firma.MaxLength = 200 Me.columnuid_stufe.AllowDBNull = false Me.columnFirma.AllowDBNull = false Me.columnFirma.MaxLength = 200 Me.columnuid_abfrageUid.MaxLength = 200 Me.columnuid_sessionId.MaxLength = 200 Me.columnuid_adr1.MaxLength = 200 Me.columnuid_adr2.MaxLength = 200 Me.columnuid_adr3.MaxLength = 200 Me.columnuid_adr4.MaxLength = 200 Me.columnuid_adr5.MaxLength = 200 Me.columnuid_adr6.MaxLength = 200 End Sub _ Public Function NewtblUIDPruefungRow() As tblUIDPruefungRow Return CType(Me.NewRow,tblUIDPruefungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUIDPruefungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUIDPruefungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUIDPruefungRowChangedEvent) Is Nothing) Then RaiseEvent tblUIDPruefungRowChanged(Me, New tblUIDPruefungRowChangeEvent(CType(e.Row,tblUIDPruefungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUIDPruefungRowChangingEvent) Is Nothing) Then RaiseEvent tblUIDPruefungRowChanging(Me, New tblUIDPruefungRowChangeEvent(CType(e.Row,tblUIDPruefungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUIDPruefungRowDeletedEvent) Is Nothing) Then RaiseEvent tblUIDPruefungRowDeleted(Me, New tblUIDPruefungRowChangeEvent(CType(e.Row,tblUIDPruefungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUIDPruefungRowDeletingEvent) Is Nothing) Then RaiseEvent tblUIDPruefungRowDeleting(Me, New tblUIDPruefungRowChangeEvent(CType(e.Row,tblUIDPruefungRow), e.Action)) End If End Sub _ Public Sub RemovetblUIDPruefungRow(ByVal row As tblUIDPruefungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUIDPruefungDataTable" 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 tblUStVAntragDataTable Inherits Global.System.Data.TypedTableBase(Of tblUStVAntragRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVAn_KuNr As Global.System.Data.DataColumn Private columnUStVAn_Name As Global.System.Data.DataColumn Private columnUStVAn_Straße As Global.System.Data.DataColumn Private columnUStVAn_LandKz As Global.System.Data.DataColumn Private columnUStVAn_PLZ As Global.System.Data.DataColumn Private columnUStVAn_Ort As Global.System.Data.DataColumn Private columnUStVAn_Land As Global.System.Data.DataColumn Private columnUStVAn_Gewerbe As Global.System.Data.DataColumn Private columnUStVAn_Steuernummer As Global.System.Data.DataColumn Private columnUStVAn_ReDatVon As Global.System.Data.DataColumn Private columnUStVAn_ReDatBis As Global.System.Data.DataColumn Private columnUStVAn_Bankverbindung As Global.System.Data.DataColumn Private columnUStVAn_BLZ As Global.System.Data.DataColumn Private columnUStVAn_KTO As Global.System.Data.DataColumn Private columnUStVAn_Kontoinhaber As Global.System.Data.DataColumn Private columnUStVAn_BIC As Global.System.Data.DataColumn Private columnUStVAn_IBAN As Global.System.Data.DataColumn Private columnUStVAn_Anlagen As Global.System.Data.DataColumn Private columnUStVAn_Rechnungen As Global.System.Data.DataColumn Private columnUStVAn_Einfuhrdokumente As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_a As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_1 As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_2 As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_3 As Global.System.Data.DataColumn Private columnUStVAn_Ausstellungsort As Global.System.Data.DataColumn Private columnUStVAn_Ausstellungsdatum As Global.System.Data.DataColumn Private columnUStVAn_Unterschrift As Global.System.Data.DataColumn Private columnUStVAn_LandNr As Global.System.Data.DataColumn Private columnUStVAn_Beleganzahl As Global.System.Data.DataColumn Private columnUStVAn_BeleganzahlRetourniert As Global.System.Data.DataColumn Private columnUStVAn_Retournierungsgrund As Global.System.Data.DataColumn Private columnUStVAn_AntragEingereichtAm As Global.System.Data.DataColumn Private columnUStVAn_BelegeWeitergeleitetAm As Global.System.Data.DataColumn Private columnUStVAn_Vertreter As Global.System.Data.DataColumn Private columnUStVAn_BezugsNr As Global.System.Data.DataColumn Private columnUStVAn_3470 As Global.System.Data.DataColumn Private columnUStVAn_VZBetrag As Global.System.Data.DataColumn Private columnUStVAn_VZDatum As Global.System.Data.DataColumn Private columnUStVAn_RZBetragVZ As Global.System.Data.DataColumn Private columnUStVAn_RZDatumVZ As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUStVAn_Währungscode As Global.System.Data.DataColumn Private columnUStVAn_USteuerbetrag As Global.System.Data.DataColumn Private columnUStVAn_Erstattungsbetrag As Global.System.Data.DataColumn Private columnUStVAn_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVAn_ErstattungsbetragEUR As Global.System.Data.DataColumn Private columnUStVAn_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVAn_Status As Global.System.Data.DataColumn Private columnUStVAn_StatusText As Global.System.Data.DataColumn Private columnUStVAn_AntragArt As Global.System.Data.DataColumn Private columnUStVAn_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUStVAntrag" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVAn_KuNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_KuNr End Get End Property _ Public ReadOnly Property UStVAn_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Name End Get End Property _ Public ReadOnly Property UStVAn_StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Straße End Get End Property _ Public ReadOnly Property UStVAn_LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_LandKz End Get End Property _ Public ReadOnly Property UStVAn_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_PLZ End Get End Property _ Public ReadOnly Property UStVAn_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ort End Get End Property _ Public ReadOnly Property UStVAn_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Land End Get End Property _ Public ReadOnly Property UStVAn_GewerbeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Gewerbe End Get End Property _ Public ReadOnly Property UStVAn_SteuernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Steuernummer End Get End Property _ Public ReadOnly Property UStVAn_ReDatVonColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ReDatVon End Get End Property _ Public ReadOnly Property UStVAn_ReDatBisColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ReDatBis End Get End Property _ Public ReadOnly Property UStVAn_BankverbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Bankverbindung End Get End Property _ Public ReadOnly Property UStVAn_BLZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BLZ End Get End Property _ Public ReadOnly Property UStVAn_KTOColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_KTO End Get End Property _ Public ReadOnly Property UStVAn_KontoinhaberColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Kontoinhaber End Get End Property _ Public ReadOnly Property UStVAn_BICColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BIC End Get End Property _ Public ReadOnly Property UStVAn_IBANColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_IBAN End Get End Property _ Public ReadOnly Property UStVAn_AnlagenColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Anlagen End Get End Property _ Public ReadOnly Property UStVAn_RechnungenColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Rechnungen End Get End Property _ Public ReadOnly Property UStVAn_EinfuhrdokumenteColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Einfuhrdokumente End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_aColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_a End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_1Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_1 End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_2Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_2 End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_3Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_3 End Get End Property _ Public ReadOnly Property UStVAn_AusstellungsortColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ausstellungsort End Get End Property _ Public ReadOnly Property UStVAn_AusstellungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ausstellungsdatum End Get End Property _ Public ReadOnly Property UStVAn_UnterschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Unterschrift End Get End Property _ Public ReadOnly Property UStVAn_LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_LandNr End Get End Property _ Public ReadOnly Property UStVAn_BeleganzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Beleganzahl End Get End Property _ Public ReadOnly Property UStVAn_BeleganzahlRetourniertColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BeleganzahlRetourniert End Get End Property _ Public ReadOnly Property UStVAn_RetournierungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Retournierungsgrund End Get End Property _ Public ReadOnly Property UStVAn_AntragEingereichtAmColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_AntragEingereichtAm End Get End Property _ Public ReadOnly Property UStVAn_BelegeWeitergeleitetAmColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BelegeWeitergeleitetAm End Get End Property _ Public ReadOnly Property UStVAn_VertreterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Vertreter End Get End Property _ Public ReadOnly Property UStVAn_BezugsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BezugsNr End Get End Property _ Public ReadOnly Property UStVAn_3470Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_3470 End Get End Property _ Public ReadOnly Property UStVAn_VZBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZBetrag End Get End Property _ Public ReadOnly Property UStVAn_VZDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZDatum End Get End Property _ Public ReadOnly Property UStVAn_RZBetragVZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_RZBetragVZ End Get End Property _ Public ReadOnly Property UStVAn_RZDatumVZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_RZDatumVZ End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UStVAn_WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Währungscode End Get End Property _ Public ReadOnly Property UStVAn_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_USteuerbetrag End Get End Property _ Public ReadOnly Property UStVAn_ErstattungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erstattungsbetrag End Get End Property _ Public ReadOnly Property UStVAn_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVAn_ErstattungsbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ErstattungsbetragEUR End Get End Property _ Public ReadOnly Property UStVAn_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVAn_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Status End Get End Property _ Public ReadOnly Property UStVAn_StatusTextColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_StatusText End Get End Property _ Public ReadOnly Property UStVAn_AntragArtColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_AntragArt End Get End Property _ Public ReadOnly Property UStVAn_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUStVAntragRow Get Return CType(Me.Rows(index),tblUStVAntragRow) End Get End Property _ Public Event tblUStVAntragRowChanging As tblUStVAntragRowChangeEventHandler _ Public Event tblUStVAntragRowChanged As tblUStVAntragRowChangeEventHandler _ Public Event tblUStVAntragRowDeleting As tblUStVAntragRowChangeEventHandler _ Public Event tblUStVAntragRowDeleted As tblUStVAntragRowChangeEventHandler _ Public Overloads Sub AddtblUStVAntragRow(ByVal row As tblUStVAntragRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUStVAntragRow( _ ByVal UStVAn_KuNr As Integer, _ ByVal UStVAn_Name As String, _ ByVal UStVAn_Straße As String, _ ByVal UStVAn_LandKz As String, _ ByVal UStVAn_PLZ As String, _ ByVal UStVAn_Ort As String, _ ByVal UStVAn_Land As String, _ ByVal UStVAn_Gewerbe As String, _ ByVal UStVAn_Steuernummer As String, _ ByVal UStVAn_ReDatVon As Date, _ ByVal UStVAn_ReDatBis As Date, _ ByVal UStVAn_Bankverbindung As String, _ ByVal UStVAn_BLZ As String, _ ByVal UStVAn_KTO As String, _ ByVal UStVAn_Kontoinhaber As String, _ ByVal UStVAn_BIC As String, _ ByVal UStVAn_IBAN As String, _ ByVal UStVAn_Anlagen As Short, _ ByVal UStVAn_Rechnungen As Short, _ ByVal UStVAn_Einfuhrdokumente As Short, _ ByVal UStVAn_Erklärung_9_a As String, _ ByVal UStVAn_Erklärung_9_b_1 As Boolean, _ ByVal UStVAn_Erklärung_9_b_2 As Boolean, _ ByVal UStVAn_Erklärung_9_b_3 As Boolean, _ ByVal UStVAn_Ausstellungsort As String, _ ByVal UStVAn_Ausstellungsdatum As Date, _ ByVal UStVAn_Unterschrift As String, _ ByVal UStVAn_LandNr As Short, _ ByVal UStVAn_Beleganzahl As Short, _ ByVal UStVAn_BeleganzahlRetourniert As Short, _ ByVal UStVAn_Retournierungsgrund As String, _ ByVal UStVAn_AntragEingereichtAm As Date, _ ByVal UStVAn_BelegeWeitergeleitetAm As Date, _ ByVal UStVAn_Vertreter As Integer, _ ByVal UStVAn_BezugsNr As String, _ ByVal UStVAn_3470 As Decimal, _ ByVal UStVAn_VZBetrag As Decimal, _ ByVal UStVAn_VZDatum As Date, _ ByVal UStVAn_RZBetragVZ As Decimal, _ ByVal UStVAn_RZDatumVZ As Date, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UStVAn_Währungscode As String, _ ByVal UStVAn_USteuerbetrag As Decimal, _ ByVal UStVAn_Erstattungsbetrag As Decimal, _ ByVal UStVAn_USteuerbetragEUR As Decimal, _ ByVal UStVAn_ErstattungsbetragEUR As Decimal, _ ByVal UStVAn_Sachbearbeiter As String, _ ByVal UStVAn_Status As Integer, _ ByVal UStVAn_StatusText As String, _ ByVal UStVAn_AntragArt As String, _ ByVal UStVAn_Zeitstempel As Date, _ ByVal upsize_ts() As Byte) As tblUStVAntragRow Dim rowtblUStVAntragRow As tblUStVAntragRow = CType(Me.NewRow,tblUStVAntragRow) Dim columnValuesArray() As Object = New Object() {Nothing, UStVAn_KuNr, UStVAn_Name, UStVAn_Straße, UStVAn_LandKz, UStVAn_PLZ, UStVAn_Ort, UStVAn_Land, UStVAn_Gewerbe, UStVAn_Steuernummer, UStVAn_ReDatVon, UStVAn_ReDatBis, UStVAn_Bankverbindung, UStVAn_BLZ, UStVAn_KTO, UStVAn_Kontoinhaber, UStVAn_BIC, UStVAn_IBAN, UStVAn_Anlagen, UStVAn_Rechnungen, UStVAn_Einfuhrdokumente, UStVAn_Erklärung_9_a, UStVAn_Erklärung_9_b_1, UStVAn_Erklärung_9_b_2, UStVAn_Erklärung_9_b_3, UStVAn_Ausstellungsort, UStVAn_Ausstellungsdatum, UStVAn_Unterschrift, UStVAn_LandNr, UStVAn_Beleganzahl, UStVAn_BeleganzahlRetourniert, UStVAn_Retournierungsgrund, UStVAn_AntragEingereichtAm, UStVAn_BelegeWeitergeleitetAm, UStVAn_Vertreter, UStVAn_BezugsNr, UStVAn_3470, UStVAn_VZBetrag, UStVAn_VZDatum, UStVAn_RZBetragVZ, UStVAn_RZDatumVZ, FilialenNr, AbfertigungsNr, UStVAn_Währungscode, UStVAn_USteuerbetrag, UStVAn_Erstattungsbetrag, UStVAn_USteuerbetragEUR, UStVAn_ErstattungsbetragEUR, UStVAn_Sachbearbeiter, UStVAn_Status, UStVAn_StatusText, UStVAn_AntragArt, UStVAn_Zeitstempel, upsize_ts} rowtblUStVAntragRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUStVAntragRow) Return rowtblUStVAntragRow End Function _ Public Function FindByUStVAn_ID(ByVal UStVAn_ID As Integer) As tblUStVAntragRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID}),tblUStVAntragRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUStVAntragDataTable = CType(MyBase.Clone,tblUStVAntragDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUStVAntragDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVAn_KuNr = MyBase.Columns("UStVAn_KuNr") Me.columnUStVAn_Name = MyBase.Columns("UStVAn_Name") Me.columnUStVAn_Straße = MyBase.Columns("UStVAn_Straße") Me.columnUStVAn_LandKz = MyBase.Columns("UStVAn_LandKz") Me.columnUStVAn_PLZ = MyBase.Columns("UStVAn_PLZ") Me.columnUStVAn_Ort = MyBase.Columns("UStVAn_Ort") Me.columnUStVAn_Land = MyBase.Columns("UStVAn_Land") Me.columnUStVAn_Gewerbe = MyBase.Columns("UStVAn_Gewerbe") Me.columnUStVAn_Steuernummer = MyBase.Columns("UStVAn_Steuernummer") Me.columnUStVAn_ReDatVon = MyBase.Columns("UStVAn_ReDatVon") Me.columnUStVAn_ReDatBis = MyBase.Columns("UStVAn_ReDatBis") Me.columnUStVAn_Bankverbindung = MyBase.Columns("UStVAn_Bankverbindung") Me.columnUStVAn_BLZ = MyBase.Columns("UStVAn_BLZ") Me.columnUStVAn_KTO = MyBase.Columns("UStVAn_KTO") Me.columnUStVAn_Kontoinhaber = MyBase.Columns("UStVAn_Kontoinhaber") Me.columnUStVAn_BIC = MyBase.Columns("UStVAn_BIC") Me.columnUStVAn_IBAN = MyBase.Columns("UStVAn_IBAN") Me.columnUStVAn_Anlagen = MyBase.Columns("UStVAn_Anlagen") Me.columnUStVAn_Rechnungen = MyBase.Columns("UStVAn_Rechnungen") Me.columnUStVAn_Einfuhrdokumente = MyBase.Columns("UStVAn_Einfuhrdokumente") Me.columnUStVAn_Erklärung_9_a = MyBase.Columns("UStVAn_Erklärung_9_a") Me.columnUStVAn_Erklärung_9_b_1 = MyBase.Columns("UStVAn_Erklärung_9_b_1") Me.columnUStVAn_Erklärung_9_b_2 = MyBase.Columns("UStVAn_Erklärung_9_b_2") Me.columnUStVAn_Erklärung_9_b_3 = MyBase.Columns("UStVAn_Erklärung_9_b_3") Me.columnUStVAn_Ausstellungsort = MyBase.Columns("UStVAn_Ausstellungsort") Me.columnUStVAn_Ausstellungsdatum = MyBase.Columns("UStVAn_Ausstellungsdatum") Me.columnUStVAn_Unterschrift = MyBase.Columns("UStVAn_Unterschrift") Me.columnUStVAn_LandNr = MyBase.Columns("UStVAn_LandNr") Me.columnUStVAn_Beleganzahl = MyBase.Columns("UStVAn_Beleganzahl") Me.columnUStVAn_BeleganzahlRetourniert = MyBase.Columns("UStVAn_BeleganzahlRetourniert") Me.columnUStVAn_Retournierungsgrund = MyBase.Columns("UStVAn_Retournierungsgrund") Me.columnUStVAn_AntragEingereichtAm = MyBase.Columns("UStVAn_AntragEingereichtAm") Me.columnUStVAn_BelegeWeitergeleitetAm = MyBase.Columns("UStVAn_BelegeWeitergeleitetAm") Me.columnUStVAn_Vertreter = MyBase.Columns("UStVAn_Vertreter") Me.columnUStVAn_BezugsNr = MyBase.Columns("UStVAn_BezugsNr") Me.columnUStVAn_3470 = MyBase.Columns("UStVAn_3470") Me.columnUStVAn_VZBetrag = MyBase.Columns("UStVAn_VZBetrag") Me.columnUStVAn_VZDatum = MyBase.Columns("UStVAn_VZDatum") Me.columnUStVAn_RZBetragVZ = MyBase.Columns("UStVAn_RZBetragVZ") Me.columnUStVAn_RZDatumVZ = MyBase.Columns("UStVAn_RZDatumVZ") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUStVAn_Währungscode = MyBase.Columns("UStVAn_Währungscode") Me.columnUStVAn_USteuerbetrag = MyBase.Columns("UStVAn_USteuerbetrag") Me.columnUStVAn_Erstattungsbetrag = MyBase.Columns("UStVAn_Erstattungsbetrag") Me.columnUStVAn_USteuerbetragEUR = MyBase.Columns("UStVAn_USteuerbetragEUR") Me.columnUStVAn_ErstattungsbetragEUR = MyBase.Columns("UStVAn_ErstattungsbetragEUR") Me.columnUStVAn_Sachbearbeiter = MyBase.Columns("UStVAn_Sachbearbeiter") Me.columnUStVAn_Status = MyBase.Columns("UStVAn_Status") Me.columnUStVAn_StatusText = MyBase.Columns("UStVAn_StatusText") Me.columnUStVAn_AntragArt = MyBase.Columns("UStVAn_AntragArt") Me.columnUStVAn_Zeitstempel = MyBase.Columns("UStVAn_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVAn_KuNr = New Global.System.Data.DataColumn("UStVAn_KuNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_KuNr) Me.columnUStVAn_Name = New Global.System.Data.DataColumn("UStVAn_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Name) Me.columnUStVAn_Straße = New Global.System.Data.DataColumn("UStVAn_Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Straße) Me.columnUStVAn_LandKz = New Global.System.Data.DataColumn("UStVAn_LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_LandKz) Me.columnUStVAn_PLZ = New Global.System.Data.DataColumn("UStVAn_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_PLZ) Me.columnUStVAn_Ort = New Global.System.Data.DataColumn("UStVAn_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ort) Me.columnUStVAn_Land = New Global.System.Data.DataColumn("UStVAn_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Land) Me.columnUStVAn_Gewerbe = New Global.System.Data.DataColumn("UStVAn_Gewerbe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Gewerbe) Me.columnUStVAn_Steuernummer = New Global.System.Data.DataColumn("UStVAn_Steuernummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Steuernummer) Me.columnUStVAn_ReDatVon = New Global.System.Data.DataColumn("UStVAn_ReDatVon", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ReDatVon) Me.columnUStVAn_ReDatBis = New Global.System.Data.DataColumn("UStVAn_ReDatBis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ReDatBis) Me.columnUStVAn_Bankverbindung = New Global.System.Data.DataColumn("UStVAn_Bankverbindung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Bankverbindung) Me.columnUStVAn_BLZ = New Global.System.Data.DataColumn("UStVAn_BLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BLZ) Me.columnUStVAn_KTO = New Global.System.Data.DataColumn("UStVAn_KTO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_KTO) Me.columnUStVAn_Kontoinhaber = New Global.System.Data.DataColumn("UStVAn_Kontoinhaber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Kontoinhaber) Me.columnUStVAn_BIC = New Global.System.Data.DataColumn("UStVAn_BIC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BIC) Me.columnUStVAn_IBAN = New Global.System.Data.DataColumn("UStVAn_IBAN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_IBAN) Me.columnUStVAn_Anlagen = New Global.System.Data.DataColumn("UStVAn_Anlagen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Anlagen) Me.columnUStVAn_Rechnungen = New Global.System.Data.DataColumn("UStVAn_Rechnungen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Rechnungen) Me.columnUStVAn_Einfuhrdokumente = New Global.System.Data.DataColumn("UStVAn_Einfuhrdokumente", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Einfuhrdokumente) Me.columnUStVAn_Erklärung_9_a = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_a", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_a) Me.columnUStVAn_Erklärung_9_b_1 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_1) Me.columnUStVAn_Erklärung_9_b_2 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_2) Me.columnUStVAn_Erklärung_9_b_3 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_3", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_3) Me.columnUStVAn_Ausstellungsort = New Global.System.Data.DataColumn("UStVAn_Ausstellungsort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ausstellungsort) Me.columnUStVAn_Ausstellungsdatum = New Global.System.Data.DataColumn("UStVAn_Ausstellungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ausstellungsdatum) Me.columnUStVAn_Unterschrift = New Global.System.Data.DataColumn("UStVAn_Unterschrift", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Unterschrift) Me.columnUStVAn_LandNr = New Global.System.Data.DataColumn("UStVAn_LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_LandNr) Me.columnUStVAn_Beleganzahl = New Global.System.Data.DataColumn("UStVAn_Beleganzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Beleganzahl) Me.columnUStVAn_BeleganzahlRetourniert = New Global.System.Data.DataColumn("UStVAn_BeleganzahlRetourniert", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BeleganzahlRetourniert) Me.columnUStVAn_Retournierungsgrund = New Global.System.Data.DataColumn("UStVAn_Retournierungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Retournierungsgrund) Me.columnUStVAn_AntragEingereichtAm = New Global.System.Data.DataColumn("UStVAn_AntragEingereichtAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_AntragEingereichtAm) Me.columnUStVAn_BelegeWeitergeleitetAm = New Global.System.Data.DataColumn("UStVAn_BelegeWeitergeleitetAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BelegeWeitergeleitetAm) Me.columnUStVAn_Vertreter = New Global.System.Data.DataColumn("UStVAn_Vertreter", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Vertreter) Me.columnUStVAn_BezugsNr = New Global.System.Data.DataColumn("UStVAn_BezugsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BezugsNr) Me.columnUStVAn_3470 = New Global.System.Data.DataColumn("UStVAn_3470", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_3470) Me.columnUStVAn_VZBetrag = New Global.System.Data.DataColumn("UStVAn_VZBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZBetrag) Me.columnUStVAn_VZDatum = New Global.System.Data.DataColumn("UStVAn_VZDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZDatum) Me.columnUStVAn_RZBetragVZ = New Global.System.Data.DataColumn("UStVAn_RZBetragVZ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_RZBetragVZ) Me.columnUStVAn_RZDatumVZ = New Global.System.Data.DataColumn("UStVAn_RZDatumVZ", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_RZDatumVZ) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUStVAn_Währungscode = New Global.System.Data.DataColumn("UStVAn_Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Währungscode) Me.columnUStVAn_USteuerbetrag = New Global.System.Data.DataColumn("UStVAn_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_USteuerbetrag) Me.columnUStVAn_Erstattungsbetrag = New Global.System.Data.DataColumn("UStVAn_Erstattungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erstattungsbetrag) Me.columnUStVAn_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVAn_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_USteuerbetragEUR) Me.columnUStVAn_ErstattungsbetragEUR = New Global.System.Data.DataColumn("UStVAn_ErstattungsbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ErstattungsbetragEUR) Me.columnUStVAn_Sachbearbeiter = New Global.System.Data.DataColumn("UStVAn_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Sachbearbeiter) Me.columnUStVAn_Status = New Global.System.Data.DataColumn("UStVAn_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Status) Me.columnUStVAn_StatusText = New Global.System.Data.DataColumn("UStVAn_StatusText", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_StatusText) Me.columnUStVAn_AntragArt = New Global.System.Data.DataColumn("UStVAn_AntragArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_AntragArt) Me.columnUStVAn_Zeitstempel = New Global.System.Data.DataColumn("UStVAn_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID}, true)) Me.columnUStVAn_ID.AutoIncrement = true Me.columnUStVAn_ID.AutoIncrementSeed = -1 Me.columnUStVAn_ID.AutoIncrementStep = -1 Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVAn_ID.ReadOnly = true Me.columnUStVAn_ID.Unique = true Me.columnUStVAn_KuNr.AllowDBNull = false Me.columnUStVAn_Name.MaxLength = 80 Me.columnUStVAn_Straße.MaxLength = 40 Me.columnUStVAn_LandKz.MaxLength = 3 Me.columnUStVAn_PLZ.MaxLength = 7 Me.columnUStVAn_Ort.MaxLength = 40 Me.columnUStVAn_Land.MaxLength = 22 Me.columnUStVAn_Gewerbe.MaxLength = 50 Me.columnUStVAn_Steuernummer.MaxLength = 20 Me.columnUStVAn_ReDatVon.AllowDBNull = false Me.columnUStVAn_ReDatBis.AllowDBNull = false Me.columnUStVAn_Bankverbindung.MaxLength = 50 Me.columnUStVAn_BLZ.MaxLength = 8 Me.columnUStVAn_KTO.MaxLength = 12 Me.columnUStVAn_Kontoinhaber.MaxLength = 50 Me.columnUStVAn_BIC.MaxLength = 11 Me.columnUStVAn_IBAN.MaxLength = 27 Me.columnUStVAn_Erklärung_9_a.MaxLength = 50 Me.columnUStVAn_Erklärung_9_b_1.AllowDBNull = false Me.columnUStVAn_Erklärung_9_b_2.AllowDBNull = false Me.columnUStVAn_Erklärung_9_b_3.AllowDBNull = false Me.columnUStVAn_Ausstellungsort.MaxLength = 20 Me.columnUStVAn_Unterschrift.MaxLength = 20 Me.columnUStVAn_LandNr.AllowDBNull = false Me.columnUStVAn_Retournierungsgrund.MaxLength = 255 Me.columnUStVAn_BezugsNr.MaxLength = 35 Me.columnUStVAn_Währungscode.MaxLength = 3 Me.columnUStVAn_Sachbearbeiter.MaxLength = 15 Me.columnUStVAn_StatusText.MaxLength = 2147483647 Me.columnUStVAn_AntragArt.MaxLength = 20 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUStVAntragRow() As tblUStVAntragRow Return CType(Me.NewRow,tblUStVAntragRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUStVAntragRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUStVAntragRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUStVAntragRowChangedEvent) Is Nothing) Then RaiseEvent tblUStVAntragRowChanged(Me, New tblUStVAntragRowChangeEvent(CType(e.Row,tblUStVAntragRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUStVAntragRowChangingEvent) Is Nothing) Then RaiseEvent tblUStVAntragRowChanging(Me, New tblUStVAntragRowChangeEvent(CType(e.Row,tblUStVAntragRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUStVAntragRowDeletedEvent) Is Nothing) Then RaiseEvent tblUStVAntragRowDeleted(Me, New tblUStVAntragRowChangeEvent(CType(e.Row,tblUStVAntragRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUStVAntragRowDeletingEvent) Is Nothing) Then RaiseEvent tblUStVAntragRowDeleting(Me, New tblUStVAntragRowChangeEvent(CType(e.Row,tblUStVAntragRow), e.Action)) End If End Sub _ Public Sub RemovetblUStVAntragRow(ByVal row As tblUStVAntragRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUStVAntragDataTable" 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 tblUStVBelegeingangDataTable Inherits Global.System.Data.TypedTableBase(Of tblUStVBelegeingangRow) Private columnUStVBe_KuNr As Global.System.Data.DataColumn Private columnUStVBe_EinDat As Global.System.Data.DataColumn Private columnUStVBe_EinNr As Global.System.Data.DataColumn Private columnUStVBe_UStBetrag As Global.System.Data.DataColumn Private columnUStVBe_Beleganzahl As Global.System.Data.DataColumn Private columnUStVBe_Retourniert As Global.System.Data.DataColumn Private columnUStVBe_Bemerkung As Global.System.Data.DataColumn Private columnUStVBe_WeiterDat As Global.System.Data.DataColumn Private columnUStVBe_Empfänger As Global.System.Data.DataColumn Private columnUStVBe_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUStVBelegeingang" 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 UStVBe_KuNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_KuNr End Get End Property _ Public ReadOnly Property UStVBe_EinDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_EinDat End Get End Property _ Public ReadOnly Property UStVBe_EinNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_EinNr End Get End Property _ Public ReadOnly Property UStVBe_UStBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_UStBetrag End Get End Property _ Public ReadOnly Property UStVBe_BeleganzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Beleganzahl End Get End Property _ Public ReadOnly Property UStVBe_RetourniertColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Retourniert End Get End Property _ Public ReadOnly Property UStVBe_BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Bemerkung End Get End Property _ Public ReadOnly Property UStVBe_WeiterDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_WeiterDat End Get End Property _ Public ReadOnly Property UStVBe_EmpfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Empfänger End Get End Property _ Public ReadOnly Property UStVBe_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUStVBelegeingangRow Get Return CType(Me.Rows(index),tblUStVBelegeingangRow) End Get End Property _ Public Event tblUStVBelegeingangRowChanging As tblUStVBelegeingangRowChangeEventHandler _ Public Event tblUStVBelegeingangRowChanged As tblUStVBelegeingangRowChangeEventHandler _ Public Event tblUStVBelegeingangRowDeleting As tblUStVBelegeingangRowChangeEventHandler _ Public Event tblUStVBelegeingangRowDeleted As tblUStVBelegeingangRowChangeEventHandler _ Public Overloads Sub AddtblUStVBelegeingangRow(ByVal row As tblUStVBelegeingangRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUStVBelegeingangRow(ByVal UStVBe_KuNr As Integer, ByVal UStVBe_EinDat As Date, ByVal UStVBe_UStBetrag As Decimal, ByVal UStVBe_Beleganzahl As Short, ByVal UStVBe_Retourniert As Short, ByVal UStVBe_Bemerkung As String, ByVal UStVBe_WeiterDat As Date, ByVal UStVBe_Empfänger As Integer, ByVal UStVBe_Zeitstempel As Date, ByVal upsize_ts() As Byte) As tblUStVBelegeingangRow Dim rowtblUStVBelegeingangRow As tblUStVBelegeingangRow = CType(Me.NewRow,tblUStVBelegeingangRow) Dim columnValuesArray() As Object = New Object() {UStVBe_KuNr, UStVBe_EinDat, Nothing, UStVBe_UStBetrag, UStVBe_Beleganzahl, UStVBe_Retourniert, UStVBe_Bemerkung, UStVBe_WeiterDat, UStVBe_Empfänger, UStVBe_Zeitstempel, upsize_ts} rowtblUStVBelegeingangRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUStVBelegeingangRow) Return rowtblUStVBelegeingangRow End Function _ Public Function FindByUStVBe_EinNr(ByVal UStVBe_EinNr As Integer) As tblUStVBelegeingangRow Return CType(Me.Rows.Find(New Object() {UStVBe_EinNr}),tblUStVBelegeingangRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUStVBelegeingangDataTable = CType(MyBase.Clone,tblUStVBelegeingangDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUStVBelegeingangDataTable() End Function _ Friend Sub InitVars() Me.columnUStVBe_KuNr = MyBase.Columns("UStVBe_KuNr") Me.columnUStVBe_EinDat = MyBase.Columns("UStVBe_EinDat") Me.columnUStVBe_EinNr = MyBase.Columns("UStVBe_EinNr") Me.columnUStVBe_UStBetrag = MyBase.Columns("UStVBe_UStBetrag") Me.columnUStVBe_Beleganzahl = MyBase.Columns("UStVBe_Beleganzahl") Me.columnUStVBe_Retourniert = MyBase.Columns("UStVBe_Retourniert") Me.columnUStVBe_Bemerkung = MyBase.Columns("UStVBe_Bemerkung") Me.columnUStVBe_WeiterDat = MyBase.Columns("UStVBe_WeiterDat") Me.columnUStVBe_Empfänger = MyBase.Columns("UStVBe_Empfänger") Me.columnUStVBe_Zeitstempel = MyBase.Columns("UStVBe_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVBe_KuNr = New Global.System.Data.DataColumn("UStVBe_KuNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_KuNr) Me.columnUStVBe_EinDat = New Global.System.Data.DataColumn("UStVBe_EinDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_EinDat) Me.columnUStVBe_EinNr = New Global.System.Data.DataColumn("UStVBe_EinNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_EinNr) Me.columnUStVBe_UStBetrag = New Global.System.Data.DataColumn("UStVBe_UStBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_UStBetrag) Me.columnUStVBe_Beleganzahl = New Global.System.Data.DataColumn("UStVBe_Beleganzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Beleganzahl) Me.columnUStVBe_Retourniert = New Global.System.Data.DataColumn("UStVBe_Retourniert", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Retourniert) Me.columnUStVBe_Bemerkung = New Global.System.Data.DataColumn("UStVBe_Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Bemerkung) Me.columnUStVBe_WeiterDat = New Global.System.Data.DataColumn("UStVBe_WeiterDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_WeiterDat) Me.columnUStVBe_Empfänger = New Global.System.Data.DataColumn("UStVBe_Empfänger", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Empfänger) Me.columnUStVBe_Zeitstempel = New Global.System.Data.DataColumn("UStVBe_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVBe_EinNr}, true)) Me.columnUStVBe_KuNr.AllowDBNull = false Me.columnUStVBe_EinDat.AllowDBNull = false Me.columnUStVBe_EinNr.AutoIncrement = true Me.columnUStVBe_EinNr.AutoIncrementSeed = -1 Me.columnUStVBe_EinNr.AutoIncrementStep = -1 Me.columnUStVBe_EinNr.AllowDBNull = false Me.columnUStVBe_EinNr.ReadOnly = true Me.columnUStVBe_EinNr.Unique = true Me.columnUStVBe_Bemerkung.MaxLength = 255 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUStVBelegeingangRow() As tblUStVBelegeingangRow Return CType(Me.NewRow,tblUStVBelegeingangRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUStVBelegeingangRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUStVBelegeingangRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUStVBelegeingangRowChangedEvent) Is Nothing) Then RaiseEvent tblUStVBelegeingangRowChanged(Me, New tblUStVBelegeingangRowChangeEvent(CType(e.Row,tblUStVBelegeingangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUStVBelegeingangRowChangingEvent) Is Nothing) Then RaiseEvent tblUStVBelegeingangRowChanging(Me, New tblUStVBelegeingangRowChangeEvent(CType(e.Row,tblUStVBelegeingangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUStVBelegeingangRowDeletedEvent) Is Nothing) Then RaiseEvent tblUStVBelegeingangRowDeleted(Me, New tblUStVBelegeingangRowChangeEvent(CType(e.Row,tblUStVBelegeingangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUStVBelegeingangRowDeletingEvent) Is Nothing) Then RaiseEvent tblUStVBelegeingangRowDeleting(Me, New tblUStVBelegeingangRowChangeEvent(CType(e.Row,tblUStVBelegeingangRow), e.Action)) End If End Sub _ Public Sub RemovetblUStVBelegeingangRow(ByVal row As tblUStVBelegeingangRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUStVBelegeingangDataTable" 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 tblUStVErstattungDataTable Inherits Global.System.Data.TypedTableBase(Of tblUStVErstattungRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVEr_ID As Global.System.Data.DataColumn Private columnUStVEr_USteuerbetrag As Global.System.Data.DataColumn Private columnBelegdatum As Global.System.Data.DataColumn Private columnBelegnummer As Global.System.Data.DataColumn Private columnGutschriftsDatum As Global.System.Data.DataColumn Private columnGutschriftsNr As Global.System.Data.DataColumn Private columnBerufungsdatum As Global.System.Data.DataColumn Private columnBerufungshöhe As Global.System.Data.DataColumn Private columnBerufungsgrund As Global.System.Data.DataColumn Private columnBemerkung As Global.System.Data.DataColumn Private columnUStVEr_Umrechnungskurs As Global.System.Data.DataColumn Private columnUStVEr_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVEr_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVEr_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUStVErstattung" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVEr_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_ID End Get End Property _ Public ReadOnly Property UStVEr_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_USteuerbetrag End Get End Property _ Public ReadOnly Property BelegdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdatum End Get End Property _ Public ReadOnly Property BelegnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegnummer End Get End Property _ Public ReadOnly Property GutschriftsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnGutschriftsDatum End Get End Property _ Public ReadOnly Property GutschriftsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnGutschriftsNr End Get End Property _ Public ReadOnly Property BerufungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungsdatum End Get End Property _ Public ReadOnly Property BerufungshöheColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungshöhe End Get End Property _ Public ReadOnly Property BerufungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungsgrund End Get End Property _ Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkung End Get End Property _ Public ReadOnly Property UStVEr_UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Umrechnungskurs End Get End Property _ Public ReadOnly Property UStVEr_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVEr_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVEr_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUStVErstattungRow Get Return CType(Me.Rows(index),tblUStVErstattungRow) End Get End Property _ Public Event tblUStVErstattungRowChanging As tblUStVErstattungRowChangeEventHandler _ Public Event tblUStVErstattungRowChanged As tblUStVErstattungRowChangeEventHandler _ Public Event tblUStVErstattungRowDeleting As tblUStVErstattungRowChangeEventHandler _ Public Event tblUStVErstattungRowDeleted As tblUStVErstattungRowChangeEventHandler _ Public Overloads Sub AddtblUStVErstattungRow(ByVal row As tblUStVErstattungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUStVErstattungRow( _ ByVal parenttblUStVAntragRowBytblUStVErstattung_FK00 As tblUStVAntragRow, _ ByVal UStVEr_ID As Short, _ ByVal UStVEr_USteuerbetrag As Decimal, _ ByVal Belegdatum As Date, _ ByVal Belegnummer As String, _ ByVal GutschriftsDatum As Date, _ ByVal GutschriftsNr As Integer, _ ByVal Berufungsdatum As Date, _ ByVal Berufungshöhe As Decimal, _ ByVal Berufungsgrund As String, _ ByVal Bemerkung As String, _ ByVal UStVEr_Umrechnungskurs As Double, _ ByVal UStVEr_USteuerbetragEUR As Decimal, _ ByVal UStVEr_Sachbearbeiter As String, _ ByVal UStVEr_Zeitstempel As Date, _ ByVal upsize_ts() As Byte) As tblUStVErstattungRow Dim rowtblUStVErstattungRow As tblUStVErstattungRow = CType(Me.NewRow,tblUStVErstattungRow) Dim columnValuesArray() As Object = New Object() {Nothing, UStVEr_ID, UStVEr_USteuerbetrag, Belegdatum, Belegnummer, GutschriftsDatum, GutschriftsNr, Berufungsdatum, Berufungshöhe, Berufungsgrund, Bemerkung, UStVEr_Umrechnungskurs, UStVEr_USteuerbetragEUR, UStVEr_Sachbearbeiter, UStVEr_Zeitstempel, upsize_ts} If (Not (parenttblUStVAntragRowBytblUStVErstattung_FK00) Is Nothing) Then columnValuesArray(0) = parenttblUStVAntragRowBytblUStVErstattung_FK00(0) End If rowtblUStVErstattungRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUStVErstattungRow) Return rowtblUStVErstattungRow End Function _ Public Function FindByUStVAn_IDUStVEr_ID(ByVal UStVAn_ID As Integer, ByVal UStVEr_ID As Short) As tblUStVErstattungRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID, UStVEr_ID}),tblUStVErstattungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUStVErstattungDataTable = CType(MyBase.Clone,tblUStVErstattungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUStVErstattungDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVEr_ID = MyBase.Columns("UStVEr_ID") Me.columnUStVEr_USteuerbetrag = MyBase.Columns("UStVEr_USteuerbetrag") Me.columnBelegdatum = MyBase.Columns("Belegdatum") Me.columnBelegnummer = MyBase.Columns("Belegnummer") Me.columnGutschriftsDatum = MyBase.Columns("GutschriftsDatum") Me.columnGutschriftsNr = MyBase.Columns("GutschriftsNr") Me.columnBerufungsdatum = MyBase.Columns("Berufungsdatum") Me.columnBerufungshöhe = MyBase.Columns("Berufungshöhe") Me.columnBerufungsgrund = MyBase.Columns("Berufungsgrund") Me.columnBemerkung = MyBase.Columns("Bemerkung") Me.columnUStVEr_Umrechnungskurs = MyBase.Columns("UStVEr_Umrechnungskurs") Me.columnUStVEr_USteuerbetragEUR = MyBase.Columns("UStVEr_USteuerbetragEUR") Me.columnUStVEr_Sachbearbeiter = MyBase.Columns("UStVEr_Sachbearbeiter") Me.columnUStVEr_Zeitstempel = MyBase.Columns("UStVEr_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVEr_ID = New Global.System.Data.DataColumn("UStVEr_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_ID) Me.columnUStVEr_USteuerbetrag = New Global.System.Data.DataColumn("UStVEr_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_USteuerbetrag) Me.columnBelegdatum = New Global.System.Data.DataColumn("Belegdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdatum) Me.columnBelegnummer = New Global.System.Data.DataColumn("Belegnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegnummer) Me.columnGutschriftsDatum = New Global.System.Data.DataColumn("GutschriftsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGutschriftsDatum) Me.columnGutschriftsNr = New Global.System.Data.DataColumn("GutschriftsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGutschriftsNr) Me.columnBerufungsdatum = New Global.System.Data.DataColumn("Berufungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungsdatum) Me.columnBerufungshöhe = New Global.System.Data.DataColumn("Berufungshöhe", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungshöhe) Me.columnBerufungsgrund = New Global.System.Data.DataColumn("Berufungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungsgrund) Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkung) Me.columnUStVEr_Umrechnungskurs = New Global.System.Data.DataColumn("UStVEr_Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Umrechnungskurs) Me.columnUStVEr_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVEr_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_USteuerbetragEUR) Me.columnUStVEr_Sachbearbeiter = New Global.System.Data.DataColumn("UStVEr_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Sachbearbeiter) Me.columnUStVEr_Zeitstempel = New Global.System.Data.DataColumn("UStVEr_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID, Me.columnUStVEr_ID}, true)) Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVEr_ID.AllowDBNull = false Me.columnUStVEr_USteuerbetrag.AllowDBNull = false Me.columnBelegnummer.MaxLength = 15 Me.columnBerufungsgrund.MaxLength = 255 Me.columnBemerkung.MaxLength = 255 Me.columnUStVEr_Sachbearbeiter.MaxLength = 15 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUStVErstattungRow() As tblUStVErstattungRow Return CType(Me.NewRow,tblUStVErstattungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUStVErstattungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUStVErstattungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUStVErstattungRowChangedEvent) Is Nothing) Then RaiseEvent tblUStVErstattungRowChanged(Me, New tblUStVErstattungRowChangeEvent(CType(e.Row,tblUStVErstattungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUStVErstattungRowChangingEvent) Is Nothing) Then RaiseEvent tblUStVErstattungRowChanging(Me, New tblUStVErstattungRowChangeEvent(CType(e.Row,tblUStVErstattungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUStVErstattungRowDeletedEvent) Is Nothing) Then RaiseEvent tblUStVErstattungRowDeleted(Me, New tblUStVErstattungRowChangeEvent(CType(e.Row,tblUStVErstattungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUStVErstattungRowDeletingEvent) Is Nothing) Then RaiseEvent tblUStVErstattungRowDeleting(Me, New tblUStVErstattungRowChangeEvent(CType(e.Row,tblUStVErstattungRow), e.Action)) End If End Sub _ Public Sub RemovetblUStVErstattungRow(ByVal row As tblUStVErstattungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUStVErstattungDataTable" 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 tblUStVFormulareDataTable Inherits Global.System.Data.TypedTableBase(Of tblUStVFormulareRow) Private columnUStVFo_FormularNr As Global.System.Data.DataColumn Private columnUStVFo_FormularBez As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUStVFormulare" 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 UStVFo_FormularNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVFo_FormularNr End Get End Property _ Public ReadOnly Property UStVFo_FormularBezColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVFo_FormularBez End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblUStVFormulareRow Get Return CType(Me.Rows(index),tblUStVFormulareRow) End Get End Property _ Public Event tblUStVFormulareRowChanging As tblUStVFormulareRowChangeEventHandler _ Public Event tblUStVFormulareRowChanged As tblUStVFormulareRowChangeEventHandler _ Public Event tblUStVFormulareRowDeleting As tblUStVFormulareRowChangeEventHandler _ Public Event tblUStVFormulareRowDeleted As tblUStVFormulareRowChangeEventHandler _ Public Overloads Sub AddtblUStVFormulareRow(ByVal row As tblUStVFormulareRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUStVFormulareRow(ByVal UStVFo_FormularNr As Short, ByVal UStVFo_FormularBez As String, ByVal SSMA_TimeStamp() As Byte) As tblUStVFormulareRow Dim rowtblUStVFormulareRow As tblUStVFormulareRow = CType(Me.NewRow,tblUStVFormulareRow) Dim columnValuesArray() As Object = New Object() {UStVFo_FormularNr, UStVFo_FormularBez, SSMA_TimeStamp} rowtblUStVFormulareRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUStVFormulareRow) Return rowtblUStVFormulareRow End Function _ Public Function FindByUStVFo_FormularNr(ByVal UStVFo_FormularNr As Short) As tblUStVFormulareRow Return CType(Me.Rows.Find(New Object() {UStVFo_FormularNr}),tblUStVFormulareRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUStVFormulareDataTable = CType(MyBase.Clone,tblUStVFormulareDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUStVFormulareDataTable() End Function _ Friend Sub InitVars() Me.columnUStVFo_FormularNr = MyBase.Columns("UStVFo_FormularNr") Me.columnUStVFo_FormularBez = MyBase.Columns("UStVFo_FormularBez") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnUStVFo_FormularNr = New Global.System.Data.DataColumn("UStVFo_FormularNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVFo_FormularNr) Me.columnUStVFo_FormularBez = New Global.System.Data.DataColumn("UStVFo_FormularBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVFo_FormularBez) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVFo_FormularNr}, true)) Me.columnUStVFo_FormularNr.AllowDBNull = false Me.columnUStVFo_FormularNr.Unique = true Me.columnUStVFo_FormularBez.AllowDBNull = false Me.columnUStVFo_FormularBez.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblUStVFormulareRow() As tblUStVFormulareRow Return CType(Me.NewRow,tblUStVFormulareRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUStVFormulareRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUStVFormulareRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUStVFormulareRowChangedEvent) Is Nothing) Then RaiseEvent tblUStVFormulareRowChanged(Me, New tblUStVFormulareRowChangeEvent(CType(e.Row,tblUStVFormulareRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUStVFormulareRowChangingEvent) Is Nothing) Then RaiseEvent tblUStVFormulareRowChanging(Me, New tblUStVFormulareRowChangeEvent(CType(e.Row,tblUStVFormulareRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUStVFormulareRowDeletedEvent) Is Nothing) Then RaiseEvent tblUStVFormulareRowDeleted(Me, New tblUStVFormulareRowChangeEvent(CType(e.Row,tblUStVFormulareRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUStVFormulareRowDeletingEvent) Is Nothing) Then RaiseEvent tblUStVFormulareRowDeleting(Me, New tblUStVFormulareRowChangeEvent(CType(e.Row,tblUStVFormulareRow), e.Action)) End If End Sub _ Public Sub RemovetblUStVFormulareRow(ByVal row As tblUStVFormulareRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUStVFormulareDataTable" 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 tblUStVKuLäFoDataTable Inherits Global.System.Data.TypedTableBase(Of tblUStVKuLäFoRow) Private columnUStVKF_KundenNr As Global.System.Data.DataColumn Private columnUStVLF_LandNr As Global.System.Data.DataColumn Private columnUStVFo_FormularNr As Global.System.Data.DataColumn Private columnUStVKF_Status As Global.System.Data.DataColumn Private columnUStVKF_AnfDat As Global.System.Data.DataColumn Private columnUStVKF_AusDat As Global.System.Data.DataColumn Private columnUStVKF_Vermerk As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUStVKuLäFo" 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 UStVKF_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVKF_KundenNr End Get End Property _ Public ReadOnly Property UStVLF_LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVLF_LandNr End Get End Property _ Public ReadOnly Property UStVFo_FormularNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVFo_FormularNr End Get End Property _ Public ReadOnly Property UStVKF_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVKF_Status End Get End Property _ Public ReadOnly Property UStVKF_AnfDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVKF_AnfDat End Get End Property _ Public ReadOnly Property UStVKF_AusDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVKF_AusDat End Get End Property _ Public ReadOnly Property UStVKF_VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVKF_Vermerk End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblUStVKuLäFoRow Get Return CType(Me.Rows(index),tblUStVKuLäFoRow) End Get End Property _ Public Event tblUStVKuLäFoRowChanging As tblUStVKuLäFoRowChangeEventHandler _ Public Event tblUStVKuLäFoRowChanged As tblUStVKuLäFoRowChangeEventHandler _ Public Event tblUStVKuLäFoRowDeleting As tblUStVKuLäFoRowChangeEventHandler _ Public Event tblUStVKuLäFoRowDeleted As tblUStVKuLäFoRowChangeEventHandler _ Public Overloads Sub AddtblUStVKuLäFoRow(ByVal row As tblUStVKuLäFoRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUStVKuLäFoRow(ByVal _parentAdressenRowBytblUStVKuLäFo_AdressentblUStVKuLäFo As AdressenRow, ByVal _parentLänderverzeichnis_für_die_AußenhandelsstatistikRowBytblUStVKuLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVKuLäFo As Länderverzeichnis_für_die_AußenhandelsstatistikRow, ByVal _parenttblUStVFormulareRowBytblUStVKuLäFo__8EEF3FB0_6A92_4860_B92D_EB83E6F5AE76_ As tblUStVFormulareRow, ByVal UStVKF_Status As String, ByVal UStVKF_AnfDat As Date, ByVal UStVKF_AusDat As Date, ByVal UStVKF_Vermerk As String, ByVal SSMA_TimeStamp() As Byte) As tblUStVKuLäFoRow Dim rowtblUStVKuLäFoRow As tblUStVKuLäFoRow = CType(Me.NewRow,tblUStVKuLäFoRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, UStVKF_Status, UStVKF_AnfDat, UStVKF_AusDat, UStVKF_Vermerk, SSMA_TimeStamp} If (Not (_parentAdressenRowBytblUStVKuLäFo_AdressentblUStVKuLäFo) Is Nothing) Then columnValuesArray(0) = _parentAdressenRowBytblUStVKuLäFo_AdressentblUStVKuLäFo(1) End If If (Not (_parentLänderverzeichnis_für_die_AußenhandelsstatistikRowBytblUStVKuLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVKuLäFo) Is Nothing) Then columnValuesArray(1) = _parentLänderverzeichnis_für_die_AußenhandelsstatistikRowBytblUStVKuLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVKuLäFo(0) End If If (Not (_parenttblUStVFormulareRowBytblUStVKuLäFo__8EEF3FB0_6A92_4860_B92D_EB83E6F5AE76_) Is Nothing) Then columnValuesArray(2) = _parenttblUStVFormulareRowBytblUStVKuLäFo__8EEF3FB0_6A92_4860_B92D_EB83E6F5AE76_(0) End If rowtblUStVKuLäFoRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUStVKuLäFoRow) Return rowtblUStVKuLäFoRow End Function _ Public Function FindByUStVKF_KundenNrUStVLF_LandNrUStVFo_FormularNr(ByVal UStVKF_KundenNr As Integer, ByVal UStVLF_LandNr As Short, ByVal UStVFo_FormularNr As Short) As tblUStVKuLäFoRow Return CType(Me.Rows.Find(New Object() {UStVKF_KundenNr, UStVLF_LandNr, UStVFo_FormularNr}),tblUStVKuLäFoRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUStVKuLäFoDataTable = CType(MyBase.Clone,tblUStVKuLäFoDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUStVKuLäFoDataTable() End Function _ Friend Sub InitVars() Me.columnUStVKF_KundenNr = MyBase.Columns("UStVKF_KundenNr") Me.columnUStVLF_LandNr = MyBase.Columns("UStVLF_LandNr") Me.columnUStVFo_FormularNr = MyBase.Columns("UStVFo_FormularNr") Me.columnUStVKF_Status = MyBase.Columns("UStVKF_Status") Me.columnUStVKF_AnfDat = MyBase.Columns("UStVKF_AnfDat") Me.columnUStVKF_AusDat = MyBase.Columns("UStVKF_AusDat") Me.columnUStVKF_Vermerk = MyBase.Columns("UStVKF_Vermerk") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnUStVKF_KundenNr = New Global.System.Data.DataColumn("UStVKF_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVKF_KundenNr) Me.columnUStVLF_LandNr = New Global.System.Data.DataColumn("UStVLF_LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVLF_LandNr) Me.columnUStVFo_FormularNr = New Global.System.Data.DataColumn("UStVFo_FormularNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVFo_FormularNr) Me.columnUStVKF_Status = New Global.System.Data.DataColumn("UStVKF_Status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVKF_Status) Me.columnUStVKF_AnfDat = New Global.System.Data.DataColumn("UStVKF_AnfDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVKF_AnfDat) Me.columnUStVKF_AusDat = New Global.System.Data.DataColumn("UStVKF_AusDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVKF_AusDat) Me.columnUStVKF_Vermerk = New Global.System.Data.DataColumn("UStVKF_Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVKF_Vermerk) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVKF_KundenNr, Me.columnUStVLF_LandNr, Me.columnUStVFo_FormularNr}, true)) Me.columnUStVKF_KundenNr.AllowDBNull = false Me.columnUStVLF_LandNr.AllowDBNull = false Me.columnUStVFo_FormularNr.AllowDBNull = false Me.columnUStVKF_Status.MaxLength = 50 Me.columnUStVKF_Vermerk.MaxLength = 255 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblUStVKuLäFoRow() As tblUStVKuLäFoRow Return CType(Me.NewRow,tblUStVKuLäFoRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUStVKuLäFoRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUStVKuLäFoRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUStVKuLäFoRowChangedEvent) Is Nothing) Then RaiseEvent tblUStVKuLäFoRowChanged(Me, New tblUStVKuLäFoRowChangeEvent(CType(e.Row,tblUStVKuLäFoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUStVKuLäFoRowChangingEvent) Is Nothing) Then RaiseEvent tblUStVKuLäFoRowChanging(Me, New tblUStVKuLäFoRowChangeEvent(CType(e.Row,tblUStVKuLäFoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUStVKuLäFoRowDeletedEvent) Is Nothing) Then RaiseEvent tblUStVKuLäFoRowDeleted(Me, New tblUStVKuLäFoRowChangeEvent(CType(e.Row,tblUStVKuLäFoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUStVKuLäFoRowDeletingEvent) Is Nothing) Then RaiseEvent tblUStVKuLäFoRowDeleting(Me, New tblUStVKuLäFoRowChangeEvent(CType(e.Row,tblUStVKuLäFoRow), e.Action)) End If End Sub _ Public Sub RemovetblUStVKuLäFoRow(ByVal row As tblUStVKuLäFoRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUStVKuLäFoDataTable" 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 tblUStVLäFoDataTable Inherits Global.System.Data.TypedTableBase(Of tblUStVLäFoRow) Private columnUStVLF_LandNr As Global.System.Data.DataColumn Private columnUStVFo_FormularNr As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUStVLäFo" 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 UStVLF_LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVLF_LandNr End Get End Property _ Public ReadOnly Property UStVFo_FormularNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVFo_FormularNr End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblUStVLäFoRow Get Return CType(Me.Rows(index),tblUStVLäFoRow) End Get End Property _ Public Event tblUStVLäFoRowChanging As tblUStVLäFoRowChangeEventHandler _ Public Event tblUStVLäFoRowChanged As tblUStVLäFoRowChangeEventHandler _ Public Event tblUStVLäFoRowDeleting As tblUStVLäFoRowChangeEventHandler _ Public Event tblUStVLäFoRowDeleted As tblUStVLäFoRowChangeEventHandler _ Public Overloads Sub AddtblUStVLäFoRow(ByVal row As tblUStVLäFoRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUStVLäFoRow(ByVal _parentLänderverzeichnis_für_die_AußenhandelsstatistikRowBytblUStVLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVLäFo As Länderverzeichnis_für_die_AußenhandelsstatistikRow, ByVal _parenttblUStVFormulareRowBytblUStVLäFo__472BEB22_FFB6_4415_A1BE_B0664E28BFC1_ As tblUStVFormulareRow, ByVal SSMA_TimeStamp() As Byte) As tblUStVLäFoRow Dim rowtblUStVLäFoRow As tblUStVLäFoRow = CType(Me.NewRow,tblUStVLäFoRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SSMA_TimeStamp} If (Not (_parentLänderverzeichnis_für_die_AußenhandelsstatistikRowBytblUStVLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVLäFo) Is Nothing) Then columnValuesArray(0) = _parentLänderverzeichnis_für_die_AußenhandelsstatistikRowBytblUStVLäFo_Länderverzeichnis_für_die_AußenhandelsstatistiktblUStVLäFo(0) End If If (Not (_parenttblUStVFormulareRowBytblUStVLäFo__472BEB22_FFB6_4415_A1BE_B0664E28BFC1_) Is Nothing) Then columnValuesArray(1) = _parenttblUStVFormulareRowBytblUStVLäFo__472BEB22_FFB6_4415_A1BE_B0664E28BFC1_(0) End If rowtblUStVLäFoRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUStVLäFoRow) Return rowtblUStVLäFoRow End Function _ Public Function FindByUStVLF_LandNrUStVFo_FormularNr(ByVal UStVLF_LandNr As Short, ByVal UStVFo_FormularNr As Short) As tblUStVLäFoRow Return CType(Me.Rows.Find(New Object() {UStVLF_LandNr, UStVFo_FormularNr}),tblUStVLäFoRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUStVLäFoDataTable = CType(MyBase.Clone,tblUStVLäFoDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUStVLäFoDataTable() End Function _ Friend Sub InitVars() Me.columnUStVLF_LandNr = MyBase.Columns("UStVLF_LandNr") Me.columnUStVFo_FormularNr = MyBase.Columns("UStVFo_FormularNr") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnUStVLF_LandNr = New Global.System.Data.DataColumn("UStVLF_LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVLF_LandNr) Me.columnUStVFo_FormularNr = New Global.System.Data.DataColumn("UStVFo_FormularNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVFo_FormularNr) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVLF_LandNr, Me.columnUStVFo_FormularNr}, true)) Me.columnUStVLF_LandNr.AllowDBNull = false Me.columnUStVFo_FormularNr.AllowDBNull = false Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblUStVLäFoRow() As tblUStVLäFoRow Return CType(Me.NewRow,tblUStVLäFoRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUStVLäFoRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUStVLäFoRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUStVLäFoRowChangedEvent) Is Nothing) Then RaiseEvent tblUStVLäFoRowChanged(Me, New tblUStVLäFoRowChangeEvent(CType(e.Row,tblUStVLäFoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUStVLäFoRowChangingEvent) Is Nothing) Then RaiseEvent tblUStVLäFoRowChanging(Me, New tblUStVLäFoRowChangeEvent(CType(e.Row,tblUStVLäFoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUStVLäFoRowDeletedEvent) Is Nothing) Then RaiseEvent tblUStVLäFoRowDeleted(Me, New tblUStVLäFoRowChangeEvent(CType(e.Row,tblUStVLäFoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUStVLäFoRowDeletingEvent) Is Nothing) Then RaiseEvent tblUStVLäFoRowDeleting(Me, New tblUStVLäFoRowChangeEvent(CType(e.Row,tblUStVLäFoRow), e.Action)) End If End Sub _ Public Sub RemovetblUStVLäFoRow(ByVal row As tblUStVLäFoRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUStVLäFoDataTable" 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 tblUStVLeistenderDataTable Inherits Global.System.Data.TypedTableBase(Of tblUStVLeistenderRow) Private columnUStV_Leistender As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn Private columnUstV_Leistender_PLZ As Global.System.Data.DataColumn Private columnUstV_Leistender_Strasse As Global.System.Data.DataColumn Private columnUstV_Leistender_Stadt As Global.System.Data.DataColumn Private columnUstV_Leistender_StrasseNr As Global.System.Data.DataColumn Private columnUstV_Leistender_Land As Global.System.Data.DataColumn Private columnUstV_Leistender_UstNr As Global.System.Data.DataColumn Private columnUstV_Leistender_Adresse As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUStVLeistender" 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 UStV_LeistenderColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_Leistender End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp End Get End Property _ Public ReadOnly Property UstV_Leistender_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnUstV_Leistender_PLZ End Get End Property _ Public ReadOnly Property UstV_Leistender_StrasseColumn() As Global.System.Data.DataColumn Get Return Me.columnUstV_Leistender_Strasse End Get End Property _ Public ReadOnly Property UstV_Leistender_StadtColumn() As Global.System.Data.DataColumn Get Return Me.columnUstV_Leistender_Stadt End Get End Property _ Public ReadOnly Property UstV_Leistender_StrasseNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUstV_Leistender_StrasseNr End Get End Property _ Public ReadOnly Property UstV_Leistender_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnUstV_Leistender_Land End Get End Property _ Public ReadOnly Property UstV_Leistender_UstNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUstV_Leistender_UstNr End Get End Property _ Public ReadOnly Property UstV_Leistender_AdresseColumn() As Global.System.Data.DataColumn Get Return Me.columnUstV_Leistender_Adresse 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 tblUStVLeistenderRow Get Return CType(Me.Rows(index),tblUStVLeistenderRow) End Get End Property _ Public Event tblUStVLeistenderRowChanging As tblUStVLeistenderRowChangeEventHandler _ Public Event tblUStVLeistenderRowChanged As tblUStVLeistenderRowChangeEventHandler _ Public Event tblUStVLeistenderRowDeleting As tblUStVLeistenderRowChangeEventHandler _ Public Event tblUStVLeistenderRowDeleted As tblUStVLeistenderRowChangeEventHandler _ Public Overloads Sub AddtblUStVLeistenderRow(ByVal row As tblUStVLeistenderRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUStVLeistenderRow(ByVal UStV_Leistender As String, ByVal SSMA_TimeStamp() As Byte, ByVal UstV_Leistender_PLZ As String, ByVal UstV_Leistender_Strasse As String, ByVal UstV_Leistender_Stadt As String, ByVal UstV_Leistender_StrasseNr As String, ByVal UstV_Leistender_Land As String, ByVal UstV_Leistender_UstNr As String, ByVal UstV_Leistender_Adresse As Boolean) As tblUStVLeistenderRow Dim rowtblUStVLeistenderRow As tblUStVLeistenderRow = CType(Me.NewRow,tblUStVLeistenderRow) Dim columnValuesArray() As Object = New Object() {UStV_Leistender, SSMA_TimeStamp, UstV_Leistender_PLZ, UstV_Leistender_Strasse, UstV_Leistender_Stadt, UstV_Leistender_StrasseNr, UstV_Leistender_Land, UstV_Leistender_UstNr, UstV_Leistender_Adresse} rowtblUStVLeistenderRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUStVLeistenderRow) Return rowtblUStVLeistenderRow End Function _ Public Function FindByUStV_Leistender(ByVal UStV_Leistender As String) As tblUStVLeistenderRow Return CType(Me.Rows.Find(New Object() {UStV_Leistender}),tblUStVLeistenderRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUStVLeistenderDataTable = CType(MyBase.Clone,tblUStVLeistenderDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUStVLeistenderDataTable() End Function _ Friend Sub InitVars() Me.columnUStV_Leistender = MyBase.Columns("UStV_Leistender") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") Me.columnUstV_Leistender_PLZ = MyBase.Columns("UstV_Leistender_PLZ") Me.columnUstV_Leistender_Strasse = MyBase.Columns("UstV_Leistender_Strasse") Me.columnUstV_Leistender_Stadt = MyBase.Columns("UstV_Leistender_Stadt") Me.columnUstV_Leistender_StrasseNr = MyBase.Columns("UstV_Leistender_StrasseNr") Me.columnUstV_Leistender_Land = MyBase.Columns("UstV_Leistender_Land") Me.columnUstV_Leistender_UstNr = MyBase.Columns("UstV_Leistender_UstNr") Me.columnUstV_Leistender_Adresse = MyBase.Columns("UstV_Leistender_Adresse") End Sub _ Private Sub InitClass() Me.columnUStV_Leistender = New Global.System.Data.DataColumn("UStV_Leistender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_Leistender) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.columnUstV_Leistender_PLZ = New Global.System.Data.DataColumn("UstV_Leistender_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstV_Leistender_PLZ) Me.columnUstV_Leistender_Strasse = New Global.System.Data.DataColumn("UstV_Leistender_Strasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstV_Leistender_Strasse) Me.columnUstV_Leistender_Stadt = New Global.System.Data.DataColumn("UstV_Leistender_Stadt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstV_Leistender_Stadt) Me.columnUstV_Leistender_StrasseNr = New Global.System.Data.DataColumn("UstV_Leistender_StrasseNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstV_Leistender_StrasseNr) Me.columnUstV_Leistender_Land = New Global.System.Data.DataColumn("UstV_Leistender_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstV_Leistender_Land) Me.columnUstV_Leistender_UstNr = New Global.System.Data.DataColumn("UstV_Leistender_UstNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstV_Leistender_UstNr) Me.columnUstV_Leistender_Adresse = New Global.System.Data.DataColumn("UstV_Leistender_Adresse", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstV_Leistender_Adresse) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStV_Leistender}, true)) Me.columnUStV_Leistender.AllowDBNull = false Me.columnUStV_Leistender.Unique = true Me.columnUStV_Leistender.MaxLength = 65 Me.columnSSMA_TimeStamp.ReadOnly = true Me.columnUstV_Leistender_PLZ.MaxLength = 50 Me.columnUstV_Leistender_Strasse.MaxLength = 50 Me.columnUstV_Leistender_Stadt.MaxLength = 50 Me.columnUstV_Leistender_StrasseNr.MaxLength = 50 Me.columnUstV_Leistender_Land.MaxLength = 2 Me.columnUstV_Leistender_UstNr.MaxLength = 50 Me.columnUstV_Leistender_Adresse.AllowDBNull = false End Sub _ Public Function NewtblUStVLeistenderRow() As tblUStVLeistenderRow Return CType(Me.NewRow,tblUStVLeistenderRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUStVLeistenderRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUStVLeistenderRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUStVLeistenderRowChangedEvent) Is Nothing) Then RaiseEvent tblUStVLeistenderRowChanged(Me, New tblUStVLeistenderRowChangeEvent(CType(e.Row,tblUStVLeistenderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUStVLeistenderRowChangingEvent) Is Nothing) Then RaiseEvent tblUStVLeistenderRowChanging(Me, New tblUStVLeistenderRowChangeEvent(CType(e.Row,tblUStVLeistenderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUStVLeistenderRowDeletedEvent) Is Nothing) Then RaiseEvent tblUStVLeistenderRowDeleted(Me, New tblUStVLeistenderRowChangeEvent(CType(e.Row,tblUStVLeistenderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUStVLeistenderRowDeletingEvent) Is Nothing) Then RaiseEvent tblUStVLeistenderRowDeleting(Me, New tblUStVLeistenderRowChangeEvent(CType(e.Row,tblUStVLeistenderRow), e.Action)) End If End Sub _ Public Sub RemovetblUStVLeistenderRow(ByVal row As tblUStVLeistenderRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUStVLeistenderDataTable" 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 tblUStVPositionenDataTable Inherits Global.System.Data.TypedTableBase(Of tblUStVPositionenRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVPo_ID As Global.System.Data.DataColumn Private columnUStVPo_ReDat As Global.System.Data.DataColumn Private columnUStVPo_ReNr As Global.System.Data.DataColumn Private columnUStVPo_USteuerbetrag As Global.System.Data.DataColumn Private columnUStVPo_Leistungsbezeichnung As Global.System.Data.DataColumn Private columnUStVPo_Leistender As Global.System.Data.DataColumn Private columnUStVPo_Schnittstelle As Global.System.Data.DataColumn Private columnUStVPo_SchnittstellenNr As Global.System.Data.DataColumn Private columnUStVPo_Umrechnungskurs As Global.System.Data.DataColumn Private columnUStVPo_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVPo_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVPo_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUStVPositionen" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVPo_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ID End Get End Property _ Public ReadOnly Property UStVPo_ReDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ReDat End Get End Property _ Public ReadOnly Property UStVPo_ReNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ReNr End Get End Property _ Public ReadOnly Property UStVPo_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_USteuerbetrag End Get End Property _ Public ReadOnly Property UStVPo_LeistungsbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Leistungsbezeichnung End Get End Property _ Public ReadOnly Property UStVPo_LeistenderColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Leistender End Get End Property _ Public ReadOnly Property UStVPo_SchnittstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Schnittstelle End Get End Property _ Public ReadOnly Property UStVPo_SchnittstellenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_SchnittstellenNr End Get End Property _ Public ReadOnly Property UStVPo_UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Umrechnungskurs End Get End Property _ Public ReadOnly Property UStVPo_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVPo_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVPo_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUStVPositionenRow Get Return CType(Me.Rows(index),tblUStVPositionenRow) End Get End Property _ Public Event tblUStVPositionenRowChanging As tblUStVPositionenRowChangeEventHandler _ Public Event tblUStVPositionenRowChanged As tblUStVPositionenRowChangeEventHandler _ Public Event tblUStVPositionenRowDeleting As tblUStVPositionenRowChangeEventHandler _ Public Event tblUStVPositionenRowDeleted As tblUStVPositionenRowChangeEventHandler _ Public Overloads Sub AddtblUStVPositionenRow(ByVal row As tblUStVPositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUStVPositionenRow(ByVal parenttblUStVAntragRowBytblUStVPositionen_FK00 As tblUStVAntragRow, ByVal UStVPo_ID As Short, ByVal UStVPo_ReDat As Date, ByVal UStVPo_ReNr As String, ByVal UStVPo_USteuerbetrag As Decimal, ByVal UStVPo_Leistungsbezeichnung As String, ByVal UStVPo_Leistender As String, ByVal UStVPo_Schnittstelle As Boolean, ByVal UStVPo_SchnittstellenNr As Short, ByVal UStVPo_Umrechnungskurs As Double, ByVal UStVPo_USteuerbetragEUR As Decimal, ByVal UStVPo_Sachbearbeiter As String, ByVal UStVPo_Zeitstempel As Date, ByVal upsize_ts() As Byte) As tblUStVPositionenRow Dim rowtblUStVPositionenRow As tblUStVPositionenRow = CType(Me.NewRow,tblUStVPositionenRow) Dim columnValuesArray() As Object = New Object() {Nothing, UStVPo_ID, UStVPo_ReDat, UStVPo_ReNr, UStVPo_USteuerbetrag, UStVPo_Leistungsbezeichnung, UStVPo_Leistender, UStVPo_Schnittstelle, UStVPo_SchnittstellenNr, UStVPo_Umrechnungskurs, UStVPo_USteuerbetragEUR, UStVPo_Sachbearbeiter, UStVPo_Zeitstempel, upsize_ts} If (Not (parenttblUStVAntragRowBytblUStVPositionen_FK00) Is Nothing) Then columnValuesArray(0) = parenttblUStVAntragRowBytblUStVPositionen_FK00(0) End If rowtblUStVPositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUStVPositionenRow) Return rowtblUStVPositionenRow End Function _ Public Function FindByUStVAn_IDUStVPo_ID(ByVal UStVAn_ID As Integer, ByVal UStVPo_ID As Short) As tblUStVPositionenRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID, UStVPo_ID}),tblUStVPositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUStVPositionenDataTable = CType(MyBase.Clone,tblUStVPositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUStVPositionenDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVPo_ID = MyBase.Columns("UStVPo_ID") Me.columnUStVPo_ReDat = MyBase.Columns("UStVPo_ReDat") Me.columnUStVPo_ReNr = MyBase.Columns("UStVPo_ReNr") Me.columnUStVPo_USteuerbetrag = MyBase.Columns("UStVPo_USteuerbetrag") Me.columnUStVPo_Leistungsbezeichnung = MyBase.Columns("UStVPo_Leistungsbezeichnung") Me.columnUStVPo_Leistender = MyBase.Columns("UStVPo_Leistender") Me.columnUStVPo_Schnittstelle = MyBase.Columns("UStVPo_Schnittstelle") Me.columnUStVPo_SchnittstellenNr = MyBase.Columns("UStVPo_SchnittstellenNr") Me.columnUStVPo_Umrechnungskurs = MyBase.Columns("UStVPo_Umrechnungskurs") Me.columnUStVPo_USteuerbetragEUR = MyBase.Columns("UStVPo_USteuerbetragEUR") Me.columnUStVPo_Sachbearbeiter = MyBase.Columns("UStVPo_Sachbearbeiter") Me.columnUStVPo_Zeitstempel = MyBase.Columns("UStVPo_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVPo_ID = New Global.System.Data.DataColumn("UStVPo_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ID) Me.columnUStVPo_ReDat = New Global.System.Data.DataColumn("UStVPo_ReDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ReDat) Me.columnUStVPo_ReNr = New Global.System.Data.DataColumn("UStVPo_ReNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ReNr) Me.columnUStVPo_USteuerbetrag = New Global.System.Data.DataColumn("UStVPo_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_USteuerbetrag) Me.columnUStVPo_Leistungsbezeichnung = New Global.System.Data.DataColumn("UStVPo_Leistungsbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Leistungsbezeichnung) Me.columnUStVPo_Leistender = New Global.System.Data.DataColumn("UStVPo_Leistender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Leistender) Me.columnUStVPo_Schnittstelle = New Global.System.Data.DataColumn("UStVPo_Schnittstelle", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Schnittstelle) Me.columnUStVPo_SchnittstellenNr = New Global.System.Data.DataColumn("UStVPo_SchnittstellenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_SchnittstellenNr) Me.columnUStVPo_Umrechnungskurs = New Global.System.Data.DataColumn("UStVPo_Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Umrechnungskurs) Me.columnUStVPo_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVPo_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_USteuerbetragEUR) Me.columnUStVPo_Sachbearbeiter = New Global.System.Data.DataColumn("UStVPo_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Sachbearbeiter) Me.columnUStVPo_Zeitstempel = New Global.System.Data.DataColumn("UStVPo_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID, Me.columnUStVPo_ID}, true)) Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVPo_ID.AllowDBNull = false Me.columnUStVPo_ReNr.MaxLength = 40 Me.columnUStVPo_USteuerbetrag.AllowDBNull = false Me.columnUStVPo_Leistungsbezeichnung.MaxLength = 255 Me.columnUStVPo_Leistender.MaxLength = 65 Me.columnUStVPo_Schnittstelle.AllowDBNull = false Me.columnUStVPo_SchnittstellenNr.AllowDBNull = false Me.columnUStVPo_Sachbearbeiter.MaxLength = 15 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUStVPositionenRow() As tblUStVPositionenRow Return CType(Me.NewRow,tblUStVPositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUStVPositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUStVPositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUStVPositionenRowChangedEvent) Is Nothing) Then RaiseEvent tblUStVPositionenRowChanged(Me, New tblUStVPositionenRowChangeEvent(CType(e.Row,tblUStVPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUStVPositionenRowChangingEvent) Is Nothing) Then RaiseEvent tblUStVPositionenRowChanging(Me, New tblUStVPositionenRowChangeEvent(CType(e.Row,tblUStVPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUStVPositionenRowDeletedEvent) Is Nothing) Then RaiseEvent tblUStVPositionenRowDeleted(Me, New tblUStVPositionenRowChangeEvent(CType(e.Row,tblUStVPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUStVPositionenRowDeletingEvent) Is Nothing) Then RaiseEvent tblUStVPositionenRowDeleting(Me, New tblUStVPositionenRowChangeEvent(CType(e.Row,tblUStVPositionenRow), e.Action)) End If End Sub _ Public Sub RemovetblUStVPositionenRow(ByVal row As tblUStVPositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUStVPositionenDataTable" 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 tblUStVTexteDataTable Inherits Global.System.Data.TypedTableBase(Of tblUStVTexteRow) Private columnUStVTe_Text As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUStVTexte" 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 UStVTe_TextColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVTe_Text End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblUStVTexteRow Get Return CType(Me.Rows(index),tblUStVTexteRow) End Get End Property _ Public Event tblUStVTexteRowChanging As tblUStVTexteRowChangeEventHandler _ Public Event tblUStVTexteRowChanged As tblUStVTexteRowChangeEventHandler _ Public Event tblUStVTexteRowDeleting As tblUStVTexteRowChangeEventHandler _ Public Event tblUStVTexteRowDeleted As tblUStVTexteRowChangeEventHandler _ Public Overloads Sub AddtblUStVTexteRow(ByVal row As tblUStVTexteRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUStVTexteRow(ByVal UStVTe_Text As String, ByVal SSMA_TimeStamp() As Byte) As tblUStVTexteRow Dim rowtblUStVTexteRow As tblUStVTexteRow = CType(Me.NewRow,tblUStVTexteRow) Dim columnValuesArray() As Object = New Object() {UStVTe_Text, SSMA_TimeStamp} rowtblUStVTexteRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUStVTexteRow) Return rowtblUStVTexteRow End Function _ Public Function FindByUStVTe_Text(ByVal UStVTe_Text As String) As tblUStVTexteRow Return CType(Me.Rows.Find(New Object() {UStVTe_Text}),tblUStVTexteRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUStVTexteDataTable = CType(MyBase.Clone,tblUStVTexteDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUStVTexteDataTable() End Function _ Friend Sub InitVars() Me.columnUStVTe_Text = MyBase.Columns("UStVTe_Text") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnUStVTe_Text = New Global.System.Data.DataColumn("UStVTe_Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVTe_Text) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVTe_Text}, true)) Me.columnUStVTe_Text.AllowDBNull = false Me.columnUStVTe_Text.Unique = true Me.columnUStVTe_Text.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblUStVTexteRow() As tblUStVTexteRow Return CType(Me.NewRow,tblUStVTexteRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUStVTexteRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUStVTexteRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUStVTexteRowChangedEvent) Is Nothing) Then RaiseEvent tblUStVTexteRowChanged(Me, New tblUStVTexteRowChangeEvent(CType(e.Row,tblUStVTexteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUStVTexteRowChangingEvent) Is Nothing) Then RaiseEvent tblUStVTexteRowChanging(Me, New tblUStVTexteRowChangeEvent(CType(e.Row,tblUStVTexteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUStVTexteRowDeletedEvent) Is Nothing) Then RaiseEvent tblUStVTexteRowDeleted(Me, New tblUStVTexteRowChangeEvent(CType(e.Row,tblUStVTexteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUStVTexteRowDeletingEvent) Is Nothing) Then RaiseEvent tblUStVTexteRowDeleting(Me, New tblUStVTexteRowChangeEvent(CType(e.Row,tblUStVTexteRow), e.Action)) End If End Sub _ Public Sub RemovetblUStVTexteRow(ByVal row As tblUStVTexteRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUStVTexteDataTable" 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 tblUTAArchivDataTable Inherits Global.System.Data.TypedTableBase(Of tblUTAArchivRow) Private columnErstellDatumUhrzeit As Global.System.Data.DataColumn Private columnÜbertragungsnummer As Global.System.Data.DataColumn Private columnÜbertragungsposition As Global.System.Data.DataColumn Private columnAbrechnungsnummer As Global.System.Data.DataColumn Private columnDatum_für_Lieferungen_und_Leistungen_bis As Global.System.Data.DataColumn Private columnRechnungsempfänger_Kundennummer As Global.System.Data.DataColumn Private columnAbrechnungsdatum As Global.System.Data.DataColumn Private columnKundennummer As Global.System.Data.DataColumn Private columnKartennummer As Global.System.Data.DataColumn Private columnBelegdatum As Global.System.Data.DataColumn Private columnAkzeptanzstellennummer As Global.System.Data.DataColumn Private columnStandort_der_Akzeptanzstelle As Global.System.Data.DataColumn Private columnLieferland As Global.System.Data.DataColumn Private columnBelegnummer_des_Lieferanten As Global.System.Data.DataColumn Private columnKilometerstand As Global.System.Data.DataColumn Private columnFakturierwarenart As Global.System.Data.DataColumn Private columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Global.System.Data.DataColumn Private columnMenge As Global.System.Data.DataColumn Private columnSB_BT As Global.System.Data.DataColumn Private columnUmsatzsteuerprozentsatz As Global.System.Data.DataColumn Private columnLieferlandwährung_ISO As Global.System.Data.DataColumn Private columnEinzelpreis_Brutto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnEinzelpreis_Netto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnBetrag_Service_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnBetrag_Nachlass_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnDarstellwährung_ISO As Global.System.Data.DataColumn Private columnBetrag_Service_in_Darstellwährung As Global.System.Data.DataColumn Private columnBetrag_Nachlass_in_Darstellwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Netto_in_Darstellwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Brutto_in_Darstellwährung As Global.System.Data.DataColumn Private columnPrägetext_i_d_R_KFZ_Kennzeichen As Global.System.Data.DataColumn Private columnKunden_Kostenstelle_1 As Global.System.Data.DataColumn Private columnKartentyp As Global.System.Data.DataColumn Private columnFiller_Feld_35 As Global.System.Data.DataColumn Private columnFiller_Feld_36 As Global.System.Data.DataColumn Private columnKZ_Autobahn As Global.System.Data.DataColumn Private columnINFO_Feld As Global.System.Data.DataColumn Private columnKFZ_Kennzeichen As Global.System.Data.DataColumn Private columnFiller_Feld_40 As Global.System.Data.DataColumn Private columnBuchungsart As Global.System.Data.DataColumn Private columnBuchungsgrund As Global.System.Data.DataColumn Private columnFiller_Feld_43 As Global.System.Data.DataColumn Private columnInformationsbeleg As Global.System.Data.DataColumn Private columnBelegherkunft As Global.System.Data.DataColumn Private columnFiller_Feld_46 As Global.System.Data.DataColumn Private columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Data.DataColumn Private columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Data.DataColumn Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnUmsatzsteuerprozentsatz_informativ As Global.System.Data.DataColumn Private columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Data.DataColumn Private columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Data.DataColumn Private columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Data.DataColumn Private columnFälligkeitsdatum As Global.System.Data.DataColumn Private columnZahlungsziel_in_Tagen As Global.System.Data.DataColumn Private columnZahlungsart As Global.System.Data.DataColumn Private columnTC_Rechnungsnummer_gegenüber_dem_Nutzer As Global.System.Data.DataColumn Private columnTC_Rechnungsdatum As Global.System.Data.DataColumn Private columnZahlungszielgruppe As Global.System.Data.DataColumn Private columnKunden_Kostenstelle_2 As Global.System.Data.DataColumn Private columnLieferzeit As Global.System.Data.DataColumn Private columnFremdkartennummer As Global.System.Data.DataColumn Private columnOnBoardUnitID As Global.System.Data.DataColumn Private columnKFZ_Kennzeichen_komprimiert As Global.System.Data.DataColumn Private columnKartenkategorie As Global.System.Data.DataColumn Private columnRechnungsnummer_pro_Lieferland As Global.System.Data.DataColumn Private columnAutobahnauffahrt As Global.System.Data.DataColumn Private columnAutobahnausfahrt As Global.System.Data.DataColumn Private columnRabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Data.DataColumn Private columnNummer_Belastungsanzeige As Global.System.Data.DataColumn Private columnBetreuungsstelle As Global.System.Data.DataColumn Private columnFiller_Feld_72 As Global.System.Data.DataColumn Private columnAkzeptanz_Medium As Global.System.Data.DataColumn Private columnSteuerkategorie As Global.System.Data.DataColumn Private columnUTA_Beleg_ID As Global.System.Data.DataColumn Private columnUTA_Normalbeleg_ID As Global.System.Data.DataColumn Private columnGebühren_Bescheinigung_von As Global.System.Data.DataColumn Private columnGebühren_Bescheinigung_bis As Global.System.Data.DataColumn Private columnHerausgeber_Nutzer_Nummer As Global.System.Data.DataColumn Private columnMaßeinheit As Global.System.Data.DataColumn Private columnLand_der_Akzeptanzstelle As Global.System.Data.DataColumn Private columnPostleitzahl_der_Akzeptanzstelle As Global.System.Data.DataColumn Private columnSteuerliches_Lieferland As Global.System.Data.DataColumn Private columnSteuerliche_Produktgruppe As Global.System.Data.DataColumn Private columnLeistungsort_verlagerbar As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUTAArchiv" 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 ErstellDatumUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnErstellDatumUhrzeit End Get End Property _ Public ReadOnly Property ÜbertragungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbertragungsnummer End Get End Property _ Public ReadOnly Property ÜbertragungspositionColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbertragungsposition End Get End Property _ Public ReadOnly Property AbrechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnAbrechnungsnummer End Get End Property _ Public ReadOnly Property Datum_für_Lieferungen_und_Leistungen_bisColumn() As Global.System.Data.DataColumn Get Return Me.columnDatum_für_Lieferungen_und_Leistungen_bis End Get End Property _ Public ReadOnly Property Rechnungsempfänger_KundennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsempfänger_Kundennummer End Get End Property _ Public ReadOnly Property AbrechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbrechnungsdatum End Get End Property _ Public ReadOnly Property KundennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnKundennummer End Get End Property _ Public ReadOnly Property KartennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnKartennummer End Get End Property _ Public ReadOnly Property BelegdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdatum End Get End Property _ Public ReadOnly Property AkzeptanzstellennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnAkzeptanzstellennummer End Get End Property _ Public ReadOnly Property Standort_der_AkzeptanzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnStandort_der_Akzeptanzstelle End Get End Property _ Public ReadOnly Property LieferlandColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferland End Get End Property _ Public ReadOnly Property Belegnummer_des_LieferantenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegnummer_des_Lieferanten End Get End Property _ Public ReadOnly Property KilometerstandColumn() As Global.System.Data.DataColumn Get Return Me.columnKilometerstand End Get End Property _ Public ReadOnly Property FakturierwarenartColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturierwarenart End Get End Property _ Public ReadOnly Property Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen End Get End Property _ Public ReadOnly Property MengeColumn() As Global.System.Data.DataColumn Get Return Me.columnMenge End Get End Property _ Public ReadOnly Property SB_BTColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_BT End Get End Property _ Public ReadOnly Property UmsatzsteuerprozentsatzColumn() As Global.System.Data.DataColumn Get Return Me.columnUmsatzsteuerprozentsatz End Get End Property _ Public ReadOnly Property Lieferlandwährung_ISOColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferlandwährung_ISO End Get End Property _ Public ReadOnly Property Einzelpreis_Brutto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Brutto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Einzelpreis_Netto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Netto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Betrag_Service_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Service_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Betrag_Nachlass_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Nachlass_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Netto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Netto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Brutto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Darstellwährung_ISOColumn() As Global.System.Data.DataColumn Get Return Me.columnDarstellwährung_ISO End Get End Property _ Public ReadOnly Property Betrag_Service_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Service_in_Darstellwährung End Get End Property _ Public ReadOnly Property Betrag_Nachlass_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Nachlass_in_Darstellwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Netto_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Netto_in_Darstellwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Brutto_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Brutto_in_Darstellwährung End Get End Property _ Public ReadOnly Property Prägetext_i_d_R_KFZ_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnPrägetext_i_d_R_KFZ_Kennzeichen End Get End Property _ Public ReadOnly Property Kunden_Kostenstelle_1Column() As Global.System.Data.DataColumn Get Return Me.columnKunden_Kostenstelle_1 End Get End Property _ Public ReadOnly Property KartentypColumn() As Global.System.Data.DataColumn Get Return Me.columnKartentyp End Get End Property _ Public ReadOnly Property Filler_Feld_35Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_35 End Get End Property _ Public ReadOnly Property Filler_Feld_36Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_36 End Get End Property _ Public ReadOnly Property KZ_AutobahnColumn() As Global.System.Data.DataColumn Get Return Me.columnKZ_Autobahn End Get End Property _ Public ReadOnly Property INFO_FeldColumn() As Global.System.Data.DataColumn Get Return Me.columnINFO_Feld End Get End Property _ Public ReadOnly Property KFZ_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnKFZ_Kennzeichen End Get End Property _ Public ReadOnly Property Filler_Feld_40Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_40 End Get End Property _ Public ReadOnly Property BuchungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsart End Get End Property _ Public ReadOnly Property BuchungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsgrund End Get End Property _ Public ReadOnly Property Filler_Feld_43Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_43 End Get End Property _ Public ReadOnly Property InformationsbelegColumn() As Global.System.Data.DataColumn Get Return Me.columnInformationsbeleg End Get End Property _ Public ReadOnly Property BelegherkunftColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegherkunft End Get End Property _ Public ReadOnly Property Filler_Feld_46Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_46 End Get End Property _ Public ReadOnly Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen End Get End Property _ Public ReadOnly Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen End Get End Property _ Public ReadOnly Property RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property Umsatzsteuerprozentsatz_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnUmsatzsteuerprozentsatz_informativ End Get End Property _ Public ReadOnly Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ End Get End Property _ Public ReadOnly Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ End Get End Property _ Public ReadOnly Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ End Get End Property _ Public ReadOnly Property FälligkeitsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnFälligkeitsdatum End Get End Property _ Public ReadOnly Property Zahlungsziel_in_TagenColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsziel_in_Tagen End Get End Property _ Public ReadOnly Property ZahlungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsart End Get End Property _ Public ReadOnly Property TC_Rechnungsnummer_gegenüber_dem_NutzerColumn() As Global.System.Data.DataColumn Get Return Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer End Get End Property _ Public ReadOnly Property TC_RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnTC_Rechnungsdatum End Get End Property _ Public ReadOnly Property ZahlungszielgruppeColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungszielgruppe End Get End Property _ Public ReadOnly Property Kunden_Kostenstelle_2Column() As Global.System.Data.DataColumn Get Return Me.columnKunden_Kostenstelle_2 End Get End Property _ Public ReadOnly Property LieferzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferzeit End Get End Property _ Public ReadOnly Property FremdkartennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnFremdkartennummer End Get End Property _ Public ReadOnly Property OnBoardUnitIDColumn() As Global.System.Data.DataColumn Get Return Me.columnOnBoardUnitID End Get End Property _ Public ReadOnly Property KFZ_Kennzeichen_komprimiertColumn() As Global.System.Data.DataColumn Get Return Me.columnKFZ_Kennzeichen_komprimiert End Get End Property _ Public ReadOnly Property KartenkategorieColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenkategorie End Get End Property _ Public ReadOnly Property Rechnungsnummer_pro_LieferlandColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer_pro_Lieferland End Get End Property _ Public ReadOnly Property AutobahnauffahrtColumn() As Global.System.Data.DataColumn Get Return Me.columnAutobahnauffahrt End Get End Property _ Public ReadOnly Property AutobahnausfahrtColumn() As Global.System.Data.DataColumn Get Return Me.columnAutobahnausfahrt End Get End Property _ Public ReadOnly Property Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn() As Global.System.Data.DataColumn Get Return Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften End Get End Property _ Public ReadOnly Property Nummer_BelastungsanzeigeColumn() As Global.System.Data.DataColumn Get Return Me.columnNummer_Belastungsanzeige End Get End Property _ Public ReadOnly Property BetreuungsstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnBetreuungsstelle End Get End Property _ Public ReadOnly Property Filler_Feld_72Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_72 End Get End Property _ Public ReadOnly Property Akzeptanz_MediumColumn() As Global.System.Data.DataColumn Get Return Me.columnAkzeptanz_Medium End Get End Property _ Public ReadOnly Property SteuerkategorieColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerkategorie End Get End Property _ Public ReadOnly Property UTA_Beleg_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUTA_Beleg_ID End Get End Property _ Public ReadOnly Property UTA_Normalbeleg_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUTA_Normalbeleg_ID End Get End Property _ Public ReadOnly Property Gebühren_Bescheinigung_vonColumn() As Global.System.Data.DataColumn Get Return Me.columnGebühren_Bescheinigung_von End Get End Property _ Public ReadOnly Property Gebühren_Bescheinigung_bisColumn() As Global.System.Data.DataColumn Get Return Me.columnGebühren_Bescheinigung_bis End Get End Property _ Public ReadOnly Property Herausgeber_Nutzer_NummerColumn() As Global.System.Data.DataColumn Get Return Me.columnHerausgeber_Nutzer_Nummer End Get End Property _ Public ReadOnly Property MaßeinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnMaßeinheit End Get End Property _ Public ReadOnly Property Land_der_AkzeptanzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnLand_der_Akzeptanzstelle End Get End Property _ Public ReadOnly Property Postleitzahl_der_AkzeptanzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnPostleitzahl_der_Akzeptanzstelle End Get End Property _ Public ReadOnly Property Steuerliches_LieferlandColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerliches_Lieferland End Get End Property _ Public ReadOnly Property Steuerliche_ProduktgruppeColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerliche_Produktgruppe End Get End Property _ Public ReadOnly Property Leistungsort_verlagerbarColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsort_verlagerbar End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUTAArchivRow Get Return CType(Me.Rows(index),tblUTAArchivRow) End Get End Property _ Public Event tblUTAArchivRowChanging As tblUTAArchivRowChangeEventHandler _ Public Event tblUTAArchivRowChanged As tblUTAArchivRowChangeEventHandler _ Public Event tblUTAArchivRowDeleting As tblUTAArchivRowChangeEventHandler _ Public Event tblUTAArchivRowDeleted As tblUTAArchivRowChangeEventHandler _ Public Overloads Sub AddtblUTAArchivRow(ByVal row As tblUTAArchivRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUTAArchivRow( _ ByVal ErstellDatumUhrzeit As Date, _ ByVal Übertragungsnummer As Integer, _ ByVal Übertragungsposition As Integer, _ ByVal Abrechnungsnummer As Double, _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Date, _ ByVal Rechnungsempfänger_Kundennummer As Integer, _ ByVal Abrechnungsdatum As Date, _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Date, _ ByVal Akzeptanzstellennummer As Double, _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Double, _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Double, _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Double, _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Decimal, _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Decimal, _ ByVal Betrag_Service_in_Lieferlandwährung As Decimal, _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Decimal, _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Decimal, _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Decimal, _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Decimal, _ ByVal Betrag_Nachlass_in_Darstellwährung As Decimal, _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Decimal, _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Decimal, _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Decimal, _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Decimal, _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Decimal, _ ByVal Rechnungsdatum As Date, _ ByVal Umsatzsteuerprozentsatz_informativ As Double, _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Decimal, _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Decimal, _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Decimal, _ ByVal Fälligkeitsdatum As Date, _ ByVal Zahlungsziel_in_Tagen As Short, _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Date, _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Double, _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Short, _ ByVal Nummer_Belastungsanzeige As Double, _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Double, _ ByVal UTA_Normalbeleg_ID As Double, _ ByVal Gebühren_Bescheinigung_von As Date, _ ByVal Gebühren_Bescheinigung_bis As Date, _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal UStVAn_ID As Integer, _ ByVal upsize_ts() As Byte) As tblUTAArchivRow Dim rowtblUTAArchivRow As tblUTAArchivRow = CType(Me.NewRow,tblUTAArchivRow) Dim columnValuesArray() As Object = New Object() {ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsposition, Abrechnungsnummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kundennummer, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzstellennummer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilometerstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen, Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brutto_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_in_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_ISO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesamtbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Feld, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnummer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenstelle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimiert, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnausfahrt, Rabattschlüssel_der_französischen_Autobahngesellschaften, Nummer_Belastungsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie, UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Bescheinigung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Postleitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produktgruppe, Leistungsort_verlagerbar, UStVAn_ID, upsize_ts} rowtblUTAArchivRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUTAArchivRow) Return rowtblUTAArchivRow End Function _ Public Function FindByErstellDatumUhrzeitÜbertragungsnummerÜbertragungsposition(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Übertragungsposition As Integer) As tblUTAArchivRow Return CType(Me.Rows.Find(New Object() {ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsposition}),tblUTAArchivRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUTAArchivDataTable = CType(MyBase.Clone,tblUTAArchivDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUTAArchivDataTable() End Function _ Friend Sub InitVars() Me.columnErstellDatumUhrzeit = MyBase.Columns("ErstellDatumUhrzeit") Me.columnÜbertragungsnummer = MyBase.Columns("Übertragungsnummer") Me.columnÜbertragungsposition = MyBase.Columns("Übertragungsposition") Me.columnAbrechnungsnummer = MyBase.Columns("Abrechnungsnummer") Me.columnDatum_für_Lieferungen_und_Leistungen_bis = MyBase.Columns("Datum_für_Lieferungen_und_Leistungen_bis") Me.columnRechnungsempfänger_Kundennummer = MyBase.Columns("Rechnungsempfänger_Kundennummer") Me.columnAbrechnungsdatum = MyBase.Columns("Abrechnungsdatum") Me.columnKundennummer = MyBase.Columns("Kundennummer") Me.columnKartennummer = MyBase.Columns("Kartennummer") Me.columnBelegdatum = MyBase.Columns("Belegdatum") Me.columnAkzeptanzstellennummer = MyBase.Columns("Akzeptanzstellennummer") Me.columnStandort_der_Akzeptanzstelle = MyBase.Columns("Standort_der_Akzeptanzstelle") Me.columnLieferland = MyBase.Columns("Lieferland") Me.columnBelegnummer_des_Lieferanten = MyBase.Columns("Belegnummer_des_Lieferanten") Me.columnKilometerstand = MyBase.Columns("Kilometerstand") Me.columnFakturierwarenart = MyBase.Columns("Fakturierwarenart") Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen = MyBase.Columns("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen") Me.columnMenge = MyBase.Columns("Menge") Me.columnSB_BT = MyBase.Columns("SB_BT") Me.columnUmsatzsteuerprozentsatz = MyBase.Columns("Umsatzsteuerprozentsatz") Me.columnLieferlandwährung_ISO = MyBase.Columns("Lieferlandwährung_ISO") Me.columnEinzelpreis_Brutto_in_Lieferlandwährung = MyBase.Columns("Einzelpreis_Brutto_in_Lieferlandwährung") Me.columnEinzelpreis_Netto_in_Lieferlandwährung = MyBase.Columns("Einzelpreis_Netto_in_Lieferlandwährung") Me.columnBetrag_Service_in_Lieferlandwährung = MyBase.Columns("Betrag_Service_in_Lieferlandwährung") Me.columnBetrag_Nachlass_in_Lieferlandwährung = MyBase.Columns("Betrag_Nachlass_in_Lieferlandwährung") Me.columnGesamtbetrag_Netto_in_Lieferlandwährung = MyBase.Columns("Gesamtbetrag_Netto_in_Lieferlandwährung") Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung = MyBase.Columns("Gesamtbetrag_Brutto_in_Lieferlandwährung") Me.columnDarstellwährung_ISO = MyBase.Columns("Darstellwährung_ISO") Me.columnBetrag_Service_in_Darstellwährung = MyBase.Columns("Betrag_Service_in_Darstellwährung") Me.columnBetrag_Nachlass_in_Darstellwährung = MyBase.Columns("Betrag_Nachlass_in_Darstellwährung") Me.columnGesamtbetrag_Netto_in_Darstellwährung = MyBase.Columns("Gesamtbetrag_Netto_in_Darstellwährung") Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung = MyBase.Columns("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung") Me.columnGesamtbetrag_Brutto_in_Darstellwährung = MyBase.Columns("Gesamtbetrag_Brutto_in_Darstellwährung") Me.columnPrägetext_i_d_R_KFZ_Kennzeichen = MyBase.Columns("Prägetext_i_d_R_KFZ_Kennzeichen") Me.columnKunden_Kostenstelle_1 = MyBase.Columns("Kunden_Kostenstelle_1") Me.columnKartentyp = MyBase.Columns("Kartentyp") Me.columnFiller_Feld_35 = MyBase.Columns("Filler_Feld_35") Me.columnFiller_Feld_36 = MyBase.Columns("Filler_Feld_36") Me.columnKZ_Autobahn = MyBase.Columns("KZ_Autobahn") Me.columnINFO_Feld = MyBase.Columns("INFO_Feld") Me.columnKFZ_Kennzeichen = MyBase.Columns("KFZ_Kennzeichen") Me.columnFiller_Feld_40 = MyBase.Columns("Filler_Feld_40") Me.columnBuchungsart = MyBase.Columns("Buchungsart") Me.columnBuchungsgrund = MyBase.Columns("Buchungsgrund") Me.columnFiller_Feld_43 = MyBase.Columns("Filler_Feld_43") Me.columnInformationsbeleg = MyBase.Columns("Informationsbeleg") Me.columnBelegherkunft = MyBase.Columns("Belegherkunft") Me.columnFiller_Feld_46 = MyBase.Columns("Filler_Feld_46") Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen = MyBase.Columns("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen") Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen = MyBase.Columns("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen") Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnUmsatzsteuerprozentsatz_informativ = MyBase.Columns("Umsatzsteuerprozentsatz_informativ") Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ = MyBase.Columns("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ") Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ = MyBase.Columns("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ") Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ = MyBase.Columns("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ") Me.columnFälligkeitsdatum = MyBase.Columns("Fälligkeitsdatum") Me.columnZahlungsziel_in_Tagen = MyBase.Columns("Zahlungsziel_in_Tagen") Me.columnZahlungsart = MyBase.Columns("Zahlungsart") Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer = MyBase.Columns("TC_Rechnungsnummer_gegenüber_dem_Nutzer") Me.columnTC_Rechnungsdatum = MyBase.Columns("TC_Rechnungsdatum") Me.columnZahlungszielgruppe = MyBase.Columns("Zahlungszielgruppe") Me.columnKunden_Kostenstelle_2 = MyBase.Columns("Kunden_Kostenstelle_2") Me.columnLieferzeit = MyBase.Columns("Lieferzeit") Me.columnFremdkartennummer = MyBase.Columns("Fremdkartennummer") Me.columnOnBoardUnitID = MyBase.Columns("OnBoardUnitID") Me.columnKFZ_Kennzeichen_komprimiert = MyBase.Columns("KFZ_Kennzeichen_komprimiert") Me.columnKartenkategorie = MyBase.Columns("Kartenkategorie") Me.columnRechnungsnummer_pro_Lieferland = MyBase.Columns("Rechnungsnummer_pro_Lieferland") Me.columnAutobahnauffahrt = MyBase.Columns("Autobahnauffahrt") Me.columnAutobahnausfahrt = MyBase.Columns("Autobahnausfahrt") Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften = MyBase.Columns("Rabattschlüssel_der_französischen_Autobahngesellschaften") Me.columnNummer_Belastungsanzeige = MyBase.Columns("Nummer_Belastungsanzeige") Me.columnBetreuungsstelle = MyBase.Columns("Betreuungsstelle") Me.columnFiller_Feld_72 = MyBase.Columns("Filler_Feld_72") Me.columnAkzeptanz_Medium = MyBase.Columns("Akzeptanz_Medium") Me.columnSteuerkategorie = MyBase.Columns("Steuerkategorie") Me.columnUTA_Beleg_ID = MyBase.Columns("UTA_Beleg_ID") Me.columnUTA_Normalbeleg_ID = MyBase.Columns("UTA_Normalbeleg_ID") Me.columnGebühren_Bescheinigung_von = MyBase.Columns("Gebühren_Bescheinigung_von") Me.columnGebühren_Bescheinigung_bis = MyBase.Columns("Gebühren_Bescheinigung_bis") Me.columnHerausgeber_Nutzer_Nummer = MyBase.Columns("Herausgeber_Nutzer_Nummer") Me.columnMaßeinheit = MyBase.Columns("Maßeinheit") Me.columnLand_der_Akzeptanzstelle = MyBase.Columns("Land_der_Akzeptanzstelle") Me.columnPostleitzahl_der_Akzeptanzstelle = MyBase.Columns("Postleitzahl_der_Akzeptanzstelle") Me.columnSteuerliches_Lieferland = MyBase.Columns("Steuerliches_Lieferland") Me.columnSteuerliche_Produktgruppe = MyBase.Columns("Steuerliche_Produktgruppe") Me.columnLeistungsort_verlagerbar = MyBase.Columns("Leistungsort_verlagerbar") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnErstellDatumUhrzeit = New Global.System.Data.DataColumn("ErstellDatumUhrzeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstellDatumUhrzeit) Me.columnÜbertragungsnummer = New Global.System.Data.DataColumn("Übertragungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbertragungsnummer) Me.columnÜbertragungsposition = New Global.System.Data.DataColumn("Übertragungsposition", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbertragungsposition) Me.columnAbrechnungsnummer = New Global.System.Data.DataColumn("Abrechnungsnummer", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbrechnungsnummer) Me.columnDatum_für_Lieferungen_und_Leistungen_bis = New Global.System.Data.DataColumn("Datum_für_Lieferungen_und_Leistungen_bis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatum_für_Lieferungen_und_Leistungen_bis) Me.columnRechnungsempfänger_Kundennummer = New Global.System.Data.DataColumn("Rechnungsempfänger_Kundennummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsempfänger_Kundennummer) Me.columnAbrechnungsdatum = New Global.System.Data.DataColumn("Abrechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbrechnungsdatum) Me.columnKundennummer = New Global.System.Data.DataColumn("Kundennummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundennummer) Me.columnKartennummer = New Global.System.Data.DataColumn("Kartennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartennummer) Me.columnBelegdatum = New Global.System.Data.DataColumn("Belegdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdatum) Me.columnAkzeptanzstellennummer = New Global.System.Data.DataColumn("Akzeptanzstellennummer", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAkzeptanzstellennummer) Me.columnStandort_der_Akzeptanzstelle = New Global.System.Data.DataColumn("Standort_der_Akzeptanzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStandort_der_Akzeptanzstelle) Me.columnLieferland = New Global.System.Data.DataColumn("Lieferland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferland) Me.columnBelegnummer_des_Lieferanten = New Global.System.Data.DataColumn("Belegnummer_des_Lieferanten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegnummer_des_Lieferanten) Me.columnKilometerstand = New Global.System.Data.DataColumn("Kilometerstand", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKilometerstand) Me.columnFakturierwarenart = New Global.System.Data.DataColumn("Fakturierwarenart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturierwarenart) Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen = New Global.System.Data.DataColumn("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen) Me.columnMenge = New Global.System.Data.DataColumn("Menge", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMenge) Me.columnSB_BT = New Global.System.Data.DataColumn("SB_BT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_BT) Me.columnUmsatzsteuerprozentsatz = New Global.System.Data.DataColumn("Umsatzsteuerprozentsatz", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmsatzsteuerprozentsatz) Me.columnLieferlandwährung_ISO = New Global.System.Data.DataColumn("Lieferlandwährung_ISO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferlandwährung_ISO) Me.columnEinzelpreis_Brutto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Einzelpreis_Brutto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Brutto_in_Lieferlandwährung) Me.columnEinzelpreis_Netto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Einzelpreis_Netto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Netto_in_Lieferlandwährung) Me.columnBetrag_Service_in_Lieferlandwährung = New Global.System.Data.DataColumn("Betrag_Service_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Service_in_Lieferlandwährung) Me.columnBetrag_Nachlass_in_Lieferlandwährung = New Global.System.Data.DataColumn("Betrag_Nachlass_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Nachlass_in_Lieferlandwährung) Me.columnGesamtbetrag_Netto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Netto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Netto_in_Lieferlandwährung) Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Brutto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung) Me.columnDarstellwährung_ISO = New Global.System.Data.DataColumn("Darstellwährung_ISO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDarstellwährung_ISO) Me.columnBetrag_Service_in_Darstellwährung = New Global.System.Data.DataColumn("Betrag_Service_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Service_in_Darstellwährung) Me.columnBetrag_Nachlass_in_Darstellwährung = New Global.System.Data.DataColumn("Betrag_Nachlass_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Nachlass_in_Darstellwährung) Me.columnGesamtbetrag_Netto_in_Darstellwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Netto_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Netto_in_Darstellwährung) Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung) Me.columnGesamtbetrag_Brutto_in_Darstellwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Brutto_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Brutto_in_Darstellwährung) Me.columnPrägetext_i_d_R_KFZ_Kennzeichen = New Global.System.Data.DataColumn("Prägetext_i_d_R_KFZ_Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrägetext_i_d_R_KFZ_Kennzeichen) Me.columnKunden_Kostenstelle_1 = New Global.System.Data.DataColumn("Kunden_Kostenstelle_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKunden_Kostenstelle_1) Me.columnKartentyp = New Global.System.Data.DataColumn("Kartentyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartentyp) Me.columnFiller_Feld_35 = New Global.System.Data.DataColumn("Filler_Feld_35", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_35) Me.columnFiller_Feld_36 = New Global.System.Data.DataColumn("Filler_Feld_36", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_36) Me.columnKZ_Autobahn = New Global.System.Data.DataColumn("KZ_Autobahn", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKZ_Autobahn) Me.columnINFO_Feld = New Global.System.Data.DataColumn("INFO_Feld", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINFO_Feld) Me.columnKFZ_Kennzeichen = New Global.System.Data.DataColumn("KFZ_Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKFZ_Kennzeichen) Me.columnFiller_Feld_40 = New Global.System.Data.DataColumn("Filler_Feld_40", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_40) Me.columnBuchungsart = New Global.System.Data.DataColumn("Buchungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsart) Me.columnBuchungsgrund = New Global.System.Data.DataColumn("Buchungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsgrund) Me.columnFiller_Feld_43 = New Global.System.Data.DataColumn("Filler_Feld_43", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_43) Me.columnInformationsbeleg = New Global.System.Data.DataColumn("Informationsbeleg", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInformationsbeleg) Me.columnBelegherkunft = New Global.System.Data.DataColumn("Belegherkunft", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegherkunft) Me.columnFiller_Feld_46 = New Global.System.Data.DataColumn("Filler_Feld_46", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_46) Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen = New Global.System.Data.DataColumn("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen) Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen = New Global.System.Data.DataColumn("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen) Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnUmsatzsteuerprozentsatz_informativ = New Global.System.Data.DataColumn("Umsatzsteuerprozentsatz_informativ", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmsatzsteuerprozentsatz_informativ) Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ = New Global.System.Data.DataColumn("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ) Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ = New Global.System.Data.DataColumn("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ) Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ = New Global.System.Data.DataColumn("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ) Me.columnFälligkeitsdatum = New Global.System.Data.DataColumn("Fälligkeitsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFälligkeitsdatum) Me.columnZahlungsziel_in_Tagen = New Global.System.Data.DataColumn("Zahlungsziel_in_Tagen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsziel_in_Tagen) Me.columnZahlungsart = New Global.System.Data.DataColumn("Zahlungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsart) Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer = New Global.System.Data.DataColumn("TC_Rechnungsnummer_gegenüber_dem_Nutzer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer) Me.columnTC_Rechnungsdatum = New Global.System.Data.DataColumn("TC_Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTC_Rechnungsdatum) Me.columnZahlungszielgruppe = New Global.System.Data.DataColumn("Zahlungszielgruppe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungszielgruppe) Me.columnKunden_Kostenstelle_2 = New Global.System.Data.DataColumn("Kunden_Kostenstelle_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKunden_Kostenstelle_2) Me.columnLieferzeit = New Global.System.Data.DataColumn("Lieferzeit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferzeit) Me.columnFremdkartennummer = New Global.System.Data.DataColumn("Fremdkartennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFremdkartennummer) Me.columnOnBoardUnitID = New Global.System.Data.DataColumn("OnBoardUnitID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOnBoardUnitID) Me.columnKFZ_Kennzeichen_komprimiert = New Global.System.Data.DataColumn("KFZ_Kennzeichen_komprimiert", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKFZ_Kennzeichen_komprimiert) Me.columnKartenkategorie = New Global.System.Data.DataColumn("Kartenkategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenkategorie) Me.columnRechnungsnummer_pro_Lieferland = New Global.System.Data.DataColumn("Rechnungsnummer_pro_Lieferland", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer_pro_Lieferland) Me.columnAutobahnauffahrt = New Global.System.Data.DataColumn("Autobahnauffahrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAutobahnauffahrt) Me.columnAutobahnausfahrt = New Global.System.Data.DataColumn("Autobahnausfahrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAutobahnausfahrt) Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften = New Global.System.Data.DataColumn("Rabattschlüssel_der_französischen_Autobahngesellschaften", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften) Me.columnNummer_Belastungsanzeige = New Global.System.Data.DataColumn("Nummer_Belastungsanzeige", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNummer_Belastungsanzeige) Me.columnBetreuungsstelle = New Global.System.Data.DataColumn("Betreuungsstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetreuungsstelle) Me.columnFiller_Feld_72 = New Global.System.Data.DataColumn("Filler_Feld_72", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_72) Me.columnAkzeptanz_Medium = New Global.System.Data.DataColumn("Akzeptanz_Medium", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAkzeptanz_Medium) Me.columnSteuerkategorie = New Global.System.Data.DataColumn("Steuerkategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerkategorie) Me.columnUTA_Beleg_ID = New Global.System.Data.DataColumn("UTA_Beleg_ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUTA_Beleg_ID) Me.columnUTA_Normalbeleg_ID = New Global.System.Data.DataColumn("UTA_Normalbeleg_ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUTA_Normalbeleg_ID) Me.columnGebühren_Bescheinigung_von = New Global.System.Data.DataColumn("Gebühren_Bescheinigung_von", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGebühren_Bescheinigung_von) Me.columnGebühren_Bescheinigung_bis = New Global.System.Data.DataColumn("Gebühren_Bescheinigung_bis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGebühren_Bescheinigung_bis) Me.columnHerausgeber_Nutzer_Nummer = New Global.System.Data.DataColumn("Herausgeber_Nutzer_Nummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHerausgeber_Nutzer_Nummer) Me.columnMaßeinheit = New Global.System.Data.DataColumn("Maßeinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMaßeinheit) Me.columnLand_der_Akzeptanzstelle = New Global.System.Data.DataColumn("Land_der_Akzeptanzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLand_der_Akzeptanzstelle) Me.columnPostleitzahl_der_Akzeptanzstelle = New Global.System.Data.DataColumn("Postleitzahl_der_Akzeptanzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPostleitzahl_der_Akzeptanzstelle) Me.columnSteuerliches_Lieferland = New Global.System.Data.DataColumn("Steuerliches_Lieferland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerliches_Lieferland) Me.columnSteuerliche_Produktgruppe = New Global.System.Data.DataColumn("Steuerliche_Produktgruppe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerliche_Produktgruppe) Me.columnLeistungsort_verlagerbar = New Global.System.Data.DataColumn("Leistungsort_verlagerbar", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsort_verlagerbar) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnErstellDatumUhrzeit, Me.columnÜbertragungsnummer, Me.columnÜbertragungsposition}, true)) Me.columnErstellDatumUhrzeit.AllowDBNull = false Me.columnÜbertragungsnummer.AllowDBNull = false Me.columnÜbertragungsposition.AllowDBNull = false Me.columnKundennummer.AllowDBNull = false Me.columnKartennummer.MaxLength = 19 Me.columnStandort_der_Akzeptanzstelle.MaxLength = 25 Me.columnLieferland.MaxLength = 3 Me.columnBelegnummer_des_Lieferanten.MaxLength = 13 Me.columnFakturierwarenart.AllowDBNull = false Me.columnFakturierwarenart.MaxLength = 5 Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen.MaxLength = 1 Me.columnSB_BT.MaxLength = 1 Me.columnLieferlandwährung_ISO.MaxLength = 3 Me.columnDarstellwährung_ISO.MaxLength = 3 Me.columnPrägetext_i_d_R_KFZ_Kennzeichen.MaxLength = 16 Me.columnKunden_Kostenstelle_1.MaxLength = 20 Me.columnKartentyp.MaxLength = 8 Me.columnFiller_Feld_35.MaxLength = 1 Me.columnFiller_Feld_36.MaxLength = 3 Me.columnKZ_Autobahn.MaxLength = 1 Me.columnINFO_Feld.MaxLength = 18 Me.columnKFZ_Kennzeichen.MaxLength = 16 Me.columnFiller_Feld_40.MaxLength = 1 Me.columnBuchungsart.MaxLength = 1 Me.columnBuchungsgrund.MaxLength = 1 Me.columnFiller_Feld_43.MaxLength = 1 Me.columnInformationsbeleg.MaxLength = 1 Me.columnBelegherkunft.MaxLength = 1 Me.columnFiller_Feld_46.MaxLength = 14 Me.columnZahlungsart.MaxLength = 8 Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer.MaxLength = 20 Me.columnZahlungszielgruppe.MaxLength = 7 Me.columnKunden_Kostenstelle_2.MaxLength = 20 Me.columnLieferzeit.MaxLength = 6 Me.columnFremdkartennummer.MaxLength = 20 Me.columnOnBoardUnitID.MaxLength = 20 Me.columnKFZ_Kennzeichen_komprimiert.MaxLength = 16 Me.columnKartenkategorie.MaxLength = 8 Me.columnAutobahnauffahrt.MaxLength = 40 Me.columnAutobahnausfahrt.MaxLength = 40 Me.columnBetreuungsstelle.MaxLength = 20 Me.columnFiller_Feld_72.MaxLength = 20 Me.columnAkzeptanz_Medium.MaxLength = 20 Me.columnSteuerkategorie.MaxLength = 8 Me.columnHerausgeber_Nutzer_Nummer.MaxLength = 20 Me.columnMaßeinheit.MaxLength = 8 Me.columnLand_der_Akzeptanzstelle.MaxLength = 3 Me.columnPostleitzahl_der_Akzeptanzstelle.MaxLength = 7 Me.columnSteuerliches_Lieferland.MaxLength = 3 Me.columnSteuerliche_Produktgruppe.MaxLength = 5 Me.columnLeistungsort_verlagerbar.MaxLength = 1 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUTAArchivRow() As tblUTAArchivRow Return CType(Me.NewRow,tblUTAArchivRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUTAArchivRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUTAArchivRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUTAArchivRowChangedEvent) Is Nothing) Then RaiseEvent tblUTAArchivRowChanged(Me, New tblUTAArchivRowChangeEvent(CType(e.Row,tblUTAArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUTAArchivRowChangingEvent) Is Nothing) Then RaiseEvent tblUTAArchivRowChanging(Me, New tblUTAArchivRowChangeEvent(CType(e.Row,tblUTAArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUTAArchivRowDeletedEvent) Is Nothing) Then RaiseEvent tblUTAArchivRowDeleted(Me, New tblUTAArchivRowChangeEvent(CType(e.Row,tblUTAArchivRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUTAArchivRowDeletingEvent) Is Nothing) Then RaiseEvent tblUTAArchivRowDeleting(Me, New tblUTAArchivRowChangeEvent(CType(e.Row,tblUTAArchivRow), e.Action)) End If End Sub _ Public Sub RemovetblUTAArchivRow(ByVal row As tblUTAArchivRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUTAArchivDataTable" 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 tblUTAFakturierwarenartenDataTable Inherits Global.System.Data.TypedTableBase(Of tblUTAFakturierwarenartenRow) Private columnFakturierwarenart As Global.System.Data.DataColumn Private columnWarenart As Global.System.Data.DataColumn Private columnVERAG_OffertenNr As Global.System.Data.DataColumn Private columnVERAG_LeistungsNr As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUTAFakturierwarenarten" 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 FakturierwarenartColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturierwarenart End Get End Property _ Public ReadOnly Property WarenartColumn() As Global.System.Data.DataColumn Get Return Me.columnWarenart End Get End Property _ Public ReadOnly Property VERAG_OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_OffertenNr End Get End Property _ Public ReadOnly Property VERAG_LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_LeistungsNr End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUTAFakturierwarenartenRow Get Return CType(Me.Rows(index),tblUTAFakturierwarenartenRow) End Get End Property _ Public Event tblUTAFakturierwarenartenRowChanging As tblUTAFakturierwarenartenRowChangeEventHandler _ Public Event tblUTAFakturierwarenartenRowChanged As tblUTAFakturierwarenartenRowChangeEventHandler _ Public Event tblUTAFakturierwarenartenRowDeleting As tblUTAFakturierwarenartenRowChangeEventHandler _ Public Event tblUTAFakturierwarenartenRowDeleted As tblUTAFakturierwarenartenRowChangeEventHandler _ Public Overloads Sub AddtblUTAFakturierwarenartenRow(ByVal row As tblUTAFakturierwarenartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUTAFakturierwarenartenRow(ByVal Fakturierwarenart As String, ByVal Warenart As String, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short, ByVal upsize_ts() As Byte) As tblUTAFakturierwarenartenRow Dim rowtblUTAFakturierwarenartenRow As tblUTAFakturierwarenartenRow = CType(Me.NewRow,tblUTAFakturierwarenartenRow) Dim columnValuesArray() As Object = New Object() {Fakturierwarenart, Warenart, VERAG_OffertenNr, VERAG_LeistungsNr, upsize_ts} rowtblUTAFakturierwarenartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUTAFakturierwarenartenRow) Return rowtblUTAFakturierwarenartenRow End Function _ Public Function FindByFakturierwarenart(ByVal Fakturierwarenart As String) As tblUTAFakturierwarenartenRow Return CType(Me.Rows.Find(New Object() {Fakturierwarenart}),tblUTAFakturierwarenartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUTAFakturierwarenartenDataTable = CType(MyBase.Clone,tblUTAFakturierwarenartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUTAFakturierwarenartenDataTable() End Function _ Friend Sub InitVars() Me.columnFakturierwarenart = MyBase.Columns("Fakturierwarenart") Me.columnWarenart = MyBase.Columns("Warenart") Me.columnVERAG_OffertenNr = MyBase.Columns("VERAG_OffertenNr") Me.columnVERAG_LeistungsNr = MyBase.Columns("VERAG_LeistungsNr") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnFakturierwarenart = New Global.System.Data.DataColumn("Fakturierwarenart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturierwarenart) Me.columnWarenart = New Global.System.Data.DataColumn("Warenart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarenart) Me.columnVERAG_OffertenNr = New Global.System.Data.DataColumn("VERAG_OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_OffertenNr) Me.columnVERAG_LeistungsNr = New Global.System.Data.DataColumn("VERAG_LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_LeistungsNr) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFakturierwarenart}, true)) Me.columnFakturierwarenart.AllowDBNull = false Me.columnFakturierwarenart.Unique = true Me.columnFakturierwarenart.MaxLength = 5 Me.columnWarenart.AllowDBNull = false Me.columnWarenart.MaxLength = 50 Me.columnVERAG_OffertenNr.AllowDBNull = false Me.columnVERAG_LeistungsNr.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUTAFakturierwarenartenRow() As tblUTAFakturierwarenartenRow Return CType(Me.NewRow,tblUTAFakturierwarenartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUTAFakturierwarenartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUTAFakturierwarenartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUTAFakturierwarenartenRowChangedEvent) Is Nothing) Then RaiseEvent tblUTAFakturierwarenartenRowChanged(Me, New tblUTAFakturierwarenartenRowChangeEvent(CType(e.Row,tblUTAFakturierwarenartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUTAFakturierwarenartenRowChangingEvent) Is Nothing) Then RaiseEvent tblUTAFakturierwarenartenRowChanging(Me, New tblUTAFakturierwarenartenRowChangeEvent(CType(e.Row,tblUTAFakturierwarenartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUTAFakturierwarenartenRowDeletedEvent) Is Nothing) Then RaiseEvent tblUTAFakturierwarenartenRowDeleted(Me, New tblUTAFakturierwarenartenRowChangeEvent(CType(e.Row,tblUTAFakturierwarenartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUTAFakturierwarenartenRowDeletingEvent) Is Nothing) Then RaiseEvent tblUTAFakturierwarenartenRowDeleting(Me, New tblUTAFakturierwarenartenRowChangeEvent(CType(e.Row,tblUTAFakturierwarenartenRow), e.Action)) End If End Sub _ Public Sub RemovetblUTAFakturierwarenartenRow(ByVal row As tblUTAFakturierwarenartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUTAFakturierwarenartenDataTable" 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 tblUTAHeaderDataTable Inherits Global.System.Data.TypedTableBase(Of tblUTAHeaderRow) Private columnErstellDatumUhrzeit As Global.System.Data.DataColumn Private columnÜbertragungsnummer As Global.System.Data.DataColumn Private columnAbsender_ID As Global.System.Data.DataColumn Private columnEmpfänger_ID As Global.System.Data.DataColumn Private columnFiller_Feld_5 As Global.System.Data.DataColumn Private columnAbrechnungsnummer As Global.System.Data.DataColumn Private columnDTF_Format As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUTAHeader" 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 ErstellDatumUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnErstellDatumUhrzeit End Get End Property _ Public ReadOnly Property ÜbertragungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbertragungsnummer End Get End Property _ Public ReadOnly Property Absender_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsender_ID End Get End Property _ Public ReadOnly Property Empfänger_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfänger_ID End Get End Property _ Public ReadOnly Property Filler_Feld_5Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_5 End Get End Property _ Public ReadOnly Property AbrechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnAbrechnungsnummer End Get End Property _ Public ReadOnly Property DTF_FormatColumn() As Global.System.Data.DataColumn Get Return Me.columnDTF_Format End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUTAHeaderRow Get Return CType(Me.Rows(index),tblUTAHeaderRow) End Get End Property _ Public Event tblUTAHeaderRowChanging As tblUTAHeaderRowChangeEventHandler _ Public Event tblUTAHeaderRowChanged As tblUTAHeaderRowChangeEventHandler _ Public Event tblUTAHeaderRowDeleting As tblUTAHeaderRowChangeEventHandler _ Public Event tblUTAHeaderRowDeleted As tblUTAHeaderRowChangeEventHandler _ Public Overloads Sub AddtblUTAHeaderRow(ByVal row As tblUTAHeaderRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUTAHeaderRow(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Absender_ID As Double, ByVal Empfänger_ID As Double, ByVal Filler_Feld_5 As String, ByVal Abrechnungsnummer As Double, ByVal DTF_Format As String, ByVal upsize_ts() As Byte) As tblUTAHeaderRow Dim rowtblUTAHeaderRow As tblUTAHeaderRow = CType(Me.NewRow,tblUTAHeaderRow) Dim columnValuesArray() As Object = New Object() {ErstellDatumUhrzeit, Übertragungsnummer, Absender_ID, Empfänger_ID, Filler_Feld_5, Abrechnungsnummer, DTF_Format, upsize_ts} rowtblUTAHeaderRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUTAHeaderRow) Return rowtblUTAHeaderRow End Function _ Public Function FindByErstellDatumUhrzeitÜbertragungsnummer(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer) As tblUTAHeaderRow Return CType(Me.Rows.Find(New Object() {ErstellDatumUhrzeit, Übertragungsnummer}),tblUTAHeaderRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUTAHeaderDataTable = CType(MyBase.Clone,tblUTAHeaderDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUTAHeaderDataTable() End Function _ Friend Sub InitVars() Me.columnErstellDatumUhrzeit = MyBase.Columns("ErstellDatumUhrzeit") Me.columnÜbertragungsnummer = MyBase.Columns("Übertragungsnummer") Me.columnAbsender_ID = MyBase.Columns("Absender_ID") Me.columnEmpfänger_ID = MyBase.Columns("Empfänger_ID") Me.columnFiller_Feld_5 = MyBase.Columns("Filler_Feld_5") Me.columnAbrechnungsnummer = MyBase.Columns("Abrechnungsnummer") Me.columnDTF_Format = MyBase.Columns("DTF_Format") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnErstellDatumUhrzeit = New Global.System.Data.DataColumn("ErstellDatumUhrzeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstellDatumUhrzeit) Me.columnÜbertragungsnummer = New Global.System.Data.DataColumn("Übertragungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbertragungsnummer) Me.columnAbsender_ID = New Global.System.Data.DataColumn("Absender_ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsender_ID) Me.columnEmpfänger_ID = New Global.System.Data.DataColumn("Empfänger_ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfänger_ID) Me.columnFiller_Feld_5 = New Global.System.Data.DataColumn("Filler_Feld_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_5) Me.columnAbrechnungsnummer = New Global.System.Data.DataColumn("Abrechnungsnummer", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbrechnungsnummer) Me.columnDTF_Format = New Global.System.Data.DataColumn("DTF_Format", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDTF_Format) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnErstellDatumUhrzeit, Me.columnÜbertragungsnummer}, true)) Me.columnErstellDatumUhrzeit.AllowDBNull = false Me.columnÜbertragungsnummer.AllowDBNull = false Me.columnFiller_Feld_5.MaxLength = 1 Me.columnDTF_Format.MaxLength = 6 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUTAHeaderRow() As tblUTAHeaderRow Return CType(Me.NewRow,tblUTAHeaderRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUTAHeaderRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUTAHeaderRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUTAHeaderRowChangedEvent) Is Nothing) Then RaiseEvent tblUTAHeaderRowChanged(Me, New tblUTAHeaderRowChangeEvent(CType(e.Row,tblUTAHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUTAHeaderRowChangingEvent) Is Nothing) Then RaiseEvent tblUTAHeaderRowChanging(Me, New tblUTAHeaderRowChangeEvent(CType(e.Row,tblUTAHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUTAHeaderRowDeletedEvent) Is Nothing) Then RaiseEvent tblUTAHeaderRowDeleted(Me, New tblUTAHeaderRowChangeEvent(CType(e.Row,tblUTAHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUTAHeaderRowDeletingEvent) Is Nothing) Then RaiseEvent tblUTAHeaderRowDeleting(Me, New tblUTAHeaderRowChangeEvent(CType(e.Row,tblUTAHeaderRow), e.Action)) End If End Sub _ Public Sub RemovetblUTAHeaderRow(ByVal row As tblUTAHeaderRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUTAHeaderDataTable" 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 tblUTAHeaderNewDataTable Inherits Global.System.Data.TypedTableBase(Of tblUTAHeaderNewRow) Private columnErstellDatumUhrzeit As Global.System.Data.DataColumn Private columnÜbertragungsnummer As Global.System.Data.DataColumn Private columnAbsender_ID As Global.System.Data.DataColumn Private columnEmpfänger_ID As Global.System.Data.DataColumn Private columnFiller_Feld_5 As Global.System.Data.DataColumn Private columnAbrechnungsnummer As Global.System.Data.DataColumn Private columnDTF_Format As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUTAHeaderNew" 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 ErstellDatumUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnErstellDatumUhrzeit End Get End Property _ Public ReadOnly Property ÜbertragungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbertragungsnummer End Get End Property _ Public ReadOnly Property Absender_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsender_ID End Get End Property _ Public ReadOnly Property Empfänger_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfänger_ID End Get End Property _ Public ReadOnly Property Filler_Feld_5Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_5 End Get End Property _ Public ReadOnly Property AbrechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnAbrechnungsnummer End Get End Property _ Public ReadOnly Property DTF_FormatColumn() As Global.System.Data.DataColumn Get Return Me.columnDTF_Format End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUTAHeaderNewRow Get Return CType(Me.Rows(index),tblUTAHeaderNewRow) End Get End Property _ Public Event tblUTAHeaderNewRowChanging As tblUTAHeaderNewRowChangeEventHandler _ Public Event tblUTAHeaderNewRowChanged As tblUTAHeaderNewRowChangeEventHandler _ Public Event tblUTAHeaderNewRowDeleting As tblUTAHeaderNewRowChangeEventHandler _ Public Event tblUTAHeaderNewRowDeleted As tblUTAHeaderNewRowChangeEventHandler _ Public Overloads Sub AddtblUTAHeaderNewRow(ByVal row As tblUTAHeaderNewRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUTAHeaderNewRow(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Absender_ID As Double, ByVal Empfänger_ID As Double, ByVal Filler_Feld_5 As String, ByVal Abrechnungsnummer As Double, ByVal DTF_Format As String, ByVal upsize_ts() As Byte) As tblUTAHeaderNewRow Dim rowtblUTAHeaderNewRow As tblUTAHeaderNewRow = CType(Me.NewRow,tblUTAHeaderNewRow) Dim columnValuesArray() As Object = New Object() {ErstellDatumUhrzeit, Übertragungsnummer, Absender_ID, Empfänger_ID, Filler_Feld_5, Abrechnungsnummer, DTF_Format, upsize_ts} rowtblUTAHeaderNewRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUTAHeaderNewRow) Return rowtblUTAHeaderNewRow End Function _ Public Function FindByErstellDatumUhrzeitÜbertragungsnummer(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer) As tblUTAHeaderNewRow Return CType(Me.Rows.Find(New Object() {ErstellDatumUhrzeit, Übertragungsnummer}),tblUTAHeaderNewRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUTAHeaderNewDataTable = CType(MyBase.Clone,tblUTAHeaderNewDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUTAHeaderNewDataTable() End Function _ Friend Sub InitVars() Me.columnErstellDatumUhrzeit = MyBase.Columns("ErstellDatumUhrzeit") Me.columnÜbertragungsnummer = MyBase.Columns("Übertragungsnummer") Me.columnAbsender_ID = MyBase.Columns("Absender_ID") Me.columnEmpfänger_ID = MyBase.Columns("Empfänger_ID") Me.columnFiller_Feld_5 = MyBase.Columns("Filler_Feld_5") Me.columnAbrechnungsnummer = MyBase.Columns("Abrechnungsnummer") Me.columnDTF_Format = MyBase.Columns("DTF_Format") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnErstellDatumUhrzeit = New Global.System.Data.DataColumn("ErstellDatumUhrzeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstellDatumUhrzeit) Me.columnÜbertragungsnummer = New Global.System.Data.DataColumn("Übertragungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbertragungsnummer) Me.columnAbsender_ID = New Global.System.Data.DataColumn("Absender_ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsender_ID) Me.columnEmpfänger_ID = New Global.System.Data.DataColumn("Empfänger_ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfänger_ID) Me.columnFiller_Feld_5 = New Global.System.Data.DataColumn("Filler_Feld_5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_5) Me.columnAbrechnungsnummer = New Global.System.Data.DataColumn("Abrechnungsnummer", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbrechnungsnummer) Me.columnDTF_Format = New Global.System.Data.DataColumn("DTF_Format", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDTF_Format) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnErstellDatumUhrzeit, Me.columnÜbertragungsnummer}, true)) Me.columnErstellDatumUhrzeit.AllowDBNull = false Me.columnÜbertragungsnummer.AllowDBNull = false Me.columnFiller_Feld_5.MaxLength = 1 Me.columnDTF_Format.MaxLength = 6 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUTAHeaderNewRow() As tblUTAHeaderNewRow Return CType(Me.NewRow,tblUTAHeaderNewRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUTAHeaderNewRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUTAHeaderNewRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUTAHeaderNewRowChangedEvent) Is Nothing) Then RaiseEvent tblUTAHeaderNewRowChanged(Me, New tblUTAHeaderNewRowChangeEvent(CType(e.Row,tblUTAHeaderNewRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUTAHeaderNewRowChangingEvent) Is Nothing) Then RaiseEvent tblUTAHeaderNewRowChanging(Me, New tblUTAHeaderNewRowChangeEvent(CType(e.Row,tblUTAHeaderNewRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUTAHeaderNewRowDeletedEvent) Is Nothing) Then RaiseEvent tblUTAHeaderNewRowDeleted(Me, New tblUTAHeaderNewRowChangeEvent(CType(e.Row,tblUTAHeaderNewRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUTAHeaderNewRowDeletingEvent) Is Nothing) Then RaiseEvent tblUTAHeaderNewRowDeleting(Me, New tblUTAHeaderNewRowChangeEvent(CType(e.Row,tblUTAHeaderNewRow), e.Action)) End If End Sub _ Public Sub RemovetblUTAHeaderNewRow(ByVal row As tblUTAHeaderNewRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUTAHeaderNewDataTable" 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 tblUTAImportDataTable Inherits Global.System.Data.TypedTableBase(Of tblUTAImportRow) Private columnErstellDatumUhrzeit As Global.System.Data.DataColumn Private columnÜbertragungsnummer As Global.System.Data.DataColumn Private columnÜbertragungsposition As Global.System.Data.DataColumn Private columnAbrechnungsnummer As Global.System.Data.DataColumn Private columnDatum_für_Lieferungen_und_Leistungen_bis As Global.System.Data.DataColumn Private columnRechnungsempfänger_Kundennummer As Global.System.Data.DataColumn Private columnAbrechnungsdatum As Global.System.Data.DataColumn Private columnKundennummer As Global.System.Data.DataColumn Private columnKartennummer As Global.System.Data.DataColumn Private columnBelegdatum As Global.System.Data.DataColumn Private columnAkzeptanzstellennummer As Global.System.Data.DataColumn Private columnStandort_der_Akzeptanzstelle As Global.System.Data.DataColumn Private columnLieferland As Global.System.Data.DataColumn Private columnBelegnummer_des_Lieferanten As Global.System.Data.DataColumn Private columnKilometerstand As Global.System.Data.DataColumn Private columnFakturierwarenart As Global.System.Data.DataColumn Private columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Global.System.Data.DataColumn Private columnMenge As Global.System.Data.DataColumn Private columnSB_BT As Global.System.Data.DataColumn Private columnUmsatzsteuerprozentsatz As Global.System.Data.DataColumn Private columnLieferlandwährung_ISO As Global.System.Data.DataColumn Private columnEinzelpreis_Brutto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnEinzelpreis_Netto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnBetrag_Service_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnBetrag_Nachlass_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnDarstellwährung_ISO As Global.System.Data.DataColumn Private columnBetrag_Service_in_Darstellwährung As Global.System.Data.DataColumn Private columnBetrag_Nachlass_in_Darstellwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Netto_in_Darstellwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Brutto_in_Darstellwährung As Global.System.Data.DataColumn Private columnPrägetext_i_d_R_KFZ_Kennzeichen As Global.System.Data.DataColumn Private columnKunden_Kostenstelle_1 As Global.System.Data.DataColumn Private columnKartentyp As Global.System.Data.DataColumn Private columnFiller_Feld_35 As Global.System.Data.DataColumn Private columnFiller_Feld_36 As Global.System.Data.DataColumn Private columnKZ_Autobahn As Global.System.Data.DataColumn Private columnINFO_Feld As Global.System.Data.DataColumn Private columnKFZ_Kennzeichen As Global.System.Data.DataColumn Private columnFiller_Feld_40 As Global.System.Data.DataColumn Private columnBuchungsart As Global.System.Data.DataColumn Private columnBuchungsgrund As Global.System.Data.DataColumn Private columnFiller_Feld_43 As Global.System.Data.DataColumn Private columnInformationsbeleg As Global.System.Data.DataColumn Private columnBelegherkunft As Global.System.Data.DataColumn Private columnFiller_Feld_46 As Global.System.Data.DataColumn Private columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Data.DataColumn Private columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Data.DataColumn Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnUmsatzsteuerprozentsatz_informativ As Global.System.Data.DataColumn Private columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Data.DataColumn Private columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Data.DataColumn Private columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Data.DataColumn Private columnFälligkeitsdatum As Global.System.Data.DataColumn Private columnZahlungsziel_in_Tagen As Global.System.Data.DataColumn Private columnZahlungsart As Global.System.Data.DataColumn Private columnTC_Rechnungsnummer_gegenüber_dem_Nutzer As Global.System.Data.DataColumn Private columnTC_Rechnungsdatum As Global.System.Data.DataColumn Private columnZahlungszielgruppe As Global.System.Data.DataColumn Private columnKunden_Kostenstelle_2 As Global.System.Data.DataColumn Private columnLieferzeit As Global.System.Data.DataColumn Private columnFremdkartennummer As Global.System.Data.DataColumn Private columnOnBoardUnitID As Global.System.Data.DataColumn Private columnKFZ_Kennzeichen_komprimiert As Global.System.Data.DataColumn Private columnKartenkategorie As Global.System.Data.DataColumn Private columnRechnungsnummer_pro_Lieferland As Global.System.Data.DataColumn Private columnAutobahnauffahrt As Global.System.Data.DataColumn Private columnAutobahnausfahrt As Global.System.Data.DataColumn Private columnRabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Data.DataColumn Private columnNummer_Belastungsanzeige As Global.System.Data.DataColumn Private columnBetreuungsstelle As Global.System.Data.DataColumn Private columnFiller_Feld_72 As Global.System.Data.DataColumn Private columnAkzeptanz_Medium As Global.System.Data.DataColumn Private columnSteuerkategorie As Global.System.Data.DataColumn Private columnUTA_Beleg_ID As Global.System.Data.DataColumn Private columnUTA_Normalbeleg_ID As Global.System.Data.DataColumn Private columnGebühren_Bescheinigung_von As Global.System.Data.DataColumn Private columnGebühren_Bescheinigung_bis As Global.System.Data.DataColumn Private columnHerausgeber_Nutzer_Nummer As Global.System.Data.DataColumn Private columnMaßeinheit As Global.System.Data.DataColumn Private columnLand_der_Akzeptanzstelle As Global.System.Data.DataColumn Private columnPostleitzahl_der_Akzeptanzstelle As Global.System.Data.DataColumn Private columnSteuerliches_Lieferland As Global.System.Data.DataColumn Private columnSteuerliche_Produktgruppe As Global.System.Data.DataColumn Private columnLeistungsort_verlagerbar As Global.System.Data.DataColumn Private columnarchiv As Global.System.Data.DataColumn Private columnarchiviertDatum As Global.System.Data.DataColumn Private columndaId As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUTAImport" 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 ErstellDatumUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnErstellDatumUhrzeit End Get End Property _ Public ReadOnly Property ÜbertragungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbertragungsnummer End Get End Property _ Public ReadOnly Property ÜbertragungspositionColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbertragungsposition End Get End Property _ Public ReadOnly Property AbrechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnAbrechnungsnummer End Get End Property _ Public ReadOnly Property Datum_für_Lieferungen_und_Leistungen_bisColumn() As Global.System.Data.DataColumn Get Return Me.columnDatum_für_Lieferungen_und_Leistungen_bis End Get End Property _ Public ReadOnly Property Rechnungsempfänger_KundennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsempfänger_Kundennummer End Get End Property _ Public ReadOnly Property AbrechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbrechnungsdatum End Get End Property _ Public ReadOnly Property KundennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnKundennummer End Get End Property _ Public ReadOnly Property KartennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnKartennummer End Get End Property _ Public ReadOnly Property BelegdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdatum End Get End Property _ Public ReadOnly Property AkzeptanzstellennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnAkzeptanzstellennummer End Get End Property _ Public ReadOnly Property Standort_der_AkzeptanzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnStandort_der_Akzeptanzstelle End Get End Property _ Public ReadOnly Property LieferlandColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferland End Get End Property _ Public ReadOnly Property Belegnummer_des_LieferantenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegnummer_des_Lieferanten End Get End Property _ Public ReadOnly Property KilometerstandColumn() As Global.System.Data.DataColumn Get Return Me.columnKilometerstand End Get End Property _ Public ReadOnly Property FakturierwarenartColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturierwarenart End Get End Property _ Public ReadOnly Property Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen End Get End Property _ Public ReadOnly Property MengeColumn() As Global.System.Data.DataColumn Get Return Me.columnMenge End Get End Property _ Public ReadOnly Property SB_BTColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_BT End Get End Property _ Public ReadOnly Property UmsatzsteuerprozentsatzColumn() As Global.System.Data.DataColumn Get Return Me.columnUmsatzsteuerprozentsatz End Get End Property _ Public ReadOnly Property Lieferlandwährung_ISOColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferlandwährung_ISO End Get End Property _ Public ReadOnly Property Einzelpreis_Brutto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Brutto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Einzelpreis_Netto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Netto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Betrag_Service_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Service_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Betrag_Nachlass_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Nachlass_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Netto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Netto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Brutto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Darstellwährung_ISOColumn() As Global.System.Data.DataColumn Get Return Me.columnDarstellwährung_ISO End Get End Property _ Public ReadOnly Property Betrag_Service_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Service_in_Darstellwährung End Get End Property _ Public ReadOnly Property Betrag_Nachlass_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Nachlass_in_Darstellwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Netto_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Netto_in_Darstellwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Brutto_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Brutto_in_Darstellwährung End Get End Property _ Public ReadOnly Property Prägetext_i_d_R_KFZ_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnPrägetext_i_d_R_KFZ_Kennzeichen End Get End Property _ Public ReadOnly Property Kunden_Kostenstelle_1Column() As Global.System.Data.DataColumn Get Return Me.columnKunden_Kostenstelle_1 End Get End Property _ Public ReadOnly Property KartentypColumn() As Global.System.Data.DataColumn Get Return Me.columnKartentyp End Get End Property _ Public ReadOnly Property Filler_Feld_35Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_35 End Get End Property _ Public ReadOnly Property Filler_Feld_36Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_36 End Get End Property _ Public ReadOnly Property KZ_AutobahnColumn() As Global.System.Data.DataColumn Get Return Me.columnKZ_Autobahn End Get End Property _ Public ReadOnly Property INFO_FeldColumn() As Global.System.Data.DataColumn Get Return Me.columnINFO_Feld End Get End Property _ Public ReadOnly Property KFZ_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnKFZ_Kennzeichen End Get End Property _ Public ReadOnly Property Filler_Feld_40Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_40 End Get End Property _ Public ReadOnly Property BuchungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsart End Get End Property _ Public ReadOnly Property BuchungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsgrund End Get End Property _ Public ReadOnly Property Filler_Feld_43Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_43 End Get End Property _ Public ReadOnly Property InformationsbelegColumn() As Global.System.Data.DataColumn Get Return Me.columnInformationsbeleg End Get End Property _ Public ReadOnly Property BelegherkunftColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegherkunft End Get End Property _ Public ReadOnly Property Filler_Feld_46Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_46 End Get End Property _ Public ReadOnly Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen End Get End Property _ Public ReadOnly Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen End Get End Property _ Public ReadOnly Property RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property Umsatzsteuerprozentsatz_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnUmsatzsteuerprozentsatz_informativ End Get End Property _ Public ReadOnly Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ End Get End Property _ Public ReadOnly Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ End Get End Property _ Public ReadOnly Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ End Get End Property _ Public ReadOnly Property FälligkeitsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnFälligkeitsdatum End Get End Property _ Public ReadOnly Property Zahlungsziel_in_TagenColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsziel_in_Tagen End Get End Property _ Public ReadOnly Property ZahlungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsart End Get End Property _ Public ReadOnly Property TC_Rechnungsnummer_gegenüber_dem_NutzerColumn() As Global.System.Data.DataColumn Get Return Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer End Get End Property _ Public ReadOnly Property TC_RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnTC_Rechnungsdatum End Get End Property _ Public ReadOnly Property ZahlungszielgruppeColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungszielgruppe End Get End Property _ Public ReadOnly Property Kunden_Kostenstelle_2Column() As Global.System.Data.DataColumn Get Return Me.columnKunden_Kostenstelle_2 End Get End Property _ Public ReadOnly Property LieferzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferzeit End Get End Property _ Public ReadOnly Property FremdkartennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnFremdkartennummer End Get End Property _ Public ReadOnly Property OnBoardUnitIDColumn() As Global.System.Data.DataColumn Get Return Me.columnOnBoardUnitID End Get End Property _ Public ReadOnly Property KFZ_Kennzeichen_komprimiertColumn() As Global.System.Data.DataColumn Get Return Me.columnKFZ_Kennzeichen_komprimiert End Get End Property _ Public ReadOnly Property KartenkategorieColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenkategorie End Get End Property _ Public ReadOnly Property Rechnungsnummer_pro_LieferlandColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer_pro_Lieferland End Get End Property _ Public ReadOnly Property AutobahnauffahrtColumn() As Global.System.Data.DataColumn Get Return Me.columnAutobahnauffahrt End Get End Property _ Public ReadOnly Property AutobahnausfahrtColumn() As Global.System.Data.DataColumn Get Return Me.columnAutobahnausfahrt End Get End Property _ Public ReadOnly Property Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn() As Global.System.Data.DataColumn Get Return Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften End Get End Property _ Public ReadOnly Property Nummer_BelastungsanzeigeColumn() As Global.System.Data.DataColumn Get Return Me.columnNummer_Belastungsanzeige End Get End Property _ Public ReadOnly Property BetreuungsstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnBetreuungsstelle End Get End Property _ Public ReadOnly Property Filler_Feld_72Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_72 End Get End Property _ Public ReadOnly Property Akzeptanz_MediumColumn() As Global.System.Data.DataColumn Get Return Me.columnAkzeptanz_Medium End Get End Property _ Public ReadOnly Property SteuerkategorieColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerkategorie End Get End Property _ Public ReadOnly Property UTA_Beleg_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUTA_Beleg_ID End Get End Property _ Public ReadOnly Property UTA_Normalbeleg_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUTA_Normalbeleg_ID End Get End Property _ Public ReadOnly Property Gebühren_Bescheinigung_vonColumn() As Global.System.Data.DataColumn Get Return Me.columnGebühren_Bescheinigung_von End Get End Property _ Public ReadOnly Property Gebühren_Bescheinigung_bisColumn() As Global.System.Data.DataColumn Get Return Me.columnGebühren_Bescheinigung_bis End Get End Property _ Public ReadOnly Property Herausgeber_Nutzer_NummerColumn() As Global.System.Data.DataColumn Get Return Me.columnHerausgeber_Nutzer_Nummer End Get End Property _ Public ReadOnly Property MaßeinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnMaßeinheit End Get End Property _ Public ReadOnly Property Land_der_AkzeptanzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnLand_der_Akzeptanzstelle End Get End Property _ Public ReadOnly Property Postleitzahl_der_AkzeptanzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnPostleitzahl_der_Akzeptanzstelle End Get End Property _ Public ReadOnly Property Steuerliches_LieferlandColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerliches_Lieferland End Get End Property _ Public ReadOnly Property Steuerliche_ProduktgruppeColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerliche_Produktgruppe End Get End Property _ Public ReadOnly Property Leistungsort_verlagerbarColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsort_verlagerbar End Get End Property _ Public ReadOnly Property archivColumn() As Global.System.Data.DataColumn Get Return Me.columnarchiv End Get End Property _ Public ReadOnly Property archiviertDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnarchiviertDatum End Get End Property _ Public ReadOnly Property daIdColumn() As Global.System.Data.DataColumn Get Return Me.columndaId End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUTAImportRow Get Return CType(Me.Rows(index),tblUTAImportRow) End Get End Property _ Public Event tblUTAImportRowChanging As tblUTAImportRowChangeEventHandler _ Public Event tblUTAImportRowChanged As tblUTAImportRowChangeEventHandler _ Public Event tblUTAImportRowDeleting As tblUTAImportRowChangeEventHandler _ Public Event tblUTAImportRowDeleted As tblUTAImportRowChangeEventHandler _ Public Overloads Sub AddtblUTAImportRow(ByVal row As tblUTAImportRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUTAImportRow( _ ByVal ErstellDatumUhrzeit As Date, _ ByVal Übertragungsnummer As Integer, _ ByVal Übertragungsposition As Integer, _ ByVal Abrechnungsnummer As Double, _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Date, _ ByVal Rechnungsempfänger_Kundennummer As Integer, _ ByVal Abrechnungsdatum As Date, _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Date, _ ByVal Akzeptanzstellennummer As Double, _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Double, _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Double, _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Double, _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Decimal, _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Decimal, _ ByVal Betrag_Service_in_Lieferlandwährung As Decimal, _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Decimal, _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Decimal, _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Decimal, _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Decimal, _ ByVal Betrag_Nachlass_in_Darstellwährung As Decimal, _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Decimal, _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Decimal, _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Decimal, _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Decimal, _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Decimal, _ ByVal Rechnungsdatum As Date, _ ByVal Umsatzsteuerprozentsatz_informativ As Double, _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Decimal, _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Decimal, _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Decimal, _ ByVal Fälligkeitsdatum As Date, _ ByVal Zahlungsziel_in_Tagen As Short, _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Date, _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Double, _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Short, _ ByVal Nummer_Belastungsanzeige As Double, _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Double, _ ByVal UTA_Normalbeleg_ID As Double, _ ByVal Gebühren_Bescheinigung_von As Date, _ ByVal Gebühren_Bescheinigung_bis As Date, _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal archiv As Boolean, _ ByVal archiviertDatum As Date, _ ByVal daId As Integer, _ ByVal upsize_ts() As Byte) As tblUTAImportRow Dim rowtblUTAImportRow As tblUTAImportRow = CType(Me.NewRow,tblUTAImportRow) Dim columnValuesArray() As Object = New Object() {ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsposition, Abrechnungsnummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kundennummer, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzstellennummer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilometerstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen, Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brutto_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_in_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_ISO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesamtbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Feld, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnummer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenstelle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimiert, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnausfahrt, Rabattschlüssel_der_französischen_Autobahngesellschaften, Nummer_Belastungsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie, UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Bescheinigung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Postleitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produktgruppe, Leistungsort_verlagerbar, archiv, archiviertDatum, daId, upsize_ts} rowtblUTAImportRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUTAImportRow) Return rowtblUTAImportRow End Function _ Public Function FindByErstellDatumUhrzeitÜbertragungsnummerÜbertragungsposition(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Übertragungsposition As Integer) As tblUTAImportRow Return CType(Me.Rows.Find(New Object() {ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsposition}),tblUTAImportRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUTAImportDataTable = CType(MyBase.Clone,tblUTAImportDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUTAImportDataTable() End Function _ Friend Sub InitVars() Me.columnErstellDatumUhrzeit = MyBase.Columns("ErstellDatumUhrzeit") Me.columnÜbertragungsnummer = MyBase.Columns("Übertragungsnummer") Me.columnÜbertragungsposition = MyBase.Columns("Übertragungsposition") Me.columnAbrechnungsnummer = MyBase.Columns("Abrechnungsnummer") Me.columnDatum_für_Lieferungen_und_Leistungen_bis = MyBase.Columns("Datum_für_Lieferungen_und_Leistungen_bis") Me.columnRechnungsempfänger_Kundennummer = MyBase.Columns("Rechnungsempfänger_Kundennummer") Me.columnAbrechnungsdatum = MyBase.Columns("Abrechnungsdatum") Me.columnKundennummer = MyBase.Columns("Kundennummer") Me.columnKartennummer = MyBase.Columns("Kartennummer") Me.columnBelegdatum = MyBase.Columns("Belegdatum") Me.columnAkzeptanzstellennummer = MyBase.Columns("Akzeptanzstellennummer") Me.columnStandort_der_Akzeptanzstelle = MyBase.Columns("Standort_der_Akzeptanzstelle") Me.columnLieferland = MyBase.Columns("Lieferland") Me.columnBelegnummer_des_Lieferanten = MyBase.Columns("Belegnummer_des_Lieferanten") Me.columnKilometerstand = MyBase.Columns("Kilometerstand") Me.columnFakturierwarenart = MyBase.Columns("Fakturierwarenart") Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen = MyBase.Columns("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen") Me.columnMenge = MyBase.Columns("Menge") Me.columnSB_BT = MyBase.Columns("SB_BT") Me.columnUmsatzsteuerprozentsatz = MyBase.Columns("Umsatzsteuerprozentsatz") Me.columnLieferlandwährung_ISO = MyBase.Columns("Lieferlandwährung_ISO") Me.columnEinzelpreis_Brutto_in_Lieferlandwährung = MyBase.Columns("Einzelpreis_Brutto_in_Lieferlandwährung") Me.columnEinzelpreis_Netto_in_Lieferlandwährung = MyBase.Columns("Einzelpreis_Netto_in_Lieferlandwährung") Me.columnBetrag_Service_in_Lieferlandwährung = MyBase.Columns("Betrag_Service_in_Lieferlandwährung") Me.columnBetrag_Nachlass_in_Lieferlandwährung = MyBase.Columns("Betrag_Nachlass_in_Lieferlandwährung") Me.columnGesamtbetrag_Netto_in_Lieferlandwährung = MyBase.Columns("Gesamtbetrag_Netto_in_Lieferlandwährung") Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung = MyBase.Columns("Gesamtbetrag_Brutto_in_Lieferlandwährung") Me.columnDarstellwährung_ISO = MyBase.Columns("Darstellwährung_ISO") Me.columnBetrag_Service_in_Darstellwährung = MyBase.Columns("Betrag_Service_in_Darstellwährung") Me.columnBetrag_Nachlass_in_Darstellwährung = MyBase.Columns("Betrag_Nachlass_in_Darstellwährung") Me.columnGesamtbetrag_Netto_in_Darstellwährung = MyBase.Columns("Gesamtbetrag_Netto_in_Darstellwährung") Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung = MyBase.Columns("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung") Me.columnGesamtbetrag_Brutto_in_Darstellwährung = MyBase.Columns("Gesamtbetrag_Brutto_in_Darstellwährung") Me.columnPrägetext_i_d_R_KFZ_Kennzeichen = MyBase.Columns("Prägetext_i_d_R_KFZ_Kennzeichen") Me.columnKunden_Kostenstelle_1 = MyBase.Columns("Kunden_Kostenstelle_1") Me.columnKartentyp = MyBase.Columns("Kartentyp") Me.columnFiller_Feld_35 = MyBase.Columns("Filler_Feld_35") Me.columnFiller_Feld_36 = MyBase.Columns("Filler_Feld_36") Me.columnKZ_Autobahn = MyBase.Columns("KZ_Autobahn") Me.columnINFO_Feld = MyBase.Columns("INFO_Feld") Me.columnKFZ_Kennzeichen = MyBase.Columns("KFZ_Kennzeichen") Me.columnFiller_Feld_40 = MyBase.Columns("Filler_Feld_40") Me.columnBuchungsart = MyBase.Columns("Buchungsart") Me.columnBuchungsgrund = MyBase.Columns("Buchungsgrund") Me.columnFiller_Feld_43 = MyBase.Columns("Filler_Feld_43") Me.columnInformationsbeleg = MyBase.Columns("Informationsbeleg") Me.columnBelegherkunft = MyBase.Columns("Belegherkunft") Me.columnFiller_Feld_46 = MyBase.Columns("Filler_Feld_46") Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen = MyBase.Columns("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen") Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen = MyBase.Columns("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen") Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnUmsatzsteuerprozentsatz_informativ = MyBase.Columns("Umsatzsteuerprozentsatz_informativ") Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ = MyBase.Columns("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ") Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ = MyBase.Columns("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ") Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ = MyBase.Columns("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ") Me.columnFälligkeitsdatum = MyBase.Columns("Fälligkeitsdatum") Me.columnZahlungsziel_in_Tagen = MyBase.Columns("Zahlungsziel_in_Tagen") Me.columnZahlungsart = MyBase.Columns("Zahlungsart") Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer = MyBase.Columns("TC_Rechnungsnummer_gegenüber_dem_Nutzer") Me.columnTC_Rechnungsdatum = MyBase.Columns("TC_Rechnungsdatum") Me.columnZahlungszielgruppe = MyBase.Columns("Zahlungszielgruppe") Me.columnKunden_Kostenstelle_2 = MyBase.Columns("Kunden_Kostenstelle_2") Me.columnLieferzeit = MyBase.Columns("Lieferzeit") Me.columnFremdkartennummer = MyBase.Columns("Fremdkartennummer") Me.columnOnBoardUnitID = MyBase.Columns("OnBoardUnitID") Me.columnKFZ_Kennzeichen_komprimiert = MyBase.Columns("KFZ_Kennzeichen_komprimiert") Me.columnKartenkategorie = MyBase.Columns("Kartenkategorie") Me.columnRechnungsnummer_pro_Lieferland = MyBase.Columns("Rechnungsnummer_pro_Lieferland") Me.columnAutobahnauffahrt = MyBase.Columns("Autobahnauffahrt") Me.columnAutobahnausfahrt = MyBase.Columns("Autobahnausfahrt") Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften = MyBase.Columns("Rabattschlüssel_der_französischen_Autobahngesellschaften") Me.columnNummer_Belastungsanzeige = MyBase.Columns("Nummer_Belastungsanzeige") Me.columnBetreuungsstelle = MyBase.Columns("Betreuungsstelle") Me.columnFiller_Feld_72 = MyBase.Columns("Filler_Feld_72") Me.columnAkzeptanz_Medium = MyBase.Columns("Akzeptanz_Medium") Me.columnSteuerkategorie = MyBase.Columns("Steuerkategorie") Me.columnUTA_Beleg_ID = MyBase.Columns("UTA_Beleg_ID") Me.columnUTA_Normalbeleg_ID = MyBase.Columns("UTA_Normalbeleg_ID") Me.columnGebühren_Bescheinigung_von = MyBase.Columns("Gebühren_Bescheinigung_von") Me.columnGebühren_Bescheinigung_bis = MyBase.Columns("Gebühren_Bescheinigung_bis") Me.columnHerausgeber_Nutzer_Nummer = MyBase.Columns("Herausgeber_Nutzer_Nummer") Me.columnMaßeinheit = MyBase.Columns("Maßeinheit") Me.columnLand_der_Akzeptanzstelle = MyBase.Columns("Land_der_Akzeptanzstelle") Me.columnPostleitzahl_der_Akzeptanzstelle = MyBase.Columns("Postleitzahl_der_Akzeptanzstelle") Me.columnSteuerliches_Lieferland = MyBase.Columns("Steuerliches_Lieferland") Me.columnSteuerliche_Produktgruppe = MyBase.Columns("Steuerliche_Produktgruppe") Me.columnLeistungsort_verlagerbar = MyBase.Columns("Leistungsort_verlagerbar") Me.columnarchiv = MyBase.Columns("archiv") Me.columnarchiviertDatum = MyBase.Columns("archiviertDatum") Me.columndaId = MyBase.Columns("daId") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnErstellDatumUhrzeit = New Global.System.Data.DataColumn("ErstellDatumUhrzeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstellDatumUhrzeit) Me.columnÜbertragungsnummer = New Global.System.Data.DataColumn("Übertragungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbertragungsnummer) Me.columnÜbertragungsposition = New Global.System.Data.DataColumn("Übertragungsposition", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbertragungsposition) Me.columnAbrechnungsnummer = New Global.System.Data.DataColumn("Abrechnungsnummer", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbrechnungsnummer) Me.columnDatum_für_Lieferungen_und_Leistungen_bis = New Global.System.Data.DataColumn("Datum_für_Lieferungen_und_Leistungen_bis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatum_für_Lieferungen_und_Leistungen_bis) Me.columnRechnungsempfänger_Kundennummer = New Global.System.Data.DataColumn("Rechnungsempfänger_Kundennummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsempfänger_Kundennummer) Me.columnAbrechnungsdatum = New Global.System.Data.DataColumn("Abrechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbrechnungsdatum) Me.columnKundennummer = New Global.System.Data.DataColumn("Kundennummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundennummer) Me.columnKartennummer = New Global.System.Data.DataColumn("Kartennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartennummer) Me.columnBelegdatum = New Global.System.Data.DataColumn("Belegdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdatum) Me.columnAkzeptanzstellennummer = New Global.System.Data.DataColumn("Akzeptanzstellennummer", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAkzeptanzstellennummer) Me.columnStandort_der_Akzeptanzstelle = New Global.System.Data.DataColumn("Standort_der_Akzeptanzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStandort_der_Akzeptanzstelle) Me.columnLieferland = New Global.System.Data.DataColumn("Lieferland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferland) Me.columnBelegnummer_des_Lieferanten = New Global.System.Data.DataColumn("Belegnummer_des_Lieferanten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegnummer_des_Lieferanten) Me.columnKilometerstand = New Global.System.Data.DataColumn("Kilometerstand", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKilometerstand) Me.columnFakturierwarenart = New Global.System.Data.DataColumn("Fakturierwarenart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturierwarenart) Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen = New Global.System.Data.DataColumn("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen) Me.columnMenge = New Global.System.Data.DataColumn("Menge", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMenge) Me.columnSB_BT = New Global.System.Data.DataColumn("SB_BT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_BT) Me.columnUmsatzsteuerprozentsatz = New Global.System.Data.DataColumn("Umsatzsteuerprozentsatz", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmsatzsteuerprozentsatz) Me.columnLieferlandwährung_ISO = New Global.System.Data.DataColumn("Lieferlandwährung_ISO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferlandwährung_ISO) Me.columnEinzelpreis_Brutto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Einzelpreis_Brutto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Brutto_in_Lieferlandwährung) Me.columnEinzelpreis_Netto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Einzelpreis_Netto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Netto_in_Lieferlandwährung) Me.columnBetrag_Service_in_Lieferlandwährung = New Global.System.Data.DataColumn("Betrag_Service_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Service_in_Lieferlandwährung) Me.columnBetrag_Nachlass_in_Lieferlandwährung = New Global.System.Data.DataColumn("Betrag_Nachlass_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Nachlass_in_Lieferlandwährung) Me.columnGesamtbetrag_Netto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Netto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Netto_in_Lieferlandwährung) Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Brutto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung) Me.columnDarstellwährung_ISO = New Global.System.Data.DataColumn("Darstellwährung_ISO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDarstellwährung_ISO) Me.columnBetrag_Service_in_Darstellwährung = New Global.System.Data.DataColumn("Betrag_Service_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Service_in_Darstellwährung) Me.columnBetrag_Nachlass_in_Darstellwährung = New Global.System.Data.DataColumn("Betrag_Nachlass_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Nachlass_in_Darstellwährung) Me.columnGesamtbetrag_Netto_in_Darstellwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Netto_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Netto_in_Darstellwährung) Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung) Me.columnGesamtbetrag_Brutto_in_Darstellwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Brutto_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Brutto_in_Darstellwährung) Me.columnPrägetext_i_d_R_KFZ_Kennzeichen = New Global.System.Data.DataColumn("Prägetext_i_d_R_KFZ_Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrägetext_i_d_R_KFZ_Kennzeichen) Me.columnKunden_Kostenstelle_1 = New Global.System.Data.DataColumn("Kunden_Kostenstelle_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKunden_Kostenstelle_1) Me.columnKartentyp = New Global.System.Data.DataColumn("Kartentyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartentyp) Me.columnFiller_Feld_35 = New Global.System.Data.DataColumn("Filler_Feld_35", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_35) Me.columnFiller_Feld_36 = New Global.System.Data.DataColumn("Filler_Feld_36", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_36) Me.columnKZ_Autobahn = New Global.System.Data.DataColumn("KZ_Autobahn", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKZ_Autobahn) Me.columnINFO_Feld = New Global.System.Data.DataColumn("INFO_Feld", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINFO_Feld) Me.columnKFZ_Kennzeichen = New Global.System.Data.DataColumn("KFZ_Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKFZ_Kennzeichen) Me.columnFiller_Feld_40 = New Global.System.Data.DataColumn("Filler_Feld_40", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_40) Me.columnBuchungsart = New Global.System.Data.DataColumn("Buchungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsart) Me.columnBuchungsgrund = New Global.System.Data.DataColumn("Buchungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsgrund) Me.columnFiller_Feld_43 = New Global.System.Data.DataColumn("Filler_Feld_43", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_43) Me.columnInformationsbeleg = New Global.System.Data.DataColumn("Informationsbeleg", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInformationsbeleg) Me.columnBelegherkunft = New Global.System.Data.DataColumn("Belegherkunft", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegherkunft) Me.columnFiller_Feld_46 = New Global.System.Data.DataColumn("Filler_Feld_46", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_46) Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen = New Global.System.Data.DataColumn("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen) Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen = New Global.System.Data.DataColumn("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen) Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnUmsatzsteuerprozentsatz_informativ = New Global.System.Data.DataColumn("Umsatzsteuerprozentsatz_informativ", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmsatzsteuerprozentsatz_informativ) Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ = New Global.System.Data.DataColumn("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ) Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ = New Global.System.Data.DataColumn("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ) Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ = New Global.System.Data.DataColumn("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ) Me.columnFälligkeitsdatum = New Global.System.Data.DataColumn("Fälligkeitsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFälligkeitsdatum) Me.columnZahlungsziel_in_Tagen = New Global.System.Data.DataColumn("Zahlungsziel_in_Tagen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsziel_in_Tagen) Me.columnZahlungsart = New Global.System.Data.DataColumn("Zahlungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsart) Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer = New Global.System.Data.DataColumn("TC_Rechnungsnummer_gegenüber_dem_Nutzer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer) Me.columnTC_Rechnungsdatum = New Global.System.Data.DataColumn("TC_Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTC_Rechnungsdatum) Me.columnZahlungszielgruppe = New Global.System.Data.DataColumn("Zahlungszielgruppe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungszielgruppe) Me.columnKunden_Kostenstelle_2 = New Global.System.Data.DataColumn("Kunden_Kostenstelle_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKunden_Kostenstelle_2) Me.columnLieferzeit = New Global.System.Data.DataColumn("Lieferzeit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferzeit) Me.columnFremdkartennummer = New Global.System.Data.DataColumn("Fremdkartennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFremdkartennummer) Me.columnOnBoardUnitID = New Global.System.Data.DataColumn("OnBoardUnitID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOnBoardUnitID) Me.columnKFZ_Kennzeichen_komprimiert = New Global.System.Data.DataColumn("KFZ_Kennzeichen_komprimiert", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKFZ_Kennzeichen_komprimiert) Me.columnKartenkategorie = New Global.System.Data.DataColumn("Kartenkategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenkategorie) Me.columnRechnungsnummer_pro_Lieferland = New Global.System.Data.DataColumn("Rechnungsnummer_pro_Lieferland", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer_pro_Lieferland) Me.columnAutobahnauffahrt = New Global.System.Data.DataColumn("Autobahnauffahrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAutobahnauffahrt) Me.columnAutobahnausfahrt = New Global.System.Data.DataColumn("Autobahnausfahrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAutobahnausfahrt) Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften = New Global.System.Data.DataColumn("Rabattschlüssel_der_französischen_Autobahngesellschaften", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften) Me.columnNummer_Belastungsanzeige = New Global.System.Data.DataColumn("Nummer_Belastungsanzeige", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNummer_Belastungsanzeige) Me.columnBetreuungsstelle = New Global.System.Data.DataColumn("Betreuungsstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetreuungsstelle) Me.columnFiller_Feld_72 = New Global.System.Data.DataColumn("Filler_Feld_72", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_72) Me.columnAkzeptanz_Medium = New Global.System.Data.DataColumn("Akzeptanz_Medium", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAkzeptanz_Medium) Me.columnSteuerkategorie = New Global.System.Data.DataColumn("Steuerkategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerkategorie) Me.columnUTA_Beleg_ID = New Global.System.Data.DataColumn("UTA_Beleg_ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUTA_Beleg_ID) Me.columnUTA_Normalbeleg_ID = New Global.System.Data.DataColumn("UTA_Normalbeleg_ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUTA_Normalbeleg_ID) Me.columnGebühren_Bescheinigung_von = New Global.System.Data.DataColumn("Gebühren_Bescheinigung_von", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGebühren_Bescheinigung_von) Me.columnGebühren_Bescheinigung_bis = New Global.System.Data.DataColumn("Gebühren_Bescheinigung_bis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGebühren_Bescheinigung_bis) Me.columnHerausgeber_Nutzer_Nummer = New Global.System.Data.DataColumn("Herausgeber_Nutzer_Nummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHerausgeber_Nutzer_Nummer) Me.columnMaßeinheit = New Global.System.Data.DataColumn("Maßeinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMaßeinheit) Me.columnLand_der_Akzeptanzstelle = New Global.System.Data.DataColumn("Land_der_Akzeptanzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLand_der_Akzeptanzstelle) Me.columnPostleitzahl_der_Akzeptanzstelle = New Global.System.Data.DataColumn("Postleitzahl_der_Akzeptanzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPostleitzahl_der_Akzeptanzstelle) Me.columnSteuerliches_Lieferland = New Global.System.Data.DataColumn("Steuerliches_Lieferland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerliches_Lieferland) Me.columnSteuerliche_Produktgruppe = New Global.System.Data.DataColumn("Steuerliche_Produktgruppe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerliche_Produktgruppe) Me.columnLeistungsort_verlagerbar = New Global.System.Data.DataColumn("Leistungsort_verlagerbar", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsort_verlagerbar) Me.columnarchiv = New Global.System.Data.DataColumn("archiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnarchiv) Me.columnarchiviertDatum = New Global.System.Data.DataColumn("archiviertDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnarchiviertDatum) Me.columndaId = New Global.System.Data.DataColumn("daId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndaId) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnErstellDatumUhrzeit, Me.columnÜbertragungsnummer, Me.columnÜbertragungsposition}, true)) Me.columnErstellDatumUhrzeit.AllowDBNull = false Me.columnÜbertragungsnummer.AllowDBNull = false Me.columnÜbertragungsposition.AllowDBNull = false Me.columnKundennummer.AllowDBNull = false Me.columnKartennummer.MaxLength = 19 Me.columnStandort_der_Akzeptanzstelle.MaxLength = 25 Me.columnLieferland.MaxLength = 3 Me.columnBelegnummer_des_Lieferanten.MaxLength = 13 Me.columnFakturierwarenart.AllowDBNull = false Me.columnFakturierwarenart.MaxLength = 5 Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen.MaxLength = 1 Me.columnSB_BT.MaxLength = 1 Me.columnLieferlandwährung_ISO.MaxLength = 3 Me.columnDarstellwährung_ISO.MaxLength = 3 Me.columnPrägetext_i_d_R_KFZ_Kennzeichen.MaxLength = 16 Me.columnKunden_Kostenstelle_1.MaxLength = 20 Me.columnKartentyp.MaxLength = 8 Me.columnFiller_Feld_35.MaxLength = 1 Me.columnFiller_Feld_36.MaxLength = 3 Me.columnKZ_Autobahn.MaxLength = 1 Me.columnINFO_Feld.MaxLength = 18 Me.columnKFZ_Kennzeichen.MaxLength = 16 Me.columnFiller_Feld_40.MaxLength = 1 Me.columnBuchungsart.MaxLength = 1 Me.columnBuchungsgrund.MaxLength = 1 Me.columnFiller_Feld_43.MaxLength = 1 Me.columnInformationsbeleg.MaxLength = 1 Me.columnBelegherkunft.MaxLength = 1 Me.columnFiller_Feld_46.MaxLength = 14 Me.columnZahlungsart.MaxLength = 8 Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer.MaxLength = 20 Me.columnZahlungszielgruppe.MaxLength = 7 Me.columnKunden_Kostenstelle_2.MaxLength = 20 Me.columnLieferzeit.MaxLength = 6 Me.columnFremdkartennummer.MaxLength = 20 Me.columnOnBoardUnitID.MaxLength = 20 Me.columnKFZ_Kennzeichen_komprimiert.MaxLength = 16 Me.columnKartenkategorie.MaxLength = 8 Me.columnAutobahnauffahrt.MaxLength = 40 Me.columnAutobahnausfahrt.MaxLength = 40 Me.columnBetreuungsstelle.MaxLength = 20 Me.columnFiller_Feld_72.MaxLength = 20 Me.columnAkzeptanz_Medium.MaxLength = 20 Me.columnSteuerkategorie.MaxLength = 8 Me.columnHerausgeber_Nutzer_Nummer.MaxLength = 20 Me.columnMaßeinheit.MaxLength = 8 Me.columnLand_der_Akzeptanzstelle.MaxLength = 3 Me.columnPostleitzahl_der_Akzeptanzstelle.MaxLength = 7 Me.columnSteuerliches_Lieferland.MaxLength = 3 Me.columnSteuerliche_Produktgruppe.MaxLength = 5 Me.columnLeistungsort_verlagerbar.MaxLength = 1 Me.columnarchiv.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUTAImportRow() As tblUTAImportRow Return CType(Me.NewRow,tblUTAImportRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUTAImportRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUTAImportRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUTAImportRowChangedEvent) Is Nothing) Then RaiseEvent tblUTAImportRowChanged(Me, New tblUTAImportRowChangeEvent(CType(e.Row,tblUTAImportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUTAImportRowChangingEvent) Is Nothing) Then RaiseEvent tblUTAImportRowChanging(Me, New tblUTAImportRowChangeEvent(CType(e.Row,tblUTAImportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUTAImportRowDeletedEvent) Is Nothing) Then RaiseEvent tblUTAImportRowDeleted(Me, New tblUTAImportRowChangeEvent(CType(e.Row,tblUTAImportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUTAImportRowDeletingEvent) Is Nothing) Then RaiseEvent tblUTAImportRowDeleting(Me, New tblUTAImportRowChangeEvent(CType(e.Row,tblUTAImportRow), e.Action)) End If End Sub _ Public Sub RemovetblUTAImportRow(ByVal row As tblUTAImportRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUTAImportDataTable" 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 tblUTAImportNewDataTable Inherits Global.System.Data.TypedTableBase(Of tblUTAImportNewRow) Private columnErstellDatumUhrzeit As Global.System.Data.DataColumn Private columnÜbertragungsnummer As Global.System.Data.DataColumn Private columnÜbertragungsposition As Global.System.Data.DataColumn Private columnAbrechnungsnummer As Global.System.Data.DataColumn Private columnDatum_für_Lieferungen_und_Leistungen_bis As Global.System.Data.DataColumn Private columnRechnungsempfänger_Kundennummer As Global.System.Data.DataColumn Private columnAbrechnungsdatum As Global.System.Data.DataColumn Private columnKundennummer As Global.System.Data.DataColumn Private columnKartennummer As Global.System.Data.DataColumn Private columnBelegdatum As Global.System.Data.DataColumn Private columnAkzeptanzstellennummer As Global.System.Data.DataColumn Private columnStandort_der_Akzeptanzstelle As Global.System.Data.DataColumn Private columnLieferland As Global.System.Data.DataColumn Private columnBelegnummer_des_Lieferanten As Global.System.Data.DataColumn Private columnKilometerstand As Global.System.Data.DataColumn Private columnFakturierwarenart As Global.System.Data.DataColumn Private columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Global.System.Data.DataColumn Private columnMenge As Global.System.Data.DataColumn Private columnSB_BT As Global.System.Data.DataColumn Private columnUmsatzsteuerprozentsatz As Global.System.Data.DataColumn Private columnLieferlandwährung_ISO As Global.System.Data.DataColumn Private columnEinzelpreis_Brutto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnEinzelpreis_Netto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnBetrag_Service_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnBetrag_Nachlass_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Data.DataColumn Private columnDarstellwährung_ISO As Global.System.Data.DataColumn Private columnBetrag_Service_in_Darstellwährung As Global.System.Data.DataColumn Private columnBetrag_Nachlass_in_Darstellwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Netto_in_Darstellwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Data.DataColumn Private columnGesamtbetrag_Brutto_in_Darstellwährung As Global.System.Data.DataColumn Private columnPrägetext_i_d_R_KFZ_Kennzeichen As Global.System.Data.DataColumn Private columnKunden_Kostenstelle_1 As Global.System.Data.DataColumn Private columnKartentyp As Global.System.Data.DataColumn Private columnFiller_Feld_35 As Global.System.Data.DataColumn Private columnFiller_Feld_36 As Global.System.Data.DataColumn Private columnKZ_Autobahn As Global.System.Data.DataColumn Private columnINFO_Feld As Global.System.Data.DataColumn Private columnKFZ_Kennzeichen As Global.System.Data.DataColumn Private columnFiller_Feld_40 As Global.System.Data.DataColumn Private columnBuchungsart As Global.System.Data.DataColumn Private columnBuchungsgrund As Global.System.Data.DataColumn Private columnFiller_Feld_43 As Global.System.Data.DataColumn Private columnInformationsbeleg As Global.System.Data.DataColumn Private columnBelegherkunft As Global.System.Data.DataColumn Private columnFiller_Feld_46 As Global.System.Data.DataColumn Private columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Data.DataColumn Private columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Data.DataColumn Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnUmsatzsteuerprozentsatz_informativ As Global.System.Data.DataColumn Private columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Data.DataColumn Private columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Data.DataColumn Private columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Data.DataColumn Private columnFälligkeitsdatum As Global.System.Data.DataColumn Private columnZahlungsziel_in_Tagen As Global.System.Data.DataColumn Private columnZahlungsart As Global.System.Data.DataColumn Private columnTC_Rechnungsnummer_gegenüber_dem_Nutzer As Global.System.Data.DataColumn Private columnTC_Rechnungsdatum As Global.System.Data.DataColumn Private columnZahlungszielgruppe As Global.System.Data.DataColumn Private columnKunden_Kostenstelle_2 As Global.System.Data.DataColumn Private columnLieferzeit As Global.System.Data.DataColumn Private columnFremdkartennummer As Global.System.Data.DataColumn Private columnOnBoardUnitID As Global.System.Data.DataColumn Private columnKFZ_Kennzeichen_komprimiert As Global.System.Data.DataColumn Private columnKartenkategorie As Global.System.Data.DataColumn Private columnRechnungsnummer_pro_Lieferland As Global.System.Data.DataColumn Private columnAutobahnauffahrt As Global.System.Data.DataColumn Private columnAutobahnausfahrt As Global.System.Data.DataColumn Private columnRabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Data.DataColumn Private columnNummer_Belastungsanzeige As Global.System.Data.DataColumn Private columnBetreuungsstelle As Global.System.Data.DataColumn Private columnFiller_Feld_72 As Global.System.Data.DataColumn Private columnAkzeptanz_Medium As Global.System.Data.DataColumn Private columnSteuerkategorie As Global.System.Data.DataColumn Private columnUTA_Beleg_ID As Global.System.Data.DataColumn Private columnUTA_Normalbeleg_ID As Global.System.Data.DataColumn Private columnGebühren_Bescheinigung_von As Global.System.Data.DataColumn Private columnGebühren_Bescheinigung_bis As Global.System.Data.DataColumn Private columnHerausgeber_Nutzer_Nummer As Global.System.Data.DataColumn Private columnMaßeinheit As Global.System.Data.DataColumn Private columnLand_der_Akzeptanzstelle As Global.System.Data.DataColumn Private columnPostleitzahl_der_Akzeptanzstelle As Global.System.Data.DataColumn Private columnSteuerliches_Lieferland As Global.System.Data.DataColumn Private columnSteuerliche_Produktgruppe As Global.System.Data.DataColumn Private columnLeistungsort_verlagerbar As Global.System.Data.DataColumn Private columnabgerechnet As Global.System.Data.DataColumn Private columnabgerechnetDatum As Global.System.Data.DataColumn Private columndaId As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUTAImportNew" 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 ErstellDatumUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnErstellDatumUhrzeit End Get End Property _ Public ReadOnly Property ÜbertragungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbertragungsnummer End Get End Property _ Public ReadOnly Property ÜbertragungspositionColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbertragungsposition End Get End Property _ Public ReadOnly Property AbrechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnAbrechnungsnummer End Get End Property _ Public ReadOnly Property Datum_für_Lieferungen_und_Leistungen_bisColumn() As Global.System.Data.DataColumn Get Return Me.columnDatum_für_Lieferungen_und_Leistungen_bis End Get End Property _ Public ReadOnly Property Rechnungsempfänger_KundennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsempfänger_Kundennummer End Get End Property _ Public ReadOnly Property AbrechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbrechnungsdatum End Get End Property _ Public ReadOnly Property KundennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnKundennummer End Get End Property _ Public ReadOnly Property KartennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnKartennummer End Get End Property _ Public ReadOnly Property BelegdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdatum End Get End Property _ Public ReadOnly Property AkzeptanzstellennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnAkzeptanzstellennummer End Get End Property _ Public ReadOnly Property Standort_der_AkzeptanzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnStandort_der_Akzeptanzstelle End Get End Property _ Public ReadOnly Property LieferlandColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferland End Get End Property _ Public ReadOnly Property Belegnummer_des_LieferantenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegnummer_des_Lieferanten End Get End Property _ Public ReadOnly Property KilometerstandColumn() As Global.System.Data.DataColumn Get Return Me.columnKilometerstand End Get End Property _ Public ReadOnly Property FakturierwarenartColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturierwarenart End Get End Property _ Public ReadOnly Property Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen End Get End Property _ Public ReadOnly Property MengeColumn() As Global.System.Data.DataColumn Get Return Me.columnMenge End Get End Property _ Public ReadOnly Property SB_BTColumn() As Global.System.Data.DataColumn Get Return Me.columnSB_BT End Get End Property _ Public ReadOnly Property UmsatzsteuerprozentsatzColumn() As Global.System.Data.DataColumn Get Return Me.columnUmsatzsteuerprozentsatz End Get End Property _ Public ReadOnly Property Lieferlandwährung_ISOColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferlandwährung_ISO End Get End Property _ Public ReadOnly Property Einzelpreis_Brutto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Brutto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Einzelpreis_Netto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Netto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Betrag_Service_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Service_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Betrag_Nachlass_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Nachlass_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Netto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Netto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Brutto_in_LieferlandwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung End Get End Property _ Public ReadOnly Property Darstellwährung_ISOColumn() As Global.System.Data.DataColumn Get Return Me.columnDarstellwährung_ISO End Get End Property _ Public ReadOnly Property Betrag_Service_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Service_in_Darstellwährung End Get End Property _ Public ReadOnly Property Betrag_Nachlass_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Nachlass_in_Darstellwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Netto_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Netto_in_Darstellwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung End Get End Property _ Public ReadOnly Property Gesamtbetrag_Brutto_in_DarstellwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_Brutto_in_Darstellwährung End Get End Property _ Public ReadOnly Property Prägetext_i_d_R_KFZ_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnPrägetext_i_d_R_KFZ_Kennzeichen End Get End Property _ Public ReadOnly Property Kunden_Kostenstelle_1Column() As Global.System.Data.DataColumn Get Return Me.columnKunden_Kostenstelle_1 End Get End Property _ Public ReadOnly Property KartentypColumn() As Global.System.Data.DataColumn Get Return Me.columnKartentyp End Get End Property _ Public ReadOnly Property Filler_Feld_35Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_35 End Get End Property _ Public ReadOnly Property Filler_Feld_36Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_36 End Get End Property _ Public ReadOnly Property KZ_AutobahnColumn() As Global.System.Data.DataColumn Get Return Me.columnKZ_Autobahn End Get End Property _ Public ReadOnly Property INFO_FeldColumn() As Global.System.Data.DataColumn Get Return Me.columnINFO_Feld End Get End Property _ Public ReadOnly Property KFZ_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnKFZ_Kennzeichen End Get End Property _ Public ReadOnly Property Filler_Feld_40Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_40 End Get End Property _ Public ReadOnly Property BuchungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsart End Get End Property _ Public ReadOnly Property BuchungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsgrund End Get End Property _ Public ReadOnly Property Filler_Feld_43Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_43 End Get End Property _ Public ReadOnly Property InformationsbelegColumn() As Global.System.Data.DataColumn Get Return Me.columnInformationsbeleg End Get End Property _ Public ReadOnly Property BelegherkunftColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegherkunft End Get End Property _ Public ReadOnly Property Filler_Feld_46Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_46 End Get End Property _ Public ReadOnly Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen End Get End Property _ Public ReadOnly Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn() As Global.System.Data.DataColumn Get Return Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen End Get End Property _ Public ReadOnly Property RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property Umsatzsteuerprozentsatz_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnUmsatzsteuerprozentsatz_informativ End Get End Property _ Public ReadOnly Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ End Get End Property _ Public ReadOnly Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ End Get End Property _ Public ReadOnly Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ End Get End Property _ Public ReadOnly Property FälligkeitsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnFälligkeitsdatum End Get End Property _ Public ReadOnly Property Zahlungsziel_in_TagenColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsziel_in_Tagen End Get End Property _ Public ReadOnly Property ZahlungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsart End Get End Property _ Public ReadOnly Property TC_Rechnungsnummer_gegenüber_dem_NutzerColumn() As Global.System.Data.DataColumn Get Return Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer End Get End Property _ Public ReadOnly Property TC_RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnTC_Rechnungsdatum End Get End Property _ Public ReadOnly Property ZahlungszielgruppeColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungszielgruppe End Get End Property _ Public ReadOnly Property Kunden_Kostenstelle_2Column() As Global.System.Data.DataColumn Get Return Me.columnKunden_Kostenstelle_2 End Get End Property _ Public ReadOnly Property LieferzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferzeit End Get End Property _ Public ReadOnly Property FremdkartennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnFremdkartennummer End Get End Property _ Public ReadOnly Property OnBoardUnitIDColumn() As Global.System.Data.DataColumn Get Return Me.columnOnBoardUnitID End Get End Property _ Public ReadOnly Property KFZ_Kennzeichen_komprimiertColumn() As Global.System.Data.DataColumn Get Return Me.columnKFZ_Kennzeichen_komprimiert End Get End Property _ Public ReadOnly Property KartenkategorieColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenkategorie End Get End Property _ Public ReadOnly Property Rechnungsnummer_pro_LieferlandColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer_pro_Lieferland End Get End Property _ Public ReadOnly Property AutobahnauffahrtColumn() As Global.System.Data.DataColumn Get Return Me.columnAutobahnauffahrt End Get End Property _ Public ReadOnly Property AutobahnausfahrtColumn() As Global.System.Data.DataColumn Get Return Me.columnAutobahnausfahrt End Get End Property _ Public ReadOnly Property Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn() As Global.System.Data.DataColumn Get Return Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften End Get End Property _ Public ReadOnly Property Nummer_BelastungsanzeigeColumn() As Global.System.Data.DataColumn Get Return Me.columnNummer_Belastungsanzeige End Get End Property _ Public ReadOnly Property BetreuungsstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnBetreuungsstelle End Get End Property _ Public ReadOnly Property Filler_Feld_72Column() As Global.System.Data.DataColumn Get Return Me.columnFiller_Feld_72 End Get End Property _ Public ReadOnly Property Akzeptanz_MediumColumn() As Global.System.Data.DataColumn Get Return Me.columnAkzeptanz_Medium End Get End Property _ Public ReadOnly Property SteuerkategorieColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerkategorie End Get End Property _ Public ReadOnly Property UTA_Beleg_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUTA_Beleg_ID End Get End Property _ Public ReadOnly Property UTA_Normalbeleg_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUTA_Normalbeleg_ID End Get End Property _ Public ReadOnly Property Gebühren_Bescheinigung_vonColumn() As Global.System.Data.DataColumn Get Return Me.columnGebühren_Bescheinigung_von End Get End Property _ Public ReadOnly Property Gebühren_Bescheinigung_bisColumn() As Global.System.Data.DataColumn Get Return Me.columnGebühren_Bescheinigung_bis End Get End Property _ Public ReadOnly Property Herausgeber_Nutzer_NummerColumn() As Global.System.Data.DataColumn Get Return Me.columnHerausgeber_Nutzer_Nummer End Get End Property _ Public ReadOnly Property MaßeinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnMaßeinheit End Get End Property _ Public ReadOnly Property Land_der_AkzeptanzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnLand_der_Akzeptanzstelle End Get End Property _ Public ReadOnly Property Postleitzahl_der_AkzeptanzstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnPostleitzahl_der_Akzeptanzstelle End Get End Property _ Public ReadOnly Property Steuerliches_LieferlandColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerliches_Lieferland End Get End Property _ Public ReadOnly Property Steuerliche_ProduktgruppeColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerliche_Produktgruppe End Get End Property _ Public ReadOnly Property Leistungsort_verlagerbarColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsort_verlagerbar End Get End Property _ Public ReadOnly Property abgerechnetColumn() As Global.System.Data.DataColumn Get Return Me.columnabgerechnet End Get End Property _ Public ReadOnly Property abgerechnetDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnabgerechnetDatum End Get End Property _ Public ReadOnly Property daIdColumn() As Global.System.Data.DataColumn Get Return Me.columndaId End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUTAImportNewRow Get Return CType(Me.Rows(index),tblUTAImportNewRow) End Get End Property _ Public Event tblUTAImportNewRowChanging As tblUTAImportNewRowChangeEventHandler _ Public Event tblUTAImportNewRowChanged As tblUTAImportNewRowChangeEventHandler _ Public Event tblUTAImportNewRowDeleting As tblUTAImportNewRowChangeEventHandler _ Public Event tblUTAImportNewRowDeleted As tblUTAImportNewRowChangeEventHandler _ Public Overloads Sub AddtblUTAImportNewRow(ByVal row As tblUTAImportNewRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUTAImportNewRow( _ ByVal ErstellDatumUhrzeit As Date, _ ByVal Übertragungsnummer As Integer, _ ByVal Übertragungsposition As Integer, _ ByVal Abrechnungsnummer As Double, _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Date, _ ByVal Rechnungsempfänger_Kundennummer As Integer, _ ByVal Abrechnungsdatum As Date, _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Date, _ ByVal Akzeptanzstellennummer As Double, _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Double, _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Double, _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Double, _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Decimal, _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Decimal, _ ByVal Betrag_Service_in_Lieferlandwährung As Decimal, _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Decimal, _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Decimal, _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Decimal, _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Decimal, _ ByVal Betrag_Nachlass_in_Darstellwährung As Decimal, _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Decimal, _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Decimal, _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Decimal, _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Decimal, _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Decimal, _ ByVal Rechnungsdatum As Date, _ ByVal Umsatzsteuerprozentsatz_informativ As Double, _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Decimal, _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Decimal, _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Decimal, _ ByVal Fälligkeitsdatum As Date, _ ByVal Zahlungsziel_in_Tagen As Short, _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Date, _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Double, _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Short, _ ByVal Nummer_Belastungsanzeige As Double, _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Double, _ ByVal UTA_Normalbeleg_ID As Double, _ ByVal Gebühren_Bescheinigung_von As Date, _ ByVal Gebühren_Bescheinigung_bis As Date, _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal abgerechnet As Boolean, _ ByVal abgerechnetDatum As Date, _ ByVal daId As Integer, _ ByVal upsize_ts() As Byte) As tblUTAImportNewRow Dim rowtblUTAImportNewRow As tblUTAImportNewRow = CType(Me.NewRow,tblUTAImportNewRow) Dim columnValuesArray() As Object = New Object() {ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsposition, Abrechnungsnummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kundennummer, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzstellennummer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilometerstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen, Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brutto_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_in_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_ISO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesamtbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Feld, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnummer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenstelle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimiert, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnausfahrt, Rabattschlüssel_der_französischen_Autobahngesellschaften, Nummer_Belastungsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie, UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Bescheinigung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Postleitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produktgruppe, Leistungsort_verlagerbar, abgerechnet, abgerechnetDatum, daId, upsize_ts} rowtblUTAImportNewRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUTAImportNewRow) Return rowtblUTAImportNewRow End Function _ Public Function FindByErstellDatumUhrzeitÜbertragungsnummerÜbertragungsposition(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Übertragungsposition As Integer) As tblUTAImportNewRow Return CType(Me.Rows.Find(New Object() {ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsposition}),tblUTAImportNewRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUTAImportNewDataTable = CType(MyBase.Clone,tblUTAImportNewDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUTAImportNewDataTable() End Function _ Friend Sub InitVars() Me.columnErstellDatumUhrzeit = MyBase.Columns("ErstellDatumUhrzeit") Me.columnÜbertragungsnummer = MyBase.Columns("Übertragungsnummer") Me.columnÜbertragungsposition = MyBase.Columns("Übertragungsposition") Me.columnAbrechnungsnummer = MyBase.Columns("Abrechnungsnummer") Me.columnDatum_für_Lieferungen_und_Leistungen_bis = MyBase.Columns("Datum_für_Lieferungen_und_Leistungen_bis") Me.columnRechnungsempfänger_Kundennummer = MyBase.Columns("Rechnungsempfänger_Kundennummer") Me.columnAbrechnungsdatum = MyBase.Columns("Abrechnungsdatum") Me.columnKundennummer = MyBase.Columns("Kundennummer") Me.columnKartennummer = MyBase.Columns("Kartennummer") Me.columnBelegdatum = MyBase.Columns("Belegdatum") Me.columnAkzeptanzstellennummer = MyBase.Columns("Akzeptanzstellennummer") Me.columnStandort_der_Akzeptanzstelle = MyBase.Columns("Standort_der_Akzeptanzstelle") Me.columnLieferland = MyBase.Columns("Lieferland") Me.columnBelegnummer_des_Lieferanten = MyBase.Columns("Belegnummer_des_Lieferanten") Me.columnKilometerstand = MyBase.Columns("Kilometerstand") Me.columnFakturierwarenart = MyBase.Columns("Fakturierwarenart") Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen = MyBase.Columns("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen") Me.columnMenge = MyBase.Columns("Menge") Me.columnSB_BT = MyBase.Columns("SB_BT") Me.columnUmsatzsteuerprozentsatz = MyBase.Columns("Umsatzsteuerprozentsatz") Me.columnLieferlandwährung_ISO = MyBase.Columns("Lieferlandwährung_ISO") Me.columnEinzelpreis_Brutto_in_Lieferlandwährung = MyBase.Columns("Einzelpreis_Brutto_in_Lieferlandwährung") Me.columnEinzelpreis_Netto_in_Lieferlandwährung = MyBase.Columns("Einzelpreis_Netto_in_Lieferlandwährung") Me.columnBetrag_Service_in_Lieferlandwährung = MyBase.Columns("Betrag_Service_in_Lieferlandwährung") Me.columnBetrag_Nachlass_in_Lieferlandwährung = MyBase.Columns("Betrag_Nachlass_in_Lieferlandwährung") Me.columnGesamtbetrag_Netto_in_Lieferlandwährung = MyBase.Columns("Gesamtbetrag_Netto_in_Lieferlandwährung") Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung = MyBase.Columns("Gesamtbetrag_Brutto_in_Lieferlandwährung") Me.columnDarstellwährung_ISO = MyBase.Columns("Darstellwährung_ISO") Me.columnBetrag_Service_in_Darstellwährung = MyBase.Columns("Betrag_Service_in_Darstellwährung") Me.columnBetrag_Nachlass_in_Darstellwährung = MyBase.Columns("Betrag_Nachlass_in_Darstellwährung") Me.columnGesamtbetrag_Netto_in_Darstellwährung = MyBase.Columns("Gesamtbetrag_Netto_in_Darstellwährung") Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung = MyBase.Columns("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung") Me.columnGesamtbetrag_Brutto_in_Darstellwährung = MyBase.Columns("Gesamtbetrag_Brutto_in_Darstellwährung") Me.columnPrägetext_i_d_R_KFZ_Kennzeichen = MyBase.Columns("Prägetext_i_d_R_KFZ_Kennzeichen") Me.columnKunden_Kostenstelle_1 = MyBase.Columns("Kunden_Kostenstelle_1") Me.columnKartentyp = MyBase.Columns("Kartentyp") Me.columnFiller_Feld_35 = MyBase.Columns("Filler_Feld_35") Me.columnFiller_Feld_36 = MyBase.Columns("Filler_Feld_36") Me.columnKZ_Autobahn = MyBase.Columns("KZ_Autobahn") Me.columnINFO_Feld = MyBase.Columns("INFO_Feld") Me.columnKFZ_Kennzeichen = MyBase.Columns("KFZ_Kennzeichen") Me.columnFiller_Feld_40 = MyBase.Columns("Filler_Feld_40") Me.columnBuchungsart = MyBase.Columns("Buchungsart") Me.columnBuchungsgrund = MyBase.Columns("Buchungsgrund") Me.columnFiller_Feld_43 = MyBase.Columns("Filler_Feld_43") Me.columnInformationsbeleg = MyBase.Columns("Informationsbeleg") Me.columnBelegherkunft = MyBase.Columns("Belegherkunft") Me.columnFiller_Feld_46 = MyBase.Columns("Filler_Feld_46") Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen = MyBase.Columns("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen") Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen = MyBase.Columns("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen") Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnUmsatzsteuerprozentsatz_informativ = MyBase.Columns("Umsatzsteuerprozentsatz_informativ") Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ = MyBase.Columns("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ") Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ = MyBase.Columns("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ") Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ = MyBase.Columns("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ") Me.columnFälligkeitsdatum = MyBase.Columns("Fälligkeitsdatum") Me.columnZahlungsziel_in_Tagen = MyBase.Columns("Zahlungsziel_in_Tagen") Me.columnZahlungsart = MyBase.Columns("Zahlungsart") Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer = MyBase.Columns("TC_Rechnungsnummer_gegenüber_dem_Nutzer") Me.columnTC_Rechnungsdatum = MyBase.Columns("TC_Rechnungsdatum") Me.columnZahlungszielgruppe = MyBase.Columns("Zahlungszielgruppe") Me.columnKunden_Kostenstelle_2 = MyBase.Columns("Kunden_Kostenstelle_2") Me.columnLieferzeit = MyBase.Columns("Lieferzeit") Me.columnFremdkartennummer = MyBase.Columns("Fremdkartennummer") Me.columnOnBoardUnitID = MyBase.Columns("OnBoardUnitID") Me.columnKFZ_Kennzeichen_komprimiert = MyBase.Columns("KFZ_Kennzeichen_komprimiert") Me.columnKartenkategorie = MyBase.Columns("Kartenkategorie") Me.columnRechnungsnummer_pro_Lieferland = MyBase.Columns("Rechnungsnummer_pro_Lieferland") Me.columnAutobahnauffahrt = MyBase.Columns("Autobahnauffahrt") Me.columnAutobahnausfahrt = MyBase.Columns("Autobahnausfahrt") Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften = MyBase.Columns("Rabattschlüssel_der_französischen_Autobahngesellschaften") Me.columnNummer_Belastungsanzeige = MyBase.Columns("Nummer_Belastungsanzeige") Me.columnBetreuungsstelle = MyBase.Columns("Betreuungsstelle") Me.columnFiller_Feld_72 = MyBase.Columns("Filler_Feld_72") Me.columnAkzeptanz_Medium = MyBase.Columns("Akzeptanz_Medium") Me.columnSteuerkategorie = MyBase.Columns("Steuerkategorie") Me.columnUTA_Beleg_ID = MyBase.Columns("UTA_Beleg_ID") Me.columnUTA_Normalbeleg_ID = MyBase.Columns("UTA_Normalbeleg_ID") Me.columnGebühren_Bescheinigung_von = MyBase.Columns("Gebühren_Bescheinigung_von") Me.columnGebühren_Bescheinigung_bis = MyBase.Columns("Gebühren_Bescheinigung_bis") Me.columnHerausgeber_Nutzer_Nummer = MyBase.Columns("Herausgeber_Nutzer_Nummer") Me.columnMaßeinheit = MyBase.Columns("Maßeinheit") Me.columnLand_der_Akzeptanzstelle = MyBase.Columns("Land_der_Akzeptanzstelle") Me.columnPostleitzahl_der_Akzeptanzstelle = MyBase.Columns("Postleitzahl_der_Akzeptanzstelle") Me.columnSteuerliches_Lieferland = MyBase.Columns("Steuerliches_Lieferland") Me.columnSteuerliche_Produktgruppe = MyBase.Columns("Steuerliche_Produktgruppe") Me.columnLeistungsort_verlagerbar = MyBase.Columns("Leistungsort_verlagerbar") Me.columnabgerechnet = MyBase.Columns("abgerechnet") Me.columnabgerechnetDatum = MyBase.Columns("abgerechnetDatum") Me.columndaId = MyBase.Columns("daId") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnErstellDatumUhrzeit = New Global.System.Data.DataColumn("ErstellDatumUhrzeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstellDatumUhrzeit) Me.columnÜbertragungsnummer = New Global.System.Data.DataColumn("Übertragungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbertragungsnummer) Me.columnÜbertragungsposition = New Global.System.Data.DataColumn("Übertragungsposition", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbertragungsposition) Me.columnAbrechnungsnummer = New Global.System.Data.DataColumn("Abrechnungsnummer", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbrechnungsnummer) Me.columnDatum_für_Lieferungen_und_Leistungen_bis = New Global.System.Data.DataColumn("Datum_für_Lieferungen_und_Leistungen_bis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatum_für_Lieferungen_und_Leistungen_bis) Me.columnRechnungsempfänger_Kundennummer = New Global.System.Data.DataColumn("Rechnungsempfänger_Kundennummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsempfänger_Kundennummer) Me.columnAbrechnungsdatum = New Global.System.Data.DataColumn("Abrechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbrechnungsdatum) Me.columnKundennummer = New Global.System.Data.DataColumn("Kundennummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundennummer) Me.columnKartennummer = New Global.System.Data.DataColumn("Kartennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartennummer) Me.columnBelegdatum = New Global.System.Data.DataColumn("Belegdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdatum) Me.columnAkzeptanzstellennummer = New Global.System.Data.DataColumn("Akzeptanzstellennummer", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAkzeptanzstellennummer) Me.columnStandort_der_Akzeptanzstelle = New Global.System.Data.DataColumn("Standort_der_Akzeptanzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStandort_der_Akzeptanzstelle) Me.columnLieferland = New Global.System.Data.DataColumn("Lieferland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferland) Me.columnBelegnummer_des_Lieferanten = New Global.System.Data.DataColumn("Belegnummer_des_Lieferanten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegnummer_des_Lieferanten) Me.columnKilometerstand = New Global.System.Data.DataColumn("Kilometerstand", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKilometerstand) Me.columnFakturierwarenart = New Global.System.Data.DataColumn("Fakturierwarenart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturierwarenart) Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen = New Global.System.Data.DataColumn("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen) Me.columnMenge = New Global.System.Data.DataColumn("Menge", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMenge) Me.columnSB_BT = New Global.System.Data.DataColumn("SB_BT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSB_BT) Me.columnUmsatzsteuerprozentsatz = New Global.System.Data.DataColumn("Umsatzsteuerprozentsatz", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmsatzsteuerprozentsatz) Me.columnLieferlandwährung_ISO = New Global.System.Data.DataColumn("Lieferlandwährung_ISO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferlandwährung_ISO) Me.columnEinzelpreis_Brutto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Einzelpreis_Brutto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Brutto_in_Lieferlandwährung) Me.columnEinzelpreis_Netto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Einzelpreis_Netto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Netto_in_Lieferlandwährung) Me.columnBetrag_Service_in_Lieferlandwährung = New Global.System.Data.DataColumn("Betrag_Service_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Service_in_Lieferlandwährung) Me.columnBetrag_Nachlass_in_Lieferlandwährung = New Global.System.Data.DataColumn("Betrag_Nachlass_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Nachlass_in_Lieferlandwährung) Me.columnGesamtbetrag_Netto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Netto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Netto_in_Lieferlandwährung) Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Brutto_in_Lieferlandwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Brutto_in_Lieferlandwährung) Me.columnDarstellwährung_ISO = New Global.System.Data.DataColumn("Darstellwährung_ISO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDarstellwährung_ISO) Me.columnBetrag_Service_in_Darstellwährung = New Global.System.Data.DataColumn("Betrag_Service_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Service_in_Darstellwährung) Me.columnBetrag_Nachlass_in_Darstellwährung = New Global.System.Data.DataColumn("Betrag_Nachlass_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Nachlass_in_Darstellwährung) Me.columnGesamtbetrag_Netto_in_Darstellwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Netto_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Netto_in_Darstellwährung) Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Umsatzsteuer_in_Darstellwährung) Me.columnGesamtbetrag_Brutto_in_Darstellwährung = New Global.System.Data.DataColumn("Gesamtbetrag_Brutto_in_Darstellwährung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_Brutto_in_Darstellwährung) Me.columnPrägetext_i_d_R_KFZ_Kennzeichen = New Global.System.Data.DataColumn("Prägetext_i_d_R_KFZ_Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrägetext_i_d_R_KFZ_Kennzeichen) Me.columnKunden_Kostenstelle_1 = New Global.System.Data.DataColumn("Kunden_Kostenstelle_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKunden_Kostenstelle_1) Me.columnKartentyp = New Global.System.Data.DataColumn("Kartentyp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartentyp) Me.columnFiller_Feld_35 = New Global.System.Data.DataColumn("Filler_Feld_35", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_35) Me.columnFiller_Feld_36 = New Global.System.Data.DataColumn("Filler_Feld_36", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_36) Me.columnKZ_Autobahn = New Global.System.Data.DataColumn("KZ_Autobahn", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKZ_Autobahn) Me.columnINFO_Feld = New Global.System.Data.DataColumn("INFO_Feld", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINFO_Feld) Me.columnKFZ_Kennzeichen = New Global.System.Data.DataColumn("KFZ_Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKFZ_Kennzeichen) Me.columnFiller_Feld_40 = New Global.System.Data.DataColumn("Filler_Feld_40", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_40) Me.columnBuchungsart = New Global.System.Data.DataColumn("Buchungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsart) Me.columnBuchungsgrund = New Global.System.Data.DataColumn("Buchungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsgrund) Me.columnFiller_Feld_43 = New Global.System.Data.DataColumn("Filler_Feld_43", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_43) Me.columnInformationsbeleg = New Global.System.Data.DataColumn("Informationsbeleg", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInformationsbeleg) Me.columnBelegherkunft = New Global.System.Data.DataColumn("Belegherkunft", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegherkunft) Me.columnFiller_Feld_46 = New Global.System.Data.DataColumn("Filler_Feld_46", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_46) Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen = New Global.System.Data.DataColumn("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen) Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen = New Global.System.Data.DataColumn("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen) Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnUmsatzsteuerprozentsatz_informativ = New Global.System.Data.DataColumn("Umsatzsteuerprozentsatz_informativ", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmsatzsteuerprozentsatz_informativ) Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ = New Global.System.Data.DataColumn("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ) Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ = New Global.System.Data.DataColumn("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ) Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ = New Global.System.Data.DataColumn("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ) Me.columnFälligkeitsdatum = New Global.System.Data.DataColumn("Fälligkeitsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFälligkeitsdatum) Me.columnZahlungsziel_in_Tagen = New Global.System.Data.DataColumn("Zahlungsziel_in_Tagen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsziel_in_Tagen) Me.columnZahlungsart = New Global.System.Data.DataColumn("Zahlungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsart) Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer = New Global.System.Data.DataColumn("TC_Rechnungsnummer_gegenüber_dem_Nutzer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer) Me.columnTC_Rechnungsdatum = New Global.System.Data.DataColumn("TC_Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTC_Rechnungsdatum) Me.columnZahlungszielgruppe = New Global.System.Data.DataColumn("Zahlungszielgruppe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungszielgruppe) Me.columnKunden_Kostenstelle_2 = New Global.System.Data.DataColumn("Kunden_Kostenstelle_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKunden_Kostenstelle_2) Me.columnLieferzeit = New Global.System.Data.DataColumn("Lieferzeit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferzeit) Me.columnFremdkartennummer = New Global.System.Data.DataColumn("Fremdkartennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFremdkartennummer) Me.columnOnBoardUnitID = New Global.System.Data.DataColumn("OnBoardUnitID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOnBoardUnitID) Me.columnKFZ_Kennzeichen_komprimiert = New Global.System.Data.DataColumn("KFZ_Kennzeichen_komprimiert", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKFZ_Kennzeichen_komprimiert) Me.columnKartenkategorie = New Global.System.Data.DataColumn("Kartenkategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenkategorie) Me.columnRechnungsnummer_pro_Lieferland = New Global.System.Data.DataColumn("Rechnungsnummer_pro_Lieferland", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer_pro_Lieferland) Me.columnAutobahnauffahrt = New Global.System.Data.DataColumn("Autobahnauffahrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAutobahnauffahrt) Me.columnAutobahnausfahrt = New Global.System.Data.DataColumn("Autobahnausfahrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAutobahnausfahrt) Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften = New Global.System.Data.DataColumn("Rabattschlüssel_der_französischen_Autobahngesellschaften", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRabattschlüssel_der_französischen_Autobahngesellschaften) Me.columnNummer_Belastungsanzeige = New Global.System.Data.DataColumn("Nummer_Belastungsanzeige", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNummer_Belastungsanzeige) Me.columnBetreuungsstelle = New Global.System.Data.DataColumn("Betreuungsstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetreuungsstelle) Me.columnFiller_Feld_72 = New Global.System.Data.DataColumn("Filler_Feld_72", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiller_Feld_72) Me.columnAkzeptanz_Medium = New Global.System.Data.DataColumn("Akzeptanz_Medium", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAkzeptanz_Medium) Me.columnSteuerkategorie = New Global.System.Data.DataColumn("Steuerkategorie", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerkategorie) Me.columnUTA_Beleg_ID = New Global.System.Data.DataColumn("UTA_Beleg_ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUTA_Beleg_ID) Me.columnUTA_Normalbeleg_ID = New Global.System.Data.DataColumn("UTA_Normalbeleg_ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUTA_Normalbeleg_ID) Me.columnGebühren_Bescheinigung_von = New Global.System.Data.DataColumn("Gebühren_Bescheinigung_von", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGebühren_Bescheinigung_von) Me.columnGebühren_Bescheinigung_bis = New Global.System.Data.DataColumn("Gebühren_Bescheinigung_bis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGebühren_Bescheinigung_bis) Me.columnHerausgeber_Nutzer_Nummer = New Global.System.Data.DataColumn("Herausgeber_Nutzer_Nummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHerausgeber_Nutzer_Nummer) Me.columnMaßeinheit = New Global.System.Data.DataColumn("Maßeinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMaßeinheit) Me.columnLand_der_Akzeptanzstelle = New Global.System.Data.DataColumn("Land_der_Akzeptanzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLand_der_Akzeptanzstelle) Me.columnPostleitzahl_der_Akzeptanzstelle = New Global.System.Data.DataColumn("Postleitzahl_der_Akzeptanzstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPostleitzahl_der_Akzeptanzstelle) Me.columnSteuerliches_Lieferland = New Global.System.Data.DataColumn("Steuerliches_Lieferland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerliches_Lieferland) Me.columnSteuerliche_Produktgruppe = New Global.System.Data.DataColumn("Steuerliche_Produktgruppe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerliche_Produktgruppe) Me.columnLeistungsort_verlagerbar = New Global.System.Data.DataColumn("Leistungsort_verlagerbar", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsort_verlagerbar) Me.columnabgerechnet = New Global.System.Data.DataColumn("abgerechnet", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnabgerechnet) Me.columnabgerechnetDatum = New Global.System.Data.DataColumn("abgerechnetDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnabgerechnetDatum) Me.columndaId = New Global.System.Data.DataColumn("daId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndaId) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnErstellDatumUhrzeit, Me.columnÜbertragungsnummer, Me.columnÜbertragungsposition}, true)) Me.columnErstellDatumUhrzeit.AllowDBNull = false Me.columnÜbertragungsnummer.AllowDBNull = false Me.columnÜbertragungsposition.AllowDBNull = false Me.columnKundennummer.AllowDBNull = false Me.columnKartennummer.MaxLength = 19 Me.columnStandort_der_Akzeptanzstelle.MaxLength = 25 Me.columnLieferland.MaxLength = 3 Me.columnBelegnummer_des_Lieferanten.MaxLength = 13 Me.columnFakturierwarenart.AllowDBNull = false Me.columnFakturierwarenart.MaxLength = 5 Me.columnVorzeichen_Statusfeld_für_alle_Beträge_und_Mengen.MaxLength = 1 Me.columnSB_BT.MaxLength = 1 Me.columnLieferlandwährung_ISO.MaxLength = 3 Me.columnDarstellwährung_ISO.MaxLength = 3 Me.columnPrägetext_i_d_R_KFZ_Kennzeichen.MaxLength = 16 Me.columnKunden_Kostenstelle_1.MaxLength = 20 Me.columnKartentyp.MaxLength = 8 Me.columnFiller_Feld_35.MaxLength = 1 Me.columnFiller_Feld_36.MaxLength = 3 Me.columnKZ_Autobahn.MaxLength = 1 Me.columnINFO_Feld.MaxLength = 18 Me.columnKFZ_Kennzeichen.MaxLength = 16 Me.columnFiller_Feld_40.MaxLength = 1 Me.columnBuchungsart.MaxLength = 1 Me.columnBuchungsgrund.MaxLength = 1 Me.columnFiller_Feld_43.MaxLength = 1 Me.columnInformationsbeleg.MaxLength = 1 Me.columnBelegherkunft.MaxLength = 1 Me.columnFiller_Feld_46.MaxLength = 14 Me.columnZahlungsart.MaxLength = 8 Me.columnTC_Rechnungsnummer_gegenüber_dem_Nutzer.MaxLength = 20 Me.columnZahlungszielgruppe.MaxLength = 7 Me.columnKunden_Kostenstelle_2.MaxLength = 20 Me.columnLieferzeit.MaxLength = 6 Me.columnFremdkartennummer.MaxLength = 20 Me.columnOnBoardUnitID.MaxLength = 20 Me.columnKFZ_Kennzeichen_komprimiert.MaxLength = 16 Me.columnKartenkategorie.MaxLength = 8 Me.columnAutobahnauffahrt.MaxLength = 40 Me.columnAutobahnausfahrt.MaxLength = 40 Me.columnBetreuungsstelle.MaxLength = 20 Me.columnFiller_Feld_72.MaxLength = 20 Me.columnAkzeptanz_Medium.MaxLength = 20 Me.columnSteuerkategorie.MaxLength = 8 Me.columnHerausgeber_Nutzer_Nummer.MaxLength = 20 Me.columnMaßeinheit.MaxLength = 8 Me.columnLand_der_Akzeptanzstelle.MaxLength = 3 Me.columnPostleitzahl_der_Akzeptanzstelle.MaxLength = 7 Me.columnSteuerliches_Lieferland.MaxLength = 3 Me.columnSteuerliche_Produktgruppe.MaxLength = 5 Me.columnLeistungsort_verlagerbar.MaxLength = 1 Me.columnabgerechnet.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUTAImportNewRow() As tblUTAImportNewRow Return CType(Me.NewRow,tblUTAImportNewRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUTAImportNewRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUTAImportNewRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUTAImportNewRowChangedEvent) Is Nothing) Then RaiseEvent tblUTAImportNewRowChanged(Me, New tblUTAImportNewRowChangeEvent(CType(e.Row,tblUTAImportNewRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUTAImportNewRowChangingEvent) Is Nothing) Then RaiseEvent tblUTAImportNewRowChanging(Me, New tblUTAImportNewRowChangeEvent(CType(e.Row,tblUTAImportNewRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUTAImportNewRowDeletedEvent) Is Nothing) Then RaiseEvent tblUTAImportNewRowDeleted(Me, New tblUTAImportNewRowChangeEvent(CType(e.Row,tblUTAImportNewRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUTAImportNewRowDeletingEvent) Is Nothing) Then RaiseEvent tblUTAImportNewRowDeleting(Me, New tblUTAImportNewRowChangeEvent(CType(e.Row,tblUTAImportNewRow), e.Action)) End If End Sub _ Public Sub RemovetblUTAImportNewRow(ByVal row As tblUTAImportNewRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUTAImportNewDataTable" 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 tblUTALeistungenDataTable Inherits Global.System.Data.TypedTableBase(Of tblUTALeistungenRow) Private columnFakturierwarenart As Global.System.Data.DataColumn Private columnLieferland As Global.System.Data.DataColumn Private columnVERAG_OffertenNr As Global.System.Data.DataColumn Private columnVERAG_LeistungsNr As Global.System.Data.DataColumn Private columnZeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUTALeistungen" 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 FakturierwarenartColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturierwarenart End Get End Property _ Public ReadOnly Property LieferlandColumn() As Global.System.Data.DataColumn Get Return Me.columnLieferland End Get End Property _ Public ReadOnly Property VERAG_OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_OffertenNr End Get End Property _ Public ReadOnly Property VERAG_LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_LeistungsNr End Get End Property _ Public ReadOnly Property ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnZeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUTALeistungenRow Get Return CType(Me.Rows(index),tblUTALeistungenRow) End Get End Property _ Public Event tblUTALeistungenRowChanging As tblUTALeistungenRowChangeEventHandler _ Public Event tblUTALeistungenRowChanged As tblUTALeistungenRowChangeEventHandler _ Public Event tblUTALeistungenRowDeleting As tblUTALeistungenRowChangeEventHandler _ Public Event tblUTALeistungenRowDeleted As tblUTALeistungenRowChangeEventHandler _ Public Overloads Sub AddtblUTALeistungenRow(ByVal row As tblUTALeistungenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUTALeistungenRow(ByVal parenttblUTAFakturierwarenartenRowBytblUTALeistungen_FK00 As tblUTAFakturierwarenartenRow, ByVal Lieferland As String, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short, ByVal Zeitstempel As Date, ByVal upsize_ts() As Byte) As tblUTALeistungenRow Dim rowtblUTALeistungenRow As tblUTALeistungenRow = CType(Me.NewRow,tblUTALeistungenRow) Dim columnValuesArray() As Object = New Object() {Nothing, Lieferland, VERAG_OffertenNr, VERAG_LeistungsNr, Zeitstempel, upsize_ts} If (Not (parenttblUTAFakturierwarenartenRowBytblUTALeistungen_FK00) Is Nothing) Then columnValuesArray(0) = parenttblUTAFakturierwarenartenRowBytblUTALeistungen_FK00(0) End If rowtblUTALeistungenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUTALeistungenRow) Return rowtblUTALeistungenRow End Function _ Public Function FindByFakturierwarenartLieferland(ByVal Fakturierwarenart As String, ByVal Lieferland As String) As tblUTALeistungenRow Return CType(Me.Rows.Find(New Object() {Fakturierwarenart, Lieferland}),tblUTALeistungenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUTALeistungenDataTable = CType(MyBase.Clone,tblUTALeistungenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUTALeistungenDataTable() End Function _ Friend Sub InitVars() Me.columnFakturierwarenart = MyBase.Columns("Fakturierwarenart") Me.columnLieferland = MyBase.Columns("Lieferland") Me.columnVERAG_OffertenNr = MyBase.Columns("VERAG_OffertenNr") Me.columnVERAG_LeistungsNr = MyBase.Columns("VERAG_LeistungsNr") Me.columnZeitstempel = MyBase.Columns("Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnFakturierwarenart = New Global.System.Data.DataColumn("Fakturierwarenart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturierwarenart) Me.columnLieferland = New Global.System.Data.DataColumn("Lieferland", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLieferland) Me.columnVERAG_OffertenNr = New Global.System.Data.DataColumn("VERAG_OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_OffertenNr) Me.columnVERAG_LeistungsNr = New Global.System.Data.DataColumn("VERAG_LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_LeistungsNr) Me.columnZeitstempel = New Global.System.Data.DataColumn("Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFakturierwarenart, Me.columnLieferland}, true)) Me.columnFakturierwarenart.AllowDBNull = false Me.columnFakturierwarenart.MaxLength = 5 Me.columnLieferland.AllowDBNull = false Me.columnLieferland.MaxLength = 3 Me.columnVERAG_OffertenNr.AllowDBNull = false Me.columnVERAG_LeistungsNr.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUTALeistungenRow() As tblUTALeistungenRow Return CType(Me.NewRow,tblUTALeistungenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUTALeistungenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUTALeistungenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUTALeistungenRowChangedEvent) Is Nothing) Then RaiseEvent tblUTALeistungenRowChanged(Me, New tblUTALeistungenRowChangeEvent(CType(e.Row,tblUTALeistungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUTALeistungenRowChangingEvent) Is Nothing) Then RaiseEvent tblUTALeistungenRowChanging(Me, New tblUTALeistungenRowChangeEvent(CType(e.Row,tblUTALeistungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUTALeistungenRowDeletedEvent) Is Nothing) Then RaiseEvent tblUTALeistungenRowDeleted(Me, New tblUTALeistungenRowChangeEvent(CType(e.Row,tblUTALeistungenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUTALeistungenRowDeletingEvent) Is Nothing) Then RaiseEvent tblUTALeistungenRowDeleting(Me, New tblUTALeistungenRowChangeEvent(CType(e.Row,tblUTALeistungenRow), e.Action)) End If End Sub _ Public Sub RemovetblUTALeistungenRow(ByVal row As tblUTALeistungenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUTALeistungenDataTable" 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 tblUTATrailerDataTable Inherits Global.System.Data.TypedTableBase(Of tblUTATrailerRow) Private columnErstellDatumUhrzeit As Global.System.Data.DataColumn Private columnÜbertragungsnummer As Global.System.Data.DataColumn Private columnAnzahl_Sätze As Global.System.Data.DataColumn Private columnChecksumme As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUTATrailer" 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 ErstellDatumUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnErstellDatumUhrzeit End Get End Property _ Public ReadOnly Property ÜbertragungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbertragungsnummer End Get End Property _ Public ReadOnly Property Anzahl_SätzeColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl_Sätze End Get End Property _ Public ReadOnly Property ChecksummeColumn() As Global.System.Data.DataColumn Get Return Me.columnChecksumme End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUTATrailerRow Get Return CType(Me.Rows(index),tblUTATrailerRow) End Get End Property _ Public Event tblUTATrailerRowChanging As tblUTATrailerRowChangeEventHandler _ Public Event tblUTATrailerRowChanged As tblUTATrailerRowChangeEventHandler _ Public Event tblUTATrailerRowDeleting As tblUTATrailerRowChangeEventHandler _ Public Event tblUTATrailerRowDeleted As tblUTATrailerRowChangeEventHandler _ Public Overloads Sub AddtblUTATrailerRow(ByVal row As tblUTATrailerRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUTATrailerRow(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Anzahl_Sätze As Integer, ByVal Checksumme As Decimal, ByVal upsize_ts() As Byte) As tblUTATrailerRow Dim rowtblUTATrailerRow As tblUTATrailerRow = CType(Me.NewRow,tblUTATrailerRow) Dim columnValuesArray() As Object = New Object() {ErstellDatumUhrzeit, Übertragungsnummer, Anzahl_Sätze, Checksumme, upsize_ts} rowtblUTATrailerRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUTATrailerRow) Return rowtblUTATrailerRow End Function _ Public Function FindByErstellDatumUhrzeitÜbertragungsnummer(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer) As tblUTATrailerRow Return CType(Me.Rows.Find(New Object() {ErstellDatumUhrzeit, Übertragungsnummer}),tblUTATrailerRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUTATrailerDataTable = CType(MyBase.Clone,tblUTATrailerDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUTATrailerDataTable() End Function _ Friend Sub InitVars() Me.columnErstellDatumUhrzeit = MyBase.Columns("ErstellDatumUhrzeit") Me.columnÜbertragungsnummer = MyBase.Columns("Übertragungsnummer") Me.columnAnzahl_Sätze = MyBase.Columns("Anzahl_Sätze") Me.columnChecksumme = MyBase.Columns("Checksumme") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnErstellDatumUhrzeit = New Global.System.Data.DataColumn("ErstellDatumUhrzeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstellDatumUhrzeit) Me.columnÜbertragungsnummer = New Global.System.Data.DataColumn("Übertragungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbertragungsnummer) Me.columnAnzahl_Sätze = New Global.System.Data.DataColumn("Anzahl_Sätze", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl_Sätze) Me.columnChecksumme = New Global.System.Data.DataColumn("Checksumme", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnChecksumme) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnErstellDatumUhrzeit, Me.columnÜbertragungsnummer}, true)) Me.columnErstellDatumUhrzeit.AllowDBNull = false Me.columnÜbertragungsnummer.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUTATrailerRow() As tblUTATrailerRow Return CType(Me.NewRow,tblUTATrailerRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUTATrailerRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUTATrailerRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUTATrailerRowChangedEvent) Is Nothing) Then RaiseEvent tblUTATrailerRowChanged(Me, New tblUTATrailerRowChangeEvent(CType(e.Row,tblUTATrailerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUTATrailerRowChangingEvent) Is Nothing) Then RaiseEvent tblUTATrailerRowChanging(Me, New tblUTATrailerRowChangeEvent(CType(e.Row,tblUTATrailerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUTATrailerRowDeletedEvent) Is Nothing) Then RaiseEvent tblUTATrailerRowDeleted(Me, New tblUTATrailerRowChangeEvent(CType(e.Row,tblUTATrailerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUTATrailerRowDeletingEvent) Is Nothing) Then RaiseEvent tblUTATrailerRowDeleting(Me, New tblUTATrailerRowChangeEvent(CType(e.Row,tblUTATrailerRow), e.Action)) End If End Sub _ Public Sub RemovetblUTATrailerRow(ByVal row As tblUTATrailerRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUTATrailerDataTable" 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 tblUTATrailerNewDataTable Inherits Global.System.Data.TypedTableBase(Of tblUTATrailerNewRow) Private columnErstellDatumUhrzeit As Global.System.Data.DataColumn Private columnÜbertragungsnummer As Global.System.Data.DataColumn Private columnAnzahl_Sätze As Global.System.Data.DataColumn Private columnChecksumme As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblUTATrailerNew" 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 ErstellDatumUhrzeitColumn() As Global.System.Data.DataColumn Get Return Me.columnErstellDatumUhrzeit End Get End Property _ Public ReadOnly Property ÜbertragungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbertragungsnummer End Get End Property _ Public ReadOnly Property Anzahl_SätzeColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl_Sätze End Get End Property _ Public ReadOnly Property ChecksummeColumn() As Global.System.Data.DataColumn Get Return Me.columnChecksumme End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblUTATrailerNewRow Get Return CType(Me.Rows(index),tblUTATrailerNewRow) End Get End Property _ Public Event tblUTATrailerNewRowChanging As tblUTATrailerNewRowChangeEventHandler _ Public Event tblUTATrailerNewRowChanged As tblUTATrailerNewRowChangeEventHandler _ Public Event tblUTATrailerNewRowDeleting As tblUTATrailerNewRowChangeEventHandler _ Public Event tblUTATrailerNewRowDeleted As tblUTATrailerNewRowChangeEventHandler _ Public Overloads Sub AddtblUTATrailerNewRow(ByVal row As tblUTATrailerNewRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblUTATrailerNewRow(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Anzahl_Sätze As Integer, ByVal Checksumme As Decimal, ByVal upsize_ts() As Byte) As tblUTATrailerNewRow Dim rowtblUTATrailerNewRow As tblUTATrailerNewRow = CType(Me.NewRow,tblUTATrailerNewRow) Dim columnValuesArray() As Object = New Object() {ErstellDatumUhrzeit, Übertragungsnummer, Anzahl_Sätze, Checksumme, upsize_ts} rowtblUTATrailerNewRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblUTATrailerNewRow) Return rowtblUTATrailerNewRow End Function _ Public Function FindByErstellDatumUhrzeitÜbertragungsnummer(ByVal ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer) As tblUTATrailerNewRow Return CType(Me.Rows.Find(New Object() {ErstellDatumUhrzeit, Übertragungsnummer}),tblUTATrailerNewRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblUTATrailerNewDataTable = CType(MyBase.Clone,tblUTATrailerNewDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblUTATrailerNewDataTable() End Function _ Friend Sub InitVars() Me.columnErstellDatumUhrzeit = MyBase.Columns("ErstellDatumUhrzeit") Me.columnÜbertragungsnummer = MyBase.Columns("Übertragungsnummer") Me.columnAnzahl_Sätze = MyBase.Columns("Anzahl_Sätze") Me.columnChecksumme = MyBase.Columns("Checksumme") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnErstellDatumUhrzeit = New Global.System.Data.DataColumn("ErstellDatumUhrzeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstellDatumUhrzeit) Me.columnÜbertragungsnummer = New Global.System.Data.DataColumn("Übertragungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbertragungsnummer) Me.columnAnzahl_Sätze = New Global.System.Data.DataColumn("Anzahl_Sätze", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl_Sätze) Me.columnChecksumme = New Global.System.Data.DataColumn("Checksumme", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnChecksumme) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnErstellDatumUhrzeit, Me.columnÜbertragungsnummer}, true)) Me.columnErstellDatumUhrzeit.AllowDBNull = false Me.columnÜbertragungsnummer.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblUTATrailerNewRow() As tblUTATrailerNewRow Return CType(Me.NewRow,tblUTATrailerNewRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblUTATrailerNewRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblUTATrailerNewRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblUTATrailerNewRowChangedEvent) Is Nothing) Then RaiseEvent tblUTATrailerNewRowChanged(Me, New tblUTATrailerNewRowChangeEvent(CType(e.Row,tblUTATrailerNewRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblUTATrailerNewRowChangingEvent) Is Nothing) Then RaiseEvent tblUTATrailerNewRowChanging(Me, New tblUTATrailerNewRowChangeEvent(CType(e.Row,tblUTATrailerNewRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblUTATrailerNewRowDeletedEvent) Is Nothing) Then RaiseEvent tblUTATrailerNewRowDeleted(Me, New tblUTATrailerNewRowChangeEvent(CType(e.Row,tblUTATrailerNewRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblUTATrailerNewRowDeletingEvent) Is Nothing) Then RaiseEvent tblUTATrailerNewRowDeleting(Me, New tblUTATrailerNewRowChangeEvent(CType(e.Row,tblUTATrailerNewRow), e.Action)) End If End Sub _ Public Sub RemovetblUTATrailerNewRow(ByVal row As tblUTATrailerNewRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblUTATrailerNewDataTable" 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 tblVermarktungsnormenDataTable Inherits Global.System.Data.TypedTableBase(Of tblVermarktungsnormenRow) Private columnkncode As Global.System.Data.DataColumn Private columnspeziell As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblVermarktungsnormen" 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 kncodeColumn() As Global.System.Data.DataColumn Get Return Me.columnkncode End Get End Property _ Public ReadOnly Property speziellColumn() As Global.System.Data.DataColumn Get Return Me.columnspeziell 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 tblVermarktungsnormenRow Get Return CType(Me.Rows(index),tblVermarktungsnormenRow) End Get End Property _ Public Event tblVermarktungsnormenRowChanging As tblVermarktungsnormenRowChangeEventHandler _ Public Event tblVermarktungsnormenRowChanged As tblVermarktungsnormenRowChangeEventHandler _ Public Event tblVermarktungsnormenRowDeleting As tblVermarktungsnormenRowChangeEventHandler _ Public Event tblVermarktungsnormenRowDeleted As tblVermarktungsnormenRowChangeEventHandler _ Public Overloads Sub AddtblVermarktungsnormenRow(ByVal row As tblVermarktungsnormenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblVermarktungsnormenRow(ByVal kncode As String, ByVal speziell As Boolean) As tblVermarktungsnormenRow Dim rowtblVermarktungsnormenRow As tblVermarktungsnormenRow = CType(Me.NewRow,tblVermarktungsnormenRow) Dim columnValuesArray() As Object = New Object() {kncode, speziell} rowtblVermarktungsnormenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblVermarktungsnormenRow) Return rowtblVermarktungsnormenRow End Function _ Public Function FindBykncode(ByVal kncode As String) As tblVermarktungsnormenRow Return CType(Me.Rows.Find(New Object() {kncode}),tblVermarktungsnormenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblVermarktungsnormenDataTable = CType(MyBase.Clone,tblVermarktungsnormenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblVermarktungsnormenDataTable() End Function _ Friend Sub InitVars() Me.columnkncode = MyBase.Columns("kncode") Me.columnspeziell = MyBase.Columns("speziell") End Sub _ Private Sub InitClass() Me.columnkncode = New Global.System.Data.DataColumn("kncode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnkncode) Me.columnspeziell = New Global.System.Data.DataColumn("speziell", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnspeziell) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkncode}, true)) Me.columnkncode.AllowDBNull = false Me.columnkncode.Unique = true Me.columnkncode.MaxLength = 50 Me.columnspeziell.AllowDBNull = false End Sub _ Public Function NewtblVermarktungsnormenRow() As tblVermarktungsnormenRow Return CType(Me.NewRow,tblVermarktungsnormenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblVermarktungsnormenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblVermarktungsnormenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblVermarktungsnormenRowChangedEvent) Is Nothing) Then RaiseEvent tblVermarktungsnormenRowChanged(Me, New tblVermarktungsnormenRowChangeEvent(CType(e.Row,tblVermarktungsnormenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblVermarktungsnormenRowChangingEvent) Is Nothing) Then RaiseEvent tblVermarktungsnormenRowChanging(Me, New tblVermarktungsnormenRowChangeEvent(CType(e.Row,tblVermarktungsnormenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblVermarktungsnormenRowDeletedEvent) Is Nothing) Then RaiseEvent tblVermarktungsnormenRowDeleted(Me, New tblVermarktungsnormenRowChangeEvent(CType(e.Row,tblVermarktungsnormenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblVermarktungsnormenRowDeletingEvent) Is Nothing) Then RaiseEvent tblVermarktungsnormenRowDeleting(Me, New tblVermarktungsnormenRowChangeEvent(CType(e.Row,tblVermarktungsnormenRow), e.Action)) End If End Sub _ Public Sub RemovetblVermarktungsnormenRow(ByVal row As tblVermarktungsnormenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblVermarktungsnormenDataTable" 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 tblVermarktungsnormenGebuehrenDataTable Inherits Global.System.Data.TypedTableBase(Of tblVermarktungsnormenGebuehrenRow) Private columngueltigAb As Global.System.Data.DataColumn Private columnbetrag As Global.System.Data.DataColumn Private columnspeziell As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblVermarktungsnormenGebuehren" 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 gueltigAbColumn() As Global.System.Data.DataColumn Get Return Me.columngueltigAb End Get End Property _ Public ReadOnly Property betragColumn() As Global.System.Data.DataColumn Get Return Me.columnbetrag End Get End Property _ Public ReadOnly Property speziellColumn() As Global.System.Data.DataColumn Get Return Me.columnspeziell 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 tblVermarktungsnormenGebuehrenRow Get Return CType(Me.Rows(index),tblVermarktungsnormenGebuehrenRow) End Get End Property _ Public Event tblVermarktungsnormenGebuehrenRowChanging As tblVermarktungsnormenGebuehrenRowChangeEventHandler _ Public Event tblVermarktungsnormenGebuehrenRowChanged As tblVermarktungsnormenGebuehrenRowChangeEventHandler _ Public Event tblVermarktungsnormenGebuehrenRowDeleting As tblVermarktungsnormenGebuehrenRowChangeEventHandler _ Public Event tblVermarktungsnormenGebuehrenRowDeleted As tblVermarktungsnormenGebuehrenRowChangeEventHandler _ Public Overloads Sub AddtblVermarktungsnormenGebuehrenRow(ByVal row As tblVermarktungsnormenGebuehrenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblVermarktungsnormenGebuehrenRow(ByVal gueltigAb As Date, ByVal betrag As Decimal, ByVal speziell As Boolean) As tblVermarktungsnormenGebuehrenRow Dim rowtblVermarktungsnormenGebuehrenRow As tblVermarktungsnormenGebuehrenRow = CType(Me.NewRow,tblVermarktungsnormenGebuehrenRow) Dim columnValuesArray() As Object = New Object() {gueltigAb, betrag, speziell} rowtblVermarktungsnormenGebuehrenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblVermarktungsnormenGebuehrenRow) Return rowtblVermarktungsnormenGebuehrenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblVermarktungsnormenGebuehrenDataTable = CType(MyBase.Clone,tblVermarktungsnormenGebuehrenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblVermarktungsnormenGebuehrenDataTable() End Function _ Friend Sub InitVars() Me.columngueltigAb = MyBase.Columns("gueltigAb") Me.columnbetrag = MyBase.Columns("betrag") Me.columnspeziell = MyBase.Columns("speziell") End Sub _ Private Sub InitClass() Me.columngueltigAb = New Global.System.Data.DataColumn("gueltigAb", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngueltigAb) Me.columnbetrag = New Global.System.Data.DataColumn("betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbetrag) Me.columnspeziell = New Global.System.Data.DataColumn("speziell", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnspeziell) Me.columngueltigAb.AllowDBNull = false Me.columnbetrag.AllowDBNull = false Me.columnspeziell.AllowDBNull = false End Sub _ Public Function NewtblVermarktungsnormenGebuehrenRow() As tblVermarktungsnormenGebuehrenRow Return CType(Me.NewRow,tblVermarktungsnormenGebuehrenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblVermarktungsnormenGebuehrenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblVermarktungsnormenGebuehrenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblVermarktungsnormenGebuehrenRowChangedEvent) Is Nothing) Then RaiseEvent tblVermarktungsnormenGebuehrenRowChanged(Me, New tblVermarktungsnormenGebuehrenRowChangeEvent(CType(e.Row,tblVermarktungsnormenGebuehrenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblVermarktungsnormenGebuehrenRowChangingEvent) Is Nothing) Then RaiseEvent tblVermarktungsnormenGebuehrenRowChanging(Me, New tblVermarktungsnormenGebuehrenRowChangeEvent(CType(e.Row,tblVermarktungsnormenGebuehrenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblVermarktungsnormenGebuehrenRowDeletedEvent) Is Nothing) Then RaiseEvent tblVermarktungsnormenGebuehrenRowDeleted(Me, New tblVermarktungsnormenGebuehrenRowChangeEvent(CType(e.Row,tblVermarktungsnormenGebuehrenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblVermarktungsnormenGebuehrenRowDeletingEvent) Is Nothing) Then RaiseEvent tblVermarktungsnormenGebuehrenRowDeleting(Me, New tblVermarktungsnormenGebuehrenRowChangeEvent(CType(e.Row,tblVermarktungsnormenGebuehrenRow), e.Action)) End If End Sub _ Public Sub RemovetblVermarktungsnormenGebuehrenRow(ByVal row As tblVermarktungsnormenGebuehrenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblVermarktungsnormenGebuehrenDataTable" 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 tblVorauskassenDataTable Inherits Global.System.Data.TypedTableBase(Of tblVorauskassenRow) Private columnvk_id As Global.System.Data.DataColumn Private columnvk_FilialeNr As Global.System.Data.DataColumn Private columnvk_AbfertigungsNr As Global.System.Data.DataColumn Private columnvk_Datum As Global.System.Data.DataColumn Private columnvk_LKW As Global.System.Data.DataColumn Private columnvk_KdNr As Global.System.Data.DataColumn Private columnvk_Firma As Global.System.Data.DataColumn Private columnvk_Betrag As Global.System.Data.DataColumn Private columnvk_QS_SachbearbeiterId As Global.System.Data.DataColumn Private columnvk_QS_Sachbearbeiter As Global.System.Data.DataColumn Private columnvk_QS_Bemerkung As Global.System.Data.DataColumn Private columnvk_GeldEingetroffen As Global.System.Data.DataColumn Private columnvk_BH_SachbearbeiterId As Global.System.Data.DataColumn Private columnvk_BH_Sachbearbeiter As Global.System.Data.DataColumn Private columnvk_BH_Bemerkung As Global.System.Data.DataColumn Private columnvk_BH_DatumGeldeingang As Global.System.Data.DataColumn Private columnvk_storno As Global.System.Data.DataColumn Private columnvk_stornoDatum As Global.System.Data.DataColumn Private columnvk_Rolle As Global.System.Data.DataColumn Private columnvk_Anrede As Global.System.Data.DataColumn Private columnvk_Firmenwortlauf As Global.System.Data.DataColumn Private columnvk_Aresse1 As Global.System.Data.DataColumn Private columnvk_Adresse2 As Global.System.Data.DataColumn Private columnvk_UID As Global.System.Data.DataColumn Private columnvk_EORI As Global.System.Data.DataColumn Private columnvk_Tel As Global.System.Data.DataColumn Private columnvk_Fax As Global.System.Data.DataColumn Private columnvk_Email As Global.System.Data.DataColumn Private columnvk_RgNr As Global.System.Data.DataColumn Private columnvk_Absender As Global.System.Data.DataColumn Private columnvk_ATREUR1 As Global.System.Data.DataColumn Private columnvk_Fraechter As Global.System.Data.DataColumn Private columnvk_Anzahl As Global.System.Data.DataColumn Private columnvk_Warenbezeichnung As Global.System.Data.DataColumn Private columnvk_Colli As Global.System.Data.DataColumn Private columnvk_FaStNr As Global.System.Data.DataColumn Private columnvk_Berechnung_Rechnungsbetrag As Global.System.Data.DataColumn Private columnvk_Berechnung_FrachtkostAusland As Global.System.Data.DataColumn Private columnvk_Berechnung_ZollProz As Global.System.Data.DataColumn Private columnvk_Berechnung_FrachtkostInland As Global.System.Data.DataColumn Private columnvk_Berechnung_AbgabenSonst_Bez As Global.System.Data.DataColumn Private columnvk_Berechnung_AbgabenSonst_Betrag As Global.System.Data.DataColumn Private columnvk_Berechnung_EUSTProz As Global.System.Data.DataColumn Private columnvk_Berechnung_KostenSonst_Bez As Global.System.Data.DataColumn Private columnvk_Berechnung_KostenSonst_Betrag As Global.System.Data.DataColumn Private columnvk_Berechnung_Verzollung As Global.System.Data.DataColumn Private columnvk_Berechnung_jeWeitere As Global.System.Data.DataColumn Private columnvk_Berechnung_ATLAS As Global.System.Data.DataColumn Private columnvk_Berechnung_Clearing As Global.System.Data.DataColumn Private columnvk_Berechnung_korrRg As Global.System.Data.DataColumn Private columnvk_Berechnung_Übersetzung As Global.System.Data.DataColumn Private columnvk_Berechnung_Aviso As Global.System.Data.DataColumn Private columnvk_Berechnung_SVS As Global.System.Data.DataColumn Private columnvk_Berechnung_SonstigeKosten As Global.System.Data.DataColumn Private columnvk_Berechnung_SonstigeKostenText As Global.System.Data.DataColumn Private columnvk_Berechnung_PP As Global.System.Data.DataColumn Private columnvk_Freigegeben As Global.System.Data.DataColumn Private columnvk_SendungId As Global.System.Data.DataColumn Private columnvk_AvisoId As Global.System.Data.DataColumn Private columnvk_VermerkId As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblVorauskassen" 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 vk_idColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_id End Get End Property _ Public ReadOnly Property vk_FilialeNrColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_FilialeNr End Get End Property _ Public ReadOnly Property vk_AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_AbfertigungsNr End Get End Property _ Public ReadOnly Property vk_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Datum End Get End Property _ Public ReadOnly Property vk_LKWColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_LKW End Get End Property _ Public ReadOnly Property vk_KdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_KdNr End Get End Property _ Public ReadOnly Property vk_FirmaColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Firma End Get End Property _ Public ReadOnly Property vk_BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Betrag End Get End Property _ Public ReadOnly Property vk_QS_SachbearbeiterIdColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_QS_SachbearbeiterId End Get End Property _ Public ReadOnly Property vk_QS_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_QS_Sachbearbeiter End Get End Property _ Public ReadOnly Property vk_QS_BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_QS_Bemerkung End Get End Property _ Public ReadOnly Property vk_GeldEingetroffenColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_GeldEingetroffen End Get End Property _ Public ReadOnly Property vk_BH_SachbearbeiterIdColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_BH_SachbearbeiterId End Get End Property _ Public ReadOnly Property vk_BH_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_BH_Sachbearbeiter End Get End Property _ Public ReadOnly Property vk_BH_BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_BH_Bemerkung End Get End Property _ Public ReadOnly Property vk_BH_DatumGeldeingangColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_BH_DatumGeldeingang End Get End Property _ Public ReadOnly Property vk_stornoColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_storno End Get End Property _ Public ReadOnly Property vk_stornoDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_stornoDatum End Get End Property _ Public ReadOnly Property vk_RolleColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Rolle End Get End Property _ Public ReadOnly Property vk_AnredeColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Anrede End Get End Property _ Public ReadOnly Property vk_FirmenwortlaufColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Firmenwortlauf End Get End Property _ Public ReadOnly Property vk_Aresse1Column() As Global.System.Data.DataColumn Get Return Me.columnvk_Aresse1 End Get End Property _ Public ReadOnly Property vk_Adresse2Column() As Global.System.Data.DataColumn Get Return Me.columnvk_Adresse2 End Get End Property _ Public ReadOnly Property vk_UIDColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_UID End Get End Property _ Public ReadOnly Property vk_EORIColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_EORI End Get End Property _ Public ReadOnly Property vk_TelColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Tel End Get End Property _ Public ReadOnly Property vk_FaxColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Fax End Get End Property _ Public ReadOnly Property vk_EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Email End Get End Property _ Public ReadOnly Property vk_RgNrColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_RgNr End Get End Property _ Public ReadOnly Property vk_AbsenderColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Absender End Get End Property _ Public ReadOnly Property vk_ATREUR1Column() As Global.System.Data.DataColumn Get Return Me.columnvk_ATREUR1 End Get End Property _ Public ReadOnly Property vk_FraechterColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Fraechter End Get End Property _ Public ReadOnly Property vk_AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Anzahl End Get End Property _ Public ReadOnly Property vk_WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Warenbezeichnung End Get End Property _ Public ReadOnly Property vk_ColliColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Colli End Get End Property _ Public ReadOnly Property vk_FaStNrColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_FaStNr End Get End Property _ Public ReadOnly Property vk_Berechnung_RechnungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_Rechnungsbetrag End Get End Property _ Public ReadOnly Property vk_Berechnung_FrachtkostAuslandColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_FrachtkostAusland End Get End Property _ Public ReadOnly Property vk_Berechnung_ZollProzColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_ZollProz End Get End Property _ Public ReadOnly Property vk_Berechnung_FrachtkostInlandColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_FrachtkostInland End Get End Property _ Public ReadOnly Property vk_Berechnung_AbgabenSonst_BezColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_AbgabenSonst_Bez End Get End Property _ Public ReadOnly Property vk_Berechnung_AbgabenSonst_BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_AbgabenSonst_Betrag End Get End Property _ Public ReadOnly Property vk_Berechnung_EUSTProzColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_EUSTProz End Get End Property _ Public ReadOnly Property vk_Berechnung_KostenSonst_BezColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_KostenSonst_Bez End Get End Property _ Public ReadOnly Property vk_Berechnung_KostenSonst_BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_KostenSonst_Betrag End Get End Property _ Public ReadOnly Property vk_Berechnung_VerzollungColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_Verzollung End Get End Property _ Public ReadOnly Property vk_Berechnung_jeWeitereColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_jeWeitere End Get End Property _ Public ReadOnly Property vk_Berechnung_ATLASColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_ATLAS End Get End Property _ Public ReadOnly Property vk_Berechnung_ClearingColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_Clearing End Get End Property _ Public ReadOnly Property vk_Berechnung_korrRgColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_korrRg End Get End Property _ Public ReadOnly Property vk_Berechnung_ÜbersetzungColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_Übersetzung End Get End Property _ Public ReadOnly Property vk_Berechnung_AvisoColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_Aviso End Get End Property _ Public ReadOnly Property vk_Berechnung_SVSColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_SVS End Get End Property _ Public ReadOnly Property vk_Berechnung_SonstigeKostenColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_SonstigeKosten End Get End Property _ Public ReadOnly Property vk_Berechnung_SonstigeKostenTextColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_SonstigeKostenText End Get End Property _ Public ReadOnly Property vk_Berechnung_PPColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Berechnung_PP End Get End Property _ Public ReadOnly Property vk_FreigegebenColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_Freigegeben End Get End Property _ Public ReadOnly Property vk_SendungIdColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_SendungId End Get End Property _ Public ReadOnly Property vk_AvisoIdColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_AvisoId End Get End Property _ Public ReadOnly Property vk_VermerkIdColumn() As Global.System.Data.DataColumn Get Return Me.columnvk_VermerkId 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 tblVorauskassenRow Get Return CType(Me.Rows(index),tblVorauskassenRow) End Get End Property _ Public Event tblVorauskassenRowChanging As tblVorauskassenRowChangeEventHandler _ Public Event tblVorauskassenRowChanged As tblVorauskassenRowChangeEventHandler _ Public Event tblVorauskassenRowDeleting As tblVorauskassenRowChangeEventHandler _ Public Event tblVorauskassenRowDeleted As tblVorauskassenRowChangeEventHandler _ Public Overloads Sub AddtblVorauskassenRow(ByVal row As tblVorauskassenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblVorauskassenRow( _ ByVal vk_FilialeNr As Integer, _ ByVal vk_AbfertigungsNr As Integer, _ ByVal vk_Datum As Date, _ ByVal vk_LKW As String, _ ByVal vk_KdNr As Integer, _ ByVal vk_Firma As String, _ ByVal vk_Betrag As Decimal, _ ByVal vk_QS_SachbearbeiterId As Integer, _ ByVal vk_QS_Sachbearbeiter As String, _ ByVal vk_QS_Bemerkung As String, _ ByVal vk_GeldEingetroffen As Boolean, _ ByVal vk_BH_SachbearbeiterId As Integer, _ ByVal vk_BH_Sachbearbeiter As String, _ ByVal vk_BH_Bemerkung As String, _ ByVal vk_BH_DatumGeldeingang As Date, _ ByVal vk_storno As Boolean, _ ByVal vk_stornoDatum As Date, _ ByVal vk_Rolle As String, _ ByVal vk_Anrede As String, _ ByVal vk_Firmenwortlauf As String, _ ByVal vk_Aresse1 As String, _ ByVal vk_Adresse2 As String, _ ByVal vk_UID As String, _ ByVal vk_EORI As String, _ ByVal vk_Tel As String, _ ByVal vk_Fax As String, _ ByVal vk_Email As String, _ ByVal vk_RgNr As String, _ ByVal vk_Absender As String, _ ByVal vk_ATREUR1 As String, _ ByVal vk_Fraechter As String, _ ByVal vk_Anzahl As String, _ ByVal vk_Warenbezeichnung As String, _ ByVal vk_Colli As String, _ ByVal vk_FaStNr As String, _ ByVal vk_Berechnung_Rechnungsbetrag As Double, _ ByVal vk_Berechnung_FrachtkostAusland As Double, _ ByVal vk_Berechnung_ZollProz As Double, _ ByVal vk_Berechnung_FrachtkostInland As Double, _ ByVal vk_Berechnung_AbgabenSonst_Bez As String, _ ByVal vk_Berechnung_AbgabenSonst_Betrag As Double, _ ByVal vk_Berechnung_EUSTProz As Double, _ ByVal vk_Berechnung_KostenSonst_Bez As String, _ ByVal vk_Berechnung_KostenSonst_Betrag As Double, _ ByVal vk_Berechnung_Verzollung As Double, _ ByVal vk_Berechnung_jeWeitere As Double, _ ByVal vk_Berechnung_ATLAS As Double, _ ByVal vk_Berechnung_Clearing As Double, _ ByVal vk_Berechnung_korrRg As Double, _ ByVal vk_Berechnung_Übersetzung As Double, _ ByVal vk_Berechnung_Aviso As Double, _ ByVal vk_Berechnung_SVS As Double, _ ByVal vk_Berechnung_SonstigeKosten As Double, _ ByVal vk_Berechnung_SonstigeKostenText As String, _ ByVal vk_Berechnung_PP As Double, _ ByVal vk_Freigegeben As Boolean, _ ByVal vk_SendungId As Integer, _ ByVal vk_AvisoId As Integer, _ ByVal vk_VermerkId As Integer) As tblVorauskassenRow Dim rowtblVorauskassenRow As tblVorauskassenRow = CType(Me.NewRow,tblVorauskassenRow) Dim columnValuesArray() As Object = New Object() {Nothing, vk_FilialeNr, vk_AbfertigungsNr, vk_Datum, vk_LKW, vk_KdNr, vk_Firma, vk_Betrag, vk_QS_SachbearbeiterId, vk_QS_Sachbearbeiter, vk_QS_Bemerkung, vk_GeldEingetroffen, vk_BH_SachbearbeiterId, vk_BH_Sachbearbeiter, vk_BH_Bemerkung, vk_BH_DatumGeldeingang, vk_storno, vk_stornoDatum, vk_Rolle, vk_Anrede, vk_Firmenwortlauf, vk_Aresse1, vk_Adresse2, vk_UID, vk_EORI, vk_Tel, vk_Fax, vk_Email, vk_RgNr, vk_Absender, vk_ATREUR1, vk_Fraechter, vk_Anzahl, vk_Warenbezeichnung, vk_Colli, vk_FaStNr, vk_Berechnung_Rechnungsbetrag, vk_Berechnung_FrachtkostAusland, vk_Berechnung_ZollProz, vk_Berechnung_FrachtkostInland, vk_Berechnung_AbgabenSonst_Bez, vk_Berechnung_AbgabenSonst_Betrag, vk_Berechnung_EUSTProz, vk_Berechnung_KostenSonst_Bez, vk_Berechnung_KostenSonst_Betrag, vk_Berechnung_Verzollung, vk_Berechnung_jeWeitere, vk_Berechnung_ATLAS, vk_Berechnung_Clearing, vk_Berechnung_korrRg, vk_Berechnung_Übersetzung, vk_Berechnung_Aviso, vk_Berechnung_SVS, vk_Berechnung_SonstigeKosten, vk_Berechnung_SonstigeKostenText, vk_Berechnung_PP, vk_Freigegeben, vk_SendungId, vk_AvisoId, vk_VermerkId} rowtblVorauskassenRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblVorauskassenRow) Return rowtblVorauskassenRow End Function _ Public Function FindByvk_id(ByVal vk_id As Integer) As tblVorauskassenRow Return CType(Me.Rows.Find(New Object() {vk_id}),tblVorauskassenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblVorauskassenDataTable = CType(MyBase.Clone,tblVorauskassenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblVorauskassenDataTable() End Function _ Friend Sub InitVars() Me.columnvk_id = MyBase.Columns("vk_id") Me.columnvk_FilialeNr = MyBase.Columns("vk_FilialeNr") Me.columnvk_AbfertigungsNr = MyBase.Columns("vk_AbfertigungsNr") Me.columnvk_Datum = MyBase.Columns("vk_Datum") Me.columnvk_LKW = MyBase.Columns("vk_LKW") Me.columnvk_KdNr = MyBase.Columns("vk_KdNr") Me.columnvk_Firma = MyBase.Columns("vk_Firma") Me.columnvk_Betrag = MyBase.Columns("vk_Betrag") Me.columnvk_QS_SachbearbeiterId = MyBase.Columns("vk_QS_SachbearbeiterId") Me.columnvk_QS_Sachbearbeiter = MyBase.Columns("vk_QS_Sachbearbeiter") Me.columnvk_QS_Bemerkung = MyBase.Columns("vk_QS_Bemerkung") Me.columnvk_GeldEingetroffen = MyBase.Columns("vk_GeldEingetroffen") Me.columnvk_BH_SachbearbeiterId = MyBase.Columns("vk_BH_SachbearbeiterId") Me.columnvk_BH_Sachbearbeiter = MyBase.Columns("vk_BH_Sachbearbeiter") Me.columnvk_BH_Bemerkung = MyBase.Columns("vk_BH_Bemerkung") Me.columnvk_BH_DatumGeldeingang = MyBase.Columns("vk_BH_DatumGeldeingang") Me.columnvk_storno = MyBase.Columns("vk_storno") Me.columnvk_stornoDatum = MyBase.Columns("vk_stornoDatum") Me.columnvk_Rolle = MyBase.Columns("vk_Rolle") Me.columnvk_Anrede = MyBase.Columns("vk_Anrede") Me.columnvk_Firmenwortlauf = MyBase.Columns("vk_Firmenwortlauf") Me.columnvk_Aresse1 = MyBase.Columns("vk_Aresse1") Me.columnvk_Adresse2 = MyBase.Columns("vk_Adresse2") Me.columnvk_UID = MyBase.Columns("vk_UID") Me.columnvk_EORI = MyBase.Columns("vk_EORI") Me.columnvk_Tel = MyBase.Columns("vk_Tel") Me.columnvk_Fax = MyBase.Columns("vk_Fax") Me.columnvk_Email = MyBase.Columns("vk_Email") Me.columnvk_RgNr = MyBase.Columns("vk_RgNr") Me.columnvk_Absender = MyBase.Columns("vk_Absender") Me.columnvk_ATREUR1 = MyBase.Columns("vk_ATREUR1") Me.columnvk_Fraechter = MyBase.Columns("vk_Fraechter") Me.columnvk_Anzahl = MyBase.Columns("vk_Anzahl") Me.columnvk_Warenbezeichnung = MyBase.Columns("vk_Warenbezeichnung") Me.columnvk_Colli = MyBase.Columns("vk_Colli") Me.columnvk_FaStNr = MyBase.Columns("vk_FaStNr") Me.columnvk_Berechnung_Rechnungsbetrag = MyBase.Columns("vk_Berechnung_Rechnungsbetrag") Me.columnvk_Berechnung_FrachtkostAusland = MyBase.Columns("vk_Berechnung_FrachtkostAusland") Me.columnvk_Berechnung_ZollProz = MyBase.Columns("vk_Berechnung_ZollProz") Me.columnvk_Berechnung_FrachtkostInland = MyBase.Columns("vk_Berechnung_FrachtkostInland") Me.columnvk_Berechnung_AbgabenSonst_Bez = MyBase.Columns("vk_Berechnung_AbgabenSonst_Bez") Me.columnvk_Berechnung_AbgabenSonst_Betrag = MyBase.Columns("vk_Berechnung_AbgabenSonst_Betrag") Me.columnvk_Berechnung_EUSTProz = MyBase.Columns("vk_Berechnung_EUSTProz") Me.columnvk_Berechnung_KostenSonst_Bez = MyBase.Columns("vk_Berechnung_KostenSonst_Bez") Me.columnvk_Berechnung_KostenSonst_Betrag = MyBase.Columns("vk_Berechnung_KostenSonst_Betrag") Me.columnvk_Berechnung_Verzollung = MyBase.Columns("vk_Berechnung_Verzollung") Me.columnvk_Berechnung_jeWeitere = MyBase.Columns("vk_Berechnung_jeWeitere") Me.columnvk_Berechnung_ATLAS = MyBase.Columns("vk_Berechnung_ATLAS") Me.columnvk_Berechnung_Clearing = MyBase.Columns("vk_Berechnung_Clearing") Me.columnvk_Berechnung_korrRg = MyBase.Columns("vk_Berechnung_korrRg") Me.columnvk_Berechnung_Übersetzung = MyBase.Columns("vk_Berechnung_Übersetzung") Me.columnvk_Berechnung_Aviso = MyBase.Columns("vk_Berechnung_Aviso") Me.columnvk_Berechnung_SVS = MyBase.Columns("vk_Berechnung_SVS") Me.columnvk_Berechnung_SonstigeKosten = MyBase.Columns("vk_Berechnung_SonstigeKosten") Me.columnvk_Berechnung_SonstigeKostenText = MyBase.Columns("vk_Berechnung_SonstigeKostenText") Me.columnvk_Berechnung_PP = MyBase.Columns("vk_Berechnung_PP") Me.columnvk_Freigegeben = MyBase.Columns("vk_Freigegeben") Me.columnvk_SendungId = MyBase.Columns("vk_SendungId") Me.columnvk_AvisoId = MyBase.Columns("vk_AvisoId") Me.columnvk_VermerkId = MyBase.Columns("vk_VermerkId") End Sub _ Private Sub InitClass() Me.columnvk_id = New Global.System.Data.DataColumn("vk_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_id) Me.columnvk_FilialeNr = New Global.System.Data.DataColumn("vk_FilialeNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_FilialeNr) Me.columnvk_AbfertigungsNr = New Global.System.Data.DataColumn("vk_AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_AbfertigungsNr) Me.columnvk_Datum = New Global.System.Data.DataColumn("vk_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Datum) Me.columnvk_LKW = New Global.System.Data.DataColumn("vk_LKW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_LKW) Me.columnvk_KdNr = New Global.System.Data.DataColumn("vk_KdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_KdNr) Me.columnvk_Firma = New Global.System.Data.DataColumn("vk_Firma", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Firma) Me.columnvk_Betrag = New Global.System.Data.DataColumn("vk_Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Betrag) Me.columnvk_QS_SachbearbeiterId = New Global.System.Data.DataColumn("vk_QS_SachbearbeiterId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_QS_SachbearbeiterId) Me.columnvk_QS_Sachbearbeiter = New Global.System.Data.DataColumn("vk_QS_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_QS_Sachbearbeiter) Me.columnvk_QS_Bemerkung = New Global.System.Data.DataColumn("vk_QS_Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_QS_Bemerkung) Me.columnvk_GeldEingetroffen = New Global.System.Data.DataColumn("vk_GeldEingetroffen", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_GeldEingetroffen) Me.columnvk_BH_SachbearbeiterId = New Global.System.Data.DataColumn("vk_BH_SachbearbeiterId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_BH_SachbearbeiterId) Me.columnvk_BH_Sachbearbeiter = New Global.System.Data.DataColumn("vk_BH_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_BH_Sachbearbeiter) Me.columnvk_BH_Bemerkung = New Global.System.Data.DataColumn("vk_BH_Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_BH_Bemerkung) Me.columnvk_BH_DatumGeldeingang = New Global.System.Data.DataColumn("vk_BH_DatumGeldeingang", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_BH_DatumGeldeingang) Me.columnvk_storno = New Global.System.Data.DataColumn("vk_storno", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_storno) Me.columnvk_stornoDatum = New Global.System.Data.DataColumn("vk_stornoDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_stornoDatum) Me.columnvk_Rolle = New Global.System.Data.DataColumn("vk_Rolle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Rolle) Me.columnvk_Anrede = New Global.System.Data.DataColumn("vk_Anrede", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Anrede) Me.columnvk_Firmenwortlauf = New Global.System.Data.DataColumn("vk_Firmenwortlauf", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Firmenwortlauf) Me.columnvk_Aresse1 = New Global.System.Data.DataColumn("vk_Aresse1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Aresse1) Me.columnvk_Adresse2 = New Global.System.Data.DataColumn("vk_Adresse2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Adresse2) Me.columnvk_UID = New Global.System.Data.DataColumn("vk_UID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_UID) Me.columnvk_EORI = New Global.System.Data.DataColumn("vk_EORI", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_EORI) Me.columnvk_Tel = New Global.System.Data.DataColumn("vk_Tel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Tel) Me.columnvk_Fax = New Global.System.Data.DataColumn("vk_Fax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Fax) Me.columnvk_Email = New Global.System.Data.DataColumn("vk_Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Email) Me.columnvk_RgNr = New Global.System.Data.DataColumn("vk_RgNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_RgNr) Me.columnvk_Absender = New Global.System.Data.DataColumn("vk_Absender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Absender) Me.columnvk_ATREUR1 = New Global.System.Data.DataColumn("vk_ATREUR1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_ATREUR1) Me.columnvk_Fraechter = New Global.System.Data.DataColumn("vk_Fraechter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Fraechter) Me.columnvk_Anzahl = New Global.System.Data.DataColumn("vk_Anzahl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Anzahl) Me.columnvk_Warenbezeichnung = New Global.System.Data.DataColumn("vk_Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Warenbezeichnung) Me.columnvk_Colli = New Global.System.Data.DataColumn("vk_Colli", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Colli) Me.columnvk_FaStNr = New Global.System.Data.DataColumn("vk_FaStNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_FaStNr) Me.columnvk_Berechnung_Rechnungsbetrag = New Global.System.Data.DataColumn("vk_Berechnung_Rechnungsbetrag", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_Rechnungsbetrag) Me.columnvk_Berechnung_FrachtkostAusland = New Global.System.Data.DataColumn("vk_Berechnung_FrachtkostAusland", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_FrachtkostAusland) Me.columnvk_Berechnung_ZollProz = New Global.System.Data.DataColumn("vk_Berechnung_ZollProz", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_ZollProz) Me.columnvk_Berechnung_FrachtkostInland = New Global.System.Data.DataColumn("vk_Berechnung_FrachtkostInland", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_FrachtkostInland) Me.columnvk_Berechnung_AbgabenSonst_Bez = New Global.System.Data.DataColumn("vk_Berechnung_AbgabenSonst_Bez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_AbgabenSonst_Bez) Me.columnvk_Berechnung_AbgabenSonst_Betrag = New Global.System.Data.DataColumn("vk_Berechnung_AbgabenSonst_Betrag", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_AbgabenSonst_Betrag) Me.columnvk_Berechnung_EUSTProz = New Global.System.Data.DataColumn("vk_Berechnung_EUSTProz", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_EUSTProz) Me.columnvk_Berechnung_KostenSonst_Bez = New Global.System.Data.DataColumn("vk_Berechnung_KostenSonst_Bez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_KostenSonst_Bez) Me.columnvk_Berechnung_KostenSonst_Betrag = New Global.System.Data.DataColumn("vk_Berechnung_KostenSonst_Betrag", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_KostenSonst_Betrag) Me.columnvk_Berechnung_Verzollung = New Global.System.Data.DataColumn("vk_Berechnung_Verzollung", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_Verzollung) Me.columnvk_Berechnung_jeWeitere = New Global.System.Data.DataColumn("vk_Berechnung_jeWeitere", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_jeWeitere) Me.columnvk_Berechnung_ATLAS = New Global.System.Data.DataColumn("vk_Berechnung_ATLAS", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_ATLAS) Me.columnvk_Berechnung_Clearing = New Global.System.Data.DataColumn("vk_Berechnung_Clearing", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_Clearing) Me.columnvk_Berechnung_korrRg = New Global.System.Data.DataColumn("vk_Berechnung_korrRg", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_korrRg) Me.columnvk_Berechnung_Übersetzung = New Global.System.Data.DataColumn("vk_Berechnung_Übersetzung", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_Übersetzung) Me.columnvk_Berechnung_Aviso = New Global.System.Data.DataColumn("vk_Berechnung_Aviso", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_Aviso) Me.columnvk_Berechnung_SVS = New Global.System.Data.DataColumn("vk_Berechnung_SVS", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_SVS) Me.columnvk_Berechnung_SonstigeKosten = New Global.System.Data.DataColumn("vk_Berechnung_SonstigeKosten", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_SonstigeKosten) Me.columnvk_Berechnung_SonstigeKostenText = New Global.System.Data.DataColumn("vk_Berechnung_SonstigeKostenText", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_SonstigeKostenText) Me.columnvk_Berechnung_PP = New Global.System.Data.DataColumn("vk_Berechnung_PP", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Berechnung_PP) Me.columnvk_Freigegeben = New Global.System.Data.DataColumn("vk_Freigegeben", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_Freigegeben) Me.columnvk_SendungId = New Global.System.Data.DataColumn("vk_SendungId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_SendungId) Me.columnvk_AvisoId = New Global.System.Data.DataColumn("vk_AvisoId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_AvisoId) Me.columnvk_VermerkId = New Global.System.Data.DataColumn("vk_VermerkId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvk_VermerkId) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnvk_id}, true)) Me.columnvk_id.AutoIncrement = true Me.columnvk_id.AutoIncrementSeed = -1 Me.columnvk_id.AutoIncrementStep = -1 Me.columnvk_id.AllowDBNull = false Me.columnvk_id.ReadOnly = true Me.columnvk_id.Unique = true Me.columnvk_Datum.AllowDBNull = false Me.columnvk_LKW.AllowDBNull = false Me.columnvk_LKW.MaxLength = 200 Me.columnvk_Firma.AllowDBNull = false Me.columnvk_Firma.MaxLength = 200 Me.columnvk_Betrag.AllowDBNull = false Me.columnvk_QS_SachbearbeiterId.AllowDBNull = false Me.columnvk_QS_Sachbearbeiter.AllowDBNull = false Me.columnvk_QS_Sachbearbeiter.MaxLength = 200 Me.columnvk_QS_Bemerkung.MaxLength = 500 Me.columnvk_GeldEingetroffen.AllowDBNull = false Me.columnvk_BH_Sachbearbeiter.MaxLength = 200 Me.columnvk_BH_Bemerkung.MaxLength = 500 Me.columnvk_storno.AllowDBNull = false Me.columnvk_Rolle.MaxLength = 200 Me.columnvk_Anrede.MaxLength = 200 Me.columnvk_Firmenwortlauf.MaxLength = 200 Me.columnvk_Aresse1.MaxLength = 200 Me.columnvk_Adresse2.MaxLength = 200 Me.columnvk_UID.MaxLength = 200 Me.columnvk_EORI.MaxLength = 200 Me.columnvk_Tel.MaxLength = 200 Me.columnvk_Fax.MaxLength = 200 Me.columnvk_Email.MaxLength = 200 Me.columnvk_RgNr.MaxLength = 200 Me.columnvk_Absender.MaxLength = 200 Me.columnvk_ATREUR1.MaxLength = 200 Me.columnvk_Fraechter.MaxLength = 200 Me.columnvk_Anzahl.MaxLength = 200 Me.columnvk_Warenbezeichnung.MaxLength = 200 Me.columnvk_Colli.MaxLength = 200 Me.columnvk_FaStNr.MaxLength = 200 Me.columnvk_Berechnung_AbgabenSonst_Bez.MaxLength = 200 Me.columnvk_Berechnung_KostenSonst_Bez.MaxLength = 200 Me.columnvk_Berechnung_SonstigeKostenText.MaxLength = 100 Me.columnvk_Freigegeben.AllowDBNull = false End Sub _ Public Function NewtblVorauskassenRow() As tblVorauskassenRow Return CType(Me.NewRow,tblVorauskassenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblVorauskassenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblVorauskassenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblVorauskassenRowChangedEvent) Is Nothing) Then RaiseEvent tblVorauskassenRowChanged(Me, New tblVorauskassenRowChangeEvent(CType(e.Row,tblVorauskassenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblVorauskassenRowChangingEvent) Is Nothing) Then RaiseEvent tblVorauskassenRowChanging(Me, New tblVorauskassenRowChangeEvent(CType(e.Row,tblVorauskassenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblVorauskassenRowDeletedEvent) Is Nothing) Then RaiseEvent tblVorauskassenRowDeleted(Me, New tblVorauskassenRowChangeEvent(CType(e.Row,tblVorauskassenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblVorauskassenRowDeletingEvent) Is Nothing) Then RaiseEvent tblVorauskassenRowDeleting(Me, New tblVorauskassenRowChangeEvent(CType(e.Row,tblVorauskassenRow), e.Action)) End If End Sub _ Public Sub RemovetblVorauskassenRow(ByVal row As tblVorauskassenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblVorauskassenDataTable" 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 tblWahrungtabelleNEUDataTable Inherits Global.System.Data.TypedTableBase(Of tblWahrungtabelleNEURow) Private columnfw_id As Global.System.Data.DataColumn Private columnfw_land As Global.System.Data.DataColumn Private columnfw_iso2 As Global.System.Data.DataColumn Private columnfw_kurswert As Global.System.Data.DataColumn Private columnfw_iso3 As Global.System.Data.DataColumn Private columnfw_importdatum As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblWahrungtabelleNEU" 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 fw_idColumn() As Global.System.Data.DataColumn Get Return Me.columnfw_id End Get End Property _ Public ReadOnly Property fw_landColumn() As Global.System.Data.DataColumn Get Return Me.columnfw_land End Get End Property _ Public ReadOnly Property fw_iso2Column() As Global.System.Data.DataColumn Get Return Me.columnfw_iso2 End Get End Property _ Public ReadOnly Property fw_kurswertColumn() As Global.System.Data.DataColumn Get Return Me.columnfw_kurswert End Get End Property _ Public ReadOnly Property fw_iso3Column() As Global.System.Data.DataColumn Get Return Me.columnfw_iso3 End Get End Property _ Public ReadOnly Property fw_importdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnfw_importdatum 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 tblWahrungtabelleNEURow Get Return CType(Me.Rows(index),tblWahrungtabelleNEURow) End Get End Property _ Public Event tblWahrungtabelleNEURowChanging As tblWahrungtabelleNEURowChangeEventHandler _ Public Event tblWahrungtabelleNEURowChanged As tblWahrungtabelleNEURowChangeEventHandler _ Public Event tblWahrungtabelleNEURowDeleting As tblWahrungtabelleNEURowChangeEventHandler _ Public Event tblWahrungtabelleNEURowDeleted As tblWahrungtabelleNEURowChangeEventHandler _ Public Overloads Sub AddtblWahrungtabelleNEURow(ByVal row As tblWahrungtabelleNEURow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblWahrungtabelleNEURow(ByVal fw_id As Integer, ByVal fw_land As String, ByVal fw_iso2 As String, ByVal fw_kurswert As Double, ByVal fw_iso3 As String, ByVal fw_importdatum As Date) As tblWahrungtabelleNEURow Dim rowtblWahrungtabelleNEURow As tblWahrungtabelleNEURow = CType(Me.NewRow,tblWahrungtabelleNEURow) Dim columnValuesArray() As Object = New Object() {fw_id, fw_land, fw_iso2, fw_kurswert, fw_iso3, fw_importdatum} rowtblWahrungtabelleNEURow.ItemArray = columnValuesArray Me.Rows.Add(rowtblWahrungtabelleNEURow) Return rowtblWahrungtabelleNEURow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblWahrungtabelleNEUDataTable = CType(MyBase.Clone,tblWahrungtabelleNEUDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblWahrungtabelleNEUDataTable() End Function _ Friend Sub InitVars() Me.columnfw_id = MyBase.Columns("fw_id") Me.columnfw_land = MyBase.Columns("fw_land") Me.columnfw_iso2 = MyBase.Columns("fw_iso2") Me.columnfw_kurswert = MyBase.Columns("fw_kurswert") Me.columnfw_iso3 = MyBase.Columns("fw_iso3") Me.columnfw_importdatum = MyBase.Columns("fw_importdatum") End Sub _ Private Sub InitClass() Me.columnfw_id = New Global.System.Data.DataColumn("fw_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_id) Me.columnfw_land = New Global.System.Data.DataColumn("fw_land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_land) Me.columnfw_iso2 = New Global.System.Data.DataColumn("fw_iso2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_iso2) Me.columnfw_kurswert = New Global.System.Data.DataColumn("fw_kurswert", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_kurswert) Me.columnfw_iso3 = New Global.System.Data.DataColumn("fw_iso3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_iso3) Me.columnfw_importdatum = New Global.System.Data.DataColumn("fw_importdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_importdatum) Me.columnfw_id.AllowDBNull = false Me.columnfw_land.AllowDBNull = false Me.columnfw_land.MaxLength = 50 Me.columnfw_iso2.AllowDBNull = false Me.columnfw_iso2.MaxLength = 2 Me.columnfw_kurswert.AllowDBNull = false Me.columnfw_iso3.AllowDBNull = false Me.columnfw_iso3.MaxLength = 3 Me.columnfw_importdatum.AllowDBNull = false End Sub _ Public Function NewtblWahrungtabelleNEURow() As tblWahrungtabelleNEURow Return CType(Me.NewRow,tblWahrungtabelleNEURow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblWahrungtabelleNEURow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblWahrungtabelleNEURow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblWahrungtabelleNEURowChangedEvent) Is Nothing) Then RaiseEvent tblWahrungtabelleNEURowChanged(Me, New tblWahrungtabelleNEURowChangeEvent(CType(e.Row,tblWahrungtabelleNEURow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblWahrungtabelleNEURowChangingEvent) Is Nothing) Then RaiseEvent tblWahrungtabelleNEURowChanging(Me, New tblWahrungtabelleNEURowChangeEvent(CType(e.Row,tblWahrungtabelleNEURow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblWahrungtabelleNEURowDeletedEvent) Is Nothing) Then RaiseEvent tblWahrungtabelleNEURowDeleted(Me, New tblWahrungtabelleNEURowChangeEvent(CType(e.Row,tblWahrungtabelleNEURow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblWahrungtabelleNEURowDeletingEvent) Is Nothing) Then RaiseEvent tblWahrungtabelleNEURowDeleting(Me, New tblWahrungtabelleNEURowChangeEvent(CType(e.Row,tblWahrungtabelleNEURow), e.Action)) End If End Sub _ Public Sub RemovetblWahrungtabelleNEURow(ByVal row As tblWahrungtabelleNEURow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblWahrungtabelleNEUDataTable" 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 tblWarenbezeichnungBegriffeDataTable Inherits Global.System.Data.TypedTableBase(Of tblWarenbezeichnungBegriffeRow) Private columnwb_id As Global.System.Data.DataColumn Private columnwb_begriff As Global.System.Data.DataColumn Private columnwb_beispiele As Global.System.Data.DataColumn Private columnwb_datum As Global.System.Data.DataColumn Private columnwb_Sachbearbeiter As Global.System.Data.DataColumn Private columnwb_SachbearbeiterId As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblWarenbezeichnungBegriffe" 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 wb_idColumn() As Global.System.Data.DataColumn Get Return Me.columnwb_id End Get End Property _ Public ReadOnly Property wb_begriffColumn() As Global.System.Data.DataColumn Get Return Me.columnwb_begriff End Get End Property _ Public ReadOnly Property wb_beispieleColumn() As Global.System.Data.DataColumn Get Return Me.columnwb_beispiele End Get End Property _ Public ReadOnly Property wb_datumColumn() As Global.System.Data.DataColumn Get Return Me.columnwb_datum End Get End Property _ Public ReadOnly Property wb_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnwb_Sachbearbeiter End Get End Property _ Public ReadOnly Property wb_SachbearbeiterIdColumn() As Global.System.Data.DataColumn Get Return Me.columnwb_SachbearbeiterId 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 tblWarenbezeichnungBegriffeRow Get Return CType(Me.Rows(index),tblWarenbezeichnungBegriffeRow) End Get End Property _ Public Event tblWarenbezeichnungBegriffeRowChanging As tblWarenbezeichnungBegriffeRowChangeEventHandler _ Public Event tblWarenbezeichnungBegriffeRowChanged As tblWarenbezeichnungBegriffeRowChangeEventHandler _ Public Event tblWarenbezeichnungBegriffeRowDeleting As tblWarenbezeichnungBegriffeRowChangeEventHandler _ Public Event tblWarenbezeichnungBegriffeRowDeleted As tblWarenbezeichnungBegriffeRowChangeEventHandler _ Public Overloads Sub AddtblWarenbezeichnungBegriffeRow(ByVal row As tblWarenbezeichnungBegriffeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblWarenbezeichnungBegriffeRow(ByVal wb_begriff As String, ByVal wb_beispiele As String, ByVal wb_datum As Date, ByVal wb_Sachbearbeiter As String, ByVal wb_SachbearbeiterId As Integer) As tblWarenbezeichnungBegriffeRow Dim rowtblWarenbezeichnungBegriffeRow As tblWarenbezeichnungBegriffeRow = CType(Me.NewRow,tblWarenbezeichnungBegriffeRow) Dim columnValuesArray() As Object = New Object() {Nothing, wb_begriff, wb_beispiele, wb_datum, wb_Sachbearbeiter, wb_SachbearbeiterId} rowtblWarenbezeichnungBegriffeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblWarenbezeichnungBegriffeRow) Return rowtblWarenbezeichnungBegriffeRow End Function _ Public Function FindBywb_id(ByVal wb_id As Integer) As tblWarenbezeichnungBegriffeRow Return CType(Me.Rows.Find(New Object() {wb_id}),tblWarenbezeichnungBegriffeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblWarenbezeichnungBegriffeDataTable = CType(MyBase.Clone,tblWarenbezeichnungBegriffeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblWarenbezeichnungBegriffeDataTable() End Function _ Friend Sub InitVars() Me.columnwb_id = MyBase.Columns("wb_id") Me.columnwb_begriff = MyBase.Columns("wb_begriff") Me.columnwb_beispiele = MyBase.Columns("wb_beispiele") Me.columnwb_datum = MyBase.Columns("wb_datum") Me.columnwb_Sachbearbeiter = MyBase.Columns("wb_Sachbearbeiter") Me.columnwb_SachbearbeiterId = MyBase.Columns("wb_SachbearbeiterId") End Sub _ Private Sub InitClass() Me.columnwb_id = New Global.System.Data.DataColumn("wb_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwb_id) Me.columnwb_begriff = New Global.System.Data.DataColumn("wb_begriff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwb_begriff) Me.columnwb_beispiele = New Global.System.Data.DataColumn("wb_beispiele", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwb_beispiele) Me.columnwb_datum = New Global.System.Data.DataColumn("wb_datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwb_datum) Me.columnwb_Sachbearbeiter = New Global.System.Data.DataColumn("wb_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwb_Sachbearbeiter) Me.columnwb_SachbearbeiterId = New Global.System.Data.DataColumn("wb_SachbearbeiterId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnwb_SachbearbeiterId) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnwb_id}, true)) Me.columnwb_id.AutoIncrement = true Me.columnwb_id.AutoIncrementSeed = -1 Me.columnwb_id.AutoIncrementStep = -1 Me.columnwb_id.AllowDBNull = false Me.columnwb_id.ReadOnly = true Me.columnwb_id.Unique = true Me.columnwb_begriff.AllowDBNull = false Me.columnwb_begriff.MaxLength = 250 Me.columnwb_beispiele.AllowDBNull = false Me.columnwb_beispiele.MaxLength = 2147483647 Me.columnwb_datum.AllowDBNull = false Me.columnwb_Sachbearbeiter.AllowDBNull = false Me.columnwb_Sachbearbeiter.MaxLength = 200 Me.columnwb_SachbearbeiterId.AllowDBNull = false End Sub _ Public Function NewtblWarenbezeichnungBegriffeRow() As tblWarenbezeichnungBegriffeRow Return CType(Me.NewRow,tblWarenbezeichnungBegriffeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblWarenbezeichnungBegriffeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblWarenbezeichnungBegriffeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblWarenbezeichnungBegriffeRowChangedEvent) Is Nothing) Then RaiseEvent tblWarenbezeichnungBegriffeRowChanged(Me, New tblWarenbezeichnungBegriffeRowChangeEvent(CType(e.Row,tblWarenbezeichnungBegriffeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblWarenbezeichnungBegriffeRowChangingEvent) Is Nothing) Then RaiseEvent tblWarenbezeichnungBegriffeRowChanging(Me, New tblWarenbezeichnungBegriffeRowChangeEvent(CType(e.Row,tblWarenbezeichnungBegriffeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblWarenbezeichnungBegriffeRowDeletedEvent) Is Nothing) Then RaiseEvent tblWarenbezeichnungBegriffeRowDeleted(Me, New tblWarenbezeichnungBegriffeRowChangeEvent(CType(e.Row,tblWarenbezeichnungBegriffeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblWarenbezeichnungBegriffeRowDeletingEvent) Is Nothing) Then RaiseEvent tblWarenbezeichnungBegriffeRowDeleting(Me, New tblWarenbezeichnungBegriffeRowChangeEvent(CType(e.Row,tblWarenbezeichnungBegriffeRow), e.Action)) End If End Sub _ Public Sub RemovetblWarenbezeichnungBegriffeRow(ByVal row As tblWarenbezeichnungBegriffeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblWarenbezeichnungBegriffeDataTable" 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 tblZabis_Atlas_NCTSDataTable Inherits Global.System.Data.TypedTableBase(Of tblZabis_Atlas_NCTSRow) Private columnID_NCTS As Global.System.Data.DataColumn Private columnbasman_nr As Global.System.Data.DataColumn Private columnbasman_nl As Global.System.Data.DataColumn Private columnveoant_beznr As Global.System.Data.DataColumn Private columnveoant_lfdnr As Global.System.Data.DataColumn Private columnveoant_stat As Global.System.Data.DataColumn Private columnveoant_arbnr As Global.System.Data.DataColumn Private columnveoant_mrn As Global.System.Data.DataColumn Private columnveoant_abgdst As Global.System.Data.DataColumn Private columnveoant_bedst As Global.System.Data.DataColumn Private columnveoant_wgdat As Global.System.Data.DataColumn Private columnveoant_anzpos As Global.System.Data.DataColumn Private columnveoant_andat As Global.System.Data.DataColumn Private columnveoant_korant As Global.System.Data.DataColumn Private columnveoant_vrbdat As Global.System.Data.DataColumn Private columnveoant_sb As Global.System.Data.DataColumn Private columnveopos_posnr As Global.System.Data.DataColumn Private columnveopos_stat As Global.System.Data.DataColumn Private columnveopos_wbsch1 As Global.System.Data.DataColumn Private columnveopos_rohmas As Global.System.Data.DataColumn Private columnveoerz_sicbsc As Global.System.Data.DataColumn Private columnveoerz_basbtg As Global.System.Data.DataColumn Private columnveoerz_sicbtg As Global.System.Data.DataColumn Private columnvegdat_erldat As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnHistory As Global.System.Data.DataColumn Private columnveoadr_name1 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblZabis_Atlas_NCTS" 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 ID_NCTSColumn() As Global.System.Data.DataColumn Get Return Me.columnID_NCTS End Get End Property _ Public ReadOnly Property basman_nrColumn() As Global.System.Data.DataColumn Get Return Me.columnbasman_nr End Get End Property _ Public ReadOnly Property basman_nlColumn() As Global.System.Data.DataColumn Get Return Me.columnbasman_nl End Get End Property _ Public ReadOnly Property veoant_beznrColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_beznr End Get End Property _ Public ReadOnly Property veoant_lfdnrColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_lfdnr End Get End Property _ Public ReadOnly Property veoant_statColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_stat End Get End Property _ Public ReadOnly Property veoant_arbnrColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_arbnr End Get End Property _ Public ReadOnly Property veoant_mrnColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_mrn End Get End Property _ Public ReadOnly Property veoant_abgdstColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_abgdst End Get End Property _ Public ReadOnly Property veoant_bedstColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_bedst End Get End Property _ Public ReadOnly Property veoant_wgdatColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_wgdat End Get End Property _ Public ReadOnly Property veoant_anzposColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_anzpos End Get End Property _ Public ReadOnly Property veoant_andatColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_andat End Get End Property _ Public ReadOnly Property veoant_korantColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_korant End Get End Property _ Public ReadOnly Property veoant_vrbdatColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_vrbdat End Get End Property _ Public ReadOnly Property veoant_sbColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_sb End Get End Property _ Public ReadOnly Property veopos_posnrColumn() As Global.System.Data.DataColumn Get Return Me.columnveopos_posnr End Get End Property _ Public ReadOnly Property veopos_statColumn() As Global.System.Data.DataColumn Get Return Me.columnveopos_stat End Get End Property _ Public ReadOnly Property veopos_wbsch1Column() As Global.System.Data.DataColumn Get Return Me.columnveopos_wbsch1 End Get End Property _ Public ReadOnly Property veopos_rohmasColumn() As Global.System.Data.DataColumn Get Return Me.columnveopos_rohmas End Get End Property _ Public ReadOnly Property veoerz_sicbscColumn() As Global.System.Data.DataColumn Get Return Me.columnveoerz_sicbsc End Get End Property _ Public ReadOnly Property veoerz_basbtgColumn() As Global.System.Data.DataColumn Get Return Me.columnveoerz_basbtg End Get End Property _ Public ReadOnly Property veoerz_sicbtgColumn() As Global.System.Data.DataColumn Get Return Me.columnveoerz_sicbtg End Get End Property _ Public ReadOnly Property vegdat_erldatColumn() As Global.System.Data.DataColumn Get Return Me.columnvegdat_erldat End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property HistoryColumn() As Global.System.Data.DataColumn Get Return Me.columnHistory End Get End Property _ Public ReadOnly Property veoadr_name1Column() As Global.System.Data.DataColumn Get Return Me.columnveoadr_name1 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 tblZabis_Atlas_NCTSRow Get Return CType(Me.Rows(index),tblZabis_Atlas_NCTSRow) End Get End Property _ Public Event tblZabis_Atlas_NCTSRowChanging As tblZabis_Atlas_NCTSRowChangeEventHandler _ Public Event tblZabis_Atlas_NCTSRowChanged As tblZabis_Atlas_NCTSRowChangeEventHandler _ Public Event tblZabis_Atlas_NCTSRowDeleting As tblZabis_Atlas_NCTSRowChangeEventHandler _ Public Event tblZabis_Atlas_NCTSRowDeleted As tblZabis_Atlas_NCTSRowChangeEventHandler _ Public Overloads Sub AddtblZabis_Atlas_NCTSRow(ByVal row As tblZabis_Atlas_NCTSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblZabis_Atlas_NCTSRow( _ ByVal basman_nr As String, _ ByVal basman_nl As String, _ ByVal veoant_beznr As String, _ ByVal veoant_lfdnr As Short, _ ByVal veoant_stat As Short, _ ByVal veoant_arbnr As String, _ ByVal veoant_mrn As String, _ ByVal veoant_abgdst As String, _ ByVal veoant_bedst As String, _ ByVal veoant_wgdat As Date, _ ByVal veoant_anzpos As Short, _ ByVal veoant_andat As Date, _ ByVal veoant_korant As Short, _ ByVal veoant_vrbdat As Date, _ ByVal veoant_sb As String, _ ByVal veopos_posnr As Short, _ ByVal veopos_stat As Short, _ ByVal veopos_wbsch1 As String, _ ByVal veopos_rohmas As Decimal, _ ByVal veoerz_sicbsc As String, _ ByVal veoerz_basbtg As Decimal, _ ByVal veoerz_sicbtg As Decimal, _ ByVal vegdat_erldat As Date, _ ByVal upsize_ts() As Byte, _ ByVal History As Boolean, _ ByVal veoadr_name1 As String) As tblZabis_Atlas_NCTSRow Dim rowtblZabis_Atlas_NCTSRow As tblZabis_Atlas_NCTSRow = CType(Me.NewRow,tblZabis_Atlas_NCTSRow) Dim columnValuesArray() As Object = New Object() {Nothing, basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veoant_stat, veoant_arbnr, veoant_mrn, veoant_abgdst, veoant_bedst, veoant_wgdat, veoant_anzpos, veoant_andat, veoant_korant, veoant_vrbdat, veoant_sb, veopos_posnr, veopos_stat, veopos_wbsch1, veopos_rohmas, veoerz_sicbsc, veoerz_basbtg, veoerz_sicbtg, vegdat_erldat, upsize_ts, History, veoadr_name1} rowtblZabis_Atlas_NCTSRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblZabis_Atlas_NCTSRow) Return rowtblZabis_Atlas_NCTSRow End Function _ Public Function FindByID_NCTS(ByVal ID_NCTS As Integer) As tblZabis_Atlas_NCTSRow Return CType(Me.Rows.Find(New Object() {ID_NCTS}),tblZabis_Atlas_NCTSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblZabis_Atlas_NCTSDataTable = CType(MyBase.Clone,tblZabis_Atlas_NCTSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblZabis_Atlas_NCTSDataTable() End Function _ Friend Sub InitVars() Me.columnID_NCTS = MyBase.Columns("ID_NCTS") Me.columnbasman_nr = MyBase.Columns("basman_nr") Me.columnbasman_nl = MyBase.Columns("basman_nl") Me.columnveoant_beznr = MyBase.Columns("veoant_beznr") Me.columnveoant_lfdnr = MyBase.Columns("veoant_lfdnr") Me.columnveoant_stat = MyBase.Columns("veoant_stat") Me.columnveoant_arbnr = MyBase.Columns("veoant_arbnr") Me.columnveoant_mrn = MyBase.Columns("veoant_mrn") Me.columnveoant_abgdst = MyBase.Columns("veoant_abgdst") Me.columnveoant_bedst = MyBase.Columns("veoant_bedst") Me.columnveoant_wgdat = MyBase.Columns("veoant_wgdat") Me.columnveoant_anzpos = MyBase.Columns("veoant_anzpos") Me.columnveoant_andat = MyBase.Columns("veoant_andat") Me.columnveoant_korant = MyBase.Columns("veoant_korant") Me.columnveoant_vrbdat = MyBase.Columns("veoant_vrbdat") Me.columnveoant_sb = MyBase.Columns("veoant_sb") Me.columnveopos_posnr = MyBase.Columns("veopos_posnr") Me.columnveopos_stat = MyBase.Columns("veopos_stat") Me.columnveopos_wbsch1 = MyBase.Columns("veopos_wbsch1") Me.columnveopos_rohmas = MyBase.Columns("veopos_rohmas") Me.columnveoerz_sicbsc = MyBase.Columns("veoerz_sicbsc") Me.columnveoerz_basbtg = MyBase.Columns("veoerz_basbtg") Me.columnveoerz_sicbtg = MyBase.Columns("veoerz_sicbtg") Me.columnvegdat_erldat = MyBase.Columns("vegdat_erldat") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnHistory = MyBase.Columns("History") Me.columnveoadr_name1 = MyBase.Columns("veoadr_name1") End Sub _ Private Sub InitClass() Me.columnID_NCTS = New Global.System.Data.DataColumn("ID_NCTS", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID_NCTS) Me.columnbasman_nr = New Global.System.Data.DataColumn("basman_nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbasman_nr) Me.columnbasman_nl = New Global.System.Data.DataColumn("basman_nl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbasman_nl) Me.columnveoant_beznr = New Global.System.Data.DataColumn("veoant_beznr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_beznr) Me.columnveoant_lfdnr = New Global.System.Data.DataColumn("veoant_lfdnr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_lfdnr) Me.columnveoant_stat = New Global.System.Data.DataColumn("veoant_stat", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_stat) Me.columnveoant_arbnr = New Global.System.Data.DataColumn("veoant_arbnr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_arbnr) Me.columnveoant_mrn = New Global.System.Data.DataColumn("veoant_mrn", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_mrn) Me.columnveoant_abgdst = New Global.System.Data.DataColumn("veoant_abgdst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_abgdst) Me.columnveoant_bedst = New Global.System.Data.DataColumn("veoant_bedst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_bedst) Me.columnveoant_wgdat = New Global.System.Data.DataColumn("veoant_wgdat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_wgdat) Me.columnveoant_anzpos = New Global.System.Data.DataColumn("veoant_anzpos", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_anzpos) Me.columnveoant_andat = New Global.System.Data.DataColumn("veoant_andat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_andat) Me.columnveoant_korant = New Global.System.Data.DataColumn("veoant_korant", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_korant) Me.columnveoant_vrbdat = New Global.System.Data.DataColumn("veoant_vrbdat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_vrbdat) Me.columnveoant_sb = New Global.System.Data.DataColumn("veoant_sb", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_sb) Me.columnveopos_posnr = New Global.System.Data.DataColumn("veopos_posnr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveopos_posnr) Me.columnveopos_stat = New Global.System.Data.DataColumn("veopos_stat", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveopos_stat) Me.columnveopos_wbsch1 = New Global.System.Data.DataColumn("veopos_wbsch1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveopos_wbsch1) Me.columnveopos_rohmas = New Global.System.Data.DataColumn("veopos_rohmas", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveopos_rohmas) Me.columnveoerz_sicbsc = New Global.System.Data.DataColumn("veoerz_sicbsc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoerz_sicbsc) Me.columnveoerz_basbtg = New Global.System.Data.DataColumn("veoerz_basbtg", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoerz_basbtg) Me.columnveoerz_sicbtg = New Global.System.Data.DataColumn("veoerz_sicbtg", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoerz_sicbtg) Me.columnvegdat_erldat = New Global.System.Data.DataColumn("vegdat_erldat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvegdat_erldat) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnHistory = New Global.System.Data.DataColumn("History", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHistory) Me.columnveoadr_name1 = New Global.System.Data.DataColumn("veoadr_name1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoadr_name1) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID_NCTS}, true)) Me.columnID_NCTS.AutoIncrement = true Me.columnID_NCTS.AutoIncrementSeed = -1 Me.columnID_NCTS.AutoIncrementStep = -1 Me.columnID_NCTS.AllowDBNull = false Me.columnID_NCTS.ReadOnly = true Me.columnID_NCTS.Unique = true Me.columnbasman_nr.AllowDBNull = false Me.columnbasman_nr.MaxLength = 4 Me.columnbasman_nl.AllowDBNull = false Me.columnbasman_nl.MaxLength = 3 Me.columnveoant_beznr.AllowDBNull = false Me.columnveoant_beznr.MaxLength = 22 Me.columnveoant_lfdnr.AllowDBNull = false Me.columnveoant_stat.AllowDBNull = false Me.columnveoant_arbnr.AllowDBNull = false Me.columnveoant_arbnr.MaxLength = 18 Me.columnveoant_mrn.AllowDBNull = false Me.columnveoant_mrn.MaxLength = 18 Me.columnveoant_abgdst.AllowDBNull = false Me.columnveoant_abgdst.MaxLength = 8 Me.columnveoant_bedst.AllowDBNull = false Me.columnveoant_bedst.MaxLength = 8 Me.columnveoant_anzpos.AllowDBNull = false Me.columnveoant_korant.AllowDBNull = false Me.columnveoant_sb.AllowDBNull = false Me.columnveoant_sb.MaxLength = 8 Me.columnveopos_posnr.AllowDBNull = false Me.columnveopos_stat.AllowDBNull = false Me.columnveopos_wbsch1.AllowDBNull = false Me.columnveopos_wbsch1.MaxLength = 70 Me.columnveopos_rohmas.AllowDBNull = false Me.columnveoerz_sicbsc.AllowDBNull = false Me.columnveoerz_sicbsc.MaxLength = 35 Me.columnveoerz_basbtg.AllowDBNull = false Me.columnveoerz_sicbtg.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true Me.columnveoadr_name1.MaxLength = 35 End Sub _ Public Function NewtblZabis_Atlas_NCTSRow() As tblZabis_Atlas_NCTSRow Return CType(Me.NewRow,tblZabis_Atlas_NCTSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblZabis_Atlas_NCTSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblZabis_Atlas_NCTSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblZabis_Atlas_NCTSRowChangedEvent) Is Nothing) Then RaiseEvent tblZabis_Atlas_NCTSRowChanged(Me, New tblZabis_Atlas_NCTSRowChangeEvent(CType(e.Row,tblZabis_Atlas_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblZabis_Atlas_NCTSRowChangingEvent) Is Nothing) Then RaiseEvent tblZabis_Atlas_NCTSRowChanging(Me, New tblZabis_Atlas_NCTSRowChangeEvent(CType(e.Row,tblZabis_Atlas_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblZabis_Atlas_NCTSRowDeletedEvent) Is Nothing) Then RaiseEvent tblZabis_Atlas_NCTSRowDeleted(Me, New tblZabis_Atlas_NCTSRowChangeEvent(CType(e.Row,tblZabis_Atlas_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblZabis_Atlas_NCTSRowDeletingEvent) Is Nothing) Then RaiseEvent tblZabis_Atlas_NCTSRowDeleting(Me, New tblZabis_Atlas_NCTSRowChangeEvent(CType(e.Row,tblZabis_Atlas_NCTSRow), e.Action)) End If End Sub _ Public Sub RemovetblZabis_Atlas_NCTSRow(ByVal row As tblZabis_Atlas_NCTSRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblZabis_Atlas_NCTSDataTable" 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 tblZahlungszieltexteDataTable Inherits Global.System.Data.TypedTableBase(Of tblZahlungszieltexteRow) Private columnLandKz As Global.System.Data.DataColumn Private columnText As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblZahlungszieltexte" 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 LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property TextColumn() As Global.System.Data.DataColumn Get Return Me.columnText End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 tblZahlungszieltexteRow Get Return CType(Me.Rows(index),tblZahlungszieltexteRow) End Get End Property _ Public Event tblZahlungszieltexteRowChanging As tblZahlungszieltexteRowChangeEventHandler _ Public Event tblZahlungszieltexteRowChanged As tblZahlungszieltexteRowChangeEventHandler _ Public Event tblZahlungszieltexteRowDeleting As tblZahlungszieltexteRowChangeEventHandler _ Public Event tblZahlungszieltexteRowDeleted As tblZahlungszieltexteRowChangeEventHandler _ Public Overloads Sub AddtblZahlungszieltexteRow(ByVal row As tblZahlungszieltexteRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblZahlungszieltexteRow(ByVal LandKz As String, ByVal Text As String, ByVal SSMA_TimeStamp() As Byte) As tblZahlungszieltexteRow Dim rowtblZahlungszieltexteRow As tblZahlungszieltexteRow = CType(Me.NewRow,tblZahlungszieltexteRow) Dim columnValuesArray() As Object = New Object() {LandKz, Text, SSMA_TimeStamp} rowtblZahlungszieltexteRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblZahlungszieltexteRow) Return rowtblZahlungszieltexteRow End Function _ Public Function FindByLandKz(ByVal LandKz As String) As tblZahlungszieltexteRow Return CType(Me.Rows.Find(New Object() {LandKz}),tblZahlungszieltexteRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblZahlungszieltexteDataTable = CType(MyBase.Clone,tblZahlungszieltexteDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblZahlungszieltexteDataTable() End Function _ Friend Sub InitVars() Me.columnLandKz = MyBase.Columns("LandKz") Me.columnText = MyBase.Columns("Text") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnText = New Global.System.Data.DataColumn("Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnText) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLandKz}, true)) Me.columnLandKz.AllowDBNull = false Me.columnLandKz.Unique = true Me.columnLandKz.MaxLength = 3 Me.columnText.AllowDBNull = false Me.columnText.MaxLength = 255 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewtblZahlungszieltexteRow() As tblZahlungszieltexteRow Return CType(Me.NewRow,tblZahlungszieltexteRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblZahlungszieltexteRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblZahlungszieltexteRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblZahlungszieltexteRowChangedEvent) Is Nothing) Then RaiseEvent tblZahlungszieltexteRowChanged(Me, New tblZahlungszieltexteRowChangeEvent(CType(e.Row,tblZahlungszieltexteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblZahlungszieltexteRowChangingEvent) Is Nothing) Then RaiseEvent tblZahlungszieltexteRowChanging(Me, New tblZahlungszieltexteRowChangeEvent(CType(e.Row,tblZahlungszieltexteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblZahlungszieltexteRowDeletedEvent) Is Nothing) Then RaiseEvent tblZahlungszieltexteRowDeleted(Me, New tblZahlungszieltexteRowChangeEvent(CType(e.Row,tblZahlungszieltexteRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblZahlungszieltexteRowDeletingEvent) Is Nothing) Then RaiseEvent tblZahlungszieltexteRowDeleting(Me, New tblZahlungszieltexteRowChangeEvent(CType(e.Row,tblZahlungszieltexteRow), e.Action)) End If End Sub _ Public Sub RemovetblZahlungszieltexteRow(ByVal row As tblZahlungszieltexteRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblZahlungszieltexteDataTable" 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 tblZolaris_EZoll_NCTSDataTable Inherits Global.System.Data.TypedTableBase(Of tblZolaris_EZoll_NCTSRow) Private columnCRN As Global.System.Data.DataColumn Private columnAnmeldungsDatum As Global.System.Data.DataColumn Private columnGarantieWert As Global.System.Data.DataColumn Private columnAnmID As Global.System.Data.DataColumn Private columnErledigungsTypID As Global.System.Data.DataColumn Private columnWarenbezeichnung As Global.System.Data.DataColumn Private columnAbsender As Global.System.Data.DataColumn Private columnEmpfaenger As Global.System.Data.DataColumn Private columnGesamtrohmasse As Global.System.Data.DataColumn Private columnAbgangszollstelle As Global.System.Data.DataColumn Private columnBestimmungszollstelle As Global.System.Data.DataColumn Private columnGestellungsfrist As Global.System.Data.DataColumn Private columnLRN As Global.System.Data.DataColumn Private columnDatumBestimmungErreicht As Global.System.Data.DataColumn Private columnGRN As Global.System.Data.DataColumn Private columnOperatorId As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblZolaris_EZoll_NCTS" 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 CRNColumn() As Global.System.Data.DataColumn Get Return Me.columnCRN End Get End Property _ Public ReadOnly Property AnmeldungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmeldungsDatum End Get End Property _ Public ReadOnly Property GarantieWertColumn() As Global.System.Data.DataColumn Get Return Me.columnGarantieWert End Get End Property _ Public ReadOnly Property AnmIDColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmID End Get End Property _ Public ReadOnly Property ErledigungsTypIDColumn() As Global.System.Data.DataColumn Get Return Me.columnErledigungsTypID End Get End Property _ Public ReadOnly Property WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnWarenbezeichnung End Get End Property _ Public ReadOnly Property AbsenderColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsender End Get End Property _ Public ReadOnly Property EmpfaengerColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfaenger End Get End Property _ Public ReadOnly Property GesamtrohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtrohmasse End Get End Property _ Public ReadOnly Property AbgangszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnAbgangszollstelle End Get End Property _ Public ReadOnly Property BestimmungszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungszollstelle End Get End Property _ Public ReadOnly Property GestellungsfristColumn() As Global.System.Data.DataColumn Get Return Me.columnGestellungsfrist End Get End Property _ Public ReadOnly Property LRNColumn() As Global.System.Data.DataColumn Get Return Me.columnLRN End Get End Property _ Public ReadOnly Property DatumBestimmungErreichtColumn() As Global.System.Data.DataColumn Get Return Me.columnDatumBestimmungErreicht End Get End Property _ Public ReadOnly Property GRNColumn() As Global.System.Data.DataColumn Get Return Me.columnGRN End Get End Property _ Public ReadOnly Property OperatorIdColumn() As Global.System.Data.DataColumn Get Return Me.columnOperatorId End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 tblZolaris_EZoll_NCTSRow Get Return CType(Me.Rows(index),tblZolaris_EZoll_NCTSRow) End Get End Property _ Public Event tblZolaris_EZoll_NCTSRowChanging As tblZolaris_EZoll_NCTSRowChangeEventHandler _ Public Event tblZolaris_EZoll_NCTSRowChanged As tblZolaris_EZoll_NCTSRowChangeEventHandler _ Public Event tblZolaris_EZoll_NCTSRowDeleting As tblZolaris_EZoll_NCTSRowChangeEventHandler _ Public Event tblZolaris_EZoll_NCTSRowDeleted As tblZolaris_EZoll_NCTSRowChangeEventHandler _ Public Overloads Sub AddtblZolaris_EZoll_NCTSRow(ByVal row As tblZolaris_EZoll_NCTSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblZolaris_EZoll_NCTSRow( _ ByVal CRN As String, _ ByVal AnmeldungsDatum As Date, _ ByVal GarantieWert As Decimal, _ ByVal AnmID As Integer, _ ByVal ErledigungsTypID As String, _ ByVal Warenbezeichnung As String, _ ByVal Absender As String, _ ByVal Empfaenger As String, _ ByVal Gesamtrohmasse As Double, _ ByVal Abgangszollstelle As String, _ ByVal Bestimmungszollstelle As String, _ ByVal Gestellungsfrist As Date, _ ByVal LRN As String, _ ByVal DatumBestimmungErreicht As Date, _ ByVal GRN As String, _ ByVal OperatorId As Short, _ ByVal upsize_ts() As Byte) As tblZolaris_EZoll_NCTSRow Dim rowtblZolaris_EZoll_NCTSRow As tblZolaris_EZoll_NCTSRow = CType(Me.NewRow,tblZolaris_EZoll_NCTSRow) Dim columnValuesArray() As Object = New Object() {CRN, AnmeldungsDatum, GarantieWert, AnmID, ErledigungsTypID, Warenbezeichnung, Absender, Empfaenger, Gesamtrohmasse, Abgangszollstelle, Bestimmungszollstelle, Gestellungsfrist, LRN, DatumBestimmungErreicht, GRN, OperatorId, upsize_ts} rowtblZolaris_EZoll_NCTSRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblZolaris_EZoll_NCTSRow) Return rowtblZolaris_EZoll_NCTSRow End Function _ Public Function FindByCRN(ByVal CRN As String) As tblZolaris_EZoll_NCTSRow Return CType(Me.Rows.Find(New Object() {CRN}),tblZolaris_EZoll_NCTSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblZolaris_EZoll_NCTSDataTable = CType(MyBase.Clone,tblZolaris_EZoll_NCTSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblZolaris_EZoll_NCTSDataTable() End Function _ Friend Sub InitVars() Me.columnCRN = MyBase.Columns("CRN") Me.columnAnmeldungsDatum = MyBase.Columns("AnmeldungsDatum") Me.columnGarantieWert = MyBase.Columns("GarantieWert") Me.columnAnmID = MyBase.Columns("AnmID") Me.columnErledigungsTypID = MyBase.Columns("ErledigungsTypID") Me.columnWarenbezeichnung = MyBase.Columns("Warenbezeichnung") Me.columnAbsender = MyBase.Columns("Absender") Me.columnEmpfaenger = MyBase.Columns("Empfaenger") Me.columnGesamtrohmasse = MyBase.Columns("Gesamtrohmasse") Me.columnAbgangszollstelle = MyBase.Columns("Abgangszollstelle") Me.columnBestimmungszollstelle = MyBase.Columns("Bestimmungszollstelle") Me.columnGestellungsfrist = MyBase.Columns("Gestellungsfrist") Me.columnLRN = MyBase.Columns("LRN") Me.columnDatumBestimmungErreicht = MyBase.Columns("DatumBestimmungErreicht") Me.columnGRN = MyBase.Columns("GRN") Me.columnOperatorId = MyBase.Columns("OperatorId") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnCRN = New Global.System.Data.DataColumn("CRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCRN) Me.columnAnmeldungsDatum = New Global.System.Data.DataColumn("AnmeldungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmeldungsDatum) Me.columnGarantieWert = New Global.System.Data.DataColumn("GarantieWert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGarantieWert) Me.columnAnmID = New Global.System.Data.DataColumn("AnmID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmID) Me.columnErledigungsTypID = New Global.System.Data.DataColumn("ErledigungsTypID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErledigungsTypID) Me.columnWarenbezeichnung = New Global.System.Data.DataColumn("Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarenbezeichnung) Me.columnAbsender = New Global.System.Data.DataColumn("Absender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsender) Me.columnEmpfaenger = New Global.System.Data.DataColumn("Empfaenger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfaenger) Me.columnGesamtrohmasse = New Global.System.Data.DataColumn("Gesamtrohmasse", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtrohmasse) Me.columnAbgangszollstelle = New Global.System.Data.DataColumn("Abgangszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbgangszollstelle) Me.columnBestimmungszollstelle = New Global.System.Data.DataColumn("Bestimmungszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungszollstelle) Me.columnGestellungsfrist = New Global.System.Data.DataColumn("Gestellungsfrist", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGestellungsfrist) Me.columnLRN = New Global.System.Data.DataColumn("LRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLRN) Me.columnDatumBestimmungErreicht = New Global.System.Data.DataColumn("DatumBestimmungErreicht", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatumBestimmungErreicht) Me.columnGRN = New Global.System.Data.DataColumn("GRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGRN) Me.columnOperatorId = New Global.System.Data.DataColumn("OperatorId", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOperatorId) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCRN}, true)) Me.columnCRN.AllowDBNull = false Me.columnCRN.Unique = true Me.columnCRN.MaxLength = 21 Me.columnAnmeldungsDatum.AllowDBNull = false Me.columnErledigungsTypID.MaxLength = 10 Me.columnWarenbezeichnung.MaxLength = 1073741823 Me.columnAbsender.MaxLength = 137 Me.columnEmpfaenger.MaxLength = 137 Me.columnAbgangszollstelle.MaxLength = 8 Me.columnBestimmungszollstelle.MaxLength = 8 Me.columnLRN.MaxLength = 22 Me.columnGRN.MaxLength = 24 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewtblZolaris_EZoll_NCTSRow() As tblZolaris_EZoll_NCTSRow Return CType(Me.NewRow,tblZolaris_EZoll_NCTSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblZolaris_EZoll_NCTSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblZolaris_EZoll_NCTSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblZolaris_EZoll_NCTSRowChangedEvent) Is Nothing) Then RaiseEvent tblZolaris_EZoll_NCTSRowChanged(Me, New tblZolaris_EZoll_NCTSRowChangeEvent(CType(e.Row,tblZolaris_EZoll_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblZolaris_EZoll_NCTSRowChangingEvent) Is Nothing) Then RaiseEvent tblZolaris_EZoll_NCTSRowChanging(Me, New tblZolaris_EZoll_NCTSRowChangeEvent(CType(e.Row,tblZolaris_EZoll_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblZolaris_EZoll_NCTSRowDeletedEvent) Is Nothing) Then RaiseEvent tblZolaris_EZoll_NCTSRowDeleted(Me, New tblZolaris_EZoll_NCTSRowChangeEvent(CType(e.Row,tblZolaris_EZoll_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblZolaris_EZoll_NCTSRowDeletingEvent) Is Nothing) Then RaiseEvent tblZolaris_EZoll_NCTSRowDeleting(Me, New tblZolaris_EZoll_NCTSRowChangeEvent(CType(e.Row,tblZolaris_EZoll_NCTSRow), e.Action)) End If End Sub _ Public Sub RemovetblZolaris_EZoll_NCTSRow(ByVal row As tblZolaris_EZoll_NCTSRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblZolaris_EZoll_NCTSDataTable" 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 tblZOLL_WechselkurseDataTable Inherits Global.System.Data.TypedTableBase(Of tblZOLL_WechselkurseRow) Private columnfw_id As Global.System.Data.DataColumn Private columnfw_land As Global.System.Data.DataColumn Private columnfw_iso2 As Global.System.Data.DataColumn Private columnfw_kurswert As Global.System.Data.DataColumn Private columnfw_iso3 As Global.System.Data.DataColumn Private columnfw_startdatum As Global.System.Data.DataColumn Private columnfw_enddatum As Global.System.Data.DataColumn Private columnfw_importdatum As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblZOLL_Wechselkurse" 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 fw_idColumn() As Global.System.Data.DataColumn Get Return Me.columnfw_id End Get End Property _ Public ReadOnly Property fw_landColumn() As Global.System.Data.DataColumn Get Return Me.columnfw_land End Get End Property _ Public ReadOnly Property fw_iso2Column() As Global.System.Data.DataColumn Get Return Me.columnfw_iso2 End Get End Property _ Public ReadOnly Property fw_kurswertColumn() As Global.System.Data.DataColumn Get Return Me.columnfw_kurswert End Get End Property _ Public ReadOnly Property fw_iso3Column() As Global.System.Data.DataColumn Get Return Me.columnfw_iso3 End Get End Property _ Public ReadOnly Property fw_startdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnfw_startdatum End Get End Property _ Public ReadOnly Property fw_enddatumColumn() As Global.System.Data.DataColumn Get Return Me.columnfw_enddatum End Get End Property _ Public ReadOnly Property fw_importdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnfw_importdatum 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 tblZOLL_WechselkurseRow Get Return CType(Me.Rows(index),tblZOLL_WechselkurseRow) End Get End Property _ Public Event tblZOLL_WechselkurseRowChanging As tblZOLL_WechselkurseRowChangeEventHandler _ Public Event tblZOLL_WechselkurseRowChanged As tblZOLL_WechselkurseRowChangeEventHandler _ Public Event tblZOLL_WechselkurseRowDeleting As tblZOLL_WechselkurseRowChangeEventHandler _ Public Event tblZOLL_WechselkurseRowDeleted As tblZOLL_WechselkurseRowChangeEventHandler _ Public Overloads Sub AddtblZOLL_WechselkurseRow(ByVal row As tblZOLL_WechselkurseRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblZOLL_WechselkurseRow(ByVal fw_id As Integer, ByVal fw_land As String, ByVal fw_iso2 As String, ByVal fw_kurswert As Double, ByVal fw_iso3 As String, ByVal fw_startdatum As Date, ByVal fw_enddatum As Date, ByVal fw_importdatum As Date) As tblZOLL_WechselkurseRow Dim rowtblZOLL_WechselkurseRow As tblZOLL_WechselkurseRow = CType(Me.NewRow,tblZOLL_WechselkurseRow) Dim columnValuesArray() As Object = New Object() {fw_id, fw_land, fw_iso2, fw_kurswert, fw_iso3, fw_startdatum, fw_enddatum, fw_importdatum} rowtblZOLL_WechselkurseRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblZOLL_WechselkurseRow) Return rowtblZOLL_WechselkurseRow End Function _ Public Function FindByfw_iso2fw_kurswertfw_startdatumfw_enddatum(ByVal fw_iso2 As String, ByVal fw_kurswert As Double, ByVal fw_startdatum As Date, ByVal fw_enddatum As Date) As tblZOLL_WechselkurseRow Return CType(Me.Rows.Find(New Object() {fw_iso2, fw_kurswert, fw_startdatum, fw_enddatum}),tblZOLL_WechselkurseRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblZOLL_WechselkurseDataTable = CType(MyBase.Clone,tblZOLL_WechselkurseDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblZOLL_WechselkurseDataTable() End Function _ Friend Sub InitVars() Me.columnfw_id = MyBase.Columns("fw_id") Me.columnfw_land = MyBase.Columns("fw_land") Me.columnfw_iso2 = MyBase.Columns("fw_iso2") Me.columnfw_kurswert = MyBase.Columns("fw_kurswert") Me.columnfw_iso3 = MyBase.Columns("fw_iso3") Me.columnfw_startdatum = MyBase.Columns("fw_startdatum") Me.columnfw_enddatum = MyBase.Columns("fw_enddatum") Me.columnfw_importdatum = MyBase.Columns("fw_importdatum") End Sub _ Private Sub InitClass() Me.columnfw_id = New Global.System.Data.DataColumn("fw_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_id) Me.columnfw_land = New Global.System.Data.DataColumn("fw_land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_land) Me.columnfw_iso2 = New Global.System.Data.DataColumn("fw_iso2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_iso2) Me.columnfw_kurswert = New Global.System.Data.DataColumn("fw_kurswert", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_kurswert) Me.columnfw_iso3 = New Global.System.Data.DataColumn("fw_iso3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_iso3) Me.columnfw_startdatum = New Global.System.Data.DataColumn("fw_startdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_startdatum) Me.columnfw_enddatum = New Global.System.Data.DataColumn("fw_enddatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_enddatum) Me.columnfw_importdatum = New Global.System.Data.DataColumn("fw_importdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfw_importdatum) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnfw_iso2, Me.columnfw_kurswert, Me.columnfw_startdatum, Me.columnfw_enddatum}, true)) Me.columnfw_id.AllowDBNull = false Me.columnfw_land.AllowDBNull = false Me.columnfw_land.MaxLength = 50 Me.columnfw_iso2.AllowDBNull = false Me.columnfw_iso2.MaxLength = 2 Me.columnfw_kurswert.AllowDBNull = false Me.columnfw_iso3.AllowDBNull = false Me.columnfw_iso3.MaxLength = 3 Me.columnfw_startdatum.AllowDBNull = false Me.columnfw_enddatum.AllowDBNull = false Me.columnfw_importdatum.AllowDBNull = false End Sub _ Public Function NewtblZOLL_WechselkurseRow() As tblZOLL_WechselkurseRow Return CType(Me.NewRow,tblZOLL_WechselkurseRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblZOLL_WechselkurseRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblZOLL_WechselkurseRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblZOLL_WechselkurseRowChangedEvent) Is Nothing) Then RaiseEvent tblZOLL_WechselkurseRowChanged(Me, New tblZOLL_WechselkurseRowChangeEvent(CType(e.Row,tblZOLL_WechselkurseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblZOLL_WechselkurseRowChangingEvent) Is Nothing) Then RaiseEvent tblZOLL_WechselkurseRowChanging(Me, New tblZOLL_WechselkurseRowChangeEvent(CType(e.Row,tblZOLL_WechselkurseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblZOLL_WechselkurseRowDeletedEvent) Is Nothing) Then RaiseEvent tblZOLL_WechselkurseRowDeleted(Me, New tblZOLL_WechselkurseRowChangeEvent(CType(e.Row,tblZOLL_WechselkurseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblZOLL_WechselkurseRowDeletingEvent) Is Nothing) Then RaiseEvent tblZOLL_WechselkurseRowDeleting(Me, New tblZOLL_WechselkurseRowChangeEvent(CType(e.Row,tblZOLL_WechselkurseRow), e.Action)) End If End Sub _ Public Sub RemovetblZOLL_WechselkurseRow(ByVal row As tblZOLL_WechselkurseRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblZOLL_WechselkurseDataTable" 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 tblZollArtikelDataTable Inherits Global.System.Data.TypedTableBase(Of tblZollArtikelRow) Private columnzollArt_id As Global.System.Data.DataColumn Private columnKundenNr As Global.System.Data.DataColumn Private columnzollArt_Teilsatzschluessel As Global.System.Data.DataColumn Private columnzollArt_Verarbeitungskennzeichen As Global.System.Data.DataColumn Private columnzollArt_Artikelnummer As Global.System.Data.DataColumn Private columnzollArt_Dynamische_Ergaenzung_1 As Global.System.Data.DataColumn Private columnzollArt_Dynamische_Ergaenzung_2 As Global.System.Data.DataColumn Private columnzollArt_Kundennummer As Global.System.Data.DataColumn Private columnzollArt_Warencodenummer As Global.System.Data.DataColumn Private columnzollArt_Zusatzcode_1 As Global.System.Data.DataColumn Private columnzollArt_Zusatzcode_2 As Global.System.Data.DataColumn Private columnzollArt_Kennzeichen_Gueltig As Global.System.Data.DataColumn Private columnzollArt_Kurzbezeichnung As Global.System.Data.DataColumn Private columnzollArt_Warenbeschreibung As Global.System.Data.DataColumn Private columnzollArt_Statistische_Maßeinheit As Global.System.Data.DataColumn Private columnzollArt_Statistische_Maßeinheit_Qualifikator As Global.System.Data.DataColumn Private columnzollArt_Besondere_Maßeinheit As Global.System.Data.DataColumn Private columnzollArt_Besondere_Maßeinheit_Qualifikator As Global.System.Data.DataColumn Private columnzollArt_Gewicht As Global.System.Data.DataColumn Private columnzollArt_Menge As Global.System.Data.DataColumn Private columnErfassungsdatum As Global.System.Data.DataColumn Private columnAenderungsdatum As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnzollArt_Status As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblZollArtikel" 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 zollArt_idColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_id End Get End Property _ Public ReadOnly Property KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property zollArt_TeilsatzschluesselColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Teilsatzschluessel End Get End Property _ Public ReadOnly Property zollArt_VerarbeitungskennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Verarbeitungskennzeichen End Get End Property _ Public ReadOnly Property zollArt_ArtikelnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Artikelnummer End Get End Property _ Public ReadOnly Property zollArt_Dynamische_Ergaenzung_1Column() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Dynamische_Ergaenzung_1 End Get End Property _ Public ReadOnly Property zollArt_Dynamische_Ergaenzung_2Column() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Dynamische_Ergaenzung_2 End Get End Property _ Public ReadOnly Property zollArt_KundennummerColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Kundennummer End Get End Property _ Public ReadOnly Property zollArt_WarencodenummerColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Warencodenummer End Get End Property _ Public ReadOnly Property zollArt_Zusatzcode_1Column() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Zusatzcode_1 End Get End Property _ Public ReadOnly Property zollArt_Zusatzcode_2Column() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Zusatzcode_2 End Get End Property _ Public ReadOnly Property zollArt_Kennzeichen_GueltigColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Kennzeichen_Gueltig End Get End Property _ Public ReadOnly Property zollArt_KurzbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Kurzbezeichnung End Get End Property _ Public ReadOnly Property zollArt_WarenbeschreibungColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Warenbeschreibung End Get End Property _ Public ReadOnly Property zollArt_Statistische_MaßeinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Statistische_Maßeinheit End Get End Property _ Public ReadOnly Property zollArt_Statistische_Maßeinheit_QualifikatorColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Statistische_Maßeinheit_Qualifikator End Get End Property _ Public ReadOnly Property zollArt_Besondere_MaßeinheitColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Besondere_Maßeinheit End Get End Property _ Public ReadOnly Property zollArt_Besondere_Maßeinheit_QualifikatorColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Besondere_Maßeinheit_Qualifikator End Get End Property _ Public ReadOnly Property zollArt_GewichtColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Gewicht End Get End Property _ Public ReadOnly Property zollArt_MengeColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Menge End Get End Property _ Public ReadOnly Property ErfassungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnErfassungsdatum End Get End Property _ Public ReadOnly Property AenderungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAenderungsdatum End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property zollArt_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnzollArt_Status 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 tblZollArtikelRow Get Return CType(Me.Rows(index),tblZollArtikelRow) End Get End Property _ Public Event tblZollArtikelRowChanging As tblZollArtikelRowChangeEventHandler _ Public Event tblZollArtikelRowChanged As tblZollArtikelRowChangeEventHandler _ Public Event tblZollArtikelRowDeleting As tblZollArtikelRowChangeEventHandler _ Public Event tblZollArtikelRowDeleted As tblZollArtikelRowChangeEventHandler _ Public Overloads Sub AddtblZollArtikelRow(ByVal row As tblZollArtikelRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblZollArtikelRow( _ ByVal KundenNr As Integer, _ ByVal zollArt_Teilsatzschluessel As String, _ ByVal zollArt_Verarbeitungskennzeichen As String, _ ByVal zollArt_Artikelnummer As String, _ ByVal zollArt_Dynamische_Ergaenzung_1 As String, _ ByVal zollArt_Dynamische_Ergaenzung_2 As String, _ ByVal zollArt_Kundennummer As String, _ ByVal zollArt_Warencodenummer As String, _ ByVal zollArt_Zusatzcode_1 As String, _ ByVal zollArt_Zusatzcode_2 As String, _ ByVal zollArt_Kennzeichen_Gueltig As String, _ ByVal zollArt_Kurzbezeichnung As String, _ ByVal zollArt_Warenbeschreibung As String, _ ByVal zollArt_Statistische_Maßeinheit As String, _ ByVal zollArt_Statistische_Maßeinheit_Qualifikator As String, _ ByVal zollArt_Besondere_Maßeinheit As String, _ ByVal zollArt_Besondere_Maßeinheit_Qualifikator As String, _ ByVal zollArt_Gewicht As String, _ ByVal zollArt_Menge As String, _ ByVal Erfassungsdatum As Date, _ ByVal Aenderungsdatum As Date, _ ByVal Sachbearbeiter As String, _ ByVal zollArt_Status As String) As tblZollArtikelRow Dim rowtblZollArtikelRow As tblZollArtikelRow = CType(Me.NewRow,tblZollArtikelRow) Dim columnValuesArray() As Object = New Object() {Nothing, KundenNr, zollArt_Teilsatzschluessel, zollArt_Verarbeitungskennzeichen, zollArt_Artikelnummer, zollArt_Dynamische_Ergaenzung_1, zollArt_Dynamische_Ergaenzung_2, zollArt_Kundennummer, zollArt_Warencodenummer, zollArt_Zusatzcode_1, zollArt_Zusatzcode_2, zollArt_Kennzeichen_Gueltig, zollArt_Kurzbezeichnung, zollArt_Warenbeschreibung, zollArt_Statistische_Maßeinheit, zollArt_Statistische_Maßeinheit_Qualifikator, zollArt_Besondere_Maßeinheit, zollArt_Besondere_Maßeinheit_Qualifikator, zollArt_Gewicht, zollArt_Menge, Erfassungsdatum, Aenderungsdatum, Sachbearbeiter, zollArt_Status} rowtblZollArtikelRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblZollArtikelRow) Return rowtblZollArtikelRow End Function _ Public Function FindByzollArt_id(ByVal zollArt_id As Integer) As tblZollArtikelRow Return CType(Me.Rows.Find(New Object() {zollArt_id}),tblZollArtikelRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblZollArtikelDataTable = CType(MyBase.Clone,tblZollArtikelDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblZollArtikelDataTable() End Function _ Friend Sub InitVars() Me.columnzollArt_id = MyBase.Columns("zollArt_id") Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnzollArt_Teilsatzschluessel = MyBase.Columns("zollArt_Teilsatzschluessel") Me.columnzollArt_Verarbeitungskennzeichen = MyBase.Columns("zollArt_Verarbeitungskennzeichen") Me.columnzollArt_Artikelnummer = MyBase.Columns("zollArt_Artikelnummer") Me.columnzollArt_Dynamische_Ergaenzung_1 = MyBase.Columns("zollArt_Dynamische_Ergaenzung_1") Me.columnzollArt_Dynamische_Ergaenzung_2 = MyBase.Columns("zollArt_Dynamische_Ergaenzung_2") Me.columnzollArt_Kundennummer = MyBase.Columns("zollArt_Kundennummer") Me.columnzollArt_Warencodenummer = MyBase.Columns("zollArt_Warencodenummer") Me.columnzollArt_Zusatzcode_1 = MyBase.Columns("zollArt_Zusatzcode_1") Me.columnzollArt_Zusatzcode_2 = MyBase.Columns("zollArt_Zusatzcode_2") Me.columnzollArt_Kennzeichen_Gueltig = MyBase.Columns("zollArt_Kennzeichen_Gueltig") Me.columnzollArt_Kurzbezeichnung = MyBase.Columns("zollArt_Kurzbezeichnung") Me.columnzollArt_Warenbeschreibung = MyBase.Columns("zollArt_Warenbeschreibung") Me.columnzollArt_Statistische_Maßeinheit = MyBase.Columns("zollArt_Statistische_Maßeinheit") Me.columnzollArt_Statistische_Maßeinheit_Qualifikator = MyBase.Columns("zollArt_Statistische_Maßeinheit_Qualifikator") Me.columnzollArt_Besondere_Maßeinheit = MyBase.Columns("zollArt_Besondere_Maßeinheit") Me.columnzollArt_Besondere_Maßeinheit_Qualifikator = MyBase.Columns("zollArt_Besondere_Maßeinheit_Qualifikator") Me.columnzollArt_Gewicht = MyBase.Columns("zollArt_Gewicht") Me.columnzollArt_Menge = MyBase.Columns("zollArt_Menge") Me.columnErfassungsdatum = MyBase.Columns("Erfassungsdatum") Me.columnAenderungsdatum = MyBase.Columns("Aenderungsdatum") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnzollArt_Status = MyBase.Columns("zollArt_Status") End Sub _ Private Sub InitClass() Me.columnzollArt_id = New Global.System.Data.DataColumn("zollArt_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_id) Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnzollArt_Teilsatzschluessel = New Global.System.Data.DataColumn("zollArt_Teilsatzschluessel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Teilsatzschluessel) Me.columnzollArt_Verarbeitungskennzeichen = New Global.System.Data.DataColumn("zollArt_Verarbeitungskennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Verarbeitungskennzeichen) Me.columnzollArt_Artikelnummer = New Global.System.Data.DataColumn("zollArt_Artikelnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Artikelnummer) Me.columnzollArt_Dynamische_Ergaenzung_1 = New Global.System.Data.DataColumn("zollArt_Dynamische_Ergaenzung_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Dynamische_Ergaenzung_1) Me.columnzollArt_Dynamische_Ergaenzung_2 = New Global.System.Data.DataColumn("zollArt_Dynamische_Ergaenzung_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Dynamische_Ergaenzung_2) Me.columnzollArt_Kundennummer = New Global.System.Data.DataColumn("zollArt_Kundennummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Kundennummer) Me.columnzollArt_Warencodenummer = New Global.System.Data.DataColumn("zollArt_Warencodenummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Warencodenummer) Me.columnzollArt_Zusatzcode_1 = New Global.System.Data.DataColumn("zollArt_Zusatzcode_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Zusatzcode_1) Me.columnzollArt_Zusatzcode_2 = New Global.System.Data.DataColumn("zollArt_Zusatzcode_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Zusatzcode_2) Me.columnzollArt_Kennzeichen_Gueltig = New Global.System.Data.DataColumn("zollArt_Kennzeichen_Gueltig", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Kennzeichen_Gueltig) Me.columnzollArt_Kurzbezeichnung = New Global.System.Data.DataColumn("zollArt_Kurzbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Kurzbezeichnung) Me.columnzollArt_Warenbeschreibung = New Global.System.Data.DataColumn("zollArt_Warenbeschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Warenbeschreibung) Me.columnzollArt_Statistische_Maßeinheit = New Global.System.Data.DataColumn("zollArt_Statistische_Maßeinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Statistische_Maßeinheit) Me.columnzollArt_Statistische_Maßeinheit_Qualifikator = New Global.System.Data.DataColumn("zollArt_Statistische_Maßeinheit_Qualifikator", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Statistische_Maßeinheit_Qualifikator) Me.columnzollArt_Besondere_Maßeinheit = New Global.System.Data.DataColumn("zollArt_Besondere_Maßeinheit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Besondere_Maßeinheit) Me.columnzollArt_Besondere_Maßeinheit_Qualifikator = New Global.System.Data.DataColumn("zollArt_Besondere_Maßeinheit_Qualifikator", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Besondere_Maßeinheit_Qualifikator) Me.columnzollArt_Gewicht = New Global.System.Data.DataColumn("zollArt_Gewicht", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Gewicht) Me.columnzollArt_Menge = New Global.System.Data.DataColumn("zollArt_Menge", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Menge) Me.columnErfassungsdatum = New Global.System.Data.DataColumn("Erfassungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErfassungsdatum) Me.columnAenderungsdatum = New Global.System.Data.DataColumn("Aenderungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAenderungsdatum) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnzollArt_Status = New Global.System.Data.DataColumn("zollArt_Status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollArt_Status) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnzollArt_id}, true)) Me.columnzollArt_id.AutoIncrement = true Me.columnzollArt_id.AutoIncrementSeed = -1 Me.columnzollArt_id.AutoIncrementStep = -1 Me.columnzollArt_id.AllowDBNull = false Me.columnzollArt_id.ReadOnly = true Me.columnzollArt_id.Unique = true Me.columnKundenNr.AllowDBNull = false Me.columnzollArt_Teilsatzschluessel.MaxLength = 3 Me.columnzollArt_Verarbeitungskennzeichen.MaxLength = 1 Me.columnzollArt_Artikelnummer.MaxLength = 50 Me.columnzollArt_Dynamische_Ergaenzung_1.MaxLength = 200 Me.columnzollArt_Dynamische_Ergaenzung_2.MaxLength = 200 Me.columnzollArt_Kundennummer.MaxLength = 17 Me.columnzollArt_Warencodenummer.MaxLength = 11 Me.columnzollArt_Zusatzcode_1.MaxLength = 4 Me.columnzollArt_Zusatzcode_2.MaxLength = 4 Me.columnzollArt_Kennzeichen_Gueltig.MaxLength = 1 Me.columnzollArt_Kurzbezeichnung.MaxLength = 600 Me.columnzollArt_Warenbeschreibung.MaxLength = 2400 Me.columnzollArt_Statistische_Maßeinheit.MaxLength = 3 Me.columnzollArt_Statistische_Maßeinheit_Qualifikator.MaxLength = 1 Me.columnzollArt_Besondere_Maßeinheit.MaxLength = 3 Me.columnzollArt_Besondere_Maßeinheit_Qualifikator.MaxLength = 1 Me.columnzollArt_Gewicht.MaxLength = 17 Me.columnzollArt_Menge.MaxLength = 5 Me.columnSachbearbeiter.MaxLength = 40 Me.columnzollArt_Status.MaxLength = 50 End Sub _ Public Function NewtblZollArtikelRow() As tblZollArtikelRow Return CType(Me.NewRow,tblZollArtikelRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblZollArtikelRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblZollArtikelRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblZollArtikelRowChangedEvent) Is Nothing) Then RaiseEvent tblZollArtikelRowChanged(Me, New tblZollArtikelRowChangeEvent(CType(e.Row,tblZollArtikelRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblZollArtikelRowChangingEvent) Is Nothing) Then RaiseEvent tblZollArtikelRowChanging(Me, New tblZollArtikelRowChangeEvent(CType(e.Row,tblZollArtikelRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblZollArtikelRowDeletedEvent) Is Nothing) Then RaiseEvent tblZollArtikelRowDeleted(Me, New tblZollArtikelRowChangeEvent(CType(e.Row,tblZollArtikelRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblZollArtikelRowDeletingEvent) Is Nothing) Then RaiseEvent tblZollArtikelRowDeleting(Me, New tblZollArtikelRowChangeEvent(CType(e.Row,tblZollArtikelRow), e.Action)) End If End Sub _ Public Sub RemovetblZollArtikelRow(ByVal row As tblZollArtikelRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblZollArtikelDataTable" 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 tblZollUnterArtikelDataTable Inherits Global.System.Data.TypedTableBase(Of tblZollUnterArtikelRow) Private columnzollUntArtk_Id As Global.System.Data.DataColumn Private columnzollUntArtk_zollArtId As Global.System.Data.DataColumn Private columnzollUntArtk_Bezeichnung As Global.System.Data.DataColumn Private columnzollUntArtk_Artikelnummer As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tblZollUnterArtikel" 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 zollUntArtk_IdColumn() As Global.System.Data.DataColumn Get Return Me.columnzollUntArtk_Id End Get End Property _ Public ReadOnly Property zollUntArtk_zollArtIdColumn() As Global.System.Data.DataColumn Get Return Me.columnzollUntArtk_zollArtId End Get End Property _ Public ReadOnly Property zollUntArtk_BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnzollUntArtk_Bezeichnung End Get End Property _ Public ReadOnly Property zollUntArtk_ArtikelnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnzollUntArtk_Artikelnummer 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 tblZollUnterArtikelRow Get Return CType(Me.Rows(index),tblZollUnterArtikelRow) End Get End Property _ Public Event tblZollUnterArtikelRowChanging As tblZollUnterArtikelRowChangeEventHandler _ Public Event tblZollUnterArtikelRowChanged As tblZollUnterArtikelRowChangeEventHandler _ Public Event tblZollUnterArtikelRowDeleting As tblZollUnterArtikelRowChangeEventHandler _ Public Event tblZollUnterArtikelRowDeleted As tblZollUnterArtikelRowChangeEventHandler _ Public Overloads Sub AddtblZollUnterArtikelRow(ByVal row As tblZollUnterArtikelRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddtblZollUnterArtikelRow(ByVal zollUntArtk_zollArtId As Integer, ByVal zollUntArtk_Bezeichnung As String, ByVal zollUntArtk_Artikelnummer As String) As tblZollUnterArtikelRow Dim rowtblZollUnterArtikelRow As tblZollUnterArtikelRow = CType(Me.NewRow,tblZollUnterArtikelRow) Dim columnValuesArray() As Object = New Object() {Nothing, zollUntArtk_zollArtId, zollUntArtk_Bezeichnung, zollUntArtk_Artikelnummer} rowtblZollUnterArtikelRow.ItemArray = columnValuesArray Me.Rows.Add(rowtblZollUnterArtikelRow) Return rowtblZollUnterArtikelRow End Function _ Public Function FindByzollUntArtk_Id(ByVal zollUntArtk_Id As Integer) As tblZollUnterArtikelRow Return CType(Me.Rows.Find(New Object() {zollUntArtk_Id}),tblZollUnterArtikelRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tblZollUnterArtikelDataTable = CType(MyBase.Clone,tblZollUnterArtikelDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tblZollUnterArtikelDataTable() End Function _ Friend Sub InitVars() Me.columnzollUntArtk_Id = MyBase.Columns("zollUntArtk_Id") Me.columnzollUntArtk_zollArtId = MyBase.Columns("zollUntArtk_zollArtId") Me.columnzollUntArtk_Bezeichnung = MyBase.Columns("zollUntArtk_Bezeichnung") Me.columnzollUntArtk_Artikelnummer = MyBase.Columns("zollUntArtk_Artikelnummer") End Sub _ Private Sub InitClass() Me.columnzollUntArtk_Id = New Global.System.Data.DataColumn("zollUntArtk_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollUntArtk_Id) Me.columnzollUntArtk_zollArtId = New Global.System.Data.DataColumn("zollUntArtk_zollArtId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollUntArtk_zollArtId) Me.columnzollUntArtk_Bezeichnung = New Global.System.Data.DataColumn("zollUntArtk_Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollUntArtk_Bezeichnung) Me.columnzollUntArtk_Artikelnummer = New Global.System.Data.DataColumn("zollUntArtk_Artikelnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzollUntArtk_Artikelnummer) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnzollUntArtk_Id}, true)) Me.columnzollUntArtk_Id.AutoIncrement = true Me.columnzollUntArtk_Id.AutoIncrementSeed = -1 Me.columnzollUntArtk_Id.AutoIncrementStep = -1 Me.columnzollUntArtk_Id.AllowDBNull = false Me.columnzollUntArtk_Id.ReadOnly = true Me.columnzollUntArtk_Id.Unique = true Me.columnzollUntArtk_zollArtId.AllowDBNull = false Me.columnzollUntArtk_Bezeichnung.AllowDBNull = false Me.columnzollUntArtk_Bezeichnung.MaxLength = 500 Me.columnzollUntArtk_Artikelnummer.AllowDBNull = false Me.columnzollUntArtk_Artikelnummer.MaxLength = 100 End Sub _ Public Function NewtblZollUnterArtikelRow() As tblZollUnterArtikelRow Return CType(Me.NewRow,tblZollUnterArtikelRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tblZollUnterArtikelRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tblZollUnterArtikelRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tblZollUnterArtikelRowChangedEvent) Is Nothing) Then RaiseEvent tblZollUnterArtikelRowChanged(Me, New tblZollUnterArtikelRowChangeEvent(CType(e.Row,tblZollUnterArtikelRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tblZollUnterArtikelRowChangingEvent) Is Nothing) Then RaiseEvent tblZollUnterArtikelRowChanging(Me, New tblZollUnterArtikelRowChangeEvent(CType(e.Row,tblZollUnterArtikelRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tblZollUnterArtikelRowDeletedEvent) Is Nothing) Then RaiseEvent tblZollUnterArtikelRowDeleted(Me, New tblZollUnterArtikelRowChangeEvent(CType(e.Row,tblZollUnterArtikelRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tblZollUnterArtikelRowDeletingEvent) Is Nothing) Then RaiseEvent tblZollUnterArtikelRowDeleting(Me, New tblZollUnterArtikelRowChangeEvent(CType(e.Row,tblZollUnterArtikelRow), e.Action)) End If End Sub _ Public Sub RemovetblZollUnterArtikelRow(ByVal row As tblZollUnterArtikelRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "tblZollUnterArtikelDataTable" 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 TemporaryUpsizedTable2DataTable Inherits Global.System.Data.TypedTableBase(Of TemporaryUpsizedTable2Row) Private columnDateiname As Global.System.Data.DataColumn Private columnLfdNr As Global.System.Data.DataColumn Private columnCode_Adressat_der_Rechnung As Global.System.Data.DataColumn Private columnCode_Adressat_des_Kontoauszugs As Global.System.Data.DataColumn Private columnArt_der_Bewegung As Global.System.Data.DataColumn Private columnDatum_der_Bewegung As Global.System.Data.DataColumn Private columnUhrzeit_der_Bewegung As Global.System.Data.DataColumn Private columnUrsprünglicher_Betrag_der_Bewegung As Global.System.Data.DataColumn Private columnNicht_mehrwertsteuerpflichtiger_Betrag As Global.System.Data.DataColumn Private columnBetrag_mit_Preisnachlass_oder_Preisnachlass As Global.System.Data.DataColumn Private columnForm_des_Mediums As Global.System.Data.DataColumn Private columnBeschreibung_Form_des_Mediums As Global.System.Data.DataColumn Private columnKodierung_Medium As Global.System.Data.DataColumn Private columnBeschreibung_der_Bewegung As Global.System.Data.DataColumn Private columnGebührenklasse As Global.System.Data.DataColumn Private columnVerrechnungsdatum As Global.System.Data.DataColumn Private columnZeichen_Betrag As Global.System.Data.DataColumn Private columnKfzKennzeichen As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TemporaryUpsizedTable2" 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 DateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiname End Get End Property _ Public ReadOnly Property LfdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdNr End Get End Property _ Public ReadOnly Property Code_Adressat_der_RechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnCode_Adressat_der_Rechnung End Get End Property _ Public ReadOnly Property Code_Adressat_des_KontoauszugsColumn() As Global.System.Data.DataColumn Get Return Me.columnCode_Adressat_des_Kontoauszugs End Get End Property _ Public ReadOnly Property Art_der_BewegungColumn() As Global.System.Data.DataColumn Get Return Me.columnArt_der_Bewegung End Get End Property _ Public ReadOnly Property Datum_der_BewegungColumn() As Global.System.Data.DataColumn Get Return Me.columnDatum_der_Bewegung End Get End Property _ Public ReadOnly Property Uhrzeit_der_BewegungColumn() As Global.System.Data.DataColumn Get Return Me.columnUhrzeit_der_Bewegung End Get End Property _ Public ReadOnly Property Ursprünglicher_Betrag_der_BewegungColumn() As Global.System.Data.DataColumn Get Return Me.columnUrsprünglicher_Betrag_der_Bewegung End Get End Property _ Public ReadOnly Property Nicht_mehrwertsteuerpflichtiger_BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnNicht_mehrwertsteuerpflichtiger_Betrag End Get End Property _ Public ReadOnly Property Betrag_mit_Preisnachlass_oder_PreisnachlassColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag_mit_Preisnachlass_oder_Preisnachlass End Get End Property _ Public ReadOnly Property Form_des_MediumsColumn() As Global.System.Data.DataColumn Get Return Me.columnForm_des_Mediums End Get End Property _ Public ReadOnly Property Beschreibung_Form_des_MediumsColumn() As Global.System.Data.DataColumn Get Return Me.columnBeschreibung_Form_des_Mediums End Get End Property _ Public ReadOnly Property Kodierung_MediumColumn() As Global.System.Data.DataColumn Get Return Me.columnKodierung_Medium End Get End Property _ Public ReadOnly Property Beschreibung_der_BewegungColumn() As Global.System.Data.DataColumn Get Return Me.columnBeschreibung_der_Bewegung End Get End Property _ Public ReadOnly Property GebührenklasseColumn() As Global.System.Data.DataColumn Get Return Me.columnGebührenklasse End Get End Property _ Public ReadOnly Property VerrechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnVerrechnungsdatum End Get End Property _ Public ReadOnly Property Zeichen_BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnZeichen_Betrag End Get End Property _ Public ReadOnly Property KfzKennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnKfzKennzeichen End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_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 TemporaryUpsizedTable2Row Get Return CType(Me.Rows(index),TemporaryUpsizedTable2Row) End Get End Property _ Public Event TemporaryUpsizedTable2RowChanging As TemporaryUpsizedTable2RowChangeEventHandler _ Public Event TemporaryUpsizedTable2RowChanged As TemporaryUpsizedTable2RowChangeEventHandler _ Public Event TemporaryUpsizedTable2RowDeleting As TemporaryUpsizedTable2RowChangeEventHandler _ Public Event TemporaryUpsizedTable2RowDeleted As TemporaryUpsizedTable2RowChangeEventHandler _ Public Overloads Sub AddTemporaryUpsizedTable2Row(ByVal row As TemporaryUpsizedTable2Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTemporaryUpsizedTable2Row( _ ByVal Dateiname As String, _ ByVal LfdNr As Integer, _ ByVal Code_Adressat_der_Rechnung As Integer, _ ByVal Code_Adressat_des_Kontoauszugs As Integer, _ ByVal Art_der_Bewegung As String, _ ByVal Datum_der_Bewegung As Date, _ ByVal Uhrzeit_der_Bewegung As Date, _ ByVal Ursprünglicher_Betrag_der_Bewegung As Decimal, _ ByVal Nicht_mehrwertsteuerpflichtiger_Betrag As Decimal, _ ByVal Betrag_mit_Preisnachlass_oder_Preisnachlass As Decimal, _ ByVal Form_des_Mediums As String, _ ByVal Beschreibung_Form_des_Mediums As String, _ ByVal Kodierung_Medium As String, _ ByVal Beschreibung_der_Bewegung As String, _ ByVal Gebührenklasse As String, _ ByVal Verrechnungsdatum As Date, _ ByVal Zeichen_Betrag As String, _ ByVal KfzKennzeichen As String, _ ByVal UStVAn_ID As Integer) As TemporaryUpsizedTable2Row Dim rowTemporaryUpsizedTable2Row As TemporaryUpsizedTable2Row = CType(Me.NewRow,TemporaryUpsizedTable2Row) Dim columnValuesArray() As Object = New Object() {Dateiname, LfdNr, Code_Adressat_der_Rechnung, Code_Adressat_des_Kontoauszugs, Art_der_Bewegung, Datum_der_Bewegung, Uhrzeit_der_Bewegung, Ursprünglicher_Betrag_der_Bewegung, Nicht_mehrwertsteuerpflichtiger_Betrag, Betrag_mit_Preisnachlass_oder_Preisnachlass, Form_des_Mediums, Beschreibung_Form_des_Mediums, Kodierung_Medium, Beschreibung_der_Bewegung, Gebührenklasse, Verrechnungsdatum, Zeichen_Betrag, KfzKennzeichen, UStVAn_ID} rowTemporaryUpsizedTable2Row.ItemArray = columnValuesArray Me.Rows.Add(rowTemporaryUpsizedTable2Row) Return rowTemporaryUpsizedTable2Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TemporaryUpsizedTable2DataTable = CType(MyBase.Clone,TemporaryUpsizedTable2DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TemporaryUpsizedTable2DataTable() End Function _ Friend Sub InitVars() Me.columnDateiname = MyBase.Columns("Dateiname") Me.columnLfdNr = MyBase.Columns("LfdNr") Me.columnCode_Adressat_der_Rechnung = MyBase.Columns("Code_Adressat_der_Rechnung") Me.columnCode_Adressat_des_Kontoauszugs = MyBase.Columns("Code_Adressat_des_Kontoauszugs") Me.columnArt_der_Bewegung = MyBase.Columns("Art_der_Bewegung") Me.columnDatum_der_Bewegung = MyBase.Columns("Datum_der_Bewegung") Me.columnUhrzeit_der_Bewegung = MyBase.Columns("Uhrzeit_der_Bewegung") Me.columnUrsprünglicher_Betrag_der_Bewegung = MyBase.Columns("Ursprünglicher_Betrag_der_Bewegung") Me.columnNicht_mehrwertsteuerpflichtiger_Betrag = MyBase.Columns("Nicht_mehrwertsteuerpflichtiger_Betrag") Me.columnBetrag_mit_Preisnachlass_oder_Preisnachlass = MyBase.Columns("Betrag_mit_Preisnachlass_oder_Preisnachlass") Me.columnForm_des_Mediums = MyBase.Columns("Form_des_Mediums") Me.columnBeschreibung_Form_des_Mediums = MyBase.Columns("Beschreibung_Form_des_Mediums") Me.columnKodierung_Medium = MyBase.Columns("Kodierung_Medium") Me.columnBeschreibung_der_Bewegung = MyBase.Columns("Beschreibung_der_Bewegung") Me.columnGebührenklasse = MyBase.Columns("Gebührenklasse") Me.columnVerrechnungsdatum = MyBase.Columns("Verrechnungsdatum") Me.columnZeichen_Betrag = MyBase.Columns("Zeichen_Betrag") Me.columnKfzKennzeichen = MyBase.Columns("KfzKennzeichen") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") End Sub _ Private Sub InitClass() Me.columnDateiname = New Global.System.Data.DataColumn("Dateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiname) Me.columnLfdNr = New Global.System.Data.DataColumn("LfdNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdNr) Me.columnCode_Adressat_der_Rechnung = New Global.System.Data.DataColumn("Code_Adressat_der_Rechnung", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode_Adressat_der_Rechnung) Me.columnCode_Adressat_des_Kontoauszugs = New Global.System.Data.DataColumn("Code_Adressat_des_Kontoauszugs", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCode_Adressat_des_Kontoauszugs) Me.columnArt_der_Bewegung = New Global.System.Data.DataColumn("Art_der_Bewegung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArt_der_Bewegung) Me.columnDatum_der_Bewegung = New Global.System.Data.DataColumn("Datum_der_Bewegung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatum_der_Bewegung) Me.columnUhrzeit_der_Bewegung = New Global.System.Data.DataColumn("Uhrzeit_der_Bewegung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUhrzeit_der_Bewegung) Me.columnUrsprünglicher_Betrag_der_Bewegung = New Global.System.Data.DataColumn("Ursprünglicher_Betrag_der_Bewegung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUrsprünglicher_Betrag_der_Bewegung) Me.columnNicht_mehrwertsteuerpflichtiger_Betrag = New Global.System.Data.DataColumn("Nicht_mehrwertsteuerpflichtiger_Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNicht_mehrwertsteuerpflichtiger_Betrag) Me.columnBetrag_mit_Preisnachlass_oder_Preisnachlass = New Global.System.Data.DataColumn("Betrag_mit_Preisnachlass_oder_Preisnachlass", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag_mit_Preisnachlass_oder_Preisnachlass) Me.columnForm_des_Mediums = New Global.System.Data.DataColumn("Form_des_Mediums", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnForm_des_Mediums) Me.columnBeschreibung_Form_des_Mediums = New Global.System.Data.DataColumn("Beschreibung_Form_des_Mediums", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBeschreibung_Form_des_Mediums) Me.columnKodierung_Medium = New Global.System.Data.DataColumn("Kodierung_Medium", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKodierung_Medium) Me.columnBeschreibung_der_Bewegung = New Global.System.Data.DataColumn("Beschreibung_der_Bewegung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBeschreibung_der_Bewegung) Me.columnGebührenklasse = New Global.System.Data.DataColumn("Gebührenklasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGebührenklasse) Me.columnVerrechnungsdatum = New Global.System.Data.DataColumn("Verrechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVerrechnungsdatum) Me.columnZeichen_Betrag = New Global.System.Data.DataColumn("Zeichen_Betrag", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZeichen_Betrag) Me.columnKfzKennzeichen = New Global.System.Data.DataColumn("KfzKennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKfzKennzeichen) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnDateiname.MaxLength = 50 Me.columnArt_der_Bewegung.MaxLength = 2 Me.columnForm_des_Mediums.MaxLength = 2 Me.columnBeschreibung_Form_des_Mediums.MaxLength = 20 Me.columnKodierung_Medium.MaxLength = 20 Me.columnBeschreibung_der_Bewegung.MaxLength = 36 Me.columnGebührenklasse.MaxLength = 2 Me.columnZeichen_Betrag.MaxLength = 1 Me.columnKfzKennzeichen.MaxLength = 14 End Sub _ Public Function NewTemporaryUpsizedTable2Row() As TemporaryUpsizedTable2Row Return CType(Me.NewRow,TemporaryUpsizedTable2Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TemporaryUpsizedTable2Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TemporaryUpsizedTable2Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TemporaryUpsizedTable2RowChangedEvent) Is Nothing) Then RaiseEvent TemporaryUpsizedTable2RowChanged(Me, New TemporaryUpsizedTable2RowChangeEvent(CType(e.Row,TemporaryUpsizedTable2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TemporaryUpsizedTable2RowChangingEvent) Is Nothing) Then RaiseEvent TemporaryUpsizedTable2RowChanging(Me, New TemporaryUpsizedTable2RowChangeEvent(CType(e.Row,TemporaryUpsizedTable2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TemporaryUpsizedTable2RowDeletedEvent) Is Nothing) Then RaiseEvent TemporaryUpsizedTable2RowDeleted(Me, New TemporaryUpsizedTable2RowChangeEvent(CType(e.Row,TemporaryUpsizedTable2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TemporaryUpsizedTable2RowDeletingEvent) Is Nothing) Then RaiseEvent TemporaryUpsizedTable2RowDeleting(Me, New TemporaryUpsizedTable2RowChangeEvent(CType(e.Row,TemporaryUpsizedTable2Row), e.Action)) End If End Sub _ Public Sub RemoveTemporaryUpsizedTable2Row(ByVal row As TemporaryUpsizedTable2Row) 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 VERAGDataSet = New VERAGDataSet() 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 = "TemporaryUpsizedTable2DataTable" 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 VerkehrszweigeDataTable Inherits Global.System.Data.TypedTableBase(Of VerkehrszweigeRow) Private columnID As Global.System.Data.DataColumn Private columnVerkehrszweig As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Verkehrszweige" 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 VerkehrszweigColumn() As Global.System.Data.DataColumn Get Return Me.columnVerkehrszweig End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 VerkehrszweigeRow Get Return CType(Me.Rows(index),VerkehrszweigeRow) End Get End Property _ Public Event VerkehrszweigeRowChanging As VerkehrszweigeRowChangeEventHandler _ Public Event VerkehrszweigeRowChanged As VerkehrszweigeRowChangeEventHandler _ Public Event VerkehrszweigeRowDeleting As VerkehrszweigeRowChangeEventHandler _ Public Event VerkehrszweigeRowDeleted As VerkehrszweigeRowChangeEventHandler _ Public Overloads Sub AddVerkehrszweigeRow(ByVal row As VerkehrszweigeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVerkehrszweigeRow(ByVal ID As Short, ByVal Verkehrszweig As String, ByVal SSMA_TimeStamp() As Byte) As VerkehrszweigeRow Dim rowVerkehrszweigeRow As VerkehrszweigeRow = CType(Me.NewRow,VerkehrszweigeRow) Dim columnValuesArray() As Object = New Object() {ID, Verkehrszweig, SSMA_TimeStamp} rowVerkehrszweigeRow.ItemArray = columnValuesArray Me.Rows.Add(rowVerkehrszweigeRow) Return rowVerkehrszweigeRow End Function _ Public Function FindByID(ByVal ID As Short) As VerkehrszweigeRow Return CType(Me.Rows.Find(New Object() {ID}),VerkehrszweigeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VerkehrszweigeDataTable = CType(MyBase.Clone,VerkehrszweigeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VerkehrszweigeDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnVerkehrszweig = MyBase.Columns("Verkehrszweig") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnVerkehrszweig = New Global.System.Data.DataColumn("Verkehrszweig", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVerkehrszweig) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) 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.columnVerkehrszweig.AllowDBNull = false Me.columnVerkehrszweig.MaxLength = 40 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewVerkehrszweigeRow() As VerkehrszweigeRow Return CType(Me.NewRow,VerkehrszweigeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VerkehrszweigeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VerkehrszweigeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VerkehrszweigeRowChangedEvent) Is Nothing) Then RaiseEvent VerkehrszweigeRowChanged(Me, New VerkehrszweigeRowChangeEvent(CType(e.Row,VerkehrszweigeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VerkehrszweigeRowChangingEvent) Is Nothing) Then RaiseEvent VerkehrszweigeRowChanging(Me, New VerkehrszweigeRowChangeEvent(CType(e.Row,VerkehrszweigeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VerkehrszweigeRowDeletedEvent) Is Nothing) Then RaiseEvent VerkehrszweigeRowDeleted(Me, New VerkehrszweigeRowChangeEvent(CType(e.Row,VerkehrszweigeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VerkehrszweigeRowDeletingEvent) Is Nothing) Then RaiseEvent VerkehrszweigeRowDeleting(Me, New VerkehrszweigeRowChangeEvent(CType(e.Row,VerkehrszweigeRow), e.Action)) End If End Sub _ Public Sub RemoveVerkehrszweigeRow(ByVal row As VerkehrszweigeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "VerkehrszweigeDataTable" 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 VermerkeDataTable Inherits Global.System.Data.TypedTableBase(Of VermerkeRow) Private columnVermerk As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Vermerke" 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 VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnVermerk End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 VermerkeRow Get Return CType(Me.Rows(index),VermerkeRow) End Get End Property _ Public Event VermerkeRowChanging As VermerkeRowChangeEventHandler _ Public Event VermerkeRowChanged As VermerkeRowChangeEventHandler _ Public Event VermerkeRowDeleting As VermerkeRowChangeEventHandler _ Public Event VermerkeRowDeleted As VermerkeRowChangeEventHandler _ Public Overloads Sub AddVermerkeRow(ByVal row As VermerkeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVermerkeRow(ByVal Vermerk As String, ByVal SSMA_TimeStamp() As Byte) As VermerkeRow Dim rowVermerkeRow As VermerkeRow = CType(Me.NewRow,VermerkeRow) Dim columnValuesArray() As Object = New Object() {Vermerk, SSMA_TimeStamp} rowVermerkeRow.ItemArray = columnValuesArray Me.Rows.Add(rowVermerkeRow) Return rowVermerkeRow End Function _ Public Function FindByVermerk(ByVal Vermerk As String) As VermerkeRow Return CType(Me.Rows.Find(New Object() {Vermerk}),VermerkeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VermerkeDataTable = CType(MyBase.Clone,VermerkeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VermerkeDataTable() End Function _ Friend Sub InitVars() Me.columnVermerk = MyBase.Columns("Vermerk") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnVermerk = New Global.System.Data.DataColumn("Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermerk) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnVermerk}, true)) Me.columnVermerk.AllowDBNull = false Me.columnVermerk.Unique = true Me.columnVermerk.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewVermerkeRow() As VermerkeRow Return CType(Me.NewRow,VermerkeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VermerkeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VermerkeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VermerkeRowChangedEvent) Is Nothing) Then RaiseEvent VermerkeRowChanged(Me, New VermerkeRowChangeEvent(CType(e.Row,VermerkeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VermerkeRowChangingEvent) Is Nothing) Then RaiseEvent VermerkeRowChanging(Me, New VermerkeRowChangeEvent(CType(e.Row,VermerkeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VermerkeRowDeletedEvent) Is Nothing) Then RaiseEvent VermerkeRowDeleted(Me, New VermerkeRowChangeEvent(CType(e.Row,VermerkeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VermerkeRowDeletingEvent) Is Nothing) Then RaiseEvent VermerkeRowDeleting(Me, New VermerkeRowChangeEvent(CType(e.Row,VermerkeRow), e.Action)) End If End Sub _ Public Sub RemoveVermerkeRow(ByVal row As VermerkeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "VermerkeDataTable" 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 VorkostenDataTable Inherits Global.System.Data.TypedTableBase(Of VorkostenRow) Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Vorkosten" 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 FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 VorkostenRow Get Return CType(Me.Rows(index),VorkostenRow) End Get End Property _ Public Event VorkostenRowChanging As VorkostenRowChangeEventHandler _ Public Event VorkostenRowChanged As VorkostenRowChangeEventHandler _ Public Event VorkostenRowDeleting As VorkostenRowChangeEventHandler _ Public Event VorkostenRowDeleted As VorkostenRowChangeEventHandler _ Public Overloads Sub AddVorkostenRow(ByVal row As VorkostenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVorkostenRow(ByVal FilialenNr As Short, ByVal AbfertigungsNr As Integer, ByVal UnterNr As Short, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Preis As Decimal, ByVal upsize_ts() As Byte) As VorkostenRow Dim rowVorkostenRow As VorkostenRow = CType(Me.NewRow,VorkostenRow) Dim columnValuesArray() As Object = New Object() {FilialenNr, AbfertigungsNr, UnterNr, LeistungsNr, LeistungsBez, Preis, upsize_ts} rowVorkostenRow.ItemArray = columnValuesArray Me.Rows.Add(rowVorkostenRow) Return rowVorkostenRow End Function _ Public Function FindByFilialenNrAbfertigungsNrUnterNrLeistungsNrLeistungsBez(ByVal FilialenNr As Short, ByVal AbfertigungsNr As Integer, ByVal UnterNr As Short, ByVal LeistungsNr As Short, ByVal LeistungsBez As String) As VorkostenRow Return CType(Me.Rows.Find(New Object() {FilialenNr, AbfertigungsNr, UnterNr, LeistungsNr, LeistungsBez}),VorkostenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VorkostenDataTable = CType(MyBase.Clone,VorkostenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VorkostenDataTable() End Function _ Friend Sub InitVars() Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnPreis = MyBase.Columns("Preis") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFilialenNr, Me.columnAbfertigungsNr, Me.columnUnterNr, Me.columnLeistungsNr, Me.columnLeistungsBez}, true)) Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnPreis.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewVorkostenRow() As VorkostenRow Return CType(Me.NewRow,VorkostenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VorkostenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VorkostenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VorkostenRowChangedEvent) Is Nothing) Then RaiseEvent VorkostenRowChanged(Me, New VorkostenRowChangeEvent(CType(e.Row,VorkostenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VorkostenRowChangingEvent) Is Nothing) Then RaiseEvent VorkostenRowChanging(Me, New VorkostenRowChangeEvent(CType(e.Row,VorkostenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VorkostenRowDeletedEvent) Is Nothing) Then RaiseEvent VorkostenRowDeleted(Me, New VorkostenRowChangeEvent(CType(e.Row,VorkostenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VorkostenRowDeletingEvent) Is Nothing) Then RaiseEvent VorkostenRowDeleting(Me, New VorkostenRowChangeEvent(CType(e.Row,VorkostenRow), e.Action)) End If End Sub _ Public Sub RemoveVorkostenRow(ByVal row As VorkostenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "VorkostenDataTable" 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 WährungstabelleDataTable Inherits Global.System.Data.TypedTableBase(Of WährungstabelleRow) Private columnWährungsschlüssel As Global.System.Data.DataColumn Private columnLand As Global.System.Data.DataColumn Private columnMenge As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private columnEurokurs As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnMitgliedslandEU As Global.System.Data.DataColumn Private columnBeitrittsjahrEU As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Währungstabelle" 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 WährungsschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungsschlüssel End Get End Property _ Public ReadOnly Property LandColumn() As Global.System.Data.DataColumn Get Return Me.columnLand End Get End Property _ Public ReadOnly Property MengeColumn() As Global.System.Data.DataColumn Get Return Me.columnMenge End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property EurokursColumn() As Global.System.Data.DataColumn Get Return Me.columnEurokurs End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property MitgliedslandEUColumn() As Global.System.Data.DataColumn Get Return Me.columnMitgliedslandEU End Get End Property _ Public ReadOnly Property BeitrittsjahrEUColumn() As Global.System.Data.DataColumn Get Return Me.columnBeitrittsjahrEU End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 WährungstabelleRow Get Return CType(Me.Rows(index),WährungstabelleRow) End Get End Property _ Public Event WährungstabelleRowChanging As WährungstabelleRowChangeEventHandler _ Public Event WährungstabelleRowChanged As WährungstabelleRowChangeEventHandler _ Public Event WährungstabelleRowDeleting As WährungstabelleRowChangeEventHandler _ Public Event WährungstabelleRowDeleted As WährungstabelleRowChangeEventHandler _ Public Overloads Sub AddWährungstabelleRow(ByVal row As WährungstabelleRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddWährungstabelleRow(ByVal _parentLänderverzeichnis_für_die_AußenhandelsstatistikRowByWährungstabelle_Länderverzeichnis_für_die_AußenhandelsstatistikWährungstabelle As Länderverzeichnis_für_die_AußenhandelsstatistikRow, ByVal Land As String, ByVal Menge As Short, ByVal Währungscode As String, ByVal Eurokurs As Double, ByVal LandKz As String, ByVal MitgliedslandEU As Boolean, ByVal BeitrittsjahrEU As Short, ByVal SSMA_TimeStamp() As Byte) As WährungstabelleRow Dim rowWährungstabelleRow As WährungstabelleRow = CType(Me.NewRow,WährungstabelleRow) Dim columnValuesArray() As Object = New Object() {Nothing, Land, Menge, Währungscode, Eurokurs, LandKz, MitgliedslandEU, BeitrittsjahrEU, SSMA_TimeStamp} If (Not (_parentLänderverzeichnis_für_die_AußenhandelsstatistikRowByWährungstabelle_Länderverzeichnis_für_die_AußenhandelsstatistikWährungstabelle) Is Nothing) Then columnValuesArray(0) = _parentLänderverzeichnis_für_die_AußenhandelsstatistikRowByWährungstabelle_Länderverzeichnis_für_die_AußenhandelsstatistikWährungstabelle(0) End If rowWährungstabelleRow.ItemArray = columnValuesArray Me.Rows.Add(rowWährungstabelleRow) Return rowWährungstabelleRow End Function _ Public Function FindByWährungsschlüssel(ByVal Währungsschlüssel As Short) As WährungstabelleRow Return CType(Me.Rows.Find(New Object() {Währungsschlüssel}),WährungstabelleRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As WährungstabelleDataTable = CType(MyBase.Clone,WährungstabelleDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New WährungstabelleDataTable() End Function _ Friend Sub InitVars() Me.columnWährungsschlüssel = MyBase.Columns("Währungsschlüssel") Me.columnLand = MyBase.Columns("Land") Me.columnMenge = MyBase.Columns("Menge") Me.columnWährungscode = MyBase.Columns("Währungscode") Me.columnEurokurs = MyBase.Columns("Eurokurs") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnMitgliedslandEU = MyBase.Columns("MitgliedslandEU") Me.columnBeitrittsjahrEU = MyBase.Columns("BeitrittsjahrEU") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnWährungsschlüssel = New Global.System.Data.DataColumn("Währungsschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungsschlüssel) Me.columnLand = New Global.System.Data.DataColumn("Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLand) Me.columnMenge = New Global.System.Data.DataColumn("Menge", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMenge) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.columnEurokurs = New Global.System.Data.DataColumn("Eurokurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEurokurs) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnMitgliedslandEU = New Global.System.Data.DataColumn("MitgliedslandEU", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMitgliedslandEU) Me.columnBeitrittsjahrEU = New Global.System.Data.DataColumn("BeitrittsjahrEU", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBeitrittsjahrEU) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWährungsschlüssel}, true)) Me.columnWährungsschlüssel.AllowDBNull = false Me.columnWährungsschlüssel.Unique = true Me.columnLand.AllowDBNull = false Me.columnLand.MaxLength = 22 Me.columnMenge.AllowDBNull = false Me.columnWährungscode.AllowDBNull = false Me.columnWährungscode.MaxLength = 3 Me.columnLandKz.MaxLength = 3 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewWährungstabelleRow() As WährungstabelleRow Return CType(Me.NewRow,WährungstabelleRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New WährungstabelleRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(WährungstabelleRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.WährungstabelleRowChangedEvent) Is Nothing) Then RaiseEvent WährungstabelleRowChanged(Me, New WährungstabelleRowChangeEvent(CType(e.Row,WährungstabelleRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.WährungstabelleRowChangingEvent) Is Nothing) Then RaiseEvent WährungstabelleRowChanging(Me, New WährungstabelleRowChangeEvent(CType(e.Row,WährungstabelleRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.WährungstabelleRowDeletedEvent) Is Nothing) Then RaiseEvent WährungstabelleRowDeleted(Me, New WährungstabelleRowChangeEvent(CType(e.Row,WährungstabelleRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.WährungstabelleRowDeletingEvent) Is Nothing) Then RaiseEvent WährungstabelleRowDeleting(Me, New WährungstabelleRowChangeEvent(CType(e.Row,WährungstabelleRow), e.Action)) End If End Sub _ Public Sub RemoveWährungstabelleRow(ByVal row As WährungstabelleRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "WährungstabelleDataTable" 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 ZahlungsartenDataTable Inherits Global.System.Data.TypedTableBase(Of ZahlungsartenRow) Private columnID As Global.System.Data.DataColumn Private columnZahlungsart As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Zahlungsarten" 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 ZahlungsartColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsart End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 ZahlungsartenRow Get Return CType(Me.Rows(index),ZahlungsartenRow) End Get End Property _ Public Event ZahlungsartenRowChanging As ZahlungsartenRowChangeEventHandler _ Public Event ZahlungsartenRowChanged As ZahlungsartenRowChangeEventHandler _ Public Event ZahlungsartenRowDeleting As ZahlungsartenRowChangeEventHandler _ Public Event ZahlungsartenRowDeleted As ZahlungsartenRowChangeEventHandler _ Public Overloads Sub AddZahlungsartenRow(ByVal row As ZahlungsartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddZahlungsartenRow(ByVal ID As String, ByVal Zahlungsart As String, ByVal SSMA_TimeStamp() As Byte) As ZahlungsartenRow Dim rowZahlungsartenRow As ZahlungsartenRow = CType(Me.NewRow,ZahlungsartenRow) Dim columnValuesArray() As Object = New Object() {ID, Zahlungsart, SSMA_TimeStamp} rowZahlungsartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowZahlungsartenRow) Return rowZahlungsartenRow End Function _ Public Function FindByID(ByVal ID As String) As ZahlungsartenRow Return CType(Me.Rows.Find(New Object() {ID}),ZahlungsartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As ZahlungsartenDataTable = CType(MyBase.Clone,ZahlungsartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New ZahlungsartenDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnZahlungsart = MyBase.Columns("Zahlungsart") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnZahlungsart = New Global.System.Data.DataColumn("Zahlungsart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsart) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) 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.columnID.MaxLength = 1 Me.columnZahlungsart.AllowDBNull = false Me.columnZahlungsart.MaxLength = 50 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewZahlungsartenRow() As ZahlungsartenRow Return CType(Me.NewRow,ZahlungsartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New ZahlungsartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(ZahlungsartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.ZahlungsartenRowChangedEvent) Is Nothing) Then RaiseEvent ZahlungsartenRowChanged(Me, New ZahlungsartenRowChangeEvent(CType(e.Row,ZahlungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.ZahlungsartenRowChangingEvent) Is Nothing) Then RaiseEvent ZahlungsartenRowChanging(Me, New ZahlungsartenRowChangeEvent(CType(e.Row,ZahlungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.ZahlungsartenRowDeletedEvent) Is Nothing) Then RaiseEvent ZahlungsartenRowDeleted(Me, New ZahlungsartenRowChangeEvent(CType(e.Row,ZahlungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.ZahlungsartenRowDeletingEvent) Is Nothing) Then RaiseEvent ZahlungsartenRowDeleting(Me, New ZahlungsartenRowChangeEvent(CType(e.Row,ZahlungsartenRow), e.Action)) End If End Sub _ Public Sub RemoveZahlungsartenRow(ByVal row As ZahlungsartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "ZahlungsartenDataTable" 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 zbadzDataTable Inherits Global.System.Data.TypedTableBase(Of zbadzRow) Private columnID As Global.System.Data.DataColumn Private columnzbant_ID As Global.System.Data.DataColumn Private columnzbadz_typ As Global.System.Data.DataColumn Private columnzbadz_name1 As Global.System.Data.DataColumn Private columnbaslnd_alpha As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "zbadz" 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 zbant_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_ID End Get End Property _ Public ReadOnly Property zbadz_typColumn() As Global.System.Data.DataColumn Get Return Me.columnzbadz_typ End Get End Property _ Public ReadOnly Property zbadz_name1Column() As Global.System.Data.DataColumn Get Return Me.columnzbadz_name1 End Get End Property _ Public ReadOnly Property baslnd_alphaColumn() As Global.System.Data.DataColumn Get Return Me.columnbaslnd_alpha End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 zbadzRow Get Return CType(Me.Rows(index),zbadzRow) End Get End Property _ Public Event zbadzRowChanging As zbadzRowChangeEventHandler _ Public Event zbadzRowChanged As zbadzRowChangeEventHandler _ Public Event zbadzRowDeleting As zbadzRowChangeEventHandler _ Public Event zbadzRowDeleted As zbadzRowChangeEventHandler _ Public Overloads Sub AddzbadzRow(ByVal row As zbadzRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddzbadzRow(ByVal parentzbantRowByzbadz_FK00 As zbantRow, ByVal zbadz_typ As Short, ByVal zbadz_name1 As String, ByVal baslnd_alpha As String, ByVal upsize_ts() As Byte) As zbadzRow Dim rowzbadzRow As zbadzRow = CType(Me.NewRow,zbadzRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, zbadz_typ, zbadz_name1, baslnd_alpha, upsize_ts} If (Not (parentzbantRowByzbadz_FK00) Is Nothing) Then columnValuesArray(1) = parentzbantRowByzbadz_FK00(0) End If rowzbadzRow.ItemArray = columnValuesArray Me.Rows.Add(rowzbadzRow) Return rowzbadzRow End Function _ Public Function FindByID(ByVal ID As Integer) As zbadzRow Return CType(Me.Rows.Find(New Object() {ID}),zbadzRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As zbadzDataTable = CType(MyBase.Clone,zbadzDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New zbadzDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnzbant_ID = MyBase.Columns("zbant_ID") Me.columnzbadz_typ = MyBase.Columns("zbadz_typ") Me.columnzbadz_name1 = MyBase.Columns("zbadz_name1") Me.columnbaslnd_alpha = MyBase.Columns("baslnd_alpha") Me.columnupsize_ts = MyBase.Columns("upsize_ts") 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.columnzbant_ID = New Global.System.Data.DataColumn("zbant_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_ID) Me.columnzbadz_typ = New Global.System.Data.DataColumn("zbadz_typ", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbadz_typ) Me.columnzbadz_name1 = New Global.System.Data.DataColumn("zbadz_name1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbadz_name1) Me.columnbaslnd_alpha = New Global.System.Data.DataColumn("baslnd_alpha", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbaslnd_alpha) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnzbant_ID.AllowDBNull = false Me.columnzbadz_typ.AllowDBNull = false Me.columnzbadz_name1.AllowDBNull = false Me.columnzbadz_name1.MaxLength = 40 Me.columnbaslnd_alpha.AllowDBNull = false Me.columnbaslnd_alpha.MaxLength = 2 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewzbadzRow() As zbadzRow Return CType(Me.NewRow,zbadzRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New zbadzRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(zbadzRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.zbadzRowChangedEvent) Is Nothing) Then RaiseEvent zbadzRowChanged(Me, New zbadzRowChangeEvent(CType(e.Row,zbadzRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.zbadzRowChangingEvent) Is Nothing) Then RaiseEvent zbadzRowChanging(Me, New zbadzRowChangeEvent(CType(e.Row,zbadzRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.zbadzRowDeletedEvent) Is Nothing) Then RaiseEvent zbadzRowDeleted(Me, New zbadzRowChangeEvent(CType(e.Row,zbadzRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.zbadzRowDeletingEvent) Is Nothing) Then RaiseEvent zbadzRowDeleting(Me, New zbadzRowChangeEvent(CType(e.Row,zbadzRow), e.Action)) End If End Sub _ Public Sub RemovezbadzRow(ByVal row As zbadzRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "zbadzDataTable" 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 zbantDataTable Inherits Global.System.Data.TypedTableBase(Of zbantRow) Private columnID As Global.System.Data.DataColumn Private columnbasman_nr As Global.System.Data.DataColumn Private columnbasman_nl As Global.System.Data.DataColumn Private columnzbant_beznr As Global.System.Data.DataColumn Private columnzbant_regnr As Global.System.Data.DataColumn Private columnzbant_korant As Global.System.Data.DataColumn Private columnzbant_antart As Global.System.Data.DataColumn Private columnzbant_stat As Global.System.Data.DataColumn Private columnzbant_anmust As Global.System.Data.DataColumn Private columnzbant_erwust As Global.System.Data.DataColumn Private columnzbant_nadat As Global.System.Data.DataColumn Private columnzbant_preisr As Global.System.Data.DataColumn Private columnzbant_waehr As Global.System.Data.DataColumn Private columnzbant_kurs As Global.System.Data.DataColumn Private columnzbant_gesart As Global.System.Data.DataColumn Private columnzbant_bfvkzg As Global.System.Data.DataColumn Private columnzbant_dsenda As Global.System.Data.DataColumn Private columnzbant_anzpos As Global.System.Data.DataColumn Private columnHistory As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "zbant" 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 basman_nrColumn() As Global.System.Data.DataColumn Get Return Me.columnbasman_nr End Get End Property _ Public ReadOnly Property basman_nlColumn() As Global.System.Data.DataColumn Get Return Me.columnbasman_nl End Get End Property _ Public ReadOnly Property zbant_beznrColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_beznr End Get End Property _ Public ReadOnly Property zbant_regnrColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_regnr End Get End Property _ Public ReadOnly Property zbant_korantColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_korant End Get End Property _ Public ReadOnly Property zbant_antartColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_antart End Get End Property _ Public ReadOnly Property zbant_statColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_stat End Get End Property _ Public ReadOnly Property zbant_anmustColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_anmust End Get End Property _ Public ReadOnly Property zbant_erwustColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_erwust End Get End Property _ Public ReadOnly Property zbant_nadatColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_nadat End Get End Property _ Public ReadOnly Property zbant_preisrColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_preisr End Get End Property _ Public ReadOnly Property zbant_waehrColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_waehr End Get End Property _ Public ReadOnly Property zbant_kursColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_kurs End Get End Property _ Public ReadOnly Property zbant_gesartColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_gesart End Get End Property _ Public ReadOnly Property zbant_bfvkzgColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_bfvkzg End Get End Property _ Public ReadOnly Property zbant_dsendaColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_dsenda End Get End Property _ Public ReadOnly Property zbant_anzposColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_anzpos End Get End Property _ Public ReadOnly Property HistoryColumn() As Global.System.Data.DataColumn Get Return Me.columnHistory End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 zbantRow Get Return CType(Me.Rows(index),zbantRow) End Get End Property _ Public Event zbantRowChanging As zbantRowChangeEventHandler _ Public Event zbantRowChanged As zbantRowChangeEventHandler _ Public Event zbantRowDeleting As zbantRowChangeEventHandler _ Public Event zbantRowDeleted As zbantRowChangeEventHandler _ Public Overloads Sub AddzbantRow(ByVal row As zbantRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddzbantRow( _ ByVal basman_nr As String, _ ByVal basman_nl As String, _ ByVal zbant_beznr As String, _ ByVal zbant_regnr As String, _ ByVal zbant_korant As Short, _ ByVal zbant_antart As String, _ ByVal zbant_stat As Short, _ ByVal zbant_anmust As String, _ ByVal zbant_erwust As String, _ ByVal zbant_nadat As Date, _ ByVal zbant_preisr As Decimal, _ ByVal zbant_waehr As String, _ ByVal zbant_kurs As Double, _ ByVal zbant_gesart As String, _ ByVal zbant_bfvkzg As String, _ ByVal zbant_dsenda As Date, _ ByVal zbant_anzpos As Short, _ ByVal History As Boolean, _ ByVal upsize_ts() As Byte) As zbantRow Dim rowzbantRow As zbantRow = CType(Me.NewRow,zbantRow) Dim columnValuesArray() As Object = New Object() {Nothing, basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbant_antart, zbant_stat, zbant_anmust, zbant_erwust, zbant_nadat, zbant_preisr, zbant_waehr, zbant_kurs, zbant_gesart, zbant_bfvkzg, zbant_dsenda, zbant_anzpos, History, upsize_ts} rowzbantRow.ItemArray = columnValuesArray Me.Rows.Add(rowzbantRow) Return rowzbantRow End Function _ Public Function FindByID(ByVal ID As Integer) As zbantRow Return CType(Me.Rows.Find(New Object() {ID}),zbantRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As zbantDataTable = CType(MyBase.Clone,zbantDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New zbantDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnbasman_nr = MyBase.Columns("basman_nr") Me.columnbasman_nl = MyBase.Columns("basman_nl") Me.columnzbant_beznr = MyBase.Columns("zbant_beznr") Me.columnzbant_regnr = MyBase.Columns("zbant_regnr") Me.columnzbant_korant = MyBase.Columns("zbant_korant") Me.columnzbant_antart = MyBase.Columns("zbant_antart") Me.columnzbant_stat = MyBase.Columns("zbant_stat") Me.columnzbant_anmust = MyBase.Columns("zbant_anmust") Me.columnzbant_erwust = MyBase.Columns("zbant_erwust") Me.columnzbant_nadat = MyBase.Columns("zbant_nadat") Me.columnzbant_preisr = MyBase.Columns("zbant_preisr") Me.columnzbant_waehr = MyBase.Columns("zbant_waehr") Me.columnzbant_kurs = MyBase.Columns("zbant_kurs") Me.columnzbant_gesart = MyBase.Columns("zbant_gesart") Me.columnzbant_bfvkzg = MyBase.Columns("zbant_bfvkzg") Me.columnzbant_dsenda = MyBase.Columns("zbant_dsenda") Me.columnzbant_anzpos = MyBase.Columns("zbant_anzpos") Me.columnHistory = MyBase.Columns("History") Me.columnupsize_ts = MyBase.Columns("upsize_ts") 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.columnbasman_nr = New Global.System.Data.DataColumn("basman_nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbasman_nr) Me.columnbasman_nl = New Global.System.Data.DataColumn("basman_nl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbasman_nl) Me.columnzbant_beznr = New Global.System.Data.DataColumn("zbant_beznr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_beznr) Me.columnzbant_regnr = New Global.System.Data.DataColumn("zbant_regnr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_regnr) Me.columnzbant_korant = New Global.System.Data.DataColumn("zbant_korant", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_korant) Me.columnzbant_antart = New Global.System.Data.DataColumn("zbant_antart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_antart) Me.columnzbant_stat = New Global.System.Data.DataColumn("zbant_stat", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_stat) Me.columnzbant_anmust = New Global.System.Data.DataColumn("zbant_anmust", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_anmust) Me.columnzbant_erwust = New Global.System.Data.DataColumn("zbant_erwust", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_erwust) Me.columnzbant_nadat = New Global.System.Data.DataColumn("zbant_nadat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_nadat) Me.columnzbant_preisr = New Global.System.Data.DataColumn("zbant_preisr", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_preisr) Me.columnzbant_waehr = New Global.System.Data.DataColumn("zbant_waehr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_waehr) Me.columnzbant_kurs = New Global.System.Data.DataColumn("zbant_kurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_kurs) Me.columnzbant_gesart = New Global.System.Data.DataColumn("zbant_gesart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_gesart) Me.columnzbant_bfvkzg = New Global.System.Data.DataColumn("zbant_bfvkzg", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_bfvkzg) Me.columnzbant_dsenda = New Global.System.Data.DataColumn("zbant_dsenda", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_dsenda) Me.columnzbant_anzpos = New Global.System.Data.DataColumn("zbant_anzpos", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_anzpos) Me.columnHistory = New Global.System.Data.DataColumn("History", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHistory) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnbasman_nr.AllowDBNull = false Me.columnbasman_nr.MaxLength = 4 Me.columnbasman_nl.AllowDBNull = false Me.columnbasman_nl.MaxLength = 3 Me.columnzbant_beznr.AllowDBNull = false Me.columnzbant_beznr.MaxLength = 35 Me.columnzbant_regnr.AllowDBNull = false Me.columnzbant_regnr.MaxLength = 21 Me.columnzbant_korant.AllowDBNull = false Me.columnzbant_antart.AllowDBNull = false Me.columnzbant_antart.MaxLength = 3 Me.columnzbant_stat.AllowDBNull = false Me.columnzbant_anmust.AllowDBNull = false Me.columnzbant_anmust.MaxLength = 14 Me.columnzbant_erwust.AllowDBNull = false Me.columnzbant_erwust.MaxLength = 14 Me.columnzbant_nadat.AllowDBNull = false Me.columnzbant_preisr.AllowDBNull = false Me.columnzbant_waehr.AllowDBNull = false Me.columnzbant_waehr.MaxLength = 3 Me.columnzbant_kurs.AllowDBNull = false Me.columnzbant_gesart.AllowDBNull = false Me.columnzbant_gesart.MaxLength = 2 Me.columnzbant_bfvkzg.AllowDBNull = false Me.columnzbant_bfvkzg.MaxLength = 2 Me.columnzbant_dsenda.AllowDBNull = false Me.columnzbant_anzpos.AllowDBNull = false Me.columnHistory.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewzbantRow() As zbantRow Return CType(Me.NewRow,zbantRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New zbantRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(zbantRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.zbantRowChangedEvent) Is Nothing) Then RaiseEvent zbantRowChanged(Me, New zbantRowChangeEvent(CType(e.Row,zbantRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.zbantRowChangingEvent) Is Nothing) Then RaiseEvent zbantRowChanging(Me, New zbantRowChangeEvent(CType(e.Row,zbantRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.zbantRowDeletedEvent) Is Nothing) Then RaiseEvent zbantRowDeleted(Me, New zbantRowChangeEvent(CType(e.Row,zbantRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.zbantRowDeletingEvent) Is Nothing) Then RaiseEvent zbantRowDeleting(Me, New zbantRowChangeEvent(CType(e.Row,zbantRow), e.Action)) End If End Sub _ Public Sub RemovezbantRow(ByVal row As zbantRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "zbantDataTable" 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 zbapoDataTable Inherits Global.System.Data.TypedTableBase(Of zbapoRow) Private columnID As Global.System.Data.DataColumn Private columnzbant_ID As Global.System.Data.DataColumn Private columnzbapo_posnr As Global.System.Data.DataColumn Private columnzbabg_regkz As Global.System.Data.DataColumn Private columnzbabg_abglfd As Global.System.Data.DataColumn Private columnzbapo_eustwe As Global.System.Data.DataColumn Private columnzbapo_zollw As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "zbapo" 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 zbant_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_ID End Get End Property _ Public ReadOnly Property zbapo_posnrColumn() As Global.System.Data.DataColumn Get Return Me.columnzbapo_posnr End Get End Property _ Public ReadOnly Property zbabg_regkzColumn() As Global.System.Data.DataColumn Get Return Me.columnzbabg_regkz End Get End Property _ Public ReadOnly Property zbabg_abglfdColumn() As Global.System.Data.DataColumn Get Return Me.columnzbabg_abglfd End Get End Property _ Public ReadOnly Property zbapo_eustweColumn() As Global.System.Data.DataColumn Get Return Me.columnzbapo_eustwe End Get End Property _ Public ReadOnly Property zbapo_zollwColumn() As Global.System.Data.DataColumn Get Return Me.columnzbapo_zollw End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 zbapoRow Get Return CType(Me.Rows(index),zbapoRow) End Get End Property _ Public Event zbapoRowChanging As zbapoRowChangeEventHandler _ Public Event zbapoRowChanged As zbapoRowChangeEventHandler _ Public Event zbapoRowDeleting As zbapoRowChangeEventHandler _ Public Event zbapoRowDeleted As zbapoRowChangeEventHandler _ Public Overloads Sub AddzbapoRow(ByVal row As zbapoRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddzbapoRow(ByVal parentzbantRowByzbapo_FK00 As zbantRow, ByVal zbapo_posnr As Short, ByVal zbabg_regkz As String, ByVal zbabg_abglfd As Short, ByVal zbapo_eustwe As Decimal, ByVal zbapo_zollw As Decimal, ByVal upsize_ts() As Byte) As zbapoRow Dim rowzbapoRow As zbapoRow = CType(Me.NewRow,zbapoRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, zbapo_posnr, zbabg_regkz, zbabg_abglfd, zbapo_eustwe, zbapo_zollw, upsize_ts} If (Not (parentzbantRowByzbapo_FK00) Is Nothing) Then columnValuesArray(1) = parentzbantRowByzbapo_FK00(0) End If rowzbapoRow.ItemArray = columnValuesArray Me.Rows.Add(rowzbapoRow) Return rowzbapoRow End Function _ Public Function FindByID(ByVal ID As Integer) As zbapoRow Return CType(Me.Rows.Find(New Object() {ID}),zbapoRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As zbapoDataTable = CType(MyBase.Clone,zbapoDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New zbapoDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnzbant_ID = MyBase.Columns("zbant_ID") Me.columnzbapo_posnr = MyBase.Columns("zbapo_posnr") Me.columnzbabg_regkz = MyBase.Columns("zbabg_regkz") Me.columnzbabg_abglfd = MyBase.Columns("zbabg_abglfd") Me.columnzbapo_eustwe = MyBase.Columns("zbapo_eustwe") Me.columnzbapo_zollw = MyBase.Columns("zbapo_zollw") Me.columnupsize_ts = MyBase.Columns("upsize_ts") 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.columnzbant_ID = New Global.System.Data.DataColumn("zbant_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_ID) Me.columnzbapo_posnr = New Global.System.Data.DataColumn("zbapo_posnr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbapo_posnr) Me.columnzbabg_regkz = New Global.System.Data.DataColumn("zbabg_regkz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbabg_regkz) Me.columnzbabg_abglfd = New Global.System.Data.DataColumn("zbabg_abglfd", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbabg_abglfd) Me.columnzbapo_eustwe = New Global.System.Data.DataColumn("zbapo_eustwe", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbapo_eustwe) Me.columnzbapo_zollw = New Global.System.Data.DataColumn("zbapo_zollw", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbapo_zollw) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnzbant_ID.AllowDBNull = false Me.columnzbapo_posnr.AllowDBNull = false Me.columnzbabg_regkz.AllowDBNull = false Me.columnzbabg_regkz.MaxLength = 29 Me.columnzbabg_abglfd.AllowDBNull = false Me.columnzbapo_eustwe.AllowDBNull = false Me.columnzbapo_zollw.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewzbapoRow() As zbapoRow Return CType(Me.NewRow,zbapoRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New zbapoRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(zbapoRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.zbapoRowChangedEvent) Is Nothing) Then RaiseEvent zbapoRowChanged(Me, New zbapoRowChangeEvent(CType(e.Row,zbapoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.zbapoRowChangingEvent) Is Nothing) Then RaiseEvent zbapoRowChanging(Me, New zbapoRowChangeEvent(CType(e.Row,zbapoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.zbapoRowDeletedEvent) Is Nothing) Then RaiseEvent zbapoRowDeleted(Me, New zbapoRowChangeEvent(CType(e.Row,zbapoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.zbapoRowDeletingEvent) Is Nothing) Then RaiseEvent zbapoRowDeleting(Me, New zbapoRowChangeEvent(CType(e.Row,zbapoRow), e.Action)) End If End Sub _ Public Sub RemovezbapoRow(ByVal row As zbapoRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "zbapoDataTable" 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 zbposDataTable Inherits Global.System.Data.TypedTableBase(Of zbposRow) Private columnID As Global.System.Data.DataColumn Private columnzbant_ID As Global.System.Data.DataColumn Private columnzbpos_posnr As Global.System.Data.DataColumn Private columnzbpos_wanr As Global.System.Data.DataColumn Private columnzbpos_eigm As Global.System.Data.DataColumn Private columnzbpos_wmahst As Global.System.Data.DataColumn Private columnzbpos_wabes As Global.System.Data.DataColumn Private columnzbpos_stat As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "zbpos" 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 zbant_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnzbant_ID End Get End Property _ Public ReadOnly Property zbpos_posnrColumn() As Global.System.Data.DataColumn Get Return Me.columnzbpos_posnr End Get End Property _ Public ReadOnly Property zbpos_wanrColumn() As Global.System.Data.DataColumn Get Return Me.columnzbpos_wanr End Get End Property _ Public ReadOnly Property zbpos_eigmColumn() As Global.System.Data.DataColumn Get Return Me.columnzbpos_eigm End Get End Property _ Public ReadOnly Property zbpos_wmahstColumn() As Global.System.Data.DataColumn Get Return Me.columnzbpos_wmahst End Get End Property _ Public ReadOnly Property zbpos_wabesColumn() As Global.System.Data.DataColumn Get Return Me.columnzbpos_wabes End Get End Property _ Public ReadOnly Property zbpos_statColumn() As Global.System.Data.DataColumn Get Return Me.columnzbpos_stat End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 zbposRow Get Return CType(Me.Rows(index),zbposRow) End Get End Property _ Public Event zbposRowChanging As zbposRowChangeEventHandler _ Public Event zbposRowChanged As zbposRowChangeEventHandler _ Public Event zbposRowDeleting As zbposRowChangeEventHandler _ Public Event zbposRowDeleted As zbposRowChangeEventHandler _ Public Overloads Sub AddzbposRow(ByVal row As zbposRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddzbposRow(ByVal parentzbantRowByzbpos_FK00 As zbantRow, ByVal zbpos_posnr As Short, ByVal zbpos_wanr As String, ByVal zbpos_eigm As Double, ByVal zbpos_wmahst As Double, ByVal zbpos_wabes As String, ByVal zbpos_stat As Short, ByVal upsize_ts() As Byte) As zbposRow Dim rowzbposRow As zbposRow = CType(Me.NewRow,zbposRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, zbpos_posnr, zbpos_wanr, zbpos_eigm, zbpos_wmahst, zbpos_wabes, zbpos_stat, upsize_ts} If (Not (parentzbantRowByzbpos_FK00) Is Nothing) Then columnValuesArray(1) = parentzbantRowByzbpos_FK00(0) End If rowzbposRow.ItemArray = columnValuesArray Me.Rows.Add(rowzbposRow) Return rowzbposRow End Function _ Public Function FindByID(ByVal ID As Integer) As zbposRow Return CType(Me.Rows.Find(New Object() {ID}),zbposRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As zbposDataTable = CType(MyBase.Clone,zbposDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New zbposDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnzbant_ID = MyBase.Columns("zbant_ID") Me.columnzbpos_posnr = MyBase.Columns("zbpos_posnr") Me.columnzbpos_wanr = MyBase.Columns("zbpos_wanr") Me.columnzbpos_eigm = MyBase.Columns("zbpos_eigm") Me.columnzbpos_wmahst = MyBase.Columns("zbpos_wmahst") Me.columnzbpos_wabes = MyBase.Columns("zbpos_wabes") Me.columnzbpos_stat = MyBase.Columns("zbpos_stat") Me.columnupsize_ts = MyBase.Columns("upsize_ts") 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.columnzbant_ID = New Global.System.Data.DataColumn("zbant_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbant_ID) Me.columnzbpos_posnr = New Global.System.Data.DataColumn("zbpos_posnr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbpos_posnr) Me.columnzbpos_wanr = New Global.System.Data.DataColumn("zbpos_wanr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbpos_wanr) Me.columnzbpos_eigm = New Global.System.Data.DataColumn("zbpos_eigm", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbpos_eigm) Me.columnzbpos_wmahst = New Global.System.Data.DataColumn("zbpos_wmahst", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbpos_wmahst) Me.columnzbpos_wabes = New Global.System.Data.DataColumn("zbpos_wabes", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbpos_wabes) Me.columnzbpos_stat = New Global.System.Data.DataColumn("zbpos_stat", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnzbpos_stat) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnzbant_ID.AllowDBNull = false Me.columnzbpos_posnr.AllowDBNull = false Me.columnzbpos_wanr.AllowDBNull = false Me.columnzbpos_wanr.MaxLength = 11 Me.columnzbpos_eigm.AllowDBNull = false Me.columnzbpos_wmahst.AllowDBNull = false Me.columnzbpos_wabes.AllowDBNull = false Me.columnzbpos_wabes.MaxLength = 240 Me.columnzbpos_stat.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewzbposRow() As zbposRow Return CType(Me.NewRow,zbposRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New zbposRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(zbposRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.zbposRowChangedEvent) Is Nothing) Then RaiseEvent zbposRowChanged(Me, New zbposRowChangeEvent(CType(e.Row,zbposRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.zbposRowChangingEvent) Is Nothing) Then RaiseEvent zbposRowChanging(Me, New zbposRowChangeEvent(CType(e.Row,zbposRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.zbposRowDeletedEvent) Is Nothing) Then RaiseEvent zbposRowDeleted(Me, New zbposRowChangeEvent(CType(e.Row,zbposRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.zbposRowDeletingEvent) Is Nothing) Then RaiseEvent zbposRowDeleting(Me, New zbposRowChangeEvent(CType(e.Row,zbposRow), e.Action)) End If End Sub _ Public Sub RemovezbposRow(ByVal row As zbposRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "zbposDataTable" 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 ZkteingDataTable Inherits Global.System.Data.TypedTableBase(Of ZkteingRow) Private columnIndex As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnZollamtsNr As Global.System.Data.DataColumn Private columnJahr As Global.System.Data.DataColumn Private columnKennNr As Global.System.Data.DataColumn Private columnNummer As Global.System.Data.DataColumn Private columnLeitzahl As Global.System.Data.DataColumn Private columnBelegart As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnBetrag As Global.System.Data.DataColumn Private columnEingabedatum As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnÜbernahmedatum As Global.System.Data.DataColumn Private columnBemerkung As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnBezugsnummer As Global.System.Data.DataColumn Private columnRegistriernummer As Global.System.Data.DataColumn Private columnKorrekturnummer As Global.System.Data.DataColumn Private columnAOFD As Global.System.Data.DataColumn Private columnAKTO As Global.System.Data.DataColumn Private columnFälligkeitsdatum As Global.System.Data.DataColumn Private columnDateiname As Global.System.Data.DataColumn Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Zkteing" 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 IndexColumn() As Global.System.Data.DataColumn Get Return Me.columnIndex End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property ZollamtsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnZollamtsNr End Get End Property _ Public ReadOnly Property JahrColumn() As Global.System.Data.DataColumn Get Return Me.columnJahr End Get End Property _ Public ReadOnly Property KennNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKennNr End Get End Property _ Public ReadOnly Property NummerColumn() As Global.System.Data.DataColumn Get Return Me.columnNummer End Get End Property _ Public ReadOnly Property LeitzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnLeitzahl End Get End Property _ Public ReadOnly Property BelegartColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegart End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag End Get End Property _ Public ReadOnly Property EingabedatumColumn() As Global.System.Data.DataColumn Get Return Me.columnEingabedatum End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property ÜbernahmedatumColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbernahmedatum End Get End Property _ Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkung End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property BezugsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBezugsnummer End Get End Property _ Public ReadOnly Property RegistriernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRegistriernummer End Get End Property _ Public ReadOnly Property KorrekturnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnKorrekturnummer End Get End Property _ Public ReadOnly Property AOFDColumn() As Global.System.Data.DataColumn Get Return Me.columnAOFD End Get End Property _ Public ReadOnly Property AKTOColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTO End Get End Property _ Public ReadOnly Property FälligkeitsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnFälligkeitsdatum End Get End Property _ Public ReadOnly Property DateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiname End Get End Property _ Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez 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 ZkteingRow Get Return CType(Me.Rows(index),ZkteingRow) End Get End Property _ Public Event ZkteingRowChanging As ZkteingRowChangeEventHandler _ Public Event ZkteingRowChanged As ZkteingRowChangeEventHandler _ Public Event ZkteingRowDeleting As ZkteingRowChangeEventHandler _ Public Event ZkteingRowDeleted As ZkteingRowChangeEventHandler _ Public Overloads Sub AddZkteingRow(ByVal row As ZkteingRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddZkteingRow( _ ByVal Status As String, _ ByVal ZollamtsNr As Short, _ ByVal Jahr As Short, _ ByVal KennNr As Short, _ ByVal Nummer As Integer, _ ByVal Leitzahl As Short, _ ByVal Belegart As String, _ ByVal LeistungsNr As Short, _ ByVal Betrag As Decimal, _ ByVal Eingabedatum As Date, _ ByVal Abfertigungsdatum As Date, _ ByVal Übernahmedatum As Date, _ ByVal Bemerkung As String, _ ByVal Sachbearbeiter As String, _ ByVal Bezugsnummer As String, _ ByVal Registriernummer As String, _ ByVal Korrekturnummer As String, _ ByVal AOFD As String, _ ByVal AKTO As String, _ ByVal Fälligkeitsdatum As Date, _ ByVal Dateiname As String, _ ByVal Mandant As String, _ ByVal Niederlassung As String, _ ByVal upsize_ts() As Byte, _ ByVal LeistungsBez As String) As ZkteingRow Dim rowZkteingRow As ZkteingRow = CType(Me.NewRow,ZkteingRow) Dim columnValuesArray() As Object = New Object() {Nothing, Status, ZollamtsNr, Jahr, KennNr, Nummer, Leitzahl, Belegart, LeistungsNr, Betrag, Eingabedatum, Abfertigungsdatum, Übernahmedatum, Bemerkung, Sachbearbeiter, Bezugsnummer, Registriernummer, Korrekturnummer, AOFD, AKTO, Fälligkeitsdatum, Dateiname, Mandant, Niederlassung, upsize_ts, LeistungsBez} rowZkteingRow.ItemArray = columnValuesArray Me.Rows.Add(rowZkteingRow) Return rowZkteingRow End Function _ Public Function FindByIndex(ByVal Index As Integer) As ZkteingRow Return CType(Me.Rows.Find(New Object() {Index}),ZkteingRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As ZkteingDataTable = CType(MyBase.Clone,ZkteingDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New ZkteingDataTable() End Function _ Friend Sub InitVars() Me.columnIndex = MyBase.Columns("Index") Me.columnStatus = MyBase.Columns("Status") Me.columnZollamtsNr = MyBase.Columns("ZollamtsNr") Me.columnJahr = MyBase.Columns("Jahr") Me.columnKennNr = MyBase.Columns("KennNr") Me.columnNummer = MyBase.Columns("Nummer") Me.columnLeitzahl = MyBase.Columns("Leitzahl") Me.columnBelegart = MyBase.Columns("Belegart") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnBetrag = MyBase.Columns("Betrag") Me.columnEingabedatum = MyBase.Columns("Eingabedatum") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnÜbernahmedatum = MyBase.Columns("Übernahmedatum") Me.columnBemerkung = MyBase.Columns("Bemerkung") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnBezugsnummer = MyBase.Columns("Bezugsnummer") Me.columnRegistriernummer = MyBase.Columns("Registriernummer") Me.columnKorrekturnummer = MyBase.Columns("Korrekturnummer") Me.columnAOFD = MyBase.Columns("AOFD") Me.columnAKTO = MyBase.Columns("AKTO") Me.columnFälligkeitsdatum = MyBase.Columns("Fälligkeitsdatum") Me.columnDateiname = MyBase.Columns("Dateiname") Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") End Sub _ Private Sub InitClass() Me.columnIndex = New Global.System.Data.DataColumn("Index", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndex) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnZollamtsNr = New Global.System.Data.DataColumn("ZollamtsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollamtsNr) Me.columnJahr = New Global.System.Data.DataColumn("Jahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnJahr) Me.columnKennNr = New Global.System.Data.DataColumn("KennNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKennNr) Me.columnNummer = New Global.System.Data.DataColumn("Nummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNummer) Me.columnLeitzahl = New Global.System.Data.DataColumn("Leitzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeitzahl) Me.columnBelegart = New Global.System.Data.DataColumn("Belegart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegart) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnBetrag = New Global.System.Data.DataColumn("Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag) Me.columnEingabedatum = New Global.System.Data.DataColumn("Eingabedatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingabedatum) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnÜbernahmedatum = New Global.System.Data.DataColumn("Übernahmedatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbernahmedatum) Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkung) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnBezugsnummer = New Global.System.Data.DataColumn("Bezugsnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBezugsnummer) Me.columnRegistriernummer = New Global.System.Data.DataColumn("Registriernummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRegistriernummer) Me.columnKorrekturnummer = New Global.System.Data.DataColumn("Korrekturnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKorrekturnummer) Me.columnAOFD = New Global.System.Data.DataColumn("AOFD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAOFD) Me.columnAKTO = New Global.System.Data.DataColumn("AKTO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAKTO) Me.columnFälligkeitsdatum = New Global.System.Data.DataColumn("Fälligkeitsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFälligkeitsdatum) Me.columnDateiname = New Global.System.Data.DataColumn("Dateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiname) Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIndex}, true)) Me.columnIndex.AutoIncrement = true Me.columnIndex.AutoIncrementSeed = -1 Me.columnIndex.AutoIncrementStep = -1 Me.columnIndex.AllowDBNull = false Me.columnIndex.ReadOnly = true Me.columnIndex.Unique = true Me.columnStatus.MaxLength = 1 Me.columnBelegart.AllowDBNull = false Me.columnBelegart.MaxLength = 5 Me.columnLeistungsNr.AllowDBNull = false Me.columnBetrag.AllowDBNull = false Me.columnEingabedatum.AllowDBNull = false Me.columnÜbernahmedatum.AllowDBNull = false Me.columnBemerkung.MaxLength = 50 Me.columnSachbearbeiter.MaxLength = 15 Me.columnBezugsnummer.AllowDBNull = false Me.columnBezugsnummer.MaxLength = 35 Me.columnRegistriernummer.MaxLength = 21 Me.columnKorrekturnummer.MaxLength = 3 Me.columnAOFD.MaxLength = 3 Me.columnAKTO.MaxLength = 10 Me.columnDateiname.MaxLength = 20 Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.MaxLength = 3 Me.columnupsize_ts.ReadOnly = true Me.columnLeistungsBez.MaxLength = 30 End Sub _ Public Function NewZkteingRow() As ZkteingRow Return CType(Me.NewRow,ZkteingRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New ZkteingRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(ZkteingRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.ZkteingRowChangedEvent) Is Nothing) Then RaiseEvent ZkteingRowChanged(Me, New ZkteingRowChangeEvent(CType(e.Row,ZkteingRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.ZkteingRowChangingEvent) Is Nothing) Then RaiseEvent ZkteingRowChanging(Me, New ZkteingRowChangeEvent(CType(e.Row,ZkteingRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.ZkteingRowDeletedEvent) Is Nothing) Then RaiseEvent ZkteingRowDeleted(Me, New ZkteingRowChangeEvent(CType(e.Row,ZkteingRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.ZkteingRowDeletingEvent) Is Nothing) Then RaiseEvent ZkteingRowDeleting(Me, New ZkteingRowChangeEvent(CType(e.Row,ZkteingRow), e.Action)) End If End Sub _ Public Sub RemoveZkteingRow(ByVal row As ZkteingRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "ZkteingDataTable" 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 ZollsystemeDataTable Inherits Global.System.Data.TypedTableBase(Of ZollsystemeRow) Private columnZollsystemart As Global.System.Data.DataColumn Private columnZollsystemBezeichnung As Global.System.Data.DataColumn Private columnZollsystemLand As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Zollsysteme" 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 ZollsystemartColumn() As Global.System.Data.DataColumn Get Return Me.columnZollsystemart End Get End Property _ Public ReadOnly Property ZollsystemBezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnZollsystemBezeichnung End Get End Property _ Public ReadOnly Property ZollsystemLandColumn() As Global.System.Data.DataColumn Get Return Me.columnZollsystemLand 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 ZollsystemeRow Get Return CType(Me.Rows(index),ZollsystemeRow) End Get End Property _ Public Event ZollsystemeRowChanging As ZollsystemeRowChangeEventHandler _ Public Event ZollsystemeRowChanged As ZollsystemeRowChangeEventHandler _ Public Event ZollsystemeRowDeleting As ZollsystemeRowChangeEventHandler _ Public Event ZollsystemeRowDeleted As ZollsystemeRowChangeEventHandler _ Public Overloads Sub AddZollsystemeRow(ByVal row As ZollsystemeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddZollsystemeRow(ByVal Zollsystemart As String, ByVal ZollsystemBezeichnung As String, ByVal ZollsystemLand As String) As ZollsystemeRow Dim rowZollsystemeRow As ZollsystemeRow = CType(Me.NewRow,ZollsystemeRow) Dim columnValuesArray() As Object = New Object() {Zollsystemart, ZollsystemBezeichnung, ZollsystemLand} rowZollsystemeRow.ItemArray = columnValuesArray Me.Rows.Add(rowZollsystemeRow) Return rowZollsystemeRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As ZollsystemeDataTable = CType(MyBase.Clone,ZollsystemeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New ZollsystemeDataTable() End Function _ Friend Sub InitVars() Me.columnZollsystemart = MyBase.Columns("Zollsystemart") Me.columnZollsystemBezeichnung = MyBase.Columns("ZollsystemBezeichnung") Me.columnZollsystemLand = MyBase.Columns("ZollsystemLand") End Sub _ Private Sub InitClass() Me.columnZollsystemart = New Global.System.Data.DataColumn("Zollsystemart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollsystemart) Me.columnZollsystemBezeichnung = New Global.System.Data.DataColumn("ZollsystemBezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollsystemBezeichnung) Me.columnZollsystemLand = New Global.System.Data.DataColumn("ZollsystemLand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollsystemLand) Me.columnZollsystemart.AllowDBNull = false Me.columnZollsystemart.MaxLength = 3 Me.columnZollsystemBezeichnung.MaxLength = 100 Me.columnZollsystemLand.MaxLength = 3 End Sub _ Public Function NewZollsystemeRow() As ZollsystemeRow Return CType(Me.NewRow,ZollsystemeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New ZollsystemeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(ZollsystemeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.ZollsystemeRowChangedEvent) Is Nothing) Then RaiseEvent ZollsystemeRowChanged(Me, New ZollsystemeRowChangeEvent(CType(e.Row,ZollsystemeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.ZollsystemeRowChangingEvent) Is Nothing) Then RaiseEvent ZollsystemeRowChanging(Me, New ZollsystemeRowChangeEvent(CType(e.Row,ZollsystemeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.ZollsystemeRowDeletedEvent) Is Nothing) Then RaiseEvent ZollsystemeRowDeleted(Me, New ZollsystemeRowChangeEvent(CType(e.Row,ZollsystemeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.ZollsystemeRowDeletingEvent) Is Nothing) Then RaiseEvent ZollsystemeRowDeleting(Me, New ZollsystemeRowChangeEvent(CType(e.Row,ZollsystemeRow), e.Action)) End If End Sub _ Public Sub RemoveZollsystemeRow(ByVal row As ZollsystemeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "ZollsystemeDataTable" 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 Zulassungen_ZnVDataTable Inherits Global.System.Data.TypedTableBase(Of Zulassungen_ZnVRow) Private columnZulassungsinhaber As Global.System.Data.DataColumn Private columnBewilligungsnummer As Global.System.Data.DataColumn Private columnSSMA_TimeStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Zulassungen ZnV" 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 ZulassungsinhaberColumn() As Global.System.Data.DataColumn Get Return Me.columnZulassungsinhaber End Get End Property _ Public ReadOnly Property BewilligungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBewilligungsnummer End Get End Property _ Public ReadOnly Property SSMA_TimeStampColumn() As Global.System.Data.DataColumn Get Return Me.columnSSMA_TimeStamp 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 Zulassungen_ZnVRow Get Return CType(Me.Rows(index),Zulassungen_ZnVRow) End Get End Property _ Public Event Zulassungen_ZnVRowChanging As Zulassungen_ZnVRowChangeEventHandler _ Public Event Zulassungen_ZnVRowChanged As Zulassungen_ZnVRowChangeEventHandler _ Public Event Zulassungen_ZnVRowDeleting As Zulassungen_ZnVRowChangeEventHandler _ Public Event Zulassungen_ZnVRowDeleted As Zulassungen_ZnVRowChangeEventHandler _ Public Overloads Sub AddZulassungen_ZnVRow(ByVal row As Zulassungen_ZnVRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddZulassungen_ZnVRow(ByVal Zulassungsinhaber As String, ByVal Bewilligungsnummer As String, ByVal SSMA_TimeStamp() As Byte) As Zulassungen_ZnVRow Dim rowZulassungen_ZnVRow As Zulassungen_ZnVRow = CType(Me.NewRow,Zulassungen_ZnVRow) Dim columnValuesArray() As Object = New Object() {Zulassungsinhaber, Bewilligungsnummer, SSMA_TimeStamp} rowZulassungen_ZnVRow.ItemArray = columnValuesArray Me.Rows.Add(rowZulassungen_ZnVRow) Return rowZulassungen_ZnVRow End Function _ Public Function FindByZulassungsinhaber(ByVal Zulassungsinhaber As String) As Zulassungen_ZnVRow Return CType(Me.Rows.Find(New Object() {Zulassungsinhaber}),Zulassungen_ZnVRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Zulassungen_ZnVDataTable = CType(MyBase.Clone,Zulassungen_ZnVDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Zulassungen_ZnVDataTable() End Function _ Friend Sub InitVars() Me.columnZulassungsinhaber = MyBase.Columns("Zulassungsinhaber") Me.columnBewilligungsnummer = MyBase.Columns("Bewilligungsnummer") Me.columnSSMA_TimeStamp = MyBase.Columns("SSMA_TimeStamp") End Sub _ Private Sub InitClass() Me.columnZulassungsinhaber = New Global.System.Data.DataColumn("Zulassungsinhaber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZulassungsinhaber) Me.columnBewilligungsnummer = New Global.System.Data.DataColumn("Bewilligungsnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBewilligungsnummer) Me.columnSSMA_TimeStamp = New Global.System.Data.DataColumn("SSMA_TimeStamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSMA_TimeStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnZulassungsinhaber}, true)) Me.columnZulassungsinhaber.AllowDBNull = false Me.columnZulassungsinhaber.Unique = true Me.columnZulassungsinhaber.MaxLength = 100 Me.columnBewilligungsnummer.AllowDBNull = false Me.columnBewilligungsnummer.MaxLength = 20 Me.columnSSMA_TimeStamp.ReadOnly = true End Sub _ Public Function NewZulassungen_ZnVRow() As Zulassungen_ZnVRow Return CType(Me.NewRow,Zulassungen_ZnVRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Zulassungen_ZnVRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Zulassungen_ZnVRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Zulassungen_ZnVRowChangedEvent) Is Nothing) Then RaiseEvent Zulassungen_ZnVRowChanged(Me, New Zulassungen_ZnVRowChangeEvent(CType(e.Row,Zulassungen_ZnVRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Zulassungen_ZnVRowChangingEvent) Is Nothing) Then RaiseEvent Zulassungen_ZnVRowChanging(Me, New Zulassungen_ZnVRowChangeEvent(CType(e.Row,Zulassungen_ZnVRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Zulassungen_ZnVRowDeletedEvent) Is Nothing) Then RaiseEvent Zulassungen_ZnVRowDeleted(Me, New Zulassungen_ZnVRowChangeEvent(CType(e.Row,Zulassungen_ZnVRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Zulassungen_ZnVRowDeletingEvent) Is Nothing) Then RaiseEvent Zulassungen_ZnVRowDeleting(Me, New Zulassungen_ZnVRowChangeEvent(CType(e.Row,Zulassungen_ZnVRow), e.Action)) End If End Sub _ Public Sub RemoveZulassungen_ZnVRow(ByVal row As Zulassungen_ZnVRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "Zulassungen_ZnVDataTable" 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 vwKundenstammDataTable Inherits Global.System.Data.TypedTableBase(Of vwKundenstammRow) Private columnAuswahl As Global.System.Data.DataColumn Private columnAdressenNr As Global.System.Data.DataColumn Private columnOrdnungsbegriff As Global.System.Data.DataColumn Private columnName_1 As Global.System.Data.DataColumn Private columnName_2 As Global.System.Data.DataColumn Private columnPostfach As Global.System.Data.DataColumn Private columnPLZPF As Global.System.Data.DataColumn Private columnStraße As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnPLZ As Global.System.Data.DataColumn Private columnOrt As Global.System.Data.DataColumn Private columnTelefon As Global.System.Data.DataColumn Private columnTelefax As Global.System.Data.DataColumn Private columnMobiltelefon As Global.System.Data.DataColumn Private _columnE_Mail As Global.System.Data.DataColumn Private _columnE_Mail2 As Global.System.Data.DataColumn Private columnAnrede As Global.System.Data.DataColumn Private columnAnsprechpartner As Global.System.Data.DataColumn Private columnUstIdKz As Global.System.Data.DataColumn Private columnUstIdNr As Global.System.Data.DataColumn Private columnUstIdGeprüft As Global.System.Data.DataColumn Private columnBLZ As Global.System.Data.DataColumn Private columnKTO As Global.System.Data.DataColumn Private columnEingegeben_am As Global.System.Data.DataColumn Private columnGeändert_am As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnRechnungsdruck As Global.System.Data.DataColumn Private columnSteuernummer As Global.System.Data.DataColumn Private columnIDSKundenNr As Global.System.Data.DataColumn Private columnWölflKundenNr As Global.System.Data.DataColumn Private columnMSEKundenNr As Global.System.Data.DataColumn Private columnMSEExportCSV As Global.System.Data.DataColumn Private _columnTELEPASS_Kd_Nr As Global.System.Data.DataColumn Private columnASFINAGExportCSV As Global.System.Data.DataColumn Private columnUStV_GVAnfDat As Global.System.Data.DataColumn Private columnUStV_GVAusDat As Global.System.Data.DataColumn Private columnExportMautberichtCSV As Global.System.Data.DataColumn Private columnUTAKundenNr As Global.System.Data.DataColumn Private columnUTAExportCSV As Global.System.Data.DataColumn Private columnKundenNr As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnEinmalige_Abfertigung As Global.System.Data.DataColumn Private columnNeutralisierung As Global.System.Data.DataColumn Private columnAvis As Global.System.Data.DataColumn Private columnZollvollmacht As Global.System.Data.DataColumn Private columnZollvollmacht_vom As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private columnLastschrift_von As Global.System.Data.DataColumn Private columnLastschrift_bis As Global.System.Data.DataColumn Private columnRabattstaffel As Global.System.Data.DataColumn Private columnSVS As Global.System.Data.DataColumn Private _columnVorlageprovision__ As Global.System.Data.DataColumn Private _columnKreditaufwendungen__ As Global.System.Data.DataColumn Private _columnBankspesen__ As Global.System.Data.DataColumn Private columnBankspesen_Mindestbetrag As Global.System.Data.DataColumn Private columnBesonderheiten As Global.System.Data.DataColumn Private columnSammelrechnung As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private columnReferenznummer As Global.System.Data.DataColumn Private columnAntragssumme As Global.System.Data.DataColumn Private columnAntrag_vom As Global.System.Data.DataColumn Private columnVersicherungssumme As Global.System.Data.DataColumn Private columnEntscheidung_vom As Global.System.Data.DataColumn Private columnKreditlimit As Global.System.Data.DataColumn Private columnKreditlimit_vom As Global.System.Data.DataColumn Private columnInfo As Global.System.Data.DataColumn Private columnÜberwachungskunde As Global.System.Data.DataColumn Private columnAbfertigungsverbot As Global.System.Data.DataColumn Private columnAbfertigungsverbot_seit As Global.System.Data.DataColumn Private columnAbfertigungsverbot_Grund As Global.System.Data.DataColumn Private columnRechtsanwalt As Global.System.Data.DataColumn Private columnRechtsanwalt_seit As Global.System.Data.DataColumn Private columnExpr1 As Global.System.Data.DataColumn Private columnExpr2 As Global.System.Data.DataColumn Private columnExpr3 As Global.System.Data.DataColumn Private columnLfdSaldo As Global.System.Data.DataColumn Private columnErste_Abfertigung As Global.System.Data.DataColumn Private columnVorkasse As Global.System.Data.DataColumn Private columnZahlungsinformationen As Global.System.Data.DataColumn Private columnEORITIN As Global.System.Data.DataColumn Private columnZollnummer As Global.System.Data.DataColumn Private columnZulassungsNr_ZnV As Global.System.Data.DataColumn Private columnAufschubkonto_EUSt As Global.System.Data.DataColumn Private columnAufschubkonto_Zoll As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private columnEuroeinführung As Global.System.Data.DataColumn Private columnLetzteRechnungsNr As Global.System.Data.DataColumn Private columnLetztesRechnungsDatum As Global.System.Data.DataColumn Private columnKonzernkonto As Global.System.Data.DataColumn Private columnFiBuSchnittstelle As Global.System.Data.DataColumn Private columnPlanzahl As Global.System.Data.DataColumn Private columnGesprächsbericht As Global.System.Data.DataColumn Private columnBonität As Global.System.Data.DataColumn Private columnBonitätsdatum As Global.System.Data.DataColumn Private columnZahlungsziel As Global.System.Data.DataColumn Private columnUStV_SummeUmsatzsteuerbetragEUR As Global.System.Data.DataColumn Private columnUStV_SummeErstattungsbetragEUR As Global.System.Data.DataColumn Private columnUStV_Summe3470BetragEUR As Global.System.Data.DataColumn Private columnUStV_SummeVZBetragEUR As Global.System.Data.DataColumn Private columnUStV_SummeVorschaubetragEUR As Global.System.Data.DataColumn Private columnUStV_SummeVorschaubetragEUR_VERAG As Global.System.Data.DataColumn Private columnUStV_SummeVorschaubetragEUR_IDS As Global.System.Data.DataColumn Private columnFiskal As Global.System.Data.DataColumn Private columnAusfuhr As Global.System.Data.DataColumn Private columnBankgarantieBetrag As Global.System.Data.DataColumn Private columnBankgarantieGültigBis As Global.System.Data.DataColumn Private columnKD_Korrespondenz As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwKundenstamm" 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 AuswahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAuswahl End Get End Property _ Public ReadOnly Property AdressenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAdressenNr End Get End Property _ Public ReadOnly Property OrdnungsbegriffColumn() As Global.System.Data.DataColumn Get Return Me.columnOrdnungsbegriff End Get End Property _ Public ReadOnly Property Name_1Column() As Global.System.Data.DataColumn Get Return Me.columnName_1 End Get End Property _ Public ReadOnly Property Name_2Column() As Global.System.Data.DataColumn Get Return Me.columnName_2 End Get End Property _ Public ReadOnly Property PostfachColumn() As Global.System.Data.DataColumn Get Return Me.columnPostfach End Get End Property _ Public ReadOnly Property PLZPFColumn() As Global.System.Data.DataColumn Get Return Me.columnPLZPF End Get End Property _ Public ReadOnly Property StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnStraße End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnPLZ End Get End Property _ Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnOrt End Get End Property _ Public ReadOnly Property TelefonColumn() As Global.System.Data.DataColumn Get Return Me.columnTelefon End Get End Property _ Public ReadOnly Property TelefaxColumn() As Global.System.Data.DataColumn Get Return Me.columnTelefax End Get End Property _ Public ReadOnly Property MobiltelefonColumn() As Global.System.Data.DataColumn Get Return Me.columnMobiltelefon End Get End Property _ Public ReadOnly Property _E_MailColumn() As Global.System.Data.DataColumn Get Return Me._columnE_Mail End Get End Property _ Public ReadOnly Property _E_Mail2Column() As Global.System.Data.DataColumn Get Return Me._columnE_Mail2 End Get End Property _ Public ReadOnly Property AnredeColumn() As Global.System.Data.DataColumn Get Return Me.columnAnrede End Get End Property _ Public ReadOnly Property AnsprechpartnerColumn() As Global.System.Data.DataColumn Get Return Me.columnAnsprechpartner End Get End Property _ Public ReadOnly Property UstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdKz End Get End Property _ Public ReadOnly Property UstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdNr End Get End Property _ Public ReadOnly Property UstIdGeprüftColumn() As Global.System.Data.DataColumn Get Return Me.columnUstIdGeprüft End Get End Property _ Public ReadOnly Property BLZColumn() As Global.System.Data.DataColumn Get Return Me.columnBLZ End Get End Property _ Public ReadOnly Property KTOColumn() As Global.System.Data.DataColumn Get Return Me.columnKTO End Get End Property _ Public ReadOnly Property Eingegeben_amColumn() As Global.System.Data.DataColumn Get Return Me.columnEingegeben_am End Get End Property _ Public ReadOnly Property Geändert_amColumn() As Global.System.Data.DataColumn Get Return Me.columnGeändert_am End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property RechnungsdruckColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdruck End Get End Property _ Public ReadOnly Property SteuernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuernummer End Get End Property _ Public ReadOnly Property IDSKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnIDSKundenNr End Get End Property _ Public ReadOnly Property WölflKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnWölflKundenNr End Get End Property _ Public ReadOnly Property MSEKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnMSEKundenNr End Get End Property _ Public ReadOnly Property MSEExportCSVColumn() As Global.System.Data.DataColumn Get Return Me.columnMSEExportCSV End Get End Property _ Public ReadOnly Property _TELEPASS_Kd_NrColumn() As Global.System.Data.DataColumn Get Return Me._columnTELEPASS_Kd_Nr End Get End Property _ Public ReadOnly Property ASFINAGExportCSVColumn() As Global.System.Data.DataColumn Get Return Me.columnASFINAGExportCSV End Get End Property _ Public ReadOnly Property UStV_GVAnfDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_GVAnfDat End Get End Property _ Public ReadOnly Property UStV_GVAusDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_GVAusDat End Get End Property _ Public ReadOnly Property ExportMautberichtCSVColumn() As Global.System.Data.DataColumn Get Return Me.columnExportMautberichtCSV End Get End Property _ Public ReadOnly Property UTAKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUTAKundenNr End Get End Property _ Public ReadOnly Property UTAExportCSVColumn() As Global.System.Data.DataColumn Get Return Me.columnUTAExportCSV End Get End Property _ Public ReadOnly Property KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property Einmalige_AbfertigungColumn() As Global.System.Data.DataColumn Get Return Me.columnEinmalige_Abfertigung End Get End Property _ Public ReadOnly Property NeutralisierungColumn() As Global.System.Data.DataColumn Get Return Me.columnNeutralisierung End Get End Property _ Public ReadOnly Property AvisColumn() As Global.System.Data.DataColumn Get Return Me.columnAvis End Get End Property _ Public ReadOnly Property ZollvollmachtColumn() As Global.System.Data.DataColumn Get Return Me.columnZollvollmacht End Get End Property _ Public ReadOnly Property Zollvollmacht_vomColumn() As Global.System.Data.DataColumn Get Return Me.columnZollvollmacht_vom End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property Lastschrift_vonColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift_von End Get End Property _ Public ReadOnly Property Lastschrift_bisColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift_bis End Get End Property _ Public ReadOnly Property RabattstaffelColumn() As Global.System.Data.DataColumn Get Return Me.columnRabattstaffel End Get End Property _ Public ReadOnly Property SVSColumn() As Global.System.Data.DataColumn Get Return Me.columnSVS End Get End Property _ Public ReadOnly Property _Vorlageprovision__Column() As Global.System.Data.DataColumn Get Return Me._columnVorlageprovision__ End Get End Property _ Public ReadOnly Property _Kreditaufwendungen__Column() As Global.System.Data.DataColumn Get Return Me._columnKreditaufwendungen__ End Get End Property _ Public ReadOnly Property _Bankspesen__Column() As Global.System.Data.DataColumn Get Return Me._columnBankspesen__ End Get End Property _ Public ReadOnly Property Bankspesen_MindestbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBankspesen_Mindestbetrag End Get End Property _ Public ReadOnly Property BesonderheitenColumn() As Global.System.Data.DataColumn Get Return Me.columnBesonderheiten End Get End Property _ Public ReadOnly Property SammelrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnung End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property ReferenznummerColumn() As Global.System.Data.DataColumn Get Return Me.columnReferenznummer End Get End Property _ Public ReadOnly Property AntragssummeColumn() As Global.System.Data.DataColumn Get Return Me.columnAntragssumme End Get End Property _ Public ReadOnly Property Antrag_vomColumn() As Global.System.Data.DataColumn Get Return Me.columnAntrag_vom End Get End Property _ Public ReadOnly Property VersicherungssummeColumn() As Global.System.Data.DataColumn Get Return Me.columnVersicherungssumme End Get End Property _ Public ReadOnly Property Entscheidung_vomColumn() As Global.System.Data.DataColumn Get Return Me.columnEntscheidung_vom End Get End Property _ Public ReadOnly Property KreditlimitColumn() As Global.System.Data.DataColumn Get Return Me.columnKreditlimit End Get End Property _ Public ReadOnly Property Kreditlimit_vomColumn() As Global.System.Data.DataColumn Get Return Me.columnKreditlimit_vom End Get End Property _ Public ReadOnly Property InfoColumn() As Global.System.Data.DataColumn Get Return Me.columnInfo End Get End Property _ Public ReadOnly Property ÜberwachungskundeColumn() As Global.System.Data.DataColumn Get Return Me.columnÜberwachungskunde End Get End Property _ Public ReadOnly Property AbfertigungsverbotColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsverbot End Get End Property _ Public ReadOnly Property Abfertigungsverbot_seitColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsverbot_seit End Get End Property _ Public ReadOnly Property Abfertigungsverbot_GrundColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsverbot_Grund End Get End Property _ Public ReadOnly Property RechtsanwaltColumn() As Global.System.Data.DataColumn Get Return Me.columnRechtsanwalt End Get End Property _ Public ReadOnly Property Rechtsanwalt_seitColumn() As Global.System.Data.DataColumn Get Return Me.columnRechtsanwalt_seit End Get End Property _ Public ReadOnly Property Expr1Column() As Global.System.Data.DataColumn Get Return Me.columnExpr1 End Get End Property _ Public ReadOnly Property Expr2Column() As Global.System.Data.DataColumn Get Return Me.columnExpr2 End Get End Property _ Public ReadOnly Property Expr3Column() As Global.System.Data.DataColumn Get Return Me.columnExpr3 End Get End Property _ Public ReadOnly Property LfdSaldoColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdSaldo End Get End Property _ Public ReadOnly Property Erste_AbfertigungColumn() As Global.System.Data.DataColumn Get Return Me.columnErste_Abfertigung End Get End Property _ Public ReadOnly Property VorkasseColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkasse End Get End Property _ Public ReadOnly Property ZahlungsinformationenColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsinformationen End Get End Property _ Public ReadOnly Property EORITINColumn() As Global.System.Data.DataColumn Get Return Me.columnEORITIN End Get End Property _ Public ReadOnly Property ZollnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnZollnummer End Get End Property _ Public ReadOnly Property ZulassungsNr_ZnVColumn() As Global.System.Data.DataColumn Get Return Me.columnZulassungsNr_ZnV End Get End Property _ Public ReadOnly Property Aufschubkonto_EUStColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkonto_EUSt End Get End Property _ Public ReadOnly Property Aufschubkonto_ZollColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkonto_Zoll End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property EuroeinführungColumn() As Global.System.Data.DataColumn Get Return Me.columnEuroeinführung End Get End Property _ Public ReadOnly Property LetzteRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLetzteRechnungsNr End Get End Property _ Public ReadOnly Property LetztesRechnungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnLetztesRechnungsDatum End Get End Property _ Public ReadOnly Property KonzernkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnKonzernkonto End Get End Property _ Public ReadOnly Property FiBuSchnittstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnFiBuSchnittstelle End Get End Property _ Public ReadOnly Property PlanzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnPlanzahl End Get End Property _ Public ReadOnly Property GesprächsberichtColumn() As Global.System.Data.DataColumn Get Return Me.columnGesprächsbericht End Get End Property _ Public ReadOnly Property BonitätColumn() As Global.System.Data.DataColumn Get Return Me.columnBonität End Get End Property _ Public ReadOnly Property BonitätsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBonitätsdatum End Get End Property _ Public ReadOnly Property ZahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnZahlungsziel End Get End Property _ Public ReadOnly Property UStV_SummeUmsatzsteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeUmsatzsteuerbetragEUR End Get End Property _ Public ReadOnly Property UStV_SummeErstattungsbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeErstattungsbetragEUR End Get End Property _ Public ReadOnly Property UStV_Summe3470BetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_Summe3470BetragEUR End Get End Property _ Public ReadOnly Property UStV_SummeVZBetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVZBetragEUR End Get End Property _ Public ReadOnly Property UStV_SummeVorschaubetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVorschaubetragEUR End Get End Property _ Public ReadOnly Property UStV_SummeVorschaubetragEUR_VERAGColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVorschaubetragEUR_VERAG End Get End Property _ Public ReadOnly Property UStV_SummeVorschaubetragEUR_IDSColumn() As Global.System.Data.DataColumn Get Return Me.columnUStV_SummeVorschaubetragEUR_IDS End Get End Property _ Public ReadOnly Property FiskalColumn() As Global.System.Data.DataColumn Get Return Me.columnFiskal End Get End Property _ Public ReadOnly Property AusfuhrColumn() As Global.System.Data.DataColumn Get Return Me.columnAusfuhr End Get End Property _ Public ReadOnly Property BankgarantieBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBankgarantieBetrag End Get End Property _ Public ReadOnly Property BankgarantieGültigBisColumn() As Global.System.Data.DataColumn Get Return Me.columnBankgarantieGültigBis End Get End Property _ Public ReadOnly Property KD_KorrespondenzColumn() As Global.System.Data.DataColumn Get Return Me.columnKD_Korrespondenz 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 vwKundenstammRow Get Return CType(Me.Rows(index),vwKundenstammRow) End Get End Property _ Public Event vwKundenstammRowChanging As vwKundenstammRowChangeEventHandler _ Public Event vwKundenstammRowChanged As vwKundenstammRowChangeEventHandler _ Public Event vwKundenstammRowDeleting As vwKundenstammRowChangeEventHandler _ Public Event vwKundenstammRowDeleted As vwKundenstammRowChangeEventHandler _ Public Overloads Sub AddvwKundenstammRow(ByVal row As vwKundenstammRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwKundenstammRow( _ ByVal Auswahl As String, _ ByVal AdressenNr As Integer, _ ByVal Ordnungsbegriff As String, _ ByVal Name_1 As String, _ ByVal Name_2 As String, _ ByVal Postfach As String, _ ByVal PLZPF As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal Telefon As String, _ ByVal Telefax As String, _ ByVal Mobiltelefon As String, _ ByVal _E_Mail As String, _ ByVal _E_Mail2 As String, _ ByVal Anrede As String, _ ByVal Ansprechpartner As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal UstIdGeprüft As Date, _ ByVal BLZ As String, _ ByVal KTO As String, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Date, _ ByVal Sachbearbeiter As String, _ ByVal Rechnungsdruck As Short, _ ByVal Steuernummer As String, _ ByVal IDSKundenNr As Integer, _ ByVal WölflKundenNr As Integer, _ ByVal MSEKundenNr As Integer, _ ByVal MSEExportCSV As Boolean, _ ByVal _TELEPASS_Kd_Nr As Integer, _ ByVal ASFINAGExportCSV As Boolean, _ ByVal UStV_GVAnfDat As Date, _ ByVal UStV_GVAusDat As Date, _ ByVal ExportMautberichtCSV As Boolean, _ ByVal UTAKundenNr As Integer, _ ByVal UTAExportCSV As Boolean, _ ByVal KundenNr As Integer, _ ByVal KundenNrZentrale As Integer, _ ByVal FilialenNr As Short, _ ByVal Einmalige_Abfertigung As Boolean, _ ByVal Neutralisierung As Short, _ ByVal Avis As Short, _ ByVal Zollvollmacht As Boolean, _ ByVal Zollvollmacht_vom As Date, _ ByVal Lastschrift As Boolean, _ ByVal Lastschrift_von As Date, _ ByVal Lastschrift_bis As Date, _ ByVal Rabattstaffel As Boolean, _ ByVal SVS As Boolean, _ ByVal _Vorlageprovision__ As Single, _ ByVal _Kreditaufwendungen__ As Single, _ ByVal _Bankspesen__ As Single, _ ByVal Bankspesen_Mindestbetrag As Decimal, _ ByVal Besonderheiten As String, _ ByVal Sammelrechnung As Short, _ ByVal Steuerschlüssel As Short, _ ByVal Referenznummer As String, _ ByVal Antragssumme As Decimal, _ ByVal Antrag_vom As Date, _ ByVal Versicherungssumme As Decimal, _ ByVal Entscheidung_vom As Date, _ ByVal Kreditlimit As Decimal, _ ByVal Kreditlimit_vom As Date, _ ByVal Info As String, _ ByVal Überwachungskunde As Boolean, _ ByVal Abfertigungsverbot As Boolean, _ ByVal Abfertigungsverbot_seit As Date, _ ByVal Abfertigungsverbot_Grund As String, _ ByVal Rechtsanwalt As Boolean, _ ByVal Rechtsanwalt_seit As Date, _ ByVal Expr1 As Date, _ ByVal Expr2 As Date, _ ByVal Expr3 As String, _ ByVal LfdSaldo As Decimal, _ ByVal Erste_Abfertigung As Date, _ ByVal Vorkasse As Boolean, _ ByVal Zahlungsinformationen As String, _ ByVal EORITIN As String, _ ByVal Zollnummer As String, _ ByVal ZulassungsNr_ZnV As String, _ ByVal Aufschubkonto_EUSt As String, _ ByVal Aufschubkonto_Zoll As String, _ ByVal Währungscode As String, _ ByVal Euroeinführung As Date, _ ByVal LetzteRechnungsNr As Integer, _ ByVal LetztesRechnungsDatum As Date, _ ByVal Konzernkonto As Boolean, _ ByVal FiBuSchnittstelle As Boolean, _ ByVal Planzahl As Integer, _ ByVal Gesprächsbericht As String, _ ByVal Bonität As Short, _ ByVal Bonitätsdatum As Date, _ ByVal Zahlungsziel As Short, _ ByVal UStV_SummeUmsatzsteuerbetragEUR As Decimal, _ ByVal UStV_SummeErstattungsbetragEUR As Decimal, _ ByVal UStV_Summe3470BetragEUR As Decimal, _ ByVal UStV_SummeVZBetragEUR As Decimal, _ ByVal UStV_SummeVorschaubetragEUR As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_VERAG As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_IDS As Decimal, _ ByVal Fiskal As Boolean, _ ByVal Ausfuhr As Boolean, _ ByVal BankgarantieBetrag As Decimal, _ ByVal BankgarantieGültigBis As Date, _ ByVal KD_Korrespondenz As String) As vwKundenstammRow Dim rowvwKundenstammRow As vwKundenstammRow = CType(Me.NewRow,vwKundenstammRow) Dim columnValuesArray() As Object = New Object() {Auswahl, AdressenNr, Ordnungsbegriff, Name_1, Name_2, Postfach, PLZPF, Straße, LandKz, PLZ, Ort, Telefon, Telefax, Mobiltelefon, _E_Mail, _E_Mail2, Anrede, Ansprechpartner, UstIdKz, UstIdNr, UstIdGeprüft, BLZ, KTO, Eingegeben_am, Geändert_am, Sachbearbeiter, Rechnungsdruck, Steuernummer, IDSKundenNr, WölflKundenNr, MSEKundenNr, MSEExportCSV, _TELEPASS_Kd_Nr, ASFINAGExportCSV, UStV_GVAnfDat, UStV_GVAusDat, ExportMautberichtCSV, UTAKundenNr, UTAExportCSV, KundenNr, KundenNrZentrale, FilialenNr, Einmalige_Abfertigung, Neutralisierung, Avis, Zollvollmacht, Zollvollmacht_vom, Lastschrift, Lastschrift_von, Lastschrift_bis, Rabattstaffel, SVS, _Vorlageprovision__, _Kreditaufwendungen__, _Bankspesen__, Bankspesen_Mindestbetrag, Besonderheiten, Sammelrechnung, Steuerschlüssel, Referenznummer, Antragssumme, Antrag_vom, Versicherungssumme, Entscheidung_vom, Kreditlimit, Kreditlimit_vom, Info, Überwachungskunde, Abfertigungsverbot, Abfertigungsverbot_seit, Abfertigungsverbot_Grund, Rechtsanwalt, Rechtsanwalt_seit, Expr1, Expr2, Expr3, LfdSaldo, Erste_Abfertigung, Vorkasse, Zahlungsinformationen, EORITIN, Zollnummer, ZulassungsNr_ZnV, Aufschubkonto_EUSt, Aufschubkonto_Zoll, Währungscode, Euroeinführung, LetzteRechnungsNr, LetztesRechnungsDatum, Konzernkonto, FiBuSchnittstelle, Planzahl, Gesprächsbericht, Bonität, Bonitätsdatum, Zahlungsziel, UStV_SummeUmsatzsteuerbetragEUR, UStV_SummeErstattungsbetragEUR, UStV_Summe3470BetragEUR, UStV_SummeVZBetragEUR, UStV_SummeVorschaubetragEUR, UStV_SummeVorschaubetragEUR_VERAG, UStV_SummeVorschaubetragEUR_IDS, Fiskal, Ausfuhr, BankgarantieBetrag, BankgarantieGültigBis, KD_Korrespondenz} rowvwKundenstammRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwKundenstammRow) Return rowvwKundenstammRow End Function _ Public Function FindByAdressenNrKundenNr(ByVal AdressenNr As Integer, ByVal KundenNr As Integer) As vwKundenstammRow Return CType(Me.Rows.Find(New Object() {AdressenNr, KundenNr}),vwKundenstammRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwKundenstammDataTable = CType(MyBase.Clone,vwKundenstammDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwKundenstammDataTable() End Function _ Friend Sub InitVars() Me.columnAuswahl = MyBase.Columns("Auswahl") Me.columnAdressenNr = MyBase.Columns("AdressenNr") Me.columnOrdnungsbegriff = MyBase.Columns("Ordnungsbegriff") Me.columnName_1 = MyBase.Columns("Name 1") Me.columnName_2 = MyBase.Columns("Name 2") Me.columnPostfach = MyBase.Columns("Postfach") Me.columnPLZPF = MyBase.Columns("PLZPF") Me.columnStraße = MyBase.Columns("Straße") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnPLZ = MyBase.Columns("PLZ") Me.columnOrt = MyBase.Columns("Ort") Me.columnTelefon = MyBase.Columns("Telefon") Me.columnTelefax = MyBase.Columns("Telefax") Me.columnMobiltelefon = MyBase.Columns("Mobiltelefon") Me._columnE_Mail = MyBase.Columns("E-Mail") Me._columnE_Mail2 = MyBase.Columns("E-Mail2") Me.columnAnrede = MyBase.Columns("Anrede") Me.columnAnsprechpartner = MyBase.Columns("Ansprechpartner") Me.columnUstIdKz = MyBase.Columns("UstIdKz") Me.columnUstIdNr = MyBase.Columns("UstIdNr") Me.columnUstIdGeprüft = MyBase.Columns("UstIdGeprüft") Me.columnBLZ = MyBase.Columns("BLZ") Me.columnKTO = MyBase.Columns("KTO") Me.columnEingegeben_am = MyBase.Columns("Eingegeben am") Me.columnGeändert_am = MyBase.Columns("Geändert am") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnRechnungsdruck = MyBase.Columns("Rechnungsdruck") Me.columnSteuernummer = MyBase.Columns("Steuernummer") Me.columnIDSKundenNr = MyBase.Columns("IDSKundenNr") Me.columnWölflKundenNr = MyBase.Columns("WölflKundenNr") Me.columnMSEKundenNr = MyBase.Columns("MSEKundenNr") Me.columnMSEExportCSV = MyBase.Columns("MSEExportCSV") Me._columnTELEPASS_Kd_Nr = MyBase.Columns("TELEPASS-Kd-Nr") Me.columnASFINAGExportCSV = MyBase.Columns("ASFINAGExportCSV") Me.columnUStV_GVAnfDat = MyBase.Columns("UStV_GVAnfDat") Me.columnUStV_GVAusDat = MyBase.Columns("UStV_GVAusDat") Me.columnExportMautberichtCSV = MyBase.Columns("ExportMautberichtCSV") Me.columnUTAKundenNr = MyBase.Columns("UTAKundenNr") Me.columnUTAExportCSV = MyBase.Columns("UTAExportCSV") Me.columnKundenNr = MyBase.Columns("KundenNr") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnEinmalige_Abfertigung = MyBase.Columns("Einmalige Abfertigung") Me.columnNeutralisierung = MyBase.Columns("Neutralisierung") Me.columnAvis = MyBase.Columns("Avis") Me.columnZollvollmacht = MyBase.Columns("Zollvollmacht") Me.columnZollvollmacht_vom = MyBase.Columns("Zollvollmacht vom") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me.columnLastschrift_von = MyBase.Columns("Lastschrift von") Me.columnLastschrift_bis = MyBase.Columns("Lastschrift bis") Me.columnRabattstaffel = MyBase.Columns("Rabattstaffel") Me.columnSVS = MyBase.Columns("SVS") Me._columnVorlageprovision__ = MyBase.Columns("Vorlageprovision %") Me._columnKreditaufwendungen__ = MyBase.Columns("Kreditaufwendungen %") Me._columnBankspesen__ = MyBase.Columns("Bankspesen %") Me.columnBankspesen_Mindestbetrag = MyBase.Columns("Bankspesen Mindestbetrag") Me.columnBesonderheiten = MyBase.Columns("Besonderheiten") Me.columnSammelrechnung = MyBase.Columns("Sammelrechnung") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me.columnReferenznummer = MyBase.Columns("Referenznummer") Me.columnAntragssumme = MyBase.Columns("Antragssumme") Me.columnAntrag_vom = MyBase.Columns("Antrag vom") Me.columnVersicherungssumme = MyBase.Columns("Versicherungssumme") Me.columnEntscheidung_vom = MyBase.Columns("Entscheidung vom") Me.columnKreditlimit = MyBase.Columns("Kreditlimit") Me.columnKreditlimit_vom = MyBase.Columns("Kreditlimit vom") Me.columnInfo = MyBase.Columns("Info") Me.columnÜberwachungskunde = MyBase.Columns("Überwachungskunde") Me.columnAbfertigungsverbot = MyBase.Columns("Abfertigungsverbot") Me.columnAbfertigungsverbot_seit = MyBase.Columns("Abfertigungsverbot seit") Me.columnAbfertigungsverbot_Grund = MyBase.Columns("Abfertigungsverbot Grund") Me.columnRechtsanwalt = MyBase.Columns("Rechtsanwalt") Me.columnRechtsanwalt_seit = MyBase.Columns("Rechtsanwalt seit") Me.columnExpr1 = MyBase.Columns("Expr1") Me.columnExpr2 = MyBase.Columns("Expr2") Me.columnExpr3 = MyBase.Columns("Expr3") Me.columnLfdSaldo = MyBase.Columns("LfdSaldo") Me.columnErste_Abfertigung = MyBase.Columns("Erste Abfertigung") Me.columnVorkasse = MyBase.Columns("Vorkasse") Me.columnZahlungsinformationen = MyBase.Columns("Zahlungsinformationen") Me.columnEORITIN = MyBase.Columns("EORITIN") Me.columnZollnummer = MyBase.Columns("Zollnummer") Me.columnZulassungsNr_ZnV = MyBase.Columns("ZulassungsNr ZnV") Me.columnAufschubkonto_EUSt = MyBase.Columns("Aufschubkonto EUSt") Me.columnAufschubkonto_Zoll = MyBase.Columns("Aufschubkonto Zoll") Me.columnWährungscode = MyBase.Columns("Währungscode") Me.columnEuroeinführung = MyBase.Columns("Euroeinführung") Me.columnLetzteRechnungsNr = MyBase.Columns("LetzteRechnungsNr") Me.columnLetztesRechnungsDatum = MyBase.Columns("LetztesRechnungsDatum") Me.columnKonzernkonto = MyBase.Columns("Konzernkonto") Me.columnFiBuSchnittstelle = MyBase.Columns("FiBuSchnittstelle") Me.columnPlanzahl = MyBase.Columns("Planzahl") Me.columnGesprächsbericht = MyBase.Columns("Gesprächsbericht") Me.columnBonität = MyBase.Columns("Bonität") Me.columnBonitätsdatum = MyBase.Columns("Bonitätsdatum") Me.columnZahlungsziel = MyBase.Columns("Zahlungsziel") Me.columnUStV_SummeUmsatzsteuerbetragEUR = MyBase.Columns("UStV_SummeUmsatzsteuerbetragEUR") Me.columnUStV_SummeErstattungsbetragEUR = MyBase.Columns("UStV_SummeErstattungsbetragEUR") Me.columnUStV_Summe3470BetragEUR = MyBase.Columns("UStV_Summe3470BetragEUR") Me.columnUStV_SummeVZBetragEUR = MyBase.Columns("UStV_SummeVZBetragEUR") Me.columnUStV_SummeVorschaubetragEUR = MyBase.Columns("UStV_SummeVorschaubetragEUR") Me.columnUStV_SummeVorschaubetragEUR_VERAG = MyBase.Columns("UStV_SummeVorschaubetragEUR_VERAG") Me.columnUStV_SummeVorschaubetragEUR_IDS = MyBase.Columns("UStV_SummeVorschaubetragEUR_IDS") Me.columnFiskal = MyBase.Columns("Fiskal") Me.columnAusfuhr = MyBase.Columns("Ausfuhr") Me.columnBankgarantieBetrag = MyBase.Columns("BankgarantieBetrag") Me.columnBankgarantieGültigBis = MyBase.Columns("BankgarantieGültigBis") Me.columnKD_Korrespondenz = MyBase.Columns("KD_Korrespondenz") End Sub _ Private Sub InitClass() Me.columnAuswahl = New Global.System.Data.DataColumn("Auswahl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAuswahl) Me.columnAdressenNr = New Global.System.Data.DataColumn("AdressenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAdressenNr) Me.columnOrdnungsbegriff = New Global.System.Data.DataColumn("Ordnungsbegriff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrdnungsbegriff) Me.columnName_1 = New Global.System.Data.DataColumn("Name 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName_1) Me.columnName_2 = New Global.System.Data.DataColumn("Name 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName_2) Me.columnPostfach = New Global.System.Data.DataColumn("Postfach", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPostfach) Me.columnPLZPF = New Global.System.Data.DataColumn("PLZPF", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLZPF) Me.columnStraße = New Global.System.Data.DataColumn("Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStraße) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLZ) Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrt) Me.columnTelefon = New Global.System.Data.DataColumn("Telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelefon) Me.columnTelefax = New Global.System.Data.DataColumn("Telefax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelefax) Me.columnMobiltelefon = New Global.System.Data.DataColumn("Mobiltelefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMobiltelefon) Me._columnE_Mail = New Global.System.Data.DataColumn("E-Mail", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnE_Mail.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnE_Mail") Me._columnE_Mail.ExtendedProperties.Add("Generator_UserColumnName", "E-Mail") MyBase.Columns.Add(Me._columnE_Mail) Me._columnE_Mail2 = New Global.System.Data.DataColumn("E-Mail2", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnE_Mail2.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnE_Mail2") Me._columnE_Mail2.ExtendedProperties.Add("Generator_UserColumnName", "E-Mail2") MyBase.Columns.Add(Me._columnE_Mail2) Me.columnAnrede = New Global.System.Data.DataColumn("Anrede", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnrede) Me.columnAnsprechpartner = New Global.System.Data.DataColumn("Ansprechpartner", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnsprechpartner) Me.columnUstIdKz = New Global.System.Data.DataColumn("UstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdKz) Me.columnUstIdNr = New Global.System.Data.DataColumn("UstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdNr) Me.columnUstIdGeprüft = New Global.System.Data.DataColumn("UstIdGeprüft", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUstIdGeprüft) Me.columnBLZ = New Global.System.Data.DataColumn("BLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBLZ) Me.columnKTO = New Global.System.Data.DataColumn("KTO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKTO) Me.columnEingegeben_am = New Global.System.Data.DataColumn("Eingegeben am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingegeben_am) Me.columnGeändert_am = New Global.System.Data.DataColumn("Geändert am", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGeändert_am) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnRechnungsdruck = New Global.System.Data.DataColumn("Rechnungsdruck", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdruck) Me.columnSteuernummer = New Global.System.Data.DataColumn("Steuernummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuernummer) Me.columnIDSKundenNr = New Global.System.Data.DataColumn("IDSKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIDSKundenNr) Me.columnWölflKundenNr = New Global.System.Data.DataColumn("WölflKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWölflKundenNr) Me.columnMSEKundenNr = New Global.System.Data.DataColumn("MSEKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMSEKundenNr) Me.columnMSEExportCSV = New Global.System.Data.DataColumn("MSEExportCSV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMSEExportCSV) Me._columnTELEPASS_Kd_Nr = New Global.System.Data.DataColumn("TELEPASS-Kd-Nr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) Me._columnTELEPASS_Kd_Nr.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnTELEPASS_Kd_Nr") Me._columnTELEPASS_Kd_Nr.ExtendedProperties.Add("Generator_UserColumnName", "TELEPASS-Kd-Nr") MyBase.Columns.Add(Me._columnTELEPASS_Kd_Nr) Me.columnASFINAGExportCSV = New Global.System.Data.DataColumn("ASFINAGExportCSV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnASFINAGExportCSV) Me.columnUStV_GVAnfDat = New Global.System.Data.DataColumn("UStV_GVAnfDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_GVAnfDat) Me.columnUStV_GVAusDat = New Global.System.Data.DataColumn("UStV_GVAusDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_GVAusDat) Me.columnExportMautberichtCSV = New Global.System.Data.DataColumn("ExportMautberichtCSV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExportMautberichtCSV) Me.columnUTAKundenNr = New Global.System.Data.DataColumn("UTAKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUTAKundenNr) Me.columnUTAExportCSV = New Global.System.Data.DataColumn("UTAExportCSV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUTAExportCSV) Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnEinmalige_Abfertigung = New Global.System.Data.DataColumn("Einmalige Abfertigung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEinmalige_Abfertigung) Me.columnNeutralisierung = New Global.System.Data.DataColumn("Neutralisierung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNeutralisierung) Me.columnAvis = New Global.System.Data.DataColumn("Avis", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvis) Me.columnZollvollmacht = New Global.System.Data.DataColumn("Zollvollmacht", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollvollmacht) Me.columnZollvollmacht_vom = New Global.System.Data.DataColumn("Zollvollmacht vom", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollvollmacht_vom) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnLastschrift_von = New Global.System.Data.DataColumn("Lastschrift von", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift_von) Me.columnLastschrift_bis = New Global.System.Data.DataColumn("Lastschrift bis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift_bis) Me.columnRabattstaffel = New Global.System.Data.DataColumn("Rabattstaffel", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRabattstaffel) Me.columnSVS = New Global.System.Data.DataColumn("SVS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSVS) Me._columnVorlageprovision__ = New Global.System.Data.DataColumn("Vorlageprovision %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnVorlageprovision__") Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_UserColumnName", "Vorlageprovision %") MyBase.Columns.Add(Me._columnVorlageprovision__) Me._columnKreditaufwendungen__ = New Global.System.Data.DataColumn("Kreditaufwendungen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnKreditaufwendungen__") Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_UserColumnName", "Kreditaufwendungen %") MyBase.Columns.Add(Me._columnKreditaufwendungen__) Me._columnBankspesen__ = New Global.System.Data.DataColumn("Bankspesen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnBankspesen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnBankspesen__") Me._columnBankspesen__.ExtendedProperties.Add("Generator_UserColumnName", "Bankspesen %") MyBase.Columns.Add(Me._columnBankspesen__) Me.columnBankspesen_Mindestbetrag = New Global.System.Data.DataColumn("Bankspesen Mindestbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankspesen_Mindestbetrag) Me.columnBesonderheiten = New Global.System.Data.DataColumn("Besonderheiten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesonderheiten) Me.columnSammelrechnung = New Global.System.Data.DataColumn("Sammelrechnung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnung) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me.columnReferenznummer = New Global.System.Data.DataColumn("Referenznummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReferenznummer) Me.columnAntragssumme = New Global.System.Data.DataColumn("Antragssumme", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAntragssumme) Me.columnAntrag_vom = New Global.System.Data.DataColumn("Antrag vom", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAntrag_vom) Me.columnVersicherungssumme = New Global.System.Data.DataColumn("Versicherungssumme", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVersicherungssumme) Me.columnEntscheidung_vom = New Global.System.Data.DataColumn("Entscheidung vom", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEntscheidung_vom) Me.columnKreditlimit = New Global.System.Data.DataColumn("Kreditlimit", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKreditlimit) Me.columnKreditlimit_vom = New Global.System.Data.DataColumn("Kreditlimit vom", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKreditlimit_vom) Me.columnInfo = New Global.System.Data.DataColumn("Info", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInfo) Me.columnÜberwachungskunde = New Global.System.Data.DataColumn("Überwachungskunde", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜberwachungskunde) Me.columnAbfertigungsverbot = New Global.System.Data.DataColumn("Abfertigungsverbot", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsverbot) Me.columnAbfertigungsverbot_seit = New Global.System.Data.DataColumn("Abfertigungsverbot seit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsverbot_seit) Me.columnAbfertigungsverbot_Grund = New Global.System.Data.DataColumn("Abfertigungsverbot Grund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsverbot_Grund) Me.columnRechtsanwalt = New Global.System.Data.DataColumn("Rechtsanwalt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechtsanwalt) Me.columnRechtsanwalt_seit = New Global.System.Data.DataColumn("Rechtsanwalt seit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechtsanwalt_seit) Me.columnExpr1 = New Global.System.Data.DataColumn("Expr1", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpr1) Me.columnExpr2 = New Global.System.Data.DataColumn("Expr2", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpr2) Me.columnExpr3 = New Global.System.Data.DataColumn("Expr3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpr3) Me.columnLfdSaldo = New Global.System.Data.DataColumn("LfdSaldo", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdSaldo) Me.columnErste_Abfertigung = New Global.System.Data.DataColumn("Erste Abfertigung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErste_Abfertigung) Me.columnVorkasse = New Global.System.Data.DataColumn("Vorkasse", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkasse) Me.columnZahlungsinformationen = New Global.System.Data.DataColumn("Zahlungsinformationen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsinformationen) Me.columnEORITIN = New Global.System.Data.DataColumn("EORITIN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEORITIN) Me.columnZollnummer = New Global.System.Data.DataColumn("Zollnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollnummer) Me.columnZulassungsNr_ZnV = New Global.System.Data.DataColumn("ZulassungsNr ZnV", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZulassungsNr_ZnV) Me.columnAufschubkonto_EUSt = New Global.System.Data.DataColumn("Aufschubkonto EUSt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkonto_EUSt) Me.columnAufschubkonto_Zoll = New Global.System.Data.DataColumn("Aufschubkonto Zoll", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkonto_Zoll) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.columnEuroeinführung = New Global.System.Data.DataColumn("Euroeinführung", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEuroeinführung) Me.columnLetzteRechnungsNr = New Global.System.Data.DataColumn("LetzteRechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLetzteRechnungsNr) Me.columnLetztesRechnungsDatum = New Global.System.Data.DataColumn("LetztesRechnungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLetztesRechnungsDatum) Me.columnKonzernkonto = New Global.System.Data.DataColumn("Konzernkonto", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKonzernkonto) Me.columnFiBuSchnittstelle = New Global.System.Data.DataColumn("FiBuSchnittstelle", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiBuSchnittstelle) Me.columnPlanzahl = New Global.System.Data.DataColumn("Planzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPlanzahl) Me.columnGesprächsbericht = New Global.System.Data.DataColumn("Gesprächsbericht", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesprächsbericht) Me.columnBonität = New Global.System.Data.DataColumn("Bonität", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBonität) Me.columnBonitätsdatum = New Global.System.Data.DataColumn("Bonitätsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBonitätsdatum) Me.columnZahlungsziel = New Global.System.Data.DataColumn("Zahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZahlungsziel) Me.columnUStV_SummeUmsatzsteuerbetragEUR = New Global.System.Data.DataColumn("UStV_SummeUmsatzsteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeUmsatzsteuerbetragEUR) Me.columnUStV_SummeErstattungsbetragEUR = New Global.System.Data.DataColumn("UStV_SummeErstattungsbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeErstattungsbetragEUR) Me.columnUStV_Summe3470BetragEUR = New Global.System.Data.DataColumn("UStV_Summe3470BetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_Summe3470BetragEUR) Me.columnUStV_SummeVZBetragEUR = New Global.System.Data.DataColumn("UStV_SummeVZBetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVZBetragEUR) Me.columnUStV_SummeVorschaubetragEUR = New Global.System.Data.DataColumn("UStV_SummeVorschaubetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVorschaubetragEUR) Me.columnUStV_SummeVorschaubetragEUR_VERAG = New Global.System.Data.DataColumn("UStV_SummeVorschaubetragEUR_VERAG", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVorschaubetragEUR_VERAG) Me.columnUStV_SummeVorschaubetragEUR_IDS = New Global.System.Data.DataColumn("UStV_SummeVorschaubetragEUR_IDS", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStV_SummeVorschaubetragEUR_IDS) Me.columnFiskal = New Global.System.Data.DataColumn("Fiskal", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFiskal) Me.columnAusfuhr = New Global.System.Data.DataColumn("Ausfuhr", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAusfuhr) Me.columnBankgarantieBetrag = New Global.System.Data.DataColumn("BankgarantieBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankgarantieBetrag) Me.columnBankgarantieGültigBis = New Global.System.Data.DataColumn("BankgarantieGültigBis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankgarantieGültigBis) Me.columnKD_Korrespondenz = New Global.System.Data.DataColumn("KD_Korrespondenz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKD_Korrespondenz) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdressenNr, Me.columnKundenNr}, true)) Me.columnAuswahl.AllowDBNull = false Me.columnAuswahl.MaxLength = 1 Me.columnAdressenNr.AllowDBNull = false Me.columnOrdnungsbegriff.AllowDBNull = false Me.columnOrdnungsbegriff.MaxLength = 50 Me.columnName_1.MaxLength = 40 Me.columnName_2.MaxLength = 40 Me.columnPostfach.MaxLength = 6 Me.columnPLZPF.MaxLength = 7 Me.columnStraße.MaxLength = 40 Me.columnLandKz.MaxLength = 3 Me.columnPLZ.MaxLength = 7 Me.columnOrt.MaxLength = 40 Me.columnTelefon.MaxLength = 20 Me.columnTelefax.MaxLength = 20 Me.columnMobiltelefon.MaxLength = 50 Me._columnE_Mail.MaxLength = 40 Me._columnE_Mail2.MaxLength = 40 Me.columnAnrede.MaxLength = 4 Me.columnAnsprechpartner.MaxLength = 40 Me.columnUstIdKz.MaxLength = 2 Me.columnUstIdNr.MaxLength = 12 Me.columnBLZ.MaxLength = 8 Me.columnKTO.MaxLength = 12 Me.columnEingegeben_am.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnRechnungsdruck.AllowDBNull = false Me.columnSteuernummer.MaxLength = 20 Me.columnKundenNr.AllowDBNull = false Me.columnKundenNrZentrale.AllowDBNull = false Me.columnLastschrift.AllowDBNull = false Me._columnVorlageprovision__.AllowDBNull = false Me._columnKreditaufwendungen__.AllowDBNull = false Me._columnBankspesen__.AllowDBNull = false Me.columnBankspesen_Mindestbetrag.AllowDBNull = false Me.columnBesonderheiten.MaxLength = 2147483647 Me.columnSammelrechnung.AllowDBNull = false Me.columnSteuerschlüssel.AllowDBNull = false Me.columnReferenznummer.MaxLength = 16 Me.columnInfo.MaxLength = 2147483647 Me.columnAbfertigungsverbot_Grund.MaxLength = 2147483647 Me.columnExpr1.AllowDBNull = false Me.columnExpr3.MaxLength = 15 Me.columnZahlungsinformationen.MaxLength = 2147483647 Me.columnEORITIN.MaxLength = 17 Me.columnZollnummer.MaxLength = 7 Me.columnZulassungsNr_ZnV.MaxLength = 20 Me.columnAufschubkonto_EUSt.MaxLength = 20 Me.columnAufschubkonto_Zoll.MaxLength = 20 Me.columnWährungscode.AllowDBNull = false Me.columnWährungscode.MaxLength = 3 Me.columnEuroeinführung.AllowDBNull = false Me.columnGesprächsbericht.MaxLength = 2147483647 Me.columnUStV_SummeUmsatzsteuerbetragEUR.AllowDBNull = false Me.columnUStV_SummeErstattungsbetragEUR.AllowDBNull = false Me.columnUStV_Summe3470BetragEUR.AllowDBNull = false Me.columnUStV_SummeVZBetragEUR.AllowDBNull = false Me.columnUStV_SummeVorschaubetragEUR.AllowDBNull = false Me.columnUStV_SummeVorschaubetragEUR_VERAG.AllowDBNull = false Me.columnUStV_SummeVorschaubetragEUR_IDS.AllowDBNull = false Me.columnKD_Korrespondenz.MaxLength = 2147483647 End Sub _ Public Function NewvwKundenstammRow() As vwKundenstammRow Return CType(Me.NewRow,vwKundenstammRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwKundenstammRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwKundenstammRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwKundenstammRowChangedEvent) Is Nothing) Then RaiseEvent vwKundenstammRowChanged(Me, New vwKundenstammRowChangeEvent(CType(e.Row,vwKundenstammRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwKundenstammRowChangingEvent) Is Nothing) Then RaiseEvent vwKundenstammRowChanging(Me, New vwKundenstammRowChangeEvent(CType(e.Row,vwKundenstammRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwKundenstammRowDeletedEvent) Is Nothing) Then RaiseEvent vwKundenstammRowDeleted(Me, New vwKundenstammRowChangeEvent(CType(e.Row,vwKundenstammRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwKundenstammRowDeletingEvent) Is Nothing) Then RaiseEvent vwKundenstammRowDeleting(Me, New vwKundenstammRowChangeEvent(CType(e.Row,vwKundenstammRow), e.Action)) End If End Sub _ Public Sub RemovevwKundenstammRow(ByVal row As vwKundenstammRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwKundenstammDataTable" 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 vwReErfAuswahlDataTable Inherits Global.System.Data.TypedTableBase(Of vwReErfAuswahlRow) Private columnRechnungsName_1 As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnRK_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwReErfAuswahl" 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 RechnungsName_1Column() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_1 End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_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 vwReErfAuswahlRow Get Return CType(Me.Rows(index),vwReErfAuswahlRow) End Get End Property _ Public Event vwReErfAuswahlRowChanging As vwReErfAuswahlRowChangeEventHandler _ Public Event vwReErfAuswahlRowChanged As vwReErfAuswahlRowChangeEventHandler _ Public Event vwReErfAuswahlRowDeleting As vwReErfAuswahlRowChangeEventHandler _ Public Event vwReErfAuswahlRowDeleted As vwReErfAuswahlRowChangeEventHandler _ Public Overloads Sub AddvwReErfAuswahlRow(ByVal row As vwReErfAuswahlRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwReErfAuswahlRow(ByVal RechnungsName_1 As String, ByVal RechnungsKundenNr As Integer, ByVal FilialenNr As Short, ByVal AbfertigungsNr As Integer, ByVal UnterNr As Short, ByVal Sachbearbeiter As String) As vwReErfAuswahlRow Dim rowvwReErfAuswahlRow As vwReErfAuswahlRow = CType(Me.NewRow,vwReErfAuswahlRow) Dim columnValuesArray() As Object = New Object() {RechnungsName_1, RechnungsKundenNr, FilialenNr, AbfertigungsNr, UnterNr, Sachbearbeiter, Nothing} rowvwReErfAuswahlRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwReErfAuswahlRow) Return rowvwReErfAuswahlRow End Function _ Public Function FindByRK_ID(ByVal RK_ID As Integer) As vwReErfAuswahlRow Return CType(Me.Rows.Find(New Object() {RK_ID}),vwReErfAuswahlRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwReErfAuswahlDataTable = CType(MyBase.Clone,vwReErfAuswahlDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwReErfAuswahlDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsName_1 = MyBase.Columns("RechnungsName 1") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnRK_ID = MyBase.Columns("RK_ID") End Sub _ Private Sub InitClass() Me.columnRechnungsName_1 = New Global.System.Data.DataColumn("RechnungsName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_1) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID}, true)) Me.columnRechnungsName_1.MaxLength = 40 Me.columnRechnungsKundenNr.AllowDBNull = false Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnRK_ID.AutoIncrement = true Me.columnRK_ID.AutoIncrementSeed = -1 Me.columnRK_ID.AutoIncrementStep = -1 Me.columnRK_ID.AllowDBNull = false Me.columnRK_ID.ReadOnly = true Me.columnRK_ID.Unique = true End Sub _ Public Function NewvwReErfAuswahlRow() As vwReErfAuswahlRow Return CType(Me.NewRow,vwReErfAuswahlRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwReErfAuswahlRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwReErfAuswahlRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwReErfAuswahlRowChangedEvent) Is Nothing) Then RaiseEvent vwReErfAuswahlRowChanged(Me, New vwReErfAuswahlRowChangeEvent(CType(e.Row,vwReErfAuswahlRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwReErfAuswahlRowChangingEvent) Is Nothing) Then RaiseEvent vwReErfAuswahlRowChanging(Me, New vwReErfAuswahlRowChangeEvent(CType(e.Row,vwReErfAuswahlRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwReErfAuswahlRowDeletedEvent) Is Nothing) Then RaiseEvent vwReErfAuswahlRowDeleted(Me, New vwReErfAuswahlRowChangeEvent(CType(e.Row,vwReErfAuswahlRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwReErfAuswahlRowDeletingEvent) Is Nothing) Then RaiseEvent vwReErfAuswahlRowDeleting(Me, New vwReErfAuswahlRowChangeEvent(CType(e.Row,vwReErfAuswahlRow), e.Action)) End If End Sub _ Public Sub RemovevwReErfAuswahlRow(ByVal row As vwReErfAuswahlRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwReErfAuswahlDataTable" 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 vwTrdinHeaderDataTable Inherits Global.System.Data.TypedTableBase(Of vwTrdinHeaderRow) Private columnSpeditionsbuch As Global.System.Data.DataColumn Private columnCompany_code As Global.System.Data.DataColumn Private columnDepot_code As Global.System.Data.DataColumn Private columnSend_number As Global.System.Data.DataColumn Private columnSend_date As Global.System.Data.DataColumn Private columnComputer_location As Global.System.Data.DataColumn Private columnMessage_type As Global.System.Data.DataColumn Private columnFm_net_address As Global.System.Data.DataColumn Private columnAccounting_date As Global.System.Data.DataColumn Private columnCurrency_code As Global.System.Data.DataColumn Private columnCountry_code_dispatch As Global.System.Data.DataColumn Private columnVat_number_dispatch As Global.System.Data.DataColumn Private columnVat_code_I As Global.System.Data.DataColumn Private columnVat_code_S0 As Global.System.Data.DataColumn Private columnVat_code_S1 As Global.System.Data.DataColumn Private columnVat_code_X As Global.System.Data.DataColumn Private columnPfad1 As Global.System.Data.DataColumn Private columnPfad2 As Global.System.Data.DataColumn Private columnDatei As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwTrdinHeader" 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 SpeditionsbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuch End Get End Property _ Public ReadOnly Property Company_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnCompany_code End Get End Property _ Public ReadOnly Property Depot_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnDepot_code End Get End Property _ Public ReadOnly Property Send_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnSend_number End Get End Property _ Public ReadOnly Property Send_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnSend_date End Get End Property _ Public ReadOnly Property Computer_locationColumn() As Global.System.Data.DataColumn Get Return Me.columnComputer_location End Get End Property _ Public ReadOnly Property Message_typeColumn() As Global.System.Data.DataColumn Get Return Me.columnMessage_type End Get End Property _ Public ReadOnly Property Fm_net_addressColumn() As Global.System.Data.DataColumn Get Return Me.columnFm_net_address End Get End Property _ Public ReadOnly Property Accounting_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnAccounting_date End Get End Property _ Public ReadOnly Property Currency_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnCurrency_code End Get End Property _ Public ReadOnly Property Country_code_dispatchColumn() As Global.System.Data.DataColumn Get Return Me.columnCountry_code_dispatch End Get End Property _ Public ReadOnly Property Vat_number_dispatchColumn() As Global.System.Data.DataColumn Get Return Me.columnVat_number_dispatch End Get End Property _ Public ReadOnly Property Vat_code_IColumn() As Global.System.Data.DataColumn Get Return Me.columnVat_code_I End Get End Property _ Public ReadOnly Property Vat_code_S0Column() As Global.System.Data.DataColumn Get Return Me.columnVat_code_S0 End Get End Property _ Public ReadOnly Property Vat_code_S1Column() As Global.System.Data.DataColumn Get Return Me.columnVat_code_S1 End Get End Property _ Public ReadOnly Property Vat_code_XColumn() As Global.System.Data.DataColumn Get Return Me.columnVat_code_X End Get End Property _ Public ReadOnly Property Pfad1Column() As Global.System.Data.DataColumn Get Return Me.columnPfad1 End Get End Property _ Public ReadOnly Property Pfad2Column() As Global.System.Data.DataColumn Get Return Me.columnPfad2 End Get End Property _ Public ReadOnly Property DateiColumn() As Global.System.Data.DataColumn Get Return Me.columnDatei End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 vwTrdinHeaderRow Get Return CType(Me.Rows(index),vwTrdinHeaderRow) End Get End Property _ Public Event vwTrdinHeaderRowChanging As vwTrdinHeaderRowChangeEventHandler _ Public Event vwTrdinHeaderRowChanged As vwTrdinHeaderRowChangeEventHandler _ Public Event vwTrdinHeaderRowDeleting As vwTrdinHeaderRowChangeEventHandler _ Public Event vwTrdinHeaderRowDeleted As vwTrdinHeaderRowChangeEventHandler _ Public Overloads Sub AddvwTrdinHeaderRow(ByVal row As vwTrdinHeaderRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwTrdinHeaderRow( _ ByVal Speditionsbuch As Short, _ ByVal Company_code As String, _ ByVal Depot_code As String, _ ByVal Send_number As Integer, _ ByVal Send_date As Date, _ ByVal Computer_location As String, _ ByVal Message_type As String, _ ByVal Fm_net_address As String, _ ByVal Accounting_date As Date, _ ByVal Currency_code As String, _ ByVal Country_code_dispatch As String, _ ByVal Vat_number_dispatch As String, _ ByVal Vat_code_I As String, _ ByVal Vat_code_S0 As String, _ ByVal Vat_code_S1 As String, _ ByVal Vat_code_X As String, _ ByVal Pfad1 As String, _ ByVal Pfad2 As String, _ ByVal Datei As String, _ ByVal upsize_ts() As Byte) As vwTrdinHeaderRow Dim rowvwTrdinHeaderRow As vwTrdinHeaderRow = CType(Me.NewRow,vwTrdinHeaderRow) Dim columnValuesArray() As Object = New Object() {Speditionsbuch, Company_code, Depot_code, Send_number, Send_date, Computer_location, Message_type, Fm_net_address, Accounting_date, Currency_code, Country_code_dispatch, Vat_number_dispatch, Vat_code_I, Vat_code_S0, Vat_code_S1, Vat_code_X, Pfad1, Pfad2, Datei, upsize_ts} rowvwTrdinHeaderRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwTrdinHeaderRow) Return rowvwTrdinHeaderRow End Function _ Public Function FindBySpeditionsbuch(ByVal Speditionsbuch As Short) As vwTrdinHeaderRow Return CType(Me.Rows.Find(New Object() {Speditionsbuch}),vwTrdinHeaderRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwTrdinHeaderDataTable = CType(MyBase.Clone,vwTrdinHeaderDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwTrdinHeaderDataTable() End Function _ Friend Sub InitVars() Me.columnSpeditionsbuch = MyBase.Columns("Speditionsbuch") Me.columnCompany_code = MyBase.Columns("Company_code") Me.columnDepot_code = MyBase.Columns("Depot_code") Me.columnSend_number = MyBase.Columns("Send_number") Me.columnSend_date = MyBase.Columns("Send_date") Me.columnComputer_location = MyBase.Columns("Computer_location") Me.columnMessage_type = MyBase.Columns("Message_type") Me.columnFm_net_address = MyBase.Columns("Fm_net_address") Me.columnAccounting_date = MyBase.Columns("Accounting_date") Me.columnCurrency_code = MyBase.Columns("Currency_code") Me.columnCountry_code_dispatch = MyBase.Columns("Country_code_dispatch") Me.columnVat_number_dispatch = MyBase.Columns("Vat_number_dispatch") Me.columnVat_code_I = MyBase.Columns("Vat_code_I") Me.columnVat_code_S0 = MyBase.Columns("Vat_code_S0") Me.columnVat_code_S1 = MyBase.Columns("Vat_code_S1") Me.columnVat_code_X = MyBase.Columns("Vat_code_X") Me.columnPfad1 = MyBase.Columns("Pfad1") Me.columnPfad2 = MyBase.Columns("Pfad2") Me.columnDatei = MyBase.Columns("Datei") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnSpeditionsbuch = New Global.System.Data.DataColumn("Speditionsbuch", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuch) Me.columnCompany_code = New Global.System.Data.DataColumn("Company_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCompany_code) Me.columnDepot_code = New Global.System.Data.DataColumn("Depot_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDepot_code) Me.columnSend_number = New Global.System.Data.DataColumn("Send_number", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSend_number) Me.columnSend_date = New Global.System.Data.DataColumn("Send_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSend_date) Me.columnComputer_location = New Global.System.Data.DataColumn("Computer_location", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComputer_location) Me.columnMessage_type = New Global.System.Data.DataColumn("Message_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMessage_type) Me.columnFm_net_address = New Global.System.Data.DataColumn("Fm_net_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFm_net_address) Me.columnAccounting_date = New Global.System.Data.DataColumn("Accounting_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAccounting_date) Me.columnCurrency_code = New Global.System.Data.DataColumn("Currency_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCurrency_code) Me.columnCountry_code_dispatch = New Global.System.Data.DataColumn("Country_code_dispatch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCountry_code_dispatch) Me.columnVat_number_dispatch = New Global.System.Data.DataColumn("Vat_number_dispatch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_number_dispatch) Me.columnVat_code_I = New Global.System.Data.DataColumn("Vat_code_I", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_I) Me.columnVat_code_S0 = New Global.System.Data.DataColumn("Vat_code_S0", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_S0) Me.columnVat_code_S1 = New Global.System.Data.DataColumn("Vat_code_S1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_S1) Me.columnVat_code_X = New Global.System.Data.DataColumn("Vat_code_X", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_X) Me.columnPfad1 = New Global.System.Data.DataColumn("Pfad1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPfad1) Me.columnPfad2 = New Global.System.Data.DataColumn("Pfad2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPfad2) Me.columnDatei = New Global.System.Data.DataColumn("Datei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatei) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSpeditionsbuch}, true)) Me.columnSpeditionsbuch.AllowDBNull = false Me.columnSpeditionsbuch.Unique = true Me.columnCompany_code.AllowDBNull = false Me.columnCompany_code.MaxLength = 3 Me.columnDepot_code.MaxLength = 2 Me.columnSend_number.AllowDBNull = false Me.columnComputer_location.AllowDBNull = false Me.columnComputer_location.MaxLength = 2 Me.columnMessage_type.AllowDBNull = false Me.columnMessage_type.MaxLength = 25 Me.columnFm_net_address.AllowDBNull = false Me.columnFm_net_address.MaxLength = 20 Me.columnAccounting_date.AllowDBNull = false Me.columnCurrency_code.AllowDBNull = false Me.columnCurrency_code.MaxLength = 3 Me.columnCountry_code_dispatch.AllowDBNull = false Me.columnCountry_code_dispatch.MaxLength = 3 Me.columnVat_number_dispatch.AllowDBNull = false Me.columnVat_number_dispatch.MaxLength = 16 Me.columnVat_code_I.AllowDBNull = false Me.columnVat_code_I.MaxLength = 6 Me.columnVat_code_S0.AllowDBNull = false Me.columnVat_code_S0.MaxLength = 6 Me.columnVat_code_S1.AllowDBNull = false Me.columnVat_code_S1.MaxLength = 6 Me.columnVat_code_X.AllowDBNull = false Me.columnVat_code_X.MaxLength = 6 Me.columnPfad1.AllowDBNull = false Me.columnPfad1.MaxLength = 50 Me.columnPfad2.AllowDBNull = false Me.columnPfad2.MaxLength = 50 Me.columnDatei.MaxLength = 12 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewvwTrdinHeaderRow() As vwTrdinHeaderRow Return CType(Me.NewRow,vwTrdinHeaderRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwTrdinHeaderRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwTrdinHeaderRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwTrdinHeaderRowChangedEvent) Is Nothing) Then RaiseEvent vwTrdinHeaderRowChanged(Me, New vwTrdinHeaderRowChangeEvent(CType(e.Row,vwTrdinHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwTrdinHeaderRowChangingEvent) Is Nothing) Then RaiseEvent vwTrdinHeaderRowChanging(Me, New vwTrdinHeaderRowChangeEvent(CType(e.Row,vwTrdinHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwTrdinHeaderRowDeletedEvent) Is Nothing) Then RaiseEvent vwTrdinHeaderRowDeleted(Me, New vwTrdinHeaderRowChangeEvent(CType(e.Row,vwTrdinHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwTrdinHeaderRowDeletingEvent) Is Nothing) Then RaiseEvent vwTrdinHeaderRowDeleting(Me, New vwTrdinHeaderRowChangeEvent(CType(e.Row,vwTrdinHeaderRow), e.Action)) End If End Sub _ Public Sub RemovevwTrdinHeaderRow(ByVal row As vwTrdinHeaderRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwTrdinHeaderDataTable" 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 vwTrdinInvoiceDataTable Inherits Global.System.Data.TypedTableBase(Of vwTrdinInvoiceRow) Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnSpeditionsbuch As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnRechnungsLandKz As Global.System.Data.DataColumn Private columnRechnungsUstIdKz As Global.System.Data.DataColumn Private columnRechnungsUstIdNr As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnWährungLokal As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragLokal As Global.System.Data.DataColumn Private columnSteuerfreierBetragLokal As Global.System.Data.DataColumn Private columnSteuerbetragLokal As Global.System.Data.DataColumn Private columnRechnungsbetragLokal As Global.System.Data.DataColumn Private columnWährungFremd As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragFremd As Global.System.Data.DataColumn Private columnSteuerfreierBetragFremd As Global.System.Data.DataColumn Private columnSteuerbetragFremd As Global.System.Data.DataColumn Private columnRechnungsbetragFremd As Global.System.Data.DataColumn Private columnTrdinDateiname As Global.System.Data.DataColumn Private columnAbgleich_op_debitor As Global.System.Data.DataColumn Private columnNettozahlungsziel As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwTrdinInvoice" 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 RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property SpeditionsbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuch End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property RechnungsLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsLandKz End Get End Property _ Public ReadOnly Property RechnungsUstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdKz End Get End Property _ Public ReadOnly Property RechnungsUstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdNr End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property WährungLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungLokal End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragLokal End Get End Property _ Public ReadOnly Property SteuerfreierBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragLokal End Get End Property _ Public ReadOnly Property SteuerbetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetragLokal End Get End Property _ Public ReadOnly Property RechnungsbetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetragLokal End Get End Property _ Public ReadOnly Property WährungFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungFremd End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragFremd End Get End Property _ Public ReadOnly Property SteuerfreierBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragFremd End Get End Property _ Public ReadOnly Property SteuerbetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetragFremd End Get End Property _ Public ReadOnly Property RechnungsbetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetragFremd End Get End Property _ Public ReadOnly Property TrdinDateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnTrdinDateiname End Get End Property _ Public ReadOnly Property Abgleich_op_debitorColumn() As Global.System.Data.DataColumn Get Return Me.columnAbgleich_op_debitor End Get End Property _ Public ReadOnly Property NettozahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnNettozahlungsziel End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 vwTrdinInvoiceRow Get Return CType(Me.Rows(index),vwTrdinInvoiceRow) End Get End Property _ Public Event vwTrdinInvoiceRowChanging As vwTrdinInvoiceRowChangeEventHandler _ Public Event vwTrdinInvoiceRowChanged As vwTrdinInvoiceRowChangeEventHandler _ Public Event vwTrdinInvoiceRowDeleting As vwTrdinInvoiceRowChangeEventHandler _ Public Event vwTrdinInvoiceRowDeleted As vwTrdinInvoiceRowChangeEventHandler _ Public Overloads Sub AddvwTrdinInvoiceRow(ByVal row As vwTrdinInvoiceRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwTrdinInvoiceRow( _ ByVal Rechnungsdatum As Date, _ ByVal Rechnungsnummer As Integer, _ ByVal Speditionsbuch As Short, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal BelegartenNr As Short, _ ByVal KundenNrZentrale As Integer, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsLandKz As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal Lastschrift As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal _Steuersatz__ As Single, _ ByVal WährungLokal As String, _ ByVal SteuerpflichtigerBetragLokal As Decimal, _ ByVal SteuerfreierBetragLokal As Decimal, _ ByVal SteuerbetragLokal As Decimal, _ ByVal RechnungsbetragLokal As Decimal, _ ByVal WährungFremd As String, _ ByVal SteuerpflichtigerBetragFremd As Decimal, _ ByVal SteuerfreierBetragFremd As Decimal, _ ByVal SteuerbetragFremd As Decimal, _ ByVal RechnungsbetragFremd As Decimal, _ ByVal TrdinDateiname As String, _ ByVal Abgleich_op_debitor As Boolean, _ ByVal Nettozahlungsziel As Short, _ ByVal Firma_ID As Short, _ ByVal UStVAn_ID As Integer, _ ByVal upsize_ts() As Byte) As vwTrdinInvoiceRow Dim rowvwTrdinInvoiceRow As vwTrdinInvoiceRow = CType(Me.NewRow,vwTrdinInvoiceRow) Dim columnValuesArray() As Object = New Object() {Rechnungsdatum, Rechnungsnummer, Speditionsbuch, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, BelegartenNr, KundenNrZentrale, RechnungsKundenNr, RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr, Lastschrift, Steuerschlüssel, _Steuersatz__, WährungLokal, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerbetragLokal, RechnungsbetragLokal, WährungFremd, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, SteuerbetragFremd, RechnungsbetragFremd, TrdinDateiname, Abgleich_op_debitor, Nettozahlungsziel, Firma_ID, UStVAn_ID, upsize_ts} rowvwTrdinInvoiceRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwTrdinInvoiceRow) Return rowvwTrdinInvoiceRow End Function _ Public Function FindByRechnungsdatumRechnungsnummer(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer) As vwTrdinInvoiceRow Return CType(Me.Rows.Find(New Object() {Rechnungsdatum, Rechnungsnummer}),vwTrdinInvoiceRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwTrdinInvoiceDataTable = CType(MyBase.Clone,vwTrdinInvoiceDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwTrdinInvoiceDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnSpeditionsbuch = MyBase.Columns("Speditionsbuch") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnRechnungsLandKz = MyBase.Columns("RechnungsLandKz") Me.columnRechnungsUstIdKz = MyBase.Columns("RechnungsUstIdKz") Me.columnRechnungsUstIdNr = MyBase.Columns("RechnungsUstIdNr") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnWährungLokal = MyBase.Columns("WährungLokal") Me.columnSteuerpflichtigerBetragLokal = MyBase.Columns("SteuerpflichtigerBetragLokal") Me.columnSteuerfreierBetragLokal = MyBase.Columns("SteuerfreierBetragLokal") Me.columnSteuerbetragLokal = MyBase.Columns("SteuerbetragLokal") Me.columnRechnungsbetragLokal = MyBase.Columns("RechnungsbetragLokal") Me.columnWährungFremd = MyBase.Columns("WährungFremd") Me.columnSteuerpflichtigerBetragFremd = MyBase.Columns("SteuerpflichtigerBetragFremd") Me.columnSteuerfreierBetragFremd = MyBase.Columns("SteuerfreierBetragFremd") Me.columnSteuerbetragFremd = MyBase.Columns("SteuerbetragFremd") Me.columnRechnungsbetragFremd = MyBase.Columns("RechnungsbetragFremd") Me.columnTrdinDateiname = MyBase.Columns("TrdinDateiname") Me.columnAbgleich_op_debitor = MyBase.Columns("Abgleich_op_debitor") Me.columnNettozahlungsziel = MyBase.Columns("Nettozahlungsziel") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnSpeditionsbuch = New Global.System.Data.DataColumn("Speditionsbuch", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuch) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnRechnungsLandKz = New Global.System.Data.DataColumn("RechnungsLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsLandKz) Me.columnRechnungsUstIdKz = New Global.System.Data.DataColumn("RechnungsUstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdKz) Me.columnRechnungsUstIdNr = New Global.System.Data.DataColumn("RechnungsUstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdNr) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnWährungLokal = New Global.System.Data.DataColumn("WährungLokal", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungLokal) Me.columnSteuerpflichtigerBetragLokal = New Global.System.Data.DataColumn("SteuerpflichtigerBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragLokal) Me.columnSteuerfreierBetragLokal = New Global.System.Data.DataColumn("SteuerfreierBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragLokal) Me.columnSteuerbetragLokal = New Global.System.Data.DataColumn("SteuerbetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetragLokal) Me.columnRechnungsbetragLokal = New Global.System.Data.DataColumn("RechnungsbetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetragLokal) Me.columnWährungFremd = New Global.System.Data.DataColumn("WährungFremd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungFremd) Me.columnSteuerpflichtigerBetragFremd = New Global.System.Data.DataColumn("SteuerpflichtigerBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragFremd) Me.columnSteuerfreierBetragFremd = New Global.System.Data.DataColumn("SteuerfreierBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragFremd) Me.columnSteuerbetragFremd = New Global.System.Data.DataColumn("SteuerbetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetragFremd) Me.columnRechnungsbetragFremd = New Global.System.Data.DataColumn("RechnungsbetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetragFremd) Me.columnTrdinDateiname = New Global.System.Data.DataColumn("TrdinDateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTrdinDateiname) Me.columnAbgleich_op_debitor = New Global.System.Data.DataColumn("Abgleich_op_debitor", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbgleich_op_debitor) Me.columnNettozahlungsziel = New Global.System.Data.DataColumn("Nettozahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettozahlungsziel) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRechnungsdatum, Me.columnRechnungsnummer}, true)) Me.columnRechnungsdatum.AllowDBNull = false Me.columnRechnungsnummer.AllowDBNull = false Me.columnRechnungsLandKz.MaxLength = 3 Me.columnRechnungsUstIdKz.MaxLength = 2 Me.columnRechnungsUstIdNr.MaxLength = 12 Me.columnLastschrift.AllowDBNull = false Me.columnWährungLokal.MaxLength = 3 Me.columnWährungFremd.MaxLength = 3 Me.columnTrdinDateiname.MaxLength = 12 Me.columnAbgleich_op_debitor.AllowDBNull = false Me.columnFirma_ID.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewvwTrdinInvoiceRow() As vwTrdinInvoiceRow Return CType(Me.NewRow,vwTrdinInvoiceRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwTrdinInvoiceRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwTrdinInvoiceRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwTrdinInvoiceRowChangedEvent) Is Nothing) Then RaiseEvent vwTrdinInvoiceRowChanged(Me, New vwTrdinInvoiceRowChangeEvent(CType(e.Row,vwTrdinInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwTrdinInvoiceRowChangingEvent) Is Nothing) Then RaiseEvent vwTrdinInvoiceRowChanging(Me, New vwTrdinInvoiceRowChangeEvent(CType(e.Row,vwTrdinInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwTrdinInvoiceRowDeletedEvent) Is Nothing) Then RaiseEvent vwTrdinInvoiceRowDeleted(Me, New vwTrdinInvoiceRowChangeEvent(CType(e.Row,vwTrdinInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwTrdinInvoiceRowDeletingEvent) Is Nothing) Then RaiseEvent vwTrdinInvoiceRowDeleting(Me, New vwTrdinInvoiceRowChangeEvent(CType(e.Row,vwTrdinInvoiceRow), e.Action)) End If End Sub _ Public Sub RemovevwTrdinInvoiceRow(ByVal row As vwTrdinInvoiceRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwTrdinInvoiceDataTable" 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 vwTrdinProductDataTable Inherits Global.System.Data.TypedTableBase(Of vwTrdinProductRow) Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnLeistungsnummer As Global.System.Data.DataColumn Private columnLeistungsbezeichnung As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragLokal As Global.System.Data.DataColumn Private columnSteuerfreierBetragLokal As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragFremd As Global.System.Data.DataColumn Private columnSteuerfreierBetragFremd As Global.System.Data.DataColumn Private columnBelegdaten As Global.System.Data.DataColumn Private columnSachkonto As Global.System.Data.DataColumn Private columnBuchungstext As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwTrdinProduct" 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 RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property LeistungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsnummer End Get End Property _ Public ReadOnly Property LeistungsbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsbezeichnung End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragLokal End Get End Property _ Public ReadOnly Property SteuerfreierBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragLokal End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragFremd End Get End Property _ Public ReadOnly Property SteuerfreierBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragFremd End Get End Property _ Public ReadOnly Property BelegdatenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdaten End Get End Property _ Public ReadOnly Property SachkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkonto End Get End Property _ Public ReadOnly Property BuchungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungstext End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 vwTrdinProductRow Get Return CType(Me.Rows(index),vwTrdinProductRow) End Get End Property _ Public Event vwTrdinProductRowChanging As vwTrdinProductRowChangeEventHandler _ Public Event vwTrdinProductRowChanged As vwTrdinProductRowChangeEventHandler _ Public Event vwTrdinProductRowDeleting As vwTrdinProductRowChangeEventHandler _ Public Event vwTrdinProductRowDeleted As vwTrdinProductRowChangeEventHandler _ Public Overloads Sub AddvwTrdinProductRow(ByVal row As vwTrdinProductRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwTrdinProductRow(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean, ByVal SteuerpflichtigerBetragLokal As Decimal, ByVal SteuerfreierBetragLokal As Decimal, ByVal SteuerpflichtigerBetragFremd As Decimal, ByVal SteuerfreierBetragFremd As Decimal, ByVal Belegdaten As String, ByVal Sachkonto As String, ByVal Buchungstext As String, ByVal upsize_ts() As Byte) As vwTrdinProductRow Dim rowvwTrdinProductRow As vwTrdinProductRow = CType(Me.NewRow,vwTrdinProductRow) Dim columnValuesArray() As Object = New Object() {Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, Belegdaten, Sachkonto, Buchungstext, upsize_ts} rowvwTrdinProductRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwTrdinProductRow) Return rowvwTrdinProductRow End Function _ Public Function FindByRechnungsdatumRechnungsnummerLeistungsnummerLeistungsbezeichnungSteuerpflichtig(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean) As vwTrdinProductRow Return CType(Me.Rows.Find(New Object() {Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig}),vwTrdinProductRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwTrdinProductDataTable = CType(MyBase.Clone,vwTrdinProductDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwTrdinProductDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnLeistungsnummer = MyBase.Columns("Leistungsnummer") Me.columnLeistungsbezeichnung = MyBase.Columns("Leistungsbezeichnung") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnSteuerpflichtigerBetragLokal = MyBase.Columns("SteuerpflichtigerBetragLokal") Me.columnSteuerfreierBetragLokal = MyBase.Columns("SteuerfreierBetragLokal") Me.columnSteuerpflichtigerBetragFremd = MyBase.Columns("SteuerpflichtigerBetragFremd") Me.columnSteuerfreierBetragFremd = MyBase.Columns("SteuerfreierBetragFremd") Me.columnBelegdaten = MyBase.Columns("Belegdaten") Me.columnSachkonto = MyBase.Columns("Sachkonto") Me.columnBuchungstext = MyBase.Columns("Buchungstext") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnLeistungsnummer = New Global.System.Data.DataColumn("Leistungsnummer", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsnummer) Me.columnLeistungsbezeichnung = New Global.System.Data.DataColumn("Leistungsbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsbezeichnung) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnSteuerpflichtigerBetragLokal = New Global.System.Data.DataColumn("SteuerpflichtigerBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragLokal) Me.columnSteuerfreierBetragLokal = New Global.System.Data.DataColumn("SteuerfreierBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragLokal) Me.columnSteuerpflichtigerBetragFremd = New Global.System.Data.DataColumn("SteuerpflichtigerBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragFremd) Me.columnSteuerfreierBetragFremd = New Global.System.Data.DataColumn("SteuerfreierBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragFremd) Me.columnBelegdaten = New Global.System.Data.DataColumn("Belegdaten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdaten) Me.columnSachkonto = New Global.System.Data.DataColumn("Sachkonto", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkonto) Me.columnBuchungstext = New Global.System.Data.DataColumn("Buchungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungstext) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRechnungsdatum, Me.columnRechnungsnummer, Me.columnLeistungsnummer, Me.columnLeistungsbezeichnung, Me.columnSteuerpflichtig}, true)) Me.columnRechnungsdatum.AllowDBNull = false Me.columnRechnungsnummer.AllowDBNull = false Me.columnLeistungsnummer.AllowDBNull = false Me.columnLeistungsbezeichnung.AllowDBNull = false Me.columnLeistungsbezeichnung.MaxLength = 30 Me.columnSteuerpflichtig.AllowDBNull = false Me.columnBelegdaten.MaxLength = 30 Me.columnSachkonto.MaxLength = 7 Me.columnBuchungstext.MaxLength = 35 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewvwTrdinProductRow() As vwTrdinProductRow Return CType(Me.NewRow,vwTrdinProductRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwTrdinProductRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwTrdinProductRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwTrdinProductRowChangedEvent) Is Nothing) Then RaiseEvent vwTrdinProductRowChanged(Me, New vwTrdinProductRowChangeEvent(CType(e.Row,vwTrdinProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwTrdinProductRowChangingEvent) Is Nothing) Then RaiseEvent vwTrdinProductRowChanging(Me, New vwTrdinProductRowChangeEvent(CType(e.Row,vwTrdinProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwTrdinProductRowDeletedEvent) Is Nothing) Then RaiseEvent vwTrdinProductRowDeleted(Me, New vwTrdinProductRowChangeEvent(CType(e.Row,vwTrdinProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwTrdinProductRowDeletingEvent) Is Nothing) Then RaiseEvent vwTrdinProductRowDeleting(Me, New vwTrdinProductRowChangeEvent(CType(e.Row,vwTrdinProductRow), e.Action)) End If End Sub _ Public Sub RemovevwTrdinProductRow(ByVal row As vwTrdinProductRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwTrdinProductDataTable" 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 vwUStV_OP_RisikoberichtDataTable Inherits Global.System.Data.TypedTableBase(Of vwUStV_OP_RisikoberichtRow) Private columnOrdnungsbegriff As Global.System.Data.DataColumn Private columnAdressenNr As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnAbfertigungsverbot As Global.System.Data.DataColumn Private columnLfdSaldo As Global.System.Data.DataColumn Private columnOPDatumMin As Global.System.Data.DataColumn Private columnUStDiff As Global.System.Data.DataColumn Private columnKto3470 As Global.System.Data.DataColumn Private columnVorauszahlung As Global.System.Data.DataColumn Private columnVorschau As Global.System.Data.DataColumn Private columnRisiko As Global.System.Data.DataColumn Private columnBankgarantieBetrag As Global.System.Data.DataColumn Private columnBankgarantieGültigBis As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwUStV_OP_Risikobericht" 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 OrdnungsbegriffColumn() As Global.System.Data.DataColumn Get Return Me.columnOrdnungsbegriff End Get End Property _ Public ReadOnly Property AdressenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAdressenNr End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property AbfertigungsverbotColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsverbot End Get End Property _ Public ReadOnly Property LfdSaldoColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdSaldo End Get End Property _ Public ReadOnly Property OPDatumMinColumn() As Global.System.Data.DataColumn Get Return Me.columnOPDatumMin End Get End Property _ Public ReadOnly Property UStDiffColumn() As Global.System.Data.DataColumn Get Return Me.columnUStDiff End Get End Property _ Public ReadOnly Property Kto3470Column() As Global.System.Data.DataColumn Get Return Me.columnKto3470 End Get End Property _ Public ReadOnly Property VorauszahlungColumn() As Global.System.Data.DataColumn Get Return Me.columnVorauszahlung End Get End Property _ Public ReadOnly Property VorschauColumn() As Global.System.Data.DataColumn Get Return Me.columnVorschau End Get End Property _ Public ReadOnly Property RisikoColumn() As Global.System.Data.DataColumn Get Return Me.columnRisiko End Get End Property _ Public ReadOnly Property BankgarantieBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBankgarantieBetrag End Get End Property _ Public ReadOnly Property BankgarantieGültigBisColumn() As Global.System.Data.DataColumn Get Return Me.columnBankgarantieGültigBis 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 vwUStV_OP_RisikoberichtRow Get Return CType(Me.Rows(index),vwUStV_OP_RisikoberichtRow) End Get End Property _ Public Event vwUStV_OP_RisikoberichtRowChanging As vwUStV_OP_RisikoberichtRowChangeEventHandler _ Public Event vwUStV_OP_RisikoberichtRowChanged As vwUStV_OP_RisikoberichtRowChangeEventHandler _ Public Event vwUStV_OP_RisikoberichtRowDeleting As vwUStV_OP_RisikoberichtRowChangeEventHandler _ Public Event vwUStV_OP_RisikoberichtRowDeleted As vwUStV_OP_RisikoberichtRowChangeEventHandler _ Public Overloads Sub AddvwUStV_OP_RisikoberichtRow(ByVal row As vwUStV_OP_RisikoberichtRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwUStV_OP_RisikoberichtRow(ByVal Ordnungsbegriff As String, ByVal AdressenNr As Integer, ByVal LandKz As String, ByVal Abfertigungsverbot As Boolean, ByVal LfdSaldo As Decimal, ByVal OPDatumMin As Date, ByVal UStDiff As Decimal, ByVal Kto3470 As Decimal, ByVal Vorauszahlung As Decimal, ByVal Vorschau As Decimal, ByVal Risiko As Decimal, ByVal BankgarantieBetrag As Decimal, ByVal BankgarantieGültigBis As Date) As vwUStV_OP_RisikoberichtRow Dim rowvwUStV_OP_RisikoberichtRow As vwUStV_OP_RisikoberichtRow = CType(Me.NewRow,vwUStV_OP_RisikoberichtRow) Dim columnValuesArray() As Object = New Object() {Ordnungsbegriff, AdressenNr, LandKz, Abfertigungsverbot, LfdSaldo, OPDatumMin, UStDiff, Kto3470, Vorauszahlung, Vorschau, Risiko, BankgarantieBetrag, BankgarantieGültigBis} rowvwUStV_OP_RisikoberichtRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwUStV_OP_RisikoberichtRow) Return rowvwUStV_OP_RisikoberichtRow End Function _ Public Function FindByAdressenNr(ByVal AdressenNr As Integer) As vwUStV_OP_RisikoberichtRow Return CType(Me.Rows.Find(New Object() {AdressenNr}),vwUStV_OP_RisikoberichtRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwUStV_OP_RisikoberichtDataTable = CType(MyBase.Clone,vwUStV_OP_RisikoberichtDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwUStV_OP_RisikoberichtDataTable() End Function _ Friend Sub InitVars() Me.columnOrdnungsbegriff = MyBase.Columns("Ordnungsbegriff") Me.columnAdressenNr = MyBase.Columns("AdressenNr") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnAbfertigungsverbot = MyBase.Columns("Abfertigungsverbot") Me.columnLfdSaldo = MyBase.Columns("LfdSaldo") Me.columnOPDatumMin = MyBase.Columns("OPDatumMin") Me.columnUStDiff = MyBase.Columns("UStDiff") Me.columnKto3470 = MyBase.Columns("Kto3470") Me.columnVorauszahlung = MyBase.Columns("Vorauszahlung") Me.columnVorschau = MyBase.Columns("Vorschau") Me.columnRisiko = MyBase.Columns("Risiko") Me.columnBankgarantieBetrag = MyBase.Columns("BankgarantieBetrag") Me.columnBankgarantieGültigBis = MyBase.Columns("BankgarantieGültigBis") End Sub _ Private Sub InitClass() Me.columnOrdnungsbegriff = New Global.System.Data.DataColumn("Ordnungsbegriff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrdnungsbegriff) Me.columnAdressenNr = New Global.System.Data.DataColumn("AdressenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAdressenNr) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnAbfertigungsverbot = New Global.System.Data.DataColumn("Abfertigungsverbot", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsverbot) Me.columnLfdSaldo = New Global.System.Data.DataColumn("LfdSaldo", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdSaldo) Me.columnOPDatumMin = New Global.System.Data.DataColumn("OPDatumMin", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOPDatumMin) Me.columnUStDiff = New Global.System.Data.DataColumn("UStDiff", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStDiff) Me.columnKto3470 = New Global.System.Data.DataColumn("Kto3470", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKto3470) Me.columnVorauszahlung = New Global.System.Data.DataColumn("Vorauszahlung", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorauszahlung) Me.columnVorschau = New Global.System.Data.DataColumn("Vorschau", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorschau) Me.columnRisiko = New Global.System.Data.DataColumn("Risiko", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRisiko) Me.columnBankgarantieBetrag = New Global.System.Data.DataColumn("BankgarantieBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankgarantieBetrag) Me.columnBankgarantieGültigBis = New Global.System.Data.DataColumn("BankgarantieGültigBis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankgarantieGültigBis) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdressenNr}, true)) Me.columnOrdnungsbegriff.AllowDBNull = false Me.columnOrdnungsbegriff.MaxLength = 50 Me.columnAdressenNr.AllowDBNull = false Me.columnAdressenNr.Unique = true Me.columnLandKz.MaxLength = 3 Me.columnOPDatumMin.ReadOnly = true Me.columnUStDiff.ReadOnly = true Me.columnKto3470.AllowDBNull = false Me.columnVorauszahlung.AllowDBNull = false Me.columnVorschau.AllowDBNull = false Me.columnRisiko.ReadOnly = true End Sub _ Public Function NewvwUStV_OP_RisikoberichtRow() As vwUStV_OP_RisikoberichtRow Return CType(Me.NewRow,vwUStV_OP_RisikoberichtRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwUStV_OP_RisikoberichtRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwUStV_OP_RisikoberichtRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwUStV_OP_RisikoberichtRowChangedEvent) Is Nothing) Then RaiseEvent vwUStV_OP_RisikoberichtRowChanged(Me, New vwUStV_OP_RisikoberichtRowChangeEvent(CType(e.Row,vwUStV_OP_RisikoberichtRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwUStV_OP_RisikoberichtRowChangingEvent) Is Nothing) Then RaiseEvent vwUStV_OP_RisikoberichtRowChanging(Me, New vwUStV_OP_RisikoberichtRowChangeEvent(CType(e.Row,vwUStV_OP_RisikoberichtRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwUStV_OP_RisikoberichtRowDeletedEvent) Is Nothing) Then RaiseEvent vwUStV_OP_RisikoberichtRowDeleted(Me, New vwUStV_OP_RisikoberichtRowChangeEvent(CType(e.Row,vwUStV_OP_RisikoberichtRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwUStV_OP_RisikoberichtRowDeletingEvent) Is Nothing) Then RaiseEvent vwUStV_OP_RisikoberichtRowDeleting(Me, New vwUStV_OP_RisikoberichtRowChangeEvent(CType(e.Row,vwUStV_OP_RisikoberichtRow), e.Action)) End If End Sub _ Public Sub RemovevwUStV_OP_RisikoberichtRow(ByVal row As vwUStV_OP_RisikoberichtRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwUStV_OP_RisikoberichtDataTable" 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 vwUStVAntragDataTable Inherits Global.System.Data.TypedTableBase(Of vwUStVAntragRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVAn_KuNr As Global.System.Data.DataColumn Private columnUStVAn_Name As Global.System.Data.DataColumn Private columnUStVAn_Straße As Global.System.Data.DataColumn Private columnUStVAn_LandKz As Global.System.Data.DataColumn Private columnUStVAn_PLZ As Global.System.Data.DataColumn Private columnUStVAn_Ort As Global.System.Data.DataColumn Private columnUStVAn_Land As Global.System.Data.DataColumn Private columnUStVAn_Gewerbe As Global.System.Data.DataColumn Private columnUStVAn_Steuernummer As Global.System.Data.DataColumn Private columnUStVAn_ReDatVon As Global.System.Data.DataColumn Private columnUStVAn_ReDatBis As Global.System.Data.DataColumn Private columnUStVAn_Bankverbindung As Global.System.Data.DataColumn Private columnUStVAn_BLZ As Global.System.Data.DataColumn Private columnUStVAn_KTO As Global.System.Data.DataColumn Private columnUStVAn_Kontoinhaber As Global.System.Data.DataColumn Private columnUStVAn_BIC As Global.System.Data.DataColumn Private columnUStVAn_IBAN As Global.System.Data.DataColumn Private columnUStVAn_Anlagen As Global.System.Data.DataColumn Private columnUStVAn_Rechnungen As Global.System.Data.DataColumn Private columnUStVAn_Einfuhrdokumente As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_a As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_1 As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_2 As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_3 As Global.System.Data.DataColumn Private columnUStVAn_Ausstellungsort As Global.System.Data.DataColumn Private columnUStVAn_Ausstellungsdatum As Global.System.Data.DataColumn Private columnUStVAn_Unterschrift As Global.System.Data.DataColumn Private columnUStVAn_LandNr As Global.System.Data.DataColumn Private columnUStVAn_Beleganzahl As Global.System.Data.DataColumn Private columnUStVAn_BeleganzahlRetourniert As Global.System.Data.DataColumn Private columnUStVAn_Retournierungsgrund As Global.System.Data.DataColumn Private columnUStVAn_AntragEingereichtAm As Global.System.Data.DataColumn Private columnUStVAn_BelegeWeitergeleitetAm As Global.System.Data.DataColumn Private columnUStVAn_Vertreter As Global.System.Data.DataColumn Private columnUStVAn_BezugsNr As Global.System.Data.DataColumn Private columnUStVAn_3470 As Global.System.Data.DataColumn Private columnUStVAn_VZBetrag As Global.System.Data.DataColumn Private columnUStVAn_VZDatum As Global.System.Data.DataColumn Private columnUStVAn_RZBetragVZ As Global.System.Data.DataColumn Private columnUStVAn_RZDatumVZ As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUStVAn_Währungscode As Global.System.Data.DataColumn Private columnUStVAn_USteuerbetrag As Global.System.Data.DataColumn Private columnUStVAn_Erstattungsbetrag As Global.System.Data.DataColumn Private columnUStVAn_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVAn_ErstattungsbetragEUR As Global.System.Data.DataColumn Private columnUStVAn_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVAn_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwUStVAntrag" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVAn_KuNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_KuNr End Get End Property _ Public ReadOnly Property UStVAn_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Name End Get End Property _ Public ReadOnly Property UStVAn_StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Straße End Get End Property _ Public ReadOnly Property UStVAn_LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_LandKz End Get End Property _ Public ReadOnly Property UStVAn_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_PLZ End Get End Property _ Public ReadOnly Property UStVAn_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ort End Get End Property _ Public ReadOnly Property UStVAn_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Land End Get End Property _ Public ReadOnly Property UStVAn_GewerbeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Gewerbe End Get End Property _ Public ReadOnly Property UStVAn_SteuernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Steuernummer End Get End Property _ Public ReadOnly Property UStVAn_ReDatVonColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ReDatVon End Get End Property _ Public ReadOnly Property UStVAn_ReDatBisColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ReDatBis End Get End Property _ Public ReadOnly Property UStVAn_BankverbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Bankverbindung End Get End Property _ Public ReadOnly Property UStVAn_BLZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BLZ End Get End Property _ Public ReadOnly Property UStVAn_KTOColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_KTO End Get End Property _ Public ReadOnly Property UStVAn_KontoinhaberColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Kontoinhaber End Get End Property _ Public ReadOnly Property UStVAn_BICColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BIC End Get End Property _ Public ReadOnly Property UStVAn_IBANColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_IBAN End Get End Property _ Public ReadOnly Property UStVAn_AnlagenColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Anlagen End Get End Property _ Public ReadOnly Property UStVAn_RechnungenColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Rechnungen End Get End Property _ Public ReadOnly Property UStVAn_EinfuhrdokumenteColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Einfuhrdokumente End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_aColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_a End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_1Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_1 End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_2Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_2 End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_3Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_3 End Get End Property _ Public ReadOnly Property UStVAn_AusstellungsortColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ausstellungsort End Get End Property _ Public ReadOnly Property UStVAn_AusstellungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ausstellungsdatum End Get End Property _ Public ReadOnly Property UStVAn_UnterschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Unterschrift End Get End Property _ Public ReadOnly Property UStVAn_LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_LandNr End Get End Property _ Public ReadOnly Property UStVAn_BeleganzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Beleganzahl End Get End Property _ Public ReadOnly Property UStVAn_BeleganzahlRetourniertColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BeleganzahlRetourniert End Get End Property _ Public ReadOnly Property UStVAn_RetournierungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Retournierungsgrund End Get End Property _ Public ReadOnly Property UStVAn_AntragEingereichtAmColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_AntragEingereichtAm End Get End Property _ Public ReadOnly Property UStVAn_BelegeWeitergeleitetAmColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BelegeWeitergeleitetAm End Get End Property _ Public ReadOnly Property UStVAn_VertreterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Vertreter End Get End Property _ Public ReadOnly Property UStVAn_BezugsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BezugsNr End Get End Property _ Public ReadOnly Property UStVAn_3470Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_3470 End Get End Property _ Public ReadOnly Property UStVAn_VZBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZBetrag End Get End Property _ Public ReadOnly Property UStVAn_VZDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZDatum End Get End Property _ Public ReadOnly Property UStVAn_RZBetragVZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_RZBetragVZ End Get End Property _ Public ReadOnly Property UStVAn_RZDatumVZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_RZDatumVZ End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UStVAn_WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Währungscode End Get End Property _ Public ReadOnly Property UStVAn_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_USteuerbetrag End Get End Property _ Public ReadOnly Property UStVAn_ErstattungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erstattungsbetrag End Get End Property _ Public ReadOnly Property UStVAn_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVAn_ErstattungsbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ErstattungsbetragEUR End Get End Property _ Public ReadOnly Property UStVAn_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVAn_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 vwUStVAntragRow Get Return CType(Me.Rows(index),vwUStVAntragRow) End Get End Property _ Public Event vwUStVAntragRowChanging As vwUStVAntragRowChangeEventHandler _ Public Event vwUStVAntragRowChanged As vwUStVAntragRowChangeEventHandler _ Public Event vwUStVAntragRowDeleting As vwUStVAntragRowChangeEventHandler _ Public Event vwUStVAntragRowDeleted As vwUStVAntragRowChangeEventHandler _ Public Overloads Sub AddvwUStVAntragRow(ByVal row As vwUStVAntragRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwUStVAntragRow( _ ByVal UStVAn_KuNr As Integer, _ ByVal UStVAn_Name As String, _ ByVal UStVAn_Straße As String, _ ByVal UStVAn_LandKz As String, _ ByVal UStVAn_PLZ As String, _ ByVal UStVAn_Ort As String, _ ByVal UStVAn_Land As String, _ ByVal UStVAn_Gewerbe As String, _ ByVal UStVAn_Steuernummer As String, _ ByVal UStVAn_ReDatVon As Date, _ ByVal UStVAn_ReDatBis As Date, _ ByVal UStVAn_Bankverbindung As String, _ ByVal UStVAn_BLZ As String, _ ByVal UStVAn_KTO As String, _ ByVal UStVAn_Kontoinhaber As String, _ ByVal UStVAn_BIC As String, _ ByVal UStVAn_IBAN As String, _ ByVal UStVAn_Anlagen As Short, _ ByVal UStVAn_Rechnungen As Short, _ ByVal UStVAn_Einfuhrdokumente As Short, _ ByVal UStVAn_Erklärung_9_a As String, _ ByVal UStVAn_Erklärung_9_b_1 As Boolean, _ ByVal UStVAn_Erklärung_9_b_2 As Boolean, _ ByVal UStVAn_Erklärung_9_b_3 As Boolean, _ ByVal UStVAn_Ausstellungsort As String, _ ByVal UStVAn_Ausstellungsdatum As Date, _ ByVal UStVAn_Unterschrift As String, _ ByVal UStVAn_LandNr As Short, _ ByVal UStVAn_Beleganzahl As Short, _ ByVal UStVAn_BeleganzahlRetourniert As Short, _ ByVal UStVAn_Retournierungsgrund As String, _ ByVal UStVAn_AntragEingereichtAm As Date, _ ByVal UStVAn_BelegeWeitergeleitetAm As Date, _ ByVal UStVAn_Vertreter As Integer, _ ByVal UStVAn_BezugsNr As String, _ ByVal UStVAn_3470 As Decimal, _ ByVal UStVAn_VZBetrag As Decimal, _ ByVal UStVAn_VZDatum As Date, _ ByVal UStVAn_RZBetragVZ As Decimal, _ ByVal UStVAn_RZDatumVZ As Date, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UStVAn_Währungscode As String, _ ByVal UStVAn_USteuerbetrag As Decimal, _ ByVal UStVAn_Erstattungsbetrag As Decimal, _ ByVal UStVAn_USteuerbetragEUR As Decimal, _ ByVal UStVAn_ErstattungsbetragEUR As Decimal, _ ByVal UStVAn_Sachbearbeiter As String, _ ByVal UStVAn_Zeitstempel As Integer, _ ByVal upsize_ts As String) As vwUStVAntragRow Dim rowvwUStVAntragRow As vwUStVAntragRow = CType(Me.NewRow,vwUStVAntragRow) Dim columnValuesArray() As Object = New Object() {Nothing, UStVAn_KuNr, UStVAn_Name, UStVAn_Straße, UStVAn_LandKz, UStVAn_PLZ, UStVAn_Ort, UStVAn_Land, UStVAn_Gewerbe, UStVAn_Steuernummer, UStVAn_ReDatVon, UStVAn_ReDatBis, UStVAn_Bankverbindung, UStVAn_BLZ, UStVAn_KTO, UStVAn_Kontoinhaber, UStVAn_BIC, UStVAn_IBAN, UStVAn_Anlagen, UStVAn_Rechnungen, UStVAn_Einfuhrdokumente, UStVAn_Erklärung_9_a, UStVAn_Erklärung_9_b_1, UStVAn_Erklärung_9_b_2, UStVAn_Erklärung_9_b_3, UStVAn_Ausstellungsort, UStVAn_Ausstellungsdatum, UStVAn_Unterschrift, UStVAn_LandNr, UStVAn_Beleganzahl, UStVAn_BeleganzahlRetourniert, UStVAn_Retournierungsgrund, UStVAn_AntragEingereichtAm, UStVAn_BelegeWeitergeleitetAm, UStVAn_Vertreter, UStVAn_BezugsNr, UStVAn_3470, UStVAn_VZBetrag, UStVAn_VZDatum, UStVAn_RZBetragVZ, UStVAn_RZDatumVZ, FilialenNr, AbfertigungsNr, UStVAn_Währungscode, UStVAn_USteuerbetrag, UStVAn_Erstattungsbetrag, UStVAn_USteuerbetragEUR, UStVAn_ErstattungsbetragEUR, UStVAn_Sachbearbeiter, UStVAn_Zeitstempel, upsize_ts} rowvwUStVAntragRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwUStVAntragRow) Return rowvwUStVAntragRow End Function _ Public Function FindByUStVAn_ID(ByVal UStVAn_ID As Integer) As vwUStVAntragRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID}),vwUStVAntragRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwUStVAntragDataTable = CType(MyBase.Clone,vwUStVAntragDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwUStVAntragDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVAn_KuNr = MyBase.Columns("UStVAn_KuNr") Me.columnUStVAn_Name = MyBase.Columns("UStVAn_Name") Me.columnUStVAn_Straße = MyBase.Columns("UStVAn_Straße") Me.columnUStVAn_LandKz = MyBase.Columns("UStVAn_LandKz") Me.columnUStVAn_PLZ = MyBase.Columns("UStVAn_PLZ") Me.columnUStVAn_Ort = MyBase.Columns("UStVAn_Ort") Me.columnUStVAn_Land = MyBase.Columns("UStVAn_Land") Me.columnUStVAn_Gewerbe = MyBase.Columns("UStVAn_Gewerbe") Me.columnUStVAn_Steuernummer = MyBase.Columns("UStVAn_Steuernummer") Me.columnUStVAn_ReDatVon = MyBase.Columns("UStVAn_ReDatVon") Me.columnUStVAn_ReDatBis = MyBase.Columns("UStVAn_ReDatBis") Me.columnUStVAn_Bankverbindung = MyBase.Columns("UStVAn_Bankverbindung") Me.columnUStVAn_BLZ = MyBase.Columns("UStVAn_BLZ") Me.columnUStVAn_KTO = MyBase.Columns("UStVAn_KTO") Me.columnUStVAn_Kontoinhaber = MyBase.Columns("UStVAn_Kontoinhaber") Me.columnUStVAn_BIC = MyBase.Columns("UStVAn_BIC") Me.columnUStVAn_IBAN = MyBase.Columns("UStVAn_IBAN") Me.columnUStVAn_Anlagen = MyBase.Columns("UStVAn_Anlagen") Me.columnUStVAn_Rechnungen = MyBase.Columns("UStVAn_Rechnungen") Me.columnUStVAn_Einfuhrdokumente = MyBase.Columns("UStVAn_Einfuhrdokumente") Me.columnUStVAn_Erklärung_9_a = MyBase.Columns("UStVAn_Erklärung_9_a") Me.columnUStVAn_Erklärung_9_b_1 = MyBase.Columns("UStVAn_Erklärung_9_b_1") Me.columnUStVAn_Erklärung_9_b_2 = MyBase.Columns("UStVAn_Erklärung_9_b_2") Me.columnUStVAn_Erklärung_9_b_3 = MyBase.Columns("UStVAn_Erklärung_9_b_3") Me.columnUStVAn_Ausstellungsort = MyBase.Columns("UStVAn_Ausstellungsort") Me.columnUStVAn_Ausstellungsdatum = MyBase.Columns("UStVAn_Ausstellungsdatum") Me.columnUStVAn_Unterschrift = MyBase.Columns("UStVAn_Unterschrift") Me.columnUStVAn_LandNr = MyBase.Columns("UStVAn_LandNr") Me.columnUStVAn_Beleganzahl = MyBase.Columns("UStVAn_Beleganzahl") Me.columnUStVAn_BeleganzahlRetourniert = MyBase.Columns("UStVAn_BeleganzahlRetourniert") Me.columnUStVAn_Retournierungsgrund = MyBase.Columns("UStVAn_Retournierungsgrund") Me.columnUStVAn_AntragEingereichtAm = MyBase.Columns("UStVAn_AntragEingereichtAm") Me.columnUStVAn_BelegeWeitergeleitetAm = MyBase.Columns("UStVAn_BelegeWeitergeleitetAm") Me.columnUStVAn_Vertreter = MyBase.Columns("UStVAn_Vertreter") Me.columnUStVAn_BezugsNr = MyBase.Columns("UStVAn_BezugsNr") Me.columnUStVAn_3470 = MyBase.Columns("UStVAn_3470") Me.columnUStVAn_VZBetrag = MyBase.Columns("UStVAn_VZBetrag") Me.columnUStVAn_VZDatum = MyBase.Columns("UStVAn_VZDatum") Me.columnUStVAn_RZBetragVZ = MyBase.Columns("UStVAn_RZBetragVZ") Me.columnUStVAn_RZDatumVZ = MyBase.Columns("UStVAn_RZDatumVZ") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUStVAn_Währungscode = MyBase.Columns("UStVAn_Währungscode") Me.columnUStVAn_USteuerbetrag = MyBase.Columns("UStVAn_USteuerbetrag") Me.columnUStVAn_Erstattungsbetrag = MyBase.Columns("UStVAn_Erstattungsbetrag") Me.columnUStVAn_USteuerbetragEUR = MyBase.Columns("UStVAn_USteuerbetragEUR") Me.columnUStVAn_ErstattungsbetragEUR = MyBase.Columns("UStVAn_ErstattungsbetragEUR") Me.columnUStVAn_Sachbearbeiter = MyBase.Columns("UStVAn_Sachbearbeiter") Me.columnUStVAn_Zeitstempel = MyBase.Columns("UStVAn_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVAn_KuNr = New Global.System.Data.DataColumn("UStVAn_KuNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_KuNr) Me.columnUStVAn_Name = New Global.System.Data.DataColumn("UStVAn_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Name) Me.columnUStVAn_Straße = New Global.System.Data.DataColumn("UStVAn_Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Straße) Me.columnUStVAn_LandKz = New Global.System.Data.DataColumn("UStVAn_LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_LandKz) Me.columnUStVAn_PLZ = New Global.System.Data.DataColumn("UStVAn_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_PLZ) Me.columnUStVAn_Ort = New Global.System.Data.DataColumn("UStVAn_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ort) Me.columnUStVAn_Land = New Global.System.Data.DataColumn("UStVAn_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Land) Me.columnUStVAn_Gewerbe = New Global.System.Data.DataColumn("UStVAn_Gewerbe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Gewerbe) Me.columnUStVAn_Steuernummer = New Global.System.Data.DataColumn("UStVAn_Steuernummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Steuernummer) Me.columnUStVAn_ReDatVon = New Global.System.Data.DataColumn("UStVAn_ReDatVon", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ReDatVon) Me.columnUStVAn_ReDatBis = New Global.System.Data.DataColumn("UStVAn_ReDatBis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ReDatBis) Me.columnUStVAn_Bankverbindung = New Global.System.Data.DataColumn("UStVAn_Bankverbindung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Bankverbindung) Me.columnUStVAn_BLZ = New Global.System.Data.DataColumn("UStVAn_BLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BLZ) Me.columnUStVAn_KTO = New Global.System.Data.DataColumn("UStVAn_KTO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_KTO) Me.columnUStVAn_Kontoinhaber = New Global.System.Data.DataColumn("UStVAn_Kontoinhaber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Kontoinhaber) Me.columnUStVAn_BIC = New Global.System.Data.DataColumn("UStVAn_BIC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BIC) Me.columnUStVAn_IBAN = New Global.System.Data.DataColumn("UStVAn_IBAN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_IBAN) Me.columnUStVAn_Anlagen = New Global.System.Data.DataColumn("UStVAn_Anlagen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Anlagen) Me.columnUStVAn_Rechnungen = New Global.System.Data.DataColumn("UStVAn_Rechnungen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Rechnungen) Me.columnUStVAn_Einfuhrdokumente = New Global.System.Data.DataColumn("UStVAn_Einfuhrdokumente", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Einfuhrdokumente) Me.columnUStVAn_Erklärung_9_a = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_a", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_a) Me.columnUStVAn_Erklärung_9_b_1 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_1) Me.columnUStVAn_Erklärung_9_b_2 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_2) Me.columnUStVAn_Erklärung_9_b_3 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_3", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_3) Me.columnUStVAn_Ausstellungsort = New Global.System.Data.DataColumn("UStVAn_Ausstellungsort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ausstellungsort) Me.columnUStVAn_Ausstellungsdatum = New Global.System.Data.DataColumn("UStVAn_Ausstellungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ausstellungsdatum) Me.columnUStVAn_Unterschrift = New Global.System.Data.DataColumn("UStVAn_Unterschrift", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Unterschrift) Me.columnUStVAn_LandNr = New Global.System.Data.DataColumn("UStVAn_LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_LandNr) Me.columnUStVAn_Beleganzahl = New Global.System.Data.DataColumn("UStVAn_Beleganzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Beleganzahl) Me.columnUStVAn_BeleganzahlRetourniert = New Global.System.Data.DataColumn("UStVAn_BeleganzahlRetourniert", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BeleganzahlRetourniert) Me.columnUStVAn_Retournierungsgrund = New Global.System.Data.DataColumn("UStVAn_Retournierungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Retournierungsgrund) Me.columnUStVAn_AntragEingereichtAm = New Global.System.Data.DataColumn("UStVAn_AntragEingereichtAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_AntragEingereichtAm) Me.columnUStVAn_BelegeWeitergeleitetAm = New Global.System.Data.DataColumn("UStVAn_BelegeWeitergeleitetAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BelegeWeitergeleitetAm) Me.columnUStVAn_Vertreter = New Global.System.Data.DataColumn("UStVAn_Vertreter", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Vertreter) Me.columnUStVAn_BezugsNr = New Global.System.Data.DataColumn("UStVAn_BezugsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BezugsNr) Me.columnUStVAn_3470 = New Global.System.Data.DataColumn("UStVAn_3470", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_3470) Me.columnUStVAn_VZBetrag = New Global.System.Data.DataColumn("UStVAn_VZBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZBetrag) Me.columnUStVAn_VZDatum = New Global.System.Data.DataColumn("UStVAn_VZDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZDatum) Me.columnUStVAn_RZBetragVZ = New Global.System.Data.DataColumn("UStVAn_RZBetragVZ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_RZBetragVZ) Me.columnUStVAn_RZDatumVZ = New Global.System.Data.DataColumn("UStVAn_RZDatumVZ", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_RZDatumVZ) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUStVAn_Währungscode = New Global.System.Data.DataColumn("UStVAn_Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Währungscode) Me.columnUStVAn_USteuerbetrag = New Global.System.Data.DataColumn("UStVAn_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_USteuerbetrag) Me.columnUStVAn_Erstattungsbetrag = New Global.System.Data.DataColumn("UStVAn_Erstattungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erstattungsbetrag) Me.columnUStVAn_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVAn_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_USteuerbetragEUR) Me.columnUStVAn_ErstattungsbetragEUR = New Global.System.Data.DataColumn("UStVAn_ErstattungsbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ErstattungsbetragEUR) Me.columnUStVAn_Sachbearbeiter = New Global.System.Data.DataColumn("UStVAn_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Sachbearbeiter) Me.columnUStVAn_Zeitstempel = New Global.System.Data.DataColumn("UStVAn_Zeitstempel", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID}, true)) Me.columnUStVAn_ID.AutoIncrement = true Me.columnUStVAn_ID.AutoIncrementSeed = -1 Me.columnUStVAn_ID.AutoIncrementStep = -1 Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVAn_ID.ReadOnly = true Me.columnUStVAn_ID.Unique = true Me.columnUStVAn_KuNr.AllowDBNull = false Me.columnUStVAn_Name.MaxLength = 80 Me.columnUStVAn_Straße.MaxLength = 40 Me.columnUStVAn_LandKz.MaxLength = 3 Me.columnUStVAn_PLZ.MaxLength = 7 Me.columnUStVAn_Ort.MaxLength = 40 Me.columnUStVAn_Land.MaxLength = 22 Me.columnUStVAn_Gewerbe.MaxLength = 50 Me.columnUStVAn_Steuernummer.MaxLength = 20 Me.columnUStVAn_ReDatVon.AllowDBNull = false Me.columnUStVAn_ReDatBis.AllowDBNull = false Me.columnUStVAn_Bankverbindung.MaxLength = 50 Me.columnUStVAn_BLZ.MaxLength = 8 Me.columnUStVAn_KTO.MaxLength = 12 Me.columnUStVAn_Kontoinhaber.MaxLength = 50 Me.columnUStVAn_BIC.MaxLength = 11 Me.columnUStVAn_IBAN.MaxLength = 27 Me.columnUStVAn_Erklärung_9_a.MaxLength = 50 Me.columnUStVAn_Erklärung_9_b_1.AllowDBNull = false Me.columnUStVAn_Erklärung_9_b_2.AllowDBNull = false Me.columnUStVAn_Erklärung_9_b_3.AllowDBNull = false Me.columnUStVAn_Ausstellungsort.MaxLength = 20 Me.columnUStVAn_Unterschrift.MaxLength = 20 Me.columnUStVAn_LandNr.AllowDBNull = false Me.columnUStVAn_Retournierungsgrund.MaxLength = 255 Me.columnUStVAn_BezugsNr.MaxLength = 35 Me.columnUStVAn_Währungscode.MaxLength = 3 Me.columnUStVAn_Sachbearbeiter.MaxLength = 15 Me.columnupsize_ts.MaxLength = 2147483647 End Sub _ Public Function NewvwUStVAntragRow() As vwUStVAntragRow Return CType(Me.NewRow,vwUStVAntragRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwUStVAntragRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwUStVAntragRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwUStVAntragRowChangedEvent) Is Nothing) Then RaiseEvent vwUStVAntragRowChanged(Me, New vwUStVAntragRowChangeEvent(CType(e.Row,vwUStVAntragRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwUStVAntragRowChangingEvent) Is Nothing) Then RaiseEvent vwUStVAntragRowChanging(Me, New vwUStVAntragRowChangeEvent(CType(e.Row,vwUStVAntragRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwUStVAntragRowDeletedEvent) Is Nothing) Then RaiseEvent vwUStVAntragRowDeleted(Me, New vwUStVAntragRowChangeEvent(CType(e.Row,vwUStVAntragRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwUStVAntragRowDeletingEvent) Is Nothing) Then RaiseEvent vwUStVAntragRowDeleting(Me, New vwUStVAntragRowChangeEvent(CType(e.Row,vwUStVAntragRow), e.Action)) End If End Sub _ Public Sub RemovevwUStVAntragRow(ByVal row As vwUStVAntragRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwUStVAntragDataTable" 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 vwUStVBelegeingangDataTable Inherits Global.System.Data.TypedTableBase(Of vwUStVBelegeingangRow) Private columnUStVBe_KuNr As Global.System.Data.DataColumn Private columnUStVBe_EinDat As Global.System.Data.DataColumn Private columnUStVBe_EinNr As Global.System.Data.DataColumn Private columnUStVBe_UStBetrag As Global.System.Data.DataColumn Private columnUStVBe_Beleganzahl As Global.System.Data.DataColumn Private columnUStVBe_Retourniert As Global.System.Data.DataColumn Private columnUStVBe_Bemerkung As Global.System.Data.DataColumn Private columnUStVBe_WeiterDat As Global.System.Data.DataColumn Private columnUStVBe_Empfänger As Global.System.Data.DataColumn Private columnUStVBe_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwUStVBelegeingang" 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 UStVBe_KuNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_KuNr End Get End Property _ Public ReadOnly Property UStVBe_EinDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_EinDat End Get End Property _ Public ReadOnly Property UStVBe_EinNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_EinNr End Get End Property _ Public ReadOnly Property UStVBe_UStBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_UStBetrag End Get End Property _ Public ReadOnly Property UStVBe_BeleganzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Beleganzahl End Get End Property _ Public ReadOnly Property UStVBe_RetourniertColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Retourniert End Get End Property _ Public ReadOnly Property UStVBe_BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Bemerkung End Get End Property _ Public ReadOnly Property UStVBe_WeiterDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_WeiterDat End Get End Property _ Public ReadOnly Property UStVBe_EmpfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Empfänger End Get End Property _ Public ReadOnly Property UStVBe_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 vwUStVBelegeingangRow Get Return CType(Me.Rows(index),vwUStVBelegeingangRow) End Get End Property _ Public Event vwUStVBelegeingangRowChanging As vwUStVBelegeingangRowChangeEventHandler _ Public Event vwUStVBelegeingangRowChanged As vwUStVBelegeingangRowChangeEventHandler _ Public Event vwUStVBelegeingangRowDeleting As vwUStVBelegeingangRowChangeEventHandler _ Public Event vwUStVBelegeingangRowDeleted As vwUStVBelegeingangRowChangeEventHandler _ Public Overloads Sub AddvwUStVBelegeingangRow(ByVal row As vwUStVBelegeingangRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwUStVBelegeingangRow(ByVal UStVBe_KuNr As Integer, ByVal UStVBe_EinDat As Date, ByVal UStVBe_UStBetrag As Decimal, ByVal UStVBe_Beleganzahl As Short, ByVal UStVBe_Retourniert As Short, ByVal UStVBe_Bemerkung As String, ByVal UStVBe_WeiterDat As Date, ByVal UStVBe_Empfänger As Integer, ByVal UStVBe_Zeitstempel As Date, ByVal upsize_ts() As Byte) As vwUStVBelegeingangRow Dim rowvwUStVBelegeingangRow As vwUStVBelegeingangRow = CType(Me.NewRow,vwUStVBelegeingangRow) Dim columnValuesArray() As Object = New Object() {UStVBe_KuNr, UStVBe_EinDat, Nothing, UStVBe_UStBetrag, UStVBe_Beleganzahl, UStVBe_Retourniert, UStVBe_Bemerkung, UStVBe_WeiterDat, UStVBe_Empfänger, UStVBe_Zeitstempel, upsize_ts} rowvwUStVBelegeingangRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwUStVBelegeingangRow) Return rowvwUStVBelegeingangRow End Function _ Public Function FindByUStVBe_EinNr(ByVal UStVBe_EinNr As Integer) As vwUStVBelegeingangRow Return CType(Me.Rows.Find(New Object() {UStVBe_EinNr}),vwUStVBelegeingangRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwUStVBelegeingangDataTable = CType(MyBase.Clone,vwUStVBelegeingangDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwUStVBelegeingangDataTable() End Function _ Friend Sub InitVars() Me.columnUStVBe_KuNr = MyBase.Columns("UStVBe_KuNr") Me.columnUStVBe_EinDat = MyBase.Columns("UStVBe_EinDat") Me.columnUStVBe_EinNr = MyBase.Columns("UStVBe_EinNr") Me.columnUStVBe_UStBetrag = MyBase.Columns("UStVBe_UStBetrag") Me.columnUStVBe_Beleganzahl = MyBase.Columns("UStVBe_Beleganzahl") Me.columnUStVBe_Retourniert = MyBase.Columns("UStVBe_Retourniert") Me.columnUStVBe_Bemerkung = MyBase.Columns("UStVBe_Bemerkung") Me.columnUStVBe_WeiterDat = MyBase.Columns("UStVBe_WeiterDat") Me.columnUStVBe_Empfänger = MyBase.Columns("UStVBe_Empfänger") Me.columnUStVBe_Zeitstempel = MyBase.Columns("UStVBe_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVBe_KuNr = New Global.System.Data.DataColumn("UStVBe_KuNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_KuNr) Me.columnUStVBe_EinDat = New Global.System.Data.DataColumn("UStVBe_EinDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_EinDat) Me.columnUStVBe_EinNr = New Global.System.Data.DataColumn("UStVBe_EinNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_EinNr) Me.columnUStVBe_UStBetrag = New Global.System.Data.DataColumn("UStVBe_UStBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_UStBetrag) Me.columnUStVBe_Beleganzahl = New Global.System.Data.DataColumn("UStVBe_Beleganzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Beleganzahl) Me.columnUStVBe_Retourniert = New Global.System.Data.DataColumn("UStVBe_Retourniert", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Retourniert) Me.columnUStVBe_Bemerkung = New Global.System.Data.DataColumn("UStVBe_Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Bemerkung) Me.columnUStVBe_WeiterDat = New Global.System.Data.DataColumn("UStVBe_WeiterDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_WeiterDat) Me.columnUStVBe_Empfänger = New Global.System.Data.DataColumn("UStVBe_Empfänger", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Empfänger) Me.columnUStVBe_Zeitstempel = New Global.System.Data.DataColumn("UStVBe_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVBe_EinNr}, true)) Me.columnUStVBe_KuNr.AllowDBNull = false Me.columnUStVBe_EinDat.AllowDBNull = false Me.columnUStVBe_EinNr.AutoIncrement = true Me.columnUStVBe_EinNr.AutoIncrementSeed = -1 Me.columnUStVBe_EinNr.AutoIncrementStep = -1 Me.columnUStVBe_EinNr.AllowDBNull = false Me.columnUStVBe_EinNr.ReadOnly = true Me.columnUStVBe_EinNr.Unique = true Me.columnUStVBe_Bemerkung.MaxLength = 255 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewvwUStVBelegeingangRow() As vwUStVBelegeingangRow Return CType(Me.NewRow,vwUStVBelegeingangRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwUStVBelegeingangRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwUStVBelegeingangRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwUStVBelegeingangRowChangedEvent) Is Nothing) Then RaiseEvent vwUStVBelegeingangRowChanged(Me, New vwUStVBelegeingangRowChangeEvent(CType(e.Row,vwUStVBelegeingangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwUStVBelegeingangRowChangingEvent) Is Nothing) Then RaiseEvent vwUStVBelegeingangRowChanging(Me, New vwUStVBelegeingangRowChangeEvent(CType(e.Row,vwUStVBelegeingangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwUStVBelegeingangRowDeletedEvent) Is Nothing) Then RaiseEvent vwUStVBelegeingangRowDeleted(Me, New vwUStVBelegeingangRowChangeEvent(CType(e.Row,vwUStVBelegeingangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwUStVBelegeingangRowDeletingEvent) Is Nothing) Then RaiseEvent vwUStVBelegeingangRowDeleting(Me, New vwUStVBelegeingangRowChangeEvent(CType(e.Row,vwUStVBelegeingangRow), e.Action)) End If End Sub _ Public Sub RemovevwUStVBelegeingangRow(ByVal row As vwUStVBelegeingangRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwUStVBelegeingangDataTable" 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 vwUStVErstattungDataTable Inherits Global.System.Data.TypedTableBase(Of vwUStVErstattungRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVEr_ID As Global.System.Data.DataColumn Private columnUStVEr_USteuerbetrag As Global.System.Data.DataColumn Private columnBelegdatum As Global.System.Data.DataColumn Private columnBelegnummer As Global.System.Data.DataColumn Private columnGutschriftsDatum As Global.System.Data.DataColumn Private columnGutschriftsNr As Global.System.Data.DataColumn Private columnBerufungsdatum As Global.System.Data.DataColumn Private columnBerufungshöhe As Global.System.Data.DataColumn Private columnBerufungsgrund As Global.System.Data.DataColumn Private columnBemerkung As Global.System.Data.DataColumn Private columnUStVEr_Umrechnungskurs As Global.System.Data.DataColumn Private columnUStVEr_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVEr_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVEr_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwUStVErstattung" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVEr_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_ID End Get End Property _ Public ReadOnly Property UStVEr_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_USteuerbetrag End Get End Property _ Public ReadOnly Property BelegdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdatum End Get End Property _ Public ReadOnly Property BelegnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegnummer End Get End Property _ Public ReadOnly Property GutschriftsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnGutschriftsDatum End Get End Property _ Public ReadOnly Property GutschriftsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnGutschriftsNr End Get End Property _ Public ReadOnly Property BerufungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungsdatum End Get End Property _ Public ReadOnly Property BerufungshöheColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungshöhe End Get End Property _ Public ReadOnly Property BerufungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungsgrund End Get End Property _ Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkung End Get End Property _ Public ReadOnly Property UStVEr_UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Umrechnungskurs End Get End Property _ Public ReadOnly Property UStVEr_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVEr_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVEr_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 vwUStVErstattungRow Get Return CType(Me.Rows(index),vwUStVErstattungRow) End Get End Property _ Public Event vwUStVErstattungRowChanging As vwUStVErstattungRowChangeEventHandler _ Public Event vwUStVErstattungRowChanged As vwUStVErstattungRowChangeEventHandler _ Public Event vwUStVErstattungRowDeleting As vwUStVErstattungRowChangeEventHandler _ Public Event vwUStVErstattungRowDeleted As vwUStVErstattungRowChangeEventHandler _ Public Overloads Sub AddvwUStVErstattungRow(ByVal row As vwUStVErstattungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwUStVErstattungRow( _ ByVal UStVAn_ID As Integer, _ ByVal UStVEr_ID As Short, _ ByVal UStVEr_USteuerbetrag As Decimal, _ ByVal Belegdatum As Date, _ ByVal Belegnummer As String, _ ByVal GutschriftsDatum As Date, _ ByVal GutschriftsNr As Integer, _ ByVal Berufungsdatum As Date, _ ByVal Berufungshöhe As Decimal, _ ByVal Berufungsgrund As String, _ ByVal Bemerkung As String, _ ByVal UStVEr_Umrechnungskurs As Double, _ ByVal UStVEr_USteuerbetragEUR As Decimal, _ ByVal UStVEr_Sachbearbeiter As String, _ ByVal UStVEr_Zeitstempel As Date, _ ByVal upsize_ts() As Byte) As vwUStVErstattungRow Dim rowvwUStVErstattungRow As vwUStVErstattungRow = CType(Me.NewRow,vwUStVErstattungRow) Dim columnValuesArray() As Object = New Object() {UStVAn_ID, UStVEr_ID, UStVEr_USteuerbetrag, Belegdatum, Belegnummer, GutschriftsDatum, GutschriftsNr, Berufungsdatum, Berufungshöhe, Berufungsgrund, Bemerkung, UStVEr_Umrechnungskurs, UStVEr_USteuerbetragEUR, UStVEr_Sachbearbeiter, UStVEr_Zeitstempel, upsize_ts} rowvwUStVErstattungRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwUStVErstattungRow) Return rowvwUStVErstattungRow End Function _ Public Function FindByUStVAn_IDUStVEr_ID(ByVal UStVAn_ID As Integer, ByVal UStVEr_ID As Short) As vwUStVErstattungRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID, UStVEr_ID}),vwUStVErstattungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwUStVErstattungDataTable = CType(MyBase.Clone,vwUStVErstattungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwUStVErstattungDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVEr_ID = MyBase.Columns("UStVEr_ID") Me.columnUStVEr_USteuerbetrag = MyBase.Columns("UStVEr_USteuerbetrag") Me.columnBelegdatum = MyBase.Columns("Belegdatum") Me.columnBelegnummer = MyBase.Columns("Belegnummer") Me.columnGutschriftsDatum = MyBase.Columns("GutschriftsDatum") Me.columnGutschriftsNr = MyBase.Columns("GutschriftsNr") Me.columnBerufungsdatum = MyBase.Columns("Berufungsdatum") Me.columnBerufungshöhe = MyBase.Columns("Berufungshöhe") Me.columnBerufungsgrund = MyBase.Columns("Berufungsgrund") Me.columnBemerkung = MyBase.Columns("Bemerkung") Me.columnUStVEr_Umrechnungskurs = MyBase.Columns("UStVEr_Umrechnungskurs") Me.columnUStVEr_USteuerbetragEUR = MyBase.Columns("UStVEr_USteuerbetragEUR") Me.columnUStVEr_Sachbearbeiter = MyBase.Columns("UStVEr_Sachbearbeiter") Me.columnUStVEr_Zeitstempel = MyBase.Columns("UStVEr_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVEr_ID = New Global.System.Data.DataColumn("UStVEr_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_ID) Me.columnUStVEr_USteuerbetrag = New Global.System.Data.DataColumn("UStVEr_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_USteuerbetrag) Me.columnBelegdatum = New Global.System.Data.DataColumn("Belegdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdatum) Me.columnBelegnummer = New Global.System.Data.DataColumn("Belegnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegnummer) Me.columnGutschriftsDatum = New Global.System.Data.DataColumn("GutschriftsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGutschriftsDatum) Me.columnGutschriftsNr = New Global.System.Data.DataColumn("GutschriftsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGutschriftsNr) Me.columnBerufungsdatum = New Global.System.Data.DataColumn("Berufungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungsdatum) Me.columnBerufungshöhe = New Global.System.Data.DataColumn("Berufungshöhe", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungshöhe) Me.columnBerufungsgrund = New Global.System.Data.DataColumn("Berufungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungsgrund) Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkung) Me.columnUStVEr_Umrechnungskurs = New Global.System.Data.DataColumn("UStVEr_Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Umrechnungskurs) Me.columnUStVEr_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVEr_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_USteuerbetragEUR) Me.columnUStVEr_Sachbearbeiter = New Global.System.Data.DataColumn("UStVEr_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Sachbearbeiter) Me.columnUStVEr_Zeitstempel = New Global.System.Data.DataColumn("UStVEr_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID, Me.columnUStVEr_ID}, true)) Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVEr_ID.AllowDBNull = false Me.columnUStVEr_USteuerbetrag.AllowDBNull = false Me.columnBelegnummer.MaxLength = 15 Me.columnBerufungsgrund.MaxLength = 255 Me.columnBemerkung.MaxLength = 255 Me.columnUStVEr_Sachbearbeiter.MaxLength = 15 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewvwUStVErstattungRow() As vwUStVErstattungRow Return CType(Me.NewRow,vwUStVErstattungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwUStVErstattungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwUStVErstattungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwUStVErstattungRowChangedEvent) Is Nothing) Then RaiseEvent vwUStVErstattungRowChanged(Me, New vwUStVErstattungRowChangeEvent(CType(e.Row,vwUStVErstattungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwUStVErstattungRowChangingEvent) Is Nothing) Then RaiseEvent vwUStVErstattungRowChanging(Me, New vwUStVErstattungRowChangeEvent(CType(e.Row,vwUStVErstattungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwUStVErstattungRowDeletedEvent) Is Nothing) Then RaiseEvent vwUStVErstattungRowDeleted(Me, New vwUStVErstattungRowChangeEvent(CType(e.Row,vwUStVErstattungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwUStVErstattungRowDeletingEvent) Is Nothing) Then RaiseEvent vwUStVErstattungRowDeleting(Me, New vwUStVErstattungRowChangeEvent(CType(e.Row,vwUStVErstattungRow), e.Action)) End If End Sub _ Public Sub RemovevwUStVErstattungRow(ByVal row As vwUStVErstattungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwUStVErstattungDataTable" 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 vwUStVPositionenDataTable Inherits Global.System.Data.TypedTableBase(Of vwUStVPositionenRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVPo_ID As Global.System.Data.DataColumn Private columnUStVPo_ReDat As Global.System.Data.DataColumn Private columnUStVPo_ReNr As Global.System.Data.DataColumn Private columnUStVPo_USteuerbetrag As Global.System.Data.DataColumn Private columnUStVPo_Leistungsbezeichnung As Global.System.Data.DataColumn Private columnUStVPo_Leistender As Global.System.Data.DataColumn Private columnUStVPo_Schnittstelle As Global.System.Data.DataColumn Private columnUStVPo_SchnittstellenNr As Global.System.Data.DataColumn Private columnUStVPo_Umrechnungskurs As Global.System.Data.DataColumn Private columnUStVPo_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVPo_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVPo_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwUStVPositionen" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVPo_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ID End Get End Property _ Public ReadOnly Property UStVPo_ReDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ReDat End Get End Property _ Public ReadOnly Property UStVPo_ReNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ReNr End Get End Property _ Public ReadOnly Property UStVPo_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_USteuerbetrag End Get End Property _ Public ReadOnly Property UStVPo_LeistungsbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Leistungsbezeichnung End Get End Property _ Public ReadOnly Property UStVPo_LeistenderColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Leistender End Get End Property _ Public ReadOnly Property UStVPo_SchnittstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Schnittstelle End Get End Property _ Public ReadOnly Property UStVPo_SchnittstellenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_SchnittstellenNr End Get End Property _ Public ReadOnly Property UStVPo_UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Umrechnungskurs End Get End Property _ Public ReadOnly Property UStVPo_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVPo_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVPo_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 vwUStVPositionenRow Get Return CType(Me.Rows(index),vwUStVPositionenRow) End Get End Property _ Public Event vwUStVPositionenRowChanging As vwUStVPositionenRowChangeEventHandler _ Public Event vwUStVPositionenRowChanged As vwUStVPositionenRowChangeEventHandler _ Public Event vwUStVPositionenRowDeleting As vwUStVPositionenRowChangeEventHandler _ Public Event vwUStVPositionenRowDeleted As vwUStVPositionenRowChangeEventHandler _ Public Overloads Sub AddvwUStVPositionenRow(ByVal row As vwUStVPositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwUStVPositionenRow(ByVal UStVAn_ID As Integer, ByVal UStVPo_ID As Short, ByVal UStVPo_ReDat As Date, ByVal UStVPo_ReNr As String, ByVal UStVPo_USteuerbetrag As Decimal, ByVal UStVPo_Leistungsbezeichnung As String, ByVal UStVPo_Leistender As String, ByVal UStVPo_Schnittstelle As Boolean, ByVal UStVPo_SchnittstellenNr As Short, ByVal UStVPo_Umrechnungskurs As Double, ByVal UStVPo_USteuerbetragEUR As Decimal, ByVal UStVPo_Sachbearbeiter As String, ByVal UStVPo_Zeitstempel As Date, ByVal upsize_ts() As Byte) As vwUStVPositionenRow Dim rowvwUStVPositionenRow As vwUStVPositionenRow = CType(Me.NewRow,vwUStVPositionenRow) Dim columnValuesArray() As Object = New Object() {UStVAn_ID, UStVPo_ID, UStVPo_ReDat, UStVPo_ReNr, UStVPo_USteuerbetrag, UStVPo_Leistungsbezeichnung, UStVPo_Leistender, UStVPo_Schnittstelle, UStVPo_SchnittstellenNr, UStVPo_Umrechnungskurs, UStVPo_USteuerbetragEUR, UStVPo_Sachbearbeiter, UStVPo_Zeitstempel, upsize_ts} rowvwUStVPositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwUStVPositionenRow) Return rowvwUStVPositionenRow End Function _ Public Function FindByUStVAn_IDUStVPo_ID(ByVal UStVAn_ID As Integer, ByVal UStVPo_ID As Short) As vwUStVPositionenRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID, UStVPo_ID}),vwUStVPositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwUStVPositionenDataTable = CType(MyBase.Clone,vwUStVPositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwUStVPositionenDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVPo_ID = MyBase.Columns("UStVPo_ID") Me.columnUStVPo_ReDat = MyBase.Columns("UStVPo_ReDat") Me.columnUStVPo_ReNr = MyBase.Columns("UStVPo_ReNr") Me.columnUStVPo_USteuerbetrag = MyBase.Columns("UStVPo_USteuerbetrag") Me.columnUStVPo_Leistungsbezeichnung = MyBase.Columns("UStVPo_Leistungsbezeichnung") Me.columnUStVPo_Leistender = MyBase.Columns("UStVPo_Leistender") Me.columnUStVPo_Schnittstelle = MyBase.Columns("UStVPo_Schnittstelle") Me.columnUStVPo_SchnittstellenNr = MyBase.Columns("UStVPo_SchnittstellenNr") Me.columnUStVPo_Umrechnungskurs = MyBase.Columns("UStVPo_Umrechnungskurs") Me.columnUStVPo_USteuerbetragEUR = MyBase.Columns("UStVPo_USteuerbetragEUR") Me.columnUStVPo_Sachbearbeiter = MyBase.Columns("UStVPo_Sachbearbeiter") Me.columnUStVPo_Zeitstempel = MyBase.Columns("UStVPo_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVPo_ID = New Global.System.Data.DataColumn("UStVPo_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ID) Me.columnUStVPo_ReDat = New Global.System.Data.DataColumn("UStVPo_ReDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ReDat) Me.columnUStVPo_ReNr = New Global.System.Data.DataColumn("UStVPo_ReNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ReNr) Me.columnUStVPo_USteuerbetrag = New Global.System.Data.DataColumn("UStVPo_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_USteuerbetrag) Me.columnUStVPo_Leistungsbezeichnung = New Global.System.Data.DataColumn("UStVPo_Leistungsbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Leistungsbezeichnung) Me.columnUStVPo_Leistender = New Global.System.Data.DataColumn("UStVPo_Leistender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Leistender) Me.columnUStVPo_Schnittstelle = New Global.System.Data.DataColumn("UStVPo_Schnittstelle", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Schnittstelle) Me.columnUStVPo_SchnittstellenNr = New Global.System.Data.DataColumn("UStVPo_SchnittstellenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_SchnittstellenNr) Me.columnUStVPo_Umrechnungskurs = New Global.System.Data.DataColumn("UStVPo_Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Umrechnungskurs) Me.columnUStVPo_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVPo_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_USteuerbetragEUR) Me.columnUStVPo_Sachbearbeiter = New Global.System.Data.DataColumn("UStVPo_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Sachbearbeiter) Me.columnUStVPo_Zeitstempel = New Global.System.Data.DataColumn("UStVPo_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID, Me.columnUStVPo_ID}, true)) Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVPo_ID.AllowDBNull = false Me.columnUStVPo_ReNr.MaxLength = 40 Me.columnUStVPo_USteuerbetrag.AllowDBNull = false Me.columnUStVPo_Leistungsbezeichnung.MaxLength = 255 Me.columnUStVPo_Leistender.MaxLength = 65 Me.columnUStVPo_Schnittstelle.AllowDBNull = false Me.columnUStVPo_SchnittstellenNr.AllowDBNull = false Me.columnUStVPo_Sachbearbeiter.MaxLength = 15 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewvwUStVPositionenRow() As vwUStVPositionenRow Return CType(Me.NewRow,vwUStVPositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwUStVPositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwUStVPositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwUStVPositionenRowChangedEvent) Is Nothing) Then RaiseEvent vwUStVPositionenRowChanged(Me, New vwUStVPositionenRowChangeEvent(CType(e.Row,vwUStVPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwUStVPositionenRowChangingEvent) Is Nothing) Then RaiseEvent vwUStVPositionenRowChanging(Me, New vwUStVPositionenRowChangeEvent(CType(e.Row,vwUStVPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwUStVPositionenRowDeletedEvent) Is Nothing) Then RaiseEvent vwUStVPositionenRowDeleted(Me, New vwUStVPositionenRowChangeEvent(CType(e.Row,vwUStVPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwUStVPositionenRowDeletingEvent) Is Nothing) Then RaiseEvent vwUStVPositionenRowDeleting(Me, New vwUStVPositionenRowChangeEvent(CType(e.Row,vwUStVPositionenRow), e.Action)) End If End Sub _ Public Sub RemovevwUStVPositionenRow(ByVal row As vwUStVPositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwUStVPositionenDataTable" 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 vwUStVVorauszahlungDataTable Inherits Global.System.Data.TypedTableBase(Of vwUStVVorauszahlungRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVAn_KuNr As Global.System.Data.DataColumn Private columnUStVAn_ReDatVon As Global.System.Data.DataColumn Private columnUStVAn_ReDatBis As Global.System.Data.DataColumn Private columnUStVAn_Ausstellungsdatum As Global.System.Data.DataColumn Private columnUStVAn_LandNr As Global.System.Data.DataColumn Private columnUStVAn_VZDatum As Global.System.Data.DataColumn Private columnUStVAn_VZBetrag As Global.System.Data.DataColumn Private columnUStVAn_RZBetragVZ As Global.System.Data.DataColumn Private columnOrdnungsbegriff As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnErstattungsbetrag As Global.System.Data.DataColumn Private columnUStVAn_VZBetragAktuell As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwUStVVorauszahlung" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVAn_KuNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_KuNr End Get End Property _ Public ReadOnly Property UStVAn_ReDatVonColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ReDatVon End Get End Property _ Public ReadOnly Property UStVAn_ReDatBisColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ReDatBis End Get End Property _ Public ReadOnly Property UStVAn_AusstellungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ausstellungsdatum End Get End Property _ Public ReadOnly Property UStVAn_LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_LandNr End Get End Property _ Public ReadOnly Property UStVAn_VZDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZDatum End Get End Property _ Public ReadOnly Property UStVAn_VZBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZBetrag End Get End Property _ Public ReadOnly Property UStVAn_RZBetragVZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_RZBetragVZ End Get End Property _ Public ReadOnly Property OrdnungsbegriffColumn() As Global.System.Data.DataColumn Get Return Me.columnOrdnungsbegriff End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property ErstattungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnErstattungsbetrag End Get End Property _ Public ReadOnly Property UStVAn_VZBetragAktuellColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZBetragAktuell 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 vwUStVVorauszahlungRow Get Return CType(Me.Rows(index),vwUStVVorauszahlungRow) End Get End Property _ Public Event vwUStVVorauszahlungRowChanging As vwUStVVorauszahlungRowChangeEventHandler _ Public Event vwUStVVorauszahlungRowChanged As vwUStVVorauszahlungRowChangeEventHandler _ Public Event vwUStVVorauszahlungRowDeleting As vwUStVVorauszahlungRowChangeEventHandler _ Public Event vwUStVVorauszahlungRowDeleted As vwUStVVorauszahlungRowChangeEventHandler _ Public Overloads Sub AddvwUStVVorauszahlungRow(ByVal row As vwUStVVorauszahlungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwUStVVorauszahlungRow(ByVal UStVAn_ID As Integer, ByVal UStVAn_KuNr As Integer, ByVal UStVAn_ReDatVon As Date, ByVal UStVAn_ReDatBis As Date, ByVal UStVAn_Ausstellungsdatum As Date, ByVal UStVAn_LandNr As Short, ByVal UStVAn_VZDatum As Date, ByVal UStVAn_VZBetrag As Decimal, ByVal UStVAn_RZBetragVZ As Decimal, ByVal Ordnungsbegriff As String, ByVal LandKz As String, ByVal Erstattungsbetrag As Decimal, ByVal UStVAn_VZBetragAktuell As Decimal) As vwUStVVorauszahlungRow Dim rowvwUStVVorauszahlungRow As vwUStVVorauszahlungRow = CType(Me.NewRow,vwUStVVorauszahlungRow) Dim columnValuesArray() As Object = New Object() {UStVAn_ID, UStVAn_KuNr, UStVAn_ReDatVon, UStVAn_ReDatBis, UStVAn_Ausstellungsdatum, UStVAn_LandNr, UStVAn_VZDatum, UStVAn_VZBetrag, UStVAn_RZBetragVZ, Ordnungsbegriff, LandKz, Erstattungsbetrag, UStVAn_VZBetragAktuell} rowvwUStVVorauszahlungRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwUStVVorauszahlungRow) Return rowvwUStVVorauszahlungRow End Function _ Public Function FindByUStVAn_ID(ByVal UStVAn_ID As Integer) As vwUStVVorauszahlungRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID}),vwUStVVorauszahlungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwUStVVorauszahlungDataTable = CType(MyBase.Clone,vwUStVVorauszahlungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwUStVVorauszahlungDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVAn_KuNr = MyBase.Columns("UStVAn_KuNr") Me.columnUStVAn_ReDatVon = MyBase.Columns("UStVAn_ReDatVon") Me.columnUStVAn_ReDatBis = MyBase.Columns("UStVAn_ReDatBis") Me.columnUStVAn_Ausstellungsdatum = MyBase.Columns("UStVAn_Ausstellungsdatum") Me.columnUStVAn_LandNr = MyBase.Columns("UStVAn_LandNr") Me.columnUStVAn_VZDatum = MyBase.Columns("UStVAn_VZDatum") Me.columnUStVAn_VZBetrag = MyBase.Columns("UStVAn_VZBetrag") Me.columnUStVAn_RZBetragVZ = MyBase.Columns("UStVAn_RZBetragVZ") Me.columnOrdnungsbegriff = MyBase.Columns("Ordnungsbegriff") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnErstattungsbetrag = MyBase.Columns("Erstattungsbetrag") Me.columnUStVAn_VZBetragAktuell = MyBase.Columns("UStVAn_VZBetragAktuell") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVAn_KuNr = New Global.System.Data.DataColumn("UStVAn_KuNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_KuNr) Me.columnUStVAn_ReDatVon = New Global.System.Data.DataColumn("UStVAn_ReDatVon", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ReDatVon) Me.columnUStVAn_ReDatBis = New Global.System.Data.DataColumn("UStVAn_ReDatBis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ReDatBis) Me.columnUStVAn_Ausstellungsdatum = New Global.System.Data.DataColumn("UStVAn_Ausstellungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ausstellungsdatum) Me.columnUStVAn_LandNr = New Global.System.Data.DataColumn("UStVAn_LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_LandNr) Me.columnUStVAn_VZDatum = New Global.System.Data.DataColumn("UStVAn_VZDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZDatum) Me.columnUStVAn_VZBetrag = New Global.System.Data.DataColumn("UStVAn_VZBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZBetrag) Me.columnUStVAn_RZBetragVZ = New Global.System.Data.DataColumn("UStVAn_RZBetragVZ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_RZBetragVZ) Me.columnOrdnungsbegriff = New Global.System.Data.DataColumn("Ordnungsbegriff", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrdnungsbegriff) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnErstattungsbetrag = New Global.System.Data.DataColumn("Erstattungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErstattungsbetrag) Me.columnUStVAn_VZBetragAktuell = New Global.System.Data.DataColumn("UStVAn_VZBetragAktuell", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZBetragAktuell) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID}, true)) Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVAn_ID.Unique = true Me.columnUStVAn_KuNr.AllowDBNull = false Me.columnUStVAn_ReDatVon.AllowDBNull = false Me.columnUStVAn_ReDatBis.AllowDBNull = false Me.columnUStVAn_LandNr.AllowDBNull = false Me.columnOrdnungsbegriff.AllowDBNull = false Me.columnOrdnungsbegriff.MaxLength = 50 Me.columnLandKz.MaxLength = 3 Me.columnErstattungsbetrag.ReadOnly = true Me.columnUStVAn_VZBetragAktuell.ReadOnly = true End Sub _ Public Function NewvwUStVVorauszahlungRow() As vwUStVVorauszahlungRow Return CType(Me.NewRow,vwUStVVorauszahlungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwUStVVorauszahlungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwUStVVorauszahlungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwUStVVorauszahlungRowChangedEvent) Is Nothing) Then RaiseEvent vwUStVVorauszahlungRowChanged(Me, New vwUStVVorauszahlungRowChangeEvent(CType(e.Row,vwUStVVorauszahlungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwUStVVorauszahlungRowChangingEvent) Is Nothing) Then RaiseEvent vwUStVVorauszahlungRowChanging(Me, New vwUStVVorauszahlungRowChangeEvent(CType(e.Row,vwUStVVorauszahlungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwUStVVorauszahlungRowDeletedEvent) Is Nothing) Then RaiseEvent vwUStVVorauszahlungRowDeleted(Me, New vwUStVVorauszahlungRowChangeEvent(CType(e.Row,vwUStVVorauszahlungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwUStVVorauszahlungRowDeletingEvent) Is Nothing) Then RaiseEvent vwUStVVorauszahlungRowDeleting(Me, New vwUStVVorauszahlungRowChangeEvent(CType(e.Row,vwUStVVorauszahlungRow), e.Action)) End If End Sub _ Public Sub RemovevwUStVVorauszahlungRow(ByVal row As vwUStVVorauszahlungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwUStVVorauszahlungDataTable" 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable Inherits Global.System.Data.TypedTableBase(Of vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row) Private columnVERAG_KundenNr As Global.System.Data.DataColumn Private columnVERAG_OffertenNr As Global.System.Data.DataColumn Private columnVERAG_LeistungsNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1" 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 VERAG_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_KundenNr End Get End Property _ Public ReadOnly Property VERAG_OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_OffertenNr End Get End Property _ Public ReadOnly Property VERAG_LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_LeistungsNr 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row Get Return CType(Me.Rows(index),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row) End Get End Property _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChanging As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChanged As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowDeleting As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowDeleted As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEventHandler _ Public Overloads Sub AddvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row(ByVal VERAG_KundenNr As Integer, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short) As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row Dim rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row = CType(Me.NewRow,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row) Dim columnValuesArray() As Object = New Object() {VERAG_KundenNr, VERAG_OffertenNr, VERAG_LeistungsNr} rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row.ItemArray = columnValuesArray Me.Rows.Add(rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row) Return rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row End Function _ Public Function FindByVERAG_KundenNr(ByVal VERAG_KundenNr As Integer) As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row Return CType(Me.Rows.Find(New Object() {VERAG_KundenNr}),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable = CType(MyBase.Clone,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable() End Function _ Friend Sub InitVars() Me.columnVERAG_KundenNr = MyBase.Columns("VERAG_KundenNr") Me.columnVERAG_OffertenNr = MyBase.Columns("VERAG_OffertenNr") Me.columnVERAG_LeistungsNr = MyBase.Columns("VERAG_LeistungsNr") End Sub _ Private Sub InitClass() Me.columnVERAG_KundenNr = New Global.System.Data.DataColumn("VERAG_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_KundenNr) Me.columnVERAG_OffertenNr = New Global.System.Data.DataColumn("VERAG_OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_OffertenNr) Me.columnVERAG_LeistungsNr = New Global.System.Data.DataColumn("VERAG_LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_LeistungsNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnVERAG_KundenNr}, true)) Me.columnVERAG_KundenNr.AllowDBNull = false Me.columnVERAG_KundenNr.Unique = true Me.columnVERAG_OffertenNr.AllowDBNull = false Me.columnVERAG_LeistungsNr.AllowDBNull = false End Sub _ Public Function NewvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row Return CType(Me.NewRow,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangedEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChanged(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangingEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChanging(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowDeletedEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowDeleted(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowDeletingEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowDeleting(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row), e.Action)) End If End Sub _ Public Sub RemovevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable" 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable Inherits Global.System.Data.TypedTableBase(Of vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow) Private columnVERAG_KundenNr As Global.System.Data.DataColumn Private columnVERAG_OffertenNr As Global.System.Data.DataColumn Private columnVERAG_LeistungsNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new" 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 VERAG_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_KundenNr End Get End Property _ Public ReadOnly Property VERAG_OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_OffertenNr End Get End Property _ Public ReadOnly Property VERAG_LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_LeistungsNr 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow Get Return CType(Me.Rows(index),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow) End Get End Property _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChanging As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChanged As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowDeleting As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowDeleted As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEventHandler _ Public Overloads Sub AddvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow(ByVal VERAG_KundenNr As Integer, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short) As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow Dim rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow = CType(Me.NewRow,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow) Dim columnValuesArray() As Object = New Object() {VERAG_KundenNr, VERAG_OffertenNr, VERAG_LeistungsNr} rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow) Return rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow End Function _ Public Function FindByVERAG_KundenNr(ByVal VERAG_KundenNr As Integer) As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow Return CType(Me.Rows.Find(New Object() {VERAG_KundenNr}),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable = CType(MyBase.Clone,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable() End Function _ Friend Sub InitVars() Me.columnVERAG_KundenNr = MyBase.Columns("VERAG_KundenNr") Me.columnVERAG_OffertenNr = MyBase.Columns("VERAG_OffertenNr") Me.columnVERAG_LeistungsNr = MyBase.Columns("VERAG_LeistungsNr") End Sub _ Private Sub InitClass() Me.columnVERAG_KundenNr = New Global.System.Data.DataColumn("VERAG_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_KundenNr) Me.columnVERAG_OffertenNr = New Global.System.Data.DataColumn("VERAG_OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_OffertenNr) Me.columnVERAG_LeistungsNr = New Global.System.Data.DataColumn("VERAG_LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_LeistungsNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnVERAG_KundenNr}, true)) Me.columnVERAG_KundenNr.AllowDBNull = false Me.columnVERAG_KundenNr.Unique = true Me.columnVERAG_OffertenNr.AllowDBNull = false Me.columnVERAG_LeistungsNr.AllowDBNull = false End Sub _ Public Function NewvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow Return CType(Me.NewRow,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangedEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChanged(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangingEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChanging(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowDeletedEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowDeleted(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowDeletingEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowDeleting(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow), e.Action)) End If End Sub _ Public Sub RemovevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable" 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable Inherits Global.System.Data.TypedTableBase(Of vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row) Private columnVERAG_KundenNr As Global.System.Data.DataColumn Private columnVERAG_OffertenNr As Global.System.Data.DataColumn Private columnVERAG_LeistungsNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2" 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 VERAG_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_KundenNr End Get End Property _ Public ReadOnly Property VERAG_OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_OffertenNr End Get End Property _ Public ReadOnly Property VERAG_LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_LeistungsNr 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row Get Return CType(Me.Rows(index),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row) End Get End Property _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChanging As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChanged As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowDeleting As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowDeleted As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEventHandler _ Public Overloads Sub AddvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row(ByVal VERAG_KundenNr As Integer, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short) As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row Dim rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row = CType(Me.NewRow,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row) Dim columnValuesArray() As Object = New Object() {VERAG_KundenNr, VERAG_OffertenNr, VERAG_LeistungsNr} rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row.ItemArray = columnValuesArray Me.Rows.Add(rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row) Return rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row End Function _ Public Function FindByVERAG_KundenNr(ByVal VERAG_KundenNr As Integer) As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row Return CType(Me.Rows.Find(New Object() {VERAG_KundenNr}),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable = CType(MyBase.Clone,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable() End Function _ Friend Sub InitVars() Me.columnVERAG_KundenNr = MyBase.Columns("VERAG_KundenNr") Me.columnVERAG_OffertenNr = MyBase.Columns("VERAG_OffertenNr") Me.columnVERAG_LeistungsNr = MyBase.Columns("VERAG_LeistungsNr") End Sub _ Private Sub InitClass() Me.columnVERAG_KundenNr = New Global.System.Data.DataColumn("VERAG_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_KundenNr) Me.columnVERAG_OffertenNr = New Global.System.Data.DataColumn("VERAG_OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_OffertenNr) Me.columnVERAG_LeistungsNr = New Global.System.Data.DataColumn("VERAG_LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_LeistungsNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnVERAG_KundenNr}, true)) Me.columnVERAG_KundenNr.AllowDBNull = false Me.columnVERAG_KundenNr.Unique = true Me.columnVERAG_OffertenNr.AllowDBNull = false Me.columnVERAG_LeistungsNr.AllowDBNull = false End Sub _ Public Function NewvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row Return CType(Me.NewRow,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangedEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChanged(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangingEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChanging(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowDeletedEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowDeleted(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowDeletingEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowDeleting(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row), e.Action)) End If End Sub _ Public Sub RemovevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable" 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable Inherits Global.System.Data.TypedTableBase(Of vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow) Private columnVERAG_KundenNr As Global.System.Data.DataColumn Private columnVERAG_OffertenNr As Global.System.Data.DataColumn Private columnVERAG_LeistungsNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new" 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 VERAG_KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_KundenNr End Get End Property _ Public ReadOnly Property VERAG_OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_OffertenNr End Get End Property _ Public ReadOnly Property VERAG_LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVERAG_LeistungsNr 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow Get Return CType(Me.Rows(index),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow) End Get End Property _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChanging As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChanged As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowDeleting As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEventHandler _ Public Event vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowDeleted As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEventHandler _ Public Overloads Sub AddvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow(ByVal VERAG_KundenNr As Integer, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short) As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow Dim rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow = CType(Me.NewRow,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow) Dim columnValuesArray() As Object = New Object() {VERAG_KundenNr, VERAG_OffertenNr, VERAG_LeistungsNr} rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow.ItemArray = columnValuesArray Me.Rows.Add(rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow) Return rowvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow End Function _ Public Function FindByVERAG_KundenNr(ByVal VERAG_KundenNr As Integer) As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow Return CType(Me.Rows.Find(New Object() {VERAG_KundenNr}),vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable = CType(MyBase.Clone,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable() End Function _ Friend Sub InitVars() Me.columnVERAG_KundenNr = MyBase.Columns("VERAG_KundenNr") Me.columnVERAG_OffertenNr = MyBase.Columns("VERAG_OffertenNr") Me.columnVERAG_LeistungsNr = MyBase.Columns("VERAG_LeistungsNr") End Sub _ Private Sub InitClass() Me.columnVERAG_KundenNr = New Global.System.Data.DataColumn("VERAG_KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_KundenNr) Me.columnVERAG_OffertenNr = New Global.System.Data.DataColumn("VERAG_OffertenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_OffertenNr) Me.columnVERAG_LeistungsNr = New Global.System.Data.DataColumn("VERAG_LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERAG_LeistungsNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnVERAG_KundenNr}, true)) Me.columnVERAG_KundenNr.AllowDBNull = false Me.columnVERAG_KundenNr.Unique = true Me.columnVERAG_OffertenNr.AllowDBNull = false Me.columnVERAG_LeistungsNr.AllowDBNull = false End Sub _ Public Function NewvwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow Return CType(Me.NewRow,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangedEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChanged(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangingEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChanging(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowDeletedEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowDeleted(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowDeletingEvent) Is Nothing) Then RaiseEvent vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowDeleting(Me, New vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEvent(CType(e.Row,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow), e.Action)) End If End Sub _ Public Sub RemovevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable" 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 spAlleTabellenDataTable Inherits Global.System.Data.TypedTableBase(Of spAlleTabellenRow) Private columnname As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spAlleTabellen" 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 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 spAlleTabellenRow Get Return CType(Me.Rows(index),spAlleTabellenRow) End Get End Property _ Public Event spAlleTabellenRowChanging As spAlleTabellenRowChangeEventHandler _ Public Event spAlleTabellenRowChanged As spAlleTabellenRowChangeEventHandler _ Public Event spAlleTabellenRowDeleting As spAlleTabellenRowChangeEventHandler _ Public Event spAlleTabellenRowDeleted As spAlleTabellenRowChangeEventHandler _ Public Overloads Sub AddspAlleTabellenRow(ByVal row As spAlleTabellenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspAlleTabellenRow(ByVal name As String) As spAlleTabellenRow Dim rowspAlleTabellenRow As spAlleTabellenRow = CType(Me.NewRow,spAlleTabellenRow) Dim columnValuesArray() As Object = New Object() {name} rowspAlleTabellenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspAlleTabellenRow) Return rowspAlleTabellenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spAlleTabellenDataTable = CType(MyBase.Clone,spAlleTabellenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spAlleTabellenDataTable() End Function _ Friend Sub InitVars() Me.columnname = MyBase.Columns("name") End Sub _ Private Sub InitClass() Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnname) Me.columnname.AllowDBNull = false Me.columnname.MaxLength = 128 End Sub _ Public Function NewspAlleTabellenRow() As spAlleTabellenRow Return CType(Me.NewRow,spAlleTabellenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spAlleTabellenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spAlleTabellenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spAlleTabellenRowChangedEvent) Is Nothing) Then RaiseEvent spAlleTabellenRowChanged(Me, New spAlleTabellenRowChangeEvent(CType(e.Row,spAlleTabellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spAlleTabellenRowChangingEvent) Is Nothing) Then RaiseEvent spAlleTabellenRowChanging(Me, New spAlleTabellenRowChangeEvent(CType(e.Row,spAlleTabellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spAlleTabellenRowDeletedEvent) Is Nothing) Then RaiseEvent spAlleTabellenRowDeleted(Me, New spAlleTabellenRowChangeEvent(CType(e.Row,spAlleTabellenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spAlleTabellenRowDeletingEvent) Is Nothing) Then RaiseEvent spAlleTabellenRowDeleting(Me, New spAlleTabellenRowChangeEvent(CType(e.Row,spAlleTabellenRow), e.Action)) End If End Sub _ Public Sub RemovespAlleTabellenRow(ByVal row As spAlleTabellenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spAlleTabellenDataTable" 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 spReDruReNrVergebenDataTable Inherits Global.System.Data.TypedTableBase(Of spReDruReNrVergebenRow) Private columnLfdRechnungsNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spReDruReNrVergeben" 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 LfdRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdRechnungsNr 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 spReDruReNrVergebenRow Get Return CType(Me.Rows(index),spReDruReNrVergebenRow) End Get End Property _ Public Event spReDruReNrVergebenRowChanging As spReDruReNrVergebenRowChangeEventHandler _ Public Event spReDruReNrVergebenRowChanged As spReDruReNrVergebenRowChangeEventHandler _ Public Event spReDruReNrVergebenRowDeleting As spReDruReNrVergebenRowChangeEventHandler _ Public Event spReDruReNrVergebenRowDeleted As spReDruReNrVergebenRowChangeEventHandler _ Public Overloads Sub AddspReDruReNrVergebenRow(ByVal row As spReDruReNrVergebenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspReDruReNrVergebenRow(ByVal LfdRechnungsNr As Integer) As spReDruReNrVergebenRow Dim rowspReDruReNrVergebenRow As spReDruReNrVergebenRow = CType(Me.NewRow,spReDruReNrVergebenRow) Dim columnValuesArray() As Object = New Object() {LfdRechnungsNr} rowspReDruReNrVergebenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspReDruReNrVergebenRow) Return rowspReDruReNrVergebenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spReDruReNrVergebenDataTable = CType(MyBase.Clone,spReDruReNrVergebenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spReDruReNrVergebenDataTable() End Function _ Friend Sub InitVars() Me.columnLfdRechnungsNr = MyBase.Columns("LfdRechnungsNr") End Sub _ Private Sub InitClass() Me.columnLfdRechnungsNr = New Global.System.Data.DataColumn("LfdRechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdRechnungsNr) Me.columnLfdRechnungsNr.ReadOnly = true End Sub _ Public Function NewspReDruReNrVergebenRow() As spReDruReNrVergebenRow Return CType(Me.NewRow,spReDruReNrVergebenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spReDruReNrVergebenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spReDruReNrVergebenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spReDruReNrVergebenRowChangedEvent) Is Nothing) Then RaiseEvent spReDruReNrVergebenRowChanged(Me, New spReDruReNrVergebenRowChangeEvent(CType(e.Row,spReDruReNrVergebenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spReDruReNrVergebenRowChangingEvent) Is Nothing) Then RaiseEvent spReDruReNrVergebenRowChanging(Me, New spReDruReNrVergebenRowChangeEvent(CType(e.Row,spReDruReNrVergebenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spReDruReNrVergebenRowDeletedEvent) Is Nothing) Then RaiseEvent spReDruReNrVergebenRowDeleted(Me, New spReDruReNrVergebenRowChangeEvent(CType(e.Row,spReDruReNrVergebenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spReDruReNrVergebenRowDeletingEvent) Is Nothing) Then RaiseEvent spReDruReNrVergebenRowDeleting(Me, New spReDruReNrVergebenRowChangeEvent(CType(e.Row,spReDruReNrVergebenRow), e.Action)) End If End Sub _ Public Sub RemovespReDruReNrVergebenRow(ByVal row As spReDruReNrVergebenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spReDruReNrVergebenDataTable" 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 spReDruSchnSaReDruckinfoEintragenDataTable Inherits Global.System.Data.TypedTableBase(Of spReDruSchnSaReDruckinfoEintragenRow) Private columnReturncode As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spReDruSchnSaReDruckinfoEintragen" 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 ReturncodeColumn() As Global.System.Data.DataColumn Get Return Me.columnReturncode 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 spReDruSchnSaReDruckinfoEintragenRow Get Return CType(Me.Rows(index),spReDruSchnSaReDruckinfoEintragenRow) End Get End Property _ Public Event spReDruSchnSaReDruckinfoEintragenRowChanging As spReDruSchnSaReDruckinfoEintragenRowChangeEventHandler _ Public Event spReDruSchnSaReDruckinfoEintragenRowChanged As spReDruSchnSaReDruckinfoEintragenRowChangeEventHandler _ Public Event spReDruSchnSaReDruckinfoEintragenRowDeleting As spReDruSchnSaReDruckinfoEintragenRowChangeEventHandler _ Public Event spReDruSchnSaReDruckinfoEintragenRowDeleted As spReDruSchnSaReDruckinfoEintragenRowChangeEventHandler _ Public Overloads Sub AddspReDruSchnSaReDruckinfoEintragenRow(ByVal row As spReDruSchnSaReDruckinfoEintragenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspReDruSchnSaReDruckinfoEintragenRow(ByVal Returncode As Integer) As spReDruSchnSaReDruckinfoEintragenRow Dim rowspReDruSchnSaReDruckinfoEintragenRow As spReDruSchnSaReDruckinfoEintragenRow = CType(Me.NewRow,spReDruSchnSaReDruckinfoEintragenRow) Dim columnValuesArray() As Object = New Object() {Returncode} rowspReDruSchnSaReDruckinfoEintragenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspReDruSchnSaReDruckinfoEintragenRow) Return rowspReDruSchnSaReDruckinfoEintragenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spReDruSchnSaReDruckinfoEintragenDataTable = CType(MyBase.Clone,spReDruSchnSaReDruckinfoEintragenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spReDruSchnSaReDruckinfoEintragenDataTable() End Function _ Friend Sub InitVars() Me.columnReturncode = MyBase.Columns("Returncode") End Sub _ Private Sub InitClass() Me.columnReturncode = New Global.System.Data.DataColumn("Returncode", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReturncode) Me.columnReturncode.ReadOnly = true End Sub _ Public Function NewspReDruSchnSaReDruckinfoEintragenRow() As spReDruSchnSaReDruckinfoEintragenRow Return CType(Me.NewRow,spReDruSchnSaReDruckinfoEintragenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spReDruSchnSaReDruckinfoEintragenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spReDruSchnSaReDruckinfoEintragenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spReDruSchnSaReDruckinfoEintragenRowChangedEvent) Is Nothing) Then RaiseEvent spReDruSchnSaReDruckinfoEintragenRowChanged(Me, New spReDruSchnSaReDruckinfoEintragenRowChangeEvent(CType(e.Row,spReDruSchnSaReDruckinfoEintragenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spReDruSchnSaReDruckinfoEintragenRowChangingEvent) Is Nothing) Then RaiseEvent spReDruSchnSaReDruckinfoEintragenRowChanging(Me, New spReDruSchnSaReDruckinfoEintragenRowChangeEvent(CType(e.Row,spReDruSchnSaReDruckinfoEintragenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spReDruSchnSaReDruckinfoEintragenRowDeletedEvent) Is Nothing) Then RaiseEvent spReDruSchnSaReDruckinfoEintragenRowDeleted(Me, New spReDruSchnSaReDruckinfoEintragenRowChangeEvent(CType(e.Row,spReDruSchnSaReDruckinfoEintragenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spReDruSchnSaReDruckinfoEintragenRowDeletingEvent) Is Nothing) Then RaiseEvent spReDruSchnSaReDruckinfoEintragenRowDeleting(Me, New spReDruSchnSaReDruckinfoEintragenRowChangeEvent(CType(e.Row,spReDruSchnSaReDruckinfoEintragenRow), e.Action)) End If End Sub _ Public Sub RemovespReDruSchnSaReDruckinfoEintragenRow(ByVal row As spReDruSchnSaReDruckinfoEintragenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spReDruSchnSaReDruckinfoEintragenDataTable" 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 spReDruSchnSaReNrEintragenDataTable Inherits Global.System.Data.TypedTableBase(Of spReDruSchnSaReNrEintragenRow) Private columnErrNumber As Global.System.Data.DataColumn Private columnErrLevel As Global.System.Data.DataColumn Private columnErrState As Global.System.Data.DataColumn Private columnErrProcedure As Global.System.Data.DataColumn Private columnErrLine As Global.System.Data.DataColumn Private columnErrDescription As Global.System.Data.DataColumn Private columnErrDate As Global.System.Data.DataColumn Private columnLfdRechnungsNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spReDruSchnSaReNrEintragen" 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 ErrNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnErrNumber End Get End Property _ Public ReadOnly Property ErrLevelColumn() As Global.System.Data.DataColumn Get Return Me.columnErrLevel End Get End Property _ Public ReadOnly Property ErrStateColumn() As Global.System.Data.DataColumn Get Return Me.columnErrState End Get End Property _ Public ReadOnly Property ErrProcedureColumn() As Global.System.Data.DataColumn Get Return Me.columnErrProcedure End Get End Property _ Public ReadOnly Property ErrLineColumn() As Global.System.Data.DataColumn Get Return Me.columnErrLine End Get End Property _ Public ReadOnly Property ErrDescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnErrDescription End Get End Property _ Public ReadOnly Property ErrDateColumn() As Global.System.Data.DataColumn Get Return Me.columnErrDate End Get End Property _ Public ReadOnly Property LfdRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdRechnungsNr 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 spReDruSchnSaReNrEintragenRow Get Return CType(Me.Rows(index),spReDruSchnSaReNrEintragenRow) End Get End Property _ Public Event spReDruSchnSaReNrEintragenRowChanging As spReDruSchnSaReNrEintragenRowChangeEventHandler _ Public Event spReDruSchnSaReNrEintragenRowChanged As spReDruSchnSaReNrEintragenRowChangeEventHandler _ Public Event spReDruSchnSaReNrEintragenRowDeleting As spReDruSchnSaReNrEintragenRowChangeEventHandler _ Public Event spReDruSchnSaReNrEintragenRowDeleted As spReDruSchnSaReNrEintragenRowChangeEventHandler _ Public Overloads Sub AddspReDruSchnSaReNrEintragenRow(ByVal row As spReDruSchnSaReNrEintragenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspReDruSchnSaReNrEintragenRow(ByVal ErrNumber As Integer, ByVal ErrLevel As Integer, ByVal ErrState As Integer, ByVal ErrProcedure As String, ByVal ErrLine As Integer, ByVal ErrDescription As String, ByVal ErrDate As Date, ByVal LfdRechnungsNr As Integer) As spReDruSchnSaReNrEintragenRow Dim rowspReDruSchnSaReNrEintragenRow As spReDruSchnSaReNrEintragenRow = CType(Me.NewRow,spReDruSchnSaReNrEintragenRow) Dim columnValuesArray() As Object = New Object() {ErrNumber, ErrLevel, ErrState, ErrProcedure, ErrLine, ErrDescription, ErrDate, LfdRechnungsNr} rowspReDruSchnSaReNrEintragenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspReDruSchnSaReNrEintragenRow) Return rowspReDruSchnSaReNrEintragenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spReDruSchnSaReNrEintragenDataTable = CType(MyBase.Clone,spReDruSchnSaReNrEintragenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spReDruSchnSaReNrEintragenDataTable() End Function _ Friend Sub InitVars() Me.columnErrNumber = MyBase.Columns("ErrNumber") Me.columnErrLevel = MyBase.Columns("ErrLevel") Me.columnErrState = MyBase.Columns("ErrState") Me.columnErrProcedure = MyBase.Columns("ErrProcedure") Me.columnErrLine = MyBase.Columns("ErrLine") Me.columnErrDescription = MyBase.Columns("ErrDescription") Me.columnErrDate = MyBase.Columns("ErrDate") Me.columnLfdRechnungsNr = MyBase.Columns("LfdRechnungsNr") End Sub _ Private Sub InitClass() Me.columnErrNumber = New Global.System.Data.DataColumn("ErrNumber", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrNumber) Me.columnErrLevel = New Global.System.Data.DataColumn("ErrLevel", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrLevel) Me.columnErrState = New Global.System.Data.DataColumn("ErrState", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrState) Me.columnErrProcedure = New Global.System.Data.DataColumn("ErrProcedure", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrProcedure) Me.columnErrLine = New Global.System.Data.DataColumn("ErrLine", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrLine) Me.columnErrDescription = New Global.System.Data.DataColumn("ErrDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrDescription) Me.columnErrDate = New Global.System.Data.DataColumn("ErrDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErrDate) Me.columnLfdRechnungsNr = New Global.System.Data.DataColumn("LfdRechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdRechnungsNr) Me.columnErrNumber.ReadOnly = true Me.columnErrLevel.ReadOnly = true Me.columnErrState.ReadOnly = true Me.columnErrProcedure.ReadOnly = true Me.columnErrProcedure.MaxLength = 255 Me.columnErrLine.ReadOnly = true Me.columnErrDescription.ReadOnly = true Me.columnErrDescription.MaxLength = 255 Me.columnErrDate.ReadOnly = true Me.columnLfdRechnungsNr.ReadOnly = true End Sub _ Public Function NewspReDruSchnSaReNrEintragenRow() As spReDruSchnSaReNrEintragenRow Return CType(Me.NewRow,spReDruSchnSaReNrEintragenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spReDruSchnSaReNrEintragenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spReDruSchnSaReNrEintragenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spReDruSchnSaReNrEintragenRowChangedEvent) Is Nothing) Then RaiseEvent spReDruSchnSaReNrEintragenRowChanged(Me, New spReDruSchnSaReNrEintragenRowChangeEvent(CType(e.Row,spReDruSchnSaReNrEintragenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spReDruSchnSaReNrEintragenRowChangingEvent) Is Nothing) Then RaiseEvent spReDruSchnSaReNrEintragenRowChanging(Me, New spReDruSchnSaReNrEintragenRowChangeEvent(CType(e.Row,spReDruSchnSaReNrEintragenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spReDruSchnSaReNrEintragenRowDeletedEvent) Is Nothing) Then RaiseEvent spReDruSchnSaReNrEintragenRowDeleted(Me, New spReDruSchnSaReNrEintragenRowChangeEvent(CType(e.Row,spReDruSchnSaReNrEintragenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spReDruSchnSaReNrEintragenRowDeletingEvent) Is Nothing) Then RaiseEvent spReDruSchnSaReNrEintragenRowDeleting(Me, New spReDruSchnSaReNrEintragenRowChangeEvent(CType(e.Row,spReDruSchnSaReNrEintragenRow), e.Action)) End If End Sub _ Public Sub RemovespReDruSchnSaReNrEintragenRow(ByVal row As spReDruSchnSaReNrEintragenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spReDruSchnSaReNrEintragenDataTable" 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 spReverseChargeSummeDataTable Inherits Global.System.Data.TypedTableBase(Of spReverseChargeSummeRow) Private columnReverseChargeSumme As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spReverseChargeSumme" 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 ReverseChargeSummeColumn() As Global.System.Data.DataColumn Get Return Me.columnReverseChargeSumme 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 spReverseChargeSummeRow Get Return CType(Me.Rows(index),spReverseChargeSummeRow) End Get End Property _ Public Event spReverseChargeSummeRowChanging As spReverseChargeSummeRowChangeEventHandler _ Public Event spReverseChargeSummeRowChanged As spReverseChargeSummeRowChangeEventHandler _ Public Event spReverseChargeSummeRowDeleting As spReverseChargeSummeRowChangeEventHandler _ Public Event spReverseChargeSummeRowDeleted As spReverseChargeSummeRowChangeEventHandler _ Public Overloads Sub AddspReverseChargeSummeRow(ByVal row As spReverseChargeSummeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspReverseChargeSummeRow(ByVal ReverseChargeSumme As Decimal) As spReverseChargeSummeRow Dim rowspReverseChargeSummeRow As spReverseChargeSummeRow = CType(Me.NewRow,spReverseChargeSummeRow) Dim columnValuesArray() As Object = New Object() {ReverseChargeSumme} rowspReverseChargeSummeRow.ItemArray = columnValuesArray Me.Rows.Add(rowspReverseChargeSummeRow) Return rowspReverseChargeSummeRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spReverseChargeSummeDataTable = CType(MyBase.Clone,spReverseChargeSummeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spReverseChargeSummeDataTable() End Function _ Friend Sub InitVars() Me.columnReverseChargeSumme = MyBase.Columns("ReverseChargeSumme") End Sub _ Private Sub InitClass() Me.columnReverseChargeSumme = New Global.System.Data.DataColumn("ReverseChargeSumme", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReverseChargeSumme) Me.columnReverseChargeSumme.ReadOnly = true End Sub _ Public Function NewspReverseChargeSummeRow() As spReverseChargeSummeRow Return CType(Me.NewRow,spReverseChargeSummeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spReverseChargeSummeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spReverseChargeSummeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spReverseChargeSummeRowChangedEvent) Is Nothing) Then RaiseEvent spReverseChargeSummeRowChanged(Me, New spReverseChargeSummeRowChangeEvent(CType(e.Row,spReverseChargeSummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spReverseChargeSummeRowChangingEvent) Is Nothing) Then RaiseEvent spReverseChargeSummeRowChanging(Me, New spReverseChargeSummeRowChangeEvent(CType(e.Row,spReverseChargeSummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spReverseChargeSummeRowDeletedEvent) Is Nothing) Then RaiseEvent spReverseChargeSummeRowDeleted(Me, New spReverseChargeSummeRowChangeEvent(CType(e.Row,spReverseChargeSummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spReverseChargeSummeRowDeletingEvent) Is Nothing) Then RaiseEvent spReverseChargeSummeRowDeleting(Me, New spReverseChargeSummeRowChangeEvent(CType(e.Row,spReverseChargeSummeRow), e.Action)) End If End Sub _ Public Sub RemovespReverseChargeSummeRow(ByVal row As spReverseChargeSummeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spReverseChargeSummeDataTable" 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 spSELECT_Bankspesen_für_KundenNrDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECT_Bankspesen_für_KundenNrRow) Private _columnBankspesen__ As Global.System.Data.DataColumn Private columnBankspesen_Mindestbetrag As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECT_Bankspesen_für_KundenNr" 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 _Bankspesen__Column() As Global.System.Data.DataColumn Get Return Me._columnBankspesen__ End Get End Property _ Public ReadOnly Property Bankspesen_MindestbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBankspesen_Mindestbetrag 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 spSELECT_Bankspesen_für_KundenNrRow Get Return CType(Me.Rows(index),spSELECT_Bankspesen_für_KundenNrRow) End Get End Property _ Public Event spSELECT_Bankspesen_für_KundenNrRowChanging As spSELECT_Bankspesen_für_KundenNrRowChangeEventHandler _ Public Event spSELECT_Bankspesen_für_KundenNrRowChanged As spSELECT_Bankspesen_für_KundenNrRowChangeEventHandler _ Public Event spSELECT_Bankspesen_für_KundenNrRowDeleting As spSELECT_Bankspesen_für_KundenNrRowChangeEventHandler _ Public Event spSELECT_Bankspesen_für_KundenNrRowDeleted As spSELECT_Bankspesen_für_KundenNrRowChangeEventHandler _ Public Overloads Sub AddspSELECT_Bankspesen_für_KundenNrRow(ByVal row As spSELECT_Bankspesen_für_KundenNrRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECT_Bankspesen_für_KundenNrRow(ByVal _Bankspesen__ As Single, ByVal Bankspesen_Mindestbetrag As Decimal) As spSELECT_Bankspesen_für_KundenNrRow Dim rowspSELECT_Bankspesen_für_KundenNrRow As spSELECT_Bankspesen_für_KundenNrRow = CType(Me.NewRow,spSELECT_Bankspesen_für_KundenNrRow) Dim columnValuesArray() As Object = New Object() {_Bankspesen__, Bankspesen_Mindestbetrag} rowspSELECT_Bankspesen_für_KundenNrRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECT_Bankspesen_für_KundenNrRow) Return rowspSELECT_Bankspesen_für_KundenNrRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECT_Bankspesen_für_KundenNrDataTable = CType(MyBase.Clone,spSELECT_Bankspesen_für_KundenNrDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECT_Bankspesen_für_KundenNrDataTable() End Function _ Friend Sub InitVars() Me._columnBankspesen__ = MyBase.Columns("Bankspesen %") Me.columnBankspesen_Mindestbetrag = MyBase.Columns("Bankspesen Mindestbetrag") End Sub _ Private Sub InitClass() Me._columnBankspesen__ = New Global.System.Data.DataColumn("Bankspesen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnBankspesen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnBankspesen__") Me._columnBankspesen__.ExtendedProperties.Add("Generator_UserColumnName", "Bankspesen %") MyBase.Columns.Add(Me._columnBankspesen__) Me.columnBankspesen_Mindestbetrag = New Global.System.Data.DataColumn("Bankspesen Mindestbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankspesen_Mindestbetrag) Me._columnBankspesen__.AllowDBNull = false Me.columnBankspesen_Mindestbetrag.AllowDBNull = false End Sub _ Public Function NewspSELECT_Bankspesen_für_KundenNrRow() As spSELECT_Bankspesen_für_KundenNrRow Return CType(Me.NewRow,spSELECT_Bankspesen_für_KundenNrRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECT_Bankspesen_für_KundenNrRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECT_Bankspesen_für_KundenNrRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECT_Bankspesen_für_KundenNrRowChangedEvent) Is Nothing) Then RaiseEvent spSELECT_Bankspesen_für_KundenNrRowChanged(Me, New spSELECT_Bankspesen_für_KundenNrRowChangeEvent(CType(e.Row,spSELECT_Bankspesen_für_KundenNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECT_Bankspesen_für_KundenNrRowChangingEvent) Is Nothing) Then RaiseEvent spSELECT_Bankspesen_für_KundenNrRowChanging(Me, New spSELECT_Bankspesen_für_KundenNrRowChangeEvent(CType(e.Row,spSELECT_Bankspesen_für_KundenNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECT_Bankspesen_für_KundenNrRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECT_Bankspesen_für_KundenNrRowDeleted(Me, New spSELECT_Bankspesen_für_KundenNrRowChangeEvent(CType(e.Row,spSELECT_Bankspesen_für_KundenNrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECT_Bankspesen_für_KundenNrRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECT_Bankspesen_für_KundenNrRowDeleting(Me, New spSELECT_Bankspesen_für_KundenNrRowChangeEvent(CType(e.Row,spSELECT_Bankspesen_für_KundenNrRow), e.Action)) End If End Sub _ Public Sub RemovespSELECT_Bankspesen_für_KundenNrRow(ByVal row As spSELECT_Bankspesen_für_KundenNrRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECT_Bankspesen_für_KundenNrDataTable" 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 spSELECT_tblZabis_Atlas_NCTSDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECT_tblZabis_Atlas_NCTSRow) Private columnID_NCTS As Global.System.Data.DataColumn Private columnbasman_nr As Global.System.Data.DataColumn Private columnbasman_nl As Global.System.Data.DataColumn Private columnveoant_beznr As Global.System.Data.DataColumn Private columnveoant_lfdnr As Global.System.Data.DataColumn Private columnveoant_stat As Global.System.Data.DataColumn Private columnveoant_arbnr As Global.System.Data.DataColumn Private columnveoant_mrn As Global.System.Data.DataColumn Private columnveoant_abgdst As Global.System.Data.DataColumn Private columnveoant_bedst As Global.System.Data.DataColumn Private columnveoant_wgdat As Global.System.Data.DataColumn Private columnveoant_anzpos As Global.System.Data.DataColumn Private columnveoant_andat As Global.System.Data.DataColumn Private columnveoant_korant As Global.System.Data.DataColumn Private columnveoant_vrbdat As Global.System.Data.DataColumn Private columnveoant_sb As Global.System.Data.DataColumn Private columnveopos_posnr As Global.System.Data.DataColumn Private columnveopos_stat As Global.System.Data.DataColumn Private columnveopos_wbsch1 As Global.System.Data.DataColumn Private columnveopos_rohmas As Global.System.Data.DataColumn Private columnveoerz_sicbsc As Global.System.Data.DataColumn Private columnveoerz_basbtg As Global.System.Data.DataColumn Private columnveoerz_sicbtg As Global.System.Data.DataColumn Private columnvegdat_erldat As Global.System.Data.DataColumn Private columnHistory As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECT_tblZabis_Atlas_NCTS" 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 ID_NCTSColumn() As Global.System.Data.DataColumn Get Return Me.columnID_NCTS End Get End Property _ Public ReadOnly Property basman_nrColumn() As Global.System.Data.DataColumn Get Return Me.columnbasman_nr End Get End Property _ Public ReadOnly Property basman_nlColumn() As Global.System.Data.DataColumn Get Return Me.columnbasman_nl End Get End Property _ Public ReadOnly Property veoant_beznrColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_beznr End Get End Property _ Public ReadOnly Property veoant_lfdnrColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_lfdnr End Get End Property _ Public ReadOnly Property veoant_statColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_stat End Get End Property _ Public ReadOnly Property veoant_arbnrColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_arbnr End Get End Property _ Public ReadOnly Property veoant_mrnColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_mrn End Get End Property _ Public ReadOnly Property veoant_abgdstColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_abgdst End Get End Property _ Public ReadOnly Property veoant_bedstColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_bedst End Get End Property _ Public ReadOnly Property veoant_wgdatColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_wgdat End Get End Property _ Public ReadOnly Property veoant_anzposColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_anzpos End Get End Property _ Public ReadOnly Property veoant_andatColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_andat End Get End Property _ Public ReadOnly Property veoant_korantColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_korant End Get End Property _ Public ReadOnly Property veoant_vrbdatColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_vrbdat End Get End Property _ Public ReadOnly Property veoant_sbColumn() As Global.System.Data.DataColumn Get Return Me.columnveoant_sb End Get End Property _ Public ReadOnly Property veopos_posnrColumn() As Global.System.Data.DataColumn Get Return Me.columnveopos_posnr End Get End Property _ Public ReadOnly Property veopos_statColumn() As Global.System.Data.DataColumn Get Return Me.columnveopos_stat End Get End Property _ Public ReadOnly Property veopos_wbsch1Column() As Global.System.Data.DataColumn Get Return Me.columnveopos_wbsch1 End Get End Property _ Public ReadOnly Property veopos_rohmasColumn() As Global.System.Data.DataColumn Get Return Me.columnveopos_rohmas End Get End Property _ Public ReadOnly Property veoerz_sicbscColumn() As Global.System.Data.DataColumn Get Return Me.columnveoerz_sicbsc End Get End Property _ Public ReadOnly Property veoerz_basbtgColumn() As Global.System.Data.DataColumn Get Return Me.columnveoerz_basbtg End Get End Property _ Public ReadOnly Property veoerz_sicbtgColumn() As Global.System.Data.DataColumn Get Return Me.columnveoerz_sicbtg End Get End Property _ Public ReadOnly Property vegdat_erldatColumn() As Global.System.Data.DataColumn Get Return Me.columnvegdat_erldat End Get End Property _ Public ReadOnly Property HistoryColumn() As Global.System.Data.DataColumn Get Return Me.columnHistory 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 spSELECT_tblZabis_Atlas_NCTSRow Get Return CType(Me.Rows(index),spSELECT_tblZabis_Atlas_NCTSRow) End Get End Property _ Public Event spSELECT_tblZabis_Atlas_NCTSRowChanging As spSELECT_tblZabis_Atlas_NCTSRowChangeEventHandler _ Public Event spSELECT_tblZabis_Atlas_NCTSRowChanged As spSELECT_tblZabis_Atlas_NCTSRowChangeEventHandler _ Public Event spSELECT_tblZabis_Atlas_NCTSRowDeleting As spSELECT_tblZabis_Atlas_NCTSRowChangeEventHandler _ Public Event spSELECT_tblZabis_Atlas_NCTSRowDeleted As spSELECT_tblZabis_Atlas_NCTSRowChangeEventHandler _ Public Overloads Sub AddspSELECT_tblZabis_Atlas_NCTSRow(ByVal row As spSELECT_tblZabis_Atlas_NCTSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECT_tblZabis_Atlas_NCTSRow( _ ByVal basman_nr As String, _ ByVal basman_nl As String, _ ByVal veoant_beznr As String, _ ByVal veoant_lfdnr As Short, _ ByVal veoant_stat As Short, _ ByVal veoant_arbnr As String, _ ByVal veoant_mrn As String, _ ByVal veoant_abgdst As String, _ ByVal veoant_bedst As String, _ ByVal veoant_wgdat As Date, _ ByVal veoant_anzpos As Short, _ ByVal veoant_andat As Date, _ ByVal veoant_korant As Short, _ ByVal veoant_vrbdat As Date, _ ByVal veoant_sb As String, _ ByVal veopos_posnr As Short, _ ByVal veopos_stat As Short, _ ByVal veopos_wbsch1 As String, _ ByVal veopos_rohmas As Decimal, _ ByVal veoerz_sicbsc As String, _ ByVal veoerz_basbtg As Decimal, _ ByVal veoerz_sicbtg As Decimal, _ ByVal vegdat_erldat As Date, _ ByVal History As Boolean) As spSELECT_tblZabis_Atlas_NCTSRow Dim rowspSELECT_tblZabis_Atlas_NCTSRow As spSELECT_tblZabis_Atlas_NCTSRow = CType(Me.NewRow,spSELECT_tblZabis_Atlas_NCTSRow) Dim columnValuesArray() As Object = New Object() {Nothing, basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veoant_stat, veoant_arbnr, veoant_mrn, veoant_abgdst, veoant_bedst, veoant_wgdat, veoant_anzpos, veoant_andat, veoant_korant, veoant_vrbdat, veoant_sb, veopos_posnr, veopos_stat, veopos_wbsch1, veopos_rohmas, veoerz_sicbsc, veoerz_basbtg, veoerz_sicbtg, vegdat_erldat, History} rowspSELECT_tblZabis_Atlas_NCTSRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECT_tblZabis_Atlas_NCTSRow) Return rowspSELECT_tblZabis_Atlas_NCTSRow End Function _ Public Function FindByID_NCTS(ByVal ID_NCTS As Integer) As spSELECT_tblZabis_Atlas_NCTSRow Return CType(Me.Rows.Find(New Object() {ID_NCTS}),spSELECT_tblZabis_Atlas_NCTSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECT_tblZabis_Atlas_NCTSDataTable = CType(MyBase.Clone,spSELECT_tblZabis_Atlas_NCTSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECT_tblZabis_Atlas_NCTSDataTable() End Function _ Friend Sub InitVars() Me.columnID_NCTS = MyBase.Columns("ID_NCTS") Me.columnbasman_nr = MyBase.Columns("basman_nr") Me.columnbasman_nl = MyBase.Columns("basman_nl") Me.columnveoant_beznr = MyBase.Columns("veoant_beznr") Me.columnveoant_lfdnr = MyBase.Columns("veoant_lfdnr") Me.columnveoant_stat = MyBase.Columns("veoant_stat") Me.columnveoant_arbnr = MyBase.Columns("veoant_arbnr") Me.columnveoant_mrn = MyBase.Columns("veoant_mrn") Me.columnveoant_abgdst = MyBase.Columns("veoant_abgdst") Me.columnveoant_bedst = MyBase.Columns("veoant_bedst") Me.columnveoant_wgdat = MyBase.Columns("veoant_wgdat") Me.columnveoant_anzpos = MyBase.Columns("veoant_anzpos") Me.columnveoant_andat = MyBase.Columns("veoant_andat") Me.columnveoant_korant = MyBase.Columns("veoant_korant") Me.columnveoant_vrbdat = MyBase.Columns("veoant_vrbdat") Me.columnveoant_sb = MyBase.Columns("veoant_sb") Me.columnveopos_posnr = MyBase.Columns("veopos_posnr") Me.columnveopos_stat = MyBase.Columns("veopos_stat") Me.columnveopos_wbsch1 = MyBase.Columns("veopos_wbsch1") Me.columnveopos_rohmas = MyBase.Columns("veopos_rohmas") Me.columnveoerz_sicbsc = MyBase.Columns("veoerz_sicbsc") Me.columnveoerz_basbtg = MyBase.Columns("veoerz_basbtg") Me.columnveoerz_sicbtg = MyBase.Columns("veoerz_sicbtg") Me.columnvegdat_erldat = MyBase.Columns("vegdat_erldat") Me.columnHistory = MyBase.Columns("History") End Sub _ Private Sub InitClass() Me.columnID_NCTS = New Global.System.Data.DataColumn("ID_NCTS", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID_NCTS) Me.columnbasman_nr = New Global.System.Data.DataColumn("basman_nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbasman_nr) Me.columnbasman_nl = New Global.System.Data.DataColumn("basman_nl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbasman_nl) Me.columnveoant_beznr = New Global.System.Data.DataColumn("veoant_beznr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_beznr) Me.columnveoant_lfdnr = New Global.System.Data.DataColumn("veoant_lfdnr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_lfdnr) Me.columnveoant_stat = New Global.System.Data.DataColumn("veoant_stat", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_stat) Me.columnveoant_arbnr = New Global.System.Data.DataColumn("veoant_arbnr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_arbnr) Me.columnveoant_mrn = New Global.System.Data.DataColumn("veoant_mrn", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_mrn) Me.columnveoant_abgdst = New Global.System.Data.DataColumn("veoant_abgdst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_abgdst) Me.columnveoant_bedst = New Global.System.Data.DataColumn("veoant_bedst", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_bedst) Me.columnveoant_wgdat = New Global.System.Data.DataColumn("veoant_wgdat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_wgdat) Me.columnveoant_anzpos = New Global.System.Data.DataColumn("veoant_anzpos", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_anzpos) Me.columnveoant_andat = New Global.System.Data.DataColumn("veoant_andat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_andat) Me.columnveoant_korant = New Global.System.Data.DataColumn("veoant_korant", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_korant) Me.columnveoant_vrbdat = New Global.System.Data.DataColumn("veoant_vrbdat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_vrbdat) Me.columnveoant_sb = New Global.System.Data.DataColumn("veoant_sb", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoant_sb) Me.columnveopos_posnr = New Global.System.Data.DataColumn("veopos_posnr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveopos_posnr) Me.columnveopos_stat = New Global.System.Data.DataColumn("veopos_stat", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveopos_stat) Me.columnveopos_wbsch1 = New Global.System.Data.DataColumn("veopos_wbsch1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveopos_wbsch1) Me.columnveopos_rohmas = New Global.System.Data.DataColumn("veopos_rohmas", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveopos_rohmas) Me.columnveoerz_sicbsc = New Global.System.Data.DataColumn("veoerz_sicbsc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoerz_sicbsc) Me.columnveoerz_basbtg = New Global.System.Data.DataColumn("veoerz_basbtg", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoerz_basbtg) Me.columnveoerz_sicbtg = New Global.System.Data.DataColumn("veoerz_sicbtg", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnveoerz_sicbtg) Me.columnvegdat_erldat = New Global.System.Data.DataColumn("vegdat_erldat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvegdat_erldat) Me.columnHistory = New Global.System.Data.DataColumn("History", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHistory) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID_NCTS}, true)) Me.columnID_NCTS.AutoIncrement = true Me.columnID_NCTS.AllowDBNull = false Me.columnID_NCTS.ReadOnly = true Me.columnID_NCTS.Unique = true Me.columnbasman_nr.AllowDBNull = false Me.columnbasman_nr.MaxLength = 4 Me.columnbasman_nl.AllowDBNull = false Me.columnbasman_nl.MaxLength = 3 Me.columnveoant_beznr.AllowDBNull = false Me.columnveoant_beznr.MaxLength = 22 Me.columnveoant_lfdnr.AllowDBNull = false Me.columnveoant_stat.AllowDBNull = false Me.columnveoant_arbnr.AllowDBNull = false Me.columnveoant_arbnr.MaxLength = 18 Me.columnveoant_mrn.AllowDBNull = false Me.columnveoant_mrn.MaxLength = 18 Me.columnveoant_abgdst.AllowDBNull = false Me.columnveoant_abgdst.MaxLength = 8 Me.columnveoant_bedst.AllowDBNull = false Me.columnveoant_bedst.MaxLength = 8 Me.columnveoant_anzpos.AllowDBNull = false Me.columnveoant_korant.AllowDBNull = false Me.columnveoant_sb.AllowDBNull = false Me.columnveoant_sb.MaxLength = 8 Me.columnveopos_posnr.AllowDBNull = false Me.columnveopos_stat.AllowDBNull = false Me.columnveopos_wbsch1.AllowDBNull = false Me.columnveopos_wbsch1.MaxLength = 70 Me.columnveopos_rohmas.AllowDBNull = false Me.columnveoerz_sicbsc.AllowDBNull = false Me.columnveoerz_sicbsc.MaxLength = 35 Me.columnveoerz_basbtg.AllowDBNull = false Me.columnveoerz_sicbtg.AllowDBNull = false End Sub _ Public Function NewspSELECT_tblZabis_Atlas_NCTSRow() As spSELECT_tblZabis_Atlas_NCTSRow Return CType(Me.NewRow,spSELECT_tblZabis_Atlas_NCTSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECT_tblZabis_Atlas_NCTSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECT_tblZabis_Atlas_NCTSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECT_tblZabis_Atlas_NCTSRowChangedEvent) Is Nothing) Then RaiseEvent spSELECT_tblZabis_Atlas_NCTSRowChanged(Me, New spSELECT_tblZabis_Atlas_NCTSRowChangeEvent(CType(e.Row,spSELECT_tblZabis_Atlas_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECT_tblZabis_Atlas_NCTSRowChangingEvent) Is Nothing) Then RaiseEvent spSELECT_tblZabis_Atlas_NCTSRowChanging(Me, New spSELECT_tblZabis_Atlas_NCTSRowChangeEvent(CType(e.Row,spSELECT_tblZabis_Atlas_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECT_tblZabis_Atlas_NCTSRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECT_tblZabis_Atlas_NCTSRowDeleted(Me, New spSELECT_tblZabis_Atlas_NCTSRowChangeEvent(CType(e.Row,spSELECT_tblZabis_Atlas_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECT_tblZabis_Atlas_NCTSRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECT_tblZabis_Atlas_NCTSRowDeleting(Me, New spSELECT_tblZabis_Atlas_NCTSRowChangeEvent(CType(e.Row,spSELECT_tblZabis_Atlas_NCTSRow), e.Action)) End If End Sub _ Public Sub RemovespSELECT_tblZabis_Atlas_NCTSRow(ByVal row As spSELECT_tblZabis_Atlas_NCTSRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECT_tblZabis_Atlas_NCTSDataTable" 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 spSELECTAufschubdatenDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTAufschubdatenRow) Private columnAufschubkontoNr As Global.System.Data.DataColumn Private columnFälligkeit As Global.System.Data.DataColumn Private columnVorbuchNr As Global.System.Data.DataColumn Private columnBuchungsdatum As Global.System.Data.DataColumn Private columnAbfertigungsort As Global.System.Data.DataColumn Private columnWährungsKz As Global.System.Data.DataColumn Private columnBetrag As Global.System.Data.DataColumn Private columnFakturiert As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTAufschubdaten" 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 AufschubkontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkontoNr End Get End Property _ Public ReadOnly Property FälligkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnFälligkeit End Get End Property _ Public ReadOnly Property VorbuchNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVorbuchNr End Get End Property _ Public ReadOnly Property BuchungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsdatum End Get End Property _ Public ReadOnly Property AbfertigungsortColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsort End Get End Property _ Public ReadOnly Property WährungsKzColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungsKz End Get End Property _ Public ReadOnly Property BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag End Get End Property _ Public ReadOnly Property FakturiertColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturiert 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 spSELECTAufschubdatenRow Get Return CType(Me.Rows(index),spSELECTAufschubdatenRow) End Get End Property _ Public Event spSELECTAufschubdatenRowChanging As spSELECTAufschubdatenRowChangeEventHandler _ Public Event spSELECTAufschubdatenRowChanged As spSELECTAufschubdatenRowChangeEventHandler _ Public Event spSELECTAufschubdatenRowDeleting As spSELECTAufschubdatenRowChangeEventHandler _ Public Event spSELECTAufschubdatenRowDeleted As spSELECTAufschubdatenRowChangeEventHandler _ Public Overloads Sub AddspSELECTAufschubdatenRow(ByVal row As spSELECTAufschubdatenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTAufschubdatenRow(ByVal AufschubkontoNr As String, ByVal Fälligkeit As Date, ByVal VorbuchNr As String, ByVal Buchungsdatum As Date, ByVal Abfertigungsort As String, ByVal WährungsKz As String, ByVal Betrag As Decimal, ByVal Fakturiert As Decimal) As spSELECTAufschubdatenRow Dim rowspSELECTAufschubdatenRow As spSELECTAufschubdatenRow = CType(Me.NewRow,spSELECTAufschubdatenRow) Dim columnValuesArray() As Object = New Object() {AufschubkontoNr, Fälligkeit, VorbuchNr, Buchungsdatum, Abfertigungsort, WährungsKz, Betrag, Fakturiert} rowspSELECTAufschubdatenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTAufschubdatenRow) Return rowspSELECTAufschubdatenRow End Function _ Public Function FindByAufschubkontoNrFälligkeitVorbuchNr(ByVal AufschubkontoNr As String, ByVal Fälligkeit As Date, ByVal VorbuchNr As String) As spSELECTAufschubdatenRow Return CType(Me.Rows.Find(New Object() {AufschubkontoNr, Fälligkeit, VorbuchNr}),spSELECTAufschubdatenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTAufschubdatenDataTable = CType(MyBase.Clone,spSELECTAufschubdatenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTAufschubdatenDataTable() End Function _ Friend Sub InitVars() Me.columnAufschubkontoNr = MyBase.Columns("AufschubkontoNr") Me.columnFälligkeit = MyBase.Columns("Fälligkeit") Me.columnVorbuchNr = MyBase.Columns("VorbuchNr") Me.columnBuchungsdatum = MyBase.Columns("Buchungsdatum") Me.columnAbfertigungsort = MyBase.Columns("Abfertigungsort") Me.columnWährungsKz = MyBase.Columns("WährungsKz") Me.columnBetrag = MyBase.Columns("Betrag") Me.columnFakturiert = MyBase.Columns("Fakturiert") End Sub _ Private Sub InitClass() Me.columnAufschubkontoNr = New Global.System.Data.DataColumn("AufschubkontoNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkontoNr) Me.columnFälligkeit = New Global.System.Data.DataColumn("Fälligkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFälligkeit) Me.columnVorbuchNr = New Global.System.Data.DataColumn("VorbuchNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorbuchNr) Me.columnBuchungsdatum = New Global.System.Data.DataColumn("Buchungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsdatum) Me.columnAbfertigungsort = New Global.System.Data.DataColumn("Abfertigungsort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsort) Me.columnWährungsKz = New Global.System.Data.DataColumn("WährungsKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungsKz) Me.columnBetrag = New Global.System.Data.DataColumn("Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag) Me.columnFakturiert = New Global.System.Data.DataColumn("Fakturiert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturiert) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAufschubkontoNr, Me.columnFälligkeit, Me.columnVorbuchNr}, true)) Me.columnAufschubkontoNr.AllowDBNull = false Me.columnAufschubkontoNr.MaxLength = 20 Me.columnFälligkeit.AllowDBNull = false Me.columnVorbuchNr.AllowDBNull = false Me.columnVorbuchNr.MaxLength = 24 Me.columnAbfertigungsort.MaxLength = 27 Me.columnWährungsKz.MaxLength = 1 Me.columnBetrag.AllowDBNull = false End Sub _ Public Function NewspSELECTAufschubdatenRow() As spSELECTAufschubdatenRow Return CType(Me.NewRow,spSELECTAufschubdatenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTAufschubdatenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTAufschubdatenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTAufschubdatenRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTAufschubdatenRowChanged(Me, New spSELECTAufschubdatenRowChangeEvent(CType(e.Row,spSELECTAufschubdatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTAufschubdatenRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTAufschubdatenRowChanging(Me, New spSELECTAufschubdatenRowChangeEvent(CType(e.Row,spSELECTAufschubdatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTAufschubdatenRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTAufschubdatenRowDeleted(Me, New spSELECTAufschubdatenRowChangeEvent(CType(e.Row,spSELECTAufschubdatenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTAufschubdatenRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTAufschubdatenRowDeleting(Me, New spSELECTAufschubdatenRowChangeEvent(CType(e.Row,spSELECTAufschubdatenRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTAufschubdatenRow(ByVal row As spSELECTAufschubdatenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTAufschubdatenDataTable" 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 spSELECTRechnungsausgangDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTRechnungsausgangRow) Private columnRK_ID As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnRechnungsNr As Global.System.Data.DataColumn Private columnRechnungsDatum As Global.System.Data.DataColumn Private columnSammelrechnung As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnBelegartenKz As Global.System.Data.DataColumn Private columnBelegartenBez As Global.System.Data.DataColumn Private columnVorzeichen As Global.System.Data.DataColumn Private columnBelegNr As Global.System.Data.DataColumn Private columnAbsenderLandKz As Global.System.Data.DataColumn Private columnAbsenderKundenNr As Global.System.Data.DataColumn Private columnAbsenderName_1 As Global.System.Data.DataColumn Private columnAbsenderName_2 As Global.System.Data.DataColumn Private columnAbsenderStraße As Global.System.Data.DataColumn Private columnAbsenderOrt As Global.System.Data.DataColumn Private columnAbsenderOffertenNr As Global.System.Data.DataColumn Private columnEmpfängerLandKz As Global.System.Data.DataColumn Private columnEmpfängerKundenNr As Global.System.Data.DataColumn Private columnEmpfängerName_1 As Global.System.Data.DataColumn Private columnEmpfängerName_2 As Global.System.Data.DataColumn Private columnEmpfängerStraße As Global.System.Data.DataColumn Private columnEmpfängerOrt As Global.System.Data.DataColumn Private columnEmpfängerOffertenNr As Global.System.Data.DataColumn Private columnVermittlerLandKz As Global.System.Data.DataColumn Private columnVermittlerKundenNr As Global.System.Data.DataColumn Private columnVermittlerName_1 As Global.System.Data.DataColumn Private columnVermittlerName_2 As Global.System.Data.DataColumn Private columnVermittlerStraße As Global.System.Data.DataColumn Private columnVermittlerOrt As Global.System.Data.DataColumn Private columnVermittlerOffertenNr As Global.System.Data.DataColumn Private columnRechnung_an As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnRechnungsLandKz As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnRechnungsName_1 As Global.System.Data.DataColumn Private columnRechnungsName_2 As Global.System.Data.DataColumn Private columnRechnungsStraße As Global.System.Data.DataColumn Private columnRechnungsOrt As Global.System.Data.DataColumn Private columnRechnungsUstIdKz As Global.System.Data.DataColumn Private columnRechnungsUstIdNr As Global.System.Data.DataColumn Private columnRechnungsUstIdGeprüft As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private _columnKunden_SVS As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnLKW_Kennzeichen As Global.System.Data.DataColumn Private columnWährungsNr As Global.System.Data.DataColumn Private columnWert As Global.System.Data.DataColumn Private columnUmrechnungskurs As Global.System.Data.DataColumn Private columnPackstücke_und_Warenbezeichnung As Global.System.Data.DataColumn Private columnVermerk As Global.System.Data.DataColumn Private columnAnlage_1 As Global.System.Data.DataColumn Private columnAnlage_2 As Global.System.Data.DataColumn Private columnAnlage_3 As Global.System.Data.DataColumn Private columnAnlage_4 As Global.System.Data.DataColumn Private columnAnlage_5 As Global.System.Data.DataColumn Private columnAnlage_6 As Global.System.Data.DataColumn Private columnOffertenNr As Global.System.Data.DataColumn Private _columnVorlageprovision__ As Global.System.Data.DataColumn Private _columnKreditaufwendungen__ As Global.System.Data.DataColumn Private columnBesonderheiten As Global.System.Data.DataColumn Private columnVorkasse As Global.System.Data.DataColumn Private columnText As Global.System.Data.DataColumn Private columnSteuerpflichtigerGesamtbetrag As Global.System.Data.DataColumn Private columnSteuerfreierGesamtbetrag As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnDruckDatumZeit As Global.System.Data.DataColumn Private columnAbfertigungskosten As Global.System.Data.DataColumn Private columnVorkosten As Global.System.Data.DataColumn Private columnErlös As Global.System.Data.DataColumn Private columnBuchungsjahr As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnTrdin As Global.System.Data.DataColumn Private columnKartenNr As Global.System.Data.DataColumn Private columnRefFilialenNr As Global.System.Data.DataColumn Private columnRefAbfertigungsNr As Global.System.Data.DataColumn Private columnRefUnterNr As Global.System.Data.DataColumn Private columnNotiz As Global.System.Data.DataColumn Private columnZucker_MRN_Nr As Global.System.Data.DataColumn Private columnZucker_MRN_Datum As Global.System.Data.DataColumn Private columnZucker_Aufschub As Global.System.Data.DataColumn Private columnReErfZeitstempel As Global.System.Data.DataColumn Private columnNettozahlungsziel As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnSpeditionsbuchUnterNr As Global.System.Data.DataColumn Private columnErfassungsNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTRechnungsausgang" 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 RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property RechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsNr End Get End Property _ Public ReadOnly Property RechnungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsDatum End Get End Property _ Public ReadOnly Property SammelrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnung End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property BelegartenKzColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenKz End Get End Property _ Public ReadOnly Property BelegartenBezColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenBez End Get End Property _ Public ReadOnly Property VorzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorzeichen End Get End Property _ Public ReadOnly Property BelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegNr End Get End Property _ Public ReadOnly Property AbsenderLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderLandKz End Get End Property _ Public ReadOnly Property AbsenderKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderKundenNr End Get End Property _ Public ReadOnly Property AbsenderName_1Column() As Global.System.Data.DataColumn Get Return Me.columnAbsenderName_1 End Get End Property _ Public ReadOnly Property AbsenderName_2Column() As Global.System.Data.DataColumn Get Return Me.columnAbsenderName_2 End Get End Property _ Public ReadOnly Property AbsenderStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderStraße End Get End Property _ Public ReadOnly Property AbsenderOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOrt End Get End Property _ Public ReadOnly Property AbsenderOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOffertenNr End Get End Property _ Public ReadOnly Property EmpfängerLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerLandKz End Get End Property _ Public ReadOnly Property EmpfängerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerKundenNr End Get End Property _ Public ReadOnly Property EmpfängerName_1Column() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerName_1 End Get End Property _ Public ReadOnly Property EmpfängerName_2Column() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerName_2 End Get End Property _ Public ReadOnly Property EmpfängerStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerStraße End Get End Property _ Public ReadOnly Property EmpfängerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOrt End Get End Property _ Public ReadOnly Property EmpfängerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOffertenNr End Get End Property _ Public ReadOnly Property VermittlerLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerLandKz End Get End Property _ Public ReadOnly Property VermittlerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerKundenNr End Get End Property _ Public ReadOnly Property VermittlerName_1Column() As Global.System.Data.DataColumn Get Return Me.columnVermittlerName_1 End Get End Property _ Public ReadOnly Property VermittlerName_2Column() As Global.System.Data.DataColumn Get Return Me.columnVermittlerName_2 End Get End Property _ Public ReadOnly Property VermittlerStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerStraße End Get End Property _ Public ReadOnly Property VermittlerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOrt End Get End Property _ Public ReadOnly Property VermittlerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOffertenNr End Get End Property _ Public ReadOnly Property Rechnung_anColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnung_an End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property RechnungsLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsLandKz End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property RechnungsName_1Column() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_1 End Get End Property _ Public ReadOnly Property RechnungsName_2Column() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_2 End Get End Property _ Public ReadOnly Property RechnungsStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsStraße End Get End Property _ Public ReadOnly Property RechnungsOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsOrt End Get End Property _ Public ReadOnly Property RechnungsUstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdKz End Get End Property _ Public ReadOnly Property RechnungsUstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdNr End Get End Property _ Public ReadOnly Property RechnungsUstIdGeprüftColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdGeprüft End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property _Kunden_SVSColumn() As Global.System.Data.DataColumn Get Return Me._columnKunden_SVS End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property LKW_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnLKW_Kennzeichen End Get End Property _ Public ReadOnly Property WährungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungsNr End Get End Property _ Public ReadOnly Property WertColumn() As Global.System.Data.DataColumn Get Return Me.columnWert End Get End Property _ Public ReadOnly Property UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUmrechnungskurs End Get End Property _ Public ReadOnly Property Packstücke_und_WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnPackstücke_und_Warenbezeichnung End Get End Property _ Public ReadOnly Property VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnVermerk End Get End Property _ Public ReadOnly Property Anlage_1Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_1 End Get End Property _ Public ReadOnly Property Anlage_2Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_2 End Get End Property _ Public ReadOnly Property Anlage_3Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_3 End Get End Property _ Public ReadOnly Property Anlage_4Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_4 End Get End Property _ Public ReadOnly Property Anlage_5Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_5 End Get End Property _ Public ReadOnly Property Anlage_6Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_6 End Get End Property _ Public ReadOnly Property OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property _Vorlageprovision__Column() As Global.System.Data.DataColumn Get Return Me._columnVorlageprovision__ End Get End Property _ Public ReadOnly Property _Kreditaufwendungen__Column() As Global.System.Data.DataColumn Get Return Me._columnKreditaufwendungen__ End Get End Property _ Public ReadOnly Property BesonderheitenColumn() As Global.System.Data.DataColumn Get Return Me.columnBesonderheiten End Get End Property _ Public ReadOnly Property VorkasseColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkasse End Get End Property _ Public ReadOnly Property TextColumn() As Global.System.Data.DataColumn Get Return Me.columnText End Get End Property _ Public ReadOnly Property SteuerpflichtigerGesamtbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerGesamtbetrag End Get End Property _ Public ReadOnly Property SteuerfreierGesamtbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierGesamtbetrag End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property DruckDatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnDruckDatumZeit End Get End Property _ Public ReadOnly Property AbfertigungskostenColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungskosten End Get End Property _ Public ReadOnly Property VorkostenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkosten End Get End Property _ Public ReadOnly Property ErlösColumn() As Global.System.Data.DataColumn Get Return Me.columnErlös End Get End Property _ Public ReadOnly Property BuchungsjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsjahr End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property TrdinColumn() As Global.System.Data.DataColumn Get Return Me.columnTrdin End Get End Property _ Public ReadOnly Property KartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenNr End Get End Property _ Public ReadOnly Property RefFilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefFilialenNr End Get End Property _ Public ReadOnly Property RefAbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefAbfertigungsNr End Get End Property _ Public ReadOnly Property RefUnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefUnterNr End Get End Property _ Public ReadOnly Property NotizColumn() As Global.System.Data.DataColumn Get Return Me.columnNotiz End Get End Property _ Public ReadOnly Property Zucker_MRN_NrColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Nr End Get End Property _ Public ReadOnly Property Zucker_MRN_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Datum End Get End Property _ Public ReadOnly Property Zucker_AufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_Aufschub End Get End Property _ Public ReadOnly Property ReErfZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnReErfZeitstempel End Get End Property _ Public ReadOnly Property NettozahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnNettozahlungsziel End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property SpeditionsbuchUnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuchUnterNr End Get End Property _ Public ReadOnly Property ErfassungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnErfassungsNr 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 spSELECTRechnungsausgangRow Get Return CType(Me.Rows(index),spSELECTRechnungsausgangRow) End Get End Property _ Public Event spSELECTRechnungsausgangRowChanging As spSELECTRechnungsausgangRowChangeEventHandler _ Public Event spSELECTRechnungsausgangRowChanged As spSELECTRechnungsausgangRowChangeEventHandler _ Public Event spSELECTRechnungsausgangRowDeleting As spSELECTRechnungsausgangRowChangeEventHandler _ Public Event spSELECTRechnungsausgangRowDeleted As spSELECTRechnungsausgangRowChangeEventHandler _ Public Overloads Sub AddspSELECTRechnungsausgangRow(ByVal row As spSELECTRechnungsausgangRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTRechnungsausgangRow( _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal RechnungsNr As Integer, _ ByVal RechnungsDatum As Date, _ ByVal Sammelrechnung As Short, _ ByVal BelegartenNr As Short, _ ByVal BelegartenKz As String, _ ByVal BelegartenBez As String, _ ByVal Vorzeichen As String, _ ByVal BelegNr As String, _ ByVal AbsenderLandKz As String, _ ByVal AbsenderKundenNr As Integer, _ ByVal AbsenderName_1 As String, _ ByVal AbsenderName_2 As String, _ ByVal AbsenderStraße As String, _ ByVal AbsenderOrt As String, _ ByVal AbsenderOffertenNr As Short, _ ByVal EmpfängerLandKz As String, _ ByVal EmpfängerKundenNr As Integer, _ ByVal EmpfängerName_1 As String, _ ByVal EmpfängerName_2 As String, _ ByVal EmpfängerStraße As String, _ ByVal EmpfängerOrt As String, _ ByVal EmpfängerOffertenNr As Short, _ ByVal VermittlerLandKz As String, _ ByVal VermittlerKundenNr As Integer, _ ByVal VermittlerName_1 As String, _ ByVal VermittlerName_2 As String, _ ByVal VermittlerStraße As String, _ ByVal VermittlerOrt As String, _ ByVal VermittlerOffertenNr As Short, _ ByVal Rechnung_an As Short, _ ByVal KundenNrZentrale As Integer, _ ByVal RechnungsLandKz As String, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsName_1 As String, _ ByVal RechnungsName_2 As String, _ ByVal RechnungsStraße As String, _ ByVal RechnungsOrt As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal RechnungsUstIdGeprüft As Date, _ ByVal Lastschrift As Boolean, _ ByVal _Kunden_SVS As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal _Steuersatz__ As Single, _ ByVal LKW_Kennzeichen As String, _ ByVal WährungsNr As Short, _ ByVal Wert As Decimal, _ ByVal Umrechnungskurs As Double, _ ByVal Packstücke_und_Warenbezeichnung As String, _ ByVal Vermerk As String, _ ByVal Anlage_1 As String, _ ByVal Anlage_2 As String, _ ByVal Anlage_3 As String, _ ByVal Anlage_4 As String, _ ByVal Anlage_5 As String, _ ByVal Anlage_6 As String, _ ByVal OffertenNr As Short, _ ByVal _Vorlageprovision__ As Single, _ ByVal _Kreditaufwendungen__ As Single, _ ByVal Besonderheiten As String, _ ByVal Vorkasse As Boolean, _ ByVal Text As String, _ ByVal SteuerpflichtigerGesamtbetrag As Decimal, _ ByVal SteuerfreierGesamtbetrag As Decimal, _ ByVal Status As Short, _ ByVal DruckDatumZeit As Date, _ ByVal Abfertigungskosten As Decimal, _ ByVal Vorkosten As Decimal, _ ByVal Erlös As Decimal, _ ByVal Buchungsjahr As Short, _ ByVal Währungscode As String, _ ByVal Sachbearbeiter As String, _ ByVal Trdin As Boolean, _ ByVal KartenNr As String, _ ByVal RefFilialenNr As Short, _ ByVal RefAbfertigungsNr As Integer, _ ByVal RefUnterNr As Short, _ ByVal Notiz As String, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Date, _ ByVal Zucker_Aufschub As String, _ ByVal ReErfZeitstempel As Date, _ ByVal Nettozahlungsziel As Short, _ ByVal Firma_ID As Short, _ ByVal SpeditionsbuchUnterNr As Short, _ ByVal ErfassungsNr As String) As spSELECTRechnungsausgangRow Dim rowspSELECTRechnungsausgangRow As spSELECTRechnungsausgangRow = CType(Me.NewRow,spSELECTRechnungsausgangRow) Dim columnValuesArray() As Object = New Object() {Nothing, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, RechnungsNr, RechnungsDatum, Sammelrechnung, BelegartenNr, BelegartenKz, BelegartenBez, Vorzeichen, BelegNr, AbsenderLandKz, AbsenderKundenNr, AbsenderName_1, AbsenderName_2, AbsenderStraße, AbsenderOrt, AbsenderOffertenNr, EmpfängerLandKz, EmpfängerKundenNr, EmpfängerName_1, EmpfängerName_2, EmpfängerStraße, EmpfängerOrt, EmpfängerOffertenNr, VermittlerLandKz, VermittlerKundenNr, VermittlerName_1, VermittlerName_2, VermittlerStraße, VermittlerOrt, VermittlerOffertenNr, Rechnung_an, KundenNrZentrale, RechnungsLandKz, RechnungsKundenNr, RechnungsName_1, RechnungsName_2, RechnungsStraße, RechnungsOrt, RechnungsUstIdKz, RechnungsUstIdNr, RechnungsUstIdGeprüft, Lastschrift, _Kunden_SVS, Steuerschlüssel, _Steuersatz__, LKW_Kennzeichen, WährungsNr, Wert, Umrechnungskurs, Packstücke_und_Warenbezeichnung, Vermerk, Anlage_1, Anlage_2, Anlage_3, Anlage_4, Anlage_5, Anlage_6, OffertenNr, _Vorlageprovision__, _Kreditaufwendungen__, Besonderheiten, Vorkasse, Text, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, Status, DruckDatumZeit, Abfertigungskosten, Vorkosten, Erlös, Buchungsjahr, Währungscode, Sachbearbeiter, Trdin, KartenNr, RefFilialenNr, RefAbfertigungsNr, RefUnterNr, Notiz, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, ReErfZeitstempel, Nettozahlungsziel, Firma_ID, SpeditionsbuchUnterNr, ErfassungsNr} rowspSELECTRechnungsausgangRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTRechnungsausgangRow) Return rowspSELECTRechnungsausgangRow End Function _ Public Function FindByRK_ID(ByVal RK_ID As Integer) As spSELECTRechnungsausgangRow Return CType(Me.Rows.Find(New Object() {RK_ID}),spSELECTRechnungsausgangRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTRechnungsausgangDataTable = CType(MyBase.Clone,spSELECTRechnungsausgangDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTRechnungsausgangDataTable() End Function _ Friend Sub InitVars() Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnRechnungsNr = MyBase.Columns("RechnungsNr") Me.columnRechnungsDatum = MyBase.Columns("RechnungsDatum") Me.columnSammelrechnung = MyBase.Columns("Sammelrechnung") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnBelegartenKz = MyBase.Columns("BelegartenKz") Me.columnBelegartenBez = MyBase.Columns("BelegartenBez") Me.columnVorzeichen = MyBase.Columns("Vorzeichen") Me.columnBelegNr = MyBase.Columns("BelegNr") Me.columnAbsenderLandKz = MyBase.Columns("AbsenderLandKz") Me.columnAbsenderKundenNr = MyBase.Columns("AbsenderKundenNr") Me.columnAbsenderName_1 = MyBase.Columns("AbsenderName 1") Me.columnAbsenderName_2 = MyBase.Columns("AbsenderName 2") Me.columnAbsenderStraße = MyBase.Columns("AbsenderStraße") Me.columnAbsenderOrt = MyBase.Columns("AbsenderOrt") Me.columnAbsenderOffertenNr = MyBase.Columns("AbsenderOffertenNr") Me.columnEmpfängerLandKz = MyBase.Columns("EmpfängerLandKz") Me.columnEmpfängerKundenNr = MyBase.Columns("EmpfängerKundenNr") Me.columnEmpfängerName_1 = MyBase.Columns("EmpfängerName 1") Me.columnEmpfängerName_2 = MyBase.Columns("EmpfängerName 2") Me.columnEmpfängerStraße = MyBase.Columns("EmpfängerStraße") Me.columnEmpfängerOrt = MyBase.Columns("EmpfängerOrt") Me.columnEmpfängerOffertenNr = MyBase.Columns("EmpfängerOffertenNr") Me.columnVermittlerLandKz = MyBase.Columns("VermittlerLandKz") Me.columnVermittlerKundenNr = MyBase.Columns("VermittlerKundenNr") Me.columnVermittlerName_1 = MyBase.Columns("VermittlerName 1") Me.columnVermittlerName_2 = MyBase.Columns("VermittlerName 2") Me.columnVermittlerStraße = MyBase.Columns("VermittlerStraße") Me.columnVermittlerOrt = MyBase.Columns("VermittlerOrt") Me.columnVermittlerOffertenNr = MyBase.Columns("VermittlerOffertenNr") Me.columnRechnung_an = MyBase.Columns("Rechnung an") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnRechnungsLandKz = MyBase.Columns("RechnungsLandKz") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnRechnungsName_1 = MyBase.Columns("RechnungsName 1") Me.columnRechnungsName_2 = MyBase.Columns("RechnungsName 2") Me.columnRechnungsStraße = MyBase.Columns("RechnungsStraße") Me.columnRechnungsOrt = MyBase.Columns("RechnungsOrt") Me.columnRechnungsUstIdKz = MyBase.Columns("RechnungsUstIdKz") Me.columnRechnungsUstIdNr = MyBase.Columns("RechnungsUstIdNr") Me.columnRechnungsUstIdGeprüft = MyBase.Columns("RechnungsUstIdGeprüft") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me._columnKunden_SVS = MyBase.Columns("Kunden-SVS") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnLKW_Kennzeichen = MyBase.Columns("LKW Kennzeichen") Me.columnWährungsNr = MyBase.Columns("WährungsNr") Me.columnWert = MyBase.Columns("Wert") Me.columnUmrechnungskurs = MyBase.Columns("Umrechnungskurs") Me.columnPackstücke_und_Warenbezeichnung = MyBase.Columns("Packstücke und Warenbezeichnung") Me.columnVermerk = MyBase.Columns("Vermerk") Me.columnAnlage_1 = MyBase.Columns("Anlage 1") Me.columnAnlage_2 = MyBase.Columns("Anlage 2") Me.columnAnlage_3 = MyBase.Columns("Anlage 3") Me.columnAnlage_4 = MyBase.Columns("Anlage 4") Me.columnAnlage_5 = MyBase.Columns("Anlage 5") Me.columnAnlage_6 = MyBase.Columns("Anlage 6") Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me._columnVorlageprovision__ = MyBase.Columns("Vorlageprovision %") Me._columnKreditaufwendungen__ = MyBase.Columns("Kreditaufwendungen %") Me.columnBesonderheiten = MyBase.Columns("Besonderheiten") Me.columnVorkasse = MyBase.Columns("Vorkasse") Me.columnText = MyBase.Columns("Text") Me.columnSteuerpflichtigerGesamtbetrag = MyBase.Columns("SteuerpflichtigerGesamtbetrag") Me.columnSteuerfreierGesamtbetrag = MyBase.Columns("SteuerfreierGesamtbetrag") Me.columnStatus = MyBase.Columns("Status") Me.columnDruckDatumZeit = MyBase.Columns("DruckDatumZeit") Me.columnAbfertigungskosten = MyBase.Columns("Abfertigungskosten") Me.columnVorkosten = MyBase.Columns("Vorkosten") Me.columnErlös = MyBase.Columns("Erlös") Me.columnBuchungsjahr = MyBase.Columns("Buchungsjahr") Me.columnWährungscode = MyBase.Columns("Währungscode") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnTrdin = MyBase.Columns("Trdin") Me.columnKartenNr = MyBase.Columns("KartenNr") Me.columnRefFilialenNr = MyBase.Columns("RefFilialenNr") Me.columnRefAbfertigungsNr = MyBase.Columns("RefAbfertigungsNr") Me.columnRefUnterNr = MyBase.Columns("RefUnterNr") Me.columnNotiz = MyBase.Columns("Notiz") Me.columnZucker_MRN_Nr = MyBase.Columns("Zucker_MRN_Nr") Me.columnZucker_MRN_Datum = MyBase.Columns("Zucker_MRN_Datum") Me.columnZucker_Aufschub = MyBase.Columns("Zucker_Aufschub") Me.columnReErfZeitstempel = MyBase.Columns("ReErfZeitstempel") Me.columnNettozahlungsziel = MyBase.Columns("Nettozahlungsziel") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnSpeditionsbuchUnterNr = MyBase.Columns("SpeditionsbuchUnterNr") Me.columnErfassungsNr = MyBase.Columns("ErfassungsNr") End Sub _ Private Sub InitClass() Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnRechnungsNr = New Global.System.Data.DataColumn("RechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsNr) Me.columnRechnungsDatum = New Global.System.Data.DataColumn("RechnungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsDatum) Me.columnSammelrechnung = New Global.System.Data.DataColumn("Sammelrechnung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnung) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnBelegartenKz = New Global.System.Data.DataColumn("BelegartenKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenKz) Me.columnBelegartenBez = New Global.System.Data.DataColumn("BelegartenBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenBez) Me.columnVorzeichen = New Global.System.Data.DataColumn("Vorzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorzeichen) Me.columnBelegNr = New Global.System.Data.DataColumn("BelegNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegNr) Me.columnAbsenderLandKz = New Global.System.Data.DataColumn("AbsenderLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderLandKz) Me.columnAbsenderKundenNr = New Global.System.Data.DataColumn("AbsenderKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderKundenNr) Me.columnAbsenderName_1 = New Global.System.Data.DataColumn("AbsenderName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderName_1) Me.columnAbsenderName_2 = New Global.System.Data.DataColumn("AbsenderName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderName_2) Me.columnAbsenderStraße = New Global.System.Data.DataColumn("AbsenderStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderStraße) Me.columnAbsenderOrt = New Global.System.Data.DataColumn("AbsenderOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOrt) Me.columnAbsenderOffertenNr = New Global.System.Data.DataColumn("AbsenderOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOffertenNr) Me.columnEmpfängerLandKz = New Global.System.Data.DataColumn("EmpfängerLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerLandKz) Me.columnEmpfängerKundenNr = New Global.System.Data.DataColumn("EmpfängerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerKundenNr) Me.columnEmpfängerName_1 = New Global.System.Data.DataColumn("EmpfängerName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerName_1) Me.columnEmpfängerName_2 = New Global.System.Data.DataColumn("EmpfängerName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerName_2) Me.columnEmpfängerStraße = New Global.System.Data.DataColumn("EmpfängerStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerStraße) Me.columnEmpfängerOrt = New Global.System.Data.DataColumn("EmpfängerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOrt) Me.columnEmpfängerOffertenNr = New Global.System.Data.DataColumn("EmpfängerOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOffertenNr) Me.columnVermittlerLandKz = New Global.System.Data.DataColumn("VermittlerLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerLandKz) Me.columnVermittlerKundenNr = New Global.System.Data.DataColumn("VermittlerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerKundenNr) Me.columnVermittlerName_1 = New Global.System.Data.DataColumn("VermittlerName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerName_1) Me.columnVermittlerName_2 = New Global.System.Data.DataColumn("VermittlerName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerName_2) Me.columnVermittlerStraße = New Global.System.Data.DataColumn("VermittlerStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerStraße) Me.columnVermittlerOrt = New Global.System.Data.DataColumn("VermittlerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOrt) Me.columnVermittlerOffertenNr = New Global.System.Data.DataColumn("VermittlerOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOffertenNr) Me.columnRechnung_an = New Global.System.Data.DataColumn("Rechnung an", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnung_an) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnRechnungsLandKz = New Global.System.Data.DataColumn("RechnungsLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsLandKz) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnRechnungsName_1 = New Global.System.Data.DataColumn("RechnungsName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_1) Me.columnRechnungsName_2 = New Global.System.Data.DataColumn("RechnungsName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_2) Me.columnRechnungsStraße = New Global.System.Data.DataColumn("RechnungsStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsStraße) Me.columnRechnungsOrt = New Global.System.Data.DataColumn("RechnungsOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsOrt) Me.columnRechnungsUstIdKz = New Global.System.Data.DataColumn("RechnungsUstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdKz) Me.columnRechnungsUstIdNr = New Global.System.Data.DataColumn("RechnungsUstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdNr) Me.columnRechnungsUstIdGeprüft = New Global.System.Data.DataColumn("RechnungsUstIdGeprüft", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdGeprüft) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me._columnKunden_SVS = New Global.System.Data.DataColumn("Kunden-SVS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me._columnKunden_SVS.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnKunden_SVS") Me._columnKunden_SVS.ExtendedProperties.Add("Generator_UserColumnName", "Kunden-SVS") MyBase.Columns.Add(Me._columnKunden_SVS) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnLKW_Kennzeichen = New Global.System.Data.DataColumn("LKW Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLKW_Kennzeichen) Me.columnWährungsNr = New Global.System.Data.DataColumn("WährungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungsNr) Me.columnWert = New Global.System.Data.DataColumn("Wert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWert) Me.columnUmrechnungskurs = New Global.System.Data.DataColumn("Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmrechnungskurs) Me.columnPackstücke_und_Warenbezeichnung = New Global.System.Data.DataColumn("Packstücke und Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPackstücke_und_Warenbezeichnung) Me.columnVermerk = New Global.System.Data.DataColumn("Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermerk) Me.columnAnlage_1 = New Global.System.Data.DataColumn("Anlage 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_1) Me.columnAnlage_2 = New Global.System.Data.DataColumn("Anlage 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_2) Me.columnAnlage_3 = New Global.System.Data.DataColumn("Anlage 3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_3) Me.columnAnlage_4 = New Global.System.Data.DataColumn("Anlage 4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_4) Me.columnAnlage_5 = New Global.System.Data.DataColumn("Anlage 5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_5) Me.columnAnlage_6 = New Global.System.Data.DataColumn("Anlage 6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_6) Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me._columnVorlageprovision__ = New Global.System.Data.DataColumn("Vorlageprovision %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnVorlageprovision__") Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_UserColumnName", "Vorlageprovision %") MyBase.Columns.Add(Me._columnVorlageprovision__) Me._columnKreditaufwendungen__ = New Global.System.Data.DataColumn("Kreditaufwendungen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnKreditaufwendungen__") Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_UserColumnName", "Kreditaufwendungen %") MyBase.Columns.Add(Me._columnKreditaufwendungen__) Me.columnBesonderheiten = New Global.System.Data.DataColumn("Besonderheiten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesonderheiten) Me.columnVorkasse = New Global.System.Data.DataColumn("Vorkasse", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkasse) Me.columnText = New Global.System.Data.DataColumn("Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnText) Me.columnSteuerpflichtigerGesamtbetrag = New Global.System.Data.DataColumn("SteuerpflichtigerGesamtbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerGesamtbetrag) Me.columnSteuerfreierGesamtbetrag = New Global.System.Data.DataColumn("SteuerfreierGesamtbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierGesamtbetrag) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnDruckDatumZeit = New Global.System.Data.DataColumn("DruckDatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDruckDatumZeit) Me.columnAbfertigungskosten = New Global.System.Data.DataColumn("Abfertigungskosten", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungskosten) Me.columnVorkosten = New Global.System.Data.DataColumn("Vorkosten", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkosten) Me.columnErlös = New Global.System.Data.DataColumn("Erlös", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErlös) Me.columnBuchungsjahr = New Global.System.Data.DataColumn("Buchungsjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsjahr) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnTrdin = New Global.System.Data.DataColumn("Trdin", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTrdin) Me.columnKartenNr = New Global.System.Data.DataColumn("KartenNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenNr) Me.columnRefFilialenNr = New Global.System.Data.DataColumn("RefFilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefFilialenNr) Me.columnRefAbfertigungsNr = New Global.System.Data.DataColumn("RefAbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefAbfertigungsNr) Me.columnRefUnterNr = New Global.System.Data.DataColumn("RefUnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefUnterNr) Me.columnNotiz = New Global.System.Data.DataColumn("Notiz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNotiz) Me.columnZucker_MRN_Nr = New Global.System.Data.DataColumn("Zucker_MRN_Nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Nr) Me.columnZucker_MRN_Datum = New Global.System.Data.DataColumn("Zucker_MRN_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Datum) Me.columnZucker_Aufschub = New Global.System.Data.DataColumn("Zucker_Aufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_Aufschub) Me.columnReErfZeitstempel = New Global.System.Data.DataColumn("ReErfZeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReErfZeitstempel) Me.columnNettozahlungsziel = New Global.System.Data.DataColumn("Nettozahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettozahlungsziel) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnSpeditionsbuchUnterNr = New Global.System.Data.DataColumn("SpeditionsbuchUnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuchUnterNr) Me.columnErfassungsNr = New Global.System.Data.DataColumn("ErfassungsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErfassungsNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID}, true)) Me.columnRK_ID.AutoIncrement = true Me.columnRK_ID.AllowDBNull = false Me.columnRK_ID.ReadOnly = true Me.columnRK_ID.Unique = true Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnAbfertigungsdatum.AllowDBNull = false Me.columnSammelrechnung.AllowDBNull = false Me.columnBelegartenNr.AllowDBNull = false Me.columnBelegartenKz.AllowDBNull = false Me.columnBelegartenKz.MaxLength = 2 Me.columnBelegartenBez.AllowDBNull = false Me.columnBelegartenBez.MaxLength = 10 Me.columnVorzeichen.AllowDBNull = false Me.columnVorzeichen.MaxLength = 1 Me.columnBelegNr.MaxLength = 27 Me.columnAbsenderLandKz.MaxLength = 3 Me.columnAbsenderName_1.MaxLength = 40 Me.columnAbsenderName_2.MaxLength = 40 Me.columnAbsenderStraße.MaxLength = 40 Me.columnAbsenderOrt.MaxLength = 52 Me.columnEmpfängerLandKz.MaxLength = 3 Me.columnEmpfängerName_1.MaxLength = 40 Me.columnEmpfängerName_2.MaxLength = 40 Me.columnEmpfängerStraße.MaxLength = 40 Me.columnEmpfängerOrt.MaxLength = 52 Me.columnVermittlerLandKz.MaxLength = 3 Me.columnVermittlerName_1.MaxLength = 40 Me.columnVermittlerName_2.MaxLength = 40 Me.columnVermittlerStraße.MaxLength = 40 Me.columnVermittlerOrt.MaxLength = 52 Me.columnRechnung_an.AllowDBNull = false Me.columnRechnungsLandKz.MaxLength = 3 Me.columnRechnungsKundenNr.AllowDBNull = false Me.columnRechnungsName_1.MaxLength = 40 Me.columnRechnungsName_2.MaxLength = 40 Me.columnRechnungsStraße.MaxLength = 40 Me.columnRechnungsOrt.MaxLength = 52 Me.columnRechnungsUstIdKz.MaxLength = 2 Me.columnRechnungsUstIdNr.MaxLength = 12 Me.columnLastschrift.AllowDBNull = false Me._columnKunden_SVS.AllowDBNull = false Me.columnSteuerschlüssel.AllowDBNull = false Me._columnSteuersatz__.AllowDBNull = false Me.columnLKW_Kennzeichen.MaxLength = 25 Me.columnPackstücke_und_Warenbezeichnung.MaxLength = 1073741823 Me.columnVermerk.MaxLength = 50 Me.columnAnlage_1.MaxLength = 35 Me.columnAnlage_2.MaxLength = 35 Me.columnAnlage_3.MaxLength = 35 Me.columnAnlage_4.MaxLength = 35 Me.columnAnlage_5.MaxLength = 35 Me.columnAnlage_6.MaxLength = 35 Me.columnBesonderheiten.MaxLength = 1073741823 Me.columnVorkasse.AllowDBNull = false Me.columnText.MaxLength = 1073741823 Me.columnWährungscode.MaxLength = 3 Me.columnSachbearbeiter.MaxLength = 15 Me.columnTrdin.AllowDBNull = false Me.columnKartenNr.MaxLength = 20 Me.columnNotiz.MaxLength = 1073741823 Me.columnZucker_MRN_Nr.MaxLength = 18 Me.columnZucker_Aufschub.MaxLength = 1 Me.columnFirma_ID.AllowDBNull = false Me.columnErfassungsNr.MaxLength = 255 End Sub _ Public Function NewspSELECTRechnungsausgangRow() As spSELECTRechnungsausgangRow Return CType(Me.NewRow,spSELECTRechnungsausgangRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTRechnungsausgangRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTRechnungsausgangRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTRechnungsausgangRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsausgangRowChanged(Me, New spSELECTRechnungsausgangRowChangeEvent(CType(e.Row,spSELECTRechnungsausgangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTRechnungsausgangRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsausgangRowChanging(Me, New spSELECTRechnungsausgangRowChangeEvent(CType(e.Row,spSELECTRechnungsausgangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTRechnungsausgangRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsausgangRowDeleted(Me, New spSELECTRechnungsausgangRowChangeEvent(CType(e.Row,spSELECTRechnungsausgangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTRechnungsausgangRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsausgangRowDeleting(Me, New spSELECTRechnungsausgangRowChangeEvent(CType(e.Row,spSELECTRechnungsausgangRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTRechnungsausgangRow(ByVal row As spSELECTRechnungsausgangRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTRechnungsausgangDataTable" 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 spSELECTRechnungsausgangPositionenDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTRechnungsausgangPositionenRow) Private columnRK_ID As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnIndexZkteing As Global.System.Data.DataColumn Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetrag As Global.System.Data.DataColumn Private columnSteuerfreierBetrag As Global.System.Data.DataColumn Private columnAufschubkontoNr As Global.System.Data.DataColumn Private columnAufschubfälligkeit As Global.System.Data.DataColumn Private columnPrüfsumme_berechnen As Global.System.Data.DataColumn Private columnDateiNameAufschub As Global.System.Data.DataColumn Private columnPreisbindung As Global.System.Data.DataColumn Private columnBelegdaten As Global.System.Data.DataColumn Private columnFremdwährung As Global.System.Data.DataColumn Private columnBGebLeistungsNr As Global.System.Data.DataColumn Private columnBGebProzent As Global.System.Data.DataColumn Private columnBGebBgl As Global.System.Data.DataColumn Private columnBGebMinBetrag As Global.System.Data.DataColumn Private columnRePosZeitstempel As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTRechnungsausgangPositionen" 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 RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property IndexZkteingColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexZkteing End Get End Property _ Public ReadOnly Property BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetrag End Get End Property _ Public ReadOnly Property SteuerfreierBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetrag End Get End Property _ Public ReadOnly Property AufschubkontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkontoNr End Get End Property _ Public ReadOnly Property AufschubfälligkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubfälligkeit End Get End Property _ Public ReadOnly Property Prüfsumme_berechnenColumn() As Global.System.Data.DataColumn Get Return Me.columnPrüfsumme_berechnen End Get End Property _ Public ReadOnly Property DateiNameAufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiNameAufschub End Get End Property _ Public ReadOnly Property PreisbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisbindung End Get End Property _ Public ReadOnly Property BelegdatenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdaten End Get End Property _ Public ReadOnly Property FremdwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnFremdwährung End Get End Property _ Public ReadOnly Property BGebLeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebLeistungsNr End Get End Property _ Public ReadOnly Property BGebProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebProzent End Get End Property _ Public ReadOnly Property BGebBglColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebBgl End Get End Property _ Public ReadOnly Property BGebMinBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebMinBetrag End Get End Property _ Public ReadOnly Property RePosZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnRePosZeitstempel 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 spSELECTRechnungsausgangPositionenRow Get Return CType(Me.Rows(index),spSELECTRechnungsausgangPositionenRow) End Get End Property _ Public Event spSELECTRechnungsausgangPositionenRowChanging As spSELECTRechnungsausgangPositionenRowChangeEventHandler _ Public Event spSELECTRechnungsausgangPositionenRowChanged As spSELECTRechnungsausgangPositionenRowChangeEventHandler _ Public Event spSELECTRechnungsausgangPositionenRowDeleting As spSELECTRechnungsausgangPositionenRowChangeEventHandler _ Public Event spSELECTRechnungsausgangPositionenRowDeleted As spSELECTRechnungsausgangPositionenRowChangeEventHandler _ Public Overloads Sub AddspSELECTRechnungsausgangPositionenRow(ByVal row As spSELECTRechnungsausgangPositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTRechnungsausgangPositionenRow( _ ByVal RK_ID As Integer, _ ByVal LeistungsNr As Short, _ ByVal Steuerpflichtig As Boolean, _ ByVal LeistungsBez As String, _ ByVal IndexZkteing As Integer, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Decimal, _ ByVal Anzahl As Short, _ ByVal SteuerpflichtigerBetrag As Decimal, _ ByVal SteuerfreierBetrag As Decimal, _ ByVal AufschubkontoNr As String, _ ByVal Aufschubfälligkeit As Date, _ ByVal Prüfsumme_berechnen As Boolean, _ ByVal DateiNameAufschub As String, _ ByVal Preisbindung As Boolean, _ ByVal Belegdaten As String, _ ByVal Fremdwährung As Short, _ ByVal BGebLeistungsNr As Short, _ ByVal BGebProzent As Single, _ ByVal BGebBgl As Decimal, _ ByVal BGebMinBetrag As Decimal, _ ByVal RePosZeitstempel As Date) As spSELECTRechnungsausgangPositionenRow Dim rowspSELECTRechnungsausgangPositionenRow As spSELECTRechnungsausgangPositionenRow = CType(Me.NewRow,spSELECTRechnungsausgangPositionenRow) Dim columnValuesArray() As Object = New Object() {RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing, BerechnungsartNr, Preis, Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag, AufschubkontoNr, Aufschubfälligkeit, Prüfsumme_berechnen, DateiNameAufschub, Preisbindung, Belegdaten, Fremdwährung, BGebLeistungsNr, BGebProzent, BGebBgl, BGebMinBetrag, RePosZeitstempel} rowspSELECTRechnungsausgangPositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTRechnungsausgangPositionenRow) Return rowspSELECTRechnungsausgangPositionenRow End Function _ Public Function FindByRK_IDLeistungsNrSteuerpflichtigLeistungsBezIndexZkteing(ByVal RK_ID As Integer, ByVal LeistungsNr As Short, ByVal Steuerpflichtig As Boolean, ByVal LeistungsBez As String, ByVal IndexZkteing As Integer) As spSELECTRechnungsausgangPositionenRow Return CType(Me.Rows.Find(New Object() {RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing}),spSELECTRechnungsausgangPositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTRechnungsausgangPositionenDataTable = CType(MyBase.Clone,spSELECTRechnungsausgangPositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTRechnungsausgangPositionenDataTable() End Function _ Friend Sub InitVars() Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnIndexZkteing = MyBase.Columns("IndexZkteing") Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnPreis = MyBase.Columns("Preis") Me.columnAnzahl = MyBase.Columns("Anzahl") Me.columnSteuerpflichtigerBetrag = MyBase.Columns("SteuerpflichtigerBetrag") Me.columnSteuerfreierBetrag = MyBase.Columns("SteuerfreierBetrag") Me.columnAufschubkontoNr = MyBase.Columns("AufschubkontoNr") Me.columnAufschubfälligkeit = MyBase.Columns("Aufschubfälligkeit") Me.columnPrüfsumme_berechnen = MyBase.Columns("Prüfsumme berechnen") Me.columnDateiNameAufschub = MyBase.Columns("DateiNameAufschub") Me.columnPreisbindung = MyBase.Columns("Preisbindung") Me.columnBelegdaten = MyBase.Columns("Belegdaten") Me.columnFremdwährung = MyBase.Columns("Fremdwährung") Me.columnBGebLeistungsNr = MyBase.Columns("BGebLeistungsNr") Me.columnBGebProzent = MyBase.Columns("BGebProzent") Me.columnBGebBgl = MyBase.Columns("BGebBgl") Me.columnBGebMinBetrag = MyBase.Columns("BGebMinBetrag") Me.columnRePosZeitstempel = MyBase.Columns("RePosZeitstempel") End Sub _ Private Sub InitClass() Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnIndexZkteing = New Global.System.Data.DataColumn("IndexZkteing", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndexZkteing) Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) Me.columnSteuerpflichtigerBetrag = New Global.System.Data.DataColumn("SteuerpflichtigerBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetrag) Me.columnSteuerfreierBetrag = New Global.System.Data.DataColumn("SteuerfreierBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetrag) Me.columnAufschubkontoNr = New Global.System.Data.DataColumn("AufschubkontoNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkontoNr) Me.columnAufschubfälligkeit = New Global.System.Data.DataColumn("Aufschubfälligkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubfälligkeit) Me.columnPrüfsumme_berechnen = New Global.System.Data.DataColumn("Prüfsumme berechnen", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrüfsumme_berechnen) Me.columnDateiNameAufschub = New Global.System.Data.DataColumn("DateiNameAufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiNameAufschub) Me.columnPreisbindung = New Global.System.Data.DataColumn("Preisbindung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisbindung) Me.columnBelegdaten = New Global.System.Data.DataColumn("Belegdaten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdaten) Me.columnFremdwährung = New Global.System.Data.DataColumn("Fremdwährung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFremdwährung) Me.columnBGebLeistungsNr = New Global.System.Data.DataColumn("BGebLeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebLeistungsNr) Me.columnBGebProzent = New Global.System.Data.DataColumn("BGebProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebProzent) Me.columnBGebBgl = New Global.System.Data.DataColumn("BGebBgl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebBgl) Me.columnBGebMinBetrag = New Global.System.Data.DataColumn("BGebMinBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebMinBetrag) Me.columnRePosZeitstempel = New Global.System.Data.DataColumn("RePosZeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRePosZeitstempel) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID, Me.columnLeistungsNr, Me.columnSteuerpflichtig, Me.columnLeistungsBez, Me.columnIndexZkteing}, true)) Me.columnRK_ID.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnSteuerpflichtig.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnIndexZkteing.AllowDBNull = false Me.columnBerechnungsartNr.AllowDBNull = false Me.columnAufschubkontoNr.MaxLength = 20 Me.columnPrüfsumme_berechnen.AllowDBNull = false Me.columnDateiNameAufschub.MaxLength = 12 Me.columnPreisbindung.AllowDBNull = false Me.columnBelegdaten.MaxLength = 30 End Sub _ Public Function NewspSELECTRechnungsausgangPositionenRow() As spSELECTRechnungsausgangPositionenRow Return CType(Me.NewRow,spSELECTRechnungsausgangPositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTRechnungsausgangPositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTRechnungsausgangPositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTRechnungsausgangPositionenRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsausgangPositionenRowChanged(Me, New spSELECTRechnungsausgangPositionenRowChangeEvent(CType(e.Row,spSELECTRechnungsausgangPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTRechnungsausgangPositionenRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsausgangPositionenRowChanging(Me, New spSELECTRechnungsausgangPositionenRowChangeEvent(CType(e.Row,spSELECTRechnungsausgangPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTRechnungsausgangPositionenRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsausgangPositionenRowDeleted(Me, New spSELECTRechnungsausgangPositionenRowChangeEvent(CType(e.Row,spSELECTRechnungsausgangPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTRechnungsausgangPositionenRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsausgangPositionenRowDeleting(Me, New spSELECTRechnungsausgangPositionenRowChangeEvent(CType(e.Row,spSELECTRechnungsausgangPositionenRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTRechnungsausgangPositionenRow(ByVal row As spSELECTRechnungsausgangPositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTRechnungsausgangPositionenDataTable" 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 spSELECTRechnungsnummernDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTRechnungsnummernRow) Private columnSpeditionsbuchNr As Global.System.Data.DataColumn Private columnBuchungsjahr As Global.System.Data.DataColumn Private columnVonRechnungsNr As Global.System.Data.DataColumn Private columnBisRechnungsNr As Global.System.Data.DataColumn Private columnLfdRechnungsNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTRechnungsnummern" 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 SpeditionsbuchNrColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuchNr End Get End Property _ Public ReadOnly Property BuchungsjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsjahr End Get End Property _ Public ReadOnly Property VonRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVonRechnungsNr End Get End Property _ Public ReadOnly Property BisRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBisRechnungsNr End Get End Property _ Public ReadOnly Property LfdRechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLfdRechnungsNr 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 spSELECTRechnungsnummernRow Get Return CType(Me.Rows(index),spSELECTRechnungsnummernRow) End Get End Property _ Public Event spSELECTRechnungsnummernRowChanging As spSELECTRechnungsnummernRowChangeEventHandler _ Public Event spSELECTRechnungsnummernRowChanged As spSELECTRechnungsnummernRowChangeEventHandler _ Public Event spSELECTRechnungsnummernRowDeleting As spSELECTRechnungsnummernRowChangeEventHandler _ Public Event spSELECTRechnungsnummernRowDeleted As spSELECTRechnungsnummernRowChangeEventHandler _ Public Overloads Sub AddspSELECTRechnungsnummernRow(ByVal row As spSELECTRechnungsnummernRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTRechnungsnummernRow(ByVal SpeditionsbuchNr As Short, ByVal Buchungsjahr As Short, ByVal VonRechnungsNr As Integer, ByVal BisRechnungsNr As Integer, ByVal LfdRechnungsNr As Integer) As spSELECTRechnungsnummernRow Dim rowspSELECTRechnungsnummernRow As spSELECTRechnungsnummernRow = CType(Me.NewRow,spSELECTRechnungsnummernRow) Dim columnValuesArray() As Object = New Object() {SpeditionsbuchNr, Buchungsjahr, VonRechnungsNr, BisRechnungsNr, LfdRechnungsNr} rowspSELECTRechnungsnummernRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTRechnungsnummernRow) Return rowspSELECTRechnungsnummernRow End Function _ Public Function FindBySpeditionsbuchNrBuchungsjahr(ByVal SpeditionsbuchNr As Short, ByVal Buchungsjahr As Short) As spSELECTRechnungsnummernRow Return CType(Me.Rows.Find(New Object() {SpeditionsbuchNr, Buchungsjahr}),spSELECTRechnungsnummernRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTRechnungsnummernDataTable = CType(MyBase.Clone,spSELECTRechnungsnummernDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTRechnungsnummernDataTable() End Function _ Friend Sub InitVars() Me.columnSpeditionsbuchNr = MyBase.Columns("SpeditionsbuchNr") Me.columnBuchungsjahr = MyBase.Columns("Buchungsjahr") Me.columnVonRechnungsNr = MyBase.Columns("VonRechnungsNr") Me.columnBisRechnungsNr = MyBase.Columns("BisRechnungsNr") Me.columnLfdRechnungsNr = MyBase.Columns("LfdRechnungsNr") End Sub _ Private Sub InitClass() Me.columnSpeditionsbuchNr = New Global.System.Data.DataColumn("SpeditionsbuchNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuchNr) Me.columnBuchungsjahr = New Global.System.Data.DataColumn("Buchungsjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsjahr) Me.columnVonRechnungsNr = New Global.System.Data.DataColumn("VonRechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVonRechnungsNr) Me.columnBisRechnungsNr = New Global.System.Data.DataColumn("BisRechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBisRechnungsNr) Me.columnLfdRechnungsNr = New Global.System.Data.DataColumn("LfdRechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLfdRechnungsNr) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSpeditionsbuchNr, Me.columnBuchungsjahr}, true)) Me.columnSpeditionsbuchNr.AllowDBNull = false Me.columnBuchungsjahr.AllowDBNull = false Me.columnVonRechnungsNr.AllowDBNull = false Me.columnBisRechnungsNr.AllowDBNull = false Me.columnLfdRechnungsNr.AllowDBNull = false End Sub _ Public Function NewspSELECTRechnungsnummernRow() As spSELECTRechnungsnummernRow Return CType(Me.NewRow,spSELECTRechnungsnummernRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTRechnungsnummernRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTRechnungsnummernRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTRechnungsnummernRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsnummernRowChanged(Me, New spSELECTRechnungsnummernRowChangeEvent(CType(e.Row,spSELECTRechnungsnummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTRechnungsnummernRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsnummernRowChanging(Me, New spSELECTRechnungsnummernRowChangeEvent(CType(e.Row,spSELECTRechnungsnummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTRechnungsnummernRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsnummernRowDeleted(Me, New spSELECTRechnungsnummernRowChangeEvent(CType(e.Row,spSELECTRechnungsnummernRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTRechnungsnummernRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTRechnungsnummernRowDeleting(Me, New spSELECTRechnungsnummernRowChangeEvent(CType(e.Row,spSELECTRechnungsnummernRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTRechnungsnummernRow(ByVal row As spSELECTRechnungsnummernRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTRechnungsnummernDataTable" 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 spSelectReDruSaReRKAvisoIDDataTable Inherits Global.System.Data.TypedTableBase(Of spSelectReDruSaReRKAvisoIDRow) Private columnAvisoID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectReDruSaReRKAvisoID" 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 AvisoIDColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisoID 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 spSelectReDruSaReRKAvisoIDRow Get Return CType(Me.Rows(index),spSelectReDruSaReRKAvisoIDRow) End Get End Property _ Public Event spSelectReDruSaReRKAvisoIDRowChanging As spSelectReDruSaReRKAvisoIDRowChangeEventHandler _ Public Event spSelectReDruSaReRKAvisoIDRowChanged As spSelectReDruSaReRKAvisoIDRowChangeEventHandler _ Public Event spSelectReDruSaReRKAvisoIDRowDeleting As spSelectReDruSaReRKAvisoIDRowChangeEventHandler _ Public Event spSelectReDruSaReRKAvisoIDRowDeleted As spSelectReDruSaReRKAvisoIDRowChangeEventHandler _ Public Overloads Sub AddspSelectReDruSaReRKAvisoIDRow(ByVal row As spSelectReDruSaReRKAvisoIDRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectReDruSaReRKAvisoIDRow(ByVal AvisoID As Integer) As spSelectReDruSaReRKAvisoIDRow Dim rowspSelectReDruSaReRKAvisoIDRow As spSelectReDruSaReRKAvisoIDRow = CType(Me.NewRow,spSelectReDruSaReRKAvisoIDRow) Dim columnValuesArray() As Object = New Object() {AvisoID} rowspSelectReDruSaReRKAvisoIDRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectReDruSaReRKAvisoIDRow) Return rowspSelectReDruSaReRKAvisoIDRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectReDruSaReRKAvisoIDDataTable = CType(MyBase.Clone,spSelectReDruSaReRKAvisoIDDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectReDruSaReRKAvisoIDDataTable() End Function _ Friend Sub InitVars() Me.columnAvisoID = MyBase.Columns("AvisoID") End Sub _ Private Sub InitClass() Me.columnAvisoID = New Global.System.Data.DataColumn("AvisoID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisoID) End Sub _ Public Function NewspSelectReDruSaReRKAvisoIDRow() As spSelectReDruSaReRKAvisoIDRow Return CType(Me.NewRow,spSelectReDruSaReRKAvisoIDRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectReDruSaReRKAvisoIDRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectReDruSaReRKAvisoIDRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectReDruSaReRKAvisoIDRowChangedEvent) Is Nothing) Then RaiseEvent spSelectReDruSaReRKAvisoIDRowChanged(Me, New spSelectReDruSaReRKAvisoIDRowChangeEvent(CType(e.Row,spSelectReDruSaReRKAvisoIDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectReDruSaReRKAvisoIDRowChangingEvent) Is Nothing) Then RaiseEvent spSelectReDruSaReRKAvisoIDRowChanging(Me, New spSelectReDruSaReRKAvisoIDRowChangeEvent(CType(e.Row,spSelectReDruSaReRKAvisoIDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectReDruSaReRKAvisoIDRowDeletedEvent) Is Nothing) Then RaiseEvent spSelectReDruSaReRKAvisoIDRowDeleted(Me, New spSelectReDruSaReRKAvisoIDRowChangeEvent(CType(e.Row,spSelectReDruSaReRKAvisoIDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectReDruSaReRKAvisoIDRowDeletingEvent) Is Nothing) Then RaiseEvent spSelectReDruSaReRKAvisoIDRowDeleting(Me, New spSelectReDruSaReRKAvisoIDRowChangeEvent(CType(e.Row,spSelectReDruSaReRKAvisoIDRow), e.Action)) End If End Sub _ Public Sub RemovespSelectReDruSaReRKAvisoIDRow(ByVal row As spSelectReDruSaReRKAvisoIDRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectReDruSaReRKAvisoIDDataTable" 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 spSELECTReDruSaReRKgruppierenDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTReDruSaReRKgruppierenRow) Private columnFirma_ID As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnSammelrechnung As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTReDruSaReRKgruppieren" 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 Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property SammelrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnung End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift 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 spSELECTReDruSaReRKgruppierenRow Get Return CType(Me.Rows(index),spSELECTReDruSaReRKgruppierenRow) End Get End Property _ Public Event spSELECTReDruSaReRKgruppierenRowChanging As spSELECTReDruSaReRKgruppierenRowChangeEventHandler _ Public Event spSELECTReDruSaReRKgruppierenRowChanged As spSELECTReDruSaReRKgruppierenRowChangeEventHandler _ Public Event spSELECTReDruSaReRKgruppierenRowDeleting As spSELECTReDruSaReRKgruppierenRowChangeEventHandler _ Public Event spSELECTReDruSaReRKgruppierenRowDeleted As spSELECTReDruSaReRKgruppierenRowChangeEventHandler _ Public Overloads Sub AddspSELECTReDruSaReRKgruppierenRow(ByVal row As spSELECTReDruSaReRKgruppierenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTReDruSaReRKgruppierenRow(ByVal Firma_ID As Short, ByVal Status As Short, ByVal Sammelrechnung As Short, ByVal Sachbearbeiter As String, ByVal RechnungsKundenNr As Integer, ByVal BelegartenNr As Short, ByVal Währungscode As String, ByVal _Steuersatz__ As Single, ByVal Lastschrift As Boolean) As spSELECTReDruSaReRKgruppierenRow Dim rowspSELECTReDruSaReRKgruppierenRow As spSELECTReDruSaReRKgruppierenRow = CType(Me.NewRow,spSELECTReDruSaReRKgruppierenRow) Dim columnValuesArray() As Object = New Object() {Firma_ID, Status, Sammelrechnung, Sachbearbeiter, RechnungsKundenNr, BelegartenNr, Währungscode, _Steuersatz__, Lastschrift} rowspSELECTReDruSaReRKgruppierenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTReDruSaReRKgruppierenRow) Return rowspSELECTReDruSaReRKgruppierenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTReDruSaReRKgruppierenDataTable = CType(MyBase.Clone,spSELECTReDruSaReRKgruppierenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTReDruSaReRKgruppierenDataTable() End Function _ Friend Sub InitVars() Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnStatus = MyBase.Columns("Status") Me.columnSammelrechnung = MyBase.Columns("Sammelrechnung") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnWährungscode = MyBase.Columns("Währungscode") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnLastschrift = MyBase.Columns("Lastschrift") End Sub _ Private Sub InitClass() Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnSammelrechnung = New Global.System.Data.DataColumn("Sammelrechnung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnung) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnFirma_ID.AllowDBNull = false Me.columnSammelrechnung.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnRechnungsKundenNr.AllowDBNull = false Me.columnBelegartenNr.AllowDBNull = false Me.columnWährungscode.MaxLength = 3 Me._columnSteuersatz__.AllowDBNull = false Me.columnLastschrift.AllowDBNull = false End Sub _ Public Function NewspSELECTReDruSaReRKgruppierenRow() As spSELECTReDruSaReRKgruppierenRow Return CType(Me.NewRow,spSELECTReDruSaReRKgruppierenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTReDruSaReRKgruppierenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTReDruSaReRKgruppierenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTReDruSaReRKgruppierenRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTReDruSaReRKgruppierenRowChanged(Me, New spSELECTReDruSaReRKgruppierenRowChangeEvent(CType(e.Row,spSELECTReDruSaReRKgruppierenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTReDruSaReRKgruppierenRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTReDruSaReRKgruppierenRowChanging(Me, New spSELECTReDruSaReRKgruppierenRowChangeEvent(CType(e.Row,spSELECTReDruSaReRKgruppierenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTReDruSaReRKgruppierenRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTReDruSaReRKgruppierenRowDeleted(Me, New spSELECTReDruSaReRKgruppierenRowChangeEvent(CType(e.Row,spSELECTReDruSaReRKgruppierenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTReDruSaReRKgruppierenRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTReDruSaReRKgruppierenRowDeleting(Me, New spSELECTReDruSaReRKgruppierenRowChangeEvent(CType(e.Row,spSELECTReDruSaReRKgruppierenRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTReDruSaReRKgruppierenRow(ByVal row As spSELECTReDruSaReRKgruppierenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTReDruSaReRKgruppierenDataTable" 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 spSelectReDruSchnBB_RKDataTable Inherits Global.System.Data.TypedTableBase(Of spSelectReDruSchnBB_RKRow) Private columnFirma_ID As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnSammelrechnung As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectReDruSchnBB_RK" 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 Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property SammelrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnung End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift 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 spSelectReDruSchnBB_RKRow Get Return CType(Me.Rows(index),spSelectReDruSchnBB_RKRow) End Get End Property _ Public Event spSelectReDruSchnBB_RKRowChanging As spSelectReDruSchnBB_RKRowChangeEventHandler _ Public Event spSelectReDruSchnBB_RKRowChanged As spSelectReDruSchnBB_RKRowChangeEventHandler _ Public Event spSelectReDruSchnBB_RKRowDeleting As spSelectReDruSchnBB_RKRowChangeEventHandler _ Public Event spSelectReDruSchnBB_RKRowDeleted As spSelectReDruSchnBB_RKRowChangeEventHandler _ Public Overloads Sub AddspSelectReDruSchnBB_RKRow(ByVal row As spSelectReDruSchnBB_RKRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectReDruSchnBB_RKRow(ByVal Firma_ID As Short, ByVal Status As Short, ByVal Sammelrechnung As Short, ByVal Sachbearbeiter As String, ByVal RechnungsKundenNr As Integer, ByVal BelegartenNr As Short, ByVal Währungscode As String, ByVal _Steuersatz__ As Single, ByVal Lastschrift As Boolean) As spSelectReDruSchnBB_RKRow Dim rowspSelectReDruSchnBB_RKRow As spSelectReDruSchnBB_RKRow = CType(Me.NewRow,spSelectReDruSchnBB_RKRow) Dim columnValuesArray() As Object = New Object() {Firma_ID, Status, Sammelrechnung, Sachbearbeiter, RechnungsKundenNr, BelegartenNr, Währungscode, _Steuersatz__, Lastschrift} rowspSelectReDruSchnBB_RKRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectReDruSchnBB_RKRow) Return rowspSelectReDruSchnBB_RKRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectReDruSchnBB_RKDataTable = CType(MyBase.Clone,spSelectReDruSchnBB_RKDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectReDruSchnBB_RKDataTable() End Function _ Friend Sub InitVars() Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnStatus = MyBase.Columns("Status") Me.columnSammelrechnung = MyBase.Columns("Sammelrechnung") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnWährungscode = MyBase.Columns("Währungscode") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnLastschrift = MyBase.Columns("Lastschrift") End Sub _ Private Sub InitClass() Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnSammelrechnung = New Global.System.Data.DataColumn("Sammelrechnung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnung) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnFirma_ID.AllowDBNull = false Me.columnSammelrechnung.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnRechnungsKundenNr.AllowDBNull = false Me.columnBelegartenNr.AllowDBNull = false Me.columnWährungscode.MaxLength = 3 Me._columnSteuersatz__.AllowDBNull = false Me.columnLastschrift.AllowDBNull = false End Sub _ Public Function NewspSelectReDruSchnBB_RKRow() As spSelectReDruSchnBB_RKRow Return CType(Me.NewRow,spSelectReDruSchnBB_RKRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectReDruSchnBB_RKRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectReDruSchnBB_RKRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectReDruSchnBB_RKRowChangedEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnBB_RKRowChanged(Me, New spSelectReDruSchnBB_RKRowChangeEvent(CType(e.Row,spSelectReDruSchnBB_RKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectReDruSchnBB_RKRowChangingEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnBB_RKRowChanging(Me, New spSelectReDruSchnBB_RKRowChangeEvent(CType(e.Row,spSelectReDruSchnBB_RKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectReDruSchnBB_RKRowDeletedEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnBB_RKRowDeleted(Me, New spSelectReDruSchnBB_RKRowChangeEvent(CType(e.Row,spSelectReDruSchnBB_RKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectReDruSchnBB_RKRowDeletingEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnBB_RKRowDeleting(Me, New spSelectReDruSchnBB_RKRowChangeEvent(CType(e.Row,spSelectReDruSchnBB_RKRow), e.Action)) End If End Sub _ Public Sub RemovespSelectReDruSchnBB_RKRow(ByVal row As spSelectReDruSchnBB_RKRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectReDruSchnBB_RKDataTable" 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 spSelectReDruSchnKundeDataTable Inherits Global.System.Data.TypedTableBase(Of spSelectReDruSchnKundeRow) Private columnKundenNr As Global.System.Data.DataColumn Private _columnBankspesen__ As Global.System.Data.DataColumn Private columnBankspesen_Mindestbetrag As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectReDruSchnKunde" 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 KundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNr End Get End Property _ Public ReadOnly Property _Bankspesen__Column() As Global.System.Data.DataColumn Get Return Me._columnBankspesen__ End Get End Property _ Public ReadOnly Property Bankspesen_MindestbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBankspesen_Mindestbetrag 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 spSelectReDruSchnKundeRow Get Return CType(Me.Rows(index),spSelectReDruSchnKundeRow) End Get End Property _ Public Event spSelectReDruSchnKundeRowChanging As spSelectReDruSchnKundeRowChangeEventHandler _ Public Event spSelectReDruSchnKundeRowChanged As spSelectReDruSchnKundeRowChangeEventHandler _ Public Event spSelectReDruSchnKundeRowDeleting As spSelectReDruSchnKundeRowChangeEventHandler _ Public Event spSelectReDruSchnKundeRowDeleted As spSelectReDruSchnKundeRowChangeEventHandler _ Public Overloads Sub AddspSelectReDruSchnKundeRow(ByVal row As spSelectReDruSchnKundeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectReDruSchnKundeRow(ByVal KundenNr As Integer, ByVal _Bankspesen__ As Single, ByVal Bankspesen_Mindestbetrag As Decimal) As spSelectReDruSchnKundeRow Dim rowspSelectReDruSchnKundeRow As spSelectReDruSchnKundeRow = CType(Me.NewRow,spSelectReDruSchnKundeRow) Dim columnValuesArray() As Object = New Object() {KundenNr, _Bankspesen__, Bankspesen_Mindestbetrag} rowspSelectReDruSchnKundeRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectReDruSchnKundeRow) Return rowspSelectReDruSchnKundeRow End Function _ Public Function FindByKundenNr(ByVal KundenNr As Integer) As spSelectReDruSchnKundeRow Return CType(Me.Rows.Find(New Object() {KundenNr}),spSelectReDruSchnKundeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectReDruSchnKundeDataTable = CType(MyBase.Clone,spSelectReDruSchnKundeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectReDruSchnKundeDataTable() End Function _ Friend Sub InitVars() Me.columnKundenNr = MyBase.Columns("KundenNr") Me._columnBankspesen__ = MyBase.Columns("Bankspesen %") Me.columnBankspesen_Mindestbetrag = MyBase.Columns("Bankspesen Mindestbetrag") End Sub _ Private Sub InitClass() Me.columnKundenNr = New Global.System.Data.DataColumn("KundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNr) Me._columnBankspesen__ = New Global.System.Data.DataColumn("Bankspesen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnBankspesen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnBankspesen__") Me._columnBankspesen__.ExtendedProperties.Add("Generator_UserColumnName", "Bankspesen %") MyBase.Columns.Add(Me._columnBankspesen__) Me.columnBankspesen_Mindestbetrag = New Global.System.Data.DataColumn("Bankspesen Mindestbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBankspesen_Mindestbetrag) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKundenNr}, true)) Me.columnKundenNr.AllowDBNull = false Me.columnKundenNr.Unique = true Me._columnBankspesen__.AllowDBNull = false Me.columnBankspesen_Mindestbetrag.AllowDBNull = false End Sub _ Public Function NewspSelectReDruSchnKundeRow() As spSelectReDruSchnKundeRow Return CType(Me.NewRow,spSelectReDruSchnKundeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectReDruSchnKundeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectReDruSchnKundeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectReDruSchnKundeRowChangedEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnKundeRowChanged(Me, New spSelectReDruSchnKundeRowChangeEvent(CType(e.Row,spSelectReDruSchnKundeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectReDruSchnKundeRowChangingEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnKundeRowChanging(Me, New spSelectReDruSchnKundeRowChangeEvent(CType(e.Row,spSelectReDruSchnKundeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectReDruSchnKundeRowDeletedEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnKundeRowDeleted(Me, New spSelectReDruSchnKundeRowChangeEvent(CType(e.Row,spSelectReDruSchnKundeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectReDruSchnKundeRowDeletingEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnKundeRowDeleting(Me, New spSelectReDruSchnKundeRowChangeEvent(CType(e.Row,spSelectReDruSchnKundeRow), e.Action)) End If End Sub _ Public Sub RemovespSelectReDruSchnKundeRow(ByVal row As spSelectReDruSchnKundeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectReDruSchnKundeDataTable" 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 spSelectReDruSchnSumBS415DataTable Inherits Global.System.Data.TypedTableBase(Of spSelectReDruSchnSumBS415Row) Private columnSumme_von_Preis As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectReDruSchnSumBS415" 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 Summe_von_PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnSumme_von_Preis 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 spSelectReDruSchnSumBS415Row Get Return CType(Me.Rows(index),spSelectReDruSchnSumBS415Row) End Get End Property _ Public Event spSelectReDruSchnSumBS415RowChanging As spSelectReDruSchnSumBS415RowChangeEventHandler _ Public Event spSelectReDruSchnSumBS415RowChanged As spSelectReDruSchnSumBS415RowChangeEventHandler _ Public Event spSelectReDruSchnSumBS415RowDeleting As spSelectReDruSchnSumBS415RowChangeEventHandler _ Public Event spSelectReDruSchnSumBS415RowDeleted As spSelectReDruSchnSumBS415RowChangeEventHandler _ Public Overloads Sub AddspSelectReDruSchnSumBS415Row(ByVal row As spSelectReDruSchnSumBS415Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectReDruSchnSumBS415Row(ByVal Summe_von_Preis As Decimal) As spSelectReDruSchnSumBS415Row Dim rowspSelectReDruSchnSumBS415Row As spSelectReDruSchnSumBS415Row = CType(Me.NewRow,spSelectReDruSchnSumBS415Row) Dim columnValuesArray() As Object = New Object() {Summe_von_Preis} rowspSelectReDruSchnSumBS415Row.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectReDruSchnSumBS415Row) Return rowspSelectReDruSchnSumBS415Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectReDruSchnSumBS415DataTable = CType(MyBase.Clone,spSelectReDruSchnSumBS415DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectReDruSchnSumBS415DataTable() End Function _ Friend Sub InitVars() Me.columnSumme_von_Preis = MyBase.Columns("Summe von Preis") End Sub _ Private Sub InitClass() Me.columnSumme_von_Preis = New Global.System.Data.DataColumn("Summe von Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSumme_von_Preis) Me.columnSumme_von_Preis.ReadOnly = true End Sub _ Public Function NewspSelectReDruSchnSumBS415Row() As spSelectReDruSchnSumBS415Row Return CType(Me.NewRow,spSelectReDruSchnSumBS415Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectReDruSchnSumBS415Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectReDruSchnSumBS415Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectReDruSchnSumBS415RowChangedEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnSumBS415RowChanged(Me, New spSelectReDruSchnSumBS415RowChangeEvent(CType(e.Row,spSelectReDruSchnSumBS415Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectReDruSchnSumBS415RowChangingEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnSumBS415RowChanging(Me, New spSelectReDruSchnSumBS415RowChangeEvent(CType(e.Row,spSelectReDruSchnSumBS415Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectReDruSchnSumBS415RowDeletedEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnSumBS415RowDeleted(Me, New spSelectReDruSchnSumBS415RowChangeEvent(CType(e.Row,spSelectReDruSchnSumBS415Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectReDruSchnSumBS415RowDeletingEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnSumBS415RowDeleting(Me, New spSelectReDruSchnSumBS415RowChangeEvent(CType(e.Row,spSelectReDruSchnSumBS415Row), e.Action)) End If End Sub _ Public Sub RemovespSelectReDruSchnSumBS415Row(ByVal row As spSelectReDruSchnSumBS415Row) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectReDruSchnSumBS415DataTable" 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 spSelectReDruSchnTextZollbelegePrüfenDataTable Inherits Global.System.Data.TypedTableBase(Of spSelectReDruSchnTextZollbelegePrüfenRow) Private columnLeistungsNr As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectReDruSchnTextZollbelegePrüfen" 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 LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr 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 spSelectReDruSchnTextZollbelegePrüfenRow Get Return CType(Me.Rows(index),spSelectReDruSchnTextZollbelegePrüfenRow) End Get End Property _ Public Event spSelectReDruSchnTextZollbelegePrüfenRowChanging As spSelectReDruSchnTextZollbelegePrüfenRowChangeEventHandler _ Public Event spSelectReDruSchnTextZollbelegePrüfenRowChanged As spSelectReDruSchnTextZollbelegePrüfenRowChangeEventHandler _ Public Event spSelectReDruSchnTextZollbelegePrüfenRowDeleting As spSelectReDruSchnTextZollbelegePrüfenRowChangeEventHandler _ Public Event spSelectReDruSchnTextZollbelegePrüfenRowDeleted As spSelectReDruSchnTextZollbelegePrüfenRowChangeEventHandler _ Public Overloads Sub AddspSelectReDruSchnTextZollbelegePrüfenRow(ByVal row As spSelectReDruSchnTextZollbelegePrüfenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectReDruSchnTextZollbelegePrüfenRow(ByVal LeistungsNr As Short) As spSelectReDruSchnTextZollbelegePrüfenRow Dim rowspSelectReDruSchnTextZollbelegePrüfenRow As spSelectReDruSchnTextZollbelegePrüfenRow = CType(Me.NewRow,spSelectReDruSchnTextZollbelegePrüfenRow) Dim columnValuesArray() As Object = New Object() {LeistungsNr} rowspSelectReDruSchnTextZollbelegePrüfenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectReDruSchnTextZollbelegePrüfenRow) Return rowspSelectReDruSchnTextZollbelegePrüfenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectReDruSchnTextZollbelegePrüfenDataTable = CType(MyBase.Clone,spSelectReDruSchnTextZollbelegePrüfenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectReDruSchnTextZollbelegePrüfenDataTable() End Function _ Friend Sub InitVars() Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") End Sub _ Private Sub InitClass() Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnLeistungsNr.AllowDBNull = false End Sub _ Public Function NewspSelectReDruSchnTextZollbelegePrüfenRow() As spSelectReDruSchnTextZollbelegePrüfenRow Return CType(Me.NewRow,spSelectReDruSchnTextZollbelegePrüfenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectReDruSchnTextZollbelegePrüfenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectReDruSchnTextZollbelegePrüfenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectReDruSchnTextZollbelegePrüfenRowChangedEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnTextZollbelegePrüfenRowChanged(Me, New spSelectReDruSchnTextZollbelegePrüfenRowChangeEvent(CType(e.Row,spSelectReDruSchnTextZollbelegePrüfenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectReDruSchnTextZollbelegePrüfenRowChangingEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnTextZollbelegePrüfenRowChanging(Me, New spSelectReDruSchnTextZollbelegePrüfenRowChangeEvent(CType(e.Row,spSelectReDruSchnTextZollbelegePrüfenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectReDruSchnTextZollbelegePrüfenRowDeletedEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnTextZollbelegePrüfenRowDeleted(Me, New spSelectReDruSchnTextZollbelegePrüfenRowChangeEvent(CType(e.Row,spSelectReDruSchnTextZollbelegePrüfenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectReDruSchnTextZollbelegePrüfenRowDeletingEvent) Is Nothing) Then RaiseEvent spSelectReDruSchnTextZollbelegePrüfenRowDeleting(Me, New spSelectReDruSchnTextZollbelegePrüfenRowChangeEvent(CType(e.Row,spSelectReDruSchnTextZollbelegePrüfenRow), e.Action)) End If End Sub _ Public Sub RemovespSelectReDruSchnTextZollbelegePrüfenRow(ByVal row As spSelectReDruSchnTextZollbelegePrüfenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectReDruSchnTextZollbelegePrüfenDataTable" 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 spSELECTReDruSumReGuDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTReDruSumReGuRow) Private columnFirma_ID As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnSammelrechnung As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private columnSammelrechnungsbetrag As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTReDruSumReGu" 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 Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property SammelrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnung End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property SammelrechnungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnungsbetrag 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 spSELECTReDruSumReGuRow Get Return CType(Me.Rows(index),spSELECTReDruSumReGuRow) End Get End Property _ Public Event spSELECTReDruSumReGuRowChanging As spSELECTReDruSumReGuRowChangeEventHandler _ Public Event spSELECTReDruSumReGuRowChanged As spSELECTReDruSumReGuRowChangeEventHandler _ Public Event spSELECTReDruSumReGuRowDeleting As spSELECTReDruSumReGuRowChangeEventHandler _ Public Event spSELECTReDruSumReGuRowDeleted As spSELECTReDruSumReGuRowChangeEventHandler _ Public Overloads Sub AddspSELECTReDruSumReGuRow(ByVal row As spSELECTReDruSumReGuRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTReDruSumReGuRow(ByVal Firma_ID As Short, ByVal Status As Short, ByVal Sammelrechnung As Short, ByVal Sachbearbeiter As String, ByVal RechnungsKundenNr As Integer, ByVal Währungscode As String, ByVal _Steuersatz__ As Single, ByVal Lastschrift As Boolean, ByVal Sammelrechnungsbetrag As Decimal) As spSELECTReDruSumReGuRow Dim rowspSELECTReDruSumReGuRow As spSELECTReDruSumReGuRow = CType(Me.NewRow,spSELECTReDruSumReGuRow) Dim columnValuesArray() As Object = New Object() {Firma_ID, Status, Sammelrechnung, Sachbearbeiter, RechnungsKundenNr, Währungscode, _Steuersatz__, Lastschrift, Sammelrechnungsbetrag} rowspSELECTReDruSumReGuRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTReDruSumReGuRow) Return rowspSELECTReDruSumReGuRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTReDruSumReGuDataTable = CType(MyBase.Clone,spSELECTReDruSumReGuDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTReDruSumReGuDataTable() End Function _ Friend Sub InitVars() Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnStatus = MyBase.Columns("Status") Me.columnSammelrechnung = MyBase.Columns("Sammelrechnung") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnWährungscode = MyBase.Columns("Währungscode") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me.columnSammelrechnungsbetrag = MyBase.Columns("Sammelrechnungsbetrag") End Sub _ Private Sub InitClass() Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnSammelrechnung = New Global.System.Data.DataColumn("Sammelrechnung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnung) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnSammelrechnungsbetrag = New Global.System.Data.DataColumn("Sammelrechnungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnungsbetrag) Me.columnFirma_ID.AllowDBNull = false Me.columnSammelrechnung.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnRechnungsKundenNr.AllowDBNull = false Me.columnWährungscode.MaxLength = 3 Me._columnSteuersatz__.AllowDBNull = false Me.columnLastschrift.AllowDBNull = false Me.columnSammelrechnungsbetrag.ReadOnly = true End Sub _ Public Function NewspSELECTReDruSumReGuRow() As spSELECTReDruSumReGuRow Return CType(Me.NewRow,spSELECTReDruSumReGuRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTReDruSumReGuRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTReDruSumReGuRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTReDruSumReGuRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTReDruSumReGuRowChanged(Me, New spSELECTReDruSumReGuRowChangeEvent(CType(e.Row,spSELECTReDruSumReGuRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTReDruSumReGuRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTReDruSumReGuRowChanging(Me, New spSELECTReDruSumReGuRowChangeEvent(CType(e.Row,spSELECTReDruSumReGuRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTReDruSumReGuRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTReDruSumReGuRowDeleted(Me, New spSELECTReDruSumReGuRowChangeEvent(CType(e.Row,spSELECTReDruSumReGuRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTReDruSumReGuRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTReDruSumReGuRowDeleting(Me, New spSELECTReDruSumReGuRowChangeEvent(CType(e.Row,spSELECTReDruSumReGuRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTReDruSumReGuRow(ByVal row As spSELECTReDruSumReGuRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTReDruSumReGuDataTable" 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 spSELECTReDruTextDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTReDruTextRow) Private columnFirma_ID As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnSammelrechnung As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private columnRK_ID As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnVorkasse As Global.System.Data.DataColumn Private columnNettozahlungsziel As Global.System.Data.DataColumn Private columnOffertenNr As Global.System.Data.DataColumn Private columnRechnungsLandKz As Global.System.Data.DataColumn Private columnText As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTReDruText" 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 Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property SammelrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnung End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property VorkasseColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkasse End Get End Property _ Public ReadOnly Property NettozahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnNettozahlungsziel End Get End Property _ Public ReadOnly Property OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property RechnungsLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsLandKz End Get End Property _ Public ReadOnly Property TextColumn() As Global.System.Data.DataColumn Get Return Me.columnText 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 spSELECTReDruTextRow Get Return CType(Me.Rows(index),spSELECTReDruTextRow) End Get End Property _ Public Event spSELECTReDruTextRowChanging As spSELECTReDruTextRowChangeEventHandler _ Public Event spSELECTReDruTextRowChanged As spSELECTReDruTextRowChangeEventHandler _ Public Event spSELECTReDruTextRowDeleting As spSELECTReDruTextRowChangeEventHandler _ Public Event spSELECTReDruTextRowDeleted As spSELECTReDruTextRowChangeEventHandler _ Public Overloads Sub AddspSELECTReDruTextRow(ByVal row As spSELECTReDruTextRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTReDruTextRow(ByVal Firma_ID As Short, ByVal Status As Short, ByVal Sammelrechnung As Short, ByVal Sachbearbeiter As String, ByVal RechnungsKundenNr As Integer, ByVal Währungscode As String, ByVal _Steuersatz__ As Single, ByVal Lastschrift As Boolean, ByVal BelegartenNr As Short, ByVal Vorkasse As Boolean, ByVal Nettozahlungsziel As Short, ByVal OffertenNr As Short, ByVal RechnungsLandKz As String, ByVal Text As String) As spSELECTReDruTextRow Dim rowspSELECTReDruTextRow As spSELECTReDruTextRow = CType(Me.NewRow,spSELECTReDruTextRow) Dim columnValuesArray() As Object = New Object() {Firma_ID, Status, Sammelrechnung, Sachbearbeiter, RechnungsKundenNr, Währungscode, _Steuersatz__, Lastschrift, Nothing, BelegartenNr, Vorkasse, Nettozahlungsziel, OffertenNr, RechnungsLandKz, Text} rowspSELECTReDruTextRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTReDruTextRow) Return rowspSELECTReDruTextRow End Function _ Public Function FindByRK_ID(ByVal RK_ID As Integer) As spSELECTReDruTextRow Return CType(Me.Rows.Find(New Object() {RK_ID}),spSELECTReDruTextRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTReDruTextDataTable = CType(MyBase.Clone,spSELECTReDruTextDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTReDruTextDataTable() End Function _ Friend Sub InitVars() Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnStatus = MyBase.Columns("Status") Me.columnSammelrechnung = MyBase.Columns("Sammelrechnung") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnWährungscode = MyBase.Columns("Währungscode") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnVorkasse = MyBase.Columns("Vorkasse") Me.columnNettozahlungsziel = MyBase.Columns("Nettozahlungsziel") Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me.columnRechnungsLandKz = MyBase.Columns("RechnungsLandKz") Me.columnText = MyBase.Columns("Text") End Sub _ Private Sub InitClass() Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnSammelrechnung = New Global.System.Data.DataColumn("Sammelrechnung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnung) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnVorkasse = New Global.System.Data.DataColumn("Vorkasse", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkasse) Me.columnNettozahlungsziel = New Global.System.Data.DataColumn("Nettozahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettozahlungsziel) Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me.columnRechnungsLandKz = New Global.System.Data.DataColumn("RechnungsLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsLandKz) Me.columnText = New Global.System.Data.DataColumn("Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnText) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID}, true)) Me.columnFirma_ID.AllowDBNull = false Me.columnSammelrechnung.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnRechnungsKundenNr.AllowDBNull = false Me.columnWährungscode.MaxLength = 3 Me._columnSteuersatz__.AllowDBNull = false Me.columnLastschrift.AllowDBNull = false Me.columnRK_ID.AutoIncrement = true Me.columnRK_ID.AllowDBNull = false Me.columnRK_ID.ReadOnly = true Me.columnRK_ID.Unique = true Me.columnBelegartenNr.AllowDBNull = false Me.columnVorkasse.AllowDBNull = false Me.columnRechnungsLandKz.MaxLength = 3 Me.columnText.MaxLength = 1073741823 End Sub _ Public Function NewspSELECTReDruTextRow() As spSELECTReDruTextRow Return CType(Me.NewRow,spSELECTReDruTextRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTReDruTextRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTReDruTextRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTReDruTextRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTReDruTextRowChanged(Me, New spSELECTReDruTextRowChangeEvent(CType(e.Row,spSELECTReDruTextRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTReDruTextRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTReDruTextRowChanging(Me, New spSELECTReDruTextRowChangeEvent(CType(e.Row,spSELECTReDruTextRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTReDruTextRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTReDruTextRowDeleted(Me, New spSELECTReDruTextRowChangeEvent(CType(e.Row,spSELECTReDruTextRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTReDruTextRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTReDruTextRowDeleting(Me, New spSELECTReDruTextRowChangeEvent(CType(e.Row,spSELECTReDruTextRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTReDruTextRow(ByVal row As spSELECTReDruTextRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTReDruTextDataTable" 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 spSelectReErfAuswahlDataTable Inherits Global.System.Data.TypedTableBase(Of spSelectReErfAuswahlRow) Private columnRechnungsName_1 As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnRK_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectReErfAuswahl" 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 RechnungsName_1Column() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_1 End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_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 spSelectReErfAuswahlRow Get Return CType(Me.Rows(index),spSelectReErfAuswahlRow) End Get End Property _ Public Event spSelectReErfAuswahlRowChanging As spSelectReErfAuswahlRowChangeEventHandler _ Public Event spSelectReErfAuswahlRowChanged As spSelectReErfAuswahlRowChangeEventHandler _ Public Event spSelectReErfAuswahlRowDeleting As spSelectReErfAuswahlRowChangeEventHandler _ Public Event spSelectReErfAuswahlRowDeleted As spSelectReErfAuswahlRowChangeEventHandler _ Public Overloads Sub AddspSelectReErfAuswahlRow(ByVal row As spSelectReErfAuswahlRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectReErfAuswahlRow(ByVal RechnungsName_1 As String, ByVal RechnungsKundenNr As Integer, ByVal FilialenNr As Short, ByVal AbfertigungsNr As Integer, ByVal UnterNr As Short, ByVal Sachbearbeiter As String) As spSelectReErfAuswahlRow Dim rowspSelectReErfAuswahlRow As spSelectReErfAuswahlRow = CType(Me.NewRow,spSelectReErfAuswahlRow) Dim columnValuesArray() As Object = New Object() {RechnungsName_1, RechnungsKundenNr, FilialenNr, AbfertigungsNr, UnterNr, Sachbearbeiter, Nothing} rowspSelectReErfAuswahlRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectReErfAuswahlRow) Return rowspSelectReErfAuswahlRow End Function _ Public Function FindByRK_ID(ByVal RK_ID As Integer) As spSelectReErfAuswahlRow Return CType(Me.Rows.Find(New Object() {RK_ID}),spSelectReErfAuswahlRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectReErfAuswahlDataTable = CType(MyBase.Clone,spSelectReErfAuswahlDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectReErfAuswahlDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsName_1 = MyBase.Columns("RechnungsName 1") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnRK_ID = MyBase.Columns("RK_ID") End Sub _ Private Sub InitClass() Me.columnRechnungsName_1 = New Global.System.Data.DataColumn("RechnungsName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_1) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID}, true)) Me.columnRechnungsName_1.MaxLength = 40 Me.columnRechnungsKundenNr.AllowDBNull = false Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnSachbearbeiter.MaxLength = 15 Me.columnRK_ID.AutoIncrement = true Me.columnRK_ID.AllowDBNull = false Me.columnRK_ID.ReadOnly = true Me.columnRK_ID.Unique = true End Sub _ Public Function NewspSelectReErfAuswahlRow() As spSelectReErfAuswahlRow Return CType(Me.NewRow,spSelectReErfAuswahlRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectReErfAuswahlRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectReErfAuswahlRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectReErfAuswahlRowChangedEvent) Is Nothing) Then RaiseEvent spSelectReErfAuswahlRowChanged(Me, New spSelectReErfAuswahlRowChangeEvent(CType(e.Row,spSelectReErfAuswahlRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectReErfAuswahlRowChangingEvent) Is Nothing) Then RaiseEvent spSelectReErfAuswahlRowChanging(Me, New spSelectReErfAuswahlRowChangeEvent(CType(e.Row,spSelectReErfAuswahlRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectReErfAuswahlRowDeletedEvent) Is Nothing) Then RaiseEvent spSelectReErfAuswahlRowDeleted(Me, New spSelectReErfAuswahlRowChangeEvent(CType(e.Row,spSelectReErfAuswahlRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectReErfAuswahlRowDeletingEvent) Is Nothing) Then RaiseEvent spSelectReErfAuswahlRowDeleting(Me, New spSelectReErfAuswahlRowChangeEvent(CType(e.Row,spSelectReErfAuswahlRow), e.Action)) End If End Sub _ Public Sub RemovespSelectReErfAuswahlRow(ByVal row As spSelectReErfAuswahlRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectReErfAuswahlDataTable" 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 spSELECTReErfKADataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTReErfKARow) Private columnPreis As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTReErfKA" 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 PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl 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 spSELECTReErfKARow Get Return CType(Me.Rows(index),spSELECTReErfKARow) End Get End Property _ Public Event spSELECTReErfKARowChanging As spSELECTReErfKARowChangeEventHandler _ Public Event spSELECTReErfKARowChanged As spSELECTReErfKARowChangeEventHandler _ Public Event spSELECTReErfKARowDeleting As spSELECTReErfKARowChangeEventHandler _ Public Event spSELECTReErfKARowDeleted As spSELECTReErfKARowChangeEventHandler _ Public Overloads Sub AddspSELECTReErfKARow(ByVal row As spSELECTReErfKARow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTReErfKARow(ByVal Preis As Decimal, ByVal Anzahl As Short) As spSELECTReErfKARow Dim rowspSELECTReErfKARow As spSELECTReErfKARow = CType(Me.NewRow,spSELECTReErfKARow) Dim columnValuesArray() As Object = New Object() {Preis, Anzahl} rowspSELECTReErfKARow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTReErfKARow) Return rowspSELECTReErfKARow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTReErfKADataTable = CType(MyBase.Clone,spSELECTReErfKADataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTReErfKADataTable() End Function _ Friend Sub InitVars() Me.columnPreis = MyBase.Columns("Preis") Me.columnAnzahl = MyBase.Columns("Anzahl") End Sub _ Private Sub InitClass() Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) End Sub _ Public Function NewspSELECTReErfKARow() As spSELECTReErfKARow Return CType(Me.NewRow,spSELECTReErfKARow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTReErfKARow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTReErfKARow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTReErfKARowChangedEvent) Is Nothing) Then RaiseEvent spSELECTReErfKARowChanged(Me, New spSELECTReErfKARowChangeEvent(CType(e.Row,spSELECTReErfKARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTReErfKARowChangingEvent) Is Nothing) Then RaiseEvent spSELECTReErfKARowChanging(Me, New spSELECTReErfKARowChangeEvent(CType(e.Row,spSELECTReErfKARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTReErfKARowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTReErfKARowDeleted(Me, New spSELECTReErfKARowChangeEvent(CType(e.Row,spSELECTReErfKARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTReErfKARowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTReErfKARowDeleting(Me, New spSELECTReErfKARowChangeEvent(CType(e.Row,spSELECTReErfKARow), e.Action)) End If End Sub _ Public Sub RemovespSELECTReErfKARow(ByVal row As spSELECTReErfKARow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTReErfKADataTable" 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 spSelectRKDataTable Inherits Global.System.Data.TypedTableBase(Of spSelectRKRow) Private columnRK_ID As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnRechnungsNr As Global.System.Data.DataColumn Private columnRechnungsDatum As Global.System.Data.DataColumn Private columnSammelrechnung As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnBelegartenKz As Global.System.Data.DataColumn Private columnBelegartenBez As Global.System.Data.DataColumn Private columnVorzeichen As Global.System.Data.DataColumn Private columnBelegNr As Global.System.Data.DataColumn Private columnAbsenderLandKz As Global.System.Data.DataColumn Private columnAbsenderKundenNr As Global.System.Data.DataColumn Private columnAbsenderName_1 As Global.System.Data.DataColumn Private columnAbsenderName_2 As Global.System.Data.DataColumn Private columnAbsenderStraße As Global.System.Data.DataColumn Private columnAbsenderOrt As Global.System.Data.DataColumn Private columnAbsenderOffertenNr As Global.System.Data.DataColumn Private columnEmpfängerLandKz As Global.System.Data.DataColumn Private columnEmpfängerKundenNr As Global.System.Data.DataColumn Private columnEmpfängerName_1 As Global.System.Data.DataColumn Private columnEmpfängerName_2 As Global.System.Data.DataColumn Private columnEmpfängerStraße As Global.System.Data.DataColumn Private columnEmpfängerOrt As Global.System.Data.DataColumn Private columnEmpfängerOffertenNr As Global.System.Data.DataColumn Private columnVermittlerLandKz As Global.System.Data.DataColumn Private columnVermittlerKundenNr As Global.System.Data.DataColumn Private columnVermittlerName_1 As Global.System.Data.DataColumn Private columnVermittlerName_2 As Global.System.Data.DataColumn Private columnVermittlerStraße As Global.System.Data.DataColumn Private columnVermittlerOrt As Global.System.Data.DataColumn Private columnVermittlerOffertenNr As Global.System.Data.DataColumn Private columnRechnung_an As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnRechnungsLandKz As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnRechnungsName_1 As Global.System.Data.DataColumn Private columnRechnungsName_2 As Global.System.Data.DataColumn Private columnRechnungsStraße As Global.System.Data.DataColumn Private columnRechnungsOrt As Global.System.Data.DataColumn Private columnRechnungsUstIdKz As Global.System.Data.DataColumn Private columnRechnungsUstIdNr As Global.System.Data.DataColumn Private columnRechnungsUstIdGeprüft As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private _columnKunden_SVS As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnLKW_Kennzeichen As Global.System.Data.DataColumn Private columnWährungsNr As Global.System.Data.DataColumn Private columnWert As Global.System.Data.DataColumn Private columnUmrechnungskurs As Global.System.Data.DataColumn Private columnPackstücke_und_Warenbezeichnung As Global.System.Data.DataColumn Private columnVermerk As Global.System.Data.DataColumn Private columnAnlage_1 As Global.System.Data.DataColumn Private columnAnlage_2 As Global.System.Data.DataColumn Private columnAnlage_3 As Global.System.Data.DataColumn Private columnAnlage_4 As Global.System.Data.DataColumn Private columnAnlage_5 As Global.System.Data.DataColumn Private columnAnlage_6 As Global.System.Data.DataColumn Private columnOffertenNr As Global.System.Data.DataColumn Private _columnVorlageprovision__ As Global.System.Data.DataColumn Private _columnKreditaufwendungen__ As Global.System.Data.DataColumn Private columnBesonderheiten As Global.System.Data.DataColumn Private columnVorkasse As Global.System.Data.DataColumn Private columnText As Global.System.Data.DataColumn Private columnSteuerpflichtigerGesamtbetrag As Global.System.Data.DataColumn Private columnSteuerfreierGesamtbetrag As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnDruckDatumZeit As Global.System.Data.DataColumn Private columnAbfertigungskosten As Global.System.Data.DataColumn Private columnVorkosten As Global.System.Data.DataColumn Private columnErlös As Global.System.Data.DataColumn Private columnBuchungsjahr As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnTrdin As Global.System.Data.DataColumn Private columnKartenNr As Global.System.Data.DataColumn Private columnRefFilialenNr As Global.System.Data.DataColumn Private columnRefAbfertigungsNr As Global.System.Data.DataColumn Private columnRefUnterNr As Global.System.Data.DataColumn Private columnNotiz As Global.System.Data.DataColumn Private columnZucker_MRN_Nr As Global.System.Data.DataColumn Private columnZucker_MRN_Datum As Global.System.Data.DataColumn Private columnZucker_Aufschub As Global.System.Data.DataColumn Private columnReErfZeitstempel As Global.System.Data.DataColumn Private columnNettozahlungsziel As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnSpeditionsbuchUnterNr As Global.System.Data.DataColumn Private columnErfassungsNr As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectRK" 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 RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property RechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsNr End Get End Property _ Public ReadOnly Property RechnungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsDatum End Get End Property _ Public ReadOnly Property SammelrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnung End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property BelegartenKzColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenKz End Get End Property _ Public ReadOnly Property BelegartenBezColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenBez End Get End Property _ Public ReadOnly Property VorzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorzeichen End Get End Property _ Public ReadOnly Property BelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegNr End Get End Property _ Public ReadOnly Property AbsenderLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderLandKz End Get End Property _ Public ReadOnly Property AbsenderKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderKundenNr End Get End Property _ Public ReadOnly Property AbsenderName_1Column() As Global.System.Data.DataColumn Get Return Me.columnAbsenderName_1 End Get End Property _ Public ReadOnly Property AbsenderName_2Column() As Global.System.Data.DataColumn Get Return Me.columnAbsenderName_2 End Get End Property _ Public ReadOnly Property AbsenderStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderStraße End Get End Property _ Public ReadOnly Property AbsenderOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOrt End Get End Property _ Public ReadOnly Property AbsenderOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOffertenNr End Get End Property _ Public ReadOnly Property EmpfängerLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerLandKz End Get End Property _ Public ReadOnly Property EmpfängerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerKundenNr End Get End Property _ Public ReadOnly Property EmpfängerName_1Column() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerName_1 End Get End Property _ Public ReadOnly Property EmpfängerName_2Column() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerName_2 End Get End Property _ Public ReadOnly Property EmpfängerStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerStraße End Get End Property _ Public ReadOnly Property EmpfängerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOrt End Get End Property _ Public ReadOnly Property EmpfängerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOffertenNr End Get End Property _ Public ReadOnly Property VermittlerLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerLandKz End Get End Property _ Public ReadOnly Property VermittlerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerKundenNr End Get End Property _ Public ReadOnly Property VermittlerName_1Column() As Global.System.Data.DataColumn Get Return Me.columnVermittlerName_1 End Get End Property _ Public ReadOnly Property VermittlerName_2Column() As Global.System.Data.DataColumn Get Return Me.columnVermittlerName_2 End Get End Property _ Public ReadOnly Property VermittlerStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerStraße End Get End Property _ Public ReadOnly Property VermittlerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOrt End Get End Property _ Public ReadOnly Property VermittlerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOffertenNr End Get End Property _ Public ReadOnly Property Rechnung_anColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnung_an End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property RechnungsLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsLandKz End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property RechnungsName_1Column() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_1 End Get End Property _ Public ReadOnly Property RechnungsName_2Column() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_2 End Get End Property _ Public ReadOnly Property RechnungsStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsStraße End Get End Property _ Public ReadOnly Property RechnungsOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsOrt End Get End Property _ Public ReadOnly Property RechnungsUstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdKz End Get End Property _ Public ReadOnly Property RechnungsUstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdNr End Get End Property _ Public ReadOnly Property RechnungsUstIdGeprüftColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdGeprüft End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property _Kunden_SVSColumn() As Global.System.Data.DataColumn Get Return Me._columnKunden_SVS End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property LKW_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnLKW_Kennzeichen End Get End Property _ Public ReadOnly Property WährungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungsNr End Get End Property _ Public ReadOnly Property WertColumn() As Global.System.Data.DataColumn Get Return Me.columnWert End Get End Property _ Public ReadOnly Property UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUmrechnungskurs End Get End Property _ Public ReadOnly Property Packstücke_und_WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnPackstücke_und_Warenbezeichnung End Get End Property _ Public ReadOnly Property VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnVermerk End Get End Property _ Public ReadOnly Property Anlage_1Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_1 End Get End Property _ Public ReadOnly Property Anlage_2Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_2 End Get End Property _ Public ReadOnly Property Anlage_3Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_3 End Get End Property _ Public ReadOnly Property Anlage_4Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_4 End Get End Property _ Public ReadOnly Property Anlage_5Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_5 End Get End Property _ Public ReadOnly Property Anlage_6Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_6 End Get End Property _ Public ReadOnly Property OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property _Vorlageprovision__Column() As Global.System.Data.DataColumn Get Return Me._columnVorlageprovision__ End Get End Property _ Public ReadOnly Property _Kreditaufwendungen__Column() As Global.System.Data.DataColumn Get Return Me._columnKreditaufwendungen__ End Get End Property _ Public ReadOnly Property BesonderheitenColumn() As Global.System.Data.DataColumn Get Return Me.columnBesonderheiten End Get End Property _ Public ReadOnly Property VorkasseColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkasse End Get End Property _ Public ReadOnly Property TextColumn() As Global.System.Data.DataColumn Get Return Me.columnText End Get End Property _ Public ReadOnly Property SteuerpflichtigerGesamtbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerGesamtbetrag End Get End Property _ Public ReadOnly Property SteuerfreierGesamtbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierGesamtbetrag End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property DruckDatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnDruckDatumZeit End Get End Property _ Public ReadOnly Property AbfertigungskostenColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungskosten End Get End Property _ Public ReadOnly Property VorkostenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkosten End Get End Property _ Public ReadOnly Property ErlösColumn() As Global.System.Data.DataColumn Get Return Me.columnErlös End Get End Property _ Public ReadOnly Property BuchungsjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsjahr End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property TrdinColumn() As Global.System.Data.DataColumn Get Return Me.columnTrdin End Get End Property _ Public ReadOnly Property KartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenNr End Get End Property _ Public ReadOnly Property RefFilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefFilialenNr End Get End Property _ Public ReadOnly Property RefAbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefAbfertigungsNr End Get End Property _ Public ReadOnly Property RefUnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefUnterNr End Get End Property _ Public ReadOnly Property NotizColumn() As Global.System.Data.DataColumn Get Return Me.columnNotiz End Get End Property _ Public ReadOnly Property Zucker_MRN_NrColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Nr End Get End Property _ Public ReadOnly Property Zucker_MRN_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Datum End Get End Property _ Public ReadOnly Property Zucker_AufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_Aufschub End Get End Property _ Public ReadOnly Property ReErfZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnReErfZeitstempel End Get End Property _ Public ReadOnly Property NettozahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnNettozahlungsziel End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property SpeditionsbuchUnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuchUnterNr End Get End Property _ Public ReadOnly Property ErfassungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnErfassungsNr End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spSelectRKRow Get Return CType(Me.Rows(index),spSelectRKRow) End Get End Property _ Public Event spSelectRKRowChanging As spSelectRKRowChangeEventHandler _ Public Event spSelectRKRowChanged As spSelectRKRowChangeEventHandler _ Public Event spSelectRKRowDeleting As spSelectRKRowChangeEventHandler _ Public Event spSelectRKRowDeleted As spSelectRKRowChangeEventHandler _ Public Overloads Sub AddspSelectRKRow(ByVal row As spSelectRKRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectRKRow( _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal RechnungsNr As Integer, _ ByVal RechnungsDatum As Date, _ ByVal Sammelrechnung As Short, _ ByVal BelegartenNr As Short, _ ByVal BelegartenKz As String, _ ByVal BelegartenBez As String, _ ByVal Vorzeichen As String, _ ByVal BelegNr As String, _ ByVal AbsenderLandKz As String, _ ByVal AbsenderKundenNr As Integer, _ ByVal AbsenderName_1 As String, _ ByVal AbsenderName_2 As String, _ ByVal AbsenderStraße As String, _ ByVal AbsenderOrt As String, _ ByVal AbsenderOffertenNr As Short, _ ByVal EmpfängerLandKz As String, _ ByVal EmpfängerKundenNr As Integer, _ ByVal EmpfängerName_1 As String, _ ByVal EmpfängerName_2 As String, _ ByVal EmpfängerStraße As String, _ ByVal EmpfängerOrt As String, _ ByVal EmpfängerOffertenNr As Short, _ ByVal VermittlerLandKz As String, _ ByVal VermittlerKundenNr As Integer, _ ByVal VermittlerName_1 As String, _ ByVal VermittlerName_2 As String, _ ByVal VermittlerStraße As String, _ ByVal VermittlerOrt As String, _ ByVal VermittlerOffertenNr As Short, _ ByVal Rechnung_an As Short, _ ByVal KundenNrZentrale As Integer, _ ByVal RechnungsLandKz As String, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsName_1 As String, _ ByVal RechnungsName_2 As String, _ ByVal RechnungsStraße As String, _ ByVal RechnungsOrt As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal RechnungsUstIdGeprüft As Date, _ ByVal Lastschrift As Boolean, _ ByVal _Kunden_SVS As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal _Steuersatz__ As Single, _ ByVal LKW_Kennzeichen As String, _ ByVal WährungsNr As Short, _ ByVal Wert As Decimal, _ ByVal Umrechnungskurs As Double, _ ByVal Packstücke_und_Warenbezeichnung As String, _ ByVal Vermerk As String, _ ByVal Anlage_1 As String, _ ByVal Anlage_2 As String, _ ByVal Anlage_3 As String, _ ByVal Anlage_4 As String, _ ByVal Anlage_5 As String, _ ByVal Anlage_6 As String, _ ByVal OffertenNr As Short, _ ByVal _Vorlageprovision__ As Single, _ ByVal _Kreditaufwendungen__ As Single, _ ByVal Besonderheiten As String, _ ByVal Vorkasse As Boolean, _ ByVal Text As String, _ ByVal SteuerpflichtigerGesamtbetrag As Decimal, _ ByVal SteuerfreierGesamtbetrag As Decimal, _ ByVal Status As Short, _ ByVal DruckDatumZeit As Date, _ ByVal Abfertigungskosten As Decimal, _ ByVal Vorkosten As Decimal, _ ByVal Erlös As Decimal, _ ByVal Buchungsjahr As Short, _ ByVal Währungscode As String, _ ByVal Sachbearbeiter As String, _ ByVal Trdin As Boolean, _ ByVal KartenNr As String, _ ByVal RefFilialenNr As Short, _ ByVal RefAbfertigungsNr As Integer, _ ByVal RefUnterNr As Short, _ ByVal Notiz As String, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Date, _ ByVal Zucker_Aufschub As String, _ ByVal ReErfZeitstempel As Date, _ ByVal Nettozahlungsziel As Short, _ ByVal Firma_ID As Short, _ ByVal SpeditionsbuchUnterNr As Short, _ ByVal ErfassungsNr As String, _ ByVal upsize_ts() As Byte) As spSelectRKRow Dim rowspSelectRKRow As spSelectRKRow = CType(Me.NewRow,spSelectRKRow) Dim columnValuesArray() As Object = New Object() {Nothing, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, RechnungsNr, RechnungsDatum, Sammelrechnung, BelegartenNr, BelegartenKz, BelegartenBez, Vorzeichen, BelegNr, AbsenderLandKz, AbsenderKundenNr, AbsenderName_1, AbsenderName_2, AbsenderStraße, AbsenderOrt, AbsenderOffertenNr, EmpfängerLandKz, EmpfängerKundenNr, EmpfängerName_1, EmpfängerName_2, EmpfängerStraße, EmpfängerOrt, EmpfängerOffertenNr, VermittlerLandKz, VermittlerKundenNr, VermittlerName_1, VermittlerName_2, VermittlerStraße, VermittlerOrt, VermittlerOffertenNr, Rechnung_an, KundenNrZentrale, RechnungsLandKz, RechnungsKundenNr, RechnungsName_1, RechnungsName_2, RechnungsStraße, RechnungsOrt, RechnungsUstIdKz, RechnungsUstIdNr, RechnungsUstIdGeprüft, Lastschrift, _Kunden_SVS, Steuerschlüssel, _Steuersatz__, LKW_Kennzeichen, WährungsNr, Wert, Umrechnungskurs, Packstücke_und_Warenbezeichnung, Vermerk, Anlage_1, Anlage_2, Anlage_3, Anlage_4, Anlage_5, Anlage_6, OffertenNr, _Vorlageprovision__, _Kreditaufwendungen__, Besonderheiten, Vorkasse, Text, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, Status, DruckDatumZeit, Abfertigungskosten, Vorkosten, Erlös, Buchungsjahr, Währungscode, Sachbearbeiter, Trdin, KartenNr, RefFilialenNr, RefAbfertigungsNr, RefUnterNr, Notiz, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, ReErfZeitstempel, Nettozahlungsziel, Firma_ID, SpeditionsbuchUnterNr, ErfassungsNr, upsize_ts} rowspSelectRKRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectRKRow) Return rowspSelectRKRow End Function _ Public Function FindByRK_ID(ByVal RK_ID As Integer) As spSelectRKRow Return CType(Me.Rows.Find(New Object() {RK_ID}),spSelectRKRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectRKDataTable = CType(MyBase.Clone,spSelectRKDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectRKDataTable() End Function _ Friend Sub InitVars() Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnRechnungsNr = MyBase.Columns("RechnungsNr") Me.columnRechnungsDatum = MyBase.Columns("RechnungsDatum") Me.columnSammelrechnung = MyBase.Columns("Sammelrechnung") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnBelegartenKz = MyBase.Columns("BelegartenKz") Me.columnBelegartenBez = MyBase.Columns("BelegartenBez") Me.columnVorzeichen = MyBase.Columns("Vorzeichen") Me.columnBelegNr = MyBase.Columns("BelegNr") Me.columnAbsenderLandKz = MyBase.Columns("AbsenderLandKz") Me.columnAbsenderKundenNr = MyBase.Columns("AbsenderKundenNr") Me.columnAbsenderName_1 = MyBase.Columns("AbsenderName 1") Me.columnAbsenderName_2 = MyBase.Columns("AbsenderName 2") Me.columnAbsenderStraße = MyBase.Columns("AbsenderStraße") Me.columnAbsenderOrt = MyBase.Columns("AbsenderOrt") Me.columnAbsenderOffertenNr = MyBase.Columns("AbsenderOffertenNr") Me.columnEmpfängerLandKz = MyBase.Columns("EmpfängerLandKz") Me.columnEmpfängerKundenNr = MyBase.Columns("EmpfängerKundenNr") Me.columnEmpfängerName_1 = MyBase.Columns("EmpfängerName 1") Me.columnEmpfängerName_2 = MyBase.Columns("EmpfängerName 2") Me.columnEmpfängerStraße = MyBase.Columns("EmpfängerStraße") Me.columnEmpfängerOrt = MyBase.Columns("EmpfängerOrt") Me.columnEmpfängerOffertenNr = MyBase.Columns("EmpfängerOffertenNr") Me.columnVermittlerLandKz = MyBase.Columns("VermittlerLandKz") Me.columnVermittlerKundenNr = MyBase.Columns("VermittlerKundenNr") Me.columnVermittlerName_1 = MyBase.Columns("VermittlerName 1") Me.columnVermittlerName_2 = MyBase.Columns("VermittlerName 2") Me.columnVermittlerStraße = MyBase.Columns("VermittlerStraße") Me.columnVermittlerOrt = MyBase.Columns("VermittlerOrt") Me.columnVermittlerOffertenNr = MyBase.Columns("VermittlerOffertenNr") Me.columnRechnung_an = MyBase.Columns("Rechnung an") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnRechnungsLandKz = MyBase.Columns("RechnungsLandKz") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnRechnungsName_1 = MyBase.Columns("RechnungsName 1") Me.columnRechnungsName_2 = MyBase.Columns("RechnungsName 2") Me.columnRechnungsStraße = MyBase.Columns("RechnungsStraße") Me.columnRechnungsOrt = MyBase.Columns("RechnungsOrt") Me.columnRechnungsUstIdKz = MyBase.Columns("RechnungsUstIdKz") Me.columnRechnungsUstIdNr = MyBase.Columns("RechnungsUstIdNr") Me.columnRechnungsUstIdGeprüft = MyBase.Columns("RechnungsUstIdGeprüft") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me._columnKunden_SVS = MyBase.Columns("Kunden-SVS") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnLKW_Kennzeichen = MyBase.Columns("LKW Kennzeichen") Me.columnWährungsNr = MyBase.Columns("WährungsNr") Me.columnWert = MyBase.Columns("Wert") Me.columnUmrechnungskurs = MyBase.Columns("Umrechnungskurs") Me.columnPackstücke_und_Warenbezeichnung = MyBase.Columns("Packstücke und Warenbezeichnung") Me.columnVermerk = MyBase.Columns("Vermerk") Me.columnAnlage_1 = MyBase.Columns("Anlage 1") Me.columnAnlage_2 = MyBase.Columns("Anlage 2") Me.columnAnlage_3 = MyBase.Columns("Anlage 3") Me.columnAnlage_4 = MyBase.Columns("Anlage 4") Me.columnAnlage_5 = MyBase.Columns("Anlage 5") Me.columnAnlage_6 = MyBase.Columns("Anlage 6") Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me._columnVorlageprovision__ = MyBase.Columns("Vorlageprovision %") Me._columnKreditaufwendungen__ = MyBase.Columns("Kreditaufwendungen %") Me.columnBesonderheiten = MyBase.Columns("Besonderheiten") Me.columnVorkasse = MyBase.Columns("Vorkasse") Me.columnText = MyBase.Columns("Text") Me.columnSteuerpflichtigerGesamtbetrag = MyBase.Columns("SteuerpflichtigerGesamtbetrag") Me.columnSteuerfreierGesamtbetrag = MyBase.Columns("SteuerfreierGesamtbetrag") Me.columnStatus = MyBase.Columns("Status") Me.columnDruckDatumZeit = MyBase.Columns("DruckDatumZeit") Me.columnAbfertigungskosten = MyBase.Columns("Abfertigungskosten") Me.columnVorkosten = MyBase.Columns("Vorkosten") Me.columnErlös = MyBase.Columns("Erlös") Me.columnBuchungsjahr = MyBase.Columns("Buchungsjahr") Me.columnWährungscode = MyBase.Columns("Währungscode") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnTrdin = MyBase.Columns("Trdin") Me.columnKartenNr = MyBase.Columns("KartenNr") Me.columnRefFilialenNr = MyBase.Columns("RefFilialenNr") Me.columnRefAbfertigungsNr = MyBase.Columns("RefAbfertigungsNr") Me.columnRefUnterNr = MyBase.Columns("RefUnterNr") Me.columnNotiz = MyBase.Columns("Notiz") Me.columnZucker_MRN_Nr = MyBase.Columns("Zucker_MRN_Nr") Me.columnZucker_MRN_Datum = MyBase.Columns("Zucker_MRN_Datum") Me.columnZucker_Aufschub = MyBase.Columns("Zucker_Aufschub") Me.columnReErfZeitstempel = MyBase.Columns("ReErfZeitstempel") Me.columnNettozahlungsziel = MyBase.Columns("Nettozahlungsziel") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnSpeditionsbuchUnterNr = MyBase.Columns("SpeditionsbuchUnterNr") Me.columnErfassungsNr = MyBase.Columns("ErfassungsNr") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnRechnungsNr = New Global.System.Data.DataColumn("RechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsNr) Me.columnRechnungsDatum = New Global.System.Data.DataColumn("RechnungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsDatum) Me.columnSammelrechnung = New Global.System.Data.DataColumn("Sammelrechnung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnung) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnBelegartenKz = New Global.System.Data.DataColumn("BelegartenKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenKz) Me.columnBelegartenBez = New Global.System.Data.DataColumn("BelegartenBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenBez) Me.columnVorzeichen = New Global.System.Data.DataColumn("Vorzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorzeichen) Me.columnBelegNr = New Global.System.Data.DataColumn("BelegNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegNr) Me.columnAbsenderLandKz = New Global.System.Data.DataColumn("AbsenderLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderLandKz) Me.columnAbsenderKundenNr = New Global.System.Data.DataColumn("AbsenderKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderKundenNr) Me.columnAbsenderName_1 = New Global.System.Data.DataColumn("AbsenderName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderName_1) Me.columnAbsenderName_2 = New Global.System.Data.DataColumn("AbsenderName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderName_2) Me.columnAbsenderStraße = New Global.System.Data.DataColumn("AbsenderStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderStraße) Me.columnAbsenderOrt = New Global.System.Data.DataColumn("AbsenderOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOrt) Me.columnAbsenderOffertenNr = New Global.System.Data.DataColumn("AbsenderOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOffertenNr) Me.columnEmpfängerLandKz = New Global.System.Data.DataColumn("EmpfängerLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerLandKz) Me.columnEmpfängerKundenNr = New Global.System.Data.DataColumn("EmpfängerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerKundenNr) Me.columnEmpfängerName_1 = New Global.System.Data.DataColumn("EmpfängerName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerName_1) Me.columnEmpfängerName_2 = New Global.System.Data.DataColumn("EmpfängerName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerName_2) Me.columnEmpfängerStraße = New Global.System.Data.DataColumn("EmpfängerStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerStraße) Me.columnEmpfängerOrt = New Global.System.Data.DataColumn("EmpfängerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOrt) Me.columnEmpfängerOffertenNr = New Global.System.Data.DataColumn("EmpfängerOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOffertenNr) Me.columnVermittlerLandKz = New Global.System.Data.DataColumn("VermittlerLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerLandKz) Me.columnVermittlerKundenNr = New Global.System.Data.DataColumn("VermittlerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerKundenNr) Me.columnVermittlerName_1 = New Global.System.Data.DataColumn("VermittlerName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerName_1) Me.columnVermittlerName_2 = New Global.System.Data.DataColumn("VermittlerName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerName_2) Me.columnVermittlerStraße = New Global.System.Data.DataColumn("VermittlerStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerStraße) Me.columnVermittlerOrt = New Global.System.Data.DataColumn("VermittlerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOrt) Me.columnVermittlerOffertenNr = New Global.System.Data.DataColumn("VermittlerOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOffertenNr) Me.columnRechnung_an = New Global.System.Data.DataColumn("Rechnung an", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnung_an) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnRechnungsLandKz = New Global.System.Data.DataColumn("RechnungsLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsLandKz) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnRechnungsName_1 = New Global.System.Data.DataColumn("RechnungsName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_1) Me.columnRechnungsName_2 = New Global.System.Data.DataColumn("RechnungsName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_2) Me.columnRechnungsStraße = New Global.System.Data.DataColumn("RechnungsStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsStraße) Me.columnRechnungsOrt = New Global.System.Data.DataColumn("RechnungsOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsOrt) Me.columnRechnungsUstIdKz = New Global.System.Data.DataColumn("RechnungsUstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdKz) Me.columnRechnungsUstIdNr = New Global.System.Data.DataColumn("RechnungsUstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdNr) Me.columnRechnungsUstIdGeprüft = New Global.System.Data.DataColumn("RechnungsUstIdGeprüft", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdGeprüft) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me._columnKunden_SVS = New Global.System.Data.DataColumn("Kunden-SVS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me._columnKunden_SVS.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnKunden_SVS") Me._columnKunden_SVS.ExtendedProperties.Add("Generator_UserColumnName", "Kunden-SVS") MyBase.Columns.Add(Me._columnKunden_SVS) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnLKW_Kennzeichen = New Global.System.Data.DataColumn("LKW Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLKW_Kennzeichen) Me.columnWährungsNr = New Global.System.Data.DataColumn("WährungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungsNr) Me.columnWert = New Global.System.Data.DataColumn("Wert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWert) Me.columnUmrechnungskurs = New Global.System.Data.DataColumn("Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmrechnungskurs) Me.columnPackstücke_und_Warenbezeichnung = New Global.System.Data.DataColumn("Packstücke und Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPackstücke_und_Warenbezeichnung) Me.columnVermerk = New Global.System.Data.DataColumn("Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermerk) Me.columnAnlage_1 = New Global.System.Data.DataColumn("Anlage 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_1) Me.columnAnlage_2 = New Global.System.Data.DataColumn("Anlage 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_2) Me.columnAnlage_3 = New Global.System.Data.DataColumn("Anlage 3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_3) Me.columnAnlage_4 = New Global.System.Data.DataColumn("Anlage 4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_4) Me.columnAnlage_5 = New Global.System.Data.DataColumn("Anlage 5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_5) Me.columnAnlage_6 = New Global.System.Data.DataColumn("Anlage 6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_6) Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me._columnVorlageprovision__ = New Global.System.Data.DataColumn("Vorlageprovision %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnVorlageprovision__") Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_UserColumnName", "Vorlageprovision %") MyBase.Columns.Add(Me._columnVorlageprovision__) Me._columnKreditaufwendungen__ = New Global.System.Data.DataColumn("Kreditaufwendungen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnKreditaufwendungen__") Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_UserColumnName", "Kreditaufwendungen %") MyBase.Columns.Add(Me._columnKreditaufwendungen__) Me.columnBesonderheiten = New Global.System.Data.DataColumn("Besonderheiten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesonderheiten) Me.columnVorkasse = New Global.System.Data.DataColumn("Vorkasse", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkasse) Me.columnText = New Global.System.Data.DataColumn("Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnText) Me.columnSteuerpflichtigerGesamtbetrag = New Global.System.Data.DataColumn("SteuerpflichtigerGesamtbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerGesamtbetrag) Me.columnSteuerfreierGesamtbetrag = New Global.System.Data.DataColumn("SteuerfreierGesamtbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierGesamtbetrag) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnDruckDatumZeit = New Global.System.Data.DataColumn("DruckDatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDruckDatumZeit) Me.columnAbfertigungskosten = New Global.System.Data.DataColumn("Abfertigungskosten", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungskosten) Me.columnVorkosten = New Global.System.Data.DataColumn("Vorkosten", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkosten) Me.columnErlös = New Global.System.Data.DataColumn("Erlös", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErlös) Me.columnBuchungsjahr = New Global.System.Data.DataColumn("Buchungsjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsjahr) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnTrdin = New Global.System.Data.DataColumn("Trdin", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTrdin) Me.columnKartenNr = New Global.System.Data.DataColumn("KartenNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenNr) Me.columnRefFilialenNr = New Global.System.Data.DataColumn("RefFilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefFilialenNr) Me.columnRefAbfertigungsNr = New Global.System.Data.DataColumn("RefAbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefAbfertigungsNr) Me.columnRefUnterNr = New Global.System.Data.DataColumn("RefUnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefUnterNr) Me.columnNotiz = New Global.System.Data.DataColumn("Notiz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNotiz) Me.columnZucker_MRN_Nr = New Global.System.Data.DataColumn("Zucker_MRN_Nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Nr) Me.columnZucker_MRN_Datum = New Global.System.Data.DataColumn("Zucker_MRN_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Datum) Me.columnZucker_Aufschub = New Global.System.Data.DataColumn("Zucker_Aufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_Aufschub) Me.columnReErfZeitstempel = New Global.System.Data.DataColumn("ReErfZeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReErfZeitstempel) Me.columnNettozahlungsziel = New Global.System.Data.DataColumn("Nettozahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettozahlungsziel) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnSpeditionsbuchUnterNr = New Global.System.Data.DataColumn("SpeditionsbuchUnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuchUnterNr) Me.columnErfassungsNr = New Global.System.Data.DataColumn("ErfassungsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErfassungsNr) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID}, true)) Me.columnRK_ID.AutoIncrement = true Me.columnRK_ID.AllowDBNull = false Me.columnRK_ID.ReadOnly = true Me.columnRK_ID.Unique = true Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnAbfertigungsdatum.AllowDBNull = false Me.columnSammelrechnung.AllowDBNull = false Me.columnBelegartenNr.AllowDBNull = false Me.columnBelegartenKz.AllowDBNull = false Me.columnBelegartenKz.MaxLength = 2 Me.columnBelegartenBez.AllowDBNull = false Me.columnBelegartenBez.MaxLength = 10 Me.columnVorzeichen.AllowDBNull = false Me.columnVorzeichen.MaxLength = 1 Me.columnBelegNr.MaxLength = 27 Me.columnAbsenderLandKz.MaxLength = 3 Me.columnAbsenderName_1.MaxLength = 40 Me.columnAbsenderName_2.MaxLength = 40 Me.columnAbsenderStraße.MaxLength = 40 Me.columnAbsenderOrt.MaxLength = 52 Me.columnEmpfängerLandKz.MaxLength = 3 Me.columnEmpfängerName_1.MaxLength = 40 Me.columnEmpfängerName_2.MaxLength = 40 Me.columnEmpfängerStraße.MaxLength = 40 Me.columnEmpfängerOrt.MaxLength = 52 Me.columnVermittlerLandKz.MaxLength = 3 Me.columnVermittlerName_1.MaxLength = 40 Me.columnVermittlerName_2.MaxLength = 40 Me.columnVermittlerStraße.MaxLength = 40 Me.columnVermittlerOrt.MaxLength = 52 Me.columnRechnung_an.AllowDBNull = false Me.columnRechnungsLandKz.MaxLength = 3 Me.columnRechnungsKundenNr.AllowDBNull = false Me.columnRechnungsName_1.MaxLength = 40 Me.columnRechnungsName_2.MaxLength = 40 Me.columnRechnungsStraße.MaxLength = 40 Me.columnRechnungsOrt.MaxLength = 52 Me.columnRechnungsUstIdKz.MaxLength = 2 Me.columnRechnungsUstIdNr.MaxLength = 12 Me.columnLastschrift.AllowDBNull = false Me._columnKunden_SVS.AllowDBNull = false Me.columnSteuerschlüssel.AllowDBNull = false Me._columnSteuersatz__.AllowDBNull = false Me.columnLKW_Kennzeichen.MaxLength = 25 Me.columnPackstücke_und_Warenbezeichnung.MaxLength = 1073741823 Me.columnVermerk.MaxLength = 50 Me.columnAnlage_1.MaxLength = 35 Me.columnAnlage_2.MaxLength = 35 Me.columnAnlage_3.MaxLength = 35 Me.columnAnlage_4.MaxLength = 35 Me.columnAnlage_5.MaxLength = 35 Me.columnAnlage_6.MaxLength = 35 Me.columnBesonderheiten.MaxLength = 1073741823 Me.columnVorkasse.AllowDBNull = false Me.columnText.MaxLength = 1073741823 Me.columnWährungscode.MaxLength = 3 Me.columnSachbearbeiter.MaxLength = 15 Me.columnTrdin.AllowDBNull = false Me.columnKartenNr.MaxLength = 20 Me.columnNotiz.MaxLength = 1073741823 Me.columnZucker_MRN_Nr.MaxLength = 18 Me.columnZucker_Aufschub.MaxLength = 1 Me.columnFirma_ID.AllowDBNull = false Me.columnErfassungsNr.MaxLength = 255 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspSelectRKRow() As spSelectRKRow Return CType(Me.NewRow,spSelectRKRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectRKRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectRKRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectRKRowChangedEvent) Is Nothing) Then RaiseEvent spSelectRKRowChanged(Me, New spSelectRKRowChangeEvent(CType(e.Row,spSelectRKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectRKRowChangingEvent) Is Nothing) Then RaiseEvent spSelectRKRowChanging(Me, New spSelectRKRowChangeEvent(CType(e.Row,spSelectRKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectRKRowDeletedEvent) Is Nothing) Then RaiseEvent spSelectRKRowDeleted(Me, New spSelectRKRowChangeEvent(CType(e.Row,spSelectRKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectRKRowDeletingEvent) Is Nothing) Then RaiseEvent spSelectRKRowDeleting(Me, New spSelectRKRowChangeEvent(CType(e.Row,spSelectRKRow), e.Action)) End If End Sub _ Public Sub RemovespSelectRKRow(ByVal row As spSelectRKRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectRKDataTable" 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 spSelectRKPKeyDataTable Inherits Global.System.Data.TypedTableBase(Of spSelectRKPKeyRow) Private columnRK_ID As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnRechnungsNr As Global.System.Data.DataColumn Private columnRechnungsDatum As Global.System.Data.DataColumn Private columnSammelrechnung As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnBelegartenKz As Global.System.Data.DataColumn Private columnBelegartenBez As Global.System.Data.DataColumn Private columnVorzeichen As Global.System.Data.DataColumn Private columnBelegNr As Global.System.Data.DataColumn Private columnAbsenderLandKz As Global.System.Data.DataColumn Private columnAbsenderKundenNr As Global.System.Data.DataColumn Private columnAbsenderName_1 As Global.System.Data.DataColumn Private columnAbsenderName_2 As Global.System.Data.DataColumn Private columnAbsenderStraße As Global.System.Data.DataColumn Private columnAbsenderOrt As Global.System.Data.DataColumn Private columnAbsenderOffertenNr As Global.System.Data.DataColumn Private columnEmpfängerLandKz As Global.System.Data.DataColumn Private columnEmpfängerKundenNr As Global.System.Data.DataColumn Private columnEmpfängerName_1 As Global.System.Data.DataColumn Private columnEmpfängerName_2 As Global.System.Data.DataColumn Private columnEmpfängerStraße As Global.System.Data.DataColumn Private columnEmpfängerOrt As Global.System.Data.DataColumn Private columnEmpfängerOffertenNr As Global.System.Data.DataColumn Private columnVermittlerLandKz As Global.System.Data.DataColumn Private columnVermittlerKundenNr As Global.System.Data.DataColumn Private columnVermittlerName_1 As Global.System.Data.DataColumn Private columnVermittlerName_2 As Global.System.Data.DataColumn Private columnVermittlerStraße As Global.System.Data.DataColumn Private columnVermittlerOrt As Global.System.Data.DataColumn Private columnVermittlerOffertenNr As Global.System.Data.DataColumn Private columnRechnung_an As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnRechnungsLandKz As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnRechnungsName_1 As Global.System.Data.DataColumn Private columnRechnungsName_2 As Global.System.Data.DataColumn Private columnRechnungsStraße As Global.System.Data.DataColumn Private columnRechnungsOrt As Global.System.Data.DataColumn Private columnRechnungsUstIdKz As Global.System.Data.DataColumn Private columnRechnungsUstIdNr As Global.System.Data.DataColumn Private columnRechnungsUstIdGeprüft As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private _columnKunden_SVS As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnLKW_Kennzeichen As Global.System.Data.DataColumn Private columnWährungsNr As Global.System.Data.DataColumn Private columnWert As Global.System.Data.DataColumn Private columnUmrechnungskurs As Global.System.Data.DataColumn Private columnPackstücke_und_Warenbezeichnung As Global.System.Data.DataColumn Private columnVermerk As Global.System.Data.DataColumn Private columnAnlage_1 As Global.System.Data.DataColumn Private columnAnlage_2 As Global.System.Data.DataColumn Private columnAnlage_3 As Global.System.Data.DataColumn Private columnAnlage_4 As Global.System.Data.DataColumn Private columnAnlage_5 As Global.System.Data.DataColumn Private columnAnlage_6 As Global.System.Data.DataColumn Private columnOffertenNr As Global.System.Data.DataColumn Private _columnVorlageprovision__ As Global.System.Data.DataColumn Private _columnKreditaufwendungen__ As Global.System.Data.DataColumn Private columnBesonderheiten As Global.System.Data.DataColumn Private columnVorkasse As Global.System.Data.DataColumn Private columnText As Global.System.Data.DataColumn Private columnSteuerpflichtigerGesamtbetrag As Global.System.Data.DataColumn Private columnSteuerfreierGesamtbetrag As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnDruckDatumZeit As Global.System.Data.DataColumn Private columnAbfertigungskosten As Global.System.Data.DataColumn Private columnVorkosten As Global.System.Data.DataColumn Private columnErlös As Global.System.Data.DataColumn Private columnBuchungsjahr As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnTrdin As Global.System.Data.DataColumn Private columnKartenNr As Global.System.Data.DataColumn Private columnRefFilialenNr As Global.System.Data.DataColumn Private columnRefAbfertigungsNr As Global.System.Data.DataColumn Private columnRefUnterNr As Global.System.Data.DataColumn Private columnNotiz As Global.System.Data.DataColumn Private columnZucker_MRN_Nr As Global.System.Data.DataColumn Private columnZucker_MRN_Datum As Global.System.Data.DataColumn Private columnZucker_Aufschub As Global.System.Data.DataColumn Private columnReErfZeitstempel As Global.System.Data.DataColumn Private columnNettozahlungsziel As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnSpeditionsbuchUnterNr As Global.System.Data.DataColumn Private columnErfassungsNr As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnAvisiererKundenNr As Global.System.Data.DataColumn Private columnAvisierer As Global.System.Data.DataColumn Private columnEMailRechnungstext As Global.System.Data.DataColumn Private columnAvisoID As Global.System.Data.DataColumn Private columnKdAuftragsNr As Global.System.Data.DataColumn Private columnHandling As Global.System.Data.DataColumn Private columnVorschauID As Global.System.Data.DataColumn Private columnGrenze As Global.System.Data.DataColumn Private columnRechnungSprache As Global.System.Data.DataColumn Private columnFakturierungsGruppe As Global.System.Data.DataColumn Private columnTextZZ As Global.System.Data.DataColumn Private columnRechnungsName_AdressZusatz As Global.System.Data.DataColumn Private columnForceSteuerschlüssel As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectRKPKey" 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 RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property RechnungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsNr End Get End Property _ Public ReadOnly Property RechnungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsDatum End Get End Property _ Public ReadOnly Property SammelrechnungColumn() As Global.System.Data.DataColumn Get Return Me.columnSammelrechnung End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property BelegartenKzColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenKz End Get End Property _ Public ReadOnly Property BelegartenBezColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenBez End Get End Property _ Public ReadOnly Property VorzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorzeichen End Get End Property _ Public ReadOnly Property BelegNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegNr End Get End Property _ Public ReadOnly Property AbsenderLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderLandKz End Get End Property _ Public ReadOnly Property AbsenderKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderKundenNr End Get End Property _ Public ReadOnly Property AbsenderName_1Column() As Global.System.Data.DataColumn Get Return Me.columnAbsenderName_1 End Get End Property _ Public ReadOnly Property AbsenderName_2Column() As Global.System.Data.DataColumn Get Return Me.columnAbsenderName_2 End Get End Property _ Public ReadOnly Property AbsenderStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderStraße End Get End Property _ Public ReadOnly Property AbsenderOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOrt End Get End Property _ Public ReadOnly Property AbsenderOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsenderOffertenNr End Get End Property _ Public ReadOnly Property EmpfängerLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerLandKz End Get End Property _ Public ReadOnly Property EmpfängerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerKundenNr End Get End Property _ Public ReadOnly Property EmpfängerName_1Column() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerName_1 End Get End Property _ Public ReadOnly Property EmpfängerName_2Column() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerName_2 End Get End Property _ Public ReadOnly Property EmpfängerStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerStraße End Get End Property _ Public ReadOnly Property EmpfängerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOrt End Get End Property _ Public ReadOnly Property EmpfängerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfängerOffertenNr End Get End Property _ Public ReadOnly Property VermittlerLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerLandKz End Get End Property _ Public ReadOnly Property VermittlerKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerKundenNr End Get End Property _ Public ReadOnly Property VermittlerName_1Column() As Global.System.Data.DataColumn Get Return Me.columnVermittlerName_1 End Get End Property _ Public ReadOnly Property VermittlerName_2Column() As Global.System.Data.DataColumn Get Return Me.columnVermittlerName_2 End Get End Property _ Public ReadOnly Property VermittlerStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerStraße End Get End Property _ Public ReadOnly Property VermittlerOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOrt End Get End Property _ Public ReadOnly Property VermittlerOffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnVermittlerOffertenNr End Get End Property _ Public ReadOnly Property Rechnung_anColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnung_an End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property RechnungsLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsLandKz End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property RechnungsName_1Column() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_1 End Get End Property _ Public ReadOnly Property RechnungsName_2Column() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_2 End Get End Property _ Public ReadOnly Property RechnungsStraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsStraße End Get End Property _ Public ReadOnly Property RechnungsOrtColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsOrt End Get End Property _ Public ReadOnly Property RechnungsUstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdKz End Get End Property _ Public ReadOnly Property RechnungsUstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdNr End Get End Property _ Public ReadOnly Property RechnungsUstIdGeprüftColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdGeprüft End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property _Kunden_SVSColumn() As Global.System.Data.DataColumn Get Return Me._columnKunden_SVS End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property LKW_KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnLKW_Kennzeichen End Get End Property _ Public ReadOnly Property WährungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungsNr End Get End Property _ Public ReadOnly Property WertColumn() As Global.System.Data.DataColumn Get Return Me.columnWert End Get End Property _ Public ReadOnly Property UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUmrechnungskurs End Get End Property _ Public ReadOnly Property Packstücke_und_WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnPackstücke_und_Warenbezeichnung End Get End Property _ Public ReadOnly Property VermerkColumn() As Global.System.Data.DataColumn Get Return Me.columnVermerk End Get End Property _ Public ReadOnly Property Anlage_1Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_1 End Get End Property _ Public ReadOnly Property Anlage_2Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_2 End Get End Property _ Public ReadOnly Property Anlage_3Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_3 End Get End Property _ Public ReadOnly Property Anlage_4Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_4 End Get End Property _ Public ReadOnly Property Anlage_5Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_5 End Get End Property _ Public ReadOnly Property Anlage_6Column() As Global.System.Data.DataColumn Get Return Me.columnAnlage_6 End Get End Property _ Public ReadOnly Property OffertenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnOffertenNr End Get End Property _ Public ReadOnly Property _Vorlageprovision__Column() As Global.System.Data.DataColumn Get Return Me._columnVorlageprovision__ End Get End Property _ Public ReadOnly Property _Kreditaufwendungen__Column() As Global.System.Data.DataColumn Get Return Me._columnKreditaufwendungen__ End Get End Property _ Public ReadOnly Property BesonderheitenColumn() As Global.System.Data.DataColumn Get Return Me.columnBesonderheiten End Get End Property _ Public ReadOnly Property VorkasseColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkasse End Get End Property _ Public ReadOnly Property TextColumn() As Global.System.Data.DataColumn Get Return Me.columnText End Get End Property _ Public ReadOnly Property SteuerpflichtigerGesamtbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerGesamtbetrag End Get End Property _ Public ReadOnly Property SteuerfreierGesamtbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierGesamtbetrag End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property DruckDatumZeitColumn() As Global.System.Data.DataColumn Get Return Me.columnDruckDatumZeit End Get End Property _ Public ReadOnly Property AbfertigungskostenColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungskosten End Get End Property _ Public ReadOnly Property VorkostenColumn() As Global.System.Data.DataColumn Get Return Me.columnVorkosten End Get End Property _ Public ReadOnly Property ErlösColumn() As Global.System.Data.DataColumn Get Return Me.columnErlös End Get End Property _ Public ReadOnly Property BuchungsjahrColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungsjahr End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property TrdinColumn() As Global.System.Data.DataColumn Get Return Me.columnTrdin End Get End Property _ Public ReadOnly Property KartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKartenNr End Get End Property _ Public ReadOnly Property RefFilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefFilialenNr End Get End Property _ Public ReadOnly Property RefAbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefAbfertigungsNr End Get End Property _ Public ReadOnly Property RefUnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRefUnterNr End Get End Property _ Public ReadOnly Property NotizColumn() As Global.System.Data.DataColumn Get Return Me.columnNotiz End Get End Property _ Public ReadOnly Property Zucker_MRN_NrColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Nr End Get End Property _ Public ReadOnly Property Zucker_MRN_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_MRN_Datum End Get End Property _ Public ReadOnly Property Zucker_AufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnZucker_Aufschub End Get End Property _ Public ReadOnly Property ReErfZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnReErfZeitstempel End Get End Property _ Public ReadOnly Property NettozahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnNettozahlungsziel End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property SpeditionsbuchUnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuchUnterNr End Get End Property _ Public ReadOnly Property ErfassungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnErfassungsNr End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property AvisiererKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisiererKundenNr End Get End Property _ Public ReadOnly Property AvisiererColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisierer End Get End Property _ Public ReadOnly Property EMailRechnungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnEMailRechnungstext End Get End Property _ Public ReadOnly Property AvisoIDColumn() As Global.System.Data.DataColumn Get Return Me.columnAvisoID End Get End Property _ Public ReadOnly Property KdAuftragsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKdAuftragsNr End Get End Property _ Public ReadOnly Property HandlingColumn() As Global.System.Data.DataColumn Get Return Me.columnHandling End Get End Property _ Public ReadOnly Property VorschauIDColumn() As Global.System.Data.DataColumn Get Return Me.columnVorschauID End Get End Property _ Public ReadOnly Property GrenzeColumn() As Global.System.Data.DataColumn Get Return Me.columnGrenze End Get End Property _ Public ReadOnly Property RechnungSpracheColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungSprache End Get End Property _ Public ReadOnly Property FakturierungsGruppeColumn() As Global.System.Data.DataColumn Get Return Me.columnFakturierungsGruppe End Get End Property _ Public ReadOnly Property TextZZColumn() As Global.System.Data.DataColumn Get Return Me.columnTextZZ End Get End Property _ Public ReadOnly Property RechnungsName_AdressZusatzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsName_AdressZusatz End Get End Property _ Public ReadOnly Property ForceSteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnForceSteuerschlüssel 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 spSelectRKPKeyRow Get Return CType(Me.Rows(index),spSelectRKPKeyRow) End Get End Property _ Public Event spSelectRKPKeyRowChanging As spSelectRKPKeyRowChangeEventHandler _ Public Event spSelectRKPKeyRowChanged As spSelectRKPKeyRowChangeEventHandler _ Public Event spSelectRKPKeyRowDeleting As spSelectRKPKeyRowChangeEventHandler _ Public Event spSelectRKPKeyRowDeleted As spSelectRKPKeyRowChangeEventHandler _ Public Overloads Sub AddspSelectRKPKeyRow(ByVal row As spSelectRKPKeyRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectRKPKeyRow( _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal RechnungsNr As Integer, _ ByVal RechnungsDatum As Date, _ ByVal Sammelrechnung As Short, _ ByVal BelegartenNr As Short, _ ByVal BelegartenKz As String, _ ByVal BelegartenBez As String, _ ByVal Vorzeichen As String, _ ByVal BelegNr As String, _ ByVal AbsenderLandKz As String, _ ByVal AbsenderKundenNr As Integer, _ ByVal AbsenderName_1 As String, _ ByVal AbsenderName_2 As String, _ ByVal AbsenderStraße As String, _ ByVal AbsenderOrt As String, _ ByVal AbsenderOffertenNr As Short, _ ByVal EmpfängerLandKz As String, _ ByVal EmpfängerKundenNr As Integer, _ ByVal EmpfängerName_1 As String, _ ByVal EmpfängerName_2 As String, _ ByVal EmpfängerStraße As String, _ ByVal EmpfängerOrt As String, _ ByVal EmpfängerOffertenNr As Short, _ ByVal VermittlerLandKz As String, _ ByVal VermittlerKundenNr As Integer, _ ByVal VermittlerName_1 As String, _ ByVal VermittlerName_2 As String, _ ByVal VermittlerStraße As String, _ ByVal VermittlerOrt As String, _ ByVal VermittlerOffertenNr As Short, _ ByVal Rechnung_an As Short, _ ByVal KundenNrZentrale As Integer, _ ByVal RechnungsLandKz As String, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsName_1 As String, _ ByVal RechnungsName_2 As String, _ ByVal RechnungsStraße As String, _ ByVal RechnungsOrt As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal RechnungsUstIdGeprüft As Date, _ ByVal Lastschrift As Boolean, _ ByVal _Kunden_SVS As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal _Steuersatz__ As Single, _ ByVal LKW_Kennzeichen As String, _ ByVal WährungsNr As Short, _ ByVal Wert As Decimal, _ ByVal Umrechnungskurs As Double, _ ByVal Packstücke_und_Warenbezeichnung As String, _ ByVal Vermerk As String, _ ByVal Anlage_1 As String, _ ByVal Anlage_2 As String, _ ByVal Anlage_3 As String, _ ByVal Anlage_4 As String, _ ByVal Anlage_5 As String, _ ByVal Anlage_6 As String, _ ByVal OffertenNr As Short, _ ByVal _Vorlageprovision__ As Single, _ ByVal _Kreditaufwendungen__ As Single, _ ByVal Besonderheiten As String, _ ByVal Vorkasse As Boolean, _ ByVal Text As String, _ ByVal SteuerpflichtigerGesamtbetrag As Decimal, _ ByVal SteuerfreierGesamtbetrag As Decimal, _ ByVal Status As Short, _ ByVal DruckDatumZeit As Date, _ ByVal Abfertigungskosten As Decimal, _ ByVal Vorkosten As Decimal, _ ByVal Erlös As Decimal, _ ByVal Buchungsjahr As Short, _ ByVal Währungscode As String, _ ByVal Sachbearbeiter As String, _ ByVal Trdin As Boolean, _ ByVal KartenNr As String, _ ByVal RefFilialenNr As Short, _ ByVal RefAbfertigungsNr As Integer, _ ByVal RefUnterNr As Short, _ ByVal Notiz As String, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Date, _ ByVal Zucker_Aufschub As String, _ ByVal ReErfZeitstempel As Date, _ ByVal Nettozahlungsziel As Short, _ ByVal Firma_ID As Short, _ ByVal SpeditionsbuchUnterNr As Short, _ ByVal ErfassungsNr As String, _ ByVal upsize_ts() As Byte, _ ByVal AvisiererKundenNr As Integer, _ ByVal Avisierer As String, _ ByVal EMailRechnungstext As String, _ ByVal AvisoID As Integer, _ ByVal KdAuftragsNr As String, _ ByVal Handling As String, _ ByVal VorschauID As String, _ ByVal Grenze As String, _ ByVal RechnungSprache As String, _ ByVal FakturierungsGruppe As String, _ ByVal TextZZ As String, _ ByVal RechnungsName_AdressZusatz As String, _ ByVal ForceSteuerschlüssel As Short) As spSelectRKPKeyRow Dim rowspSelectRKPKeyRow As spSelectRKPKeyRow = CType(Me.NewRow,spSelectRKPKeyRow) Dim columnValuesArray() As Object = New Object() {Nothing, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, RechnungsNr, RechnungsDatum, Sammelrechnung, BelegartenNr, BelegartenKz, BelegartenBez, Vorzeichen, BelegNr, AbsenderLandKz, AbsenderKundenNr, AbsenderName_1, AbsenderName_2, AbsenderStraße, AbsenderOrt, AbsenderOffertenNr, EmpfängerLandKz, EmpfängerKundenNr, EmpfängerName_1, EmpfängerName_2, EmpfängerStraße, EmpfängerOrt, EmpfängerOffertenNr, VermittlerLandKz, VermittlerKundenNr, VermittlerName_1, VermittlerName_2, VermittlerStraße, VermittlerOrt, VermittlerOffertenNr, Rechnung_an, KundenNrZentrale, RechnungsLandKz, RechnungsKundenNr, RechnungsName_1, RechnungsName_2, RechnungsStraße, RechnungsOrt, RechnungsUstIdKz, RechnungsUstIdNr, RechnungsUstIdGeprüft, Lastschrift, _Kunden_SVS, Steuerschlüssel, _Steuersatz__, LKW_Kennzeichen, WährungsNr, Wert, Umrechnungskurs, Packstücke_und_Warenbezeichnung, Vermerk, Anlage_1, Anlage_2, Anlage_3, Anlage_4, Anlage_5, Anlage_6, OffertenNr, _Vorlageprovision__, _Kreditaufwendungen__, Besonderheiten, Vorkasse, Text, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, Status, DruckDatumZeit, Abfertigungskosten, Vorkosten, Erlös, Buchungsjahr, Währungscode, Sachbearbeiter, Trdin, KartenNr, RefFilialenNr, RefAbfertigungsNr, RefUnterNr, Notiz, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, ReErfZeitstempel, Nettozahlungsziel, Firma_ID, SpeditionsbuchUnterNr, ErfassungsNr, upsize_ts, AvisiererKundenNr, Avisierer, EMailRechnungstext, AvisoID, KdAuftragsNr, Handling, VorschauID, Grenze, RechnungSprache, FakturierungsGruppe, TextZZ, RechnungsName_AdressZusatz, ForceSteuerschlüssel} rowspSelectRKPKeyRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectRKPKeyRow) Return rowspSelectRKPKeyRow End Function _ Public Function FindByRK_ID(ByVal RK_ID As Integer) As spSelectRKPKeyRow Return CType(Me.Rows.Find(New Object() {RK_ID}),spSelectRKPKeyRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectRKPKeyDataTable = CType(MyBase.Clone,spSelectRKPKeyDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectRKPKeyDataTable() End Function _ Friend Sub InitVars() Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnRechnungsNr = MyBase.Columns("RechnungsNr") Me.columnRechnungsDatum = MyBase.Columns("RechnungsDatum") Me.columnSammelrechnung = MyBase.Columns("Sammelrechnung") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnBelegartenKz = MyBase.Columns("BelegartenKz") Me.columnBelegartenBez = MyBase.Columns("BelegartenBez") Me.columnVorzeichen = MyBase.Columns("Vorzeichen") Me.columnBelegNr = MyBase.Columns("BelegNr") Me.columnAbsenderLandKz = MyBase.Columns("AbsenderLandKz") Me.columnAbsenderKundenNr = MyBase.Columns("AbsenderKundenNr") Me.columnAbsenderName_1 = MyBase.Columns("AbsenderName 1") Me.columnAbsenderName_2 = MyBase.Columns("AbsenderName 2") Me.columnAbsenderStraße = MyBase.Columns("AbsenderStraße") Me.columnAbsenderOrt = MyBase.Columns("AbsenderOrt") Me.columnAbsenderOffertenNr = MyBase.Columns("AbsenderOffertenNr") Me.columnEmpfängerLandKz = MyBase.Columns("EmpfängerLandKz") Me.columnEmpfängerKundenNr = MyBase.Columns("EmpfängerKundenNr") Me.columnEmpfängerName_1 = MyBase.Columns("EmpfängerName 1") Me.columnEmpfängerName_2 = MyBase.Columns("EmpfängerName 2") Me.columnEmpfängerStraße = MyBase.Columns("EmpfängerStraße") Me.columnEmpfängerOrt = MyBase.Columns("EmpfängerOrt") Me.columnEmpfängerOffertenNr = MyBase.Columns("EmpfängerOffertenNr") Me.columnVermittlerLandKz = MyBase.Columns("VermittlerLandKz") Me.columnVermittlerKundenNr = MyBase.Columns("VermittlerKundenNr") Me.columnVermittlerName_1 = MyBase.Columns("VermittlerName 1") Me.columnVermittlerName_2 = MyBase.Columns("VermittlerName 2") Me.columnVermittlerStraße = MyBase.Columns("VermittlerStraße") Me.columnVermittlerOrt = MyBase.Columns("VermittlerOrt") Me.columnVermittlerOffertenNr = MyBase.Columns("VermittlerOffertenNr") Me.columnRechnung_an = MyBase.Columns("Rechnung an") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnRechnungsLandKz = MyBase.Columns("RechnungsLandKz") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnRechnungsName_1 = MyBase.Columns("RechnungsName 1") Me.columnRechnungsName_2 = MyBase.Columns("RechnungsName 2") Me.columnRechnungsStraße = MyBase.Columns("RechnungsStraße") Me.columnRechnungsOrt = MyBase.Columns("RechnungsOrt") Me.columnRechnungsUstIdKz = MyBase.Columns("RechnungsUstIdKz") Me.columnRechnungsUstIdNr = MyBase.Columns("RechnungsUstIdNr") Me.columnRechnungsUstIdGeprüft = MyBase.Columns("RechnungsUstIdGeprüft") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me._columnKunden_SVS = MyBase.Columns("Kunden-SVS") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnLKW_Kennzeichen = MyBase.Columns("LKW Kennzeichen") Me.columnWährungsNr = MyBase.Columns("WährungsNr") Me.columnWert = MyBase.Columns("Wert") Me.columnUmrechnungskurs = MyBase.Columns("Umrechnungskurs") Me.columnPackstücke_und_Warenbezeichnung = MyBase.Columns("Packstücke und Warenbezeichnung") Me.columnVermerk = MyBase.Columns("Vermerk") Me.columnAnlage_1 = MyBase.Columns("Anlage 1") Me.columnAnlage_2 = MyBase.Columns("Anlage 2") Me.columnAnlage_3 = MyBase.Columns("Anlage 3") Me.columnAnlage_4 = MyBase.Columns("Anlage 4") Me.columnAnlage_5 = MyBase.Columns("Anlage 5") Me.columnAnlage_6 = MyBase.Columns("Anlage 6") Me.columnOffertenNr = MyBase.Columns("OffertenNr") Me._columnVorlageprovision__ = MyBase.Columns("Vorlageprovision %") Me._columnKreditaufwendungen__ = MyBase.Columns("Kreditaufwendungen %") Me.columnBesonderheiten = MyBase.Columns("Besonderheiten") Me.columnVorkasse = MyBase.Columns("Vorkasse") Me.columnText = MyBase.Columns("Text") Me.columnSteuerpflichtigerGesamtbetrag = MyBase.Columns("SteuerpflichtigerGesamtbetrag") Me.columnSteuerfreierGesamtbetrag = MyBase.Columns("SteuerfreierGesamtbetrag") Me.columnStatus = MyBase.Columns("Status") Me.columnDruckDatumZeit = MyBase.Columns("DruckDatumZeit") Me.columnAbfertigungskosten = MyBase.Columns("Abfertigungskosten") Me.columnVorkosten = MyBase.Columns("Vorkosten") Me.columnErlös = MyBase.Columns("Erlös") Me.columnBuchungsjahr = MyBase.Columns("Buchungsjahr") Me.columnWährungscode = MyBase.Columns("Währungscode") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnTrdin = MyBase.Columns("Trdin") Me.columnKartenNr = MyBase.Columns("KartenNr") Me.columnRefFilialenNr = MyBase.Columns("RefFilialenNr") Me.columnRefAbfertigungsNr = MyBase.Columns("RefAbfertigungsNr") Me.columnRefUnterNr = MyBase.Columns("RefUnterNr") Me.columnNotiz = MyBase.Columns("Notiz") Me.columnZucker_MRN_Nr = MyBase.Columns("Zucker_MRN_Nr") Me.columnZucker_MRN_Datum = MyBase.Columns("Zucker_MRN_Datum") Me.columnZucker_Aufschub = MyBase.Columns("Zucker_Aufschub") Me.columnReErfZeitstempel = MyBase.Columns("ReErfZeitstempel") Me.columnNettozahlungsziel = MyBase.Columns("Nettozahlungsziel") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnSpeditionsbuchUnterNr = MyBase.Columns("SpeditionsbuchUnterNr") Me.columnErfassungsNr = MyBase.Columns("ErfassungsNr") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnAvisiererKundenNr = MyBase.Columns("AvisiererKundenNr") Me.columnAvisierer = MyBase.Columns("Avisierer") Me.columnEMailRechnungstext = MyBase.Columns("EMailRechnungstext") Me.columnAvisoID = MyBase.Columns("AvisoID") Me.columnKdAuftragsNr = MyBase.Columns("KdAuftragsNr") Me.columnHandling = MyBase.Columns("Handling") Me.columnVorschauID = MyBase.Columns("VorschauID") Me.columnGrenze = MyBase.Columns("Grenze") Me.columnRechnungSprache = MyBase.Columns("RechnungSprache") Me.columnFakturierungsGruppe = MyBase.Columns("FakturierungsGruppe") Me.columnTextZZ = MyBase.Columns("TextZZ") Me.columnRechnungsName_AdressZusatz = MyBase.Columns("RechnungsName_AdressZusatz") Me.columnForceSteuerschlüssel = MyBase.Columns("ForceSteuerschlüssel") End Sub _ Private Sub InitClass() Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnRechnungsNr = New Global.System.Data.DataColumn("RechnungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsNr) Me.columnRechnungsDatum = New Global.System.Data.DataColumn("RechnungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsDatum) Me.columnSammelrechnung = New Global.System.Data.DataColumn("Sammelrechnung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSammelrechnung) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnBelegartenKz = New Global.System.Data.DataColumn("BelegartenKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenKz) Me.columnBelegartenBez = New Global.System.Data.DataColumn("BelegartenBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenBez) Me.columnVorzeichen = New Global.System.Data.DataColumn("Vorzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorzeichen) Me.columnBelegNr = New Global.System.Data.DataColumn("BelegNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegNr) Me.columnAbsenderLandKz = New Global.System.Data.DataColumn("AbsenderLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderLandKz) Me.columnAbsenderKundenNr = New Global.System.Data.DataColumn("AbsenderKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderKundenNr) Me.columnAbsenderName_1 = New Global.System.Data.DataColumn("AbsenderName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderName_1) Me.columnAbsenderName_2 = New Global.System.Data.DataColumn("AbsenderName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderName_2) Me.columnAbsenderStraße = New Global.System.Data.DataColumn("AbsenderStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderStraße) Me.columnAbsenderOrt = New Global.System.Data.DataColumn("AbsenderOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOrt) Me.columnAbsenderOffertenNr = New Global.System.Data.DataColumn("AbsenderOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsenderOffertenNr) Me.columnEmpfängerLandKz = New Global.System.Data.DataColumn("EmpfängerLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerLandKz) Me.columnEmpfängerKundenNr = New Global.System.Data.DataColumn("EmpfängerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerKundenNr) Me.columnEmpfängerName_1 = New Global.System.Data.DataColumn("EmpfängerName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerName_1) Me.columnEmpfängerName_2 = New Global.System.Data.DataColumn("EmpfängerName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerName_2) Me.columnEmpfängerStraße = New Global.System.Data.DataColumn("EmpfängerStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerStraße) Me.columnEmpfängerOrt = New Global.System.Data.DataColumn("EmpfängerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOrt) Me.columnEmpfängerOffertenNr = New Global.System.Data.DataColumn("EmpfängerOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfängerOffertenNr) Me.columnVermittlerLandKz = New Global.System.Data.DataColumn("VermittlerLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerLandKz) Me.columnVermittlerKundenNr = New Global.System.Data.DataColumn("VermittlerKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerKundenNr) Me.columnVermittlerName_1 = New Global.System.Data.DataColumn("VermittlerName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerName_1) Me.columnVermittlerName_2 = New Global.System.Data.DataColumn("VermittlerName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerName_2) Me.columnVermittlerStraße = New Global.System.Data.DataColumn("VermittlerStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerStraße) Me.columnVermittlerOrt = New Global.System.Data.DataColumn("VermittlerOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOrt) Me.columnVermittlerOffertenNr = New Global.System.Data.DataColumn("VermittlerOffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermittlerOffertenNr) Me.columnRechnung_an = New Global.System.Data.DataColumn("Rechnung an", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnung_an) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnRechnungsLandKz = New Global.System.Data.DataColumn("RechnungsLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsLandKz) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnRechnungsName_1 = New Global.System.Data.DataColumn("RechnungsName 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_1) Me.columnRechnungsName_2 = New Global.System.Data.DataColumn("RechnungsName 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_2) Me.columnRechnungsStraße = New Global.System.Data.DataColumn("RechnungsStraße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsStraße) Me.columnRechnungsOrt = New Global.System.Data.DataColumn("RechnungsOrt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsOrt) Me.columnRechnungsUstIdKz = New Global.System.Data.DataColumn("RechnungsUstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdKz) Me.columnRechnungsUstIdNr = New Global.System.Data.DataColumn("RechnungsUstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdNr) Me.columnRechnungsUstIdGeprüft = New Global.System.Data.DataColumn("RechnungsUstIdGeprüft", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdGeprüft) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me._columnKunden_SVS = New Global.System.Data.DataColumn("Kunden-SVS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me._columnKunden_SVS.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnKunden_SVS") Me._columnKunden_SVS.ExtendedProperties.Add("Generator_UserColumnName", "Kunden-SVS") MyBase.Columns.Add(Me._columnKunden_SVS) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnLKW_Kennzeichen = New Global.System.Data.DataColumn("LKW Kennzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLKW_Kennzeichen) Me.columnWährungsNr = New Global.System.Data.DataColumn("WährungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungsNr) Me.columnWert = New Global.System.Data.DataColumn("Wert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWert) Me.columnUmrechnungskurs = New Global.System.Data.DataColumn("Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUmrechnungskurs) Me.columnPackstücke_und_Warenbezeichnung = New Global.System.Data.DataColumn("Packstücke und Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPackstücke_und_Warenbezeichnung) Me.columnVermerk = New Global.System.Data.DataColumn("Vermerk", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVermerk) Me.columnAnlage_1 = New Global.System.Data.DataColumn("Anlage 1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_1) Me.columnAnlage_2 = New Global.System.Data.DataColumn("Anlage 2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_2) Me.columnAnlage_3 = New Global.System.Data.DataColumn("Anlage 3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_3) Me.columnAnlage_4 = New Global.System.Data.DataColumn("Anlage 4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_4) Me.columnAnlage_5 = New Global.System.Data.DataColumn("Anlage 5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_5) Me.columnAnlage_6 = New Global.System.Data.DataColumn("Anlage 6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnlage_6) Me.columnOffertenNr = New Global.System.Data.DataColumn("OffertenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOffertenNr) Me._columnVorlageprovision__ = New Global.System.Data.DataColumn("Vorlageprovision %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnVorlageprovision__") Me._columnVorlageprovision__.ExtendedProperties.Add("Generator_UserColumnName", "Vorlageprovision %") MyBase.Columns.Add(Me._columnVorlageprovision__) Me._columnKreditaufwendungen__ = New Global.System.Data.DataColumn("Kreditaufwendungen %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnKreditaufwendungen__") Me._columnKreditaufwendungen__.ExtendedProperties.Add("Generator_UserColumnName", "Kreditaufwendungen %") MyBase.Columns.Add(Me._columnKreditaufwendungen__) Me.columnBesonderheiten = New Global.System.Data.DataColumn("Besonderheiten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBesonderheiten) Me.columnVorkasse = New Global.System.Data.DataColumn("Vorkasse", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkasse) Me.columnText = New Global.System.Data.DataColumn("Text", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnText) Me.columnSteuerpflichtigerGesamtbetrag = New Global.System.Data.DataColumn("SteuerpflichtigerGesamtbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerGesamtbetrag) Me.columnSteuerfreierGesamtbetrag = New Global.System.Data.DataColumn("SteuerfreierGesamtbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierGesamtbetrag) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnDruckDatumZeit = New Global.System.Data.DataColumn("DruckDatumZeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDruckDatumZeit) Me.columnAbfertigungskosten = New Global.System.Data.DataColumn("Abfertigungskosten", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungskosten) Me.columnVorkosten = New Global.System.Data.DataColumn("Vorkosten", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorkosten) Me.columnErlös = New Global.System.Data.DataColumn("Erlös", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErlös) Me.columnBuchungsjahr = New Global.System.Data.DataColumn("Buchungsjahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungsjahr) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnTrdin = New Global.System.Data.DataColumn("Trdin", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTrdin) Me.columnKartenNr = New Global.System.Data.DataColumn("KartenNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKartenNr) Me.columnRefFilialenNr = New Global.System.Data.DataColumn("RefFilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefFilialenNr) Me.columnRefAbfertigungsNr = New Global.System.Data.DataColumn("RefAbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefAbfertigungsNr) Me.columnRefUnterNr = New Global.System.Data.DataColumn("RefUnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRefUnterNr) Me.columnNotiz = New Global.System.Data.DataColumn("Notiz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNotiz) Me.columnZucker_MRN_Nr = New Global.System.Data.DataColumn("Zucker_MRN_Nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Nr) Me.columnZucker_MRN_Datum = New Global.System.Data.DataColumn("Zucker_MRN_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_MRN_Datum) Me.columnZucker_Aufschub = New Global.System.Data.DataColumn("Zucker_Aufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZucker_Aufschub) Me.columnReErfZeitstempel = New Global.System.Data.DataColumn("ReErfZeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReErfZeitstempel) Me.columnNettozahlungsziel = New Global.System.Data.DataColumn("Nettozahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettozahlungsziel) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnSpeditionsbuchUnterNr = New Global.System.Data.DataColumn("SpeditionsbuchUnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuchUnterNr) Me.columnErfassungsNr = New Global.System.Data.DataColumn("ErfassungsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErfassungsNr) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnAvisiererKundenNr = New Global.System.Data.DataColumn("AvisiererKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisiererKundenNr) Me.columnAvisierer = New Global.System.Data.DataColumn("Avisierer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisierer) Me.columnEMailRechnungstext = New Global.System.Data.DataColumn("EMailRechnungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMailRechnungstext) Me.columnAvisoID = New Global.System.Data.DataColumn("AvisoID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAvisoID) Me.columnKdAuftragsNr = New Global.System.Data.DataColumn("KdAuftragsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKdAuftragsNr) Me.columnHandling = New Global.System.Data.DataColumn("Handling", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHandling) Me.columnVorschauID = New Global.System.Data.DataColumn("VorschauID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorschauID) Me.columnGrenze = New Global.System.Data.DataColumn("Grenze", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGrenze) Me.columnRechnungSprache = New Global.System.Data.DataColumn("RechnungSprache", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungSprache) Me.columnFakturierungsGruppe = New Global.System.Data.DataColumn("FakturierungsGruppe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFakturierungsGruppe) Me.columnTextZZ = New Global.System.Data.DataColumn("TextZZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTextZZ) Me.columnRechnungsName_AdressZusatz = New Global.System.Data.DataColumn("RechnungsName_AdressZusatz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsName_AdressZusatz) Me.columnForceSteuerschlüssel = New Global.System.Data.DataColumn("ForceSteuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnForceSteuerschlüssel) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID}, true)) Me.columnRK_ID.AutoIncrement = true Me.columnRK_ID.AllowDBNull = false Me.columnRK_ID.ReadOnly = true Me.columnRK_ID.Unique = true Me.columnFilialenNr.AllowDBNull = false Me.columnAbfertigungsNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnAbfertigungsdatum.AllowDBNull = false Me.columnSammelrechnung.AllowDBNull = false Me.columnBelegartenNr.AllowDBNull = false Me.columnBelegartenKz.AllowDBNull = false Me.columnBelegartenKz.MaxLength = 2 Me.columnBelegartenBez.AllowDBNull = false Me.columnBelegartenBez.MaxLength = 10 Me.columnVorzeichen.AllowDBNull = false Me.columnVorzeichen.MaxLength = 1 Me.columnBelegNr.MaxLength = 27 Me.columnAbsenderLandKz.MaxLength = 3 Me.columnAbsenderName_1.MaxLength = 40 Me.columnAbsenderName_2.MaxLength = 40 Me.columnAbsenderStraße.MaxLength = 40 Me.columnAbsenderOrt.MaxLength = 52 Me.columnEmpfängerLandKz.MaxLength = 3 Me.columnEmpfängerName_1.MaxLength = 40 Me.columnEmpfängerName_2.MaxLength = 40 Me.columnEmpfängerStraße.MaxLength = 40 Me.columnEmpfängerOrt.MaxLength = 52 Me.columnVermittlerLandKz.MaxLength = 3 Me.columnVermittlerName_1.MaxLength = 40 Me.columnVermittlerName_2.MaxLength = 40 Me.columnVermittlerStraße.MaxLength = 40 Me.columnVermittlerOrt.MaxLength = 52 Me.columnRechnung_an.AllowDBNull = false Me.columnRechnungsLandKz.MaxLength = 3 Me.columnRechnungsKundenNr.AllowDBNull = false Me.columnRechnungsName_1.MaxLength = 40 Me.columnRechnungsName_2.MaxLength = 40 Me.columnRechnungsStraße.MaxLength = 40 Me.columnRechnungsOrt.MaxLength = 52 Me.columnRechnungsUstIdKz.MaxLength = 2 Me.columnRechnungsUstIdNr.MaxLength = 12 Me.columnLastschrift.AllowDBNull = false Me._columnKunden_SVS.AllowDBNull = false Me.columnSteuerschlüssel.AllowDBNull = false Me._columnSteuersatz__.AllowDBNull = false Me.columnLKW_Kennzeichen.MaxLength = 25 Me.columnPackstücke_und_Warenbezeichnung.MaxLength = 1073741823 Me.columnVermerk.MaxLength = 50 Me.columnAnlage_1.MaxLength = 35 Me.columnAnlage_2.MaxLength = 35 Me.columnAnlage_3.MaxLength = 35 Me.columnAnlage_4.MaxLength = 35 Me.columnAnlage_5.MaxLength = 35 Me.columnAnlage_6.MaxLength = 35 Me.columnBesonderheiten.MaxLength = 1073741823 Me.columnVorkasse.AllowDBNull = false Me.columnText.MaxLength = 1073741823 Me.columnWährungscode.MaxLength = 3 Me.columnSachbearbeiter.MaxLength = 15 Me.columnTrdin.AllowDBNull = false Me.columnKartenNr.MaxLength = 20 Me.columnNotiz.MaxLength = 1073741823 Me.columnZucker_MRN_Nr.MaxLength = 18 Me.columnZucker_Aufschub.MaxLength = 1 Me.columnFirma_ID.AllowDBNull = false Me.columnErfassungsNr.MaxLength = 255 Me.columnupsize_ts.ReadOnly = true Me.columnAvisierer.MaxLength = 50 Me.columnEMailRechnungstext.MaxLength = 255 Me.columnKdAuftragsNr.MaxLength = 50 Me.columnHandling.MaxLength = 2147483647 Me.columnVorschauID.MaxLength = 100 Me.columnGrenze.MaxLength = 100 Me.columnRechnungSprache.AllowDBNull = false Me.columnRechnungSprache.MaxLength = 3 Me.columnFakturierungsGruppe.AllowDBNull = false Me.columnFakturierungsGruppe.MaxLength = 10 Me.columnTextZZ.MaxLength = 1073741823 Me.columnRechnungsName_AdressZusatz.AllowDBNull = false Me.columnRechnungsName_AdressZusatz.MaxLength = 50 End Sub _ Public Function NewspSelectRKPKeyRow() As spSelectRKPKeyRow Return CType(Me.NewRow,spSelectRKPKeyRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectRKPKeyRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectRKPKeyRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectRKPKeyRowChangedEvent) Is Nothing) Then RaiseEvent spSelectRKPKeyRowChanged(Me, New spSelectRKPKeyRowChangeEvent(CType(e.Row,spSelectRKPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectRKPKeyRowChangingEvent) Is Nothing) Then RaiseEvent spSelectRKPKeyRowChanging(Me, New spSelectRKPKeyRowChangeEvent(CType(e.Row,spSelectRKPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectRKPKeyRowDeletedEvent) Is Nothing) Then RaiseEvent spSelectRKPKeyRowDeleted(Me, New spSelectRKPKeyRowChangeEvent(CType(e.Row,spSelectRKPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectRKPKeyRowDeletingEvent) Is Nothing) Then RaiseEvent spSelectRKPKeyRowDeleting(Me, New spSelectRKPKeyRowChangeEvent(CType(e.Row,spSelectRKPKeyRow), e.Action)) End If End Sub _ Public Sub RemovespSelectRKPKeyRow(ByVal row As spSelectRKPKeyRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectRKPKeyDataTable" 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 spSelectRPDataTable Inherits Global.System.Data.TypedTableBase(Of spSelectRPRow) Private columnRK_ID As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnIndexZkteing As Global.System.Data.DataColumn Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetrag As Global.System.Data.DataColumn Private columnSteuerfreierBetrag As Global.System.Data.DataColumn Private columnAufschubkontoNr As Global.System.Data.DataColumn Private columnAufschubfälligkeit As Global.System.Data.DataColumn Private columnPrüfsumme_berechnen As Global.System.Data.DataColumn Private columnDateiNameAufschub As Global.System.Data.DataColumn Private columnPreisbindung As Global.System.Data.DataColumn Private columnBelegdaten As Global.System.Data.DataColumn Private columnFremdwährung As Global.System.Data.DataColumn Private columnBGebLeistungsNr As Global.System.Data.DataColumn Private columnBGebProzent As Global.System.Data.DataColumn Private columnBGebBgl As Global.System.Data.DataColumn Private columnBGebMinBetrag As Global.System.Data.DataColumn Private columnRePosZeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectRP" 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 RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property IndexZkteingColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexZkteing End Get End Property _ Public ReadOnly Property BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetrag End Get End Property _ Public ReadOnly Property SteuerfreierBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetrag End Get End Property _ Public ReadOnly Property AufschubkontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkontoNr End Get End Property _ Public ReadOnly Property AufschubfälligkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubfälligkeit End Get End Property _ Public ReadOnly Property Prüfsumme_berechnenColumn() As Global.System.Data.DataColumn Get Return Me.columnPrüfsumme_berechnen End Get End Property _ Public ReadOnly Property DateiNameAufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiNameAufschub End Get End Property _ Public ReadOnly Property PreisbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisbindung End Get End Property _ Public ReadOnly Property BelegdatenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdaten End Get End Property _ Public ReadOnly Property FremdwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnFremdwährung End Get End Property _ Public ReadOnly Property BGebLeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebLeistungsNr End Get End Property _ Public ReadOnly Property BGebProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebProzent End Get End Property _ Public ReadOnly Property BGebBglColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebBgl End Get End Property _ Public ReadOnly Property BGebMinBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebMinBetrag End Get End Property _ Public ReadOnly Property RePosZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnRePosZeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spSelectRPRow Get Return CType(Me.Rows(index),spSelectRPRow) End Get End Property _ Public Event spSelectRPRowChanging As spSelectRPRowChangeEventHandler _ Public Event spSelectRPRowChanged As spSelectRPRowChangeEventHandler _ Public Event spSelectRPRowDeleting As spSelectRPRowChangeEventHandler _ Public Event spSelectRPRowDeleted As spSelectRPRowChangeEventHandler _ Public Overloads Sub AddspSelectRPRow(ByVal row As spSelectRPRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectRPRow( _ ByVal RK_ID As Integer, _ ByVal LeistungsNr As Short, _ ByVal Steuerpflichtig As Boolean, _ ByVal LeistungsBez As String, _ ByVal IndexZkteing As Integer, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Decimal, _ ByVal Anzahl As Short, _ ByVal SteuerpflichtigerBetrag As Decimal, _ ByVal SteuerfreierBetrag As Decimal, _ ByVal AufschubkontoNr As String, _ ByVal Aufschubfälligkeit As Date, _ ByVal Prüfsumme_berechnen As Boolean, _ ByVal DateiNameAufschub As String, _ ByVal Preisbindung As Boolean, _ ByVal Belegdaten As String, _ ByVal Fremdwährung As Short, _ ByVal BGebLeistungsNr As Short, _ ByVal BGebProzent As Single, _ ByVal BGebBgl As Decimal, _ ByVal BGebMinBetrag As Decimal, _ ByVal RePosZeitstempel As Date, _ ByVal upsize_ts() As Byte) As spSelectRPRow Dim rowspSelectRPRow As spSelectRPRow = CType(Me.NewRow,spSelectRPRow) Dim columnValuesArray() As Object = New Object() {RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing, BerechnungsartNr, Preis, Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag, AufschubkontoNr, Aufschubfälligkeit, Prüfsumme_berechnen, DateiNameAufschub, Preisbindung, Belegdaten, Fremdwährung, BGebLeistungsNr, BGebProzent, BGebBgl, BGebMinBetrag, RePosZeitstempel, upsize_ts} rowspSelectRPRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectRPRow) Return rowspSelectRPRow End Function _ Public Function FindByRK_IDLeistungsNrSteuerpflichtigLeistungsBezIndexZkteing(ByVal RK_ID As Integer, ByVal LeistungsNr As Short, ByVal Steuerpflichtig As Boolean, ByVal LeistungsBez As String, ByVal IndexZkteing As Integer) As spSelectRPRow Return CType(Me.Rows.Find(New Object() {RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing}),spSelectRPRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectRPDataTable = CType(MyBase.Clone,spSelectRPDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectRPDataTable() End Function _ Friend Sub InitVars() Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnIndexZkteing = MyBase.Columns("IndexZkteing") Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnPreis = MyBase.Columns("Preis") Me.columnAnzahl = MyBase.Columns("Anzahl") Me.columnSteuerpflichtigerBetrag = MyBase.Columns("SteuerpflichtigerBetrag") Me.columnSteuerfreierBetrag = MyBase.Columns("SteuerfreierBetrag") Me.columnAufschubkontoNr = MyBase.Columns("AufschubkontoNr") Me.columnAufschubfälligkeit = MyBase.Columns("Aufschubfälligkeit") Me.columnPrüfsumme_berechnen = MyBase.Columns("Prüfsumme berechnen") Me.columnDateiNameAufschub = MyBase.Columns("DateiNameAufschub") Me.columnPreisbindung = MyBase.Columns("Preisbindung") Me.columnBelegdaten = MyBase.Columns("Belegdaten") Me.columnFremdwährung = MyBase.Columns("Fremdwährung") Me.columnBGebLeistungsNr = MyBase.Columns("BGebLeistungsNr") Me.columnBGebProzent = MyBase.Columns("BGebProzent") Me.columnBGebBgl = MyBase.Columns("BGebBgl") Me.columnBGebMinBetrag = MyBase.Columns("BGebMinBetrag") Me.columnRePosZeitstempel = MyBase.Columns("RePosZeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnIndexZkteing = New Global.System.Data.DataColumn("IndexZkteing", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndexZkteing) Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) Me.columnSteuerpflichtigerBetrag = New Global.System.Data.DataColumn("SteuerpflichtigerBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetrag) Me.columnSteuerfreierBetrag = New Global.System.Data.DataColumn("SteuerfreierBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetrag) Me.columnAufschubkontoNr = New Global.System.Data.DataColumn("AufschubkontoNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkontoNr) Me.columnAufschubfälligkeit = New Global.System.Data.DataColumn("Aufschubfälligkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubfälligkeit) Me.columnPrüfsumme_berechnen = New Global.System.Data.DataColumn("Prüfsumme berechnen", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrüfsumme_berechnen) Me.columnDateiNameAufschub = New Global.System.Data.DataColumn("DateiNameAufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiNameAufschub) Me.columnPreisbindung = New Global.System.Data.DataColumn("Preisbindung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisbindung) Me.columnBelegdaten = New Global.System.Data.DataColumn("Belegdaten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdaten) Me.columnFremdwährung = New Global.System.Data.DataColumn("Fremdwährung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFremdwährung) Me.columnBGebLeistungsNr = New Global.System.Data.DataColumn("BGebLeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebLeistungsNr) Me.columnBGebProzent = New Global.System.Data.DataColumn("BGebProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebProzent) Me.columnBGebBgl = New Global.System.Data.DataColumn("BGebBgl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebBgl) Me.columnBGebMinBetrag = New Global.System.Data.DataColumn("BGebMinBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebMinBetrag) Me.columnRePosZeitstempel = New Global.System.Data.DataColumn("RePosZeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRePosZeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID, Me.columnLeistungsNr, Me.columnSteuerpflichtig, Me.columnLeistungsBez, Me.columnIndexZkteing}, true)) Me.columnRK_ID.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnSteuerpflichtig.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnIndexZkteing.AllowDBNull = false Me.columnBerechnungsartNr.AllowDBNull = false Me.columnAufschubkontoNr.MaxLength = 20 Me.columnPrüfsumme_berechnen.AllowDBNull = false Me.columnDateiNameAufschub.MaxLength = 12 Me.columnPreisbindung.AllowDBNull = false Me.columnBelegdaten.MaxLength = 30 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspSelectRPRow() As spSelectRPRow Return CType(Me.NewRow,spSelectRPRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectRPRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectRPRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectRPRowChangedEvent) Is Nothing) Then RaiseEvent spSelectRPRowChanged(Me, New spSelectRPRowChangeEvent(CType(e.Row,spSelectRPRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectRPRowChangingEvent) Is Nothing) Then RaiseEvent spSelectRPRowChanging(Me, New spSelectRPRowChangeEvent(CType(e.Row,spSelectRPRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectRPRowDeletedEvent) Is Nothing) Then RaiseEvent spSelectRPRowDeleted(Me, New spSelectRPRowChangeEvent(CType(e.Row,spSelectRPRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectRPRowDeletingEvent) Is Nothing) Then RaiseEvent spSelectRPRowDeleting(Me, New spSelectRPRowChangeEvent(CType(e.Row,spSelectRPRow), e.Action)) End If End Sub _ Public Sub RemovespSelectRPRow(ByVal row As spSelectRPRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectRPDataTable" 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 spSelectRPFKeyRKDataTable Inherits Global.System.Data.TypedTableBase(Of spSelectRPFKeyRKRow) Private columnRK_ID As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnIndexZkteing As Global.System.Data.DataColumn Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetrag As Global.System.Data.DataColumn Private columnSteuerfreierBetrag As Global.System.Data.DataColumn Private columnAufschubkontoNr As Global.System.Data.DataColumn Private columnAufschubfälligkeit As Global.System.Data.DataColumn Private columnPrüfsumme_berechnen As Global.System.Data.DataColumn Private columnDateiNameAufschub As Global.System.Data.DataColumn Private columnPreisbindung As Global.System.Data.DataColumn Private columnBelegdaten As Global.System.Data.DataColumn Private columnFremdwährung As Global.System.Data.DataColumn Private columnBGebLeistungsNr As Global.System.Data.DataColumn Private columnBGebProzent As Global.System.Data.DataColumn Private columnBGebBgl As Global.System.Data.DataColumn Private columnBGebMinBetrag As Global.System.Data.DataColumn Private columnRePosZeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectRPFKeyRK" 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 RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property IndexZkteingColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexZkteing End Get End Property _ Public ReadOnly Property BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetrag End Get End Property _ Public ReadOnly Property SteuerfreierBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetrag End Get End Property _ Public ReadOnly Property AufschubkontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkontoNr End Get End Property _ Public ReadOnly Property AufschubfälligkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubfälligkeit End Get End Property _ Public ReadOnly Property Prüfsumme_berechnenColumn() As Global.System.Data.DataColumn Get Return Me.columnPrüfsumme_berechnen End Get End Property _ Public ReadOnly Property DateiNameAufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiNameAufschub End Get End Property _ Public ReadOnly Property PreisbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisbindung End Get End Property _ Public ReadOnly Property BelegdatenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdaten End Get End Property _ Public ReadOnly Property FremdwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnFremdwährung End Get End Property _ Public ReadOnly Property BGebLeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebLeistungsNr End Get End Property _ Public ReadOnly Property BGebProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebProzent End Get End Property _ Public ReadOnly Property BGebBglColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebBgl End Get End Property _ Public ReadOnly Property BGebMinBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebMinBetrag End Get End Property _ Public ReadOnly Property RePosZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnRePosZeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spSelectRPFKeyRKRow Get Return CType(Me.Rows(index),spSelectRPFKeyRKRow) End Get End Property _ Public Event spSelectRPFKeyRKRowChanging As spSelectRPFKeyRKRowChangeEventHandler _ Public Event spSelectRPFKeyRKRowChanged As spSelectRPFKeyRKRowChangeEventHandler _ Public Event spSelectRPFKeyRKRowDeleting As spSelectRPFKeyRKRowChangeEventHandler _ Public Event spSelectRPFKeyRKRowDeleted As spSelectRPFKeyRKRowChangeEventHandler _ Public Overloads Sub AddspSelectRPFKeyRKRow(ByVal row As spSelectRPFKeyRKRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectRPFKeyRKRow( _ ByVal RK_ID As Integer, _ ByVal LeistungsNr As Short, _ ByVal Steuerpflichtig As Boolean, _ ByVal LeistungsBez As String, _ ByVal IndexZkteing As Integer, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Decimal, _ ByVal Anzahl As Short, _ ByVal SteuerpflichtigerBetrag As Decimal, _ ByVal SteuerfreierBetrag As Decimal, _ ByVal AufschubkontoNr As String, _ ByVal Aufschubfälligkeit As Date, _ ByVal Prüfsumme_berechnen As Boolean, _ ByVal DateiNameAufschub As String, _ ByVal Preisbindung As Boolean, _ ByVal Belegdaten As String, _ ByVal Fremdwährung As Short, _ ByVal BGebLeistungsNr As Short, _ ByVal BGebProzent As Single, _ ByVal BGebBgl As Decimal, _ ByVal BGebMinBetrag As Decimal, _ ByVal RePosZeitstempel As Date, _ ByVal upsize_ts() As Byte) As spSelectRPFKeyRKRow Dim rowspSelectRPFKeyRKRow As spSelectRPFKeyRKRow = CType(Me.NewRow,spSelectRPFKeyRKRow) Dim columnValuesArray() As Object = New Object() {RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing, BerechnungsartNr, Preis, Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag, AufschubkontoNr, Aufschubfälligkeit, Prüfsumme_berechnen, DateiNameAufschub, Preisbindung, Belegdaten, Fremdwährung, BGebLeistungsNr, BGebProzent, BGebBgl, BGebMinBetrag, RePosZeitstempel, upsize_ts} rowspSelectRPFKeyRKRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectRPFKeyRKRow) Return rowspSelectRPFKeyRKRow End Function _ Public Function FindByRK_IDLeistungsNrSteuerpflichtigLeistungsBezIndexZkteing(ByVal RK_ID As Integer, ByVal LeistungsNr As Short, ByVal Steuerpflichtig As Boolean, ByVal LeistungsBez As String, ByVal IndexZkteing As Integer) As spSelectRPFKeyRKRow Return CType(Me.Rows.Find(New Object() {RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing}),spSelectRPFKeyRKRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectRPFKeyRKDataTable = CType(MyBase.Clone,spSelectRPFKeyRKDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectRPFKeyRKDataTable() End Function _ Friend Sub InitVars() Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnIndexZkteing = MyBase.Columns("IndexZkteing") Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnPreis = MyBase.Columns("Preis") Me.columnAnzahl = MyBase.Columns("Anzahl") Me.columnSteuerpflichtigerBetrag = MyBase.Columns("SteuerpflichtigerBetrag") Me.columnSteuerfreierBetrag = MyBase.Columns("SteuerfreierBetrag") Me.columnAufschubkontoNr = MyBase.Columns("AufschubkontoNr") Me.columnAufschubfälligkeit = MyBase.Columns("Aufschubfälligkeit") Me.columnPrüfsumme_berechnen = MyBase.Columns("Prüfsumme berechnen") Me.columnDateiNameAufschub = MyBase.Columns("DateiNameAufschub") Me.columnPreisbindung = MyBase.Columns("Preisbindung") Me.columnBelegdaten = MyBase.Columns("Belegdaten") Me.columnFremdwährung = MyBase.Columns("Fremdwährung") Me.columnBGebLeistungsNr = MyBase.Columns("BGebLeistungsNr") Me.columnBGebProzent = MyBase.Columns("BGebProzent") Me.columnBGebBgl = MyBase.Columns("BGebBgl") Me.columnBGebMinBetrag = MyBase.Columns("BGebMinBetrag") Me.columnRePosZeitstempel = MyBase.Columns("RePosZeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnIndexZkteing = New Global.System.Data.DataColumn("IndexZkteing", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndexZkteing) Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) Me.columnSteuerpflichtigerBetrag = New Global.System.Data.DataColumn("SteuerpflichtigerBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetrag) Me.columnSteuerfreierBetrag = New Global.System.Data.DataColumn("SteuerfreierBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetrag) Me.columnAufschubkontoNr = New Global.System.Data.DataColumn("AufschubkontoNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkontoNr) Me.columnAufschubfälligkeit = New Global.System.Data.DataColumn("Aufschubfälligkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubfälligkeit) Me.columnPrüfsumme_berechnen = New Global.System.Data.DataColumn("Prüfsumme berechnen", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrüfsumme_berechnen) Me.columnDateiNameAufschub = New Global.System.Data.DataColumn("DateiNameAufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiNameAufschub) Me.columnPreisbindung = New Global.System.Data.DataColumn("Preisbindung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisbindung) Me.columnBelegdaten = New Global.System.Data.DataColumn("Belegdaten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdaten) Me.columnFremdwährung = New Global.System.Data.DataColumn("Fremdwährung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFremdwährung) Me.columnBGebLeistungsNr = New Global.System.Data.DataColumn("BGebLeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebLeistungsNr) Me.columnBGebProzent = New Global.System.Data.DataColumn("BGebProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebProzent) Me.columnBGebBgl = New Global.System.Data.DataColumn("BGebBgl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebBgl) Me.columnBGebMinBetrag = New Global.System.Data.DataColumn("BGebMinBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebMinBetrag) Me.columnRePosZeitstempel = New Global.System.Data.DataColumn("RePosZeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRePosZeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID, Me.columnLeistungsNr, Me.columnSteuerpflichtig, Me.columnLeistungsBez, Me.columnIndexZkteing}, true)) Me.columnRK_ID.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnSteuerpflichtig.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnIndexZkteing.AllowDBNull = false Me.columnBerechnungsartNr.AllowDBNull = false Me.columnAufschubkontoNr.MaxLength = 20 Me.columnPrüfsumme_berechnen.AllowDBNull = false Me.columnDateiNameAufschub.MaxLength = 12 Me.columnPreisbindung.AllowDBNull = false Me.columnBelegdaten.MaxLength = 30 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspSelectRPFKeyRKRow() As spSelectRPFKeyRKRow Return CType(Me.NewRow,spSelectRPFKeyRKRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectRPFKeyRKRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectRPFKeyRKRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectRPFKeyRKRowChangedEvent) Is Nothing) Then RaiseEvent spSelectRPFKeyRKRowChanged(Me, New spSelectRPFKeyRKRowChangeEvent(CType(e.Row,spSelectRPFKeyRKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectRPFKeyRKRowChangingEvent) Is Nothing) Then RaiseEvent spSelectRPFKeyRKRowChanging(Me, New spSelectRPFKeyRKRowChangeEvent(CType(e.Row,spSelectRPFKeyRKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectRPFKeyRKRowDeletedEvent) Is Nothing) Then RaiseEvent spSelectRPFKeyRKRowDeleted(Me, New spSelectRPFKeyRKRowChangeEvent(CType(e.Row,spSelectRPFKeyRKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectRPFKeyRKRowDeletingEvent) Is Nothing) Then RaiseEvent spSelectRPFKeyRKRowDeleting(Me, New spSelectRPFKeyRKRowChangeEvent(CType(e.Row,spSelectRPFKeyRKRow), e.Action)) End If End Sub _ Public Sub RemovespSelectRPFKeyRKRow(ByVal row As spSelectRPFKeyRKRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectRPFKeyRKDataTable" 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 spSelectRPPKeyDataTable Inherits Global.System.Data.TypedTableBase(Of spSelectRPPKeyRow) Private columnRK_ID As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnLeistungsBez As Global.System.Data.DataColumn Private columnIndexZkteing As Global.System.Data.DataColumn Private columnBerechnungsartNr As Global.System.Data.DataColumn Private columnPreis As Global.System.Data.DataColumn Private columnAnzahl As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetrag As Global.System.Data.DataColumn Private columnSteuerfreierBetrag As Global.System.Data.DataColumn Private columnAufschubkontoNr As Global.System.Data.DataColumn Private columnAufschubfälligkeit As Global.System.Data.DataColumn Private columnPrüfsumme_berechnen As Global.System.Data.DataColumn Private columnDateiNameAufschub As Global.System.Data.DataColumn Private columnPreisbindung As Global.System.Data.DataColumn Private columnBelegdaten As Global.System.Data.DataColumn Private columnFremdwährung As Global.System.Data.DataColumn Private columnBGebLeistungsNr As Global.System.Data.DataColumn Private columnBGebProzent As Global.System.Data.DataColumn Private columnBGebBgl As Global.System.Data.DataColumn Private columnBGebMinBetrag As Global.System.Data.DataColumn Private columnRePosZeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSelectRPPKey" 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 RK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRK_ID End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property LeistungsBezColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsBez End Get End Property _ Public ReadOnly Property IndexZkteingColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexZkteing End Get End Property _ Public ReadOnly Property BerechnungsartNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBerechnungsartNr End Get End Property _ Public ReadOnly Property PreisColumn() As Global.System.Data.DataColumn Get Return Me.columnPreis End Get End Property _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetrag End Get End Property _ Public ReadOnly Property SteuerfreierBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetrag End Get End Property _ Public ReadOnly Property AufschubkontoNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubkontoNr End Get End Property _ Public ReadOnly Property AufschubfälligkeitColumn() As Global.System.Data.DataColumn Get Return Me.columnAufschubfälligkeit End Get End Property _ Public ReadOnly Property Prüfsumme_berechnenColumn() As Global.System.Data.DataColumn Get Return Me.columnPrüfsumme_berechnen End Get End Property _ Public ReadOnly Property DateiNameAufschubColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiNameAufschub End Get End Property _ Public ReadOnly Property PreisbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnPreisbindung End Get End Property _ Public ReadOnly Property BelegdatenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdaten End Get End Property _ Public ReadOnly Property FremdwährungColumn() As Global.System.Data.DataColumn Get Return Me.columnFremdwährung End Get End Property _ Public ReadOnly Property BGebLeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebLeistungsNr End Get End Property _ Public ReadOnly Property BGebProzentColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebProzent End Get End Property _ Public ReadOnly Property BGebBglColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebBgl End Get End Property _ Public ReadOnly Property BGebMinBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBGebMinBetrag End Get End Property _ Public ReadOnly Property RePosZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnRePosZeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spSelectRPPKeyRow Get Return CType(Me.Rows(index),spSelectRPPKeyRow) End Get End Property _ Public Event spSelectRPPKeyRowChanging As spSelectRPPKeyRowChangeEventHandler _ Public Event spSelectRPPKeyRowChanged As spSelectRPPKeyRowChangeEventHandler _ Public Event spSelectRPPKeyRowDeleting As spSelectRPPKeyRowChangeEventHandler _ Public Event spSelectRPPKeyRowDeleted As spSelectRPPKeyRowChangeEventHandler _ Public Overloads Sub AddspSelectRPPKeyRow(ByVal row As spSelectRPPKeyRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSelectRPPKeyRow( _ ByVal RK_ID As Integer, _ ByVal LeistungsNr As Short, _ ByVal Steuerpflichtig As Boolean, _ ByVal LeistungsBez As String, _ ByVal IndexZkteing As Integer, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Decimal, _ ByVal Anzahl As Short, _ ByVal SteuerpflichtigerBetrag As Decimal, _ ByVal SteuerfreierBetrag As Decimal, _ ByVal AufschubkontoNr As String, _ ByVal Aufschubfälligkeit As Date, _ ByVal Prüfsumme_berechnen As Boolean, _ ByVal DateiNameAufschub As String, _ ByVal Preisbindung As Boolean, _ ByVal Belegdaten As String, _ ByVal Fremdwährung As Short, _ ByVal BGebLeistungsNr As Short, _ ByVal BGebProzent As Single, _ ByVal BGebBgl As Decimal, _ ByVal BGebMinBetrag As Decimal, _ ByVal RePosZeitstempel As Date, _ ByVal upsize_ts() As Byte) As spSelectRPPKeyRow Dim rowspSelectRPPKeyRow As spSelectRPPKeyRow = CType(Me.NewRow,spSelectRPPKeyRow) Dim columnValuesArray() As Object = New Object() {RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing, BerechnungsartNr, Preis, Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag, AufschubkontoNr, Aufschubfälligkeit, Prüfsumme_berechnen, DateiNameAufschub, Preisbindung, Belegdaten, Fremdwährung, BGebLeistungsNr, BGebProzent, BGebBgl, BGebMinBetrag, RePosZeitstempel, upsize_ts} rowspSelectRPPKeyRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSelectRPPKeyRow) Return rowspSelectRPPKeyRow End Function _ Public Function FindByRK_IDLeistungsNrSteuerpflichtigLeistungsBezIndexZkteing(ByVal RK_ID As Integer, ByVal LeistungsNr As Short, ByVal Steuerpflichtig As Boolean, ByVal LeistungsBez As String, ByVal IndexZkteing As Integer) As spSelectRPPKeyRow Return CType(Me.Rows.Find(New Object() {RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing}),spSelectRPPKeyRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSelectRPPKeyDataTable = CType(MyBase.Clone,spSelectRPPKeyDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSelectRPPKeyDataTable() End Function _ Friend Sub InitVars() Me.columnRK_ID = MyBase.Columns("RK_ID") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnLeistungsBez = MyBase.Columns("LeistungsBez") Me.columnIndexZkteing = MyBase.Columns("IndexZkteing") Me.columnBerechnungsartNr = MyBase.Columns("BerechnungsartNr") Me.columnPreis = MyBase.Columns("Preis") Me.columnAnzahl = MyBase.Columns("Anzahl") Me.columnSteuerpflichtigerBetrag = MyBase.Columns("SteuerpflichtigerBetrag") Me.columnSteuerfreierBetrag = MyBase.Columns("SteuerfreierBetrag") Me.columnAufschubkontoNr = MyBase.Columns("AufschubkontoNr") Me.columnAufschubfälligkeit = MyBase.Columns("Aufschubfälligkeit") Me.columnPrüfsumme_berechnen = MyBase.Columns("Prüfsumme berechnen") Me.columnDateiNameAufschub = MyBase.Columns("DateiNameAufschub") Me.columnPreisbindung = MyBase.Columns("Preisbindung") Me.columnBelegdaten = MyBase.Columns("Belegdaten") Me.columnFremdwährung = MyBase.Columns("Fremdwährung") Me.columnBGebLeistungsNr = MyBase.Columns("BGebLeistungsNr") Me.columnBGebProzent = MyBase.Columns("BGebProzent") Me.columnBGebBgl = MyBase.Columns("BGebBgl") Me.columnBGebMinBetrag = MyBase.Columns("BGebMinBetrag") Me.columnRePosZeitstempel = MyBase.Columns("RePosZeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnRK_ID = New Global.System.Data.DataColumn("RK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRK_ID) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnLeistungsBez = New Global.System.Data.DataColumn("LeistungsBez", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsBez) Me.columnIndexZkteing = New Global.System.Data.DataColumn("IndexZkteing", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndexZkteing) Me.columnBerechnungsartNr = New Global.System.Data.DataColumn("BerechnungsartNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerechnungsartNr) Me.columnPreis = New Global.System.Data.DataColumn("Preis", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreis) Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl) Me.columnSteuerpflichtigerBetrag = New Global.System.Data.DataColumn("SteuerpflichtigerBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetrag) Me.columnSteuerfreierBetrag = New Global.System.Data.DataColumn("SteuerfreierBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetrag) Me.columnAufschubkontoNr = New Global.System.Data.DataColumn("AufschubkontoNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubkontoNr) Me.columnAufschubfälligkeit = New Global.System.Data.DataColumn("Aufschubfälligkeit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAufschubfälligkeit) Me.columnPrüfsumme_berechnen = New Global.System.Data.DataColumn("Prüfsumme berechnen", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrüfsumme_berechnen) Me.columnDateiNameAufschub = New Global.System.Data.DataColumn("DateiNameAufschub", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiNameAufschub) Me.columnPreisbindung = New Global.System.Data.DataColumn("Preisbindung", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPreisbindung) Me.columnBelegdaten = New Global.System.Data.DataColumn("Belegdaten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdaten) Me.columnFremdwährung = New Global.System.Data.DataColumn("Fremdwährung", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFremdwährung) Me.columnBGebLeistungsNr = New Global.System.Data.DataColumn("BGebLeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebLeistungsNr) Me.columnBGebProzent = New Global.System.Data.DataColumn("BGebProzent", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebProzent) Me.columnBGebBgl = New Global.System.Data.DataColumn("BGebBgl", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebBgl) Me.columnBGebMinBetrag = New Global.System.Data.DataColumn("BGebMinBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBGebMinBetrag) Me.columnRePosZeitstempel = New Global.System.Data.DataColumn("RePosZeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRePosZeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRK_ID, Me.columnLeistungsNr, Me.columnSteuerpflichtig, Me.columnLeistungsBez, Me.columnIndexZkteing}, true)) Me.columnRK_ID.AllowDBNull = false Me.columnLeistungsNr.AllowDBNull = false Me.columnSteuerpflichtig.AllowDBNull = false Me.columnLeistungsBez.AllowDBNull = false Me.columnLeistungsBez.MaxLength = 30 Me.columnIndexZkteing.AllowDBNull = false Me.columnBerechnungsartNr.AllowDBNull = false Me.columnAufschubkontoNr.MaxLength = 20 Me.columnPrüfsumme_berechnen.AllowDBNull = false Me.columnDateiNameAufschub.MaxLength = 12 Me.columnPreisbindung.AllowDBNull = false Me.columnBelegdaten.MaxLength = 30 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspSelectRPPKeyRow() As spSelectRPPKeyRow Return CType(Me.NewRow,spSelectRPPKeyRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSelectRPPKeyRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSelectRPPKeyRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSelectRPPKeyRowChangedEvent) Is Nothing) Then RaiseEvent spSelectRPPKeyRowChanged(Me, New spSelectRPPKeyRowChangeEvent(CType(e.Row,spSelectRPPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSelectRPPKeyRowChangingEvent) Is Nothing) Then RaiseEvent spSelectRPPKeyRowChanging(Me, New spSelectRPPKeyRowChangeEvent(CType(e.Row,spSelectRPPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSelectRPPKeyRowDeletedEvent) Is Nothing) Then RaiseEvent spSelectRPPKeyRowDeleted(Me, New spSelectRPPKeyRowChangeEvent(CType(e.Row,spSelectRPPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSelectRPPKeyRowDeletingEvent) Is Nothing) Then RaiseEvent spSelectRPPKeyRowDeleting(Me, New spSelectRPPKeyRowChangeEvent(CType(e.Row,spSelectRPPKeyRow), e.Action)) End If End Sub _ Public Sub RemovespSelectRPPKeyRow(ByVal row As spSelectRPPKeyRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSelectRPPKeyDataTable" 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 spSELECTtblAnmeldungPKeyDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblAnmeldungPKeyRow) Private columnComputername As Global.System.Data.DataColumn Private columnBenutzername As Global.System.Data.DataColumn Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn Private columnLogin As Global.System.Data.DataColumn Private columnLogout As Global.System.Data.DataColumn Private columnProgrammversion As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblAnmeldungPKey" 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 ComputernameColumn() As Global.System.Data.DataColumn Get Return Me.columnComputername End Get End Property _ Public ReadOnly Property BenutzernameColumn() As Global.System.Data.DataColumn Get Return Me.columnBenutzername End Get End Property _ Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung End Get End Property _ Public ReadOnly Property LoginColumn() As Global.System.Data.DataColumn Get Return Me.columnLogin End Get End Property _ Public ReadOnly Property LogoutColumn() As Global.System.Data.DataColumn Get Return Me.columnLogout End Get End Property _ Public ReadOnly Property ProgrammversionColumn() As Global.System.Data.DataColumn Get Return Me.columnProgrammversion End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spSELECTtblAnmeldungPKeyRow Get Return CType(Me.Rows(index),spSELECTtblAnmeldungPKeyRow) End Get End Property _ Public Event spSELECTtblAnmeldungPKeyRowChanging As spSELECTtblAnmeldungPKeyRowChangeEventHandler _ Public Event spSELECTtblAnmeldungPKeyRowChanged As spSELECTtblAnmeldungPKeyRowChangeEventHandler _ Public Event spSELECTtblAnmeldungPKeyRowDeleting As spSELECTtblAnmeldungPKeyRowChangeEventHandler _ Public Event spSELECTtblAnmeldungPKeyRowDeleted As spSELECTtblAnmeldungPKeyRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblAnmeldungPKeyRow(ByVal row As spSELECTtblAnmeldungPKeyRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblAnmeldungPKeyRow(ByVal Computername As String, ByVal Benutzername As String, ByVal Mandant As String, ByVal Niederlassung As String, ByVal Login As Date, ByVal Logout As Date, ByVal Programmversion As String, ByVal upsize_ts() As Byte) As spSELECTtblAnmeldungPKeyRow Dim rowspSELECTtblAnmeldungPKeyRow As spSELECTtblAnmeldungPKeyRow = CType(Me.NewRow,spSELECTtblAnmeldungPKeyRow) Dim columnValuesArray() As Object = New Object() {Computername, Benutzername, Mandant, Niederlassung, Login, Logout, Programmversion, upsize_ts} rowspSELECTtblAnmeldungPKeyRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblAnmeldungPKeyRow) Return rowspSELECTtblAnmeldungPKeyRow End Function _ Public Function FindByComputernameBenutzername(ByVal Computername As String, ByVal Benutzername As String) As spSELECTtblAnmeldungPKeyRow Return CType(Me.Rows.Find(New Object() {Computername, Benutzername}),spSELECTtblAnmeldungPKeyRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblAnmeldungPKeyDataTable = CType(MyBase.Clone,spSELECTtblAnmeldungPKeyDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblAnmeldungPKeyDataTable() End Function _ Friend Sub InitVars() Me.columnComputername = MyBase.Columns("Computername") Me.columnBenutzername = MyBase.Columns("Benutzername") Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") Me.columnLogin = MyBase.Columns("Login") Me.columnLogout = MyBase.Columns("Logout") Me.columnProgrammversion = MyBase.Columns("Programmversion") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnComputername = New Global.System.Data.DataColumn("Computername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComputername) Me.columnBenutzername = New Global.System.Data.DataColumn("Benutzername", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBenutzername) Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.columnLogin = New Global.System.Data.DataColumn("Login", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLogin) Me.columnLogout = New Global.System.Data.DataColumn("Logout", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLogout) Me.columnProgrammversion = New Global.System.Data.DataColumn("Programmversion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnProgrammversion) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnComputername, Me.columnBenutzername}, true)) Me.columnComputername.AllowDBNull = false Me.columnComputername.MaxLength = 15 Me.columnBenutzername.AllowDBNull = false Me.columnBenutzername.MaxLength = 20 Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.MaxLength = 3 Me.columnProgrammversion.MaxLength = 255 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspSELECTtblAnmeldungPKeyRow() As spSELECTtblAnmeldungPKeyRow Return CType(Me.NewRow,spSELECTtblAnmeldungPKeyRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblAnmeldungPKeyRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblAnmeldungPKeyRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblAnmeldungPKeyRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblAnmeldungPKeyRowChanged(Me, New spSELECTtblAnmeldungPKeyRowChangeEvent(CType(e.Row,spSELECTtblAnmeldungPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblAnmeldungPKeyRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblAnmeldungPKeyRowChanging(Me, New spSELECTtblAnmeldungPKeyRowChangeEvent(CType(e.Row,spSELECTtblAnmeldungPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblAnmeldungPKeyRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblAnmeldungPKeyRowDeleted(Me, New spSELECTtblAnmeldungPKeyRowChangeEvent(CType(e.Row,spSELECTtblAnmeldungPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblAnmeldungPKeyRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblAnmeldungPKeyRowDeleting(Me, New spSELECTtblAnmeldungPKeyRowChangeEvent(CType(e.Row,spSELECTtblAnmeldungPKeyRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblAnmeldungPKeyRow(ByVal row As spSELECTtblAnmeldungPKeyRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblAnmeldungPKeyDataTable" 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 spSELECTtblQS_AbfertigungsartenDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblQS_AbfertigungsartenRow) Private columnQS_Abfertigungsart_ID As Global.System.Data.DataColumn Private columnQS_Abfertigungsart_Bezeichnung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblQS_Abfertigungsarten" 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 QS_Abfertigungsart_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Abfertigungsart_ID End Get End Property _ Public ReadOnly Property QS_Abfertigungsart_BezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Abfertigungsart_Bezeichnung 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 spSELECTtblQS_AbfertigungsartenRow Get Return CType(Me.Rows(index),spSELECTtblQS_AbfertigungsartenRow) End Get End Property _ Public Event spSELECTtblQS_AbfertigungsartenRowChanging As spSELECTtblQS_AbfertigungsartenRowChangeEventHandler _ Public Event spSELECTtblQS_AbfertigungsartenRowChanged As spSELECTtblQS_AbfertigungsartenRowChangeEventHandler _ Public Event spSELECTtblQS_AbfertigungsartenRowDeleting As spSELECTtblQS_AbfertigungsartenRowChangeEventHandler _ Public Event spSELECTtblQS_AbfertigungsartenRowDeleted As spSELECTtblQS_AbfertigungsartenRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblQS_AbfertigungsartenRow(ByVal row As spSELECTtblQS_AbfertigungsartenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblQS_AbfertigungsartenRow(ByVal QS_Abfertigungsart_Bezeichnung As String) As spSELECTtblQS_AbfertigungsartenRow Dim rowspSELECTtblQS_AbfertigungsartenRow As spSELECTtblQS_AbfertigungsartenRow = CType(Me.NewRow,spSELECTtblQS_AbfertigungsartenRow) Dim columnValuesArray() As Object = New Object() {Nothing, QS_Abfertigungsart_Bezeichnung} rowspSELECTtblQS_AbfertigungsartenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblQS_AbfertigungsartenRow) Return rowspSELECTtblQS_AbfertigungsartenRow End Function _ Public Function FindByQS_Abfertigungsart_ID(ByVal QS_Abfertigungsart_ID As Integer) As spSELECTtblQS_AbfertigungsartenRow Return CType(Me.Rows.Find(New Object() {QS_Abfertigungsart_ID}),spSELECTtblQS_AbfertigungsartenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblQS_AbfertigungsartenDataTable = CType(MyBase.Clone,spSELECTtblQS_AbfertigungsartenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblQS_AbfertigungsartenDataTable() End Function _ Friend Sub InitVars() Me.columnQS_Abfertigungsart_ID = MyBase.Columns("QS_Abfertigungsart_ID") Me.columnQS_Abfertigungsart_Bezeichnung = MyBase.Columns("QS_Abfertigungsart_Bezeichnung") End Sub _ Private Sub InitClass() Me.columnQS_Abfertigungsart_ID = New Global.System.Data.DataColumn("QS_Abfertigungsart_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Abfertigungsart_ID) Me.columnQS_Abfertigungsart_Bezeichnung = New Global.System.Data.DataColumn("QS_Abfertigungsart_Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Abfertigungsart_Bezeichnung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQS_Abfertigungsart_ID}, true)) Me.columnQS_Abfertigungsart_ID.AutoIncrement = true Me.columnQS_Abfertigungsart_ID.AllowDBNull = false Me.columnQS_Abfertigungsart_ID.ReadOnly = true Me.columnQS_Abfertigungsart_ID.Unique = true Me.columnQS_Abfertigungsart_Bezeichnung.AllowDBNull = false Me.columnQS_Abfertigungsart_Bezeichnung.MaxLength = 50 End Sub _ Public Function NewspSELECTtblQS_AbfertigungsartenRow() As spSELECTtblQS_AbfertigungsartenRow Return CType(Me.NewRow,spSELECTtblQS_AbfertigungsartenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblQS_AbfertigungsartenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblQS_AbfertigungsartenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblQS_AbfertigungsartenRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AbfertigungsartenRowChanged(Me, New spSELECTtblQS_AbfertigungsartenRowChangeEvent(CType(e.Row,spSELECTtblQS_AbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblQS_AbfertigungsartenRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AbfertigungsartenRowChanging(Me, New spSELECTtblQS_AbfertigungsartenRowChangeEvent(CType(e.Row,spSELECTtblQS_AbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblQS_AbfertigungsartenRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AbfertigungsartenRowDeleted(Me, New spSELECTtblQS_AbfertigungsartenRowChangeEvent(CType(e.Row,spSELECTtblQS_AbfertigungsartenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblQS_AbfertigungsartenRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AbfertigungsartenRowDeleting(Me, New spSELECTtblQS_AbfertigungsartenRowChangeEvent(CType(e.Row,spSELECTtblQS_AbfertigungsartenRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblQS_AbfertigungsartenRow(ByVal row As spSELECTtblQS_AbfertigungsartenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblQS_AbfertigungsartenDataTable" 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 spSELECTtblQS_AufträgeDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblQS_AufträgeRow) Private columnQS_Auftrags_ID As Global.System.Data.DataColumn Private columnQS_Auftrags_Datum As Global.System.Data.DataColumn Private columnQS_Sachbearbeiter_ID As Global.System.Data.DataColumn Private columnQS_Frachtführer_ID As Global.System.Data.DataColumn Private columnQS_Kennzeichen_LKW As Global.System.Data.DataColumn Private columnQS_Sendungen_Gesamtanzahl As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblQS_Aufträge" 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 QS_Auftrags_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Auftrags_ID End Get End Property _ Public ReadOnly Property QS_Auftrags_DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Auftrags_Datum End Get End Property _ Public ReadOnly Property QS_Sachbearbeiter_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Sachbearbeiter_ID End Get End Property _ Public ReadOnly Property QS_Frachtführer_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Frachtführer_ID End Get End Property _ Public ReadOnly Property QS_Kennzeichen_LKWColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Kennzeichen_LKW End Get End Property _ Public ReadOnly Property QS_Sendungen_GesamtanzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Sendungen_Gesamtanzahl 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 spSELECTtblQS_AufträgeRow Get Return CType(Me.Rows(index),spSELECTtblQS_AufträgeRow) End Get End Property _ Public Event spSELECTtblQS_AufträgeRowChanging As spSELECTtblQS_AufträgeRowChangeEventHandler _ Public Event spSELECTtblQS_AufträgeRowChanged As spSELECTtblQS_AufträgeRowChangeEventHandler _ Public Event spSELECTtblQS_AufträgeRowDeleting As spSELECTtblQS_AufträgeRowChangeEventHandler _ Public Event spSELECTtblQS_AufträgeRowDeleted As spSELECTtblQS_AufträgeRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblQS_AufträgeRow(ByVal row As spSELECTtblQS_AufträgeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblQS_AufträgeRow(ByVal QS_Auftrags_Datum As Date, ByVal QS_Sachbearbeiter_ID As Integer, ByVal QS_Frachtführer_ID As Integer, ByVal QS_Kennzeichen_LKW As String, ByVal QS_Sendungen_Gesamtanzahl As Integer) As spSELECTtblQS_AufträgeRow Dim rowspSELECTtblQS_AufträgeRow As spSELECTtblQS_AufträgeRow = CType(Me.NewRow,spSELECTtblQS_AufträgeRow) Dim columnValuesArray() As Object = New Object() {Nothing, QS_Auftrags_Datum, QS_Sachbearbeiter_ID, QS_Frachtführer_ID, QS_Kennzeichen_LKW, QS_Sendungen_Gesamtanzahl} rowspSELECTtblQS_AufträgeRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblQS_AufträgeRow) Return rowspSELECTtblQS_AufträgeRow End Function _ Public Function FindByQS_Auftrags_ID(ByVal QS_Auftrags_ID As Integer) As spSELECTtblQS_AufträgeRow Return CType(Me.Rows.Find(New Object() {QS_Auftrags_ID}),spSELECTtblQS_AufträgeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblQS_AufträgeDataTable = CType(MyBase.Clone,spSELECTtblQS_AufträgeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblQS_AufträgeDataTable() End Function _ Friend Sub InitVars() Me.columnQS_Auftrags_ID = MyBase.Columns("QS_Auftrags_ID") Me.columnQS_Auftrags_Datum = MyBase.Columns("QS_Auftrags_Datum") Me.columnQS_Sachbearbeiter_ID = MyBase.Columns("QS_Sachbearbeiter_ID") Me.columnQS_Frachtführer_ID = MyBase.Columns("QS_Frachtführer_ID") Me.columnQS_Kennzeichen_LKW = MyBase.Columns("QS_Kennzeichen_LKW") Me.columnQS_Sendungen_Gesamtanzahl = MyBase.Columns("QS_Sendungen_Gesamtanzahl") End Sub _ Private Sub InitClass() Me.columnQS_Auftrags_ID = New Global.System.Data.DataColumn("QS_Auftrags_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Auftrags_ID) Me.columnQS_Auftrags_Datum = New Global.System.Data.DataColumn("QS_Auftrags_Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Auftrags_Datum) Me.columnQS_Sachbearbeiter_ID = New Global.System.Data.DataColumn("QS_Sachbearbeiter_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Sachbearbeiter_ID) Me.columnQS_Frachtführer_ID = New Global.System.Data.DataColumn("QS_Frachtführer_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Frachtführer_ID) Me.columnQS_Kennzeichen_LKW = New Global.System.Data.DataColumn("QS_Kennzeichen_LKW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Kennzeichen_LKW) Me.columnQS_Sendungen_Gesamtanzahl = New Global.System.Data.DataColumn("QS_Sendungen_Gesamtanzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Sendungen_Gesamtanzahl) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQS_Auftrags_ID}, true)) Me.columnQS_Auftrags_ID.AutoIncrement = true Me.columnQS_Auftrags_ID.AllowDBNull = false Me.columnQS_Auftrags_ID.ReadOnly = true Me.columnQS_Auftrags_ID.Unique = true Me.columnQS_Auftrags_Datum.AllowDBNull = false Me.columnQS_Sachbearbeiter_ID.AllowDBNull = false Me.columnQS_Frachtführer_ID.AllowDBNull = false Me.columnQS_Kennzeichen_LKW.AllowDBNull = false Me.columnQS_Kennzeichen_LKW.MaxLength = 25 Me.columnQS_Sendungen_Gesamtanzahl.AllowDBNull = false End Sub _ Public Function NewspSELECTtblQS_AufträgeRow() As spSELECTtblQS_AufträgeRow Return CType(Me.NewRow,spSELECTtblQS_AufträgeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblQS_AufträgeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblQS_AufträgeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblQS_AufträgeRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AufträgeRowChanged(Me, New spSELECTtblQS_AufträgeRowChangeEvent(CType(e.Row,spSELECTtblQS_AufträgeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblQS_AufträgeRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AufträgeRowChanging(Me, New spSELECTtblQS_AufträgeRowChangeEvent(CType(e.Row,spSELECTtblQS_AufträgeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblQS_AufträgeRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AufträgeRowDeleted(Me, New spSELECTtblQS_AufträgeRowChangeEvent(CType(e.Row,spSELECTtblQS_AufträgeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblQS_AufträgeRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AufträgeRowDeleting(Me, New spSELECTtblQS_AufträgeRowChangeEvent(CType(e.Row,spSELECTtblQS_AufträgeRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblQS_AufträgeRow(ByVal row As spSELECTtblQS_AufträgeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblQS_AufträgeDataTable" 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 spSELECTtblQS_AuftragspositionenDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblQS_AuftragspositionenRow) Private columnQS_Auftrags_ID As Global.System.Data.DataColumn Private columnQS_Abfertigungsart_ID As Global.System.Data.DataColumn Private columnQS_Abfertigungsart_Anzahl As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblQS_Auftragspositionen" 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 QS_Auftrags_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Auftrags_ID End Get End Property _ Public ReadOnly Property QS_Abfertigungsart_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Abfertigungsart_ID End Get End Property _ Public ReadOnly Property QS_Abfertigungsart_AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnQS_Abfertigungsart_Anzahl 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 spSELECTtblQS_AuftragspositionenRow Get Return CType(Me.Rows(index),spSELECTtblQS_AuftragspositionenRow) End Get End Property _ Public Event spSELECTtblQS_AuftragspositionenRowChanging As spSELECTtblQS_AuftragspositionenRowChangeEventHandler _ Public Event spSELECTtblQS_AuftragspositionenRowChanged As spSELECTtblQS_AuftragspositionenRowChangeEventHandler _ Public Event spSELECTtblQS_AuftragspositionenRowDeleting As spSELECTtblQS_AuftragspositionenRowChangeEventHandler _ Public Event spSELECTtblQS_AuftragspositionenRowDeleted As spSELECTtblQS_AuftragspositionenRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblQS_AuftragspositionenRow(ByVal row As spSELECTtblQS_AuftragspositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblQS_AuftragspositionenRow(ByVal QS_Auftrags_ID As Integer, ByVal QS_Abfertigungsart_ID As Integer, ByVal QS_Abfertigungsart_Anzahl As Integer) As spSELECTtblQS_AuftragspositionenRow Dim rowspSELECTtblQS_AuftragspositionenRow As spSELECTtblQS_AuftragspositionenRow = CType(Me.NewRow,spSELECTtblQS_AuftragspositionenRow) Dim columnValuesArray() As Object = New Object() {QS_Auftrags_ID, QS_Abfertigungsart_ID, QS_Abfertigungsart_Anzahl} rowspSELECTtblQS_AuftragspositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblQS_AuftragspositionenRow) Return rowspSELECTtblQS_AuftragspositionenRow End Function _ Public Function FindByQS_Auftrags_IDQS_Abfertigungsart_ID(ByVal QS_Auftrags_ID As Integer, ByVal QS_Abfertigungsart_ID As Integer) As spSELECTtblQS_AuftragspositionenRow Return CType(Me.Rows.Find(New Object() {QS_Auftrags_ID, QS_Abfertigungsart_ID}),spSELECTtblQS_AuftragspositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblQS_AuftragspositionenDataTable = CType(MyBase.Clone,spSELECTtblQS_AuftragspositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblQS_AuftragspositionenDataTable() End Function _ Friend Sub InitVars() Me.columnQS_Auftrags_ID = MyBase.Columns("QS_Auftrags_ID") Me.columnQS_Abfertigungsart_ID = MyBase.Columns("QS_Abfertigungsart_ID") Me.columnQS_Abfertigungsart_Anzahl = MyBase.Columns("QS_Abfertigungsart_Anzahl") End Sub _ Private Sub InitClass() Me.columnQS_Auftrags_ID = New Global.System.Data.DataColumn("QS_Auftrags_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Auftrags_ID) Me.columnQS_Abfertigungsart_ID = New Global.System.Data.DataColumn("QS_Abfertigungsart_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Abfertigungsart_ID) Me.columnQS_Abfertigungsart_Anzahl = New Global.System.Data.DataColumn("QS_Abfertigungsart_Anzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQS_Abfertigungsart_Anzahl) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQS_Auftrags_ID, Me.columnQS_Abfertigungsart_ID}, true)) Me.columnQS_Auftrags_ID.AllowDBNull = false Me.columnQS_Abfertigungsart_ID.AllowDBNull = false Me.columnQS_Abfertigungsart_Anzahl.AllowDBNull = false End Sub _ Public Function NewspSELECTtblQS_AuftragspositionenRow() As spSELECTtblQS_AuftragspositionenRow Return CType(Me.NewRow,spSELECTtblQS_AuftragspositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblQS_AuftragspositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblQS_AuftragspositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblQS_AuftragspositionenRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AuftragspositionenRowChanged(Me, New spSELECTtblQS_AuftragspositionenRowChangeEvent(CType(e.Row,spSELECTtblQS_AuftragspositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblQS_AuftragspositionenRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AuftragspositionenRowChanging(Me, New spSELECTtblQS_AuftragspositionenRowChangeEvent(CType(e.Row,spSELECTtblQS_AuftragspositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblQS_AuftragspositionenRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AuftragspositionenRowDeleted(Me, New spSELECTtblQS_AuftragspositionenRowChangeEvent(CType(e.Row,spSELECTtblQS_AuftragspositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblQS_AuftragspositionenRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblQS_AuftragspositionenRowDeleting(Me, New spSELECTtblQS_AuftragspositionenRowChangeEvent(CType(e.Row,spSELECTtblQS_AuftragspositionenRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblQS_AuftragspositionenRow(ByVal row As spSELECTtblQS_AuftragspositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblQS_AuftragspositionenDataTable" 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 spSELECTtblTrdinHeaderDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblTrdinHeaderRow) Private columnSpeditionsbuch As Global.System.Data.DataColumn Private columnCompany_code As Global.System.Data.DataColumn Private columnDepot_code As Global.System.Data.DataColumn Private columnSend_number As Global.System.Data.DataColumn Private columnSend_date As Global.System.Data.DataColumn Private columnComputer_location As Global.System.Data.DataColumn Private columnMessage_type As Global.System.Data.DataColumn Private columnFm_net_address As Global.System.Data.DataColumn Private columnAccounting_date As Global.System.Data.DataColumn Private columnCurrency_code As Global.System.Data.DataColumn Private columnCountry_code_dispatch As Global.System.Data.DataColumn Private columnVat_number_dispatch As Global.System.Data.DataColumn Private columnVat_code_I As Global.System.Data.DataColumn Private columnVat_code_S0 As Global.System.Data.DataColumn Private columnVat_code_S1 As Global.System.Data.DataColumn Private columnVat_code_X As Global.System.Data.DataColumn Private columnPfad1 As Global.System.Data.DataColumn Private columnPfad2 As Global.System.Data.DataColumn Private columnDatei As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblTrdinHeader" 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 SpeditionsbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuch End Get End Property _ Public ReadOnly Property Company_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnCompany_code End Get End Property _ Public ReadOnly Property Depot_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnDepot_code End Get End Property _ Public ReadOnly Property Send_numberColumn() As Global.System.Data.DataColumn Get Return Me.columnSend_number End Get End Property _ Public ReadOnly Property Send_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnSend_date End Get End Property _ Public ReadOnly Property Computer_locationColumn() As Global.System.Data.DataColumn Get Return Me.columnComputer_location End Get End Property _ Public ReadOnly Property Message_typeColumn() As Global.System.Data.DataColumn Get Return Me.columnMessage_type End Get End Property _ Public ReadOnly Property Fm_net_addressColumn() As Global.System.Data.DataColumn Get Return Me.columnFm_net_address End Get End Property _ Public ReadOnly Property Accounting_dateColumn() As Global.System.Data.DataColumn Get Return Me.columnAccounting_date End Get End Property _ Public ReadOnly Property Currency_codeColumn() As Global.System.Data.DataColumn Get Return Me.columnCurrency_code End Get End Property _ Public ReadOnly Property Country_code_dispatchColumn() As Global.System.Data.DataColumn Get Return Me.columnCountry_code_dispatch End Get End Property _ Public ReadOnly Property Vat_number_dispatchColumn() As Global.System.Data.DataColumn Get Return Me.columnVat_number_dispatch End Get End Property _ Public ReadOnly Property Vat_code_IColumn() As Global.System.Data.DataColumn Get Return Me.columnVat_code_I End Get End Property _ Public ReadOnly Property Vat_code_S0Column() As Global.System.Data.DataColumn Get Return Me.columnVat_code_S0 End Get End Property _ Public ReadOnly Property Vat_code_S1Column() As Global.System.Data.DataColumn Get Return Me.columnVat_code_S1 End Get End Property _ Public ReadOnly Property Vat_code_XColumn() As Global.System.Data.DataColumn Get Return Me.columnVat_code_X End Get End Property _ Public ReadOnly Property Pfad1Column() As Global.System.Data.DataColumn Get Return Me.columnPfad1 End Get End Property _ Public ReadOnly Property Pfad2Column() As Global.System.Data.DataColumn Get Return Me.columnPfad2 End Get End Property _ Public ReadOnly Property DateiColumn() As Global.System.Data.DataColumn Get Return Me.columnDatei 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 spSELECTtblTrdinHeaderRow Get Return CType(Me.Rows(index),spSELECTtblTrdinHeaderRow) End Get End Property _ Public Event spSELECTtblTrdinHeaderRowChanging As spSELECTtblTrdinHeaderRowChangeEventHandler _ Public Event spSELECTtblTrdinHeaderRowChanged As spSELECTtblTrdinHeaderRowChangeEventHandler _ Public Event spSELECTtblTrdinHeaderRowDeleting As spSELECTtblTrdinHeaderRowChangeEventHandler _ Public Event spSELECTtblTrdinHeaderRowDeleted As spSELECTtblTrdinHeaderRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblTrdinHeaderRow(ByVal row As spSELECTtblTrdinHeaderRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblTrdinHeaderRow( _ ByVal Speditionsbuch As Short, _ ByVal Company_code As String, _ ByVal Depot_code As String, _ ByVal Send_number As Integer, _ ByVal Send_date As Date, _ ByVal Computer_location As String, _ ByVal Message_type As String, _ ByVal Fm_net_address As String, _ ByVal Accounting_date As Date, _ ByVal Currency_code As String, _ ByVal Country_code_dispatch As String, _ ByVal Vat_number_dispatch As String, _ ByVal Vat_code_I As String, _ ByVal Vat_code_S0 As String, _ ByVal Vat_code_S1 As String, _ ByVal Vat_code_X As String, _ ByVal Pfad1 As String, _ ByVal Pfad2 As String, _ ByVal Datei As String) As spSELECTtblTrdinHeaderRow Dim rowspSELECTtblTrdinHeaderRow As spSELECTtblTrdinHeaderRow = CType(Me.NewRow,spSELECTtblTrdinHeaderRow) Dim columnValuesArray() As Object = New Object() {Speditionsbuch, Company_code, Depot_code, Send_number, Send_date, Computer_location, Message_type, Fm_net_address, Accounting_date, Currency_code, Country_code_dispatch, Vat_number_dispatch, Vat_code_I, Vat_code_S0, Vat_code_S1, Vat_code_X, Pfad1, Pfad2, Datei} rowspSELECTtblTrdinHeaderRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblTrdinHeaderRow) Return rowspSELECTtblTrdinHeaderRow End Function _ Public Function FindBySpeditionsbuch(ByVal Speditionsbuch As Short) As spSELECTtblTrdinHeaderRow Return CType(Me.Rows.Find(New Object() {Speditionsbuch}),spSELECTtblTrdinHeaderRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblTrdinHeaderDataTable = CType(MyBase.Clone,spSELECTtblTrdinHeaderDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblTrdinHeaderDataTable() End Function _ Friend Sub InitVars() Me.columnSpeditionsbuch = MyBase.Columns("Speditionsbuch") Me.columnCompany_code = MyBase.Columns("Company_code") Me.columnDepot_code = MyBase.Columns("Depot_code") Me.columnSend_number = MyBase.Columns("Send_number") Me.columnSend_date = MyBase.Columns("Send_date") Me.columnComputer_location = MyBase.Columns("Computer_location") Me.columnMessage_type = MyBase.Columns("Message_type") Me.columnFm_net_address = MyBase.Columns("Fm_net_address") Me.columnAccounting_date = MyBase.Columns("Accounting_date") Me.columnCurrency_code = MyBase.Columns("Currency_code") Me.columnCountry_code_dispatch = MyBase.Columns("Country_code_dispatch") Me.columnVat_number_dispatch = MyBase.Columns("Vat_number_dispatch") Me.columnVat_code_I = MyBase.Columns("Vat_code_I") Me.columnVat_code_S0 = MyBase.Columns("Vat_code_S0") Me.columnVat_code_S1 = MyBase.Columns("Vat_code_S1") Me.columnVat_code_X = MyBase.Columns("Vat_code_X") Me.columnPfad1 = MyBase.Columns("Pfad1") Me.columnPfad2 = MyBase.Columns("Pfad2") Me.columnDatei = MyBase.Columns("Datei") End Sub _ Private Sub InitClass() Me.columnSpeditionsbuch = New Global.System.Data.DataColumn("Speditionsbuch", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuch) Me.columnCompany_code = New Global.System.Data.DataColumn("Company_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCompany_code) Me.columnDepot_code = New Global.System.Data.DataColumn("Depot_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDepot_code) Me.columnSend_number = New Global.System.Data.DataColumn("Send_number", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSend_number) Me.columnSend_date = New Global.System.Data.DataColumn("Send_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSend_date) Me.columnComputer_location = New Global.System.Data.DataColumn("Computer_location", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnComputer_location) Me.columnMessage_type = New Global.System.Data.DataColumn("Message_type", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMessage_type) Me.columnFm_net_address = New Global.System.Data.DataColumn("Fm_net_address", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFm_net_address) Me.columnAccounting_date = New Global.System.Data.DataColumn("Accounting_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAccounting_date) Me.columnCurrency_code = New Global.System.Data.DataColumn("Currency_code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCurrency_code) Me.columnCountry_code_dispatch = New Global.System.Data.DataColumn("Country_code_dispatch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCountry_code_dispatch) Me.columnVat_number_dispatch = New Global.System.Data.DataColumn("Vat_number_dispatch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_number_dispatch) Me.columnVat_code_I = New Global.System.Data.DataColumn("Vat_code_I", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_I) Me.columnVat_code_S0 = New Global.System.Data.DataColumn("Vat_code_S0", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_S0) Me.columnVat_code_S1 = New Global.System.Data.DataColumn("Vat_code_S1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_S1) Me.columnVat_code_X = New Global.System.Data.DataColumn("Vat_code_X", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVat_code_X) Me.columnPfad1 = New Global.System.Data.DataColumn("Pfad1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPfad1) Me.columnPfad2 = New Global.System.Data.DataColumn("Pfad2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPfad2) Me.columnDatei = New Global.System.Data.DataColumn("Datei", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatei) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSpeditionsbuch}, true)) Me.columnSpeditionsbuch.AllowDBNull = false Me.columnSpeditionsbuch.Unique = true Me.columnCompany_code.AllowDBNull = false Me.columnCompany_code.MaxLength = 3 Me.columnDepot_code.MaxLength = 2 Me.columnSend_number.AllowDBNull = false Me.columnComputer_location.AllowDBNull = false Me.columnComputer_location.MaxLength = 2 Me.columnMessage_type.AllowDBNull = false Me.columnMessage_type.MaxLength = 25 Me.columnFm_net_address.AllowDBNull = false Me.columnFm_net_address.MaxLength = 20 Me.columnAccounting_date.AllowDBNull = false Me.columnCurrency_code.AllowDBNull = false Me.columnCurrency_code.MaxLength = 3 Me.columnCountry_code_dispatch.AllowDBNull = false Me.columnCountry_code_dispatch.MaxLength = 3 Me.columnVat_number_dispatch.AllowDBNull = false Me.columnVat_number_dispatch.MaxLength = 16 Me.columnVat_code_I.AllowDBNull = false Me.columnVat_code_I.MaxLength = 6 Me.columnVat_code_S0.AllowDBNull = false Me.columnVat_code_S0.MaxLength = 6 Me.columnVat_code_S1.AllowDBNull = false Me.columnVat_code_S1.MaxLength = 6 Me.columnVat_code_X.AllowDBNull = false Me.columnVat_code_X.MaxLength = 6 Me.columnPfad1.AllowDBNull = false Me.columnPfad1.MaxLength = 50 Me.columnPfad2.AllowDBNull = false Me.columnPfad2.MaxLength = 50 Me.columnDatei.MaxLength = 12 End Sub _ Public Function NewspSELECTtblTrdinHeaderRow() As spSELECTtblTrdinHeaderRow Return CType(Me.NewRow,spSELECTtblTrdinHeaderRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblTrdinHeaderRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblTrdinHeaderRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblTrdinHeaderRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinHeaderRowChanged(Me, New spSELECTtblTrdinHeaderRowChangeEvent(CType(e.Row,spSELECTtblTrdinHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblTrdinHeaderRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinHeaderRowChanging(Me, New spSELECTtblTrdinHeaderRowChangeEvent(CType(e.Row,spSELECTtblTrdinHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblTrdinHeaderRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinHeaderRowDeleted(Me, New spSELECTtblTrdinHeaderRowChangeEvent(CType(e.Row,spSELECTtblTrdinHeaderRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblTrdinHeaderRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinHeaderRowDeleting(Me, New spSELECTtblTrdinHeaderRowChangeEvent(CType(e.Row,spSELECTtblTrdinHeaderRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblTrdinHeaderRow(ByVal row As spSELECTtblTrdinHeaderRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblTrdinHeaderDataTable" 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 spSELECTtblTrdinInvoiceDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblTrdinInvoiceRow) Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnSpeditionsbuch As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnRechnungsLandKz As Global.System.Data.DataColumn Private columnRechnungsUstIdKz As Global.System.Data.DataColumn Private columnRechnungsUstIdNr As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnWährungLokal As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragLokal As Global.System.Data.DataColumn Private columnSteuerfreierBetragLokal As Global.System.Data.DataColumn Private columnSteuerbetragLokal As Global.System.Data.DataColumn Private columnRechnungsbetragLokal As Global.System.Data.DataColumn Private columnWährungFremd As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragFremd As Global.System.Data.DataColumn Private columnSteuerfreierBetragFremd As Global.System.Data.DataColumn Private columnSteuerbetragFremd As Global.System.Data.DataColumn Private columnRechnungsbetragFremd As Global.System.Data.DataColumn Private columnTrdinDateiname As Global.System.Data.DataColumn Private columnAbgleich_op_debitor As Global.System.Data.DataColumn Private columnNettozahlungsziel As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblTrdinInvoice" 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 RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property SpeditionsbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuch End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property RechnungsLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsLandKz End Get End Property _ Public ReadOnly Property RechnungsUstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdKz End Get End Property _ Public ReadOnly Property RechnungsUstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdNr End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property WährungLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungLokal End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragLokal End Get End Property _ Public ReadOnly Property SteuerfreierBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragLokal End Get End Property _ Public ReadOnly Property SteuerbetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetragLokal End Get End Property _ Public ReadOnly Property RechnungsbetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetragLokal End Get End Property _ Public ReadOnly Property WährungFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungFremd End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragFremd End Get End Property _ Public ReadOnly Property SteuerfreierBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragFremd End Get End Property _ Public ReadOnly Property SteuerbetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetragFremd End Get End Property _ Public ReadOnly Property RechnungsbetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetragFremd End Get End Property _ Public ReadOnly Property TrdinDateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnTrdinDateiname End Get End Property _ Public ReadOnly Property Abgleich_op_debitorColumn() As Global.System.Data.DataColumn Get Return Me.columnAbgleich_op_debitor End Get End Property _ Public ReadOnly Property NettozahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnNettozahlungsziel End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_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 spSELECTtblTrdinInvoiceRow Get Return CType(Me.Rows(index),spSELECTtblTrdinInvoiceRow) End Get End Property _ Public Event spSELECTtblTrdinInvoiceRowChanging As spSELECTtblTrdinInvoiceRowChangeEventHandler _ Public Event spSELECTtblTrdinInvoiceRowChanged As spSELECTtblTrdinInvoiceRowChangeEventHandler _ Public Event spSELECTtblTrdinInvoiceRowDeleting As spSELECTtblTrdinInvoiceRowChangeEventHandler _ Public Event spSELECTtblTrdinInvoiceRowDeleted As spSELECTtblTrdinInvoiceRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblTrdinInvoiceRow(ByVal row As spSELECTtblTrdinInvoiceRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblTrdinInvoiceRow( _ ByVal Rechnungsdatum As Date, _ ByVal Rechnungsnummer As Integer, _ ByVal Speditionsbuch As Short, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal BelegartenNr As Short, _ ByVal KundenNrZentrale As Integer, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsLandKz As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal Lastschrift As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal _Steuersatz__ As Single, _ ByVal WährungLokal As String, _ ByVal SteuerpflichtigerBetragLokal As Decimal, _ ByVal SteuerfreierBetragLokal As Decimal, _ ByVal SteuerbetragLokal As Decimal, _ ByVal RechnungsbetragLokal As Decimal, _ ByVal WährungFremd As String, _ ByVal SteuerpflichtigerBetragFremd As Decimal, _ ByVal SteuerfreierBetragFremd As Decimal, _ ByVal SteuerbetragFremd As Decimal, _ ByVal RechnungsbetragFremd As Decimal, _ ByVal TrdinDateiname As String, _ ByVal Abgleich_op_debitor As Boolean, _ ByVal Nettozahlungsziel As Short, _ ByVal Firma_ID As Short, _ ByVal UStVAn_ID As Integer) As spSELECTtblTrdinInvoiceRow Dim rowspSELECTtblTrdinInvoiceRow As spSELECTtblTrdinInvoiceRow = CType(Me.NewRow,spSELECTtblTrdinInvoiceRow) Dim columnValuesArray() As Object = New Object() {Rechnungsdatum, Rechnungsnummer, Speditionsbuch, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, BelegartenNr, KundenNrZentrale, RechnungsKundenNr, RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr, Lastschrift, Steuerschlüssel, _Steuersatz__, WährungLokal, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerbetragLokal, RechnungsbetragLokal, WährungFremd, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, SteuerbetragFremd, RechnungsbetragFremd, TrdinDateiname, Abgleich_op_debitor, Nettozahlungsziel, Firma_ID, UStVAn_ID} rowspSELECTtblTrdinInvoiceRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblTrdinInvoiceRow) Return rowspSELECTtblTrdinInvoiceRow End Function _ Public Function FindByRechnungsdatumRechnungsnummer(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer) As spSELECTtblTrdinInvoiceRow Return CType(Me.Rows.Find(New Object() {Rechnungsdatum, Rechnungsnummer}),spSELECTtblTrdinInvoiceRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblTrdinInvoiceDataTable = CType(MyBase.Clone,spSELECTtblTrdinInvoiceDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblTrdinInvoiceDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnSpeditionsbuch = MyBase.Columns("Speditionsbuch") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnRechnungsLandKz = MyBase.Columns("RechnungsLandKz") Me.columnRechnungsUstIdKz = MyBase.Columns("RechnungsUstIdKz") Me.columnRechnungsUstIdNr = MyBase.Columns("RechnungsUstIdNr") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnWährungLokal = MyBase.Columns("WährungLokal") Me.columnSteuerpflichtigerBetragLokal = MyBase.Columns("SteuerpflichtigerBetragLokal") Me.columnSteuerfreierBetragLokal = MyBase.Columns("SteuerfreierBetragLokal") Me.columnSteuerbetragLokal = MyBase.Columns("SteuerbetragLokal") Me.columnRechnungsbetragLokal = MyBase.Columns("RechnungsbetragLokal") Me.columnWährungFremd = MyBase.Columns("WährungFremd") Me.columnSteuerpflichtigerBetragFremd = MyBase.Columns("SteuerpflichtigerBetragFremd") Me.columnSteuerfreierBetragFremd = MyBase.Columns("SteuerfreierBetragFremd") Me.columnSteuerbetragFremd = MyBase.Columns("SteuerbetragFremd") Me.columnRechnungsbetragFremd = MyBase.Columns("RechnungsbetragFremd") Me.columnTrdinDateiname = MyBase.Columns("TrdinDateiname") Me.columnAbgleich_op_debitor = MyBase.Columns("Abgleich_op_debitor") Me.columnNettozahlungsziel = MyBase.Columns("Nettozahlungsziel") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") End Sub _ Private Sub InitClass() Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnSpeditionsbuch = New Global.System.Data.DataColumn("Speditionsbuch", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuch) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnRechnungsLandKz = New Global.System.Data.DataColumn("RechnungsLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsLandKz) Me.columnRechnungsUstIdKz = New Global.System.Data.DataColumn("RechnungsUstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdKz) Me.columnRechnungsUstIdNr = New Global.System.Data.DataColumn("RechnungsUstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdNr) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnWährungLokal = New Global.System.Data.DataColumn("WährungLokal", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungLokal) Me.columnSteuerpflichtigerBetragLokal = New Global.System.Data.DataColumn("SteuerpflichtigerBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragLokal) Me.columnSteuerfreierBetragLokal = New Global.System.Data.DataColumn("SteuerfreierBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragLokal) Me.columnSteuerbetragLokal = New Global.System.Data.DataColumn("SteuerbetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetragLokal) Me.columnRechnungsbetragLokal = New Global.System.Data.DataColumn("RechnungsbetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetragLokal) Me.columnWährungFremd = New Global.System.Data.DataColumn("WährungFremd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungFremd) Me.columnSteuerpflichtigerBetragFremd = New Global.System.Data.DataColumn("SteuerpflichtigerBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragFremd) Me.columnSteuerfreierBetragFremd = New Global.System.Data.DataColumn("SteuerfreierBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragFremd) Me.columnSteuerbetragFremd = New Global.System.Data.DataColumn("SteuerbetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetragFremd) Me.columnRechnungsbetragFremd = New Global.System.Data.DataColumn("RechnungsbetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetragFremd) Me.columnTrdinDateiname = New Global.System.Data.DataColumn("TrdinDateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTrdinDateiname) Me.columnAbgleich_op_debitor = New Global.System.Data.DataColumn("Abgleich_op_debitor", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbgleich_op_debitor) Me.columnNettozahlungsziel = New Global.System.Data.DataColumn("Nettozahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettozahlungsziel) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRechnungsdatum, Me.columnRechnungsnummer}, true)) Me.columnRechnungsdatum.AllowDBNull = false Me.columnRechnungsnummer.AllowDBNull = false Me.columnRechnungsLandKz.MaxLength = 3 Me.columnRechnungsUstIdKz.MaxLength = 2 Me.columnRechnungsUstIdNr.MaxLength = 12 Me.columnLastschrift.AllowDBNull = false Me.columnWährungLokal.MaxLength = 3 Me.columnWährungFremd.MaxLength = 3 Me.columnTrdinDateiname.MaxLength = 12 Me.columnAbgleich_op_debitor.AllowDBNull = false Me.columnFirma_ID.AllowDBNull = false End Sub _ Public Function NewspSELECTtblTrdinInvoiceRow() As spSELECTtblTrdinInvoiceRow Return CType(Me.NewRow,spSELECTtblTrdinInvoiceRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblTrdinInvoiceRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblTrdinInvoiceRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblTrdinInvoiceRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinInvoiceRowChanged(Me, New spSELECTtblTrdinInvoiceRowChangeEvent(CType(e.Row,spSELECTtblTrdinInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblTrdinInvoiceRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinInvoiceRowChanging(Me, New spSELECTtblTrdinInvoiceRowChangeEvent(CType(e.Row,spSELECTtblTrdinInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblTrdinInvoiceRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinInvoiceRowDeleted(Me, New spSELECTtblTrdinInvoiceRowChangeEvent(CType(e.Row,spSELECTtblTrdinInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblTrdinInvoiceRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinInvoiceRowDeleting(Me, New spSELECTtblTrdinInvoiceRowChangeEvent(CType(e.Row,spSELECTtblTrdinInvoiceRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblTrdinInvoiceRow(ByVal row As spSELECTtblTrdinInvoiceRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblTrdinInvoiceDataTable" 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 spSELECTtblTrdinProductDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblTrdinProductRow) Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnLeistungsnummer As Global.System.Data.DataColumn Private columnLeistungsbezeichnung As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragLokal As Global.System.Data.DataColumn Private columnSteuerfreierBetragLokal As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragFremd As Global.System.Data.DataColumn Private columnSteuerfreierBetragFremd As Global.System.Data.DataColumn Private columnBelegdaten As Global.System.Data.DataColumn Private columnSachkonto As Global.System.Data.DataColumn Private columnBuchungstext As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblTrdinProduct" 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 RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property LeistungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsnummer End Get End Property _ Public ReadOnly Property LeistungsbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsbezeichnung End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragLokal End Get End Property _ Public ReadOnly Property SteuerfreierBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragLokal End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragFremd End Get End Property _ Public ReadOnly Property SteuerfreierBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragFremd End Get End Property _ Public ReadOnly Property BelegdatenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdaten End Get End Property _ Public ReadOnly Property SachkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkonto End Get End Property _ Public ReadOnly Property BuchungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungstext 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 spSELECTtblTrdinProductRow Get Return CType(Me.Rows(index),spSELECTtblTrdinProductRow) End Get End Property _ Public Event spSELECTtblTrdinProductRowChanging As spSELECTtblTrdinProductRowChangeEventHandler _ Public Event spSELECTtblTrdinProductRowChanged As spSELECTtblTrdinProductRowChangeEventHandler _ Public Event spSELECTtblTrdinProductRowDeleting As spSELECTtblTrdinProductRowChangeEventHandler _ Public Event spSELECTtblTrdinProductRowDeleted As spSELECTtblTrdinProductRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblTrdinProductRow(ByVal row As spSELECTtblTrdinProductRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblTrdinProductRow(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean, ByVal SteuerpflichtigerBetragLokal As Decimal, ByVal SteuerfreierBetragLokal As Decimal, ByVal SteuerpflichtigerBetragFremd As Decimal, ByVal SteuerfreierBetragFremd As Decimal, ByVal Belegdaten As String, ByVal Sachkonto As String, ByVal Buchungstext As String) As spSELECTtblTrdinProductRow Dim rowspSELECTtblTrdinProductRow As spSELECTtblTrdinProductRow = CType(Me.NewRow,spSELECTtblTrdinProductRow) Dim columnValuesArray() As Object = New Object() {Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, Belegdaten, Sachkonto, Buchungstext} rowspSELECTtblTrdinProductRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblTrdinProductRow) Return rowspSELECTtblTrdinProductRow End Function _ Public Function FindByRechnungsdatumRechnungsnummerLeistungsnummerLeistungsbezeichnungSteuerpflichtig(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean) As spSELECTtblTrdinProductRow Return CType(Me.Rows.Find(New Object() {Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig}),spSELECTtblTrdinProductRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblTrdinProductDataTable = CType(MyBase.Clone,spSELECTtblTrdinProductDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblTrdinProductDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnLeistungsnummer = MyBase.Columns("Leistungsnummer") Me.columnLeistungsbezeichnung = MyBase.Columns("Leistungsbezeichnung") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnSteuerpflichtigerBetragLokal = MyBase.Columns("SteuerpflichtigerBetragLokal") Me.columnSteuerfreierBetragLokal = MyBase.Columns("SteuerfreierBetragLokal") Me.columnSteuerpflichtigerBetragFremd = MyBase.Columns("SteuerpflichtigerBetragFremd") Me.columnSteuerfreierBetragFremd = MyBase.Columns("SteuerfreierBetragFremd") Me.columnBelegdaten = MyBase.Columns("Belegdaten") Me.columnSachkonto = MyBase.Columns("Sachkonto") Me.columnBuchungstext = MyBase.Columns("Buchungstext") End Sub _ Private Sub InitClass() Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnLeistungsnummer = New Global.System.Data.DataColumn("Leistungsnummer", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsnummer) Me.columnLeistungsbezeichnung = New Global.System.Data.DataColumn("Leistungsbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsbezeichnung) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnSteuerpflichtigerBetragLokal = New Global.System.Data.DataColumn("SteuerpflichtigerBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragLokal) Me.columnSteuerfreierBetragLokal = New Global.System.Data.DataColumn("SteuerfreierBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragLokal) Me.columnSteuerpflichtigerBetragFremd = New Global.System.Data.DataColumn("SteuerpflichtigerBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragFremd) Me.columnSteuerfreierBetragFremd = New Global.System.Data.DataColumn("SteuerfreierBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragFremd) Me.columnBelegdaten = New Global.System.Data.DataColumn("Belegdaten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdaten) Me.columnSachkonto = New Global.System.Data.DataColumn("Sachkonto", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkonto) Me.columnBuchungstext = New Global.System.Data.DataColumn("Buchungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungstext) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRechnungsdatum, Me.columnRechnungsnummer, Me.columnLeistungsnummer, Me.columnLeistungsbezeichnung, Me.columnSteuerpflichtig}, true)) Me.columnRechnungsdatum.AllowDBNull = false Me.columnRechnungsnummer.AllowDBNull = false Me.columnLeistungsnummer.AllowDBNull = false Me.columnLeistungsbezeichnung.AllowDBNull = false Me.columnLeistungsbezeichnung.MaxLength = 30 Me.columnSteuerpflichtig.AllowDBNull = false Me.columnBelegdaten.MaxLength = 30 Me.columnSachkonto.MaxLength = 7 Me.columnBuchungstext.MaxLength = 35 End Sub _ Public Function NewspSELECTtblTrdinProductRow() As spSELECTtblTrdinProductRow Return CType(Me.NewRow,spSELECTtblTrdinProductRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblTrdinProductRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblTrdinProductRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblTrdinProductRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinProductRowChanged(Me, New spSELECTtblTrdinProductRowChangeEvent(CType(e.Row,spSELECTtblTrdinProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblTrdinProductRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinProductRowChanging(Me, New spSELECTtblTrdinProductRowChangeEvent(CType(e.Row,spSELECTtblTrdinProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblTrdinProductRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinProductRowDeleted(Me, New spSELECTtblTrdinProductRowChangeEvent(CType(e.Row,spSELECTtblTrdinProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblTrdinProductRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblTrdinProductRowDeleting(Me, New spSELECTtblTrdinProductRowChangeEvent(CType(e.Row,spSELECTtblTrdinProductRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblTrdinProductRow(ByVal row As spSELECTtblTrdinProductRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblTrdinProductDataTable" 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 spSELECTtblUStVAntragDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblUStVAntragRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVAn_KuNr As Global.System.Data.DataColumn Private columnUStVAn_Name As Global.System.Data.DataColumn Private columnUStVAn_Straße As Global.System.Data.DataColumn Private columnUStVAn_LandKz As Global.System.Data.DataColumn Private columnUStVAn_PLZ As Global.System.Data.DataColumn Private columnUStVAn_Ort As Global.System.Data.DataColumn Private columnUStVAn_Land As Global.System.Data.DataColumn Private columnUStVAn_Gewerbe As Global.System.Data.DataColumn Private columnUStVAn_Steuernummer As Global.System.Data.DataColumn Private columnUStVAn_ReDatVon As Global.System.Data.DataColumn Private columnUStVAn_ReDatBis As Global.System.Data.DataColumn Private columnUStVAn_Bankverbindung As Global.System.Data.DataColumn Private columnUStVAn_BLZ As Global.System.Data.DataColumn Private columnUStVAn_KTO As Global.System.Data.DataColumn Private columnUStVAn_Kontoinhaber As Global.System.Data.DataColumn Private columnUStVAn_BIC As Global.System.Data.DataColumn Private columnUStVAn_IBAN As Global.System.Data.DataColumn Private columnUStVAn_Anlagen As Global.System.Data.DataColumn Private columnUStVAn_Rechnungen As Global.System.Data.DataColumn Private columnUStVAn_Einfuhrdokumente As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_a As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_1 As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_2 As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_3 As Global.System.Data.DataColumn Private columnUStVAn_Ausstellungsort As Global.System.Data.DataColumn Private columnUStVAn_Ausstellungsdatum As Global.System.Data.DataColumn Private columnUStVAn_Unterschrift As Global.System.Data.DataColumn Private columnUStVAn_LandNr As Global.System.Data.DataColumn Private columnUStVAn_Beleganzahl As Global.System.Data.DataColumn Private columnUStVAn_BeleganzahlRetourniert As Global.System.Data.DataColumn Private columnUStVAn_Retournierungsgrund As Global.System.Data.DataColumn Private columnUStVAn_AntragEingereichtAm As Global.System.Data.DataColumn Private columnUStVAn_BelegeWeitergeleitetAm As Global.System.Data.DataColumn Private columnUStVAn_Vertreter As Global.System.Data.DataColumn Private columnUStVAn_BezugsNr As Global.System.Data.DataColumn Private columnUStVAn_3470 As Global.System.Data.DataColumn Private columnUStVAn_VZBetrag As Global.System.Data.DataColumn Private columnUStVAn_VZDatum As Global.System.Data.DataColumn Private columnUStVAn_RZBetragVZ As Global.System.Data.DataColumn Private columnUStVAn_RZDatumVZ As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUStVAn_Währungscode As Global.System.Data.DataColumn Private columnUStVAn_USteuerbetrag As Global.System.Data.DataColumn Private columnUStVAn_Erstattungsbetrag As Global.System.Data.DataColumn Private columnUStVAn_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVAn_ErstattungsbetragEUR As Global.System.Data.DataColumn Private columnUStVAn_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVAn_Zeitstempel As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblUStVAntrag" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVAn_KuNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_KuNr End Get End Property _ Public ReadOnly Property UStVAn_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Name End Get End Property _ Public ReadOnly Property UStVAn_StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Straße End Get End Property _ Public ReadOnly Property UStVAn_LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_LandKz End Get End Property _ Public ReadOnly Property UStVAn_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_PLZ End Get End Property _ Public ReadOnly Property UStVAn_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ort End Get End Property _ Public ReadOnly Property UStVAn_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Land End Get End Property _ Public ReadOnly Property UStVAn_GewerbeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Gewerbe End Get End Property _ Public ReadOnly Property UStVAn_SteuernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Steuernummer End Get End Property _ Public ReadOnly Property UStVAn_ReDatVonColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ReDatVon End Get End Property _ Public ReadOnly Property UStVAn_ReDatBisColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ReDatBis End Get End Property _ Public ReadOnly Property UStVAn_BankverbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Bankverbindung End Get End Property _ Public ReadOnly Property UStVAn_BLZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BLZ End Get End Property _ Public ReadOnly Property UStVAn_KTOColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_KTO End Get End Property _ Public ReadOnly Property UStVAn_KontoinhaberColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Kontoinhaber End Get End Property _ Public ReadOnly Property UStVAn_BICColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BIC End Get End Property _ Public ReadOnly Property UStVAn_IBANColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_IBAN End Get End Property _ Public ReadOnly Property UStVAn_AnlagenColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Anlagen End Get End Property _ Public ReadOnly Property UStVAn_RechnungenColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Rechnungen End Get End Property _ Public ReadOnly Property UStVAn_EinfuhrdokumenteColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Einfuhrdokumente End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_aColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_a End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_1Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_1 End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_2Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_2 End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_3Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_3 End Get End Property _ Public ReadOnly Property UStVAn_AusstellungsortColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ausstellungsort End Get End Property _ Public ReadOnly Property UStVAn_AusstellungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ausstellungsdatum End Get End Property _ Public ReadOnly Property UStVAn_UnterschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Unterschrift End Get End Property _ Public ReadOnly Property UStVAn_LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_LandNr End Get End Property _ Public ReadOnly Property UStVAn_BeleganzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Beleganzahl End Get End Property _ Public ReadOnly Property UStVAn_BeleganzahlRetourniertColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BeleganzahlRetourniert End Get End Property _ Public ReadOnly Property UStVAn_RetournierungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Retournierungsgrund End Get End Property _ Public ReadOnly Property UStVAn_AntragEingereichtAmColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_AntragEingereichtAm End Get End Property _ Public ReadOnly Property UStVAn_BelegeWeitergeleitetAmColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BelegeWeitergeleitetAm End Get End Property _ Public ReadOnly Property UStVAn_VertreterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Vertreter End Get End Property _ Public ReadOnly Property UStVAn_BezugsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BezugsNr End Get End Property _ Public ReadOnly Property UStVAn_3470Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_3470 End Get End Property _ Public ReadOnly Property UStVAn_VZBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZBetrag End Get End Property _ Public ReadOnly Property UStVAn_VZDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZDatum End Get End Property _ Public ReadOnly Property UStVAn_RZBetragVZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_RZBetragVZ End Get End Property _ Public ReadOnly Property UStVAn_RZDatumVZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_RZDatumVZ End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UStVAn_WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Währungscode End Get End Property _ Public ReadOnly Property UStVAn_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_USteuerbetrag End Get End Property _ Public ReadOnly Property UStVAn_ErstattungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erstattungsbetrag End Get End Property _ Public ReadOnly Property UStVAn_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVAn_ErstattungsbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ErstattungsbetragEUR End Get End Property _ Public ReadOnly Property UStVAn_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVAn_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Zeitstempel 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 spSELECTtblUStVAntragRow Get Return CType(Me.Rows(index),spSELECTtblUStVAntragRow) End Get End Property _ Public Event spSELECTtblUStVAntragRowChanging As spSELECTtblUStVAntragRowChangeEventHandler _ Public Event spSELECTtblUStVAntragRowChanged As spSELECTtblUStVAntragRowChangeEventHandler _ Public Event spSELECTtblUStVAntragRowDeleting As spSELECTtblUStVAntragRowChangeEventHandler _ Public Event spSELECTtblUStVAntragRowDeleted As spSELECTtblUStVAntragRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblUStVAntragRow(ByVal row As spSELECTtblUStVAntragRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblUStVAntragRow( _ ByVal UStVAn_KuNr As Integer, _ ByVal UStVAn_Name As String, _ ByVal UStVAn_Straße As String, _ ByVal UStVAn_LandKz As String, _ ByVal UStVAn_PLZ As String, _ ByVal UStVAn_Ort As String, _ ByVal UStVAn_Land As String, _ ByVal UStVAn_Gewerbe As String, _ ByVal UStVAn_Steuernummer As String, _ ByVal UStVAn_ReDatVon As Date, _ ByVal UStVAn_ReDatBis As Date, _ ByVal UStVAn_Bankverbindung As String, _ ByVal UStVAn_BLZ As String, _ ByVal UStVAn_KTO As String, _ ByVal UStVAn_Kontoinhaber As String, _ ByVal UStVAn_BIC As String, _ ByVal UStVAn_IBAN As String, _ ByVal UStVAn_Anlagen As Short, _ ByVal UStVAn_Rechnungen As Short, _ ByVal UStVAn_Einfuhrdokumente As Short, _ ByVal UStVAn_Erklärung_9_a As String, _ ByVal UStVAn_Erklärung_9_b_1 As Boolean, _ ByVal UStVAn_Erklärung_9_b_2 As Boolean, _ ByVal UStVAn_Erklärung_9_b_3 As Boolean, _ ByVal UStVAn_Ausstellungsort As String, _ ByVal UStVAn_Ausstellungsdatum As Date, _ ByVal UStVAn_Unterschrift As String, _ ByVal UStVAn_LandNr As Short, _ ByVal UStVAn_Beleganzahl As Short, _ ByVal UStVAn_BeleganzahlRetourniert As Short, _ ByVal UStVAn_Retournierungsgrund As String, _ ByVal UStVAn_AntragEingereichtAm As Date, _ ByVal UStVAn_BelegeWeitergeleitetAm As Date, _ ByVal UStVAn_Vertreter As Integer, _ ByVal UStVAn_BezugsNr As String, _ ByVal UStVAn_3470 As Decimal, _ ByVal UStVAn_VZBetrag As Decimal, _ ByVal UStVAn_VZDatum As Date, _ ByVal UStVAn_RZBetragVZ As Decimal, _ ByVal UStVAn_RZDatumVZ As Date, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UStVAn_Währungscode As String, _ ByVal UStVAn_USteuerbetrag As Decimal, _ ByVal UStVAn_Erstattungsbetrag As Decimal, _ ByVal UStVAn_USteuerbetragEUR As Decimal, _ ByVal UStVAn_ErstattungsbetragEUR As Decimal, _ ByVal UStVAn_Sachbearbeiter As String, _ ByVal UStVAn_Zeitstempel As Date) As spSELECTtblUStVAntragRow Dim rowspSELECTtblUStVAntragRow As spSELECTtblUStVAntragRow = CType(Me.NewRow,spSELECTtblUStVAntragRow) Dim columnValuesArray() As Object = New Object() {Nothing, UStVAn_KuNr, UStVAn_Name, UStVAn_Straße, UStVAn_LandKz, UStVAn_PLZ, UStVAn_Ort, UStVAn_Land, UStVAn_Gewerbe, UStVAn_Steuernummer, UStVAn_ReDatVon, UStVAn_ReDatBis, UStVAn_Bankverbindung, UStVAn_BLZ, UStVAn_KTO, UStVAn_Kontoinhaber, UStVAn_BIC, UStVAn_IBAN, UStVAn_Anlagen, UStVAn_Rechnungen, UStVAn_Einfuhrdokumente, UStVAn_Erklärung_9_a, UStVAn_Erklärung_9_b_1, UStVAn_Erklärung_9_b_2, UStVAn_Erklärung_9_b_3, UStVAn_Ausstellungsort, UStVAn_Ausstellungsdatum, UStVAn_Unterschrift, UStVAn_LandNr, UStVAn_Beleganzahl, UStVAn_BeleganzahlRetourniert, UStVAn_Retournierungsgrund, UStVAn_AntragEingereichtAm, UStVAn_BelegeWeitergeleitetAm, UStVAn_Vertreter, UStVAn_BezugsNr, UStVAn_3470, UStVAn_VZBetrag, UStVAn_VZDatum, UStVAn_RZBetragVZ, UStVAn_RZDatumVZ, FilialenNr, AbfertigungsNr, UStVAn_Währungscode, UStVAn_USteuerbetrag, UStVAn_Erstattungsbetrag, UStVAn_USteuerbetragEUR, UStVAn_ErstattungsbetragEUR, UStVAn_Sachbearbeiter, UStVAn_Zeitstempel} rowspSELECTtblUStVAntragRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblUStVAntragRow) Return rowspSELECTtblUStVAntragRow End Function _ Public Function FindByUStVAn_ID(ByVal UStVAn_ID As Integer) As spSELECTtblUStVAntragRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID}),spSELECTtblUStVAntragRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblUStVAntragDataTable = CType(MyBase.Clone,spSELECTtblUStVAntragDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblUStVAntragDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVAn_KuNr = MyBase.Columns("UStVAn_KuNr") Me.columnUStVAn_Name = MyBase.Columns("UStVAn_Name") Me.columnUStVAn_Straße = MyBase.Columns("UStVAn_Straße") Me.columnUStVAn_LandKz = MyBase.Columns("UStVAn_LandKz") Me.columnUStVAn_PLZ = MyBase.Columns("UStVAn_PLZ") Me.columnUStVAn_Ort = MyBase.Columns("UStVAn_Ort") Me.columnUStVAn_Land = MyBase.Columns("UStVAn_Land") Me.columnUStVAn_Gewerbe = MyBase.Columns("UStVAn_Gewerbe") Me.columnUStVAn_Steuernummer = MyBase.Columns("UStVAn_Steuernummer") Me.columnUStVAn_ReDatVon = MyBase.Columns("UStVAn_ReDatVon") Me.columnUStVAn_ReDatBis = MyBase.Columns("UStVAn_ReDatBis") Me.columnUStVAn_Bankverbindung = MyBase.Columns("UStVAn_Bankverbindung") Me.columnUStVAn_BLZ = MyBase.Columns("UStVAn_BLZ") Me.columnUStVAn_KTO = MyBase.Columns("UStVAn_KTO") Me.columnUStVAn_Kontoinhaber = MyBase.Columns("UStVAn_Kontoinhaber") Me.columnUStVAn_BIC = MyBase.Columns("UStVAn_BIC") Me.columnUStVAn_IBAN = MyBase.Columns("UStVAn_IBAN") Me.columnUStVAn_Anlagen = MyBase.Columns("UStVAn_Anlagen") Me.columnUStVAn_Rechnungen = MyBase.Columns("UStVAn_Rechnungen") Me.columnUStVAn_Einfuhrdokumente = MyBase.Columns("UStVAn_Einfuhrdokumente") Me.columnUStVAn_Erklärung_9_a = MyBase.Columns("UStVAn_Erklärung_9_a") Me.columnUStVAn_Erklärung_9_b_1 = MyBase.Columns("UStVAn_Erklärung_9_b_1") Me.columnUStVAn_Erklärung_9_b_2 = MyBase.Columns("UStVAn_Erklärung_9_b_2") Me.columnUStVAn_Erklärung_9_b_3 = MyBase.Columns("UStVAn_Erklärung_9_b_3") Me.columnUStVAn_Ausstellungsort = MyBase.Columns("UStVAn_Ausstellungsort") Me.columnUStVAn_Ausstellungsdatum = MyBase.Columns("UStVAn_Ausstellungsdatum") Me.columnUStVAn_Unterschrift = MyBase.Columns("UStVAn_Unterschrift") Me.columnUStVAn_LandNr = MyBase.Columns("UStVAn_LandNr") Me.columnUStVAn_Beleganzahl = MyBase.Columns("UStVAn_Beleganzahl") Me.columnUStVAn_BeleganzahlRetourniert = MyBase.Columns("UStVAn_BeleganzahlRetourniert") Me.columnUStVAn_Retournierungsgrund = MyBase.Columns("UStVAn_Retournierungsgrund") Me.columnUStVAn_AntragEingereichtAm = MyBase.Columns("UStVAn_AntragEingereichtAm") Me.columnUStVAn_BelegeWeitergeleitetAm = MyBase.Columns("UStVAn_BelegeWeitergeleitetAm") Me.columnUStVAn_Vertreter = MyBase.Columns("UStVAn_Vertreter") Me.columnUStVAn_BezugsNr = MyBase.Columns("UStVAn_BezugsNr") Me.columnUStVAn_3470 = MyBase.Columns("UStVAn_3470") Me.columnUStVAn_VZBetrag = MyBase.Columns("UStVAn_VZBetrag") Me.columnUStVAn_VZDatum = MyBase.Columns("UStVAn_VZDatum") Me.columnUStVAn_RZBetragVZ = MyBase.Columns("UStVAn_RZBetragVZ") Me.columnUStVAn_RZDatumVZ = MyBase.Columns("UStVAn_RZDatumVZ") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUStVAn_Währungscode = MyBase.Columns("UStVAn_Währungscode") Me.columnUStVAn_USteuerbetrag = MyBase.Columns("UStVAn_USteuerbetrag") Me.columnUStVAn_Erstattungsbetrag = MyBase.Columns("UStVAn_Erstattungsbetrag") Me.columnUStVAn_USteuerbetragEUR = MyBase.Columns("UStVAn_USteuerbetragEUR") Me.columnUStVAn_ErstattungsbetragEUR = MyBase.Columns("UStVAn_ErstattungsbetragEUR") Me.columnUStVAn_Sachbearbeiter = MyBase.Columns("UStVAn_Sachbearbeiter") Me.columnUStVAn_Zeitstempel = MyBase.Columns("UStVAn_Zeitstempel") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVAn_KuNr = New Global.System.Data.DataColumn("UStVAn_KuNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_KuNr) Me.columnUStVAn_Name = New Global.System.Data.DataColumn("UStVAn_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Name) Me.columnUStVAn_Straße = New Global.System.Data.DataColumn("UStVAn_Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Straße) Me.columnUStVAn_LandKz = New Global.System.Data.DataColumn("UStVAn_LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_LandKz) Me.columnUStVAn_PLZ = New Global.System.Data.DataColumn("UStVAn_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_PLZ) Me.columnUStVAn_Ort = New Global.System.Data.DataColumn("UStVAn_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ort) Me.columnUStVAn_Land = New Global.System.Data.DataColumn("UStVAn_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Land) Me.columnUStVAn_Gewerbe = New Global.System.Data.DataColumn("UStVAn_Gewerbe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Gewerbe) Me.columnUStVAn_Steuernummer = New Global.System.Data.DataColumn("UStVAn_Steuernummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Steuernummer) Me.columnUStVAn_ReDatVon = New Global.System.Data.DataColumn("UStVAn_ReDatVon", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ReDatVon) Me.columnUStVAn_ReDatBis = New Global.System.Data.DataColumn("UStVAn_ReDatBis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ReDatBis) Me.columnUStVAn_Bankverbindung = New Global.System.Data.DataColumn("UStVAn_Bankverbindung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Bankverbindung) Me.columnUStVAn_BLZ = New Global.System.Data.DataColumn("UStVAn_BLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BLZ) Me.columnUStVAn_KTO = New Global.System.Data.DataColumn("UStVAn_KTO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_KTO) Me.columnUStVAn_Kontoinhaber = New Global.System.Data.DataColumn("UStVAn_Kontoinhaber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Kontoinhaber) Me.columnUStVAn_BIC = New Global.System.Data.DataColumn("UStVAn_BIC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BIC) Me.columnUStVAn_IBAN = New Global.System.Data.DataColumn("UStVAn_IBAN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_IBAN) Me.columnUStVAn_Anlagen = New Global.System.Data.DataColumn("UStVAn_Anlagen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Anlagen) Me.columnUStVAn_Rechnungen = New Global.System.Data.DataColumn("UStVAn_Rechnungen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Rechnungen) Me.columnUStVAn_Einfuhrdokumente = New Global.System.Data.DataColumn("UStVAn_Einfuhrdokumente", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Einfuhrdokumente) Me.columnUStVAn_Erklärung_9_a = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_a", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_a) Me.columnUStVAn_Erklärung_9_b_1 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_1) Me.columnUStVAn_Erklärung_9_b_2 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_2) Me.columnUStVAn_Erklärung_9_b_3 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_3", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_3) Me.columnUStVAn_Ausstellungsort = New Global.System.Data.DataColumn("UStVAn_Ausstellungsort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ausstellungsort) Me.columnUStVAn_Ausstellungsdatum = New Global.System.Data.DataColumn("UStVAn_Ausstellungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ausstellungsdatum) Me.columnUStVAn_Unterschrift = New Global.System.Data.DataColumn("UStVAn_Unterschrift", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Unterschrift) Me.columnUStVAn_LandNr = New Global.System.Data.DataColumn("UStVAn_LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_LandNr) Me.columnUStVAn_Beleganzahl = New Global.System.Data.DataColumn("UStVAn_Beleganzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Beleganzahl) Me.columnUStVAn_BeleganzahlRetourniert = New Global.System.Data.DataColumn("UStVAn_BeleganzahlRetourniert", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BeleganzahlRetourniert) Me.columnUStVAn_Retournierungsgrund = New Global.System.Data.DataColumn("UStVAn_Retournierungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Retournierungsgrund) Me.columnUStVAn_AntragEingereichtAm = New Global.System.Data.DataColumn("UStVAn_AntragEingereichtAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_AntragEingereichtAm) Me.columnUStVAn_BelegeWeitergeleitetAm = New Global.System.Data.DataColumn("UStVAn_BelegeWeitergeleitetAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BelegeWeitergeleitetAm) Me.columnUStVAn_Vertreter = New Global.System.Data.DataColumn("UStVAn_Vertreter", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Vertreter) Me.columnUStVAn_BezugsNr = New Global.System.Data.DataColumn("UStVAn_BezugsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BezugsNr) Me.columnUStVAn_3470 = New Global.System.Data.DataColumn("UStVAn_3470", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_3470) Me.columnUStVAn_VZBetrag = New Global.System.Data.DataColumn("UStVAn_VZBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZBetrag) Me.columnUStVAn_VZDatum = New Global.System.Data.DataColumn("UStVAn_VZDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZDatum) Me.columnUStVAn_RZBetragVZ = New Global.System.Data.DataColumn("UStVAn_RZBetragVZ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_RZBetragVZ) Me.columnUStVAn_RZDatumVZ = New Global.System.Data.DataColumn("UStVAn_RZDatumVZ", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_RZDatumVZ) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUStVAn_Währungscode = New Global.System.Data.DataColumn("UStVAn_Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Währungscode) Me.columnUStVAn_USteuerbetrag = New Global.System.Data.DataColumn("UStVAn_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_USteuerbetrag) Me.columnUStVAn_Erstattungsbetrag = New Global.System.Data.DataColumn("UStVAn_Erstattungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erstattungsbetrag) Me.columnUStVAn_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVAn_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_USteuerbetragEUR) Me.columnUStVAn_ErstattungsbetragEUR = New Global.System.Data.DataColumn("UStVAn_ErstattungsbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ErstattungsbetragEUR) Me.columnUStVAn_Sachbearbeiter = New Global.System.Data.DataColumn("UStVAn_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Sachbearbeiter) Me.columnUStVAn_Zeitstempel = New Global.System.Data.DataColumn("UStVAn_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Zeitstempel) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID}, true)) Me.columnUStVAn_ID.AutoIncrement = true Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVAn_ID.ReadOnly = true Me.columnUStVAn_ID.Unique = true Me.columnUStVAn_KuNr.AllowDBNull = false Me.columnUStVAn_Name.MaxLength = 80 Me.columnUStVAn_Straße.MaxLength = 40 Me.columnUStVAn_LandKz.MaxLength = 3 Me.columnUStVAn_PLZ.MaxLength = 7 Me.columnUStVAn_Ort.MaxLength = 40 Me.columnUStVAn_Land.MaxLength = 22 Me.columnUStVAn_Gewerbe.MaxLength = 50 Me.columnUStVAn_Steuernummer.MaxLength = 20 Me.columnUStVAn_ReDatVon.AllowDBNull = false Me.columnUStVAn_ReDatBis.AllowDBNull = false Me.columnUStVAn_Bankverbindung.MaxLength = 50 Me.columnUStVAn_BLZ.MaxLength = 8 Me.columnUStVAn_KTO.MaxLength = 12 Me.columnUStVAn_Kontoinhaber.MaxLength = 50 Me.columnUStVAn_BIC.MaxLength = 11 Me.columnUStVAn_IBAN.MaxLength = 27 Me.columnUStVAn_Erklärung_9_a.MaxLength = 50 Me.columnUStVAn_Erklärung_9_b_1.AllowDBNull = false Me.columnUStVAn_Erklärung_9_b_2.AllowDBNull = false Me.columnUStVAn_Erklärung_9_b_3.AllowDBNull = false Me.columnUStVAn_Ausstellungsort.MaxLength = 20 Me.columnUStVAn_Unterschrift.MaxLength = 20 Me.columnUStVAn_LandNr.AllowDBNull = false Me.columnUStVAn_Retournierungsgrund.MaxLength = 255 Me.columnUStVAn_BezugsNr.MaxLength = 35 Me.columnUStVAn_Währungscode.MaxLength = 3 Me.columnUStVAn_Sachbearbeiter.MaxLength = 15 End Sub _ Public Function NewspSELECTtblUStVAntragRow() As spSELECTtblUStVAntragRow Return CType(Me.NewRow,spSELECTtblUStVAntragRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblUStVAntragRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblUStVAntragRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblUStVAntragRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVAntragRowChanged(Me, New spSELECTtblUStVAntragRowChangeEvent(CType(e.Row,spSELECTtblUStVAntragRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblUStVAntragRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVAntragRowChanging(Me, New spSELECTtblUStVAntragRowChangeEvent(CType(e.Row,spSELECTtblUStVAntragRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblUStVAntragRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVAntragRowDeleted(Me, New spSELECTtblUStVAntragRowChangeEvent(CType(e.Row,spSELECTtblUStVAntragRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblUStVAntragRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVAntragRowDeleting(Me, New spSELECTtblUStVAntragRowChangeEvent(CType(e.Row,spSELECTtblUStVAntragRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblUStVAntragRow(ByVal row As spSELECTtblUStVAntragRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblUStVAntragDataTable" 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 spSELECTtblUStVBelegeingangDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblUStVBelegeingangRow) Private columnUStVBe_KuNr As Global.System.Data.DataColumn Private columnUStVBe_EinDat As Global.System.Data.DataColumn Private columnUStVBe_EinNr As Global.System.Data.DataColumn Private columnUStVBe_UStBetrag As Global.System.Data.DataColumn Private columnUStVBe_Beleganzahl As Global.System.Data.DataColumn Private columnUStVBe_Retourniert As Global.System.Data.DataColumn Private columnUStVBe_Bemerkung As Global.System.Data.DataColumn Private columnUStVBe_WeiterDat As Global.System.Data.DataColumn Private columnUStVBe_Empfänger As Global.System.Data.DataColumn Private columnUStVBe_Zeitstempel As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblUStVBelegeingang" 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 UStVBe_KuNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_KuNr End Get End Property _ Public ReadOnly Property UStVBe_EinDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_EinDat End Get End Property _ Public ReadOnly Property UStVBe_EinNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_EinNr End Get End Property _ Public ReadOnly Property UStVBe_UStBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_UStBetrag End Get End Property _ Public ReadOnly Property UStVBe_BeleganzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Beleganzahl End Get End Property _ Public ReadOnly Property UStVBe_RetourniertColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Retourniert End Get End Property _ Public ReadOnly Property UStVBe_BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Bemerkung End Get End Property _ Public ReadOnly Property UStVBe_WeiterDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_WeiterDat End Get End Property _ Public ReadOnly Property UStVBe_EmpfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Empfänger End Get End Property _ Public ReadOnly Property UStVBe_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Zeitstempel 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 spSELECTtblUStVBelegeingangRow Get Return CType(Me.Rows(index),spSELECTtblUStVBelegeingangRow) End Get End Property _ Public Event spSELECTtblUStVBelegeingangRowChanging As spSELECTtblUStVBelegeingangRowChangeEventHandler _ Public Event spSELECTtblUStVBelegeingangRowChanged As spSELECTtblUStVBelegeingangRowChangeEventHandler _ Public Event spSELECTtblUStVBelegeingangRowDeleting As spSELECTtblUStVBelegeingangRowChangeEventHandler _ Public Event spSELECTtblUStVBelegeingangRowDeleted As spSELECTtblUStVBelegeingangRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblUStVBelegeingangRow(ByVal row As spSELECTtblUStVBelegeingangRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblUStVBelegeingangRow(ByVal UStVBe_KuNr As Integer, ByVal UStVBe_EinDat As Date, ByVal UStVBe_UStBetrag As Decimal, ByVal UStVBe_Beleganzahl As Short, ByVal UStVBe_Retourniert As Short, ByVal UStVBe_Bemerkung As String, ByVal UStVBe_WeiterDat As Date, ByVal UStVBe_Empfänger As Integer, ByVal UStVBe_Zeitstempel As Date) As spSELECTtblUStVBelegeingangRow Dim rowspSELECTtblUStVBelegeingangRow As spSELECTtblUStVBelegeingangRow = CType(Me.NewRow,spSELECTtblUStVBelegeingangRow) Dim columnValuesArray() As Object = New Object() {UStVBe_KuNr, UStVBe_EinDat, Nothing, UStVBe_UStBetrag, UStVBe_Beleganzahl, UStVBe_Retourniert, UStVBe_Bemerkung, UStVBe_WeiterDat, UStVBe_Empfänger, UStVBe_Zeitstempel} rowspSELECTtblUStVBelegeingangRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblUStVBelegeingangRow) Return rowspSELECTtblUStVBelegeingangRow End Function _ Public Function FindByUStVBe_EinNr(ByVal UStVBe_EinNr As Integer) As spSELECTtblUStVBelegeingangRow Return CType(Me.Rows.Find(New Object() {UStVBe_EinNr}),spSELECTtblUStVBelegeingangRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblUStVBelegeingangDataTable = CType(MyBase.Clone,spSELECTtblUStVBelegeingangDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblUStVBelegeingangDataTable() End Function _ Friend Sub InitVars() Me.columnUStVBe_KuNr = MyBase.Columns("UStVBe_KuNr") Me.columnUStVBe_EinDat = MyBase.Columns("UStVBe_EinDat") Me.columnUStVBe_EinNr = MyBase.Columns("UStVBe_EinNr") Me.columnUStVBe_UStBetrag = MyBase.Columns("UStVBe_UStBetrag") Me.columnUStVBe_Beleganzahl = MyBase.Columns("UStVBe_Beleganzahl") Me.columnUStVBe_Retourniert = MyBase.Columns("UStVBe_Retourniert") Me.columnUStVBe_Bemerkung = MyBase.Columns("UStVBe_Bemerkung") Me.columnUStVBe_WeiterDat = MyBase.Columns("UStVBe_WeiterDat") Me.columnUStVBe_Empfänger = MyBase.Columns("UStVBe_Empfänger") Me.columnUStVBe_Zeitstempel = MyBase.Columns("UStVBe_Zeitstempel") End Sub _ Private Sub InitClass() Me.columnUStVBe_KuNr = New Global.System.Data.DataColumn("UStVBe_KuNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_KuNr) Me.columnUStVBe_EinDat = New Global.System.Data.DataColumn("UStVBe_EinDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_EinDat) Me.columnUStVBe_EinNr = New Global.System.Data.DataColumn("UStVBe_EinNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_EinNr) Me.columnUStVBe_UStBetrag = New Global.System.Data.DataColumn("UStVBe_UStBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_UStBetrag) Me.columnUStVBe_Beleganzahl = New Global.System.Data.DataColumn("UStVBe_Beleganzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Beleganzahl) Me.columnUStVBe_Retourniert = New Global.System.Data.DataColumn("UStVBe_Retourniert", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Retourniert) Me.columnUStVBe_Bemerkung = New Global.System.Data.DataColumn("UStVBe_Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Bemerkung) Me.columnUStVBe_WeiterDat = New Global.System.Data.DataColumn("UStVBe_WeiterDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_WeiterDat) Me.columnUStVBe_Empfänger = New Global.System.Data.DataColumn("UStVBe_Empfänger", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Empfänger) Me.columnUStVBe_Zeitstempel = New Global.System.Data.DataColumn("UStVBe_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Zeitstempel) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVBe_EinNr}, true)) Me.columnUStVBe_KuNr.AllowDBNull = false Me.columnUStVBe_EinDat.AllowDBNull = false Me.columnUStVBe_EinNr.AutoIncrement = true Me.columnUStVBe_EinNr.AllowDBNull = false Me.columnUStVBe_EinNr.ReadOnly = true Me.columnUStVBe_EinNr.Unique = true Me.columnUStVBe_Bemerkung.MaxLength = 255 End Sub _ Public Function NewspSELECTtblUStVBelegeingangRow() As spSELECTtblUStVBelegeingangRow Return CType(Me.NewRow,spSELECTtblUStVBelegeingangRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblUStVBelegeingangRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblUStVBelegeingangRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblUStVBelegeingangRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVBelegeingangRowChanged(Me, New spSELECTtblUStVBelegeingangRowChangeEvent(CType(e.Row,spSELECTtblUStVBelegeingangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblUStVBelegeingangRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVBelegeingangRowChanging(Me, New spSELECTtblUStVBelegeingangRowChangeEvent(CType(e.Row,spSELECTtblUStVBelegeingangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblUStVBelegeingangRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVBelegeingangRowDeleted(Me, New spSELECTtblUStVBelegeingangRowChangeEvent(CType(e.Row,spSELECTtblUStVBelegeingangRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblUStVBelegeingangRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVBelegeingangRowDeleting(Me, New spSELECTtblUStVBelegeingangRowChangeEvent(CType(e.Row,spSELECTtblUStVBelegeingangRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblUStVBelegeingangRow(ByVal row As spSELECTtblUStVBelegeingangRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblUStVBelegeingangDataTable" 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 spSELECTtblUStVErstattungDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblUStVErstattungRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVEr_ID As Global.System.Data.DataColumn Private columnUStVEr_USteuerbetrag As Global.System.Data.DataColumn Private columnBelegdatum As Global.System.Data.DataColumn Private columnBelegnummer As Global.System.Data.DataColumn Private columnGutschriftsDatum As Global.System.Data.DataColumn Private columnGutschriftsNr As Global.System.Data.DataColumn Private columnBerufungsdatum As Global.System.Data.DataColumn Private columnBerufungshöhe As Global.System.Data.DataColumn Private columnBerufungsgrund As Global.System.Data.DataColumn Private columnBemerkung As Global.System.Data.DataColumn Private columnUStVEr_Umrechnungskurs As Global.System.Data.DataColumn Private columnUStVEr_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVEr_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVEr_Zeitstempel As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblUStVErstattung" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVEr_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_ID End Get End Property _ Public ReadOnly Property UStVEr_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_USteuerbetrag End Get End Property _ Public ReadOnly Property BelegdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdatum End Get End Property _ Public ReadOnly Property BelegnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegnummer End Get End Property _ Public ReadOnly Property GutschriftsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnGutschriftsDatum End Get End Property _ Public ReadOnly Property GutschriftsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnGutschriftsNr End Get End Property _ Public ReadOnly Property BerufungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungsdatum End Get End Property _ Public ReadOnly Property BerufungshöheColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungshöhe End Get End Property _ Public ReadOnly Property BerufungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungsgrund End Get End Property _ Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkung End Get End Property _ Public ReadOnly Property UStVEr_UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Umrechnungskurs End Get End Property _ Public ReadOnly Property UStVEr_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVEr_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVEr_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Zeitstempel 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 spSELECTtblUStVErstattungRow Get Return CType(Me.Rows(index),spSELECTtblUStVErstattungRow) End Get End Property _ Public Event spSELECTtblUStVErstattungRowChanging As spSELECTtblUStVErstattungRowChangeEventHandler _ Public Event spSELECTtblUStVErstattungRowChanged As spSELECTtblUStVErstattungRowChangeEventHandler _ Public Event spSELECTtblUStVErstattungRowDeleting As spSELECTtblUStVErstattungRowChangeEventHandler _ Public Event spSELECTtblUStVErstattungRowDeleted As spSELECTtblUStVErstattungRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblUStVErstattungRow(ByVal row As spSELECTtblUStVErstattungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblUStVErstattungRow(ByVal UStVAn_ID As Integer, ByVal UStVEr_ID As Short, ByVal UStVEr_USteuerbetrag As Decimal, ByVal Belegdatum As Date, ByVal Belegnummer As String, ByVal GutschriftsDatum As Date, ByVal GutschriftsNr As Integer, ByVal Berufungsdatum As Date, ByVal Berufungshöhe As Decimal, ByVal Berufungsgrund As String, ByVal Bemerkung As String, ByVal UStVEr_Umrechnungskurs As Double, ByVal UStVEr_USteuerbetragEUR As Decimal, ByVal UStVEr_Sachbearbeiter As String, ByVal UStVEr_Zeitstempel As Date) As spSELECTtblUStVErstattungRow Dim rowspSELECTtblUStVErstattungRow As spSELECTtblUStVErstattungRow = CType(Me.NewRow,spSELECTtblUStVErstattungRow) Dim columnValuesArray() As Object = New Object() {UStVAn_ID, UStVEr_ID, UStVEr_USteuerbetrag, Belegdatum, Belegnummer, GutschriftsDatum, GutschriftsNr, Berufungsdatum, Berufungshöhe, Berufungsgrund, Bemerkung, UStVEr_Umrechnungskurs, UStVEr_USteuerbetragEUR, UStVEr_Sachbearbeiter, UStVEr_Zeitstempel} rowspSELECTtblUStVErstattungRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblUStVErstattungRow) Return rowspSELECTtblUStVErstattungRow End Function _ Public Function FindByUStVAn_IDUStVEr_ID(ByVal UStVAn_ID As Integer, ByVal UStVEr_ID As Short) As spSELECTtblUStVErstattungRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID, UStVEr_ID}),spSELECTtblUStVErstattungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblUStVErstattungDataTable = CType(MyBase.Clone,spSELECTtblUStVErstattungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblUStVErstattungDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVEr_ID = MyBase.Columns("UStVEr_ID") Me.columnUStVEr_USteuerbetrag = MyBase.Columns("UStVEr_USteuerbetrag") Me.columnBelegdatum = MyBase.Columns("Belegdatum") Me.columnBelegnummer = MyBase.Columns("Belegnummer") Me.columnGutschriftsDatum = MyBase.Columns("GutschriftsDatum") Me.columnGutschriftsNr = MyBase.Columns("GutschriftsNr") Me.columnBerufungsdatum = MyBase.Columns("Berufungsdatum") Me.columnBerufungshöhe = MyBase.Columns("Berufungshöhe") Me.columnBerufungsgrund = MyBase.Columns("Berufungsgrund") Me.columnBemerkung = MyBase.Columns("Bemerkung") Me.columnUStVEr_Umrechnungskurs = MyBase.Columns("UStVEr_Umrechnungskurs") Me.columnUStVEr_USteuerbetragEUR = MyBase.Columns("UStVEr_USteuerbetragEUR") Me.columnUStVEr_Sachbearbeiter = MyBase.Columns("UStVEr_Sachbearbeiter") Me.columnUStVEr_Zeitstempel = MyBase.Columns("UStVEr_Zeitstempel") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVEr_ID = New Global.System.Data.DataColumn("UStVEr_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_ID) Me.columnUStVEr_USteuerbetrag = New Global.System.Data.DataColumn("UStVEr_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_USteuerbetrag) Me.columnBelegdatum = New Global.System.Data.DataColumn("Belegdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdatum) Me.columnBelegnummer = New Global.System.Data.DataColumn("Belegnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegnummer) Me.columnGutschriftsDatum = New Global.System.Data.DataColumn("GutschriftsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGutschriftsDatum) Me.columnGutschriftsNr = New Global.System.Data.DataColumn("GutschriftsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGutschriftsNr) Me.columnBerufungsdatum = New Global.System.Data.DataColumn("Berufungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungsdatum) Me.columnBerufungshöhe = New Global.System.Data.DataColumn("Berufungshöhe", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungshöhe) Me.columnBerufungsgrund = New Global.System.Data.DataColumn("Berufungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungsgrund) Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkung) Me.columnUStVEr_Umrechnungskurs = New Global.System.Data.DataColumn("UStVEr_Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Umrechnungskurs) Me.columnUStVEr_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVEr_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_USteuerbetragEUR) Me.columnUStVEr_Sachbearbeiter = New Global.System.Data.DataColumn("UStVEr_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Sachbearbeiter) Me.columnUStVEr_Zeitstempel = New Global.System.Data.DataColumn("UStVEr_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Zeitstempel) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID, Me.columnUStVEr_ID}, true)) Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVEr_ID.AllowDBNull = false Me.columnUStVEr_USteuerbetrag.AllowDBNull = false Me.columnBelegnummer.MaxLength = 15 Me.columnBerufungsgrund.MaxLength = 255 Me.columnBemerkung.MaxLength = 255 Me.columnUStVEr_Sachbearbeiter.MaxLength = 15 End Sub _ Public Function NewspSELECTtblUStVErstattungRow() As spSELECTtblUStVErstattungRow Return CType(Me.NewRow,spSELECTtblUStVErstattungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblUStVErstattungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblUStVErstattungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblUStVErstattungRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVErstattungRowChanged(Me, New spSELECTtblUStVErstattungRowChangeEvent(CType(e.Row,spSELECTtblUStVErstattungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblUStVErstattungRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVErstattungRowChanging(Me, New spSELECTtblUStVErstattungRowChangeEvent(CType(e.Row,spSELECTtblUStVErstattungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblUStVErstattungRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVErstattungRowDeleted(Me, New spSELECTtblUStVErstattungRowChangeEvent(CType(e.Row,spSELECTtblUStVErstattungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblUStVErstattungRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVErstattungRowDeleting(Me, New spSELECTtblUStVErstattungRowChangeEvent(CType(e.Row,spSELECTtblUStVErstattungRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblUStVErstattungRow(ByVal row As spSELECTtblUStVErstattungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblUStVErstattungDataTable" 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 spSELECTtblUStVPositionenDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblUStVPositionenRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVPo_ID As Global.System.Data.DataColumn Private columnUStVPo_ReDat As Global.System.Data.DataColumn Private columnUStVPo_ReNr As Global.System.Data.DataColumn Private columnUStVPo_USteuerbetrag As Global.System.Data.DataColumn Private columnUStVPo_Leistungsbezeichnung As Global.System.Data.DataColumn Private columnUStVPo_Leistender As Global.System.Data.DataColumn Private columnUStVPo_Schnittstelle As Global.System.Data.DataColumn Private columnUStVPo_SchnittstellenNr As Global.System.Data.DataColumn Private columnUStVPo_Umrechnungskurs As Global.System.Data.DataColumn Private columnUStVPo_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVPo_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVPo_Zeitstempel As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblUStVPositionen" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVPo_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ID End Get End Property _ Public ReadOnly Property UStVPo_ReDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ReDat End Get End Property _ Public ReadOnly Property UStVPo_ReNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ReNr End Get End Property _ Public ReadOnly Property UStVPo_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_USteuerbetrag End Get End Property _ Public ReadOnly Property UStVPo_LeistungsbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Leistungsbezeichnung End Get End Property _ Public ReadOnly Property UStVPo_LeistenderColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Leistender End Get End Property _ Public ReadOnly Property UStVPo_SchnittstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Schnittstelle End Get End Property _ Public ReadOnly Property UStVPo_SchnittstellenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_SchnittstellenNr End Get End Property _ Public ReadOnly Property UStVPo_UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Umrechnungskurs End Get End Property _ Public ReadOnly Property UStVPo_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVPo_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVPo_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Zeitstempel 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 spSELECTtblUStVPositionenRow Get Return CType(Me.Rows(index),spSELECTtblUStVPositionenRow) End Get End Property _ Public Event spSELECTtblUStVPositionenRowChanging As spSELECTtblUStVPositionenRowChangeEventHandler _ Public Event spSELECTtblUStVPositionenRowChanged As spSELECTtblUStVPositionenRowChangeEventHandler _ Public Event spSELECTtblUStVPositionenRowDeleting As spSELECTtblUStVPositionenRowChangeEventHandler _ Public Event spSELECTtblUStVPositionenRowDeleted As spSELECTtblUStVPositionenRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblUStVPositionenRow(ByVal row As spSELECTtblUStVPositionenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblUStVPositionenRow(ByVal UStVAn_ID As Integer, ByVal UStVPo_ID As Short, ByVal UStVPo_ReDat As Date, ByVal UStVPo_ReNr As String, ByVal UStVPo_USteuerbetrag As Decimal, ByVal UStVPo_Leistungsbezeichnung As String, ByVal UStVPo_Leistender As String, ByVal UStVPo_Schnittstelle As Boolean, ByVal UStVPo_SchnittstellenNr As Short, ByVal UStVPo_Umrechnungskurs As Double, ByVal UStVPo_USteuerbetragEUR As Decimal, ByVal UStVPo_Sachbearbeiter As String, ByVal UStVPo_Zeitstempel As Date) As spSELECTtblUStVPositionenRow Dim rowspSELECTtblUStVPositionenRow As spSELECTtblUStVPositionenRow = CType(Me.NewRow,spSELECTtblUStVPositionenRow) Dim columnValuesArray() As Object = New Object() {UStVAn_ID, UStVPo_ID, UStVPo_ReDat, UStVPo_ReNr, UStVPo_USteuerbetrag, UStVPo_Leistungsbezeichnung, UStVPo_Leistender, UStVPo_Schnittstelle, UStVPo_SchnittstellenNr, UStVPo_Umrechnungskurs, UStVPo_USteuerbetragEUR, UStVPo_Sachbearbeiter, UStVPo_Zeitstempel} rowspSELECTtblUStVPositionenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblUStVPositionenRow) Return rowspSELECTtblUStVPositionenRow End Function _ Public Function FindByUStVAn_IDUStVPo_ID(ByVal UStVAn_ID As Integer, ByVal UStVPo_ID As Short) As spSELECTtblUStVPositionenRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID, UStVPo_ID}),spSELECTtblUStVPositionenRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblUStVPositionenDataTable = CType(MyBase.Clone,spSELECTtblUStVPositionenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblUStVPositionenDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVPo_ID = MyBase.Columns("UStVPo_ID") Me.columnUStVPo_ReDat = MyBase.Columns("UStVPo_ReDat") Me.columnUStVPo_ReNr = MyBase.Columns("UStVPo_ReNr") Me.columnUStVPo_USteuerbetrag = MyBase.Columns("UStVPo_USteuerbetrag") Me.columnUStVPo_Leistungsbezeichnung = MyBase.Columns("UStVPo_Leistungsbezeichnung") Me.columnUStVPo_Leistender = MyBase.Columns("UStVPo_Leistender") Me.columnUStVPo_Schnittstelle = MyBase.Columns("UStVPo_Schnittstelle") Me.columnUStVPo_SchnittstellenNr = MyBase.Columns("UStVPo_SchnittstellenNr") Me.columnUStVPo_Umrechnungskurs = MyBase.Columns("UStVPo_Umrechnungskurs") Me.columnUStVPo_USteuerbetragEUR = MyBase.Columns("UStVPo_USteuerbetragEUR") Me.columnUStVPo_Sachbearbeiter = MyBase.Columns("UStVPo_Sachbearbeiter") Me.columnUStVPo_Zeitstempel = MyBase.Columns("UStVPo_Zeitstempel") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVPo_ID = New Global.System.Data.DataColumn("UStVPo_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ID) Me.columnUStVPo_ReDat = New Global.System.Data.DataColumn("UStVPo_ReDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ReDat) Me.columnUStVPo_ReNr = New Global.System.Data.DataColumn("UStVPo_ReNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ReNr) Me.columnUStVPo_USteuerbetrag = New Global.System.Data.DataColumn("UStVPo_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_USteuerbetrag) Me.columnUStVPo_Leistungsbezeichnung = New Global.System.Data.DataColumn("UStVPo_Leistungsbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Leistungsbezeichnung) Me.columnUStVPo_Leistender = New Global.System.Data.DataColumn("UStVPo_Leistender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Leistender) Me.columnUStVPo_Schnittstelle = New Global.System.Data.DataColumn("UStVPo_Schnittstelle", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Schnittstelle) Me.columnUStVPo_SchnittstellenNr = New Global.System.Data.DataColumn("UStVPo_SchnittstellenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_SchnittstellenNr) Me.columnUStVPo_Umrechnungskurs = New Global.System.Data.DataColumn("UStVPo_Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Umrechnungskurs) Me.columnUStVPo_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVPo_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_USteuerbetragEUR) Me.columnUStVPo_Sachbearbeiter = New Global.System.Data.DataColumn("UStVPo_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Sachbearbeiter) Me.columnUStVPo_Zeitstempel = New Global.System.Data.DataColumn("UStVPo_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Zeitstempel) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID, Me.columnUStVPo_ID}, true)) Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVPo_ID.AllowDBNull = false Me.columnUStVPo_ReNr.MaxLength = 40 Me.columnUStVPo_USteuerbetrag.AllowDBNull = false Me.columnUStVPo_Leistungsbezeichnung.MaxLength = 255 Me.columnUStVPo_Leistender.MaxLength = 65 Me.columnUStVPo_Schnittstelle.AllowDBNull = false Me.columnUStVPo_SchnittstellenNr.AllowDBNull = false Me.columnUStVPo_Sachbearbeiter.MaxLength = 15 End Sub _ Public Function NewspSELECTtblUStVPositionenRow() As spSELECTtblUStVPositionenRow Return CType(Me.NewRow,spSELECTtblUStVPositionenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblUStVPositionenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblUStVPositionenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblUStVPositionenRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVPositionenRowChanged(Me, New spSELECTtblUStVPositionenRowChangeEvent(CType(e.Row,spSELECTtblUStVPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblUStVPositionenRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVPositionenRowChanging(Me, New spSELECTtblUStVPositionenRowChangeEvent(CType(e.Row,spSELECTtblUStVPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblUStVPositionenRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVPositionenRowDeleted(Me, New spSELECTtblUStVPositionenRowChangeEvent(CType(e.Row,spSELECTtblUStVPositionenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblUStVPositionenRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblUStVPositionenRowDeleting(Me, New spSELECTtblUStVPositionenRowChangeEvent(CType(e.Row,spSELECTtblUStVPositionenRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblUStVPositionenRow(ByVal row As spSELECTtblUStVPositionenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblUStVPositionenDataTable" 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 spSELECTtblZolaris_EZoll_NCTSDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTtblZolaris_EZoll_NCTSRow) Private columnCRN As Global.System.Data.DataColumn Private columnAnmeldungsDatum As Global.System.Data.DataColumn Private columnGarantieWert As Global.System.Data.DataColumn Private columnAnmID As Global.System.Data.DataColumn Private columnErledigungsTypID As Global.System.Data.DataColumn Private columnWarenbezeichnung As Global.System.Data.DataColumn Private columnAbsender As Global.System.Data.DataColumn Private columnEmpfaenger As Global.System.Data.DataColumn Private columnGesamtrohmasse As Global.System.Data.DataColumn Private columnAbgangszollstelle As Global.System.Data.DataColumn Private columnBestimmungszollstelle As Global.System.Data.DataColumn Private columnGestellungsfrist As Global.System.Data.DataColumn Private columnLRN As Global.System.Data.DataColumn Private columnDatumBestimmungErreicht As Global.System.Data.DataColumn Private columnGRN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTtblZolaris_EZoll_NCTS" 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 CRNColumn() As Global.System.Data.DataColumn Get Return Me.columnCRN End Get End Property _ Public ReadOnly Property AnmeldungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmeldungsDatum End Get End Property _ Public ReadOnly Property GarantieWertColumn() As Global.System.Data.DataColumn Get Return Me.columnGarantieWert End Get End Property _ Public ReadOnly Property AnmIDColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmID End Get End Property _ Public ReadOnly Property ErledigungsTypIDColumn() As Global.System.Data.DataColumn Get Return Me.columnErledigungsTypID End Get End Property _ Public ReadOnly Property WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnWarenbezeichnung End Get End Property _ Public ReadOnly Property AbsenderColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsender End Get End Property _ Public ReadOnly Property EmpfaengerColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfaenger End Get End Property _ Public ReadOnly Property GesamtrohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtrohmasse End Get End Property _ Public ReadOnly Property AbgangszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnAbgangszollstelle End Get End Property _ Public ReadOnly Property BestimmungszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungszollstelle End Get End Property _ Public ReadOnly Property GestellungsfristColumn() As Global.System.Data.DataColumn Get Return Me.columnGestellungsfrist End Get End Property _ Public ReadOnly Property LRNColumn() As Global.System.Data.DataColumn Get Return Me.columnLRN End Get End Property _ Public ReadOnly Property DatumBestimmungErreichtColumn() As Global.System.Data.DataColumn Get Return Me.columnDatumBestimmungErreicht End Get End Property _ Public ReadOnly Property GRNColumn() As Global.System.Data.DataColumn Get Return Me.columnGRN 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 spSELECTtblZolaris_EZoll_NCTSRow Get Return CType(Me.Rows(index),spSELECTtblZolaris_EZoll_NCTSRow) End Get End Property _ Public Event spSELECTtblZolaris_EZoll_NCTSRowChanging As spSELECTtblZolaris_EZoll_NCTSRowChangeEventHandler _ Public Event spSELECTtblZolaris_EZoll_NCTSRowChanged As spSELECTtblZolaris_EZoll_NCTSRowChangeEventHandler _ Public Event spSELECTtblZolaris_EZoll_NCTSRowDeleting As spSELECTtblZolaris_EZoll_NCTSRowChangeEventHandler _ Public Event spSELECTtblZolaris_EZoll_NCTSRowDeleted As spSELECTtblZolaris_EZoll_NCTSRowChangeEventHandler _ Public Overloads Sub AddspSELECTtblZolaris_EZoll_NCTSRow(ByVal row As spSELECTtblZolaris_EZoll_NCTSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTtblZolaris_EZoll_NCTSRow(ByVal CRN As String, ByVal AnmeldungsDatum As Date, ByVal GarantieWert As Decimal, ByVal AnmID As Integer, ByVal ErledigungsTypID As String, ByVal Warenbezeichnung As String, ByVal Absender As String, ByVal Empfaenger As String, ByVal Gesamtrohmasse As Double, ByVal Abgangszollstelle As String, ByVal Bestimmungszollstelle As String, ByVal Gestellungsfrist As Date, ByVal LRN As String, ByVal DatumBestimmungErreicht As Date, ByVal GRN As String) As spSELECTtblZolaris_EZoll_NCTSRow Dim rowspSELECTtblZolaris_EZoll_NCTSRow As spSELECTtblZolaris_EZoll_NCTSRow = CType(Me.NewRow,spSELECTtblZolaris_EZoll_NCTSRow) Dim columnValuesArray() As Object = New Object() {CRN, AnmeldungsDatum, GarantieWert, AnmID, ErledigungsTypID, Warenbezeichnung, Absender, Empfaenger, Gesamtrohmasse, Abgangszollstelle, Bestimmungszollstelle, Gestellungsfrist, LRN, DatumBestimmungErreicht, GRN} rowspSELECTtblZolaris_EZoll_NCTSRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTtblZolaris_EZoll_NCTSRow) Return rowspSELECTtblZolaris_EZoll_NCTSRow End Function _ Public Function FindByCRN(ByVal CRN As String) As spSELECTtblZolaris_EZoll_NCTSRow Return CType(Me.Rows.Find(New Object() {CRN}),spSELECTtblZolaris_EZoll_NCTSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTtblZolaris_EZoll_NCTSDataTable = CType(MyBase.Clone,spSELECTtblZolaris_EZoll_NCTSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTtblZolaris_EZoll_NCTSDataTable() End Function _ Friend Sub InitVars() Me.columnCRN = MyBase.Columns("CRN") Me.columnAnmeldungsDatum = MyBase.Columns("AnmeldungsDatum") Me.columnGarantieWert = MyBase.Columns("GarantieWert") Me.columnAnmID = MyBase.Columns("AnmID") Me.columnErledigungsTypID = MyBase.Columns("ErledigungsTypID") Me.columnWarenbezeichnung = MyBase.Columns("Warenbezeichnung") Me.columnAbsender = MyBase.Columns("Absender") Me.columnEmpfaenger = MyBase.Columns("Empfaenger") Me.columnGesamtrohmasse = MyBase.Columns("Gesamtrohmasse") Me.columnAbgangszollstelle = MyBase.Columns("Abgangszollstelle") Me.columnBestimmungszollstelle = MyBase.Columns("Bestimmungszollstelle") Me.columnGestellungsfrist = MyBase.Columns("Gestellungsfrist") Me.columnLRN = MyBase.Columns("LRN") Me.columnDatumBestimmungErreicht = MyBase.Columns("DatumBestimmungErreicht") Me.columnGRN = MyBase.Columns("GRN") End Sub _ Private Sub InitClass() Me.columnCRN = New Global.System.Data.DataColumn("CRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCRN) Me.columnAnmeldungsDatum = New Global.System.Data.DataColumn("AnmeldungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmeldungsDatum) Me.columnGarantieWert = New Global.System.Data.DataColumn("GarantieWert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGarantieWert) Me.columnAnmID = New Global.System.Data.DataColumn("AnmID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmID) Me.columnErledigungsTypID = New Global.System.Data.DataColumn("ErledigungsTypID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErledigungsTypID) Me.columnWarenbezeichnung = New Global.System.Data.DataColumn("Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarenbezeichnung) Me.columnAbsender = New Global.System.Data.DataColumn("Absender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsender) Me.columnEmpfaenger = New Global.System.Data.DataColumn("Empfaenger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfaenger) Me.columnGesamtrohmasse = New Global.System.Data.DataColumn("Gesamtrohmasse", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtrohmasse) Me.columnAbgangszollstelle = New Global.System.Data.DataColumn("Abgangszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbgangszollstelle) Me.columnBestimmungszollstelle = New Global.System.Data.DataColumn("Bestimmungszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungszollstelle) Me.columnGestellungsfrist = New Global.System.Data.DataColumn("Gestellungsfrist", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGestellungsfrist) Me.columnLRN = New Global.System.Data.DataColumn("LRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLRN) Me.columnDatumBestimmungErreicht = New Global.System.Data.DataColumn("DatumBestimmungErreicht", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatumBestimmungErreicht) Me.columnGRN = New Global.System.Data.DataColumn("GRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGRN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCRN}, true)) Me.columnCRN.AllowDBNull = false Me.columnCRN.Unique = true Me.columnCRN.MaxLength = 21 Me.columnAnmeldungsDatum.AllowDBNull = false Me.columnErledigungsTypID.MaxLength = 10 Me.columnWarenbezeichnung.MaxLength = 1073741823 Me.columnAbsender.MaxLength = 137 Me.columnEmpfaenger.MaxLength = 137 Me.columnAbgangszollstelle.MaxLength = 8 Me.columnBestimmungszollstelle.MaxLength = 8 Me.columnLRN.MaxLength = 22 Me.columnGRN.MaxLength = 24 End Sub _ Public Function NewspSELECTtblZolaris_EZoll_NCTSRow() As spSELECTtblZolaris_EZoll_NCTSRow Return CType(Me.NewRow,spSELECTtblZolaris_EZoll_NCTSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTtblZolaris_EZoll_NCTSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTtblZolaris_EZoll_NCTSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTtblZolaris_EZoll_NCTSRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTtblZolaris_EZoll_NCTSRowChanged(Me, New spSELECTtblZolaris_EZoll_NCTSRowChangeEvent(CType(e.Row,spSELECTtblZolaris_EZoll_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTtblZolaris_EZoll_NCTSRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTtblZolaris_EZoll_NCTSRowChanging(Me, New spSELECTtblZolaris_EZoll_NCTSRowChangeEvent(CType(e.Row,spSELECTtblZolaris_EZoll_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTtblZolaris_EZoll_NCTSRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTtblZolaris_EZoll_NCTSRowDeleted(Me, New spSELECTtblZolaris_EZoll_NCTSRowChangeEvent(CType(e.Row,spSELECTtblZolaris_EZoll_NCTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTtblZolaris_EZoll_NCTSRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTtblZolaris_EZoll_NCTSRowDeleting(Me, New spSELECTtblZolaris_EZoll_NCTSRowChangeEvent(CType(e.Row,spSELECTtblZolaris_EZoll_NCTSRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTtblZolaris_EZoll_NCTSRow(ByVal row As spSELECTtblZolaris_EZoll_NCTSRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTtblZolaris_EZoll_NCTSDataTable" 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 spSELECTUStVErstattungsschreibenDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTUStVErstattungsschreibenRow) Private columnName As Global.System.Data.DataColumn Private columnStraße As Global.System.Data.DataColumn Private columnOrt As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnMWST As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnBetrag As Global.System.Data.DataColumn Private columnKorrAdresse As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTUStVErstattungsschreiben" 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 NameColumn() As Global.System.Data.DataColumn Get Return Me.columnName End Get End Property _ Public ReadOnly Property StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnStraße End Get End Property _ Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnOrt End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property MWSTColumn() As Global.System.Data.DataColumn Get Return Me.columnMWST End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag End Get End Property _ Public ReadOnly Property KorrAdresseColumn() As Global.System.Data.DataColumn Get Return Me.columnKorrAdresse 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 spSELECTUStVErstattungsschreibenRow Get Return CType(Me.Rows(index),spSELECTUStVErstattungsschreibenRow) End Get End Property _ Public Event spSELECTUStVErstattungsschreibenRowChanging As spSELECTUStVErstattungsschreibenRowChangeEventHandler _ Public Event spSELECTUStVErstattungsschreibenRowChanged As spSELECTUStVErstattungsschreibenRowChangeEventHandler _ Public Event spSELECTUStVErstattungsschreibenRowDeleting As spSELECTUStVErstattungsschreibenRowChangeEventHandler _ Public Event spSELECTUStVErstattungsschreibenRowDeleted As spSELECTUStVErstattungsschreibenRowChangeEventHandler _ Public Overloads Sub AddspSELECTUStVErstattungsschreibenRow(ByVal row As spSELECTUStVErstattungsschreibenRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTUStVErstattungsschreibenRow(ByVal Name As String, ByVal Straße As String, ByVal Ort As String, ByVal LandKz As String, ByVal MWST As String, ByVal AbfertigungsNr As Integer, ByVal FilialenNr As Short, ByVal UnterNr As Short, ByVal Betrag As Decimal, ByVal KorrAdresse As String) As spSELECTUStVErstattungsschreibenRow Dim rowspSELECTUStVErstattungsschreibenRow As spSELECTUStVErstattungsschreibenRow = CType(Me.NewRow,spSELECTUStVErstattungsschreibenRow) Dim columnValuesArray() As Object = New Object() {Name, Straße, Ort, LandKz, MWST, AbfertigungsNr, FilialenNr, UnterNr, Betrag, KorrAdresse} rowspSELECTUStVErstattungsschreibenRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTUStVErstattungsschreibenRow) Return rowspSELECTUStVErstattungsschreibenRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTUStVErstattungsschreibenDataTable = CType(MyBase.Clone,spSELECTUStVErstattungsschreibenDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTUStVErstattungsschreibenDataTable() End Function _ Friend Sub InitVars() Me.columnName = MyBase.Columns("Name") Me.columnStraße = MyBase.Columns("Straße") Me.columnOrt = MyBase.Columns("Ort") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnMWST = MyBase.Columns("MWST") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnBetrag = MyBase.Columns("Betrag") Me.columnKorrAdresse = MyBase.Columns("KorrAdresse") End Sub _ Private Sub InitClass() Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName) Me.columnStraße = New Global.System.Data.DataColumn("Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStraße) Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrt) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnMWST = New Global.System.Data.DataColumn("MWST", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMWST) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnBetrag = New Global.System.Data.DataColumn("Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag) Me.columnKorrAdresse = New Global.System.Data.DataColumn("KorrAdresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKorrAdresse) Me.columnName.ReadOnly = true Me.columnName.MaxLength = 512 Me.columnStraße.ReadOnly = true Me.columnStraße.MaxLength = 512 Me.columnOrt.ReadOnly = true Me.columnOrt.MaxLength = 255 Me.columnLandKz.ReadOnly = true Me.columnLandKz.MaxLength = 10 Me.columnMWST.ReadOnly = true Me.columnMWST.MaxLength = 255 Me.columnAbfertigungsNr.AllowDBNull = false Me.columnFilialenNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnBetrag.ReadOnly = true Me.columnKorrAdresse.ReadOnly = true Me.columnKorrAdresse.MaxLength = 2147483647 End Sub _ Public Function NewspSELECTUStVErstattungsschreibenRow() As spSELECTUStVErstattungsschreibenRow Return CType(Me.NewRow,spSELECTUStVErstattungsschreibenRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTUStVErstattungsschreibenRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTUStVErstattungsschreibenRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTUStVErstattungsschreibenRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTUStVErstattungsschreibenRowChanged(Me, New spSELECTUStVErstattungsschreibenRowChangeEvent(CType(e.Row,spSELECTUStVErstattungsschreibenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTUStVErstattungsschreibenRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTUStVErstattungsschreibenRowChanging(Me, New spSELECTUStVErstattungsschreibenRowChangeEvent(CType(e.Row,spSELECTUStVErstattungsschreibenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTUStVErstattungsschreibenRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTUStVErstattungsschreibenRowDeleted(Me, New spSELECTUStVErstattungsschreibenRowChangeEvent(CType(e.Row,spSELECTUStVErstattungsschreibenRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTUStVErstattungsschreibenRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTUStVErstattungsschreibenRowDeleting(Me, New spSELECTUStVErstattungsschreibenRowChangeEvent(CType(e.Row,spSELECTUStVErstattungsschreibenRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTUStVErstattungsschreibenRow(ByVal row As spSELECTUStVErstattungsschreibenRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTUStVErstattungsschreibenDataTable" 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 spSELECTUStVErstattungsschreiben2DataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTUStVErstattungsschreiben2Row) Private columnName As Global.System.Data.DataColumn Private columnStraße As Global.System.Data.DataColumn Private columnOrt As Global.System.Data.DataColumn Private columnLandKz As Global.System.Data.DataColumn Private columnMWST As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnBetrag As Global.System.Data.DataColumn Private columnKorrAdresse As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTUStVErstattungsschreiben2" 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 NameColumn() As Global.System.Data.DataColumn Get Return Me.columnName End Get End Property _ Public ReadOnly Property StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnStraße End Get End Property _ Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnOrt End Get End Property _ Public ReadOnly Property LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnLandKz End Get End Property _ Public ReadOnly Property MWSTColumn() As Global.System.Data.DataColumn Get Return Me.columnMWST End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag End Get End Property _ Public ReadOnly Property KorrAdresseColumn() As Global.System.Data.DataColumn Get Return Me.columnKorrAdresse 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 spSELECTUStVErstattungsschreiben2Row Get Return CType(Me.Rows(index),spSELECTUStVErstattungsschreiben2Row) End Get End Property _ Public Event spSELECTUStVErstattungsschreiben2RowChanging As spSELECTUStVErstattungsschreiben2RowChangeEventHandler _ Public Event spSELECTUStVErstattungsschreiben2RowChanged As spSELECTUStVErstattungsschreiben2RowChangeEventHandler _ Public Event spSELECTUStVErstattungsschreiben2RowDeleting As spSELECTUStVErstattungsschreiben2RowChangeEventHandler _ Public Event spSELECTUStVErstattungsschreiben2RowDeleted As spSELECTUStVErstattungsschreiben2RowChangeEventHandler _ Public Overloads Sub AddspSELECTUStVErstattungsschreiben2Row(ByVal row As spSELECTUStVErstattungsschreiben2Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTUStVErstattungsschreiben2Row(ByVal Name As String, ByVal Straße As String, ByVal Ort As String, ByVal LandKz As String, ByVal MWST As String, ByVal AbfertigungsNr As Integer, ByVal FilialenNr As Short, ByVal UnterNr As Short, ByVal Betrag As Decimal, ByVal KorrAdresse As String) As spSELECTUStVErstattungsschreiben2Row Dim rowspSELECTUStVErstattungsschreiben2Row As spSELECTUStVErstattungsschreiben2Row = CType(Me.NewRow,spSELECTUStVErstattungsschreiben2Row) Dim columnValuesArray() As Object = New Object() {Name, Straße, Ort, LandKz, MWST, AbfertigungsNr, FilialenNr, UnterNr, Betrag, KorrAdresse} rowspSELECTUStVErstattungsschreiben2Row.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTUStVErstattungsschreiben2Row) Return rowspSELECTUStVErstattungsschreiben2Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTUStVErstattungsschreiben2DataTable = CType(MyBase.Clone,spSELECTUStVErstattungsschreiben2DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTUStVErstattungsschreiben2DataTable() End Function _ Friend Sub InitVars() Me.columnName = MyBase.Columns("Name") Me.columnStraße = MyBase.Columns("Straße") Me.columnOrt = MyBase.Columns("Ort") Me.columnLandKz = MyBase.Columns("LandKz") Me.columnMWST = MyBase.Columns("MWST") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnBetrag = MyBase.Columns("Betrag") Me.columnKorrAdresse = MyBase.Columns("KorrAdresse") End Sub _ Private Sub InitClass() Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName) Me.columnStraße = New Global.System.Data.DataColumn("Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStraße) Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrt) Me.columnLandKz = New Global.System.Data.DataColumn("LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandKz) Me.columnMWST = New Global.System.Data.DataColumn("MWST", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMWST) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnBetrag = New Global.System.Data.DataColumn("Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag) Me.columnKorrAdresse = New Global.System.Data.DataColumn("KorrAdresse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKorrAdresse) Me.columnName.ReadOnly = true Me.columnName.MaxLength = 255 Me.columnStraße.MaxLength = 40 Me.columnOrt.ReadOnly = true Me.columnOrt.MaxLength = 255 Me.columnLandKz.ReadOnly = true Me.columnLandKz.MaxLength = 10 Me.columnMWST.ReadOnly = true Me.columnMWST.MaxLength = 255 Me.columnAbfertigungsNr.AllowDBNull = false Me.columnFilialenNr.AllowDBNull = false Me.columnUnterNr.AllowDBNull = false Me.columnBetrag.ReadOnly = true Me.columnKorrAdresse.ReadOnly = true Me.columnKorrAdresse.MaxLength = 2147483647 End Sub _ Public Function NewspSELECTUStVErstattungsschreiben2Row() As spSELECTUStVErstattungsschreiben2Row Return CType(Me.NewRow,spSELECTUStVErstattungsschreiben2Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTUStVErstattungsschreiben2Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTUStVErstattungsschreiben2Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTUStVErstattungsschreiben2RowChangedEvent) Is Nothing) Then RaiseEvent spSELECTUStVErstattungsschreiben2RowChanged(Me, New spSELECTUStVErstattungsschreiben2RowChangeEvent(CType(e.Row,spSELECTUStVErstattungsschreiben2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTUStVErstattungsschreiben2RowChangingEvent) Is Nothing) Then RaiseEvent spSELECTUStVErstattungsschreiben2RowChanging(Me, New spSELECTUStVErstattungsschreiben2RowChangeEvent(CType(e.Row,spSELECTUStVErstattungsschreiben2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTUStVErstattungsschreiben2RowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTUStVErstattungsschreiben2RowDeleted(Me, New spSELECTUStVErstattungsschreiben2RowChangeEvent(CType(e.Row,spSELECTUStVErstattungsschreiben2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTUStVErstattungsschreiben2RowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTUStVErstattungsschreiben2RowDeleting(Me, New spSELECTUStVErstattungsschreiben2RowChangeEvent(CType(e.Row,spSELECTUStVErstattungsschreiben2Row), e.Action)) End If End Sub _ Public Sub RemovespSELECTUStVErstattungsschreiben2Row(ByVal row As spSELECTUStVErstattungsschreiben2Row) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTUStVErstattungsschreiben2DataTable" 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 spSELECTZkteingDataTable Inherits Global.System.Data.TypedTableBase(Of spSELECTZkteingRow) Private columnIndex As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnZollamtsNr As Global.System.Data.DataColumn Private columnJahr As Global.System.Data.DataColumn Private columnKennNr As Global.System.Data.DataColumn Private columnNummer As Global.System.Data.DataColumn Private columnLeitzahl As Global.System.Data.DataColumn Private columnBelegart As Global.System.Data.DataColumn Private columnLeistungsNr As Global.System.Data.DataColumn Private columnBetrag As Global.System.Data.DataColumn Private columnEingabedatum As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnÜbernahmedatum As Global.System.Data.DataColumn Private columnBemerkung As Global.System.Data.DataColumn Private columnSachbearbeiter As Global.System.Data.DataColumn Private columnBezugsnummer As Global.System.Data.DataColumn Private columnRegistriernummer As Global.System.Data.DataColumn Private columnKorrekturnummer As Global.System.Data.DataColumn Private columnAOFD As Global.System.Data.DataColumn Private columnAKTO As Global.System.Data.DataColumn Private columnFälligkeitsdatum As Global.System.Data.DataColumn Private columnDateiname As Global.System.Data.DataColumn Private columnMandant As Global.System.Data.DataColumn Private columnNiederlassung As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spSELECTZkteing" 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 IndexColumn() As Global.System.Data.DataColumn Get Return Me.columnIndex End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property ZollamtsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnZollamtsNr End Get End Property _ Public ReadOnly Property JahrColumn() As Global.System.Data.DataColumn Get Return Me.columnJahr End Get End Property _ Public ReadOnly Property KennNrColumn() As Global.System.Data.DataColumn Get Return Me.columnKennNr End Get End Property _ Public ReadOnly Property NummerColumn() As Global.System.Data.DataColumn Get Return Me.columnNummer End Get End Property _ Public ReadOnly Property LeitzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnLeitzahl End Get End Property _ Public ReadOnly Property BelegartColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegart End Get End Property _ Public ReadOnly Property LeistungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsNr End Get End Property _ Public ReadOnly Property BetragColumn() As Global.System.Data.DataColumn Get Return Me.columnBetrag End Get End Property _ Public ReadOnly Property EingabedatumColumn() As Global.System.Data.DataColumn Get Return Me.columnEingabedatum End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property ÜbernahmedatumColumn() As Global.System.Data.DataColumn Get Return Me.columnÜbernahmedatum End Get End Property _ Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkung End Get End Property _ Public ReadOnly Property SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnSachbearbeiter End Get End Property _ Public ReadOnly Property BezugsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBezugsnummer End Get End Property _ Public ReadOnly Property RegistriernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRegistriernummer End Get End Property _ Public ReadOnly Property KorrekturnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnKorrekturnummer End Get End Property _ Public ReadOnly Property AOFDColumn() As Global.System.Data.DataColumn Get Return Me.columnAOFD End Get End Property _ Public ReadOnly Property AKTOColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTO End Get End Property _ Public ReadOnly Property FälligkeitsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnFälligkeitsdatum End Get End Property _ Public ReadOnly Property DateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnDateiname End Get End Property _ Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant End Get End Property _ Public ReadOnly Property NiederlassungColumn() As Global.System.Data.DataColumn Get Return Me.columnNiederlassung 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 spSELECTZkteingRow Get Return CType(Me.Rows(index),spSELECTZkteingRow) End Get End Property _ Public Event spSELECTZkteingRowChanging As spSELECTZkteingRowChangeEventHandler _ Public Event spSELECTZkteingRowChanged As spSELECTZkteingRowChangeEventHandler _ Public Event spSELECTZkteingRowDeleting As spSELECTZkteingRowChangeEventHandler _ Public Event spSELECTZkteingRowDeleted As spSELECTZkteingRowChangeEventHandler _ Public Overloads Sub AddspSELECTZkteingRow(ByVal row As spSELECTZkteingRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspSELECTZkteingRow( _ ByVal Status As String, _ ByVal ZollamtsNr As Short, _ ByVal Jahr As Short, _ ByVal KennNr As Short, _ ByVal Nummer As Integer, _ ByVal Leitzahl As Short, _ ByVal Belegart As String, _ ByVal LeistungsNr As Short, _ ByVal Betrag As Decimal, _ ByVal Eingabedatum As Date, _ ByVal Abfertigungsdatum As Date, _ ByVal Übernahmedatum As Date, _ ByVal Bemerkung As String, _ ByVal Sachbearbeiter As String, _ ByVal Bezugsnummer As String, _ ByVal Registriernummer As String, _ ByVal Korrekturnummer As String, _ ByVal AOFD As String, _ ByVal AKTO As String, _ ByVal Fälligkeitsdatum As Date, _ ByVal Dateiname As String, _ ByVal Mandant As String, _ ByVal Niederlassung As String) As spSELECTZkteingRow Dim rowspSELECTZkteingRow As spSELECTZkteingRow = CType(Me.NewRow,spSELECTZkteingRow) Dim columnValuesArray() As Object = New Object() {Nothing, Status, ZollamtsNr, Jahr, KennNr, Nummer, Leitzahl, Belegart, LeistungsNr, Betrag, Eingabedatum, Abfertigungsdatum, Übernahmedatum, Bemerkung, Sachbearbeiter, Bezugsnummer, Registriernummer, Korrekturnummer, AOFD, AKTO, Fälligkeitsdatum, Dateiname, Mandant, Niederlassung} rowspSELECTZkteingRow.ItemArray = columnValuesArray Me.Rows.Add(rowspSELECTZkteingRow) Return rowspSELECTZkteingRow End Function _ Public Function FindByIndex(ByVal Index As Integer) As spSELECTZkteingRow Return CType(Me.Rows.Find(New Object() {Index}),spSELECTZkteingRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spSELECTZkteingDataTable = CType(MyBase.Clone,spSELECTZkteingDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spSELECTZkteingDataTable() End Function _ Friend Sub InitVars() Me.columnIndex = MyBase.Columns("Index") Me.columnStatus = MyBase.Columns("Status") Me.columnZollamtsNr = MyBase.Columns("ZollamtsNr") Me.columnJahr = MyBase.Columns("Jahr") Me.columnKennNr = MyBase.Columns("KennNr") Me.columnNummer = MyBase.Columns("Nummer") Me.columnLeitzahl = MyBase.Columns("Leitzahl") Me.columnBelegart = MyBase.Columns("Belegart") Me.columnLeistungsNr = MyBase.Columns("LeistungsNr") Me.columnBetrag = MyBase.Columns("Betrag") Me.columnEingabedatum = MyBase.Columns("Eingabedatum") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnÜbernahmedatum = MyBase.Columns("Übernahmedatum") Me.columnBemerkung = MyBase.Columns("Bemerkung") Me.columnSachbearbeiter = MyBase.Columns("Sachbearbeiter") Me.columnBezugsnummer = MyBase.Columns("Bezugsnummer") Me.columnRegistriernummer = MyBase.Columns("Registriernummer") Me.columnKorrekturnummer = MyBase.Columns("Korrekturnummer") Me.columnAOFD = MyBase.Columns("AOFD") Me.columnAKTO = MyBase.Columns("AKTO") Me.columnFälligkeitsdatum = MyBase.Columns("Fälligkeitsdatum") Me.columnDateiname = MyBase.Columns("Dateiname") Me.columnMandant = MyBase.Columns("Mandant") Me.columnNiederlassung = MyBase.Columns("Niederlassung") End Sub _ Private Sub InitClass() Me.columnIndex = New Global.System.Data.DataColumn("Index", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndex) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnZollamtsNr = New Global.System.Data.DataColumn("ZollamtsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZollamtsNr) Me.columnJahr = New Global.System.Data.DataColumn("Jahr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnJahr) Me.columnKennNr = New Global.System.Data.DataColumn("KennNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKennNr) Me.columnNummer = New Global.System.Data.DataColumn("Nummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNummer) Me.columnLeitzahl = New Global.System.Data.DataColumn("Leitzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeitzahl) Me.columnBelegart = New Global.System.Data.DataColumn("Belegart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegart) Me.columnLeistungsNr = New Global.System.Data.DataColumn("LeistungsNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsNr) Me.columnBetrag = New Global.System.Data.DataColumn("Betrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetrag) Me.columnEingabedatum = New Global.System.Data.DataColumn("Eingabedatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEingabedatum) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnÜbernahmedatum = New Global.System.Data.DataColumn("Übernahmedatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnÜbernahmedatum) Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkung) Me.columnSachbearbeiter = New Global.System.Data.DataColumn("Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachbearbeiter) Me.columnBezugsnummer = New Global.System.Data.DataColumn("Bezugsnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBezugsnummer) Me.columnRegistriernummer = New Global.System.Data.DataColumn("Registriernummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRegistriernummer) Me.columnKorrekturnummer = New Global.System.Data.DataColumn("Korrekturnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKorrekturnummer) Me.columnAOFD = New Global.System.Data.DataColumn("AOFD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAOFD) Me.columnAKTO = New Global.System.Data.DataColumn("AKTO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAKTO) Me.columnFälligkeitsdatum = New Global.System.Data.DataColumn("Fälligkeitsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFälligkeitsdatum) Me.columnDateiname = New Global.System.Data.DataColumn("Dateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDateiname) Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMandant) Me.columnNiederlassung = New Global.System.Data.DataColumn("Niederlassung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNiederlassung) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIndex}, true)) Me.columnIndex.AutoIncrement = true Me.columnIndex.AllowDBNull = false Me.columnIndex.ReadOnly = true Me.columnIndex.Unique = true Me.columnStatus.MaxLength = 1 Me.columnBelegart.AllowDBNull = false Me.columnBelegart.MaxLength = 5 Me.columnLeistungsNr.AllowDBNull = false Me.columnBetrag.AllowDBNull = false Me.columnEingabedatum.AllowDBNull = false Me.columnÜbernahmedatum.AllowDBNull = false Me.columnBemerkung.MaxLength = 50 Me.columnSachbearbeiter.MaxLength = 15 Me.columnBezugsnummer.AllowDBNull = false Me.columnBezugsnummer.MaxLength = 35 Me.columnRegistriernummer.MaxLength = 21 Me.columnKorrekturnummer.MaxLength = 3 Me.columnAOFD.MaxLength = 3 Me.columnAKTO.MaxLength = 10 Me.columnDateiname.MaxLength = 20 Me.columnMandant.MaxLength = 4 Me.columnNiederlassung.MaxLength = 3 End Sub _ Public Function NewspSELECTZkteingRow() As spSELECTZkteingRow Return CType(Me.NewRow,spSELECTZkteingRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spSELECTZkteingRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spSELECTZkteingRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spSELECTZkteingRowChangedEvent) Is Nothing) Then RaiseEvent spSELECTZkteingRowChanged(Me, New spSELECTZkteingRowChangeEvent(CType(e.Row,spSELECTZkteingRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spSELECTZkteingRowChangingEvent) Is Nothing) Then RaiseEvent spSELECTZkteingRowChanging(Me, New spSELECTZkteingRowChangeEvent(CType(e.Row,spSELECTZkteingRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spSELECTZkteingRowDeletedEvent) Is Nothing) Then RaiseEvent spSELECTZkteingRowDeleted(Me, New spSELECTZkteingRowChangeEvent(CType(e.Row,spSELECTZkteingRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spSELECTZkteingRowDeletingEvent) Is Nothing) Then RaiseEvent spSELECTZkteingRowDeleting(Me, New spSELECTZkteingRowChangeEvent(CType(e.Row,spSELECTZkteingRow), e.Action)) End If End Sub _ Public Sub RemovespSELECTZkteingRow(ByVal row As spSELECTZkteingRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spSELECTZkteingDataTable" 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 spTrdinFiBuSelectInvoiceDataTable Inherits Global.System.Data.TypedTableBase(Of spTrdinFiBuSelectInvoiceRow) Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnSpeditionsbuch As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnRechnungsLandKz As Global.System.Data.DataColumn Private columnRechnungsUstIdKz As Global.System.Data.DataColumn Private columnRechnungsUstIdNr As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnWährungLokal As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragLokal As Global.System.Data.DataColumn Private columnSteuerfreierBetragLokal As Global.System.Data.DataColumn Private columnSteuerbetragLokal As Global.System.Data.DataColumn Private columnRechnungsbetragLokal As Global.System.Data.DataColumn Private columnWährungFremd As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragFremd As Global.System.Data.DataColumn Private columnSteuerfreierBetragFremd As Global.System.Data.DataColumn Private columnSteuerbetragFremd As Global.System.Data.DataColumn Private columnRechnungsbetragFremd As Global.System.Data.DataColumn Private columnTrdinDateiname As Global.System.Data.DataColumn Private columnAbgleich_op_debitor As Global.System.Data.DataColumn Private columnNettozahlungsziel As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnAmbDateiname As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spTrdinFiBuSelectInvoice" 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 RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property SpeditionsbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuch End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property RechnungsLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsLandKz End Get End Property _ Public ReadOnly Property RechnungsUstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdKz End Get End Property _ Public ReadOnly Property RechnungsUstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdNr End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property WährungLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungLokal End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragLokal End Get End Property _ Public ReadOnly Property SteuerfreierBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragLokal End Get End Property _ Public ReadOnly Property SteuerbetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetragLokal End Get End Property _ Public ReadOnly Property RechnungsbetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetragLokal End Get End Property _ Public ReadOnly Property WährungFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungFremd End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragFremd End Get End Property _ Public ReadOnly Property SteuerfreierBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragFremd End Get End Property _ Public ReadOnly Property SteuerbetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetragFremd End Get End Property _ Public ReadOnly Property RechnungsbetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetragFremd End Get End Property _ Public ReadOnly Property TrdinDateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnTrdinDateiname End Get End Property _ Public ReadOnly Property Abgleich_op_debitorColumn() As Global.System.Data.DataColumn Get Return Me.columnAbgleich_op_debitor End Get End Property _ Public ReadOnly Property NettozahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnNettozahlungsziel End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property AmbDateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnAmbDateiname 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 spTrdinFiBuSelectInvoiceRow Get Return CType(Me.Rows(index),spTrdinFiBuSelectInvoiceRow) End Get End Property _ Public Event spTrdinFiBuSelectInvoiceRowChanging As spTrdinFiBuSelectInvoiceRowChangeEventHandler _ Public Event spTrdinFiBuSelectInvoiceRowChanged As spTrdinFiBuSelectInvoiceRowChangeEventHandler _ Public Event spTrdinFiBuSelectInvoiceRowDeleting As spTrdinFiBuSelectInvoiceRowChangeEventHandler _ Public Event spTrdinFiBuSelectInvoiceRowDeleted As spTrdinFiBuSelectInvoiceRowChangeEventHandler _ Public Overloads Sub AddspTrdinFiBuSelectInvoiceRow(ByVal row As spTrdinFiBuSelectInvoiceRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspTrdinFiBuSelectInvoiceRow( _ ByVal Rechnungsdatum As Date, _ ByVal Rechnungsnummer As Integer, _ ByVal Speditionsbuch As Short, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal BelegartenNr As Short, _ ByVal KundenNrZentrale As Integer, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsLandKz As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal Lastschrift As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal _Steuersatz__ As Single, _ ByVal WährungLokal As String, _ ByVal SteuerpflichtigerBetragLokal As Decimal, _ ByVal SteuerfreierBetragLokal As Decimal, _ ByVal SteuerbetragLokal As Decimal, _ ByVal RechnungsbetragLokal As Decimal, _ ByVal WährungFremd As String, _ ByVal SteuerpflichtigerBetragFremd As Decimal, _ ByVal SteuerfreierBetragFremd As Decimal, _ ByVal SteuerbetragFremd As Decimal, _ ByVal RechnungsbetragFremd As Decimal, _ ByVal TrdinDateiname As String, _ ByVal Abgleich_op_debitor As Boolean, _ ByVal Nettozahlungsziel As Short, _ ByVal Firma_ID As Short, _ ByVal UStVAn_ID As Integer, _ ByVal upsize_ts() As Byte, _ ByVal AmbDateiname As String) As spTrdinFiBuSelectInvoiceRow Dim rowspTrdinFiBuSelectInvoiceRow As spTrdinFiBuSelectInvoiceRow = CType(Me.NewRow,spTrdinFiBuSelectInvoiceRow) Dim columnValuesArray() As Object = New Object() {Rechnungsdatum, Rechnungsnummer, Speditionsbuch, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, BelegartenNr, KundenNrZentrale, RechnungsKundenNr, RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr, Lastschrift, Steuerschlüssel, _Steuersatz__, WährungLokal, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerbetragLokal, RechnungsbetragLokal, WährungFremd, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, SteuerbetragFremd, RechnungsbetragFremd, TrdinDateiname, Abgleich_op_debitor, Nettozahlungsziel, Firma_ID, UStVAn_ID, upsize_ts, AmbDateiname} rowspTrdinFiBuSelectInvoiceRow.ItemArray = columnValuesArray Me.Rows.Add(rowspTrdinFiBuSelectInvoiceRow) Return rowspTrdinFiBuSelectInvoiceRow End Function _ Public Function FindByRechnungsdatumRechnungsnummer(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer) As spTrdinFiBuSelectInvoiceRow Return CType(Me.Rows.Find(New Object() {Rechnungsdatum, Rechnungsnummer}),spTrdinFiBuSelectInvoiceRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spTrdinFiBuSelectInvoiceDataTable = CType(MyBase.Clone,spTrdinFiBuSelectInvoiceDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spTrdinFiBuSelectInvoiceDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnSpeditionsbuch = MyBase.Columns("Speditionsbuch") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnRechnungsLandKz = MyBase.Columns("RechnungsLandKz") Me.columnRechnungsUstIdKz = MyBase.Columns("RechnungsUstIdKz") Me.columnRechnungsUstIdNr = MyBase.Columns("RechnungsUstIdNr") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnWährungLokal = MyBase.Columns("WährungLokal") Me.columnSteuerpflichtigerBetragLokal = MyBase.Columns("SteuerpflichtigerBetragLokal") Me.columnSteuerfreierBetragLokal = MyBase.Columns("SteuerfreierBetragLokal") Me.columnSteuerbetragLokal = MyBase.Columns("SteuerbetragLokal") Me.columnRechnungsbetragLokal = MyBase.Columns("RechnungsbetragLokal") Me.columnWährungFremd = MyBase.Columns("WährungFremd") Me.columnSteuerpflichtigerBetragFremd = MyBase.Columns("SteuerpflichtigerBetragFremd") Me.columnSteuerfreierBetragFremd = MyBase.Columns("SteuerfreierBetragFremd") Me.columnSteuerbetragFremd = MyBase.Columns("SteuerbetragFremd") Me.columnRechnungsbetragFremd = MyBase.Columns("RechnungsbetragFremd") Me.columnTrdinDateiname = MyBase.Columns("TrdinDateiname") Me.columnAbgleich_op_debitor = MyBase.Columns("Abgleich_op_debitor") Me.columnNettozahlungsziel = MyBase.Columns("Nettozahlungsziel") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnAmbDateiname = MyBase.Columns("AmbDateiname") End Sub _ Private Sub InitClass() Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnSpeditionsbuch = New Global.System.Data.DataColumn("Speditionsbuch", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuch) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnRechnungsLandKz = New Global.System.Data.DataColumn("RechnungsLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsLandKz) Me.columnRechnungsUstIdKz = New Global.System.Data.DataColumn("RechnungsUstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdKz) Me.columnRechnungsUstIdNr = New Global.System.Data.DataColumn("RechnungsUstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdNr) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnWährungLokal = New Global.System.Data.DataColumn("WährungLokal", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungLokal) Me.columnSteuerpflichtigerBetragLokal = New Global.System.Data.DataColumn("SteuerpflichtigerBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragLokal) Me.columnSteuerfreierBetragLokal = New Global.System.Data.DataColumn("SteuerfreierBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragLokal) Me.columnSteuerbetragLokal = New Global.System.Data.DataColumn("SteuerbetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetragLokal) Me.columnRechnungsbetragLokal = New Global.System.Data.DataColumn("RechnungsbetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetragLokal) Me.columnWährungFremd = New Global.System.Data.DataColumn("WährungFremd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungFremd) Me.columnSteuerpflichtigerBetragFremd = New Global.System.Data.DataColumn("SteuerpflichtigerBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragFremd) Me.columnSteuerfreierBetragFremd = New Global.System.Data.DataColumn("SteuerfreierBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragFremd) Me.columnSteuerbetragFremd = New Global.System.Data.DataColumn("SteuerbetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetragFremd) Me.columnRechnungsbetragFremd = New Global.System.Data.DataColumn("RechnungsbetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetragFremd) Me.columnTrdinDateiname = New Global.System.Data.DataColumn("TrdinDateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTrdinDateiname) Me.columnAbgleich_op_debitor = New Global.System.Data.DataColumn("Abgleich_op_debitor", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbgleich_op_debitor) Me.columnNettozahlungsziel = New Global.System.Data.DataColumn("Nettozahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettozahlungsziel) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnAmbDateiname = New Global.System.Data.DataColumn("AmbDateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAmbDateiname) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRechnungsdatum, Me.columnRechnungsnummer}, true)) Me.columnRechnungsdatum.AllowDBNull = false Me.columnRechnungsnummer.AllowDBNull = false Me.columnRechnungsLandKz.MaxLength = 3 Me.columnRechnungsUstIdKz.MaxLength = 2 Me.columnRechnungsUstIdNr.MaxLength = 12 Me.columnLastschrift.AllowDBNull = false Me.columnWährungLokal.MaxLength = 3 Me.columnWährungFremd.MaxLength = 3 Me.columnTrdinDateiname.MaxLength = 12 Me.columnAbgleich_op_debitor.AllowDBNull = false Me.columnFirma_ID.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true Me.columnAmbDateiname.MaxLength = 12 End Sub _ Public Function NewspTrdinFiBuSelectInvoiceRow() As spTrdinFiBuSelectInvoiceRow Return CType(Me.NewRow,spTrdinFiBuSelectInvoiceRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spTrdinFiBuSelectInvoiceRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spTrdinFiBuSelectInvoiceRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spTrdinFiBuSelectInvoiceRowChangedEvent) Is Nothing) Then RaiseEvent spTrdinFiBuSelectInvoiceRowChanged(Me, New spTrdinFiBuSelectInvoiceRowChangeEvent(CType(e.Row,spTrdinFiBuSelectInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spTrdinFiBuSelectInvoiceRowChangingEvent) Is Nothing) Then RaiseEvent spTrdinFiBuSelectInvoiceRowChanging(Me, New spTrdinFiBuSelectInvoiceRowChangeEvent(CType(e.Row,spTrdinFiBuSelectInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spTrdinFiBuSelectInvoiceRowDeletedEvent) Is Nothing) Then RaiseEvent spTrdinFiBuSelectInvoiceRowDeleted(Me, New spTrdinFiBuSelectInvoiceRowChangeEvent(CType(e.Row,spTrdinFiBuSelectInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spTrdinFiBuSelectInvoiceRowDeletingEvent) Is Nothing) Then RaiseEvent spTrdinFiBuSelectInvoiceRowDeleting(Me, New spTrdinFiBuSelectInvoiceRowChangeEvent(CType(e.Row,spTrdinFiBuSelectInvoiceRow), e.Action)) End If End Sub _ Public Sub RemovespTrdinFiBuSelectInvoiceRow(ByVal row As spTrdinFiBuSelectInvoiceRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spTrdinFiBuSelectInvoiceDataTable" 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 spTrdinFiBuSelectProductDataTable Inherits Global.System.Data.TypedTableBase(Of spTrdinFiBuSelectProductRow) Private columnSachkonto As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnBetragLokal As Global.System.Data.DataColumn Private columnBetragFremd As Global.System.Data.DataColumn Private columnBuchungstext As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spTrdinFiBuSelectProduct" 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 SachkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkonto End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property BetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnBetragLokal End Get End Property _ Public ReadOnly Property BetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnBetragFremd End Get End Property _ Public ReadOnly Property BuchungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungstext 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 spTrdinFiBuSelectProductRow Get Return CType(Me.Rows(index),spTrdinFiBuSelectProductRow) End Get End Property _ Public Event spTrdinFiBuSelectProductRowChanging As spTrdinFiBuSelectProductRowChangeEventHandler _ Public Event spTrdinFiBuSelectProductRowChanged As spTrdinFiBuSelectProductRowChangeEventHandler _ Public Event spTrdinFiBuSelectProductRowDeleting As spTrdinFiBuSelectProductRowChangeEventHandler _ Public Event spTrdinFiBuSelectProductRowDeleted As spTrdinFiBuSelectProductRowChangeEventHandler _ Public Overloads Sub AddspTrdinFiBuSelectProductRow(ByVal row As spTrdinFiBuSelectProductRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspTrdinFiBuSelectProductRow(ByVal Sachkonto As String, ByVal Steuerpflichtig As Boolean, ByVal BetragLokal As Decimal, ByVal BetragFremd As Decimal, ByVal Buchungstext As String) As spTrdinFiBuSelectProductRow Dim rowspTrdinFiBuSelectProductRow As spTrdinFiBuSelectProductRow = CType(Me.NewRow,spTrdinFiBuSelectProductRow) Dim columnValuesArray() As Object = New Object() {Sachkonto, Steuerpflichtig, BetragLokal, BetragFremd, Buchungstext} rowspTrdinFiBuSelectProductRow.ItemArray = columnValuesArray Me.Rows.Add(rowspTrdinFiBuSelectProductRow) Return rowspTrdinFiBuSelectProductRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spTrdinFiBuSelectProductDataTable = CType(MyBase.Clone,spTrdinFiBuSelectProductDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spTrdinFiBuSelectProductDataTable() End Function _ Friend Sub InitVars() Me.columnSachkonto = MyBase.Columns("Sachkonto") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnBetragLokal = MyBase.Columns("BetragLokal") Me.columnBetragFremd = MyBase.Columns("BetragFremd") Me.columnBuchungstext = MyBase.Columns("Buchungstext") End Sub _ Private Sub InitClass() Me.columnSachkonto = New Global.System.Data.DataColumn("Sachkonto", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkonto) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnBetragLokal = New Global.System.Data.DataColumn("BetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetragLokal) Me.columnBetragFremd = New Global.System.Data.DataColumn("BetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBetragFremd) Me.columnBuchungstext = New Global.System.Data.DataColumn("Buchungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungstext) Me.columnSachkonto.MaxLength = 7 Me.columnSteuerpflichtig.AllowDBNull = false Me.columnBetragLokal.ReadOnly = true Me.columnBetragFremd.ReadOnly = true Me.columnBuchungstext.ReadOnly = true Me.columnBuchungstext.MaxLength = 35 End Sub _ Public Function NewspTrdinFiBuSelectProductRow() As spTrdinFiBuSelectProductRow Return CType(Me.NewRow,spTrdinFiBuSelectProductRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spTrdinFiBuSelectProductRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spTrdinFiBuSelectProductRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spTrdinFiBuSelectProductRowChangedEvent) Is Nothing) Then RaiseEvent spTrdinFiBuSelectProductRowChanged(Me, New spTrdinFiBuSelectProductRowChangeEvent(CType(e.Row,spTrdinFiBuSelectProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spTrdinFiBuSelectProductRowChangingEvent) Is Nothing) Then RaiseEvent spTrdinFiBuSelectProductRowChanging(Me, New spTrdinFiBuSelectProductRowChangeEvent(CType(e.Row,spTrdinFiBuSelectProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spTrdinFiBuSelectProductRowDeletedEvent) Is Nothing) Then RaiseEvent spTrdinFiBuSelectProductRowDeleted(Me, New spTrdinFiBuSelectProductRowChangeEvent(CType(e.Row,spTrdinFiBuSelectProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spTrdinFiBuSelectProductRowDeletingEvent) Is Nothing) Then RaiseEvent spTrdinFiBuSelectProductRowDeleting(Me, New spTrdinFiBuSelectProductRowChangeEvent(CType(e.Row,spTrdinFiBuSelectProductRow), e.Action)) End If End Sub _ Public Sub RemovespTrdinFiBuSelectProductRow(ByVal row As spTrdinFiBuSelectProductRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spTrdinFiBuSelectProductDataTable" 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 spTrdinSchreibenSelectInvoicePKeyDataTable Inherits Global.System.Data.TypedTableBase(Of spTrdinSchreibenSelectInvoicePKeyRow) Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnSpeditionsbuch As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUnterNr As Global.System.Data.DataColumn Private columnAbfertigungsdatum As Global.System.Data.DataColumn Private columnBelegartenNr As Global.System.Data.DataColumn Private columnKundenNrZentrale As Global.System.Data.DataColumn Private columnRechnungsKundenNr As Global.System.Data.DataColumn Private columnRechnungsLandKz As Global.System.Data.DataColumn Private columnRechnungsUstIdKz As Global.System.Data.DataColumn Private columnRechnungsUstIdNr As Global.System.Data.DataColumn Private columnLastschrift As Global.System.Data.DataColumn Private columnSteuerschlüssel As Global.System.Data.DataColumn Private _columnSteuersatz__ As Global.System.Data.DataColumn Private columnWährungLokal As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragLokal As Global.System.Data.DataColumn Private columnSteuerfreierBetragLokal As Global.System.Data.DataColumn Private columnSteuerbetragLokal As Global.System.Data.DataColumn Private columnRechnungsbetragLokal As Global.System.Data.DataColumn Private columnWährungFremd As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragFremd As Global.System.Data.DataColumn Private columnSteuerfreierBetragFremd As Global.System.Data.DataColumn Private columnSteuerbetragFremd As Global.System.Data.DataColumn Private columnRechnungsbetragFremd As Global.System.Data.DataColumn Private columnTrdinDateiname As Global.System.Data.DataColumn Private columnAbgleich_op_debitor As Global.System.Data.DataColumn Private columnNettozahlungsziel As Global.System.Data.DataColumn Private columnFirma_ID As Global.System.Data.DataColumn Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn Private columnAmbDateiname As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spTrdinSchreibenSelectInvoicePKey" 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 RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property SpeditionsbuchColumn() As Global.System.Data.DataColumn Get Return Me.columnSpeditionsbuch End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UnterNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUnterNr End Get End Property _ Public ReadOnly Property AbfertigungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsdatum End Get End Property _ Public ReadOnly Property BelegartenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegartenNr End Get End Property _ Public ReadOnly Property KundenNrZentraleColumn() As Global.System.Data.DataColumn Get Return Me.columnKundenNrZentrale End Get End Property _ Public ReadOnly Property RechnungsKundenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsKundenNr End Get End Property _ Public ReadOnly Property RechnungsLandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsLandKz End Get End Property _ Public ReadOnly Property RechnungsUstIdKzColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdKz End Get End Property _ Public ReadOnly Property RechnungsUstIdNrColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsUstIdNr End Get End Property _ Public ReadOnly Property LastschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnLastschrift End Get End Property _ Public ReadOnly Property SteuerschlüsselColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerschlüssel End Get End Property _ Public ReadOnly Property _Steuersatz__Column() As Global.System.Data.DataColumn Get Return Me._columnSteuersatz__ End Get End Property _ Public ReadOnly Property WährungLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungLokal End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragLokal End Get End Property _ Public ReadOnly Property SteuerfreierBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragLokal End Get End Property _ Public ReadOnly Property SteuerbetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetragLokal End Get End Property _ Public ReadOnly Property RechnungsbetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetragLokal End Get End Property _ Public ReadOnly Property WährungFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungFremd End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragFremd End Get End Property _ Public ReadOnly Property SteuerfreierBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragFremd End Get End Property _ Public ReadOnly Property SteuerbetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerbetragFremd End Get End Property _ Public ReadOnly Property RechnungsbetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsbetragFremd End Get End Property _ Public ReadOnly Property TrdinDateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnTrdinDateiname End Get End Property _ Public ReadOnly Property Abgleich_op_debitorColumn() As Global.System.Data.DataColumn Get Return Me.columnAbgleich_op_debitor End Get End Property _ Public ReadOnly Property NettozahlungszielColumn() As Global.System.Data.DataColumn Get Return Me.columnNettozahlungsziel End Get End Property _ Public ReadOnly Property Firma_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFirma_ID End Get End Property _ Public ReadOnly Property UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts End Get End Property _ Public ReadOnly Property AmbDateinameColumn() As Global.System.Data.DataColumn Get Return Me.columnAmbDateiname 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 spTrdinSchreibenSelectInvoicePKeyRow Get Return CType(Me.Rows(index),spTrdinSchreibenSelectInvoicePKeyRow) End Get End Property _ Public Event spTrdinSchreibenSelectInvoicePKeyRowChanging As spTrdinSchreibenSelectInvoicePKeyRowChangeEventHandler _ Public Event spTrdinSchreibenSelectInvoicePKeyRowChanged As spTrdinSchreibenSelectInvoicePKeyRowChangeEventHandler _ Public Event spTrdinSchreibenSelectInvoicePKeyRowDeleting As spTrdinSchreibenSelectInvoicePKeyRowChangeEventHandler _ Public Event spTrdinSchreibenSelectInvoicePKeyRowDeleted As spTrdinSchreibenSelectInvoicePKeyRowChangeEventHandler _ Public Overloads Sub AddspTrdinSchreibenSelectInvoicePKeyRow(ByVal row As spTrdinSchreibenSelectInvoicePKeyRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspTrdinSchreibenSelectInvoicePKeyRow( _ ByVal Rechnungsdatum As Date, _ ByVal Rechnungsnummer As Integer, _ ByVal Speditionsbuch As Short, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal BelegartenNr As Short, _ ByVal KundenNrZentrale As Integer, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsLandKz As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal Lastschrift As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal _Steuersatz__ As Single, _ ByVal WährungLokal As String, _ ByVal SteuerpflichtigerBetragLokal As Decimal, _ ByVal SteuerfreierBetragLokal As Decimal, _ ByVal SteuerbetragLokal As Decimal, _ ByVal RechnungsbetragLokal As Decimal, _ ByVal WährungFremd As String, _ ByVal SteuerpflichtigerBetragFremd As Decimal, _ ByVal SteuerfreierBetragFremd As Decimal, _ ByVal SteuerbetragFremd As Decimal, _ ByVal RechnungsbetragFremd As Decimal, _ ByVal TrdinDateiname As String, _ ByVal Abgleich_op_debitor As Boolean, _ ByVal Nettozahlungsziel As Short, _ ByVal Firma_ID As Short, _ ByVal UStVAn_ID As Integer, _ ByVal upsize_ts() As Byte, _ ByVal AmbDateiname As String) As spTrdinSchreibenSelectInvoicePKeyRow Dim rowspTrdinSchreibenSelectInvoicePKeyRow As spTrdinSchreibenSelectInvoicePKeyRow = CType(Me.NewRow,spTrdinSchreibenSelectInvoicePKeyRow) Dim columnValuesArray() As Object = New Object() {Rechnungsdatum, Rechnungsnummer, Speditionsbuch, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, BelegartenNr, KundenNrZentrale, RechnungsKundenNr, RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr, Lastschrift, Steuerschlüssel, _Steuersatz__, WährungLokal, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerbetragLokal, RechnungsbetragLokal, WährungFremd, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, SteuerbetragFremd, RechnungsbetragFremd, TrdinDateiname, Abgleich_op_debitor, Nettozahlungsziel, Firma_ID, UStVAn_ID, upsize_ts, AmbDateiname} rowspTrdinSchreibenSelectInvoicePKeyRow.ItemArray = columnValuesArray Me.Rows.Add(rowspTrdinSchreibenSelectInvoicePKeyRow) Return rowspTrdinSchreibenSelectInvoicePKeyRow End Function _ Public Function FindByRechnungsdatumRechnungsnummer(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer) As spTrdinSchreibenSelectInvoicePKeyRow Return CType(Me.Rows.Find(New Object() {Rechnungsdatum, Rechnungsnummer}),spTrdinSchreibenSelectInvoicePKeyRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spTrdinSchreibenSelectInvoicePKeyDataTable = CType(MyBase.Clone,spTrdinSchreibenSelectInvoicePKeyDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spTrdinSchreibenSelectInvoicePKeyDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnSpeditionsbuch = MyBase.Columns("Speditionsbuch") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUnterNr = MyBase.Columns("UnterNr") Me.columnAbfertigungsdatum = MyBase.Columns("Abfertigungsdatum") Me.columnBelegartenNr = MyBase.Columns("BelegartenNr") Me.columnKundenNrZentrale = MyBase.Columns("KundenNrZentrale") Me.columnRechnungsKundenNr = MyBase.Columns("RechnungsKundenNr") Me.columnRechnungsLandKz = MyBase.Columns("RechnungsLandKz") Me.columnRechnungsUstIdKz = MyBase.Columns("RechnungsUstIdKz") Me.columnRechnungsUstIdNr = MyBase.Columns("RechnungsUstIdNr") Me.columnLastschrift = MyBase.Columns("Lastschrift") Me.columnSteuerschlüssel = MyBase.Columns("Steuerschlüssel") Me._columnSteuersatz__ = MyBase.Columns("Steuersatz %") Me.columnWährungLokal = MyBase.Columns("WährungLokal") Me.columnSteuerpflichtigerBetragLokal = MyBase.Columns("SteuerpflichtigerBetragLokal") Me.columnSteuerfreierBetragLokal = MyBase.Columns("SteuerfreierBetragLokal") Me.columnSteuerbetragLokal = MyBase.Columns("SteuerbetragLokal") Me.columnRechnungsbetragLokal = MyBase.Columns("RechnungsbetragLokal") Me.columnWährungFremd = MyBase.Columns("WährungFremd") Me.columnSteuerpflichtigerBetragFremd = MyBase.Columns("SteuerpflichtigerBetragFremd") Me.columnSteuerfreierBetragFremd = MyBase.Columns("SteuerfreierBetragFremd") Me.columnSteuerbetragFremd = MyBase.Columns("SteuerbetragFremd") Me.columnRechnungsbetragFremd = MyBase.Columns("RechnungsbetragFremd") Me.columnTrdinDateiname = MyBase.Columns("TrdinDateiname") Me.columnAbgleich_op_debitor = MyBase.Columns("Abgleich_op_debitor") Me.columnNettozahlungsziel = MyBase.Columns("Nettozahlungsziel") Me.columnFirma_ID = MyBase.Columns("Firma_ID") Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnupsize_ts = MyBase.Columns("upsize_ts") Me.columnAmbDateiname = MyBase.Columns("AmbDateiname") End Sub _ Private Sub InitClass() Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnSpeditionsbuch = New Global.System.Data.DataColumn("Speditionsbuch", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSpeditionsbuch) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUnterNr = New Global.System.Data.DataColumn("UnterNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUnterNr) Me.columnAbfertigungsdatum = New Global.System.Data.DataColumn("Abfertigungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsdatum) Me.columnBelegartenNr = New Global.System.Data.DataColumn("BelegartenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegartenNr) Me.columnKundenNrZentrale = New Global.System.Data.DataColumn("KundenNrZentrale", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKundenNrZentrale) Me.columnRechnungsKundenNr = New Global.System.Data.DataColumn("RechnungsKundenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsKundenNr) Me.columnRechnungsLandKz = New Global.System.Data.DataColumn("RechnungsLandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsLandKz) Me.columnRechnungsUstIdKz = New Global.System.Data.DataColumn("RechnungsUstIdKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdKz) Me.columnRechnungsUstIdNr = New Global.System.Data.DataColumn("RechnungsUstIdNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsUstIdNr) Me.columnLastschrift = New Global.System.Data.DataColumn("Lastschrift", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLastschrift) Me.columnSteuerschlüssel = New Global.System.Data.DataColumn("Steuerschlüssel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerschlüssel) Me._columnSteuersatz__ = New Global.System.Data.DataColumn("Steuersatz %", GetType(Single), Nothing, Global.System.Data.MappingType.Element) Me._columnSteuersatz__.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnSteuersatz__") Me._columnSteuersatz__.ExtendedProperties.Add("Generator_UserColumnName", "Steuersatz %") MyBase.Columns.Add(Me._columnSteuersatz__) Me.columnWährungLokal = New Global.System.Data.DataColumn("WährungLokal", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungLokal) Me.columnSteuerpflichtigerBetragLokal = New Global.System.Data.DataColumn("SteuerpflichtigerBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragLokal) Me.columnSteuerfreierBetragLokal = New Global.System.Data.DataColumn("SteuerfreierBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragLokal) Me.columnSteuerbetragLokal = New Global.System.Data.DataColumn("SteuerbetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetragLokal) Me.columnRechnungsbetragLokal = New Global.System.Data.DataColumn("RechnungsbetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetragLokal) Me.columnWährungFremd = New Global.System.Data.DataColumn("WährungFremd", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungFremd) Me.columnSteuerpflichtigerBetragFremd = New Global.System.Data.DataColumn("SteuerpflichtigerBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragFremd) Me.columnSteuerfreierBetragFremd = New Global.System.Data.DataColumn("SteuerfreierBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragFremd) Me.columnSteuerbetragFremd = New Global.System.Data.DataColumn("SteuerbetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerbetragFremd) Me.columnRechnungsbetragFremd = New Global.System.Data.DataColumn("RechnungsbetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsbetragFremd) Me.columnTrdinDateiname = New Global.System.Data.DataColumn("TrdinDateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTrdinDateiname) Me.columnAbgleich_op_debitor = New Global.System.Data.DataColumn("Abgleich_op_debitor", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbgleich_op_debitor) Me.columnNettozahlungsziel = New Global.System.Data.DataColumn("Nettozahlungsziel", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNettozahlungsziel) Me.columnFirma_ID = New Global.System.Data.DataColumn("Firma_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFirma_ID) Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.columnAmbDateiname = New Global.System.Data.DataColumn("AmbDateiname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAmbDateiname) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRechnungsdatum, Me.columnRechnungsnummer}, true)) Me.columnRechnungsdatum.AllowDBNull = false Me.columnRechnungsnummer.AllowDBNull = false Me.columnRechnungsLandKz.MaxLength = 3 Me.columnRechnungsUstIdKz.MaxLength = 2 Me.columnRechnungsUstIdNr.MaxLength = 12 Me.columnLastschrift.AllowDBNull = false Me.columnWährungLokal.MaxLength = 3 Me.columnWährungFremd.MaxLength = 3 Me.columnTrdinDateiname.MaxLength = 12 Me.columnAbgleich_op_debitor.AllowDBNull = false Me.columnFirma_ID.AllowDBNull = false Me.columnupsize_ts.ReadOnly = true Me.columnAmbDateiname.MaxLength = 12 End Sub _ Public Function NewspTrdinSchreibenSelectInvoicePKeyRow() As spTrdinSchreibenSelectInvoicePKeyRow Return CType(Me.NewRow,spTrdinSchreibenSelectInvoicePKeyRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spTrdinSchreibenSelectInvoicePKeyRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spTrdinSchreibenSelectInvoicePKeyRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spTrdinSchreibenSelectInvoicePKeyRowChangedEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectInvoicePKeyRowChanged(Me, New spTrdinSchreibenSelectInvoicePKeyRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectInvoicePKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spTrdinSchreibenSelectInvoicePKeyRowChangingEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectInvoicePKeyRowChanging(Me, New spTrdinSchreibenSelectInvoicePKeyRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectInvoicePKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spTrdinSchreibenSelectInvoicePKeyRowDeletedEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectInvoicePKeyRowDeleted(Me, New spTrdinSchreibenSelectInvoicePKeyRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectInvoicePKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spTrdinSchreibenSelectInvoicePKeyRowDeletingEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectInvoicePKeyRowDeleting(Me, New spTrdinSchreibenSelectInvoicePKeyRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectInvoicePKeyRow), e.Action)) End If End Sub _ Public Sub RemovespTrdinSchreibenSelectInvoicePKeyRow(ByVal row As spTrdinSchreibenSelectInvoicePKeyRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spTrdinSchreibenSelectInvoicePKeyDataTable" 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 spTrdinSchreibenSelectProductFKeyInvoiceDataTable Inherits Global.System.Data.TypedTableBase(Of spTrdinSchreibenSelectProductFKeyInvoiceRow) Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnLeistungsnummer As Global.System.Data.DataColumn Private columnLeistungsbezeichnung As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragLokal As Global.System.Data.DataColumn Private columnSteuerfreierBetragLokal As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragFremd As Global.System.Data.DataColumn Private columnSteuerfreierBetragFremd As Global.System.Data.DataColumn Private columnBelegdaten As Global.System.Data.DataColumn Private columnSachkonto As Global.System.Data.DataColumn Private columnBuchungstext As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spTrdinSchreibenSelectProductFKeyInvoice" 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 RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property LeistungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsnummer End Get End Property _ Public ReadOnly Property LeistungsbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsbezeichnung End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragLokal End Get End Property _ Public ReadOnly Property SteuerfreierBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragLokal End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragFremd End Get End Property _ Public ReadOnly Property SteuerfreierBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragFremd End Get End Property _ Public ReadOnly Property BelegdatenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdaten End Get End Property _ Public ReadOnly Property SachkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkonto End Get End Property _ Public ReadOnly Property BuchungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungstext End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spTrdinSchreibenSelectProductFKeyInvoiceRow Get Return CType(Me.Rows(index),spTrdinSchreibenSelectProductFKeyInvoiceRow) End Get End Property _ Public Event spTrdinSchreibenSelectProductFKeyInvoiceRowChanging As spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEventHandler _ Public Event spTrdinSchreibenSelectProductFKeyInvoiceRowChanged As spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEventHandler _ Public Event spTrdinSchreibenSelectProductFKeyInvoiceRowDeleting As spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEventHandler _ Public Event spTrdinSchreibenSelectProductFKeyInvoiceRowDeleted As spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEventHandler _ Public Overloads Sub AddspTrdinSchreibenSelectProductFKeyInvoiceRow(ByVal row As spTrdinSchreibenSelectProductFKeyInvoiceRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspTrdinSchreibenSelectProductFKeyInvoiceRow(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean, ByVal SteuerpflichtigerBetragLokal As Decimal, ByVal SteuerfreierBetragLokal As Decimal, ByVal SteuerpflichtigerBetragFremd As Decimal, ByVal SteuerfreierBetragFremd As Decimal, ByVal Belegdaten As String, ByVal Sachkonto As String, ByVal Buchungstext As String, ByVal upsize_ts() As Byte) As spTrdinSchreibenSelectProductFKeyInvoiceRow Dim rowspTrdinSchreibenSelectProductFKeyInvoiceRow As spTrdinSchreibenSelectProductFKeyInvoiceRow = CType(Me.NewRow,spTrdinSchreibenSelectProductFKeyInvoiceRow) Dim columnValuesArray() As Object = New Object() {Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, Belegdaten, Sachkonto, Buchungstext, upsize_ts} rowspTrdinSchreibenSelectProductFKeyInvoiceRow.ItemArray = columnValuesArray Me.Rows.Add(rowspTrdinSchreibenSelectProductFKeyInvoiceRow) Return rowspTrdinSchreibenSelectProductFKeyInvoiceRow End Function _ Public Function FindByRechnungsdatumRechnungsnummerLeistungsnummerLeistungsbezeichnungSteuerpflichtig(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean) As spTrdinSchreibenSelectProductFKeyInvoiceRow Return CType(Me.Rows.Find(New Object() {Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig}),spTrdinSchreibenSelectProductFKeyInvoiceRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spTrdinSchreibenSelectProductFKeyInvoiceDataTable = CType(MyBase.Clone,spTrdinSchreibenSelectProductFKeyInvoiceDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spTrdinSchreibenSelectProductFKeyInvoiceDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnLeistungsnummer = MyBase.Columns("Leistungsnummer") Me.columnLeistungsbezeichnung = MyBase.Columns("Leistungsbezeichnung") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnSteuerpflichtigerBetragLokal = MyBase.Columns("SteuerpflichtigerBetragLokal") Me.columnSteuerfreierBetragLokal = MyBase.Columns("SteuerfreierBetragLokal") Me.columnSteuerpflichtigerBetragFremd = MyBase.Columns("SteuerpflichtigerBetragFremd") Me.columnSteuerfreierBetragFremd = MyBase.Columns("SteuerfreierBetragFremd") Me.columnBelegdaten = MyBase.Columns("Belegdaten") Me.columnSachkonto = MyBase.Columns("Sachkonto") Me.columnBuchungstext = MyBase.Columns("Buchungstext") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnLeistungsnummer = New Global.System.Data.DataColumn("Leistungsnummer", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsnummer) Me.columnLeistungsbezeichnung = New Global.System.Data.DataColumn("Leistungsbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsbezeichnung) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnSteuerpflichtigerBetragLokal = New Global.System.Data.DataColumn("SteuerpflichtigerBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragLokal) Me.columnSteuerfreierBetragLokal = New Global.System.Data.DataColumn("SteuerfreierBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragLokal) Me.columnSteuerpflichtigerBetragFremd = New Global.System.Data.DataColumn("SteuerpflichtigerBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragFremd) Me.columnSteuerfreierBetragFremd = New Global.System.Data.DataColumn("SteuerfreierBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragFremd) Me.columnBelegdaten = New Global.System.Data.DataColumn("Belegdaten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdaten) Me.columnSachkonto = New Global.System.Data.DataColumn("Sachkonto", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkonto) Me.columnBuchungstext = New Global.System.Data.DataColumn("Buchungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungstext) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRechnungsdatum, Me.columnRechnungsnummer, Me.columnLeistungsnummer, Me.columnLeistungsbezeichnung, Me.columnSteuerpflichtig}, true)) Me.columnRechnungsdatum.AllowDBNull = false Me.columnRechnungsnummer.AllowDBNull = false Me.columnLeistungsnummer.AllowDBNull = false Me.columnLeistungsbezeichnung.AllowDBNull = false Me.columnLeistungsbezeichnung.MaxLength = 30 Me.columnSteuerpflichtig.AllowDBNull = false Me.columnBelegdaten.MaxLength = 30 Me.columnSachkonto.MaxLength = 7 Me.columnBuchungstext.MaxLength = 35 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspTrdinSchreibenSelectProductFKeyInvoiceRow() As spTrdinSchreibenSelectProductFKeyInvoiceRow Return CType(Me.NewRow,spTrdinSchreibenSelectProductFKeyInvoiceRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spTrdinSchreibenSelectProductFKeyInvoiceRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spTrdinSchreibenSelectProductFKeyInvoiceRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spTrdinSchreibenSelectProductFKeyInvoiceRowChangedEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectProductFKeyInvoiceRowChanged(Me, New spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectProductFKeyInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spTrdinSchreibenSelectProductFKeyInvoiceRowChangingEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectProductFKeyInvoiceRowChanging(Me, New spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectProductFKeyInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spTrdinSchreibenSelectProductFKeyInvoiceRowDeletedEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectProductFKeyInvoiceRowDeleted(Me, New spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectProductFKeyInvoiceRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spTrdinSchreibenSelectProductFKeyInvoiceRowDeletingEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectProductFKeyInvoiceRowDeleting(Me, New spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectProductFKeyInvoiceRow), e.Action)) End If End Sub _ Public Sub RemovespTrdinSchreibenSelectProductFKeyInvoiceRow(ByVal row As spTrdinSchreibenSelectProductFKeyInvoiceRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spTrdinSchreibenSelectProductFKeyInvoiceDataTable" 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 spTrdinSchreibenSelectProductPKeyDataTable Inherits Global.System.Data.TypedTableBase(Of spTrdinSchreibenSelectProductPKeyRow) Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnLeistungsnummer As Global.System.Data.DataColumn Private columnLeistungsbezeichnung As Global.System.Data.DataColumn Private columnSteuerpflichtig As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragLokal As Global.System.Data.DataColumn Private columnSteuerfreierBetragLokal As Global.System.Data.DataColumn Private columnSteuerpflichtigerBetragFremd As Global.System.Data.DataColumn Private columnSteuerfreierBetragFremd As Global.System.Data.DataColumn Private columnBelegdaten As Global.System.Data.DataColumn Private columnSachkonto As Global.System.Data.DataColumn Private columnBuchungstext As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spTrdinSchreibenSelectProductPKey" 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 RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property LeistungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsnummer End Get End Property _ Public ReadOnly Property LeistungsbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnLeistungsbezeichnung End Get End Property _ Public ReadOnly Property SteuerpflichtigColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtig End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragLokal End Get End Property _ Public ReadOnly Property SteuerfreierBetragLokalColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragLokal End Get End Property _ Public ReadOnly Property SteuerpflichtigerBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerpflichtigerBetragFremd End Get End Property _ Public ReadOnly Property SteuerfreierBetragFremdColumn() As Global.System.Data.DataColumn Get Return Me.columnSteuerfreierBetragFremd End Get End Property _ Public ReadOnly Property BelegdatenColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdaten End Get End Property _ Public ReadOnly Property SachkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnSachkonto End Get End Property _ Public ReadOnly Property BuchungstextColumn() As Global.System.Data.DataColumn Get Return Me.columnBuchungstext End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spTrdinSchreibenSelectProductPKeyRow Get Return CType(Me.Rows(index),spTrdinSchreibenSelectProductPKeyRow) End Get End Property _ Public Event spTrdinSchreibenSelectProductPKeyRowChanging As spTrdinSchreibenSelectProductPKeyRowChangeEventHandler _ Public Event spTrdinSchreibenSelectProductPKeyRowChanged As spTrdinSchreibenSelectProductPKeyRowChangeEventHandler _ Public Event spTrdinSchreibenSelectProductPKeyRowDeleting As spTrdinSchreibenSelectProductPKeyRowChangeEventHandler _ Public Event spTrdinSchreibenSelectProductPKeyRowDeleted As spTrdinSchreibenSelectProductPKeyRowChangeEventHandler _ Public Overloads Sub AddspTrdinSchreibenSelectProductPKeyRow(ByVal row As spTrdinSchreibenSelectProductPKeyRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspTrdinSchreibenSelectProductPKeyRow(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean, ByVal SteuerpflichtigerBetragLokal As Decimal, ByVal SteuerfreierBetragLokal As Decimal, ByVal SteuerpflichtigerBetragFremd As Decimal, ByVal SteuerfreierBetragFremd As Decimal, ByVal Belegdaten As String, ByVal Sachkonto As String, ByVal Buchungstext As String, ByVal upsize_ts() As Byte) As spTrdinSchreibenSelectProductPKeyRow Dim rowspTrdinSchreibenSelectProductPKeyRow As spTrdinSchreibenSelectProductPKeyRow = CType(Me.NewRow,spTrdinSchreibenSelectProductPKeyRow) Dim columnValuesArray() As Object = New Object() {Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, Belegdaten, Sachkonto, Buchungstext, upsize_ts} rowspTrdinSchreibenSelectProductPKeyRow.ItemArray = columnValuesArray Me.Rows.Add(rowspTrdinSchreibenSelectProductPKeyRow) Return rowspTrdinSchreibenSelectProductPKeyRow End Function _ Public Function FindByRechnungsdatumRechnungsnummerLeistungsnummerLeistungsbezeichnungSteuerpflichtig(ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean) As spTrdinSchreibenSelectProductPKeyRow Return CType(Me.Rows.Find(New Object() {Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig}),spTrdinSchreibenSelectProductPKeyRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spTrdinSchreibenSelectProductPKeyDataTable = CType(MyBase.Clone,spTrdinSchreibenSelectProductPKeyDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spTrdinSchreibenSelectProductPKeyDataTable() End Function _ Friend Sub InitVars() Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnLeistungsnummer = MyBase.Columns("Leistungsnummer") Me.columnLeistungsbezeichnung = MyBase.Columns("Leistungsbezeichnung") Me.columnSteuerpflichtig = MyBase.Columns("Steuerpflichtig") Me.columnSteuerpflichtigerBetragLokal = MyBase.Columns("SteuerpflichtigerBetragLokal") Me.columnSteuerfreierBetragLokal = MyBase.Columns("SteuerfreierBetragLokal") Me.columnSteuerpflichtigerBetragFremd = MyBase.Columns("SteuerpflichtigerBetragFremd") Me.columnSteuerfreierBetragFremd = MyBase.Columns("SteuerfreierBetragFremd") Me.columnBelegdaten = MyBase.Columns("Belegdaten") Me.columnSachkonto = MyBase.Columns("Sachkonto") Me.columnBuchungstext = MyBase.Columns("Buchungstext") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnLeistungsnummer = New Global.System.Data.DataColumn("Leistungsnummer", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsnummer) Me.columnLeistungsbezeichnung = New Global.System.Data.DataColumn("Leistungsbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLeistungsbezeichnung) Me.columnSteuerpflichtig = New Global.System.Data.DataColumn("Steuerpflichtig", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtig) Me.columnSteuerpflichtigerBetragLokal = New Global.System.Data.DataColumn("SteuerpflichtigerBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragLokal) Me.columnSteuerfreierBetragLokal = New Global.System.Data.DataColumn("SteuerfreierBetragLokal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragLokal) Me.columnSteuerpflichtigerBetragFremd = New Global.System.Data.DataColumn("SteuerpflichtigerBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerpflichtigerBetragFremd) Me.columnSteuerfreierBetragFremd = New Global.System.Data.DataColumn("SteuerfreierBetragFremd", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSteuerfreierBetragFremd) Me.columnBelegdaten = New Global.System.Data.DataColumn("Belegdaten", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdaten) Me.columnSachkonto = New Global.System.Data.DataColumn("Sachkonto", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSachkonto) Me.columnBuchungstext = New Global.System.Data.DataColumn("Buchungstext", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBuchungstext) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRechnungsdatum, Me.columnRechnungsnummer, Me.columnLeistungsnummer, Me.columnLeistungsbezeichnung, Me.columnSteuerpflichtig}, true)) Me.columnRechnungsdatum.AllowDBNull = false Me.columnRechnungsnummer.AllowDBNull = false Me.columnLeistungsnummer.AllowDBNull = false Me.columnLeistungsbezeichnung.AllowDBNull = false Me.columnLeistungsbezeichnung.MaxLength = 30 Me.columnSteuerpflichtig.AllowDBNull = false Me.columnBelegdaten.MaxLength = 30 Me.columnSachkonto.MaxLength = 7 Me.columnBuchungstext.MaxLength = 35 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspTrdinSchreibenSelectProductPKeyRow() As spTrdinSchreibenSelectProductPKeyRow Return CType(Me.NewRow,spTrdinSchreibenSelectProductPKeyRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spTrdinSchreibenSelectProductPKeyRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spTrdinSchreibenSelectProductPKeyRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spTrdinSchreibenSelectProductPKeyRowChangedEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectProductPKeyRowChanged(Me, New spTrdinSchreibenSelectProductPKeyRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectProductPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spTrdinSchreibenSelectProductPKeyRowChangingEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectProductPKeyRowChanging(Me, New spTrdinSchreibenSelectProductPKeyRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectProductPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spTrdinSchreibenSelectProductPKeyRowDeletedEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectProductPKeyRowDeleted(Me, New spTrdinSchreibenSelectProductPKeyRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectProductPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spTrdinSchreibenSelectProductPKeyRowDeletingEvent) Is Nothing) Then RaiseEvent spTrdinSchreibenSelectProductPKeyRowDeleting(Me, New spTrdinSchreibenSelectProductPKeyRowChangeEvent(CType(e.Row,spTrdinSchreibenSelectProductPKeyRow), e.Action)) End If End Sub _ Public Sub RemovespTrdinSchreibenSelectProductPKeyRow(ByVal row As spTrdinSchreibenSelectProductPKeyRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spTrdinSchreibenSelectProductPKeyDataTable" 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 spUStVAntragLesenParameterPKeyDataTable Inherits Global.System.Data.TypedTableBase(Of spUStVAntragLesenParameterPKeyRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVAn_KuNr As Global.System.Data.DataColumn Private columnUStVAn_Name As Global.System.Data.DataColumn Private columnUStVAn_Straße As Global.System.Data.DataColumn Private columnUStVAn_LandKz As Global.System.Data.DataColumn Private columnUStVAn_PLZ As Global.System.Data.DataColumn Private columnUStVAn_Ort As Global.System.Data.DataColumn Private columnUStVAn_Land As Global.System.Data.DataColumn Private columnUStVAn_Gewerbe As Global.System.Data.DataColumn Private columnUStVAn_Steuernummer As Global.System.Data.DataColumn Private columnUStVAn_ReDatVon As Global.System.Data.DataColumn Private columnUStVAn_ReDatBis As Global.System.Data.DataColumn Private columnUStVAn_Bankverbindung As Global.System.Data.DataColumn Private columnUStVAn_BLZ As Global.System.Data.DataColumn Private columnUStVAn_KTO As Global.System.Data.DataColumn Private columnUStVAn_Kontoinhaber As Global.System.Data.DataColumn Private columnUStVAn_BIC As Global.System.Data.DataColumn Private columnUStVAn_IBAN As Global.System.Data.DataColumn Private columnUStVAn_Anlagen As Global.System.Data.DataColumn Private columnUStVAn_Rechnungen As Global.System.Data.DataColumn Private columnUStVAn_Einfuhrdokumente As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_a As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_1 As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_2 As Global.System.Data.DataColumn Private columnUStVAn_Erklärung_9_b_3 As Global.System.Data.DataColumn Private columnUStVAn_Ausstellungsort As Global.System.Data.DataColumn Private columnUStVAn_Ausstellungsdatum As Global.System.Data.DataColumn Private columnUStVAn_Unterschrift As Global.System.Data.DataColumn Private columnUStVAn_LandNr As Global.System.Data.DataColumn Private columnUStVAn_Beleganzahl As Global.System.Data.DataColumn Private columnUStVAn_BeleganzahlRetourniert As Global.System.Data.DataColumn Private columnUStVAn_Retournierungsgrund As Global.System.Data.DataColumn Private columnUStVAn_AntragEingereichtAm As Global.System.Data.DataColumn Private columnUStVAn_BelegeWeitergeleitetAm As Global.System.Data.DataColumn Private columnUStVAn_Vertreter As Global.System.Data.DataColumn Private columnUStVAn_BezugsNr As Global.System.Data.DataColumn Private columnUStVAn_3470 As Global.System.Data.DataColumn Private columnUStVAn_VZBetrag As Global.System.Data.DataColumn Private columnUStVAn_VZDatum As Global.System.Data.DataColumn Private columnUStVAn_RZBetragVZ As Global.System.Data.DataColumn Private columnUStVAn_RZDatumVZ As Global.System.Data.DataColumn Private columnFilialenNr As Global.System.Data.DataColumn Private columnAbfertigungsNr As Global.System.Data.DataColumn Private columnUStVAn_Währungscode As Global.System.Data.DataColumn Private columnUStVAn_USteuerbetrag As Global.System.Data.DataColumn Private columnUStVAn_Erstattungsbetrag As Global.System.Data.DataColumn Private columnUStVAn_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVAn_ErstattungsbetragEUR As Global.System.Data.DataColumn Private columnUStVAn_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVAn_Status As Global.System.Data.DataColumn Private columnUStVAn_StatusText As Global.System.Data.DataColumn Private columnUStVAn_AntragArt As Global.System.Data.DataColumn Private columnUStVAn_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spUStVAntragLesenParameterPKey" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVAn_KuNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_KuNr End Get End Property _ Public ReadOnly Property UStVAn_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Name End Get End Property _ Public ReadOnly Property UStVAn_StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Straße End Get End Property _ Public ReadOnly Property UStVAn_LandKzColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_LandKz End Get End Property _ Public ReadOnly Property UStVAn_PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_PLZ End Get End Property _ Public ReadOnly Property UStVAn_OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ort End Get End Property _ Public ReadOnly Property UStVAn_LandColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Land End Get End Property _ Public ReadOnly Property UStVAn_GewerbeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Gewerbe End Get End Property _ Public ReadOnly Property UStVAn_SteuernummerColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Steuernummer End Get End Property _ Public ReadOnly Property UStVAn_ReDatVonColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ReDatVon End Get End Property _ Public ReadOnly Property UStVAn_ReDatBisColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ReDatBis End Get End Property _ Public ReadOnly Property UStVAn_BankverbindungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Bankverbindung End Get End Property _ Public ReadOnly Property UStVAn_BLZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BLZ End Get End Property _ Public ReadOnly Property UStVAn_KTOColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_KTO End Get End Property _ Public ReadOnly Property UStVAn_KontoinhaberColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Kontoinhaber End Get End Property _ Public ReadOnly Property UStVAn_BICColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BIC End Get End Property _ Public ReadOnly Property UStVAn_IBANColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_IBAN End Get End Property _ Public ReadOnly Property UStVAn_AnlagenColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Anlagen End Get End Property _ Public ReadOnly Property UStVAn_RechnungenColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Rechnungen End Get End Property _ Public ReadOnly Property UStVAn_EinfuhrdokumenteColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Einfuhrdokumente End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_aColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_a End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_1Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_1 End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_2Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_2 End Get End Property _ Public ReadOnly Property UStVAn_Erklärung_9_b_3Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erklärung_9_b_3 End Get End Property _ Public ReadOnly Property UStVAn_AusstellungsortColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ausstellungsort End Get End Property _ Public ReadOnly Property UStVAn_AusstellungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Ausstellungsdatum End Get End Property _ Public ReadOnly Property UStVAn_UnterschriftColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Unterschrift End Get End Property _ Public ReadOnly Property UStVAn_LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_LandNr End Get End Property _ Public ReadOnly Property UStVAn_BeleganzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Beleganzahl End Get End Property _ Public ReadOnly Property UStVAn_BeleganzahlRetourniertColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BeleganzahlRetourniert End Get End Property _ Public ReadOnly Property UStVAn_RetournierungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Retournierungsgrund End Get End Property _ Public ReadOnly Property UStVAn_AntragEingereichtAmColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_AntragEingereichtAm End Get End Property _ Public ReadOnly Property UStVAn_BelegeWeitergeleitetAmColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BelegeWeitergeleitetAm End Get End Property _ Public ReadOnly Property UStVAn_VertreterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Vertreter End Get End Property _ Public ReadOnly Property UStVAn_BezugsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_BezugsNr End Get End Property _ Public ReadOnly Property UStVAn_3470Column() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_3470 End Get End Property _ Public ReadOnly Property UStVAn_VZBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZBetrag End Get End Property _ Public ReadOnly Property UStVAn_VZDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_VZDatum End Get End Property _ Public ReadOnly Property UStVAn_RZBetragVZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_RZBetragVZ End Get End Property _ Public ReadOnly Property UStVAn_RZDatumVZColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_RZDatumVZ End Get End Property _ Public ReadOnly Property FilialenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnFilialenNr End Get End Property _ Public ReadOnly Property AbfertigungsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAbfertigungsNr End Get End Property _ Public ReadOnly Property UStVAn_WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Währungscode End Get End Property _ Public ReadOnly Property UStVAn_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_USteuerbetrag End Get End Property _ Public ReadOnly Property UStVAn_ErstattungsbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Erstattungsbetrag End Get End Property _ Public ReadOnly Property UStVAn_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVAn_ErstattungsbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ErstattungsbetragEUR End Get End Property _ Public ReadOnly Property UStVAn_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVAn_StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Status End Get End Property _ Public ReadOnly Property UStVAn_StatusTextColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_StatusText End Get End Property _ Public ReadOnly Property UStVAn_AntragArtColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_AntragArt End Get End Property _ Public ReadOnly Property UStVAn_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spUStVAntragLesenParameterPKeyRow Get Return CType(Me.Rows(index),spUStVAntragLesenParameterPKeyRow) End Get End Property _ Public Event spUStVAntragLesenParameterPKeyRowChanging As spUStVAntragLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVAntragLesenParameterPKeyRowChanged As spUStVAntragLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVAntragLesenParameterPKeyRowDeleting As spUStVAntragLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVAntragLesenParameterPKeyRowDeleted As spUStVAntragLesenParameterPKeyRowChangeEventHandler _ Public Overloads Sub AddspUStVAntragLesenParameterPKeyRow(ByVal row As spUStVAntragLesenParameterPKeyRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspUStVAntragLesenParameterPKeyRow( _ ByVal UStVAn_KuNr As Integer, _ ByVal UStVAn_Name As String, _ ByVal UStVAn_Straße As String, _ ByVal UStVAn_LandKz As String, _ ByVal UStVAn_PLZ As String, _ ByVal UStVAn_Ort As String, _ ByVal UStVAn_Land As String, _ ByVal UStVAn_Gewerbe As String, _ ByVal UStVAn_Steuernummer As String, _ ByVal UStVAn_ReDatVon As Date, _ ByVal UStVAn_ReDatBis As Date, _ ByVal UStVAn_Bankverbindung As String, _ ByVal UStVAn_BLZ As String, _ ByVal UStVAn_KTO As String, _ ByVal UStVAn_Kontoinhaber As String, _ ByVal UStVAn_BIC As String, _ ByVal UStVAn_IBAN As String, _ ByVal UStVAn_Anlagen As Short, _ ByVal UStVAn_Rechnungen As Short, _ ByVal UStVAn_Einfuhrdokumente As Short, _ ByVal UStVAn_Erklärung_9_a As String, _ ByVal UStVAn_Erklärung_9_b_1 As Boolean, _ ByVal UStVAn_Erklärung_9_b_2 As Boolean, _ ByVal UStVAn_Erklärung_9_b_3 As Boolean, _ ByVal UStVAn_Ausstellungsort As String, _ ByVal UStVAn_Ausstellungsdatum As Date, _ ByVal UStVAn_Unterschrift As String, _ ByVal UStVAn_LandNr As Short, _ ByVal UStVAn_Beleganzahl As Short, _ ByVal UStVAn_BeleganzahlRetourniert As Short, _ ByVal UStVAn_Retournierungsgrund As String, _ ByVal UStVAn_AntragEingereichtAm As Date, _ ByVal UStVAn_BelegeWeitergeleitetAm As Date, _ ByVal UStVAn_Vertreter As Integer, _ ByVal UStVAn_BezugsNr As String, _ ByVal UStVAn_3470 As Decimal, _ ByVal UStVAn_VZBetrag As Decimal, _ ByVal UStVAn_VZDatum As Date, _ ByVal UStVAn_RZBetragVZ As Decimal, _ ByVal UStVAn_RZDatumVZ As Date, _ ByVal FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UStVAn_Währungscode As String, _ ByVal UStVAn_USteuerbetrag As Decimal, _ ByVal UStVAn_Erstattungsbetrag As Decimal, _ ByVal UStVAn_USteuerbetragEUR As Decimal, _ ByVal UStVAn_ErstattungsbetragEUR As Decimal, _ ByVal UStVAn_Sachbearbeiter As String, _ ByVal UStVAn_Status As Integer, _ ByVal UStVAn_StatusText As String, _ ByVal UStVAn_AntragArt As String, _ ByVal UStVAn_Zeitstempel As Date, _ ByVal upsize_ts() As Byte) As spUStVAntragLesenParameterPKeyRow Dim rowspUStVAntragLesenParameterPKeyRow As spUStVAntragLesenParameterPKeyRow = CType(Me.NewRow,spUStVAntragLesenParameterPKeyRow) Dim columnValuesArray() As Object = New Object() {Nothing, UStVAn_KuNr, UStVAn_Name, UStVAn_Straße, UStVAn_LandKz, UStVAn_PLZ, UStVAn_Ort, UStVAn_Land, UStVAn_Gewerbe, UStVAn_Steuernummer, UStVAn_ReDatVon, UStVAn_ReDatBis, UStVAn_Bankverbindung, UStVAn_BLZ, UStVAn_KTO, UStVAn_Kontoinhaber, UStVAn_BIC, UStVAn_IBAN, UStVAn_Anlagen, UStVAn_Rechnungen, UStVAn_Einfuhrdokumente, UStVAn_Erklärung_9_a, UStVAn_Erklärung_9_b_1, UStVAn_Erklärung_9_b_2, UStVAn_Erklärung_9_b_3, UStVAn_Ausstellungsort, UStVAn_Ausstellungsdatum, UStVAn_Unterschrift, UStVAn_LandNr, UStVAn_Beleganzahl, UStVAn_BeleganzahlRetourniert, UStVAn_Retournierungsgrund, UStVAn_AntragEingereichtAm, UStVAn_BelegeWeitergeleitetAm, UStVAn_Vertreter, UStVAn_BezugsNr, UStVAn_3470, UStVAn_VZBetrag, UStVAn_VZDatum, UStVAn_RZBetragVZ, UStVAn_RZDatumVZ, FilialenNr, AbfertigungsNr, UStVAn_Währungscode, UStVAn_USteuerbetrag, UStVAn_Erstattungsbetrag, UStVAn_USteuerbetragEUR, UStVAn_ErstattungsbetragEUR, UStVAn_Sachbearbeiter, UStVAn_Status, UStVAn_StatusText, UStVAn_AntragArt, UStVAn_Zeitstempel, upsize_ts} rowspUStVAntragLesenParameterPKeyRow.ItemArray = columnValuesArray Me.Rows.Add(rowspUStVAntragLesenParameterPKeyRow) Return rowspUStVAntragLesenParameterPKeyRow End Function _ Public Function FindByUStVAn_ID(ByVal UStVAn_ID As Integer) As spUStVAntragLesenParameterPKeyRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID}),spUStVAntragLesenParameterPKeyRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spUStVAntragLesenParameterPKeyDataTable = CType(MyBase.Clone,spUStVAntragLesenParameterPKeyDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spUStVAntragLesenParameterPKeyDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVAn_KuNr = MyBase.Columns("UStVAn_KuNr") Me.columnUStVAn_Name = MyBase.Columns("UStVAn_Name") Me.columnUStVAn_Straße = MyBase.Columns("UStVAn_Straße") Me.columnUStVAn_LandKz = MyBase.Columns("UStVAn_LandKz") Me.columnUStVAn_PLZ = MyBase.Columns("UStVAn_PLZ") Me.columnUStVAn_Ort = MyBase.Columns("UStVAn_Ort") Me.columnUStVAn_Land = MyBase.Columns("UStVAn_Land") Me.columnUStVAn_Gewerbe = MyBase.Columns("UStVAn_Gewerbe") Me.columnUStVAn_Steuernummer = MyBase.Columns("UStVAn_Steuernummer") Me.columnUStVAn_ReDatVon = MyBase.Columns("UStVAn_ReDatVon") Me.columnUStVAn_ReDatBis = MyBase.Columns("UStVAn_ReDatBis") Me.columnUStVAn_Bankverbindung = MyBase.Columns("UStVAn_Bankverbindung") Me.columnUStVAn_BLZ = MyBase.Columns("UStVAn_BLZ") Me.columnUStVAn_KTO = MyBase.Columns("UStVAn_KTO") Me.columnUStVAn_Kontoinhaber = MyBase.Columns("UStVAn_Kontoinhaber") Me.columnUStVAn_BIC = MyBase.Columns("UStVAn_BIC") Me.columnUStVAn_IBAN = MyBase.Columns("UStVAn_IBAN") Me.columnUStVAn_Anlagen = MyBase.Columns("UStVAn_Anlagen") Me.columnUStVAn_Rechnungen = MyBase.Columns("UStVAn_Rechnungen") Me.columnUStVAn_Einfuhrdokumente = MyBase.Columns("UStVAn_Einfuhrdokumente") Me.columnUStVAn_Erklärung_9_a = MyBase.Columns("UStVAn_Erklärung_9_a") Me.columnUStVAn_Erklärung_9_b_1 = MyBase.Columns("UStVAn_Erklärung_9_b_1") Me.columnUStVAn_Erklärung_9_b_2 = MyBase.Columns("UStVAn_Erklärung_9_b_2") Me.columnUStVAn_Erklärung_9_b_3 = MyBase.Columns("UStVAn_Erklärung_9_b_3") Me.columnUStVAn_Ausstellungsort = MyBase.Columns("UStVAn_Ausstellungsort") Me.columnUStVAn_Ausstellungsdatum = MyBase.Columns("UStVAn_Ausstellungsdatum") Me.columnUStVAn_Unterschrift = MyBase.Columns("UStVAn_Unterschrift") Me.columnUStVAn_LandNr = MyBase.Columns("UStVAn_LandNr") Me.columnUStVAn_Beleganzahl = MyBase.Columns("UStVAn_Beleganzahl") Me.columnUStVAn_BeleganzahlRetourniert = MyBase.Columns("UStVAn_BeleganzahlRetourniert") Me.columnUStVAn_Retournierungsgrund = MyBase.Columns("UStVAn_Retournierungsgrund") Me.columnUStVAn_AntragEingereichtAm = MyBase.Columns("UStVAn_AntragEingereichtAm") Me.columnUStVAn_BelegeWeitergeleitetAm = MyBase.Columns("UStVAn_BelegeWeitergeleitetAm") Me.columnUStVAn_Vertreter = MyBase.Columns("UStVAn_Vertreter") Me.columnUStVAn_BezugsNr = MyBase.Columns("UStVAn_BezugsNr") Me.columnUStVAn_3470 = MyBase.Columns("UStVAn_3470") Me.columnUStVAn_VZBetrag = MyBase.Columns("UStVAn_VZBetrag") Me.columnUStVAn_VZDatum = MyBase.Columns("UStVAn_VZDatum") Me.columnUStVAn_RZBetragVZ = MyBase.Columns("UStVAn_RZBetragVZ") Me.columnUStVAn_RZDatumVZ = MyBase.Columns("UStVAn_RZDatumVZ") Me.columnFilialenNr = MyBase.Columns("FilialenNr") Me.columnAbfertigungsNr = MyBase.Columns("AbfertigungsNr") Me.columnUStVAn_Währungscode = MyBase.Columns("UStVAn_Währungscode") Me.columnUStVAn_USteuerbetrag = MyBase.Columns("UStVAn_USteuerbetrag") Me.columnUStVAn_Erstattungsbetrag = MyBase.Columns("UStVAn_Erstattungsbetrag") Me.columnUStVAn_USteuerbetragEUR = MyBase.Columns("UStVAn_USteuerbetragEUR") Me.columnUStVAn_ErstattungsbetragEUR = MyBase.Columns("UStVAn_ErstattungsbetragEUR") Me.columnUStVAn_Sachbearbeiter = MyBase.Columns("UStVAn_Sachbearbeiter") Me.columnUStVAn_Status = MyBase.Columns("UStVAn_Status") Me.columnUStVAn_StatusText = MyBase.Columns("UStVAn_StatusText") Me.columnUStVAn_AntragArt = MyBase.Columns("UStVAn_AntragArt") Me.columnUStVAn_Zeitstempel = MyBase.Columns("UStVAn_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVAn_KuNr = New Global.System.Data.DataColumn("UStVAn_KuNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_KuNr) Me.columnUStVAn_Name = New Global.System.Data.DataColumn("UStVAn_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Name) Me.columnUStVAn_Straße = New Global.System.Data.DataColumn("UStVAn_Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Straße) Me.columnUStVAn_LandKz = New Global.System.Data.DataColumn("UStVAn_LandKz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_LandKz) Me.columnUStVAn_PLZ = New Global.System.Data.DataColumn("UStVAn_PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_PLZ) Me.columnUStVAn_Ort = New Global.System.Data.DataColumn("UStVAn_Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ort) Me.columnUStVAn_Land = New Global.System.Data.DataColumn("UStVAn_Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Land) Me.columnUStVAn_Gewerbe = New Global.System.Data.DataColumn("UStVAn_Gewerbe", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Gewerbe) Me.columnUStVAn_Steuernummer = New Global.System.Data.DataColumn("UStVAn_Steuernummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Steuernummer) Me.columnUStVAn_ReDatVon = New Global.System.Data.DataColumn("UStVAn_ReDatVon", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ReDatVon) Me.columnUStVAn_ReDatBis = New Global.System.Data.DataColumn("UStVAn_ReDatBis", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ReDatBis) Me.columnUStVAn_Bankverbindung = New Global.System.Data.DataColumn("UStVAn_Bankverbindung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Bankverbindung) Me.columnUStVAn_BLZ = New Global.System.Data.DataColumn("UStVAn_BLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BLZ) Me.columnUStVAn_KTO = New Global.System.Data.DataColumn("UStVAn_KTO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_KTO) Me.columnUStVAn_Kontoinhaber = New Global.System.Data.DataColumn("UStVAn_Kontoinhaber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Kontoinhaber) Me.columnUStVAn_BIC = New Global.System.Data.DataColumn("UStVAn_BIC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BIC) Me.columnUStVAn_IBAN = New Global.System.Data.DataColumn("UStVAn_IBAN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_IBAN) Me.columnUStVAn_Anlagen = New Global.System.Data.DataColumn("UStVAn_Anlagen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Anlagen) Me.columnUStVAn_Rechnungen = New Global.System.Data.DataColumn("UStVAn_Rechnungen", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Rechnungen) Me.columnUStVAn_Einfuhrdokumente = New Global.System.Data.DataColumn("UStVAn_Einfuhrdokumente", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Einfuhrdokumente) Me.columnUStVAn_Erklärung_9_a = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_a", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_a) Me.columnUStVAn_Erklärung_9_b_1 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_1) Me.columnUStVAn_Erklärung_9_b_2 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_2) Me.columnUStVAn_Erklärung_9_b_3 = New Global.System.Data.DataColumn("UStVAn_Erklärung_9_b_3", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erklärung_9_b_3) Me.columnUStVAn_Ausstellungsort = New Global.System.Data.DataColumn("UStVAn_Ausstellungsort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ausstellungsort) Me.columnUStVAn_Ausstellungsdatum = New Global.System.Data.DataColumn("UStVAn_Ausstellungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Ausstellungsdatum) Me.columnUStVAn_Unterschrift = New Global.System.Data.DataColumn("UStVAn_Unterschrift", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Unterschrift) Me.columnUStVAn_LandNr = New Global.System.Data.DataColumn("UStVAn_LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_LandNr) Me.columnUStVAn_Beleganzahl = New Global.System.Data.DataColumn("UStVAn_Beleganzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Beleganzahl) Me.columnUStVAn_BeleganzahlRetourniert = New Global.System.Data.DataColumn("UStVAn_BeleganzahlRetourniert", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BeleganzahlRetourniert) Me.columnUStVAn_Retournierungsgrund = New Global.System.Data.DataColumn("UStVAn_Retournierungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Retournierungsgrund) Me.columnUStVAn_AntragEingereichtAm = New Global.System.Data.DataColumn("UStVAn_AntragEingereichtAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_AntragEingereichtAm) Me.columnUStVAn_BelegeWeitergeleitetAm = New Global.System.Data.DataColumn("UStVAn_BelegeWeitergeleitetAm", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BelegeWeitergeleitetAm) Me.columnUStVAn_Vertreter = New Global.System.Data.DataColumn("UStVAn_Vertreter", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Vertreter) Me.columnUStVAn_BezugsNr = New Global.System.Data.DataColumn("UStVAn_BezugsNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_BezugsNr) Me.columnUStVAn_3470 = New Global.System.Data.DataColumn("UStVAn_3470", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_3470) Me.columnUStVAn_VZBetrag = New Global.System.Data.DataColumn("UStVAn_VZBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZBetrag) Me.columnUStVAn_VZDatum = New Global.System.Data.DataColumn("UStVAn_VZDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_VZDatum) Me.columnUStVAn_RZBetragVZ = New Global.System.Data.DataColumn("UStVAn_RZBetragVZ", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_RZBetragVZ) Me.columnUStVAn_RZDatumVZ = New Global.System.Data.DataColumn("UStVAn_RZDatumVZ", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_RZDatumVZ) Me.columnFilialenNr = New Global.System.Data.DataColumn("FilialenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilialenNr) Me.columnAbfertigungsNr = New Global.System.Data.DataColumn("AbfertigungsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbfertigungsNr) Me.columnUStVAn_Währungscode = New Global.System.Data.DataColumn("UStVAn_Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Währungscode) Me.columnUStVAn_USteuerbetrag = New Global.System.Data.DataColumn("UStVAn_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_USteuerbetrag) Me.columnUStVAn_Erstattungsbetrag = New Global.System.Data.DataColumn("UStVAn_Erstattungsbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Erstattungsbetrag) Me.columnUStVAn_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVAn_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_USteuerbetragEUR) Me.columnUStVAn_ErstattungsbetragEUR = New Global.System.Data.DataColumn("UStVAn_ErstattungsbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ErstattungsbetragEUR) Me.columnUStVAn_Sachbearbeiter = New Global.System.Data.DataColumn("UStVAn_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Sachbearbeiter) Me.columnUStVAn_Status = New Global.System.Data.DataColumn("UStVAn_Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Status) Me.columnUStVAn_StatusText = New Global.System.Data.DataColumn("UStVAn_StatusText", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_StatusText) Me.columnUStVAn_AntragArt = New Global.System.Data.DataColumn("UStVAn_AntragArt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_AntragArt) Me.columnUStVAn_Zeitstempel = New Global.System.Data.DataColumn("UStVAn_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID}, true)) Me.columnUStVAn_ID.AutoIncrement = true Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVAn_ID.ReadOnly = true Me.columnUStVAn_ID.Unique = true Me.columnUStVAn_KuNr.AllowDBNull = false Me.columnUStVAn_Name.MaxLength = 80 Me.columnUStVAn_Straße.MaxLength = 40 Me.columnUStVAn_LandKz.MaxLength = 3 Me.columnUStVAn_PLZ.MaxLength = 7 Me.columnUStVAn_Ort.MaxLength = 40 Me.columnUStVAn_Land.MaxLength = 22 Me.columnUStVAn_Gewerbe.MaxLength = 50 Me.columnUStVAn_Steuernummer.MaxLength = 20 Me.columnUStVAn_ReDatVon.AllowDBNull = false Me.columnUStVAn_ReDatBis.AllowDBNull = false Me.columnUStVAn_Bankverbindung.MaxLength = 50 Me.columnUStVAn_BLZ.MaxLength = 8 Me.columnUStVAn_KTO.MaxLength = 12 Me.columnUStVAn_Kontoinhaber.MaxLength = 50 Me.columnUStVAn_BIC.MaxLength = 11 Me.columnUStVAn_IBAN.MaxLength = 27 Me.columnUStVAn_Erklärung_9_a.MaxLength = 50 Me.columnUStVAn_Erklärung_9_b_1.AllowDBNull = false Me.columnUStVAn_Erklärung_9_b_2.AllowDBNull = false Me.columnUStVAn_Erklärung_9_b_3.AllowDBNull = false Me.columnUStVAn_Ausstellungsort.MaxLength = 20 Me.columnUStVAn_Unterschrift.MaxLength = 20 Me.columnUStVAn_LandNr.AllowDBNull = false Me.columnUStVAn_Retournierungsgrund.MaxLength = 255 Me.columnUStVAn_BezugsNr.MaxLength = 35 Me.columnUStVAn_Währungscode.MaxLength = 3 Me.columnUStVAn_Sachbearbeiter.MaxLength = 15 Me.columnUStVAn_StatusText.MaxLength = 2147483647 Me.columnUStVAn_AntragArt.MaxLength = 20 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspUStVAntragLesenParameterPKeyRow() As spUStVAntragLesenParameterPKeyRow Return CType(Me.NewRow,spUStVAntragLesenParameterPKeyRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spUStVAntragLesenParameterPKeyRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spUStVAntragLesenParameterPKeyRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spUStVAntragLesenParameterPKeyRowChangedEvent) Is Nothing) Then RaiseEvent spUStVAntragLesenParameterPKeyRowChanged(Me, New spUStVAntragLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVAntragLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spUStVAntragLesenParameterPKeyRowChangingEvent) Is Nothing) Then RaiseEvent spUStVAntragLesenParameterPKeyRowChanging(Me, New spUStVAntragLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVAntragLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spUStVAntragLesenParameterPKeyRowDeletedEvent) Is Nothing) Then RaiseEvent spUStVAntragLesenParameterPKeyRowDeleted(Me, New spUStVAntragLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVAntragLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spUStVAntragLesenParameterPKeyRowDeletingEvent) Is Nothing) Then RaiseEvent spUStVAntragLesenParameterPKeyRowDeleting(Me, New spUStVAntragLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVAntragLesenParameterPKeyRow), e.Action)) End If End Sub _ Public Sub RemovespUStVAntragLesenParameterPKeyRow(ByVal row As spUStVAntragLesenParameterPKeyRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spUStVAntragLesenParameterPKeyDataTable" 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 spUStVBelegeingangLesenParameterPKeyDataTable Inherits Global.System.Data.TypedTableBase(Of spUStVBelegeingangLesenParameterPKeyRow) Private columnUStVBe_KuNr As Global.System.Data.DataColumn Private columnUStVBe_EinDat As Global.System.Data.DataColumn Private columnUStVBe_EinNr As Global.System.Data.DataColumn Private columnUStVBe_UStBetrag As Global.System.Data.DataColumn Private columnUStVBe_Beleganzahl As Global.System.Data.DataColumn Private columnUStVBe_Retourniert As Global.System.Data.DataColumn Private columnUStVBe_Bemerkung As Global.System.Data.DataColumn Private columnUStVBe_WeiterDat As Global.System.Data.DataColumn Private columnUStVBe_Empfänger As Global.System.Data.DataColumn Private columnUStVBe_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spUStVBelegeingangLesenParameterPKey" 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 UStVBe_KuNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_KuNr End Get End Property _ Public ReadOnly Property UStVBe_EinDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_EinDat End Get End Property _ Public ReadOnly Property UStVBe_EinNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_EinNr End Get End Property _ Public ReadOnly Property UStVBe_UStBetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_UStBetrag End Get End Property _ Public ReadOnly Property UStVBe_BeleganzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Beleganzahl End Get End Property _ Public ReadOnly Property UStVBe_RetourniertColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Retourniert End Get End Property _ Public ReadOnly Property UStVBe_BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Bemerkung End Get End Property _ Public ReadOnly Property UStVBe_WeiterDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_WeiterDat End Get End Property _ Public ReadOnly Property UStVBe_EmpfängerColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Empfänger End Get End Property _ Public ReadOnly Property UStVBe_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVBe_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spUStVBelegeingangLesenParameterPKeyRow Get Return CType(Me.Rows(index),spUStVBelegeingangLesenParameterPKeyRow) End Get End Property _ Public Event spUStVBelegeingangLesenParameterPKeyRowChanging As spUStVBelegeingangLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVBelegeingangLesenParameterPKeyRowChanged As spUStVBelegeingangLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVBelegeingangLesenParameterPKeyRowDeleting As spUStVBelegeingangLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVBelegeingangLesenParameterPKeyRowDeleted As spUStVBelegeingangLesenParameterPKeyRowChangeEventHandler _ Public Overloads Sub AddspUStVBelegeingangLesenParameterPKeyRow(ByVal row As spUStVBelegeingangLesenParameterPKeyRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspUStVBelegeingangLesenParameterPKeyRow(ByVal UStVBe_KuNr As Integer, ByVal UStVBe_EinDat As Date, ByVal UStVBe_UStBetrag As Decimal, ByVal UStVBe_Beleganzahl As Short, ByVal UStVBe_Retourniert As Short, ByVal UStVBe_Bemerkung As String, ByVal UStVBe_WeiterDat As Date, ByVal UStVBe_Empfänger As Integer, ByVal UStVBe_Zeitstempel As Date, ByVal upsize_ts() As Byte) As spUStVBelegeingangLesenParameterPKeyRow Dim rowspUStVBelegeingangLesenParameterPKeyRow As spUStVBelegeingangLesenParameterPKeyRow = CType(Me.NewRow,spUStVBelegeingangLesenParameterPKeyRow) Dim columnValuesArray() As Object = New Object() {UStVBe_KuNr, UStVBe_EinDat, Nothing, UStVBe_UStBetrag, UStVBe_Beleganzahl, UStVBe_Retourniert, UStVBe_Bemerkung, UStVBe_WeiterDat, UStVBe_Empfänger, UStVBe_Zeitstempel, upsize_ts} rowspUStVBelegeingangLesenParameterPKeyRow.ItemArray = columnValuesArray Me.Rows.Add(rowspUStVBelegeingangLesenParameterPKeyRow) Return rowspUStVBelegeingangLesenParameterPKeyRow End Function _ Public Function FindByUStVBe_EinNr(ByVal UStVBe_EinNr As Integer) As spUStVBelegeingangLesenParameterPKeyRow Return CType(Me.Rows.Find(New Object() {UStVBe_EinNr}),spUStVBelegeingangLesenParameterPKeyRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spUStVBelegeingangLesenParameterPKeyDataTable = CType(MyBase.Clone,spUStVBelegeingangLesenParameterPKeyDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spUStVBelegeingangLesenParameterPKeyDataTable() End Function _ Friend Sub InitVars() Me.columnUStVBe_KuNr = MyBase.Columns("UStVBe_KuNr") Me.columnUStVBe_EinDat = MyBase.Columns("UStVBe_EinDat") Me.columnUStVBe_EinNr = MyBase.Columns("UStVBe_EinNr") Me.columnUStVBe_UStBetrag = MyBase.Columns("UStVBe_UStBetrag") Me.columnUStVBe_Beleganzahl = MyBase.Columns("UStVBe_Beleganzahl") Me.columnUStVBe_Retourniert = MyBase.Columns("UStVBe_Retourniert") Me.columnUStVBe_Bemerkung = MyBase.Columns("UStVBe_Bemerkung") Me.columnUStVBe_WeiterDat = MyBase.Columns("UStVBe_WeiterDat") Me.columnUStVBe_Empfänger = MyBase.Columns("UStVBe_Empfänger") Me.columnUStVBe_Zeitstempel = MyBase.Columns("UStVBe_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVBe_KuNr = New Global.System.Data.DataColumn("UStVBe_KuNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_KuNr) Me.columnUStVBe_EinDat = New Global.System.Data.DataColumn("UStVBe_EinDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_EinDat) Me.columnUStVBe_EinNr = New Global.System.Data.DataColumn("UStVBe_EinNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_EinNr) Me.columnUStVBe_UStBetrag = New Global.System.Data.DataColumn("UStVBe_UStBetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_UStBetrag) Me.columnUStVBe_Beleganzahl = New Global.System.Data.DataColumn("UStVBe_Beleganzahl", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Beleganzahl) Me.columnUStVBe_Retourniert = New Global.System.Data.DataColumn("UStVBe_Retourniert", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Retourniert) Me.columnUStVBe_Bemerkung = New Global.System.Data.DataColumn("UStVBe_Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Bemerkung) Me.columnUStVBe_WeiterDat = New Global.System.Data.DataColumn("UStVBe_WeiterDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_WeiterDat) Me.columnUStVBe_Empfänger = New Global.System.Data.DataColumn("UStVBe_Empfänger", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Empfänger) Me.columnUStVBe_Zeitstempel = New Global.System.Data.DataColumn("UStVBe_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVBe_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVBe_EinNr}, true)) Me.columnUStVBe_KuNr.AllowDBNull = false Me.columnUStVBe_EinDat.AllowDBNull = false Me.columnUStVBe_EinNr.AutoIncrement = true Me.columnUStVBe_EinNr.AllowDBNull = false Me.columnUStVBe_EinNr.ReadOnly = true Me.columnUStVBe_EinNr.Unique = true Me.columnUStVBe_Bemerkung.MaxLength = 255 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspUStVBelegeingangLesenParameterPKeyRow() As spUStVBelegeingangLesenParameterPKeyRow Return CType(Me.NewRow,spUStVBelegeingangLesenParameterPKeyRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spUStVBelegeingangLesenParameterPKeyRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spUStVBelegeingangLesenParameterPKeyRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spUStVBelegeingangLesenParameterPKeyRowChangedEvent) Is Nothing) Then RaiseEvent spUStVBelegeingangLesenParameterPKeyRowChanged(Me, New spUStVBelegeingangLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVBelegeingangLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spUStVBelegeingangLesenParameterPKeyRowChangingEvent) Is Nothing) Then RaiseEvent spUStVBelegeingangLesenParameterPKeyRowChanging(Me, New spUStVBelegeingangLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVBelegeingangLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spUStVBelegeingangLesenParameterPKeyRowDeletedEvent) Is Nothing) Then RaiseEvent spUStVBelegeingangLesenParameterPKeyRowDeleted(Me, New spUStVBelegeingangLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVBelegeingangLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spUStVBelegeingangLesenParameterPKeyRowDeletingEvent) Is Nothing) Then RaiseEvent spUStVBelegeingangLesenParameterPKeyRowDeleting(Me, New spUStVBelegeingangLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVBelegeingangLesenParameterPKeyRow), e.Action)) End If End Sub _ Public Sub RemovespUStVBelegeingangLesenParameterPKeyRow(ByVal row As spUStVBelegeingangLesenParameterPKeyRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spUStVBelegeingangLesenParameterPKeyDataTable" 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 spUStVErstattungLesenParameterPKeyDataTable Inherits Global.System.Data.TypedTableBase(Of spUStVErstattungLesenParameterPKeyRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVEr_ID As Global.System.Data.DataColumn Private columnUStVEr_USteuerbetrag As Global.System.Data.DataColumn Private columnBelegdatum As Global.System.Data.DataColumn Private columnBelegnummer As Global.System.Data.DataColumn Private columnGutschriftsDatum As Global.System.Data.DataColumn Private columnGutschriftsNr As Global.System.Data.DataColumn Private columnBerufungsdatum As Global.System.Data.DataColumn Private columnBerufungshöhe As Global.System.Data.DataColumn Private columnBerufungsgrund As Global.System.Data.DataColumn Private columnBemerkung As Global.System.Data.DataColumn Private columnUStVEr_Umrechnungskurs As Global.System.Data.DataColumn Private columnUStVEr_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVEr_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVEr_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spUStVErstattungLesenParameterPKey" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVEr_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_ID End Get End Property _ Public ReadOnly Property UStVEr_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_USteuerbetrag End Get End Property _ Public ReadOnly Property BelegdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegdatum End Get End Property _ Public ReadOnly Property BelegnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnBelegnummer End Get End Property _ Public ReadOnly Property GutschriftsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnGutschriftsDatum End Get End Property _ Public ReadOnly Property GutschriftsNrColumn() As Global.System.Data.DataColumn Get Return Me.columnGutschriftsNr End Get End Property _ Public ReadOnly Property BerufungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungsdatum End Get End Property _ Public ReadOnly Property BerufungshöheColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungshöhe End Get End Property _ Public ReadOnly Property BerufungsgrundColumn() As Global.System.Data.DataColumn Get Return Me.columnBerufungsgrund End Get End Property _ Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnBemerkung End Get End Property _ Public ReadOnly Property UStVEr_UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Umrechnungskurs End Get End Property _ Public ReadOnly Property UStVEr_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVEr_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVEr_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVEr_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spUStVErstattungLesenParameterPKeyRow Get Return CType(Me.Rows(index),spUStVErstattungLesenParameterPKeyRow) End Get End Property _ Public Event spUStVErstattungLesenParameterPKeyRowChanging As spUStVErstattungLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVErstattungLesenParameterPKeyRowChanged As spUStVErstattungLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVErstattungLesenParameterPKeyRowDeleting As spUStVErstattungLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVErstattungLesenParameterPKeyRowDeleted As spUStVErstattungLesenParameterPKeyRowChangeEventHandler _ Public Overloads Sub AddspUStVErstattungLesenParameterPKeyRow(ByVal row As spUStVErstattungLesenParameterPKeyRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspUStVErstattungLesenParameterPKeyRow( _ ByVal UStVAn_ID As Integer, _ ByVal UStVEr_ID As Short, _ ByVal UStVEr_USteuerbetrag As Decimal, _ ByVal Belegdatum As Date, _ ByVal Belegnummer As String, _ ByVal GutschriftsDatum As Date, _ ByVal GutschriftsNr As Integer, _ ByVal Berufungsdatum As Date, _ ByVal Berufungshöhe As Decimal, _ ByVal Berufungsgrund As String, _ ByVal Bemerkung As String, _ ByVal UStVEr_Umrechnungskurs As Double, _ ByVal UStVEr_USteuerbetragEUR As Decimal, _ ByVal UStVEr_Sachbearbeiter As String, _ ByVal UStVEr_Zeitstempel As Date, _ ByVal upsize_ts() As Byte) As spUStVErstattungLesenParameterPKeyRow Dim rowspUStVErstattungLesenParameterPKeyRow As spUStVErstattungLesenParameterPKeyRow = CType(Me.NewRow,spUStVErstattungLesenParameterPKeyRow) Dim columnValuesArray() As Object = New Object() {UStVAn_ID, UStVEr_ID, UStVEr_USteuerbetrag, Belegdatum, Belegnummer, GutschriftsDatum, GutschriftsNr, Berufungsdatum, Berufungshöhe, Berufungsgrund, Bemerkung, UStVEr_Umrechnungskurs, UStVEr_USteuerbetragEUR, UStVEr_Sachbearbeiter, UStVEr_Zeitstempel, upsize_ts} rowspUStVErstattungLesenParameterPKeyRow.ItemArray = columnValuesArray Me.Rows.Add(rowspUStVErstattungLesenParameterPKeyRow) Return rowspUStVErstattungLesenParameterPKeyRow End Function _ Public Function FindByUStVAn_IDUStVEr_ID(ByVal UStVAn_ID As Integer, ByVal UStVEr_ID As Short) As spUStVErstattungLesenParameterPKeyRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID, UStVEr_ID}),spUStVErstattungLesenParameterPKeyRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spUStVErstattungLesenParameterPKeyDataTable = CType(MyBase.Clone,spUStVErstattungLesenParameterPKeyDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spUStVErstattungLesenParameterPKeyDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVEr_ID = MyBase.Columns("UStVEr_ID") Me.columnUStVEr_USteuerbetrag = MyBase.Columns("UStVEr_USteuerbetrag") Me.columnBelegdatum = MyBase.Columns("Belegdatum") Me.columnBelegnummer = MyBase.Columns("Belegnummer") Me.columnGutschriftsDatum = MyBase.Columns("GutschriftsDatum") Me.columnGutschriftsNr = MyBase.Columns("GutschriftsNr") Me.columnBerufungsdatum = MyBase.Columns("Berufungsdatum") Me.columnBerufungshöhe = MyBase.Columns("Berufungshöhe") Me.columnBerufungsgrund = MyBase.Columns("Berufungsgrund") Me.columnBemerkung = MyBase.Columns("Bemerkung") Me.columnUStVEr_Umrechnungskurs = MyBase.Columns("UStVEr_Umrechnungskurs") Me.columnUStVEr_USteuerbetragEUR = MyBase.Columns("UStVEr_USteuerbetragEUR") Me.columnUStVEr_Sachbearbeiter = MyBase.Columns("UStVEr_Sachbearbeiter") Me.columnUStVEr_Zeitstempel = MyBase.Columns("UStVEr_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVEr_ID = New Global.System.Data.DataColumn("UStVEr_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_ID) Me.columnUStVEr_USteuerbetrag = New Global.System.Data.DataColumn("UStVEr_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_USteuerbetrag) Me.columnBelegdatum = New Global.System.Data.DataColumn("Belegdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegdatum) Me.columnBelegnummer = New Global.System.Data.DataColumn("Belegnummer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBelegnummer) Me.columnGutschriftsDatum = New Global.System.Data.DataColumn("GutschriftsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGutschriftsDatum) Me.columnGutschriftsNr = New Global.System.Data.DataColumn("GutschriftsNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGutschriftsNr) Me.columnBerufungsdatum = New Global.System.Data.DataColumn("Berufungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungsdatum) Me.columnBerufungshöhe = New Global.System.Data.DataColumn("Berufungshöhe", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungshöhe) Me.columnBerufungsgrund = New Global.System.Data.DataColumn("Berufungsgrund", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBerufungsgrund) Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBemerkung) Me.columnUStVEr_Umrechnungskurs = New Global.System.Data.DataColumn("UStVEr_Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Umrechnungskurs) Me.columnUStVEr_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVEr_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_USteuerbetragEUR) Me.columnUStVEr_Sachbearbeiter = New Global.System.Data.DataColumn("UStVEr_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Sachbearbeiter) Me.columnUStVEr_Zeitstempel = New Global.System.Data.DataColumn("UStVEr_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVEr_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID, Me.columnUStVEr_ID}, true)) Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVEr_ID.AllowDBNull = false Me.columnUStVEr_USteuerbetrag.AllowDBNull = false Me.columnBelegnummer.MaxLength = 15 Me.columnBerufungsgrund.MaxLength = 255 Me.columnBemerkung.MaxLength = 255 Me.columnUStVEr_Sachbearbeiter.MaxLength = 15 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspUStVErstattungLesenParameterPKeyRow() As spUStVErstattungLesenParameterPKeyRow Return CType(Me.NewRow,spUStVErstattungLesenParameterPKeyRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spUStVErstattungLesenParameterPKeyRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spUStVErstattungLesenParameterPKeyRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spUStVErstattungLesenParameterPKeyRowChangedEvent) Is Nothing) Then RaiseEvent spUStVErstattungLesenParameterPKeyRowChanged(Me, New spUStVErstattungLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVErstattungLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spUStVErstattungLesenParameterPKeyRowChangingEvent) Is Nothing) Then RaiseEvent spUStVErstattungLesenParameterPKeyRowChanging(Me, New spUStVErstattungLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVErstattungLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spUStVErstattungLesenParameterPKeyRowDeletedEvent) Is Nothing) Then RaiseEvent spUStVErstattungLesenParameterPKeyRowDeleted(Me, New spUStVErstattungLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVErstattungLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spUStVErstattungLesenParameterPKeyRowDeletingEvent) Is Nothing) Then RaiseEvent spUStVErstattungLesenParameterPKeyRowDeleting(Me, New spUStVErstattungLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVErstattungLesenParameterPKeyRow), e.Action)) End If End Sub _ Public Sub RemovespUStVErstattungLesenParameterPKeyRow(ByVal row As spUStVErstattungLesenParameterPKeyRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spUStVErstattungLesenParameterPKeyDataTable" 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 spUStVPositionenLesenParameterPKeyDataTable Inherits Global.System.Data.TypedTableBase(Of spUStVPositionenLesenParameterPKeyRow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVPo_ID As Global.System.Data.DataColumn Private columnUStVPo_ReDat As Global.System.Data.DataColumn Private columnUStVPo_ReNr As Global.System.Data.DataColumn Private columnUStVPo_USteuerbetrag As Global.System.Data.DataColumn Private columnUStVPo_Leistungsbezeichnung As Global.System.Data.DataColumn Private columnUStVPo_Leistender As Global.System.Data.DataColumn Private columnUStVPo_Schnittstelle As Global.System.Data.DataColumn Private columnUStVPo_SchnittstellenNr As Global.System.Data.DataColumn Private columnUStVPo_Umrechnungskurs As Global.System.Data.DataColumn Private columnUStVPo_USteuerbetragEUR As Global.System.Data.DataColumn Private columnUStVPo_Sachbearbeiter As Global.System.Data.DataColumn Private columnUStVPo_Zeitstempel As Global.System.Data.DataColumn Private columnupsize_ts As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spUStVPositionenLesenParameterPKey" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVPo_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ID End Get End Property _ Public ReadOnly Property UStVPo_ReDatColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ReDat End Get End Property _ Public ReadOnly Property UStVPo_ReNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_ReNr End Get End Property _ Public ReadOnly Property UStVPo_USteuerbetragColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_USteuerbetrag End Get End Property _ Public ReadOnly Property UStVPo_LeistungsbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Leistungsbezeichnung End Get End Property _ Public ReadOnly Property UStVPo_LeistenderColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Leistender End Get End Property _ Public ReadOnly Property UStVPo_SchnittstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Schnittstelle End Get End Property _ Public ReadOnly Property UStVPo_SchnittstellenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_SchnittstellenNr End Get End Property _ Public ReadOnly Property UStVPo_UmrechnungskursColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Umrechnungskurs End Get End Property _ Public ReadOnly Property UStVPo_USteuerbetragEURColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_USteuerbetragEUR End Get End Property _ Public ReadOnly Property UStVPo_SachbearbeiterColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Sachbearbeiter End Get End Property _ Public ReadOnly Property UStVPo_ZeitstempelColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_Zeitstempel End Get End Property _ Public ReadOnly Property upsize_tsColumn() As Global.System.Data.DataColumn Get Return Me.columnupsize_ts 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 spUStVPositionenLesenParameterPKeyRow Get Return CType(Me.Rows(index),spUStVPositionenLesenParameterPKeyRow) End Get End Property _ Public Event spUStVPositionenLesenParameterPKeyRowChanging As spUStVPositionenLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVPositionenLesenParameterPKeyRowChanged As spUStVPositionenLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVPositionenLesenParameterPKeyRowDeleting As spUStVPositionenLesenParameterPKeyRowChangeEventHandler _ Public Event spUStVPositionenLesenParameterPKeyRowDeleted As spUStVPositionenLesenParameterPKeyRowChangeEventHandler _ Public Overloads Sub AddspUStVPositionenLesenParameterPKeyRow(ByVal row As spUStVPositionenLesenParameterPKeyRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspUStVPositionenLesenParameterPKeyRow(ByVal UStVAn_ID As Integer, ByVal UStVPo_ID As Short, ByVal UStVPo_ReDat As Date, ByVal UStVPo_ReNr As String, ByVal UStVPo_USteuerbetrag As Decimal, ByVal UStVPo_Leistungsbezeichnung As String, ByVal UStVPo_Leistender As String, ByVal UStVPo_Schnittstelle As Boolean, ByVal UStVPo_SchnittstellenNr As Short, ByVal UStVPo_Umrechnungskurs As Double, ByVal UStVPo_USteuerbetragEUR As Decimal, ByVal UStVPo_Sachbearbeiter As String, ByVal UStVPo_Zeitstempel As Date, ByVal upsize_ts() As Byte) As spUStVPositionenLesenParameterPKeyRow Dim rowspUStVPositionenLesenParameterPKeyRow As spUStVPositionenLesenParameterPKeyRow = CType(Me.NewRow,spUStVPositionenLesenParameterPKeyRow) Dim columnValuesArray() As Object = New Object() {UStVAn_ID, UStVPo_ID, UStVPo_ReDat, UStVPo_ReNr, UStVPo_USteuerbetrag, UStVPo_Leistungsbezeichnung, UStVPo_Leistender, UStVPo_Schnittstelle, UStVPo_SchnittstellenNr, UStVPo_Umrechnungskurs, UStVPo_USteuerbetragEUR, UStVPo_Sachbearbeiter, UStVPo_Zeitstempel, upsize_ts} rowspUStVPositionenLesenParameterPKeyRow.ItemArray = columnValuesArray Me.Rows.Add(rowspUStVPositionenLesenParameterPKeyRow) Return rowspUStVPositionenLesenParameterPKeyRow End Function _ Public Function FindByUStVAn_IDUStVPo_ID(ByVal UStVAn_ID As Integer, ByVal UStVPo_ID As Short) As spUStVPositionenLesenParameterPKeyRow Return CType(Me.Rows.Find(New Object() {UStVAn_ID, UStVPo_ID}),spUStVPositionenLesenParameterPKeyRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spUStVPositionenLesenParameterPKeyDataTable = CType(MyBase.Clone,spUStVPositionenLesenParameterPKeyDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spUStVPositionenLesenParameterPKeyDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVPo_ID = MyBase.Columns("UStVPo_ID") Me.columnUStVPo_ReDat = MyBase.Columns("UStVPo_ReDat") Me.columnUStVPo_ReNr = MyBase.Columns("UStVPo_ReNr") Me.columnUStVPo_USteuerbetrag = MyBase.Columns("UStVPo_USteuerbetrag") Me.columnUStVPo_Leistungsbezeichnung = MyBase.Columns("UStVPo_Leistungsbezeichnung") Me.columnUStVPo_Leistender = MyBase.Columns("UStVPo_Leistender") Me.columnUStVPo_Schnittstelle = MyBase.Columns("UStVPo_Schnittstelle") Me.columnUStVPo_SchnittstellenNr = MyBase.Columns("UStVPo_SchnittstellenNr") Me.columnUStVPo_Umrechnungskurs = MyBase.Columns("UStVPo_Umrechnungskurs") Me.columnUStVPo_USteuerbetragEUR = MyBase.Columns("UStVPo_USteuerbetragEUR") Me.columnUStVPo_Sachbearbeiter = MyBase.Columns("UStVPo_Sachbearbeiter") Me.columnUStVPo_Zeitstempel = MyBase.Columns("UStVPo_Zeitstempel") Me.columnupsize_ts = MyBase.Columns("upsize_ts") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVPo_ID = New Global.System.Data.DataColumn("UStVPo_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ID) Me.columnUStVPo_ReDat = New Global.System.Data.DataColumn("UStVPo_ReDat", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ReDat) Me.columnUStVPo_ReNr = New Global.System.Data.DataColumn("UStVPo_ReNr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ReNr) Me.columnUStVPo_USteuerbetrag = New Global.System.Data.DataColumn("UStVPo_USteuerbetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_USteuerbetrag) Me.columnUStVPo_Leistungsbezeichnung = New Global.System.Data.DataColumn("UStVPo_Leistungsbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Leistungsbezeichnung) Me.columnUStVPo_Leistender = New Global.System.Data.DataColumn("UStVPo_Leistender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Leistender) Me.columnUStVPo_Schnittstelle = New Global.System.Data.DataColumn("UStVPo_Schnittstelle", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Schnittstelle) Me.columnUStVPo_SchnittstellenNr = New Global.System.Data.DataColumn("UStVPo_SchnittstellenNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_SchnittstellenNr) Me.columnUStVPo_Umrechnungskurs = New Global.System.Data.DataColumn("UStVPo_Umrechnungskurs", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Umrechnungskurs) Me.columnUStVPo_USteuerbetragEUR = New Global.System.Data.DataColumn("UStVPo_USteuerbetragEUR", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_USteuerbetragEUR) Me.columnUStVPo_Sachbearbeiter = New Global.System.Data.DataColumn("UStVPo_Sachbearbeiter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Sachbearbeiter) Me.columnUStVPo_Zeitstempel = New Global.System.Data.DataColumn("UStVPo_Zeitstempel", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_Zeitstempel) Me.columnupsize_ts = New Global.System.Data.DataColumn("upsize_ts", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnupsize_ts) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID, Me.columnUStVPo_ID}, true)) Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVPo_ID.AllowDBNull = false Me.columnUStVPo_ReNr.MaxLength = 40 Me.columnUStVPo_USteuerbetrag.AllowDBNull = false Me.columnUStVPo_Leistungsbezeichnung.MaxLength = 255 Me.columnUStVPo_Leistender.MaxLength = 65 Me.columnUStVPo_Schnittstelle.AllowDBNull = false Me.columnUStVPo_SchnittstellenNr.AllowDBNull = false Me.columnUStVPo_Sachbearbeiter.MaxLength = 15 Me.columnupsize_ts.ReadOnly = true End Sub _ Public Function NewspUStVPositionenLesenParameterPKeyRow() As spUStVPositionenLesenParameterPKeyRow Return CType(Me.NewRow,spUStVPositionenLesenParameterPKeyRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spUStVPositionenLesenParameterPKeyRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spUStVPositionenLesenParameterPKeyRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spUStVPositionenLesenParameterPKeyRowChangedEvent) Is Nothing) Then RaiseEvent spUStVPositionenLesenParameterPKeyRowChanged(Me, New spUStVPositionenLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVPositionenLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spUStVPositionenLesenParameterPKeyRowChangingEvent) Is Nothing) Then RaiseEvent spUStVPositionenLesenParameterPKeyRowChanging(Me, New spUStVPositionenLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVPositionenLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spUStVPositionenLesenParameterPKeyRowDeletedEvent) Is Nothing) Then RaiseEvent spUStVPositionenLesenParameterPKeyRowDeleted(Me, New spUStVPositionenLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVPositionenLesenParameterPKeyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spUStVPositionenLesenParameterPKeyRowDeletingEvent) Is Nothing) Then RaiseEvent spUStVPositionenLesenParameterPKeyRowDeleting(Me, New spUStVPositionenLesenParameterPKeyRowChangeEvent(CType(e.Row,spUStVPositionenLesenParameterPKeyRow), e.Action)) End If End Sub _ Public Sub RemovespUStVPositionenLesenParameterPKeyRow(ByVal row As spUStVPositionenLesenParameterPKeyRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spUStVPositionenLesenParameterPKeyDataTable" 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 spUStVRechnungÜbernehmenMSEDataTable Inherits Global.System.Data.TypedTableBase(Of spUStVRechnungÜbernehmenMSERow) Private columnUStVAn_ID As Global.System.Data.DataColumn Private columnUStVPo_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spUStVRechnungÜbernehmenMSE" 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 UStVAn_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVAn_ID End Get End Property _ Public ReadOnly Property UStVPo_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUStVPo_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 spUStVRechnungÜbernehmenMSERow Get Return CType(Me.Rows(index),spUStVRechnungÜbernehmenMSERow) End Get End Property _ Public Event spUStVRechnungÜbernehmenMSERowChanging As spUStVRechnungÜbernehmenMSERowChangeEventHandler _ Public Event spUStVRechnungÜbernehmenMSERowChanged As spUStVRechnungÜbernehmenMSERowChangeEventHandler _ Public Event spUStVRechnungÜbernehmenMSERowDeleting As spUStVRechnungÜbernehmenMSERowChangeEventHandler _ Public Event spUStVRechnungÜbernehmenMSERowDeleted As spUStVRechnungÜbernehmenMSERowChangeEventHandler _ Public Overloads Sub AddspUStVRechnungÜbernehmenMSERow(ByVal row As spUStVRechnungÜbernehmenMSERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspUStVRechnungÜbernehmenMSERow(ByVal UStVAn_ID As Integer, ByVal UStVPo_ID As Short) As spUStVRechnungÜbernehmenMSERow Dim rowspUStVRechnungÜbernehmenMSERow As spUStVRechnungÜbernehmenMSERow = CType(Me.NewRow,spUStVRechnungÜbernehmenMSERow) Dim columnValuesArray() As Object = New Object() {UStVAn_ID, UStVPo_ID} rowspUStVRechnungÜbernehmenMSERow.ItemArray = columnValuesArray Me.Rows.Add(rowspUStVRechnungÜbernehmenMSERow) Return rowspUStVRechnungÜbernehmenMSERow End Function _ Public Function FindByUStVAn_IDUStVPo_ID(ByVal UStVAn_ID As Integer, ByVal UStVPo_ID As Short) As spUStVRechnungÜbernehmenMSERow Return CType(Me.Rows.Find(New Object() {UStVAn_ID, UStVPo_ID}),spUStVRechnungÜbernehmenMSERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spUStVRechnungÜbernehmenMSEDataTable = CType(MyBase.Clone,spUStVRechnungÜbernehmenMSEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spUStVRechnungÜbernehmenMSEDataTable() End Function _ Friend Sub InitVars() Me.columnUStVAn_ID = MyBase.Columns("UStVAn_ID") Me.columnUStVPo_ID = MyBase.Columns("UStVPo_ID") End Sub _ Private Sub InitClass() Me.columnUStVAn_ID = New Global.System.Data.DataColumn("UStVAn_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVAn_ID) Me.columnUStVPo_ID = New Global.System.Data.DataColumn("UStVPo_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUStVPo_ID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUStVAn_ID, Me.columnUStVPo_ID}, true)) Me.columnUStVAn_ID.AllowDBNull = false Me.columnUStVPo_ID.AllowDBNull = false End Sub _ Public Function NewspUStVRechnungÜbernehmenMSERow() As spUStVRechnungÜbernehmenMSERow Return CType(Me.NewRow,spUStVRechnungÜbernehmenMSERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spUStVRechnungÜbernehmenMSERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spUStVRechnungÜbernehmenMSERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spUStVRechnungÜbernehmenMSERowChangedEvent) Is Nothing) Then RaiseEvent spUStVRechnungÜbernehmenMSERowChanged(Me, New spUStVRechnungÜbernehmenMSERowChangeEvent(CType(e.Row,spUStVRechnungÜbernehmenMSERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spUStVRechnungÜbernehmenMSERowChangingEvent) Is Nothing) Then RaiseEvent spUStVRechnungÜbernehmenMSERowChanging(Me, New spUStVRechnungÜbernehmenMSERowChangeEvent(CType(e.Row,spUStVRechnungÜbernehmenMSERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spUStVRechnungÜbernehmenMSERowDeletedEvent) Is Nothing) Then RaiseEvent spUStVRechnungÜbernehmenMSERowDeleted(Me, New spUStVRechnungÜbernehmenMSERowChangeEvent(CType(e.Row,spUStVRechnungÜbernehmenMSERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spUStVRechnungÜbernehmenMSERowDeletingEvent) Is Nothing) Then RaiseEvent spUStVRechnungÜbernehmenMSERowDeleting(Me, New spUStVRechnungÜbernehmenMSERowChangeEvent(CType(e.Row,spUStVRechnungÜbernehmenMSERow), e.Action)) End If End Sub _ Public Sub RemovespUStVRechnungÜbernehmenMSERow(ByVal row As spUStVRechnungÜbernehmenMSERow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spUStVRechnungÜbernehmenMSEDataTable" 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 spUStVVorschau_IDS_SummeDataTable Inherits Global.System.Data.TypedTableBase(Of spUStVVorschau_IDS_SummeRow) Private columnAdressenNr As Global.System.Data.DataColumn Private columnLandNr As Global.System.Data.DataColumn Private columnVorschaubetrag As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spUStVVorschau_IDS_Summe" 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 AdressenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAdressenNr End Get End Property _ Public ReadOnly Property LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLandNr End Get End Property _ Public ReadOnly Property VorschaubetragColumn() As Global.System.Data.DataColumn Get Return Me.columnVorschaubetrag 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 spUStVVorschau_IDS_SummeRow Get Return CType(Me.Rows(index),spUStVVorschau_IDS_SummeRow) End Get End Property _ Public Event spUStVVorschau_IDS_SummeRowChanging As spUStVVorschau_IDS_SummeRowChangeEventHandler _ Public Event spUStVVorschau_IDS_SummeRowChanged As spUStVVorschau_IDS_SummeRowChangeEventHandler _ Public Event spUStVVorschau_IDS_SummeRowDeleting As spUStVVorschau_IDS_SummeRowChangeEventHandler _ Public Event spUStVVorschau_IDS_SummeRowDeleted As spUStVVorschau_IDS_SummeRowChangeEventHandler _ Public Overloads Sub AddspUStVVorschau_IDS_SummeRow(ByVal row As spUStVVorschau_IDS_SummeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspUStVVorschau_IDS_SummeRow(ByVal AdressenNr As Integer, ByVal LandNr As Short, ByVal Vorschaubetrag As Decimal) As spUStVVorschau_IDS_SummeRow Dim rowspUStVVorschau_IDS_SummeRow As spUStVVorschau_IDS_SummeRow = CType(Me.NewRow,spUStVVorschau_IDS_SummeRow) Dim columnValuesArray() As Object = New Object() {AdressenNr, LandNr, Vorschaubetrag} rowspUStVVorschau_IDS_SummeRow.ItemArray = columnValuesArray Me.Rows.Add(rowspUStVVorschau_IDS_SummeRow) Return rowspUStVVorschau_IDS_SummeRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spUStVVorschau_IDS_SummeDataTable = CType(MyBase.Clone,spUStVVorschau_IDS_SummeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spUStVVorschau_IDS_SummeDataTable() End Function _ Friend Sub InitVars() Me.columnAdressenNr = MyBase.Columns("AdressenNr") Me.columnLandNr = MyBase.Columns("LandNr") Me.columnVorschaubetrag = MyBase.Columns("Vorschaubetrag") End Sub _ Private Sub InitClass() Me.columnAdressenNr = New Global.System.Data.DataColumn("AdressenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAdressenNr) Me.columnLandNr = New Global.System.Data.DataColumn("LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandNr) Me.columnVorschaubetrag = New Global.System.Data.DataColumn("Vorschaubetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorschaubetrag) Me.columnLandNr.AllowDBNull = false Me.columnVorschaubetrag.ReadOnly = true End Sub _ Public Function NewspUStVVorschau_IDS_SummeRow() As spUStVVorschau_IDS_SummeRow Return CType(Me.NewRow,spUStVVorschau_IDS_SummeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spUStVVorschau_IDS_SummeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spUStVVorschau_IDS_SummeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spUStVVorschau_IDS_SummeRowChangedEvent) Is Nothing) Then RaiseEvent spUStVVorschau_IDS_SummeRowChanged(Me, New spUStVVorschau_IDS_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_IDS_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spUStVVorschau_IDS_SummeRowChangingEvent) Is Nothing) Then RaiseEvent spUStVVorschau_IDS_SummeRowChanging(Me, New spUStVVorschau_IDS_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_IDS_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spUStVVorschau_IDS_SummeRowDeletedEvent) Is Nothing) Then RaiseEvent spUStVVorschau_IDS_SummeRowDeleted(Me, New spUStVVorschau_IDS_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_IDS_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spUStVVorschau_IDS_SummeRowDeletingEvent) Is Nothing) Then RaiseEvent spUStVVorschau_IDS_SummeRowDeleting(Me, New spUStVVorschau_IDS_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_IDS_SummeRow), e.Action)) End If End Sub _ Public Sub RemovespUStVVorschau_IDS_SummeRow(ByVal row As spUStVVorschau_IDS_SummeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spUStVVorschau_IDS_SummeDataTable" 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 spUStVVorschau_IT_SummeDataTable Inherits Global.System.Data.TypedTableBase(Of spUStVVorschau_IT_SummeRow) Private columnAdressenNr As Global.System.Data.DataColumn Private columnLandNr As Global.System.Data.DataColumn Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnRechnungsnummer As Global.System.Data.DataColumn Private columnVorschaubetrag As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spUStVVorschau_IT_Summe" 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 AdressenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAdressenNr End Get End Property _ Public ReadOnly Property LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLandNr End Get End Property _ Public ReadOnly Property RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property RechnungsnummerColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsnummer End Get End Property _ Public ReadOnly Property VorschaubetragColumn() As Global.System.Data.DataColumn Get Return Me.columnVorschaubetrag 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 spUStVVorschau_IT_SummeRow Get Return CType(Me.Rows(index),spUStVVorschau_IT_SummeRow) End Get End Property _ Public Event spUStVVorschau_IT_SummeRowChanging As spUStVVorschau_IT_SummeRowChangeEventHandler _ Public Event spUStVVorschau_IT_SummeRowChanged As spUStVVorschau_IT_SummeRowChangeEventHandler _ Public Event spUStVVorschau_IT_SummeRowDeleting As spUStVVorschau_IT_SummeRowChangeEventHandler _ Public Event spUStVVorschau_IT_SummeRowDeleted As spUStVVorschau_IT_SummeRowChangeEventHandler _ Public Overloads Sub AddspUStVVorschau_IT_SummeRow(ByVal row As spUStVVorschau_IT_SummeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspUStVVorschau_IT_SummeRow(ByVal AdressenNr As Integer, ByVal LandNr As Short, ByVal Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Vorschaubetrag As Decimal) As spUStVVorschau_IT_SummeRow Dim rowspUStVVorschau_IT_SummeRow As spUStVVorschau_IT_SummeRow = CType(Me.NewRow,spUStVVorschau_IT_SummeRow) Dim columnValuesArray() As Object = New Object() {AdressenNr, LandNr, Rechnungsdatum, Rechnungsnummer, Vorschaubetrag} rowspUStVVorschau_IT_SummeRow.ItemArray = columnValuesArray Me.Rows.Add(rowspUStVVorschau_IT_SummeRow) Return rowspUStVVorschau_IT_SummeRow End Function _ Public Function FindByAdressenNrLandNr(ByVal AdressenNr As Integer, ByVal LandNr As Short) As spUStVVorschau_IT_SummeRow Return CType(Me.Rows.Find(New Object() {AdressenNr, LandNr}),spUStVVorschau_IT_SummeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spUStVVorschau_IT_SummeDataTable = CType(MyBase.Clone,spUStVVorschau_IT_SummeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spUStVVorschau_IT_SummeDataTable() End Function _ Friend Sub InitVars() Me.columnAdressenNr = MyBase.Columns("AdressenNr") Me.columnLandNr = MyBase.Columns("LandNr") Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnRechnungsnummer = MyBase.Columns("Rechnungsnummer") Me.columnVorschaubetrag = MyBase.Columns("Vorschaubetrag") End Sub _ Private Sub InitClass() Me.columnAdressenNr = New Global.System.Data.DataColumn("AdressenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAdressenNr) Me.columnLandNr = New Global.System.Data.DataColumn("LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandNr) Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnRechnungsnummer = New Global.System.Data.DataColumn("Rechnungsnummer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsnummer) Me.columnVorschaubetrag = New Global.System.Data.DataColumn("Vorschaubetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorschaubetrag) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdressenNr, Me.columnLandNr}, true)) Me.columnAdressenNr.AllowDBNull = false Me.columnLandNr.AllowDBNull = false Me.columnVorschaubetrag.ReadOnly = true End Sub _ Public Function NewspUStVVorschau_IT_SummeRow() As spUStVVorschau_IT_SummeRow Return CType(Me.NewRow,spUStVVorschau_IT_SummeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spUStVVorschau_IT_SummeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spUStVVorschau_IT_SummeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spUStVVorschau_IT_SummeRowChangedEvent) Is Nothing) Then RaiseEvent spUStVVorschau_IT_SummeRowChanged(Me, New spUStVVorschau_IT_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_IT_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spUStVVorschau_IT_SummeRowChangingEvent) Is Nothing) Then RaiseEvent spUStVVorschau_IT_SummeRowChanging(Me, New spUStVVorschau_IT_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_IT_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spUStVVorschau_IT_SummeRowDeletedEvent) Is Nothing) Then RaiseEvent spUStVVorschau_IT_SummeRowDeleted(Me, New spUStVVorschau_IT_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_IT_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spUStVVorschau_IT_SummeRowDeletingEvent) Is Nothing) Then RaiseEvent spUStVVorschau_IT_SummeRowDeleting(Me, New spUStVVorschau_IT_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_IT_SummeRow), e.Action)) End If End Sub _ Public Sub RemovespUStVVorschau_IT_SummeRow(ByVal row As spUStVVorschau_IT_SummeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spUStVVorschau_IT_SummeDataTable" 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 spUStVVorschau_MSE_SummeDataTable Inherits Global.System.Data.TypedTableBase(Of spUStVVorschau_MSE_SummeRow) Private columnAdressenNr As Global.System.Data.DataColumn Private columnLandNr As Global.System.Data.DataColumn Private columnRechnungsdatum As Global.System.Data.DataColumn Private columnVorschaubetrag As Global.System.Data.DataColumn Private columnWährungscode As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spUStVVorschau_MSE_Summe" 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 AdressenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAdressenNr End Get End Property _ Public ReadOnly Property LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLandNr End Get End Property _ Public ReadOnly Property RechnungsdatumColumn() As Global.System.Data.DataColumn Get Return Me.columnRechnungsdatum End Get End Property _ Public ReadOnly Property VorschaubetragColumn() As Global.System.Data.DataColumn Get Return Me.columnVorschaubetrag End Get End Property _ Public ReadOnly Property WährungscodeColumn() As Global.System.Data.DataColumn Get Return Me.columnWährungscode 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 spUStVVorschau_MSE_SummeRow Get Return CType(Me.Rows(index),spUStVVorschau_MSE_SummeRow) End Get End Property _ Public Event spUStVVorschau_MSE_SummeRowChanging As spUStVVorschau_MSE_SummeRowChangeEventHandler _ Public Event spUStVVorschau_MSE_SummeRowChanged As spUStVVorschau_MSE_SummeRowChangeEventHandler _ Public Event spUStVVorschau_MSE_SummeRowDeleting As spUStVVorschau_MSE_SummeRowChangeEventHandler _ Public Event spUStVVorschau_MSE_SummeRowDeleted As spUStVVorschau_MSE_SummeRowChangeEventHandler _ Public Overloads Sub AddspUStVVorschau_MSE_SummeRow(ByVal row As spUStVVorschau_MSE_SummeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspUStVVorschau_MSE_SummeRow(ByVal AdressenNr As Integer, ByVal LandNr As Short, ByVal Rechnungsdatum As Date, ByVal Vorschaubetrag As Decimal, ByVal Währungscode As String) As spUStVVorschau_MSE_SummeRow Dim rowspUStVVorschau_MSE_SummeRow As spUStVVorschau_MSE_SummeRow = CType(Me.NewRow,spUStVVorschau_MSE_SummeRow) Dim columnValuesArray() As Object = New Object() {AdressenNr, LandNr, Rechnungsdatum, Vorschaubetrag, Währungscode} rowspUStVVorschau_MSE_SummeRow.ItemArray = columnValuesArray Me.Rows.Add(rowspUStVVorschau_MSE_SummeRow) Return rowspUStVVorschau_MSE_SummeRow End Function _ Public Function FindByAdressenNrLandNr(ByVal AdressenNr As Integer, ByVal LandNr As Short) As spUStVVorschau_MSE_SummeRow Return CType(Me.Rows.Find(New Object() {AdressenNr, LandNr}),spUStVVorschau_MSE_SummeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spUStVVorschau_MSE_SummeDataTable = CType(MyBase.Clone,spUStVVorschau_MSE_SummeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spUStVVorschau_MSE_SummeDataTable() End Function _ Friend Sub InitVars() Me.columnAdressenNr = MyBase.Columns("AdressenNr") Me.columnLandNr = MyBase.Columns("LandNr") Me.columnRechnungsdatum = MyBase.Columns("Rechnungsdatum") Me.columnVorschaubetrag = MyBase.Columns("Vorschaubetrag") Me.columnWährungscode = MyBase.Columns("Währungscode") End Sub _ Private Sub InitClass() Me.columnAdressenNr = New Global.System.Data.DataColumn("AdressenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAdressenNr) Me.columnLandNr = New Global.System.Data.DataColumn("LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandNr) Me.columnRechnungsdatum = New Global.System.Data.DataColumn("Rechnungsdatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRechnungsdatum) Me.columnVorschaubetrag = New Global.System.Data.DataColumn("Vorschaubetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorschaubetrag) Me.columnWährungscode = New Global.System.Data.DataColumn("Währungscode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWährungscode) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdressenNr, Me.columnLandNr}, true)) Me.columnAdressenNr.AllowDBNull = false Me.columnLandNr.AllowDBNull = false Me.columnVorschaubetrag.ReadOnly = true Me.columnWährungscode.MaxLength = 3 End Sub _ Public Function NewspUStVVorschau_MSE_SummeRow() As spUStVVorschau_MSE_SummeRow Return CType(Me.NewRow,spUStVVorschau_MSE_SummeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spUStVVorschau_MSE_SummeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spUStVVorschau_MSE_SummeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spUStVVorschau_MSE_SummeRowChangedEvent) Is Nothing) Then RaiseEvent spUStVVorschau_MSE_SummeRowChanged(Me, New spUStVVorschau_MSE_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_MSE_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spUStVVorschau_MSE_SummeRowChangingEvent) Is Nothing) Then RaiseEvent spUStVVorschau_MSE_SummeRowChanging(Me, New spUStVVorschau_MSE_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_MSE_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spUStVVorschau_MSE_SummeRowDeletedEvent) Is Nothing) Then RaiseEvent spUStVVorschau_MSE_SummeRowDeleted(Me, New spUStVVorschau_MSE_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_MSE_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spUStVVorschau_MSE_SummeRowDeletingEvent) Is Nothing) Then RaiseEvent spUStVVorschau_MSE_SummeRowDeleting(Me, New spUStVVorschau_MSE_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_MSE_SummeRow), e.Action)) End If End Sub _ Public Sub RemovespUStVVorschau_MSE_SummeRow(ByVal row As spUStVVorschau_MSE_SummeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spUStVVorschau_MSE_SummeDataTable" 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 spUStVVorschau_UTA_SummeDataTable Inherits Global.System.Data.TypedTableBase(Of spUStVVorschau_UTA_SummeRow) Private columnAdressenNr As Global.System.Data.DataColumn Private columnLandNr As Global.System.Data.DataColumn Private columnVorschaubetrag As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spUStVVorschau_UTA_Summe" 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 AdressenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAdressenNr End Get End Property _ Public ReadOnly Property LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLandNr End Get End Property _ Public ReadOnly Property VorschaubetragColumn() As Global.System.Data.DataColumn Get Return Me.columnVorschaubetrag 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 spUStVVorschau_UTA_SummeRow Get Return CType(Me.Rows(index),spUStVVorschau_UTA_SummeRow) End Get End Property _ Public Event spUStVVorschau_UTA_SummeRowChanging As spUStVVorschau_UTA_SummeRowChangeEventHandler _ Public Event spUStVVorschau_UTA_SummeRowChanged As spUStVVorschau_UTA_SummeRowChangeEventHandler _ Public Event spUStVVorschau_UTA_SummeRowDeleting As spUStVVorschau_UTA_SummeRowChangeEventHandler _ Public Event spUStVVorschau_UTA_SummeRowDeleted As spUStVVorschau_UTA_SummeRowChangeEventHandler _ Public Overloads Sub AddspUStVVorschau_UTA_SummeRow(ByVal row As spUStVVorschau_UTA_SummeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspUStVVorschau_UTA_SummeRow(ByVal AdressenNr As Integer, ByVal LandNr As Short, ByVal Vorschaubetrag As Decimal) As spUStVVorschau_UTA_SummeRow Dim rowspUStVVorschau_UTA_SummeRow As spUStVVorschau_UTA_SummeRow = CType(Me.NewRow,spUStVVorschau_UTA_SummeRow) Dim columnValuesArray() As Object = New Object() {AdressenNr, LandNr, Vorschaubetrag} rowspUStVVorschau_UTA_SummeRow.ItemArray = columnValuesArray Me.Rows.Add(rowspUStVVorschau_UTA_SummeRow) Return rowspUStVVorschau_UTA_SummeRow End Function _ Public Function FindByAdressenNrLandNr(ByVal AdressenNr As Integer, ByVal LandNr As Short) As spUStVVorschau_UTA_SummeRow Return CType(Me.Rows.Find(New Object() {AdressenNr, LandNr}),spUStVVorschau_UTA_SummeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spUStVVorschau_UTA_SummeDataTable = CType(MyBase.Clone,spUStVVorschau_UTA_SummeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spUStVVorschau_UTA_SummeDataTable() End Function _ Friend Sub InitVars() Me.columnAdressenNr = MyBase.Columns("AdressenNr") Me.columnLandNr = MyBase.Columns("LandNr") Me.columnVorschaubetrag = MyBase.Columns("Vorschaubetrag") End Sub _ Private Sub InitClass() Me.columnAdressenNr = New Global.System.Data.DataColumn("AdressenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAdressenNr) Me.columnLandNr = New Global.System.Data.DataColumn("LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandNr) Me.columnVorschaubetrag = New Global.System.Data.DataColumn("Vorschaubetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorschaubetrag) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdressenNr, Me.columnLandNr}, true)) Me.columnAdressenNr.AllowDBNull = false Me.columnLandNr.AllowDBNull = false Me.columnVorschaubetrag.ReadOnly = true End Sub _ Public Function NewspUStVVorschau_UTA_SummeRow() As spUStVVorschau_UTA_SummeRow Return CType(Me.NewRow,spUStVVorschau_UTA_SummeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spUStVVorschau_UTA_SummeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spUStVVorschau_UTA_SummeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spUStVVorschau_UTA_SummeRowChangedEvent) Is Nothing) Then RaiseEvent spUStVVorschau_UTA_SummeRowChanged(Me, New spUStVVorschau_UTA_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_UTA_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spUStVVorschau_UTA_SummeRowChangingEvent) Is Nothing) Then RaiseEvent spUStVVorschau_UTA_SummeRowChanging(Me, New spUStVVorschau_UTA_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_UTA_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spUStVVorschau_UTA_SummeRowDeletedEvent) Is Nothing) Then RaiseEvent spUStVVorschau_UTA_SummeRowDeleted(Me, New spUStVVorschau_UTA_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_UTA_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spUStVVorschau_UTA_SummeRowDeletingEvent) Is Nothing) Then RaiseEvent spUStVVorschau_UTA_SummeRowDeleting(Me, New spUStVVorschau_UTA_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_UTA_SummeRow), e.Action)) End If End Sub _ Public Sub RemovespUStVVorschau_UTA_SummeRow(ByVal row As spUStVVorschau_UTA_SummeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spUStVVorschau_UTA_SummeDataTable" 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 spUStVVorschau_VERAG_SummeDataTable Inherits Global.System.Data.TypedTableBase(Of spUStVVorschau_VERAG_SummeRow) Private columnAdressenNr As Global.System.Data.DataColumn Private columnLandNr As Global.System.Data.DataColumn Private columnVorschaubetrag As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spUStVVorschau_VERAG_Summe" 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 AdressenNrColumn() As Global.System.Data.DataColumn Get Return Me.columnAdressenNr End Get End Property _ Public ReadOnly Property LandNrColumn() As Global.System.Data.DataColumn Get Return Me.columnLandNr End Get End Property _ Public ReadOnly Property VorschaubetragColumn() As Global.System.Data.DataColumn Get Return Me.columnVorschaubetrag 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 spUStVVorschau_VERAG_SummeRow Get Return CType(Me.Rows(index),spUStVVorschau_VERAG_SummeRow) End Get End Property _ Public Event spUStVVorschau_VERAG_SummeRowChanging As spUStVVorschau_VERAG_SummeRowChangeEventHandler _ Public Event spUStVVorschau_VERAG_SummeRowChanged As spUStVVorschau_VERAG_SummeRowChangeEventHandler _ Public Event spUStVVorschau_VERAG_SummeRowDeleting As spUStVVorschau_VERAG_SummeRowChangeEventHandler _ Public Event spUStVVorschau_VERAG_SummeRowDeleted As spUStVVorschau_VERAG_SummeRowChangeEventHandler _ Public Overloads Sub AddspUStVVorschau_VERAG_SummeRow(ByVal row As spUStVVorschau_VERAG_SummeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspUStVVorschau_VERAG_SummeRow(ByVal AdressenNr As Integer, ByVal LandNr As Short, ByVal Vorschaubetrag As Decimal) As spUStVVorschau_VERAG_SummeRow Dim rowspUStVVorschau_VERAG_SummeRow As spUStVVorschau_VERAG_SummeRow = CType(Me.NewRow,spUStVVorschau_VERAG_SummeRow) Dim columnValuesArray() As Object = New Object() {AdressenNr, LandNr, Vorschaubetrag} rowspUStVVorschau_VERAG_SummeRow.ItemArray = columnValuesArray Me.Rows.Add(rowspUStVVorschau_VERAG_SummeRow) Return rowspUStVVorschau_VERAG_SummeRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spUStVVorschau_VERAG_SummeDataTable = CType(MyBase.Clone,spUStVVorschau_VERAG_SummeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spUStVVorschau_VERAG_SummeDataTable() End Function _ Friend Sub InitVars() Me.columnAdressenNr = MyBase.Columns("AdressenNr") Me.columnLandNr = MyBase.Columns("LandNr") Me.columnVorschaubetrag = MyBase.Columns("Vorschaubetrag") End Sub _ Private Sub InitClass() Me.columnAdressenNr = New Global.System.Data.DataColumn("AdressenNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAdressenNr) Me.columnLandNr = New Global.System.Data.DataColumn("LandNr", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLandNr) Me.columnVorschaubetrag = New Global.System.Data.DataColumn("Vorschaubetrag", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorschaubetrag) Me.columnLandNr.AllowDBNull = false Me.columnVorschaubetrag.ReadOnly = true End Sub _ Public Function NewspUStVVorschau_VERAG_SummeRow() As spUStVVorschau_VERAG_SummeRow Return CType(Me.NewRow,spUStVVorschau_VERAG_SummeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spUStVVorschau_VERAG_SummeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spUStVVorschau_VERAG_SummeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spUStVVorschau_VERAG_SummeRowChangedEvent) Is Nothing) Then RaiseEvent spUStVVorschau_VERAG_SummeRowChanged(Me, New spUStVVorschau_VERAG_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_VERAG_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spUStVVorschau_VERAG_SummeRowChangingEvent) Is Nothing) Then RaiseEvent spUStVVorschau_VERAG_SummeRowChanging(Me, New spUStVVorschau_VERAG_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_VERAG_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spUStVVorschau_VERAG_SummeRowDeletedEvent) Is Nothing) Then RaiseEvent spUStVVorschau_VERAG_SummeRowDeleted(Me, New spUStVVorschau_VERAG_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_VERAG_SummeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spUStVVorschau_VERAG_SummeRowDeletingEvent) Is Nothing) Then RaiseEvent spUStVVorschau_VERAG_SummeRowDeleting(Me, New spUStVVorschau_VERAG_SummeRowChangeEvent(CType(e.Row,spUStVVorschau_VERAG_SummeRow), e.Action)) End If End Sub _ Public Sub RemovespUStVVorschau_VERAG_SummeRow(ByVal row As spUStVVorschau_VERAG_SummeRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spUStVVorschau_VERAG_SummeDataTable" 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 spZolaris_EZoll_NCTS_DatenbereitstellungDataTable Inherits Global.System.Data.TypedTableBase(Of spZolaris_EZoll_NCTS_DatenbereitstellungRow) Private columnCRN As Global.System.Data.DataColumn Private columnAnmeldungsDatum As Global.System.Data.DataColumn Private columnGarantieWert As Global.System.Data.DataColumn Private columnAnmID As Global.System.Data.DataColumn Private columnErledigungsTypID As Global.System.Data.DataColumn Private columnWarenbezeichnung As Global.System.Data.DataColumn Private columnAbsender As Global.System.Data.DataColumn Private columnEmpfaenger As Global.System.Data.DataColumn Private columnGesamtrohmasse As Global.System.Data.DataColumn Private columnAbgangszollstelle As Global.System.Data.DataColumn Private columnBestimmungszollstelle As Global.System.Data.DataColumn Private columnLRN As Global.System.Data.DataColumn Private columnDatumBestimmungErreicht As Global.System.Data.DataColumn Private columnGRN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "spZolaris_EZoll_NCTS_Datenbereitstellung" 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 CRNColumn() As Global.System.Data.DataColumn Get Return Me.columnCRN End Get End Property _ Public ReadOnly Property AnmeldungsDatumColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmeldungsDatum End Get End Property _ Public ReadOnly Property GarantieWertColumn() As Global.System.Data.DataColumn Get Return Me.columnGarantieWert End Get End Property _ Public ReadOnly Property AnmIDColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmID End Get End Property _ Public ReadOnly Property ErledigungsTypIDColumn() As Global.System.Data.DataColumn Get Return Me.columnErledigungsTypID End Get End Property _ Public ReadOnly Property WarenbezeichnungColumn() As Global.System.Data.DataColumn Get Return Me.columnWarenbezeichnung End Get End Property _ Public ReadOnly Property AbsenderColumn() As Global.System.Data.DataColumn Get Return Me.columnAbsender End Get End Property _ Public ReadOnly Property EmpfaengerColumn() As Global.System.Data.DataColumn Get Return Me.columnEmpfaenger End Get End Property _ Public ReadOnly Property GesamtrohmasseColumn() As Global.System.Data.DataColumn Get Return Me.columnGesamtrohmasse End Get End Property _ Public ReadOnly Property AbgangszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnAbgangszollstelle End Get End Property _ Public ReadOnly Property BestimmungszollstelleColumn() As Global.System.Data.DataColumn Get Return Me.columnBestimmungszollstelle End Get End Property _ Public ReadOnly Property LRNColumn() As Global.System.Data.DataColumn Get Return Me.columnLRN End Get End Property _ Public ReadOnly Property DatumBestimmungErreichtColumn() As Global.System.Data.DataColumn Get Return Me.columnDatumBestimmungErreicht End Get End Property _ Public ReadOnly Property GRNColumn() As Global.System.Data.DataColumn Get Return Me.columnGRN 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 spZolaris_EZoll_NCTS_DatenbereitstellungRow Get Return CType(Me.Rows(index),spZolaris_EZoll_NCTS_DatenbereitstellungRow) End Get End Property _ Public Event spZolaris_EZoll_NCTS_DatenbereitstellungRowChanging As spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEventHandler _ Public Event spZolaris_EZoll_NCTS_DatenbereitstellungRowChanged As spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEventHandler _ Public Event spZolaris_EZoll_NCTS_DatenbereitstellungRowDeleting As spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEventHandler _ Public Event spZolaris_EZoll_NCTS_DatenbereitstellungRowDeleted As spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEventHandler _ Public Overloads Sub AddspZolaris_EZoll_NCTS_DatenbereitstellungRow(ByVal row As spZolaris_EZoll_NCTS_DatenbereitstellungRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddspZolaris_EZoll_NCTS_DatenbereitstellungRow(ByVal CRN As String, ByVal AnmeldungsDatum As Date, ByVal GarantieWert As Decimal, ByVal AnmID As Integer, ByVal ErledigungsTypID As String, ByVal Warenbezeichnung As String, ByVal Absender As String, ByVal Empfaenger As String, ByVal Gesamtrohmasse As Double, ByVal Abgangszollstelle As String, ByVal Bestimmungszollstelle As String, ByVal LRN As String, ByVal DatumBestimmungErreicht As Date, ByVal GRN As String) As spZolaris_EZoll_NCTS_DatenbereitstellungRow Dim rowspZolaris_EZoll_NCTS_DatenbereitstellungRow As spZolaris_EZoll_NCTS_DatenbereitstellungRow = CType(Me.NewRow,spZolaris_EZoll_NCTS_DatenbereitstellungRow) Dim columnValuesArray() As Object = New Object() {CRN, AnmeldungsDatum, GarantieWert, AnmID, ErledigungsTypID, Warenbezeichnung, Absender, Empfaenger, Gesamtrohmasse, Abgangszollstelle, Bestimmungszollstelle, LRN, DatumBestimmungErreicht, GRN} rowspZolaris_EZoll_NCTS_DatenbereitstellungRow.ItemArray = columnValuesArray Me.Rows.Add(rowspZolaris_EZoll_NCTS_DatenbereitstellungRow) Return rowspZolaris_EZoll_NCTS_DatenbereitstellungRow End Function _ Public Function FindByCRN(ByVal CRN As String) As spZolaris_EZoll_NCTS_DatenbereitstellungRow Return CType(Me.Rows.Find(New Object() {CRN}),spZolaris_EZoll_NCTS_DatenbereitstellungRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As spZolaris_EZoll_NCTS_DatenbereitstellungDataTable = CType(MyBase.Clone,spZolaris_EZoll_NCTS_DatenbereitstellungDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New spZolaris_EZoll_NCTS_DatenbereitstellungDataTable() End Function _ Friend Sub InitVars() Me.columnCRN = MyBase.Columns("CRN") Me.columnAnmeldungsDatum = MyBase.Columns("AnmeldungsDatum") Me.columnGarantieWert = MyBase.Columns("GarantieWert") Me.columnAnmID = MyBase.Columns("AnmID") Me.columnErledigungsTypID = MyBase.Columns("ErledigungsTypID") Me.columnWarenbezeichnung = MyBase.Columns("Warenbezeichnung") Me.columnAbsender = MyBase.Columns("Absender") Me.columnEmpfaenger = MyBase.Columns("Empfaenger") Me.columnGesamtrohmasse = MyBase.Columns("Gesamtrohmasse") Me.columnAbgangszollstelle = MyBase.Columns("Abgangszollstelle") Me.columnBestimmungszollstelle = MyBase.Columns("Bestimmungszollstelle") Me.columnLRN = MyBase.Columns("LRN") Me.columnDatumBestimmungErreicht = MyBase.Columns("DatumBestimmungErreicht") Me.columnGRN = MyBase.Columns("GRN") End Sub _ Private Sub InitClass() Me.columnCRN = New Global.System.Data.DataColumn("CRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCRN) Me.columnAnmeldungsDatum = New Global.System.Data.DataColumn("AnmeldungsDatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmeldungsDatum) Me.columnGarantieWert = New Global.System.Data.DataColumn("GarantieWert", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGarantieWert) Me.columnAnmID = New Global.System.Data.DataColumn("AnmID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmID) Me.columnErledigungsTypID = New Global.System.Data.DataColumn("ErledigungsTypID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnErledigungsTypID) Me.columnWarenbezeichnung = New Global.System.Data.DataColumn("Warenbezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWarenbezeichnung) Me.columnAbsender = New Global.System.Data.DataColumn("Absender", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbsender) Me.columnEmpfaenger = New Global.System.Data.DataColumn("Empfaenger", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmpfaenger) Me.columnGesamtrohmasse = New Global.System.Data.DataColumn("Gesamtrohmasse", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGesamtrohmasse) Me.columnAbgangszollstelle = New Global.System.Data.DataColumn("Abgangszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAbgangszollstelle) Me.columnBestimmungszollstelle = New Global.System.Data.DataColumn("Bestimmungszollstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBestimmungszollstelle) Me.columnLRN = New Global.System.Data.DataColumn("LRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLRN) Me.columnDatumBestimmungErreicht = New Global.System.Data.DataColumn("DatumBestimmungErreicht", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDatumBestimmungErreicht) Me.columnGRN = New Global.System.Data.DataColumn("GRN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGRN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCRN}, true)) Me.columnCRN.AllowDBNull = false Me.columnCRN.Unique = true Me.columnCRN.MaxLength = 21 Me.columnAnmeldungsDatum.AllowDBNull = false Me.columnErledigungsTypID.MaxLength = 10 Me.columnWarenbezeichnung.MaxLength = 1073741823 Me.columnAbsender.MaxLength = 137 Me.columnEmpfaenger.MaxLength = 137 Me.columnAbgangszollstelle.MaxLength = 8 Me.columnBestimmungszollstelle.MaxLength = 8 Me.columnLRN.MaxLength = 22 Me.columnGRN.MaxLength = 24 End Sub _ Public Function NewspZolaris_EZoll_NCTS_DatenbereitstellungRow() As spZolaris_EZoll_NCTS_DatenbereitstellungRow Return CType(Me.NewRow,spZolaris_EZoll_NCTS_DatenbereitstellungRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New spZolaris_EZoll_NCTS_DatenbereitstellungRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(spZolaris_EZoll_NCTS_DatenbereitstellungRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.spZolaris_EZoll_NCTS_DatenbereitstellungRowChangedEvent) Is Nothing) Then RaiseEvent spZolaris_EZoll_NCTS_DatenbereitstellungRowChanged(Me, New spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEvent(CType(e.Row,spZolaris_EZoll_NCTS_DatenbereitstellungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.spZolaris_EZoll_NCTS_DatenbereitstellungRowChangingEvent) Is Nothing) Then RaiseEvent spZolaris_EZoll_NCTS_DatenbereitstellungRowChanging(Me, New spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEvent(CType(e.Row,spZolaris_EZoll_NCTS_DatenbereitstellungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.spZolaris_EZoll_NCTS_DatenbereitstellungRowDeletedEvent) Is Nothing) Then RaiseEvent spZolaris_EZoll_NCTS_DatenbereitstellungRowDeleted(Me, New spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEvent(CType(e.Row,spZolaris_EZoll_NCTS_DatenbereitstellungRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.spZolaris_EZoll_NCTS_DatenbereitstellungRowDeletingEvent) Is Nothing) Then RaiseEvent spZolaris_EZoll_NCTS_DatenbereitstellungRowDeleting(Me, New spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEvent(CType(e.Row,spZolaris_EZoll_NCTS_DatenbereitstellungRow), e.Action)) End If End Sub _ Public Sub RemovespZolaris_EZoll_NCTS_DatenbereitstellungRow(ByVal row As spZolaris_EZoll_NCTS_DatenbereitstellungRow) 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 VERAGDataSet = New VERAGDataSet() 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 = "spZolaris_EZoll_NCTS_DatenbereitstellungDataTable" 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 AbfertigungsartenRow Inherits Global.System.Data.DataRow Private tableAbfertigungsarten As AbfertigungsartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableAbfertigungsarten = CType(Me.Table,AbfertigungsartenDataTable) End Sub _ Public Property Abfertigungsart() As Short Get Return CType(Me(Me.tableAbfertigungsarten.AbfertigungsartColumn),Short) End Get Set Me(Me.tableAbfertigungsarten.AbfertigungsartColumn) = value End Set End Property _ Public Property Abfertigungsbezeichnung() As String Get Return CType(Me(Me.tableAbfertigungsarten.AbfertigungsbezeichnungColumn),String) End Get Set Me(Me.tableAbfertigungsarten.AbfertigungsbezeichnungColumn) = value End Set End Property _ Public Property EpSbVl() As Boolean Get Try Return CType(Me(Me.tableAbfertigungsarten.EpSbVlColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EpSbVl in Tabelle Abfertigungsarten ist DBNull.", e) End Try End Get Set Me(Me.tableAbfertigungsarten.EpSbVlColumn) = value End Set End Property _ Public Property EpSbSgutKompl() As Boolean Get Try Return CType(Me(Me.tableAbfertigungsarten.EpSbSgutKomplColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EpSbSgutKompl in Tabelle Abfertigungsarten ist DBNull.", e) End Try End Get Set Me(Me.tableAbfertigungsarten.EpSbSgutKomplColumn) = value End Set End Property _ Public Property EpSbBl() As Boolean Get Try Return CType(Me(Me.tableAbfertigungsarten.EpSbBlColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EpSbBl in Tabelle Abfertigungsarten ist DBNull.", e) End Try End Get Set Me(Me.tableAbfertigungsarten.EpSbBlColumn) = value End Set End Property _ Public Property isAbfertigung() As Boolean Get Try Return CType(Me(Me.tableAbfertigungsarten.isAbfertigungColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte isAbfertigung in Tabelle Abfertigungsarten ist DBNull.", e) End Try End Get Set Me(Me.tableAbfertigungsarten.isAbfertigungColumn) = value End Set End Property _ Public Property AbfertigungsbezeichnungLang() As String Get Try Return CType(Me(Me.tableAbfertigungsarten.AbfertigungsbezeichnungLangColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsbezeichnungLang in Tabelle Abfertigungsarten ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableAbfertigungsarten.AbfertigungsbezeichnungLangColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableAbfertigungsarten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Abfertigungsarten ist DBNull.", e) End Try End Get Set Me(Me.tableAbfertigungsarten.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsEpSbVlNull() As Boolean Return Me.IsNull(Me.tableAbfertigungsarten.EpSbVlColumn) End Function _ Public Sub SetEpSbVlNull() Me(Me.tableAbfertigungsarten.EpSbVlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEpSbSgutKomplNull() As Boolean Return Me.IsNull(Me.tableAbfertigungsarten.EpSbSgutKomplColumn) End Function _ Public Sub SetEpSbSgutKomplNull() Me(Me.tableAbfertigungsarten.EpSbSgutKomplColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEpSbBlNull() As Boolean Return Me.IsNull(Me.tableAbfertigungsarten.EpSbBlColumn) End Function _ Public Sub SetEpSbBlNull() Me(Me.tableAbfertigungsarten.EpSbBlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsisAbfertigungNull() As Boolean Return Me.IsNull(Me.tableAbfertigungsarten.isAbfertigungColumn) End Function _ Public Sub SetisAbfertigungNull() Me(Me.tableAbfertigungsarten.isAbfertigungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsbezeichnungLangNull() As Boolean Return Me.IsNull(Me.tableAbfertigungsarten.AbfertigungsbezeichnungLangColumn) End Function _ Public Sub SetAbfertigungsbezeichnungLangNull() Me(Me.tableAbfertigungsarten.AbfertigungsbezeichnungLangColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableAbfertigungsarten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableAbfertigungsarten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetAbfertigungskosten_der_KorrespondentenRows() As Abfertigungskosten_der_KorrespondentenRow() If (Me.Table.ChildRelations("Abfertigungskosten der Korrespondenten$AbfertigungsartenAbfertigungskosten der Ko"& _ "rrespondenten") Is Nothing) Then Return New Abfertigungskosten_der_KorrespondentenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Abfertigungskosten der Korrespondenten$AbfertigungsartenAbfertigungskosten der Ko"& _ "rrespondenten")),Abfertigungskosten_der_KorrespondentenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Abfertigungskosten_der_KorrespondentenRow Inherits Global.System.Data.DataRow Private tableAbfertigungskosten_der_Korrespondenten As Abfertigungskosten_der_KorrespondentenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableAbfertigungskosten_der_Korrespondenten = CType(Me.Table,Abfertigungskosten_der_KorrespondentenDataTable) End Sub _ Public Property KorrespondentenNr() As Integer Get Return CType(Me(Me.tableAbfertigungskosten_der_Korrespondenten.KorrespondentenNrColumn),Integer) End Get Set Me(Me.tableAbfertigungskosten_der_Korrespondenten.KorrespondentenNrColumn) = value End Set End Property _ Public Property Abfertigungsart() As Short Get Return CType(Me(Me.tableAbfertigungskosten_der_Korrespondenten.AbfertigungsartColumn),Short) End Get Set Me(Me.tableAbfertigungskosten_der_Korrespondenten.AbfertigungsartColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tableAbfertigungskosten_der_Korrespondenten.LeistungsNrColumn),Short) End Get Set Me(Me.tableAbfertigungskosten_der_Korrespondenten.LeistungsNrColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tableAbfertigungskosten_der_Korrespondenten.LeistungsBezColumn),String) End Get Set Me(Me.tableAbfertigungskosten_der_Korrespondenten.LeistungsBezColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Return CType(Me(Me.tableAbfertigungskosten_der_Korrespondenten.PreisColumn),Decimal) End Get Set Me(Me.tableAbfertigungskosten_der_Korrespondenten.PreisColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableAbfertigungskosten_der_Korrespondenten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Abfertigungskosten der Korresponden"& _ "ten ist DBNull.", e) End Try End Get Set Me(Me.tableAbfertigungskosten_der_Korrespondenten.SSMA_TimeStampColumn) = value End Set End Property _ Public Property AbfertigungsartenRow() As AbfertigungsartenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Abfertigungskosten der Korrespondenten$AbfertigungsartenAbfertigungskosten der Ko"& _ "rrespondenten")),AbfertigungsartenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Abfertigungskosten der Korrespondenten$AbfertigungsartenAbfertigungskosten der Ko"& _ "rrespondenten")) End Set End Property _ Public Property KorrespondentenRow() As KorrespondentenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Abfertigungskosten der Korrespondenten$KorrespondentenAbfertigungskosten der Korr"& _ "espondenten")),KorrespondentenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Abfertigungskosten der Korrespondenten$KorrespondentenAbfertigungskosten der Korr"& _ "espondenten")) End Set End Property _ Public Property LeistungenRow() As LeistungenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Abfertigungskosten der Korrespondenten$LeistungenAbfertigungskosten der Korrespon"& _ "denten")),LeistungenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Abfertigungskosten der Korrespondenten$LeistungenAbfertigungskosten der Korrespon"& _ "denten")) End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableAbfertigungskosten_der_Korrespondenten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableAbfertigungskosten_der_Korrespondenten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class AbfertigungsLaenderRow Inherits Global.System.Data.DataRow Private tableAbfertigungsLaender As AbfertigungsLaenderDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableAbfertigungsLaender = CType(Me.Table,AbfertigungsLaenderDataTable) End Sub _ Public Property AbfertigungsLand() As String Get Return CType(Me(Me.tableAbfertigungsLaender.AbfertigungsLandColumn),String) End Get Set Me(Me.tableAbfertigungsLaender.AbfertigungsLandColumn) = value End Set End Property _ Public Property Firma() As String Get Try Return CType(Me(Me.tableAbfertigungsLaender.FirmaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma in Tabelle AbfertigungsLaender ist DBNull.", e) End Try End Get Set Me(Me.tableAbfertigungsLaender.FirmaColumn) = value End Set End Property _ Public Property Cluster() As String Get Try Return CType(Me(Me.tableAbfertigungsLaender.ClusterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cluster in Tabelle AbfertigungsLaender ist DBNull.", e) End Try End Get Set Me(Me.tableAbfertigungsLaender.ClusterColumn) = value End Set End Property _ Public Function IsFirmaNull() As Boolean Return Me.IsNull(Me.tableAbfertigungsLaender.FirmaColumn) End Function _ Public Sub SetFirmaNull() Me(Me.tableAbfertigungsLaender.FirmaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsClusterNull() As Boolean Return Me.IsNull(Me.tableAbfertigungsLaender.ClusterColumn) End Function _ Public Sub SetClusterNull() Me(Me.tableAbfertigungsLaender.ClusterColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class AbfertigungsLaenderAbfertigungsartenRow Inherits Global.System.Data.DataRow Private tableAbfertigungsLaenderAbfertigungsarten As AbfertigungsLaenderAbfertigungsartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableAbfertigungsLaenderAbfertigungsarten = CType(Me.Table,AbfertigungsLaenderAbfertigungsartenDataTable) End Sub _ Public Property AbfertigungsLand() As String Get Return CType(Me(Me.tableAbfertigungsLaenderAbfertigungsarten.AbfertigungsLandColumn),String) End Get Set Me(Me.tableAbfertigungsLaenderAbfertigungsarten.AbfertigungsLandColumn) = value End Set End Property _ Public Property Abfertigungsart() As Short Get Return CType(Me(Me.tableAbfertigungsLaenderAbfertigungsarten.AbfertigungsartColumn),Short) End Get Set Me(Me.tableAbfertigungsLaenderAbfertigungsarten.AbfertigungsartColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class AbgabenartenRow Inherits Global.System.Data.DataRow Private tableAbgabenarten As AbgabenartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableAbgabenarten = CType(Me.Table,AbgabenartenDataTable) End Sub _ Public Property ID() As String Get Return CType(Me(Me.tableAbgabenarten.IDColumn),String) End Get Set Me(Me.tableAbgabenarten.IDColumn) = value End Set End Property _ Public Property Abgabenart() As String Get Return CType(Me(Me.tableAbgabenarten.AbgabenartColumn),String) End Get Set Me(Me.tableAbgabenarten.AbgabenartColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableAbgabenarten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Abgabenarten ist DBNull.", e) End Try End Get Set Me(Me.tableAbgabenarten.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableAbgabenarten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableAbgabenarten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class AdressenRow Inherits Global.System.Data.DataRow Private tableAdressen As AdressenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableAdressen = CType(Me.Table,AdressenDataTable) End Sub _ Public Property Auswahl() As String Get Return CType(Me(Me.tableAdressen.AuswahlColumn),String) End Get Set Me(Me.tableAdressen.AuswahlColumn) = value End Set End Property _ Public Property AdressenNr() As Integer Get Return CType(Me(Me.tableAdressen.AdressenNrColumn),Integer) End Get Set Me(Me.tableAdressen.AdressenNrColumn) = value End Set End Property _ Public Property Ordnungsbegriff() As String Get Return CType(Me(Me.tableAdressen.OrdnungsbegriffColumn),String) End Get Set Me(Me.tableAdressen.OrdnungsbegriffColumn) = value End Set End Property _ Public Property Name_1() As String Get Try Return CType(Me(Me.tableAdressen.Name_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name 1 in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.Name_1Column) = value End Set End Property _ Public Property Name_2() As String Get Try Return CType(Me(Me.tableAdressen.Name_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name 2 in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.Name_2Column) = value End Set End Property _ Public Property Postfach() As String Get Try Return CType(Me(Me.tableAdressen.PostfachColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Postfach in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.PostfachColumn) = value End Set End Property _ Public Property PLZPF() As String Get Try Return CType(Me(Me.tableAdressen.PLZPFColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLZPF in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.PLZPFColumn) = value End Set End Property _ Public Property Straße() As String Get Try Return CType(Me(Me.tableAdressen.StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Straße in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.StraßeColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tableAdressen.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.LandKzColumn) = value End Set End Property _ Public Property PLZ() As String Get Try Return CType(Me(Me.tableAdressen.PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLZ in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.PLZColumn) = value End Set End Property _ Public Property Ort() As String Get Try Return CType(Me(Me.tableAdressen.OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ort in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.OrtColumn) = value End Set End Property _ Public Property Telefon() As String Get Try Return CType(Me(Me.tableAdressen.TelefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telefon in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.TelefonColumn) = value End Set End Property _ Public Property Telefax() As String Get Try Return CType(Me(Me.tableAdressen.TelefaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telefax in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.TelefaxColumn) = value End Set End Property _ Public Property Mobiltelefon() As String Get Try Return CType(Me(Me.tableAdressen.MobiltelefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mobiltelefon in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.MobiltelefonColumn) = value End Set End Property _ Public Property _E_Mail() As String Get Try Return CType(Me(Me.tableAdressen._E_MailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte E-Mail in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen._E_MailColumn) = value End Set End Property _ Public Property _E_Mail2() As String Get Try Return CType(Me(Me.tableAdressen._E_Mail2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte E-Mail2 in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen._E_Mail2Column) = value End Set End Property _ Public Property Anrede() As String Get Try Return CType(Me(Me.tableAdressen.AnredeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anrede in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.AnredeColumn) = value End Set End Property _ Public Property Ansprechpartner() As String Get Try Return CType(Me(Me.tableAdressen.AnsprechpartnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ansprechpartner in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.AnsprechpartnerColumn) = value End Set End Property _ Public Property UstIdKz() As String Get Try Return CType(Me(Me.tableAdressen.UstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdKz in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.UstIdKzColumn) = value End Set End Property _ Public Property UstIdNr() As String Get Try Return CType(Me(Me.tableAdressen.UstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdNr in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.UstIdNrColumn) = value End Set End Property _ Public Property UstIdGeprüft() As Date Get Try Return CType(Me(Me.tableAdressen.UstIdGeprüftColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdGeprüft in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.UstIdGeprüftColumn) = value End Set End Property _ Public Property BLZ() As String Get Try Return CType(Me(Me.tableAdressen.BLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BLZ in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.BLZColumn) = value End Set End Property _ Public Property KTO() As String Get Try Return CType(Me(Me.tableAdressen.KTOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KTO in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.KTOColumn) = value End Set End Property _ Public Property Eingegeben_am() As Date Get Return CType(Me(Me.tableAdressen.Eingegeben_amColumn),Date) End Get Set Me(Me.tableAdressen.Eingegeben_amColumn) = value End Set End Property _ Public Property Geändert_am() As Date Get Try Return CType(Me(Me.tableAdressen.Geändert_amColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Geändert am in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.Geändert_amColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tableAdressen.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.SachbearbeiterColumn) = value End Set End Property _ Public Property Rechnungsdruck() As Short Get Return CType(Me(Me.tableAdressen.RechnungsdruckColumn),Short) End Get Set Me(Me.tableAdressen.RechnungsdruckColumn) = value End Set End Property _ Public Property Steuernummer() As String Get Try Return CType(Me(Me.tableAdressen.SteuernummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuernummer in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.SteuernummerColumn) = value End Set End Property _ Public Property IDSKundenNr() As Integer Get Try Return CType(Me(Me.tableAdressen.IDSKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDSKundenNr in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.IDSKundenNrColumn) = value End Set End Property _ Public Property WölflKundenNr() As Integer Get Try Return CType(Me(Me.tableAdressen.WölflKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WölflKundenNr in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.WölflKundenNrColumn) = value End Set End Property _ Public Property MSEKundenNr() As Integer Get Try Return CType(Me(Me.tableAdressen.MSEKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MSEKundenNr in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.MSEKundenNrColumn) = value End Set End Property _ Public Property MSEExportCSV() As Boolean Get Try Return CType(Me(Me.tableAdressen.MSEExportCSVColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MSEExportCSV in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.MSEExportCSVColumn) = value End Set End Property _ Public Property _TELEPASS_Kd_Nr() As Integer Get Try Return CType(Me(Me.tableAdressen._TELEPASS_Kd_NrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TELEPASS-Kd-Nr in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen._TELEPASS_Kd_NrColumn) = value End Set End Property _ Public Property ASFINAGExportCSV() As Boolean Get Try Return CType(Me(Me.tableAdressen.ASFINAGExportCSVColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ASFINAGExportCSV in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.ASFINAGExportCSVColumn) = value End Set End Property _ Public Property UStV_GVAnfDat() As Date Get Try Return CType(Me(Me.tableAdressen.UStV_GVAnfDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStV_GVAnfDat in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.UStV_GVAnfDatColumn) = value End Set End Property _ Public Property UStV_GVAusDat() As Date Get Try Return CType(Me(Me.tableAdressen.UStV_GVAusDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStV_GVAusDat in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.UStV_GVAusDatColumn) = value End Set End Property _ Public Property ExportMautberichtCSV() As Boolean Get Try Return CType(Me(Me.tableAdressen.ExportMautberichtCSVColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExportMautberichtCSV in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.ExportMautberichtCSVColumn) = value End Set End Property _ Public Property UTAKundenNr() As Integer Get Try Return CType(Me(Me.tableAdressen.UTAKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UTAKundenNr in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.UTAKundenNrColumn) = value End Set End Property _ Public Property UTAExportCSV() As Boolean Get Try Return CType(Me(Me.tableAdressen.UTAExportCSVColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UTAExportCSV in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.UTAExportCSVColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableAdressen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.SSMA_TimeStampColumn) = value End Set End Property _ Public Property MWSTVorauszahlung() As Boolean Get Try Return CType(Me(Me.tableAdressen.MWSTVorauszahlungColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MWSTVorauszahlung in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.MWSTVorauszahlungColumn) = value End Set End Property _ Public Property PLOSEKundenNr() As Integer Get Try Return CType(Me(Me.tableAdressen.PLOSEKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLOSEKundenNr in Tabelle Adressen ist DBNull.", e) End Try End Get Set Me(Me.tableAdressen.PLOSEKundenNrColumn) = value End Set End Property _ Public Function IsName_1Null() As Boolean Return Me.IsNull(Me.tableAdressen.Name_1Column) End Function _ Public Sub SetName_1Null() Me(Me.tableAdressen.Name_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsName_2Null() As Boolean Return Me.IsNull(Me.tableAdressen.Name_2Column) End Function _ Public Sub SetName_2Null() Me(Me.tableAdressen.Name_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsPostfachNull() As Boolean Return Me.IsNull(Me.tableAdressen.PostfachColumn) End Function _ Public Sub SetPostfachNull() Me(Me.tableAdressen.PostfachColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPLZPFNull() As Boolean Return Me.IsNull(Me.tableAdressen.PLZPFColumn) End Function _ Public Sub SetPLZPFNull() Me(Me.tableAdressen.PLZPFColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStraßeNull() As Boolean Return Me.IsNull(Me.tableAdressen.StraßeColumn) End Function _ Public Sub SetStraßeNull() Me(Me.tableAdressen.StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tableAdressen.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tableAdressen.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPLZNull() As Boolean Return Me.IsNull(Me.tableAdressen.PLZColumn) End Function _ Public Sub SetPLZNull() Me(Me.tableAdressen.PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOrtNull() As Boolean Return Me.IsNull(Me.tableAdressen.OrtColumn) End Function _ Public Sub SetOrtNull() Me(Me.tableAdressen.OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelefonNull() As Boolean Return Me.IsNull(Me.tableAdressen.TelefonColumn) End Function _ Public Sub SetTelefonNull() Me(Me.tableAdressen.TelefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelefaxNull() As Boolean Return Me.IsNull(Me.tableAdressen.TelefaxColumn) End Function _ Public Sub SetTelefaxNull() Me(Me.tableAdressen.TelefaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMobiltelefonNull() As Boolean Return Me.IsNull(Me.tableAdressen.MobiltelefonColumn) End Function _ Public Sub SetMobiltelefonNull() Me(Me.tableAdressen.MobiltelefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_E_MailNull() As Boolean Return Me.IsNull(Me.tableAdressen._E_MailColumn) End Function _ Public Sub Set_E_MailNull() Me(Me.tableAdressen._E_MailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_E_Mail2Null() As Boolean Return Me.IsNull(Me.tableAdressen._E_Mail2Column) End Function _ Public Sub Set_E_Mail2Null() Me(Me.tableAdressen._E_Mail2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnredeNull() As Boolean Return Me.IsNull(Me.tableAdressen.AnredeColumn) End Function _ Public Sub SetAnredeNull() Me(Me.tableAdressen.AnredeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnsprechpartnerNull() As Boolean Return Me.IsNull(Me.tableAdressen.AnsprechpartnerColumn) End Function _ Public Sub SetAnsprechpartnerNull() Me(Me.tableAdressen.AnsprechpartnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdKzNull() As Boolean Return Me.IsNull(Me.tableAdressen.UstIdKzColumn) End Function _ Public Sub SetUstIdKzNull() Me(Me.tableAdressen.UstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdNrNull() As Boolean Return Me.IsNull(Me.tableAdressen.UstIdNrColumn) End Function _ Public Sub SetUstIdNrNull() Me(Me.tableAdressen.UstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdGeprüftNull() As Boolean Return Me.IsNull(Me.tableAdressen.UstIdGeprüftColumn) End Function _ Public Sub SetUstIdGeprüftNull() Me(Me.tableAdressen.UstIdGeprüftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBLZNull() As Boolean Return Me.IsNull(Me.tableAdressen.BLZColumn) End Function _ Public Sub SetBLZNull() Me(Me.tableAdressen.BLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKTONull() As Boolean Return Me.IsNull(Me.tableAdressen.KTOColumn) End Function _ Public Sub SetKTONull() Me(Me.tableAdressen.KTOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändert_amNull() As Boolean Return Me.IsNull(Me.tableAdressen.Geändert_amColumn) End Function _ Public Sub SetGeändert_amNull() Me(Me.tableAdressen.Geändert_amColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableAdressen.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tableAdressen.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuernummerNull() As Boolean Return Me.IsNull(Me.tableAdressen.SteuernummerColumn) End Function _ Public Sub SetSteuernummerNull() Me(Me.tableAdressen.SteuernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDSKundenNrNull() As Boolean Return Me.IsNull(Me.tableAdressen.IDSKundenNrColumn) End Function _ Public Sub SetIDSKundenNrNull() Me(Me.tableAdressen.IDSKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWölflKundenNrNull() As Boolean Return Me.IsNull(Me.tableAdressen.WölflKundenNrColumn) End Function _ Public Sub SetWölflKundenNrNull() Me(Me.tableAdressen.WölflKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMSEKundenNrNull() As Boolean Return Me.IsNull(Me.tableAdressen.MSEKundenNrColumn) End Function _ Public Sub SetMSEKundenNrNull() Me(Me.tableAdressen.MSEKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMSEExportCSVNull() As Boolean Return Me.IsNull(Me.tableAdressen.MSEExportCSVColumn) End Function _ Public Sub SetMSEExportCSVNull() Me(Me.tableAdressen.MSEExportCSVColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_TELEPASS_Kd_NrNull() As Boolean Return Me.IsNull(Me.tableAdressen._TELEPASS_Kd_NrColumn) End Function _ Public Sub Set_TELEPASS_Kd_NrNull() Me(Me.tableAdressen._TELEPASS_Kd_NrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsASFINAGExportCSVNull() As Boolean Return Me.IsNull(Me.tableAdressen.ASFINAGExportCSVColumn) End Function _ Public Sub SetASFINAGExportCSVNull() Me(Me.tableAdressen.ASFINAGExportCSVColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStV_GVAnfDatNull() As Boolean Return Me.IsNull(Me.tableAdressen.UStV_GVAnfDatColumn) End Function _ Public Sub SetUStV_GVAnfDatNull() Me(Me.tableAdressen.UStV_GVAnfDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStV_GVAusDatNull() As Boolean Return Me.IsNull(Me.tableAdressen.UStV_GVAusDatColumn) End Function _ Public Sub SetUStV_GVAusDatNull() Me(Me.tableAdressen.UStV_GVAusDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExportMautberichtCSVNull() As Boolean Return Me.IsNull(Me.tableAdressen.ExportMautberichtCSVColumn) End Function _ Public Sub SetExportMautberichtCSVNull() Me(Me.tableAdressen.ExportMautberichtCSVColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUTAKundenNrNull() As Boolean Return Me.IsNull(Me.tableAdressen.UTAKundenNrColumn) End Function _ Public Sub SetUTAKundenNrNull() Me(Me.tableAdressen.UTAKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUTAExportCSVNull() As Boolean Return Me.IsNull(Me.tableAdressen.UTAExportCSVColumn) End Function _ Public Sub SetUTAExportCSVNull() Me(Me.tableAdressen.UTAExportCSVColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableAdressen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableAdressen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMWSTVorauszahlungNull() As Boolean Return Me.IsNull(Me.tableAdressen.MWSTVorauszahlungColumn) End Function _ Public Sub SetMWSTVorauszahlungNull() Me(Me.tableAdressen.MWSTVorauszahlungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPLOSEKundenNrNull() As Boolean Return Me.IsNull(Me.tableAdressen.PLOSEKundenNrColumn) End Function _ Public Sub SetPLOSEKundenNrNull() Me(Me.tableAdressen.PLOSEKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetKreditkartenRows() As KreditkartenRow() If (Me.Table.ChildRelations("Kreditkarten$AdressenKreditkarten") Is Nothing) Then Return New KreditkartenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Kreditkarten$AdressenKreditkarten")),KreditkartenRow()) End If End Function _ Public Function GetKundenRows() As KundenRow() If (Me.Table.ChildRelations("Kunden$AdressenKunden") Is Nothing) Then Return New KundenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Kunden$AdressenKunden")),KundenRow()) End If End Function _ Public Function Gettbl_IDS_Kategorien_KundenRows() As tbl_IDS_Kategorien_KundenRow() If (Me.Table.ChildRelations("tbl_IDS_Kategorien_Kunden$Adressentbl_IDS_Kategorien_Kunden") Is Nothing) Then Return New tbl_IDS_Kategorien_KundenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbl_IDS_Kategorien_Kunden$Adressentbl_IDS_Kategorien_Kunden")),tbl_IDS_Kategorien_KundenRow()) End If End Function _ Public Function Gettbl_IDS_KundenRows() As tbl_IDS_KundenRow() If (Me.Table.ChildRelations("tbl_IDS_Kunden$Adressentbl_IDS_Kunden") Is Nothing) Then Return New tbl_IDS_KundenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbl_IDS_Kunden$Adressentbl_IDS_Kunden")),tbl_IDS_KundenRow()) End If End Function _ Public Function Gettbl_IDS_Kunden_ohne_RabattRows() As tbl_IDS_Kunden_ohne_RabattRow() If (Me.Table.ChildRelations("tbl_IDS_Kunden_ohne_Rabatt$Adressentbl_IDS_Kunden_ohne_Rabatt") Is Nothing) Then Return New tbl_IDS_Kunden_ohne_RabattRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbl_IDS_Kunden_ohne_Rabatt$Adressentbl_IDS_Kunden_ohne_Rabatt")),tbl_IDS_Kunden_ohne_RabattRow()) End If End Function _ Public Function Gettbl_IDS_RechenwerteRows() As tbl_IDS_RechenwerteRow() If (Me.Table.ChildRelations("tbl_IDS_Rechenwerte$Adressentbl_IDS_Rechenwerte") Is Nothing) Then Return New tbl_IDS_RechenwerteRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbl_IDS_Rechenwerte$Adressentbl_IDS_Rechenwerte")),tbl_IDS_RechenwerteRow()) End If End Function _ Public Function GettblSteuernummernRows() As tblSteuernummernRow() If (Me.Table.ChildRelations("tblSteuernummern$AdressentblSteuernummern") Is Nothing) Then Return New tblSteuernummernRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblSteuernummern$AdressentblSteuernummern")),tblSteuernummernRow()) End If End Function _ Public Function GettblUStVKuLäFoRows() As tblUStVKuLäFoRow() If (Me.Table.ChildRelations("tblUStVKuLäFo$AdressentblUStVKuLäFo") Is Nothing) Then Return New tblUStVKuLäFoRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUStVKuLäFo$AdressentblUStVKuLäFo")),tblUStVKuLäFoRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class AktivitätenlogRow Inherits Global.System.Data.DataRow Private tableAktivitätenlog As AktivitätenlogDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableAktivitätenlog = CType(Me.Table,AktivitätenlogDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tableAktivitätenlog.IDColumn),Integer) End Get Set Me(Me.tableAktivitätenlog.IDColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Return CType(Me(Me.tableAktivitätenlog.ZeitstempelColumn),Date) End Get Set Me(Me.tableAktivitätenlog.ZeitstempelColumn) = value End Set End Property _ Public Property Benutzername() As String Get Return CType(Me(Me.tableAktivitätenlog.BenutzernameColumn),String) End Get Set Me(Me.tableAktivitätenlog.BenutzernameColumn) = value End Set End Property _ Public Property Aktivität() As String Get Return CType(Me(Me.tableAktivitätenlog.AktivitätColumn),String) End Get Set Me(Me.tableAktivitätenlog.AktivitätColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableAktivitätenlog.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Aktivitätenlog ist DBNull.", e) End Try End Get Set Me(Me.tableAktivitätenlog.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableAktivitätenlog.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableAktivitätenlog.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class AnlagenRow Inherits Global.System.Data.DataRow Private tableAnlagen As AnlagenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableAnlagen = CType(Me.Table,AnlagenDataTable) End Sub _ Public Property AnlagenBez() As String Get Return CType(Me(Me.tableAnlagen.AnlagenBezColumn),String) End Get Set Me(Me.tableAnlagen.AnlagenBezColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableAnlagen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Anlagen ist DBNull.", e) End Try End Get Set Me(Me.tableAnlagen.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableAnlagen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableAnlagen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class atlas_statusRow Inherits Global.System.Data.DataRow Private tableatlas_status As atlas_statusDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableatlas_status = CType(Me.Table,atlas_statusDataTable) End Sub _ Public Property zbant_stat() As Short Get Return CType(Me(Me.tableatlas_status.zbant_statColumn),Short) End Get Set Me(Me.tableatlas_status.zbant_statColumn) = value End Set End Property _ Public Property fiskal_freigabe() As Boolean Get Return CType(Me(Me.tableatlas_status.fiskal_freigabeColumn),Boolean) End Get Set Me(Me.tableatlas_status.fiskal_freigabeColumn) = value End Set End Property _ Public Property bedeutung() As String Get Try Return CType(Me(Me.tableatlas_status.bedeutungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bedeutung in Tabelle atlas_status ist DBNull.", e) End Try End Get Set Me(Me.tableatlas_status.bedeutungColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableatlas_status.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle atlas_status ist DBNull.", e) End Try End Get Set Me(Me.tableatlas_status.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsbedeutungNull() As Boolean Return Me.IsNull(Me.tableatlas_status.bedeutungColumn) End Function _ Public Sub SetbedeutungNull() Me(Me.tableatlas_status.bedeutungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableatlas_status.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableatlas_status.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class AufschubdatenRow Inherits Global.System.Data.DataRow Private tableAufschubdaten As AufschubdatenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableAufschubdaten = CType(Me.Table,AufschubdatenDataTable) End Sub _ Public Property AufschubkontoNr() As String Get Return CType(Me(Me.tableAufschubdaten.AufschubkontoNrColumn),String) End Get Set Me(Me.tableAufschubdaten.AufschubkontoNrColumn) = value End Set End Property _ Public Property Fälligkeit() As Date Get Return CType(Me(Me.tableAufschubdaten.FälligkeitColumn),Date) End Get Set Me(Me.tableAufschubdaten.FälligkeitColumn) = value End Set End Property _ Public Property VorbuchNr() As String Get Return CType(Me(Me.tableAufschubdaten.VorbuchNrColumn),String) End Get Set Me(Me.tableAufschubdaten.VorbuchNrColumn) = value End Set End Property _ Public Property Buchungsdatum() As Date Get Try Return CType(Me(Me.tableAufschubdaten.BuchungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsdatum in Tabelle Aufschubdaten ist DBNull.", e) End Try End Get Set Me(Me.tableAufschubdaten.BuchungsdatumColumn) = value End Set End Property _ Public Property Abfertigungsort() As String Get Try Return CType(Me(Me.tableAufschubdaten.AbfertigungsortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsort in Tabelle Aufschubdaten ist DBNull.", e) End Try End Get Set Me(Me.tableAufschubdaten.AbfertigungsortColumn) = value End Set End Property _ Public Property WährungsKz() As String Get Try Return CType(Me(Me.tableAufschubdaten.WährungsKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungsKz in Tabelle Aufschubdaten ist DBNull.", e) End Try End Get Set Me(Me.tableAufschubdaten.WährungsKzColumn) = value End Set End Property _ Public Property Betrag() As Decimal Get Return CType(Me(Me.tableAufschubdaten.BetragColumn),Decimal) End Get Set Me(Me.tableAufschubdaten.BetragColumn) = value End Set End Property _ Public Property Fakturiert() As Decimal Get Try Return CType(Me(Me.tableAufschubdaten.FakturiertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fakturiert in Tabelle Aufschubdaten ist DBNull.", e) End Try End Get Set Me(Me.tableAufschubdaten.FakturiertColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tableAufschubdaten.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle Aufschubdaten ist DBNull.", e) End Try End Get Set Me(Me.tableAufschubdaten.upsize_tsColumn) = value End Set End Property _ Public Function IsBuchungsdatumNull() As Boolean Return Me.IsNull(Me.tableAufschubdaten.BuchungsdatumColumn) End Function _ Public Sub SetBuchungsdatumNull() Me(Me.tableAufschubdaten.BuchungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsortNull() As Boolean Return Me.IsNull(Me.tableAufschubdaten.AbfertigungsortColumn) End Function _ Public Sub SetAbfertigungsortNull() Me(Me.tableAufschubdaten.AbfertigungsortColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungsKzNull() As Boolean Return Me.IsNull(Me.tableAufschubdaten.WährungsKzColumn) End Function _ Public Sub SetWährungsKzNull() Me(Me.tableAufschubdaten.WährungsKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFakturiertNull() As Boolean Return Me.IsNull(Me.tableAufschubdaten.FakturiertColumn) End Function _ Public Sub SetFakturiertNull() Me(Me.tableAufschubdaten.FakturiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tableAufschubdaten.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tableAufschubdaten.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class AufschubkontenRow Inherits Global.System.Data.DataRow Private tableAufschubkonten As AufschubkontenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableAufschubkonten = CType(Me.Table,AufschubkontenDataTable) End Sub _ Public Property AufschubkontoNr() As String Get Return CType(Me(Me.tableAufschubkonten.AufschubkontoNrColumn),String) End Get Set Me(Me.tableAufschubkonten.AufschubkontoNrColumn) = value End Set End Property _ Public Property AufschubkontoBez() As String Get Return CType(Me(Me.tableAufschubkonten.AufschubkontoBezColumn),String) End Get Set Me(Me.tableAufschubkonten.AufschubkontoBezColumn) = value End Set End Property _ Public Property Aufschubfälligkeit() As Date Get Try Return CType(Me(Me.tableAufschubkonten.AufschubfälligkeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aufschubfälligkeit in Tabelle Aufschubkonten ist DBNull.", e) End Try End Get Set Me(Me.tableAufschubkonten.AufschubfälligkeitColumn) = value End Set End Property _ Public Property Aufschubdateipfad1() As String Get Return CType(Me(Me.tableAufschubkonten.Aufschubdateipfad1Column),String) End Get Set Me(Me.tableAufschubkonten.Aufschubdateipfad1Column) = value End Set End Property _ Public Property Aufschubdateipfad2() As String Get Return CType(Me(Me.tableAufschubkonten.Aufschubdateipfad2Column),String) End Get Set Me(Me.tableAufschubkonten.Aufschubdateipfad2Column) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableAufschubkonten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Aufschubkonten ist DBNull.", e) End Try End Get Set Me(Me.tableAufschubkonten.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsAufschubfälligkeitNull() As Boolean Return Me.IsNull(Me.tableAufschubkonten.AufschubfälligkeitColumn) End Function _ Public Sub SetAufschubfälligkeitNull() Me(Me.tableAufschubkonten.AufschubfälligkeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableAufschubkonten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableAufschubkonten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class BelegartenRow Inherits Global.System.Data.DataRow Private tableBelegarten As BelegartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableBelegarten = CType(Me.Table,BelegartenDataTable) End Sub _ Public Property BelegartenNr() As Short Get Return CType(Me(Me.tableBelegarten.BelegartenNrColumn),Short) End Get Set Me(Me.tableBelegarten.BelegartenNrColumn) = value End Set End Property _ Public Property BelegartenKz() As String Get Return CType(Me(Me.tableBelegarten.BelegartenKzColumn),String) End Get Set Me(Me.tableBelegarten.BelegartenKzColumn) = value End Set End Property _ Public Property BelegartenBez() As String Get Return CType(Me(Me.tableBelegarten.BelegartenBezColumn),String) End Get Set Me(Me.tableBelegarten.BelegartenBezColumn) = value End Set End Property _ Public Property Vorzeichen() As String Get Return CType(Me(Me.tableBelegarten.VorzeichenColumn),String) End Get Set Me(Me.tableBelegarten.VorzeichenColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableBelegarten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Belegarten ist DBNull.", e) End Try End Get Set Me(Me.tableBelegarten.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableBelegarten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableBelegarten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class BerechnungsartRow Inherits Global.System.Data.DataRow Private tableBerechnungsart As BerechnungsartDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableBerechnungsart = CType(Me.Table,BerechnungsartDataTable) End Sub _ Public Property BerechnungsartNr() As Short Get Return CType(Me(Me.tableBerechnungsart.BerechnungsartNrColumn),Short) End Get Set Me(Me.tableBerechnungsart.BerechnungsartNrColumn) = value End Set End Property _ Public Property BerechnungsartBez() As String Get Return CType(Me(Me.tableBerechnungsart.BerechnungsartBezColumn),String) End Get Set Me(Me.tableBerechnungsart.BerechnungsartBezColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableBerechnungsart.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Berechnungsart ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsart.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableBerechnungsart.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableBerechnungsart.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetLeistungenRows() As LeistungenRow() If (Me.Table.ChildRelations("Leistungen$BerechnungsartLeistungen") Is Nothing) Then Return New LeistungenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Leistungen$BerechnungsartLeistungen")),LeistungenRow()) End If End Function _ Public Function GetOffertenpositionenRows() As OffertenpositionenRow() If (Me.Table.ChildRelations("Offertenpositionen$BerechnungsartOffertenpositionen") Is Nothing) Then Return New OffertenpositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Offertenpositionen$BerechnungsartOffertenpositionen")),OffertenpositionenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class BerechnungsbogenRow Inherits Global.System.Data.DataRow Private tableBerechnungsbogen As BerechnungsbogenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableBerechnungsbogen = CType(Me.Table,BerechnungsbogenDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tableBerechnungsbogen.IDColumn),Integer) End Get Set Me(Me.tableBerechnungsbogen.IDColumn) = value End Set End Property _ Public Property ErstelltDatum() As Date Get Try Return CType(Me(Me.tableBerechnungsbogen.ErstelltDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErstelltDatum in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.ErstelltDatumColumn) = value End Set End Property _ Public Property ErstelltSachbearbeiter() As String Get Try Return CType(Me(Me.tableBerechnungsbogen.ErstelltSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErstelltSachbearbeiter in Tabelle Berechnungsbogen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableBerechnungsbogen.ErstelltSachbearbeiterColumn) = value End Set End Property _ Public Property GeändertDatum() As Date Get Try Return CType(Me(Me.tableBerechnungsbogen.GeändertDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GeändertDatum in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.GeändertDatumColumn) = value End Set End Property _ Public Property GeändertSachbearbeiter() As String Get Try Return CType(Me(Me.tableBerechnungsbogen.GeändertSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GeändertSachbearbeiter in Tabelle Berechnungsbogen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableBerechnungsbogen.GeändertSachbearbeiterColumn) = value End Set End Property _ Public Property GedrucktDatum() As Date Get Try Return CType(Me(Me.tableBerechnungsbogen.GedrucktDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GedrucktDatum in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.GedrucktDatumColumn) = value End Set End Property _ Public Property GedrucktSachbearbeiter() As String Get Try Return CType(Me(Me.tableBerechnungsbogen.GedrucktSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GedrucktSachbearbeiter in Tabelle Berechnungsbogen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableBerechnungsbogen.GedrucktSachbearbeiterColumn) = value End Set End Property _ Public Property Index() As String Get Return CType(Me(Me.tableBerechnungsbogen.IndexColumn),String) End Get Set Me(Me.tableBerechnungsbogen.IndexColumn) = value End Set End Property _ Public Property AbsenderKundenNr() As Integer Get Try Return CType(Me(Me.tableBerechnungsbogen.AbsenderKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderKundenNr in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.AbsenderKundenNrColumn) = value End Set End Property _ Public Property AbsenderAdresse() As String Get Try Return CType(Me(Me.tableBerechnungsbogen.AbsenderAdresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderAdresse in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.AbsenderAdresseColumn) = value End Set End Property _ Public Property AbsenderOffertenNr() As Integer Get Try Return CType(Me(Me.tableBerechnungsbogen.AbsenderOffertenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOffertenNr in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.AbsenderOffertenNrColumn) = value End Set End Property _ Public Property EmpfängerKundenNr() As Integer Get Try Return CType(Me(Me.tableBerechnungsbogen.EmpfängerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerKundenNr in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.EmpfängerKundenNrColumn) = value End Set End Property _ Public Property EmpfängerAdresse() As String Get Try Return CType(Me(Me.tableBerechnungsbogen.EmpfängerAdresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerAdresse in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.EmpfängerAdresseColumn) = value End Set End Property _ Public Property EmpfängerOffertenNr() As Integer Get Try Return CType(Me(Me.tableBerechnungsbogen.EmpfängerOffertenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOffertenNr in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.EmpfängerOffertenNrColumn) = value End Set End Property _ Public Property VermittlerKundenNr() As Integer Get Try Return CType(Me(Me.tableBerechnungsbogen.VermittlerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerKundenNr in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.VermittlerKundenNrColumn) = value End Set End Property _ Public Property VermittlerAdresse() As String Get Try Return CType(Me(Me.tableBerechnungsbogen.VermittlerAdresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerAdresse in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.VermittlerAdresseColumn) = value End Set End Property _ Public Property VermittlerOffertenNr() As Integer Get Try Return CType(Me(Me.tableBerechnungsbogen.VermittlerOffertenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOffertenNr in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.VermittlerOffertenNrColumn) = value End Set End Property _ Public Property Bemerkungen() As String Get Try Return CType(Me(Me.tableBerechnungsbogen.BemerkungenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkungen in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.BemerkungenColumn) = value End Set End Property _ Public Property Vermerk() As String Get Try Return CType(Me(Me.tableBerechnungsbogen.VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vermerk in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.VermerkColumn) = value End Set End Property _ Public Property Sperre() As String Get Try Return CType(Me(Me.tableBerechnungsbogen.SperreColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sperre in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.SperreColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableBerechnungsbogen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Berechnungsbogen ist DBNull.", e) End Try End Get Set Me(Me.tableBerechnungsbogen.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsErstelltDatumNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.ErstelltDatumColumn) End Function _ Public Sub SetErstelltDatumNull() Me(Me.tableBerechnungsbogen.ErstelltDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErstelltSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.ErstelltSachbearbeiterColumn) End Function _ Public Sub SetErstelltSachbearbeiterNull() Me(Me.tableBerechnungsbogen.ErstelltSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändertDatumNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.GeändertDatumColumn) End Function _ Public Sub SetGeändertDatumNull() Me(Me.tableBerechnungsbogen.GeändertDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändertSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.GeändertSachbearbeiterColumn) End Function _ Public Sub SetGeändertSachbearbeiterNull() Me(Me.tableBerechnungsbogen.GeändertSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGedrucktDatumNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.GedrucktDatumColumn) End Function _ Public Sub SetGedrucktDatumNull() Me(Me.tableBerechnungsbogen.GedrucktDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGedrucktSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.GedrucktSachbearbeiterColumn) End Function _ Public Sub SetGedrucktSachbearbeiterNull() Me(Me.tableBerechnungsbogen.GedrucktSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderKundenNrNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.AbsenderKundenNrColumn) End Function _ Public Sub SetAbsenderKundenNrNull() Me(Me.tableBerechnungsbogen.AbsenderKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderAdresseNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.AbsenderAdresseColumn) End Function _ Public Sub SetAbsenderAdresseNull() Me(Me.tableBerechnungsbogen.AbsenderAdresseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOffertenNrNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.AbsenderOffertenNrColumn) End Function _ Public Sub SetAbsenderOffertenNrNull() Me(Me.tableBerechnungsbogen.AbsenderOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerKundenNrNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.EmpfängerKundenNrColumn) End Function _ Public Sub SetEmpfängerKundenNrNull() Me(Me.tableBerechnungsbogen.EmpfängerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerAdresseNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.EmpfängerAdresseColumn) End Function _ Public Sub SetEmpfängerAdresseNull() Me(Me.tableBerechnungsbogen.EmpfängerAdresseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOffertenNrNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.EmpfängerOffertenNrColumn) End Function _ Public Sub SetEmpfängerOffertenNrNull() Me(Me.tableBerechnungsbogen.EmpfängerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerKundenNrNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.VermittlerKundenNrColumn) End Function _ Public Sub SetVermittlerKundenNrNull() Me(Me.tableBerechnungsbogen.VermittlerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerAdresseNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.VermittlerAdresseColumn) End Function _ Public Sub SetVermittlerAdresseNull() Me(Me.tableBerechnungsbogen.VermittlerAdresseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOffertenNrNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.VermittlerOffertenNrColumn) End Function _ Public Sub SetVermittlerOffertenNrNull() Me(Me.tableBerechnungsbogen.VermittlerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungenNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.BemerkungenColumn) End Function _ Public Sub SetBemerkungenNull() Me(Me.tableBerechnungsbogen.BemerkungenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermerkNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.VermerkColumn) End Function _ Public Sub SetVermerkNull() Me(Me.tableBerechnungsbogen.VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSperreNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.SperreColumn) End Function _ Public Sub SetSperreNull() Me(Me.tableBerechnungsbogen.SperreColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableBerechnungsbogen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableBerechnungsbogen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class BerichteRow Inherits Global.System.Data.DataRow Private tableBerichte As BerichteDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableBerichte = CType(Me.Table,BerichteDataTable) End Sub _ Public Property Bericht() As String Get Return CType(Me(Me.tableBerichte.BerichtColumn),String) End Get Set Me(Me.tableBerichte.BerichtColumn) = value End Set End Property _ Public Property Kommentar() As String Get Try Return CType(Me(Me.tableBerichte.KommentarColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kommentar in Tabelle Berichte ist DBNull.", e) End Try End Get Set Me(Me.tableBerichte.KommentarColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableBerichte.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Berichte ist DBNull.", e) End Try End Get Set Me(Me.tableBerichte.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsKommentarNull() As Boolean Return Me.IsNull(Me.tableBerichte.KommentarColumn) End Function _ Public Sub SetKommentarNull() Me(Me.tableBerichte.KommentarColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableBerichte.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableBerichte.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class CMRRow Inherits Global.System.Data.DataRow Private tableCMR As CMRDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableCMR = CType(Me.Table,CMRDataTable) End Sub _ Public Property CMR_ID() As Integer Get Return CType(Me(Me.tableCMR.CMR_IDColumn),Integer) End Get Set Me(Me.tableCMR.CMR_IDColumn) = value End Set End Property _ Public Property CMR_Suchbegriff() As String Get Try Return CType(Me(Me.tableCMR.CMR_SuchbegriffColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Suchbegriff in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_SuchbegriffColumn) = value End Set End Property _ Public Property CMR_Absender_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Absender_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Absender_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Absender_1Column) = value End Set End Property _ Public Property CMR_Absender_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Absender_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Absender_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Absender_2Column) = value End Set End Property _ Public Property CMR_Absender_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Absender_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Absender_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Absender_3Column) = value End Set End Property _ Public Property CMR_Absender_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Absender_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Absender_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Absender_4Column) = value End Set End Property _ Public Property CMR_Absender_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Absender_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Absender_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Absender_5Column) = value End Set End Property _ Public Property CMR_Empfänger_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Empfänger_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Empfänger_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Empfänger_1Column) = value End Set End Property _ Public Property CMR_Empfänger_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Empfänger_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Empfänger_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Empfänger_2Column) = value End Set End Property _ Public Property CMR_Empfänger_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Empfänger_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Empfänger_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Empfänger_3Column) = value End Set End Property _ Public Property CMR_Empfänger_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Empfänger_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Empfänger_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Empfänger_4Column) = value End Set End Property _ Public Property CMR_Empfänger_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Empfänger_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Empfänger_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Empfänger_5Column) = value End Set End Property _ Public Property CMR_Auslieferung_Ort() As String Get Try Return CType(Me(Me.tableCMR.CMR_Auslieferung_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Auslieferung_Ort in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Auslieferung_OrtColumn) = value End Set End Property _ Public Property CMR_Auslieferung_Land() As String Get Try Return CType(Me(Me.tableCMR.CMR_Auslieferung_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Auslieferung_Land in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Auslieferung_LandColumn) = value End Set End Property _ Public Property CMR_Auslieferung() As String Get Try Return CType(Me(Me.tableCMR.CMR_AuslieferungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Auslieferung in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_AuslieferungColumn) = value End Set End Property _ Public Property CMR_Übernahme_Ort() As String Get Try Return CType(Me(Me.tableCMR.CMR_Übernahme_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Übernahme_Ort in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Übernahme_OrtColumn) = value End Set End Property _ Public Property CMR_Übernahme_Land() As String Get Try Return CType(Me(Me.tableCMR.CMR_Übernahme_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Übernahme_Land in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Übernahme_LandColumn) = value End Set End Property _ Public Property CMR_Übernahme_Datum() As Date Get Try Return CType(Me(Me.tableCMR.CMR_Übernahme_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Übernahme_Datum in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Übernahme_DatumColumn) = value End Set End Property _ Public Property CMR_Dokumente_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Dokumente_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Dokumente_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Dokumente_1Column) = value End Set End Property _ Public Property CMR_Dokumente_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Dokumente_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Dokumente_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Dokumente_2Column) = value End Set End Property _ Public Property CMR_Dokumente_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Dokumente_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Dokumente_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Dokumente_3Column) = value End Set End Property _ Public Property CMR_Ware_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Ware_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ware_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ware_1Column) = value End Set End Property _ Public Property CMR_Statistiknr_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Statistiknr_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Statistiknr_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Statistiknr_1Column) = value End Set End Property _ Public Property CMR_Bruttogewicht_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bruttogewicht_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bruttogewicht_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bruttogewicht_1Column) = value End Set End Property _ Public Property CMR_Umfang_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Umfang_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Umfang_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Umfang_1Column) = value End Set End Property _ Public Property CMR_Ware_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Ware_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ware_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ware_2Column) = value End Set End Property _ Public Property CMR_Statistiknr_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Statistiknr_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Statistiknr_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Statistiknr_2Column) = value End Set End Property _ Public Property CMR_Bruttogewicht_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bruttogewicht_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bruttogewicht_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bruttogewicht_2Column) = value End Set End Property _ Public Property CMR_Umfang_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Umfang_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Umfang_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Umfang_2Column) = value End Set End Property _ Public Property CMR_Ware_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Ware_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ware_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ware_3Column) = value End Set End Property _ Public Property CMR_Statistiknr_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Statistiknr_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Statistiknr_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Statistiknr_3Column) = value End Set End Property _ Public Property CMR_Bruttogewicht_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bruttogewicht_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bruttogewicht_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bruttogewicht_3Column) = value End Set End Property _ Public Property CMR_Umfang_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Umfang_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Umfang_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Umfang_3Column) = value End Set End Property _ Public Property CMR_Ware_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Ware_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ware_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ware_4Column) = value End Set End Property _ Public Property CMR_Statistiknr_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Statistiknr_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Statistiknr_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Statistiknr_4Column) = value End Set End Property _ Public Property CMR_Bruttogewicht_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bruttogewicht_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bruttogewicht_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bruttogewicht_4Column) = value End Set End Property _ Public Property CMR_Umfang_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Umfang_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Umfang_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Umfang_4Column) = value End Set End Property _ Public Property CMR_Ware_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Ware_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ware_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ware_5Column) = value End Set End Property _ Public Property CMR_Statistiknr_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Statistiknr_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Statistiknr_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Statistiknr_5Column) = value End Set End Property _ Public Property CMR_Bruttogewicht_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bruttogewicht_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bruttogewicht_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bruttogewicht_5Column) = value End Set End Property _ Public Property CMR_Umfang_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Umfang_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Umfang_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Umfang_5Column) = value End Set End Property _ Public Property CMR_Ware_6() As String Get Try Return CType(Me(Me.tableCMR.CMR_Ware_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ware_6 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ware_6Column) = value End Set End Property _ Public Property CMR_Statistiknr_6() As String Get Try Return CType(Me(Me.tableCMR.CMR_Statistiknr_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Statistiknr_6 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Statistiknr_6Column) = value End Set End Property _ Public Property CMR_Bruttogewicht_6() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bruttogewicht_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bruttogewicht_6 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bruttogewicht_6Column) = value End Set End Property _ Public Property CMR_Umfang_6() As String Get Try Return CType(Me(Me.tableCMR.CMR_Umfang_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Umfang_6 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Umfang_6Column) = value End Set End Property _ Public Property CMR_Ware_7() As String Get Try Return CType(Me(Me.tableCMR.CMR_Ware_7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ware_7 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ware_7Column) = value End Set End Property _ Public Property CMR_Statistiknr_7() As String Get Try Return CType(Me(Me.tableCMR.CMR_Statistiknr_7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Statistiknr_7 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Statistiknr_7Column) = value End Set End Property _ Public Property CMR_Bruttogewicht_7() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bruttogewicht_7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bruttogewicht_7 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bruttogewicht_7Column) = value End Set End Property _ Public Property CMR_Umfang_7() As String Get Try Return CType(Me(Me.tableCMR.CMR_Umfang_7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Umfang_7 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Umfang_7Column) = value End Set End Property _ Public Property CMR_Ware_8() As String Get Try Return CType(Me(Me.tableCMR.CMR_Ware_8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ware_8 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ware_8Column) = value End Set End Property _ Public Property CMR_Statistiknr_8() As String Get Try Return CType(Me(Me.tableCMR.CMR_Statistiknr_8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Statistiknr_8 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Statistiknr_8Column) = value End Set End Property _ Public Property CMR_Bruttogewicht_8() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bruttogewicht_8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bruttogewicht_8 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bruttogewicht_8Column) = value End Set End Property _ Public Property CMR_Umfang_8() As String Get Try Return CType(Me(Me.tableCMR.CMR_Umfang_8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Umfang_8 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Umfang_8Column) = value End Set End Property _ Public Property CMR_Klasse() As String Get Try Return CType(Me(Me.tableCMR.CMR_KlasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Klasse in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_KlasseColumn) = value End Set End Property _ Public Property CMR_Ziffer() As String Get Try Return CType(Me(Me.tableCMR.CMR_ZifferColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ziffer in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_ZifferColumn) = value End Set End Property _ Public Property CMR_Buchstabe() As String Get Try Return CType(Me(Me.tableCMR.CMR_BuchstabeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Buchstabe in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_BuchstabeColumn) = value End Set End Property _ Public Property CMR_ADR() As String Get Try Return CType(Me(Me.tableCMR.CMR_ADRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_ADR in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_ADRColumn) = value End Set End Property _ Public Property CMR_Ware_9() As String Get Try Return CType(Me(Me.tableCMR.CMR_Ware_9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ware_9 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ware_9Column) = value End Set End Property _ Public Property CMR_Statistiknr_9() As String Get Try Return CType(Me(Me.tableCMR.CMR_Statistiknr_9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Statistiknr_9 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Statistiknr_9Column) = value End Set End Property _ Public Property CMR_Bruttogewicht_9() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bruttogewicht_9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bruttogewicht_9 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bruttogewicht_9Column) = value End Set End Property _ Public Property CMR_Umfang_9() As String Get Try Return CType(Me(Me.tableCMR.CMR_Umfang_9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Umfang_9 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Umfang_9Column) = value End Set End Property _ Public Property CMR_Anweisungen_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Anweisungen_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Anweisungen_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Anweisungen_1Column) = value End Set End Property _ Public Property CMR_Anweisungen_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Anweisungen_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Anweisungen_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Anweisungen_2Column) = value End Set End Property _ Public Property CMR_Anweisungen_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Anweisungen_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Anweisungen_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Anweisungen_3Column) = value End Set End Property _ Public Property CMR_Anweisungen_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Anweisungen_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Anweisungen_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Anweisungen_4Column) = value End Set End Property _ Public Property CMR_Anweisungen_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Anweisungen_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Anweisungen_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Anweisungen_5Column) = value End Set End Property _ Public Property CMR_Anweisungen_6() As String Get Try Return CType(Me(Me.tableCMR.CMR_Anweisungen_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Anweisungen_6 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Anweisungen_6Column) = value End Set End Property _ Public Property CMR_Anweisungen_7() As String Get Try Return CType(Me(Me.tableCMR.CMR_Anweisungen_7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Anweisungen_7 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Anweisungen_7Column) = value End Set End Property _ Public Property CMR_Rückerstattung() As String Get Try Return CType(Me(Me.tableCMR.CMR_RückerstattungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Rückerstattung in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_RückerstattungColumn) = value End Set End Property _ Public Property CMR_Frachtzahlungsanweisung_Frei() As String Get Try Return CType(Me(Me.tableCMR.CMR_Frachtzahlungsanweisung_FreiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Frachtzahlungsanweisung_Frei in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Frachtzahlungsanweisung_FreiColumn) = value End Set End Property _ Public Property CMR_Frachtzahlungsanweisung_Unfrei() As String Get Try Return CType(Me(Me.tableCMR.CMR_Frachtzahlungsanweisung_UnfreiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Frachtzahlungsanweisung_Unfrei in Tabelle CMR ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableCMR.CMR_Frachtzahlungsanweisung_UnfreiColumn) = value End Set End Property _ Public Property CMR_Frachtführer_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Frachtführer_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Frachtführer_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Frachtführer_1Column) = value End Set End Property _ Public Property CMR_Frachtführer_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Frachtführer_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Frachtführer_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Frachtführer_2Column) = value End Set End Property _ Public Property CMR_Frachtführer_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Frachtführer_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Frachtführer_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Frachtführer_3Column) = value End Set End Property _ Public Property CMR_Frachtführer_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Frachtführer_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Frachtführer_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Frachtführer_4Column) = value End Set End Property _ Public Property CMR_Frachtführer_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Frachtführer_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Frachtführer_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Frachtführer_5Column) = value End Set End Property _ Public Property CMR_Nachf_Frachtführer_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Nachf_Frachtführer_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Nachf_Frachtführer_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Nachf_Frachtführer_1Column) = value End Set End Property _ Public Property CMR_Nachf_Frachtführer_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Nachf_Frachtführer_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Nachf_Frachtführer_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Nachf_Frachtführer_2Column) = value End Set End Property _ Public Property CMR_Nachf_Frachtführer_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Nachf_Frachtführer_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Nachf_Frachtführer_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Nachf_Frachtführer_3Column) = value End Set End Property _ Public Property CMR_Nachf_Frachtführer_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Nachf_Frachtführer_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Nachf_Frachtführer_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Nachf_Frachtführer_4Column) = value End Set End Property _ Public Property CMR_Nachf_Frachtführer_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Nachf_Frachtführer_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Nachf_Frachtführer_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Nachf_Frachtführer_5Column) = value End Set End Property _ Public Property CMR_Bemerkungen_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bemerkungen_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bemerkungen_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bemerkungen_1Column) = value End Set End Property _ Public Property CMR_Bemerkungen_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bemerkungen_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bemerkungen_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bemerkungen_2Column) = value End Set End Property _ Public Property CMR_Bemerkungen_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bemerkungen_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bemerkungen_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bemerkungen_3Column) = value End Set End Property _ Public Property CMR_Bemerkungen_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bemerkungen_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bemerkungen_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bemerkungen_4Column) = value End Set End Property _ Public Property CMR_Bemerkungen_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Bemerkungen_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Bemerkungen_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Bemerkungen_5Column) = value End Set End Property _ Public Property CMR_Vereinbarungen_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Vereinbarungen_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Vereinbarungen_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Vereinbarungen_1Column) = value End Set End Property _ Public Property CMR_Vereinbarungen_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Vereinbarungen_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Vereinbarungen_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Vereinbarungen_2Column) = value End Set End Property _ Public Property CMR_Ausgefertigt_in() As String Get Try Return CType(Me(Me.tableCMR.CMR_Ausgefertigt_inColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ausgefertigt_in in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ausgefertigt_inColumn) = value End Set End Property _ Public Property CMR_Ausgefertigt_am() As Date Get Try Return CType(Me(Me.tableCMR.CMR_Ausgefertigt_amColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ausgefertigt_am in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Ausgefertigt_amColumn) = value End Set End Property _ Public Property CMR_Ausgefertigt() As String Get Try Return CType(Me(Me.tableCMR.CMR_AusgefertigtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Ausgefertigt in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_AusgefertigtColumn) = value End Set End Property _ Public Property CMR_Stempel_Absender_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Stempel_Absender_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Stempel_Absender_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Stempel_Absender_1Column) = value End Set End Property _ Public Property CMR_Stempel_Absender_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Stempel_Absender_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Stempel_Absender_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Stempel_Absender_2Column) = value End Set End Property _ Public Property CMR_Stempel_Frachtführer_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Stempel_Frachtführer_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Stempel_Frachtführer_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Stempel_Frachtführer_1Column) = value End Set End Property _ Public Property CMR_Stempel_Frachtführer_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Stempel_Frachtführer_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Stempel_Frachtführer_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Stempel_Frachtführer_2Column) = value End Set End Property _ Public Property CMR_Empfangsbestätigung_Datum() As Date Get Try Return CType(Me(Me.tableCMR.CMR_Empfangsbestätigung_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Empfangsbestätigung_Datum in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Empfangsbestätigung_DatumColumn) = value End Set End Property _ Public Property CMR_Stempel_Empfänger_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Stempel_Empfänger_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Stempel_Empfänger_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Stempel_Empfänger_1Column) = value End Set End Property _ Public Property CMR_Stempel_Empfänger_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Stempel_Empfänger_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Stempel_Empfänger_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Stempel_Empfänger_2Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_von_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_von_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_von_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_von_1Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_bis_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_bis_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_bis_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_bis_1Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_km_1() As Integer Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_km_1Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_km_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_km_1Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_von_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_von_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_von_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_von_2Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_bis_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_bis_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_bis_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_bis_2Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_km_2() As Integer Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_km_2Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_km_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_km_2Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_von_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_von_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_von_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_von_3Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_bis_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_bis_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_bis_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_bis_3Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_km_3() As Integer Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_km_3Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_km_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_km_3Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_von_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_von_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_von_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_von_4Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_bis_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_bis_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_bis_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_bis_4Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_km_4() As Integer Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_km_4Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_km_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_km_4Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_von_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_von_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_von_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_von_5Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_bis_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_bis_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_bis_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_bis_5Column) = value End Set End Property _ Public Property CMR_Tarifentfernung_km_5() As Integer Get Try Return CType(Me(Me.tableCMR.CMR_Tarifentfernung_km_5Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Tarifentfernung_km_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Tarifentfernung_km_5Column) = value End Set End Property _ Public Property CMR_Kennzeichen_Kfz() As String Get Try Return CType(Me(Me.tableCMR.CMR_Kennzeichen_KfzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Kennzeichen_Kfz in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Kennzeichen_KfzColumn) = value End Set End Property _ Public Property CMR_Nutzlast_Kfz() As Double Get Try Return CType(Me(Me.tableCMR.CMR_Nutzlast_KfzColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Nutzlast_Kfz in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Nutzlast_KfzColumn) = value End Set End Property _ Public Property CMR_Kennzeichen_Anhänger() As String Get Try Return CType(Me(Me.tableCMR.CMR_Kennzeichen_AnhängerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Kennzeichen_Anhänger in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Kennzeichen_AnhängerColumn) = value End Set End Property _ Public Property CMR_Nutzlast_Anhänger() As Double Get Try Return CType(Me(Me.tableCMR.CMR_Nutzlast_AnhängerColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Nutzlast_Anhänger in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Nutzlast_AnhängerColumn) = value End Set End Property _ Public Property CMR_Erstellt_Datum() As Date Get Try Return CType(Me(Me.tableCMR.CMR_Erstellt_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Erstellt_Datum in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Erstellt_DatumColumn) = value End Set End Property _ Public Property CMR_Erstellt_Sachbearbeiter() As String Get Try Return CType(Me(Me.tableCMR.CMR_Erstellt_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Erstellt_Sachbearbeiter in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Erstellt_SachbearbeiterColumn) = value End Set End Property _ Public Property CMR_Geändert_Datum() As Date Get Try Return CType(Me(Me.tableCMR.CMR_Geändert_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Geändert_Datum in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Geändert_DatumColumn) = value End Set End Property _ Public Property CMR_Geändert_Sachbearbeiter() As String Get Try Return CType(Me(Me.tableCMR.CMR_Geändert_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Geändert_Sachbearbeiter in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Geändert_SachbearbeiterColumn) = value End Set End Property _ Public Property CMR_Gedruckt_Datum() As Date Get Try Return CType(Me(Me.tableCMR.CMR_Gedruckt_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Gedruckt_Datum in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Gedruckt_DatumColumn) = value End Set End Property _ Public Property CMR_Gedruckt_Sachbearbeiter() As String Get Try Return CType(Me(Me.tableCMR.CMR_Gedruckt_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_Gedruckt_Sachbearbeiter in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_Gedruckt_SachbearbeiterColumn) = value End Set End Property _ Public Property CMR_zeichen_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_zeichen_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_zeichen_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_zeichen_1Column) = value End Set End Property _ Public Property CMR_zeichen_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_zeichen_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_zeichen_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_zeichen_2Column) = value End Set End Property _ Public Property CMR_zeichen_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_zeichen_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_zeichen_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_zeichen_3Column) = value End Set End Property _ Public Property CMR_zeichen_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_zeichen_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_zeichen_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_zeichen_4Column) = value End Set End Property _ Public Property CMR_zeichen_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_zeichen_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_zeichen_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_zeichen_5Column) = value End Set End Property _ Public Property CMR_zeichen_6() As String Get Try Return CType(Me(Me.tableCMR.CMR_zeichen_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_zeichen_6 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_zeichen_6Column) = value End Set End Property _ Public Property CMR_zeichen_7() As String Get Try Return CType(Me(Me.tableCMR.CMR_zeichen_7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_zeichen_7 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_zeichen_7Column) = value End Set End Property _ Public Property CMR_zeichen_8() As String Get Try Return CType(Me(Me.tableCMR.CMR_zeichen_8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_zeichen_8 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_zeichen_8Column) = value End Set End Property _ Public Property CMR_zeichen_9() As String Get Try Return CType(Me(Me.tableCMR.CMR_zeichen_9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_zeichen_9 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_zeichen_9Column) = value End Set End Property _ Public Property CMR_anzahl_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_anzahl_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_anzahl_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_anzahl_1Column) = value End Set End Property _ Public Property CMR_anzahl_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_anzahl_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_anzahl_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_anzahl_2Column) = value End Set End Property _ Public Property CMR_anzahl_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_anzahl_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_anzahl_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_anzahl_3Column) = value End Set End Property _ Public Property CMR_anzahl_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_anzahl_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_anzahl_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_anzahl_4Column) = value End Set End Property _ Public Property CMR_anzahl_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_anzahl_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_anzahl_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_anzahl_5Column) = value End Set End Property _ Public Property CMR_anzahl_6() As String Get Try Return CType(Me(Me.tableCMR.CMR_anzahl_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_anzahl_6 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_anzahl_6Column) = value End Set End Property _ Public Property CMR_anzahl_7() As String Get Try Return CType(Me(Me.tableCMR.CMR_anzahl_7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_anzahl_7 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_anzahl_7Column) = value End Set End Property _ Public Property CMR_anzahl_8() As String Get Try Return CType(Me(Me.tableCMR.CMR_anzahl_8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_anzahl_8 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_anzahl_8Column) = value End Set End Property _ Public Property CMR_anzahl_9() As String Get Try Return CType(Me(Me.tableCMR.CMR_anzahl_9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_anzahl_9 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_anzahl_9Column) = value End Set End Property _ Public Property CMR_pkArt_1() As String Get Try Return CType(Me(Me.tableCMR.CMR_pkArt_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_pkArt_1 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_pkArt_1Column) = value End Set End Property _ Public Property CMR_pkArt_2() As String Get Try Return CType(Me(Me.tableCMR.CMR_pkArt_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_pkArt_2 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_pkArt_2Column) = value End Set End Property _ Public Property CMR_pkArt_3() As String Get Try Return CType(Me(Me.tableCMR.CMR_pkArt_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_pkArt_3 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_pkArt_3Column) = value End Set End Property _ Public Property CMR_pkArt_4() As String Get Try Return CType(Me(Me.tableCMR.CMR_pkArt_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_pkArt_4 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_pkArt_4Column) = value End Set End Property _ Public Property CMR_pkArt_5() As String Get Try Return CType(Me(Me.tableCMR.CMR_pkArt_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_pkArt_5 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_pkArt_5Column) = value End Set End Property _ Public Property CMR_pkArt_6() As String Get Try Return CType(Me(Me.tableCMR.CMR_pkArt_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_pkArt_6 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_pkArt_6Column) = value End Set End Property _ Public Property CMR_pkArt_7() As String Get Try Return CType(Me(Me.tableCMR.CMR_pkArt_7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_pkArt_7 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_pkArt_7Column) = value End Set End Property _ Public Property CMR_pkArt_8() As String Get Try Return CType(Me(Me.tableCMR.CMR_pkArt_8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_pkArt_8 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_pkArt_8Column) = value End Set End Property _ Public Property CMR_pkArt_9() As String Get Try Return CType(Me(Me.tableCMR.CMR_pkArt_9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR_pkArt_9 in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.CMR_pkArt_9Column) = value End Set End Property _ Public Property CMR_TblLangKurz() As String Get Return CType(Me(Me.tableCMR.CMR_TblLangKurzColumn),String) End Get Set Me(Me.tableCMR.CMR_TblLangKurzColumn) = value End Set End Property _ Public Property EPBes_ID() As Integer Get Try Return CType(Me(Me.tableCMR.EPBes_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EPBes_ID in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.EPBes_IDColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableCMR.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle CMR ist DBNull.", e) End Try End Get Set Me(Me.tableCMR.SSMA_TimeStampColumn) = value End Set End Property _ Public Property CMR_Firma() As String Get Return CType(Me(Me.tableCMR.CMR_FirmaColumn),String) End Get Set Me(Me.tableCMR.CMR_FirmaColumn) = value End Set End Property _ Public Property CMR_isVorlage() As Boolean Get Return CType(Me(Me.tableCMR.CMR_isVorlageColumn),Boolean) End Get Set Me(Me.tableCMR.CMR_isVorlageColumn) = value End Set End Property _ Public Function IsCMR_SuchbegriffNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_SuchbegriffColumn) End Function _ Public Sub SetCMR_SuchbegriffNull() Me(Me.tableCMR.CMR_SuchbegriffColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Absender_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Absender_1Column) End Function _ Public Sub SetCMR_Absender_1Null() Me(Me.tableCMR.CMR_Absender_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Absender_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Absender_2Column) End Function _ Public Sub SetCMR_Absender_2Null() Me(Me.tableCMR.CMR_Absender_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Absender_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Absender_3Column) End Function _ Public Sub SetCMR_Absender_3Null() Me(Me.tableCMR.CMR_Absender_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Absender_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Absender_4Column) End Function _ Public Sub SetCMR_Absender_4Null() Me(Me.tableCMR.CMR_Absender_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Absender_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Absender_5Column) End Function _ Public Sub SetCMR_Absender_5Null() Me(Me.tableCMR.CMR_Absender_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Empfänger_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Empfänger_1Column) End Function _ Public Sub SetCMR_Empfänger_1Null() Me(Me.tableCMR.CMR_Empfänger_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Empfänger_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Empfänger_2Column) End Function _ Public Sub SetCMR_Empfänger_2Null() Me(Me.tableCMR.CMR_Empfänger_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Empfänger_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Empfänger_3Column) End Function _ Public Sub SetCMR_Empfänger_3Null() Me(Me.tableCMR.CMR_Empfänger_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Empfänger_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Empfänger_4Column) End Function _ Public Sub SetCMR_Empfänger_4Null() Me(Me.tableCMR.CMR_Empfänger_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Empfänger_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Empfänger_5Column) End Function _ Public Sub SetCMR_Empfänger_5Null() Me(Me.tableCMR.CMR_Empfänger_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Auslieferung_OrtNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Auslieferung_OrtColumn) End Function _ Public Sub SetCMR_Auslieferung_OrtNull() Me(Me.tableCMR.CMR_Auslieferung_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Auslieferung_LandNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Auslieferung_LandColumn) End Function _ Public Sub SetCMR_Auslieferung_LandNull() Me(Me.tableCMR.CMR_Auslieferung_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_AuslieferungNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_AuslieferungColumn) End Function _ Public Sub SetCMR_AuslieferungNull() Me(Me.tableCMR.CMR_AuslieferungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Übernahme_OrtNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Übernahme_OrtColumn) End Function _ Public Sub SetCMR_Übernahme_OrtNull() Me(Me.tableCMR.CMR_Übernahme_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Übernahme_LandNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Übernahme_LandColumn) End Function _ Public Sub SetCMR_Übernahme_LandNull() Me(Me.tableCMR.CMR_Übernahme_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Übernahme_DatumNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Übernahme_DatumColumn) End Function _ Public Sub SetCMR_Übernahme_DatumNull() Me(Me.tableCMR.CMR_Übernahme_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Dokumente_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Dokumente_1Column) End Function _ Public Sub SetCMR_Dokumente_1Null() Me(Me.tableCMR.CMR_Dokumente_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Dokumente_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Dokumente_2Column) End Function _ Public Sub SetCMR_Dokumente_2Null() Me(Me.tableCMR.CMR_Dokumente_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Dokumente_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Dokumente_3Column) End Function _ Public Sub SetCMR_Dokumente_3Null() Me(Me.tableCMR.CMR_Dokumente_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ware_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ware_1Column) End Function _ Public Sub SetCMR_Ware_1Null() Me(Me.tableCMR.CMR_Ware_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Statistiknr_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Statistiknr_1Column) End Function _ Public Sub SetCMR_Statistiknr_1Null() Me(Me.tableCMR.CMR_Statistiknr_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bruttogewicht_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bruttogewicht_1Column) End Function _ Public Sub SetCMR_Bruttogewicht_1Null() Me(Me.tableCMR.CMR_Bruttogewicht_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Umfang_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Umfang_1Column) End Function _ Public Sub SetCMR_Umfang_1Null() Me(Me.tableCMR.CMR_Umfang_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ware_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ware_2Column) End Function _ Public Sub SetCMR_Ware_2Null() Me(Me.tableCMR.CMR_Ware_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Statistiknr_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Statistiknr_2Column) End Function _ Public Sub SetCMR_Statistiknr_2Null() Me(Me.tableCMR.CMR_Statistiknr_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bruttogewicht_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bruttogewicht_2Column) End Function _ Public Sub SetCMR_Bruttogewicht_2Null() Me(Me.tableCMR.CMR_Bruttogewicht_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Umfang_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Umfang_2Column) End Function _ Public Sub SetCMR_Umfang_2Null() Me(Me.tableCMR.CMR_Umfang_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ware_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ware_3Column) End Function _ Public Sub SetCMR_Ware_3Null() Me(Me.tableCMR.CMR_Ware_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Statistiknr_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Statistiknr_3Column) End Function _ Public Sub SetCMR_Statistiknr_3Null() Me(Me.tableCMR.CMR_Statistiknr_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bruttogewicht_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bruttogewicht_3Column) End Function _ Public Sub SetCMR_Bruttogewicht_3Null() Me(Me.tableCMR.CMR_Bruttogewicht_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Umfang_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Umfang_3Column) End Function _ Public Sub SetCMR_Umfang_3Null() Me(Me.tableCMR.CMR_Umfang_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ware_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ware_4Column) End Function _ Public Sub SetCMR_Ware_4Null() Me(Me.tableCMR.CMR_Ware_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Statistiknr_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Statistiknr_4Column) End Function _ Public Sub SetCMR_Statistiknr_4Null() Me(Me.tableCMR.CMR_Statistiknr_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bruttogewicht_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bruttogewicht_4Column) End Function _ Public Sub SetCMR_Bruttogewicht_4Null() Me(Me.tableCMR.CMR_Bruttogewicht_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Umfang_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Umfang_4Column) End Function _ Public Sub SetCMR_Umfang_4Null() Me(Me.tableCMR.CMR_Umfang_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ware_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ware_5Column) End Function _ Public Sub SetCMR_Ware_5Null() Me(Me.tableCMR.CMR_Ware_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Statistiknr_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Statistiknr_5Column) End Function _ Public Sub SetCMR_Statistiknr_5Null() Me(Me.tableCMR.CMR_Statistiknr_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bruttogewicht_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bruttogewicht_5Column) End Function _ Public Sub SetCMR_Bruttogewicht_5Null() Me(Me.tableCMR.CMR_Bruttogewicht_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Umfang_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Umfang_5Column) End Function _ Public Sub SetCMR_Umfang_5Null() Me(Me.tableCMR.CMR_Umfang_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ware_6Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ware_6Column) End Function _ Public Sub SetCMR_Ware_6Null() Me(Me.tableCMR.CMR_Ware_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Statistiknr_6Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Statistiknr_6Column) End Function _ Public Sub SetCMR_Statistiknr_6Null() Me(Me.tableCMR.CMR_Statistiknr_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bruttogewicht_6Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bruttogewicht_6Column) End Function _ Public Sub SetCMR_Bruttogewicht_6Null() Me(Me.tableCMR.CMR_Bruttogewicht_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Umfang_6Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Umfang_6Column) End Function _ Public Sub SetCMR_Umfang_6Null() Me(Me.tableCMR.CMR_Umfang_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ware_7Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ware_7Column) End Function _ Public Sub SetCMR_Ware_7Null() Me(Me.tableCMR.CMR_Ware_7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Statistiknr_7Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Statistiknr_7Column) End Function _ Public Sub SetCMR_Statistiknr_7Null() Me(Me.tableCMR.CMR_Statistiknr_7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bruttogewicht_7Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bruttogewicht_7Column) End Function _ Public Sub SetCMR_Bruttogewicht_7Null() Me(Me.tableCMR.CMR_Bruttogewicht_7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Umfang_7Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Umfang_7Column) End Function _ Public Sub SetCMR_Umfang_7Null() Me(Me.tableCMR.CMR_Umfang_7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ware_8Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ware_8Column) End Function _ Public Sub SetCMR_Ware_8Null() Me(Me.tableCMR.CMR_Ware_8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Statistiknr_8Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Statistiknr_8Column) End Function _ Public Sub SetCMR_Statistiknr_8Null() Me(Me.tableCMR.CMR_Statistiknr_8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bruttogewicht_8Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bruttogewicht_8Column) End Function _ Public Sub SetCMR_Bruttogewicht_8Null() Me(Me.tableCMR.CMR_Bruttogewicht_8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Umfang_8Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Umfang_8Column) End Function _ Public Sub SetCMR_Umfang_8Null() Me(Me.tableCMR.CMR_Umfang_8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_KlasseNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_KlasseColumn) End Function _ Public Sub SetCMR_KlasseNull() Me(Me.tableCMR.CMR_KlasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_ZifferNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_ZifferColumn) End Function _ Public Sub SetCMR_ZifferNull() Me(Me.tableCMR.CMR_ZifferColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_BuchstabeNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_BuchstabeColumn) End Function _ Public Sub SetCMR_BuchstabeNull() Me(Me.tableCMR.CMR_BuchstabeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_ADRNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_ADRColumn) End Function _ Public Sub SetCMR_ADRNull() Me(Me.tableCMR.CMR_ADRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ware_9Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ware_9Column) End Function _ Public Sub SetCMR_Ware_9Null() Me(Me.tableCMR.CMR_Ware_9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Statistiknr_9Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Statistiknr_9Column) End Function _ Public Sub SetCMR_Statistiknr_9Null() Me(Me.tableCMR.CMR_Statistiknr_9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bruttogewicht_9Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bruttogewicht_9Column) End Function _ Public Sub SetCMR_Bruttogewicht_9Null() Me(Me.tableCMR.CMR_Bruttogewicht_9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Umfang_9Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Umfang_9Column) End Function _ Public Sub SetCMR_Umfang_9Null() Me(Me.tableCMR.CMR_Umfang_9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Anweisungen_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Anweisungen_1Column) End Function _ Public Sub SetCMR_Anweisungen_1Null() Me(Me.tableCMR.CMR_Anweisungen_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Anweisungen_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Anweisungen_2Column) End Function _ Public Sub SetCMR_Anweisungen_2Null() Me(Me.tableCMR.CMR_Anweisungen_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Anweisungen_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Anweisungen_3Column) End Function _ Public Sub SetCMR_Anweisungen_3Null() Me(Me.tableCMR.CMR_Anweisungen_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Anweisungen_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Anweisungen_4Column) End Function _ Public Sub SetCMR_Anweisungen_4Null() Me(Me.tableCMR.CMR_Anweisungen_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Anweisungen_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Anweisungen_5Column) End Function _ Public Sub SetCMR_Anweisungen_5Null() Me(Me.tableCMR.CMR_Anweisungen_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Anweisungen_6Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Anweisungen_6Column) End Function _ Public Sub SetCMR_Anweisungen_6Null() Me(Me.tableCMR.CMR_Anweisungen_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Anweisungen_7Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Anweisungen_7Column) End Function _ Public Sub SetCMR_Anweisungen_7Null() Me(Me.tableCMR.CMR_Anweisungen_7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_RückerstattungNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_RückerstattungColumn) End Function _ Public Sub SetCMR_RückerstattungNull() Me(Me.tableCMR.CMR_RückerstattungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Frachtzahlungsanweisung_FreiNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Frachtzahlungsanweisung_FreiColumn) End Function _ Public Sub SetCMR_Frachtzahlungsanweisung_FreiNull() Me(Me.tableCMR.CMR_Frachtzahlungsanweisung_FreiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Frachtzahlungsanweisung_UnfreiNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Frachtzahlungsanweisung_UnfreiColumn) End Function _ Public Sub SetCMR_Frachtzahlungsanweisung_UnfreiNull() Me(Me.tableCMR.CMR_Frachtzahlungsanweisung_UnfreiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Frachtführer_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Frachtführer_1Column) End Function _ Public Sub SetCMR_Frachtführer_1Null() Me(Me.tableCMR.CMR_Frachtführer_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Frachtführer_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Frachtführer_2Column) End Function _ Public Sub SetCMR_Frachtführer_2Null() Me(Me.tableCMR.CMR_Frachtführer_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Frachtführer_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Frachtführer_3Column) End Function _ Public Sub SetCMR_Frachtführer_3Null() Me(Me.tableCMR.CMR_Frachtführer_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Frachtführer_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Frachtführer_4Column) End Function _ Public Sub SetCMR_Frachtführer_4Null() Me(Me.tableCMR.CMR_Frachtführer_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Frachtführer_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Frachtführer_5Column) End Function _ Public Sub SetCMR_Frachtführer_5Null() Me(Me.tableCMR.CMR_Frachtführer_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Nachf_Frachtführer_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Nachf_Frachtführer_1Column) End Function _ Public Sub SetCMR_Nachf_Frachtführer_1Null() Me(Me.tableCMR.CMR_Nachf_Frachtführer_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Nachf_Frachtführer_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Nachf_Frachtführer_2Column) End Function _ Public Sub SetCMR_Nachf_Frachtführer_2Null() Me(Me.tableCMR.CMR_Nachf_Frachtführer_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Nachf_Frachtführer_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Nachf_Frachtführer_3Column) End Function _ Public Sub SetCMR_Nachf_Frachtführer_3Null() Me(Me.tableCMR.CMR_Nachf_Frachtführer_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Nachf_Frachtführer_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Nachf_Frachtführer_4Column) End Function _ Public Sub SetCMR_Nachf_Frachtführer_4Null() Me(Me.tableCMR.CMR_Nachf_Frachtführer_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Nachf_Frachtführer_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Nachf_Frachtführer_5Column) End Function _ Public Sub SetCMR_Nachf_Frachtführer_5Null() Me(Me.tableCMR.CMR_Nachf_Frachtführer_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bemerkungen_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bemerkungen_1Column) End Function _ Public Sub SetCMR_Bemerkungen_1Null() Me(Me.tableCMR.CMR_Bemerkungen_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bemerkungen_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bemerkungen_2Column) End Function _ Public Sub SetCMR_Bemerkungen_2Null() Me(Me.tableCMR.CMR_Bemerkungen_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bemerkungen_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bemerkungen_3Column) End Function _ Public Sub SetCMR_Bemerkungen_3Null() Me(Me.tableCMR.CMR_Bemerkungen_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bemerkungen_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bemerkungen_4Column) End Function _ Public Sub SetCMR_Bemerkungen_4Null() Me(Me.tableCMR.CMR_Bemerkungen_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Bemerkungen_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Bemerkungen_5Column) End Function _ Public Sub SetCMR_Bemerkungen_5Null() Me(Me.tableCMR.CMR_Bemerkungen_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Vereinbarungen_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Vereinbarungen_1Column) End Function _ Public Sub SetCMR_Vereinbarungen_1Null() Me(Me.tableCMR.CMR_Vereinbarungen_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Vereinbarungen_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Vereinbarungen_2Column) End Function _ Public Sub SetCMR_Vereinbarungen_2Null() Me(Me.tableCMR.CMR_Vereinbarungen_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ausgefertigt_inNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ausgefertigt_inColumn) End Function _ Public Sub SetCMR_Ausgefertigt_inNull() Me(Me.tableCMR.CMR_Ausgefertigt_inColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Ausgefertigt_amNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Ausgefertigt_amColumn) End Function _ Public Sub SetCMR_Ausgefertigt_amNull() Me(Me.tableCMR.CMR_Ausgefertigt_amColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_AusgefertigtNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_AusgefertigtColumn) End Function _ Public Sub SetCMR_AusgefertigtNull() Me(Me.tableCMR.CMR_AusgefertigtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Stempel_Absender_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Stempel_Absender_1Column) End Function _ Public Sub SetCMR_Stempel_Absender_1Null() Me(Me.tableCMR.CMR_Stempel_Absender_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Stempel_Absender_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Stempel_Absender_2Column) End Function _ Public Sub SetCMR_Stempel_Absender_2Null() Me(Me.tableCMR.CMR_Stempel_Absender_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Stempel_Frachtführer_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Stempel_Frachtführer_1Column) End Function _ Public Sub SetCMR_Stempel_Frachtführer_1Null() Me(Me.tableCMR.CMR_Stempel_Frachtführer_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Stempel_Frachtführer_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Stempel_Frachtführer_2Column) End Function _ Public Sub SetCMR_Stempel_Frachtführer_2Null() Me(Me.tableCMR.CMR_Stempel_Frachtführer_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Empfangsbestätigung_DatumNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Empfangsbestätigung_DatumColumn) End Function _ Public Sub SetCMR_Empfangsbestätigung_DatumNull() Me(Me.tableCMR.CMR_Empfangsbestätigung_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Stempel_Empfänger_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Stempel_Empfänger_1Column) End Function _ Public Sub SetCMR_Stempel_Empfänger_1Null() Me(Me.tableCMR.CMR_Stempel_Empfänger_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Stempel_Empfänger_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Stempel_Empfänger_2Column) End Function _ Public Sub SetCMR_Stempel_Empfänger_2Null() Me(Me.tableCMR.CMR_Stempel_Empfänger_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_von_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_von_1Column) End Function _ Public Sub SetCMR_Tarifentfernung_von_1Null() Me(Me.tableCMR.CMR_Tarifentfernung_von_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_bis_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_bis_1Column) End Function _ Public Sub SetCMR_Tarifentfernung_bis_1Null() Me(Me.tableCMR.CMR_Tarifentfernung_bis_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_km_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_km_1Column) End Function _ Public Sub SetCMR_Tarifentfernung_km_1Null() Me(Me.tableCMR.CMR_Tarifentfernung_km_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_von_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_von_2Column) End Function _ Public Sub SetCMR_Tarifentfernung_von_2Null() Me(Me.tableCMR.CMR_Tarifentfernung_von_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_bis_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_bis_2Column) End Function _ Public Sub SetCMR_Tarifentfernung_bis_2Null() Me(Me.tableCMR.CMR_Tarifentfernung_bis_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_km_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_km_2Column) End Function _ Public Sub SetCMR_Tarifentfernung_km_2Null() Me(Me.tableCMR.CMR_Tarifentfernung_km_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_von_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_von_3Column) End Function _ Public Sub SetCMR_Tarifentfernung_von_3Null() Me(Me.tableCMR.CMR_Tarifentfernung_von_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_bis_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_bis_3Column) End Function _ Public Sub SetCMR_Tarifentfernung_bis_3Null() Me(Me.tableCMR.CMR_Tarifentfernung_bis_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_km_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_km_3Column) End Function _ Public Sub SetCMR_Tarifentfernung_km_3Null() Me(Me.tableCMR.CMR_Tarifentfernung_km_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_von_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_von_4Column) End Function _ Public Sub SetCMR_Tarifentfernung_von_4Null() Me(Me.tableCMR.CMR_Tarifentfernung_von_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_bis_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_bis_4Column) End Function _ Public Sub SetCMR_Tarifentfernung_bis_4Null() Me(Me.tableCMR.CMR_Tarifentfernung_bis_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_km_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_km_4Column) End Function _ Public Sub SetCMR_Tarifentfernung_km_4Null() Me(Me.tableCMR.CMR_Tarifentfernung_km_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_von_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_von_5Column) End Function _ Public Sub SetCMR_Tarifentfernung_von_5Null() Me(Me.tableCMR.CMR_Tarifentfernung_von_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_bis_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_bis_5Column) End Function _ Public Sub SetCMR_Tarifentfernung_bis_5Null() Me(Me.tableCMR.CMR_Tarifentfernung_bis_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Tarifentfernung_km_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Tarifentfernung_km_5Column) End Function _ Public Sub SetCMR_Tarifentfernung_km_5Null() Me(Me.tableCMR.CMR_Tarifentfernung_km_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Kennzeichen_KfzNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Kennzeichen_KfzColumn) End Function _ Public Sub SetCMR_Kennzeichen_KfzNull() Me(Me.tableCMR.CMR_Kennzeichen_KfzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Nutzlast_KfzNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Nutzlast_KfzColumn) End Function _ Public Sub SetCMR_Nutzlast_KfzNull() Me(Me.tableCMR.CMR_Nutzlast_KfzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Kennzeichen_AnhängerNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Kennzeichen_AnhängerColumn) End Function _ Public Sub SetCMR_Kennzeichen_AnhängerNull() Me(Me.tableCMR.CMR_Kennzeichen_AnhängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Nutzlast_AnhängerNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Nutzlast_AnhängerColumn) End Function _ Public Sub SetCMR_Nutzlast_AnhängerNull() Me(Me.tableCMR.CMR_Nutzlast_AnhängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Erstellt_DatumNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Erstellt_DatumColumn) End Function _ Public Sub SetCMR_Erstellt_DatumNull() Me(Me.tableCMR.CMR_Erstellt_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Erstellt_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Erstellt_SachbearbeiterColumn) End Function _ Public Sub SetCMR_Erstellt_SachbearbeiterNull() Me(Me.tableCMR.CMR_Erstellt_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Geändert_DatumNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Geändert_DatumColumn) End Function _ Public Sub SetCMR_Geändert_DatumNull() Me(Me.tableCMR.CMR_Geändert_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Geändert_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Geändert_SachbearbeiterColumn) End Function _ Public Sub SetCMR_Geändert_SachbearbeiterNull() Me(Me.tableCMR.CMR_Geändert_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Gedruckt_DatumNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Gedruckt_DatumColumn) End Function _ Public Sub SetCMR_Gedruckt_DatumNull() Me(Me.tableCMR.CMR_Gedruckt_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_Gedruckt_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableCMR.CMR_Gedruckt_SachbearbeiterColumn) End Function _ Public Sub SetCMR_Gedruckt_SachbearbeiterNull() Me(Me.tableCMR.CMR_Gedruckt_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_zeichen_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_zeichen_1Column) End Function _ Public Sub SetCMR_zeichen_1Null() Me(Me.tableCMR.CMR_zeichen_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_zeichen_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_zeichen_2Column) End Function _ Public Sub SetCMR_zeichen_2Null() Me(Me.tableCMR.CMR_zeichen_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_zeichen_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_zeichen_3Column) End Function _ Public Sub SetCMR_zeichen_3Null() Me(Me.tableCMR.CMR_zeichen_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_zeichen_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_zeichen_4Column) End Function _ Public Sub SetCMR_zeichen_4Null() Me(Me.tableCMR.CMR_zeichen_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_zeichen_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_zeichen_5Column) End Function _ Public Sub SetCMR_zeichen_5Null() Me(Me.tableCMR.CMR_zeichen_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_zeichen_6Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_zeichen_6Column) End Function _ Public Sub SetCMR_zeichen_6Null() Me(Me.tableCMR.CMR_zeichen_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_zeichen_7Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_zeichen_7Column) End Function _ Public Sub SetCMR_zeichen_7Null() Me(Me.tableCMR.CMR_zeichen_7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_zeichen_8Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_zeichen_8Column) End Function _ Public Sub SetCMR_zeichen_8Null() Me(Me.tableCMR.CMR_zeichen_8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_zeichen_9Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_zeichen_9Column) End Function _ Public Sub SetCMR_zeichen_9Null() Me(Me.tableCMR.CMR_zeichen_9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_anzahl_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_anzahl_1Column) End Function _ Public Sub SetCMR_anzahl_1Null() Me(Me.tableCMR.CMR_anzahl_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_anzahl_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_anzahl_2Column) End Function _ Public Sub SetCMR_anzahl_2Null() Me(Me.tableCMR.CMR_anzahl_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_anzahl_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_anzahl_3Column) End Function _ Public Sub SetCMR_anzahl_3Null() Me(Me.tableCMR.CMR_anzahl_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_anzahl_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_anzahl_4Column) End Function _ Public Sub SetCMR_anzahl_4Null() Me(Me.tableCMR.CMR_anzahl_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_anzahl_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_anzahl_5Column) End Function _ Public Sub SetCMR_anzahl_5Null() Me(Me.tableCMR.CMR_anzahl_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_anzahl_6Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_anzahl_6Column) End Function _ Public Sub SetCMR_anzahl_6Null() Me(Me.tableCMR.CMR_anzahl_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_anzahl_7Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_anzahl_7Column) End Function _ Public Sub SetCMR_anzahl_7Null() Me(Me.tableCMR.CMR_anzahl_7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_anzahl_8Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_anzahl_8Column) End Function _ Public Sub SetCMR_anzahl_8Null() Me(Me.tableCMR.CMR_anzahl_8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_anzahl_9Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_anzahl_9Column) End Function _ Public Sub SetCMR_anzahl_9Null() Me(Me.tableCMR.CMR_anzahl_9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_pkArt_1Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_pkArt_1Column) End Function _ Public Sub SetCMR_pkArt_1Null() Me(Me.tableCMR.CMR_pkArt_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_pkArt_2Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_pkArt_2Column) End Function _ Public Sub SetCMR_pkArt_2Null() Me(Me.tableCMR.CMR_pkArt_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_pkArt_3Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_pkArt_3Column) End Function _ Public Sub SetCMR_pkArt_3Null() Me(Me.tableCMR.CMR_pkArt_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_pkArt_4Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_pkArt_4Column) End Function _ Public Sub SetCMR_pkArt_4Null() Me(Me.tableCMR.CMR_pkArt_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_pkArt_5Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_pkArt_5Column) End Function _ Public Sub SetCMR_pkArt_5Null() Me(Me.tableCMR.CMR_pkArt_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_pkArt_6Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_pkArt_6Column) End Function _ Public Sub SetCMR_pkArt_6Null() Me(Me.tableCMR.CMR_pkArt_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_pkArt_7Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_pkArt_7Column) End Function _ Public Sub SetCMR_pkArt_7Null() Me(Me.tableCMR.CMR_pkArt_7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_pkArt_8Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_pkArt_8Column) End Function _ Public Sub SetCMR_pkArt_8Null() Me(Me.tableCMR.CMR_pkArt_8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCMR_pkArt_9Null() As Boolean Return Me.IsNull(Me.tableCMR.CMR_pkArt_9Column) End Function _ Public Sub SetCMR_pkArt_9Null() Me(Me.tableCMR.CMR_pkArt_9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEPBes_IDNull() As Boolean Return Me.IsNull(Me.tableCMR.EPBes_IDColumn) End Function _ Public Sub SetEPBes_IDNull() Me(Me.tableCMR.EPBes_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableCMR.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableCMR.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class DevisenkurseRow Inherits Global.System.Data.DataRow Private tableDevisenkurse As DevisenkurseDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableDevisenkurse = CType(Me.Table,DevisenkurseDataTable) End Sub _ Public Property Währungsschlüssel() As Short Get Return CType(Me(Me.tableDevisenkurse.WährungsschlüsselColumn),Short) End Get Set Me(Me.tableDevisenkurse.WährungsschlüsselColumn) = value End Set End Property _ Public Property Monat() As Short Get Return CType(Me(Me.tableDevisenkurse.MonatColumn),Short) End Get Set Me(Me.tableDevisenkurse.MonatColumn) = value End Set End Property _ Public Property Kurs() As Double Get Return CType(Me(Me.tableDevisenkurse.KursColumn),Double) End Get Set Me(Me.tableDevisenkurse.KursColumn) = value End Set End Property _ Public Property Kurs1EUR() As Double Get Return CType(Me(Me.tableDevisenkurse.Kurs1EURColumn),Double) End Get Set Me(Me.tableDevisenkurse.Kurs1EURColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableDevisenkurse.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Devisenkurse ist DBNull.", e) End Try End Get Set Me(Me.tableDevisenkurse.SSMA_TimeStampColumn) = value End Set End Property _ Public Property WährungstabelleRow() As WährungstabelleRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Devisenkurse$Reference9")),WährungstabelleRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Devisenkurse$Reference9")) End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableDevisenkurse.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableDevisenkurse.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class EPBesRow Inherits Global.System.Data.DataRow Private tableEPBes As EPBesDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableEPBes = CType(Me.Table,EPBesDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tableEPBes.IDColumn),Integer) End Get Set Me(Me.tableEPBes.IDColumn) = value End Set End Property _ Public Property ANMELDUNG1() As String Get Try Return CType(Me(Me.tableEPBes.ANMELDUNG1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ANMELDUNG1 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.ANMELDUNG1Column) = value End Set End Property _ Public Property ANMELDUNG2() As String Get Try Return CType(Me(Me.tableEPBes.ANMELDUNG2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ANMELDUNG2 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.ANMELDUNG2Column) = value End Set End Property _ Public Property VersenderAusführerNr() As String Get Try Return CType(Me(Me.tableEPBes.VersenderAusführerNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VersenderAusführerNr in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.VersenderAusführerNrColumn) = value End Set End Property _ Public Property VersenderAusführer() As String Get Try Return CType(Me(Me.tableEPBes.VersenderAusführerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VersenderAusführer in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.VersenderAusführerColumn) = value End Set End Property _ Public Property Vordrucke1() As Byte Get Try Return CType(Me(Me.tableEPBes.Vordrucke1Column),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vordrucke1 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Vordrucke1Column) = value End Set End Property _ Public Property Vordrucke2() As Byte Get Try Return CType(Me(Me.tableEPBes.Vordrucke2Column),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vordrucke2 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Vordrucke2Column) = value End Set End Property _ Public Property Positionen() As Byte Get Try Return CType(Me(Me.tableEPBes.PositionenColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Positionen in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.PositionenColumn) = value End Set End Property _ Public Property EmpfängerNr() As String Get Try Return CType(Me(Me.tableEPBes.EmpfängerNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerNr in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.EmpfängerNrColumn) = value End Set End Property _ Public Property Empfänger() As String Get Try Return CType(Me(Me.tableEPBes.EmpfängerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Empfänger in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.EmpfängerColumn) = value End Set End Property _ Public Property Handelsland() As Short Get Try Return CType(Me(Me.tableEPBes.HandelslandColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Handelsland in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.HandelslandColumn) = value End Set End Property _ Public Property AnmelderVertreterNr() As String Get Try Return CType(Me(Me.tableEPBes.AnmelderVertreterNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AnmelderVertreterNr in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.AnmelderVertreterNrColumn) = value End Set End Property _ Public Property Anmelder() As String Get Try Return CType(Me(Me.tableEPBes.AnmelderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anmelder in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.AnmelderColumn) = value End Set End Property _ Public Property Vertreter() As String Get Try Return CType(Me(Me.tableEPBes.VertreterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vertreter in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.VertreterColumn) = value End Set End Property _ Public Property VersendungsAusfuhrland() As String Get Try Return CType(Me(Me.tableEPBes.VersendungsAusfuhrlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VersendungsAusfuhrland in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.VersendungsAusfuhrlandColumn) = value End Set End Property _ Public Property VersendungsAusfuhrlandCode() As Short Get Try Return CType(Me(Me.tableEPBes.VersendungsAusfuhrlandCodeColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VersendungsAusfuhrlandCode in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.VersendungsAusfuhrlandCodeColumn) = value End Set End Property _ Public Property Ursprungsland() As String Get Try Return CType(Me(Me.tableEPBes.UrsprungslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ursprungsland in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.UrsprungslandColumn) = value End Set End Property _ Public Property BestimmungslandCodeA() As Short Get Try Return CType(Me(Me.tableEPBes.BestimmungslandCodeAColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BestimmungslandCodeA in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BestimmungslandCodeAColumn) = value End Set End Property _ Public Property BestimmungslandCodeB() As Byte Get Try Return CType(Me(Me.tableEPBes.BestimmungslandCodeBColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BestimmungslandCodeB in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BestimmungslandCodeBColumn) = value End Set End Property _ Public Property KennzeichenAnkunft() As String Get Try Return CType(Me(Me.tableEPBes.KennzeichenAnkunftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KennzeichenAnkunft in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.KennzeichenAnkunftColumn) = value End Set End Property _ Public Property StaatszugehörigkeitAnkunft() As Short Get Try Return CType(Me(Me.tableEPBes.StaatszugehörigkeitAnkunftColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StaatszugehörigkeitAnkunft in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.StaatszugehörigkeitAnkunftColumn) = value End Set End Property _ Public Property Container() As Byte Get Try Return CType(Me(Me.tableEPBes.ContainerColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Container in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.ContainerColumn) = value End Set End Property _ Public Property LieferbedingungCode() As String Get Try Return CType(Me(Me.tableEPBes.LieferbedingungCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LieferbedingungCode in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.LieferbedingungCodeColumn) = value End Set End Property _ Public Property Lieferbedingung() As String Get Try Return CType(Me(Me.tableEPBes.LieferbedingungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferbedingung in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.LieferbedingungColumn) = value End Set End Property _ Public Property KennzeichenGrenze() As String Get Try Return CType(Me(Me.tableEPBes.KennzeichenGrenzeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KennzeichenGrenze in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.KennzeichenGrenzeColumn) = value End Set End Property _ Public Property StaatszugehörigkeitGrenze() As Short Get Try Return CType(Me(Me.tableEPBes.StaatszugehörigkeitGrenzeColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StaatszugehörigkeitGrenze in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.StaatszugehörigkeitGrenzeColumn) = value End Set End Property _ Public Property Währung() As Short Get Try Return CType(Me(Me.tableEPBes.WährungColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währung in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.WährungColumn) = value End Set End Property _ Public Property Rechnungsbetrag() As Decimal Get Try Return CType(Me(Me.tableEPBes.RechnungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsbetrag in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.RechnungsbetragColumn) = value End Set End Property _ Public Property Umrechnungskurs() As Double Get Try Return CType(Me(Me.tableEPBes.UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umrechnungskurs in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.UmrechnungskursColumn) = value End Set End Property _ Public Property Geschäftsart() As Byte Get Try Return CType(Me(Me.tableEPBes.GeschäftsartColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Geschäftsart in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.GeschäftsartColumn) = value End Set End Property _ Public Property VerkehrszweigGrenze() As Byte Get Try Return CType(Me(Me.tableEPBes.VerkehrszweigGrenzeColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VerkehrszweigGrenze in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.VerkehrszweigGrenzeColumn) = value End Set End Property _ Public Property InländischerVerkehrszweig() As Byte Get Try Return CType(Me(Me.tableEPBes.InländischerVerkehrszweigColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte InländischerVerkehrszweig in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.InländischerVerkehrszweigColumn) = value End Set End Property _ Public Property Entladeort() As String Get Try Return CType(Me(Me.tableEPBes.EntladeortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Entladeort in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.EntladeortColumn) = value End Set End Property _ Public Property Eingangszollstelle() As String Get Try Return CType(Me(Me.tableEPBes.EingangszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Eingangszollstelle in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.EingangszollstelleColumn) = value End Set End Property _ Public Property Warenort() As String Get Try Return CType(Me(Me.tableEPBes.WarenortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warenort in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.WarenortColumn) = value End Set End Property _ Public Property Packstücke() As String Get Try Return CType(Me(Me.tableEPBes.PackstückeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packstücke in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.PackstückeColumn) = value End Set End Property _ Public Property Warenbezeichnung() As String Get Try Return CType(Me(Me.tableEPBes.WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warenbezeichnung in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.WarenbezeichnungColumn) = value End Set End Property _ Public Property PositionsNr() As Byte Get Try Return CType(Me(Me.tableEPBes.PositionsNrColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PositionsNr in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.PositionsNrColumn) = value End Set End Property _ Public Property Warennummer1() As String Get Try Return CType(Me(Me.tableEPBes.Warennummer1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warennummer1 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Warennummer1Column) = value End Set End Property _ Public Property Warennummer2() As String Get Try Return CType(Me(Me.tableEPBes.Warennummer2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warennummer2 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Warennummer2Column) = value End Set End Property _ Public Property Warennummer3() As String Get Try Return CType(Me(Me.tableEPBes.Warennummer3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warennummer3 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Warennummer3Column) = value End Set End Property _ Public Property Warennummer4() As String Get Try Return CType(Me(Me.tableEPBes.Warennummer4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warennummer4 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Warennummer4Column) = value End Set End Property _ Public Property Warennummer5() As String Get Try Return CType(Me(Me.tableEPBes.Warennummer5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warennummer5 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Warennummer5Column) = value End Set End Property _ Public Property UrsprungslandCode() As Short Get Try Return CType(Me(Me.tableEPBes.UrsprungslandCodeColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UrsprungslandCode in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.UrsprungslandCodeColumn) = value End Set End Property _ Public Property Rohmasse() As Double Get Try Return CType(Me(Me.tableEPBes.RohmasseColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rohmasse in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.RohmasseColumn) = value End Set End Property _ Public Property Präferenz() As Short Get Try Return CType(Me(Me.tableEPBes.PräferenzColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Präferenz in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.PräferenzColumn) = value End Set End Property _ Public Property Verfahren() As String Get Try Return CType(Me(Me.tableEPBes.VerfahrenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Verfahren in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.VerfahrenColumn) = value End Set End Property _ Public Property Eigenmasse() As Double Get Try Return CType(Me(Me.tableEPBes.EigenmasseColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Eigenmasse in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.EigenmasseColumn) = value End Set End Property _ Public Property Kontingent() As Short Get Try Return CType(Me(Me.tableEPBes.KontingentColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kontingent in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.KontingentColumn) = value End Set End Property _ Public Property SumAnmeldungVorpapier() As String Get Try Return CType(Me(Me.tableEPBes.SumAnmeldungVorpapierColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SumAnmeldungVorpapier in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.SumAnmeldungVorpapierColumn) = value End Set End Property _ Public Property BesondereMasseinheit() As String Get Try Return CType(Me(Me.tableEPBes.BesondereMasseinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereMasseinheit in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereMasseinheitColumn) = value End Set End Property _ Public Property Vorsteuerabzug() As String Get Try Return CType(Me(Me.tableEPBes.VorsteuerabzugColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorsteuerabzug in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.VorsteuerabzugColumn) = value End Set End Property _ Public Property BesondereVermerke() As String Get Try Return CType(Me(Me.tableEPBes.BesondereVermerkeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerke in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereVermerkeColumn) = value End Set End Property _ Public Property BesondereVermerkeZeile1() As String Get Try Return CType(Me(Me.tableEPBes.BesondereVermerkeZeile1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerkeZeile1 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereVermerkeZeile1Column) = value End Set End Property _ Public Property BesondereVermerkeBetrag1() As Decimal Get Try Return CType(Me(Me.tableEPBes.BesondereVermerkeBetrag1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerkeBetrag1 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereVermerkeBetrag1Column) = value End Set End Property _ Public Property BesondereVermerkeHinweis1() As String Get Try Return CType(Me(Me.tableEPBes.BesondereVermerkeHinweis1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerkeHinweis1 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereVermerkeHinweis1Column) = value End Set End Property _ Public Property BesondereVermerkeZeile2() As String Get Try Return CType(Me(Me.tableEPBes.BesondereVermerkeZeile2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerkeZeile2 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereVermerkeZeile2Column) = value End Set End Property _ Public Property BesondereVermerkeBetrag2() As Decimal Get Try Return CType(Me(Me.tableEPBes.BesondereVermerkeBetrag2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerkeBetrag2 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereVermerkeBetrag2Column) = value End Set End Property _ Public Property BesondereVermerkeHinweis2() As String Get Try Return CType(Me(Me.tableEPBes.BesondereVermerkeHinweis2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerkeHinweis2 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereVermerkeHinweis2Column) = value End Set End Property _ Public Property BesondereVermerkeZeile3() As String Get Try Return CType(Me(Me.tableEPBes.BesondereVermerkeZeile3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerkeZeile3 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereVermerkeZeile3Column) = value End Set End Property _ Public Property BesondereVermerkeBetrag3() As Decimal Get Try Return CType(Me(Me.tableEPBes.BesondereVermerkeBetrag3Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerkeBetrag3 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereVermerkeBetrag3Column) = value End Set End Property _ Public Property BesondereVermerkeHinweis3() As String Get Try Return CType(Me(Me.tableEPBes.BesondereVermerkeHinweis3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerkeHinweis3 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BesondereVermerkeHinweis3Column) = value End Set End Property _ Public Property StatistischerWert() As Decimal Get Try Return CType(Me(Me.tableEPBes.StatistischerWertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StatistischerWert in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.StatistischerWertColumn) = value End Set End Property _ Public Property Summe() As Decimal Get Try Return CType(Me(Me.tableEPBes.SummeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Summe in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.SummeColumn) = value End Set End Property _ Public Property Zahlungsaufschub() As String Get Try Return CType(Me(Me.tableEPBes.ZahlungsaufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsaufschub in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.ZahlungsaufschubColumn) = value End Set End Property _ Public Property Lagerbezeichnung() As String Get Try Return CType(Me(Me.tableEPBes.LagerbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lagerbezeichnung in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.LagerbezeichnungColumn) = value End Set End Property _ Public Property AngabenFürVerbuchungszwecke() As String Get Try Return CType(Me(Me.tableEPBes.AngabenFürVerbuchungszweckeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AngabenFürVerbuchungszwecke in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.AngabenFürVerbuchungszweckeColumn) = value End Set End Property _ Public Property Ort() As String Get Try Return CType(Me(Me.tableEPBes.OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ort in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.OrtColumn) = value End Set End Property _ Public Property Datum() As Date Get Try Return CType(Me(Me.tableEPBes.DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datum in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.DatumColumn) = value End Set End Property _ Public Property Unterschrift() As String Get Try Return CType(Me(Me.tableEPBes.UnterschriftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unterschrift in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.UnterschriftColumn) = value End Set End Property _ Public Property ErstelltDatum() As Date Get Try Return CType(Me(Me.tableEPBes.ErstelltDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErstelltDatum in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.ErstelltDatumColumn) = value End Set End Property _ Public Property ErstelltSachbearbeiter() As String Get Try Return CType(Me(Me.tableEPBes.ErstelltSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErstelltSachbearbeiter in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.ErstelltSachbearbeiterColumn) = value End Set End Property _ Public Property GeändertDatum() As Date Get Try Return CType(Me(Me.tableEPBes.GeändertDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GeändertDatum in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.GeändertDatumColumn) = value End Set End Property _ Public Property GeändertSachbearbeiter() As String Get Try Return CType(Me(Me.tableEPBes.GeändertSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GeändertSachbearbeiter in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.GeändertSachbearbeiterColumn) = value End Set End Property _ Public Property GedrucktDatum() As Date Get Try Return CType(Me(Me.tableEPBes.GedrucktDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GedrucktDatum in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.GedrucktDatumColumn) = value End Set End Property _ Public Property GedrucktSachbearbeiter() As String Get Try Return CType(Me(Me.tableEPBes.GedrucktSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GedrucktSachbearbeiter in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.GedrucktSachbearbeiterColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tableEPBes.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tableEPBes.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Byte Get Try Return CType(Me(Me.tableEPBes.UnterNrColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UnterNr in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.UnterNrColumn) = value End Set End Property _ Public Property Formular() As String Get Try Return CType(Me(Me.tableEPBes.FormularColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Formular in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.FormularColumn) = value End Set End Property _ Public Property Zulassungsinhaber() As String Get Try Return CType(Me(Me.tableEPBes.ZulassungsinhaberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zulassungsinhaber in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.ZulassungsinhaberColumn) = value End Set End Property _ Public Property Bewilligungsnummer() As String Get Try Return CType(Me(Me.tableEPBes.BewilligungsnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bewilligungsnummer in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BewilligungsnummerColumn) = value End Set End Property _ Public Property Ordnungsnummer() As String Get Try Return CType(Me(Me.tableEPBes.OrdnungsnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ordnungsnummer in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.OrdnungsnummerColumn) = value End Set End Property _ Public Property Rechnungspositionsbetrag() As Decimal Get Try Return CType(Me(Me.tableEPBes.RechnungspositionsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungspositionsbetrag in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.RechnungspositionsbetragColumn) = value End Set End Property _ Public Property ANMELDUNG3() As String Get Try Return CType(Me(Me.tableEPBes.ANMELDUNG3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ANMELDUNG3 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.ANMELDUNG3Column) = value End Set End Property _ Public Property Ladelisten() As Byte Get Try Return CType(Me(Me.tableEPBes.LadelistenColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ladelisten in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.LadelistenColumn) = value End Set End Property _ Public Property Bestimmungsland() As String Get Try Return CType(Me(Me.tableEPBes.BestimmungslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bestimmungsland in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BestimmungslandColumn) = value End Set End Property _ Public Property Hauptverpflichteter() As String Get Try Return CType(Me(Me.tableEPBes.HauptverpflichteterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hauptverpflichteter in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.HauptverpflichteterColumn) = value End Set End Property _ Public Property HauptverpflichteterVertretenDurch() As String Get Try Return CType(Me(Me.tableEPBes.HauptverpflichteterVertretenDurchColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HauptverpflichteterVertretenDurch in Tabelle EPBes ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableEPBes.HauptverpflichteterVertretenDurchColumn) = value End Set End Property _ Public Property HauptverpflichteterOrtDatum() As String Get Try Return CType(Me(Me.tableEPBes.HauptverpflichteterOrtDatumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HauptverpflichteterOrtDatum in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.HauptverpflichteterOrtDatumColumn) = value End Set End Property _ Public Property Durchgangszollstelle1() As String Get Try Return CType(Me(Me.tableEPBes.Durchgangszollstelle1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Durchgangszollstelle1 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Durchgangszollstelle1Column) = value End Set End Property _ Public Property Durchgangszollstelle2() As String Get Try Return CType(Me(Me.tableEPBes.Durchgangszollstelle2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Durchgangszollstelle2 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Durchgangszollstelle2Column) = value End Set End Property _ Public Property Durchgangszollstelle3() As String Get Try Return CType(Me(Me.tableEPBes.Durchgangszollstelle3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Durchgangszollstelle3 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Durchgangszollstelle3Column) = value End Set End Property _ Public Property Durchgangszollstelle4() As String Get Try Return CType(Me(Me.tableEPBes.Durchgangszollstelle4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Durchgangszollstelle4 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Durchgangszollstelle4Column) = value End Set End Property _ Public Property Durchgangszollstelle5() As String Get Try Return CType(Me(Me.tableEPBes.Durchgangszollstelle5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Durchgangszollstelle5 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Durchgangszollstelle5Column) = value End Set End Property _ Public Property Durchgangszollstelle6() As String Get Try Return CType(Me(Me.tableEPBes.Durchgangszollstelle6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Durchgangszollstelle6 in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.Durchgangszollstelle6Column) = value End Set End Property _ Public Property Sicherheit() As String Get Try Return CType(Me(Me.tableEPBes.SicherheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sicherheit in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.SicherheitColumn) = value End Set End Property _ Public Property SicherheitCode() As Byte Get Try Return CType(Me(Me.tableEPBes.SicherheitCodeColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SicherheitCode in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.SicherheitCodeColumn) = value End Set End Property _ Public Property Bestimmungsstelle() As String Get Try Return CType(Me(Me.tableEPBes.BestimmungsstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bestimmungsstelle in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BestimmungsstelleColumn) = value End Set End Property _ Public Property HauptverpflichteterNr() As String Get Try Return CType(Me(Me.tableEPBes.HauptverpflichteterNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HauptverpflichteterNr in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.HauptverpflichteterNrColumn) = value End Set End Property _ Public Property Skontobetrag() As Decimal Get Try Return CType(Me(Me.tableEPBes.SkontobetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Skontobetrag in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.SkontobetragColumn) = value End Set End Property _ Public Property Artikelpreis() As Decimal Get Try Return CType(Me(Me.tableEPBes.ArtikelpreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Artikelpreis in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.ArtikelpreisColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableEPBes.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Bemessungsgrundlage() As String Get Try Return CType(Me(Me.tableEPBes.BemessungsgrundlageColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemessungsgrundlage in Tabelle EPBes ist DBNull.", e) End Try End Get Set Me(Me.tableEPBes.BemessungsgrundlageColumn) = value End Set End Property _ Public Function IsANMELDUNG1Null() As Boolean Return Me.IsNull(Me.tableEPBes.ANMELDUNG1Column) End Function _ Public Sub SetANMELDUNG1Null() Me(Me.tableEPBes.ANMELDUNG1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsANMELDUNG2Null() As Boolean Return Me.IsNull(Me.tableEPBes.ANMELDUNG2Column) End Function _ Public Sub SetANMELDUNG2Null() Me(Me.tableEPBes.ANMELDUNG2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsVersenderAusführerNrNull() As Boolean Return Me.IsNull(Me.tableEPBes.VersenderAusführerNrColumn) End Function _ Public Sub SetVersenderAusführerNrNull() Me(Me.tableEPBes.VersenderAusführerNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVersenderAusführerNull() As Boolean Return Me.IsNull(Me.tableEPBes.VersenderAusführerColumn) End Function _ Public Sub SetVersenderAusführerNull() Me(Me.tableEPBes.VersenderAusführerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVordrucke1Null() As Boolean Return Me.IsNull(Me.tableEPBes.Vordrucke1Column) End Function _ Public Sub SetVordrucke1Null() Me(Me.tableEPBes.Vordrucke1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsVordrucke2Null() As Boolean Return Me.IsNull(Me.tableEPBes.Vordrucke2Column) End Function _ Public Sub SetVordrucke2Null() Me(Me.tableEPBes.Vordrucke2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsPositionenNull() As Boolean Return Me.IsNull(Me.tableEPBes.PositionenColumn) End Function _ Public Sub SetPositionenNull() Me(Me.tableEPBes.PositionenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerNrNull() As Boolean Return Me.IsNull(Me.tableEPBes.EmpfängerNrColumn) End Function _ Public Sub SetEmpfängerNrNull() Me(Me.tableEPBes.EmpfängerNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerNull() As Boolean Return Me.IsNull(Me.tableEPBes.EmpfängerColumn) End Function _ Public Sub SetEmpfängerNull() Me(Me.tableEPBes.EmpfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHandelslandNull() As Boolean Return Me.IsNull(Me.tableEPBes.HandelslandColumn) End Function _ Public Sub SetHandelslandNull() Me(Me.tableEPBes.HandelslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnmelderVertreterNrNull() As Boolean Return Me.IsNull(Me.tableEPBes.AnmelderVertreterNrColumn) End Function _ Public Sub SetAnmelderVertreterNrNull() Me(Me.tableEPBes.AnmelderVertreterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnmelderNull() As Boolean Return Me.IsNull(Me.tableEPBes.AnmelderColumn) End Function _ Public Sub SetAnmelderNull() Me(Me.tableEPBes.AnmelderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVertreterNull() As Boolean Return Me.IsNull(Me.tableEPBes.VertreterColumn) End Function _ Public Sub SetVertreterNull() Me(Me.tableEPBes.VertreterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVersendungsAusfuhrlandNull() As Boolean Return Me.IsNull(Me.tableEPBes.VersendungsAusfuhrlandColumn) End Function _ Public Sub SetVersendungsAusfuhrlandNull() Me(Me.tableEPBes.VersendungsAusfuhrlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVersendungsAusfuhrlandCodeNull() As Boolean Return Me.IsNull(Me.tableEPBes.VersendungsAusfuhrlandCodeColumn) End Function _ Public Sub SetVersendungsAusfuhrlandCodeNull() Me(Me.tableEPBes.VersendungsAusfuhrlandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUrsprungslandNull() As Boolean Return Me.IsNull(Me.tableEPBes.UrsprungslandColumn) End Function _ Public Sub SetUrsprungslandNull() Me(Me.tableEPBes.UrsprungslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungslandCodeANull() As Boolean Return Me.IsNull(Me.tableEPBes.BestimmungslandCodeAColumn) End Function _ Public Sub SetBestimmungslandCodeANull() Me(Me.tableEPBes.BestimmungslandCodeAColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungslandCodeBNull() As Boolean Return Me.IsNull(Me.tableEPBes.BestimmungslandCodeBColumn) End Function _ Public Sub SetBestimmungslandCodeBNull() Me(Me.tableEPBes.BestimmungslandCodeBColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKennzeichenAnkunftNull() As Boolean Return Me.IsNull(Me.tableEPBes.KennzeichenAnkunftColumn) End Function _ Public Sub SetKennzeichenAnkunftNull() Me(Me.tableEPBes.KennzeichenAnkunftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStaatszugehörigkeitAnkunftNull() As Boolean Return Me.IsNull(Me.tableEPBes.StaatszugehörigkeitAnkunftColumn) End Function _ Public Sub SetStaatszugehörigkeitAnkunftNull() Me(Me.tableEPBes.StaatszugehörigkeitAnkunftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsContainerNull() As Boolean Return Me.IsNull(Me.tableEPBes.ContainerColumn) End Function _ Public Sub SetContainerNull() Me(Me.tableEPBes.ContainerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferbedingungCodeNull() As Boolean Return Me.IsNull(Me.tableEPBes.LieferbedingungCodeColumn) End Function _ Public Sub SetLieferbedingungCodeNull() Me(Me.tableEPBes.LieferbedingungCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferbedingungNull() As Boolean Return Me.IsNull(Me.tableEPBes.LieferbedingungColumn) End Function _ Public Sub SetLieferbedingungNull() Me(Me.tableEPBes.LieferbedingungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKennzeichenGrenzeNull() As Boolean Return Me.IsNull(Me.tableEPBes.KennzeichenGrenzeColumn) End Function _ Public Sub SetKennzeichenGrenzeNull() Me(Me.tableEPBes.KennzeichenGrenzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStaatszugehörigkeitGrenzeNull() As Boolean Return Me.IsNull(Me.tableEPBes.StaatszugehörigkeitGrenzeColumn) End Function _ Public Sub SetStaatszugehörigkeitGrenzeNull() Me(Me.tableEPBes.StaatszugehörigkeitGrenzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungNull() As Boolean Return Me.IsNull(Me.tableEPBes.WährungColumn) End Function _ Public Sub SetWährungNull() Me(Me.tableEPBes.WährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragNull() As Boolean Return Me.IsNull(Me.tableEPBes.RechnungsbetragColumn) End Function _ Public Sub SetRechnungsbetragNull() Me(Me.tableEPBes.RechnungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmrechnungskursNull() As Boolean Return Me.IsNull(Me.tableEPBes.UmrechnungskursColumn) End Function _ Public Sub SetUmrechnungskursNull() Me(Me.tableEPBes.UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeschäftsartNull() As Boolean Return Me.IsNull(Me.tableEPBes.GeschäftsartColumn) End Function _ Public Sub SetGeschäftsartNull() Me(Me.tableEPBes.GeschäftsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVerkehrszweigGrenzeNull() As Boolean Return Me.IsNull(Me.tableEPBes.VerkehrszweigGrenzeColumn) End Function _ Public Sub SetVerkehrszweigGrenzeNull() Me(Me.tableEPBes.VerkehrszweigGrenzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsInländischerVerkehrszweigNull() As Boolean Return Me.IsNull(Me.tableEPBes.InländischerVerkehrszweigColumn) End Function _ Public Sub SetInländischerVerkehrszweigNull() Me(Me.tableEPBes.InländischerVerkehrszweigColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEntladeortNull() As Boolean Return Me.IsNull(Me.tableEPBes.EntladeortColumn) End Function _ Public Sub SetEntladeortNull() Me(Me.tableEPBes.EntladeortColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEingangszollstelleNull() As Boolean Return Me.IsNull(Me.tableEPBes.EingangszollstelleColumn) End Function _ Public Sub SetEingangszollstelleNull() Me(Me.tableEPBes.EingangszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWarenortNull() As Boolean Return Me.IsNull(Me.tableEPBes.WarenortColumn) End Function _ Public Sub SetWarenortNull() Me(Me.tableEPBes.WarenortColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPackstückeNull() As Boolean Return Me.IsNull(Me.tableEPBes.PackstückeColumn) End Function _ Public Sub SetPackstückeNull() Me(Me.tableEPBes.PackstückeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tableEPBes.WarenbezeichnungColumn) End Function _ Public Sub SetWarenbezeichnungNull() Me(Me.tableEPBes.WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPositionsNrNull() As Boolean Return Me.IsNull(Me.tableEPBes.PositionsNrColumn) End Function _ Public Sub SetPositionsNrNull() Me(Me.tableEPBes.PositionsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWarennummer1Null() As Boolean Return Me.IsNull(Me.tableEPBes.Warennummer1Column) End Function _ Public Sub SetWarennummer1Null() Me(Me.tableEPBes.Warennummer1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWarennummer2Null() As Boolean Return Me.IsNull(Me.tableEPBes.Warennummer2Column) End Function _ Public Sub SetWarennummer2Null() Me(Me.tableEPBes.Warennummer2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWarennummer3Null() As Boolean Return Me.IsNull(Me.tableEPBes.Warennummer3Column) End Function _ Public Sub SetWarennummer3Null() Me(Me.tableEPBes.Warennummer3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWarennummer4Null() As Boolean Return Me.IsNull(Me.tableEPBes.Warennummer4Column) End Function _ Public Sub SetWarennummer4Null() Me(Me.tableEPBes.Warennummer4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWarennummer5Null() As Boolean Return Me.IsNull(Me.tableEPBes.Warennummer5Column) End Function _ Public Sub SetWarennummer5Null() Me(Me.tableEPBes.Warennummer5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsUrsprungslandCodeNull() As Boolean Return Me.IsNull(Me.tableEPBes.UrsprungslandCodeColumn) End Function _ Public Sub SetUrsprungslandCodeNull() Me(Me.tableEPBes.UrsprungslandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRohmasseNull() As Boolean Return Me.IsNull(Me.tableEPBes.RohmasseColumn) End Function _ Public Sub SetRohmasseNull() Me(Me.tableEPBes.RohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPräferenzNull() As Boolean Return Me.IsNull(Me.tableEPBes.PräferenzColumn) End Function _ Public Sub SetPräferenzNull() Me(Me.tableEPBes.PräferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVerfahrenNull() As Boolean Return Me.IsNull(Me.tableEPBes.VerfahrenColumn) End Function _ Public Sub SetVerfahrenNull() Me(Me.tableEPBes.VerfahrenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEigenmasseNull() As Boolean Return Me.IsNull(Me.tableEPBes.EigenmasseColumn) End Function _ Public Sub SetEigenmasseNull() Me(Me.tableEPBes.EigenmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKontingentNull() As Boolean Return Me.IsNull(Me.tableEPBes.KontingentColumn) End Function _ Public Sub SetKontingentNull() Me(Me.tableEPBes.KontingentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSumAnmeldungVorpapierNull() As Boolean Return Me.IsNull(Me.tableEPBes.SumAnmeldungVorpapierColumn) End Function _ Public Sub SetSumAnmeldungVorpapierNull() Me(Me.tableEPBes.SumAnmeldungVorpapierColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereMasseinheitNull() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereMasseinheitColumn) End Function _ Public Sub SetBesondereMasseinheitNull() Me(Me.tableEPBes.BesondereMasseinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorsteuerabzugNull() As Boolean Return Me.IsNull(Me.tableEPBes.VorsteuerabzugColumn) End Function _ Public Sub SetVorsteuerabzugNull() Me(Me.tableEPBes.VorsteuerabzugColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeNull() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereVermerkeColumn) End Function _ Public Sub SetBesondereVermerkeNull() Me(Me.tableEPBes.BesondereVermerkeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeZeile1Null() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereVermerkeZeile1Column) End Function _ Public Sub SetBesondereVermerkeZeile1Null() Me(Me.tableEPBes.BesondereVermerkeZeile1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeBetrag1Null() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereVermerkeBetrag1Column) End Function _ Public Sub SetBesondereVermerkeBetrag1Null() Me(Me.tableEPBes.BesondereVermerkeBetrag1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeHinweis1Null() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereVermerkeHinweis1Column) End Function _ Public Sub SetBesondereVermerkeHinweis1Null() Me(Me.tableEPBes.BesondereVermerkeHinweis1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeZeile2Null() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereVermerkeZeile2Column) End Function _ Public Sub SetBesondereVermerkeZeile2Null() Me(Me.tableEPBes.BesondereVermerkeZeile2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeBetrag2Null() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereVermerkeBetrag2Column) End Function _ Public Sub SetBesondereVermerkeBetrag2Null() Me(Me.tableEPBes.BesondereVermerkeBetrag2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeHinweis2Null() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereVermerkeHinweis2Column) End Function _ Public Sub SetBesondereVermerkeHinweis2Null() Me(Me.tableEPBes.BesondereVermerkeHinweis2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeZeile3Null() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereVermerkeZeile3Column) End Function _ Public Sub SetBesondereVermerkeZeile3Null() Me(Me.tableEPBes.BesondereVermerkeZeile3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeBetrag3Null() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereVermerkeBetrag3Column) End Function _ Public Sub SetBesondereVermerkeBetrag3Null() Me(Me.tableEPBes.BesondereVermerkeBetrag3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeHinweis3Null() As Boolean Return Me.IsNull(Me.tableEPBes.BesondereVermerkeHinweis3Column) End Function _ Public Sub SetBesondereVermerkeHinweis3Null() Me(Me.tableEPBes.BesondereVermerkeHinweis3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsStatistischerWertNull() As Boolean Return Me.IsNull(Me.tableEPBes.StatistischerWertColumn) End Function _ Public Sub SetStatistischerWertNull() Me(Me.tableEPBes.StatistischerWertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSummeNull() As Boolean Return Me.IsNull(Me.tableEPBes.SummeColumn) End Function _ Public Sub SetSummeNull() Me(Me.tableEPBes.SummeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsaufschubNull() As Boolean Return Me.IsNull(Me.tableEPBes.ZahlungsaufschubColumn) End Function _ Public Sub SetZahlungsaufschubNull() Me(Me.tableEPBes.ZahlungsaufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLagerbezeichnungNull() As Boolean Return Me.IsNull(Me.tableEPBes.LagerbezeichnungColumn) End Function _ Public Sub SetLagerbezeichnungNull() Me(Me.tableEPBes.LagerbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAngabenFürVerbuchungszweckeNull() As Boolean Return Me.IsNull(Me.tableEPBes.AngabenFürVerbuchungszweckeColumn) End Function _ Public Sub SetAngabenFürVerbuchungszweckeNull() Me(Me.tableEPBes.AngabenFürVerbuchungszweckeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOrtNull() As Boolean Return Me.IsNull(Me.tableEPBes.OrtColumn) End Function _ Public Sub SetOrtNull() Me(Me.tableEPBes.OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatumNull() As Boolean Return Me.IsNull(Me.tableEPBes.DatumColumn) End Function _ Public Sub SetDatumNull() Me(Me.tableEPBes.DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUnterschriftNull() As Boolean Return Me.IsNull(Me.tableEPBes.UnterschriftColumn) End Function _ Public Sub SetUnterschriftNull() Me(Me.tableEPBes.UnterschriftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErstelltDatumNull() As Boolean Return Me.IsNull(Me.tableEPBes.ErstelltDatumColumn) End Function _ Public Sub SetErstelltDatumNull() Me(Me.tableEPBes.ErstelltDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErstelltSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableEPBes.ErstelltSachbearbeiterColumn) End Function _ Public Sub SetErstelltSachbearbeiterNull() Me(Me.tableEPBes.ErstelltSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändertDatumNull() As Boolean Return Me.IsNull(Me.tableEPBes.GeändertDatumColumn) End Function _ Public Sub SetGeändertDatumNull() Me(Me.tableEPBes.GeändertDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändertSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableEPBes.GeändertSachbearbeiterColumn) End Function _ Public Sub SetGeändertSachbearbeiterNull() Me(Me.tableEPBes.GeändertSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGedrucktDatumNull() As Boolean Return Me.IsNull(Me.tableEPBes.GedrucktDatumColumn) End Function _ Public Sub SetGedrucktDatumNull() Me(Me.tableEPBes.GedrucktDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGedrucktSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableEPBes.GedrucktSachbearbeiterColumn) End Function _ Public Sub SetGedrucktSachbearbeiterNull() Me(Me.tableEPBes.GedrucktSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tableEPBes.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tableEPBes.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tableEPBes.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tableEPBes.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUnterNrNull() As Boolean Return Me.IsNull(Me.tableEPBes.UnterNrColumn) End Function _ Public Sub SetUnterNrNull() Me(Me.tableEPBes.UnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFormularNull() As Boolean Return Me.IsNull(Me.tableEPBes.FormularColumn) End Function _ Public Sub SetFormularNull() Me(Me.tableEPBes.FormularColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZulassungsinhaberNull() As Boolean Return Me.IsNull(Me.tableEPBes.ZulassungsinhaberColumn) End Function _ Public Sub SetZulassungsinhaberNull() Me(Me.tableEPBes.ZulassungsinhaberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBewilligungsnummerNull() As Boolean Return Me.IsNull(Me.tableEPBes.BewilligungsnummerColumn) End Function _ Public Sub SetBewilligungsnummerNull() Me(Me.tableEPBes.BewilligungsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOrdnungsnummerNull() As Boolean Return Me.IsNull(Me.tableEPBes.OrdnungsnummerColumn) End Function _ Public Sub SetOrdnungsnummerNull() Me(Me.tableEPBes.OrdnungsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungspositionsbetragNull() As Boolean Return Me.IsNull(Me.tableEPBes.RechnungspositionsbetragColumn) End Function _ Public Sub SetRechnungspositionsbetragNull() Me(Me.tableEPBes.RechnungspositionsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsANMELDUNG3Null() As Boolean Return Me.IsNull(Me.tableEPBes.ANMELDUNG3Column) End Function _ Public Sub SetANMELDUNG3Null() Me(Me.tableEPBes.ANMELDUNG3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsLadelistenNull() As Boolean Return Me.IsNull(Me.tableEPBes.LadelistenColumn) End Function _ Public Sub SetLadelistenNull() Me(Me.tableEPBes.LadelistenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungslandNull() As Boolean Return Me.IsNull(Me.tableEPBes.BestimmungslandColumn) End Function _ Public Sub SetBestimmungslandNull() Me(Me.tableEPBes.BestimmungslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHauptverpflichteterNull() As Boolean Return Me.IsNull(Me.tableEPBes.HauptverpflichteterColumn) End Function _ Public Sub SetHauptverpflichteterNull() Me(Me.tableEPBes.HauptverpflichteterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHauptverpflichteterVertretenDurchNull() As Boolean Return Me.IsNull(Me.tableEPBes.HauptverpflichteterVertretenDurchColumn) End Function _ Public Sub SetHauptverpflichteterVertretenDurchNull() Me(Me.tableEPBes.HauptverpflichteterVertretenDurchColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHauptverpflichteterOrtDatumNull() As Boolean Return Me.IsNull(Me.tableEPBes.HauptverpflichteterOrtDatumColumn) End Function _ Public Sub SetHauptverpflichteterOrtDatumNull() Me(Me.tableEPBes.HauptverpflichteterOrtDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDurchgangszollstelle1Null() As Boolean Return Me.IsNull(Me.tableEPBes.Durchgangszollstelle1Column) End Function _ Public Sub SetDurchgangszollstelle1Null() Me(Me.tableEPBes.Durchgangszollstelle1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsDurchgangszollstelle2Null() As Boolean Return Me.IsNull(Me.tableEPBes.Durchgangszollstelle2Column) End Function _ Public Sub SetDurchgangszollstelle2Null() Me(Me.tableEPBes.Durchgangszollstelle2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsDurchgangszollstelle3Null() As Boolean Return Me.IsNull(Me.tableEPBes.Durchgangszollstelle3Column) End Function _ Public Sub SetDurchgangszollstelle3Null() Me(Me.tableEPBes.Durchgangszollstelle3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsDurchgangszollstelle4Null() As Boolean Return Me.IsNull(Me.tableEPBes.Durchgangszollstelle4Column) End Function _ Public Sub SetDurchgangszollstelle4Null() Me(Me.tableEPBes.Durchgangszollstelle4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsDurchgangszollstelle5Null() As Boolean Return Me.IsNull(Me.tableEPBes.Durchgangszollstelle5Column) End Function _ Public Sub SetDurchgangszollstelle5Null() Me(Me.tableEPBes.Durchgangszollstelle5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsDurchgangszollstelle6Null() As Boolean Return Me.IsNull(Me.tableEPBes.Durchgangszollstelle6Column) End Function _ Public Sub SetDurchgangszollstelle6Null() Me(Me.tableEPBes.Durchgangszollstelle6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSicherheitNull() As Boolean Return Me.IsNull(Me.tableEPBes.SicherheitColumn) End Function _ Public Sub SetSicherheitNull() Me(Me.tableEPBes.SicherheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSicherheitCodeNull() As Boolean Return Me.IsNull(Me.tableEPBes.SicherheitCodeColumn) End Function _ Public Sub SetSicherheitCodeNull() Me(Me.tableEPBes.SicherheitCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungsstelleNull() As Boolean Return Me.IsNull(Me.tableEPBes.BestimmungsstelleColumn) End Function _ Public Sub SetBestimmungsstelleNull() Me(Me.tableEPBes.BestimmungsstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHauptverpflichteterNrNull() As Boolean Return Me.IsNull(Me.tableEPBes.HauptverpflichteterNrColumn) End Function _ Public Sub SetHauptverpflichteterNrNull() Me(Me.tableEPBes.HauptverpflichteterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSkontobetragNull() As Boolean Return Me.IsNull(Me.tableEPBes.SkontobetragColumn) End Function _ Public Sub SetSkontobetragNull() Me(Me.tableEPBes.SkontobetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsArtikelpreisNull() As Boolean Return Me.IsNull(Me.tableEPBes.ArtikelpreisColumn) End Function _ Public Sub SetArtikelpreisNull() Me(Me.tableEPBes.ArtikelpreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableEPBes.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableEPBes.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemessungsgrundlageNull() As Boolean Return Me.IsNull(Me.tableEPBes.BemessungsgrundlageColumn) End Function _ Public Sub SetBemessungsgrundlageNull() Me(Me.tableEPBes.BemessungsgrundlageColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class EPBesPOSRow Inherits Global.System.Data.DataRow Private tableEPBesPOS As EPBesPOSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableEPBesPOS = CType(Me.Table,EPBesPOSDataTable) End Sub _ Public Property EPBes_ID() As Integer Get Return CType(Me(Me.tableEPBesPOS.EPBes_IDColumn),Integer) End Get Set Me(Me.tableEPBesPOS.EPBes_IDColumn) = value End Set End Property _ Public Property Packstücke() As String Get Try Return CType(Me(Me.tableEPBesPOS.PackstückeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packstücke in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.PackstückeColumn) = value End Set End Property _ Public Property Warenbezeichnung() As String Get Try Return CType(Me(Me.tableEPBesPOS.WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warenbezeichnung in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.WarenbezeichnungColumn) = value End Set End Property _ Public Property PositionsNr() As Byte Get Try Return CType(Me(Me.tableEPBesPOS.PositionsNrColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PositionsNr in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.PositionsNrColumn) = value End Set End Property _ Public Property Warennummer1() As String Get Try Return CType(Me(Me.tableEPBesPOS.Warennummer1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warennummer1 in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.Warennummer1Column) = value End Set End Property _ Public Property Warennummer2() As String Get Try Return CType(Me(Me.tableEPBesPOS.Warennummer2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warennummer2 in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.Warennummer2Column) = value End Set End Property _ Public Property Warennummer3() As String Get Try Return CType(Me(Me.tableEPBesPOS.Warennummer3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warennummer3 in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.Warennummer3Column) = value End Set End Property _ Public Property Warennummer4() As String Get Try Return CType(Me(Me.tableEPBesPOS.Warennummer4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warennummer4 in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.Warennummer4Column) = value End Set End Property _ Public Property Warennummer5() As String Get Try Return CType(Me(Me.tableEPBesPOS.Warennummer5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warennummer5 in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.Warennummer5Column) = value End Set End Property _ Public Property UrsprungslandCode() As Short Get Try Return CType(Me(Me.tableEPBesPOS.UrsprungslandCodeColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UrsprungslandCode in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.UrsprungslandCodeColumn) = value End Set End Property _ Public Property Rohmasse() As Double Get Try Return CType(Me(Me.tableEPBesPOS.RohmasseColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rohmasse in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.RohmasseColumn) = value End Set End Property _ Public Property Präferenz() As Short Get Try Return CType(Me(Me.tableEPBesPOS.PräferenzColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Präferenz in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.PräferenzColumn) = value End Set End Property _ Public Property Verfahren() As String Get Try Return CType(Me(Me.tableEPBesPOS.VerfahrenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Verfahren in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.VerfahrenColumn) = value End Set End Property _ Public Property Eigenmasse() As Double Get Try Return CType(Me(Me.tableEPBesPOS.EigenmasseColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Eigenmasse in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.EigenmasseColumn) = value End Set End Property _ Public Property Kontingent() As Short Get Try Return CType(Me(Me.tableEPBesPOS.KontingentColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kontingent in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.KontingentColumn) = value End Set End Property _ Public Property SumAnmeldungVorpapier() As String Get Try Return CType(Me(Me.tableEPBesPOS.SumAnmeldungVorpapierColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SumAnmeldungVorpapier in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.SumAnmeldungVorpapierColumn) = value End Set End Property _ Public Property BesondereMasseinheit() As String Get Try Return CType(Me(Me.tableEPBesPOS.BesondereMasseinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereMasseinheit in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.BesondereMasseinheitColumn) = value End Set End Property _ Public Property Vorsteuerabzug() As String Get Try Return CType(Me(Me.tableEPBesPOS.VorsteuerabzugColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorsteuerabzug in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.VorsteuerabzugColumn) = value End Set End Property _ Public Property BesondereVermerke() As String Get Try Return CType(Me(Me.tableEPBesPOS.BesondereVermerkeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereVermerke in Tabelle EPBesPOS ist DBNull.", e) End Try End Get Set Me(Me.tableEPBesPOS.BesondereVermerkeColumn) = value End Set End Property _ Public Function IsPackstückeNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.PackstückeColumn) End Function _ Public Sub SetPackstückeNull() Me(Me.tableEPBesPOS.PackstückeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.WarenbezeichnungColumn) End Function _ Public Sub SetWarenbezeichnungNull() Me(Me.tableEPBesPOS.WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPositionsNrNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.PositionsNrColumn) End Function _ Public Sub SetPositionsNrNull() Me(Me.tableEPBesPOS.PositionsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWarennummer1Null() As Boolean Return Me.IsNull(Me.tableEPBesPOS.Warennummer1Column) End Function _ Public Sub SetWarennummer1Null() Me(Me.tableEPBesPOS.Warennummer1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWarennummer2Null() As Boolean Return Me.IsNull(Me.tableEPBesPOS.Warennummer2Column) End Function _ Public Sub SetWarennummer2Null() Me(Me.tableEPBesPOS.Warennummer2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWarennummer3Null() As Boolean Return Me.IsNull(Me.tableEPBesPOS.Warennummer3Column) End Function _ Public Sub SetWarennummer3Null() Me(Me.tableEPBesPOS.Warennummer3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWarennummer4Null() As Boolean Return Me.IsNull(Me.tableEPBesPOS.Warennummer4Column) End Function _ Public Sub SetWarennummer4Null() Me(Me.tableEPBesPOS.Warennummer4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWarennummer5Null() As Boolean Return Me.IsNull(Me.tableEPBesPOS.Warennummer5Column) End Function _ Public Sub SetWarennummer5Null() Me(Me.tableEPBesPOS.Warennummer5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsUrsprungslandCodeNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.UrsprungslandCodeColumn) End Function _ Public Sub SetUrsprungslandCodeNull() Me(Me.tableEPBesPOS.UrsprungslandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRohmasseNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.RohmasseColumn) End Function _ Public Sub SetRohmasseNull() Me(Me.tableEPBesPOS.RohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPräferenzNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.PräferenzColumn) End Function _ Public Sub SetPräferenzNull() Me(Me.tableEPBesPOS.PräferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVerfahrenNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.VerfahrenColumn) End Function _ Public Sub SetVerfahrenNull() Me(Me.tableEPBesPOS.VerfahrenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEigenmasseNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.EigenmasseColumn) End Function _ Public Sub SetEigenmasseNull() Me(Me.tableEPBesPOS.EigenmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKontingentNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.KontingentColumn) End Function _ Public Sub SetKontingentNull() Me(Me.tableEPBesPOS.KontingentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSumAnmeldungVorpapierNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.SumAnmeldungVorpapierColumn) End Function _ Public Sub SetSumAnmeldungVorpapierNull() Me(Me.tableEPBesPOS.SumAnmeldungVorpapierColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereMasseinheitNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.BesondereMasseinheitColumn) End Function _ Public Sub SetBesondereMasseinheitNull() Me(Me.tableEPBesPOS.BesondereMasseinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorsteuerabzugNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.VorsteuerabzugColumn) End Function _ Public Sub SetVorsteuerabzugNull() Me(Me.tableEPBesPOS.VorsteuerabzugColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereVermerkeNull() As Boolean Return Me.IsNull(Me.tableEPBesPOS.BesondereVermerkeColumn) End Function _ Public Sub SetBesondereVermerkeNull() Me(Me.tableEPBesPOS.BesondereVermerkeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class FilialenRow Inherits Global.System.Data.DataRow Private tableFilialen As FilialenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableFilialen = CType(Me.Table,FilialenDataTable) End Sub _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tableFilialen.FilialenNrColumn),Short) End Get Set Me(Me.tableFilialen.FilialenNrColumn) = value End Set End Property _ Public Property Stammfiliale() As Boolean Get Try Return CType(Me(Me.tableFilialen.StammfilialeColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Stammfiliale in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.StammfilialeColumn) = value End Set End Property _ Public Property Grenzstelle() As String Get Return CType(Me(Me.tableFilialen.GrenzstelleColumn),String) End Get Set Me(Me.tableFilialen.GrenzstelleColumn) = value End Set End Property _ Public Property Speditionsbuch() As Short Get Return CType(Me(Me.tableFilialen.SpeditionsbuchColumn),Short) End Get Set Me(Me.tableFilialen.SpeditionsbuchColumn) = value End Set End Property _ Public Property Name_1() As String Get Try Return CType(Me(Me.tableFilialen.Name_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name 1 in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.Name_1Column) = value End Set End Property _ Public Property Name_2() As String Get Try Return CType(Me(Me.tableFilialen.Name_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name 2 in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.Name_2Column) = value End Set End Property _ Public Property Postfach() As String Get Try Return CType(Me(Me.tableFilialen.PostfachColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Postfach in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.PostfachColumn) = value End Set End Property _ Public Property PLZPF() As String Get Try Return CType(Me(Me.tableFilialen.PLZPFColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLZPF in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.PLZPFColumn) = value End Set End Property _ Public Property Straße() As String Get Try Return CType(Me(Me.tableFilialen.StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Straße in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.StraßeColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tableFilialen.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.LandKzColumn) = value End Set End Property _ Public Property PLZ() As String Get Try Return CType(Me(Me.tableFilialen.PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLZ in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.PLZColumn) = value End Set End Property _ Public Property Ort() As String Get Try Return CType(Me(Me.tableFilialen.OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ort in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.OrtColumn) = value End Set End Property _ Public Property Telefon() As String Get Try Return CType(Me(Me.tableFilialen.TelefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telefon in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.TelefonColumn) = value End Set End Property _ Public Property Telefax() As String Get Try Return CType(Me(Me.tableFilialen.TelefaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telefax in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.TelefaxColumn) = value End Set End Property _ Public Property _E_Mail() As String Get Try Return CType(Me(Me.tableFilialen._E_MailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte E-Mail in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen._E_MailColumn) = value End Set End Property _ Public Property UstIdKz() As String Get Try Return CType(Me(Me.tableFilialen.UstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdKz in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.UstIdKzColumn) = value End Set End Property _ Public Property UstIdNr() As String Get Try Return CType(Me(Me.tableFilialen.UstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdNr in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.UstIdNrColumn) = value End Set End Property _ Public Property KorrespondentenNr() As Integer Get Try Return CType(Me(Me.tableFilialen.KorrespondentenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KorrespondentenNr in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.KorrespondentenNrColumn) = value End Set End Property _ Public Property Absender() As String Get Try Return CType(Me(Me.tableFilialen.AbsenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Absender in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.AbsenderColumn) = value End Set End Property _ Public Property Fil_Status() As String Get Return CType(Me(Me.tableFilialen.Fil_StatusColumn),String) End Get Set Me(Me.tableFilialen.Fil_StatusColumn) = value End Set End Property _ Public Property PP440() As Boolean Get Try Return CType(Me(Me.tableFilialen.PP440Column),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PP440 in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.PP440Column) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableFilialen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Firma() As String Get Return CType(Me(Me.tableFilialen.FirmaColumn),String) End Get Set Me(Me.tableFilialen.FirmaColumn) = value End Set End Property _ Public Property Cluster() As String Get Return CType(Me(Me.tableFilialen.ClusterColumn),String) End Get Set Me(Me.tableFilialen.ClusterColumn) = value End Set End Property _ Public Property PP441() As Boolean Get Try Return CType(Me(Me.tableFilialen.PP441Column),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PP441 in Tabelle Filialen ist DBNull.", e) End Try End Get Set Me(Me.tableFilialen.PP441Column) = value End Set End Property _ Public Property KorrespondentenRow() As KorrespondentenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Filialen$KorrespondentenFilialen")),KorrespondentenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Filialen$KorrespondentenFilialen")) End Set End Property _ Public Function IsStammfilialeNull() As Boolean Return Me.IsNull(Me.tableFilialen.StammfilialeColumn) End Function _ Public Sub SetStammfilialeNull() Me(Me.tableFilialen.StammfilialeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsName_1Null() As Boolean Return Me.IsNull(Me.tableFilialen.Name_1Column) End Function _ Public Sub SetName_1Null() Me(Me.tableFilialen.Name_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsName_2Null() As Boolean Return Me.IsNull(Me.tableFilialen.Name_2Column) End Function _ Public Sub SetName_2Null() Me(Me.tableFilialen.Name_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsPostfachNull() As Boolean Return Me.IsNull(Me.tableFilialen.PostfachColumn) End Function _ Public Sub SetPostfachNull() Me(Me.tableFilialen.PostfachColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPLZPFNull() As Boolean Return Me.IsNull(Me.tableFilialen.PLZPFColumn) End Function _ Public Sub SetPLZPFNull() Me(Me.tableFilialen.PLZPFColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStraßeNull() As Boolean Return Me.IsNull(Me.tableFilialen.StraßeColumn) End Function _ Public Sub SetStraßeNull() Me(Me.tableFilialen.StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tableFilialen.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tableFilialen.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPLZNull() As Boolean Return Me.IsNull(Me.tableFilialen.PLZColumn) End Function _ Public Sub SetPLZNull() Me(Me.tableFilialen.PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOrtNull() As Boolean Return Me.IsNull(Me.tableFilialen.OrtColumn) End Function _ Public Sub SetOrtNull() Me(Me.tableFilialen.OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelefonNull() As Boolean Return Me.IsNull(Me.tableFilialen.TelefonColumn) End Function _ Public Sub SetTelefonNull() Me(Me.tableFilialen.TelefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelefaxNull() As Boolean Return Me.IsNull(Me.tableFilialen.TelefaxColumn) End Function _ Public Sub SetTelefaxNull() Me(Me.tableFilialen.TelefaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_E_MailNull() As Boolean Return Me.IsNull(Me.tableFilialen._E_MailColumn) End Function _ Public Sub Set_E_MailNull() Me(Me.tableFilialen._E_MailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdKzNull() As Boolean Return Me.IsNull(Me.tableFilialen.UstIdKzColumn) End Function _ Public Sub SetUstIdKzNull() Me(Me.tableFilialen.UstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdNrNull() As Boolean Return Me.IsNull(Me.tableFilialen.UstIdNrColumn) End Function _ Public Sub SetUstIdNrNull() Me(Me.tableFilialen.UstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKorrespondentenNrNull() As Boolean Return Me.IsNull(Me.tableFilialen.KorrespondentenNrColumn) End Function _ Public Sub SetKorrespondentenNrNull() Me(Me.tableFilialen.KorrespondentenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderNull() As Boolean Return Me.IsNull(Me.tableFilialen.AbsenderColumn) End Function _ Public Sub SetAbsenderNull() Me(Me.tableFilialen.AbsenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPP440Null() As Boolean Return Me.IsNull(Me.tableFilialen.PP440Column) End Function _ Public Sub SetPP440Null() Me(Me.tableFilialen.PP440Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableFilialen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableFilialen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPP441Null() As Boolean Return Me.IsNull(Me.tableFilialen.PP441Column) End Function _ Public Sub SetPP441Null() Me(Me.tableFilialen.PP441Column) = Global.System.Convert.DBNull End Sub _ Public Function GetKundenRows() As KundenRow() If (Me.Table.ChildRelations("Kunden$FilialenKunden") Is Nothing) Then Return New KundenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Kunden$FilialenKunden")),KundenRow()) End If End Function _ Public Function GetKundenFilialenRows() As KundenFilialenRow() If (Me.Table.ChildRelations("KundenFilialen$FilialenKundenFilialen") Is Nothing) Then Return New KundenFilialenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("KundenFilialen$FilialenKundenFilialen")),KundenFilialenRow()) End If End Function _ Public Function GetOffertenRows() As OffertenRow() If (Me.Table.ChildRelations("Offerten$FilialenOfferten") Is Nothing) Then Return New OffertenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Offerten$FilialenOfferten")),OffertenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class GeschäftsartenRow Inherits Global.System.Data.DataRow Private tableGeschäftsarten As GeschäftsartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableGeschäftsarten = CType(Me.Table,GeschäftsartenDataTable) End Sub _ Public Property ID() As Short Get Return CType(Me(Me.tableGeschäftsarten.IDColumn),Short) End Get Set Me(Me.tableGeschäftsarten.IDColumn) = value End Set End Property _ Public Property Art_des_Geschäfts() As String Get Return CType(Me(Me.tableGeschäftsarten.Art_des_GeschäftsColumn),String) End Get Set Me(Me.tableGeschäftsarten.Art_des_GeschäftsColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableGeschäftsarten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Geschäftsarten ist DBNull.", e) End Try End Get Set Me(Me.tableGeschäftsarten.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableGeschäftsarten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableGeschäftsarten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class KorrespondentenRow Inherits Global.System.Data.DataRow Private tableKorrespondenten As KorrespondentenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableKorrespondenten = CType(Me.Table,KorrespondentenDataTable) End Sub _ Public Property KorrespondentenNr() As Integer Get Return CType(Me(Me.tableKorrespondenten.KorrespondentenNrColumn),Integer) End Get Set Me(Me.tableKorrespondenten.KorrespondentenNrColumn) = value End Set End Property _ Public Property KorrespondentenBez() As String Get Return CType(Me(Me.tableKorrespondenten.KorrespondentenBezColumn),String) End Get Set Me(Me.tableKorrespondenten.KorrespondentenBezColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableKorrespondenten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Korrespondenten ist DBNull.", e) End Try End Get Set Me(Me.tableKorrespondenten.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableKorrespondenten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableKorrespondenten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetAbfertigungskosten_der_KorrespondentenRows() As Abfertigungskosten_der_KorrespondentenRow() If (Me.Table.ChildRelations("Abfertigungskosten der Korrespondenten$KorrespondentenAbfertigungskosten der Korr"& _ "espondenten") Is Nothing) Then Return New Abfertigungskosten_der_KorrespondentenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Abfertigungskosten der Korrespondenten$KorrespondentenAbfertigungskosten der Korr"& _ "espondenten")),Abfertigungskosten_der_KorrespondentenRow()) End If End Function _ Public Function GetFilialenRows() As FilialenRow() If (Me.Table.ChildRelations("Filialen$KorrespondentenFilialen") Is Nothing) Then Return New FilialenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Filialen$KorrespondentenFilialen")),FilialenRow()) End If End Function _ Public Function GetNebenkosten_der_KorrespondentenRows() As Nebenkosten_der_KorrespondentenRow() If (Me.Table.ChildRelations("Nebenkosten der Korrespondenten$KorrespondentenNebenkosten der Korrespondenten") Is Nothing) Then Return New Nebenkosten_der_KorrespondentenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Nebenkosten der Korrespondenten$KorrespondentenNebenkosten der Korrespondenten")),Nebenkosten_der_KorrespondentenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class KostenstellenRow Inherits Global.System.Data.DataRow Private tableKostenstellen As KostenstellenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableKostenstellen = CType(Me.Table,KostenstellenDataTable) End Sub _ Public Property Kostenstelle() As Integer Get Return CType(Me(Me.tableKostenstellen.KostenstelleColumn),Integer) End Get Set Me(Me.tableKostenstellen.KostenstelleColumn) = value End Set End Property _ Public Property Bezeichnung() As String Get Try Return CType(Me(Me.tableKostenstellen.BezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bezeichnung in Tabelle Kostenstellen ist DBNull.", e) End Try End Get Set Me(Me.tableKostenstellen.BezeichnungColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableKostenstellen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Kostenstellen ist DBNull.", e) End Try End Get Set Me(Me.tableKostenstellen.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsBezeichnungNull() As Boolean Return Me.IsNull(Me.tableKostenstellen.BezeichnungColumn) End Function _ Public Sub SetBezeichnungNull() Me(Me.tableKostenstellen.BezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableKostenstellen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableKostenstellen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetLeistungenRows() As LeistungenRow() If (Me.Table.ChildRelations("Leistungen$KostenstellenLeistungen") Is Nothing) Then Return New LeistungenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Leistungen$KostenstellenLeistungen")),LeistungenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class KreditkartenRow Inherits Global.System.Data.DataRow Private tableKreditkarten As KreditkartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableKreditkarten = CType(Me.Table,KreditkartenDataTable) End Sub _ Public Property AdressenNr() As Integer Get Return CType(Me(Me.tableKreditkarten.AdressenNrColumn),Integer) End Get Set Me(Me.tableKreditkarten.AdressenNrColumn) = value End Set End Property _ Public Property KartenNr() As String Get Return CType(Me(Me.tableKreditkarten.KartenNrColumn),String) End Get Set Me(Me.tableKreditkarten.KartenNrColumn) = value End Set End Property _ Public Property Kartenfreischaltungsdatum() As Date Get Try Return CType(Me(Me.tableKreditkarten.KartenfreischaltungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartenfreischaltungsdatum in Tabelle Kreditkarten ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableKreditkarten.KartenfreischaltungsdatumColumn) = value End Set End Property _ Public Property Kartenablaufmonat() As Short Get Return CType(Me(Me.tableKreditkarten.KartenablaufmonatColumn),Short) End Get Set Me(Me.tableKreditkarten.KartenablaufmonatColumn) = value End Set End Property _ Public Property Kartenablaufjahr() As Short Get Return CType(Me(Me.tableKreditkarten.KartenablaufjahrColumn),Short) End Get Set Me(Me.tableKreditkarten.KartenablaufjahrColumn) = value End Set End Property _ Public Property Kartensperre() As Short Get Return CType(Me(Me.tableKreditkarten.KartensperreColumn),Short) End Get Set Me(Me.tableKreditkarten.KartensperreColumn) = value End Set End Property _ Public Property Kartensperrdatum() As Date Get Try Return CType(Me(Me.tableKreditkarten.KartensperrdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartensperrdatum in Tabelle Kreditkarten ist DBNull.", e) End Try End Get Set Me(Me.tableKreditkarten.KartensperrdatumColumn) = value End Set End Property _ Public Property NeueKartenNr() As String Get Try Return CType(Me(Me.tableKreditkarten.NeueKartenNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NeueKartenNr in Tabelle Kreditkarten ist DBNull.", e) End Try End Get Set Me(Me.tableKreditkarten.NeueKartenNrColumn) = value End Set End Property _ Public Property NeueKartenNrGemeldet() As Boolean Get Try Return CType(Me(Me.tableKreditkarten.NeueKartenNrGemeldetColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NeueKartenNrGemeldet in Tabelle Kreditkarten ist DBNull.", e) End Try End Get Set Me(Me.tableKreditkarten.NeueKartenNrGemeldetColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Try Return CType(Me(Me.tableKreditkarten.ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitstempel in Tabelle Kreditkarten ist DBNull.", e) End Try End Get Set Me(Me.tableKreditkarten.ZeitstempelColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tableKreditkarten.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle Kreditkarten ist DBNull.", e) End Try End Get Set Me(Me.tableKreditkarten.SachbearbeiterColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableKreditkarten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Kreditkarten ist DBNull.", e) End Try End Get Set Me(Me.tableKreditkarten.SSMA_TimeStampColumn) = value End Set End Property _ Public Property AdressenRow() As AdressenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Kreditkarten$AdressenKreditkarten")),AdressenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Kreditkarten$AdressenKreditkarten")) End Set End Property _ Public Function IsKartenfreischaltungsdatumNull() As Boolean Return Me.IsNull(Me.tableKreditkarten.KartenfreischaltungsdatumColumn) End Function _ Public Sub SetKartenfreischaltungsdatumNull() Me(Me.tableKreditkarten.KartenfreischaltungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartensperrdatumNull() As Boolean Return Me.IsNull(Me.tableKreditkarten.KartensperrdatumColumn) End Function _ Public Sub SetKartensperrdatumNull() Me(Me.tableKreditkarten.KartensperrdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNeueKartenNrNull() As Boolean Return Me.IsNull(Me.tableKreditkarten.NeueKartenNrColumn) End Function _ Public Sub SetNeueKartenNrNull() Me(Me.tableKreditkarten.NeueKartenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNeueKartenNrGemeldetNull() As Boolean Return Me.IsNull(Me.tableKreditkarten.NeueKartenNrGemeldetColumn) End Function _ Public Sub SetNeueKartenNrGemeldetNull() Me(Me.tableKreditkarten.NeueKartenNrGemeldetColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZeitstempelNull() As Boolean Return Me.IsNull(Me.tableKreditkarten.ZeitstempelColumn) End Function _ Public Sub SetZeitstempelNull() Me(Me.tableKreditkarten.ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableKreditkarten.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tableKreditkarten.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableKreditkarten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableKreditkarten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class KundenRow Inherits Global.System.Data.DataRow Private tableKunden As KundenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableKunden = CType(Me.Table,KundenDataTable) End Sub _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tableKunden.KundenNrColumn),Integer) End Get Set Me(Me.tableKunden.KundenNrColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Return CType(Me(Me.tableKunden.KundenNrZentraleColumn),Integer) End Get Set Me(Me.tableKunden.KundenNrZentraleColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tableKunden.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.FilialenNrColumn) = value End Set End Property _ Public Property Einmalige_Abfertigung() As Boolean Get Try Return CType(Me(Me.tableKunden.Einmalige_AbfertigungColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einmalige Abfertigung in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Einmalige_AbfertigungColumn) = value End Set End Property _ Public Property Neutralisierung() As Short Get Try Return CType(Me(Me.tableKunden.NeutralisierungColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Neutralisierung in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.NeutralisierungColumn) = value End Set End Property _ Public Property Avis() As Short Get Try Return CType(Me(Me.tableKunden.AvisColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Avis in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.AvisColumn) = value End Set End Property _ Public Property Zollvollmacht() As Boolean Get Try Return CType(Me(Me.tableKunden.ZollvollmachtColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollvollmacht in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.ZollvollmachtColumn) = value End Set End Property _ Public Property Zollvollmacht_vom() As Date Get Try Return CType(Me(Me.tableKunden.Zollvollmacht_vomColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollvollmacht vom in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Zollvollmacht_vomColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tableKunden.LastschriftColumn),Boolean) End Get Set Me(Me.tableKunden.LastschriftColumn) = value End Set End Property _ Public Property Lastschrift_von() As Date Get Try Return CType(Me(Me.tableKunden.Lastschrift_vonColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lastschrift von in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Lastschrift_vonColumn) = value End Set End Property _ Public Property Lastschrift_bis() As Date Get Try Return CType(Me(Me.tableKunden.Lastschrift_bisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lastschrift bis in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Lastschrift_bisColumn) = value End Set End Property _ Public Property Rabattstaffel() As Boolean Get Try Return CType(Me(Me.tableKunden.RabattstaffelColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rabattstaffel in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.RabattstaffelColumn) = value End Set End Property _ Public Property SVS() As Boolean Get Try Return CType(Me(Me.tableKunden.SVSColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SVS in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.SVSColumn) = value End Set End Property _ Public Property _Vorlageprovision__() As Single Get Return CType(Me(Me.tableKunden._Vorlageprovision__Column),Single) End Get Set Me(Me.tableKunden._Vorlageprovision__Column) = value End Set End Property _ Public Property _Kreditaufwendungen__() As Single Get Return CType(Me(Me.tableKunden._Kreditaufwendungen__Column),Single) End Get Set Me(Me.tableKunden._Kreditaufwendungen__Column) = value End Set End Property _ Public Property _Bankspesen__() As Single Get Return CType(Me(Me.tableKunden._Bankspesen__Column),Single) End Get Set Me(Me.tableKunden._Bankspesen__Column) = value End Set End Property _ Public Property Bankspesen_Mindestbetrag() As Decimal Get Return CType(Me(Me.tableKunden.Bankspesen_MindestbetragColumn),Decimal) End Get Set Me(Me.tableKunden.Bankspesen_MindestbetragColumn) = value End Set End Property _ Public Property Besonderheiten() As String Get Try Return CType(Me(Me.tableKunden.BesonderheitenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Besonderheiten in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.BesonderheitenColumn) = value End Set End Property _ Public Property Sammelrechnung() As Short Get Return CType(Me(Me.tableKunden.SammelrechnungColumn),Short) End Get Set Me(Me.tableKunden.SammelrechnungColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Return CType(Me(Me.tableKunden.SteuerschlüsselColumn),Short) End Get Set Me(Me.tableKunden.SteuerschlüsselColumn) = value End Set End Property _ Public Property Referenznummer() As String Get Try Return CType(Me(Me.tableKunden.ReferenznummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Referenznummer in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.ReferenznummerColumn) = value End Set End Property _ Public Property Antragssumme() As Decimal Get Try Return CType(Me(Me.tableKunden.AntragssummeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Antragssumme in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.AntragssummeColumn) = value End Set End Property _ Public Property Antrag_vom() As Date Get Try Return CType(Me(Me.tableKunden.Antrag_vomColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Antrag vom in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Antrag_vomColumn) = value End Set End Property _ Public Property Versicherungssumme() As Decimal Get Try Return CType(Me(Me.tableKunden.VersicherungssummeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Versicherungssumme in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.VersicherungssummeColumn) = value End Set End Property _ Public Property Entscheidung_vom() As Date Get Try Return CType(Me(Me.tableKunden.Entscheidung_vomColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Entscheidung vom in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Entscheidung_vomColumn) = value End Set End Property _ Public Property Kreditlimit() As Decimal Get Try Return CType(Me(Me.tableKunden.KreditlimitColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kreditlimit in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.KreditlimitColumn) = value End Set End Property _ Public Property Kreditlimit_vom() As Date Get Try Return CType(Me(Me.tableKunden.Kreditlimit_vomColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kreditlimit vom in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Kreditlimit_vomColumn) = value End Set End Property _ Public Property Info() As String Get Try Return CType(Me(Me.tableKunden.InfoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Info in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.InfoColumn) = value End Set End Property _ Public Property Überwachungskunde() As Boolean Get Try Return CType(Me(Me.tableKunden.ÜberwachungskundeColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Überwachungskunde in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.ÜberwachungskundeColumn) = value End Set End Property _ Public Property Abfertigungsverbot() As Boolean Get Try Return CType(Me(Me.tableKunden.AbfertigungsverbotColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsverbot in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.AbfertigungsverbotColumn) = value End Set End Property _ Public Property Abfertigungsverbot_seit() As Date Get Try Return CType(Me(Me.tableKunden.Abfertigungsverbot_seitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsverbot seit in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Abfertigungsverbot_seitColumn) = value End Set End Property _ Public Property Abfertigungsverbot_Grund() As String Get Try Return CType(Me(Me.tableKunden.Abfertigungsverbot_GrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsverbot Grund in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Abfertigungsverbot_GrundColumn) = value End Set End Property _ Public Property Rechtsanwalt() As Boolean Get Try Return CType(Me(Me.tableKunden.RechtsanwaltColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechtsanwalt in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.RechtsanwaltColumn) = value End Set End Property _ Public Property Rechtsanwalt_seit() As Date Get Try Return CType(Me(Me.tableKunden.Rechtsanwalt_seitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechtsanwalt seit in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Rechtsanwalt_seitColumn) = value End Set End Property _ Public Property Eingegeben_am() As Date Get Return CType(Me(Me.tableKunden.Eingegeben_amColumn),Date) End Get Set Me(Me.tableKunden.Eingegeben_amColumn) = value End Set End Property _ Public Property Geändert_am() As Date Get Try Return CType(Me(Me.tableKunden.Geändert_amColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Geändert am in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Geändert_amColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tableKunden.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.SachbearbeiterColumn) = value End Set End Property _ Public Property LfdSaldo() As Decimal Get Try Return CType(Me(Me.tableKunden.LfdSaldoColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LfdSaldo in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.LfdSaldoColumn) = value End Set End Property _ Public Property Erste_Abfertigung() As Date Get Try Return CType(Me(Me.tableKunden.Erste_AbfertigungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erste Abfertigung in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Erste_AbfertigungColumn) = value End Set End Property _ Public Property Vorkasse() As Boolean Get Try Return CType(Me(Me.tableKunden.VorkasseColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorkasse in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.VorkasseColumn) = value End Set End Property _ Public Property Zahlungsinformationen() As String Get Try Return CType(Me(Me.tableKunden.ZahlungsinformationenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsinformationen in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.ZahlungsinformationenColumn) = value End Set End Property _ Public Property EORITIN() As String Get Try Return CType(Me(Me.tableKunden.EORITINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EORITIN in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.EORITINColumn) = value End Set End Property _ Public Property Zollnummer() As String Get Try Return CType(Me(Me.tableKunden.ZollnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollnummer in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.ZollnummerColumn) = value End Set End Property _ Public Property ZulassungsNr_ZnV() As String Get Try Return CType(Me(Me.tableKunden.ZulassungsNr_ZnVColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ZulassungsNr ZnV in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.ZulassungsNr_ZnVColumn) = value End Set End Property _ Public Property Aufschubkonto_EUSt() As String Get Try Return CType(Me(Me.tableKunden.Aufschubkonto_EUStColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aufschubkonto EUSt in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Aufschubkonto_EUStColumn) = value End Set End Property _ Public Property Aufschubkonto_Zoll() As String Get Try Return CType(Me(Me.tableKunden.Aufschubkonto_ZollColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aufschubkonto Zoll in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.Aufschubkonto_ZollColumn) = value End Set End Property _ Public Property Währungscode() As String Get Return CType(Me(Me.tableKunden.WährungscodeColumn),String) End Get Set Me(Me.tableKunden.WährungscodeColumn) = value End Set End Property _ Public Property Euroeinführung() As Date Get Return CType(Me(Me.tableKunden.EuroeinführungColumn),Date) End Get Set Me(Me.tableKunden.EuroeinführungColumn) = value End Set End Property _ Public Property LetzteRechnungsNr() As Integer Get Try Return CType(Me(Me.tableKunden.LetzteRechnungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LetzteRechnungsNr in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.LetzteRechnungsNrColumn) = value End Set End Property _ Public Property LetztesRechnungsDatum() As Date Get Try Return CType(Me(Me.tableKunden.LetztesRechnungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LetztesRechnungsDatum in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.LetztesRechnungsDatumColumn) = value End Set End Property _ Public Property Konzernkonto() As Boolean Get Try Return CType(Me(Me.tableKunden.KonzernkontoColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Konzernkonto in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.KonzernkontoColumn) = value End Set End Property _ Public Property FiBuSchnittstelle() As Boolean Get Try Return CType(Me(Me.tableKunden.FiBuSchnittstelleColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FiBuSchnittstelle in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.FiBuSchnittstelleColumn) = value End Set End Property _ Public Property Planzahl() As Integer Get Try Return CType(Me(Me.tableKunden.PlanzahlColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Planzahl in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.PlanzahlColumn) = value End Set End Property _ Public Property Gesprächsbericht() As String Get Try Return CType(Me(Me.tableKunden.GesprächsberichtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesprächsbericht in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.GesprächsberichtColumn) = value End Set End Property _ Public Property Bonität() As Short Get Try Return CType(Me(Me.tableKunden.BonitätColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bonität in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.BonitätColumn) = value End Set End Property _ Public Property Bonitätsdatum() As Date Get Try Return CType(Me(Me.tableKunden.BonitätsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bonitätsdatum in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.BonitätsdatumColumn) = value End Set End Property _ Public Property Zahlungsziel() As Short Get Try Return CType(Me(Me.tableKunden.ZahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsziel in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.ZahlungszielColumn) = value End Set End Property _ Public Property UStV_SummeUmsatzsteuerbetragEUR() As Decimal Get Return CType(Me(Me.tableKunden.UStV_SummeUmsatzsteuerbetragEURColumn),Decimal) End Get Set Me(Me.tableKunden.UStV_SummeUmsatzsteuerbetragEURColumn) = value End Set End Property _ Public Property UStV_SummeErstattungsbetragEUR() As Decimal Get Return CType(Me(Me.tableKunden.UStV_SummeErstattungsbetragEURColumn),Decimal) End Get Set Me(Me.tableKunden.UStV_SummeErstattungsbetragEURColumn) = value End Set End Property _ Public Property UStV_Summe3470BetragEUR() As Decimal Get Return CType(Me(Me.tableKunden.UStV_Summe3470BetragEURColumn),Decimal) End Get Set Me(Me.tableKunden.UStV_Summe3470BetragEURColumn) = value End Set End Property _ Public Property UStV_SummeVZBetragEUR() As Decimal Get Return CType(Me(Me.tableKunden.UStV_SummeVZBetragEURColumn),Decimal) End Get Set Me(Me.tableKunden.UStV_SummeVZBetragEURColumn) = value End Set End Property _ Public Property UStV_SummeVorschaubetragEUR() As Decimal Get Return CType(Me(Me.tableKunden.UStV_SummeVorschaubetragEURColumn),Decimal) End Get Set Me(Me.tableKunden.UStV_SummeVorschaubetragEURColumn) = value End Set End Property _ Public Property UStV_SummeVorschaubetragEUR_VERAG() As Decimal Get Return CType(Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_VERAGColumn),Decimal) End Get Set Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_VERAGColumn) = value End Set End Property _ Public Property UStV_SummeVorschaubetragEUR_IDS() As Decimal Get Return CType(Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_IDSColumn),Decimal) End Get Set Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_IDSColumn) = value End Set End Property _ Public Property Fiskal() As Boolean Get Try Return CType(Me(Me.tableKunden.FiskalColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fiskal in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.FiskalColumn) = value End Set End Property _ Public Property Ausfuhr() As Boolean Get Try Return CType(Me(Me.tableKunden.AusfuhrColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ausfuhr in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.AusfuhrColumn) = value End Set End Property _ Public Property BankgarantieBetrag() As Decimal Get Try Return CType(Me(Me.tableKunden.BankgarantieBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BankgarantieBetrag in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.BankgarantieBetragColumn) = value End Set End Property _ Public Property BankgarantieGültigBis() As Date Get Try Return CType(Me(Me.tableKunden.BankgarantieGültigBisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BankgarantieGültigBis in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.BankgarantieGültigBisColumn) = value End Set End Property _ Public Property KD_Korrespondenz() As String Get Try Return CType(Me(Me.tableKunden.KD_KorrespondenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KD_Korrespondenz in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.KD_KorrespondenzColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableKunden.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.SSMA_TimeStampColumn) = value End Set End Property _ Public Property UStV_SummeVorschaubetragEUR_IT() As Decimal Get Try Return CType(Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_ITColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStV_SummeVorschaubetragEUR_IT in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_ITColumn) = value End Set End Property _ Public Property UStV_SummeVorschaubetragEUR_MSE() As Decimal Get Try Return CType(Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_MSEColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStV_SummeVorschaubetragEUR_MSE in Tabelle Kunden ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_MSEColumn) = value End Set End Property _ Public Property UStV_SummeVorschaubetragEUR_UTA() As Decimal Get Try Return CType(Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_UTAColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStV_SummeVorschaubetragEUR_UTA in Tabelle Kunden ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_UTAColumn) = value End Set End Property _ Public Property Fiskal_Aktiv() As Boolean Get Return CType(Me(Me.tableKunden.Fiskal_AktivColumn),Boolean) End Get Set Me(Me.tableKunden.Fiskal_AktivColumn) = value End Set End Property _ Public Property EmailAnkunft() As Boolean Get Return CType(Me(Me.tableKunden.EmailAnkunftColumn),Boolean) End Get Set Me(Me.tableKunden.EmailAnkunftColumn) = value End Set End Property _ Public Property EmailFreigabe() As Boolean Get Return CType(Me(Me.tableKunden.EmailFreigabeColumn),Boolean) End Get Set Me(Me.tableKunden.EmailFreigabeColumn) = value End Set End Property _ Public Property DokumenteLKWFreigabe() As String Get Try Return CType(Me(Me.tableKunden.DokumenteLKWFreigabeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumenteLKWFreigabe in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.DokumenteLKWFreigabeColumn) = value End Set End Property _ Public Property Höchstkredit() As Decimal Get Try Return CType(Me(Me.tableKunden.HöchstkreditColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Höchstkredit in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.HöchstkreditColumn) = value End Set End Property _ Public Property FiBuSchnittstelleNr() As Short Get Try Return CType(Me(Me.tableKunden.FiBuSchnittstelleNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FiBuSchnittstelleNr in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.FiBuSchnittstelleNrColumn) = value End Set End Property _ Public Property DakosyExport() As Date Get Try Return CType(Me(Me.tableKunden.DakosyExportColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DakosyExport in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.DakosyExportColumn) = value End Set End Property _ Public Property EORITIN_NL() As String Get Try Return CType(Me(Me.tableKunden.EORITIN_NLColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EORITIN_NL in Tabelle Kunden ist DBNull.", e) End Try End Get Set Me(Me.tableKunden.EORITIN_NLColumn) = value End Set End Property _ Public Property AdressenRow() As AdressenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Kunden$AdressenKunden")),AdressenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Kunden$AdressenKunden")) End Set End Property _ Public Property FilialenRow() As FilialenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Kunden$FilialenKunden")),FilialenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Kunden$FilialenKunden")) End Set End Property _ Public Property SteuertabelleRow() As SteuertabelleRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Kunden$Reference7")),SteuertabelleRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Kunden$Reference7")) End Set End Property _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tableKunden.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tableKunden.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinmalige_AbfertigungNull() As Boolean Return Me.IsNull(Me.tableKunden.Einmalige_AbfertigungColumn) End Function _ Public Sub SetEinmalige_AbfertigungNull() Me(Me.tableKunden.Einmalige_AbfertigungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNeutralisierungNull() As Boolean Return Me.IsNull(Me.tableKunden.NeutralisierungColumn) End Function _ Public Sub SetNeutralisierungNull() Me(Me.tableKunden.NeutralisierungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisNull() As Boolean Return Me.IsNull(Me.tableKunden.AvisColumn) End Function _ Public Sub SetAvisNull() Me(Me.tableKunden.AvisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollvollmachtNull() As Boolean Return Me.IsNull(Me.tableKunden.ZollvollmachtColumn) End Function _ Public Sub SetZollvollmachtNull() Me(Me.tableKunden.ZollvollmachtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollvollmacht_vomNull() As Boolean Return Me.IsNull(Me.tableKunden.Zollvollmacht_vomColumn) End Function _ Public Sub SetZollvollmacht_vomNull() Me(Me.tableKunden.Zollvollmacht_vomColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLastschrift_vonNull() As Boolean Return Me.IsNull(Me.tableKunden.Lastschrift_vonColumn) End Function _ Public Sub SetLastschrift_vonNull() Me(Me.tableKunden.Lastschrift_vonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLastschrift_bisNull() As Boolean Return Me.IsNull(Me.tableKunden.Lastschrift_bisColumn) End Function _ Public Sub SetLastschrift_bisNull() Me(Me.tableKunden.Lastschrift_bisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRabattstaffelNull() As Boolean Return Me.IsNull(Me.tableKunden.RabattstaffelColumn) End Function _ Public Sub SetRabattstaffelNull() Me(Me.tableKunden.RabattstaffelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSVSNull() As Boolean Return Me.IsNull(Me.tableKunden.SVSColumn) End Function _ Public Sub SetSVSNull() Me(Me.tableKunden.SVSColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBesonderheitenNull() As Boolean Return Me.IsNull(Me.tableKunden.BesonderheitenColumn) End Function _ Public Sub SetBesonderheitenNull() Me(Me.tableKunden.BesonderheitenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReferenznummerNull() As Boolean Return Me.IsNull(Me.tableKunden.ReferenznummerColumn) End Function _ Public Sub SetReferenznummerNull() Me(Me.tableKunden.ReferenznummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAntragssummeNull() As Boolean Return Me.IsNull(Me.tableKunden.AntragssummeColumn) End Function _ Public Sub SetAntragssummeNull() Me(Me.tableKunden.AntragssummeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAntrag_vomNull() As Boolean Return Me.IsNull(Me.tableKunden.Antrag_vomColumn) End Function _ Public Sub SetAntrag_vomNull() Me(Me.tableKunden.Antrag_vomColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVersicherungssummeNull() As Boolean Return Me.IsNull(Me.tableKunden.VersicherungssummeColumn) End Function _ Public Sub SetVersicherungssummeNull() Me(Me.tableKunden.VersicherungssummeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEntscheidung_vomNull() As Boolean Return Me.IsNull(Me.tableKunden.Entscheidung_vomColumn) End Function _ Public Sub SetEntscheidung_vomNull() Me(Me.tableKunden.Entscheidung_vomColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKreditlimitNull() As Boolean Return Me.IsNull(Me.tableKunden.KreditlimitColumn) End Function _ Public Sub SetKreditlimitNull() Me(Me.tableKunden.KreditlimitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKreditlimit_vomNull() As Boolean Return Me.IsNull(Me.tableKunden.Kreditlimit_vomColumn) End Function _ Public Sub SetKreditlimit_vomNull() Me(Me.tableKunden.Kreditlimit_vomColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsInfoNull() As Boolean Return Me.IsNull(Me.tableKunden.InfoColumn) End Function _ Public Sub SetInfoNull() Me(Me.tableKunden.InfoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsÜberwachungskundeNull() As Boolean Return Me.IsNull(Me.tableKunden.ÜberwachungskundeColumn) End Function _ Public Sub SetÜberwachungskundeNull() Me(Me.tableKunden.ÜberwachungskundeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsverbotNull() As Boolean Return Me.IsNull(Me.tableKunden.AbfertigungsverbotColumn) End Function _ Public Sub SetAbfertigungsverbotNull() Me(Me.tableKunden.AbfertigungsverbotColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsverbot_seitNull() As Boolean Return Me.IsNull(Me.tableKunden.Abfertigungsverbot_seitColumn) End Function _ Public Sub SetAbfertigungsverbot_seitNull() Me(Me.tableKunden.Abfertigungsverbot_seitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsverbot_GrundNull() As Boolean Return Me.IsNull(Me.tableKunden.Abfertigungsverbot_GrundColumn) End Function _ Public Sub SetAbfertigungsverbot_GrundNull() Me(Me.tableKunden.Abfertigungsverbot_GrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechtsanwaltNull() As Boolean Return Me.IsNull(Me.tableKunden.RechtsanwaltColumn) End Function _ Public Sub SetRechtsanwaltNull() Me(Me.tableKunden.RechtsanwaltColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechtsanwalt_seitNull() As Boolean Return Me.IsNull(Me.tableKunden.Rechtsanwalt_seitColumn) End Function _ Public Sub SetRechtsanwalt_seitNull() Me(Me.tableKunden.Rechtsanwalt_seitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändert_amNull() As Boolean Return Me.IsNull(Me.tableKunden.Geändert_amColumn) End Function _ Public Sub SetGeändert_amNull() Me(Me.tableKunden.Geändert_amColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableKunden.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tableKunden.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLfdSaldoNull() As Boolean Return Me.IsNull(Me.tableKunden.LfdSaldoColumn) End Function _ Public Sub SetLfdSaldoNull() Me(Me.tableKunden.LfdSaldoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErste_AbfertigungNull() As Boolean Return Me.IsNull(Me.tableKunden.Erste_AbfertigungColumn) End Function _ Public Sub SetErste_AbfertigungNull() Me(Me.tableKunden.Erste_AbfertigungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorkasseNull() As Boolean Return Me.IsNull(Me.tableKunden.VorkasseColumn) End Function _ Public Sub SetVorkasseNull() Me(Me.tableKunden.VorkasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsinformationenNull() As Boolean Return Me.IsNull(Me.tableKunden.ZahlungsinformationenColumn) End Function _ Public Sub SetZahlungsinformationenNull() Me(Me.tableKunden.ZahlungsinformationenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEORITINNull() As Boolean Return Me.IsNull(Me.tableKunden.EORITINColumn) End Function _ Public Sub SetEORITINNull() Me(Me.tableKunden.EORITINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollnummerNull() As Boolean Return Me.IsNull(Me.tableKunden.ZollnummerColumn) End Function _ Public Sub SetZollnummerNull() Me(Me.tableKunden.ZollnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZulassungsNr_ZnVNull() As Boolean Return Me.IsNull(Me.tableKunden.ZulassungsNr_ZnVColumn) End Function _ Public Sub SetZulassungsNr_ZnVNull() Me(Me.tableKunden.ZulassungsNr_ZnVColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubkonto_EUStNull() As Boolean Return Me.IsNull(Me.tableKunden.Aufschubkonto_EUStColumn) End Function _ Public Sub SetAufschubkonto_EUStNull() Me(Me.tableKunden.Aufschubkonto_EUStColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubkonto_ZollNull() As Boolean Return Me.IsNull(Me.tableKunden.Aufschubkonto_ZollColumn) End Function _ Public Sub SetAufschubkonto_ZollNull() Me(Me.tableKunden.Aufschubkonto_ZollColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLetzteRechnungsNrNull() As Boolean Return Me.IsNull(Me.tableKunden.LetzteRechnungsNrColumn) End Function _ Public Sub SetLetzteRechnungsNrNull() Me(Me.tableKunden.LetzteRechnungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLetztesRechnungsDatumNull() As Boolean Return Me.IsNull(Me.tableKunden.LetztesRechnungsDatumColumn) End Function _ Public Sub SetLetztesRechnungsDatumNull() Me(Me.tableKunden.LetztesRechnungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKonzernkontoNull() As Boolean Return Me.IsNull(Me.tableKunden.KonzernkontoColumn) End Function _ Public Sub SetKonzernkontoNull() Me(Me.tableKunden.KonzernkontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiBuSchnittstelleNull() As Boolean Return Me.IsNull(Me.tableKunden.FiBuSchnittstelleColumn) End Function _ Public Sub SetFiBuSchnittstelleNull() Me(Me.tableKunden.FiBuSchnittstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPlanzahlNull() As Boolean Return Me.IsNull(Me.tableKunden.PlanzahlColumn) End Function _ Public Sub SetPlanzahlNull() Me(Me.tableKunden.PlanzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesprächsberichtNull() As Boolean Return Me.IsNull(Me.tableKunden.GesprächsberichtColumn) End Function _ Public Sub SetGesprächsberichtNull() Me(Me.tableKunden.GesprächsberichtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBonitätNull() As Boolean Return Me.IsNull(Me.tableKunden.BonitätColumn) End Function _ Public Sub SetBonitätNull() Me(Me.tableKunden.BonitätColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBonitätsdatumNull() As Boolean Return Me.IsNull(Me.tableKunden.BonitätsdatumColumn) End Function _ Public Sub SetBonitätsdatumNull() Me(Me.tableKunden.BonitätsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungszielNull() As Boolean Return Me.IsNull(Me.tableKunden.ZahlungszielColumn) End Function _ Public Sub SetZahlungszielNull() Me(Me.tableKunden.ZahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiskalNull() As Boolean Return Me.IsNull(Me.tableKunden.FiskalColumn) End Function _ Public Sub SetFiskalNull() Me(Me.tableKunden.FiskalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAusfuhrNull() As Boolean Return Me.IsNull(Me.tableKunden.AusfuhrColumn) End Function _ Public Sub SetAusfuhrNull() Me(Me.tableKunden.AusfuhrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBankgarantieBetragNull() As Boolean Return Me.IsNull(Me.tableKunden.BankgarantieBetragColumn) End Function _ Public Sub SetBankgarantieBetragNull() Me(Me.tableKunden.BankgarantieBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBankgarantieGültigBisNull() As Boolean Return Me.IsNull(Me.tableKunden.BankgarantieGültigBisColumn) End Function _ Public Sub SetBankgarantieGültigBisNull() Me(Me.tableKunden.BankgarantieGültigBisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKD_KorrespondenzNull() As Boolean Return Me.IsNull(Me.tableKunden.KD_KorrespondenzColumn) End Function _ Public Sub SetKD_KorrespondenzNull() Me(Me.tableKunden.KD_KorrespondenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableKunden.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableKunden.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStV_SummeVorschaubetragEUR_ITNull() As Boolean Return Me.IsNull(Me.tableKunden.UStV_SummeVorschaubetragEUR_ITColumn) End Function _ Public Sub SetUStV_SummeVorschaubetragEUR_ITNull() Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_ITColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStV_SummeVorschaubetragEUR_MSENull() As Boolean Return Me.IsNull(Me.tableKunden.UStV_SummeVorschaubetragEUR_MSEColumn) End Function _ Public Sub SetUStV_SummeVorschaubetragEUR_MSENull() Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_MSEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStV_SummeVorschaubetragEUR_UTANull() As Boolean Return Me.IsNull(Me.tableKunden.UStV_SummeVorschaubetragEUR_UTAColumn) End Function _ Public Sub SetUStV_SummeVorschaubetragEUR_UTANull() Me(Me.tableKunden.UStV_SummeVorschaubetragEUR_UTAColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumenteLKWFreigabeNull() As Boolean Return Me.IsNull(Me.tableKunden.DokumenteLKWFreigabeColumn) End Function _ Public Sub SetDokumenteLKWFreigabeNull() Me(Me.tableKunden.DokumenteLKWFreigabeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHöchstkreditNull() As Boolean Return Me.IsNull(Me.tableKunden.HöchstkreditColumn) End Function _ Public Sub SetHöchstkreditNull() Me(Me.tableKunden.HöchstkreditColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiBuSchnittstelleNrNull() As Boolean Return Me.IsNull(Me.tableKunden.FiBuSchnittstelleNrColumn) End Function _ Public Sub SetFiBuSchnittstelleNrNull() Me(Me.tableKunden.FiBuSchnittstelleNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDakosyExportNull() As Boolean Return Me.IsNull(Me.tableKunden.DakosyExportColumn) End Function _ Public Sub SetDakosyExportNull() Me(Me.tableKunden.DakosyExportColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEORITIN_NLNull() As Boolean Return Me.IsNull(Me.tableKunden.EORITIN_NLColumn) End Function _ Public Sub SetEORITIN_NLNull() Me(Me.tableKunden.EORITIN_NLColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetKundenFilialenRows() As KundenFilialenRow() If (Me.Table.ChildRelations("KundenFilialen$KundenKundenFilialen") Is Nothing) Then Return New KundenFilialenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("KundenFilialen$KundenKundenFilialen")),KundenFilialenRow()) End If End Function _ Public Function GetOffertenRows() As OffertenRow() If (Me.Table.ChildRelations("Offerten$KundenOfferten") Is Nothing) Then Return New OffertenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Offerten$KundenOfferten")),OffertenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class KundenFilialenRow Inherits Global.System.Data.DataRow Private tableKundenFilialen As KundenFilialenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableKundenFilialen = CType(Me.Table,KundenFilialenDataTable) End Sub _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tableKundenFilialen.KundenNrColumn),Integer) End Get Set Me(Me.tableKundenFilialen.KundenNrColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tableKundenFilialen.FilialenNrColumn),Short) End Get Set Me(Me.tableKundenFilialen.FilialenNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Try Return CType(Me(Me.tableKundenFilialen.AbfertigungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsdatum in Tabelle KundenFilialen ist DBNull.", e) End Try End Get Set Me(Me.tableKundenFilialen.AbfertigungsdatumColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableKundenFilialen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle KundenFilialen ist DBNull.", e) End Try End Get Set Me(Me.tableKundenFilialen.SSMA_TimeStampColumn) = value End Set End Property _ Public Property FilialenRow() As FilialenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("KundenFilialen$FilialenKundenFilialen")),FilialenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("KundenFilialen$FilialenKundenFilialen")) End Set End Property _ Public Property KundenRow() As KundenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("KundenFilialen$KundenKundenFilialen")),KundenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("KundenFilialen$KundenKundenFilialen")) End Set End Property _ Public Function IsAbfertigungsdatumNull() As Boolean Return Me.IsNull(Me.tableKundenFilialen.AbfertigungsdatumColumn) End Function _ Public Sub SetAbfertigungsdatumNull() Me(Me.tableKundenFilialen.AbfertigungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableKundenFilialen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableKundenFilialen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Länder_der_Bundesrepublik_DeutschlandRow Inherits Global.System.Data.DataRow Private tableLänder_der_Bundesrepublik_Deutschland As Länder_der_Bundesrepublik_DeutschlandDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableLänder_der_Bundesrepublik_Deutschland = CType(Me.Table,Länder_der_Bundesrepublik_DeutschlandDataTable) End Sub _ Public Property LänderNr() As Short Get Return CType(Me(Me.tableLänder_der_Bundesrepublik_Deutschland.LänderNrColumn),Short) End Get Set Me(Me.tableLänder_der_Bundesrepublik_Deutschland.LänderNrColumn) = value End Set End Property _ Public Property LänderBez() As String Get Return CType(Me(Me.tableLänder_der_Bundesrepublik_Deutschland.LänderBezColumn),String) End Get Set Me(Me.tableLänder_der_Bundesrepublik_Deutschland.LänderBezColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableLänder_der_Bundesrepublik_Deutschland.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Länder der Bundesrepublik Deutschla"& _ "nd ist DBNull.", e) End Try End Get Set Me(Me.tableLänder_der_Bundesrepublik_Deutschland.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableLänder_der_Bundesrepublik_Deutschland.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableLänder_der_Bundesrepublik_Deutschland.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Länderverzeichnis_für_die_AußenhandelsstatistikRow Inherits Global.System.Data.DataRow Private tableLänderverzeichnis_für_die_Außenhandelsstatistik As Länderverzeichnis_für_die_AußenhandelsstatistikDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik = CType(Me.Table,Länderverzeichnis_für_die_AußenhandelsstatistikDataTable) End Sub _ Public Property LandNr() As Short Get Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandNrColumn),Short) End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandNrColumn) = value End Set End Property _ Public Property LandBez() As String Get Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandBezColumn),String) End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandBezColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle Länderverzeichnis für die Außenhandelsstati"& _ "stik ist DBNull.", e) End Try End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandKzColumn) = value End Set End Property _ Public Property Steuersatz() As Double Get Try Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.SteuersatzColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuersatz in Tabelle Länderverzeichnis für die Außenhandelss"& _ "tatistik ist DBNull.", e) End Try End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.SteuersatzColumn) = value End Set End Property _ Public Property Umsatzsteuervergütungsverfahren() As Boolean Get Try Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.UmsatzsteuervergütungsverfahrenColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umsatzsteuervergütungsverfahren in Tabelle Länderverzeichnis "& _ "für die Außenhandelsstatistik ist DBNull.", e) End Try End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.UmsatzsteuervergütungsverfahrenColumn) = value End Set End Property _ Public Property Finanzamt() As Integer Get Try Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.FinanzamtColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Finanzamt in Tabelle Länderverzeichnis für die Außenhandelsst"& _ "atistik ist DBNull.", e) End Try End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.FinanzamtColumn) = value End Set End Property _ Public Property Währungscode() As String Get Try Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungscode in Tabelle Länderverzeichnis für die Außenhandel"& _ "sstatistik ist DBNull.", e) End Try End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.WährungscodeColumn) = value End Set End Property _ Public Property LandKz_ISO_3() As String Get Try Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandKz_ISO_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz_ISO_3 in Tabelle Länderverzeichnis für die Außenhandel"& _ "sstatistik ist DBNull.", e) End Try End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandKz_ISO_3Column) = value End Set End Property _ Public Property EUBeitrittsdatum() As Date Get Try Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.EUBeitrittsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EUBeitrittsdatum in Tabelle Länderverzeichnis für die Außenha"& _ "ndelsstatistik ist DBNull.", e) End Try End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.EUBeitrittsdatumColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Länderverzeichnis für die Außenhand"& _ "elsstatistik ist DBNull.", e) End Try End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.SSMA_TimeStampColumn) = value End Set End Property _ Public Property ReverseCharge() As Boolean Get Try Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.ReverseChargeColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ReverseCharge in Tabelle Länderverzeichnis für die Außenhande"& _ "lsstatistik ist DBNull.", e) End Try End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.ReverseChargeColumn) = value End Set End Property _ Public Property EUAustrittsdatum() As Date Get Try Return CType(Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.EUAustrittsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EUAustrittsdatum in Tabelle Länderverzeichnis für die Außenha"& _ "ndelsstatistik ist DBNull.", e) End Try End Get Set Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.EUAustrittsdatumColumn) = value End Set End Property _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuersatzNull() As Boolean Return Me.IsNull(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.SteuersatzColumn) End Function _ Public Sub SetSteuersatzNull() Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.SteuersatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmsatzsteuervergütungsverfahrenNull() As Boolean Return Me.IsNull(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.UmsatzsteuervergütungsverfahrenColumn) End Function _ Public Sub SetUmsatzsteuervergütungsverfahrenNull() Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.UmsatzsteuervergütungsverfahrenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFinanzamtNull() As Boolean Return Me.IsNull(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.FinanzamtColumn) End Function _ Public Sub SetFinanzamtNull() Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.FinanzamtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungscodeNull() As Boolean Return Me.IsNull(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.WährungscodeColumn) End Function _ Public Sub SetWährungscodeNull() Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKz_ISO_3Null() As Boolean Return Me.IsNull(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandKz_ISO_3Column) End Function _ Public Sub SetLandKz_ISO_3Null() Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.LandKz_ISO_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEUBeitrittsdatumNull() As Boolean Return Me.IsNull(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.EUBeitrittsdatumColumn) End Function _ Public Sub SetEUBeitrittsdatumNull() Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.EUBeitrittsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReverseChargeNull() As Boolean Return Me.IsNull(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.ReverseChargeColumn) End Function _ Public Sub SetReverseChargeNull() Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.ReverseChargeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEUAustrittsdatumNull() As Boolean Return Me.IsNull(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.EUAustrittsdatumColumn) End Function _ Public Sub SetEUAustrittsdatumNull() Me(Me.tableLänderverzeichnis_für_die_Außenhandelsstatistik.EUAustrittsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblSteuernummernRows() As tblSteuernummernRow() If (Me.Table.ChildRelations("tblSteuernummern$Länderverzeichnis für die AußenhandelsstatistiktblSteuernummern") Is Nothing) Then Return New tblSteuernummernRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblSteuernummern$Länderverzeichnis für die AußenhandelsstatistiktblSteuernummern")),tblSteuernummernRow()) End If End Function _ Public Function GettblUStVKuLäFoRows() As tblUStVKuLäFoRow() If (Me.Table.ChildRelations("tblUStVKuLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVKuLäFo") Is Nothing) Then Return New tblUStVKuLäFoRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUStVKuLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVKuLäFo")),tblUStVKuLäFoRow()) End If End Function _ Public Function GettblUStVLäFoRows() As tblUStVLäFoRow() If (Me.Table.ChildRelations("tblUStVLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVLäFo") Is Nothing) Then Return New tblUStVLäFoRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUStVLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVLäFo")),tblUStVLäFoRow()) End If End Function _ Public Function GetWährungstabelleRows() As WährungstabelleRow() If (Me.Table.ChildRelations("Währungstabelle$Länderverzeichnis für die AußenhandelsstatistikWährungstabelle") Is Nothing) Then Return New WährungstabelleRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Währungstabelle$Länderverzeichnis für die AußenhandelsstatistikWährungstabelle")),WährungstabelleRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class LeistungenRow Inherits Global.System.Data.DataRow Private tableLeistungen As LeistungenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableLeistungen = CType(Me.Table,LeistungenDataTable) End Sub _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tableLeistungen.LeistungsNrColumn),Short) End Get Set Me(Me.tableLeistungen.LeistungsNrColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tableLeistungen.LeistungsBezColumn),String) End Get Set Me(Me.tableLeistungen.LeistungsBezColumn) = value End Set End Property _ Public Property BezeichnungAusListe() As Boolean Get Return CType(Me(Me.tableLeistungen.BezeichnungAusListeColumn),Boolean) End Get Set Me(Me.tableLeistungen.BezeichnungAusListeColumn) = value End Set End Property _ Public Property BerechnungsartNr() As Short Get Return CType(Me(Me.tableLeistungen.BerechnungsartNrColumn),Short) End Get Set Me(Me.tableLeistungen.BerechnungsartNrColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tableLeistungen.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tableLeistungen.SteuerpflichtigColumn) = value End Set End Property _ Public Property SKR() As Boolean Get Return CType(Me(Me.tableLeistungen.SKRColumn),Boolean) End Get Set Me(Me.tableLeistungen.SKRColumn) = value End Set End Property _ Public Property Vorlageprovision() As Boolean Get Return CType(Me(Me.tableLeistungen.VorlageprovisionColumn),Boolean) End Get Set Me(Me.tableLeistungen.VorlageprovisionColumn) = value End Set End Property _ Public Property Kreditaufwendungen() As Boolean Get Return CType(Me(Me.tableLeistungen.KreditaufwendungenColumn),Boolean) End Get Set Me(Me.tableLeistungen.KreditaufwendungenColumn) = value End Set End Property _ Public Property FixeTaxe() As Boolean Get Return CType(Me(Me.tableLeistungen.FixeTaxeColumn),Boolean) End Get Set Me(Me.tableLeistungen.FixeTaxeColumn) = value End Set End Property _ Public Property Abfertigungskosten() As Boolean Get Return CType(Me(Me.tableLeistungen.AbfertigungskostenColumn),Boolean) End Get Set Me(Me.tableLeistungen.AbfertigungskostenColumn) = value End Set End Property _ Public Property Preissperre() As Boolean Get Return CType(Me(Me.tableLeistungen.PreissperreColumn),Boolean) End Get Set Me(Me.tableLeistungen.PreissperreColumn) = value End Set End Property _ Public Property Kostenstelle() As Integer Get Return CType(Me(Me.tableLeistungen.KostenstelleColumn),Integer) End Get Set Me(Me.tableLeistungen.KostenstelleColumn) = value End Set End Property _ Public Property AufschubkontoNr() As String Get Try Return CType(Me(Me.tableLeistungen.AufschubkontoNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AufschubkontoNr in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.AufschubkontoNrColumn) = value End Set End Property _ Public Property Gl_account() As String Get Try Return CType(Me(Me.tableLeistungen.Gl_accountColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gl_account in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.Gl_accountColumn) = value End Set End Property _ Public Property Analysis_type() As String Get Try Return CType(Me(Me.tableLeistungen.Analysis_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Analysis_type in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.Analysis_typeColumn) = value End Set End Property _ Public Property Analysis_code() As String Get Try Return CType(Me(Me.tableLeistungen.Analysis_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Analysis_code in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.Analysis_codeColumn) = value End Set End Property _ Public Property SachkontoInlandSteuerpflichtig() As String Get Try Return CType(Me(Me.tableLeistungen.SachkontoInlandSteuerpflichtigColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SachkontoInlandSteuerpflichtig in Tabelle Leistungen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableLeistungen.SachkontoInlandSteuerpflichtigColumn) = value End Set End Property _ Public Property SachkontoInlandSteuerfrei() As String Get Try Return CType(Me(Me.tableLeistungen.SachkontoInlandSteuerfreiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SachkontoInlandSteuerfrei in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.SachkontoInlandSteuerfreiColumn) = value End Set End Property _ Public Property SachkontoEUSteuerpflichtig() As String Get Try Return CType(Me(Me.tableLeistungen.SachkontoEUSteuerpflichtigColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SachkontoEUSteuerpflichtig in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.SachkontoEUSteuerpflichtigColumn) = value End Set End Property _ Public Property SachkontoEUSteuerfrei() As String Get Try Return CType(Me(Me.tableLeistungen.SachkontoEUSteuerfreiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SachkontoEUSteuerfrei in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.SachkontoEUSteuerfreiColumn) = value End Set End Property _ Public Property Sachkonto3Land() As String Get Try Return CType(Me(Me.tableLeistungen.Sachkonto3LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachkonto3Land in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.Sachkonto3LandColumn) = value End Set End Property _ Public Property BS415() As Boolean Get Try Return CType(Me(Me.tableLeistungen.BS415Column),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BS415 in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.BS415Column) = value End Set End Property _ Public Property BGebUStV() As Boolean Get Try Return CType(Me(Me.tableLeistungen.BGebUStVColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebUStV in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.BGebUStVColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableLeistungen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.SSMA_TimeStampColumn) = value End Set End Property _ Public Property ReverseCharge() As Boolean Get Try Return CType(Me(Me.tableLeistungen.ReverseChargeColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ReverseCharge in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.ReverseChargeColumn) = value End Set End Property _ Public Property IMEX_Gl_account() As String Get Try Return CType(Me(Me.tableLeistungen.IMEX_Gl_accountColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMEX_Gl_account in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.IMEX_Gl_accountColumn) = value End Set End Property _ Public Property IMEX_SachkontoInlandSteuerpflichtig() As String Get Try Return CType(Me(Me.tableLeistungen.IMEX_SachkontoInlandSteuerpflichtigColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMEX_SachkontoInlandSteuerpflichtig in Tabelle Leistungen ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.IMEX_SachkontoInlandSteuerpflichtigColumn) = value End Set End Property _ Public Property IMEX_SachkontoInlandSteuerfrei() As String Get Try Return CType(Me(Me.tableLeistungen.IMEX_SachkontoInlandSteuerfreiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMEX_SachkontoInlandSteuerfrei in Tabelle Leistungen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableLeistungen.IMEX_SachkontoInlandSteuerfreiColumn) = value End Set End Property _ Public Property IMEX_SachkontoEUSteuerpflichtig() As String Get Try Return CType(Me(Me.tableLeistungen.IMEX_SachkontoEUSteuerpflichtigColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMEX_SachkontoEUSteuerpflichtig in Tabelle Leistungen ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tableLeistungen.IMEX_SachkontoEUSteuerpflichtigColumn) = value End Set End Property _ Public Property IMEX_SachkontoEUSteuerfrei() As String Get Try Return CType(Me(Me.tableLeistungen.IMEX_SachkontoEUSteuerfreiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMEX_SachkontoEUSteuerfrei in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.IMEX_SachkontoEUSteuerfreiColumn) = value End Set End Property _ Public Property IMEX_Sachkonto3Land() As String Get Try Return CType(Me(Me.tableLeistungen.IMEX_Sachkonto3LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMEX_Sachkonto3Land in Tabelle Leistungen ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungen.IMEX_Sachkonto3LandColumn) = value End Set End Property _ Public Property abzugsfaehigInZZ() As Boolean Get Return CType(Me(Me.tableLeistungen.abzugsfaehigInZZColumn),Boolean) End Get Set Me(Me.tableLeistungen.abzugsfaehigInZZColumn) = value End Set End Property _ Public Property BerechnungsartRow() As BerechnungsartRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Leistungen$BerechnungsartLeistungen")),BerechnungsartRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Leistungen$BerechnungsartLeistungen")) End Set End Property _ Public Property KostenstellenRow() As KostenstellenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Leistungen$KostenstellenLeistungen")),KostenstellenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Leistungen$KostenstellenLeistungen")) End Set End Property _ Public Function IsAufschubkontoNrNull() As Boolean Return Me.IsNull(Me.tableLeistungen.AufschubkontoNrColumn) End Function _ Public Sub SetAufschubkontoNrNull() Me(Me.tableLeistungen.AufschubkontoNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGl_accountNull() As Boolean Return Me.IsNull(Me.tableLeistungen.Gl_accountColumn) End Function _ Public Sub SetGl_accountNull() Me(Me.tableLeistungen.Gl_accountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnalysis_typeNull() As Boolean Return Me.IsNull(Me.tableLeistungen.Analysis_typeColumn) End Function _ Public Sub SetAnalysis_typeNull() Me(Me.tableLeistungen.Analysis_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnalysis_codeNull() As Boolean Return Me.IsNull(Me.tableLeistungen.Analysis_codeColumn) End Function _ Public Sub SetAnalysis_codeNull() Me(Me.tableLeistungen.Analysis_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoInlandSteuerpflichtigNull() As Boolean Return Me.IsNull(Me.tableLeistungen.SachkontoInlandSteuerpflichtigColumn) End Function _ Public Sub SetSachkontoInlandSteuerpflichtigNull() Me(Me.tableLeistungen.SachkontoInlandSteuerpflichtigColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoInlandSteuerfreiNull() As Boolean Return Me.IsNull(Me.tableLeistungen.SachkontoInlandSteuerfreiColumn) End Function _ Public Sub SetSachkontoInlandSteuerfreiNull() Me(Me.tableLeistungen.SachkontoInlandSteuerfreiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoEUSteuerpflichtigNull() As Boolean Return Me.IsNull(Me.tableLeistungen.SachkontoEUSteuerpflichtigColumn) End Function _ Public Sub SetSachkontoEUSteuerpflichtigNull() Me(Me.tableLeistungen.SachkontoEUSteuerpflichtigColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoEUSteuerfreiNull() As Boolean Return Me.IsNull(Me.tableLeistungen.SachkontoEUSteuerfreiColumn) End Function _ Public Sub SetSachkontoEUSteuerfreiNull() Me(Me.tableLeistungen.SachkontoEUSteuerfreiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkonto3LandNull() As Boolean Return Me.IsNull(Me.tableLeistungen.Sachkonto3LandColumn) End Function _ Public Sub SetSachkonto3LandNull() Me(Me.tableLeistungen.Sachkonto3LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBS415Null() As Boolean Return Me.IsNull(Me.tableLeistungen.BS415Column) End Function _ Public Sub SetBS415Null() Me(Me.tableLeistungen.BS415Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebUStVNull() As Boolean Return Me.IsNull(Me.tableLeistungen.BGebUStVColumn) End Function _ Public Sub SetBGebUStVNull() Me(Me.tableLeistungen.BGebUStVColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableLeistungen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableLeistungen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReverseChargeNull() As Boolean Return Me.IsNull(Me.tableLeistungen.ReverseChargeColumn) End Function _ Public Sub SetReverseChargeNull() Me(Me.tableLeistungen.ReverseChargeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIMEX_Gl_accountNull() As Boolean Return Me.IsNull(Me.tableLeistungen.IMEX_Gl_accountColumn) End Function _ Public Sub SetIMEX_Gl_accountNull() Me(Me.tableLeistungen.IMEX_Gl_accountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIMEX_SachkontoInlandSteuerpflichtigNull() As Boolean Return Me.IsNull(Me.tableLeistungen.IMEX_SachkontoInlandSteuerpflichtigColumn) End Function _ Public Sub SetIMEX_SachkontoInlandSteuerpflichtigNull() Me(Me.tableLeistungen.IMEX_SachkontoInlandSteuerpflichtigColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIMEX_SachkontoInlandSteuerfreiNull() As Boolean Return Me.IsNull(Me.tableLeistungen.IMEX_SachkontoInlandSteuerfreiColumn) End Function _ Public Sub SetIMEX_SachkontoInlandSteuerfreiNull() Me(Me.tableLeistungen.IMEX_SachkontoInlandSteuerfreiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIMEX_SachkontoEUSteuerpflichtigNull() As Boolean Return Me.IsNull(Me.tableLeistungen.IMEX_SachkontoEUSteuerpflichtigColumn) End Function _ Public Sub SetIMEX_SachkontoEUSteuerpflichtigNull() Me(Me.tableLeistungen.IMEX_SachkontoEUSteuerpflichtigColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIMEX_SachkontoEUSteuerfreiNull() As Boolean Return Me.IsNull(Me.tableLeistungen.IMEX_SachkontoEUSteuerfreiColumn) End Function _ Public Sub SetIMEX_SachkontoEUSteuerfreiNull() Me(Me.tableLeistungen.IMEX_SachkontoEUSteuerfreiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIMEX_Sachkonto3LandNull() As Boolean Return Me.IsNull(Me.tableLeistungen.IMEX_Sachkonto3LandColumn) End Function _ Public Sub SetIMEX_Sachkonto3LandNull() Me(Me.tableLeistungen.IMEX_Sachkonto3LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetAbfertigungskosten_der_KorrespondentenRows() As Abfertigungskosten_der_KorrespondentenRow() If (Me.Table.ChildRelations("Abfertigungskosten der Korrespondenten$LeistungenAbfertigungskosten der Korrespon"& _ "denten") Is Nothing) Then Return New Abfertigungskosten_der_KorrespondentenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Abfertigungskosten der Korrespondenten$LeistungenAbfertigungskosten der Korrespon"& _ "denten")),Abfertigungskosten_der_KorrespondentenRow()) End If End Function _ Public Function GetNebenkosten_der_KorrespondentenRows() As Nebenkosten_der_KorrespondentenRow() If (Me.Table.ChildRelations("Nebenkosten der Korrespondenten$LeistungenNebenkosten der Korrespondenten") Is Nothing) Then Return New Nebenkosten_der_KorrespondentenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Nebenkosten der Korrespondenten$LeistungenNebenkosten der Korrespondenten")),Nebenkosten_der_KorrespondentenRow()) End If End Function _ Public Function GetOffertenpositionenRows() As OffertenpositionenRow() If (Me.Table.ChildRelations("Offertenpositionen$LeistungenOffertenpositionen") Is Nothing) Then Return New OffertenpositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Offertenpositionen$LeistungenOffertenpositionen")),OffertenpositionenRow()) End If End Function _ Public Function GetStandardoffertenRows() As StandardoffertenRow() If (Me.Table.ChildRelations("Standardofferten$LeistungenStandardofferten") Is Nothing) Then Return New StandardoffertenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Standardofferten$LeistungenStandardofferten")),StandardoffertenRow()) End If End Function _ Public Function GetStandardoffertenFirmaRows() As StandardoffertenFirmaRow() If (Me.Table.ChildRelations("StandardoffertenFirma$LeistungenStandardofferten") Is Nothing) Then Return New StandardoffertenFirmaRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("StandardoffertenFirma$LeistungenStandardofferten")),StandardoffertenFirmaRow()) End If End Function _ Public Function Gettbl_IDS_LänderRows() As tbl_IDS_LänderRow() If (Me.Table.ChildRelations("tbl_IDS_Länder$Leistungentbl_IDS_Länder") Is Nothing) Then Return New tbl_IDS_LänderRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbl_IDS_Länder$Leistungentbl_IDS_Länder")),tbl_IDS_LänderRow()) End If End Function _ Public Function GettblMSELeistungenRows() As tblMSELeistungenRow() If (Me.Table.ChildRelations("tblMSELeistungen$LeistungentblMSELeistungen") Is Nothing) Then Return New tblMSELeistungenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblMSELeistungen$LeistungentblMSELeistungen")),tblMSELeistungenRow()) End If End Function _ Public Function GettblPreislistenpositionenRows() As tblPreislistenpositionenRow() If (Me.Table.ChildRelations("tblPreislistenpositionen$LeistungentblPreislistenpositionen") Is Nothing) Then Return New tblPreislistenpositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblPreislistenpositionen$LeistungentblPreislistenpositionen")),tblPreislistenpositionenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class LeistungenBUKontenRow Inherits Global.System.Data.DataRow Private tableLeistungenBUKonten As LeistungenBUKontenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableLeistungenBUKonten = CType(Me.Table,LeistungenBUKontenDataTable) End Sub _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tableLeistungenBUKonten.LeistungsNrColumn),Short) End Get Set Me(Me.tableLeistungenBUKonten.LeistungsNrColumn) = value End Set End Property _ Public Property Firma_ID() As Integer Get Return CType(Me(Me.tableLeistungenBUKonten.Firma_IDColumn),Integer) End Get Set Me(Me.tableLeistungenBUKonten.Firma_IDColumn) = value End Set End Property _ Public Property Gl_account() As String Get Try Return CType(Me(Me.tableLeistungenBUKonten.Gl_accountColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gl_account in Tabelle LeistungenBUKonten ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungenBUKonten.Gl_accountColumn) = value End Set End Property _ Public Property SachkontoInlandSteuerpflichtig() As String Get Try Return CType(Me(Me.tableLeistungenBUKonten.SachkontoInlandSteuerpflichtigColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SachkontoInlandSteuerpflichtig in Tabelle LeistungenBUKonten "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungenBUKonten.SachkontoInlandSteuerpflichtigColumn) = value End Set End Property _ Public Property SachkontoInlandSteuerfrei() As String Get Try Return CType(Me(Me.tableLeistungenBUKonten.SachkontoInlandSteuerfreiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SachkontoInlandSteuerfrei in Tabelle LeistungenBUKonten ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tableLeistungenBUKonten.SachkontoInlandSteuerfreiColumn) = value End Set End Property _ Public Property SachkontoEUSteuerpflichtig() As String Get Try Return CType(Me(Me.tableLeistungenBUKonten.SachkontoEUSteuerpflichtigColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SachkontoEUSteuerpflichtig in Tabelle LeistungenBUKonten ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableLeistungenBUKonten.SachkontoEUSteuerpflichtigColumn) = value End Set End Property _ Public Property SachkontoEUSteuerfrei() As String Get Try Return CType(Me(Me.tableLeistungenBUKonten.SachkontoEUSteuerfreiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SachkontoEUSteuerfrei in Tabelle LeistungenBUKonten ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tableLeistungenBUKonten.SachkontoEUSteuerfreiColumn) = value End Set End Property _ Public Property Sachkonto3Land() As String Get Try Return CType(Me(Me.tableLeistungenBUKonten.Sachkonto3LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachkonto3Land in Tabelle LeistungenBUKonten ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungenBUKonten.Sachkonto3LandColumn) = value End Set End Property _ Public Property letzteAenderungUser() As String Get Try Return CType(Me(Me.tableLeistungenBUKonten.letzteAenderungUserColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte letzteAenderungUser in Tabelle LeistungenBUKonten ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableLeistungenBUKonten.letzteAenderungUserColumn) = value End Set End Property _ Public Property letzteAenderung() As Date Get Try Return CType(Me(Me.tableLeistungenBUKonten.letzteAenderungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte letzteAenderung in Tabelle LeistungenBUKonten ist DBNull.", e) End Try End Get Set Me(Me.tableLeistungenBUKonten.letzteAenderungColumn) = value End Set End Property _ Public Function IsGl_accountNull() As Boolean Return Me.IsNull(Me.tableLeistungenBUKonten.Gl_accountColumn) End Function _ Public Sub SetGl_accountNull() Me(Me.tableLeistungenBUKonten.Gl_accountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoInlandSteuerpflichtigNull() As Boolean Return Me.IsNull(Me.tableLeistungenBUKonten.SachkontoInlandSteuerpflichtigColumn) End Function _ Public Sub SetSachkontoInlandSteuerpflichtigNull() Me(Me.tableLeistungenBUKonten.SachkontoInlandSteuerpflichtigColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoInlandSteuerfreiNull() As Boolean Return Me.IsNull(Me.tableLeistungenBUKonten.SachkontoInlandSteuerfreiColumn) End Function _ Public Sub SetSachkontoInlandSteuerfreiNull() Me(Me.tableLeistungenBUKonten.SachkontoInlandSteuerfreiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoEUSteuerpflichtigNull() As Boolean Return Me.IsNull(Me.tableLeistungenBUKonten.SachkontoEUSteuerpflichtigColumn) End Function _ Public Sub SetSachkontoEUSteuerpflichtigNull() Me(Me.tableLeistungenBUKonten.SachkontoEUSteuerpflichtigColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoEUSteuerfreiNull() As Boolean Return Me.IsNull(Me.tableLeistungenBUKonten.SachkontoEUSteuerfreiColumn) End Function _ Public Sub SetSachkontoEUSteuerfreiNull() Me(Me.tableLeistungenBUKonten.SachkontoEUSteuerfreiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkonto3LandNull() As Boolean Return Me.IsNull(Me.tableLeistungenBUKonten.Sachkonto3LandColumn) End Function _ Public Sub SetSachkonto3LandNull() Me(Me.tableLeistungenBUKonten.Sachkonto3LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsletzteAenderungUserNull() As Boolean Return Me.IsNull(Me.tableLeistungenBUKonten.letzteAenderungUserColumn) End Function _ Public Sub SetletzteAenderungUserNull() Me(Me.tableLeistungenBUKonten.letzteAenderungUserColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsletzteAenderungNull() As Boolean Return Me.IsNull(Me.tableLeistungenBUKonten.letzteAenderungColumn) End Function _ Public Sub SetletzteAenderungNull() Me(Me.tableLeistungenBUKonten.letzteAenderungColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class LieferbedingungenRow Inherits Global.System.Data.DataRow Private tableLieferbedingungen As LieferbedingungenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableLieferbedingungen = CType(Me.Table,LieferbedingungenDataTable) End Sub _ Public Property IncotermCode() As String Get Return CType(Me(Me.tableLieferbedingungen.IncotermCodeColumn),String) End Get Set Me(Me.tableLieferbedingungen.IncotermCodeColumn) = value End Set End Property _ Public Property Bedeutung() As String Get Return CType(Me(Me.tableLieferbedingungen.BedeutungColumn),String) End Get Set Me(Me.tableLieferbedingungen.BedeutungColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableLieferbedingungen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Lieferbedingungen ist DBNull.", e) End Try End Get Set Me(Me.tableLieferbedingungen.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableLieferbedingungen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableLieferbedingungen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Nebenkosten_der_KorrespondentenRow Inherits Global.System.Data.DataRow Private tableNebenkosten_der_Korrespondenten As Nebenkosten_der_KorrespondentenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableNebenkosten_der_Korrespondenten = CType(Me.Table,Nebenkosten_der_KorrespondentenDataTable) End Sub _ Public Property KorrespondentenNr() As Integer Get Return CType(Me(Me.tableNebenkosten_der_Korrespondenten.KorrespondentenNrColumn),Integer) End Get Set Me(Me.tableNebenkosten_der_Korrespondenten.KorrespondentenNrColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tableNebenkosten_der_Korrespondenten.LeistungsNrColumn),Short) End Get Set Me(Me.tableNebenkosten_der_Korrespondenten.LeistungsNrColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tableNebenkosten_der_Korrespondenten.LeistungsBezColumn),String) End Get Set Me(Me.tableNebenkosten_der_Korrespondenten.LeistungsBezColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Return CType(Me(Me.tableNebenkosten_der_Korrespondenten.PreisColumn),Decimal) End Get Set Me(Me.tableNebenkosten_der_Korrespondenten.PreisColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableNebenkosten_der_Korrespondenten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Nebenkosten der Korrespondenten ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tableNebenkosten_der_Korrespondenten.SSMA_TimeStampColumn) = value End Set End Property _ Public Property KorrespondentenRow() As KorrespondentenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Nebenkosten der Korrespondenten$KorrespondentenNebenkosten der Korrespondenten")),KorrespondentenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Nebenkosten der Korrespondenten$KorrespondentenNebenkosten der Korrespondenten")) End Set End Property _ Public Property LeistungenRow() As LeistungenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Nebenkosten der Korrespondenten$LeistungenNebenkosten der Korrespondenten")),LeistungenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Nebenkosten der Korrespondenten$LeistungenNebenkosten der Korrespondenten")) End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableNebenkosten_der_Korrespondenten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableNebenkosten_der_Korrespondenten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Offene_PostenRow Inherits Global.System.Data.DataRow Private tableOffene_Posten As Offene_PostenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableOffene_Posten = CType(Me.Table,Offene_PostenDataTable) End Sub _ Public Property OP_ID() As Integer Get Return CType(Me(Me.tableOffene_Posten.OP_IDColumn),Integer) End Get Set Me(Me.tableOffene_Posten.OP_IDColumn) = value End Set End Property _ Public Property Kontonummer() As Integer Get Return CType(Me(Me.tableOffene_Posten.KontonummerColumn),Integer) End Get Set Me(Me.tableOffene_Posten.KontonummerColumn) = value End Set End Property _ Public Property Kontoname() As String Get Try Return CType(Me(Me.tableOffene_Posten.KontonameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kontoname in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.KontonameColumn) = value End Set End Property _ Public Property Belegnummer() As String Get Try Return CType(Me(Me.tableOffene_Posten.BelegnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegnummer in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.BelegnummerColumn) = value End Set End Property _ Public Property Belegdatum() As Date Get Try Return CType(Me(Me.tableOffene_Posten.BelegdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdatum in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.BelegdatumColumn) = value End Set End Property _ Public Property Fälligkeitsdatum() As Date Get Try Return CType(Me(Me.tableOffene_Posten.FälligkeitsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fälligkeitsdatum in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.FälligkeitsdatumColumn) = value End Set End Property _ Public Property Skontodatum() As Date Get Try Return CType(Me(Me.tableOffene_Posten.SkontodatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Skontodatum in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.SkontodatumColumn) = value End Set End Property _ Public Property Skontoprozent() As Double Get Try Return CType(Me(Me.tableOffene_Posten.SkontoprozentColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Skontoprozent in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.SkontoprozentColumn) = value End Set End Property _ Public Property Bruttobetrag() As Double Get Try Return CType(Me(Me.tableOffene_Posten.BruttobetragColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bruttobetrag in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.BruttobetragColumn) = value End Set End Property _ Public Property Waehrung() As String Get Try Return CType(Me(Me.tableOffene_Posten.WaehrungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Waehrung in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.WaehrungColumn) = value End Set End Property _ Public Property Steuersatz() As Double Get Try Return CType(Me(Me.tableOffene_Posten.SteuersatzColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuersatz in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.SteuersatzColumn) = value End Set End Property _ Public Property Gesamtausstand() As Double Get Try Return CType(Me(Me.tableOffene_Posten.GesamtausstandColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtausstand in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.GesamtausstandColumn) = value End Set End Property _ Public Property Steuersatz2() As Double Get Try Return CType(Me(Me.tableOffene_Posten.Steuersatz2Column),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuersatz2 in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.Steuersatz2Column) = value End Set End Property _ Public Property Ausstand2() As Double Get Try Return CType(Me(Me.tableOffene_Posten.Ausstand2Column),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ausstand2 in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.Ausstand2Column) = value End Set End Property _ Public Property Buchungstext() As String Get Try Return CType(Me(Me.tableOffene_Posten.BuchungstextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungstext in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.BuchungstextColumn) = value End Set End Property _ Public Property Bemerkung() As String Get Try Return CType(Me(Me.tableOffene_Posten.BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.BemerkungColumn) = value End Set End Property _ Public Property Mahnstufe() As Integer Get Try Return CType(Me(Me.tableOffene_Posten.MahnstufeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mahnstufe in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.MahnstufeColumn) = value End Set End Property _ Public Property Mahndatum() As Date Get Try Return CType(Me(Me.tableOffene_Posten.MahndatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mahndatum in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.MahndatumColumn) = value End Set End Property _ Public Property Gegenkonto() As Integer Get Try Return CType(Me(Me.tableOffene_Posten.GegenkontoColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gegenkonto in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.GegenkontoColumn) = value End Set End Property _ Public Property Status() As Integer Get Try Return CType(Me(Me.tableOffene_Posten.StatusColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.StatusColumn) = value End Set End Property _ Public Property KumSaldoEUR() As Double Get Try Return CType(Me(Me.tableOffene_Posten.KumSaldoEURColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KumSaldoEUR in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.KumSaldoEURColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableOffene_Posten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Try Return CType(Me(Me.tableOffene_Posten.Firma_IDColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_ID in Tabelle Offene Posten ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten.Firma_IDColumn) = value End Set End Property _ Public Function IsKontonameNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.KontonameColumn) End Function _ Public Sub SetKontonameNull() Me(Me.tableOffene_Posten.KontonameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegnummerNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.BelegnummerColumn) End Function _ Public Sub SetBelegnummerNull() Me(Me.tableOffene_Posten.BelegnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatumNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.BelegdatumColumn) End Function _ Public Sub SetBelegdatumNull() Me(Me.tableOffene_Posten.BelegdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFälligkeitsdatumNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.FälligkeitsdatumColumn) End Function _ Public Sub SetFälligkeitsdatumNull() Me(Me.tableOffene_Posten.FälligkeitsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSkontodatumNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.SkontodatumColumn) End Function _ Public Sub SetSkontodatumNull() Me(Me.tableOffene_Posten.SkontodatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSkontoprozentNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.SkontoprozentColumn) End Function _ Public Sub SetSkontoprozentNull() Me(Me.tableOffene_Posten.SkontoprozentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBruttobetragNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.BruttobetragColumn) End Function _ Public Sub SetBruttobetragNull() Me(Me.tableOffene_Posten.BruttobetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWaehrungNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.WaehrungColumn) End Function _ Public Sub SetWaehrungNull() Me(Me.tableOffene_Posten.WaehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuersatzNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.SteuersatzColumn) End Function _ Public Sub SetSteuersatzNull() Me(Me.tableOffene_Posten.SteuersatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtausstandNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.GesamtausstandColumn) End Function _ Public Sub SetGesamtausstandNull() Me(Me.tableOffene_Posten.GesamtausstandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuersatz2Null() As Boolean Return Me.IsNull(Me.tableOffene_Posten.Steuersatz2Column) End Function _ Public Sub SetSteuersatz2Null() Me(Me.tableOffene_Posten.Steuersatz2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAusstand2Null() As Boolean Return Me.IsNull(Me.tableOffene_Posten.Ausstand2Column) End Function _ Public Sub SetAusstand2Null() Me(Me.tableOffene_Posten.Ausstand2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungstextNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.BuchungstextColumn) End Function _ Public Sub SetBuchungstextNull() Me(Me.tableOffene_Posten.BuchungstextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.BemerkungColumn) End Function _ Public Sub SetBemerkungNull() Me(Me.tableOffene_Posten.BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMahnstufeNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.MahnstufeColumn) End Function _ Public Sub SetMahnstufeNull() Me(Me.tableOffene_Posten.MahnstufeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMahndatumNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.MahndatumColumn) End Function _ Public Sub SetMahndatumNull() Me(Me.tableOffene_Posten.MahndatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGegenkontoNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.GegenkontoColumn) End Function _ Public Sub SetGegenkontoNull() Me(Me.tableOffene_Posten.GegenkontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tableOffene_Posten.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKumSaldoEURNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.KumSaldoEURColumn) End Function _ Public Sub SetKumSaldoEURNull() Me(Me.tableOffene_Posten.KumSaldoEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableOffene_Posten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_IDNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten.Firma_IDColumn) End Function _ Public Sub SetFirma_IDNull() Me(Me.tableOffene_Posten.Firma_IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Offene_Posten_DVORow Inherits Global.System.Data.DataRow Private tableOffene_Posten_DVO As Offene_Posten_DVODataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableOffene_Posten_DVO = CType(Me.Table,Offene_Posten_DVODataTable) End Sub _ Public Property OP_ID() As Integer Get Return CType(Me(Me.tableOffene_Posten_DVO.OP_IDColumn),Integer) End Get Set Me(Me.tableOffene_Posten_DVO.OP_IDColumn) = value End Set End Property _ Public Property Konto() As Integer Get Return CType(Me(Me.tableOffene_Posten_DVO.KontoColumn),Integer) End Get Set Me(Me.tableOffene_Posten_DVO.KontoColumn) = value End Set End Property _ Public Property KontoBez() As String Get Try Return CType(Me(Me.tableOffene_Posten_DVO.KontoBezColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KontoBez in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.KontoBezColumn) = value End Set End Property _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tableOffene_Posten_DVO.KundenNrColumn),Integer) End Get Set Me(Me.tableOffene_Posten_DVO.KundenNrColumn) = value End Set End Property _ Public Property Rechnung() As String Get Try Return CType(Me(Me.tableOffene_Posten_DVO.RechnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnung in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.RechnungColumn) = value End Set End Property _ Public Property Datum() As Date Get Try Return CType(Me(Me.tableOffene_Posten_DVO.DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datum in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.DatumColumn) = value End Set End Property _ Public Property Buchungsbetrag_SOLL() As Decimal Get Return CType(Me(Me.tableOffene_Posten_DVO.Buchungsbetrag_SOLLColumn),Decimal) End Get Set Me(Me.tableOffene_Posten_DVO.Buchungsbetrag_SOLLColumn) = value End Set End Property _ Public Property Buchungsbetrag_HABEN() As Decimal Get Return CType(Me(Me.tableOffene_Posten_DVO.Buchungsbetrag_HABENColumn),Decimal) End Get Set Me(Me.tableOffene_Posten_DVO.Buchungsbetrag_HABENColumn) = value End Set End Property _ Public Property Steuercode() As String Get Try Return CType(Me(Me.tableOffene_Posten_DVO.SteuercodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuercode in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.SteuercodeColumn) = value End Set End Property _ Public Property Ländercode() As String Get Try Return CType(Me(Me.tableOffene_Posten_DVO.LändercodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ländercode in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.LändercodeColumn) = value End Set End Property _ Public Property Steuerbetrag() As Decimal Get Try Return CType(Me(Me.tableOffene_Posten_DVO.SteuerbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerbetrag in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.SteuerbetragColumn) = value End Set End Property _ Public Property Buchungstext() As String Get Try Return CType(Me(Me.tableOffene_Posten_DVO.BuchungstextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungstext in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.BuchungstextColumn) = value End Set End Property _ Public Property Faell_Tage1() As Decimal Get Try Return CType(Me(Me.tableOffene_Posten_DVO.Faell_Tage1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Faell_Tage1 in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.Faell_Tage1Column) = value End Set End Property _ Public Property Faell_Prozent1() As Decimal Get Try Return CType(Me(Me.tableOffene_Posten_DVO.Faell_Prozent1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Faell_Prozent1 in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.Faell_Prozent1Column) = value End Set End Property _ Public Property Faell_Tage2() As Decimal Get Try Return CType(Me(Me.tableOffene_Posten_DVO.Faell_Tage2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Faell_Tage2 in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.Faell_Tage2Column) = value End Set End Property _ Public Property Faell_Prozent2() As Decimal Get Try Return CType(Me(Me.tableOffene_Posten_DVO.Faell_Prozent2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Faell_Prozent2 in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.Faell_Prozent2Column) = value End Set End Property _ Public Property Faell_Tage3() As Decimal Get Try Return CType(Me(Me.tableOffene_Posten_DVO.Faell_Tage3Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Faell_Tage3 in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.Faell_Tage3Column) = value End Set End Property _ Public Property Faell_Prozent3() As Decimal Get Try Return CType(Me(Me.tableOffene_Posten_DVO.Faell_Prozent3Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Faell_Prozent3 in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.Faell_Prozent3Column) = value End Set End Property _ Public Property Mahnstufe() As Short Get Return CType(Me(Me.tableOffene_Posten_DVO.MahnstufeColumn),Short) End Get Set Me(Me.tableOffene_Posten_DVO.MahnstufeColumn) = value End Set End Property _ Public Property Rechnung_Gutschrift() As String Get Try Return CType(Me(Me.tableOffene_Posten_DVO.Rechnung_GutschriftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnung_Gutschrift in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.Rechnung_GutschriftColumn) = value End Set End Property _ Public Property Storno() As String Get Try Return CType(Me(Me.tableOffene_Posten_DVO.StornoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Storno in Tabelle Offene_Posten_DVO ist DBNull.", e) End Try End Get Set Me(Me.tableOffene_Posten_DVO.StornoColumn) = value End Set End Property _ Public Property Jahr() As Decimal Get Return CType(Me(Me.tableOffene_Posten_DVO.JahrColumn),Decimal) End Get Set Me(Me.tableOffene_Posten_DVO.JahrColumn) = value End Set End Property _ Public Property Saldo() As Decimal Get Return CType(Me(Me.tableOffene_Posten_DVO.SaldoColumn),Decimal) End Get Set Me(Me.tableOffene_Posten_DVO.SaldoColumn) = value End Set End Property _ Public Property Faelligkeit() As Date Get Return CType(Me(Me.tableOffene_Posten_DVO.FaelligkeitColumn),Date) End Get Set Me(Me.tableOffene_Posten_DVO.FaelligkeitColumn) = value End Set End Property _ Public Function IsKontoBezNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.KontoBezColumn) End Function _ Public Sub SetKontoBezNull() Me(Me.tableOffene_Posten_DVO.KontoBezColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.RechnungColumn) End Function _ Public Sub SetRechnungNull() Me(Me.tableOffene_Posten_DVO.RechnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatumNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.DatumColumn) End Function _ Public Sub SetDatumNull() Me(Me.tableOffene_Posten_DVO.DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuercodeNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.SteuercodeColumn) End Function _ Public Sub SetSteuercodeNull() Me(Me.tableOffene_Posten_DVO.SteuercodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLändercodeNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.LändercodeColumn) End Function _ Public Sub SetLändercodeNull() Me(Me.tableOffene_Posten_DVO.LändercodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.SteuerbetragColumn) End Function _ Public Sub SetSteuerbetragNull() Me(Me.tableOffene_Posten_DVO.SteuerbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungstextNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.BuchungstextColumn) End Function _ Public Sub SetBuchungstextNull() Me(Me.tableOffene_Posten_DVO.BuchungstextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFaell_Tage1Null() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.Faell_Tage1Column) End Function _ Public Sub SetFaell_Tage1Null() Me(Me.tableOffene_Posten_DVO.Faell_Tage1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFaell_Prozent1Null() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.Faell_Prozent1Column) End Function _ Public Sub SetFaell_Prozent1Null() Me(Me.tableOffene_Posten_DVO.Faell_Prozent1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFaell_Tage2Null() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.Faell_Tage2Column) End Function _ Public Sub SetFaell_Tage2Null() Me(Me.tableOffene_Posten_DVO.Faell_Tage2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFaell_Prozent2Null() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.Faell_Prozent2Column) End Function _ Public Sub SetFaell_Prozent2Null() Me(Me.tableOffene_Posten_DVO.Faell_Prozent2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFaell_Tage3Null() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.Faell_Tage3Column) End Function _ Public Sub SetFaell_Tage3Null() Me(Me.tableOffene_Posten_DVO.Faell_Tage3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFaell_Prozent3Null() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.Faell_Prozent3Column) End Function _ Public Sub SetFaell_Prozent3Null() Me(Me.tableOffene_Posten_DVO.Faell_Prozent3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnung_GutschriftNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.Rechnung_GutschriftColumn) End Function _ Public Sub SetRechnung_GutschriftNull() Me(Me.tableOffene_Posten_DVO.Rechnung_GutschriftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStornoNull() As Boolean Return Me.IsNull(Me.tableOffene_Posten_DVO.StornoColumn) End Function _ Public Sub SetStornoNull() Me(Me.tableOffene_Posten_DVO.StornoColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class OffertenRow Inherits Global.System.Data.DataRow Private tableOfferten As OffertenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableOfferten = CType(Me.Table,OffertenDataTable) End Sub _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tableOfferten.KundenNrColumn),Integer) End Get Set Me(Me.tableOfferten.KundenNrColumn) = value End Set End Property _ Public Property OffertenNr() As Integer Get Return CType(Me(Me.tableOfferten.OffertenNrColumn),Integer) End Get Set Me(Me.tableOfferten.OffertenNrColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tableOfferten.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.FilialenNrColumn) = value End Set End Property _ Public Property Pauschalpreis() As Boolean Get Try Return CType(Me(Me.tableOfferten.PauschalpreisColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pauschalpreis in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.PauschalpreisColumn) = value End Set End Property _ Public Property Standardofferte() As Boolean Get Try Return CType(Me(Me.tableOfferten.StandardofferteColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Standardofferte in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.StandardofferteColumn) = value End Set End Property _ Public Property Besonderheiten() As String Get Try Return CType(Me(Me.tableOfferten.BesonderheitenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Besonderheiten in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.BesonderheitenColumn) = value End Set End Property _ Public Property Eingegeben_am() As Date Get Return CType(Me(Me.tableOfferten.Eingegeben_amColumn),Date) End Get Set Me(Me.tableOfferten.Eingegeben_amColumn) = value End Set End Property _ Public Property Geändert_am() As Date Get Try Return CType(Me(Me.tableOfferten.Geändert_amColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Geändert am in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.Geändert_amColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tableOfferten.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.SachbearbeiterColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableOfferten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Gesperrt() As Boolean Get Try Return CType(Me(Me.tableOfferten.GesperrtColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesperrt in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.GesperrtColumn) = value End Set End Property _ Public Property Gesperrt_Datum() As Date Get Try Return CType(Me(Me.tableOfferten.Gesperrt_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesperrt_Datum in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.Gesperrt_DatumColumn) = value End Set End Property _ Public Property Gesperrt_Grund() As String Get Try Return CType(Me(Me.tableOfferten.Gesperrt_GrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesperrt_Grund in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.Gesperrt_GrundColumn) = value End Set End Property _ Public Property Art() As String Get Try Return CType(Me(Me.tableOfferten.ArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Art in Tabelle Offerten ist DBNull.", e) End Try End Get Set Me(Me.tableOfferten.ArtColumn) = value End Set End Property _ Public Property FilialenRow() As FilialenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Offerten$FilialenOfferten")),FilialenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Offerten$FilialenOfferten")) End Set End Property _ Public Property KundenRow() As KundenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Offerten$KundenOfferten")),KundenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Offerten$KundenOfferten")) End Set End Property _ Public Property OffertenstammRow() As OffertenstammRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Offerten$OffertenstammOfferten")),OffertenstammRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Offerten$OffertenstammOfferten")) End Set End Property _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tableOfferten.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tableOfferten.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPauschalpreisNull() As Boolean Return Me.IsNull(Me.tableOfferten.PauschalpreisColumn) End Function _ Public Sub SetPauschalpreisNull() Me(Me.tableOfferten.PauschalpreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStandardofferteNull() As Boolean Return Me.IsNull(Me.tableOfferten.StandardofferteColumn) End Function _ Public Sub SetStandardofferteNull() Me(Me.tableOfferten.StandardofferteColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBesonderheitenNull() As Boolean Return Me.IsNull(Me.tableOfferten.BesonderheitenColumn) End Function _ Public Sub SetBesonderheitenNull() Me(Me.tableOfferten.BesonderheitenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändert_amNull() As Boolean Return Me.IsNull(Me.tableOfferten.Geändert_amColumn) End Function _ Public Sub SetGeändert_amNull() Me(Me.tableOfferten.Geändert_amColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableOfferten.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tableOfferten.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableOfferten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableOfferten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesperrtNull() As Boolean Return Me.IsNull(Me.tableOfferten.GesperrtColumn) End Function _ Public Sub SetGesperrtNull() Me(Me.tableOfferten.GesperrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesperrt_DatumNull() As Boolean Return Me.IsNull(Me.tableOfferten.Gesperrt_DatumColumn) End Function _ Public Sub SetGesperrt_DatumNull() Me(Me.tableOfferten.Gesperrt_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesperrt_GrundNull() As Boolean Return Me.IsNull(Me.tableOfferten.Gesperrt_GrundColumn) End Function _ Public Sub SetGesperrt_GrundNull() Me(Me.tableOfferten.Gesperrt_GrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsArtNull() As Boolean Return Me.IsNull(Me.tableOfferten.ArtColumn) End Function _ Public Sub SetArtNull() Me(Me.tableOfferten.ArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetOffertenpositionenRows() As OffertenpositionenRow() If (Me.Table.ChildRelations("Offertenpositionen$OffertenOffertenpositionen") Is Nothing) Then Return New OffertenpositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Offertenpositionen$OffertenOffertenpositionen")),OffertenpositionenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class OffertenpositionenRow Inherits Global.System.Data.DataRow Private tableOffertenpositionen As OffertenpositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableOffertenpositionen = CType(Me.Table,OffertenpositionenDataTable) End Sub _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tableOffertenpositionen.KundenNrColumn),Integer) End Get Set Me(Me.tableOffertenpositionen.KundenNrColumn) = value End Set End Property _ Public Property OffertenNr() As Integer Get Return CType(Me(Me.tableOffertenpositionen.OffertenNrColumn),Integer) End Get Set Me(Me.tableOffertenpositionen.OffertenNrColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tableOffertenpositionen.LeistungsNrColumn),Short) End Get Set Me(Me.tableOffertenpositionen.LeistungsNrColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tableOffertenpositionen.LeistungsBezColumn),String) End Get Set Me(Me.tableOffertenpositionen.LeistungsBezColumn) = value End Set End Property _ Public Property BerechnungsartNr() As Short Get Return CType(Me(Me.tableOffertenpositionen.BerechnungsartNrColumn),Short) End Get Set Me(Me.tableOffertenpositionen.BerechnungsartNrColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tableOffertenpositionen.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle Offertenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.PreisColumn) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tableOffertenpositionen.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle Offertenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.AnzahlColumn) = value End Set End Property _ Public Property BGebLeistungsNr() As Short Get Try Return CType(Me(Me.tableOffertenpositionen.BGebLeistungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebLeistungsNr in Tabelle Offertenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.BGebLeistungsNrColumn) = value End Set End Property _ Public Property BGebProzent() As Single Get Try Return CType(Me(Me.tableOffertenpositionen.BGebProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebProzent in Tabelle Offertenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.BGebProzentColumn) = value End Set End Property _ Public Property BGebMinBetrag() As Decimal Get Try Return CType(Me(Me.tableOffertenpositionen.BGebMinBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebMinBetrag in Tabelle Offertenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.BGebMinBetragColumn) = value End Set End Property _ Public Property Eingegeben_am() As Date Get Return CType(Me(Me.tableOffertenpositionen.Eingegeben_amColumn),Date) End Get Set Me(Me.tableOffertenpositionen.Eingegeben_amColumn) = value End Set End Property _ Public Property Geändert_am() As Date Get Try Return CType(Me(Me.tableOffertenpositionen.Geändert_amColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Geändert am in Tabelle Offertenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.Geändert_amColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tableOffertenpositionen.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle Offertenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.SachbearbeiterColumn) = value End Set End Property _ Public Property Preisänderung() As Decimal Get Try Return CType(Me(Me.tableOffertenpositionen.PreisänderungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preisänderung in Tabelle Offertenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.PreisänderungColumn) = value End Set End Property _ Public Property PreisänderungProzent() As Single Get Try Return CType(Me(Me.tableOffertenpositionen.PreisänderungProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PreisänderungProzent in Tabelle Offertenpositionen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableOffertenpositionen.PreisänderungProzentColumn) = value End Set End Property _ Public Property PreisAlt() As Decimal Get Try Return CType(Me(Me.tableOffertenpositionen.PreisAltColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PreisAlt in Tabelle Offertenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.PreisAltColumn) = value End Set End Property _ Public Property BerechnungsartPosInkludiert() As Integer Get Try Return CType(Me(Me.tableOffertenpositionen.BerechnungsartPosInkludiertColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BerechnungsartPosInkludiert in Tabelle Offertenpositionen ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.BerechnungsartPosInkludiertColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableOffertenpositionen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Offertenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenpositionen.SSMA_TimeStampColumn) = value End Set End Property _ Public Property BerechnungsartRow() As BerechnungsartRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Offertenpositionen$BerechnungsartOffertenpositionen")),BerechnungsartRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Offertenpositionen$BerechnungsartOffertenpositionen")) End Set End Property _ Public Property LeistungenRow() As LeistungenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Offertenpositionen$LeistungenOffertenpositionen")),LeistungenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Offertenpositionen$LeistungenOffertenpositionen")) End Set End Property _ Public Property OffertenRowParent() As OffertenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Offertenpositionen$OffertenOffertenpositionen")),OffertenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Offertenpositionen$OffertenOffertenpositionen")) End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tableOffertenpositionen.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tableOffertenpositionen.AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebLeistungsNrNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.BGebLeistungsNrColumn) End Function _ Public Sub SetBGebLeistungsNrNull() Me(Me.tableOffertenpositionen.BGebLeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebProzentNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.BGebProzentColumn) End Function _ Public Sub SetBGebProzentNull() Me(Me.tableOffertenpositionen.BGebProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebMinBetragNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.BGebMinBetragColumn) End Function _ Public Sub SetBGebMinBetragNull() Me(Me.tableOffertenpositionen.BGebMinBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändert_amNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.Geändert_amColumn) End Function _ Public Sub SetGeändert_amNull() Me(Me.tableOffertenpositionen.Geändert_amColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tableOffertenpositionen.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreisänderungNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.PreisänderungColumn) End Function _ Public Sub SetPreisänderungNull() Me(Me.tableOffertenpositionen.PreisänderungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreisänderungProzentNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.PreisänderungProzentColumn) End Function _ Public Sub SetPreisänderungProzentNull() Me(Me.tableOffertenpositionen.PreisänderungProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreisAltNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.PreisAltColumn) End Function _ Public Sub SetPreisAltNull() Me(Me.tableOffertenpositionen.PreisAltColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerechnungsartPosInkludiertNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.BerechnungsartPosInkludiertColumn) End Function _ Public Sub SetBerechnungsartPosInkludiertNull() Me(Me.tableOffertenpositionen.BerechnungsartPosInkludiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableOffertenpositionen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableOffertenpositionen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class OffertenstammRow Inherits Global.System.Data.DataRow Private tableOffertenstamm As OffertenstammDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableOffertenstamm = CType(Me.Table,OffertenstammDataTable) End Sub _ Public Property OffertenNr() As Integer Get Return CType(Me(Me.tableOffertenstamm.OffertenNrColumn),Integer) End Get Set Me(Me.tableOffertenstamm.OffertenNrColumn) = value End Set End Property _ Public Property OffertenBez() As String Get Return CType(Me(Me.tableOffertenstamm.OffertenBezColumn),String) End Get Set Me(Me.tableOffertenstamm.OffertenBezColumn) = value End Set End Property _ Public Property Zahlungsziel() As Short Get Try Return CType(Me(Me.tableOffertenstamm.ZahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsziel in Tabelle Offertenstamm ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenstamm.ZahlungszielColumn) = value End Set End Property _ Public Property SF() As Short Get Return CType(Me(Me.tableOffertenstamm.SFColumn),Short) End Get Set Me(Me.tableOffertenstamm.SFColumn) = value End Set End Property _ Public Property Minusvorzeichen() As Boolean Get Try Return CType(Me(Me.tableOffertenstamm.MinusvorzeichenColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Minusvorzeichen in Tabelle Offertenstamm ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenstamm.MinusvorzeichenColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableOffertenstamm.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Offertenstamm ist DBNull.", e) End Try End Get Set Me(Me.tableOffertenstamm.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsZahlungszielNull() As Boolean Return Me.IsNull(Me.tableOffertenstamm.ZahlungszielColumn) End Function _ Public Sub SetZahlungszielNull() Me(Me.tableOffertenstamm.ZahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMinusvorzeichenNull() As Boolean Return Me.IsNull(Me.tableOffertenstamm.MinusvorzeichenColumn) End Function _ Public Sub SetMinusvorzeichenNull() Me(Me.tableOffertenstamm.MinusvorzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableOffertenstamm.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableOffertenstamm.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetOffertenRows() As OffertenRow() If (Me.Table.ChildRelations("Offerten$OffertenstammOfferten") Is Nothing) Then Return New OffertenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Offerten$OffertenstammOfferten")),OffertenRow()) End If End Function _ Public Function GetStandardoffertenRows() As StandardoffertenRow() If (Me.Table.ChildRelations("Standardofferten$OffertenstammStandardofferten") Is Nothing) Then Return New StandardoffertenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Standardofferten$OffertenstammStandardofferten")),StandardoffertenRow()) End If End Function _ Public Function GetStandardoffertenFirmaRows() As StandardoffertenFirmaRow() If (Me.Table.ChildRelations("StandardoffertenFirma$OffertenstammStandardofferten") Is Nothing) Then Return New StandardoffertenFirmaRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("StandardoffertenFirma$OffertenstammStandardofferten")),StandardoffertenFirmaRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class PersonalRow Inherits Global.System.Data.DataRow Private tablePersonal As PersonalDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablePersonal = CType(Me.Table,PersonalDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tablePersonal.IDColumn),Integer) End Get Set Me(Me.tablePersonal.IDColumn) = value End Set End Property _ Public Property Name() As String Get Return CType(Me(Me.tablePersonal.NameColumn),String) End Get Set Me(Me.tablePersonal.NameColumn) = value End Set End Property _ Public Property Kennwort() As String Get Try Return CType(Me(Me.tablePersonal.KennwortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kennwort in Tabelle Personal ist DBNull.", e) End Try End Get Set Me(Me.tablePersonal.KennwortColumn) = value End Set End Property _ Public Property KassenbuchNr() As Integer Get Try Return CType(Me(Me.tablePersonal.KassenbuchNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KassenbuchNr in Tabelle Personal ist DBNull.", e) End Try End Get Set Me(Me.tablePersonal.KassenbuchNrColumn) = value End Set End Property _ Public Property Supervisor() As Boolean Get Try Return CType(Me(Me.tablePersonal.SupervisorColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Supervisor in Tabelle Personal ist DBNull.", e) End Try End Get Set Me(Me.tablePersonal.SupervisorColumn) = value End Set End Property _ Public Property Status() As String Get Return CType(Me(Me.tablePersonal.StatusColumn),String) End Get Set Me(Me.tablePersonal.StatusColumn) = value End Set End Property _ Public Property Mandant() As String Get Try Return CType(Me(Me.tablePersonal.MandantColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant in Tabelle Personal ist DBNull.", e) End Try End Get Set Me(Me.tablePersonal.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Try Return CType(Me(Me.tablePersonal.NiederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Niederlassung in Tabelle Personal ist DBNull.", e) End Try End Get Set Me(Me.tablePersonal.NiederlassungColumn) = value End Set End Property _ Public Property SBSichtbar() As Boolean Get Try Return CType(Me(Me.tablePersonal.SBSichtbarColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SBSichtbar in Tabelle Personal ist DBNull.", e) End Try End Get Set Me(Me.tablePersonal.SBSichtbarColumn) = value End Set End Property _ Public Property BLC() As String Get Try Return CType(Me(Me.tablePersonal.BLCColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BLC in Tabelle Personal ist DBNull.", e) End Try End Get Set Me(Me.tablePersonal.BLCColumn) = value End Set End Property _ Public Property CMR() As Boolean Get Try Return CType(Me(Me.tablePersonal.CMRColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CMR in Tabelle Personal ist DBNull.", e) End Try End Get Set Me(Me.tablePersonal.CMRColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tablePersonal.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Personal ist DBNull.", e) End Try End Get Set Me(Me.tablePersonal.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Standard_RKSV_KasseId() As Integer Get Return CType(Me(Me.tablePersonal.Standard_RKSV_KasseIdColumn),Integer) End Get Set Me(Me.tablePersonal.Standard_RKSV_KasseIdColumn) = value End Set End Property _ Public Property PasswortChanged() As Date Get Try Return CType(Me(Me.tablePersonal.PasswortChangedColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PasswortChanged in Tabelle Personal ist DBNull.", e) End Try End Get Set Me(Me.tablePersonal.PasswortChangedColumn) = value End Set End Property _ Public Property isLeihgeldkasse() As Boolean Get Return CType(Me(Me.tablePersonal.isLeihgeldkasseColumn),Boolean) End Get Set Me(Me.tablePersonal.isLeihgeldkasseColumn) = value End Set End Property _ Public Property AllowLG() As Boolean Get Return CType(Me(Me.tablePersonal.AllowLGColumn),Boolean) End Get Set Me(Me.tablePersonal.AllowLGColumn) = value End Set End Property _ Public Function IsKennwortNull() As Boolean Return Me.IsNull(Me.tablePersonal.KennwortColumn) End Function _ Public Sub SetKennwortNull() Me(Me.tablePersonal.KennwortColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKassenbuchNrNull() As Boolean Return Me.IsNull(Me.tablePersonal.KassenbuchNrColumn) End Function _ Public Sub SetKassenbuchNrNull() Me(Me.tablePersonal.KassenbuchNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSupervisorNull() As Boolean Return Me.IsNull(Me.tablePersonal.SupervisorColumn) End Function _ Public Sub SetSupervisorNull() Me(Me.tablePersonal.SupervisorColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMandantNull() As Boolean Return Me.IsNull(Me.tablePersonal.MandantColumn) End Function _ Public Sub SetMandantNull() Me(Me.tablePersonal.MandantColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNiederlassungNull() As Boolean Return Me.IsNull(Me.tablePersonal.NiederlassungColumn) End Function _ Public Sub SetNiederlassungNull() Me(Me.tablePersonal.NiederlassungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSBSichtbarNull() As Boolean Return Me.IsNull(Me.tablePersonal.SBSichtbarColumn) End Function _ Public Sub SetSBSichtbarNull() Me(Me.tablePersonal.SBSichtbarColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBLCNull() As Boolean Return Me.IsNull(Me.tablePersonal.BLCColumn) End Function _ Public Sub SetBLCNull() Me(Me.tablePersonal.BLCColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCMRNull() As Boolean Return Me.IsNull(Me.tablePersonal.CMRColumn) End Function _ Public Sub SetCMRNull() Me(Me.tablePersonal.CMRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tablePersonal.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tablePersonal.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPasswortChangedNull() As Boolean Return Me.IsNull(Me.tablePersonal.PasswortChangedColumn) End Function _ Public Sub SetPasswortChangedNull() Me(Me.tablePersonal.PasswortChangedColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class RechnungsausgangRow Inherits Global.System.Data.DataRow Private tableRechnungsausgang As RechnungsausgangDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableRechnungsausgang = CType(Me.Table,RechnungsausgangDataTable) End Sub _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tableRechnungsausgang.RK_IDColumn),Integer) End Get Set Me(Me.tableRechnungsausgang.RK_IDColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tableRechnungsausgang.FilialenNrColumn),Short) End Get Set Me(Me.tableRechnungsausgang.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tableRechnungsausgang.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tableRechnungsausgang.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tableRechnungsausgang.UnterNrColumn),Short) End Get Set Me(Me.tableRechnungsausgang.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Return CType(Me(Me.tableRechnungsausgang.AbfertigungsdatumColumn),Date) End Get Set Me(Me.tableRechnungsausgang.AbfertigungsdatumColumn) = value End Set End Property _ Public Property RechnungsNr() As Integer Get Try Return CType(Me(Me.tableRechnungsausgang.RechnungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RechnungsNrColumn) = value End Set End Property _ Public Property RechnungsDatum() As Date Get Try Return CType(Me(Me.tableRechnungsausgang.RechnungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsDatum in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RechnungsDatumColumn) = value End Set End Property _ Public Property Sammelrechnung() As Short Get Return CType(Me(Me.tableRechnungsausgang.SammelrechnungColumn),Short) End Get Set Me(Me.tableRechnungsausgang.SammelrechnungColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Return CType(Me(Me.tableRechnungsausgang.BelegartenNrColumn),Short) End Get Set Me(Me.tableRechnungsausgang.BelegartenNrColumn) = value End Set End Property _ Public Property BelegartenKz() As String Get Return CType(Me(Me.tableRechnungsausgang.BelegartenKzColumn),String) End Get Set Me(Me.tableRechnungsausgang.BelegartenKzColumn) = value End Set End Property _ Public Property BelegartenBez() As String Get Return CType(Me(Me.tableRechnungsausgang.BelegartenBezColumn),String) End Get Set Me(Me.tableRechnungsausgang.BelegartenBezColumn) = value End Set End Property _ Public Property Vorzeichen() As String Get Return CType(Me(Me.tableRechnungsausgang.VorzeichenColumn),String) End Get Set Me(Me.tableRechnungsausgang.VorzeichenColumn) = value End Set End Property _ Public Property BelegNr() As String Get Try Return CType(Me(Me.tableRechnungsausgang.BelegNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.BelegNrColumn) = value End Set End Property _ Public Property AbsenderLandKz() As String Get Try Return CType(Me(Me.tableRechnungsausgang.AbsenderLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderLandKz in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AbsenderLandKzColumn) = value End Set End Property _ Public Property AbsenderKundenNr() As Integer Get Try Return CType(Me(Me.tableRechnungsausgang.AbsenderKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderKundenNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AbsenderKundenNrColumn) = value End Set End Property _ Public Property AbsenderName_1() As String Get Try Return CType(Me(Me.tableRechnungsausgang.AbsenderName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderName 1 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AbsenderName_1Column) = value End Set End Property _ Public Property AbsenderName_2() As String Get Try Return CType(Me(Me.tableRechnungsausgang.AbsenderName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderName 2 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AbsenderName_2Column) = value End Set End Property _ Public Property AbsenderStraße() As String Get Try Return CType(Me(Me.tableRechnungsausgang.AbsenderStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderStraße in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AbsenderStraßeColumn) = value End Set End Property _ Public Property AbsenderOrt() As String Get Try Return CType(Me(Me.tableRechnungsausgang.AbsenderOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOrt in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AbsenderOrtColumn) = value End Set End Property _ Public Property AbsenderOffertenNr() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.AbsenderOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOffertenNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AbsenderOffertenNrColumn) = value End Set End Property _ Public Property EmpfängerLandKz() As String Get Try Return CType(Me(Me.tableRechnungsausgang.EmpfängerLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerLandKz in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.EmpfängerLandKzColumn) = value End Set End Property _ Public Property EmpfängerKundenNr() As Integer Get Try Return CType(Me(Me.tableRechnungsausgang.EmpfängerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerKundenNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.EmpfängerKundenNrColumn) = value End Set End Property _ Public Property EmpfängerName_1() As String Get Try Return CType(Me(Me.tableRechnungsausgang.EmpfängerName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerName 1 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.EmpfängerName_1Column) = value End Set End Property _ Public Property EmpfängerName_2() As String Get Try Return CType(Me(Me.tableRechnungsausgang.EmpfängerName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerName 2 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.EmpfängerName_2Column) = value End Set End Property _ Public Property EmpfängerStraße() As String Get Try Return CType(Me(Me.tableRechnungsausgang.EmpfängerStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerStraße in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.EmpfängerStraßeColumn) = value End Set End Property _ Public Property EmpfängerOrt() As String Get Try Return CType(Me(Me.tableRechnungsausgang.EmpfängerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOrt in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.EmpfängerOrtColumn) = value End Set End Property _ Public Property EmpfängerOffertenNr() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.EmpfängerOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOffertenNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.EmpfängerOffertenNrColumn) = value End Set End Property _ Public Property VermittlerLandKz() As String Get Try Return CType(Me(Me.tableRechnungsausgang.VermittlerLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerLandKz in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.VermittlerLandKzColumn) = value End Set End Property _ Public Property VermittlerKundenNr() As Integer Get Try Return CType(Me(Me.tableRechnungsausgang.VermittlerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerKundenNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.VermittlerKundenNrColumn) = value End Set End Property _ Public Property VermittlerName_1() As String Get Try Return CType(Me(Me.tableRechnungsausgang.VermittlerName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerName 1 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.VermittlerName_1Column) = value End Set End Property _ Public Property VermittlerName_2() As String Get Try Return CType(Me(Me.tableRechnungsausgang.VermittlerName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerName 2 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.VermittlerName_2Column) = value End Set End Property _ Public Property VermittlerStraße() As String Get Try Return CType(Me(Me.tableRechnungsausgang.VermittlerStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerStraße in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.VermittlerStraßeColumn) = value End Set End Property _ Public Property VermittlerOrt() As String Get Try Return CType(Me(Me.tableRechnungsausgang.VermittlerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOrt in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.VermittlerOrtColumn) = value End Set End Property _ Public Property VermittlerOffertenNr() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.VermittlerOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOffertenNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.VermittlerOffertenNrColumn) = value End Set End Property _ Public Property Rechnung_an() As Short Get Return CType(Me(Me.tableRechnungsausgang.Rechnung_anColumn),Short) End Get Set Me(Me.tableRechnungsausgang.Rechnung_anColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Try Return CType(Me(Me.tableRechnungsausgang.KundenNrZentraleColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNrZentrale in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.KundenNrZentraleColumn) = value End Set End Property _ Public Property RechnungsLandKz() As String Get Try Return CType(Me(Me.tableRechnungsausgang.RechnungsLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsLandKz in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RechnungsLandKzColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Return CType(Me(Me.tableRechnungsausgang.RechnungsKundenNrColumn),Integer) End Get Set Me(Me.tableRechnungsausgang.RechnungsKundenNrColumn) = value End Set End Property _ Public Property RechnungsName_1() As String Get Try Return CType(Me(Me.tableRechnungsausgang.RechnungsName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsName 1 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RechnungsName_1Column) = value End Set End Property _ Public Property RechnungsName_2() As String Get Try Return CType(Me(Me.tableRechnungsausgang.RechnungsName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsName 2 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RechnungsName_2Column) = value End Set End Property _ Public Property RechnungsStraße() As String Get Try Return CType(Me(Me.tableRechnungsausgang.RechnungsStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsStraße in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RechnungsStraßeColumn) = value End Set End Property _ Public Property RechnungsOrt() As String Get Try Return CType(Me(Me.tableRechnungsausgang.RechnungsOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsOrt in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RechnungsOrtColumn) = value End Set End Property _ Public Property RechnungsUstIdKz() As String Get Try Return CType(Me(Me.tableRechnungsausgang.RechnungsUstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdKz in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RechnungsUstIdKzColumn) = value End Set End Property _ Public Property RechnungsUstIdNr() As String Get Try Return CType(Me(Me.tableRechnungsausgang.RechnungsUstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RechnungsUstIdNrColumn) = value End Set End Property _ Public Property RechnungsUstIdGeprüft() As Date Get Try Return CType(Me(Me.tableRechnungsausgang.RechnungsUstIdGeprüftColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdGeprüft in Tabelle Rechnungsausgang ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableRechnungsausgang.RechnungsUstIdGeprüftColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tableRechnungsausgang.LastschriftColumn),Boolean) End Get Set Me(Me.tableRechnungsausgang.LastschriftColumn) = value End Set End Property _ Public Property _Kunden_SVS() As Boolean Get Return CType(Me(Me.tableRechnungsausgang._Kunden_SVSColumn),Boolean) End Get Set Me(Me.tableRechnungsausgang._Kunden_SVSColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Return CType(Me(Me.tableRechnungsausgang.SteuerschlüsselColumn),Short) End Get Set Me(Me.tableRechnungsausgang.SteuerschlüsselColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Return CType(Me(Me.tableRechnungsausgang._Steuersatz__Column),Single) End Get Set Me(Me.tableRechnungsausgang._Steuersatz__Column) = value End Set End Property _ Public Property LKW_Kennzeichen() As String Get Try Return CType(Me(Me.tableRechnungsausgang.LKW_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW Kennzeichen in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.LKW_KennzeichenColumn) = value End Set End Property _ Public Property WährungsNr() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.WährungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungsNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.WährungsNrColumn) = value End Set End Property _ Public Property Wert() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgang.WertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wert in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.WertColumn) = value End Set End Property _ Public Property Umrechnungskurs() As Double Get Try Return CType(Me(Me.tableRechnungsausgang.UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umrechnungskurs in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.UmrechnungskursColumn) = value End Set End Property _ Public Property Packstücke_und_Warenbezeichnung() As String Get Try Return CType(Me(Me.tableRechnungsausgang.Packstücke_und_WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packstücke und Warenbezeichnung in Tabelle Rechnungsausgang i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.Packstücke_und_WarenbezeichnungColumn) = value End Set End Property _ Public Property Vermerk() As String Get Try Return CType(Me(Me.tableRechnungsausgang.VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vermerk in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.VermerkColumn) = value End Set End Property _ Public Property Anlage_1() As String Get Try Return CType(Me(Me.tableRechnungsausgang.Anlage_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 1 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.Anlage_1Column) = value End Set End Property _ Public Property Anlage_2() As String Get Try Return CType(Me(Me.tableRechnungsausgang.Anlage_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 2 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.Anlage_2Column) = value End Set End Property _ Public Property Anlage_3() As String Get Try Return CType(Me(Me.tableRechnungsausgang.Anlage_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 3 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.Anlage_3Column) = value End Set End Property _ Public Property Anlage_4() As String Get Try Return CType(Me(Me.tableRechnungsausgang.Anlage_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 4 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.Anlage_4Column) = value End Set End Property _ Public Property Anlage_5() As String Get Try Return CType(Me(Me.tableRechnungsausgang.Anlage_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 5 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.Anlage_5Column) = value End Set End Property _ Public Property Anlage_6() As String Get Try Return CType(Me(Me.tableRechnungsausgang.Anlage_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 6 in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.Anlage_6Column) = value End Set End Property _ Public Property OffertenNr() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.OffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OffertenNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.OffertenNrColumn) = value End Set End Property _ Public Property _Vorlageprovision__() As Single Get Try Return CType(Me(Me.tableRechnungsausgang._Vorlageprovision__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorlageprovision % in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang._Vorlageprovision__Column) = value End Set End Property _ Public Property _Kreditaufwendungen__() As Single Get Try Return CType(Me(Me.tableRechnungsausgang._Kreditaufwendungen__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kreditaufwendungen % in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang._Kreditaufwendungen__Column) = value End Set End Property _ Public Property Besonderheiten() As String Get Try Return CType(Me(Me.tableRechnungsausgang.BesonderheitenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Besonderheiten in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.BesonderheitenColumn) = value End Set End Property _ Public Property Vorkasse() As Boolean Get Return CType(Me(Me.tableRechnungsausgang.VorkasseColumn),Boolean) End Get Set Me(Me.tableRechnungsausgang.VorkasseColumn) = value End Set End Property _ Public Property Text() As String Get Try Return CType(Me(Me.tableRechnungsausgang.TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Text in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.TextColumn) = value End Set End Property _ Public Property SteuerpflichtigerGesamtbetrag() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgang.SteuerpflichtigerGesamtbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerGesamtbetrag in Tabelle Rechnungsausgang ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.SteuerpflichtigerGesamtbetragColumn) = value End Set End Property _ Public Property SteuerfreierGesamtbetrag() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgang.SteuerfreierGesamtbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierGesamtbetrag in Tabelle Rechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableRechnungsausgang.SteuerfreierGesamtbetragColumn) = value End Set End Property _ Public Property Status() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.StatusColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.StatusColumn) = value End Set End Property _ Public Property DruckDatumZeit() As Date Get Try Return CType(Me(Me.tableRechnungsausgang.DruckDatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DruckDatumZeit in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.DruckDatumZeitColumn) = value End Set End Property _ Public Property Abfertigungskosten() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgang.AbfertigungskostenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungskosten in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AbfertigungskostenColumn) = value End Set End Property _ Public Property Vorkosten() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgang.VorkostenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorkosten in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.VorkostenColumn) = value End Set End Property _ Public Property Erlös() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgang.ErlösColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erlös in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.ErlösColumn) = value End Set End Property _ Public Property Buchungsjahr() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.BuchungsjahrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsjahr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.BuchungsjahrColumn) = value End Set End Property _ Public Property Währungscode() As String Get Try Return CType(Me(Me.tableRechnungsausgang.WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungscode in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.WährungscodeColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tableRechnungsausgang.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.SachbearbeiterColumn) = value End Set End Property _ Public Property Trdin() As Boolean Get Return CType(Me(Me.tableRechnungsausgang.TrdinColumn),Boolean) End Get Set Me(Me.tableRechnungsausgang.TrdinColumn) = value End Set End Property _ Public Property KartenNr() As String Get Try Return CType(Me(Me.tableRechnungsausgang.KartenNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KartenNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.KartenNrColumn) = value End Set End Property _ Public Property RefFilialenNr() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.RefFilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefFilialenNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RefFilialenNrColumn) = value End Set End Property _ Public Property RefAbfertigungsNr() As Integer Get Try Return CType(Me(Me.tableRechnungsausgang.RefAbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefAbfertigungsNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RefAbfertigungsNrColumn) = value End Set End Property _ Public Property RefUnterNr() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.RefUnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefUnterNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.RefUnterNrColumn) = value End Set End Property _ Public Property Notiz() As String Get Try Return CType(Me(Me.tableRechnungsausgang.NotizColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Notiz in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.NotizColumn) = value End Set End Property _ Public Property Zucker_MRN_Nr() As String Get Try Return CType(Me(Me.tableRechnungsausgang.Zucker_MRN_NrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Nr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.Zucker_MRN_NrColumn) = value End Set End Property _ Public Property Zucker_MRN_Datum() As Date Get Try Return CType(Me(Me.tableRechnungsausgang.Zucker_MRN_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Datum in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.Zucker_MRN_DatumColumn) = value End Set End Property _ Public Property Zucker_Aufschub() As String Get Try Return CType(Me(Me.tableRechnungsausgang.Zucker_AufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_Aufschub in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.Zucker_AufschubColumn) = value End Set End Property _ Public Property ReErfZeitstempel() As Date Get Try Return CType(Me(Me.tableRechnungsausgang.ReErfZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ReErfZeitstempel in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.ReErfZeitstempelColumn) = value End Set End Property _ Public Property Nettozahlungsziel() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.NettozahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettozahlungsziel in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.NettozahlungszielColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tableRechnungsausgang.Firma_IDColumn),Short) End Get Set Me(Me.tableRechnungsausgang.Firma_IDColumn) = value End Set End Property _ Public Property SpeditionsbuchUnterNr() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.SpeditionsbuchUnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SpeditionsbuchUnterNr in Tabelle Rechnungsausgang ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableRechnungsausgang.SpeditionsbuchUnterNrColumn) = value End Set End Property _ Public Property ErfassungsNr() As String Get Try Return CType(Me(Me.tableRechnungsausgang.ErfassungsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErfassungsNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.ErfassungsNrColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tableRechnungsausgang.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.upsize_tsColumn) = value End Set End Property _ Public Property AvisiererKundenNr() As Integer Get Try Return CType(Me(Me.tableRechnungsausgang.AvisiererKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisiererKundenNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AvisiererKundenNrColumn) = value End Set End Property _ Public Property Avisierer() As String Get Try Return CType(Me(Me.tableRechnungsausgang.AvisiererColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Avisierer in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AvisiererColumn) = value End Set End Property _ Public Property EMailRechnungstext() As String Get Try Return CType(Me(Me.tableRechnungsausgang.EMailRechnungstextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMailRechnungstext in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.EMailRechnungstextColumn) = value End Set End Property _ Public Property AvisoID() As Integer Get Try Return CType(Me(Me.tableRechnungsausgang.AvisoIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisoID in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.AvisoIDColumn) = value End Set End Property _ Public Property KdAuftragsNr() As String Get Try Return CType(Me(Me.tableRechnungsausgang.KdAuftragsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdAuftragsNr in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.KdAuftragsNrColumn) = value End Set End Property _ Public Property Handling() As String Get Try Return CType(Me(Me.tableRechnungsausgang.HandlingColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Handling in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.HandlingColumn) = value End Set End Property _ Public Property VorschauID() As String Get Try Return CType(Me(Me.tableRechnungsausgang.VorschauIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VorschauID in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.VorschauIDColumn) = value End Set End Property _ Public Property Grenze() As String Get Try Return CType(Me(Me.tableRechnungsausgang.GrenzeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Grenze in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.GrenzeColumn) = value End Set End Property _ Public Property RechnungSprache() As String Get Return CType(Me(Me.tableRechnungsausgang.RechnungSpracheColumn),String) End Get Set Me(Me.tableRechnungsausgang.RechnungSpracheColumn) = value End Set End Property _ Public Property FakturierungsGruppe() As String Get Return CType(Me(Me.tableRechnungsausgang.FakturierungsGruppeColumn),String) End Get Set Me(Me.tableRechnungsausgang.FakturierungsGruppeColumn) = value End Set End Property _ Public Property TextZZ() As String Get Try Return CType(Me(Me.tableRechnungsausgang.TextZZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TextZZ in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.TextZZColumn) = value End Set End Property _ Public Property RechnungsName_AdressZusatz() As String Get Return CType(Me(Me.tableRechnungsausgang.RechnungsName_AdressZusatzColumn),String) End Get Set Me(Me.tableRechnungsausgang.RechnungsName_AdressZusatzColumn) = value End Set End Property _ Public Property ForceSteuerschlüssel() As Short Get Try Return CType(Me(Me.tableRechnungsausgang.ForceSteuerschlüsselColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ForceSteuerschlüssel in Tabelle Rechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgang.ForceSteuerschlüsselColumn) = value End Set End Property _ Public Function IsRechnungsNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RechnungsNrColumn) End Function _ Public Sub SetRechnungsNrNull() Me(Me.tableRechnungsausgang.RechnungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsDatumNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RechnungsDatumColumn) End Function _ Public Sub SetRechnungsDatumNull() Me(Me.tableRechnungsausgang.RechnungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.BelegNrColumn) End Function _ Public Sub SetBelegNrNull() Me(Me.tableRechnungsausgang.BelegNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderLandKzNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AbsenderLandKzColumn) End Function _ Public Sub SetAbsenderLandKzNull() Me(Me.tableRechnungsausgang.AbsenderLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderKundenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AbsenderKundenNrColumn) End Function _ Public Sub SetAbsenderKundenNrNull() Me(Me.tableRechnungsausgang.AbsenderKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderName_1Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AbsenderName_1Column) End Function _ Public Sub SetAbsenderName_1Null() Me(Me.tableRechnungsausgang.AbsenderName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderName_2Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AbsenderName_2Column) End Function _ Public Sub SetAbsenderName_2Null() Me(Me.tableRechnungsausgang.AbsenderName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderStraßeNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AbsenderStraßeColumn) End Function _ Public Sub SetAbsenderStraßeNull() Me(Me.tableRechnungsausgang.AbsenderStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOrtNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AbsenderOrtColumn) End Function _ Public Sub SetAbsenderOrtNull() Me(Me.tableRechnungsausgang.AbsenderOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOffertenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AbsenderOffertenNrColumn) End Function _ Public Sub SetAbsenderOffertenNrNull() Me(Me.tableRechnungsausgang.AbsenderOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerLandKzNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.EmpfängerLandKzColumn) End Function _ Public Sub SetEmpfängerLandKzNull() Me(Me.tableRechnungsausgang.EmpfängerLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerKundenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.EmpfängerKundenNrColumn) End Function _ Public Sub SetEmpfängerKundenNrNull() Me(Me.tableRechnungsausgang.EmpfängerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerName_1Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.EmpfängerName_1Column) End Function _ Public Sub SetEmpfängerName_1Null() Me(Me.tableRechnungsausgang.EmpfängerName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerName_2Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.EmpfängerName_2Column) End Function _ Public Sub SetEmpfängerName_2Null() Me(Me.tableRechnungsausgang.EmpfängerName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerStraßeNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.EmpfängerStraßeColumn) End Function _ Public Sub SetEmpfängerStraßeNull() Me(Me.tableRechnungsausgang.EmpfängerStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOrtNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.EmpfängerOrtColumn) End Function _ Public Sub SetEmpfängerOrtNull() Me(Me.tableRechnungsausgang.EmpfängerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOffertenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.EmpfängerOffertenNrColumn) End Function _ Public Sub SetEmpfängerOffertenNrNull() Me(Me.tableRechnungsausgang.EmpfängerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerLandKzNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.VermittlerLandKzColumn) End Function _ Public Sub SetVermittlerLandKzNull() Me(Me.tableRechnungsausgang.VermittlerLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerKundenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.VermittlerKundenNrColumn) End Function _ Public Sub SetVermittlerKundenNrNull() Me(Me.tableRechnungsausgang.VermittlerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerName_1Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.VermittlerName_1Column) End Function _ Public Sub SetVermittlerName_1Null() Me(Me.tableRechnungsausgang.VermittlerName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerName_2Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.VermittlerName_2Column) End Function _ Public Sub SetVermittlerName_2Null() Me(Me.tableRechnungsausgang.VermittlerName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerStraßeNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.VermittlerStraßeColumn) End Function _ Public Sub SetVermittlerStraßeNull() Me(Me.tableRechnungsausgang.VermittlerStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOrtNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.VermittlerOrtColumn) End Function _ Public Sub SetVermittlerOrtNull() Me(Me.tableRechnungsausgang.VermittlerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOffertenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.VermittlerOffertenNrColumn) End Function _ Public Sub SetVermittlerOffertenNrNull() Me(Me.tableRechnungsausgang.VermittlerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKundenNrZentraleNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.KundenNrZentraleColumn) End Function _ Public Sub SetKundenNrZentraleNull() Me(Me.tableRechnungsausgang.KundenNrZentraleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsLandKzNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RechnungsLandKzColumn) End Function _ Public Sub SetRechnungsLandKzNull() Me(Me.tableRechnungsausgang.RechnungsLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsName_1Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RechnungsName_1Column) End Function _ Public Sub SetRechnungsName_1Null() Me(Me.tableRechnungsausgang.RechnungsName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsName_2Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RechnungsName_2Column) End Function _ Public Sub SetRechnungsName_2Null() Me(Me.tableRechnungsausgang.RechnungsName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsStraßeNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RechnungsStraßeColumn) End Function _ Public Sub SetRechnungsStraßeNull() Me(Me.tableRechnungsausgang.RechnungsStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsOrtNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RechnungsOrtColumn) End Function _ Public Sub SetRechnungsOrtNull() Me(Me.tableRechnungsausgang.RechnungsOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdKzNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RechnungsUstIdKzColumn) End Function _ Public Sub SetRechnungsUstIdKzNull() Me(Me.tableRechnungsausgang.RechnungsUstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RechnungsUstIdNrColumn) End Function _ Public Sub SetRechnungsUstIdNrNull() Me(Me.tableRechnungsausgang.RechnungsUstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdGeprüftNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RechnungsUstIdGeprüftColumn) End Function _ Public Sub SetRechnungsUstIdGeprüftNull() Me(Me.tableRechnungsausgang.RechnungsUstIdGeprüftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLKW_KennzeichenNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.LKW_KennzeichenColumn) End Function _ Public Sub SetLKW_KennzeichenNull() Me(Me.tableRechnungsausgang.LKW_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungsNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.WährungsNrColumn) End Function _ Public Sub SetWährungsNrNull() Me(Me.tableRechnungsausgang.WährungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWertNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.WertColumn) End Function _ Public Sub SetWertNull() Me(Me.tableRechnungsausgang.WertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmrechnungskursNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.UmrechnungskursColumn) End Function _ Public Sub SetUmrechnungskursNull() Me(Me.tableRechnungsausgang.UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPackstücke_und_WarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.Packstücke_und_WarenbezeichnungColumn) End Function _ Public Sub SetPackstücke_und_WarenbezeichnungNull() Me(Me.tableRechnungsausgang.Packstücke_und_WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermerkNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.VermerkColumn) End Function _ Public Sub SetVermerkNull() Me(Me.tableRechnungsausgang.VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_1Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.Anlage_1Column) End Function _ Public Sub SetAnlage_1Null() Me(Me.tableRechnungsausgang.Anlage_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_2Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.Anlage_2Column) End Function _ Public Sub SetAnlage_2Null() Me(Me.tableRechnungsausgang.Anlage_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_3Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.Anlage_3Column) End Function _ Public Sub SetAnlage_3Null() Me(Me.tableRechnungsausgang.Anlage_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_4Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.Anlage_4Column) End Function _ Public Sub SetAnlage_4Null() Me(Me.tableRechnungsausgang.Anlage_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_5Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.Anlage_5Column) End Function _ Public Sub SetAnlage_5Null() Me(Me.tableRechnungsausgang.Anlage_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_6Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.Anlage_6Column) End Function _ Public Sub SetAnlage_6Null() Me(Me.tableRechnungsausgang.Anlage_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsOffertenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.OffertenNrColumn) End Function _ Public Sub SetOffertenNrNull() Me(Me.tableRechnungsausgang.OffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Vorlageprovision__Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang._Vorlageprovision__Column) End Function _ Public Sub Set_Vorlageprovision__Null() Me(Me.tableRechnungsausgang._Vorlageprovision__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Kreditaufwendungen__Null() As Boolean Return Me.IsNull(Me.tableRechnungsausgang._Kreditaufwendungen__Column) End Function _ Public Sub Set_Kreditaufwendungen__Null() Me(Me.tableRechnungsausgang._Kreditaufwendungen__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesonderheitenNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.BesonderheitenColumn) End Function _ Public Sub SetBesonderheitenNull() Me(Me.tableRechnungsausgang.BesonderheitenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTextNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.TextColumn) End Function _ Public Sub SetTextNull() Me(Me.tableRechnungsausgang.TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerGesamtbetragNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.SteuerpflichtigerGesamtbetragColumn) End Function _ Public Sub SetSteuerpflichtigerGesamtbetragNull() Me(Me.tableRechnungsausgang.SteuerpflichtigerGesamtbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierGesamtbetragNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.SteuerfreierGesamtbetragColumn) End Function _ Public Sub SetSteuerfreierGesamtbetragNull() Me(Me.tableRechnungsausgang.SteuerfreierGesamtbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tableRechnungsausgang.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDruckDatumZeitNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.DruckDatumZeitColumn) End Function _ Public Sub SetDruckDatumZeitNull() Me(Me.tableRechnungsausgang.DruckDatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungskostenNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AbfertigungskostenColumn) End Function _ Public Sub SetAbfertigungskostenNull() Me(Me.tableRechnungsausgang.AbfertigungskostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorkostenNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.VorkostenColumn) End Function _ Public Sub SetVorkostenNull() Me(Me.tableRechnungsausgang.VorkostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErlösNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.ErlösColumn) End Function _ Public Sub SetErlösNull() Me(Me.tableRechnungsausgang.ErlösColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungsjahrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.BuchungsjahrColumn) End Function _ Public Sub SetBuchungsjahrNull() Me(Me.tableRechnungsausgang.BuchungsjahrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungscodeNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.WährungscodeColumn) End Function _ Public Sub SetWährungscodeNull() Me(Me.tableRechnungsausgang.WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tableRechnungsausgang.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.KartenNrColumn) End Function _ Public Sub SetKartenNrNull() Me(Me.tableRechnungsausgang.KartenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefFilialenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RefFilialenNrColumn) End Function _ Public Sub SetRefFilialenNrNull() Me(Me.tableRechnungsausgang.RefFilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RefAbfertigungsNrColumn) End Function _ Public Sub SetRefAbfertigungsNrNull() Me(Me.tableRechnungsausgang.RefAbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefUnterNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.RefUnterNrColumn) End Function _ Public Sub SetRefUnterNrNull() Me(Me.tableRechnungsausgang.RefUnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNotizNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.NotizColumn) End Function _ Public Sub SetNotizNull() Me(Me.tableRechnungsausgang.NotizColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_NrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.Zucker_MRN_NrColumn) End Function _ Public Sub SetZucker_MRN_NrNull() Me(Me.tableRechnungsausgang.Zucker_MRN_NrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_DatumNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.Zucker_MRN_DatumColumn) End Function _ Public Sub SetZucker_MRN_DatumNull() Me(Me.tableRechnungsausgang.Zucker_MRN_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_AufschubNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.Zucker_AufschubColumn) End Function _ Public Sub SetZucker_AufschubNull() Me(Me.tableRechnungsausgang.Zucker_AufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReErfZeitstempelNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.ReErfZeitstempelColumn) End Function _ Public Sub SetReErfZeitstempelNull() Me(Me.tableRechnungsausgang.ReErfZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettozahlungszielNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.NettozahlungszielColumn) End Function _ Public Sub SetNettozahlungszielNull() Me(Me.tableRechnungsausgang.NettozahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSpeditionsbuchUnterNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.SpeditionsbuchUnterNrColumn) End Function _ Public Sub SetSpeditionsbuchUnterNrNull() Me(Me.tableRechnungsausgang.SpeditionsbuchUnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErfassungsNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.ErfassungsNrColumn) End Function _ Public Sub SetErfassungsNrNull() Me(Me.tableRechnungsausgang.ErfassungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tableRechnungsausgang.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisiererKundenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AvisiererKundenNrColumn) End Function _ Public Sub SetAvisiererKundenNrNull() Me(Me.tableRechnungsausgang.AvisiererKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisiererNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AvisiererColumn) End Function _ Public Sub SetAvisiererNull() Me(Me.tableRechnungsausgang.AvisiererColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMailRechnungstextNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.EMailRechnungstextColumn) End Function _ Public Sub SetEMailRechnungstextNull() Me(Me.tableRechnungsausgang.EMailRechnungstextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisoIDNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.AvisoIDColumn) End Function _ Public Sub SetAvisoIDNull() Me(Me.tableRechnungsausgang.AvisoIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdAuftragsNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.KdAuftragsNrColumn) End Function _ Public Sub SetKdAuftragsNrNull() Me(Me.tableRechnungsausgang.KdAuftragsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHandlingNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.HandlingColumn) End Function _ Public Sub SetHandlingNull() Me(Me.tableRechnungsausgang.HandlingColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorschauIDNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.VorschauIDColumn) End Function _ Public Sub SetVorschauIDNull() Me(Me.tableRechnungsausgang.VorschauIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGrenzeNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.GrenzeColumn) End Function _ Public Sub SetGrenzeNull() Me(Me.tableRechnungsausgang.GrenzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTextZZNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.TextZZColumn) End Function _ Public Sub SetTextZZNull() Me(Me.tableRechnungsausgang.TextZZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsForceSteuerschlüsselNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgang.ForceSteuerschlüsselColumn) End Function _ Public Sub SetForceSteuerschlüsselNull() Me(Me.tableRechnungsausgang.ForceSteuerschlüsselColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetRechnungsausgangPositionenRows() As RechnungsausgangPositionenRow() If (Me.Table.ChildRelations("RechnungsausgangPositione_FK00") Is Nothing) Then Return New RechnungsausgangPositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("RechnungsausgangPositione_FK00")),RechnungsausgangPositionenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class RechnungsausgangAnhaengeRow Inherits Global.System.Data.DataRow Private tableRechnungsausgangAnhaenge As RechnungsausgangAnhaengeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableRechnungsausgangAnhaenge = CType(Me.Table,RechnungsausgangAnhaengeDataTable) End Sub _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tableRechnungsausgangAnhaenge.RK_IDColumn),Integer) End Get Set Me(Me.tableRechnungsausgangAnhaenge.RK_IDColumn) = value End Set End Property _ Public Property dsId() As Integer Get Return CType(Me(Me.tableRechnungsausgangAnhaenge.dsIdColumn),Integer) End Get Set Me(Me.tableRechnungsausgangAnhaenge.dsIdColumn) = value End Set End Property _ Public Property anhId() As Integer Get Return CType(Me(Me.tableRechnungsausgangAnhaenge.anhIdColumn),Integer) End Get Set Me(Me.tableRechnungsausgangAnhaenge.anhIdColumn) = value End Set End Property _ Public Property Bezeichnung() As String Get Return CType(Me(Me.tableRechnungsausgangAnhaenge.BezeichnungColumn),String) End Get Set Me(Me.tableRechnungsausgangAnhaenge.BezeichnungColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class RechnungsausgangPositionenRow Inherits Global.System.Data.DataRow Private tableRechnungsausgangPositionen As RechnungsausgangPositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableRechnungsausgangPositionen = CType(Me.Table,RechnungsausgangPositionenDataTable) End Sub _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tableRechnungsausgangPositionen.RK_IDColumn),Integer) End Get Set Me(Me.tableRechnungsausgangPositionen.RK_IDColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tableRechnungsausgangPositionen.LeistungsNrColumn),Short) End Get Set Me(Me.tableRechnungsausgangPositionen.LeistungsNrColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tableRechnungsausgangPositionen.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tableRechnungsausgangPositionen.SteuerpflichtigColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tableRechnungsausgangPositionen.LeistungsBezColumn),String) End Get Set Me(Me.tableRechnungsausgangPositionen.LeistungsBezColumn) = value End Set End Property _ Public Property IndexZkteing() As Integer Get Return CType(Me(Me.tableRechnungsausgangPositionen.IndexZkteingColumn),Integer) End Get Set Me(Me.tableRechnungsausgangPositionen.IndexZkteingColumn) = value End Set End Property _ Public Property BerechnungsartNr() As Short Get Return CType(Me(Me.tableRechnungsausgangPositionen.BerechnungsartNrColumn),Short) End Get Set Me(Me.tableRechnungsausgangPositionen.BerechnungsartNrColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle RechnungsausgangPositionen ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.PreisColumn) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle RechnungsausgangPositionen ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.AnzahlColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetrag() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.SteuerpflichtigerBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetrag in Tabelle RechnungsausgangPositionen"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.SteuerpflichtigerBetragColumn) = value End Set End Property _ Public Property SteuerfreierBetrag() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.SteuerfreierBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetrag in Tabelle RechnungsausgangPositionen ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.SteuerfreierBetragColumn) = value End Set End Property _ Public Property AufschubkontoNr() As String Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.AufschubkontoNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AufschubkontoNr in Tabelle RechnungsausgangPositionen ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.AufschubkontoNrColumn) = value End Set End Property _ Public Property Aufschubfälligkeit() As Date Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.AufschubfälligkeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aufschubfälligkeit in Tabelle RechnungsausgangPositionen ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.AufschubfälligkeitColumn) = value End Set End Property _ Public Property Prüfsumme_berechnen() As Boolean Get Return CType(Me(Me.tableRechnungsausgangPositionen.Prüfsumme_berechnenColumn),Boolean) End Get Set Me(Me.tableRechnungsausgangPositionen.Prüfsumme_berechnenColumn) = value End Set End Property _ Public Property DateiNameAufschub() As String Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.DateiNameAufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DateiNameAufschub in Tabelle RechnungsausgangPositionen ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.DateiNameAufschubColumn) = value End Set End Property _ Public Property Preisbindung() As Boolean Get Return CType(Me(Me.tableRechnungsausgangPositionen.PreisbindungColumn),Boolean) End Get Set Me(Me.tableRechnungsausgangPositionen.PreisbindungColumn) = value End Set End Property _ Public Property Belegdaten() As String Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.BelegdatenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdaten in Tabelle RechnungsausgangPositionen ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.BelegdatenColumn) = value End Set End Property _ Public Property Fremdwährung() As Short Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.FremdwährungColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fremdwährung in Tabelle RechnungsausgangPositionen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.FremdwährungColumn) = value End Set End Property _ Public Property BGebLeistungsNr() As Short Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.BGebLeistungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebLeistungsNr in Tabelle RechnungsausgangPositionen ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.BGebLeistungsNrColumn) = value End Set End Property _ Public Property BGebProzent() As Single Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.BGebProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebProzent in Tabelle RechnungsausgangPositionen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.BGebProzentColumn) = value End Set End Property _ Public Property BGebBgl() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.BGebBglColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebBgl in Tabelle RechnungsausgangPositionen ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.BGebBglColumn) = value End Set End Property _ Public Property BGebMinBetrag() As Decimal Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.BGebMinBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebMinBetrag in Tabelle RechnungsausgangPositionen ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.BGebMinBetragColumn) = value End Set End Property _ Public Property RePosZeitstempel() As Date Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.RePosZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RePosZeitstempel in Tabelle RechnungsausgangPositionen ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.RePosZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tableRechnungsausgangPositionen.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle RechnungsausgangPositionen ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsausgangPositionen.upsize_tsColumn) = value End Set End Property _ Public Property RechnungsausgangRow() As RechnungsausgangRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("RechnungsausgangPositione_FK00")),RechnungsausgangRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("RechnungsausgangPositione_FK00")) End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tableRechnungsausgangPositionen.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tableRechnungsausgangPositionen.AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.SteuerpflichtigerBetragColumn) End Function _ Public Sub SetSteuerpflichtigerBetragNull() Me(Me.tableRechnungsausgangPositionen.SteuerpflichtigerBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.SteuerfreierBetragColumn) End Function _ Public Sub SetSteuerfreierBetragNull() Me(Me.tableRechnungsausgangPositionen.SteuerfreierBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubkontoNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.AufschubkontoNrColumn) End Function _ Public Sub SetAufschubkontoNrNull() Me(Me.tableRechnungsausgangPositionen.AufschubkontoNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubfälligkeitNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.AufschubfälligkeitColumn) End Function _ Public Sub SetAufschubfälligkeitNull() Me(Me.tableRechnungsausgangPositionen.AufschubfälligkeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateiNameAufschubNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.DateiNameAufschubColumn) End Function _ Public Sub SetDateiNameAufschubNull() Me(Me.tableRechnungsausgangPositionen.DateiNameAufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatenNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.BelegdatenColumn) End Function _ Public Sub SetBelegdatenNull() Me(Me.tableRechnungsausgangPositionen.BelegdatenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFremdwährungNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.FremdwährungColumn) End Function _ Public Sub SetFremdwährungNull() Me(Me.tableRechnungsausgangPositionen.FremdwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebLeistungsNrNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.BGebLeistungsNrColumn) End Function _ Public Sub SetBGebLeistungsNrNull() Me(Me.tableRechnungsausgangPositionen.BGebLeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebProzentNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.BGebProzentColumn) End Function _ Public Sub SetBGebProzentNull() Me(Me.tableRechnungsausgangPositionen.BGebProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebBglNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.BGebBglColumn) End Function _ Public Sub SetBGebBglNull() Me(Me.tableRechnungsausgangPositionen.BGebBglColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebMinBetragNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.BGebMinBetragColumn) End Function _ Public Sub SetBGebMinBetragNull() Me(Me.tableRechnungsausgangPositionen.BGebMinBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRePosZeitstempelNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.RePosZeitstempelColumn) End Function _ Public Sub SetRePosZeitstempelNull() Me(Me.tableRechnungsausgangPositionen.RePosZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tableRechnungsausgangPositionen.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tableRechnungsausgangPositionen.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class RechnungsnummernRow Inherits Global.System.Data.DataRow Private tableRechnungsnummern As RechnungsnummernDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableRechnungsnummern = CType(Me.Table,RechnungsnummernDataTable) End Sub _ Public Property SpeditionsbuchNr() As Short Get Return CType(Me(Me.tableRechnungsnummern.SpeditionsbuchNrColumn),Short) End Get Set Me(Me.tableRechnungsnummern.SpeditionsbuchNrColumn) = value End Set End Property _ Public Property Buchungsjahr() As Short Get Return CType(Me(Me.tableRechnungsnummern.BuchungsjahrColumn),Short) End Get Set Me(Me.tableRechnungsnummern.BuchungsjahrColumn) = value End Set End Property _ Public Property VonRechnungsNr() As Integer Get Return CType(Me(Me.tableRechnungsnummern.VonRechnungsNrColumn),Integer) End Get Set Me(Me.tableRechnungsnummern.VonRechnungsNrColumn) = value End Set End Property _ Public Property BisRechnungsNr() As Integer Get Return CType(Me(Me.tableRechnungsnummern.BisRechnungsNrColumn),Integer) End Get Set Me(Me.tableRechnungsnummern.BisRechnungsNrColumn) = value End Set End Property _ Public Property LfdRechnungsNr() As Integer Get Return CType(Me(Me.tableRechnungsnummern.LfdRechnungsNrColumn),Integer) End Get Set Me(Me.tableRechnungsnummern.LfdRechnungsNrColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tableRechnungsnummern.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle Rechnungsnummern ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungsnummern.upsize_tsColumn) = value End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tableRechnungsnummern.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tableRechnungsnummern.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class RechnungstexteRow Inherits Global.System.Data.DataRow Private tableRechnungstexte As RechnungstexteDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableRechnungstexte = CType(Me.Table,RechnungstexteDataTable) End Sub _ Public Property Textschlüssel() As Short Get Return CType(Me(Me.tableRechnungstexte.TextschlüsselColumn),Short) End Get Set Me(Me.tableRechnungstexte.TextschlüsselColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Try Return CType(Me(Me.tableRechnungstexte.Firma_IDColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_ID in Tabelle Rechnungstexte ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungstexte.Firma_IDColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tableRechnungstexte.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle Rechnungstexte ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungstexte.LandKzColumn) = value End Set End Property _ Public Property OffertenNr() As Integer Get Try Return CType(Me(Me.tableRechnungstexte.OffertenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OffertenNr in Tabelle Rechnungstexte ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungstexte.OffertenNrColumn) = value End Set End Property _ Public Property Text() As String Get Try Return CType(Me(Me.tableRechnungstexte.TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Text in Tabelle Rechnungstexte ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungstexte.TextColumn) = value End Set End Property _ Public Property EMailRechnung() As Boolean Get Try Return CType(Me(Me.tableRechnungstexte.EMailRechnungColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMailRechnung in Tabelle Rechnungstexte ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungstexte.EMailRechnungColumn) = value End Set End Property _ Public Property DrucksteuerungsKz() As String Get Try Return CType(Me(Me.tableRechnungstexte.DrucksteuerungsKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DrucksteuerungsKz in Tabelle Rechnungstexte ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungstexte.DrucksteuerungsKzColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableRechnungstexte.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Rechnungstexte ist DBNull.", e) End Try End Get Set Me(Me.tableRechnungstexte.SSMA_TimeStampColumn) = value End Set End Property _ Public Property ImmerAnfuegen() As Boolean Get Return CType(Me(Me.tableRechnungstexte.ImmerAnfuegenColumn),Boolean) End Get Set Me(Me.tableRechnungstexte.ImmerAnfuegenColumn) = value End Set End Property _ Public Function IsFirma_IDNull() As Boolean Return Me.IsNull(Me.tableRechnungstexte.Firma_IDColumn) End Function _ Public Sub SetFirma_IDNull() Me(Me.tableRechnungstexte.Firma_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tableRechnungstexte.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tableRechnungstexte.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOffertenNrNull() As Boolean Return Me.IsNull(Me.tableRechnungstexte.OffertenNrColumn) End Function _ Public Sub SetOffertenNrNull() Me(Me.tableRechnungstexte.OffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTextNull() As Boolean Return Me.IsNull(Me.tableRechnungstexte.TextColumn) End Function _ Public Sub SetTextNull() Me(Me.tableRechnungstexte.TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMailRechnungNull() As Boolean Return Me.IsNull(Me.tableRechnungstexte.EMailRechnungColumn) End Function _ Public Sub SetEMailRechnungNull() Me(Me.tableRechnungstexte.EMailRechnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDrucksteuerungsKzNull() As Boolean Return Me.IsNull(Me.tableRechnungstexte.DrucksteuerungsKzColumn) End Function _ Public Sub SetDrucksteuerungsKzNull() Me(Me.tableRechnungstexte.DrucksteuerungsKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableRechnungstexte.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableRechnungstexte.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class SpeditionsbuchRow Inherits Global.System.Data.DataRow Private tableSpeditionsbuch As SpeditionsbuchDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableSpeditionsbuch = CType(Me.Table,SpeditionsbuchDataTable) End Sub _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tableSpeditionsbuch.FilialenNrColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tableSpeditionsbuch.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tableSpeditionsbuch.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tableSpeditionsbuch.UnterNrColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Return CType(Me(Me.tableSpeditionsbuch.AbfertigungsdatumColumn),Date) End Get Set Me(Me.tableSpeditionsbuch.AbfertigungsdatumColumn) = value End Set End Property _ Public Property Bar() As Boolean Get Return CType(Me(Me.tableSpeditionsbuch.BarColumn),Boolean) End Get Set Me(Me.tableSpeditionsbuch.BarColumn) = value End Set End Property _ Public Property Fakturiert() As Boolean Get Return CType(Me(Me.tableSpeditionsbuch.FakturiertColumn),Boolean) End Get Set Me(Me.tableSpeditionsbuch.FakturiertColumn) = value End Set End Property _ Public Property BelegNr() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.BelegNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.BelegNrColumn) = value End Set End Property _ Public Property ErfassungsNr() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.ErfassungsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErfassungsNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.ErfassungsNrColumn) = value End Set End Property _ Public Property LKW_Kennzeichen() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.LKW_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW Kennzeichen in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.LKW_KennzeichenColumn) = value End Set End Property _ Public Property AbsenderKundenNr() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.AbsenderKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderKundenNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AbsenderKundenNrColumn) = value End Set End Property _ Public Property Absender() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.AbsenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Absender in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AbsenderColumn) = value End Set End Property _ Public Property AbsenderOffertenNr() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.AbsenderOffertenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOffertenNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AbsenderOffertenNrColumn) = value End Set End Property _ Public Property EmpfängerKundenNr() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.EmpfängerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerKundenNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.EmpfängerKundenNrColumn) = value End Set End Property _ Public Property Empfänger() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.EmpfängerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Empfänger in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.EmpfängerColumn) = value End Set End Property _ Public Property EmpfängerOffertenNr() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.EmpfängerOffertenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOffertenNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.EmpfängerOffertenNrColumn) = value End Set End Property _ Public Property VermittlerKundenNr() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.VermittlerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerKundenNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.VermittlerKundenNrColumn) = value End Set End Property _ Public Property Vermittler() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.VermittlerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vermittler in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.VermittlerColumn) = value End Set End Property _ Public Property VermittlerOffertenNr() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.VermittlerOffertenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOffertenNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.VermittlerOffertenNrColumn) = value End Set End Property _ Public Property FrachtführerKundenNr() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.FrachtführerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FrachtführerKundenNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.FrachtführerKundenNrColumn) = value End Set End Property _ Public Property Frachtführer() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.FrachtführerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Frachtführer in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.FrachtführerColumn) = value End Set End Property _ Public Property AnzahlZA() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlZAColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlZAColumn) = value End Set End Property _ Public Property AnzahlZAFremd() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlZAFremdColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlZAFremdColumn) = value End Set End Property _ Public Property AnzahlZnV() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlZnVColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlZnVColumn) = value End Set End Property _ Public Property AnzahlZnVFremd() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlZnVFremdColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlZnVFremdColumn) = value End Set End Property _ Public Property AnzahlT1() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlT1Column),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlT1Column) = value End Set End Property _ Public Property AnzahlT2() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlT2Column),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlT2Column) = value End Set End Property _ Public Property AnzahlAE() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlAEColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlAEColumn) = value End Set End Property _ Public Property AnzahlCarnetTIR() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlCarnetTIRColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlCarnetTIRColumn) = value End Set End Property _ Public Property AnzahlBarvorlagen() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlBarvorlagenColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlBarvorlagenColumn) = value End Set End Property _ Public Property AnzahlSonstiges() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlSonstigesColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlSonstigesColumn) = value End Set End Property _ Public Property AnzahlGrenzgebühren() As Short Get Return CType(Me(Me.tableSpeditionsbuch.AnzahlGrenzgebührenColumn),Short) End Get Set Me(Me.tableSpeditionsbuch.AnzahlGrenzgebührenColumn) = value End Set End Property _ Public Property AvisUhrzeit() As Date Get Try Return CType(Me(Me.tableSpeditionsbuch.AvisUhrzeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisUhrzeit in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AvisUhrzeitColumn) = value End Set End Property _ Public Property Vermerk() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vermerk in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.VermerkColumn) = value End Set End Property _ Public Property Bemerkungen() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.BemerkungenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkungen in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.BemerkungenColumn) = value End Set End Property _ Public Property Währungsschlüssel() As Short Get Try Return CType(Me(Me.tableSpeditionsbuch.WährungsschlüsselColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungsschlüssel in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.WährungsschlüsselColumn) = value End Set End Property _ Public Property Rechnungsbetrag() As Decimal Get Try Return CType(Me(Me.tableSpeditionsbuch.RechnungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsbetrag in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.RechnungsbetragColumn) = value End Set End Property _ Public Property Umrechnungskurs() As Double Get Try Return CType(Me(Me.tableSpeditionsbuch.UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umrechnungskurs in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.UmrechnungskursColumn) = value End Set End Property _ Public Property Packstücke() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.PackstückeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packstücke in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.PackstückeColumn) = value End Set End Property _ Public Property Rohmasse() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.RohmasseColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rohmasse in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.RohmasseColumn) = value End Set End Property _ Public Property Zahlungsaufschub() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.ZahlungsaufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsaufschub in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.ZahlungsaufschubColumn) = value End Set End Property _ Public Property Löschen() As Date Get Try Return CType(Me(Me.tableSpeditionsbuch.LöschenColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Löschen in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.LöschenColumn) = value End Set End Property _ Public Property Abfertigungsart() As Short Get Try Return CType(Me(Me.tableSpeditionsbuch.AbfertigungsartColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsart in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AbfertigungsartColumn) = value End Set End Property _ Public Property Abfertigungsanzahl() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.AbfertigungsanzahlColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsanzahl in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AbfertigungsanzahlColumn) = value End Set End Property _ Public Property AbfertigungsanzahlPos() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.AbfertigungsanzahlPosColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsanzahlPos in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AbfertigungsanzahlPosColumn) = value End Set End Property _ Public Property Barzahlungsbetrag() As Decimal Get Try Return CType(Me(Me.tableSpeditionsbuch.BarzahlungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Barzahlungsbetrag in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.BarzahlungsbetragColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.SachbearbeiterColumn) = value End Set End Property _ Public Property Personalnummer() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.PersonalnummerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Personalnummer in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.PersonalnummerColumn) = value End Set End Property _ Public Property AtlasBezNrEZA() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.AtlasBezNrEZAColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AtlasBezNrEZA in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AtlasBezNrEZAColumn) = value End Set End Property _ Public Property AtlasBezNrNCTS() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.AtlasBezNrNCTSColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AtlasBezNrNCTS in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AtlasBezNrNCTSColumn) = value End Set End Property _ Public Property Versendungsland() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.VersendungslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Versendungsland in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.VersendungslandColumn) = value End Set End Property _ Public Property SB_CMR() As Boolean Get Return CType(Me(Me.tableSpeditionsbuch.SB_CMRColumn),Boolean) End Get Set Me(Me.tableSpeditionsbuch.SB_CMRColumn) = value End Set End Property _ Public Property SB_CMRDatum() As Date Get Try Return CType(Me(Me.tableSpeditionsbuch.SB_CMRDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SB_CMRDatum in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.SB_CMRDatumColumn) = value End Set End Property _ Public Property veoerz_basbtg() As Decimal Get Try Return CType(Me(Me.tableSpeditionsbuch.veoerz_basbtgColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte veoerz_basbtg in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.veoerz_basbtgColumn) = value End Set End Property _ Public Property Zucker_MRN_Nr() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.Zucker_MRN_NrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Nr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.Zucker_MRN_NrColumn) = value End Set End Property _ Public Property Zucker_MRN_Datum() As Date Get Try Return CType(Me(Me.tableSpeditionsbuch.Zucker_MRN_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Datum in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.Zucker_MRN_DatumColumn) = value End Set End Property _ Public Property Zucker_Aufschub() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.Zucker_AufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_Aufschub in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.Zucker_AufschubColumn) = value End Set End Property _ Public Property Zollsystem() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.ZollsystemColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollsystem in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.ZollsystemColumn) = value End Set End Property _ Public Property Bestimmungszollstelle() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.BestimmungszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bestimmungszollstelle in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.BestimmungszollstelleColumn) = value End Set End Property _ Public Property Bürgschaft() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.BürgschaftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bürgschaft in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.BürgschaftColumn) = value End Set End Property _ Public Property Sicherheitsbetrag() As Decimal Get Try Return CType(Me(Me.tableSpeditionsbuch.SicherheitsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sicherheitsbetrag in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.SicherheitsbetragColumn) = value End Set End Property _ Public Property SgutKompl() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.SgutKomplColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SgutKompl in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.SgutKomplColumn) = value End Set End Property _ Public Property Bestimmungsland() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.BestimmungslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bestimmungsland in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.BestimmungslandColumn) = value End Set End Property _ Public Property EuFiskalEmpfänger() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.EuFiskalEmpfängerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EuFiskalEmpfänger in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.EuFiskalEmpfängerColumn) = value End Set End Property _ Public Property QKN() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.QKNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte QKN in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.QKNColumn) = value End Set End Property _ Public Property EndempfängerKundenNr() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.EndempfängerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndempfängerKundenNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.EndempfängerKundenNrColumn) = value End Set End Property _ Public Property Endempfänger() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.EndempfängerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Endempfänger in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.EndempfängerColumn) = value End Set End Property _ Public Property SB_Zeitstempel() As Date Get Try Return CType(Me(Me.tableSpeditionsbuch.SB_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SB_Zeitstempel in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.SB_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tableSpeditionsbuch.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.upsize_tsColumn) = value End Set End Property _ Public Property AvisoID() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.AvisoIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisoID in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AvisoIDColumn) = value End Set End Property _ Public Property SendungID() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.SendungIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SendungID in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.SendungIDColumn) = value End Set End Property _ Public Property PersonalnummerQS() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.PersonalnummerQSColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PersonalnummerQS in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.PersonalnummerQSColumn) = value End Set End Property _ Public Property AvisiererKundenNr() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.AvisiererKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisiererKundenNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AvisiererKundenNrColumn) = value End Set End Property _ Public Property Avisierer() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.AvisiererColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Avisierer in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AvisiererColumn) = value End Set End Property _ Public Property KdAuftragsNr() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.KdAuftragsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdAuftragsNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.KdAuftragsNrColumn) = value End Set End Property _ Public Property Grenzstelle() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.GrenzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Grenzstelle in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.GrenzstelleColumn) = value End Set End Property _ Public Property NCTS_Verzollungsadresse() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.NCTS_VerzollungsadresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NCTS_Verzollungsadresse in Tabelle Speditionsbuch ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableSpeditionsbuch.NCTS_VerzollungsadresseColumn) = value End Set End Property _ Public Property NCTS_VerzollungsadresseKdNr() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.NCTS_VerzollungsadresseKdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NCTS_VerzollungsadresseKdNr in Tabelle Speditionsbuch ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.NCTS_VerzollungsadresseKdNrColumn) = value End Set End Property _ Public Property NCTS_Verzollungsadresse_EORI() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.NCTS_Verzollungsadresse_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NCTS_Verzollungsadresse_EORI in Tabelle Speditionsbuch ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.NCTS_Verzollungsadresse_EORIColumn) = value End Set End Property _ Public Property NCTS_Bestimmungszollstelle() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.NCTS_BestimmungszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NCTS_Bestimmungszollstelle in Tabelle Speditionsbuch ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.NCTS_BestimmungszollstelleColumn) = value End Set End Property _ Public Property AuftraggeberBetragKassiert() As Decimal Get Try Return CType(Me(Me.tableSpeditionsbuch.AuftraggeberBetragKassiertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AuftraggeberBetragKassiert in Tabelle Speditionsbuch ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AuftraggeberBetragKassiertColumn) = value End Set End Property _ Public Property KdAuftragsNrAvisierer() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.KdAuftragsNrAvisiererColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdAuftragsNrAvisierer in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.KdAuftragsNrAvisiererColumn) = value End Set End Property _ Public Property KdAuftragsNrEmpfaenger() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.KdAuftragsNrEmpfaengerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdAuftragsNrEmpfaenger in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.KdAuftragsNrEmpfaengerColumn) = value End Set End Property _ Public Property KdAuftragsNrFrachtfuehrer() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.KdAuftragsNrFrachtfuehrerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdAuftragsNrFrachtfuehrer in Tabelle Speditionsbuch ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.KdAuftragsNrFrachtfuehrerColumn) = value End Set End Property _ Public Property Lieferantenrechnung() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.LieferantenrechnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferantenrechnung in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.LieferantenrechnungColumn) = value End Set End Property _ Public Property DokumentId_Steuerbeleg() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.DokumentId_SteuerbelegColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumentId_Steuerbeleg in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.DokumentId_SteuerbelegColumn) = value End Set End Property _ Public Property DokumentId_Mitteilung() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.DokumentId_MitteilungColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumentId_Mitteilung in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.DokumentId_MitteilungColumn) = value End Set End Property _ Public Property DokumentId_VBD() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.DokumentId_VBDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumentId_VBD in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.DokumentId_VBDColumn) = value End Set End Property _ Public Property DokumentId_ABD() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.DokumentId_ABDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumentId_ABD in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.DokumentId_ABDColumn) = value End Set End Property _ Public Property DokumentId_AVM() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.DokumentId_AVMColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumentId_AVM in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.DokumentId_AVMColumn) = value End Set End Property _ Public Property FilialenNrHandling() As Short Get Try Return CType(Me(Me.tableSpeditionsbuch.FilialenNrHandlingColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNrHandling in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.FilialenNrHandlingColumn) = value End Set End Property _ Public Property FilialenNrAbklaerung() As Short Get Try Return CType(Me(Me.tableSpeditionsbuch.FilialenNrAbklaerungColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNrAbklaerung in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.FilialenNrAbklaerungColumn) = value End Set End Property _ Public Property HandlingZuKassieren() As Decimal Get Return CType(Me(Me.tableSpeditionsbuch.HandlingZuKassierenColumn),Decimal) End Get Set Me(Me.tableSpeditionsbuch.HandlingZuKassierenColumn) = value End Set End Property _ Public Property SB_CMRNr() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.SB_CMRNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SB_CMRNr in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.SB_CMRNrColumn) = value End Set End Property _ Public Property PersonalnummerAbklTR() As Integer Get Try Return CType(Me(Me.tableSpeditionsbuch.PersonalnummerAbklTRColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PersonalnummerAbklTR in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.PersonalnummerAbklTRColumn) = value End Set End Property _ Public Property UK_EIDR_ausstehend() As Boolean Get Return CType(Me(Me.tableSpeditionsbuch.UK_EIDR_ausstehendColumn),Boolean) End Get Set Me(Me.tableSpeditionsbuch.UK_EIDR_ausstehendColumn) = value End Set End Property _ Public Property Zollstelle() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.ZollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollstelle in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.ZollstelleColumn) = value End Set End Property _ Public Property AtlasBezNrAES() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.AtlasBezNrAESColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AtlasBezNrAES in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.AtlasBezNrAESColumn) = value End Set End Property _ Public Property Packstücke_Zoll() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.Packstücke_ZollColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packstücke_Zoll in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.Packstücke_ZollColumn) = value End Set End Property _ Public Property Zollsystem_Land() As String Get Try Return CType(Me(Me.tableSpeditionsbuch.Zollsystem_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollsystem_Land in Tabelle Speditionsbuch ist DBNull.", e) End Try End Get Set Me(Me.tableSpeditionsbuch.Zollsystem_LandColumn) = value End Set End Property _ Public Function IsBelegNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.BelegNrColumn) End Function _ Public Sub SetBelegNrNull() Me(Me.tableSpeditionsbuch.BelegNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErfassungsNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.ErfassungsNrColumn) End Function _ Public Sub SetErfassungsNrNull() Me(Me.tableSpeditionsbuch.ErfassungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLKW_KennzeichenNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.LKW_KennzeichenColumn) End Function _ Public Sub SetLKW_KennzeichenNull() Me(Me.tableSpeditionsbuch.LKW_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderKundenNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AbsenderKundenNrColumn) End Function _ Public Sub SetAbsenderKundenNrNull() Me(Me.tableSpeditionsbuch.AbsenderKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AbsenderColumn) End Function _ Public Sub SetAbsenderNull() Me(Me.tableSpeditionsbuch.AbsenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOffertenNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AbsenderOffertenNrColumn) End Function _ Public Sub SetAbsenderOffertenNrNull() Me(Me.tableSpeditionsbuch.AbsenderOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerKundenNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.EmpfängerKundenNrColumn) End Function _ Public Sub SetEmpfängerKundenNrNull() Me(Me.tableSpeditionsbuch.EmpfängerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.EmpfängerColumn) End Function _ Public Sub SetEmpfängerNull() Me(Me.tableSpeditionsbuch.EmpfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOffertenNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.EmpfängerOffertenNrColumn) End Function _ Public Sub SetEmpfängerOffertenNrNull() Me(Me.tableSpeditionsbuch.EmpfängerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerKundenNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.VermittlerKundenNrColumn) End Function _ Public Sub SetVermittlerKundenNrNull() Me(Me.tableSpeditionsbuch.VermittlerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.VermittlerColumn) End Function _ Public Sub SetVermittlerNull() Me(Me.tableSpeditionsbuch.VermittlerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOffertenNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.VermittlerOffertenNrColumn) End Function _ Public Sub SetVermittlerOffertenNrNull() Me(Me.tableSpeditionsbuch.VermittlerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFrachtführerKundenNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.FrachtführerKundenNrColumn) End Function _ Public Sub SetFrachtführerKundenNrNull() Me(Me.tableSpeditionsbuch.FrachtführerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFrachtführerNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.FrachtführerColumn) End Function _ Public Sub SetFrachtführerNull() Me(Me.tableSpeditionsbuch.FrachtführerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisUhrzeitNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AvisUhrzeitColumn) End Function _ Public Sub SetAvisUhrzeitNull() Me(Me.tableSpeditionsbuch.AvisUhrzeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermerkNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.VermerkColumn) End Function _ Public Sub SetVermerkNull() Me(Me.tableSpeditionsbuch.VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungenNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.BemerkungenColumn) End Function _ Public Sub SetBemerkungenNull() Me(Me.tableSpeditionsbuch.BemerkungenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungsschlüsselNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.WährungsschlüsselColumn) End Function _ Public Sub SetWährungsschlüsselNull() Me(Me.tableSpeditionsbuch.WährungsschlüsselColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.RechnungsbetragColumn) End Function _ Public Sub SetRechnungsbetragNull() Me(Me.tableSpeditionsbuch.RechnungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmrechnungskursNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.UmrechnungskursColumn) End Function _ Public Sub SetUmrechnungskursNull() Me(Me.tableSpeditionsbuch.UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPackstückeNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.PackstückeColumn) End Function _ Public Sub SetPackstückeNull() Me(Me.tableSpeditionsbuch.PackstückeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRohmasseNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.RohmasseColumn) End Function _ Public Sub SetRohmasseNull() Me(Me.tableSpeditionsbuch.RohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsaufschubNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.ZahlungsaufschubColumn) End Function _ Public Sub SetZahlungsaufschubNull() Me(Me.tableSpeditionsbuch.ZahlungsaufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLöschenNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.LöschenColumn) End Function _ Public Sub SetLöschenNull() Me(Me.tableSpeditionsbuch.LöschenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsartNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AbfertigungsartColumn) End Function _ Public Sub SetAbfertigungsartNull() Me(Me.tableSpeditionsbuch.AbfertigungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsanzahlNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AbfertigungsanzahlColumn) End Function _ Public Sub SetAbfertigungsanzahlNull() Me(Me.tableSpeditionsbuch.AbfertigungsanzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsanzahlPosNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AbfertigungsanzahlPosColumn) End Function _ Public Sub SetAbfertigungsanzahlPosNull() Me(Me.tableSpeditionsbuch.AbfertigungsanzahlPosColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBarzahlungsbetragNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.BarzahlungsbetragColumn) End Function _ Public Sub SetBarzahlungsbetragNull() Me(Me.tableSpeditionsbuch.BarzahlungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tableSpeditionsbuch.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPersonalnummerNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.PersonalnummerColumn) End Function _ Public Sub SetPersonalnummerNull() Me(Me.tableSpeditionsbuch.PersonalnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAtlasBezNrEZANull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AtlasBezNrEZAColumn) End Function _ Public Sub SetAtlasBezNrEZANull() Me(Me.tableSpeditionsbuch.AtlasBezNrEZAColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAtlasBezNrNCTSNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AtlasBezNrNCTSColumn) End Function _ Public Sub SetAtlasBezNrNCTSNull() Me(Me.tableSpeditionsbuch.AtlasBezNrNCTSColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVersendungslandNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.VersendungslandColumn) End Function _ Public Sub SetVersendungslandNull() Me(Me.tableSpeditionsbuch.VersendungslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSB_CMRDatumNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.SB_CMRDatumColumn) End Function _ Public Sub SetSB_CMRDatumNull() Me(Me.tableSpeditionsbuch.SB_CMRDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isveoerz_basbtgNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.veoerz_basbtgColumn) End Function _ Public Sub Setveoerz_basbtgNull() Me(Me.tableSpeditionsbuch.veoerz_basbtgColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_NrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.Zucker_MRN_NrColumn) End Function _ Public Sub SetZucker_MRN_NrNull() Me(Me.tableSpeditionsbuch.Zucker_MRN_NrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_DatumNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.Zucker_MRN_DatumColumn) End Function _ Public Sub SetZucker_MRN_DatumNull() Me(Me.tableSpeditionsbuch.Zucker_MRN_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_AufschubNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.Zucker_AufschubColumn) End Function _ Public Sub SetZucker_AufschubNull() Me(Me.tableSpeditionsbuch.Zucker_AufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollsystemNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.ZollsystemColumn) End Function _ Public Sub SetZollsystemNull() Me(Me.tableSpeditionsbuch.ZollsystemColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungszollstelleNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.BestimmungszollstelleColumn) End Function _ Public Sub SetBestimmungszollstelleNull() Me(Me.tableSpeditionsbuch.BestimmungszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBürgschaftNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.BürgschaftColumn) End Function _ Public Sub SetBürgschaftNull() Me(Me.tableSpeditionsbuch.BürgschaftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSicherheitsbetragNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.SicherheitsbetragColumn) End Function _ Public Sub SetSicherheitsbetragNull() Me(Me.tableSpeditionsbuch.SicherheitsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSgutKomplNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.SgutKomplColumn) End Function _ Public Sub SetSgutKomplNull() Me(Me.tableSpeditionsbuch.SgutKomplColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungslandNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.BestimmungslandColumn) End Function _ Public Sub SetBestimmungslandNull() Me(Me.tableSpeditionsbuch.BestimmungslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEuFiskalEmpfängerNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.EuFiskalEmpfängerColumn) End Function _ Public Sub SetEuFiskalEmpfängerNull() Me(Me.tableSpeditionsbuch.EuFiskalEmpfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsQKNNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.QKNColumn) End Function _ Public Sub SetQKNNull() Me(Me.tableSpeditionsbuch.QKNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndempfängerKundenNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.EndempfängerKundenNrColumn) End Function _ Public Sub SetEndempfängerKundenNrNull() Me(Me.tableSpeditionsbuch.EndempfängerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndempfängerNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.EndempfängerColumn) End Function _ Public Sub SetEndempfängerNull() Me(Me.tableSpeditionsbuch.EndempfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSB_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.SB_ZeitstempelColumn) End Function _ Public Sub SetSB_ZeitstempelNull() Me(Me.tableSpeditionsbuch.SB_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tableSpeditionsbuch.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisoIDNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AvisoIDColumn) End Function _ Public Sub SetAvisoIDNull() Me(Me.tableSpeditionsbuch.AvisoIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSendungIDNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.SendungIDColumn) End Function _ Public Sub SetSendungIDNull() Me(Me.tableSpeditionsbuch.SendungIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPersonalnummerQSNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.PersonalnummerQSColumn) End Function _ Public Sub SetPersonalnummerQSNull() Me(Me.tableSpeditionsbuch.PersonalnummerQSColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisiererKundenNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AvisiererKundenNrColumn) End Function _ Public Sub SetAvisiererKundenNrNull() Me(Me.tableSpeditionsbuch.AvisiererKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisiererNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AvisiererColumn) End Function _ Public Sub SetAvisiererNull() Me(Me.tableSpeditionsbuch.AvisiererColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdAuftragsNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.KdAuftragsNrColumn) End Function _ Public Sub SetKdAuftragsNrNull() Me(Me.tableSpeditionsbuch.KdAuftragsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGrenzstelleNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.GrenzstelleColumn) End Function _ Public Sub SetGrenzstelleNull() Me(Me.tableSpeditionsbuch.GrenzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNCTS_VerzollungsadresseNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.NCTS_VerzollungsadresseColumn) End Function _ Public Sub SetNCTS_VerzollungsadresseNull() Me(Me.tableSpeditionsbuch.NCTS_VerzollungsadresseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNCTS_VerzollungsadresseKdNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.NCTS_VerzollungsadresseKdNrColumn) End Function _ Public Sub SetNCTS_VerzollungsadresseKdNrNull() Me(Me.tableSpeditionsbuch.NCTS_VerzollungsadresseKdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNCTS_Verzollungsadresse_EORINull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.NCTS_Verzollungsadresse_EORIColumn) End Function _ Public Sub SetNCTS_Verzollungsadresse_EORINull() Me(Me.tableSpeditionsbuch.NCTS_Verzollungsadresse_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNCTS_BestimmungszollstelleNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.NCTS_BestimmungszollstelleColumn) End Function _ Public Sub SetNCTS_BestimmungszollstelleNull() Me(Me.tableSpeditionsbuch.NCTS_BestimmungszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAuftraggeberBetragKassiertNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AuftraggeberBetragKassiertColumn) End Function _ Public Sub SetAuftraggeberBetragKassiertNull() Me(Me.tableSpeditionsbuch.AuftraggeberBetragKassiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdAuftragsNrAvisiererNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.KdAuftragsNrAvisiererColumn) End Function _ Public Sub SetKdAuftragsNrAvisiererNull() Me(Me.tableSpeditionsbuch.KdAuftragsNrAvisiererColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdAuftragsNrEmpfaengerNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.KdAuftragsNrEmpfaengerColumn) End Function _ Public Sub SetKdAuftragsNrEmpfaengerNull() Me(Me.tableSpeditionsbuch.KdAuftragsNrEmpfaengerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdAuftragsNrFrachtfuehrerNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.KdAuftragsNrFrachtfuehrerColumn) End Function _ Public Sub SetKdAuftragsNrFrachtfuehrerNull() Me(Me.tableSpeditionsbuch.KdAuftragsNrFrachtfuehrerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferantenrechnungNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.LieferantenrechnungColumn) End Function _ Public Sub SetLieferantenrechnungNull() Me(Me.tableSpeditionsbuch.LieferantenrechnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentId_SteuerbelegNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.DokumentId_SteuerbelegColumn) End Function _ Public Sub SetDokumentId_SteuerbelegNull() Me(Me.tableSpeditionsbuch.DokumentId_SteuerbelegColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentId_MitteilungNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.DokumentId_MitteilungColumn) End Function _ Public Sub SetDokumentId_MitteilungNull() Me(Me.tableSpeditionsbuch.DokumentId_MitteilungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentId_VBDNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.DokumentId_VBDColumn) End Function _ Public Sub SetDokumentId_VBDNull() Me(Me.tableSpeditionsbuch.DokumentId_VBDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentId_ABDNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.DokumentId_ABDColumn) End Function _ Public Sub SetDokumentId_ABDNull() Me(Me.tableSpeditionsbuch.DokumentId_ABDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentId_AVMNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.DokumentId_AVMColumn) End Function _ Public Sub SetDokumentId_AVMNull() Me(Me.tableSpeditionsbuch.DokumentId_AVMColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrHandlingNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.FilialenNrHandlingColumn) End Function _ Public Sub SetFilialenNrHandlingNull() Me(Me.tableSpeditionsbuch.FilialenNrHandlingColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrAbklaerungNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.FilialenNrAbklaerungColumn) End Function _ Public Sub SetFilialenNrAbklaerungNull() Me(Me.tableSpeditionsbuch.FilialenNrAbklaerungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSB_CMRNrNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.SB_CMRNrColumn) End Function _ Public Sub SetSB_CMRNrNull() Me(Me.tableSpeditionsbuch.SB_CMRNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPersonalnummerAbklTRNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.PersonalnummerAbklTRColumn) End Function _ Public Sub SetPersonalnummerAbklTRNull() Me(Me.tableSpeditionsbuch.PersonalnummerAbklTRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollstelleNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.ZollstelleColumn) End Function _ Public Sub SetZollstelleNull() Me(Me.tableSpeditionsbuch.ZollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAtlasBezNrAESNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.AtlasBezNrAESColumn) End Function _ Public Sub SetAtlasBezNrAESNull() Me(Me.tableSpeditionsbuch.AtlasBezNrAESColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPackstücke_ZollNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.Packstücke_ZollColumn) End Function _ Public Sub SetPackstücke_ZollNull() Me(Me.tableSpeditionsbuch.Packstücke_ZollColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollsystem_LandNull() As Boolean Return Me.IsNull(Me.tableSpeditionsbuch.Zollsystem_LandColumn) End Function _ Public Sub SetZollsystem_LandNull() Me(Me.tableSpeditionsbuch.Zollsystem_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetVorkostenRows() As VorkostenRow() If (Me.Table.ChildRelations("Vorkosten_FK00") Is Nothing) Then Return New VorkostenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Vorkosten_FK00")),VorkostenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class StandardoffertenRow Inherits Global.System.Data.DataRow Private tableStandardofferten As StandardoffertenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableStandardofferten = CType(Me.Table,StandardoffertenDataTable) End Sub _ Public Property OffertenNr() As Integer Get Return CType(Me(Me.tableStandardofferten.OffertenNrColumn),Integer) End Get Set Me(Me.tableStandardofferten.OffertenNrColumn) = value End Set End Property _ Public Property Währungscode() As String Get Return CType(Me(Me.tableStandardofferten.WährungscodeColumn),String) End Get Set Me(Me.tableStandardofferten.WährungscodeColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tableStandardofferten.LeistungsNrColumn),Short) End Get Set Me(Me.tableStandardofferten.LeistungsNrColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tableStandardofferten.LeistungsBezColumn),String) End Get Set Me(Me.tableStandardofferten.LeistungsBezColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tableStandardofferten.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle Standardofferten ist DBNull.", e) End Try End Get Set Me(Me.tableStandardofferten.PreisColumn) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tableStandardofferten.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle Standardofferten ist DBNull.", e) End Try End Get Set Me(Me.tableStandardofferten.AnzahlColumn) = value End Set End Property _ Public Property BGebLeistungsNr() As Short Get Try Return CType(Me(Me.tableStandardofferten.BGebLeistungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebLeistungsNr in Tabelle Standardofferten ist DBNull.", e) End Try End Get Set Me(Me.tableStandardofferten.BGebLeistungsNrColumn) = value End Set End Property _ Public Property BGebProzent() As Single Get Try Return CType(Me(Me.tableStandardofferten.BGebProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebProzent in Tabelle Standardofferten ist DBNull.", e) End Try End Get Set Me(Me.tableStandardofferten.BGebProzentColumn) = value End Set End Property _ Public Property BGebMinBetrag() As Decimal Get Try Return CType(Me(Me.tableStandardofferten.BGebMinBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebMinBetrag in Tabelle Standardofferten ist DBNull.", e) End Try End Get Set Me(Me.tableStandardofferten.BGebMinBetragColumn) = value End Set End Property _ Public Property BerechnungsartPosInkludiert() As Integer Get Try Return CType(Me(Me.tableStandardofferten.BerechnungsartPosInkludiertColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BerechnungsartPosInkludiert in Tabelle Standardofferten ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tableStandardofferten.BerechnungsartPosInkludiertColumn) = value End Set End Property _ Public Property BerechnungsartNr() As Short Get Try Return CType(Me(Me.tableStandardofferten.BerechnungsartNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BerechnungsartNr in Tabelle Standardofferten ist DBNull.", e) End Try End Get Set Me(Me.tableStandardofferten.BerechnungsartNrColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableStandardofferten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Standardofferten ist DBNull.", e) End Try End Get Set Me(Me.tableStandardofferten.SSMA_TimeStampColumn) = value End Set End Property _ Public Property LeistungenRow() As LeistungenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Standardofferten$LeistungenStandardofferten")),LeistungenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Standardofferten$LeistungenStandardofferten")) End Set End Property _ Public Property OffertenstammRow() As OffertenstammRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Standardofferten$OffertenstammStandardofferten")),OffertenstammRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Standardofferten$OffertenstammStandardofferten")) End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tableStandardofferten.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tableStandardofferten.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tableStandardofferten.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tableStandardofferten.AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebLeistungsNrNull() As Boolean Return Me.IsNull(Me.tableStandardofferten.BGebLeistungsNrColumn) End Function _ Public Sub SetBGebLeistungsNrNull() Me(Me.tableStandardofferten.BGebLeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebProzentNull() As Boolean Return Me.IsNull(Me.tableStandardofferten.BGebProzentColumn) End Function _ Public Sub SetBGebProzentNull() Me(Me.tableStandardofferten.BGebProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebMinBetragNull() As Boolean Return Me.IsNull(Me.tableStandardofferten.BGebMinBetragColumn) End Function _ Public Sub SetBGebMinBetragNull() Me(Me.tableStandardofferten.BGebMinBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerechnungsartPosInkludiertNull() As Boolean Return Me.IsNull(Me.tableStandardofferten.BerechnungsartPosInkludiertColumn) End Function _ Public Sub SetBerechnungsartPosInkludiertNull() Me(Me.tableStandardofferten.BerechnungsartPosInkludiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerechnungsartNrNull() As Boolean Return Me.IsNull(Me.tableStandardofferten.BerechnungsartNrColumn) End Function _ Public Sub SetBerechnungsartNrNull() Me(Me.tableStandardofferten.BerechnungsartNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableStandardofferten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableStandardofferten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class StandardoffertenFirmaRow Inherits Global.System.Data.DataRow Private tableStandardoffertenFirma As StandardoffertenFirmaDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableStandardoffertenFirma = CType(Me.Table,StandardoffertenFirmaDataTable) End Sub _ Public Property OffertenNr() As Integer Get Return CType(Me(Me.tableStandardoffertenFirma.OffertenNrColumn),Integer) End Get Set Me(Me.tableStandardoffertenFirma.OffertenNrColumn) = value End Set End Property _ Public Property Währungscode() As String Get Return CType(Me(Me.tableStandardoffertenFirma.WährungscodeColumn),String) End Get Set Me(Me.tableStandardoffertenFirma.WährungscodeColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tableStandardoffertenFirma.LeistungsNrColumn),Short) End Get Set Me(Me.tableStandardoffertenFirma.LeistungsNrColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tableStandardoffertenFirma.LeistungsBezColumn),String) End Get Set Me(Me.tableStandardoffertenFirma.LeistungsBezColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tableStandardoffertenFirma.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle StandardoffertenFirma ist DBNull.", e) End Try End Get Set Me(Me.tableStandardoffertenFirma.PreisColumn) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tableStandardoffertenFirma.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle StandardoffertenFirma ist DBNull.", e) End Try End Get Set Me(Me.tableStandardoffertenFirma.AnzahlColumn) = value End Set End Property _ Public Property BGebLeistungsNr() As Short Get Try Return CType(Me(Me.tableStandardoffertenFirma.BGebLeistungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebLeistungsNr in Tabelle StandardoffertenFirma ist DBNull.", e) End Try End Get Set Me(Me.tableStandardoffertenFirma.BGebLeistungsNrColumn) = value End Set End Property _ Public Property BGebProzent() As Single Get Try Return CType(Me(Me.tableStandardoffertenFirma.BGebProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebProzent in Tabelle StandardoffertenFirma ist DBNull.", e) End Try End Get Set Me(Me.tableStandardoffertenFirma.BGebProzentColumn) = value End Set End Property _ Public Property BGebMinBetrag() As Decimal Get Try Return CType(Me(Me.tableStandardoffertenFirma.BGebMinBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebMinBetrag in Tabelle StandardoffertenFirma ist DBNull.", e) End Try End Get Set Me(Me.tableStandardoffertenFirma.BGebMinBetragColumn) = value End Set End Property _ Public Property Firma() As String Get Return CType(Me(Me.tableStandardoffertenFirma.FirmaColumn),String) End Get Set Me(Me.tableStandardoffertenFirma.FirmaColumn) = value End Set End Property _ Public Property BerechnungsartPosInkludiert() As Integer Get Try Return CType(Me(Me.tableStandardoffertenFirma.BerechnungsartPosInkludiertColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BerechnungsartPosInkludiert in Tabelle StandardoffertenFirma "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tableStandardoffertenFirma.BerechnungsartPosInkludiertColumn) = value End Set End Property _ Public Property BerechnungsartNr() As Short Get Try Return CType(Me(Me.tableStandardoffertenFirma.BerechnungsartNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BerechnungsartNr in Tabelle StandardoffertenFirma ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableStandardoffertenFirma.BerechnungsartNrColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableStandardoffertenFirma.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle StandardoffertenFirma ist DBNull.", e) End Try End Get Set Me(Me.tableStandardoffertenFirma.SSMA_TimeStampColumn) = value End Set End Property _ Public Property LeistungenRow() As LeistungenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("StandardoffertenFirma$LeistungenStandardofferten")),LeistungenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("StandardoffertenFirma$LeistungenStandardofferten")) End Set End Property _ Public Property OffertenstammRow() As OffertenstammRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("StandardoffertenFirma$OffertenstammStandardofferten")),OffertenstammRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("StandardoffertenFirma$OffertenstammStandardofferten")) End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tableStandardoffertenFirma.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tableStandardoffertenFirma.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tableStandardoffertenFirma.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tableStandardoffertenFirma.AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebLeistungsNrNull() As Boolean Return Me.IsNull(Me.tableStandardoffertenFirma.BGebLeistungsNrColumn) End Function _ Public Sub SetBGebLeistungsNrNull() Me(Me.tableStandardoffertenFirma.BGebLeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebProzentNull() As Boolean Return Me.IsNull(Me.tableStandardoffertenFirma.BGebProzentColumn) End Function _ Public Sub SetBGebProzentNull() Me(Me.tableStandardoffertenFirma.BGebProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebMinBetragNull() As Boolean Return Me.IsNull(Me.tableStandardoffertenFirma.BGebMinBetragColumn) End Function _ Public Sub SetBGebMinBetragNull() Me(Me.tableStandardoffertenFirma.BGebMinBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerechnungsartPosInkludiertNull() As Boolean Return Me.IsNull(Me.tableStandardoffertenFirma.BerechnungsartPosInkludiertColumn) End Function _ Public Sub SetBerechnungsartPosInkludiertNull() Me(Me.tableStandardoffertenFirma.BerechnungsartPosInkludiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerechnungsartNrNull() As Boolean Return Me.IsNull(Me.tableStandardoffertenFirma.BerechnungsartNrColumn) End Function _ Public Sub SetBerechnungsartNrNull() Me(Me.tableStandardoffertenFirma.BerechnungsartNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableStandardoffertenFirma.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableStandardoffertenFirma.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class SteuertabelleRow Inherits Global.System.Data.DataRow Private tableSteuertabelle As SteuertabelleDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableSteuertabelle = CType(Me.Table,SteuertabelleDataTable) End Sub _ Public Property Steuerschlüssel() As Short Get Return CType(Me(Me.tableSteuertabelle.SteuerschlüsselColumn),Short) End Get Set Me(Me.tableSteuertabelle.SteuerschlüsselColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Return CType(Me(Me.tableSteuertabelle._Steuersatz__Column),Single) End Get Set Me(Me.tableSteuertabelle._Steuersatz__Column) = value End Set End Property _ Public Property Steuerbezeichnung() As String Get Try Return CType(Me(Me.tableSteuertabelle.SteuerbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerbezeichnung in Tabelle Steuertabelle ist DBNull.", e) End Try End Get Set Me(Me.tableSteuertabelle.SteuerbezeichnungColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableSteuertabelle.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Steuertabelle ist DBNull.", e) End Try End Get Set Me(Me.tableSteuertabelle.SSMA_TimeStampColumn) = value End Set End Property _ Public Property AuswahlSteuerbezeichnung() As String Get Try Return CType(Me(Me.tableSteuertabelle.AuswahlSteuerbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AuswahlSteuerbezeichnung in Tabelle Steuertabelle ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableSteuertabelle.AuswahlSteuerbezeichnungColumn) = value End Set End Property _ Public Function IsSteuerbezeichnungNull() As Boolean Return Me.IsNull(Me.tableSteuertabelle.SteuerbezeichnungColumn) End Function _ Public Sub SetSteuerbezeichnungNull() Me(Me.tableSteuertabelle.SteuerbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableSteuertabelle.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableSteuertabelle.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAuswahlSteuerbezeichnungNull() As Boolean Return Me.IsNull(Me.tableSteuertabelle.AuswahlSteuerbezeichnungColumn) End Function _ Public Sub SetAuswahlSteuerbezeichnungNull() Me(Me.tableSteuertabelle.AuswahlSteuerbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetKundenRows() As KundenRow() If (Me.Table.ChildRelations("Kunden$Reference7") Is Nothing) Then Return New KundenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Kunden$Reference7")),KundenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_ASFINAG_FileInfoRow Inherits Global.System.Data.DataRow Private tabletbl_ASFINAG_FileInfo As tbl_ASFINAG_FileInfoDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_ASFINAG_FileInfo = CType(Me.Table,tbl_ASFINAG_FileInfoDataTable) End Sub _ Public Property FileName() As String Get Return CType(Me(Me.tabletbl_ASFINAG_FileInfo.FileNameColumn),String) End Get Set Me(Me.tabletbl_ASFINAG_FileInfo.FileNameColumn) = value End Set End Property _ Public Property RunNumber() As Short Get Return CType(Me(Me.tabletbl_ASFINAG_FileInfo.RunNumberColumn),Short) End Get Set Me(Me.tabletbl_ASFINAG_FileInfo.RunNumberColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_ASFINAG_FileInfo.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_ASFINAG_FileInfo ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_ASFINAG_FileInfo.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_ASFINAG_FileInfo.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_ASFINAG_FileInfo.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_BMD_LänderRow Inherits Global.System.Data.DataRow Private tabletbl_BMD_Länder As tbl_BMD_LänderDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_BMD_Länder = CType(Me.Table,tbl_BMD_LänderDataTable) End Sub _ Public Property BMD_Ländernummer() As Short Get Return CType(Me(Me.tabletbl_BMD_Länder.BMD_LändernummerColumn),Short) End Get Set Me(Me.tabletbl_BMD_Länder.BMD_LändernummerColumn) = value End Set End Property _ Public Property BMD_Ländername() As String Get Return CType(Me(Me.tabletbl_BMD_Länder.BMD_LändernameColumn),String) End Get Set Me(Me.tabletbl_BMD_Länder.BMD_LändernameColumn) = value End Set End Property _ Public Property BMD_Beitrittsdatum_EU() As Date Get Try Return CType(Me(Me.tabletbl_BMD_Länder.BMD_Beitrittsdatum_EUColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BMD_Beitrittsdatum_EU in Tabelle tbl_BMD_Länder ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_BMD_Länder.BMD_Beitrittsdatum_EUColumn) = value End Set End Property _ Public Property FMZ_Ländernummer() As Short Get Try Return CType(Me(Me.tabletbl_BMD_Länder.FMZ_LändernummerColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FMZ_Ländernummer in Tabelle tbl_BMD_Länder ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_BMD_Länder.FMZ_LändernummerColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_BMD_Länder.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_BMD_Länder ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_BMD_Länder.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsBMD_Beitrittsdatum_EUNull() As Boolean Return Me.IsNull(Me.tabletbl_BMD_Länder.BMD_Beitrittsdatum_EUColumn) End Function _ Public Sub SetBMD_Beitrittsdatum_EUNull() Me(Me.tabletbl_BMD_Länder.BMD_Beitrittsdatum_EUColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFMZ_LändernummerNull() As Boolean Return Me.IsNull(Me.tabletbl_BMD_Länder.FMZ_LändernummerColumn) End Function _ Public Sub SetFMZ_LändernummerNull() Me(Me.tabletbl_BMD_Länder.FMZ_LändernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_BMD_Länder.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_BMD_Länder.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ParamterRow Inherits Global.System.Data.DataRow Private tabletbl_DY_Paramter As tbl_DY_ParamterDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_Paramter = CType(Me.Table,tbl_DY_ParamterDataTable) End Sub _ Public Property dyParam_name() As String Get Return CType(Me(Me.tabletbl_DY_Paramter.dyParam_nameColumn),String) End Get Set Me(Me.tabletbl_DY_Paramter.dyParam_nameColumn) = value End Set End Property _ Public Property dyParam_value() As String Get Return CType(Me(Me.tabletbl_DY_Paramter.dyParam_valueColumn),String) End Get Set Me(Me.tabletbl_DY_Paramter.dyParam_valueColumn) = value End Set End Property _ Public Property dyParam_firma() As String Get Return CType(Me(Me.tabletbl_DY_Paramter.dyParam_firmaColumn),String) End Get Set Me(Me.tabletbl_DY_Paramter.dyParam_firmaColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung = CType(Me.Table,tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.CodeColumn) = value End Set End Property _ Public Property Qualifier() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.QualifierColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.QualifierColumn) = value End Set End Property _ Public Property Note() As String Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.NoteColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Note in Tabelle tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.NoteColumn) = value End Set End Property _ Public Property Description() As String Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.DescriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_DY_ZollDE_A0122_AnmArtUeberfuehrun"& _ "g ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.DescriptionColumn) = value End Set End Property _ Public Function IsNoteNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.NoteColumn) End Function _ Public Sub SetNoteNull() Me(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.NoteColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDescriptionNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.DescriptionColumn) End Function _ Public Sub SetDescriptionNull() Me(Me.tabletbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.DescriptionColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation = CType(Me.Table,tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation.CodeColumn) = value End Set End Property _ Public Property Description() As String Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation.DescriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_DY_ZollDE_A0127_BeteiligtenKonstel"& _ "lation ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation.DescriptionColumn) = value End Set End Property _ Public Function IsDescriptionNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation.DescriptionColumn) End Function _ Public Sub SetDescriptionNull() Me(Me.tabletbl_DY_ZollDE_A0127_BeteiligtenKonstellation.DescriptionColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_C0008_LaenderFullRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_C0008_LaenderFull As tbl_DY_ZollDE_C0008_LaenderFullDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_C0008_LaenderFull = CType(Me.Table,tbl_DY_ZollDE_C0008_LaenderFullDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.CodeColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.DescriptionColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle tbl_DY_ZollDE_C0008_LaenderFull ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle tbl_DY_ZollDE_C0008_LaenderFull ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.EndDateColumn) = value End Set End Property _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tabletbl_DY_ZollDE_C0008_LaenderFull.EndDateColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_C0010_LaenderAESRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_C0010_LaenderAES As tbl_DY_ZollDE_C0010_LaenderAESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_C0010_LaenderAES = CType(Me.Table,tbl_DY_ZollDE_C0010_LaenderAESDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.CodeColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.DescriptionColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle tbl_DY_ZollDE_C0010_LaenderAES ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle tbl_DY_ZollDE_C0010_LaenderAES ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.EndDateColumn) = value End Set End Property _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tabletbl_DY_ZollDE_C0010_LaenderAES.EndDateColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_C0013_UnterlagenArtenRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_C0013_UnterlagenArten As tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten = CType(Me.Table,tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.CodeColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.DescriptionColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle tbl_DY_ZollDE_C0013_UnterlagenArten ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle tbl_DY_ZollDE_C0013_UnterlagenArten ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.EndDateColumn) = value End Set End Property _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tabletbl_DY_ZollDE_C0013_UnterlagenArten.EndDateColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_C0014_VorpapierArtenRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_C0014_VorpapierArten As tbl_DY_ZollDE_C0014_VorpapierArtenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_C0014_VorpapierArten = CType(Me.Table,tbl_DY_ZollDE_C0014_VorpapierArtenDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.CodeColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.DescriptionColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle tbl_DY_ZollDE_C0014_VorpapierArten ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle tbl_DY_ZollDE_C0014_VorpapierArten ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.EndDateColumn) = value End Set End Property _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tabletbl_DY_ZollDE_C0014_VorpapierArten.EndDateColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten = CType(Me.Table,tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.CodeColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.DescriptionColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle tbl_DY_ZollDE_C0017_PackstueckeVerpackun"& _ "gsarten ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle tbl_DY_ZollDE_C0017_PackstueckeVerpackungs"& _ "arten ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.EndDateColumn) = value End Set End Property _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tabletbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.EndDateColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_C0141_ZollstellenRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_C0141_Zollstellen As tbl_DY_ZollDE_C0141_ZollstellenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_C0141_Zollstellen = CType(Me.Table,tbl_DY_ZollDE_C0141_ZollstellenDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.CodeColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.DescriptionColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle tbl_DY_ZollDE_C0141_Zollstellen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle tbl_DY_ZollDE_C0141_Zollstellen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.EndDateColumn) = value End Set End Property _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tabletbl_DY_ZollDE_C0141_Zollstellen.EndDateColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_C0219_TypeTransportMeansRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_C0219_TypeTransportMeans As tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans = CType(Me.Table,tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.CodeColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.DescriptionColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle tbl_DY_ZollDE_C0219_TypeTransportMeans i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle tbl_DY_ZollDE_C0219_TypeTransportMeans ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.EndDateColumn) = value End Set End Property _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tabletbl_DY_ZollDE_C0219_TypeTransportMeans.EndDateColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_I0200_UnterlageartenRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_I0200_Unterlagearten As tbl_DY_ZollDE_I0200_UnterlageartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_I0200_Unterlagearten = CType(Me.Table,tbl_DY_ZollDE_I0200_UnterlageartenDataTable) End Sub _ Public Property Code() As String Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Code in Tabelle tbl_DY_ZollDE_I0200_Unterlagearten ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.CodeColumn) = value End Set End Property _ Public Property DocumentCode() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.DocumentCodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.DocumentCodeColumn) = value End Set End Property _ Public Property Division() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.DivisionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.DivisionColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.DescriptionColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle tbl_DY_ZollDE_I0200_Unterlagearten ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle tbl_DY_ZollDE_I0200_Unterlagearten ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.EndDateColumn) = value End Set End Property _ Public Function IsCodeNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.CodeColumn) End Function _ Public Sub SetCodeNull() Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tabletbl_DY_ZollDE_I0200_Unterlagearten.EndDateColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_I0400_WaehrungslisteRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_I0400_Waehrungsliste As tbl_DY_ZollDE_I0400_WaehrungslisteDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste = CType(Me.Table,tbl_DY_ZollDE_I0400_WaehrungslisteDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.CodeColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.DescriptionColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle tbl_DY_ZollDE_I0400_Waehrungsliste ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle tbl_DY_ZollDE_I0400_Waehrungsliste ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.EndDateColumn) = value End Set End Property _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tabletbl_DY_ZollDE_I0400_Waehrungsliste.EndDateColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES = CType(Me.Table,tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES.CodeColumn) = value End Set End Property _ Public Property Qualifier() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES.QualifierColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES.QualifierColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0610_ZustaendigeZSTAES.DescriptionColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DY_ZollDE_I0700_MasseinheitenRow Inherits Global.System.Data.DataRow Private tabletbl_DY_ZollDE_I0700_Masseinheiten As tbl_DY_ZollDE_I0700_MasseinheitenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_DY_ZollDE_I0700_Masseinheiten = CType(Me.Table,tbl_DY_ZollDE_I0700_MasseinheitenDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.CodeColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.CodeColumn) = value End Set End Property _ Public Property Qualifier() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.QualifierColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.QualifierColumn) = value End Set End Property _ Public Property CodeQualifier() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.CodeQualifierColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.CodeQualifierColumn) = value End Set End Property _ Public Property Description() As String Get Return CType(Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.DescriptionColumn),String) End Get Set Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.DescriptionColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle tbl_DY_ZollDE_I0700_Masseinheiten ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle tbl_DY_ZollDE_I0700_Masseinheiten ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.EndDateColumn) = value End Set End Property _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tabletbl_DY_ZollDE_I0700_Masseinheiten.EndDateColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_ErrorsRow Inherits Global.System.Data.DataRow Private tabletbl_Errors As tbl_ErrorsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_Errors = CType(Me.Table,tbl_ErrorsDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tabletbl_Errors.IDColumn),Integer) End Get Set Me(Me.tabletbl_Errors.IDColumn) = value End Set End Property _ Public Property ErrDate() As Date Get Try Return CType(Me(Me.tabletbl_Errors.ErrDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrDate in Tabelle tbl_Errors ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Errors.ErrDateColumn) = value End Set End Property _ Public Property ErrLevel() As Integer Get Try Return CType(Me(Me.tabletbl_Errors.ErrLevelColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrLevel in Tabelle tbl_Errors ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Errors.ErrLevelColumn) = value End Set End Property _ Public Property Machine() As String Get Try Return CType(Me(Me.tabletbl_Errors.MachineColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Machine in Tabelle tbl_Errors ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Errors.MachineColumn) = value End Set End Property _ Public Property LoginUser() As String Get Try Return CType(Me(Me.tabletbl_Errors.LoginUserColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LoginUser in Tabelle tbl_Errors ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Errors.LoginUserColumn) = value End Set End Property _ Public Property ErrNumber() As Integer Get Try Return CType(Me(Me.tabletbl_Errors.ErrNumberColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrNumber in Tabelle tbl_Errors ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Errors.ErrNumberColumn) = value End Set End Property _ Public Property ErrDescription() As String Get Try Return CType(Me(Me.tabletbl_Errors.ErrDescriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrDescription in Tabelle tbl_Errors ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Errors.ErrDescriptionColumn) = value End Set End Property _ Public Property ErrLine() As Integer Get Try Return CType(Me(Me.tabletbl_Errors.ErrLineColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrLine in Tabelle tbl_Errors ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Errors.ErrLineColumn) = value End Set End Property _ Public Property NameObject() As String Get Try Return CType(Me(Me.tabletbl_Errors.NameObjectColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NameObject in Tabelle tbl_Errors ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Errors.NameObjectColumn) = value End Set End Property _ Public Property NameProcedure() As String Get Try Return CType(Me(Me.tabletbl_Errors.NameProcedureColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NameProcedure in Tabelle tbl_Errors ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Errors.NameProcedureColumn) = value End Set End Property _ Public Property Sent() As Boolean Get Return CType(Me(Me.tabletbl_Errors.SentColumn),Boolean) End Get Set Me(Me.tabletbl_Errors.SentColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletbl_Errors.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tbl_Errors ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Errors.upsize_tsColumn) = value End Set End Property _ Public Function IsErrDateNull() As Boolean Return Me.IsNull(Me.tabletbl_Errors.ErrDateColumn) End Function _ Public Sub SetErrDateNull() Me(Me.tabletbl_Errors.ErrDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErrLevelNull() As Boolean Return Me.IsNull(Me.tabletbl_Errors.ErrLevelColumn) End Function _ Public Sub SetErrLevelNull() Me(Me.tabletbl_Errors.ErrLevelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMachineNull() As Boolean Return Me.IsNull(Me.tabletbl_Errors.MachineColumn) End Function _ Public Sub SetMachineNull() Me(Me.tabletbl_Errors.MachineColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLoginUserNull() As Boolean Return Me.IsNull(Me.tabletbl_Errors.LoginUserColumn) End Function _ Public Sub SetLoginUserNull() Me(Me.tabletbl_Errors.LoginUserColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErrNumberNull() As Boolean Return Me.IsNull(Me.tabletbl_Errors.ErrNumberColumn) End Function _ Public Sub SetErrNumberNull() Me(Me.tabletbl_Errors.ErrNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErrDescriptionNull() As Boolean Return Me.IsNull(Me.tabletbl_Errors.ErrDescriptionColumn) End Function _ Public Sub SetErrDescriptionNull() Me(Me.tabletbl_Errors.ErrDescriptionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErrLineNull() As Boolean Return Me.IsNull(Me.tabletbl_Errors.ErrLineColumn) End Function _ Public Sub SetErrLineNull() Me(Me.tabletbl_Errors.ErrLineColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNameObjectNull() As Boolean Return Me.IsNull(Me.tabletbl_Errors.NameObjectColumn) End Function _ Public Sub SetNameObjectNull() Me(Me.tabletbl_Errors.NameObjectColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNameProcedureNull() As Boolean Return Me.IsNull(Me.tabletbl_Errors.NameProcedureColumn) End Function _ Public Sub SetNameProcedureNull() Me(Me.tabletbl_Errors.NameProcedureColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletbl_Errors.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletbl_Errors.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_IDS_Kategorien_KundenRow Inherits Global.System.Data.DataRow Private tabletbl_IDS_Kategorien_Kunden As tbl_IDS_Kategorien_KundenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_IDS_Kategorien_Kunden = CType(Me.Table,tbl_IDS_Kategorien_KundenDataTable) End Sub _ Public Property CustomerCode() As Integer Get Return CType(Me(Me.tabletbl_IDS_Kategorien_Kunden.CustomerCodeColumn),Integer) End Get Set Me(Me.tabletbl_IDS_Kategorien_Kunden.CustomerCodeColumn) = value End Set End Property _ Public Property KategorieNr() As Short Get Return CType(Me(Me.tabletbl_IDS_Kategorien_Kunden.KategorieNrColumn),Short) End Get Set Me(Me.tabletbl_IDS_Kategorien_Kunden.KategorieNrColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Try Return CType(Me(Me.tabletbl_IDS_Kategorien_Kunden.ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitstempel in Tabelle tbl_IDS_Kategorien_Kunden ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kategorien_Kunden.ZeitstempelColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletbl_IDS_Kategorien_Kunden.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle tbl_IDS_Kategorien_Kunden ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kategorien_Kunden.SachbearbeiterColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_IDS_Kategorien_Kunden.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_IDS_Kategorien_Kunden ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kategorien_Kunden.SSMA_TimeStampColumn) = value End Set End Property _ Public Property AdressenRow() As AdressenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbl_IDS_Kategorien_Kunden$Adressentbl_IDS_Kategorien_Kunden")),AdressenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tbl_IDS_Kategorien_Kunden$Adressentbl_IDS_Kategorien_Kunden")) End Set End Property _ Public Function IsZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kategorien_Kunden.ZeitstempelColumn) End Function _ Public Sub SetZeitstempelNull() Me(Me.tabletbl_IDS_Kategorien_Kunden.ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kategorien_Kunden.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tabletbl_IDS_Kategorien_Kunden.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kategorien_Kunden.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_IDS_Kategorien_Kunden.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_IDS_Kategorien_RechenwerteRow Inherits Global.System.Data.DataRow Private tabletbl_IDS_Kategorien_Rechenwerte As tbl_IDS_Kategorien_RechenwerteDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_IDS_Kategorien_Rechenwerte = CType(Me.Table,tbl_IDS_Kategorien_RechenwerteDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.IDColumn),Integer) End Get Set Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.IDColumn) = value End Set End Property _ Public Property KategorieNr() As Short Get Return CType(Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.KategorieNrColumn),Short) End Get Set Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.KategorieNrColumn) = value End Set End Property _ Public Property ProductTypeCode() As Short Get Return CType(Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.ProductTypeCodeColumn),Short) End Get Set Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.ProductTypeCodeColumn) = value End Set End Property _ Public Property Rechenwert() As Decimal Get Return CType(Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.RechenwertColumn),Decimal) End Get Set Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.RechenwertColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Try Return CType(Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitstempel in Tabelle tbl_IDS_Kategorien_Rechenwerte ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.ZeitstempelColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle tbl_IDS_Kategorien_Rechenwerte ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.SachbearbeiterColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_IDS_Kategorien_Rechenwerte ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.SSMA_TimeStampColumn) = value End Set End Property _ Public Property tbl_IDS_ProdukteRow() As tbl_IDS_ProdukteRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbl_IDS_Kategorien_Rechenwerte$tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte")),tbl_IDS_ProdukteRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tbl_IDS_Kategorien_Rechenwerte$tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte")) End Set End Property _ Public Function IsZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kategorien_Rechenwerte.ZeitstempelColumn) End Function _ Public Sub SetZeitstempelNull() Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kategorien_Rechenwerte.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kategorien_Rechenwerte.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_IDS_Kategorien_Rechenwerte.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_IDS_KundenRow Inherits Global.System.Data.DataRow Private tabletbl_IDS_Kunden As tbl_IDS_KundenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_IDS_Kunden = CType(Me.Table,tbl_IDS_KundenDataTable) End Sub _ Public Property CustomerCode() As Integer Get Return CType(Me(Me.tabletbl_IDS_Kunden.CustomerCodeColumn),Integer) End Get Set Me(Me.tabletbl_IDS_Kunden.CustomerCodeColumn) = value End Set End Property _ Public Property KdNrVERAG() As Integer Get Return CType(Me(Me.tabletbl_IDS_Kunden.KdNrVERAGColumn),Integer) End Get Set Me(Me.tabletbl_IDS_Kunden.KdNrVERAGColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Try Return CType(Me(Me.tabletbl_IDS_Kunden.ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitstempel in Tabelle tbl_IDS_Kunden ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kunden.ZeitstempelColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletbl_IDS_Kunden.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle tbl_IDS_Kunden ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kunden.SachbearbeiterColumn) = value End Set End Property _ Public Property KdNrAlt() As Boolean Get Try Return CType(Me(Me.tabletbl_IDS_Kunden.KdNrAltColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdNrAlt in Tabelle tbl_IDS_Kunden ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kunden.KdNrAltColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_IDS_Kunden.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_IDS_Kunden ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kunden.SSMA_TimeStampColumn) = value End Set End Property _ Public Property AdressenRow() As AdressenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbl_IDS_Kunden$Adressentbl_IDS_Kunden")),AdressenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tbl_IDS_Kunden$Adressentbl_IDS_Kunden")) End Set End Property _ Public Function IsZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kunden.ZeitstempelColumn) End Function _ Public Sub SetZeitstempelNull() Me(Me.tabletbl_IDS_Kunden.ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kunden.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tabletbl_IDS_Kunden.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdNrAltNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kunden.KdNrAltColumn) End Function _ Public Sub SetKdNrAltNull() Me(Me.tabletbl_IDS_Kunden.KdNrAltColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kunden.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_IDS_Kunden.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_IDS_Kunden_ohne_RabattRow Inherits Global.System.Data.DataRow Private tabletbl_IDS_Kunden_ohne_Rabatt As tbl_IDS_Kunden_ohne_RabattDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_IDS_Kunden_ohne_Rabatt = CType(Me.Table,tbl_IDS_Kunden_ohne_RabattDataTable) End Sub _ Public Property CustomerCode() As Integer Get Return CType(Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.CustomerCodeColumn),Integer) End Get Set Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.CustomerCodeColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Try Return CType(Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitstempel in Tabelle tbl_IDS_Kunden_ohne_Rabatt ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.ZeitstempelColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle tbl_IDS_Kunden_ohne_Rabatt ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.SachbearbeiterColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_IDS_Kunden_ohne_Rabatt ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.SSMA_TimeStampColumn) = value End Set End Property _ Public Property AdressenRow() As AdressenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbl_IDS_Kunden_ohne_Rabatt$Adressentbl_IDS_Kunden_ohne_Rabatt")),AdressenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tbl_IDS_Kunden_ohne_Rabatt$Adressentbl_IDS_Kunden_ohne_Rabatt")) End Set End Property _ Public Function IsZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kunden_ohne_Rabatt.ZeitstempelColumn) End Function _ Public Sub SetZeitstempelNull() Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kunden_ohne_Rabatt.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Kunden_ohne_Rabatt.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_IDS_Kunden_ohne_Rabatt.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_IDS_LänderRow Inherits Global.System.Data.DataRow Private tabletbl_IDS_Länder As tbl_IDS_LänderDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_IDS_Länder = CType(Me.Table,tbl_IDS_LänderDataTable) End Sub _ Public Property OutletCountryCode() As Integer Get Return CType(Me(Me.tabletbl_IDS_Länder.OutletCountryCodeColumn),Integer) End Get Set Me(Me.tabletbl_IDS_Länder.OutletCountryCodeColumn) = value End Set End Property _ Public Property OutletCountry() As String Get Return CType(Me(Me.tabletbl_IDS_Länder.OutletCountryColumn),String) End Get Set Me(Me.tabletbl_IDS_Länder.OutletCountryColumn) = value End Set End Property _ Public Property Steuersatz() As Single Get Return CType(Me(Me.tabletbl_IDS_Länder.SteuersatzColumn),Single) End Get Set Me(Me.tabletbl_IDS_Länder.SteuersatzColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Try Return CType(Me(Me.tabletbl_IDS_Länder.LeistungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LeistungsNr in Tabelle tbl_IDS_Länder ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Länder.LeistungsNrColumn) = value End Set End Property _ Public Property LandNr() As Short Get Return CType(Me(Me.tabletbl_IDS_Länder.LandNrColumn),Short) End Get Set Me(Me.tabletbl_IDS_Länder.LandNrColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_IDS_Länder.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_IDS_Länder ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Länder.SSMA_TimeStampColumn) = value End Set End Property _ Public Property LeistungenRow() As LeistungenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbl_IDS_Länder$Leistungentbl_IDS_Länder")),LeistungenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tbl_IDS_Länder$Leistungentbl_IDS_Länder")) End Set End Property _ Public Function IsLeistungsNrNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Länder.LeistungsNrColumn) End Function _ Public Sub SetLeistungsNrNull() Me(Me.tabletbl_IDS_Länder.LeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Länder.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_IDS_Länder.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function Gettbl_IDS_RechenwerteRows() As tbl_IDS_RechenwerteRow() If (Me.Table.ChildRelations("tbl_IDS_Rechenwerte$tbl_IDS_Ländertbl_IDS_Rechenwerte") Is Nothing) Then Return New tbl_IDS_RechenwerteRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbl_IDS_Rechenwerte$tbl_IDS_Ländertbl_IDS_Rechenwerte")),tbl_IDS_RechenwerteRow()) End If End Function _ Public Function Gettbl_IDS_StationenRows() As tbl_IDS_StationenRow() If (Me.Table.ChildRelations("tbl_IDS_Stationen$tbl_IDS_Ländertbl_IDS_Stationen") Is Nothing) Then Return New tbl_IDS_StationenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbl_IDS_Stationen$tbl_IDS_Ländertbl_IDS_Stationen")),tbl_IDS_StationenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_IDS_ProdukteRow Inherits Global.System.Data.DataRow Private tabletbl_IDS_Produkte As tbl_IDS_ProdukteDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_IDS_Produkte = CType(Me.Table,tbl_IDS_ProdukteDataTable) End Sub _ Public Property ProductTypeCode() As Short Get Return CType(Me(Me.tabletbl_IDS_Produkte.ProductTypeCodeColumn),Short) End Get Set Me(Me.tabletbl_IDS_Produkte.ProductTypeCodeColumn) = value End Set End Property _ Public Property ProductDescription() As String Get Return CType(Me(Me.tabletbl_IDS_Produkte.ProductDescriptionColumn),String) End Get Set Me(Me.tabletbl_IDS_Produkte.ProductDescriptionColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_IDS_Produkte.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_IDS_Produkte ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Produkte.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Produkte.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_IDS_Produkte.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function Gettbl_IDS_Kategorien_RechenwerteRows() As tbl_IDS_Kategorien_RechenwerteRow() If (Me.Table.ChildRelations("tbl_IDS_Kategorien_Rechenwerte$tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte") Is Nothing) Then Return New tbl_IDS_Kategorien_RechenwerteRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbl_IDS_Kategorien_Rechenwerte$tbl_IDS_Produktetbl_IDS_Kategorien_Rechenwerte")),tbl_IDS_Kategorien_RechenwerteRow()) End If End Function _ Public Function Gettbl_IDS_RechenwerteRows() As tbl_IDS_RechenwerteRow() If (Me.Table.ChildRelations("tbl_IDS_Rechenwerte$tbl_IDS_Produktetbl_IDS_Rechenwerte") Is Nothing) Then Return New tbl_IDS_RechenwerteRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbl_IDS_Rechenwerte$tbl_IDS_Produktetbl_IDS_Rechenwerte")),tbl_IDS_RechenwerteRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_IDS_RechenwerteRow Inherits Global.System.Data.DataRow Private tabletbl_IDS_Rechenwerte As tbl_IDS_RechenwerteDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_IDS_Rechenwerte = CType(Me.Table,tbl_IDS_RechenwerteDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tabletbl_IDS_Rechenwerte.IDColumn),Integer) End Get Set Me(Me.tabletbl_IDS_Rechenwerte.IDColumn) = value End Set End Property _ Public Property OutletCountryCode() As Integer Get Return CType(Me(Me.tabletbl_IDS_Rechenwerte.OutletCountryCodeColumn),Integer) End Get Set Me(Me.tabletbl_IDS_Rechenwerte.OutletCountryCodeColumn) = value End Set End Property _ Public Property OutletCode() As Short Get Try Return CType(Me(Me.tabletbl_IDS_Rechenwerte.OutletCodeColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OutletCode in Tabelle tbl_IDS_Rechenwerte ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Rechenwerte.OutletCodeColumn) = value End Set End Property _ Public Property CustomerCode() As Integer Get Try Return CType(Me(Me.tabletbl_IDS_Rechenwerte.CustomerCodeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomerCode in Tabelle tbl_IDS_Rechenwerte ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Rechenwerte.CustomerCodeColumn) = value End Set End Property _ Public Property ProductTypeCode() As Short Get Return CType(Me(Me.tabletbl_IDS_Rechenwerte.ProductTypeCodeColumn),Short) End Get Set Me(Me.tabletbl_IDS_Rechenwerte.ProductTypeCodeColumn) = value End Set End Property _ Public Property Rechenwert() As Decimal Get Return CType(Me(Me.tabletbl_IDS_Rechenwerte.RechenwertColumn),Decimal) End Get Set Me(Me.tabletbl_IDS_Rechenwerte.RechenwertColumn) = value End Set End Property _ Public Property Kz() As String Get Return CType(Me(Me.tabletbl_IDS_Rechenwerte.KzColumn),String) End Get Set Me(Me.tabletbl_IDS_Rechenwerte.KzColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Try Return CType(Me(Me.tabletbl_IDS_Rechenwerte.ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitstempel in Tabelle tbl_IDS_Rechenwerte ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Rechenwerte.ZeitstempelColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletbl_IDS_Rechenwerte.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle tbl_IDS_Rechenwerte ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Rechenwerte.SachbearbeiterColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_IDS_Rechenwerte.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_IDS_Rechenwerte ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Rechenwerte.SSMA_TimeStampColumn) = value End Set End Property _ Public Property KategorieNr() As Short Get Try Return CType(Me(Me.tabletbl_IDS_Rechenwerte.KategorieNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KategorieNr in Tabelle tbl_IDS_Rechenwerte ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Rechenwerte.KategorieNrColumn) = value End Set End Property _ Public Property AdressenRow() As AdressenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbl_IDS_Rechenwerte$Adressentbl_IDS_Rechenwerte")),AdressenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tbl_IDS_Rechenwerte$Adressentbl_IDS_Rechenwerte")) End Set End Property _ Public Property tbl_IDS_LänderRow() As tbl_IDS_LänderRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbl_IDS_Rechenwerte$tbl_IDS_Ländertbl_IDS_Rechenwerte")),tbl_IDS_LänderRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tbl_IDS_Rechenwerte$tbl_IDS_Ländertbl_IDS_Rechenwerte")) End Set End Property _ Public Property tbl_IDS_ProdukteRow() As tbl_IDS_ProdukteRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbl_IDS_Rechenwerte$tbl_IDS_Produktetbl_IDS_Rechenwerte")),tbl_IDS_ProdukteRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tbl_IDS_Rechenwerte$tbl_IDS_Produktetbl_IDS_Rechenwerte")) End Set End Property _ Public Function IsOutletCodeNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Rechenwerte.OutletCodeColumn) End Function _ Public Sub SetOutletCodeNull() Me(Me.tabletbl_IDS_Rechenwerte.OutletCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomerCodeNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Rechenwerte.CustomerCodeColumn) End Function _ Public Sub SetCustomerCodeNull() Me(Me.tabletbl_IDS_Rechenwerte.CustomerCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Rechenwerte.ZeitstempelColumn) End Function _ Public Sub SetZeitstempelNull() Me(Me.tabletbl_IDS_Rechenwerte.ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Rechenwerte.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tabletbl_IDS_Rechenwerte.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Rechenwerte.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_IDS_Rechenwerte.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKategorieNrNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Rechenwerte.KategorieNrColumn) End Function _ Public Sub SetKategorieNrNull() Me(Me.tabletbl_IDS_Rechenwerte.KategorieNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_IDS_StationenRow Inherits Global.System.Data.DataRow Private tabletbl_IDS_Stationen As tbl_IDS_StationenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_IDS_Stationen = CType(Me.Table,tbl_IDS_StationenDataTable) End Sub _ Public Property OutletCountryCode() As Integer Get Return CType(Me(Me.tabletbl_IDS_Stationen.OutletCountryCodeColumn),Integer) End Get Set Me(Me.tabletbl_IDS_Stationen.OutletCountryCodeColumn) = value End Set End Property _ Public Property OutletCode() As Short Get Return CType(Me(Me.tabletbl_IDS_Stationen.OutletCodeColumn),Short) End Get Set Me(Me.tabletbl_IDS_Stationen.OutletCodeColumn) = value End Set End Property _ Public Property OutletName() As String Get Return CType(Me(Me.tabletbl_IDS_Stationen.OutletNameColumn),String) End Get Set Me(Me.tabletbl_IDS_Stationen.OutletNameColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_IDS_Stationen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_IDS_Stationen ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_IDS_Stationen.SSMA_TimeStampColumn) = value End Set End Property _ Public Property tbl_IDS_LänderRow() As tbl_IDS_LänderRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbl_IDS_Stationen$tbl_IDS_Ländertbl_IDS_Stationen")),tbl_IDS_LänderRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tbl_IDS_Stationen$tbl_IDS_Ländertbl_IDS_Stationen")) End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_IDS_Stationen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_IDS_Stationen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_Intrastat_AusfuhrRow Inherits Global.System.Data.DataRow Private tabletbl_Intrastat_Ausfuhr As tbl_Intrastat_AusfuhrDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_Intrastat_Ausfuhr = CType(Me.Table,tbl_Intrastat_AusfuhrDataTable) End Sub _ Public Property Mandant() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.MandantColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.NiederlassungColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.NiederlassungColumn) = value End Set End Property _ Public Property Bezugsnummer() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.BezugsnummerColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.BezugsnummerColumn) = value End Set End Property _ Public Property Positionsnummer() As Short Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.PositionsnummerColumn),Short) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.PositionsnummerColumn) = value End Set End Property _ Public Property Registrierkennzeichen() As String Get Try Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.RegistrierkennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Registrierkennzeichen in Tabelle tbl_Intrastat_Ausfuhr ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.RegistrierkennzeichenColumn) = value End Set End Property _ Public Property Dateierzeugungsdatum() As Date Get Try Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.DateierzeugungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dateierzeugungsdatum in Tabelle tbl_Intrastat_Ausfuhr ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.DateierzeugungsdatumColumn) = value End Set End Property _ Public Property Versendung() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.VersendungColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.VersendungColumn) = value End Set End Property _ Public Property Anmeldeform() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.AnmeldeformColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.AnmeldeformColumn) = value End Set End Property _ Public Property Anmeldemonat() As Short Get Try Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.AnmeldemonatColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anmeldemonat in Tabelle tbl_Intrastat_Ausfuhr ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.AnmeldemonatColumn) = value End Set End Property _ Public Property Anmeldejahr() As Short Get Try Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.AnmeldejahrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anmeldejahr in Tabelle tbl_Intrastat_Ausfuhr ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.AnmeldejahrColumn) = value End Set End Property _ Public Property Paginiernummer() As Integer Get Try Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.PaginiernummerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Paginiernummer in Tabelle tbl_Intrastat_Ausfuhr ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.PaginiernummerColumn) = value End Set End Property _ Public Property BundeslandFinanzamt() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.BundeslandFinanzamtColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.BundeslandFinanzamtColumn) = value End Set End Property _ Public Property Steuernummer() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.SteuernummerColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.SteuernummerColumn) = value End Set End Property _ Public Property Unterscheidungsnummer() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.UnterscheidungsnummerColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.UnterscheidungsnummerColumn) = value End Set End Property _ Public Property Bestimmungsland() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.BestimmungslandColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.BestimmungslandColumn) = value End Set End Property _ Public Property Ursprungsregion() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.UrsprungsregionColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.UrsprungsregionColumn) = value End Set End Property _ Public Property Geschäftsart() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.GeschäftsartColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.GeschäftsartColumn) = value End Set End Property _ Public Property Verkehrszweig() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.VerkehrszweigColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.VerkehrszweigColumn) = value End Set End Property _ Public Property Warennummer() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.WarennummerColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.WarennummerColumn) = value End Set End Property _ Public Property Eigenmasse() As Integer Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.EigenmasseColumn),Integer) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.EigenmasseColumn) = value End Set End Property _ Public Property BesondereMasseinheit() As Integer Get Try Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.BesondereMasseinheitColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BesondereMasseinheit in Tabelle tbl_Intrastat_Ausfuhr ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.BesondereMasseinheitColumn) = value End Set End Property _ Public Property Rechnungsbetrag() As Integer Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.RechnungsbetragColumn),Integer) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.RechnungsbetragColumn) = value End Set End Property _ Public Property StatistischerWert() As Integer Get Try Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.StatistischerWertColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StatistischerWert in Tabelle tbl_Intrastat_Ausfuhr ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.StatistischerWertColumn) = value End Set End Property _ Public Property Bezugszeitraum() As Date Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.BezugszeitraumColumn),Date) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.BezugszeitraumColumn) = value End Set End Property _ Public Property Warenbeschreibung() As String Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.WarenbeschreibungColumn),String) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.WarenbeschreibungColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.ZeitstempelColumn),Date) End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletbl_Intrastat_Ausfuhr.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tbl_Intrastat_Ausfuhr ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Intrastat_Ausfuhr.upsize_tsColumn) = value End Set End Property _ Public Function IsRegistrierkennzeichenNull() As Boolean Return Me.IsNull(Me.tabletbl_Intrastat_Ausfuhr.RegistrierkennzeichenColumn) End Function _ Public Sub SetRegistrierkennzeichenNull() Me(Me.tabletbl_Intrastat_Ausfuhr.RegistrierkennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateierzeugungsdatumNull() As Boolean Return Me.IsNull(Me.tabletbl_Intrastat_Ausfuhr.DateierzeugungsdatumColumn) End Function _ Public Sub SetDateierzeugungsdatumNull() Me(Me.tabletbl_Intrastat_Ausfuhr.DateierzeugungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnmeldemonatNull() As Boolean Return Me.IsNull(Me.tabletbl_Intrastat_Ausfuhr.AnmeldemonatColumn) End Function _ Public Sub SetAnmeldemonatNull() Me(Me.tabletbl_Intrastat_Ausfuhr.AnmeldemonatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnmeldejahrNull() As Boolean Return Me.IsNull(Me.tabletbl_Intrastat_Ausfuhr.AnmeldejahrColumn) End Function _ Public Sub SetAnmeldejahrNull() Me(Me.tabletbl_Intrastat_Ausfuhr.AnmeldejahrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPaginiernummerNull() As Boolean Return Me.IsNull(Me.tabletbl_Intrastat_Ausfuhr.PaginiernummerColumn) End Function _ Public Sub SetPaginiernummerNull() Me(Me.tabletbl_Intrastat_Ausfuhr.PaginiernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBesondereMasseinheitNull() As Boolean Return Me.IsNull(Me.tabletbl_Intrastat_Ausfuhr.BesondereMasseinheitColumn) End Function _ Public Sub SetBesondereMasseinheitNull() Me(Me.tabletbl_Intrastat_Ausfuhr.BesondereMasseinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStatistischerWertNull() As Boolean Return Me.IsNull(Me.tabletbl_Intrastat_Ausfuhr.StatistischerWertColumn) End Function _ Public Sub SetStatistischerWertNull() Me(Me.tabletbl_Intrastat_Ausfuhr.StatistischerWertColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletbl_Intrastat_Ausfuhr.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletbl_Intrastat_Ausfuhr.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_TelefonbuchRow Inherits Global.System.Data.DataRow Private tabletbl_Telefonbuch As tbl_TelefonbuchDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_Telefonbuch = CType(Me.Table,tbl_TelefonbuchDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tabletbl_Telefonbuch.IDColumn),Integer) End Get Set Me(Me.tabletbl_Telefonbuch.IDColumn) = value End Set End Property _ Public Property Kurzname() As String Get Return CType(Me(Me.tabletbl_Telefonbuch.KurznameColumn),String) End Get Set Me(Me.tabletbl_Telefonbuch.KurznameColumn) = value End Set End Property _ Public Property KundenNr() As Integer Get Try Return CType(Me(Me.tabletbl_Telefonbuch.KundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNr in Tabelle tbl_Telefonbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonbuch.KundenNrColumn) = value End Set End Property _ Public Property Name_1() As String Get Try Return CType(Me(Me.tabletbl_Telefonbuch.Name_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name 1 in Tabelle tbl_Telefonbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonbuch.Name_1Column) = value End Set End Property _ Public Property Name_2() As String Get Try Return CType(Me(Me.tabletbl_Telefonbuch.Name_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name 2 in Tabelle tbl_Telefonbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonbuch.Name_2Column) = value End Set End Property _ Public Property Name_3() As String Get Try Return CType(Me(Me.tabletbl_Telefonbuch.Name_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name 3 in Tabelle tbl_Telefonbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonbuch.Name_3Column) = value End Set End Property _ Public Property Straße() As String Get Try Return CType(Me(Me.tabletbl_Telefonbuch.StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Straße in Tabelle tbl_Telefonbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonbuch.StraßeColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tabletbl_Telefonbuch.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle tbl_Telefonbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonbuch.LandKzColumn) = value End Set End Property _ Public Property PLZ() As String Get Try Return CType(Me(Me.tabletbl_Telefonbuch.PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLZ in Tabelle tbl_Telefonbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonbuch.PLZColumn) = value End Set End Property _ Public Property Ort() As String Get Try Return CType(Me(Me.tabletbl_Telefonbuch.OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ort in Tabelle tbl_Telefonbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonbuch.OrtColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Try Return CType(Me(Me.tabletbl_Telefonbuch.ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitstempel in Tabelle tbl_Telefonbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonbuch.ZeitstempelColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_Telefonbuch.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_Telefonbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonbuch.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsKundenNrNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonbuch.KundenNrColumn) End Function _ Public Sub SetKundenNrNull() Me(Me.tabletbl_Telefonbuch.KundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsName_1Null() As Boolean Return Me.IsNull(Me.tabletbl_Telefonbuch.Name_1Column) End Function _ Public Sub SetName_1Null() Me(Me.tabletbl_Telefonbuch.Name_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsName_2Null() As Boolean Return Me.IsNull(Me.tabletbl_Telefonbuch.Name_2Column) End Function _ Public Sub SetName_2Null() Me(Me.tabletbl_Telefonbuch.Name_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsName_3Null() As Boolean Return Me.IsNull(Me.tabletbl_Telefonbuch.Name_3Column) End Function _ Public Sub SetName_3Null() Me(Me.tabletbl_Telefonbuch.Name_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsStraßeNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonbuch.StraßeColumn) End Function _ Public Sub SetStraßeNull() Me(Me.tabletbl_Telefonbuch.StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonbuch.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tabletbl_Telefonbuch.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPLZNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonbuch.PLZColumn) End Function _ Public Sub SetPLZNull() Me(Me.tabletbl_Telefonbuch.PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOrtNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonbuch.OrtColumn) End Function _ Public Sub SetOrtNull() Me(Me.tabletbl_Telefonbuch.OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonbuch.ZeitstempelColumn) End Function _ Public Sub SetZeitstempelNull() Me(Me.tabletbl_Telefonbuch.ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonbuch.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_Telefonbuch.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function Gettbl_TelefonnummernRows() As tbl_TelefonnummernRow() If (Me.Table.ChildRelations("tbl_Telefonnummern${225FED75-BA09-45E0-9A45-F3814507EBE0}") Is Nothing) Then Return New tbl_TelefonnummernRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbl_Telefonnummern${225FED75-BA09-45E0-9A45-F3814507EBE0}")),tbl_TelefonnummernRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_TelefonnummernRow Inherits Global.System.Data.DataRow Private tabletbl_Telefonnummern As tbl_TelefonnummernDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_Telefonnummern = CType(Me.Table,tbl_TelefonnummernDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tabletbl_Telefonnummern.IDColumn),Integer) End Get Set Me(Me.tabletbl_Telefonnummern.IDColumn) = value End Set End Property _ Public Property ID_tbl_Telefonbuch() As Integer Get Return CType(Me(Me.tabletbl_Telefonnummern.ID_tbl_TelefonbuchColumn),Integer) End Get Set Me(Me.tabletbl_Telefonnummern.ID_tbl_TelefonbuchColumn) = value End Set End Property _ Public Property BS() As Short Get Try Return CType(Me(Me.tabletbl_Telefonnummern.BSColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BS in Tabelle tbl_Telefonnummern ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonnummern.BSColumn) = value End Set End Property _ Public Property Kennung() As Short Get Return CType(Me(Me.tabletbl_Telefonnummern.KennungColumn),Short) End Get Set Me(Me.tabletbl_Telefonnummern.KennungColumn) = value End Set End Property _ Public Property Nummer() As String Get Return CType(Me(Me.tabletbl_Telefonnummern.NummerColumn),String) End Get Set Me(Me.tabletbl_Telefonnummern.NummerColumn) = value End Set End Property _ Public Property Abteilung() As String Get Try Return CType(Me(Me.tabletbl_Telefonnummern.AbteilungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abteilung in Tabelle tbl_Telefonnummern ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonnummern.AbteilungColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Try Return CType(Me(Me.tabletbl_Telefonnummern.ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitstempel in Tabelle tbl_Telefonnummern ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonnummern.ZeitstempelColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_Telefonnummern.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_Telefonnummern ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_Telefonnummern.SSMA_TimeStampColumn) = value End Set End Property _ Public Property tbl_TelefonbuchRow() As tbl_TelefonbuchRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbl_Telefonnummern${225FED75-BA09-45E0-9A45-F3814507EBE0}")),tbl_TelefonbuchRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tbl_Telefonnummern${225FED75-BA09-45E0-9A45-F3814507EBE0}")) End Set End Property _ Public Function IsBSNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonnummern.BSColumn) End Function _ Public Sub SetBSNull() Me(Me.tabletbl_Telefonnummern.BSColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbteilungNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonnummern.AbteilungColumn) End Function _ Public Sub SetAbteilungNull() Me(Me.tabletbl_Telefonnummern.AbteilungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonnummern.ZeitstempelColumn) End Function _ Public Sub SetZeitstempelNull() Me(Me.tabletbl_Telefonnummern.ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_Telefonnummern.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_Telefonnummern.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_WÖLFLRow Inherits Global.System.Data.DataRow Private tabletbl_WÖLFL As tbl_WÖLFLDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_WÖLFL = CType(Me.Table,tbl_WÖLFLDataTable) End Sub _ Public Property Produktcode() As Short Get Return CType(Me(Me.tabletbl_WÖLFL.ProduktcodeColumn),Short) End Get Set Me(Me.tabletbl_WÖLFL.ProduktcodeColumn) = value End Set End Property _ Public Property Bezeichnung() As String Get Return CType(Me(Me.tabletbl_WÖLFL.BezeichnungColumn),String) End Get Set Me(Me.tabletbl_WÖLFL.BezeichnungColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Return CType(Me(Me.tabletbl_WÖLFL.PreisColumn),Decimal) End Get Set Me(Me.tabletbl_WÖLFL.PreisColumn) = value End Set End Property _ Public Property Preiszuschlag() As Decimal Get Return CType(Me(Me.tabletbl_WÖLFL.PreiszuschlagColumn),Decimal) End Get Set Me(Me.tabletbl_WÖLFL.PreiszuschlagColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletbl_WÖLFL.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tbl_WÖLFL ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_WÖLFL.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletbl_WÖLFL.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletbl_WÖLFL.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_ZM_tabelleRow Inherits Global.System.Data.DataRow Private tabletbl_ZM_tabelle As tbl_ZM_tabelleDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_ZM_tabelle = CType(Me.Table,tbl_ZM_tabelleDataTable) End Sub _ Public Property knre1() As String Get Return CType(Me(Me.tabletbl_ZM_tabelle.knre1Column),String) End Get Set Me(Me.tabletbl_ZM_tabelle.knre1Column) = value End Set End Property _ Public Property knre2() As String Get Return CType(Me(Me.tabletbl_ZM_tabelle.knre2Column),String) End Get Set Me(Me.tabletbl_ZM_tabelle.knre2Column) = value End Set End Property _ Public Property betrag() As Integer Get Return CType(Me(Me.tabletbl_ZM_tabelle.betragColumn),Integer) End Get Set Me(Me.tabletbl_ZM_tabelle.betragColumn) = value End Set End Property _ Public Property zeile_m() As Short Get Return CType(Me(Me.tabletbl_ZM_tabelle.zeile_mColumn),Short) End Get Set Me(Me.tabletbl_ZM_tabelle.zeile_mColumn) = value End Set End Property _ Public Property umsatz_art() As Short Get Return CType(Me(Me.tabletbl_ZM_tabelle.umsatz_artColumn),Short) End Get Set Me(Me.tabletbl_ZM_tabelle.umsatz_artColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletbl_ZM_tabelle.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tbl_ZM_tabelle ist DBNull.", e) End Try End Get Set Me(Me.tabletbl_ZM_tabelle.upsize_tsColumn) = value End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletbl_ZM_tabelle.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletbl_ZM_tabelle.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblAbfertigungsartenFilialeRow Inherits Global.System.Data.DataRow Private tabletblAbfertigungsartenFiliale As tblAbfertigungsartenFilialeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblAbfertigungsartenFiliale = CType(Me.Table,tblAbfertigungsartenFilialeDataTable) End Sub _ Public Property FilialenNr() As Integer Get Return CType(Me(Me.tabletblAbfertigungsartenFiliale.FilialenNrColumn),Integer) End Get Set Me(Me.tabletblAbfertigungsartenFiliale.FilialenNrColumn) = value End Set End Property _ Public Property Abfertigungsart() As Integer Get Return CType(Me(Me.tabletblAbfertigungsartenFiliale.AbfertigungsartColumn),Integer) End Get Set Me(Me.tabletblAbfertigungsartenFiliale.AbfertigungsartColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblAbfertigungsartOffertenstammRow Inherits Global.System.Data.DataRow Private tabletblAbfertigungsartOffertenstamm As tblAbfertigungsartOffertenstammDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblAbfertigungsartOffertenstamm = CType(Me.Table,tblAbfertigungsartOffertenstammDataTable) End Sub _ Public Property ao_id() As Integer Get Return CType(Me(Me.tabletblAbfertigungsartOffertenstamm.ao_idColumn),Integer) End Get Set Me(Me.tabletblAbfertigungsartOffertenstamm.ao_idColumn) = value End Set End Property _ Public Property ao_Abfertigungsart() As Integer Get Return CType(Me(Me.tabletblAbfertigungsartOffertenstamm.ao_AbfertigungsartColumn),Integer) End Get Set Me(Me.tabletblAbfertigungsartOffertenstamm.ao_AbfertigungsartColumn) = value End Set End Property _ Public Property ao_OffertenNr() As Integer Get Return CType(Me(Me.tabletblAbfertigungsartOffertenstamm.ao_OffertenNrColumn),Integer) End Get Set Me(Me.tabletblAbfertigungsartOffertenstamm.ao_OffertenNrColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblAbrechnung_NCTSBrgRow Inherits Global.System.Data.DataRow Private tabletblAbrechnung_NCTSBrg As tblAbrechnung_NCTSBrgDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblAbrechnung_NCTSBrg = CType(Me.Table,tblAbrechnung_NCTSBrgDataTable) End Sub _ Public Property abrg_Id() As Integer Get Return CType(Me(Me.tabletblAbrechnung_NCTSBrg.abrg_IdColumn),Integer) End Get Set Me(Me.tabletblAbrechnung_NCTSBrg.abrg_IdColumn) = value End Set End Property _ Public Property abrg_Partner() As String Get Return CType(Me(Me.tabletblAbrechnung_NCTSBrg.abrg_PartnerColumn),String) End Get Set Me(Me.tabletblAbrechnung_NCTSBrg.abrg_PartnerColumn) = value End Set End Property _ Public Property abrg_artAbrechnung() As String Get Return CType(Me(Me.tabletblAbrechnung_NCTSBrg.abrg_artAbrechnungColumn),String) End Get Set Me(Me.tabletblAbrechnung_NCTSBrg.abrg_artAbrechnungColumn) = value End Set End Property _ Public Property abrg_GarantiewertBis() As Decimal Get Return CType(Me(Me.tabletblAbrechnung_NCTSBrg.abrg_GarantiewertBisColumn),Decimal) End Get Set Me(Me.tabletblAbrechnung_NCTSBrg.abrg_GarantiewertBisColumn) = value End Set End Property _ Public Property abrg_bertrag() As Decimal Get Return CType(Me(Me.tabletblAbrechnung_NCTSBrg.abrg_bertragColumn),Decimal) End Get Set Me(Me.tabletblAbrechnung_NCTSBrg.abrg_bertragColumn) = value End Set End Property _ Public Property abrg_prozent() As Decimal Get Try Return CType(Me(Me.tabletblAbrechnung_NCTSBrg.abrg_prozentColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte abrg_prozent in Tabelle tblAbrechnung_NCTSBrg ist DBNull.", e) End Try End Get Set Me(Me.tabletblAbrechnung_NCTSBrg.abrg_prozentColumn) = value End Set End Property _ Public Function Isabrg_prozentNull() As Boolean Return Me.IsNull(Me.tabletblAbrechnung_NCTSBrg.abrg_prozentColumn) End Function _ Public Sub Setabrg_prozentNull() Me(Me.tabletblAbrechnung_NCTSBrg.abrg_prozentColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblAnmeldungRow Inherits Global.System.Data.DataRow Private tabletblAnmeldung As tblAnmeldungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblAnmeldung = CType(Me.Table,tblAnmeldungDataTable) End Sub _ Public Property Computername() As String Get Return CType(Me(Me.tabletblAnmeldung.ComputernameColumn),String) End Get Set Me(Me.tabletblAnmeldung.ComputernameColumn) = value End Set End Property _ Public Property Benutzername() As String Get Return CType(Me(Me.tabletblAnmeldung.BenutzernameColumn),String) End Get Set Me(Me.tabletblAnmeldung.BenutzernameColumn) = value End Set End Property _ Public Property Mandant() As String Get Try Return CType(Me(Me.tabletblAnmeldung.MandantColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant in Tabelle tblAnmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblAnmeldung.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Try Return CType(Me(Me.tabletblAnmeldung.NiederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Niederlassung in Tabelle tblAnmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblAnmeldung.NiederlassungColumn) = value End Set End Property _ Public Property Login() As Date Get Try Return CType(Me(Me.tabletblAnmeldung.LoginColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Login in Tabelle tblAnmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblAnmeldung.LoginColumn) = value End Set End Property _ Public Property Logout() As Date Get Try Return CType(Me(Me.tabletblAnmeldung.LogoutColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Logout in Tabelle tblAnmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblAnmeldung.LogoutColumn) = value End Set End Property _ Public Property Programmversion() As String Get Try Return CType(Me(Me.tabletblAnmeldung.ProgrammversionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Programmversion in Tabelle tblAnmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblAnmeldung.ProgrammversionColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblAnmeldung.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblAnmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblAnmeldung.upsize_tsColumn) = value End Set End Property _ Public Function IsMandantNull() As Boolean Return Me.IsNull(Me.tabletblAnmeldung.MandantColumn) End Function _ Public Sub SetMandantNull() Me(Me.tabletblAnmeldung.MandantColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNiederlassungNull() As Boolean Return Me.IsNull(Me.tabletblAnmeldung.NiederlassungColumn) End Function _ Public Sub SetNiederlassungNull() Me(Me.tabletblAnmeldung.NiederlassungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLoginNull() As Boolean Return Me.IsNull(Me.tabletblAnmeldung.LoginColumn) End Function _ Public Sub SetLoginNull() Me(Me.tabletblAnmeldung.LoginColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLogoutNull() As Boolean Return Me.IsNull(Me.tabletblAnmeldung.LogoutColumn) End Function _ Public Sub SetLogoutNull() Me(Me.tabletblAnmeldung.LogoutColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsProgrammversionNull() As Boolean Return Me.IsNull(Me.tabletblAnmeldung.ProgrammversionColumn) End Function _ Public Sub SetProgrammversionNull() Me(Me.tabletblAnmeldung.ProgrammversionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblAnmeldung.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblAnmeldung.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblBerichtsdruckerRows() As tblBerichtsdruckerRow() If (Me.Table.ChildRelations("tblBerichtsdrucker_FK00") Is Nothing) Then Return New tblBerichtsdruckerRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblBerichtsdrucker_FK00")),tblBerichtsdruckerRow()) End If End Function _ Public Function GettblFormulardatenRows() As tblFormulardatenRow() If (Me.Table.ChildRelations("tblFormulardaten_FK00") Is Nothing) Then Return New tblFormulardatenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblFormulardaten_FK00")),tblFormulardatenRow()) End If End Function _ Public Function GettblHistorieRows() As tblHistorieRow() If (Me.Table.ChildRelations("tblHistorie_FK00") Is Nothing) Then Return New tblHistorieRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblHistorie_FK00")),tblHistorieRow()) End If End Function _ Public Function GettblLogbuchRows() As tblLogbuchRow() If (Me.Table.ChildRelations("tblLogbuch_FK00") Is Nothing) Then Return New tblLogbuchRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblLogbuch_FK00")),tblLogbuchRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblAsfinagMautRow Inherits Global.System.Data.DataRow Private tabletblAsfinagMaut As tblAsfinagMautDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblAsfinagMaut = CType(Me.Table,tblAsfinagMautDataTable) End Sub _ Public Property cardnumber() As String Get Return CType(Me(Me.tabletblAsfinagMaut.cardnumberColumn),String) End Get Set Me(Me.tabletblAsfinagMaut.cardnumberColumn) = value End Set End Property _ Public Property licenceplate() As String Get Return CType(Me(Me.tabletblAsfinagMaut.licenceplateColumn),String) End Get Set Me(Me.tabletblAsfinagMaut.licenceplateColumn) = value End Set End Property _ Public Property turnoverdate() As Date Get Return CType(Me(Me.tabletblAsfinagMaut.turnoverdateColumn),Date) End Get Set Me(Me.tabletblAsfinagMaut.turnoverdateColumn) = value End Set End Property _ Public Property contractPartner() As String Get Return CType(Me(Me.tabletblAsfinagMaut.contractPartnerColumn),String) End Get Set Me(Me.tabletblAsfinagMaut.contractPartnerColumn) = value End Set End Property _ Public Property netAmount() As Decimal Get Return CType(Me(Me.tabletblAsfinagMaut.netAmountColumn),Decimal) End Get Set Me(Me.tabletblAsfinagMaut.netAmountColumn) = value End Set End Property _ Public Property VATamount() As Decimal Get Return CType(Me(Me.tabletblAsfinagMaut.VATamountColumn),Decimal) End Get Set Me(Me.tabletblAsfinagMaut.VATamountColumn) = value End Set End Property _ Public Property totalAmount() As Decimal Get Return CType(Me(Me.tabletblAsfinagMaut.totalAmountColumn),Decimal) End Get Set Me(Me.tabletblAsfinagMaut.totalAmountColumn) = value End Set End Property _ Public Property additionalData() As String Get Try Return CType(Me(Me.tabletblAsfinagMaut.additionalDataColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte additionalData in Tabelle tblAsfinagMaut ist DBNull.", e) End Try End Get Set Me(Me.tabletblAsfinagMaut.additionalDataColumn) = value End Set End Property _ Public Property receiptnumber() As String Get Try Return CType(Me(Me.tabletblAsfinagMaut.receiptnumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte receiptnumber in Tabelle tblAsfinagMaut ist DBNull.", e) End Try End Get Set Me(Me.tabletblAsfinagMaut.receiptnumberColumn) = value End Set End Property _ Public Property receiptCreated() As Boolean Get Return CType(Me(Me.tabletblAsfinagMaut.receiptCreatedColumn),Boolean) End Get Set Me(Me.tabletblAsfinagMaut.receiptCreatedColumn) = value End Set End Property _ Public Function IsadditionalDataNull() As Boolean Return Me.IsNull(Me.tabletblAsfinagMaut.additionalDataColumn) End Function _ Public Sub SetadditionalDataNull() Me(Me.tabletblAsfinagMaut.additionalDataColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsreceiptnumberNull() As Boolean Return Me.IsNull(Me.tabletblAsfinagMaut.receiptnumberColumn) End Function _ Public Sub SetreceiptnumberNull() Me(Me.tabletblAsfinagMaut.receiptnumberColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblATEZ_NCTSRow Inherits Global.System.Data.DataRow Private tabletblATEZ_NCTS As tblATEZ_NCTSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblATEZ_NCTS = CType(Me.Table,tblATEZ_NCTSDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblATEZ_NCTS.IdColumn),Integer) End Get Set Me(Me.tabletblATEZ_NCTS.IdColumn) = value End Set End Property _ Public Property AvisoId() As Integer Get Try Return CType(Me(Me.tabletblATEZ_NCTS.AvisoIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisoId in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.AvisoIdColumn) = value End Set End Property _ Public Property SendungsId() As Integer Get Try Return CType(Me(Me.tabletblATEZ_NCTS.SendungsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SendungsId in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.SendungsIdColumn) = value End Set End Property _ Public Property VERAG_LRN() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.VERAG_LRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VERAG_LRN in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.VERAG_LRNColumn) = value End Set End Property _ Public Property LicensePlateContainerNo() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.LicensePlateContainerNoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LicensePlateContainerNo in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.LicensePlateContainerNoColumn) = value End Set End Property _ Public Property DAKOSY_TemplateCode() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.DAKOSY_TemplateCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DAKOSY_TemplateCode in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.DAKOSY_TemplateCodeColumn) = value End Set End Property _ Public Property DAKOSY_IOPartner() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.DAKOSY_IOPartnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DAKOSY_IOPartner in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.DAKOSY_IOPartnerColumn) = value End Set End Property _ Public Property DAKOSY_Division1() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.DAKOSY_Division1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DAKOSY_Division1 in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.DAKOSY_Division1Column) = value End Set End Property _ Public Property DAKOSY_Division2() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.DAKOSY_Division2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DAKOSY_Division2 in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.DAKOSY_Division2Column) = value End Set End Property _ Public Property DAKOSY_Division3() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.DAKOSY_Division3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DAKOSY_Division3 in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.DAKOSY_Division3Column) = value End Set End Property _ Public Property DAKOSY_Procedure() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.DAKOSY_ProcedureColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DAKOSY_Procedure in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.DAKOSY_ProcedureColumn) = value End Set End Property _ Public Property DepartureCustomsOffice() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.DepartureCustomsOfficeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DepartureCustomsOffice in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.DepartureCustomsOfficeColumn) = value End Set End Property _ Public Property DestinationCustomsOffice() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.DestinationCustomsOfficeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DestinationCustomsOffice in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.DestinationCustomsOfficeColumn) = value End Set End Property _ Public Property DatDeterminationLimit() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.DatDeterminationLimitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DatDeterminationLimit in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.DatDeterminationLimitColumn) = value End Set End Property _ Public Property CoolingTemperature() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.CoolingTemperatureColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CoolingTemperature in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.CoolingTemperatureColumn) = value End Set End Property _ Public Property Carrier_Name() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.Carrier_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Carrier_Name in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.Carrier_NameColumn) = value End Set End Property _ Public Property Carrier_Adress_Country() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.Carrier_Adress_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Carrier_Adress_Country in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.Carrier_Adress_CountryColumn) = value End Set End Property _ Public Property Carrier_Adress_Postcode() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.Carrier_Adress_PostcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Carrier_Adress_Postcode in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.Carrier_Adress_PostcodeColumn) = value End Set End Property _ Public Property Carrier_Adress_City() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.Carrier_Adress_CityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Carrier_Adress_City in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.Carrier_Adress_CityColumn) = value End Set End Property _ Public Property Carrier_Adress_Street() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.Carrier_Adress_StreetColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Carrier_Adress_Street in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.Carrier_Adress_StreetColumn) = value End Set End Property _ Public Property Carrier_EORI() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.Carrier_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Carrier_EORI in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.Carrier_EORIColumn) = value End Set End Property _ Public Property Guarantee_GRN() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.Guarantee_GRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Guarantee_GRN in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.Guarantee_GRNColumn) = value End Set End Property _ Public Property Status() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.StatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.StatusColumn) = value End Set End Property _ Public Property erstellung() As Date Get Return CType(Me(Me.tabletblATEZ_NCTS.erstellungColumn),Date) End Get Set Me(Me.tabletblATEZ_NCTS.erstellungColumn) = value End Set End Property _ Public Property atezId() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.atezIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atezId in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.atezIdColumn) = value End Set End Property _ Public Property dakosy_ref() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.dakosy_refColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dakosy_ref in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.dakosy_refColumn) = value End Set End Property _ Public Property selectedDocuments() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.selectedDocumentsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte selectedDocuments in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.selectedDocumentsColumn) = value End Set End Property _ Public Property json() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.jsonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte json in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.jsonColumn) = value End Set End Property _ Public Property fehlerbeschreibung() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS.fehlerbeschreibungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fehlerbeschreibung in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.fehlerbeschreibungColumn) = value End Set End Property _ Public Property erstellerId() As Integer Get Try Return CType(Me(Me.tabletblATEZ_NCTS.erstellerIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte erstellerId in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.erstellerIdColumn) = value End Set End Property _ Public Property sessionId() As Integer Get Try Return CType(Me(Me.tabletblATEZ_NCTS.sessionIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sessionId in Tabelle tblATEZ_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS.sessionIdColumn) = value End Set End Property _ Public Function IsAvisoIdNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.AvisoIdColumn) End Function _ Public Sub SetAvisoIdNull() Me(Me.tabletblATEZ_NCTS.AvisoIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSendungsIdNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.SendungsIdColumn) End Function _ Public Sub SetSendungsIdNull() Me(Me.tabletblATEZ_NCTS.SendungsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVERAG_LRNNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.VERAG_LRNColumn) End Function _ Public Sub SetVERAG_LRNNull() Me(Me.tabletblATEZ_NCTS.VERAG_LRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLicensePlateContainerNoNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.LicensePlateContainerNoColumn) End Function _ Public Sub SetLicensePlateContainerNoNull() Me(Me.tabletblATEZ_NCTS.LicensePlateContainerNoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDAKOSY_TemplateCodeNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.DAKOSY_TemplateCodeColumn) End Function _ Public Sub SetDAKOSY_TemplateCodeNull() Me(Me.tabletblATEZ_NCTS.DAKOSY_TemplateCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDAKOSY_IOPartnerNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.DAKOSY_IOPartnerColumn) End Function _ Public Sub SetDAKOSY_IOPartnerNull() Me(Me.tabletblATEZ_NCTS.DAKOSY_IOPartnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDAKOSY_Division1Null() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.DAKOSY_Division1Column) End Function _ Public Sub SetDAKOSY_Division1Null() Me(Me.tabletblATEZ_NCTS.DAKOSY_Division1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsDAKOSY_Division2Null() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.DAKOSY_Division2Column) End Function _ Public Sub SetDAKOSY_Division2Null() Me(Me.tabletblATEZ_NCTS.DAKOSY_Division2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsDAKOSY_Division3Null() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.DAKOSY_Division3Column) End Function _ Public Sub SetDAKOSY_Division3Null() Me(Me.tabletblATEZ_NCTS.DAKOSY_Division3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsDAKOSY_ProcedureNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.DAKOSY_ProcedureColumn) End Function _ Public Sub SetDAKOSY_ProcedureNull() Me(Me.tabletblATEZ_NCTS.DAKOSY_ProcedureColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDepartureCustomsOfficeNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.DepartureCustomsOfficeColumn) End Function _ Public Sub SetDepartureCustomsOfficeNull() Me(Me.tabletblATEZ_NCTS.DepartureCustomsOfficeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDestinationCustomsOfficeNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.DestinationCustomsOfficeColumn) End Function _ Public Sub SetDestinationCustomsOfficeNull() Me(Me.tabletblATEZ_NCTS.DestinationCustomsOfficeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatDeterminationLimitNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.DatDeterminationLimitColumn) End Function _ Public Sub SetDatDeterminationLimitNull() Me(Me.tabletblATEZ_NCTS.DatDeterminationLimitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCoolingTemperatureNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.CoolingTemperatureColumn) End Function _ Public Sub SetCoolingTemperatureNull() Me(Me.tabletblATEZ_NCTS.CoolingTemperatureColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCarrier_NameNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.Carrier_NameColumn) End Function _ Public Sub SetCarrier_NameNull() Me(Me.tabletblATEZ_NCTS.Carrier_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCarrier_Adress_CountryNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.Carrier_Adress_CountryColumn) End Function _ Public Sub SetCarrier_Adress_CountryNull() Me(Me.tabletblATEZ_NCTS.Carrier_Adress_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCarrier_Adress_PostcodeNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.Carrier_Adress_PostcodeColumn) End Function _ Public Sub SetCarrier_Adress_PostcodeNull() Me(Me.tabletblATEZ_NCTS.Carrier_Adress_PostcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCarrier_Adress_CityNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.Carrier_Adress_CityColumn) End Function _ Public Sub SetCarrier_Adress_CityNull() Me(Me.tabletblATEZ_NCTS.Carrier_Adress_CityColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCarrier_Adress_StreetNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.Carrier_Adress_StreetColumn) End Function _ Public Sub SetCarrier_Adress_StreetNull() Me(Me.tabletblATEZ_NCTS.Carrier_Adress_StreetColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCarrier_EORINull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.Carrier_EORIColumn) End Function _ Public Sub SetCarrier_EORINull() Me(Me.tabletblATEZ_NCTS.Carrier_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGuarantee_GRNNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.Guarantee_GRNColumn) End Function _ Public Sub SetGuarantee_GRNNull() Me(Me.tabletblATEZ_NCTS.Guarantee_GRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tabletblATEZ_NCTS.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsatezIdNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.atezIdColumn) End Function _ Public Sub SetatezIdNull() Me(Me.tabletblATEZ_NCTS.atezIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdakosy_refNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.dakosy_refColumn) End Function _ Public Sub Setdakosy_refNull() Me(Me.tabletblATEZ_NCTS.dakosy_refColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsselectedDocumentsNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.selectedDocumentsColumn) End Function _ Public Sub SetselectedDocumentsNull() Me(Me.tabletblATEZ_NCTS.selectedDocumentsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsjsonNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.jsonColumn) End Function _ Public Sub SetjsonNull() Me(Me.tabletblATEZ_NCTS.jsonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsfehlerbeschreibungNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.fehlerbeschreibungColumn) End Function _ Public Sub SetfehlerbeschreibungNull() Me(Me.tabletblATEZ_NCTS.fehlerbeschreibungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IserstellerIdNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.erstellerIdColumn) End Function _ Public Sub SeterstellerIdNull() Me(Me.tabletblATEZ_NCTS.erstellerIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IssessionIdNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS.sessionIdColumn) End Function _ Public Sub SetsessionIdNull() Me(Me.tabletblATEZ_NCTS.sessionIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblATEZ_NCTS_RoutenRows() As tblATEZ_NCTS_RoutenRow() If (Me.Table.ChildRelations("FK_tblATEZ_NCTS_Routen_TotblATEZNCTS") Is Nothing) Then Return New tblATEZ_NCTS_RoutenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_tblATEZ_NCTS_Routen_TotblATEZNCTS")),tblATEZ_NCTS_RoutenRow()) End If End Function _ Public Function GettblATEZ_NCTS_TransitCustomsOfficeRows() As tblATEZ_NCTS_TransitCustomsOfficeRow() If (Me.Table.ChildRelations("FK_tblATEZ_NCTS_TransitCustomsOffice") Is Nothing) Then Return New tblATEZ_NCTS_TransitCustomsOfficeRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_tblATEZ_NCTS_TransitCustomsOffice")),tblATEZ_NCTS_TransitCustomsOfficeRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblATEZ_NCTS_RoutenRow Inherits Global.System.Data.DataRow Private tabletblATEZ_NCTS_Routen As tblATEZ_NCTS_RoutenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblATEZ_NCTS_Routen = CType(Me.Table,tblATEZ_NCTS_RoutenDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblATEZ_NCTS_Routen.IdColumn),Integer) End Get Set Me(Me.tabletblATEZ_NCTS_Routen.IdColumn) = value End Set End Property _ Public Property AtezNCTS_Id() As Integer Get Try Return CType(Me(Me.tabletblATEZ_NCTS_Routen.AtezNCTS_IdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AtezNCTS_Id in Tabelle tblATEZ_NCTS_Routen ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS_Routen.AtezNCTS_IdColumn) = value End Set End Property _ Public Property Route_Country() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS_Routen.Route_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Route_Country in Tabelle tblATEZ_NCTS_Routen ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS_Routen.Route_CountryColumn) = value End Set End Property _ Public Property tblATEZ_NCTSRow() As tblATEZ_NCTSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_tblATEZ_NCTS_Routen_TotblATEZNCTS")),tblATEZ_NCTSRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_tblATEZ_NCTS_Routen_TotblATEZNCTS")) End Set End Property _ Public Function IsAtezNCTS_IdNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS_Routen.AtezNCTS_IdColumn) End Function _ Public Sub SetAtezNCTS_IdNull() Me(Me.tabletblATEZ_NCTS_Routen.AtezNCTS_IdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRoute_CountryNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS_Routen.Route_CountryColumn) End Function _ Public Sub SetRoute_CountryNull() Me(Me.tabletblATEZ_NCTS_Routen.Route_CountryColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblATEZ_NCTS_SessionsRow Inherits Global.System.Data.DataRow Private tabletblATEZ_NCTS_Sessions As tblATEZ_NCTS_SessionsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblATEZ_NCTS_Sessions = CType(Me.Table,tblATEZ_NCTS_SessionsDataTable) End Sub _ Public Property session_Id() As Integer Get Return CType(Me(Me.tabletblATEZ_NCTS_Sessions.session_IdColumn),Integer) End Get Set Me(Me.tabletblATEZ_NCTS_Sessions.session_IdColumn) = value End Set End Property _ Public Property token() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS_Sessions.tokenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte token in Tabelle tblATEZ_NCTS_Sessions ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS_Sessions.tokenColumn) = value End Set End Property _ Public Property datetime() As Date Get Return CType(Me(Me.tabletblATEZ_NCTS_Sessions.datetimeColumn),Date) End Get Set Me(Me.tabletblATEZ_NCTS_Sessions.datetimeColumn) = value End Set End Property _ Public Property refresh_token() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS_Sessions.refresh_tokenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte refresh_token in Tabelle tblATEZ_NCTS_Sessions ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS_Sessions.refresh_tokenColumn) = value End Set End Property _ Public Property token_validuntil() As Date Get Try Return CType(Me(Me.tabletblATEZ_NCTS_Sessions.token_validuntilColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte token_validuntil in Tabelle tblATEZ_NCTS_Sessions ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS_Sessions.token_validuntilColumn) = value End Set End Property _ Public Function IstokenNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS_Sessions.tokenColumn) End Function _ Public Sub SettokenNull() Me(Me.tabletblATEZ_NCTS_Sessions.tokenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrefresh_tokenNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS_Sessions.refresh_tokenColumn) End Function _ Public Sub Setrefresh_tokenNull() Me(Me.tabletblATEZ_NCTS_Sessions.refresh_tokenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istoken_validuntilNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS_Sessions.token_validuntilColumn) End Function _ Public Sub Settoken_validuntilNull() Me(Me.tabletblATEZ_NCTS_Sessions.token_validuntilColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblATEZ_NCTS_TransitCustomsOfficeRow Inherits Global.System.Data.DataRow Private tabletblATEZ_NCTS_TransitCustomsOffice As tblATEZ_NCTS_TransitCustomsOfficeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblATEZ_NCTS_TransitCustomsOffice = CType(Me.Table,tblATEZ_NCTS_TransitCustomsOfficeDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblATEZ_NCTS_TransitCustomsOffice.IdColumn),Integer) End Get Set Me(Me.tabletblATEZ_NCTS_TransitCustomsOffice.IdColumn) = value End Set End Property _ Public Property AtezNCTS_Id() As Integer Get Try Return CType(Me(Me.tabletblATEZ_NCTS_TransitCustomsOffice.AtezNCTS_IdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AtezNCTS_Id in Tabelle tblATEZ_NCTS_TransitCustomsOffice ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS_TransitCustomsOffice.AtezNCTS_IdColumn) = value End Set End Property _ Public Property TransitCustomsOffice() As String Get Try Return CType(Me(Me.tabletblATEZ_NCTS_TransitCustomsOffice.TransitCustomsOfficeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TransitCustomsOffice in Tabelle tblATEZ_NCTS_TransitCustomsOf"& _ "fice ist DBNull.", e) End Try End Get Set Me(Me.tabletblATEZ_NCTS_TransitCustomsOffice.TransitCustomsOfficeColumn) = value End Set End Property _ Public Property tblATEZ_NCTSRow() As tblATEZ_NCTSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_tblATEZ_NCTS_TransitCustomsOffice")),tblATEZ_NCTSRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_tblATEZ_NCTS_TransitCustomsOffice")) End Set End Property _ Public Function IsAtezNCTS_IdNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS_TransitCustomsOffice.AtezNCTS_IdColumn) End Function _ Public Sub SetAtezNCTS_IdNull() Me(Me.tabletblATEZ_NCTS_TransitCustomsOffice.AtezNCTS_IdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransitCustomsOfficeNull() As Boolean Return Me.IsNull(Me.tabletblATEZ_NCTS_TransitCustomsOffice.TransitCustomsOfficeColumn) End Function _ Public Sub SetTransitCustomsOfficeNull() Me(Me.tabletblATEZ_NCTS_TransitCustomsOffice.TransitCustomsOfficeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblBankspesenRow Inherits Global.System.Data.DataRow Private tabletblBankspesen As tblBankspesenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblBankspesen = CType(Me.Table,tblBankspesenDataTable) End Sub _ Public Property KundenNrVon() As Integer Get Return CType(Me(Me.tabletblBankspesen.KundenNrVonColumn),Integer) End Get Set Me(Me.tabletblBankspesen.KundenNrVonColumn) = value End Set End Property _ Public Property KundenNrBis() As Integer Get Return CType(Me(Me.tabletblBankspesen.KundenNrBisColumn),Integer) End Get Set Me(Me.tabletblBankspesen.KundenNrBisColumn) = value End Set End Property _ Public Property _Bankspesen__() As Single Get Return CType(Me(Me.tabletblBankspesen._Bankspesen__Column),Single) End Get Set Me(Me.tabletblBankspesen._Bankspesen__Column) = value End Set End Property _ Public Property Bankspesen_Mindestbetrag() As Decimal Get Return CType(Me(Me.tabletblBankspesen.Bankspesen_MindestbetragColumn),Decimal) End Get Set Me(Me.tabletblBankspesen.Bankspesen_MindestbetragColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblBerechnungsmethodeRow Inherits Global.System.Data.DataRow Private tabletblBerechnungsmethode As tblBerechnungsmethodeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblBerechnungsmethode = CType(Me.Table,tblBerechnungsmethodeDataTable) End Sub _ Public Property Nr() As Integer Get Return CType(Me(Me.tabletblBerechnungsmethode.NrColumn),Integer) End Get Set Me(Me.tabletblBerechnungsmethode.NrColumn) = value End Set End Property _ Public Property Bez() As String Get Return CType(Me(Me.tabletblBerechnungsmethode.BezColumn),String) End Get Set Me(Me.tabletblBerechnungsmethode.BezColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblBerechnungsmethode.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblBerechnungsmethode ist DBNull.", e) End Try End Get Set Me(Me.tabletblBerechnungsmethode.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblBerechnungsmethode.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblBerechnungsmethode.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblSteuersätzeRows() As tblSteuersätzeRow() If (Me.Table.ChildRelations("tblSteuersätze${BC888FF9-57C1-4308-AE4D-435AEB9FE6A5}") Is Nothing) Then Return New tblSteuersätzeRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblSteuersätze${BC888FF9-57C1-4308-AE4D-435AEB9FE6A5}")),tblSteuersätzeRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblBerichtsdruckerRow Inherits Global.System.Data.DataRow Private tabletblBerichtsdrucker As tblBerichtsdruckerDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblBerichtsdrucker = CType(Me.Table,tblBerichtsdruckerDataTable) End Sub _ Public Property Computername() As String Get Return CType(Me(Me.tabletblBerichtsdrucker.ComputernameColumn),String) End Get Set Me(Me.tabletblBerichtsdrucker.ComputernameColumn) = value End Set End Property _ Public Property Benutzername() As String Get Return CType(Me(Me.tabletblBerichtsdrucker.BenutzernameColumn),String) End Get Set Me(Me.tabletblBerichtsdrucker.BenutzernameColumn) = value End Set End Property _ Public Property Berichtsname() As String Get Return CType(Me(Me.tabletblBerichtsdrucker.BerichtsnameColumn),String) End Get Set Me(Me.tabletblBerichtsdrucker.BerichtsnameColumn) = value End Set End Property _ Public Property Druckername() As String Get Return CType(Me(Me.tabletblBerichtsdrucker.DruckernameColumn),String) End Get Set Me(Me.tabletblBerichtsdrucker.DruckernameColumn) = value End Set End Property _ Public Property RandOben() As Integer Get Return CType(Me(Me.tabletblBerichtsdrucker.RandObenColumn),Integer) End Get Set Me(Me.tabletblBerichtsdrucker.RandObenColumn) = value End Set End Property _ Public Property RandUnten() As Integer Get Return CType(Me(Me.tabletblBerichtsdrucker.RandUntenColumn),Integer) End Get Set Me(Me.tabletblBerichtsdrucker.RandUntenColumn) = value End Set End Property _ Public Property RandLinks() As Integer Get Return CType(Me(Me.tabletblBerichtsdrucker.RandLinksColumn),Integer) End Get Set Me(Me.tabletblBerichtsdrucker.RandLinksColumn) = value End Set End Property _ Public Property RandRechts() As Integer Get Return CType(Me(Me.tabletblBerichtsdrucker.RandRechtsColumn),Integer) End Get Set Me(Me.tabletblBerichtsdrucker.RandRechtsColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblBerichtsdrucker.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblBerichtsdrucker ist DBNull.", e) End Try End Get Set Me(Me.tabletblBerichtsdrucker.upsize_tsColumn) = value End Set End Property _ Public Property tblAnmeldungRowParent() As tblAnmeldungRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblBerichtsdrucker_FK00")),tblAnmeldungRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblBerichtsdrucker_FK00")) End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblBerichtsdrucker.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblBerichtsdrucker.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblBesuchsberichteRow Inherits Global.System.Data.DataRow Private tabletblBesuchsberichte As tblBesuchsberichteDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblBesuchsberichte = CType(Me.Table,tblBesuchsberichteDataTable) End Sub _ Public Property bb_Id() As Integer Get Return CType(Me(Me.tabletblBesuchsberichte.bb_IdColumn),Integer) End Get Set Me(Me.tabletblBesuchsberichte.bb_IdColumn) = value End Set End Property _ Public Property bb_Firma() As String Get Return CType(Me(Me.tabletblBesuchsberichte.bb_FirmaColumn),String) End Get Set Me(Me.tabletblBesuchsberichte.bb_FirmaColumn) = value End Set End Property _ Public Property bb_DatumErfassung() As Date Get Return CType(Me(Me.tabletblBesuchsberichte.bb_DatumErfassungColumn),Date) End Get Set Me(Me.tabletblBesuchsberichte.bb_DatumErfassungColumn) = value End Set End Property _ Public Property bb_DatumBesuch() As Date Get Return CType(Me(Me.tabletblBesuchsberichte.bb_DatumBesuchColumn),Date) End Get Set Me(Me.tabletblBesuchsberichte.bb_DatumBesuchColumn) = value End Set End Property _ Public Property bb_Sachbearbeiter() As String Get Return CType(Me(Me.tabletblBesuchsberichte.bb_SachbearbeiterColumn),String) End Get Set Me(Me.tabletblBesuchsberichte.bb_SachbearbeiterColumn) = value End Set End Property _ Public Property bb_SachbearbeiterId() As Integer Get Return CType(Me(Me.tabletblBesuchsberichte.bb_SachbearbeiterIdColumn),Integer) End Get Set Me(Me.tabletblBesuchsberichte.bb_SachbearbeiterIdColumn) = value End Set End Property _ Public Property bb_Teilnehmer() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_TeilnehmerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Teilnehmer in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_TeilnehmerColumn) = value End Set End Property _ Public Property bb_Kontaktart() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_KontaktartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Kontaktart in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_KontaktartColumn) = value End Set End Property _ Public Property bb_Kunde() As String Get Return CType(Me(Me.tabletblBesuchsberichte.bb_KundeColumn),String) End Get Set Me(Me.tabletblBesuchsberichte.bb_KundeColumn) = value End Set End Property _ Public Property bb_KundenNr() As Integer Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_KundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_KundenNr in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_KundenNrColumn) = value End Set End Property _ Public Property bb_Geschaeftsfuehrer() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_GeschaeftsfuehrerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Geschaeftsfuehrer in Tabelle tblBesuchsberichte ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_GeschaeftsfuehrerColumn) = value End Set End Property _ Public Property bb_Umsatz() As Decimal Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_UmsatzColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Umsatz in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_UmsatzColumn) = value End Set End Property _ Public Property bb_Anpsprechpartner() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_AnpsprechpartnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Anpsprechpartner in Tabelle tblBesuchsberichte ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_AnpsprechpartnerColumn) = value End Set End Property _ Public Property bb_Telefon() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_TelefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Telefon in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_TelefonColumn) = value End Set End Property _ Public Property bb_Mail() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_MailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Mail in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_MailColumn) = value End Set End Property _ Public Property bb_FuhrparkEigentum() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_FuhrparkEigentumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_FuhrparkEigentum in Tabelle tblBesuchsberichte ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_FuhrparkEigentumColumn) = value End Set End Property _ Public Property bb_FuhrparkLeasing() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_FuhrparkLeasingColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_FuhrparkLeasing in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_FuhrparkLeasingColumn) = value End Set End Property _ Public Property bb_LKW_Plane() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_LKW_PlaneColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_LKW_PlaneColumn) = value End Set End Property _ Public Property bb_LKW_Kuehltranporte() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_LKW_KuehltranporteColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_LKW_KuehltranporteColumn) = value End Set End Property _ Public Property bb_LKW_Sondertransporte() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_LKW_SondertransporteColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_LKW_SondertransporteColumn) = value End Set End Property _ Public Property bb_LKW_Sprinter() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_LKW_SprinterColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_LKW_SprinterColumn) = value End Set End Property _ Public Property bb_LKW_SiloTank() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_LKW_SiloTankColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_LKW_SiloTankColumn) = value End Set End Property _ Public Property bb_Auftraggeber() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_AuftraggeberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Auftraggeber in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_AuftraggeberColumn) = value End Set End Property _ Public Property bb_Route() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_RouteColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Route in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_RouteColumn) = value End Set End Property _ Public Property bb_DerzeitigerLieferant() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_DerzeitigerLieferantColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_DerzeitigerLieferant in Tabelle tblBesuchsberichte ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_DerzeitigerLieferantColumn) = value End Set End Property _ Public Property bb_Zufrieden() As Boolean Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_ZufriedenColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Zufrieden in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_ZufriedenColumn) = value End Set End Property _ Public Property bb_ZufriedenNEIN() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_ZufriedenNEINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_ZufriedenNEIN in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_ZufriedenNEINColumn) = value End Set End Property _ Public Property bb_Garantie() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_GarantieColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Garantie in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_GarantieColumn) = value End Set End Property _ Public Property bb_Interesse_Zollabfertigung() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_Interesse_ZollabfertigungColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_Interesse_ZollabfertigungColumn) = value End Set End Property _ Public Property bb_Interesse_Brexit() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_Interesse_BrexitColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_Interesse_BrexitColumn) = value End Set End Property _ Public Property bb_Interesse_Parkplatz() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_Interesse_ParkplatzColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_Interesse_ParkplatzColumn) = value End Set End Property _ Public Property bb_Interesse_LagerUmschlag() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_Interesse_LagerUmschlagColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_Interesse_LagerUmschlagColumn) = value End Set End Property _ Public Property bb_Interesse_Rola() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_Interesse_RolaColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_Interesse_RolaColumn) = value End Set End Property _ Public Property bb_Interesse_YesMoney() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_Interesse_YesMoneyColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_Interesse_YesMoneyColumn) = value End Set End Property _ Public Property bb_Interesse_Ferry() As Boolean Get Return CType(Me(Me.tabletblBesuchsberichte.bb_Interesse_FerryColumn),Boolean) End Get Set Me(Me.tabletblBesuchsberichte.bb_Interesse_FerryColumn) = value End Set End Property _ Public Property bb_Vermerk() As String Get Try Return CType(Me(Me.tabletblBesuchsberichte.bb_VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte bb_Vermerk in Tabelle tblBesuchsberichte ist DBNull.", e) End Try End Get Set Me(Me.tabletblBesuchsberichte.bb_VermerkColumn) = value End Set End Property _ Public Function Isbb_TeilnehmerNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_TeilnehmerColumn) End Function _ Public Sub Setbb_TeilnehmerNull() Me(Me.tabletblBesuchsberichte.bb_TeilnehmerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_KontaktartNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_KontaktartColumn) End Function _ Public Sub Setbb_KontaktartNull() Me(Me.tabletblBesuchsberichte.bb_KontaktartColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_KundenNrNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_KundenNrColumn) End Function _ Public Sub Setbb_KundenNrNull() Me(Me.tabletblBesuchsberichte.bb_KundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_GeschaeftsfuehrerNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_GeschaeftsfuehrerColumn) End Function _ Public Sub Setbb_GeschaeftsfuehrerNull() Me(Me.tabletblBesuchsberichte.bb_GeschaeftsfuehrerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_UmsatzNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_UmsatzColumn) End Function _ Public Sub Setbb_UmsatzNull() Me(Me.tabletblBesuchsberichte.bb_UmsatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_AnpsprechpartnerNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_AnpsprechpartnerColumn) End Function _ Public Sub Setbb_AnpsprechpartnerNull() Me(Me.tabletblBesuchsberichte.bb_AnpsprechpartnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_TelefonNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_TelefonColumn) End Function _ Public Sub Setbb_TelefonNull() Me(Me.tabletblBesuchsberichte.bb_TelefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_MailNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_MailColumn) End Function _ Public Sub Setbb_MailNull() Me(Me.tabletblBesuchsberichte.bb_MailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_FuhrparkEigentumNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_FuhrparkEigentumColumn) End Function _ Public Sub Setbb_FuhrparkEigentumNull() Me(Me.tabletblBesuchsberichte.bb_FuhrparkEigentumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_FuhrparkLeasingNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_FuhrparkLeasingColumn) End Function _ Public Sub Setbb_FuhrparkLeasingNull() Me(Me.tabletblBesuchsberichte.bb_FuhrparkLeasingColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_AuftraggeberNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_AuftraggeberColumn) End Function _ Public Sub Setbb_AuftraggeberNull() Me(Me.tabletblBesuchsberichte.bb_AuftraggeberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_RouteNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_RouteColumn) End Function _ Public Sub Setbb_RouteNull() Me(Me.tabletblBesuchsberichte.bb_RouteColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_DerzeitigerLieferantNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_DerzeitigerLieferantColumn) End Function _ Public Sub Setbb_DerzeitigerLieferantNull() Me(Me.tabletblBesuchsberichte.bb_DerzeitigerLieferantColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_ZufriedenNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_ZufriedenColumn) End Function _ Public Sub Setbb_ZufriedenNull() Me(Me.tabletblBesuchsberichte.bb_ZufriedenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_ZufriedenNEINNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_ZufriedenNEINColumn) End Function _ Public Sub Setbb_ZufriedenNEINNull() Me(Me.tabletblBesuchsberichte.bb_ZufriedenNEINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_GarantieNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_GarantieColumn) End Function _ Public Sub Setbb_GarantieNull() Me(Me.tabletblBesuchsberichte.bb_GarantieColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbb_VermerkNull() As Boolean Return Me.IsNull(Me.tabletblBesuchsberichte.bb_VermerkColumn) End Function _ Public Sub Setbb_VermerkNull() Me(Me.tabletblBesuchsberichte.bb_VermerkColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblBonitaetsauskunftRow Inherits Global.System.Data.DataRow Private tabletblBonitaetsauskunft As tblBonitaetsauskunftDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblBonitaetsauskunft = CType(Me.Table,tblBonitaetsauskunftDataTable) End Sub _ Public Property ba_id() As Integer Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_idColumn),Integer) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_idColumn) = value End Set End Property _ Public Property ba_KundenNr() As Integer Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_KundenNrColumn),Integer) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_KundenNrColumn) = value End Set End Property _ Public Property ba_Datum() As Date Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_DatumColumn),Date) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_DatumColumn) = value End Set End Property _ Public Property ba_MaId() As Integer Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_MaIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_MaId in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_MaIdColumn) = value End Set End Property _ Public Property ba_Sachbearbeiter() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_SachbearbeiterColumn),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_SachbearbeiterColumn) = value End Set End Property _ Public Property ba_CRArt() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_CRArtColumn),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_CRArtColumn) = value End Set End Property _ Public Property ba_CRAnsprechpartnerHerrFrau() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_CRAnsprechpartnerHerrFrauColumn),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_CRAnsprechpartnerHerrFrauColumn) = value End Set End Property _ Public Property ba_CRAnsprechpartner() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_CRAnsprechpartnerColumn),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_CRAnsprechpartnerColumn) = value End Set End Property _ Public Property ba_Firma() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_FirmaColumn),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_FirmaColumn) = value End Set End Property _ Public Property ba_Adresse1() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_Adresse1Column),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_Adresse1Column) = value End Set End Property _ Public Property ba_Adresse2() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_Adresse2Column),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_Adresse2Column) = value End Set End Property _ Public Property ba_LetztesBearbeitungsDatum() As Date Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_LetztesBearbeitungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_LetztesBearbeitungsDatum in Tabelle tblBonitaetsauskunft i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_LetztesBearbeitungsDatumColumn) = value End Set End Property _ Public Property ba_BonitaetsIndex() As Integer Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_BonitaetsIndexColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_BonitaetsIndex in Tabelle tblBonitaetsauskunft ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_BonitaetsIndexColumn) = value End Set End Property _ Public Property ba_CreditSaveBonitaetsIndex() As Double Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_CreditSaveBonitaetsIndexColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_CreditSaveBonitaetsIndex in Tabelle tblBonitaetsauskunft i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_CreditSaveBonitaetsIndexColumn) = value End Set End Property _ Public Property ba_CreditSaveBonitaetsScore() As Integer Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_CreditSaveBonitaetsScoreColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_CreditSaveBonitaetsScore in Tabelle tblBonitaetsauskunft i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_CreditSaveBonitaetsScoreColumn) = value End Set End Property _ Public Property ba_GruendundsDatum() As Date Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_GruendundsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_GruendundsDatum in Tabelle tblBonitaetsauskunft ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_GruendundsDatumColumn) = value End Set End Property _ Public Property ba_Umsatz() As String Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_UmsatzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_Umsatz in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_UmsatzColumn) = value End Set End Property _ Public Property ba_Mitarbeiter() As Integer Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_MitarbeiterColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_Mitarbeiter in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_MitarbeiterColumn) = value End Set End Property _ Public Property ba_Bankverbindung() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_BankverbindungColumn),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_BankverbindungColumn) = value End Set End Property _ Public Property ba_Hoechstkredit() As Double Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_HoechstkreditColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_Hoechstkredit in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_HoechstkreditColumn) = value End Set End Property _ Public Property ba_Zahlungsweise() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_ZahlungsweiseColumn),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_ZahlungsweiseColumn) = value End Set End Property _ Public Property ba_GFName() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_GFNameColumn),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_GFNameColumn) = value End Set End Property _ Public Property ba_Sonstiges() As String Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_SonstigesColumn),String) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_SonstigesColumn) = value End Set End Property _ Public Property ba_Risikostufe() As Integer Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_RisikostufeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_Risikostufe in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_RisikostufeColumn) = value End Set End Property _ Public Property ba_CreditSaveRisikoklasse() As String Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_CreditSaveRisikoklasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_CreditSaveRisikoklasse in Tabelle tblBonitaetsauskunft ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_CreditSaveRisikoklasseColumn) = value End Set End Property _ Public Property ba_Pruefungstool() As String Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_PruefungstoolColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_Pruefungstool in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_PruefungstoolColumn) = value End Set End Property _ Public Property ba_datenarchivId() As Integer Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_datenarchivIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_datenarchivId in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_datenarchivIdColumn) = value End Set End Property _ Public Property ba_GSName() As String Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_GSNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_GSName in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_GSNameColumn) = value End Set End Property _ Public Property ba_Geschaeftszweck() As String Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_GeschaeftszweckColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_Geschaeftszweck in Tabelle tblBonitaetsauskunft ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_GeschaeftszweckColumn) = value End Set End Property _ Public Property ba_UID() As String Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_UIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_UID in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_UIDColumn) = value End Set End Property _ Public Property ba_forcedRequest() As Boolean Get Return CType(Me(Me.tabletblBonitaetsauskunft.ba_forcedRequestColumn),Boolean) End Get Set Me(Me.tabletblBonitaetsauskunft.ba_forcedRequestColumn) = value End Set End Property _ Public Property ba_CScounterBeforeRequest() As Integer Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_CScounterBeforeRequestColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_CScounterBeforeRequest in Tabelle tblBonitaetsauskunft ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_CScounterBeforeRequestColumn) = value End Set End Property _ Public Property ba_CScounterAfterRequest() As Integer Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_CScounterAfterRequestColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_CScounterAfterRequest in Tabelle tblBonitaetsauskunft ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_CScounterAfterRequestColumn) = value End Set End Property _ Public Property ba_CSmax() As Integer Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_CSmaxColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_CSmax in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_CSmaxColumn) = value End Set End Property _ Public Property ba_CScountry() As String Get Try Return CType(Me(Me.tabletblBonitaetsauskunft.ba_CScountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ba_CScountry in Tabelle tblBonitaetsauskunft ist DBNull.", e) End Try End Get Set Me(Me.tabletblBonitaetsauskunft.ba_CScountryColumn) = value End Set End Property _ Public Function Isba_MaIdNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_MaIdColumn) End Function _ Public Sub Setba_MaIdNull() Me(Me.tabletblBonitaetsauskunft.ba_MaIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_LetztesBearbeitungsDatumNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_LetztesBearbeitungsDatumColumn) End Function _ Public Sub Setba_LetztesBearbeitungsDatumNull() Me(Me.tabletblBonitaetsauskunft.ba_LetztesBearbeitungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_BonitaetsIndexNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_BonitaetsIndexColumn) End Function _ Public Sub Setba_BonitaetsIndexNull() Me(Me.tabletblBonitaetsauskunft.ba_BonitaetsIndexColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_CreditSaveBonitaetsIndexNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_CreditSaveBonitaetsIndexColumn) End Function _ Public Sub Setba_CreditSaveBonitaetsIndexNull() Me(Me.tabletblBonitaetsauskunft.ba_CreditSaveBonitaetsIndexColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_CreditSaveBonitaetsScoreNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_CreditSaveBonitaetsScoreColumn) End Function _ Public Sub Setba_CreditSaveBonitaetsScoreNull() Me(Me.tabletblBonitaetsauskunft.ba_CreditSaveBonitaetsScoreColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_GruendundsDatumNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_GruendundsDatumColumn) End Function _ Public Sub Setba_GruendundsDatumNull() Me(Me.tabletblBonitaetsauskunft.ba_GruendundsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_UmsatzNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_UmsatzColumn) End Function _ Public Sub Setba_UmsatzNull() Me(Me.tabletblBonitaetsauskunft.ba_UmsatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_MitarbeiterNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_MitarbeiterColumn) End Function _ Public Sub Setba_MitarbeiterNull() Me(Me.tabletblBonitaetsauskunft.ba_MitarbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_HoechstkreditNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_HoechstkreditColumn) End Function _ Public Sub Setba_HoechstkreditNull() Me(Me.tabletblBonitaetsauskunft.ba_HoechstkreditColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_RisikostufeNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_RisikostufeColumn) End Function _ Public Sub Setba_RisikostufeNull() Me(Me.tabletblBonitaetsauskunft.ba_RisikostufeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_CreditSaveRisikoklasseNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_CreditSaveRisikoklasseColumn) End Function _ Public Sub Setba_CreditSaveRisikoklasseNull() Me(Me.tabletblBonitaetsauskunft.ba_CreditSaveRisikoklasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_PruefungstoolNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_PruefungstoolColumn) End Function _ Public Sub Setba_PruefungstoolNull() Me(Me.tabletblBonitaetsauskunft.ba_PruefungstoolColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_datenarchivIdNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_datenarchivIdColumn) End Function _ Public Sub Setba_datenarchivIdNull() Me(Me.tabletblBonitaetsauskunft.ba_datenarchivIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_GSNameNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_GSNameColumn) End Function _ Public Sub Setba_GSNameNull() Me(Me.tabletblBonitaetsauskunft.ba_GSNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_GeschaeftszweckNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_GeschaeftszweckColumn) End Function _ Public Sub Setba_GeschaeftszweckNull() Me(Me.tabletblBonitaetsauskunft.ba_GeschaeftszweckColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_UIDNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_UIDColumn) End Function _ Public Sub Setba_UIDNull() Me(Me.tabletblBonitaetsauskunft.ba_UIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_CScounterBeforeRequestNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_CScounterBeforeRequestColumn) End Function _ Public Sub Setba_CScounterBeforeRequestNull() Me(Me.tabletblBonitaetsauskunft.ba_CScounterBeforeRequestColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_CScounterAfterRequestNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_CScounterAfterRequestColumn) End Function _ Public Sub Setba_CScounterAfterRequestNull() Me(Me.tabletblBonitaetsauskunft.ba_CScounterAfterRequestColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_CSmaxNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_CSmaxColumn) End Function _ Public Sub Setba_CSmaxNull() Me(Me.tabletblBonitaetsauskunft.ba_CSmaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isba_CScountryNull() As Boolean Return Me.IsNull(Me.tabletblBonitaetsauskunft.ba_CScountryColumn) End Function _ Public Sub Setba_CScountryNull() Me(Me.tabletblBonitaetsauskunft.ba_CScountryColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblBuchungstextRow Inherits Global.System.Data.DataRow Private tabletblBuchungstext As tblBuchungstextDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblBuchungstext = CType(Me.Table,tblBuchungstextDataTable) End Sub _ Public Property Buchungstext() As String Get Return CType(Me(Me.tabletblBuchungstext.BuchungstextColumn),String) End Get Set Me(Me.tabletblBuchungstext.BuchungstextColumn) = value End Set End Property _ Public Property Gegenkonto() As Integer Get Try Return CType(Me(Me.tabletblBuchungstext.GegenkontoColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gegenkonto in Tabelle tblBuchungstext ist DBNull.", e) End Try End Get Set Me(Me.tabletblBuchungstext.GegenkontoColumn) = value End Set End Property _ Public Property Belegart() As Short Get Return CType(Me(Me.tabletblBuchungstext.BelegartColumn),Short) End Get Set Me(Me.tabletblBuchungstext.BelegartColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblBuchungstext.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblBuchungstext ist DBNull.", e) End Try End Get Set Me(Me.tabletblBuchungstext.SSMA_TimeStampColumn) = value End Set End Property _ Public Property visible() As Boolean Get Return CType(Me(Me.tabletblBuchungstext.visibleColumn),Boolean) End Get Set Me(Me.tabletblBuchungstext.visibleColumn) = value End Set End Property _ Public Property Firma() As String Get Return CType(Me(Me.tabletblBuchungstext.FirmaColumn),String) End Get Set Me(Me.tabletblBuchungstext.FirmaColumn) = value End Set End Property _ Public Function IsGegenkontoNull() As Boolean Return Me.IsNull(Me.tabletblBuchungstext.GegenkontoColumn) End Function _ Public Sub SetGegenkontoNull() Me(Me.tabletblBuchungstext.GegenkontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblBuchungstext.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblBuchungstext.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_AESRow Inherits Global.System.Data.DataRow Private tabletblDakosy_AES As tblDakosy_AESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_AES = CType(Me.Table,tblDakosy_AESDataTable) End Sub _ Public Property aes_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_AES.aes_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES.aes_IdColumn) = value End Set End Property _ Public Property aes_Status() As Integer Get Return CType(Me(Me.tabletblDakosy_AES.aes_StatusColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES.aes_StatusColumn) = value End Set End Property _ Public Property aes_Status_KEWILL_Equivalent() As Integer Get Return CType(Me(Me.tabletblDakosy_AES.aes_Status_KEWILL_EquivalentColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES.aes_Status_KEWILL_EquivalentColumn) = value End Set End Property _ Public Property aes_dyaArt() As String Get Return CType(Me(Me.tabletblDakosy_AES.aes_dyaArtColumn),String) End Get Set Me(Me.tabletblDakosy_AES.aes_dyaArtColumn) = value End Set End Property _ Public Property aes_dyaAnmID() As Integer Get Return CType(Me(Me.tabletblDakosy_AES.aes_dyaAnmIDColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES.aes_dyaAnmIDColumn) = value End Set End Property _ Public Property aes_ANR() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_ANRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_ANR in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_ANRColumn) = value End Set End Property _ Public Property aes_MRN() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_MRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_MRN in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_MRNColumn) = value End Set End Property _ Public Property aes_Erstellung() As Date Get Return CType(Me(Me.tabletblDakosy_AES.aes_ErstellungColumn),Date) End Get Set Me(Me.tabletblDakosy_AES.aes_ErstellungColumn) = value End Set End Property _ Public Property aes_Erstellung_SB() As Integer Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_Erstellung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Erstellung_SB in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_Erstellung_SBColumn) = value End Set End Property _ Public Property aes_LetzteBearbeitung() As Date Get Return CType(Me(Me.tabletblDakosy_AES.aes_LetzteBearbeitungColumn),Date) End Get Set Me(Me.tabletblDakosy_AES.aes_LetzteBearbeitungColumn) = value End Set End Property _ Public Property aes_LetzteBearbeitung_SB() As Integer Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_LetzteBearbeitung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_LetzteBearbeitung_SB in Tabelle tblDakosy_AES ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_LetzteBearbeitung_SBColumn) = value End Set End Property _ Public Property aes_firma() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_firmaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_firma in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_firmaColumn) = value End Set End Property _ Public Property aes_niederlassung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_niederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_niederlassung in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_niederlassungColumn) = value End Set End Property _ Public Property aes_Trans_Partner() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_Trans_PartnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Trans_Partner in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_Trans_PartnerColumn) = value End Set End Property _ Public Property aes_Trans_Div1() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_Trans_Div1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Trans_Div1 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_Trans_Div1Column) = value End Set End Property _ Public Property aes_Trans_Div2() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_Trans_Div2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Trans_Div2 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_Trans_Div2Column) = value End Set End Property _ Public Property aes_Trans_Div3() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_Trans_Div3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Trans_Div3 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_Trans_Div3Column) = value End Set End Property _ Public Property aes_Trans_Referenz() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_Trans_ReferenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Trans_Referenz in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_Trans_ReferenzColumn) = value End Set End Property _ Public Property aes_Trans_DatumZeit() As Date Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_Trans_DatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Trans_DatumZeit in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_Trans_DatumZeitColumn) = value End Set End Property _ Public Property aes_Trans_Version() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_Trans_VersionColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Trans_Version in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_Trans_VersionColumn) = value End Set End Property _ Public Property aes_NachrichtenSenderTIN() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_NachrichtenSenderTINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_NachrichtenSenderTIN in Tabelle tblDakosy_AES ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_NachrichtenSenderTINColumn) = value End Set End Property _ Public Property aes_NachrichtenSenderNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_NachrichtenSenderNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_NachrichtenSenderNLNR in Tabelle tblDakosy_AES ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_NachrichtenSenderNLNRColumn) = value End Set End Property _ Public Property aes_NachrichtenempfaengerDST() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_NachrichtenempfaengerDSTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_NachrichtenempfaengerDST in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_NachrichtenempfaengerDSTColumn) = value End Set End Property _ Public Property aes_ObjectName() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_ObjectNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_ObjectName in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_ObjectNameColumn) = value End Set End Property _ Public Property aes_ObjectAlias() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_ObjectAliasColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_ObjectAlias in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_ObjectAliasColumn) = value End Set End Property _ Public Property aes_BezugsnummerVorblendung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BezugsnummerVorblendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BezugsnummerVorblendung in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BezugsnummerVorblendungColumn) = value End Set End Property _ Public Property aes_Bearbeiter() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Bearbeiter in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BearbeiterColumn) = value End Set End Property _ Public Property aes_AnmeldeArtAusfuhrCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmeldeArtAusfuhrCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmeldeArtAusfuhrCode in Tabelle tblDakosy_AES ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmeldeArtAusfuhrCodeColumn) = value End Set End Property _ Public Property aes_AnmeldeArtVerfahrensCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmeldeArtVerfahrensCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmeldeArtVerfahrensCode in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmeldeArtVerfahrensCodeColumn) = value End Set End Property _ Public Property aes_AnmeldeArtUeberfuehrungCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmeldeArtUeberfuehrungCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmeldeArtUeberfuehrungCode in Tabelle tblDakosy_AES ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmeldeArtUeberfuehrungCodeColumn) = value End Set End Property _ Public Property aes_Ausfuhrland() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuhrlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Ausfuhrland in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuhrlandColumn) = value End Set End Property _ Public Property aes_BestimmungslandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BestimmungslandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BestimmungslandCode in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BestimmungslandCodeColumn) = value End Set End Property _ Public Property aes_AnmeldedatumZeit() As Date Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmeldedatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmeldedatumZeit in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmeldedatumZeitColumn) = value End Set End Property _ Public Property aes_DatumAusgang() As Date Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_DatumAusgangColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_DatumAusgang in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_DatumAusgangColumn) = value End Set End Property _ Public Property aes_MassgeblichesDatum() As Date Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_MassgeblichesDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_MassgeblichesDatum in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_MassgeblichesDatumColumn) = value End Set End Property _ Public Property aes_BesondereUmstaende() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BesondereUmstaendeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BesondereUmstaende in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BesondereUmstaendeColumn) = value End Set End Property _ Public Property aes_Zahlungsweisebefoerderungskosten() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_ZahlungsweisebefoerderungskostenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Zahlungsweisebefoerderungskosten in Tabelle tblDakosy_AES"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_ZahlungsweisebefoerderungskostenColumn) = value End Set End Property _ Public Property aes_ContainerIndikator() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_ContainerIndikatorColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_ContainerIndikator in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_ContainerIndikatorColumn) = value End Set End Property _ Public Property aes_BeteiligteKonstellation() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BeteiligteKonstellationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BeteiligteKonstellation in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BeteiligteKonstellationColumn) = value End Set End Property _ Public Property aes_AdressdatenKonstellation() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AdressdatenKonstellationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AdressdatenKonstellation in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AdressdatenKonstellationColumn) = value End Set End Property _ Public Property aes_GesamtRohmasse() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_GesamtRohmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_GesamtRohmasse in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_GesamtRohmasseColumn) = value End Set End Property _ Public Property aes_RegistriernummerFremdsystem() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_RegistriernummerFremdsystemColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_RegistriernummerFremdsystem in Tabelle tblDakosy_AES ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_RegistriernummerFremdsystemColumn) = value End Set End Property _ Public Property aes_Vermerk() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Vermerk in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VermerkColumn) = value End Set End Property _ Public Property aes_KennnummerSendung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_KennnummerSendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_KennnummerSendung in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_KennnummerSendungColumn) = value End Set End Property _ Public Property aes_AnzahlPositionen() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnzahlPositionenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnzahlPositionen in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnzahlPositionenColumn) = value End Set End Property _ Public Property aes_BewiligungsnummerAusfuhr() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerAusfuhrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BewiligungsnummerAusfuhr in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerAusfuhrColumn) = value End Set End Property _ Public Property aes_BewiligungsnummerAnschreibeverfahren() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerAnschreibeverfahrenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BewiligungsnummerAnschreibeverfahren in Tabelle tblDakosy"& _ "_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerAnschreibeverfahrenColumn) = value End Set End Property _ Public Property aes_BewiligungsnummerPassiveVeredelung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerPassiveVeredelungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BewiligungsnummerPassiveVeredelung in Tabelle tblDakosy_A"& _ "ES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerPassiveVeredelungColumn) = value End Set End Property _ Public Property aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer in Tabell"& _ "e tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrerColumn) = value End Set End Property _ Public Property aes_VerkehrszweigInland() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerkehrszweigInlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerkehrszweigInland in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerkehrszweigInlandColumn) = value End Set End Property _ Public Property aes_BefoerderungsmittelAbgangArtCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangArtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsmittelAbgangArtCode in Tabelle tblDakosy_AES"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangArtCodeColumn) = value End Set End Property _ Public Property aes_BefoerderungsmittelAbgangKennzeichen() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangKennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsmittelAbgangKennzeichen in Tabelle tblDakosy"& _ "_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangKennzeichenColumn) = value End Set End Property _ Public Property aes_BefoerderungsmittelAbgangStaatCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangStaatCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsmittelAbgangStaatCode in Tabelle tblDakosy_A"& _ "ES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangStaatCodeColumn) = value End Set End Property _ Public Property aes_VerkehrszweigGrenze() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerkehrszweigGrenzeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerkehrszweigGrenze in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerkehrszweigGrenzeColumn) = value End Set End Property _ Public Property aes_BefoerderungsmittelGrenzeArtCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeArtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsmittelGrenzeArtCode in Tabelle tblDakosy_AES"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeArtCodeColumn) = value End Set End Property _ Public Property aes_BefoerderungsmittelGrenzeKennzeichen() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeKennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsmittelGrenzeKennzeichen in Tabelle tblDakosy"& _ "_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeKennzeichenColumn) = value End Set End Property _ Public Property aes_BefoerderungsmittelGrenzeStaatCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeStaatCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsmittelGrenzeStaatCode in Tabelle tblDakosy_A"& _ "ES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeStaatCodeColumn) = value End Set End Property _ Public Property aes_LadeortOrtId() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_LadeortOrtIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_LadeortOrtId in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_LadeortOrtIdColumn) = value End Set End Property _ Public Property aes_LadeortStrasse() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_LadeortStrasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_LadeortStrasse in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_LadeortStrasseColumn) = value End Set End Property _ Public Property aes_LadeortPLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_LadeortPLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_LadeortPLZ in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_LadeortPLZColumn) = value End Set End Property _ Public Property aes_LadeortOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_LadeortOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_LadeortOrt in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_LadeortOrtColumn) = value End Set End Property _ Public Property aes_LadeortZusatz() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_LadeortZusatzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_LadeortZusatz in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_LadeortZusatzColumn) = value End Set End Property _ Public Property aes_AusfuhrZollstelleID() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuhrZollstelleIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuhrZollstelleID in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuhrZollstelleIDColumn) = value End Set End Property _ Public Property aes_AusgangszollstelleID() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusgangszollstelleIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusgangszollstelleID in Tabelle tblDakosy_AES ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusgangszollstelleIDColumn) = value End Set End Property _ Public Property aes_TatsaechlicheAusgangZollstelleID() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_TatsaechlicheAusgangZollstelleIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_TatsaechlicheAusgangZollstelleID in Tabelle tblDakosy_AES"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_TatsaechlicheAusgangZollstelleIDColumn) = value End Set End Property _ Public Property aes_GeschaeftartCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_GeschaeftartCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_GeschaeftartCode in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_GeschaeftartCodeColumn) = value End Set End Property _ Public Property aes_Rechnungspreis() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_RechnungspreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Rechnungspreis in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_RechnungspreisColumn) = value End Set End Property _ Public Property aes_Rechnungwaehrung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_RechnungwaehrungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_Rechnungwaehrung in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_RechnungwaehrungColumn) = value End Set End Property _ Public Property aes_BesondererTatbestand() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BesondererTatbestandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BesondererTatbestand in Tabelle tblDakosy_AES ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BesondererTatbestandColumn) = value End Set End Property _ Public Property aes_VerschlussArtCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussArtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussArtCode in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussArtCodeColumn) = value End Set End Property _ Public Property aes_VerschlussAnzahl() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussAnzahlColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussAnzahl in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussAnzahlColumn) = value End Set End Property _ Public Property aes_VerschlussZeichen1() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen1 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen1Column) = value End Set End Property _ Public Property aes_VerschlussZeichen2() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen2 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen2Column) = value End Set End Property _ Public Property aes_VerschlussZeichen3() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen3 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen3Column) = value End Set End Property _ Public Property aes_VerschlussZeichen4() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen4 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen4Column) = value End Set End Property _ Public Property aes_VerschlussZeichen5() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen5 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen5Column) = value End Set End Property _ Public Property aes_VerschlussZeichen6() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen6 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen6Column) = value End Set End Property _ Public Property aes_VerschlussZeichen7() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen7 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen7Column) = value End Set End Property _ Public Property aes_VerschlussZeichen8() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen8 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen8Column) = value End Set End Property _ Public Property aes_VerschlussZeichen9() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen9 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen9Column) = value End Set End Property _ Public Property aes_VerschlussZeichen10() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen10 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen10Column) = value End Set End Property _ Public Property aes_VerschlussZeichen11() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen11Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen11 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen11Column) = value End Set End Property _ Public Property aes_VerschlussZeichen12() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen12Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerschlussZeichen12 in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen12Column) = value End Set End Property _ Public Property aes_GestellungsfristAnfangDatumZeit() As Date Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_GestellungsfristAnfangDatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_GestellungsfristAnfangDatumZeit in Tabelle tblDakosy_AES "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_GestellungsfristAnfangDatumZeitColumn) = value End Set End Property _ Public Property aes_GestellungsfristEndeDatumZeit() As Date Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_GestellungsfristEndeDatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_GestellungsfristEndeDatumZeit in Tabelle tblDakosy_AES is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_GestellungsfristEndeDatumZeitColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerEORI in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerEORIColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerNLNR in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerNLNRColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerName() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerName in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerNameColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerStrasse() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerStrasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerStrasse in Tabelle tblDakosy_AES ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerStrasseColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerOrt in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerOrtColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerPLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerPLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerPLZ in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerPLZColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerLandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerLandCode in Tabelle tblDakosy_AES ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerLandCodeColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter in Tabe"& _ "lle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiterColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer in Tabel"& _ "le tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummerColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerAnsprechpartnerStellung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerStellungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerAnsprechpartnerStellung in Tabelle tb"& _ "lDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerStellungColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerAnsprechpartnerEmail() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerEmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerAnsprechpartnerEmail in Tabelle tblDa"& _ "kosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerEmailColumn) = value End Set End Property _ Public Property aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax in Tabelle tbl"& _ "Dakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefaxColumn) = value End Set End Property _ Public Property aes_EmpfaengerTeilnehmerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_EmpfaengerTeilnehmerEORI in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerEORIColumn) = value End Set End Property _ Public Property aes_EmpfaengerTeilnehmerNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_EmpfaengerTeilnehmerNLNR in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerNLNRColumn) = value End Set End Property _ Public Property aes_EmpfaengerTeilnehmerName() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_EmpfaengerTeilnehmerName in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerNameColumn) = value End Set End Property _ Public Property aes_EmpfaengerTeilnehmerStrasse() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerStrasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_EmpfaengerTeilnehmerStrasse in Tabelle tblDakosy_AES ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerStrasseColumn) = value End Set End Property _ Public Property aes_EmpfaengerTeilnehmerOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_EmpfaengerTeilnehmerOrt in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerOrtColumn) = value End Set End Property _ Public Property aes_EmpfaengerTeilnehmerPLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerPLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_EmpfaengerTeilnehmerPLZ in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerPLZColumn) = value End Set End Property _ Public Property aes_EmpfaengerTeilnehmerLandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_EmpfaengerTeilnehmerLandCode in Tabelle tblDakosy_AES ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerLandCodeColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerEORI in Tabelle tblDakosy_AES ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerEORIColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerNLNR in Tabelle tblDakosy_AES ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerNLNRColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerName() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerName in Tabelle tblDakosy_AES ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerNameColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerStrasse() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerStrasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerStrasse in Tabelle tblDakosy_AES ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerStrasseColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerOrt in Tabelle tblDakosy_AES ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerOrtColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerPLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerPLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerPLZ in Tabelle tblDakosy_AES ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerPLZColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerLandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerLandCode in Tabelle tblDakosy_AES ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerLandCodeColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter in Tabell"& _ "e tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiterColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer in Tabelle"& _ " tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummerColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerAnsprechpartnerStellung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerStellungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerAnsprechpartnerStellung in Tabelle tblD"& _ "akosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerStellungColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerAnsprechpartnerEmail() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerEmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerAnsprechpartnerEmail in Tabelle tblDako"& _ "sy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerEmailColumn) = value End Set End Property _ Public Property aes_AnmelderTeilnehmerAnsprechpartnerTelefax() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerTelefaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_AnmelderTeilnehmerAnsprechpartnerTelefax in Tabelle tblDa"& _ "kosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerTelefaxColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerEORI in Tabelle tblDakosy_AES "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerEORIColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerNLNR in Tabelle tblDakosy_AES "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerNLNRColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerName() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerName in Tabelle tblDakosy_AES "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerNameColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerStrasse() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerStrasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerStrasse in Tabelle tblDakosy_A"& _ "ES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerStrasseColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerOrt in Tabelle tblDakosy_AES i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerOrtColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerPLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerPLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerPLZ in Tabelle tblDakosy_AES i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerPLZColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerLandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerLandCode in Tabelle tblDakosy_"& _ "AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerLandCodeColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter "& _ "in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiterColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer i"& _ "n Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummerColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung in Tab"& _ "elle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellungColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail in Tabell"& _ "e tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmailColumn) = value End Set End Property _ Public Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax in Tabe"& _ "lle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefaxColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerEORI in Tabelle tblDakosy_AES ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerEORIColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerNLNR in Tabelle tblDakosy_AES ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerNLNRColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerName() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerName in Tabelle tblDakosy_AES ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerNameColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerStrasse() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerStrasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerStrasse in Tabelle tblDakosy_AES "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerStrasseColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerOrt in Tabelle tblDakosy_AES ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerOrtColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerPLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerPLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerPLZ in Tabelle tblDakosy_AES ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerPLZColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerLandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerLandCode in Tabelle tblDakosy_AES"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerLandCodeColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter in "& _ "Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiterColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer in T"& _ "abelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummerColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerAnsprechpartnerStellung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerStellungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerAnsprechpartnerStellung in Tabell"& _ "e tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerStellungColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerAnsprechpartnerEmail() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerEmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerAnsprechpartnerEmail in Tabelle t"& _ "blDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerEmailColumn) = value End Set End Property _ Public Property aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax in Tabelle"& _ " tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefaxColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerEORI in Tabelle tblDakosy_AE"& _ "S ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerEORIColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerNLNR in Tabelle tblDakosy_AE"& _ "S ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerNLNRColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerName() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerName in Tabelle tblDakosy_AE"& _ "S ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerNameColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerStrasse() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerStrasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerStrasse in Tabelle tblDakosy"& _ "_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerStrasseColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerOrt in Tabelle tblDakosy_AES"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerOrtColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerPLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerPLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerPLZ in Tabelle tblDakosy_AES"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerPLZColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerLandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerLandCode in Tabelle tblDakos"& _ "y_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerLandCodeColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeite"& _ "r in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiterColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer"& _ " in Tabelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummerColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung in T"& _ "abelle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellungColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail in Tabe"& _ "lle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmailColumn) = value End Set End Property _ Public Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax in Ta"& _ "belle tblDakosy_AES ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefaxColumn) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand1() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand1 in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand1Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand2() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand2 in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand2Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand3() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand3 in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand3Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand4() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand4 in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand4Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand5() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand5 in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand5Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand6() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand6 in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand6Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand7() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand7 in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand7Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand8() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand8 in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand8Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand9() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand9 in Tabelle tblDakosy_AES ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand9Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand10() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand10 in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand10Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand11() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand11Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand11 in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand11Column) = value End Set End Property _ Public Property aes_BefoerderungsrouteLand12() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand12Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_BefoerderungsrouteLand12 in Tabelle tblDakosy_AES ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand12Column) = value End Set End Property _ Public Property aes_LieferbedingungenCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_LieferbedingungenCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_LieferbedingungenCode in Tabelle tblDakosy_AES ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_LieferbedingungenCodeColumn) = value End Set End Property _ Public Property aes_LieferbedingungenText() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_LieferbedingungenTextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_LieferbedingungenText in Tabelle tblDakosy_AES ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_LieferbedingungenTextColumn) = value End Set End Property _ Public Property aes_LieferbedingungenOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_AES.aes_LieferbedingungenOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aes_LieferbedingungenOrt in Tabelle tblDakosy_AES ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_AES.aes_LieferbedingungenOrtColumn) = value End Set End Property _ Public Function Isaes_ANRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_ANRColumn) End Function _ Public Sub Setaes_ANRNull() Me(Me.tabletblDakosy_AES.aes_ANRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_MRNNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_MRNColumn) End Function _ Public Sub Setaes_MRNNull() Me(Me.tabletblDakosy_AES.aes_MRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_Erstellung_SBNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_Erstellung_SBColumn) End Function _ Public Sub Setaes_Erstellung_SBNull() Me(Me.tabletblDakosy_AES.aes_Erstellung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_LetzteBearbeitung_SBNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_LetzteBearbeitung_SBColumn) End Function _ Public Sub Setaes_LetzteBearbeitung_SBNull() Me(Me.tabletblDakosy_AES.aes_LetzteBearbeitung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_firmaNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_firmaColumn) End Function _ Public Sub Setaes_firmaNull() Me(Me.tabletblDakosy_AES.aes_firmaColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_niederlassungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_niederlassungColumn) End Function _ Public Sub Setaes_niederlassungNull() Me(Me.tabletblDakosy_AES.aes_niederlassungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_Trans_PartnerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_Trans_PartnerColumn) End Function _ Public Sub Setaes_Trans_PartnerNull() Me(Me.tabletblDakosy_AES.aes_Trans_PartnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_Trans_Div1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_Trans_Div1Column) End Function _ Public Sub Setaes_Trans_Div1Null() Me(Me.tabletblDakosy_AES.aes_Trans_Div1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_Trans_Div2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_Trans_Div2Column) End Function _ Public Sub Setaes_Trans_Div2Null() Me(Me.tabletblDakosy_AES.aes_Trans_Div2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_Trans_Div3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_Trans_Div3Column) End Function _ Public Sub Setaes_Trans_Div3Null() Me(Me.tabletblDakosy_AES.aes_Trans_Div3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_Trans_ReferenzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_Trans_ReferenzColumn) End Function _ Public Sub Setaes_Trans_ReferenzNull() Me(Me.tabletblDakosy_AES.aes_Trans_ReferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_Trans_DatumZeitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_Trans_DatumZeitColumn) End Function _ Public Sub Setaes_Trans_DatumZeitNull() Me(Me.tabletblDakosy_AES.aes_Trans_DatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_Trans_VersionNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_Trans_VersionColumn) End Function _ Public Sub Setaes_Trans_VersionNull() Me(Me.tabletblDakosy_AES.aes_Trans_VersionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_NachrichtenSenderTINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_NachrichtenSenderTINColumn) End Function _ Public Sub Setaes_NachrichtenSenderTINNull() Me(Me.tabletblDakosy_AES.aes_NachrichtenSenderTINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_NachrichtenSenderNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_NachrichtenSenderNLNRColumn) End Function _ Public Sub Setaes_NachrichtenSenderNLNRNull() Me(Me.tabletblDakosy_AES.aes_NachrichtenSenderNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_NachrichtenempfaengerDSTNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_NachrichtenempfaengerDSTColumn) End Function _ Public Sub Setaes_NachrichtenempfaengerDSTNull() Me(Me.tabletblDakosy_AES.aes_NachrichtenempfaengerDSTColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_ObjectNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_ObjectNameColumn) End Function _ Public Sub Setaes_ObjectNameNull() Me(Me.tabletblDakosy_AES.aes_ObjectNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_ObjectAliasNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_ObjectAliasColumn) End Function _ Public Sub Setaes_ObjectAliasNull() Me(Me.tabletblDakosy_AES.aes_ObjectAliasColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BezugsnummerVorblendungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BezugsnummerVorblendungColumn) End Function _ Public Sub Setaes_BezugsnummerVorblendungNull() Me(Me.tabletblDakosy_AES.aes_BezugsnummerVorblendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BearbeiterColumn) End Function _ Public Sub Setaes_BearbeiterNull() Me(Me.tabletblDakosy_AES.aes_BearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmeldeArtAusfuhrCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmeldeArtAusfuhrCodeColumn) End Function _ Public Sub Setaes_AnmeldeArtAusfuhrCodeNull() Me(Me.tabletblDakosy_AES.aes_AnmeldeArtAusfuhrCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmeldeArtVerfahrensCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmeldeArtVerfahrensCodeColumn) End Function _ Public Sub Setaes_AnmeldeArtVerfahrensCodeNull() Me(Me.tabletblDakosy_AES.aes_AnmeldeArtVerfahrensCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmeldeArtUeberfuehrungCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmeldeArtUeberfuehrungCodeColumn) End Function _ Public Sub Setaes_AnmeldeArtUeberfuehrungCodeNull() Me(Me.tabletblDakosy_AES.aes_AnmeldeArtUeberfuehrungCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuhrlandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuhrlandColumn) End Function _ Public Sub Setaes_AusfuhrlandNull() Me(Me.tabletblDakosy_AES.aes_AusfuhrlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BestimmungslandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BestimmungslandCodeColumn) End Function _ Public Sub Setaes_BestimmungslandCodeNull() Me(Me.tabletblDakosy_AES.aes_BestimmungslandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmeldedatumZeitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmeldedatumZeitColumn) End Function _ Public Sub Setaes_AnmeldedatumZeitNull() Me(Me.tabletblDakosy_AES.aes_AnmeldedatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_DatumAusgangNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_DatumAusgangColumn) End Function _ Public Sub Setaes_DatumAusgangNull() Me(Me.tabletblDakosy_AES.aes_DatumAusgangColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_MassgeblichesDatumNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_MassgeblichesDatumColumn) End Function _ Public Sub Setaes_MassgeblichesDatumNull() Me(Me.tabletblDakosy_AES.aes_MassgeblichesDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BesondereUmstaendeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BesondereUmstaendeColumn) End Function _ Public Sub Setaes_BesondereUmstaendeNull() Me(Me.tabletblDakosy_AES.aes_BesondereUmstaendeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_ZahlungsweisebefoerderungskostenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_ZahlungsweisebefoerderungskostenColumn) End Function _ Public Sub Setaes_ZahlungsweisebefoerderungskostenNull() Me(Me.tabletblDakosy_AES.aes_ZahlungsweisebefoerderungskostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_ContainerIndikatorNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_ContainerIndikatorColumn) End Function _ Public Sub Setaes_ContainerIndikatorNull() Me(Me.tabletblDakosy_AES.aes_ContainerIndikatorColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BeteiligteKonstellationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BeteiligteKonstellationColumn) End Function _ Public Sub Setaes_BeteiligteKonstellationNull() Me(Me.tabletblDakosy_AES.aes_BeteiligteKonstellationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AdressdatenKonstellationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AdressdatenKonstellationColumn) End Function _ Public Sub Setaes_AdressdatenKonstellationNull() Me(Me.tabletblDakosy_AES.aes_AdressdatenKonstellationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_GesamtRohmasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_GesamtRohmasseColumn) End Function _ Public Sub Setaes_GesamtRohmasseNull() Me(Me.tabletblDakosy_AES.aes_GesamtRohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_RegistriernummerFremdsystemNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_RegistriernummerFremdsystemColumn) End Function _ Public Sub Setaes_RegistriernummerFremdsystemNull() Me(Me.tabletblDakosy_AES.aes_RegistriernummerFremdsystemColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VermerkNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VermerkColumn) End Function _ Public Sub Setaes_VermerkNull() Me(Me.tabletblDakosy_AES.aes_VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_KennnummerSendungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_KennnummerSendungColumn) End Function _ Public Sub Setaes_KennnummerSendungNull() Me(Me.tabletblDakosy_AES.aes_KennnummerSendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnzahlPositionenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnzahlPositionenColumn) End Function _ Public Sub Setaes_AnzahlPositionenNull() Me(Me.tabletblDakosy_AES.aes_AnzahlPositionenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BewiligungsnummerAusfuhrNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BewiligungsnummerAusfuhrColumn) End Function _ Public Sub Setaes_BewiligungsnummerAusfuhrNull() Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerAusfuhrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BewiligungsnummerAnschreibeverfahrenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BewiligungsnummerAnschreibeverfahrenColumn) End Function _ Public Sub Setaes_BewiligungsnummerAnschreibeverfahrenNull() Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerAnschreibeverfahrenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BewiligungsnummerPassiveVeredelungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BewiligungsnummerPassiveVeredelungColumn) End Function _ Public Sub Setaes_BewiligungsnummerPassiveVeredelungNull() Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerPassiveVeredelungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BewiligungsnummerVertrausenswuerdigerAusfuehrerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrerColumn) End Function _ Public Sub Setaes_BewiligungsnummerVertrausenswuerdigerAusfuehrerNull() Me(Me.tabletblDakosy_AES.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerkehrszweigInlandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerkehrszweigInlandColumn) End Function _ Public Sub Setaes_VerkehrszweigInlandNull() Me(Me.tabletblDakosy_AES.aes_VerkehrszweigInlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsmittelAbgangArtCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangArtCodeColumn) End Function _ Public Sub Setaes_BefoerderungsmittelAbgangArtCodeNull() Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangArtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsmittelAbgangKennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangKennzeichenColumn) End Function _ Public Sub Setaes_BefoerderungsmittelAbgangKennzeichenNull() Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangKennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsmittelAbgangStaatCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangStaatCodeColumn) End Function _ Public Sub Setaes_BefoerderungsmittelAbgangStaatCodeNull() Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelAbgangStaatCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerkehrszweigGrenzeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerkehrszweigGrenzeColumn) End Function _ Public Sub Setaes_VerkehrszweigGrenzeNull() Me(Me.tabletblDakosy_AES.aes_VerkehrszweigGrenzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsmittelGrenzeArtCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeArtCodeColumn) End Function _ Public Sub Setaes_BefoerderungsmittelGrenzeArtCodeNull() Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeArtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsmittelGrenzeKennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeKennzeichenColumn) End Function _ Public Sub Setaes_BefoerderungsmittelGrenzeKennzeichenNull() Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeKennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsmittelGrenzeStaatCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeStaatCodeColumn) End Function _ Public Sub Setaes_BefoerderungsmittelGrenzeStaatCodeNull() Me(Me.tabletblDakosy_AES.aes_BefoerderungsmittelGrenzeStaatCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_LadeortOrtIdNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_LadeortOrtIdColumn) End Function _ Public Sub Setaes_LadeortOrtIdNull() Me(Me.tabletblDakosy_AES.aes_LadeortOrtIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_LadeortStrasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_LadeortStrasseColumn) End Function _ Public Sub Setaes_LadeortStrasseNull() Me(Me.tabletblDakosy_AES.aes_LadeortStrasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_LadeortPLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_LadeortPLZColumn) End Function _ Public Sub Setaes_LadeortPLZNull() Me(Me.tabletblDakosy_AES.aes_LadeortPLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_LadeortOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_LadeortOrtColumn) End Function _ Public Sub Setaes_LadeortOrtNull() Me(Me.tabletblDakosy_AES.aes_LadeortOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_LadeortZusatzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_LadeortZusatzColumn) End Function _ Public Sub Setaes_LadeortZusatzNull() Me(Me.tabletblDakosy_AES.aes_LadeortZusatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuhrZollstelleIDNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuhrZollstelleIDColumn) End Function _ Public Sub Setaes_AusfuhrZollstelleIDNull() Me(Me.tabletblDakosy_AES.aes_AusfuhrZollstelleIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusgangszollstelleIDNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusgangszollstelleIDColumn) End Function _ Public Sub Setaes_AusgangszollstelleIDNull() Me(Me.tabletblDakosy_AES.aes_AusgangszollstelleIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_TatsaechlicheAusgangZollstelleIDNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_TatsaechlicheAusgangZollstelleIDColumn) End Function _ Public Sub Setaes_TatsaechlicheAusgangZollstelleIDNull() Me(Me.tabletblDakosy_AES.aes_TatsaechlicheAusgangZollstelleIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_GeschaeftartCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_GeschaeftartCodeColumn) End Function _ Public Sub Setaes_GeschaeftartCodeNull() Me(Me.tabletblDakosy_AES.aes_GeschaeftartCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_RechnungspreisNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_RechnungspreisColumn) End Function _ Public Sub Setaes_RechnungspreisNull() Me(Me.tabletblDakosy_AES.aes_RechnungspreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_RechnungwaehrungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_RechnungwaehrungColumn) End Function _ Public Sub Setaes_RechnungwaehrungNull() Me(Me.tabletblDakosy_AES.aes_RechnungwaehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BesondererTatbestandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BesondererTatbestandColumn) End Function _ Public Sub Setaes_BesondererTatbestandNull() Me(Me.tabletblDakosy_AES.aes_BesondererTatbestandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussArtCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussArtCodeColumn) End Function _ Public Sub Setaes_VerschlussArtCodeNull() Me(Me.tabletblDakosy_AES.aes_VerschlussArtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussAnzahlNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussAnzahlColumn) End Function _ Public Sub Setaes_VerschlussAnzahlNull() Me(Me.tabletblDakosy_AES.aes_VerschlussAnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen1Column) End Function _ Public Sub Setaes_VerschlussZeichen1Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen2Column) End Function _ Public Sub Setaes_VerschlussZeichen2Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen3Column) End Function _ Public Sub Setaes_VerschlussZeichen3Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen4Column) End Function _ Public Sub Setaes_VerschlussZeichen4Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen4Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen5Column) End Function _ Public Sub Setaes_VerschlussZeichen5Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen5Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen6Column) End Function _ Public Sub Setaes_VerschlussZeichen6Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen6Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen7Column) End Function _ Public Sub Setaes_VerschlussZeichen7Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen7Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen8Column) End Function _ Public Sub Setaes_VerschlussZeichen8Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen8Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen9Column) End Function _ Public Sub Setaes_VerschlussZeichen9Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen9Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen10Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen10Column) End Function _ Public Sub Setaes_VerschlussZeichen10Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen10Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen11Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen11Column) End Function _ Public Sub Setaes_VerschlussZeichen11Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen11Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerschlussZeichen12Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerschlussZeichen12Column) End Function _ Public Sub Setaes_VerschlussZeichen12Null() Me(Me.tabletblDakosy_AES.aes_VerschlussZeichen12Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_GestellungsfristAnfangDatumZeitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_GestellungsfristAnfangDatumZeitColumn) End Function _ Public Sub Setaes_GestellungsfristAnfangDatumZeitNull() Me(Me.tabletblDakosy_AES.aes_GestellungsfristAnfangDatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_GestellungsfristEndeDatumZeitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_GestellungsfristEndeDatumZeitColumn) End Function _ Public Sub Setaes_GestellungsfristEndeDatumZeitNull() Me(Me.tabletblDakosy_AES.aes_GestellungsfristEndeDatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerEORIColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerEORINull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerNLNRColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerNLNRNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerNameColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerNameNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerStrasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerStrasseColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerStrasseNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerStrasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerOrtColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerOrtNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerPLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerPLZColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerPLZNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerPLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerLandCodeColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerLandCodeNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerLandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiterColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiterNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummerColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummerNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerAnsprechpartnerStellungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerStellungColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerAnsprechpartnerStellungNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerStellungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerAnsprechpartnerEmailNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerEmailColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerAnsprechpartnerEmailNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerEmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AusfuehrerTeilnehmerAnsprechpartnerTelefaxNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefaxColumn) End Function _ Public Sub Setaes_AusfuehrerTeilnehmerAnsprechpartnerTelefaxNull() Me(Me.tabletblDakosy_AES.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_EmpfaengerTeilnehmerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerEORIColumn) End Function _ Public Sub Setaes_EmpfaengerTeilnehmerEORINull() Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_EmpfaengerTeilnehmerNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerNLNRColumn) End Function _ Public Sub Setaes_EmpfaengerTeilnehmerNLNRNull() Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_EmpfaengerTeilnehmerNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerNameColumn) End Function _ Public Sub Setaes_EmpfaengerTeilnehmerNameNull() Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_EmpfaengerTeilnehmerStrasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerStrasseColumn) End Function _ Public Sub Setaes_EmpfaengerTeilnehmerStrasseNull() Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerStrasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_EmpfaengerTeilnehmerOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerOrtColumn) End Function _ Public Sub Setaes_EmpfaengerTeilnehmerOrtNull() Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_EmpfaengerTeilnehmerPLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerPLZColumn) End Function _ Public Sub Setaes_EmpfaengerTeilnehmerPLZNull() Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerPLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_EmpfaengerTeilnehmerLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerLandCodeColumn) End Function _ Public Sub Setaes_EmpfaengerTeilnehmerLandCodeNull() Me(Me.tabletblDakosy_AES.aes_EmpfaengerTeilnehmerLandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerEORIColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerEORINull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerNLNRColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerNLNRNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerNameColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerNameNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerStrasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerStrasseColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerStrasseNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerStrasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerOrtColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerOrtNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerPLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerPLZColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerPLZNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerPLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerLandCodeColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerLandCodeNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerLandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiterColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiterNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerAnsprechpartnerTelefonnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummerColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerAnsprechpartnerTelefonnummerNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerAnsprechpartnerStellungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerStellungColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerAnsprechpartnerStellungNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerStellungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerAnsprechpartnerEmailNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerEmailColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerAnsprechpartnerEmailNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerEmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_AnmelderTeilnehmerAnsprechpartnerTelefaxNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerTelefaxColumn) End Function _ Public Sub Setaes_AnmelderTeilnehmerAnsprechpartnerTelefaxNull() Me(Me.tabletblDakosy_AES.aes_AnmelderTeilnehmerAnsprechpartnerTelefaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerEORIColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerEORINull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerNLNRColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerNLNRNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerNameColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerNameNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerStrasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerStrasseColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerStrasseNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerStrasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerOrtColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerOrtNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerPLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerPLZColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerPLZNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerPLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerLandCodeColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerLandCodeNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerLandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiterColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiterNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummerColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummerNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerAnsprechpartnerStellungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellungColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerAnsprechpartnerStellungNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerAnsprechpartnerEmailNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmailColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerAnsprechpartnerEmailNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefaxNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefaxColumn) End Function _ Public Sub Setaes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefaxNull() Me(Me.tabletblDakosy_AES.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerEORIColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerEORINull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerNLNRColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerNLNRNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerNameColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerNameNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerStrasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerStrasseColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerStrasseNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerStrasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerOrtColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerOrtNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerPLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerPLZColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerPLZNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerPLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerLandCodeColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerLandCodeNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerLandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiterColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiterNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummerColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummerNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerAnsprechpartnerStellungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerStellungColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerAnsprechpartnerStellungNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerStellungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerAnsprechpartnerEmailNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerEmailColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerAnsprechpartnerEmailNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerEmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_SubunternehmerTeilnehmerAnsprechpartnerTelefaxNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefaxColumn) End Function _ Public Sub Setaes_SubunternehmerTeilnehmerAnsprechpartnerTelefaxNull() Me(Me.tabletblDakosy_AES.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerEORIColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerEORINull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerNLNRColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerNLNRNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerNameColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerNameNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerStrasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerStrasseColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerStrasseNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerStrasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerOrtColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerOrtNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerPLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerPLZColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerPLZNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerPLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerLandCodeColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerLandCodeNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerLandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiterColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiterNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummerColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummerNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellungColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellungNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmailNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmailColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmailNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefaxNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefaxColumn) End Function _ Public Sub Setaes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefaxNull() Me(Me.tabletblDakosy_AES.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand1Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand1Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand2Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand2Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand3Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand3Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand4Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand4Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand4Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand5Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand5Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand5Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand6Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand6Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand6Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand7Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand7Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand7Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand8Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand8Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand8Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand9Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand9Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand9Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand10Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand10Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand10Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand10Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand11Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand11Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand11Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand11Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_BefoerderungsrouteLand12Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand12Column) End Function _ Public Sub Setaes_BefoerderungsrouteLand12Null() Me(Me.tabletblDakosy_AES.aes_BefoerderungsrouteLand12Column) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_LieferbedingungenCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_LieferbedingungenCodeColumn) End Function _ Public Sub Setaes_LieferbedingungenCodeNull() Me(Me.tabletblDakosy_AES.aes_LieferbedingungenCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_LieferbedingungenTextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_LieferbedingungenTextColumn) End Function _ Public Sub Setaes_LieferbedingungenTextNull() Me(Me.tabletblDakosy_AES.aes_LieferbedingungenTextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaes_LieferbedingungenOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES.aes_LieferbedingungenOrtColumn) End Function _ Public Sub Setaes_LieferbedingungenOrtNull() Me(Me.tabletblDakosy_AES.aes_LieferbedingungenOrtColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_AES_WarenpositionRow Inherits Global.System.Data.DataRow Private tabletblDakosy_AES_Warenposition As tblDakosy_AES_WarenpositionDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_AES_Warenposition = CType(Me.Table,tblDakosy_AES_WarenpositionDataTable) End Sub _ Public Property aesWP_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_IdColumn) = value End Set End Property _ Public Property aesWP_AESId() As Integer Get Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_AESIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_AESIdColumn) = value End Set End Property _ Public Property aesWP_PositionsNummer() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_PositionsNummerColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_PositionsNummer in Tabelle tblDakosy_AES_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_PositionsNummerColumn) = value End Set End Property _ Public Property aesWP_WarennummerKN8() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerKN8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_WarennummerKN8 in Tabelle tblDakosy_AES_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerKN8Column) = value End Set End Property _ Public Property aesWP_WarennummerTARIC() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerTARICColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_WarennummerTARIC in Tabelle tblDakosy_AES_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerTARICColumn) = value End Set End Property _ Public Property aesWP_WarennummerZusatz1() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerZusatz1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_WarennummerZusatz1 in Tabelle tblDakosy_AES_Warenpositi"& _ "on ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerZusatz1Column) = value End Set End Property _ Public Property aesWP_WarennummerZusatz2() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerZusatz2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_WarennummerZusatz2 in Tabelle tblDakosy_AES_Warenpositi"& _ "on ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerZusatz2Column) = value End Set End Property _ Public Property aesWP_WarennummerNational() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerNationalColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_WarennummerNational in Tabelle tblDakosy_AES_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerNationalColumn) = value End Set End Property _ Public Property aesWP_Warenbezeichnung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Warenbezeichnung in Tabelle tblDakosy_AES_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarenbezeichnungColumn) = value End Set End Property _ Public Property aesWP_RegisternummerFremdsystem() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_RegisternummerFremdsystemColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_RegisternummerFremdsystem in Tabelle tblDakosy_AES_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_RegisternummerFremdsystemColumn) = value End Set End Property _ Public Property aesWP_Vermerk() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Vermerk in Tabelle tblDakosy_AES_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VermerkColumn) = value End Set End Property _ Public Property aesWP_KennungSendung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_KennungSendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_KennungSendung in Tabelle tblDakosy_AES_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_KennungSendungColumn) = value End Set End Property _ Public Property aesWP_UrsprungsbundeslandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_UrsprungsbundeslandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_UrsprungsbundeslandCode in Tabelle tblDakosy_AES_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_UrsprungsbundeslandCodeColumn) = value End Set End Property _ Public Property aesWP_Eigenmasse() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EigenmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Eigenmasse in Tabelle tblDakosy_AES_Warenposition ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EigenmasseColumn) = value End Set End Property _ Public Property aesWP_Rohmasse() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_RohmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Rohmasse in Tabelle tblDakosy_AES_Warenposition ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_RohmasseColumn) = value End Set End Property _ Public Property aesWP_Gefahrgutnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_GefahrgutnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Gefahrgutnummer in Tabelle tblDakosy_AES_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_GefahrgutnummerColumn) = value End Set End Property _ Public Property aesWP_ZahlungsweiseBefoerderungskosten() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ZahlungsweiseBefoerderungskostenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_ZahlungsweiseBefoerderungskosten in Tabelle tblDakosy_A"& _ "ES_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ZahlungsweiseBefoerderungskostenColumn) = value End Set End Property _ Public Property aesWP_VerfahrenAngemeldetCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenAngemeldetCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VerfahrenAngemeldetCode in Tabelle tblDakosy_AES_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenAngemeldetCodeColumn) = value End Set End Property _ Public Property aesWP_VerfahrenVorangegangenCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenVorangegangenCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VerfahrenVorangegangenCode in Tabelle tblDakosy_AES_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenVorangegangenCodeColumn) = value End Set End Property _ Public Property aesWP_VerfahrenNationalCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenNationalCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VerfahrenNationalCode in Tabelle tblDakosy_AES_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenNationalCodeColumn) = value End Set End Property _ Public Property aesWP_AusfuhrerstattungVerfahrensCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_AusfuhrerstattungVerfahrensCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_AusfuhrerstattungVerfahrensCode in Tabelle tblDakosy_AE"& _ "S_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_AusfuhrerstattungVerfahrensCodeColumn) = value End Set End Property _ Public Property aesWP_Menge() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_MengeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Menge in Tabelle tblDakosy_AES_Warenposition ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_MengeColumn) = value End Set End Property _ Public Property aesWP_Wert() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Wert in Tabelle tblDakosy_AES_Warenposition ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WertColumn) = value End Set End Property _ Public Property aesWP_VorpapierTypCode1() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VorpapierTypCode1 in Tabelle tblDakosy_AES_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode1Column) = value End Set End Property _ Public Property aesWP_ReferenzID1() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_ReferenzID1 in Tabelle tblDakosy_AES_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID1Column) = value End Set End Property _ Public Property aesWP_Zusatz1() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Zusatz1 in Tabelle tblDakosy_AES_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz1Column) = value End Set End Property _ Public Property aesWP_VorpapierTypCode2() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VorpapierTypCode2 in Tabelle tblDakosy_AES_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode2Column) = value End Set End Property _ Public Property aesWP_ReferenzID2() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_ReferenzID2 in Tabelle tblDakosy_AES_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID2Column) = value End Set End Property _ Public Property aesWP_Zusatz2() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Zusatz2 in Tabelle tblDakosy_AES_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz2Column) = value End Set End Property _ Public Property aesWP_VorpapierTypCode3() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VorpapierTypCode3 in Tabelle tblDakosy_AES_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode3Column) = value End Set End Property _ Public Property aesWP_ReferenzID3() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_ReferenzID3 in Tabelle tblDakosy_AES_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID3Column) = value End Set End Property _ Public Property aesWP_Zusatz3() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Zusatz3 in Tabelle tblDakosy_AES_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz3Column) = value End Set End Property _ Public Property aesWP_VorpapierTypCode4() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VorpapierTypCode4 in Tabelle tblDakosy_AES_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode4Column) = value End Set End Property _ Public Property aesWP_ReferenzID4() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_ReferenzID4 in Tabelle tblDakosy_AES_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID4Column) = value End Set End Property _ Public Property aesWP_Zusatz4() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Zusatz4 in Tabelle tblDakosy_AES_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz4Column) = value End Set End Property _ Public Property aesWP_VorpapierTypCode5() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VorpapierTypCode5 in Tabelle tblDakosy_AES_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode5Column) = value End Set End Property _ Public Property aesWP_ReferenzID5() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_ReferenzID5 in Tabelle tblDakosy_AES_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID5Column) = value End Set End Property _ Public Property aesWP_Zusatz5() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Zusatz5 in Tabelle tblDakosy_AES_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz5Column) = value End Set End Property _ Public Property aesWP_VorpapierTypCode6() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VorpapierTypCode6 in Tabelle tblDakosy_AES_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode6Column) = value End Set End Property _ Public Property aesWP_ReferenzID6() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_ReferenzID6 in Tabelle tblDakosy_AES_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID6Column) = value End Set End Property _ Public Property aesWP_Zusatz6() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Zusatz6 in Tabelle tblDakosy_AES_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz6Column) = value End Set End Property _ Public Property aesWP_VorpapierTypCode7() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VorpapierTypCode7 in Tabelle tblDakosy_AES_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode7Column) = value End Set End Property _ Public Property aesWP_ReferenzID7() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_ReferenzID7 in Tabelle tblDakosy_AES_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID7Column) = value End Set End Property _ Public Property aesWP_Zusatz7() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Zusatz7 in Tabelle tblDakosy_AES_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz7Column) = value End Set End Property _ Public Property aesWP_VorpapierTypCode8() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VorpapierTypCode8 in Tabelle tblDakosy_AES_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode8Column) = value End Set End Property _ Public Property aesWP_ReferenzID8() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_ReferenzID8 in Tabelle tblDakosy_AES_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID8Column) = value End Set End Property _ Public Property aesWP_Zusatz8() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Zusatz8 in Tabelle tblDakosy_AES_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz8Column) = value End Set End Property _ Public Property aesWP_VorpapierTypCode9() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_VorpapierTypCode9 in Tabelle tblDakosy_AES_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode9Column) = value End Set End Property _ Public Property aesWP_ReferenzID9() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_ReferenzID9 in Tabelle tblDakosy_AES_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID9Column) = value End Set End Property _ Public Property aesWP_Zusatz9() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Zusatz9 in Tabelle tblDakosy_AES_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz9Column) = value End Set End Property _ Public Property aesWP_Containernummer1() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Containernummer1 in Tabelle tblDakosy_AES_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer1Column) = value End Set End Property _ Public Property aesWP_Containernummer2() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Containernummer2 in Tabelle tblDakosy_AES_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer2Column) = value End Set End Property _ Public Property aesWP_Containernummer3() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Containernummer3 in Tabelle tblDakosy_AES_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer3Column) = value End Set End Property _ Public Property aesWP_Containernummer4() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_Containernummer4 in Tabelle tblDakosy_AES_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer4Column) = value End Set End Property _ Public Property aesWP_EmpfaengerTeilnehmerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EmpfaengerTeilnehmerEORI in Tabelle tblDakosy_AES_Waren"& _ "position ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerEORIColumn) = value End Set End Property _ Public Property aesWP_EmpfaengerTeilnehmerNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EmpfaengerTeilnehmerNLNR in Tabelle tblDakosy_AES_Waren"& _ "position ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerNLNRColumn) = value End Set End Property _ Public Property aesWP_EmpfaengerTeilnehmerName() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EmpfaengerTeilnehmerName in Tabelle tblDakosy_AES_Waren"& _ "position ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerNameColumn) = value End Set End Property _ Public Property aesWP_EmpfaengerTeilnehmerStrasse() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerStrasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EmpfaengerTeilnehmerStrasse in Tabelle tblDakosy_AES_Wa"& _ "renposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerStrasseColumn) = value End Set End Property _ Public Property aesWP_EmpfaengerTeilnehmerOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EmpfaengerTeilnehmerOrt in Tabelle tblDakosy_AES_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerOrtColumn) = value End Set End Property _ Public Property aesWP_EmpfaengerTeilnehmerPLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerPLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EmpfaengerTeilnehmerPLZ in Tabelle tblDakosy_AES_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerPLZColumn) = value End Set End Property _ Public Property aesWP_EmpfaengerTeilnehmerLandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EmpfaengerTeilnehmerLandCode in Tabelle tblDakosy_AES_W"& _ "arenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerLandCodeColumn) = value End Set End Property _ Public Property aesWP_EndverwenderTeilnehmerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EndverwenderTeilnehmerEORI in Tabelle tblDakosy_AES_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerEORIColumn) = value End Set End Property _ Public Property aesWP_EndverwenderTeilnehmerNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EndverwenderTeilnehmerNLNR in Tabelle tblDakosy_AES_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerNLNRColumn) = value End Set End Property _ Public Property aesWP_EndverwenderTeilnehmerName() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EndverwenderTeilnehmerName in Tabelle tblDakosy_AES_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerNameColumn) = value End Set End Property _ Public Property aesWP_EndverwenderTeilnehmerStrasse() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerStrasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EndverwenderTeilnehmerStrasse in Tabelle tblDakosy_AES_"& _ "Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerStrasseColumn) = value End Set End Property _ Public Property aesWP_EndverwenderTeilnehmerOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EndverwenderTeilnehmerOrt in Tabelle tblDakosy_AES_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerOrtColumn) = value End Set End Property _ Public Property aesWP_EndverwenderTeilnehmerPLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerPLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EndverwenderTeilnehmerPLZ in Tabelle tblDakosy_AES_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerPLZColumn) = value End Set End Property _ Public Property aesWP_EndverwenderTeilnehmerLandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWP_EndverwenderTeilnehmerLandCode in Tabelle tblDakosy_AES"& _ "_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerLandCodeColumn) = value End Set End Property _ Public Function IsaesWP_PositionsNummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_PositionsNummerColumn) End Function _ Public Sub SetaesWP_PositionsNummerNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_PositionsNummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_WarennummerKN8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerKN8Column) End Function _ Public Sub SetaesWP_WarennummerKN8Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerKN8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_WarennummerTARICNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerTARICColumn) End Function _ Public Sub SetaesWP_WarennummerTARICNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerTARICColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_WarennummerZusatz1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerZusatz1Column) End Function _ Public Sub SetaesWP_WarennummerZusatz1Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerZusatz1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_WarennummerZusatz2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerZusatz2Column) End Function _ Public Sub SetaesWP_WarennummerZusatz2Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerZusatz2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_WarennummerNationalNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerNationalColumn) End Function _ Public Sub SetaesWP_WarennummerNationalNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarennummerNationalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_WarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_WarenbezeichnungColumn) End Function _ Public Sub SetaesWP_WarenbezeichnungNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_RegisternummerFremdsystemNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_RegisternummerFremdsystemColumn) End Function _ Public Sub SetaesWP_RegisternummerFremdsystemNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_RegisternummerFremdsystemColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VermerkNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VermerkColumn) End Function _ Public Sub SetaesWP_VermerkNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_KennungSendungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_KennungSendungColumn) End Function _ Public Sub SetaesWP_KennungSendungNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_KennungSendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_UrsprungsbundeslandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_UrsprungsbundeslandCodeColumn) End Function _ Public Sub SetaesWP_UrsprungsbundeslandCodeNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_UrsprungsbundeslandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EigenmasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EigenmasseColumn) End Function _ Public Sub SetaesWP_EigenmasseNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EigenmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_RohmasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_RohmasseColumn) End Function _ Public Sub SetaesWP_RohmasseNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_RohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_GefahrgutnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_GefahrgutnummerColumn) End Function _ Public Sub SetaesWP_GefahrgutnummerNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_GefahrgutnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_ZahlungsweiseBefoerderungskostenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_ZahlungsweiseBefoerderungskostenColumn) End Function _ Public Sub SetaesWP_ZahlungsweiseBefoerderungskostenNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ZahlungsweiseBefoerderungskostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VerfahrenAngemeldetCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenAngemeldetCodeColumn) End Function _ Public Sub SetaesWP_VerfahrenAngemeldetCodeNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenAngemeldetCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VerfahrenVorangegangenCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenVorangegangenCodeColumn) End Function _ Public Sub SetaesWP_VerfahrenVorangegangenCodeNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenVorangegangenCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VerfahrenNationalCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenNationalCodeColumn) End Function _ Public Sub SetaesWP_VerfahrenNationalCodeNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VerfahrenNationalCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_AusfuhrerstattungVerfahrensCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_AusfuhrerstattungVerfahrensCodeColumn) End Function _ Public Sub SetaesWP_AusfuhrerstattungVerfahrensCodeNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_AusfuhrerstattungVerfahrensCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_MengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_MengeColumn) End Function _ Public Sub SetaesWP_MengeNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_MengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_WertNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_WertColumn) End Function _ Public Sub SetaesWP_WertNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_WertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VorpapierTypCode1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode1Column) End Function _ Public Sub SetaesWP_VorpapierTypCode1Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_ReferenzID1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID1Column) End Function _ Public Sub SetaesWP_ReferenzID1Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Zusatz1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz1Column) End Function _ Public Sub SetaesWP_Zusatz1Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VorpapierTypCode2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode2Column) End Function _ Public Sub SetaesWP_VorpapierTypCode2Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_ReferenzID2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID2Column) End Function _ Public Sub SetaesWP_ReferenzID2Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Zusatz2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz2Column) End Function _ Public Sub SetaesWP_Zusatz2Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VorpapierTypCode3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode3Column) End Function _ Public Sub SetaesWP_VorpapierTypCode3Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_ReferenzID3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID3Column) End Function _ Public Sub SetaesWP_ReferenzID3Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Zusatz3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz3Column) End Function _ Public Sub SetaesWP_Zusatz3Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VorpapierTypCode4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode4Column) End Function _ Public Sub SetaesWP_VorpapierTypCode4Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_ReferenzID4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID4Column) End Function _ Public Sub SetaesWP_ReferenzID4Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Zusatz4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz4Column) End Function _ Public Sub SetaesWP_Zusatz4Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VorpapierTypCode5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode5Column) End Function _ Public Sub SetaesWP_VorpapierTypCode5Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_ReferenzID5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID5Column) End Function _ Public Sub SetaesWP_ReferenzID5Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Zusatz5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz5Column) End Function _ Public Sub SetaesWP_Zusatz5Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VorpapierTypCode6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode6Column) End Function _ Public Sub SetaesWP_VorpapierTypCode6Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_ReferenzID6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID6Column) End Function _ Public Sub SetaesWP_ReferenzID6Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Zusatz6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz6Column) End Function _ Public Sub SetaesWP_Zusatz6Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VorpapierTypCode7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode7Column) End Function _ Public Sub SetaesWP_VorpapierTypCode7Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_ReferenzID7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID7Column) End Function _ Public Sub SetaesWP_ReferenzID7Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Zusatz7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz7Column) End Function _ Public Sub SetaesWP_Zusatz7Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VorpapierTypCode8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode8Column) End Function _ Public Sub SetaesWP_VorpapierTypCode8Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_ReferenzID8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID8Column) End Function _ Public Sub SetaesWP_ReferenzID8Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Zusatz8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz8Column) End Function _ Public Sub SetaesWP_Zusatz8Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_VorpapierTypCode9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode9Column) End Function _ Public Sub SetaesWP_VorpapierTypCode9Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_VorpapierTypCode9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_ReferenzID9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID9Column) End Function _ Public Sub SetaesWP_ReferenzID9Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_ReferenzID9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Zusatz9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz9Column) End Function _ Public Sub SetaesWP_Zusatz9Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Zusatz9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Containernummer1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer1Column) End Function _ Public Sub SetaesWP_Containernummer1Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Containernummer2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer2Column) End Function _ Public Sub SetaesWP_Containernummer2Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Containernummer3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer3Column) End Function _ Public Sub SetaesWP_Containernummer3Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_Containernummer4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer4Column) End Function _ Public Sub SetaesWP_Containernummer4Null() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_Containernummer4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EmpfaengerTeilnehmerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerEORIColumn) End Function _ Public Sub SetaesWP_EmpfaengerTeilnehmerEORINull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EmpfaengerTeilnehmerNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerNLNRColumn) End Function _ Public Sub SetaesWP_EmpfaengerTeilnehmerNLNRNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EmpfaengerTeilnehmerNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerNameColumn) End Function _ Public Sub SetaesWP_EmpfaengerTeilnehmerNameNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EmpfaengerTeilnehmerStrasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerStrasseColumn) End Function _ Public Sub SetaesWP_EmpfaengerTeilnehmerStrasseNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerStrasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EmpfaengerTeilnehmerOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerOrtColumn) End Function _ Public Sub SetaesWP_EmpfaengerTeilnehmerOrtNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EmpfaengerTeilnehmerPLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerPLZColumn) End Function _ Public Sub SetaesWP_EmpfaengerTeilnehmerPLZNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerPLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EmpfaengerTeilnehmerLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerLandCodeColumn) End Function _ Public Sub SetaesWP_EmpfaengerTeilnehmerLandCodeNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EmpfaengerTeilnehmerLandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EndverwenderTeilnehmerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerEORIColumn) End Function _ Public Sub SetaesWP_EndverwenderTeilnehmerEORINull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EndverwenderTeilnehmerNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerNLNRColumn) End Function _ Public Sub SetaesWP_EndverwenderTeilnehmerNLNRNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EndverwenderTeilnehmerNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerNameColumn) End Function _ Public Sub SetaesWP_EndverwenderTeilnehmerNameNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EndverwenderTeilnehmerStrasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerStrasseColumn) End Function _ Public Sub SetaesWP_EndverwenderTeilnehmerStrasseNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerStrasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EndverwenderTeilnehmerOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerOrtColumn) End Function _ Public Sub SetaesWP_EndverwenderTeilnehmerOrtNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EndverwenderTeilnehmerPLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerPLZColumn) End Function _ Public Sub SetaesWP_EndverwenderTeilnehmerPLZNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerPLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWP_EndverwenderTeilnehmerLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerLandCodeColumn) End Function _ Public Sub SetaesWP_EndverwenderTeilnehmerLandCodeNull() Me(Me.tabletblDakosy_AES_Warenposition.aesWP_EndverwenderTeilnehmerLandCodeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_AES_WarenpositionPackstueckeRow Inherits Global.System.Data.DataRow Private tabletblDakosy_AES_WarenpositionPackstuecke As tblDakosy_AES_WarenpositionPackstueckeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_AES_WarenpositionPackstuecke = CType(Me.Table,tblDakosy_AES_WarenpositionPackstueckeDataTable) End Sub _ Public Property aesWpPk_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_IdColumn) = value End Set End Property _ Public Property aesWpPk_aesWPId() As Integer Get Return CType(Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_aesWPIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_aesWPIdColumn) = value End Set End Property _ Public Property aesWpPk_aesId() As Integer Get Return CType(Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_aesIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_aesIdColumn) = value End Set End Property _ Public Property aesWpPk_PackstueckeAnzahl() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_PackstueckeAnzahlColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpPk_PackstueckeAnzahl in Tabelle tblDakosy_AES_Warenposit"& _ "ionPackstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_PackstueckeAnzahlColumn) = value End Set End Property _ Public Property aesWpPk_Verpackungsart() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_VerpackungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpPk_Verpackungsart in Tabelle tblDakosy_AES_Warenposition"& _ "Packstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_VerpackungsartColumn) = value End Set End Property _ Public Property aesWpPk_Kennzeichnung() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_KennzeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpPk_Kennzeichnung in Tabelle tblDakosy_AES_WarenpositionP"& _ "ackstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_KennzeichnungColumn) = value End Set End Property _ Public Function IsaesWpPk_PackstueckeAnzahlNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_PackstueckeAnzahlColumn) End Function _ Public Sub SetaesWpPk_PackstueckeAnzahlNull() Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_PackstueckeAnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpPk_VerpackungsartNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_VerpackungsartColumn) End Function _ Public Sub SetaesWpPk_VerpackungsartNull() Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_VerpackungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpPk_KennzeichnungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_KennzeichnungColumn) End Function _ Public Sub SetaesWpPk_KennzeichnungNull() Me(Me.tabletblDakosy_AES_WarenpositionPackstuecke.aesWpPk_KennzeichnungColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_AES_WarenpositionUnterlagenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_AES_WarenpositionUnterlagen As tblDakosy_AES_WarenpositionUnterlagenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_AES_WarenpositionUnterlagen = CType(Me.Table,tblDakosy_AES_WarenpositionUnterlagenDataTable) End Sub _ Public Property aesWpUl_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_IdColumn) = value End Set End Property _ Public Property aesWpUl_aesWPId() As Integer Get Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_aesWPIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_aesWPIdColumn) = value End Set End Property _ Public Property aesWpUl_aesId() As Integer Get Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_aesIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_aesIdColumn) = value End Set End Property _ Public Property aesWpUl_Typ() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_TypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpUl_Typ in Tabelle tblDakosy_AES_WarenpositionUnterlagen "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_TypColumn) = value End Set End Property _ Public Property aesWpUl_QualifierCode() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_QualifierCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpUl_QualifierCode in Tabelle tblDakosy_AES_WarenpositionU"& _ "nterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_QualifierCodeColumn) = value End Set End Property _ Public Property aesWpUl_ReferenzID() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_ReferenzIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpUl_ReferenzID in Tabelle tblDakosy_AES_WarenpositionUnte"& _ "rlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_ReferenzIDColumn) = value End Set End Property _ Public Property aesWpUl_Zusatz() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_ZusatzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpUl_Zusatz in Tabelle tblDakosy_AES_WarenpositionUnterlag"& _ "en ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_ZusatzColumn) = value End Set End Property _ Public Property aesWpUl_Detail() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DetailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpUl_Detail in Tabelle tblDakosy_AES_WarenpositionUnterlag"& _ "en ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DetailColumn) = value End Set End Property _ Public Property aesWpUl_DatumAusstellung() As Date Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DatumAusstellungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpUl_DatumAusstellung in Tabelle tblDakosy_AES_Warenpositi"& _ "onUnterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DatumAusstellungColumn) = value End Set End Property _ Public Property aesWpUl_DatumEndeGueltigkeit() As Date Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DatumEndeGueltigkeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpUl_DatumEndeGueltigkeit in Tabelle tblDakosy_AES_Warenpo"& _ "sitionUnterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DatumEndeGueltigkeitColumn) = value End Set End Property _ Public Property aesWpUl_Wert() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_WertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpUl_Wert in Tabelle tblDakosy_AES_WarenpositionUnterlagen"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_WertColumn) = value End Set End Property _ Public Property aesWpUl_Abschreibungsmenge() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_AbschreibungsmengeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpUl_Abschreibungsmenge in Tabelle tblDakosy_AES_Warenposi"& _ "tionUnterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_AbschreibungsmengeColumn) = value End Set End Property _ Public Property aesWpUl_Masseinheit() As String Get Try Return CType(Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_MasseinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aesWpUl_Masseinheit in Tabelle tblDakosy_AES_WarenpositionUnt"& _ "erlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_MasseinheitColumn) = value End Set End Property _ Public Function IsaesWpUl_TypNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_TypColumn) End Function _ Public Sub SetaesWpUl_TypNull() Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_TypColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpUl_QualifierCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_QualifierCodeColumn) End Function _ Public Sub SetaesWpUl_QualifierCodeNull() Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_QualifierCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpUl_ReferenzIDNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_ReferenzIDColumn) End Function _ Public Sub SetaesWpUl_ReferenzIDNull() Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_ReferenzIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpUl_ZusatzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_ZusatzColumn) End Function _ Public Sub SetaesWpUl_ZusatzNull() Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_ZusatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpUl_DetailNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DetailColumn) End Function _ Public Sub SetaesWpUl_DetailNull() Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DetailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpUl_DatumAusstellungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DatumAusstellungColumn) End Function _ Public Sub SetaesWpUl_DatumAusstellungNull() Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DatumAusstellungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpUl_DatumEndeGueltigkeitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DatumEndeGueltigkeitColumn) End Function _ Public Sub SetaesWpUl_DatumEndeGueltigkeitNull() Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_DatumEndeGueltigkeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpUl_WertNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_WertColumn) End Function _ Public Sub SetaesWpUl_WertNull() Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_WertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpUl_AbschreibungsmengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_AbschreibungsmengeColumn) End Function _ Public Sub SetaesWpUl_AbschreibungsmengeNull() Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_AbschreibungsmengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaesWpUl_MasseinheitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_MasseinheitColumn) End Function _ Public Sub SetaesWpUl_MasseinheitNull() Me(Me.tabletblDakosy_AES_WarenpositionUnterlagen.aesWpUl_MasseinheitColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_EZARow Inherits Global.System.Data.DataRow Private tabletblDakosy_EZA As tblDakosy_EZADataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_EZA = CType(Me.Table,tblDakosy_EZADataTable) End Sub _ Public Property eza_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA.eza_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA.eza_IdColumn) = value End Set End Property _ Public Property eza_Status() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA.eza_StatusColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA.eza_StatusColumn) = value End Set End Property _ Public Property eza_Status_KEWILL_Equivalent() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA.eza_Status_KEWILL_EquivalentColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA.eza_Status_KEWILL_EquivalentColumn) = value End Set End Property _ Public Property eza_dyaArt() As String Get Return CType(Me(Me.tabletblDakosy_EZA.eza_dyaArtColumn),String) End Get Set Me(Me.tabletblDakosy_EZA.eza_dyaArtColumn) = value End Set End Property _ Public Property eza_dyaAnmID() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA.eza_dyaAnmIDColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA.eza_dyaAnmIDColumn) = value End Set End Property _ Public Property eza_ANR() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ANRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ANR in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ANRColumn) = value End Set End Property _ Public Property eza_MRN() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_MRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_MRN in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_MRNColumn) = value End Set End Property _ Public Property eza_Erstellung() As Date Get Return CType(Me(Me.tabletblDakosy_EZA.eza_ErstellungColumn),Date) End Get Set Me(Me.tabletblDakosy_EZA.eza_ErstellungColumn) = value End Set End Property _ Public Property eza_Erstellung_SB() As Integer Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_Erstellung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Erstellung_SB in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_Erstellung_SBColumn) = value End Set End Property _ Public Property eza_LetzteBearbeitung() As Date Get Return CType(Me(Me.tabletblDakosy_EZA.eza_LetzteBearbeitungColumn),Date) End Get Set Me(Me.tabletblDakosy_EZA.eza_LetzteBearbeitungColumn) = value End Set End Property _ Public Property eza_LetzteBearbeitung_SB() As Integer Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_LetzteBearbeitung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_LetzteBearbeitung_SB in Tabelle tblDakosy_EZA ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_LetzteBearbeitung_SBColumn) = value End Set End Property _ Public Property eza_firma() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_firmaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_firma in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_firmaColumn) = value End Set End Property _ Public Property eza_niederlassung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_niederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_niederlassung in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_niederlassungColumn) = value End Set End Property _ Public Property eza_Trans_Partner() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_Trans_PartnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Trans_Partner in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_Trans_PartnerColumn) = value End Set End Property _ Public Property eza_Trans_Div1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_Trans_Div1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Trans_Div1 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_Trans_Div1Column) = value End Set End Property _ Public Property eza_Trans_Div2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_Trans_Div2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Trans_Div2 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_Trans_Div2Column) = value End Set End Property _ Public Property eza_Trans_Div3() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_Trans_Div3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Trans_Div3 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_Trans_Div3Column) = value End Set End Property _ Public Property eza_Trans_Referenz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_Trans_ReferenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Trans_Referenz in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_Trans_ReferenzColumn) = value End Set End Property _ Public Property eza_Trans_DatumZeit() As Date Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_Trans_DatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Trans_DatumZeit in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_Trans_DatumZeitColumn) = value End Set End Property _ Public Property eza_Trans_Version() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_Trans_VersionColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Trans_Version in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_Trans_VersionColumn) = value End Set End Property _ Public Property eza_NachrichtenSenderTIN() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_NachrichtenSenderTINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_NachrichtenSenderTIN in Tabelle tblDakosy_EZA ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_NachrichtenSenderTINColumn) = value End Set End Property _ Public Property eza_NachrichtenSenderNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_NachrichtenSenderNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_NachrichtenSenderNLNR in Tabelle tblDakosy_EZA ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_NachrichtenSenderNLNRColumn) = value End Set End Property _ Public Property eza_NachrichtenempfaengerDST() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_NachrichtenempfaengerDSTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_NachrichtenempfaengerDST in Tabelle tblDakosy_EZA ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_NachrichtenempfaengerDSTColumn) = value End Set End Property _ Public Property eza_ObjectName() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ObjectNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ObjectName in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ObjectNameColumn) = value End Set End Property _ Public Property eza_ObjectAlias() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ObjectAliasColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ObjectAlias in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ObjectAliasColumn) = value End Set End Property _ Public Property eza_BezugsnummerVorblendung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_BezugsnummerVorblendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_BezugsnummerVorblendung in Tabelle tblDakosy_EZA ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_BezugsnummerVorblendungColumn) = value End Set End Property _ Public Property eza_Bearbeiter() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_BearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Bearbeiter in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_BearbeiterColumn) = value End Set End Property _ Public Property eza_AnmeldungArt() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AnmeldungArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_AnmeldungArt in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AnmeldungArtColumn) = value End Set End Property _ Public Property eza_CompliancePruefung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_CompliancePruefungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_CompliancePruefung in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_CompliancePruefungColumn) = value End Set End Property _ Public Property eza_AnfBemerkungStatusanzeige() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AnfBemerkungStatusanzeigeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_AnfBemerkungStatusanzeige in Tabelle tblDakosy_EZA ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AnfBemerkungStatusanzeigeColumn) = value End Set End Property _ Public Property eza_AdressierteZollstelle() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AdressierteZollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_AdressierteZollstelle in Tabelle tblDakosy_EZA ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AdressierteZollstelleColumn) = value End Set End Property _ Public Property eza_AnmelderistEmpfaenger() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AnmelderistEmpfaengerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_AnmelderistEmpfaenger in Tabelle tblDakosy_EZA ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AnmelderistEmpfaengerColumn) = value End Set End Property _ Public Property eza_VertretungsVerhaeltnisCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_VertretungsVerhaeltnisCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_VertretungsVerhaeltnisCode in Tabelle tblDakosy_EZA ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_VertretungsVerhaeltnisCodeColumn) = value End Set End Property _ Public Property eza_Vorsteuerabzug() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_VorsteuerabzugColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Vorsteuerabzug in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_VorsteuerabzugColumn) = value End Set End Property _ Public Property eza_AnmeldenderBearbeiterName() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_AnmeldenderBearbeiterName in Tabelle tblDakosy_EZA ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterNameColumn) = value End Set End Property _ Public Property eza_AnmeldenderBearbeiterTel() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterTelColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_AnmeldenderBearbeiterTel in Tabelle tblDakosy_EZA ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterTelColumn) = value End Set End Property _ Public Property eza_AnmeldenderBearbeiterStellung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterStellungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_AnmeldenderBearbeiterStellung in Tabelle tblDakosy_EZA is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterStellungColumn) = value End Set End Property _ Public Property eza_AnmeldenderBearbeiterEMail() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterEMailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_AnmeldenderBearbeiterEMail in Tabelle tblDakosy_EZA ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterEMailColumn) = value End Set End Property _ Public Property eza_FiskalvertretungKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_FiskalvertretungKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_FiskalvertretungKz in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_FiskalvertretungKzColumn) = value End Set End Property _ Public Property eza_Ausstellungsort() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AusstellungsortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Ausstellungsort in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AusstellungsortColumn) = value End Set End Property _ Public Property eza_ZollrechtlicherStatus() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ZollrechtlicherStatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ZollrechtlicherStatus in Tabelle tblDakosy_EZA ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ZollrechtlicherStatusColumn) = value End Set End Property _ Public Property eza_GesamtRohmasse() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_GesamtRohmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_GesamtRohmasse in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_GesamtRohmasseColumn) = value End Set End Property _ Public Property eza_VerfahrenBeantragtCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_VerfahrenBeantragtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_VerfahrenBeantragtCode in Tabelle tblDakosy_EZA ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_VerfahrenBeantragtCodeColumn) = value End Set End Property _ Public Property eza_VerkehrszweigInland() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_VerkehrszweigInlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_VerkehrszweigInland in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_VerkehrszweigInlandColumn) = value End Set End Property _ Public Property eza_VerkehrszweigGrenze() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_VerkehrszweigGrenzeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_VerkehrszweigGrenze in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_VerkehrszweigGrenzeColumn) = value End Set End Property _ Public Property eza_VersendungsLandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_VersendungsLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_VersendungsLandCode in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_VersendungsLandCodeColumn) = value End Set End Property _ Public Property eza_Bestimmungsbundesland() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_BestimmungsbundeslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Bestimmungsbundesland in Tabelle tblDakosy_EZA ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_BestimmungsbundeslandColumn) = value End Set End Property _ Public Property eza_Bestimmungsland() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_BestimmungslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Bestimmungsland in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_BestimmungslandColumn) = value End Set End Property _ Public Property eza_KennzeichenNameBefoerderungsmittelAnkunft() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_KennzeichenNameBefoerderungsmittelAnkunftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_KennzeichenNameBefoerderungsmittelAnkunft in Tabelle tblD"& _ "akosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_KennzeichenNameBefoerderungsmittelAnkunftColumn) = value End Set End Property _ Public Property eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode in Tabell"& _ "e tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCodeColumn) = value End Set End Property _ Public Property eza_BeförderungsmittelGrenzeArt() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_BeförderungsmittelGrenzeArt in Tabelle tblDakosy_EZA ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeArtColumn) = value End Set End Property _ Public Property eza_BeförderungsmittelGrenze() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_BeförderungsmittelGrenze in Tabelle tblDakosy_EZA ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeColumn) = value End Set End Property _ Public Property eza_LieferbedingungCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_LieferbedingungCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_LieferbedingungCode in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_LieferbedingungCodeColumn) = value End Set End Property _ Public Property eza_LieferbedingungText() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_LieferbedingungTextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_LieferbedingungText in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_LieferbedingungTextColumn) = value End Set End Property _ Public Property eza_LieferbedingungSchluessel() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_LieferbedingungSchluesselColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_LieferbedingungSchluessel in Tabelle tblDakosy_EZA ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_LieferbedingungSchluesselColumn) = value End Set End Property _ Public Property eza_LieferbedingungOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_LieferbedingungOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_LieferbedingungOrt in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_LieferbedingungOrtColumn) = value End Set End Property _ Public Property eza_VorpapierArtCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_VorpapierArtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_VorpapierArtCode in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_VorpapierArtCodeColumn) = value End Set End Property _ Public Property eza_VorpapierNr() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_VorpapierNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_VorpapierNr in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_VorpapierNrColumn) = value End Set End Property _ Public Property eza_ArtGeschaeftCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ArtGeschaeftCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ArtGeschaeftCode in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ArtGeschaeftCodeColumn) = value End Set End Property _ Public Property eza_Statistikstatus() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_StatistikstatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Statistikstatus in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_StatistikstatusColumn) = value End Set End Property _ Public Property eza_Warenort() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_WarenortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Warenort in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_WarenortColumn) = value End Set End Property _ Public Property eza_Rechnungspreis() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_RechnungspreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Rechnungspreis in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_RechnungspreisColumn) = value End Set End Property _ Public Property eza_Rechnungswaehrung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_RechnungswaehrungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Rechnungswaehrung in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_RechnungswaehrungColumn) = value End Set End Property _ Public Property eza_DV1Kz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1KzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1Kz in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1KzColumn) = value End Set End Property _ Public Property eza_DV1Vertretungsverhaeltnis() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1VertretungsverhaeltnisColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1Vertretungsverhaeltnis in Tabelle tblDakosy_EZA ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1VertretungsverhaeltnisColumn) = value End Set End Property _ Public Property eza_DV1FruehereEntscheidungen() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1FruehereEntscheidungenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1FruehereEntscheidungen in Tabelle tblDakosy_EZA ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1FruehereEntscheidungenColumn) = value End Set End Property _ Public Property eza_DV1Verbundenheit() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1VerbundenheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1Verbundenheit in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1VerbundenheitColumn) = value End Set End Property _ Public Property eza_DV1VerbungenheitEinzelheiten() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1VerbungenheitEinzelheitenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1VerbungenheitEinzelheiten in Tabelle tblDakosy_EZA ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1VerbungenheitEinzelheitenColumn) = value End Set End Property _ Public Property eza_DV1EinschraenkungenKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1EinschraenkungenKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1EinschraenkungenKz in Tabelle tblDakosy_EZA ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1EinschraenkungenKzColumn) = value End Set End Property _ Public Property eza_DV1BedingungenLeistungenKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1BedingungenLeistungenKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1BedingungenLeistungenKz in Tabelle tblDakosy_EZA ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1BedingungenLeistungenKzColumn) = value End Set End Property _ Public Property eza_DV1BedingungenLeistungenArt() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1BedingungenLeistungenArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1BedingungenLeistungenArt in Tabelle tblDakosy_EZA ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1BedingungenLeistungenArtColumn) = value End Set End Property _ Public Property eza_DV1LizenzgebuehrenKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1LizenzgebuehrenKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1LizenzgebuehrenKz in Tabelle tblDakosy_EZA ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1LizenzgebuehrenKzColumn) = value End Set End Property _ Public Property eza_DV1LizenzgebuehrenUmstand() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1LizenzgebuehrenUmstandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1LizenzgebuehrenUmstand in Tabelle tblDakosy_EZA ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1LizenzgebuehrenUmstandColumn) = value End Set End Property _ Public Property eza_DV1SpezielleVereinbarungKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1SpezielleVereinbarungKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1SpezielleVereinbarungKz in Tabelle tblDakosy_EZA ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1SpezielleVereinbarungKzColumn) = value End Set End Property _ Public Property eza_DV1SpezielleVereinbarungUmstand() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_DV1SpezielleVereinbarungUmstandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_DV1SpezielleVereinbarungUmstand in Tabelle tblDakosy_EZA "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_DV1SpezielleVereinbarungUmstandColumn) = value End Set End Property _ Public Property eza_ZusatzangabenAnmeldung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ZusatzangabenAnmeldungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ZusatzangabenAnmeldung in Tabelle tblDakosy_EZA ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ZusatzangabenAnmeldungColumn) = value End Set End Property _ Public Property eza_KzAutoBestaetigung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_KzAutoBestaetigungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_KzAutoBestaetigung in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_KzAutoBestaetigungColumn) = value End Set End Property _ Public Property eza_AnschreibungDatum() As Date Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AnschreibungDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_AnschreibungDatum in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AnschreibungDatumColumn) = value End Set End Property _ Public Property eza_Eingangszollstelle() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_EingangszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Eingangszollstelle in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_EingangszollstelleColumn) = value End Set End Property _ Public Property eza_Zahlungsart() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ZahlungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Zahlungsart in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ZahlungsartColumn) = value End Set End Property _ Public Property eza_ContainerNr1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ContainerNr1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ContainerNr1 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ContainerNr1Column) = value End Set End Property _ Public Property eza_ContainerNr2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ContainerNr2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ContainerNr2 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ContainerNr2Column) = value End Set End Property _ Public Property eza_ContainerNr3() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ContainerNr3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ContainerNr3 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ContainerNr3Column) = value End Set End Property _ Public Property eza_ContainerNr4() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ContainerNr4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ContainerNr4 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ContainerNr4Column) = value End Set End Property _ Public Property eza_ContainerNr5() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ContainerNr5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ContainerNr5 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ContainerNr5Column) = value End Set End Property _ Public Property eza_ContainerNr6() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ContainerNr6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ContainerNr6 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ContainerNr6Column) = value End Set End Property _ Public Property eza_ContainerNr7() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ContainerNr7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ContainerNr7 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ContainerNr7Column) = value End Set End Property _ Public Property eza_ContainerNr8() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ContainerNr8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ContainerNr8 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ContainerNr8Column) = value End Set End Property _ Public Property eza_ContainerNr9() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_ContainerNr9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_ContainerNr9 in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_ContainerNr9Column) = value End Set End Property _ Public Property eza_BeendigungsanteilArtCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_BeendigungsanteilArtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_BeendigungsanteilArtCode in Tabelle tblDakosy_EZA ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_BeendigungsanteilArtCodeColumn) = value End Set End Property _ Public Property eza_BewilligungsIDZLAVUV() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_BewilligungsIDZLAVUVColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_BewilligungsIDZLAVUV in Tabelle tblDakosy_EZA ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_BewilligungsIDZLAVUVColumn) = value End Set End Property _ Public Property eza_BezugsnummerBEAnteilZL() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_BezugsnummerBEAnteilZLColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_BezugsnummerBEAnteilZL in Tabelle tblDakosy_EZA ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_BezugsnummerBEAnteilZLColumn) = value End Set End Property _ Public Property eza_UstIdAnmelder() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_UstIdAnmelderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_UstIdAnmelder in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_UstIdAnmelderColumn) = value End Set End Property _ Public Property eza_FinanzamtAnmelder() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_FinanzamtAnmelderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_FinanzamtAnmelder in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_FinanzamtAnmelderColumn) = value End Set End Property _ Public Property eza_Anmeldedatum() As Date Get Try Return CType(Me(Me.tabletblDakosy_EZA.eza_AnmeldedatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eza_Anmeldedatum in Tabelle tblDakosy_EZA ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA.eza_AnmeldedatumColumn) = value End Set End Property _ Public Function Iseza_ANRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ANRColumn) End Function _ Public Sub Seteza_ANRNull() Me(Me.tabletblDakosy_EZA.eza_ANRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_MRNNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_MRNColumn) End Function _ Public Sub Seteza_MRNNull() Me(Me.tabletblDakosy_EZA.eza_MRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_Erstellung_SBNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_Erstellung_SBColumn) End Function _ Public Sub Seteza_Erstellung_SBNull() Me(Me.tabletblDakosy_EZA.eza_Erstellung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_LetzteBearbeitung_SBNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_LetzteBearbeitung_SBColumn) End Function _ Public Sub Seteza_LetzteBearbeitung_SBNull() Me(Me.tabletblDakosy_EZA.eza_LetzteBearbeitung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_firmaNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_firmaColumn) End Function _ Public Sub Seteza_firmaNull() Me(Me.tabletblDakosy_EZA.eza_firmaColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_niederlassungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_niederlassungColumn) End Function _ Public Sub Seteza_niederlassungNull() Me(Me.tabletblDakosy_EZA.eza_niederlassungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_Trans_PartnerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_Trans_PartnerColumn) End Function _ Public Sub Seteza_Trans_PartnerNull() Me(Me.tabletblDakosy_EZA.eza_Trans_PartnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_Trans_Div1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_Trans_Div1Column) End Function _ Public Sub Seteza_Trans_Div1Null() Me(Me.tabletblDakosy_EZA.eza_Trans_Div1Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_Trans_Div2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_Trans_Div2Column) End Function _ Public Sub Seteza_Trans_Div2Null() Me(Me.tabletblDakosy_EZA.eza_Trans_Div2Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_Trans_Div3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_Trans_Div3Column) End Function _ Public Sub Seteza_Trans_Div3Null() Me(Me.tabletblDakosy_EZA.eza_Trans_Div3Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_Trans_ReferenzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_Trans_ReferenzColumn) End Function _ Public Sub Seteza_Trans_ReferenzNull() Me(Me.tabletblDakosy_EZA.eza_Trans_ReferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_Trans_DatumZeitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_Trans_DatumZeitColumn) End Function _ Public Sub Seteza_Trans_DatumZeitNull() Me(Me.tabletblDakosy_EZA.eza_Trans_DatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_Trans_VersionNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_Trans_VersionColumn) End Function _ Public Sub Seteza_Trans_VersionNull() Me(Me.tabletblDakosy_EZA.eza_Trans_VersionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_NachrichtenSenderTINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_NachrichtenSenderTINColumn) End Function _ Public Sub Seteza_NachrichtenSenderTINNull() Me(Me.tabletblDakosy_EZA.eza_NachrichtenSenderTINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_NachrichtenSenderNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_NachrichtenSenderNLNRColumn) End Function _ Public Sub Seteza_NachrichtenSenderNLNRNull() Me(Me.tabletblDakosy_EZA.eza_NachrichtenSenderNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_NachrichtenempfaengerDSTNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_NachrichtenempfaengerDSTColumn) End Function _ Public Sub Seteza_NachrichtenempfaengerDSTNull() Me(Me.tabletblDakosy_EZA.eza_NachrichtenempfaengerDSTColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ObjectNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ObjectNameColumn) End Function _ Public Sub Seteza_ObjectNameNull() Me(Me.tabletblDakosy_EZA.eza_ObjectNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ObjectAliasNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ObjectAliasColumn) End Function _ Public Sub Seteza_ObjectAliasNull() Me(Me.tabletblDakosy_EZA.eza_ObjectAliasColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_BezugsnummerVorblendungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_BezugsnummerVorblendungColumn) End Function _ Public Sub Seteza_BezugsnummerVorblendungNull() Me(Me.tabletblDakosy_EZA.eza_BezugsnummerVorblendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_BearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_BearbeiterColumn) End Function _ Public Sub Seteza_BearbeiterNull() Me(Me.tabletblDakosy_EZA.eza_BearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AnmeldungArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AnmeldungArtColumn) End Function _ Public Sub Seteza_AnmeldungArtNull() Me(Me.tabletblDakosy_EZA.eza_AnmeldungArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_CompliancePruefungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_CompliancePruefungColumn) End Function _ Public Sub Seteza_CompliancePruefungNull() Me(Me.tabletblDakosy_EZA.eza_CompliancePruefungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AnfBemerkungStatusanzeigeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AnfBemerkungStatusanzeigeColumn) End Function _ Public Sub Seteza_AnfBemerkungStatusanzeigeNull() Me(Me.tabletblDakosy_EZA.eza_AnfBemerkungStatusanzeigeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AdressierteZollstelleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AdressierteZollstelleColumn) End Function _ Public Sub Seteza_AdressierteZollstelleNull() Me(Me.tabletblDakosy_EZA.eza_AdressierteZollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AnmelderistEmpfaengerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AnmelderistEmpfaengerColumn) End Function _ Public Sub Seteza_AnmelderistEmpfaengerNull() Me(Me.tabletblDakosy_EZA.eza_AnmelderistEmpfaengerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_VertretungsVerhaeltnisCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_VertretungsVerhaeltnisCodeColumn) End Function _ Public Sub Seteza_VertretungsVerhaeltnisCodeNull() Me(Me.tabletblDakosy_EZA.eza_VertretungsVerhaeltnisCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_VorsteuerabzugNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_VorsteuerabzugColumn) End Function _ Public Sub Seteza_VorsteuerabzugNull() Me(Me.tabletblDakosy_EZA.eza_VorsteuerabzugColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AnmeldenderBearbeiterNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterNameColumn) End Function _ Public Sub Seteza_AnmeldenderBearbeiterNameNull() Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AnmeldenderBearbeiterTelNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterTelColumn) End Function _ Public Sub Seteza_AnmeldenderBearbeiterTelNull() Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterTelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AnmeldenderBearbeiterStellungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterStellungColumn) End Function _ Public Sub Seteza_AnmeldenderBearbeiterStellungNull() Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterStellungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AnmeldenderBearbeiterEMailNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterEMailColumn) End Function _ Public Sub Seteza_AnmeldenderBearbeiterEMailNull() Me(Me.tabletblDakosy_EZA.eza_AnmeldenderBearbeiterEMailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_FiskalvertretungKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_FiskalvertretungKzColumn) End Function _ Public Sub Seteza_FiskalvertretungKzNull() Me(Me.tabletblDakosy_EZA.eza_FiskalvertretungKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AusstellungsortNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AusstellungsortColumn) End Function _ Public Sub Seteza_AusstellungsortNull() Me(Me.tabletblDakosy_EZA.eza_AusstellungsortColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ZollrechtlicherStatusNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ZollrechtlicherStatusColumn) End Function _ Public Sub Seteza_ZollrechtlicherStatusNull() Me(Me.tabletblDakosy_EZA.eza_ZollrechtlicherStatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_GesamtRohmasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_GesamtRohmasseColumn) End Function _ Public Sub Seteza_GesamtRohmasseNull() Me(Me.tabletblDakosy_EZA.eza_GesamtRohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_VerfahrenBeantragtCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_VerfahrenBeantragtCodeColumn) End Function _ Public Sub Seteza_VerfahrenBeantragtCodeNull() Me(Me.tabletblDakosy_EZA.eza_VerfahrenBeantragtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_VerkehrszweigInlandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_VerkehrszweigInlandColumn) End Function _ Public Sub Seteza_VerkehrszweigInlandNull() Me(Me.tabletblDakosy_EZA.eza_VerkehrszweigInlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_VerkehrszweigGrenzeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_VerkehrszweigGrenzeColumn) End Function _ Public Sub Seteza_VerkehrszweigGrenzeNull() Me(Me.tabletblDakosy_EZA.eza_VerkehrszweigGrenzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_VersendungsLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_VersendungsLandCodeColumn) End Function _ Public Sub Seteza_VersendungsLandCodeNull() Me(Me.tabletblDakosy_EZA.eza_VersendungsLandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_BestimmungsbundeslandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_BestimmungsbundeslandColumn) End Function _ Public Sub Seteza_BestimmungsbundeslandNull() Me(Me.tabletblDakosy_EZA.eza_BestimmungsbundeslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_BestimmungslandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_BestimmungslandColumn) End Function _ Public Sub Seteza_BestimmungslandNull() Me(Me.tabletblDakosy_EZA.eza_BestimmungslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_KennzeichenNameBefoerderungsmittelAnkunftNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_KennzeichenNameBefoerderungsmittelAnkunftColumn) End Function _ Public Sub Seteza_KennzeichenNameBefoerderungsmittelAnkunftNull() Me(Me.tabletblDakosy_EZA.eza_KennzeichenNameBefoerderungsmittelAnkunftColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_BeförderungsmittelGrenzeStaatszugehörigkeitCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCodeColumn) End Function _ Public Sub Seteza_BeförderungsmittelGrenzeStaatszugehörigkeitCodeNull() Me(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_BeförderungsmittelGrenzeArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeArtColumn) End Function _ Public Sub Seteza_BeförderungsmittelGrenzeArtNull() Me(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_BeförderungsmittelGrenzeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeColumn) End Function _ Public Sub Seteza_BeförderungsmittelGrenzeNull() Me(Me.tabletblDakosy_EZA.eza_BeförderungsmittelGrenzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_LieferbedingungCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_LieferbedingungCodeColumn) End Function _ Public Sub Seteza_LieferbedingungCodeNull() Me(Me.tabletblDakosy_EZA.eza_LieferbedingungCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_LieferbedingungTextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_LieferbedingungTextColumn) End Function _ Public Sub Seteza_LieferbedingungTextNull() Me(Me.tabletblDakosy_EZA.eza_LieferbedingungTextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_LieferbedingungSchluesselNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_LieferbedingungSchluesselColumn) End Function _ Public Sub Seteza_LieferbedingungSchluesselNull() Me(Me.tabletblDakosy_EZA.eza_LieferbedingungSchluesselColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_LieferbedingungOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_LieferbedingungOrtColumn) End Function _ Public Sub Seteza_LieferbedingungOrtNull() Me(Me.tabletblDakosy_EZA.eza_LieferbedingungOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_VorpapierArtCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_VorpapierArtCodeColumn) End Function _ Public Sub Seteza_VorpapierArtCodeNull() Me(Me.tabletblDakosy_EZA.eza_VorpapierArtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_VorpapierNrNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_VorpapierNrColumn) End Function _ Public Sub Seteza_VorpapierNrNull() Me(Me.tabletblDakosy_EZA.eza_VorpapierNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ArtGeschaeftCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ArtGeschaeftCodeColumn) End Function _ Public Sub Seteza_ArtGeschaeftCodeNull() Me(Me.tabletblDakosy_EZA.eza_ArtGeschaeftCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_StatistikstatusNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_StatistikstatusColumn) End Function _ Public Sub Seteza_StatistikstatusNull() Me(Me.tabletblDakosy_EZA.eza_StatistikstatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_WarenortNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_WarenortColumn) End Function _ Public Sub Seteza_WarenortNull() Me(Me.tabletblDakosy_EZA.eza_WarenortColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_RechnungspreisNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_RechnungspreisColumn) End Function _ Public Sub Seteza_RechnungspreisNull() Me(Me.tabletblDakosy_EZA.eza_RechnungspreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_RechnungswaehrungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_RechnungswaehrungColumn) End Function _ Public Sub Seteza_RechnungswaehrungNull() Me(Me.tabletblDakosy_EZA.eza_RechnungswaehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1KzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1KzColumn) End Function _ Public Sub Seteza_DV1KzNull() Me(Me.tabletblDakosy_EZA.eza_DV1KzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1VertretungsverhaeltnisNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1VertretungsverhaeltnisColumn) End Function _ Public Sub Seteza_DV1VertretungsverhaeltnisNull() Me(Me.tabletblDakosy_EZA.eza_DV1VertretungsverhaeltnisColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1FruehereEntscheidungenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1FruehereEntscheidungenColumn) End Function _ Public Sub Seteza_DV1FruehereEntscheidungenNull() Me(Me.tabletblDakosy_EZA.eza_DV1FruehereEntscheidungenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1VerbundenheitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1VerbundenheitColumn) End Function _ Public Sub Seteza_DV1VerbundenheitNull() Me(Me.tabletblDakosy_EZA.eza_DV1VerbundenheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1VerbungenheitEinzelheitenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1VerbungenheitEinzelheitenColumn) End Function _ Public Sub Seteza_DV1VerbungenheitEinzelheitenNull() Me(Me.tabletblDakosy_EZA.eza_DV1VerbungenheitEinzelheitenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1EinschraenkungenKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1EinschraenkungenKzColumn) End Function _ Public Sub Seteza_DV1EinschraenkungenKzNull() Me(Me.tabletblDakosy_EZA.eza_DV1EinschraenkungenKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1BedingungenLeistungenKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1BedingungenLeistungenKzColumn) End Function _ Public Sub Seteza_DV1BedingungenLeistungenKzNull() Me(Me.tabletblDakosy_EZA.eza_DV1BedingungenLeistungenKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1BedingungenLeistungenArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1BedingungenLeistungenArtColumn) End Function _ Public Sub Seteza_DV1BedingungenLeistungenArtNull() Me(Me.tabletblDakosy_EZA.eza_DV1BedingungenLeistungenArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1LizenzgebuehrenKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1LizenzgebuehrenKzColumn) End Function _ Public Sub Seteza_DV1LizenzgebuehrenKzNull() Me(Me.tabletblDakosy_EZA.eza_DV1LizenzgebuehrenKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1LizenzgebuehrenUmstandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1LizenzgebuehrenUmstandColumn) End Function _ Public Sub Seteza_DV1LizenzgebuehrenUmstandNull() Me(Me.tabletblDakosy_EZA.eza_DV1LizenzgebuehrenUmstandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1SpezielleVereinbarungKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1SpezielleVereinbarungKzColumn) End Function _ Public Sub Seteza_DV1SpezielleVereinbarungKzNull() Me(Me.tabletblDakosy_EZA.eza_DV1SpezielleVereinbarungKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_DV1SpezielleVereinbarungUmstandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_DV1SpezielleVereinbarungUmstandColumn) End Function _ Public Sub Seteza_DV1SpezielleVereinbarungUmstandNull() Me(Me.tabletblDakosy_EZA.eza_DV1SpezielleVereinbarungUmstandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ZusatzangabenAnmeldungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ZusatzangabenAnmeldungColumn) End Function _ Public Sub Seteza_ZusatzangabenAnmeldungNull() Me(Me.tabletblDakosy_EZA.eza_ZusatzangabenAnmeldungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_KzAutoBestaetigungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_KzAutoBestaetigungColumn) End Function _ Public Sub Seteza_KzAutoBestaetigungNull() Me(Me.tabletblDakosy_EZA.eza_KzAutoBestaetigungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AnschreibungDatumNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AnschreibungDatumColumn) End Function _ Public Sub Seteza_AnschreibungDatumNull() Me(Me.tabletblDakosy_EZA.eza_AnschreibungDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_EingangszollstelleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_EingangszollstelleColumn) End Function _ Public Sub Seteza_EingangszollstelleNull() Me(Me.tabletblDakosy_EZA.eza_EingangszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ZahlungsartNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ZahlungsartColumn) End Function _ Public Sub Seteza_ZahlungsartNull() Me(Me.tabletblDakosy_EZA.eza_ZahlungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ContainerNr1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ContainerNr1Column) End Function _ Public Sub Seteza_ContainerNr1Null() Me(Me.tabletblDakosy_EZA.eza_ContainerNr1Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ContainerNr2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ContainerNr2Column) End Function _ Public Sub Seteza_ContainerNr2Null() Me(Me.tabletblDakosy_EZA.eza_ContainerNr2Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ContainerNr3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ContainerNr3Column) End Function _ Public Sub Seteza_ContainerNr3Null() Me(Me.tabletblDakosy_EZA.eza_ContainerNr3Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ContainerNr4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ContainerNr4Column) End Function _ Public Sub Seteza_ContainerNr4Null() Me(Me.tabletblDakosy_EZA.eza_ContainerNr4Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ContainerNr5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ContainerNr5Column) End Function _ Public Sub Seteza_ContainerNr5Null() Me(Me.tabletblDakosy_EZA.eza_ContainerNr5Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ContainerNr6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ContainerNr6Column) End Function _ Public Sub Seteza_ContainerNr6Null() Me(Me.tabletblDakosy_EZA.eza_ContainerNr6Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ContainerNr7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ContainerNr7Column) End Function _ Public Sub Seteza_ContainerNr7Null() Me(Me.tabletblDakosy_EZA.eza_ContainerNr7Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ContainerNr8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ContainerNr8Column) End Function _ Public Sub Seteza_ContainerNr8Null() Me(Me.tabletblDakosy_EZA.eza_ContainerNr8Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_ContainerNr9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_ContainerNr9Column) End Function _ Public Sub Seteza_ContainerNr9Null() Me(Me.tabletblDakosy_EZA.eza_ContainerNr9Column) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_BeendigungsanteilArtCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_BeendigungsanteilArtCodeColumn) End Function _ Public Sub Seteza_BeendigungsanteilArtCodeNull() Me(Me.tabletblDakosy_EZA.eza_BeendigungsanteilArtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_BewilligungsIDZLAVUVNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_BewilligungsIDZLAVUVColumn) End Function _ Public Sub Seteza_BewilligungsIDZLAVUVNull() Me(Me.tabletblDakosy_EZA.eza_BewilligungsIDZLAVUVColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_BezugsnummerBEAnteilZLNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_BezugsnummerBEAnteilZLColumn) End Function _ Public Sub Seteza_BezugsnummerBEAnteilZLNull() Me(Me.tabletblDakosy_EZA.eza_BezugsnummerBEAnteilZLColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_UstIdAnmelderNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_UstIdAnmelderColumn) End Function _ Public Sub Seteza_UstIdAnmelderNull() Me(Me.tabletblDakosy_EZA.eza_UstIdAnmelderColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_FinanzamtAnmelderNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_FinanzamtAnmelderColumn) End Function _ Public Sub Seteza_FinanzamtAnmelderNull() Me(Me.tabletblDakosy_EZA.eza_FinanzamtAnmelderColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseza_AnmeldedatumNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA.eza_AnmeldedatumColumn) End Function _ Public Sub Seteza_AnmeldedatumNull() Me(Me.tabletblDakosy_EZA.eza_AnmeldedatumColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_EZA_AdressenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_EZA_Adressen As tblDakosy_EZA_AdressenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_EZA_Adressen = CType(Me.Table,tblDakosy_EZA_AdressenDataTable) End Sub _ Public Property ezaAd_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_IdColumn) = value End Set End Property _ Public Property ezaAd_EZAId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_EZAIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_EZAIdColumn) = value End Set End Property _ Public Property ezaAd_AdressTyp() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_AdressTypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_AdressTyp in Tabelle tblDakosy_EZA_Adressen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_AdressTypColumn) = value End Set End Property _ Public Property ezaAd_AdressCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_AdressCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_AdressCode in Tabelle tblDakosy_EZA_Adressen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_AdressCodeColumn) = value End Set End Property _ Public Property ezaAd_TeilnehmerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_TeilnehmerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_TeilnehmerEORI in Tabelle tblDakosy_EZA_Adressen ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_TeilnehmerEORIColumn) = value End Set End Property _ Public Property ezaAd_TeilnehmerNLNR() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_TeilnehmerNLNRColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_TeilnehmerNLNR in Tabelle tblDakosy_EZA_Adressen ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_TeilnehmerNLNRColumn) = value End Set End Property _ Public Property ezaAd_NameFirma1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_NameFirma1 in Tabelle tblDakosy_EZA_Adressen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma1Column) = value End Set End Property _ Public Property ezaAd_NameFirma2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_NameFirma2 in Tabelle tblDakosy_EZA_Adressen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma2Column) = value End Set End Property _ Public Property ezaAd_NameFirma3() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_NameFirma3 in Tabelle tblDakosy_EZA_Adressen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma3Column) = value End Set End Property _ Public Property ezaAd_StrasseHausNr1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_StrasseHausNr1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_StrasseHausNr1 in Tabelle tblDakosy_EZA_Adressen ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_StrasseHausNr1Column) = value End Set End Property _ Public Property ezaAd_StrasseHausNr2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_StrasseHausNr2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_StrasseHausNr2 in Tabelle tblDakosy_EZA_Adressen ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_StrasseHausNr2Column) = value End Set End Property _ Public Property ezaAd_Ortsteil() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_OrtsteilColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_Ortsteil in Tabelle tblDakosy_EZA_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_OrtsteilColumn) = value End Set End Property _ Public Property ezaAd_LandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_LandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_LandCode in Tabelle tblDakosy_EZA_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_LandCodeColumn) = value End Set End Property _ Public Property ezaAd_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_PLZ in Tabelle tblDakosy_EZA_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_PLZColumn) = value End Set End Property _ Public Property ezaAd_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_Ort in Tabelle tblDakosy_EZA_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_OrtColumn) = value End Set End Property _ Public Property ezaAd_UStIDAnmelder() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_UStIDAnmelderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_UStIDAnmelder in Tabelle tblDakosy_EZA_Adressen ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_UStIDAnmelderColumn) = value End Set End Property _ Public Property ezaAd_FinanzamtIDAnmelder() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_FinanzamtIDAnmelderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_FinanzamtIDAnmelder in Tabelle tblDakosy_EZA_Adressen i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_FinanzamtIDAnmelderColumn) = value End Set End Property _ Public Property ezaAd_Bewilligungsnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_Bewilligungsnummer in Tabelle tblDakosy_EZA_Adressen is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsnummerColumn) = value End Set End Property _ Public Property ezaAd_BewilligungsFachVerfahren() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsFachVerfahrenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_BewilligungsFachVerfahren in Tabelle tblDakosy_EZA_Adre"& _ "ssen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsFachVerfahrenColumn) = value End Set End Property _ Public Property ezaAd_BewilligungsnummerEndverwender() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsnummerEndverwenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAd_BewilligungsnummerEndverwender in Tabelle tblDakosy_EZA"& _ "_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsnummerEndverwenderColumn) = value End Set End Property _ Public Function IsezaAd_AdressTypNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_AdressTypColumn) End Function _ Public Sub SetezaAd_AdressTypNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_AdressTypColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_AdressCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_AdressCodeColumn) End Function _ Public Sub SetezaAd_AdressCodeNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_AdressCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_TeilnehmerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_TeilnehmerEORIColumn) End Function _ Public Sub SetezaAd_TeilnehmerEORINull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_TeilnehmerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_TeilnehmerNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_TeilnehmerNLNRColumn) End Function _ Public Sub SetezaAd_TeilnehmerNLNRNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_TeilnehmerNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_NameFirma1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma1Column) End Function _ Public Sub SetezaAd_NameFirma1Null() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_NameFirma2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma2Column) End Function _ Public Sub SetezaAd_NameFirma2Null() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_NameFirma3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma3Column) End Function _ Public Sub SetezaAd_NameFirma3Null() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_NameFirma3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_StrasseHausNr1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_StrasseHausNr1Column) End Function _ Public Sub SetezaAd_StrasseHausNr1Null() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_StrasseHausNr1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_StrasseHausNr2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_StrasseHausNr2Column) End Function _ Public Sub SetezaAd_StrasseHausNr2Null() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_StrasseHausNr2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_OrtsteilNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_OrtsteilColumn) End Function _ Public Sub SetezaAd_OrtsteilNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_OrtsteilColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_LandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_LandCodeColumn) End Function _ Public Sub SetezaAd_LandCodeNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_LandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_PLZColumn) End Function _ Public Sub SetezaAd_PLZNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_OrtColumn) End Function _ Public Sub SetezaAd_OrtNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_UStIDAnmelderNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_UStIDAnmelderColumn) End Function _ Public Sub SetezaAd_UStIDAnmelderNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_UStIDAnmelderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_FinanzamtIDAnmelderNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_FinanzamtIDAnmelderColumn) End Function _ Public Sub SetezaAd_FinanzamtIDAnmelderNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_FinanzamtIDAnmelderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_BewilligungsnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsnummerColumn) End Function _ Public Sub SetezaAd_BewilligungsnummerNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_BewilligungsFachVerfahrenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsFachVerfahrenColumn) End Function _ Public Sub SetezaAd_BewilligungsFachVerfahrenNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsFachVerfahrenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAd_BewilligungsnummerEndverwenderNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsnummerEndverwenderColumn) End Function _ Public Sub SetezaAd_BewilligungsnummerEndverwenderNull() Me(Me.tabletblDakosy_EZA_Adressen.ezaAd_BewilligungsnummerEndverwenderColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_EZA_AufschubRow Inherits Global.System.Data.DataRow Private tabletblDakosy_EZA_Aufschub As tblDakosy_EZA_AufschubDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_EZA_Aufschub = CType(Me.Table,tblDakosy_EZA_AufschubDataTable) End Sub _ Public Property ezaAfb_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_IdColumn) = value End Set End Property _ Public Property ezaAfb_EZAId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_EZAIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_EZAIdColumn) = value End Set End Property _ Public Property ezaAfb_Aufschubart() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschubartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAfb_Aufschubart in Tabelle tblDakosy_EZA_Aufschub ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschubartColumn) = value End Set End Property _ Public Property ezaAfb_ArtAufschubantrag() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_ArtAufschubantragColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAfb_ArtAufschubantrag in Tabelle tblDakosy_EZA_Aufschub is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_ArtAufschubantragColumn) = value End Set End Property _ Public Property ezaAfb_AufschubnehmerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschubnehmerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAfb_AufschubnehmerEORI in Tabelle tblDakosy_EZA_Aufschub i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschubnehmerEORIColumn) = value End Set End Property _ Public Property ezaAfb_KontoNr() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_KontoNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAfb_KontoNr in Tabelle tblDakosy_EZA_Aufschub ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_KontoNrColumn) = value End Set End Property _ Public Property ezaAfb_AufschuBIN() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschuBINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAfb_AufschuBIN in Tabelle tblDakosy_EZA_Aufschub ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschuBINColumn) = value End Set End Property _ Public Property ezaAfb_HZA() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_HZAColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAfb_HZA in Tabelle tblDakosy_EZA_Aufschub ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_HZAColumn) = value End Set End Property _ Public Property AufschubnehmerName() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.AufschubnehmerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AufschubnehmerName in Tabelle tblDakosy_EZA_Aufschub ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.AufschubnehmerNameColumn) = value End Set End Property _ Public Property ezaAfb_Faelligkeit() As Date Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_FaelligkeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAfb_Faelligkeit in Tabelle tblDakosy_EZA_Aufschub ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_FaelligkeitColumn) = value End Set End Property _ Public Property ezaAfb_Zahlungsart() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_ZahlungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAfb_Zahlungsart in Tabelle tblDakosy_EZA_Aufschub ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_ZahlungsartColumn) = value End Set End Property _ Public Property ezaAfb_Abgabenbetrag() As Double Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AbgabenbetragColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAfb_Abgabenbetrag in Tabelle tblDakosy_EZA_Aufschub ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AbgabenbetragColumn) = value End Set End Property _ Public Property ezaAfb_AbgabeArt() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AbgabeArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaAfb_AbgabeArt in Tabelle tblDakosy_EZA_Aufschub ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AbgabeArtColumn) = value End Set End Property _ Public Function IsezaAfb_AufschubartNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschubartColumn) End Function _ Public Sub SetezaAfb_AufschubartNull() Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschubartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAfb_ArtAufschubantragNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_ArtAufschubantragColumn) End Function _ Public Sub SetezaAfb_ArtAufschubantragNull() Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_ArtAufschubantragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAfb_AufschubnehmerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschubnehmerEORIColumn) End Function _ Public Sub SetezaAfb_AufschubnehmerEORINull() Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschubnehmerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAfb_KontoNrNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_KontoNrColumn) End Function _ Public Sub SetezaAfb_KontoNrNull() Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_KontoNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAfb_AufschuBINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschuBINColumn) End Function _ Public Sub SetezaAfb_AufschuBINNull() Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AufschuBINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAfb_HZANull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_HZAColumn) End Function _ Public Sub SetezaAfb_HZANull() Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_HZAColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubnehmerNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.AufschubnehmerNameColumn) End Function _ Public Sub SetAufschubnehmerNameNull() Me(Me.tabletblDakosy_EZA_Aufschub.AufschubnehmerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAfb_FaelligkeitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_FaelligkeitColumn) End Function _ Public Sub SetezaAfb_FaelligkeitNull() Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_FaelligkeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAfb_ZahlungsartNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_ZahlungsartColumn) End Function _ Public Sub SetezaAfb_ZahlungsartNull() Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_ZahlungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAfb_AbgabenbetragNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AbgabenbetragColumn) End Function _ Public Sub SetezaAfb_AbgabenbetragNull() Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AbgabenbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaAfb_AbgabeArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AbgabeArtColumn) End Function _ Public Sub SetezaAfb_AbgabeArtNull() Me(Me.tabletblDakosy_EZA_Aufschub.ezaAfb_AbgabeArtColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_EZA_BEAnteilZLAVUVRow Inherits Global.System.Data.DataRow Private tabletblDakosy_EZA_BEAnteilZLAVUV As tblDakosy_EZA_BEAnteilZLAVUVDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_EZA_BEAnteilZLAVUV = CType(Me.Table,tblDakosy_EZA_BEAnteilZLAVUVDataTable) End Sub _ Public Property ezaBAZ_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_IdColumn) = value End Set End Property _ Public Property ezaBAZ_EZAId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_EZAIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_EZAIdColumn) = value End Set End Property _ Public Property ezaBAZ_RegistrierNummerZugang() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_RegistrierNummerZugangColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_RegistrierNummerZugang in Tabelle tblDakosy_EZA_BEAnte"& _ "ilZLAVUV ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_RegistrierNummerZugangColumn) = value End Set End Property _ Public Property ezaBAZ_PositionZugang() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_PositionZugangColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_PositionZugang in Tabelle tblDakosy_EZA_BEAnteilZLAVUV"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_PositionZugangColumn) = value End Set End Property _ Public Property ezaBAZ_ArtikelCodeATZL() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_ArtikelCodeATZLColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_ArtikelCodeATZL in Tabelle tblDakosy_EZA_BEAnteilZLAVU"& _ "V ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_ArtikelCodeATZLColumn) = value End Set End Property _ Public Property ezaBAZ_EigentuemerATUL() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_EigentuemerATULColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_EigentuemerATUL in Tabelle tblDakosy_EZA_BEAnteilZLAVU"& _ "V ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_EigentuemerATULColumn) = value End Set End Property _ Public Property ezaBAZ_ChargennummerATZL() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_ChargennummerATZLColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_ChargennummerATZL in Tabelle tblDakosy_EZA_BEAnteilZLA"& _ "VUV ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_ChargennummerATZLColumn) = value End Set End Property _ Public Property ezaBAZ_UrsprungslandATZL() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_UrsprungslandATZLColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_UrsprungslandATZL in Tabelle tblDakosy_EZA_BEAnteilZLA"& _ "VUV ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_UrsprungslandATZLColumn) = value End Set End Property _ Public Property ezaBAZ_AtlasKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_AtlasKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_AtlasKz in Tabelle tblDakosy_EZA_BEAnteilZLAVUV ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_AtlasKzColumn) = value End Set End Property _ Public Property ezaBAZ_Wartennummer() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_WartennummerColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_Wartennummer in Tabelle tblDakosy_EZA_BEAnteilZLAVUV i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_WartennummerColumn) = value End Set End Property _ Public Property ezaBAZ_UeblicheBehandlungKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_UeblicheBehandlungKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_UeblicheBehandlungKz in Tabelle tblDakosy_EZA_BEAnteil"& _ "ZLAVUV ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_UeblicheBehandlungKzColumn) = value End Set End Property _ Public Property ezaBAZ_Handelsmenge() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_HandelsmengeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_Handelsmenge in Tabelle tblDakosy_EZA_BEAnteilZLAVUV i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_HandelsmengeColumn) = value End Set End Property _ Public Property ezaBAZ_MasseinheitHandelsmenge() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_MasseinheitHandelsmengeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_MasseinheitHandelsmenge in Tabelle tblDakosy_EZA_BEAnt"& _ "eilZLAVUV ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_MasseinheitHandelsmengeColumn) = value End Set End Property _ Public Property ezaBAZ_QualifikatorHandelsmenge() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_QualifikatorHandelsmengeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_QualifikatorHandelsmenge in Tabelle tblDakosy_EZA_BEAn"& _ "teilZLAVUV ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_QualifikatorHandelsmengeColumn) = value End Set End Property _ Public Property ezaBAZ_Abgangsmenge() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_AbgangsmengeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_Abgangsmenge in Tabelle tblDakosy_EZA_BEAnteilZLAVUV i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_AbgangsmengeColumn) = value End Set End Property _ Public Property ezaBAZ_MasseinheitAbgangsmenge() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_MasseinheitAbgangsmengeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_MasseinheitAbgangsmenge in Tabelle tblDakosy_EZA_BEAnt"& _ "eilZLAVUV ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_MasseinheitAbgangsmengeColumn) = value End Set End Property _ Public Property ezaBAZ_QualifikatorAbgangsmenge() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_QualifikatorAbgangsmengeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_QualifikatorAbgangsmenge in Tabelle tblDakosy_EZA_BEAn"& _ "teilZLAVUV ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_QualifikatorAbgangsmengeColumn) = value End Set End Property _ Public Property ezaBAZ_Positionszusatz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_PositionszusatzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_Positionszusatz in Tabelle tblDakosy_EZA_BEAnteilZLAVU"& _ "V ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_PositionszusatzColumn) = value End Set End Property _ Public Property ezaBAZ_WarenbezogeneAngaben() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_WarenbezogeneAngabenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBAZ_WarenbezogeneAngaben in Tabelle tblDakosy_EZA_BEAnteil"& _ "ZLAVUV ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_WarenbezogeneAngabenColumn) = value End Set End Property _ Public Function IsezaBAZ_RegistrierNummerZugangNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_RegistrierNummerZugangColumn) End Function _ Public Sub SetezaBAZ_RegistrierNummerZugangNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_RegistrierNummerZugangColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_PositionZugangNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_PositionZugangColumn) End Function _ Public Sub SetezaBAZ_PositionZugangNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_PositionZugangColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_ArtikelCodeATZLNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_ArtikelCodeATZLColumn) End Function _ Public Sub SetezaBAZ_ArtikelCodeATZLNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_ArtikelCodeATZLColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_EigentuemerATULNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_EigentuemerATULColumn) End Function _ Public Sub SetezaBAZ_EigentuemerATULNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_EigentuemerATULColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_ChargennummerATZLNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_ChargennummerATZLColumn) End Function _ Public Sub SetezaBAZ_ChargennummerATZLNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_ChargennummerATZLColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_UrsprungslandATZLNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_UrsprungslandATZLColumn) End Function _ Public Sub SetezaBAZ_UrsprungslandATZLNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_UrsprungslandATZLColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_AtlasKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_AtlasKzColumn) End Function _ Public Sub SetezaBAZ_AtlasKzNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_AtlasKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_WartennummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_WartennummerColumn) End Function _ Public Sub SetezaBAZ_WartennummerNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_WartennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_UeblicheBehandlungKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_UeblicheBehandlungKzColumn) End Function _ Public Sub SetezaBAZ_UeblicheBehandlungKzNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_UeblicheBehandlungKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_HandelsmengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_HandelsmengeColumn) End Function _ Public Sub SetezaBAZ_HandelsmengeNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_HandelsmengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_MasseinheitHandelsmengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_MasseinheitHandelsmengeColumn) End Function _ Public Sub SetezaBAZ_MasseinheitHandelsmengeNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_MasseinheitHandelsmengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_QualifikatorHandelsmengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_QualifikatorHandelsmengeColumn) End Function _ Public Sub SetezaBAZ_QualifikatorHandelsmengeNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_QualifikatorHandelsmengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_AbgangsmengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_AbgangsmengeColumn) End Function _ Public Sub SetezaBAZ_AbgangsmengeNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_AbgangsmengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_MasseinheitAbgangsmengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_MasseinheitAbgangsmengeColumn) End Function _ Public Sub SetezaBAZ_MasseinheitAbgangsmengeNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_MasseinheitAbgangsmengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_QualifikatorAbgangsmengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_QualifikatorAbgangsmengeColumn) End Function _ Public Sub SetezaBAZ_QualifikatorAbgangsmengeNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_QualifikatorAbgangsmengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_PositionszusatzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_PositionszusatzColumn) End Function _ Public Sub SetezaBAZ_PositionszusatzNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_PositionszusatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBAZ_WarenbezogeneAngabenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_WarenbezogeneAngabenColumn) End Function _ Public Sub SetezaBAZ_WarenbezogeneAngabenNull() Me(Me.tabletblDakosy_EZA_BEAnteilZLAVUV.ezaBAZ_WarenbezogeneAngabenColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_EZA_SumABeendigungsAnteilRow Inherits Global.System.Data.DataRow Private tabletblDakosy_EZA_SumABeendigungsAnteil As tblDakosy_EZA_SumABeendigungsAnteilDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_EZA_SumABeendigungsAnteil = CType(Me.Table,tblDakosy_EZA_SumABeendigungsAnteilDataTable) End Sub _ Public Property ezaBa_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_IdColumn) = value End Set End Property _ Public Property ezaBa_EZAId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_EZAIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_EZAIdColumn) = value End Set End Property _ Public Property ezaBa_SumARegistriernummer() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SumARegistriernummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBa_SumARegistriernummer in Tabelle tblDakosy_EZA_SumABeend"& _ "igungsAnteil ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SumARegistriernummerColumn) = value End Set End Property _ Public Property ezaBa_SumAPosNr() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SumAPosNrColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBa_SumAPosNr in Tabelle tblDakosy_EZA_SumABeendigungsAntei"& _ "l ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SumAPosNrColumn) = value End Set End Property _ Public Property ezaBa_BeendigungsPackstueckzahl() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_BeendigungsPackstueckzahlColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBa_BeendigungsPackstueckzahl in Tabelle tblDakosy_EZA_SumA"& _ "BeendigungsAnteil ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_BeendigungsPackstueckzahlColumn) = value End Set End Property _ Public Property ezaBa_Artidentifikation() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_ArtidentifikationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBa_Artidentifikation in Tabelle tblDakosy_EZA_SumABeendigu"& _ "ngsAnteil ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_ArtidentifikationColumn) = value End Set End Property _ Public Property ezaBa_VerwahrerEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_VerwahrerEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBa_VerwahrerEORI in Tabelle tblDakosy_EZA_SumABeendigungsA"& _ "nteil ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_VerwahrerEORIColumn) = value End Set End Property _ Public Property ezaBa_SpezifOrdnungsbegriffArt() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SpezifOrdnungsbegriffArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBa_SpezifOrdnungsbegriffArt in Tabelle tblDakosy_EZA_SumAB"& _ "eendigungsAnteil ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SpezifOrdnungsbegriffArtColumn) = value End Set End Property _ Public Property ezaBa_SpezifOrdnungsbegriff() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SpezifOrdnungsbegriffColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaBa_SpezifOrdnungsbegriff in Tabelle tblDakosy_EZA_SumABeen"& _ "digungsAnteil ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SpezifOrdnungsbegriffColumn) = value End Set End Property _ Public Function IsezaBa_SumARegistriernummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SumARegistriernummerColumn) End Function _ Public Sub SetezaBa_SumARegistriernummerNull() Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SumARegistriernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBa_SumAPosNrNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SumAPosNrColumn) End Function _ Public Sub SetezaBa_SumAPosNrNull() Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SumAPosNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBa_BeendigungsPackstueckzahlNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_BeendigungsPackstueckzahlColumn) End Function _ Public Sub SetezaBa_BeendigungsPackstueckzahlNull() Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_BeendigungsPackstueckzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBa_ArtidentifikationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_ArtidentifikationColumn) End Function _ Public Sub SetezaBa_ArtidentifikationNull() Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_ArtidentifikationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBa_VerwahrerEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_VerwahrerEORIColumn) End Function _ Public Sub SetezaBa_VerwahrerEORINull() Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_VerwahrerEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBa_SpezifOrdnungsbegriffArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SpezifOrdnungsbegriffArtColumn) End Function _ Public Sub SetezaBa_SpezifOrdnungsbegriffArtNull() Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SpezifOrdnungsbegriffArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaBa_SpezifOrdnungsbegriffNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SpezifOrdnungsbegriffColumn) End Function _ Public Sub SetezaBa_SpezifOrdnungsbegriffNull() Me(Me.tabletblDakosy_EZA_SumABeendigungsAnteil.ezaBa_SpezifOrdnungsbegriffColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_EZA_UnterlagenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_EZA_Unterlagen As tblDakosy_EZA_UnterlagenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_EZA_Unterlagen = CType(Me.Table,tblDakosy_EZA_UnterlagenDataTable) End Sub _ Public Property ezaUl_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_IdColumn) = value End Set End Property _ Public Property ezaUl_EZAId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_EZAIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_EZAIdColumn) = value End Set End Property _ Public Property ezaUl_Bereich() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_BereichColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaUl_Bereich in Tabelle tblDakosy_EZA_Unterlagen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_BereichColumn) = value End Set End Property _ Public Property ezaUl_Art() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_ArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaUl_Art in Tabelle tblDakosy_EZA_Unterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_ArtColumn) = value End Set End Property _ Public Property ezaUl_Nummer() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_NummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaUl_Nummer in Tabelle tblDakosy_EZA_Unterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_NummerColumn) = value End Set End Property _ Public Property ezaUl_DatumAusstellung() As Date Get Try Return CType(Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_DatumAusstellungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaUl_DatumAusstellung in Tabelle tblDakosy_EZA_Unterlagen is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_DatumAusstellungColumn) = value End Set End Property _ Public Function IsezaUl_BereichNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_BereichColumn) End Function _ Public Sub SetezaUl_BereichNull() Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_BereichColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaUl_ArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_ArtColumn) End Function _ Public Sub SetezaUl_ArtNull() Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_ArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaUl_NummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_NummerColumn) End Function _ Public Sub SetezaUl_NummerNull() Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_NummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaUl_DatumAusstellungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_DatumAusstellungColumn) End Function _ Public Sub SetezaUl_DatumAusstellungNull() Me(Me.tabletblDakosy_EZA_Unterlagen.ezaUl_DatumAusstellungColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_EZA_WarenpositionRow Inherits Global.System.Data.DataRow Private tabletblDakosy_EZA_Warenposition As tblDakosy_EZA_WarenpositionDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_EZA_Warenposition = CType(Me.Table,tblDakosy_EZA_WarenpositionDataTable) End Sub _ Public Property ezaWP_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_IdColumn) = value End Set End Property _ Public Property ezaWP_EzaId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EzaIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EzaIdColumn) = value End Set End Property _ Public Property ezaWP_PositionsNummer() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PositionsNummerColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_PositionsNummer in Tabelle tblDakosy_EZA_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PositionsNummerColumn) = value End Set End Property _ Public Property ezaWP_Artikelnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Artikelnummer in Tabelle tblDakosy_EZA_Warenposition is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelnummerColumn) = value End Set End Property _ Public Property ezaWP_WarennummerEZT() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerEZTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerEZT in Tabelle tblDakosy_EZA_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerEZTColumn) = value End Set End Property _ Public Property ezaWP_WarennummerZusatzCode1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerZusatzCode1 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode1Column) = value End Set End Property _ Public Property ezaWP_WarennummerZusatzCode2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerZusatzCode2 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode2Column) = value End Set End Property _ Public Property ezaWP_WarennummerZusatzCode3() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerZusatzCode3 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode3Column) = value End Set End Property _ Public Property ezaWP_WarennummerZusatzCode4() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerZusatzCode4 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode4Column) = value End Set End Property _ Public Property ezaWP_WarennummerZusatzCode5() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerZusatzCode5 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode5Column) = value End Set End Property _ Public Property ezaWP_WarennummerZusatzCode6() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerZusatzCode6 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode6Column) = value End Set End Property _ Public Property ezaWP_WarennummerZusatzCode7() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerZusatzCode7 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode7Column) = value End Set End Property _ Public Property ezaWP_WarennummerZusatzCode8() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerZusatzCode8 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode8Column) = value End Set End Property _ Public Property ezaWP_WarennummerZusatzCode9() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerZusatzCode9 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode9Column) = value End Set End Property _ Public Property ezaWP_WarennummerZusatzCode10() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarennummerZusatzCode10 in Tabelle tblDakosy_EZA_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode10Column) = value End Set End Property _ Public Property ezaWP_Warennummerzusatz1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warennummerzusatz1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Warennummerzusatz1 in Tabelle tblDakosy_EZA_Warenpositi"& _ "on ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warennummerzusatz1Column) = value End Set End Property _ Public Property ezaWP_Warennummerzusatz2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warennummerzusatz2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Warennummerzusatz2 in Tabelle tblDakosy_EZA_Warenpositi"& _ "on ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warennummerzusatz2Column) = value End Set End Property _ Public Property ezaWP_Warenbezeichnung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Warenbezeichnung in Tabelle tblDakosy_EZA_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenbezeichnungColumn) = value End Set End Property _ Public Property ezaWP_VerfahrensCodeVorangegangenesVerfahren() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VerfahrensCodeVorangegangenesVerfahrenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_VerfahrensCodeVorangegangenesVerfahren in Tabelle tblDa"& _ "kosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VerfahrensCodeVorangegangenesVerfahrenColumn) = value End Set End Property _ Public Property ezaWP_AbgabensteuerungKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbgabensteuerungKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AbgabensteuerungKz in Tabelle tblDakosy_EZA_Warenpositi"& _ "on ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbgabensteuerungKzColumn) = value End Set End Property _ Public Property ezaWP_EUCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EUCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_EUCode in Tabelle tblDakosy_EZA_Warenposition ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EUCodeColumn) = value End Set End Property _ Public Property ezaWP_UrsprungslandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_UrsprungslandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_UrsprungslandCode in Tabelle tblDakosy_EZA_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_UrsprungslandCodeColumn) = value End Set End Property _ Public Property ezaWP_Rohmasse() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_RohmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Rohmasse in Tabelle tblDakosy_EZA_Warenposition ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_RohmasseColumn) = value End Set End Property _ Public Property ezaWP_Eigenmasse() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EigenmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Eigenmasse in Tabelle tblDakosy_EZA_Warenposition ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EigenmasseColumn) = value End Set End Property _ Public Property ezaWP_AHStatMenge() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AHStatMenge in Tabelle tblDakosy_EZA_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeColumn) = value End Set End Property _ Public Property ezaWP_AHStatMengeMasseinheit() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeMasseinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AHStatMengeMasseinheit in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeMasseinheitColumn) = value End Set End Property _ Public Property ezaWP_AHStatMengeQualifier() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeQualifierColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AHStatMengeQualifier in Tabelle tblDakosy_EZA_Warenposi"& _ "tion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeQualifierColumn) = value End Set End Property _ Public Property ezaWP_KostenEUSt() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KostenEUStColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_KostenEUSt in Tabelle tblDakosy_EZA_Warenposition ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KostenEUStColumn) = value End Set End Property _ Public Property ezaWP_AHStatWert() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatWertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AHStatWert in Tabelle tblDakosy_EZA_Warenposition ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatWertColumn) = value End Set End Property _ Public Property ezaWP_PackstueckAnzahl() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckAnzahlColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_PackstueckAnzahl in Tabelle tblDakosy_EZA_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckAnzahlColumn) = value End Set End Property _ Public Property ezaWP_PackstueckArt() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_PackstueckArt in Tabelle tblDakosy_EZA_Warenposition is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckArtColumn) = value End Set End Property _ Public Property ezaWP_PackstueckZeichen() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckZeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_PackstueckZeichen in Tabelle tblDakosy_EZA_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckZeichenColumn) = value End Set End Property _ Public Property ezaWP_Warenmenge1() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Warenmenge1 in Tabelle tblDakosy_EZA_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge1Column) = value End Set End Property _ Public Property ezaWP_WarenMasseinheit1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenMasseinheit1 in Tabelle tblDakosy_EZA_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit1Column) = value End Set End Property _ Public Property ezaWP_WarenQualifier1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenQualifier1 in Tabelle tblDakosy_EZA_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier1Column) = value End Set End Property _ Public Property ezaWP_Warenmenge2() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Warenmenge2 in Tabelle tblDakosy_EZA_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge2Column) = value End Set End Property _ Public Property ezaWP_WarenMasseinheit2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenMasseinheit2 in Tabelle tblDakosy_EZA_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit2Column) = value End Set End Property _ Public Property ezaWP_WarenQualifier2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenQualifier2 in Tabelle tblDakosy_EZA_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier2Column) = value End Set End Property _ Public Property ezaWP_Warenmenge3() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge3Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Warenmenge3 in Tabelle tblDakosy_EZA_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge3Column) = value End Set End Property _ Public Property ezaWP_WarenMasseinheit3() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenMasseinheit3 in Tabelle tblDakosy_EZA_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit3Column) = value End Set End Property _ Public Property ezaWP_WarenQualifier3() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenQualifier3 in Tabelle tblDakosy_EZA_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier3Column) = value End Set End Property _ Public Property ezaWP_Warenmenge4() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge4Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Warenmenge4 in Tabelle tblDakosy_EZA_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge4Column) = value End Set End Property _ Public Property ezaWP_WarenMasseinheit4() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenMasseinheit4 in Tabelle tblDakosy_EZA_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit4Column) = value End Set End Property _ Public Property ezaWP_WarenQualifier4() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenQualifier4 in Tabelle tblDakosy_EZA_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier4Column) = value End Set End Property _ Public Property ezaWP_Warenmenge5() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge5Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Warenmenge5 in Tabelle tblDakosy_EZA_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge5Column) = value End Set End Property _ Public Property ezaWP_WarenMasseinheit5() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenMasseinheit5 in Tabelle tblDakosy_EZA_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit5Column) = value End Set End Property _ Public Property ezaWP_WarenQualifier5() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenQualifier5 in Tabelle tblDakosy_EZA_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier5Column) = value End Set End Property _ Public Property ezaWP_BeguenstigungBenatragtCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungBenatragtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BeguenstigungBenatragtCode in Tabelle tblDakosy_EZA_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungBenatragtCodeColumn) = value End Set End Property _ Public Property ezaWP_Kentigentnummer1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Kentigentnummer1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Kentigentnummer1 in Tabelle tblDakosy_EZA_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Kentigentnummer1Column) = value End Set End Property _ Public Property ezaWP_Kentigentnummer2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Kentigentnummer2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Kentigentnummer2 in Tabelle tblDakosy_EZA_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Kentigentnummer2Column) = value End Set End Property _ Public Property ezaWP_PositionsZusatz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PositionsZusatzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_PositionsZusatz in Tabelle tblDakosy_EZA_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PositionsZusatzColumn) = value End Set End Property _ Public Property ezaWP_AHStatWertManuellKZ() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatWertManuellKZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AHStatWertManuellKZ in Tabelle tblDakosy_EZA_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatWertManuellKZColumn) = value End Set End Property _ Public Property ezaWP_Artikelpreis() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelpreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Artikelpreis in Tabelle tblDakosy_EZA_Warenposition ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelpreisColumn) = value End Set End Property _ Public Property ezaWP_ArtikelpreisWaehrung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelpreisWaehrungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_ArtikelpreisWaehrung in Tabelle tblDakosy_EZA_Warenposi"& _ "tion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelpreisWaehrungColumn) = value End Set End Property _ Public Property ezaWP_OrtVerbringens() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_OrtVerbringensColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_OrtVerbringens in Tabelle tblDakosy_EZA_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_OrtVerbringensColumn) = value End Set End Property _ Public Property ezaWP_AbflughafenIATACode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbflughafenIATACodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AbflughafenIATACode in Tabelle tblDakosy_EZA_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbflughafenIATACodeColumn) = value End Set End Property _ Public Property ezaWP_WarenmengeAVUVZugang() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenmengeAVUVZugang in Tabelle tblDakosy_EZA_Warenposi"& _ "tion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangColumn) = value End Set End Property _ Public Property ezaWP_WarenmengeAVUVZugangMasseinheit() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangMasseinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenmengeAVUVZugangMasseinheit in Tabelle tblDakosy_EZ"& _ "A_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangMasseinheitColumn) = value End Set End Property _ Public Property ezaWP_WarenmengeAVUVZugangMasseinheitQualifier() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangMasseinheitQualifierColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_WarenmengeAVUVZugangMasseinheitQualifier in Tabelle tbl"& _ "Dakosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangMasseinheitQualifierColumn) = value End Set End Property _ Public Property ezaWP_Sachbereich() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_SachbereichColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Sachbereich in Tabelle tblDakosy_EZA_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_SachbereichColumn) = value End Set End Property _ Public Property ezaWP_BedingungCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BedingungCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BedingungCode in Tabelle tblDakosy_EZA_Warenposition is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BedingungCodeColumn) = value End Set End Property _ Public Property ezaWP_VeredelungWertsteigerung() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VeredelungWertsteigerungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_VeredelungWertsteigerung in Tabelle tblDakosy_EZA_Waren"& _ "position ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VeredelungWertsteigerungColumn) = value End Set End Property _ Public Property ezaWP_TabakSteuerzeichenID() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_TabakSteuerzeichenIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_TabakSteuerzeichenID in Tabelle tblDakosy_EZA_Warenposi"& _ "tion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_TabakSteuerzeichenIDColumn) = value End Set End Property _ Public Property ezaWP_GehaltsAngabenArtCode1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_GehaltsAngabenArtCode1 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode1Column) = value End Set End Property _ Public Property ezaWP_GehaltsAngabenGradProzent1() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_GehaltsAngabenGradProzent1 in Tabelle tblDakosy_EZA_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent1Column) = value End Set End Property _ Public Property ezaWP_GehaltsAngabenArtCode2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_GehaltsAngabenArtCode2 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode2Column) = value End Set End Property _ Public Property ezaWP_GehaltsAngabenGradProzent2() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_GehaltsAngabenGradProzent2 in Tabelle tblDakosy_EZA_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent2Column) = value End Set End Property _ Public Property ezaWP_GehaltsAngabenArtCode3() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_GehaltsAngabenArtCode3 in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode3Column) = value End Set End Property _ Public Property ezaWP_GehaltsAngabenGradProzent3() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent3Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_GehaltsAngabenGradProzent3 in Tabelle tblDakosy_EZA_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent3Column) = value End Set End Property _ Public Property ezaWP_BeguenstigungsMengeMenge() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeMengeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BeguenstigungsMengeMenge in Tabelle tblDakosy_EZA_Waren"& _ "position ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeMengeColumn) = value End Set End Property _ Public Property ezaWP_BeguenstigungsMengeMasseinheitCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeMasseinheitCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BeguenstigungsMengeMasseinheitCode in Tabelle tblDakosy"& _ "_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeMasseinheitCodeColumn) = value End Set End Property _ Public Property ezaWP_BeguenstigungsMengeQualifier() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeQualifierColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BeguenstigungsMengeQualifier in Tabelle tblDakosy_EZA_W"& _ "arenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeQualifierColumn) = value End Set End Property _ Public Property ezaWP_Abgabenminderung_AbgabengruppeCode1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Abgabenminderung_AbgabengruppeCode1 in Tabelle tblDakos"& _ "y_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode1Column) = value End Set End Property _ Public Property ezaWP_Abgabenminderung_Minderungsbetrag1() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Abgabenminderung_Minderungsbetrag1 in Tabelle tblDakosy"& _ "_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag1Column) = value End Set End Property _ Public Property ezaWP_Abgabenminderung_AbgabengruppeCode2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Abgabenminderung_AbgabengruppeCode2 in Tabelle tblDakos"& _ "y_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode2Column) = value End Set End Property _ Public Property ezaWP_Abgabenminderung_Minderungsbetrag2() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Abgabenminderung_Minderungsbetrag2 in Tabelle tblDakosy"& _ "_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag2Column) = value End Set End Property _ Public Property ezaWP_Abgabenminderung_AbgabengruppeCode3() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Abgabenminderung_AbgabengruppeCode3 in Tabelle tblDakos"& _ "y_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode3Column) = value End Set End Property _ Public Property ezaWP_Abgabenminderung_Minderungsbetrag3() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag3Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Abgabenminderung_Minderungsbetrag3 in Tabelle tblDakosy"& _ "_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag3Column) = value End Set End Property _ Public Property ezaWP_BesondereWertangabe_Wert1() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BesondereWertangabe_Wert1 in Tabelle tblDakosy_EZA_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert1Column) = value End Set End Property _ Public Property ezaWP_BesondereWertangabe_PreisartCode1() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BesondereWertangabe_PreisartCode1 in Tabelle tblDakosy_"& _ "EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode1Column) = value End Set End Property _ Public Property ezaWP_BesondereWertangabe_Wert2() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BesondereWertangabe_Wert2 in Tabelle tblDakosy_EZA_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert2Column) = value End Set End Property _ Public Property ezaWP_BesondereWertangabe_PreisartCode2() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BesondereWertangabe_PreisartCode2 in Tabelle tblDakosy_"& _ "EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode2Column) = value End Set End Property _ Public Property ezaWP_BesondereWertangabe_Wert3() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert3Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BesondereWertangabe_Wert3 in Tabelle tblDakosy_EZA_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert3Column) = value End Set End Property _ Public Property ezaWP_BesondereWertangabe_PreisartCode3() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BesondereWertangabe_PreisartCode3 in Tabelle tblDakosy_"& _ "EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode3Column) = value End Set End Property _ Public Property ezaWP_BesondereWertangabe_Wert4() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert4Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BesondereWertangabe_Wert4 in Tabelle tblDakosy_EZA_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert4Column) = value End Set End Property _ Public Property ezaWP_BesondereWertangabe_PreisartCode4() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BesondereWertangabe_PreisartCode4 in Tabelle tblDakosy_"& _ "EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode4Column) = value End Set End Property _ Public Property ezaWP_BesondereWertangabe_Wert5() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert5Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BesondereWertangabe_Wert5 in Tabelle tblDakosy_EZA_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert5Column) = value End Set End Property _ Public Property ezaWP_BesondereWertangabe_PreisartCode5() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BesondereWertangabe_PreisartCode5 in Tabelle tblDakosy_"& _ "EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode5Column) = value End Set End Property _ Public Property ezaWP_VZAStatus() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VZAStatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_VZAStatus in Tabelle tblDakosy_EZA_Warenposition ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VZAStatusColumn) = value End Set End Property _ Public Property ezaWP_EGZStatus() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EGZStatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_EGZStatus in Tabelle tblDakosy_EZA_Warenposition ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EGZStatusColumn) = value End Set End Property _ Public Property ezaWP_DV1Status() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_DV1StatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_DV1Status in Tabelle tblDakosy_EZA_Warenposition ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_DV1StatusColumn) = value End Set End Property _ Public Property ezaWP_AnmeldeArt() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmeldeArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AnmeldeArt in Tabelle tblDakosy_EZA_Warenposition ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmeldeArtColumn) = value End Set End Property _ Public Property ezaWP_BefundDatum() As Date Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BefundDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BefundDatum in Tabelle tblDakosy_EZA_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BefundDatumColumn) = value End Set End Property _ Public Property ezaWP_AnmelderAdressCodeEORI() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmelderAdressCodeEORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AnmelderAdressCodeEORI in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmelderAdressCodeEORIColumn) = value End Set End Property _ Public Property ezaWP_Zollverfahren() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ZollverfahrenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Zollverfahren in Tabelle tblDakosy_EZA_Warenposition is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ZollverfahrenColumn) = value End Set End Property _ Public Property ezaWP_AbrechnungszollstelleCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbrechnungszollstelleCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AbrechnungszollstelleCode in Tabelle tblDakosy_EZA_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbrechnungszollstelleCodeColumn) = value End Set End Property _ Public Property ezaWP_SachbereichCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_SachbereichCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_SachbereichCode in Tabelle tblDakosy_EZA_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_SachbereichCodeColumn) = value End Set End Property _ Public Property ezaWP_RegistriernummerZA() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_RegistriernummerZAColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_RegistriernummerZA in Tabelle tblDakosy_EZA_Warenpositi"& _ "on ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_RegistriernummerZAColumn) = value End Set End Property _ Public Property ezaWP_AnmeldeVErfahren() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmeldeVErfahrenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_AnmeldeVErfahren in Tabelle tblDakosy_EZA_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmeldeVErfahrenColumn) = value End Set End Property _ Public Property ezaWP_Bewilligungsnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BewilligungsnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Bewilligungsnummer in Tabelle tblDakosy_EZA_Warenpositi"& _ "on ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BewilligungsnummerColumn) = value End Set End Property _ Public Property ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritteColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte in Tabelle"& _ " tblDakosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritteColumn) = value End Set End Property _ Public Property ezaWP_Zollwert() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ZollwertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Zollwert in Tabelle tblDakosy_EZA_Warenposition ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ZollwertColumn) = value End Set End Property _ Public Property ezaWP_LuftfrachtkostenGesamt() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_LuftfrachtkostenGesamtColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_LuftfrachtkostenGesamt in Tabelle tblDakosy_EZA_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_LuftfrachtkostenGesamtColumn) = value End Set End Property _ Public Property ezaWP_IATAKursKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_IATAKursKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_IATAKursKz in Tabelle tblDakosy_EZA_Warenposition ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_IATAKursKzColumn) = value End Set End Property _ Public Property ezaWP_LuftfrachtkostenGesamtWaehrung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_LuftfrachtkostenGesamtWaehrungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_LuftfrachtkostenGesamtWaehrung in Tabelle tblDakosy_EZA"& _ "_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_LuftfrachtkostenGesamtWaehrungColumn) = value End Set End Property _ Public Property ezaWP_KursVereinbartKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursVereinbartKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_KursVereinbartKz in Tabelle tblDakosy_EZA_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursVereinbartKzColumn) = value End Set End Property _ Public Property ezaWP_KursBetragVereinbart() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursBetragVereinbartColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_KursBetragVereinbart in Tabelle tblDakosy_EZA_Warenposi"& _ "tion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursBetragVereinbartColumn) = value End Set End Property _ Public Property ezaWP_KursDatum() As Date Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_KursDatum in Tabelle tblDakosy_EZA_Warenposition ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursDatumColumn) = value End Set End Property _ Public Property ezaWP_Aussenhandelsstatistik_VerkehrszweigInland() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VerkehrszweigInlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Aussenhandelsstatistik_VerkehrszweigInland in Tabelle t"& _ "blDakosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VerkehrszweigInlandColumn) = value End Set End Property _ Public Property ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenzeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze in Tabelle t"& _ "blDakosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenzeColumn) = value End Set End Property _ Public Property ezaWP_Aussenhandelsstatistik_Versendungsland() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VersendungslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Aussenhandelsstatistik_Versendungsland in Tabelle tblDa"& _ "kosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VersendungslandColumn) = value End Set End Property _ Public Property ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BEstimmungsbundeslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland in Tabelle"& _ " tblDakosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BEstimmungsbundeslandColumn) = value End Set End Property _ Public Property ezaWP_Aussenhandelsstatistik_Bestimmungsland() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BestimmungslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Aussenhandelsstatistik_Bestimmungsland in Tabelle tblDa"& _ "kosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BestimmungslandColumn) = value End Set End Property _ Public Property ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatsz"& _ "ugehoeriglkeitCode in Tabelle tblDakosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCodeColumn) = value End Set End Property _ Public Property ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt in "& _ "Tabelle tblDakosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArtColumn) = value End Set End Property _ Public Property ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung "& _ "in Tabelle tblDakosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibungColumn) = value End Set End Property _ Public Property ezaWP_Aussenhandelsstatistik_ArtGeschaeft() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_ArtGeschaeftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Aussenhandelsstatistik_ArtGeschaeft in Tabelle tblDakos"& _ "y_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_ArtGeschaeftColumn) = value End Set End Property _ Public Property ezaWP_Aussenhandelsstatistik_Statistikstatus() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_StatistikstatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWP_Aussenhandelsstatistik_Statistikstatus in Tabelle tblDa"& _ "kosy_EZA_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_StatistikstatusColumn) = value End Set End Property _ Public Function IsezaWP_PositionsNummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PositionsNummerColumn) End Function _ Public Sub SetezaWP_PositionsNummerNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PositionsNummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_ArtikelnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelnummerColumn) End Function _ Public Sub SetezaWP_ArtikelnummerNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerEZTNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerEZTColumn) End Function _ Public Sub SetezaWP_WarennummerEZTNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerEZTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerZusatzCode1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode1Column) End Function _ Public Sub SetezaWP_WarennummerZusatzCode1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerZusatzCode2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode2Column) End Function _ Public Sub SetezaWP_WarennummerZusatzCode2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerZusatzCode3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode3Column) End Function _ Public Sub SetezaWP_WarennummerZusatzCode3Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerZusatzCode4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode4Column) End Function _ Public Sub SetezaWP_WarennummerZusatzCode4Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerZusatzCode5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode5Column) End Function _ Public Sub SetezaWP_WarennummerZusatzCode5Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerZusatzCode6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode6Column) End Function _ Public Sub SetezaWP_WarennummerZusatzCode6Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerZusatzCode7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode7Column) End Function _ Public Sub SetezaWP_WarennummerZusatzCode7Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerZusatzCode8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode8Column) End Function _ Public Sub SetezaWP_WarennummerZusatzCode8Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerZusatzCode9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode9Column) End Function _ Public Sub SetezaWP_WarennummerZusatzCode9Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarennummerZusatzCode10Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode10Column) End Function _ Public Sub SetezaWP_WarennummerZusatzCode10Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarennummerZusatzCode10Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Warennummerzusatz1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warennummerzusatz1Column) End Function _ Public Sub SetezaWP_Warennummerzusatz1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warennummerzusatz1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Warennummerzusatz2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warennummerzusatz2Column) End Function _ Public Sub SetezaWP_Warennummerzusatz2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warennummerzusatz2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenbezeichnungColumn) End Function _ Public Sub SetezaWP_WarenbezeichnungNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_VerfahrensCodeVorangegangenesVerfahrenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VerfahrensCodeVorangegangenesVerfahrenColumn) End Function _ Public Sub SetezaWP_VerfahrensCodeVorangegangenesVerfahrenNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VerfahrensCodeVorangegangenesVerfahrenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AbgabensteuerungKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbgabensteuerungKzColumn) End Function _ Public Sub SetezaWP_AbgabensteuerungKzNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbgabensteuerungKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_EUCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EUCodeColumn) End Function _ Public Sub SetezaWP_EUCodeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EUCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_UrsprungslandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_UrsprungslandCodeColumn) End Function _ Public Sub SetezaWP_UrsprungslandCodeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_UrsprungslandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_RohmasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_RohmasseColumn) End Function _ Public Sub SetezaWP_RohmasseNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_RohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_EigenmasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EigenmasseColumn) End Function _ Public Sub SetezaWP_EigenmasseNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EigenmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AHStatMengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeColumn) End Function _ Public Sub SetezaWP_AHStatMengeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AHStatMengeMasseinheitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeMasseinheitColumn) End Function _ Public Sub SetezaWP_AHStatMengeMasseinheitNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeMasseinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AHStatMengeQualifierNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeQualifierColumn) End Function _ Public Sub SetezaWP_AHStatMengeQualifierNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatMengeQualifierColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_KostenEUStNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KostenEUStColumn) End Function _ Public Sub SetezaWP_KostenEUStNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KostenEUStColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AHStatWertNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatWertColumn) End Function _ Public Sub SetezaWP_AHStatWertNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatWertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_PackstueckAnzahlNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckAnzahlColumn) End Function _ Public Sub SetezaWP_PackstueckAnzahlNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckAnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_PackstueckArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckArtColumn) End Function _ Public Sub SetezaWP_PackstueckArtNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_PackstueckZeichenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckZeichenColumn) End Function _ Public Sub SetezaWP_PackstueckZeichenNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PackstueckZeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Warenmenge1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge1Column) End Function _ Public Sub SetezaWP_Warenmenge1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenMasseinheit1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit1Column) End Function _ Public Sub SetezaWP_WarenMasseinheit1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenQualifier1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier1Column) End Function _ Public Sub SetezaWP_WarenQualifier1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Warenmenge2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge2Column) End Function _ Public Sub SetezaWP_Warenmenge2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenMasseinheit2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit2Column) End Function _ Public Sub SetezaWP_WarenMasseinheit2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenQualifier2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier2Column) End Function _ Public Sub SetezaWP_WarenQualifier2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Warenmenge3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge3Column) End Function _ Public Sub SetezaWP_Warenmenge3Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenMasseinheit3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit3Column) End Function _ Public Sub SetezaWP_WarenMasseinheit3Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenQualifier3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier3Column) End Function _ Public Sub SetezaWP_WarenQualifier3Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Warenmenge4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge4Column) End Function _ Public Sub SetezaWP_Warenmenge4Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenMasseinheit4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit4Column) End Function _ Public Sub SetezaWP_WarenMasseinheit4Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenQualifier4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier4Column) End Function _ Public Sub SetezaWP_WarenQualifier4Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Warenmenge5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge5Column) End Function _ Public Sub SetezaWP_Warenmenge5Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Warenmenge5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenMasseinheit5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit5Column) End Function _ Public Sub SetezaWP_WarenMasseinheit5Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenMasseinheit5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenQualifier5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier5Column) End Function _ Public Sub SetezaWP_WarenQualifier5Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenQualifier5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BeguenstigungBenatragtCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungBenatragtCodeColumn) End Function _ Public Sub SetezaWP_BeguenstigungBenatragtCodeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungBenatragtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Kentigentnummer1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Kentigentnummer1Column) End Function _ Public Sub SetezaWP_Kentigentnummer1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Kentigentnummer1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Kentigentnummer2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Kentigentnummer2Column) End Function _ Public Sub SetezaWP_Kentigentnummer2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Kentigentnummer2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_PositionsZusatzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PositionsZusatzColumn) End Function _ Public Sub SetezaWP_PositionsZusatzNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_PositionsZusatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AHStatWertManuellKZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatWertManuellKZColumn) End Function _ Public Sub SetezaWP_AHStatWertManuellKZNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AHStatWertManuellKZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_ArtikelpreisNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelpreisColumn) End Function _ Public Sub SetezaWP_ArtikelpreisNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelpreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_ArtikelpreisWaehrungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelpreisWaehrungColumn) End Function _ Public Sub SetezaWP_ArtikelpreisWaehrungNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ArtikelpreisWaehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_OrtVerbringensNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_OrtVerbringensColumn) End Function _ Public Sub SetezaWP_OrtVerbringensNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_OrtVerbringensColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AbflughafenIATACodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbflughafenIATACodeColumn) End Function _ Public Sub SetezaWP_AbflughafenIATACodeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbflughafenIATACodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenmengeAVUVZugangNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangColumn) End Function _ Public Sub SetezaWP_WarenmengeAVUVZugangNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenmengeAVUVZugangMasseinheitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangMasseinheitColumn) End Function _ Public Sub SetezaWP_WarenmengeAVUVZugangMasseinheitNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangMasseinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_WarenmengeAVUVZugangMasseinheitQualifierNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangMasseinheitQualifierColumn) End Function _ Public Sub SetezaWP_WarenmengeAVUVZugangMasseinheitQualifierNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_WarenmengeAVUVZugangMasseinheitQualifierColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_SachbereichNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_SachbereichColumn) End Function _ Public Sub SetezaWP_SachbereichNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_SachbereichColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BedingungCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BedingungCodeColumn) End Function _ Public Sub SetezaWP_BedingungCodeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BedingungCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_VeredelungWertsteigerungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VeredelungWertsteigerungColumn) End Function _ Public Sub SetezaWP_VeredelungWertsteigerungNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VeredelungWertsteigerungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_TabakSteuerzeichenIDNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_TabakSteuerzeichenIDColumn) End Function _ Public Sub SetezaWP_TabakSteuerzeichenIDNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_TabakSteuerzeichenIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_GehaltsAngabenArtCode1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode1Column) End Function _ Public Sub SetezaWP_GehaltsAngabenArtCode1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_GehaltsAngabenGradProzent1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent1Column) End Function _ Public Sub SetezaWP_GehaltsAngabenGradProzent1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_GehaltsAngabenArtCode2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode2Column) End Function _ Public Sub SetezaWP_GehaltsAngabenArtCode2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_GehaltsAngabenGradProzent2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent2Column) End Function _ Public Sub SetezaWP_GehaltsAngabenGradProzent2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_GehaltsAngabenArtCode3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode3Column) End Function _ Public Sub SetezaWP_GehaltsAngabenArtCode3Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenArtCode3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_GehaltsAngabenGradProzent3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent3Column) End Function _ Public Sub SetezaWP_GehaltsAngabenGradProzent3Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_GehaltsAngabenGradProzent3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BeguenstigungsMengeMengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeMengeColumn) End Function _ Public Sub SetezaWP_BeguenstigungsMengeMengeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeMengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BeguenstigungsMengeMasseinheitCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeMasseinheitCodeColumn) End Function _ Public Sub SetezaWP_BeguenstigungsMengeMasseinheitCodeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeMasseinheitCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BeguenstigungsMengeQualifierNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeQualifierColumn) End Function _ Public Sub SetezaWP_BeguenstigungsMengeQualifierNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BeguenstigungsMengeQualifierColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Abgabenminderung_AbgabengruppeCode1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode1Column) End Function _ Public Sub SetezaWP_Abgabenminderung_AbgabengruppeCode1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Abgabenminderung_Minderungsbetrag1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag1Column) End Function _ Public Sub SetezaWP_Abgabenminderung_Minderungsbetrag1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Abgabenminderung_AbgabengruppeCode2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode2Column) End Function _ Public Sub SetezaWP_Abgabenminderung_AbgabengruppeCode2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Abgabenminderung_Minderungsbetrag2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag2Column) End Function _ Public Sub SetezaWP_Abgabenminderung_Minderungsbetrag2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Abgabenminderung_AbgabengruppeCode3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode3Column) End Function _ Public Sub SetezaWP_Abgabenminderung_AbgabengruppeCode3Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_AbgabengruppeCode3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Abgabenminderung_Minderungsbetrag3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag3Column) End Function _ Public Sub SetezaWP_Abgabenminderung_Minderungsbetrag3Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Abgabenminderung_Minderungsbetrag3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BesondereWertangabe_Wert1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert1Column) End Function _ Public Sub SetezaWP_BesondereWertangabe_Wert1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BesondereWertangabe_PreisartCode1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode1Column) End Function _ Public Sub SetezaWP_BesondereWertangabe_PreisartCode1Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BesondereWertangabe_Wert2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert2Column) End Function _ Public Sub SetezaWP_BesondereWertangabe_Wert2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BesondereWertangabe_PreisartCode2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode2Column) End Function _ Public Sub SetezaWP_BesondereWertangabe_PreisartCode2Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BesondereWertangabe_Wert3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert3Column) End Function _ Public Sub SetezaWP_BesondereWertangabe_Wert3Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BesondereWertangabe_PreisartCode3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode3Column) End Function _ Public Sub SetezaWP_BesondereWertangabe_PreisartCode3Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BesondereWertangabe_Wert4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert4Column) End Function _ Public Sub SetezaWP_BesondereWertangabe_Wert4Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BesondereWertangabe_PreisartCode4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode4Column) End Function _ Public Sub SetezaWP_BesondereWertangabe_PreisartCode4Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BesondereWertangabe_Wert5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert5Column) End Function _ Public Sub SetezaWP_BesondereWertangabe_Wert5Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_Wert5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BesondereWertangabe_PreisartCode5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode5Column) End Function _ Public Sub SetezaWP_BesondereWertangabe_PreisartCode5Null() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BesondereWertangabe_PreisartCode5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_VZAStatusNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VZAStatusColumn) End Function _ Public Sub SetezaWP_VZAStatusNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_VZAStatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_EGZStatusNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EGZStatusColumn) End Function _ Public Sub SetezaWP_EGZStatusNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_EGZStatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_DV1StatusNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_DV1StatusColumn) End Function _ Public Sub SetezaWP_DV1StatusNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_DV1StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AnmeldeArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmeldeArtColumn) End Function _ Public Sub SetezaWP_AnmeldeArtNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmeldeArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BefundDatumNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BefundDatumColumn) End Function _ Public Sub SetezaWP_BefundDatumNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BefundDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AnmelderAdressCodeEORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmelderAdressCodeEORIColumn) End Function _ Public Sub SetezaWP_AnmelderAdressCodeEORINull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmelderAdressCodeEORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_ZollverfahrenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ZollverfahrenColumn) End Function _ Public Sub SetezaWP_ZollverfahrenNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ZollverfahrenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AbrechnungszollstelleCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbrechnungszollstelleCodeColumn) End Function _ Public Sub SetezaWP_AbrechnungszollstelleCodeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AbrechnungszollstelleCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_SachbereichCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_SachbereichCodeColumn) End Function _ Public Sub SetezaWP_SachbereichCodeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_SachbereichCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_RegistriernummerZANull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_RegistriernummerZAColumn) End Function _ Public Sub SetezaWP_RegistriernummerZANull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_RegistriernummerZAColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_AnmeldeVErfahrenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmeldeVErfahrenColumn) End Function _ Public Sub SetezaWP_AnmeldeVErfahrenNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_AnmeldeVErfahrenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BewilligungsnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BewilligungsnummerColumn) End Function _ Public Sub SetezaWP_BewilligungsnummerNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BewilligungsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_BewilligungsnummerEndverwenderEGZDurchDritteNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritteColumn) End Function _ Public Sub SetezaWP_BewilligungsnummerEndverwenderEGZDurchDritteNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritteColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_ZollwertNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ZollwertColumn) End Function _ Public Sub SetezaWP_ZollwertNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_ZollwertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_LuftfrachtkostenGesamtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_LuftfrachtkostenGesamtColumn) End Function _ Public Sub SetezaWP_LuftfrachtkostenGesamtNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_LuftfrachtkostenGesamtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_IATAKursKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_IATAKursKzColumn) End Function _ Public Sub SetezaWP_IATAKursKzNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_IATAKursKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_LuftfrachtkostenGesamtWaehrungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_LuftfrachtkostenGesamtWaehrungColumn) End Function _ Public Sub SetezaWP_LuftfrachtkostenGesamtWaehrungNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_LuftfrachtkostenGesamtWaehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_KursVereinbartKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursVereinbartKzColumn) End Function _ Public Sub SetezaWP_KursVereinbartKzNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursVereinbartKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_KursBetragVereinbartNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursBetragVereinbartColumn) End Function _ Public Sub SetezaWP_KursBetragVereinbartNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursBetragVereinbartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_KursDatumNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursDatumColumn) End Function _ Public Sub SetezaWP_KursDatumNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_KursDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Aussenhandelsstatistik_VerkehrszweigInlandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VerkehrszweigInlandColumn) End Function _ Public Sub SetezaWP_Aussenhandelsstatistik_VerkehrszweigInlandNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VerkehrszweigInlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Aussenhandelsstatistik_VerkehrszweigGrenzeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenzeColumn) End Function _ Public Sub SetezaWP_Aussenhandelsstatistik_VerkehrszweigGrenzeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Aussenhandelsstatistik_VersendungslandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VersendungslandColumn) End Function _ Public Sub SetezaWP_Aussenhandelsstatistik_VersendungslandNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_VersendungslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Aussenhandelsstatistik_BEstimmungsbundeslandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BEstimmungsbundeslandColumn) End Function _ Public Sub SetezaWP_Aussenhandelsstatistik_BEstimmungsbundeslandNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BEstimmungsbundeslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Aussenhandelsstatistik_BestimmungslandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BestimmungslandColumn) End Function _ Public Sub SetezaWP_Aussenhandelsstatistik_BestimmungslandNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BestimmungslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCodeColumn) End Function _ Public Sub SetezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCodeNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArtColumn) End Function _ Public Sub SetezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArtNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibungColumn) End Function _ Public Sub SetezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibungNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Aussenhandelsstatistik_ArtGeschaeftNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_ArtGeschaeftColumn) End Function _ Public Sub SetezaWP_Aussenhandelsstatistik_ArtGeschaeftNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_ArtGeschaeftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWP_Aussenhandelsstatistik_StatistikstatusNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_StatistikstatusColumn) End Function _ Public Sub SetezaWP_Aussenhandelsstatistik_StatistikstatusNull() Me(Me.tabletblDakosy_EZA_Warenposition.ezaWP_Aussenhandelsstatistik_StatistikstatusColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_EZA_WarenpositionSonderfalldatenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_EZA_WarenpositionSonderfalldaten As tblDakosy_EZA_WarenpositionSonderfalldatenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten = CType(Me.Table,tblDakosy_EZA_WarenpositionSonderfalldatenDataTable) End Sub _ Public Property ezaWpSfd_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_IdColumn) = value End Set End Property _ Public Property ezaWpSfd_EzaWpId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_EzaWpIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_EzaWpIdColumn) = value End Set End Property _ Public Property ezaWpSfd_EzaId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_EzaIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_EzaIdColumn) = value End Set End Property _ Public Property ezaWpSfd_SonderabgabenGruppeCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_SonderabgabenGruppeCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpSfd_SonderabgabenGruppeCode in Tabelle tblDakosy_EZA_War"& _ "enpositionSonderfalldaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_SonderabgabenGruppeCodeColumn) = value End Set End Property _ Public Property ezaWpSfd_AnwendungArt() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_AnwendungArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpSfd_AnwendungArt in Tabelle tblDakosy_EZA_WarenpositionS"& _ "onderfalldaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_AnwendungArtColumn) = value End Set End Property _ Public Property ezaWpSfd_SatzBetragFaktor() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_SatzBetragFaktorColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpSfd_SatzBetragFaktor in Tabelle tblDakosy_EZA_Warenposit"& _ "ionSonderfalldaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_SatzBetragFaktorColumn) = value End Set End Property _ Public Function IsezaWpSfd_SonderabgabenGruppeCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_SonderabgabenGruppeCodeColumn) End Function _ Public Sub SetezaWpSfd_SonderabgabenGruppeCodeNull() Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_SonderabgabenGruppeCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpSfd_AnwendungArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_AnwendungArtColumn) End Function _ Public Sub SetezaWpSfd_AnwendungArtNull() Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_AnwendungArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpSfd_SatzBetragFaktorNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_SatzBetragFaktorColumn) End Function _ Public Sub SetezaWpSfd_SatzBetragFaktorNull() Me(Me.tabletblDakosy_EZA_WarenpositionSonderfalldaten.ezaWpSfd_SatzBetragFaktorColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_EZA_WarenpositionUnterlagenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_EZA_WarenpositionUnterlagen As tblDakosy_EZA_WarenpositionUnterlagenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_EZA_WarenpositionUnterlagen = CType(Me.Table,tblDakosy_EZA_WarenpositionUnterlagenDataTable) End Sub _ Public Property ezaWpUl_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_IdColumn) = value End Set End Property _ Public Property ezaWpUl_EzaWpId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_EzaWpIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_EzaWpIdColumn) = value End Set End Property _ Public Property ezaWpUl_EzaId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_EzaIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_EzaIdColumn) = value End Set End Property _ Public Property ezaWpUl_Bereich() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_BereichColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpUl_Bereich in Tabelle tblDakosy_EZA_WarenpositionUnterla"& _ "gen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_BereichColumn) = value End Set End Property _ Public Property ezaWpUl_Art() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_ArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpUl_Art in Tabelle tblDakosy_EZA_WarenpositionUnterlagen "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_ArtColumn) = value End Set End Property _ Public Property ezaWpUl_Nummer() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_NummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpUl_Nummer in Tabelle tblDakosy_EZA_WarenpositionUnterlag"& _ "en ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_NummerColumn) = value End Set End Property _ Public Property ezaWpUl_DatumAusstellung() As Date Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_DatumAusstellungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpUl_DatumAusstellung in Tabelle tblDakosy_EZA_Warenpositi"& _ "onUnterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_DatumAusstellungColumn) = value End Set End Property _ Public Property ezaWpUl_VorlageKz() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_VorlageKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpUl_VorlageKz in Tabelle tblDakosy_EZA_WarenpositionUnter"& _ "lagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_VorlageKzColumn) = value End Set End Property _ Public Property ezaWpUl_AbschreibungsMenge() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpUl_AbschreibungsMenge in Tabelle tblDakosy_EZA_Warenposi"& _ "tionUnterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeColumn) = value End Set End Property _ Public Property ezaWpUl_AbschreibungsMengeMasseinheit() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeMasseinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpUl_AbschreibungsMengeMasseinheit in Tabelle tblDakosy_EZ"& _ "A_WarenpositionUnterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeMasseinheitColumn) = value End Set End Property _ Public Property ezaWpUl_AbschreibungsMengeMasseinheitQualifier() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeMasseinheitQualifierColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpUl_AbschreibungsMengeMasseinheitQualifier in Tabelle tbl"& _ "Dakosy_EZA_WarenpositionUnterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeMasseinheitQualifierColumn) = value End Set End Property _ Public Function IsezaWpUl_BereichNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_BereichColumn) End Function _ Public Sub SetezaWpUl_BereichNull() Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_BereichColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpUl_ArtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_ArtColumn) End Function _ Public Sub SetezaWpUl_ArtNull() Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_ArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpUl_NummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_NummerColumn) End Function _ Public Sub SetezaWpUl_NummerNull() Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_NummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpUl_DatumAusstellungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_DatumAusstellungColumn) End Function _ Public Sub SetezaWpUl_DatumAusstellungNull() Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_DatumAusstellungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpUl_VorlageKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_VorlageKzColumn) End Function _ Public Sub SetezaWpUl_VorlageKzNull() Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_VorlageKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpUl_AbschreibungsMengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeColumn) End Function _ Public Sub SetezaWpUl_AbschreibungsMengeNull() Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpUl_AbschreibungsMengeMasseinheitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeMasseinheitColumn) End Function _ Public Sub SetezaWpUl_AbschreibungsMengeMasseinheitNull() Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeMasseinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpUl_AbschreibungsMengeMasseinheitQualifierNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeMasseinheitQualifierColumn) End Function _ Public Sub SetezaWpUl_AbschreibungsMengeMasseinheitQualifierNull() Me(Me.tabletblDakosy_EZA_WarenpositionUnterlagen.ezaWpUl_AbschreibungsMengeMasseinheitQualifierColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_EZA_WarenpositionVerbrauchssteuerRow Inherits Global.System.Data.DataRow Private tabletblDakosy_EZA_WarenpositionVerbrauchssteuer As tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer = CType(Me.Table,tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable) End Sub _ Public Property ezaWpVs_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_IdColumn) = value End Set End Property _ Public Property ezaWpVs_EzaWpId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_EzaWpIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_EzaWpIdColumn) = value End Set End Property _ Public Property ezaWpVs_EzaId() As Integer Get Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_EzaIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_EzaIdColumn) = value End Set End Property _ Public Property ezaWpVs_VerbrauchsteuerCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchsteuerCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpVs_VerbrauchsteuerCode in Tabelle tblDakosy_EZA_Warenpos"& _ "itionVerbrauchssteuer ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchsteuerCodeColumn) = value End Set End Property _ Public Property ezaWpVs_VerbrauchssteuerMenge() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMengeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpVs_VerbrauchssteuerMenge in Tabelle tblDakosy_EZA_Warenp"& _ "ositionVerbrauchssteuer ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMengeColumn) = value End Set End Property _ Public Property ezaWpVs_VerbrauchssteuerMasseinheitCode() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMasseinheitCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpVs_VerbrauchssteuerMasseinheitCode in Tabelle tblDakosy_"& _ "EZA_WarenpositionVerbrauchssteuer ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMasseinheitCodeColumn) = value End Set End Property _ Public Property ezaWpVs_VerbrauchssteuerMasseinheitQualifier() As String Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMasseinheitQualifierColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpVs_VerbrauchssteuerMasseinheitQualifier in Tabelle tblDa"& _ "kosy_EZA_WarenpositionVerbrauchssteuer ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMasseinheitQualifierColumn) = value End Set End Property _ Public Property ezaWpVs_GradProzent() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_GradProzentColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpVs_GradProzent in Tabelle tblDakosy_EZA_WarenpositionVer"& _ "brauchssteuer ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_GradProzentColumn) = value End Set End Property _ Public Property ezaWpVs_VerbrauchssteuerWertbasis() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerWertbasisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ezaWpVs_VerbrauchssteuerWertbasis in Tabelle tblDakosy_EZA_Wa"& _ "renpositionVerbrauchssteuer ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerWertbasisColumn) = value End Set End Property _ Public Function IsezaWpVs_VerbrauchsteuerCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchsteuerCodeColumn) End Function _ Public Sub SetezaWpVs_VerbrauchsteuerCodeNull() Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchsteuerCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpVs_VerbrauchssteuerMengeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMengeColumn) End Function _ Public Sub SetezaWpVs_VerbrauchssteuerMengeNull() Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpVs_VerbrauchssteuerMasseinheitCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMasseinheitCodeColumn) End Function _ Public Sub SetezaWpVs_VerbrauchssteuerMasseinheitCodeNull() Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMasseinheitCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpVs_VerbrauchssteuerMasseinheitQualifierNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMasseinheitQualifierColumn) End Function _ Public Sub SetezaWpVs_VerbrauchssteuerMasseinheitQualifierNull() Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerMasseinheitQualifierColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpVs_GradProzentNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_GradProzentColumn) End Function _ Public Sub SetezaWpVs_GradProzentNull() Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_GradProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsezaWpVs_VerbrauchssteuerWertbasisNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerWertbasisColumn) End Function _ Public Sub SetezaWpVs_VerbrauchssteuerWertbasisNull() Me(Me.tabletblDakosy_EZA_WarenpositionVerbrauchssteuer.ezaWpVs_VerbrauchssteuerWertbasisColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOutRow Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut As tblDakosy_NCTSOutDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut = CType(Me.Table,tblDakosy_NCTSOutDataTable) End Sub _ Public Property ncts_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_IdColumn) = value End Set End Property _ Public Property ncts_Status() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_StatusColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_StatusColumn) = value End Set End Property _ Public Property ncts_Status_KEWILL_Equivalent() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Status_KEWILL_EquivalentColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Status_KEWILL_EquivalentColumn) = value End Set End Property _ Public Property ncts_dyaArt() As String Get Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_dyaArtColumn),String) End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_dyaArtColumn) = value End Set End Property _ Public Property ncts_dyaAnmID() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_dyaAnmIDColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_dyaAnmIDColumn) = value End Set End Property _ Public Property ncts_ANR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_ANRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ANR in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_ANRColumn) = value End Set End Property _ Public Property ncts_MRN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_MRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_MRN in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_MRNColumn) = value End Set End Property _ Public Property ncts_Erstellung() As Date Get Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_ErstellungColumn),Date) End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_ErstellungColumn) = value End Set End Property _ Public Property ncts_Erstellung_SB() As Integer Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Erstellung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Erstellung_SB in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Erstellung_SBColumn) = value End Set End Property _ Public Property ncts_LetzteBearbeitung() As Date Get Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_LetzteBearbeitungColumn),Date) End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_LetzteBearbeitungColumn) = value End Set End Property _ Public Property ncts_LetzteBearbeitung_SB() As Integer Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_LetzteBearbeitung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_LetzteBearbeitung_SB in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_LetzteBearbeitung_SBColumn) = value End Set End Property _ Public Property ncts_firma() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_firmaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_firma in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_firmaColumn) = value End Set End Property _ Public Property ncts_niederlassung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_niederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_niederlassung in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_niederlassungColumn) = value End Set End Property _ Public Property ncts_Gestellt() As Boolean Get Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_GestelltColumn),Boolean) End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_GestelltColumn) = value End Set End Property _ Public Property ncts_GestelltAm() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_GestelltAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_GestelltAm in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_GestelltAmColumn) = value End Set End Property _ Public Property ncts_Trans_Partner() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_PartnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Partner in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_PartnerColumn) = value End Set End Property _ Public Property ncts_Trans_Div1() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Div1 in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div1Column) = value End Set End Property _ Public Property ncts_Trans_Div2() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Div2 in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div2Column) = value End Set End Property _ Public Property ncts_Trans_Div3() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Div3 in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div3Column) = value End Set End Property _ Public Property ncts_Trans_Referenz() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_ReferenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Referenz in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_ReferenzColumn) = value End Set End Property _ Public Property ncts_Trans_DatumZeit() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_DatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_DatumZeit in Tabelle tblDakosy_NCTSOut ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_DatumZeitColumn) = value End Set End Property _ Public Property ncts_Trans_Version() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_VersionColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Version in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_VersionColumn) = value End Set End Property _ Public Property ncts_NachrichtenSenderTIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenSenderTINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_NachrichtenSenderTIN in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenSenderTINColumn) = value End Set End Property _ Public Property ncts_NachrichtenSenderNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenSenderNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_NachrichtenSenderNLNR in Tabelle tblDakosy_NCTSOut ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenSenderNLNRColumn) = value End Set End Property _ Public Property ncts_NachrichtenempfaengerDST() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenempfaengerDSTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_NachrichtenempfaengerDST in Tabelle tblDakosy_NCTSOut is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenempfaengerDSTColumn) = value End Set End Property _ Public Property ncts_ObjectName() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_ObjectNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ObjectName in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_ObjectNameColumn) = value End Set End Property _ Public Property ncts_ObjectAlias() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_ObjectAliasColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ObjectAlias in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_ObjectAliasColumn) = value End Set End Property _ Public Property ncts_BezugsnummerVorblendung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_BezugsnummerVorblendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_BezugsnummerVorblendung in Tabelle tblDakosy_NCTSOut ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_BezugsnummerVorblendungColumn) = value End Set End Property _ Public Property ncts_Bearbeiter() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_BearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Bearbeiter in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_BearbeiterColumn) = value End Set End Property _ Public Property ncts_VersendungsLandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_VersendungsLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_VersendungsLandCode in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_VersendungsLandCodeColumn) = value End Set End Property _ Public Property ncts_BestimmungslandCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_BestimmungslandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_BestimmungslandCode in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_BestimmungslandCodeColumn) = value End Set End Property _ Public Property ncts_ArtAnmeldung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_ArtAnmeldungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ArtAnmeldung in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_ArtAnmeldungColumn) = value End Set End Property _ Public Property ncts_BeladungsOrt() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_BeladungsOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_BeladungsOrt in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_BeladungsOrtColumn) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer1() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer1 in Tabelle tblDak"& _ "osy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer1Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer2() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer2 in Tabelle tblDak"& _ "osy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer2Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer3() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer3 in Tabelle tblDak"& _ "osy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer3Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer4() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer4 in Tabelle tblDak"& _ "osy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer4Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer5() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer5 in Tabelle tblDak"& _ "osy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer5Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer6() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer6 in Tabelle tblDak"& _ "osy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer6Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer7() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer7 in Tabelle tblDak"& _ "osy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer7Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer8() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer8 in Tabelle tblDak"& _ "osy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer8Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer9() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer9 in Tabelle tblDak"& _ "osy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer9Column) = value End Set End Property _ Public Property ncts_BestimmungsstelleDienststellennummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_BestimmungsstelleDienststellennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_BestimmungsstelleDienststellennummer in Tabelle tblDakos"& _ "y_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_BestimmungsstelleDienststellennummerColumn) = value End Set End Property _ Public Property ncts_AbgangsDienststellennummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_AbgangsDienststellennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AbgangsDienststellennummer in Tabelle tblDakosy_NCTSOut "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_AbgangsDienststellennummerColumn) = value End Set End Property _ Public Property ncts_Wiedergestellungsdatum() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_WiedergestellungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Wiedergestellungsdatum in Tabelle tblDakosy_NCTSOut ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_WiedergestellungsdatumColumn) = value End Set End Property _ Public Property ncts_KzVereinfachtesVerfahren() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_KzVereinfachtesVerfahrenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_KzVereinfachtesVerfahren in Tabelle tblDakosy_NCTSOut is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_KzVereinfachtesVerfahrenColumn) = value End Set End Property _ Public Property ncts_GesamtRohmasse() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_GesamtRohmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_GesamtRohmasse in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_GesamtRohmasseColumn) = value End Set End Property _ Public Property ncts_GesamtAnzahlPackstuecke() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_GesamtAnzahlPackstueckeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_GesamtAnzahlPackstuecke in Tabelle tblDakosy_NCTSOut ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_GesamtAnzahlPackstueckeColumn) = value End Set End Property _ Public Property ncts_Verschluss_ArtCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_ArtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_ArtCode in Tabelle tblDakosy_NCTSOut ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_ArtCodeColumn) = value End Set End Property _ Public Property ncts_Verschluss_Anzahl() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_AnzahlColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Anzahl in Tabelle tblDakosy_NCTSOut ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_AnzahlColumn) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen1() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen1 in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen1Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen2() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen2 in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen2Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen3() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen3 in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen3Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen4() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen4 in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen4Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen5() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen5 in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen5Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen6() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen6 in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen6Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen7() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen7 in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen7Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen8() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen8 in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen8Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen9() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen9 in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen9Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen10() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen10 in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen10Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen11() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen11Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen11 in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen11Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen12() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen12Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen12 in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen12Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen13() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen13Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen13 in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen13Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen14() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen14Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen14 in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen14Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen15() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen15Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen15 in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen15Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen16() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen16Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen16 in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen16Column) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_KennzeichenAbgang() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_KennzeichenAbgangColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_KennzeichenAbgang in Tabelle tblDako"& _ "sy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_KennzeichenAbgangColumn) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode in Tab"& _ "elle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeColumn) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent in"& _ " Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentColumn) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_ArtGrenzueberschreitungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_ArtGrenzueberschreitung in Tabelle t"& _ "blDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_ArtGrenzueberschreitungColumn) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend in T"& _ "abelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendColumn) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschrei"& _ "tendCode in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeColumn) = value End Set End Property _ Public Property ncts_Versender_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_EORI in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_EORIColumn) = value End Set End Property _ Public Property ncts_Versender_NLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_NLNR in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_NLNRColumn) = value End Set End Property _ Public Property ncts_Versender_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_TIN in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_TINColumn) = value End Set End Property _ Public Property ncts_Versender_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_Name in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_NameColumn) = value End Set End Property _ Public Property ncts_Versender_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_StrasseHausnummer in Tabelle tblDakosy_NCTSOut"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_Versender_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_Ort in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_OrtColumn) = value End Set End Property _ Public Property ncts_Versender_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_PLZ in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_PLZColumn) = value End Set End Property _ Public Property ncts_Versender_Land() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_Land in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_LandColumn) = value End Set End Property _ Public Property ncts_Empfaenger_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_EORI in Tabelle tblDakosy_NCTSOut ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_EORIColumn) = value End Set End Property _ Public Property ncts_Empfaenger_NLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_NLNR in Tabelle tblDakosy_NCTSOut ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_NLNRColumn) = value End Set End Property _ Public Property ncts_Empfaenger_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_TIN in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_TINColumn) = value End Set End Property _ Public Property ncts_Empfaenger_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_Name in Tabelle tblDakosy_NCTSOut ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_NameColumn) = value End Set End Property _ Public Property ncts_Empfaenger_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_StrasseHausnummer in Tabelle tblDakosy_NCTSOu"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_Empfaenger_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_Ort in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_OrtColumn) = value End Set End Property _ Public Property ncts_Empfaenger_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_PLZ in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_PLZColumn) = value End Set End Property _ Public Property ncts_Empfaenger_Land() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_Land in Tabelle tblDakosy_NCTSOut ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_LandColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_EORI in Tabelle tblDakosy_NCTSOut is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_EORIColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_NLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_NLNR in Tabelle tblDakosy_NCTSOut is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_NLNRColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_TIN in Tabelle tblDakosy_NCTSOut ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_TINColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_Name in Tabelle tblDakosy_NCTSOut is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_NameColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_StrasseHausnummer in Tabelle tblDako"& _ "sy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_Ort in Tabelle tblDakosy_NCTSOut ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_OrtColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_PLZ in Tabelle tblDakosy_NCTSOut ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_PLZColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_Land() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_Land in Tabelle tblDakosy_NCTSOut is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_LandColumn) = value End Set End Property _ Public Property ncts_ZugelassenerEmpfaenger_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ZugelassenerEmpfaenger_EORI in Tabelle tblDakosy_NCTSOut"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_EORIColumn) = value End Set End Property _ Public Property ncts_ZugelassenerEmpfaenger_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ZugelassenerEmpfaenger_TIN in Tabelle tblDakosy_NCTSOut "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_TINColumn) = value End Set End Property _ Public Property ncts_ZugelassenerEmpfaenger_IDCarnet() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_IDCarnetColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ZugelassenerEmpfaenger_IDCarnet in Tabelle tblDakosy_NCT"& _ "SOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_IDCarnetColumn) = value End Set End Property _ Public Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender in Ta"& _ "belle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderColumn) = value End Set End Property _ Public Property ncts_SumA_KzSumASicherheit() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_KzSumASicherheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_KzSumASicherheit in Tabelle tblDakosy_NCTSOut ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_KzSumASicherheitColumn) = value End Set End Property _ Public Property ncts_SumA_KennnummerSendung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_KennnummerSendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_KennnummerSendung in Tabelle tblDakosy_NCTSOut ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_KennnummerSendungColumn) = value End Set End Property _ Public Property ncts_SumA_NummerBefoerderung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_NummerBefoerderungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_NummerBefoerderung in Tabelle tblDakosy_NCTSOut ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_NummerBefoerderungColumn) = value End Set End Property _ Public Property ncts_SumA_BesondereUmstaende() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BesondereUmstaendeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BesondereUmstaende in Tabelle tblDakosy_NCTSOut ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BesondereUmstaendeColumn) = value End Set End Property _ Public Property ncts_SumA_Ladeort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_LadeortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Ladeort in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_LadeortColumn) = value End Set End Property _ Public Property ncts_SumA_Entladeort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_EntladeortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Entladeort in Tabelle tblDakosy_NCTSOut ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_EntladeortColumn) = value End Set End Property _ Public Property ncts_SumA_BefoerderungskostenZahlungsweise() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungskostenZahlungsweiseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungskostenZahlungsweise in Tabelle tblDako"& _ "sy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungskostenZahlungsweiseColumn) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand1() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand1 in Tabelle tblDakosy_NCTSOu"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand1Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand2() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand2 in Tabelle tblDakosy_NCTSOu"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand2Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand3() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand3 in Tabelle tblDakosy_NCTSOu"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand3Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand4() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand4 in Tabelle tblDakosy_NCTSOu"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand4Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand5() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand5 in Tabelle tblDakosy_NCTSOu"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand5Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand6() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand6 in Tabelle tblDakosy_NCTSOu"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand6Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand7() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand7 in Tabelle tblDakosy_NCTSOu"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand7Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand8() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand8 in Tabelle tblDakosy_NCTSOu"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand8Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand9() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand9 in Tabelle tblDakosy_NCTSOu"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand9Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand10() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand10 in Tabelle tblDakosy_NCTSO"& _ "ut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand10Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand11() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand11Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand11 in Tabelle tblDakosy_NCTSO"& _ "ut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand11Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand12() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand12Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand12 in Tabelle tblDakosy_NCTSO"& _ "ut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand12Column) = value End Set End Property _ Public Property ncts_SumA_Versender_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_EORI in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_EORIColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_NLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_NLNR in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_NLNRColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_TIN in Tabelle tblDakosy_NCTSOut ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_TINColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_Name in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_NameColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_StrasseHausnummer in Tabelle tblDakosy_NC"& _ "TSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_Land() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_Land in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_LandColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_PLZ in Tabelle tblDakosy_NCTSOut ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_PLZColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_Ort in Tabelle tblDakosy_NCTSOut ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_OrtColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_EORI in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_EORIColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_NLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_NLNR in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_NLNRColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_TIN in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_TINColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_Name in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_NameColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_StrasseHausnummer in Tabelle tblDakosy_N"& _ "CTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_Land() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_Land in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_LandColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_PLZ in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_PLZColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_Ort in Tabelle tblDakosy_NCTSOut ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_OrtColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_EORI in Tabelle tblDakosy_NCTSOut ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_EORIColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_NLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_NLNR in Tabelle tblDakosy_NCTSOut ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_NLNRColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_TIN in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_TINColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_Name in Tabelle tblDakosy_NCTSOut ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_NameColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_StrasseHausnummer in Tabelle tblDakosy_"& _ "NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_Land() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_Land in Tabelle tblDakosy_NCTSOut ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_LandColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_PLZ in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_PLZColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_Ort in Tabelle tblDakosy_NCTSOut ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_OrtColumn) = value End Set End Property _ Public Property ncts_Stammreferenz() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut.ncts_StammreferenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Stammreferenz in Tabelle tblDakosy_NCTSOut ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut.ncts_StammreferenzColumn) = value End Set End Property _ Public Function Isncts_ANRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_ANRColumn) End Function _ Public Sub Setncts_ANRNull() Me(Me.tabletblDakosy_NCTSOut.ncts_ANRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_MRNNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_MRNColumn) End Function _ Public Sub Setncts_MRNNull() Me(Me.tabletblDakosy_NCTSOut.ncts_MRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Erstellung_SBNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Erstellung_SBColumn) End Function _ Public Sub Setncts_Erstellung_SBNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Erstellung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_LetzteBearbeitung_SBNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_LetzteBearbeitung_SBColumn) End Function _ Public Sub Setncts_LetzteBearbeitung_SBNull() Me(Me.tabletblDakosy_NCTSOut.ncts_LetzteBearbeitung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_firmaNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_firmaColumn) End Function _ Public Sub Setncts_firmaNull() Me(Me.tabletblDakosy_NCTSOut.ncts_firmaColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_niederlassungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_niederlassungColumn) End Function _ Public Sub Setncts_niederlassungNull() Me(Me.tabletblDakosy_NCTSOut.ncts_niederlassungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_GestelltAmNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_GestelltAmColumn) End Function _ Public Sub Setncts_GestelltAmNull() Me(Me.tabletblDakosy_NCTSOut.ncts_GestelltAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_PartnerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Trans_PartnerColumn) End Function _ Public Sub Setncts_Trans_PartnerNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_PartnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_Div1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div1Column) End Function _ Public Sub Setncts_Trans_Div1Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_Div2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div2Column) End Function _ Public Sub Setncts_Trans_Div2Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_Div3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div3Column) End Function _ Public Sub Setncts_Trans_Div3Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_Div3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_ReferenzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Trans_ReferenzColumn) End Function _ Public Sub Setncts_Trans_ReferenzNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_ReferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_DatumZeitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Trans_DatumZeitColumn) End Function _ Public Sub Setncts_Trans_DatumZeitNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_DatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_VersionNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Trans_VersionColumn) End Function _ Public Sub Setncts_Trans_VersionNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Trans_VersionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_NachrichtenSenderTINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenSenderTINColumn) End Function _ Public Sub Setncts_NachrichtenSenderTINNull() Me(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenSenderTINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_NachrichtenSenderNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenSenderNLNRColumn) End Function _ Public Sub Setncts_NachrichtenSenderNLNRNull() Me(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenSenderNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_NachrichtenempfaengerDSTNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenempfaengerDSTColumn) End Function _ Public Sub Setncts_NachrichtenempfaengerDSTNull() Me(Me.tabletblDakosy_NCTSOut.ncts_NachrichtenempfaengerDSTColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ObjectNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_ObjectNameColumn) End Function _ Public Sub Setncts_ObjectNameNull() Me(Me.tabletblDakosy_NCTSOut.ncts_ObjectNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ObjectAliasNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_ObjectAliasColumn) End Function _ Public Sub Setncts_ObjectAliasNull() Me(Me.tabletblDakosy_NCTSOut.ncts_ObjectAliasColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BezugsnummerVorblendungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_BezugsnummerVorblendungColumn) End Function _ Public Sub Setncts_BezugsnummerVorblendungNull() Me(Me.tabletblDakosy_NCTSOut.ncts_BezugsnummerVorblendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_BearbeiterColumn) End Function _ Public Sub Setncts_BearbeiterNull() Me(Me.tabletblDakosy_NCTSOut.ncts_BearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_VersendungsLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_VersendungsLandCodeColumn) End Function _ Public Sub Setncts_VersendungsLandCodeNull() Me(Me.tabletblDakosy_NCTSOut.ncts_VersendungsLandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BestimmungslandCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_BestimmungslandCodeColumn) End Function _ Public Sub Setncts_BestimmungslandCodeNull() Me(Me.tabletblDakosy_NCTSOut.ncts_BestimmungslandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ArtAnmeldungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_ArtAnmeldungColumn) End Function _ Public Sub Setncts_ArtAnmeldungNull() Me(Me.tabletblDakosy_NCTSOut.ncts_ArtAnmeldungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BeladungsOrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_BeladungsOrtColumn) End Function _ Public Sub Setncts_BeladungsOrtNull() Me(Me.tabletblDakosy_NCTSOut.ncts_BeladungsOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer1Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer1Null() Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer2Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer2Null() Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer3Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer3Null() Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer4Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer4Null() Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer4Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer5Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer5Null() Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer5Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer6Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer6Null() Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer6Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer7Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer7Null() Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer7Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer8Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer8Null() Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer8Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer9Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer9Null() Me(Me.tabletblDakosy_NCTSOut.ncts_DurchgangszollstelleDienststellnummer9Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BestimmungsstelleDienststellennummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_BestimmungsstelleDienststellennummerColumn) End Function _ Public Sub Setncts_BestimmungsstelleDienststellennummerNull() Me(Me.tabletblDakosy_NCTSOut.ncts_BestimmungsstelleDienststellennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AbgangsDienststellennummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_AbgangsDienststellennummerColumn) End Function _ Public Sub Setncts_AbgangsDienststellennummerNull() Me(Me.tabletblDakosy_NCTSOut.ncts_AbgangsDienststellennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_WiedergestellungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_WiedergestellungsdatumColumn) End Function _ Public Sub Setncts_WiedergestellungsdatumNull() Me(Me.tabletblDakosy_NCTSOut.ncts_WiedergestellungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_KzVereinfachtesVerfahrenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_KzVereinfachtesVerfahrenColumn) End Function _ Public Sub Setncts_KzVereinfachtesVerfahrenNull() Me(Me.tabletblDakosy_NCTSOut.ncts_KzVereinfachtesVerfahrenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_GesamtRohmasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_GesamtRohmasseColumn) End Function _ Public Sub Setncts_GesamtRohmasseNull() Me(Me.tabletblDakosy_NCTSOut.ncts_GesamtRohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_GesamtAnzahlPackstueckeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_GesamtAnzahlPackstueckeColumn) End Function _ Public Sub Setncts_GesamtAnzahlPackstueckeNull() Me(Me.tabletblDakosy_NCTSOut.ncts_GesamtAnzahlPackstueckeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_ArtCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_ArtCodeColumn) End Function _ Public Sub Setncts_Verschluss_ArtCodeNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_ArtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_AnzahlNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_AnzahlColumn) End Function _ Public Sub Setncts_Verschluss_AnzahlNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen1Column) End Function _ Public Sub Setncts_Verschluss_Zeichen1Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen2Column) End Function _ Public Sub Setncts_Verschluss_Zeichen2Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen3Column) End Function _ Public Sub Setncts_Verschluss_Zeichen3Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen4Column) End Function _ Public Sub Setncts_Verschluss_Zeichen4Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen4Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen5Column) End Function _ Public Sub Setncts_Verschluss_Zeichen5Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen5Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen6Column) End Function _ Public Sub Setncts_Verschluss_Zeichen6Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen6Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen7Column) End Function _ Public Sub Setncts_Verschluss_Zeichen7Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen7Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen8Column) End Function _ Public Sub Setncts_Verschluss_Zeichen8Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen8Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen9Column) End Function _ Public Sub Setncts_Verschluss_Zeichen9Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen9Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen10Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen10Column) End Function _ Public Sub Setncts_Verschluss_Zeichen10Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen10Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen11Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen11Column) End Function _ Public Sub Setncts_Verschluss_Zeichen11Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen11Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen12Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen12Column) End Function _ Public Sub Setncts_Verschluss_Zeichen12Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen12Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen13Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen13Column) End Function _ Public Sub Setncts_Verschluss_Zeichen13Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen13Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen14Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen14Column) End Function _ Public Sub Setncts_Verschluss_Zeichen14Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen14Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen15Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen15Column) End Function _ Public Sub Setncts_Verschluss_Zeichen15Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen15Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen16Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen16Column) End Function _ Public Sub Setncts_Verschluss_Zeichen16Null() Me(Me.tabletblDakosy_NCTSOut.ncts_Verschluss_Zeichen16Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_KennzeichenAbgangNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_KennzeichenAbgangColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_KennzeichenAbgangNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_KennzeichenAbgangColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_ArtGrenzueberschreitungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_ArtGrenzueberschreitungColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_ArtGrenzueberschreitungNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_ArtGrenzueberschreitungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Versender_EORIColumn) End Function _ Public Sub Setncts_Versender_EORINull() Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Versender_NLNRColumn) End Function _ Public Sub Setncts_Versender_NLNRNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Versender_TINColumn) End Function _ Public Sub Setncts_Versender_TINNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Versender_NameColumn) End Function _ Public Sub Setncts_Versender_NameNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Versender_StrasseHausnummerColumn) End Function _ Public Sub Setncts_Versender_StrasseHausnummerNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Versender_OrtColumn) End Function _ Public Sub Setncts_Versender_OrtNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Versender_PLZColumn) End Function _ Public Sub Setncts_Versender_PLZNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_LandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Versender_LandColumn) End Function _ Public Sub Setncts_Versender_LandNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Versender_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_EORIColumn) End Function _ Public Sub Setncts_Empfaenger_EORINull() Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_NLNRColumn) End Function _ Public Sub Setncts_Empfaenger_NLNRNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_TINColumn) End Function _ Public Sub Setncts_Empfaenger_TINNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_NameColumn) End Function _ Public Sub Setncts_Empfaenger_NameNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_StrasseHausnummerColumn) End Function _ Public Sub Setncts_Empfaenger_StrasseHausnummerNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_OrtColumn) End Function _ Public Sub Setncts_Empfaenger_OrtNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_PLZColumn) End Function _ Public Sub Setncts_Empfaenger_PLZNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_LandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_LandColumn) End Function _ Public Sub Setncts_Empfaenger_LandNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Empfaenger_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_EORIColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_EORINull() Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_NLNRColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_NLNRNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_TINColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_TINNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_NameColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_NameNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_StrasseHausnummerColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_StrasseHausnummerNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_OrtColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_OrtNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_PLZColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_PLZNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_LandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_LandColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_LandNull() Me(Me.tabletblDakosy_NCTSOut.ncts_Hauptverpflichteter_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ZugelassenerEmpfaenger_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_EORIColumn) End Function _ Public Sub Setncts_ZugelassenerEmpfaenger_EORINull() Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ZugelassenerEmpfaenger_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_TINColumn) End Function _ Public Sub Setncts_ZugelassenerEmpfaenger_TINNull() Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ZugelassenerEmpfaenger_IDCarnetNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_IDCarnetColumn) End Function _ Public Sub Setncts_ZugelassenerEmpfaenger_IDCarnetNull() Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_IDCarnetColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderColumn) End Function _ Public Sub Setncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderNull() Me(Me.tabletblDakosy_NCTSOut.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_KzSumASicherheitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_KzSumASicherheitColumn) End Function _ Public Sub Setncts_SumA_KzSumASicherheitNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_KzSumASicherheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_KennnummerSendungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_KennnummerSendungColumn) End Function _ Public Sub Setncts_SumA_KennnummerSendungNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_KennnummerSendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_NummerBefoerderungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_NummerBefoerderungColumn) End Function _ Public Sub Setncts_SumA_NummerBefoerderungNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_NummerBefoerderungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BesondereUmstaendeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BesondereUmstaendeColumn) End Function _ Public Sub Setncts_SumA_BesondereUmstaendeNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BesondereUmstaendeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_LadeortNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_LadeortColumn) End Function _ Public Sub Setncts_SumA_LadeortNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_LadeortColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_EntladeortNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_EntladeortColumn) End Function _ Public Sub Setncts_SumA_EntladeortNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_EntladeortColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungskostenZahlungsweiseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungskostenZahlungsweiseColumn) End Function _ Public Sub Setncts_SumA_BefoerderungskostenZahlungsweiseNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungskostenZahlungsweiseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand1Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand1Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand2Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand2Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand3Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand3Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand4Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand4Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand4Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand5Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand5Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand5Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand6Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand6Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand6Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand7Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand7Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand7Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand8Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand8Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand8Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand9Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand9Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand9Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand10Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand10Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand10Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand10Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand11Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand11Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand11Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand11Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand12Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand12Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand12Null() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_BefoerderungsrouteLand12Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_EORIColumn) End Function _ Public Sub Setncts_SumA_Versender_EORINull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_NLNRColumn) End Function _ Public Sub Setncts_SumA_Versender_NLNRNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_TINColumn) End Function _ Public Sub Setncts_SumA_Versender_TINNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_NameColumn) End Function _ Public Sub Setncts_SumA_Versender_NameNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_StrasseHausnummerColumn) End Function _ Public Sub Setncts_SumA_Versender_StrasseHausnummerNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_LandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_LandColumn) End Function _ Public Sub Setncts_SumA_Versender_LandNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_PLZColumn) End Function _ Public Sub Setncts_SumA_Versender_PLZNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_OrtColumn) End Function _ Public Sub Setncts_SumA_Versender_OrtNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Versender_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_EORIColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_EORINull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_NLNRColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_NLNRNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_TINColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_TINNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_NameColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_NameNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_StrasseHausnummerColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_StrasseHausnummerNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_LandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_LandColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_LandNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_PLZColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_PLZNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_OrtColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_OrtNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Empfaenger_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_EORIColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_EORINull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_NLNRColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_NLNRNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_TINColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_TINNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_NameColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_NameNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_StrasseHausnummerColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_StrasseHausnummerNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_LandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_LandColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_LandNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_PLZColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_PLZNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_OrtColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_OrtNull() Me(Me.tabletblDakosy_NCTSOut.ncts_SumA_Befoerderer_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_StammreferenzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut.ncts_StammreferenzColumn) End Function _ Public Sub Setncts_StammreferenzNull() Me(Me.tabletblDakosy_NCTSOut.ncts_StammreferenzColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOut_SicherheitsangabenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut_Sicherheitsangaben As tblDakosy_NCTSOut_SicherheitsangabenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut_Sicherheitsangaben = CType(Me.Table,tblDakosy_NCTSOut_SicherheitsangabenDataTable) End Sub _ Public Property nctsSA_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_IdColumn) = value End Set End Property _ Public Property nctsSA_NctsId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_NctsIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_NctsIdColumn) = value End Set End Property _ Public Property nctsSA_ArtCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_ArtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_ArtCode in Tabelle tblDakosy_NCTSOut_Sicherheitsangabe"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_ArtCodeColumn) = value End Set End Property _ Public Property nctsSA_BezeichnungBescheinigun() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_BezeichnungBescheinigunColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_BezeichnungBescheinigun in Tabelle tblDakosy_NCTSOut_S"& _ "icherheitsangaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_BezeichnungBescheinigunColumn) = value End Set End Property _ Public Property nctsSA_AbgabenBetrag() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_AbgabenBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_AbgabenBetrag in Tabelle tblDakosy_NCTSOut_Sicherheits"& _ "angaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_AbgabenBetragColumn) = value End Set End Property _ Public Property nctsSA_GRN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_GRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_GRN in Tabelle tblDakosy_NCTSOut_Sicherheitsangaben is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_GRNColumn) = value End Set End Property _ Public Property nctsSA_Zugriffcode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_ZugriffcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_Zugriffcode in Tabelle tblDakosy_NCTSOut_Sicherheitsan"& _ "gaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_ZugriffcodeColumn) = value End Set End Property _ Public Property nctsSA_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_TIN in Tabelle tblDakosy_NCTSOut_Sicherheitsangaben is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_TINColumn) = value End Set End Property _ Public Function IsnctsSA_ArtCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_ArtCodeColumn) End Function _ Public Sub SetnctsSA_ArtCodeNull() Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_ArtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_BezeichnungBescheinigunNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_BezeichnungBescheinigunColumn) End Function _ Public Sub SetnctsSA_BezeichnungBescheinigunNull() Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_BezeichnungBescheinigunColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_AbgabenBetragNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_AbgabenBetragColumn) End Function _ Public Sub SetnctsSA_AbgabenBetragNull() Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_AbgabenBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_GRNNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_GRNColumn) End Function _ Public Sub SetnctsSA_GRNNull() Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_GRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_ZugriffcodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_ZugriffcodeColumn) End Function _ Public Sub SetnctsSA_ZugriffcodeNull() Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_ZugriffcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_TINColumn) End Function _ Public Sub SetnctsSA_TINNull() Me(Me.tabletblDakosy_NCTSOut_Sicherheitsangaben.nctsSA_TINColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOut_WarenpositionRow Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut_Warenposition As tblDakosy_NCTSOut_WarenpositionDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut_Warenposition = CType(Me.Table,tblDakosy_NCTSOut_WarenpositionDataTable) End Sub _ Public Property nctsWP_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_IdColumn) = value End Set End Property _ Public Property nctsWP_NctsId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_NctsIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_NctsIdColumn) = value End Set End Property _ Public Property nctsWP_PositionsNummer() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_PositionsNummerColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_PositionsNummer in Tabelle tblDakosy_NCTSOut_Warenposi"& _ "tion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_PositionsNummerColumn) = value End Set End Property _ Public Property nctsWP_Warennummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Warennummer in Tabelle tblDakosy_NCTSOut_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarennummerColumn) = value End Set End Property _ Public Property nctsWP_ArtAnmeldungPositionCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_ArtAnmeldungPositionCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_ArtAnmeldungPositionCode in Tabelle tblDakosy_NCTSOut_"& _ "Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_ArtAnmeldungPositionCodeColumn) = value End Set End Property _ Public Property nctsWP_Warenbezeichnung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Warenbezeichnung in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenbezeichnungColumn) = value End Set End Property _ Public Property nctsWP_Warenwert() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Warenwert in Tabelle tblDakosy_NCTSOut_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertColumn) = value End Set End Property _ Public Property nctsWP_WarenwertWaehrung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertWaehrungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_WarenwertWaehrung in Tabelle tblDakosy_NCTSOut_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertWaehrungColumn) = value End Set End Property _ Public Property nctsWP_SchaetzKz() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SchaetzKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SchaetzKz in Tabelle tblDakosy_NCTSOut_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SchaetzKzColumn) = value End Set End Property _ Public Property nctsWP_WarenwertProzent() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertProzentColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_WarenwertProzent in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertProzentColumn) = value End Set End Property _ Public Property nctsWP_VersendungslandPositionCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VersendungslandPositionCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VersendungslandPositionCode in Tabelle tblDakosy_NCTSO"& _ "ut_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VersendungslandPositionCodeColumn) = value End Set End Property _ Public Property nctsWP_BestimmungslandPositionCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BestimmungslandPositionCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BestimmungslandPositionCode in Tabelle tblDakosy_NCTSO"& _ "ut_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BestimmungslandPositionCodeColumn) = value End Set End Property _ Public Property nctsWP_Rohmasse() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_RohmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Rohmasse in Tabelle tblDakosy_NCTSOut_Warenposition is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_RohmasseColumn) = value End Set End Property _ Public Property nctsWP_Eigenmasse() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_EigenmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Eigenmasse in Tabelle tblDakosy_NCTSOut_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_EigenmasseColumn) = value End Set End Property _ Public Property nctsWP_VorpapierTyp() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierTypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierTyp in Tabelle tblDakosy_NCTSOut_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierTypColumn) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz1() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz1 in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz1Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz1() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz1 in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz1Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz2() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz2 in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz2Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz2() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz2 in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz2Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz3() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz3 in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz3Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz3() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz3 in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz3Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz4() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz4 in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz4Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz4() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz4 in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz4Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz5() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz5 in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz5Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz5() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz5 in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz5Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz6() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz6 in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz6Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz6() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz6 in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz6Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz7() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz7 in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz7Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz7() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz7 in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz7Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz8() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz8 in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz8Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz8() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz8 in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz8Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz9() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz9 in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz9Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz9() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz9 in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz9Column) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_ExportAusEU() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAusEUColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_ExportAusEU in Tabelle tblDakosy_NCTS"& _ "Out_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAusEUColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_ExportAusLand() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAusLandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_ExportAusLand in Tabelle tblDakosy_NC"& _ "TSOut_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAusLandColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_Export() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_Export in Tabelle tblDakosy_NCTSOut_W"& _ "arenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_ExportBeschraenkung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportBeschraenkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_ExportBeschraenkung in Tabelle tblDak"& _ "osy_NCTSOut_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportBeschraenkungColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_ExportAbgaben() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAbgabenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_ExportAbgaben in Tabelle tblDakosy_NC"& _ "TSOut_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAbgabenColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_Vermerk() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_Vermerk in Tabelle tblDakosy_NCTSOut_"& _ "Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_VermerkColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_Kz10600() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_Kz10600Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_Kz10600 in Tabelle tblDakosy_NCTSOut_"& _ "Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_Kz10600Column) = value End Set End Property _ Public Property nctsWP_Versender_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_EORI in Tabelle tblDakosy_NCTSOut_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_EORIColumn) = value End Set End Property _ Public Property nctsWP_Versender_NLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_NLNR in Tabelle tblDakosy_NCTSOut_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_NLNRColumn) = value End Set End Property _ Public Property nctsWP_Versender_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_TIN in Tabelle tblDakosy_NCTSOut_Warenpositi"& _ "on ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_TINColumn) = value End Set End Property _ Public Property nctsWP_Versender_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_Name in Tabelle tblDakosy_NCTSOut_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_NameColumn) = value End Set End Property _ Public Property nctsWP_Versender_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_StrasseHausnummer in Tabelle tblDakosy_NCTSO"& _ "ut_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_StrasseHausnummerColumn) = value End Set End Property _ Public Property nctsWP_Versender_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_Ort in Tabelle tblDakosy_NCTSOut_Warenpositi"& _ "on ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_OrtColumn) = value End Set End Property _ Public Property nctsWP_Versender_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_PLZ in Tabelle tblDakosy_NCTSOut_Warenpositi"& _ "on ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_PLZColumn) = value End Set End Property _ Public Property nctsWP_Versender_Land() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_Land in Tabelle tblDakosy_NCTSOut_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_LandColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_EORI in Tabelle tblDakosy_NCTSOut_Warenposi"& _ "tion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_EORIColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_NLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_NLNR in Tabelle tblDakosy_NCTSOut_Warenposi"& _ "tion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_NLNRColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_TIN in Tabelle tblDakosy_NCTSOut_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_TINColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_Name in Tabelle tblDakosy_NCTSOut_Warenposi"& _ "tion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_NameColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_StrasseHausnummer in Tabelle tblDakosy_NCTS"& _ "Out_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_StrasseHausnummerColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_Ort in Tabelle tblDakosy_NCTSOut_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_OrtColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_PLZ in Tabelle tblDakosy_NCTSOut_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_PLZColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_Land() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_Land in Tabelle tblDakosy_NCTSOut_Warenposi"& _ "tion ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_LandColumn) = value End Set End Property _ Public Property nctsWP_SumAKennnummerSendung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAKennnummerSendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAKennnummerSendung in Tabelle tblDakosy_NCTSOut_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAKennnummerSendungColumn) = value End Set End Property _ Public Property nctsWP_SumABefoerderungskostenZahlungsweise() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumABefoerderungskostenZahlungsweiseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumABefoerderungskostenZahlungsweise in Tabelle tblDak"& _ "osy_NCTSOut_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumABefoerderungskostenZahlungsweiseColumn) = value End Set End Property _ Public Property nctsWP_SumAUNGefahrgutnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAUNGefahrgutnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAUNGefahrgutnummer in Tabelle tblDakosy_NCTSOut_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAUNGefahrgutnummerColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_EORI in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_EORIColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_NLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_NLNR in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_NLNRColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_TIN in Tabelle tblDakosy_NCTSOut_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_TINColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_Name in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_NameColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_StrasseHausnummer in Tabelle tblDakosy_N"& _ "CTSOut_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_StrasseHausnummerColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_Ort in Tabelle tblDakosy_NCTSOut_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_OrtColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_PLZ in Tabelle tblDakosy_NCTSOut_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_PLZColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_Land() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_Land in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_LandColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_EORI() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_EORI in Tabelle tblDakosy_NCTSOut_Waren"& _ "position ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_EORIColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_NLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_NLNR in Tabelle tblDakosy_NCTSOut_Waren"& _ "position ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_NLNRColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_TIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_TIN in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_TINColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_Name in Tabelle tblDakosy_NCTSOut_Waren"& _ "position ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_NameColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_StrasseHausnummer in Tabelle tblDakosy_"& _ "NCTSOut_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_StrasseHausnummerColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_Ort() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_Ort in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_OrtColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_PLZ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_PLZ in Tabelle tblDakosy_NCTSOut_Warenp"& _ "osition ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_PLZColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_Land() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_Land in Tabelle tblDakosy_NCTSOut_Waren"& _ "position ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_LandColumn) = value End Set End Property _ Public Property nctsWP_KdRefNr() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_KdRefNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_KdRefNr in Tabelle tblDakosy_NCTSOut_Warenposition ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_KdRefNrColumn) = value End Set End Property _ Public Function IsnctsWP_PositionsNummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_PositionsNummerColumn) End Function _ Public Sub SetnctsWP_PositionsNummerNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_PositionsNummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_WarennummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarennummerColumn) End Function _ Public Sub SetnctsWP_WarennummerNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_ArtAnmeldungPositionCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_ArtAnmeldungPositionCodeColumn) End Function _ Public Sub SetnctsWP_ArtAnmeldungPositionCodeNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_ArtAnmeldungPositionCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_WarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenbezeichnungColumn) End Function _ Public Sub SetnctsWP_WarenbezeichnungNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_WarenwertNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertColumn) End Function _ Public Sub SetnctsWP_WarenwertNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_WarenwertWaehrungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertWaehrungColumn) End Function _ Public Sub SetnctsWP_WarenwertWaehrungNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertWaehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SchaetzKzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SchaetzKzColumn) End Function _ Public Sub SetnctsWP_SchaetzKzNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SchaetzKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_WarenwertProzentNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertProzentColumn) End Function _ Public Sub SetnctsWP_WarenwertProzentNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_WarenwertProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VersendungslandPositionCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VersendungslandPositionCodeColumn) End Function _ Public Sub SetnctsWP_VersendungslandPositionCodeNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VersendungslandPositionCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BestimmungslandPositionCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BestimmungslandPositionCodeColumn) End Function _ Public Sub SetnctsWP_BestimmungslandPositionCodeNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BestimmungslandPositionCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_RohmasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_RohmasseColumn) End Function _ Public Sub SetnctsWP_RohmasseNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_RohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_EigenmasseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_EigenmasseColumn) End Function _ Public Sub SetnctsWP_EigenmasseNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_EigenmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierTypNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierTypColumn) End Function _ Public Sub SetnctsWP_VorpapierTypNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierTypColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz1Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz1Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz1Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz1Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz2Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz2Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz2Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz2Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz3Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz3Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz3Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz3Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz4Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz4Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz4Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz4Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz5Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz5Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz5Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz5Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz6Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz6Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz6Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz6Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz7Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz7Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz7Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz7Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz8Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz8Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz8Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz8Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz9Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz9Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierReferenz9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz9Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz9Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_VorpapierZusatz9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_ExportAusEUNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAusEUColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_ExportAusEUNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAusEUColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_ExportAusLandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAusLandColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_ExportAusLandNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAusLandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_ExportNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_ExportNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_ExportBeschraenkungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportBeschraenkungColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_ExportBeschraenkungNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportBeschraenkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_ExportAbgabenNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAbgabenColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_ExportAbgabenNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_ExportAbgabenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_VermerkNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_VermerkColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_VermerkNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_Kz10600Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_Kz10600Column) End Function _ Public Sub SetnctsWP_BesondereVermeke_Kz10600Null() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_BesondereVermeke_Kz10600Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_EORIColumn) End Function _ Public Sub SetnctsWP_Versender_EORINull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_NLNRColumn) End Function _ Public Sub SetnctsWP_Versender_NLNRNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_TINColumn) End Function _ Public Sub SetnctsWP_Versender_TINNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_NameColumn) End Function _ Public Sub SetnctsWP_Versender_NameNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_StrasseHausnummerColumn) End Function _ Public Sub SetnctsWP_Versender_StrasseHausnummerNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_OrtColumn) End Function _ Public Sub SetnctsWP_Versender_OrtNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_PLZColumn) End Function _ Public Sub SetnctsWP_Versender_PLZNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_LandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_LandColumn) End Function _ Public Sub SetnctsWP_Versender_LandNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Versender_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_EORIColumn) End Function _ Public Sub SetnctsWP_Empfaenger_EORINull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_NLNRColumn) End Function _ Public Sub SetnctsWP_Empfaenger_NLNRNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_TINColumn) End Function _ Public Sub SetnctsWP_Empfaenger_TINNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_NameColumn) End Function _ Public Sub SetnctsWP_Empfaenger_NameNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_StrasseHausnummerColumn) End Function _ Public Sub SetnctsWP_Empfaenger_StrasseHausnummerNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_OrtColumn) End Function _ Public Sub SetnctsWP_Empfaenger_OrtNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_PLZColumn) End Function _ Public Sub SetnctsWP_Empfaenger_PLZNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_LandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_LandColumn) End Function _ Public Sub SetnctsWP_Empfaenger_LandNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_Empfaenger_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAKennnummerSendungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAKennnummerSendungColumn) End Function _ Public Sub SetnctsWP_SumAKennnummerSendungNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAKennnummerSendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumABefoerderungskostenZahlungsweiseNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumABefoerderungskostenZahlungsweiseColumn) End Function _ Public Sub SetnctsWP_SumABefoerderungskostenZahlungsweiseNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumABefoerderungskostenZahlungsweiseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAUNGefahrgutnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAUNGefahrgutnummerColumn) End Function _ Public Sub SetnctsWP_SumAUNGefahrgutnummerNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAUNGefahrgutnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_EORIColumn) End Function _ Public Sub SetnctsWP_SumAVersender_EORINull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_NLNRColumn) End Function _ Public Sub SetnctsWP_SumAVersender_NLNRNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_TINColumn) End Function _ Public Sub SetnctsWP_SumAVersender_TINNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_NameColumn) End Function _ Public Sub SetnctsWP_SumAVersender_NameNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_StrasseHausnummerColumn) End Function _ Public Sub SetnctsWP_SumAVersender_StrasseHausnummerNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_OrtColumn) End Function _ Public Sub SetnctsWP_SumAVersender_OrtNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_PLZColumn) End Function _ Public Sub SetnctsWP_SumAVersender_PLZNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_LandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_LandColumn) End Function _ Public Sub SetnctsWP_SumAVersender_LandNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAVersender_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_EORINull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_EORIColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_EORINull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_NLNRColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_NLNRNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_TINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_TINColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_TINNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_NameColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_NameNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_StrasseHausnummerColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_StrasseHausnummerNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_OrtNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_OrtColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_OrtNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_PLZNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_PLZColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_PLZNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_LandNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_LandColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_LandNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_SumAEmpfaenger_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_KdRefNrNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_KdRefNrColumn) End Function _ Public Sub SetnctsWP_KdRefNrNull() Me(Me.tabletblDakosy_NCTSOut_Warenposition.nctsWP_KdRefNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOut_WarenpositionPackstueckeRow Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut_WarenpositionPackstuecke As tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke = CType(Me.Table,tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable) End Sub _ Public Property nctsWpPk_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_IdColumn) = value End Set End Property _ Public Property nctsWpPk_nctsWPId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_nctsWPIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_nctsWPIdColumn) = value End Set End Property _ Public Property nctsWpPk_NctsId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_NctsIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_NctsIdColumn) = value End Set End Property _ Public Property nctsWpPk_PackstueckeAnzahl() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_PackstueckeAnzahlColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWpPk_PackstueckeAnzahl in Tabelle tblDakosy_NCTSOut_Waren"& _ "positionPackstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_PackstueckeAnzahlColumn) = value End Set End Property _ Public Property nctsWpPk_Verpackungsart() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_VerpackungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWpPk_Verpackungsart in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "itionPackstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_VerpackungsartColumn) = value End Set End Property _ Public Property nctsWpPk_ZeichenNummern() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_ZeichenNummernColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWpPk_ZeichenNummern in Tabelle tblDakosy_NCTSOut_Warenpos"& _ "itionPackstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_ZeichenNummernColumn) = value End Set End Property _ Public Function IsnctsWpPk_PackstueckeAnzahlNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_PackstueckeAnzahlColumn) End Function _ Public Sub SetnctsWpPk_PackstueckeAnzahlNull() Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_PackstueckeAnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWpPk_VerpackungsartNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_VerpackungsartColumn) End Function _ Public Sub SetnctsWpPk_VerpackungsartNull() Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_VerpackungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWpPk_ZeichenNummernNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_ZeichenNummernColumn) End Function _ Public Sub SetnctsWpPk_ZeichenNummernNull() Me(Me.tabletblDakosy_NCTSOut_WarenpositionPackstuecke.nctsWpPk_ZeichenNummernColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen = CType(Me.Table,tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable) End Sub _ Public Property nctsWpUl_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_IdColumn) = value End Set End Property _ Public Property nctsWpUl_nctsWPId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_nctsWPIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_nctsWPIdColumn) = value End Set End Property _ Public Property nctsWpUl_NctsId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_NctsIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_NctsIdColumn) = value End Set End Property _ Public Property nctsWpUl_Typ() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_TypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWpUl_Typ in Tabelle tblDakosy_NCTSOut_WarenpositionVorgel"& _ "egteUnterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_TypColumn) = value End Set End Property _ Public Property nctsWpUl_Referenz() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_ReferenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWpUl_Referenz in Tabelle tblDakosy_NCTSOut_WarenpositionV"& _ "orgelegteUnterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_ReferenzColumn) = value End Set End Property _ Public Property nctsWpUl_Zusatz() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_ZusatzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWpUl_Zusatz in Tabelle tblDakosy_NCTSOut_WarenpositionVor"& _ "gelegteUnterlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_ZusatzColumn) = value End Set End Property _ Public Function IsnctsWpUl_TypNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_TypColumn) End Function _ Public Sub SetnctsWpUl_TypNull() Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_TypColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWpUl_ReferenzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_ReferenzColumn) End Function _ Public Sub SetnctsWpUl_ReferenzNull() Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_ReferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWpUl_ZusatzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_ZusatzColumn) End Function _ Public Sub SetnctsWpUl_ZusatzNull() Me(Me.tabletblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.nctsWpUl_ZusatzColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOut004Row Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut004 As tblDakosy_NCTSOut004DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut004 = CType(Me.Table,tblDakosy_NCTSOut004DataTable) End Sub _ Public Property ncts_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_IdColumn) = value End Set End Property _ Public Property ncts_Status() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_StatusColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_StatusColumn) = value End Set End Property _ Public Property ncts_Status_KEWILL_Equivalent() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Status_KEWILL_EquivalentColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Status_KEWILL_EquivalentColumn) = value End Set End Property _ Public Property ncts_dyaArt() As String Get Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_dyaArtColumn),String) End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_dyaArtColumn) = value End Set End Property _ Public Property ncts_dyaAnmID() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_dyaAnmIDColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_dyaAnmIDColumn) = value End Set End Property _ Public Property ncts_ANR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ANRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ANR in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ANRColumn) = value End Set End Property _ Public Property ncts_MRN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_MRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_MRN in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_MRNColumn) = value End Set End Property _ Public Property ncts_Erstellung() As Date Get Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ErstellungColumn),Date) End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ErstellungColumn) = value End Set End Property _ Public Property ncts_Erstellung_SB() As Integer Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Erstellung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Erstellung_SB in Tabelle tblDakosy_NCTSOut004 ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Erstellung_SBColumn) = value End Set End Property _ Public Property ncts_LetzteBearbeitung() As Date Get Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_LetzteBearbeitungColumn),Date) End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_LetzteBearbeitungColumn) = value End Set End Property _ Public Property ncts_LetzteBearbeitung_SB() As Integer Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_LetzteBearbeitung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_LetzteBearbeitung_SB in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_LetzteBearbeitung_SBColumn) = value End Set End Property _ Public Property ncts_firma() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_firmaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_firma in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_firmaColumn) = value End Set End Property _ Public Property ncts_niederlassung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_niederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_niederlassung in Tabelle tblDakosy_NCTSOut004 ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_niederlassungColumn) = value End Set End Property _ Public Property ncts_Gestellt() As Boolean Get Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_GestelltColumn),Boolean) End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_GestelltColumn) = value End Set End Property _ Public Property ncts_GestelltAm() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_GestelltAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_GestelltAm in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_GestelltAmColumn) = value End Set End Property _ Public Property ncts_Trans_Partner() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_PartnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Partner in Tabelle tblDakosy_NCTSOut004 ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_PartnerColumn) = value End Set End Property _ Public Property ncts_Trans_Div1() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Div1 in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div1Column) = value End Set End Property _ Public Property ncts_Trans_Div2() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Div2 in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div2Column) = value End Set End Property _ Public Property ncts_Trans_Div3() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Div3 in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div3Column) = value End Set End Property _ Public Property ncts_Trans_Referenz() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_ReferenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Referenz in Tabelle tblDakosy_NCTSOut004 ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_ReferenzColumn) = value End Set End Property _ Public Property ncts_Trans_DatumZeit() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_DatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_DatumZeit in Tabelle tblDakosy_NCTSOut004 ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_DatumZeitColumn) = value End Set End Property _ Public Property ncts_Trans_Version() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_VersionColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Version in Tabelle tblDakosy_NCTSOut004 ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_VersionColumn) = value End Set End Property _ Public Property ncts_NachrichtenSenderTIN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenSenderTINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_NachrichtenSenderTIN in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenSenderTINColumn) = value End Set End Property _ Public Property ncts_NachrichtenSenderNLNR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenSenderNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_NachrichtenSenderNLNR in Tabelle tblDakosy_NCTSOut004 is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenSenderNLNRColumn) = value End Set End Property _ Public Property ncts_NachrichtenempfaengerDST() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenempfaengerDSTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_NachrichtenempfaengerDST in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenempfaengerDSTColumn) = value End Set End Property _ Public Property ncts_ObjectName() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ObjectNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ObjectName in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ObjectNameColumn) = value End Set End Property _ Public Property ncts_ObjectAlias() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ObjectAliasColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ObjectAlias in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ObjectAliasColumn) = value End Set End Property _ Public Property ncts_BezugsnummerVorblendung() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_BezugsnummerVorblendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_BezugsnummerVorblendung in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_BezugsnummerVorblendungColumn) = value End Set End Property _ Public Property ncts_Bearbeiter() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_BearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Bearbeiter in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_BearbeiterColumn) = value End Set End Property _ Public Property ncts_CountryOfDispatch() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfDispatchColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfDispatch in Tabelle tblDakosy_NCTSOut004 ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfDispatchColumn) = value End Set End Property _ Public Property ncts_CountryOfDestination() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfDestinationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfDestination in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfDestinationColumn) = value End Set End Property _ Public Property ncts_Declarationtype() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DeclarationtypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Declarationtype in Tabelle tblDakosy_NCTSOut004 ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DeclarationtypeColumn) = value End Set End Property _ Public Property ncts_TIRCarnetNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TIRCarnetNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TIRCarnetNumber in Tabelle tblDakosy_NCTSOut004 ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TIRCarnetNumberColumn) = value End Set End Property _ Public Property ncts_ReductedDatasetIndicator() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ReductedDatasetIndicatorColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ReductedDatasetIndicator in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ReductedDatasetIndicatorColumn) = value End Set End Property _ Public Property ncts_LocationOfGoods_TypeofLocation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_TypeofLocationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_LocationOfGoods_TypeofLocation in Tabelle tblDakosy_NCTS"& _ "Out004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_TypeofLocationColumn) = value End Set End Property _ Public Property ncts_LocationOfGoods_QualifierIdenfitication() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_QualifierIdenfiticationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_LocationOfGoods_QualifierIdenfitication in Tabelle tblDa"& _ "kosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_QualifierIdenfiticationColumn) = value End Set End Property _ Public Property ncts_LocationOfGoods_AdditionalIdentifier() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_AdditionalIdentifierColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_LocationOfGoods_AdditionalIdentifier in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_AdditionalIdentifierColumn) = value End Set End Property _ Public Property ncts_LocationOfGoods_ContactPerson_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_LocationOfGoods_ContactPerson_Name in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_NameColumn) = value End Set End Property _ Public Property ncts_LocationOfGoods_ContactPerson_PhoneNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_PhoneNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_LocationOfGoods_ContactPerson_PhoneNumber in Tabelle tbl"& _ "Dakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_PhoneNumberColumn) = value End Set End Property _ Public Property ncts_LocationOfGoods_ContactPerson_EMailAddress() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_EMailAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_LocationOfGoods_ContactPerson_EMailAddress in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_EMailAddressColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_1_RefNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_1_RefNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_1_RefNumber in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_1_RefNumberColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_2_RefNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_2_RefNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_2_RefNumber in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_2_RefNumberColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_3_RefNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_3_RefNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_3_RefNumber in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_3_RefNumberColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_4_RefNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_4_RefNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_4_RefNumber in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_4_RefNumberColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_5_RefNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_5_RefNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_5_RefNumber in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_5_RefNumberColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_6_RefNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_6_RefNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_6_RefNumber in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_6_RefNumberColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_7_RefNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_7_RefNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_7_RefNumber in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_7_RefNumberColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_8_RefNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_8_RefNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_8_RefNumber in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_8_RefNumberColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_9_RefNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_9_RefNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_9_RefNumber in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_9_RefNumberColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTimeColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTimeColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTimeColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTimeColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTimeColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTimeColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTimeColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTimeColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTimeColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfDestinationDeclared() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfDestinationDeclaredColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfDestinationDeclared in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfDestinationDeclaredColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfDeparture() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfDepartureColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfDeparture in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfDepartureColumn) = value End Set End Property _ Public Property ncts_CustomsOfficeOfExitForTransitDeclared() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfExitForTransitDeclaredColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CustomsOfficeOfExitForTransitDeclared in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfExitForTransitDeclaredColumn) = value End Set End Property _ Public Property ncts_LimitDate() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_LimitDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_LimitDate in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_LimitDateColumn) = value End Set End Property _ Public Property ncts_TransitDeclarationType() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransitDeclarationTypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransitDeclarationType in Tabelle tblDakosy_NCTSOut004 i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransitDeclarationTypeColumn) = value End Set End Property _ Public Property ncts_GrossMass() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_GrossMassColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_GrossMass in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_GrossMassColumn) = value End Set End Property _ Public Property ncts_BindingItinerary() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_BindingItineraryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_BindingItinerary in Tabelle tblDakosy_NCTSOut004 ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_BindingItineraryColumn) = value End Set End Property _ Public Property ncts_ContainerIndicator() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ContainerIndicatorColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ContainerIndicator in Tabelle tblDakosy_NCTSOut004 ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ContainerIndicatorColumn) = value End Set End Property _ Public Property ncts_InlandModeOfTransport() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_InlandModeOfTransportColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_InlandModeOfTransport in Tabelle tblDakosy_NCTSOut004 is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_InlandModeOfTransportColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_1_TypeOfIdentification() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_TypeOfIdentificationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_1_TypeOfIdentification in Tabell"& _ "e tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_TypeOfIdentificationColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_1_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_1_IdentificationNumber in Tabell"& _ "e tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_1_Nationality() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_NationalityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_1_Nationality in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_NationalityColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_2_TypeOfIdentification() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_TypeOfIdentificationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_2_TypeOfIdentification in Tabell"& _ "e tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_TypeOfIdentificationColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_2_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_2_IdentificationNumber in Tabell"& _ "e tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_2_Nationality() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_NationalityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_2_Nationality in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_NationalityColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_3_TypeOfIdentification() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_TypeOfIdentificationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_3_TypeOfIdentification in Tabell"& _ "e tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_TypeOfIdentificationColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_3_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_3_IdentificationNumber in Tabell"& _ "e tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_3_Nationality() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_NationalityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_3_Nationality in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_NationalityColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_4_TypeOfIdentification() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_TypeOfIdentificationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_4_TypeOfIdentification in Tabell"& _ "e tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_TypeOfIdentificationColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_4_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_4_IdentificationNumber in Tabell"& _ "e tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_DepartureTransportMeans_4_Nationality() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_NationalityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DepartureTransportMeans_4_Nationality in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_NationalityColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_1_TypeOfIdentification() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_TypeOfIdentificationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_1_TypeOfIdentification in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_TypeOfIdentificationColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_1_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_1_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_1_Nationality() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_NationalityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_1_Nationality in Tabelle tblD"& _ "akosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_NationalityColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber in"& _ " Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumberColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclaredColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclar"& _ "ed in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclaredColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_2_TypeOfIdentification() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_TypeOfIdentificationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_2_TypeOfIdentification in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_TypeOfIdentificationColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_2_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_2_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_2_Nationality() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_NationalityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_2_Nationality in Tabelle tblD"& _ "akosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_NationalityColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber in"& _ " Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumberColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclaredColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclar"& _ "ed in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclaredColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_3_TypeOfIdentification() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_TypeOfIdentificationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_3_TypeOfIdentification in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_TypeOfIdentificationColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_3_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_3_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_3_Nationality() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_NationalityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_3_Nationality in Tabelle tblD"& _ "akosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_NationalityColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber in"& _ " Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumberColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclaredColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclar"& _ "ed in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclaredColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_4_TypeOfIdentification() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_TypeOfIdentificationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_4_TypeOfIdentification in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_TypeOfIdentificationColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_4_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_4_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_4_Nationality() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_NationalityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_4_Nationality in Tabelle tblD"& _ "akosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_NationalityColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber in"& _ " Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumberColumn) = value End Set End Property _ Public Property ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclaredColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclar"& _ "ed in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclaredColumn) = value End Set End Property _ Public Property ncts_Authorisation_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_1_Type in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_1_TypeColumn) = value End Set End Property _ Public Property ncts_Authorisation_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_1_ReferenceNumber in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_1_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_Authorisation_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_2_Type in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_2_TypeColumn) = value End Set End Property _ Public Property ncts_Authorisation_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_2_ReferenceNumber in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_2_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_Authorisation_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_3_Type in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_3_TypeColumn) = value End Set End Property _ Public Property ncts_Authorisation_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_3_ReferenceNumber in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_3_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_Authorisation_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_4_Type in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_4_TypeColumn) = value End Set End Property _ Public Property ncts_Authorisation_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_4_ReferenceNumber in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_4_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_Authorisation_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_5_Type in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_5_TypeColumn) = value End Set End Property _ Public Property ncts_Authorisation_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_5_ReferenceNumber in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_5_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_Authorisation_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_6_Type in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_6_TypeColumn) = value End Set End Property _ Public Property ncts_Authorisation_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_6_ReferenceNumber in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_6_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_Authorisation_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_7_Type in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_7_TypeColumn) = value End Set End Property _ Public Property ncts_Authorisation_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_7_ReferenceNumber in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_7_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_Authorisation_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_8_Type in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_8_TypeColumn) = value End Set End Property _ Public Property ncts_Authorisation_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_8_ReferenceNumber in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_8_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_Authorisation_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_9_Type in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_9_TypeColumn) = value End Set End Property _ Public Property ncts_Authorisation_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Authorisation_9_ReferenceNumber in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_9_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_Consignor_AdressCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_AdressCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_AdressCode in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_AdressCodeColumn) = value End Set End Property _ Public Property ncts_Consignor_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_IdentificationNumber in Tabelle tblDakosy_NCTS"& _ "Out004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_Consignor_SubsidiaryNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_SubsidiaryNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_SubsidiaryNumber in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_SubsidiaryNumberColumn) = value End Set End Property _ Public Property ncts_Consignor_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_Name in Tabelle tblDakosy_NCTSOut004 ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_NameColumn) = value End Set End Property _ Public Property ncts_Consignor_StreetNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_StreetNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_StreetNumber in Tabelle tblDakosy_NCTSOut004 i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_StreetNumberColumn) = value End Set End Property _ Public Property ncts_Consignor_City() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_CityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_City in Tabelle tblDakosy_NCTSOut004 ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_CityColumn) = value End Set End Property _ Public Property ncts_Consignor_Postcode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_PostcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_Postcode in Tabelle tblDakosy_NCTSOut004 ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_PostcodeColumn) = value End Set End Property _ Public Property ncts_Consignor_Country() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_Country in Tabelle tblDakosy_NCTSOut004 ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_CountryColumn) = value End Set End Property _ Public Property ncts_Consignor_ContactPerson_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_ContactPerson_Name in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_NameColumn) = value End Set End Property _ Public Property ncts_Consignor_ContactPerson_PhoneNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_PhoneNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_ContactPerson_PhoneNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_PhoneNumberColumn) = value End Set End Property _ Public Property ncts_Consignor_ContactPerson_EMailAddress() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_EMailAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignor_ContactPerson_EMailAddress in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_EMailAddressColumn) = value End Set End Property _ Public Property ncts_Consignee_AdressCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_AdressCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_AdressCode in Tabelle tblDakosy_NCTSOut004 ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_AdressCodeColumn) = value End Set End Property _ Public Property ncts_Consignee_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_IdentificationNumber in Tabelle tblDakosy_NCTS"& _ "Out004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_Consignee_SubsidiaryNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_SubsidiaryNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_SubsidiaryNumber in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_SubsidiaryNumberColumn) = value End Set End Property _ Public Property ncts_Consignee_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_Name in Tabelle tblDakosy_NCTSOut004 ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_NameColumn) = value End Set End Property _ Public Property ncts_Consignee_StreetNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_StreetNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_StreetNumber in Tabelle tblDakosy_NCTSOut004 i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_StreetNumberColumn) = value End Set End Property _ Public Property ncts_Consignee_City() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_CityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_City in Tabelle tblDakosy_NCTSOut004 ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_CityColumn) = value End Set End Property _ Public Property ncts_Consignee_Postcode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_PostcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_Postcode in Tabelle tblDakosy_NCTSOut004 ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_PostcodeColumn) = value End Set End Property _ Public Property ncts_Consignee_Country() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_Country in Tabelle tblDakosy_NCTSOut004 ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_CountryColumn) = value End Set End Property _ Public Property ncts_Consignee_ContactPerson_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_ContactPerson_Name in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_NameColumn) = value End Set End Property _ Public Property ncts_Consignee_ContactPerson_PhoneNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_PhoneNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_ContactPerson_PhoneNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_PhoneNumberColumn) = value End Set End Property _ Public Property ncts_Consignee_ContactPerson_EMailAddress() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_EMailAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Consignee_ContactPerson_EMailAddress in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_EMailAddressColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_AdressCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_AdressCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_AdressCode in Tabelle tblDak"& _ "osy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_AdressCodeColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_IdentificationNumber in Tabe"& _ "lle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumbe"& _ "r in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumberColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_Name in Tabelle tblDakosy_NC"& _ "TSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_NameColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_StreetNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_StreetNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_StreetNumber in Tabelle tblD"& _ "akosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_StreetNumberColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_City() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_CityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_City in Tabelle tblDakosy_NC"& _ "TSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_CityColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_Postcode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_PostcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_Postcode in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_PostcodeColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_Country() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_Country in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_CountryColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_ContactPerson_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_ContactPerson_Name in Tabell"& _ "e tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_NameColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber in"& _ " Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumberColumn) = value End Set End Property _ Public Property ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress i"& _ "n Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddressColumn) = value End Set End Property _ Public Property ncts_Representative_AdressCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_AdressCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Representative_AdressCode in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_AdressCodeColumn) = value End Set End Property _ Public Property ncts_Representative_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Representative_IdentificationNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_Representative_ContactPerson_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Representative_ContactPerson_Name in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_NameColumn) = value End Set End Property _ Public Property ncts_Representative_ContactPerson_PhoneNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_PhoneNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Representative_ContactPerson_PhoneNumber in Tabelle tblD"& _ "akosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_PhoneNumberColumn) = value End Set End Property _ Public Property ncts_Representative_ContactPerson_EMailAddress() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_EMailAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Representative_ContactPerson_EMailAddress in Tabelle tbl"& _ "Dakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_EMailAddressColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_1_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_1_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_1_Role in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_1_RoleColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_1_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_1_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_1_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_1_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_2_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_2_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_2_Role in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_2_RoleColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_2_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_2_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_2_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_2_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_3_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_3_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_3_Role in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_3_RoleColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_3_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_3_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_3_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_3_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_4_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_4_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_4_Role in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_4_RoleColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_4_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_4_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_4_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_4_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_5_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_5_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_5_Role in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_5_RoleColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_5_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_5_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_5_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_5_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_6_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_6_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_6_Role in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_6_RoleColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_6_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_6_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_6_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_6_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_7_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_7_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_7_Role in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_7_RoleColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_7_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_7_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_7_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_7_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_8_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_8_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_8_Role in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_8_RoleColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_8_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_8_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_8_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_8_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_9_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_9_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_9_Role in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_9_RoleColumn) = value End Set End Property _ Public Property ncts_AdditionalSupplyChainActor_9_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_9_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalSupplyChainActor_9_IdentificationNumber in Tab"& _ "elle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_9_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_Security() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SecurityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Security in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SecurityColumn) = value End Set End Property _ Public Property ncts_ReferenceNumberUCR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ReferenceNumberUCRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ReferenceNumberUCR in Tabelle tblDakosy_NCTSOut004 ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ReferenceNumberUCRColumn) = value End Set End Property _ Public Property ncts_SpecificCircomstanceIndicator() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SpecificCircomstanceIndicatorColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SpecificCircomstanceIndicator in Tabelle tblDakosy_NCTSO"& _ "ut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SpecificCircomstanceIndicatorColumn) = value End Set End Property _ Public Property ncts_PlaceOfLoading_Location() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfLoading_LocationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PlaceOfLoading_Location in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfLoading_LocationColumn) = value End Set End Property _ Public Property ncts_PlaceOfLoading_Country() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfLoading_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PlaceOfLoading_Country in Tabelle tblDakosy_NCTSOut004 i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfLoading_CountryColumn) = value End Set End Property _ Public Property ncts_PlaceOfUnLoading_Location() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfUnLoading_LocationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PlaceOfUnLoading_Location in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfUnLoading_LocationColumn) = value End Set End Property _ Public Property ncts_PlaceOfUnLoading_Country() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfUnLoading_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PlaceOfUnLoading_Country in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfUnLoading_CountryColumn) = value End Set End Property _ Public Property ncts_TransportCharges() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportChargesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportCharges in Tabelle tblDakosy_NCTSOut004 ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportChargesColumn) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_1() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_1 in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_1Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_2() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_2 in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_2Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_3() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_3 in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_3Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_4() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_4 in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_4Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_5() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_5 in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_5Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_6() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_6 in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_6Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_7() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_7 in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_7Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_8() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_8 in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_8Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_9() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_9 in Tabelle tblDakosy_NCT"& _ "SOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_9Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_10() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_10 in Tabelle tblDakosy_NC"& _ "TSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_10Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_11() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_11Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_11 in Tabelle tblDakosy_NC"& _ "TSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_11Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_12() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_12Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_12 in Tabelle tblDakosy_NC"& _ "TSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_12Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_13() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_13Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_13 in Tabelle tblDakosy_NC"& _ "TSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_13Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_14() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_14Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_14 in Tabelle tblDakosy_NC"& _ "TSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_14Column) = value End Set End Property _ Public Property ncts_CountryOfRoutingOfConsignment_15() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_15Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_CountryOfRoutingOfConsignment_15 in Tabelle tblDakosy_NC"& _ "TSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_15Column) = value End Set End Property _ Public Property ncts_Carrier_AdressCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_AdressCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Carrier_AdressCode in Tabelle tblDakosy_NCTSOut004 ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_AdressCodeColumn) = value End Set End Property _ Public Property ncts_Carrier_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Carrier_IdentificationNumber in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_IdentificationNumberColumn) = value End Set End Property _ Public Property ncts_Carrier_SubsidiaryNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_SubsidiaryNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Carrier_SubsidiaryNumber in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_SubsidiaryNumberColumn) = value End Set End Property _ Public Property ncts_Carrier_ContactPerson_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Carrier_ContactPerson_Name in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_NameColumn) = value End Set End Property _ Public Property ncts_Carrier_ContactPerson_PhoneNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_PhoneNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Carrier_ContactPerson_PhoneNumber in Tabelle tblDakosy_N"& _ "CTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_PhoneNumberColumn) = value End Set End Property _ Public Property ncts_Carrier_ContactPerson_EMailAddress() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_EMailAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Carrier_ContactPerson_EMailAddress in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_EMailAddressColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_1_Type in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_TypeColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_1_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_1_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_1_DocumentLineItemNumber in Tabelle t"& _ "blDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_1_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_1_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_2_Type in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_TypeColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_2_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_2_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_2_DocumentLineItemNumber in Tabelle t"& _ "blDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_2_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_2_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_3_Type in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_TypeColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_3_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_3_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_3_DocumentLineItemNumber in Tabelle t"& _ "blDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_3_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_3_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_4_Type in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_TypeColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_4_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_4_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_4_DocumentLineItemNumber in Tabelle t"& _ "blDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_4_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_4_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_5_Type in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_TypeColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_5_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_5_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_5_DocumentLineItemNumber in Tabelle t"& _ "blDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_5_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_5_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_6_Type in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_TypeColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_6_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_6_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_6_DocumentLineItemNumber in Tabelle t"& _ "blDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_6_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_6_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_7_Type in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_TypeColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_7_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_7_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_7_DocumentLineItemNumber in Tabelle t"& _ "blDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_7_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_7_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_8_Type in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_TypeColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_8_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_8_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_8_DocumentLineItemNumber in Tabelle t"& _ "blDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_8_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_8_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_9_Type in Tabelle tblDakosy_NCTSOut00"& _ "4 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_TypeColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_9_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_9_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_9_DocumentLineItemNumber in Tabelle t"& _ "blDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property ncts_SupportingDocument_9_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SupportingDocument_9_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_1_Type in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_TypeColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_1_ReferenceNumber in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_1_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_1_ComplementOfInformation in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_2_Type in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_TypeColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_2_ReferenceNumber in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_2_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_2_ComplementOfInformation in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_3_Type in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_TypeColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_3_ReferenceNumber in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_3_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_3_ComplementOfInformation in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_4_Type in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_TypeColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_4_ReferenceNumber in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_4_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_4_ComplementOfInformation in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_5_Type in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_TypeColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_5_ReferenceNumber in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_5_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_5_ComplementOfInformation in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_6_Type in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_TypeColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_6_ReferenceNumber in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_6_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_6_ComplementOfInformation in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_7_Type in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_TypeColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_7_ReferenceNumber in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_7_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_7_ComplementOfInformation in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_8_Type in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_TypeColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_8_ReferenceNumber in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_8_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_8_ComplementOfInformation in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_9_Type in Tabelle tblDakosy_NCTSOut004 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_TypeColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_9_ReferenceNumber in Tabelle tblDakosy_"& _ "NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_PreviousDocument_9_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_PreviousDocument_9_ComplementOfInformation in Tabelle tb"& _ "lDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_ComplementOfInformationColumn) = value End Set End Property _ Public Property ncts_TransportDocument_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_1_Type in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_1_TypeColumn) = value End Set End Property _ Public Property ncts_TransportDocument_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_1_ReferenceNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_1_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_TransportDocument_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_2_Type in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_2_TypeColumn) = value End Set End Property _ Public Property ncts_TransportDocument_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_2_ReferenceNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_2_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_TransportDocument_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_3_Type in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_3_TypeColumn) = value End Set End Property _ Public Property ncts_TransportDocument_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_3_ReferenceNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_3_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_TransportDocument_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_4_Type in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_4_TypeColumn) = value End Set End Property _ Public Property ncts_TransportDocument_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_4_ReferenceNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_4_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_TransportDocument_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_5_Type in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_5_TypeColumn) = value End Set End Property _ Public Property ncts_TransportDocument_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_5_ReferenceNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_5_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_TransportDocument_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_6_Type in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_6_TypeColumn) = value End Set End Property _ Public Property ncts_TransportDocument_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_6_ReferenceNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_6_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_TransportDocument_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_7_Type in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_7_TypeColumn) = value End Set End Property _ Public Property ncts_TransportDocument_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_7_ReferenceNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_7_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_TransportDocument_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_8_Type in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_8_TypeColumn) = value End Set End Property _ Public Property ncts_TransportDocument_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_8_ReferenceNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_8_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_TransportDocument_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_9_Type in Tabelle tblDakosy_NCTSOut004"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_9_TypeColumn) = value End Set End Property _ Public Property ncts_TransportDocument_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_TransportDocument_9_ReferenceNumber in Tabelle tblDakosy"& _ "_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_9_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_1_Type in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_1_TypeColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_1_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_1_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_2_Type in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_2_TypeColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_2_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_2_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_3_Type in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_3_TypeColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_3_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_3_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_4_Type in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_4_TypeColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_4_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_4_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_5_Type in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_5_TypeColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_5_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_5_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_6_Type in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_6_TypeColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_6_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_6_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_7_Type in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_7_TypeColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_7_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_7_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_8_Type in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_8_TypeColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_8_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_8_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_9_Type in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_9_TypeColumn) = value End Set End Property _ Public Property ncts_AdditionalReference_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalReference_9_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_9_ReferenceNumberColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_1_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_1_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_1_Code in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_1_CodeColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_1_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_1_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_1_Text in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_1_TextColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_2_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_2_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_2_Code in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_2_CodeColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_2_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_2_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_2_Text in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_2_TextColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_3_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_3_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_3_Code in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_3_CodeColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_3_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_3_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_3_Text in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_3_TextColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_4_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_4_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_4_Code in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_4_CodeColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_4_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_4_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_4_Text in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_4_TextColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_5_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_5_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_5_Code in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_5_CodeColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_5_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_5_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_5_Text in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_5_TextColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_6_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_6_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_6_Code in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_6_CodeColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_6_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_6_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_6_Text in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_6_TextColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_7_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_7_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_7_Code in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_7_CodeColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_7_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_7_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_7_Text in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_7_TextColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_8_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_8_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_8_Code in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_8_CodeColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_8_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_8_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_8_Text in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_8_TextColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_9_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_9_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_9_Code in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_9_CodeColumn) = value End Set End Property _ Public Property ncts_AdditionalInformation_9_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_9_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AdditionalInformation_9_Text in Tabelle tblDakosy_NCTSOu"& _ "t004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_9_TextColumn) = value End Set End Property _ Public Property ncts_AUTOIMPIndicator() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AUTOIMPIndicatorColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AUTOIMPIndicator in Tabelle tblDakosy_NCTSOut004 ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AUTOIMPIndicatorColumn) = value End Set End Property _ Public Property ncts_Stammreferenz() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_StammreferenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Stammreferenz in Tabelle tblDakosy_NCTSOut004 ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_StammreferenzColumn) = value End Set End Property _ Public Property ncts_ModeOfTransportAtTheBorder() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ModeOfTransportAtTheBorderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ModeOfTransportAtTheBorder in Tabelle tblDakosy_NCTSOut0"& _ "04 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ModeOfTransportAtTheBorderColumn) = value End Set End Property _ Public Property ncts_Eroeffnung() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_EroeffnungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Eroeffnung in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_EroeffnungColumn) = value End Set End Property _ Public Property ncts_Ankunft() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_AnkunftColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Ankunft in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_AnkunftColumn) = value End Set End Property _ Public Property ncts_Erledigung() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004.ncts_ErledigungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Erledigung in Tabelle tblDakosy_NCTSOut004 ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004.ncts_ErledigungColumn) = value End Set End Property _ Public Function Isncts_ANRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ANRColumn) End Function _ Public Sub Setncts_ANRNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ANRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_MRNNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_MRNColumn) End Function _ Public Sub Setncts_MRNNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_MRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Erstellung_SBNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Erstellung_SBColumn) End Function _ Public Sub Setncts_Erstellung_SBNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Erstellung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_LetzteBearbeitung_SBNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_LetzteBearbeitung_SBColumn) End Function _ Public Sub Setncts_LetzteBearbeitung_SBNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_LetzteBearbeitung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_firmaNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_firmaColumn) End Function _ Public Sub Setncts_firmaNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_firmaColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_niederlassungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_niederlassungColumn) End Function _ Public Sub Setncts_niederlassungNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_niederlassungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_GestelltAmNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_GestelltAmColumn) End Function _ Public Sub Setncts_GestelltAmNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_GestelltAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_PartnerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Trans_PartnerColumn) End Function _ Public Sub Setncts_Trans_PartnerNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_PartnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_Div1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div1Column) End Function _ Public Sub Setncts_Trans_Div1Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_Div2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div2Column) End Function _ Public Sub Setncts_Trans_Div2Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_Div3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div3Column) End Function _ Public Sub Setncts_Trans_Div3Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_Div3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_ReferenzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Trans_ReferenzColumn) End Function _ Public Sub Setncts_Trans_ReferenzNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_ReferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_DatumZeitNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Trans_DatumZeitColumn) End Function _ Public Sub Setncts_Trans_DatumZeitNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_DatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_VersionNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Trans_VersionColumn) End Function _ Public Sub Setncts_Trans_VersionNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Trans_VersionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_NachrichtenSenderTINNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenSenderTINColumn) End Function _ Public Sub Setncts_NachrichtenSenderTINNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenSenderTINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_NachrichtenSenderNLNRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenSenderNLNRColumn) End Function _ Public Sub Setncts_NachrichtenSenderNLNRNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenSenderNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_NachrichtenempfaengerDSTNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenempfaengerDSTColumn) End Function _ Public Sub Setncts_NachrichtenempfaengerDSTNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_NachrichtenempfaengerDSTColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ObjectNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ObjectNameColumn) End Function _ Public Sub Setncts_ObjectNameNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ObjectNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ObjectAliasNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ObjectAliasColumn) End Function _ Public Sub Setncts_ObjectAliasNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ObjectAliasColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BezugsnummerVorblendungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_BezugsnummerVorblendungColumn) End Function _ Public Sub Setncts_BezugsnummerVorblendungNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_BezugsnummerVorblendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_BearbeiterColumn) End Function _ Public Sub Setncts_BearbeiterNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_BearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfDispatchNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfDispatchColumn) End Function _ Public Sub Setncts_CountryOfDispatchNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfDispatchColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfDestinationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfDestinationColumn) End Function _ Public Sub Setncts_CountryOfDestinationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfDestinationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DeclarationtypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DeclarationtypeColumn) End Function _ Public Sub Setncts_DeclarationtypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DeclarationtypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TIRCarnetNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TIRCarnetNumberColumn) End Function _ Public Sub Setncts_TIRCarnetNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TIRCarnetNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ReductedDatasetIndicatorNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ReductedDatasetIndicatorColumn) End Function _ Public Sub Setncts_ReductedDatasetIndicatorNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ReductedDatasetIndicatorColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_LocationOfGoods_TypeofLocationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_TypeofLocationColumn) End Function _ Public Sub Setncts_LocationOfGoods_TypeofLocationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_TypeofLocationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_LocationOfGoods_QualifierIdenfiticationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_QualifierIdenfiticationColumn) End Function _ Public Sub Setncts_LocationOfGoods_QualifierIdenfiticationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_QualifierIdenfiticationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_LocationOfGoods_AdditionalIdentifierNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_AdditionalIdentifierColumn) End Function _ Public Sub Setncts_LocationOfGoods_AdditionalIdentifierNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_AdditionalIdentifierColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_LocationOfGoods_ContactPerson_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_NameColumn) End Function _ Public Sub Setncts_LocationOfGoods_ContactPerson_NameNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_LocationOfGoods_ContactPerson_PhoneNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_PhoneNumberColumn) End Function _ Public Sub Setncts_LocationOfGoods_ContactPerson_PhoneNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_PhoneNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_LocationOfGoods_ContactPerson_EMailAddressNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_EMailAddressColumn) End Function _ Public Sub Setncts_LocationOfGoods_ContactPerson_EMailAddressNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_LocationOfGoods_ContactPerson_EMailAddressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_1_RefNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_1_RefNumberColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_1_RefNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_1_RefNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_2_RefNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_2_RefNumberColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_2_RefNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_2_RefNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_3_RefNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_3_RefNumberColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_3_RefNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_3_RefNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_4_RefNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_4_RefNumberColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_4_RefNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_4_RefNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_5_RefNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_5_RefNumberColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_5_RefNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_5_RefNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_6_RefNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_6_RefNumberColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_6_RefNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_6_RefNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_7_RefNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_7_RefNumberColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_7_RefNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_7_RefNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_8_RefNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_8_RefNumberColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_8_RefNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_8_RefNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_9_RefNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_9_RefNumberColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_9_RefNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_9_RefNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTimeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTimeColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTimeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTimeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTimeColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTimeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTimeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTimeColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTimeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTimeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTimeColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTimeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTimeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTimeColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTimeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTimeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTimeColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTimeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTimeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTimeColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTimeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTimeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTimeColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTimeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTimeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTimeColumn) End Function _ Public Sub Setncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTimeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfDestinationDeclaredNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfDestinationDeclaredColumn) End Function _ Public Sub Setncts_CustomsOfficeOfDestinationDeclaredNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfDestinationDeclaredColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfDepartureNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfDepartureColumn) End Function _ Public Sub Setncts_CustomsOfficeOfDepartureNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfDepartureColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CustomsOfficeOfExitForTransitDeclaredNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfExitForTransitDeclaredColumn) End Function _ Public Sub Setncts_CustomsOfficeOfExitForTransitDeclaredNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_CustomsOfficeOfExitForTransitDeclaredColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_LimitDateNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_LimitDateColumn) End Function _ Public Sub Setncts_LimitDateNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_LimitDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransitDeclarationTypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransitDeclarationTypeColumn) End Function _ Public Sub Setncts_TransitDeclarationTypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransitDeclarationTypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_GrossMassNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_GrossMassColumn) End Function _ Public Sub Setncts_GrossMassNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_GrossMassColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BindingItineraryNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_BindingItineraryColumn) End Function _ Public Sub Setncts_BindingItineraryNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_BindingItineraryColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ContainerIndicatorNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ContainerIndicatorColumn) End Function _ Public Sub Setncts_ContainerIndicatorNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ContainerIndicatorColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_InlandModeOfTransportNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_InlandModeOfTransportColumn) End Function _ Public Sub Setncts_InlandModeOfTransportNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_InlandModeOfTransportColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_1_TypeOfIdentificationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_TypeOfIdentificationColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_1_TypeOfIdentificationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_TypeOfIdentificationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_1_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_IdentificationNumberColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_1_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_1_NationalityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_NationalityColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_1_NationalityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_1_NationalityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_2_TypeOfIdentificationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_TypeOfIdentificationColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_2_TypeOfIdentificationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_TypeOfIdentificationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_2_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_IdentificationNumberColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_2_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_2_NationalityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_NationalityColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_2_NationalityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_2_NationalityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_3_TypeOfIdentificationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_TypeOfIdentificationColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_3_TypeOfIdentificationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_TypeOfIdentificationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_3_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_IdentificationNumberColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_3_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_3_NationalityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_NationalityColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_3_NationalityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_3_NationalityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_4_TypeOfIdentificationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_TypeOfIdentificationColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_4_TypeOfIdentificationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_TypeOfIdentificationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_4_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_IdentificationNumberColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_4_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DepartureTransportMeans_4_NationalityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_NationalityColumn) End Function _ Public Sub Setncts_DepartureTransportMeans_4_NationalityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_DepartureTransportMeans_4_NationalityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_1_TypeOfIdentificationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_TypeOfIdentificationColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_1_TypeOfIdentificationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_TypeOfIdentificationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_1_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_IdentificationNumberColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_1_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_1_NationalityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_NationalityColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_1_NationalityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_NationalityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumberColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclaredNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclaredColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclaredNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclaredColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_2_TypeOfIdentificationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_TypeOfIdentificationColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_2_TypeOfIdentificationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_TypeOfIdentificationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_2_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_IdentificationNumberColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_2_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_2_NationalityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_NationalityColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_2_NationalityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_NationalityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumberColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclaredNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclaredColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclaredNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclaredColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_3_TypeOfIdentificationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_TypeOfIdentificationColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_3_TypeOfIdentificationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_TypeOfIdentificationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_3_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_IdentificationNumberColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_3_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_3_NationalityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_NationalityColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_3_NationalityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_NationalityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumberColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclaredNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclaredColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclaredNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclaredColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_4_TypeOfIdentificationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_TypeOfIdentificationColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_4_TypeOfIdentificationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_TypeOfIdentificationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_4_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_IdentificationNumberColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_4_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_4_NationalityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_NationalityColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_4_NationalityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_NationalityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumberColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclaredNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclaredColumn) End Function _ Public Sub Setncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclaredNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclaredColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_1_TypeColumn) End Function _ Public Sub Setncts_Authorisation_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_1_ReferenceNumberColumn) End Function _ Public Sub Setncts_Authorisation_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_2_TypeColumn) End Function _ Public Sub Setncts_Authorisation_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_2_ReferenceNumberColumn) End Function _ Public Sub Setncts_Authorisation_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_3_TypeColumn) End Function _ Public Sub Setncts_Authorisation_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_3_ReferenceNumberColumn) End Function _ Public Sub Setncts_Authorisation_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_4_TypeColumn) End Function _ Public Sub Setncts_Authorisation_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_4_ReferenceNumberColumn) End Function _ Public Sub Setncts_Authorisation_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_5_TypeColumn) End Function _ Public Sub Setncts_Authorisation_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_5_ReferenceNumberColumn) End Function _ Public Sub Setncts_Authorisation_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_6_TypeColumn) End Function _ Public Sub Setncts_Authorisation_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_6_ReferenceNumberColumn) End Function _ Public Sub Setncts_Authorisation_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_7_TypeColumn) End Function _ Public Sub Setncts_Authorisation_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_7_ReferenceNumberColumn) End Function _ Public Sub Setncts_Authorisation_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_8_TypeColumn) End Function _ Public Sub Setncts_Authorisation_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_8_ReferenceNumberColumn) End Function _ Public Sub Setncts_Authorisation_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_9_TypeColumn) End Function _ Public Sub Setncts_Authorisation_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Authorisation_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_9_ReferenceNumberColumn) End Function _ Public Sub Setncts_Authorisation_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Authorisation_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_AdressCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_AdressCodeColumn) End Function _ Public Sub Setncts_Consignor_AdressCodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_AdressCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_IdentificationNumberColumn) End Function _ Public Sub Setncts_Consignor_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_SubsidiaryNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_SubsidiaryNumberColumn) End Function _ Public Sub Setncts_Consignor_SubsidiaryNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_SubsidiaryNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_NameColumn) End Function _ Public Sub Setncts_Consignor_NameNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_StreetNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_StreetNumberColumn) End Function _ Public Sub Setncts_Consignor_StreetNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_StreetNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_CityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_CityColumn) End Function _ Public Sub Setncts_Consignor_CityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_CityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_PostcodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_PostcodeColumn) End Function _ Public Sub Setncts_Consignor_PostcodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_PostcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_CountryNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_CountryColumn) End Function _ Public Sub Setncts_Consignor_CountryNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_ContactPerson_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_NameColumn) End Function _ Public Sub Setncts_Consignor_ContactPerson_NameNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_ContactPerson_PhoneNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_PhoneNumberColumn) End Function _ Public Sub Setncts_Consignor_ContactPerson_PhoneNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_PhoneNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignor_ContactPerson_EMailAddressNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_EMailAddressColumn) End Function _ Public Sub Setncts_Consignor_ContactPerson_EMailAddressNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignor_ContactPerson_EMailAddressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_AdressCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_AdressCodeColumn) End Function _ Public Sub Setncts_Consignee_AdressCodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_AdressCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_IdentificationNumberColumn) End Function _ Public Sub Setncts_Consignee_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_SubsidiaryNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_SubsidiaryNumberColumn) End Function _ Public Sub Setncts_Consignee_SubsidiaryNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_SubsidiaryNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_NameColumn) End Function _ Public Sub Setncts_Consignee_NameNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_StreetNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_StreetNumberColumn) End Function _ Public Sub Setncts_Consignee_StreetNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_StreetNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_CityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_CityColumn) End Function _ Public Sub Setncts_Consignee_CityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_CityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_PostcodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_PostcodeColumn) End Function _ Public Sub Setncts_Consignee_PostcodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_PostcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_CountryNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_CountryColumn) End Function _ Public Sub Setncts_Consignee_CountryNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_ContactPerson_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_NameColumn) End Function _ Public Sub Setncts_Consignee_ContactPerson_NameNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_ContactPerson_PhoneNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_PhoneNumberColumn) End Function _ Public Sub Setncts_Consignee_ContactPerson_PhoneNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_PhoneNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Consignee_ContactPerson_EMailAddressNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_EMailAddressColumn) End Function _ Public Sub Setncts_Consignee_ContactPerson_EMailAddressNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Consignee_ContactPerson_EMailAddressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_AdressCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_AdressCodeColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_AdressCodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_AdressCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_IdentificationNumberColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumberColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_NameColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_NameNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_StreetNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_StreetNumberColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_StreetNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_StreetNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_CityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_CityColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_CityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_CityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_PostcodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_PostcodeColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_PostcodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_PostcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_CountryNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_CountryColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_CountryNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_ContactPerson_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_NameColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_ContactPerson_NameNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumberColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddressNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddressColumn) End Function _ Public Sub Setncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddressNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Representative_AdressCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Representative_AdressCodeColumn) End Function _ Public Sub Setncts_Representative_AdressCodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_AdressCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Representative_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Representative_IdentificationNumberColumn) End Function _ Public Sub Setncts_Representative_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Representative_ContactPerson_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_NameColumn) End Function _ Public Sub Setncts_Representative_ContactPerson_NameNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Representative_ContactPerson_PhoneNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_PhoneNumberColumn) End Function _ Public Sub Setncts_Representative_ContactPerson_PhoneNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_PhoneNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Representative_ContactPerson_EMailAddressNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_EMailAddressColumn) End Function _ Public Sub Setncts_Representative_ContactPerson_EMailAddressNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Representative_ContactPerson_EMailAddressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_1_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_1_RoleColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_1_RoleNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_1_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_1_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_1_IdentificationNumberColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_1_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_1_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_2_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_2_RoleColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_2_RoleNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_2_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_2_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_2_IdentificationNumberColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_2_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_2_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_3_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_3_RoleColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_3_RoleNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_3_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_3_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_3_IdentificationNumberColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_3_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_3_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_4_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_4_RoleColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_4_RoleNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_4_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_4_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_4_IdentificationNumberColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_4_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_4_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_5_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_5_RoleColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_5_RoleNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_5_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_5_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_5_IdentificationNumberColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_5_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_5_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_6_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_6_RoleColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_6_RoleNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_6_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_6_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_6_IdentificationNumberColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_6_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_6_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_7_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_7_RoleColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_7_RoleNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_7_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_7_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_7_IdentificationNumberColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_7_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_7_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_8_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_8_RoleColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_8_RoleNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_8_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_8_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_8_IdentificationNumberColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_8_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_8_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_9_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_9_RoleColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_9_RoleNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_9_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalSupplyChainActor_9_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_9_IdentificationNumberColumn) End Function _ Public Sub Setncts_AdditionalSupplyChainActor_9_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalSupplyChainActor_9_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SecurityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SecurityColumn) End Function _ Public Sub Setncts_SecurityNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SecurityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ReferenceNumberUCRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ReferenceNumberUCRColumn) End Function _ Public Sub Setncts_ReferenceNumberUCRNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ReferenceNumberUCRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SpecificCircomstanceIndicatorNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SpecificCircomstanceIndicatorColumn) End Function _ Public Sub Setncts_SpecificCircomstanceIndicatorNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SpecificCircomstanceIndicatorColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PlaceOfLoading_LocationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfLoading_LocationColumn) End Function _ Public Sub Setncts_PlaceOfLoading_LocationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfLoading_LocationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PlaceOfLoading_CountryNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfLoading_CountryColumn) End Function _ Public Sub Setncts_PlaceOfLoading_CountryNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfLoading_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PlaceOfUnLoading_LocationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfUnLoading_LocationColumn) End Function _ Public Sub Setncts_PlaceOfUnLoading_LocationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfUnLoading_LocationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PlaceOfUnLoading_CountryNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfUnLoading_CountryColumn) End Function _ Public Sub Setncts_PlaceOfUnLoading_CountryNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PlaceOfUnLoading_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportChargesNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportChargesColumn) End Function _ Public Sub Setncts_TransportChargesNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportChargesColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_1Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_1Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_2Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_2Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_3Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_3Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_4Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_4Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_4Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_5Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_5Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_5Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_6Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_6Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_6Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_7Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_7Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_7Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_8Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_8Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_8Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_9Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_9Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_9Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_10Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_10Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_10Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_10Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_11Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_11Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_11Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_11Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_12Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_12Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_12Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_12Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_13Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_13Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_13Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_13Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_14Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_14Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_14Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_14Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_CountryOfRoutingOfConsignment_15Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_15Column) End Function _ Public Sub Setncts_CountryOfRoutingOfConsignment_15Null() Me(Me.tabletblDakosy_NCTSOut004.ncts_CountryOfRoutingOfConsignment_15Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Carrier_AdressCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_AdressCodeColumn) End Function _ Public Sub Setncts_Carrier_AdressCodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_AdressCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Carrier_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_IdentificationNumberColumn) End Function _ Public Sub Setncts_Carrier_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Carrier_SubsidiaryNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_SubsidiaryNumberColumn) End Function _ Public Sub Setncts_Carrier_SubsidiaryNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_SubsidiaryNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Carrier_ContactPerson_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_NameColumn) End Function _ Public Sub Setncts_Carrier_ContactPerson_NameNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Carrier_ContactPerson_PhoneNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_PhoneNumberColumn) End Function _ Public Sub Setncts_Carrier_ContactPerson_PhoneNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_PhoneNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Carrier_ContactPerson_EMailAddressNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_EMailAddressColumn) End Function _ Public Sub Setncts_Carrier_ContactPerson_EMailAddressNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_Carrier_ContactPerson_EMailAddressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_TypeColumn) End Function _ Public Sub Setncts_SupportingDocument_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_ReferenceNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_1_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_DocumentLineItemNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_1_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_1_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_ComplementOfInformationColumn) End Function _ Public Sub Setncts_SupportingDocument_1_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_1_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_TypeColumn) End Function _ Public Sub Setncts_SupportingDocument_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_ReferenceNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_2_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_DocumentLineItemNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_2_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_2_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_ComplementOfInformationColumn) End Function _ Public Sub Setncts_SupportingDocument_2_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_2_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_TypeColumn) End Function _ Public Sub Setncts_SupportingDocument_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_ReferenceNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_3_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_DocumentLineItemNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_3_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_3_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_ComplementOfInformationColumn) End Function _ Public Sub Setncts_SupportingDocument_3_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_3_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_TypeColumn) End Function _ Public Sub Setncts_SupportingDocument_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_ReferenceNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_4_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_DocumentLineItemNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_4_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_4_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_ComplementOfInformationColumn) End Function _ Public Sub Setncts_SupportingDocument_4_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_4_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_TypeColumn) End Function _ Public Sub Setncts_SupportingDocument_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_ReferenceNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_5_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_DocumentLineItemNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_5_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_5_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_ComplementOfInformationColumn) End Function _ Public Sub Setncts_SupportingDocument_5_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_5_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_TypeColumn) End Function _ Public Sub Setncts_SupportingDocument_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_ReferenceNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_6_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_DocumentLineItemNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_6_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_6_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_ComplementOfInformationColumn) End Function _ Public Sub Setncts_SupportingDocument_6_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_6_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_TypeColumn) End Function _ Public Sub Setncts_SupportingDocument_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_ReferenceNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_7_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_DocumentLineItemNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_7_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_7_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_ComplementOfInformationColumn) End Function _ Public Sub Setncts_SupportingDocument_7_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_7_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_TypeColumn) End Function _ Public Sub Setncts_SupportingDocument_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_ReferenceNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_8_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_DocumentLineItemNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_8_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_8_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_ComplementOfInformationColumn) End Function _ Public Sub Setncts_SupportingDocument_8_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_8_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_TypeColumn) End Function _ Public Sub Setncts_SupportingDocument_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_ReferenceNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_9_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_DocumentLineItemNumberColumn) End Function _ Public Sub Setncts_SupportingDocument_9_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SupportingDocument_9_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_ComplementOfInformationColumn) End Function _ Public Sub Setncts_SupportingDocument_9_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_SupportingDocument_9_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_TypeColumn) End Function _ Public Sub Setncts_PreviousDocument_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_ReferenceNumberColumn) End Function _ Public Sub Setncts_PreviousDocument_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_1_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_ComplementOfInformationColumn) End Function _ Public Sub Setncts_PreviousDocument_1_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_1_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_TypeColumn) End Function _ Public Sub Setncts_PreviousDocument_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_ReferenceNumberColumn) End Function _ Public Sub Setncts_PreviousDocument_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_2_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_ComplementOfInformationColumn) End Function _ Public Sub Setncts_PreviousDocument_2_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_2_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_TypeColumn) End Function _ Public Sub Setncts_PreviousDocument_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_ReferenceNumberColumn) End Function _ Public Sub Setncts_PreviousDocument_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_3_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_ComplementOfInformationColumn) End Function _ Public Sub Setncts_PreviousDocument_3_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_3_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_TypeColumn) End Function _ Public Sub Setncts_PreviousDocument_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_ReferenceNumberColumn) End Function _ Public Sub Setncts_PreviousDocument_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_4_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_ComplementOfInformationColumn) End Function _ Public Sub Setncts_PreviousDocument_4_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_4_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_TypeColumn) End Function _ Public Sub Setncts_PreviousDocument_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_ReferenceNumberColumn) End Function _ Public Sub Setncts_PreviousDocument_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_5_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_ComplementOfInformationColumn) End Function _ Public Sub Setncts_PreviousDocument_5_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_5_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_TypeColumn) End Function _ Public Sub Setncts_PreviousDocument_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_ReferenceNumberColumn) End Function _ Public Sub Setncts_PreviousDocument_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_6_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_ComplementOfInformationColumn) End Function _ Public Sub Setncts_PreviousDocument_6_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_6_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_TypeColumn) End Function _ Public Sub Setncts_PreviousDocument_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_ReferenceNumberColumn) End Function _ Public Sub Setncts_PreviousDocument_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_7_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_ComplementOfInformationColumn) End Function _ Public Sub Setncts_PreviousDocument_7_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_7_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_TypeColumn) End Function _ Public Sub Setncts_PreviousDocument_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_ReferenceNumberColumn) End Function _ Public Sub Setncts_PreviousDocument_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_8_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_ComplementOfInformationColumn) End Function _ Public Sub Setncts_PreviousDocument_8_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_8_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_TypeColumn) End Function _ Public Sub Setncts_PreviousDocument_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_ReferenceNumberColumn) End Function _ Public Sub Setncts_PreviousDocument_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_PreviousDocument_9_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_ComplementOfInformationColumn) End Function _ Public Sub Setncts_PreviousDocument_9_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_PreviousDocument_9_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_1_TypeColumn) End Function _ Public Sub Setncts_TransportDocument_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_1_ReferenceNumberColumn) End Function _ Public Sub Setncts_TransportDocument_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_2_TypeColumn) End Function _ Public Sub Setncts_TransportDocument_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_2_ReferenceNumberColumn) End Function _ Public Sub Setncts_TransportDocument_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_3_TypeColumn) End Function _ Public Sub Setncts_TransportDocument_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_3_ReferenceNumberColumn) End Function _ Public Sub Setncts_TransportDocument_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_4_TypeColumn) End Function _ Public Sub Setncts_TransportDocument_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_4_ReferenceNumberColumn) End Function _ Public Sub Setncts_TransportDocument_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_5_TypeColumn) End Function _ Public Sub Setncts_TransportDocument_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_5_ReferenceNumberColumn) End Function _ Public Sub Setncts_TransportDocument_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_6_TypeColumn) End Function _ Public Sub Setncts_TransportDocument_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_6_ReferenceNumberColumn) End Function _ Public Sub Setncts_TransportDocument_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_7_TypeColumn) End Function _ Public Sub Setncts_TransportDocument_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_7_ReferenceNumberColumn) End Function _ Public Sub Setncts_TransportDocument_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_8_TypeColumn) End Function _ Public Sub Setncts_TransportDocument_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_8_ReferenceNumberColumn) End Function _ Public Sub Setncts_TransportDocument_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_9_TypeColumn) End Function _ Public Sub Setncts_TransportDocument_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_TransportDocument_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_9_ReferenceNumberColumn) End Function _ Public Sub Setncts_TransportDocument_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_TransportDocument_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_1_TypeColumn) End Function _ Public Sub Setncts_AdditionalReference_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_1_ReferenceNumberColumn) End Function _ Public Sub Setncts_AdditionalReference_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_2_TypeColumn) End Function _ Public Sub Setncts_AdditionalReference_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_2_ReferenceNumberColumn) End Function _ Public Sub Setncts_AdditionalReference_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_3_TypeColumn) End Function _ Public Sub Setncts_AdditionalReference_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_3_ReferenceNumberColumn) End Function _ Public Sub Setncts_AdditionalReference_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_4_TypeColumn) End Function _ Public Sub Setncts_AdditionalReference_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_4_ReferenceNumberColumn) End Function _ Public Sub Setncts_AdditionalReference_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_5_TypeColumn) End Function _ Public Sub Setncts_AdditionalReference_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_5_ReferenceNumberColumn) End Function _ Public Sub Setncts_AdditionalReference_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_6_TypeColumn) End Function _ Public Sub Setncts_AdditionalReference_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_6_ReferenceNumberColumn) End Function _ Public Sub Setncts_AdditionalReference_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_7_TypeColumn) End Function _ Public Sub Setncts_AdditionalReference_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_7_ReferenceNumberColumn) End Function _ Public Sub Setncts_AdditionalReference_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_8_TypeColumn) End Function _ Public Sub Setncts_AdditionalReference_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_8_ReferenceNumberColumn) End Function _ Public Sub Setncts_AdditionalReference_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_9_TypeColumn) End Function _ Public Sub Setncts_AdditionalReference_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalReference_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_9_ReferenceNumberColumn) End Function _ Public Sub Setncts_AdditionalReference_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalReference_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_1_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_1_CodeColumn) End Function _ Public Sub Setncts_AdditionalInformation_1_CodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_1_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_1_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_1_TextColumn) End Function _ Public Sub Setncts_AdditionalInformation_1_TextNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_1_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_2_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_2_CodeColumn) End Function _ Public Sub Setncts_AdditionalInformation_2_CodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_2_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_2_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_2_TextColumn) End Function _ Public Sub Setncts_AdditionalInformation_2_TextNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_2_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_3_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_3_CodeColumn) End Function _ Public Sub Setncts_AdditionalInformation_3_CodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_3_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_3_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_3_TextColumn) End Function _ Public Sub Setncts_AdditionalInformation_3_TextNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_3_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_4_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_4_CodeColumn) End Function _ Public Sub Setncts_AdditionalInformation_4_CodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_4_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_4_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_4_TextColumn) End Function _ Public Sub Setncts_AdditionalInformation_4_TextNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_4_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_5_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_5_CodeColumn) End Function _ Public Sub Setncts_AdditionalInformation_5_CodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_5_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_5_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_5_TextColumn) End Function _ Public Sub Setncts_AdditionalInformation_5_TextNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_5_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_6_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_6_CodeColumn) End Function _ Public Sub Setncts_AdditionalInformation_6_CodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_6_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_6_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_6_TextColumn) End Function _ Public Sub Setncts_AdditionalInformation_6_TextNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_6_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_7_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_7_CodeColumn) End Function _ Public Sub Setncts_AdditionalInformation_7_CodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_7_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_7_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_7_TextColumn) End Function _ Public Sub Setncts_AdditionalInformation_7_TextNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_7_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_8_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_8_CodeColumn) End Function _ Public Sub Setncts_AdditionalInformation_8_CodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_8_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_8_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_8_TextColumn) End Function _ Public Sub Setncts_AdditionalInformation_8_TextNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_8_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_9_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_9_CodeColumn) End Function _ Public Sub Setncts_AdditionalInformation_9_CodeNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_9_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AdditionalInformation_9_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_9_TextColumn) End Function _ Public Sub Setncts_AdditionalInformation_9_TextNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AdditionalInformation_9_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AUTOIMPIndicatorNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AUTOIMPIndicatorColumn) End Function _ Public Sub Setncts_AUTOIMPIndicatorNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AUTOIMPIndicatorColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_StammreferenzNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_StammreferenzColumn) End Function _ Public Sub Setncts_StammreferenzNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_StammreferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ModeOfTransportAtTheBorderNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ModeOfTransportAtTheBorderColumn) End Function _ Public Sub Setncts_ModeOfTransportAtTheBorderNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ModeOfTransportAtTheBorderColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_EroeffnungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_EroeffnungColumn) End Function _ Public Sub Setncts_EroeffnungNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_EroeffnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AnkunftNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_AnkunftColumn) End Function _ Public Sub Setncts_AnkunftNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_AnkunftColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ErledigungNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004.ncts_ErledigungColumn) End Function _ Public Sub Setncts_ErledigungNull() Me(Me.tabletblDakosy_NCTSOut004.ncts_ErledigungColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOut004_GuaranteeRow Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut004_Guarantee As tblDakosy_NCTSOut004_GuaranteeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut004_Guarantee = CType(Me.Table,tblDakosy_NCTSOut004_GuaranteeDataTable) End Sub _ Public Property nctsGRT_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_IdColumn) = value End Set End Property _ Public Property nctsGRT_NctsId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_NctsIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_NctsIdColumn) = value End Set End Property _ Public Property nctsGRT_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_Type in Tabelle tblDakosy_NCTSOut004_Guarantee ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_TypeColumn) = value End Set End Property _ Public Property nctsGRT_OtherGuaranteeReference() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_OtherGuaranteeReferenceColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_OtherGuaranteeReference in Tabelle tblDakosy_NCTSOut0"& _ "04_Guarantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_OtherGuaranteeReferenceColumn) = value End Set End Property _ Public Property nctsGRT_Currency() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_Currency in Tabelle tblDakosy_NCTSOut004_Guarantee is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyColumn) = value End Set End Property _ Public Property nctsGRT_AmountToBeCovered() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AmountToBeCoveredColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_AmountToBeCovered in Tabelle tblDakosy_NCTSOut004_Gua"& _ "rantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AmountToBeCoveredColumn) = value End Set End Property _ Public Property nctsGRT_GRN() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_GRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_GRN in Tabelle tblDakosy_NCTSOut004_Guarantee ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_GRNColumn) = value End Set End Property _ Public Property nctsGRT_AccessCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AccessCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_AccessCode in Tabelle tblDakosy_NCTSOut004_Guarantee "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AccessCodeColumn) = value End Set End Property _ Public Property nctsGRT_AccountName() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AccountNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_AccountName in Tabelle tblDakosy_NCTSOut004_Guarantee"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AccountNameColumn) = value End Set End Property _ Public Property nctsGRT_GoodsValue() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_GoodsValueColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_GoodsValue in Tabelle tblDakosy_NCTSOut004_Guarantee "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_GoodsValueColumn) = value End Set End Property _ Public Property nctsGRT_CurrencyOfGoodsValue() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyOfGoodsValueColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_CurrencyOfGoodsValue in Tabelle tblDakosy_NCTSOut004_"& _ "Guarantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyOfGoodsValueColumn) = value End Set End Property _ Public Property nctsGRT_FractionOfGoodsValue() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_FractionOfGoodsValueColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_FractionOfGoodsValue in Tabelle tblDakosy_NCTSOut004_"& _ "Guarantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_FractionOfGoodsValueColumn) = value End Set End Property _ Public Property nctsGRT_CurrencyExchangeRateCustoms() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateCustomsColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_CurrencyExchangeRateCustoms in Tabelle tblDakosy_NCTS"& _ "Out004_Guarantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateCustomsColumn) = value End Set End Property _ Public Property nctsGRT_CurrencyExchangeRateAccount() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateAccountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_CurrencyExchangeRateAccount in Tabelle tblDakosy_NCTS"& _ "Out004_Guarantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateAccountColumn) = value End Set End Property _ Public Property nctsGRT_ExchangeDateCustoms() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_ExchangeDateCustomsColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_ExchangeDateCustoms in Tabelle tblDakosy_NCTSOut004_G"& _ "uarantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_ExchangeDateCustomsColumn) = value End Set End Property _ Public Property nctsGRT_ExchangeDateAccount() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_ExchangeDateAccountColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_ExchangeDateAccount in Tabelle tblDakosy_NCTSOut004_G"& _ "uarantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_ExchangeDateAccountColumn) = value End Set End Property _ Public Property nctsGRT_CurrencyExchangeRateTypeCustoms() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateTypeCustomsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_CurrencyExchangeRateTypeCustoms in Tabelle tblDakosy_"& _ "NCTSOut004_Guarantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateTypeCustomsColumn) = value End Set End Property _ Public Property nctsGRT_CurrencyExchangeRateTypeAccount() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateTypeAccountColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_CurrencyExchangeRateTypeAccount in Tabelle tblDakosy_"& _ "NCTSOut004_Guarantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateTypeAccountColumn) = value End Set End Property _ Public Property nctsGRT_CalculateGoodsValueFromGoodsItems() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CalculateGoodsValueFromGoodsItemsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_CalculateGoodsValueFromGoodsItems in Tabelle tblDakos"& _ "y_NCTSOut004_Guarantee ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CalculateGoodsValueFromGoodsItemsColumn) = value End Set End Property _ Public Property nctsGRT_Commentary() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CommentaryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsGRT_Commentary in Tabelle tblDakosy_NCTSOut004_Guarantee "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CommentaryColumn) = value End Set End Property _ Public Function IsnctsGRT_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_TypeColumn) End Function _ Public Sub SetnctsGRT_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_OtherGuaranteeReferenceNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_OtherGuaranteeReferenceColumn) End Function _ Public Sub SetnctsGRT_OtherGuaranteeReferenceNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_OtherGuaranteeReferenceColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_CurrencyNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyColumn) End Function _ Public Sub SetnctsGRT_CurrencyNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_AmountToBeCoveredNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AmountToBeCoveredColumn) End Function _ Public Sub SetnctsGRT_AmountToBeCoveredNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AmountToBeCoveredColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_GRNNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_GRNColumn) End Function _ Public Sub SetnctsGRT_GRNNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_GRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_AccessCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AccessCodeColumn) End Function _ Public Sub SetnctsGRT_AccessCodeNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AccessCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_AccountNameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AccountNameColumn) End Function _ Public Sub SetnctsGRT_AccountNameNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_AccountNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_GoodsValueNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_GoodsValueColumn) End Function _ Public Sub SetnctsGRT_GoodsValueNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_GoodsValueColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_CurrencyOfGoodsValueNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyOfGoodsValueColumn) End Function _ Public Sub SetnctsGRT_CurrencyOfGoodsValueNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyOfGoodsValueColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_FractionOfGoodsValueNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_FractionOfGoodsValueColumn) End Function _ Public Sub SetnctsGRT_FractionOfGoodsValueNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_FractionOfGoodsValueColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_CurrencyExchangeRateCustomsNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateCustomsColumn) End Function _ Public Sub SetnctsGRT_CurrencyExchangeRateCustomsNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateCustomsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_CurrencyExchangeRateAccountNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateAccountColumn) End Function _ Public Sub SetnctsGRT_CurrencyExchangeRateAccountNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateAccountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_ExchangeDateCustomsNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_ExchangeDateCustomsColumn) End Function _ Public Sub SetnctsGRT_ExchangeDateCustomsNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_ExchangeDateCustomsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_ExchangeDateAccountNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_ExchangeDateAccountColumn) End Function _ Public Sub SetnctsGRT_ExchangeDateAccountNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_ExchangeDateAccountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_CurrencyExchangeRateTypeCustomsNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateTypeCustomsColumn) End Function _ Public Sub SetnctsGRT_CurrencyExchangeRateTypeCustomsNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateTypeCustomsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_CurrencyExchangeRateTypeAccountNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateTypeAccountColumn) End Function _ Public Sub SetnctsGRT_CurrencyExchangeRateTypeAccountNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CurrencyExchangeRateTypeAccountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_CalculateGoodsValueFromGoodsItemsNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CalculateGoodsValueFromGoodsItemsColumn) End Function _ Public Sub SetnctsGRT_CalculateGoodsValueFromGoodsItemsNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CalculateGoodsValueFromGoodsItemsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsGRT_CommentaryNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CommentaryColumn) End Function _ Public Sub SetnctsGRT_CommentaryNull() Me(Me.tabletblDakosy_NCTSOut004_Guarantee.nctsGRT_CommentaryColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOut004_HouseConsignmentRow Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut004_HouseConsignment As tblDakosy_NCTSOut004_HouseConsignmentDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut004_HouseConsignment = CType(Me.Table,tblDakosy_NCTSOut004_HouseConsignmentDataTable) End Sub _ Public Property nctsHC_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_IdColumn) = value End Set End Property _ Public Property nctsHC_NctsId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_NctsIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_NctsIdColumn) = value End Set End Property _ Public Property nctsHC_HouseConsignMentReference() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_HouseConsignMentReferenceColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_HouseConsignMentReference in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_HouseConsignMentReferenceColumn) = value End Set End Property _ Public Property nctsHC_CountryOfDispatch() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_CountryOfDispatchColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_CountryOfDispatch in Tabelle tblDakosy_NCTSOut004_Hous"& _ "eConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_CountryOfDispatchColumn) = value End Set End Property _ Public Property nctsHC_CountryOfDestination() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_CountryOfDestinationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_CountryOfDestination in Tabelle tblDakosy_NCTSOut004_H"& _ "ouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_CountryOfDestinationColumn) = value End Set End Property _ Public Property nctsHC_GrossMass() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_GrossMassColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_GrossMass in Tabelle tblDakosy_NCTSOut004_HouseConsign"& _ "ment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_GrossMassColumn) = value End Set End Property _ Public Property nctsHC_ReferenceNumberUCR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_ReferenceNumberUCRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_ReferenceNumberUCR in Tabelle tblDakosy_NCTSOut004_Hou"& _ "seConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_ReferenceNumberUCRColumn) = value End Set End Property _ Public Property nctsHC_Consignor_AdressCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_AdressCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_AdressCode in Tabelle tblDakosy_NCTSOut004_H"& _ "ouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_AdressCodeColumn) = value End Set End Property _ Public Property nctsHC_Consignor_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_IdentificationNumber in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_Consignor_SubsidiaryNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_SubsidiaryNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_SubsidiaryNumber in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_SubsidiaryNumberColumn) = value End Set End Property _ Public Property nctsHC_Consignor_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_Name in Tabelle tblDakosy_NCTSOut004_HouseCo"& _ "nsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_NameColumn) = value End Set End Property _ Public Property nctsHC_Consignor_StreetNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_StreetNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_StreetNumber in Tabelle tblDakosy_NCTSOut004"& _ "_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_StreetNumberColumn) = value End Set End Property _ Public Property nctsHC_Consignor_City() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_CityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_City in Tabelle tblDakosy_NCTSOut004_HouseCo"& _ "nsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_CityColumn) = value End Set End Property _ Public Property nctsHC_Consignor_Postcode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_PostcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_Postcode in Tabelle tblDakosy_NCTSOut004_Hou"& _ "seConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_PostcodeColumn) = value End Set End Property _ Public Property nctsHC_Consignor_Country() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_Country in Tabelle tblDakosy_NCTSOut004_Hous"& _ "eConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_CountryColumn) = value End Set End Property _ Public Property nctsHC_Consignor_ContactPerson_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_ContactPerson_Name in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_NameColumn) = value End Set End Property _ Public Property nctsHC_Consignor_ContactPerson_PhoneNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_PhoneNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_ContactPerson_PhoneNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_PhoneNumberColumn) = value End Set End Property _ Public Property nctsHC_Consignor_ContactPerson_EMailAddress() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_EMailAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignor_ContactPerson_EMailAddress in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_EMailAddressColumn) = value End Set End Property _ Public Property nctsHC_Consignee_AdressCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_AdressCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_AdressCode in Tabelle tblDakosy_NCTSOut004_H"& _ "ouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_AdressCodeColumn) = value End Set End Property _ Public Property nctsHC_Consignee_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_IdentificationNumber in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_Consignee_SubsidiaryNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_SubsidiaryNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_SubsidiaryNumber in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_SubsidiaryNumberColumn) = value End Set End Property _ Public Property nctsHC_Consignee_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_Name in Tabelle tblDakosy_NCTSOut004_HouseCo"& _ "nsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_NameColumn) = value End Set End Property _ Public Property nctsHC_Consignee_StreetNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_StreetNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_StreetNumber in Tabelle tblDakosy_NCTSOut004"& _ "_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_StreetNumberColumn) = value End Set End Property _ Public Property nctsHC_Consignee_City() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_CityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_City in Tabelle tblDakosy_NCTSOut004_HouseCo"& _ "nsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_CityColumn) = value End Set End Property _ Public Property nctsHC_Consignee_Postcode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_PostcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_Postcode in Tabelle tblDakosy_NCTSOut004_Hou"& _ "seConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_PostcodeColumn) = value End Set End Property _ Public Property nctsHC_Consignee_Country() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_Country in Tabelle tblDakosy_NCTSOut004_Hous"& _ "eConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_CountryColumn) = value End Set End Property _ Public Property nctsHC_Consignee_ContactPerson_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_ContactPerson_Name in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_NameColumn) = value End Set End Property _ Public Property nctsHC_Consignee_ContactPerson_PhoneNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_PhoneNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_ContactPerson_PhoneNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_PhoneNumberColumn) = value End Set End Property _ Public Property nctsHC_Consignee_ContactPerson_EMailAddress() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_EMailAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_Consignee_ContactPerson_EMailAddress in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_EMailAddressColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_1_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_1_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_1_Role in Tabelle tblDakosy"& _ "_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_1_RoleColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_1_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber in T"& _ "abelle tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_1_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_2_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_2_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_2_Role in Tabelle tblDakosy"& _ "_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_2_RoleColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_2_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber in T"& _ "abelle tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_2_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_3_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_3_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_3_Role in Tabelle tblDakosy"& _ "_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_3_RoleColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_3_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber in T"& _ "abelle tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_3_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_4_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_4_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_4_Role in Tabelle tblDakosy"& _ "_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_4_RoleColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_4_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber in T"& _ "abelle tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_4_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_5_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_5_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_5_Role in Tabelle tblDakosy"& _ "_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_5_RoleColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_5_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber in T"& _ "abelle tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_5_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_6_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_6_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_6_Role in Tabelle tblDakosy"& _ "_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_6_RoleColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_6_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber in T"& _ "abelle tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_6_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_7_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_7_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_7_Role in Tabelle tblDakosy"& _ "_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_7_RoleColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_7_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber in T"& _ "abelle tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_7_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_8_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_8_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_8_Role in Tabelle tblDakosy"& _ "_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_8_RoleColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_8_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber in T"& _ "abelle tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_8_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_9_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_9_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_9_Role in Tabelle tblDakosy"& _ "_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_9_RoleColumn) = value End Set End Property _ Public Property nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_9_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber in T"& _ "abelle tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_9_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_1_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_TypeColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_1_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_1_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_1_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_1_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_1_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_2_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_TypeColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_2_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_2_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_2_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_2_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_2_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_3_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_TypeColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_3_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_3_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_3_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_3_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_3_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_4_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_TypeColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_4_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_4_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_4_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_4_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_4_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_5_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_TypeColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_5_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_5_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_5_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_5_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_5_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_6_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_TypeColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_6_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_6_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_6_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_6_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_6_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_7_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_TypeColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_7_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_7_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_7_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_7_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_7_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_8_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_TypeColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_8_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_8_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_8_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_8_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_8_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_9_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_TypeColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_9_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_9_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_9_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHC_SupportingDocument_9_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_SupportingDocument_9_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_1_Type in Tabelle tblDakosy_NCTSOut00"& _ "4_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_TypeColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_1_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_1_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_1_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_2_Type in Tabelle tblDakosy_NCTSOut00"& _ "4_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_TypeColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_2_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_2_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_2_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_3_Type in Tabelle tblDakosy_NCTSOut00"& _ "4_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_TypeColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_3_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_3_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_3_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_4_Type in Tabelle tblDakosy_NCTSOut00"& _ "4_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_TypeColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_4_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_4_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_4_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_5_Type in Tabelle tblDakosy_NCTSOut00"& _ "4_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_TypeColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_5_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_5_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_5_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_6_Type in Tabelle tblDakosy_NCTSOut00"& _ "4_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_TypeColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_6_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_6_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_6_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_7_Type in Tabelle tblDakosy_NCTSOut00"& _ "4_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_TypeColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_7_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_7_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_7_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_8_Type in Tabelle tblDakosy_NCTSOut00"& _ "4_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_TypeColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_8_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_8_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_8_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_9_Type in Tabelle tblDakosy_NCTSOut00"& _ "4_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_TypeColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_9_ReferenceNumber in Tabelle tblDakos"& _ "y_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_PreviousDocument_9_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_PreviousDocument_9_ComplementOfInformation in Tabelle "& _ "tblDakosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_1_Type in Tabelle tblDakosy_NCTSOut0"& _ "04_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_1_TypeColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_1_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_1_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_2_Type in Tabelle tblDakosy_NCTSOut0"& _ "04_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_2_TypeColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_2_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_2_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_3_Type in Tabelle tblDakosy_NCTSOut0"& _ "04_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_3_TypeColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_3_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_3_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_4_Type in Tabelle tblDakosy_NCTSOut0"& _ "04_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_4_TypeColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_4_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_4_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_5_Type in Tabelle tblDakosy_NCTSOut0"& _ "04_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_5_TypeColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_5_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_5_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_6_Type in Tabelle tblDakosy_NCTSOut0"& _ "04_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_6_TypeColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_6_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_6_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_7_Type in Tabelle tblDakosy_NCTSOut0"& _ "04_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_7_TypeColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_7_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_7_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_8_Type in Tabelle tblDakosy_NCTSOut0"& _ "04_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_8_TypeColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_8_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_8_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_9_Type in Tabelle tblDakosy_NCTSOut0"& _ "04_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_9_TypeColumn) = value End Set End Property _ Public Property nctsHC_TransportDocument_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportDocument_9_ReferenceNumber in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_9_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_1_Type in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_1_TypeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_1_ReferenceNumber in Tabelle tblDa"& _ "kosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_1_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_2_Type in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_2_TypeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_2_ReferenceNumber in Tabelle tblDa"& _ "kosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_2_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_3_Type in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_3_TypeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_3_ReferenceNumber in Tabelle tblDa"& _ "kosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_3_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_4_Type in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_4_TypeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_4_ReferenceNumber in Tabelle tblDa"& _ "kosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_4_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_5_Type in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_5_TypeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_5_ReferenceNumber in Tabelle tblDa"& _ "kosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_5_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_6_Type in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_6_TypeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_6_ReferenceNumber in Tabelle tblDa"& _ "kosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_6_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_7_Type in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_7_TypeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_7_ReferenceNumber in Tabelle tblDa"& _ "kosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_7_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_8_Type in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_8_TypeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_8_ReferenceNumber in Tabelle tblDa"& _ "kosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_8_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_9_Type in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_9_TypeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalReference_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalReference_9_ReferenceNumber in Tabelle tblDa"& _ "kosy_NCTSOut004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_9_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_1_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_1_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_1_Code in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_1_CodeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_1_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_1_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_1_Text in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_1_TextColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_2_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_2_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_2_Code in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_2_CodeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_2_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_2_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_2_Text in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_2_TextColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_3_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_3_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_3_Code in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_3_CodeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_3_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_3_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_3_Text in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_3_TextColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_4_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_4_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_4_Code in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_4_CodeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_4_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_4_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_4_Text in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_4_TextColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_5_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_5_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_5_Code in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_5_CodeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_5_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_5_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_5_Text in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_5_TextColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_6_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_6_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_6_Code in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_6_CodeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_6_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_6_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_6_Text in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_6_TextColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_7_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_7_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_7_Code in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_7_CodeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_7_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_7_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_7_Text in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_7_TextColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_8_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_8_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_8_Code in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_8_CodeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_8_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_8_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_8_Text in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_8_TextColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_9_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_9_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_9_Code in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_9_CodeColumn) = value End Set End Property _ Public Property nctsHC_AdditionalInformation_9_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_9_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_AdditionalInformation_9_Text in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_9_TextColumn) = value End Set End Property _ Public Property nctsHC_TransportCharges() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportChargesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHC_TransportCharges in Tabelle tblDakosy_NCTSOut004_House"& _ "Consignment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportChargesColumn) = value End Set End Property _ Public Function IsnctsHC_HouseConsignMentReferenceNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_HouseConsignMentReferenceColumn) End Function _ Public Sub SetnctsHC_HouseConsignMentReferenceNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_HouseConsignMentReferenceColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_CountryOfDispatchNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_CountryOfDispatchColumn) End Function _ Public Sub SetnctsHC_CountryOfDispatchNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_CountryOfDispatchColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_CountryOfDestinationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_CountryOfDestinationColumn) End Function _ Public Sub SetnctsHC_CountryOfDestinationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_CountryOfDestinationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_GrossMassNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_GrossMassColumn) End Function _ Public Sub SetnctsHC_GrossMassNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_GrossMassColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_ReferenceNumberUCRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_ReferenceNumberUCRColumn) End Function _ Public Sub SetnctsHC_ReferenceNumberUCRNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_ReferenceNumberUCRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_AdressCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_AdressCodeColumn) End Function _ Public Sub SetnctsHC_Consignor_AdressCodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_AdressCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_Consignor_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_SubsidiaryNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_SubsidiaryNumberColumn) End Function _ Public Sub SetnctsHC_Consignor_SubsidiaryNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_SubsidiaryNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_NameColumn) End Function _ Public Sub SetnctsHC_Consignor_NameNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_StreetNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_StreetNumberColumn) End Function _ Public Sub SetnctsHC_Consignor_StreetNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_StreetNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_CityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_CityColumn) End Function _ Public Sub SetnctsHC_Consignor_CityNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_CityColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_PostcodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_PostcodeColumn) End Function _ Public Sub SetnctsHC_Consignor_PostcodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_PostcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_CountryNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_CountryColumn) End Function _ Public Sub SetnctsHC_Consignor_CountryNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_ContactPerson_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_NameColumn) End Function _ Public Sub SetnctsHC_Consignor_ContactPerson_NameNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_ContactPerson_PhoneNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_PhoneNumberColumn) End Function _ Public Sub SetnctsHC_Consignor_ContactPerson_PhoneNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_PhoneNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignor_ContactPerson_EMailAddressNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_EMailAddressColumn) End Function _ Public Sub SetnctsHC_Consignor_ContactPerson_EMailAddressNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignor_ContactPerson_EMailAddressColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_AdressCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_AdressCodeColumn) End Function _ Public Sub SetnctsHC_Consignee_AdressCodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_AdressCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_Consignee_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_SubsidiaryNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_SubsidiaryNumberColumn) End Function _ Public Sub SetnctsHC_Consignee_SubsidiaryNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_SubsidiaryNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_NameColumn) End Function _ Public Sub SetnctsHC_Consignee_NameNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_StreetNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_StreetNumberColumn) End Function _ Public Sub SetnctsHC_Consignee_StreetNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_StreetNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_CityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_CityColumn) End Function _ Public Sub SetnctsHC_Consignee_CityNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_CityColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_PostcodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_PostcodeColumn) End Function _ Public Sub SetnctsHC_Consignee_PostcodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_PostcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_CountryNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_CountryColumn) End Function _ Public Sub SetnctsHC_Consignee_CountryNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_ContactPerson_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_NameColumn) End Function _ Public Sub SetnctsHC_Consignee_ContactPerson_NameNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_ContactPerson_PhoneNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_PhoneNumberColumn) End Function _ Public Sub SetnctsHC_Consignee_ContactPerson_PhoneNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_PhoneNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_Consignee_ContactPerson_EMailAddressNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_EMailAddressColumn) End Function _ Public Sub SetnctsHC_Consignee_ContactPerson_EMailAddressNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_Consignee_ContactPerson_EMailAddressColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_1_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_1_RoleColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_1_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_1_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_1_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_1_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_1_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_1_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_2_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_2_RoleColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_2_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_2_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_2_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_2_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_2_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_2_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_3_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_3_RoleColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_3_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_3_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_3_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_3_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_3_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_3_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_4_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_4_RoleColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_4_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_4_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_4_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_4_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_4_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_4_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_5_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_5_RoleColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_5_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_5_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_5_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_5_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_5_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_5_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_6_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_6_RoleColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_6_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_6_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_6_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_6_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_6_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_6_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_7_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_7_RoleColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_7_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_7_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_7_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_7_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_7_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_7_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_8_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_8_RoleColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_8_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_8_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_8_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_8_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_8_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_8_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_9_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_9_RoleColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_9_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_9_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalSupplyChainActor_9_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_9_IdentificationNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalSupplyChainActor_9_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalSupplyChainActor_9_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_TypeColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_1_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_1_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_1_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_1_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_1_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_TypeColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_2_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_2_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_2_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_2_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_2_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_TypeColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_3_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_3_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_3_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_3_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_3_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_TypeColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_4_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_4_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_4_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_4_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_4_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_TypeColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_5_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_5_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_5_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_5_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_5_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_TypeColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_6_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_6_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_6_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_6_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_6_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_TypeColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_7_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_7_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_7_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_7_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_7_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_TypeColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_8_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_8_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_8_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_8_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_8_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_TypeColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_9_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_9_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_SupportingDocument_9_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_SupportingDocument_9_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_SupportingDocument_9_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_TypeColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_1_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_1_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_1_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_TypeColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_2_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_2_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_2_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_TypeColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_3_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_3_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_3_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_TypeColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_4_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_4_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_4_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_TypeColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_5_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_5_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_5_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_TypeColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_6_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_6_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_6_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_TypeColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_7_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_7_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_7_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_TypeColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_8_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_8_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_8_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_TypeColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_PreviousDocument_9_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHC_PreviousDocument_9_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_PreviousDocument_9_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_1_TypeColumn) End Function _ Public Sub SetnctsHC_TransportDocument_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_1_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_TransportDocument_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_2_TypeColumn) End Function _ Public Sub SetnctsHC_TransportDocument_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_2_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_TransportDocument_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_3_TypeColumn) End Function _ Public Sub SetnctsHC_TransportDocument_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_3_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_TransportDocument_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_4_TypeColumn) End Function _ Public Sub SetnctsHC_TransportDocument_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_4_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_TransportDocument_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_5_TypeColumn) End Function _ Public Sub SetnctsHC_TransportDocument_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_5_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_TransportDocument_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_6_TypeColumn) End Function _ Public Sub SetnctsHC_TransportDocument_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_6_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_TransportDocument_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_7_TypeColumn) End Function _ Public Sub SetnctsHC_TransportDocument_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_7_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_TransportDocument_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_8_TypeColumn) End Function _ Public Sub SetnctsHC_TransportDocument_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_8_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_TransportDocument_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_9_TypeColumn) End Function _ Public Sub SetnctsHC_TransportDocument_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportDocument_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_9_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_TransportDocument_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportDocument_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_1_TypeColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_1_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_2_TypeColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_2_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_3_TypeColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_3_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_4_TypeColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_4_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_5_TypeColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_5_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_6_TypeColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_6_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_7_TypeColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_7_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_8_TypeColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_8_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_9_TypeColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalReference_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_9_ReferenceNumberColumn) End Function _ Public Sub SetnctsHC_AdditionalReference_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalReference_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_1_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_1_CodeColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_1_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_1_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_1_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_1_TextColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_1_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_1_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_2_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_2_CodeColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_2_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_2_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_2_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_2_TextColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_2_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_2_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_3_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_3_CodeColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_3_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_3_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_3_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_3_TextColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_3_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_3_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_4_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_4_CodeColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_4_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_4_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_4_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_4_TextColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_4_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_4_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_5_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_5_CodeColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_5_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_5_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_5_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_5_TextColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_5_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_5_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_6_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_6_CodeColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_6_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_6_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_6_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_6_TextColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_6_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_6_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_7_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_7_CodeColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_7_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_7_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_7_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_7_TextColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_7_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_7_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_8_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_8_CodeColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_8_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_8_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_8_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_8_TextColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_8_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_8_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_9_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_9_CodeColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_9_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_9_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_AdditionalInformation_9_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_9_TextColumn) End Function _ Public Sub SetnctsHC_AdditionalInformation_9_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_AdditionalInformation_9_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHC_TransportChargesNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportChargesColumn) End Function _ Public Sub SetnctsHC_TransportChargesNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment.nctsHC_TransportChargesColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem = CType(Me.Table,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable) End Sub _ Public Property nctsHCCI_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_IdColumn) = value End Set End Property _ Public Property nctsHCCI_NctsId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_NctsIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_NctsIdColumn) = value End Set End Property _ Public Property nctsHCCI_NctsHCId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_NctsHCIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_NctsHCIdColumn) = value End Set End Property _ Public Property nctsHCCI_GoodsItemNumber() As Integer Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GoodsItemNumberColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_GoodsItemNumber in Tabelle tblDakosy_NCTSOut004_Hous"& _ "eConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_DeclarationGoodsItemNumber() As Integer Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DeclarationGoodsItemNumberColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_DeclarationGoodsItemNumber in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DeclarationGoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_CommodityCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CommodityCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_CommodityCode in Tabelle tblDakosy_NCTSOut004_HouseC"& _ "onsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CommodityCodeColumn) = value End Set End Property _ Public Property nctsHCCI_MethodeOfPayment() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_MethodeOfPaymentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_MethodeOfPayment in Tabelle tblDakosy_NCTSOut004_Hou"& _ "seConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_MethodeOfPaymentColumn) = value End Set End Property _ Public Property nctsHCCI_UNNumber_1() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_UNNumber_1 in Tabelle tblDakosy_NCTSOut004_HouseCons"& _ "ignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_1Column) = value End Set End Property _ Public Property nctsHCCI_UNNumber_2() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_UNNumber_2 in Tabelle tblDakosy_NCTSOut004_HouseCons"& _ "ignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_2Column) = value End Set End Property _ Public Property nctsHCCI_UNNumber_3() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_UNNumber_3 in Tabelle tblDakosy_NCTSOut004_HouseCons"& _ "ignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_3Column) = value End Set End Property _ Public Property nctsHCCI_UNNumber_4() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_UNNumber_4 in Tabelle tblDakosy_NCTSOut004_HouseCons"& _ "ignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_4Column) = value End Set End Property _ Public Property nctsHCCI_DeclarationType() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DeclarationTypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_DeclarationType in Tabelle tblDakosy_NCTSOut004_Hous"& _ "eConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DeclarationTypeColumn) = value End Set End Property _ Public Property nctsHCCI_ArticleCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ArticleCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_ArticleCode in Tabelle tblDakosy_NCTSOut004_HouseCon"& _ "signment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ArticleCodeColumn) = value End Set End Property _ Public Property nctsHCCI_DescriptionOfGoods() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DescriptionOfGoodsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_DescriptionOfGoods in Tabelle tblDakosy_NCTSOut004_H"& _ "ouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DescriptionOfGoodsColumn) = value End Set End Property _ Public Property nctsHCCI_CusCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CusCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_CusCode in Tabelle tblDakosy_NCTSOut004_HouseConsign"& _ "ment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CusCodeColumn) = value End Set End Property _ Public Property nctsHCCI_CountryOfDispatch() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CountryOfDispatchColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_CountryOfDispatch in Tabelle tblDakosy_NCTSOut004_Ho"& _ "useConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CountryOfDispatchColumn) = value End Set End Property _ Public Property nctsHCCI_CountryOfDestination() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CountryOfDestinationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_CountryOfDestination in Tabelle tblDakosy_NCTSOut004"& _ "_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CountryOfDestinationColumn) = value End Set End Property _ Public Property nctsHCCI_GrossMass() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GrossMassColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_GrossMass in Tabelle tblDakosy_NCTSOut004_HouseConsi"& _ "gnment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GrossMassColumn) = value End Set End Property _ Public Property nctsHCCI_NetMass() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_NetMassColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_NetMass in Tabelle tblDakosy_NCTSOut004_HouseConsign"& _ "ment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_NetMassColumn) = value End Set End Property _ Public Property nctsHCCI_ReferenceNumberUCR() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ReferenceNumberUCRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_ReferenceNumberUCR in Tabelle tblDakosy_NCTSOut004_H"& _ "ouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ReferenceNumberUCRColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_AdressCode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_AdressCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_AdressCode in Tabelle tblDakosy_NCTSOut004"& _ "_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_AdressCodeColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_IdentificationNumber in Tabelle tblDakosy_"& _ "NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_SubsidiaryNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_SubsidiaryNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_SubsidiaryNumber in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_SubsidiaryNumberColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_Name in Tabelle tblDakosy_NCTSOut004_House"& _ "Consignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_NameColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_StreetNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_StreetNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_StreetNumber in Tabelle tblDakosy_NCTSOut0"& _ "04_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_StreetNumberColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_City() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_CityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_City in Tabelle tblDakosy_NCTSOut004_House"& _ "Consignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_CityColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_Postcode() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_PostcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_Postcode in Tabelle tblDakosy_NCTSOut004_H"& _ "ouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_PostcodeColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_Country() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_Country in Tabelle tblDakosy_NCTSOut004_Ho"& _ "useConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_CountryColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_ContactPerson_Name() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_ContactPerson_Name in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_NameColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_ContactPerson_PhoneNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_PhoneNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_ContactPerson_PhoneNumber in Tabelle tblDa"& _ "kosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_PhoneNumberColumn) = value End Set End Property _ Public Property nctsHCCI_Consignor_ContactPerson_EMailAddress() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_EMailAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_Consignor_ContactPerson_EMailAddress in Tabelle tblD"& _ "akosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_EMailAddressColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_1_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_1_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_1_Role in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_1_RoleColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber in"& _ " Tabelle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_2_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_2_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_2_Role in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_2_RoleColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber in"& _ " Tabelle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_3_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_3_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_3_Role in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_3_RoleColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber in"& _ " Tabelle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_4_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_4_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_4_Role in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_4_RoleColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber in"& _ " Tabelle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_5_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_5_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_5_Role in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_5_RoleColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber in"& _ " Tabelle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_6_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_6_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_6_Role in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_6_RoleColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber in"& _ " Tabelle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_7_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_7_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_7_Role in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_7_RoleColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber in"& _ " Tabelle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_8_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_8_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_8_Role in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_8_RoleColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber in"& _ " Tabelle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_9_Role() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_9_RoleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_9_Role in Tabelle tblDako"& _ "sy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_9_RoleColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber in"& _ " Tabelle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumberColumn) = value End Set End Property _ Public Property nctsHCCI_GoodsValue() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GoodsValueColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_GoodsValue in Tabelle tblDakosy_NCTSOut004_HouseCons"& _ "ignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GoodsValueColumn) = value End Set End Property _ Public Property nctsHCCI_CurrencyOfGoodsValue() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CurrencyOfGoodsValueColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_CurrencyOfGoodsValue in Tabelle tblDakosy_NCTSOut004"& _ "_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CurrencyOfGoodsValueColumn) = value End Set End Property _ Public Property nctsHCCI_ExchangeRate() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ExchangeRateColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_ExchangeRate in Tabelle tblDakosy_NCTSOut004_HouseCo"& _ "nsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ExchangeRateColumn) = value End Set End Property _ Public Property nctsHCCI_ExchangeDate() As Date Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ExchangeDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_ExchangeDate in Tabelle tblDakosy_NCTSOut004_HouseCo"& _ "nsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ExchangeDateColumn) = value End Set End Property _ Public Property nctsHCCI_CurrencyExchangeRateType() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CurrencyExchangeRateTypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_CurrencyExchangeRateType in Tabelle tblDakosy_NCTSOu"& _ "t004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CurrencyExchangeRateTypeColumn) = value End Set End Property _ Public Property nctsHCCI_FractionOfGoodsValue() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_FractionOfGoodsValueColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_FractionOfGoodsValue in Tabelle tblDakosy_NCTSOut004"& _ "_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_FractionOfGoodsValueColumn) = value End Set End Property _ Public Property nctsHCCI_GuaranteeAmount() As Decimal Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GuaranteeAmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_GuaranteeAmount in Tabelle tblDakosy_NCTSOut004_Hous"& _ "eConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GuaranteeAmountColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_1_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_1_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_1_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_1_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_1_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_1_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_1_GoodsItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_GoodsItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_1_GoodsItemNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_GoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_2_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_2_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_2_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_2_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_2_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_2_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_2_GoodsItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_GoodsItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_2_GoodsItemNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_GoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_3_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_3_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_3_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_3_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_3_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_3_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_3_GoodsItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_GoodsItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_3_GoodsItemNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_GoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_4_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_4_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_4_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_4_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_4_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_4_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_4_GoodsItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_GoodsItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_4_GoodsItemNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_GoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_5_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_5_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_5_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_5_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_5_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_5_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_5_GoodsItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_GoodsItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_5_GoodsItemNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_GoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_6_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_6_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_6_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_6_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_6_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_6_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_6_GoodsItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_GoodsItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_6_GoodsItemNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_GoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_7_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_7_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_7_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_7_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_7_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_7_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_7_GoodsItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_GoodsItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_7_GoodsItemNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_GoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_8_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_8_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_8_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_8_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_8_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_8_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_8_GoodsItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_GoodsItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_8_GoodsItemNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_GoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_9_Type in Tabelle tblDakosy_NCTSOut"& _ "004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_9_ReferenceNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_9_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_9_DocumentLineItemNumber in Tabelle"& _ " tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_9_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_9_ComplementOfInformation in Tabell"& _ "e tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_PreviousDocument_9_GoodsItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_GoodsItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_PreviousDocument_9_GoodsItemNumber in Tabelle tblDak"& _ "osy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_GoodsItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_1_Type in Tabelle tblDakosy_NCTSO"& _ "ut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_1_ReferenceNumber in Tabelle tblD"& _ "akosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_1_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_1_DocumentLineItemNumber in Tabel"& _ "le tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_1_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_1_ComplementOfInformation in Tabe"& _ "lle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_2_Type in Tabelle tblDakosy_NCTSO"& _ "ut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_2_ReferenceNumber in Tabelle tblD"& _ "akosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_2_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_2_DocumentLineItemNumber in Tabel"& _ "le tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_2_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_2_ComplementOfInformation in Tabe"& _ "lle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_3_Type in Tabelle tblDakosy_NCTSO"& _ "ut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_3_ReferenceNumber in Tabelle tblD"& _ "akosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_3_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_3_DocumentLineItemNumber in Tabel"& _ "le tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_3_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_3_ComplementOfInformation in Tabe"& _ "lle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_4_Type in Tabelle tblDakosy_NCTSO"& _ "ut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_4_ReferenceNumber in Tabelle tblD"& _ "akosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_4_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_4_DocumentLineItemNumber in Tabel"& _ "le tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_4_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_4_ComplementOfInformation in Tabe"& _ "lle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_5_Type in Tabelle tblDakosy_NCTSO"& _ "ut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_5_ReferenceNumber in Tabelle tblD"& _ "akosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_5_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_5_DocumentLineItemNumber in Tabel"& _ "le tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_5_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_5_ComplementOfInformation in Tabe"& _ "lle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_6_Type in Tabelle tblDakosy_NCTSO"& _ "ut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_6_ReferenceNumber in Tabelle tblD"& _ "akosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_6_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_6_DocumentLineItemNumber in Tabel"& _ "le tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_6_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_6_ComplementOfInformation in Tabe"& _ "lle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_7_Type in Tabelle tblDakosy_NCTSO"& _ "ut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_7_ReferenceNumber in Tabelle tblD"& _ "akosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_7_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_7_DocumentLineItemNumber in Tabel"& _ "le tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_7_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_7_ComplementOfInformation in Tabe"& _ "lle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_8_Type in Tabelle tblDakosy_NCTSO"& _ "ut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_8_ReferenceNumber in Tabelle tblD"& _ "akosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_8_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_8_DocumentLineItemNumber in Tabel"& _ "le tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_8_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_8_ComplementOfInformation in Tabe"& _ "lle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_9_Type in Tabelle tblDakosy_NCTSO"& _ "ut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_9_ReferenceNumber in Tabelle tblD"& _ "akosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_9_DocumentLineItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_DocumentLineItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_9_DocumentLineItemNumber in Tabel"& _ "le tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_DocumentLineItemNumberColumn) = value End Set End Property _ Public Property nctsHCCI_SupportingDocument_9_ComplementOfInformation() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_ComplementOfInformationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_SupportingDocument_9_ComplementOfInformation in Tabe"& _ "lle tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_ComplementOfInformationColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_1_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_1_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_1_Type in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_1_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_1_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_1_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_1_ReferenceNumber in Tabelle tbl"& _ "Dakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_1_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_2_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_2_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_2_Type in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_2_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_2_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_2_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_2_ReferenceNumber in Tabelle tbl"& _ "Dakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_2_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_3_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_3_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_3_Type in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_3_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_3_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_3_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_3_ReferenceNumber in Tabelle tbl"& _ "Dakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_3_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_4_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_4_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_4_Type in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_4_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_4_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_4_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_4_ReferenceNumber in Tabelle tbl"& _ "Dakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_4_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_5_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_5_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_5_Type in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_5_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_5_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_5_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_5_ReferenceNumber in Tabelle tbl"& _ "Dakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_5_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_6_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_6_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_6_Type in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_6_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_6_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_6_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_6_ReferenceNumber in Tabelle tbl"& _ "Dakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_6_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_7_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_7_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_7_Type in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_7_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_7_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_7_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_7_ReferenceNumber in Tabelle tbl"& _ "Dakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_7_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_8_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_8_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_8_Type in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_8_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_8_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_8_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_8_ReferenceNumber in Tabelle tbl"& _ "Dakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_8_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_9_Type() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_9_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_9_Type in Tabelle tblDakosy_NCTS"& _ "Out004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_9_TypeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalReference_9_ReferenceNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_9_ReferenceNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalReference_9_ReferenceNumber in Tabelle tbl"& _ "Dakosy_NCTSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_9_ReferenceNumberColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_1_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_1_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_1_Code in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_1_CodeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_1_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_1_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_1_Text in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_1_TextColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_2_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_2_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_2_Code in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_2_CodeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_2_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_2_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_2_Text in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_2_TextColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_3_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_3_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_3_Code in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_3_CodeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_3_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_3_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_3_Text in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_3_TextColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_4_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_4_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_4_Code in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_4_CodeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_4_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_4_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_4_Text in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_4_TextColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_5_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_5_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_5_Code in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_5_CodeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_5_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_5_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_5_Text in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_5_TextColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_6_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_6_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_6_Code in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_6_CodeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_6_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_6_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_6_Text in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_6_TextColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_7_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_7_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_7_Code in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_7_CodeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_7_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_7_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_7_Text in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_7_TextColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_8_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_8_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_8_Code in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_8_CodeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_8_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_8_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_8_Text in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_8_TextColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_9_Code() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_9_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_9_Code in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_9_CodeColumn) = value End Set End Property _ Public Property nctsHCCI_AdditionalInformation_9_Text() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_9_TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCI_AdditionalInformation_9_Text in Tabelle tblDakosy_NC"& _ "TSOut004_HouseConsignment_ConsignmentItem ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_9_TextColumn) = value End Set End Property _ Public Function IsnctsHCCI_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_DeclarationGoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DeclarationGoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_DeclarationGoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DeclarationGoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_CommodityCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CommodityCodeColumn) End Function _ Public Sub SetnctsHCCI_CommodityCodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CommodityCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_MethodeOfPaymentNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_MethodeOfPaymentColumn) End Function _ Public Sub SetnctsHCCI_MethodeOfPaymentNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_MethodeOfPaymentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_UNNumber_1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_1Column) End Function _ Public Sub SetnctsHCCI_UNNumber_1Null() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_UNNumber_2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_2Column) End Function _ Public Sub SetnctsHCCI_UNNumber_2Null() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_UNNumber_3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_3Column) End Function _ Public Sub SetnctsHCCI_UNNumber_3Null() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_UNNumber_4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_4Column) End Function _ Public Sub SetnctsHCCI_UNNumber_4Null() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_UNNumber_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_DeclarationTypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DeclarationTypeColumn) End Function _ Public Sub SetnctsHCCI_DeclarationTypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DeclarationTypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_ArticleCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ArticleCodeColumn) End Function _ Public Sub SetnctsHCCI_ArticleCodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ArticleCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_DescriptionOfGoodsNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DescriptionOfGoodsColumn) End Function _ Public Sub SetnctsHCCI_DescriptionOfGoodsNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_DescriptionOfGoodsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_CusCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CusCodeColumn) End Function _ Public Sub SetnctsHCCI_CusCodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CusCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_CountryOfDispatchNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CountryOfDispatchColumn) End Function _ Public Sub SetnctsHCCI_CountryOfDispatchNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CountryOfDispatchColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_CountryOfDestinationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CountryOfDestinationColumn) End Function _ Public Sub SetnctsHCCI_CountryOfDestinationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CountryOfDestinationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_GrossMassNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GrossMassColumn) End Function _ Public Sub SetnctsHCCI_GrossMassNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GrossMassColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_NetMassNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_NetMassColumn) End Function _ Public Sub SetnctsHCCI_NetMassNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_NetMassColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_ReferenceNumberUCRNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ReferenceNumberUCRColumn) End Function _ Public Sub SetnctsHCCI_ReferenceNumberUCRNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ReferenceNumberUCRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_AdressCodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_AdressCodeColumn) End Function _ Public Sub SetnctsHCCI_Consignor_AdressCodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_AdressCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_IdentificationNumberColumn) End Function _ Public Sub SetnctsHCCI_Consignor_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_SubsidiaryNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_SubsidiaryNumberColumn) End Function _ Public Sub SetnctsHCCI_Consignor_SubsidiaryNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_SubsidiaryNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_NameColumn) End Function _ Public Sub SetnctsHCCI_Consignor_NameNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_StreetNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_StreetNumberColumn) End Function _ Public Sub SetnctsHCCI_Consignor_StreetNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_StreetNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_CityNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_CityColumn) End Function _ Public Sub SetnctsHCCI_Consignor_CityNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_CityColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_PostcodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_PostcodeColumn) End Function _ Public Sub SetnctsHCCI_Consignor_PostcodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_PostcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_CountryNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_CountryColumn) End Function _ Public Sub SetnctsHCCI_Consignor_CountryNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_ContactPerson_NameNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_NameColumn) End Function _ Public Sub SetnctsHCCI_Consignor_ContactPerson_NameNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_ContactPerson_PhoneNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_PhoneNumberColumn) End Function _ Public Sub SetnctsHCCI_Consignor_ContactPerson_PhoneNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_PhoneNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_Consignor_ContactPerson_EMailAddressNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_EMailAddressColumn) End Function _ Public Sub SetnctsHCCI_Consignor_ContactPerson_EMailAddressNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_Consignor_ContactPerson_EMailAddressColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_1_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_1_RoleColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_1_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_1_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_2_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_2_RoleColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_2_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_2_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_3_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_3_RoleColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_3_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_3_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_4_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_4_RoleColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_4_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_4_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_5_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_5_RoleColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_5_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_5_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_6_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_6_RoleColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_6_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_6_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_7_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_7_RoleColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_7_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_7_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_8_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_8_RoleColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_8_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_8_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_9_RoleNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_9_RoleColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_9_RoleNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_9_RoleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_GoodsValueNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GoodsValueColumn) End Function _ Public Sub SetnctsHCCI_GoodsValueNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GoodsValueColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_CurrencyOfGoodsValueNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CurrencyOfGoodsValueColumn) End Function _ Public Sub SetnctsHCCI_CurrencyOfGoodsValueNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CurrencyOfGoodsValueColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_ExchangeRateNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ExchangeRateColumn) End Function _ Public Sub SetnctsHCCI_ExchangeRateNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ExchangeRateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_ExchangeDateNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ExchangeDateColumn) End Function _ Public Sub SetnctsHCCI_ExchangeDateNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_ExchangeDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_CurrencyExchangeRateTypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CurrencyExchangeRateTypeColumn) End Function _ Public Sub SetnctsHCCI_CurrencyExchangeRateTypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_CurrencyExchangeRateTypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_FractionOfGoodsValueNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_FractionOfGoodsValueColumn) End Function _ Public Sub SetnctsHCCI_FractionOfGoodsValueNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_FractionOfGoodsValueColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_GuaranteeAmountNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GuaranteeAmountColumn) End Function _ Public Sub SetnctsHCCI_GuaranteeAmountNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_GuaranteeAmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_TypeColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_1_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_1_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_1_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_1_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_1_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_1_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_1_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_TypeColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_2_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_2_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_2_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_2_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_2_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_2_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_2_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_TypeColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_3_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_3_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_3_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_3_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_3_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_3_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_3_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_TypeColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_4_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_4_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_4_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_4_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_4_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_4_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_4_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_TypeColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_5_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_5_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_5_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_5_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_5_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_5_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_5_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_TypeColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_6_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_6_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_6_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_6_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_6_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_6_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_6_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_TypeColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_7_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_7_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_7_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_7_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_7_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_7_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_7_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_TypeColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_8_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_8_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_8_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_8_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_8_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_8_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_8_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_TypeColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_9_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_9_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_9_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_9_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_PreviousDocument_9_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCI_PreviousDocument_9_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_PreviousDocument_9_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_TypeColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_1_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_1_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_1_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_1_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_1_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_TypeColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_2_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_2_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_2_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_2_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_2_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_TypeColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_3_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_3_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_3_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_3_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_3_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_TypeColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_4_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_4_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_4_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_4_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_4_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_TypeColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_5_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_5_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_5_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_5_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_5_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_TypeColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_6_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_6_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_6_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_6_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_6_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_TypeColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_7_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_7_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_7_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_7_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_7_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_TypeColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_8_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_8_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_8_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_8_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_8_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_TypeColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_9_DocumentLineItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_DocumentLineItemNumberColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_9_DocumentLineItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_DocumentLineItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_SupportingDocument_9_ComplementOfInformationNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_ComplementOfInformationColumn) End Function _ Public Sub SetnctsHCCI_SupportingDocument_9_ComplementOfInformationNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_SupportingDocument_9_ComplementOfInformationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_1_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_1_TypeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_1_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_1_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_1_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_1_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_1_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_1_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_2_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_2_TypeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_2_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_2_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_2_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_2_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_2_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_2_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_3_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_3_TypeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_3_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_3_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_3_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_3_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_3_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_3_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_4_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_4_TypeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_4_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_4_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_4_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_4_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_4_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_4_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_5_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_5_TypeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_5_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_5_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_5_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_5_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_5_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_5_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_6_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_6_TypeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_6_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_6_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_6_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_6_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_6_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_6_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_7_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_7_TypeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_7_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_7_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_7_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_7_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_7_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_7_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_8_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_8_TypeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_8_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_8_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_8_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_8_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_8_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_8_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_9_TypeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_9_TypeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_9_TypeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_9_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalReference_9_ReferenceNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_9_ReferenceNumberColumn) End Function _ Public Sub SetnctsHCCI_AdditionalReference_9_ReferenceNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalReference_9_ReferenceNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_1_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_1_CodeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_1_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_1_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_1_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_1_TextColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_1_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_1_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_2_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_2_CodeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_2_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_2_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_2_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_2_TextColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_2_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_2_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_3_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_3_CodeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_3_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_3_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_3_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_3_TextColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_3_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_3_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_4_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_4_CodeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_4_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_4_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_4_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_4_TextColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_4_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_4_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_5_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_5_CodeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_5_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_5_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_5_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_5_TextColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_5_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_5_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_6_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_6_CodeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_6_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_6_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_6_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_6_TextColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_6_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_6_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_7_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_7_CodeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_7_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_7_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_7_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_7_TextColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_7_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_7_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_8_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_8_CodeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_8_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_8_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_8_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_8_TextColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_8_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_8_TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_9_CodeNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_9_CodeColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_9_CodeNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_9_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCI_AdditionalInformation_9_TextNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_9_TextColumn) End Function _ Public Sub SetnctsHCCI_AdditionalInformation_9_TextNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.nctsHCCI_AdditionalInformation_9_TextColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging = CType(Me.Table,tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable) End Sub _ Public Property nctsHCCIPK_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_IdColumn) = value End Set End Property _ Public Property nctsHCCIPK_NctsId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_NctsIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_NctsIdColumn) = value End Set End Property _ Public Property nctsHCCIPK_NctsHCId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_NctsHCIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_NctsHCIdColumn) = value End Set End Property _ Public Property nctsHCCIPK_NctsHCCIId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_NctsHCCIIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_NctsHCCIIdColumn) = value End Set End Property _ Public Property nctsHCCIPK_NumberOfPackages() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_NumberOfPackagesColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_NumberOfPackagesColumn) = value End Set End Property _ Public Property nctsHCCIPK_TypeOfPackages() As String Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_TypeOfPackagesColumn),String) End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_TypeOfPackagesColumn) = value End Set End Property _ Public Property nctsHCCIPK_ShippingMarks() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_ShippingMarksColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCIPK_ShippingMarks in Tabelle tblDakosy_NCTSOut004_Hous"& _ "eConsignment_ConsignmentItem_Packaging ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_ShippingMarksColumn) = value End Set End Property _ Public Property nctsHCCIPK_GoodsItemNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_GoodsItemNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsHCCIPK_GoodsItemNumber in Tabelle tblDakosy_NCTSOut004_Ho"& _ "useConsignment_ConsignmentItem_Packaging ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_GoodsItemNumberColumn) = value End Set End Property _ Public Function IsnctsHCCIPK_ShippingMarksNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_ShippingMarksColumn) End Function _ Public Sub SetnctsHCCIPK_ShippingMarksNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_ShippingMarksColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsHCCIPK_GoodsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_GoodsItemNumberColumn) End Function _ Public Sub SetnctsHCCIPK_GoodsItemNumberNull() Me(Me.tabletblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.nctsHCCIPK_GoodsItemNumberColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_NCTSOut004_TransportEquipmentRow Inherits Global.System.Data.DataRow Private tabletblDakosy_NCTSOut004_TransportEquipment As tblDakosy_NCTSOut004_TransportEquipmentDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_NCTSOut004_TransportEquipment = CType(Me.Table,tblDakosy_NCTSOut004_TransportEquipmentDataTable) End Sub _ Public Property nctsTE_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_IdColumn) = value End Set End Property _ Public Property nctsTE_NctsId() As Integer Get Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_NctsIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_NctsIdColumn) = value End Set End Property _ Public Property nctsTE_NumberOfSeals() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_NumberOfSealsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_NumberOfSeals in Tabelle tblDakosy_NCTSOut004_Transpor"& _ "tEquipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_NumberOfSealsColumn) = value End Set End Property _ Public Property nctsTE_Seal_1() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_1 in Tabelle tblDakosy_NCTSOut004_TransportEquipm"& _ "ent ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_1Column) = value End Set End Property _ Public Property nctsTE_Seal_2() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_2 in Tabelle tblDakosy_NCTSOut004_TransportEquipm"& _ "ent ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_2Column) = value End Set End Property _ Public Property nctsTE_Seal_3() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_3 in Tabelle tblDakosy_NCTSOut004_TransportEquipm"& _ "ent ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_3Column) = value End Set End Property _ Public Property nctsTE_Seal_4() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_4 in Tabelle tblDakosy_NCTSOut004_TransportEquipm"& _ "ent ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_4Column) = value End Set End Property _ Public Property nctsTE_Seal_5() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_5 in Tabelle tblDakosy_NCTSOut004_TransportEquipm"& _ "ent ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_5Column) = value End Set End Property _ Public Property nctsTE_Seal_6() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_6 in Tabelle tblDakosy_NCTSOut004_TransportEquipm"& _ "ent ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_6Column) = value End Set End Property _ Public Property nctsTE_Seal_7() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_7 in Tabelle tblDakosy_NCTSOut004_TransportEquipm"& _ "ent ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_7Column) = value End Set End Property _ Public Property nctsTE_Seal_8() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_8 in Tabelle tblDakosy_NCTSOut004_TransportEquipm"& _ "ent ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_8Column) = value End Set End Property _ Public Property nctsTE_Seal_9() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_9 in Tabelle tblDakosy_NCTSOut004_TransportEquipm"& _ "ent ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_9Column) = value End Set End Property _ Public Property nctsTE_Seal_10() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_10 in Tabelle tblDakosy_NCTSOut004_TransportEquip"& _ "ment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_10Column) = value End Set End Property _ Public Property nctsTE_Seal_11() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_11Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_11 in Tabelle tblDakosy_NCTSOut004_TransportEquip"& _ "ment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_11Column) = value End Set End Property _ Public Property nctsTE_Seal_12() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_12Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_12 in Tabelle tblDakosy_NCTSOut004_TransportEquip"& _ "ment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_12Column) = value End Set End Property _ Public Property nctsTE_Seal_13() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_13Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_13 in Tabelle tblDakosy_NCTSOut004_TransportEquip"& _ "ment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_13Column) = value End Set End Property _ Public Property nctsTE_Seal_14() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_14Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_14 in Tabelle tblDakosy_NCTSOut004_TransportEquip"& _ "ment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_14Column) = value End Set End Property _ Public Property nctsTE_Seal_15() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_15Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_Seal_15 in Tabelle tblDakosy_NCTSOut004_TransportEquip"& _ "ment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_15Column) = value End Set End Property _ Public Property nctsTE_ContainerIdentificationNumber() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_ContainerIdentificationNumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_ContainerIdentificationNumber in Tabelle tblDakosy_NCT"& _ "SOut004_TransportEquipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_ContainerIdentificationNumberColumn) = value End Set End Property _ Public Property nctsTE_GoodsReference() As String Get Try Return CType(Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_GoodsReferenceColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsTE_GoodsReference in Tabelle tblDakosy_NCTSOut004_Transpo"& _ "rtEquipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_GoodsReferenceColumn) = value End Set End Property _ Public Function IsnctsTE_NumberOfSealsNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_NumberOfSealsColumn) End Function _ Public Sub SetnctsTE_NumberOfSealsNull() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_NumberOfSealsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_1Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_1Column) End Function _ Public Sub SetnctsTE_Seal_1Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_2Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_2Column) End Function _ Public Sub SetnctsTE_Seal_2Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_3Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_3Column) End Function _ Public Sub SetnctsTE_Seal_3Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_4Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_4Column) End Function _ Public Sub SetnctsTE_Seal_4Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_5Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_5Column) End Function _ Public Sub SetnctsTE_Seal_5Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_6Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_6Column) End Function _ Public Sub SetnctsTE_Seal_6Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_7Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_7Column) End Function _ Public Sub SetnctsTE_Seal_7Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_8Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_8Column) End Function _ Public Sub SetnctsTE_Seal_8Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_9Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_9Column) End Function _ Public Sub SetnctsTE_Seal_9Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_10Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_10Column) End Function _ Public Sub SetnctsTE_Seal_10Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_10Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_11Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_11Column) End Function _ Public Sub SetnctsTE_Seal_11Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_11Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_12Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_12Column) End Function _ Public Sub SetnctsTE_Seal_12Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_12Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_13Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_13Column) End Function _ Public Sub SetnctsTE_Seal_13Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_13Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_14Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_14Column) End Function _ Public Sub SetnctsTE_Seal_14Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_14Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_Seal_15Null() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_15Column) End Function _ Public Sub SetnctsTE_Seal_15Null() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_Seal_15Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_ContainerIdentificationNumberNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_ContainerIdentificationNumberColumn) End Function _ Public Sub SetnctsTE_ContainerIdentificationNumberNull() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_ContainerIdentificationNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsTE_GoodsReferenceNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_GoodsReferenceColumn) End Function _ Public Sub SetnctsTE_GoodsReferenceNull() Me(Me.tabletblDakosy_NCTSOut004_TransportEquipment.nctsTE_GoodsReferenceColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_StammreferenzenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_Stammreferenzen As tblDakosy_StammreferenzenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_Stammreferenzen = CType(Me.Table,tblDakosy_StammreferenzenDataTable) End Sub _ Public Property dySr_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dySr_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dySr_IdColumn) = value End Set End Property _ Public Property dySr_Land() As String Get Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dySr_LandColumn),String) End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dySr_LandColumn) = value End Set End Property _ Public Property dySr_Verfahren() As String Get Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dySr_VerfahrenColumn),String) End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dySr_VerfahrenColumn) = value End Set End Property _ Public Property dySr_Stammreferenz() As String Get Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dySr_StammreferenzColumn),String) End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dySr_StammreferenzColumn) = value End Set End Property _ Public Property dySr_Bezeichnung() As String Get Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dySr_BezeichnungColumn),String) End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dySr_BezeichnungColumn) = value End Set End Property _ Public Property dySr_dyId() As Integer Get Try Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dySr_dyIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dySr_dyId in Tabelle tblDakosy_Stammreferenzen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dySr_dyIdColumn) = value End Set End Property _ Public Property dySr_dy_Mandant() As String Get Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dySr_dy_MandantColumn),String) End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dySr_dy_MandantColumn) = value End Set End Property _ Public Property dySr_dy_Niederlassung() As String Get Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dySr_dy_NiederlassungColumn),String) End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dySr_dy_NiederlassungColumn) = value End Set End Property _ Public Property dySr_dy_Standard() As Boolean Get Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dySr_dy_StandardColumn),Boolean) End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dySr_dy_StandardColumn) = value End Set End Property _ Public Property dySr_visible() As Boolean Get Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dySr_visibleColumn),Boolean) End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dySr_visibleColumn) = value End Set End Property _ Public Property dyStr_KdNr() As Integer Get Try Return CType(Me(Me.tabletblDakosy_Stammreferenzen.dyStr_KdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dyStr_KdNr in Tabelle tblDakosy_Stammreferenzen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Stammreferenzen.dyStr_KdNrColumn) = value End Set End Property _ Public Function IsdySr_dyIdNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Stammreferenzen.dySr_dyIdColumn) End Function _ Public Sub SetdySr_dyIdNull() Me(Me.tabletblDakosy_Stammreferenzen.dySr_dyIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdyStr_KdNrNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Stammreferenzen.dyStr_KdNrColumn) End Function _ Public Sub SetdyStr_KdNrNull() Me(Me.tabletblDakosy_Stammreferenzen.dyStr_KdNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_StatusmeldungenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_Statusmeldungen As tblDakosy_StatusmeldungenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_Statusmeldungen = CType(Me.Table,tblDakosy_StatusmeldungenDataTable) End Sub _ Public Property dySt_id() As Integer Get Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_idColumn),Integer) End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_idColumn) = value End Set End Property _ Public Property dySt_dyId() As Integer Get Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_dyIdColumn),Integer) End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_dyIdColumn) = value End Set End Property _ Public Property dySt_dyArt() As String Get Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_dyArtColumn),String) End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_dyArtColumn) = value End Set End Property _ Public Property dySt_BezugsNr() As String Get Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_BezugsNrColumn),String) End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_BezugsNrColumn) = value End Set End Property _ Public Property dySt_status() As Integer Get Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_statusColumn),Integer) End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_statusColumn) = value End Set End Property _ Public Property dySt_artMitteilung() As String Get Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_artMitteilungColumn),String) End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_artMitteilungColumn) = value End Set End Property _ Public Property dySt_ergCode() As String Get Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergCodeColumn),String) End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergCodeColumn) = value End Set End Property _ Public Property dySt_ergMitteilung() As String Get Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergMitteilungColumn),String) End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergMitteilungColumn) = value End Set End Property _ Public Property dySt_ergZeitpunkt() As Date Get Try Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergZeitpunktColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dySt_ergZeitpunkt in Tabelle tblDakosy_Statusmeldungen ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergZeitpunktColumn) = value End Set End Property _ Public Property dySt_DakosyTransaktionsID() As String Get Try Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_DakosyTransaktionsIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dySt_DakosyTransaktionsID in Tabelle tblDakosy_Statusmeldunge"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_DakosyTransaktionsIDColumn) = value End Set End Property _ Public Property dySt_DakosyTransaktionsDatum() As Date Get Try Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_DakosyTransaktionsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dySt_DakosyTransaktionsDatum in Tabelle tblDakosy_Statusmeldu"& _ "ngen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_DakosyTransaktionsDatumColumn) = value End Set End Property _ Public Property dySt_ts() As Date Get Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_tsColumn),Date) End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_tsColumn) = value End Set End Property _ Public Property dySt_ergDetails() As String Get Try Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergDetailsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dySt_ergDetails in Tabelle tblDakosy_Statusmeldungen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergDetailsColumn) = value End Set End Property _ Public Property dySt_ergZoellner() As String Get Try Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergZoellnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dySt_ergZoellner in Tabelle tblDakosy_Statusmeldungen ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergZoellnerColumn) = value End Set End Property _ Public Property dySt_pfad() As String Get Try Return CType(Me(Me.tabletblDakosy_Statusmeldungen.dySt_pfadColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dySt_pfad in Tabelle tblDakosy_Statusmeldungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Statusmeldungen.dySt_pfadColumn) = value End Set End Property _ Public Function IsdySt_ergZeitpunktNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Statusmeldungen.dySt_ergZeitpunktColumn) End Function _ Public Sub SetdySt_ergZeitpunktNull() Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergZeitpunktColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdySt_DakosyTransaktionsIDNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Statusmeldungen.dySt_DakosyTransaktionsIDColumn) End Function _ Public Sub SetdySt_DakosyTransaktionsIDNull() Me(Me.tabletblDakosy_Statusmeldungen.dySt_DakosyTransaktionsIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdySt_DakosyTransaktionsDatumNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Statusmeldungen.dySt_DakosyTransaktionsDatumColumn) End Function _ Public Sub SetdySt_DakosyTransaktionsDatumNull() Me(Me.tabletblDakosy_Statusmeldungen.dySt_DakosyTransaktionsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdySt_ergDetailsNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Statusmeldungen.dySt_ergDetailsColumn) End Function _ Public Sub SetdySt_ergDetailsNull() Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergDetailsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdySt_ergZoellnerNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Statusmeldungen.dySt_ergZoellnerColumn) End Function _ Public Sub SetdySt_ergZoellnerNull() Me(Me.tabletblDakosy_Statusmeldungen.dySt_ergZoellnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdySt_pfadNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Statusmeldungen.dySt_pfadColumn) End Function _ Public Sub SetdySt_pfadNull() Me(Me.tabletblDakosy_Statusmeldungen.dySt_pfadColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_ZollanmeldungenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_Zollanmeldungen As tblDakosy_ZollanmeldungenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_Zollanmeldungen = CType(Me.Table,tblDakosy_ZollanmeldungenDataTable) End Sub _ Public Property dy_Id() As Integer Get Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_IdColumn),Integer) End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_IdColumn) = value End Set End Property _ Public Property dy_ART() As String Get Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_ARTColumn),String) End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_ARTColumn) = value End Set End Property _ Public Property dy_BezugsNr() As String Get Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_BezugsNrColumn),String) End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_BezugsNrColumn) = value End Set End Property _ Public Property dy_Status() As Integer Get Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_StatusColumn),Integer) End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_StatusColumn) = value End Set End Property _ Public Property dy_Status_KEWILL_Equivalent() As Integer Get Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_Status_KEWILL_EquivalentColumn),Integer) End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_Status_KEWILL_EquivalentColumn) = value End Set End Property _ Public Property dy_AvisoId() As Integer Get Try Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_AvisoIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dy_AvisoId in Tabelle tblDakosy_Zollanmeldungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_AvisoIdColumn) = value End Set End Property _ Public Property dy_SendungsId() As Integer Get Try Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_SendungsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dy_SendungsId in Tabelle tblDakosy_Zollanmeldungen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_SendungsIdColumn) = value End Set End Property _ Public Property dy_Erstellung() As Date Get Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_ErstellungColumn),Date) End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_ErstellungColumn) = value End Set End Property _ Public Property dy_Erstellung_SB() As Integer Get Try Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_Erstellung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dy_Erstellung_SB in Tabelle tblDakosy_Zollanmeldungen ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_Erstellung_SBColumn) = value End Set End Property _ Public Property dy_LetzteBearbeitung() As Date Get Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_LetzteBearbeitungColumn),Date) End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_LetzteBearbeitungColumn) = value End Set End Property _ Public Property dy_LetzteBearbeitung_SB() As Integer Get Try Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_LetzteBearbeitung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dy_LetzteBearbeitung_SB in Tabelle tblDakosy_Zollanmeldungen "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_LetzteBearbeitung_SBColumn) = value End Set End Property _ Public Property dy_Steuerbescheid_dsId() As Integer Get Try Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_Steuerbescheid_dsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dy_Steuerbescheid_dsId in Tabelle tblDakosy_Zollanmeldungen i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_Steuerbescheid_dsIdColumn) = value End Set End Property _ Public Property dy_VBD_dsId() As Integer Get Try Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_VBD_dsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dy_VBD_dsId in Tabelle tblDakosy_Zollanmeldungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_VBD_dsIdColumn) = value End Set End Property _ Public Property dy_ABD_dsId() As Integer Get Try Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_ABD_dsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dy_ABD_dsId in Tabelle tblDakosy_Zollanmeldungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_ABD_dsIdColumn) = value End Set End Property _ Public Property dy_AVM_dsId() As Integer Get Try Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dy_AVM_dsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dy_AVM_dsId in Tabelle tblDakosy_Zollanmeldungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dy_AVM_dsIdColumn) = value End Set End Property _ Public Property dySt_pfad() As String Get Try Return CType(Me(Me.tabletblDakosy_Zollanmeldungen.dySt_pfadColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dySt_pfad in Tabelle tblDakosy_Zollanmeldungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDakosy_Zollanmeldungen.dySt_pfadColumn) = value End Set End Property _ Public Function Isdy_AvisoIdNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Zollanmeldungen.dy_AvisoIdColumn) End Function _ Public Sub Setdy_AvisoIdNull() Me(Me.tabletblDakosy_Zollanmeldungen.dy_AvisoIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdy_SendungsIdNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Zollanmeldungen.dy_SendungsIdColumn) End Function _ Public Sub Setdy_SendungsIdNull() Me(Me.tabletblDakosy_Zollanmeldungen.dy_SendungsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdy_Erstellung_SBNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Zollanmeldungen.dy_Erstellung_SBColumn) End Function _ Public Sub Setdy_Erstellung_SBNull() Me(Me.tabletblDakosy_Zollanmeldungen.dy_Erstellung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdy_LetzteBearbeitung_SBNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Zollanmeldungen.dy_LetzteBearbeitung_SBColumn) End Function _ Public Sub Setdy_LetzteBearbeitung_SBNull() Me(Me.tabletblDakosy_Zollanmeldungen.dy_LetzteBearbeitung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdy_Steuerbescheid_dsIdNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Zollanmeldungen.dy_Steuerbescheid_dsIdColumn) End Function _ Public Sub Setdy_Steuerbescheid_dsIdNull() Me(Me.tabletblDakosy_Zollanmeldungen.dy_Steuerbescheid_dsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdy_VBD_dsIdNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Zollanmeldungen.dy_VBD_dsIdColumn) End Function _ Public Sub Setdy_VBD_dsIdNull() Me(Me.tabletblDakosy_Zollanmeldungen.dy_VBD_dsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdy_ABD_dsIdNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Zollanmeldungen.dy_ABD_dsIdColumn) End Function _ Public Sub Setdy_ABD_dsIdNull() Me(Me.tabletblDakosy_Zollanmeldungen.dy_ABD_dsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdy_AVM_dsIdNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Zollanmeldungen.dy_AVM_dsIdColumn) End Function _ Public Sub Setdy_AVM_dsIdNull() Me(Me.tabletblDakosy_Zollanmeldungen.dy_AVM_dsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdySt_pfadNull() As Boolean Return Me.IsNull(Me.tabletblDakosy_Zollanmeldungen.dySt_pfadColumn) End Function _ Public Sub SetdySt_pfadNull() Me(Me.tabletblDakosy_Zollanmeldungen.dySt_pfadColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDakosy_ZollanmeldungenArtenRow Inherits Global.System.Data.DataRow Private tabletblDakosy_ZollanmeldungenArten As tblDakosy_ZollanmeldungenArtenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDakosy_ZollanmeldungenArten = CType(Me.Table,tblDakosy_ZollanmeldungenArtenDataTable) End Sub _ Public Property dya_ART() As String Get Return CType(Me(Me.tabletblDakosy_ZollanmeldungenArten.dya_ARTColumn),String) End Get Set Me(Me.tabletblDakosy_ZollanmeldungenArten.dya_ARTColumn) = value End Set End Property _ Public Property dya_Bezeichnung() As String Get Return CType(Me(Me.tabletblDakosy_ZollanmeldungenArten.dya_BezeichnungColumn),String) End Get Set Me(Me.tabletblDakosy_ZollanmeldungenArten.dya_BezeichnungColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDatenarchivRow Inherits Global.System.Data.DataRow Private tabletblDatenarchiv As tblDatenarchivDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDatenarchiv = CType(Me.Table,tblDatenarchivDataTable) End Sub _ Public Property da_id() As Integer Get Return CType(Me(Me.tabletblDatenarchiv.da_idColumn),Integer) End Get Set Me(Me.tabletblDatenarchiv.da_idColumn) = value End Set End Property _ Public Property da_KundenNr() As Integer Get Try Return CType(Me(Me.tabletblDatenarchiv.da_KundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte da_KundenNr in Tabelle tblDatenarchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDatenarchiv.da_KundenNrColumn) = value End Set End Property _ Public Property da_vorlage() As Boolean Get Return CType(Me(Me.tabletblDatenarchiv.da_vorlageColumn),Boolean) End Get Set Me(Me.tabletblDatenarchiv.da_vorlageColumn) = value End Set End Property _ Public Property da_kategorie() As String Get Return CType(Me(Me.tabletblDatenarchiv.da_kategorieColumn),String) End Get Set Me(Me.tabletblDatenarchiv.da_kategorieColumn) = value End Set End Property _ Public Property da_ordner() As String Get Return CType(Me(Me.tabletblDatenarchiv.da_ordnerColumn),String) End Get Set Me(Me.tabletblDatenarchiv.da_ordnerColumn) = value End Set End Property _ Public Property da_uOrdner1() As String Get Return CType(Me(Me.tabletblDatenarchiv.da_uOrdner1Column),String) End Get Set Me(Me.tabletblDatenarchiv.da_uOrdner1Column) = value End Set End Property _ Public Property da_uOrdner2() As String Get Return CType(Me(Me.tabletblDatenarchiv.da_uOrdner2Column),String) End Get Set Me(Me.tabletblDatenarchiv.da_uOrdner2Column) = value End Set End Property _ Public Property da_uOrdner3() As String Get Return CType(Me(Me.tabletblDatenarchiv.da_uOrdner3Column),String) End Get Set Me(Me.tabletblDatenarchiv.da_uOrdner3Column) = value End Set End Property _ Public Property da_name() As String Get Return CType(Me(Me.tabletblDatenarchiv.da_nameColumn),String) End Get Set Me(Me.tabletblDatenarchiv.da_nameColumn) = value End Set End Property _ Public Property da_pfad() As String Get Return CType(Me(Me.tabletblDatenarchiv.da_pfadColumn),String) End Get Set Me(Me.tabletblDatenarchiv.da_pfadColumn) = value End Set End Property _ Public Property da_info() As String Get Return CType(Me(Me.tabletblDatenarchiv.da_infoColumn),String) End Get Set Me(Me.tabletblDatenarchiv.da_infoColumn) = value End Set End Property _ Public Property da_multifiles() As Boolean Get Return CType(Me(Me.tabletblDatenarchiv.da_multifilesColumn),Boolean) End Get Set Me(Me.tabletblDatenarchiv.da_multifilesColumn) = value End Set End Property _ Public Function Isda_KundenNrNull() As Boolean Return Me.IsNull(Me.tabletblDatenarchiv.da_KundenNrColumn) End Function _ Public Sub Setda_KundenNrNull() Me(Me.tabletblDatenarchiv.da_KundenNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDatenarchiv_CollectionRow Inherits Global.System.Data.DataRow Private tabletblDatenarchiv_Collection As tblDatenarchiv_CollectionDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDatenarchiv_Collection = CType(Me.Table,tblDatenarchiv_CollectionDataTable) End Sub _ Public Property coll_id() As Integer Get Return CType(Me(Me.tabletblDatenarchiv_Collection.coll_idColumn),Integer) End Get Set Me(Me.tabletblDatenarchiv_Collection.coll_idColumn) = value End Set End Property _ Public Property coll_daId() As Integer Get Return CType(Me(Me.tabletblDatenarchiv_Collection.coll_daIdColumn),Integer) End Get Set Me(Me.tabletblDatenarchiv_Collection.coll_daIdColumn) = value End Set End Property _ Public Property coll_bezeichnung() As String Get Return CType(Me(Me.tabletblDatenarchiv_Collection.coll_bezeichnungColumn),String) End Get Set Me(Me.tabletblDatenarchiv_Collection.coll_bezeichnungColumn) = value End Set End Property _ Public Property coll_pfad() As String Get Return CType(Me(Me.tabletblDatenarchiv_Collection.coll_pfadColumn),String) End Get Set Me(Me.tabletblDatenarchiv_Collection.coll_pfadColumn) = value End Set End Property _ Public Property coll_info() As String Get Return CType(Me(Me.tabletblDatenarchiv_Collection.coll_infoColumn),String) End Get Set Me(Me.tabletblDatenarchiv_Collection.coll_infoColumn) = value End Set End Property _ Public Property coll_date() As Date Get Return CType(Me(Me.tabletblDatenarchiv_Collection.coll_dateColumn),Date) End Get Set Me(Me.tabletblDatenarchiv_Collection.coll_dateColumn) = value End Set End Property _ Public Property coll_archiv() As Boolean Get Return CType(Me(Me.tabletblDatenarchiv_Collection.coll_archivColumn),Boolean) End Get Set Me(Me.tabletblDatenarchiv_Collection.coll_archivColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDEBundeslaenderPLZRow Inherits Global.System.Data.DataRow Private tabletblDEBundeslaenderPLZ As tblDEBundeslaenderPLZDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDEBundeslaenderPLZ = CType(Me.Table,tblDEBundeslaenderPLZDataTable) End Sub _ Public Property PLZ() As Integer Get Return CType(Me(Me.tabletblDEBundeslaenderPLZ.PLZColumn),Integer) End Get Set Me(Me.tabletblDEBundeslaenderPLZ.PLZColumn) = value End Set End Property _ Public Property Bundesland() As String Get Return CType(Me(Me.tabletblDEBundeslaenderPLZ.BundeslandColumn),String) End Get Set Me(Me.tabletblDEBundeslaenderPLZ.BundeslandColumn) = value End Set End Property _ Public Property Kreis() As String Get Return CType(Me(Me.tabletblDEBundeslaenderPLZ.KreisColumn),String) End Get Set Me(Me.tabletblDEBundeslaenderPLZ.KreisColumn) = value End Set End Property _ Public Property Typ() As String Get Return CType(Me(Me.tabletblDEBundeslaenderPLZ.TypColumn),String) End Get Set Me(Me.tabletblDEBundeslaenderPLZ.TypColumn) = value End Set End Property _ Public Property Code() As String Get Return CType(Me(Me.tabletblDEBundeslaenderPLZ.CodeColumn),String) End Get Set Me(Me.tabletblDEBundeslaenderPLZ.CodeColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDHF_AnhaengeRow Inherits Global.System.Data.DataRow Private tabletblDHF_Anhaenge As tblDHF_AnhaengeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDHF_Anhaenge = CType(Me.Table,tblDHF_AnhaengeDataTable) End Sub _ Public Property dhfanh_id() As Integer Get Return CType(Me(Me.tabletblDHF_Anhaenge.dhfanh_idColumn),Integer) End Get Set Me(Me.tabletblDHF_Anhaenge.dhfanh_idColumn) = value End Set End Property _ Public Property LizenzNr() As String Get Return CType(Me(Me.tabletblDHF_Anhaenge.LizenzNrColumn),String) End Get Set Me(Me.tabletblDHF_Anhaenge.LizenzNrColumn) = value End Set End Property _ Public Property Operatorid() As Integer Get Return CType(Me(Me.tabletblDHF_Anhaenge.OperatoridColumn),Integer) End Get Set Me(Me.tabletblDHF_Anhaenge.OperatoridColumn) = value End Set End Property _ Public Property AnmID() As Integer Get Return CType(Me(Me.tabletblDHF_Anhaenge.AnmIDColumn),Integer) End Get Set Me(Me.tabletblDHF_Anhaenge.AnmIDColumn) = value End Set End Property _ Public Property MsgTyp() As String Get Return CType(Me(Me.tabletblDHF_Anhaenge.MsgTypColumn),String) End Get Set Me(Me.tabletblDHF_Anhaenge.MsgTypColumn) = value End Set End Property _ Public Property ErstelltAm() As Date Get Return CType(Me(Me.tabletblDHF_Anhaenge.ErstelltAmColumn),Date) End Get Set Me(Me.tabletblDHF_Anhaenge.ErstelltAmColumn) = value End Set End Property _ Public Property pfad() As String Get Return CType(Me(Me.tabletblDHF_Anhaenge.pfadColumn),String) End Get Set Me(Me.tabletblDHF_Anhaenge.pfadColumn) = value End Set End Property _ Public Property LRN() As String Get Return CType(Me(Me.tabletblDHF_Anhaenge.LRNColumn),String) End Get Set Me(Me.tabletblDHF_Anhaenge.LRNColumn) = value End Set End Property _ Public Property CRN() As String Get Return CType(Me(Me.tabletblDHF_Anhaenge.CRNColumn),String) End Get Set Me(Me.tabletblDHF_Anhaenge.CRNColumn) = value End Set End Property _ Public Property docID() As Integer Get Try Return CType(Me(Me.tabletblDHF_Anhaenge.docIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte docID in Tabelle tblDHF_Anhaenge ist DBNull.", e) End Try End Get Set Me(Me.tabletblDHF_Anhaenge.docIDColumn) = value End Set End Property _ Public Function IsdocIDNull() As Boolean Return Me.IsNull(Me.tabletblDHF_Anhaenge.docIDColumn) End Function _ Public Sub SetdocIDNull() Me(Me.tabletblDHF_Anhaenge.docIDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDieselArchivRow Inherits Global.System.Data.DataRow Private tabletblDieselArchiv As tblDieselArchivDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDieselArchiv = CType(Me.Table,tblDieselArchivDataTable) End Sub _ Public Property Year_Month_Day() As Date Get Return CType(Me(Me.tabletblDieselArchiv.Year_Month_DayColumn),Date) End Get Set Me(Me.tabletblDieselArchiv.Year_Month_DayColumn) = value End Set End Property _ Public Property Payment_summary_number() As String Get Return CType(Me(Me.tabletblDieselArchiv.Payment_summary_numberColumn),String) End Get Set Me(Me.tabletblDieselArchiv.Payment_summary_numberColumn) = value End Set End Property _ Public Property Customer_Code() As Integer Get Return CType(Me(Me.tabletblDieselArchiv.Customer_CodeColumn),Integer) End Get Set Me(Me.tabletblDieselArchiv.Customer_CodeColumn) = value End Set End Property _ Public Property Customer_Name() As String Get Try Return CType(Me(Me.tabletblDieselArchiv.Customer_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Customer Name in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.Customer_NameColumn) = value End Set End Property _ Public Property Outlet_Country_Code() As Integer Get Return CType(Me(Me.tabletblDieselArchiv.Outlet_Country_CodeColumn),Integer) End Get Set Me(Me.tabletblDieselArchiv.Outlet_Country_CodeColumn) = value End Set End Property _ Public Property Outlet_Country() As String Get Try Return CType(Me(Me.tabletblDieselArchiv.Outlet_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Outlet Country in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.Outlet_CountryColumn) = value End Set End Property _ Public Property Outlet_Code() As Short Get Return CType(Me(Me.tabletblDieselArchiv.Outlet_CodeColumn),Short) End Get Set Me(Me.tabletblDieselArchiv.Outlet_CodeColumn) = value End Set End Property _ Public Property Outlet_Name() As String Get Try Return CType(Me(Me.tabletblDieselArchiv.Outlet_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Outlet Name in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.Outlet_NameColumn) = value End Set End Property _ Public Property Product_Type_Code() As Short Get Return CType(Me(Me.tabletblDieselArchiv.Product_Type_CodeColumn),Short) End Get Set Me(Me.tabletblDieselArchiv.Product_Type_CodeColumn) = value End Set End Property _ Public Property Transaction_Volume() As Decimal Get Try Return CType(Me(Me.tabletblDieselArchiv.Transaction_VolumeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transaction Volume in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.Transaction_VolumeColumn) = value End Set End Property _ Public Property AmminclVAT() As Decimal Get Try Return CType(Me(Me.tabletblDieselArchiv.AmminclVATColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AmminclVAT in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.AmminclVATColumn) = value End Set End Property _ Public Property Total_Net_Amount() As Decimal Get Try Return CType(Me(Me.tabletblDieselArchiv.Total_Net_AmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Total Net Amount in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.Total_Net_AmountColumn) = value End Set End Property _ Public Property VAT_Amount() As Decimal Get Try Return CType(Me(Me.tabletblDieselArchiv.VAT_AmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VAT Amount in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.VAT_AmountColumn) = value End Set End Property _ Public Property av_price_excl_VAT() As Decimal Get Try Return CType(Me(Me.tabletblDieselArchiv.av_price_excl_VATColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte av price excl VAT in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.av_price_excl_VATColumn) = value End Set End Property _ Public Property Rechenwert() As Decimal Get Try Return CType(Me(Me.tabletblDieselArchiv.RechenwertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechenwert in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.RechenwertColumn) = value End Set End Property _ Public Property Kz() As String Get Try Return CType(Me(Me.tabletblDieselArchiv.KzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kz in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.KzColumn) = value End Set End Property _ Public Property Rabattbetrag() As Decimal Get Try Return CType(Me(Me.tabletblDieselArchiv.RabattbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rabattbetrag in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.RabattbetragColumn) = value End Set End Property _ Public Property RabattbetragProLiter() As Decimal Get Try Return CType(Me(Me.tabletblDieselArchiv.RabattbetragProLiterColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RabattbetragProLiter in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.RabattbetragProLiterColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Try Return CType(Me(Me.tabletblDieselArchiv.ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitstempel in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.ZeitstempelColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblDieselArchiv.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.SachbearbeiterColumn) = value End Set End Property _ Public Property KdNrVERAG() As Integer Get Try Return CType(Me(Me.tabletblDieselArchiv.KdNrVERAGColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdNrVERAG in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.KdNrVERAGColumn) = value End Set End Property _ Public Property Card_Number() As Short Get Return CType(Me(Me.tabletblDieselArchiv.Card_NumberColumn),Short) End Get Set Me(Me.tabletblDieselArchiv.Card_NumberColumn) = value End Set End Property _ Public Property Emission_Number() As Short Get Return CType(Me(Me.tabletblDieselArchiv.Emission_NumberColumn),Short) End Get Set Me(Me.tabletblDieselArchiv.Emission_NumberColumn) = value End Set End Property _ Public Property Card_Comments() As String Get Return CType(Me(Me.tabletblDieselArchiv.Card_CommentsColumn),String) End Get Set Me(Me.tabletblDieselArchiv.Card_CommentsColumn) = value End Set End Property _ Public Property CalendarDate() As String Get Return CType(Me(Me.tabletblDieselArchiv.CalendarDateColumn),String) End Get Set Me(Me.tabletblDieselArchiv.CalendarDateColumn) = value End Set End Property _ Public Property Transaction_HHMM() As String Get Return CType(Me(Me.tabletblDieselArchiv.Transaction_HHMMColumn),String) End Get Set Me(Me.tabletblDieselArchiv.Transaction_HHMMColumn) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tabletblDieselArchiv.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.UStVAn_IDColumn) = value End Set End Property _ Public Property VR_Number() As String Get Try Return CType(Me(Me.tabletblDieselArchiv.VR_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VR Number in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.VR_NumberColumn) = value End Set End Property _ Public Property OBO_Number() As String Get Try Return CType(Me(Me.tabletblDieselArchiv.OBO_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBO Number in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.OBO_NumberColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblDieselArchiv.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblDieselArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblDieselArchiv.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsCustomer_NameNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.Customer_NameColumn) End Function _ Public Sub SetCustomer_NameNull() Me(Me.tabletblDieselArchiv.Customer_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOutlet_CountryNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.Outlet_CountryColumn) End Function _ Public Sub SetOutlet_CountryNull() Me(Me.tabletblDieselArchiv.Outlet_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOutlet_NameNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.Outlet_NameColumn) End Function _ Public Sub SetOutlet_NameNull() Me(Me.tabletblDieselArchiv.Outlet_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransaction_VolumeNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.Transaction_VolumeColumn) End Function _ Public Sub SetTransaction_VolumeNull() Me(Me.tabletblDieselArchiv.Transaction_VolumeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAmminclVATNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.AmminclVATColumn) End Function _ Public Sub SetAmminclVATNull() Me(Me.tabletblDieselArchiv.AmminclVATColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTotal_Net_AmountNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.Total_Net_AmountColumn) End Function _ Public Sub SetTotal_Net_AmountNull() Me(Me.tabletblDieselArchiv.Total_Net_AmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVAT_AmountNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.VAT_AmountColumn) End Function _ Public Sub SetVAT_AmountNull() Me(Me.tabletblDieselArchiv.VAT_AmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isav_price_excl_VATNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.av_price_excl_VATColumn) End Function _ Public Sub Setav_price_excl_VATNull() Me(Me.tabletblDieselArchiv.av_price_excl_VATColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechenwertNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.RechenwertColumn) End Function _ Public Sub SetRechenwertNull() Me(Me.tabletblDieselArchiv.RechenwertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKzNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.KzColumn) End Function _ Public Sub SetKzNull() Me(Me.tabletblDieselArchiv.KzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRabattbetragNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.RabattbetragColumn) End Function _ Public Sub SetRabattbetragNull() Me(Me.tabletblDieselArchiv.RabattbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRabattbetragProLiterNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.RabattbetragProLiterColumn) End Function _ Public Sub SetRabattbetragProLiterNull() Me(Me.tabletblDieselArchiv.RabattbetragProLiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.ZeitstempelColumn) End Function _ Public Sub SetZeitstempelNull() Me(Me.tabletblDieselArchiv.ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tabletblDieselArchiv.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdNrVERAGNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.KdNrVERAGColumn) End Function _ Public Sub SetKdNrVERAGNull() Me(Me.tabletblDieselArchiv.KdNrVERAGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tabletblDieselArchiv.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVR_NumberNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.VR_NumberColumn) End Function _ Public Sub SetVR_NumberNull() Me(Me.tabletblDieselArchiv.VR_NumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOBO_NumberNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.OBO_NumberColumn) End Function _ Public Sub SetOBO_NumberNull() Me(Me.tabletblDieselArchiv.OBO_NumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblDieselArchiv.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblDieselArchiv.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDigicust_SendungenRow Inherits Global.System.Data.DataRow Private tabletblDigicust_Sendungen As tblDigicust_SendungenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDigicust_Sendungen = CType(Me.Table,tblDigicust_SendungenDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblDigicust_Sendungen.IdColumn),Integer) End Get Set Me(Me.tabletblDigicust_Sendungen.IdColumn) = value End Set End Property _ Public Property AvisoId() As Integer Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.AvisoIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisoId in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.AvisoIdColumn) = value End Set End Property _ Public Property reference() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.referenceColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte reference in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.referenceColumn) = value End Set End Property _ Public Property status() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.statusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte status in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.statusColumn) = value End Set End Property _ Public Property digicustId() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.digicustIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte digicustId in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.digicustIdColumn) = value End Set End Property _ Public Property createdAt() As Date Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.createdAtColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte createdAt in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.createdAtColumn) = value End Set End Property _ Public Property modifiedAt() As Date Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.modifiedAtColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte modifiedAt in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.modifiedAtColumn) = value End Set End Property _ Public Property uploadedDocuments() As Integer Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.uploadedDocumentsColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uploadedDocuments in Tabelle tblDigicust_Sendungen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.uploadedDocumentsColumn) = value End Set End Property _ Public Property companyId() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.companyIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte companyId in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.companyIdColumn) = value End Set End Property _ Public Property projectId() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.projectIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte projectId in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.projectIdColumn) = value End Set End Property _ Public Property licencePlate() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.licencePlateColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte licencePlate in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.licencePlateColumn) = value End Set End Property _ Public Property consignor_eori() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignor_eoriColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_eori in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignor_eoriColumn) = value End Set End Property _ Public Property consignor_name() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignor_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_name in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignor_nameColumn) = value End Set End Property _ Public Property consignor_address() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignor_addressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_address in Tabelle tblDigicust_Sendungen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignor_addressColumn) = value End Set End Property _ Public Property consignor_city_name() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignor_city_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_city_name in Tabelle tblDigicust_Sendungen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignor_city_nameColumn) = value End Set End Property _ Public Property consignor_country_id() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignor_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_country_id in Tabelle tblDigicust_Sendungen ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignor_country_idColumn) = value End Set End Property _ Public Property consignor_postcode() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignor_postcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_postcode in Tabelle tblDigicust_Sendungen ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignor_postcodeColumn) = value End Set End Property _ Public Property consignee_eori() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignee_eoriColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_eori in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignee_eoriColumn) = value End Set End Property _ Public Property consignee_name() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignee_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_name in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignee_nameColumn) = value End Set End Property _ Public Property consignee_address() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignee_addressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_address in Tabelle tblDigicust_Sendungen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignee_addressColumn) = value End Set End Property _ Public Property consignee_city_name() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignee_city_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_city_name in Tabelle tblDigicust_Sendungen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignee_city_nameColumn) = value End Set End Property _ Public Property consignee_country_id() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignee_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_country_id in Tabelle tblDigicust_Sendungen ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignee_country_idColumn) = value End Set End Property _ Public Property consignee_postcode() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.consignee_postcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_postcode in Tabelle tblDigicust_Sendungen ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.consignee_postcodeColumn) = value End Set End Property _ Public Property prepaper() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.prepaperColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte prepaper in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.prepaperColumn) = value End Set End Property _ Public Property prepaper_code() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.prepaper_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte prepaper_code in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.prepaper_codeColumn) = value End Set End Property _ Public Property lkwCountryId() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.lkwCountryIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte lkwCountryId in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.lkwCountryIdColumn) = value End Set End Property _ Public Property customsOfficeNr() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.customsOfficeNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte customsOfficeNr in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.customsOfficeNrColumn) = value End Set End Property _ Public Property settingsId() As Integer Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.settingsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte settingsId in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.settingsIdColumn) = value End Set End Property _ Public Property type() As String Get Try Return CType(Me(Me.tabletblDigicust_Sendungen.typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte type in Tabelle tblDigicust_Sendungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sendungen.typeColumn) = value End Set End Property _ Public Function IsAvisoIdNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.AvisoIdColumn) End Function _ Public Sub SetAvisoIdNull() Me(Me.tabletblDigicust_Sendungen.AvisoIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsreferenceNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.referenceColumn) End Function _ Public Sub SetreferenceNull() Me(Me.tabletblDigicust_Sendungen.referenceColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstatusNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.statusColumn) End Function _ Public Sub SetstatusNull() Me(Me.tabletblDigicust_Sendungen.statusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdigicustIdNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.digicustIdColumn) End Function _ Public Sub SetdigicustIdNull() Me(Me.tabletblDigicust_Sendungen.digicustIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscreatedAtNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.createdAtColumn) End Function _ Public Sub SetcreatedAtNull() Me(Me.tabletblDigicust_Sendungen.createdAtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsmodifiedAtNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.modifiedAtColumn) End Function _ Public Sub SetmodifiedAtNull() Me(Me.tabletblDigicust_Sendungen.modifiedAtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsuploadedDocumentsNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.uploadedDocumentsColumn) End Function _ Public Sub SetuploadedDocumentsNull() Me(Me.tabletblDigicust_Sendungen.uploadedDocumentsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscompanyIdNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.companyIdColumn) End Function _ Public Sub SetcompanyIdNull() Me(Me.tabletblDigicust_Sendungen.companyIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsprojectIdNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.projectIdColumn) End Function _ Public Sub SetprojectIdNull() Me(Me.tabletblDigicust_Sendungen.projectIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IslicencePlateNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.licencePlateColumn) End Function _ Public Sub SetlicencePlateNull() Me(Me.tabletblDigicust_Sendungen.licencePlateColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_eoriNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignor_eoriColumn) End Function _ Public Sub Setconsignor_eoriNull() Me(Me.tabletblDigicust_Sendungen.consignor_eoriColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_nameNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignor_nameColumn) End Function _ Public Sub Setconsignor_nameNull() Me(Me.tabletblDigicust_Sendungen.consignor_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_addressNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignor_addressColumn) End Function _ Public Sub Setconsignor_addressNull() Me(Me.tabletblDigicust_Sendungen.consignor_addressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_city_nameNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignor_city_nameColumn) End Function _ Public Sub Setconsignor_city_nameNull() Me(Me.tabletblDigicust_Sendungen.consignor_city_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_country_idNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignor_country_idColumn) End Function _ Public Sub Setconsignor_country_idNull() Me(Me.tabletblDigicust_Sendungen.consignor_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_postcodeNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignor_postcodeColumn) End Function _ Public Sub Setconsignor_postcodeNull() Me(Me.tabletblDigicust_Sendungen.consignor_postcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_eoriNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignee_eoriColumn) End Function _ Public Sub Setconsignee_eoriNull() Me(Me.tabletblDigicust_Sendungen.consignee_eoriColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_nameNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignee_nameColumn) End Function _ Public Sub Setconsignee_nameNull() Me(Me.tabletblDigicust_Sendungen.consignee_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_addressNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignee_addressColumn) End Function _ Public Sub Setconsignee_addressNull() Me(Me.tabletblDigicust_Sendungen.consignee_addressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_city_nameNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignee_city_nameColumn) End Function _ Public Sub Setconsignee_city_nameNull() Me(Me.tabletblDigicust_Sendungen.consignee_city_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_country_idNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignee_country_idColumn) End Function _ Public Sub Setconsignee_country_idNull() Me(Me.tabletblDigicust_Sendungen.consignee_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_postcodeNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.consignee_postcodeColumn) End Function _ Public Sub Setconsignee_postcodeNull() Me(Me.tabletblDigicust_Sendungen.consignee_postcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsprepaperNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.prepaperColumn) End Function _ Public Sub SetprepaperNull() Me(Me.tabletblDigicust_Sendungen.prepaperColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isprepaper_codeNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.prepaper_codeColumn) End Function _ Public Sub Setprepaper_codeNull() Me(Me.tabletblDigicust_Sendungen.prepaper_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IslkwCountryIdNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.lkwCountryIdColumn) End Function _ Public Sub SetlkwCountryIdNull() Me(Me.tabletblDigicust_Sendungen.lkwCountryIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscustomsOfficeNrNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.customsOfficeNrColumn) End Function _ Public Sub SetcustomsOfficeNrNull() Me(Me.tabletblDigicust_Sendungen.customsOfficeNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IssettingsIdNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.settingsIdColumn) End Function _ Public Sub SetsettingsIdNull() Me(Me.tabletblDigicust_Sendungen.settingsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstypeNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sendungen.typeColumn) End Function _ Public Sub SettypeNull() Me(Me.tabletblDigicust_Sendungen.typeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDigicust_SessionsRow Inherits Global.System.Data.DataRow Private tabletblDigicust_Sessions As tblDigicust_SessionsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDigicust_Sessions = CType(Me.Table,tblDigicust_SessionsDataTable) End Sub _ Public Property session_Id() As Integer Get Return CType(Me(Me.tabletblDigicust_Sessions.session_IdColumn),Integer) End Get Set Me(Me.tabletblDigicust_Sessions.session_IdColumn) = value End Set End Property _ Public Property token() As String Get Try Return CType(Me(Me.tabletblDigicust_Sessions.tokenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte token in Tabelle tblDigicust_Sessions ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sessions.tokenColumn) = value End Set End Property _ Public Property datetime() As Date Get Return CType(Me(Me.tabletblDigicust_Sessions.datetimeColumn),Date) End Get Set Me(Me.tabletblDigicust_Sessions.datetimeColumn) = value End Set End Property _ Public Property refresh_token() As String Get Try Return CType(Me(Me.tabletblDigicust_Sessions.refresh_tokenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte refresh_token in Tabelle tblDigicust_Sessions ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sessions.refresh_tokenColumn) = value End Set End Property _ Public Property token_validuntil() As Date Get Try Return CType(Me(Me.tabletblDigicust_Sessions.token_validuntilColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte token_validuntil in Tabelle tblDigicust_Sessions ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Sessions.token_validuntilColumn) = value End Set End Property _ Public Function IstokenNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sessions.tokenColumn) End Function _ Public Sub SettokenNull() Me(Me.tabletblDigicust_Sessions.tokenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrefresh_tokenNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sessions.refresh_tokenColumn) End Function _ Public Sub Setrefresh_tokenNull() Me(Me.tabletblDigicust_Sessions.refresh_tokenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istoken_validuntilNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Sessions.token_validuntilColumn) End Function _ Public Sub Settoken_validuntilNull() Me(Me.tabletblDigicust_Sessions.token_validuntilColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblDigicust_SettingsRow Inherits Global.System.Data.DataRow Private tabletblDigicust_Settings As tblDigicust_SettingsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblDigicust_Settings = CType(Me.Table,tblDigicust_SettingsDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblDigicust_Settings.IdColumn),Integer) End Get Set Me(Me.tabletblDigicust_Settings.IdColumn) = value End Set End Property _ Public Property customerId() As String Get Try Return CType(Me(Me.tabletblDigicust_Settings.customerIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte customerId in Tabelle tblDigicust_Settings ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Settings.customerIdColumn) = value End Set End Property _ Public Property projectId() As String Get Try Return CType(Me(Me.tabletblDigicust_Settings.projectIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte projectId in Tabelle tblDigicust_Settings ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Settings.projectIdColumn) = value End Set End Property _ Public Property executionStrategyId() As String Get Try Return CType(Me(Me.tabletblDigicust_Settings.executionStrategyIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte executionStrategyId in Tabelle tblDigicust_Settings ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblDigicust_Settings.executionStrategyIdColumn) = value End Set End Property _ Public Property validUntil() As Date Get Try Return CType(Me(Me.tabletblDigicust_Settings.validUntilColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte validUntil in Tabelle tblDigicust_Settings ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Settings.validUntilColumn) = value End Set End Property _ Public Property valid() As Boolean Get Try Return CType(Me(Me.tabletblDigicust_Settings.validColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte valid in Tabelle tblDigicust_Settings ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Settings.validColumn) = value End Set End Property _ Public Property companyId() As Integer Get Try Return CType(Me(Me.tabletblDigicust_Settings.companyIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte companyId in Tabelle tblDigicust_Settings ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Settings.companyIdColumn) = value End Set End Property _ Public Property description() As String Get Try Return CType(Me(Me.tabletblDigicust_Settings.descriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte description in Tabelle tblDigicust_Settings ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Settings.descriptionColumn) = value End Set End Property _ Public Property companyGroup() As String Get Try Return CType(Me(Me.tabletblDigicust_Settings.companyGroupColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte companyGroup in Tabelle tblDigicust_Settings ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Settings.companyGroupColumn) = value End Set End Property _ Public Property type() As String Get Try Return CType(Me(Me.tabletblDigicust_Settings.typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte type in Tabelle tblDigicust_Settings ist DBNull.", e) End Try End Get Set Me(Me.tabletblDigicust_Settings.typeColumn) = value End Set End Property _ Public Function IscustomerIdNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Settings.customerIdColumn) End Function _ Public Sub SetcustomerIdNull() Me(Me.tabletblDigicust_Settings.customerIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsprojectIdNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Settings.projectIdColumn) End Function _ Public Sub SetprojectIdNull() Me(Me.tabletblDigicust_Settings.projectIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsexecutionStrategyIdNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Settings.executionStrategyIdColumn) End Function _ Public Sub SetexecutionStrategyIdNull() Me(Me.tabletblDigicust_Settings.executionStrategyIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsvalidUntilNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Settings.validUntilColumn) End Function _ Public Sub SetvalidUntilNull() Me(Me.tabletblDigicust_Settings.validUntilColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsvalidNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Settings.validColumn) End Function _ Public Sub SetvalidNull() Me(Me.tabletblDigicust_Settings.validColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscompanyIdNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Settings.companyIdColumn) End Function _ Public Sub SetcompanyIdNull() Me(Me.tabletblDigicust_Settings.companyIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdescriptionNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Settings.descriptionColumn) End Function _ Public Sub SetdescriptionNull() Me(Me.tabletblDigicust_Settings.descriptionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscompanyGroupNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Settings.companyGroupColumn) End Function _ Public Sub SetcompanyGroupNull() Me(Me.tabletblDigicust_Settings.companyGroupColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstypeNull() As Boolean Return Me.IsNull(Me.tabletblDigicust_Settings.typeColumn) End Function _ Public Sub SettypeNull() Me(Me.tabletblDigicust_Settings.typeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblEABelegnummerRow Inherits Global.System.Data.DataRow Private tabletblEABelegnummer As tblEABelegnummerDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblEABelegnummer = CType(Me.Table,tblEABelegnummerDataTable) End Sub _ Public Property Mandant() As String Get Return CType(Me(Me.tabletblEABelegnummer.MandantColumn),String) End Get Set Me(Me.tabletblEABelegnummer.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Return CType(Me(Me.tabletblEABelegnummer.NiederlassungColumn),String) End Get Set Me(Me.tabletblEABelegnummer.NiederlassungColumn) = value End Set End Property _ Public Property Benutzer() As Integer Get Return CType(Me(Me.tabletblEABelegnummer.BenutzerColumn),Integer) End Get Set Me(Me.tabletblEABelegnummer.BenutzerColumn) = value End Set End Property _ Public Property BelegDat() As Date Get Return CType(Me(Me.tabletblEABelegnummer.BelegDatColumn),Date) End Get Set Me(Me.tabletblEABelegnummer.BelegDatColumn) = value End Set End Property _ Public Property BelegNr() As Integer Get Return CType(Me(Me.tabletblEABelegnummer.BelegNrColumn),Integer) End Get Set Me(Me.tabletblEABelegnummer.BelegNrColumn) = value End Set End Property _ Public Property Belegart() As Short Get Return CType(Me(Me.tabletblEABelegnummer.BelegartColumn),Short) End Get Set Me(Me.tabletblEABelegnummer.BelegartColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tabletblEABelegnummer.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tabletblEABelegnummer.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.AbfertigungsNrColumn) = value End Set End Property _ Public Property Ordnungsbegriff() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.OrdnungsbegriffColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ordnungsbegriff in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.OrdnungsbegriffColumn) = value End Set End Property _ Public Property KundenNr() As Integer Get Try Return CType(Me(Me.tabletblEABelegnummer.KundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNr in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.KundenNrColumn) = value End Set End Property _ Public Property Name1() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.Name1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name1 in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.Name1Column) = value End Set End Property _ Public Property Name2() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.Name2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name2 in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.Name2Column) = value End Set End Property _ Public Property Straße() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Straße in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.StraßeColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.LandKzColumn) = value End Set End Property _ Public Property PLZ() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLZ in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.PLZColumn) = value End Set End Property _ Public Property Ort() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ort in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.OrtColumn) = value End Set End Property _ Public Property UstIdKz() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.UstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdKz in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.UstIdKzColumn) = value End Set End Property _ Public Property UstIdNr() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.UstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdNr in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.UstIdNrColumn) = value End Set End Property _ Public Property Frachtführer() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.FrachtführerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Frachtführer in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.FrachtführerColumn) = value End Set End Property _ Public Property FrachtführerKundenNr() As Integer Get Try Return CType(Me(Me.tabletblEABelegnummer.FrachtführerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FrachtführerKundenNr in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.FrachtführerKundenNrColumn) = value End Set End Property _ Public Property LKW_Kennzeichen() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.LKW_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW Kennzeichen in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.LKW_KennzeichenColumn) = value End Set End Property _ Public Property Fahrer() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.FahrerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fahrer in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.FahrerColumn) = value End Set End Property _ Public Property Passnummer() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.PassnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Passnummer in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.PassnummerColumn) = value End Set End Property _ Public Property PreislistenNr() As Short Get Try Return CType(Me(Me.tabletblEABelegnummer.PreislistenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PreislistenNr in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.PreislistenNrColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Integer Get Return CType(Me(Me.tabletblEABelegnummer.SteuerschlüsselColumn),Integer) End Get Set Me(Me.tabletblEABelegnummer.SteuerschlüsselColumn) = value End Set End Property _ Public Property DruckDatumUhrzeit() As Date Get Try Return CType(Me(Me.tabletblEABelegnummer.DruckDatumUhrzeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DruckDatumUhrzeit in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.DruckDatumUhrzeitColumn) = value End Set End Property _ Public Property storniert() As Boolean Get Return CType(Me(Me.tabletblEABelegnummer.storniertColumn),Boolean) End Get Set Me(Me.tabletblEABelegnummer.storniertColumn) = value End Set End Property _ Public Property Stornogrund() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.StornogrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Stornogrund in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.StornogrundColumn) = value End Set End Property _ Public Property gebucht() As Boolean Get Return CType(Me(Me.tabletblEABelegnummer.gebuchtColumn),Boolean) End Get Set Me(Me.tabletblEABelegnummer.gebuchtColumn) = value End Set End Property _ Public Property gebuchtStorno() As Boolean Get Return CType(Me(Me.tabletblEABelegnummer.gebuchtStornoColumn),Boolean) End Get Set Me(Me.tabletblEABelegnummer.gebuchtStornoColumn) = value End Set End Property _ Public Property SgutKompl() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.SgutKomplColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SgutKompl in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.SgutKomplColumn) = value End Set End Property _ Public Property EABNr_Zeitstempel() As Date Get Try Return CType(Me(Me.tabletblEABelegnummer.EABNr_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EABNr_Zeitstempel in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.EABNr_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblEABelegnummer.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.upsize_tsColumn) = value End Set End Property _ Public Property rksv_id() As Integer Get Try Return CType(Me(Me.tabletblEABelegnummer.rksv_idColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_id in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.rksv_idColumn) = value End Set End Property _ Public Property rksv_BelegId() As Integer Get Try Return CType(Me(Me.tabletblEABelegnummer.rksv_BelegIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_BelegId in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.rksv_BelegIdColumn) = value End Set End Property _ Public Property rksv_BelegIdStorno() As Integer Get Try Return CType(Me(Me.tabletblEABelegnummer.rksv_BelegIdStornoColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_BelegIdStorno in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.rksv_BelegIdStornoColumn) = value End Set End Property _ Public Property rksv_jws() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.rksv_jwsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_jws in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.rksv_jwsColumn) = value End Set End Property _ Public Property rksv_qr() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.rksv_qrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_qr in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.rksv_qrColumn) = value End Set End Property _ Public Property rksv_umsatz() As Double Get Try Return CType(Me(Me.tabletblEABelegnummer.rksv_umsatzColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_umsatz in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.rksv_umsatzColumn) = value End Set End Property _ Public Property rksv_aktiv() As Boolean Get Return CType(Me(Me.tabletblEABelegnummer.rksv_aktivColumn),Boolean) End Get Set Me(Me.tabletblEABelegnummer.rksv_aktivColumn) = value End Set End Property _ Public Property Beleg_TYP() As String Get Return CType(Me(Me.tabletblEABelegnummer.Beleg_TYPColumn),String) End Get Set Me(Me.tabletblEABelegnummer.Beleg_TYPColumn) = value End Set End Property _ Public Property Auftraggeber_KdAuftragsnummer() As String Get Try Return CType(Me(Me.tabletblEABelegnummer.Auftraggeber_KdAuftragsnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Auftraggeber_KdAuftragsnummer in Tabelle tblEABelegnummer ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.Auftraggeber_KdAuftragsnummerColumn) = value End Set End Property _ Public Property Auftraggeber_Provision() As Decimal Get Try Return CType(Me(Me.tabletblEABelegnummer.Auftraggeber_ProvisionColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Auftraggeber_Provision in Tabelle tblEABelegnummer ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblEABelegnummer.Auftraggeber_ProvisionColumn) = value End Set End Property _ Public Property LKW_Id() As Integer Get Try Return CType(Me(Me.tabletblEABelegnummer.LKW_IdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW_Id in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.LKW_IdColumn) = value End Set End Property _ Public Property LKW_Beleg() As Boolean Get Try Return CType(Me(Me.tabletblEABelegnummer.LKW_BelegColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW_Beleg in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.LKW_BelegColumn) = value End Set End Property _ Public Property Benutzer_LG() As Integer Get Try Return CType(Me(Me.tabletblEABelegnummer.Benutzer_LGColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Benutzer_LG in Tabelle tblEABelegnummer ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegnummer.Benutzer_LGColumn) = value End Set End Property _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tabletblEABelegnummer.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tabletblEABelegnummer.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOrdnungsbegriffNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.OrdnungsbegriffColumn) End Function _ Public Sub SetOrdnungsbegriffNull() Me(Me.tabletblEABelegnummer.OrdnungsbegriffColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKundenNrNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.KundenNrColumn) End Function _ Public Sub SetKundenNrNull() Me(Me.tabletblEABelegnummer.KundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsName1Null() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.Name1Column) End Function _ Public Sub SetName1Null() Me(Me.tabletblEABelegnummer.Name1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsName2Null() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.Name2Column) End Function _ Public Sub SetName2Null() Me(Me.tabletblEABelegnummer.Name2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsStraßeNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.StraßeColumn) End Function _ Public Sub SetStraßeNull() Me(Me.tabletblEABelegnummer.StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tabletblEABelegnummer.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPLZNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.PLZColumn) End Function _ Public Sub SetPLZNull() Me(Me.tabletblEABelegnummer.PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOrtNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.OrtColumn) End Function _ Public Sub SetOrtNull() Me(Me.tabletblEABelegnummer.OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdKzNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.UstIdKzColumn) End Function _ Public Sub SetUstIdKzNull() Me(Me.tabletblEABelegnummer.UstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdNrNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.UstIdNrColumn) End Function _ Public Sub SetUstIdNrNull() Me(Me.tabletblEABelegnummer.UstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFrachtführerNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.FrachtführerColumn) End Function _ Public Sub SetFrachtführerNull() Me(Me.tabletblEABelegnummer.FrachtführerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFrachtführerKundenNrNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.FrachtführerKundenNrColumn) End Function _ Public Sub SetFrachtführerKundenNrNull() Me(Me.tabletblEABelegnummer.FrachtführerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLKW_KennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.LKW_KennzeichenColumn) End Function _ Public Sub SetLKW_KennzeichenNull() Me(Me.tabletblEABelegnummer.LKW_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFahrerNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.FahrerColumn) End Function _ Public Sub SetFahrerNull() Me(Me.tabletblEABelegnummer.FahrerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPassnummerNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.PassnummerColumn) End Function _ Public Sub SetPassnummerNull() Me(Me.tabletblEABelegnummer.PassnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreislistenNrNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.PreislistenNrColumn) End Function _ Public Sub SetPreislistenNrNull() Me(Me.tabletblEABelegnummer.PreislistenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDruckDatumUhrzeitNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.DruckDatumUhrzeitColumn) End Function _ Public Sub SetDruckDatumUhrzeitNull() Me(Me.tabletblEABelegnummer.DruckDatumUhrzeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStornogrundNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.StornogrundColumn) End Function _ Public Sub SetStornogrundNull() Me(Me.tabletblEABelegnummer.StornogrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSgutKomplNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.SgutKomplColumn) End Function _ Public Sub SetSgutKomplNull() Me(Me.tabletblEABelegnummer.SgutKomplColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEABNr_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.EABNr_ZeitstempelColumn) End Function _ Public Sub SetEABNr_ZeitstempelNull() Me(Me.tabletblEABelegnummer.EABNr_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblEABelegnummer.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_idNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.rksv_idColumn) End Function _ Public Sub Setrksv_idNull() Me(Me.tabletblEABelegnummer.rksv_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_BelegIdNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.rksv_BelegIdColumn) End Function _ Public Sub Setrksv_BelegIdNull() Me(Me.tabletblEABelegnummer.rksv_BelegIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_BelegIdStornoNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.rksv_BelegIdStornoColumn) End Function _ Public Sub Setrksv_BelegIdStornoNull() Me(Me.tabletblEABelegnummer.rksv_BelegIdStornoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_jwsNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.rksv_jwsColumn) End Function _ Public Sub Setrksv_jwsNull() Me(Me.tabletblEABelegnummer.rksv_jwsColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_qrNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.rksv_qrColumn) End Function _ Public Sub Setrksv_qrNull() Me(Me.tabletblEABelegnummer.rksv_qrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_umsatzNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.rksv_umsatzColumn) End Function _ Public Sub Setrksv_umsatzNull() Me(Me.tabletblEABelegnummer.rksv_umsatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAuftraggeber_KdAuftragsnummerNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.Auftraggeber_KdAuftragsnummerColumn) End Function _ Public Sub SetAuftraggeber_KdAuftragsnummerNull() Me(Me.tabletblEABelegnummer.Auftraggeber_KdAuftragsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAuftraggeber_ProvisionNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.Auftraggeber_ProvisionColumn) End Function _ Public Sub SetAuftraggeber_ProvisionNull() Me(Me.tabletblEABelegnummer.Auftraggeber_ProvisionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLKW_IdNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.LKW_IdColumn) End Function _ Public Sub SetLKW_IdNull() Me(Me.tabletblEABelegnummer.LKW_IdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLKW_BelegNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.LKW_BelegColumn) End Function _ Public Sub SetLKW_BelegNull() Me(Me.tabletblEABelegnummer.LKW_BelegColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBenutzer_LGNull() As Boolean Return Me.IsNull(Me.tabletblEABelegnummer.Benutzer_LGColumn) End Function _ Public Sub SetBenutzer_LGNull() Me(Me.tabletblEABelegnummer.Benutzer_LGColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblEABelegpositionRows() As tblEABelegpositionRow() If (Me.Table.ChildRelations("tblEABelegposition_FK00") Is Nothing) Then Return New tblEABelegpositionRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblEABelegposition_FK00")),tblEABelegpositionRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblEABelegpositionRow Inherits Global.System.Data.DataRow Private tabletblEABelegposition As tblEABelegpositionDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblEABelegposition = CType(Me.Table,tblEABelegpositionDataTable) End Sub _ Public Property Mandant() As String Get Return CType(Me(Me.tabletblEABelegposition.MandantColumn),String) End Get Set Me(Me.tabletblEABelegposition.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Return CType(Me(Me.tabletblEABelegposition.NiederlassungColumn),String) End Get Set Me(Me.tabletblEABelegposition.NiederlassungColumn) = value End Set End Property _ Public Property Benutzer() As Integer Get Return CType(Me(Me.tabletblEABelegposition.BenutzerColumn),Integer) End Get Set Me(Me.tabletblEABelegposition.BenutzerColumn) = value End Set End Property _ Public Property BelegDat() As Date Get Return CType(Me(Me.tabletblEABelegposition.BelegDatColumn),Date) End Get Set Me(Me.tabletblEABelegposition.BelegDatColumn) = value End Set End Property _ Public Property BelegNr() As Integer Get Return CType(Me(Me.tabletblEABelegposition.BelegNrColumn),Integer) End Get Set Me(Me.tabletblEABelegposition.BelegNrColumn) = value End Set End Property _ Public Property PreislistenPos() As Short Get Return CType(Me(Me.tabletblEABelegposition.PreislistenPosColumn),Short) End Get Set Me(Me.tabletblEABelegposition.PreislistenPosColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tabletblEABelegposition.LeistungsNrColumn),Short) End Get Set Me(Me.tabletblEABelegposition.LeistungsNrColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tabletblEABelegposition.LeistungsBezColumn),String) End Get Set Me(Me.tabletblEABelegposition.LeistungsBezColumn) = value End Set End Property _ Public Property Leistungsbeschreibung() As String Get Return CType(Me(Me.tabletblEABelegposition.LeistungsbeschreibungColumn),String) End Get Set Me(Me.tabletblEABelegposition.LeistungsbeschreibungColumn) = value End Set End Property _ Public Property Abfertigungsart() As Short Get Try Return CType(Me(Me.tabletblEABelegposition.AbfertigungsartColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsart in Tabelle tblEABelegposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegposition.AbfertigungsartColumn) = value End Set End Property _ Public Property PreislistenNr() As Short Get Try Return CType(Me(Me.tabletblEABelegposition.PreislistenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PreislistenNr in Tabelle tblEABelegposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegposition.PreislistenNrColumn) = value End Set End Property _ Public Property PreistabellenNr() As Short Get Try Return CType(Me(Me.tabletblEABelegposition.PreistabellenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PreistabellenNr in Tabelle tblEABelegposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegposition.PreistabellenNrColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tabletblEABelegposition.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle tblEABelegposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegposition.PreisColumn) = value End Set End Property _ Public Property TW1() As Short Get Try Return CType(Me(Me.tabletblEABelegposition.TW1Column),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TW1 in Tabelle tblEABelegposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegposition.TW1Column) = value End Set End Property _ Public Property TW2() As Short Get Try Return CType(Me(Me.tabletblEABelegposition.TW2Column),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TW2 in Tabelle tblEABelegposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegposition.TW2Column) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tabletblEABelegposition.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle tblEABelegposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegposition.AnzahlColumn) = value End Set End Property _ Public Property Anzahlmultiplikator() As Short Get Return CType(Me(Me.tabletblEABelegposition.AnzahlmultiplikatorColumn),Short) End Get Set Me(Me.tabletblEABelegposition.AnzahlmultiplikatorColumn) = value End Set End Property _ Public Property Betrag() As Decimal Get Try Return CType(Me(Me.tabletblEABelegposition.BetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag in Tabelle tblEABelegposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegposition.BetragColumn) = value End Set End Property _ Public Property Preisbindung() As Boolean Get Return CType(Me(Me.tabletblEABelegposition.PreisbindungColumn),Boolean) End Get Set Me(Me.tabletblEABelegposition.PreisbindungColumn) = value End Set End Property _ Public Property EABPo_Zeitstempel() As Date Get Try Return CType(Me(Me.tabletblEABelegposition.EABPo_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EABPo_Zeitstempel in Tabelle tblEABelegposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegposition.EABPo_ZeitstempelColumn) = value End Set End Property _ Public Property FilialenNr() As Integer Get Return CType(Me(Me.tabletblEABelegposition.FilialenNrColumn),Integer) End Get Set Me(Me.tabletblEABelegposition.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tabletblEABelegposition.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tabletblEABelegposition.AbfertigungsNrColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblEABelegposition.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblEABelegposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblEABelegposition.upsize_tsColumn) = value End Set End Property _ Public Property tblEABelegnummerRowParent() As tblEABelegnummerRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblEABelegposition_FK00")),tblEABelegnummerRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblEABelegposition_FK00")) End Set End Property _ Public Function IsAbfertigungsartNull() As Boolean Return Me.IsNull(Me.tabletblEABelegposition.AbfertigungsartColumn) End Function _ Public Sub SetAbfertigungsartNull() Me(Me.tabletblEABelegposition.AbfertigungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreislistenNrNull() As Boolean Return Me.IsNull(Me.tabletblEABelegposition.PreislistenNrColumn) End Function _ Public Sub SetPreislistenNrNull() Me(Me.tabletblEABelegposition.PreislistenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreistabellenNrNull() As Boolean Return Me.IsNull(Me.tabletblEABelegposition.PreistabellenNrColumn) End Function _ Public Sub SetPreistabellenNrNull() Me(Me.tabletblEABelegposition.PreistabellenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tabletblEABelegposition.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tabletblEABelegposition.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTW1Null() As Boolean Return Me.IsNull(Me.tabletblEABelegposition.TW1Column) End Function _ Public Sub SetTW1Null() Me(Me.tabletblEABelegposition.TW1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsTW2Null() As Boolean Return Me.IsNull(Me.tabletblEABelegposition.TW2Column) End Function _ Public Sub SetTW2Null() Me(Me.tabletblEABelegposition.TW2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tabletblEABelegposition.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tabletblEABelegposition.AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetragNull() As Boolean Return Me.IsNull(Me.tabletblEABelegposition.BetragColumn) End Function _ Public Sub SetBetragNull() Me(Me.tabletblEABelegposition.BetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEABPo_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletblEABelegposition.EABPo_ZeitstempelColumn) End Function _ Public Sub SetEABPo_ZeitstempelNull() Me(Me.tabletblEABelegposition.EABPo_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblEABelegposition.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblEABelegposition.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblEmailBenachrichtigungRow Inherits Global.System.Data.DataRow Private tabletblEmailBenachrichtigung As tblEmailBenachrichtigungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblEmailBenachrichtigung = CType(Me.Table,tblEmailBenachrichtigungDataTable) End Sub _ Public Property eb_KundenNr() As Integer Get Return CType(Me(Me.tabletblEmailBenachrichtigung.eb_KundenNrColumn),Integer) End Get Set Me(Me.tabletblEmailBenachrichtigung.eb_KundenNrColumn) = value End Set End Property _ Public Property eb_ebartId() As Integer Get Return CType(Me(Me.tabletblEmailBenachrichtigung.eb_ebartIdColumn),Integer) End Get Set Me(Me.tabletblEmailBenachrichtigung.eb_ebartIdColumn) = value End Set End Property _ Public Property eb_EMail() As String Get Return CType(Me(Me.tabletblEmailBenachrichtigung.eb_EMailColumn),String) End Get Set Me(Me.tabletblEmailBenachrichtigung.eb_EMailColumn) = value End Set End Property _ Public Property eb_cc() As Boolean Get Return CType(Me(Me.tabletblEmailBenachrichtigung.eb_ccColumn),Boolean) End Get Set Me(Me.tabletblEmailBenachrichtigung.eb_ccColumn) = value End Set End Property _ Public Property eb_bcc() As Boolean Get Return CType(Me(Me.tabletblEmailBenachrichtigung.eb_bccColumn),Boolean) End Get Set Me(Me.tabletblEmailBenachrichtigung.eb_bccColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblEmailBenachrichtigungArtenRow Inherits Global.System.Data.DataRow Private tabletblEmailBenachrichtigungArten As tblEmailBenachrichtigungArtenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblEmailBenachrichtigungArten = CType(Me.Table,tblEmailBenachrichtigungArtenDataTable) End Sub _ Public Property ebart_id() As Integer Get Return CType(Me(Me.tabletblEmailBenachrichtigungArten.ebart_idColumn),Integer) End Get Set Me(Me.tabletblEmailBenachrichtigungArten.ebart_idColumn) = value End Set End Property _ Public Property ebart_bezeichnung() As String Get Return CType(Me(Me.tabletblEmailBenachrichtigungArten.ebart_bezeichnungColumn),String) End Get Set Me(Me.tabletblEmailBenachrichtigungArten.ebart_bezeichnungColumn) = value End Set End Property _ Public Property ebart_betreff() As String Get Try Return CType(Me(Me.tabletblEmailBenachrichtigungArten.ebart_betreffColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ebart_betreff in Tabelle tblEmailBenachrichtigungArten ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblEmailBenachrichtigungArten.ebart_betreffColumn) = value End Set End Property _ Public Property ebart_text() As String Get Try Return CType(Me(Me.tabletblEmailBenachrichtigungArten.ebart_textColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ebart_text in Tabelle tblEmailBenachrichtigungArten ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblEmailBenachrichtigungArten.ebart_textColumn) = value End Set End Property _ Public Function Isebart_betreffNull() As Boolean Return Me.IsNull(Me.tabletblEmailBenachrichtigungArten.ebart_betreffColumn) End Function _ Public Sub Setebart_betreffNull() Me(Me.tabletblEmailBenachrichtigungArten.ebart_betreffColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isebart_textNull() As Boolean Return Me.IsNull(Me.tabletblEmailBenachrichtigungArten.ebart_textColumn) End Function _ Public Sub Setebart_textNull() Me(Me.tabletblEmailBenachrichtigungArten.ebart_textColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblEORIPruefungRow Inherits Global.System.Data.DataRow Private tabletblEORIPruefung As tblEORIPruefungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblEORIPruefung = CType(Me.Table,tblEORIPruefungDataTable) End Sub _ Public Property eori_id() As Integer Get Return CType(Me(Me.tabletblEORIPruefung.eori_idColumn),Integer) End Get Set Me(Me.tabletblEORIPruefung.eori_idColumn) = value End Set End Property _ Public Property eori_KdNr() As Integer Get Return CType(Me(Me.tabletblEORIPruefung.eori_KdNrColumn),Integer) End Get Set Me(Me.tabletblEORIPruefung.eori_KdNrColumn) = value End Set End Property _ Public Property eori_valid() As Boolean Get Return CType(Me(Me.tabletblEORIPruefung.eori_validColumn),Boolean) End Get Set Me(Me.tabletblEORIPruefung.eori_validColumn) = value End Set End Property _ Public Property eori_Datum() As Date Get Return CType(Me(Me.tabletblEORIPruefung.eori_DatumColumn),Date) End Get Set Me(Me.tabletblEORIPruefung.eori_DatumColumn) = value End Set End Property _ Public Property eori_Maid() As Integer Get Return CType(Me(Me.tabletblEORIPruefung.eori_MaidColumn),Integer) End Get Set Me(Me.tabletblEORIPruefung.eori_MaidColumn) = value End Set End Property _ Public Property eori_SendungsID() As Integer Get Try Return CType(Me(Me.tabletblEORIPruefung.eori_SendungsIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eori_SendungsID in Tabelle tblEORIPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblEORIPruefung.eori_SendungsIDColumn) = value End Set End Property _ Public Property eori_AvisoID() As Integer Get Try Return CType(Me(Me.tabletblEORIPruefung.eori_AvisoIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eori_AvisoID in Tabelle tblEORIPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblEORIPruefung.eori_AvisoIDColumn) = value End Set End Property _ Public Property eori_firma() As String Get Try Return CType(Me(Me.tabletblEORIPruefung.eori_firmaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eori_firma in Tabelle tblEORIPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblEORIPruefung.eori_firmaColumn) = value End Set End Property _ Public Property eori_Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblEORIPruefung.eori_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eori_Sachbearbeiter in Tabelle tblEORIPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblEORIPruefung.eori_SachbearbeiterColumn) = value End Set End Property _ Public Property eori_sessionID() As String Get Try Return CType(Me(Me.tabletblEORIPruefung.eori_sessionIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eori_sessionID in Tabelle tblEORIPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblEORIPruefung.eori_sessionIDColumn) = value End Set End Property _ Public Property eori_Nr() As String Get Try Return CType(Me(Me.tabletblEORIPruefung.eori_NrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eori_Nr in Tabelle tblEORIPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblEORIPruefung.eori_NrColumn) = value End Set End Property _ Public Function Iseori_SendungsIDNull() As Boolean Return Me.IsNull(Me.tabletblEORIPruefung.eori_SendungsIDColumn) End Function _ Public Sub Seteori_SendungsIDNull() Me(Me.tabletblEORIPruefung.eori_SendungsIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseori_AvisoIDNull() As Boolean Return Me.IsNull(Me.tabletblEORIPruefung.eori_AvisoIDColumn) End Function _ Public Sub Seteori_AvisoIDNull() Me(Me.tabletblEORIPruefung.eori_AvisoIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseori_firmaNull() As Boolean Return Me.IsNull(Me.tabletblEORIPruefung.eori_firmaColumn) End Function _ Public Sub Seteori_firmaNull() Me(Me.tabletblEORIPruefung.eori_firmaColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseori_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblEORIPruefung.eori_SachbearbeiterColumn) End Function _ Public Sub Seteori_SachbearbeiterNull() Me(Me.tabletblEORIPruefung.eori_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseori_sessionIDNull() As Boolean Return Me.IsNull(Me.tabletblEORIPruefung.eori_sessionIDColumn) End Function _ Public Sub Seteori_sessionIDNull() Me(Me.tabletblEORIPruefung.eori_sessionIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseori_NrNull() As Boolean Return Me.IsNull(Me.tabletblEORIPruefung.eori_NrColumn) End Function _ Public Sub Seteori_NrNull() Me(Me.tabletblEORIPruefung.eori_NrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblEZB_WaehrungskurseRow Inherits Global.System.Data.DataRow Private tabletblEZB_Waehrungskurse As tblEZB_WaehrungskurseDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblEZB_Waehrungskurse = CType(Me.Table,tblEZB_WaehrungskurseDataTable) End Sub _ Public Property ezb_waehrungscode() As String Get Return CType(Me(Me.tabletblEZB_Waehrungskurse.ezb_waehrungscodeColumn),String) End Get Set Me(Me.tabletblEZB_Waehrungskurse.ezb_waehrungscodeColumn) = value End Set End Property _ Public Property ezb_datum() As Date Get Return CType(Me(Me.tabletblEZB_Waehrungskurse.ezb_datumColumn),Date) End Get Set Me(Me.tabletblEZB_Waehrungskurse.ezb_datumColumn) = value End Set End Property _ Public Property ezb_waehrungsschluessel() As String Get Return CType(Me(Me.tabletblEZB_Waehrungskurse.ezb_waehrungsschluesselColumn),String) End Get Set Me(Me.tabletblEZB_Waehrungskurse.ezb_waehrungsschluesselColumn) = value End Set End Property _ Public Property ezb_kurs() As Double Get Return CType(Me(Me.tabletblEZB_Waehrungskurse.ezb_kursColumn),Double) End Get Set Me(Me.tabletblEZB_Waehrungskurse.ezb_kursColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblEZT_ImportcodenummernRow Inherits Global.System.Data.DataRow Private tabletblEZT_Importcodenummern As tblEZT_ImportcodenummernDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblEZT_Importcodenummern = CType(Me.Table,tblEZT_ImportcodenummernDataTable) End Sub _ Public Property ezt_id() As Integer Get Return CType(Me(Me.tabletblEZT_Importcodenummern.ezt_idColumn),Integer) End Get Set Me(Me.tabletblEZT_Importcodenummern.ezt_idColumn) = value End Set End Property _ Public Property ezt_Land() As String Get Return CType(Me(Me.tabletblEZT_Importcodenummern.ezt_LandColumn),String) End Get Set Me(Me.tabletblEZT_Importcodenummern.ezt_LandColumn) = value End Set End Property _ Public Property ezt_Codenummer() As String Get Return CType(Me(Me.tabletblEZT_Importcodenummern.ezt_CodenummerColumn),String) End Get Set Me(Me.tabletblEZT_Importcodenummern.ezt_CodenummerColumn) = value End Set End Property _ Public Property ezt_BesMasseinheit() As String Get Return CType(Me(Me.tabletblEZT_Importcodenummern.ezt_BesMasseinheitColumn),String) End Get Set Me(Me.tabletblEZT_Importcodenummern.ezt_BesMasseinheitColumn) = value End Set End Property _ Public Property ezt_BesMasseinheit2() As String Get Return CType(Me(Me.tabletblEZT_Importcodenummern.ezt_BesMasseinheit2Column),String) End Get Set Me(Me.tabletblEZT_Importcodenummern.ezt_BesMasseinheit2Column) = value End Set End Property _ Public Property ezt_Start() As Date Get Return CType(Me(Me.tabletblEZT_Importcodenummern.ezt_StartColumn),Date) End Get Set Me(Me.tabletblEZT_Importcodenummern.ezt_StartColumn) = value End Set End Property _ Public Property ezt_Ende() As Date Get Return CType(Me(Me.tabletblEZT_Importcodenummern.ezt_EndeColumn),Date) End Get Set Me(Me.tabletblEZT_Importcodenummern.ezt_EndeColumn) = value End Set End Property _ Public Property ezt_Sprache() As String Get Return CType(Me(Me.tabletblEZT_Importcodenummern.ezt_SpracheColumn),String) End Get Set Me(Me.tabletblEZT_Importcodenummern.ezt_SpracheColumn) = value End Set End Property _ Public Property ezt_Text() As String Get Return CType(Me(Me.tabletblEZT_Importcodenummern.ezt_TextColumn),String) End Get Set Me(Me.tabletblEZT_Importcodenummern.ezt_TextColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblFahrerDatenRow Inherits Global.System.Data.DataRow Private tabletblFahrerDaten As tblFahrerDatenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblFahrerDaten = CType(Me.Table,tblFahrerDatenDataTable) End Sub _ Public Property fd_id() As Integer Get Return CType(Me(Me.tabletblFahrerDaten.fd_idColumn),Integer) End Get Set Me(Me.tabletblFahrerDaten.fd_idColumn) = value End Set End Property _ Public Property fd_fraechter() As String Get Try Return CType(Me(Me.tabletblFahrerDaten.fd_fraechterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fd_fraechter in Tabelle tblFahrerDaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFahrerDaten.fd_fraechterColumn) = value End Set End Property _ Public Property fd_lkw() As String Get Try Return CType(Me(Me.tabletblFahrerDaten.fd_lkwColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fd_lkw in Tabelle tblFahrerDaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFahrerDaten.fd_lkwColumn) = value End Set End Property _ Public Property fd_fahrerName() As String Get Try Return CType(Me(Me.tabletblFahrerDaten.fd_fahrerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fd_fahrerName in Tabelle tblFahrerDaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFahrerDaten.fd_fahrerNameColumn) = value End Set End Property _ Public Property fd_tel() As String Get Try Return CType(Me(Me.tabletblFahrerDaten.fd_telColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fd_tel in Tabelle tblFahrerDaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFahrerDaten.fd_telColumn) = value End Set End Property _ Public Property fd_passNummer() As String Get Try Return CType(Me(Me.tabletblFahrerDaten.fd_passNummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fd_passNummer in Tabelle tblFahrerDaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFahrerDaten.fd_passNummerColumn) = value End Set End Property _ Public Property fd_wohnAdresse() As String Get Try Return CType(Me(Me.tabletblFahrerDaten.fd_wohnAdresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fd_wohnAdresse in Tabelle tblFahrerDaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFahrerDaten.fd_wohnAdresseColumn) = value End Set End Property _ Public Property fd_datum() As Date Get Return CType(Me(Me.tabletblFahrerDaten.fd_datumColumn),Date) End Get Set Me(Me.tabletblFahrerDaten.fd_datumColumn) = value End Set End Property _ Public Property fd_dsId() As Integer Get Try Return CType(Me(Me.tabletblFahrerDaten.fd_dsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fd_dsId in Tabelle tblFahrerDaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFahrerDaten.fd_dsIdColumn) = value End Set End Property _ Public Function Isfd_fraechterNull() As Boolean Return Me.IsNull(Me.tabletblFahrerDaten.fd_fraechterColumn) End Function _ Public Sub Setfd_fraechterNull() Me(Me.tabletblFahrerDaten.fd_fraechterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfd_lkwNull() As Boolean Return Me.IsNull(Me.tabletblFahrerDaten.fd_lkwColumn) End Function _ Public Sub Setfd_lkwNull() Me(Me.tabletblFahrerDaten.fd_lkwColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfd_fahrerNameNull() As Boolean Return Me.IsNull(Me.tabletblFahrerDaten.fd_fahrerNameColumn) End Function _ Public Sub Setfd_fahrerNameNull() Me(Me.tabletblFahrerDaten.fd_fahrerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfd_telNull() As Boolean Return Me.IsNull(Me.tabletblFahrerDaten.fd_telColumn) End Function _ Public Sub Setfd_telNull() Me(Me.tabletblFahrerDaten.fd_telColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfd_passNummerNull() As Boolean Return Me.IsNull(Me.tabletblFahrerDaten.fd_passNummerColumn) End Function _ Public Sub Setfd_passNummerNull() Me(Me.tabletblFahrerDaten.fd_passNummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfd_wohnAdresseNull() As Boolean Return Me.IsNull(Me.tabletblFahrerDaten.fd_wohnAdresseColumn) End Function _ Public Sub Setfd_wohnAdresseNull() Me(Me.tabletblFahrerDaten.fd_wohnAdresseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfd_dsIdNull() As Boolean Return Me.IsNull(Me.tabletblFahrerDaten.fd_dsIdColumn) End Function _ Public Sub Setfd_dsIdNull() Me(Me.tabletblFahrerDaten.fd_dsIdColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblFirmaRow Inherits Global.System.Data.DataRow Private tabletblFirma As tblFirmaDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblFirma = CType(Me.Table,tblFirmaDataTable) End Sub _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tabletblFirma.Firma_IDColumn),Short) End Get Set Me(Me.tabletblFirma.Firma_IDColumn) = value End Set End Property _ Public Property Firma_Bez() As String Get Return CType(Me(Me.tabletblFirma.Firma_BezColumn),String) End Get Set Me(Me.tabletblFirma.Firma_BezColumn) = value End Set End Property _ Public Property Firma_BackColor() As Integer Get Return CType(Me(Me.tabletblFirma.Firma_BackColorColumn),Integer) End Get Set Me(Me.tabletblFirma.Firma_BackColorColumn) = value End Set End Property _ Public Property Firma_Logo() As Byte() Get Try Return CType(Me(Me.tabletblFirma.Firma_LogoColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_Logo in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_LogoColumn) = value End Set End Property _ Public Property Firma_Firmenbuch() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_FirmenbuchColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_Firmenbuch in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_FirmenbuchColumn) = value End Set End Property _ Public Property Firma_UID() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_UIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_UID in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_UIDColumn) = value End Set End Property _ Public Property Firma_EORI() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_EORI in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_EORIColumn) = value End Set End Property _ Public Property Firma_Bankverbindung1() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_Bankverbindung1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_Bankverbindung1 in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_Bankverbindung1Column) = value End Set End Property _ Public Property Firma_BLZ1() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_BLZ1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_BLZ1 in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_BLZ1Column) = value End Set End Property _ Public Property Firma_KTO1() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_KTO1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_KTO1 in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_KTO1Column) = value End Set End Property _ Public Property Firma_IBAN1() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_IBAN1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_IBAN1 in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_IBAN1Column) = value End Set End Property _ Public Property Firma_BIC1() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_BIC1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_BIC1 in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_BIC1Column) = value End Set End Property _ Public Property Firma_Bankverbindung2() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_Bankverbindung2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_Bankverbindung2 in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_Bankverbindung2Column) = value End Set End Property _ Public Property Firma_BLZ2() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_BLZ2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_BLZ2 in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_BLZ2Column) = value End Set End Property _ Public Property Firma_KTO2() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_KTO2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_KTO2 in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_KTO2Column) = value End Set End Property _ Public Property Firma_IBAN2() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_IBAN2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_IBAN2 in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_IBAN2Column) = value End Set End Property _ Public Property Firma_BIC2() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_BIC2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_BIC2 in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_BIC2Column) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblFirma.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Firma_Ort() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_Ort in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_OrtColumn) = value End Set End Property _ Public Property Firma_Straße() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_Straße in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_StraßeColumn) = value End Set End Property _ Public Property Firma_Telefon() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_TelefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_Telefon in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_TelefonColumn) = value End Set End Property _ Public Property Firma_Telefax() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_TelefaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_Telefax in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_TelefaxColumn) = value End Set End Property _ Public Property _Firma_E_Mail() As String Get Try Return CType(Me(Me.tabletblFirma._Firma_E_MailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_E-Mail in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma._Firma_E_MailColumn) = value End Set End Property _ Public Property Firma_Webadresse() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_WebadresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_Webadresse in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_WebadresseColumn) = value End Set End Property _ Public Property Firma_LandKz() As String Get Return CType(Me(Me.tabletblFirma.Firma_LandKzColumn),String) End Get Set Me(Me.tabletblFirma.Firma_LandKzColumn) = value End Set End Property _ Public Property Firmengruppe() As String Get Try Return CType(Me(Me.tabletblFirma.FirmengruppeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firmengruppe in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.FirmengruppeColumn) = value End Set End Property _ Public Property Firma_Warenort() As Boolean Get Try Return CType(Me(Me.tabletblFirma.Firma_WarenortColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_Warenort in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_WarenortColumn) = value End Set End Property _ Public Property Firma_E_Mail_Mahnungen() As String Get Try Return CType(Me(Me.tabletblFirma.Firma_E_Mail_MahnungenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Firma_E_Mail_Mahnungen in Tabelle tblFirma ist DBNull.", e) End Try End Get Set Me(Me.tabletblFirma.Firma_E_Mail_MahnungenColumn) = value End Set End Property _ Public Function IsFirma_LogoNull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_LogoColumn) End Function _ Public Sub SetFirma_LogoNull() Me(Me.tabletblFirma.Firma_LogoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_FirmenbuchNull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_FirmenbuchColumn) End Function _ Public Sub SetFirma_FirmenbuchNull() Me(Me.tabletblFirma.Firma_FirmenbuchColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_UIDNull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_UIDColumn) End Function _ Public Sub SetFirma_UIDNull() Me(Me.tabletblFirma.Firma_UIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_EORINull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_EORIColumn) End Function _ Public Sub SetFirma_EORINull() Me(Me.tabletblFirma.Firma_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_Bankverbindung1Null() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_Bankverbindung1Column) End Function _ Public Sub SetFirma_Bankverbindung1Null() Me(Me.tabletblFirma.Firma_Bankverbindung1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_BLZ1Null() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_BLZ1Column) End Function _ Public Sub SetFirma_BLZ1Null() Me(Me.tabletblFirma.Firma_BLZ1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_KTO1Null() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_KTO1Column) End Function _ Public Sub SetFirma_KTO1Null() Me(Me.tabletblFirma.Firma_KTO1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_IBAN1Null() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_IBAN1Column) End Function _ Public Sub SetFirma_IBAN1Null() Me(Me.tabletblFirma.Firma_IBAN1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_BIC1Null() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_BIC1Column) End Function _ Public Sub SetFirma_BIC1Null() Me(Me.tabletblFirma.Firma_BIC1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_Bankverbindung2Null() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_Bankverbindung2Column) End Function _ Public Sub SetFirma_Bankverbindung2Null() Me(Me.tabletblFirma.Firma_Bankverbindung2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_BLZ2Null() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_BLZ2Column) End Function _ Public Sub SetFirma_BLZ2Null() Me(Me.tabletblFirma.Firma_BLZ2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_KTO2Null() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_KTO2Column) End Function _ Public Sub SetFirma_KTO2Null() Me(Me.tabletblFirma.Firma_KTO2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_IBAN2Null() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_IBAN2Column) End Function _ Public Sub SetFirma_IBAN2Null() Me(Me.tabletblFirma.Firma_IBAN2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_BIC2Null() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_BIC2Column) End Function _ Public Sub SetFirma_BIC2Null() Me(Me.tabletblFirma.Firma_BIC2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblFirma.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblFirma.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_OrtNull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_OrtColumn) End Function _ Public Sub SetFirma_OrtNull() Me(Me.tabletblFirma.Firma_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_StraßeNull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_StraßeColumn) End Function _ Public Sub SetFirma_StraßeNull() Me(Me.tabletblFirma.Firma_StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_TelefonNull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_TelefonColumn) End Function _ Public Sub SetFirma_TelefonNull() Me(Me.tabletblFirma.Firma_TelefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_TelefaxNull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_TelefaxColumn) End Function _ Public Sub SetFirma_TelefaxNull() Me(Me.tabletblFirma.Firma_TelefaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Firma_E_MailNull() As Boolean Return Me.IsNull(Me.tabletblFirma._Firma_E_MailColumn) End Function _ Public Sub Set_Firma_E_MailNull() Me(Me.tabletblFirma._Firma_E_MailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_WebadresseNull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_WebadresseColumn) End Function _ Public Sub SetFirma_WebadresseNull() Me(Me.tabletblFirma.Firma_WebadresseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirmengruppeNull() As Boolean Return Me.IsNull(Me.tabletblFirma.FirmengruppeColumn) End Function _ Public Sub SetFirmengruppeNull() Me(Me.tabletblFirma.FirmengruppeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_WarenortNull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_WarenortColumn) End Function _ Public Sub SetFirma_WarenortNull() Me(Me.tabletblFirma.Firma_WarenortColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFirma_E_Mail_MahnungenNull() As Boolean Return Me.IsNull(Me.tabletblFirma.Firma_E_Mail_MahnungenColumn) End Function _ Public Sub SetFirma_E_Mail_MahnungenNull() Me(Me.tabletblFirma.Firma_E_Mail_MahnungenColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblFiskal_DatenRow Inherits Global.System.Data.DataRow Private tabletblFiskal_Daten As tblFiskal_DatenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblFiskal_Daten = CType(Me.Table,tblFiskal_DatenDataTable) End Sub _ Public Property fisk_KundenNr() As Integer Get Return CType(Me(Me.tabletblFiskal_Daten.fisk_KundenNrColumn),Integer) End Get Set Me(Me.tabletblFiskal_Daten.fisk_KundenNrColumn) = value End Set End Property _ Public Property fisk_schreibenFA() As Boolean Get Return CType(Me(Me.tabletblFiskal_Daten.fisk_schreibenFAColumn),Boolean) End Get Set Me(Me.tabletblFiskal_Daten.fisk_schreibenFAColumn) = value End Set End Property _ Public Property fisk_schreibenSB() As Boolean Get Return CType(Me(Me.tabletblFiskal_Daten.fisk_schreibenSBColumn),Boolean) End Get Set Me(Me.tabletblFiskal_Daten.fisk_schreibenSBColumn) = value End Set End Property _ Public Property fisk_schreibenCMR() As Boolean Get Return CType(Me(Me.tabletblFiskal_Daten.fisk_schreibenCMRColumn),Boolean) End Get Set Me(Me.tabletblFiskal_Daten.fisk_schreibenCMRColumn) = value End Set End Property _ Public Property fisk_schreibenFA_Adr() As String Get Try Return CType(Me(Me.tabletblFiskal_Daten.fisk_schreibenFA_AdrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fisk_schreibenFA_Adr in Tabelle tblFiskal_Daten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskal_Daten.fisk_schreibenFA_AdrColumn) = value End Set End Property _ Public Property fisk_schreibenSB_Adr() As String Get Try Return CType(Me(Me.tabletblFiskal_Daten.fisk_schreibenSB_AdrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fisk_schreibenSB_Adr in Tabelle tblFiskal_Daten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskal_Daten.fisk_schreibenSB_AdrColumn) = value End Set End Property _ Public Property fisk_schreibenSB_Mail() As String Get Try Return CType(Me(Me.tabletblFiskal_Daten.fisk_schreibenSB_MailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fisk_schreibenSB_Mail in Tabelle tblFiskal_Daten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskal_Daten.fisk_schreibenSB_MailColumn) = value End Set End Property _ Public Property fisk_schreibenFA_Mail() As String Get Try Return CType(Me(Me.tabletblFiskal_Daten.fisk_schreibenFA_MailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fisk_schreibenFA_Mail in Tabelle tblFiskal_Daten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskal_Daten.fisk_schreibenFA_MailColumn) = value End Set End Property _ Public Function Isfisk_schreibenFA_AdrNull() As Boolean Return Me.IsNull(Me.tabletblFiskal_Daten.fisk_schreibenFA_AdrColumn) End Function _ Public Sub Setfisk_schreibenFA_AdrNull() Me(Me.tabletblFiskal_Daten.fisk_schreibenFA_AdrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfisk_schreibenSB_AdrNull() As Boolean Return Me.IsNull(Me.tabletblFiskal_Daten.fisk_schreibenSB_AdrColumn) End Function _ Public Sub Setfisk_schreibenSB_AdrNull() Me(Me.tabletblFiskal_Daten.fisk_schreibenSB_AdrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfisk_schreibenSB_MailNull() As Boolean Return Me.IsNull(Me.tabletblFiskal_Daten.fisk_schreibenSB_MailColumn) End Function _ Public Sub Setfisk_schreibenSB_MailNull() Me(Me.tabletblFiskal_Daten.fisk_schreibenSB_MailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfisk_schreibenFA_MailNull() As Boolean Return Me.IsNull(Me.tabletblFiskal_Daten.fisk_schreibenFA_MailColumn) End Function _ Public Sub Setfisk_schreibenFA_MailNull() Me(Me.tabletblFiskal_Daten.fisk_schreibenFA_MailColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblFiskalkundenRow Inherits Global.System.Data.DataRow Private tabletblFiskalkunden As tblFiskalkundenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblFiskalkunden = CType(Me.Table,tblFiskalkundenDataTable) End Sub _ Public Property FK_Id() As Integer Get Return CType(Me(Me.tabletblFiskalkunden.FK_IdColumn),Integer) End Get Set Me(Me.tabletblFiskalkunden.FK_IdColumn) = value End Set End Property _ Public Property FK_Kdnr() As Integer Get Return CType(Me(Me.tabletblFiskalkunden.FK_KdnrColumn),Integer) End Get Set Me(Me.tabletblFiskalkunden.FK_KdnrColumn) = value End Set End Property _ Public Property FK_Datum() As Date Get Return CType(Me(Me.tabletblFiskalkunden.FK_DatumColumn),Date) End Get Set Me(Me.tabletblFiskalkunden.FK_DatumColumn) = value End Set End Property _ Public Property FK_Art() As String Get Return CType(Me(Me.tabletblFiskalkunden.FK_ArtColumn),String) End Get Set Me(Me.tabletblFiskalkunden.FK_ArtColumn) = value End Set End Property _ Public Property FK_locked() As Boolean Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_lockedColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_locked in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_lockedColumn) = value End Set End Property _ Public Property FK_WebsiteSt_URL() As String Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_WebsiteSt_URLColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_WebsiteSt_URL in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_WebsiteSt_URLColumn) = value End Set End Property _ Public Property FK_Bonitaet() As Integer Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_BonitaetColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Bonitaet in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_BonitaetColumn) = value End Set End Property _ Public Property FK_Vollmacht() As Integer Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_VollmachtColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Vollmacht in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_VollmachtColumn) = value End Set End Property _ Public Property FK_Untervollmacht() As Integer Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_UntervollmachtColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Untervollmacht in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_UntervollmachtColumn) = value End Set End Property _ Public Property FK_UID() As Integer Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_UIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_UID in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_UIDColumn) = value End Set End Property _ Public Property FK_EORI() As Integer Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_EORIColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_EORI in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_EORIColumn) = value End Set End Property _ Public Property FK_VollmachtOriginal() As Boolean Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_VollmachtOriginalColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_VollmachtOriginal in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_VollmachtOriginalColumn) = value End Set End Property _ Public Property FK_Website_URL() As String Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_Website_URLColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Website_URL in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_Website_URLColumn) = value End Set End Property _ Public Property FK_Anmerkung() As String Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_AnmerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Anmerkung in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_AnmerkungColumn) = value End Set End Property _ Public Property FK_Abschlussdatum() As Date Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_AbschlussdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Abschlussdatum in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_AbschlussdatumColumn) = value End Set End Property _ Public Property FK_MaId() As Integer Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_MaIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_MaId in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_MaIdColumn) = value End Set End Property _ Public Property FK_Lieferanten() As String Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_LieferantenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Lieferanten in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_LieferantenColumn) = value End Set End Property _ Public Property FK_Empfaenger() As String Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_EmpfaengerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Empfaenger in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_EmpfaengerColumn) = value End Set End Property _ Public Property FK_Waren() As String Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_WarenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Waren in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_WarenColumn) = value End Set End Property _ Public Property FK_Zwischenhaendler() As String Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_ZwischenhaendlerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Zwischenhaendler in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_ZwischenhaendlerColumn) = value End Set End Property _ Public Property FK_Gruendungsdatum() As Date Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_GruendungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Gruendungsdatum in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_GruendungsdatumColumn) = value End Set End Property _ Public Property FK_AnzahlMitarbeiter() As Integer Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_AnzahlMitarbeiterColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_AnzahlMitarbeiter in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_AnzahlMitarbeiterColumn) = value End Set End Property _ Public Property FK_Geschaeftszweck() As String Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_GeschaeftszweckColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Geschaeftszweck in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_GeschaeftszweckColumn) = value End Set End Property _ Public Property FK_KreditMax() As Decimal Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_KreditMaxColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_KreditMax in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_KreditMaxColumn) = value End Set End Property _ Public Property FK_Umsatz() As Decimal Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_UmsatzColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Umsatz in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_UmsatzColumn) = value End Set End Property _ Public Property FK_Geschaeftsfuehrer() As String Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_GeschaeftsfuehrerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Geschaeftsfuehrer in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_GeschaeftsfuehrerColumn) = value End Set End Property _ Public Property FK_Steuerberater() As String Get Try Return CType(Me(Me.tabletblFiskalkunden.FK_SteuerberaterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_Steuerberater in Tabelle tblFiskalkunden ist DBNull.", e) End Try End Get Set Me(Me.tabletblFiskalkunden.FK_SteuerberaterColumn) = value End Set End Property _ Public Function IsFK_lockedNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_lockedColumn) End Function _ Public Sub SetFK_lockedNull() Me(Me.tabletblFiskalkunden.FK_lockedColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_WebsiteSt_URLNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_WebsiteSt_URLColumn) End Function _ Public Sub SetFK_WebsiteSt_URLNull() Me(Me.tabletblFiskalkunden.FK_WebsiteSt_URLColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_BonitaetNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_BonitaetColumn) End Function _ Public Sub SetFK_BonitaetNull() Me(Me.tabletblFiskalkunden.FK_BonitaetColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_VollmachtNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_VollmachtColumn) End Function _ Public Sub SetFK_VollmachtNull() Me(Me.tabletblFiskalkunden.FK_VollmachtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_UntervollmachtNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_UntervollmachtColumn) End Function _ Public Sub SetFK_UntervollmachtNull() Me(Me.tabletblFiskalkunden.FK_UntervollmachtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_UIDNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_UIDColumn) End Function _ Public Sub SetFK_UIDNull() Me(Me.tabletblFiskalkunden.FK_UIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_EORINull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_EORIColumn) End Function _ Public Sub SetFK_EORINull() Me(Me.tabletblFiskalkunden.FK_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_VollmachtOriginalNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_VollmachtOriginalColumn) End Function _ Public Sub SetFK_VollmachtOriginalNull() Me(Me.tabletblFiskalkunden.FK_VollmachtOriginalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_Website_URLNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_Website_URLColumn) End Function _ Public Sub SetFK_Website_URLNull() Me(Me.tabletblFiskalkunden.FK_Website_URLColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_AnmerkungNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_AnmerkungColumn) End Function _ Public Sub SetFK_AnmerkungNull() Me(Me.tabletblFiskalkunden.FK_AnmerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_AbschlussdatumNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_AbschlussdatumColumn) End Function _ Public Sub SetFK_AbschlussdatumNull() Me(Me.tabletblFiskalkunden.FK_AbschlussdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_MaIdNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_MaIdColumn) End Function _ Public Sub SetFK_MaIdNull() Me(Me.tabletblFiskalkunden.FK_MaIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_LieferantenNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_LieferantenColumn) End Function _ Public Sub SetFK_LieferantenNull() Me(Me.tabletblFiskalkunden.FK_LieferantenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_EmpfaengerNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_EmpfaengerColumn) End Function _ Public Sub SetFK_EmpfaengerNull() Me(Me.tabletblFiskalkunden.FK_EmpfaengerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_WarenNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_WarenColumn) End Function _ Public Sub SetFK_WarenNull() Me(Me.tabletblFiskalkunden.FK_WarenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_ZwischenhaendlerNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_ZwischenhaendlerColumn) End Function _ Public Sub SetFK_ZwischenhaendlerNull() Me(Me.tabletblFiskalkunden.FK_ZwischenhaendlerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_GruendungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_GruendungsdatumColumn) End Function _ Public Sub SetFK_GruendungsdatumNull() Me(Me.tabletblFiskalkunden.FK_GruendungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_AnzahlMitarbeiterNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_AnzahlMitarbeiterColumn) End Function _ Public Sub SetFK_AnzahlMitarbeiterNull() Me(Me.tabletblFiskalkunden.FK_AnzahlMitarbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_GeschaeftszweckNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_GeschaeftszweckColumn) End Function _ Public Sub SetFK_GeschaeftszweckNull() Me(Me.tabletblFiskalkunden.FK_GeschaeftszweckColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_KreditMaxNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_KreditMaxColumn) End Function _ Public Sub SetFK_KreditMaxNull() Me(Me.tabletblFiskalkunden.FK_KreditMaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_UmsatzNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_UmsatzColumn) End Function _ Public Sub SetFK_UmsatzNull() Me(Me.tabletblFiskalkunden.FK_UmsatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_GeschaeftsfuehrerNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_GeschaeftsfuehrerColumn) End Function _ Public Sub SetFK_GeschaeftsfuehrerNull() Me(Me.tabletblFiskalkunden.FK_GeschaeftsfuehrerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_SteuerberaterNull() As Boolean Return Me.IsNull(Me.tabletblFiskalkunden.FK_SteuerberaterColumn) End Function _ Public Sub SetFK_SteuerberaterNull() Me(Me.tabletblFiskalkunden.FK_SteuerberaterColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblFormulardatenRow Inherits Global.System.Data.DataRow Private tabletblFormulardaten As tblFormulardatenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblFormulardaten = CType(Me.Table,tblFormulardatenDataTable) End Sub _ Public Property Computername() As String Get Return CType(Me(Me.tabletblFormulardaten.ComputernameColumn),String) End Get Set Me(Me.tabletblFormulardaten.ComputernameColumn) = value End Set End Property _ Public Property Benutzername() As String Get Return CType(Me(Me.tabletblFormulardaten.BenutzernameColumn),String) End Get Set Me(Me.tabletblFormulardaten.BenutzernameColumn) = value End Set End Property _ Public Property Formularname() As String Get Return CType(Me(Me.tabletblFormulardaten.FormularnameColumn),String) End Get Set Me(Me.tabletblFormulardaten.FormularnameColumn) = value End Set End Property _ Public Property Feldname() As String Get Return CType(Me(Me.tabletblFormulardaten.FeldnameColumn),String) End Get Set Me(Me.tabletblFormulardaten.FeldnameColumn) = value End Set End Property _ Public Property Feldwert() As String Get Return CType(Me(Me.tabletblFormulardaten.FeldwertColumn),String) End Get Set Me(Me.tabletblFormulardaten.FeldwertColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblFormulardaten.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblFormulardaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblFormulardaten.upsize_tsColumn) = value End Set End Property _ Public Property tblAnmeldungRowParent() As tblAnmeldungRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblFormulardaten_FK00")),tblAnmeldungRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblFormulardaten_FK00")) End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblFormulardaten.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblFormulardaten.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblFormulareVorlagenRow Inherits Global.System.Data.DataRow Private tabletblFormulareVorlagen As tblFormulareVorlagenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblFormulareVorlagen = CType(Me.Table,tblFormulareVorlagenDataTable) End Sub _ Public Property tblform_id() As Integer Get Return CType(Me(Me.tabletblFormulareVorlagen.tblform_idColumn),Integer) End Get Set Me(Me.tabletblFormulareVorlagen.tblform_idColumn) = value End Set End Property _ Public Property tblform_KundenNr() As Integer Get Try Return CType(Me(Me.tabletblFormulareVorlagen.tblform_KundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tblform_KundenNr in Tabelle tblFormulareVorlagen ist DBNull.", e) End Try End Get Set Me(Me.tabletblFormulareVorlagen.tblform_KundenNrColumn) = value End Set End Property _ Public Property tblform_art() As String Get Return CType(Me(Me.tabletblFormulareVorlagen.tblform_artColumn),String) End Get Set Me(Me.tabletblFormulareVorlagen.tblform_artColumn) = value End Set End Property _ Public Property tblform_begriff() As String Get Return CType(Me(Me.tabletblFormulareVorlagen.tblform_begriffColumn),String) End Get Set Me(Me.tabletblFormulareVorlagen.tblform_begriffColumn) = value End Set End Property _ Public Property tblform_Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblFormulareVorlagen.tblform_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tblform_Sachbearbeiter in Tabelle tblFormulareVorlagen ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblFormulareVorlagen.tblform_SachbearbeiterColumn) = value End Set End Property _ Public Property tblform_letzeAenderung() As Date Get Return CType(Me(Me.tabletblFormulareVorlagen.tblform_letzeAenderungColumn),Date) End Get Set Me(Me.tabletblFormulareVorlagen.tblform_letzeAenderungColumn) = value End Set End Property _ Public Function Istblform_KundenNrNull() As Boolean Return Me.IsNull(Me.tabletblFormulareVorlagen.tblform_KundenNrColumn) End Function _ Public Sub Settblform_KundenNrNull() Me(Me.tabletblFormulareVorlagen.tblform_KundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istblform_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblFormulareVorlagen.tblform_SachbearbeiterColumn) End Function _ Public Sub Settblform_SachbearbeiterNull() Me(Me.tabletblFormulareVorlagen.tblform_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblFormulareVorlagenValuesRow Inherits Global.System.Data.DataRow Private tabletblFormulareVorlagenValues As tblFormulareVorlagenValuesDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblFormulareVorlagenValues = CType(Me.Table,tblFormulareVorlagenValuesDataTable) End Sub _ Public Property tblfv_tblformId() As Integer Get Return CType(Me(Me.tabletblFormulareVorlagenValues.tblfv_tblformIdColumn),Integer) End Get Set Me(Me.tabletblFormulareVorlagenValues.tblfv_tblformIdColumn) = value End Set End Property _ Public Property tblfv_name() As String Get Return CType(Me(Me.tabletblFormulareVorlagenValues.tblfv_nameColumn),String) End Get Set Me(Me.tabletblFormulareVorlagenValues.tblfv_nameColumn) = value End Set End Property _ Public Property tblfv_wert() As String Get Return CType(Me(Me.tabletblFormulareVorlagenValues.tblfv_wertColumn),String) End Get Set Me(Me.tabletblFormulareVorlagenValues.tblfv_wertColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblFremdSpeditionenZuordnungRow Inherits Global.System.Data.DataRow Private tabletblFremdSpeditionenZuordnung As tblFremdSpeditionenZuordnungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblFremdSpeditionenZuordnung = CType(Me.Table,tblFremdSpeditionenZuordnungDataTable) End Sub _ Public Property fremdz_Id() As Integer Get Return CType(Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_IdColumn),Integer) End Get Set Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_IdColumn) = value End Set End Property _ Public Property fremdz_firma() As String Get Return CType(Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_firmaColumn),String) End Get Set Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_firmaColumn) = value End Set End Property _ Public Property fremdz_KundenNr() As Integer Get Try Return CType(Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_KundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fremdz_KundenNr in Tabelle tblFremdSpeditionenZuordnung ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_KundenNrColumn) = value End Set End Property _ Public Property fremdz_plz() As String Get Return CType(Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_plzColumn),String) End Get Set Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_plzColumn) = value End Set End Property _ Public Property fremdz_ort() As String Get Return CType(Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_ortColumn),String) End Get Set Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_ortColumn) = value End Set End Property _ Public Property fremdz_SpeditionKundenNr() As Integer Get Try Return CType(Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_SpeditionKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fremdz_SpeditionKundenNr in Tabelle tblFremdSpeditionenZuordn"& _ "ung ist DBNull.", e) End Try End Get Set Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_SpeditionKundenNrColumn) = value End Set End Property _ Public Property fremdz_verzolltBei() As String Get Return CType(Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_verzolltBeiColumn),String) End Get Set Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_verzolltBeiColumn) = value End Set End Property _ Public Property fremdz_bemerkung() As String Get Return CType(Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_bemerkungColumn),String) End Get Set Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_bemerkungColumn) = value End Set End Property _ Public Property fremdz_Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fremdz_Sachbearbeiter in Tabelle tblFremdSpeditionenZuordnung"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_SachbearbeiterColumn) = value End Set End Property _ Public Property fremdz_Datum() As Date Get Try Return CType(Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fremdz_Datum in Tabelle tblFremdSpeditionenZuordnung ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_DatumColumn) = value End Set End Property _ Public Function Isfremdz_KundenNrNull() As Boolean Return Me.IsNull(Me.tabletblFremdSpeditionenZuordnung.fremdz_KundenNrColumn) End Function _ Public Sub Setfremdz_KundenNrNull() Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_KundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfremdz_SpeditionKundenNrNull() As Boolean Return Me.IsNull(Me.tabletblFremdSpeditionenZuordnung.fremdz_SpeditionKundenNrColumn) End Function _ Public Sub Setfremdz_SpeditionKundenNrNull() Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_SpeditionKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfremdz_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblFremdSpeditionenZuordnung.fremdz_SachbearbeiterColumn) End Function _ Public Sub Setfremdz_SachbearbeiterNull() Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfremdz_DatumNull() As Boolean Return Me.IsNull(Me.tabletblFremdSpeditionenZuordnung.fremdz_DatumColumn) End Function _ Public Sub Setfremdz_DatumNull() Me(Me.tabletblFremdSpeditionenZuordnung.fremdz_DatumColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblFTP_LogRow Inherits Global.System.Data.DataRow Private tabletblFTP_Log As tblFTP_LogDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblFTP_Log = CType(Me.Table,tblFTP_LogDataTable) End Sub _ Public Property ftp_id() As Integer Get Return CType(Me(Me.tabletblFTP_Log.ftp_idColumn),Integer) End Get Set Me(Me.tabletblFTP_Log.ftp_idColumn) = value End Set End Property _ Public Property ftp_filepath() As String Get Return CType(Me(Me.tabletblFTP_Log.ftp_filepathColumn),String) End Get Set Me(Me.tabletblFTP_Log.ftp_filepathColumn) = value End Set End Property _ Public Property ftp_BezugsNr() As String Get Try Return CType(Me(Me.tabletblFTP_Log.ftp_BezugsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_BezugsNr in Tabelle tblFTP_Log ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log.ftp_BezugsNrColumn) = value End Set End Property _ Public Property ftp_art() As String Get Try Return CType(Me(Me.tabletblFTP_Log.ftp_artColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_art in Tabelle tblFTP_Log ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log.ftp_artColumn) = value End Set End Property _ Public Property ftp_status() As String Get Try Return CType(Me(Me.tabletblFTP_Log.ftp_statusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_status in Tabelle tblFTP_Log ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log.ftp_statusColumn) = value End Set End Property _ Public Property ftp_vorsystem() As String Get Try Return CType(Me(Me.tabletblFTP_Log.ftp_vorsystemColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_vorsystem in Tabelle tblFTP_Log ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log.ftp_vorsystemColumn) = value End Set End Property _ Public Property ftp_CooName() As String Get Try Return CType(Me(Me.tabletblFTP_Log.ftp_CooNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_CooName in Tabelle tblFTP_Log ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log.ftp_CooNameColumn) = value End Set End Property _ Public Property ftp_timestamp() As Byte() Get Try Return CType(Me(Me.tabletblFTP_Log.ftp_timestampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_timestamp in Tabelle tblFTP_Log ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log.ftp_timestampColumn) = value End Set End Property _ Public Property ftp_user() As String Get Return CType(Me(Me.tabletblFTP_Log.ftp_userColumn),String) End Get Set Me(Me.tabletblFTP_Log.ftp_userColumn) = value End Set End Property _ Public Property ftp_datetime() As Date Get Try Return CType(Me(Me.tabletblFTP_Log.ftp_datetimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_datetime in Tabelle tblFTP_Log ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log.ftp_datetimeColumn) = value End Set End Property _ Public Function Isftp_BezugsNrNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log.ftp_BezugsNrColumn) End Function _ Public Sub Setftp_BezugsNrNull() Me(Me.tabletblFTP_Log.ftp_BezugsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_artNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log.ftp_artColumn) End Function _ Public Sub Setftp_artNull() Me(Me.tabletblFTP_Log.ftp_artColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_statusNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log.ftp_statusColumn) End Function _ Public Sub Setftp_statusNull() Me(Me.tabletblFTP_Log.ftp_statusColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_vorsystemNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log.ftp_vorsystemColumn) End Function _ Public Sub Setftp_vorsystemNull() Me(Me.tabletblFTP_Log.ftp_vorsystemColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_CooNameNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log.ftp_CooNameColumn) End Function _ Public Sub Setftp_CooNameNull() Me(Me.tabletblFTP_Log.ftp_CooNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_timestampNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log.ftp_timestampColumn) End Function _ Public Sub Setftp_timestampNull() Me(Me.tabletblFTP_Log.ftp_timestampColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_datetimeNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log.ftp_datetimeColumn) End Function _ Public Sub Setftp_datetimeNull() Me(Me.tabletblFTP_Log.ftp_datetimeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblFTP_Log_Backup2Row Inherits Global.System.Data.DataRow Private tabletblFTP_Log_Backup2 As tblFTP_Log_Backup2DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblFTP_Log_Backup2 = CType(Me.Table,tblFTP_Log_Backup2DataTable) End Sub _ Public Property ftp_id() As Integer Get Return CType(Me(Me.tabletblFTP_Log_Backup2.ftp_idColumn),Integer) End Get Set Me(Me.tabletblFTP_Log_Backup2.ftp_idColumn) = value End Set End Property _ Public Property ftp_filepath() As String Get Return CType(Me(Me.tabletblFTP_Log_Backup2.ftp_filepathColumn),String) End Get Set Me(Me.tabletblFTP_Log_Backup2.ftp_filepathColumn) = value End Set End Property _ Public Property ftp_BezugsNr() As String Get Try Return CType(Me(Me.tabletblFTP_Log_Backup2.ftp_BezugsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_BezugsNr in Tabelle tblFTP_Log_Backup2 ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log_Backup2.ftp_BezugsNrColumn) = value End Set End Property _ Public Property ftp_art() As String Get Try Return CType(Me(Me.tabletblFTP_Log_Backup2.ftp_artColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_art in Tabelle tblFTP_Log_Backup2 ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log_Backup2.ftp_artColumn) = value End Set End Property _ Public Property ftp_status() As String Get Try Return CType(Me(Me.tabletblFTP_Log_Backup2.ftp_statusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_status in Tabelle tblFTP_Log_Backup2 ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log_Backup2.ftp_statusColumn) = value End Set End Property _ Public Property ftp_vorsystem() As String Get Try Return CType(Me(Me.tabletblFTP_Log_Backup2.ftp_vorsystemColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_vorsystem in Tabelle tblFTP_Log_Backup2 ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log_Backup2.ftp_vorsystemColumn) = value End Set End Property _ Public Property ftp_CooName() As String Get Try Return CType(Me(Me.tabletblFTP_Log_Backup2.ftp_CooNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_CooName in Tabelle tblFTP_Log_Backup2 ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log_Backup2.ftp_CooNameColumn) = value End Set End Property _ Public Property ftp_timestamp() As Byte() Get Try Return CType(Me(Me.tabletblFTP_Log_Backup2.ftp_timestampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_timestamp in Tabelle tblFTP_Log_Backup2 ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log_Backup2.ftp_timestampColumn) = value End Set End Property _ Public Property ftp_user() As String Get Return CType(Me(Me.tabletblFTP_Log_Backup2.ftp_userColumn),String) End Get Set Me(Me.tabletblFTP_Log_Backup2.ftp_userColumn) = value End Set End Property _ Public Property ftp_datetime() As Date Get Try Return CType(Me(Me.tabletblFTP_Log_Backup2.ftp_datetimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ftp_datetime in Tabelle tblFTP_Log_Backup2 ist DBNull.", e) End Try End Get Set Me(Me.tabletblFTP_Log_Backup2.ftp_datetimeColumn) = value End Set End Property _ Public Function Isftp_BezugsNrNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log_Backup2.ftp_BezugsNrColumn) End Function _ Public Sub Setftp_BezugsNrNull() Me(Me.tabletblFTP_Log_Backup2.ftp_BezugsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_artNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log_Backup2.ftp_artColumn) End Function _ Public Sub Setftp_artNull() Me(Me.tabletblFTP_Log_Backup2.ftp_artColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_statusNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log_Backup2.ftp_statusColumn) End Function _ Public Sub Setftp_statusNull() Me(Me.tabletblFTP_Log_Backup2.ftp_statusColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_vorsystemNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log_Backup2.ftp_vorsystemColumn) End Function _ Public Sub Setftp_vorsystemNull() Me(Me.tabletblFTP_Log_Backup2.ftp_vorsystemColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_CooNameNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log_Backup2.ftp_CooNameColumn) End Function _ Public Sub Setftp_CooNameNull() Me(Me.tabletblFTP_Log_Backup2.ftp_CooNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_timestampNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log_Backup2.ftp_timestampColumn) End Function _ Public Sub Setftp_timestampNull() Me(Me.tabletblFTP_Log_Backup2.ftp_timestampColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isftp_datetimeNull() As Boolean Return Me.IsNull(Me.tabletblFTP_Log_Backup2.ftp_datetimeColumn) End Function _ Public Sub Setftp_datetimeNull() Me(Me.tabletblFTP_Log_Backup2.ftp_datetimeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGebuehrenvermarktungsnormenRow Inherits Global.System.Data.DataRow Private tabletblGebuehrenvermarktungsnormen As tblGebuehrenvermarktungsnormenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGebuehrenvermarktungsnormen = CType(Me.Table,tblGebuehrenvermarktungsnormenDataTable) End Sub _ Public Property gueltigAb() As Date Get Return CType(Me(Me.tabletblGebuehrenvermarktungsnormen.gueltigAbColumn),Date) End Get Set Me(Me.tabletblGebuehrenvermarktungsnormen.gueltigAbColumn) = value End Set End Property _ Public Property betrag() As Decimal Get Return CType(Me(Me.tabletblGebuehrenvermarktungsnormen.betragColumn),Decimal) End Get Set Me(Me.tabletblGebuehrenvermarktungsnormen.betragColumn) = value End Set End Property _ Public Property speziell() As Boolean Get Return CType(Me(Me.tabletblGebuehrenvermarktungsnormen.speziellColumn),Boolean) End Get Set Me(Me.tabletblGebuehrenvermarktungsnormen.speziellColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGelangensbestaetigungRow Inherits Global.System.Data.DataRow Private tabletblGelangensbestaetigung As tblGelangensbestaetigungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGelangensbestaetigung = CType(Me.Table,tblGelangensbestaetigungDataTable) End Sub _ Public Property gb_nr() As Integer Get Return CType(Me(Me.tabletblGelangensbestaetigung.gb_nrColumn),Integer) End Get Set Me(Me.tabletblGelangensbestaetigung.gb_nrColumn) = value End Set End Property _ Public Property gb_firma() As String Get Try Return CType(Me(Me.tabletblGelangensbestaetigung.gb_firmaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_firma in Tabelle tblGelangensbestaetigung ist DBNull.", e) End Try End Get Set Me(Me.tabletblGelangensbestaetigung.gb_firmaColumn) = value End Set End Property _ Public Property gb_KdNr() As Integer Get Try Return CType(Me(Me.tabletblGelangensbestaetigung.gb_KdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_KdNr in Tabelle tblGelangensbestaetigung ist DBNull.", e) End Try End Get Set Me(Me.tabletblGelangensbestaetigung.gb_KdNrColumn) = value End Set End Property _ Public Property gb_datetime() As Date Get Return CType(Me(Me.tabletblGelangensbestaetigung.gb_datetimeColumn),Date) End Get Set Me(Me.tabletblGelangensbestaetigung.gb_datetimeColumn) = value End Set End Property _ Public Property gb_sachbearbeiter() As String Get Return CType(Me(Me.tabletblGelangensbestaetigung.gb_sachbearbeiterColumn),String) End Get Set Me(Me.tabletblGelangensbestaetigung.gb_sachbearbeiterColumn) = value End Set End Property _ Public Property gb_sachbearbeiterId() As Integer Get Return CType(Me(Me.tabletblGelangensbestaetigung.gb_sachbearbeiterIdColumn),Integer) End Get Set Me(Me.tabletblGelangensbestaetigung.gb_sachbearbeiterIdColumn) = value End Set End Property _ Public Function Isgb_firmaNull() As Boolean Return Me.IsNull(Me.tabletblGelangensbestaetigung.gb_firmaColumn) End Function _ Public Sub Setgb_firmaNull() Me(Me.tabletblGelangensbestaetigung.gb_firmaColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_KdNrNull() As Boolean Return Me.IsNull(Me.tabletblGelangensbestaetigung.gb_KdNrColumn) End Function _ Public Sub Setgb_KdNrNull() Me(Me.tabletblGelangensbestaetigung.gb_KdNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGeschäftsjahrRow Inherits Global.System.Data.DataRow Private tabletblGeschäftsjahr As tblGeschäftsjahrDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGeschäftsjahr = CType(Me.Table,tblGeschäftsjahrDataTable) End Sub _ Public Property Mandant() As String Get Return CType(Me(Me.tabletblGeschäftsjahr.MandantColumn),String) End Get Set Me(Me.tabletblGeschäftsjahr.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Return CType(Me(Me.tabletblGeschäftsjahr.NiederlassungColumn),String) End Get Set Me(Me.tabletblGeschäftsjahr.NiederlassungColumn) = value End Set End Property _ Public Property Benutzer() As Integer Get Return CType(Me(Me.tabletblGeschäftsjahr.BenutzerColumn),Integer) End Get Set Me(Me.tabletblGeschäftsjahr.BenutzerColumn) = value End Set End Property _ Public Property Geschäftsjahr() As Short Get Return CType(Me(Me.tabletblGeschäftsjahr.GeschäftsjahrColumn),Short) End Get Set Me(Me.tabletblGeschäftsjahr.GeschäftsjahrColumn) = value End Set End Property _ Public Property LfdBelegNr() As Integer Get Return CType(Me(Me.tabletblGeschäftsjahr.LfdBelegNrColumn),Integer) End Get Set Me(Me.tabletblGeschäftsjahr.LfdBelegNrColumn) = value End Set End Property _ Public Property LfdJournalNr() As Integer Get Return CType(Me(Me.tabletblGeschäftsjahr.LfdJournalNrColumn),Integer) End Get Set Me(Me.tabletblGeschäftsjahr.LfdJournalNrColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblGeschäftsjahr.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblGeschäftsjahr ist DBNull.", e) End Try End Get Set Me(Me.tabletblGeschäftsjahr.upsize_tsColumn) = value End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblGeschäftsjahr.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblGeschäftsjahr.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGeschäftsjahrBelegNrRow Inherits Global.System.Data.DataRow Private tabletblGeschäftsjahrBelegNr As tblGeschäftsjahrBelegNrDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGeschäftsjahrBelegNr = CType(Me.Table,tblGeschäftsjahrBelegNrDataTable) End Sub _ Public Property Mandant() As String Get Return CType(Me(Me.tabletblGeschäftsjahrBelegNr.MandantColumn),String) End Get Set Me(Me.tabletblGeschäftsjahrBelegNr.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Return CType(Me(Me.tabletblGeschäftsjahrBelegNr.NiederlassungColumn),String) End Get Set Me(Me.tabletblGeschäftsjahrBelegNr.NiederlassungColumn) = value End Set End Property _ Public Property Benutzer() As Integer Get Return CType(Me(Me.tabletblGeschäftsjahrBelegNr.BenutzerColumn),Integer) End Get Set Me(Me.tabletblGeschäftsjahrBelegNr.BenutzerColumn) = value End Set End Property _ Public Property Geschäftsjahr() As Short Get Return CType(Me(Me.tabletblGeschäftsjahrBelegNr.GeschäftsjahrColumn),Short) End Get Set Me(Me.tabletblGeschäftsjahrBelegNr.GeschäftsjahrColumn) = value End Set End Property _ Public Property LfdBelegNr() As Integer Get Return CType(Me(Me.tabletblGeschäftsjahrBelegNr.LfdBelegNrColumn),Integer) End Get Set Me(Me.tabletblGeschäftsjahrBelegNr.LfdBelegNrColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblGeschäftsjahrBelegNr.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblGeschäftsjahrBelegNr ist DBNull.", e) End Try End Get Set Me(Me.tabletblGeschäftsjahrBelegNr.upsize_tsColumn) = value End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblGeschäftsjahrBelegNr.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblGeschäftsjahrBelegNr.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGeschäftsjahrJournalNrRow Inherits Global.System.Data.DataRow Private tabletblGeschäftsjahrJournalNr As tblGeschäftsjahrJournalNrDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGeschäftsjahrJournalNr = CType(Me.Table,tblGeschäftsjahrJournalNrDataTable) End Sub _ Public Property Mandant() As String Get Return CType(Me(Me.tabletblGeschäftsjahrJournalNr.MandantColumn),String) End Get Set Me(Me.tabletblGeschäftsjahrJournalNr.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Return CType(Me(Me.tabletblGeschäftsjahrJournalNr.NiederlassungColumn),String) End Get Set Me(Me.tabletblGeschäftsjahrJournalNr.NiederlassungColumn) = value End Set End Property _ Public Property Benutzer() As Integer Get Return CType(Me(Me.tabletblGeschäftsjahrJournalNr.BenutzerColumn),Integer) End Get Set Me(Me.tabletblGeschäftsjahrJournalNr.BenutzerColumn) = value End Set End Property _ Public Property Geschäftsjahr() As Short Get Return CType(Me(Me.tabletblGeschäftsjahrJournalNr.GeschäftsjahrColumn),Short) End Get Set Me(Me.tabletblGeschäftsjahrJournalNr.GeschäftsjahrColumn) = value End Set End Property _ Public Property LfdJournalNr() As Integer Get Return CType(Me(Me.tabletblGeschäftsjahrJournalNr.LfdJournalNrColumn),Integer) End Get Set Me(Me.tabletblGeschäftsjahrJournalNr.LfdJournalNrColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblGeschäftsjahrJournalNr.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblGeschäftsjahrJournalNr ist DBNull.", e) End Try End Get Set Me(Me.tabletblGeschäftsjahrJournalNr.upsize_tsColumn) = value End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblGeschäftsjahrJournalNr.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblGeschäftsjahrJournalNr.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGestellungsgarantienRow Inherits Global.System.Data.DataRow Private tabletblGestellungsgarantien As tblGestellungsgarantienDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGestellungsgarantien = CType(Me.Table,tblGestellungsgarantienDataTable) End Sub _ Public Property gg_Id() As Integer Get Return CType(Me(Me.tabletblGestellungsgarantien.gg_IdColumn),Integer) End Get Set Me(Me.tabletblGestellungsgarantien.gg_IdColumn) = value End Set End Property _ Public Property gg_KundenNr() As Integer Get Try Return CType(Me(Me.tabletblGestellungsgarantien.gg_KundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gg_KundenNr in Tabelle tblGestellungsgarantien ist DBNull.", e) End Try End Get Set Me(Me.tabletblGestellungsgarantien.gg_KundenNrColumn) = value End Set End Property _ Public Property gg_erhalten_Datum() As Date Get Return CType(Me(Me.tabletblGestellungsgarantien.gg_erhalten_DatumColumn),Date) End Get Set Me(Me.tabletblGestellungsgarantien.gg_erhalten_DatumColumn) = value End Set End Property _ Public Property gg_Zollamt() As String Get Return CType(Me(Me.tabletblGestellungsgarantien.gg_ZollamtColumn),String) End Get Set Me(Me.tabletblGestellungsgarantien.gg_ZollamtColumn) = value End Set End Property _ Public Property gg_Info() As String Get Try Return CType(Me(Me.tabletblGestellungsgarantien.gg_InfoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gg_Info in Tabelle tblGestellungsgarantien ist DBNull.", e) End Try End Get Set Me(Me.tabletblGestellungsgarantien.gg_InfoColumn) = value End Set End Property _ Public Property gg_datenarchivId() As Integer Get Try Return CType(Me(Me.tabletblGestellungsgarantien.gg_datenarchivIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gg_datenarchivId in Tabelle tblGestellungsgarantien ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblGestellungsgarantien.gg_datenarchivIdColumn) = value End Set End Property _ Public Function Isgg_KundenNrNull() As Boolean Return Me.IsNull(Me.tabletblGestellungsgarantien.gg_KundenNrColumn) End Function _ Public Sub Setgg_KundenNrNull() Me(Me.tabletblGestellungsgarantien.gg_KundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgg_InfoNull() As Boolean Return Me.IsNull(Me.tabletblGestellungsgarantien.gg_InfoColumn) End Function _ Public Sub Setgg_InfoNull() Me(Me.tabletblGestellungsgarantien.gg_InfoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgg_datenarchivIdNull() As Boolean Return Me.IsNull(Me.tabletblGestellungsgarantien.gg_datenarchivIdColumn) End Function _ Public Sub Setgg_datenarchivIdNull() Me(Me.tabletblGestellungsgarantien.gg_datenarchivIdColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGestellungsmitteilungRow Inherits Global.System.Data.DataRow Private tabletblGestellungsmitteilung As tblGestellungsmitteilungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGestellungsmitteilung = CType(Me.Table,tblGestellungsmitteilungDataTable) End Sub _ Public Property gstm_id() As Integer Get Return CType(Me(Me.tabletblGestellungsmitteilung.gstm_idColumn),Integer) End Get Set Me(Me.tabletblGestellungsmitteilung.gstm_idColumn) = value End Set End Property _ Public Property gstm_AvisoId() As Integer Get Return CType(Me(Me.tabletblGestellungsmitteilung.gstm_AvisoIdColumn),Integer) End Get Set Me(Me.tabletblGestellungsmitteilung.gstm_AvisoIdColumn) = value End Set End Property _ Public Property gstm_T1Gestellung_ATB() As String Get Try Return CType(Me(Me.tabletblGestellungsmitteilung.gstm_T1Gestellung_ATBColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gstm_T1Gestellung_ATB in Tabelle tblGestellungsmitteilung ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblGestellungsmitteilung.gstm_T1Gestellung_ATBColumn) = value End Set End Property _ Public Property gstm_BezugsNrSumA() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung.gstm_BezugsNrSumAColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung.gstm_BezugsNrSumAColumn) = value End Set End Property _ Public Property gstm_LKWKennzeichen() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung.gstm_LKWKennzeichenColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung.gstm_LKWKennzeichenColumn) = value End Set End Property _ Public Property gstm_GesamtColli() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung.gstm_GesamtColliColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung.gstm_GesamtColliColumn) = value End Set End Property _ Public Property gstm_GesamtGewicht() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung.gstm_GesamtGewichtColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung.gstm_GesamtGewichtColumn) = value End Set End Property _ Public Function Isgstm_T1Gestellung_ATBNull() As Boolean Return Me.IsNull(Me.tabletblGestellungsmitteilung.gstm_T1Gestellung_ATBColumn) End Function _ Public Sub Setgstm_T1Gestellung_ATBNull() Me(Me.tabletblGestellungsmitteilung.gstm_T1Gestellung_ATBColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGestellungsmitteilung_PositionenRow Inherits Global.System.Data.DataRow Private tabletblGestellungsmitteilung_Positionen As tblGestellungsmitteilung_PositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGestellungsmitteilung_Positionen = CType(Me.Table,tblGestellungsmitteilung_PositionenDataTable) End Sub _ Public Property gstmp_id() As Integer Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_idColumn),Integer) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_idColumn) = value End Set End Property _ Public Property gstmp_GstmID() As Integer Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_GstmIDColumn),Integer) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_GstmIDColumn) = value End Set End Property _ Public Property gstmp_SendungID() As Integer Get Try Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_SendungIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gstmp_SendungID in Tabelle tblGestellungsmitteilung_Positione"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_SendungIDColumn) = value End Set End Property _ Public Property gstmp_T1Nr() As Integer Get Try Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_T1NrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gstmp_T1Nr in Tabelle tblGestellungsmitteilung_Positionen ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_T1NrColumn) = value End Set End Property _ Public Property gstmp_AvisoID() As Integer Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_AvisoIDColumn),Integer) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_AvisoIDColumn) = value End Set End Property _ Public Property gstmp_Abfertigungsart() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_AbfertigungsartColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_AbfertigungsartColumn) = value End Set End Property _ Public Property gstmp_Abfertigungsart_ID() As Integer Get Try Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_Abfertigungsart_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gstmp_Abfertigungsart_ID in Tabelle tblGestellungsmitteilung_"& _ "Positionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_Abfertigungsart_IDColumn) = value End Set End Property _ Public Property gstmp_Empfaenger() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_EmpfaengerColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_EmpfaengerColumn) = value End Set End Property _ Public Property gstmp_Bemerkung() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_BemerkungColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_BemerkungColumn) = value End Set End Property _ Public Property gstmp_FilialenNr() As Short Get Try Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gstmp_FilialenNr in Tabelle tblGestellungsmitteilung_Position"& _ "en ist DBNull.", e) End Try End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_FilialenNrColumn) = value End Set End Property _ Public Property gstmp_AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gstmp_AbfertigungsNr in Tabelle tblGestellungsmitteilung_Posi"& _ "tionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_AbfertigungsNrColumn) = value End Set End Property _ Public Property gstmp_UnterNr() As Short Get Try Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_UnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gstmp_UnterNr in Tabelle tblGestellungsmitteilung_Positionen "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_UnterNrColumn) = value End Set End Property _ Public Property gstmp_Colli() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_ColliColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_ColliColumn) = value End Set End Property _ Public Property gstmp_Gewicht() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_GewichtColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_GewichtColumn) = value End Set End Property _ Public Property gstmp_Warenbezeichnung() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_WarenbezeichnungColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_WarenbezeichnungColumn) = value End Set End Property _ Public Property gstmp_Absender() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_AbsenderColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_AbsenderColumn) = value End Set End Property _ Public Property gstmp_ATANr() As String Get Return CType(Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_ATANrColumn),String) End Get Set Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_ATANrColumn) = value End Set End Property _ Public Function Isgstmp_SendungIDNull() As Boolean Return Me.IsNull(Me.tabletblGestellungsmitteilung_Positionen.gstmp_SendungIDColumn) End Function _ Public Sub Setgstmp_SendungIDNull() Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_SendungIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgstmp_T1NrNull() As Boolean Return Me.IsNull(Me.tabletblGestellungsmitteilung_Positionen.gstmp_T1NrColumn) End Function _ Public Sub Setgstmp_T1NrNull() Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_T1NrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgstmp_Abfertigungsart_IDNull() As Boolean Return Me.IsNull(Me.tabletblGestellungsmitteilung_Positionen.gstmp_Abfertigungsart_IDColumn) End Function _ Public Sub Setgstmp_Abfertigungsart_IDNull() Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_Abfertigungsart_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgstmp_FilialenNrNull() As Boolean Return Me.IsNull(Me.tabletblGestellungsmitteilung_Positionen.gstmp_FilialenNrColumn) End Function _ Public Sub Setgstmp_FilialenNrNull() Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgstmp_AbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tabletblGestellungsmitteilung_Positionen.gstmp_AbfertigungsNrColumn) End Function _ Public Sub Setgstmp_AbfertigungsNrNull() Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgstmp_UnterNrNull() As Boolean Return Me.IsNull(Me.tabletblGestellungsmitteilung_Positionen.gstmp_UnterNrColumn) End Function _ Public Sub Setgstmp_UnterNrNull() Me(Me.tabletblGestellungsmitteilung_Positionen.gstmp_UnterNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGOBOXBestellungenRow Inherits Global.System.Data.DataRow Private tabletblGOBOXBestellungen As tblGOBOXBestellungenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGOBOXBestellungen = CType(Me.Table,tblGOBOXBestellungenDataTable) End Sub _ Public Property gb_ID() As Integer Get Return CType(Me(Me.tabletblGOBOXBestellungen.gb_IDColumn),Integer) End Get Set Me(Me.tabletblGOBOXBestellungen.gb_IDColumn) = value End Set End Property _ Public Property gb_bestelldatum() As Date Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_bestelldatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_bestelldatum in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_bestelldatumColumn) = value End Set End Property _ Public Property gb_bestellNr() As Integer Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_bestellNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_bestellNr in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_bestellNrColumn) = value End Set End Property _ Public Property gb_adressNr() As Integer Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_adressNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_adressNr in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_adressNrColumn) = value End Set End Property _ Public Property gb_transactionTyp() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_transactionTypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_transactionTyp in Tabelle tblGOBOXBestellungen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_transactionTypColumn) = value End Set End Property _ Public Property gb_company1() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_company1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_company1 in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_company1Column) = value End Set End Property _ Public Property gb_company2() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_company2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_company2 in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_company2Column) = value End Set End Property _ Public Property gb_companyStreet() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_companyStreetColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_companyStreet in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_companyStreetColumn) = value End Set End Property _ Public Property gb_companyStreetNr() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_companyStreetNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_companyStreetNr in Tabelle tblGOBOXBestellungen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_companyStreetNrColumn) = value End Set End Property _ Public Property gb_companyPostalcode() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_companyPostalcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_companyPostalcode in Tabelle tblGOBOXBestellungen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_companyPostalcodeColumn) = value End Set End Property _ Public Property gb_companyCity() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_companyCityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_companyCity in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_companyCityColumn) = value End Set End Property _ Public Property gb_companyCountry() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_companyCountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_companyCountry in Tabelle tblGOBOXBestellungen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_companyCountryColumn) = value End Set End Property _ Public Property gb_companyCountryISO() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_companyCountryISOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_companyCountryISO in Tabelle tblGOBOXBestellungen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_companyCountryISOColumn) = value End Set End Property _ Public Property gb_companyTel() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_companyTelColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_companyTel in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_companyTelColumn) = value End Set End Property _ Public Property gb_companyFax() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_companyFaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_companyFax in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_companyFaxColumn) = value End Set End Property _ Public Property gb_salutation() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_salutationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_salutation in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_salutationColumn) = value End Set End Property _ Public Property gb_title() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_titleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_title in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_titleColumn) = value End Set End Property _ Public Property gb_firstname() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_firstnameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_firstname in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_firstnameColumn) = value End Set End Property _ Public Property gb_lastname() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_lastnameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_lastname in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_lastnameColumn) = value End Set End Property _ Public Property gb_email() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_emailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_email in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_emailColumn) = value End Set End Property _ Public Property gb_personLanguage() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_personLanguageColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_personLanguage in Tabelle tblGOBOXBestellungen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_personLanguageColumn) = value End Set End Property _ Public Property gb_licensePlate() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_licensePlateColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_licensePlate in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_licensePlateColumn) = value End Set End Property _ Public Property gb_licensePlateNat() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_licensePlateNatColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_licensePlateNat in Tabelle tblGOBOXBestellungen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_licensePlateNatColumn) = value End Set End Property _ Public Property gb_vehicleTyp() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_vehicleTypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_vehicleTyp in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_vehicleTypColumn) = value End Set End Property _ Public Property gb_Axles() As Integer Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_AxlesColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_Axles in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_AxlesColumn) = value End Set End Property _ Public Property gb_CardNum() As String Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_CardNumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_CardNum in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_CardNumColumn) = value End Set End Property _ Public Property gb_CardValidMonth() As Integer Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_CardValidMonthColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_CardValidMonth in Tabelle tblGOBOXBestellungen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_CardValidMonthColumn) = value End Set End Property _ Public Property gb_CardValidYear() As Integer Get Try Return CType(Me(Me.tabletblGOBOXBestellungen.gb_CardValidYearColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gb_CardValidYear in Tabelle tblGOBOXBestellungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblGOBOXBestellungen.gb_CardValidYearColumn) = value End Set End Property _ Public Function Isgb_bestelldatumNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_bestelldatumColumn) End Function _ Public Sub Setgb_bestelldatumNull() Me(Me.tabletblGOBOXBestellungen.gb_bestelldatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_bestellNrNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_bestellNrColumn) End Function _ Public Sub Setgb_bestellNrNull() Me(Me.tabletblGOBOXBestellungen.gb_bestellNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_adressNrNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_adressNrColumn) End Function _ Public Sub Setgb_adressNrNull() Me(Me.tabletblGOBOXBestellungen.gb_adressNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_transactionTypNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_transactionTypColumn) End Function _ Public Sub Setgb_transactionTypNull() Me(Me.tabletblGOBOXBestellungen.gb_transactionTypColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_company1Null() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_company1Column) End Function _ Public Sub Setgb_company1Null() Me(Me.tabletblGOBOXBestellungen.gb_company1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_company2Null() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_company2Column) End Function _ Public Sub Setgb_company2Null() Me(Me.tabletblGOBOXBestellungen.gb_company2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_companyStreetNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_companyStreetColumn) End Function _ Public Sub Setgb_companyStreetNull() Me(Me.tabletblGOBOXBestellungen.gb_companyStreetColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_companyStreetNrNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_companyStreetNrColumn) End Function _ Public Sub Setgb_companyStreetNrNull() Me(Me.tabletblGOBOXBestellungen.gb_companyStreetNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_companyPostalcodeNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_companyPostalcodeColumn) End Function _ Public Sub Setgb_companyPostalcodeNull() Me(Me.tabletblGOBOXBestellungen.gb_companyPostalcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_companyCityNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_companyCityColumn) End Function _ Public Sub Setgb_companyCityNull() Me(Me.tabletblGOBOXBestellungen.gb_companyCityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_companyCountryNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_companyCountryColumn) End Function _ Public Sub Setgb_companyCountryNull() Me(Me.tabletblGOBOXBestellungen.gb_companyCountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_companyCountryISONull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_companyCountryISOColumn) End Function _ Public Sub Setgb_companyCountryISONull() Me(Me.tabletblGOBOXBestellungen.gb_companyCountryISOColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_companyTelNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_companyTelColumn) End Function _ Public Sub Setgb_companyTelNull() Me(Me.tabletblGOBOXBestellungen.gb_companyTelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_companyFaxNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_companyFaxColumn) End Function _ Public Sub Setgb_companyFaxNull() Me(Me.tabletblGOBOXBestellungen.gb_companyFaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_salutationNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_salutationColumn) End Function _ Public Sub Setgb_salutationNull() Me(Me.tabletblGOBOXBestellungen.gb_salutationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_titleNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_titleColumn) End Function _ Public Sub Setgb_titleNull() Me(Me.tabletblGOBOXBestellungen.gb_titleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_firstnameNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_firstnameColumn) End Function _ Public Sub Setgb_firstnameNull() Me(Me.tabletblGOBOXBestellungen.gb_firstnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_lastnameNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_lastnameColumn) End Function _ Public Sub Setgb_lastnameNull() Me(Me.tabletblGOBOXBestellungen.gb_lastnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_emailNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_emailColumn) End Function _ Public Sub Setgb_emailNull() Me(Me.tabletblGOBOXBestellungen.gb_emailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_personLanguageNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_personLanguageColumn) End Function _ Public Sub Setgb_personLanguageNull() Me(Me.tabletblGOBOXBestellungen.gb_personLanguageColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_licensePlateNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_licensePlateColumn) End Function _ Public Sub Setgb_licensePlateNull() Me(Me.tabletblGOBOXBestellungen.gb_licensePlateColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_licensePlateNatNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_licensePlateNatColumn) End Function _ Public Sub Setgb_licensePlateNatNull() Me(Me.tabletblGOBOXBestellungen.gb_licensePlateNatColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_vehicleTypNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_vehicleTypColumn) End Function _ Public Sub Setgb_vehicleTypNull() Me(Me.tabletblGOBOXBestellungen.gb_vehicleTypColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_AxlesNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_AxlesColumn) End Function _ Public Sub Setgb_AxlesNull() Me(Me.tabletblGOBOXBestellungen.gb_AxlesColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_CardNumNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_CardNumColumn) End Function _ Public Sub Setgb_CardNumNull() Me(Me.tabletblGOBOXBestellungen.gb_CardNumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_CardValidMonthNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_CardValidMonthColumn) End Function _ Public Sub Setgb_CardValidMonthNull() Me(Me.tabletblGOBOXBestellungen.gb_CardValidMonthColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgb_CardValidYearNull() As Boolean Return Me.IsNull(Me.tabletblGOBOXBestellungen.gb_CardValidYearColumn) End Function _ Public Sub Setgb_CardValidYearNull() Me(Me.tabletblGOBOXBestellungen.gb_CardValidYearColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGVMSRow Inherits Global.System.Data.DataRow Private tabletblGVMS As tblGVMSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGVMS = CType(Me.Table,tblGVMSDataTable) End Sub _ Public Property gvms_id() As Integer Get Return CType(Me(Me.tabletblGVMS.gvms_idColumn),Integer) End Get Set Me(Me.tabletblGVMS.gvms_idColumn) = value End Set End Property _ Public Property gvms_datetime() As Date Get Return CType(Me(Me.tabletblGVMS.gvms_datetimeColumn),Date) End Get Set Me(Me.tabletblGVMS.gvms_datetimeColumn) = value End Set End Property _ Public Property gvms_firma() As String Get Return CType(Me(Me.tabletblGVMS.gvms_firmaColumn),String) End Get Set Me(Me.tabletblGVMS.gvms_firmaColumn) = value End Set End Property _ Public Property gvms_notification_id() As String Get Try Return CType(Me(Me.tabletblGVMS.gvms_notification_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_notification_id in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_notification_idColumn) = value End Set End Property _ Public Property gvms_notification_boxid() As String Get Try Return CType(Me(Me.tabletblGVMS.gvms_notification_boxidColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_notification_boxid in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_notification_boxidColumn) = value End Set End Property _ Public Property gvms_status() As String Get Try Return CType(Me(Me.tabletblGVMS.gvms_statusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_status in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_statusColumn) = value End Set End Property _ Public Property gvms_GMR() As String Get Try Return CType(Me(Me.tabletblGVMS.gvms_GMRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_GMR in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_GMRColumn) = value End Set End Property _ Public Property gvms_gmr_creationDate() As Date Get Try Return CType(Me(Me.tabletblGVMS.gvms_gmr_creationDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_gmr_creationDate in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_gmr_creationDateColumn) = value End Set End Property _ Public Property gvms_gmr_statusVersion() As String Get Try Return CType(Me(Me.tabletblGVMS.gvms_gmr_statusVersionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_gmr_statusVersion in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_gmr_statusVersionColumn) = value End Set End Property _ Public Property gvms_routeId() As Integer Get Return CType(Me(Me.tabletblGVMS.gvms_routeIdColumn),Integer) End Get Set Me(Me.tabletblGVMS.gvms_routeIdColumn) = value End Set End Property _ Public Property gvms_direction() As String Get Return CType(Me(Me.tabletblGVMS.gvms_directionColumn),String) End Get Set Me(Me.tabletblGVMS.gvms_directionColumn) = value End Set End Property _ Public Property gvms_vehicleRegNum() As String Get Try Return CType(Me(Me.tabletblGVMS.gvms_vehicleRegNumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_vehicleRegNum in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_vehicleRegNumColumn) = value End Set End Property _ Public Property gvms_trailorRegNum() As String Get Try Return CType(Me(Me.tabletblGVMS.gvms_trailorRegNumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_trailorRegNum in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_trailorRegNumColumn) = value End Set End Property _ Public Property gvms_isUnaccompanied() As Boolean Get Try Return CType(Me(Me.tabletblGVMS.gvms_isUnaccompaniedColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_isUnaccompanied in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_isUnaccompaniedColumn) = value End Set End Property _ Public Property gvms_empty() As Boolean Get Try Return CType(Me(Me.tabletblGVMS.gvms_emptyColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_empty in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_emptyColumn) = value End Set End Property _ Public Property gvms_emptyisOwn() As Boolean Get Try Return CType(Me(Me.tabletblGVMS.gvms_emptyisOwnColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_emptyisOwn in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_emptyisOwnColumn) = value End Set End Property _ Public Property gvms_locateDateTimeOfDeparture() As Date Get Try Return CType(Me(Me.tabletblGVMS.gvms_locateDateTimeOfDepartureColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_locateDateTimeOfDeparture in Tabelle tblGVMS ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_locateDateTimeOfDepartureColumn) = value End Set End Property _ Public Property gvms_SS() As String Get Try Return CType(Me(Me.tabletblGVMS.gvms_SSColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_SS in Tabelle tblGVMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS.gvms_SSColumn) = value End Set End Property _ Public Function Isgvms_notification_idNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_notification_idColumn) End Function _ Public Sub Setgvms_notification_idNull() Me(Me.tabletblGVMS.gvms_notification_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_notification_boxidNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_notification_boxidColumn) End Function _ Public Sub Setgvms_notification_boxidNull() Me(Me.tabletblGVMS.gvms_notification_boxidColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_statusNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_statusColumn) End Function _ Public Sub Setgvms_statusNull() Me(Me.tabletblGVMS.gvms_statusColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_GMRNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_GMRColumn) End Function _ Public Sub Setgvms_GMRNull() Me(Me.tabletblGVMS.gvms_GMRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_gmr_creationDateNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_gmr_creationDateColumn) End Function _ Public Sub Setgvms_gmr_creationDateNull() Me(Me.tabletblGVMS.gvms_gmr_creationDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_gmr_statusVersionNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_gmr_statusVersionColumn) End Function _ Public Sub Setgvms_gmr_statusVersionNull() Me(Me.tabletblGVMS.gvms_gmr_statusVersionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_vehicleRegNumNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_vehicleRegNumColumn) End Function _ Public Sub Setgvms_vehicleRegNumNull() Me(Me.tabletblGVMS.gvms_vehicleRegNumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_trailorRegNumNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_trailorRegNumColumn) End Function _ Public Sub Setgvms_trailorRegNumNull() Me(Me.tabletblGVMS.gvms_trailorRegNumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_isUnaccompaniedNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_isUnaccompaniedColumn) End Function _ Public Sub Setgvms_isUnaccompaniedNull() Me(Me.tabletblGVMS.gvms_isUnaccompaniedColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_emptyNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_emptyColumn) End Function _ Public Sub Setgvms_emptyNull() Me(Me.tabletblGVMS.gvms_emptyColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_emptyisOwnNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_emptyisOwnColumn) End Function _ Public Sub Setgvms_emptyisOwnNull() Me(Me.tabletblGVMS.gvms_emptyisOwnColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_locateDateTimeOfDepartureNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_locateDateTimeOfDepartureColumn) End Function _ Public Sub Setgvms_locateDateTimeOfDepartureNull() Me(Me.tabletblGVMS.gvms_locateDateTimeOfDepartureColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgvms_SSNull() As Boolean Return Me.IsNull(Me.tabletblGVMS.gvms_SSColumn) End Function _ Public Sub Setgvms_SSNull() Me(Me.tabletblGVMS.gvms_SSColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGVMS_CarriersRow Inherits Global.System.Data.DataRow Private tabletblGVMS_Carriers As tblGVMS_CarriersDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGVMS_Carriers = CType(Me.Table,tblGVMS_CarriersDataTable) End Sub _ Public Property carrierId() As Integer Get Return CType(Me(Me.tabletblGVMS_Carriers.carrierIdColumn),Integer) End Get Set Me(Me.tabletblGVMS_Carriers.carrierIdColumn) = value End Set End Property _ Public Property carrierName() As String Get Return CType(Me(Me.tabletblGVMS_Carriers.carrierNameColumn),String) End Get Set Me(Me.tabletblGVMS_Carriers.carrierNameColumn) = value End Set End Property _ Public Property countryCode() As String Get Return CType(Me(Me.tabletblGVMS_Carriers.countryCodeColumn),String) End Get Set Me(Me.tabletblGVMS_Carriers.countryCodeColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGVMS_PortsRow Inherits Global.System.Data.DataRow Private tabletblGVMS_Ports As tblGVMS_PortsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGVMS_Ports = CType(Me.Table,tblGVMS_PortsDataTable) End Sub _ Public Property portId() As Integer Get Return CType(Me(Me.tabletblGVMS_Ports.portIdColumn),Integer) End Get Set Me(Me.tabletblGVMS_Ports.portIdColumn) = value End Set End Property _ Public Property portDescription() As String Get Return CType(Me(Me.tabletblGVMS_Ports.portDescriptionColumn),String) End Get Set Me(Me.tabletblGVMS_Ports.portDescriptionColumn) = value End Set End Property _ Public Property portRegion() As String Get Try Return CType(Me(Me.tabletblGVMS_Ports.portRegionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte portRegion in Tabelle tblGVMS_Ports ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Ports.portRegionColumn) = value End Set End Property _ Public Property portEffectiveFrom() As Date Get Try Return CType(Me(Me.tabletblGVMS_Ports.portEffectiveFromColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte portEffectiveFrom in Tabelle tblGVMS_Ports ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Ports.portEffectiveFromColumn) = value End Set End Property _ Public Property chiefPortCode() As String Get Try Return CType(Me(Me.tabletblGVMS_Ports.chiefPortCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte chiefPortCode in Tabelle tblGVMS_Ports ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Ports.chiefPortCodeColumn) = value End Set End Property _ Public Property cdsPortCode() As String Get Try Return CType(Me(Me.tabletblGVMS_Ports.cdsPortCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cdsPortCode in Tabelle tblGVMS_Ports ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Ports.cdsPortCodeColumn) = value End Set End Property _ Public Property officeOfTransitCustomsOfficeCode() As String Get Try Return CType(Me(Me.tabletblGVMS_Ports.officeOfTransitCustomsOfficeCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte officeOfTransitCustomsOfficeCode in Tabelle tblGVMS_Ports ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Ports.officeOfTransitCustomsOfficeCodeColumn) = value End Set End Property _ Public Property portEffectiveTo() As Date Get Try Return CType(Me(Me.tabletblGVMS_Ports.portEffectiveToColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte portEffectiveTo in Tabelle tblGVMS_Ports ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Ports.portEffectiveToColumn) = value End Set End Property _ Public Property portCountryCode() As String Get Try Return CType(Me(Me.tabletblGVMS_Ports.portCountryCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte portCountryCode in Tabelle tblGVMS_Ports ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Ports.portCountryCodeColumn) = value End Set End Property _ Public Property isOperatingArrivedExportsProcess() As Boolean Get Try Return CType(Me(Me.tabletblGVMS_Ports.isOperatingArrivedExportsProcessColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte isOperatingArrivedExportsProcess in Tabelle tblGVMS_Ports ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Ports.isOperatingArrivedExportsProcessColumn) = value End Set End Property _ Public Function IsportRegionNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Ports.portRegionColumn) End Function _ Public Sub SetportRegionNull() Me(Me.tabletblGVMS_Ports.portRegionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsportEffectiveFromNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Ports.portEffectiveFromColumn) End Function _ Public Sub SetportEffectiveFromNull() Me(Me.tabletblGVMS_Ports.portEffectiveFromColumn) = Global.System.Convert.DBNull End Sub _ Public Function IschiefPortCodeNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Ports.chiefPortCodeColumn) End Function _ Public Sub SetchiefPortCodeNull() Me(Me.tabletblGVMS_Ports.chiefPortCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscdsPortCodeNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Ports.cdsPortCodeColumn) End Function _ Public Sub SetcdsPortCodeNull() Me(Me.tabletblGVMS_Ports.cdsPortCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsofficeOfTransitCustomsOfficeCodeNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Ports.officeOfTransitCustomsOfficeCodeColumn) End Function _ Public Sub SetofficeOfTransitCustomsOfficeCodeNull() Me(Me.tabletblGVMS_Ports.officeOfTransitCustomsOfficeCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsportEffectiveToNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Ports.portEffectiveToColumn) End Function _ Public Sub SetportEffectiveToNull() Me(Me.tabletblGVMS_Ports.portEffectiveToColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsportCountryCodeNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Ports.portCountryCodeColumn) End Function _ Public Sub SetportCountryCodeNull() Me(Me.tabletblGVMS_Ports.portCountryCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsisOperatingArrivedExportsProcessNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Ports.isOperatingArrivedExportsProcessColumn) End Function _ Public Sub SetisOperatingArrivedExportsProcessNull() Me(Me.tabletblGVMS_Ports.isOperatingArrivedExportsProcessColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGVMS_PosRow Inherits Global.System.Data.DataRow Private tabletblGVMS_Pos As tblGVMS_PosDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGVMS_Pos = CType(Me.Table,tblGVMS_PosDataTable) End Sub _ Public Property gvmsPos_id() As Integer Get Return CType(Me(Me.tabletblGVMS_Pos.gvmsPos_idColumn),Integer) End Get Set Me(Me.tabletblGVMS_Pos.gvmsPos_idColumn) = value End Set End Property _ Public Property gvmsPos_gvmsId() As Integer Get Return CType(Me(Me.tabletblGVMS_Pos.gvmsPos_gvmsIdColumn),Integer) End Get Set Me(Me.tabletblGVMS_Pos.gvmsPos_gvmsIdColumn) = value End Set End Property _ Public Property gvms_art() As String Get Return CType(Me(Me.tabletblGVMS_Pos.gvms_artColumn),String) End Get Set Me(Me.tabletblGVMS_Pos.gvms_artColumn) = value End Set End Property _ Public Property gvms_RefNum() As String Get Return CType(Me(Me.tabletblGVMS_Pos.gvms_RefNumColumn),String) End Get Set Me(Me.tabletblGVMS_Pos.gvms_RefNumColumn) = value End Set End Property _ Public Property gvms_SS() As String Get Try Return CType(Me(Me.tabletblGVMS_Pos.gvms_SSColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gvms_SS in Tabelle tblGVMS_Pos ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Pos.gvms_SSColumn) = value End Set End Property _ Public Function Isgvms_SSNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Pos.gvms_SSColumn) End Function _ Public Sub Setgvms_SSNull() Me(Me.tabletblGVMS_Pos.gvms_SSColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblGVMS_RoutesRow Inherits Global.System.Data.DataRow Private tabletblGVMS_Routes As tblGVMS_RoutesDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblGVMS_Routes = CType(Me.Table,tblGVMS_RoutesDataTable) End Sub _ Public Property routeId() As Integer Get Return CType(Me(Me.tabletblGVMS_Routes.routeIdColumn),Integer) End Get Set Me(Me.tabletblGVMS_Routes.routeIdColumn) = value End Set End Property _ Public Property routeDirection() As String Get Return CType(Me(Me.tabletblGVMS_Routes.routeDirectionColumn),String) End Get Set Me(Me.tabletblGVMS_Routes.routeDirectionColumn) = value End Set End Property _ Public Property routeEffectiveFrom() As Date Get Try Return CType(Me(Me.tabletblGVMS_Routes.routeEffectiveFromColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte routeEffectiveFrom in Tabelle tblGVMS_Routes ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Routes.routeEffectiveFromColumn) = value End Set End Property _ Public Property departurePortId() As String Get Try Return CType(Me(Me.tabletblGVMS_Routes.departurePortIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte departurePortId in Tabelle tblGVMS_Routes ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Routes.departurePortIdColumn) = value End Set End Property _ Public Property arrivalPortId() As String Get Try Return CType(Me(Me.tabletblGVMS_Routes.arrivalPortIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte arrivalPortId in Tabelle tblGVMS_Routes ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Routes.arrivalPortIdColumn) = value End Set End Property _ Public Property carrierId() As String Get Try Return CType(Me(Me.tabletblGVMS_Routes.carrierIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte carrierId in Tabelle tblGVMS_Routes ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Routes.carrierIdColumn) = value End Set End Property _ Public Property routeEffectiveTo() As Date Get Try Return CType(Me(Me.tabletblGVMS_Routes.routeEffectiveToColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte routeEffectiveTo in Tabelle tblGVMS_Routes ist DBNull.", e) End Try End Get Set Me(Me.tabletblGVMS_Routes.routeEffectiveToColumn) = value End Set End Property _ Public Function IsrouteEffectiveFromNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Routes.routeEffectiveFromColumn) End Function _ Public Sub SetrouteEffectiveFromNull() Me(Me.tabletblGVMS_Routes.routeEffectiveFromColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdeparturePortIdNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Routes.departurePortIdColumn) End Function _ Public Sub SetdeparturePortIdNull() Me(Me.tabletblGVMS_Routes.departurePortIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsarrivalPortIdNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Routes.arrivalPortIdColumn) End Function _ Public Sub SetarrivalPortIdNull() Me(Me.tabletblGVMS_Routes.arrivalPortIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscarrierIdNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Routes.carrierIdColumn) End Function _ Public Sub SetcarrierIdNull() Me(Me.tabletblGVMS_Routes.carrierIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrouteEffectiveToNull() As Boolean Return Me.IsNull(Me.tabletblGVMS_Routes.routeEffectiveToColumn) End Function _ Public Sub SetrouteEffectiveToNull() Me(Me.tabletblGVMS_Routes.routeEffectiveToColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblHandlingssaetzeInternRow Inherits Global.System.Data.DataRow Private tabletblHandlingssaetzeIntern As tblHandlingssaetzeInternDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblHandlingssaetzeIntern = CType(Me.Table,tblHandlingssaetzeInternDataTable) End Sub _ Public Property hs_Bezeichnung() As String Get Try Return CType(Me(Me.tabletblHandlingssaetzeIntern.hs_BezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte hs_Bezeichnung in Tabelle tblHandlingssaetzeIntern ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblHandlingssaetzeIntern.hs_BezeichnungColumn) = value End Set End Property _ Public Property hs_RgVon() As String Get Return CType(Me(Me.tabletblHandlingssaetzeIntern.hs_RgVonColumn),String) End Get Set Me(Me.tabletblHandlingssaetzeIntern.hs_RgVonColumn) = value End Set End Property _ Public Property hs_RgAn() As String Get Return CType(Me(Me.tabletblHandlingssaetzeIntern.hs_RgAnColumn),String) End Get Set Me(Me.tabletblHandlingssaetzeIntern.hs_RgAnColumn) = value End Set End Property _ Public Property hs_Abfertigungsart() As Integer Get Try Return CType(Me(Me.tabletblHandlingssaetzeIntern.hs_AbfertigungsartColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte hs_Abfertigungsart in Tabelle tblHandlingssaetzeIntern ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblHandlingssaetzeIntern.hs_AbfertigungsartColumn) = value End Set End Property _ Public Property hs_Preis() As Double Get Return CType(Me(Me.tabletblHandlingssaetzeIntern.hs_PreisColumn),Double) End Get Set Me(Me.tabletblHandlingssaetzeIntern.hs_PreisColumn) = value End Set End Property _ Public Function Ishs_BezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblHandlingssaetzeIntern.hs_BezeichnungColumn) End Function _ Public Sub Seths_BezeichnungNull() Me(Me.tabletblHandlingssaetzeIntern.hs_BezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ishs_AbfertigungsartNull() As Boolean Return Me.IsNull(Me.tabletblHandlingssaetzeIntern.hs_AbfertigungsartColumn) End Function _ Public Sub Seths_AbfertigungsartNull() Me(Me.tabletblHandlingssaetzeIntern.hs_AbfertigungsartColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblHistorieRow Inherits Global.System.Data.DataRow Private tabletblHistorie As tblHistorieDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblHistorie = CType(Me.Table,tblHistorieDataTable) End Sub _ Public Property Computername() As String Get Return CType(Me(Me.tabletblHistorie.ComputernameColumn),String) End Get Set Me(Me.tabletblHistorie.ComputernameColumn) = value End Set End Property _ Public Property Benutzername() As String Get Return CType(Me(Me.tabletblHistorie.BenutzernameColumn),String) End Get Set Me(Me.tabletblHistorie.BenutzernameColumn) = value End Set End Property _ Public Property Login() As Date Get Return CType(Me(Me.tabletblHistorie.LoginColumn),Date) End Get Set Me(Me.tabletblHistorie.LoginColumn) = value End Set End Property _ Public Property Logout() As Date Get Try Return CType(Me(Me.tabletblHistorie.LogoutColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Logout in Tabelle tblHistorie ist DBNull.", e) End Try End Get Set Me(Me.tabletblHistorie.LogoutColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblHistorie.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblHistorie ist DBNull.", e) End Try End Get Set Me(Me.tabletblHistorie.upsize_tsColumn) = value End Set End Property _ Public Property tblAnmeldungRowParent() As tblAnmeldungRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblHistorie_FK00")),tblAnmeldungRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblHistorie_FK00")) End Set End Property _ Public Function IsLogoutNull() As Boolean Return Me.IsNull(Me.tabletblHistorie.LogoutColumn) End Function _ Public Sub SetLogoutNull() Me(Me.tabletblHistorie.LogoutColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblHistorie.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblHistorie.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblIDS_TransaktionenRow Inherits Global.System.Data.DataRow Private tabletblIDS_Transaktionen As tblIDS_TransaktionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblIDS_Transaktionen = CType(Me.Table,tblIDS_TransaktionenDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblIDS_Transaktionen.IdColumn),Integer) End Get Set Me(Me.tabletblIDS_Transaktionen.IdColumn) = value End Set End Property _ Public Property BC_ID() As Integer Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.BC_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BC_ID in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.BC_IDColumn) = value End Set End Property _ Public Property BC_DESCR() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.BC_DESCRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BC_DESCR in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.BC_DESCRColumn) = value End Set End Property _ Public Property CLUB_ID() As Integer Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.CLUB_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CLUB_ID in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.CLUB_IDColumn) = value End Set End Property _ Public Property COU_ISO_COD() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.COU_ISO_CODColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COU_ISO_COD in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.COU_ISO_CODColumn) = value End Set End Property _ Public Property COU_DESCR() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.COU_DESCRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COU_DESCR in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.COU_DESCRColumn) = value End Set End Property _ Public Property CUST_COD() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.CUST_CODColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CUST_COD in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.CUST_CODColumn) = value End Set End Property _ Public Property CUST_LEVEL() As Integer Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.CUST_LEVELColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CUST_LEVEL in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.CUST_LEVELColumn) = value End Set End Property _ Public Property CUST_NAME1() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.CUST_NAME1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CUST_NAME1 in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.CUST_NAME1Column) = value End Set End Property _ Public Property CARD_SER_NUM() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.CARD_SER_NUMColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CARD_SER_NUM in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.CARD_SER_NUMColumn) = value End Set End Property _ Public Property SOU_ISO_COD() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.SOU_ISO_CODColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SOU_ISO_COD in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.SOU_ISO_CODColumn) = value End Set End Property _ Public Property SOU_DESCR() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.SOU_DESCRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SOU_DESCR in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.SOU_DESCRColumn) = value End Set End Property _ Public Property TRS_NUM() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.TRS_NUMColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TRS_NUM in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.TRS_NUMColumn) = value End Set End Property _ Public Property TRS_VERS_NUM() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.TRS_VERS_NUMColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TRS_VERS_NUM in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.TRS_VERS_NUMColumn) = value End Set End Property _ Public Property OUT_COD() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.OUT_CODColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OUT_COD in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.OUT_CODColumn) = value End Set End Property _ Public Property OUT_DESCR() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.OUT_DESCRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OUT_DESCR in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.OUT_DESCRColumn) = value End Set End Property _ Public Property OUT_GRP_COD() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.OUT_GRP_CODColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OUT_GRP_COD in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.OUT_GRP_CODColumn) = value End Set End Property _ Public Property TRS_DATE() As Date Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.TRS_DATEColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TRS_DATE in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.TRS_DATEColumn) = value End Set End Property _ Public Property TOT_QTY() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.TOT_QTYColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TOT_QTY in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.TOT_QTYColumn) = value End Set End Property _ Public Property PROD_NUM() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.PROD_NUMColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PROD_NUM in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.PROD_NUMColumn) = value End Set End Property _ Public Property PROD_DESCR() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.PROD_DESCRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PROD_DESCR in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.PROD_DESCRColumn) = value End Set End Property _ Public Property SERVICE_PROD_NUM() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.SERVICE_PROD_NUMColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVICE_PROD_NUM in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.SERVICE_PROD_NUMColumn) = value End Set End Property _ Public Property SERVICE_PROD_DESCR() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.SERVICE_PROD_DESCRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVICE_PROD_DESCR in Tabelle tblIDS_Transaktionen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.SERVICE_PROD_DESCRColumn) = value End Set End Property _ Public Property SOU_CURR() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.SOU_CURRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SOU_CURR in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.SOU_CURRColumn) = value End Set End Property _ Public Property ORIG_LIST_PRICE() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.ORIG_LIST_PRICEColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ORIG_LIST_PRICE in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.ORIG_LIST_PRICEColumn) = value End Set End Property _ Public Property ORIG_REBATE() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.ORIG_REBATEColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ORIG_REBATE in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.ORIG_REBATEColumn) = value End Set End Property _ Public Property ORIG_PRICE() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.ORIG_PRICEColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ORIG_PRICE in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.ORIG_PRICEColumn) = value End Set End Property _ Public Property PLATTS_PRICE() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.PLATTS_PRICEColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLATTS_PRICE in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.PLATTS_PRICEColumn) = value End Set End Property _ Public Property SC_BC_RATE() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.SC_BC_RATEColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SC_BC_RATE in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.SC_BC_RATEColumn) = value End Set End Property _ Public Property SC_IV_BC_AMNT() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.SC_IV_BC_AMNTColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SC_IV_BC_AMNT in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.SC_IV_BC_AMNTColumn) = value End Set End Property _ Public Property COU_BENEFICIARY_CURR() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.COU_BENEFICIARY_CURRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COU_BENEFICIARY_CURR in Tabelle tblIDS_Transaktionen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.COU_BENEFICIARY_CURRColumn) = value End Set End Property _ Public Property CO_IV_BC_AMNT() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.CO_IV_BC_AMNTColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CO_IV_BC_AMNT in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.CO_IV_BC_AMNTColumn) = value End Set End Property _ Public Property EUR_IV_BC_AMNT() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.EUR_IV_BC_AMNTColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EUR_IV_BC_AMNT in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.EUR_IV_BC_AMNTColumn) = value End Set End Property _ Public Property SC_CO_EXCHRATE() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.SC_CO_EXCHRATEColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SC_CO_EXCHRATE in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.SC_CO_EXCHRATEColumn) = value End Set End Property _ Public Property SC_EUR_EXCHRATE() As Decimal Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.SC_EUR_EXCHRATEColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SC_EUR_EXCHRATE in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.SC_EUR_EXCHRATEColumn) = value End Set End Property _ Public Property BC_INVO_DATE() As Date Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.BC_INVO_DATEColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BC_INVO_DATE in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.BC_INVO_DATEColumn) = value End Set End Property _ Public Property INVO_NUM() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.INVO_NUMColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INVO_NUM in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.INVO_NUMColumn) = value End Set End Property _ Public Property FIXED_OR_TOTAL() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.FIXED_OR_TOTALColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FIXED_OR_TOTAL in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.FIXED_OR_TOTALColumn) = value End Set End Property _ Public Property BC_TYPE() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.BC_TYPEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BC_TYPE in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.BC_TYPEColumn) = value End Set End Property _ Public Property COU_BENEFICIARY() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.COU_BENEFICIARYColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COU_BENEFICIARY in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.COU_BENEFICIARYColumn) = value End Set End Property _ Public Property CUST_BENEFICIARY() As String Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.CUST_BENEFICIARYColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CUST_BENEFICIARY in Tabelle tblIDS_Transaktionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.CUST_BENEFICIARYColumn) = value End Set End Property _ Public Property LEVEL_BENEFICIARY() As Integer Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.LEVEL_BENEFICIARYColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LEVEL_BENEFICIARY in Tabelle tblIDS_Transaktionen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.LEVEL_BENEFICIARYColumn) = value End Set End Property _ Public Property CUST_GRP_BENEFICIARY() As Integer Get Try Return CType(Me(Me.tabletblIDS_Transaktionen.CUST_GRP_BENEFICIARYColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CUST_GRP_BENEFICIARY in Tabelle tblIDS_Transaktionen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblIDS_Transaktionen.CUST_GRP_BENEFICIARYColumn) = value End Set End Property _ Public Property Importiert() As Date Get Return CType(Me(Me.tabletblIDS_Transaktionen.ImportiertColumn),Date) End Get Set Me(Me.tabletblIDS_Transaktionen.ImportiertColumn) = value End Set End Property _ Public Function IsBC_IDNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.BC_IDColumn) End Function _ Public Sub SetBC_IDNull() Me(Me.tabletblIDS_Transaktionen.BC_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBC_DESCRNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.BC_DESCRColumn) End Function _ Public Sub SetBC_DESCRNull() Me(Me.tabletblIDS_Transaktionen.BC_DESCRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCLUB_IDNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.CLUB_IDColumn) End Function _ Public Sub SetCLUB_IDNull() Me(Me.tabletblIDS_Transaktionen.CLUB_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOU_ISO_CODNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.COU_ISO_CODColumn) End Function _ Public Sub SetCOU_ISO_CODNull() Me(Me.tabletblIDS_Transaktionen.COU_ISO_CODColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOU_DESCRNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.COU_DESCRColumn) End Function _ Public Sub SetCOU_DESCRNull() Me(Me.tabletblIDS_Transaktionen.COU_DESCRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCUST_CODNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.CUST_CODColumn) End Function _ Public Sub SetCUST_CODNull() Me(Me.tabletblIDS_Transaktionen.CUST_CODColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCUST_LEVELNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.CUST_LEVELColumn) End Function _ Public Sub SetCUST_LEVELNull() Me(Me.tabletblIDS_Transaktionen.CUST_LEVELColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCUST_NAME1Null() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.CUST_NAME1Column) End Function _ Public Sub SetCUST_NAME1Null() Me(Me.tabletblIDS_Transaktionen.CUST_NAME1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCARD_SER_NUMNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.CARD_SER_NUMColumn) End Function _ Public Sub SetCARD_SER_NUMNull() Me(Me.tabletblIDS_Transaktionen.CARD_SER_NUMColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSOU_ISO_CODNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.SOU_ISO_CODColumn) End Function _ Public Sub SetSOU_ISO_CODNull() Me(Me.tabletblIDS_Transaktionen.SOU_ISO_CODColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSOU_DESCRNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.SOU_DESCRColumn) End Function _ Public Sub SetSOU_DESCRNull() Me(Me.tabletblIDS_Transaktionen.SOU_DESCRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTRS_NUMNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.TRS_NUMColumn) End Function _ Public Sub SetTRS_NUMNull() Me(Me.tabletblIDS_Transaktionen.TRS_NUMColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTRS_VERS_NUMNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.TRS_VERS_NUMColumn) End Function _ Public Sub SetTRS_VERS_NUMNull() Me(Me.tabletblIDS_Transaktionen.TRS_VERS_NUMColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOUT_CODNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.OUT_CODColumn) End Function _ Public Sub SetOUT_CODNull() Me(Me.tabletblIDS_Transaktionen.OUT_CODColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOUT_DESCRNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.OUT_DESCRColumn) End Function _ Public Sub SetOUT_DESCRNull() Me(Me.tabletblIDS_Transaktionen.OUT_DESCRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOUT_GRP_CODNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.OUT_GRP_CODColumn) End Function _ Public Sub SetOUT_GRP_CODNull() Me(Me.tabletblIDS_Transaktionen.OUT_GRP_CODColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTRS_DATENull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.TRS_DATEColumn) End Function _ Public Sub SetTRS_DATENull() Me(Me.tabletblIDS_Transaktionen.TRS_DATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTOT_QTYNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.TOT_QTYColumn) End Function _ Public Sub SetTOT_QTYNull() Me(Me.tabletblIDS_Transaktionen.TOT_QTYColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPROD_NUMNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.PROD_NUMColumn) End Function _ Public Sub SetPROD_NUMNull() Me(Me.tabletblIDS_Transaktionen.PROD_NUMColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPROD_DESCRNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.PROD_DESCRColumn) End Function _ Public Sub SetPROD_DESCRNull() Me(Me.tabletblIDS_Transaktionen.PROD_DESCRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSERVICE_PROD_NUMNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.SERVICE_PROD_NUMColumn) End Function _ Public Sub SetSERVICE_PROD_NUMNull() Me(Me.tabletblIDS_Transaktionen.SERVICE_PROD_NUMColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSERVICE_PROD_DESCRNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.SERVICE_PROD_DESCRColumn) End Function _ Public Sub SetSERVICE_PROD_DESCRNull() Me(Me.tabletblIDS_Transaktionen.SERVICE_PROD_DESCRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSOU_CURRNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.SOU_CURRColumn) End Function _ Public Sub SetSOU_CURRNull() Me(Me.tabletblIDS_Transaktionen.SOU_CURRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsORIG_LIST_PRICENull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.ORIG_LIST_PRICEColumn) End Function _ Public Sub SetORIG_LIST_PRICENull() Me(Me.tabletblIDS_Transaktionen.ORIG_LIST_PRICEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsORIG_REBATENull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.ORIG_REBATEColumn) End Function _ Public Sub SetORIG_REBATENull() Me(Me.tabletblIDS_Transaktionen.ORIG_REBATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsORIG_PRICENull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.ORIG_PRICEColumn) End Function _ Public Sub SetORIG_PRICENull() Me(Me.tabletblIDS_Transaktionen.ORIG_PRICEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPLATTS_PRICENull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.PLATTS_PRICEColumn) End Function _ Public Sub SetPLATTS_PRICENull() Me(Me.tabletblIDS_Transaktionen.PLATTS_PRICEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSC_BC_RATENull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.SC_BC_RATEColumn) End Function _ Public Sub SetSC_BC_RATENull() Me(Me.tabletblIDS_Transaktionen.SC_BC_RATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSC_IV_BC_AMNTNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.SC_IV_BC_AMNTColumn) End Function _ Public Sub SetSC_IV_BC_AMNTNull() Me(Me.tabletblIDS_Transaktionen.SC_IV_BC_AMNTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOU_BENEFICIARY_CURRNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.COU_BENEFICIARY_CURRColumn) End Function _ Public Sub SetCOU_BENEFICIARY_CURRNull() Me(Me.tabletblIDS_Transaktionen.COU_BENEFICIARY_CURRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCO_IV_BC_AMNTNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.CO_IV_BC_AMNTColumn) End Function _ Public Sub SetCO_IV_BC_AMNTNull() Me(Me.tabletblIDS_Transaktionen.CO_IV_BC_AMNTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEUR_IV_BC_AMNTNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.EUR_IV_BC_AMNTColumn) End Function _ Public Sub SetEUR_IV_BC_AMNTNull() Me(Me.tabletblIDS_Transaktionen.EUR_IV_BC_AMNTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSC_CO_EXCHRATENull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.SC_CO_EXCHRATEColumn) End Function _ Public Sub SetSC_CO_EXCHRATENull() Me(Me.tabletblIDS_Transaktionen.SC_CO_EXCHRATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSC_EUR_EXCHRATENull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.SC_EUR_EXCHRATEColumn) End Function _ Public Sub SetSC_EUR_EXCHRATENull() Me(Me.tabletblIDS_Transaktionen.SC_EUR_EXCHRATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBC_INVO_DATENull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.BC_INVO_DATEColumn) End Function _ Public Sub SetBC_INVO_DATENull() Me(Me.tabletblIDS_Transaktionen.BC_INVO_DATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsINVO_NUMNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.INVO_NUMColumn) End Function _ Public Sub SetINVO_NUMNull() Me(Me.tabletblIDS_Transaktionen.INVO_NUMColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFIXED_OR_TOTALNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.FIXED_OR_TOTALColumn) End Function _ Public Sub SetFIXED_OR_TOTALNull() Me(Me.tabletblIDS_Transaktionen.FIXED_OR_TOTALColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBC_TYPENull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.BC_TYPEColumn) End Function _ Public Sub SetBC_TYPENull() Me(Me.tabletblIDS_Transaktionen.BC_TYPEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOU_BENEFICIARYNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.COU_BENEFICIARYColumn) End Function _ Public Sub SetCOU_BENEFICIARYNull() Me(Me.tabletblIDS_Transaktionen.COU_BENEFICIARYColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCUST_BENEFICIARYNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.CUST_BENEFICIARYColumn) End Function _ Public Sub SetCUST_BENEFICIARYNull() Me(Me.tabletblIDS_Transaktionen.CUST_BENEFICIARYColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLEVEL_BENEFICIARYNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.LEVEL_BENEFICIARYColumn) End Function _ Public Sub SetLEVEL_BENEFICIARYNull() Me(Me.tabletblIDS_Transaktionen.LEVEL_BENEFICIARYColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCUST_GRP_BENEFICIARYNull() As Boolean Return Me.IsNull(Me.tabletblIDS_Transaktionen.CUST_GRP_BENEFICIARYColumn) End Function _ Public Sub SetCUST_GRP_BENEFICIARYNull() Me(Me.tabletblIDS_Transaktionen.CUST_GRP_BENEFICIARYColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKassenbuchRow Inherits Global.System.Data.DataRow Private tabletblKassenbuch As tblKassenbuchDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKassenbuch = CType(Me.Table,tblKassenbuchDataTable) End Sub _ Public Property Mandant() As String Get Return CType(Me(Me.tabletblKassenbuch.MandantColumn),String) End Get Set Me(Me.tabletblKassenbuch.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Return CType(Me(Me.tabletblKassenbuch.NiederlassungColumn),String) End Get Set Me(Me.tabletblKassenbuch.NiederlassungColumn) = value End Set End Property _ Public Property Benutzer() As Integer Get Return CType(Me(Me.tabletblKassenbuch.BenutzerColumn),Integer) End Get Set Me(Me.tabletblKassenbuch.BenutzerColumn) = value End Set End Property _ Public Property Geschäftsjahr() As Short Get Return CType(Me(Me.tabletblKassenbuch.GeschäftsjahrColumn),Short) End Get Set Me(Me.tabletblKassenbuch.GeschäftsjahrColumn) = value End Set End Property _ Public Property JournalNr() As Integer Get Return CType(Me(Me.tabletblKassenbuch.JournalNrColumn),Integer) End Get Set Me(Me.tabletblKassenbuch.JournalNrColumn) = value End Set End Property _ Public Property Buchungsdatum() As Date Get Return CType(Me(Me.tabletblKassenbuch.BuchungsdatumColumn),Date) End Get Set Me(Me.tabletblKassenbuch.BuchungsdatumColumn) = value End Set End Property _ Public Property BelegDat() As Date Get Return CType(Me(Me.tabletblKassenbuch.BelegDatColumn),Date) End Get Set Me(Me.tabletblKassenbuch.BelegDatColumn) = value End Set End Property _ Public Property BelegNr() As Integer Get Return CType(Me(Me.tabletblKassenbuch.BelegNrColumn),Integer) End Get Set Me(Me.tabletblKassenbuch.BelegNrColumn) = value End Set End Property _ Public Property Belegart() As Short Get Return CType(Me(Me.tabletblKassenbuch.BelegartColumn),Short) End Get Set Me(Me.tabletblKassenbuch.BelegartColumn) = value End Set End Property _ Public Property Buchungstext() As String Get Return CType(Me(Me.tabletblKassenbuch.BuchungstextColumn),String) End Get Set Me(Me.tabletblKassenbuch.BuchungstextColumn) = value End Set End Property _ Public Property Betrag() As Decimal Get Try Return CType(Me(Me.tabletblKassenbuch.BetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag in Tabelle tblKassenbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblKassenbuch.BetragColumn) = value End Set End Property _ Public Property Währung() As String Get Return CType(Me(Me.tabletblKassenbuch.WährungColumn),String) End Get Set Me(Me.tabletblKassenbuch.WährungColumn) = value End Set End Property _ Public Property Kurs() As Double Get Return CType(Me(Me.tabletblKassenbuch.KursColumn),Double) End Get Set Me(Me.tabletblKassenbuch.KursColumn) = value End Set End Property _ Public Property Eingabeart() As Boolean Get Return CType(Me(Me.tabletblKassenbuch.EingabeartColumn),Boolean) End Get Set Me(Me.tabletblKassenbuch.EingabeartColumn) = value End Set End Property _ Public Property Konto() As Integer Get Return CType(Me(Me.tabletblKassenbuch.KontoColumn),Integer) End Get Set Me(Me.tabletblKassenbuch.KontoColumn) = value End Set End Property _ Public Property Soll() As Decimal Get Return CType(Me(Me.tabletblKassenbuch.SollColumn),Decimal) End Get Set Me(Me.tabletblKassenbuch.SollColumn) = value End Set End Property _ Public Property Haben() As Decimal Get Return CType(Me(Me.tabletblKassenbuch.HabenColumn),Decimal) End Get Set Me(Me.tabletblKassenbuch.HabenColumn) = value End Set End Property _ Public Property Steuer() As Integer Get Return CType(Me(Me.tabletblKassenbuch.SteuerColumn),Integer) End Get Set Me(Me.tabletblKassenbuch.SteuerColumn) = value End Set End Property _ Public Property Steuerbetrag() As Decimal Get Return CType(Me(Me.tabletblKassenbuch.SteuerbetragColumn),Decimal) End Get Set Me(Me.tabletblKassenbuch.SteuerbetragColumn) = value End Set End Property _ Public Property Referenz() As String Get Try Return CType(Me(Me.tabletblKassenbuch.ReferenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Referenz in Tabelle tblKassenbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblKassenbuch.ReferenzColumn) = value End Set End Property _ Public Property Belegverbuchung() As Boolean Get Return CType(Me(Me.tabletblKassenbuch.BelegverbuchungColumn),Boolean) End Get Set Me(Me.tabletblKassenbuch.BelegverbuchungColumn) = value End Set End Property _ Public Property gebucht() As Boolean Get Return CType(Me(Me.tabletblKassenbuch.gebuchtColumn),Boolean) End Get Set Me(Me.tabletblKassenbuch.gebuchtColumn) = value End Set End Property _ Public Property KB_Zeitstempel() As Date Get Try Return CType(Me(Me.tabletblKassenbuch.KB_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KB_Zeitstempel in Tabelle tblKassenbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblKassenbuch.KB_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblKassenbuch.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblKassenbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblKassenbuch.upsize_tsColumn) = value End Set End Property _ Public Property rksv_id() As Integer Get Try Return CType(Me(Me.tabletblKassenbuch.rksv_idColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_id in Tabelle tblKassenbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblKassenbuch.rksv_idColumn) = value End Set End Property _ Public Property rksv_BelegId() As Integer Get Try Return CType(Me(Me.tabletblKassenbuch.rksv_BelegIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_BelegId in Tabelle tblKassenbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblKassenbuch.rksv_BelegIdColumn) = value End Set End Property _ Public Property rksv_aktiv() As Boolean Get Return CType(Me(Me.tabletblKassenbuch.rksv_aktivColumn),Boolean) End Get Set Me(Me.tabletblKassenbuch.rksv_aktivColumn) = value End Set End Property _ Public Property Finanzwege() As String Get Try Return CType(Me(Me.tabletblKassenbuch.FinanzwegeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Finanzwege in Tabelle tblKassenbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblKassenbuch.FinanzwegeColumn) = value End Set End Property _ Public Function IsBetragNull() As Boolean Return Me.IsNull(Me.tabletblKassenbuch.BetragColumn) End Function _ Public Sub SetBetragNull() Me(Me.tabletblKassenbuch.BetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReferenzNull() As Boolean Return Me.IsNull(Me.tabletblKassenbuch.ReferenzColumn) End Function _ Public Sub SetReferenzNull() Me(Me.tabletblKassenbuch.ReferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKB_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletblKassenbuch.KB_ZeitstempelColumn) End Function _ Public Sub SetKB_ZeitstempelNull() Me(Me.tabletblKassenbuch.KB_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblKassenbuch.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblKassenbuch.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_idNull() As Boolean Return Me.IsNull(Me.tabletblKassenbuch.rksv_idColumn) End Function _ Public Sub Setrksv_idNull() Me(Me.tabletblKassenbuch.rksv_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_BelegIdNull() As Boolean Return Me.IsNull(Me.tabletblKassenbuch.rksv_BelegIdColumn) End Function _ Public Sub Setrksv_BelegIdNull() Me(Me.tabletblKassenbuch.rksv_BelegIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFinanzwegeNull() As Boolean Return Me.IsNull(Me.tabletblKassenbuch.FinanzwegeColumn) End Function _ Public Sub SetFinanzwegeNull() Me(Me.tabletblKassenbuch.FinanzwegeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKontoRow Inherits Global.System.Data.DataRow Private tabletblKonto As tblKontoDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKonto = CType(Me.Table,tblKontoDataTable) End Sub _ Public Property KontoNr() As Integer Get Return CType(Me(Me.tabletblKonto.KontoNrColumn),Integer) End Get Set Me(Me.tabletblKonto.KontoNrColumn) = value End Set End Property _ Public Property Bez() As String Get Try Return CType(Me(Me.tabletblKonto.BezColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bez in Tabelle tblKonto ist DBNull.", e) End Try End Get Set Me(Me.tabletblKonto.BezColumn) = value End Set End Property _ Public Property Steuer() As Integer Get Return CType(Me(Me.tabletblKonto.SteuerColumn),Integer) End Get Set Me(Me.tabletblKonto.SteuerColumn) = value End Set End Property _ Public Property Gruppe() As Integer Get Try Return CType(Me(Me.tabletblKonto.GruppeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gruppe in Tabelle tblKonto ist DBNull.", e) End Try End Get Set Me(Me.tabletblKonto.GruppeColumn) = value End Set End Property _ Public Property USTKonto() As String Get Try Return CType(Me(Me.tabletblKonto.USTKontoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USTKonto in Tabelle tblKonto ist DBNull.", e) End Try End Get Set Me(Me.tabletblKonto.USTKontoColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblKonto.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblKonto ist DBNull.", e) End Try End Get Set Me(Me.tabletblKonto.SSMA_TimeStampColumn) = value End Set End Property _ Public Property tblSteuersätzeRow() As tblSteuersätzeRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblKonto${C2FF3095-6D95-4263-9D51-CD3DEDA1AB7B}")),tblSteuersätzeRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblKonto${C2FF3095-6D95-4263-9D51-CD3DEDA1AB7B}")) End Set End Property _ Public Function IsBezNull() As Boolean Return Me.IsNull(Me.tabletblKonto.BezColumn) End Function _ Public Sub SetBezNull() Me(Me.tabletblKonto.BezColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGruppeNull() As Boolean Return Me.IsNull(Me.tabletblKonto.GruppeColumn) End Function _ Public Sub SetGruppeNull() Me(Me.tabletblKonto.GruppeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSTKontoNull() As Boolean Return Me.IsNull(Me.tabletblKonto.USTKontoColumn) End Function _ Public Sub SetUSTKontoNull() Me(Me.tabletblKonto.USTKontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblKonto.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblKonto.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenAufschubkontenRow Inherits Global.System.Data.DataRow Private tabletblKundenAufschubkonten As tblKundenAufschubkontenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenAufschubkonten = CType(Me.Table,tblKundenAufschubkontenDataTable) End Sub _ Public Property kdAkto_id() As Integer Get Return CType(Me(Me.tabletblKundenAufschubkonten.kdAkto_idColumn),Integer) End Get Set Me(Me.tabletblKundenAufschubkonten.kdAkto_idColumn) = value End Set End Property _ Public Property kdAkto_KundenNr() As Integer Get Return CType(Me(Me.tabletblKundenAufschubkonten.kdAkto_KundenNrColumn),Integer) End Get Set Me(Me.tabletblKundenAufschubkonten.kdAkto_KundenNrColumn) = value End Set End Property _ Public Property kdAkto_art() As Integer Get Return CType(Me(Me.tabletblKundenAufschubkonten.kdAkto_artColumn),Integer) End Get Set Me(Me.tabletblKundenAufschubkonten.kdAkto_artColumn) = value End Set End Property _ Public Property kdAkto_hauptzollamt() As String Get Try Return CType(Me(Me.tabletblKundenAufschubkonten.kdAkto_hauptzollamtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdAkto_hauptzollamt in Tabelle tblKundenAufschubkonten ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblKundenAufschubkonten.kdAkto_hauptzollamtColumn) = value End Set End Property _ Public Property kdAkto_kontonummer() As String Get Try Return CType(Me(Me.tabletblKundenAufschubkonten.kdAkto_kontonummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdAkto_kontonummer in Tabelle tblKundenAufschubkonten ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblKundenAufschubkonten.kdAkto_kontonummerColumn) = value End Set End Property _ Public Property kdAkto_bin() As String Get Try Return CType(Me(Me.tabletblKundenAufschubkonten.kdAkto_binColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdAkto_bin in Tabelle tblKundenAufschubkonten ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenAufschubkonten.kdAkto_binColumn) = value End Set End Property _ Public Property kdAkto_eori() As String Get Try Return CType(Me(Me.tabletblKundenAufschubkonten.kdAkto_eoriColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdAkto_eori in Tabelle tblKundenAufschubkonten ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenAufschubkonten.kdAkto_eoriColumn) = value End Set End Property _ Public Property kdAkto_eoriNL() As String Get Try Return CType(Me(Me.tabletblKundenAufschubkonten.kdAkto_eoriNLColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdAkto_eoriNL in Tabelle tblKundenAufschubkonten ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenAufschubkonten.kdAkto_eoriNLColumn) = value End Set End Property _ Public Function IskdAkto_hauptzollamtNull() As Boolean Return Me.IsNull(Me.tabletblKundenAufschubkonten.kdAkto_hauptzollamtColumn) End Function _ Public Sub SetkdAkto_hauptzollamtNull() Me(Me.tabletblKundenAufschubkonten.kdAkto_hauptzollamtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IskdAkto_kontonummerNull() As Boolean Return Me.IsNull(Me.tabletblKundenAufschubkonten.kdAkto_kontonummerColumn) End Function _ Public Sub SetkdAkto_kontonummerNull() Me(Me.tabletblKundenAufschubkonten.kdAkto_kontonummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IskdAkto_binNull() As Boolean Return Me.IsNull(Me.tabletblKundenAufschubkonten.kdAkto_binColumn) End Function _ Public Sub SetkdAkto_binNull() Me(Me.tabletblKundenAufschubkonten.kdAkto_binColumn) = Global.System.Convert.DBNull End Sub _ Public Function IskdAkto_eoriNull() As Boolean Return Me.IsNull(Me.tabletblKundenAufschubkonten.kdAkto_eoriColumn) End Function _ Public Sub SetkdAkto_eoriNull() Me(Me.tabletblKundenAufschubkonten.kdAkto_eoriColumn) = Global.System.Convert.DBNull End Sub _ Public Function IskdAkto_eoriNLNull() As Boolean Return Me.IsNull(Me.tabletblKundenAufschubkonten.kdAkto_eoriNLColumn) End Function _ Public Sub SetkdAkto_eoriNLNull() Me(Me.tabletblKundenAufschubkonten.kdAkto_eoriNLColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenBesonderheitenRow Inherits Global.System.Data.DataRow Private tabletblKundenBesonderheiten As tblKundenBesonderheitenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenBesonderheiten = CType(Me.Table,tblKundenBesonderheitenDataTable) End Sub _ Public Property kdb_id() As Integer Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_idColumn),Integer) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_idColumn) = value End Set End Property _ Public Property kdb_KundenNr() As Integer Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_KundenNrColumn),Integer) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_KundenNrColumn) = value End Set End Property _ Public Property kdb_kategorie() As String Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_kategorieColumn),String) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_kategorieColumn) = value End Set End Property _ Public Property kdb_text() As String Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_textColumn),String) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_textColumn) = value End Set End Property _ Public Property kdb_mitId() As Integer Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_mitIdColumn),Integer) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_mitIdColumn) = value End Set End Property _ Public Property kdb_mitName() As String Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_mitNameColumn),String) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_mitNameColumn) = value End Set End Property _ Public Property kdb_EingetragenAm() As Date Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_EingetragenAmColumn),Date) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_EingetragenAmColumn) = value End Set End Property _ Public Property kdb_AenderungAm() As Date Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_AenderungAmColumn),Date) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_AenderungAmColumn) = value End Set End Property _ Public Property kdb_visible() As Boolean Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_visibleColumn),Boolean) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_visibleColumn) = value End Set End Property _ Public Property kdb_hervorheben() As Boolean Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_hervorhebenColumn),Boolean) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_hervorhebenColumn) = value End Set End Property _ Public Property kdb_history() As Boolean Get Return CType(Me(Me.tabletblKundenBesonderheiten.kdb_historyColumn),Boolean) End Get Set Me(Me.tabletblKundenBesonderheiten.kdb_historyColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenBesonderheiten_KategorienRow Inherits Global.System.Data.DataRow Private tabletblKundenBesonderheiten_Kategorien As tblKundenBesonderheiten_KategorienDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenBesonderheiten_Kategorien = CType(Me.Table,tblKundenBesonderheiten_KategorienDataTable) End Sub _ Public Property kdbkat_kategorie() As String Get Return CType(Me(Me.tabletblKundenBesonderheiten_Kategorien.kdbkat_kategorieColumn),String) End Get Set Me(Me.tabletblKundenBesonderheiten_Kategorien.kdbkat_kategorieColumn) = value End Set End Property _ Public Property kdbkat_bezeichnung() As String Get Return CType(Me(Me.tabletblKundenBesonderheiten_Kategorien.kdbkat_bezeichnungColumn),String) End Get Set Me(Me.tabletblKundenBesonderheiten_Kategorien.kdbkat_bezeichnungColumn) = value End Set End Property _ Public Property kdbkat_Firma() As String Get Return CType(Me(Me.tabletblKundenBesonderheiten_Kategorien.kdbkat_FirmaColumn),String) End Get Set Me(Me.tabletblKundenBesonderheiten_Kategorien.kdbkat_FirmaColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenDatenblattRow Inherits Global.System.Data.DataRow Private tabletblKundenDatenblatt As tblKundenDatenblattDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenDatenblatt = CType(Me.Table,tblKundenDatenblattDataTable) End Sub _ Public Property kdb_KundenNr() As Integer Get Return CType(Me(Me.tabletblKundenDatenblatt.kdb_KundenNrColumn),Integer) End Get Set Me(Me.tabletblKundenDatenblatt.kdb_KundenNrColumn) = value End Set End Property _ Public Property kdb_route() As String Get Try Return CType(Me(Me.tabletblKundenDatenblatt.kdb_routeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdb_route in Tabelle tblKundenDatenblatt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenDatenblatt.kdb_routeColumn) = value End Set End Property _ Public Property kdb_buergschaftsgeber() As String Get Try Return CType(Me(Me.tabletblKundenDatenblatt.kdb_buergschaftsgeberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdb_buergschaftsgeber in Tabelle tblKundenDatenblatt ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblKundenDatenblatt.kdb_buergschaftsgeberColumn) = value End Set End Property _ Public Property kdb_anzahlLKW() As Integer Get Try Return CType(Me(Me.tabletblKundenDatenblatt.kdb_anzahlLKWColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdb_anzahlLKW in Tabelle tblKundenDatenblatt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenDatenblatt.kdb_anzahlLKWColumn) = value End Set End Property _ Public Property kdb_anzahlMA() As Integer Get Try Return CType(Me(Me.tabletblKundenDatenblatt.kdb_anzahlMAColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdb_anzahlMA in Tabelle tblKundenDatenblatt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenDatenblatt.kdb_anzahlMAColumn) = value End Set End Property _ Public Property kdb_bestimmungslandEU() As String Get Try Return CType(Me(Me.tabletblKundenDatenblatt.kdb_bestimmungslandEUColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdb_bestimmungslandEU in Tabelle tblKundenDatenblatt ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblKundenDatenblatt.kdb_bestimmungslandEUColumn) = value End Set End Property _ Public Property kdb_grosskunden() As String Get Try Return CType(Me(Me.tabletblKundenDatenblatt.kdb_grosskundenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdb_grosskunden in Tabelle tblKundenDatenblatt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenDatenblatt.kdb_grosskundenColumn) = value End Set End Property _ Public Property kdb_gueter() As String Get Try Return CType(Me(Me.tabletblKundenDatenblatt.kdb_gueterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdb_gueter in Tabelle tblKundenDatenblatt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenDatenblatt.kdb_gueterColumn) = value End Set End Property _ Public Property kdb_grenzen() As String Get Try Return CType(Me(Me.tabletblKundenDatenblatt.kdb_grenzenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdb_grenzen in Tabelle tblKundenDatenblatt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenDatenblatt.kdb_grenzenColumn) = value End Set End Property _ Public Property kdb_verhaltenAvisierung() As String Get Try Return CType(Me(Me.tabletblKundenDatenblatt.kdb_verhaltenAvisierungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdb_verhaltenAvisierung in Tabelle tblKundenDatenblatt ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblKundenDatenblatt.kdb_verhaltenAvisierungColumn) = value End Set End Property _ Public Property kdb_sonstiges() As String Get Try Return CType(Me(Me.tabletblKundenDatenblatt.kdb_sonstigesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdb_sonstiges in Tabelle tblKundenDatenblatt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenDatenblatt.kdb_sonstigesColumn) = value End Set End Property _ Public Function Iskdb_routeNull() As Boolean Return Me.IsNull(Me.tabletblKundenDatenblatt.kdb_routeColumn) End Function _ Public Sub Setkdb_routeNull() Me(Me.tabletblKundenDatenblatt.kdb_routeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdb_buergschaftsgeberNull() As Boolean Return Me.IsNull(Me.tabletblKundenDatenblatt.kdb_buergschaftsgeberColumn) End Function _ Public Sub Setkdb_buergschaftsgeberNull() Me(Me.tabletblKundenDatenblatt.kdb_buergschaftsgeberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdb_anzahlLKWNull() As Boolean Return Me.IsNull(Me.tabletblKundenDatenblatt.kdb_anzahlLKWColumn) End Function _ Public Sub Setkdb_anzahlLKWNull() Me(Me.tabletblKundenDatenblatt.kdb_anzahlLKWColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdb_anzahlMANull() As Boolean Return Me.IsNull(Me.tabletblKundenDatenblatt.kdb_anzahlMAColumn) End Function _ Public Sub Setkdb_anzahlMANull() Me(Me.tabletblKundenDatenblatt.kdb_anzahlMAColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdb_bestimmungslandEUNull() As Boolean Return Me.IsNull(Me.tabletblKundenDatenblatt.kdb_bestimmungslandEUColumn) End Function _ Public Sub Setkdb_bestimmungslandEUNull() Me(Me.tabletblKundenDatenblatt.kdb_bestimmungslandEUColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdb_grosskundenNull() As Boolean Return Me.IsNull(Me.tabletblKundenDatenblatt.kdb_grosskundenColumn) End Function _ Public Sub Setkdb_grosskundenNull() Me(Me.tabletblKundenDatenblatt.kdb_grosskundenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdb_gueterNull() As Boolean Return Me.IsNull(Me.tabletblKundenDatenblatt.kdb_gueterColumn) End Function _ Public Sub Setkdb_gueterNull() Me(Me.tabletblKundenDatenblatt.kdb_gueterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdb_grenzenNull() As Boolean Return Me.IsNull(Me.tabletblKundenDatenblatt.kdb_grenzenColumn) End Function _ Public Sub Setkdb_grenzenNull() Me(Me.tabletblKundenDatenblatt.kdb_grenzenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdb_verhaltenAvisierungNull() As Boolean Return Me.IsNull(Me.tabletblKundenDatenblatt.kdb_verhaltenAvisierungColumn) End Function _ Public Sub Setkdb_verhaltenAvisierungNull() Me(Me.tabletblKundenDatenblatt.kdb_verhaltenAvisierungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdb_sonstigesNull() As Boolean Return Me.IsNull(Me.tabletblKundenDatenblatt.kdb_sonstigesColumn) End Function _ Public Sub Setkdb_sonstigesNull() Me(Me.tabletblKundenDatenblatt.kdb_sonstigesColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenErweitertRow Inherits Global.System.Data.DataRow Private tabletblKundenErweitert As tblKundenErweitertDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenErweitert = CType(Me.Table,tblKundenErweitertDataTable) End Sub _ Public Property kde_KundenNr() As Integer Get Return CType(Me(Me.tabletblKundenErweitert.kde_KundenNrColumn),Integer) End Get Set Me(Me.tabletblKundenErweitert.kde_KundenNrColumn) = value End Set End Property _ Public Property kde_FirmenwortlautFiskal() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_FirmenwortlautFiskalColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_FirmenwortlautFiskal in Tabelle tblKundenErweitert ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_FirmenwortlautFiskalColumn) = value End Set End Property _ Public Property kde_VerwendetAuftragsNr() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.kde_VerwendetAuftragsNrColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.kde_VerwendetAuftragsNrColumn) = value End Set End Property _ Public Property kde_FixeAuftragsNr() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_FixeAuftragsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_FixeAuftragsNr in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_FixeAuftragsNrColumn) = value End Set End Property _ Public Property kde_qsTeamId() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_qsTeamIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_qsTeamId in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_qsTeamIdColumn) = value End Set End Property _ Public Property kde_qsTeamMAId() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_qsTeamMAIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_qsTeamMAId in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_qsTeamMAIdColumn) = value End Set End Property _ Public Property kde_TeamId() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_TeamIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_TeamId in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_TeamIdColumn) = value End Set End Property _ Public Property kde_TeamMAId() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_TeamMAIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_TeamMAId in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_TeamMAIdColumn) = value End Set End Property _ Public Property kde_qsTeamMAName() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_qsTeamMANameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_qsTeamMAName in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_qsTeamMANameColumn) = value End Set End Property _ Public Property kde_qsTeamName() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_qsTeamNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_qsTeamName in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_qsTeamNameColumn) = value End Set End Property _ Public Property kde_Hoechstkredit() As Double Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_HoechstkreditColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Hoechstkredit in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_HoechstkreditColumn) = value End Set End Property _ Public Property kde_Versicherung_Deckungsstopp() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.kde_Versicherung_DeckungsstoppColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.kde_Versicherung_DeckungsstoppColumn) = value End Set End Property _ Public Property kde_Versicherung_DeckungsstoppDatum() As Date Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Versicherung_DeckungsstoppDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Versicherung_DeckungsstoppDatum in Tabelle tblKundenErwei"& _ "tert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Versicherung_DeckungsstoppDatumColumn) = value End Set End Property _ Public Property kde_Versicherung_Uebergeben() As Boolean Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Versicherung_UebergebenColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Versicherung_Uebergeben in Tabelle tblKundenErweitert ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Versicherung_UebergebenColumn) = value End Set End Property _ Public Property kde_Versicherung_UebergebenAm() As Date Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Versicherung_UebergebenAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Versicherung_UebergebenAm in Tabelle tblKundenErweitert i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Versicherung_UebergebenAmColumn) = value End Set End Property _ Public Property kde_Versicherung_AnerkennungVersicherungsfall() As Boolean Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Versicherung_AnerkennungVersicherungsfall in Tabelle tblK"& _ "undenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallColumn) = value End Set End Property _ Public Property kde_Versicherung_AnerkennungVersicherungsfallAm() As Date Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Versicherung_AnerkennungVersicherungsfallAm in Tabelle tb"& _ "lKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallAmColumn) = value End Set End Property _ Public Property kde_Versicherung_AnerkennungVersicherungsfallAb() As Date Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallAbColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Versicherung_AnerkennungVersicherungsfallAb in Tabelle tb"& _ "lKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallAbColumn) = value End Set End Property _ Public Property kde_txtVersicherungDeckungsquote() As Double Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_txtVersicherungDeckungsquoteColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_txtVersicherungDeckungsquote in Tabelle tblKundenErweiter"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_txtVersicherungDeckungsquoteColumn) = value End Set End Property _ Public Property kde_txtVersicherungNichtVersicherbar() As Boolean Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_txtVersicherungNichtVersicherbarColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_txtVersicherungNichtVersicherbar in Tabelle tblKundenErwe"& _ "itert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_txtVersicherungNichtVersicherbarColumn) = value End Set End Property _ Public Property kde_Versicherung_GemeldeterBetrag() As Decimal Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Versicherung_GemeldeterBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Versicherung_GemeldeterBetrag in Tabelle tblKundenErweite"& _ "rt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Versicherung_GemeldeterBetragColumn) = value End Set End Property _ Public Property kde_txtVersicherungEHNr() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_txtVersicherungEHNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_txtVersicherungEHNr in Tabelle tblKundenErweitert ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_txtVersicherungEHNrColumn) = value End Set End Property _ Public Property kde_Leihgeld_Provision() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Leihgeld_Provision in Tabelle tblKundenErweitert ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionColumn) = value End Set End Property _ Public Property kde_Leihgeld_ProvisionPreisstaffel() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionPreisstaffelColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Leihgeld_ProvisionPreisstaffel in Tabelle tblKundenErweit"& _ "ert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionPreisstaffelColumn) = value End Set End Property _ Public Property kde_Leihgeld_ProvisionAuftraggeber() As Decimal Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionAuftraggeberColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Leihgeld_ProvisionAuftraggeber in Tabelle tblKundenErweit"& _ "ert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionAuftraggeberColumn) = value End Set End Property _ Public Property EmailFreigabeSendungsListe() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.EmailFreigabeSendungsListeColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.EmailFreigabeSendungsListeColumn) = value End Set End Property _ Public Property EmailFreigabe_SteuerbescheidPDF() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.EmailFreigabe_SteuerbescheidPDFColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.EmailFreigabe_SteuerbescheidPDFColumn) = value End Set End Property _ Public Property EmailFreigabe_SteuerbescheidPDF_Bedingung() As Integer Get Return CType(Me(Me.tabletblKundenErweitert.EmailFreigabe_SteuerbescheidPDF_BedingungColumn),Integer) End Get Set Me(Me.tabletblKundenErweitert.EmailFreigabe_SteuerbescheidPDF_BedingungColumn) = value End Set End Property _ Public Property EmailFreigabe_Art() As String Get Return CType(Me(Me.tabletblKundenErweitert.EmailFreigabe_ArtColumn),String) End Get Set Me(Me.tabletblKundenErweitert.EmailFreigabe_ArtColumn) = value End Set End Property _ Public Property EmailFreigabe_VBDPDF() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.EmailFreigabe_VBDPDFColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.EmailFreigabe_VBDPDFColumn) = value End Set End Property _ Public Property EmailFreigabe_ABDPDF() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.EmailFreigabe_ABDPDFColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.EmailFreigabe_ABDPDFColumn) = value End Set End Property _ Public Property Email_AVM() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.Email_AVMColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.Email_AVMColumn) = value End Set End Property _ Public Property Depot_Kunde() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.Depot_KundeColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.Depot_KundeColumn) = value End Set End Property _ Public Property FiBuSchnittstelleLG() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.FiBuSchnittstelleLGColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.FiBuSchnittstelleLGColumn) = value End Set End Property _ Public Property Zahlungsziel2() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.Zahlungsziel2Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsziel2 in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.Zahlungsziel2Column) = value End Set End Property _ Public Property Zahlungsziel3() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.Zahlungsziel3Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsziel3 in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.Zahlungsziel3Column) = value End Set End Property _ Public Property EmailAnkunft_Export() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.EmailAnkunft_ExportColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.EmailAnkunft_ExportColumn) = value End Set End Property _ Public Property EmailFreigabe_Export() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.EmailFreigabe_ExportColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.EmailFreigabe_ExportColumn) = value End Set End Property _ Public Property EmailFreigabe_Export_Art() As String Get Return CType(Me(Me.tabletblKundenErweitert.EmailFreigabe_Export_ArtColumn),String) End Get Set Me(Me.tabletblKundenErweitert.EmailFreigabe_Export_ArtColumn) = value End Set End Property _ Public Property kde_BonitaetsStufe() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_BonitaetsStufeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_BonitaetsStufe in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_BonitaetsStufeColumn) = value End Set End Property _ Public Property kde_Inkasso_Uebergeben() As Boolean Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Inkasso_UebergebenColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Inkasso_Uebergeben in Tabelle tblKundenErweitert ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Inkasso_UebergebenColumn) = value End Set End Property _ Public Property kde_Inkasso_UebergebenAm() As Date Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Inkasso_UebergebenAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Inkasso_UebergebenAm in Tabelle tblKundenErweitert ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Inkasso_UebergebenAmColumn) = value End Set End Property _ Public Property kde_Inkasso_GemeldeterBetrag() As Decimal Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Inkasso_GemeldeterBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Inkasso_GemeldeterBetrag in Tabelle tblKundenErweitert is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Inkasso_GemeldeterBetragColumn) = value End Set End Property _ Public Property AutoFakturierung() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.AutoFakturierungColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.AutoFakturierungColumn) = value End Set End Property _ Public Property Anmerkungen_Warnhinweis() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.Anmerkungen_WarnhinweisColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anmerkungen_Warnhinweis in Tabelle tblKundenErweitert ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.Anmerkungen_WarnhinweisColumn) = value End Set End Property _ Public Property kde_VERAG_INTERFACE_ID() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_VERAG_INTERFACE_IDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_VERAG_INTERFACE_ID in Tabelle tblKundenErweitert ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_VERAG_INTERFACE_IDColumn) = value End Set End Property _ Public Property kde_BesonderheitenNeu() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.kde_BesonderheitenNeuColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.kde_BesonderheitenNeuColumn) = value End Set End Property _ Public Property kde_InfoAuftragsNr() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_InfoAuftragsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_InfoAuftragsNr in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_InfoAuftragsNrColumn) = value End Set End Property _ Public Property kde_KundeFremdspedition() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.kde_KundeFremdspeditionColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.kde_KundeFremdspeditionColumn) = value End Set End Property _ Public Property kde_verzolltBei() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_verzolltBeiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_verzolltBei in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_verzolltBeiColumn) = value End Set End Property _ Public Property kde_KundeFremdspeditionExport() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.kde_KundeFremdspeditionExportColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.kde_KundeFremdspeditionExportColumn) = value End Set End Property _ Public Property kde_verzolltBeiExport() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_verzolltBeiExportColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_verzolltBeiExport in Tabelle tblKundenErweitert ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_verzolltBeiExportColumn) = value End Set End Property _ Public Property Veranlagungskunde() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.VeranlagungskundeColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.VeranlagungskundeColumn) = value End Set End Property _ Public Property kde_API_Tradeshift() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.kde_API_TradeshiftColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.kde_API_TradeshiftColumn) = value End Set End Property _ Public Property kde_FakturierungSR_Details() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.kde_FakturierungSR_DetailsColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.kde_FakturierungSR_DetailsColumn) = value End Set End Property _ Public Property kde_Fakturierung_Sprache() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_Fakturierung_SpracheColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Fakturierung_Sprache in Tabelle tblKundenErweitert ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_Fakturierung_SpracheColumn) = value End Set End Property _ Public Property kde_TOBB_KundenNr() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_TOBB_KundenNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_TOBB_KundenNr in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_TOBB_KundenNrColumn) = value End Set End Property _ Public Property kde_CreditSaveBonitaetsklasse() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsklasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_CreditSaveBonitaetsklasse in Tabelle tblKundenErweitert i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsklasseColumn) = value End Set End Property _ Public Property kde_CreditSaveBonitaetsIndex() As Double Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsIndexColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_CreditSaveBonitaetsIndex in Tabelle tblKundenErweitert is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsIndexColumn) = value End Set End Property _ Public Property kde_CreditSaveBonitaetsScore() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsScoreColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_CreditSaveBonitaetsScore in Tabelle tblKundenErweitert is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsScoreColumn) = value End Set End Property _ Public Property kde_CreditSaveId() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_CreditSaveIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_CreditSaveId in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_CreditSaveIdColumn) = value End Set End Property _ Public Property kde_CreditSaveNo() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_CreditSaveNoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_CreditSaveNo in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_CreditSaveNoColumn) = value End Set End Property _ Public Property kde_Abrechnung_SendungsdatenAusSTB() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.kde_Abrechnung_SendungsdatenAusSTBColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.kde_Abrechnung_SendungsdatenAusSTBColumn) = value End Set End Property _ Public Property kde_UIDMehrfachverwendung() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.kde_UIDMehrfachverwendungColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.kde_UIDMehrfachverwendungColumn) = value End Set End Property _ Public Property kde_EORIgeprueftAm() As Date Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_EORIgeprueftAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_EORIgeprueftAm in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_EORIgeprueftAmColumn) = value End Set End Property _ Public Property kde_AdressZusatz() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_AdressZusatzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_AdressZusatz in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_AdressZusatzColumn) = value End Set End Property _ Public Property kde_abweichendesZZVL() As Integer Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_abweichendesZZVLColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_abweichendesZZVL in Tabelle tblKundenErweitert ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_abweichendesZZVLColumn) = value End Set End Property _ Public Property kde_HRNr() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_HRNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_HRNr in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_HRNrColumn) = value End Set End Property _ Public Property kde_Kapital() As Decimal Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_KapitalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_Kapital in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_KapitalColumn) = value End Set End Property _ Public Property kde_KapitalWaehrung() As String Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_KapitalWaehrungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_KapitalWaehrung in Tabelle tblKundenErweitert ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_KapitalWaehrungColumn) = value End Set End Property _ Public Property kde_GruendungsDatum() As Date Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_GruendungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_GruendungsDatum in Tabelle tblKundenErweitert ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_GruendungsDatumColumn) = value End Set End Property _ Public Property kde_WechselBetrag() As Decimal Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_WechselBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_WechselBetrag in Tabelle tblKundenErweitert ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_WechselBetragColumn) = value End Set End Property _ Public Property kde_WechselGueltigBis() As Date Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_WechselGueltigBisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_WechselGueltigBis in Tabelle tblKundenErweitert ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_WechselGueltigBisColumn) = value End Set End Property _ Public Property kde_WechselErhaltenAm() As Date Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_WechselErhaltenAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_WechselErhaltenAm in Tabelle tblKundenErweitert ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_WechselErhaltenAmColumn) = value End Set End Property _ Public Property kde_BankgarantielErhaltenAm() As Date Get Try Return CType(Me(Me.tabletblKundenErweitert.kde_BankgarantielErhaltenAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kde_BankgarantielErhaltenAm in Tabelle tblKundenErweitert ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblKundenErweitert.kde_BankgarantielErhaltenAmColumn) = value End Set End Property _ Public Property kde_WechselBlanko() As Boolean Get Return CType(Me(Me.tabletblKundenErweitert.kde_WechselBlankoColumn),Boolean) End Get Set Me(Me.tabletblKundenErweitert.kde_WechselBlankoColumn) = value End Set End Property _ Public Function Iskde_FirmenwortlautFiskalNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_FirmenwortlautFiskalColumn) End Function _ Public Sub Setkde_FirmenwortlautFiskalNull() Me(Me.tabletblKundenErweitert.kde_FirmenwortlautFiskalColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_FixeAuftragsNrNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_FixeAuftragsNrColumn) End Function _ Public Sub Setkde_FixeAuftragsNrNull() Me(Me.tabletblKundenErweitert.kde_FixeAuftragsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_qsTeamIdNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_qsTeamIdColumn) End Function _ Public Sub Setkde_qsTeamIdNull() Me(Me.tabletblKundenErweitert.kde_qsTeamIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_qsTeamMAIdNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_qsTeamMAIdColumn) End Function _ Public Sub Setkde_qsTeamMAIdNull() Me(Me.tabletblKundenErweitert.kde_qsTeamMAIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_TeamIdNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_TeamIdColumn) End Function _ Public Sub Setkde_TeamIdNull() Me(Me.tabletblKundenErweitert.kde_TeamIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_TeamMAIdNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_TeamMAIdColumn) End Function _ Public Sub Setkde_TeamMAIdNull() Me(Me.tabletblKundenErweitert.kde_TeamMAIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_qsTeamMANameNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_qsTeamMANameColumn) End Function _ Public Sub Setkde_qsTeamMANameNull() Me(Me.tabletblKundenErweitert.kde_qsTeamMANameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_qsTeamNameNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_qsTeamNameColumn) End Function _ Public Sub Setkde_qsTeamNameNull() Me(Me.tabletblKundenErweitert.kde_qsTeamNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_HoechstkreditNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_HoechstkreditColumn) End Function _ Public Sub Setkde_HoechstkreditNull() Me(Me.tabletblKundenErweitert.kde_HoechstkreditColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Versicherung_DeckungsstoppDatumNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Versicherung_DeckungsstoppDatumColumn) End Function _ Public Sub Setkde_Versicherung_DeckungsstoppDatumNull() Me(Me.tabletblKundenErweitert.kde_Versicherung_DeckungsstoppDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Versicherung_UebergebenNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Versicherung_UebergebenColumn) End Function _ Public Sub Setkde_Versicherung_UebergebenNull() Me(Me.tabletblKundenErweitert.kde_Versicherung_UebergebenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Versicherung_UebergebenAmNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Versicherung_UebergebenAmColumn) End Function _ Public Sub Setkde_Versicherung_UebergebenAmNull() Me(Me.tabletblKundenErweitert.kde_Versicherung_UebergebenAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Versicherung_AnerkennungVersicherungsfallNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallColumn) End Function _ Public Sub Setkde_Versicherung_AnerkennungVersicherungsfallNull() Me(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Versicherung_AnerkennungVersicherungsfallAmNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallAmColumn) End Function _ Public Sub Setkde_Versicherung_AnerkennungVersicherungsfallAmNull() Me(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Versicherung_AnerkennungVersicherungsfallAbNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallAbColumn) End Function _ Public Sub Setkde_Versicherung_AnerkennungVersicherungsfallAbNull() Me(Me.tabletblKundenErweitert.kde_Versicherung_AnerkennungVersicherungsfallAbColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_txtVersicherungDeckungsquoteNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_txtVersicherungDeckungsquoteColumn) End Function _ Public Sub Setkde_txtVersicherungDeckungsquoteNull() Me(Me.tabletblKundenErweitert.kde_txtVersicherungDeckungsquoteColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_txtVersicherungNichtVersicherbarNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_txtVersicherungNichtVersicherbarColumn) End Function _ Public Sub Setkde_txtVersicherungNichtVersicherbarNull() Me(Me.tabletblKundenErweitert.kde_txtVersicherungNichtVersicherbarColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Versicherung_GemeldeterBetragNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Versicherung_GemeldeterBetragColumn) End Function _ Public Sub Setkde_Versicherung_GemeldeterBetragNull() Me(Me.tabletblKundenErweitert.kde_Versicherung_GemeldeterBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_txtVersicherungEHNrNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_txtVersicherungEHNrColumn) End Function _ Public Sub Setkde_txtVersicherungEHNrNull() Me(Me.tabletblKundenErweitert.kde_txtVersicherungEHNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Leihgeld_ProvisionNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionColumn) End Function _ Public Sub Setkde_Leihgeld_ProvisionNull() Me(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Leihgeld_ProvisionPreisstaffelNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionPreisstaffelColumn) End Function _ Public Sub Setkde_Leihgeld_ProvisionPreisstaffelNull() Me(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionPreisstaffelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Leihgeld_ProvisionAuftraggeberNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionAuftraggeberColumn) End Function _ Public Sub Setkde_Leihgeld_ProvisionAuftraggeberNull() Me(Me.tabletblKundenErweitert.kde_Leihgeld_ProvisionAuftraggeberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsziel2Null() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.Zahlungsziel2Column) End Function _ Public Sub SetZahlungsziel2Null() Me(Me.tabletblKundenErweitert.Zahlungsziel2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsziel3Null() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.Zahlungsziel3Column) End Function _ Public Sub SetZahlungsziel3Null() Me(Me.tabletblKundenErweitert.Zahlungsziel3Column) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_BonitaetsStufeNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_BonitaetsStufeColumn) End Function _ Public Sub Setkde_BonitaetsStufeNull() Me(Me.tabletblKundenErweitert.kde_BonitaetsStufeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Inkasso_UebergebenNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Inkasso_UebergebenColumn) End Function _ Public Sub Setkde_Inkasso_UebergebenNull() Me(Me.tabletblKundenErweitert.kde_Inkasso_UebergebenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Inkasso_UebergebenAmNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Inkasso_UebergebenAmColumn) End Function _ Public Sub Setkde_Inkasso_UebergebenAmNull() Me(Me.tabletblKundenErweitert.kde_Inkasso_UebergebenAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Inkasso_GemeldeterBetragNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Inkasso_GemeldeterBetragColumn) End Function _ Public Sub Setkde_Inkasso_GemeldeterBetragNull() Me(Me.tabletblKundenErweitert.kde_Inkasso_GemeldeterBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnmerkungen_WarnhinweisNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.Anmerkungen_WarnhinweisColumn) End Function _ Public Sub SetAnmerkungen_WarnhinweisNull() Me(Me.tabletblKundenErweitert.Anmerkungen_WarnhinweisColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_VERAG_INTERFACE_IDNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_VERAG_INTERFACE_IDColumn) End Function _ Public Sub Setkde_VERAG_INTERFACE_IDNull() Me(Me.tabletblKundenErweitert.kde_VERAG_INTERFACE_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_InfoAuftragsNrNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_InfoAuftragsNrColumn) End Function _ Public Sub Setkde_InfoAuftragsNrNull() Me(Me.tabletblKundenErweitert.kde_InfoAuftragsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_verzolltBeiNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_verzolltBeiColumn) End Function _ Public Sub Setkde_verzolltBeiNull() Me(Me.tabletblKundenErweitert.kde_verzolltBeiColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_verzolltBeiExportNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_verzolltBeiExportColumn) End Function _ Public Sub Setkde_verzolltBeiExportNull() Me(Me.tabletblKundenErweitert.kde_verzolltBeiExportColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_Fakturierung_SpracheNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_Fakturierung_SpracheColumn) End Function _ Public Sub Setkde_Fakturierung_SpracheNull() Me(Me.tabletblKundenErweitert.kde_Fakturierung_SpracheColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_TOBB_KundenNrNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_TOBB_KundenNrColumn) End Function _ Public Sub Setkde_TOBB_KundenNrNull() Me(Me.tabletblKundenErweitert.kde_TOBB_KundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_CreditSaveBonitaetsklasseNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsklasseColumn) End Function _ Public Sub Setkde_CreditSaveBonitaetsklasseNull() Me(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsklasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_CreditSaveBonitaetsIndexNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsIndexColumn) End Function _ Public Sub Setkde_CreditSaveBonitaetsIndexNull() Me(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsIndexColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_CreditSaveBonitaetsScoreNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsScoreColumn) End Function _ Public Sub Setkde_CreditSaveBonitaetsScoreNull() Me(Me.tabletblKundenErweitert.kde_CreditSaveBonitaetsScoreColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_CreditSaveIdNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_CreditSaveIdColumn) End Function _ Public Sub Setkde_CreditSaveIdNull() Me(Me.tabletblKundenErweitert.kde_CreditSaveIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_CreditSaveNoNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_CreditSaveNoColumn) End Function _ Public Sub Setkde_CreditSaveNoNull() Me(Me.tabletblKundenErweitert.kde_CreditSaveNoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_EORIgeprueftAmNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_EORIgeprueftAmColumn) End Function _ Public Sub Setkde_EORIgeprueftAmNull() Me(Me.tabletblKundenErweitert.kde_EORIgeprueftAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_AdressZusatzNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_AdressZusatzColumn) End Function _ Public Sub Setkde_AdressZusatzNull() Me(Me.tabletblKundenErweitert.kde_AdressZusatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_abweichendesZZVLNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_abweichendesZZVLColumn) End Function _ Public Sub Setkde_abweichendesZZVLNull() Me(Me.tabletblKundenErweitert.kde_abweichendesZZVLColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_HRNrNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_HRNrColumn) End Function _ Public Sub Setkde_HRNrNull() Me(Me.tabletblKundenErweitert.kde_HRNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_KapitalNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_KapitalColumn) End Function _ Public Sub Setkde_KapitalNull() Me(Me.tabletblKundenErweitert.kde_KapitalColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_KapitalWaehrungNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_KapitalWaehrungColumn) End Function _ Public Sub Setkde_KapitalWaehrungNull() Me(Me.tabletblKundenErweitert.kde_KapitalWaehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_GruendungsDatumNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_GruendungsDatumColumn) End Function _ Public Sub Setkde_GruendungsDatumNull() Me(Me.tabletblKundenErweitert.kde_GruendungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_WechselBetragNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_WechselBetragColumn) End Function _ Public Sub Setkde_WechselBetragNull() Me(Me.tabletblKundenErweitert.kde_WechselBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_WechselGueltigBisNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_WechselGueltigBisColumn) End Function _ Public Sub Setkde_WechselGueltigBisNull() Me(Me.tabletblKundenErweitert.kde_WechselGueltigBisColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_WechselErhaltenAmNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_WechselErhaltenAmColumn) End Function _ Public Sub Setkde_WechselErhaltenAmNull() Me(Me.tabletblKundenErweitert.kde_WechselErhaltenAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskde_BankgarantielErhaltenAmNull() As Boolean Return Me.IsNull(Me.tabletblKundenErweitert.kde_BankgarantielErhaltenAmColumn) End Function _ Public Sub Setkde_BankgarantielErhaltenAmNull() Me(Me.tabletblKundenErweitert.kde_BankgarantielErhaltenAmColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenKontaktRow Inherits Global.System.Data.DataRow Private tabletblKundenKontakt As tblKundenKontaktDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenKontakt = CType(Me.Table,tblKundenKontaktDataTable) End Sub _ Public Property kkd_id() As Integer Get Return CType(Me(Me.tabletblKundenKontakt.kkd_idColumn),Integer) End Get Set Me(Me.tabletblKundenKontakt.kkd_idColumn) = value End Set End Property _ Public Property kkd_KundenNr() As Integer Get Return CType(Me(Me.tabletblKundenKontakt.kkd_KundenNrColumn),Integer) End Get Set Me(Me.tabletblKundenKontakt.kkd_KundenNrColumn) = value End Set End Property _ Public Property kkd_kkaId() As Integer Get Return CType(Me(Me.tabletblKundenKontakt.kkd_kkaIdColumn),Integer) End Get Set Me(Me.tabletblKundenKontakt.kkd_kkaIdColumn) = value End Set End Property _ Public Property kkd_kkaBez() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_kkaBezColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_kkaBez in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_kkaBezColumn) = value End Set End Property _ Public Property kkd_Tel() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_TelColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Tel in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_TelColumn) = value End Set End Property _ Public Property kkd_Email() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_EmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Email in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_EmailColumn) = value End Set End Property _ Public Property kkd_EmailCC() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_EmailCCColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_EmailCC in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_EmailCCColumn) = value End Set End Property _ Public Property kkd_EmailBCC() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_EmailBCCColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_EmailBCC in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_EmailBCCColumn) = value End Set End Property _ Public Property kkd_Fax() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_FaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Fax in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_FaxColumn) = value End Set End Property _ Public Property kkd_Homepage() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_HomepageColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Homepage in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_HomepageColumn) = value End Set End Property _ Public Property kkd_Mobil() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_MobilColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Mobil in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_MobilColumn) = value End Set End Property _ Public Property kkd_AnsprechpartnerAnrede() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_AnsprechpartnerAnredeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_AnsprechpartnerAnrede in Tabelle tblKundenKontakt ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_AnsprechpartnerAnredeColumn) = value End Set End Property _ Public Property kkd_AnsprechpartnerVorname() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_AnsprechpartnerVornameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_AnsprechpartnerVorname in Tabelle tblKundenKontakt ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_AnsprechpartnerVornameColumn) = value End Set End Property _ Public Property kkd_AnsprechpartnerNachname() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_AnsprechpartnerNachnameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_AnsprechpartnerNachname in Tabelle tblKundenKontakt ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_AnsprechpartnerNachnameColumn) = value End Set End Property _ Public Property kkd_Adresse() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_AdresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Adresse in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_AdresseColumn) = value End Set End Property _ Public Property kkd_Ort() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Ort in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_OrtColumn) = value End Set End Property _ Public Property kkd_Land() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Land in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_LandColumn) = value End Set End Property _ Public Property kkd_PLZ() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_PLZ in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_PLZColumn) = value End Set End Property _ Public Property kkd_GebDatum() As Date Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_GebDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_GebDatum in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_GebDatumColumn) = value End Set End Property _ Public Property kkd_Passgueltigbis() As Date Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_PassgueltigbisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Passgueltigbis in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_PassgueltigbisColumn) = value End Set End Property _ Public Property kkd_Firmenname() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_FirmennameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Firmenname in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_FirmennameColumn) = value End Set End Property _ Public Property kkd_Geburtsland() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_GeburtslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Geburtsland in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_GeburtslandColumn) = value End Set End Property _ Public Property kkd_Geburtsort() As String Get Try Return CType(Me(Me.tabletblKundenKontakt.kkd_GeburtsortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kkd_Geburtsort in Tabelle tblKundenKontakt ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenKontakt.kkd_GeburtsortColumn) = value End Set End Property _ Public Function Iskkd_kkaBezNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_kkaBezColumn) End Function _ Public Sub Setkkd_kkaBezNull() Me(Me.tabletblKundenKontakt.kkd_kkaBezColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_TelNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_TelColumn) End Function _ Public Sub Setkkd_TelNull() Me(Me.tabletblKundenKontakt.kkd_TelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_EmailNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_EmailColumn) End Function _ Public Sub Setkkd_EmailNull() Me(Me.tabletblKundenKontakt.kkd_EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_EmailCCNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_EmailCCColumn) End Function _ Public Sub Setkkd_EmailCCNull() Me(Me.tabletblKundenKontakt.kkd_EmailCCColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_EmailBCCNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_EmailBCCColumn) End Function _ Public Sub Setkkd_EmailBCCNull() Me(Me.tabletblKundenKontakt.kkd_EmailBCCColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_FaxNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_FaxColumn) End Function _ Public Sub Setkkd_FaxNull() Me(Me.tabletblKundenKontakt.kkd_FaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_HomepageNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_HomepageColumn) End Function _ Public Sub Setkkd_HomepageNull() Me(Me.tabletblKundenKontakt.kkd_HomepageColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_MobilNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_MobilColumn) End Function _ Public Sub Setkkd_MobilNull() Me(Me.tabletblKundenKontakt.kkd_MobilColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_AnsprechpartnerAnredeNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_AnsprechpartnerAnredeColumn) End Function _ Public Sub Setkkd_AnsprechpartnerAnredeNull() Me(Me.tabletblKundenKontakt.kkd_AnsprechpartnerAnredeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_AnsprechpartnerVornameNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_AnsprechpartnerVornameColumn) End Function _ Public Sub Setkkd_AnsprechpartnerVornameNull() Me(Me.tabletblKundenKontakt.kkd_AnsprechpartnerVornameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_AnsprechpartnerNachnameNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_AnsprechpartnerNachnameColumn) End Function _ Public Sub Setkkd_AnsprechpartnerNachnameNull() Me(Me.tabletblKundenKontakt.kkd_AnsprechpartnerNachnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_AdresseNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_AdresseColumn) End Function _ Public Sub Setkkd_AdresseNull() Me(Me.tabletblKundenKontakt.kkd_AdresseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_OrtNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_OrtColumn) End Function _ Public Sub Setkkd_OrtNull() Me(Me.tabletblKundenKontakt.kkd_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_LandNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_LandColumn) End Function _ Public Sub Setkkd_LandNull() Me(Me.tabletblKundenKontakt.kkd_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_PLZNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_PLZColumn) End Function _ Public Sub Setkkd_PLZNull() Me(Me.tabletblKundenKontakt.kkd_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_GebDatumNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_GebDatumColumn) End Function _ Public Sub Setkkd_GebDatumNull() Me(Me.tabletblKundenKontakt.kkd_GebDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_PassgueltigbisNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_PassgueltigbisColumn) End Function _ Public Sub Setkkd_PassgueltigbisNull() Me(Me.tabletblKundenKontakt.kkd_PassgueltigbisColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_FirmennameNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_FirmennameColumn) End Function _ Public Sub Setkkd_FirmennameNull() Me(Me.tabletblKundenKontakt.kkd_FirmennameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_GeburtslandNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_GeburtslandColumn) End Function _ Public Sub Setkkd_GeburtslandNull() Me(Me.tabletblKundenKontakt.kkd_GeburtslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskkd_GeburtsortNull() As Boolean Return Me.IsNull(Me.tabletblKundenKontakt.kkd_GeburtsortColumn) End Function _ Public Sub Setkkd_GeburtsortNull() Me(Me.tabletblKundenKontakt.kkd_GeburtsortColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenKontaktArtenRow Inherits Global.System.Data.DataRow Private tabletblKundenKontaktArten As tblKundenKontaktArtenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenKontaktArten = CType(Me.Table,tblKundenKontaktArtenDataTable) End Sub _ Public Property kka_id() As Integer Get Return CType(Me(Me.tabletblKundenKontaktArten.kka_idColumn),Integer) End Get Set Me(Me.tabletblKundenKontaktArten.kka_idColumn) = value End Set End Property _ Public Property kka_Bezeichnung() As String Get Return CType(Me(Me.tabletblKundenKontaktArten.kka_BezeichnungColumn),String) End Get Set Me(Me.tabletblKundenKontaktArten.kka_BezeichnungColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenumsatzRow Inherits Global.System.Data.DataRow Private tabletblKundenumsatz As tblKundenumsatzDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenumsatz = CType(Me.Table,tblKundenumsatzDataTable) End Sub _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tabletblKundenumsatz.KundenNrColumn),Integer) End Get Set Me(Me.tabletblKundenumsatz.KundenNrColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tabletblKundenumsatz.Firma_IDColumn),Short) End Get Set Me(Me.tabletblKundenumsatz.Firma_IDColumn) = value End Set End Property _ Public Property Jahr() As Short Get Return CType(Me(Me.tabletblKundenumsatz.JahrColumn),Short) End Get Set Me(Me.tabletblKundenumsatz.JahrColumn) = value End Set End Property _ Public Property steuerpflichtig() As Decimal Get Try Return CType(Me(Me.tabletblKundenumsatz.steuerpflichtigColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte steuerpflichtig in Tabelle tblKundenumsatz ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenumsatz.steuerpflichtigColumn) = value End Set End Property _ Public Property steuerfrei() As Decimal Get Try Return CType(Me(Me.tabletblKundenumsatz.steuerfreiColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte steuerfrei in Tabelle tblKundenumsatz ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenumsatz.steuerfreiColumn) = value End Set End Property _ Public Property Nettoumsatz() As Decimal Get Try Return CType(Me(Me.tabletblKundenumsatz.NettoumsatzColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettoumsatz in Tabelle tblKundenumsatz ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenumsatz.NettoumsatzColumn) = value End Set End Property _ Public Property MwSt() As Decimal Get Try Return CType(Me(Me.tabletblKundenumsatz.MwStColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MwSt in Tabelle tblKundenumsatz ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenumsatz.MwStColumn) = value End Set End Property _ Public Property Bruttoumsatz() As Decimal Get Try Return CType(Me(Me.tabletblKundenumsatz.BruttoumsatzColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bruttoumsatz in Tabelle tblKundenumsatz ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenumsatz.BruttoumsatzColumn) = value End Set End Property _ Public Property Währung() As String Get Return CType(Me(Me.tabletblKundenumsatz.WährungColumn),String) End Get Set Me(Me.tabletblKundenumsatz.WährungColumn) = value End Set End Property _ Public Property Rechnungen() As Double Get Try Return CType(Me(Me.tabletblKundenumsatz.RechnungenColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungen in Tabelle tblKundenumsatz ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenumsatz.RechnungenColumn) = value End Set End Property _ Public Property Gutschriften() As Double Get Try Return CType(Me(Me.tabletblKundenumsatz.GutschriftenColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gutschriften in Tabelle tblKundenumsatz ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenumsatz.GutschriftenColumn) = value End Set End Property _ Public Property Datum() As Date Get Try Return CType(Me(Me.tabletblKundenumsatz.DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datum in Tabelle tblKundenumsatz ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenumsatz.DatumColumn) = value End Set End Property _ Public Property Nummer() As Integer Get Try Return CType(Me(Me.tabletblKundenumsatz.NummerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nummer in Tabelle tblKundenumsatz ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenumsatz.NummerColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblKundenumsatz.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblKundenumsatz ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenumsatz.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IssteuerpflichtigNull() As Boolean Return Me.IsNull(Me.tabletblKundenumsatz.steuerpflichtigColumn) End Function _ Public Sub SetsteuerpflichtigNull() Me(Me.tabletblKundenumsatz.steuerpflichtigColumn) = Global.System.Convert.DBNull End Sub _ Public Function IssteuerfreiNull() As Boolean Return Me.IsNull(Me.tabletblKundenumsatz.steuerfreiColumn) End Function _ Public Sub SetsteuerfreiNull() Me(Me.tabletblKundenumsatz.steuerfreiColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettoumsatzNull() As Boolean Return Me.IsNull(Me.tabletblKundenumsatz.NettoumsatzColumn) End Function _ Public Sub SetNettoumsatzNull() Me(Me.tabletblKundenumsatz.NettoumsatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMwStNull() As Boolean Return Me.IsNull(Me.tabletblKundenumsatz.MwStColumn) End Function _ Public Sub SetMwStNull() Me(Me.tabletblKundenumsatz.MwStColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBruttoumsatzNull() As Boolean Return Me.IsNull(Me.tabletblKundenumsatz.BruttoumsatzColumn) End Function _ Public Sub SetBruttoumsatzNull() Me(Me.tabletblKundenumsatz.BruttoumsatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungenNull() As Boolean Return Me.IsNull(Me.tabletblKundenumsatz.RechnungenColumn) End Function _ Public Sub SetRechnungenNull() Me(Me.tabletblKundenumsatz.RechnungenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGutschriftenNull() As Boolean Return Me.IsNull(Me.tabletblKundenumsatz.GutschriftenColumn) End Function _ Public Sub SetGutschriftenNull() Me(Me.tabletblKundenumsatz.GutschriftenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatumNull() As Boolean Return Me.IsNull(Me.tabletblKundenumsatz.DatumColumn) End Function _ Public Sub SetDatumNull() Me(Me.tabletblKundenumsatz.DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNummerNull() As Boolean Return Me.IsNull(Me.tabletblKundenumsatz.NummerColumn) End Function _ Public Sub SetNummerNull() Me(Me.tabletblKundenumsatz.NummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblKundenumsatz.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblKundenumsatz.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenVermerkeRow Inherits Global.System.Data.DataRow Private tabletblKundenVermerke As tblKundenVermerkeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenVermerke = CType(Me.Table,tblKundenVermerkeDataTable) End Sub _ Public Property kvm_id() As Integer Get Return CType(Me(Me.tabletblKundenVermerke.kvm_idColumn),Integer) End Get Set Me(Me.tabletblKundenVermerke.kvm_idColumn) = value End Set End Property _ Public Property kvm_KundenNr() As Integer Get Return CType(Me(Me.tabletblKundenVermerke.kvm_KundenNrColumn),Integer) End Get Set Me(Me.tabletblKundenVermerke.kvm_KundenNrColumn) = value End Set End Property _ Public Property kvm_art() As String Get Return CType(Me(Me.tabletblKundenVermerke.kvm_artColumn),String) End Get Set Me(Me.tabletblKundenVermerke.kvm_artColumn) = value End Set End Property _ Public Property kvm_datum() As Date Get Return CType(Me(Me.tabletblKundenVermerke.kvm_datumColumn),Date) End Get Set Me(Me.tabletblKundenVermerke.kvm_datumColumn) = value End Set End Property _ Public Property kvm_text() As String Get Return CType(Me(Me.tabletblKundenVermerke.kvm_textColumn),String) End Get Set Me(Me.tabletblKundenVermerke.kvm_textColumn) = value End Set End Property _ Public Property kvm_sbId() As Integer Get Return CType(Me(Me.tabletblKundenVermerke.kvm_sbIdColumn),Integer) End Get Set Me(Me.tabletblKundenVermerke.kvm_sbIdColumn) = value End Set End Property _ Public Property kvm_sb() As String Get Return CType(Me(Me.tabletblKundenVermerke.kvm_sbColumn),String) End Get Set Me(Me.tabletblKundenVermerke.kvm_sbColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenVertraegeRow Inherits Global.System.Data.DataRow Private tabletblKundenVertraege As tblKundenVertraegeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenVertraege = CType(Me.Table,tblKundenVertraegeDataTable) End Sub _ Public Property kv_Id() As Integer Get Return CType(Me(Me.tabletblKundenVertraege.kv_IdColumn),Integer) End Get Set Me(Me.tabletblKundenVertraege.kv_IdColumn) = value End Set End Property _ Public Property kv_KundenNr() As Integer Get Return CType(Me(Me.tabletblKundenVertraege.kv_KundenNrColumn),Integer) End Get Set Me(Me.tabletblKundenVertraege.kv_KundenNrColumn) = value End Set End Property _ Public Property kv_erhalten_Datum() As Date Get Return CType(Me(Me.tabletblKundenVertraege.kv_erhalten_DatumColumn),Date) End Get Set Me(Me.tabletblKundenVertraege.kv_erhalten_DatumColumn) = value End Set End Property _ Public Property kv_vertragArtId() As Integer Get Return CType(Me(Me.tabletblKundenVertraege.kv_vertragArtIdColumn),Integer) End Get Set Me(Me.tabletblKundenVertraege.kv_vertragArtIdColumn) = value End Set End Property _ Public Property kv_Info() As String Get Try Return CType(Me(Me.tabletblKundenVertraege.kv_InfoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kv_Info in Tabelle tblKundenVertraege ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenVertraege.kv_InfoColumn) = value End Set End Property _ Public Property kv_datenarchivId() As Integer Get Try Return CType(Me(Me.tabletblKundenVertraege.kv_datenarchivIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kv_datenarchivId in Tabelle tblKundenVertraege ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenVertraege.kv_datenarchivIdColumn) = value End Set End Property _ Public Property kv_gueltig() As Boolean Get Return CType(Me(Me.tabletblKundenVertraege.kv_gueltigColumn),Boolean) End Get Set Me(Me.tabletblKundenVertraege.kv_gueltigColumn) = value End Set End Property _ Public Function Iskv_InfoNull() As Boolean Return Me.IsNull(Me.tabletblKundenVertraege.kv_InfoColumn) End Function _ Public Sub Setkv_InfoNull() Me(Me.tabletblKundenVertraege.kv_InfoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskv_datenarchivIdNull() As Boolean Return Me.IsNull(Me.tabletblKundenVertraege.kv_datenarchivIdColumn) End Function _ Public Sub Setkv_datenarchivIdNull() Me(Me.tabletblKundenVertraege.kv_datenarchivIdColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenVertraegeArtenRow Inherits Global.System.Data.DataRow Private tabletblKundenVertraegeArten As tblKundenVertraegeArtenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenVertraegeArten = CType(Me.Table,tblKundenVertraegeArtenDataTable) End Sub _ Public Property kva_Id() As Integer Get Return CType(Me(Me.tabletblKundenVertraegeArten.kva_IdColumn),Integer) End Get Set Me(Me.tabletblKundenVertraegeArten.kva_IdColumn) = value End Set End Property _ Public Property kva_Bezeichnung() As String Get Return CType(Me(Me.tabletblKundenVertraegeArten.kva_BezeichnungColumn),String) End Get Set Me(Me.tabletblKundenVertraegeArten.kva_BezeichnungColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenVollmachtenRow Inherits Global.System.Data.DataRow Private tabletblKundenVollmachten As tblKundenVollmachtenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenVollmachten = CType(Me.Table,tblKundenVollmachtenDataTable) End Sub _ Public Property kdvm_Id() As Integer Get Return CType(Me(Me.tabletblKundenVollmachten.kdvm_IdColumn),Integer) End Get Set Me(Me.tabletblKundenVollmachten.kdvm_IdColumn) = value End Set End Property _ Public Property kdvm_KundenNr() As Integer Get Try Return CType(Me(Me.tabletblKundenVollmachten.kdvm_KundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdvm_KundenNr in Tabelle tblKundenVollmachten ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenVollmachten.kdvm_KundenNrColumn) = value End Set End Property _ Public Property kdvm_kdvmaId() As Integer Get Try Return CType(Me(Me.tabletblKundenVollmachten.kdvm_kdvmaIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdvm_kdvmaId in Tabelle tblKundenVollmachten ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenVollmachten.kdvm_kdvmaIdColumn) = value End Set End Property _ Public Property kdvm_erhalten() As Boolean Get Return CType(Me(Me.tabletblKundenVollmachten.kdvm_erhaltenColumn),Boolean) End Get Set Me(Me.tabletblKundenVollmachten.kdvm_erhaltenColumn) = value End Set End Property _ Public Property kdvm_erhalten_Datum() As Date Get Try Return CType(Me(Me.tabletblKundenVollmachten.kdvm_erhalten_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdvm_erhalten_Datum in Tabelle tblKundenVollmachten ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblKundenVollmachten.kdvm_erhalten_DatumColumn) = value End Set End Property _ Public Property kdvm_Info() As String Get Return CType(Me(Me.tabletblKundenVollmachten.kdvm_InfoColumn),String) End Get Set Me(Me.tabletblKundenVollmachten.kdvm_InfoColumn) = value End Set End Property _ Public Property kdvm_datenarchivId() As Integer Get Try Return CType(Me(Me.tabletblKundenVollmachten.kdvm_datenarchivIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdvm_datenarchivId in Tabelle tblKundenVollmachten ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblKundenVollmachten.kdvm_datenarchivIdColumn) = value End Set End Property _ Public Property kdvm_archiviert() As Boolean Get Return CType(Me(Me.tabletblKundenVollmachten.kdvm_archiviertColumn),Boolean) End Get Set Me(Me.tabletblKundenVollmachten.kdvm_archiviertColumn) = value End Set End Property _ Public Property kdvm_gueltig_bis() As Date Get Try Return CType(Me(Me.tabletblKundenVollmachten.kdvm_gueltig_bisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdvm_gueltig_bis in Tabelle tblKundenVollmachten ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenVollmachten.kdvm_gueltig_bisColumn) = value End Set End Property _ Public Property kdvm_gueltig_ab() As Date Get Try Return CType(Me(Me.tabletblKundenVollmachten.kdvm_gueltig_abColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdvm_gueltig_ab in Tabelle tblKundenVollmachten ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenVollmachten.kdvm_gueltig_abColumn) = value End Set End Property _ Public Property kdvm_vermerk() As String Get Try Return CType(Me(Me.tabletblKundenVollmachten.kdvm_vermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdvm_vermerk in Tabelle tblKundenVollmachten ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenVollmachten.kdvm_vermerkColumn) = value End Set End Property _ Public Property kdvm_geloescht() As Boolean Get Return CType(Me(Me.tabletblKundenVollmachten.kdvm_geloeschtColumn),Boolean) End Get Set Me(Me.tabletblKundenVollmachten.kdvm_geloeschtColumn) = value End Set End Property _ Public Property kdvm_emailId() As Integer Get Try Return CType(Me(Me.tabletblKundenVollmachten.kdvm_emailIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdvm_emailId in Tabelle tblKundenVollmachten ist DBNull.", e) End Try End Get Set Me(Me.tabletblKundenVollmachten.kdvm_emailIdColumn) = value End Set End Property _ Public Function Iskdvm_KundenNrNull() As Boolean Return Me.IsNull(Me.tabletblKundenVollmachten.kdvm_KundenNrColumn) End Function _ Public Sub Setkdvm_KundenNrNull() Me(Me.tabletblKundenVollmachten.kdvm_KundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdvm_kdvmaIdNull() As Boolean Return Me.IsNull(Me.tabletblKundenVollmachten.kdvm_kdvmaIdColumn) End Function _ Public Sub Setkdvm_kdvmaIdNull() Me(Me.tabletblKundenVollmachten.kdvm_kdvmaIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdvm_erhalten_DatumNull() As Boolean Return Me.IsNull(Me.tabletblKundenVollmachten.kdvm_erhalten_DatumColumn) End Function _ Public Sub Setkdvm_erhalten_DatumNull() Me(Me.tabletblKundenVollmachten.kdvm_erhalten_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdvm_datenarchivIdNull() As Boolean Return Me.IsNull(Me.tabletblKundenVollmachten.kdvm_datenarchivIdColumn) End Function _ Public Sub Setkdvm_datenarchivIdNull() Me(Me.tabletblKundenVollmachten.kdvm_datenarchivIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdvm_gueltig_bisNull() As Boolean Return Me.IsNull(Me.tabletblKundenVollmachten.kdvm_gueltig_bisColumn) End Function _ Public Sub Setkdvm_gueltig_bisNull() Me(Me.tabletblKundenVollmachten.kdvm_gueltig_bisColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdvm_gueltig_abNull() As Boolean Return Me.IsNull(Me.tabletblKundenVollmachten.kdvm_gueltig_abColumn) End Function _ Public Sub Setkdvm_gueltig_abNull() Me(Me.tabletblKundenVollmachten.kdvm_gueltig_abColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdvm_vermerkNull() As Boolean Return Me.IsNull(Me.tabletblKundenVollmachten.kdvm_vermerkColumn) End Function _ Public Sub Setkdvm_vermerkNull() Me(Me.tabletblKundenVollmachten.kdvm_vermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iskdvm_emailIdNull() As Boolean Return Me.IsNull(Me.tabletblKundenVollmachten.kdvm_emailIdColumn) End Function _ Public Sub Setkdvm_emailIdNull() Me(Me.tabletblKundenVollmachten.kdvm_emailIdColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblKundenVollmachtenArtRow Inherits Global.System.Data.DataRow Private tabletblKundenVollmachtenArt As tblKundenVollmachtenArtDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblKundenVollmachtenArt = CType(Me.Table,tblKundenVollmachtenArtDataTable) End Sub _ Public Property kdvma_Id() As Integer Get Return CType(Me(Me.tabletblKundenVollmachtenArt.kdvma_IdColumn),Integer) End Get Set Me(Me.tabletblKundenVollmachtenArt.kdvma_IdColumn) = value End Set End Property _ Public Property kdvma_Bezeichnung() As String Get Return CType(Me(Me.tabletblKundenVollmachtenArt.kdvma_BezeichnungColumn),String) End Get Set Me(Me.tabletblKundenVollmachtenArt.kdvma_BezeichnungColumn) = value End Set End Property _ Public Property kdvma_Firma() As String Get Return CType(Me(Me.tabletblKundenVollmachtenArt.kdvma_FirmaColumn),String) End Get Set Me(Me.tabletblKundenVollmachtenArt.kdvma_FirmaColumn) = value End Set End Property _ Public Property kdvma_visible() As Boolean Get Return CType(Me(Me.tabletblKundenVollmachtenArt.kdvma_visibleColumn),Boolean) End Get Set Me(Me.tabletblKundenVollmachtenArt.kdvma_visibleColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblLogbuchRow Inherits Global.System.Data.DataRow Private tabletblLogbuch As tblLogbuchDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblLogbuch = CType(Me.Table,tblLogbuchDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tabletblLogbuch.IDColumn),Integer) End Get Set Me(Me.tabletblLogbuch.IDColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Return CType(Me(Me.tabletblLogbuch.ZeitstempelColumn),Date) End Get Set Me(Me.tabletblLogbuch.ZeitstempelColumn) = value End Set End Property _ Public Property Computername() As String Get Return CType(Me(Me.tabletblLogbuch.ComputernameColumn),String) End Get Set Me(Me.tabletblLogbuch.ComputernameColumn) = value End Set End Property _ Public Property Benutzername() As String Get Return CType(Me(Me.tabletblLogbuch.BenutzernameColumn),String) End Get Set Me(Me.tabletblLogbuch.BenutzernameColumn) = value End Set End Property _ Public Property SwitchboardID() As Integer Get Try Return CType(Me(Me.tabletblLogbuch.SwitchboardIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SwitchboardID in Tabelle tblLogbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblLogbuch.SwitchboardIDColumn) = value End Set End Property _ Public Property ItemNumber() As Short Get Try Return CType(Me(Me.tabletblLogbuch.ItemNumberColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ItemNumber in Tabelle tblLogbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblLogbuch.ItemNumberColumn) = value End Set End Property _ Public Property ItemText() As String Get Return CType(Me(Me.tabletblLogbuch.ItemTextColumn),String) End Get Set Me(Me.tabletblLogbuch.ItemTextColumn) = value End Set End Property _ Public Property Command() As Short Get Try Return CType(Me(Me.tabletblLogbuch.CommandColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Command in Tabelle tblLogbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblLogbuch.CommandColumn) = value End Set End Property _ Public Property Argument() As String Get Return CType(Me(Me.tabletblLogbuch.ArgumentColumn),String) End Get Set Me(Me.tabletblLogbuch.ArgumentColumn) = value End Set End Property _ Public Property Programmversion() As String Get Return CType(Me(Me.tabletblLogbuch.ProgrammversionColumn),String) End Get Set Me(Me.tabletblLogbuch.ProgrammversionColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblLogbuch.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblLogbuch ist DBNull.", e) End Try End Get Set Me(Me.tabletblLogbuch.upsize_tsColumn) = value End Set End Property _ Public Property tblAnmeldungRowParent() As tblAnmeldungRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblLogbuch_FK00")),tblAnmeldungRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblLogbuch_FK00")) End Set End Property _ Public Function IsSwitchboardIDNull() As Boolean Return Me.IsNull(Me.tabletblLogbuch.SwitchboardIDColumn) End Function _ Public Sub SetSwitchboardIDNull() Me(Me.tabletblLogbuch.SwitchboardIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItemNumberNull() As Boolean Return Me.IsNull(Me.tabletblLogbuch.ItemNumberColumn) End Function _ Public Sub SetItemNumberNull() Me(Me.tabletblLogbuch.ItemNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCommandNull() As Boolean Return Me.IsNull(Me.tabletblLogbuch.CommandColumn) End Function _ Public Sub SetCommandNull() Me(Me.tabletblLogbuch.CommandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblLogbuch.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblLogbuch.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMandantRow Inherits Global.System.Data.DataRow Private tabletblMandant As tblMandantDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMandant = CType(Me.Table,tblMandantDataTable) End Sub _ Public Property Mandant() As String Get Return CType(Me(Me.tabletblMandant.MandantColumn),String) End Get Set Me(Me.tabletblMandant.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Return CType(Me(Me.tabletblMandant.NiederlassungColumn),String) End Get Set Me(Me.tabletblMandant.NiederlassungColumn) = value End Set End Property _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tabletblMandant.KundenNrColumn),Integer) End Get Set Me(Me.tabletblMandant.KundenNrColumn) = value End Set End Property _ Public Property MonatGJB() As Short Get Return CType(Me(Me.tabletblMandant.MonatGJBColumn),Short) End Get Set Me(Me.tabletblMandant.MonatGJBColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblMandant.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblMandant ist DBNull.", e) End Try End Get Set Me(Me.tabletblMandant.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblMandant.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblMandant.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMautIT_BelegartenRow Inherits Global.System.Data.DataRow Private tabletblMautIT_Belegarten As tblMautIT_BelegartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMautIT_Belegarten = CType(Me.Table,tblMautIT_BelegartenDataTable) End Sub _ Public Property BelegartID() As String Get Return CType(Me(Me.tabletblMautIT_Belegarten.BelegartIDColumn),String) End Get Set Me(Me.tabletblMautIT_Belegarten.BelegartIDColumn) = value End Set End Property _ Public Property BelegartBez() As String Get Return CType(Me(Me.tabletblMautIT_Belegarten.BelegartBezColumn),String) End Get Set Me(Me.tabletblMautIT_Belegarten.BelegartBezColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblMautIT_Belegarten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblMautIT_Belegarten ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautIT_Belegarten.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblMautIT_Belegarten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblMautIT_Belegarten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMautITArchivRow Inherits Global.System.Data.DataRow Private tabletblMautITArchiv As tblMautITArchivDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMautITArchiv = CType(Me.Table,tblMautITArchivDataTable) End Sub _ Public Property Dateiname() As String Get Return CType(Me(Me.tabletblMautITArchiv.DateinameColumn),String) End Get Set Me(Me.tabletblMautITArchiv.DateinameColumn) = value End Set End Property _ Public Property LfdNr() As Integer Get Return CType(Me(Me.tabletblMautITArchiv.LfdNrColumn),Integer) End Get Set Me(Me.tabletblMautITArchiv.LfdNrColumn) = value End Set End Property _ Public Property Code_Adressat_der_Rechnung() As Integer Get Try Return CType(Me(Me.tabletblMautITArchiv.Code_Adressat_der_RechnungColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Code_Adressat_der_Rechnung in Tabelle tblMautITArchiv ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Code_Adressat_der_RechnungColumn) = value End Set End Property _ Public Property Code_Adressat_des_Kontoauszugs() As Integer Get Try Return CType(Me(Me.tabletblMautITArchiv.Code_Adressat_des_KontoauszugsColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Code_Adressat_des_Kontoauszugs in Tabelle tblMautITArchiv ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Code_Adressat_des_KontoauszugsColumn) = value End Set End Property _ Public Property Art_der_Bewegung() As String Get Try Return CType(Me(Me.tabletblMautITArchiv.Art_der_BewegungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Art_der_Bewegung in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Art_der_BewegungColumn) = value End Set End Property _ Public Property Datum_der_Bewegung() As Date Get Try Return CType(Me(Me.tabletblMautITArchiv.Datum_der_BewegungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datum_der_Bewegung in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Datum_der_BewegungColumn) = value End Set End Property _ Public Property Uhrzeit_der_Bewegung() As Date Get Try Return CType(Me(Me.tabletblMautITArchiv.Uhrzeit_der_BewegungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Uhrzeit_der_Bewegung in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Uhrzeit_der_BewegungColumn) = value End Set End Property _ Public Property Ursprünglicher_Betrag_der_Bewegung() As Decimal Get Try Return CType(Me(Me.tabletblMautITArchiv.Ursprünglicher_Betrag_der_BewegungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ursprünglicher_Betrag_der_Bewegung in Tabelle tblMautITArchiv"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Ursprünglicher_Betrag_der_BewegungColumn) = value End Set End Property _ Public Property Nicht_mehrwertsteuerpflichtiger_Betrag() As Decimal Get Try Return CType(Me(Me.tabletblMautITArchiv.Nicht_mehrwertsteuerpflichtiger_BetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nicht_mehrwertsteuerpflichtiger_Betrag in Tabelle tblMautITAr"& _ "chiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Nicht_mehrwertsteuerpflichtiger_BetragColumn) = value End Set End Property _ Public Property Betrag_mit_Preisnachlass_oder_Preisnachlass() As Decimal Get Try Return CType(Me(Me.tabletblMautITArchiv.Betrag_mit_Preisnachlass_oder_PreisnachlassColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_mit_Preisnachlass_oder_Preisnachlass in Tabelle tblMau"& _ "tITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Betrag_mit_Preisnachlass_oder_PreisnachlassColumn) = value End Set End Property _ Public Property Form_des_Mediums() As String Get Try Return CType(Me(Me.tabletblMautITArchiv.Form_des_MediumsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Form_des_Mediums in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Form_des_MediumsColumn) = value End Set End Property _ Public Property Beschreibung_Form_des_Mediums() As String Get Try Return CType(Me(Me.tabletblMautITArchiv.Beschreibung_Form_des_MediumsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beschreibung_Form_des_Mediums in Tabelle tblMautITArchiv ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Beschreibung_Form_des_MediumsColumn) = value End Set End Property _ Public Property Kodierung_Medium() As String Get Try Return CType(Me(Me.tabletblMautITArchiv.Kodierung_MediumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kodierung_Medium in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Kodierung_MediumColumn) = value End Set End Property _ Public Property Beschreibung_der_Bewegung() As String Get Try Return CType(Me(Me.tabletblMautITArchiv.Beschreibung_der_BewegungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beschreibung_der_Bewegung in Tabelle tblMautITArchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Beschreibung_der_BewegungColumn) = value End Set End Property _ Public Property Gebührenklasse() As String Get Try Return CType(Me(Me.tabletblMautITArchiv.GebührenklasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gebührenklasse in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.GebührenklasseColumn) = value End Set End Property _ Public Property Verrechnungsdatum() As Date Get Try Return CType(Me(Me.tabletblMautITArchiv.VerrechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Verrechnungsdatum in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.VerrechnungsdatumColumn) = value End Set End Property _ Public Property Zeichen_Betrag() As String Get Try Return CType(Me(Me.tabletblMautITArchiv.Zeichen_BetragColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeichen_Betrag in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.Zeichen_BetragColumn) = value End Set End Property _ Public Property KfzKennzeichen() As String Get Try Return CType(Me(Me.tabletblMautITArchiv.KfzKennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KfzKennzeichen in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.KfzKennzeichenColumn) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tabletblMautITArchiv.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.UStVAn_IDColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblMautITArchiv.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblMautITArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMautITArchiv.upsize_tsColumn) = value End Set End Property _ Public Function IsCode_Adressat_der_RechnungNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Code_Adressat_der_RechnungColumn) End Function _ Public Sub SetCode_Adressat_der_RechnungNull() Me(Me.tabletblMautITArchiv.Code_Adressat_der_RechnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCode_Adressat_des_KontoauszugsNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Code_Adressat_des_KontoauszugsColumn) End Function _ Public Sub SetCode_Adressat_des_KontoauszugsNull() Me(Me.tabletblMautITArchiv.Code_Adressat_des_KontoauszugsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsArt_der_BewegungNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Art_der_BewegungColumn) End Function _ Public Sub SetArt_der_BewegungNull() Me(Me.tabletblMautITArchiv.Art_der_BewegungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatum_der_BewegungNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Datum_der_BewegungColumn) End Function _ Public Sub SetDatum_der_BewegungNull() Me(Me.tabletblMautITArchiv.Datum_der_BewegungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUhrzeit_der_BewegungNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Uhrzeit_der_BewegungColumn) End Function _ Public Sub SetUhrzeit_der_BewegungNull() Me(Me.tabletblMautITArchiv.Uhrzeit_der_BewegungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUrsprünglicher_Betrag_der_BewegungNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Ursprünglicher_Betrag_der_BewegungColumn) End Function _ Public Sub SetUrsprünglicher_Betrag_der_BewegungNull() Me(Me.tabletblMautITArchiv.Ursprünglicher_Betrag_der_BewegungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNicht_mehrwertsteuerpflichtiger_BetragNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Nicht_mehrwertsteuerpflichtiger_BetragColumn) End Function _ Public Sub SetNicht_mehrwertsteuerpflichtiger_BetragNull() Me(Me.tabletblMautITArchiv.Nicht_mehrwertsteuerpflichtiger_BetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_mit_Preisnachlass_oder_PreisnachlassNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Betrag_mit_Preisnachlass_oder_PreisnachlassColumn) End Function _ Public Sub SetBetrag_mit_Preisnachlass_oder_PreisnachlassNull() Me(Me.tabletblMautITArchiv.Betrag_mit_Preisnachlass_oder_PreisnachlassColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsForm_des_MediumsNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Form_des_MediumsColumn) End Function _ Public Sub SetForm_des_MediumsNull() Me(Me.tabletblMautITArchiv.Form_des_MediumsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBeschreibung_Form_des_MediumsNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Beschreibung_Form_des_MediumsColumn) End Function _ Public Sub SetBeschreibung_Form_des_MediumsNull() Me(Me.tabletblMautITArchiv.Beschreibung_Form_des_MediumsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKodierung_MediumNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Kodierung_MediumColumn) End Function _ Public Sub SetKodierung_MediumNull() Me(Me.tabletblMautITArchiv.Kodierung_MediumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBeschreibung_der_BewegungNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Beschreibung_der_BewegungColumn) End Function _ Public Sub SetBeschreibung_der_BewegungNull() Me(Me.tabletblMautITArchiv.Beschreibung_der_BewegungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGebührenklasseNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.GebührenklasseColumn) End Function _ Public Sub SetGebührenklasseNull() Me(Me.tabletblMautITArchiv.GebührenklasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVerrechnungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.VerrechnungsdatumColumn) End Function _ Public Sub SetVerrechnungsdatumNull() Me(Me.tabletblMautITArchiv.VerrechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZeichen_BetragNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.Zeichen_BetragColumn) End Function _ Public Sub SetZeichen_BetragNull() Me(Me.tabletblMautITArchiv.Zeichen_BetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKfzKennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.KfzKennzeichenColumn) End Function _ Public Sub SetKfzKennzeichenNull() Me(Me.tabletblMautITArchiv.KfzKennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tabletblMautITArchiv.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblMautITArchiv.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblMautITArchiv.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMDM_ParamterRow Inherits Global.System.Data.DataRow Private tabletblMDM_Paramter As tblMDM_ParamterDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMDM_Paramter = CType(Me.Table,tblMDM_ParamterDataTable) End Sub _ Public Property Param_name() As String Get Return CType(Me(Me.tabletblMDM_Paramter.Param_nameColumn),String) End Get Set Me(Me.tabletblMDM_Paramter.Param_nameColumn) = value End Set End Property _ Public Property Param_value() As String Get Return CType(Me(Me.tabletblMDM_Paramter.Param_valueColumn),String) End Get Set Me(Me.tabletblMDM_Paramter.Param_valueColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMSECustomersRow Inherits Global.System.Data.DataRow Private tabletblMSECustomers As tblMSECustomersDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMSECustomers = CType(Me.Table,tblMSECustomersDataTable) End Sub _ Public Property customer_id() As Integer Get Return CType(Me(Me.tabletblMSECustomers.customer_idColumn),Integer) End Get Set Me(Me.tabletblMSECustomers.customer_idColumn) = value End Set End Property _ Public Property partner_customer_number() As String Get Try Return CType(Me(Me.tabletblMSECustomers.partner_customer_numberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte partner_customer_number in Tabelle tblMSECustomers ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblMSECustomers.partner_customer_numberColumn) = value End Set End Property _ Public Property customer_name() As String Get Try Return CType(Me(Me.tabletblMSECustomers.customer_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte customer_name in Tabelle tblMSECustomers ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSECustomers.customer_nameColumn) = value End Set End Property _ Public Property vat_number() As String Get Try Return CType(Me(Me.tabletblMSECustomers.vat_numberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vat_number in Tabelle tblMSECustomers ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSECustomers.vat_numberColumn) = value End Set End Property _ Public Property alternative_vat_number() As String Get Try Return CType(Me(Me.tabletblMSECustomers.alternative_vat_numberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte alternative_vat_number in Tabelle tblMSECustomers ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSECustomers.alternative_vat_numberColumn) = value End Set End Property _ Public Property coc_number() As String Get Try Return CType(Me(Me.tabletblMSECustomers.coc_numberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte coc_number in Tabelle tblMSECustomers ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSECustomers.coc_numberColumn) = value End Set End Property _ Public Property partner_fleet_card_number() As String Get Try Return CType(Me(Me.tabletblMSECustomers.partner_fleet_card_numberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte partner_fleet_card_number in Tabelle tblMSECustomers ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSECustomers.partner_fleet_card_numberColumn) = value End Set End Property _ Public Property tstmp() As Date Get Try Return CType(Me(Me.tabletblMSECustomers.tstmpColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tstmp in Tabelle tblMSECustomers ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSECustomers.tstmpColumn) = value End Set End Property _ Public Function Ispartner_customer_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSECustomers.partner_customer_numberColumn) End Function _ Public Sub Setpartner_customer_numberNull() Me(Me.tabletblMSECustomers.partner_customer_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscustomer_nameNull() As Boolean Return Me.IsNull(Me.tabletblMSECustomers.customer_nameColumn) End Function _ Public Sub Setcustomer_nameNull() Me(Me.tabletblMSECustomers.customer_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvat_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSECustomers.vat_numberColumn) End Function _ Public Sub Setvat_numberNull() Me(Me.tabletblMSECustomers.vat_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isalternative_vat_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSECustomers.alternative_vat_numberColumn) End Function _ Public Sub Setalternative_vat_numberNull() Me(Me.tabletblMSECustomers.alternative_vat_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscoc_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSECustomers.coc_numberColumn) End Function _ Public Sub Setcoc_numberNull() Me(Me.tabletblMSECustomers.coc_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispartner_fleet_card_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSECustomers.partner_fleet_card_numberColumn) End Function _ Public Sub Setpartner_fleet_card_numberNull() Me(Me.tabletblMSECustomers.partner_fleet_card_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IststmpNull() As Boolean Return Me.IsNull(Me.tabletblMSECustomers.tstmpColumn) End Function _ Public Sub SettstmpNull() Me(Me.tabletblMSECustomers.tstmpColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMSEImportRow Inherits Global.System.Data.DataRow Private tabletblMSEImport As tblMSEImportDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMSEImport = CType(Me.Table,tblMSEImportDataTable) End Sub _ Public Property mse_id() As Integer Get Return CType(Me(Me.tabletblMSEImport.mse_idColumn),Integer) End Get Set Me(Me.tabletblMSEImport.mse_idColumn) = value End Set End Property _ Public Property mse_kdNr() As Integer Get Try Return CType(Me(Me.tabletblMSEImport.mse_kdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_kdNr in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_kdNrColumn) = value End Set End Property _ Public Property mse_kdName() As String Get Try Return CType(Me(Me.tabletblMSEImport.mse_kdNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_kdName in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_kdNameColumn) = value End Set End Property _ Public Property mse_UID() As String Get Try Return CType(Me(Me.tabletblMSEImport.mse_UIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_UID in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_UIDColumn) = value End Set End Property _ Public Property mse_landKZ() As String Get Try Return CType(Me(Me.tabletblMSEImport.mse_landKZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_landKZ in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_landKZColumn) = value End Set End Property _ Public Property mse_landBezeichnung() As String Get Try Return CType(Me(Me.tabletblMSEImport.mse_landBezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_landBezeichnung in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_landBezeichnungColumn) = value End Set End Property _ Public Property mse_reDatum() As Date Get Try Return CType(Me(Me.tabletblMSEImport.mse_reDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_reDatum in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_reDatumColumn) = value End Set End Property _ Public Property mse_reNr() As Integer Get Try Return CType(Me(Me.tabletblMSEImport.mse_reNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_reNr in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_reNrColumn) = value End Set End Property _ Public Property mse_betragNetto() As Decimal Get Try Return CType(Me(Me.tabletblMSEImport.mse_betragNettoColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_betragNetto in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_betragNettoColumn) = value End Set End Property _ Public Property mse_betrag_Brutto() As Decimal Get Try Return CType(Me(Me.tabletblMSEImport.mse_betrag_BruttoColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_betrag_Brutto in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_betrag_BruttoColumn) = value End Set End Property _ Public Property mse_waehrung() As String Get Try Return CType(Me(Me.tabletblMSEImport.mse_waehrungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_waehrung in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_waehrungColumn) = value End Set End Property _ Public Property mse_euroBrutto() As Decimal Get Try Return CType(Me(Me.tabletblMSEImport.mse_euroBruttoColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_euroBrutto in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_euroBruttoColumn) = value End Set End Property _ Public Property mse_file() As String Get Try Return CType(Me(Me.tabletblMSEImport.mse_fileColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_file in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_fileColumn) = value End Set End Property _ Public Property mse_importDatum() As Date Get Try Return CType(Me(Me.tabletblMSEImport.mse_importDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_importDatum in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_importDatumColumn) = value End Set End Property _ Public Property mse_version() As Integer Get Try Return CType(Me(Me.tabletblMSEImport.mse_versionColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mse_version in Tabelle tblMSEImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEImport.mse_versionColumn) = value End Set End Property _ Public Function Ismse_kdNrNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_kdNrColumn) End Function _ Public Sub Setmse_kdNrNull() Me(Me.tabletblMSEImport.mse_kdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_kdNameNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_kdNameColumn) End Function _ Public Sub Setmse_kdNameNull() Me(Me.tabletblMSEImport.mse_kdNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_UIDNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_UIDColumn) End Function _ Public Sub Setmse_UIDNull() Me(Me.tabletblMSEImport.mse_UIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_landKZNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_landKZColumn) End Function _ Public Sub Setmse_landKZNull() Me(Me.tabletblMSEImport.mse_landKZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_landBezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_landBezeichnungColumn) End Function _ Public Sub Setmse_landBezeichnungNull() Me(Me.tabletblMSEImport.mse_landBezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_reDatumNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_reDatumColumn) End Function _ Public Sub Setmse_reDatumNull() Me(Me.tabletblMSEImport.mse_reDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_reNrNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_reNrColumn) End Function _ Public Sub Setmse_reNrNull() Me(Me.tabletblMSEImport.mse_reNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_betragNettoNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_betragNettoColumn) End Function _ Public Sub Setmse_betragNettoNull() Me(Me.tabletblMSEImport.mse_betragNettoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_betrag_BruttoNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_betrag_BruttoColumn) End Function _ Public Sub Setmse_betrag_BruttoNull() Me(Me.tabletblMSEImport.mse_betrag_BruttoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_waehrungNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_waehrungColumn) End Function _ Public Sub Setmse_waehrungNull() Me(Me.tabletblMSEImport.mse_waehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_euroBruttoNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_euroBruttoColumn) End Function _ Public Sub Setmse_euroBruttoNull() Me(Me.tabletblMSEImport.mse_euroBruttoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_fileNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_fileColumn) End Function _ Public Sub Setmse_fileNull() Me(Me.tabletblMSEImport.mse_fileColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_importDatumNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_importDatumColumn) End Function _ Public Sub Setmse_importDatumNull() Me(Me.tabletblMSEImport.mse_importDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismse_versionNull() As Boolean Return Me.IsNull(Me.tabletblMSEImport.mse_versionColumn) End Function _ Public Sub Setmse_versionNull() Me(Me.tabletblMSEImport.mse_versionColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMSEInvoicesRow Inherits Global.System.Data.DataRow Private tabletblMSEInvoices As tblMSEInvoicesDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMSEInvoices = CType(Me.Table,tblMSEInvoicesDataTable) End Sub _ Public Property name() As String Get Return CType(Me(Me.tabletblMSEInvoices.nameColumn),String) End Get Set Me(Me.tabletblMSEInvoices.nameColumn) = value End Set End Property _ Public Property total_amount_euro() As Decimal Get Return CType(Me(Me.tabletblMSEInvoices.total_amount_euroColumn),Decimal) End Get Set Me(Me.tabletblMSEInvoices.total_amount_euroColumn) = value End Set End Property _ Public Property total_vat_amount_euro() As Decimal Get Return CType(Me(Me.tabletblMSEInvoices.total_vat_amount_euroColumn),Decimal) End Get Set Me(Me.tabletblMSEInvoices.total_vat_amount_euroColumn) = value End Set End Property _ Public Property msts_vat_number() As String Get Return CType(Me(Me.tabletblMSEInvoices.msts_vat_numberColumn),String) End Get Set Me(Me.tabletblMSEInvoices.msts_vat_numberColumn) = value End Set End Property _ Public Property invoice_id() As Integer Get Return CType(Me(Me.tabletblMSEInvoices.invoice_idColumn),Integer) End Get Set Me(Me.tabletblMSEInvoices.invoice_idColumn) = value End Set End Property _ Public Property invoice_date() As Date Get Return CType(Me(Me.tabletblMSEInvoices.invoice_dateColumn),Date) End Get Set Me(Me.tabletblMSEInvoices.invoice_dateColumn) = value End Set End Property _ Public Property customer_number() As Integer Get Try Return CType(Me(Me.tabletblMSEInvoices.customer_numberColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte customer_number in Tabelle tblMSEInvoices ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEInvoices.customer_numberColumn) = value End Set End Property _ Public Property imported() As Boolean Get Return CType(Me(Me.tabletblMSEInvoices.importedColumn),Boolean) End Get Set Me(Me.tabletblMSEInvoices.importedColumn) = value End Set End Property _ Public Property tstmp() As Date Get Try Return CType(Me(Me.tabletblMSEInvoices.tstmpColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tstmp in Tabelle tblMSEInvoices ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEInvoices.tstmpColumn) = value End Set End Property _ Public Property country() As String Get Try Return CType(Me(Me.tabletblMSEInvoices.countryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte country in Tabelle tblMSEInvoices ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEInvoices.countryColumn) = value End Set End Property _ Public Property daId() As Integer Get Try Return CType(Me(Me.tabletblMSEInvoices.daIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte daId in Tabelle tblMSEInvoices ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSEInvoices.daIdColumn) = value End Set End Property _ Public Function Iscustomer_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSEInvoices.customer_numberColumn) End Function _ Public Sub Setcustomer_numberNull() Me(Me.tabletblMSEInvoices.customer_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IststmpNull() As Boolean Return Me.IsNull(Me.tabletblMSEInvoices.tstmpColumn) End Function _ Public Sub SettstmpNull() Me(Me.tabletblMSEInvoices.tstmpColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscountryNull() As Boolean Return Me.IsNull(Me.tabletblMSEInvoices.countryColumn) End Function _ Public Sub SetcountryNull() Me(Me.tabletblMSEInvoices.countryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdaIdNull() As Boolean Return Me.IsNull(Me.tabletblMSEInvoices.daIdColumn) End Function _ Public Sub SetdaIdNull() Me(Me.tabletblMSEInvoices.daIdColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMSELeistungenRow Inherits Global.System.Data.DataRow Private tabletblMSELeistungen As tblMSELeistungenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMSELeistungen = CType(Me.Table,tblMSELeistungenDataTable) End Sub _ Public Property Card_Type() As String Get Return CType(Me(Me.tabletblMSELeistungen.Card_TypeColumn),String) End Get Set Me(Me.tabletblMSELeistungen.Card_TypeColumn) = value End Set End Property _ Public Property Transaction_Country() As String Get Return CType(Me(Me.tabletblMSELeistungen.Transaction_CountryColumn),String) End Get Set Me(Me.tabletblMSELeistungen.Transaction_CountryColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tabletblMSELeistungen.LeistungsNrColumn),Short) End Get Set Me(Me.tabletblMSELeistungen.LeistungsNrColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblMSELeistungen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblMSELeistungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSELeistungen.SSMA_TimeStampColumn) = value End Set End Property _ Public Property LeistungenRow() As LeistungenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblMSELeistungen$LeistungentblMSELeistungen")),LeistungenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblMSELeistungen$LeistungentblMSELeistungen")) End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblMSELeistungen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblMSELeistungen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMSESettlementsRow Inherits Global.System.Data.DataRow Private tabletblMSESettlements As tblMSESettlementsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMSESettlements = CType(Me.Table,tblMSESettlementsDataTable) End Sub _ Public Property transaction_id() As Integer Get Return CType(Me(Me.tabletblMSESettlements.transaction_idColumn),Integer) End Get Set Me(Me.tabletblMSESettlements.transaction_idColumn) = value End Set End Property _ Public Property invoice_number() As Integer Get Try Return CType(Me(Me.tabletblMSESettlements.invoice_numberColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte invoice_number in Tabelle tblMSESettlements ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSESettlements.invoice_numberColumn) = value End Set End Property _ Public Property invoice_date() As Date Get Try Return CType(Me(Me.tabletblMSESettlements.invoice_dateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte invoice_date in Tabelle tblMSESettlements ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSESettlements.invoice_dateColumn) = value End Set End Property _ Public Property specification_page_id() As Integer Get Try Return CType(Me(Me.tabletblMSESettlements.specification_page_idColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte specification_page_id in Tabelle tblMSESettlements ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblMSESettlements.specification_page_idColumn) = value End Set End Property _ Public Property specification_page_name() As String Get Try Return CType(Me(Me.tabletblMSESettlements.specification_page_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte specification_page_name in Tabelle tblMSESettlements ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSESettlements.specification_page_nameColumn) = value End Set End Property _ Public Property transaction_debit_or_credit() As String Get Try Return CType(Me(Me.tabletblMSESettlements.transaction_debit_or_creditColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte transaction_debit_or_credit in Tabelle tblMSESettlements ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblMSESettlements.transaction_debit_or_creditColumn) = value End Set End Property _ Public Property original_transaction_id() As Integer Get Try Return CType(Me(Me.tabletblMSESettlements.original_transaction_idColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte original_transaction_id in Tabelle tblMSESettlements ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSESettlements.original_transaction_idColumn) = value End Set End Property _ Public Property original_invoice_number() As Integer Get Try Return CType(Me(Me.tabletblMSESettlements.original_invoice_numberColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte original_invoice_number in Tabelle tblMSESettlements ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSESettlements.original_invoice_numberColumn) = value End Set End Property _ Public Property original_invoice_date() As Date Get Try Return CType(Me(Me.tabletblMSESettlements.original_invoice_dateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte original_invoice_date in Tabelle tblMSESettlements ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblMSESettlements.original_invoice_dateColumn) = value End Set End Property _ Public Property credit_comment() As String Get Try Return CType(Me(Me.tabletblMSESettlements.credit_commentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte credit_comment in Tabelle tblMSESettlements ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSESettlements.credit_commentColumn) = value End Set End Property _ Public Property tstmp() As Date Get Try Return CType(Me(Me.tabletblMSESettlements.tstmpColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tstmp in Tabelle tblMSESettlements ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSESettlements.tstmpColumn) = value End Set End Property _ Public Function Isinvoice_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSESettlements.invoice_numberColumn) End Function _ Public Sub Setinvoice_numberNull() Me(Me.tabletblMSESettlements.invoice_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isinvoice_dateNull() As Boolean Return Me.IsNull(Me.tabletblMSESettlements.invoice_dateColumn) End Function _ Public Sub Setinvoice_dateNull() Me(Me.tabletblMSESettlements.invoice_dateColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isspecification_page_idNull() As Boolean Return Me.IsNull(Me.tabletblMSESettlements.specification_page_idColumn) End Function _ Public Sub Setspecification_page_idNull() Me(Me.tabletblMSESettlements.specification_page_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isspecification_page_nameNull() As Boolean Return Me.IsNull(Me.tabletblMSESettlements.specification_page_nameColumn) End Function _ Public Sub Setspecification_page_nameNull() Me(Me.tabletblMSESettlements.specification_page_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istransaction_debit_or_creditNull() As Boolean Return Me.IsNull(Me.tabletblMSESettlements.transaction_debit_or_creditColumn) End Function _ Public Sub Settransaction_debit_or_creditNull() Me(Me.tabletblMSESettlements.transaction_debit_or_creditColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isoriginal_transaction_idNull() As Boolean Return Me.IsNull(Me.tabletblMSESettlements.original_transaction_idColumn) End Function _ Public Sub Setoriginal_transaction_idNull() Me(Me.tabletblMSESettlements.original_transaction_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isoriginal_invoice_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSESettlements.original_invoice_numberColumn) End Function _ Public Sub Setoriginal_invoice_numberNull() Me(Me.tabletblMSESettlements.original_invoice_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isoriginal_invoice_dateNull() As Boolean Return Me.IsNull(Me.tabletblMSESettlements.original_invoice_dateColumn) End Function _ Public Sub Setoriginal_invoice_dateNull() Me(Me.tabletblMSESettlements.original_invoice_dateColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscredit_commentNull() As Boolean Return Me.IsNull(Me.tabletblMSESettlements.credit_commentColumn) End Function _ Public Sub Setcredit_commentNull() Me(Me.tabletblMSESettlements.credit_commentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IststmpNull() As Boolean Return Me.IsNull(Me.tabletblMSESettlements.tstmpColumn) End Function _ Public Sub SettstmpNull() Me(Me.tabletblMSESettlements.tstmpColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMSETransactionsRow Inherits Global.System.Data.DataRow Private tabletblMSETransactions As tblMSETransactionsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMSETransactions = CType(Me.Table,tblMSETransactionsDataTable) End Sub _ Public Property transaction_id() As Integer Get Return CType(Me(Me.tabletblMSETransactions.transaction_idColumn),Integer) End Get Set Me(Me.tabletblMSETransactions.transaction_idColumn) = value End Set End Property _ Public Property controller_id() As Integer Get Try Return CType(Me(Me.tabletblMSETransactions.controller_idColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte controller_id in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.controller_idColumn) = value End Set End Property _ Public Property partner_haulier_id() As Integer Get Try Return CType(Me(Me.tabletblMSETransactions.partner_haulier_idColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte partner_haulier_id in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.partner_haulier_idColumn) = value End Set End Property _ Public Property supplier_name() As String Get Try Return CType(Me(Me.tabletblMSETransactions.supplier_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte supplier_name in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.supplier_nameColumn) = value End Set End Property _ Public Property transaction_country() As String Get Try Return CType(Me(Me.tabletblMSETransactions.transaction_countryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte transaction_country in Tabelle tblMSETransactions ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSETransactions.transaction_countryColumn) = value End Set End Property _ Public Property transaction_domain() As String Get Try Return CType(Me(Me.tabletblMSETransactions.transaction_domainColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte transaction_domain in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.transaction_domainColumn) = value End Set End Property _ Public Property purchase_datetime() As Date Get Try Return CType(Me(Me.tabletblMSETransactions.purchase_datetimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte purchase_datetime in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.purchase_datetimeColumn) = value End Set End Property _ Public Property entry_point_name() As String Get Try Return CType(Me(Me.tabletblMSETransactions.entry_point_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte entry_point_name in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.entry_point_nameColumn) = value End Set End Property _ Public Property entry_datetime() As Date Get Try Return CType(Me(Me.tabletblMSETransactions.entry_datetimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte entry_datetime in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.entry_datetimeColumn) = value End Set End Property _ Public Property exit_point_name() As String Get Try Return CType(Me(Me.tabletblMSETransactions.exit_point_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte exit_point_name in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.exit_point_nameColumn) = value End Set End Property _ Public Property exit_datetime() As Date Get Try Return CType(Me(Me.tabletblMSETransactions.exit_datetimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte exit_datetime in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.exit_datetimeColumn) = value End Set End Property _ Public Property device_product_type() As String Get Try Return CType(Me(Me.tabletblMSETransactions.device_product_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte device_product_type in Tabelle tblMSETransactions ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSETransactions.device_product_typeColumn) = value End Set End Property _ Public Property device_product_number() As String Get Try Return CType(Me(Me.tabletblMSETransactions.device_product_numberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte device_product_number in Tabelle tblMSETransactions ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblMSETransactions.device_product_numberColumn) = value End Set End Property _ Public Property transaction_product_id() As Integer Get Try Return CType(Me(Me.tabletblMSETransactions.transaction_product_idColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte transaction_product_id in Tabelle tblMSETransactions ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSETransactions.transaction_product_idColumn) = value End Set End Property _ Public Property transaction_product_name() As String Get Try Return CType(Me(Me.tabletblMSETransactions.transaction_product_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte transaction_product_name in Tabelle tblMSETransactions ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblMSETransactions.transaction_product_nameColumn) = value End Set End Property _ Public Property license_plate_number() As String Get Try Return CType(Me(Me.tabletblMSETransactions.license_plate_numberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte license_plate_number in Tabelle tblMSETransactions ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblMSETransactions.license_plate_numberColumn) = value End Set End Property _ Public Property vehicle_country() As String Get Try Return CType(Me(Me.tabletblMSETransactions.vehicle_countryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vehicle_country in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.vehicle_countryColumn) = value End Set End Property _ Public Property original_currency() As String Get Try Return CType(Me(Me.tabletblMSETransactions.original_currencyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte original_currency in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.original_currencyColumn) = value End Set End Property _ Public Property original_net_amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.original_net_amountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte original_net_amount in Tabelle tblMSETransactions ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSETransactions.original_net_amountColumn) = value End Set End Property _ Public Property original_gross_amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.original_gross_amountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte original_gross_amount in Tabelle tblMSETransactions ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblMSETransactions.original_gross_amountColumn) = value End Set End Property _ Public Property original_vat_percentage() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.original_vat_percentageColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte original_vat_percentage in Tabelle tblMSETransactions ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.original_vat_percentageColumn) = value End Set End Property _ Public Property customer_currency() As String Get Try Return CType(Me(Me.tabletblMSETransactions.customer_currencyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte customer_currency in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.customer_currencyColumn) = value End Set End Property _ Public Property transaction_net_amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.transaction_net_amountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte transaction_net_amount in Tabelle tblMSETransactions ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSETransactions.transaction_net_amountColumn) = value End Set End Property _ Public Property transaction_gross_amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.transaction_gross_amountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte transaction_gross_amount in Tabelle tblMSETransactions ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblMSETransactions.transaction_gross_amountColumn) = value End Set End Property _ Public Property exempt_amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.exempt_amountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte exempt_amount in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.exempt_amountColumn) = value End Set End Property _ Public Property msts_fee_amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.msts_fee_amountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte msts_fee_amount in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.msts_fee_amountColumn) = value End Set End Property _ Public Property msts_vat_amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.msts_vat_amountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte msts_vat_amount in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.msts_vat_amountColumn) = value End Set End Property _ Public Property msts_vat_percentage() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.msts_vat_percentageColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte msts_vat_percentage in Tabelle tblMSETransactions ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSETransactions.msts_vat_percentageColumn) = value End Set End Property _ Public Property total_gross_amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.total_gross_amountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte total_gross_amount in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.total_gross_amountColumn) = value End Set End Property _ Public Property transaction_status() As String Get Try Return CType(Me(Me.tabletblMSETransactions.transaction_statusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte transaction_status in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.transaction_statusColumn) = value End Set End Property _ Public Property loading_date() As Date Get Try Return CType(Me(Me.tabletblMSETransactions.loading_dateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte loading_date in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.loading_dateColumn) = value End Set End Property _ Public Property batch_seq_nr() As Integer Get Try Return CType(Me(Me.tabletblMSETransactions.batch_seq_nrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte batch_seq_nr in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.batch_seq_nrColumn) = value End Set End Property _ Public Property distance_km() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.distance_kmColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte distance_km in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.distance_kmColumn) = value End Set End Property _ Public Property credit_comment() As String Get Try Return CType(Me(Me.tabletblMSETransactions.credit_commentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte credit_comment in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.credit_commentColumn) = value End Set End Property _ Public Property tstmp() As Date Get Try Return CType(Me(Me.tabletblMSETransactions.tstmpColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tstmp in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.tstmpColumn) = value End Set End Property _ Public Property original_vat_amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.original_vat_amountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte original_vat_amount in Tabelle tblMSETransactions ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSETransactions.original_vat_amountColumn) = value End Set End Property _ Public Property USteuer_EUR() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactions.USteuer_EURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USteuer_EUR in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.USteuer_EURColumn) = value End Set End Property _ Public Property charged() As Boolean Get Return CType(Me(Me.tabletblMSETransactions.chargedColumn),Boolean) End Get Set Me(Me.tabletblMSETransactions.chargedColumn) = value End Set End Property _ Public Property chargedDatetime() As Date Get Try Return CType(Me(Me.tabletblMSETransactions.chargedDatetimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte chargedDatetime in Tabelle tblMSETransactions ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactions.chargedDatetimeColumn) = value End Set End Property _ Public Function Iscontroller_idNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.controller_idColumn) End Function _ Public Sub Setcontroller_idNull() Me(Me.tabletblMSETransactions.controller_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispartner_haulier_idNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.partner_haulier_idColumn) End Function _ Public Sub Setpartner_haulier_idNull() Me(Me.tabletblMSETransactions.partner_haulier_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issupplier_nameNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.supplier_nameColumn) End Function _ Public Sub Setsupplier_nameNull() Me(Me.tabletblMSETransactions.supplier_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istransaction_countryNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.transaction_countryColumn) End Function _ Public Sub Settransaction_countryNull() Me(Me.tabletblMSETransactions.transaction_countryColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istransaction_domainNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.transaction_domainColumn) End Function _ Public Sub Settransaction_domainNull() Me(Me.tabletblMSETransactions.transaction_domainColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispurchase_datetimeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.purchase_datetimeColumn) End Function _ Public Sub Setpurchase_datetimeNull() Me(Me.tabletblMSETransactions.purchase_datetimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isentry_point_nameNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.entry_point_nameColumn) End Function _ Public Sub Setentry_point_nameNull() Me(Me.tabletblMSETransactions.entry_point_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isentry_datetimeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.entry_datetimeColumn) End Function _ Public Sub Setentry_datetimeNull() Me(Me.tabletblMSETransactions.entry_datetimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isexit_point_nameNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.exit_point_nameColumn) End Function _ Public Sub Setexit_point_nameNull() Me(Me.tabletblMSETransactions.exit_point_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isexit_datetimeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.exit_datetimeColumn) End Function _ Public Sub Setexit_datetimeNull() Me(Me.tabletblMSETransactions.exit_datetimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdevice_product_typeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.device_product_typeColumn) End Function _ Public Sub Setdevice_product_typeNull() Me(Me.tabletblMSETransactions.device_product_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdevice_product_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.device_product_numberColumn) End Function _ Public Sub Setdevice_product_numberNull() Me(Me.tabletblMSETransactions.device_product_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istransaction_product_idNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.transaction_product_idColumn) End Function _ Public Sub Settransaction_product_idNull() Me(Me.tabletblMSETransactions.transaction_product_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istransaction_product_nameNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.transaction_product_nameColumn) End Function _ Public Sub Settransaction_product_nameNull() Me(Me.tabletblMSETransactions.transaction_product_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Islicense_plate_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.license_plate_numberColumn) End Function _ Public Sub Setlicense_plate_numberNull() Me(Me.tabletblMSETransactions.license_plate_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvehicle_countryNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.vehicle_countryColumn) End Function _ Public Sub Setvehicle_countryNull() Me(Me.tabletblMSETransactions.vehicle_countryColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isoriginal_currencyNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.original_currencyColumn) End Function _ Public Sub Setoriginal_currencyNull() Me(Me.tabletblMSETransactions.original_currencyColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isoriginal_net_amountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.original_net_amountColumn) End Function _ Public Sub Setoriginal_net_amountNull() Me(Me.tabletblMSETransactions.original_net_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isoriginal_gross_amountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.original_gross_amountColumn) End Function _ Public Sub Setoriginal_gross_amountNull() Me(Me.tabletblMSETransactions.original_gross_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isoriginal_vat_percentageNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.original_vat_percentageColumn) End Function _ Public Sub Setoriginal_vat_percentageNull() Me(Me.tabletblMSETransactions.original_vat_percentageColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscustomer_currencyNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.customer_currencyColumn) End Function _ Public Sub Setcustomer_currencyNull() Me(Me.tabletblMSETransactions.customer_currencyColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istransaction_net_amountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.transaction_net_amountColumn) End Function _ Public Sub Settransaction_net_amountNull() Me(Me.tabletblMSETransactions.transaction_net_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istransaction_gross_amountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.transaction_gross_amountColumn) End Function _ Public Sub Settransaction_gross_amountNull() Me(Me.tabletblMSETransactions.transaction_gross_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isexempt_amountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.exempt_amountColumn) End Function _ Public Sub Setexempt_amountNull() Me(Me.tabletblMSETransactions.exempt_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismsts_fee_amountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.msts_fee_amountColumn) End Function _ Public Sub Setmsts_fee_amountNull() Me(Me.tabletblMSETransactions.msts_fee_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismsts_vat_amountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.msts_vat_amountColumn) End Function _ Public Sub Setmsts_vat_amountNull() Me(Me.tabletblMSETransactions.msts_vat_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ismsts_vat_percentageNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.msts_vat_percentageColumn) End Function _ Public Sub Setmsts_vat_percentageNull() Me(Me.tabletblMSETransactions.msts_vat_percentageColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istotal_gross_amountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.total_gross_amountColumn) End Function _ Public Sub Settotal_gross_amountNull() Me(Me.tabletblMSETransactions.total_gross_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istransaction_statusNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.transaction_statusColumn) End Function _ Public Sub Settransaction_statusNull() Me(Me.tabletblMSETransactions.transaction_statusColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isloading_dateNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.loading_dateColumn) End Function _ Public Sub Setloading_dateNull() Me(Me.tabletblMSETransactions.loading_dateColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbatch_seq_nrNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.batch_seq_nrColumn) End Function _ Public Sub Setbatch_seq_nrNull() Me(Me.tabletblMSETransactions.batch_seq_nrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdistance_kmNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.distance_kmColumn) End Function _ Public Sub Setdistance_kmNull() Me(Me.tabletblMSETransactions.distance_kmColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscredit_commentNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.credit_commentColumn) End Function _ Public Sub Setcredit_commentNull() Me(Me.tabletblMSETransactions.credit_commentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IststmpNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.tstmpColumn) End Function _ Public Sub SettstmpNull() Me(Me.tabletblMSETransactions.tstmpColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isoriginal_vat_amountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.original_vat_amountColumn) End Function _ Public Sub Setoriginal_vat_amountNull() Me(Me.tabletblMSETransactions.original_vat_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSteuer_EURNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.USteuer_EURColumn) End Function _ Public Sub SetUSteuer_EURNull() Me(Me.tabletblMSETransactions.USteuer_EURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IschargedDatetimeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactions.chargedDatetimeColumn) End Function _ Public Sub SetchargedDatetimeNull() Me(Me.tabletblMSETransactions.chargedDatetimeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMSETransactionsArchivRow Inherits Global.System.Data.DataRow Private tabletblMSETransactionsArchiv As tblMSETransactionsArchivDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMSETransactionsArchiv = CType(Me.Table,tblMSETransactionsArchivDataTable) End Sub _ Public Property Controller_ID() As Integer Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Controller_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Controller ID in Tabelle tblMSETransactionsArchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Controller_IDColumn) = value End Set End Property _ Public Property Controller_Name() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Controller_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Controller Name in Tabelle tblMSETransactionsArchiv ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Controller_NameColumn) = value End Set End Property _ Public Property Invoice_ID() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Invoice_IDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Invoice ID in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Invoice_IDColumn) = value End Set End Property _ Public Property Invoice_Date() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Invoice_DateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Invoice Date in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Invoice_DateColumn) = value End Set End Property _ Public Property Customer_ID() As Integer Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Customer_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Customer ID in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Customer_IDColumn) = value End Set End Property _ Public Property Customer_No() As Integer Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Customer_NoColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Customer No in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Customer_NoColumn) = value End Set End Property _ Public Property Customer_name() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Customer_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Customer name in Tabelle tblMSETransactionsArchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Customer_nameColumn) = value End Set End Property _ Public Property Specification_Page() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Specification_PageColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Specification Page in Tabelle tblMSETransactionsArchiv ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Specification_PageColumn) = value End Set End Property _ Public Property Specification_ID() As Short Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Specification_IDColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Specification ID in Tabelle tblMSETransactionsArchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Specification_IDColumn) = value End Set End Property _ Public Property Transaction_date() As Date Get Return CType(Me(Me.tabletblMSETransactionsArchiv.Transaction_dateColumn),Date) End Get Set Me(Me.tabletblMSETransactionsArchiv.Transaction_dateColumn) = value End Set End Property _ Public Property Transaction_Month() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Transaction_MonthColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transaction Month in Tabelle tblMSETransactionsArchiv ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Transaction_MonthColumn) = value End Set End Property _ Public Property Transaction_ID() As Integer Get Return CType(Me(Me.tabletblMSETransactionsArchiv.Transaction_IDColumn),Integer) End Get Set Me(Me.tabletblMSETransactionsArchiv.Transaction_IDColumn) = value End Set End Property _ Public Property _Transaction_Supplier_Terminal() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._Transaction_Supplier_TerminalColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transaction Supplier/Terminal in Tabelle tblMSETransactionsAr"& _ "chiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._Transaction_Supplier_TerminalColumn) = value End Set End Property _ Public Property Transaction_Country() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Transaction_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transaction Country in Tabelle tblMSETransactionsArchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Transaction_CountryColumn) = value End Set End Property _ Public Property Product_description() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Product_descriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Product description in Tabelle tblMSETransactionsArchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Product_descriptionColumn) = value End Set End Property _ Public Property Product_Description_ID() As Integer Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Product_Description_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Product Description ID in Tabelle tblMSETransactionsArchiv is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Product_Description_IDColumn) = value End Set End Property _ Public Property Card_Type() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Card_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Card Type in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Card_TypeColumn) = value End Set End Property _ Public Property Card_number() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Card_numberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Card number in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Card_numberColumn) = value End Set End Property _ Public Property Load_File_Licence_Plate_Number() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Load_File_Licence_Plate_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Load File Licence Plate Number in Tabelle tblMSETransactionsA"& _ "rchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Load_File_Licence_Plate_NumberColumn) = value End Set End Property _ Public Property Card_Licence_Plate_Number() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Card_Licence_Plate_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Card Licence Plate Number in Tabelle tblMSETransactionsArchiv"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Card_Licence_Plate_NumberColumn) = value End Set End Property _ Public Property Truck_Licence_Plate_Number() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Truck_Licence_Plate_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Truck Licence Plate Number in Tabelle tblMSETransactionsArchi"& _ "v ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Truck_Licence_Plate_NumberColumn) = value End Set End Property _ Public Property Truck_Fleet_Code() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Truck_Fleet_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Truck Fleet Code in Tabelle tblMSETransactionsArchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Truck_Fleet_CodeColumn) = value End Set End Property _ Public Property Truck_Driver_Name() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Truck_Driver_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Truck Driver Name in Tabelle tblMSETransactionsArchiv ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Truck_Driver_NameColumn) = value End Set End Property _ Public Property _Entry_Terminal_Direction() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._Entry_Terminal_DirectionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Entry Terminal/Direction in Tabelle tblMSETransactionsArchiv "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._Entry_Terminal_DirectionColumn) = value End Set End Property _ Public Property Start_date() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Start_dateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Start date in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Start_dateColumn) = value End Set End Property _ Public Property Start_Time() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Start_TimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Start Time in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Start_TimeColumn) = value End Set End Property _ Public Property Exit_Terminal_Description() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Exit_Terminal_DescriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Exit Terminal Description in Tabelle tblMSETransactionsArchiv"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Exit_Terminal_DescriptionColumn) = value End Set End Property _ Public Property End_Date() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.End_DateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte End Date in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.End_DateColumn) = value End Set End Property _ Public Property End_Time() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.End_TimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte End Time in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.End_TimeColumn) = value End Set End Property _ Public Property _Eurovignet_K_Number() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._Eurovignet_K_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Eurovignet K-Number in Tabelle tblMSETransactionsArchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._Eurovignet_K_NumberColumn) = value End Set End Property _ Public Property _LKW_Kostenstelle() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._LKW_KostenstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW-Kostenstelle in Tabelle tblMSETransactionsArchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._LKW_KostenstelleColumn) = value End Set End Property _ Public Property Original_Nett_Amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Original_Nett_AmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Original Nett Amount in Tabelle tblMSETransactionsArchiv ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Original_Nett_AmountColumn) = value End Set End Property _ Public Property Original_VAT_Amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Original_VAT_AmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Original VAT Amount in Tabelle tblMSETransactionsArchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Original_VAT_AmountColumn) = value End Set End Property _ Public Property Original_Amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Original_AmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Original Amount in Tabelle tblMSETransactionsArchiv ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Original_AmountColumn) = value End Set End Property _ Public Property Original_Currency() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.Original_CurrencyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Original Currency in Tabelle tblMSETransactionsArchiv ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.Original_CurrencyColumn) = value End Set End Property _ Public Property _Transaction_Amount___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._Transaction_Amount___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transaction Amount ( EUR ) in Tabelle tblMSETransactionsArchi"& _ "v ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._Transaction_Amount___EUR__Column) = value End Set End Property _ Public Property _Admin_Fee_Amount___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._Admin_Fee_Amount___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Admin Fee Amount ( EUR ) in Tabelle tblMSETransactionsArchiv "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._Admin_Fee_Amount___EUR__Column) = value End Set End Property _ Public Property _Fees_and_Costs_Amount___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._Fees_and_Costs_Amount___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fees and Costs Amount ( EUR ) in Tabelle tblMSETransactionsAr"& _ "chiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._Fees_and_Costs_Amount___EUR__Column) = value End Set End Property _ Public Property _VAT_Amount___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._VAT_Amount___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VAT Amount ( EUR ) in Tabelle tblMSETransactionsArchiv ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._VAT_Amount___EUR__Column) = value End Set End Property _ Public Property _Total_Amount___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._Total_Amount___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Total Amount ( EUR ) in Tabelle tblMSETransactionsArchiv ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._Total_Amount___EUR__Column) = value End Set End Property _ Public Property _Total_Dutch_VAT___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._Total_Dutch_VAT___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Total Dutch VAT ( EUR ) in Tabelle tblMSETransactionsArchiv i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._Total_Dutch_VAT___EUR__Column) = value End Set End Property _ Public Property _Total_Foreign_VAT___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv._Total_Foreign_VAT___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Total Foreign VAT ( EUR ) in Tabelle tblMSETransactionsArchiv"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv._Total_Foreign_VAT___EUR__Column) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.UStVAn_IDColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblMSETransactionsArchiv.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblMSETransactionsArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchiv.upsize_tsColumn) = value End Set End Property _ Public Property Dateiname() As String Get Return CType(Me(Me.tabletblMSETransactionsArchiv.DateinameColumn),String) End Get Set Me(Me.tabletblMSETransactionsArchiv.DateinameColumn) = value End Set End Property _ Public Property LfdNr() As Integer Get Return CType(Me(Me.tabletblMSETransactionsArchiv.LfdNrColumn),Integer) End Get Set Me(Me.tabletblMSETransactionsArchiv.LfdNrColumn) = value End Set End Property _ Public Function IsController_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Controller_IDColumn) End Function _ Public Sub SetController_IDNull() Me(Me.tabletblMSETransactionsArchiv.Controller_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsController_NameNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Controller_NameColumn) End Function _ Public Sub SetController_NameNull() Me(Me.tabletblMSETransactionsArchiv.Controller_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsInvoice_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Invoice_IDColumn) End Function _ Public Sub SetInvoice_IDNull() Me(Me.tabletblMSETransactionsArchiv.Invoice_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsInvoice_DateNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Invoice_DateColumn) End Function _ Public Sub SetInvoice_DateNull() Me(Me.tabletblMSETransactionsArchiv.Invoice_DateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomer_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Customer_IDColumn) End Function _ Public Sub SetCustomer_IDNull() Me(Me.tabletblMSETransactionsArchiv.Customer_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomer_NoNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Customer_NoColumn) End Function _ Public Sub SetCustomer_NoNull() Me(Me.tabletblMSETransactionsArchiv.Customer_NoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomer_nameNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Customer_nameColumn) End Function _ Public Sub SetCustomer_nameNull() Me(Me.tabletblMSETransactionsArchiv.Customer_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSpecification_PageNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Specification_PageColumn) End Function _ Public Sub SetSpecification_PageNull() Me(Me.tabletblMSETransactionsArchiv.Specification_PageColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSpecification_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Specification_IDColumn) End Function _ Public Sub SetSpecification_IDNull() Me(Me.tabletblMSETransactionsArchiv.Specification_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransaction_MonthNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Transaction_MonthColumn) End Function _ Public Sub SetTransaction_MonthNull() Me(Me.tabletblMSETransactionsArchiv.Transaction_MonthColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Transaction_Supplier_TerminalNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._Transaction_Supplier_TerminalColumn) End Function _ Public Sub Set_Transaction_Supplier_TerminalNull() Me(Me.tabletblMSETransactionsArchiv._Transaction_Supplier_TerminalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransaction_CountryNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Transaction_CountryColumn) End Function _ Public Sub SetTransaction_CountryNull() Me(Me.tabletblMSETransactionsArchiv.Transaction_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsProduct_descriptionNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Product_descriptionColumn) End Function _ Public Sub SetProduct_descriptionNull() Me(Me.tabletblMSETransactionsArchiv.Product_descriptionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsProduct_Description_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Product_Description_IDColumn) End Function _ Public Sub SetProduct_Description_IDNull() Me(Me.tabletblMSETransactionsArchiv.Product_Description_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCard_TypeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Card_TypeColumn) End Function _ Public Sub SetCard_TypeNull() Me(Me.tabletblMSETransactionsArchiv.Card_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCard_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Card_numberColumn) End Function _ Public Sub SetCard_numberNull() Me(Me.tabletblMSETransactionsArchiv.Card_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLoad_File_Licence_Plate_NumberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Load_File_Licence_Plate_NumberColumn) End Function _ Public Sub SetLoad_File_Licence_Plate_NumberNull() Me(Me.tabletblMSETransactionsArchiv.Load_File_Licence_Plate_NumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCard_Licence_Plate_NumberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Card_Licence_Plate_NumberColumn) End Function _ Public Sub SetCard_Licence_Plate_NumberNull() Me(Me.tabletblMSETransactionsArchiv.Card_Licence_Plate_NumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTruck_Licence_Plate_NumberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Truck_Licence_Plate_NumberColumn) End Function _ Public Sub SetTruck_Licence_Plate_NumberNull() Me(Me.tabletblMSETransactionsArchiv.Truck_Licence_Plate_NumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTruck_Fleet_CodeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Truck_Fleet_CodeColumn) End Function _ Public Sub SetTruck_Fleet_CodeNull() Me(Me.tabletblMSETransactionsArchiv.Truck_Fleet_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTruck_Driver_NameNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Truck_Driver_NameColumn) End Function _ Public Sub SetTruck_Driver_NameNull() Me(Me.tabletblMSETransactionsArchiv.Truck_Driver_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Entry_Terminal_DirectionNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._Entry_Terminal_DirectionColumn) End Function _ Public Sub Set_Entry_Terminal_DirectionNull() Me(Me.tabletblMSETransactionsArchiv._Entry_Terminal_DirectionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStart_dateNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Start_dateColumn) End Function _ Public Sub SetStart_dateNull() Me(Me.tabletblMSETransactionsArchiv.Start_dateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStart_TimeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Start_TimeColumn) End Function _ Public Sub SetStart_TimeNull() Me(Me.tabletblMSETransactionsArchiv.Start_TimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExit_Terminal_DescriptionNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Exit_Terminal_DescriptionColumn) End Function _ Public Sub SetExit_Terminal_DescriptionNull() Me(Me.tabletblMSETransactionsArchiv.Exit_Terminal_DescriptionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEnd_DateNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.End_DateColumn) End Function _ Public Sub SetEnd_DateNull() Me(Me.tabletblMSETransactionsArchiv.End_DateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEnd_TimeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.End_TimeColumn) End Function _ Public Sub SetEnd_TimeNull() Me(Me.tabletblMSETransactionsArchiv.End_TimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Eurovignet_K_NumberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._Eurovignet_K_NumberColumn) End Function _ Public Sub Set_Eurovignet_K_NumberNull() Me(Me.tabletblMSETransactionsArchiv._Eurovignet_K_NumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_LKW_KostenstelleNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._LKW_KostenstelleColumn) End Function _ Public Sub Set_LKW_KostenstelleNull() Me(Me.tabletblMSETransactionsArchiv._LKW_KostenstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOriginal_Nett_AmountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Original_Nett_AmountColumn) End Function _ Public Sub SetOriginal_Nett_AmountNull() Me(Me.tabletblMSETransactionsArchiv.Original_Nett_AmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOriginal_VAT_AmountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Original_VAT_AmountColumn) End Function _ Public Sub SetOriginal_VAT_AmountNull() Me(Me.tabletblMSETransactionsArchiv.Original_VAT_AmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOriginal_AmountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Original_AmountColumn) End Function _ Public Sub SetOriginal_AmountNull() Me(Me.tabletblMSETransactionsArchiv.Original_AmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOriginal_CurrencyNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.Original_CurrencyColumn) End Function _ Public Sub SetOriginal_CurrencyNull() Me(Me.tabletblMSETransactionsArchiv.Original_CurrencyColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Transaction_Amount___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._Transaction_Amount___EUR__Column) End Function _ Public Sub Set_Transaction_Amount___EUR__Null() Me(Me.tabletblMSETransactionsArchiv._Transaction_Amount___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Admin_Fee_Amount___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._Admin_Fee_Amount___EUR__Column) End Function _ Public Sub Set_Admin_Fee_Amount___EUR__Null() Me(Me.tabletblMSETransactionsArchiv._Admin_Fee_Amount___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Fees_and_Costs_Amount___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._Fees_and_Costs_Amount___EUR__Column) End Function _ Public Sub Set_Fees_and_Costs_Amount___EUR__Null() Me(Me.tabletblMSETransactionsArchiv._Fees_and_Costs_Amount___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_VAT_Amount___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._VAT_Amount___EUR__Column) End Function _ Public Sub Set_VAT_Amount___EUR__Null() Me(Me.tabletblMSETransactionsArchiv._VAT_Amount___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Total_Amount___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._Total_Amount___EUR__Column) End Function _ Public Sub Set_Total_Amount___EUR__Null() Me(Me.tabletblMSETransactionsArchiv._Total_Amount___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Total_Dutch_VAT___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._Total_Dutch_VAT___EUR__Column) End Function _ Public Sub Set_Total_Dutch_VAT___EUR__Null() Me(Me.tabletblMSETransactionsArchiv._Total_Dutch_VAT___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Total_Foreign_VAT___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv._Total_Foreign_VAT___EUR__Column) End Function _ Public Sub Set_Total_Foreign_VAT___EUR__Null() Me(Me.tabletblMSETransactionsArchiv._Total_Foreign_VAT___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tabletblMSETransactionsArchiv.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchiv.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblMSETransactionsArchiv.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblMSETransactionsArchivOLDRow Inherits Global.System.Data.DataRow Private tabletblMSETransactionsArchivOLD As tblMSETransactionsArchivOLDDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblMSETransactionsArchivOLD = CType(Me.Table,tblMSETransactionsArchivOLDDataTable) End Sub _ Public Property Controller_ID() As Integer Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Controller_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Controller ID in Tabelle tblMSETransactionsArchivOLD ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Controller_IDColumn) = value End Set End Property _ Public Property Controller_Name() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Controller_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Controller Name in Tabelle tblMSETransactionsArchivOLD ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Controller_NameColumn) = value End Set End Property _ Public Property Invoice_ID() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Invoice_IDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Invoice ID in Tabelle tblMSETransactionsArchivOLD ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Invoice_IDColumn) = value End Set End Property _ Public Property Invoice_Date() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Invoice_DateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Invoice Date in Tabelle tblMSETransactionsArchivOLD ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Invoice_DateColumn) = value End Set End Property _ Public Property Customer_ID() As Integer Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Customer_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Customer ID in Tabelle tblMSETransactionsArchivOLD ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Customer_IDColumn) = value End Set End Property _ Public Property Customer_No() As Integer Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Customer_NoColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Customer No in Tabelle tblMSETransactionsArchivOLD ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Customer_NoColumn) = value End Set End Property _ Public Property Customer_name() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Customer_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Customer name in Tabelle tblMSETransactionsArchivOLD ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Customer_nameColumn) = value End Set End Property _ Public Property Specification_Page() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Specification_PageColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Specification Page in Tabelle tblMSETransactionsArchivOLD ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Specification_PageColumn) = value End Set End Property _ Public Property Specification_ID() As Short Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Specification_IDColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Specification ID in Tabelle tblMSETransactionsArchivOLD ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Specification_IDColumn) = value End Set End Property _ Public Property Transaction_date() As Date Get Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Transaction_dateColumn),Date) End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Transaction_dateColumn) = value End Set End Property _ Public Property Transaction_Month() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Transaction_MonthColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transaction Month in Tabelle tblMSETransactionsArchivOLD ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Transaction_MonthColumn) = value End Set End Property _ Public Property Transaction_ID() As Integer Get Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Transaction_IDColumn),Integer) End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Transaction_IDColumn) = value End Set End Property _ Public Property _Transaction_Supplier_Terminal() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._Transaction_Supplier_TerminalColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transaction Supplier/Terminal in Tabelle tblMSETransactionsAr"& _ "chivOLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._Transaction_Supplier_TerminalColumn) = value End Set End Property _ Public Property Transaction_Country() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Transaction_CountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transaction Country in Tabelle tblMSETransactionsArchivOLD is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Transaction_CountryColumn) = value End Set End Property _ Public Property Product_description() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Product_descriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Product description in Tabelle tblMSETransactionsArchivOLD is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Product_descriptionColumn) = value End Set End Property _ Public Property Product_Description_ID() As Integer Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Product_Description_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Product Description ID in Tabelle tblMSETransactionsArchivOLD"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Product_Description_IDColumn) = value End Set End Property _ Public Property Card_Type() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Card_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Card Type in Tabelle tblMSETransactionsArchivOLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Card_TypeColumn) = value End Set End Property _ Public Property Card_number() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Card_numberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Card number in Tabelle tblMSETransactionsArchivOLD ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Card_numberColumn) = value End Set End Property _ Public Property Load_File_Licence_Plate_Number() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Load_File_Licence_Plate_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Load File Licence Plate Number in Tabelle tblMSETransactionsA"& _ "rchivOLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Load_File_Licence_Plate_NumberColumn) = value End Set End Property _ Public Property Card_Licence_Plate_Number() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Card_Licence_Plate_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Card Licence Plate Number in Tabelle tblMSETransactionsArchiv"& _ "OLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Card_Licence_Plate_NumberColumn) = value End Set End Property _ Public Property Truck_Licence_Plate_Number() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Truck_Licence_Plate_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Truck Licence Plate Number in Tabelle tblMSETransactionsArchi"& _ "vOLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Truck_Licence_Plate_NumberColumn) = value End Set End Property _ Public Property Truck_Fleet_Code() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Truck_Fleet_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Truck Fleet Code in Tabelle tblMSETransactionsArchivOLD ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Truck_Fleet_CodeColumn) = value End Set End Property _ Public Property Truck_Driver_Name() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Truck_Driver_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Truck Driver Name in Tabelle tblMSETransactionsArchivOLD ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Truck_Driver_NameColumn) = value End Set End Property _ Public Property _Entry_Terminal_Direction() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._Entry_Terminal_DirectionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Entry Terminal/Direction in Tabelle tblMSETransactionsArchivO"& _ "LD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._Entry_Terminal_DirectionColumn) = value End Set End Property _ Public Property Start_date() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Start_dateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Start date in Tabelle tblMSETransactionsArchivOLD ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Start_dateColumn) = value End Set End Property _ Public Property Start_Time() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Start_TimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Start Time in Tabelle tblMSETransactionsArchivOLD ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Start_TimeColumn) = value End Set End Property _ Public Property Exit_Terminal_Description() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Exit_Terminal_DescriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Exit Terminal Description in Tabelle tblMSETransactionsArchiv"& _ "OLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Exit_Terminal_DescriptionColumn) = value End Set End Property _ Public Property End_Date() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.End_DateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte End Date in Tabelle tblMSETransactionsArchivOLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.End_DateColumn) = value End Set End Property _ Public Property End_Time() As Date Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.End_TimeColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte End Time in Tabelle tblMSETransactionsArchivOLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.End_TimeColumn) = value End Set End Property _ Public Property _Eurovignet_K_Number() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._Eurovignet_K_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Eurovignet K-Number in Tabelle tblMSETransactionsArchivOLD is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._Eurovignet_K_NumberColumn) = value End Set End Property _ Public Property _LKW_Kostenstelle() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._LKW_KostenstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW-Kostenstelle in Tabelle tblMSETransactionsArchivOLD ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._LKW_KostenstelleColumn) = value End Set End Property _ Public Property Original_Nett_Amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Original_Nett_AmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Original Nett Amount in Tabelle tblMSETransactionsArchivOLD i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Original_Nett_AmountColumn) = value End Set End Property _ Public Property Original_VAT_Amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Original_VAT_AmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Original VAT Amount in Tabelle tblMSETransactionsArchivOLD is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Original_VAT_AmountColumn) = value End Set End Property _ Public Property Original_Amount() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Original_AmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Original Amount in Tabelle tblMSETransactionsArchivOLD ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Original_AmountColumn) = value End Set End Property _ Public Property Original_Currency() As String Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.Original_CurrencyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Original Currency in Tabelle tblMSETransactionsArchivOLD ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.Original_CurrencyColumn) = value End Set End Property _ Public Property _Transaction_Amount___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._Transaction_Amount___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transaction Amount ( EUR ) in Tabelle tblMSETransactionsArchi"& _ "vOLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._Transaction_Amount___EUR__Column) = value End Set End Property _ Public Property _Admin_Fee_Amount___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._Admin_Fee_Amount___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Admin Fee Amount ( EUR ) in Tabelle tblMSETransactionsArchivO"& _ "LD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._Admin_Fee_Amount___EUR__Column) = value End Set End Property _ Public Property _Fees_and_Costs_Amount___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._Fees_and_Costs_Amount___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fees and Costs Amount ( EUR ) in Tabelle tblMSETransactionsAr"& _ "chivOLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._Fees_and_Costs_Amount___EUR__Column) = value End Set End Property _ Public Property _VAT_Amount___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._VAT_Amount___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VAT Amount ( EUR ) in Tabelle tblMSETransactionsArchivOLD ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._VAT_Amount___EUR__Column) = value End Set End Property _ Public Property _Total_Amount___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._Total_Amount___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Total Amount ( EUR ) in Tabelle tblMSETransactionsArchivOLD i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._Total_Amount___EUR__Column) = value End Set End Property _ Public Property _Total_Dutch_VAT___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._Total_Dutch_VAT___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Total Dutch VAT ( EUR ) in Tabelle tblMSETransactionsArchivOL"& _ "D ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._Total_Dutch_VAT___EUR__Column) = value End Set End Property _ Public Property _Total_Foreign_VAT___EUR__() As Decimal Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD._Total_Foreign_VAT___EUR__Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Total Foreign VAT ( EUR ) in Tabelle tblMSETransactionsArchiv"& _ "OLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD._Total_Foreign_VAT___EUR__Column) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle tblMSETransactionsArchivOLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.UStVAn_IDColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblMSETransactionsArchivOLD.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblMSETransactionsArchivOLD ist DBNull.", e) End Try End Get Set Me(Me.tabletblMSETransactionsArchivOLD.upsize_tsColumn) = value End Set End Property _ Public Property Dateiname() As String Get Return CType(Me(Me.tabletblMSETransactionsArchivOLD.DateinameColumn),String) End Get Set Me(Me.tabletblMSETransactionsArchivOLD.DateinameColumn) = value End Set End Property _ Public Property LfdNr() As Integer Get Return CType(Me(Me.tabletblMSETransactionsArchivOLD.LfdNrColumn),Integer) End Get Set Me(Me.tabletblMSETransactionsArchivOLD.LfdNrColumn) = value End Set End Property _ Public Function IsController_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Controller_IDColumn) End Function _ Public Sub SetController_IDNull() Me(Me.tabletblMSETransactionsArchivOLD.Controller_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsController_NameNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Controller_NameColumn) End Function _ Public Sub SetController_NameNull() Me(Me.tabletblMSETransactionsArchivOLD.Controller_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsInvoice_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Invoice_IDColumn) End Function _ Public Sub SetInvoice_IDNull() Me(Me.tabletblMSETransactionsArchivOLD.Invoice_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsInvoice_DateNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Invoice_DateColumn) End Function _ Public Sub SetInvoice_DateNull() Me(Me.tabletblMSETransactionsArchivOLD.Invoice_DateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomer_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Customer_IDColumn) End Function _ Public Sub SetCustomer_IDNull() Me(Me.tabletblMSETransactionsArchivOLD.Customer_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomer_NoNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Customer_NoColumn) End Function _ Public Sub SetCustomer_NoNull() Me(Me.tabletblMSETransactionsArchivOLD.Customer_NoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomer_nameNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Customer_nameColumn) End Function _ Public Sub SetCustomer_nameNull() Me(Me.tabletblMSETransactionsArchivOLD.Customer_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSpecification_PageNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Specification_PageColumn) End Function _ Public Sub SetSpecification_PageNull() Me(Me.tabletblMSETransactionsArchivOLD.Specification_PageColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSpecification_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Specification_IDColumn) End Function _ Public Sub SetSpecification_IDNull() Me(Me.tabletblMSETransactionsArchivOLD.Specification_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransaction_MonthNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Transaction_MonthColumn) End Function _ Public Sub SetTransaction_MonthNull() Me(Me.tabletblMSETransactionsArchivOLD.Transaction_MonthColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Transaction_Supplier_TerminalNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._Transaction_Supplier_TerminalColumn) End Function _ Public Sub Set_Transaction_Supplier_TerminalNull() Me(Me.tabletblMSETransactionsArchivOLD._Transaction_Supplier_TerminalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransaction_CountryNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Transaction_CountryColumn) End Function _ Public Sub SetTransaction_CountryNull() Me(Me.tabletblMSETransactionsArchivOLD.Transaction_CountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsProduct_descriptionNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Product_descriptionColumn) End Function _ Public Sub SetProduct_descriptionNull() Me(Me.tabletblMSETransactionsArchivOLD.Product_descriptionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsProduct_Description_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Product_Description_IDColumn) End Function _ Public Sub SetProduct_Description_IDNull() Me(Me.tabletblMSETransactionsArchivOLD.Product_Description_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCard_TypeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Card_TypeColumn) End Function _ Public Sub SetCard_TypeNull() Me(Me.tabletblMSETransactionsArchivOLD.Card_TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCard_numberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Card_numberColumn) End Function _ Public Sub SetCard_numberNull() Me(Me.tabletblMSETransactionsArchivOLD.Card_numberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLoad_File_Licence_Plate_NumberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Load_File_Licence_Plate_NumberColumn) End Function _ Public Sub SetLoad_File_Licence_Plate_NumberNull() Me(Me.tabletblMSETransactionsArchivOLD.Load_File_Licence_Plate_NumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCard_Licence_Plate_NumberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Card_Licence_Plate_NumberColumn) End Function _ Public Sub SetCard_Licence_Plate_NumberNull() Me(Me.tabletblMSETransactionsArchivOLD.Card_Licence_Plate_NumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTruck_Licence_Plate_NumberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Truck_Licence_Plate_NumberColumn) End Function _ Public Sub SetTruck_Licence_Plate_NumberNull() Me(Me.tabletblMSETransactionsArchivOLD.Truck_Licence_Plate_NumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTruck_Fleet_CodeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Truck_Fleet_CodeColumn) End Function _ Public Sub SetTruck_Fleet_CodeNull() Me(Me.tabletblMSETransactionsArchivOLD.Truck_Fleet_CodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTruck_Driver_NameNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Truck_Driver_NameColumn) End Function _ Public Sub SetTruck_Driver_NameNull() Me(Me.tabletblMSETransactionsArchivOLD.Truck_Driver_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Entry_Terminal_DirectionNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._Entry_Terminal_DirectionColumn) End Function _ Public Sub Set_Entry_Terminal_DirectionNull() Me(Me.tabletblMSETransactionsArchivOLD._Entry_Terminal_DirectionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStart_dateNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Start_dateColumn) End Function _ Public Sub SetStart_dateNull() Me(Me.tabletblMSETransactionsArchivOLD.Start_dateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStart_TimeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Start_TimeColumn) End Function _ Public Sub SetStart_TimeNull() Me(Me.tabletblMSETransactionsArchivOLD.Start_TimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExit_Terminal_DescriptionNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Exit_Terminal_DescriptionColumn) End Function _ Public Sub SetExit_Terminal_DescriptionNull() Me(Me.tabletblMSETransactionsArchivOLD.Exit_Terminal_DescriptionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEnd_DateNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.End_DateColumn) End Function _ Public Sub SetEnd_DateNull() Me(Me.tabletblMSETransactionsArchivOLD.End_DateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEnd_TimeNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.End_TimeColumn) End Function _ Public Sub SetEnd_TimeNull() Me(Me.tabletblMSETransactionsArchivOLD.End_TimeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Eurovignet_K_NumberNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._Eurovignet_K_NumberColumn) End Function _ Public Sub Set_Eurovignet_K_NumberNull() Me(Me.tabletblMSETransactionsArchivOLD._Eurovignet_K_NumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_LKW_KostenstelleNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._LKW_KostenstelleColumn) End Function _ Public Sub Set_LKW_KostenstelleNull() Me(Me.tabletblMSETransactionsArchivOLD._LKW_KostenstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOriginal_Nett_AmountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Original_Nett_AmountColumn) End Function _ Public Sub SetOriginal_Nett_AmountNull() Me(Me.tabletblMSETransactionsArchivOLD.Original_Nett_AmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOriginal_VAT_AmountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Original_VAT_AmountColumn) End Function _ Public Sub SetOriginal_VAT_AmountNull() Me(Me.tabletblMSETransactionsArchivOLD.Original_VAT_AmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOriginal_AmountNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Original_AmountColumn) End Function _ Public Sub SetOriginal_AmountNull() Me(Me.tabletblMSETransactionsArchivOLD.Original_AmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOriginal_CurrencyNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.Original_CurrencyColumn) End Function _ Public Sub SetOriginal_CurrencyNull() Me(Me.tabletblMSETransactionsArchivOLD.Original_CurrencyColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Transaction_Amount___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._Transaction_Amount___EUR__Column) End Function _ Public Sub Set_Transaction_Amount___EUR__Null() Me(Me.tabletblMSETransactionsArchivOLD._Transaction_Amount___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Admin_Fee_Amount___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._Admin_Fee_Amount___EUR__Column) End Function _ Public Sub Set_Admin_Fee_Amount___EUR__Null() Me(Me.tabletblMSETransactionsArchivOLD._Admin_Fee_Amount___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Fees_and_Costs_Amount___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._Fees_and_Costs_Amount___EUR__Column) End Function _ Public Sub Set_Fees_and_Costs_Amount___EUR__Null() Me(Me.tabletblMSETransactionsArchivOLD._Fees_and_Costs_Amount___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_VAT_Amount___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._VAT_Amount___EUR__Column) End Function _ Public Sub Set_VAT_Amount___EUR__Null() Me(Me.tabletblMSETransactionsArchivOLD._VAT_Amount___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Total_Amount___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._Total_Amount___EUR__Column) End Function _ Public Sub Set_Total_Amount___EUR__Null() Me(Me.tabletblMSETransactionsArchivOLD._Total_Amount___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Total_Dutch_VAT___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._Total_Dutch_VAT___EUR__Column) End Function _ Public Sub Set_Total_Dutch_VAT___EUR__Null() Me(Me.tabletblMSETransactionsArchivOLD._Total_Dutch_VAT___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Total_Foreign_VAT___EUR__Null() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD._Total_Foreign_VAT___EUR__Column) End Function _ Public Sub Set_Total_Foreign_VAT___EUR__Null() Me(Me.tabletblMSETransactionsArchivOLD._Total_Foreign_VAT___EUR__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tabletblMSETransactionsArchivOLD.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblMSETransactionsArchivOLD.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblMSETransactionsArchivOLD.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblNCTS_TRRow Inherits Global.System.Data.DataRow Private tabletblNCTS_TR As tblNCTS_TRDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblNCTS_TR = CType(Me.Table,tblNCTS_TRDataTable) End Sub _ Public Property ncts_Id() As Integer Get Return CType(Me(Me.tabletblNCTS_TR.ncts_IdColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR.ncts_IdColumn) = value End Set End Property _ Public Property ncts_Partnersystem() As String Get Return CType(Me(Me.tabletblNCTS_TR.ncts_PartnersystemColumn),String) End Get Set Me(Me.tabletblNCTS_TR.ncts_PartnersystemColumn) = value End Set End Property _ Public Property ncts_Status() As Integer Get Return CType(Me(Me.tabletblNCTS_TR.ncts_StatusColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR.ncts_StatusColumn) = value End Set End Property _ Public Property ncts_Status_KEWILL_Equivalent() As Integer Get Return CType(Me(Me.tabletblNCTS_TR.ncts_Status_KEWILL_EquivalentColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR.ncts_Status_KEWILL_EquivalentColumn) = value End Set End Property _ Public Property ncts_dyaArt() As String Get Return CType(Me(Me.tabletblNCTS_TR.ncts_dyaArtColumn),String) End Get Set Me(Me.tabletblNCTS_TR.ncts_dyaArtColumn) = value End Set End Property _ Public Property ncts_dyaAnmID() As Integer Get Return CType(Me(Me.tabletblNCTS_TR.ncts_dyaAnmIDColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR.ncts_dyaAnmIDColumn) = value End Set End Property _ Public Property ncts_ANR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_ANRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ANR in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_ANRColumn) = value End Set End Property _ Public Property ncts_MRN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_MRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_MRN in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_MRNColumn) = value End Set End Property _ Public Property ncts_Erstellung() As Date Get Return CType(Me(Me.tabletblNCTS_TR.ncts_ErstellungColumn),Date) End Get Set Me(Me.tabletblNCTS_TR.ncts_ErstellungColumn) = value End Set End Property _ Public Property ncts_Erstellung_SB() As Integer Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Erstellung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Erstellung_SB in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Erstellung_SBColumn) = value End Set End Property _ Public Property ncts_LetzteBearbeitung() As Date Get Return CType(Me(Me.tabletblNCTS_TR.ncts_LetzteBearbeitungColumn),Date) End Get Set Me(Me.tabletblNCTS_TR.ncts_LetzteBearbeitungColumn) = value End Set End Property _ Public Property ncts_LetzteBearbeitung_SB() As Integer Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_LetzteBearbeitung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_LetzteBearbeitung_SB in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_LetzteBearbeitung_SBColumn) = value End Set End Property _ Public Property ncts_firma() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_firmaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_firma in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_firmaColumn) = value End Set End Property _ Public Property ncts_niederlassung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_niederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_niederlassung in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_niederlassungColumn) = value End Set End Property _ Public Property ncts_Gestellt() As Boolean Get Return CType(Me(Me.tabletblNCTS_TR.ncts_GestelltColumn),Boolean) End Get Set Me(Me.tabletblNCTS_TR.ncts_GestelltColumn) = value End Set End Property _ Public Property ncts_GestelltAm() As Date Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_GestelltAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_GestelltAm in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_GestelltAmColumn) = value End Set End Property _ Public Property ncts_Trans_Partner() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Trans_PartnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Partner in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Trans_PartnerColumn) = value End Set End Property _ Public Property ncts_Trans_Div1() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Trans_Div1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Div1 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Trans_Div1Column) = value End Set End Property _ Public Property ncts_Trans_Div2() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Trans_Div2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Div2 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Trans_Div2Column) = value End Set End Property _ Public Property ncts_Trans_Div3() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Trans_Div3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Div3 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Trans_Div3Column) = value End Set End Property _ Public Property ncts_Trans_Referenz() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Trans_ReferenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Referenz in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Trans_ReferenzColumn) = value End Set End Property _ Public Property ncts_Trans_DatumZeit() As Date Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Trans_DatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_DatumZeit in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Trans_DatumZeitColumn) = value End Set End Property _ Public Property ncts_Trans_Version() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Trans_VersionColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Trans_Version in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Trans_VersionColumn) = value End Set End Property _ Public Property ncts_NachrichtenSenderTIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_NachrichtenSenderTINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_NachrichtenSenderTIN in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_NachrichtenSenderTINColumn) = value End Set End Property _ Public Property ncts_NachrichtenSenderNLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_NachrichtenSenderNLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_NachrichtenSenderNLNR in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_NachrichtenSenderNLNRColumn) = value End Set End Property _ Public Property ncts_NachrichtenempfaengerDST() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_NachrichtenempfaengerDSTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_NachrichtenempfaengerDST in Tabelle tblNCTS_TR ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_NachrichtenempfaengerDSTColumn) = value End Set End Property _ Public Property ncts_ObjectName() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_ObjectNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ObjectName in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_ObjectNameColumn) = value End Set End Property _ Public Property ncts_ObjectAlias() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_ObjectAliasColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ObjectAlias in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_ObjectAliasColumn) = value End Set End Property _ Public Property ncts_BezugsnummerVorblendung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_BezugsnummerVorblendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_BezugsnummerVorblendung in Tabelle tblNCTS_TR ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_BezugsnummerVorblendungColumn) = value End Set End Property _ Public Property ncts_Bearbeiter() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_BearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Bearbeiter in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_BearbeiterColumn) = value End Set End Property _ Public Property ncts_VersendungsLandCode() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_VersendungsLandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_VersendungsLandCode in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_VersendungsLandCodeColumn) = value End Set End Property _ Public Property ncts_BestimmungslandCode() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_BestimmungslandCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_BestimmungslandCode in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_BestimmungslandCodeColumn) = value End Set End Property _ Public Property ncts_ArtAnmeldung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_ArtAnmeldungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ArtAnmeldung in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_ArtAnmeldungColumn) = value End Set End Property _ Public Property ncts_BeladungsOrt() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_BeladungsOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_BeladungsOrt in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_BeladungsOrtColumn) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer1() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer1 in Tabelle tblNCT"& _ "S_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer1Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer2() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer2 in Tabelle tblNCT"& _ "S_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer2Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer3() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer3 in Tabelle tblNCT"& _ "S_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer3Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer4() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer4 in Tabelle tblNCT"& _ "S_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer4Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer5() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer5 in Tabelle tblNCT"& _ "S_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer5Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer6() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer6 in Tabelle tblNCT"& _ "S_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer6Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer7() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer7 in Tabelle tblNCT"& _ "S_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer7Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer8() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer8 in Tabelle tblNCT"& _ "S_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer8Column) = value End Set End Property _ Public Property ncts_DurchgangszollstelleDienststellnummer9() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_DurchgangszollstelleDienststellnummer9 in Tabelle tblNCT"& _ "S_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer9Column) = value End Set End Property _ Public Property ncts_BestimmungsstelleDienststellennummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_BestimmungsstelleDienststellennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_BestimmungsstelleDienststellennummer in Tabelle tblNCTS_"& _ "TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_BestimmungsstelleDienststellennummerColumn) = value End Set End Property _ Public Property ncts_AbgangsDienststellennummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_AbgangsDienststellennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_AbgangsDienststellennummer in Tabelle tblNCTS_TR ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_AbgangsDienststellennummerColumn) = value End Set End Property _ Public Property ncts_Wiedergestellungsdatum() As Date Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_WiedergestellungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Wiedergestellungsdatum in Tabelle tblNCTS_TR ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_WiedergestellungsdatumColumn) = value End Set End Property _ Public Property ncts_KzVereinfachtesVerfahren() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_KzVereinfachtesVerfahrenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_KzVereinfachtesVerfahren in Tabelle tblNCTS_TR ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_KzVereinfachtesVerfahrenColumn) = value End Set End Property _ Public Property ncts_GesamtRohmasse() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_GesamtRohmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_GesamtRohmasse in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_GesamtRohmasseColumn) = value End Set End Property _ Public Property ncts_GesamtAnzahlPackstuecke() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_GesamtAnzahlPackstueckeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_GesamtAnzahlPackstuecke in Tabelle tblNCTS_TR ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_GesamtAnzahlPackstueckeColumn) = value End Set End Property _ Public Property ncts_Verschluss_ArtCode() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_ArtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_ArtCode in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_ArtCodeColumn) = value End Set End Property _ Public Property ncts_Verschluss_Anzahl() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_AnzahlColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Anzahl in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_AnzahlColumn) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen1() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen1 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen1Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen2() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen2 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen2Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen3() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen3 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen3Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen4() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen4 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen4Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen5() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen5 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen5Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen6() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen6 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen6Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen7() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen7 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen7Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen8() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen8 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen8Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen9() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen9 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen9Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen10() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen10 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen10Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen11() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen11Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen11 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen11Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen12() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen12Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen12 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen12Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen13() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen13Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen13 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen13Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen14() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen14Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen14 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen14Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen15() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen15Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen15 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen15Column) = value End Set End Property _ Public Property ncts_Verschluss_Zeichen16() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen16Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Verschluss_Zeichen16 in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen16Column) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_KennzeichenAbgang() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgangColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_KennzeichenAbgang in Tabelle tblNCTS"& _ "_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgangColumn) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode in Tab"& _ "elle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeColumn) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent in"& _ " Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentColumn) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_ArtGrenzueberschreitungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_ArtGrenzueberschreitung in Tabelle t"& _ "blNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_ArtGrenzueberschreitungColumn) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend in T"& _ "abelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendColumn) = value End Set End Property _ Public Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschrei"& _ "tendCode in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeColumn) = value End Set End Property _ Public Property ncts_Versender_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Versender_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_EORI in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Versender_EORIColumn) = value End Set End Property _ Public Property ncts_Versender_NLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Versender_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_NLNR in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Versender_NLNRColumn) = value End Set End Property _ Public Property ncts_Versender_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Versender_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_TIN in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Versender_TINColumn) = value End Set End Property _ Public Property ncts_Versender_Name() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Versender_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_Name in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Versender_NameColumn) = value End Set End Property _ Public Property ncts_Versender_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Versender_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_StrasseHausnummer in Tabelle tblNCTS_TR ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Versender_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_Versender_Ort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Versender_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_Ort in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Versender_OrtColumn) = value End Set End Property _ Public Property ncts_Versender_PLZ() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Versender_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_PLZ in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Versender_PLZColumn) = value End Set End Property _ Public Property ncts_Versender_Land() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Versender_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Versender_Land in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Versender_LandColumn) = value End Set End Property _ Public Property ncts_Empfaenger_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Empfaenger_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_EORI in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Empfaenger_EORIColumn) = value End Set End Property _ Public Property ncts_Empfaenger_NLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Empfaenger_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_NLNR in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Empfaenger_NLNRColumn) = value End Set End Property _ Public Property ncts_Empfaenger_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Empfaenger_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_TIN in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Empfaenger_TINColumn) = value End Set End Property _ Public Property ncts_Empfaenger_Name() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Empfaenger_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_Name in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Empfaenger_NameColumn) = value End Set End Property _ Public Property ncts_Empfaenger_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Empfaenger_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_StrasseHausnummer in Tabelle tblNCTS_TR ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Empfaenger_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_Empfaenger_Ort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Empfaenger_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_Ort in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Empfaenger_OrtColumn) = value End Set End Property _ Public Property ncts_Empfaenger_PLZ() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Empfaenger_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_PLZ in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Empfaenger_PLZColumn) = value End Set End Property _ Public Property ncts_Empfaenger_Land() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Empfaenger_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Empfaenger_Land in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Empfaenger_LandColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_EORI in Tabelle tblNCTS_TR ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_EORIColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_NLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_NLNR in Tabelle tblNCTS_TR ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_NLNRColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_TIN in Tabelle tblNCTS_TR ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_TINColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_Name() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_Name in Tabelle tblNCTS_TR ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_NameColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_StrasseHausnummer in Tabelle tblNCTS"& _ "_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_Ort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_Ort in Tabelle tblNCTS_TR ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_OrtColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_PLZ() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_PLZ in Tabelle tblNCTS_TR ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_PLZColumn) = value End Set End Property _ Public Property ncts_Hauptverpflichteter_Land() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Hauptverpflichteter_Land in Tabelle tblNCTS_TR ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_LandColumn) = value End Set End Property _ Public Property ncts_ZugelassenerEmpfaenger_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ZugelassenerEmpfaenger_EORI in Tabelle tblNCTS_TR ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_EORIColumn) = value End Set End Property _ Public Property ncts_ZugelassenerEmpfaenger_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ZugelassenerEmpfaenger_TIN in Tabelle tblNCTS_TR ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_TINColumn) = value End Set End Property _ Public Property ncts_ZugelassenerEmpfaenger_IDCarnet() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_IDCarnetColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ZugelassenerEmpfaenger_IDCarnet in Tabelle tblNCTS_TR is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_IDCarnetColumn) = value End Set End Property _ Public Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender in Ta"& _ "belle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderColumn) = value End Set End Property _ Public Property ncts_SumA_KzSumASicherheit() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_KzSumASicherheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_KzSumASicherheit in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_KzSumASicherheitColumn) = value End Set End Property _ Public Property ncts_SumA_KennnummerSendung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_KennnummerSendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_KennnummerSendung in Tabelle tblNCTS_TR ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_KennnummerSendungColumn) = value End Set End Property _ Public Property ncts_SumA_NummerBefoerderung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_NummerBefoerderungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_NummerBefoerderung in Tabelle tblNCTS_TR ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_NummerBefoerderungColumn) = value End Set End Property _ Public Property ncts_SumA_BesondereUmstaende() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BesondereUmstaendeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BesondereUmstaende in Tabelle tblNCTS_TR ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BesondereUmstaendeColumn) = value End Set End Property _ Public Property ncts_SumA_Ladeort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_LadeortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Ladeort in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_LadeortColumn) = value End Set End Property _ Public Property ncts_SumA_Entladeort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_EntladeortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Entladeort in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_EntladeortColumn) = value End Set End Property _ Public Property ncts_SumA_BefoerderungskostenZahlungsweise() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungskostenZahlungsweiseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungskostenZahlungsweise in Tabelle tblNCTS"& _ "_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungskostenZahlungsweiseColumn) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand1() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand1 in Tabelle tblNCTS_TR ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand1Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand2() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand2 in Tabelle tblNCTS_TR ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand2Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand3() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand3 in Tabelle tblNCTS_TR ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand3Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand4() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand4 in Tabelle tblNCTS_TR ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand4Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand5() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand5 in Tabelle tblNCTS_TR ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand5Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand6() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand6 in Tabelle tblNCTS_TR ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand6Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand7() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand7 in Tabelle tblNCTS_TR ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand7Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand8() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand8 in Tabelle tblNCTS_TR ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand8Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand9() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand9 in Tabelle tblNCTS_TR ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand9Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand10() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand10 in Tabelle tblNCTS_TR ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand10Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand11() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand11Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand11 in Tabelle tblNCTS_TR ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand11Column) = value End Set End Property _ Public Property ncts_SumA_BefoerderungsrouteLand12() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand12Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_BefoerderungsrouteLand12 in Tabelle tblNCTS_TR ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand12Column) = value End Set End Property _ Public Property ncts_SumA_Versender_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_EORI in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_EORIColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_NLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_NLNR in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_NLNRColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_TIN in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_TINColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_Name() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_Name in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_NameColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_StrasseHausnummer in Tabelle tblNCTS_TR i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_Land() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_Land in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_LandColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_PLZ() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_PLZ in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_PLZColumn) = value End Set End Property _ Public Property ncts_SumA_Versender_Ort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Versender_Ort in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_OrtColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_EORI in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_EORIColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_NLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_NLNR in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_NLNRColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_TIN in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_TINColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_Name() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_Name in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_NameColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_StrasseHausnummer in Tabelle tblNCTS_TR "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_Land() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_Land in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_LandColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_PLZ() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_PLZ in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_PLZColumn) = value End Set End Property _ Public Property ncts_SumA_Empfaenger_Ort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Empfaenger_Ort in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_OrtColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_EORI in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_EORIColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_NLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_NLNR in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_NLNRColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_TIN in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_TINColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_Name() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_Name in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_NameColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_StrasseHausnummer in Tabelle tblNCTS_TR"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_StrasseHausnummerColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_Land() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_Land in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_LandColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_PLZ() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_PLZ in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_PLZColumn) = value End Set End Property _ Public Property ncts_SumA_Befoerderer_Ort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_SumA_Befoerderer_Ort in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_OrtColumn) = value End Set End Property _ Public Property ncts_Stammreferenz() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_StammreferenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Stammreferenz in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_StammreferenzColumn) = value End Set End Property _ Public Property ncts_GUID() As String Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_GUIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_GUID in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_GUIDColumn) = value End Set End Property _ Public Property ncts_Eroeffnung() As Date Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_EroeffnungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Eroeffnung in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_EroeffnungColumn) = value End Set End Property _ Public Property ncts_Ankunft() As Date Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_AnkunftColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Ankunft in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_AnkunftColumn) = value End Set End Property _ Public Property ncts_Erledigung() As Date Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_ErledigungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_Erledigung in Tabelle tblNCTS_TR ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_ErledigungColumn) = value End Set End Property _ Public Property ncts_AVISO_einarbeitet() As Boolean Get Return CType(Me(Me.tabletblNCTS_TR.ncts_AVISO_einarbeitetColumn),Boolean) End Get Set Me(Me.tabletblNCTS_TR.ncts_AVISO_einarbeitetColumn) = value End Set End Property _ Public Property ncts_VERAG_WeiterverrechungSatz() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR.ncts_VERAG_WeiterverrechungSatzColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ncts_VERAG_WeiterverrechungSatz in Tabelle tblNCTS_TR ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR.ncts_VERAG_WeiterverrechungSatzColumn) = value End Set End Property _ Public Function Isncts_ANRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_ANRColumn) End Function _ Public Sub Setncts_ANRNull() Me(Me.tabletblNCTS_TR.ncts_ANRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_MRNNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_MRNColumn) End Function _ Public Sub Setncts_MRNNull() Me(Me.tabletblNCTS_TR.ncts_MRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Erstellung_SBNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Erstellung_SBColumn) End Function _ Public Sub Setncts_Erstellung_SBNull() Me(Me.tabletblNCTS_TR.ncts_Erstellung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_LetzteBearbeitung_SBNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_LetzteBearbeitung_SBColumn) End Function _ Public Sub Setncts_LetzteBearbeitung_SBNull() Me(Me.tabletblNCTS_TR.ncts_LetzteBearbeitung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_firmaNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_firmaColumn) End Function _ Public Sub Setncts_firmaNull() Me(Me.tabletblNCTS_TR.ncts_firmaColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_niederlassungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_niederlassungColumn) End Function _ Public Sub Setncts_niederlassungNull() Me(Me.tabletblNCTS_TR.ncts_niederlassungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_GestelltAmNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_GestelltAmColumn) End Function _ Public Sub Setncts_GestelltAmNull() Me(Me.tabletblNCTS_TR.ncts_GestelltAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_PartnerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Trans_PartnerColumn) End Function _ Public Sub Setncts_Trans_PartnerNull() Me(Me.tabletblNCTS_TR.ncts_Trans_PartnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_Div1Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Trans_Div1Column) End Function _ Public Sub Setncts_Trans_Div1Null() Me(Me.tabletblNCTS_TR.ncts_Trans_Div1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_Div2Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Trans_Div2Column) End Function _ Public Sub Setncts_Trans_Div2Null() Me(Me.tabletblNCTS_TR.ncts_Trans_Div2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_Div3Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Trans_Div3Column) End Function _ Public Sub Setncts_Trans_Div3Null() Me(Me.tabletblNCTS_TR.ncts_Trans_Div3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_ReferenzNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Trans_ReferenzColumn) End Function _ Public Sub Setncts_Trans_ReferenzNull() Me(Me.tabletblNCTS_TR.ncts_Trans_ReferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_DatumZeitNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Trans_DatumZeitColumn) End Function _ Public Sub Setncts_Trans_DatumZeitNull() Me(Me.tabletblNCTS_TR.ncts_Trans_DatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Trans_VersionNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Trans_VersionColumn) End Function _ Public Sub Setncts_Trans_VersionNull() Me(Me.tabletblNCTS_TR.ncts_Trans_VersionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_NachrichtenSenderTINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_NachrichtenSenderTINColumn) End Function _ Public Sub Setncts_NachrichtenSenderTINNull() Me(Me.tabletblNCTS_TR.ncts_NachrichtenSenderTINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_NachrichtenSenderNLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_NachrichtenSenderNLNRColumn) End Function _ Public Sub Setncts_NachrichtenSenderNLNRNull() Me(Me.tabletblNCTS_TR.ncts_NachrichtenSenderNLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_NachrichtenempfaengerDSTNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_NachrichtenempfaengerDSTColumn) End Function _ Public Sub Setncts_NachrichtenempfaengerDSTNull() Me(Me.tabletblNCTS_TR.ncts_NachrichtenempfaengerDSTColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ObjectNameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_ObjectNameColumn) End Function _ Public Sub Setncts_ObjectNameNull() Me(Me.tabletblNCTS_TR.ncts_ObjectNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ObjectAliasNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_ObjectAliasColumn) End Function _ Public Sub Setncts_ObjectAliasNull() Me(Me.tabletblNCTS_TR.ncts_ObjectAliasColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BezugsnummerVorblendungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_BezugsnummerVorblendungColumn) End Function _ Public Sub Setncts_BezugsnummerVorblendungNull() Me(Me.tabletblNCTS_TR.ncts_BezugsnummerVorblendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_BearbeiterColumn) End Function _ Public Sub Setncts_BearbeiterNull() Me(Me.tabletblNCTS_TR.ncts_BearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_VersendungsLandCodeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_VersendungsLandCodeColumn) End Function _ Public Sub Setncts_VersendungsLandCodeNull() Me(Me.tabletblNCTS_TR.ncts_VersendungsLandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BestimmungslandCodeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_BestimmungslandCodeColumn) End Function _ Public Sub Setncts_BestimmungslandCodeNull() Me(Me.tabletblNCTS_TR.ncts_BestimmungslandCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ArtAnmeldungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_ArtAnmeldungColumn) End Function _ Public Sub Setncts_ArtAnmeldungNull() Me(Me.tabletblNCTS_TR.ncts_ArtAnmeldungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BeladungsOrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_BeladungsOrtColumn) End Function _ Public Sub Setncts_BeladungsOrtNull() Me(Me.tabletblNCTS_TR.ncts_BeladungsOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer1Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer1Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer1Null() Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer2Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer2Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer2Null() Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer3Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer3Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer3Null() Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer4Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer4Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer4Null() Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer4Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer5Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer5Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer5Null() Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer5Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer6Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer6Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer6Null() Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer6Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer7Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer7Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer7Null() Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer7Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer8Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer8Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer8Null() Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer8Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_DurchgangszollstelleDienststellnummer9Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer9Column) End Function _ Public Sub Setncts_DurchgangszollstelleDienststellnummer9Null() Me(Me.tabletblNCTS_TR.ncts_DurchgangszollstelleDienststellnummer9Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_BestimmungsstelleDienststellennummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_BestimmungsstelleDienststellennummerColumn) End Function _ Public Sub Setncts_BestimmungsstelleDienststellennummerNull() Me(Me.tabletblNCTS_TR.ncts_BestimmungsstelleDienststellennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AbgangsDienststellennummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_AbgangsDienststellennummerColumn) End Function _ Public Sub Setncts_AbgangsDienststellennummerNull() Me(Me.tabletblNCTS_TR.ncts_AbgangsDienststellennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_WiedergestellungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_WiedergestellungsdatumColumn) End Function _ Public Sub Setncts_WiedergestellungsdatumNull() Me(Me.tabletblNCTS_TR.ncts_WiedergestellungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_KzVereinfachtesVerfahrenNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_KzVereinfachtesVerfahrenColumn) End Function _ Public Sub Setncts_KzVereinfachtesVerfahrenNull() Me(Me.tabletblNCTS_TR.ncts_KzVereinfachtesVerfahrenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_GesamtRohmasseNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_GesamtRohmasseColumn) End Function _ Public Sub Setncts_GesamtRohmasseNull() Me(Me.tabletblNCTS_TR.ncts_GesamtRohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_GesamtAnzahlPackstueckeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_GesamtAnzahlPackstueckeColumn) End Function _ Public Sub Setncts_GesamtAnzahlPackstueckeNull() Me(Me.tabletblNCTS_TR.ncts_GesamtAnzahlPackstueckeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_ArtCodeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_ArtCodeColumn) End Function _ Public Sub Setncts_Verschluss_ArtCodeNull() Me(Me.tabletblNCTS_TR.ncts_Verschluss_ArtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_AnzahlNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_AnzahlColumn) End Function _ Public Sub Setncts_Verschluss_AnzahlNull() Me(Me.tabletblNCTS_TR.ncts_Verschluss_AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen1Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen1Column) End Function _ Public Sub Setncts_Verschluss_Zeichen1Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen2Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen2Column) End Function _ Public Sub Setncts_Verschluss_Zeichen2Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen3Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen3Column) End Function _ Public Sub Setncts_Verschluss_Zeichen3Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen4Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen4Column) End Function _ Public Sub Setncts_Verschluss_Zeichen4Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen4Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen5Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen5Column) End Function _ Public Sub Setncts_Verschluss_Zeichen5Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen5Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen6Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen6Column) End Function _ Public Sub Setncts_Verschluss_Zeichen6Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen6Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen7Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen7Column) End Function _ Public Sub Setncts_Verschluss_Zeichen7Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen7Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen8Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen8Column) End Function _ Public Sub Setncts_Verschluss_Zeichen8Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen8Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen9Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen9Column) End Function _ Public Sub Setncts_Verschluss_Zeichen9Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen9Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen10Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen10Column) End Function _ Public Sub Setncts_Verschluss_Zeichen10Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen10Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen11Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen11Column) End Function _ Public Sub Setncts_Verschluss_Zeichen11Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen11Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen12Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen12Column) End Function _ Public Sub Setncts_Verschluss_Zeichen12Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen12Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen13Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen13Column) End Function _ Public Sub Setncts_Verschluss_Zeichen13Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen13Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen14Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen14Column) End Function _ Public Sub Setncts_Verschluss_Zeichen14Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen14Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen15Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen15Column) End Function _ Public Sub Setncts_Verschluss_Zeichen15Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen15Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Verschluss_Zeichen16Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen16Column) End Function _ Public Sub Setncts_Verschluss_Zeichen16Null() Me(Me.tabletblNCTS_TR.ncts_Verschluss_Zeichen16Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_KennzeichenAbgangNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgangColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_KennzeichenAbgangNull() Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgangColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeNull() Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentNull() Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitentColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_ArtGrenzueberschreitungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_ArtGrenzueberschreitungColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_ArtGrenzueberschreitungNull() Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_ArtGrenzueberschreitungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendNull() Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitendColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeColumn) End Function _ Public Sub Setncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeNull() Me(Me.tabletblNCTS_TR.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Versender_EORIColumn) End Function _ Public Sub Setncts_Versender_EORINull() Me(Me.tabletblNCTS_TR.ncts_Versender_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Versender_NLNRColumn) End Function _ Public Sub Setncts_Versender_NLNRNull() Me(Me.tabletblNCTS_TR.ncts_Versender_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Versender_TINColumn) End Function _ Public Sub Setncts_Versender_TINNull() Me(Me.tabletblNCTS_TR.ncts_Versender_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_NameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Versender_NameColumn) End Function _ Public Sub Setncts_Versender_NameNull() Me(Me.tabletblNCTS_TR.ncts_Versender_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Versender_StrasseHausnummerColumn) End Function _ Public Sub Setncts_Versender_StrasseHausnummerNull() Me(Me.tabletblNCTS_TR.ncts_Versender_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_OrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Versender_OrtColumn) End Function _ Public Sub Setncts_Versender_OrtNull() Me(Me.tabletblNCTS_TR.ncts_Versender_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_PLZNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Versender_PLZColumn) End Function _ Public Sub Setncts_Versender_PLZNull() Me(Me.tabletblNCTS_TR.ncts_Versender_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Versender_LandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Versender_LandColumn) End Function _ Public Sub Setncts_Versender_LandNull() Me(Me.tabletblNCTS_TR.ncts_Versender_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Empfaenger_EORIColumn) End Function _ Public Sub Setncts_Empfaenger_EORINull() Me(Me.tabletblNCTS_TR.ncts_Empfaenger_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Empfaenger_NLNRColumn) End Function _ Public Sub Setncts_Empfaenger_NLNRNull() Me(Me.tabletblNCTS_TR.ncts_Empfaenger_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Empfaenger_TINColumn) End Function _ Public Sub Setncts_Empfaenger_TINNull() Me(Me.tabletblNCTS_TR.ncts_Empfaenger_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_NameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Empfaenger_NameColumn) End Function _ Public Sub Setncts_Empfaenger_NameNull() Me(Me.tabletblNCTS_TR.ncts_Empfaenger_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Empfaenger_StrasseHausnummerColumn) End Function _ Public Sub Setncts_Empfaenger_StrasseHausnummerNull() Me(Me.tabletblNCTS_TR.ncts_Empfaenger_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_OrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Empfaenger_OrtColumn) End Function _ Public Sub Setncts_Empfaenger_OrtNull() Me(Me.tabletblNCTS_TR.ncts_Empfaenger_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_PLZNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Empfaenger_PLZColumn) End Function _ Public Sub Setncts_Empfaenger_PLZNull() Me(Me.tabletblNCTS_TR.ncts_Empfaenger_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Empfaenger_LandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Empfaenger_LandColumn) End Function _ Public Sub Setncts_Empfaenger_LandNull() Me(Me.tabletblNCTS_TR.ncts_Empfaenger_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_EORIColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_EORINull() Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_NLNRColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_NLNRNull() Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_TINColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_TINNull() Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_NameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_NameColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_NameNull() Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_StrasseHausnummerColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_StrasseHausnummerNull() Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_OrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_OrtColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_OrtNull() Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_PLZNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_PLZColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_PLZNull() Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_Hauptverpflichteter_LandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_LandColumn) End Function _ Public Sub Setncts_Hauptverpflichteter_LandNull() Me(Me.tabletblNCTS_TR.ncts_Hauptverpflichteter_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ZugelassenerEmpfaenger_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_EORIColumn) End Function _ Public Sub Setncts_ZugelassenerEmpfaenger_EORINull() Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ZugelassenerEmpfaenger_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_TINColumn) End Function _ Public Sub Setncts_ZugelassenerEmpfaenger_TINNull() Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ZugelassenerEmpfaenger_IDCarnetNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_IDCarnetColumn) End Function _ Public Sub Setncts_ZugelassenerEmpfaenger_IDCarnetNull() Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_IDCarnetColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderColumn) End Function _ Public Sub Setncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderNull() Me(Me.tabletblNCTS_TR.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_KzSumASicherheitNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_KzSumASicherheitColumn) End Function _ Public Sub Setncts_SumA_KzSumASicherheitNull() Me(Me.tabletblNCTS_TR.ncts_SumA_KzSumASicherheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_KennnummerSendungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_KennnummerSendungColumn) End Function _ Public Sub Setncts_SumA_KennnummerSendungNull() Me(Me.tabletblNCTS_TR.ncts_SumA_KennnummerSendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_NummerBefoerderungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_NummerBefoerderungColumn) End Function _ Public Sub Setncts_SumA_NummerBefoerderungNull() Me(Me.tabletblNCTS_TR.ncts_SumA_NummerBefoerderungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BesondereUmstaendeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BesondereUmstaendeColumn) End Function _ Public Sub Setncts_SumA_BesondereUmstaendeNull() Me(Me.tabletblNCTS_TR.ncts_SumA_BesondereUmstaendeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_LadeortNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_LadeortColumn) End Function _ Public Sub Setncts_SumA_LadeortNull() Me(Me.tabletblNCTS_TR.ncts_SumA_LadeortColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_EntladeortNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_EntladeortColumn) End Function _ Public Sub Setncts_SumA_EntladeortNull() Me(Me.tabletblNCTS_TR.ncts_SumA_EntladeortColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungskostenZahlungsweiseNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungskostenZahlungsweiseColumn) End Function _ Public Sub Setncts_SumA_BefoerderungskostenZahlungsweiseNull() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungskostenZahlungsweiseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand1Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand1Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand1Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand2Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand2Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand2Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand3Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand3Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand3Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand4Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand4Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand4Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand4Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand5Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand5Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand5Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand5Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand6Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand6Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand6Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand6Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand7Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand7Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand7Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand7Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand8Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand8Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand8Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand8Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand9Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand9Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand9Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand9Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand10Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand10Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand10Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand10Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand11Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand11Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand11Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand11Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_BefoerderungsrouteLand12Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand12Column) End Function _ Public Sub Setncts_SumA_BefoerderungsrouteLand12Null() Me(Me.tabletblNCTS_TR.ncts_SumA_BefoerderungsrouteLand12Column) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Versender_EORIColumn) End Function _ Public Sub Setncts_SumA_Versender_EORINull() Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Versender_NLNRColumn) End Function _ Public Sub Setncts_SumA_Versender_NLNRNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Versender_TINColumn) End Function _ Public Sub Setncts_SumA_Versender_TINNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_NameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Versender_NameColumn) End Function _ Public Sub Setncts_SumA_Versender_NameNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Versender_StrasseHausnummerColumn) End Function _ Public Sub Setncts_SumA_Versender_StrasseHausnummerNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_LandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Versender_LandColumn) End Function _ Public Sub Setncts_SumA_Versender_LandNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_PLZNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Versender_PLZColumn) End Function _ Public Sub Setncts_SumA_Versender_PLZNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Versender_OrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Versender_OrtColumn) End Function _ Public Sub Setncts_SumA_Versender_OrtNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Versender_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_EORIColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_EORINull() Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_NLNRColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_NLNRNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_TINColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_TINNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_NameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_NameColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_NameNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_StrasseHausnummerColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_StrasseHausnummerNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_LandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_LandColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_LandNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_PLZNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_PLZColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_PLZNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Empfaenger_OrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_OrtColumn) End Function _ Public Sub Setncts_SumA_Empfaenger_OrtNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Empfaenger_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_EORIColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_EORINull() Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_NLNRColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_NLNRNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_TINColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_TINNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_NameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_NameColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_NameNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_StrasseHausnummerColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_StrasseHausnummerNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_LandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_LandColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_LandNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_PLZNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_PLZColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_PLZNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_SumA_Befoerderer_OrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_OrtColumn) End Function _ Public Sub Setncts_SumA_Befoerderer_OrtNull() Me(Me.tabletblNCTS_TR.ncts_SumA_Befoerderer_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_StammreferenzNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_StammreferenzColumn) End Function _ Public Sub Setncts_StammreferenzNull() Me(Me.tabletblNCTS_TR.ncts_StammreferenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_GUIDNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_GUIDColumn) End Function _ Public Sub Setncts_GUIDNull() Me(Me.tabletblNCTS_TR.ncts_GUIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_EroeffnungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_EroeffnungColumn) End Function _ Public Sub Setncts_EroeffnungNull() Me(Me.tabletblNCTS_TR.ncts_EroeffnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_AnkunftNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_AnkunftColumn) End Function _ Public Sub Setncts_AnkunftNull() Me(Me.tabletblNCTS_TR.ncts_AnkunftColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_ErledigungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_ErledigungColumn) End Function _ Public Sub Setncts_ErledigungNull() Me(Me.tabletblNCTS_TR.ncts_ErledigungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isncts_VERAG_WeiterverrechungSatzNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR.ncts_VERAG_WeiterverrechungSatzColumn) End Function _ Public Sub Setncts_VERAG_WeiterverrechungSatzNull() Me(Me.tabletblNCTS_TR.ncts_VERAG_WeiterverrechungSatzColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblNCTS_TR_NachrichtenRow Inherits Global.System.Data.DataRow Private tabletblNCTS_TR_Nachrichten As tblNCTS_TR_NachrichtenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblNCTS_TR_Nachrichten = CType(Me.Table,tblNCTS_TR_NachrichtenDataTable) End Sub _ Public Property nctsNr_id() As Integer Get Return CType(Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_idColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_idColumn) = value End Set End Property _ Public Property nctsNr_nctsId() As Integer Get Return CType(Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_nctsIdColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_nctsIdColumn) = value End Set End Property _ Public Property nctsNr_typ() As String Get Return CType(Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_typColumn),String) End Get Set Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_typColumn) = value End Set End Property _ Public Property nctsNr_GUID() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_GUIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsNr_GUID in Tabelle tblNCTS_TR_Nachrichten ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_GUIDColumn) = value End Set End Property _ Public Property nctsNr_MRN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_MRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsNr_MRN in Tabelle tblNCTS_TR_Nachrichten ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_MRNColumn) = value End Set End Property _ Public Property nctsNr_LRN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_LRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsNr_LRN in Tabelle tblNCTS_TR_Nachrichten ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_LRNColumn) = value End Set End Property _ Public Property nctsNr_path() As String Get Return CType(Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_pathColumn),String) End Get Set Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_pathColumn) = value End Set End Property _ Public Property nctsNr_tstmp() As Date Get Return CType(Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_tstmpColumn),Date) End Get Set Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_tstmpColumn) = value End Set End Property _ Public Function IsnctsNr_GUIDNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Nachrichten.nctsNr_GUIDColumn) End Function _ Public Sub SetnctsNr_GUIDNull() Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_GUIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsNr_MRNNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Nachrichten.nctsNr_MRNColumn) End Function _ Public Sub SetnctsNr_MRNNull() Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_MRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsNr_LRNNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Nachrichten.nctsNr_LRNColumn) End Function _ Public Sub SetnctsNr_LRNNull() Me(Me.tabletblNCTS_TR_Nachrichten.nctsNr_LRNColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblNCTS_TR_SicherheitsangabenRow Inherits Global.System.Data.DataRow Private tabletblNCTS_TR_Sicherheitsangaben As tblNCTS_TR_SicherheitsangabenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblNCTS_TR_Sicherheitsangaben = CType(Me.Table,tblNCTS_TR_SicherheitsangabenDataTable) End Sub _ Public Property nctsSA_Id() As Integer Get Return CType(Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_IdColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_IdColumn) = value End Set End Property _ Public Property nctsSA_NctsId() As Integer Get Return CType(Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_NctsIdColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_NctsIdColumn) = value End Set End Property _ Public Property nctsSA_ArtCode() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_ArtCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_ArtCode in Tabelle tblNCTS_TR_Sicherheitsangaben ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_ArtCodeColumn) = value End Set End Property _ Public Property nctsSA_BezeichnungBescheinigun() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_BezeichnungBescheinigunColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_BezeichnungBescheinigun in Tabelle tblNCTS_TR_Sicherhe"& _ "itsangaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_BezeichnungBescheinigunColumn) = value End Set End Property _ Public Property nctsSA_AbgabenBetrag() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_AbgabenBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_AbgabenBetrag in Tabelle tblNCTS_TR_Sicherheitsangaben"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_AbgabenBetragColumn) = value End Set End Property _ Public Property nctsSA_GRN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_GRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_GRN in Tabelle tblNCTS_TR_Sicherheitsangaben ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_GRNColumn) = value End Set End Property _ Public Property nctsSA_Zugriffcode() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_ZugriffcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_Zugriffcode in Tabelle tblNCTS_TR_Sicherheitsangaben i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_ZugriffcodeColumn) = value End Set End Property _ Public Property nctsSA_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_TIN in Tabelle tblNCTS_TR_Sicherheitsangaben ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_TINColumn) = value End Set End Property _ Public Property nctsSA_AbgabenBetragFremdWaehrung() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_AbgabenBetragFremdWaehrungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_AbgabenBetragFremdWaehrung in Tabelle tblNCTS_TR_Siche"& _ "rheitsangaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_AbgabenBetragFremdWaehrungColumn) = value End Set End Property _ Public Property nctsSA_Waerung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_WaerungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsSA_Waerung in Tabelle tblNCTS_TR_Sicherheitsangaben ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_WaerungColumn) = value End Set End Property _ Public Function IsnctsSA_ArtCodeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_ArtCodeColumn) End Function _ Public Sub SetnctsSA_ArtCodeNull() Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_ArtCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_BezeichnungBescheinigunNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_BezeichnungBescheinigunColumn) End Function _ Public Sub SetnctsSA_BezeichnungBescheinigunNull() Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_BezeichnungBescheinigunColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_AbgabenBetragNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_AbgabenBetragColumn) End Function _ Public Sub SetnctsSA_AbgabenBetragNull() Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_AbgabenBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_GRNNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_GRNColumn) End Function _ Public Sub SetnctsSA_GRNNull() Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_GRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_ZugriffcodeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_ZugriffcodeColumn) End Function _ Public Sub SetnctsSA_ZugriffcodeNull() Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_ZugriffcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_TINColumn) End Function _ Public Sub SetnctsSA_TINNull() Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_AbgabenBetragFremdWaehrungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_AbgabenBetragFremdWaehrungColumn) End Function _ Public Sub SetnctsSA_AbgabenBetragFremdWaehrungNull() Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_AbgabenBetragFremdWaehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsSA_WaerungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_WaerungColumn) End Function _ Public Sub SetnctsSA_WaerungNull() Me(Me.tabletblNCTS_TR_Sicherheitsangaben.nctsSA_WaerungColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblNCTS_TR_WarenpositionRow Inherits Global.System.Data.DataRow Private tabletblNCTS_TR_Warenposition As tblNCTS_TR_WarenpositionDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblNCTS_TR_Warenposition = CType(Me.Table,tblNCTS_TR_WarenpositionDataTable) End Sub _ Public Property nctsWP_Id() As Integer Get Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_IdColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_IdColumn) = value End Set End Property _ Public Property nctsWP_NctsId() As Integer Get Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_NctsIdColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_NctsIdColumn) = value End Set End Property _ Public Property nctsWP_PositionsNummer() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_PositionsNummerColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_PositionsNummer in Tabelle tblNCTS_TR_Warenposition is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_PositionsNummerColumn) = value End Set End Property _ Public Property nctsWP_Warennummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Warennummer in Tabelle tblNCTS_TR_Warenposition ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarennummerColumn) = value End Set End Property _ Public Property nctsWP_ArtAnmeldungPositionCode() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_ArtAnmeldungPositionCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_ArtAnmeldungPositionCode in Tabelle tblNCTS_TR_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_ArtAnmeldungPositionCodeColumn) = value End Set End Property _ Public Property nctsWP_Warenbezeichnung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Warenbezeichnung in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenbezeichnungColumn) = value End Set End Property _ Public Property nctsWP_Warenwert() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Warenwert in Tabelle tblNCTS_TR_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertColumn) = value End Set End Property _ Public Property nctsWP_WarenwertWaehrung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertWaehrungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_WarenwertWaehrung in Tabelle tblNCTS_TR_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertWaehrungColumn) = value End Set End Property _ Public Property nctsWP_SchaetzKz() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SchaetzKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SchaetzKz in Tabelle tblNCTS_TR_Warenposition ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SchaetzKzColumn) = value End Set End Property _ Public Property nctsWP_WarenwertProzent() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertProzentColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_WarenwertProzent in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertProzentColumn) = value End Set End Property _ Public Property nctsWP_VersendungslandPositionCode() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VersendungslandPositionCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VersendungslandPositionCode in Tabelle tblNCTS_TR_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VersendungslandPositionCodeColumn) = value End Set End Property _ Public Property nctsWP_BestimmungslandPositionCode() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BestimmungslandPositionCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BestimmungslandPositionCode in Tabelle tblNCTS_TR_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BestimmungslandPositionCodeColumn) = value End Set End Property _ Public Property nctsWP_Rohmasse() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_RohmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Rohmasse in Tabelle tblNCTS_TR_Warenposition ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_RohmasseColumn) = value End Set End Property _ Public Property nctsWP_Eigenmasse() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_EigenmasseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Eigenmasse in Tabelle tblNCTS_TR_Warenposition ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_EigenmasseColumn) = value End Set End Property _ Public Property nctsWP_VorpapierTyp() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierTypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierTyp in Tabelle tblNCTS_TR_Warenposition ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierTypColumn) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz1() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz1 in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz1Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz1() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz1 in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz1Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz2() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz2 in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz2Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz2() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz2 in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz2Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz3() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz3 in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz3Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz3() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz3 in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz3Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz4() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz4 in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz4Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz4() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz4 in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz4Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz5() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz5 in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz5Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz5() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz5 in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz5Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz6() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz6 in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz6Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz6() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz6 in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz6Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz7() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz7 in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz7Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz7() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz7 in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz7Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz8() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz8 in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz8Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz8() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz8 in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz8Column) = value End Set End Property _ Public Property nctsWP_VorpapierReferenz9() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierReferenz9 in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz9Column) = value End Set End Property _ Public Property nctsWP_VorpapierZusatz9() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_VorpapierZusatz9 in Tabelle tblNCTS_TR_Warenposition i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz9Column) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_ExportAusEU() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAusEUColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_ExportAusEU in Tabelle tblNCTS_TR_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAusEUColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_ExportAusLand() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAusLandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_ExportAusLand in Tabelle tblNCTS_TR_W"& _ "arenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAusLandColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_Export() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_Export in Tabelle tblNCTS_TR_Warenpos"& _ "ition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_ExportBeschraenkung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportBeschraenkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_ExportBeschraenkung in Tabelle tblNCT"& _ "S_TR_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportBeschraenkungColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_ExportAbgaben() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAbgabenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_ExportAbgaben in Tabelle tblNCTS_TR_W"& _ "arenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAbgabenColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_Vermerk() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_Vermerk in Tabelle tblNCTS_TR_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_VermerkColumn) = value End Set End Property _ Public Property nctsWP_BesondereVermeke_Kz10600() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_Kz10600Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_BesondereVermeke_Kz10600 in Tabelle tblNCTS_TR_Warenpo"& _ "sition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_Kz10600Column) = value End Set End Property _ Public Property nctsWP_Versender_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_EORI in Tabelle tblNCTS_TR_Warenposition ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_EORIColumn) = value End Set End Property _ Public Property nctsWP_Versender_NLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_NLNR in Tabelle tblNCTS_TR_Warenposition ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_NLNRColumn) = value End Set End Property _ Public Property nctsWP_Versender_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_TIN in Tabelle tblNCTS_TR_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_TINColumn) = value End Set End Property _ Public Property nctsWP_Versender_Name() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_Name in Tabelle tblNCTS_TR_Warenposition ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_NameColumn) = value End Set End Property _ Public Property nctsWP_Versender_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_StrasseHausnummer in Tabelle tblNCTS_TR_Ware"& _ "nposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_StrasseHausnummerColumn) = value End Set End Property _ Public Property nctsWP_Versender_Ort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_Ort in Tabelle tblNCTS_TR_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_OrtColumn) = value End Set End Property _ Public Property nctsWP_Versender_PLZ() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_PLZ in Tabelle tblNCTS_TR_Warenposition ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_PLZColumn) = value End Set End Property _ Public Property nctsWP_Versender_Land() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Versender_Land in Tabelle tblNCTS_TR_Warenposition ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_LandColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_EORI in Tabelle tblNCTS_TR_Warenposition is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_EORIColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_NLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_NLNR in Tabelle tblNCTS_TR_Warenposition is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_NLNRColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_TIN in Tabelle tblNCTS_TR_Warenposition ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_TINColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_Name() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_Name in Tabelle tblNCTS_TR_Warenposition is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_NameColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_StrasseHausnummer in Tabelle tblNCTS_TR_War"& _ "enposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_StrasseHausnummerColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_Ort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_Ort in Tabelle tblNCTS_TR_Warenposition ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_OrtColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_PLZ() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_PLZ in Tabelle tblNCTS_TR_Warenposition ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_PLZColumn) = value End Set End Property _ Public Property nctsWP_Empfaenger_Land() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_Empfaenger_Land in Tabelle tblNCTS_TR_Warenposition is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_LandColumn) = value End Set End Property _ Public Property nctsWP_SumAKennnummerSendung() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAKennnummerSendungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAKennnummerSendung in Tabelle tblNCTS_TR_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAKennnummerSendungColumn) = value End Set End Property _ Public Property nctsWP_SumABefoerderungskostenZahlungsweise() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumABefoerderungskostenZahlungsweiseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumABefoerderungskostenZahlungsweise in Tabelle tblNCT"& _ "S_TR_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumABefoerderungskostenZahlungsweiseColumn) = value End Set End Property _ Public Property nctsWP_SumAUNGefahrgutnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAUNGefahrgutnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAUNGefahrgutnummer in Tabelle tblNCTS_TR_Warenposit"& _ "ion ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAUNGefahrgutnummerColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_EORI in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_EORIColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_NLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_NLNR in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_NLNRColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_TIN in Tabelle tblNCTS_TR_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_TINColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_Name() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_Name in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_NameColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_StrasseHausnummer in Tabelle tblNCTS_TR_"& _ "Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_StrasseHausnummerColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_Ort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_Ort in Tabelle tblNCTS_TR_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_OrtColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_PLZ() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_PLZ in Tabelle tblNCTS_TR_Warenposition "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_PLZColumn) = value End Set End Property _ Public Property nctsWP_SumAVersender_Land() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAVersender_Land in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_LandColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_EORI() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_EORI in Tabelle tblNCTS_TR_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_EORIColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_NLNR() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_NLNR in Tabelle tblNCTS_TR_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_NLNRColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_TIN() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_TIN in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_TINColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_Name() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_Name in Tabelle tblNCTS_TR_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_NameColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_StrasseHausnummer() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_StrasseHausnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_StrasseHausnummer in Tabelle tblNCTS_TR"& _ "_Warenposition ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_StrasseHausnummerColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_Ort() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_Ort in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_OrtColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_PLZ() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_PLZ in Tabelle tblNCTS_TR_Warenposition"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_PLZColumn) = value End Set End Property _ Public Property nctsWP_SumAEmpfaenger_Land() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_SumAEmpfaenger_Land in Tabelle tblNCTS_TR_Warenpositio"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_LandColumn) = value End Set End Property _ Public Property nctsWP_KdRefNr() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_KdRefNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWP_KdRefNr in Tabelle tblNCTS_TR_Warenposition ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_KdRefNrColumn) = value End Set End Property _ Public Function IsnctsWP_PositionsNummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_PositionsNummerColumn) End Function _ Public Sub SetnctsWP_PositionsNummerNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_PositionsNummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_WarennummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarennummerColumn) End Function _ Public Sub SetnctsWP_WarennummerNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_ArtAnmeldungPositionCodeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_ArtAnmeldungPositionCodeColumn) End Function _ Public Sub SetnctsWP_ArtAnmeldungPositionCodeNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_ArtAnmeldungPositionCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_WarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenbezeichnungColumn) End Function _ Public Sub SetnctsWP_WarenbezeichnungNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_WarenwertNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertColumn) End Function _ Public Sub SetnctsWP_WarenwertNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_WarenwertWaehrungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertWaehrungColumn) End Function _ Public Sub SetnctsWP_WarenwertWaehrungNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertWaehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SchaetzKzNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SchaetzKzColumn) End Function _ Public Sub SetnctsWP_SchaetzKzNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SchaetzKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_WarenwertProzentNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertProzentColumn) End Function _ Public Sub SetnctsWP_WarenwertProzentNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_WarenwertProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VersendungslandPositionCodeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VersendungslandPositionCodeColumn) End Function _ Public Sub SetnctsWP_VersendungslandPositionCodeNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VersendungslandPositionCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BestimmungslandPositionCodeNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_BestimmungslandPositionCodeColumn) End Function _ Public Sub SetnctsWP_BestimmungslandPositionCodeNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BestimmungslandPositionCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_RohmasseNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_RohmasseColumn) End Function _ Public Sub SetnctsWP_RohmasseNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_RohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_EigenmasseNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_EigenmasseColumn) End Function _ Public Sub SetnctsWP_EigenmasseNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_EigenmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierTypNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierTypColumn) End Function _ Public Sub SetnctsWP_VorpapierTypNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierTypColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz1Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz1Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz1Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz1Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz1Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz1Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz2Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz2Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz2Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz2Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz2Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz2Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz3Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz3Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz3Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz3Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz3Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz3Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz4Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz4Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz4Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz4Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz4Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz4Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz5Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz5Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz5Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz5Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz5Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz5Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz6Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz6Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz6Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz6Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz6Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz6Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz7Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz7Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz7Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz7Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz7Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz7Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz8Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz8Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz8Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz8Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz8Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz8Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierReferenz9Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz9Column) End Function _ Public Sub SetnctsWP_VorpapierReferenz9Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierReferenz9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_VorpapierZusatz9Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz9Column) End Function _ Public Sub SetnctsWP_VorpapierZusatz9Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_VorpapierZusatz9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_ExportAusEUNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAusEUColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_ExportAusEUNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAusEUColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_ExportAusLandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAusLandColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_ExportAusLandNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAusLandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_ExportNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_ExportNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_ExportBeschraenkungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportBeschraenkungColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_ExportBeschraenkungNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportBeschraenkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_ExportAbgabenNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAbgabenColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_ExportAbgabenNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_ExportAbgabenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_VermerkNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_VermerkColumn) End Function _ Public Sub SetnctsWP_BesondereVermeke_VermerkNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_BesondereVermeke_Kz10600Null() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_Kz10600Column) End Function _ Public Sub SetnctsWP_BesondereVermeke_Kz10600Null() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_BesondereVermeke_Kz10600Column) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_EORIColumn) End Function _ Public Sub SetnctsWP_Versender_EORINull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_NLNRColumn) End Function _ Public Sub SetnctsWP_Versender_NLNRNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_TINColumn) End Function _ Public Sub SetnctsWP_Versender_TINNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_NameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_NameColumn) End Function _ Public Sub SetnctsWP_Versender_NameNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_StrasseHausnummerColumn) End Function _ Public Sub SetnctsWP_Versender_StrasseHausnummerNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_OrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_OrtColumn) End Function _ Public Sub SetnctsWP_Versender_OrtNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_PLZNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_PLZColumn) End Function _ Public Sub SetnctsWP_Versender_PLZNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Versender_LandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_LandColumn) End Function _ Public Sub SetnctsWP_Versender_LandNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Versender_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_EORIColumn) End Function _ Public Sub SetnctsWP_Empfaenger_EORINull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_NLNRColumn) End Function _ Public Sub SetnctsWP_Empfaenger_NLNRNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_TINColumn) End Function _ Public Sub SetnctsWP_Empfaenger_TINNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_NameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_NameColumn) End Function _ Public Sub SetnctsWP_Empfaenger_NameNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_StrasseHausnummerColumn) End Function _ Public Sub SetnctsWP_Empfaenger_StrasseHausnummerNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_OrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_OrtColumn) End Function _ Public Sub SetnctsWP_Empfaenger_OrtNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_PLZNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_PLZColumn) End Function _ Public Sub SetnctsWP_Empfaenger_PLZNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_Empfaenger_LandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_LandColumn) End Function _ Public Sub SetnctsWP_Empfaenger_LandNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_Empfaenger_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAKennnummerSendungNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAKennnummerSendungColumn) End Function _ Public Sub SetnctsWP_SumAKennnummerSendungNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAKennnummerSendungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumABefoerderungskostenZahlungsweiseNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumABefoerderungskostenZahlungsweiseColumn) End Function _ Public Sub SetnctsWP_SumABefoerderungskostenZahlungsweiseNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumABefoerderungskostenZahlungsweiseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAUNGefahrgutnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAUNGefahrgutnummerColumn) End Function _ Public Sub SetnctsWP_SumAUNGefahrgutnummerNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAUNGefahrgutnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_EORIColumn) End Function _ Public Sub SetnctsWP_SumAVersender_EORINull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_NLNRColumn) End Function _ Public Sub SetnctsWP_SumAVersender_NLNRNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_TINColumn) End Function _ Public Sub SetnctsWP_SumAVersender_TINNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_NameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_NameColumn) End Function _ Public Sub SetnctsWP_SumAVersender_NameNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_StrasseHausnummerColumn) End Function _ Public Sub SetnctsWP_SumAVersender_StrasseHausnummerNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_OrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_OrtColumn) End Function _ Public Sub SetnctsWP_SumAVersender_OrtNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_PLZNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_PLZColumn) End Function _ Public Sub SetnctsWP_SumAVersender_PLZNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAVersender_LandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_LandColumn) End Function _ Public Sub SetnctsWP_SumAVersender_LandNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAVersender_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_EORIColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_EORINull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_NLNRNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_NLNRColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_NLNRNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_TINNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_TINColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_TINNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_NameNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_NameColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_NameNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_StrasseHausnummerNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_StrasseHausnummerColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_StrasseHausnummerNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_StrasseHausnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_OrtNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_OrtColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_OrtNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_PLZNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_PLZColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_PLZNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_SumAEmpfaenger_LandNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_LandColumn) End Function _ Public Sub SetnctsWP_SumAEmpfaenger_LandNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_SumAEmpfaenger_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWP_KdRefNrNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_Warenposition.nctsWP_KdRefNrColumn) End Function _ Public Sub SetnctsWP_KdRefNrNull() Me(Me.tabletblNCTS_TR_Warenposition.nctsWP_KdRefNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblNCTS_TR_WarenpositionPackstueckeRow Inherits Global.System.Data.DataRow Private tabletblNCTS_TR_WarenpositionPackstuecke As tblNCTS_TR_WarenpositionPackstueckeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblNCTS_TR_WarenpositionPackstuecke = CType(Me.Table,tblNCTS_TR_WarenpositionPackstueckeDataTable) End Sub _ Public Property nctsWpPk_Id() As Integer Get Return CType(Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_IdColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_IdColumn) = value End Set End Property _ Public Property nctsWpPk_nctsWPId() As Integer Get Return CType(Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_nctsWPIdColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_nctsWPIdColumn) = value End Set End Property _ Public Property nctsWpPk_NctsId() As Integer Get Return CType(Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_NctsIdColumn),Integer) End Get Set Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_NctsIdColumn) = value End Set End Property _ Public Property nctsWpPk_PackstueckeAnzahl() As Decimal Get Try Return CType(Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_PackstueckeAnzahlColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWpPk_PackstueckeAnzahl in Tabelle tblNCTS_TR_Warenpositio"& _ "nPackstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_PackstueckeAnzahlColumn) = value End Set End Property _ Public Property nctsWpPk_Verpackungsart() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_VerpackungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWpPk_Verpackungsart in Tabelle tblNCTS_TR_WarenpositionPa"& _ "ckstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_VerpackungsartColumn) = value End Set End Property _ Public Property nctsWpPk_ZeichenNummern() As String Get Try Return CType(Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_ZeichenNummernColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsWpPk_ZeichenNummern in Tabelle tblNCTS_TR_WarenpositionPa"& _ "ckstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_ZeichenNummernColumn) = value End Set End Property _ Public Function IsnctsWpPk_PackstueckeAnzahlNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_PackstueckeAnzahlColumn) End Function _ Public Sub SetnctsWpPk_PackstueckeAnzahlNull() Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_PackstueckeAnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWpPk_VerpackungsartNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_VerpackungsartColumn) End Function _ Public Sub SetnctsWpPk_VerpackungsartNull() Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_VerpackungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnctsWpPk_ZeichenNummernNull() As Boolean Return Me.IsNull(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_ZeichenNummernColumn) End Function _ Public Sub SetnctsWpPk_ZeichenNummernNull() Me(Me.tabletblNCTS_TR_WarenpositionPackstuecke.nctsWpPk_ZeichenNummernColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblNCTSGestellungsadressenRow Inherits Global.System.Data.DataRow Private tabletblNCTSGestellungsadressen As tblNCTSGestellungsadressenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblNCTSGestellungsadressen = CType(Me.Table,tblNCTSGestellungsadressenDataTable) End Sub _ Public Property nga_id() As Integer Get Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_idColumn),Integer) End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_idColumn) = value End Set End Property _ Public Property nga_name() As String Get Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_nameColumn),String) End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_nameColumn) = value End Set End Property _ Public Property nga_strasse() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_strasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_strasse in Tabelle tblNCTSGestellungsadressen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_strasseColumn) = value End Set End Property _ Public Property nga_land() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_landColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_land in Tabelle tblNCTSGestellungsadressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_landColumn) = value End Set End Property _ Public Property nga_plz() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_plzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_plz in Tabelle tblNCTSGestellungsadressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_plzColumn) = value End Set End Property _ Public Property nga_ort() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_ortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_ort in Tabelle tblNCTSGestellungsadressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_ortColumn) = value End Set End Property _ Public Property nga_EORI() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_EORI in Tabelle tblNCTSGestellungsadressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_EORIColumn) = value End Set End Property _ Public Property nga_EORI_NL() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_EORI_NLColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_EORI_NL in Tabelle tblNCTSGestellungsadressen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_EORI_NLColumn) = value End Set End Property _ Public Property nga_Ansprechpartner() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_AnsprechpartnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_Ansprechpartner in Tabelle tblNCTSGestellungsadressen ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_AnsprechpartnerColumn) = value End Set End Property _ Public Property nga_bestZollst() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_bestZollstColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_bestZollst in Tabelle tblNCTSGestellungsadressen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_bestZollstColumn) = value End Set End Property _ Public Property nga_firma() As String Get Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_firmaColumn),String) End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_firmaColumn) = value End Set End Property _ Public Property nga_SB() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_SBColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_SB in Tabelle tblNCTSGestellungsadressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_SBColumn) = value End Set End Property _ Public Property nga_Aenderungsdatum() As Date Get Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_AenderungsdatumColumn),Date) End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_AenderungsdatumColumn) = value End Set End Property _ Public Property nga_ATANr() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_ATANrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_ATANr in Tabelle tblNCTSGestellungsadressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_ATANrColumn) = value End Set End Property _ Public Property nga_gestellungsMail() As String Get Try Return CType(Me(Me.tabletblNCTSGestellungsadressen.nga_gestellungsMailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nga_gestellungsMail in Tabelle tblNCTSGestellungsadressen ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblNCTSGestellungsadressen.nga_gestellungsMailColumn) = value End Set End Property _ Public Function Isnga_strasseNull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_strasseColumn) End Function _ Public Sub Setnga_strasseNull() Me(Me.tabletblNCTSGestellungsadressen.nga_strasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnga_landNull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_landColumn) End Function _ Public Sub Setnga_landNull() Me(Me.tabletblNCTSGestellungsadressen.nga_landColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnga_plzNull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_plzColumn) End Function _ Public Sub Setnga_plzNull() Me(Me.tabletblNCTSGestellungsadressen.nga_plzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnga_ortNull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_ortColumn) End Function _ Public Sub Setnga_ortNull() Me(Me.tabletblNCTSGestellungsadressen.nga_ortColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnga_EORINull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_EORIColumn) End Function _ Public Sub Setnga_EORINull() Me(Me.tabletblNCTSGestellungsadressen.nga_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnga_EORI_NLNull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_EORI_NLColumn) End Function _ Public Sub Setnga_EORI_NLNull() Me(Me.tabletblNCTSGestellungsadressen.nga_EORI_NLColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnga_AnsprechpartnerNull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_AnsprechpartnerColumn) End Function _ Public Sub Setnga_AnsprechpartnerNull() Me(Me.tabletblNCTSGestellungsadressen.nga_AnsprechpartnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnga_bestZollstNull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_bestZollstColumn) End Function _ Public Sub Setnga_bestZollstNull() Me(Me.tabletblNCTSGestellungsadressen.nga_bestZollstColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnga_SBNull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_SBColumn) End Function _ Public Sub Setnga_SBNull() Me(Me.tabletblNCTSGestellungsadressen.nga_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnga_ATANrNull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_ATANrColumn) End Function _ Public Sub Setnga_ATANrNull() Me(Me.tabletblNCTSGestellungsadressen.nga_ATANrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnga_gestellungsMailNull() As Boolean Return Me.IsNull(Me.tabletblNCTSGestellungsadressen.nga_gestellungsMailColumn) End Function _ Public Sub Setnga_gestellungsMailNull() Me(Me.tabletblNCTSGestellungsadressen.nga_gestellungsMailColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblNTCSRoutenRow Inherits Global.System.Data.DataRow Private tabletblNTCSRouten As tblNTCSRoutenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblNTCSRouten = CType(Me.Table,tblNTCSRoutenDataTable) End Sub _ Public Property nctsr_id() As Integer Get Return CType(Me(Me.tabletblNTCSRouten.nctsr_idColumn),Integer) End Get Set Me(Me.tabletblNTCSRouten.nctsr_idColumn) = value End Set End Property _ Public Property nctsr_von() As String Get Return CType(Me(Me.tabletblNTCSRouten.nctsr_vonColumn),String) End Get Set Me(Me.tabletblNTCSRouten.nctsr_vonColumn) = value End Set End Property _ Public Property nctsr_nach() As String Get Return CType(Me(Me.tabletblNTCSRouten.nctsr_nachColumn),String) End Get Set Me(Me.tabletblNTCSRouten.nctsr_nachColumn) = value End Set End Property _ Public Property nctsr_dauer_in_tagen() As Integer Get Return CType(Me(Me.tabletblNTCSRouten.nctsr_dauer_in_tagenColumn),Integer) End Get Set Me(Me.tabletblNTCSRouten.nctsr_dauer_in_tagenColumn) = value End Set End Property _ Public Property nctsr_route() As String Get Try Return CType(Me(Me.tabletblNTCSRouten.nctsr_routeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nctsr_route in Tabelle tblNTCSRouten ist DBNull.", e) End Try End Get Set Me(Me.tabletblNTCSRouten.nctsr_routeColumn) = value End Set End Property _ Public Property nctsr_transportmittel() As String Get Return CType(Me(Me.tabletblNTCSRouten.nctsr_transportmittelColumn),String) End Get Set Me(Me.tabletblNTCSRouten.nctsr_transportmittelColumn) = value End Set End Property _ Public Property nctsr_von_region() As String Get Return CType(Me(Me.tabletblNTCSRouten.nctsr_von_regionColumn),String) End Get Set Me(Me.tabletblNTCSRouten.nctsr_von_regionColumn) = value End Set End Property _ Public Function Isnctsr_routeNull() As Boolean Return Me.IsNull(Me.tabletblNTCSRouten.nctsr_routeColumn) End Function _ Public Sub Setnctsr_routeNull() Me(Me.tabletblNTCSRouten.nctsr_routeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOffertenArchivRow Inherits Global.System.Data.DataRow Private tabletblOffertenArchiv As tblOffertenArchivDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOffertenArchiv = CType(Me.Table,tblOffertenArchivDataTable) End Sub _ Public Property OfID() As Integer Get Return CType(Me(Me.tabletblOffertenArchiv.OfIDColumn),Integer) End Get Set Me(Me.tabletblOffertenArchiv.OfIDColumn) = value End Set End Property _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tabletblOffertenArchiv.KundenNrColumn),Integer) End Get Set Me(Me.tabletblOffertenArchiv.KundenNrColumn) = value End Set End Property _ Public Property OffertenNr() As Integer Get Return CType(Me(Me.tabletblOffertenArchiv.OffertenNrColumn),Integer) End Get Set Me(Me.tabletblOffertenArchiv.OffertenNrColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tabletblOffertenArchiv.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.FilialenNrColumn) = value End Set End Property _ Public Property Pauschalpreis() As Boolean Get Try Return CType(Me(Me.tabletblOffertenArchiv.PauschalpreisColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pauschalpreis in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.PauschalpreisColumn) = value End Set End Property _ Public Property Standardofferte() As Boolean Get Try Return CType(Me(Me.tabletblOffertenArchiv.StandardofferteColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Standardofferte in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.StandardofferteColumn) = value End Set End Property _ Public Property Besonderheiten() As String Get Try Return CType(Me(Me.tabletblOffertenArchiv.BesonderheitenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Besonderheiten in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.BesonderheitenColumn) = value End Set End Property _ Public Property Eingegeben_am() As Date Get Return CType(Me(Me.tabletblOffertenArchiv.Eingegeben_amColumn),Date) End Get Set Me(Me.tabletblOffertenArchiv.Eingegeben_amColumn) = value End Set End Property _ Public Property Geändert_am() As Date Get Try Return CType(Me(Me.tabletblOffertenArchiv.Geändert_amColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Geändert am in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.Geändert_amColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblOffertenArchiv.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.SachbearbeiterColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As String Get Try Return CType(Me(Me.tabletblOffertenArchiv.SSMA_TimeStampColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Gesperrt() As Boolean Get Try Return CType(Me(Me.tabletblOffertenArchiv.GesperrtColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesperrt in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.GesperrtColumn) = value End Set End Property _ Public Property Gesperrt_Datum() As Date Get Try Return CType(Me(Me.tabletblOffertenArchiv.Gesperrt_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesperrt_Datum in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.Gesperrt_DatumColumn) = value End Set End Property _ Public Property Gesperrt_Grund() As String Get Try Return CType(Me(Me.tabletblOffertenArchiv.Gesperrt_GrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesperrt_Grund in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.Gesperrt_GrundColumn) = value End Set End Property _ Public Property Archiviert_am() As Date Get Return CType(Me(Me.tabletblOffertenArchiv.Archiviert_amColumn),Date) End Get Set Me(Me.tabletblOffertenArchiv.Archiviert_amColumn) = value End Set End Property _ Public Property Art() As String Get Try Return CType(Me(Me.tabletblOffertenArchiv.ArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Art in Tabelle tblOffertenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenArchiv.ArtColumn) = value End Set End Property _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tabletblOffertenArchiv.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPauschalpreisNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.PauschalpreisColumn) End Function _ Public Sub SetPauschalpreisNull() Me(Me.tabletblOffertenArchiv.PauschalpreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStandardofferteNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.StandardofferteColumn) End Function _ Public Sub SetStandardofferteNull() Me(Me.tabletblOffertenArchiv.StandardofferteColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBesonderheitenNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.BesonderheitenColumn) End Function _ Public Sub SetBesonderheitenNull() Me(Me.tabletblOffertenArchiv.BesonderheitenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändert_amNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.Geändert_amColumn) End Function _ Public Sub SetGeändert_amNull() Me(Me.tabletblOffertenArchiv.Geändert_amColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tabletblOffertenArchiv.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblOffertenArchiv.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesperrtNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.GesperrtColumn) End Function _ Public Sub SetGesperrtNull() Me(Me.tabletblOffertenArchiv.GesperrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesperrt_DatumNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.Gesperrt_DatumColumn) End Function _ Public Sub SetGesperrt_DatumNull() Me(Me.tabletblOffertenArchiv.Gesperrt_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesperrt_GrundNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.Gesperrt_GrundColumn) End Function _ Public Sub SetGesperrt_GrundNull() Me(Me.tabletblOffertenArchiv.Gesperrt_GrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsArtNull() As Boolean Return Me.IsNull(Me.tabletblOffertenArchiv.ArtColumn) End Function _ Public Sub SetArtNull() Me(Me.tabletblOffertenArchiv.ArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblOffertenPositionenArchivRows() As tblOffertenPositionenArchivRow() If (Me.Table.ChildRelations("FK_tblOffertenPositionenArchiv_ToOffertenArchiv") Is Nothing) Then Return New tblOffertenPositionenArchivRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_tblOffertenPositionenArchiv_ToOffertenArchiv")),tblOffertenPositionenArchivRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOffertenPositionenArchivRow Inherits Global.System.Data.DataRow Private tabletblOffertenPositionenArchiv As tblOffertenPositionenArchivDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOffertenPositionenArchiv = CType(Me.Table,tblOffertenPositionenArchivDataTable) End Sub _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tabletblOffertenPositionenArchiv.KundenNrColumn),Integer) End Get Set Me(Me.tabletblOffertenPositionenArchiv.KundenNrColumn) = value End Set End Property _ Public Property OffertenNr() As Integer Get Return CType(Me(Me.tabletblOffertenPositionenArchiv.OffertenNrColumn),Integer) End Get Set Me(Me.tabletblOffertenPositionenArchiv.OffertenNrColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tabletblOffertenPositionenArchiv.LeistungsNrColumn),Short) End Get Set Me(Me.tabletblOffertenPositionenArchiv.LeistungsNrColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tabletblOffertenPositionenArchiv.LeistungsBezColumn),String) End Get Set Me(Me.tabletblOffertenPositionenArchiv.LeistungsBezColumn) = value End Set End Property _ Public Property BerechnungsartNr() As Short Get Return CType(Me(Me.tabletblOffertenPositionenArchiv.BerechnungsartNrColumn),Short) End Get Set Me(Me.tabletblOffertenPositionenArchiv.BerechnungsartNrColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle tblOffertenPositionenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.PreisColumn) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle tblOffertenPositionenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.AnzahlColumn) = value End Set End Property _ Public Property BGebLeistungsNr() As Short Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.BGebLeistungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebLeistungsNr in Tabelle tblOffertenPositionenArchiv ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.BGebLeistungsNrColumn) = value End Set End Property _ Public Property BGebProzent() As Single Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.BGebProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebProzent in Tabelle tblOffertenPositionenArchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.BGebProzentColumn) = value End Set End Property _ Public Property BGebMinBetrag() As Decimal Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.BGebMinBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebMinBetrag in Tabelle tblOffertenPositionenArchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.BGebMinBetragColumn) = value End Set End Property _ Public Property Eingegeben_am() As Date Get Return CType(Me(Me.tabletblOffertenPositionenArchiv.Eingegeben_amColumn),Date) End Get Set Me(Me.tabletblOffertenPositionenArchiv.Eingegeben_amColumn) = value End Set End Property _ Public Property Geändert_am() As Date Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.Geändert_amColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Geändert am in Tabelle tblOffertenPositionenArchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.Geändert_amColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle tblOffertenPositionenArchiv ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.SachbearbeiterColumn) = value End Set End Property _ Public Property Preisänderung() As Decimal Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.PreisänderungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preisänderung in Tabelle tblOffertenPositionenArchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.PreisänderungColumn) = value End Set End Property _ Public Property PreisänderungProzent() As Single Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.PreisänderungProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PreisänderungProzent in Tabelle tblOffertenPositionenArchiv i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.PreisänderungProzentColumn) = value End Set End Property _ Public Property PreisAlt() As Decimal Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.PreisAltColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PreisAlt in Tabelle tblOffertenPositionenArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.PreisAltColumn) = value End Set End Property _ Public Property BerechnungsartPosInkludiert() As Integer Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.BerechnungsartPosInkludiertColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BerechnungsartPosInkludiert in Tabelle tblOffertenPositionenA"& _ "rchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.BerechnungsartPosInkludiertColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As String Get Try Return CType(Me(Me.tabletblOffertenPositionenArchiv.SSMA_TimeStampColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblOffertenPositionenArchiv ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblOffertenPositionenArchiv.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Archiviert_am() As Date Get Return CType(Me(Me.tabletblOffertenPositionenArchiv.Archiviert_amColumn),Date) End Get Set Me(Me.tabletblOffertenPositionenArchiv.Archiviert_amColumn) = value End Set End Property _ Public Property OfID() As Integer Get Return CType(Me(Me.tabletblOffertenPositionenArchiv.OfIDColumn),Integer) End Get Set Me(Me.tabletblOffertenPositionenArchiv.OfIDColumn) = value End Set End Property _ Public Property tblOffertenArchivRow() As tblOffertenArchivRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_tblOffertenPositionenArchiv_ToOffertenArchiv")),tblOffertenArchivRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_tblOffertenPositionenArchiv_ToOffertenArchiv")) End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tabletblOffertenPositionenArchiv.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tabletblOffertenPositionenArchiv.AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebLeistungsNrNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.BGebLeistungsNrColumn) End Function _ Public Sub SetBGebLeistungsNrNull() Me(Me.tabletblOffertenPositionenArchiv.BGebLeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebProzentNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.BGebProzentColumn) End Function _ Public Sub SetBGebProzentNull() Me(Me.tabletblOffertenPositionenArchiv.BGebProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebMinBetragNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.BGebMinBetragColumn) End Function _ Public Sub SetBGebMinBetragNull() Me(Me.tabletblOffertenPositionenArchiv.BGebMinBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändert_amNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.Geändert_amColumn) End Function _ Public Sub SetGeändert_amNull() Me(Me.tabletblOffertenPositionenArchiv.Geändert_amColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tabletblOffertenPositionenArchiv.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreisänderungNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.PreisänderungColumn) End Function _ Public Sub SetPreisänderungNull() Me(Me.tabletblOffertenPositionenArchiv.PreisänderungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreisänderungProzentNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.PreisänderungProzentColumn) End Function _ Public Sub SetPreisänderungProzentNull() Me(Me.tabletblOffertenPositionenArchiv.PreisänderungProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreisAltNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.PreisAltColumn) End Function _ Public Sub SetPreisAltNull() Me(Me.tabletblOffertenPositionenArchiv.PreisAltColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerechnungsartPosInkludiertNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.BerechnungsartPosInkludiertColumn) End Function _ Public Sub SetBerechnungsartPosInkludiertNull() Me(Me.tabletblOffertenPositionenArchiv.BerechnungsartPosInkludiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblOffertenPositionenArchiv.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblOffertenPositionenArchiv.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOregonNCTS_DeclarationDataRow Inherits Global.System.Data.DataRow Private tabletblOregonNCTS_DeclarationData As tblOregonNCTS_DeclarationDataDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOregonNCTS_DeclarationData = CType(Me.Table,tblOregonNCTS_DeclarationDataDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.IdColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.IdColumn) = value End Set End Property _ Public Property auto_send() As Boolean Get Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.auto_sendColumn),Boolean) End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.auto_sendColumn) = value End Set End Property _ Public Property badge_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.badge_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte badge_code in Tabelle tblOregonNCTS_DeclarationData ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.badge_codeColumn) = value End Set End Property _ Public Property service_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.service_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte service_code in Tabelle tblOregonNCTS_DeclarationData ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.service_codeColumn) = value End Set End Property _ Public Property doc_type() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.doc_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte doc_type in Tabelle tblOregonNCTS_DeclarationData ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.doc_typeColumn) = value End Set End Property _ Public Property declaration_type() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.declaration_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte declaration_type in Tabelle tblOregonNCTS_DeclarationData ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.declaration_typeColumn) = value End Set End Property _ Public Property commercial_ref() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.commercial_refColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte commercial_ref in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.commercial_refColumn) = value End Set End Property _ Public Property ducr() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.ducrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ducr in Tabelle tblOregonNCTS_DeclarationData ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.ducrColumn) = value End Set End Property _ Public Property mucr() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.mucrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mucr in Tabelle tblOregonNCTS_DeclarationData ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.mucrColumn) = value End Set End Property _ Public Property ducr_part() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.ducr_partColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ducr_part in Tabelle tblOregonNCTS_DeclarationData ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.ducr_partColumn) = value End Set End Property _ Public Property declarant_eori() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.declarant_eoriColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte declarant_eori in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.declarant_eoriColumn) = value End Set End Property _ Public Property declarant_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.declarant_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte declarant_name in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.declarant_nameColumn) = value End Set End Property _ Public Property declarant_address() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.declarant_addressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte declarant_address in Tabelle tblOregonNCTS_DeclarationData is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.declarant_addressColumn) = value End Set End Property _ Public Property declarant_city_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.declarant_city_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte declarant_city_name in Tabelle tblOregonNCTS_DeclarationData "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.declarant_city_nameColumn) = value End Set End Property _ Public Property declarant_country_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.declarant_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte declarant_country_id in Tabelle tblOregonNCTS_DeclarationData"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.declarant_country_idColumn) = value End Set End Property _ Public Property declarant_postcode() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.declarant_postcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte declarant_postcode in Tabelle tblOregonNCTS_DeclarationData i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.declarant_postcodeColumn) = value End Set End Property _ Public Property declarant_rep() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.declarant_repColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte declarant_rep in Tabelle tblOregonNCTS_DeclarationData ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.declarant_repColumn) = value End Set End Property _ Public Property export_country_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.export_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte export_country_id in Tabelle tblOregonNCTS_DeclarationData is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.export_country_idColumn) = value End Set End Property _ Public Property consignor_eori() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignor_eoriColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_eori in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignor_eoriColumn) = value End Set End Property _ Public Property consignor_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignor_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_name in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignor_nameColumn) = value End Set End Property _ Public Property consignor_address() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignor_addressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_address in Tabelle tblOregonNCTS_DeclarationData is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignor_addressColumn) = value End Set End Property _ Public Property consignor_city_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignor_city_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_city_name in Tabelle tblOregonNCTS_DeclarationData "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignor_city_nameColumn) = value End Set End Property _ Public Property consignor_country_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignor_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_country_id in Tabelle tblOregonNCTS_DeclarationData"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignor_country_idColumn) = value End Set End Property _ Public Property consignor_postcode() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignor_postcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignor_postcode in Tabelle tblOregonNCTS_DeclarationData i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignor_postcodeColumn) = value End Set End Property _ Public Property multiple_consignor() As Boolean Get Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.multiple_consignorColumn),Boolean) End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.multiple_consignorColumn) = value End Set End Property _ Public Property import_country_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.import_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte import_country_id in Tabelle tblOregonNCTS_DeclarationData is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.import_country_idColumn) = value End Set End Property _ Public Property consignee_eori() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignee_eoriColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_eori in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignee_eoriColumn) = value End Set End Property _ Public Property consignee_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignee_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_name in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignee_nameColumn) = value End Set End Property _ Public Property consignee_address() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignee_addressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_address in Tabelle tblOregonNCTS_DeclarationData is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignee_addressColumn) = value End Set End Property _ Public Property consignee_city_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignee_city_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_city_name in Tabelle tblOregonNCTS_DeclarationData "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignee_city_nameColumn) = value End Set End Property _ Public Property consignee_country_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignee_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_country_id in Tabelle tblOregonNCTS_DeclarationData"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignee_country_idColumn) = value End Set End Property _ Public Property consignee_postcode() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.consignee_postcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_postcode in Tabelle tblOregonNCTS_DeclarationData i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.consignee_postcodeColumn) = value End Set End Property _ Public Property multiple_consignee() As Boolean Get Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.multiple_consigneeColumn),Boolean) End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.multiple_consigneeColumn) = value End Set End Property _ Public Property invoice_amount() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.invoice_amountColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte invoice_amount in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.invoice_amountColumn) = value End Set End Property _ Public Property invoice_curr() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.invoice_currColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte invoice_curr in Tabelle tblOregonNCTS_DeclarationData ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.invoice_currColumn) = value End Set End Property _ Public Property goods_location() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.goods_locationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte goods_location in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.goods_locationColumn) = value End Set End Property _ Public Property border_transport_type() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.border_transport_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte border_transport_type in Tabelle tblOregonNCTS_DeclarationDat"& _ "a ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.border_transport_typeColumn) = value End Set End Property _ Public Property border_vehicle_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.border_vehicle_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte border_vehicle_code in Tabelle tblOregonNCTS_DeclarationData "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.border_vehicle_codeColumn) = value End Set End Property _ Public Property border_vehicle_coun() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.border_vehicle_counColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte border_vehicle_coun in Tabelle tblOregonNCTS_DeclarationData "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.border_vehicle_counColumn) = value End Set End Property _ Public Property inland_transport_type() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.inland_transport_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte inland_transport_type in Tabelle tblOregonNCTS_DeclarationDat"& _ "a ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.inland_transport_typeColumn) = value End Set End Property _ Public Property container_no() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.container_noColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte container_no in Tabelle tblOregonNCTS_DeclarationData ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.container_noColumn) = value End Set End Property _ Public Property gvms_interested() As Boolean Get Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.gvms_interestedColumn),Boolean) End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.gvms_interestedColumn) = value End Set End Property _ Public Property freight_amount() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.freight_amountColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte freight_amount in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.freight_amountColumn) = value End Set End Property _ Public Property freight_curr() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.freight_currColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte freight_curr in Tabelle tblOregonNCTS_DeclarationData ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.freight_currColumn) = value End Set End Property _ Public Property payment_method() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.payment_methodColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte payment_method in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.payment_methodColumn) = value End Set End Property _ Public Property carrier_eori() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.carrier_eoriColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte carrier_eori in Tabelle tblOregonNCTS_DeclarationData ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.carrier_eoriColumn) = value End Set End Property _ Public Property carrier_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.carrier_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte carrier_name in Tabelle tblOregonNCTS_DeclarationData ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.carrier_nameColumn) = value End Set End Property _ Public Property carrier_address() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.carrier_addressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte carrier_address in Tabelle tblOregonNCTS_DeclarationData ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.carrier_addressColumn) = value End Set End Property _ Public Property carrier_city_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.carrier_city_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte carrier_city_name in Tabelle tblOregonNCTS_DeclarationData is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.carrier_city_nameColumn) = value End Set End Property _ Public Property carrier_country_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.carrier_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte carrier_country_id in Tabelle tblOregonNCTS_DeclarationData i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.carrier_country_idColumn) = value End Set End Property _ Public Property carrier_postcode() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.carrier_postcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte carrier_postcode in Tabelle tblOregonNCTS_DeclarationData ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.carrier_postcodeColumn) = value End Set End Property _ Public Property total_packages() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.total_packagesColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.total_packagesColumn) = value End Set End Property _ Public Property nature_of_transaction() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.nature_of_transactionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nature_of_transaction in Tabelle tblOregonNCTS_DeclarationDat"& _ "a ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.nature_of_transactionColumn) = value End Set End Property _ Public Property premises_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.premises_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte premises_code in Tabelle tblOregonNCTS_DeclarationData ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.premises_codeColumn) = value End Set End Property _ Public Property first_dan_no() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.first_dan_noColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte first_dan_no in Tabelle tblOregonNCTS_DeclarationData ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.first_dan_noColumn) = value End Set End Property _ Public Property second_dan_no() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.second_dan_noColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte second_dan_no in Tabelle tblOregonNCTS_DeclarationData ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.second_dan_noColumn) = value End Set End Property _ Public Property insurance_amount() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.insurance_amountColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte insurance_amount in Tabelle tblOregonNCTS_DeclarationData ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.insurance_amountColumn) = value End Set End Property _ Public Property insurance_curr() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.insurance_currColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte insurance_curr in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.insurance_currColumn) = value End Set End Property _ Public Property other_amounts() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.other_amountsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte other_amounts in Tabelle tblOregonNCTS_DeclarationData ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.other_amountsColumn) = value End Set End Property _ Public Property other_amounts_curr() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.other_amounts_currColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte other_amounts_curr in Tabelle tblOregonNCTS_DeclarationData i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.other_amounts_currColumn) = value End Set End Property _ Public Property apportment_indicator() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.apportment_indicatorColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte apportment_indicator in Tabelle tblOregonNCTS_DeclarationData"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.apportment_indicatorColumn) = value End Set End Property _ Public Property total_gross_weight() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.total_gross_weightColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte total_gross_weight in Tabelle tblOregonNCTS_DeclarationData i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.total_gross_weightColumn) = value End Set End Property _ Public Property total_net_weight() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.total_net_weightColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte total_net_weight in Tabelle tblOregonNCTS_DeclarationData ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.total_net_weightColumn) = value End Set End Property _ Public Property airfreight_cost() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.airfreight_costColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte airfreight_cost in Tabelle tblOregonNCTS_DeclarationData ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.airfreight_costColumn) = value End Set End Property _ Public Property vat_adjustment() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.vat_adjustmentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vat_adjustment in Tabelle tblOregonNCTS_DeclarationData ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.vat_adjustmentColumn) = value End Set End Property _ Public Property vat_adjustment_curr() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.vat_adjustment_currColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vat_adjustment_curr in Tabelle tblOregonNCTS_DeclarationData "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.vat_adjustment_currColumn) = value End Set End Property _ Public Property discount_amount() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.discount_amountColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte discount_amount in Tabelle tblOregonNCTS_DeclarationData ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.discount_amountColumn) = value End Set End Property _ Public Property discount_curr() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.discount_currColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte discount_curr in Tabelle tblOregonNCTS_DeclarationData ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.discount_currColumn) = value End Set End Property _ Public Property discount_rate() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.discount_rateColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte discount_rate in Tabelle tblOregonNCTS_DeclarationData ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.discount_rateColumn) = value End Set End Property _ Public Property incoterm() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.incotermColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte incoterm in Tabelle tblOregonNCTS_DeclarationData ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.incotermColumn) = value End Set End Property _ Public Property incoterm_location() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.incoterm_locationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte incoterm_location in Tabelle tblOregonNCTS_DeclarationData is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.incoterm_locationColumn) = value End Set End Property _ Public Property trader_ref() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.trader_refColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trader_ref in Tabelle tblOregonNCTS_DeclarationData ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.trader_refColumn) = value End Set End Property _ Public Property arrival_transport_type() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.arrival_transport_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte arrival_transport_type in Tabelle tblOregonNCTS_DeclarationDa"& _ "ta ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.arrival_transport_typeColumn) = value End Set End Property _ Public Property guarantee_code() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.guarantee_codeColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.guarantee_codeColumn) = value End Set End Property _ Public Property guarantee_reference() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.guarantee_referenceColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte guarantee_reference in Tabelle tblOregonNCTS_DeclarationData "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.guarantee_referenceColumn) = value End Set End Property _ Public Property created() As Date Get Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.createdColumn),Date) End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.createdColumn) = value End Set End Property _ Public Property status() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.statusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte status in Tabelle tblOregonNCTS_DeclarationData ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.statusColumn) = value End Set End Property _ Public Property aviso_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_DeclarationData.aviso_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aviso_id in Tabelle tblOregonNCTS_DeclarationData ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblOregonNCTS_DeclarationData.aviso_idColumn) = value End Set End Property _ Public Function Isbadge_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.badge_codeColumn) End Function _ Public Sub Setbadge_codeNull() Me(Me.tabletblOregonNCTS_DeclarationData.badge_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isservice_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.service_codeColumn) End Function _ Public Sub Setservice_codeNull() Me(Me.tabletblOregonNCTS_DeclarationData.service_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdoc_typeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.doc_typeColumn) End Function _ Public Sub Setdoc_typeNull() Me(Me.tabletblOregonNCTS_DeclarationData.doc_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdeclaration_typeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.declaration_typeColumn) End Function _ Public Sub Setdeclaration_typeNull() Me(Me.tabletblOregonNCTS_DeclarationData.declaration_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscommercial_refNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.commercial_refColumn) End Function _ Public Sub Setcommercial_refNull() Me(Me.tabletblOregonNCTS_DeclarationData.commercial_refColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsducrNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.ducrColumn) End Function _ Public Sub SetducrNull() Me(Me.tabletblOregonNCTS_DeclarationData.ducrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsmucrNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.mucrColumn) End Function _ Public Sub SetmucrNull() Me(Me.tabletblOregonNCTS_DeclarationData.mucrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isducr_partNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.ducr_partColumn) End Function _ Public Sub Setducr_partNull() Me(Me.tabletblOregonNCTS_DeclarationData.ducr_partColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdeclarant_eoriNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.declarant_eoriColumn) End Function _ Public Sub Setdeclarant_eoriNull() Me(Me.tabletblOregonNCTS_DeclarationData.declarant_eoriColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdeclarant_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.declarant_nameColumn) End Function _ Public Sub Setdeclarant_nameNull() Me(Me.tabletblOregonNCTS_DeclarationData.declarant_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdeclarant_addressNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.declarant_addressColumn) End Function _ Public Sub Setdeclarant_addressNull() Me(Me.tabletblOregonNCTS_DeclarationData.declarant_addressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdeclarant_city_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.declarant_city_nameColumn) End Function _ Public Sub Setdeclarant_city_nameNull() Me(Me.tabletblOregonNCTS_DeclarationData.declarant_city_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdeclarant_country_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.declarant_country_idColumn) End Function _ Public Sub Setdeclarant_country_idNull() Me(Me.tabletblOregonNCTS_DeclarationData.declarant_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdeclarant_postcodeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.declarant_postcodeColumn) End Function _ Public Sub Setdeclarant_postcodeNull() Me(Me.tabletblOregonNCTS_DeclarationData.declarant_postcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdeclarant_repNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.declarant_repColumn) End Function _ Public Sub Setdeclarant_repNull() Me(Me.tabletblOregonNCTS_DeclarationData.declarant_repColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isexport_country_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.export_country_idColumn) End Function _ Public Sub Setexport_country_idNull() Me(Me.tabletblOregonNCTS_DeclarationData.export_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_eoriNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignor_eoriColumn) End Function _ Public Sub Setconsignor_eoriNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignor_eoriColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignor_nameColumn) End Function _ Public Sub Setconsignor_nameNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignor_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_addressNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignor_addressColumn) End Function _ Public Sub Setconsignor_addressNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignor_addressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_city_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignor_city_nameColumn) End Function _ Public Sub Setconsignor_city_nameNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignor_city_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_country_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignor_country_idColumn) End Function _ Public Sub Setconsignor_country_idNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignor_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignor_postcodeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignor_postcodeColumn) End Function _ Public Sub Setconsignor_postcodeNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignor_postcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isimport_country_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.import_country_idColumn) End Function _ Public Sub Setimport_country_idNull() Me(Me.tabletblOregonNCTS_DeclarationData.import_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_eoriNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignee_eoriColumn) End Function _ Public Sub Setconsignee_eoriNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignee_eoriColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignee_nameColumn) End Function _ Public Sub Setconsignee_nameNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignee_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_addressNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignee_addressColumn) End Function _ Public Sub Setconsignee_addressNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignee_addressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_city_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignee_city_nameColumn) End Function _ Public Sub Setconsignee_city_nameNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignee_city_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_country_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignee_country_idColumn) End Function _ Public Sub Setconsignee_country_idNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignee_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_postcodeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.consignee_postcodeColumn) End Function _ Public Sub Setconsignee_postcodeNull() Me(Me.tabletblOregonNCTS_DeclarationData.consignee_postcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isinvoice_amountNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.invoice_amountColumn) End Function _ Public Sub Setinvoice_amountNull() Me(Me.tabletblOregonNCTS_DeclarationData.invoice_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isinvoice_currNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.invoice_currColumn) End Function _ Public Sub Setinvoice_currNull() Me(Me.tabletblOregonNCTS_DeclarationData.invoice_currColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgoods_locationNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.goods_locationColumn) End Function _ Public Sub Setgoods_locationNull() Me(Me.tabletblOregonNCTS_DeclarationData.goods_locationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isborder_transport_typeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.border_transport_typeColumn) End Function _ Public Sub Setborder_transport_typeNull() Me(Me.tabletblOregonNCTS_DeclarationData.border_transport_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isborder_vehicle_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.border_vehicle_codeColumn) End Function _ Public Sub Setborder_vehicle_codeNull() Me(Me.tabletblOregonNCTS_DeclarationData.border_vehicle_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isborder_vehicle_counNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.border_vehicle_counColumn) End Function _ Public Sub Setborder_vehicle_counNull() Me(Me.tabletblOregonNCTS_DeclarationData.border_vehicle_counColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isinland_transport_typeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.inland_transport_typeColumn) End Function _ Public Sub Setinland_transport_typeNull() Me(Me.tabletblOregonNCTS_DeclarationData.inland_transport_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscontainer_noNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.container_noColumn) End Function _ Public Sub Setcontainer_noNull() Me(Me.tabletblOregonNCTS_DeclarationData.container_noColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfreight_amountNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.freight_amountColumn) End Function _ Public Sub Setfreight_amountNull() Me(Me.tabletblOregonNCTS_DeclarationData.freight_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfreight_currNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.freight_currColumn) End Function _ Public Sub Setfreight_currNull() Me(Me.tabletblOregonNCTS_DeclarationData.freight_currColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispayment_methodNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.payment_methodColumn) End Function _ Public Sub Setpayment_methodNull() Me(Me.tabletblOregonNCTS_DeclarationData.payment_methodColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscarrier_eoriNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.carrier_eoriColumn) End Function _ Public Sub Setcarrier_eoriNull() Me(Me.tabletblOregonNCTS_DeclarationData.carrier_eoriColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscarrier_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.carrier_nameColumn) End Function _ Public Sub Setcarrier_nameNull() Me(Me.tabletblOregonNCTS_DeclarationData.carrier_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscarrier_addressNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.carrier_addressColumn) End Function _ Public Sub Setcarrier_addressNull() Me(Me.tabletblOregonNCTS_DeclarationData.carrier_addressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscarrier_city_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.carrier_city_nameColumn) End Function _ Public Sub Setcarrier_city_nameNull() Me(Me.tabletblOregonNCTS_DeclarationData.carrier_city_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscarrier_country_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.carrier_country_idColumn) End Function _ Public Sub Setcarrier_country_idNull() Me(Me.tabletblOregonNCTS_DeclarationData.carrier_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscarrier_postcodeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.carrier_postcodeColumn) End Function _ Public Sub Setcarrier_postcodeNull() Me(Me.tabletblOregonNCTS_DeclarationData.carrier_postcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnature_of_transactionNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.nature_of_transactionColumn) End Function _ Public Sub Setnature_of_transactionNull() Me(Me.tabletblOregonNCTS_DeclarationData.nature_of_transactionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispremises_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.premises_codeColumn) End Function _ Public Sub Setpremises_codeNull() Me(Me.tabletblOregonNCTS_DeclarationData.premises_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isfirst_dan_noNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.first_dan_noColumn) End Function _ Public Sub Setfirst_dan_noNull() Me(Me.tabletblOregonNCTS_DeclarationData.first_dan_noColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issecond_dan_noNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.second_dan_noColumn) End Function _ Public Sub Setsecond_dan_noNull() Me(Me.tabletblOregonNCTS_DeclarationData.second_dan_noColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isinsurance_amountNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.insurance_amountColumn) End Function _ Public Sub Setinsurance_amountNull() Me(Me.tabletblOregonNCTS_DeclarationData.insurance_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isinsurance_currNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.insurance_currColumn) End Function _ Public Sub Setinsurance_currNull() Me(Me.tabletblOregonNCTS_DeclarationData.insurance_currColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isother_amountsNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.other_amountsColumn) End Function _ Public Sub Setother_amountsNull() Me(Me.tabletblOregonNCTS_DeclarationData.other_amountsColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isother_amounts_currNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.other_amounts_currColumn) End Function _ Public Sub Setother_amounts_currNull() Me(Me.tabletblOregonNCTS_DeclarationData.other_amounts_currColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isapportment_indicatorNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.apportment_indicatorColumn) End Function _ Public Sub Setapportment_indicatorNull() Me(Me.tabletblOregonNCTS_DeclarationData.apportment_indicatorColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istotal_gross_weightNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.total_gross_weightColumn) End Function _ Public Sub Settotal_gross_weightNull() Me(Me.tabletblOregonNCTS_DeclarationData.total_gross_weightColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istotal_net_weightNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.total_net_weightColumn) End Function _ Public Sub Settotal_net_weightNull() Me(Me.tabletblOregonNCTS_DeclarationData.total_net_weightColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isairfreight_costNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.airfreight_costColumn) End Function _ Public Sub Setairfreight_costNull() Me(Me.tabletblOregonNCTS_DeclarationData.airfreight_costColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvat_adjustmentNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.vat_adjustmentColumn) End Function _ Public Sub Setvat_adjustmentNull() Me(Me.tabletblOregonNCTS_DeclarationData.vat_adjustmentColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvat_adjustment_currNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.vat_adjustment_currColumn) End Function _ Public Sub Setvat_adjustment_currNull() Me(Me.tabletblOregonNCTS_DeclarationData.vat_adjustment_currColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdiscount_amountNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.discount_amountColumn) End Function _ Public Sub Setdiscount_amountNull() Me(Me.tabletblOregonNCTS_DeclarationData.discount_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdiscount_currNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.discount_currColumn) End Function _ Public Sub Setdiscount_currNull() Me(Me.tabletblOregonNCTS_DeclarationData.discount_currColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdiscount_rateNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.discount_rateColumn) End Function _ Public Sub Setdiscount_rateNull() Me(Me.tabletblOregonNCTS_DeclarationData.discount_rateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsincotermNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.incotermColumn) End Function _ Public Sub SetincotermNull() Me(Me.tabletblOregonNCTS_DeclarationData.incotermColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isincoterm_locationNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.incoterm_locationColumn) End Function _ Public Sub Setincoterm_locationNull() Me(Me.tabletblOregonNCTS_DeclarationData.incoterm_locationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istrader_refNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.trader_refColumn) End Function _ Public Sub Settrader_refNull() Me(Me.tabletblOregonNCTS_DeclarationData.trader_refColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isarrival_transport_typeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.arrival_transport_typeColumn) End Function _ Public Sub Setarrival_transport_typeNull() Me(Me.tabletblOregonNCTS_DeclarationData.arrival_transport_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isguarantee_referenceNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.guarantee_referenceColumn) End Function _ Public Sub Setguarantee_referenceNull() Me(Me.tabletblOregonNCTS_DeclarationData.guarantee_referenceColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstatusNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.statusColumn) End Function _ Public Sub SetstatusNull() Me(Me.tabletblOregonNCTS_DeclarationData.statusColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isaviso_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_DeclarationData.aviso_idColumn) End Function _ Public Sub Setaviso_idNull() Me(Me.tabletblOregonNCTS_DeclarationData.aviso_idColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOregonNCTS_Declarations_AdditionalCodesAttributeRow Inherits Global.System.Data.DataRow Private tabletblOregonNCTS_Declarations_AdditionalCodesAttribute As tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute = CType(Me.Table,tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.IdColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.IdColumn) = value End Set End Property _ Public Property code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte code in Tabelle tblOregonNCTS_Declarations_AdditionalCodesAtt"& _ "ribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.codeColumn) = value End Set End Property _ Public Property notes() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.notesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte notes in Tabelle tblOregonNCTS_Declarations_AdditionalCodesAt"& _ "tribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.notesColumn) = value End Set End Property _ Public Function IscodeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.codeColumn) End Function _ Public Sub SetcodeNull() Me(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnotesNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.notesColumn) End Function _ Public Sub SetnotesNull() Me(Me.tabletblOregonNCTS_Declarations_AdditionalCodesAttribute.notesColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOregonNCTS_Declarations_DocumentsAttributeRow Inherits Global.System.Data.DataRow Private tabletblOregonNCTS_Declarations_DocumentsAttribute As tblOregonNCTS_Declarations_DocumentsAttributeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOregonNCTS_Declarations_DocumentsAttribute = CType(Me.Table,tblOregonNCTS_Declarations_DocumentsAttributeDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.IdColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.IdColumn) = value End Set End Property _ Public Property goods_attribute_id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.goods_attribute_idColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.goods_attribute_idColumn) = value End Set End Property _ Public Property doc_type() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.doc_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte doc_type in Tabelle tblOregonNCTS_Declarations_DocumentsAttri"& _ "bute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.doc_typeColumn) = value End Set End Property _ Public Property doc_no() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.doc_noColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte doc_no in Tabelle tblOregonNCTS_Declarations_DocumentsAttribu"& _ "te ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.doc_noColumn) = value End Set End Property _ Public Property pre_post() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.pre_postColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pre_post in Tabelle tblOregonNCTS_Declarations_DocumentsAttri"& _ "bute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.pre_postColumn) = value End Set End Property _ Public Function Isdoc_typeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.doc_typeColumn) End Function _ Public Sub Setdoc_typeNull() Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.doc_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdoc_noNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.doc_noColumn) End Function _ Public Sub Setdoc_noNull() Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.doc_noColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispre_postNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.pre_postColumn) End Function _ Public Sub Setpre_postNull() Me(Me.tabletblOregonNCTS_Declarations_DocumentsAttribute.pre_postColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOregonNCTS_Declarations_GoodsAttributeRow Inherits Global.System.Data.DataRow Private tabletblOregonNCTS_Declarations_GoodsAttribute As tblOregonNCTS_Declarations_GoodsAttributeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOregonNCTS_Declarations_GoodsAttribute = CType(Me.Table,tblOregonNCTS_Declarations_GoodsAttributeDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.IdColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.IdColumn) = value End Set End Property _ Public Property commodity() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.commodityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte commodity in Tabelle tblOregonNCTS_Declarations_GoodsAttribut"& _ "e ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.commodityColumn) = value End Set End Property _ Public Property gtip_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.gtip_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gtip_code in Tabelle tblOregonNCTS_Declarations_GoodsAttribut"& _ "e ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.gtip_codeColumn) = value End Set End Property _ Public Property gtip_language() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.gtip_languageColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gtip_language in Tabelle tblOregonNCTS_Declarations_GoodsAttr"& _ "ibute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.gtip_languageColumn) = value End Set End Property _ Public Property brut_wg() As Decimal Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.brut_wgColumn),Decimal) End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.brut_wgColumn) = value End Set End Property _ Public Property net_wg() As Decimal Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.net_wgColumn),Decimal) End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.net_wgColumn) = value End Set End Property _ Public Property sender_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sender_name in Tabelle tblOregonNCTS_Declarations_GoodsAttrib"& _ "ute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_nameColumn) = value End Set End Property _ Public Property sender_address() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_addressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sender_address in Tabelle tblOregonNCTS_Declarations_GoodsAtt"& _ "ribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_addressColumn) = value End Set End Property _ Public Property sender_city_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_city_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sender_city_name in Tabelle tblOregonNCTS_Declarations_GoodsA"& _ "ttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_city_nameColumn) = value End Set End Property _ Public Property sender_country_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sender_country_id in Tabelle tblOregonNCTS_Declarations_Goods"& _ "Attribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_country_idColumn) = value End Set End Property _ Public Property sender_postcode() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_postcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sender_postcode in Tabelle tblOregonNCTS_Declarations_GoodsAt"& _ "tribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_postcodeColumn) = value End Set End Property _ Public Property sender_eori_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_eori_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sender_eori_code in Tabelle tblOregonNCTS_Declarations_GoodsA"& _ "ttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_eori_codeColumn) = value End Set End Property _ Public Property consignee_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_name in Tabelle tblOregonNCTS_Declarations_GoodsAtt"& _ "ribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_nameColumn) = value End Set End Property _ Public Property consignee_address() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_addressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_address in Tabelle tblOregonNCTS_Declarations_Goods"& _ "Attribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_addressColumn) = value End Set End Property _ Public Property consignee_city_name() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_city_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_city_name in Tabelle tblOregonNCTS_Declarations_Goo"& _ "dsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_city_nameColumn) = value End Set End Property _ Public Property consignee_country_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_country_id in Tabelle tblOregonNCTS_Declarations_Go"& _ "odsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_country_idColumn) = value End Set End Property _ Public Property consignee_postcode() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_postcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_postcode in Tabelle tblOregonNCTS_Declarations_Good"& _ "sAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_postcodeColumn) = value End Set End Property _ Public Property consignee_eori_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_eori_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte consignee_eori_code in Tabelle tblOregonNCTS_Declarations_Goo"& _ "dsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_eori_codeColumn) = value End Set End Property _ Public Property invoice_amount() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.invoice_amountColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte invoice_amount in Tabelle tblOregonNCTS_Declarations_GoodsAtt"& _ "ribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.invoice_amountColumn) = value End Set End Property _ Public Property invoice_curr() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.invoice_currColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte invoice_curr in Tabelle tblOregonNCTS_Declarations_GoodsAttri"& _ "bute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.invoice_currColumn) = value End Set End Property _ Public Property cpc_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.cpc_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cpc_code in Tabelle tblOregonNCTS_Declarations_GoodsAttribute"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.cpc_codeColumn) = value End Set End Property _ Public Property additional_cpc_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.additional_cpc_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte additional_cpc_code in Tabelle tblOregonNCTS_Declarations_Goo"& _ "dsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.additional_cpc_codeColumn) = value End Set End Property _ Public Property container_no() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.container_noColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte container_no in Tabelle tblOregonNCTS_Declarations_GoodsAttri"& _ "bute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.container_noColumn) = value End Set End Property _ Public Property preferential_country_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.preferential_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte preferential_country_id in Tabelle tblOregonNCTS_Declarations"& _ "_GoodsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.preferential_country_idColumn) = value End Set End Property _ Public Property cus_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.cus_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cus_code in Tabelle tblOregonNCTS_Declarations_GoodsAttribute"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.cus_codeColumn) = value End Set End Property _ Public Property nature_of_transaction() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.nature_of_transactionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte nature_of_transaction in Tabelle tblOregonNCTS_Declarations_G"& _ "oodsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.nature_of_transactionColumn) = value End Set End Property _ Public Property additional_commodity_codes() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.additional_commodity_codesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte additional_commodity_codes in Tabelle tblOregonNCTS_Declarati"& _ "ons_GoodsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.additional_commodity_codesColumn) = value End Set End Property _ Public Property origin_country_id() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.origin_country_idColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte origin_country_id in Tabelle tblOregonNCTS_Declarations_Goods"& _ "Attribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.origin_country_idColumn) = value End Set End Property _ Public Property preference_request() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.preference_requestColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte preference_request in Tabelle tblOregonNCTS_Declarations_Good"& _ "sAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.preference_requestColumn) = value End Set End Property _ Public Property quota_desc() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.quota_descColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte quota_desc in Tabelle tblOregonNCTS_Declarations_GoodsAttribu"& _ "te ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.quota_descColumn) = value End Set End Property _ Public Property valuation_method() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.valuation_methodColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte valuation_method in Tabelle tblOregonNCTS_Declarations_GoodsA"& _ "ttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.valuation_methodColumn) = value End Set End Property _ Public Property valuation_adjustment() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.valuation_adjustmentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte valuation_adjustment in Tabelle tblOregonNCTS_Declarations_Go"& _ "odsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.valuation_adjustmentColumn) = value End Set End Property _ Public Property third_quantity_type() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.third_quantity_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte third_quantity_type in Tabelle tblOregonNCTS_Declarations_Goo"& _ "dsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.third_quantity_typeColumn) = value End Set End Property _ Public Property third_quantity() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.third_quantityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte third_quantity in Tabelle tblOregonNCTS_Declarations_GoodsAtt"& _ "ribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.third_quantityColumn) = value End Set End Property _ Public Property supplementary_unit() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.supplementary_unitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte supplementary_unit in Tabelle tblOregonNCTS_Declarations_Good"& _ "sAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.supplementary_unitColumn) = value End Set End Property _ Public Property declarationdata_id() As Integer Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.declarationdata_idColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte declarationdata_id in Tabelle tblOregonNCTS_Declarations_Good"& _ "sAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.declarationdata_idColumn) = value End Set End Property _ Public Property line_no() As Integer Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.line_noColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte line_no in Tabelle tblOregonNCTS_Declarations_GoodsAttribute "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.line_noColumn) = value End Set End Property _ Public Function IscommodityNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.commodityColumn) End Function _ Public Sub SetcommodityNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.commodityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgtip_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.gtip_codeColumn) End Function _ Public Sub Setgtip_codeNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.gtip_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgtip_languageNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.gtip_languageColumn) End Function _ Public Sub Setgtip_languageNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.gtip_languageColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issender_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_nameColumn) End Function _ Public Sub Setsender_nameNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issender_addressNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_addressColumn) End Function _ Public Sub Setsender_addressNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_addressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issender_city_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_city_nameColumn) End Function _ Public Sub Setsender_city_nameNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_city_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issender_country_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_country_idColumn) End Function _ Public Sub Setsender_country_idNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issender_postcodeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_postcodeColumn) End Function _ Public Sub Setsender_postcodeNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_postcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issender_eori_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_eori_codeColumn) End Function _ Public Sub Setsender_eori_codeNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.sender_eori_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_nameColumn) End Function _ Public Sub Setconsignee_nameNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_addressNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_addressColumn) End Function _ Public Sub Setconsignee_addressNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_addressColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_city_nameNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_city_nameColumn) End Function _ Public Sub Setconsignee_city_nameNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_city_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_country_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_country_idColumn) End Function _ Public Sub Setconsignee_country_idNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_postcodeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_postcodeColumn) End Function _ Public Sub Setconsignee_postcodeNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_postcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isconsignee_eori_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_eori_codeColumn) End Function _ Public Sub Setconsignee_eori_codeNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.consignee_eori_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isinvoice_amountNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.invoice_amountColumn) End Function _ Public Sub Setinvoice_amountNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.invoice_amountColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isinvoice_currNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.invoice_currColumn) End Function _ Public Sub Setinvoice_currNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.invoice_currColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscpc_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.cpc_codeColumn) End Function _ Public Sub Setcpc_codeNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.cpc_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isadditional_cpc_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.additional_cpc_codeColumn) End Function _ Public Sub Setadditional_cpc_codeNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.additional_cpc_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscontainer_noNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.container_noColumn) End Function _ Public Sub Setcontainer_noNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.container_noColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispreferential_country_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.preferential_country_idColumn) End Function _ Public Sub Setpreferential_country_idNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.preferential_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iscus_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.cus_codeColumn) End Function _ Public Sub Setcus_codeNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.cus_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isnature_of_transactionNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.nature_of_transactionColumn) End Function _ Public Sub Setnature_of_transactionNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.nature_of_transactionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isadditional_commodity_codesNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.additional_commodity_codesColumn) End Function _ Public Sub Setadditional_commodity_codesNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.additional_commodity_codesColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isorigin_country_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.origin_country_idColumn) End Function _ Public Sub Setorigin_country_idNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.origin_country_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispreference_requestNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.preference_requestColumn) End Function _ Public Sub Setpreference_requestNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.preference_requestColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isquota_descNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.quota_descColumn) End Function _ Public Sub Setquota_descNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.quota_descColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvaluation_methodNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.valuation_methodColumn) End Function _ Public Sub Setvaluation_methodNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.valuation_methodColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvaluation_adjustmentNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.valuation_adjustmentColumn) End Function _ Public Sub Setvaluation_adjustmentNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.valuation_adjustmentColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isthird_quantity_typeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.third_quantity_typeColumn) End Function _ Public Sub Setthird_quantity_typeNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.third_quantity_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isthird_quantityNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.third_quantityColumn) End Function _ Public Sub Setthird_quantityNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.third_quantityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issupplementary_unitNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.supplementary_unitColumn) End Function _ Public Sub Setsupplementary_unitNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.supplementary_unitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdeclarationdata_idNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.declarationdata_idColumn) End Function _ Public Sub Setdeclarationdata_idNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.declarationdata_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isline_noNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.line_noColumn) End Function _ Public Sub Setline_noNull() Me(Me.tabletblOregonNCTS_Declarations_GoodsAttribute.line_noColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOregonNCTS_Declarations_PacksAttributeRow Inherits Global.System.Data.DataRow Private tabletblOregonNCTS_Declarations_PacksAttribute As tblOregonNCTS_Declarations_PacksAttributeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOregonNCTS_Declarations_PacksAttribute = CType(Me.Table,tblOregonNCTS_Declarations_PacksAttributeDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.IdColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.IdColumn) = value End Set End Property _ Public Property goods_attribute_id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.goods_attribute_idColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.goods_attribute_idColumn) = value End Set End Property _ Public Property goods_attribute_Posid() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.goods_attribute_PosidColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.goods_attribute_PosidColumn) = value End Set End Property _ Public Property pack_count() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.pack_countColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.pack_countColumn) = value End Set End Property _ Public Property pack_type() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.pack_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pack_type in Tabelle tblOregonNCTS_Declarations_PacksAttribut"& _ "e ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.pack_typeColumn) = value End Set End Property _ Public Property notes() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.notesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte notes in Tabelle tblOregonNCTS_Declarations_PacksAttribute is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.notesColumn) = value End Set End Property _ Public Function Ispack_typeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_PacksAttribute.pack_typeColumn) End Function _ Public Sub Setpack_typeNull() Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.pack_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnotesNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_PacksAttribute.notesColumn) End Function _ Public Sub SetnotesNull() Me(Me.tabletblOregonNCTS_Declarations_PacksAttribute.notesColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOregonNCTS_Declarations_PartiesAttributeRow Inherits Global.System.Data.DataRow Private tabletblOregonNCTS_Declarations_PartiesAttribute As tblOregonNCTS_Declarations_PartiesAttributeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOregonNCTS_Declarations_PartiesAttribute = CType(Me.Table,tblOregonNCTS_Declarations_PartiesAttributeDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.IdColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.IdColumn) = value End Set End Property _ Public Property declarationdata_id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.declarationdata_idColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.declarationdata_idColumn) = value End Set End Property _ Public Property party_role() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.party_roleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte party_role in Tabelle tblOregonNCTS_Declarations_PartiesAttri"& _ "bute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.party_roleColumn) = value End Set End Property _ Public Property party_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.party_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte party_code in Tabelle tblOregonNCTS_Declarations_PartiesAttri"& _ "bute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.party_codeColumn) = value End Set End Property _ Public Property eori_code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.eori_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte eori_code in Tabelle tblOregonNCTS_Declarations_PartiesAttrib"& _ "ute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.eori_codeColumn) = value End Set End Property _ Public Function Isparty_roleNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.party_roleColumn) End Function _ Public Sub Setparty_roleNull() Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.party_roleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isparty_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.party_codeColumn) End Function _ Public Sub Setparty_codeNull() Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.party_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Iseori_codeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.eori_codeColumn) End Function _ Public Sub Seteori_codeNull() Me(Me.tabletblOregonNCTS_Declarations_PartiesAttribute.eori_codeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow Inherits Global.System.Data.DataRow Private tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute As tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute = CType(Me.Table,tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.IdColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.IdColumn) = value End Set End Property _ Public Property goods_attribute_id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.goods_attribute_idColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.goods_attribute_idColumn) = value End Set End Property _ Public Property doc_type() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.doc_typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte doc_type in Tabelle tblOregonNCTS_Declarations_ProducedDocume"& _ "ntsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.doc_typeColumn) = value End Set End Property _ Public Property doc_no() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.doc_noColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte doc_no in Tabelle tblOregonNCTS_Declarations_ProducedDocument"& _ "sAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.doc_noColumn) = value End Set End Property _ Public Property pre_post() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.pre_postColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pre_post in Tabelle tblOregonNCTS_Declarations_ProducedDocume"& _ "ntsAttribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.pre_postColumn) = value End Set End Property _ Public Function Isdoc_typeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.doc_typeColumn) End Function _ Public Sub Setdoc_typeNull() Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.doc_typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdoc_noNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.doc_noColumn) End Function _ Public Sub Setdoc_noNull() Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.doc_noColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispre_postNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.pre_postColumn) End Function _ Public Sub Setpre_postNull() Me(Me.tabletblOregonNCTS_Declarations_ProducedDocumentsAttribute.pre_postColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOregonNCTS_Declarations_TraderAdditionsAttributeRow Inherits Global.System.Data.DataRow Private tabletblOregonNCTS_Declarations_TraderAdditionsAttribute As tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute = CType(Me.Table,tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.IdColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.IdColumn) = value End Set End Property _ Public Property declarationdata_id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.declarationdata_idColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.declarationdata_idColumn) = value End Set End Property _ Public Property code() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte code in Tabelle tblOregonNCTS_Declarations_TraderAdditionsAtt"& _ "ribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.codeColumn) = value End Set End Property _ Public Property amount() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.amountColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.amountColumn) = value End Set End Property _ Public Property curr() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.currColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte curr in Tabelle tblOregonNCTS_Declarations_TraderAdditionsAtt"& _ "ribute ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.currColumn) = value End Set End Property _ Public Property rate_code() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.rate_codeColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.rate_codeColumn) = value End Set End Property _ Public Function IscodeNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.codeColumn) End Function _ Public Sub SetcodeNull() Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscurrNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.currColumn) End Function _ Public Sub SetcurrNull() Me(Me.tabletblOregonNCTS_Declarations_TraderAdditionsAttribute.currColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOregonNCTS_ReferenceTemplateRow Inherits Global.System.Data.DataRow Private tabletblOregonNCTS_ReferenceTemplate As tblOregonNCTS_ReferenceTemplateDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOregonNCTS_ReferenceTemplate = CType(Me.Table,tblOregonNCTS_ReferenceTemplateDataTable) End Sub _ Public Property Id() As Integer Get Return CType(Me(Me.tabletblOregonNCTS_ReferenceTemplate.IdColumn),Integer) End Get Set Me(Me.tabletblOregonNCTS_ReferenceTemplate.IdColumn) = value End Set End Property _ Public Property country() As String Get Try Return CType(Me(Me.tabletblOregonNCTS_ReferenceTemplate.countryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte country in Tabelle tblOregonNCTS_ReferenceTemplate ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblOregonNCTS_ReferenceTemplate.countryColumn) = value End Set End Property _ Public Property declaration() As String Get Return CType(Me(Me.tabletblOregonNCTS_ReferenceTemplate.declarationColumn),String) End Get Set Me(Me.tabletblOregonNCTS_ReferenceTemplate.declarationColumn) = value End Set End Property _ Public Property reference() As String Get Return CType(Me(Me.tabletblOregonNCTS_ReferenceTemplate.referenceColumn),String) End Get Set Me(Me.tabletblOregonNCTS_ReferenceTemplate.referenceColumn) = value End Set End Property _ Public Property descr() As String Get Return CType(Me(Me.tabletblOregonNCTS_ReferenceTemplate.descrColumn),String) End Get Set Me(Me.tabletblOregonNCTS_ReferenceTemplate.descrColumn) = value End Set End Property _ Public Property mandant() As String Get Return CType(Me(Me.tabletblOregonNCTS_ReferenceTemplate.mandantColumn),String) End Get Set Me(Me.tabletblOregonNCTS_ReferenceTemplate.mandantColumn) = value End Set End Property _ Public Property niederlassung() As String Get Return CType(Me(Me.tabletblOregonNCTS_ReferenceTemplate.niederlassungColumn),String) End Get Set Me(Me.tabletblOregonNCTS_ReferenceTemplate.niederlassungColumn) = value End Set End Property _ Public Property standard() As Boolean Get Return CType(Me(Me.tabletblOregonNCTS_ReferenceTemplate.standardColumn),Boolean) End Get Set Me(Me.tabletblOregonNCTS_ReferenceTemplate.standardColumn) = value End Set End Property _ Public Property visible() As Boolean Get Return CType(Me(Me.tabletblOregonNCTS_ReferenceTemplate.visibleColumn),Boolean) End Get Set Me(Me.tabletblOregonNCTS_ReferenceTemplate.visibleColumn) = value End Set End Property _ Public Property kdNr() As Integer Get Try Return CType(Me(Me.tabletblOregonNCTS_ReferenceTemplate.kdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte kdNr in Tabelle tblOregonNCTS_ReferenceTemplate ist DBNull.", e) End Try End Get Set Me(Me.tabletblOregonNCTS_ReferenceTemplate.kdNrColumn) = value End Set End Property _ Public Function IscountryNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_ReferenceTemplate.countryColumn) End Function _ Public Sub SetcountryNull() Me(Me.tabletblOregonNCTS_ReferenceTemplate.countryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IskdNrNull() As Boolean Return Me.IsNull(Me.tabletblOregonNCTS_ReferenceTemplate.kdNrColumn) End Function _ Public Sub SetkdNrNull() Me(Me.tabletblOregonNCTS_ReferenceTemplate.kdNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblOriginalATRRow Inherits Global.System.Data.DataRow Private tabletblOriginalATR As tblOriginalATRDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblOriginalATR = CType(Me.Table,tblOriginalATRDataTable) End Sub _ Public Property atr_id() As Integer Get Return CType(Me(Me.tabletblOriginalATR.atr_idColumn),Integer) End Get Set Me(Me.tabletblOriginalATR.atr_idColumn) = value End Set End Property _ Public Property atr_documentNr() As String Get Return CType(Me(Me.tabletblOriginalATR.atr_documentNrColumn),String) End Get Set Me(Me.tabletblOriginalATR.atr_documentNrColumn) = value End Set End Property _ Public Property atr_erfassungsdatum() As Date Get Return CType(Me(Me.tabletblOriginalATR.atr_erfassungsdatumColumn),Date) End Get Set Me(Me.tabletblOriginalATR.atr_erfassungsdatumColumn) = value End Set End Property _ Public Property atr_Sachbearbeiter() As String Get Return CType(Me(Me.tabletblOriginalATR.atr_SachbearbeiterColumn),String) End Get Set Me(Me.tabletblOriginalATR.atr_SachbearbeiterColumn) = value End Set End Property _ Public Property atr_mitId() As Integer Get Return CType(Me(Me.tabletblOriginalATR.atr_mitIdColumn),Integer) End Get Set Me(Me.tabletblOriginalATR.atr_mitIdColumn) = value End Set End Property _ Public Property atr_absender() As String Get Try Return CType(Me(Me.tabletblOriginalATR.atr_absenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_absender in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_absenderColumn) = value End Set End Property _ Public Property atr_absenderKdNr() As Integer Get Return CType(Me(Me.tabletblOriginalATR.atr_absenderKdNrColumn),Integer) End Get Set Me(Me.tabletblOriginalATR.atr_absenderKdNrColumn) = value End Set End Property _ Public Property atr_empfaenger() As String Get Try Return CType(Me(Me.tabletblOriginalATR.atr_empfaengerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_empfaenger in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_empfaengerColumn) = value End Set End Property _ Public Property atr_empfaengerKdNr() As Integer Get Return CType(Me(Me.tabletblOriginalATR.atr_empfaengerKdNrColumn),Integer) End Get Set Me(Me.tabletblOriginalATR.atr_empfaengerKdNrColumn) = value End Set End Property _ Public Property atr_austellungsdatum() As Date Get Try Return CType(Me(Me.tabletblOriginalATR.atr_austellungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_austellungsdatum in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_austellungsdatumColumn) = value End Set End Property _ Public Property atr_AvisoId() As Integer Get Return CType(Me(Me.tabletblOriginalATR.atr_AvisoIdColumn),Integer) End Get Set Me(Me.tabletblOriginalATR.atr_AvisoIdColumn) = value End Set End Property _ Public Property atr_SendungsId() As Integer Get Return CType(Me(Me.tabletblOriginalATR.atr_SendungsIdColumn),Integer) End Get Set Me(Me.tabletblOriginalATR.atr_SendungsIdColumn) = value End Set End Property _ Public Property atr_LKW() As String Get Try Return CType(Me(Me.tabletblOriginalATR.atr_LKWColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_LKW in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_LKWColumn) = value End Set End Property _ Public Property atr_dsId() As Integer Get Try Return CType(Me(Me.tabletblOriginalATR.atr_dsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_dsId in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_dsIdColumn) = value End Set End Property _ Public Property atr_DHL_ReferenzNr() As String Get Try Return CType(Me(Me.tabletblOriginalATR.atr_DHL_ReferenzNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_DHL_ReferenzNr in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_DHL_ReferenzNrColumn) = value End Set End Property _ Public Property atr_location() As String Get Try Return CType(Me(Me.tabletblOriginalATR.atr_locationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_location in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_locationColumn) = value End Set End Property _ Public Property atr_info() As String Get Try Return CType(Me(Me.tabletblOriginalATR.atr_infoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_info in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_infoColumn) = value End Set End Property _ Public Property atr_erhalten_Art() As String Get Try Return CType(Me(Me.tabletblOriginalATR.atr_erhalten_ArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_erhalten_Art in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_erhalten_ArtColumn) = value End Set End Property _ Public Property atr_erhalenDatum() As Date Get Try Return CType(Me(Me.tabletblOriginalATR.atr_erhalenDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_erhalenDatum in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_erhalenDatumColumn) = value End Set End Property _ Public Property atr_FilialenNr() As Integer Get Return CType(Me(Me.tabletblOriginalATR.atr_FilialenNrColumn),Integer) End Get Set Me(Me.tabletblOriginalATR.atr_FilialenNrColumn) = value End Set End Property _ Public Property atr_AbfertigungsNr() As Integer Get Return CType(Me(Me.tabletblOriginalATR.atr_AbfertigungsNrColumn),Integer) End Get Set Me(Me.tabletblOriginalATR.atr_AbfertigungsNrColumn) = value End Set End Property _ Public Property atr_anhID() As Integer Get Try Return CType(Me(Me.tabletblOriginalATR.atr_anhIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte atr_anhID in Tabelle tblOriginalATR ist DBNull.", e) End Try End Get Set Me(Me.tabletblOriginalATR.atr_anhIDColumn) = value End Set End Property _ Public Function Isatr_absenderNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_absenderColumn) End Function _ Public Sub Setatr_absenderNull() Me(Me.tabletblOriginalATR.atr_absenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isatr_empfaengerNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_empfaengerColumn) End Function _ Public Sub Setatr_empfaengerNull() Me(Me.tabletblOriginalATR.atr_empfaengerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isatr_austellungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_austellungsdatumColumn) End Function _ Public Sub Setatr_austellungsdatumNull() Me(Me.tabletblOriginalATR.atr_austellungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isatr_LKWNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_LKWColumn) End Function _ Public Sub Setatr_LKWNull() Me(Me.tabletblOriginalATR.atr_LKWColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isatr_dsIdNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_dsIdColumn) End Function _ Public Sub Setatr_dsIdNull() Me(Me.tabletblOriginalATR.atr_dsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isatr_DHL_ReferenzNrNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_DHL_ReferenzNrColumn) End Function _ Public Sub Setatr_DHL_ReferenzNrNull() Me(Me.tabletblOriginalATR.atr_DHL_ReferenzNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isatr_locationNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_locationColumn) End Function _ Public Sub Setatr_locationNull() Me(Me.tabletblOriginalATR.atr_locationColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isatr_infoNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_infoColumn) End Function _ Public Sub Setatr_infoNull() Me(Me.tabletblOriginalATR.atr_infoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isatr_erhalten_ArtNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_erhalten_ArtColumn) End Function _ Public Sub Setatr_erhalten_ArtNull() Me(Me.tabletblOriginalATR.atr_erhalten_ArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isatr_erhalenDatumNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_erhalenDatumColumn) End Function _ Public Sub Setatr_erhalenDatumNull() Me(Me.tabletblOriginalATR.atr_erhalenDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isatr_anhIDNull() As Boolean Return Me.IsNull(Me.tabletblOriginalATR.atr_anhIDColumn) End Function _ Public Sub Setatr_anhIDNull() Me(Me.tabletblOriginalATR.atr_anhIDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPartnersystem_ParamterRow Inherits Global.System.Data.DataRow Private tabletblPartnersystem_Paramter As tblPartnersystem_ParamterDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPartnersystem_Paramter = CType(Me.Table,tblPartnersystem_ParamterDataTable) End Sub _ Public Property Param_name() As String Get Return CType(Me(Me.tabletblPartnersystem_Paramter.Param_nameColumn),String) End Get Set Me(Me.tabletblPartnersystem_Paramter.Param_nameColumn) = value End Set End Property _ Public Property Param_value() As String Get Return CType(Me(Me.tabletblPartnersystem_Paramter.Param_valueColumn),String) End Get Set Me(Me.tabletblPartnersystem_Paramter.Param_valueColumn) = value End Set End Property _ Public Property Param_system() As String Get Return CType(Me(Me.tabletblPartnersystem_Paramter.Param_systemColumn),String) End Get Set Me(Me.tabletblPartnersystem_Paramter.Param_systemColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPfadRow Inherits Global.System.Data.DataRow Private tabletblPfad As tblPfadDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPfad = CType(Me.Table,tblPfadDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tabletblPfad.IDColumn),Integer) End Get Set Me(Me.tabletblPfad.IDColumn) = value End Set End Property _ Public Property Verzeichnispfad() As String Get Return CType(Me(Me.tabletblPfad.VerzeichnispfadColumn),String) End Get Set Me(Me.tabletblPfad.VerzeichnispfadColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblPfad.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblPfad ist DBNull.", e) End Try End Get Set Me(Me.tabletblPfad.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblPfad.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblPfad.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPLOSE_DetailsRow Inherits Global.System.Data.DataRow Private tabletblPLOSE_Details As tblPLOSE_DetailsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPLOSE_Details = CType(Me.Table,tblPLOSE_DetailsDataTable) End Sub _ Public Property plose_Id() As Integer Get Return CType(Me(Me.tabletblPLOSE_Details.plose_IdColumn),Integer) End Get Set Me(Me.tabletblPLOSE_Details.plose_IdColumn) = value End Set End Property _ Public Property plose_plInvId() As Integer Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_plInvIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_plInvId in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_plInvIdColumn) = value End Set End Property _ Public Property plose_RechnungsDatum() As Date Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_RechnungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_RechnungsDatum in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_RechnungsDatumColumn) = value End Set End Property _ Public Property plose_RechnungsNr() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_RechnungsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_RechnungsNr in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_RechnungsNrColumn) = value End Set End Property _ Public Property plose_SupplierRechnungsDatum() As Date Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_SupplierRechnungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_SupplierRechnungsDatum in Tabelle tblPLOSE_Details ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_SupplierRechnungsDatumColumn) = value End Set End Property _ Public Property plose_SupplierRechnungsNr() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_SupplierRechnungsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_SupplierRechnungsNr in Tabelle tblPLOSE_Details ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_SupplierRechnungsNrColumn) = value End Set End Property _ Public Property plose_Lieferant() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_LieferantColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Lieferant in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_LieferantColumn) = value End Set End Property _ Public Property plose_LieferantCode() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_LieferantCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_LieferantCode in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_LieferantCodeColumn) = value End Set End Property _ Public Property plose_RechnungsJahr() As Integer Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_RechnungsJahrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_RechnungsJahr in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_RechnungsJahrColumn) = value End Set End Property _ Public Property plose_Dateiname() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_DateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Dateiname in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_DateinameColumn) = value End Set End Property _ Public Property plose_Einlesedatum() As Date Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_EinlesedatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Einlesedatum in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_EinlesedatumColumn) = value End Set End Property _ Public Property plose_Datensatztyp() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_DatensatztypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Datensatztyp in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_DatensatztypColumn) = value End Set End Property _ Public Property plose_KodexMautTankstelle() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_KodexMautTankstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_KodexMautTankstelle in Tabelle tblPLOSE_Details ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_KodexMautTankstelleColumn) = value End Set End Property _ Public Property plose_BeschreibungMautTankstelle() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_BeschreibungMautTankstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_BeschreibungMautTankstelle in Tabelle tblPLOSE_Details "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_BeschreibungMautTankstelleColumn) = value End Set End Property _ Public Property plose_KodexEinfahrt() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_KodexEinfahrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_KodexEinfahrt in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_KodexEinfahrtColumn) = value End Set End Property _ Public Property plose_BeschreibungEinfahrt() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_BeschreibungEinfahrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_BeschreibungEinfahrt in Tabelle tblPLOSE_Details ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_BeschreibungEinfahrtColumn) = value End Set End Property _ Public Property plose_KodexAusfahrt() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_KodexAusfahrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_KodexAusfahrt in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_KodexAusfahrtColumn) = value End Set End Property _ Public Property plose_BeschreibungAusfahrt() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_BeschreibungAusfahrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_BeschreibungAusfahrt in Tabelle tblPLOSE_Details ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_BeschreibungAusfahrtColumn) = value End Set End Property _ Public Property plose_Kartenkodex() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_KartenkodexColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Kartenkodex in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_KartenkodexColumn) = value End Set End Property _ Public Property plose_Kontonummer() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_KontonummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Kontonummer in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_KontonummerColumn) = value End Set End Property _ Public Property plose_NummerKarteGeraet() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_NummerKarteGeraetColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_NummerKarteGeraet in Tabelle tblPLOSE_Details ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_NummerKarteGeraetColumn) = value End Set End Property _ Public Property plose_Kennzeichen() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Kennzeichen in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_KennzeichenColumn) = value End Set End Property _ Public Property plose_InterneNrFahrzeug() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_InterneNrFahrzeugColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_InterneNrFahrzeug in Tabelle tblPLOSE_Details ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_InterneNrFahrzeugColumn) = value End Set End Property _ Public Property plose_POLSEKundennummer() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_POLSEKundennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_POLSEKundennummer in Tabelle tblPLOSE_Details ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_POLSEKundennummerColumn) = value End Set End Property _ Public Property plose_Firmenname() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_FirmennameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Firmenname in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_FirmennameColumn) = value End Set End Property _ Public Property plose_DatumTransaktion() As Date Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_DatumTransaktionColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_DatumTransaktion in Tabelle tblPLOSE_Details ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_DatumTransaktionColumn) = value End Set End Property _ Public Property plose_Produktbeschreibung() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_ProduktbeschreibungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Produktbeschreibung in Tabelle tblPLOSE_Details ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_ProduktbeschreibungColumn) = value End Set End Property _ Public Property plose_Menge() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_MengeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Menge in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_MengeColumn) = value End Set End Property _ Public Property plose_Preis() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Preis in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_PreisColumn) = value End Set End Property _ Public Property Einheitsrabatt() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.EinheitsrabattColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einheitsrabatt in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.EinheitsrabattColumn) = value End Set End Property _ Public Property plose_NettobetragTransaktion() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_NettobetragTransaktionColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_NettobetragTransaktion in Tabelle tblPLOSE_Details ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_NettobetragTransaktionColumn) = value End Set End Property _ Public Property plose_MWSTBetrag() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_MWSTBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_MWSTBetrag in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_MWSTBetragColumn) = value End Set End Property _ Public Property plose_BruttobetragTransaktion() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_BruttobetragTransaktionColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_BruttobetragTransaktion in Tabelle tblPLOSE_Details ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_BruttobetragTransaktionColumn) = value End Set End Property _ Public Property plose_NettobetragWaehrungAbbuchung() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_NettobetragWaehrungAbbuchungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_NettobetragWaehrungAbbuchung in Tabelle tblPLOSE_Detail"& _ "s ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_NettobetragWaehrungAbbuchungColumn) = value End Set End Property _ Public Property plose_MWSTBetragWaehrungAbbuchung() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_MWSTBetragWaehrungAbbuchung in Tabelle tblPLOSE_Details"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchungColumn) = value End Set End Property _ Public Property plose_BruttobetragWaehrungAbbuchung() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_BruttobetragWaehrungAbbuchungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_BruttobetragWaehrungAbbuchung in Tabelle tblPLOSE_Detai"& _ "ls ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_BruttobetragWaehrungAbbuchungColumn) = value End Set End Property _ Public Property plose_WaehrungLandDiesntleistung() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_WaehrungLandDiesntleistungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_WaehrungLandDiesntleistung in Tabelle tblPLOSE_Details "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_WaehrungLandDiesntleistungColumn) = value End Set End Property _ Public Property plose_WaehrungAbbuchung() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_WaehrungAbbuchungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_WaehrungAbbuchung in Tabelle tblPLOSE_Details ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_WaehrungAbbuchungColumn) = value End Set End Property _ Public Property plose_DokumentNrQuittungUhrzeit() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_DokumentNrQuittungUhrzeitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_DokumentNrQuittungUhrzeit in Tabelle tblPLOSE_Details i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_DokumentNrQuittungUhrzeitColumn) = value End Set End Property _ Public Property plose_ArtTransaktion() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_ArtTransaktionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_ArtTransaktion in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_ArtTransaktionColumn) = value End Set End Property _ Public Property plose_Fahrzeugklasse() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_FahrzeugklasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Fahrzeugklasse in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_FahrzeugklasseColumn) = value End Set End Property _ Public Property plose_KlassenidentifikationEURO() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_KlassenidentifikationEUROColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_KlassenidentifikationEURO in Tabelle tblPLOSE_Details i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_KlassenidentifikationEUROColumn) = value End Set End Property _ Public Property plose_ProduktbeschreibungShort() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_ProduktbeschreibungShortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_ProduktbeschreibungShort in Tabelle tblPLOSE_Details is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_ProduktbeschreibungShortColumn) = value End Set End Property _ Public Property plose_TransaktionUhrzeit() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_TransaktionUhrzeitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_TransaktionUhrzeit in Tabelle tblPLOSE_Details ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_TransaktionUhrzeitColumn) = value End Set End Property _ Public Property plose_Geraetetyp() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_GeraetetypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_Geraetetyp in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_GeraetetypColumn) = value End Set End Property _ Public Property plose_ProduktCode() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_ProduktCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_ProduktCode in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_ProduktCodeColumn) = value End Set End Property _ Public Property plose_ReferenzenBuchungMaut() As String Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_ReferenzenBuchungMautColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_ReferenzenBuchungMaut in Tabelle tblPLOSE_Details ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_ReferenzenBuchungMautColumn) = value End Set End Property _ Public Property plose_Fakturiert() As Boolean Get Return CType(Me(Me.tabletblPLOSE_Details.plose_FakturiertColumn),Boolean) End Get Set Me(Me.tabletblPLOSE_Details.plose_FakturiertColumn) = value End Set End Property _ Public Property plose_FakturiertDatum() As Date Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_FakturiertDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_FakturiertDatum in Tabelle tblPLOSE_Details ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_FakturiertDatumColumn) = value End Set End Property _ Public Property plose_Archiv() As Boolean Get Return CType(Me(Me.tabletblPLOSE_Details.plose_ArchivColumn),Boolean) End Get Set Me(Me.tabletblPLOSE_Details.plose_ArchivColumn) = value End Set End Property _ Public Property plose_ArchiviertDatum() As Date Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_ArchiviertDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_ArchiviertDatum in Tabelle tblPLOSE_Details ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_ArchiviertDatumColumn) = value End Set End Property _ Public Property plose_tstmp() As Date Get Try Return CType(Me(Me.tabletblPLOSE_Details.plose_tstmpColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plose_tstmp in Tabelle tblPLOSE_Details ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Details.plose_tstmpColumn) = value End Set End Property _ Public Function Isplose_plInvIdNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_plInvIdColumn) End Function _ Public Sub Setplose_plInvIdNull() Me(Me.tabletblPLOSE_Details.plose_plInvIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_RechnungsDatumNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_RechnungsDatumColumn) End Function _ Public Sub Setplose_RechnungsDatumNull() Me(Me.tabletblPLOSE_Details.plose_RechnungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_RechnungsNrNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_RechnungsNrColumn) End Function _ Public Sub Setplose_RechnungsNrNull() Me(Me.tabletblPLOSE_Details.plose_RechnungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_SupplierRechnungsDatumNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_SupplierRechnungsDatumColumn) End Function _ Public Sub Setplose_SupplierRechnungsDatumNull() Me(Me.tabletblPLOSE_Details.plose_SupplierRechnungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_SupplierRechnungsNrNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_SupplierRechnungsNrColumn) End Function _ Public Sub Setplose_SupplierRechnungsNrNull() Me(Me.tabletblPLOSE_Details.plose_SupplierRechnungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_LieferantNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_LieferantColumn) End Function _ Public Sub Setplose_LieferantNull() Me(Me.tabletblPLOSE_Details.plose_LieferantColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_LieferantCodeNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_LieferantCodeColumn) End Function _ Public Sub Setplose_LieferantCodeNull() Me(Me.tabletblPLOSE_Details.plose_LieferantCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_RechnungsJahrNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_RechnungsJahrColumn) End Function _ Public Sub Setplose_RechnungsJahrNull() Me(Me.tabletblPLOSE_Details.plose_RechnungsJahrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_DateinameNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_DateinameColumn) End Function _ Public Sub Setplose_DateinameNull() Me(Me.tabletblPLOSE_Details.plose_DateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_EinlesedatumNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_EinlesedatumColumn) End Function _ Public Sub Setplose_EinlesedatumNull() Me(Me.tabletblPLOSE_Details.plose_EinlesedatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_DatensatztypNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_DatensatztypColumn) End Function _ Public Sub Setplose_DatensatztypNull() Me(Me.tabletblPLOSE_Details.plose_DatensatztypColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_KodexMautTankstelleNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_KodexMautTankstelleColumn) End Function _ Public Sub Setplose_KodexMautTankstelleNull() Me(Me.tabletblPLOSE_Details.plose_KodexMautTankstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_BeschreibungMautTankstelleNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_BeschreibungMautTankstelleColumn) End Function _ Public Sub Setplose_BeschreibungMautTankstelleNull() Me(Me.tabletblPLOSE_Details.plose_BeschreibungMautTankstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_KodexEinfahrtNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_KodexEinfahrtColumn) End Function _ Public Sub Setplose_KodexEinfahrtNull() Me(Me.tabletblPLOSE_Details.plose_KodexEinfahrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_BeschreibungEinfahrtNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_BeschreibungEinfahrtColumn) End Function _ Public Sub Setplose_BeschreibungEinfahrtNull() Me(Me.tabletblPLOSE_Details.plose_BeschreibungEinfahrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_KodexAusfahrtNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_KodexAusfahrtColumn) End Function _ Public Sub Setplose_KodexAusfahrtNull() Me(Me.tabletblPLOSE_Details.plose_KodexAusfahrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_BeschreibungAusfahrtNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_BeschreibungAusfahrtColumn) End Function _ Public Sub Setplose_BeschreibungAusfahrtNull() Me(Me.tabletblPLOSE_Details.plose_BeschreibungAusfahrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_KartenkodexNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_KartenkodexColumn) End Function _ Public Sub Setplose_KartenkodexNull() Me(Me.tabletblPLOSE_Details.plose_KartenkodexColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_KontonummerNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_KontonummerColumn) End Function _ Public Sub Setplose_KontonummerNull() Me(Me.tabletblPLOSE_Details.plose_KontonummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_NummerKarteGeraetNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_NummerKarteGeraetColumn) End Function _ Public Sub Setplose_NummerKarteGeraetNull() Me(Me.tabletblPLOSE_Details.plose_NummerKarteGeraetColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_KennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_KennzeichenColumn) End Function _ Public Sub Setplose_KennzeichenNull() Me(Me.tabletblPLOSE_Details.plose_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_InterneNrFahrzeugNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_InterneNrFahrzeugColumn) End Function _ Public Sub Setplose_InterneNrFahrzeugNull() Me(Me.tabletblPLOSE_Details.plose_InterneNrFahrzeugColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_POLSEKundennummerNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_POLSEKundennummerColumn) End Function _ Public Sub Setplose_POLSEKundennummerNull() Me(Me.tabletblPLOSE_Details.plose_POLSEKundennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_FirmennameNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_FirmennameColumn) End Function _ Public Sub Setplose_FirmennameNull() Me(Me.tabletblPLOSE_Details.plose_FirmennameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_DatumTransaktionNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_DatumTransaktionColumn) End Function _ Public Sub Setplose_DatumTransaktionNull() Me(Me.tabletblPLOSE_Details.plose_DatumTransaktionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_ProduktbeschreibungNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_ProduktbeschreibungColumn) End Function _ Public Sub Setplose_ProduktbeschreibungNull() Me(Me.tabletblPLOSE_Details.plose_ProduktbeschreibungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_MengeNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_MengeColumn) End Function _ Public Sub Setplose_MengeNull() Me(Me.tabletblPLOSE_Details.plose_MengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_PreisNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_PreisColumn) End Function _ Public Sub Setplose_PreisNull() Me(Me.tabletblPLOSE_Details.plose_PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinheitsrabattNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.EinheitsrabattColumn) End Function _ Public Sub SetEinheitsrabattNull() Me(Me.tabletblPLOSE_Details.EinheitsrabattColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_NettobetragTransaktionNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_NettobetragTransaktionColumn) End Function _ Public Sub Setplose_NettobetragTransaktionNull() Me(Me.tabletblPLOSE_Details.plose_NettobetragTransaktionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_MWSTBetragNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_MWSTBetragColumn) End Function _ Public Sub Setplose_MWSTBetragNull() Me(Me.tabletblPLOSE_Details.plose_MWSTBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_BruttobetragTransaktionNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_BruttobetragTransaktionColumn) End Function _ Public Sub Setplose_BruttobetragTransaktionNull() Me(Me.tabletblPLOSE_Details.plose_BruttobetragTransaktionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_NettobetragWaehrungAbbuchungNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_NettobetragWaehrungAbbuchungColumn) End Function _ Public Sub Setplose_NettobetragWaehrungAbbuchungNull() Me(Me.tabletblPLOSE_Details.plose_NettobetragWaehrungAbbuchungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_MWSTBetragWaehrungAbbuchungNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchungColumn) End Function _ Public Sub Setplose_MWSTBetragWaehrungAbbuchungNull() Me(Me.tabletblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_BruttobetragWaehrungAbbuchungNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_BruttobetragWaehrungAbbuchungColumn) End Function _ Public Sub Setplose_BruttobetragWaehrungAbbuchungNull() Me(Me.tabletblPLOSE_Details.plose_BruttobetragWaehrungAbbuchungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_WaehrungLandDiesntleistungNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_WaehrungLandDiesntleistungColumn) End Function _ Public Sub Setplose_WaehrungLandDiesntleistungNull() Me(Me.tabletblPLOSE_Details.plose_WaehrungLandDiesntleistungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_WaehrungAbbuchungNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_WaehrungAbbuchungColumn) End Function _ Public Sub Setplose_WaehrungAbbuchungNull() Me(Me.tabletblPLOSE_Details.plose_WaehrungAbbuchungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_DokumentNrQuittungUhrzeitNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_DokumentNrQuittungUhrzeitColumn) End Function _ Public Sub Setplose_DokumentNrQuittungUhrzeitNull() Me(Me.tabletblPLOSE_Details.plose_DokumentNrQuittungUhrzeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_ArtTransaktionNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_ArtTransaktionColumn) End Function _ Public Sub Setplose_ArtTransaktionNull() Me(Me.tabletblPLOSE_Details.plose_ArtTransaktionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_FahrzeugklasseNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_FahrzeugklasseColumn) End Function _ Public Sub Setplose_FahrzeugklasseNull() Me(Me.tabletblPLOSE_Details.plose_FahrzeugklasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_KlassenidentifikationEURONull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_KlassenidentifikationEUROColumn) End Function _ Public Sub Setplose_KlassenidentifikationEURONull() Me(Me.tabletblPLOSE_Details.plose_KlassenidentifikationEUROColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_ProduktbeschreibungShortNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_ProduktbeschreibungShortColumn) End Function _ Public Sub Setplose_ProduktbeschreibungShortNull() Me(Me.tabletblPLOSE_Details.plose_ProduktbeschreibungShortColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_TransaktionUhrzeitNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_TransaktionUhrzeitColumn) End Function _ Public Sub Setplose_TransaktionUhrzeitNull() Me(Me.tabletblPLOSE_Details.plose_TransaktionUhrzeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_GeraetetypNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_GeraetetypColumn) End Function _ Public Sub Setplose_GeraetetypNull() Me(Me.tabletblPLOSE_Details.plose_GeraetetypColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_ProduktCodeNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_ProduktCodeColumn) End Function _ Public Sub Setplose_ProduktCodeNull() Me(Me.tabletblPLOSE_Details.plose_ProduktCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_ReferenzenBuchungMautNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_ReferenzenBuchungMautColumn) End Function _ Public Sub Setplose_ReferenzenBuchungMautNull() Me(Me.tabletblPLOSE_Details.plose_ReferenzenBuchungMautColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_FakturiertDatumNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_FakturiertDatumColumn) End Function _ Public Sub Setplose_FakturiertDatumNull() Me(Me.tabletblPLOSE_Details.plose_FakturiertDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_ArchiviertDatumNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_ArchiviertDatumColumn) End Function _ Public Sub Setplose_ArchiviertDatumNull() Me(Me.tabletblPLOSE_Details.plose_ArchiviertDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplose_tstmpNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Details.plose_tstmpColumn) End Function _ Public Sub Setplose_tstmpNull() Me(Me.tabletblPLOSE_Details.plose_tstmpColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPLOSE_Inv_DataRow Inherits Global.System.Data.DataRow Private tabletblPLOSE_Inv_Data As tblPLOSE_Inv_DataDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPLOSE_Inv_Data = CType(Me.Table,tblPLOSE_Inv_DataDataTable) End Sub _ Public Property plInv_Id() As Integer Get Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_IdColumn),Integer) End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_IdColumn) = value End Set End Property _ Public Property plInv_SupplierRechnungsDatum() As Date Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_SupplierRechnungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_SupplierRechnungsDatum in Tabelle tblPLOSE_Inv_Data ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_SupplierRechnungsDatumColumn) = value End Set End Property _ Public Property plInv_SupplierRechnungsNr() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_SupplierRechnungsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_SupplierRechnungsNr in Tabelle tblPLOSE_Inv_Data ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_SupplierRechnungsNrColumn) = value End Set End Property _ Public Property plInv_SupplierCountry() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_SupplierCountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_SupplierCountry in Tabelle tblPLOSE_Inv_Data ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_SupplierCountryColumn) = value End Set End Property _ Public Property plInv_Lieferant() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_LieferantColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_Lieferant in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_LieferantColumn) = value End Set End Property _ Public Property plInv_LieferantCode() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_LieferantCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_LieferantCode in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_LieferantCodeColumn) = value End Set End Property _ Public Property plInv_LieferantUID() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_LieferantUIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_LieferantUID in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_LieferantUIDColumn) = value End Set End Property _ Public Property plInv_RechnungsJahr() As Integer Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_RechnungsJahrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_RechnungsJahr in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_RechnungsJahrColumn) = value End Set End Property _ Public Property plInv_Dateiname() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_DateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_Dateiname in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_DateinameColumn) = value End Set End Property _ Public Property plInv_Einlesedatum() As Date Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_EinlesedatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_Einlesedatum in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_EinlesedatumColumn) = value End Set End Property _ Public Property plInv_Datensatztyp() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_DatensatztypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_Datensatztyp in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_DatensatztypColumn) = value End Set End Property _ Public Property plInv_PLOSEKundennummer() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_PLOSEKundennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_PLOSEKundennummer in Tabelle tblPLOSE_Inv_Data ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_PLOSEKundennummerColumn) = value End Set End Property _ Public Property plInv_Firmenname() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_FirmennameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_Firmenname in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_FirmennameColumn) = value End Set End Property _ Public Property plInv_Nettobetrag() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_NettobetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_Nettobetrag in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_NettobetragColumn) = value End Set End Property _ Public Property plInv_MWSTBetrag() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_MWSTBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_MWSTBetrag in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_MWSTBetragColumn) = value End Set End Property _ Public Property plInv_Bruttobetrag() As Decimal Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_BruttobetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_Bruttobetrag in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_BruttobetragColumn) = value End Set End Property _ Public Property plInv_Services() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_ServicesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_Services in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_ServicesColumn) = value End Set End Property _ Public Property plInv_tstmp() As Date Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_tstmpColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_tstmp in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_tstmpColumn) = value End Set End Property _ Public Property plInv_daId() As Integer Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_daIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_daId in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_daIdColumn) = value End Set End Property _ Public Property plInv_PdfFileName() As String Get Try Return CType(Me(Me.tabletblPLOSE_Inv_Data.plInv_PdfFileNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plInv_PdfFileName in Tabelle tblPLOSE_Inv_Data ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Inv_Data.plInv_PdfFileNameColumn) = value End Set End Property _ Public Function IsplInv_SupplierRechnungsDatumNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_SupplierRechnungsDatumColumn) End Function _ Public Sub SetplInv_SupplierRechnungsDatumNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_SupplierRechnungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_SupplierRechnungsNrNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_SupplierRechnungsNrColumn) End Function _ Public Sub SetplInv_SupplierRechnungsNrNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_SupplierRechnungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_SupplierCountryNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_SupplierCountryColumn) End Function _ Public Sub SetplInv_SupplierCountryNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_SupplierCountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_LieferantNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_LieferantColumn) End Function _ Public Sub SetplInv_LieferantNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_LieferantColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_LieferantCodeNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_LieferantCodeColumn) End Function _ Public Sub SetplInv_LieferantCodeNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_LieferantCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_LieferantUIDNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_LieferantUIDColumn) End Function _ Public Sub SetplInv_LieferantUIDNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_LieferantUIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_RechnungsJahrNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_RechnungsJahrColumn) End Function _ Public Sub SetplInv_RechnungsJahrNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_RechnungsJahrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_DateinameNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_DateinameColumn) End Function _ Public Sub SetplInv_DateinameNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_DateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_EinlesedatumNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_EinlesedatumColumn) End Function _ Public Sub SetplInv_EinlesedatumNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_EinlesedatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_DatensatztypNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_DatensatztypColumn) End Function _ Public Sub SetplInv_DatensatztypNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_DatensatztypColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_PLOSEKundennummerNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_PLOSEKundennummerColumn) End Function _ Public Sub SetplInv_PLOSEKundennummerNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_PLOSEKundennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_FirmennameNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_FirmennameColumn) End Function _ Public Sub SetplInv_FirmennameNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_FirmennameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_NettobetragNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_NettobetragColumn) End Function _ Public Sub SetplInv_NettobetragNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_NettobetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_MWSTBetragNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_MWSTBetragColumn) End Function _ Public Sub SetplInv_MWSTBetragNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_MWSTBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_BruttobetragNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_BruttobetragColumn) End Function _ Public Sub SetplInv_BruttobetragNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_BruttobetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_ServicesNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_ServicesColumn) End Function _ Public Sub SetplInv_ServicesNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_ServicesColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_tstmpNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_tstmpColumn) End Function _ Public Sub SetplInv_tstmpNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_tstmpColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_daIdNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_daIdColumn) End Function _ Public Sub SetplInv_daIdNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_daIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsplInv_PdfFileNameNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Inv_Data.plInv_PdfFileNameColumn) End Function _ Public Sub SetplInv_PdfFileNameNull() Me(Me.tabletblPLOSE_Inv_Data.plInv_PdfFileNameColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPLOSE_LieferantRow Inherits Global.System.Data.DataRow Private tabletblPLOSE_Lieferant As tblPLOSE_LieferantDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPLOSE_Lieferant = CType(Me.Table,tblPLOSE_LieferantDataTable) End Sub _ Public Property pl_LieferantCode() As Integer Get Return CType(Me(Me.tabletblPLOSE_Lieferant.pl_LieferantCodeColumn),Integer) End Get Set Me(Me.tabletblPLOSE_Lieferant.pl_LieferantCodeColumn) = value End Set End Property _ Public Property pl_Bezeichnung() As String Get Return CType(Me(Me.tabletblPLOSE_Lieferant.pl_BezeichnungColumn),String) End Get Set Me(Me.tabletblPLOSE_Lieferant.pl_BezeichnungColumn) = value End Set End Property _ Public Property pl_Land() As String Get Return CType(Me(Me.tabletblPLOSE_Lieferant.pl_LandColumn),String) End Get Set Me(Me.tabletblPLOSE_Lieferant.pl_LandColumn) = value End Set End Property _ Public Property pl_SupplierCode() As String Get Try Return CType(Me(Me.tabletblPLOSE_Lieferant.pl_SupplierCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pl_SupplierCode in Tabelle tblPLOSE_Lieferant ist DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Lieferant.pl_SupplierCodeColumn) = value End Set End Property _ Public Function Ispl_SupplierCodeNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Lieferant.pl_SupplierCodeColumn) End Function _ Public Sub Setpl_SupplierCodeNull() Me(Me.tabletblPLOSE_Lieferant.pl_SupplierCodeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPLOSE_ProduktbeschreibungRow Inherits Global.System.Data.DataRow Private tabletblPLOSE_Produktbeschreibung As tblPLOSE_ProduktbeschreibungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPLOSE_Produktbeschreibung = CType(Me.Table,tblPLOSE_ProduktbeschreibungDataTable) End Sub _ Public Property plp_ProductCode() As Integer Get Return CType(Me(Me.tabletblPLOSE_Produktbeschreibung.plp_ProductCodeColumn),Integer) End Get Set Me(Me.tabletblPLOSE_Produktbeschreibung.plp_ProductCodeColumn) = value End Set End Property _ Public Property plp_Land() As String Get Return CType(Me(Me.tabletblPLOSE_Produktbeschreibung.plp_LandColumn),String) End Get Set Me(Me.tabletblPLOSE_Produktbeschreibung.plp_LandColumn) = value End Set End Property _ Public Property plp_Firma() As String Get Return CType(Me(Me.tabletblPLOSE_Produktbeschreibung.plp_FirmaColumn),String) End Get Set Me(Me.tabletblPLOSE_Produktbeschreibung.plp_FirmaColumn) = value End Set End Property _ Public Property plp_Description_DE() As String Get Try Return CType(Me(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_DEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plp_Description_DE in Tabelle tblPLOSE_Produktbeschreibung is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_DEColumn) = value End Set End Property _ Public Property plp_Description_EN() As String Get Try Return CType(Me(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_ENColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plp_Description_EN in Tabelle tblPLOSE_Produktbeschreibung is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_ENColumn) = value End Set End Property _ Public Property plp_Description_IT() As String Get Try Return CType(Me(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_ITColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plp_Description_IT in Tabelle tblPLOSE_Produktbeschreibung is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_ITColumn) = value End Set End Property _ Public Property plp_LeistungsNr() As Integer Get Try Return CType(Me(Me.tabletblPLOSE_Produktbeschreibung.plp_LeistungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plp_LeistungsNr in Tabelle tblPLOSE_Produktbeschreibung ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Produktbeschreibung.plp_LeistungsNrColumn) = value End Set End Property _ Public Property plp_Kategorie() As String Get Try Return CType(Me(Me.tabletblPLOSE_Produktbeschreibung.plp_KategorieColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plp_Kategorie in Tabelle tblPLOSE_Produktbeschreibung ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Produktbeschreibung.plp_KategorieColumn) = value End Set End Property _ Public Property plp_einarbeiten() As Boolean Get Try Return CType(Me(Me.tabletblPLOSE_Produktbeschreibung.plp_einarbeitenColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte plp_einarbeiten in Tabelle tblPLOSE_Produktbeschreibung ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblPLOSE_Produktbeschreibung.plp_einarbeitenColumn) = value End Set End Property _ Public Function Isplp_Description_DENull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_DEColumn) End Function _ Public Sub Setplp_Description_DENull() Me(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_DEColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplp_Description_ENNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_ENColumn) End Function _ Public Sub Setplp_Description_ENNull() Me(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_ENColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplp_Description_ITNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_ITColumn) End Function _ Public Sub Setplp_Description_ITNull() Me(Me.tabletblPLOSE_Produktbeschreibung.plp_Description_ITColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplp_LeistungsNrNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Produktbeschreibung.plp_LeistungsNrColumn) End Function _ Public Sub Setplp_LeistungsNrNull() Me(Me.tabletblPLOSE_Produktbeschreibung.plp_LeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplp_KategorieNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Produktbeschreibung.plp_KategorieColumn) End Function _ Public Sub Setplp_KategorieNull() Me(Me.tabletblPLOSE_Produktbeschreibung.plp_KategorieColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isplp_einarbeitenNull() As Boolean Return Me.IsNull(Me.tabletblPLOSE_Produktbeschreibung.plp_einarbeitenColumn) End Function _ Public Sub Setplp_einarbeitenNull() Me(Me.tabletblPLOSE_Produktbeschreibung.plp_einarbeitenColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPosNrRow Inherits Global.System.Data.DataRow Private tabletblPosNr As tblPosNrDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPosNr = CType(Me.Table,tblPosNrDataTable) End Sub _ Public Property FilialeNr() As Integer Get Return CType(Me(Me.tabletblPosNr.FilialeNrColumn),Integer) End Get Set Me(Me.tabletblPosNr.FilialeNrColumn) = value End Set End Property _ Public Property Jahr() As Integer Get Return CType(Me(Me.tabletblPosNr.JahrColumn),Integer) End Get Set Me(Me.tabletblPosNr.JahrColumn) = value End Set End Property _ Public Property wert() As Integer Get Return CType(Me(Me.tabletblPosNr.wertColumn),Integer) End Get Set Me(Me.tabletblPosNr.wertColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPostversandRow Inherits Global.System.Data.DataRow Private tabletblPostversand As tblPostversandDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPostversand = CType(Me.Table,tblPostversandDataTable) End Sub _ Public Property post_id() As Integer Get Return CType(Me(Me.tabletblPostversand.post_idColumn),Integer) End Get Set Me(Me.tabletblPostversand.post_idColumn) = value End Set End Property _ Public Property post_AvisoId() As Integer Get Try Return CType(Me(Me.tabletblPostversand.post_AvisoIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_AvisoId in Tabelle tblPostversand ist DBNull.", e) End Try End Get Set Me(Me.tabletblPostversand.post_AvisoIdColumn) = value End Set End Property _ Public Property post_SendungsId() As Integer Get Try Return CType(Me(Me.tabletblPostversand.post_SendungsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_SendungsId in Tabelle tblPostversand ist DBNull.", e) End Try End Get Set Me(Me.tabletblPostversand.post_SendungsIdColumn) = value End Set End Property _ Public Property post_FilialenNr() As Integer Get Try Return CType(Me(Me.tabletblPostversand.post_FilialenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_FilialenNr in Tabelle tblPostversand ist DBNull.", e) End Try End Get Set Me(Me.tabletblPostversand.post_FilialenNrColumn) = value End Set End Property _ Public Property post_AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tabletblPostversand.post_AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_AbfertigungsNr in Tabelle tblPostversand ist DBNull.", e) End Try End Get Set Me(Me.tabletblPostversand.post_AbfertigungsNrColumn) = value End Set End Property _ Public Property post_art() As String Get Return CType(Me(Me.tabletblPostversand.post_artColumn),String) End Get Set Me(Me.tabletblPostversand.post_artColumn) = value End Set End Property _ Public Property post_Empfaenger_KdNr() As Integer Get Return CType(Me(Me.tabletblPostversand.post_Empfaenger_KdNrColumn),Integer) End Get Set Me(Me.tabletblPostversand.post_Empfaenger_KdNrColumn) = value End Set End Property _ Public Property post_Empfaenger_Name1() As String Get Return CType(Me(Me.tabletblPostversand.post_Empfaenger_Name1Column),String) End Get Set Me(Me.tabletblPostversand.post_Empfaenger_Name1Column) = value End Set End Property _ Public Property post_Empfaenger_Name2() As String Get Try Return CType(Me(Me.tabletblPostversand.post_Empfaenger_Name2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_Empfaenger_Name2 in Tabelle tblPostversand ist DBNull.", e) End Try End Get Set Me(Me.tabletblPostversand.post_Empfaenger_Name2Column) = value End Set End Property _ Public Property post_Empfaenger_Adresse1() As String Get Return CType(Me(Me.tabletblPostversand.post_Empfaenger_Adresse1Column),String) End Get Set Me(Me.tabletblPostversand.post_Empfaenger_Adresse1Column) = value End Set End Property _ Public Property post_Empfaenger_Adresse2() As String Get Return CType(Me(Me.tabletblPostversand.post_Empfaenger_Adresse2Column),String) End Get Set Me(Me.tabletblPostversand.post_Empfaenger_Adresse2Column) = value End Set End Property _ Public Property post_Empfaenger_Adresse3() As String Get Return CType(Me(Me.tabletblPostversand.post_Empfaenger_Adresse3Column),String) End Get Set Me(Me.tabletblPostversand.post_Empfaenger_Adresse3Column) = value End Set End Property _ Public Property post_ReferenzPaketdienst() As String Get Try Return CType(Me(Me.tabletblPostversand.post_ReferenzPaketdienstColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_ReferenzPaketdienst in Tabelle tblPostversand ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblPostversand.post_ReferenzPaketdienstColumn) = value End Set End Property _ Public Property post_ContainerLKWNr() As String Get Return CType(Me(Me.tabletblPostversand.post_ContainerLKWNrColumn),String) End Get Set Me(Me.tabletblPostversand.post_ContainerLKWNrColumn) = value End Set End Property _ Public Property post_Datum() As Date Get Return CType(Me(Me.tabletblPostversand.post_DatumColumn),Date) End Get Set Me(Me.tabletblPostversand.post_DatumColumn) = value End Set End Property _ Public Property post_Sachbearbeiter() As String Get Return CType(Me(Me.tabletblPostversand.post_SachbearbeiterColumn),String) End Get Set Me(Me.tabletblPostversand.post_SachbearbeiterColumn) = value End Set End Property _ Public Property post_SachbearbeiterId() As Integer Get Return CType(Me(Me.tabletblPostversand.post_SachbearbeiterIdColumn),Integer) End Get Set Me(Me.tabletblPostversand.post_SachbearbeiterIdColumn) = value End Set End Property _ Public Property post_FirmaInAuftragKdnr() As Integer Get Try Return CType(Me(Me.tabletblPostversand.post_FirmaInAuftragKdnrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_FirmaInAuftragKdnr in Tabelle tblPostversand ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblPostversand.post_FirmaInAuftragKdnrColumn) = value End Set End Property _ Public Property post_FirmaInAuftrag() As String Get Try Return CType(Me(Me.tabletblPostversand.post_FirmaInAuftragColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_FirmaInAuftrag in Tabelle tblPostversand ist DBNull.", e) End Try End Get Set Me(Me.tabletblPostversand.post_FirmaInAuftragColumn) = value End Set End Property _ Public Property post_Rolle() As String Get Try Return CType(Me(Me.tabletblPostversand.post_RolleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_Rolle in Tabelle tblPostversand ist DBNull.", e) End Try End Get Set Me(Me.tabletblPostversand.post_RolleColumn) = value End Set End Property _ Public Property post_KdAuftrNrAvisierer() As String Get Try Return CType(Me(Me.tabletblPostversand.post_KdAuftrNrAvisiererColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_KdAuftrNrAvisierer in Tabelle tblPostversand ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblPostversand.post_KdAuftrNrAvisiererColumn) = value End Set End Property _ Public Property post_RgEmpfaenger_KdNr() As Integer Get Try Return CType(Me(Me.tabletblPostversand.post_RgEmpfaenger_KdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_RgEmpfaenger_KdNr in Tabelle tblPostversand ist DBNull.", e) End Try End Get Set Me(Me.tabletblPostversand.post_RgEmpfaenger_KdNrColumn) = value End Set End Property _ Public Property post_RgEmpfaenger_Name() As String Get Try Return CType(Me(Me.tabletblPostversand.post_RgEmpfaenger_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte post_RgEmpfaenger_Name in Tabelle tblPostversand ist DBNull.", e) End Try End Get Set Me(Me.tabletblPostversand.post_RgEmpfaenger_NameColumn) = value End Set End Property _ Public Function Ispost_AvisoIdNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_AvisoIdColumn) End Function _ Public Sub Setpost_AvisoIdNull() Me(Me.tabletblPostversand.post_AvisoIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_SendungsIdNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_SendungsIdColumn) End Function _ Public Sub Setpost_SendungsIdNull() Me(Me.tabletblPostversand.post_SendungsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_FilialenNrNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_FilialenNrColumn) End Function _ Public Sub Setpost_FilialenNrNull() Me(Me.tabletblPostversand.post_FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_AbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_AbfertigungsNrColumn) End Function _ Public Sub Setpost_AbfertigungsNrNull() Me(Me.tabletblPostversand.post_AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_Empfaenger_Name2Null() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_Empfaenger_Name2Column) End Function _ Public Sub Setpost_Empfaenger_Name2Null() Me(Me.tabletblPostversand.post_Empfaenger_Name2Column) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_ReferenzPaketdienstNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_ReferenzPaketdienstColumn) End Function _ Public Sub Setpost_ReferenzPaketdienstNull() Me(Me.tabletblPostversand.post_ReferenzPaketdienstColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_FirmaInAuftragKdnrNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_FirmaInAuftragKdnrColumn) End Function _ Public Sub Setpost_FirmaInAuftragKdnrNull() Me(Me.tabletblPostversand.post_FirmaInAuftragKdnrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_FirmaInAuftragNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_FirmaInAuftragColumn) End Function _ Public Sub Setpost_FirmaInAuftragNull() Me(Me.tabletblPostversand.post_FirmaInAuftragColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_RolleNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_RolleColumn) End Function _ Public Sub Setpost_RolleNull() Me(Me.tabletblPostversand.post_RolleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_KdAuftrNrAvisiererNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_KdAuftrNrAvisiererColumn) End Function _ Public Sub Setpost_KdAuftrNrAvisiererNull() Me(Me.tabletblPostversand.post_KdAuftrNrAvisiererColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_RgEmpfaenger_KdNrNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_RgEmpfaenger_KdNrColumn) End Function _ Public Sub Setpost_RgEmpfaenger_KdNrNull() Me(Me.tabletblPostversand.post_RgEmpfaenger_KdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispost_RgEmpfaenger_NameNull() As Boolean Return Me.IsNull(Me.tabletblPostversand.post_RgEmpfaenger_NameColumn) End Function _ Public Sub Setpost_RgEmpfaenger_NameNull() Me(Me.tabletblPostversand.post_RgEmpfaenger_NameColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPreislistenRow Inherits Global.System.Data.DataRow Private tabletblPreislisten As tblPreislistenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPreislisten = CType(Me.Table,tblPreislistenDataTable) End Sub _ Public Property PreislistenNr() As Short Get Return CType(Me(Me.tabletblPreislisten.PreislistenNrColumn),Short) End Get Set Me(Me.tabletblPreislisten.PreislistenNrColumn) = value End Set End Property _ Public Property PreislistenBez() As String Get Return CType(Me(Me.tabletblPreislisten.PreislistenBezColumn),String) End Get Set Me(Me.tabletblPreislisten.PreislistenBezColumn) = value End Set End Property _ Public Property PreislistenLand() As String Get Try Return CType(Me(Me.tabletblPreislisten.PreislistenLandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PreislistenLand in Tabelle tblPreislisten ist DBNull.", e) End Try End Get Set Me(Me.tabletblPreislisten.PreislistenLandColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblPreislisten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblPreislisten ist DBNull.", e) End Try End Get Set Me(Me.tabletblPreislisten.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Preislisten_visibleSUB() As Boolean Get Return CType(Me(Me.tabletblPreislisten.Preislisten_visibleSUBColumn),Boolean) End Get Set Me(Me.tabletblPreislisten.Preislisten_visibleSUBColumn) = value End Set End Property _ Public Property Preislisten_visibleATILLA() As Boolean Get Return CType(Me(Me.tabletblPreislisten.Preislisten_visibleATILLAColumn),Boolean) End Get Set Me(Me.tabletblPreislisten.Preislisten_visibleATILLAColumn) = value End Set End Property _ Public Property Preislisten_visibleSBG() As Boolean Get Return CType(Me(Me.tabletblPreislisten.Preislisten_visibleSBGColumn),Boolean) End Get Set Me(Me.tabletblPreislisten.Preislisten_visibleSBGColumn) = value End Set End Property _ Public Property Preislisten_visibleWAI() As Boolean Get Return CType(Me(Me.tabletblPreislisten.Preislisten_visibleWAIColumn),Boolean) End Get Set Me(Me.tabletblPreislisten.Preislisten_visibleWAIColumn) = value End Set End Property _ Public Property Preislisten_visibleNKD() As Boolean Get Return CType(Me(Me.tabletblPreislisten.Preislisten_visibleNKDColumn),Boolean) End Get Set Me(Me.tabletblPreislisten.Preislisten_visibleNKDColumn) = value End Set End Property _ Public Property Preislisten_visibleIMEX() As Boolean Get Return CType(Me(Me.tabletblPreislisten.Preislisten_visibleIMEXColumn),Boolean) End Get Set Me(Me.tabletblPreislisten.Preislisten_visibleIMEXColumn) = value End Set End Property _ Public Property Preislisten_visibleFRONTOFFICE() As Boolean Get Return CType(Me(Me.tabletblPreislisten.Preislisten_visibleFRONTOFFICEColumn),Boolean) End Get Set Me(Me.tabletblPreislisten.Preislisten_visibleFRONTOFFICEColumn) = value End Set End Property _ Public Property Art() As String Get Return CType(Me(Me.tabletblPreislisten.ArtColumn),String) End Get Set Me(Me.tabletblPreislisten.ArtColumn) = value End Set End Property _ Public Property allowLGKasse() As Boolean Get Return CType(Me(Me.tabletblPreislisten.allowLGKasseColumn),Boolean) End Get Set Me(Me.tabletblPreislisten.allowLGKasseColumn) = value End Set End Property _ Public Function IsPreislistenLandNull() As Boolean Return Me.IsNull(Me.tabletblPreislisten.PreislistenLandColumn) End Function _ Public Sub SetPreislistenLandNull() Me(Me.tabletblPreislisten.PreislistenLandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblPreislisten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblPreislisten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblPreislistenpositionenRows() As tblPreislistenpositionenRow() If (Me.Table.ChildRelations("tblPreislistenpositionen${D78DE894-2B0C-43E6-B462-32459F9DF422}") Is Nothing) Then Return New tblPreislistenpositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblPreislistenpositionen${D78DE894-2B0C-43E6-B462-32459F9DF422}")),tblPreislistenpositionenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPreislistenpositionenRow Inherits Global.System.Data.DataRow Private tabletblPreislistenpositionen As tblPreislistenpositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPreislistenpositionen = CType(Me.Table,tblPreislistenpositionenDataTable) End Sub _ Public Property PreislistenNr() As Short Get Return CType(Me(Me.tabletblPreislistenpositionen.PreislistenNrColumn),Short) End Get Set Me(Me.tabletblPreislistenpositionen.PreislistenNrColumn) = value End Set End Property _ Public Property PreislistenPos() As Short Get Return CType(Me(Me.tabletblPreislistenpositionen.PreislistenPosColumn),Short) End Get Set Me(Me.tabletblPreislistenpositionen.PreislistenPosColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tabletblPreislistenpositionen.LeistungsNrColumn),Short) End Get Set Me(Me.tabletblPreislistenpositionen.LeistungsNrColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tabletblPreislistenpositionen.LeistungsBezColumn),String) End Get Set Me(Me.tabletblPreislistenpositionen.LeistungsBezColumn) = value End Set End Property _ Public Property Leistungsbeschreibung() As String Get Return CType(Me(Me.tabletblPreislistenpositionen.LeistungsbeschreibungColumn),String) End Get Set Me(Me.tabletblPreislistenpositionen.LeistungsbeschreibungColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tabletblPreislistenpositionen.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle tblPreislistenpositionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblPreislistenpositionen.PreisColumn) = value End Set End Property _ Public Property PreistabellenNr() As Short Get Try Return CType(Me(Me.tabletblPreislistenpositionen.PreistabellenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PreistabellenNr in Tabelle tblPreislistenpositionen ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblPreislistenpositionen.PreistabellenNrColumn) = value End Set End Property _ Public Property Abfertigungsart() As Short Get Try Return CType(Me(Me.tabletblPreislistenpositionen.AbfertigungsartColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsart in Tabelle tblPreislistenpositionen ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblPreislistenpositionen.AbfertigungsartColumn) = value End Set End Property _ Public Property Anzahlmultiplikator() As Short Get Return CType(Me(Me.tabletblPreislistenpositionen.AnzahlmultiplikatorColumn),Short) End Get Set Me(Me.tabletblPreislistenpositionen.AnzahlmultiplikatorColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblPreislistenpositionen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblPreislistenpositionen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblPreislistenpositionen.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Art() As String Get Return CType(Me(Me.tabletblPreislistenpositionen.ArtColumn),String) End Get Set Me(Me.tabletblPreislistenpositionen.ArtColumn) = value End Set End Property _ Public Property tblPreistabellenRow() As tblPreistabellenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblPreislistenpositionen${7909BA97-12D3-4CFF-A642-CB950EFCC006}")),tblPreistabellenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblPreislistenpositionen${7909BA97-12D3-4CFF-A642-CB950EFCC006}")) End Set End Property _ Public Property tblPreislistenRow() As tblPreislistenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblPreislistenpositionen${D78DE894-2B0C-43E6-B462-32459F9DF422}")),tblPreislistenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblPreislistenpositionen${D78DE894-2B0C-43E6-B462-32459F9DF422}")) End Set End Property _ Public Property LeistungenRow() As LeistungenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblPreislistenpositionen$LeistungentblPreislistenpositionen")),LeistungenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblPreislistenpositionen$LeistungentblPreislistenpositionen")) End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tabletblPreislistenpositionen.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tabletblPreislistenpositionen.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPreistabellenNrNull() As Boolean Return Me.IsNull(Me.tabletblPreislistenpositionen.PreistabellenNrColumn) End Function _ Public Sub SetPreistabellenNrNull() Me(Me.tabletblPreislistenpositionen.PreistabellenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsartNull() As Boolean Return Me.IsNull(Me.tabletblPreislistenpositionen.AbfertigungsartColumn) End Function _ Public Sub SetAbfertigungsartNull() Me(Me.tabletblPreislistenpositionen.AbfertigungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblPreislistenpositionen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblPreislistenpositionen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPreistabellenRow Inherits Global.System.Data.DataRow Private tabletblPreistabellen As tblPreistabellenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPreistabellen = CType(Me.Table,tblPreistabellenDataTable) End Sub _ Public Property PreistabellenNr() As Short Get Return CType(Me(Me.tabletblPreistabellen.PreistabellenNrColumn),Short) End Get Set Me(Me.tabletblPreistabellen.PreistabellenNrColumn) = value End Set End Property _ Public Property PreistabellenBez() As String Get Return CType(Me(Me.tabletblPreistabellen.PreistabellenBezColumn),String) End Get Set Me(Me.tabletblPreistabellen.PreistabellenBezColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblPreistabellen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblPreistabellen ist DBNull.", e) End Try End Get Set Me(Me.tabletblPreistabellen.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblPreistabellen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblPreistabellen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblPreislistenpositionenRows() As tblPreislistenpositionenRow() If (Me.Table.ChildRelations("tblPreislistenpositionen${7909BA97-12D3-4CFF-A642-CB950EFCC006}") Is Nothing) Then Return New tblPreislistenpositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblPreislistenpositionen${7909BA97-12D3-4CFF-A642-CB950EFCC006}")),tblPreislistenpositionenRow()) End If End Function _ Public Function GettblPreistabellenpositionenRows() As tblPreistabellenpositionenRow() If (Me.Table.ChildRelations("tblPreistabellenpositionen${0A7945E3-819D-45DD-A5AE-7188FF604603}") Is Nothing) Then Return New tblPreistabellenpositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblPreistabellenpositionen${0A7945E3-819D-45DD-A5AE-7188FF604603}")),tblPreistabellenpositionenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblPreistabellenpositionenRow Inherits Global.System.Data.DataRow Private tabletblPreistabellenpositionen As tblPreistabellenpositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblPreistabellenpositionen = CType(Me.Table,tblPreistabellenpositionenDataTable) End Sub _ Public Property PreistabellenNr() As Short Get Return CType(Me(Me.tabletblPreistabellenpositionen.PreistabellenNrColumn),Short) End Get Set Me(Me.tabletblPreistabellenpositionen.PreistabellenNrColumn) = value End Set End Property _ Public Property TW1() As Short Get Return CType(Me(Me.tabletblPreistabellenpositionen.TW1Column),Short) End Get Set Me(Me.tabletblPreistabellenpositionen.TW1Column) = value End Set End Property _ Public Property TW2() As Short Get Return CType(Me(Me.tabletblPreistabellenpositionen.TW2Column),Short) End Get Set Me(Me.tabletblPreistabellenpositionen.TW2Column) = value End Set End Property _ Public Property Preis() As Decimal Get Return CType(Me(Me.tabletblPreistabellenpositionen.PreisColumn),Decimal) End Get Set Me(Me.tabletblPreistabellenpositionen.PreisColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblPreistabellenpositionen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblPreistabellenpositionen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblPreistabellenpositionen.SSMA_TimeStampColumn) = value End Set End Property _ Public Property tblPreistabellenRow() As tblPreistabellenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblPreistabellenpositionen${0A7945E3-819D-45DD-A5AE-7188FF604603}")),tblPreistabellenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblPreistabellenpositionen${0A7945E3-819D-45DD-A5AE-7188FF604603}")) End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblPreistabellenpositionen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblPreistabellenpositionen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblQS_AbfertigungsartenRow Inherits Global.System.Data.DataRow Private tabletblQS_Abfertigungsarten As tblQS_AbfertigungsartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblQS_Abfertigungsarten = CType(Me.Table,tblQS_AbfertigungsartenDataTable) End Sub _ Public Property QS_Abfertigungsart_ID() As Integer Get Return CType(Me(Me.tabletblQS_Abfertigungsarten.QS_Abfertigungsart_IDColumn),Integer) End Get Set Me(Me.tabletblQS_Abfertigungsarten.QS_Abfertigungsart_IDColumn) = value End Set End Property _ Public Property QS_Abfertigungsart_Bezeichnung() As String Get Return CType(Me(Me.tabletblQS_Abfertigungsarten.QS_Abfertigungsart_BezeichnungColumn),String) End Get Set Me(Me.tabletblQS_Abfertigungsarten.QS_Abfertigungsart_BezeichnungColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblQS_Abfertigungsarten.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblQS_Abfertigungsarten ist DBNull.", e) End Try End Get Set Me(Me.tabletblQS_Abfertigungsarten.upsize_tsColumn) = value End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblQS_Abfertigungsarten.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblQS_Abfertigungsarten.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblQS_AuftragspositionenRows() As tblQS_AuftragspositionenRow() If (Me.Table.ChildRelations("tblQS_Auftragspositionen_FK00") Is Nothing) Then Return New tblQS_AuftragspositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblQS_Auftragspositionen_FK00")),tblQS_AuftragspositionenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblQS_AufträgeRow Inherits Global.System.Data.DataRow Private tabletblQS_Aufträge As tblQS_AufträgeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblQS_Aufträge = CType(Me.Table,tblQS_AufträgeDataTable) End Sub _ Public Property QS_Auftrags_ID() As Integer Get Return CType(Me(Me.tabletblQS_Aufträge.QS_Auftrags_IDColumn),Integer) End Get Set Me(Me.tabletblQS_Aufträge.QS_Auftrags_IDColumn) = value End Set End Property _ Public Property QS_Auftrags_Datum() As Date Get Return CType(Me(Me.tabletblQS_Aufträge.QS_Auftrags_DatumColumn),Date) End Get Set Me(Me.tabletblQS_Aufträge.QS_Auftrags_DatumColumn) = value End Set End Property _ Public Property QS_Sachbearbeiter_ID() As Integer Get Return CType(Me(Me.tabletblQS_Aufträge.QS_Sachbearbeiter_IDColumn),Integer) End Get Set Me(Me.tabletblQS_Aufträge.QS_Sachbearbeiter_IDColumn) = value End Set End Property _ Public Property QS_Frachtführer_ID() As Integer Get Return CType(Me(Me.tabletblQS_Aufträge.QS_Frachtführer_IDColumn),Integer) End Get Set Me(Me.tabletblQS_Aufträge.QS_Frachtführer_IDColumn) = value End Set End Property _ Public Property QS_Kennzeichen_LKW() As String Get Return CType(Me(Me.tabletblQS_Aufträge.QS_Kennzeichen_LKWColumn),String) End Get Set Me(Me.tabletblQS_Aufträge.QS_Kennzeichen_LKWColumn) = value End Set End Property _ Public Property QS_Sendungen_Gesamtanzahl() As Integer Get Return CType(Me(Me.tabletblQS_Aufträge.QS_Sendungen_GesamtanzahlColumn),Integer) End Get Set Me(Me.tabletblQS_Aufträge.QS_Sendungen_GesamtanzahlColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblQS_Aufträge.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblQS_Aufträge ist DBNull.", e) End Try End Get Set Me(Me.tabletblQS_Aufträge.upsize_tsColumn) = value End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblQS_Aufträge.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblQS_Aufträge.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblQS_AuftragspositionenRows() As tblQS_AuftragspositionenRow() If (Me.Table.ChildRelations("tblQS_Auftragspositionen_FK01") Is Nothing) Then Return New tblQS_AuftragspositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblQS_Auftragspositionen_FK01")),tblQS_AuftragspositionenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblQS_AuftragspositionenRow Inherits Global.System.Data.DataRow Private tabletblQS_Auftragspositionen As tblQS_AuftragspositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblQS_Auftragspositionen = CType(Me.Table,tblQS_AuftragspositionenDataTable) End Sub _ Public Property QS_Auftrags_ID() As Integer Get Return CType(Me(Me.tabletblQS_Auftragspositionen.QS_Auftrags_IDColumn),Integer) End Get Set Me(Me.tabletblQS_Auftragspositionen.QS_Auftrags_IDColumn) = value End Set End Property _ Public Property QS_Abfertigungsart_ID() As Integer Get Return CType(Me(Me.tabletblQS_Auftragspositionen.QS_Abfertigungsart_IDColumn),Integer) End Get Set Me(Me.tabletblQS_Auftragspositionen.QS_Abfertigungsart_IDColumn) = value End Set End Property _ Public Property QS_Abfertigungsart_Anzahl() As Integer Get Return CType(Me(Me.tabletblQS_Auftragspositionen.QS_Abfertigungsart_AnzahlColumn),Integer) End Get Set Me(Me.tabletblQS_Auftragspositionen.QS_Abfertigungsart_AnzahlColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblQS_Auftragspositionen.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblQS_Auftragspositionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblQS_Auftragspositionen.upsize_tsColumn) = value End Set End Property _ Public Property tblQS_AbfertigungsartenRow() As tblQS_AbfertigungsartenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblQS_Auftragspositionen_FK00")),tblQS_AbfertigungsartenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblQS_Auftragspositionen_FK00")) End Set End Property _ Public Property tblQS_AufträgeRow() As tblQS_AufträgeRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblQS_Auftragspositionen_FK01")),tblQS_AufträgeRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblQS_Auftragspositionen_FK01")) End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblQS_Auftragspositionen.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblQS_Auftragspositionen.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblQS_TeamsRow Inherits Global.System.Data.DataRow Private tabletblQS_Teams As tblQS_TeamsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblQS_Teams = CType(Me.Table,tblQS_TeamsDataTable) End Sub _ Public Property qstm_Id() As Integer Get Return CType(Me(Me.tabletblQS_Teams.qstm_IdColumn),Integer) End Get Set Me(Me.tabletblQS_Teams.qstm_IdColumn) = value End Set End Property _ Public Property qstm_bezeichnung() As String Get Return CType(Me(Me.tabletblQS_Teams.qstm_bezeichnungColumn),String) End Get Set Me(Me.tabletblQS_Teams.qstm_bezeichnungColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblQS_TeamsMARow Inherits Global.System.Data.DataRow Private tabletblQS_TeamsMA As tblQS_TeamsMADataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblQS_TeamsMA = CType(Me.Table,tblQS_TeamsMADataTable) End Sub _ Public Property qtma_Id() As Integer Get Return CType(Me(Me.tabletblQS_TeamsMA.qtma_IdColumn),Integer) End Get Set Me(Me.tabletblQS_TeamsMA.qtma_IdColumn) = value End Set End Property _ Public Property qtma_QstmId() As Integer Get Return CType(Me(Me.tabletblQS_TeamsMA.qtma_QstmIdColumn),Integer) End Get Set Me(Me.tabletblQS_TeamsMA.qtma_QstmIdColumn) = value End Set End Property _ Public Property qtma_MaId() As Integer Get Return CType(Me(Me.tabletblQS_TeamsMA.qtma_MaIdColumn),Integer) End Get Set Me(Me.tabletblQS_TeamsMA.qtma_MaIdColumn) = value End Set End Property _ Public Property qtma_name() As String Get Return CType(Me(Me.tabletblQS_TeamsMA.qtma_nameColumn),String) End Get Set Me(Me.tabletblQS_TeamsMA.qtma_nameColumn) = value End Set End Property _ Public Property qtma_funktion() As String Get Try Return CType(Me(Me.tabletblQS_TeamsMA.qtma_funktionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte qtma_funktion in Tabelle tblQS_TeamsMA ist DBNull.", e) End Try End Get Set Me(Me.tabletblQS_TeamsMA.qtma_funktionColumn) = value End Set End Property _ Public Function Isqtma_funktionNull() As Boolean Return Me.IsNull(Me.tabletblQS_TeamsMA.qtma_funktionColumn) End Function _ Public Sub Setqtma_funktionNull() Me(Me.tabletblQS_TeamsMA.qtma_funktionColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblRechnungsnotizenRow Inherits Global.System.Data.DataRow Private tabletblRechnungsnotizen As tblRechnungsnotizenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblRechnungsnotizen = CType(Me.Table,tblRechnungsnotizenDataTable) End Sub _ Public Property Notiz() As String Get Return CType(Me(Me.tabletblRechnungsnotizen.NotizColumn),String) End Get Set Me(Me.tabletblRechnungsnotizen.NotizColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblRechnungsnotizen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblRechnungsnotizen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRechnungsnotizen.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblRechnungsnotizen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblRechnungsnotizen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblRefRow Inherits Global.System.Data.DataRow Private tabletblRef As tblRefDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblRef = CType(Me.Table,tblRefDataTable) End Sub _ Public Property RefBenutzer() As String Get Return CType(Me(Me.tabletblRef.RefBenutzerColumn),String) End Get Set Me(Me.tabletblRef.RefBenutzerColumn) = value End Set End Property _ Public Property RefTabelle() As String Get Return CType(Me(Me.tabletblRef.RefTabelleColumn),String) End Get Set Me(Me.tabletblRef.RefTabelleColumn) = value End Set End Property _ Public Property RefFeld() As String Get Return CType(Me(Me.tabletblRef.RefFeldColumn),String) End Get Set Me(Me.tabletblRef.RefFeldColumn) = value End Set End Property _ Public Property RefIntegrität() As Boolean Get Try Return CType(Me(Me.tabletblRef.RefIntegritätColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefIntegrität in Tabelle tblRef ist DBNull.", e) End Try End Get Set Me(Me.tabletblRef.RefIntegritätColumn) = value End Set End Property _ Public Property RefAktualisierung() As Boolean Get Try Return CType(Me(Me.tabletblRef.RefAktualisierungColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefAktualisierung in Tabelle tblRef ist DBNull.", e) End Try End Get Set Me(Me.tabletblRef.RefAktualisierungColumn) = value End Set End Property _ Public Property RefLöschung() As Boolean Get Try Return CType(Me(Me.tabletblRef.RefLöschungColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefLöschung in Tabelle tblRef ist DBNull.", e) End Try End Get Set Me(Me.tabletblRef.RefLöschungColumn) = value End Set End Property _ Public Property RefAnzahl() As Integer Get Return CType(Me(Me.tabletblRef.RefAnzahlColumn),Integer) End Get Set Me(Me.tabletblRef.RefAnzahlColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblRef.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblRef ist DBNull.", e) End Try End Get Set Me(Me.tabletblRef.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsRefIntegritätNull() As Boolean Return Me.IsNull(Me.tabletblRef.RefIntegritätColumn) End Function _ Public Sub SetRefIntegritätNull() Me(Me.tabletblRef.RefIntegritätColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefAktualisierungNull() As Boolean Return Me.IsNull(Me.tabletblRef.RefAktualisierungColumn) End Function _ Public Sub SetRefAktualisierungNull() Me(Me.tabletblRef.RefAktualisierungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefLöschungNull() As Boolean Return Me.IsNull(Me.tabletblRef.RefLöschungColumn) End Function _ Public Sub SetRefLöschungNull() Me(Me.tabletblRef.RefLöschungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblRef.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblRef.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblRefBeziehungenRow Inherits Global.System.Data.DataRow Private tabletblRefBeziehungen As tblRefBeziehungenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblRefBeziehungen = CType(Me.Table,tblRefBeziehungenDataTable) End Sub _ Public Property RefTabelle() As String Get Return CType(Me(Me.tabletblRefBeziehungen.RefTabelleColumn),String) End Get Set Me(Me.tabletblRefBeziehungen.RefTabelleColumn) = value End Set End Property _ Public Property RefFeld() As String Get Return CType(Me(Me.tabletblRefBeziehungen.RefFeldColumn),String) End Get Set Me(Me.tabletblRefBeziehungen.RefFeldColumn) = value End Set End Property _ Public Property RefIntegrität() As Boolean Get Try Return CType(Me(Me.tabletblRefBeziehungen.RefIntegritätColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefIntegrität in Tabelle tblRefBeziehungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRefBeziehungen.RefIntegritätColumn) = value End Set End Property _ Public Property RefAktualisierung() As Boolean Get Try Return CType(Me(Me.tabletblRefBeziehungen.RefAktualisierungColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefAktualisierung in Tabelle tblRefBeziehungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRefBeziehungen.RefAktualisierungColumn) = value End Set End Property _ Public Property RefLöschung() As Boolean Get Try Return CType(Me(Me.tabletblRefBeziehungen.RefLöschungColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefLöschung in Tabelle tblRefBeziehungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRefBeziehungen.RefLöschungColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblRefBeziehungen.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblRefBeziehungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRefBeziehungen.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsRefIntegritätNull() As Boolean Return Me.IsNull(Me.tabletblRefBeziehungen.RefIntegritätColumn) End Function _ Public Sub SetRefIntegritätNull() Me(Me.tabletblRefBeziehungen.RefIntegritätColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefAktualisierungNull() As Boolean Return Me.IsNull(Me.tabletblRefBeziehungen.RefAktualisierungColumn) End Function _ Public Sub SetRefAktualisierungNull() Me(Me.tabletblRefBeziehungen.RefAktualisierungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefLöschungNull() As Boolean Return Me.IsNull(Me.tabletblRefBeziehungen.RefLöschungColumn) End Function _ Public Sub SetRefLöschungNull() Me(Me.tabletblRefBeziehungen.RefLöschungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblRefBeziehungen.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblRefBeziehungen.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblRKSV_KassenRow Inherits Global.System.Data.DataRow Private tabletblRKSV_Kassen As tblRKSV_KassenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblRKSV_Kassen = CType(Me.Table,tblRKSV_KassenDataTable) End Sub _ Public Property rksv_id() As Integer Get Return CType(Me(Me.tabletblRKSV_Kassen.rksv_idColumn),Integer) End Get Set Me(Me.tabletblRKSV_Kassen.rksv_idColumn) = value End Set End Property _ Public Property rksv_bez() As String Get Return CType(Me(Me.tabletblRKSV_Kassen.rksv_bezColumn),String) End Get Set Me(Me.tabletblRKSV_Kassen.rksv_bezColumn) = value End Set End Property _ Public Property rksv_CompanyGUID() As String Get Return CType(Me(Me.tabletblRKSV_Kassen.rksv_CompanyGUIDColumn),String) End Get Set Me(Me.tabletblRKSV_Kassen.rksv_CompanyGUIDColumn) = value End Set End Property _ Public Property rksv_firma() As String Get Return CType(Me(Me.tabletblRKSV_Kassen.rksv_firmaColumn),String) End Get Set Me(Me.tabletblRKSV_Kassen.rksv_firmaColumn) = value End Set End Property _ Public Property rksv_startdatum() As Date Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_startdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_startdatum in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_startdatumColumn) = value End Set End Property _ Public Property rksv_aktiv() As Boolean Get Return CType(Me(Me.tabletblRKSV_Kassen.rksv_aktivColumn),Boolean) End Get Set Me(Me.tabletblRKSV_Kassen.rksv_aktivColumn) = value End Set End Property _ Public Property rksvDE_aktiv() As Boolean Get Return CType(Me(Me.tabletblRKSV_Kassen.rksvDE_aktivColumn),Boolean) End Get Set Me(Me.tabletblRKSV_Kassen.rksvDE_aktivColumn) = value End Set End Property _ Public Property rksv_BelegIdZaehler() As Integer Get Return CType(Me(Me.tabletblRKSV_Kassen.rksv_BelegIdZaehlerColumn),Integer) End Get Set Me(Me.tabletblRKSV_Kassen.rksv_BelegIdZaehlerColumn) = value End Set End Property _ Public Property rksv_Umsatzzaehler() As Double Get Return CType(Me(Me.tabletblRKSV_Kassen.rksv_UmsatzzaehlerColumn),Double) End Get Set Me(Me.tabletblRKSV_Kassen.rksv_UmsatzzaehlerColumn) = value End Set End Property _ Public Property rksv_lastJWS() As String Get Return CType(Me(Me.tabletblRKSV_Kassen.rksv_lastJWSColumn),String) End Get Set Me(Me.tabletblRKSV_Kassen.rksv_lastJWSColumn) = value End Set End Property _ Public Property rksv_lastQR() As String Get Return CType(Me(Me.tabletblRKSV_Kassen.rksv_lastQRColumn),String) End Get Set Me(Me.tabletblRKSV_Kassen.rksv_lastQRColumn) = value End Set End Property _ Public Property rksv_lastBeleg() As Date Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_lastBelegColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_lastBeleg in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_lastBelegColumn) = value End Set End Property _ Public Property rksv_ITG_id() As Integer Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_ITG_idColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_ITG_id in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_ITG_idColumn) = value End Set End Property _ Public Property rksv_AesKey() As String Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_AesKeyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_AesKey in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_AesKeyColumn) = value End Set End Property _ Public Property rksv_KassaGuid() As String Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_KassaGuidColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_KassaGuid in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_KassaGuidColumn) = value End Set End Property _ Public Property rksv_ipAdresse() As String Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_ipAdresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_ipAdresse in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_ipAdresseColumn) = value End Set End Property _ Public Property rksv_DE_TSE_Serial() As String Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_DE_TSE_SerialColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_DE_TSE_Serial in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_DE_TSE_SerialColumn) = value End Set End Property _ Public Property rksv_DE_user() As String Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_DE_userColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_DE_user in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_DE_userColumn) = value End Set End Property _ Public Property rksv_DE_pwd() As String Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_DE_pwdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_DE_pwd in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_DE_pwdColumn) = value End Set End Property _ Public Property rksv_DE_apiToken() As String Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_DE_apiTokenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_DE_apiToken in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_DE_apiTokenColumn) = value End Set End Property _ Public Property rksv_DE_license() As String Get Try Return CType(Me(Me.tabletblRKSV_Kassen.rksv_DE_licenseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rksv_DE_license in Tabelle tblRKSV_Kassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_Kassen.rksv_DE_licenseColumn) = value End Set End Property _ Public Property rksv_StornoIncreaseBelegCnt() As Boolean Get Return CType(Me(Me.tabletblRKSV_Kassen.rksv_StornoIncreaseBelegCntColumn),Boolean) End Get Set Me(Me.tabletblRKSV_Kassen.rksv_StornoIncreaseBelegCntColumn) = value End Set End Property _ Public Function Isrksv_startdatumNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_startdatumColumn) End Function _ Public Sub Setrksv_startdatumNull() Me(Me.tabletblRKSV_Kassen.rksv_startdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_lastBelegNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_lastBelegColumn) End Function _ Public Sub Setrksv_lastBelegNull() Me(Me.tabletblRKSV_Kassen.rksv_lastBelegColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_ITG_idNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_ITG_idColumn) End Function _ Public Sub Setrksv_ITG_idNull() Me(Me.tabletblRKSV_Kassen.rksv_ITG_idColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_AesKeyNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_AesKeyColumn) End Function _ Public Sub Setrksv_AesKeyNull() Me(Me.tabletblRKSV_Kassen.rksv_AesKeyColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_KassaGuidNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_KassaGuidColumn) End Function _ Public Sub Setrksv_KassaGuidNull() Me(Me.tabletblRKSV_Kassen.rksv_KassaGuidColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_ipAdresseNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_ipAdresseColumn) End Function _ Public Sub Setrksv_ipAdresseNull() Me(Me.tabletblRKSV_Kassen.rksv_ipAdresseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_DE_TSE_SerialNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_DE_TSE_SerialColumn) End Function _ Public Sub Setrksv_DE_TSE_SerialNull() Me(Me.tabletblRKSV_Kassen.rksv_DE_TSE_SerialColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_DE_userNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_DE_userColumn) End Function _ Public Sub Setrksv_DE_userNull() Me(Me.tabletblRKSV_Kassen.rksv_DE_userColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_DE_pwdNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_DE_pwdColumn) End Function _ Public Sub Setrksv_DE_pwdNull() Me(Me.tabletblRKSV_Kassen.rksv_DE_pwdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_DE_apiTokenNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_DE_apiTokenColumn) End Function _ Public Sub Setrksv_DE_apiTokenNull() Me(Me.tabletblRKSV_Kassen.rksv_DE_apiTokenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrksv_DE_licenseNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_Kassen.rksv_DE_licenseColumn) End Function _ Public Sub Setrksv_DE_licenseNull() Me(Me.tabletblRKSV_Kassen.rksv_DE_licenseColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblRKSV_POSRows() As tblRKSV_POSRow() If (Me.Table.ChildRelations("FK_Kasse") Is Nothing) Then Return New tblRKSV_POSRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Kasse")),tblRKSV_POSRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblRKSV_POSRow Inherits Global.System.Data.DataRow Private tabletblRKSV_POS As tblRKSV_POSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblRKSV_POS = CType(Me.Table,tblRKSV_POSDataTable) End Sub _ Public Property pos_id() As Integer Get Return CType(Me(Me.tabletblRKSV_POS.pos_idColumn),Integer) End Get Set Me(Me.tabletblRKSV_POS.pos_idColumn) = value End Set End Property _ Public Property pos_aktiv() As Boolean Get Return CType(Me(Me.tabletblRKSV_POS.pos_aktivColumn),Boolean) End Get Set Me(Me.tabletblRKSV_POS.pos_aktivColumn) = value End Set End Property _ Public Property pos_kasse() As Integer Get Return CType(Me(Me.tabletblRKSV_POS.pos_kasseColumn),Integer) End Get Set Me(Me.tabletblRKSV_POS.pos_kasseColumn) = value End Set End Property _ Public Property pos_kassennr() As Integer Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_kassennrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_kassennr in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_kassennrColumn) = value End Set End Property _ Public Property pos_bezeichnung() As String Get Return CType(Me(Me.tabletblRKSV_POS.pos_bezeichnungColumn),String) End Get Set Me(Me.tabletblRKSV_POS.pos_bezeichnungColumn) = value End Set End Property _ Public Property pos_com() As String Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_comColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_com in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_comColumn) = value End Set End Property _ Public Property pos_baudrate() As Integer Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_baudrateColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_baudrate in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_baudrateColumn) = value End Set End Property _ Public Property pos_comspeed() As Integer Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_comspeedColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_comspeed in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_comspeedColumn) = value End Set End Property _ Public Property pos_comstop() As Integer Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_comstopColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_comstop in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_comstopColumn) = value End Set End Property _ Public Property pos_ip() As String Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_ipColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_ip in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_ipColumn) = value End Set End Property _ Public Property pos_port() As Integer Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_portColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_port in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_portColumn) = value End Set End Property _ Public Property pos_typ() As String Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_typColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_typ in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_typColumn) = value End Set End Property _ Public Property pos_lizenz() As String Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_lizenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_lizenz in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_lizenzColumn) = value End Set End Property _ Public Property pos_kassendruck() As Integer Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_kassendruckColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_kassendruck in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_kassendruckColumn) = value End Set End Property _ Public Property pos_demoausdruck() As Boolean Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_demoausdruckColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_demoausdruck in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_demoausdruckColumn) = value End Set End Property _ Public Property pos_demodummyausdruck() As Boolean Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_demodummyausdruckColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_demodummyausdruck in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_demodummyausdruckColumn) = value End Set End Property _ Public Property pos_pin() As Integer Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_pinColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_pin in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_pinColumn) = value End Set End Property _ Public Property pos_händerbeleg_drucken() As Boolean Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_händerbeleg_druckenColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_händerbeleg_drucken in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_händerbeleg_druckenColumn) = value End Set End Property _ Public Property pos_storno() As Integer Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_stornoColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_storno in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_stornoColumn) = value End Set End Property _ Public Property pos_wartezeit() As Integer Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_wartezeitColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_wartezeit in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_wartezeitColumn) = value End Set End Property _ Public Property pos_FIBU() As Integer Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_FIBUColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_FIBU in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_FIBUColumn) = value End Set End Property _ Public Property pos_XML() As Boolean Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_XMLColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_XML in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_XMLColumn) = value End Set End Property _ Public Property pos_Protokollpfad() As String Get Try Return CType(Me(Me.tabletblRKSV_POS.pos_ProtokollpfadColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pos_Protokollpfad in Tabelle tblRKSV_POS ist DBNull.", e) End Try End Get Set Me(Me.tabletblRKSV_POS.pos_ProtokollpfadColumn) = value End Set End Property _ Public Property tblRKSV_KassenRow() As tblRKSV_KassenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Kasse")),tblRKSV_KassenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_Kasse")) End Set End Property _ Public Function Ispos_kassennrNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_kassennrColumn) End Function _ Public Sub Setpos_kassennrNull() Me(Me.tabletblRKSV_POS.pos_kassennrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_comNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_comColumn) End Function _ Public Sub Setpos_comNull() Me(Me.tabletblRKSV_POS.pos_comColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_baudrateNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_baudrateColumn) End Function _ Public Sub Setpos_baudrateNull() Me(Me.tabletblRKSV_POS.pos_baudrateColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_comspeedNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_comspeedColumn) End Function _ Public Sub Setpos_comspeedNull() Me(Me.tabletblRKSV_POS.pos_comspeedColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_comstopNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_comstopColumn) End Function _ Public Sub Setpos_comstopNull() Me(Me.tabletblRKSV_POS.pos_comstopColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_ipNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_ipColumn) End Function _ Public Sub Setpos_ipNull() Me(Me.tabletblRKSV_POS.pos_ipColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_portNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_portColumn) End Function _ Public Sub Setpos_portNull() Me(Me.tabletblRKSV_POS.pos_portColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_typNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_typColumn) End Function _ Public Sub Setpos_typNull() Me(Me.tabletblRKSV_POS.pos_typColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_lizenzNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_lizenzColumn) End Function _ Public Sub Setpos_lizenzNull() Me(Me.tabletblRKSV_POS.pos_lizenzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_kassendruckNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_kassendruckColumn) End Function _ Public Sub Setpos_kassendruckNull() Me(Me.tabletblRKSV_POS.pos_kassendruckColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_demoausdruckNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_demoausdruckColumn) End Function _ Public Sub Setpos_demoausdruckNull() Me(Me.tabletblRKSV_POS.pos_demoausdruckColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_demodummyausdruckNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_demodummyausdruckColumn) End Function _ Public Sub Setpos_demodummyausdruckNull() Me(Me.tabletblRKSV_POS.pos_demodummyausdruckColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_pinNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_pinColumn) End Function _ Public Sub Setpos_pinNull() Me(Me.tabletblRKSV_POS.pos_pinColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_händerbeleg_druckenNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_händerbeleg_druckenColumn) End Function _ Public Sub Setpos_händerbeleg_druckenNull() Me(Me.tabletblRKSV_POS.pos_händerbeleg_druckenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_stornoNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_stornoColumn) End Function _ Public Sub Setpos_stornoNull() Me(Me.tabletblRKSV_POS.pos_stornoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_wartezeitNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_wartezeitColumn) End Function _ Public Sub Setpos_wartezeitNull() Me(Me.tabletblRKSV_POS.pos_wartezeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_FIBUNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_FIBUColumn) End Function _ Public Sub Setpos_FIBUNull() Me(Me.tabletblRKSV_POS.pos_FIBUColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_XMLNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_XMLColumn) End Function _ Public Sub Setpos_XMLNull() Me(Me.tabletblRKSV_POS.pos_XMLColumn) = Global.System.Convert.DBNull End Sub _ Public Function Ispos_ProtokollpfadNull() As Boolean Return Me.IsNull(Me.tabletblRKSV_POS.pos_ProtokollpfadColumn) End Function _ Public Sub Setpos_ProtokollpfadNull() Me(Me.tabletblRKSV_POS.pos_ProtokollpfadColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblRMCImportRow Inherits Global.System.Data.DataRow Private tabletblRMCImport As tblRMCImportDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblRMCImport = CType(Me.Table,tblRMCImportDataTable) End Sub _ Public Property rmc_id() As Integer Get Return CType(Me(Me.tabletblRMCImport.rmc_idColumn),Integer) End Get Set Me(Me.tabletblRMCImport.rmc_idColumn) = value End Set End Property _ Public Property rmc_kdNr() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_kdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_kdNr in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_kdNrColumn) = value End Set End Property _ Public Property rmc_kdName() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_kdNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_kdName in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_kdNameColumn) = value End Set End Property _ Public Property rmc_UID() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_UIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_UID in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_UIDColumn) = value End Set End Property _ Public Property rmc_landKZ() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_landKZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_landKZ in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_landKZColumn) = value End Set End Property _ Public Property rmc_landBezeichnung() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_landBezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_landBezeichnung in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_landBezeichnungColumn) = value End Set End Property _ Public Property rmc_reDatum() As Date Get Try Return CType(Me(Me.tabletblRMCImport.rmc_reDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_reDatum in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_reDatumColumn) = value End Set End Property _ Public Property rmc_reNr() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_reNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_reNr in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_reNrColumn) = value End Set End Property _ Public Property rmc_betragNetto() As Double Get Try Return CType(Me(Me.tabletblRMCImport.rmc_betragNettoColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_betragNetto in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_betragNettoColumn) = value End Set End Property _ Public Property rmc_betragBrutto() As Double Get Try Return CType(Me(Me.tabletblRMCImport.rmc_betragBruttoColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_betragBrutto in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_betragBruttoColumn) = value End Set End Property _ Public Property rmc_waehrung() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_waehrungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_waehrung in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_waehrungColumn) = value End Set End Property _ Public Property rmc_euroBrutto() As Double Get Try Return CType(Me(Me.tabletblRMCImport.rmc_euroBruttoColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_euroBrutto in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_euroBruttoColumn) = value End Set End Property _ Public Property rmc_file() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_fileColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_file in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_fileColumn) = value End Set End Property _ Public Property rmc_fileNr() As Integer Get Try Return CType(Me(Me.tabletblRMCImport.rmc_fileNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_fileNr in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_fileNrColumn) = value End Set End Property _ Public Property rmc_importDatum() As Date Get Try Return CType(Me(Me.tabletblRMCImport.rmc_importDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_importDatum in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_importDatumColumn) = value End Set End Property _ Public Property rmc_version() As Integer Get Try Return CType(Me(Me.tabletblRMCImport.rmc_versionColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_version in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_versionColumn) = value End Set End Property _ Public Property rmc_daId() As Integer Get Try Return CType(Me(Me.tabletblRMCImport.rmc_daIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_daId in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_daIdColumn) = value End Set End Property _ Public Property rmc_pdfFileName() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_pdfFileNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_pdfFileName in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_pdfFileNameColumn) = value End Set End Property _ Public Property rmc_archiv() As Boolean Get Return CType(Me(Me.tabletblRMCImport.rmc_archivColumn),Boolean) End Get Set Me(Me.tabletblRMCImport.rmc_archivColumn) = value End Set End Property _ Public Property rmc_archiviertDatum() As Date Get Try Return CType(Me(Me.tabletblRMCImport.rmc_archiviertDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_archiviertDatum in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_archiviertDatumColumn) = value End Set End Property _ Public Property rmc_fibuNr() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_fibuNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_fibuNr in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_fibuNrColumn) = value End Set End Property _ Public Property rmc_sammelReNr() As String Get Try Return CType(Me(Me.tabletblRMCImport.rmc_sammelReNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_sammelReNr in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_sammelReNrColumn) = value End Set End Property _ Public Property rmc_betragMWST() As Double Get Try Return CType(Me(Me.tabletblRMCImport.rmc_betragMWSTColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte rmc_betragMWST in Tabelle tblRMCImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblRMCImport.rmc_betragMWSTColumn) = value End Set End Property _ Public Function Isrmc_kdNrNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_kdNrColumn) End Function _ Public Sub Setrmc_kdNrNull() Me(Me.tabletblRMCImport.rmc_kdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_kdNameNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_kdNameColumn) End Function _ Public Sub Setrmc_kdNameNull() Me(Me.tabletblRMCImport.rmc_kdNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_UIDNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_UIDColumn) End Function _ Public Sub Setrmc_UIDNull() Me(Me.tabletblRMCImport.rmc_UIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_landKZNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_landKZColumn) End Function _ Public Sub Setrmc_landKZNull() Me(Me.tabletblRMCImport.rmc_landKZColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_landBezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_landBezeichnungColumn) End Function _ Public Sub Setrmc_landBezeichnungNull() Me(Me.tabletblRMCImport.rmc_landBezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_reDatumNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_reDatumColumn) End Function _ Public Sub Setrmc_reDatumNull() Me(Me.tabletblRMCImport.rmc_reDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_reNrNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_reNrColumn) End Function _ Public Sub Setrmc_reNrNull() Me(Me.tabletblRMCImport.rmc_reNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_betragNettoNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_betragNettoColumn) End Function _ Public Sub Setrmc_betragNettoNull() Me(Me.tabletblRMCImport.rmc_betragNettoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_betragBruttoNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_betragBruttoColumn) End Function _ Public Sub Setrmc_betragBruttoNull() Me(Me.tabletblRMCImport.rmc_betragBruttoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_waehrungNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_waehrungColumn) End Function _ Public Sub Setrmc_waehrungNull() Me(Me.tabletblRMCImport.rmc_waehrungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_euroBruttoNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_euroBruttoColumn) End Function _ Public Sub Setrmc_euroBruttoNull() Me(Me.tabletblRMCImport.rmc_euroBruttoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_fileNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_fileColumn) End Function _ Public Sub Setrmc_fileNull() Me(Me.tabletblRMCImport.rmc_fileColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_fileNrNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_fileNrColumn) End Function _ Public Sub Setrmc_fileNrNull() Me(Me.tabletblRMCImport.rmc_fileNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_importDatumNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_importDatumColumn) End Function _ Public Sub Setrmc_importDatumNull() Me(Me.tabletblRMCImport.rmc_importDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_versionNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_versionColumn) End Function _ Public Sub Setrmc_versionNull() Me(Me.tabletblRMCImport.rmc_versionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_daIdNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_daIdColumn) End Function _ Public Sub Setrmc_daIdNull() Me(Me.tabletblRMCImport.rmc_daIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_pdfFileNameNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_pdfFileNameColumn) End Function _ Public Sub Setrmc_pdfFileNameNull() Me(Me.tabletblRMCImport.rmc_pdfFileNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_archiviertDatumNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_archiviertDatumColumn) End Function _ Public Sub Setrmc_archiviertDatumNull() Me(Me.tabletblRMCImport.rmc_archiviertDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_fibuNrNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_fibuNrColumn) End Function _ Public Sub Setrmc_fibuNrNull() Me(Me.tabletblRMCImport.rmc_fibuNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_sammelReNrNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_sammelReNrColumn) End Function _ Public Sub Setrmc_sammelReNrNull() Me(Me.tabletblRMCImport.rmc_sammelReNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isrmc_betragMWSTNull() As Boolean Return Me.IsNull(Me.tabletblRMCImport.rmc_betragMWSTColumn) End Function _ Public Sub Setrmc_betragMWSTNull() Me(Me.tabletblRMCImport.rmc_betragMWSTColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblSMSRow Inherits Global.System.Data.DataRow Private tabletblSMS As tblSMSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblSMS = CType(Me.Table,tblSMSDataTable) End Sub _ Public Property sms_id() As Integer Get Return CType(Me(Me.tabletblSMS.sms_idColumn),Integer) End Get Set Me(Me.tabletblSMS.sms_idColumn) = value End Set End Property _ Public Property sms_Datum() As Date Get Return CType(Me(Me.tabletblSMS.sms_DatumColumn),Date) End Get Set Me(Me.tabletblSMS.sms_DatumColumn) = value End Set End Property _ Public Property sms_Firma() As String Get Return CType(Me(Me.tabletblSMS.sms_FirmaColumn),String) End Get Set Me(Me.tabletblSMS.sms_FirmaColumn) = value End Set End Property _ Public Property sms_Account() As String Get Return CType(Me(Me.tabletblSMS.sms_AccountColumn),String) End Get Set Me(Me.tabletblSMS.sms_AccountColumn) = value End Set End Property _ Public Property sms_Fahrername() As String Get Try Return CType(Me(Me.tabletblSMS.sms_FahrernameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_Fahrername in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_FahrernameColumn) = value End Set End Property _ Public Property sms_KundenNr() As Integer Get Try Return CType(Me(Me.tabletblSMS.sms_KundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_KundenNr in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_KundenNrColumn) = value End Set End Property _ Public Property sms_Kunde() As String Get Try Return CType(Me(Me.tabletblSMS.sms_KundeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_Kunde in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_KundeColumn) = value End Set End Property _ Public Property sms_Vorwahl() As String Get Try Return CType(Me(Me.tabletblSMS.sms_VorwahlColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_Vorwahl in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_VorwahlColumn) = value End Set End Property _ Public Property sms_Handynummer() As String Get Return CType(Me(Me.tabletblSMS.sms_HandynummerColumn),String) End Get Set Me(Me.tabletblSMS.sms_HandynummerColumn) = value End Set End Property _ Public Property sms_Nachricht() As String Get Return CType(Me(Me.tabletblSMS.sms_NachrichtColumn),String) End Get Set Me(Me.tabletblSMS.sms_NachrichtColumn) = value End Set End Property _ Public Property sms_templateID() As String Get Try Return CType(Me(Me.tabletblSMS.sms_templateIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_templateID in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_templateIDColumn) = value End Set End Property _ Public Property sms_BatchId() As String Get Try Return CType(Me(Me.tabletblSMS.sms_BatchIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_BatchId in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_BatchIdColumn) = value End Set End Property _ Public Property sms_MessageIds() As String Get Try Return CType(Me(Me.tabletblSMS.sms_MessageIdsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_MessageIds in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_MessageIdsColumn) = value End Set End Property _ Public Property sms_Uris() As String Get Try Return CType(Me(Me.tabletblSMS.sms_UrisColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_Uris in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_UrisColumn) = value End Set End Property _ Public Property sms_Sachbearbeiter() As String Get Return CType(Me(Me.tabletblSMS.sms_SachbearbeiterColumn),String) End Get Set Me(Me.tabletblSMS.sms_SachbearbeiterColumn) = value End Set End Property _ Public Property sms_SachbearbeiterId() As Integer Get Return CType(Me(Me.tabletblSMS.sms_SachbearbeiterIdColumn),Integer) End Get Set Me(Me.tabletblSMS.sms_SachbearbeiterIdColumn) = value End Set End Property _ Public Property sms_AvisoId() As Integer Get Try Return CType(Me(Me.tabletblSMS.sms_AvisoIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_AvisoId in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_AvisoIdColumn) = value End Set End Property _ Public Property sms_Status() As Integer Get Return CType(Me(Me.tabletblSMS.sms_StatusColumn),Integer) End Get Set Me(Me.tabletblSMS.sms_StatusColumn) = value End Set End Property _ Public Property sms_Queued() As Date Get Try Return CType(Me(Me.tabletblSMS.sms_QueuedColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_Queued in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_QueuedColumn) = value End Set End Property _ Public Property sms_Sent() As Date Get Try Return CType(Me(Me.tabletblSMS.sms_SentColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_Sent in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_SentColumn) = value End Set End Property _ Public Property sms_Delivered() As Date Get Try Return CType(Me(Me.tabletblSMS.sms_DeliveredColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_Delivered in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_DeliveredColumn) = value End Set End Property _ Public Property sms_Failure() As String Get Try Return CType(Me(Me.tabletblSMS.sms_FailureColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sms_Failure in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.sms_FailureColumn) = value End Set End Property _ Public Property sms_art() As String Get Return CType(Me(Me.tabletblSMS.sms_artColumn),String) End Get Set Me(Me.tabletblSMS.sms_artColumn) = value End Set End Property _ Public Property whatsApp_status() As Integer Get Try Return CType(Me(Me.tabletblSMS.whatsApp_statusColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte whatsApp_status in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.whatsApp_statusColumn) = value End Set End Property _ Public Property whatsApp_gatewayId() As String Get Try Return CType(Me(Me.tabletblSMS.whatsApp_gatewayIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte whatsApp_gatewayId in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.whatsApp_gatewayIdColumn) = value End Set End Property _ Public Property whatsApp_error() As String Get Try Return CType(Me(Me.tabletblSMS.whatsApp_errorColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte whatsApp_error in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.whatsApp_errorColumn) = value End Set End Property _ Public Property whatsApp_errorCode() As String Get Try Return CType(Me(Me.tabletblSMS.whatsApp_errorCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte whatsApp_errorCode in Tabelle tblSMS ist DBNull.", e) End Try End Get Set Me(Me.tabletblSMS.whatsApp_errorCodeColumn) = value End Set End Property _ Public Function Issms_FahrernameNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_FahrernameColumn) End Function _ Public Sub Setsms_FahrernameNull() Me(Me.tabletblSMS.sms_FahrernameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_KundenNrNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_KundenNrColumn) End Function _ Public Sub Setsms_KundenNrNull() Me(Me.tabletblSMS.sms_KundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_KundeNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_KundeColumn) End Function _ Public Sub Setsms_KundeNull() Me(Me.tabletblSMS.sms_KundeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_VorwahlNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_VorwahlColumn) End Function _ Public Sub Setsms_VorwahlNull() Me(Me.tabletblSMS.sms_VorwahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_templateIDNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_templateIDColumn) End Function _ Public Sub Setsms_templateIDNull() Me(Me.tabletblSMS.sms_templateIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_BatchIdNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_BatchIdColumn) End Function _ Public Sub Setsms_BatchIdNull() Me(Me.tabletblSMS.sms_BatchIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_MessageIdsNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_MessageIdsColumn) End Function _ Public Sub Setsms_MessageIdsNull() Me(Me.tabletblSMS.sms_MessageIdsColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_UrisNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_UrisColumn) End Function _ Public Sub Setsms_UrisNull() Me(Me.tabletblSMS.sms_UrisColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_AvisoIdNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_AvisoIdColumn) End Function _ Public Sub Setsms_AvisoIdNull() Me(Me.tabletblSMS.sms_AvisoIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_QueuedNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_QueuedColumn) End Function _ Public Sub Setsms_QueuedNull() Me(Me.tabletblSMS.sms_QueuedColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_SentNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_SentColumn) End Function _ Public Sub Setsms_SentNull() Me(Me.tabletblSMS.sms_SentColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_DeliveredNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_DeliveredColumn) End Function _ Public Sub Setsms_DeliveredNull() Me(Me.tabletblSMS.sms_DeliveredColumn) = Global.System.Convert.DBNull End Sub _ Public Function Issms_FailureNull() As Boolean Return Me.IsNull(Me.tabletblSMS.sms_FailureColumn) End Function _ Public Sub Setsms_FailureNull() Me(Me.tabletblSMS.sms_FailureColumn) = Global.System.Convert.DBNull End Sub _ Public Function IswhatsApp_statusNull() As Boolean Return Me.IsNull(Me.tabletblSMS.whatsApp_statusColumn) End Function _ Public Sub SetwhatsApp_statusNull() Me(Me.tabletblSMS.whatsApp_statusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IswhatsApp_gatewayIdNull() As Boolean Return Me.IsNull(Me.tabletblSMS.whatsApp_gatewayIdColumn) End Function _ Public Sub SetwhatsApp_gatewayIdNull() Me(Me.tabletblSMS.whatsApp_gatewayIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IswhatsApp_errorNull() As Boolean Return Me.IsNull(Me.tabletblSMS.whatsApp_errorColumn) End Function _ Public Sub SetwhatsApp_errorNull() Me(Me.tabletblSMS.whatsApp_errorColumn) = Global.System.Convert.DBNull End Sub _ Public Function IswhatsApp_errorCodeNull() As Boolean Return Me.IsNull(Me.tabletblSMS.whatsApp_errorCodeColumn) End Function _ Public Sub SetwhatsApp_errorCodeNull() Me(Me.tabletblSMS.whatsApp_errorCodeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblSpeditionsbucharchivRow Inherits Global.System.Data.DataRow Private tabletblSpeditionsbucharchiv As tblSpeditionsbucharchivDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblSpeditionsbucharchiv = CType(Me.Table,tblSpeditionsbucharchivDataTable) End Sub _ Public Property FilialenNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.FilialenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle tblSpeditionsbucharchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.UnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UnterNr in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsdatum in Tabelle tblSpeditionsbucharchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsdatumColumn) = value End Set End Property _ Public Property Bar() As Boolean Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.BarColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bar in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.BarColumn) = value End Set End Property _ Public Property Fakturiert() As Boolean Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.FakturiertColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fakturiert in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.FakturiertColumn) = value End Set End Property _ Public Property BelegNr() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.BelegNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegNr in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.BelegNrColumn) = value End Set End Property _ Public Property ErfassungsNr() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.ErfassungsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErfassungsNr in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.ErfassungsNrColumn) = value End Set End Property _ Public Property LKW_Kennzeichen() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.LKW_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW Kennzeichen in Tabelle tblSpeditionsbucharchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.LKW_KennzeichenColumn) = value End Set End Property _ Public Property AbsenderKundenNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AbsenderKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderKundenNr in Tabelle tblSpeditionsbucharchiv ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AbsenderKundenNrColumn) = value End Set End Property _ Public Property Absender() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AbsenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Absender in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AbsenderColumn) = value End Set End Property _ Public Property AbsenderOffertenNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AbsenderOffertenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOffertenNr in Tabelle tblSpeditionsbucharchiv ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AbsenderOffertenNrColumn) = value End Set End Property _ Public Property EmpfängerKundenNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.EmpfängerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerKundenNr in Tabelle tblSpeditionsbucharchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.EmpfängerKundenNrColumn) = value End Set End Property _ Public Property Empfänger() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.EmpfängerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Empfänger in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.EmpfängerColumn) = value End Set End Property _ Public Property EmpfängerOffertenNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.EmpfängerOffertenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOffertenNr in Tabelle tblSpeditionsbucharchiv ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.EmpfängerOffertenNrColumn) = value End Set End Property _ Public Property VermittlerKundenNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.VermittlerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerKundenNr in Tabelle tblSpeditionsbucharchiv ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.VermittlerKundenNrColumn) = value End Set End Property _ Public Property Vermittler() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.VermittlerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vermittler in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.VermittlerColumn) = value End Set End Property _ Public Property VermittlerOffertenNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.VermittlerOffertenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOffertenNr in Tabelle tblSpeditionsbucharchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.VermittlerOffertenNrColumn) = value End Set End Property _ Public Property FrachtführerKundenNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.FrachtführerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FrachtführerKundenNr in Tabelle tblSpeditionsbucharchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.FrachtführerKundenNrColumn) = value End Set End Property _ Public Property Frachtführer() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.FrachtführerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Frachtführer in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.FrachtführerColumn) = value End Set End Property _ Public Property AnzahlZA() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlZAColumn),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlZAColumn) = value End Set End Property _ Public Property AnzahlZAFremd() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlZAFremdColumn),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlZAFremdColumn) = value End Set End Property _ Public Property AnzahlZnV() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlZnVColumn),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlZnVColumn) = value End Set End Property _ Public Property AnzahlZnVFremd() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlZnVFremdColumn),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlZnVFremdColumn) = value End Set End Property _ Public Property AnzahlT1() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlT1Column),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlT1Column) = value End Set End Property _ Public Property AnzahlT2() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlT2Column),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlT2Column) = value End Set End Property _ Public Property AnzahlAE() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlAEColumn),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlAEColumn) = value End Set End Property _ Public Property AnzahlCarnetTIR() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlCarnetTIRColumn),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlCarnetTIRColumn) = value End Set End Property _ Public Property AnzahlBarvorlagen() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlBarvorlagenColumn),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlBarvorlagenColumn) = value End Set End Property _ Public Property AnzahlSonstiges() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlSonstigesColumn),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlSonstigesColumn) = value End Set End Property _ Public Property AnzahlGrenzgebühren() As Short Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.AnzahlGrenzgebührenColumn),Short) End Get Set Me(Me.tabletblSpeditionsbucharchiv.AnzahlGrenzgebührenColumn) = value End Set End Property _ Public Property AvisUhrzeit() As Date Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AvisUhrzeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisUhrzeit in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AvisUhrzeitColumn) = value End Set End Property _ Public Property Vermerk() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vermerk in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.VermerkColumn) = value End Set End Property _ Public Property Bemerkungen() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.BemerkungenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkungen in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.BemerkungenColumn) = value End Set End Property _ Public Property Währungsschlüssel() As Short Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.WährungsschlüsselColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungsschlüssel in Tabelle tblSpeditionsbucharchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.WährungsschlüsselColumn) = value End Set End Property _ Public Property Rechnungsbetrag() As Decimal Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.RechnungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsbetrag in Tabelle tblSpeditionsbucharchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.RechnungsbetragColumn) = value End Set End Property _ Public Property Umrechnungskurs() As Double Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umrechnungskurs in Tabelle tblSpeditionsbucharchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.UmrechnungskursColumn) = value End Set End Property _ Public Property Packstücke() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.PackstückeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packstücke in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.PackstückeColumn) = value End Set End Property _ Public Property Rohmasse() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.RohmasseColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rohmasse in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.RohmasseColumn) = value End Set End Property _ Public Property Zahlungsaufschub() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.ZahlungsaufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsaufschub in Tabelle tblSpeditionsbucharchiv ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.ZahlungsaufschubColumn) = value End Set End Property _ Public Property Löschen() As Date Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.LöschenColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Löschen in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.LöschenColumn) = value End Set End Property _ Public Property Abfertigungsart() As Short Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsartColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsart in Tabelle tblSpeditionsbucharchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsartColumn) = value End Set End Property _ Public Property Abfertigungsanzahl() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsanzahlColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsanzahl in Tabelle tblSpeditionsbucharchiv ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsanzahlColumn) = value End Set End Property _ Public Property AbfertigungsanzahlPos() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsanzahlPosColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsanzahlPos in Tabelle tblSpeditionsbucharchiv ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsanzahlPosColumn) = value End Set End Property _ Public Property Barzahlungsbetrag() As Decimal Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.BarzahlungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Barzahlungsbetrag in Tabelle tblSpeditionsbucharchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.BarzahlungsbetragColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle tblSpeditionsbucharchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.SachbearbeiterColumn) = value End Set End Property _ Public Property Personalnummer() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.PersonalnummerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Personalnummer in Tabelle tblSpeditionsbucharchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.PersonalnummerColumn) = value End Set End Property _ Public Property AtlasBezNrEZA() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AtlasBezNrEZAColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AtlasBezNrEZA in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AtlasBezNrEZAColumn) = value End Set End Property _ Public Property AtlasBezNrNCTS() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AtlasBezNrNCTSColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AtlasBezNrNCTS in Tabelle tblSpeditionsbucharchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AtlasBezNrNCTSColumn) = value End Set End Property _ Public Property Versendungsland() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.VersendungslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Versendungsland in Tabelle tblSpeditionsbucharchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.VersendungslandColumn) = value End Set End Property _ Public Property SB_CMR() As Boolean Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.SB_CMRColumn),Boolean) End Get Set Me(Me.tabletblSpeditionsbucharchiv.SB_CMRColumn) = value End Set End Property _ Public Property SB_CMRDatum() As Date Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.SB_CMRDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SB_CMRDatum in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.SB_CMRDatumColumn) = value End Set End Property _ Public Property veoerz_basbtg() As Decimal Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.veoerz_basbtgColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte veoerz_basbtg in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.veoerz_basbtgColumn) = value End Set End Property _ Public Property Zucker_MRN_Nr() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.Zucker_MRN_NrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Nr in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.Zucker_MRN_NrColumn) = value End Set End Property _ Public Property Zucker_MRN_Datum() As Date Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.Zucker_MRN_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Datum in Tabelle tblSpeditionsbucharchiv ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.Zucker_MRN_DatumColumn) = value End Set End Property _ Public Property Zucker_Aufschub() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.Zucker_AufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_Aufschub in Tabelle tblSpeditionsbucharchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.Zucker_AufschubColumn) = value End Set End Property _ Public Property Zollsystem() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.ZollsystemColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollsystem in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.ZollsystemColumn) = value End Set End Property _ Public Property Bestimmungszollstelle() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.BestimmungszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bestimmungszollstelle in Tabelle tblSpeditionsbucharchiv ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.BestimmungszollstelleColumn) = value End Set End Property _ Public Property Bürgschaft() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.BürgschaftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bürgschaft in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.BürgschaftColumn) = value End Set End Property _ Public Property Sicherheitsbetrag() As Decimal Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.SicherheitsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sicherheitsbetrag in Tabelle tblSpeditionsbucharchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.SicherheitsbetragColumn) = value End Set End Property _ Public Property SgutKompl() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.SgutKomplColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SgutKompl in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.SgutKomplColumn) = value End Set End Property _ Public Property Bestimmungsland() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.BestimmungslandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bestimmungsland in Tabelle tblSpeditionsbucharchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.BestimmungslandColumn) = value End Set End Property _ Public Property EuFiskalEmpfänger() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.EuFiskalEmpfängerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EuFiskalEmpfänger in Tabelle tblSpeditionsbucharchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.EuFiskalEmpfängerColumn) = value End Set End Property _ Public Property QKN() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.QKNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte QKN in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.QKNColumn) = value End Set End Property _ Public Property EndempfängerKundenNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.EndempfängerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndempfängerKundenNr in Tabelle tblSpeditionsbucharchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.EndempfängerKundenNrColumn) = value End Set End Property _ Public Property Endempfänger() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.EndempfängerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Endempfänger in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.EndempfängerColumn) = value End Set End Property _ Public Property SB_Zeitstempel() As Date Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.SB_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SB_Zeitstempel in Tabelle tblSpeditionsbucharchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.SB_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.upsize_tsColumn) = value End Set End Property _ Public Property AvisoID() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AvisoIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisoID in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AvisoIDColumn) = value End Set End Property _ Public Property SendungID() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.SendungIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SendungID in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.SendungIDColumn) = value End Set End Property _ Public Property PersonalnummerQS() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.PersonalnummerQSColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PersonalnummerQS in Tabelle tblSpeditionsbucharchiv ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.PersonalnummerQSColumn) = value End Set End Property _ Public Property AvisiererKundenNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AvisiererKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisiererKundenNr in Tabelle tblSpeditionsbucharchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AvisiererKundenNrColumn) = value End Set End Property _ Public Property Avisierer() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AvisiererColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Avisierer in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AvisiererColumn) = value End Set End Property _ Public Property KdAuftragsNr() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdAuftragsNr in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrColumn) = value End Set End Property _ Public Property Grenzstelle() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.GrenzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Grenzstelle in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.GrenzstelleColumn) = value End Set End Property _ Public Property NCTS_Verzollungsadresse() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.NCTS_VerzollungsadresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NCTS_Verzollungsadresse in Tabelle tblSpeditionsbucharchiv is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.NCTS_VerzollungsadresseColumn) = value End Set End Property _ Public Property NCTS_VerzollungsadresseKdNr() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.NCTS_VerzollungsadresseKdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NCTS_VerzollungsadresseKdNr in Tabelle tblSpeditionsbucharchi"& _ "v ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.NCTS_VerzollungsadresseKdNrColumn) = value End Set End Property _ Public Property NCTS_Verzollungsadresse_EORI() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.NCTS_Verzollungsadresse_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NCTS_Verzollungsadresse_EORI in Tabelle tblSpeditionsbucharch"& _ "iv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.NCTS_Verzollungsadresse_EORIColumn) = value End Set End Property _ Public Property NCTS_Bestimmungszollstelle() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.NCTS_BestimmungszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NCTS_Bestimmungszollstelle in Tabelle tblSpeditionsbucharchiv"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.NCTS_BestimmungszollstelleColumn) = value End Set End Property _ Public Property AuftraggeberBetragKassiert() As Decimal Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AuftraggeberBetragKassiertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AuftraggeberBetragKassiert in Tabelle tblSpeditionsbucharchiv"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AuftraggeberBetragKassiertColumn) = value End Set End Property _ Public Property KdAuftragsNrAvisierer() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrAvisiererColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdAuftragsNrAvisierer in Tabelle tblSpeditionsbucharchiv ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrAvisiererColumn) = value End Set End Property _ Public Property KdAuftragsNrEmpfaenger() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrEmpfaengerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdAuftragsNrEmpfaenger in Tabelle tblSpeditionsbucharchiv ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrEmpfaengerColumn) = value End Set End Property _ Public Property KdAuftragsNrFrachtfuehrer() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrFrachtfuehrerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdAuftragsNrFrachtfuehrer in Tabelle tblSpeditionsbucharchiv "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrFrachtfuehrerColumn) = value End Set End Property _ Public Property Lieferantenrechnung() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.LieferantenrechnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferantenrechnung in Tabelle tblSpeditionsbucharchiv ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.LieferantenrechnungColumn) = value End Set End Property _ Public Property DokumentId_Steuerbeleg() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.DokumentId_SteuerbelegColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumentId_Steuerbeleg in Tabelle tblSpeditionsbucharchiv ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.DokumentId_SteuerbelegColumn) = value End Set End Property _ Public Property DokumentId_Mitteilung() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.DokumentId_MitteilungColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumentId_Mitteilung in Tabelle tblSpeditionsbucharchiv ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.DokumentId_MitteilungColumn) = value End Set End Property _ Public Property DokumentId_VBD() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.DokumentId_VBDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumentId_VBD in Tabelle tblSpeditionsbucharchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.DokumentId_VBDColumn) = value End Set End Property _ Public Property DokumentId_ABD() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.DokumentId_ABDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumentId_ABD in Tabelle tblSpeditionsbucharchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.DokumentId_ABDColumn) = value End Set End Property _ Public Property DokumentId_AVM() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.DokumentId_AVMColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DokumentId_AVM in Tabelle tblSpeditionsbucharchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.DokumentId_AVMColumn) = value End Set End Property _ Public Property FilialenNrHandling() As Short Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.FilialenNrHandlingColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNrHandling in Tabelle tblSpeditionsbucharchiv ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.FilialenNrHandlingColumn) = value End Set End Property _ Public Property FilialenNrAbklaerung() As Short Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.FilialenNrAbklaerungColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNrAbklaerung in Tabelle tblSpeditionsbucharchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.FilialenNrAbklaerungColumn) = value End Set End Property _ Public Property HandlingZuKassieren() As Decimal Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.HandlingZuKassierenColumn),Decimal) End Get Set Me(Me.tabletblSpeditionsbucharchiv.HandlingZuKassierenColumn) = value End Set End Property _ Public Property SB_CMRNr() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.SB_CMRNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SB_CMRNr in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.SB_CMRNrColumn) = value End Set End Property _ Public Property PersonalnummerAbklTR() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.PersonalnummerAbklTRColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PersonalnummerAbklTR in Tabelle tblSpeditionsbucharchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.PersonalnummerAbklTRColumn) = value End Set End Property _ Public Property UK_EIDR_ausstehend() As Boolean Get Return CType(Me(Me.tabletblSpeditionsbucharchiv.UK_EIDR_ausstehendColumn),Boolean) End Get Set Me(Me.tabletblSpeditionsbucharchiv.UK_EIDR_ausstehendColumn) = value End Set End Property _ Public Property Zollstelle() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.ZollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollstelle in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.ZollstelleColumn) = value End Set End Property _ Public Property AtlasBezNrAES() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.AtlasBezNrAESColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AtlasBezNrAES in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.AtlasBezNrAESColumn) = value End Set End Property _ Public Property Packstücke_Zoll() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.Packstücke_ZollColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packstücke_Zoll in Tabelle tblSpeditionsbucharchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.Packstücke_ZollColumn) = value End Set End Property _ Public Property Zollsystem_Land() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.Zollsystem_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollsystem_Land in Tabelle tblSpeditionsbucharchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.Zollsystem_LandColumn) = value End Set End Property _ Public Property geloescht_am() As Date Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.geloescht_amColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte geloescht_am in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.geloescht_amColumn) = value End Set End Property _ Public Property geloescht_von() As String Get Try Return CType(Me(Me.tabletblSpeditionsbucharchiv.geloescht_vonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte geloescht_von in Tabelle tblSpeditionsbucharchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbucharchiv.geloescht_vonColumn) = value End Set End Property _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tabletblSpeditionsbucharchiv.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUnterNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.UnterNrColumn) End Function _ Public Sub SetUnterNrNull() Me(Me.tabletblSpeditionsbucharchiv.UnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AbfertigungsdatumColumn) End Function _ Public Sub SetAbfertigungsdatumNull() Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBarNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.BarColumn) End Function _ Public Sub SetBarNull() Me(Me.tabletblSpeditionsbucharchiv.BarColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFakturiertNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.FakturiertColumn) End Function _ Public Sub SetFakturiertNull() Me(Me.tabletblSpeditionsbucharchiv.FakturiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.BelegNrColumn) End Function _ Public Sub SetBelegNrNull() Me(Me.tabletblSpeditionsbucharchiv.BelegNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErfassungsNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.ErfassungsNrColumn) End Function _ Public Sub SetErfassungsNrNull() Me(Me.tabletblSpeditionsbucharchiv.ErfassungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLKW_KennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.LKW_KennzeichenColumn) End Function _ Public Sub SetLKW_KennzeichenNull() Me(Me.tabletblSpeditionsbucharchiv.LKW_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderKundenNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AbsenderKundenNrColumn) End Function _ Public Sub SetAbsenderKundenNrNull() Me(Me.tabletblSpeditionsbucharchiv.AbsenderKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AbsenderColumn) End Function _ Public Sub SetAbsenderNull() Me(Me.tabletblSpeditionsbucharchiv.AbsenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOffertenNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AbsenderOffertenNrColumn) End Function _ Public Sub SetAbsenderOffertenNrNull() Me(Me.tabletblSpeditionsbucharchiv.AbsenderOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerKundenNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.EmpfängerKundenNrColumn) End Function _ Public Sub SetEmpfängerKundenNrNull() Me(Me.tabletblSpeditionsbucharchiv.EmpfängerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.EmpfängerColumn) End Function _ Public Sub SetEmpfängerNull() Me(Me.tabletblSpeditionsbucharchiv.EmpfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOffertenNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.EmpfängerOffertenNrColumn) End Function _ Public Sub SetEmpfängerOffertenNrNull() Me(Me.tabletblSpeditionsbucharchiv.EmpfängerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerKundenNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.VermittlerKundenNrColumn) End Function _ Public Sub SetVermittlerKundenNrNull() Me(Me.tabletblSpeditionsbucharchiv.VermittlerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.VermittlerColumn) End Function _ Public Sub SetVermittlerNull() Me(Me.tabletblSpeditionsbucharchiv.VermittlerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOffertenNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.VermittlerOffertenNrColumn) End Function _ Public Sub SetVermittlerOffertenNrNull() Me(Me.tabletblSpeditionsbucharchiv.VermittlerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFrachtführerKundenNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.FrachtführerKundenNrColumn) End Function _ Public Sub SetFrachtführerKundenNrNull() Me(Me.tabletblSpeditionsbucharchiv.FrachtführerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFrachtführerNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.FrachtführerColumn) End Function _ Public Sub SetFrachtführerNull() Me(Me.tabletblSpeditionsbucharchiv.FrachtführerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisUhrzeitNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AvisUhrzeitColumn) End Function _ Public Sub SetAvisUhrzeitNull() Me(Me.tabletblSpeditionsbucharchiv.AvisUhrzeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermerkNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.VermerkColumn) End Function _ Public Sub SetVermerkNull() Me(Me.tabletblSpeditionsbucharchiv.VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungenNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.BemerkungenColumn) End Function _ Public Sub SetBemerkungenNull() Me(Me.tabletblSpeditionsbucharchiv.BemerkungenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungsschlüsselNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.WährungsschlüsselColumn) End Function _ Public Sub SetWährungsschlüsselNull() Me(Me.tabletblSpeditionsbucharchiv.WährungsschlüsselColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.RechnungsbetragColumn) End Function _ Public Sub SetRechnungsbetragNull() Me(Me.tabletblSpeditionsbucharchiv.RechnungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmrechnungskursNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.UmrechnungskursColumn) End Function _ Public Sub SetUmrechnungskursNull() Me(Me.tabletblSpeditionsbucharchiv.UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPackstückeNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.PackstückeColumn) End Function _ Public Sub SetPackstückeNull() Me(Me.tabletblSpeditionsbucharchiv.PackstückeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRohmasseNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.RohmasseColumn) End Function _ Public Sub SetRohmasseNull() Me(Me.tabletblSpeditionsbucharchiv.RohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsaufschubNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.ZahlungsaufschubColumn) End Function _ Public Sub SetZahlungsaufschubNull() Me(Me.tabletblSpeditionsbucharchiv.ZahlungsaufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLöschenNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.LöschenColumn) End Function _ Public Sub SetLöschenNull() Me(Me.tabletblSpeditionsbucharchiv.LöschenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsartNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AbfertigungsartColumn) End Function _ Public Sub SetAbfertigungsartNull() Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsanzahlNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AbfertigungsanzahlColumn) End Function _ Public Sub SetAbfertigungsanzahlNull() Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsanzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsanzahlPosNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AbfertigungsanzahlPosColumn) End Function _ Public Sub SetAbfertigungsanzahlPosNull() Me(Me.tabletblSpeditionsbucharchiv.AbfertigungsanzahlPosColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBarzahlungsbetragNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.BarzahlungsbetragColumn) End Function _ Public Sub SetBarzahlungsbetragNull() Me(Me.tabletblSpeditionsbucharchiv.BarzahlungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tabletblSpeditionsbucharchiv.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPersonalnummerNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.PersonalnummerColumn) End Function _ Public Sub SetPersonalnummerNull() Me(Me.tabletblSpeditionsbucharchiv.PersonalnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAtlasBezNrEZANull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AtlasBezNrEZAColumn) End Function _ Public Sub SetAtlasBezNrEZANull() Me(Me.tabletblSpeditionsbucharchiv.AtlasBezNrEZAColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAtlasBezNrNCTSNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AtlasBezNrNCTSColumn) End Function _ Public Sub SetAtlasBezNrNCTSNull() Me(Me.tabletblSpeditionsbucharchiv.AtlasBezNrNCTSColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVersendungslandNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.VersendungslandColumn) End Function _ Public Sub SetVersendungslandNull() Me(Me.tabletblSpeditionsbucharchiv.VersendungslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSB_CMRDatumNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.SB_CMRDatumColumn) End Function _ Public Sub SetSB_CMRDatumNull() Me(Me.tabletblSpeditionsbucharchiv.SB_CMRDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isveoerz_basbtgNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.veoerz_basbtgColumn) End Function _ Public Sub Setveoerz_basbtgNull() Me(Me.tabletblSpeditionsbucharchiv.veoerz_basbtgColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_NrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.Zucker_MRN_NrColumn) End Function _ Public Sub SetZucker_MRN_NrNull() Me(Me.tabletblSpeditionsbucharchiv.Zucker_MRN_NrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_DatumNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.Zucker_MRN_DatumColumn) End Function _ Public Sub SetZucker_MRN_DatumNull() Me(Me.tabletblSpeditionsbucharchiv.Zucker_MRN_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_AufschubNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.Zucker_AufschubColumn) End Function _ Public Sub SetZucker_AufschubNull() Me(Me.tabletblSpeditionsbucharchiv.Zucker_AufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollsystemNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.ZollsystemColumn) End Function _ Public Sub SetZollsystemNull() Me(Me.tabletblSpeditionsbucharchiv.ZollsystemColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungszollstelleNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.BestimmungszollstelleColumn) End Function _ Public Sub SetBestimmungszollstelleNull() Me(Me.tabletblSpeditionsbucharchiv.BestimmungszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBürgschaftNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.BürgschaftColumn) End Function _ Public Sub SetBürgschaftNull() Me(Me.tabletblSpeditionsbucharchiv.BürgschaftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSicherheitsbetragNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.SicherheitsbetragColumn) End Function _ Public Sub SetSicherheitsbetragNull() Me(Me.tabletblSpeditionsbucharchiv.SicherheitsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSgutKomplNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.SgutKomplColumn) End Function _ Public Sub SetSgutKomplNull() Me(Me.tabletblSpeditionsbucharchiv.SgutKomplColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungslandNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.BestimmungslandColumn) End Function _ Public Sub SetBestimmungslandNull() Me(Me.tabletblSpeditionsbucharchiv.BestimmungslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEuFiskalEmpfängerNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.EuFiskalEmpfängerColumn) End Function _ Public Sub SetEuFiskalEmpfängerNull() Me(Me.tabletblSpeditionsbucharchiv.EuFiskalEmpfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsQKNNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.QKNColumn) End Function _ Public Sub SetQKNNull() Me(Me.tabletblSpeditionsbucharchiv.QKNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndempfängerKundenNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.EndempfängerKundenNrColumn) End Function _ Public Sub SetEndempfängerKundenNrNull() Me(Me.tabletblSpeditionsbucharchiv.EndempfängerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndempfängerNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.EndempfängerColumn) End Function _ Public Sub SetEndempfängerNull() Me(Me.tabletblSpeditionsbucharchiv.EndempfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSB_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.SB_ZeitstempelColumn) End Function _ Public Sub SetSB_ZeitstempelNull() Me(Me.tabletblSpeditionsbucharchiv.SB_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblSpeditionsbucharchiv.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisoIDNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AvisoIDColumn) End Function _ Public Sub SetAvisoIDNull() Me(Me.tabletblSpeditionsbucharchiv.AvisoIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSendungIDNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.SendungIDColumn) End Function _ Public Sub SetSendungIDNull() Me(Me.tabletblSpeditionsbucharchiv.SendungIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPersonalnummerQSNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.PersonalnummerQSColumn) End Function _ Public Sub SetPersonalnummerQSNull() Me(Me.tabletblSpeditionsbucharchiv.PersonalnummerQSColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisiererKundenNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AvisiererKundenNrColumn) End Function _ Public Sub SetAvisiererKundenNrNull() Me(Me.tabletblSpeditionsbucharchiv.AvisiererKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisiererNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AvisiererColumn) End Function _ Public Sub SetAvisiererNull() Me(Me.tabletblSpeditionsbucharchiv.AvisiererColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdAuftragsNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrColumn) End Function _ Public Sub SetKdAuftragsNrNull() Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGrenzstelleNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.GrenzstelleColumn) End Function _ Public Sub SetGrenzstelleNull() Me(Me.tabletblSpeditionsbucharchiv.GrenzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNCTS_VerzollungsadresseNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.NCTS_VerzollungsadresseColumn) End Function _ Public Sub SetNCTS_VerzollungsadresseNull() Me(Me.tabletblSpeditionsbucharchiv.NCTS_VerzollungsadresseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNCTS_VerzollungsadresseKdNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.NCTS_VerzollungsadresseKdNrColumn) End Function _ Public Sub SetNCTS_VerzollungsadresseKdNrNull() Me(Me.tabletblSpeditionsbucharchiv.NCTS_VerzollungsadresseKdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNCTS_Verzollungsadresse_EORINull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.NCTS_Verzollungsadresse_EORIColumn) End Function _ Public Sub SetNCTS_Verzollungsadresse_EORINull() Me(Me.tabletblSpeditionsbucharchiv.NCTS_Verzollungsadresse_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNCTS_BestimmungszollstelleNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.NCTS_BestimmungszollstelleColumn) End Function _ Public Sub SetNCTS_BestimmungszollstelleNull() Me(Me.tabletblSpeditionsbucharchiv.NCTS_BestimmungszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAuftraggeberBetragKassiertNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AuftraggeberBetragKassiertColumn) End Function _ Public Sub SetAuftraggeberBetragKassiertNull() Me(Me.tabletblSpeditionsbucharchiv.AuftraggeberBetragKassiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdAuftragsNrAvisiererNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrAvisiererColumn) End Function _ Public Sub SetKdAuftragsNrAvisiererNull() Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrAvisiererColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdAuftragsNrEmpfaengerNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrEmpfaengerColumn) End Function _ Public Sub SetKdAuftragsNrEmpfaengerNull() Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrEmpfaengerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdAuftragsNrFrachtfuehrerNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrFrachtfuehrerColumn) End Function _ Public Sub SetKdAuftragsNrFrachtfuehrerNull() Me(Me.tabletblSpeditionsbucharchiv.KdAuftragsNrFrachtfuehrerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferantenrechnungNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.LieferantenrechnungColumn) End Function _ Public Sub SetLieferantenrechnungNull() Me(Me.tabletblSpeditionsbucharchiv.LieferantenrechnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentId_SteuerbelegNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.DokumentId_SteuerbelegColumn) End Function _ Public Sub SetDokumentId_SteuerbelegNull() Me(Me.tabletblSpeditionsbucharchiv.DokumentId_SteuerbelegColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentId_MitteilungNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.DokumentId_MitteilungColumn) End Function _ Public Sub SetDokumentId_MitteilungNull() Me(Me.tabletblSpeditionsbucharchiv.DokumentId_MitteilungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentId_VBDNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.DokumentId_VBDColumn) End Function _ Public Sub SetDokumentId_VBDNull() Me(Me.tabletblSpeditionsbucharchiv.DokumentId_VBDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentId_ABDNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.DokumentId_ABDColumn) End Function _ Public Sub SetDokumentId_ABDNull() Me(Me.tabletblSpeditionsbucharchiv.DokumentId_ABDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentId_AVMNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.DokumentId_AVMColumn) End Function _ Public Sub SetDokumentId_AVMNull() Me(Me.tabletblSpeditionsbucharchiv.DokumentId_AVMColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrHandlingNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.FilialenNrHandlingColumn) End Function _ Public Sub SetFilialenNrHandlingNull() Me(Me.tabletblSpeditionsbucharchiv.FilialenNrHandlingColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrAbklaerungNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.FilialenNrAbklaerungColumn) End Function _ Public Sub SetFilialenNrAbklaerungNull() Me(Me.tabletblSpeditionsbucharchiv.FilialenNrAbklaerungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSB_CMRNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.SB_CMRNrColumn) End Function _ Public Sub SetSB_CMRNrNull() Me(Me.tabletblSpeditionsbucharchiv.SB_CMRNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPersonalnummerAbklTRNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.PersonalnummerAbklTRColumn) End Function _ Public Sub SetPersonalnummerAbklTRNull() Me(Me.tabletblSpeditionsbucharchiv.PersonalnummerAbklTRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollstelleNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.ZollstelleColumn) End Function _ Public Sub SetZollstelleNull() Me(Me.tabletblSpeditionsbucharchiv.ZollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAtlasBezNrAESNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.AtlasBezNrAESColumn) End Function _ Public Sub SetAtlasBezNrAESNull() Me(Me.tabletblSpeditionsbucharchiv.AtlasBezNrAESColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPackstücke_ZollNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.Packstücke_ZollColumn) End Function _ Public Sub SetPackstücke_ZollNull() Me(Me.tabletblSpeditionsbucharchiv.Packstücke_ZollColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollsystem_LandNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.Zollsystem_LandColumn) End Function _ Public Sub SetZollsystem_LandNull() Me(Me.tabletblSpeditionsbucharchiv.Zollsystem_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgeloescht_amNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.geloescht_amColumn) End Function _ Public Sub Setgeloescht_amNull() Me(Me.tabletblSpeditionsbucharchiv.geloescht_amColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isgeloescht_vonNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbucharchiv.geloescht_vonColumn) End Function _ Public Sub Setgeloescht_vonNull() Me(Me.tabletblSpeditionsbucharchiv.geloescht_vonColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblSpeditionsbuchEndEmpfaengerRow Inherits Global.System.Data.DataRow Private tabletblSpeditionsbuchEndEmpfaenger As tblSpeditionsbuchEndEmpfaengerDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblSpeditionsbuchEndEmpfaenger = CType(Me.Table,tblSpeditionsbuchEndEmpfaengerDataTable) End Sub _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tabletblSpeditionsbuchEndEmpfaenger.FilialenNrColumn),Short) End Get Set Me(Me.tabletblSpeditionsbuchEndEmpfaenger.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tabletblSpeditionsbuchEndEmpfaenger.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tabletblSpeditionsbuchEndEmpfaenger.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tabletblSpeditionsbuchEndEmpfaenger.UnterNrColumn),Short) End Get Set Me(Me.tabletblSpeditionsbuchEndEmpfaenger.UnterNrColumn) = value End Set End Property _ Public Property EndEmpfaengerKdNr() As Integer Get Return CType(Me(Me.tabletblSpeditionsbuchEndEmpfaenger.EndEmpfaengerKdNrColumn),Integer) End Get Set Me(Me.tabletblSpeditionsbuchEndEmpfaenger.EndEmpfaengerKdNrColumn) = value End Set End Property _ Public Property EndEmpfaenger() As String Get Return CType(Me(Me.tabletblSpeditionsbuchEndEmpfaenger.EndEmpfaengerColumn),String) End Get Set Me(Me.tabletblSpeditionsbuchEndEmpfaenger.EndEmpfaengerColumn) = value End Set End Property _ Public Property UstIdKz() As String Get Try Return CType(Me(Me.tabletblSpeditionsbuchEndEmpfaenger.UstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdKz in Tabelle tblSpeditionsbuchEndEmpfaenger ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblSpeditionsbuchEndEmpfaenger.UstIdKzColumn) = value End Set End Property _ Public Property UstIdNr() As String Get Try Return CType(Me(Me.tabletblSpeditionsbuchEndEmpfaenger.UstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdNr in Tabelle tblSpeditionsbuchEndEmpfaenger ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblSpeditionsbuchEndEmpfaenger.UstIdNrColumn) = value End Set End Property _ Public Property Rechnungsbetrag() As Decimal Get Try Return CType(Me(Me.tabletblSpeditionsbuchEndEmpfaenger.RechnungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsbetrag in Tabelle tblSpeditionsbuchEndEmpfaenger ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbuchEndEmpfaenger.RechnungsbetragColumn) = value End Set End Property _ Public Property RechnungsNr() As String Get Try Return CType(Me(Me.tabletblSpeditionsbuchEndEmpfaenger.RechnungsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsNr in Tabelle tblSpeditionsbuchEndEmpfaenger ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbuchEndEmpfaenger.RechnungsNrColumn) = value End Set End Property _ Public Function IsUstIdKzNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbuchEndEmpfaenger.UstIdKzColumn) End Function _ Public Sub SetUstIdKzNull() Me(Me.tabletblSpeditionsbuchEndEmpfaenger.UstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbuchEndEmpfaenger.UstIdNrColumn) End Function _ Public Sub SetUstIdNrNull() Me(Me.tabletblSpeditionsbuchEndEmpfaenger.UstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbuchEndEmpfaenger.RechnungsbetragColumn) End Function _ Public Sub SetRechnungsbetragNull() Me(Me.tabletblSpeditionsbuchEndEmpfaenger.RechnungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsNrNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbuchEndEmpfaenger.RechnungsNrColumn) End Function _ Public Sub SetRechnungsNrNull() Me(Me.tabletblSpeditionsbuchEndEmpfaenger.RechnungsNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblSpeditionsbuchUnterPosRow Inherits Global.System.Data.DataRow Private tabletblSpeditionsbuchUnterPos As tblSpeditionsbuchUnterPosDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblSpeditionsbuchUnterPos = CType(Me.Table,tblSpeditionsbuchUnterPosDataTable) End Sub _ Public Property sbup_id() As Integer Get Return CType(Me(Me.tabletblSpeditionsbuchUnterPos.sbup_idColumn),Integer) End Get Set Me(Me.tabletblSpeditionsbuchUnterPos.sbup_idColumn) = value End Set End Property _ Public Property sbup_Filiale() As Integer Get Return CType(Me(Me.tabletblSpeditionsbuchUnterPos.sbup_FilialeColumn),Integer) End Get Set Me(Me.tabletblSpeditionsbuchUnterPos.sbup_FilialeColumn) = value End Set End Property _ Public Property sbup_AbfertigungsNr() As Integer Get Return CType(Me(Me.tabletblSpeditionsbuchUnterPos.sbup_AbfertigungsNrColumn),Integer) End Get Set Me(Me.tabletblSpeditionsbuchUnterPos.sbup_AbfertigungsNrColumn) = value End Set End Property _ Public Property sbup_UnterNr() As Integer Get Return CType(Me(Me.tabletblSpeditionsbuchUnterPos.sbup_UnterNrColumn),Integer) End Get Set Me(Me.tabletblSpeditionsbuchUnterPos.sbup_UnterNrColumn) = value End Set End Property _ Public Property sbup_UnterPosArt() As Integer Get Return CType(Me(Me.tabletblSpeditionsbuchUnterPos.sbup_UnterPosArtColumn),Integer) End Get Set Me(Me.tabletblSpeditionsbuchUnterPos.sbup_UnterPosArtColumn) = value End Set End Property _ Public Property sbup_Anzahl() As Integer Get Return CType(Me(Me.tabletblSpeditionsbuchUnterPos.sbup_AnzahlColumn),Integer) End Get Set Me(Me.tabletblSpeditionsbuchUnterPos.sbup_AnzahlColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblSpeditionsbuchUnterPosArtenRow Inherits Global.System.Data.DataRow Private tabletblSpeditionsbuchUnterPosArten As tblSpeditionsbuchUnterPosArtenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblSpeditionsbuchUnterPosArten = CType(Me.Table,tblSpeditionsbuchUnterPosArtenDataTable) End Sub _ Public Property sbupa_id() As Integer Get Return CType(Me(Me.tabletblSpeditionsbuchUnterPosArten.sbupa_idColumn),Integer) End Get Set Me(Me.tabletblSpeditionsbuchUnterPosArten.sbupa_idColumn) = value End Set End Property _ Public Property sbupa_bez() As String Get Return CType(Me(Me.tabletblSpeditionsbuchUnterPosArten.sbupa_bezColumn),String) End Get Set Me(Me.tabletblSpeditionsbuchUnterPosArten.sbupa_bezColumn) = value End Set End Property _ Public Property sbupa_Abfertigungsart() As Integer Get Try Return CType(Me(Me.tabletblSpeditionsbuchUnterPosArten.sbupa_AbfertigungsartColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sbupa_Abfertigungsart in Tabelle tblSpeditionsbuchUnterPosArt"& _ "en ist DBNull.", e) End Try End Get Set Me(Me.tabletblSpeditionsbuchUnterPosArten.sbupa_AbfertigungsartColumn) = value End Set End Property _ Public Function Issbupa_AbfertigungsartNull() As Boolean Return Me.IsNull(Me.tabletblSpeditionsbuchUnterPosArten.sbupa_AbfertigungsartColumn) End Function _ Public Sub Setsbupa_AbfertigungsartNull() Me(Me.tabletblSpeditionsbuchUnterPosArten.sbupa_AbfertigungsartColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblSteuernummernRow Inherits Global.System.Data.DataRow Private tabletblSteuernummern As tblSteuernummernDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblSteuernummern = CType(Me.Table,tblSteuernummernDataTable) End Sub _ Public Property AdressenNr() As Integer Get Return CType(Me(Me.tabletblSteuernummern.AdressenNrColumn),Integer) End Get Set Me(Me.tabletblSteuernummern.AdressenNrColumn) = value End Set End Property _ Public Property LandNr() As Short Get Return CType(Me(Me.tabletblSteuernummern.LandNrColumn),Short) End Get Set Me(Me.tabletblSteuernummern.LandNrColumn) = value End Set End Property _ Public Property StNrFürRückerstattungUSt() As String Get Try Return CType(Me(Me.tabletblSteuernummern.StNrFürRückerstattungUStColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StNrFürRückerstattungUSt in Tabelle tblSteuernummern ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblSteuernummern.StNrFürRückerstattungUStColumn) = value End Set End Property _ Public Property StNrGültigkeitsdatum() As Date Get Try Return CType(Me(Me.tabletblSteuernummern.StNrGültigkeitsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StNrGültigkeitsdatum in Tabelle tblSteuernummern ist DBNull.", e) End Try End Get Set Me(Me.tabletblSteuernummern.StNrGültigkeitsdatumColumn) = value End Set End Property _ Public Property UStV() As Boolean Get Return CType(Me(Me.tabletblSteuernummern.UStVColumn),Boolean) End Get Set Me(Me.tabletblSteuernummern.UStVColumn) = value End Set End Property _ Public Property VertretungsvollmachtAusgestelltAm() As Date Get Try Return CType(Me(Me.tabletblSteuernummern.VertretungsvollmachtAusgestelltAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VertretungsvollmachtAusgestelltAm in Tabelle tblSteuernummern"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblSteuernummern.VertretungsvollmachtAusgestelltAmColumn) = value End Set End Property _ Public Property VertretungsvollmachtErhaltenAm() As Date Get Try Return CType(Me(Me.tabletblSteuernummern.VertretungsvollmachtErhaltenAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VertretungsvollmachtErhaltenAm in Tabelle tblSteuernummern is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblSteuernummern.VertretungsvollmachtErhaltenAmColumn) = value End Set End Property _ Public Property AuszahlungsvollmachtAusgestelltAm() As Date Get Try Return CType(Me(Me.tabletblSteuernummern.AuszahlungsvollmachtAusgestelltAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AuszahlungsvollmachtAusgestelltAm in Tabelle tblSteuernummern"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblSteuernummern.AuszahlungsvollmachtAusgestelltAmColumn) = value End Set End Property _ Public Property AuszahlungsvollmachtErhaltenAm() As Date Get Try Return CType(Me(Me.tabletblSteuernummern.AuszahlungsvollmachtErhaltenAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AuszahlungsvollmachtErhaltenAm in Tabelle tblSteuernummern is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblSteuernummern.AuszahlungsvollmachtErhaltenAmColumn) = value End Set End Property _ Public Property Bemerkung() As String Get Try Return CType(Me(Me.tabletblSteuernummern.BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle tblSteuernummern ist DBNull.", e) End Try End Get Set Me(Me.tabletblSteuernummern.BemerkungColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblSteuernummern.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblSteuernummern ist DBNull.", e) End Try End Get Set Me(Me.tabletblSteuernummern.SSMA_TimeStampColumn) = value End Set End Property _ Public Property AdressenRow() As AdressenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblSteuernummern$AdressentblSteuernummern")),AdressenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblSteuernummern$AdressentblSteuernummern")) End Set End Property _ Public Property Länderverzeichnis_für_die_AußenhandelsstatistikRow() As Länderverzeichnis_für_die_AußenhandelsstatistikRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblSteuernummern$Länderverzeichnis für die AußenhandelsstatistiktblSteuernummern")),Länderverzeichnis_für_die_AußenhandelsstatistikRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblSteuernummern$Länderverzeichnis für die AußenhandelsstatistiktblSteuernummern")) End Set End Property _ Public Function IsStNrFürRückerstattungUStNull() As Boolean Return Me.IsNull(Me.tabletblSteuernummern.StNrFürRückerstattungUStColumn) End Function _ Public Sub SetStNrFürRückerstattungUStNull() Me(Me.tabletblSteuernummern.StNrFürRückerstattungUStColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStNrGültigkeitsdatumNull() As Boolean Return Me.IsNull(Me.tabletblSteuernummern.StNrGültigkeitsdatumColumn) End Function _ Public Sub SetStNrGültigkeitsdatumNull() Me(Me.tabletblSteuernummern.StNrGültigkeitsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVertretungsvollmachtAusgestelltAmNull() As Boolean Return Me.IsNull(Me.tabletblSteuernummern.VertretungsvollmachtAusgestelltAmColumn) End Function _ Public Sub SetVertretungsvollmachtAusgestelltAmNull() Me(Me.tabletblSteuernummern.VertretungsvollmachtAusgestelltAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVertretungsvollmachtErhaltenAmNull() As Boolean Return Me.IsNull(Me.tabletblSteuernummern.VertretungsvollmachtErhaltenAmColumn) End Function _ Public Sub SetVertretungsvollmachtErhaltenAmNull() Me(Me.tabletblSteuernummern.VertretungsvollmachtErhaltenAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAuszahlungsvollmachtAusgestelltAmNull() As Boolean Return Me.IsNull(Me.tabletblSteuernummern.AuszahlungsvollmachtAusgestelltAmColumn) End Function _ Public Sub SetAuszahlungsvollmachtAusgestelltAmNull() Me(Me.tabletblSteuernummern.AuszahlungsvollmachtAusgestelltAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAuszahlungsvollmachtErhaltenAmNull() As Boolean Return Me.IsNull(Me.tabletblSteuernummern.AuszahlungsvollmachtErhaltenAmColumn) End Function _ Public Sub SetAuszahlungsvollmachtErhaltenAmNull() Me(Me.tabletblSteuernummern.AuszahlungsvollmachtErhaltenAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungNull() As Boolean Return Me.IsNull(Me.tabletblSteuernummern.BemerkungColumn) End Function _ Public Sub SetBemerkungNull() Me(Me.tabletblSteuernummern.BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblSteuernummern.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblSteuernummern.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblSteuersätzeRow Inherits Global.System.Data.DataRow Private tabletblSteuersätze As tblSteuersätzeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblSteuersätze = CType(Me.Table,tblSteuersätzeDataTable) End Sub _ Public Property Nr() As Integer Get Return CType(Me(Me.tabletblSteuersätze.NrColumn),Integer) End Get Set Me(Me.tabletblSteuersätze.NrColumn) = value End Set End Property _ Public Property Bez() As String Get Return CType(Me(Me.tabletblSteuersätze.BezColumn),String) End Get Set Me(Me.tabletblSteuersätze.BezColumn) = value End Set End Property _ Public Property Beschreibung() As String Get Return CType(Me(Me.tabletblSteuersätze.BeschreibungColumn),String) End Get Set Me(Me.tabletblSteuersätze.BeschreibungColumn) = value End Set End Property _ Public Property Steuersatz() As Double Get Return CType(Me(Me.tabletblSteuersätze.SteuersatzColumn),Double) End Get Set Me(Me.tabletblSteuersätze.SteuersatzColumn) = value End Set End Property _ Public Property Berechnungsmethode() As Integer Get Try Return CType(Me(Me.tabletblSteuersätze.BerechnungsmethodeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berechnungsmethode in Tabelle tblSteuersätze ist DBNull.", e) End Try End Get Set Me(Me.tabletblSteuersätze.BerechnungsmethodeColumn) = value End Set End Property _ Public Property Steuertyp() As Integer Get Try Return CType(Me(Me.tabletblSteuersätze.SteuertypColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuertyp in Tabelle tblSteuersätze ist DBNull.", e) End Try End Get Set Me(Me.tabletblSteuersätze.SteuertypColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblSteuersätze.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblSteuersätze ist DBNull.", e) End Try End Get Set Me(Me.tabletblSteuersätze.SSMA_TimeStampColumn) = value End Set End Property _ Public Property tblSteuertypRow() As tblSteuertypRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblSteuersätze${3334C686-1593-4561-99E6-824AA652DDAB}")),tblSteuertypRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblSteuersätze${3334C686-1593-4561-99E6-824AA652DDAB}")) End Set End Property _ Public Property tblBerechnungsmethodeRow() As tblBerechnungsmethodeRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblSteuersätze${BC888FF9-57C1-4308-AE4D-435AEB9FE6A5}")),tblBerechnungsmethodeRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblSteuersätze${BC888FF9-57C1-4308-AE4D-435AEB9FE6A5}")) End Set End Property _ Public Function IsBerechnungsmethodeNull() As Boolean Return Me.IsNull(Me.tabletblSteuersätze.BerechnungsmethodeColumn) End Function _ Public Sub SetBerechnungsmethodeNull() Me(Me.tabletblSteuersätze.BerechnungsmethodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuertypNull() As Boolean Return Me.IsNull(Me.tabletblSteuersätze.SteuertypColumn) End Function _ Public Sub SetSteuertypNull() Me(Me.tabletblSteuersätze.SteuertypColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblSteuersätze.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblSteuersätze.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblKontoRows() As tblKontoRow() If (Me.Table.ChildRelations("tblKonto${C2FF3095-6D95-4263-9D51-CD3DEDA1AB7B}") Is Nothing) Then Return New tblKontoRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblKonto${C2FF3095-6D95-4263-9D51-CD3DEDA1AB7B}")),tblKontoRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblSteuertypRow Inherits Global.System.Data.DataRow Private tabletblSteuertyp As tblSteuertypDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblSteuertyp = CType(Me.Table,tblSteuertypDataTable) End Sub _ Public Property Nr() As Integer Get Return CType(Me(Me.tabletblSteuertyp.NrColumn),Integer) End Get Set Me(Me.tabletblSteuertyp.NrColumn) = value End Set End Property _ Public Property Bez() As String Get Return CType(Me(Me.tabletblSteuertyp.BezColumn),String) End Get Set Me(Me.tabletblSteuertyp.BezColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblSteuertyp.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblSteuertyp ist DBNull.", e) End Try End Get Set Me(Me.tabletblSteuertyp.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblSteuertyp.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblSteuertyp.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblSteuersätzeRows() As tblSteuersätzeRow() If (Me.Table.ChildRelations("tblSteuersätze${3334C686-1593-4561-99E6-824AA652DDAB}") Is Nothing) Then Return New tblSteuersätzeRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblSteuersätze${3334C686-1593-4561-99E6-824AA652DDAB}")),tblSteuersätzeRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTelotec_AbgabenRow Inherits Global.System.Data.DataRow Private tabletblTelotec_Abgaben As tblTelotec_AbgabenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTelotec_Abgaben = CType(Me.Table,tblTelotec_AbgabenDataTable) End Sub _ Public Property telAbg_id() As Integer Get Return CType(Me(Me.tabletblTelotec_Abgaben.telAbg_idColumn),Integer) End Get Set Me(Me.tabletblTelotec_Abgaben.telAbg_idColumn) = value End Set End Property _ Public Property telAbg_telanmId() As Integer Get Return CType(Me(Me.tabletblTelotec_Abgaben.telAbg_telanmIdColumn),Integer) End Get Set Me(Me.tabletblTelotec_Abgaben.telAbg_telanmIdColumn) = value End Set End Property _ Public Property Mandant_ID() As String Get Return CType(Me(Me.tabletblTelotec_Abgaben.Mandant_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Abgaben.Mandant_IDColumn) = value End Set End Property _ Public Property Bereich_ID() As String Get Return CType(Me(Me.tabletblTelotec_Abgaben.Bereich_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Abgaben.Bereich_IDColumn) = value End Set End Property _ Public Property Referenz_ID() As String Get Return CType(Me(Me.tabletblTelotec_Abgaben.Referenz_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Abgaben.Referenz_IDColumn) = value End Set End Property _ Public Property ComIndicator() As Boolean Get Return CType(Me(Me.tabletblTelotec_Abgaben.ComIndicatorColumn),Boolean) End Get Set Me(Me.tabletblTelotec_Abgaben.ComIndicatorColumn) = value End Set End Property _ Public Property TotDuties_ID() As Integer Get Return CType(Me(Me.tabletblTelotec_Abgaben.TotDuties_IDColumn),Integer) End Get Set Me(Me.tabletblTelotec_Abgaben.TotDuties_IDColumn) = value End Set End Property _ Public Property Ty() As String Get Try Return CType(Me(Me.tabletblTelotec_Abgaben.TyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ty in Tabelle tblTelotec_Abgaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Abgaben.TyColumn) = value End Set End Property _ Public Property Amnt() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Abgaben.AmntColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Amnt in Tabelle tblTelotec_Abgaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Abgaben.AmntColumn) = value End Set End Property _ Public Property TyInd() As String Get Try Return CType(Me(Me.tabletblTelotec_Abgaben.TyIndColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TyInd in Tabelle tblTelotec_Abgaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Abgaben.TyIndColumn) = value End Set End Property _ Public Property Erstelldatum() As Date Get Try Return CType(Me(Me.tabletblTelotec_Abgaben.ErstelldatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstelldatum in Tabelle tblTelotec_Abgaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Abgaben.ErstelldatumColumn) = value End Set End Property _ Public Function IsTyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Abgaben.TyColumn) End Function _ Public Sub SetTyNull() Me(Me.tabletblTelotec_Abgaben.TyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAmntNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Abgaben.AmntColumn) End Function _ Public Sub SetAmntNull() Me(Me.tabletblTelotec_Abgaben.AmntColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTyIndNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Abgaben.TyIndColumn) End Function _ Public Sub SetTyIndNull() Me(Me.tabletblTelotec_Abgaben.TyIndColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErstelldatumNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Abgaben.ErstelldatumColumn) End Function _ Public Sub SetErstelldatumNull() Me(Me.tabletblTelotec_Abgaben.ErstelldatumColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTelotec_AnmeldungRow Inherits Global.System.Data.DataRow Private tabletblTelotec_Anmeldung As tblTelotec_AnmeldungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTelotec_Anmeldung = CType(Me.Table,tblTelotec_AnmeldungDataTable) End Sub _ Public Property telanm_id() As Integer Get Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_idColumn),Integer) End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_idColumn) = value End Set End Property _ Public Property telanm_ART() As String Get Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_ARTColumn),String) End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_ARTColumn) = value End Set End Property _ Public Property telanm_BezugsNr() As String Get Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_BezugsNrColumn),String) End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_BezugsNrColumn) = value End Set End Property _ Public Property telanm_Status() As Integer Get Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_StatusColumn),Integer) End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_StatusColumn) = value End Set End Property _ Public Property telanm_Status_KEWILL_Equivalent() As Integer Get Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_Status_KEWILL_EquivalentColumn),Integer) End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_Status_KEWILL_EquivalentColumn) = value End Set End Property _ Public Property telanm_AvisoId() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_AvisoIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_AvisoId in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_AvisoIdColumn) = value End Set End Property _ Public Property telanm_SendungsId() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_SendungsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_SendungsId in Tabelle tblTelotec_Anmeldung ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_SendungsIdColumn) = value End Set End Property _ Public Property telanm_Steuerbescheid_dsId() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_Steuerbescheid_dsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_Steuerbescheid_dsId in Tabelle tblTelotec_Anmeldung is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_Steuerbescheid_dsIdColumn) = value End Set End Property _ Public Property telanm_Mitteilung_dsId() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_Mitteilung_dsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_Mitteilung_dsId in Tabelle tblTelotec_Anmeldung ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_Mitteilung_dsIdColumn) = value End Set End Property _ Public Property telanm_VBD_dsId() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_VBD_dsIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_VBD_dsId in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_VBD_dsIdColumn) = value End Set End Property _ Public Property telanm_LNR() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_LNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_LNR in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_LNRColumn) = value End Set End Property _ Public Property telanm_CRN() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_CRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_CRN in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_CRNColumn) = value End Set End Property _ Public Property telanm_Erstellung() As Date Get Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_ErstellungColumn),Date) End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_ErstellungColumn) = value End Set End Property _ Public Property telanm_Erstellung_SB() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_Erstellung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_Erstellung_SB in Tabelle tblTelotec_Anmeldung ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_Erstellung_SBColumn) = value End Set End Property _ Public Property telanm_LetzteBearbeitung() As Date Get Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_LetzteBearbeitungColumn),Date) End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_LetzteBearbeitungColumn) = value End Set End Property _ Public Property telanm_LetzteBearbeitung_SB() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_LetzteBearbeitung_SBColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_LetzteBearbeitung_SB in Tabelle tblTelotec_Anmeldung i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_LetzteBearbeitung_SBColumn) = value End Set End Property _ Public Property telanm_firma() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_firmaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_firma in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_firmaColumn) = value End Set End Property _ Public Property telanm_niederlassung() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.telanm_niederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte telanm_niederlassung in Tabelle tblTelotec_Anmeldung ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.telanm_niederlassungColumn) = value End Set End Property _ Public Property Mandant_ID() As String Get Return CType(Me(Me.tabletblTelotec_Anmeldung.Mandant_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Anmeldung.Mandant_IDColumn) = value End Set End Property _ Public Property Bereich_ID() As String Get Return CType(Me(Me.tabletblTelotec_Anmeldung.Bereich_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Anmeldung.Bereich_IDColumn) = value End Set End Property _ Public Property Referenz_ID() As String Get Return CType(Me(Me.tabletblTelotec_Anmeldung.Referenz_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Anmeldung.Referenz_IDColumn) = value End Set End Property _ Public Property ComIndicator() As Boolean Get Return CType(Me(Me.tabletblTelotec_Anmeldung.ComIndicatorColumn),Boolean) End Get Set Me(Me.tabletblTelotec_Anmeldung.ComIndicatorColumn) = value End Set End Property _ Public Property TransferStatus() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.TransferStatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TransferStatus in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.TransferStatusColumn) = value End Set End Property _ Public Property MsgType() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.MsgTypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MsgType in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.MsgTypeColumn) = value End Set End Property _ Public Property dec_ProzessArt() As String Get Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_ProzessArtColumn),String) End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_ProzessArtColumn) = value End Set End Property _ Public Property dec_Anmelde_ID() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_Anmelde_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dec_Anmelde_ID in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_Anmelde_IDColumn) = value End Set End Property _ Public Property dec_Template_ID() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_Template_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dec_Template_ID in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_Template_IDColumn) = value End Set End Property _ Public Property dec_Lager_ID() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_Lager_IDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dec_Lager_ID in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_Lager_IDColumn) = value End Set End Property _ Public Property dec_Lag_IND() As Boolean Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_Lag_INDColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dec_Lag_IND in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_Lag_INDColumn) = value End Set End Property _ Public Property dec_CreateDate() As Date Get Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_CreateDateColumn),Date) End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_CreateDateColumn) = value End Set End Property _ Public Property dec_CreatePersonalID() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_CreatePersonalIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dec_CreatePersonalID in Tabelle tblTelotec_Anmeldung ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_CreatePersonalIDColumn) = value End Set End Property _ Public Property dec_PreDec_IND() As Boolean Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_PreDec_INDColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dec_PreDec_IND in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_PreDec_INDColumn) = value End Set End Property _ Public Property dec_TotNet() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_TotNetColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dec_TotNet in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_TotNetColumn) = value End Set End Property _ Public Property dec_TotNetSplit_IND() As Boolean Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_TotNetSplit_INDColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dec_TotNetSplit_IND in Tabelle tblTelotec_Anmeldung ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_TotNetSplit_INDColumn) = value End Set End Property _ Public Property dec_FillPackList_IND() As Boolean Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_FillPackList_INDColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dec_FillPackList_IND in Tabelle tblTelotec_Anmeldung ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_FillPackList_INDColumn) = value End Set End Property _ Public Property dec_Memo() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.dec_MemoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dec_Memo in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.dec_MemoColumn) = value End Set End Property _ Public Property Refs_LRN() As String Get Return CType(Me(Me.tabletblTelotec_Anmeldung.Refs_LRNColumn),String) End Get Set Me(Me.tabletblTelotec_Anmeldung.Refs_LRNColumn) = value End Set End Property _ Public Property Refs_CRN() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Refs_CRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Refs_CRN in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Refs_CRNColumn) = value End Set End Property _ Public Property Refs_CSRN() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Refs_CSRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Refs_CSRN in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Refs_CSRNColumn) = value End Set End Property _ Public Property Refs_ERN() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Refs_ERNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Refs_ERN in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Refs_ERNColumn) = value End Set End Property _ Public Property Refs_FRN() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Refs_FRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Refs_FRN in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Refs_FRNColumn) = value End Set End Property _ Public Property Refs_Stat() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Refs_StatColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Refs_Stat in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Refs_StatColumn) = value End Set End Property _ Public Property Hea_DecTy() As String Get Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_DecTyColumn),String) End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_DecTyColumn) = value End Set End Property _ Public Property Hea_TotItem() As Integer Get Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_TotItemColumn),Integer) End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_TotItemColumn) = value End Set End Property _ Public Property Hea_TotPack() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_TotPackColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_TotPack in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_TotPackColumn) = value End Set End Property _ Public Property Hea_TotGross() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_TotGrossColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_TotGross in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_TotGrossColumn) = value End Set End Property _ Public Property Hea_DepLNG() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_DepLNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_DepLNG in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_DepLNGColumn) = value End Set End Property _ Public Property Hea_DestLNG() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_DestLNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_DestLNG in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_DestLNGColumn) = value End Set End Property _ Public Property Hea_PayTy() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_PayTyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_PayTy in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_PayTyColumn) = value End Set End Property _ Public Property Hea_DefPayRef() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_DefPayRefColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_DefPayRef in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_DefPayRefColumn) = value End Set End Property _ Public Property Hea_PerPayRef() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_PerPayRefColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_PerPayRef in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_PerPayRefColumn) = value End Set End Property _ Public Property Hea_PayMet() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_PayMetColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_PayMet in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_PayMetColumn) = value End Set End Property _ Public Property Hea_AExpRef() As Boolean Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_AExpRefColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_AExpRef in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_AExpRefColumn) = value End Set End Property _ Public Property Hea_Fin() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_FinColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_Fin in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_FinColumn) = value End Set End Property _ Public Property Hea_Simp() As Boolean Get Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_SimpColumn),Boolean) End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_SimpColumn) = value End Set End Property _ Public Property Hea_IssD() As Date Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_IssDColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_IssD in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_IssDColumn) = value End Set End Property _ Public Property Hea_AuthID() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_AuthIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_AuthID in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_AuthIDColumn) = value End Set End Property _ Public Property Hea_TransDat() As Boolean Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_TransDatColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_TransDat in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_TransDatColumn) = value End Set End Property _ Public Property Hea_WoffD() As Date Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_WoffDColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_WoffD in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_WoffDColumn) = value End Set End Property _ Public Property Hea_DecDT() As Date Get Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_DecDTColumn),Date) End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_DecDTColumn) = value End Set End Property _ Public Property Hea_DecPlc() As String Get Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_DecPlcColumn),String) End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_DecPlcColumn) = value End Set End Property _ Public Property Hea_AccDT() As Date Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_AccDTColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_AccDT in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_AccDTColumn) = value End Set End Property _ Public Property Hea_SecInd() As Boolean Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_SecIndColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_SecInd in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_SecIndColumn) = value End Set End Property _ Public Property Hea_ComRef() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_ComRefColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_ComRef in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_ComRefColumn) = value End Set End Property _ Public Property Hea_ProArrDT() As Date Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_ProArrDTColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_ProArrDT in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_ProArrDTColumn) = value End Set End Property _ Public Property Hea_PlaDepDT() As Date Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Hea_PlaDepDTColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hea_PlaDepDT in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Hea_PlaDepDTColumn) = value End Set End Property _ Public Property Locs_TradCtry() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_TradCtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_TradCtry in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_TradCtryColumn) = value End Set End Property _ Public Property Locs_Disp() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_DispColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_Disp in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_DispColumn) = value End Set End Property _ Public Property Locs_Dest() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_DestColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_Dest in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_DestColumn) = value End Set End Property _ Public Property Locs_GdsLocCd() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_GdsLocCdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_GdsLocCd in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_GdsLocCdColumn) = value End Set End Property _ Public Property Locs_GdsLoc() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_GdsLocColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_GdsLoc in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_GdsLocColumn) = value End Set End Property _ Public Property Locs_GdsLocAuth() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_GdsLocAuthColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_GdsLocAuth in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_GdsLocAuthColumn) = value End Set End Property _ Public Property Locs_LoadPlcCd() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_LoadPlcCdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_LoadPlcCd in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_LoadPlcCdColumn) = value End Set End Property _ Public Property Locs_LoadPlc() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_LoadPlcColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_LoadPlc in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_LoadPlcColumn) = value End Set End Property _ Public Property Locs_CustPlc() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_CustPlcColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_CustPlc in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_CustPlcColumn) = value End Set End Property _ Public Property Locs_ArrLocCd() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_ArrLocCdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_ArrLocCd in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_ArrLocCdColumn) = value End Set End Property _ Public Property Locs_ArrLoc() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_ArrLocColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_ArrLoc in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_ArrLocColumn) = value End Set End Property _ Public Property Locs_ArrLocAuth() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_ArrLocAuthColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_ArrLocAuth in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_ArrLocAuthColumn) = value End Set End Property _ Public Property Locs_WarTy() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_WarTyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_WarTy in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_WarTyColumn) = value End Set End Property _ Public Property Locs_WarCtry() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_WarCtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_WarCtry in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_WarCtryColumn) = value End Set End Property _ Public Property Locs_War() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Locs_WarColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Locs_War in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Locs_WarColumn) = value End Set End Property _ Public Property Transp_InMo() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Transp_InMoColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transp_InMo in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Transp_InMoColumn) = value End Set End Property _ Public Property Transp_BordMo() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Transp_BordMoColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transp_BordMo in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Transp_BordMoColumn) = value End Set End Property _ Public Property Transp_DepTy() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Transp_DepTyColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transp_DepTy in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Transp_DepTyColumn) = value End Set End Property _ Public Property Transp_DepIdnt() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Transp_DepIdntColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transp_DepIdnt in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Transp_DepIdntColumn) = value End Set End Property _ Public Property Transp_DepNat() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Transp_DepNatColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transp_DepNat in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Transp_DepNatColumn) = value End Set End Property _ Public Property Transp_CrossTy() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Transp_CrossTyColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transp_CrossTy in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Transp_CrossTyColumn) = value End Set End Property _ Public Property Transp_CrossIdnt() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Transp_CrossIdntColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transp_CrossIdnt in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Transp_CrossIdntColumn) = value End Set End Property _ Public Property Transp_CrossIdntNat() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Transp_CrossIdntNatColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transp_CrossIdntNat in Tabelle tblTelotec_Anmeldung ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Transp_CrossIdntNatColumn) = value End Set End Property _ Public Property Transp_ContInd() As Boolean Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Transp_ContIndColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Transp_ContInd in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Transp_ContIndColumn) = value End Set End Property _ Public Property ValData_TermDelCd() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ValData_TermDelCdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ValData_TermDelCd in Tabelle tblTelotec_Anmeldung ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ValData_TermDelCdColumn) = value End Set End Property _ Public Property ValData_TermDelPlc() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ValData_TermDelPlcColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ValData_TermDelPlc in Tabelle tblTelotec_Anmeldung ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ValData_TermDelPlcColumn) = value End Set End Property _ Public Property ValData_TermDelSit() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ValData_TermDelSitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ValData_TermDelSit in Tabelle tblTelotec_Anmeldung ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ValData_TermDelSitColumn) = value End Set End Property _ Public Property ValData_InvCurr() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ValData_InvCurrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ValData_InvCurr in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ValData_InvCurrColumn) = value End Set End Property _ Public Property ValData_ExRa() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ValData_ExRaColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ValData_ExRa in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ValData_ExRaColumn) = value End Set End Property _ Public Property ValData_InvVal() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ValData_InvValColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ValData_InvVal in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ValData_InvValColumn) = value End Set End Property _ Public Property ValData_TransacCd() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ValData_TransacCdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ValData_TransacCd in Tabelle tblTelotec_Anmeldung ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ValData_TransacCdColumn) = value End Set End Property _ Public Property ConorTra_Na() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConorTra_NaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConorTra_Na in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConorTra_NaColumn) = value End Set End Property _ Public Property ConorTra_Strt() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConorTra_StrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConorTra_Strt in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConorTra_StrtColumn) = value End Set End Property _ Public Property ConorTra_Pst() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConorTra_PstColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConorTra_Pst in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConorTra_PstColumn) = value End Set End Property _ Public Property ConorTra_Cty() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConorTra_CtyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConorTra_Cty in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConorTra_CtyColumn) = value End Set End Property _ Public Property ConorTra_Ctry() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConorTra_CtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConorTra_Ctry in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConorTra_CtryColumn) = value End Set End Property _ Public Property ConorTra_TIN() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConorTra_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConorTra_TIN in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConorTra_TINColumn) = value End Set End Property _ Public Property ConorTra_UIDCtry() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConorTra_UIDCtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConorTra_UIDCtry in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConorTra_UIDCtryColumn) = value End Set End Property _ Public Property ConorTra_UID() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConorTra_UIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConorTra_UID in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConorTra_UIDColumn) = value End Set End Property _ Public Property ConeeTra_Na() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConeeTra_NaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConeeTra_Na in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConeeTra_NaColumn) = value End Set End Property _ Public Property ConeeTra_Strt() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConeeTra_StrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConeeTra_Strt in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConeeTra_StrtColumn) = value End Set End Property _ Public Property ConeeTra_Pst() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConeeTra_PstColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConeeTra_Pst in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConeeTra_PstColumn) = value End Set End Property _ Public Property ConeeTra_Cty() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConeeTra_CtyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConeeTra_Cty in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConeeTra_CtyColumn) = value End Set End Property _ Public Property ConeeTra_Ctry() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConeeTra_CtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConeeTra_Ctry in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConeeTra_CtryColumn) = value End Set End Property _ Public Property ConeeTra_TIN() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConeeTra_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConeeTra_TIN in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConeeTra_TINColumn) = value End Set End Property _ Public Property ConeeTra_UIDCtry() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConeeTra_UIDCtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConeeTra_UIDCtry in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConeeTra_UIDCtryColumn) = value End Set End Property _ Public Property ConeeTra_UID() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ConeeTra_UIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ConeeTra_UID in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ConeeTra_UIDColumn) = value End Set End Property _ Public Property ExpTra_Na() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ExpTra_NaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExpTra_Na in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ExpTra_NaColumn) = value End Set End Property _ Public Property ExpTra_Strt() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ExpTra_StrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExpTra_Strt in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ExpTra_StrtColumn) = value End Set End Property _ Public Property ExpTra_Pst() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ExpTra_PstColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExpTra_Pst in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ExpTra_PstColumn) = value End Set End Property _ Public Property ExpTra_Cty() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ExpTra_CtyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExpTra_Cty in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ExpTra_CtyColumn) = value End Set End Property _ Public Property ExpTra_Ctry() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ExpTra_CtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExpTra_Ctry in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ExpTra_CtryColumn) = value End Set End Property _ Public Property ExpTra_TIN() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ExpTra_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExpTra_TIN in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ExpTra_TINColumn) = value End Set End Property _ Public Property ExpTra_UIDCtry() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ExpTra_UIDCtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExpTra_UIDCtry in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ExpTra_UIDCtryColumn) = value End Set End Property _ Public Property ExpTra_UID() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ExpTra_UIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExpTra_UID in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ExpTra_UIDColumn) = value End Set End Property _ Public Property Declarant_Na() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Declarant_NaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Declarant_Na in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Declarant_NaColumn) = value End Set End Property _ Public Property Declarant_Strt() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Declarant_StrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Declarant_Strt in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Declarant_StrtColumn) = value End Set End Property _ Public Property Declarant_Pst() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Declarant_PstColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Declarant_Pst in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Declarant_PstColumn) = value End Set End Property _ Public Property Declarant_Cty() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Declarant_CtyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Declarant_Cty in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Declarant_CtyColumn) = value End Set End Property _ Public Property Declarant_Ctry() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Declarant_CtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Declarant_Ctry in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Declarant_CtryColumn) = value End Set End Property _ Public Property Declarant_TIN() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Declarant_TINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Declarant_TIN in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Declarant_TINColumn) = value End Set End Property _ Public Property Declarant_UIDCtry() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Declarant_UIDCtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Declarant_UIDCtry in Tabelle tblTelotec_Anmeldung ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Declarant_UIDCtryColumn) = value End Set End Property _ Public Property Declarant_UID() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Declarant_UIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Declarant_UID in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Declarant_UIDColumn) = value End Set End Property _ Public Property Declarant_DecRep() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Declarant_DecRepColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Declarant_DecRep in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Declarant_DecRepColumn) = value End Set End Property _ Public Property Represent_RIN() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Represent_RINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Represent_RIN in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Represent_RINColumn) = value End Set End Property _ Public Property Represent_Na() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.Represent_NaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Represent_Na in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.Represent_NaColumn) = value End Set End Property _ Public Property EntryCO_Ref() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.EntryCO_RefColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EntryCO_Ref in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.EntryCO_RefColumn) = value End Set End Property _ Public Property ExitCO_Ref() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.ExitCO_RefColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExitCO_Ref in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.ExitCO_RefColumn) = value End Set End Property _ Public Property SurvCO_Ref() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.SurvCO_RefColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SurvCO_Ref in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.SurvCO_RefColumn) = value End Set End Property _ Public Property DestCO_Ref() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.DestCO_RefColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DestCO_Ref in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.DestCO_RefColumn) = value End Set End Property _ Public Property PresCO_Ref() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.PresCO_RefColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PresCO_Ref in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.PresCO_RefColumn) = value End Set End Property _ Public Property DepCO_Ref() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.DepCO_RefColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DepCO_Ref in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.DepCO_RefColumn) = value End Set End Property _ Public Property CtrlRslt_ResCd() As String Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.CtrlRslt_ResCdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CtrlRslt_ResCd in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.CtrlRslt_ResCdColumn) = value End Set End Property _ Public Property CtrlRslt_DLimit() As Date Get Try Return CType(Me(Me.tabletblTelotec_Anmeldung.CtrlRslt_DLimitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CtrlRslt_DLimit in Tabelle tblTelotec_Anmeldung ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Anmeldung.CtrlRslt_DLimitColumn) = value End Set End Property _ Public Property telnam_aktuellsteNachricht() As Boolean Get Return CType(Me(Me.tabletblTelotec_Anmeldung.telnam_aktuellsteNachrichtColumn),Boolean) End Get Set Me(Me.tabletblTelotec_Anmeldung.telnam_aktuellsteNachrichtColumn) = value End Set End Property _ Public Function Istelanm_AvisoIdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_AvisoIdColumn) End Function _ Public Sub Settelanm_AvisoIdNull() Me(Me.tabletblTelotec_Anmeldung.telanm_AvisoIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istelanm_SendungsIdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_SendungsIdColumn) End Function _ Public Sub Settelanm_SendungsIdNull() Me(Me.tabletblTelotec_Anmeldung.telanm_SendungsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istelanm_Steuerbescheid_dsIdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_Steuerbescheid_dsIdColumn) End Function _ Public Sub Settelanm_Steuerbescheid_dsIdNull() Me(Me.tabletblTelotec_Anmeldung.telanm_Steuerbescheid_dsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istelanm_Mitteilung_dsIdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_Mitteilung_dsIdColumn) End Function _ Public Sub Settelanm_Mitteilung_dsIdNull() Me(Me.tabletblTelotec_Anmeldung.telanm_Mitteilung_dsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istelanm_VBD_dsIdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_VBD_dsIdColumn) End Function _ Public Sub Settelanm_VBD_dsIdNull() Me(Me.tabletblTelotec_Anmeldung.telanm_VBD_dsIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istelanm_LNRNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_LNRColumn) End Function _ Public Sub Settelanm_LNRNull() Me(Me.tabletblTelotec_Anmeldung.telanm_LNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istelanm_CRNNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_CRNColumn) End Function _ Public Sub Settelanm_CRNNull() Me(Me.tabletblTelotec_Anmeldung.telanm_CRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istelanm_Erstellung_SBNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_Erstellung_SBColumn) End Function _ Public Sub Settelanm_Erstellung_SBNull() Me(Me.tabletblTelotec_Anmeldung.telanm_Erstellung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istelanm_LetzteBearbeitung_SBNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_LetzteBearbeitung_SBColumn) End Function _ Public Sub Settelanm_LetzteBearbeitung_SBNull() Me(Me.tabletblTelotec_Anmeldung.telanm_LetzteBearbeitung_SBColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istelanm_firmaNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_firmaColumn) End Function _ Public Sub Settelanm_firmaNull() Me(Me.tabletblTelotec_Anmeldung.telanm_firmaColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istelanm_niederlassungNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.telanm_niederlassungColumn) End Function _ Public Sub Settelanm_niederlassungNull() Me(Me.tabletblTelotec_Anmeldung.telanm_niederlassungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransferStatusNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.TransferStatusColumn) End Function _ Public Sub SetTransferStatusNull() Me(Me.tabletblTelotec_Anmeldung.TransferStatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMsgTypeNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.MsgTypeColumn) End Function _ Public Sub SetMsgTypeNull() Me(Me.tabletblTelotec_Anmeldung.MsgTypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdec_Anmelde_IDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.dec_Anmelde_IDColumn) End Function _ Public Sub Setdec_Anmelde_IDNull() Me(Me.tabletblTelotec_Anmeldung.dec_Anmelde_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdec_Template_IDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.dec_Template_IDColumn) End Function _ Public Sub Setdec_Template_IDNull() Me(Me.tabletblTelotec_Anmeldung.dec_Template_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdec_Lager_IDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.dec_Lager_IDColumn) End Function _ Public Sub Setdec_Lager_IDNull() Me(Me.tabletblTelotec_Anmeldung.dec_Lager_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdec_Lag_INDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.dec_Lag_INDColumn) End Function _ Public Sub Setdec_Lag_INDNull() Me(Me.tabletblTelotec_Anmeldung.dec_Lag_INDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdec_CreatePersonalIDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.dec_CreatePersonalIDColumn) End Function _ Public Sub Setdec_CreatePersonalIDNull() Me(Me.tabletblTelotec_Anmeldung.dec_CreatePersonalIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdec_PreDec_INDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.dec_PreDec_INDColumn) End Function _ Public Sub Setdec_PreDec_INDNull() Me(Me.tabletblTelotec_Anmeldung.dec_PreDec_INDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdec_TotNetNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.dec_TotNetColumn) End Function _ Public Sub Setdec_TotNetNull() Me(Me.tabletblTelotec_Anmeldung.dec_TotNetColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdec_TotNetSplit_INDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.dec_TotNetSplit_INDColumn) End Function _ Public Sub Setdec_TotNetSplit_INDNull() Me(Me.tabletblTelotec_Anmeldung.dec_TotNetSplit_INDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdec_FillPackList_INDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.dec_FillPackList_INDColumn) End Function _ Public Sub Setdec_FillPackList_INDNull() Me(Me.tabletblTelotec_Anmeldung.dec_FillPackList_INDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isdec_MemoNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.dec_MemoColumn) End Function _ Public Sub Setdec_MemoNull() Me(Me.tabletblTelotec_Anmeldung.dec_MemoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefs_CRNNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Refs_CRNColumn) End Function _ Public Sub SetRefs_CRNNull() Me(Me.tabletblTelotec_Anmeldung.Refs_CRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefs_CSRNNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Refs_CSRNColumn) End Function _ Public Sub SetRefs_CSRNNull() Me(Me.tabletblTelotec_Anmeldung.Refs_CSRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefs_ERNNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Refs_ERNColumn) End Function _ Public Sub SetRefs_ERNNull() Me(Me.tabletblTelotec_Anmeldung.Refs_ERNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefs_FRNNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Refs_FRNColumn) End Function _ Public Sub SetRefs_FRNNull() Me(Me.tabletblTelotec_Anmeldung.Refs_FRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefs_StatNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Refs_StatColumn) End Function _ Public Sub SetRefs_StatNull() Me(Me.tabletblTelotec_Anmeldung.Refs_StatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_TotPackNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_TotPackColumn) End Function _ Public Sub SetHea_TotPackNull() Me(Me.tabletblTelotec_Anmeldung.Hea_TotPackColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_TotGrossNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_TotGrossColumn) End Function _ Public Sub SetHea_TotGrossNull() Me(Me.tabletblTelotec_Anmeldung.Hea_TotGrossColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_DepLNGNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_DepLNGColumn) End Function _ Public Sub SetHea_DepLNGNull() Me(Me.tabletblTelotec_Anmeldung.Hea_DepLNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_DestLNGNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_DestLNGColumn) End Function _ Public Sub SetHea_DestLNGNull() Me(Me.tabletblTelotec_Anmeldung.Hea_DestLNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_PayTyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_PayTyColumn) End Function _ Public Sub SetHea_PayTyNull() Me(Me.tabletblTelotec_Anmeldung.Hea_PayTyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_DefPayRefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_DefPayRefColumn) End Function _ Public Sub SetHea_DefPayRefNull() Me(Me.tabletblTelotec_Anmeldung.Hea_DefPayRefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_PerPayRefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_PerPayRefColumn) End Function _ Public Sub SetHea_PerPayRefNull() Me(Me.tabletblTelotec_Anmeldung.Hea_PerPayRefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_PayMetNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_PayMetColumn) End Function _ Public Sub SetHea_PayMetNull() Me(Me.tabletblTelotec_Anmeldung.Hea_PayMetColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_AExpRefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_AExpRefColumn) End Function _ Public Sub SetHea_AExpRefNull() Me(Me.tabletblTelotec_Anmeldung.Hea_AExpRefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_FinNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_FinColumn) End Function _ Public Sub SetHea_FinNull() Me(Me.tabletblTelotec_Anmeldung.Hea_FinColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_IssDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_IssDColumn) End Function _ Public Sub SetHea_IssDNull() Me(Me.tabletblTelotec_Anmeldung.Hea_IssDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_AuthIDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_AuthIDColumn) End Function _ Public Sub SetHea_AuthIDNull() Me(Me.tabletblTelotec_Anmeldung.Hea_AuthIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_TransDatNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_TransDatColumn) End Function _ Public Sub SetHea_TransDatNull() Me(Me.tabletblTelotec_Anmeldung.Hea_TransDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_WoffDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_WoffDColumn) End Function _ Public Sub SetHea_WoffDNull() Me(Me.tabletblTelotec_Anmeldung.Hea_WoffDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_AccDTNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_AccDTColumn) End Function _ Public Sub SetHea_AccDTNull() Me(Me.tabletblTelotec_Anmeldung.Hea_AccDTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_SecIndNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_SecIndColumn) End Function _ Public Sub SetHea_SecIndNull() Me(Me.tabletblTelotec_Anmeldung.Hea_SecIndColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_ComRefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_ComRefColumn) End Function _ Public Sub SetHea_ComRefNull() Me(Me.tabletblTelotec_Anmeldung.Hea_ComRefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_ProArrDTNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_ProArrDTColumn) End Function _ Public Sub SetHea_ProArrDTNull() Me(Me.tabletblTelotec_Anmeldung.Hea_ProArrDTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHea_PlaDepDTNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Hea_PlaDepDTColumn) End Function _ Public Sub SetHea_PlaDepDTNull() Me(Me.tabletblTelotec_Anmeldung.Hea_PlaDepDTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_TradCtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_TradCtryColumn) End Function _ Public Sub SetLocs_TradCtryNull() Me(Me.tabletblTelotec_Anmeldung.Locs_TradCtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_DispNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_DispColumn) End Function _ Public Sub SetLocs_DispNull() Me(Me.tabletblTelotec_Anmeldung.Locs_DispColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_DestNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_DestColumn) End Function _ Public Sub SetLocs_DestNull() Me(Me.tabletblTelotec_Anmeldung.Locs_DestColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_GdsLocCdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_GdsLocCdColumn) End Function _ Public Sub SetLocs_GdsLocCdNull() Me(Me.tabletblTelotec_Anmeldung.Locs_GdsLocCdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_GdsLocNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_GdsLocColumn) End Function _ Public Sub SetLocs_GdsLocNull() Me(Me.tabletblTelotec_Anmeldung.Locs_GdsLocColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_GdsLocAuthNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_GdsLocAuthColumn) End Function _ Public Sub SetLocs_GdsLocAuthNull() Me(Me.tabletblTelotec_Anmeldung.Locs_GdsLocAuthColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_LoadPlcCdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_LoadPlcCdColumn) End Function _ Public Sub SetLocs_LoadPlcCdNull() Me(Me.tabletblTelotec_Anmeldung.Locs_LoadPlcCdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_LoadPlcNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_LoadPlcColumn) End Function _ Public Sub SetLocs_LoadPlcNull() Me(Me.tabletblTelotec_Anmeldung.Locs_LoadPlcColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_CustPlcNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_CustPlcColumn) End Function _ Public Sub SetLocs_CustPlcNull() Me(Me.tabletblTelotec_Anmeldung.Locs_CustPlcColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_ArrLocCdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_ArrLocCdColumn) End Function _ Public Sub SetLocs_ArrLocCdNull() Me(Me.tabletblTelotec_Anmeldung.Locs_ArrLocCdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_ArrLocNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_ArrLocColumn) End Function _ Public Sub SetLocs_ArrLocNull() Me(Me.tabletblTelotec_Anmeldung.Locs_ArrLocColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_ArrLocAuthNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_ArrLocAuthColumn) End Function _ Public Sub SetLocs_ArrLocAuthNull() Me(Me.tabletblTelotec_Anmeldung.Locs_ArrLocAuthColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_WarTyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_WarTyColumn) End Function _ Public Sub SetLocs_WarTyNull() Me(Me.tabletblTelotec_Anmeldung.Locs_WarTyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_WarCtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_WarCtryColumn) End Function _ Public Sub SetLocs_WarCtryNull() Me(Me.tabletblTelotec_Anmeldung.Locs_WarCtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocs_WarNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Locs_WarColumn) End Function _ Public Sub SetLocs_WarNull() Me(Me.tabletblTelotec_Anmeldung.Locs_WarColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransp_InMoNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Transp_InMoColumn) End Function _ Public Sub SetTransp_InMoNull() Me(Me.tabletblTelotec_Anmeldung.Transp_InMoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransp_BordMoNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Transp_BordMoColumn) End Function _ Public Sub SetTransp_BordMoNull() Me(Me.tabletblTelotec_Anmeldung.Transp_BordMoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransp_DepTyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Transp_DepTyColumn) End Function _ Public Sub SetTransp_DepTyNull() Me(Me.tabletblTelotec_Anmeldung.Transp_DepTyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransp_DepIdntNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Transp_DepIdntColumn) End Function _ Public Sub SetTransp_DepIdntNull() Me(Me.tabletblTelotec_Anmeldung.Transp_DepIdntColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransp_DepNatNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Transp_DepNatColumn) End Function _ Public Sub SetTransp_DepNatNull() Me(Me.tabletblTelotec_Anmeldung.Transp_DepNatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransp_CrossTyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Transp_CrossTyColumn) End Function _ Public Sub SetTransp_CrossTyNull() Me(Me.tabletblTelotec_Anmeldung.Transp_CrossTyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransp_CrossIdntNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Transp_CrossIdntColumn) End Function _ Public Sub SetTransp_CrossIdntNull() Me(Me.tabletblTelotec_Anmeldung.Transp_CrossIdntColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransp_CrossIdntNatNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Transp_CrossIdntNatColumn) End Function _ Public Sub SetTransp_CrossIdntNatNull() Me(Me.tabletblTelotec_Anmeldung.Transp_CrossIdntNatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransp_ContIndNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Transp_ContIndColumn) End Function _ Public Sub SetTransp_ContIndNull() Me(Me.tabletblTelotec_Anmeldung.Transp_ContIndColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsValData_TermDelCdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ValData_TermDelCdColumn) End Function _ Public Sub SetValData_TermDelCdNull() Me(Me.tabletblTelotec_Anmeldung.ValData_TermDelCdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsValData_TermDelPlcNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ValData_TermDelPlcColumn) End Function _ Public Sub SetValData_TermDelPlcNull() Me(Me.tabletblTelotec_Anmeldung.ValData_TermDelPlcColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsValData_TermDelSitNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ValData_TermDelSitColumn) End Function _ Public Sub SetValData_TermDelSitNull() Me(Me.tabletblTelotec_Anmeldung.ValData_TermDelSitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsValData_InvCurrNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ValData_InvCurrColumn) End Function _ Public Sub SetValData_InvCurrNull() Me(Me.tabletblTelotec_Anmeldung.ValData_InvCurrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsValData_ExRaNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ValData_ExRaColumn) End Function _ Public Sub SetValData_ExRaNull() Me(Me.tabletblTelotec_Anmeldung.ValData_ExRaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsValData_InvValNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ValData_InvValColumn) End Function _ Public Sub SetValData_InvValNull() Me(Me.tabletblTelotec_Anmeldung.ValData_InvValColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsValData_TransacCdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ValData_TransacCdColumn) End Function _ Public Sub SetValData_TransacCdNull() Me(Me.tabletblTelotec_Anmeldung.ValData_TransacCdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConorTra_NaNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConorTra_NaColumn) End Function _ Public Sub SetConorTra_NaNull() Me(Me.tabletblTelotec_Anmeldung.ConorTra_NaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConorTra_StrtNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConorTra_StrtColumn) End Function _ Public Sub SetConorTra_StrtNull() Me(Me.tabletblTelotec_Anmeldung.ConorTra_StrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConorTra_PstNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConorTra_PstColumn) End Function _ Public Sub SetConorTra_PstNull() Me(Me.tabletblTelotec_Anmeldung.ConorTra_PstColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConorTra_CtyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConorTra_CtyColumn) End Function _ Public Sub SetConorTra_CtyNull() Me(Me.tabletblTelotec_Anmeldung.ConorTra_CtyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConorTra_CtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConorTra_CtryColumn) End Function _ Public Sub SetConorTra_CtryNull() Me(Me.tabletblTelotec_Anmeldung.ConorTra_CtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConorTra_TINNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConorTra_TINColumn) End Function _ Public Sub SetConorTra_TINNull() Me(Me.tabletblTelotec_Anmeldung.ConorTra_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConorTra_UIDCtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConorTra_UIDCtryColumn) End Function _ Public Sub SetConorTra_UIDCtryNull() Me(Me.tabletblTelotec_Anmeldung.ConorTra_UIDCtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConorTra_UIDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConorTra_UIDColumn) End Function _ Public Sub SetConorTra_UIDNull() Me(Me.tabletblTelotec_Anmeldung.ConorTra_UIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConeeTra_NaNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConeeTra_NaColumn) End Function _ Public Sub SetConeeTra_NaNull() Me(Me.tabletblTelotec_Anmeldung.ConeeTra_NaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConeeTra_StrtNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConeeTra_StrtColumn) End Function _ Public Sub SetConeeTra_StrtNull() Me(Me.tabletblTelotec_Anmeldung.ConeeTra_StrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConeeTra_PstNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConeeTra_PstColumn) End Function _ Public Sub SetConeeTra_PstNull() Me(Me.tabletblTelotec_Anmeldung.ConeeTra_PstColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConeeTra_CtyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConeeTra_CtyColumn) End Function _ Public Sub SetConeeTra_CtyNull() Me(Me.tabletblTelotec_Anmeldung.ConeeTra_CtyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConeeTra_CtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConeeTra_CtryColumn) End Function _ Public Sub SetConeeTra_CtryNull() Me(Me.tabletblTelotec_Anmeldung.ConeeTra_CtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConeeTra_TINNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConeeTra_TINColumn) End Function _ Public Sub SetConeeTra_TINNull() Me(Me.tabletblTelotec_Anmeldung.ConeeTra_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConeeTra_UIDCtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConeeTra_UIDCtryColumn) End Function _ Public Sub SetConeeTra_UIDCtryNull() Me(Me.tabletblTelotec_Anmeldung.ConeeTra_UIDCtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsConeeTra_UIDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ConeeTra_UIDColumn) End Function _ Public Sub SetConeeTra_UIDNull() Me(Me.tabletblTelotec_Anmeldung.ConeeTra_UIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExpTra_NaNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ExpTra_NaColumn) End Function _ Public Sub SetExpTra_NaNull() Me(Me.tabletblTelotec_Anmeldung.ExpTra_NaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExpTra_StrtNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ExpTra_StrtColumn) End Function _ Public Sub SetExpTra_StrtNull() Me(Me.tabletblTelotec_Anmeldung.ExpTra_StrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExpTra_PstNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ExpTra_PstColumn) End Function _ Public Sub SetExpTra_PstNull() Me(Me.tabletblTelotec_Anmeldung.ExpTra_PstColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExpTra_CtyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ExpTra_CtyColumn) End Function _ Public Sub SetExpTra_CtyNull() Me(Me.tabletblTelotec_Anmeldung.ExpTra_CtyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExpTra_CtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ExpTra_CtryColumn) End Function _ Public Sub SetExpTra_CtryNull() Me(Me.tabletblTelotec_Anmeldung.ExpTra_CtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExpTra_TINNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ExpTra_TINColumn) End Function _ Public Sub SetExpTra_TINNull() Me(Me.tabletblTelotec_Anmeldung.ExpTra_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExpTra_UIDCtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ExpTra_UIDCtryColumn) End Function _ Public Sub SetExpTra_UIDCtryNull() Me(Me.tabletblTelotec_Anmeldung.ExpTra_UIDCtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExpTra_UIDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ExpTra_UIDColumn) End Function _ Public Sub SetExpTra_UIDNull() Me(Me.tabletblTelotec_Anmeldung.ExpTra_UIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarant_NaNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Declarant_NaColumn) End Function _ Public Sub SetDeclarant_NaNull() Me(Me.tabletblTelotec_Anmeldung.Declarant_NaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarant_StrtNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Declarant_StrtColumn) End Function _ Public Sub SetDeclarant_StrtNull() Me(Me.tabletblTelotec_Anmeldung.Declarant_StrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarant_PstNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Declarant_PstColumn) End Function _ Public Sub SetDeclarant_PstNull() Me(Me.tabletblTelotec_Anmeldung.Declarant_PstColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarant_CtyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Declarant_CtyColumn) End Function _ Public Sub SetDeclarant_CtyNull() Me(Me.tabletblTelotec_Anmeldung.Declarant_CtyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarant_CtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Declarant_CtryColumn) End Function _ Public Sub SetDeclarant_CtryNull() Me(Me.tabletblTelotec_Anmeldung.Declarant_CtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarant_TINNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Declarant_TINColumn) End Function _ Public Sub SetDeclarant_TINNull() Me(Me.tabletblTelotec_Anmeldung.Declarant_TINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarant_UIDCtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Declarant_UIDCtryColumn) End Function _ Public Sub SetDeclarant_UIDCtryNull() Me(Me.tabletblTelotec_Anmeldung.Declarant_UIDCtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarant_UIDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Declarant_UIDColumn) End Function _ Public Sub SetDeclarant_UIDNull() Me(Me.tabletblTelotec_Anmeldung.Declarant_UIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarant_DecRepNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Declarant_DecRepColumn) End Function _ Public Sub SetDeclarant_DecRepNull() Me(Me.tabletblTelotec_Anmeldung.Declarant_DecRepColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRepresent_RINNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Represent_RINColumn) End Function _ Public Sub SetRepresent_RINNull() Me(Me.tabletblTelotec_Anmeldung.Represent_RINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRepresent_NaNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.Represent_NaColumn) End Function _ Public Sub SetRepresent_NaNull() Me(Me.tabletblTelotec_Anmeldung.Represent_NaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEntryCO_RefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.EntryCO_RefColumn) End Function _ Public Sub SetEntryCO_RefNull() Me(Me.tabletblTelotec_Anmeldung.EntryCO_RefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExitCO_RefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.ExitCO_RefColumn) End Function _ Public Sub SetExitCO_RefNull() Me(Me.tabletblTelotec_Anmeldung.ExitCO_RefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSurvCO_RefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.SurvCO_RefColumn) End Function _ Public Sub SetSurvCO_RefNull() Me(Me.tabletblTelotec_Anmeldung.SurvCO_RefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDestCO_RefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.DestCO_RefColumn) End Function _ Public Sub SetDestCO_RefNull() Me(Me.tabletblTelotec_Anmeldung.DestCO_RefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPresCO_RefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.PresCO_RefColumn) End Function _ Public Sub SetPresCO_RefNull() Me(Me.tabletblTelotec_Anmeldung.PresCO_RefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDepCO_RefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.DepCO_RefColumn) End Function _ Public Sub SetDepCO_RefNull() Me(Me.tabletblTelotec_Anmeldung.DepCO_RefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCtrlRslt_ResCdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.CtrlRslt_ResCdColumn) End Function _ Public Sub SetCtrlRslt_ResCdNull() Me(Me.tabletblTelotec_Anmeldung.CtrlRslt_ResCdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCtrlRslt_DLimitNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Anmeldung.CtrlRslt_DLimitColumn) End Function _ Public Sub SetCtrlRslt_DLimitNull() Me(Me.tabletblTelotec_Anmeldung.CtrlRslt_DLimitColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTelotec_PackstueckeRow Inherits Global.System.Data.DataRow Private tabletblTelotec_Packstuecke As tblTelotec_PackstueckeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTelotec_Packstuecke = CType(Me.Table,tblTelotec_PackstueckeDataTable) End Sub _ Public Property telpospk_id() As Integer Get Return CType(Me(Me.tabletblTelotec_Packstuecke.telpospk_idColumn),Integer) End Get Set Me(Me.tabletblTelotec_Packstuecke.telpospk_idColumn) = value End Set End Property _ Public Property telpospk_telanmId() As Integer Get Return CType(Me(Me.tabletblTelotec_Packstuecke.telpospk_telanmIdColumn),Integer) End Get Set Me(Me.tabletblTelotec_Packstuecke.telpospk_telanmIdColumn) = value End Set End Property _ Public Property telpospk_telposId() As Integer Get Return CType(Me(Me.tabletblTelotec_Packstuecke.telpospk_telposIdColumn),Integer) End Get Set Me(Me.tabletblTelotec_Packstuecke.telpospk_telposIdColumn) = value End Set End Property _ Public Property Mandant_ID() As String Get Return CType(Me(Me.tabletblTelotec_Packstuecke.Mandant_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Packstuecke.Mandant_IDColumn) = value End Set End Property _ Public Property Bereich_ID() As String Get Return CType(Me(Me.tabletblTelotec_Packstuecke.Bereich_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Packstuecke.Bereich_IDColumn) = value End Set End Property _ Public Property Referenz_ID() As String Get Return CType(Me(Me.tabletblTelotec_Packstuecke.Referenz_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Packstuecke.Referenz_IDColumn) = value End Set End Property _ Public Property ComIndicator() As Boolean Get Return CType(Me(Me.tabletblTelotec_Packstuecke.ComIndicatorColumn),Boolean) End Get Set Me(Me.tabletblTelotec_Packstuecke.ComIndicatorColumn) = value End Set End Property _ Public Property Pos_ID() As Integer Get Return CType(Me(Me.tabletblTelotec_Packstuecke.Pos_IDColumn),Integer) End Get Set Me(Me.tabletblTelotec_Packstuecke.Pos_IDColumn) = value End Set End Property _ Public Property Pack_ID() As Integer Get Return CType(Me(Me.tabletblTelotec_Packstuecke.Pack_IDColumn),Integer) End Get Set Me(Me.tabletblTelotec_Packstuecke.Pack_IDColumn) = value End Set End Property _ Public Property Pack_Mark() As String Get Try Return CType(Me(Me.tabletblTelotec_Packstuecke.Pack_MarkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pack_Mark in Tabelle tblTelotec_Packstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Packstuecke.Pack_MarkColumn) = value End Set End Property _ Public Property Pack_Kind() As String Get Try Return CType(Me(Me.tabletblTelotec_Packstuecke.Pack_KindColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pack_Kind in Tabelle tblTelotec_Packstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Packstuecke.Pack_KindColumn) = value End Set End Property _ Public Property Pack_Nr() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Packstuecke.Pack_NrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pack_Nr in Tabelle tblTelotec_Packstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Packstuecke.Pack_NrColumn) = value End Set End Property _ Public Property Pack_Piec() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Packstuecke.Pack_PiecColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pack_Piec in Tabelle tblTelotec_Packstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Packstuecke.Pack_PiecColumn) = value End Set End Property _ Public Property Telo_Gross() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Packstuecke.Telo_GrossColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telo_Gross in Tabelle tblTelotec_Packstuecke ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Packstuecke.Telo_GrossColumn) = value End Set End Property _ Public Function IsPack_MarkNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Packstuecke.Pack_MarkColumn) End Function _ Public Sub SetPack_MarkNull() Me(Me.tabletblTelotec_Packstuecke.Pack_MarkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPack_KindNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Packstuecke.Pack_KindColumn) End Function _ Public Sub SetPack_KindNull() Me(Me.tabletblTelotec_Packstuecke.Pack_KindColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPack_NrNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Packstuecke.Pack_NrColumn) End Function _ Public Sub SetPack_NrNull() Me(Me.tabletblTelotec_Packstuecke.Pack_NrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPack_PiecNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Packstuecke.Pack_PiecColumn) End Function _ Public Sub SetPack_PiecNull() Me(Me.tabletblTelotec_Packstuecke.Pack_PiecColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelo_GrossNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Packstuecke.Telo_GrossColumn) End Function _ Public Sub SetTelo_GrossNull() Me(Me.tabletblTelotec_Packstuecke.Telo_GrossColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTelotec_ParamterRow Inherits Global.System.Data.DataRow Private tabletblTelotec_Paramter As tblTelotec_ParamterDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTelotec_Paramter = CType(Me.Table,tblTelotec_ParamterDataTable) End Sub _ Public Property tcParam_name() As String Get Return CType(Me(Me.tabletblTelotec_Paramter.tcParam_nameColumn),String) End Get Set Me(Me.tabletblTelotec_Paramter.tcParam_nameColumn) = value End Set End Property _ Public Property tcParam_value() As String Get Return CType(Me(Me.tabletblTelotec_Paramter.tcParam_valueColumn),String) End Get Set Me(Me.tabletblTelotec_Paramter.tcParam_valueColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTelotec_PositionsdatenRow Inherits Global.System.Data.DataRow Private tabletblTelotec_Positionsdaten As tblTelotec_PositionsdatenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTelotec_Positionsdaten = CType(Me.Table,tblTelotec_PositionsdatenDataTable) End Sub _ Public Property telpos_id() As Integer Get Return CType(Me(Me.tabletblTelotec_Positionsdaten.telpos_idColumn),Integer) End Get Set Me(Me.tabletblTelotec_Positionsdaten.telpos_idColumn) = value End Set End Property _ Public Property telpos_telanmId() As Integer Get Return CType(Me(Me.tabletblTelotec_Positionsdaten.telpos_telanmIdColumn),Integer) End Get Set Me(Me.tabletblTelotec_Positionsdaten.telpos_telanmIdColumn) = value End Set End Property _ Public Property Mandant_ID() As String Get Return CType(Me(Me.tabletblTelotec_Positionsdaten.Mandant_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Positionsdaten.Mandant_IDColumn) = value End Set End Property _ Public Property Bereich_ID() As String Get Return CType(Me(Me.tabletblTelotec_Positionsdaten.Bereich_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Positionsdaten.Bereich_IDColumn) = value End Set End Property _ Public Property Referenz_ID() As String Get Return CType(Me(Me.tabletblTelotec_Positionsdaten.Referenz_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Positionsdaten.Referenz_IDColumn) = value End Set End Property _ Public Property ComIndicator() As Boolean Get Return CType(Me(Me.tabletblTelotec_Positionsdaten.ComIndicatorColumn),Boolean) End Get Set Me(Me.tabletblTelotec_Positionsdaten.ComIndicatorColumn) = value End Set End Property _ Public Property Pos_ID() As Integer Get Return CType(Me(Me.tabletblTelotec_Positionsdaten.Pos_IDColumn),Integer) End Get Set Me(Me.tabletblTelotec_Positionsdaten.Pos_IDColumn) = value End Set End Property _ Public Property Item_Status() As String Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_StatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_Status in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_StatusColumn) = value End Set End Property _ Public Property Item_ComCd() As String Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_ComCdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_ComCd in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_ComCdColumn) = value End Set End Property _ Public Property Item_GdsDes() As String Get Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_GdsDesColumn),String) End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_GdsDesColumn) = value End Set End Property _ Public Property Item_Gross() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_GrossColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_Gross in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_GrossColumn) = value End Set End Property _ Public Property Item_Net() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_NetColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_Net in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_NetColumn) = value End Set End Property _ Public Property Item_Orig() As String Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_OrigColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_Orig in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_OrigColumn) = value End Set End Property _ Public Property Item_ProcCd() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_ProcCdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_ProcCd in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_ProcCdColumn) = value End Set End Property _ Public Property Item_ProcAddCd() As String Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_ProcAddCdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_ProcAddCd in Tabelle tblTelotec_Positionsdaten ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_ProcAddCdColumn) = value End Set End Property _ Public Property Item_ItVal() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_ItValColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_ItVal in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_ItValColumn) = value End Set End Property _ Public Property Item_Pref() As String Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_PrefColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_Pref in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_PrefColumn) = value End Set End Property _ Public Property Item_Quota() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_QuotaColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_Quota in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_QuotaColumn) = value End Set End Property _ Public Property Item_ValMet() As Integer Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_ValMetColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_ValMet in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_ValMetColumn) = value End Set End Property _ Public Property Item_VATInd() As Boolean Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_VATIndColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_VATInd in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_VATIndColumn) = value End Set End Property _ Public Property Item_StatVal() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Item_StatValColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Item_StatVal in Tabelle tblTelotec_Positionsdaten ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Item_StatValColumn) = value End Set End Property _ Public Property SurvCO_Ref() As String Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.SurvCO_RefColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SurvCO_Ref in Tabelle tblTelotec_Positionsdaten ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.SurvCO_RefColumn) = value End Set End Property _ Public Property Telo_Artikel_ID() As String Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Telo_Artikel_IDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telo_Artikel_ID in Tabelle tblTelotec_Positionsdaten ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Telo_Artikel_IDColumn) = value End Set End Property _ Public Property Telo_Artikelmenge() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Telo_ArtikelmengeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telo_Artikelmenge in Tabelle tblTelotec_Positionsdaten ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Telo_ArtikelmengeColumn) = value End Set End Property _ Public Property Telo_ArtikelMEH() As String Get Try Return CType(Me(Me.tabletblTelotec_Positionsdaten.Telo_ArtikelMEHColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telo_ArtikelMEH in Tabelle tblTelotec_Positionsdaten ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTelotec_Positionsdaten.Telo_ArtikelMEHColumn) = value End Set End Property _ Public Function IsItem_StatusNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_StatusColumn) End Function _ Public Sub SetItem_StatusNull() Me(Me.tabletblTelotec_Positionsdaten.Item_StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_ComCdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_ComCdColumn) End Function _ Public Sub SetItem_ComCdNull() Me(Me.tabletblTelotec_Positionsdaten.Item_ComCdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_GrossNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_GrossColumn) End Function _ Public Sub SetItem_GrossNull() Me(Me.tabletblTelotec_Positionsdaten.Item_GrossColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_NetNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_NetColumn) End Function _ Public Sub SetItem_NetNull() Me(Me.tabletblTelotec_Positionsdaten.Item_NetColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_OrigNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_OrigColumn) End Function _ Public Sub SetItem_OrigNull() Me(Me.tabletblTelotec_Positionsdaten.Item_OrigColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_ProcCdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_ProcCdColumn) End Function _ Public Sub SetItem_ProcCdNull() Me(Me.tabletblTelotec_Positionsdaten.Item_ProcCdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_ProcAddCdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_ProcAddCdColumn) End Function _ Public Sub SetItem_ProcAddCdNull() Me(Me.tabletblTelotec_Positionsdaten.Item_ProcAddCdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_ItValNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_ItValColumn) End Function _ Public Sub SetItem_ItValNull() Me(Me.tabletblTelotec_Positionsdaten.Item_ItValColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_PrefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_PrefColumn) End Function _ Public Sub SetItem_PrefNull() Me(Me.tabletblTelotec_Positionsdaten.Item_PrefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_QuotaNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_QuotaColumn) End Function _ Public Sub SetItem_QuotaNull() Me(Me.tabletblTelotec_Positionsdaten.Item_QuotaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_ValMetNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_ValMetColumn) End Function _ Public Sub SetItem_ValMetNull() Me(Me.tabletblTelotec_Positionsdaten.Item_ValMetColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_VATIndNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_VATIndColumn) End Function _ Public Sub SetItem_VATIndNull() Me(Me.tabletblTelotec_Positionsdaten.Item_VATIndColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItem_StatValNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Item_StatValColumn) End Function _ Public Sub SetItem_StatValNull() Me(Me.tabletblTelotec_Positionsdaten.Item_StatValColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSurvCO_RefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.SurvCO_RefColumn) End Function _ Public Sub SetSurvCO_RefNull() Me(Me.tabletblTelotec_Positionsdaten.SurvCO_RefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelo_Artikel_IDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Telo_Artikel_IDColumn) End Function _ Public Sub SetTelo_Artikel_IDNull() Me(Me.tabletblTelotec_Positionsdaten.Telo_Artikel_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelo_ArtikelmengeNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Telo_ArtikelmengeColumn) End Function _ Public Sub SetTelo_ArtikelmengeNull() Me(Me.tabletblTelotec_Positionsdaten.Telo_ArtikelmengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelo_ArtikelMEHNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Positionsdaten.Telo_ArtikelMEHColumn) End Function _ Public Sub SetTelo_ArtikelMEHNull() Me(Me.tabletblTelotec_Positionsdaten.Telo_ArtikelMEHColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTelotec_PositionsdatenAbgabenRow Inherits Global.System.Data.DataRow Private tabletblTelotec_PositionsdatenAbgaben As tblTelotec_PositionsdatenAbgabenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTelotec_PositionsdatenAbgaben = CType(Me.Table,tblTelotec_PositionsdatenAbgabenDataTable) End Sub _ Public Property telposAbg_id() As Integer Get Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.telposAbg_idColumn),Integer) End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.telposAbg_idColumn) = value End Set End Property _ Public Property telposAbg_telposId() As Integer Get Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.telposAbg_telposIdColumn),Integer) End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.telposAbg_telposIdColumn) = value End Set End Property _ Public Property telposAbg_telanmId() As Integer Get Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.telposAbg_telanmIdColumn),Integer) End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.telposAbg_telanmIdColumn) = value End Set End Property _ Public Property Mandant_ID() As String Get Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.Mandant_IDColumn),String) End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.Mandant_IDColumn) = value End Set End Property _ Public Property Bereich_ID() As String Get Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.Bereich_IDColumn),String) End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.Bereich_IDColumn) = value End Set End Property _ Public Property Referenz_ID() As String Get Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.Referenz_IDColumn),String) End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.Referenz_IDColumn) = value End Set End Property _ Public Property ComIndicator() As Boolean Get Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.ComIndicatorColumn),Boolean) End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.ComIndicatorColumn) = value End Set End Property _ Public Property Pos_ID() As Integer Get Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.Pos_IDColumn),Integer) End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.Pos_IDColumn) = value End Set End Property _ Public Property DutyCalc_ID() As Integer Get Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.DutyCalc_IDColumn),Integer) End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.DutyCalc_IDColumn) = value End Set End Property _ Public Property Ty() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.TyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ty in Tabelle tblTelotec_PositionsdatenAbgaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.TyColumn) = value End Set End Property _ Public Property BaseD() As Date Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.BaseDColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BaseD in Tabelle tblTelotec_PositionsdatenAbgaben ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.BaseDColumn) = value End Set End Property _ Public Property Curr() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.CurrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Curr in Tabelle tblTelotec_PositionsdatenAbgaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.CurrColumn) = value End Set End Property _ Public Property Unit() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.UnitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unit in Tabelle tblTelotec_PositionsdatenAbgaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.UnitColumn) = value End Set End Property _ Public Property Base() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.BaseColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Base in Tabelle tblTelotec_PositionsdatenAbgaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.BaseColumn) = value End Set End Property _ Public Property Rate() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.RateColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rate in Tabelle tblTelotec_PositionsdatenAbgaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.RateColumn) = value End Set End Property _ Public Property RateUsed() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.RateUsedColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RateUsed in Tabelle tblTelotec_PositionsdatenAbgaben ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.RateUsedColumn) = value End Set End Property _ Public Property Amnt() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.AmntColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Amnt in Tabelle tblTelotec_PositionsdatenAbgaben ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.AmntColumn) = value End Set End Property _ Public Property MeaID() As Integer Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.MeaIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MeaID in Tabelle tblTelotec_PositionsdatenAbgaben ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.MeaIDColumn) = value End Set End Property _ Public Property TyInd() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenAbgaben.TyIndColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TyInd in Tabelle tblTelotec_PositionsdatenAbgaben ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenAbgaben.TyIndColumn) = value End Set End Property _ Public Function IsTyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenAbgaben.TyColumn) End Function _ Public Sub SetTyNull() Me(Me.tabletblTelotec_PositionsdatenAbgaben.TyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBaseDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenAbgaben.BaseDColumn) End Function _ Public Sub SetBaseDNull() Me(Me.tabletblTelotec_PositionsdatenAbgaben.BaseDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCurrNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenAbgaben.CurrColumn) End Function _ Public Sub SetCurrNull() Me(Me.tabletblTelotec_PositionsdatenAbgaben.CurrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUnitNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenAbgaben.UnitColumn) End Function _ Public Sub SetUnitNull() Me(Me.tabletblTelotec_PositionsdatenAbgaben.UnitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBaseNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenAbgaben.BaseColumn) End Function _ Public Sub SetBaseNull() Me(Me.tabletblTelotec_PositionsdatenAbgaben.BaseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRateNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenAbgaben.RateColumn) End Function _ Public Sub SetRateNull() Me(Me.tabletblTelotec_PositionsdatenAbgaben.RateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRateUsedNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenAbgaben.RateUsedColumn) End Function _ Public Sub SetRateUsedNull() Me(Me.tabletblTelotec_PositionsdatenAbgaben.RateUsedColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAmntNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenAbgaben.AmntColumn) End Function _ Public Sub SetAmntNull() Me(Me.tabletblTelotec_PositionsdatenAbgaben.AmntColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMeaIDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenAbgaben.MeaIDColumn) End Function _ Public Sub SetMeaIDNull() Me(Me.tabletblTelotec_PositionsdatenAbgaben.MeaIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTyIndNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenAbgaben.TyIndColumn) End Function _ Public Sub SetTyIndNull() Me(Me.tabletblTelotec_PositionsdatenAbgaben.TyIndColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTelotec_PositionsdatenDokumenteRow Inherits Global.System.Data.DataRow Private tabletblTelotec_PositionsdatenDokumente As tblTelotec_PositionsdatenDokumenteDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTelotec_PositionsdatenDokumente = CType(Me.Table,tblTelotec_PositionsdatenDokumenteDataTable) End Sub _ Public Property telposAbg_id() As Integer Get Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.telposAbg_idColumn),Integer) End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.telposAbg_idColumn) = value End Set End Property _ Public Property telposAbg_telposId() As Integer Get Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.telposAbg_telposIdColumn),Integer) End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.telposAbg_telposIdColumn) = value End Set End Property _ Public Property telposAbg_telanmId() As Integer Get Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.telposAbg_telanmIdColumn),Integer) End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.telposAbg_telanmIdColumn) = value End Set End Property _ Public Property Mandant_ID() As String Get Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.Mandant_IDColumn),String) End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.Mandant_IDColumn) = value End Set End Property _ Public Property Bereich_ID() As String Get Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.Bereich_IDColumn),String) End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.Bereich_IDColumn) = value End Set End Property _ Public Property Referenz_ID() As String Get Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.Referenz_IDColumn),String) End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.Referenz_IDColumn) = value End Set End Property _ Public Property ComIndicator() As Boolean Get Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.ComIndicatorColumn),Boolean) End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.ComIndicatorColumn) = value End Set End Property _ Public Property Pos_ID() As Integer Get Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.Pos_IDColumn),Integer) End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.Pos_IDColumn) = value End Set End Property _ Public Property DocCerts_ID() As Integer Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocCerts_ID in Tabelle tblTelotec_PositionsdatenDokumente ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IDColumn) = value End Set End Property _ Public Property DocCerts_DocCd() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DocCdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocCerts_DocCd in Tabelle tblTelotec_PositionsdatenDokumente "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DocCdColumn) = value End Set End Property _ Public Property DocCerts_DTy() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DTyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocCerts_DTy in Tabelle tblTelotec_PositionsdatenDokumente is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DTyColumn) = value End Set End Property _ Public Property DocCerts_DRef() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DRefColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocCerts_DRef in Tabelle tblTelotec_PositionsdatenDokumente i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DRefColumn) = value End Set End Property _ Public Property DocCerts_IssD() As Date Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IssDColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocCerts_IssD in Tabelle tblTelotec_PositionsdatenDokumente i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IssDColumn) = value End Set End Property _ Public Property DocCerts_IssCtry() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IssCtryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocCerts_IssCtry in Tabelle tblTelotec_PositionsdatenDokument"& _ "e ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IssCtryColumn) = value End Set End Property _ Public Property DocCerts_DTIN() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DTINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocCerts_DTIN in Tabelle tblTelotec_PositionsdatenDokumente i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DTINColumn) = value End Set End Property _ Public Property DocCerts_UidVid() As String Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_UidVidColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocCerts_UidVid in Tabelle tblTelotec_PositionsdatenDokumente"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_UidVidColumn) = value End Set End Property _ Public Property DocCerts_ValD() As Date Get Try Return CType(Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_ValDColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocCerts_ValD in Tabelle tblTelotec_PositionsdatenDokumente i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_ValDColumn) = value End Set End Property _ Public Function IsDocCerts_IDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IDColumn) End Function _ Public Sub SetDocCerts_IDNull() Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocCerts_DocCdNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DocCdColumn) End Function _ Public Sub SetDocCerts_DocCdNull() Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DocCdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocCerts_DTyNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DTyColumn) End Function _ Public Sub SetDocCerts_DTyNull() Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DTyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocCerts_DRefNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DRefColumn) End Function _ Public Sub SetDocCerts_DRefNull() Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DRefColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocCerts_IssDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IssDColumn) End Function _ Public Sub SetDocCerts_IssDNull() Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IssDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocCerts_IssCtryNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IssCtryColumn) End Function _ Public Sub SetDocCerts_IssCtryNull() Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_IssCtryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocCerts_DTINNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DTINColumn) End Function _ Public Sub SetDocCerts_DTINNull() Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_DTINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocCerts_UidVidNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_UidVidColumn) End Function _ Public Sub SetDocCerts_UidVidNull() Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_UidVidColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocCerts_ValDNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_ValDColumn) End Function _ Public Sub SetDocCerts_ValDNull() Me(Me.tabletblTelotec_PositionsdatenDokumente.DocCerts_ValDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTelotec_SicherheitRow Inherits Global.System.Data.DataRow Private tabletblTelotec_Sicherheit As tblTelotec_SicherheitDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTelotec_Sicherheit = CType(Me.Table,tblTelotec_SicherheitDataTable) End Sub _ Public Property telgrt_id() As Integer Get Return CType(Me(Me.tabletblTelotec_Sicherheit.telgrt_idColumn),Integer) End Get Set Me(Me.tabletblTelotec_Sicherheit.telgrt_idColumn) = value End Set End Property _ Public Property telgrt_telanmId() As Integer Get Return CType(Me(Me.tabletblTelotec_Sicherheit.telgrt_telanmIdColumn),Integer) End Get Set Me(Me.tabletblTelotec_Sicherheit.telgrt_telanmIdColumn) = value End Set End Property _ Public Property Mandant_ID() As String Get Return CType(Me(Me.tabletblTelotec_Sicherheit.Mandant_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Sicherheit.Mandant_IDColumn) = value End Set End Property _ Public Property Bereich_ID() As String Get Return CType(Me(Me.tabletblTelotec_Sicherheit.Bereich_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Sicherheit.Bereich_IDColumn) = value End Set End Property _ Public Property Referenz_ID() As String Get Return CType(Me(Me.tabletblTelotec_Sicherheit.Referenz_IDColumn),String) End Get Set Me(Me.tabletblTelotec_Sicherheit.Referenz_IDColumn) = value End Set End Property _ Public Property ComIndicator() As Boolean Get Return CType(Me(Me.tabletblTelotec_Sicherheit.ComIndicatorColumn),Boolean) End Get Set Me(Me.tabletblTelotec_Sicherheit.ComIndicatorColumn) = value End Set End Property _ Public Property GrteeRef_ID() As Integer Get Return CType(Me(Me.tabletblTelotec_Sicherheit.GrteeRef_IDColumn),Integer) End Get Set Me(Me.tabletblTelotec_Sicherheit.GrteeRef_IDColumn) = value End Set End Property _ Public Property GrteeRef_GTy() As String Get Return CType(Me(Me.tabletblTelotec_Sicherheit.GrteeRef_GTyColumn),String) End Get Set Me(Me.tabletblTelotec_Sicherheit.GrteeRef_GTyColumn) = value End Set End Property _ Public Property GRN() As String Get Try Return CType(Me(Me.tabletblTelotec_Sicherheit.GRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GRN in Tabelle tblTelotec_Sicherheit ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Sicherheit.GRNColumn) = value End Set End Property _ Public Property OGR() As String Get Try Return CType(Me(Me.tabletblTelotec_Sicherheit.OGRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OGR in Tabelle tblTelotec_Sicherheit ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Sicherheit.OGRColumn) = value End Set End Property _ Public Property Acc() As String Get Try Return CType(Me(Me.tabletblTelotec_Sicherheit.AccColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Acc in Tabelle tblTelotec_Sicherheit ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Sicherheit.AccColumn) = value End Set End Property _ Public Property GTIN() As String Get Try Return CType(Me(Me.tabletblTelotec_Sicherheit.GTINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GTIN in Tabelle tblTelotec_Sicherheit ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Sicherheit.GTINColumn) = value End Set End Property _ Public Property GVal() As Decimal Get Try Return CType(Me(Me.tabletblTelotec_Sicherheit.GValColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GVal in Tabelle tblTelotec_Sicherheit ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Sicherheit.GValColumn) = value End Set End Property _ Public Property Curr() As String Get Try Return CType(Me(Me.tabletblTelotec_Sicherheit.CurrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Curr in Tabelle tblTelotec_Sicherheit ist DBNull.", e) End Try End Get Set Me(Me.tabletblTelotec_Sicherheit.CurrColumn) = value End Set End Property _ Public Function IsGRNNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Sicherheit.GRNColumn) End Function _ Public Sub SetGRNNull() Me(Me.tabletblTelotec_Sicherheit.GRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOGRNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Sicherheit.OGRColumn) End Function _ Public Sub SetOGRNull() Me(Me.tabletblTelotec_Sicherheit.OGRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAccNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Sicherheit.AccColumn) End Function _ Public Sub SetAccNull() Me(Me.tabletblTelotec_Sicherheit.AccColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGTINNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Sicherheit.GTINColumn) End Function _ Public Sub SetGTINNull() Me(Me.tabletblTelotec_Sicherheit.GTINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGValNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Sicherheit.GValColumn) End Function _ Public Sub SetGValNull() Me(Me.tabletblTelotec_Sicherheit.GValColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCurrNull() As Boolean Return Me.IsNull(Me.tabletblTelotec_Sicherheit.CurrColumn) End Function _ Public Sub SetCurrNull() Me(Me.tabletblTelotec_Sicherheit.CurrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTestRow Inherits Global.System.Data.DataRow Private tabletblTest As tblTestDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTest = CType(Me.Table,tblTestDataTable) End Sub _ Public Property TEST() As String Get Try Return CType(Me(Me.tabletblTest.TESTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEST in Tabelle tblTest ist DBNull.", e) End Try End Get Set Me(Me.tabletblTest.TESTColumn) = value End Set End Property _ Public Property tmstmp() As Date Get Return CType(Me(Me.tabletblTest.tmstmpColumn),Date) End Get Set Me(Me.tabletblTest.tmstmpColumn) = value End Set End Property _ Public Property ipaddress() As String Get Try Return CType(Me(Me.tabletblTest.ipaddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ipaddress in Tabelle tblTest ist DBNull.", e) End Try End Get Set Me(Me.tabletblTest.ipaddressColumn) = value End Set End Property _ Public Function IsTESTNull() As Boolean Return Me.IsNull(Me.tabletblTest.TESTColumn) End Function _ Public Sub SetTESTNull() Me(Me.tabletblTest.TESTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsipaddressNull() As Boolean Return Me.IsNull(Me.tabletblTest.ipaddressColumn) End Function _ Public Sub SetipaddressNull() Me(Me.tabletblTest.ipaddressColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTextkonserveRow Inherits Global.System.Data.DataRow Private tabletblTextkonserve As tblTextkonserveDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTextkonserve = CType(Me.Table,tblTextkonserveDataTable) End Sub _ Public Property txt_Id() As Integer Get Return CType(Me(Me.tabletblTextkonserve.txt_IdColumn),Integer) End Get Set Me(Me.tabletblTextkonserve.txt_IdColumn) = value End Set End Property _ Public Property txt_kategorie() As String Get Return CType(Me(Me.tabletblTextkonserve.txt_kategorieColumn),String) End Get Set Me(Me.tabletblTextkonserve.txt_kategorieColumn) = value End Set End Property _ Public Property txt_bezeichnung() As String Get Return CType(Me(Me.tabletblTextkonserve.txt_bezeichnungColumn),String) End Get Set Me(Me.tabletblTextkonserve.txt_bezeichnungColumn) = value End Set End Property _ Public Property txt_sprache() As String Get Return CType(Me(Me.tabletblTextkonserve.txt_spracheColumn),String) End Get Set Me(Me.tabletblTextkonserve.txt_spracheColumn) = value End Set End Property _ Public Property txt_text() As String Get Return CType(Me(Me.tabletblTextkonserve.txt_textColumn),String) End Get Set Me(Me.tabletblTextkonserve.txt_textColumn) = value End Set End Property _ Public Property txt_betreff() As String Get Return CType(Me(Me.tabletblTextkonserve.txt_betreffColumn),String) End Get Set Me(Me.tabletblTextkonserve.txt_betreffColumn) = value End Set End Property _ Public Property txt_FIRMA() As String Get Return CType(Me(Me.tabletblTextkonserve.txt_FIRMAColumn),String) End Get Set Me(Me.tabletblTextkonserve.txt_FIRMAColumn) = value End Set End Property _ Public Property txt_firmaSig() As Integer Get Return CType(Me(Me.tabletblTextkonserve.txt_firmaSigColumn),Integer) End Get Set Me(Me.tabletblTextkonserve.txt_firmaSigColumn) = value End Set End Property _ Public Property txt_dynMailvorlage() As Boolean Get Return CType(Me(Me.tabletblTextkonserve.txt_dynMailvorlageColumn),Boolean) End Get Set Me(Me.tabletblTextkonserve.txt_dynMailvorlageColumn) = value End Set End Property _ Public Property txt_letzteAenderungUser() As String Get Try Return CType(Me(Me.tabletblTextkonserve.txt_letzteAenderungUserColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte txt_letzteAenderungUser in Tabelle tblTextkonserve ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTextkonserve.txt_letzteAenderungUserColumn) = value End Set End Property _ Public Property txt_letzteAenderung() As Date Get Try Return CType(Me(Me.tabletblTextkonserve.txt_letzteAenderungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte txt_letzteAenderung in Tabelle tblTextkonserve ist DBNull.", e) End Try End Get Set Me(Me.tabletblTextkonserve.txt_letzteAenderungColumn) = value End Set End Property _ Public Property txt_sendungsvermerk() As Boolean Get Try Return CType(Me(Me.tabletblTextkonserve.txt_sendungsvermerkColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte txt_sendungsvermerk in Tabelle tblTextkonserve ist DBNull.", e) End Try End Get Set Me(Me.tabletblTextkonserve.txt_sendungsvermerkColumn) = value End Set End Property _ Public Property txt_sendungsvermerkId() As Integer Get Try Return CType(Me(Me.tabletblTextkonserve.txt_sendungsvermerkIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte txt_sendungsvermerkId in Tabelle tblTextkonserve ist DBNull.", e) End Try End Get Set Me(Me.tabletblTextkonserve.txt_sendungsvermerkIdColumn) = value End Set End Property _ Public Property txt_sendungsvermerkText() As String Get Try Return CType(Me(Me.tabletblTextkonserve.txt_sendungsvermerkTextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte txt_sendungsvermerkText in Tabelle tblTextkonserve ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTextkonserve.txt_sendungsvermerkTextColumn) = value End Set End Property _ Public Property txt_fixerEmpfaengerEmail() As String Get Try Return CType(Me(Me.tabletblTextkonserve.txt_fixerEmpfaengerEmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte txt_fixerEmpfaengerEmail in Tabelle tblTextkonserve ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblTextkonserve.txt_fixerEmpfaengerEmailColumn) = value End Set End Property _ Public Property txt_typ() As Integer Get Try Return CType(Me(Me.tabletblTextkonserve.txt_typColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte txt_typ in Tabelle tblTextkonserve ist DBNull.", e) End Try End Get Set Me(Me.tabletblTextkonserve.txt_typColumn) = value End Set End Property _ Public Function Istxt_letzteAenderungUserNull() As Boolean Return Me.IsNull(Me.tabletblTextkonserve.txt_letzteAenderungUserColumn) End Function _ Public Sub Settxt_letzteAenderungUserNull() Me(Me.tabletblTextkonserve.txt_letzteAenderungUserColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istxt_letzteAenderungNull() As Boolean Return Me.IsNull(Me.tabletblTextkonserve.txt_letzteAenderungColumn) End Function _ Public Sub Settxt_letzteAenderungNull() Me(Me.tabletblTextkonserve.txt_letzteAenderungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istxt_sendungsvermerkNull() As Boolean Return Me.IsNull(Me.tabletblTextkonserve.txt_sendungsvermerkColumn) End Function _ Public Sub Settxt_sendungsvermerkNull() Me(Me.tabletblTextkonserve.txt_sendungsvermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istxt_sendungsvermerkIdNull() As Boolean Return Me.IsNull(Me.tabletblTextkonserve.txt_sendungsvermerkIdColumn) End Function _ Public Sub Settxt_sendungsvermerkIdNull() Me(Me.tabletblTextkonserve.txt_sendungsvermerkIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istxt_sendungsvermerkTextNull() As Boolean Return Me.IsNull(Me.tabletblTextkonserve.txt_sendungsvermerkTextColumn) End Function _ Public Sub Settxt_sendungsvermerkTextNull() Me(Me.tabletblTextkonserve.txt_sendungsvermerkTextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istxt_fixerEmpfaengerEmailNull() As Boolean Return Me.IsNull(Me.tabletblTextkonserve.txt_fixerEmpfaengerEmailColumn) End Function _ Public Sub Settxt_fixerEmpfaengerEmailNull() Me(Me.tabletblTextkonserve.txt_fixerEmpfaengerEmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istxt_typNull() As Boolean Return Me.IsNull(Me.tabletblTextkonserve.txt_typColumn) End Function _ Public Sub Settxt_typNull() Me(Me.tabletblTextkonserve.txt_typColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTR_AvisoRow Inherits Global.System.Data.DataRow Private tabletblTR_Aviso As tblTR_AvisoDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTR_Aviso = CType(Me.Table,tblTR_AvisoDataTable) End Sub _ Public Property trAv_Id() As Integer Get Return CType(Me(Me.tabletblTR_Aviso.trAv_IdColumn),Integer) End Get Set Me(Me.tabletblTR_Aviso.trAv_IdColumn) = value End Set End Property _ Public Property trAv_PartnerSystem() As String Get Return CType(Me(Me.tabletblTR_Aviso.trAv_PartnerSystemColumn),String) End Get Set Me(Me.tabletblTR_Aviso.trAv_PartnerSystemColumn) = value End Set End Property _ Public Property trAv_datetime() As Date Get Return CType(Me(Me.tabletblTR_Aviso.trAv_datetimeColumn),Date) End Get Set Me(Me.tabletblTR_Aviso.trAv_datetimeColumn) = value End Set End Property _ Public Property trAv_Firma() As String Get Return CType(Me(Me.tabletblTR_Aviso.trAv_FirmaColumn),String) End Get Set Me(Me.tabletblTR_Aviso.trAv_FirmaColumn) = value End Set End Property _ Public Property trAv_Niederlassung() As String Get Return CType(Me(Me.tabletblTR_Aviso.trAv_NiederlassungColumn),String) End Get Set Me(Me.tabletblTR_Aviso.trAv_NiederlassungColumn) = value End Set End Property _ Public Property trAv_Reference() As String Get Return CType(Me(Me.tabletblTR_Aviso.trAv_ReferenceColumn),String) End Get Set Me(Me.tabletblTR_Aviso.trAv_ReferenceColumn) = value End Set End Property _ Public Property trAv_Kennzeichen() As String Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_Kennzeichen in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_KennzeichenColumn) = value End Set End Property _ Public Property trAv_Nationalitaet() As String Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_NationalitaetColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_Nationalitaet in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_NationalitaetColumn) = value End Set End Property _ Public Property trAv_Avisierer() As String Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_AvisiererColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_Avisierer in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_AvisiererColumn) = value End Set End Property _ Public Property trAv_AvisiererKdNr() As Integer Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_AvisiererKdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_AvisiererKdNr in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_AvisiererKdNrColumn) = value End Set End Property _ Public Property trAv_Fraechter() As String Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_FraechterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_Fraechter in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_FraechterColumn) = value End Set End Property _ Public Property trAv_FraechterKdNr() As Integer Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_FraechterKdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_FraechterKdNr in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_FraechterKdNrColumn) = value End Set End Property _ Public Property trAv_Grenzueberschreitung() As Integer Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_GrenzueberschreitungColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_Grenzueberschreitung in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_GrenzueberschreitungColumn) = value End Set End Property _ Public Property trAv_Transportmittel() As Integer Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_TransportmittelColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_Transportmittel in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_TransportmittelColumn) = value End Set End Property _ Public Property trAv_colli() As Double Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_colliColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_colli in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_colliColumn) = value End Set End Property _ Public Property trAv_gewicht() As Double Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_gewichtColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_gewicht in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_gewichtColumn) = value End Set End Property _ Public Property trAv_VoraussichtlichesEintreffen() As Date Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_VoraussichtlichesEintreffenColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_VoraussichtlichesEintreffen in Tabelle tblTR_Aviso ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_VoraussichtlichesEintreffenColumn) = value End Set End Property _ Public Property trAv_Info() As String Get Try Return CType(Me(Me.tabletblTR_Aviso.trAv_InfoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_Info in Tabelle tblTR_Aviso ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Aviso.trAv_InfoColumn) = value End Set End Property _ Public Property trAv_AVISO_einarbeitet() As Boolean Get Return CType(Me(Me.tabletblTR_Aviso.trAv_AVISO_einarbeitetColumn),Boolean) End Get Set Me(Me.tabletblTR_Aviso.trAv_AVISO_einarbeitetColumn) = value End Set End Property _ Public Function IstrAv_KennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_KennzeichenColumn) End Function _ Public Sub SettrAv_KennzeichenNull() Me(Me.tabletblTR_Aviso.trAv_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_NationalitaetNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_NationalitaetColumn) End Function _ Public Sub SettrAv_NationalitaetNull() Me(Me.tabletblTR_Aviso.trAv_NationalitaetColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_AvisiererNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_AvisiererColumn) End Function _ Public Sub SettrAv_AvisiererNull() Me(Me.tabletblTR_Aviso.trAv_AvisiererColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_AvisiererKdNrNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_AvisiererKdNrColumn) End Function _ Public Sub SettrAv_AvisiererKdNrNull() Me(Me.tabletblTR_Aviso.trAv_AvisiererKdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_FraechterNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_FraechterColumn) End Function _ Public Sub SettrAv_FraechterNull() Me(Me.tabletblTR_Aviso.trAv_FraechterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_FraechterKdNrNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_FraechterKdNrColumn) End Function _ Public Sub SettrAv_FraechterKdNrNull() Me(Me.tabletblTR_Aviso.trAv_FraechterKdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_GrenzueberschreitungNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_GrenzueberschreitungColumn) End Function _ Public Sub SettrAv_GrenzueberschreitungNull() Me(Me.tabletblTR_Aviso.trAv_GrenzueberschreitungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_TransportmittelNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_TransportmittelColumn) End Function _ Public Sub SettrAv_TransportmittelNull() Me(Me.tabletblTR_Aviso.trAv_TransportmittelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_colliNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_colliColumn) End Function _ Public Sub SettrAv_colliNull() Me(Me.tabletblTR_Aviso.trAv_colliColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_gewichtNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_gewichtColumn) End Function _ Public Sub SettrAv_gewichtNull() Me(Me.tabletblTR_Aviso.trAv_gewichtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_VoraussichtlichesEintreffenNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_VoraussichtlichesEintreffenColumn) End Function _ Public Sub SettrAv_VoraussichtlichesEintreffenNull() Me(Me.tabletblTR_Aviso.trAv_VoraussichtlichesEintreffenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_InfoNull() As Boolean Return Me.IsNull(Me.tabletblTR_Aviso.trAv_InfoColumn) End Function _ Public Sub SettrAv_InfoNull() Me(Me.tabletblTR_Aviso.trAv_InfoColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTR_AvisoAnheangeRow Inherits Global.System.Data.DataRow Private tabletblTR_AvisoAnheange As tblTR_AvisoAnheangeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTR_AvisoAnheange = CType(Me.Table,tblTR_AvisoAnheangeDataTable) End Sub _ Public Property trAvAh_id() As Integer Get Return CType(Me(Me.tabletblTR_AvisoAnheange.trAvAh_idColumn),Integer) End Get Set Me(Me.tabletblTR_AvisoAnheange.trAvAh_idColumn) = value End Set End Property _ Public Property trAvAh_trAvId() As String Get Return CType(Me(Me.tabletblTR_AvisoAnheange.trAvAh_trAvIdColumn),String) End Get Set Me(Me.tabletblTR_AvisoAnheange.trAvAh_trAvIdColumn) = value End Set End Property _ Public Property DocumentType() As String Get Try Return CType(Me(Me.tabletblTR_AvisoAnheange.DocumentTypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocumentType in Tabelle tblTR_AvisoAnheange ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_AvisoAnheange.DocumentTypeColumn) = value End Set End Property _ Public Property DocumentNr() As String Get Try Return CType(Me(Me.tabletblTR_AvisoAnheange.DocumentNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocumentNr in Tabelle tblTR_AvisoAnheange ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_AvisoAnheange.DocumentNrColumn) = value End Set End Property _ Public Property DocumentDate() As Date Get Try Return CType(Me(Me.tabletblTR_AvisoAnheange.DocumentDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocumentDate in Tabelle tblTR_AvisoAnheange ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_AvisoAnheange.DocumentDateColumn) = value End Set End Property _ Public Property trAvAh_docID() As String Get Try Return CType(Me(Me.tabletblTR_AvisoAnheange.trAvAh_docIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAvAh_docID in Tabelle tblTR_AvisoAnheange ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_AvisoAnheange.trAvAh_docIDColumn) = value End Set End Property _ Public Function IsDocumentTypeNull() As Boolean Return Me.IsNull(Me.tabletblTR_AvisoAnheange.DocumentTypeColumn) End Function _ Public Sub SetDocumentTypeNull() Me(Me.tabletblTR_AvisoAnheange.DocumentTypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocumentNrNull() As Boolean Return Me.IsNull(Me.tabletblTR_AvisoAnheange.DocumentNrColumn) End Function _ Public Sub SetDocumentNrNull() Me(Me.tabletblTR_AvisoAnheange.DocumentNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocumentDateNull() As Boolean Return Me.IsNull(Me.tabletblTR_AvisoAnheange.DocumentDateColumn) End Function _ Public Sub SetDocumentDateNull() Me(Me.tabletblTR_AvisoAnheange.DocumentDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstrAvAh_docIDNull() As Boolean Return Me.IsNull(Me.tabletblTR_AvisoAnheange.trAvAh_docIDColumn) End Function _ Public Sub SettrAvAh_docIDNull() Me(Me.tabletblTR_AvisoAnheange.trAvAh_docIDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTR_ShipmentRow Inherits Global.System.Data.DataRow Private tabletblTR_Shipment As tblTR_ShipmentDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTR_Shipment = CType(Me.Table,tblTR_ShipmentDataTable) End Sub _ Public Property shTr_id() As Integer Get Return CType(Me(Me.tabletblTR_Shipment.shTr_idColumn),Integer) End Get Set Me(Me.tabletblTR_Shipment.shTr_idColumn) = value End Set End Property _ Public Property shTr_Partnersystem() As String Get Return CType(Me(Me.tabletblTR_Shipment.shTr_PartnersystemColumn),String) End Get Set Me(Me.tabletblTR_Shipment.shTr_PartnersystemColumn) = value End Set End Property _ Public Property shTr_Status() As Integer Get Try Return CType(Me(Me.tabletblTR_Shipment.shTr_StatusColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte shTr_Status in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.shTr_StatusColumn) = value End Set End Property _ Public Property shTr_TRAvisoId() As Integer Get Try Return CType(Me(Me.tabletblTR_Shipment.shTr_TRAvisoIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte shTr_TRAvisoId in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.shTr_TRAvisoIdColumn) = value End Set End Property _ Public Property Company() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.CompanyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Company in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.CompanyColumn) = value End Set End Property _ Public Property Department() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.DepartmentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Department in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.DepartmentColumn) = value End Set End Property _ Public Property Reference() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.ReferenceColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Reference in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.ReferenceColumn) = value End Set End Property _ Public Property DeclarationCountry() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.DeclarationCountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DeclarationCountry in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.DeclarationCountryColumn) = value End Set End Property _ Public Property DeclarationType() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.DeclarationTypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DeclarationType in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.DeclarationTypeColumn) = value End Set End Property _ Public Property TotPackage() As Integer Get Try Return CType(Me(Me.tabletblTR_Shipment.TotPackageColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TotPackage in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.TotPackageColumn) = value End Set End Property _ Public Property TotGrossWeight() As Decimal Get Try Return CType(Me(Me.tabletblTR_Shipment.TotGrossWeightColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TotGrossWeight in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.TotGrossWeightColumn) = value End Set End Property _ Public Property CustomsCodeDeparture() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.CustomsCodeDepartureColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomsCodeDeparture in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.CustomsCodeDepartureColumn) = value End Set End Property _ Public Property CustomsCodeDestination() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.CustomsCodeDestinationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomsCodeDestination in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.CustomsCodeDestinationColumn) = value End Set End Property _ Public Property CustomsCodeEntry() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.CustomsCodeEntryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomsCodeEntry in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.CustomsCodeEntryColumn) = value End Set End Property _ Public Property TransportModeBorder() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.TransportModeBorderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TransportModeBorder in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.TransportModeBorderColumn) = value End Set End Property _ Public Property CountryCodeDeparture() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.CountryCodeDepartureColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CountryCodeDeparture in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.CountryCodeDepartureColumn) = value End Set End Property _ Public Property CountryCodeDestination() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.CountryCodeDestinationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CountryCodeDestination in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.CountryCodeDestinationColumn) = value End Set End Property _ Public Property DEStateCodeDestination() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.DEStateCodeDestinationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEStateCodeDestination in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.DEStateCodeDestinationColumn) = value End Set End Property _ Public Property TransportArrivalLicensePlate() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.TransportArrivalLicensePlateColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TransportArrivalLicensePlate in Tabelle tblTR_Shipment ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.TransportArrivalLicensePlateColumn) = value End Set End Property _ Public Property TransportArrivalCountryCode() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.TransportArrivalCountryCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TransportArrivalCountryCode in Tabelle tblTR_Shipment ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.TransportArrivalCountryCodeColumn) = value End Set End Property _ Public Property TransportBorderType() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.TransportBorderTypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TransportBorderType in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.TransportBorderTypeColumn) = value End Set End Property _ Public Property TransportBorderLicensePlate() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.TransportBorderLicensePlateColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TransportBorderLicensePlate in Tabelle tblTR_Shipment ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.TransportBorderLicensePlateColumn) = value End Set End Property _ Public Property Incoterm() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.IncotermColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Incoterm in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.IncotermColumn) = value End Set End Property _ Public Property PrePaperCode() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.PrePaperCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PrePaperCode in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.PrePaperCodeColumn) = value End Set End Property _ Public Property PrePaperNr() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.PrePaperNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PrePaperNr in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.PrePaperNrColumn) = value End Set End Property _ Public Property KindOfBusiness() As Integer Get Try Return CType(Me(Me.tabletblTR_Shipment.KindOfBusinessColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KindOfBusiness in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.KindOfBusinessColumn) = value End Set End Property _ Public Property InvoiceAmount() As Decimal Get Try Return CType(Me(Me.tabletblTR_Shipment.InvoiceAmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte InvoiceAmount in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.InvoiceAmountColumn) = value End Set End Property _ Public Property InvoiceCurrency() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.InvoiceCurrencyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte InvoiceCurrency in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.InvoiceCurrencyColumn) = value End Set End Property _ Public Property ContainerNr1() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.ContainerNr1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ContainerNr1 in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.ContainerNr1Column) = value End Set End Property _ Public Property ContainerNr2() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.ContainerNr2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ContainerNr2 in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.ContainerNr2Column) = value End Set End Property _ Public Property ContainerNr3() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.ContainerNr3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ContainerNr3 in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.ContainerNr3Column) = value End Set End Property _ Public Property ContainerNr4() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.ContainerNr4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ContainerNr4 in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.ContainerNr4Column) = value End Set End Property _ Public Property trAv_Info() As String Get Try Return CType(Me(Me.tabletblTR_Shipment.trAv_InfoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trAv_Info in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.trAv_InfoColumn) = value End Set End Property _ Public Property FreightCostsEU() As Decimal Get Try Return CType(Me(Me.tabletblTR_Shipment.FreightCostsEUColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FreightCostsEU in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.FreightCostsEUColumn) = value End Set End Property _ Public Property FreightCostsNonEU() As Decimal Get Try Return CType(Me(Me.tabletblTR_Shipment.FreightCostsNonEUColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FreightCostsNonEU in Tabelle tblTR_Shipment ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment.FreightCostsNonEUColumn) = value End Set End Property _ Public Function IsshTr_StatusNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.shTr_StatusColumn) End Function _ Public Sub SetshTr_StatusNull() Me(Me.tabletblTR_Shipment.shTr_StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsshTr_TRAvisoIdNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.shTr_TRAvisoIdColumn) End Function _ Public Sub SetshTr_TRAvisoIdNull() Me(Me.tabletblTR_Shipment.shTr_TRAvisoIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCompanyNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.CompanyColumn) End Function _ Public Sub SetCompanyNull() Me(Me.tabletblTR_Shipment.CompanyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDepartmentNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.DepartmentColumn) End Function _ Public Sub SetDepartmentNull() Me(Me.tabletblTR_Shipment.DepartmentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReferenceNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.ReferenceColumn) End Function _ Public Sub SetReferenceNull() Me(Me.tabletblTR_Shipment.ReferenceColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarationCountryNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.DeclarationCountryColumn) End Function _ Public Sub SetDeclarationCountryNull() Me(Me.tabletblTR_Shipment.DeclarationCountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDeclarationTypeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.DeclarationTypeColumn) End Function _ Public Sub SetDeclarationTypeNull() Me(Me.tabletblTR_Shipment.DeclarationTypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTotPackageNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.TotPackageColumn) End Function _ Public Sub SetTotPackageNull() Me(Me.tabletblTR_Shipment.TotPackageColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTotGrossWeightNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.TotGrossWeightColumn) End Function _ Public Sub SetTotGrossWeightNull() Me(Me.tabletblTR_Shipment.TotGrossWeightColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomsCodeDepartureNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.CustomsCodeDepartureColumn) End Function _ Public Sub SetCustomsCodeDepartureNull() Me(Me.tabletblTR_Shipment.CustomsCodeDepartureColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomsCodeDestinationNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.CustomsCodeDestinationColumn) End Function _ Public Sub SetCustomsCodeDestinationNull() Me(Me.tabletblTR_Shipment.CustomsCodeDestinationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomsCodeEntryNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.CustomsCodeEntryColumn) End Function _ Public Sub SetCustomsCodeEntryNull() Me(Me.tabletblTR_Shipment.CustomsCodeEntryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransportModeBorderNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.TransportModeBorderColumn) End Function _ Public Sub SetTransportModeBorderNull() Me(Me.tabletblTR_Shipment.TransportModeBorderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCountryCodeDepartureNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.CountryCodeDepartureColumn) End Function _ Public Sub SetCountryCodeDepartureNull() Me(Me.tabletblTR_Shipment.CountryCodeDepartureColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCountryCodeDestinationNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.CountryCodeDestinationColumn) End Function _ Public Sub SetCountryCodeDestinationNull() Me(Me.tabletblTR_Shipment.CountryCodeDestinationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDEStateCodeDestinationNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.DEStateCodeDestinationColumn) End Function _ Public Sub SetDEStateCodeDestinationNull() Me(Me.tabletblTR_Shipment.DEStateCodeDestinationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransportArrivalLicensePlateNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.TransportArrivalLicensePlateColumn) End Function _ Public Sub SetTransportArrivalLicensePlateNull() Me(Me.tabletblTR_Shipment.TransportArrivalLicensePlateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransportArrivalCountryCodeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.TransportArrivalCountryCodeColumn) End Function _ Public Sub SetTransportArrivalCountryCodeNull() Me(Me.tabletblTR_Shipment.TransportArrivalCountryCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransportBorderTypeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.TransportBorderTypeColumn) End Function _ Public Sub SetTransportBorderTypeNull() Me(Me.tabletblTR_Shipment.TransportBorderTypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTransportBorderLicensePlateNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.TransportBorderLicensePlateColumn) End Function _ Public Sub SetTransportBorderLicensePlateNull() Me(Me.tabletblTR_Shipment.TransportBorderLicensePlateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIncotermNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.IncotermColumn) End Function _ Public Sub SetIncotermNull() Me(Me.tabletblTR_Shipment.IncotermColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrePaperCodeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.PrePaperCodeColumn) End Function _ Public Sub SetPrePaperCodeNull() Me(Me.tabletblTR_Shipment.PrePaperCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrePaperNrNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.PrePaperNrColumn) End Function _ Public Sub SetPrePaperNrNull() Me(Me.tabletblTR_Shipment.PrePaperNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKindOfBusinessNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.KindOfBusinessColumn) End Function _ Public Sub SetKindOfBusinessNull() Me(Me.tabletblTR_Shipment.KindOfBusinessColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsInvoiceAmountNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.InvoiceAmountColumn) End Function _ Public Sub SetInvoiceAmountNull() Me(Me.tabletblTR_Shipment.InvoiceAmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsInvoiceCurrencyNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.InvoiceCurrencyColumn) End Function _ Public Sub SetInvoiceCurrencyNull() Me(Me.tabletblTR_Shipment.InvoiceCurrencyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsContainerNr1Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.ContainerNr1Column) End Function _ Public Sub SetContainerNr1Null() Me(Me.tabletblTR_Shipment.ContainerNr1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsContainerNr2Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.ContainerNr2Column) End Function _ Public Sub SetContainerNr2Null() Me(Me.tabletblTR_Shipment.ContainerNr2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsContainerNr3Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.ContainerNr3Column) End Function _ Public Sub SetContainerNr3Null() Me(Me.tabletblTR_Shipment.ContainerNr3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsContainerNr4Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.ContainerNr4Column) End Function _ Public Sub SetContainerNr4Null() Me(Me.tabletblTR_Shipment.ContainerNr4Column) = Global.System.Convert.DBNull End Sub _ Public Function IstrAv_InfoNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.trAv_InfoColumn) End Function _ Public Sub SettrAv_InfoNull() Me(Me.tabletblTR_Shipment.trAv_InfoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFreightCostsEUNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.FreightCostsEUColumn) End Function _ Public Sub SetFreightCostsEUNull() Me(Me.tabletblTR_Shipment.FreightCostsEUColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFreightCostsNonEUNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment.FreightCostsNonEUColumn) End Function _ Public Sub SetFreightCostsNonEUNull() Me(Me.tabletblTR_Shipment.FreightCostsNonEUColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTR_Shipment_AdressenRow Inherits Global.System.Data.DataRow Private tabletblTR_Shipment_Adressen As tblTR_Shipment_AdressenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTR_Shipment_Adressen = CType(Me.Table,tblTR_Shipment_AdressenDataTable) End Sub _ Public Property shTrAd_id() As Integer Get Return CType(Me(Me.tabletblTR_Shipment_Adressen.shTrAd_idColumn),Integer) End Get Set Me(Me.tabletblTR_Shipment_Adressen.shTrAd_idColumn) = value End Set End Property _ Public Property shTrAd_ShTrId() As Integer Get Return CType(Me(Me.tabletblTR_Shipment_Adressen.shTrAd_ShTrIdColumn),Integer) End Get Set Me(Me.tabletblTR_Shipment_Adressen.shTrAd_ShTrIdColumn) = value End Set End Property _ Public Property AddressCode() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.AddressCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AddressCode in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.AddressCodeColumn) = value End Set End Property _ Public Property CustomerID() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.CustomerIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomerID in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.CustomerIDColumn) = value End Set End Property _ Public Property EORI() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EORI in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.EORIColumn) = value End Set End Property _ Public Property NLNR() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.NLNRColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NLNR in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.NLNRColumn) = value End Set End Property _ Public Property Name1() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.Name1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name1 in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.Name1Column) = value End Set End Property _ Public Property Name2() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.Name2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name2 in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.Name2Column) = value End Set End Property _ Public Property Name3() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.Name3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name3 in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.Name3Column) = value End Set End Property _ Public Property Street1() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.Street1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Street1 in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.Street1Column) = value End Set End Property _ Public Property Street2() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.Street2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Street2 in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.Street2Column) = value End Set End Property _ Public Property City() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.CityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte City in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.CityColumn) = value End Set End Property _ Public Property CountryCode() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.CountryCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CountryCode in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.CountryCodeColumn) = value End Set End Property _ Public Property PostalCode() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.PostalCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PostalCode in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.PostalCodeColumn) = value End Set End Property _ Public Property UStID() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.UStIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStID in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.UStIDColumn) = value End Set End Property _ Public Property TaxNo() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.TaxNoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TaxNo in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.TaxNoColumn) = value End Set End Property _ Public Property ContactPerson() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.ContactPersonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ContactPerson in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.ContactPersonColumn) = value End Set End Property _ Public Property Telefon() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.TelefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telefon in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.TelefonColumn) = value End Set End Property _ Public Property Email() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Adressen.EmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle tblTR_Shipment_Adressen ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Adressen.EmailColumn) = value End Set End Property _ Public Function IsAddressCodeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.AddressCodeColumn) End Function _ Public Sub SetAddressCodeNull() Me(Me.tabletblTR_Shipment_Adressen.AddressCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomerIDNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.CustomerIDColumn) End Function _ Public Sub SetCustomerIDNull() Me(Me.tabletblTR_Shipment_Adressen.CustomerIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEORINull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.EORIColumn) End Function _ Public Sub SetEORINull() Me(Me.tabletblTR_Shipment_Adressen.EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNLNRNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.NLNRColumn) End Function _ Public Sub SetNLNRNull() Me(Me.tabletblTR_Shipment_Adressen.NLNRColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsName1Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.Name1Column) End Function _ Public Sub SetName1Null() Me(Me.tabletblTR_Shipment_Adressen.Name1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsName2Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.Name2Column) End Function _ Public Sub SetName2Null() Me(Me.tabletblTR_Shipment_Adressen.Name2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsName3Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.Name3Column) End Function _ Public Sub SetName3Null() Me(Me.tabletblTR_Shipment_Adressen.Name3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsStreet1Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.Street1Column) End Function _ Public Sub SetStreet1Null() Me(Me.tabletblTR_Shipment_Adressen.Street1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsStreet2Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.Street2Column) End Function _ Public Sub SetStreet2Null() Me(Me.tabletblTR_Shipment_Adressen.Street2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCityNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.CityColumn) End Function _ Public Sub SetCityNull() Me(Me.tabletblTR_Shipment_Adressen.CityColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCountryCodeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.CountryCodeColumn) End Function _ Public Sub SetCountryCodeNull() Me(Me.tabletblTR_Shipment_Adressen.CountryCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPostalCodeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.PostalCodeColumn) End Function _ Public Sub SetPostalCodeNull() Me(Me.tabletblTR_Shipment_Adressen.PostalCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStIDNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.UStIDColumn) End Function _ Public Sub SetUStIDNull() Me(Me.tabletblTR_Shipment_Adressen.UStIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTaxNoNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.TaxNoColumn) End Function _ Public Sub SetTaxNoNull() Me(Me.tabletblTR_Shipment_Adressen.TaxNoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsContactPersonNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.ContactPersonColumn) End Function _ Public Sub SetContactPersonNull() Me(Me.tabletblTR_Shipment_Adressen.ContactPersonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelefonNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.TelefonColumn) End Function _ Public Sub SetTelefonNull() Me(Me.tabletblTR_Shipment_Adressen.TelefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Adressen.EmailColumn) End Function _ Public Sub SetEmailNull() Me(Me.tabletblTR_Shipment_Adressen.EmailColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTR_Shipment_DocumentRow Inherits Global.System.Data.DataRow Private tabletblTR_Shipment_Document As tblTR_Shipment_DocumentDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTR_Shipment_Document = CType(Me.Table,tblTR_Shipment_DocumentDataTable) End Sub _ Public Property shTrDoc_id() As Integer Get Return CType(Me(Me.tabletblTR_Shipment_Document.shTrDoc_idColumn),Integer) End Get Set Me(Me.tabletblTR_Shipment_Document.shTrDoc_idColumn) = value End Set End Property _ Public Property shTrDoc_ShTrId() As Integer Get Return CType(Me(Me.tabletblTR_Shipment_Document.shTrDoc_ShTrIdColumn),Integer) End Get Set Me(Me.tabletblTR_Shipment_Document.shTrDoc_ShTrIdColumn) = value End Set End Property _ Public Property DocumentType() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Document.DocumentTypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocumentType in Tabelle tblTR_Shipment_Document ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Document.DocumentTypeColumn) = value End Set End Property _ Public Property DocumentNr() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Document.DocumentNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocumentNr in Tabelle tblTR_Shipment_Document ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Document.DocumentNrColumn) = value End Set End Property _ Public Property DocumentDate() As Date Get Try Return CType(Me(Me.tabletblTR_Shipment_Document.DocumentDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocumentDate in Tabelle tblTR_Shipment_Document ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Document.DocumentDateColumn) = value End Set End Property _ Public Property shTrPosDoc_docID() As Integer Get Try Return CType(Me(Me.tabletblTR_Shipment_Document.shTrPosDoc_docIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte shTrPosDoc_docID in Tabelle tblTR_Shipment_Document ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Document.shTrPosDoc_docIDColumn) = value End Set End Property _ Public Function IsDocumentTypeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Document.DocumentTypeColumn) End Function _ Public Sub SetDocumentTypeNull() Me(Me.tabletblTR_Shipment_Document.DocumentTypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocumentNrNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Document.DocumentNrColumn) End Function _ Public Sub SetDocumentNrNull() Me(Me.tabletblTR_Shipment_Document.DocumentNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocumentDateNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Document.DocumentDateColumn) End Function _ Public Sub SetDocumentDateNull() Me(Me.tabletblTR_Shipment_Document.DocumentDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsshTrPosDoc_docIDNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Document.shTrPosDoc_docIDColumn) End Function _ Public Sub SetshTrPosDoc_docIDNull() Me(Me.tabletblTR_Shipment_Document.shTrPosDoc_docIDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTR_Shipment_PositionRow Inherits Global.System.Data.DataRow Private tabletblTR_Shipment_Position As tblTR_Shipment_PositionDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTR_Shipment_Position = CType(Me.Table,tblTR_Shipment_PositionDataTable) End Sub _ Public Property shTrPos_id() As Integer Get Return CType(Me(Me.tabletblTR_Shipment_Position.shTrPos_idColumn),Integer) End Get Set Me(Me.tabletblTR_Shipment_Position.shTrPos_idColumn) = value End Set End Property _ Public Property shTrPos_ShTrId() As Integer Get Return CType(Me(Me.tabletblTR_Shipment_Position.shTrPos_ShTrIdColumn),Integer) End Get Set Me(Me.tabletblTR_Shipment_Position.shTrPos_ShTrIdColumn) = value End Set End Property _ Public Property PosNr() As Integer Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.PosNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PosNr in Tabelle tblTR_Shipment_Position ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.PosNrColumn) = value End Set End Property _ Public Property GoodsTariff() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariff in Tabelle tblTR_Shipment_Position ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffColumn) = value End Set End Property _ Public Property GoodsTariffExt1() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffExt1 in Tabelle tblTR_Shipment_Position ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt1Column) = value End Set End Property _ Public Property GoodsTariffExt2() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffExt2 in Tabelle tblTR_Shipment_Position ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt2Column) = value End Set End Property _ Public Property GoodsTariffExt3() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffExt3 in Tabelle tblTR_Shipment_Position ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt3Column) = value End Set End Property _ Public Property GoodsTariffExt4() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffExt4 in Tabelle tblTR_Shipment_Position ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt4Column) = value End Set End Property _ Public Property GoodsTariffExt5() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffExt5 in Tabelle tblTR_Shipment_Position ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt5Column) = value End Set End Property _ Public Property GoodsTariffExt6() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffExt6 in Tabelle tblTR_Shipment_Position ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt6Column) = value End Set End Property _ Public Property GoodsTariffExt7() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffExt7 in Tabelle tblTR_Shipment_Position ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt7Column) = value End Set End Property _ Public Property GoodsTariffExt8() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffExt8 in Tabelle tblTR_Shipment_Position ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt8Column) = value End Set End Property _ Public Property GoodsTariffExt9() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffExt9 in Tabelle tblTR_Shipment_Position ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt9Column) = value End Set End Property _ Public Property GoodsTariffExt10() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffExt10 in Tabelle tblTR_Shipment_Position ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt10Column) = value End Set End Property _ Public Property GoodsTariffYCode1() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffYCode1 in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode1Column) = value End Set End Property _ Public Property GoodsTariffYCode2() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffYCode2 in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode2Column) = value End Set End Property _ Public Property GoodsTariffYCode3() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffYCode3 in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode3Column) = value End Set End Property _ Public Property GoodsTariffYCode4() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffYCode4 in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode4Column) = value End Set End Property _ Public Property GoodsTariffYCode5() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffYCode5 in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode5Column) = value End Set End Property _ Public Property GoodsTariffYCode6() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffYCode6 in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode6Column) = value End Set End Property _ Public Property GoodsTariffYCode7() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode7Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffYCode7 in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode7Column) = value End Set End Property _ Public Property GoodsTariffYCode8() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode8Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffYCode8 in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode8Column) = value End Set End Property _ Public Property GoodsTariffYCode9() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode9Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffYCode9 in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode9Column) = value End Set End Property _ Public Property GoodsTariffYCode10() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode10Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsTariffYCode10 in Tabelle tblTR_Shipment_Position ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode10Column) = value End Set End Property _ Public Property GoodsDescription() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GoodsDescriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GoodsDescription in Tabelle tblTR_Shipment_Position ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GoodsDescriptionColumn) = value End Set End Property _ Public Property OriginCountryCode() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.OriginCountryCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OriginCountryCode in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.OriginCountryCodeColumn) = value End Set End Property _ Public Property GrossWeight() As Decimal Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.GrossWeightColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GrossWeight in Tabelle tblTR_Shipment_Position ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.GrossWeightColumn) = value End Set End Property _ Public Property NetWeight() As Decimal Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.NetWeightColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NetWeight in Tabelle tblTR_Shipment_Position ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.NetWeightColumn) = value End Set End Property _ Public Property NumberOfPackages() As Integer Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.NumberOfPackagesColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NumberOfPackages in Tabelle tblTR_Shipment_Position ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.NumberOfPackagesColumn) = value End Set End Property _ Public Property KindOfPackages() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.KindOfPackagesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KindOfPackages in Tabelle tblTR_Shipment_Position ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.KindOfPackagesColumn) = value End Set End Property _ Public Property ItemInvoiceAmount() As Decimal Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.ItemInvoiceAmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ItemInvoiceAmount in Tabelle tblTR_Shipment_Position ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.ItemInvoiceAmountColumn) = value End Set End Property _ Public Property ItemInvoiceCurrency() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.ItemInvoiceCurrencyColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ItemInvoiceCurrency in Tabelle tblTR_Shipment_Position ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.ItemInvoiceCurrencyColumn) = value End Set End Property _ Public Property ItemAmount() As Decimal Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.ItemAmountColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ItemAmount in Tabelle tblTR_Shipment_Position ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.ItemAmountColumn) = value End Set End Property _ Public Property ItemAmountUnitCode() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.ItemAmountUnitCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ItemAmountUnitCode in Tabelle tblTR_Shipment_Position ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.ItemAmountUnitCodeColumn) = value End Set End Property _ Public Property Procedure() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position.ProcedureColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Procedure in Tabelle tblTR_Shipment_Position ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position.ProcedureColumn) = value End Set End Property _ Public Function IsPosNrNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.PosNrColumn) End Function _ Public Sub SetPosNrNull() Me(Me.tabletblTR_Shipment_Position.PosNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffColumn) End Function _ Public Sub SetGoodsTariffNull() Me(Me.tabletblTR_Shipment_Position.GoodsTariffColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffExt1Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffExt1Column) End Function _ Public Sub SetGoodsTariffExt1Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffExt2Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffExt2Column) End Function _ Public Sub SetGoodsTariffExt2Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffExt3Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffExt3Column) End Function _ Public Sub SetGoodsTariffExt3Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffExt4Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffExt4Column) End Function _ Public Sub SetGoodsTariffExt4Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffExt5Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffExt5Column) End Function _ Public Sub SetGoodsTariffExt5Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffExt6Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffExt6Column) End Function _ Public Sub SetGoodsTariffExt6Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffExt7Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffExt7Column) End Function _ Public Sub SetGoodsTariffExt7Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffExt8Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffExt8Column) End Function _ Public Sub SetGoodsTariffExt8Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffExt9Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffExt9Column) End Function _ Public Sub SetGoodsTariffExt9Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffExt10Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffExt10Column) End Function _ Public Sub SetGoodsTariffExt10Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffExt10Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffYCode1Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffYCode1Column) End Function _ Public Sub SetGoodsTariffYCode1Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffYCode2Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffYCode2Column) End Function _ Public Sub SetGoodsTariffYCode2Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffYCode3Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffYCode3Column) End Function _ Public Sub SetGoodsTariffYCode3Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffYCode4Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffYCode4Column) End Function _ Public Sub SetGoodsTariffYCode4Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffYCode5Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffYCode5Column) End Function _ Public Sub SetGoodsTariffYCode5Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffYCode6Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffYCode6Column) End Function _ Public Sub SetGoodsTariffYCode6Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffYCode7Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffYCode7Column) End Function _ Public Sub SetGoodsTariffYCode7Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode7Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffYCode8Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffYCode8Column) End Function _ Public Sub SetGoodsTariffYCode8Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode8Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffYCode9Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffYCode9Column) End Function _ Public Sub SetGoodsTariffYCode9Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode9Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsTariffYCode10Null() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsTariffYCode10Column) End Function _ Public Sub SetGoodsTariffYCode10Null() Me(Me.tabletblTR_Shipment_Position.GoodsTariffYCode10Column) = Global.System.Convert.DBNull End Sub _ Public Function IsGoodsDescriptionNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GoodsDescriptionColumn) End Function _ Public Sub SetGoodsDescriptionNull() Me(Me.tabletblTR_Shipment_Position.GoodsDescriptionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOriginCountryCodeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.OriginCountryCodeColumn) End Function _ Public Sub SetOriginCountryCodeNull() Me(Me.tabletblTR_Shipment_Position.OriginCountryCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGrossWeightNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.GrossWeightColumn) End Function _ Public Sub SetGrossWeightNull() Me(Me.tabletblTR_Shipment_Position.GrossWeightColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNetWeightNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.NetWeightColumn) End Function _ Public Sub SetNetWeightNull() Me(Me.tabletblTR_Shipment_Position.NetWeightColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNumberOfPackagesNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.NumberOfPackagesColumn) End Function _ Public Sub SetNumberOfPackagesNull() Me(Me.tabletblTR_Shipment_Position.NumberOfPackagesColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKindOfPackagesNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.KindOfPackagesColumn) End Function _ Public Sub SetKindOfPackagesNull() Me(Me.tabletblTR_Shipment_Position.KindOfPackagesColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItemInvoiceAmountNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.ItemInvoiceAmountColumn) End Function _ Public Sub SetItemInvoiceAmountNull() Me(Me.tabletblTR_Shipment_Position.ItemInvoiceAmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItemInvoiceCurrencyNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.ItemInvoiceCurrencyColumn) End Function _ Public Sub SetItemInvoiceCurrencyNull() Me(Me.tabletblTR_Shipment_Position.ItemInvoiceCurrencyColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItemAmountNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.ItemAmountColumn) End Function _ Public Sub SetItemAmountNull() Me(Me.tabletblTR_Shipment_Position.ItemAmountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsItemAmountUnitCodeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.ItemAmountUnitCodeColumn) End Function _ Public Sub SetItemAmountUnitCodeNull() Me(Me.tabletblTR_Shipment_Position.ItemAmountUnitCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsProcedureNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position.ProcedureColumn) End Function _ Public Sub SetProcedureNull() Me(Me.tabletblTR_Shipment_Position.ProcedureColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTR_Shipment_Position_DocumentRow Inherits Global.System.Data.DataRow Private tabletblTR_Shipment_Position_Document As tblTR_Shipment_Position_DocumentDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTR_Shipment_Position_Document = CType(Me.Table,tblTR_Shipment_Position_DocumentDataTable) End Sub _ Public Property shTrPosDoc_id() As Integer Get Return CType(Me(Me.tabletblTR_Shipment_Position_Document.shTrPosDoc_idColumn),Integer) End Get Set Me(Me.tabletblTR_Shipment_Position_Document.shTrPosDoc_idColumn) = value End Set End Property _ Public Property shTrPosDoc_ShTrId() As Integer Get Return CType(Me(Me.tabletblTR_Shipment_Position_Document.shTrPosDoc_ShTrIdColumn),Integer) End Get Set Me(Me.tabletblTR_Shipment_Position_Document.shTrPosDoc_ShTrIdColumn) = value End Set End Property _ Public Property shTrPosDoc_ShTrPosId() As Integer Get Return CType(Me(Me.tabletblTR_Shipment_Position_Document.shTrPosDoc_ShTrPosIdColumn),Integer) End Get Set Me(Me.tabletblTR_Shipment_Position_Document.shTrPosDoc_ShTrPosIdColumn) = value End Set End Property _ Public Property DocumentType() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position_Document.DocumentTypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocumentType in Tabelle tblTR_Shipment_Position_Document ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position_Document.DocumentTypeColumn) = value End Set End Property _ Public Property DocumentNr() As String Get Try Return CType(Me(Me.tabletblTR_Shipment_Position_Document.DocumentNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocumentNr in Tabelle tblTR_Shipment_Position_Document ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position_Document.DocumentNrColumn) = value End Set End Property _ Public Property DocumentDate() As Date Get Try Return CType(Me(Me.tabletblTR_Shipment_Position_Document.DocumentDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DocumentDate in Tabelle tblTR_Shipment_Position_Document ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position_Document.DocumentDateColumn) = value End Set End Property _ Public Property shTrPosDoc_docID() As Integer Get Try Return CType(Me(Me.tabletblTR_Shipment_Position_Document.shTrPosDoc_docIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte shTrPosDoc_docID in Tabelle tblTR_Shipment_Position_Document "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblTR_Shipment_Position_Document.shTrPosDoc_docIDColumn) = value End Set End Property _ Public Function IsDocumentTypeNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position_Document.DocumentTypeColumn) End Function _ Public Sub SetDocumentTypeNull() Me(Me.tabletblTR_Shipment_Position_Document.DocumentTypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocumentNrNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position_Document.DocumentNrColumn) End Function _ Public Sub SetDocumentNrNull() Me(Me.tabletblTR_Shipment_Position_Document.DocumentNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDocumentDateNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position_Document.DocumentDateColumn) End Function _ Public Sub SetDocumentDateNull() Me(Me.tabletblTR_Shipment_Position_Document.DocumentDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsshTrPosDoc_docIDNull() As Boolean Return Me.IsNull(Me.tabletblTR_Shipment_Position_Document.shTrPosDoc_docIDColumn) End Function _ Public Sub SetshTrPosDoc_docIDNull() Me(Me.tabletblTR_Shipment_Position_Document.shTrPosDoc_docIDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTranslateRow Inherits Global.System.Data.DataRow Private tabletblTranslate As tblTranslateDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTranslate = CType(Me.Table,tblTranslateDataTable) End Sub _ Public Property trs_id() As Integer Get Return CType(Me(Me.tabletblTranslate.trs_idColumn),Integer) End Get Set Me(Me.tabletblTranslate.trs_idColumn) = value End Set End Property _ Public Property trs_progId() As Integer Get Return CType(Me(Me.tabletblTranslate.trs_progIdColumn),Integer) End Get Set Me(Me.tabletblTranslate.trs_progIdColumn) = value End Set End Property _ Public Property trs_progName() As String Get Return CType(Me(Me.tabletblTranslate.trs_progNameColumn),String) End Get Set Me(Me.tabletblTranslate.trs_progNameColumn) = value End Set End Property _ Public Property trs_object() As String Get Return CType(Me(Me.tabletblTranslate.trs_objectColumn),String) End Get Set Me(Me.tabletblTranslate.trs_objectColumn) = value End Set End Property _ Public Property trs_control() As String Get Return CType(Me(Me.tabletblTranslate.trs_controlColumn),String) End Get Set Me(Me.tabletblTranslate.trs_controlColumn) = value End Set End Property _ Public Property trs_subControl() As String Get Try Return CType(Me(Me.tabletblTranslate.trs_subControlColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trs_subControl in Tabelle tblTranslate ist DBNull.", e) End Try End Get Set Me(Me.tabletblTranslate.trs_subControlColumn) = value End Set End Property _ Public Property trs_sprache() As String Get Return CType(Me(Me.tabletblTranslate.trs_spracheColumn),String) End Get Set Me(Me.tabletblTranslate.trs_spracheColumn) = value End Set End Property _ Public Property trs_text() As String Get Return CType(Me(Me.tabletblTranslate.trs_textColumn),String) End Get Set Me(Me.tabletblTranslate.trs_textColumn) = value End Set End Property _ Public Property trs_textDE() As String Get Return CType(Me(Me.tabletblTranslate.trs_textDEColumn),String) End Get Set Me(Me.tabletblTranslate.trs_textDEColumn) = value End Set End Property _ Public Property trs_active() As Boolean Get Return CType(Me(Me.tabletblTranslate.trs_activeColumn),Boolean) End Get Set Me(Me.tabletblTranslate.trs_activeColumn) = value End Set End Property _ Public Property trs_FirmaID() As Integer Get Try Return CType(Me(Me.tabletblTranslate.trs_FirmaIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trs_FirmaID in Tabelle tblTranslate ist DBNull.", e) End Try End Get Set Me(Me.tabletblTranslate.trs_FirmaIDColumn) = value End Set End Property _ Public Property trs_Option() As String Get Try Return CType(Me(Me.tabletblTranslate.trs_OptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte trs_Option in Tabelle tblTranslate ist DBNull.", e) End Try End Get Set Me(Me.tabletblTranslate.trs_OptionColumn) = value End Set End Property _ Public Function Istrs_subControlNull() As Boolean Return Me.IsNull(Me.tabletblTranslate.trs_subControlColumn) End Function _ Public Sub Settrs_subControlNull() Me(Me.tabletblTranslate.trs_subControlColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istrs_FirmaIDNull() As Boolean Return Me.IsNull(Me.tabletblTranslate.trs_FirmaIDColumn) End Function _ Public Sub Settrs_FirmaIDNull() Me(Me.tabletblTranslate.trs_FirmaIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Istrs_OptionNull() As Boolean Return Me.IsNull(Me.tabletblTranslate.trs_OptionColumn) End Function _ Public Sub Settrs_OptionNull() Me(Me.tabletblTranslate.trs_OptionColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTranslateAutoRow Inherits Global.System.Data.DataRow Private tabletblTranslateAuto As tblTranslateAutoDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTranslateAuto = CType(Me.Table,tblTranslateAutoDataTable) End Sub _ Public Property trs_id() As Integer Get Return CType(Me(Me.tabletblTranslateAuto.trs_idColumn),Integer) End Get Set Me(Me.tabletblTranslateAuto.trs_idColumn) = value End Set End Property _ Public Property trs_sprache() As String Get Return CType(Me(Me.tabletblTranslateAuto.trs_spracheColumn),String) End Get Set Me(Me.tabletblTranslateAuto.trs_spracheColumn) = value End Set End Property _ Public Property trs_text() As String Get Return CType(Me(Me.tabletblTranslateAuto.trs_textColumn),String) End Get Set Me(Me.tabletblTranslateAuto.trs_textColumn) = value End Set End Property _ Public Property trs_textDE() As String Get Return CType(Me(Me.tabletblTranslateAuto.trs_textDEColumn),String) End Get Set Me(Me.tabletblTranslateAuto.trs_textDEColumn) = value End Set End Property _ Public Property trs_active() As Boolean Get Return CType(Me(Me.tabletblTranslateAuto.trs_activeColumn),Boolean) End Get Set Me(Me.tabletblTranslateAuto.trs_activeColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTrdinHeaderRow Inherits Global.System.Data.DataRow Private tabletblTrdinHeader As tblTrdinHeaderDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTrdinHeader = CType(Me.Table,tblTrdinHeaderDataTable) End Sub _ Public Property Speditionsbuch() As Short Get Return CType(Me(Me.tabletblTrdinHeader.SpeditionsbuchColumn),Short) End Get Set Me(Me.tabletblTrdinHeader.SpeditionsbuchColumn) = value End Set End Property _ Public Property Company_code() As String Get Return CType(Me(Me.tabletblTrdinHeader.Company_codeColumn),String) End Get Set Me(Me.tabletblTrdinHeader.Company_codeColumn) = value End Set End Property _ Public Property Depot_code() As String Get Try Return CType(Me(Me.tabletblTrdinHeader.Depot_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Depot_code in Tabelle tblTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinHeader.Depot_codeColumn) = value End Set End Property _ Public Property Send_number() As Integer Get Return CType(Me(Me.tabletblTrdinHeader.Send_numberColumn),Integer) End Get Set Me(Me.tabletblTrdinHeader.Send_numberColumn) = value End Set End Property _ Public Property Send_date() As Date Get Try Return CType(Me(Me.tabletblTrdinHeader.Send_dateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Send_date in Tabelle tblTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinHeader.Send_dateColumn) = value End Set End Property _ Public Property Computer_location() As String Get Return CType(Me(Me.tabletblTrdinHeader.Computer_locationColumn),String) End Get Set Me(Me.tabletblTrdinHeader.Computer_locationColumn) = value End Set End Property _ Public Property Message_type() As String Get Return CType(Me(Me.tabletblTrdinHeader.Message_typeColumn),String) End Get Set Me(Me.tabletblTrdinHeader.Message_typeColumn) = value End Set End Property _ Public Property Fm_net_address() As String Get Return CType(Me(Me.tabletblTrdinHeader.Fm_net_addressColumn),String) End Get Set Me(Me.tabletblTrdinHeader.Fm_net_addressColumn) = value End Set End Property _ Public Property Accounting_date() As Date Get Return CType(Me(Me.tabletblTrdinHeader.Accounting_dateColumn),Date) End Get Set Me(Me.tabletblTrdinHeader.Accounting_dateColumn) = value End Set End Property _ Public Property Currency_code() As String Get Return CType(Me(Me.tabletblTrdinHeader.Currency_codeColumn),String) End Get Set Me(Me.tabletblTrdinHeader.Currency_codeColumn) = value End Set End Property _ Public Property Country_code_dispatch() As String Get Return CType(Me(Me.tabletblTrdinHeader.Country_code_dispatchColumn),String) End Get Set Me(Me.tabletblTrdinHeader.Country_code_dispatchColumn) = value End Set End Property _ Public Property Vat_number_dispatch() As String Get Return CType(Me(Me.tabletblTrdinHeader.Vat_number_dispatchColumn),String) End Get Set Me(Me.tabletblTrdinHeader.Vat_number_dispatchColumn) = value End Set End Property _ Public Property Vat_code_I() As String Get Return CType(Me(Me.tabletblTrdinHeader.Vat_code_IColumn),String) End Get Set Me(Me.tabletblTrdinHeader.Vat_code_IColumn) = value End Set End Property _ Public Property Vat_code_S0() As String Get Return CType(Me(Me.tabletblTrdinHeader.Vat_code_S0Column),String) End Get Set Me(Me.tabletblTrdinHeader.Vat_code_S0Column) = value End Set End Property _ Public Property Vat_code_S1() As String Get Return CType(Me(Me.tabletblTrdinHeader.Vat_code_S1Column),String) End Get Set Me(Me.tabletblTrdinHeader.Vat_code_S1Column) = value End Set End Property _ Public Property Vat_code_X() As String Get Return CType(Me(Me.tabletblTrdinHeader.Vat_code_XColumn),String) End Get Set Me(Me.tabletblTrdinHeader.Vat_code_XColumn) = value End Set End Property _ Public Property Pfad1() As String Get Return CType(Me(Me.tabletblTrdinHeader.Pfad1Column),String) End Get Set Me(Me.tabletblTrdinHeader.Pfad1Column) = value End Set End Property _ Public Property Pfad2() As String Get Return CType(Me(Me.tabletblTrdinHeader.Pfad2Column),String) End Get Set Me(Me.tabletblTrdinHeader.Pfad2Column) = value End Set End Property _ Public Property Datei() As String Get Try Return CType(Me(Me.tabletblTrdinHeader.DateiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datei in Tabelle tblTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinHeader.DateiColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblTrdinHeader.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinHeader.upsize_tsColumn) = value End Set End Property _ Public Function IsDepot_codeNull() As Boolean Return Me.IsNull(Me.tabletblTrdinHeader.Depot_codeColumn) End Function _ Public Sub SetDepot_codeNull() Me(Me.tabletblTrdinHeader.Depot_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSend_dateNull() As Boolean Return Me.IsNull(Me.tabletblTrdinHeader.Send_dateColumn) End Function _ Public Sub SetSend_dateNull() Me(Me.tabletblTrdinHeader.Send_dateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateiNull() As Boolean Return Me.IsNull(Me.tabletblTrdinHeader.DateiColumn) End Function _ Public Sub SetDateiNull() Me(Me.tabletblTrdinHeader.DateiColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblTrdinHeader.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblTrdinHeader.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTrdinInvoiceRow Inherits Global.System.Data.DataRow Private tabletblTrdinInvoice As tblTrdinInvoiceDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTrdinInvoice = CType(Me.Table,tblTrdinInvoiceDataTable) End Sub _ Public Property Rechnungsdatum() As Date Get Return CType(Me(Me.tabletblTrdinInvoice.RechnungsdatumColumn),Date) End Get Set Me(Me.tabletblTrdinInvoice.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Return CType(Me(Me.tabletblTrdinInvoice.RechnungsnummerColumn),Integer) End Get Set Me(Me.tabletblTrdinInvoice.RechnungsnummerColumn) = value End Set End Property _ Public Property Speditionsbuch() As Short Get Try Return CType(Me(Me.tabletblTrdinInvoice.SpeditionsbuchColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Speditionsbuch in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.SpeditionsbuchColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tabletblTrdinInvoice.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tabletblTrdinInvoice.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Try Return CType(Me(Me.tabletblTrdinInvoice.UnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UnterNr in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Try Return CType(Me(Me.tabletblTrdinInvoice.AbfertigungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsdatum in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.AbfertigungsdatumColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Try Return CType(Me(Me.tabletblTrdinInvoice.BelegartenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegartenNr in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.BelegartenNrColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Try Return CType(Me(Me.tabletblTrdinInvoice.KundenNrZentraleColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNrZentrale in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.KundenNrZentraleColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Try Return CType(Me(Me.tabletblTrdinInvoice.RechnungsKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsKundenNr in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.RechnungsKundenNrColumn) = value End Set End Property _ Public Property RechnungsLandKz() As String Get Try Return CType(Me(Me.tabletblTrdinInvoice.RechnungsLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsLandKz in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.RechnungsLandKzColumn) = value End Set End Property _ Public Property RechnungsUstIdKz() As String Get Try Return CType(Me(Me.tabletblTrdinInvoice.RechnungsUstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdKz in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.RechnungsUstIdKzColumn) = value End Set End Property _ Public Property RechnungsUstIdNr() As String Get Try Return CType(Me(Me.tabletblTrdinInvoice.RechnungsUstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdNr in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.RechnungsUstIdNrColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tabletblTrdinInvoice.LastschriftColumn),Boolean) End Get Set Me(Me.tabletblTrdinInvoice.LastschriftColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Try Return CType(Me(Me.tabletblTrdinInvoice.SteuerschlüsselColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerschlüssel in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.SteuerschlüsselColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Try Return CType(Me(Me.tabletblTrdinInvoice._Steuersatz__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuersatz % in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice._Steuersatz__Column) = value End Set End Property _ Public Property WährungLokal() As String Get Try Return CType(Me(Me.tabletblTrdinInvoice.WährungLokalColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungLokal in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.WährungLokalColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragLokal() As Decimal Get Try Return CType(Me(Me.tabletblTrdinInvoice.SteuerpflichtigerBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragLokal in Tabelle tblTrdinInvoice ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.SteuerpflichtigerBetragLokalColumn) = value End Set End Property _ Public Property SteuerfreierBetragLokal() As Decimal Get Try Return CType(Me(Me.tabletblTrdinInvoice.SteuerfreierBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragLokal in Tabelle tblTrdinInvoice ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.SteuerfreierBetragLokalColumn) = value End Set End Property _ Public Property SteuerbetragLokal() As Decimal Get Try Return CType(Me(Me.tabletblTrdinInvoice.SteuerbetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerbetragLokal in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.SteuerbetragLokalColumn) = value End Set End Property _ Public Property RechnungsbetragLokal() As Decimal Get Try Return CType(Me(Me.tabletblTrdinInvoice.RechnungsbetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsbetragLokal in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.RechnungsbetragLokalColumn) = value End Set End Property _ Public Property WährungFremd() As String Get Try Return CType(Me(Me.tabletblTrdinInvoice.WährungFremdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungFremd in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.WährungFremdColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragFremd() As Decimal Get Try Return CType(Me(Me.tabletblTrdinInvoice.SteuerpflichtigerBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragFremd in Tabelle tblTrdinInvoice ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.SteuerpflichtigerBetragFremdColumn) = value End Set End Property _ Public Property SteuerfreierBetragFremd() As Decimal Get Try Return CType(Me(Me.tabletblTrdinInvoice.SteuerfreierBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragFremd in Tabelle tblTrdinInvoice ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.SteuerfreierBetragFremdColumn) = value End Set End Property _ Public Property SteuerbetragFremd() As Decimal Get Try Return CType(Me(Me.tabletblTrdinInvoice.SteuerbetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerbetragFremd in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.SteuerbetragFremdColumn) = value End Set End Property _ Public Property RechnungsbetragFremd() As Decimal Get Try Return CType(Me(Me.tabletblTrdinInvoice.RechnungsbetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsbetragFremd in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.RechnungsbetragFremdColumn) = value End Set End Property _ Public Property TrdinDateiname() As String Get Try Return CType(Me(Me.tabletblTrdinInvoice.TrdinDateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TrdinDateiname in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.TrdinDateinameColumn) = value End Set End Property _ Public Property Abgleich_op_debitor() As Boolean Get Return CType(Me(Me.tabletblTrdinInvoice.Abgleich_op_debitorColumn),Boolean) End Get Set Me(Me.tabletblTrdinInvoice.Abgleich_op_debitorColumn) = value End Set End Property _ Public Property Nettozahlungsziel() As Short Get Try Return CType(Me(Me.tabletblTrdinInvoice.NettozahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettozahlungsziel in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.NettozahlungszielColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tabletblTrdinInvoice.Firma_IDColumn),Short) End Get Set Me(Me.tabletblTrdinInvoice.Firma_IDColumn) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tabletblTrdinInvoice.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.UStVAn_IDColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblTrdinInvoice.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.upsize_tsColumn) = value End Set End Property _ Public Property AmbDateiname() As String Get Try Return CType(Me(Me.tabletblTrdinInvoice.AmbDateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AmbDateiname in Tabelle tblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinInvoice.AmbDateinameColumn) = value End Set End Property _ Public Function IsSpeditionsbuchNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.SpeditionsbuchColumn) End Function _ Public Sub SetSpeditionsbuchNull() Me(Me.tabletblTrdinInvoice.SpeditionsbuchColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tabletblTrdinInvoice.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tabletblTrdinInvoice.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUnterNrNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.UnterNrColumn) End Function _ Public Sub SetUnterNrNull() Me(Me.tabletblTrdinInvoice.UnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.AbfertigungsdatumColumn) End Function _ Public Sub SetAbfertigungsdatumNull() Me(Me.tabletblTrdinInvoice.AbfertigungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegartenNrNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.BelegartenNrColumn) End Function _ Public Sub SetBelegartenNrNull() Me(Me.tabletblTrdinInvoice.BelegartenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKundenNrZentraleNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.KundenNrZentraleColumn) End Function _ Public Sub SetKundenNrZentraleNull() Me(Me.tabletblTrdinInvoice.KundenNrZentraleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsKundenNrNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.RechnungsKundenNrColumn) End Function _ Public Sub SetRechnungsKundenNrNull() Me(Me.tabletblTrdinInvoice.RechnungsKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsLandKzNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.RechnungsLandKzColumn) End Function _ Public Sub SetRechnungsLandKzNull() Me(Me.tabletblTrdinInvoice.RechnungsLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdKzNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.RechnungsUstIdKzColumn) End Function _ Public Sub SetRechnungsUstIdKzNull() Me(Me.tabletblTrdinInvoice.RechnungsUstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdNrNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.RechnungsUstIdNrColumn) End Function _ Public Sub SetRechnungsUstIdNrNull() Me(Me.tabletblTrdinInvoice.RechnungsUstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerschlüsselNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.SteuerschlüsselColumn) End Function _ Public Sub SetSteuerschlüsselNull() Me(Me.tabletblTrdinInvoice.SteuerschlüsselColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Steuersatz__Null() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice._Steuersatz__Column) End Function _ Public Sub Set_Steuersatz__Null() Me(Me.tabletblTrdinInvoice._Steuersatz__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungLokalNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.WährungLokalColumn) End Function _ Public Sub SetWährungLokalNull() Me(Me.tabletblTrdinInvoice.WährungLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragLokalNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.SteuerpflichtigerBetragLokalColumn) End Function _ Public Sub SetSteuerpflichtigerBetragLokalNull() Me(Me.tabletblTrdinInvoice.SteuerpflichtigerBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragLokalNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.SteuerfreierBetragLokalColumn) End Function _ Public Sub SetSteuerfreierBetragLokalNull() Me(Me.tabletblTrdinInvoice.SteuerfreierBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragLokalNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.SteuerbetragLokalColumn) End Function _ Public Sub SetSteuerbetragLokalNull() Me(Me.tabletblTrdinInvoice.SteuerbetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragLokalNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.RechnungsbetragLokalColumn) End Function _ Public Sub SetRechnungsbetragLokalNull() Me(Me.tabletblTrdinInvoice.RechnungsbetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungFremdNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.WährungFremdColumn) End Function _ Public Sub SetWährungFremdNull() Me(Me.tabletblTrdinInvoice.WährungFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragFremdNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.SteuerpflichtigerBetragFremdColumn) End Function _ Public Sub SetSteuerpflichtigerBetragFremdNull() Me(Me.tabletblTrdinInvoice.SteuerpflichtigerBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragFremdNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.SteuerfreierBetragFremdColumn) End Function _ Public Sub SetSteuerfreierBetragFremdNull() Me(Me.tabletblTrdinInvoice.SteuerfreierBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragFremdNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.SteuerbetragFremdColumn) End Function _ Public Sub SetSteuerbetragFremdNull() Me(Me.tabletblTrdinInvoice.SteuerbetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragFremdNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.RechnungsbetragFremdColumn) End Function _ Public Sub SetRechnungsbetragFremdNull() Me(Me.tabletblTrdinInvoice.RechnungsbetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTrdinDateinameNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.TrdinDateinameColumn) End Function _ Public Sub SetTrdinDateinameNull() Me(Me.tabletblTrdinInvoice.TrdinDateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettozahlungszielNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.NettozahlungszielColumn) End Function _ Public Sub SetNettozahlungszielNull() Me(Me.tabletblTrdinInvoice.NettozahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tabletblTrdinInvoice.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblTrdinInvoice.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAmbDateinameNull() As Boolean Return Me.IsNull(Me.tabletblTrdinInvoice.AmbDateinameColumn) End Function _ Public Sub SetAmbDateinameNull() Me(Me.tabletblTrdinInvoice.AmbDateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblTrdinProductRows() As tblTrdinProductRow() If (Me.Table.ChildRelations("tblTrdinProduct_FK00") Is Nothing) Then Return New tblTrdinProductRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblTrdinProduct_FK00")),tblTrdinProductRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblTrdinProductRow Inherits Global.System.Data.DataRow Private tabletblTrdinProduct As tblTrdinProductDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblTrdinProduct = CType(Me.Table,tblTrdinProductDataTable) End Sub _ Public Property Rechnungsdatum() As Date Get Return CType(Me(Me.tabletblTrdinProduct.RechnungsdatumColumn),Date) End Get Set Me(Me.tabletblTrdinProduct.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Return CType(Me(Me.tabletblTrdinProduct.RechnungsnummerColumn),Integer) End Get Set Me(Me.tabletblTrdinProduct.RechnungsnummerColumn) = value End Set End Property _ Public Property Leistungsnummer() As Short Get Return CType(Me(Me.tabletblTrdinProduct.LeistungsnummerColumn),Short) End Get Set Me(Me.tabletblTrdinProduct.LeistungsnummerColumn) = value End Set End Property _ Public Property Leistungsbezeichnung() As String Get Return CType(Me(Me.tabletblTrdinProduct.LeistungsbezeichnungColumn),String) End Get Set Me(Me.tabletblTrdinProduct.LeistungsbezeichnungColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tabletblTrdinProduct.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tabletblTrdinProduct.SteuerpflichtigColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragLokal() As Decimal Get Try Return CType(Me(Me.tabletblTrdinProduct.SteuerpflichtigerBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragLokal in Tabelle tblTrdinProduct ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblTrdinProduct.SteuerpflichtigerBetragLokalColumn) = value End Set End Property _ Public Property SteuerfreierBetragLokal() As Decimal Get Try Return CType(Me(Me.tabletblTrdinProduct.SteuerfreierBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragLokal in Tabelle tblTrdinProduct ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTrdinProduct.SteuerfreierBetragLokalColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragFremd() As Decimal Get Try Return CType(Me(Me.tabletblTrdinProduct.SteuerpflichtigerBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragFremd in Tabelle tblTrdinProduct ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblTrdinProduct.SteuerpflichtigerBetragFremdColumn) = value End Set End Property _ Public Property SteuerfreierBetragFremd() As Decimal Get Try Return CType(Me(Me.tabletblTrdinProduct.SteuerfreierBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragFremd in Tabelle tblTrdinProduct ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblTrdinProduct.SteuerfreierBetragFremdColumn) = value End Set End Property _ Public Property Belegdaten() As String Get Try Return CType(Me(Me.tabletblTrdinProduct.BelegdatenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdaten in Tabelle tblTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinProduct.BelegdatenColumn) = value End Set End Property _ Public Property Sachkonto() As String Get Try Return CType(Me(Me.tabletblTrdinProduct.SachkontoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachkonto in Tabelle tblTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinProduct.SachkontoColumn) = value End Set End Property _ Public Property Buchungstext() As String Get Try Return CType(Me(Me.tabletblTrdinProduct.BuchungstextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungstext in Tabelle tblTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinProduct.BuchungstextColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblTrdinProduct.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tabletblTrdinProduct.upsize_tsColumn) = value End Set End Property _ Public Property tblTrdinInvoiceRowParent() As tblTrdinInvoiceRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblTrdinProduct_FK00")),tblTrdinInvoiceRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblTrdinProduct_FK00")) End Set End Property _ Public Function IsSteuerpflichtigerBetragLokalNull() As Boolean Return Me.IsNull(Me.tabletblTrdinProduct.SteuerpflichtigerBetragLokalColumn) End Function _ Public Sub SetSteuerpflichtigerBetragLokalNull() Me(Me.tabletblTrdinProduct.SteuerpflichtigerBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragLokalNull() As Boolean Return Me.IsNull(Me.tabletblTrdinProduct.SteuerfreierBetragLokalColumn) End Function _ Public Sub SetSteuerfreierBetragLokalNull() Me(Me.tabletblTrdinProduct.SteuerfreierBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragFremdNull() As Boolean Return Me.IsNull(Me.tabletblTrdinProduct.SteuerpflichtigerBetragFremdColumn) End Function _ Public Sub SetSteuerpflichtigerBetragFremdNull() Me(Me.tabletblTrdinProduct.SteuerpflichtigerBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragFremdNull() As Boolean Return Me.IsNull(Me.tabletblTrdinProduct.SteuerfreierBetragFremdColumn) End Function _ Public Sub SetSteuerfreierBetragFremdNull() Me(Me.tabletblTrdinProduct.SteuerfreierBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatenNull() As Boolean Return Me.IsNull(Me.tabletblTrdinProduct.BelegdatenColumn) End Function _ Public Sub SetBelegdatenNull() Me(Me.tabletblTrdinProduct.BelegdatenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoNull() As Boolean Return Me.IsNull(Me.tabletblTrdinProduct.SachkontoColumn) End Function _ Public Sub SetSachkontoNull() Me(Me.tabletblTrdinProduct.SachkontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungstextNull() As Boolean Return Me.IsNull(Me.tabletblTrdinProduct.BuchungstextColumn) End Function _ Public Sub SetBuchungstextNull() Me(Me.tabletblTrdinProduct.BuchungstextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblTrdinProduct.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblTrdinProduct.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUIDPruefungRow Inherits Global.System.Data.DataRow Private tabletblUIDPruefung As tblUIDPruefungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUIDPruefung = CType(Me.Table,tblUIDPruefungDataTable) End Sub _ Public Property uid_id() As Integer Get Return CType(Me(Me.tabletblUIDPruefung.uid_idColumn),Integer) End Get Set Me(Me.tabletblUIDPruefung.uid_idColumn) = value End Set End Property _ Public Property uid_KundenNr() As Integer Get Return CType(Me(Me.tabletblUIDPruefung.uid_KundenNrColumn),Integer) End Get Set Me(Me.tabletblUIDPruefung.uid_KundenNrColumn) = value End Set End Property _ Public Property uid_UstIdKz() As String Get Return CType(Me(Me.tabletblUIDPruefung.uid_UstIdKzColumn),String) End Get Set Me(Me.tabletblUIDPruefung.uid_UstIdKzColumn) = value End Set End Property _ Public Property uid_UstIdNr() As String Get Return CType(Me(Me.tabletblUIDPruefung.uid_UstIdNrColumn),String) End Get Set Me(Me.tabletblUIDPruefung.uid_UstIdNrColumn) = value End Set End Property _ Public Property uid_Datum() As Date Get Return CType(Me(Me.tabletblUIDPruefung.uid_DatumColumn),Date) End Get Set Me(Me.tabletblUIDPruefung.uid_DatumColumn) = value End Set End Property _ Public Property uid_valid() As Boolean Get Return CType(Me(Me.tabletblUIDPruefung.uid_validColumn),Boolean) End Get Set Me(Me.tabletblUIDPruefung.uid_validColumn) = value End Set End Property _ Public Property uid_MaId() As Integer Get Try Return CType(Me(Me.tabletblUIDPruefung.uid_MaIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uid_MaId in Tabelle tblUIDPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUIDPruefung.uid_MaIdColumn) = value End Set End Property _ Public Property uid_Sachbearbeiter() As String Get Return CType(Me(Me.tabletblUIDPruefung.uid_SachbearbeiterColumn),String) End Get Set Me(Me.tabletblUIDPruefung.uid_SachbearbeiterColumn) = value End Set End Property _ Public Property uid_firma() As String Get Try Return CType(Me(Me.tabletblUIDPruefung.uid_firmaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uid_firma in Tabelle tblUIDPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUIDPruefung.uid_firmaColumn) = value End Set End Property _ Public Property uid_stufe() As Integer Get Return CType(Me(Me.tabletblUIDPruefung.uid_stufeColumn),Integer) End Get Set Me(Me.tabletblUIDPruefung.uid_stufeColumn) = value End Set End Property _ Public Property Firma() As String Get Return CType(Me(Me.tabletblUIDPruefung.FirmaColumn),String) End Get Set Me(Me.tabletblUIDPruefung.FirmaColumn) = value End Set End Property _ Public Property uid_abfrageUid() As String Get Try Return CType(Me(Me.tabletblUIDPruefung.uid_abfrageUidColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uid_abfrageUid in Tabelle tblUIDPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUIDPruefung.uid_abfrageUidColumn) = value End Set End Property _ Public Property uid_sessionId() As String Get Try Return CType(Me(Me.tabletblUIDPruefung.uid_sessionIdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uid_sessionId in Tabelle tblUIDPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUIDPruefung.uid_sessionIdColumn) = value End Set End Property _ Public Property uid_adr1() As String Get Try Return CType(Me(Me.tabletblUIDPruefung.uid_adr1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uid_adr1 in Tabelle tblUIDPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUIDPruefung.uid_adr1Column) = value End Set End Property _ Public Property uid_adr2() As String Get Try Return CType(Me(Me.tabletblUIDPruefung.uid_adr2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uid_adr2 in Tabelle tblUIDPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUIDPruefung.uid_adr2Column) = value End Set End Property _ Public Property uid_adr3() As String Get Try Return CType(Me(Me.tabletblUIDPruefung.uid_adr3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uid_adr3 in Tabelle tblUIDPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUIDPruefung.uid_adr3Column) = value End Set End Property _ Public Property uid_adr4() As String Get Try Return CType(Me(Me.tabletblUIDPruefung.uid_adr4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uid_adr4 in Tabelle tblUIDPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUIDPruefung.uid_adr4Column) = value End Set End Property _ Public Property uid_adr5() As String Get Try Return CType(Me(Me.tabletblUIDPruefung.uid_adr5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uid_adr5 in Tabelle tblUIDPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUIDPruefung.uid_adr5Column) = value End Set End Property _ Public Property uid_adr6() As String Get Try Return CType(Me(Me.tabletblUIDPruefung.uid_adr6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte uid_adr6 in Tabelle tblUIDPruefung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUIDPruefung.uid_adr6Column) = value End Set End Property _ Public Function Isuid_MaIdNull() As Boolean Return Me.IsNull(Me.tabletblUIDPruefung.uid_MaIdColumn) End Function _ Public Sub Setuid_MaIdNull() Me(Me.tabletblUIDPruefung.uid_MaIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isuid_firmaNull() As Boolean Return Me.IsNull(Me.tabletblUIDPruefung.uid_firmaColumn) End Function _ Public Sub Setuid_firmaNull() Me(Me.tabletblUIDPruefung.uid_firmaColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isuid_abfrageUidNull() As Boolean Return Me.IsNull(Me.tabletblUIDPruefung.uid_abfrageUidColumn) End Function _ Public Sub Setuid_abfrageUidNull() Me(Me.tabletblUIDPruefung.uid_abfrageUidColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isuid_sessionIdNull() As Boolean Return Me.IsNull(Me.tabletblUIDPruefung.uid_sessionIdColumn) End Function _ Public Sub Setuid_sessionIdNull() Me(Me.tabletblUIDPruefung.uid_sessionIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isuid_adr1Null() As Boolean Return Me.IsNull(Me.tabletblUIDPruefung.uid_adr1Column) End Function _ Public Sub Setuid_adr1Null() Me(Me.tabletblUIDPruefung.uid_adr1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isuid_adr2Null() As Boolean Return Me.IsNull(Me.tabletblUIDPruefung.uid_adr2Column) End Function _ Public Sub Setuid_adr2Null() Me(Me.tabletblUIDPruefung.uid_adr2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isuid_adr3Null() As Boolean Return Me.IsNull(Me.tabletblUIDPruefung.uid_adr3Column) End Function _ Public Sub Setuid_adr3Null() Me(Me.tabletblUIDPruefung.uid_adr3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isuid_adr4Null() As Boolean Return Me.IsNull(Me.tabletblUIDPruefung.uid_adr4Column) End Function _ Public Sub Setuid_adr4Null() Me(Me.tabletblUIDPruefung.uid_adr4Column) = Global.System.Convert.DBNull End Sub _ Public Function Isuid_adr5Null() As Boolean Return Me.IsNull(Me.tabletblUIDPruefung.uid_adr5Column) End Function _ Public Sub Setuid_adr5Null() Me(Me.tabletblUIDPruefung.uid_adr5Column) = Global.System.Convert.DBNull End Sub _ Public Function Isuid_adr6Null() As Boolean Return Me.IsNull(Me.tabletblUIDPruefung.uid_adr6Column) End Function _ Public Sub Setuid_adr6Null() Me(Me.tabletblUIDPruefung.uid_adr6Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUStVAntragRow Inherits Global.System.Data.DataRow Private tabletblUStVAntrag As tblUStVAntragDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUStVAntrag = CType(Me.Table,tblUStVAntragDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tabletblUStVAntrag.UStVAn_IDColumn),Integer) End Get Set Me(Me.tabletblUStVAntrag.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVAn_KuNr() As Integer Get Return CType(Me(Me.tabletblUStVAntrag.UStVAn_KuNrColumn),Integer) End Get Set Me(Me.tabletblUStVAntrag.UStVAn_KuNrColumn) = value End Set End Property _ Public Property UStVAn_Name() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Name in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_NameColumn) = value End Set End Property _ Public Property UStVAn_Straße() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Straße in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_StraßeColumn) = value End Set End Property _ Public Property UStVAn_LandKz() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_LandKz in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_LandKzColumn) = value End Set End Property _ Public Property UStVAn_PLZ() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_PLZ in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_PLZColumn) = value End Set End Property _ Public Property UStVAn_Ort() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ort in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_OrtColumn) = value End Set End Property _ Public Property UStVAn_Land() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Land in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_LandColumn) = value End Set End Property _ Public Property UStVAn_Gewerbe() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_GewerbeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Gewerbe in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_GewerbeColumn) = value End Set End Property _ Public Property UStVAn_Steuernummer() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_SteuernummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Steuernummer in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_SteuernummerColumn) = value End Set End Property _ Public Property UStVAn_ReDatVon() As Date Get Return CType(Me(Me.tabletblUStVAntrag.UStVAn_ReDatVonColumn),Date) End Get Set Me(Me.tabletblUStVAntrag.UStVAn_ReDatVonColumn) = value End Set End Property _ Public Property UStVAn_ReDatBis() As Date Get Return CType(Me(Me.tabletblUStVAntrag.UStVAn_ReDatBisColumn),Date) End Get Set Me(Me.tabletblUStVAntrag.UStVAn_ReDatBisColumn) = value End Set End Property _ Public Property UStVAn_Bankverbindung() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_BankverbindungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Bankverbindung in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_BankverbindungColumn) = value End Set End Property _ Public Property UStVAn_BLZ() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_BLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BLZ in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_BLZColumn) = value End Set End Property _ Public Property UStVAn_KTO() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_KTOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_KTO in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_KTOColumn) = value End Set End Property _ Public Property UStVAn_Kontoinhaber() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_KontoinhaberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Kontoinhaber in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_KontoinhaberColumn) = value End Set End Property _ Public Property UStVAn_BIC() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_BICColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BIC in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_BICColumn) = value End Set End Property _ Public Property UStVAn_IBAN() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_IBANColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_IBAN in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_IBANColumn) = value End Set End Property _ Public Property UStVAn_Anlagen() As Short Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_AnlagenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Anlagen in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_AnlagenColumn) = value End Set End Property _ Public Property UStVAn_Rechnungen() As Short Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_RechnungenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Rechnungen in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_RechnungenColumn) = value End Set End Property _ Public Property UStVAn_Einfuhrdokumente() As Short Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_EinfuhrdokumenteColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Einfuhrdokumente in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_EinfuhrdokumenteColumn) = value End Set End Property _ Public Property UStVAn_Erklärung_9_a() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_Erklärung_9_aColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Erklärung_9_a in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_Erklärung_9_aColumn) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_1() As Boolean Get Return CType(Me(Me.tabletblUStVAntrag.UStVAn_Erklärung_9_b_1Column),Boolean) End Get Set Me(Me.tabletblUStVAntrag.UStVAn_Erklärung_9_b_1Column) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_2() As Boolean Get Return CType(Me(Me.tabletblUStVAntrag.UStVAn_Erklärung_9_b_2Column),Boolean) End Get Set Me(Me.tabletblUStVAntrag.UStVAn_Erklärung_9_b_2Column) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_3() As Boolean Get Return CType(Me(Me.tabletblUStVAntrag.UStVAn_Erklärung_9_b_3Column),Boolean) End Get Set Me(Me.tabletblUStVAntrag.UStVAn_Erklärung_9_b_3Column) = value End Set End Property _ Public Property UStVAn_Ausstellungsort() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_AusstellungsortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ausstellungsort in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_AusstellungsortColumn) = value End Set End Property _ Public Property UStVAn_Ausstellungsdatum() As Date Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_AusstellungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ausstellungsdatum in Tabelle tblUStVAntrag ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_AusstellungsdatumColumn) = value End Set End Property _ Public Property UStVAn_Unterschrift() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_UnterschriftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Unterschrift in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_UnterschriftColumn) = value End Set End Property _ Public Property UStVAn_LandNr() As Short Get Return CType(Me(Me.tabletblUStVAntrag.UStVAn_LandNrColumn),Short) End Get Set Me(Me.tabletblUStVAntrag.UStVAn_LandNrColumn) = value End Set End Property _ Public Property UStVAn_Beleganzahl() As Short Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_BeleganzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Beleganzahl in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_BeleganzahlColumn) = value End Set End Property _ Public Property UStVAn_BeleganzahlRetourniert() As Short Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_BeleganzahlRetourniertColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BeleganzahlRetourniert in Tabelle tblUStVAntrag ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_BeleganzahlRetourniertColumn) = value End Set End Property _ Public Property UStVAn_Retournierungsgrund() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_RetournierungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Retournierungsgrund in Tabelle tblUStVAntrag ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_RetournierungsgrundColumn) = value End Set End Property _ Public Property UStVAn_AntragEingereichtAm() As Date Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_AntragEingereichtAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_AntragEingereichtAm in Tabelle tblUStVAntrag ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_AntragEingereichtAmColumn) = value End Set End Property _ Public Property UStVAn_BelegeWeitergeleitetAm() As Date Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BelegeWeitergeleitetAm in Tabelle tblUStVAntrag ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn) = value End Set End Property _ Public Property UStVAn_Vertreter() As Integer Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_VertreterColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Vertreter in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_VertreterColumn) = value End Set End Property _ Public Property UStVAn_BezugsNr() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_BezugsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BezugsNr in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_BezugsNrColumn) = value End Set End Property _ Public Property UStVAn_3470() As Decimal Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_3470Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_3470 in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_3470Column) = value End Set End Property _ Public Property UStVAn_VZBetrag() As Decimal Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_VZBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZBetrag in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_VZBetragColumn) = value End Set End Property _ Public Property UStVAn_VZDatum() As Date Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_VZDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZDatum in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_VZDatumColumn) = value End Set End Property _ Public Property UStVAn_RZBetragVZ() As Decimal Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_RZBetragVZColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_RZBetragVZ in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_RZBetragVZColumn) = value End Set End Property _ Public Property UStVAn_RZDatumVZ() As Date Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_RZDatumVZColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_RZDatumVZ in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_RZDatumVZColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tabletblUStVAntrag.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tabletblUStVAntrag.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.AbfertigungsNrColumn) = value End Set End Property _ Public Property UStVAn_Währungscode() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Währungscode in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_WährungscodeColumn) = value End Set End Property _ Public Property UStVAn_USteuerbetrag() As Decimal Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_USteuerbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_USteuerbetrag in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_USteuerbetragColumn) = value End Set End Property _ Public Property UStVAn_Erstattungsbetrag() As Decimal Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_ErstattungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Erstattungsbetrag in Tabelle tblUStVAntrag ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_ErstattungsbetragColumn) = value End Set End Property _ Public Property UStVAn_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_USteuerbetragEUR in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVAn_ErstattungsbetragEUR() As Decimal Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_ErstattungsbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ErstattungsbetragEUR in Tabelle tblUStVAntrag ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_ErstattungsbetragEURColumn) = value End Set End Property _ Public Property UStVAn_Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Sachbearbeiter in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVAn_Status() As Integer Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_StatusColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Status in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_StatusColumn) = value End Set End Property _ Public Property UStVAn_StatusText() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_StatusTextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_StatusText in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_StatusTextColumn) = value End Set End Property _ Public Property UStVAn_AntragArt() As String Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_AntragArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_AntragArt in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_AntragArtColumn) = value End Set End Property _ Public Property UStVAn_Zeitstempel() As Date Get Try Return CType(Me(Me.tabletblUStVAntrag.UStVAn_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Zeitstempel in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.UStVAn_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUStVAntrag.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVAntrag.upsize_tsColumn) = value End Set End Property _ Public Function IsUStVAn_NameNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_NameColumn) End Function _ Public Sub SetUStVAn_NameNull() Me(Me.tabletblUStVAntrag.UStVAn_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_StraßeNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_StraßeColumn) End Function _ Public Sub SetUStVAn_StraßeNull() Me(Me.tabletblUStVAntrag.UStVAn_StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_LandKzNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_LandKzColumn) End Function _ Public Sub SetUStVAn_LandKzNull() Me(Me.tabletblUStVAntrag.UStVAn_LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_PLZNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_PLZColumn) End Function _ Public Sub SetUStVAn_PLZNull() Me(Me.tabletblUStVAntrag.UStVAn_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_OrtNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_OrtColumn) End Function _ Public Sub SetUStVAn_OrtNull() Me(Me.tabletblUStVAntrag.UStVAn_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_LandNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_LandColumn) End Function _ Public Sub SetUStVAn_LandNull() Me(Me.tabletblUStVAntrag.UStVAn_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_GewerbeNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_GewerbeColumn) End Function _ Public Sub SetUStVAn_GewerbeNull() Me(Me.tabletblUStVAntrag.UStVAn_GewerbeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_SteuernummerNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_SteuernummerColumn) End Function _ Public Sub SetUStVAn_SteuernummerNull() Me(Me.tabletblUStVAntrag.UStVAn_SteuernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BankverbindungNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_BankverbindungColumn) End Function _ Public Sub SetUStVAn_BankverbindungNull() Me(Me.tabletblUStVAntrag.UStVAn_BankverbindungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BLZNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_BLZColumn) End Function _ Public Sub SetUStVAn_BLZNull() Me(Me.tabletblUStVAntrag.UStVAn_BLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_KTONull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_KTOColumn) End Function _ Public Sub SetUStVAn_KTONull() Me(Me.tabletblUStVAntrag.UStVAn_KTOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_KontoinhaberNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_KontoinhaberColumn) End Function _ Public Sub SetUStVAn_KontoinhaberNull() Me(Me.tabletblUStVAntrag.UStVAn_KontoinhaberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BICNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_BICColumn) End Function _ Public Sub SetUStVAn_BICNull() Me(Me.tabletblUStVAntrag.UStVAn_BICColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IBANNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_IBANColumn) End Function _ Public Sub SetUStVAn_IBANNull() Me(Me.tabletblUStVAntrag.UStVAn_IBANColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AnlagenNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_AnlagenColumn) End Function _ Public Sub SetUStVAn_AnlagenNull() Me(Me.tabletblUStVAntrag.UStVAn_AnlagenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RechnungenNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_RechnungenColumn) End Function _ Public Sub SetUStVAn_RechnungenNull() Me(Me.tabletblUStVAntrag.UStVAn_RechnungenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_EinfuhrdokumenteNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_EinfuhrdokumenteColumn) End Function _ Public Sub SetUStVAn_EinfuhrdokumenteNull() Me(Me.tabletblUStVAntrag.UStVAn_EinfuhrdokumenteColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_Erklärung_9_aNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_Erklärung_9_aColumn) End Function _ Public Sub SetUStVAn_Erklärung_9_aNull() Me(Me.tabletblUStVAntrag.UStVAn_Erklärung_9_aColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AusstellungsortNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_AusstellungsortColumn) End Function _ Public Sub SetUStVAn_AusstellungsortNull() Me(Me.tabletblUStVAntrag.UStVAn_AusstellungsortColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AusstellungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_AusstellungsdatumColumn) End Function _ Public Sub SetUStVAn_AusstellungsdatumNull() Me(Me.tabletblUStVAntrag.UStVAn_AusstellungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_UnterschriftNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_UnterschriftColumn) End Function _ Public Sub SetUStVAn_UnterschriftNull() Me(Me.tabletblUStVAntrag.UStVAn_UnterschriftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BeleganzahlNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_BeleganzahlColumn) End Function _ Public Sub SetUStVAn_BeleganzahlNull() Me(Me.tabletblUStVAntrag.UStVAn_BeleganzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BeleganzahlRetourniertNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_BeleganzahlRetourniertColumn) End Function _ Public Sub SetUStVAn_BeleganzahlRetourniertNull() Me(Me.tabletblUStVAntrag.UStVAn_BeleganzahlRetourniertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RetournierungsgrundNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_RetournierungsgrundColumn) End Function _ Public Sub SetUStVAn_RetournierungsgrundNull() Me(Me.tabletblUStVAntrag.UStVAn_RetournierungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AntragEingereichtAmNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_AntragEingereichtAmColumn) End Function _ Public Sub SetUStVAn_AntragEingereichtAmNull() Me(Me.tabletblUStVAntrag.UStVAn_AntragEingereichtAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BelegeWeitergeleitetAmNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn) End Function _ Public Sub SetUStVAn_BelegeWeitergeleitetAmNull() Me(Me.tabletblUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VertreterNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_VertreterColumn) End Function _ Public Sub SetUStVAn_VertreterNull() Me(Me.tabletblUStVAntrag.UStVAn_VertreterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BezugsNrNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_BezugsNrColumn) End Function _ Public Sub SetUStVAn_BezugsNrNull() Me(Me.tabletblUStVAntrag.UStVAn_BezugsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_3470Null() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_3470Column) End Function _ Public Sub SetUStVAn_3470Null() Me(Me.tabletblUStVAntrag.UStVAn_3470Column) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZBetragNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_VZBetragColumn) End Function _ Public Sub SetUStVAn_VZBetragNull() Me(Me.tabletblUStVAntrag.UStVAn_VZBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZDatumNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_VZDatumColumn) End Function _ Public Sub SetUStVAn_VZDatumNull() Me(Me.tabletblUStVAntrag.UStVAn_VZDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RZBetragVZNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_RZBetragVZColumn) End Function _ Public Sub SetUStVAn_RZBetragVZNull() Me(Me.tabletblUStVAntrag.UStVAn_RZBetragVZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RZDatumVZNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_RZDatumVZColumn) End Function _ Public Sub SetUStVAn_RZDatumVZNull() Me(Me.tabletblUStVAntrag.UStVAn_RZDatumVZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tabletblUStVAntrag.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tabletblUStVAntrag.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_WährungscodeNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_WährungscodeColumn) End Function _ Public Sub SetUStVAn_WährungscodeNull() Me(Me.tabletblUStVAntrag.UStVAn_WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_USteuerbetragNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_USteuerbetragColumn) End Function _ Public Sub SetUStVAn_USteuerbetragNull() Me(Me.tabletblUStVAntrag.UStVAn_USteuerbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ErstattungsbetragNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_ErstattungsbetragColumn) End Function _ Public Sub SetUStVAn_ErstattungsbetragNull() Me(Me.tabletblUStVAntrag.UStVAn_ErstattungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_USteuerbetragEURColumn) End Function _ Public Sub SetUStVAn_USteuerbetragEURNull() Me(Me.tabletblUStVAntrag.UStVAn_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ErstattungsbetragEURNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_ErstattungsbetragEURColumn) End Function _ Public Sub SetUStVAn_ErstattungsbetragEURNull() Me(Me.tabletblUStVAntrag.UStVAn_ErstattungsbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_SachbearbeiterColumn) End Function _ Public Sub SetUStVAn_SachbearbeiterNull() Me(Me.tabletblUStVAntrag.UStVAn_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_StatusNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_StatusColumn) End Function _ Public Sub SetUStVAn_StatusNull() Me(Me.tabletblUStVAntrag.UStVAn_StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_StatusTextNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_StatusTextColumn) End Function _ Public Sub SetUStVAn_StatusTextNull() Me(Me.tabletblUStVAntrag.UStVAn_StatusTextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AntragArtNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_AntragArtColumn) End Function _ Public Sub SetUStVAn_AntragArtNull() Me(Me.tabletblUStVAntrag.UStVAn_AntragArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.UStVAn_ZeitstempelColumn) End Function _ Public Sub SetUStVAn_ZeitstempelNull() Me(Me.tabletblUStVAntrag.UStVAn_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUStVAntrag.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUStVAntrag.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblUStVErstattungRows() As tblUStVErstattungRow() If (Me.Table.ChildRelations("tblUStVErstattung_FK00") Is Nothing) Then Return New tblUStVErstattungRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUStVErstattung_FK00")),tblUStVErstattungRow()) End If End Function _ Public Function GettblUStVPositionenRows() As tblUStVPositionenRow() If (Me.Table.ChildRelations("tblUStVPositionen_FK00") Is Nothing) Then Return New tblUStVPositionenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUStVPositionen_FK00")),tblUStVPositionenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUStVBelegeingangRow Inherits Global.System.Data.DataRow Private tabletblUStVBelegeingang As tblUStVBelegeingangDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUStVBelegeingang = CType(Me.Table,tblUStVBelegeingangDataTable) End Sub _ Public Property UStVBe_KuNr() As Integer Get Return CType(Me(Me.tabletblUStVBelegeingang.UStVBe_KuNrColumn),Integer) End Get Set Me(Me.tabletblUStVBelegeingang.UStVBe_KuNrColumn) = value End Set End Property _ Public Property UStVBe_EinDat() As Date Get Return CType(Me(Me.tabletblUStVBelegeingang.UStVBe_EinDatColumn),Date) End Get Set Me(Me.tabletblUStVBelegeingang.UStVBe_EinDatColumn) = value End Set End Property _ Public Property UStVBe_EinNr() As Integer Get Return CType(Me(Me.tabletblUStVBelegeingang.UStVBe_EinNrColumn),Integer) End Get Set Me(Me.tabletblUStVBelegeingang.UStVBe_EinNrColumn) = value End Set End Property _ Public Property UStVBe_UStBetrag() As Decimal Get Try Return CType(Me(Me.tabletblUStVBelegeingang.UStVBe_UStBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_UStBetrag in Tabelle tblUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVBelegeingang.UStVBe_UStBetragColumn) = value End Set End Property _ Public Property UStVBe_Beleganzahl() As Short Get Try Return CType(Me(Me.tabletblUStVBelegeingang.UStVBe_BeleganzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Beleganzahl in Tabelle tblUStVBelegeingang ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUStVBelegeingang.UStVBe_BeleganzahlColumn) = value End Set End Property _ Public Property UStVBe_Retourniert() As Short Get Try Return CType(Me(Me.tabletblUStVBelegeingang.UStVBe_RetourniertColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Retourniert in Tabelle tblUStVBelegeingang ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUStVBelegeingang.UStVBe_RetourniertColumn) = value End Set End Property _ Public Property UStVBe_Bemerkung() As String Get Try Return CType(Me(Me.tabletblUStVBelegeingang.UStVBe_BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Bemerkung in Tabelle tblUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVBelegeingang.UStVBe_BemerkungColumn) = value End Set End Property _ Public Property UStVBe_WeiterDat() As Date Get Try Return CType(Me(Me.tabletblUStVBelegeingang.UStVBe_WeiterDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_WeiterDat in Tabelle tblUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVBelegeingang.UStVBe_WeiterDatColumn) = value End Set End Property _ Public Property UStVBe_Empfänger() As Integer Get Try Return CType(Me(Me.tabletblUStVBelegeingang.UStVBe_EmpfängerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Empfänger in Tabelle tblUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVBelegeingang.UStVBe_EmpfängerColumn) = value End Set End Property _ Public Property UStVBe_Zeitstempel() As Date Get Try Return CType(Me(Me.tabletblUStVBelegeingang.UStVBe_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Zeitstempel in Tabelle tblUStVBelegeingang ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUStVBelegeingang.UStVBe_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUStVBelegeingang.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVBelegeingang.upsize_tsColumn) = value End Set End Property _ Public Function IsUStVBe_UStBetragNull() As Boolean Return Me.IsNull(Me.tabletblUStVBelegeingang.UStVBe_UStBetragColumn) End Function _ Public Sub SetUStVBe_UStBetragNull() Me(Me.tabletblUStVBelegeingang.UStVBe_UStBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_BeleganzahlNull() As Boolean Return Me.IsNull(Me.tabletblUStVBelegeingang.UStVBe_BeleganzahlColumn) End Function _ Public Sub SetUStVBe_BeleganzahlNull() Me(Me.tabletblUStVBelegeingang.UStVBe_BeleganzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_RetourniertNull() As Boolean Return Me.IsNull(Me.tabletblUStVBelegeingang.UStVBe_RetourniertColumn) End Function _ Public Sub SetUStVBe_RetourniertNull() Me(Me.tabletblUStVBelegeingang.UStVBe_RetourniertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_BemerkungNull() As Boolean Return Me.IsNull(Me.tabletblUStVBelegeingang.UStVBe_BemerkungColumn) End Function _ Public Sub SetUStVBe_BemerkungNull() Me(Me.tabletblUStVBelegeingang.UStVBe_BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_WeiterDatNull() As Boolean Return Me.IsNull(Me.tabletblUStVBelegeingang.UStVBe_WeiterDatColumn) End Function _ Public Sub SetUStVBe_WeiterDatNull() Me(Me.tabletblUStVBelegeingang.UStVBe_WeiterDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_EmpfängerNull() As Boolean Return Me.IsNull(Me.tabletblUStVBelegeingang.UStVBe_EmpfängerColumn) End Function _ Public Sub SetUStVBe_EmpfängerNull() Me(Me.tabletblUStVBelegeingang.UStVBe_EmpfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletblUStVBelegeingang.UStVBe_ZeitstempelColumn) End Function _ Public Sub SetUStVBe_ZeitstempelNull() Me(Me.tabletblUStVBelegeingang.UStVBe_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUStVBelegeingang.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUStVBelegeingang.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUStVErstattungRow Inherits Global.System.Data.DataRow Private tabletblUStVErstattung As tblUStVErstattungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUStVErstattung = CType(Me.Table,tblUStVErstattungDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tabletblUStVErstattung.UStVAn_IDColumn),Integer) End Get Set Me(Me.tabletblUStVErstattung.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVEr_ID() As Short Get Return CType(Me(Me.tabletblUStVErstattung.UStVEr_IDColumn),Short) End Get Set Me(Me.tabletblUStVErstattung.UStVEr_IDColumn) = value End Set End Property _ Public Property UStVEr_USteuerbetrag() As Decimal Get Return CType(Me(Me.tabletblUStVErstattung.UStVEr_USteuerbetragColumn),Decimal) End Get Set Me(Me.tabletblUStVErstattung.UStVEr_USteuerbetragColumn) = value End Set End Property _ Public Property Belegdatum() As Date Get Try Return CType(Me(Me.tabletblUStVErstattung.BelegdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdatum in Tabelle tblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.BelegdatumColumn) = value End Set End Property _ Public Property Belegnummer() As String Get Try Return CType(Me(Me.tabletblUStVErstattung.BelegnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegnummer in Tabelle tblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.BelegnummerColumn) = value End Set End Property _ Public Property GutschriftsDatum() As Date Get Try Return CType(Me(Me.tabletblUStVErstattung.GutschriftsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GutschriftsDatum in Tabelle tblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.GutschriftsDatumColumn) = value End Set End Property _ Public Property GutschriftsNr() As Integer Get Try Return CType(Me(Me.tabletblUStVErstattung.GutschriftsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GutschriftsNr in Tabelle tblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.GutschriftsNrColumn) = value End Set End Property _ Public Property Berufungsdatum() As Date Get Try Return CType(Me(Me.tabletblUStVErstattung.BerufungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungsdatum in Tabelle tblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.BerufungsdatumColumn) = value End Set End Property _ Public Property Berufungshöhe() As Decimal Get Try Return CType(Me(Me.tabletblUStVErstattung.BerufungshöheColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungshöhe in Tabelle tblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.BerufungshöheColumn) = value End Set End Property _ Public Property Berufungsgrund() As String Get Try Return CType(Me(Me.tabletblUStVErstattung.BerufungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungsgrund in Tabelle tblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.BerufungsgrundColumn) = value End Set End Property _ Public Property Bemerkung() As String Get Try Return CType(Me(Me.tabletblUStVErstattung.BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle tblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.BemerkungColumn) = value End Set End Property _ Public Property UStVEr_Umrechnungskurs() As Double Get Try Return CType(Me(Me.tabletblUStVErstattung.UStVEr_UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Umrechnungskurs in Tabelle tblUStVErstattung ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.UStVEr_UmrechnungskursColumn) = value End Set End Property _ Public Property UStVEr_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tabletblUStVErstattung.UStVEr_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_USteuerbetragEUR in Tabelle tblUStVErstattung ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.UStVEr_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVEr_Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblUStVErstattung.UStVEr_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Sachbearbeiter in Tabelle tblUStVErstattung ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblUStVErstattung.UStVEr_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVEr_Zeitstempel() As Date Get Try Return CType(Me(Me.tabletblUStVErstattung.UStVEr_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Zeitstempel in Tabelle tblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.UStVEr_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUStVErstattung.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVErstattung.upsize_tsColumn) = value End Set End Property _ Public Property tblUStVAntragRow() As tblUStVAntragRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUStVErstattung_FK00")),tblUStVAntragRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUStVErstattung_FK00")) End Set End Property _ Public Function IsBelegdatumNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.BelegdatumColumn) End Function _ Public Sub SetBelegdatumNull() Me(Me.tabletblUStVErstattung.BelegdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegnummerNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.BelegnummerColumn) End Function _ Public Sub SetBelegnummerNull() Me(Me.tabletblUStVErstattung.BelegnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGutschriftsDatumNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.GutschriftsDatumColumn) End Function _ Public Sub SetGutschriftsDatumNull() Me(Me.tabletblUStVErstattung.GutschriftsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGutschriftsNrNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.GutschriftsNrColumn) End Function _ Public Sub SetGutschriftsNrNull() Me(Me.tabletblUStVErstattung.GutschriftsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.BerufungsdatumColumn) End Function _ Public Sub SetBerufungsdatumNull() Me(Me.tabletblUStVErstattung.BerufungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungshöheNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.BerufungshöheColumn) End Function _ Public Sub SetBerufungshöheNull() Me(Me.tabletblUStVErstattung.BerufungshöheColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungsgrundNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.BerufungsgrundColumn) End Function _ Public Sub SetBerufungsgrundNull() Me(Me.tabletblUStVErstattung.BerufungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.BemerkungColumn) End Function _ Public Sub SetBemerkungNull() Me(Me.tabletblUStVErstattung.BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_UmrechnungskursNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.UStVEr_UmrechnungskursColumn) End Function _ Public Sub SetUStVEr_UmrechnungskursNull() Me(Me.tabletblUStVErstattung.UStVEr_UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.UStVEr_USteuerbetragEURColumn) End Function _ Public Sub SetUStVEr_USteuerbetragEURNull() Me(Me.tabletblUStVErstattung.UStVEr_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.UStVEr_SachbearbeiterColumn) End Function _ Public Sub SetUStVEr_SachbearbeiterNull() Me(Me.tabletblUStVErstattung.UStVEr_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.UStVEr_ZeitstempelColumn) End Function _ Public Sub SetUStVEr_ZeitstempelNull() Me(Me.tabletblUStVErstattung.UStVEr_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUStVErstattung.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUStVErstattung.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUStVFormulareRow Inherits Global.System.Data.DataRow Private tabletblUStVFormulare As tblUStVFormulareDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUStVFormulare = CType(Me.Table,tblUStVFormulareDataTable) End Sub _ Public Property UStVFo_FormularNr() As Short Get Return CType(Me(Me.tabletblUStVFormulare.UStVFo_FormularNrColumn),Short) End Get Set Me(Me.tabletblUStVFormulare.UStVFo_FormularNrColumn) = value End Set End Property _ Public Property UStVFo_FormularBez() As String Get Return CType(Me(Me.tabletblUStVFormulare.UStVFo_FormularBezColumn),String) End Get Set Me(Me.tabletblUStVFormulare.UStVFo_FormularBezColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblUStVFormulare.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblUStVFormulare ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVFormulare.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblUStVFormulare.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblUStVFormulare.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblUStVKuLäFoRows() As tblUStVKuLäFoRow() If (Me.Table.ChildRelations("tblUStVKuLäFo${8EEF3FB0-6A92-4860-B92D-EB83E6F5AE76}") Is Nothing) Then Return New tblUStVKuLäFoRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUStVKuLäFo${8EEF3FB0-6A92-4860-B92D-EB83E6F5AE76}")),tblUStVKuLäFoRow()) End If End Function _ Public Function GettblUStVLäFoRows() As tblUStVLäFoRow() If (Me.Table.ChildRelations("tblUStVLäFo${472BEB22-FFB6-4415-A1BE-B0664E28BFC1}") Is Nothing) Then Return New tblUStVLäFoRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUStVLäFo${472BEB22-FFB6-4415-A1BE-B0664E28BFC1}")),tblUStVLäFoRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUStVKuLäFoRow Inherits Global.System.Data.DataRow Private tabletblUStVKuLäFo As tblUStVKuLäFoDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUStVKuLäFo = CType(Me.Table,tblUStVKuLäFoDataTable) End Sub _ Public Property UStVKF_KundenNr() As Integer Get Return CType(Me(Me.tabletblUStVKuLäFo.UStVKF_KundenNrColumn),Integer) End Get Set Me(Me.tabletblUStVKuLäFo.UStVKF_KundenNrColumn) = value End Set End Property _ Public Property UStVLF_LandNr() As Short Get Return CType(Me(Me.tabletblUStVKuLäFo.UStVLF_LandNrColumn),Short) End Get Set Me(Me.tabletblUStVKuLäFo.UStVLF_LandNrColumn) = value End Set End Property _ Public Property UStVFo_FormularNr() As Short Get Return CType(Me(Me.tabletblUStVKuLäFo.UStVFo_FormularNrColumn),Short) End Get Set Me(Me.tabletblUStVKuLäFo.UStVFo_FormularNrColumn) = value End Set End Property _ Public Property UStVKF_Status() As String Get Try Return CType(Me(Me.tabletblUStVKuLäFo.UStVKF_StatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVKF_Status in Tabelle tblUStVKuLäFo ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVKuLäFo.UStVKF_StatusColumn) = value End Set End Property _ Public Property UStVKF_AnfDat() As Date Get Try Return CType(Me(Me.tabletblUStVKuLäFo.UStVKF_AnfDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVKF_AnfDat in Tabelle tblUStVKuLäFo ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVKuLäFo.UStVKF_AnfDatColumn) = value End Set End Property _ Public Property UStVKF_AusDat() As Date Get Try Return CType(Me(Me.tabletblUStVKuLäFo.UStVKF_AusDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVKF_AusDat in Tabelle tblUStVKuLäFo ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVKuLäFo.UStVKF_AusDatColumn) = value End Set End Property _ Public Property UStVKF_Vermerk() As String Get Try Return CType(Me(Me.tabletblUStVKuLäFo.UStVKF_VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVKF_Vermerk in Tabelle tblUStVKuLäFo ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVKuLäFo.UStVKF_VermerkColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblUStVKuLäFo.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblUStVKuLäFo ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVKuLäFo.SSMA_TimeStampColumn) = value End Set End Property _ Public Property tblUStVFormulareRow() As tblUStVFormulareRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUStVKuLäFo${8EEF3FB0-6A92-4860-B92D-EB83E6F5AE76}")),tblUStVFormulareRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUStVKuLäFo${8EEF3FB0-6A92-4860-B92D-EB83E6F5AE76}")) End Set End Property _ Public Property AdressenRow() As AdressenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUStVKuLäFo$AdressentblUStVKuLäFo")),AdressenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUStVKuLäFo$AdressentblUStVKuLäFo")) End Set End Property _ Public Property Länderverzeichnis_für_die_AußenhandelsstatistikRow() As Länderverzeichnis_für_die_AußenhandelsstatistikRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUStVKuLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVKuLäFo")),Länderverzeichnis_für_die_AußenhandelsstatistikRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUStVKuLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVKuLäFo")) End Set End Property _ Public Function IsUStVKF_StatusNull() As Boolean Return Me.IsNull(Me.tabletblUStVKuLäFo.UStVKF_StatusColumn) End Function _ Public Sub SetUStVKF_StatusNull() Me(Me.tabletblUStVKuLäFo.UStVKF_StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVKF_AnfDatNull() As Boolean Return Me.IsNull(Me.tabletblUStVKuLäFo.UStVKF_AnfDatColumn) End Function _ Public Sub SetUStVKF_AnfDatNull() Me(Me.tabletblUStVKuLäFo.UStVKF_AnfDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVKF_AusDatNull() As Boolean Return Me.IsNull(Me.tabletblUStVKuLäFo.UStVKF_AusDatColumn) End Function _ Public Sub SetUStVKF_AusDatNull() Me(Me.tabletblUStVKuLäFo.UStVKF_AusDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVKF_VermerkNull() As Boolean Return Me.IsNull(Me.tabletblUStVKuLäFo.UStVKF_VermerkColumn) End Function _ Public Sub SetUStVKF_VermerkNull() Me(Me.tabletblUStVKuLäFo.UStVKF_VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblUStVKuLäFo.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblUStVKuLäFo.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUStVLäFoRow Inherits Global.System.Data.DataRow Private tabletblUStVLäFo As tblUStVLäFoDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUStVLäFo = CType(Me.Table,tblUStVLäFoDataTable) End Sub _ Public Property UStVLF_LandNr() As Short Get Return CType(Me(Me.tabletblUStVLäFo.UStVLF_LandNrColumn),Short) End Get Set Me(Me.tabletblUStVLäFo.UStVLF_LandNrColumn) = value End Set End Property _ Public Property UStVFo_FormularNr() As Short Get Return CType(Me(Me.tabletblUStVLäFo.UStVFo_FormularNrColumn),Short) End Get Set Me(Me.tabletblUStVLäFo.UStVFo_FormularNrColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblUStVLäFo.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblUStVLäFo ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVLäFo.SSMA_TimeStampColumn) = value End Set End Property _ Public Property tblUStVFormulareRow() As tblUStVFormulareRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUStVLäFo${472BEB22-FFB6-4415-A1BE-B0664E28BFC1}")),tblUStVFormulareRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUStVLäFo${472BEB22-FFB6-4415-A1BE-B0664E28BFC1}")) End Set End Property _ Public Property Länderverzeichnis_für_die_AußenhandelsstatistikRow() As Länderverzeichnis_für_die_AußenhandelsstatistikRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUStVLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVLäFo")),Länderverzeichnis_für_die_AußenhandelsstatistikRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUStVLäFo$Länderverzeichnis für die AußenhandelsstatistiktblUStVLäFo")) End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblUStVLäFo.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblUStVLäFo.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUStVLeistenderRow Inherits Global.System.Data.DataRow Private tabletblUStVLeistender As tblUStVLeistenderDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUStVLeistender = CType(Me.Table,tblUStVLeistenderDataTable) End Sub _ Public Property UStV_Leistender() As String Get Return CType(Me(Me.tabletblUStVLeistender.UStV_LeistenderColumn),String) End Get Set Me(Me.tabletblUStVLeistender.UStV_LeistenderColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblUStVLeistender.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblUStVLeistender ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVLeistender.SSMA_TimeStampColumn) = value End Set End Property _ Public Property UstV_Leistender_PLZ() As String Get Try Return CType(Me(Me.tabletblUStVLeistender.UstV_Leistender_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstV_Leistender_PLZ in Tabelle tblUStVLeistender ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVLeistender.UstV_Leistender_PLZColumn) = value End Set End Property _ Public Property UstV_Leistender_Strasse() As String Get Try Return CType(Me(Me.tabletblUStVLeistender.UstV_Leistender_StrasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstV_Leistender_Strasse in Tabelle tblUStVLeistender ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblUStVLeistender.UstV_Leistender_StrasseColumn) = value End Set End Property _ Public Property UstV_Leistender_Stadt() As String Get Try Return CType(Me(Me.tabletblUStVLeistender.UstV_Leistender_StadtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstV_Leistender_Stadt in Tabelle tblUStVLeistender ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblUStVLeistender.UstV_Leistender_StadtColumn) = value End Set End Property _ Public Property UstV_Leistender_StrasseNr() As String Get Try Return CType(Me(Me.tabletblUStVLeistender.UstV_Leistender_StrasseNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstV_Leistender_StrasseNr in Tabelle tblUStVLeistender ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblUStVLeistender.UstV_Leistender_StrasseNrColumn) = value End Set End Property _ Public Property UstV_Leistender_Land() As String Get Try Return CType(Me(Me.tabletblUStVLeistender.UstV_Leistender_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstV_Leistender_Land in Tabelle tblUStVLeistender ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUStVLeistender.UstV_Leistender_LandColumn) = value End Set End Property _ Public Property UstV_Leistender_UstNr() As String Get Try Return CType(Me(Me.tabletblUStVLeistender.UstV_Leistender_UstNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstV_Leistender_UstNr in Tabelle tblUStVLeistender ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblUStVLeistender.UstV_Leistender_UstNrColumn) = value End Set End Property _ Public Property UstV_Leistender_Adresse() As Boolean Get Return CType(Me(Me.tabletblUStVLeistender.UstV_Leistender_AdresseColumn),Boolean) End Get Set Me(Me.tabletblUStVLeistender.UstV_Leistender_AdresseColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblUStVLeistender.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblUStVLeistender.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstV_Leistender_PLZNull() As Boolean Return Me.IsNull(Me.tabletblUStVLeistender.UstV_Leistender_PLZColumn) End Function _ Public Sub SetUstV_Leistender_PLZNull() Me(Me.tabletblUStVLeistender.UstV_Leistender_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstV_Leistender_StrasseNull() As Boolean Return Me.IsNull(Me.tabletblUStVLeistender.UstV_Leistender_StrasseColumn) End Function _ Public Sub SetUstV_Leistender_StrasseNull() Me(Me.tabletblUStVLeistender.UstV_Leistender_StrasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstV_Leistender_StadtNull() As Boolean Return Me.IsNull(Me.tabletblUStVLeistender.UstV_Leistender_StadtColumn) End Function _ Public Sub SetUstV_Leistender_StadtNull() Me(Me.tabletblUStVLeistender.UstV_Leistender_StadtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstV_Leistender_StrasseNrNull() As Boolean Return Me.IsNull(Me.tabletblUStVLeistender.UstV_Leistender_StrasseNrColumn) End Function _ Public Sub SetUstV_Leistender_StrasseNrNull() Me(Me.tabletblUStVLeistender.UstV_Leistender_StrasseNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstV_Leistender_LandNull() As Boolean Return Me.IsNull(Me.tabletblUStVLeistender.UstV_Leistender_LandColumn) End Function _ Public Sub SetUstV_Leistender_LandNull() Me(Me.tabletblUStVLeistender.UstV_Leistender_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstV_Leistender_UstNrNull() As Boolean Return Me.IsNull(Me.tabletblUStVLeistender.UstV_Leistender_UstNrColumn) End Function _ Public Sub SetUstV_Leistender_UstNrNull() Me(Me.tabletblUStVLeistender.UstV_Leistender_UstNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUStVPositionenRow Inherits Global.System.Data.DataRow Private tabletblUStVPositionen As tblUStVPositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUStVPositionen = CType(Me.Table,tblUStVPositionenDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tabletblUStVPositionen.UStVAn_IDColumn),Integer) End Get Set Me(Me.tabletblUStVPositionen.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVPo_ID() As Short Get Return CType(Me(Me.tabletblUStVPositionen.UStVPo_IDColumn),Short) End Get Set Me(Me.tabletblUStVPositionen.UStVPo_IDColumn) = value End Set End Property _ Public Property UStVPo_ReDat() As Date Get Try Return CType(Me(Me.tabletblUStVPositionen.UStVPo_ReDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_ReDat in Tabelle tblUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVPositionen.UStVPo_ReDatColumn) = value End Set End Property _ Public Property UStVPo_ReNr() As String Get Try Return CType(Me(Me.tabletblUStVPositionen.UStVPo_ReNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_ReNr in Tabelle tblUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVPositionen.UStVPo_ReNrColumn) = value End Set End Property _ Public Property UStVPo_USteuerbetrag() As Decimal Get Return CType(Me(Me.tabletblUStVPositionen.UStVPo_USteuerbetragColumn),Decimal) End Get Set Me(Me.tabletblUStVPositionen.UStVPo_USteuerbetragColumn) = value End Set End Property _ Public Property UStVPo_Leistungsbezeichnung() As String Get Try Return CType(Me(Me.tabletblUStVPositionen.UStVPo_LeistungsbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Leistungsbezeichnung in Tabelle tblUStVPositionen ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblUStVPositionen.UStVPo_LeistungsbezeichnungColumn) = value End Set End Property _ Public Property UStVPo_Leistender() As String Get Try Return CType(Me(Me.tabletblUStVPositionen.UStVPo_LeistenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Leistender in Tabelle tblUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVPositionen.UStVPo_LeistenderColumn) = value End Set End Property _ Public Property UStVPo_Schnittstelle() As Boolean Get Return CType(Me(Me.tabletblUStVPositionen.UStVPo_SchnittstelleColumn),Boolean) End Get Set Me(Me.tabletblUStVPositionen.UStVPo_SchnittstelleColumn) = value End Set End Property _ Public Property UStVPo_SchnittstellenNr() As Short Get Return CType(Me(Me.tabletblUStVPositionen.UStVPo_SchnittstellenNrColumn),Short) End Get Set Me(Me.tabletblUStVPositionen.UStVPo_SchnittstellenNrColumn) = value End Set End Property _ Public Property UStVPo_Umrechnungskurs() As Double Get Try Return CType(Me(Me.tabletblUStVPositionen.UStVPo_UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Umrechnungskurs in Tabelle tblUStVPositionen ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUStVPositionen.UStVPo_UmrechnungskursColumn) = value End Set End Property _ Public Property UStVPo_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tabletblUStVPositionen.UStVPo_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_USteuerbetragEUR in Tabelle tblUStVPositionen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblUStVPositionen.UStVPo_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVPo_Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblUStVPositionen.UStVPo_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Sachbearbeiter in Tabelle tblUStVPositionen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblUStVPositionen.UStVPo_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVPo_Zeitstempel() As Date Get Try Return CType(Me(Me.tabletblUStVPositionen.UStVPo_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Zeitstempel in Tabelle tblUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVPositionen.UStVPo_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUStVPositionen.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVPositionen.upsize_tsColumn) = value End Set End Property _ Public Property tblUStVAntragRow() As tblUStVAntragRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUStVPositionen_FK00")),tblUStVAntragRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUStVPositionen_FK00")) End Set End Property _ Public Function IsUStVPo_ReDatNull() As Boolean Return Me.IsNull(Me.tabletblUStVPositionen.UStVPo_ReDatColumn) End Function _ Public Sub SetUStVPo_ReDatNull() Me(Me.tabletblUStVPositionen.UStVPo_ReDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_ReNrNull() As Boolean Return Me.IsNull(Me.tabletblUStVPositionen.UStVPo_ReNrColumn) End Function _ Public Sub SetUStVPo_ReNrNull() Me(Me.tabletblUStVPositionen.UStVPo_ReNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_LeistungsbezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblUStVPositionen.UStVPo_LeistungsbezeichnungColumn) End Function _ Public Sub SetUStVPo_LeistungsbezeichnungNull() Me(Me.tabletblUStVPositionen.UStVPo_LeistungsbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_LeistenderNull() As Boolean Return Me.IsNull(Me.tabletblUStVPositionen.UStVPo_LeistenderColumn) End Function _ Public Sub SetUStVPo_LeistenderNull() Me(Me.tabletblUStVPositionen.UStVPo_LeistenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_UmrechnungskursNull() As Boolean Return Me.IsNull(Me.tabletblUStVPositionen.UStVPo_UmrechnungskursColumn) End Function _ Public Sub SetUStVPo_UmrechnungskursNull() Me(Me.tabletblUStVPositionen.UStVPo_UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tabletblUStVPositionen.UStVPo_USteuerbetragEURColumn) End Function _ Public Sub SetUStVPo_USteuerbetragEURNull() Me(Me.tabletblUStVPositionen.UStVPo_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblUStVPositionen.UStVPo_SachbearbeiterColumn) End Function _ Public Sub SetUStVPo_SachbearbeiterNull() Me(Me.tabletblUStVPositionen.UStVPo_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletblUStVPositionen.UStVPo_ZeitstempelColumn) End Function _ Public Sub SetUStVPo_ZeitstempelNull() Me(Me.tabletblUStVPositionen.UStVPo_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUStVPositionen.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUStVPositionen.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUStVTexteRow Inherits Global.System.Data.DataRow Private tabletblUStVTexte As tblUStVTexteDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUStVTexte = CType(Me.Table,tblUStVTexteDataTable) End Sub _ Public Property UStVTe_Text() As String Get Return CType(Me(Me.tabletblUStVTexte.UStVTe_TextColumn),String) End Get Set Me(Me.tabletblUStVTexte.UStVTe_TextColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblUStVTexte.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblUStVTexte ist DBNull.", e) End Try End Get Set Me(Me.tabletblUStVTexte.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblUStVTexte.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblUStVTexte.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUTAArchivRow Inherits Global.System.Data.DataRow Private tabletblUTAArchiv As tblUTAArchivDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUTAArchiv = CType(Me.Table,tblUTAArchivDataTable) End Sub _ Public Property ErstellDatumUhrzeit() As Date Get Return CType(Me(Me.tabletblUTAArchiv.ErstellDatumUhrzeitColumn),Date) End Get Set Me(Me.tabletblUTAArchiv.ErstellDatumUhrzeitColumn) = value End Set End Property _ Public Property Übertragungsnummer() As Integer Get Return CType(Me(Me.tabletblUTAArchiv.ÜbertragungsnummerColumn),Integer) End Get Set Me(Me.tabletblUTAArchiv.ÜbertragungsnummerColumn) = value End Set End Property _ Public Property Übertragungsposition() As Integer Get Return CType(Me(Me.tabletblUTAArchiv.ÜbertragungspositionColumn),Integer) End Get Set Me(Me.tabletblUTAArchiv.ÜbertragungspositionColumn) = value End Set End Property _ Public Property Abrechnungsnummer() As Double Get Try Return CType(Me(Me.tabletblUTAArchiv.AbrechnungsnummerColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abrechnungsnummer in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.AbrechnungsnummerColumn) = value End Set End Property _ Public Property Datum_für_Lieferungen_und_Leistungen_bis() As Date Get Try Return CType(Me(Me.tabletblUTAArchiv.Datum_für_Lieferungen_und_Leistungen_bisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datum_für_Lieferungen_und_Leistungen_bis in Tabelle tblUTAArc"& _ "hiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Datum_für_Lieferungen_und_Leistungen_bisColumn) = value End Set End Property _ Public Property Rechnungsempfänger_Kundennummer() As Integer Get Try Return CType(Me(Me.tabletblUTAArchiv.Rechnungsempfänger_KundennummerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsempfänger_Kundennummer in Tabelle tblUTAArchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Rechnungsempfänger_KundennummerColumn) = value End Set End Property _ Public Property Abrechnungsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAArchiv.AbrechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abrechnungsdatum in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.AbrechnungsdatumColumn) = value End Set End Property _ Public Property Kundennummer() As Integer Get Return CType(Me(Me.tabletblUTAArchiv.KundennummerColumn),Integer) End Get Set Me(Me.tabletblUTAArchiv.KundennummerColumn) = value End Set End Property _ Public Property Kartennummer() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.KartennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartennummer in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.KartennummerColumn) = value End Set End Property _ Public Property Belegdatum() As Date Get Try Return CType(Me(Me.tabletblUTAArchiv.BelegdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdatum in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.BelegdatumColumn) = value End Set End Property _ Public Property Akzeptanzstellennummer() As Double Get Try Return CType(Me(Me.tabletblUTAArchiv.AkzeptanzstellennummerColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Akzeptanzstellennummer in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.AkzeptanzstellennummerColumn) = value End Set End Property _ Public Property Standort_der_Akzeptanzstelle() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Standort_der_AkzeptanzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Standort_der_Akzeptanzstelle in Tabelle tblUTAArchiv ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Standort_der_AkzeptanzstelleColumn) = value End Set End Property _ Public Property Lieferland() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.LieferlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferland in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.LieferlandColumn) = value End Set End Property _ Public Property Belegnummer_des_Lieferanten() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Belegnummer_des_LieferantenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegnummer_des_Lieferanten in Tabelle tblUTAArchiv ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Belegnummer_des_LieferantenColumn) = value End Set End Property _ Public Property Kilometerstand() As Double Get Try Return CType(Me(Me.tabletblUTAArchiv.KilometerstandColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kilometerstand in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.KilometerstandColumn) = value End Set End Property _ Public Property Fakturierwarenart() As String Get Return CType(Me(Me.tabletblUTAArchiv.FakturierwarenartColumn),String) End Get Set Me(Me.tabletblUTAArchiv.FakturierwarenartColumn) = value End Set End Property _ Public Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen in Tabelle "& _ "tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn) = value End Set End Property _ Public Property Menge() As Double Get Try Return CType(Me(Me.tabletblUTAArchiv.MengeColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Menge in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.MengeColumn) = value End Set End Property _ Public Property SB_BT() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.SB_BTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SB_BT in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.SB_BTColumn) = value End Set End Property _ Public Property Umsatzsteuerprozentsatz() As Double Get Try Return CType(Me(Me.tabletblUTAArchiv.UmsatzsteuerprozentsatzColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umsatzsteuerprozentsatz in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.UmsatzsteuerprozentsatzColumn) = value End Set End Property _ Public Property Lieferlandwährung_ISO() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Lieferlandwährung_ISOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferlandwährung_ISO in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Lieferlandwährung_ISOColumn) = value End Set End Property _ Public Property Einzelpreis_Brutto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Einzelpreis_Brutto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Brutto_in_Lieferlandwährung in Tabelle tblUTAArch"& _ "iv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Einzelpreis_Brutto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Einzelpreis_Netto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Einzelpreis_Netto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Netto_in_Lieferlandwährung in Tabelle tblUTAArchi"& _ "v ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Einzelpreis_Netto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Betrag_Service_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Betrag_Service_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Service_in_Lieferlandwährung in Tabelle tblUTAArchiv i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Betrag_Service_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Betrag_Nachlass_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Betrag_Nachlass_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Nachlass_in_Lieferlandwährung in Tabelle tblUTAArchiv "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Betrag_Nachlass_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Netto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Gesamtbetrag_Netto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Netto_in_Lieferlandwährung in Tabelle tblUTAArch"& _ "iv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Gesamtbetrag_Netto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Brutto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Gesamtbetrag_Brutto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Brutto_in_Lieferlandwährung in Tabelle tblUTAArc"& _ "hiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Gesamtbetrag_Brutto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Darstellwährung_ISO() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Darstellwährung_ISOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Darstellwährung_ISO in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Darstellwährung_ISOColumn) = value End Set End Property _ Public Property Betrag_Service_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Betrag_Service_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Service_in_Darstellwährung in Tabelle tblUTAArchiv ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Betrag_Service_in_DarstellwährungColumn) = value End Set End Property _ Public Property Betrag_Nachlass_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Betrag_Nachlass_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Nachlass_in_Darstellwährung in Tabelle tblUTAArchiv is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Betrag_Nachlass_in_DarstellwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Netto_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Gesamtbetrag_Netto_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Netto_in_Darstellwährung in Tabelle tblUTAArchiv"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Gesamtbetrag_Netto_in_DarstellwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Umsatzsteuer_in_Darstellwährung in Tabelle tblUT"& _ "AArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Brutto_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Gesamtbetrag_Brutto_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Brutto_in_Darstellwährung in Tabelle tblUTAArchi"& _ "v ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Gesamtbetrag_Brutto_in_DarstellwährungColumn) = value End Set End Property _ Public Property Prägetext_i_d_R_KFZ_Kennzeichen() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Prägetext_i_d_R_KFZ_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prägetext_i_d_R_KFZ_Kennzeichen in Tabelle tblUTAArchiv ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Prägetext_i_d_R_KFZ_KennzeichenColumn) = value End Set End Property _ Public Property Kunden_Kostenstelle_1() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Kunden_Kostenstelle_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kunden_Kostenstelle_1 in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Kunden_Kostenstelle_1Column) = value End Set End Property _ Public Property Kartentyp() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.KartentypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartentyp in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.KartentypColumn) = value End Set End Property _ Public Property Filler_Feld_35() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Filler_Feld_35Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_35 in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Filler_Feld_35Column) = value End Set End Property _ Public Property Filler_Feld_36() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Filler_Feld_36Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_36 in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Filler_Feld_36Column) = value End Set End Property _ Public Property KZ_Autobahn() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.KZ_AutobahnColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KZ_Autobahn in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.KZ_AutobahnColumn) = value End Set End Property _ Public Property INFO_Feld() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.INFO_FeldColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INFO_Feld in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.INFO_FeldColumn) = value End Set End Property _ Public Property KFZ_Kennzeichen() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.KFZ_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KFZ_Kennzeichen in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.KFZ_KennzeichenColumn) = value End Set End Property _ Public Property Filler_Feld_40() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Filler_Feld_40Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_40 in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Filler_Feld_40Column) = value End Set End Property _ Public Property Buchungsart() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.BuchungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsart in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.BuchungsartColumn) = value End Set End Property _ Public Property Buchungsgrund() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.BuchungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsgrund in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.BuchungsgrundColumn) = value End Set End Property _ Public Property Filler_Feld_43() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Filler_Feld_43Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_43 in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Filler_Feld_43Column) = value End Set End Property _ Public Property Informationsbeleg() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.InformationsbelegColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Informationsbeleg in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.InformationsbelegColumn) = value End Set End Property _ Public Property Belegherkunft() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.BelegherkunftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegherkunft in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.BelegherkunftColumn) = value End Set End Property _ Public Property Filler_Feld_46() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Filler_Feld_46Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_46 in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Filler_Feld_46Column) = value End Set End Property _ Public Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastelle"& _ "n in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = value End Set End Property _ Public Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen"& _ " in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = value End Set End Property _ Public Property Rechnungsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAArchiv.RechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsdatum in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.RechnungsdatumColumn) = value End Set End Property _ Public Property Umsatzsteuerprozentsatz_informativ() As Double Get Try Return CType(Me(Me.tabletblUTAArchiv.Umsatzsteuerprozentsatz_informativColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umsatzsteuerprozentsatz_informativ in Tabelle tblUTAArchiv is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Umsatzsteuerprozentsatz_informativColumn) = value End Set End Property _ Public Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ "& _ "in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = value End Set End Property _ Public Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ i"& _ "n Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = value End Set End Property _ Public Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ() As Decimal Get Try Return CType(Me(Me.tabletblUTAArchiv.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ in "& _ "Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = value End Set End Property _ Public Property Fälligkeitsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAArchiv.FälligkeitsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fälligkeitsdatum in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.FälligkeitsdatumColumn) = value End Set End Property _ Public Property Zahlungsziel_in_Tagen() As Short Get Try Return CType(Me(Me.tabletblUTAArchiv.Zahlungsziel_in_TagenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsziel_in_Tagen in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Zahlungsziel_in_TagenColumn) = value End Set End Property _ Public Property Zahlungsart() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.ZahlungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsart in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.ZahlungsartColumn) = value End Set End Property _ Public Property TC_Rechnungsnummer_gegenüber_dem_Nutzer() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TC_Rechnungsnummer_gegenüber_dem_Nutzer in Tabelle tblUTAArch"& _ "iv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn) = value End Set End Property _ Public Property TC_Rechnungsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAArchiv.TC_RechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TC_Rechnungsdatum in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.TC_RechnungsdatumColumn) = value End Set End Property _ Public Property Zahlungszielgruppe() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.ZahlungszielgruppeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungszielgruppe in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.ZahlungszielgruppeColumn) = value End Set End Property _ Public Property Kunden_Kostenstelle_2() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Kunden_Kostenstelle_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kunden_Kostenstelle_2 in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Kunden_Kostenstelle_2Column) = value End Set End Property _ Public Property Lieferzeit() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.LieferzeitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferzeit in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.LieferzeitColumn) = value End Set End Property _ Public Property Fremdkartennummer() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.FremdkartennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fremdkartennummer in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.FremdkartennummerColumn) = value End Set End Property _ Public Property OnBoardUnitID() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.OnBoardUnitIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OnBoardUnitID in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.OnBoardUnitIDColumn) = value End Set End Property _ Public Property KFZ_Kennzeichen_komprimiert() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.KFZ_Kennzeichen_komprimiertColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KFZ_Kennzeichen_komprimiert in Tabelle tblUTAArchiv ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.KFZ_Kennzeichen_komprimiertColumn) = value End Set End Property _ Public Property Kartenkategorie() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.KartenkategorieColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartenkategorie in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.KartenkategorieColumn) = value End Set End Property _ Public Property Rechnungsnummer_pro_Lieferland() As Double Get Try Return CType(Me(Me.tabletblUTAArchiv.Rechnungsnummer_pro_LieferlandColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsnummer_pro_Lieferland in Tabelle tblUTAArchiv ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Rechnungsnummer_pro_LieferlandColumn) = value End Set End Property _ Public Property Autobahnauffahrt() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.AutobahnauffahrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Autobahnauffahrt in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.AutobahnauffahrtColumn) = value End Set End Property _ Public Property Autobahnausfahrt() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.AutobahnausfahrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Autobahnausfahrt in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.AutobahnausfahrtColumn) = value End Set End Property _ Public Property Rabattschlüssel_der_französischen_Autobahngesellschaften() As Short Get Try Return CType(Me(Me.tabletblUTAArchiv.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rabattschlüssel_der_französischen_Autobahngesellschaften in T"& _ "abelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn) = value End Set End Property _ Public Property Nummer_Belastungsanzeige() As Double Get Try Return CType(Me(Me.tabletblUTAArchiv.Nummer_BelastungsanzeigeColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nummer_Belastungsanzeige in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Nummer_BelastungsanzeigeColumn) = value End Set End Property _ Public Property Betreuungsstelle() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.BetreuungsstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betreuungsstelle in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.BetreuungsstelleColumn) = value End Set End Property _ Public Property Filler_Feld_72() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Filler_Feld_72Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_72 in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Filler_Feld_72Column) = value End Set End Property _ Public Property Akzeptanz_Medium() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Akzeptanz_MediumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Akzeptanz_Medium in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Akzeptanz_MediumColumn) = value End Set End Property _ Public Property Steuerkategorie() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.SteuerkategorieColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerkategorie in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.SteuerkategorieColumn) = value End Set End Property _ Public Property UTA_Beleg_ID() As Double Get Try Return CType(Me(Me.tabletblUTAArchiv.UTA_Beleg_IDColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UTA_Beleg_ID in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.UTA_Beleg_IDColumn) = value End Set End Property _ Public Property UTA_Normalbeleg_ID() As Double Get Try Return CType(Me(Me.tabletblUTAArchiv.UTA_Normalbeleg_IDColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UTA_Normalbeleg_ID in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.UTA_Normalbeleg_IDColumn) = value End Set End Property _ Public Property Gebühren_Bescheinigung_von() As Date Get Try Return CType(Me(Me.tabletblUTAArchiv.Gebühren_Bescheinigung_vonColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gebühren_Bescheinigung_von in Tabelle tblUTAArchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Gebühren_Bescheinigung_vonColumn) = value End Set End Property _ Public Property Gebühren_Bescheinigung_bis() As Date Get Try Return CType(Me(Me.tabletblUTAArchiv.Gebühren_Bescheinigung_bisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gebühren_Bescheinigung_bis in Tabelle tblUTAArchiv ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Gebühren_Bescheinigung_bisColumn) = value End Set End Property _ Public Property Herausgeber_Nutzer_Nummer() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Herausgeber_Nutzer_NummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Herausgeber_Nutzer_Nummer in Tabelle tblUTAArchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Herausgeber_Nutzer_NummerColumn) = value End Set End Property _ Public Property Maßeinheit() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.MaßeinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Maßeinheit in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.MaßeinheitColumn) = value End Set End Property _ Public Property Land_der_Akzeptanzstelle() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Land_der_AkzeptanzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Land_der_Akzeptanzstelle in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Land_der_AkzeptanzstelleColumn) = value End Set End Property _ Public Property Postleitzahl_der_Akzeptanzstelle() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Postleitzahl_der_AkzeptanzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Postleitzahl_der_Akzeptanzstelle in Tabelle tblUTAArchiv ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Postleitzahl_der_AkzeptanzstelleColumn) = value End Set End Property _ Public Property Steuerliches_Lieferland() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Steuerliches_LieferlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerliches_Lieferland in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Steuerliches_LieferlandColumn) = value End Set End Property _ Public Property Steuerliche_Produktgruppe() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Steuerliche_ProduktgruppeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerliche_Produktgruppe in Tabelle tblUTAArchiv ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Steuerliche_ProduktgruppeColumn) = value End Set End Property _ Public Property Leistungsort_verlagerbar() As String Get Try Return CType(Me(Me.tabletblUTAArchiv.Leistungsort_verlagerbarColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Leistungsort_verlagerbar in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.Leistungsort_verlagerbarColumn) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tabletblUTAArchiv.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.UStVAn_IDColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUTAArchiv.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUTAArchiv ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAArchiv.upsize_tsColumn) = value End Set End Property _ Public Property tblUTAHeaderRowParent() As tblUTAHeaderRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUTAArchiv_FK00")),tblUTAHeaderRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUTAArchiv_FK00")) End Set End Property _ Public Function IsAbrechnungsnummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.AbrechnungsnummerColumn) End Function _ Public Sub SetAbrechnungsnummerNull() Me(Me.tabletblUTAArchiv.AbrechnungsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatum_für_Lieferungen_und_Leistungen_bisNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Datum_für_Lieferungen_und_Leistungen_bisColumn) End Function _ Public Sub SetDatum_für_Lieferungen_und_Leistungen_bisNull() Me(Me.tabletblUTAArchiv.Datum_für_Lieferungen_und_Leistungen_bisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsempfänger_KundennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Rechnungsempfänger_KundennummerColumn) End Function _ Public Sub SetRechnungsempfänger_KundennummerNull() Me(Me.tabletblUTAArchiv.Rechnungsempfänger_KundennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbrechnungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.AbrechnungsdatumColumn) End Function _ Public Sub SetAbrechnungsdatumNull() Me(Me.tabletblUTAArchiv.AbrechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.KartennummerColumn) End Function _ Public Sub SetKartennummerNull() Me(Me.tabletblUTAArchiv.KartennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.BelegdatumColumn) End Function _ Public Sub SetBelegdatumNull() Me(Me.tabletblUTAArchiv.BelegdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAkzeptanzstellennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.AkzeptanzstellennummerColumn) End Function _ Public Sub SetAkzeptanzstellennummerNull() Me(Me.tabletblUTAArchiv.AkzeptanzstellennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStandort_der_AkzeptanzstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Standort_der_AkzeptanzstelleColumn) End Function _ Public Sub SetStandort_der_AkzeptanzstelleNull() Me(Me.tabletblUTAArchiv.Standort_der_AkzeptanzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferlandNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.LieferlandColumn) End Function _ Public Sub SetLieferlandNull() Me(Me.tabletblUTAArchiv.LieferlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegnummer_des_LieferantenNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Belegnummer_des_LieferantenColumn) End Function _ Public Sub SetBelegnummer_des_LieferantenNull() Me(Me.tabletblUTAArchiv.Belegnummer_des_LieferantenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKilometerstandNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.KilometerstandColumn) End Function _ Public Sub SetKilometerstandNull() Me(Me.tabletblUTAArchiv.KilometerstandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorzeichen_Statusfeld_für_alle_Beträge_und_MengenNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn) End Function _ Public Sub SetVorzeichen_Statusfeld_für_alle_Beträge_und_MengenNull() Me(Me.tabletblUTAArchiv.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMengeNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.MengeColumn) End Function _ Public Sub SetMengeNull() Me(Me.tabletblUTAArchiv.MengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSB_BTNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.SB_BTColumn) End Function _ Public Sub SetSB_BTNull() Me(Me.tabletblUTAArchiv.SB_BTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmsatzsteuerprozentsatzNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.UmsatzsteuerprozentsatzColumn) End Function _ Public Sub SetUmsatzsteuerprozentsatzNull() Me(Me.tabletblUTAArchiv.UmsatzsteuerprozentsatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferlandwährung_ISONull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Lieferlandwährung_ISOColumn) End Function _ Public Sub SetLieferlandwährung_ISONull() Me(Me.tabletblUTAArchiv.Lieferlandwährung_ISOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Brutto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Einzelpreis_Brutto_in_LieferlandwährungColumn) End Function _ Public Sub SetEinzelpreis_Brutto_in_LieferlandwährungNull() Me(Me.tabletblUTAArchiv.Einzelpreis_Brutto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Netto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Einzelpreis_Netto_in_LieferlandwährungColumn) End Function _ Public Sub SetEinzelpreis_Netto_in_LieferlandwährungNull() Me(Me.tabletblUTAArchiv.Einzelpreis_Netto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Service_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Betrag_Service_in_LieferlandwährungColumn) End Function _ Public Sub SetBetrag_Service_in_LieferlandwährungNull() Me(Me.tabletblUTAArchiv.Betrag_Service_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Nachlass_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Betrag_Nachlass_in_LieferlandwährungColumn) End Function _ Public Sub SetBetrag_Nachlass_in_LieferlandwährungNull() Me(Me.tabletblUTAArchiv.Betrag_Nachlass_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Netto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Gesamtbetrag_Netto_in_LieferlandwährungColumn) End Function _ Public Sub SetGesamtbetrag_Netto_in_LieferlandwährungNull() Me(Me.tabletblUTAArchiv.Gesamtbetrag_Netto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Brutto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Gesamtbetrag_Brutto_in_LieferlandwährungColumn) End Function _ Public Sub SetGesamtbetrag_Brutto_in_LieferlandwährungNull() Me(Me.tabletblUTAArchiv.Gesamtbetrag_Brutto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDarstellwährung_ISONull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Darstellwährung_ISOColumn) End Function _ Public Sub SetDarstellwährung_ISONull() Me(Me.tabletblUTAArchiv.Darstellwährung_ISOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Service_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Betrag_Service_in_DarstellwährungColumn) End Function _ Public Sub SetBetrag_Service_in_DarstellwährungNull() Me(Me.tabletblUTAArchiv.Betrag_Service_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Nachlass_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Betrag_Nachlass_in_DarstellwährungColumn) End Function _ Public Sub SetBetrag_Nachlass_in_DarstellwährungNull() Me(Me.tabletblUTAArchiv.Betrag_Nachlass_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Netto_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Gesamtbetrag_Netto_in_DarstellwährungColumn) End Function _ Public Sub SetGesamtbetrag_Netto_in_DarstellwährungNull() Me(Me.tabletblUTAArchiv.Gesamtbetrag_Netto_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Umsatzsteuer_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn) End Function _ Public Sub SetGesamtbetrag_Umsatzsteuer_in_DarstellwährungNull() Me(Me.tabletblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Brutto_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Gesamtbetrag_Brutto_in_DarstellwährungColumn) End Function _ Public Sub SetGesamtbetrag_Brutto_in_DarstellwährungNull() Me(Me.tabletblUTAArchiv.Gesamtbetrag_Brutto_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrägetext_i_d_R_KFZ_KennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Prägetext_i_d_R_KFZ_KennzeichenColumn) End Function _ Public Sub SetPrägetext_i_d_R_KFZ_KennzeichenNull() Me(Me.tabletblUTAArchiv.Prägetext_i_d_R_KFZ_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKunden_Kostenstelle_1Null() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Kunden_Kostenstelle_1Column) End Function _ Public Sub SetKunden_Kostenstelle_1Null() Me(Me.tabletblUTAArchiv.Kunden_Kostenstelle_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsKartentypNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.KartentypColumn) End Function _ Public Sub SetKartentypNull() Me(Me.tabletblUTAArchiv.KartentypColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_35Null() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Filler_Feld_35Column) End Function _ Public Sub SetFiller_Feld_35Null() Me(Me.tabletblUTAArchiv.Filler_Feld_35Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_36Null() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Filler_Feld_36Column) End Function _ Public Sub SetFiller_Feld_36Null() Me(Me.tabletblUTAArchiv.Filler_Feld_36Column) = Global.System.Convert.DBNull End Sub _ Public Function IsKZ_AutobahnNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.KZ_AutobahnColumn) End Function _ Public Sub SetKZ_AutobahnNull() Me(Me.tabletblUTAArchiv.KZ_AutobahnColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsINFO_FeldNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.INFO_FeldColumn) End Function _ Public Sub SetINFO_FeldNull() Me(Me.tabletblUTAArchiv.INFO_FeldColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKFZ_KennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.KFZ_KennzeichenColumn) End Function _ Public Sub SetKFZ_KennzeichenNull() Me(Me.tabletblUTAArchiv.KFZ_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_40Null() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Filler_Feld_40Column) End Function _ Public Sub SetFiller_Feld_40Null() Me(Me.tabletblUTAArchiv.Filler_Feld_40Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungsartNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.BuchungsartColumn) End Function _ Public Sub SetBuchungsartNull() Me(Me.tabletblUTAArchiv.BuchungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungsgrundNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.BuchungsgrundColumn) End Function _ Public Sub SetBuchungsgrundNull() Me(Me.tabletblUTAArchiv.BuchungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_43Null() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Filler_Feld_43Column) End Function _ Public Sub SetFiller_Feld_43Null() Me(Me.tabletblUTAArchiv.Filler_Feld_43Column) = Global.System.Convert.DBNull End Sub _ Public Function IsInformationsbelegNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.InformationsbelegColumn) End Function _ Public Sub SetInformationsbelegNull() Me(Me.tabletblUTAArchiv.InformationsbelegColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegherkunftNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.BelegherkunftColumn) End Function _ Public Sub SetBelegherkunftNull() Me(Me.tabletblUTAArchiv.BelegherkunftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_46Null() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Filler_Feld_46Column) End Function _ Public Sub SetFiller_Feld_46Null() Me(Me.tabletblUTAArchiv.Filler_Feld_46Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) End Function _ Public Sub SetEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenNull() Me(Me.tabletblUTAArchiv.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) End Function _ Public Sub SetEinzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenNull() Me(Me.tabletblUTAArchiv.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.RechnungsdatumColumn) End Function _ Public Sub SetRechnungsdatumNull() Me(Me.tabletblUTAArchiv.RechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmsatzsteuerprozentsatz_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Umsatzsteuerprozentsatz_informativColumn) End Function _ Public Sub SetUmsatzsteuerprozentsatz_informativNull() Me(Me.tabletblUTAArchiv.Umsatzsteuerprozentsatz_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn) End Function _ Public Sub SetBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativNull() Me(Me.tabletblUTAArchiv.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn) End Function _ Public Sub SetBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativNull() Me(Me.tabletblUTAArchiv.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn) End Function _ Public Sub SetGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativNull() Me(Me.tabletblUTAArchiv.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFälligkeitsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.FälligkeitsdatumColumn) End Function _ Public Sub SetFälligkeitsdatumNull() Me(Me.tabletblUTAArchiv.FälligkeitsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsziel_in_TagenNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Zahlungsziel_in_TagenColumn) End Function _ Public Sub SetZahlungsziel_in_TagenNull() Me(Me.tabletblUTAArchiv.Zahlungsziel_in_TagenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsartNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.ZahlungsartColumn) End Function _ Public Sub SetZahlungsartNull() Me(Me.tabletblUTAArchiv.ZahlungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTC_Rechnungsnummer_gegenüber_dem_NutzerNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn) End Function _ Public Sub SetTC_Rechnungsnummer_gegenüber_dem_NutzerNull() Me(Me.tabletblUTAArchiv.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTC_RechnungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.TC_RechnungsdatumColumn) End Function _ Public Sub SetTC_RechnungsdatumNull() Me(Me.tabletblUTAArchiv.TC_RechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungszielgruppeNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.ZahlungszielgruppeColumn) End Function _ Public Sub SetZahlungszielgruppeNull() Me(Me.tabletblUTAArchiv.ZahlungszielgruppeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKunden_Kostenstelle_2Null() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Kunden_Kostenstelle_2Column) End Function _ Public Sub SetKunden_Kostenstelle_2Null() Me(Me.tabletblUTAArchiv.Kunden_Kostenstelle_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferzeitNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.LieferzeitColumn) End Function _ Public Sub SetLieferzeitNull() Me(Me.tabletblUTAArchiv.LieferzeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFremdkartennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.FremdkartennummerColumn) End Function _ Public Sub SetFremdkartennummerNull() Me(Me.tabletblUTAArchiv.FremdkartennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOnBoardUnitIDNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.OnBoardUnitIDColumn) End Function _ Public Sub SetOnBoardUnitIDNull() Me(Me.tabletblUTAArchiv.OnBoardUnitIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKFZ_Kennzeichen_komprimiertNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.KFZ_Kennzeichen_komprimiertColumn) End Function _ Public Sub SetKFZ_Kennzeichen_komprimiertNull() Me(Me.tabletblUTAArchiv.KFZ_Kennzeichen_komprimiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartenkategorieNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.KartenkategorieColumn) End Function _ Public Sub SetKartenkategorieNull() Me(Me.tabletblUTAArchiv.KartenkategorieColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsnummer_pro_LieferlandNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Rechnungsnummer_pro_LieferlandColumn) End Function _ Public Sub SetRechnungsnummer_pro_LieferlandNull() Me(Me.tabletblUTAArchiv.Rechnungsnummer_pro_LieferlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAutobahnauffahrtNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.AutobahnauffahrtColumn) End Function _ Public Sub SetAutobahnauffahrtNull() Me(Me.tabletblUTAArchiv.AutobahnauffahrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAutobahnausfahrtNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.AutobahnausfahrtColumn) End Function _ Public Sub SetAutobahnausfahrtNull() Me(Me.tabletblUTAArchiv.AutobahnausfahrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRabattschlüssel_der_französischen_AutobahngesellschaftenNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn) End Function _ Public Sub SetRabattschlüssel_der_französischen_AutobahngesellschaftenNull() Me(Me.tabletblUTAArchiv.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNummer_BelastungsanzeigeNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Nummer_BelastungsanzeigeColumn) End Function _ Public Sub SetNummer_BelastungsanzeigeNull() Me(Me.tabletblUTAArchiv.Nummer_BelastungsanzeigeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetreuungsstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.BetreuungsstelleColumn) End Function _ Public Sub SetBetreuungsstelleNull() Me(Me.tabletblUTAArchiv.BetreuungsstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_72Null() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Filler_Feld_72Column) End Function _ Public Sub SetFiller_Feld_72Null() Me(Me.tabletblUTAArchiv.Filler_Feld_72Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAkzeptanz_MediumNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Akzeptanz_MediumColumn) End Function _ Public Sub SetAkzeptanz_MediumNull() Me(Me.tabletblUTAArchiv.Akzeptanz_MediumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerkategorieNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.SteuerkategorieColumn) End Function _ Public Sub SetSteuerkategorieNull() Me(Me.tabletblUTAArchiv.SteuerkategorieColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUTA_Beleg_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.UTA_Beleg_IDColumn) End Function _ Public Sub SetUTA_Beleg_IDNull() Me(Me.tabletblUTAArchiv.UTA_Beleg_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUTA_Normalbeleg_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.UTA_Normalbeleg_IDColumn) End Function _ Public Sub SetUTA_Normalbeleg_IDNull() Me(Me.tabletblUTAArchiv.UTA_Normalbeleg_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGebühren_Bescheinigung_vonNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Gebühren_Bescheinigung_vonColumn) End Function _ Public Sub SetGebühren_Bescheinigung_vonNull() Me(Me.tabletblUTAArchiv.Gebühren_Bescheinigung_vonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGebühren_Bescheinigung_bisNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Gebühren_Bescheinigung_bisColumn) End Function _ Public Sub SetGebühren_Bescheinigung_bisNull() Me(Me.tabletblUTAArchiv.Gebühren_Bescheinigung_bisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHerausgeber_Nutzer_NummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Herausgeber_Nutzer_NummerColumn) End Function _ Public Sub SetHerausgeber_Nutzer_NummerNull() Me(Me.tabletblUTAArchiv.Herausgeber_Nutzer_NummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMaßeinheitNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.MaßeinheitColumn) End Function _ Public Sub SetMaßeinheitNull() Me(Me.tabletblUTAArchiv.MaßeinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLand_der_AkzeptanzstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Land_der_AkzeptanzstelleColumn) End Function _ Public Sub SetLand_der_AkzeptanzstelleNull() Me(Me.tabletblUTAArchiv.Land_der_AkzeptanzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPostleitzahl_der_AkzeptanzstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Postleitzahl_der_AkzeptanzstelleColumn) End Function _ Public Sub SetPostleitzahl_der_AkzeptanzstelleNull() Me(Me.tabletblUTAArchiv.Postleitzahl_der_AkzeptanzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerliches_LieferlandNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Steuerliches_LieferlandColumn) End Function _ Public Sub SetSteuerliches_LieferlandNull() Me(Me.tabletblUTAArchiv.Steuerliches_LieferlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerliche_ProduktgruppeNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Steuerliche_ProduktgruppeColumn) End Function _ Public Sub SetSteuerliche_ProduktgruppeNull() Me(Me.tabletblUTAArchiv.Steuerliche_ProduktgruppeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLeistungsort_verlagerbarNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.Leistungsort_verlagerbarColumn) End Function _ Public Sub SetLeistungsort_verlagerbarNull() Me(Me.tabletblUTAArchiv.Leistungsort_verlagerbarColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tabletblUTAArchiv.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUTAArchiv.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUTAArchiv.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUTAFakturierwarenartenRow Inherits Global.System.Data.DataRow Private tabletblUTAFakturierwarenarten As tblUTAFakturierwarenartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUTAFakturierwarenarten = CType(Me.Table,tblUTAFakturierwarenartenDataTable) End Sub _ Public Property Fakturierwarenart() As String Get Return CType(Me(Me.tabletblUTAFakturierwarenarten.FakturierwarenartColumn),String) End Get Set Me(Me.tabletblUTAFakturierwarenarten.FakturierwarenartColumn) = value End Set End Property _ Public Property Warenart() As String Get Return CType(Me(Me.tabletblUTAFakturierwarenarten.WarenartColumn),String) End Get Set Me(Me.tabletblUTAFakturierwarenarten.WarenartColumn) = value End Set End Property _ Public Property VERAG_OffertenNr() As Integer Get Return CType(Me(Me.tabletblUTAFakturierwarenarten.VERAG_OffertenNrColumn),Integer) End Get Set Me(Me.tabletblUTAFakturierwarenarten.VERAG_OffertenNrColumn) = value End Set End Property _ Public Property VERAG_LeistungsNr() As Short Get Return CType(Me(Me.tabletblUTAFakturierwarenarten.VERAG_LeistungsNrColumn),Short) End Get Set Me(Me.tabletblUTAFakturierwarenarten.VERAG_LeistungsNrColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUTAFakturierwarenarten.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUTAFakturierwarenarten ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAFakturierwarenarten.upsize_tsColumn) = value End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUTAFakturierwarenarten.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUTAFakturierwarenarten.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblUTALeistungenRows() As tblUTALeistungenRow() If (Me.Table.ChildRelations("tblUTALeistungen_FK00") Is Nothing) Then Return New tblUTALeistungenRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUTALeistungen_FK00")),tblUTALeistungenRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUTAHeaderRow Inherits Global.System.Data.DataRow Private tabletblUTAHeader As tblUTAHeaderDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUTAHeader = CType(Me.Table,tblUTAHeaderDataTable) End Sub _ Public Property ErstellDatumUhrzeit() As Date Get Return CType(Me(Me.tabletblUTAHeader.ErstellDatumUhrzeitColumn),Date) End Get Set Me(Me.tabletblUTAHeader.ErstellDatumUhrzeitColumn) = value End Set End Property _ Public Property Übertragungsnummer() As Integer Get Return CType(Me(Me.tabletblUTAHeader.ÜbertragungsnummerColumn),Integer) End Get Set Me(Me.tabletblUTAHeader.ÜbertragungsnummerColumn) = value End Set End Property _ Public Property Absender_ID() As Double Get Try Return CType(Me(Me.tabletblUTAHeader.Absender_IDColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Absender_ID in Tabelle tblUTAHeader ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeader.Absender_IDColumn) = value End Set End Property _ Public Property Empfänger_ID() As Double Get Try Return CType(Me(Me.tabletblUTAHeader.Empfänger_IDColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Empfänger_ID in Tabelle tblUTAHeader ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeader.Empfänger_IDColumn) = value End Set End Property _ Public Property Filler_Feld_5() As String Get Try Return CType(Me(Me.tabletblUTAHeader.Filler_Feld_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_5 in Tabelle tblUTAHeader ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeader.Filler_Feld_5Column) = value End Set End Property _ Public Property Abrechnungsnummer() As Double Get Try Return CType(Me(Me.tabletblUTAHeader.AbrechnungsnummerColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abrechnungsnummer in Tabelle tblUTAHeader ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeader.AbrechnungsnummerColumn) = value End Set End Property _ Public Property DTF_Format() As String Get Try Return CType(Me(Me.tabletblUTAHeader.DTF_FormatColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DTF_Format in Tabelle tblUTAHeader ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeader.DTF_FormatColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUTAHeader.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUTAHeader ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeader.upsize_tsColumn) = value End Set End Property _ Public Function IsAbsender_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAHeader.Absender_IDColumn) End Function _ Public Sub SetAbsender_IDNull() Me(Me.tabletblUTAHeader.Absender_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfänger_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAHeader.Empfänger_IDColumn) End Function _ Public Sub SetEmpfänger_IDNull() Me(Me.tabletblUTAHeader.Empfänger_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_5Null() As Boolean Return Me.IsNull(Me.tabletblUTAHeader.Filler_Feld_5Column) End Function _ Public Sub SetFiller_Feld_5Null() Me(Me.tabletblUTAHeader.Filler_Feld_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAbrechnungsnummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAHeader.AbrechnungsnummerColumn) End Function _ Public Sub SetAbrechnungsnummerNull() Me(Me.tabletblUTAHeader.AbrechnungsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDTF_FormatNull() As Boolean Return Me.IsNull(Me.tabletblUTAHeader.DTF_FormatColumn) End Function _ Public Sub SetDTF_FormatNull() Me(Me.tabletblUTAHeader.DTF_FormatColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUTAHeader.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUTAHeader.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblUTAArchivRows() As tblUTAArchivRow() If (Me.Table.ChildRelations("tblUTAArchiv_FK00") Is Nothing) Then Return New tblUTAArchivRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUTAArchiv_FK00")),tblUTAArchivRow()) End If End Function _ Public Function GettblUTAImportRows() As tblUTAImportRow() If (Me.Table.ChildRelations("tblUTAImport_FK00") Is Nothing) Then Return New tblUTAImportRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUTAImport_FK00")),tblUTAImportRow()) End If End Function _ Public Function GettblUTATrailerRows() As tblUTATrailerRow() If (Me.Table.ChildRelations("tblUTATrailer_FK00") Is Nothing) Then Return New tblUTATrailerRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUTATrailer_FK00")),tblUTATrailerRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUTAHeaderNewRow Inherits Global.System.Data.DataRow Private tabletblUTAHeaderNew As tblUTAHeaderNewDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUTAHeaderNew = CType(Me.Table,tblUTAHeaderNewDataTable) End Sub _ Public Property ErstellDatumUhrzeit() As Date Get Return CType(Me(Me.tabletblUTAHeaderNew.ErstellDatumUhrzeitColumn),Date) End Get Set Me(Me.tabletblUTAHeaderNew.ErstellDatumUhrzeitColumn) = value End Set End Property _ Public Property Übertragungsnummer() As Integer Get Return CType(Me(Me.tabletblUTAHeaderNew.ÜbertragungsnummerColumn),Integer) End Get Set Me(Me.tabletblUTAHeaderNew.ÜbertragungsnummerColumn) = value End Set End Property _ Public Property Absender_ID() As Double Get Try Return CType(Me(Me.tabletblUTAHeaderNew.Absender_IDColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Absender_ID in Tabelle tblUTAHeaderNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeaderNew.Absender_IDColumn) = value End Set End Property _ Public Property Empfänger_ID() As Double Get Try Return CType(Me(Me.tabletblUTAHeaderNew.Empfänger_IDColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Empfänger_ID in Tabelle tblUTAHeaderNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeaderNew.Empfänger_IDColumn) = value End Set End Property _ Public Property Filler_Feld_5() As String Get Try Return CType(Me(Me.tabletblUTAHeaderNew.Filler_Feld_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_5 in Tabelle tblUTAHeaderNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeaderNew.Filler_Feld_5Column) = value End Set End Property _ Public Property Abrechnungsnummer() As Double Get Try Return CType(Me(Me.tabletblUTAHeaderNew.AbrechnungsnummerColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abrechnungsnummer in Tabelle tblUTAHeaderNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeaderNew.AbrechnungsnummerColumn) = value End Set End Property _ Public Property DTF_Format() As String Get Try Return CType(Me(Me.tabletblUTAHeaderNew.DTF_FormatColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DTF_Format in Tabelle tblUTAHeaderNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeaderNew.DTF_FormatColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUTAHeaderNew.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUTAHeaderNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAHeaderNew.upsize_tsColumn) = value End Set End Property _ Public Function IsAbsender_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAHeaderNew.Absender_IDColumn) End Function _ Public Sub SetAbsender_IDNull() Me(Me.tabletblUTAHeaderNew.Absender_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfänger_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAHeaderNew.Empfänger_IDColumn) End Function _ Public Sub SetEmpfänger_IDNull() Me(Me.tabletblUTAHeaderNew.Empfänger_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_5Null() As Boolean Return Me.IsNull(Me.tabletblUTAHeaderNew.Filler_Feld_5Column) End Function _ Public Sub SetFiller_Feld_5Null() Me(Me.tabletblUTAHeaderNew.Filler_Feld_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAbrechnungsnummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAHeaderNew.AbrechnungsnummerColumn) End Function _ Public Sub SetAbrechnungsnummerNull() Me(Me.tabletblUTAHeaderNew.AbrechnungsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDTF_FormatNull() As Boolean Return Me.IsNull(Me.tabletblUTAHeaderNew.DTF_FormatColumn) End Function _ Public Sub SetDTF_FormatNull() Me(Me.tabletblUTAHeaderNew.DTF_FormatColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUTAHeaderNew.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUTAHeaderNew.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function GettblUTAImportNewRows() As tblUTAImportNewRow() If (Me.Table.ChildRelations("tblUTAImportNew_FK00") Is Nothing) Then Return New tblUTAImportNewRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUTAImportNew_FK00")),tblUTAImportNewRow()) End If End Function _ Public Function GettblUTATrailerNewRows() As tblUTATrailerNewRow() If (Me.Table.ChildRelations("tblUTATrailerNew_FK00") Is Nothing) Then Return New tblUTATrailerNewRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tblUTATrailerNew_FK00")),tblUTATrailerNewRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUTAImportRow Inherits Global.System.Data.DataRow Private tabletblUTAImport As tblUTAImportDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUTAImport = CType(Me.Table,tblUTAImportDataTable) End Sub _ Public Property ErstellDatumUhrzeit() As Date Get Return CType(Me(Me.tabletblUTAImport.ErstellDatumUhrzeitColumn),Date) End Get Set Me(Me.tabletblUTAImport.ErstellDatumUhrzeitColumn) = value End Set End Property _ Public Property Übertragungsnummer() As Integer Get Return CType(Me(Me.tabletblUTAImport.ÜbertragungsnummerColumn),Integer) End Get Set Me(Me.tabletblUTAImport.ÜbertragungsnummerColumn) = value End Set End Property _ Public Property Übertragungsposition() As Integer Get Return CType(Me(Me.tabletblUTAImport.ÜbertragungspositionColumn),Integer) End Get Set Me(Me.tabletblUTAImport.ÜbertragungspositionColumn) = value End Set End Property _ Public Property Abrechnungsnummer() As Double Get Try Return CType(Me(Me.tabletblUTAImport.AbrechnungsnummerColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abrechnungsnummer in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.AbrechnungsnummerColumn) = value End Set End Property _ Public Property Datum_für_Lieferungen_und_Leistungen_bis() As Date Get Try Return CType(Me(Me.tabletblUTAImport.Datum_für_Lieferungen_und_Leistungen_bisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datum_für_Lieferungen_und_Leistungen_bis in Tabelle tblUTAImp"& _ "ort ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Datum_für_Lieferungen_und_Leistungen_bisColumn) = value End Set End Property _ Public Property Rechnungsempfänger_Kundennummer() As Integer Get Try Return CType(Me(Me.tabletblUTAImport.Rechnungsempfänger_KundennummerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsempfänger_Kundennummer in Tabelle tblUTAImport ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Rechnungsempfänger_KundennummerColumn) = value End Set End Property _ Public Property Abrechnungsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAImport.AbrechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abrechnungsdatum in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.AbrechnungsdatumColumn) = value End Set End Property _ Public Property Kundennummer() As Integer Get Return CType(Me(Me.tabletblUTAImport.KundennummerColumn),Integer) End Get Set Me(Me.tabletblUTAImport.KundennummerColumn) = value End Set End Property _ Public Property Kartennummer() As String Get Try Return CType(Me(Me.tabletblUTAImport.KartennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartennummer in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.KartennummerColumn) = value End Set End Property _ Public Property Belegdatum() As Date Get Try Return CType(Me(Me.tabletblUTAImport.BelegdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdatum in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.BelegdatumColumn) = value End Set End Property _ Public Property Akzeptanzstellennummer() As Double Get Try Return CType(Me(Me.tabletblUTAImport.AkzeptanzstellennummerColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Akzeptanzstellennummer in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.AkzeptanzstellennummerColumn) = value End Set End Property _ Public Property Standort_der_Akzeptanzstelle() As String Get Try Return CType(Me(Me.tabletblUTAImport.Standort_der_AkzeptanzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Standort_der_Akzeptanzstelle in Tabelle tblUTAImport ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblUTAImport.Standort_der_AkzeptanzstelleColumn) = value End Set End Property _ Public Property Lieferland() As String Get Try Return CType(Me(Me.tabletblUTAImport.LieferlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferland in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.LieferlandColumn) = value End Set End Property _ Public Property Belegnummer_des_Lieferanten() As String Get Try Return CType(Me(Me.tabletblUTAImport.Belegnummer_des_LieferantenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegnummer_des_Lieferanten in Tabelle tblUTAImport ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUTAImport.Belegnummer_des_LieferantenColumn) = value End Set End Property _ Public Property Kilometerstand() As Double Get Try Return CType(Me(Me.tabletblUTAImport.KilometerstandColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kilometerstand in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.KilometerstandColumn) = value End Set End Property _ Public Property Fakturierwarenart() As String Get Return CType(Me(Me.tabletblUTAImport.FakturierwarenartColumn),String) End Get Set Me(Me.tabletblUTAImport.FakturierwarenartColumn) = value End Set End Property _ Public Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen() As String Get Try Return CType(Me(Me.tabletblUTAImport.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen in Tabelle "& _ "tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn) = value End Set End Property _ Public Property Menge() As Double Get Try Return CType(Me(Me.tabletblUTAImport.MengeColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Menge in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.MengeColumn) = value End Set End Property _ Public Property SB_BT() As String Get Try Return CType(Me(Me.tabletblUTAImport.SB_BTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SB_BT in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.SB_BTColumn) = value End Set End Property _ Public Property Umsatzsteuerprozentsatz() As Double Get Try Return CType(Me(Me.tabletblUTAImport.UmsatzsteuerprozentsatzColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umsatzsteuerprozentsatz in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.UmsatzsteuerprozentsatzColumn) = value End Set End Property _ Public Property Lieferlandwährung_ISO() As String Get Try Return CType(Me(Me.tabletblUTAImport.Lieferlandwährung_ISOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferlandwährung_ISO in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Lieferlandwährung_ISOColumn) = value End Set End Property _ Public Property Einzelpreis_Brutto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Einzelpreis_Brutto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Brutto_in_Lieferlandwährung in Tabelle tblUTAImpo"& _ "rt ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Einzelpreis_Brutto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Einzelpreis_Netto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Einzelpreis_Netto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Netto_in_Lieferlandwährung in Tabelle tblUTAImpor"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Einzelpreis_Netto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Betrag_Service_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Betrag_Service_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Service_in_Lieferlandwährung in Tabelle tblUTAImport i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Betrag_Service_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Betrag_Nachlass_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Betrag_Nachlass_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Nachlass_in_Lieferlandwährung in Tabelle tblUTAImport "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Betrag_Nachlass_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Netto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Gesamtbetrag_Netto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Netto_in_Lieferlandwährung in Tabelle tblUTAImpo"& _ "rt ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Gesamtbetrag_Netto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Brutto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Gesamtbetrag_Brutto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Brutto_in_Lieferlandwährung in Tabelle tblUTAImp"& _ "ort ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Gesamtbetrag_Brutto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Darstellwährung_ISO() As String Get Try Return CType(Me(Me.tabletblUTAImport.Darstellwährung_ISOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Darstellwährung_ISO in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Darstellwährung_ISOColumn) = value End Set End Property _ Public Property Betrag_Service_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Betrag_Service_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Service_in_Darstellwährung in Tabelle tblUTAImport ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Betrag_Service_in_DarstellwährungColumn) = value End Set End Property _ Public Property Betrag_Nachlass_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Betrag_Nachlass_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Nachlass_in_Darstellwährung in Tabelle tblUTAImport is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Betrag_Nachlass_in_DarstellwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Netto_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Gesamtbetrag_Netto_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Netto_in_Darstellwährung in Tabelle tblUTAImport"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Gesamtbetrag_Netto_in_DarstellwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Umsatzsteuer_in_Darstellwährung in Tabelle tblUT"& _ "AImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Brutto_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Gesamtbetrag_Brutto_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Brutto_in_Darstellwährung in Tabelle tblUTAImpor"& _ "t ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Gesamtbetrag_Brutto_in_DarstellwährungColumn) = value End Set End Property _ Public Property Prägetext_i_d_R_KFZ_Kennzeichen() As String Get Try Return CType(Me(Me.tabletblUTAImport.Prägetext_i_d_R_KFZ_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prägetext_i_d_R_KFZ_Kennzeichen in Tabelle tblUTAImport ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Prägetext_i_d_R_KFZ_KennzeichenColumn) = value End Set End Property _ Public Property Kunden_Kostenstelle_1() As String Get Try Return CType(Me(Me.tabletblUTAImport.Kunden_Kostenstelle_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kunden_Kostenstelle_1 in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Kunden_Kostenstelle_1Column) = value End Set End Property _ Public Property Kartentyp() As String Get Try Return CType(Me(Me.tabletblUTAImport.KartentypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartentyp in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.KartentypColumn) = value End Set End Property _ Public Property Filler_Feld_35() As String Get Try Return CType(Me(Me.tabletblUTAImport.Filler_Feld_35Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_35 in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Filler_Feld_35Column) = value End Set End Property _ Public Property Filler_Feld_36() As String Get Try Return CType(Me(Me.tabletblUTAImport.Filler_Feld_36Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_36 in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Filler_Feld_36Column) = value End Set End Property _ Public Property KZ_Autobahn() As String Get Try Return CType(Me(Me.tabletblUTAImport.KZ_AutobahnColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KZ_Autobahn in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.KZ_AutobahnColumn) = value End Set End Property _ Public Property INFO_Feld() As String Get Try Return CType(Me(Me.tabletblUTAImport.INFO_FeldColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INFO_Feld in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.INFO_FeldColumn) = value End Set End Property _ Public Property KFZ_Kennzeichen() As String Get Try Return CType(Me(Me.tabletblUTAImport.KFZ_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KFZ_Kennzeichen in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.KFZ_KennzeichenColumn) = value End Set End Property _ Public Property Filler_Feld_40() As String Get Try Return CType(Me(Me.tabletblUTAImport.Filler_Feld_40Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_40 in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Filler_Feld_40Column) = value End Set End Property _ Public Property Buchungsart() As String Get Try Return CType(Me(Me.tabletblUTAImport.BuchungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsart in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.BuchungsartColumn) = value End Set End Property _ Public Property Buchungsgrund() As String Get Try Return CType(Me(Me.tabletblUTAImport.BuchungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsgrund in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.BuchungsgrundColumn) = value End Set End Property _ Public Property Filler_Feld_43() As String Get Try Return CType(Me(Me.tabletblUTAImport.Filler_Feld_43Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_43 in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Filler_Feld_43Column) = value End Set End Property _ Public Property Informationsbeleg() As String Get Try Return CType(Me(Me.tabletblUTAImport.InformationsbelegColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Informationsbeleg in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.InformationsbelegColumn) = value End Set End Property _ Public Property Belegherkunft() As String Get Try Return CType(Me(Me.tabletblUTAImport.BelegherkunftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegherkunft in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.BelegherkunftColumn) = value End Set End Property _ Public Property Filler_Feld_46() As String Get Try Return CType(Me(Me.tabletblUTAImport.Filler_Feld_46Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_46 in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Filler_Feld_46Column) = value End Set End Property _ Public Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastelle"& _ "n in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = value End Set End Property _ Public Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen"& _ " in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = value End Set End Property _ Public Property Rechnungsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAImport.RechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsdatum in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.RechnungsdatumColumn) = value End Set End Property _ Public Property Umsatzsteuerprozentsatz_informativ() As Double Get Try Return CType(Me(Me.tabletblUTAImport.Umsatzsteuerprozentsatz_informativColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umsatzsteuerprozentsatz_informativ in Tabelle tblUTAImport is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Umsatzsteuerprozentsatz_informativColumn) = value End Set End Property _ Public Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ "& _ "in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = value End Set End Property _ Public Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ i"& _ "n Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = value End Set End Property _ Public Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ() As Decimal Get Try Return CType(Me(Me.tabletblUTAImport.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ in "& _ "Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = value End Set End Property _ Public Property Fälligkeitsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAImport.FälligkeitsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fälligkeitsdatum in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.FälligkeitsdatumColumn) = value End Set End Property _ Public Property Zahlungsziel_in_Tagen() As Short Get Try Return CType(Me(Me.tabletblUTAImport.Zahlungsziel_in_TagenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsziel_in_Tagen in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Zahlungsziel_in_TagenColumn) = value End Set End Property _ Public Property Zahlungsart() As String Get Try Return CType(Me(Me.tabletblUTAImport.ZahlungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsart in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.ZahlungsartColumn) = value End Set End Property _ Public Property TC_Rechnungsnummer_gegenüber_dem_Nutzer() As String Get Try Return CType(Me(Me.tabletblUTAImport.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TC_Rechnungsnummer_gegenüber_dem_Nutzer in Tabelle tblUTAImpo"& _ "rt ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn) = value End Set End Property _ Public Property TC_Rechnungsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAImport.TC_RechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TC_Rechnungsdatum in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.TC_RechnungsdatumColumn) = value End Set End Property _ Public Property Zahlungszielgruppe() As String Get Try Return CType(Me(Me.tabletblUTAImport.ZahlungszielgruppeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungszielgruppe in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.ZahlungszielgruppeColumn) = value End Set End Property _ Public Property Kunden_Kostenstelle_2() As String Get Try Return CType(Me(Me.tabletblUTAImport.Kunden_Kostenstelle_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kunden_Kostenstelle_2 in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Kunden_Kostenstelle_2Column) = value End Set End Property _ Public Property Lieferzeit() As String Get Try Return CType(Me(Me.tabletblUTAImport.LieferzeitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferzeit in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.LieferzeitColumn) = value End Set End Property _ Public Property Fremdkartennummer() As String Get Try Return CType(Me(Me.tabletblUTAImport.FremdkartennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fremdkartennummer in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.FremdkartennummerColumn) = value End Set End Property _ Public Property OnBoardUnitID() As String Get Try Return CType(Me(Me.tabletblUTAImport.OnBoardUnitIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OnBoardUnitID in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.OnBoardUnitIDColumn) = value End Set End Property _ Public Property KFZ_Kennzeichen_komprimiert() As String Get Try Return CType(Me(Me.tabletblUTAImport.KFZ_Kennzeichen_komprimiertColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KFZ_Kennzeichen_komprimiert in Tabelle tblUTAImport ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUTAImport.KFZ_Kennzeichen_komprimiertColumn) = value End Set End Property _ Public Property Kartenkategorie() As String Get Try Return CType(Me(Me.tabletblUTAImport.KartenkategorieColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartenkategorie in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.KartenkategorieColumn) = value End Set End Property _ Public Property Rechnungsnummer_pro_Lieferland() As Double Get Try Return CType(Me(Me.tabletblUTAImport.Rechnungsnummer_pro_LieferlandColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsnummer_pro_Lieferland in Tabelle tblUTAImport ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblUTAImport.Rechnungsnummer_pro_LieferlandColumn) = value End Set End Property _ Public Property Autobahnauffahrt() As String Get Try Return CType(Me(Me.tabletblUTAImport.AutobahnauffahrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Autobahnauffahrt in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.AutobahnauffahrtColumn) = value End Set End Property _ Public Property Autobahnausfahrt() As String Get Try Return CType(Me(Me.tabletblUTAImport.AutobahnausfahrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Autobahnausfahrt in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.AutobahnausfahrtColumn) = value End Set End Property _ Public Property Rabattschlüssel_der_französischen_Autobahngesellschaften() As Short Get Try Return CType(Me(Me.tabletblUTAImport.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rabattschlüssel_der_französischen_Autobahngesellschaften in T"& _ "abelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn) = value End Set End Property _ Public Property Nummer_Belastungsanzeige() As Double Get Try Return CType(Me(Me.tabletblUTAImport.Nummer_BelastungsanzeigeColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nummer_Belastungsanzeige in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Nummer_BelastungsanzeigeColumn) = value End Set End Property _ Public Property Betreuungsstelle() As String Get Try Return CType(Me(Me.tabletblUTAImport.BetreuungsstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betreuungsstelle in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.BetreuungsstelleColumn) = value End Set End Property _ Public Property Filler_Feld_72() As String Get Try Return CType(Me(Me.tabletblUTAImport.Filler_Feld_72Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_72 in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Filler_Feld_72Column) = value End Set End Property _ Public Property Akzeptanz_Medium() As String Get Try Return CType(Me(Me.tabletblUTAImport.Akzeptanz_MediumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Akzeptanz_Medium in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Akzeptanz_MediumColumn) = value End Set End Property _ Public Property Steuerkategorie() As String Get Try Return CType(Me(Me.tabletblUTAImport.SteuerkategorieColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerkategorie in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.SteuerkategorieColumn) = value End Set End Property _ Public Property UTA_Beleg_ID() As Double Get Try Return CType(Me(Me.tabletblUTAImport.UTA_Beleg_IDColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UTA_Beleg_ID in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.UTA_Beleg_IDColumn) = value End Set End Property _ Public Property UTA_Normalbeleg_ID() As Double Get Try Return CType(Me(Me.tabletblUTAImport.UTA_Normalbeleg_IDColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UTA_Normalbeleg_ID in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.UTA_Normalbeleg_IDColumn) = value End Set End Property _ Public Property Gebühren_Bescheinigung_von() As Date Get Try Return CType(Me(Me.tabletblUTAImport.Gebühren_Bescheinigung_vonColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gebühren_Bescheinigung_von in Tabelle tblUTAImport ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblUTAImport.Gebühren_Bescheinigung_vonColumn) = value End Set End Property _ Public Property Gebühren_Bescheinigung_bis() As Date Get Try Return CType(Me(Me.tabletblUTAImport.Gebühren_Bescheinigung_bisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gebühren_Bescheinigung_bis in Tabelle tblUTAImport ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblUTAImport.Gebühren_Bescheinigung_bisColumn) = value End Set End Property _ Public Property Herausgeber_Nutzer_Nummer() As String Get Try Return CType(Me(Me.tabletblUTAImport.Herausgeber_Nutzer_NummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Herausgeber_Nutzer_Nummer in Tabelle tblUTAImport ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUTAImport.Herausgeber_Nutzer_NummerColumn) = value End Set End Property _ Public Property Maßeinheit() As String Get Try Return CType(Me(Me.tabletblUTAImport.MaßeinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Maßeinheit in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.MaßeinheitColumn) = value End Set End Property _ Public Property Land_der_Akzeptanzstelle() As String Get Try Return CType(Me(Me.tabletblUTAImport.Land_der_AkzeptanzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Land_der_Akzeptanzstelle in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Land_der_AkzeptanzstelleColumn) = value End Set End Property _ Public Property Postleitzahl_der_Akzeptanzstelle() As String Get Try Return CType(Me(Me.tabletblUTAImport.Postleitzahl_der_AkzeptanzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Postleitzahl_der_Akzeptanzstelle in Tabelle tblUTAImport ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Postleitzahl_der_AkzeptanzstelleColumn) = value End Set End Property _ Public Property Steuerliches_Lieferland() As String Get Try Return CType(Me(Me.tabletblUTAImport.Steuerliches_LieferlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerliches_Lieferland in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Steuerliches_LieferlandColumn) = value End Set End Property _ Public Property Steuerliche_Produktgruppe() As String Get Try Return CType(Me(Me.tabletblUTAImport.Steuerliche_ProduktgruppeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerliche_Produktgruppe in Tabelle tblUTAImport ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUTAImport.Steuerliche_ProduktgruppeColumn) = value End Set End Property _ Public Property Leistungsort_verlagerbar() As String Get Try Return CType(Me(Me.tabletblUTAImport.Leistungsort_verlagerbarColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Leistungsort_verlagerbar in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.Leistungsort_verlagerbarColumn) = value End Set End Property _ Public Property archiv() As Boolean Get Return CType(Me(Me.tabletblUTAImport.archivColumn),Boolean) End Get Set Me(Me.tabletblUTAImport.archivColumn) = value End Set End Property _ Public Property archiviertDatum() As Date Get Try Return CType(Me(Me.tabletblUTAImport.archiviertDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte archiviertDatum in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.archiviertDatumColumn) = value End Set End Property _ Public Property daId() As Integer Get Try Return CType(Me(Me.tabletblUTAImport.daIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte daId in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.daIdColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUTAImport.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUTAImport ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImport.upsize_tsColumn) = value End Set End Property _ Public Property tblUTAHeaderRowParent() As tblUTAHeaderRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUTAImport_FK00")),tblUTAHeaderRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUTAImport_FK00")) End Set End Property _ Public Function IsAbrechnungsnummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.AbrechnungsnummerColumn) End Function _ Public Sub SetAbrechnungsnummerNull() Me(Me.tabletblUTAImport.AbrechnungsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatum_für_Lieferungen_und_Leistungen_bisNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Datum_für_Lieferungen_und_Leistungen_bisColumn) End Function _ Public Sub SetDatum_für_Lieferungen_und_Leistungen_bisNull() Me(Me.tabletblUTAImport.Datum_für_Lieferungen_und_Leistungen_bisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsempfänger_KundennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Rechnungsempfänger_KundennummerColumn) End Function _ Public Sub SetRechnungsempfänger_KundennummerNull() Me(Me.tabletblUTAImport.Rechnungsempfänger_KundennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbrechnungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.AbrechnungsdatumColumn) End Function _ Public Sub SetAbrechnungsdatumNull() Me(Me.tabletblUTAImport.AbrechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.KartennummerColumn) End Function _ Public Sub SetKartennummerNull() Me(Me.tabletblUTAImport.KartennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.BelegdatumColumn) End Function _ Public Sub SetBelegdatumNull() Me(Me.tabletblUTAImport.BelegdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAkzeptanzstellennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.AkzeptanzstellennummerColumn) End Function _ Public Sub SetAkzeptanzstellennummerNull() Me(Me.tabletblUTAImport.AkzeptanzstellennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStandort_der_AkzeptanzstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Standort_der_AkzeptanzstelleColumn) End Function _ Public Sub SetStandort_der_AkzeptanzstelleNull() Me(Me.tabletblUTAImport.Standort_der_AkzeptanzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferlandNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.LieferlandColumn) End Function _ Public Sub SetLieferlandNull() Me(Me.tabletblUTAImport.LieferlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegnummer_des_LieferantenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Belegnummer_des_LieferantenColumn) End Function _ Public Sub SetBelegnummer_des_LieferantenNull() Me(Me.tabletblUTAImport.Belegnummer_des_LieferantenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKilometerstandNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.KilometerstandColumn) End Function _ Public Sub SetKilometerstandNull() Me(Me.tabletblUTAImport.KilometerstandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorzeichen_Statusfeld_für_alle_Beträge_und_MengenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn) End Function _ Public Sub SetVorzeichen_Statusfeld_für_alle_Beträge_und_MengenNull() Me(Me.tabletblUTAImport.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMengeNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.MengeColumn) End Function _ Public Sub SetMengeNull() Me(Me.tabletblUTAImport.MengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSB_BTNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.SB_BTColumn) End Function _ Public Sub SetSB_BTNull() Me(Me.tabletblUTAImport.SB_BTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmsatzsteuerprozentsatzNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.UmsatzsteuerprozentsatzColumn) End Function _ Public Sub SetUmsatzsteuerprozentsatzNull() Me(Me.tabletblUTAImport.UmsatzsteuerprozentsatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferlandwährung_ISONull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Lieferlandwährung_ISOColumn) End Function _ Public Sub SetLieferlandwährung_ISONull() Me(Me.tabletblUTAImport.Lieferlandwährung_ISOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Brutto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Einzelpreis_Brutto_in_LieferlandwährungColumn) End Function _ Public Sub SetEinzelpreis_Brutto_in_LieferlandwährungNull() Me(Me.tabletblUTAImport.Einzelpreis_Brutto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Netto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Einzelpreis_Netto_in_LieferlandwährungColumn) End Function _ Public Sub SetEinzelpreis_Netto_in_LieferlandwährungNull() Me(Me.tabletblUTAImport.Einzelpreis_Netto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Service_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Betrag_Service_in_LieferlandwährungColumn) End Function _ Public Sub SetBetrag_Service_in_LieferlandwährungNull() Me(Me.tabletblUTAImport.Betrag_Service_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Nachlass_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Betrag_Nachlass_in_LieferlandwährungColumn) End Function _ Public Sub SetBetrag_Nachlass_in_LieferlandwährungNull() Me(Me.tabletblUTAImport.Betrag_Nachlass_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Netto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Gesamtbetrag_Netto_in_LieferlandwährungColumn) End Function _ Public Sub SetGesamtbetrag_Netto_in_LieferlandwährungNull() Me(Me.tabletblUTAImport.Gesamtbetrag_Netto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Brutto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Gesamtbetrag_Brutto_in_LieferlandwährungColumn) End Function _ Public Sub SetGesamtbetrag_Brutto_in_LieferlandwährungNull() Me(Me.tabletblUTAImport.Gesamtbetrag_Brutto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDarstellwährung_ISONull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Darstellwährung_ISOColumn) End Function _ Public Sub SetDarstellwährung_ISONull() Me(Me.tabletblUTAImport.Darstellwährung_ISOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Service_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Betrag_Service_in_DarstellwährungColumn) End Function _ Public Sub SetBetrag_Service_in_DarstellwährungNull() Me(Me.tabletblUTAImport.Betrag_Service_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Nachlass_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Betrag_Nachlass_in_DarstellwährungColumn) End Function _ Public Sub SetBetrag_Nachlass_in_DarstellwährungNull() Me(Me.tabletblUTAImport.Betrag_Nachlass_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Netto_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Gesamtbetrag_Netto_in_DarstellwährungColumn) End Function _ Public Sub SetGesamtbetrag_Netto_in_DarstellwährungNull() Me(Me.tabletblUTAImport.Gesamtbetrag_Netto_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Umsatzsteuer_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn) End Function _ Public Sub SetGesamtbetrag_Umsatzsteuer_in_DarstellwährungNull() Me(Me.tabletblUTAImport.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Brutto_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Gesamtbetrag_Brutto_in_DarstellwährungColumn) End Function _ Public Sub SetGesamtbetrag_Brutto_in_DarstellwährungNull() Me(Me.tabletblUTAImport.Gesamtbetrag_Brutto_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrägetext_i_d_R_KFZ_KennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Prägetext_i_d_R_KFZ_KennzeichenColumn) End Function _ Public Sub SetPrägetext_i_d_R_KFZ_KennzeichenNull() Me(Me.tabletblUTAImport.Prägetext_i_d_R_KFZ_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKunden_Kostenstelle_1Null() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Kunden_Kostenstelle_1Column) End Function _ Public Sub SetKunden_Kostenstelle_1Null() Me(Me.tabletblUTAImport.Kunden_Kostenstelle_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsKartentypNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.KartentypColumn) End Function _ Public Sub SetKartentypNull() Me(Me.tabletblUTAImport.KartentypColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_35Null() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Filler_Feld_35Column) End Function _ Public Sub SetFiller_Feld_35Null() Me(Me.tabletblUTAImport.Filler_Feld_35Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_36Null() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Filler_Feld_36Column) End Function _ Public Sub SetFiller_Feld_36Null() Me(Me.tabletblUTAImport.Filler_Feld_36Column) = Global.System.Convert.DBNull End Sub _ Public Function IsKZ_AutobahnNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.KZ_AutobahnColumn) End Function _ Public Sub SetKZ_AutobahnNull() Me(Me.tabletblUTAImport.KZ_AutobahnColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsINFO_FeldNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.INFO_FeldColumn) End Function _ Public Sub SetINFO_FeldNull() Me(Me.tabletblUTAImport.INFO_FeldColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKFZ_KennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.KFZ_KennzeichenColumn) End Function _ Public Sub SetKFZ_KennzeichenNull() Me(Me.tabletblUTAImport.KFZ_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_40Null() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Filler_Feld_40Column) End Function _ Public Sub SetFiller_Feld_40Null() Me(Me.tabletblUTAImport.Filler_Feld_40Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungsartNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.BuchungsartColumn) End Function _ Public Sub SetBuchungsartNull() Me(Me.tabletblUTAImport.BuchungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungsgrundNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.BuchungsgrundColumn) End Function _ Public Sub SetBuchungsgrundNull() Me(Me.tabletblUTAImport.BuchungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_43Null() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Filler_Feld_43Column) End Function _ Public Sub SetFiller_Feld_43Null() Me(Me.tabletblUTAImport.Filler_Feld_43Column) = Global.System.Convert.DBNull End Sub _ Public Function IsInformationsbelegNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.InformationsbelegColumn) End Function _ Public Sub SetInformationsbelegNull() Me(Me.tabletblUTAImport.InformationsbelegColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegherkunftNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.BelegherkunftColumn) End Function _ Public Sub SetBelegherkunftNull() Me(Me.tabletblUTAImport.BelegherkunftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_46Null() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Filler_Feld_46Column) End Function _ Public Sub SetFiller_Feld_46Null() Me(Me.tabletblUTAImport.Filler_Feld_46Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) End Function _ Public Sub SetEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenNull() Me(Me.tabletblUTAImport.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) End Function _ Public Sub SetEinzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenNull() Me(Me.tabletblUTAImport.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.RechnungsdatumColumn) End Function _ Public Sub SetRechnungsdatumNull() Me(Me.tabletblUTAImport.RechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmsatzsteuerprozentsatz_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Umsatzsteuerprozentsatz_informativColumn) End Function _ Public Sub SetUmsatzsteuerprozentsatz_informativNull() Me(Me.tabletblUTAImport.Umsatzsteuerprozentsatz_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn) End Function _ Public Sub SetBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativNull() Me(Me.tabletblUTAImport.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn) End Function _ Public Sub SetBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativNull() Me(Me.tabletblUTAImport.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn) End Function _ Public Sub SetGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativNull() Me(Me.tabletblUTAImport.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFälligkeitsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.FälligkeitsdatumColumn) End Function _ Public Sub SetFälligkeitsdatumNull() Me(Me.tabletblUTAImport.FälligkeitsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsziel_in_TagenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Zahlungsziel_in_TagenColumn) End Function _ Public Sub SetZahlungsziel_in_TagenNull() Me(Me.tabletblUTAImport.Zahlungsziel_in_TagenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsartNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.ZahlungsartColumn) End Function _ Public Sub SetZahlungsartNull() Me(Me.tabletblUTAImport.ZahlungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTC_Rechnungsnummer_gegenüber_dem_NutzerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn) End Function _ Public Sub SetTC_Rechnungsnummer_gegenüber_dem_NutzerNull() Me(Me.tabletblUTAImport.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTC_RechnungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.TC_RechnungsdatumColumn) End Function _ Public Sub SetTC_RechnungsdatumNull() Me(Me.tabletblUTAImport.TC_RechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungszielgruppeNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.ZahlungszielgruppeColumn) End Function _ Public Sub SetZahlungszielgruppeNull() Me(Me.tabletblUTAImport.ZahlungszielgruppeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKunden_Kostenstelle_2Null() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Kunden_Kostenstelle_2Column) End Function _ Public Sub SetKunden_Kostenstelle_2Null() Me(Me.tabletblUTAImport.Kunden_Kostenstelle_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferzeitNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.LieferzeitColumn) End Function _ Public Sub SetLieferzeitNull() Me(Me.tabletblUTAImport.LieferzeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFremdkartennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.FremdkartennummerColumn) End Function _ Public Sub SetFremdkartennummerNull() Me(Me.tabletblUTAImport.FremdkartennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOnBoardUnitIDNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.OnBoardUnitIDColumn) End Function _ Public Sub SetOnBoardUnitIDNull() Me(Me.tabletblUTAImport.OnBoardUnitIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKFZ_Kennzeichen_komprimiertNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.KFZ_Kennzeichen_komprimiertColumn) End Function _ Public Sub SetKFZ_Kennzeichen_komprimiertNull() Me(Me.tabletblUTAImport.KFZ_Kennzeichen_komprimiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartenkategorieNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.KartenkategorieColumn) End Function _ Public Sub SetKartenkategorieNull() Me(Me.tabletblUTAImport.KartenkategorieColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsnummer_pro_LieferlandNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Rechnungsnummer_pro_LieferlandColumn) End Function _ Public Sub SetRechnungsnummer_pro_LieferlandNull() Me(Me.tabletblUTAImport.Rechnungsnummer_pro_LieferlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAutobahnauffahrtNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.AutobahnauffahrtColumn) End Function _ Public Sub SetAutobahnauffahrtNull() Me(Me.tabletblUTAImport.AutobahnauffahrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAutobahnausfahrtNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.AutobahnausfahrtColumn) End Function _ Public Sub SetAutobahnausfahrtNull() Me(Me.tabletblUTAImport.AutobahnausfahrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRabattschlüssel_der_französischen_AutobahngesellschaftenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn) End Function _ Public Sub SetRabattschlüssel_der_französischen_AutobahngesellschaftenNull() Me(Me.tabletblUTAImport.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNummer_BelastungsanzeigeNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Nummer_BelastungsanzeigeColumn) End Function _ Public Sub SetNummer_BelastungsanzeigeNull() Me(Me.tabletblUTAImport.Nummer_BelastungsanzeigeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetreuungsstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.BetreuungsstelleColumn) End Function _ Public Sub SetBetreuungsstelleNull() Me(Me.tabletblUTAImport.BetreuungsstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_72Null() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Filler_Feld_72Column) End Function _ Public Sub SetFiller_Feld_72Null() Me(Me.tabletblUTAImport.Filler_Feld_72Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAkzeptanz_MediumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Akzeptanz_MediumColumn) End Function _ Public Sub SetAkzeptanz_MediumNull() Me(Me.tabletblUTAImport.Akzeptanz_MediumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerkategorieNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.SteuerkategorieColumn) End Function _ Public Sub SetSteuerkategorieNull() Me(Me.tabletblUTAImport.SteuerkategorieColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUTA_Beleg_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.UTA_Beleg_IDColumn) End Function _ Public Sub SetUTA_Beleg_IDNull() Me(Me.tabletblUTAImport.UTA_Beleg_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUTA_Normalbeleg_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.UTA_Normalbeleg_IDColumn) End Function _ Public Sub SetUTA_Normalbeleg_IDNull() Me(Me.tabletblUTAImport.UTA_Normalbeleg_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGebühren_Bescheinigung_vonNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Gebühren_Bescheinigung_vonColumn) End Function _ Public Sub SetGebühren_Bescheinigung_vonNull() Me(Me.tabletblUTAImport.Gebühren_Bescheinigung_vonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGebühren_Bescheinigung_bisNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Gebühren_Bescheinigung_bisColumn) End Function _ Public Sub SetGebühren_Bescheinigung_bisNull() Me(Me.tabletblUTAImport.Gebühren_Bescheinigung_bisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHerausgeber_Nutzer_NummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Herausgeber_Nutzer_NummerColumn) End Function _ Public Sub SetHerausgeber_Nutzer_NummerNull() Me(Me.tabletblUTAImport.Herausgeber_Nutzer_NummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMaßeinheitNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.MaßeinheitColumn) End Function _ Public Sub SetMaßeinheitNull() Me(Me.tabletblUTAImport.MaßeinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLand_der_AkzeptanzstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Land_der_AkzeptanzstelleColumn) End Function _ Public Sub SetLand_der_AkzeptanzstelleNull() Me(Me.tabletblUTAImport.Land_der_AkzeptanzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPostleitzahl_der_AkzeptanzstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Postleitzahl_der_AkzeptanzstelleColumn) End Function _ Public Sub SetPostleitzahl_der_AkzeptanzstelleNull() Me(Me.tabletblUTAImport.Postleitzahl_der_AkzeptanzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerliches_LieferlandNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Steuerliches_LieferlandColumn) End Function _ Public Sub SetSteuerliches_LieferlandNull() Me(Me.tabletblUTAImport.Steuerliches_LieferlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerliche_ProduktgruppeNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Steuerliche_ProduktgruppeColumn) End Function _ Public Sub SetSteuerliche_ProduktgruppeNull() Me(Me.tabletblUTAImport.Steuerliche_ProduktgruppeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLeistungsort_verlagerbarNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.Leistungsort_verlagerbarColumn) End Function _ Public Sub SetLeistungsort_verlagerbarNull() Me(Me.tabletblUTAImport.Leistungsort_verlagerbarColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsarchiviertDatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.archiviertDatumColumn) End Function _ Public Sub SetarchiviertDatumNull() Me(Me.tabletblUTAImport.archiviertDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdaIdNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.daIdColumn) End Function _ Public Sub SetdaIdNull() Me(Me.tabletblUTAImport.daIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUTAImport.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUTAImport.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUTAImportNewRow Inherits Global.System.Data.DataRow Private tabletblUTAImportNew As tblUTAImportNewDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUTAImportNew = CType(Me.Table,tblUTAImportNewDataTable) End Sub _ Public Property ErstellDatumUhrzeit() As Date Get Return CType(Me(Me.tabletblUTAImportNew.ErstellDatumUhrzeitColumn),Date) End Get Set Me(Me.tabletblUTAImportNew.ErstellDatumUhrzeitColumn) = value End Set End Property _ Public Property Übertragungsnummer() As Integer Get Return CType(Me(Me.tabletblUTAImportNew.ÜbertragungsnummerColumn),Integer) End Get Set Me(Me.tabletblUTAImportNew.ÜbertragungsnummerColumn) = value End Set End Property _ Public Property Übertragungsposition() As Integer Get Return CType(Me(Me.tabletblUTAImportNew.ÜbertragungspositionColumn),Integer) End Get Set Me(Me.tabletblUTAImportNew.ÜbertragungspositionColumn) = value End Set End Property _ Public Property Abrechnungsnummer() As Double Get Try Return CType(Me(Me.tabletblUTAImportNew.AbrechnungsnummerColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abrechnungsnummer in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.AbrechnungsnummerColumn) = value End Set End Property _ Public Property Datum_für_Lieferungen_und_Leistungen_bis() As Date Get Try Return CType(Me(Me.tabletblUTAImportNew.Datum_für_Lieferungen_und_Leistungen_bisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datum_für_Lieferungen_und_Leistungen_bis in Tabelle tblUTAImp"& _ "ortNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Datum_für_Lieferungen_und_Leistungen_bisColumn) = value End Set End Property _ Public Property Rechnungsempfänger_Kundennummer() As Integer Get Try Return CType(Me(Me.tabletblUTAImportNew.Rechnungsempfänger_KundennummerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsempfänger_Kundennummer in Tabelle tblUTAImportNew is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Rechnungsempfänger_KundennummerColumn) = value End Set End Property _ Public Property Abrechnungsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAImportNew.AbrechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abrechnungsdatum in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.AbrechnungsdatumColumn) = value End Set End Property _ Public Property Kundennummer() As Integer Get Return CType(Me(Me.tabletblUTAImportNew.KundennummerColumn),Integer) End Get Set Me(Me.tabletblUTAImportNew.KundennummerColumn) = value End Set End Property _ Public Property Kartennummer() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.KartennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartennummer in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.KartennummerColumn) = value End Set End Property _ Public Property Belegdatum() As Date Get Try Return CType(Me(Me.tabletblUTAImportNew.BelegdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdatum in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.BelegdatumColumn) = value End Set End Property _ Public Property Akzeptanzstellennummer() As Double Get Try Return CType(Me(Me.tabletblUTAImportNew.AkzeptanzstellennummerColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Akzeptanzstellennummer in Tabelle tblUTAImportNew ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblUTAImportNew.AkzeptanzstellennummerColumn) = value End Set End Property _ Public Property Standort_der_Akzeptanzstelle() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Standort_der_AkzeptanzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Standort_der_Akzeptanzstelle in Tabelle tblUTAImportNew ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Standort_der_AkzeptanzstelleColumn) = value End Set End Property _ Public Property Lieferland() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.LieferlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferland in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.LieferlandColumn) = value End Set End Property _ Public Property Belegnummer_des_Lieferanten() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Belegnummer_des_LieferantenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegnummer_des_Lieferanten in Tabelle tblUTAImportNew ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Belegnummer_des_LieferantenColumn) = value End Set End Property _ Public Property Kilometerstand() As Double Get Try Return CType(Me(Me.tabletblUTAImportNew.KilometerstandColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kilometerstand in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.KilometerstandColumn) = value End Set End Property _ Public Property Fakturierwarenart() As String Get Return CType(Me(Me.tabletblUTAImportNew.FakturierwarenartColumn),String) End Get Set Me(Me.tabletblUTAImportNew.FakturierwarenartColumn) = value End Set End Property _ Public Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen in Tabelle "& _ "tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn) = value End Set End Property _ Public Property Menge() As Double Get Try Return CType(Me(Me.tabletblUTAImportNew.MengeColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Menge in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.MengeColumn) = value End Set End Property _ Public Property SB_BT() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.SB_BTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SB_BT in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.SB_BTColumn) = value End Set End Property _ Public Property Umsatzsteuerprozentsatz() As Double Get Try Return CType(Me(Me.tabletblUTAImportNew.UmsatzsteuerprozentsatzColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umsatzsteuerprozentsatz in Tabelle tblUTAImportNew ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblUTAImportNew.UmsatzsteuerprozentsatzColumn) = value End Set End Property _ Public Property Lieferlandwährung_ISO() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Lieferlandwährung_ISOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferlandwährung_ISO in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Lieferlandwährung_ISOColumn) = value End Set End Property _ Public Property Einzelpreis_Brutto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Einzelpreis_Brutto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Brutto_in_Lieferlandwährung in Tabelle tblUTAImpo"& _ "rtNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Einzelpreis_Brutto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Einzelpreis_Netto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Einzelpreis_Netto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Netto_in_Lieferlandwährung in Tabelle tblUTAImpor"& _ "tNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Einzelpreis_Netto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Betrag_Service_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Betrag_Service_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Service_in_Lieferlandwährung in Tabelle tblUTAImportNe"& _ "w ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Betrag_Service_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Betrag_Nachlass_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Betrag_Nachlass_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Nachlass_in_Lieferlandwährung in Tabelle tblUTAImportN"& _ "ew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Betrag_Nachlass_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Netto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Gesamtbetrag_Netto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Netto_in_Lieferlandwährung in Tabelle tblUTAImpo"& _ "rtNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Gesamtbetrag_Netto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Brutto_in_Lieferlandwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Gesamtbetrag_Brutto_in_LieferlandwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Brutto_in_Lieferlandwährung in Tabelle tblUTAImp"& _ "ortNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Gesamtbetrag_Brutto_in_LieferlandwährungColumn) = value End Set End Property _ Public Property Darstellwährung_ISO() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Darstellwährung_ISOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Darstellwährung_ISO in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Darstellwährung_ISOColumn) = value End Set End Property _ Public Property Betrag_Service_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Betrag_Service_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Service_in_Darstellwährung in Tabelle tblUTAImportNew "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Betrag_Service_in_DarstellwährungColumn) = value End Set End Property _ Public Property Betrag_Nachlass_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Betrag_Nachlass_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Nachlass_in_Darstellwährung in Tabelle tblUTAImportNew"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Betrag_Nachlass_in_DarstellwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Netto_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Gesamtbetrag_Netto_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Netto_in_Darstellwährung in Tabelle tblUTAImport"& _ "New ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Gesamtbetrag_Netto_in_DarstellwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Umsatzsteuer_in_Darstellwährung in Tabelle tblUT"& _ "AImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn) = value End Set End Property _ Public Property Gesamtbetrag_Brutto_in_Darstellwährung() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Gesamtbetrag_Brutto_in_DarstellwährungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_Brutto_in_Darstellwährung in Tabelle tblUTAImpor"& _ "tNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Gesamtbetrag_Brutto_in_DarstellwährungColumn) = value End Set End Property _ Public Property Prägetext_i_d_R_KFZ_Kennzeichen() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Prägetext_i_d_R_KFZ_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prägetext_i_d_R_KFZ_Kennzeichen in Tabelle tblUTAImportNew is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Prägetext_i_d_R_KFZ_KennzeichenColumn) = value End Set End Property _ Public Property Kunden_Kostenstelle_1() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Kunden_Kostenstelle_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kunden_Kostenstelle_1 in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Kunden_Kostenstelle_1Column) = value End Set End Property _ Public Property Kartentyp() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.KartentypColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartentyp in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.KartentypColumn) = value End Set End Property _ Public Property Filler_Feld_35() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Filler_Feld_35Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_35 in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Filler_Feld_35Column) = value End Set End Property _ Public Property Filler_Feld_36() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Filler_Feld_36Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_36 in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Filler_Feld_36Column) = value End Set End Property _ Public Property KZ_Autobahn() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.KZ_AutobahnColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KZ_Autobahn in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.KZ_AutobahnColumn) = value End Set End Property _ Public Property INFO_Feld() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.INFO_FeldColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INFO_Feld in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.INFO_FeldColumn) = value End Set End Property _ Public Property KFZ_Kennzeichen() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.KFZ_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KFZ_Kennzeichen in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.KFZ_KennzeichenColumn) = value End Set End Property _ Public Property Filler_Feld_40() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Filler_Feld_40Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_40 in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Filler_Feld_40Column) = value End Set End Property _ Public Property Buchungsart() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.BuchungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsart in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.BuchungsartColumn) = value End Set End Property _ Public Property Buchungsgrund() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.BuchungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsgrund in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.BuchungsgrundColumn) = value End Set End Property _ Public Property Filler_Feld_43() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Filler_Feld_43Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_43 in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Filler_Feld_43Column) = value End Set End Property _ Public Property Informationsbeleg() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.InformationsbelegColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Informationsbeleg in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.InformationsbelegColumn) = value End Set End Property _ Public Property Belegherkunft() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.BelegherkunftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegherkunft in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.BelegherkunftColumn) = value End Set End Property _ Public Property Filler_Feld_46() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Filler_Feld_46Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_46 in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Filler_Feld_46Column) = value End Set End Property _ Public Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastelle"& _ "n in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = value End Set End Property _ Public Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen"& _ " in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = value End Set End Property _ Public Property Rechnungsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAImportNew.RechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsdatum in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.RechnungsdatumColumn) = value End Set End Property _ Public Property Umsatzsteuerprozentsatz_informativ() As Double Get Try Return CType(Me(Me.tabletblUTAImportNew.Umsatzsteuerprozentsatz_informativColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umsatzsteuerprozentsatz_informativ in Tabelle tblUTAImportNew"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Umsatzsteuerprozentsatz_informativColumn) = value End Set End Property _ Public Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ "& _ "in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = value End Set End Property _ Public Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ i"& _ "n Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = value End Set End Property _ Public Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ() As Decimal Get Try Return CType(Me(Me.tabletblUTAImportNew.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ in "& _ "Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = value End Set End Property _ Public Property Fälligkeitsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAImportNew.FälligkeitsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fälligkeitsdatum in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.FälligkeitsdatumColumn) = value End Set End Property _ Public Property Zahlungsziel_in_Tagen() As Short Get Try Return CType(Me(Me.tabletblUTAImportNew.Zahlungsziel_in_TagenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsziel_in_Tagen in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Zahlungsziel_in_TagenColumn) = value End Set End Property _ Public Property Zahlungsart() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.ZahlungsartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsart in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.ZahlungsartColumn) = value End Set End Property _ Public Property TC_Rechnungsnummer_gegenüber_dem_Nutzer() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TC_Rechnungsnummer_gegenüber_dem_Nutzer in Tabelle tblUTAImpo"& _ "rtNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn) = value End Set End Property _ Public Property TC_Rechnungsdatum() As Date Get Try Return CType(Me(Me.tabletblUTAImportNew.TC_RechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TC_Rechnungsdatum in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.TC_RechnungsdatumColumn) = value End Set End Property _ Public Property Zahlungszielgruppe() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.ZahlungszielgruppeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungszielgruppe in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.ZahlungszielgruppeColumn) = value End Set End Property _ Public Property Kunden_Kostenstelle_2() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Kunden_Kostenstelle_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kunden_Kostenstelle_2 in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Kunden_Kostenstelle_2Column) = value End Set End Property _ Public Property Lieferzeit() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.LieferzeitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lieferzeit in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.LieferzeitColumn) = value End Set End Property _ Public Property Fremdkartennummer() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.FremdkartennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fremdkartennummer in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.FremdkartennummerColumn) = value End Set End Property _ Public Property OnBoardUnitID() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.OnBoardUnitIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OnBoardUnitID in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.OnBoardUnitIDColumn) = value End Set End Property _ Public Property KFZ_Kennzeichen_komprimiert() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.KFZ_Kennzeichen_komprimiertColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KFZ_Kennzeichen_komprimiert in Tabelle tblUTAImportNew ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.KFZ_Kennzeichen_komprimiertColumn) = value End Set End Property _ Public Property Kartenkategorie() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.KartenkategorieColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kartenkategorie in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.KartenkategorieColumn) = value End Set End Property _ Public Property Rechnungsnummer_pro_Lieferland() As Double Get Try Return CType(Me(Me.tabletblUTAImportNew.Rechnungsnummer_pro_LieferlandColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsnummer_pro_Lieferland in Tabelle tblUTAImportNew ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Rechnungsnummer_pro_LieferlandColumn) = value End Set End Property _ Public Property Autobahnauffahrt() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.AutobahnauffahrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Autobahnauffahrt in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.AutobahnauffahrtColumn) = value End Set End Property _ Public Property Autobahnausfahrt() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.AutobahnausfahrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Autobahnausfahrt in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.AutobahnausfahrtColumn) = value End Set End Property _ Public Property Rabattschlüssel_der_französischen_Autobahngesellschaften() As Short Get Try Return CType(Me(Me.tabletblUTAImportNew.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rabattschlüssel_der_französischen_Autobahngesellschaften in T"& _ "abelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn) = value End Set End Property _ Public Property Nummer_Belastungsanzeige() As Double Get Try Return CType(Me(Me.tabletblUTAImportNew.Nummer_BelastungsanzeigeColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nummer_Belastungsanzeige in Tabelle tblUTAImportNew ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Nummer_BelastungsanzeigeColumn) = value End Set End Property _ Public Property Betreuungsstelle() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.BetreuungsstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betreuungsstelle in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.BetreuungsstelleColumn) = value End Set End Property _ Public Property Filler_Feld_72() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Filler_Feld_72Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filler_Feld_72 in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Filler_Feld_72Column) = value End Set End Property _ Public Property Akzeptanz_Medium() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Akzeptanz_MediumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Akzeptanz_Medium in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Akzeptanz_MediumColumn) = value End Set End Property _ Public Property Steuerkategorie() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.SteuerkategorieColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerkategorie in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.SteuerkategorieColumn) = value End Set End Property _ Public Property UTA_Beleg_ID() As Double Get Try Return CType(Me(Me.tabletblUTAImportNew.UTA_Beleg_IDColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UTA_Beleg_ID in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.UTA_Beleg_IDColumn) = value End Set End Property _ Public Property UTA_Normalbeleg_ID() As Double Get Try Return CType(Me(Me.tabletblUTAImportNew.UTA_Normalbeleg_IDColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UTA_Normalbeleg_ID in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.UTA_Normalbeleg_IDColumn) = value End Set End Property _ Public Property Gebühren_Bescheinigung_von() As Date Get Try Return CType(Me(Me.tabletblUTAImportNew.Gebühren_Bescheinigung_vonColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gebühren_Bescheinigung_von in Tabelle tblUTAImportNew ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Gebühren_Bescheinigung_vonColumn) = value End Set End Property _ Public Property Gebühren_Bescheinigung_bis() As Date Get Try Return CType(Me(Me.tabletblUTAImportNew.Gebühren_Bescheinigung_bisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gebühren_Bescheinigung_bis in Tabelle tblUTAImportNew ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Gebühren_Bescheinigung_bisColumn) = value End Set End Property _ Public Property Herausgeber_Nutzer_Nummer() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Herausgeber_Nutzer_NummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Herausgeber_Nutzer_Nummer in Tabelle tblUTAImportNew ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Herausgeber_Nutzer_NummerColumn) = value End Set End Property _ Public Property Maßeinheit() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.MaßeinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Maßeinheit in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.MaßeinheitColumn) = value End Set End Property _ Public Property Land_der_Akzeptanzstelle() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Land_der_AkzeptanzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Land_der_Akzeptanzstelle in Tabelle tblUTAImportNew ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Land_der_AkzeptanzstelleColumn) = value End Set End Property _ Public Property Postleitzahl_der_Akzeptanzstelle() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Postleitzahl_der_AkzeptanzstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Postleitzahl_der_Akzeptanzstelle in Tabelle tblUTAImportNew i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Postleitzahl_der_AkzeptanzstelleColumn) = value End Set End Property _ Public Property Steuerliches_Lieferland() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Steuerliches_LieferlandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerliches_Lieferland in Tabelle tblUTAImportNew ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Steuerliches_LieferlandColumn) = value End Set End Property _ Public Property Steuerliche_Produktgruppe() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Steuerliche_ProduktgruppeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerliche_Produktgruppe in Tabelle tblUTAImportNew ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Steuerliche_ProduktgruppeColumn) = value End Set End Property _ Public Property Leistungsort_verlagerbar() As String Get Try Return CType(Me(Me.tabletblUTAImportNew.Leistungsort_verlagerbarColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Leistungsort_verlagerbar in Tabelle tblUTAImportNew ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.Leistungsort_verlagerbarColumn) = value End Set End Property _ Public Property abgerechnet() As Boolean Get Return CType(Me(Me.tabletblUTAImportNew.abgerechnetColumn),Boolean) End Get Set Me(Me.tabletblUTAImportNew.abgerechnetColumn) = value End Set End Property _ Public Property abgerechnetDatum() As Date Get Try Return CType(Me(Me.tabletblUTAImportNew.abgerechnetDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte abgerechnetDatum in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.abgerechnetDatumColumn) = value End Set End Property _ Public Property daId() As Integer Get Try Return CType(Me(Me.tabletblUTAImportNew.daIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte daId in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.daIdColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUTAImportNew.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUTAImportNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTAImportNew.upsize_tsColumn) = value End Set End Property _ Public Property tblUTAHeaderNewRowParent() As tblUTAHeaderNewRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUTAImportNew_FK00")),tblUTAHeaderNewRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUTAImportNew_FK00")) End Set End Property _ Public Function IsAbrechnungsnummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.AbrechnungsnummerColumn) End Function _ Public Sub SetAbrechnungsnummerNull() Me(Me.tabletblUTAImportNew.AbrechnungsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatum_für_Lieferungen_und_Leistungen_bisNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Datum_für_Lieferungen_und_Leistungen_bisColumn) End Function _ Public Sub SetDatum_für_Lieferungen_und_Leistungen_bisNull() Me(Me.tabletblUTAImportNew.Datum_für_Lieferungen_und_Leistungen_bisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsempfänger_KundennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Rechnungsempfänger_KundennummerColumn) End Function _ Public Sub SetRechnungsempfänger_KundennummerNull() Me(Me.tabletblUTAImportNew.Rechnungsempfänger_KundennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbrechnungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.AbrechnungsdatumColumn) End Function _ Public Sub SetAbrechnungsdatumNull() Me(Me.tabletblUTAImportNew.AbrechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.KartennummerColumn) End Function _ Public Sub SetKartennummerNull() Me(Me.tabletblUTAImportNew.KartennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.BelegdatumColumn) End Function _ Public Sub SetBelegdatumNull() Me(Me.tabletblUTAImportNew.BelegdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAkzeptanzstellennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.AkzeptanzstellennummerColumn) End Function _ Public Sub SetAkzeptanzstellennummerNull() Me(Me.tabletblUTAImportNew.AkzeptanzstellennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStandort_der_AkzeptanzstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Standort_der_AkzeptanzstelleColumn) End Function _ Public Sub SetStandort_der_AkzeptanzstelleNull() Me(Me.tabletblUTAImportNew.Standort_der_AkzeptanzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferlandNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.LieferlandColumn) End Function _ Public Sub SetLieferlandNull() Me(Me.tabletblUTAImportNew.LieferlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegnummer_des_LieferantenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Belegnummer_des_LieferantenColumn) End Function _ Public Sub SetBelegnummer_des_LieferantenNull() Me(Me.tabletblUTAImportNew.Belegnummer_des_LieferantenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKilometerstandNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.KilometerstandColumn) End Function _ Public Sub SetKilometerstandNull() Me(Me.tabletblUTAImportNew.KilometerstandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorzeichen_Statusfeld_für_alle_Beträge_und_MengenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn) End Function _ Public Sub SetVorzeichen_Statusfeld_für_alle_Beträge_und_MengenNull() Me(Me.tabletblUTAImportNew.Vorzeichen_Statusfeld_für_alle_Beträge_und_MengenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMengeNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.MengeColumn) End Function _ Public Sub SetMengeNull() Me(Me.tabletblUTAImportNew.MengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSB_BTNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.SB_BTColumn) End Function _ Public Sub SetSB_BTNull() Me(Me.tabletblUTAImportNew.SB_BTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmsatzsteuerprozentsatzNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.UmsatzsteuerprozentsatzColumn) End Function _ Public Sub SetUmsatzsteuerprozentsatzNull() Me(Me.tabletblUTAImportNew.UmsatzsteuerprozentsatzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferlandwährung_ISONull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Lieferlandwährung_ISOColumn) End Function _ Public Sub SetLieferlandwährung_ISONull() Me(Me.tabletblUTAImportNew.Lieferlandwährung_ISOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Brutto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Einzelpreis_Brutto_in_LieferlandwährungColumn) End Function _ Public Sub SetEinzelpreis_Brutto_in_LieferlandwährungNull() Me(Me.tabletblUTAImportNew.Einzelpreis_Brutto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Netto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Einzelpreis_Netto_in_LieferlandwährungColumn) End Function _ Public Sub SetEinzelpreis_Netto_in_LieferlandwährungNull() Me(Me.tabletblUTAImportNew.Einzelpreis_Netto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Service_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Betrag_Service_in_LieferlandwährungColumn) End Function _ Public Sub SetBetrag_Service_in_LieferlandwährungNull() Me(Me.tabletblUTAImportNew.Betrag_Service_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Nachlass_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Betrag_Nachlass_in_LieferlandwährungColumn) End Function _ Public Sub SetBetrag_Nachlass_in_LieferlandwährungNull() Me(Me.tabletblUTAImportNew.Betrag_Nachlass_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Netto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Gesamtbetrag_Netto_in_LieferlandwährungColumn) End Function _ Public Sub SetGesamtbetrag_Netto_in_LieferlandwährungNull() Me(Me.tabletblUTAImportNew.Gesamtbetrag_Netto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Brutto_in_LieferlandwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Gesamtbetrag_Brutto_in_LieferlandwährungColumn) End Function _ Public Sub SetGesamtbetrag_Brutto_in_LieferlandwährungNull() Me(Me.tabletblUTAImportNew.Gesamtbetrag_Brutto_in_LieferlandwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDarstellwährung_ISONull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Darstellwährung_ISOColumn) End Function _ Public Sub SetDarstellwährung_ISONull() Me(Me.tabletblUTAImportNew.Darstellwährung_ISOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Service_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Betrag_Service_in_DarstellwährungColumn) End Function _ Public Sub SetBetrag_Service_in_DarstellwährungNull() Me(Me.tabletblUTAImportNew.Betrag_Service_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Nachlass_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Betrag_Nachlass_in_DarstellwährungColumn) End Function _ Public Sub SetBetrag_Nachlass_in_DarstellwährungNull() Me(Me.tabletblUTAImportNew.Betrag_Nachlass_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Netto_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Gesamtbetrag_Netto_in_DarstellwährungColumn) End Function _ Public Sub SetGesamtbetrag_Netto_in_DarstellwährungNull() Me(Me.tabletblUTAImportNew.Gesamtbetrag_Netto_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Umsatzsteuer_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn) End Function _ Public Sub SetGesamtbetrag_Umsatzsteuer_in_DarstellwährungNull() Me(Me.tabletblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_Brutto_in_DarstellwährungNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Gesamtbetrag_Brutto_in_DarstellwährungColumn) End Function _ Public Sub SetGesamtbetrag_Brutto_in_DarstellwährungNull() Me(Me.tabletblUTAImportNew.Gesamtbetrag_Brutto_in_DarstellwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrägetext_i_d_R_KFZ_KennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Prägetext_i_d_R_KFZ_KennzeichenColumn) End Function _ Public Sub SetPrägetext_i_d_R_KFZ_KennzeichenNull() Me(Me.tabletblUTAImportNew.Prägetext_i_d_R_KFZ_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKunden_Kostenstelle_1Null() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Kunden_Kostenstelle_1Column) End Function _ Public Sub SetKunden_Kostenstelle_1Null() Me(Me.tabletblUTAImportNew.Kunden_Kostenstelle_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsKartentypNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.KartentypColumn) End Function _ Public Sub SetKartentypNull() Me(Me.tabletblUTAImportNew.KartentypColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_35Null() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Filler_Feld_35Column) End Function _ Public Sub SetFiller_Feld_35Null() Me(Me.tabletblUTAImportNew.Filler_Feld_35Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_36Null() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Filler_Feld_36Column) End Function _ Public Sub SetFiller_Feld_36Null() Me(Me.tabletblUTAImportNew.Filler_Feld_36Column) = Global.System.Convert.DBNull End Sub _ Public Function IsKZ_AutobahnNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.KZ_AutobahnColumn) End Function _ Public Sub SetKZ_AutobahnNull() Me(Me.tabletblUTAImportNew.KZ_AutobahnColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsINFO_FeldNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.INFO_FeldColumn) End Function _ Public Sub SetINFO_FeldNull() Me(Me.tabletblUTAImportNew.INFO_FeldColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKFZ_KennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.KFZ_KennzeichenColumn) End Function _ Public Sub SetKFZ_KennzeichenNull() Me(Me.tabletblUTAImportNew.KFZ_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_40Null() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Filler_Feld_40Column) End Function _ Public Sub SetFiller_Feld_40Null() Me(Me.tabletblUTAImportNew.Filler_Feld_40Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungsartNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.BuchungsartColumn) End Function _ Public Sub SetBuchungsartNull() Me(Me.tabletblUTAImportNew.BuchungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungsgrundNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.BuchungsgrundColumn) End Function _ Public Sub SetBuchungsgrundNull() Me(Me.tabletblUTAImportNew.BuchungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_43Null() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Filler_Feld_43Column) End Function _ Public Sub SetFiller_Feld_43Null() Me(Me.tabletblUTAImportNew.Filler_Feld_43Column) = Global.System.Convert.DBNull End Sub _ Public Function IsInformationsbelegNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.InformationsbelegColumn) End Function _ Public Sub SetInformationsbelegNull() Me(Me.tabletblUTAImportNew.InformationsbelegColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegherkunftNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.BelegherkunftColumn) End Function _ Public Sub SetBelegherkunftNull() Me(Me.tabletblUTAImportNew.BelegherkunftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_46Null() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Filler_Feld_46Column) End Function _ Public Sub SetFiller_Feld_46Null() Me(Me.tabletblUTAImportNew.Filler_Feld_46Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) End Function _ Public Sub SetEinzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenNull() Me(Me.tabletblUTAImportNew.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) End Function _ Public Sub SetEinzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenNull() Me(Me.tabletblUTAImportNew.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_NachkommastellenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.RechnungsdatumColumn) End Function _ Public Sub SetRechnungsdatumNull() Me(Me.tabletblUTAImportNew.RechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmsatzsteuerprozentsatz_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Umsatzsteuerprozentsatz_informativColumn) End Function _ Public Sub SetUmsatzsteuerprozentsatz_informativNull() Me(Me.tabletblUTAImportNew.Umsatzsteuerprozentsatz_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn) End Function _ Public Sub SetBetrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativNull() Me(Me.tabletblUTAImportNew.Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn) End Function _ Public Sub SetBetrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativNull() Me(Me.tabletblUTAImportNew.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn) End Function _ Public Sub SetGesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativNull() Me(Me.tabletblUTAImportNew.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFälligkeitsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.FälligkeitsdatumColumn) End Function _ Public Sub SetFälligkeitsdatumNull() Me(Me.tabletblUTAImportNew.FälligkeitsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsziel_in_TagenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Zahlungsziel_in_TagenColumn) End Function _ Public Sub SetZahlungsziel_in_TagenNull() Me(Me.tabletblUTAImportNew.Zahlungsziel_in_TagenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsartNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.ZahlungsartColumn) End Function _ Public Sub SetZahlungsartNull() Me(Me.tabletblUTAImportNew.ZahlungsartColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTC_Rechnungsnummer_gegenüber_dem_NutzerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn) End Function _ Public Sub SetTC_Rechnungsnummer_gegenüber_dem_NutzerNull() Me(Me.tabletblUTAImportNew.TC_Rechnungsnummer_gegenüber_dem_NutzerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTC_RechnungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.TC_RechnungsdatumColumn) End Function _ Public Sub SetTC_RechnungsdatumNull() Me(Me.tabletblUTAImportNew.TC_RechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungszielgruppeNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.ZahlungszielgruppeColumn) End Function _ Public Sub SetZahlungszielgruppeNull() Me(Me.tabletblUTAImportNew.ZahlungszielgruppeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKunden_Kostenstelle_2Null() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Kunden_Kostenstelle_2Column) End Function _ Public Sub SetKunden_Kostenstelle_2Null() Me(Me.tabletblUTAImportNew.Kunden_Kostenstelle_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsLieferzeitNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.LieferzeitColumn) End Function _ Public Sub SetLieferzeitNull() Me(Me.tabletblUTAImportNew.LieferzeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFremdkartennummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.FremdkartennummerColumn) End Function _ Public Sub SetFremdkartennummerNull() Me(Me.tabletblUTAImportNew.FremdkartennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOnBoardUnitIDNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.OnBoardUnitIDColumn) End Function _ Public Sub SetOnBoardUnitIDNull() Me(Me.tabletblUTAImportNew.OnBoardUnitIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKFZ_Kennzeichen_komprimiertNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.KFZ_Kennzeichen_komprimiertColumn) End Function _ Public Sub SetKFZ_Kennzeichen_komprimiertNull() Me(Me.tabletblUTAImportNew.KFZ_Kennzeichen_komprimiertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartenkategorieNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.KartenkategorieColumn) End Function _ Public Sub SetKartenkategorieNull() Me(Me.tabletblUTAImportNew.KartenkategorieColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsnummer_pro_LieferlandNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Rechnungsnummer_pro_LieferlandColumn) End Function _ Public Sub SetRechnungsnummer_pro_LieferlandNull() Me(Me.tabletblUTAImportNew.Rechnungsnummer_pro_LieferlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAutobahnauffahrtNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.AutobahnauffahrtColumn) End Function _ Public Sub SetAutobahnauffahrtNull() Me(Me.tabletblUTAImportNew.AutobahnauffahrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAutobahnausfahrtNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.AutobahnausfahrtColumn) End Function _ Public Sub SetAutobahnausfahrtNull() Me(Me.tabletblUTAImportNew.AutobahnausfahrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRabattschlüssel_der_französischen_AutobahngesellschaftenNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn) End Function _ Public Sub SetRabattschlüssel_der_französischen_AutobahngesellschaftenNull() Me(Me.tabletblUTAImportNew.Rabattschlüssel_der_französischen_AutobahngesellschaftenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNummer_BelastungsanzeigeNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Nummer_BelastungsanzeigeColumn) End Function _ Public Sub SetNummer_BelastungsanzeigeNull() Me(Me.tabletblUTAImportNew.Nummer_BelastungsanzeigeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetreuungsstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.BetreuungsstelleColumn) End Function _ Public Sub SetBetreuungsstelleNull() Me(Me.tabletblUTAImportNew.BetreuungsstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiller_Feld_72Null() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Filler_Feld_72Column) End Function _ Public Sub SetFiller_Feld_72Null() Me(Me.tabletblUTAImportNew.Filler_Feld_72Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAkzeptanz_MediumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Akzeptanz_MediumColumn) End Function _ Public Sub SetAkzeptanz_MediumNull() Me(Me.tabletblUTAImportNew.Akzeptanz_MediumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerkategorieNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.SteuerkategorieColumn) End Function _ Public Sub SetSteuerkategorieNull() Me(Me.tabletblUTAImportNew.SteuerkategorieColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUTA_Beleg_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.UTA_Beleg_IDColumn) End Function _ Public Sub SetUTA_Beleg_IDNull() Me(Me.tabletblUTAImportNew.UTA_Beleg_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUTA_Normalbeleg_IDNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.UTA_Normalbeleg_IDColumn) End Function _ Public Sub SetUTA_Normalbeleg_IDNull() Me(Me.tabletblUTAImportNew.UTA_Normalbeleg_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGebühren_Bescheinigung_vonNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Gebühren_Bescheinigung_vonColumn) End Function _ Public Sub SetGebühren_Bescheinigung_vonNull() Me(Me.tabletblUTAImportNew.Gebühren_Bescheinigung_vonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGebühren_Bescheinigung_bisNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Gebühren_Bescheinigung_bisColumn) End Function _ Public Sub SetGebühren_Bescheinigung_bisNull() Me(Me.tabletblUTAImportNew.Gebühren_Bescheinigung_bisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHerausgeber_Nutzer_NummerNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Herausgeber_Nutzer_NummerColumn) End Function _ Public Sub SetHerausgeber_Nutzer_NummerNull() Me(Me.tabletblUTAImportNew.Herausgeber_Nutzer_NummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMaßeinheitNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.MaßeinheitColumn) End Function _ Public Sub SetMaßeinheitNull() Me(Me.tabletblUTAImportNew.MaßeinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLand_der_AkzeptanzstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Land_der_AkzeptanzstelleColumn) End Function _ Public Sub SetLand_der_AkzeptanzstelleNull() Me(Me.tabletblUTAImportNew.Land_der_AkzeptanzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPostleitzahl_der_AkzeptanzstelleNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Postleitzahl_der_AkzeptanzstelleColumn) End Function _ Public Sub SetPostleitzahl_der_AkzeptanzstelleNull() Me(Me.tabletblUTAImportNew.Postleitzahl_der_AkzeptanzstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerliches_LieferlandNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Steuerliches_LieferlandColumn) End Function _ Public Sub SetSteuerliches_LieferlandNull() Me(Me.tabletblUTAImportNew.Steuerliches_LieferlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerliche_ProduktgruppeNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Steuerliche_ProduktgruppeColumn) End Function _ Public Sub SetSteuerliche_ProduktgruppeNull() Me(Me.tabletblUTAImportNew.Steuerliche_ProduktgruppeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLeistungsort_verlagerbarNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.Leistungsort_verlagerbarColumn) End Function _ Public Sub SetLeistungsort_verlagerbarNull() Me(Me.tabletblUTAImportNew.Leistungsort_verlagerbarColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsabgerechnetDatumNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.abgerechnetDatumColumn) End Function _ Public Sub SetabgerechnetDatumNull() Me(Me.tabletblUTAImportNew.abgerechnetDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdaIdNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.daIdColumn) End Function _ Public Sub SetdaIdNull() Me(Me.tabletblUTAImportNew.daIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUTAImportNew.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUTAImportNew.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUTALeistungenRow Inherits Global.System.Data.DataRow Private tabletblUTALeistungen As tblUTALeistungenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUTALeistungen = CType(Me.Table,tblUTALeistungenDataTable) End Sub _ Public Property Fakturierwarenart() As String Get Return CType(Me(Me.tabletblUTALeistungen.FakturierwarenartColumn),String) End Get Set Me(Me.tabletblUTALeistungen.FakturierwarenartColumn) = value End Set End Property _ Public Property Lieferland() As String Get Return CType(Me(Me.tabletblUTALeistungen.LieferlandColumn),String) End Get Set Me(Me.tabletblUTALeistungen.LieferlandColumn) = value End Set End Property _ Public Property VERAG_OffertenNr() As Integer Get Return CType(Me(Me.tabletblUTALeistungen.VERAG_OffertenNrColumn),Integer) End Get Set Me(Me.tabletblUTALeistungen.VERAG_OffertenNrColumn) = value End Set End Property _ Public Property VERAG_LeistungsNr() As Short Get Return CType(Me(Me.tabletblUTALeistungen.VERAG_LeistungsNrColumn),Short) End Get Set Me(Me.tabletblUTALeistungen.VERAG_LeistungsNrColumn) = value End Set End Property _ Public Property Zeitstempel() As Date Get Try Return CType(Me(Me.tabletblUTALeistungen.ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitstempel in Tabelle tblUTALeistungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTALeistungen.ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUTALeistungen.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUTALeistungen ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTALeistungen.upsize_tsColumn) = value End Set End Property _ Public Property tblUTAFakturierwarenartenRow() As tblUTAFakturierwarenartenRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUTALeistungen_FK00")),tblUTAFakturierwarenartenRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUTALeistungen_FK00")) End Set End Property _ Public Function IsZeitstempelNull() As Boolean Return Me.IsNull(Me.tabletblUTALeistungen.ZeitstempelColumn) End Function _ Public Sub SetZeitstempelNull() Me(Me.tabletblUTALeistungen.ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUTALeistungen.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUTALeistungen.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUTATrailerRow Inherits Global.System.Data.DataRow Private tabletblUTATrailer As tblUTATrailerDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUTATrailer = CType(Me.Table,tblUTATrailerDataTable) End Sub _ Public Property ErstellDatumUhrzeit() As Date Get Return CType(Me(Me.tabletblUTATrailer.ErstellDatumUhrzeitColumn),Date) End Get Set Me(Me.tabletblUTATrailer.ErstellDatumUhrzeitColumn) = value End Set End Property _ Public Property Übertragungsnummer() As Integer Get Return CType(Me(Me.tabletblUTATrailer.ÜbertragungsnummerColumn),Integer) End Get Set Me(Me.tabletblUTATrailer.ÜbertragungsnummerColumn) = value End Set End Property _ Public Property Anzahl_Sätze() As Integer Get Try Return CType(Me(Me.tabletblUTATrailer.Anzahl_SätzeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl_Sätze in Tabelle tblUTATrailer ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTATrailer.Anzahl_SätzeColumn) = value End Set End Property _ Public Property Checksumme() As Decimal Get Try Return CType(Me(Me.tabletblUTATrailer.ChecksummeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Checksumme in Tabelle tblUTATrailer ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTATrailer.ChecksummeColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUTATrailer.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUTATrailer ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTATrailer.upsize_tsColumn) = value End Set End Property _ Public Property tblUTAHeaderRowParent() As tblUTAHeaderRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUTATrailer_FK00")),tblUTAHeaderRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUTATrailer_FK00")) End Set End Property _ Public Function IsAnzahl_SätzeNull() As Boolean Return Me.IsNull(Me.tabletblUTATrailer.Anzahl_SätzeColumn) End Function _ Public Sub SetAnzahl_SätzeNull() Me(Me.tabletblUTATrailer.Anzahl_SätzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsChecksummeNull() As Boolean Return Me.IsNull(Me.tabletblUTATrailer.ChecksummeColumn) End Function _ Public Sub SetChecksummeNull() Me(Me.tabletblUTATrailer.ChecksummeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUTATrailer.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUTATrailer.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblUTATrailerNewRow Inherits Global.System.Data.DataRow Private tabletblUTATrailerNew As tblUTATrailerNewDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblUTATrailerNew = CType(Me.Table,tblUTATrailerNewDataTable) End Sub _ Public Property ErstellDatumUhrzeit() As Date Get Return CType(Me(Me.tabletblUTATrailerNew.ErstellDatumUhrzeitColumn),Date) End Get Set Me(Me.tabletblUTATrailerNew.ErstellDatumUhrzeitColumn) = value End Set End Property _ Public Property Übertragungsnummer() As Integer Get Return CType(Me(Me.tabletblUTATrailerNew.ÜbertragungsnummerColumn),Integer) End Get Set Me(Me.tabletblUTATrailerNew.ÜbertragungsnummerColumn) = value End Set End Property _ Public Property Anzahl_Sätze() As Integer Get Try Return CType(Me(Me.tabletblUTATrailerNew.Anzahl_SätzeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl_Sätze in Tabelle tblUTATrailerNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTATrailerNew.Anzahl_SätzeColumn) = value End Set End Property _ Public Property Checksumme() As Decimal Get Try Return CType(Me(Me.tabletblUTATrailerNew.ChecksummeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Checksumme in Tabelle tblUTATrailerNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTATrailerNew.ChecksummeColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblUTATrailerNew.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblUTATrailerNew ist DBNull.", e) End Try End Get Set Me(Me.tabletblUTATrailerNew.upsize_tsColumn) = value End Set End Property _ Public Property tblUTAHeaderNewRowParent() As tblUTAHeaderNewRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("tblUTATrailerNew_FK00")),tblUTAHeaderNewRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("tblUTATrailerNew_FK00")) End Set End Property _ Public Function IsAnzahl_SätzeNull() As Boolean Return Me.IsNull(Me.tabletblUTATrailerNew.Anzahl_SätzeColumn) End Function _ Public Sub SetAnzahl_SätzeNull() Me(Me.tabletblUTATrailerNew.Anzahl_SätzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsChecksummeNull() As Boolean Return Me.IsNull(Me.tabletblUTATrailerNew.ChecksummeColumn) End Function _ Public Sub SetChecksummeNull() Me(Me.tabletblUTATrailerNew.ChecksummeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblUTATrailerNew.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblUTATrailerNew.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblVermarktungsnormenRow Inherits Global.System.Data.DataRow Private tabletblVermarktungsnormen As tblVermarktungsnormenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblVermarktungsnormen = CType(Me.Table,tblVermarktungsnormenDataTable) End Sub _ Public Property kncode() As String Get Return CType(Me(Me.tabletblVermarktungsnormen.kncodeColumn),String) End Get Set Me(Me.tabletblVermarktungsnormen.kncodeColumn) = value End Set End Property _ Public Property speziell() As Boolean Get Return CType(Me(Me.tabletblVermarktungsnormen.speziellColumn),Boolean) End Get Set Me(Me.tabletblVermarktungsnormen.speziellColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblVermarktungsnormenGebuehrenRow Inherits Global.System.Data.DataRow Private tabletblVermarktungsnormenGebuehren As tblVermarktungsnormenGebuehrenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblVermarktungsnormenGebuehren = CType(Me.Table,tblVermarktungsnormenGebuehrenDataTable) End Sub _ Public Property gueltigAb() As Date Get Return CType(Me(Me.tabletblVermarktungsnormenGebuehren.gueltigAbColumn),Date) End Get Set Me(Me.tabletblVermarktungsnormenGebuehren.gueltigAbColumn) = value End Set End Property _ Public Property betrag() As Decimal Get Return CType(Me(Me.tabletblVermarktungsnormenGebuehren.betragColumn),Decimal) End Get Set Me(Me.tabletblVermarktungsnormenGebuehren.betragColumn) = value End Set End Property _ Public Property speziell() As Boolean Get Return CType(Me(Me.tabletblVermarktungsnormenGebuehren.speziellColumn),Boolean) End Get Set Me(Me.tabletblVermarktungsnormenGebuehren.speziellColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblVorauskassenRow Inherits Global.System.Data.DataRow Private tabletblVorauskassen As tblVorauskassenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblVorauskassen = CType(Me.Table,tblVorauskassenDataTable) End Sub _ Public Property vk_id() As Integer Get Return CType(Me(Me.tabletblVorauskassen.vk_idColumn),Integer) End Get Set Me(Me.tabletblVorauskassen.vk_idColumn) = value End Set End Property _ Public Property vk_FilialeNr() As Integer Get Try Return CType(Me(Me.tabletblVorauskassen.vk_FilialeNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_FilialeNr in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_FilialeNrColumn) = value End Set End Property _ Public Property vk_AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tabletblVorauskassen.vk_AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_AbfertigungsNr in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_AbfertigungsNrColumn) = value End Set End Property _ Public Property vk_Datum() As Date Get Return CType(Me(Me.tabletblVorauskassen.vk_DatumColumn),Date) End Get Set Me(Me.tabletblVorauskassen.vk_DatumColumn) = value End Set End Property _ Public Property vk_LKW() As String Get Return CType(Me(Me.tabletblVorauskassen.vk_LKWColumn),String) End Get Set Me(Me.tabletblVorauskassen.vk_LKWColumn) = value End Set End Property _ Public Property vk_KdNr() As Integer Get Try Return CType(Me(Me.tabletblVorauskassen.vk_KdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_KdNr in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_KdNrColumn) = value End Set End Property _ Public Property vk_Firma() As String Get Return CType(Me(Me.tabletblVorauskassen.vk_FirmaColumn),String) End Get Set Me(Me.tabletblVorauskassen.vk_FirmaColumn) = value End Set End Property _ Public Property vk_Betrag() As Decimal Get Return CType(Me(Me.tabletblVorauskassen.vk_BetragColumn),Decimal) End Get Set Me(Me.tabletblVorauskassen.vk_BetragColumn) = value End Set End Property _ Public Property vk_QS_SachbearbeiterId() As Integer Get Return CType(Me(Me.tabletblVorauskassen.vk_QS_SachbearbeiterIdColumn),Integer) End Get Set Me(Me.tabletblVorauskassen.vk_QS_SachbearbeiterIdColumn) = value End Set End Property _ Public Property vk_QS_Sachbearbeiter() As String Get Return CType(Me(Me.tabletblVorauskassen.vk_QS_SachbearbeiterColumn),String) End Get Set Me(Me.tabletblVorauskassen.vk_QS_SachbearbeiterColumn) = value End Set End Property _ Public Property vk_QS_Bemerkung() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_QS_BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_QS_Bemerkung in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_QS_BemerkungColumn) = value End Set End Property _ Public Property vk_GeldEingetroffen() As Boolean Get Return CType(Me(Me.tabletblVorauskassen.vk_GeldEingetroffenColumn),Boolean) End Get Set Me(Me.tabletblVorauskassen.vk_GeldEingetroffenColumn) = value End Set End Property _ Public Property vk_BH_SachbearbeiterId() As Integer Get Try Return CType(Me(Me.tabletblVorauskassen.vk_BH_SachbearbeiterIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_BH_SachbearbeiterId in Tabelle tblVorauskassen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_BH_SachbearbeiterIdColumn) = value End Set End Property _ Public Property vk_BH_Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_BH_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_BH_Sachbearbeiter in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_BH_SachbearbeiterColumn) = value End Set End Property _ Public Property vk_BH_Bemerkung() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_BH_BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_BH_Bemerkung in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_BH_BemerkungColumn) = value End Set End Property _ Public Property vk_BH_DatumGeldeingang() As Date Get Try Return CType(Me(Me.tabletblVorauskassen.vk_BH_DatumGeldeingangColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_BH_DatumGeldeingang in Tabelle tblVorauskassen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_BH_DatumGeldeingangColumn) = value End Set End Property _ Public Property vk_storno() As Boolean Get Return CType(Me(Me.tabletblVorauskassen.vk_stornoColumn),Boolean) End Get Set Me(Me.tabletblVorauskassen.vk_stornoColumn) = value End Set End Property _ Public Property vk_stornoDatum() As Date Get Try Return CType(Me(Me.tabletblVorauskassen.vk_stornoDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_stornoDatum in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_stornoDatumColumn) = value End Set End Property _ Public Property vk_Rolle() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_RolleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Rolle in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_RolleColumn) = value End Set End Property _ Public Property vk_Anrede() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_AnredeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Anrede in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_AnredeColumn) = value End Set End Property _ Public Property vk_Firmenwortlauf() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_FirmenwortlaufColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Firmenwortlauf in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_FirmenwortlaufColumn) = value End Set End Property _ Public Property vk_Aresse1() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Aresse1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Aresse1 in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Aresse1Column) = value End Set End Property _ Public Property vk_Adresse2() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Adresse2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Adresse2 in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Adresse2Column) = value End Set End Property _ Public Property vk_UID() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_UIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_UID in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_UIDColumn) = value End Set End Property _ Public Property vk_EORI() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_EORIColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_EORI in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_EORIColumn) = value End Set End Property _ Public Property vk_Tel() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_TelColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Tel in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_TelColumn) = value End Set End Property _ Public Property vk_Fax() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_FaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Fax in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_FaxColumn) = value End Set End Property _ Public Property vk_Email() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_EmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Email in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_EmailColumn) = value End Set End Property _ Public Property vk_RgNr() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_RgNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_RgNr in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_RgNrColumn) = value End Set End Property _ Public Property vk_Absender() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_AbsenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Absender in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_AbsenderColumn) = value End Set End Property _ Public Property vk_ATREUR1() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_ATREUR1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_ATREUR1 in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_ATREUR1Column) = value End Set End Property _ Public Property vk_Fraechter() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_FraechterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Fraechter in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_FraechterColumn) = value End Set End Property _ Public Property vk_Anzahl() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_AnzahlColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Anzahl in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_AnzahlColumn) = value End Set End Property _ Public Property vk_Warenbezeichnung() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Warenbezeichnung in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_WarenbezeichnungColumn) = value End Set End Property _ Public Property vk_Colli() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_ColliColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Colli in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_ColliColumn) = value End Set End Property _ Public Property vk_FaStNr() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_FaStNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_FaStNr in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_FaStNrColumn) = value End Set End Property _ Public Property vk_Berechnung_Rechnungsbetrag() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_RechnungsbetragColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_Rechnungsbetrag in Tabelle tblVorauskassen ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_RechnungsbetragColumn) = value End Set End Property _ Public Property vk_Berechnung_FrachtkostAusland() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_FrachtkostAuslandColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_FrachtkostAusland in Tabelle tblVorauskassen is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_FrachtkostAuslandColumn) = value End Set End Property _ Public Property vk_Berechnung_ZollProz() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_ZollProzColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_ZollProz in Tabelle tblVorauskassen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_ZollProzColumn) = value End Set End Property _ Public Property vk_Berechnung_FrachtkostInland() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_FrachtkostInlandColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_FrachtkostInland in Tabelle tblVorauskassen ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_FrachtkostInlandColumn) = value End Set End Property _ Public Property vk_Berechnung_AbgabenSonst_Bez() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_AbgabenSonst_BezColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_AbgabenSonst_Bez in Tabelle tblVorauskassen ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_AbgabenSonst_BezColumn) = value End Set End Property _ Public Property vk_Berechnung_AbgabenSonst_Betrag() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_AbgabenSonst_BetragColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_AbgabenSonst_Betrag in Tabelle tblVorauskassen "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_AbgabenSonst_BetragColumn) = value End Set End Property _ Public Property vk_Berechnung_EUSTProz() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_EUSTProzColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_EUSTProz in Tabelle tblVorauskassen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_EUSTProzColumn) = value End Set End Property _ Public Property vk_Berechnung_KostenSonst_Bez() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_KostenSonst_BezColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_KostenSonst_Bez in Tabelle tblVorauskassen ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_KostenSonst_BezColumn) = value End Set End Property _ Public Property vk_Berechnung_KostenSonst_Betrag() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_KostenSonst_BetragColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_KostenSonst_Betrag in Tabelle tblVorauskassen i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_KostenSonst_BetragColumn) = value End Set End Property _ Public Property vk_Berechnung_Verzollung() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_VerzollungColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_Verzollung in Tabelle tblVorauskassen ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_VerzollungColumn) = value End Set End Property _ Public Property vk_Berechnung_jeWeitere() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_jeWeitereColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_jeWeitere in Tabelle tblVorauskassen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_jeWeitereColumn) = value End Set End Property _ Public Property vk_Berechnung_ATLAS() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_ATLASColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_ATLAS in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_ATLASColumn) = value End Set End Property _ Public Property vk_Berechnung_Clearing() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_ClearingColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_Clearing in Tabelle tblVorauskassen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_ClearingColumn) = value End Set End Property _ Public Property vk_Berechnung_korrRg() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_korrRgColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_korrRg in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_korrRgColumn) = value End Set End Property _ Public Property vk_Berechnung_Übersetzung() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_ÜbersetzungColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_Übersetzung in Tabelle tblVorauskassen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_ÜbersetzungColumn) = value End Set End Property _ Public Property vk_Berechnung_Aviso() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_AvisoColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_Aviso in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_AvisoColumn) = value End Set End Property _ Public Property vk_Berechnung_SVS() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_SVSColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_SVS in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_SVSColumn) = value End Set End Property _ Public Property vk_Berechnung_SonstigeKosten() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_SonstigeKostenColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_SonstigeKosten in Tabelle tblVorauskassen ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_SonstigeKostenColumn) = value End Set End Property _ Public Property vk_Berechnung_SonstigeKostenText() As String Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_SonstigeKostenTextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_SonstigeKostenText in Tabelle tblVorauskassen i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_SonstigeKostenTextColumn) = value End Set End Property _ Public Property vk_Berechnung_PP() As Double Get Try Return CType(Me(Me.tabletblVorauskassen.vk_Berechnung_PPColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_Berechnung_PP in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_Berechnung_PPColumn) = value End Set End Property _ Public Property vk_Freigegeben() As Boolean Get Return CType(Me(Me.tabletblVorauskassen.vk_FreigegebenColumn),Boolean) End Get Set Me(Me.tabletblVorauskassen.vk_FreigegebenColumn) = value End Set End Property _ Public Property vk_SendungId() As Integer Get Try Return CType(Me(Me.tabletblVorauskassen.vk_SendungIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_SendungId in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_SendungIdColumn) = value End Set End Property _ Public Property vk_AvisoId() As Integer Get Try Return CType(Me(Me.tabletblVorauskassen.vk_AvisoIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_AvisoId in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_AvisoIdColumn) = value End Set End Property _ Public Property vk_VermerkId() As Integer Get Try Return CType(Me(Me.tabletblVorauskassen.vk_VermerkIdColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vk_VermerkId in Tabelle tblVorauskassen ist DBNull.", e) End Try End Get Set Me(Me.tabletblVorauskassen.vk_VermerkIdColumn) = value End Set End Property _ Public Function Isvk_FilialeNrNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_FilialeNrColumn) End Function _ Public Sub Setvk_FilialeNrNull() Me(Me.tabletblVorauskassen.vk_FilialeNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_AbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_AbfertigungsNrColumn) End Function _ Public Sub Setvk_AbfertigungsNrNull() Me(Me.tabletblVorauskassen.vk_AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_KdNrNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_KdNrColumn) End Function _ Public Sub Setvk_KdNrNull() Me(Me.tabletblVorauskassen.vk_KdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_QS_BemerkungNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_QS_BemerkungColumn) End Function _ Public Sub Setvk_QS_BemerkungNull() Me(Me.tabletblVorauskassen.vk_QS_BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_BH_SachbearbeiterIdNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_BH_SachbearbeiterIdColumn) End Function _ Public Sub Setvk_BH_SachbearbeiterIdNull() Me(Me.tabletblVorauskassen.vk_BH_SachbearbeiterIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_BH_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_BH_SachbearbeiterColumn) End Function _ Public Sub Setvk_BH_SachbearbeiterNull() Me(Me.tabletblVorauskassen.vk_BH_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_BH_BemerkungNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_BH_BemerkungColumn) End Function _ Public Sub Setvk_BH_BemerkungNull() Me(Me.tabletblVorauskassen.vk_BH_BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_BH_DatumGeldeingangNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_BH_DatumGeldeingangColumn) End Function _ Public Sub Setvk_BH_DatumGeldeingangNull() Me(Me.tabletblVorauskassen.vk_BH_DatumGeldeingangColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_stornoDatumNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_stornoDatumColumn) End Function _ Public Sub Setvk_stornoDatumNull() Me(Me.tabletblVorauskassen.vk_stornoDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_RolleNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_RolleColumn) End Function _ Public Sub Setvk_RolleNull() Me(Me.tabletblVorauskassen.vk_RolleColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_AnredeNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_AnredeColumn) End Function _ Public Sub Setvk_AnredeNull() Me(Me.tabletblVorauskassen.vk_AnredeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_FirmenwortlaufNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_FirmenwortlaufColumn) End Function _ Public Sub Setvk_FirmenwortlaufNull() Me(Me.tabletblVorauskassen.vk_FirmenwortlaufColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Aresse1Null() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Aresse1Column) End Function _ Public Sub Setvk_Aresse1Null() Me(Me.tabletblVorauskassen.vk_Aresse1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Adresse2Null() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Adresse2Column) End Function _ Public Sub Setvk_Adresse2Null() Me(Me.tabletblVorauskassen.vk_Adresse2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_UIDNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_UIDColumn) End Function _ Public Sub Setvk_UIDNull() Me(Me.tabletblVorauskassen.vk_UIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_EORINull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_EORIColumn) End Function _ Public Sub Setvk_EORINull() Me(Me.tabletblVorauskassen.vk_EORIColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_TelNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_TelColumn) End Function _ Public Sub Setvk_TelNull() Me(Me.tabletblVorauskassen.vk_TelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_FaxNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_FaxColumn) End Function _ Public Sub Setvk_FaxNull() Me(Me.tabletblVorauskassen.vk_FaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_EmailNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_EmailColumn) End Function _ Public Sub Setvk_EmailNull() Me(Me.tabletblVorauskassen.vk_EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_RgNrNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_RgNrColumn) End Function _ Public Sub Setvk_RgNrNull() Me(Me.tabletblVorauskassen.vk_RgNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_AbsenderNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_AbsenderColumn) End Function _ Public Sub Setvk_AbsenderNull() Me(Me.tabletblVorauskassen.vk_AbsenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_ATREUR1Null() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_ATREUR1Column) End Function _ Public Sub Setvk_ATREUR1Null() Me(Me.tabletblVorauskassen.vk_ATREUR1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_FraechterNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_FraechterColumn) End Function _ Public Sub Setvk_FraechterNull() Me(Me.tabletblVorauskassen.vk_FraechterColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_AnzahlNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_AnzahlColumn) End Function _ Public Sub Setvk_AnzahlNull() Me(Me.tabletblVorauskassen.vk_AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_WarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_WarenbezeichnungColumn) End Function _ Public Sub Setvk_WarenbezeichnungNull() Me(Me.tabletblVorauskassen.vk_WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_ColliNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_ColliColumn) End Function _ Public Sub Setvk_ColliNull() Me(Me.tabletblVorauskassen.vk_ColliColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_FaStNrNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_FaStNrColumn) End Function _ Public Sub Setvk_FaStNrNull() Me(Me.tabletblVorauskassen.vk_FaStNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_RechnungsbetragNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_RechnungsbetragColumn) End Function _ Public Sub Setvk_Berechnung_RechnungsbetragNull() Me(Me.tabletblVorauskassen.vk_Berechnung_RechnungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_FrachtkostAuslandNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_FrachtkostAuslandColumn) End Function _ Public Sub Setvk_Berechnung_FrachtkostAuslandNull() Me(Me.tabletblVorauskassen.vk_Berechnung_FrachtkostAuslandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_ZollProzNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_ZollProzColumn) End Function _ Public Sub Setvk_Berechnung_ZollProzNull() Me(Me.tabletblVorauskassen.vk_Berechnung_ZollProzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_FrachtkostInlandNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_FrachtkostInlandColumn) End Function _ Public Sub Setvk_Berechnung_FrachtkostInlandNull() Me(Me.tabletblVorauskassen.vk_Berechnung_FrachtkostInlandColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_AbgabenSonst_BezNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_AbgabenSonst_BezColumn) End Function _ Public Sub Setvk_Berechnung_AbgabenSonst_BezNull() Me(Me.tabletblVorauskassen.vk_Berechnung_AbgabenSonst_BezColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_AbgabenSonst_BetragNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_AbgabenSonst_BetragColumn) End Function _ Public Sub Setvk_Berechnung_AbgabenSonst_BetragNull() Me(Me.tabletblVorauskassen.vk_Berechnung_AbgabenSonst_BetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_EUSTProzNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_EUSTProzColumn) End Function _ Public Sub Setvk_Berechnung_EUSTProzNull() Me(Me.tabletblVorauskassen.vk_Berechnung_EUSTProzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_KostenSonst_BezNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_KostenSonst_BezColumn) End Function _ Public Sub Setvk_Berechnung_KostenSonst_BezNull() Me(Me.tabletblVorauskassen.vk_Berechnung_KostenSonst_BezColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_KostenSonst_BetragNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_KostenSonst_BetragColumn) End Function _ Public Sub Setvk_Berechnung_KostenSonst_BetragNull() Me(Me.tabletblVorauskassen.vk_Berechnung_KostenSonst_BetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_VerzollungNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_VerzollungColumn) End Function _ Public Sub Setvk_Berechnung_VerzollungNull() Me(Me.tabletblVorauskassen.vk_Berechnung_VerzollungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_jeWeitereNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_jeWeitereColumn) End Function _ Public Sub Setvk_Berechnung_jeWeitereNull() Me(Me.tabletblVorauskassen.vk_Berechnung_jeWeitereColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_ATLASNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_ATLASColumn) End Function _ Public Sub Setvk_Berechnung_ATLASNull() Me(Me.tabletblVorauskassen.vk_Berechnung_ATLASColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_ClearingNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_ClearingColumn) End Function _ Public Sub Setvk_Berechnung_ClearingNull() Me(Me.tabletblVorauskassen.vk_Berechnung_ClearingColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_korrRgNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_korrRgColumn) End Function _ Public Sub Setvk_Berechnung_korrRgNull() Me(Me.tabletblVorauskassen.vk_Berechnung_korrRgColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_ÜbersetzungNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_ÜbersetzungColumn) End Function _ Public Sub Setvk_Berechnung_ÜbersetzungNull() Me(Me.tabletblVorauskassen.vk_Berechnung_ÜbersetzungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_AvisoNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_AvisoColumn) End Function _ Public Sub Setvk_Berechnung_AvisoNull() Me(Me.tabletblVorauskassen.vk_Berechnung_AvisoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_SVSNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_SVSColumn) End Function _ Public Sub Setvk_Berechnung_SVSNull() Me(Me.tabletblVorauskassen.vk_Berechnung_SVSColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_SonstigeKostenNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_SonstigeKostenColumn) End Function _ Public Sub Setvk_Berechnung_SonstigeKostenNull() Me(Me.tabletblVorauskassen.vk_Berechnung_SonstigeKostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_SonstigeKostenTextNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_SonstigeKostenTextColumn) End Function _ Public Sub Setvk_Berechnung_SonstigeKostenTextNull() Me(Me.tabletblVorauskassen.vk_Berechnung_SonstigeKostenTextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_Berechnung_PPNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_Berechnung_PPColumn) End Function _ Public Sub Setvk_Berechnung_PPNull() Me(Me.tabletblVorauskassen.vk_Berechnung_PPColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_SendungIdNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_SendungIdColumn) End Function _ Public Sub Setvk_SendungIdNull() Me(Me.tabletblVorauskassen.vk_SendungIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_AvisoIdNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_AvisoIdColumn) End Function _ Public Sub Setvk_AvisoIdNull() Me(Me.tabletblVorauskassen.vk_AvisoIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvk_VermerkIdNull() As Boolean Return Me.IsNull(Me.tabletblVorauskassen.vk_VermerkIdColumn) End Function _ Public Sub Setvk_VermerkIdNull() Me(Me.tabletblVorauskassen.vk_VermerkIdColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblWahrungtabelleNEURow Inherits Global.System.Data.DataRow Private tabletblWahrungtabelleNEU As tblWahrungtabelleNEUDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblWahrungtabelleNEU = CType(Me.Table,tblWahrungtabelleNEUDataTable) End Sub _ Public Property fw_id() As Integer Get Return CType(Me(Me.tabletblWahrungtabelleNEU.fw_idColumn),Integer) End Get Set Me(Me.tabletblWahrungtabelleNEU.fw_idColumn) = value End Set End Property _ Public Property fw_land() As String Get Return CType(Me(Me.tabletblWahrungtabelleNEU.fw_landColumn),String) End Get Set Me(Me.tabletblWahrungtabelleNEU.fw_landColumn) = value End Set End Property _ Public Property fw_iso2() As String Get Return CType(Me(Me.tabletblWahrungtabelleNEU.fw_iso2Column),String) End Get Set Me(Me.tabletblWahrungtabelleNEU.fw_iso2Column) = value End Set End Property _ Public Property fw_kurswert() As Double Get Return CType(Me(Me.tabletblWahrungtabelleNEU.fw_kurswertColumn),Double) End Get Set Me(Me.tabletblWahrungtabelleNEU.fw_kurswertColumn) = value End Set End Property _ Public Property fw_iso3() As String Get Return CType(Me(Me.tabletblWahrungtabelleNEU.fw_iso3Column),String) End Get Set Me(Me.tabletblWahrungtabelleNEU.fw_iso3Column) = value End Set End Property _ Public Property fw_importdatum() As Date Get Return CType(Me(Me.tabletblWahrungtabelleNEU.fw_importdatumColumn),Date) End Get Set Me(Me.tabletblWahrungtabelleNEU.fw_importdatumColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblWarenbezeichnungBegriffeRow Inherits Global.System.Data.DataRow Private tabletblWarenbezeichnungBegriffe As tblWarenbezeichnungBegriffeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblWarenbezeichnungBegriffe = CType(Me.Table,tblWarenbezeichnungBegriffeDataTable) End Sub _ Public Property wb_id() As Integer Get Return CType(Me(Me.tabletblWarenbezeichnungBegriffe.wb_idColumn),Integer) End Get Set Me(Me.tabletblWarenbezeichnungBegriffe.wb_idColumn) = value End Set End Property _ Public Property wb_begriff() As String Get Return CType(Me(Me.tabletblWarenbezeichnungBegriffe.wb_begriffColumn),String) End Get Set Me(Me.tabletblWarenbezeichnungBegriffe.wb_begriffColumn) = value End Set End Property _ Public Property wb_beispiele() As String Get Return CType(Me(Me.tabletblWarenbezeichnungBegriffe.wb_beispieleColumn),String) End Get Set Me(Me.tabletblWarenbezeichnungBegriffe.wb_beispieleColumn) = value End Set End Property _ Public Property wb_datum() As Date Get Return CType(Me(Me.tabletblWarenbezeichnungBegriffe.wb_datumColumn),Date) End Get Set Me(Me.tabletblWarenbezeichnungBegriffe.wb_datumColumn) = value End Set End Property _ Public Property wb_Sachbearbeiter() As String Get Return CType(Me(Me.tabletblWarenbezeichnungBegriffe.wb_SachbearbeiterColumn),String) End Get Set Me(Me.tabletblWarenbezeichnungBegriffe.wb_SachbearbeiterColumn) = value End Set End Property _ Public Property wb_SachbearbeiterId() As Integer Get Return CType(Me(Me.tabletblWarenbezeichnungBegriffe.wb_SachbearbeiterIdColumn),Integer) End Get Set Me(Me.tabletblWarenbezeichnungBegriffe.wb_SachbearbeiterIdColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblZabis_Atlas_NCTSRow Inherits Global.System.Data.DataRow Private tabletblZabis_Atlas_NCTS As tblZabis_Atlas_NCTSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblZabis_Atlas_NCTS = CType(Me.Table,tblZabis_Atlas_NCTSDataTable) End Sub _ Public Property ID_NCTS() As Integer Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.ID_NCTSColumn),Integer) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.ID_NCTSColumn) = value End Set End Property _ Public Property basman_nr() As String Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.basman_nrColumn),String) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.basman_nrColumn) = value End Set End Property _ Public Property basman_nl() As String Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.basman_nlColumn),String) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.basman_nlColumn) = value End Set End Property _ Public Property veoant_beznr() As String Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_beznrColumn),String) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_beznrColumn) = value End Set End Property _ Public Property veoant_lfdnr() As Short Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_lfdnrColumn),Short) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_lfdnrColumn) = value End Set End Property _ Public Property veoant_stat() As Short Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_statColumn),Short) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_statColumn) = value End Set End Property _ Public Property veoant_arbnr() As String Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_arbnrColumn),String) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_arbnrColumn) = value End Set End Property _ Public Property veoant_mrn() As String Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_mrnColumn),String) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_mrnColumn) = value End Set End Property _ Public Property veoant_abgdst() As String Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_abgdstColumn),String) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_abgdstColumn) = value End Set End Property _ Public Property veoant_bedst() As String Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_bedstColumn),String) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_bedstColumn) = value End Set End Property _ Public Property veoant_wgdat() As Date Get Try Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_wgdatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte veoant_wgdat in Tabelle tblZabis_Atlas_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_wgdatColumn) = value End Set End Property _ Public Property veoant_anzpos() As Short Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_anzposColumn),Short) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_anzposColumn) = value End Set End Property _ Public Property veoant_andat() As Date Get Try Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_andatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte veoant_andat in Tabelle tblZabis_Atlas_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_andatColumn) = value End Set End Property _ Public Property veoant_korant() As Short Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_korantColumn),Short) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_korantColumn) = value End Set End Property _ Public Property veoant_vrbdat() As Date Get Try Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_vrbdatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte veoant_vrbdat in Tabelle tblZabis_Atlas_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_vrbdatColumn) = value End Set End Property _ Public Property veoant_sb() As String Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoant_sbColumn),String) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoant_sbColumn) = value End Set End Property _ Public Property veopos_posnr() As Short Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veopos_posnrColumn),Short) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veopos_posnrColumn) = value End Set End Property _ Public Property veopos_stat() As Short Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veopos_statColumn),Short) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veopos_statColumn) = value End Set End Property _ Public Property veopos_wbsch1() As String Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veopos_wbsch1Column),String) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veopos_wbsch1Column) = value End Set End Property _ Public Property veopos_rohmas() As Decimal Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veopos_rohmasColumn),Decimal) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veopos_rohmasColumn) = value End Set End Property _ Public Property veoerz_sicbsc() As String Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoerz_sicbscColumn),String) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoerz_sicbscColumn) = value End Set End Property _ Public Property veoerz_basbtg() As Decimal Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoerz_basbtgColumn),Decimal) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoerz_basbtgColumn) = value End Set End Property _ Public Property veoerz_sicbtg() As Decimal Get Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoerz_sicbtgColumn),Decimal) End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoerz_sicbtgColumn) = value End Set End Property _ Public Property vegdat_erldat() As Date Get Try Return CType(Me(Me.tabletblZabis_Atlas_NCTS.vegdat_erldatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vegdat_erldat in Tabelle tblZabis_Atlas_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZabis_Atlas_NCTS.vegdat_erldatColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblZabis_Atlas_NCTS.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblZabis_Atlas_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZabis_Atlas_NCTS.upsize_tsColumn) = value End Set End Property _ Public Property History() As Boolean Get Try Return CType(Me(Me.tabletblZabis_Atlas_NCTS.HistoryColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte History in Tabelle tblZabis_Atlas_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZabis_Atlas_NCTS.HistoryColumn) = value End Set End Property _ Public Property veoadr_name1() As String Get Try Return CType(Me(Me.tabletblZabis_Atlas_NCTS.veoadr_name1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte veoadr_name1 in Tabelle tblZabis_Atlas_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZabis_Atlas_NCTS.veoadr_name1Column) = value End Set End Property _ Public Function Isveoant_wgdatNull() As Boolean Return Me.IsNull(Me.tabletblZabis_Atlas_NCTS.veoant_wgdatColumn) End Function _ Public Sub Setveoant_wgdatNull() Me(Me.tabletblZabis_Atlas_NCTS.veoant_wgdatColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isveoant_andatNull() As Boolean Return Me.IsNull(Me.tabletblZabis_Atlas_NCTS.veoant_andatColumn) End Function _ Public Sub Setveoant_andatNull() Me(Me.tabletblZabis_Atlas_NCTS.veoant_andatColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isveoant_vrbdatNull() As Boolean Return Me.IsNull(Me.tabletblZabis_Atlas_NCTS.veoant_vrbdatColumn) End Function _ Public Sub Setveoant_vrbdatNull() Me(Me.tabletblZabis_Atlas_NCTS.veoant_vrbdatColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvegdat_erldatNull() As Boolean Return Me.IsNull(Me.tabletblZabis_Atlas_NCTS.vegdat_erldatColumn) End Function _ Public Sub Setvegdat_erldatNull() Me(Me.tabletblZabis_Atlas_NCTS.vegdat_erldatColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblZabis_Atlas_NCTS.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblZabis_Atlas_NCTS.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHistoryNull() As Boolean Return Me.IsNull(Me.tabletblZabis_Atlas_NCTS.HistoryColumn) End Function _ Public Sub SetHistoryNull() Me(Me.tabletblZabis_Atlas_NCTS.HistoryColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isveoadr_name1Null() As Boolean Return Me.IsNull(Me.tabletblZabis_Atlas_NCTS.veoadr_name1Column) End Function _ Public Sub Setveoadr_name1Null() Me(Me.tabletblZabis_Atlas_NCTS.veoadr_name1Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblZahlungszieltexteRow Inherits Global.System.Data.DataRow Private tabletblZahlungszieltexte As tblZahlungszieltexteDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblZahlungszieltexte = CType(Me.Table,tblZahlungszieltexteDataTable) End Sub _ Public Property LandKz() As String Get Return CType(Me(Me.tabletblZahlungszieltexte.LandKzColumn),String) End Get Set Me(Me.tabletblZahlungszieltexte.LandKzColumn) = value End Set End Property _ Public Property Text() As String Get Return CType(Me(Me.tabletblZahlungszieltexte.TextColumn),String) End Get Set Me(Me.tabletblZahlungszieltexte.TextColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tabletblZahlungszieltexte.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle tblZahlungszieltexte ist DBNull.", e) End Try End Get Set Me(Me.tabletblZahlungszieltexte.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tabletblZahlungszieltexte.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tabletblZahlungszieltexte.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblZolaris_EZoll_NCTSRow Inherits Global.System.Data.DataRow Private tabletblZolaris_EZoll_NCTS As tblZolaris_EZoll_NCTSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblZolaris_EZoll_NCTS = CType(Me.Table,tblZolaris_EZoll_NCTSDataTable) End Sub _ Public Property CRN() As String Get Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.CRNColumn),String) End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.CRNColumn) = value End Set End Property _ Public Property AnmeldungsDatum() As Date Get Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.AnmeldungsDatumColumn),Date) End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.AnmeldungsDatumColumn) = value End Set End Property _ Public Property GarantieWert() As Decimal Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.GarantieWertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GarantieWert in Tabelle tblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.GarantieWertColumn) = value End Set End Property _ Public Property AnmID() As Integer Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.AnmIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AnmID in Tabelle tblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.AnmIDColumn) = value End Set End Property _ Public Property ErledigungsTypID() As String Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.ErledigungsTypIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErledigungsTypID in Tabelle tblZolaris_EZoll_NCTS ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.ErledigungsTypIDColumn) = value End Set End Property _ Public Property Warenbezeichnung() As String Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warenbezeichnung in Tabelle tblZolaris_EZoll_NCTS ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.WarenbezeichnungColumn) = value End Set End Property _ Public Property Absender() As String Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.AbsenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Absender in Tabelle tblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.AbsenderColumn) = value End Set End Property _ Public Property Empfaenger() As String Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.EmpfaengerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Empfaenger in Tabelle tblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.EmpfaengerColumn) = value End Set End Property _ Public Property Gesamtrohmasse() As Double Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.GesamtrohmasseColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtrohmasse in Tabelle tblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.GesamtrohmasseColumn) = value End Set End Property _ Public Property Abgangszollstelle() As String Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.AbgangszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abgangszollstelle in Tabelle tblZolaris_EZoll_NCTS ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.AbgangszollstelleColumn) = value End Set End Property _ Public Property Bestimmungszollstelle() As String Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.BestimmungszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bestimmungszollstelle in Tabelle tblZolaris_EZoll_NCTS ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.BestimmungszollstelleColumn) = value End Set End Property _ Public Property Gestellungsfrist() As Date Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.GestellungsfristColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gestellungsfrist in Tabelle tblZolaris_EZoll_NCTS ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.GestellungsfristColumn) = value End Set End Property _ Public Property LRN() As String Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.LRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LRN in Tabelle tblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.LRNColumn) = value End Set End Property _ Public Property DatumBestimmungErreicht() As Date Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.DatumBestimmungErreichtColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DatumBestimmungErreicht in Tabelle tblZolaris_EZoll_NCTS ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.DatumBestimmungErreichtColumn) = value End Set End Property _ Public Property GRN() As String Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.GRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GRN in Tabelle tblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.GRNColumn) = value End Set End Property _ Public Property OperatorId() As Short Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.OperatorIdColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OperatorId in Tabelle tblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.OperatorIdColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tabletblZolaris_EZoll_NCTS.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle tblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tabletblZolaris_EZoll_NCTS.upsize_tsColumn) = value End Set End Property _ Public Function IsGarantieWertNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.GarantieWertColumn) End Function _ Public Sub SetGarantieWertNull() Me(Me.tabletblZolaris_EZoll_NCTS.GarantieWertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnmIDNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.AnmIDColumn) End Function _ Public Sub SetAnmIDNull() Me(Me.tabletblZolaris_EZoll_NCTS.AnmIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErledigungsTypIDNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.ErledigungsTypIDColumn) End Function _ Public Sub SetErledigungsTypIDNull() Me(Me.tabletblZolaris_EZoll_NCTS.ErledigungsTypIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.WarenbezeichnungColumn) End Function _ Public Sub SetWarenbezeichnungNull() Me(Me.tabletblZolaris_EZoll_NCTS.WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.AbsenderColumn) End Function _ Public Sub SetAbsenderNull() Me(Me.tabletblZolaris_EZoll_NCTS.AbsenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfaengerNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.EmpfaengerColumn) End Function _ Public Sub SetEmpfaengerNull() Me(Me.tabletblZolaris_EZoll_NCTS.EmpfaengerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtrohmasseNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.GesamtrohmasseColumn) End Function _ Public Sub SetGesamtrohmasseNull() Me(Me.tabletblZolaris_EZoll_NCTS.GesamtrohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbgangszollstelleNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.AbgangszollstelleColumn) End Function _ Public Sub SetAbgangszollstelleNull() Me(Me.tabletblZolaris_EZoll_NCTS.AbgangszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungszollstelleNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.BestimmungszollstelleColumn) End Function _ Public Sub SetBestimmungszollstelleNull() Me(Me.tabletblZolaris_EZoll_NCTS.BestimmungszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGestellungsfristNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.GestellungsfristColumn) End Function _ Public Sub SetGestellungsfristNull() Me(Me.tabletblZolaris_EZoll_NCTS.GestellungsfristColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLRNNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.LRNColumn) End Function _ Public Sub SetLRNNull() Me(Me.tabletblZolaris_EZoll_NCTS.LRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatumBestimmungErreichtNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.DatumBestimmungErreichtColumn) End Function _ Public Sub SetDatumBestimmungErreichtNull() Me(Me.tabletblZolaris_EZoll_NCTS.DatumBestimmungErreichtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGRNNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.GRNColumn) End Function _ Public Sub SetGRNNull() Me(Me.tabletblZolaris_EZoll_NCTS.GRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOperatorIdNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.OperatorIdColumn) End Function _ Public Sub SetOperatorIdNull() Me(Me.tabletblZolaris_EZoll_NCTS.OperatorIdColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tabletblZolaris_EZoll_NCTS.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tabletblZolaris_EZoll_NCTS.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblZOLL_WechselkurseRow Inherits Global.System.Data.DataRow Private tabletblZOLL_Wechselkurse As tblZOLL_WechselkurseDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblZOLL_Wechselkurse = CType(Me.Table,tblZOLL_WechselkurseDataTable) End Sub _ Public Property fw_id() As Integer Get Return CType(Me(Me.tabletblZOLL_Wechselkurse.fw_idColumn),Integer) End Get Set Me(Me.tabletblZOLL_Wechselkurse.fw_idColumn) = value End Set End Property _ Public Property fw_land() As String Get Return CType(Me(Me.tabletblZOLL_Wechselkurse.fw_landColumn),String) End Get Set Me(Me.tabletblZOLL_Wechselkurse.fw_landColumn) = value End Set End Property _ Public Property fw_iso2() As String Get Return CType(Me(Me.tabletblZOLL_Wechselkurse.fw_iso2Column),String) End Get Set Me(Me.tabletblZOLL_Wechselkurse.fw_iso2Column) = value End Set End Property _ Public Property fw_kurswert() As Double Get Return CType(Me(Me.tabletblZOLL_Wechselkurse.fw_kurswertColumn),Double) End Get Set Me(Me.tabletblZOLL_Wechselkurse.fw_kurswertColumn) = value End Set End Property _ Public Property fw_iso3() As String Get Return CType(Me(Me.tabletblZOLL_Wechselkurse.fw_iso3Column),String) End Get Set Me(Me.tabletblZOLL_Wechselkurse.fw_iso3Column) = value End Set End Property _ Public Property fw_startdatum() As Date Get Return CType(Me(Me.tabletblZOLL_Wechselkurse.fw_startdatumColumn),Date) End Get Set Me(Me.tabletblZOLL_Wechselkurse.fw_startdatumColumn) = value End Set End Property _ Public Property fw_enddatum() As Date Get Return CType(Me(Me.tabletblZOLL_Wechselkurse.fw_enddatumColumn),Date) End Get Set Me(Me.tabletblZOLL_Wechselkurse.fw_enddatumColumn) = value End Set End Property _ Public Property fw_importdatum() As Date Get Return CType(Me(Me.tabletblZOLL_Wechselkurse.fw_importdatumColumn),Date) End Get Set Me(Me.tabletblZOLL_Wechselkurse.fw_importdatumColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblZollArtikelRow Inherits Global.System.Data.DataRow Private tabletblZollArtikel As tblZollArtikelDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblZollArtikel = CType(Me.Table,tblZollArtikelDataTable) End Sub _ Public Property zollArt_id() As Integer Get Return CType(Me(Me.tabletblZollArtikel.zollArt_idColumn),Integer) End Get Set Me(Me.tabletblZollArtikel.zollArt_idColumn) = value End Set End Property _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tabletblZollArtikel.KundenNrColumn),Integer) End Get Set Me(Me.tabletblZollArtikel.KundenNrColumn) = value End Set End Property _ Public Property zollArt_Teilsatzschluessel() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_TeilsatzschluesselColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Teilsatzschluessel in Tabelle tblZollArtikel ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_TeilsatzschluesselColumn) = value End Set End Property _ Public Property zollArt_Verarbeitungskennzeichen() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_VerarbeitungskennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Verarbeitungskennzeichen in Tabelle tblZollArtikel is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_VerarbeitungskennzeichenColumn) = value End Set End Property _ Public Property zollArt_Artikelnummer() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_ArtikelnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Artikelnummer in Tabelle tblZollArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_ArtikelnummerColumn) = value End Set End Property _ Public Property zollArt_Dynamische_Ergaenzung_1() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_Dynamische_Ergaenzung_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Dynamische_Ergaenzung_1 in Tabelle tblZollArtikel ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_Dynamische_Ergaenzung_1Column) = value End Set End Property _ Public Property zollArt_Dynamische_Ergaenzung_2() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_Dynamische_Ergaenzung_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Dynamische_Ergaenzung_2 in Tabelle tblZollArtikel ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_Dynamische_Ergaenzung_2Column) = value End Set End Property _ Public Property zollArt_Kundennummer() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_KundennummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Kundennummer in Tabelle tblZollArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_KundennummerColumn) = value End Set End Property _ Public Property zollArt_Warencodenummer() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_WarencodenummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Warencodenummer in Tabelle tblZollArtikel ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_WarencodenummerColumn) = value End Set End Property _ Public Property zollArt_Zusatzcode_1() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_Zusatzcode_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Zusatzcode_1 in Tabelle tblZollArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_Zusatzcode_1Column) = value End Set End Property _ Public Property zollArt_Zusatzcode_2() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_Zusatzcode_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Zusatzcode_2 in Tabelle tblZollArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_Zusatzcode_2Column) = value End Set End Property _ Public Property zollArt_Kennzeichen_Gueltig() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_Kennzeichen_GueltigColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Kennzeichen_Gueltig in Tabelle tblZollArtikel ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_Kennzeichen_GueltigColumn) = value End Set End Property _ Public Property zollArt_Kurzbezeichnung() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_KurzbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Kurzbezeichnung in Tabelle tblZollArtikel ist DBNull."& _ "", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_KurzbezeichnungColumn) = value End Set End Property _ Public Property zollArt_Warenbeschreibung() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_WarenbeschreibungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Warenbeschreibung in Tabelle tblZollArtikel ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_WarenbeschreibungColumn) = value End Set End Property _ Public Property zollArt_Statistische_Maßeinheit() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_Statistische_MaßeinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Statistische_Maßeinheit in Tabelle tblZollArtikel ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_Statistische_MaßeinheitColumn) = value End Set End Property _ Public Property zollArt_Statistische_Maßeinheit_Qualifikator() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_Statistische_Maßeinheit_QualifikatorColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Statistische_Maßeinheit_Qualifikator in Tabelle tblZo"& _ "llArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_Statistische_Maßeinheit_QualifikatorColumn) = value End Set End Property _ Public Property zollArt_Besondere_Maßeinheit() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_Besondere_MaßeinheitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Besondere_Maßeinheit in Tabelle tblZollArtikel ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_Besondere_MaßeinheitColumn) = value End Set End Property _ Public Property zollArt_Besondere_Maßeinheit_Qualifikator() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_Besondere_Maßeinheit_QualifikatorColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Besondere_Maßeinheit_Qualifikator in Tabelle tblZollA"& _ "rtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_Besondere_Maßeinheit_QualifikatorColumn) = value End Set End Property _ Public Property zollArt_Gewicht() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_GewichtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Gewicht in Tabelle tblZollArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_GewichtColumn) = value End Set End Property _ Public Property zollArt_Menge() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_MengeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Menge in Tabelle tblZollArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_MengeColumn) = value End Set End Property _ Public Property Erfassungsdatum() As Date Get Try Return CType(Me(Me.tabletblZollArtikel.ErfassungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erfassungsdatum in Tabelle tblZollArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.ErfassungsdatumColumn) = value End Set End Property _ Public Property Aenderungsdatum() As Date Get Try Return CType(Me(Me.tabletblZollArtikel.AenderungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aenderungsdatum in Tabelle tblZollArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.AenderungsdatumColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tabletblZollArtikel.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle tblZollArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.SachbearbeiterColumn) = value End Set End Property _ Public Property zollArt_Status() As String Get Try Return CType(Me(Me.tabletblZollArtikel.zollArt_StatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte zollArt_Status in Tabelle tblZollArtikel ist DBNull.", e) End Try End Get Set Me(Me.tabletblZollArtikel.zollArt_StatusColumn) = value End Set End Property _ Public Function IszollArt_TeilsatzschluesselNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_TeilsatzschluesselColumn) End Function _ Public Sub SetzollArt_TeilsatzschluesselNull() Me(Me.tabletblZollArtikel.zollArt_TeilsatzschluesselColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_VerarbeitungskennzeichenNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_VerarbeitungskennzeichenColumn) End Function _ Public Sub SetzollArt_VerarbeitungskennzeichenNull() Me(Me.tabletblZollArtikel.zollArt_VerarbeitungskennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_ArtikelnummerNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_ArtikelnummerColumn) End Function _ Public Sub SetzollArt_ArtikelnummerNull() Me(Me.tabletblZollArtikel.zollArt_ArtikelnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_Dynamische_Ergaenzung_1Null() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_Dynamische_Ergaenzung_1Column) End Function _ Public Sub SetzollArt_Dynamische_Ergaenzung_1Null() Me(Me.tabletblZollArtikel.zollArt_Dynamische_Ergaenzung_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_Dynamische_Ergaenzung_2Null() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_Dynamische_Ergaenzung_2Column) End Function _ Public Sub SetzollArt_Dynamische_Ergaenzung_2Null() Me(Me.tabletblZollArtikel.zollArt_Dynamische_Ergaenzung_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_KundennummerNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_KundennummerColumn) End Function _ Public Sub SetzollArt_KundennummerNull() Me(Me.tabletblZollArtikel.zollArt_KundennummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_WarencodenummerNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_WarencodenummerColumn) End Function _ Public Sub SetzollArt_WarencodenummerNull() Me(Me.tabletblZollArtikel.zollArt_WarencodenummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_Zusatzcode_1Null() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_Zusatzcode_1Column) End Function _ Public Sub SetzollArt_Zusatzcode_1Null() Me(Me.tabletblZollArtikel.zollArt_Zusatzcode_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_Zusatzcode_2Null() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_Zusatzcode_2Column) End Function _ Public Sub SetzollArt_Zusatzcode_2Null() Me(Me.tabletblZollArtikel.zollArt_Zusatzcode_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_Kennzeichen_GueltigNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_Kennzeichen_GueltigColumn) End Function _ Public Sub SetzollArt_Kennzeichen_GueltigNull() Me(Me.tabletblZollArtikel.zollArt_Kennzeichen_GueltigColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_KurzbezeichnungNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_KurzbezeichnungColumn) End Function _ Public Sub SetzollArt_KurzbezeichnungNull() Me(Me.tabletblZollArtikel.zollArt_KurzbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_WarenbeschreibungNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_WarenbeschreibungColumn) End Function _ Public Sub SetzollArt_WarenbeschreibungNull() Me(Me.tabletblZollArtikel.zollArt_WarenbeschreibungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_Statistische_MaßeinheitNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_Statistische_MaßeinheitColumn) End Function _ Public Sub SetzollArt_Statistische_MaßeinheitNull() Me(Me.tabletblZollArtikel.zollArt_Statistische_MaßeinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_Statistische_Maßeinheit_QualifikatorNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_Statistische_Maßeinheit_QualifikatorColumn) End Function _ Public Sub SetzollArt_Statistische_Maßeinheit_QualifikatorNull() Me(Me.tabletblZollArtikel.zollArt_Statistische_Maßeinheit_QualifikatorColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_Besondere_MaßeinheitNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_Besondere_MaßeinheitColumn) End Function _ Public Sub SetzollArt_Besondere_MaßeinheitNull() Me(Me.tabletblZollArtikel.zollArt_Besondere_MaßeinheitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_Besondere_Maßeinheit_QualifikatorNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_Besondere_Maßeinheit_QualifikatorColumn) End Function _ Public Sub SetzollArt_Besondere_Maßeinheit_QualifikatorNull() Me(Me.tabletblZollArtikel.zollArt_Besondere_Maßeinheit_QualifikatorColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_GewichtNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_GewichtColumn) End Function _ Public Sub SetzollArt_GewichtNull() Me(Me.tabletblZollArtikel.zollArt_GewichtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_MengeNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_MengeColumn) End Function _ Public Sub SetzollArt_MengeNull() Me(Me.tabletblZollArtikel.zollArt_MengeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErfassungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.ErfassungsdatumColumn) End Function _ Public Sub SetErfassungsdatumNull() Me(Me.tabletblZollArtikel.ErfassungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAenderungsdatumNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.AenderungsdatumColumn) End Function _ Public Sub SetAenderungsdatumNull() Me(Me.tabletblZollArtikel.AenderungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tabletblZollArtikel.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IszollArt_StatusNull() As Boolean Return Me.IsNull(Me.tabletblZollArtikel.zollArt_StatusColumn) End Function _ Public Sub SetzollArt_StatusNull() Me(Me.tabletblZollArtikel.zollArt_StatusColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tblZollUnterArtikelRow Inherits Global.System.Data.DataRow Private tabletblZollUnterArtikel As tblZollUnterArtikelDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletblZollUnterArtikel = CType(Me.Table,tblZollUnterArtikelDataTable) End Sub _ Public Property zollUntArtk_Id() As Integer Get Return CType(Me(Me.tabletblZollUnterArtikel.zollUntArtk_IdColumn),Integer) End Get Set Me(Me.tabletblZollUnterArtikel.zollUntArtk_IdColumn) = value End Set End Property _ Public Property zollUntArtk_zollArtId() As Integer Get Return CType(Me(Me.tabletblZollUnterArtikel.zollUntArtk_zollArtIdColumn),Integer) End Get Set Me(Me.tabletblZollUnterArtikel.zollUntArtk_zollArtIdColumn) = value End Set End Property _ Public Property zollUntArtk_Bezeichnung() As String Get Return CType(Me(Me.tabletblZollUnterArtikel.zollUntArtk_BezeichnungColumn),String) End Get Set Me(Me.tabletblZollUnterArtikel.zollUntArtk_BezeichnungColumn) = value End Set End Property _ Public Property zollUntArtk_Artikelnummer() As String Get Return CType(Me(Me.tabletblZollUnterArtikel.zollUntArtk_ArtikelnummerColumn),String) End Get Set Me(Me.tabletblZollUnterArtikel.zollUntArtk_ArtikelnummerColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TemporaryUpsizedTable2Row Inherits Global.System.Data.DataRow Private tableTemporaryUpsizedTable2 As TemporaryUpsizedTable2DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTemporaryUpsizedTable2 = CType(Me.Table,TemporaryUpsizedTable2DataTable) End Sub _ Public Property Dateiname() As String Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.DateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dateiname in Tabelle TemporaryUpsizedTable2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.DateinameColumn) = value End Set End Property _ Public Property LfdNr() As Integer Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.LfdNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LfdNr in Tabelle TemporaryUpsizedTable2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.LfdNrColumn) = value End Set End Property _ Public Property Code_Adressat_der_Rechnung() As Integer Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Code_Adressat_der_RechnungColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Code_Adressat_der_Rechnung in Tabelle TemporaryUpsizedTable2 "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Code_Adressat_der_RechnungColumn) = value End Set End Property _ Public Property Code_Adressat_des_Kontoauszugs() As Integer Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Code_Adressat_des_KontoauszugsColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Code_Adressat_des_Kontoauszugs in Tabelle TemporaryUpsizedTab"& _ "le2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Code_Adressat_des_KontoauszugsColumn) = value End Set End Property _ Public Property Art_der_Bewegung() As String Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Art_der_BewegungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Art_der_Bewegung in Tabelle TemporaryUpsizedTable2 ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Art_der_BewegungColumn) = value End Set End Property _ Public Property Datum_der_Bewegung() As Date Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Datum_der_BewegungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datum_der_Bewegung in Tabelle TemporaryUpsizedTable2 ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Datum_der_BewegungColumn) = value End Set End Property _ Public Property Uhrzeit_der_Bewegung() As Date Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Uhrzeit_der_BewegungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Uhrzeit_der_Bewegung in Tabelle TemporaryUpsizedTable2 ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Uhrzeit_der_BewegungColumn) = value End Set End Property _ Public Property Ursprünglicher_Betrag_der_Bewegung() As Decimal Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Ursprünglicher_Betrag_der_BewegungColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ursprünglicher_Betrag_der_Bewegung in Tabelle TemporaryUpsize"& _ "dTable2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Ursprünglicher_Betrag_der_BewegungColumn) = value End Set End Property _ Public Property Nicht_mehrwertsteuerpflichtiger_Betrag() As Decimal Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Nicht_mehrwertsteuerpflichtiger_BetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nicht_mehrwertsteuerpflichtiger_Betrag in Tabelle TemporaryUp"& _ "sizedTable2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Nicht_mehrwertsteuerpflichtiger_BetragColumn) = value End Set End Property _ Public Property Betrag_mit_Preisnachlass_oder_Preisnachlass() As Decimal Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Betrag_mit_Preisnachlass_oder_PreisnachlassColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag_mit_Preisnachlass_oder_Preisnachlass in Tabelle Tempor"& _ "aryUpsizedTable2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Betrag_mit_Preisnachlass_oder_PreisnachlassColumn) = value End Set End Property _ Public Property Form_des_Mediums() As String Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Form_des_MediumsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Form_des_Mediums in Tabelle TemporaryUpsizedTable2 ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Form_des_MediumsColumn) = value End Set End Property _ Public Property Beschreibung_Form_des_Mediums() As String Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Beschreibung_Form_des_MediumsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beschreibung_Form_des_Mediums in Tabelle TemporaryUpsizedTabl"& _ "e2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Beschreibung_Form_des_MediumsColumn) = value End Set End Property _ Public Property Kodierung_Medium() As String Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Kodierung_MediumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kodierung_Medium in Tabelle TemporaryUpsizedTable2 ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Kodierung_MediumColumn) = value End Set End Property _ Public Property Beschreibung_der_Bewegung() As String Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Beschreibung_der_BewegungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beschreibung_der_Bewegung in Tabelle TemporaryUpsizedTable2 i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Beschreibung_der_BewegungColumn) = value End Set End Property _ Public Property Gebührenklasse() As String Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.GebührenklasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gebührenklasse in Tabelle TemporaryUpsizedTable2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.GebührenklasseColumn) = value End Set End Property _ Public Property Verrechnungsdatum() As Date Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.VerrechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Verrechnungsdatum in Tabelle TemporaryUpsizedTable2 ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.VerrechnungsdatumColumn) = value End Set End Property _ Public Property Zeichen_Betrag() As String Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.Zeichen_BetragColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeichen_Betrag in Tabelle TemporaryUpsizedTable2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.Zeichen_BetragColumn) = value End Set End Property _ Public Property KfzKennzeichen() As String Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.KfzKennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KfzKennzeichen in Tabelle TemporaryUpsizedTable2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.KfzKennzeichenColumn) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tableTemporaryUpsizedTable2.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle TemporaryUpsizedTable2 ist DBNull.", e) End Try End Get Set Me(Me.tableTemporaryUpsizedTable2.UStVAn_IDColumn) = value End Set End Property _ Public Function IsDateinameNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.DateinameColumn) End Function _ Public Sub SetDateinameNull() Me(Me.tableTemporaryUpsizedTable2.DateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLfdNrNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.LfdNrColumn) End Function _ Public Sub SetLfdNrNull() Me(Me.tableTemporaryUpsizedTable2.LfdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCode_Adressat_der_RechnungNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Code_Adressat_der_RechnungColumn) End Function _ Public Sub SetCode_Adressat_der_RechnungNull() Me(Me.tableTemporaryUpsizedTable2.Code_Adressat_der_RechnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCode_Adressat_des_KontoauszugsNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Code_Adressat_des_KontoauszugsColumn) End Function _ Public Sub SetCode_Adressat_des_KontoauszugsNull() Me(Me.tableTemporaryUpsizedTable2.Code_Adressat_des_KontoauszugsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsArt_der_BewegungNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Art_der_BewegungColumn) End Function _ Public Sub SetArt_der_BewegungNull() Me(Me.tableTemporaryUpsizedTable2.Art_der_BewegungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatum_der_BewegungNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Datum_der_BewegungColumn) End Function _ Public Sub SetDatum_der_BewegungNull() Me(Me.tableTemporaryUpsizedTable2.Datum_der_BewegungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUhrzeit_der_BewegungNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Uhrzeit_der_BewegungColumn) End Function _ Public Sub SetUhrzeit_der_BewegungNull() Me(Me.tableTemporaryUpsizedTable2.Uhrzeit_der_BewegungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUrsprünglicher_Betrag_der_BewegungNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Ursprünglicher_Betrag_der_BewegungColumn) End Function _ Public Sub SetUrsprünglicher_Betrag_der_BewegungNull() Me(Me.tableTemporaryUpsizedTable2.Ursprünglicher_Betrag_der_BewegungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNicht_mehrwertsteuerpflichtiger_BetragNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Nicht_mehrwertsteuerpflichtiger_BetragColumn) End Function _ Public Sub SetNicht_mehrwertsteuerpflichtiger_BetragNull() Me(Me.tableTemporaryUpsizedTable2.Nicht_mehrwertsteuerpflichtiger_BetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetrag_mit_Preisnachlass_oder_PreisnachlassNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Betrag_mit_Preisnachlass_oder_PreisnachlassColumn) End Function _ Public Sub SetBetrag_mit_Preisnachlass_oder_PreisnachlassNull() Me(Me.tableTemporaryUpsizedTable2.Betrag_mit_Preisnachlass_oder_PreisnachlassColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsForm_des_MediumsNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Form_des_MediumsColumn) End Function _ Public Sub SetForm_des_MediumsNull() Me(Me.tableTemporaryUpsizedTable2.Form_des_MediumsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBeschreibung_Form_des_MediumsNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Beschreibung_Form_des_MediumsColumn) End Function _ Public Sub SetBeschreibung_Form_des_MediumsNull() Me(Me.tableTemporaryUpsizedTable2.Beschreibung_Form_des_MediumsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKodierung_MediumNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Kodierung_MediumColumn) End Function _ Public Sub SetKodierung_MediumNull() Me(Me.tableTemporaryUpsizedTable2.Kodierung_MediumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBeschreibung_der_BewegungNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Beschreibung_der_BewegungColumn) End Function _ Public Sub SetBeschreibung_der_BewegungNull() Me(Me.tableTemporaryUpsizedTable2.Beschreibung_der_BewegungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGebührenklasseNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.GebührenklasseColumn) End Function _ Public Sub SetGebührenklasseNull() Me(Me.tableTemporaryUpsizedTable2.GebührenklasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVerrechnungsdatumNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.VerrechnungsdatumColumn) End Function _ Public Sub SetVerrechnungsdatumNull() Me(Me.tableTemporaryUpsizedTable2.VerrechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZeichen_BetragNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.Zeichen_BetragColumn) End Function _ Public Sub SetZeichen_BetragNull() Me(Me.tableTemporaryUpsizedTable2.Zeichen_BetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKfzKennzeichenNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.KfzKennzeichenColumn) End Function _ Public Sub SetKfzKennzeichenNull() Me(Me.tableTemporaryUpsizedTable2.KfzKennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tableTemporaryUpsizedTable2.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tableTemporaryUpsizedTable2.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VerkehrszweigeRow Inherits Global.System.Data.DataRow Private tableVerkehrszweige As VerkehrszweigeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVerkehrszweige = CType(Me.Table,VerkehrszweigeDataTable) End Sub _ Public Property ID() As Short Get Return CType(Me(Me.tableVerkehrszweige.IDColumn),Short) End Get Set Me(Me.tableVerkehrszweige.IDColumn) = value End Set End Property _ Public Property Verkehrszweig() As String Get Return CType(Me(Me.tableVerkehrszweige.VerkehrszweigColumn),String) End Get Set Me(Me.tableVerkehrszweige.VerkehrszweigColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableVerkehrszweige.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Verkehrszweige ist DBNull.", e) End Try End Get Set Me(Me.tableVerkehrszweige.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableVerkehrszweige.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableVerkehrszweige.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VermerkeRow Inherits Global.System.Data.DataRow Private tableVermerke As VermerkeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVermerke = CType(Me.Table,VermerkeDataTable) End Sub _ Public Property Vermerk() As String Get Return CType(Me(Me.tableVermerke.VermerkColumn),String) End Get Set Me(Me.tableVermerke.VermerkColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableVermerke.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Vermerke ist DBNull.", e) End Try End Get Set Me(Me.tableVermerke.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableVermerke.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableVermerke.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VorkostenRow Inherits Global.System.Data.DataRow Private tableVorkosten As VorkostenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVorkosten = CType(Me.Table,VorkostenDataTable) End Sub _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tableVorkosten.FilialenNrColumn),Short) End Get Set Me(Me.tableVorkosten.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tableVorkosten.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tableVorkosten.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tableVorkosten.UnterNrColumn),Short) End Get Set Me(Me.tableVorkosten.UnterNrColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tableVorkosten.LeistungsNrColumn),Short) End Get Set Me(Me.tableVorkosten.LeistungsNrColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tableVorkosten.LeistungsBezColumn),String) End Get Set Me(Me.tableVorkosten.LeistungsBezColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Return CType(Me(Me.tableVorkosten.PreisColumn),Decimal) End Get Set Me(Me.tableVorkosten.PreisColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tableVorkosten.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle Vorkosten ist DBNull.", e) End Try End Get Set Me(Me.tableVorkosten.upsize_tsColumn) = value End Set End Property _ Public Property SpeditionsbuchRowParent() As SpeditionsbuchRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Vorkosten_FK00")),SpeditionsbuchRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Vorkosten_FK00")) End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tableVorkosten.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tableVorkosten.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class WährungstabelleRow Inherits Global.System.Data.DataRow Private tableWährungstabelle As WährungstabelleDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableWährungstabelle = CType(Me.Table,WährungstabelleDataTable) End Sub _ Public Property Währungsschlüssel() As Short Get Return CType(Me(Me.tableWährungstabelle.WährungsschlüsselColumn),Short) End Get Set Me(Me.tableWährungstabelle.WährungsschlüsselColumn) = value End Set End Property _ Public Property Land() As String Get Return CType(Me(Me.tableWährungstabelle.LandColumn),String) End Get Set Me(Me.tableWährungstabelle.LandColumn) = value End Set End Property _ Public Property Menge() As Short Get Return CType(Me(Me.tableWährungstabelle.MengeColumn),Short) End Get Set Me(Me.tableWährungstabelle.MengeColumn) = value End Set End Property _ Public Property Währungscode() As String Get Return CType(Me(Me.tableWährungstabelle.WährungscodeColumn),String) End Get Set Me(Me.tableWährungstabelle.WährungscodeColumn) = value End Set End Property _ Public Property Eurokurs() As Double Get Try Return CType(Me(Me.tableWährungstabelle.EurokursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Eurokurs in Tabelle Währungstabelle ist DBNull.", e) End Try End Get Set Me(Me.tableWährungstabelle.EurokursColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tableWährungstabelle.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle Währungstabelle ist DBNull.", e) End Try End Get Set Me(Me.tableWährungstabelle.LandKzColumn) = value End Set End Property _ Public Property MitgliedslandEU() As Boolean Get Try Return CType(Me(Me.tableWährungstabelle.MitgliedslandEUColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MitgliedslandEU in Tabelle Währungstabelle ist DBNull.", e) End Try End Get Set Me(Me.tableWährungstabelle.MitgliedslandEUColumn) = value End Set End Property _ Public Property BeitrittsjahrEU() As Short Get Try Return CType(Me(Me.tableWährungstabelle.BeitrittsjahrEUColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BeitrittsjahrEU in Tabelle Währungstabelle ist DBNull.", e) End Try End Get Set Me(Me.tableWährungstabelle.BeitrittsjahrEUColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableWährungstabelle.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Währungstabelle ist DBNull.", e) End Try End Get Set Me(Me.tableWährungstabelle.SSMA_TimeStampColumn) = value End Set End Property _ Public Property Länderverzeichnis_für_die_AußenhandelsstatistikRow() As Länderverzeichnis_für_die_AußenhandelsstatistikRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("Währungstabelle$Länderverzeichnis für die AußenhandelsstatistikWährungstabelle")),Länderverzeichnis_für_die_AußenhandelsstatistikRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("Währungstabelle$Länderverzeichnis für die AußenhandelsstatistikWährungstabelle")) End Set End Property _ Public Function IsEurokursNull() As Boolean Return Me.IsNull(Me.tableWährungstabelle.EurokursColumn) End Function _ Public Sub SetEurokursNull() Me(Me.tableWährungstabelle.EurokursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tableWährungstabelle.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tableWährungstabelle.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMitgliedslandEUNull() As Boolean Return Me.IsNull(Me.tableWährungstabelle.MitgliedslandEUColumn) End Function _ Public Sub SetMitgliedslandEUNull() Me(Me.tableWährungstabelle.MitgliedslandEUColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBeitrittsjahrEUNull() As Boolean Return Me.IsNull(Me.tableWährungstabelle.BeitrittsjahrEUColumn) End Function _ Public Sub SetBeitrittsjahrEUNull() Me(Me.tableWährungstabelle.BeitrittsjahrEUColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableWährungstabelle.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableWährungstabelle.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetDevisenkurseRows() As DevisenkurseRow() If (Me.Table.ChildRelations("Devisenkurse$Reference9") Is Nothing) Then Return New DevisenkurseRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Devisenkurse$Reference9")),DevisenkurseRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class ZahlungsartenRow Inherits Global.System.Data.DataRow Private tableZahlungsarten As ZahlungsartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableZahlungsarten = CType(Me.Table,ZahlungsartenDataTable) End Sub _ Public Property ID() As String Get Return CType(Me(Me.tableZahlungsarten.IDColumn),String) End Get Set Me(Me.tableZahlungsarten.IDColumn) = value End Set End Property _ Public Property Zahlungsart() As String Get Return CType(Me(Me.tableZahlungsarten.ZahlungsartColumn),String) End Get Set Me(Me.tableZahlungsarten.ZahlungsartColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableZahlungsarten.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Zahlungsarten ist DBNull.", e) End Try End Get Set Me(Me.tableZahlungsarten.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableZahlungsarten.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableZahlungsarten.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class zbadzRow Inherits Global.System.Data.DataRow Private tablezbadz As zbadzDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablezbadz = CType(Me.Table,zbadzDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tablezbadz.IDColumn),Integer) End Get Set Me(Me.tablezbadz.IDColumn) = value End Set End Property _ Public Property zbant_ID() As Integer Get Return CType(Me(Me.tablezbadz.zbant_IDColumn),Integer) End Get Set Me(Me.tablezbadz.zbant_IDColumn) = value End Set End Property _ Public Property zbadz_typ() As Short Get Return CType(Me(Me.tablezbadz.zbadz_typColumn),Short) End Get Set Me(Me.tablezbadz.zbadz_typColumn) = value End Set End Property _ Public Property zbadz_name1() As String Get Return CType(Me(Me.tablezbadz.zbadz_name1Column),String) End Get Set Me(Me.tablezbadz.zbadz_name1Column) = value End Set End Property _ Public Property baslnd_alpha() As String Get Return CType(Me(Me.tablezbadz.baslnd_alphaColumn),String) End Get Set Me(Me.tablezbadz.baslnd_alphaColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablezbadz.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle zbadz ist DBNull.", e) End Try End Get Set Me(Me.tablezbadz.upsize_tsColumn) = value End Set End Property _ Public Property zbantRow() As zbantRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("zbadz_FK00")),zbantRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("zbadz_FK00")) End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablezbadz.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablezbadz.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class zbantRow Inherits Global.System.Data.DataRow Private tablezbant As zbantDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablezbant = CType(Me.Table,zbantDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tablezbant.IDColumn),Integer) End Get Set Me(Me.tablezbant.IDColumn) = value End Set End Property _ Public Property basman_nr() As String Get Return CType(Me(Me.tablezbant.basman_nrColumn),String) End Get Set Me(Me.tablezbant.basman_nrColumn) = value End Set End Property _ Public Property basman_nl() As String Get Return CType(Me(Me.tablezbant.basman_nlColumn),String) End Get Set Me(Me.tablezbant.basman_nlColumn) = value End Set End Property _ Public Property zbant_beznr() As String Get Return CType(Me(Me.tablezbant.zbant_beznrColumn),String) End Get Set Me(Me.tablezbant.zbant_beznrColumn) = value End Set End Property _ Public Property zbant_regnr() As String Get Return CType(Me(Me.tablezbant.zbant_regnrColumn),String) End Get Set Me(Me.tablezbant.zbant_regnrColumn) = value End Set End Property _ Public Property zbant_korant() As Short Get Return CType(Me(Me.tablezbant.zbant_korantColumn),Short) End Get Set Me(Me.tablezbant.zbant_korantColumn) = value End Set End Property _ Public Property zbant_antart() As String Get Return CType(Me(Me.tablezbant.zbant_antartColumn),String) End Get Set Me(Me.tablezbant.zbant_antartColumn) = value End Set End Property _ Public Property zbant_stat() As Short Get Return CType(Me(Me.tablezbant.zbant_statColumn),Short) End Get Set Me(Me.tablezbant.zbant_statColumn) = value End Set End Property _ Public Property zbant_anmust() As String Get Return CType(Me(Me.tablezbant.zbant_anmustColumn),String) End Get Set Me(Me.tablezbant.zbant_anmustColumn) = value End Set End Property _ Public Property zbant_erwust() As String Get Return CType(Me(Me.tablezbant.zbant_erwustColumn),String) End Get Set Me(Me.tablezbant.zbant_erwustColumn) = value End Set End Property _ Public Property zbant_nadat() As Date Get Return CType(Me(Me.tablezbant.zbant_nadatColumn),Date) End Get Set Me(Me.tablezbant.zbant_nadatColumn) = value End Set End Property _ Public Property zbant_preisr() As Decimal Get Return CType(Me(Me.tablezbant.zbant_preisrColumn),Decimal) End Get Set Me(Me.tablezbant.zbant_preisrColumn) = value End Set End Property _ Public Property zbant_waehr() As String Get Return CType(Me(Me.tablezbant.zbant_waehrColumn),String) End Get Set Me(Me.tablezbant.zbant_waehrColumn) = value End Set End Property _ Public Property zbant_kurs() As Double Get Return CType(Me(Me.tablezbant.zbant_kursColumn),Double) End Get Set Me(Me.tablezbant.zbant_kursColumn) = value End Set End Property _ Public Property zbant_gesart() As String Get Return CType(Me(Me.tablezbant.zbant_gesartColumn),String) End Get Set Me(Me.tablezbant.zbant_gesartColumn) = value End Set End Property _ Public Property zbant_bfvkzg() As String Get Return CType(Me(Me.tablezbant.zbant_bfvkzgColumn),String) End Get Set Me(Me.tablezbant.zbant_bfvkzgColumn) = value End Set End Property _ Public Property zbant_dsenda() As Date Get Return CType(Me(Me.tablezbant.zbant_dsendaColumn),Date) End Get Set Me(Me.tablezbant.zbant_dsendaColumn) = value End Set End Property _ Public Property zbant_anzpos() As Short Get Return CType(Me(Me.tablezbant.zbant_anzposColumn),Short) End Get Set Me(Me.tablezbant.zbant_anzposColumn) = value End Set End Property _ Public Property History() As Boolean Get Return CType(Me(Me.tablezbant.HistoryColumn),Boolean) End Get Set Me(Me.tablezbant.HistoryColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablezbant.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle zbant ist DBNull.", e) End Try End Get Set Me(Me.tablezbant.upsize_tsColumn) = value End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablezbant.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablezbant.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetzbadzRows() As zbadzRow() If (Me.Table.ChildRelations("zbadz_FK00") Is Nothing) Then Return New zbadzRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("zbadz_FK00")),zbadzRow()) End If End Function _ Public Function GetzbapoRows() As zbapoRow() If (Me.Table.ChildRelations("zbapo_FK00") Is Nothing) Then Return New zbapoRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("zbapo_FK00")),zbapoRow()) End If End Function _ Public Function GetzbposRows() As zbposRow() If (Me.Table.ChildRelations("zbpos_FK00") Is Nothing) Then Return New zbposRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("zbpos_FK00")),zbposRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class zbapoRow Inherits Global.System.Data.DataRow Private tablezbapo As zbapoDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablezbapo = CType(Me.Table,zbapoDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tablezbapo.IDColumn),Integer) End Get Set Me(Me.tablezbapo.IDColumn) = value End Set End Property _ Public Property zbant_ID() As Integer Get Return CType(Me(Me.tablezbapo.zbant_IDColumn),Integer) End Get Set Me(Me.tablezbapo.zbant_IDColumn) = value End Set End Property _ Public Property zbapo_posnr() As Short Get Return CType(Me(Me.tablezbapo.zbapo_posnrColumn),Short) End Get Set Me(Me.tablezbapo.zbapo_posnrColumn) = value End Set End Property _ Public Property zbabg_regkz() As String Get Return CType(Me(Me.tablezbapo.zbabg_regkzColumn),String) End Get Set Me(Me.tablezbapo.zbabg_regkzColumn) = value End Set End Property _ Public Property zbabg_abglfd() As Short Get Return CType(Me(Me.tablezbapo.zbabg_abglfdColumn),Short) End Get Set Me(Me.tablezbapo.zbabg_abglfdColumn) = value End Set End Property _ Public Property zbapo_eustwe() As Decimal Get Return CType(Me(Me.tablezbapo.zbapo_eustweColumn),Decimal) End Get Set Me(Me.tablezbapo.zbapo_eustweColumn) = value End Set End Property _ Public Property zbapo_zollw() As Decimal Get Return CType(Me(Me.tablezbapo.zbapo_zollwColumn),Decimal) End Get Set Me(Me.tablezbapo.zbapo_zollwColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablezbapo.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle zbapo ist DBNull.", e) End Try End Get Set Me(Me.tablezbapo.upsize_tsColumn) = value End Set End Property _ Public Property zbantRow() As zbantRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("zbapo_FK00")),zbantRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("zbapo_FK00")) End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablezbapo.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablezbapo.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class zbposRow Inherits Global.System.Data.DataRow Private tablezbpos As zbposDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablezbpos = CType(Me.Table,zbposDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tablezbpos.IDColumn),Integer) End Get Set Me(Me.tablezbpos.IDColumn) = value End Set End Property _ Public Property zbant_ID() As Integer Get Return CType(Me(Me.tablezbpos.zbant_IDColumn),Integer) End Get Set Me(Me.tablezbpos.zbant_IDColumn) = value End Set End Property _ Public Property zbpos_posnr() As Short Get Return CType(Me(Me.tablezbpos.zbpos_posnrColumn),Short) End Get Set Me(Me.tablezbpos.zbpos_posnrColumn) = value End Set End Property _ Public Property zbpos_wanr() As String Get Return CType(Me(Me.tablezbpos.zbpos_wanrColumn),String) End Get Set Me(Me.tablezbpos.zbpos_wanrColumn) = value End Set End Property _ Public Property zbpos_eigm() As Double Get Return CType(Me(Me.tablezbpos.zbpos_eigmColumn),Double) End Get Set Me(Me.tablezbpos.zbpos_eigmColumn) = value End Set End Property _ Public Property zbpos_wmahst() As Double Get Return CType(Me(Me.tablezbpos.zbpos_wmahstColumn),Double) End Get Set Me(Me.tablezbpos.zbpos_wmahstColumn) = value End Set End Property _ Public Property zbpos_wabes() As String Get Return CType(Me(Me.tablezbpos.zbpos_wabesColumn),String) End Get Set Me(Me.tablezbpos.zbpos_wabesColumn) = value End Set End Property _ Public Property zbpos_stat() As Short Get Return CType(Me(Me.tablezbpos.zbpos_statColumn),Short) End Get Set Me(Me.tablezbpos.zbpos_statColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablezbpos.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle zbpos ist DBNull.", e) End Try End Get Set Me(Me.tablezbpos.upsize_tsColumn) = value End Set End Property _ Public Property zbantRow() As zbantRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("zbpos_FK00")),zbantRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("zbpos_FK00")) End Set End Property _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablezbpos.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablezbpos.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class ZkteingRow Inherits Global.System.Data.DataRow Private tableZkteing As ZkteingDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableZkteing = CType(Me.Table,ZkteingDataTable) End Sub _ Public Property Index() As Integer Get Return CType(Me(Me.tableZkteing.IndexColumn),Integer) End Get Set Me(Me.tableZkteing.IndexColumn) = value End Set End Property _ Public Property Status() As String Get Try Return CType(Me(Me.tableZkteing.StatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.StatusColumn) = value End Set End Property _ Public Property ZollamtsNr() As Short Get Try Return CType(Me(Me.tableZkteing.ZollamtsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ZollamtsNr in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.ZollamtsNrColumn) = value End Set End Property _ Public Property Jahr() As Short Get Try Return CType(Me(Me.tableZkteing.JahrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Jahr in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.JahrColumn) = value End Set End Property _ Public Property KennNr() As Short Get Try Return CType(Me(Me.tableZkteing.KennNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KennNr in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.KennNrColumn) = value End Set End Property _ Public Property Nummer() As Integer Get Try Return CType(Me(Me.tableZkteing.NummerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nummer in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.NummerColumn) = value End Set End Property _ Public Property Leitzahl() As Short Get Try Return CType(Me(Me.tableZkteing.LeitzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Leitzahl in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.LeitzahlColumn) = value End Set End Property _ Public Property Belegart() As String Get Return CType(Me(Me.tableZkteing.BelegartColumn),String) End Get Set Me(Me.tableZkteing.BelegartColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tableZkteing.LeistungsNrColumn),Short) End Get Set Me(Me.tableZkteing.LeistungsNrColumn) = value End Set End Property _ Public Property Betrag() As Decimal Get Return CType(Me(Me.tableZkteing.BetragColumn),Decimal) End Get Set Me(Me.tableZkteing.BetragColumn) = value End Set End Property _ Public Property Eingabedatum() As Date Get Return CType(Me(Me.tableZkteing.EingabedatumColumn),Date) End Get Set Me(Me.tableZkteing.EingabedatumColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Try Return CType(Me(Me.tableZkteing.AbfertigungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsdatum in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.AbfertigungsdatumColumn) = value End Set End Property _ Public Property Übernahmedatum() As Date Get Return CType(Me(Me.tableZkteing.ÜbernahmedatumColumn),Date) End Get Set Me(Me.tableZkteing.ÜbernahmedatumColumn) = value End Set End Property _ Public Property Bemerkung() As String Get Try Return CType(Me(Me.tableZkteing.BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.BemerkungColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tableZkteing.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.SachbearbeiterColumn) = value End Set End Property _ Public Property Bezugsnummer() As String Get Return CType(Me(Me.tableZkteing.BezugsnummerColumn),String) End Get Set Me(Me.tableZkteing.BezugsnummerColumn) = value End Set End Property _ Public Property Registriernummer() As String Get Try Return CType(Me(Me.tableZkteing.RegistriernummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Registriernummer in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.RegistriernummerColumn) = value End Set End Property _ Public Property Korrekturnummer() As String Get Try Return CType(Me(Me.tableZkteing.KorrekturnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Korrekturnummer in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.KorrekturnummerColumn) = value End Set End Property _ Public Property AOFD() As String Get Try Return CType(Me(Me.tableZkteing.AOFDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AOFD in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.AOFDColumn) = value End Set End Property _ Public Property AKTO() As String Get Try Return CType(Me(Me.tableZkteing.AKTOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AKTO in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.AKTOColumn) = value End Set End Property _ Public Property Fälligkeitsdatum() As Date Get Try Return CType(Me(Me.tableZkteing.FälligkeitsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fälligkeitsdatum in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.FälligkeitsdatumColumn) = value End Set End Property _ Public Property Dateiname() As String Get Try Return CType(Me(Me.tableZkteing.DateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dateiname in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.DateinameColumn) = value End Set End Property _ Public Property Mandant() As String Get Try Return CType(Me(Me.tableZkteing.MandantColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Try Return CType(Me(Me.tableZkteing.NiederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Niederlassung in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.NiederlassungColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tableZkteing.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.upsize_tsColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Try Return CType(Me(Me.tableZkteing.LeistungsBezColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LeistungsBez in Tabelle Zkteing ist DBNull.", e) End Try End Get Set Me(Me.tableZkteing.LeistungsBezColumn) = value End Set End Property _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tableZkteing.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tableZkteing.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollamtsNrNull() As Boolean Return Me.IsNull(Me.tableZkteing.ZollamtsNrColumn) End Function _ Public Sub SetZollamtsNrNull() Me(Me.tableZkteing.ZollamtsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsJahrNull() As Boolean Return Me.IsNull(Me.tableZkteing.JahrColumn) End Function _ Public Sub SetJahrNull() Me(Me.tableZkteing.JahrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKennNrNull() As Boolean Return Me.IsNull(Me.tableZkteing.KennNrColumn) End Function _ Public Sub SetKennNrNull() Me(Me.tableZkteing.KennNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNummerNull() As Boolean Return Me.IsNull(Me.tableZkteing.NummerColumn) End Function _ Public Sub SetNummerNull() Me(Me.tableZkteing.NummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLeitzahlNull() As Boolean Return Me.IsNull(Me.tableZkteing.LeitzahlColumn) End Function _ Public Sub SetLeitzahlNull() Me(Me.tableZkteing.LeitzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsdatumNull() As Boolean Return Me.IsNull(Me.tableZkteing.AbfertigungsdatumColumn) End Function _ Public Sub SetAbfertigungsdatumNull() Me(Me.tableZkteing.AbfertigungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungNull() As Boolean Return Me.IsNull(Me.tableZkteing.BemerkungColumn) End Function _ Public Sub SetBemerkungNull() Me(Me.tableZkteing.BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tableZkteing.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tableZkteing.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRegistriernummerNull() As Boolean Return Me.IsNull(Me.tableZkteing.RegistriernummerColumn) End Function _ Public Sub SetRegistriernummerNull() Me(Me.tableZkteing.RegistriernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKorrekturnummerNull() As Boolean Return Me.IsNull(Me.tableZkteing.KorrekturnummerColumn) End Function _ Public Sub SetKorrekturnummerNull() Me(Me.tableZkteing.KorrekturnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAOFDNull() As Boolean Return Me.IsNull(Me.tableZkteing.AOFDColumn) End Function _ Public Sub SetAOFDNull() Me(Me.tableZkteing.AOFDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAKTONull() As Boolean Return Me.IsNull(Me.tableZkteing.AKTOColumn) End Function _ Public Sub SetAKTONull() Me(Me.tableZkteing.AKTOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFälligkeitsdatumNull() As Boolean Return Me.IsNull(Me.tableZkteing.FälligkeitsdatumColumn) End Function _ Public Sub SetFälligkeitsdatumNull() Me(Me.tableZkteing.FälligkeitsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateinameNull() As Boolean Return Me.IsNull(Me.tableZkteing.DateinameColumn) End Function _ Public Sub SetDateinameNull() Me(Me.tableZkteing.DateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMandantNull() As Boolean Return Me.IsNull(Me.tableZkteing.MandantColumn) End Function _ Public Sub SetMandantNull() Me(Me.tableZkteing.MandantColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNiederlassungNull() As Boolean Return Me.IsNull(Me.tableZkteing.NiederlassungColumn) End Function _ Public Sub SetNiederlassungNull() Me(Me.tableZkteing.NiederlassungColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tableZkteing.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tableZkteing.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLeistungsBezNull() As Boolean Return Me.IsNull(Me.tableZkteing.LeistungsBezColumn) End Function _ Public Sub SetLeistungsBezNull() Me(Me.tableZkteing.LeistungsBezColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class ZollsystemeRow Inherits Global.System.Data.DataRow Private tableZollsysteme As ZollsystemeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableZollsysteme = CType(Me.Table,ZollsystemeDataTable) End Sub _ Public Property Zollsystemart() As String Get Return CType(Me(Me.tableZollsysteme.ZollsystemartColumn),String) End Get Set Me(Me.tableZollsysteme.ZollsystemartColumn) = value End Set End Property _ Public Property ZollsystemBezeichnung() As String Get Try Return CType(Me(Me.tableZollsysteme.ZollsystemBezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ZollsystemBezeichnung in Tabelle Zollsysteme ist DBNull.", e) End Try End Get Set Me(Me.tableZollsysteme.ZollsystemBezeichnungColumn) = value End Set End Property _ Public Property ZollsystemLand() As String Get Try Return CType(Me(Me.tableZollsysteme.ZollsystemLandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ZollsystemLand in Tabelle Zollsysteme ist DBNull.", e) End Try End Get Set Me(Me.tableZollsysteme.ZollsystemLandColumn) = value End Set End Property _ Public Function IsZollsystemBezeichnungNull() As Boolean Return Me.IsNull(Me.tableZollsysteme.ZollsystemBezeichnungColumn) End Function _ Public Sub SetZollsystemBezeichnungNull() Me(Me.tableZollsysteme.ZollsystemBezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollsystemLandNull() As Boolean Return Me.IsNull(Me.tableZollsysteme.ZollsystemLandColumn) End Function _ Public Sub SetZollsystemLandNull() Me(Me.tableZollsysteme.ZollsystemLandColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Zulassungen_ZnVRow Inherits Global.System.Data.DataRow Private tableZulassungen_ZnV As Zulassungen_ZnVDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableZulassungen_ZnV = CType(Me.Table,Zulassungen_ZnVDataTable) End Sub _ Public Property Zulassungsinhaber() As String Get Return CType(Me(Me.tableZulassungen_ZnV.ZulassungsinhaberColumn),String) End Get Set Me(Me.tableZulassungen_ZnV.ZulassungsinhaberColumn) = value End Set End Property _ Public Property Bewilligungsnummer() As String Get Return CType(Me(Me.tableZulassungen_ZnV.BewilligungsnummerColumn),String) End Get Set Me(Me.tableZulassungen_ZnV.BewilligungsnummerColumn) = value End Set End Property _ Public Property SSMA_TimeStamp() As Byte() Get Try Return CType(Me(Me.tableZulassungen_ZnV.SSMA_TimeStampColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SSMA_TimeStamp in Tabelle Zulassungen ZnV ist DBNull.", e) End Try End Get Set Me(Me.tableZulassungen_ZnV.SSMA_TimeStampColumn) = value End Set End Property _ Public Function IsSSMA_TimeStampNull() As Boolean Return Me.IsNull(Me.tableZulassungen_ZnV.SSMA_TimeStampColumn) End Function _ Public Sub SetSSMA_TimeStampNull() Me(Me.tableZulassungen_ZnV.SSMA_TimeStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwKundenstammRow Inherits Global.System.Data.DataRow Private tablevwKundenstamm As vwKundenstammDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwKundenstamm = CType(Me.Table,vwKundenstammDataTable) End Sub _ Public Property Auswahl() As String Get Return CType(Me(Me.tablevwKundenstamm.AuswahlColumn),String) End Get Set Me(Me.tablevwKundenstamm.AuswahlColumn) = value End Set End Property _ Public Property AdressenNr() As Integer Get Return CType(Me(Me.tablevwKundenstamm.AdressenNrColumn),Integer) End Get Set Me(Me.tablevwKundenstamm.AdressenNrColumn) = value End Set End Property _ Public Property Ordnungsbegriff() As String Get Return CType(Me(Me.tablevwKundenstamm.OrdnungsbegriffColumn),String) End Get Set Me(Me.tablevwKundenstamm.OrdnungsbegriffColumn) = value End Set End Property _ Public Property Name_1() As String Get Try Return CType(Me(Me.tablevwKundenstamm.Name_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name 1 in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Name_1Column) = value End Set End Property _ Public Property Name_2() As String Get Try Return CType(Me(Me.tablevwKundenstamm.Name_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name 2 in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Name_2Column) = value End Set End Property _ Public Property Postfach() As String Get Try Return CType(Me(Me.tablevwKundenstamm.PostfachColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Postfach in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.PostfachColumn) = value End Set End Property _ Public Property PLZPF() As String Get Try Return CType(Me(Me.tablevwKundenstamm.PLZPFColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLZPF in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.PLZPFColumn) = value End Set End Property _ Public Property Straße() As String Get Try Return CType(Me(Me.tablevwKundenstamm.StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Straße in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.StraßeColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tablevwKundenstamm.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.LandKzColumn) = value End Set End Property _ Public Property PLZ() As String Get Try Return CType(Me(Me.tablevwKundenstamm.PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLZ in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.PLZColumn) = value End Set End Property _ Public Property Ort() As String Get Try Return CType(Me(Me.tablevwKundenstamm.OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ort in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.OrtColumn) = value End Set End Property _ Public Property Telefon() As String Get Try Return CType(Me(Me.tablevwKundenstamm.TelefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telefon in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.TelefonColumn) = value End Set End Property _ Public Property Telefax() As String Get Try Return CType(Me(Me.tablevwKundenstamm.TelefaxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telefax in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.TelefaxColumn) = value End Set End Property _ Public Property Mobiltelefon() As String Get Try Return CType(Me(Me.tablevwKundenstamm.MobiltelefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mobiltelefon in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.MobiltelefonColumn) = value End Set End Property _ Public Property _E_Mail() As String Get Try Return CType(Me(Me.tablevwKundenstamm._E_MailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte E-Mail in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm._E_MailColumn) = value End Set End Property _ Public Property _E_Mail2() As String Get Try Return CType(Me(Me.tablevwKundenstamm._E_Mail2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte E-Mail2 in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm._E_Mail2Column) = value End Set End Property _ Public Property Anrede() As String Get Try Return CType(Me(Me.tablevwKundenstamm.AnredeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anrede in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.AnredeColumn) = value End Set End Property _ Public Property Ansprechpartner() As String Get Try Return CType(Me(Me.tablevwKundenstamm.AnsprechpartnerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ansprechpartner in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.AnsprechpartnerColumn) = value End Set End Property _ Public Property UstIdKz() As String Get Try Return CType(Me(Me.tablevwKundenstamm.UstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdKz in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.UstIdKzColumn) = value End Set End Property _ Public Property UstIdNr() As String Get Try Return CType(Me(Me.tablevwKundenstamm.UstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdNr in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.UstIdNrColumn) = value End Set End Property _ Public Property UstIdGeprüft() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.UstIdGeprüftColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UstIdGeprüft in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.UstIdGeprüftColumn) = value End Set End Property _ Public Property BLZ() As String Get Try Return CType(Me(Me.tablevwKundenstamm.BLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BLZ in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.BLZColumn) = value End Set End Property _ Public Property KTO() As String Get Try Return CType(Me(Me.tablevwKundenstamm.KTOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KTO in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.KTOColumn) = value End Set End Property _ Public Property Eingegeben_am() As Date Get Return CType(Me(Me.tablevwKundenstamm.Eingegeben_amColumn),Date) End Get Set Me(Me.tablevwKundenstamm.Eingegeben_amColumn) = value End Set End Property _ Public Property Geändert_am() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Geändert_amColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Geändert am in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Geändert_amColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablevwKundenstamm.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.SachbearbeiterColumn) = value End Set End Property _ Public Property Rechnungsdruck() As Short Get Return CType(Me(Me.tablevwKundenstamm.RechnungsdruckColumn),Short) End Get Set Me(Me.tablevwKundenstamm.RechnungsdruckColumn) = value End Set End Property _ Public Property Steuernummer() As String Get Try Return CType(Me(Me.tablevwKundenstamm.SteuernummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuernummer in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.SteuernummerColumn) = value End Set End Property _ Public Property IDSKundenNr() As Integer Get Try Return CType(Me(Me.tablevwKundenstamm.IDSKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDSKundenNr in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.IDSKundenNrColumn) = value End Set End Property _ Public Property WölflKundenNr() As Integer Get Try Return CType(Me(Me.tablevwKundenstamm.WölflKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WölflKundenNr in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.WölflKundenNrColumn) = value End Set End Property _ Public Property MSEKundenNr() As Integer Get Try Return CType(Me(Me.tablevwKundenstamm.MSEKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MSEKundenNr in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.MSEKundenNrColumn) = value End Set End Property _ Public Property MSEExportCSV() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.MSEExportCSVColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MSEExportCSV in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.MSEExportCSVColumn) = value End Set End Property _ Public Property _TELEPASS_Kd_Nr() As Integer Get Try Return CType(Me(Me.tablevwKundenstamm._TELEPASS_Kd_NrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TELEPASS-Kd-Nr in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm._TELEPASS_Kd_NrColumn) = value End Set End Property _ Public Property ASFINAGExportCSV() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.ASFINAGExportCSVColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ASFINAGExportCSV in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.ASFINAGExportCSVColumn) = value End Set End Property _ Public Property UStV_GVAnfDat() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.UStV_GVAnfDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStV_GVAnfDat in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.UStV_GVAnfDatColumn) = value End Set End Property _ Public Property UStV_GVAusDat() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.UStV_GVAusDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStV_GVAusDat in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.UStV_GVAusDatColumn) = value End Set End Property _ Public Property ExportMautberichtCSV() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.ExportMautberichtCSVColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExportMautberichtCSV in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.ExportMautberichtCSVColumn) = value End Set End Property _ Public Property UTAKundenNr() As Integer Get Try Return CType(Me(Me.tablevwKundenstamm.UTAKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UTAKundenNr in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.UTAKundenNrColumn) = value End Set End Property _ Public Property UTAExportCSV() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.UTAExportCSVColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UTAExportCSV in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.UTAExportCSVColumn) = value End Set End Property _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tablevwKundenstamm.KundenNrColumn),Integer) End Get Set Me(Me.tablevwKundenstamm.KundenNrColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Return CType(Me(Me.tablevwKundenstamm.KundenNrZentraleColumn),Integer) End Get Set Me(Me.tablevwKundenstamm.KundenNrZentraleColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tablevwKundenstamm.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.FilialenNrColumn) = value End Set End Property _ Public Property Einmalige_Abfertigung() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.Einmalige_AbfertigungColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Einmalige Abfertigung in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Einmalige_AbfertigungColumn) = value End Set End Property _ Public Property Neutralisierung() As Short Get Try Return CType(Me(Me.tablevwKundenstamm.NeutralisierungColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Neutralisierung in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.NeutralisierungColumn) = value End Set End Property _ Public Property Avis() As Short Get Try Return CType(Me(Me.tablevwKundenstamm.AvisColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Avis in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.AvisColumn) = value End Set End Property _ Public Property Zollvollmacht() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.ZollvollmachtColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollvollmacht in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.ZollvollmachtColumn) = value End Set End Property _ Public Property Zollvollmacht_vom() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Zollvollmacht_vomColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollvollmacht vom in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Zollvollmacht_vomColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablevwKundenstamm.LastschriftColumn),Boolean) End Get Set Me(Me.tablevwKundenstamm.LastschriftColumn) = value End Set End Property _ Public Property Lastschrift_von() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Lastschrift_vonColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lastschrift von in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Lastschrift_vonColumn) = value End Set End Property _ Public Property Lastschrift_bis() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Lastschrift_bisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lastschrift bis in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Lastschrift_bisColumn) = value End Set End Property _ Public Property Rabattstaffel() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.RabattstaffelColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rabattstaffel in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.RabattstaffelColumn) = value End Set End Property _ Public Property SVS() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.SVSColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SVS in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.SVSColumn) = value End Set End Property _ Public Property _Vorlageprovision__() As Single Get Return CType(Me(Me.tablevwKundenstamm._Vorlageprovision__Column),Single) End Get Set Me(Me.tablevwKundenstamm._Vorlageprovision__Column) = value End Set End Property _ Public Property _Kreditaufwendungen__() As Single Get Return CType(Me(Me.tablevwKundenstamm._Kreditaufwendungen__Column),Single) End Get Set Me(Me.tablevwKundenstamm._Kreditaufwendungen__Column) = value End Set End Property _ Public Property _Bankspesen__() As Single Get Return CType(Me(Me.tablevwKundenstamm._Bankspesen__Column),Single) End Get Set Me(Me.tablevwKundenstamm._Bankspesen__Column) = value End Set End Property _ Public Property Bankspesen_Mindestbetrag() As Decimal Get Return CType(Me(Me.tablevwKundenstamm.Bankspesen_MindestbetragColumn),Decimal) End Get Set Me(Me.tablevwKundenstamm.Bankspesen_MindestbetragColumn) = value End Set End Property _ Public Property Besonderheiten() As String Get Try Return CType(Me(Me.tablevwKundenstamm.BesonderheitenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Besonderheiten in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.BesonderheitenColumn) = value End Set End Property _ Public Property Sammelrechnung() As Short Get Return CType(Me(Me.tablevwKundenstamm.SammelrechnungColumn),Short) End Get Set Me(Me.tablevwKundenstamm.SammelrechnungColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Return CType(Me(Me.tablevwKundenstamm.SteuerschlüsselColumn),Short) End Get Set Me(Me.tablevwKundenstamm.SteuerschlüsselColumn) = value End Set End Property _ Public Property Referenznummer() As String Get Try Return CType(Me(Me.tablevwKundenstamm.ReferenznummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Referenznummer in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.ReferenznummerColumn) = value End Set End Property _ Public Property Antragssumme() As Decimal Get Try Return CType(Me(Me.tablevwKundenstamm.AntragssummeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Antragssumme in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.AntragssummeColumn) = value End Set End Property _ Public Property Antrag_vom() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Antrag_vomColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Antrag vom in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Antrag_vomColumn) = value End Set End Property _ Public Property Versicherungssumme() As Decimal Get Try Return CType(Me(Me.tablevwKundenstamm.VersicherungssummeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Versicherungssumme in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.VersicherungssummeColumn) = value End Set End Property _ Public Property Entscheidung_vom() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Entscheidung_vomColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Entscheidung vom in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Entscheidung_vomColumn) = value End Set End Property _ Public Property Kreditlimit() As Decimal Get Try Return CType(Me(Me.tablevwKundenstamm.KreditlimitColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kreditlimit in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.KreditlimitColumn) = value End Set End Property _ Public Property Kreditlimit_vom() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Kreditlimit_vomColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kreditlimit vom in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Kreditlimit_vomColumn) = value End Set End Property _ Public Property Info() As String Get Try Return CType(Me(Me.tablevwKundenstamm.InfoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Info in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.InfoColumn) = value End Set End Property _ Public Property Überwachungskunde() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.ÜberwachungskundeColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Überwachungskunde in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.ÜberwachungskundeColumn) = value End Set End Property _ Public Property Abfertigungsverbot() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.AbfertigungsverbotColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsverbot in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.AbfertigungsverbotColumn) = value End Set End Property _ Public Property Abfertigungsverbot_seit() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Abfertigungsverbot_seitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsverbot seit in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Abfertigungsverbot_seitColumn) = value End Set End Property _ Public Property Abfertigungsverbot_Grund() As String Get Try Return CType(Me(Me.tablevwKundenstamm.Abfertigungsverbot_GrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsverbot Grund in Tabelle vwKundenstamm ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablevwKundenstamm.Abfertigungsverbot_GrundColumn) = value End Set End Property _ Public Property Rechtsanwalt() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.RechtsanwaltColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechtsanwalt in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.RechtsanwaltColumn) = value End Set End Property _ Public Property Rechtsanwalt_seit() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Rechtsanwalt_seitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechtsanwalt seit in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Rechtsanwalt_seitColumn) = value End Set End Property _ Public Property Expr1() As Date Get Return CType(Me(Me.tablevwKundenstamm.Expr1Column),Date) End Get Set Me(Me.tablevwKundenstamm.Expr1Column) = value End Set End Property _ Public Property Expr2() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Expr2Column),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Expr2 in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Expr2Column) = value End Set End Property _ Public Property Expr3() As String Get Try Return CType(Me(Me.tablevwKundenstamm.Expr3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Expr3 in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Expr3Column) = value End Set End Property _ Public Property LfdSaldo() As Decimal Get Try Return CType(Me(Me.tablevwKundenstamm.LfdSaldoColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LfdSaldo in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.LfdSaldoColumn) = value End Set End Property _ Public Property Erste_Abfertigung() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.Erste_AbfertigungColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erste Abfertigung in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Erste_AbfertigungColumn) = value End Set End Property _ Public Property Vorkasse() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.VorkasseColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorkasse in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.VorkasseColumn) = value End Set End Property _ Public Property Zahlungsinformationen() As String Get Try Return CType(Me(Me.tablevwKundenstamm.ZahlungsinformationenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsinformationen in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.ZahlungsinformationenColumn) = value End Set End Property _ Public Property EORITIN() As String Get Try Return CType(Me(Me.tablevwKundenstamm.EORITINColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EORITIN in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.EORITINColumn) = value End Set End Property _ Public Property Zollnummer() As String Get Try Return CType(Me(Me.tablevwKundenstamm.ZollnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zollnummer in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.ZollnummerColumn) = value End Set End Property _ Public Property ZulassungsNr_ZnV() As String Get Try Return CType(Me(Me.tablevwKundenstamm.ZulassungsNr_ZnVColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ZulassungsNr ZnV in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.ZulassungsNr_ZnVColumn) = value End Set End Property _ Public Property Aufschubkonto_EUSt() As String Get Try Return CType(Me(Me.tablevwKundenstamm.Aufschubkonto_EUStColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aufschubkonto EUSt in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Aufschubkonto_EUStColumn) = value End Set End Property _ Public Property Aufschubkonto_Zoll() As String Get Try Return CType(Me(Me.tablevwKundenstamm.Aufschubkonto_ZollColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aufschubkonto Zoll in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.Aufschubkonto_ZollColumn) = value End Set End Property _ Public Property Währungscode() As String Get Return CType(Me(Me.tablevwKundenstamm.WährungscodeColumn),String) End Get Set Me(Me.tablevwKundenstamm.WährungscodeColumn) = value End Set End Property _ Public Property Euroeinführung() As Date Get Return CType(Me(Me.tablevwKundenstamm.EuroeinführungColumn),Date) End Get Set Me(Me.tablevwKundenstamm.EuroeinführungColumn) = value End Set End Property _ Public Property LetzteRechnungsNr() As Integer Get Try Return CType(Me(Me.tablevwKundenstamm.LetzteRechnungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LetzteRechnungsNr in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.LetzteRechnungsNrColumn) = value End Set End Property _ Public Property LetztesRechnungsDatum() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.LetztesRechnungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LetztesRechnungsDatum in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.LetztesRechnungsDatumColumn) = value End Set End Property _ Public Property Konzernkonto() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.KonzernkontoColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Konzernkonto in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.KonzernkontoColumn) = value End Set End Property _ Public Property FiBuSchnittstelle() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.FiBuSchnittstelleColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FiBuSchnittstelle in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.FiBuSchnittstelleColumn) = value End Set End Property _ Public Property Planzahl() As Integer Get Try Return CType(Me(Me.tablevwKundenstamm.PlanzahlColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Planzahl in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.PlanzahlColumn) = value End Set End Property _ Public Property Gesprächsbericht() As String Get Try Return CType(Me(Me.tablevwKundenstamm.GesprächsberichtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesprächsbericht in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.GesprächsberichtColumn) = value End Set End Property _ Public Property Bonität() As Short Get Try Return CType(Me(Me.tablevwKundenstamm.BonitätColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bonität in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.BonitätColumn) = value End Set End Property _ Public Property Bonitätsdatum() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.BonitätsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bonitätsdatum in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.BonitätsdatumColumn) = value End Set End Property _ Public Property Zahlungsziel() As Short Get Try Return CType(Me(Me.tablevwKundenstamm.ZahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsziel in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.ZahlungszielColumn) = value End Set End Property _ Public Property UStV_SummeUmsatzsteuerbetragEUR() As Decimal Get Return CType(Me(Me.tablevwKundenstamm.UStV_SummeUmsatzsteuerbetragEURColumn),Decimal) End Get Set Me(Me.tablevwKundenstamm.UStV_SummeUmsatzsteuerbetragEURColumn) = value End Set End Property _ Public Property UStV_SummeErstattungsbetragEUR() As Decimal Get Return CType(Me(Me.tablevwKundenstamm.UStV_SummeErstattungsbetragEURColumn),Decimal) End Get Set Me(Me.tablevwKundenstamm.UStV_SummeErstattungsbetragEURColumn) = value End Set End Property _ Public Property UStV_Summe3470BetragEUR() As Decimal Get Return CType(Me(Me.tablevwKundenstamm.UStV_Summe3470BetragEURColumn),Decimal) End Get Set Me(Me.tablevwKundenstamm.UStV_Summe3470BetragEURColumn) = value End Set End Property _ Public Property UStV_SummeVZBetragEUR() As Decimal Get Return CType(Me(Me.tablevwKundenstamm.UStV_SummeVZBetragEURColumn),Decimal) End Get Set Me(Me.tablevwKundenstamm.UStV_SummeVZBetragEURColumn) = value End Set End Property _ Public Property UStV_SummeVorschaubetragEUR() As Decimal Get Return CType(Me(Me.tablevwKundenstamm.UStV_SummeVorschaubetragEURColumn),Decimal) End Get Set Me(Me.tablevwKundenstamm.UStV_SummeVorschaubetragEURColumn) = value End Set End Property _ Public Property UStV_SummeVorschaubetragEUR_VERAG() As Decimal Get Return CType(Me(Me.tablevwKundenstamm.UStV_SummeVorschaubetragEUR_VERAGColumn),Decimal) End Get Set Me(Me.tablevwKundenstamm.UStV_SummeVorschaubetragEUR_VERAGColumn) = value End Set End Property _ Public Property UStV_SummeVorschaubetragEUR_IDS() As Decimal Get Return CType(Me(Me.tablevwKundenstamm.UStV_SummeVorschaubetragEUR_IDSColumn),Decimal) End Get Set Me(Me.tablevwKundenstamm.UStV_SummeVorschaubetragEUR_IDSColumn) = value End Set End Property _ Public Property Fiskal() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.FiskalColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fiskal in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.FiskalColumn) = value End Set End Property _ Public Property Ausfuhr() As Boolean Get Try Return CType(Me(Me.tablevwKundenstamm.AusfuhrColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ausfuhr in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.AusfuhrColumn) = value End Set End Property _ Public Property BankgarantieBetrag() As Decimal Get Try Return CType(Me(Me.tablevwKundenstamm.BankgarantieBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BankgarantieBetrag in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.BankgarantieBetragColumn) = value End Set End Property _ Public Property BankgarantieGültigBis() As Date Get Try Return CType(Me(Me.tablevwKundenstamm.BankgarantieGültigBisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BankgarantieGültigBis in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.BankgarantieGültigBisColumn) = value End Set End Property _ Public Property KD_Korrespondenz() As String Get Try Return CType(Me(Me.tablevwKundenstamm.KD_KorrespondenzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KD_Korrespondenz in Tabelle vwKundenstamm ist DBNull.", e) End Try End Get Set Me(Me.tablevwKundenstamm.KD_KorrespondenzColumn) = value End Set End Property _ Public Function IsName_1Null() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Name_1Column) End Function _ Public Sub SetName_1Null() Me(Me.tablevwKundenstamm.Name_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsName_2Null() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Name_2Column) End Function _ Public Sub SetName_2Null() Me(Me.tablevwKundenstamm.Name_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsPostfachNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.PostfachColumn) End Function _ Public Sub SetPostfachNull() Me(Me.tablevwKundenstamm.PostfachColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPLZPFNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.PLZPFColumn) End Function _ Public Sub SetPLZPFNull() Me(Me.tablevwKundenstamm.PLZPFColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStraßeNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.StraßeColumn) End Function _ Public Sub SetStraßeNull() Me(Me.tablevwKundenstamm.StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tablevwKundenstamm.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPLZNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.PLZColumn) End Function _ Public Sub SetPLZNull() Me(Me.tablevwKundenstamm.PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOrtNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.OrtColumn) End Function _ Public Sub SetOrtNull() Me(Me.tablevwKundenstamm.OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelefonNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.TelefonColumn) End Function _ Public Sub SetTelefonNull() Me(Me.tablevwKundenstamm.TelefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTelefaxNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.TelefaxColumn) End Function _ Public Sub SetTelefaxNull() Me(Me.tablevwKundenstamm.TelefaxColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMobiltelefonNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.MobiltelefonColumn) End Function _ Public Sub SetMobiltelefonNull() Me(Me.tablevwKundenstamm.MobiltelefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_E_MailNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm._E_MailColumn) End Function _ Public Sub Set_E_MailNull() Me(Me.tablevwKundenstamm._E_MailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_E_Mail2Null() As Boolean Return Me.IsNull(Me.tablevwKundenstamm._E_Mail2Column) End Function _ Public Sub Set_E_Mail2Null() Me(Me.tablevwKundenstamm._E_Mail2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnredeNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.AnredeColumn) End Function _ Public Sub SetAnredeNull() Me(Me.tablevwKundenstamm.AnredeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnsprechpartnerNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.AnsprechpartnerColumn) End Function _ Public Sub SetAnsprechpartnerNull() Me(Me.tablevwKundenstamm.AnsprechpartnerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdKzNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.UstIdKzColumn) End Function _ Public Sub SetUstIdKzNull() Me(Me.tablevwKundenstamm.UstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdNrNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.UstIdNrColumn) End Function _ Public Sub SetUstIdNrNull() Me(Me.tablevwKundenstamm.UstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUstIdGeprüftNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.UstIdGeprüftColumn) End Function _ Public Sub SetUstIdGeprüftNull() Me(Me.tablevwKundenstamm.UstIdGeprüftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBLZNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.BLZColumn) End Function _ Public Sub SetBLZNull() Me(Me.tablevwKundenstamm.BLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKTONull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.KTOColumn) End Function _ Public Sub SetKTONull() Me(Me.tablevwKundenstamm.KTOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGeändert_amNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Geändert_amColumn) End Function _ Public Sub SetGeändert_amNull() Me(Me.tablevwKundenstamm.Geändert_amColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablevwKundenstamm.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuernummerNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.SteuernummerColumn) End Function _ Public Sub SetSteuernummerNull() Me(Me.tablevwKundenstamm.SteuernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDSKundenNrNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.IDSKundenNrColumn) End Function _ Public Sub SetIDSKundenNrNull() Me(Me.tablevwKundenstamm.IDSKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWölflKundenNrNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.WölflKundenNrColumn) End Function _ Public Sub SetWölflKundenNrNull() Me(Me.tablevwKundenstamm.WölflKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMSEKundenNrNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.MSEKundenNrColumn) End Function _ Public Sub SetMSEKundenNrNull() Me(Me.tablevwKundenstamm.MSEKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMSEExportCSVNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.MSEExportCSVColumn) End Function _ Public Sub SetMSEExportCSVNull() Me(Me.tablevwKundenstamm.MSEExportCSVColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_TELEPASS_Kd_NrNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm._TELEPASS_Kd_NrColumn) End Function _ Public Sub Set_TELEPASS_Kd_NrNull() Me(Me.tablevwKundenstamm._TELEPASS_Kd_NrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsASFINAGExportCSVNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.ASFINAGExportCSVColumn) End Function _ Public Sub SetASFINAGExportCSVNull() Me(Me.tablevwKundenstamm.ASFINAGExportCSVColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStV_GVAnfDatNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.UStV_GVAnfDatColumn) End Function _ Public Sub SetUStV_GVAnfDatNull() Me(Me.tablevwKundenstamm.UStV_GVAnfDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStV_GVAusDatNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.UStV_GVAusDatColumn) End Function _ Public Sub SetUStV_GVAusDatNull() Me(Me.tablevwKundenstamm.UStV_GVAusDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExportMautberichtCSVNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.ExportMautberichtCSVColumn) End Function _ Public Sub SetExportMautberichtCSVNull() Me(Me.tablevwKundenstamm.ExportMautberichtCSVColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUTAKundenNrNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.UTAKundenNrColumn) End Function _ Public Sub SetUTAKundenNrNull() Me(Me.tablevwKundenstamm.UTAKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUTAExportCSVNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.UTAExportCSVColumn) End Function _ Public Sub SetUTAExportCSVNull() Me(Me.tablevwKundenstamm.UTAExportCSVColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tablevwKundenstamm.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEinmalige_AbfertigungNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Einmalige_AbfertigungColumn) End Function _ Public Sub SetEinmalige_AbfertigungNull() Me(Me.tablevwKundenstamm.Einmalige_AbfertigungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNeutralisierungNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.NeutralisierungColumn) End Function _ Public Sub SetNeutralisierungNull() Me(Me.tablevwKundenstamm.NeutralisierungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.AvisColumn) End Function _ Public Sub SetAvisNull() Me(Me.tablevwKundenstamm.AvisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollvollmachtNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.ZollvollmachtColumn) End Function _ Public Sub SetZollvollmachtNull() Me(Me.tablevwKundenstamm.ZollvollmachtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollvollmacht_vomNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Zollvollmacht_vomColumn) End Function _ Public Sub SetZollvollmacht_vomNull() Me(Me.tablevwKundenstamm.Zollvollmacht_vomColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLastschrift_vonNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Lastschrift_vonColumn) End Function _ Public Sub SetLastschrift_vonNull() Me(Me.tablevwKundenstamm.Lastschrift_vonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLastschrift_bisNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Lastschrift_bisColumn) End Function _ Public Sub SetLastschrift_bisNull() Me(Me.tablevwKundenstamm.Lastschrift_bisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRabattstaffelNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.RabattstaffelColumn) End Function _ Public Sub SetRabattstaffelNull() Me(Me.tablevwKundenstamm.RabattstaffelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSVSNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.SVSColumn) End Function _ Public Sub SetSVSNull() Me(Me.tablevwKundenstamm.SVSColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBesonderheitenNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.BesonderheitenColumn) End Function _ Public Sub SetBesonderheitenNull() Me(Me.tablevwKundenstamm.BesonderheitenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReferenznummerNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.ReferenznummerColumn) End Function _ Public Sub SetReferenznummerNull() Me(Me.tablevwKundenstamm.ReferenznummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAntragssummeNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.AntragssummeColumn) End Function _ Public Sub SetAntragssummeNull() Me(Me.tablevwKundenstamm.AntragssummeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAntrag_vomNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Antrag_vomColumn) End Function _ Public Sub SetAntrag_vomNull() Me(Me.tablevwKundenstamm.Antrag_vomColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVersicherungssummeNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.VersicherungssummeColumn) End Function _ Public Sub SetVersicherungssummeNull() Me(Me.tablevwKundenstamm.VersicherungssummeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEntscheidung_vomNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Entscheidung_vomColumn) End Function _ Public Sub SetEntscheidung_vomNull() Me(Me.tablevwKundenstamm.Entscheidung_vomColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKreditlimitNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.KreditlimitColumn) End Function _ Public Sub SetKreditlimitNull() Me(Me.tablevwKundenstamm.KreditlimitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKreditlimit_vomNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Kreditlimit_vomColumn) End Function _ Public Sub SetKreditlimit_vomNull() Me(Me.tablevwKundenstamm.Kreditlimit_vomColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsInfoNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.InfoColumn) End Function _ Public Sub SetInfoNull() Me(Me.tablevwKundenstamm.InfoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsÜberwachungskundeNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.ÜberwachungskundeColumn) End Function _ Public Sub SetÜberwachungskundeNull() Me(Me.tablevwKundenstamm.ÜberwachungskundeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsverbotNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.AbfertigungsverbotColumn) End Function _ Public Sub SetAbfertigungsverbotNull() Me(Me.tablevwKundenstamm.AbfertigungsverbotColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsverbot_seitNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Abfertigungsverbot_seitColumn) End Function _ Public Sub SetAbfertigungsverbot_seitNull() Me(Me.tablevwKundenstamm.Abfertigungsverbot_seitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsverbot_GrundNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Abfertigungsverbot_GrundColumn) End Function _ Public Sub SetAbfertigungsverbot_GrundNull() Me(Me.tablevwKundenstamm.Abfertigungsverbot_GrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechtsanwaltNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.RechtsanwaltColumn) End Function _ Public Sub SetRechtsanwaltNull() Me(Me.tablevwKundenstamm.RechtsanwaltColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechtsanwalt_seitNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Rechtsanwalt_seitColumn) End Function _ Public Sub SetRechtsanwalt_seitNull() Me(Me.tablevwKundenstamm.Rechtsanwalt_seitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExpr2Null() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Expr2Column) End Function _ Public Sub SetExpr2Null() Me(Me.tablevwKundenstamm.Expr2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsExpr3Null() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Expr3Column) End Function _ Public Sub SetExpr3Null() Me(Me.tablevwKundenstamm.Expr3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsLfdSaldoNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.LfdSaldoColumn) End Function _ Public Sub SetLfdSaldoNull() Me(Me.tablevwKundenstamm.LfdSaldoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErste_AbfertigungNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Erste_AbfertigungColumn) End Function _ Public Sub SetErste_AbfertigungNull() Me(Me.tablevwKundenstamm.Erste_AbfertigungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorkasseNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.VorkasseColumn) End Function _ Public Sub SetVorkasseNull() Me(Me.tablevwKundenstamm.VorkasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungsinformationenNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.ZahlungsinformationenColumn) End Function _ Public Sub SetZahlungsinformationenNull() Me(Me.tablevwKundenstamm.ZahlungsinformationenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEORITINNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.EORITINColumn) End Function _ Public Sub SetEORITINNull() Me(Me.tablevwKundenstamm.EORITINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollnummerNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.ZollnummerColumn) End Function _ Public Sub SetZollnummerNull() Me(Me.tablevwKundenstamm.ZollnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZulassungsNr_ZnVNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.ZulassungsNr_ZnVColumn) End Function _ Public Sub SetZulassungsNr_ZnVNull() Me(Me.tablevwKundenstamm.ZulassungsNr_ZnVColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubkonto_EUStNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Aufschubkonto_EUStColumn) End Function _ Public Sub SetAufschubkonto_EUStNull() Me(Me.tablevwKundenstamm.Aufschubkonto_EUStColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubkonto_ZollNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.Aufschubkonto_ZollColumn) End Function _ Public Sub SetAufschubkonto_ZollNull() Me(Me.tablevwKundenstamm.Aufschubkonto_ZollColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLetzteRechnungsNrNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.LetzteRechnungsNrColumn) End Function _ Public Sub SetLetzteRechnungsNrNull() Me(Me.tablevwKundenstamm.LetzteRechnungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLetztesRechnungsDatumNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.LetztesRechnungsDatumColumn) End Function _ Public Sub SetLetztesRechnungsDatumNull() Me(Me.tablevwKundenstamm.LetztesRechnungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKonzernkontoNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.KonzernkontoColumn) End Function _ Public Sub SetKonzernkontoNull() Me(Me.tablevwKundenstamm.KonzernkontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiBuSchnittstelleNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.FiBuSchnittstelleColumn) End Function _ Public Sub SetFiBuSchnittstelleNull() Me(Me.tablevwKundenstamm.FiBuSchnittstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPlanzahlNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.PlanzahlColumn) End Function _ Public Sub SetPlanzahlNull() Me(Me.tablevwKundenstamm.PlanzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesprächsberichtNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.GesprächsberichtColumn) End Function _ Public Sub SetGesprächsberichtNull() Me(Me.tablevwKundenstamm.GesprächsberichtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBonitätNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.BonitätColumn) End Function _ Public Sub SetBonitätNull() Me(Me.tablevwKundenstamm.BonitätColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBonitätsdatumNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.BonitätsdatumColumn) End Function _ Public Sub SetBonitätsdatumNull() Me(Me.tablevwKundenstamm.BonitätsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZahlungszielNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.ZahlungszielColumn) End Function _ Public Sub SetZahlungszielNull() Me(Me.tablevwKundenstamm.ZahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFiskalNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.FiskalColumn) End Function _ Public Sub SetFiskalNull() Me(Me.tablevwKundenstamm.FiskalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAusfuhrNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.AusfuhrColumn) End Function _ Public Sub SetAusfuhrNull() Me(Me.tablevwKundenstamm.AusfuhrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBankgarantieBetragNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.BankgarantieBetragColumn) End Function _ Public Sub SetBankgarantieBetragNull() Me(Me.tablevwKundenstamm.BankgarantieBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBankgarantieGültigBisNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.BankgarantieGültigBisColumn) End Function _ Public Sub SetBankgarantieGültigBisNull() Me(Me.tablevwKundenstamm.BankgarantieGültigBisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKD_KorrespondenzNull() As Boolean Return Me.IsNull(Me.tablevwKundenstamm.KD_KorrespondenzColumn) End Function _ Public Sub SetKD_KorrespondenzNull() Me(Me.tablevwKundenstamm.KD_KorrespondenzColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwReErfAuswahlRow Inherits Global.System.Data.DataRow Private tablevwReErfAuswahl As vwReErfAuswahlDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwReErfAuswahl = CType(Me.Table,vwReErfAuswahlDataTable) End Sub _ Public Property RechnungsName_1() As String Get Try Return CType(Me(Me.tablevwReErfAuswahl.RechnungsName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsName 1 in Tabelle vwReErfAuswahl ist DBNull.", e) End Try End Get Set Me(Me.tablevwReErfAuswahl.RechnungsName_1Column) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Return CType(Me(Me.tablevwReErfAuswahl.RechnungsKundenNrColumn),Integer) End Get Set Me(Me.tablevwReErfAuswahl.RechnungsKundenNrColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tablevwReErfAuswahl.FilialenNrColumn),Short) End Get Set Me(Me.tablevwReErfAuswahl.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tablevwReErfAuswahl.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tablevwReErfAuswahl.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tablevwReErfAuswahl.UnterNrColumn),Short) End Get Set Me(Me.tablevwReErfAuswahl.UnterNrColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablevwReErfAuswahl.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle vwReErfAuswahl ist DBNull.", e) End Try End Get Set Me(Me.tablevwReErfAuswahl.SachbearbeiterColumn) = value End Set End Property _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tablevwReErfAuswahl.RK_IDColumn),Integer) End Get Set Me(Me.tablevwReErfAuswahl.RK_IDColumn) = value End Set End Property _ Public Function IsRechnungsName_1Null() As Boolean Return Me.IsNull(Me.tablevwReErfAuswahl.RechnungsName_1Column) End Function _ Public Sub SetRechnungsName_1Null() Me(Me.tablevwReErfAuswahl.RechnungsName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablevwReErfAuswahl.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablevwReErfAuswahl.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwTrdinHeaderRow Inherits Global.System.Data.DataRow Private tablevwTrdinHeader As vwTrdinHeaderDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwTrdinHeader = CType(Me.Table,vwTrdinHeaderDataTable) End Sub _ Public Property Speditionsbuch() As Short Get Return CType(Me(Me.tablevwTrdinHeader.SpeditionsbuchColumn),Short) End Get Set Me(Me.tablevwTrdinHeader.SpeditionsbuchColumn) = value End Set End Property _ Public Property Company_code() As String Get Return CType(Me(Me.tablevwTrdinHeader.Company_codeColumn),String) End Get Set Me(Me.tablevwTrdinHeader.Company_codeColumn) = value End Set End Property _ Public Property Depot_code() As String Get Try Return CType(Me(Me.tablevwTrdinHeader.Depot_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Depot_code in Tabelle vwTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinHeader.Depot_codeColumn) = value End Set End Property _ Public Property Send_number() As Integer Get Return CType(Me(Me.tablevwTrdinHeader.Send_numberColumn),Integer) End Get Set Me(Me.tablevwTrdinHeader.Send_numberColumn) = value End Set End Property _ Public Property Send_date() As Date Get Try Return CType(Me(Me.tablevwTrdinHeader.Send_dateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Send_date in Tabelle vwTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinHeader.Send_dateColumn) = value End Set End Property _ Public Property Computer_location() As String Get Return CType(Me(Me.tablevwTrdinHeader.Computer_locationColumn),String) End Get Set Me(Me.tablevwTrdinHeader.Computer_locationColumn) = value End Set End Property _ Public Property Message_type() As String Get Return CType(Me(Me.tablevwTrdinHeader.Message_typeColumn),String) End Get Set Me(Me.tablevwTrdinHeader.Message_typeColumn) = value End Set End Property _ Public Property Fm_net_address() As String Get Return CType(Me(Me.tablevwTrdinHeader.Fm_net_addressColumn),String) End Get Set Me(Me.tablevwTrdinHeader.Fm_net_addressColumn) = value End Set End Property _ Public Property Accounting_date() As Date Get Return CType(Me(Me.tablevwTrdinHeader.Accounting_dateColumn),Date) End Get Set Me(Me.tablevwTrdinHeader.Accounting_dateColumn) = value End Set End Property _ Public Property Currency_code() As String Get Return CType(Me(Me.tablevwTrdinHeader.Currency_codeColumn),String) End Get Set Me(Me.tablevwTrdinHeader.Currency_codeColumn) = value End Set End Property _ Public Property Country_code_dispatch() As String Get Return CType(Me(Me.tablevwTrdinHeader.Country_code_dispatchColumn),String) End Get Set Me(Me.tablevwTrdinHeader.Country_code_dispatchColumn) = value End Set End Property _ Public Property Vat_number_dispatch() As String Get Return CType(Me(Me.tablevwTrdinHeader.Vat_number_dispatchColumn),String) End Get Set Me(Me.tablevwTrdinHeader.Vat_number_dispatchColumn) = value End Set End Property _ Public Property Vat_code_I() As String Get Return CType(Me(Me.tablevwTrdinHeader.Vat_code_IColumn),String) End Get Set Me(Me.tablevwTrdinHeader.Vat_code_IColumn) = value End Set End Property _ Public Property Vat_code_S0() As String Get Return CType(Me(Me.tablevwTrdinHeader.Vat_code_S0Column),String) End Get Set Me(Me.tablevwTrdinHeader.Vat_code_S0Column) = value End Set End Property _ Public Property Vat_code_S1() As String Get Return CType(Me(Me.tablevwTrdinHeader.Vat_code_S1Column),String) End Get Set Me(Me.tablevwTrdinHeader.Vat_code_S1Column) = value End Set End Property _ Public Property Vat_code_X() As String Get Return CType(Me(Me.tablevwTrdinHeader.Vat_code_XColumn),String) End Get Set Me(Me.tablevwTrdinHeader.Vat_code_XColumn) = value End Set End Property _ Public Property Pfad1() As String Get Return CType(Me(Me.tablevwTrdinHeader.Pfad1Column),String) End Get Set Me(Me.tablevwTrdinHeader.Pfad1Column) = value End Set End Property _ Public Property Pfad2() As String Get Return CType(Me(Me.tablevwTrdinHeader.Pfad2Column),String) End Get Set Me(Me.tablevwTrdinHeader.Pfad2Column) = value End Set End Property _ Public Property Datei() As String Get Try Return CType(Me(Me.tablevwTrdinHeader.DateiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datei in Tabelle vwTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinHeader.DateiColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablevwTrdinHeader.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle vwTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinHeader.upsize_tsColumn) = value End Set End Property _ Public Function IsDepot_codeNull() As Boolean Return Me.IsNull(Me.tablevwTrdinHeader.Depot_codeColumn) End Function _ Public Sub SetDepot_codeNull() Me(Me.tablevwTrdinHeader.Depot_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSend_dateNull() As Boolean Return Me.IsNull(Me.tablevwTrdinHeader.Send_dateColumn) End Function _ Public Sub SetSend_dateNull() Me(Me.tablevwTrdinHeader.Send_dateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateiNull() As Boolean Return Me.IsNull(Me.tablevwTrdinHeader.DateiColumn) End Function _ Public Sub SetDateiNull() Me(Me.tablevwTrdinHeader.DateiColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablevwTrdinHeader.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablevwTrdinHeader.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwTrdinInvoiceRow Inherits Global.System.Data.DataRow Private tablevwTrdinInvoice As vwTrdinInvoiceDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwTrdinInvoice = CType(Me.Table,vwTrdinInvoiceDataTable) End Sub _ Public Property Rechnungsdatum() As Date Get Return CType(Me(Me.tablevwTrdinInvoice.RechnungsdatumColumn),Date) End Get Set Me(Me.tablevwTrdinInvoice.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Return CType(Me(Me.tablevwTrdinInvoice.RechnungsnummerColumn),Integer) End Get Set Me(Me.tablevwTrdinInvoice.RechnungsnummerColumn) = value End Set End Property _ Public Property Speditionsbuch() As Short Get Try Return CType(Me(Me.tablevwTrdinInvoice.SpeditionsbuchColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Speditionsbuch in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.SpeditionsbuchColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tablevwTrdinInvoice.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tablevwTrdinInvoice.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Try Return CType(Me(Me.tablevwTrdinInvoice.UnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UnterNr in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Try Return CType(Me(Me.tablevwTrdinInvoice.AbfertigungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsdatum in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.AbfertigungsdatumColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Try Return CType(Me(Me.tablevwTrdinInvoice.BelegartenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegartenNr in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.BelegartenNrColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Try Return CType(Me(Me.tablevwTrdinInvoice.KundenNrZentraleColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNrZentrale in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.KundenNrZentraleColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Try Return CType(Me(Me.tablevwTrdinInvoice.RechnungsKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsKundenNr in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.RechnungsKundenNrColumn) = value End Set End Property _ Public Property RechnungsLandKz() As String Get Try Return CType(Me(Me.tablevwTrdinInvoice.RechnungsLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsLandKz in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.RechnungsLandKzColumn) = value End Set End Property _ Public Property RechnungsUstIdKz() As String Get Try Return CType(Me(Me.tablevwTrdinInvoice.RechnungsUstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdKz in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.RechnungsUstIdKzColumn) = value End Set End Property _ Public Property RechnungsUstIdNr() As String Get Try Return CType(Me(Me.tablevwTrdinInvoice.RechnungsUstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdNr in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.RechnungsUstIdNrColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablevwTrdinInvoice.LastschriftColumn),Boolean) End Get Set Me(Me.tablevwTrdinInvoice.LastschriftColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Try Return CType(Me(Me.tablevwTrdinInvoice.SteuerschlüsselColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerschlüssel in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.SteuerschlüsselColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Try Return CType(Me(Me.tablevwTrdinInvoice._Steuersatz__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuersatz % in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice._Steuersatz__Column) = value End Set End Property _ Public Property WährungLokal() As String Get Try Return CType(Me(Me.tablevwTrdinInvoice.WährungLokalColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungLokal in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.WährungLokalColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragLokal() As Decimal Get Try Return CType(Me(Me.tablevwTrdinInvoice.SteuerpflichtigerBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragLokal in Tabelle vwTrdinInvoice ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.SteuerpflichtigerBetragLokalColumn) = value End Set End Property _ Public Property SteuerfreierBetragLokal() As Decimal Get Try Return CType(Me(Me.tablevwTrdinInvoice.SteuerfreierBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragLokal in Tabelle vwTrdinInvoice ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.SteuerfreierBetragLokalColumn) = value End Set End Property _ Public Property SteuerbetragLokal() As Decimal Get Try Return CType(Me(Me.tablevwTrdinInvoice.SteuerbetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerbetragLokal in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.SteuerbetragLokalColumn) = value End Set End Property _ Public Property RechnungsbetragLokal() As Decimal Get Try Return CType(Me(Me.tablevwTrdinInvoice.RechnungsbetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsbetragLokal in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.RechnungsbetragLokalColumn) = value End Set End Property _ Public Property WährungFremd() As String Get Try Return CType(Me(Me.tablevwTrdinInvoice.WährungFremdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungFremd in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.WährungFremdColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragFremd() As Decimal Get Try Return CType(Me(Me.tablevwTrdinInvoice.SteuerpflichtigerBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragFremd in Tabelle vwTrdinInvoice ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.SteuerpflichtigerBetragFremdColumn) = value End Set End Property _ Public Property SteuerfreierBetragFremd() As Decimal Get Try Return CType(Me(Me.tablevwTrdinInvoice.SteuerfreierBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragFremd in Tabelle vwTrdinInvoice ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.SteuerfreierBetragFremdColumn) = value End Set End Property _ Public Property SteuerbetragFremd() As Decimal Get Try Return CType(Me(Me.tablevwTrdinInvoice.SteuerbetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerbetragFremd in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.SteuerbetragFremdColumn) = value End Set End Property _ Public Property RechnungsbetragFremd() As Decimal Get Try Return CType(Me(Me.tablevwTrdinInvoice.RechnungsbetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsbetragFremd in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.RechnungsbetragFremdColumn) = value End Set End Property _ Public Property TrdinDateiname() As String Get Try Return CType(Me(Me.tablevwTrdinInvoice.TrdinDateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TrdinDateiname in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.TrdinDateinameColumn) = value End Set End Property _ Public Property Abgleich_op_debitor() As Boolean Get Return CType(Me(Me.tablevwTrdinInvoice.Abgleich_op_debitorColumn),Boolean) End Get Set Me(Me.tablevwTrdinInvoice.Abgleich_op_debitorColumn) = value End Set End Property _ Public Property Nettozahlungsziel() As Short Get Try Return CType(Me(Me.tablevwTrdinInvoice.NettozahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettozahlungsziel in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.NettozahlungszielColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablevwTrdinInvoice.Firma_IDColumn),Short) End Get Set Me(Me.tablevwTrdinInvoice.Firma_IDColumn) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tablevwTrdinInvoice.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.UStVAn_IDColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablevwTrdinInvoice.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle vwTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinInvoice.upsize_tsColumn) = value End Set End Property _ Public Function IsSpeditionsbuchNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.SpeditionsbuchColumn) End Function _ Public Sub SetSpeditionsbuchNull() Me(Me.tablevwTrdinInvoice.SpeditionsbuchColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tablevwTrdinInvoice.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tablevwTrdinInvoice.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUnterNrNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.UnterNrColumn) End Function _ Public Sub SetUnterNrNull() Me(Me.tablevwTrdinInvoice.UnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsdatumNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.AbfertigungsdatumColumn) End Function _ Public Sub SetAbfertigungsdatumNull() Me(Me.tablevwTrdinInvoice.AbfertigungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegartenNrNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.BelegartenNrColumn) End Function _ Public Sub SetBelegartenNrNull() Me(Me.tablevwTrdinInvoice.BelegartenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKundenNrZentraleNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.KundenNrZentraleColumn) End Function _ Public Sub SetKundenNrZentraleNull() Me(Me.tablevwTrdinInvoice.KundenNrZentraleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsKundenNrNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.RechnungsKundenNrColumn) End Function _ Public Sub SetRechnungsKundenNrNull() Me(Me.tablevwTrdinInvoice.RechnungsKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsLandKzNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.RechnungsLandKzColumn) End Function _ Public Sub SetRechnungsLandKzNull() Me(Me.tablevwTrdinInvoice.RechnungsLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdKzNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.RechnungsUstIdKzColumn) End Function _ Public Sub SetRechnungsUstIdKzNull() Me(Me.tablevwTrdinInvoice.RechnungsUstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdNrNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.RechnungsUstIdNrColumn) End Function _ Public Sub SetRechnungsUstIdNrNull() Me(Me.tablevwTrdinInvoice.RechnungsUstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerschlüsselNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.SteuerschlüsselColumn) End Function _ Public Sub SetSteuerschlüsselNull() Me(Me.tablevwTrdinInvoice.SteuerschlüsselColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Steuersatz__Null() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice._Steuersatz__Column) End Function _ Public Sub Set_Steuersatz__Null() Me(Me.tablevwTrdinInvoice._Steuersatz__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungLokalNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.WährungLokalColumn) End Function _ Public Sub SetWährungLokalNull() Me(Me.tablevwTrdinInvoice.WährungLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragLokalNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.SteuerpflichtigerBetragLokalColumn) End Function _ Public Sub SetSteuerpflichtigerBetragLokalNull() Me(Me.tablevwTrdinInvoice.SteuerpflichtigerBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragLokalNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.SteuerfreierBetragLokalColumn) End Function _ Public Sub SetSteuerfreierBetragLokalNull() Me(Me.tablevwTrdinInvoice.SteuerfreierBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragLokalNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.SteuerbetragLokalColumn) End Function _ Public Sub SetSteuerbetragLokalNull() Me(Me.tablevwTrdinInvoice.SteuerbetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragLokalNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.RechnungsbetragLokalColumn) End Function _ Public Sub SetRechnungsbetragLokalNull() Me(Me.tablevwTrdinInvoice.RechnungsbetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungFremdNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.WährungFremdColumn) End Function _ Public Sub SetWährungFremdNull() Me(Me.tablevwTrdinInvoice.WährungFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragFremdNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.SteuerpflichtigerBetragFremdColumn) End Function _ Public Sub SetSteuerpflichtigerBetragFremdNull() Me(Me.tablevwTrdinInvoice.SteuerpflichtigerBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragFremdNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.SteuerfreierBetragFremdColumn) End Function _ Public Sub SetSteuerfreierBetragFremdNull() Me(Me.tablevwTrdinInvoice.SteuerfreierBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragFremdNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.SteuerbetragFremdColumn) End Function _ Public Sub SetSteuerbetragFremdNull() Me(Me.tablevwTrdinInvoice.SteuerbetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragFremdNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.RechnungsbetragFremdColumn) End Function _ Public Sub SetRechnungsbetragFremdNull() Me(Me.tablevwTrdinInvoice.RechnungsbetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTrdinDateinameNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.TrdinDateinameColumn) End Function _ Public Sub SetTrdinDateinameNull() Me(Me.tablevwTrdinInvoice.TrdinDateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettozahlungszielNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.NettozahlungszielColumn) End Function _ Public Sub SetNettozahlungszielNull() Me(Me.tablevwTrdinInvoice.NettozahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tablevwTrdinInvoice.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablevwTrdinInvoice.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablevwTrdinInvoice.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwTrdinProductRow Inherits Global.System.Data.DataRow Private tablevwTrdinProduct As vwTrdinProductDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwTrdinProduct = CType(Me.Table,vwTrdinProductDataTable) End Sub _ Public Property Rechnungsdatum() As Date Get Return CType(Me(Me.tablevwTrdinProduct.RechnungsdatumColumn),Date) End Get Set Me(Me.tablevwTrdinProduct.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Return CType(Me(Me.tablevwTrdinProduct.RechnungsnummerColumn),Integer) End Get Set Me(Me.tablevwTrdinProduct.RechnungsnummerColumn) = value End Set End Property _ Public Property Leistungsnummer() As Short Get Return CType(Me(Me.tablevwTrdinProduct.LeistungsnummerColumn),Short) End Get Set Me(Me.tablevwTrdinProduct.LeistungsnummerColumn) = value End Set End Property _ Public Property Leistungsbezeichnung() As String Get Return CType(Me(Me.tablevwTrdinProduct.LeistungsbezeichnungColumn),String) End Get Set Me(Me.tablevwTrdinProduct.LeistungsbezeichnungColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tablevwTrdinProduct.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tablevwTrdinProduct.SteuerpflichtigColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragLokal() As Decimal Get Try Return CType(Me(Me.tablevwTrdinProduct.SteuerpflichtigerBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragLokal in Tabelle vwTrdinProduct ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablevwTrdinProduct.SteuerpflichtigerBetragLokalColumn) = value End Set End Property _ Public Property SteuerfreierBetragLokal() As Decimal Get Try Return CType(Me(Me.tablevwTrdinProduct.SteuerfreierBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragLokal in Tabelle vwTrdinProduct ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablevwTrdinProduct.SteuerfreierBetragLokalColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragFremd() As Decimal Get Try Return CType(Me(Me.tablevwTrdinProduct.SteuerpflichtigerBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragFremd in Tabelle vwTrdinProduct ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablevwTrdinProduct.SteuerpflichtigerBetragFremdColumn) = value End Set End Property _ Public Property SteuerfreierBetragFremd() As Decimal Get Try Return CType(Me(Me.tablevwTrdinProduct.SteuerfreierBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragFremd in Tabelle vwTrdinProduct ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablevwTrdinProduct.SteuerfreierBetragFremdColumn) = value End Set End Property _ Public Property Belegdaten() As String Get Try Return CType(Me(Me.tablevwTrdinProduct.BelegdatenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdaten in Tabelle vwTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinProduct.BelegdatenColumn) = value End Set End Property _ Public Property Sachkonto() As String Get Try Return CType(Me(Me.tablevwTrdinProduct.SachkontoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachkonto in Tabelle vwTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinProduct.SachkontoColumn) = value End Set End Property _ Public Property Buchungstext() As String Get Try Return CType(Me(Me.tablevwTrdinProduct.BuchungstextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungstext in Tabelle vwTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinProduct.BuchungstextColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablevwTrdinProduct.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle vwTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tablevwTrdinProduct.upsize_tsColumn) = value End Set End Property _ Public Function IsSteuerpflichtigerBetragLokalNull() As Boolean Return Me.IsNull(Me.tablevwTrdinProduct.SteuerpflichtigerBetragLokalColumn) End Function _ Public Sub SetSteuerpflichtigerBetragLokalNull() Me(Me.tablevwTrdinProduct.SteuerpflichtigerBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragLokalNull() As Boolean Return Me.IsNull(Me.tablevwTrdinProduct.SteuerfreierBetragLokalColumn) End Function _ Public Sub SetSteuerfreierBetragLokalNull() Me(Me.tablevwTrdinProduct.SteuerfreierBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragFremdNull() As Boolean Return Me.IsNull(Me.tablevwTrdinProduct.SteuerpflichtigerBetragFremdColumn) End Function _ Public Sub SetSteuerpflichtigerBetragFremdNull() Me(Me.tablevwTrdinProduct.SteuerpflichtigerBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragFremdNull() As Boolean Return Me.IsNull(Me.tablevwTrdinProduct.SteuerfreierBetragFremdColumn) End Function _ Public Sub SetSteuerfreierBetragFremdNull() Me(Me.tablevwTrdinProduct.SteuerfreierBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatenNull() As Boolean Return Me.IsNull(Me.tablevwTrdinProduct.BelegdatenColumn) End Function _ Public Sub SetBelegdatenNull() Me(Me.tablevwTrdinProduct.BelegdatenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoNull() As Boolean Return Me.IsNull(Me.tablevwTrdinProduct.SachkontoColumn) End Function _ Public Sub SetSachkontoNull() Me(Me.tablevwTrdinProduct.SachkontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungstextNull() As Boolean Return Me.IsNull(Me.tablevwTrdinProduct.BuchungstextColumn) End Function _ Public Sub SetBuchungstextNull() Me(Me.tablevwTrdinProduct.BuchungstextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablevwTrdinProduct.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablevwTrdinProduct.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwUStV_OP_RisikoberichtRow Inherits Global.System.Data.DataRow Private tablevwUStV_OP_Risikobericht As vwUStV_OP_RisikoberichtDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwUStV_OP_Risikobericht = CType(Me.Table,vwUStV_OP_RisikoberichtDataTable) End Sub _ Public Property Ordnungsbegriff() As String Get Return CType(Me(Me.tablevwUStV_OP_Risikobericht.OrdnungsbegriffColumn),String) End Get Set Me(Me.tablevwUStV_OP_Risikobericht.OrdnungsbegriffColumn) = value End Set End Property _ Public Property AdressenNr() As Integer Get Return CType(Me(Me.tablevwUStV_OP_Risikobericht.AdressenNrColumn),Integer) End Get Set Me(Me.tablevwUStV_OP_Risikobericht.AdressenNrColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tablevwUStV_OP_Risikobericht.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle vwUStV_OP_Risikobericht ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStV_OP_Risikobericht.LandKzColumn) = value End Set End Property _ Public Property Abfertigungsverbot() As Boolean Get Try Return CType(Me(Me.tablevwUStV_OP_Risikobericht.AbfertigungsverbotColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsverbot in Tabelle vwUStV_OP_Risikobericht ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablevwUStV_OP_Risikobericht.AbfertigungsverbotColumn) = value End Set End Property _ Public Property LfdSaldo() As Decimal Get Try Return CType(Me(Me.tablevwUStV_OP_Risikobericht.LfdSaldoColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LfdSaldo in Tabelle vwUStV_OP_Risikobericht ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStV_OP_Risikobericht.LfdSaldoColumn) = value End Set End Property _ Public Property OPDatumMin() As Date Get Try Return CType(Me(Me.tablevwUStV_OP_Risikobericht.OPDatumMinColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OPDatumMin in Tabelle vwUStV_OP_Risikobericht ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStV_OP_Risikobericht.OPDatumMinColumn) = value End Set End Property _ Public Property UStDiff() As Decimal Get Try Return CType(Me(Me.tablevwUStV_OP_Risikobericht.UStDiffColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStDiff in Tabelle vwUStV_OP_Risikobericht ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStV_OP_Risikobericht.UStDiffColumn) = value End Set End Property _ Public Property Kto3470() As Decimal Get Return CType(Me(Me.tablevwUStV_OP_Risikobericht.Kto3470Column),Decimal) End Get Set Me(Me.tablevwUStV_OP_Risikobericht.Kto3470Column) = value End Set End Property _ Public Property Vorauszahlung() As Decimal Get Return CType(Me(Me.tablevwUStV_OP_Risikobericht.VorauszahlungColumn),Decimal) End Get Set Me(Me.tablevwUStV_OP_Risikobericht.VorauszahlungColumn) = value End Set End Property _ Public Property Vorschau() As Decimal Get Return CType(Me(Me.tablevwUStV_OP_Risikobericht.VorschauColumn),Decimal) End Get Set Me(Me.tablevwUStV_OP_Risikobericht.VorschauColumn) = value End Set End Property _ Public Property Risiko() As Decimal Get Try Return CType(Me(Me.tablevwUStV_OP_Risikobericht.RisikoColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Risiko in Tabelle vwUStV_OP_Risikobericht ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStV_OP_Risikobericht.RisikoColumn) = value End Set End Property _ Public Property BankgarantieBetrag() As Decimal Get Try Return CType(Me(Me.tablevwUStV_OP_Risikobericht.BankgarantieBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BankgarantieBetrag in Tabelle vwUStV_OP_Risikobericht ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablevwUStV_OP_Risikobericht.BankgarantieBetragColumn) = value End Set End Property _ Public Property BankgarantieGültigBis() As Date Get Try Return CType(Me(Me.tablevwUStV_OP_Risikobericht.BankgarantieGültigBisColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BankgarantieGültigBis in Tabelle vwUStV_OP_Risikobericht ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablevwUStV_OP_Risikobericht.BankgarantieGültigBisColumn) = value End Set End Property _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tablevwUStV_OP_Risikobericht.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tablevwUStV_OP_Risikobericht.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsverbotNull() As Boolean Return Me.IsNull(Me.tablevwUStV_OP_Risikobericht.AbfertigungsverbotColumn) End Function _ Public Sub SetAbfertigungsverbotNull() Me(Me.tablevwUStV_OP_Risikobericht.AbfertigungsverbotColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLfdSaldoNull() As Boolean Return Me.IsNull(Me.tablevwUStV_OP_Risikobericht.LfdSaldoColumn) End Function _ Public Sub SetLfdSaldoNull() Me(Me.tablevwUStV_OP_Risikobericht.LfdSaldoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOPDatumMinNull() As Boolean Return Me.IsNull(Me.tablevwUStV_OP_Risikobericht.OPDatumMinColumn) End Function _ Public Sub SetOPDatumMinNull() Me(Me.tablevwUStV_OP_Risikobericht.OPDatumMinColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStDiffNull() As Boolean Return Me.IsNull(Me.tablevwUStV_OP_Risikobericht.UStDiffColumn) End Function _ Public Sub SetUStDiffNull() Me(Me.tablevwUStV_OP_Risikobericht.UStDiffColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRisikoNull() As Boolean Return Me.IsNull(Me.tablevwUStV_OP_Risikobericht.RisikoColumn) End Function _ Public Sub SetRisikoNull() Me(Me.tablevwUStV_OP_Risikobericht.RisikoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBankgarantieBetragNull() As Boolean Return Me.IsNull(Me.tablevwUStV_OP_Risikobericht.BankgarantieBetragColumn) End Function _ Public Sub SetBankgarantieBetragNull() Me(Me.tablevwUStV_OP_Risikobericht.BankgarantieBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBankgarantieGültigBisNull() As Boolean Return Me.IsNull(Me.tablevwUStV_OP_Risikobericht.BankgarantieGültigBisColumn) End Function _ Public Sub SetBankgarantieGültigBisNull() Me(Me.tablevwUStV_OP_Risikobericht.BankgarantieGültigBisColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwUStVAntragRow Inherits Global.System.Data.DataRow Private tablevwUStVAntrag As vwUStVAntragDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwUStVAntrag = CType(Me.Table,vwUStVAntragDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablevwUStVAntrag.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablevwUStVAntrag.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVAn_KuNr() As Integer Get Return CType(Me(Me.tablevwUStVAntrag.UStVAn_KuNrColumn),Integer) End Get Set Me(Me.tablevwUStVAntrag.UStVAn_KuNrColumn) = value End Set End Property _ Public Property UStVAn_Name() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Name in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_NameColumn) = value End Set End Property _ Public Property UStVAn_Straße() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Straße in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_StraßeColumn) = value End Set End Property _ Public Property UStVAn_LandKz() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_LandKz in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_LandKzColumn) = value End Set End Property _ Public Property UStVAn_PLZ() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_PLZ in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_PLZColumn) = value End Set End Property _ Public Property UStVAn_Ort() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ort in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_OrtColumn) = value End Set End Property _ Public Property UStVAn_Land() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Land in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_LandColumn) = value End Set End Property _ Public Property UStVAn_Gewerbe() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_GewerbeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Gewerbe in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_GewerbeColumn) = value End Set End Property _ Public Property UStVAn_Steuernummer() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_SteuernummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Steuernummer in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_SteuernummerColumn) = value End Set End Property _ Public Property UStVAn_ReDatVon() As Date Get Return CType(Me(Me.tablevwUStVAntrag.UStVAn_ReDatVonColumn),Date) End Get Set Me(Me.tablevwUStVAntrag.UStVAn_ReDatVonColumn) = value End Set End Property _ Public Property UStVAn_ReDatBis() As Date Get Return CType(Me(Me.tablevwUStVAntrag.UStVAn_ReDatBisColumn),Date) End Get Set Me(Me.tablevwUStVAntrag.UStVAn_ReDatBisColumn) = value End Set End Property _ Public Property UStVAn_Bankverbindung() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_BankverbindungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Bankverbindung in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_BankverbindungColumn) = value End Set End Property _ Public Property UStVAn_BLZ() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_BLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BLZ in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_BLZColumn) = value End Set End Property _ Public Property UStVAn_KTO() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_KTOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_KTO in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_KTOColumn) = value End Set End Property _ Public Property UStVAn_Kontoinhaber() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_KontoinhaberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Kontoinhaber in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_KontoinhaberColumn) = value End Set End Property _ Public Property UStVAn_BIC() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_BICColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BIC in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_BICColumn) = value End Set End Property _ Public Property UStVAn_IBAN() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_IBANColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_IBAN in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_IBANColumn) = value End Set End Property _ Public Property UStVAn_Anlagen() As Short Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_AnlagenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Anlagen in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_AnlagenColumn) = value End Set End Property _ Public Property UStVAn_Rechnungen() As Short Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_RechnungenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Rechnungen in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_RechnungenColumn) = value End Set End Property _ Public Property UStVAn_Einfuhrdokumente() As Short Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_EinfuhrdokumenteColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Einfuhrdokumente in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_EinfuhrdokumenteColumn) = value End Set End Property _ Public Property UStVAn_Erklärung_9_a() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_Erklärung_9_aColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Erklärung_9_a in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_Erklärung_9_aColumn) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_1() As Boolean Get Return CType(Me(Me.tablevwUStVAntrag.UStVAn_Erklärung_9_b_1Column),Boolean) End Get Set Me(Me.tablevwUStVAntrag.UStVAn_Erklärung_9_b_1Column) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_2() As Boolean Get Return CType(Me(Me.tablevwUStVAntrag.UStVAn_Erklärung_9_b_2Column),Boolean) End Get Set Me(Me.tablevwUStVAntrag.UStVAn_Erklärung_9_b_2Column) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_3() As Boolean Get Return CType(Me(Me.tablevwUStVAntrag.UStVAn_Erklärung_9_b_3Column),Boolean) End Get Set Me(Me.tablevwUStVAntrag.UStVAn_Erklärung_9_b_3Column) = value End Set End Property _ Public Property UStVAn_Ausstellungsort() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_AusstellungsortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ausstellungsort in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_AusstellungsortColumn) = value End Set End Property _ Public Property UStVAn_Ausstellungsdatum() As Date Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_AusstellungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ausstellungsdatum in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_AusstellungsdatumColumn) = value End Set End Property _ Public Property UStVAn_Unterschrift() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_UnterschriftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Unterschrift in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_UnterschriftColumn) = value End Set End Property _ Public Property UStVAn_LandNr() As Short Get Return CType(Me(Me.tablevwUStVAntrag.UStVAn_LandNrColumn),Short) End Get Set Me(Me.tablevwUStVAntrag.UStVAn_LandNrColumn) = value End Set End Property _ Public Property UStVAn_Beleganzahl() As Short Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_BeleganzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Beleganzahl in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_BeleganzahlColumn) = value End Set End Property _ Public Property UStVAn_BeleganzahlRetourniert() As Short Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_BeleganzahlRetourniertColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BeleganzahlRetourniert in Tabelle vwUStVAntrag ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_BeleganzahlRetourniertColumn) = value End Set End Property _ Public Property UStVAn_Retournierungsgrund() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_RetournierungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Retournierungsgrund in Tabelle vwUStVAntrag ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_RetournierungsgrundColumn) = value End Set End Property _ Public Property UStVAn_AntragEingereichtAm() As Date Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_AntragEingereichtAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_AntragEingereichtAm in Tabelle vwUStVAntrag ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_AntragEingereichtAmColumn) = value End Set End Property _ Public Property UStVAn_BelegeWeitergeleitetAm() As Date Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BelegeWeitergeleitetAm in Tabelle vwUStVAntrag ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn) = value End Set End Property _ Public Property UStVAn_Vertreter() As Integer Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_VertreterColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Vertreter in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_VertreterColumn) = value End Set End Property _ Public Property UStVAn_BezugsNr() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_BezugsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BezugsNr in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_BezugsNrColumn) = value End Set End Property _ Public Property UStVAn_3470() As Decimal Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_3470Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_3470 in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_3470Column) = value End Set End Property _ Public Property UStVAn_VZBetrag() As Decimal Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_VZBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZBetrag in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_VZBetragColumn) = value End Set End Property _ Public Property UStVAn_VZDatum() As Date Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_VZDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZDatum in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_VZDatumColumn) = value End Set End Property _ Public Property UStVAn_RZBetragVZ() As Decimal Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_RZBetragVZColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_RZBetragVZ in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_RZBetragVZColumn) = value End Set End Property _ Public Property UStVAn_RZDatumVZ() As Date Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_RZDatumVZColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_RZDatumVZ in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_RZDatumVZColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tablevwUStVAntrag.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tablevwUStVAntrag.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.AbfertigungsNrColumn) = value End Set End Property _ Public Property UStVAn_Währungscode() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Währungscode in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_WährungscodeColumn) = value End Set End Property _ Public Property UStVAn_USteuerbetrag() As Decimal Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_USteuerbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_USteuerbetrag in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_USteuerbetragColumn) = value End Set End Property _ Public Property UStVAn_Erstattungsbetrag() As Decimal Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_ErstattungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Erstattungsbetrag in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_ErstattungsbetragColumn) = value End Set End Property _ Public Property UStVAn_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_USteuerbetragEUR in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVAn_ErstattungsbetragEUR() As Decimal Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_ErstattungsbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ErstattungsbetragEUR in Tabelle vwUStVAntrag ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_ErstattungsbetragEURColumn) = value End Set End Property _ Public Property UStVAn_Sachbearbeiter() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Sachbearbeiter in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVAn_Zeitstempel() As Integer Get Try Return CType(Me(Me.tablevwUStVAntrag.UStVAn_ZeitstempelColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Zeitstempel in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.UStVAn_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As String Get Try Return CType(Me(Me.tablevwUStVAntrag.upsize_tsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle vwUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVAntrag.upsize_tsColumn) = value End Set End Property _ Public Function IsUStVAn_NameNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_NameColumn) End Function _ Public Sub SetUStVAn_NameNull() Me(Me.tablevwUStVAntrag.UStVAn_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_StraßeNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_StraßeColumn) End Function _ Public Sub SetUStVAn_StraßeNull() Me(Me.tablevwUStVAntrag.UStVAn_StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_LandKzNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_LandKzColumn) End Function _ Public Sub SetUStVAn_LandKzNull() Me(Me.tablevwUStVAntrag.UStVAn_LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_PLZNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_PLZColumn) End Function _ Public Sub SetUStVAn_PLZNull() Me(Me.tablevwUStVAntrag.UStVAn_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_OrtNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_OrtColumn) End Function _ Public Sub SetUStVAn_OrtNull() Me(Me.tablevwUStVAntrag.UStVAn_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_LandNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_LandColumn) End Function _ Public Sub SetUStVAn_LandNull() Me(Me.tablevwUStVAntrag.UStVAn_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_GewerbeNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_GewerbeColumn) End Function _ Public Sub SetUStVAn_GewerbeNull() Me(Me.tablevwUStVAntrag.UStVAn_GewerbeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_SteuernummerNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_SteuernummerColumn) End Function _ Public Sub SetUStVAn_SteuernummerNull() Me(Me.tablevwUStVAntrag.UStVAn_SteuernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BankverbindungNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_BankverbindungColumn) End Function _ Public Sub SetUStVAn_BankverbindungNull() Me(Me.tablevwUStVAntrag.UStVAn_BankverbindungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BLZNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_BLZColumn) End Function _ Public Sub SetUStVAn_BLZNull() Me(Me.tablevwUStVAntrag.UStVAn_BLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_KTONull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_KTOColumn) End Function _ Public Sub SetUStVAn_KTONull() Me(Me.tablevwUStVAntrag.UStVAn_KTOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_KontoinhaberNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_KontoinhaberColumn) End Function _ Public Sub SetUStVAn_KontoinhaberNull() Me(Me.tablevwUStVAntrag.UStVAn_KontoinhaberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BICNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_BICColumn) End Function _ Public Sub SetUStVAn_BICNull() Me(Me.tablevwUStVAntrag.UStVAn_BICColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IBANNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_IBANColumn) End Function _ Public Sub SetUStVAn_IBANNull() Me(Me.tablevwUStVAntrag.UStVAn_IBANColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AnlagenNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_AnlagenColumn) End Function _ Public Sub SetUStVAn_AnlagenNull() Me(Me.tablevwUStVAntrag.UStVAn_AnlagenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RechnungenNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_RechnungenColumn) End Function _ Public Sub SetUStVAn_RechnungenNull() Me(Me.tablevwUStVAntrag.UStVAn_RechnungenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_EinfuhrdokumenteNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_EinfuhrdokumenteColumn) End Function _ Public Sub SetUStVAn_EinfuhrdokumenteNull() Me(Me.tablevwUStVAntrag.UStVAn_EinfuhrdokumenteColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_Erklärung_9_aNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_Erklärung_9_aColumn) End Function _ Public Sub SetUStVAn_Erklärung_9_aNull() Me(Me.tablevwUStVAntrag.UStVAn_Erklärung_9_aColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AusstellungsortNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_AusstellungsortColumn) End Function _ Public Sub SetUStVAn_AusstellungsortNull() Me(Me.tablevwUStVAntrag.UStVAn_AusstellungsortColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AusstellungsdatumNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_AusstellungsdatumColumn) End Function _ Public Sub SetUStVAn_AusstellungsdatumNull() Me(Me.tablevwUStVAntrag.UStVAn_AusstellungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_UnterschriftNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_UnterschriftColumn) End Function _ Public Sub SetUStVAn_UnterschriftNull() Me(Me.tablevwUStVAntrag.UStVAn_UnterschriftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BeleganzahlNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_BeleganzahlColumn) End Function _ Public Sub SetUStVAn_BeleganzahlNull() Me(Me.tablevwUStVAntrag.UStVAn_BeleganzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BeleganzahlRetourniertNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_BeleganzahlRetourniertColumn) End Function _ Public Sub SetUStVAn_BeleganzahlRetourniertNull() Me(Me.tablevwUStVAntrag.UStVAn_BeleganzahlRetourniertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RetournierungsgrundNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_RetournierungsgrundColumn) End Function _ Public Sub SetUStVAn_RetournierungsgrundNull() Me(Me.tablevwUStVAntrag.UStVAn_RetournierungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AntragEingereichtAmNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_AntragEingereichtAmColumn) End Function _ Public Sub SetUStVAn_AntragEingereichtAmNull() Me(Me.tablevwUStVAntrag.UStVAn_AntragEingereichtAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BelegeWeitergeleitetAmNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn) End Function _ Public Sub SetUStVAn_BelegeWeitergeleitetAmNull() Me(Me.tablevwUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VertreterNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_VertreterColumn) End Function _ Public Sub SetUStVAn_VertreterNull() Me(Me.tablevwUStVAntrag.UStVAn_VertreterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BezugsNrNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_BezugsNrColumn) End Function _ Public Sub SetUStVAn_BezugsNrNull() Me(Me.tablevwUStVAntrag.UStVAn_BezugsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_3470Null() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_3470Column) End Function _ Public Sub SetUStVAn_3470Null() Me(Me.tablevwUStVAntrag.UStVAn_3470Column) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZBetragNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_VZBetragColumn) End Function _ Public Sub SetUStVAn_VZBetragNull() Me(Me.tablevwUStVAntrag.UStVAn_VZBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZDatumNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_VZDatumColumn) End Function _ Public Sub SetUStVAn_VZDatumNull() Me(Me.tablevwUStVAntrag.UStVAn_VZDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RZBetragVZNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_RZBetragVZColumn) End Function _ Public Sub SetUStVAn_RZBetragVZNull() Me(Me.tablevwUStVAntrag.UStVAn_RZBetragVZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RZDatumVZNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_RZDatumVZColumn) End Function _ Public Sub SetUStVAn_RZDatumVZNull() Me(Me.tablevwUStVAntrag.UStVAn_RZDatumVZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tablevwUStVAntrag.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tablevwUStVAntrag.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_WährungscodeNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_WährungscodeColumn) End Function _ Public Sub SetUStVAn_WährungscodeNull() Me(Me.tablevwUStVAntrag.UStVAn_WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_USteuerbetragNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_USteuerbetragColumn) End Function _ Public Sub SetUStVAn_USteuerbetragNull() Me(Me.tablevwUStVAntrag.UStVAn_USteuerbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ErstattungsbetragNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_ErstattungsbetragColumn) End Function _ Public Sub SetUStVAn_ErstattungsbetragNull() Me(Me.tablevwUStVAntrag.UStVAn_ErstattungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_USteuerbetragEURColumn) End Function _ Public Sub SetUStVAn_USteuerbetragEURNull() Me(Me.tablevwUStVAntrag.UStVAn_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ErstattungsbetragEURNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_ErstattungsbetragEURColumn) End Function _ Public Sub SetUStVAn_ErstattungsbetragEURNull() Me(Me.tablevwUStVAntrag.UStVAn_ErstattungsbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_SachbearbeiterColumn) End Function _ Public Sub SetUStVAn_SachbearbeiterNull() Me(Me.tablevwUStVAntrag.UStVAn_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.UStVAn_ZeitstempelColumn) End Function _ Public Sub SetUStVAn_ZeitstempelNull() Me(Me.tablevwUStVAntrag.UStVAn_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablevwUStVAntrag.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablevwUStVAntrag.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwUStVBelegeingangRow Inherits Global.System.Data.DataRow Private tablevwUStVBelegeingang As vwUStVBelegeingangDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwUStVBelegeingang = CType(Me.Table,vwUStVBelegeingangDataTable) End Sub _ Public Property UStVBe_KuNr() As Integer Get Return CType(Me(Me.tablevwUStVBelegeingang.UStVBe_KuNrColumn),Integer) End Get Set Me(Me.tablevwUStVBelegeingang.UStVBe_KuNrColumn) = value End Set End Property _ Public Property UStVBe_EinDat() As Date Get Return CType(Me(Me.tablevwUStVBelegeingang.UStVBe_EinDatColumn),Date) End Get Set Me(Me.tablevwUStVBelegeingang.UStVBe_EinDatColumn) = value End Set End Property _ Public Property UStVBe_EinNr() As Integer Get Return CType(Me(Me.tablevwUStVBelegeingang.UStVBe_EinNrColumn),Integer) End Get Set Me(Me.tablevwUStVBelegeingang.UStVBe_EinNrColumn) = value End Set End Property _ Public Property UStVBe_UStBetrag() As Decimal Get Try Return CType(Me(Me.tablevwUStVBelegeingang.UStVBe_UStBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_UStBetrag in Tabelle vwUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVBelegeingang.UStVBe_UStBetragColumn) = value End Set End Property _ Public Property UStVBe_Beleganzahl() As Short Get Try Return CType(Me(Me.tablevwUStVBelegeingang.UStVBe_BeleganzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Beleganzahl in Tabelle vwUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVBelegeingang.UStVBe_BeleganzahlColumn) = value End Set End Property _ Public Property UStVBe_Retourniert() As Short Get Try Return CType(Me(Me.tablevwUStVBelegeingang.UStVBe_RetourniertColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Retourniert in Tabelle vwUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVBelegeingang.UStVBe_RetourniertColumn) = value End Set End Property _ Public Property UStVBe_Bemerkung() As String Get Try Return CType(Me(Me.tablevwUStVBelegeingang.UStVBe_BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Bemerkung in Tabelle vwUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVBelegeingang.UStVBe_BemerkungColumn) = value End Set End Property _ Public Property UStVBe_WeiterDat() As Date Get Try Return CType(Me(Me.tablevwUStVBelegeingang.UStVBe_WeiterDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_WeiterDat in Tabelle vwUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVBelegeingang.UStVBe_WeiterDatColumn) = value End Set End Property _ Public Property UStVBe_Empfänger() As Integer Get Try Return CType(Me(Me.tablevwUStVBelegeingang.UStVBe_EmpfängerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Empfänger in Tabelle vwUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVBelegeingang.UStVBe_EmpfängerColumn) = value End Set End Property _ Public Property UStVBe_Zeitstempel() As Date Get Try Return CType(Me(Me.tablevwUStVBelegeingang.UStVBe_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Zeitstempel in Tabelle vwUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVBelegeingang.UStVBe_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablevwUStVBelegeingang.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle vwUStVBelegeingang ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVBelegeingang.upsize_tsColumn) = value End Set End Property _ Public Function IsUStVBe_UStBetragNull() As Boolean Return Me.IsNull(Me.tablevwUStVBelegeingang.UStVBe_UStBetragColumn) End Function _ Public Sub SetUStVBe_UStBetragNull() Me(Me.tablevwUStVBelegeingang.UStVBe_UStBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_BeleganzahlNull() As Boolean Return Me.IsNull(Me.tablevwUStVBelegeingang.UStVBe_BeleganzahlColumn) End Function _ Public Sub SetUStVBe_BeleganzahlNull() Me(Me.tablevwUStVBelegeingang.UStVBe_BeleganzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_RetourniertNull() As Boolean Return Me.IsNull(Me.tablevwUStVBelegeingang.UStVBe_RetourniertColumn) End Function _ Public Sub SetUStVBe_RetourniertNull() Me(Me.tablevwUStVBelegeingang.UStVBe_RetourniertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_BemerkungNull() As Boolean Return Me.IsNull(Me.tablevwUStVBelegeingang.UStVBe_BemerkungColumn) End Function _ Public Sub SetUStVBe_BemerkungNull() Me(Me.tablevwUStVBelegeingang.UStVBe_BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_WeiterDatNull() As Boolean Return Me.IsNull(Me.tablevwUStVBelegeingang.UStVBe_WeiterDatColumn) End Function _ Public Sub SetUStVBe_WeiterDatNull() Me(Me.tablevwUStVBelegeingang.UStVBe_WeiterDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_EmpfängerNull() As Boolean Return Me.IsNull(Me.tablevwUStVBelegeingang.UStVBe_EmpfängerColumn) End Function _ Public Sub SetUStVBe_EmpfängerNull() Me(Me.tablevwUStVBelegeingang.UStVBe_EmpfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablevwUStVBelegeingang.UStVBe_ZeitstempelColumn) End Function _ Public Sub SetUStVBe_ZeitstempelNull() Me(Me.tablevwUStVBelegeingang.UStVBe_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablevwUStVBelegeingang.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablevwUStVBelegeingang.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwUStVErstattungRow Inherits Global.System.Data.DataRow Private tablevwUStVErstattung As vwUStVErstattungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwUStVErstattung = CType(Me.Table,vwUStVErstattungDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablevwUStVErstattung.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablevwUStVErstattung.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVEr_ID() As Short Get Return CType(Me(Me.tablevwUStVErstattung.UStVEr_IDColumn),Short) End Get Set Me(Me.tablevwUStVErstattung.UStVEr_IDColumn) = value End Set End Property _ Public Property UStVEr_USteuerbetrag() As Decimal Get Return CType(Me(Me.tablevwUStVErstattung.UStVEr_USteuerbetragColumn),Decimal) End Get Set Me(Me.tablevwUStVErstattung.UStVEr_USteuerbetragColumn) = value End Set End Property _ Public Property Belegdatum() As Date Get Try Return CType(Me(Me.tablevwUStVErstattung.BelegdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdatum in Tabelle vwUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.BelegdatumColumn) = value End Set End Property _ Public Property Belegnummer() As String Get Try Return CType(Me(Me.tablevwUStVErstattung.BelegnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegnummer in Tabelle vwUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.BelegnummerColumn) = value End Set End Property _ Public Property GutschriftsDatum() As Date Get Try Return CType(Me(Me.tablevwUStVErstattung.GutschriftsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GutschriftsDatum in Tabelle vwUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.GutschriftsDatumColumn) = value End Set End Property _ Public Property GutschriftsNr() As Integer Get Try Return CType(Me(Me.tablevwUStVErstattung.GutschriftsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GutschriftsNr in Tabelle vwUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.GutschriftsNrColumn) = value End Set End Property _ Public Property Berufungsdatum() As Date Get Try Return CType(Me(Me.tablevwUStVErstattung.BerufungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungsdatum in Tabelle vwUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.BerufungsdatumColumn) = value End Set End Property _ Public Property Berufungshöhe() As Decimal Get Try Return CType(Me(Me.tablevwUStVErstattung.BerufungshöheColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungshöhe in Tabelle vwUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.BerufungshöheColumn) = value End Set End Property _ Public Property Berufungsgrund() As String Get Try Return CType(Me(Me.tablevwUStVErstattung.BerufungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungsgrund in Tabelle vwUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.BerufungsgrundColumn) = value End Set End Property _ Public Property Bemerkung() As String Get Try Return CType(Me(Me.tablevwUStVErstattung.BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle vwUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.BemerkungColumn) = value End Set End Property _ Public Property UStVEr_Umrechnungskurs() As Double Get Try Return CType(Me(Me.tablevwUStVErstattung.UStVEr_UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Umrechnungskurs in Tabelle vwUStVErstattung ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablevwUStVErstattung.UStVEr_UmrechnungskursColumn) = value End Set End Property _ Public Property UStVEr_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tablevwUStVErstattung.UStVEr_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_USteuerbetragEUR in Tabelle vwUStVErstattung ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.UStVEr_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVEr_Sachbearbeiter() As String Get Try Return CType(Me(Me.tablevwUStVErstattung.UStVEr_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Sachbearbeiter in Tabelle vwUStVErstattung ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablevwUStVErstattung.UStVEr_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVEr_Zeitstempel() As Date Get Try Return CType(Me(Me.tablevwUStVErstattung.UStVEr_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Zeitstempel in Tabelle vwUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.UStVEr_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablevwUStVErstattung.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle vwUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVErstattung.upsize_tsColumn) = value End Set End Property _ Public Function IsBelegdatumNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.BelegdatumColumn) End Function _ Public Sub SetBelegdatumNull() Me(Me.tablevwUStVErstattung.BelegdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegnummerNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.BelegnummerColumn) End Function _ Public Sub SetBelegnummerNull() Me(Me.tablevwUStVErstattung.BelegnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGutschriftsDatumNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.GutschriftsDatumColumn) End Function _ Public Sub SetGutschriftsDatumNull() Me(Me.tablevwUStVErstattung.GutschriftsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGutschriftsNrNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.GutschriftsNrColumn) End Function _ Public Sub SetGutschriftsNrNull() Me(Me.tablevwUStVErstattung.GutschriftsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungsdatumNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.BerufungsdatumColumn) End Function _ Public Sub SetBerufungsdatumNull() Me(Me.tablevwUStVErstattung.BerufungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungshöheNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.BerufungshöheColumn) End Function _ Public Sub SetBerufungshöheNull() Me(Me.tablevwUStVErstattung.BerufungshöheColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungsgrundNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.BerufungsgrundColumn) End Function _ Public Sub SetBerufungsgrundNull() Me(Me.tablevwUStVErstattung.BerufungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.BemerkungColumn) End Function _ Public Sub SetBemerkungNull() Me(Me.tablevwUStVErstattung.BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_UmrechnungskursNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.UStVEr_UmrechnungskursColumn) End Function _ Public Sub SetUStVEr_UmrechnungskursNull() Me(Me.tablevwUStVErstattung.UStVEr_UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.UStVEr_USteuerbetragEURColumn) End Function _ Public Sub SetUStVEr_USteuerbetragEURNull() Me(Me.tablevwUStVErstattung.UStVEr_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.UStVEr_SachbearbeiterColumn) End Function _ Public Sub SetUStVEr_SachbearbeiterNull() Me(Me.tablevwUStVErstattung.UStVEr_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.UStVEr_ZeitstempelColumn) End Function _ Public Sub SetUStVEr_ZeitstempelNull() Me(Me.tablevwUStVErstattung.UStVEr_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablevwUStVErstattung.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablevwUStVErstattung.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwUStVPositionenRow Inherits Global.System.Data.DataRow Private tablevwUStVPositionen As vwUStVPositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwUStVPositionen = CType(Me.Table,vwUStVPositionenDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablevwUStVPositionen.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablevwUStVPositionen.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVPo_ID() As Short Get Return CType(Me(Me.tablevwUStVPositionen.UStVPo_IDColumn),Short) End Get Set Me(Me.tablevwUStVPositionen.UStVPo_IDColumn) = value End Set End Property _ Public Property UStVPo_ReDat() As Date Get Try Return CType(Me(Me.tablevwUStVPositionen.UStVPo_ReDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_ReDat in Tabelle vwUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVPositionen.UStVPo_ReDatColumn) = value End Set End Property _ Public Property UStVPo_ReNr() As String Get Try Return CType(Me(Me.tablevwUStVPositionen.UStVPo_ReNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_ReNr in Tabelle vwUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVPositionen.UStVPo_ReNrColumn) = value End Set End Property _ Public Property UStVPo_USteuerbetrag() As Decimal Get Return CType(Me(Me.tablevwUStVPositionen.UStVPo_USteuerbetragColumn),Decimal) End Get Set Me(Me.tablevwUStVPositionen.UStVPo_USteuerbetragColumn) = value End Set End Property _ Public Property UStVPo_Leistungsbezeichnung() As String Get Try Return CType(Me(Me.tablevwUStVPositionen.UStVPo_LeistungsbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Leistungsbezeichnung in Tabelle vwUStVPositionen ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablevwUStVPositionen.UStVPo_LeistungsbezeichnungColumn) = value End Set End Property _ Public Property UStVPo_Leistender() As String Get Try Return CType(Me(Me.tablevwUStVPositionen.UStVPo_LeistenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Leistender in Tabelle vwUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVPositionen.UStVPo_LeistenderColumn) = value End Set End Property _ Public Property UStVPo_Schnittstelle() As Boolean Get Return CType(Me(Me.tablevwUStVPositionen.UStVPo_SchnittstelleColumn),Boolean) End Get Set Me(Me.tablevwUStVPositionen.UStVPo_SchnittstelleColumn) = value End Set End Property _ Public Property UStVPo_SchnittstellenNr() As Short Get Return CType(Me(Me.tablevwUStVPositionen.UStVPo_SchnittstellenNrColumn),Short) End Get Set Me(Me.tablevwUStVPositionen.UStVPo_SchnittstellenNrColumn) = value End Set End Property _ Public Property UStVPo_Umrechnungskurs() As Double Get Try Return CType(Me(Me.tablevwUStVPositionen.UStVPo_UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Umrechnungskurs in Tabelle vwUStVPositionen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablevwUStVPositionen.UStVPo_UmrechnungskursColumn) = value End Set End Property _ Public Property UStVPo_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tablevwUStVPositionen.UStVPo_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_USteuerbetragEUR in Tabelle vwUStVPositionen ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablevwUStVPositionen.UStVPo_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVPo_Sachbearbeiter() As String Get Try Return CType(Me(Me.tablevwUStVPositionen.UStVPo_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Sachbearbeiter in Tabelle vwUStVPositionen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablevwUStVPositionen.UStVPo_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVPo_Zeitstempel() As Date Get Try Return CType(Me(Me.tablevwUStVPositionen.UStVPo_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Zeitstempel in Tabelle vwUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVPositionen.UStVPo_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablevwUStVPositionen.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle vwUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVPositionen.upsize_tsColumn) = value End Set End Property _ Public Function IsUStVPo_ReDatNull() As Boolean Return Me.IsNull(Me.tablevwUStVPositionen.UStVPo_ReDatColumn) End Function _ Public Sub SetUStVPo_ReDatNull() Me(Me.tablevwUStVPositionen.UStVPo_ReDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_ReNrNull() As Boolean Return Me.IsNull(Me.tablevwUStVPositionen.UStVPo_ReNrColumn) End Function _ Public Sub SetUStVPo_ReNrNull() Me(Me.tablevwUStVPositionen.UStVPo_ReNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_LeistungsbezeichnungNull() As Boolean Return Me.IsNull(Me.tablevwUStVPositionen.UStVPo_LeistungsbezeichnungColumn) End Function _ Public Sub SetUStVPo_LeistungsbezeichnungNull() Me(Me.tablevwUStVPositionen.UStVPo_LeistungsbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_LeistenderNull() As Boolean Return Me.IsNull(Me.tablevwUStVPositionen.UStVPo_LeistenderColumn) End Function _ Public Sub SetUStVPo_LeistenderNull() Me(Me.tablevwUStVPositionen.UStVPo_LeistenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_UmrechnungskursNull() As Boolean Return Me.IsNull(Me.tablevwUStVPositionen.UStVPo_UmrechnungskursColumn) End Function _ Public Sub SetUStVPo_UmrechnungskursNull() Me(Me.tablevwUStVPositionen.UStVPo_UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tablevwUStVPositionen.UStVPo_USteuerbetragEURColumn) End Function _ Public Sub SetUStVPo_USteuerbetragEURNull() Me(Me.tablevwUStVPositionen.UStVPo_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablevwUStVPositionen.UStVPo_SachbearbeiterColumn) End Function _ Public Sub SetUStVPo_SachbearbeiterNull() Me(Me.tablevwUStVPositionen.UStVPo_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablevwUStVPositionen.UStVPo_ZeitstempelColumn) End Function _ Public Sub SetUStVPo_ZeitstempelNull() Me(Me.tablevwUStVPositionen.UStVPo_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablevwUStVPositionen.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablevwUStVPositionen.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwUStVVorauszahlungRow Inherits Global.System.Data.DataRow Private tablevwUStVVorauszahlung As vwUStVVorauszahlungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwUStVVorauszahlung = CType(Me.Table,vwUStVVorauszahlungDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablevwUStVVorauszahlung.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablevwUStVVorauszahlung.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVAn_KuNr() As Integer Get Return CType(Me(Me.tablevwUStVVorauszahlung.UStVAn_KuNrColumn),Integer) End Get Set Me(Me.tablevwUStVVorauszahlung.UStVAn_KuNrColumn) = value End Set End Property _ Public Property UStVAn_ReDatVon() As Date Get Return CType(Me(Me.tablevwUStVVorauszahlung.UStVAn_ReDatVonColumn),Date) End Get Set Me(Me.tablevwUStVVorauszahlung.UStVAn_ReDatVonColumn) = value End Set End Property _ Public Property UStVAn_ReDatBis() As Date Get Return CType(Me(Me.tablevwUStVVorauszahlung.UStVAn_ReDatBisColumn),Date) End Get Set Me(Me.tablevwUStVVorauszahlung.UStVAn_ReDatBisColumn) = value End Set End Property _ Public Property UStVAn_Ausstellungsdatum() As Date Get Try Return CType(Me(Me.tablevwUStVVorauszahlung.UStVAn_AusstellungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ausstellungsdatum in Tabelle vwUStVVorauszahlung ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablevwUStVVorauszahlung.UStVAn_AusstellungsdatumColumn) = value End Set End Property _ Public Property UStVAn_LandNr() As Short Get Return CType(Me(Me.tablevwUStVVorauszahlung.UStVAn_LandNrColumn),Short) End Get Set Me(Me.tablevwUStVVorauszahlung.UStVAn_LandNrColumn) = value End Set End Property _ Public Property UStVAn_VZDatum() As Date Get Try Return CType(Me(Me.tablevwUStVVorauszahlung.UStVAn_VZDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZDatum in Tabelle vwUStVVorauszahlung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVVorauszahlung.UStVAn_VZDatumColumn) = value End Set End Property _ Public Property UStVAn_VZBetrag() As Decimal Get Try Return CType(Me(Me.tablevwUStVVorauszahlung.UStVAn_VZBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZBetrag in Tabelle vwUStVVorauszahlung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVVorauszahlung.UStVAn_VZBetragColumn) = value End Set End Property _ Public Property UStVAn_RZBetragVZ() As Decimal Get Try Return CType(Me(Me.tablevwUStVVorauszahlung.UStVAn_RZBetragVZColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_RZBetragVZ in Tabelle vwUStVVorauszahlung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVVorauszahlung.UStVAn_RZBetragVZColumn) = value End Set End Property _ Public Property Ordnungsbegriff() As String Get Return CType(Me(Me.tablevwUStVVorauszahlung.OrdnungsbegriffColumn),String) End Get Set Me(Me.tablevwUStVVorauszahlung.OrdnungsbegriffColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tablevwUStVVorauszahlung.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle vwUStVVorauszahlung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVVorauszahlung.LandKzColumn) = value End Set End Property _ Public Property Erstattungsbetrag() As Decimal Get Try Return CType(Me(Me.tablevwUStVVorauszahlung.ErstattungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstattungsbetrag in Tabelle vwUStVVorauszahlung ist DBNull.", e) End Try End Get Set Me(Me.tablevwUStVVorauszahlung.ErstattungsbetragColumn) = value End Set End Property _ Public Property UStVAn_VZBetragAktuell() As Decimal Get Try Return CType(Me(Me.tablevwUStVVorauszahlung.UStVAn_VZBetragAktuellColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZBetragAktuell in Tabelle vwUStVVorauszahlung ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablevwUStVVorauszahlung.UStVAn_VZBetragAktuellColumn) = value End Set End Property _ Public Function IsUStVAn_AusstellungsdatumNull() As Boolean Return Me.IsNull(Me.tablevwUStVVorauszahlung.UStVAn_AusstellungsdatumColumn) End Function _ Public Sub SetUStVAn_AusstellungsdatumNull() Me(Me.tablevwUStVVorauszahlung.UStVAn_AusstellungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZDatumNull() As Boolean Return Me.IsNull(Me.tablevwUStVVorauszahlung.UStVAn_VZDatumColumn) End Function _ Public Sub SetUStVAn_VZDatumNull() Me(Me.tablevwUStVVorauszahlung.UStVAn_VZDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZBetragNull() As Boolean Return Me.IsNull(Me.tablevwUStVVorauszahlung.UStVAn_VZBetragColumn) End Function _ Public Sub SetUStVAn_VZBetragNull() Me(Me.tablevwUStVVorauszahlung.UStVAn_VZBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RZBetragVZNull() As Boolean Return Me.IsNull(Me.tablevwUStVVorauszahlung.UStVAn_RZBetragVZColumn) End Function _ Public Sub SetUStVAn_RZBetragVZNull() Me(Me.tablevwUStVVorauszahlung.UStVAn_RZBetragVZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tablevwUStVVorauszahlung.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tablevwUStVVorauszahlung.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErstattungsbetragNull() As Boolean Return Me.IsNull(Me.tablevwUStVVorauszahlung.ErstattungsbetragColumn) End Function _ Public Sub SetErstattungsbetragNull() Me(Me.tablevwUStVVorauszahlung.ErstattungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZBetragAktuellNull() As Boolean Return Me.IsNull(Me.tablevwUStVVorauszahlung.UStVAn_VZBetragAktuellColumn) End Function _ Public Sub SetUStVAn_VZBetragAktuellNull() Me(Me.tablevwUStVVorauszahlung.UStVAn_VZBetragAktuellColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row Inherits Global.System.Data.DataRow Private tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1 As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1 = CType(Me.Table,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable) End Sub _ Public Property VERAG_KundenNr() As Integer Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1.VERAG_KundenNrColumn),Integer) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1.VERAG_KundenNrColumn) = value End Set End Property _ Public Property VERAG_OffertenNr() As Integer Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1.VERAG_OffertenNrColumn),Integer) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1.VERAG_OffertenNrColumn) = value End Set End Property _ Public Property VERAG_LeistungsNr() As Short Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1.VERAG_LeistungsNrColumn),Short) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1.VERAG_LeistungsNrColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow Inherits Global.System.Data.DataRow Private tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new = CType(Me.Table,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable) End Sub _ Public Property VERAG_KundenNr() As Integer Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new.VERAG_KundenNrColumn),Integer) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new.VERAG_KundenNrColumn) = value End Set End Property _ Public Property VERAG_OffertenNr() As Integer Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new.VERAG_OffertenNrColumn),Integer) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new.VERAG_OffertenNrColumn) = value End Set End Property _ Public Property VERAG_LeistungsNr() As Short Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new.VERAG_LeistungsNrColumn),Short) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new.VERAG_LeistungsNrColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row Inherits Global.System.Data.DataRow Private tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2 As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2 = CType(Me.Table,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable) End Sub _ Public Property VERAG_KundenNr() As Integer Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2.VERAG_KundenNrColumn),Integer) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2.VERAG_KundenNrColumn) = value End Set End Property _ Public Property VERAG_OffertenNr() As Integer Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2.VERAG_OffertenNrColumn),Integer) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2.VERAG_OffertenNrColumn) = value End Set End Property _ Public Property VERAG_LeistungsNr() As Short Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2.VERAG_LeistungsNrColumn),Short) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2.VERAG_LeistungsNrColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow Inherits Global.System.Data.DataRow Private tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new = CType(Me.Table,vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable) End Sub _ Public Property VERAG_KundenNr() As Integer Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new.VERAG_KundenNrColumn),Integer) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new.VERAG_KundenNrColumn) = value End Set End Property _ Public Property VERAG_OffertenNr() As Integer Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new.VERAG_OffertenNrColumn),Integer) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new.VERAG_OffertenNrColumn) = value End Set End Property _ Public Property VERAG_LeistungsNr() As Short Get Return CType(Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new.VERAG_LeistungsNrColumn),Short) End Get Set Me(Me.tablevwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new.VERAG_LeistungsNrColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spAlleTabellenRow Inherits Global.System.Data.DataRow Private tablespAlleTabellen As spAlleTabellenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespAlleTabellen = CType(Me.Table,spAlleTabellenDataTable) End Sub _ Public Property name() As String Get Return CType(Me(Me.tablespAlleTabellen.nameColumn),String) End Get Set Me(Me.tablespAlleTabellen.nameColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spReDruReNrVergebenRow Inherits Global.System.Data.DataRow Private tablespReDruReNrVergeben As spReDruReNrVergebenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespReDruReNrVergeben = CType(Me.Table,spReDruReNrVergebenDataTable) End Sub _ Public Property LfdRechnungsNr() As Integer Get Try Return CType(Me(Me.tablespReDruReNrVergeben.LfdRechnungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LfdRechnungsNr in Tabelle spReDruReNrVergeben ist DBNull.", e) End Try End Get Set Me(Me.tablespReDruReNrVergeben.LfdRechnungsNrColumn) = value End Set End Property _ Public Function IsLfdRechnungsNrNull() As Boolean Return Me.IsNull(Me.tablespReDruReNrVergeben.LfdRechnungsNrColumn) End Function _ Public Sub SetLfdRechnungsNrNull() Me(Me.tablespReDruReNrVergeben.LfdRechnungsNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spReDruSchnSaReDruckinfoEintragenRow Inherits Global.System.Data.DataRow Private tablespReDruSchnSaReDruckinfoEintragen As spReDruSchnSaReDruckinfoEintragenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespReDruSchnSaReDruckinfoEintragen = CType(Me.Table,spReDruSchnSaReDruckinfoEintragenDataTable) End Sub _ Public Property Returncode() As Integer Get Try Return CType(Me(Me.tablespReDruSchnSaReDruckinfoEintragen.ReturncodeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Returncode in Tabelle spReDruSchnSaReDruckinfoEintragen ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespReDruSchnSaReDruckinfoEintragen.ReturncodeColumn) = value End Set End Property _ Public Function IsReturncodeNull() As Boolean Return Me.IsNull(Me.tablespReDruSchnSaReDruckinfoEintragen.ReturncodeColumn) End Function _ Public Sub SetReturncodeNull() Me(Me.tablespReDruSchnSaReDruckinfoEintragen.ReturncodeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spReDruSchnSaReNrEintragenRow Inherits Global.System.Data.DataRow Private tablespReDruSchnSaReNrEintragen As spReDruSchnSaReNrEintragenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespReDruSchnSaReNrEintragen = CType(Me.Table,spReDruSchnSaReNrEintragenDataTable) End Sub _ Public Property ErrNumber() As Integer Get Try Return CType(Me(Me.tablespReDruSchnSaReNrEintragen.ErrNumberColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrNumber in Tabelle spReDruSchnSaReNrEintragen ist DBNull.", e) End Try End Get Set Me(Me.tablespReDruSchnSaReNrEintragen.ErrNumberColumn) = value End Set End Property _ Public Property ErrLevel() As Integer Get Try Return CType(Me(Me.tablespReDruSchnSaReNrEintragen.ErrLevelColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrLevel in Tabelle spReDruSchnSaReNrEintragen ist DBNull.", e) End Try End Get Set Me(Me.tablespReDruSchnSaReNrEintragen.ErrLevelColumn) = value End Set End Property _ Public Property ErrState() As Integer Get Try Return CType(Me(Me.tablespReDruSchnSaReNrEintragen.ErrStateColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrState in Tabelle spReDruSchnSaReNrEintragen ist DBNull.", e) End Try End Get Set Me(Me.tablespReDruSchnSaReNrEintragen.ErrStateColumn) = value End Set End Property _ Public Property ErrProcedure() As String Get Try Return CType(Me(Me.tablespReDruSchnSaReNrEintragen.ErrProcedureColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrProcedure in Tabelle spReDruSchnSaReNrEintragen ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespReDruSchnSaReNrEintragen.ErrProcedureColumn) = value End Set End Property _ Public Property ErrLine() As Integer Get Try Return CType(Me(Me.tablespReDruSchnSaReNrEintragen.ErrLineColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrLine in Tabelle spReDruSchnSaReNrEintragen ist DBNull.", e) End Try End Get Set Me(Me.tablespReDruSchnSaReNrEintragen.ErrLineColumn) = value End Set End Property _ Public Property ErrDescription() As String Get Try Return CType(Me(Me.tablespReDruSchnSaReNrEintragen.ErrDescriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrDescription in Tabelle spReDruSchnSaReNrEintragen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespReDruSchnSaReNrEintragen.ErrDescriptionColumn) = value End Set End Property _ Public Property ErrDate() As Date Get Try Return CType(Me(Me.tablespReDruSchnSaReNrEintragen.ErrDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErrDate in Tabelle spReDruSchnSaReNrEintragen ist DBNull.", e) End Try End Get Set Me(Me.tablespReDruSchnSaReNrEintragen.ErrDateColumn) = value End Set End Property _ Public Property LfdRechnungsNr() As Integer Get Try Return CType(Me(Me.tablespReDruSchnSaReNrEintragen.LfdRechnungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LfdRechnungsNr in Tabelle spReDruSchnSaReNrEintragen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespReDruSchnSaReNrEintragen.LfdRechnungsNrColumn) = value End Set End Property _ Public Function IsErrNumberNull() As Boolean Return Me.IsNull(Me.tablespReDruSchnSaReNrEintragen.ErrNumberColumn) End Function _ Public Sub SetErrNumberNull() Me(Me.tablespReDruSchnSaReNrEintragen.ErrNumberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErrLevelNull() As Boolean Return Me.IsNull(Me.tablespReDruSchnSaReNrEintragen.ErrLevelColumn) End Function _ Public Sub SetErrLevelNull() Me(Me.tablespReDruSchnSaReNrEintragen.ErrLevelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErrStateNull() As Boolean Return Me.IsNull(Me.tablespReDruSchnSaReNrEintragen.ErrStateColumn) End Function _ Public Sub SetErrStateNull() Me(Me.tablespReDruSchnSaReNrEintragen.ErrStateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErrProcedureNull() As Boolean Return Me.IsNull(Me.tablespReDruSchnSaReNrEintragen.ErrProcedureColumn) End Function _ Public Sub SetErrProcedureNull() Me(Me.tablespReDruSchnSaReNrEintragen.ErrProcedureColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErrLineNull() As Boolean Return Me.IsNull(Me.tablespReDruSchnSaReNrEintragen.ErrLineColumn) End Function _ Public Sub SetErrLineNull() Me(Me.tablespReDruSchnSaReNrEintragen.ErrLineColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErrDescriptionNull() As Boolean Return Me.IsNull(Me.tablespReDruSchnSaReNrEintragen.ErrDescriptionColumn) End Function _ Public Sub SetErrDescriptionNull() Me(Me.tablespReDruSchnSaReNrEintragen.ErrDescriptionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErrDateNull() As Boolean Return Me.IsNull(Me.tablespReDruSchnSaReNrEintragen.ErrDateColumn) End Function _ Public Sub SetErrDateNull() Me(Me.tablespReDruSchnSaReNrEintragen.ErrDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLfdRechnungsNrNull() As Boolean Return Me.IsNull(Me.tablespReDruSchnSaReNrEintragen.LfdRechnungsNrColumn) End Function _ Public Sub SetLfdRechnungsNrNull() Me(Me.tablespReDruSchnSaReNrEintragen.LfdRechnungsNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spReverseChargeSummeRow Inherits Global.System.Data.DataRow Private tablespReverseChargeSumme As spReverseChargeSummeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespReverseChargeSumme = CType(Me.Table,spReverseChargeSummeDataTable) End Sub _ Public Property ReverseChargeSumme() As Decimal Get Try Return CType(Me(Me.tablespReverseChargeSumme.ReverseChargeSummeColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ReverseChargeSumme in Tabelle spReverseChargeSumme ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespReverseChargeSumme.ReverseChargeSummeColumn) = value End Set End Property _ Public Function IsReverseChargeSummeNull() As Boolean Return Me.IsNull(Me.tablespReverseChargeSumme.ReverseChargeSummeColumn) End Function _ Public Sub SetReverseChargeSummeNull() Me(Me.tablespReverseChargeSumme.ReverseChargeSummeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECT_Bankspesen_für_KundenNrRow Inherits Global.System.Data.DataRow Private tablespSELECT_Bankspesen_für_KundenNr As spSELECT_Bankspesen_für_KundenNrDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECT_Bankspesen_für_KundenNr = CType(Me.Table,spSELECT_Bankspesen_für_KundenNrDataTable) End Sub _ Public Property _Bankspesen__() As Single Get Return CType(Me(Me.tablespSELECT_Bankspesen_für_KundenNr._Bankspesen__Column),Single) End Get Set Me(Me.tablespSELECT_Bankspesen_für_KundenNr._Bankspesen__Column) = value End Set End Property _ Public Property Bankspesen_Mindestbetrag() As Decimal Get Return CType(Me(Me.tablespSELECT_Bankspesen_für_KundenNr.Bankspesen_MindestbetragColumn),Decimal) End Get Set Me(Me.tablespSELECT_Bankspesen_für_KundenNr.Bankspesen_MindestbetragColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECT_tblZabis_Atlas_NCTSRow Inherits Global.System.Data.DataRow Private tablespSELECT_tblZabis_Atlas_NCTS As spSELECT_tblZabis_Atlas_NCTSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECT_tblZabis_Atlas_NCTS = CType(Me.Table,spSELECT_tblZabis_Atlas_NCTSDataTable) End Sub _ Public Property ID_NCTS() As Integer Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.ID_NCTSColumn),Integer) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.ID_NCTSColumn) = value End Set End Property _ Public Property basman_nr() As String Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.basman_nrColumn),String) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.basman_nrColumn) = value End Set End Property _ Public Property basman_nl() As String Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.basman_nlColumn),String) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.basman_nlColumn) = value End Set End Property _ Public Property veoant_beznr() As String Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_beznrColumn),String) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_beznrColumn) = value End Set End Property _ Public Property veoant_lfdnr() As Short Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_lfdnrColumn),Short) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_lfdnrColumn) = value End Set End Property _ Public Property veoant_stat() As Short Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_statColumn),Short) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_statColumn) = value End Set End Property _ Public Property veoant_arbnr() As String Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_arbnrColumn),String) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_arbnrColumn) = value End Set End Property _ Public Property veoant_mrn() As String Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_mrnColumn),String) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_mrnColumn) = value End Set End Property _ Public Property veoant_abgdst() As String Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_abgdstColumn),String) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_abgdstColumn) = value End Set End Property _ Public Property veoant_bedst() As String Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_bedstColumn),String) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_bedstColumn) = value End Set End Property _ Public Property veoant_wgdat() As Date Get Try Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_wgdatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte veoant_wgdat in Tabelle spSELECT_tblZabis_Atlas_NCTS ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_wgdatColumn) = value End Set End Property _ Public Property veoant_anzpos() As Short Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_anzposColumn),Short) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_anzposColumn) = value End Set End Property _ Public Property veoant_andat() As Date Get Try Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_andatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte veoant_andat in Tabelle spSELECT_tblZabis_Atlas_NCTS ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_andatColumn) = value End Set End Property _ Public Property veoant_korant() As Short Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_korantColumn),Short) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_korantColumn) = value End Set End Property _ Public Property veoant_vrbdat() As Date Get Try Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_vrbdatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte veoant_vrbdat in Tabelle spSELECT_tblZabis_Atlas_NCTS ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_vrbdatColumn) = value End Set End Property _ Public Property veoant_sb() As String Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_sbColumn),String) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_sbColumn) = value End Set End Property _ Public Property veopos_posnr() As Short Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veopos_posnrColumn),Short) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veopos_posnrColumn) = value End Set End Property _ Public Property veopos_stat() As Short Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veopos_statColumn),Short) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veopos_statColumn) = value End Set End Property _ Public Property veopos_wbsch1() As String Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veopos_wbsch1Column),String) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veopos_wbsch1Column) = value End Set End Property _ Public Property veopos_rohmas() As Decimal Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veopos_rohmasColumn),Decimal) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veopos_rohmasColumn) = value End Set End Property _ Public Property veoerz_sicbsc() As String Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoerz_sicbscColumn),String) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoerz_sicbscColumn) = value End Set End Property _ Public Property veoerz_basbtg() As Decimal Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoerz_basbtgColumn),Decimal) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoerz_basbtgColumn) = value End Set End Property _ Public Property veoerz_sicbtg() As Decimal Get Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoerz_sicbtgColumn),Decimal) End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoerz_sicbtgColumn) = value End Set End Property _ Public Property vegdat_erldat() As Date Get Try Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.vegdat_erldatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vegdat_erldat in Tabelle spSELECT_tblZabis_Atlas_NCTS ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.vegdat_erldatColumn) = value End Set End Property _ Public Property History() As Boolean Get Try Return CType(Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.HistoryColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte History in Tabelle spSELECT_tblZabis_Atlas_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.HistoryColumn) = value End Set End Property _ Public Function Isveoant_wgdatNull() As Boolean Return Me.IsNull(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_wgdatColumn) End Function _ Public Sub Setveoant_wgdatNull() Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_wgdatColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isveoant_andatNull() As Boolean Return Me.IsNull(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_andatColumn) End Function _ Public Sub Setveoant_andatNull() Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_andatColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isveoant_vrbdatNull() As Boolean Return Me.IsNull(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_vrbdatColumn) End Function _ Public Sub Setveoant_vrbdatNull() Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.veoant_vrbdatColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvegdat_erldatNull() As Boolean Return Me.IsNull(Me.tablespSELECT_tblZabis_Atlas_NCTS.vegdat_erldatColumn) End Function _ Public Sub Setvegdat_erldatNull() Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.vegdat_erldatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHistoryNull() As Boolean Return Me.IsNull(Me.tablespSELECT_tblZabis_Atlas_NCTS.HistoryColumn) End Function _ Public Sub SetHistoryNull() Me(Me.tablespSELECT_tblZabis_Atlas_NCTS.HistoryColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTAufschubdatenRow Inherits Global.System.Data.DataRow Private tablespSELECTAufschubdaten As spSELECTAufschubdatenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTAufschubdaten = CType(Me.Table,spSELECTAufschubdatenDataTable) End Sub _ Public Property AufschubkontoNr() As String Get Return CType(Me(Me.tablespSELECTAufschubdaten.AufschubkontoNrColumn),String) End Get Set Me(Me.tablespSELECTAufschubdaten.AufschubkontoNrColumn) = value End Set End Property _ Public Property Fälligkeit() As Date Get Return CType(Me(Me.tablespSELECTAufschubdaten.FälligkeitColumn),Date) End Get Set Me(Me.tablespSELECTAufschubdaten.FälligkeitColumn) = value End Set End Property _ Public Property VorbuchNr() As String Get Return CType(Me(Me.tablespSELECTAufschubdaten.VorbuchNrColumn),String) End Get Set Me(Me.tablespSELECTAufschubdaten.VorbuchNrColumn) = value End Set End Property _ Public Property Buchungsdatum() As Date Get Try Return CType(Me(Me.tablespSELECTAufschubdaten.BuchungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsdatum in Tabelle spSELECTAufschubdaten ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTAufschubdaten.BuchungsdatumColumn) = value End Set End Property _ Public Property Abfertigungsort() As String Get Try Return CType(Me(Me.tablespSELECTAufschubdaten.AbfertigungsortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsort in Tabelle spSELECTAufschubdaten ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTAufschubdaten.AbfertigungsortColumn) = value End Set End Property _ Public Property WährungsKz() As String Get Try Return CType(Me(Me.tablespSELECTAufschubdaten.WährungsKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungsKz in Tabelle spSELECTAufschubdaten ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTAufschubdaten.WährungsKzColumn) = value End Set End Property _ Public Property Betrag() As Decimal Get Return CType(Me(Me.tablespSELECTAufschubdaten.BetragColumn),Decimal) End Get Set Me(Me.tablespSELECTAufschubdaten.BetragColumn) = value End Set End Property _ Public Property Fakturiert() As Decimal Get Try Return CType(Me(Me.tablespSELECTAufschubdaten.FakturiertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fakturiert in Tabelle spSELECTAufschubdaten ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTAufschubdaten.FakturiertColumn) = value End Set End Property _ Public Function IsBuchungsdatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTAufschubdaten.BuchungsdatumColumn) End Function _ Public Sub SetBuchungsdatumNull() Me(Me.tablespSELECTAufschubdaten.BuchungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsortNull() As Boolean Return Me.IsNull(Me.tablespSELECTAufschubdaten.AbfertigungsortColumn) End Function _ Public Sub SetAbfertigungsortNull() Me(Me.tablespSELECTAufschubdaten.AbfertigungsortColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungsKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTAufschubdaten.WährungsKzColumn) End Function _ Public Sub SetWährungsKzNull() Me(Me.tablespSELECTAufschubdaten.WährungsKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFakturiertNull() As Boolean Return Me.IsNull(Me.tablespSELECTAufschubdaten.FakturiertColumn) End Function _ Public Sub SetFakturiertNull() Me(Me.tablespSELECTAufschubdaten.FakturiertColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTRechnungsausgangRow Inherits Global.System.Data.DataRow Private tablespSELECTRechnungsausgang As spSELECTRechnungsausgangDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTRechnungsausgang = CType(Me.Table,spSELECTRechnungsausgangDataTable) End Sub _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tablespSELECTRechnungsausgang.RK_IDColumn),Integer) End Get Set Me(Me.tablespSELECTRechnungsausgang.RK_IDColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tablespSELECTRechnungsausgang.FilialenNrColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsausgang.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tablespSELECTRechnungsausgang.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tablespSELECTRechnungsausgang.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tablespSELECTRechnungsausgang.UnterNrColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsausgang.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Return CType(Me(Me.tablespSELECTRechnungsausgang.AbfertigungsdatumColumn),Date) End Get Set Me(Me.tablespSELECTRechnungsausgang.AbfertigungsdatumColumn) = value End Set End Property _ Public Property RechnungsNr() As Integer Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsNr in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsNrColumn) = value End Set End Property _ Public Property RechnungsDatum() As Date Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsDatum in Tabelle spSELECTRechnungsausgang ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsDatumColumn) = value End Set End Property _ Public Property Sammelrechnung() As Short Get Return CType(Me(Me.tablespSELECTRechnungsausgang.SammelrechnungColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsausgang.SammelrechnungColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Return CType(Me(Me.tablespSELECTRechnungsausgang.BelegartenNrColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsausgang.BelegartenNrColumn) = value End Set End Property _ Public Property BelegartenKz() As String Get Return CType(Me(Me.tablespSELECTRechnungsausgang.BelegartenKzColumn),String) End Get Set Me(Me.tablespSELECTRechnungsausgang.BelegartenKzColumn) = value End Set End Property _ Public Property BelegartenBez() As String Get Return CType(Me(Me.tablespSELECTRechnungsausgang.BelegartenBezColumn),String) End Get Set Me(Me.tablespSELECTRechnungsausgang.BelegartenBezColumn) = value End Set End Property _ Public Property Vorzeichen() As String Get Return CType(Me(Me.tablespSELECTRechnungsausgang.VorzeichenColumn),String) End Get Set Me(Me.tablespSELECTRechnungsausgang.VorzeichenColumn) = value End Set End Property _ Public Property BelegNr() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.BelegNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegNr in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.BelegNrColumn) = value End Set End Property _ Public Property AbsenderLandKz() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.AbsenderLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderLandKz in Tabelle spSELECTRechnungsausgang ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.AbsenderLandKzColumn) = value End Set End Property _ Public Property AbsenderKundenNr() As Integer Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.AbsenderKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderKundenNr in Tabelle spSELECTRechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.AbsenderKundenNrColumn) = value End Set End Property _ Public Property AbsenderName_1() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.AbsenderName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderName 1 in Tabelle spSELECTRechnungsausgang ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.AbsenderName_1Column) = value End Set End Property _ Public Property AbsenderName_2() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.AbsenderName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderName 2 in Tabelle spSELECTRechnungsausgang ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.AbsenderName_2Column) = value End Set End Property _ Public Property AbsenderStraße() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.AbsenderStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderStraße in Tabelle spSELECTRechnungsausgang ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.AbsenderStraßeColumn) = value End Set End Property _ Public Property AbsenderOrt() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.AbsenderOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOrt in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.AbsenderOrtColumn) = value End Set End Property _ Public Property AbsenderOffertenNr() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.AbsenderOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOffertenNr in Tabelle spSELECTRechnungsausgang ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.AbsenderOffertenNrColumn) = value End Set End Property _ Public Property EmpfängerLandKz() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.EmpfängerLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerLandKz in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.EmpfängerLandKzColumn) = value End Set End Property _ Public Property EmpfängerKundenNr() As Integer Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.EmpfängerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerKundenNr in Tabelle spSELECTRechnungsausgang ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.EmpfängerKundenNrColumn) = value End Set End Property _ Public Property EmpfängerName_1() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.EmpfängerName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerName 1 in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.EmpfängerName_1Column) = value End Set End Property _ Public Property EmpfängerName_2() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.EmpfängerName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerName 2 in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.EmpfängerName_2Column) = value End Set End Property _ Public Property EmpfängerStraße() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.EmpfängerStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerStraße in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.EmpfängerStraßeColumn) = value End Set End Property _ Public Property EmpfängerOrt() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.EmpfängerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOrt in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.EmpfängerOrtColumn) = value End Set End Property _ Public Property EmpfängerOffertenNr() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.EmpfängerOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOffertenNr in Tabelle spSELECTRechnungsausgang ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.EmpfängerOffertenNrColumn) = value End Set End Property _ Public Property VermittlerLandKz() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.VermittlerLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerLandKz in Tabelle spSELECTRechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.VermittlerLandKzColumn) = value End Set End Property _ Public Property VermittlerKundenNr() As Integer Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.VermittlerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerKundenNr in Tabelle spSELECTRechnungsausgang ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.VermittlerKundenNrColumn) = value End Set End Property _ Public Property VermittlerName_1() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.VermittlerName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerName 1 in Tabelle spSELECTRechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.VermittlerName_1Column) = value End Set End Property _ Public Property VermittlerName_2() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.VermittlerName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerName 2 in Tabelle spSELECTRechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.VermittlerName_2Column) = value End Set End Property _ Public Property VermittlerStraße() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.VermittlerStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerStraße in Tabelle spSELECTRechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.VermittlerStraßeColumn) = value End Set End Property _ Public Property VermittlerOrt() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.VermittlerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOrt in Tabelle spSELECTRechnungsausgang ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.VermittlerOrtColumn) = value End Set End Property _ Public Property VermittlerOffertenNr() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.VermittlerOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOffertenNr in Tabelle spSELECTRechnungsausgang ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.VermittlerOffertenNrColumn) = value End Set End Property _ Public Property Rechnung_an() As Short Get Return CType(Me(Me.tablespSELECTRechnungsausgang.Rechnung_anColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsausgang.Rechnung_anColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.KundenNrZentraleColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNrZentrale in Tabelle spSELECTRechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.KundenNrZentraleColumn) = value End Set End Property _ Public Property RechnungsLandKz() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsLandKz in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsLandKzColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsKundenNrColumn),Integer) End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsKundenNrColumn) = value End Set End Property _ Public Property RechnungsName_1() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsName 1 in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsName_1Column) = value End Set End Property _ Public Property RechnungsName_2() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsName 2 in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsName_2Column) = value End Set End Property _ Public Property RechnungsStraße() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsStraße in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsStraßeColumn) = value End Set End Property _ Public Property RechnungsOrt() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsOrt in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsOrtColumn) = value End Set End Property _ Public Property RechnungsUstIdKz() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsUstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdKz in Tabelle spSELECTRechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsUstIdKzColumn) = value End Set End Property _ Public Property RechnungsUstIdNr() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsUstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdNr in Tabelle spSELECTRechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsUstIdNrColumn) = value End Set End Property _ Public Property RechnungsUstIdGeprüft() As Date Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RechnungsUstIdGeprüftColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdGeprüft in Tabelle spSELECTRechnungsausgang ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RechnungsUstIdGeprüftColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablespSELECTRechnungsausgang.LastschriftColumn),Boolean) End Get Set Me(Me.tablespSELECTRechnungsausgang.LastschriftColumn) = value End Set End Property _ Public Property _Kunden_SVS() As Boolean Get Return CType(Me(Me.tablespSELECTRechnungsausgang._Kunden_SVSColumn),Boolean) End Get Set Me(Me.tablespSELECTRechnungsausgang._Kunden_SVSColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Return CType(Me(Me.tablespSELECTRechnungsausgang.SteuerschlüsselColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsausgang.SteuerschlüsselColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Return CType(Me(Me.tablespSELECTRechnungsausgang._Steuersatz__Column),Single) End Get Set Me(Me.tablespSELECTRechnungsausgang._Steuersatz__Column) = value End Set End Property _ Public Property LKW_Kennzeichen() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.LKW_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW Kennzeichen in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.LKW_KennzeichenColumn) = value End Set End Property _ Public Property WährungsNr() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.WährungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungsNr in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.WährungsNrColumn) = value End Set End Property _ Public Property Wert() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.WertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wert in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.WertColumn) = value End Set End Property _ Public Property Umrechnungskurs() As Double Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umrechnungskurs in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.UmrechnungskursColumn) = value End Set End Property _ Public Property Packstücke_und_Warenbezeichnung() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.Packstücke_und_WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packstücke und Warenbezeichnung in Tabelle spSELECTRechnungsa"& _ "usgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.Packstücke_und_WarenbezeichnungColumn) = value End Set End Property _ Public Property Vermerk() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vermerk in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.VermerkColumn) = value End Set End Property _ Public Property Anlage_1() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.Anlage_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 1 in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.Anlage_1Column) = value End Set End Property _ Public Property Anlage_2() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.Anlage_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 2 in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.Anlage_2Column) = value End Set End Property _ Public Property Anlage_3() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.Anlage_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 3 in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.Anlage_3Column) = value End Set End Property _ Public Property Anlage_4() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.Anlage_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 4 in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.Anlage_4Column) = value End Set End Property _ Public Property Anlage_5() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.Anlage_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 5 in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.Anlage_5Column) = value End Set End Property _ Public Property Anlage_6() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.Anlage_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 6 in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.Anlage_6Column) = value End Set End Property _ Public Property OffertenNr() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.OffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OffertenNr in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.OffertenNrColumn) = value End Set End Property _ Public Property _Vorlageprovision__() As Single Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang._Vorlageprovision__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorlageprovision % in Tabelle spSELECTRechnungsausgang ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang._Vorlageprovision__Column) = value End Set End Property _ Public Property _Kreditaufwendungen__() As Single Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang._Kreditaufwendungen__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kreditaufwendungen % in Tabelle spSELECTRechnungsausgang ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang._Kreditaufwendungen__Column) = value End Set End Property _ Public Property Besonderheiten() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.BesonderheitenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Besonderheiten in Tabelle spSELECTRechnungsausgang ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.BesonderheitenColumn) = value End Set End Property _ Public Property Vorkasse() As Boolean Get Return CType(Me(Me.tablespSELECTRechnungsausgang.VorkasseColumn),Boolean) End Get Set Me(Me.tablespSELECTRechnungsausgang.VorkasseColumn) = value End Set End Property _ Public Property Text() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Text in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.TextColumn) = value End Set End Property _ Public Property SteuerpflichtigerGesamtbetrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.SteuerpflichtigerGesamtbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerGesamtbetrag in Tabelle spSELECTRechnungsaus"& _ "gang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.SteuerpflichtigerGesamtbetragColumn) = value End Set End Property _ Public Property SteuerfreierGesamtbetrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.SteuerfreierGesamtbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierGesamtbetrag in Tabelle spSELECTRechnungsausgang "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.SteuerfreierGesamtbetragColumn) = value End Set End Property _ Public Property Status() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.StatusColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.StatusColumn) = value End Set End Property _ Public Property DruckDatumZeit() As Date Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.DruckDatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DruckDatumZeit in Tabelle spSELECTRechnungsausgang ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.DruckDatumZeitColumn) = value End Set End Property _ Public Property Abfertigungskosten() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.AbfertigungskostenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungskosten in Tabelle spSELECTRechnungsausgang ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.AbfertigungskostenColumn) = value End Set End Property _ Public Property Vorkosten() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.VorkostenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorkosten in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.VorkostenColumn) = value End Set End Property _ Public Property Erlös() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.ErlösColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erlös in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.ErlösColumn) = value End Set End Property _ Public Property Buchungsjahr() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.BuchungsjahrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsjahr in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.BuchungsjahrColumn) = value End Set End Property _ Public Property Währungscode() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungscode in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.WährungscodeColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle spSELECTRechnungsausgang ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.SachbearbeiterColumn) = value End Set End Property _ Public Property Trdin() As Boolean Get Return CType(Me(Me.tablespSELECTRechnungsausgang.TrdinColumn),Boolean) End Get Set Me(Me.tablespSELECTRechnungsausgang.TrdinColumn) = value End Set End Property _ Public Property KartenNr() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.KartenNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KartenNr in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.KartenNrColumn) = value End Set End Property _ Public Property RefFilialenNr() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RefFilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefFilialenNr in Tabelle spSELECTRechnungsausgang ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RefFilialenNrColumn) = value End Set End Property _ Public Property RefAbfertigungsNr() As Integer Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RefAbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefAbfertigungsNr in Tabelle spSELECTRechnungsausgang ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RefAbfertigungsNrColumn) = value End Set End Property _ Public Property RefUnterNr() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.RefUnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefUnterNr in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.RefUnterNrColumn) = value End Set End Property _ Public Property Notiz() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.NotizColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Notiz in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.NotizColumn) = value End Set End Property _ Public Property Zucker_MRN_Nr() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.Zucker_MRN_NrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Nr in Tabelle spSELECTRechnungsausgang ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.Zucker_MRN_NrColumn) = value End Set End Property _ Public Property Zucker_MRN_Datum() As Date Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.Zucker_MRN_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Datum in Tabelle spSELECTRechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.Zucker_MRN_DatumColumn) = value End Set End Property _ Public Property Zucker_Aufschub() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.Zucker_AufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_Aufschub in Tabelle spSELECTRechnungsausgang ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.Zucker_AufschubColumn) = value End Set End Property _ Public Property ReErfZeitstempel() As Date Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.ReErfZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ReErfZeitstempel in Tabelle spSELECTRechnungsausgang ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.ReErfZeitstempelColumn) = value End Set End Property _ Public Property Nettozahlungsziel() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.NettozahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettozahlungsziel in Tabelle spSELECTRechnungsausgang ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.NettozahlungszielColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablespSELECTRechnungsausgang.Firma_IDColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsausgang.Firma_IDColumn) = value End Set End Property _ Public Property SpeditionsbuchUnterNr() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.SpeditionsbuchUnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SpeditionsbuchUnterNr in Tabelle spSELECTRechnungsausgang ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.SpeditionsbuchUnterNrColumn) = value End Set End Property _ Public Property ErfassungsNr() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgang.ErfassungsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErfassungsNr in Tabelle spSELECTRechnungsausgang ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgang.ErfassungsNrColumn) = value End Set End Property _ Public Function IsRechnungsNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RechnungsNrColumn) End Function _ Public Sub SetRechnungsNrNull() Me(Me.tablespSELECTRechnungsausgang.RechnungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsDatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RechnungsDatumColumn) End Function _ Public Sub SetRechnungsDatumNull() Me(Me.tablespSELECTRechnungsausgang.RechnungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.BelegNrColumn) End Function _ Public Sub SetBelegNrNull() Me(Me.tablespSELECTRechnungsausgang.BelegNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderLandKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.AbsenderLandKzColumn) End Function _ Public Sub SetAbsenderLandKzNull() Me(Me.tablespSELECTRechnungsausgang.AbsenderLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.AbsenderKundenNrColumn) End Function _ Public Sub SetAbsenderKundenNrNull() Me(Me.tablespSELECTRechnungsausgang.AbsenderKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderName_1Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.AbsenderName_1Column) End Function _ Public Sub SetAbsenderName_1Null() Me(Me.tablespSELECTRechnungsausgang.AbsenderName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderName_2Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.AbsenderName_2Column) End Function _ Public Sub SetAbsenderName_2Null() Me(Me.tablespSELECTRechnungsausgang.AbsenderName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderStraßeNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.AbsenderStraßeColumn) End Function _ Public Sub SetAbsenderStraßeNull() Me(Me.tablespSELECTRechnungsausgang.AbsenderStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOrtNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.AbsenderOrtColumn) End Function _ Public Sub SetAbsenderOrtNull() Me(Me.tablespSELECTRechnungsausgang.AbsenderOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.AbsenderOffertenNrColumn) End Function _ Public Sub SetAbsenderOffertenNrNull() Me(Me.tablespSELECTRechnungsausgang.AbsenderOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerLandKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.EmpfängerLandKzColumn) End Function _ Public Sub SetEmpfängerLandKzNull() Me(Me.tablespSELECTRechnungsausgang.EmpfängerLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.EmpfängerKundenNrColumn) End Function _ Public Sub SetEmpfängerKundenNrNull() Me(Me.tablespSELECTRechnungsausgang.EmpfängerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerName_1Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.EmpfängerName_1Column) End Function _ Public Sub SetEmpfängerName_1Null() Me(Me.tablespSELECTRechnungsausgang.EmpfängerName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerName_2Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.EmpfängerName_2Column) End Function _ Public Sub SetEmpfängerName_2Null() Me(Me.tablespSELECTRechnungsausgang.EmpfängerName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerStraßeNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.EmpfängerStraßeColumn) End Function _ Public Sub SetEmpfängerStraßeNull() Me(Me.tablespSELECTRechnungsausgang.EmpfängerStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOrtNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.EmpfängerOrtColumn) End Function _ Public Sub SetEmpfängerOrtNull() Me(Me.tablespSELECTRechnungsausgang.EmpfängerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.EmpfängerOffertenNrColumn) End Function _ Public Sub SetEmpfängerOffertenNrNull() Me(Me.tablespSELECTRechnungsausgang.EmpfängerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerLandKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.VermittlerLandKzColumn) End Function _ Public Sub SetVermittlerLandKzNull() Me(Me.tablespSELECTRechnungsausgang.VermittlerLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.VermittlerKundenNrColumn) End Function _ Public Sub SetVermittlerKundenNrNull() Me(Me.tablespSELECTRechnungsausgang.VermittlerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerName_1Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.VermittlerName_1Column) End Function _ Public Sub SetVermittlerName_1Null() Me(Me.tablespSELECTRechnungsausgang.VermittlerName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerName_2Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.VermittlerName_2Column) End Function _ Public Sub SetVermittlerName_2Null() Me(Me.tablespSELECTRechnungsausgang.VermittlerName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerStraßeNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.VermittlerStraßeColumn) End Function _ Public Sub SetVermittlerStraßeNull() Me(Me.tablespSELECTRechnungsausgang.VermittlerStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOrtNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.VermittlerOrtColumn) End Function _ Public Sub SetVermittlerOrtNull() Me(Me.tablespSELECTRechnungsausgang.VermittlerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.VermittlerOffertenNrColumn) End Function _ Public Sub SetVermittlerOffertenNrNull() Me(Me.tablespSELECTRechnungsausgang.VermittlerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKundenNrZentraleNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.KundenNrZentraleColumn) End Function _ Public Sub SetKundenNrZentraleNull() Me(Me.tablespSELECTRechnungsausgang.KundenNrZentraleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsLandKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RechnungsLandKzColumn) End Function _ Public Sub SetRechnungsLandKzNull() Me(Me.tablespSELECTRechnungsausgang.RechnungsLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsName_1Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RechnungsName_1Column) End Function _ Public Sub SetRechnungsName_1Null() Me(Me.tablespSELECTRechnungsausgang.RechnungsName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsName_2Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RechnungsName_2Column) End Function _ Public Sub SetRechnungsName_2Null() Me(Me.tablespSELECTRechnungsausgang.RechnungsName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsStraßeNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RechnungsStraßeColumn) End Function _ Public Sub SetRechnungsStraßeNull() Me(Me.tablespSELECTRechnungsausgang.RechnungsStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsOrtNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RechnungsOrtColumn) End Function _ Public Sub SetRechnungsOrtNull() Me(Me.tablespSELECTRechnungsausgang.RechnungsOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RechnungsUstIdKzColumn) End Function _ Public Sub SetRechnungsUstIdKzNull() Me(Me.tablespSELECTRechnungsausgang.RechnungsUstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RechnungsUstIdNrColumn) End Function _ Public Sub SetRechnungsUstIdNrNull() Me(Me.tablespSELECTRechnungsausgang.RechnungsUstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdGeprüftNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RechnungsUstIdGeprüftColumn) End Function _ Public Sub SetRechnungsUstIdGeprüftNull() Me(Me.tablespSELECTRechnungsausgang.RechnungsUstIdGeprüftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLKW_KennzeichenNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.LKW_KennzeichenColumn) End Function _ Public Sub SetLKW_KennzeichenNull() Me(Me.tablespSELECTRechnungsausgang.LKW_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungsNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.WährungsNrColumn) End Function _ Public Sub SetWährungsNrNull() Me(Me.tablespSELECTRechnungsausgang.WährungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWertNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.WertColumn) End Function _ Public Sub SetWertNull() Me(Me.tablespSELECTRechnungsausgang.WertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmrechnungskursNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.UmrechnungskursColumn) End Function _ Public Sub SetUmrechnungskursNull() Me(Me.tablespSELECTRechnungsausgang.UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPackstücke_und_WarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.Packstücke_und_WarenbezeichnungColumn) End Function _ Public Sub SetPackstücke_und_WarenbezeichnungNull() Me(Me.tablespSELECTRechnungsausgang.Packstücke_und_WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermerkNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.VermerkColumn) End Function _ Public Sub SetVermerkNull() Me(Me.tablespSELECTRechnungsausgang.VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_1Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.Anlage_1Column) End Function _ Public Sub SetAnlage_1Null() Me(Me.tablespSELECTRechnungsausgang.Anlage_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_2Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.Anlage_2Column) End Function _ Public Sub SetAnlage_2Null() Me(Me.tablespSELECTRechnungsausgang.Anlage_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_3Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.Anlage_3Column) End Function _ Public Sub SetAnlage_3Null() Me(Me.tablespSELECTRechnungsausgang.Anlage_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_4Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.Anlage_4Column) End Function _ Public Sub SetAnlage_4Null() Me(Me.tablespSELECTRechnungsausgang.Anlage_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_5Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.Anlage_5Column) End Function _ Public Sub SetAnlage_5Null() Me(Me.tablespSELECTRechnungsausgang.Anlage_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_6Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.Anlage_6Column) End Function _ Public Sub SetAnlage_6Null() Me(Me.tablespSELECTRechnungsausgang.Anlage_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.OffertenNrColumn) End Function _ Public Sub SetOffertenNrNull() Me(Me.tablespSELECTRechnungsausgang.OffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Vorlageprovision__Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang._Vorlageprovision__Column) End Function _ Public Sub Set_Vorlageprovision__Null() Me(Me.tablespSELECTRechnungsausgang._Vorlageprovision__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Kreditaufwendungen__Null() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang._Kreditaufwendungen__Column) End Function _ Public Sub Set_Kreditaufwendungen__Null() Me(Me.tablespSELECTRechnungsausgang._Kreditaufwendungen__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesonderheitenNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.BesonderheitenColumn) End Function _ Public Sub SetBesonderheitenNull() Me(Me.tablespSELECTRechnungsausgang.BesonderheitenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTextNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.TextColumn) End Function _ Public Sub SetTextNull() Me(Me.tablespSELECTRechnungsausgang.TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerGesamtbetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.SteuerpflichtigerGesamtbetragColumn) End Function _ Public Sub SetSteuerpflichtigerGesamtbetragNull() Me(Me.tablespSELECTRechnungsausgang.SteuerpflichtigerGesamtbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierGesamtbetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.SteuerfreierGesamtbetragColumn) End Function _ Public Sub SetSteuerfreierGesamtbetragNull() Me(Me.tablespSELECTRechnungsausgang.SteuerfreierGesamtbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tablespSELECTRechnungsausgang.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDruckDatumZeitNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.DruckDatumZeitColumn) End Function _ Public Sub SetDruckDatumZeitNull() Me(Me.tablespSELECTRechnungsausgang.DruckDatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungskostenNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.AbfertigungskostenColumn) End Function _ Public Sub SetAbfertigungskostenNull() Me(Me.tablespSELECTRechnungsausgang.AbfertigungskostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorkostenNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.VorkostenColumn) End Function _ Public Sub SetVorkostenNull() Me(Me.tablespSELECTRechnungsausgang.VorkostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErlösNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.ErlösColumn) End Function _ Public Sub SetErlösNull() Me(Me.tablespSELECTRechnungsausgang.ErlösColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungsjahrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.BuchungsjahrColumn) End Function _ Public Sub SetBuchungsjahrNull() Me(Me.tablespSELECTRechnungsausgang.BuchungsjahrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungscodeNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.WährungscodeColumn) End Function _ Public Sub SetWährungscodeNull() Me(Me.tablespSELECTRechnungsausgang.WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablespSELECTRechnungsausgang.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.KartenNrColumn) End Function _ Public Sub SetKartenNrNull() Me(Me.tablespSELECTRechnungsausgang.KartenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefFilialenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RefFilialenNrColumn) End Function _ Public Sub SetRefFilialenNrNull() Me(Me.tablespSELECTRechnungsausgang.RefFilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RefAbfertigungsNrColumn) End Function _ Public Sub SetRefAbfertigungsNrNull() Me(Me.tablespSELECTRechnungsausgang.RefAbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefUnterNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.RefUnterNrColumn) End Function _ Public Sub SetRefUnterNrNull() Me(Me.tablespSELECTRechnungsausgang.RefUnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNotizNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.NotizColumn) End Function _ Public Sub SetNotizNull() Me(Me.tablespSELECTRechnungsausgang.NotizColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_NrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.Zucker_MRN_NrColumn) End Function _ Public Sub SetZucker_MRN_NrNull() Me(Me.tablespSELECTRechnungsausgang.Zucker_MRN_NrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_DatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.Zucker_MRN_DatumColumn) End Function _ Public Sub SetZucker_MRN_DatumNull() Me(Me.tablespSELECTRechnungsausgang.Zucker_MRN_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_AufschubNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.Zucker_AufschubColumn) End Function _ Public Sub SetZucker_AufschubNull() Me(Me.tablespSELECTRechnungsausgang.Zucker_AufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReErfZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.ReErfZeitstempelColumn) End Function _ Public Sub SetReErfZeitstempelNull() Me(Me.tablespSELECTRechnungsausgang.ReErfZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettozahlungszielNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.NettozahlungszielColumn) End Function _ Public Sub SetNettozahlungszielNull() Me(Me.tablespSELECTRechnungsausgang.NettozahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSpeditionsbuchUnterNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.SpeditionsbuchUnterNrColumn) End Function _ Public Sub SetSpeditionsbuchUnterNrNull() Me(Me.tablespSELECTRechnungsausgang.SpeditionsbuchUnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErfassungsNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgang.ErfassungsNrColumn) End Function _ Public Sub SetErfassungsNrNull() Me(Me.tablespSELECTRechnungsausgang.ErfassungsNrColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTRechnungsausgangPositionenRow Inherits Global.System.Data.DataRow Private tablespSELECTRechnungsausgangPositionen As spSELECTRechnungsausgangPositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTRechnungsausgangPositionen = CType(Me.Table,spSELECTRechnungsausgangPositionenDataTable) End Sub _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.RK_IDColumn),Integer) End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.RK_IDColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.LeistungsNrColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.LeistungsNrColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.SteuerpflichtigColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.LeistungsBezColumn),String) End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.LeistungsBezColumn) = value End Set End Property _ Public Property IndexZkteing() As Integer Get Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.IndexZkteingColumn),Integer) End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.IndexZkteingColumn) = value End Set End Property _ Public Property BerechnungsartNr() As Short Get Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.BerechnungsartNrColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.BerechnungsartNrColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle spSELECTRechnungsausgangPositionen ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.PreisColumn) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle spSELECTRechnungsausgangPositionen ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.AnzahlColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.SteuerpflichtigerBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetrag in Tabelle spSELECTRechnungsausgangPo"& _ "sitionen ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.SteuerpflichtigerBetragColumn) = value End Set End Property _ Public Property SteuerfreierBetrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.SteuerfreierBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetrag in Tabelle spSELECTRechnungsausgangPositio"& _ "nen ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.SteuerfreierBetragColumn) = value End Set End Property _ Public Property AufschubkontoNr() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.AufschubkontoNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AufschubkontoNr in Tabelle spSELECTRechnungsausgangPositionen"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.AufschubkontoNrColumn) = value End Set End Property _ Public Property Aufschubfälligkeit() As Date Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.AufschubfälligkeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aufschubfälligkeit in Tabelle spSELECTRechnungsausgangPositio"& _ "nen ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.AufschubfälligkeitColumn) = value End Set End Property _ Public Property Prüfsumme_berechnen() As Boolean Get Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.Prüfsumme_berechnenColumn),Boolean) End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.Prüfsumme_berechnenColumn) = value End Set End Property _ Public Property DateiNameAufschub() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.DateiNameAufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DateiNameAufschub in Tabelle spSELECTRechnungsausgangPosition"& _ "en ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.DateiNameAufschubColumn) = value End Set End Property _ Public Property Preisbindung() As Boolean Get Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.PreisbindungColumn),Boolean) End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.PreisbindungColumn) = value End Set End Property _ Public Property Belegdaten() As String Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.BelegdatenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdaten in Tabelle spSELECTRechnungsausgangPositionen ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.BelegdatenColumn) = value End Set End Property _ Public Property Fremdwährung() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.FremdwährungColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fremdwährung in Tabelle spSELECTRechnungsausgangPositionen is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.FremdwährungColumn) = value End Set End Property _ Public Property BGebLeistungsNr() As Short Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.BGebLeistungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebLeistungsNr in Tabelle spSELECTRechnungsausgangPositionen"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.BGebLeistungsNrColumn) = value End Set End Property _ Public Property BGebProzent() As Single Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.BGebProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebProzent in Tabelle spSELECTRechnungsausgangPositionen ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.BGebProzentColumn) = value End Set End Property _ Public Property BGebBgl() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.BGebBglColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebBgl in Tabelle spSELECTRechnungsausgangPositionen ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.BGebBglColumn) = value End Set End Property _ Public Property BGebMinBetrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.BGebMinBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebMinBetrag in Tabelle spSELECTRechnungsausgangPositionen i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.BGebMinBetragColumn) = value End Set End Property _ Public Property RePosZeitstempel() As Date Get Try Return CType(Me(Me.tablespSELECTRechnungsausgangPositionen.RePosZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RePosZeitstempel in Tabelle spSELECTRechnungsausgangPositione"& _ "n ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTRechnungsausgangPositionen.RePosZeitstempelColumn) = value End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tablespSELECTRechnungsausgangPositionen.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tablespSELECTRechnungsausgangPositionen.AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.SteuerpflichtigerBetragColumn) End Function _ Public Sub SetSteuerpflichtigerBetragNull() Me(Me.tablespSELECTRechnungsausgangPositionen.SteuerpflichtigerBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.SteuerfreierBetragColumn) End Function _ Public Sub SetSteuerfreierBetragNull() Me(Me.tablespSELECTRechnungsausgangPositionen.SteuerfreierBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubkontoNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.AufschubkontoNrColumn) End Function _ Public Sub SetAufschubkontoNrNull() Me(Me.tablespSELECTRechnungsausgangPositionen.AufschubkontoNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubfälligkeitNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.AufschubfälligkeitColumn) End Function _ Public Sub SetAufschubfälligkeitNull() Me(Me.tablespSELECTRechnungsausgangPositionen.AufschubfälligkeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateiNameAufschubNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.DateiNameAufschubColumn) End Function _ Public Sub SetDateiNameAufschubNull() Me(Me.tablespSELECTRechnungsausgangPositionen.DateiNameAufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatenNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.BelegdatenColumn) End Function _ Public Sub SetBelegdatenNull() Me(Me.tablespSELECTRechnungsausgangPositionen.BelegdatenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFremdwährungNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.FremdwährungColumn) End Function _ Public Sub SetFremdwährungNull() Me(Me.tablespSELECTRechnungsausgangPositionen.FremdwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebLeistungsNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.BGebLeistungsNrColumn) End Function _ Public Sub SetBGebLeistungsNrNull() Me(Me.tablespSELECTRechnungsausgangPositionen.BGebLeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebProzentNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.BGebProzentColumn) End Function _ Public Sub SetBGebProzentNull() Me(Me.tablespSELECTRechnungsausgangPositionen.BGebProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebBglNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.BGebBglColumn) End Function _ Public Sub SetBGebBglNull() Me(Me.tablespSELECTRechnungsausgangPositionen.BGebBglColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebMinBetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.BGebMinBetragColumn) End Function _ Public Sub SetBGebMinBetragNull() Me(Me.tablespSELECTRechnungsausgangPositionen.BGebMinBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRePosZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSELECTRechnungsausgangPositionen.RePosZeitstempelColumn) End Function _ Public Sub SetRePosZeitstempelNull() Me(Me.tablespSELECTRechnungsausgangPositionen.RePosZeitstempelColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTRechnungsnummernRow Inherits Global.System.Data.DataRow Private tablespSELECTRechnungsnummern As spSELECTRechnungsnummernDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTRechnungsnummern = CType(Me.Table,spSELECTRechnungsnummernDataTable) End Sub _ Public Property SpeditionsbuchNr() As Short Get Return CType(Me(Me.tablespSELECTRechnungsnummern.SpeditionsbuchNrColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsnummern.SpeditionsbuchNrColumn) = value End Set End Property _ Public Property Buchungsjahr() As Short Get Return CType(Me(Me.tablespSELECTRechnungsnummern.BuchungsjahrColumn),Short) End Get Set Me(Me.tablespSELECTRechnungsnummern.BuchungsjahrColumn) = value End Set End Property _ Public Property VonRechnungsNr() As Integer Get Return CType(Me(Me.tablespSELECTRechnungsnummern.VonRechnungsNrColumn),Integer) End Get Set Me(Me.tablespSELECTRechnungsnummern.VonRechnungsNrColumn) = value End Set End Property _ Public Property BisRechnungsNr() As Integer Get Return CType(Me(Me.tablespSELECTRechnungsnummern.BisRechnungsNrColumn),Integer) End Get Set Me(Me.tablespSELECTRechnungsnummern.BisRechnungsNrColumn) = value End Set End Property _ Public Property LfdRechnungsNr() As Integer Get Return CType(Me(Me.tablespSELECTRechnungsnummern.LfdRechnungsNrColumn),Integer) End Get Set Me(Me.tablespSELECTRechnungsnummern.LfdRechnungsNrColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectReDruSaReRKAvisoIDRow Inherits Global.System.Data.DataRow Private tablespSelectReDruSaReRKAvisoID As spSelectReDruSaReRKAvisoIDDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectReDruSaReRKAvisoID = CType(Me.Table,spSelectReDruSaReRKAvisoIDDataTable) End Sub _ Public Property AvisoID() As Integer Get Try Return CType(Me(Me.tablespSelectReDruSaReRKAvisoID.AvisoIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisoID in Tabelle spSelectReDruSaReRKAvisoID ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectReDruSaReRKAvisoID.AvisoIDColumn) = value End Set End Property _ Public Function IsAvisoIDNull() As Boolean Return Me.IsNull(Me.tablespSelectReDruSaReRKAvisoID.AvisoIDColumn) End Function _ Public Sub SetAvisoIDNull() Me(Me.tablespSelectReDruSaReRKAvisoID.AvisoIDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTReDruSaReRKgruppierenRow Inherits Global.System.Data.DataRow Private tablespSELECTReDruSaReRKgruppieren As spSELECTReDruSaReRKgruppierenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTReDruSaReRKgruppieren = CType(Me.Table,spSELECTReDruSaReRKgruppierenDataTable) End Sub _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablespSELECTReDruSaReRKgruppieren.Firma_IDColumn),Short) End Get Set Me(Me.tablespSELECTReDruSaReRKgruppieren.Firma_IDColumn) = value End Set End Property _ Public Property Status() As Short Get Try Return CType(Me(Me.tablespSELECTReDruSaReRKgruppieren.StatusColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle spSELECTReDruSaReRKgruppieren ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruSaReRKgruppieren.StatusColumn) = value End Set End Property _ Public Property Sammelrechnung() As Short Get Return CType(Me(Me.tablespSELECTReDruSaReRKgruppieren.SammelrechnungColumn),Short) End Get Set Me(Me.tablespSELECTReDruSaReRKgruppieren.SammelrechnungColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSELECTReDruSaReRKgruppieren.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle spSELECTReDruSaReRKgruppieren ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruSaReRKgruppieren.SachbearbeiterColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Return CType(Me(Me.tablespSELECTReDruSaReRKgruppieren.RechnungsKundenNrColumn),Integer) End Get Set Me(Me.tablespSELECTReDruSaReRKgruppieren.RechnungsKundenNrColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Return CType(Me(Me.tablespSELECTReDruSaReRKgruppieren.BelegartenNrColumn),Short) End Get Set Me(Me.tablespSELECTReDruSaReRKgruppieren.BelegartenNrColumn) = value End Set End Property _ Public Property Währungscode() As String Get Try Return CType(Me(Me.tablespSELECTReDruSaReRKgruppieren.WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungscode in Tabelle spSELECTReDruSaReRKgruppieren ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECTReDruSaReRKgruppieren.WährungscodeColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Return CType(Me(Me.tablespSELECTReDruSaReRKgruppieren._Steuersatz__Column),Single) End Get Set Me(Me.tablespSELECTReDruSaReRKgruppieren._Steuersatz__Column) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablespSELECTReDruSaReRKgruppieren.LastschriftColumn),Boolean) End Get Set Me(Me.tablespSELECTReDruSaReRKgruppieren.LastschriftColumn) = value End Set End Property _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruSaReRKgruppieren.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tablespSELECTReDruSaReRKgruppieren.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruSaReRKgruppieren.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablespSELECTReDruSaReRKgruppieren.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungscodeNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruSaReRKgruppieren.WährungscodeColumn) End Function _ Public Sub SetWährungscodeNull() Me(Me.tablespSELECTReDruSaReRKgruppieren.WährungscodeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectReDruSchnBB_RKRow Inherits Global.System.Data.DataRow Private tablespSelectReDruSchnBB_RK As spSelectReDruSchnBB_RKDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectReDruSchnBB_RK = CType(Me.Table,spSelectReDruSchnBB_RKDataTable) End Sub _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablespSelectReDruSchnBB_RK.Firma_IDColumn),Short) End Get Set Me(Me.tablespSelectReDruSchnBB_RK.Firma_IDColumn) = value End Set End Property _ Public Property Status() As Short Get Try Return CType(Me(Me.tablespSelectReDruSchnBB_RK.StatusColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle spSelectReDruSchnBB_RK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectReDruSchnBB_RK.StatusColumn) = value End Set End Property _ Public Property Sammelrechnung() As Short Get Return CType(Me(Me.tablespSelectReDruSchnBB_RK.SammelrechnungColumn),Short) End Get Set Me(Me.tablespSelectReDruSchnBB_RK.SammelrechnungColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSelectReDruSchnBB_RK.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle spSelectReDruSchnBB_RK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectReDruSchnBB_RK.SachbearbeiterColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Return CType(Me(Me.tablespSelectReDruSchnBB_RK.RechnungsKundenNrColumn),Integer) End Get Set Me(Me.tablespSelectReDruSchnBB_RK.RechnungsKundenNrColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Return CType(Me(Me.tablespSelectReDruSchnBB_RK.BelegartenNrColumn),Short) End Get Set Me(Me.tablespSelectReDruSchnBB_RK.BelegartenNrColumn) = value End Set End Property _ Public Property Währungscode() As String Get Try Return CType(Me(Me.tablespSelectReDruSchnBB_RK.WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungscode in Tabelle spSelectReDruSchnBB_RK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectReDruSchnBB_RK.WährungscodeColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Return CType(Me(Me.tablespSelectReDruSchnBB_RK._Steuersatz__Column),Single) End Get Set Me(Me.tablespSelectReDruSchnBB_RK._Steuersatz__Column) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablespSelectReDruSchnBB_RK.LastschriftColumn),Boolean) End Get Set Me(Me.tablespSelectReDruSchnBB_RK.LastschriftColumn) = value End Set End Property _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tablespSelectReDruSchnBB_RK.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tablespSelectReDruSchnBB_RK.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSelectReDruSchnBB_RK.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablespSelectReDruSchnBB_RK.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungscodeNull() As Boolean Return Me.IsNull(Me.tablespSelectReDruSchnBB_RK.WährungscodeColumn) End Function _ Public Sub SetWährungscodeNull() Me(Me.tablespSelectReDruSchnBB_RK.WährungscodeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectReDruSchnKundeRow Inherits Global.System.Data.DataRow Private tablespSelectReDruSchnKunde As spSelectReDruSchnKundeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectReDruSchnKunde = CType(Me.Table,spSelectReDruSchnKundeDataTable) End Sub _ Public Property KundenNr() As Integer Get Return CType(Me(Me.tablespSelectReDruSchnKunde.KundenNrColumn),Integer) End Get Set Me(Me.tablespSelectReDruSchnKunde.KundenNrColumn) = value End Set End Property _ Public Property _Bankspesen__() As Single Get Return CType(Me(Me.tablespSelectReDruSchnKunde._Bankspesen__Column),Single) End Get Set Me(Me.tablespSelectReDruSchnKunde._Bankspesen__Column) = value End Set End Property _ Public Property Bankspesen_Mindestbetrag() As Decimal Get Return CType(Me(Me.tablespSelectReDruSchnKunde.Bankspesen_MindestbetragColumn),Decimal) End Get Set Me(Me.tablespSelectReDruSchnKunde.Bankspesen_MindestbetragColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectReDruSchnSumBS415Row Inherits Global.System.Data.DataRow Private tablespSelectReDruSchnSumBS415 As spSelectReDruSchnSumBS415DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectReDruSchnSumBS415 = CType(Me.Table,spSelectReDruSchnSumBS415DataTable) End Sub _ Public Property Summe_von_Preis() As Decimal Get Try Return CType(Me(Me.tablespSelectReDruSchnSumBS415.Summe_von_PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Summe von Preis in Tabelle spSelectReDruSchnSumBS415 ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSelectReDruSchnSumBS415.Summe_von_PreisColumn) = value End Set End Property _ Public Function IsSumme_von_PreisNull() As Boolean Return Me.IsNull(Me.tablespSelectReDruSchnSumBS415.Summe_von_PreisColumn) End Function _ Public Sub SetSumme_von_PreisNull() Me(Me.tablespSelectReDruSchnSumBS415.Summe_von_PreisColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectReDruSchnTextZollbelegePrüfenRow Inherits Global.System.Data.DataRow Private tablespSelectReDruSchnTextZollbelegePrüfen As spSelectReDruSchnTextZollbelegePrüfenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectReDruSchnTextZollbelegePrüfen = CType(Me.Table,spSelectReDruSchnTextZollbelegePrüfenDataTable) End Sub _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tablespSelectReDruSchnTextZollbelegePrüfen.LeistungsNrColumn),Short) End Get Set Me(Me.tablespSelectReDruSchnTextZollbelegePrüfen.LeistungsNrColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTReDruSumReGuRow Inherits Global.System.Data.DataRow Private tablespSELECTReDruSumReGu As spSELECTReDruSumReGuDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTReDruSumReGu = CType(Me.Table,spSELECTReDruSumReGuDataTable) End Sub _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablespSELECTReDruSumReGu.Firma_IDColumn),Short) End Get Set Me(Me.tablespSELECTReDruSumReGu.Firma_IDColumn) = value End Set End Property _ Public Property Status() As Short Get Try Return CType(Me(Me.tablespSELECTReDruSumReGu.StatusColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle spSELECTReDruSumReGu ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruSumReGu.StatusColumn) = value End Set End Property _ Public Property Sammelrechnung() As Short Get Return CType(Me(Me.tablespSELECTReDruSumReGu.SammelrechnungColumn),Short) End Get Set Me(Me.tablespSELECTReDruSumReGu.SammelrechnungColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSELECTReDruSumReGu.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle spSELECTReDruSumReGu ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruSumReGu.SachbearbeiterColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Return CType(Me(Me.tablespSELECTReDruSumReGu.RechnungsKundenNrColumn),Integer) End Get Set Me(Me.tablespSELECTReDruSumReGu.RechnungsKundenNrColumn) = value End Set End Property _ Public Property Währungscode() As String Get Try Return CType(Me(Me.tablespSELECTReDruSumReGu.WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungscode in Tabelle spSELECTReDruSumReGu ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruSumReGu.WährungscodeColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Return CType(Me(Me.tablespSELECTReDruSumReGu._Steuersatz__Column),Single) End Get Set Me(Me.tablespSELECTReDruSumReGu._Steuersatz__Column) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablespSELECTReDruSumReGu.LastschriftColumn),Boolean) End Get Set Me(Me.tablespSELECTReDruSumReGu.LastschriftColumn) = value End Set End Property _ Public Property Sammelrechnungsbetrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTReDruSumReGu.SammelrechnungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sammelrechnungsbetrag in Tabelle spSELECTReDruSumReGu ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECTReDruSumReGu.SammelrechnungsbetragColumn) = value End Set End Property _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruSumReGu.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tablespSELECTReDruSumReGu.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruSumReGu.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablespSELECTReDruSumReGu.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungscodeNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruSumReGu.WährungscodeColumn) End Function _ Public Sub SetWährungscodeNull() Me(Me.tablespSELECTReDruSumReGu.WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSammelrechnungsbetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruSumReGu.SammelrechnungsbetragColumn) End Function _ Public Sub SetSammelrechnungsbetragNull() Me(Me.tablespSELECTReDruSumReGu.SammelrechnungsbetragColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTReDruTextRow Inherits Global.System.Data.DataRow Private tablespSELECTReDruText As spSELECTReDruTextDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTReDruText = CType(Me.Table,spSELECTReDruTextDataTable) End Sub _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablespSELECTReDruText.Firma_IDColumn),Short) End Get Set Me(Me.tablespSELECTReDruText.Firma_IDColumn) = value End Set End Property _ Public Property Status() As Short Get Try Return CType(Me(Me.tablespSELECTReDruText.StatusColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle spSELECTReDruText ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruText.StatusColumn) = value End Set End Property _ Public Property Sammelrechnung() As Short Get Return CType(Me(Me.tablespSELECTReDruText.SammelrechnungColumn),Short) End Get Set Me(Me.tablespSELECTReDruText.SammelrechnungColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSELECTReDruText.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle spSELECTReDruText ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruText.SachbearbeiterColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Return CType(Me(Me.tablespSELECTReDruText.RechnungsKundenNrColumn),Integer) End Get Set Me(Me.tablespSELECTReDruText.RechnungsKundenNrColumn) = value End Set End Property _ Public Property Währungscode() As String Get Try Return CType(Me(Me.tablespSELECTReDruText.WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungscode in Tabelle spSELECTReDruText ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruText.WährungscodeColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Return CType(Me(Me.tablespSELECTReDruText._Steuersatz__Column),Single) End Get Set Me(Me.tablespSELECTReDruText._Steuersatz__Column) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablespSELECTReDruText.LastschriftColumn),Boolean) End Get Set Me(Me.tablespSELECTReDruText.LastschriftColumn) = value End Set End Property _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tablespSELECTReDruText.RK_IDColumn),Integer) End Get Set Me(Me.tablespSELECTReDruText.RK_IDColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Return CType(Me(Me.tablespSELECTReDruText.BelegartenNrColumn),Short) End Get Set Me(Me.tablespSELECTReDruText.BelegartenNrColumn) = value End Set End Property _ Public Property Vorkasse() As Boolean Get Return CType(Me(Me.tablespSELECTReDruText.VorkasseColumn),Boolean) End Get Set Me(Me.tablespSELECTReDruText.VorkasseColumn) = value End Set End Property _ Public Property Nettozahlungsziel() As Short Get Try Return CType(Me(Me.tablespSELECTReDruText.NettozahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettozahlungsziel in Tabelle spSELECTReDruText ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruText.NettozahlungszielColumn) = value End Set End Property _ Public Property OffertenNr() As Short Get Try Return CType(Me(Me.tablespSELECTReDruText.OffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OffertenNr in Tabelle spSELECTReDruText ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruText.OffertenNrColumn) = value End Set End Property _ Public Property RechnungsLandKz() As String Get Try Return CType(Me(Me.tablespSELECTReDruText.RechnungsLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsLandKz in Tabelle spSELECTReDruText ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruText.RechnungsLandKzColumn) = value End Set End Property _ Public Property Text() As String Get Try Return CType(Me(Me.tablespSELECTReDruText.TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Text in Tabelle spSELECTReDruText ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReDruText.TextColumn) = value End Set End Property _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruText.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tablespSELECTReDruText.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruText.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablespSELECTReDruText.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungscodeNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruText.WährungscodeColumn) End Function _ Public Sub SetWährungscodeNull() Me(Me.tablespSELECTReDruText.WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettozahlungszielNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruText.NettozahlungszielColumn) End Function _ Public Sub SetNettozahlungszielNull() Me(Me.tablespSELECTReDruText.NettozahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruText.OffertenNrColumn) End Function _ Public Sub SetOffertenNrNull() Me(Me.tablespSELECTReDruText.OffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsLandKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruText.RechnungsLandKzColumn) End Function _ Public Sub SetRechnungsLandKzNull() Me(Me.tablespSELECTReDruText.RechnungsLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTextNull() As Boolean Return Me.IsNull(Me.tablespSELECTReDruText.TextColumn) End Function _ Public Sub SetTextNull() Me(Me.tablespSELECTReDruText.TextColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectReErfAuswahlRow Inherits Global.System.Data.DataRow Private tablespSelectReErfAuswahl As spSelectReErfAuswahlDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectReErfAuswahl = CType(Me.Table,spSelectReErfAuswahlDataTable) End Sub _ Public Property RechnungsName_1() As String Get Try Return CType(Me(Me.tablespSelectReErfAuswahl.RechnungsName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsName 1 in Tabelle spSelectReErfAuswahl ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectReErfAuswahl.RechnungsName_1Column) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Return CType(Me(Me.tablespSelectReErfAuswahl.RechnungsKundenNrColumn),Integer) End Get Set Me(Me.tablespSelectReErfAuswahl.RechnungsKundenNrColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tablespSelectReErfAuswahl.FilialenNrColumn),Short) End Get Set Me(Me.tablespSelectReErfAuswahl.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tablespSelectReErfAuswahl.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tablespSelectReErfAuswahl.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tablespSelectReErfAuswahl.UnterNrColumn),Short) End Get Set Me(Me.tablespSelectReErfAuswahl.UnterNrColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSelectReErfAuswahl.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle spSelectReErfAuswahl ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectReErfAuswahl.SachbearbeiterColumn) = value End Set End Property _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tablespSelectReErfAuswahl.RK_IDColumn),Integer) End Get Set Me(Me.tablespSelectReErfAuswahl.RK_IDColumn) = value End Set End Property _ Public Function IsRechnungsName_1Null() As Boolean Return Me.IsNull(Me.tablespSelectReErfAuswahl.RechnungsName_1Column) End Function _ Public Sub SetRechnungsName_1Null() Me(Me.tablespSelectReErfAuswahl.RechnungsName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSelectReErfAuswahl.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablespSelectReErfAuswahl.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTReErfKARow Inherits Global.System.Data.DataRow Private tablespSELECTReErfKA As spSELECTReErfKADataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTReErfKA = CType(Me.Table,spSELECTReErfKADataTable) End Sub _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tablespSELECTReErfKA.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle spSELECTReErfKA ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReErfKA.PreisColumn) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tablespSELECTReErfKA.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle spSELECTReErfKA ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTReErfKA.AnzahlColumn) = value End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tablespSELECTReErfKA.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tablespSELECTReErfKA.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tablespSELECTReErfKA.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tablespSELECTReErfKA.AnzahlColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectRKRow Inherits Global.System.Data.DataRow Private tablespSelectRK As spSelectRKDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectRK = CType(Me.Table,spSelectRKDataTable) End Sub _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tablespSelectRK.RK_IDColumn),Integer) End Get Set Me(Me.tablespSelectRK.RK_IDColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tablespSelectRK.FilialenNrColumn),Short) End Get Set Me(Me.tablespSelectRK.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tablespSelectRK.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tablespSelectRK.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tablespSelectRK.UnterNrColumn),Short) End Get Set Me(Me.tablespSelectRK.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Return CType(Me(Me.tablespSelectRK.AbfertigungsdatumColumn),Date) End Get Set Me(Me.tablespSelectRK.AbfertigungsdatumColumn) = value End Set End Property _ Public Property RechnungsNr() As Integer Get Try Return CType(Me(Me.tablespSelectRK.RechnungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RechnungsNrColumn) = value End Set End Property _ Public Property RechnungsDatum() As Date Get Try Return CType(Me(Me.tablespSelectRK.RechnungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsDatum in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RechnungsDatumColumn) = value End Set End Property _ Public Property Sammelrechnung() As Short Get Return CType(Me(Me.tablespSelectRK.SammelrechnungColumn),Short) End Get Set Me(Me.tablespSelectRK.SammelrechnungColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Return CType(Me(Me.tablespSelectRK.BelegartenNrColumn),Short) End Get Set Me(Me.tablespSelectRK.BelegartenNrColumn) = value End Set End Property _ Public Property BelegartenKz() As String Get Return CType(Me(Me.tablespSelectRK.BelegartenKzColumn),String) End Get Set Me(Me.tablespSelectRK.BelegartenKzColumn) = value End Set End Property _ Public Property BelegartenBez() As String Get Return CType(Me(Me.tablespSelectRK.BelegartenBezColumn),String) End Get Set Me(Me.tablespSelectRK.BelegartenBezColumn) = value End Set End Property _ Public Property Vorzeichen() As String Get Return CType(Me(Me.tablespSelectRK.VorzeichenColumn),String) End Get Set Me(Me.tablespSelectRK.VorzeichenColumn) = value End Set End Property _ Public Property BelegNr() As String Get Try Return CType(Me(Me.tablespSelectRK.BelegNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.BelegNrColumn) = value End Set End Property _ Public Property AbsenderLandKz() As String Get Try Return CType(Me(Me.tablespSelectRK.AbsenderLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderLandKz in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.AbsenderLandKzColumn) = value End Set End Property _ Public Property AbsenderKundenNr() As Integer Get Try Return CType(Me(Me.tablespSelectRK.AbsenderKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderKundenNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.AbsenderKundenNrColumn) = value End Set End Property _ Public Property AbsenderName_1() As String Get Try Return CType(Me(Me.tablespSelectRK.AbsenderName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderName 1 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.AbsenderName_1Column) = value End Set End Property _ Public Property AbsenderName_2() As String Get Try Return CType(Me(Me.tablespSelectRK.AbsenderName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderName 2 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.AbsenderName_2Column) = value End Set End Property _ Public Property AbsenderStraße() As String Get Try Return CType(Me(Me.tablespSelectRK.AbsenderStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderStraße in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.AbsenderStraßeColumn) = value End Set End Property _ Public Property AbsenderOrt() As String Get Try Return CType(Me(Me.tablespSelectRK.AbsenderOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOrt in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.AbsenderOrtColumn) = value End Set End Property _ Public Property AbsenderOffertenNr() As Short Get Try Return CType(Me(Me.tablespSelectRK.AbsenderOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOffertenNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.AbsenderOffertenNrColumn) = value End Set End Property _ Public Property EmpfängerLandKz() As String Get Try Return CType(Me(Me.tablespSelectRK.EmpfängerLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerLandKz in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.EmpfängerLandKzColumn) = value End Set End Property _ Public Property EmpfängerKundenNr() As Integer Get Try Return CType(Me(Me.tablespSelectRK.EmpfängerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerKundenNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.EmpfängerKundenNrColumn) = value End Set End Property _ Public Property EmpfängerName_1() As String Get Try Return CType(Me(Me.tablespSelectRK.EmpfängerName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerName 1 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.EmpfängerName_1Column) = value End Set End Property _ Public Property EmpfängerName_2() As String Get Try Return CType(Me(Me.tablespSelectRK.EmpfängerName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerName 2 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.EmpfängerName_2Column) = value End Set End Property _ Public Property EmpfängerStraße() As String Get Try Return CType(Me(Me.tablespSelectRK.EmpfängerStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerStraße in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.EmpfängerStraßeColumn) = value End Set End Property _ Public Property EmpfängerOrt() As String Get Try Return CType(Me(Me.tablespSelectRK.EmpfängerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOrt in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.EmpfängerOrtColumn) = value End Set End Property _ Public Property EmpfängerOffertenNr() As Short Get Try Return CType(Me(Me.tablespSelectRK.EmpfängerOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOffertenNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.EmpfängerOffertenNrColumn) = value End Set End Property _ Public Property VermittlerLandKz() As String Get Try Return CType(Me(Me.tablespSelectRK.VermittlerLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerLandKz in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.VermittlerLandKzColumn) = value End Set End Property _ Public Property VermittlerKundenNr() As Integer Get Try Return CType(Me(Me.tablespSelectRK.VermittlerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerKundenNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.VermittlerKundenNrColumn) = value End Set End Property _ Public Property VermittlerName_1() As String Get Try Return CType(Me(Me.tablespSelectRK.VermittlerName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerName 1 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.VermittlerName_1Column) = value End Set End Property _ Public Property VermittlerName_2() As String Get Try Return CType(Me(Me.tablespSelectRK.VermittlerName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerName 2 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.VermittlerName_2Column) = value End Set End Property _ Public Property VermittlerStraße() As String Get Try Return CType(Me(Me.tablespSelectRK.VermittlerStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerStraße in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.VermittlerStraßeColumn) = value End Set End Property _ Public Property VermittlerOrt() As String Get Try Return CType(Me(Me.tablespSelectRK.VermittlerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOrt in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.VermittlerOrtColumn) = value End Set End Property _ Public Property VermittlerOffertenNr() As Short Get Try Return CType(Me(Me.tablespSelectRK.VermittlerOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOffertenNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.VermittlerOffertenNrColumn) = value End Set End Property _ Public Property Rechnung_an() As Short Get Return CType(Me(Me.tablespSelectRK.Rechnung_anColumn),Short) End Get Set Me(Me.tablespSelectRK.Rechnung_anColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Try Return CType(Me(Me.tablespSelectRK.KundenNrZentraleColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNrZentrale in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.KundenNrZentraleColumn) = value End Set End Property _ Public Property RechnungsLandKz() As String Get Try Return CType(Me(Me.tablespSelectRK.RechnungsLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsLandKz in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RechnungsLandKzColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Return CType(Me(Me.tablespSelectRK.RechnungsKundenNrColumn),Integer) End Get Set Me(Me.tablespSelectRK.RechnungsKundenNrColumn) = value End Set End Property _ Public Property RechnungsName_1() As String Get Try Return CType(Me(Me.tablespSelectRK.RechnungsName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsName 1 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RechnungsName_1Column) = value End Set End Property _ Public Property RechnungsName_2() As String Get Try Return CType(Me(Me.tablespSelectRK.RechnungsName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsName 2 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RechnungsName_2Column) = value End Set End Property _ Public Property RechnungsStraße() As String Get Try Return CType(Me(Me.tablespSelectRK.RechnungsStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsStraße in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RechnungsStraßeColumn) = value End Set End Property _ Public Property RechnungsOrt() As String Get Try Return CType(Me(Me.tablespSelectRK.RechnungsOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsOrt in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RechnungsOrtColumn) = value End Set End Property _ Public Property RechnungsUstIdKz() As String Get Try Return CType(Me(Me.tablespSelectRK.RechnungsUstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdKz in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RechnungsUstIdKzColumn) = value End Set End Property _ Public Property RechnungsUstIdNr() As String Get Try Return CType(Me(Me.tablespSelectRK.RechnungsUstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RechnungsUstIdNrColumn) = value End Set End Property _ Public Property RechnungsUstIdGeprüft() As Date Get Try Return CType(Me(Me.tablespSelectRK.RechnungsUstIdGeprüftColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdGeprüft in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RechnungsUstIdGeprüftColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablespSelectRK.LastschriftColumn),Boolean) End Get Set Me(Me.tablespSelectRK.LastschriftColumn) = value End Set End Property _ Public Property _Kunden_SVS() As Boolean Get Return CType(Me(Me.tablespSelectRK._Kunden_SVSColumn),Boolean) End Get Set Me(Me.tablespSelectRK._Kunden_SVSColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Return CType(Me(Me.tablespSelectRK.SteuerschlüsselColumn),Short) End Get Set Me(Me.tablespSelectRK.SteuerschlüsselColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Return CType(Me(Me.tablespSelectRK._Steuersatz__Column),Single) End Get Set Me(Me.tablespSelectRK._Steuersatz__Column) = value End Set End Property _ Public Property LKW_Kennzeichen() As String Get Try Return CType(Me(Me.tablespSelectRK.LKW_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW Kennzeichen in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.LKW_KennzeichenColumn) = value End Set End Property _ Public Property WährungsNr() As Short Get Try Return CType(Me(Me.tablespSelectRK.WährungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungsNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.WährungsNrColumn) = value End Set End Property _ Public Property Wert() As Decimal Get Try Return CType(Me(Me.tablespSelectRK.WertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wert in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.WertColumn) = value End Set End Property _ Public Property Umrechnungskurs() As Double Get Try Return CType(Me(Me.tablespSelectRK.UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umrechnungskurs in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.UmrechnungskursColumn) = value End Set End Property _ Public Property Packstücke_und_Warenbezeichnung() As String Get Try Return CType(Me(Me.tablespSelectRK.Packstücke_und_WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packstücke und Warenbezeichnung in Tabelle spSelectRK ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSelectRK.Packstücke_und_WarenbezeichnungColumn) = value End Set End Property _ Public Property Vermerk() As String Get Try Return CType(Me(Me.tablespSelectRK.VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vermerk in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.VermerkColumn) = value End Set End Property _ Public Property Anlage_1() As String Get Try Return CType(Me(Me.tablespSelectRK.Anlage_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 1 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.Anlage_1Column) = value End Set End Property _ Public Property Anlage_2() As String Get Try Return CType(Me(Me.tablespSelectRK.Anlage_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 2 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.Anlage_2Column) = value End Set End Property _ Public Property Anlage_3() As String Get Try Return CType(Me(Me.tablespSelectRK.Anlage_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 3 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.Anlage_3Column) = value End Set End Property _ Public Property Anlage_4() As String Get Try Return CType(Me(Me.tablespSelectRK.Anlage_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 4 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.Anlage_4Column) = value End Set End Property _ Public Property Anlage_5() As String Get Try Return CType(Me(Me.tablespSelectRK.Anlage_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 5 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.Anlage_5Column) = value End Set End Property _ Public Property Anlage_6() As String Get Try Return CType(Me(Me.tablespSelectRK.Anlage_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 6 in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.Anlage_6Column) = value End Set End Property _ Public Property OffertenNr() As Short Get Try Return CType(Me(Me.tablespSelectRK.OffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OffertenNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.OffertenNrColumn) = value End Set End Property _ Public Property _Vorlageprovision__() As Single Get Try Return CType(Me(Me.tablespSelectRK._Vorlageprovision__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorlageprovision % in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK._Vorlageprovision__Column) = value End Set End Property _ Public Property _Kreditaufwendungen__() As Single Get Try Return CType(Me(Me.tablespSelectRK._Kreditaufwendungen__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kreditaufwendungen % in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK._Kreditaufwendungen__Column) = value End Set End Property _ Public Property Besonderheiten() As String Get Try Return CType(Me(Me.tablespSelectRK.BesonderheitenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Besonderheiten in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.BesonderheitenColumn) = value End Set End Property _ Public Property Vorkasse() As Boolean Get Return CType(Me(Me.tablespSelectRK.VorkasseColumn),Boolean) End Get Set Me(Me.tablespSelectRK.VorkasseColumn) = value End Set End Property _ Public Property Text() As String Get Try Return CType(Me(Me.tablespSelectRK.TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Text in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.TextColumn) = value End Set End Property _ Public Property SteuerpflichtigerGesamtbetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRK.SteuerpflichtigerGesamtbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerGesamtbetrag in Tabelle spSelectRK ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSelectRK.SteuerpflichtigerGesamtbetragColumn) = value End Set End Property _ Public Property SteuerfreierGesamtbetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRK.SteuerfreierGesamtbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierGesamtbetrag in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.SteuerfreierGesamtbetragColumn) = value End Set End Property _ Public Property Status() As Short Get Try Return CType(Me(Me.tablespSelectRK.StatusColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.StatusColumn) = value End Set End Property _ Public Property DruckDatumZeit() As Date Get Try Return CType(Me(Me.tablespSelectRK.DruckDatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DruckDatumZeit in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.DruckDatumZeitColumn) = value End Set End Property _ Public Property Abfertigungskosten() As Decimal Get Try Return CType(Me(Me.tablespSelectRK.AbfertigungskostenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungskosten in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.AbfertigungskostenColumn) = value End Set End Property _ Public Property Vorkosten() As Decimal Get Try Return CType(Me(Me.tablespSelectRK.VorkostenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorkosten in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.VorkostenColumn) = value End Set End Property _ Public Property Erlös() As Decimal Get Try Return CType(Me(Me.tablespSelectRK.ErlösColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erlös in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.ErlösColumn) = value End Set End Property _ Public Property Buchungsjahr() As Short Get Try Return CType(Me(Me.tablespSelectRK.BuchungsjahrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsjahr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.BuchungsjahrColumn) = value End Set End Property _ Public Property Währungscode() As String Get Try Return CType(Me(Me.tablespSelectRK.WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungscode in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.WährungscodeColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSelectRK.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.SachbearbeiterColumn) = value End Set End Property _ Public Property Trdin() As Boolean Get Return CType(Me(Me.tablespSelectRK.TrdinColumn),Boolean) End Get Set Me(Me.tablespSelectRK.TrdinColumn) = value End Set End Property _ Public Property KartenNr() As String Get Try Return CType(Me(Me.tablespSelectRK.KartenNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KartenNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.KartenNrColumn) = value End Set End Property _ Public Property RefFilialenNr() As Short Get Try Return CType(Me(Me.tablespSelectRK.RefFilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefFilialenNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RefFilialenNrColumn) = value End Set End Property _ Public Property RefAbfertigungsNr() As Integer Get Try Return CType(Me(Me.tablespSelectRK.RefAbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefAbfertigungsNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RefAbfertigungsNrColumn) = value End Set End Property _ Public Property RefUnterNr() As Short Get Try Return CType(Me(Me.tablespSelectRK.RefUnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefUnterNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.RefUnterNrColumn) = value End Set End Property _ Public Property Notiz() As String Get Try Return CType(Me(Me.tablespSelectRK.NotizColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Notiz in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.NotizColumn) = value End Set End Property _ Public Property Zucker_MRN_Nr() As String Get Try Return CType(Me(Me.tablespSelectRK.Zucker_MRN_NrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Nr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.Zucker_MRN_NrColumn) = value End Set End Property _ Public Property Zucker_MRN_Datum() As Date Get Try Return CType(Me(Me.tablespSelectRK.Zucker_MRN_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Datum in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.Zucker_MRN_DatumColumn) = value End Set End Property _ Public Property Zucker_Aufschub() As String Get Try Return CType(Me(Me.tablespSelectRK.Zucker_AufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_Aufschub in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.Zucker_AufschubColumn) = value End Set End Property _ Public Property ReErfZeitstempel() As Date Get Try Return CType(Me(Me.tablespSelectRK.ReErfZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ReErfZeitstempel in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.ReErfZeitstempelColumn) = value End Set End Property _ Public Property Nettozahlungsziel() As Short Get Try Return CType(Me(Me.tablespSelectRK.NettozahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettozahlungsziel in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.NettozahlungszielColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablespSelectRK.Firma_IDColumn),Short) End Get Set Me(Me.tablespSelectRK.Firma_IDColumn) = value End Set End Property _ Public Property SpeditionsbuchUnterNr() As Short Get Try Return CType(Me(Me.tablespSelectRK.SpeditionsbuchUnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SpeditionsbuchUnterNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.SpeditionsbuchUnterNrColumn) = value End Set End Property _ Public Property ErfassungsNr() As String Get Try Return CType(Me(Me.tablespSelectRK.ErfassungsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErfassungsNr in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.ErfassungsNrColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespSelectRK.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spSelectRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRK.upsize_tsColumn) = value End Set End Property _ Public Function IsRechnungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RechnungsNrColumn) End Function _ Public Sub SetRechnungsNrNull() Me(Me.tablespSelectRK.RechnungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsDatumNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RechnungsDatumColumn) End Function _ Public Sub SetRechnungsDatumNull() Me(Me.tablespSelectRK.RechnungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.BelegNrColumn) End Function _ Public Sub SetBelegNrNull() Me(Me.tablespSelectRK.BelegNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderLandKzNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.AbsenderLandKzColumn) End Function _ Public Sub SetAbsenderLandKzNull() Me(Me.tablespSelectRK.AbsenderLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.AbsenderKundenNrColumn) End Function _ Public Sub SetAbsenderKundenNrNull() Me(Me.tablespSelectRK.AbsenderKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderName_1Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.AbsenderName_1Column) End Function _ Public Sub SetAbsenderName_1Null() Me(Me.tablespSelectRK.AbsenderName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderName_2Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.AbsenderName_2Column) End Function _ Public Sub SetAbsenderName_2Null() Me(Me.tablespSelectRK.AbsenderName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderStraßeNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.AbsenderStraßeColumn) End Function _ Public Sub SetAbsenderStraßeNull() Me(Me.tablespSelectRK.AbsenderStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOrtNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.AbsenderOrtColumn) End Function _ Public Sub SetAbsenderOrtNull() Me(Me.tablespSelectRK.AbsenderOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.AbsenderOffertenNrColumn) End Function _ Public Sub SetAbsenderOffertenNrNull() Me(Me.tablespSelectRK.AbsenderOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerLandKzNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.EmpfängerLandKzColumn) End Function _ Public Sub SetEmpfängerLandKzNull() Me(Me.tablespSelectRK.EmpfängerLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.EmpfängerKundenNrColumn) End Function _ Public Sub SetEmpfängerKundenNrNull() Me(Me.tablespSelectRK.EmpfängerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerName_1Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.EmpfängerName_1Column) End Function _ Public Sub SetEmpfängerName_1Null() Me(Me.tablespSelectRK.EmpfängerName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerName_2Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.EmpfängerName_2Column) End Function _ Public Sub SetEmpfängerName_2Null() Me(Me.tablespSelectRK.EmpfängerName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerStraßeNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.EmpfängerStraßeColumn) End Function _ Public Sub SetEmpfängerStraßeNull() Me(Me.tablespSelectRK.EmpfängerStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOrtNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.EmpfängerOrtColumn) End Function _ Public Sub SetEmpfängerOrtNull() Me(Me.tablespSelectRK.EmpfängerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.EmpfängerOffertenNrColumn) End Function _ Public Sub SetEmpfängerOffertenNrNull() Me(Me.tablespSelectRK.EmpfängerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerLandKzNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.VermittlerLandKzColumn) End Function _ Public Sub SetVermittlerLandKzNull() Me(Me.tablespSelectRK.VermittlerLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.VermittlerKundenNrColumn) End Function _ Public Sub SetVermittlerKundenNrNull() Me(Me.tablespSelectRK.VermittlerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerName_1Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.VermittlerName_1Column) End Function _ Public Sub SetVermittlerName_1Null() Me(Me.tablespSelectRK.VermittlerName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerName_2Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.VermittlerName_2Column) End Function _ Public Sub SetVermittlerName_2Null() Me(Me.tablespSelectRK.VermittlerName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerStraßeNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.VermittlerStraßeColumn) End Function _ Public Sub SetVermittlerStraßeNull() Me(Me.tablespSelectRK.VermittlerStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOrtNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.VermittlerOrtColumn) End Function _ Public Sub SetVermittlerOrtNull() Me(Me.tablespSelectRK.VermittlerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.VermittlerOffertenNrColumn) End Function _ Public Sub SetVermittlerOffertenNrNull() Me(Me.tablespSelectRK.VermittlerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKundenNrZentraleNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.KundenNrZentraleColumn) End Function _ Public Sub SetKundenNrZentraleNull() Me(Me.tablespSelectRK.KundenNrZentraleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsLandKzNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RechnungsLandKzColumn) End Function _ Public Sub SetRechnungsLandKzNull() Me(Me.tablespSelectRK.RechnungsLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsName_1Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.RechnungsName_1Column) End Function _ Public Sub SetRechnungsName_1Null() Me(Me.tablespSelectRK.RechnungsName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsName_2Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.RechnungsName_2Column) End Function _ Public Sub SetRechnungsName_2Null() Me(Me.tablespSelectRK.RechnungsName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsStraßeNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RechnungsStraßeColumn) End Function _ Public Sub SetRechnungsStraßeNull() Me(Me.tablespSelectRK.RechnungsStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsOrtNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RechnungsOrtColumn) End Function _ Public Sub SetRechnungsOrtNull() Me(Me.tablespSelectRK.RechnungsOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdKzNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RechnungsUstIdKzColumn) End Function _ Public Sub SetRechnungsUstIdKzNull() Me(Me.tablespSelectRK.RechnungsUstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RechnungsUstIdNrColumn) End Function _ Public Sub SetRechnungsUstIdNrNull() Me(Me.tablespSelectRK.RechnungsUstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdGeprüftNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RechnungsUstIdGeprüftColumn) End Function _ Public Sub SetRechnungsUstIdGeprüftNull() Me(Me.tablespSelectRK.RechnungsUstIdGeprüftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLKW_KennzeichenNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.LKW_KennzeichenColumn) End Function _ Public Sub SetLKW_KennzeichenNull() Me(Me.tablespSelectRK.LKW_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.WährungsNrColumn) End Function _ Public Sub SetWährungsNrNull() Me(Me.tablespSelectRK.WährungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWertNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.WertColumn) End Function _ Public Sub SetWertNull() Me(Me.tablespSelectRK.WertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmrechnungskursNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.UmrechnungskursColumn) End Function _ Public Sub SetUmrechnungskursNull() Me(Me.tablespSelectRK.UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPackstücke_und_WarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.Packstücke_und_WarenbezeichnungColumn) End Function _ Public Sub SetPackstücke_und_WarenbezeichnungNull() Me(Me.tablespSelectRK.Packstücke_und_WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermerkNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.VermerkColumn) End Function _ Public Sub SetVermerkNull() Me(Me.tablespSelectRK.VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_1Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.Anlage_1Column) End Function _ Public Sub SetAnlage_1Null() Me(Me.tablespSelectRK.Anlage_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_2Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.Anlage_2Column) End Function _ Public Sub SetAnlage_2Null() Me(Me.tablespSelectRK.Anlage_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_3Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.Anlage_3Column) End Function _ Public Sub SetAnlage_3Null() Me(Me.tablespSelectRK.Anlage_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_4Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.Anlage_4Column) End Function _ Public Sub SetAnlage_4Null() Me(Me.tablespSelectRK.Anlage_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_5Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.Anlage_5Column) End Function _ Public Sub SetAnlage_5Null() Me(Me.tablespSelectRK.Anlage_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_6Null() As Boolean Return Me.IsNull(Me.tablespSelectRK.Anlage_6Column) End Function _ Public Sub SetAnlage_6Null() Me(Me.tablespSelectRK.Anlage_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.OffertenNrColumn) End Function _ Public Sub SetOffertenNrNull() Me(Me.tablespSelectRK.OffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Vorlageprovision__Null() As Boolean Return Me.IsNull(Me.tablespSelectRK._Vorlageprovision__Column) End Function _ Public Sub Set_Vorlageprovision__Null() Me(Me.tablespSelectRK._Vorlageprovision__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Kreditaufwendungen__Null() As Boolean Return Me.IsNull(Me.tablespSelectRK._Kreditaufwendungen__Column) End Function _ Public Sub Set_Kreditaufwendungen__Null() Me(Me.tablespSelectRK._Kreditaufwendungen__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesonderheitenNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.BesonderheitenColumn) End Function _ Public Sub SetBesonderheitenNull() Me(Me.tablespSelectRK.BesonderheitenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTextNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.TextColumn) End Function _ Public Sub SetTextNull() Me(Me.tablespSelectRK.TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerGesamtbetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.SteuerpflichtigerGesamtbetragColumn) End Function _ Public Sub SetSteuerpflichtigerGesamtbetragNull() Me(Me.tablespSelectRK.SteuerpflichtigerGesamtbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierGesamtbetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.SteuerfreierGesamtbetragColumn) End Function _ Public Sub SetSteuerfreierGesamtbetragNull() Me(Me.tablespSelectRK.SteuerfreierGesamtbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tablespSelectRK.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDruckDatumZeitNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.DruckDatumZeitColumn) End Function _ Public Sub SetDruckDatumZeitNull() Me(Me.tablespSelectRK.DruckDatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungskostenNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.AbfertigungskostenColumn) End Function _ Public Sub SetAbfertigungskostenNull() Me(Me.tablespSelectRK.AbfertigungskostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorkostenNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.VorkostenColumn) End Function _ Public Sub SetVorkostenNull() Me(Me.tablespSelectRK.VorkostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErlösNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.ErlösColumn) End Function _ Public Sub SetErlösNull() Me(Me.tablespSelectRK.ErlösColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungsjahrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.BuchungsjahrColumn) End Function _ Public Sub SetBuchungsjahrNull() Me(Me.tablespSelectRK.BuchungsjahrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungscodeNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.WährungscodeColumn) End Function _ Public Sub SetWährungscodeNull() Me(Me.tablespSelectRK.WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablespSelectRK.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.KartenNrColumn) End Function _ Public Sub SetKartenNrNull() Me(Me.tablespSelectRK.KartenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefFilialenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RefFilialenNrColumn) End Function _ Public Sub SetRefFilialenNrNull() Me(Me.tablespSelectRK.RefFilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RefAbfertigungsNrColumn) End Function _ Public Sub SetRefAbfertigungsNrNull() Me(Me.tablespSelectRK.RefAbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefUnterNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.RefUnterNrColumn) End Function _ Public Sub SetRefUnterNrNull() Me(Me.tablespSelectRK.RefUnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNotizNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.NotizColumn) End Function _ Public Sub SetNotizNull() Me(Me.tablespSelectRK.NotizColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_NrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.Zucker_MRN_NrColumn) End Function _ Public Sub SetZucker_MRN_NrNull() Me(Me.tablespSelectRK.Zucker_MRN_NrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_DatumNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.Zucker_MRN_DatumColumn) End Function _ Public Sub SetZucker_MRN_DatumNull() Me(Me.tablespSelectRK.Zucker_MRN_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_AufschubNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.Zucker_AufschubColumn) End Function _ Public Sub SetZucker_AufschubNull() Me(Me.tablespSelectRK.Zucker_AufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReErfZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.ReErfZeitstempelColumn) End Function _ Public Sub SetReErfZeitstempelNull() Me(Me.tablespSelectRK.ReErfZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettozahlungszielNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.NettozahlungszielColumn) End Function _ Public Sub SetNettozahlungszielNull() Me(Me.tablespSelectRK.NettozahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSpeditionsbuchUnterNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.SpeditionsbuchUnterNrColumn) End Function _ Public Sub SetSpeditionsbuchUnterNrNull() Me(Me.tablespSelectRK.SpeditionsbuchUnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErfassungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.ErfassungsNrColumn) End Function _ Public Sub SetErfassungsNrNull() Me(Me.tablespSelectRK.ErfassungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespSelectRK.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespSelectRK.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectRKPKeyRow Inherits Global.System.Data.DataRow Private tablespSelectRKPKey As spSelectRKPKeyDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectRKPKey = CType(Me.Table,spSelectRKPKeyDataTable) End Sub _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tablespSelectRKPKey.RK_IDColumn),Integer) End Get Set Me(Me.tablespSelectRKPKey.RK_IDColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tablespSelectRKPKey.FilialenNrColumn),Short) End Get Set Me(Me.tablespSelectRKPKey.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tablespSelectRKPKey.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tablespSelectRKPKey.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tablespSelectRKPKey.UnterNrColumn),Short) End Get Set Me(Me.tablespSelectRKPKey.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Return CType(Me(Me.tablespSelectRKPKey.AbfertigungsdatumColumn),Date) End Get Set Me(Me.tablespSelectRKPKey.AbfertigungsdatumColumn) = value End Set End Property _ Public Property RechnungsNr() As Integer Get Try Return CType(Me(Me.tablespSelectRKPKey.RechnungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RechnungsNrColumn) = value End Set End Property _ Public Property RechnungsDatum() As Date Get Try Return CType(Me(Me.tablespSelectRKPKey.RechnungsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsDatum in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RechnungsDatumColumn) = value End Set End Property _ Public Property Sammelrechnung() As Short Get Return CType(Me(Me.tablespSelectRKPKey.SammelrechnungColumn),Short) End Get Set Me(Me.tablespSelectRKPKey.SammelrechnungColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Return CType(Me(Me.tablespSelectRKPKey.BelegartenNrColumn),Short) End Get Set Me(Me.tablespSelectRKPKey.BelegartenNrColumn) = value End Set End Property _ Public Property BelegartenKz() As String Get Return CType(Me(Me.tablespSelectRKPKey.BelegartenKzColumn),String) End Get Set Me(Me.tablespSelectRKPKey.BelegartenKzColumn) = value End Set End Property _ Public Property BelegartenBez() As String Get Return CType(Me(Me.tablespSelectRKPKey.BelegartenBezColumn),String) End Get Set Me(Me.tablespSelectRKPKey.BelegartenBezColumn) = value End Set End Property _ Public Property Vorzeichen() As String Get Return CType(Me(Me.tablespSelectRKPKey.VorzeichenColumn),String) End Get Set Me(Me.tablespSelectRKPKey.VorzeichenColumn) = value End Set End Property _ Public Property BelegNr() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.BelegNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.BelegNrColumn) = value End Set End Property _ Public Property AbsenderLandKz() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.AbsenderLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderLandKz in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AbsenderLandKzColumn) = value End Set End Property _ Public Property AbsenderKundenNr() As Integer Get Try Return CType(Me(Me.tablespSelectRKPKey.AbsenderKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderKundenNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AbsenderKundenNrColumn) = value End Set End Property _ Public Property AbsenderName_1() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.AbsenderName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderName 1 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AbsenderName_1Column) = value End Set End Property _ Public Property AbsenderName_2() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.AbsenderName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderName 2 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AbsenderName_2Column) = value End Set End Property _ Public Property AbsenderStraße() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.AbsenderStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderStraße in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AbsenderStraßeColumn) = value End Set End Property _ Public Property AbsenderOrt() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.AbsenderOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOrt in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AbsenderOrtColumn) = value End Set End Property _ Public Property AbsenderOffertenNr() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.AbsenderOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbsenderOffertenNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AbsenderOffertenNrColumn) = value End Set End Property _ Public Property EmpfängerLandKz() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.EmpfängerLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerLandKz in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.EmpfängerLandKzColumn) = value End Set End Property _ Public Property EmpfängerKundenNr() As Integer Get Try Return CType(Me(Me.tablespSelectRKPKey.EmpfängerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerKundenNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.EmpfängerKundenNrColumn) = value End Set End Property _ Public Property EmpfängerName_1() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.EmpfängerName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerName 1 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.EmpfängerName_1Column) = value End Set End Property _ Public Property EmpfängerName_2() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.EmpfängerName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerName 2 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.EmpfängerName_2Column) = value End Set End Property _ Public Property EmpfängerStraße() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.EmpfängerStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerStraße in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.EmpfängerStraßeColumn) = value End Set End Property _ Public Property EmpfängerOrt() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.EmpfängerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOrt in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.EmpfängerOrtColumn) = value End Set End Property _ Public Property EmpfängerOffertenNr() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.EmpfängerOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EmpfängerOffertenNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.EmpfängerOffertenNrColumn) = value End Set End Property _ Public Property VermittlerLandKz() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.VermittlerLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerLandKz in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.VermittlerLandKzColumn) = value End Set End Property _ Public Property VermittlerKundenNr() As Integer Get Try Return CType(Me(Me.tablespSelectRKPKey.VermittlerKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerKundenNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.VermittlerKundenNrColumn) = value End Set End Property _ Public Property VermittlerName_1() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.VermittlerName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerName 1 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.VermittlerName_1Column) = value End Set End Property _ Public Property VermittlerName_2() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.VermittlerName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerName 2 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.VermittlerName_2Column) = value End Set End Property _ Public Property VermittlerStraße() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.VermittlerStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerStraße in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.VermittlerStraßeColumn) = value End Set End Property _ Public Property VermittlerOrt() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.VermittlerOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOrt in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.VermittlerOrtColumn) = value End Set End Property _ Public Property VermittlerOffertenNr() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.VermittlerOffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VermittlerOffertenNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.VermittlerOffertenNrColumn) = value End Set End Property _ Public Property Rechnung_an() As Short Get Return CType(Me(Me.tablespSelectRKPKey.Rechnung_anColumn),Short) End Get Set Me(Me.tablespSelectRKPKey.Rechnung_anColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Try Return CType(Me(Me.tablespSelectRKPKey.KundenNrZentraleColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNrZentrale in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.KundenNrZentraleColumn) = value End Set End Property _ Public Property RechnungsLandKz() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.RechnungsLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsLandKz in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RechnungsLandKzColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Return CType(Me(Me.tablespSelectRKPKey.RechnungsKundenNrColumn),Integer) End Get Set Me(Me.tablespSelectRKPKey.RechnungsKundenNrColumn) = value End Set End Property _ Public Property RechnungsName_1() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.RechnungsName_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsName 1 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RechnungsName_1Column) = value End Set End Property _ Public Property RechnungsName_2() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.RechnungsName_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsName 2 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RechnungsName_2Column) = value End Set End Property _ Public Property RechnungsStraße() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.RechnungsStraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsStraße in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RechnungsStraßeColumn) = value End Set End Property _ Public Property RechnungsOrt() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.RechnungsOrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsOrt in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RechnungsOrtColumn) = value End Set End Property _ Public Property RechnungsUstIdKz() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.RechnungsUstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdKz in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RechnungsUstIdKzColumn) = value End Set End Property _ Public Property RechnungsUstIdNr() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.RechnungsUstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RechnungsUstIdNrColumn) = value End Set End Property _ Public Property RechnungsUstIdGeprüft() As Date Get Try Return CType(Me(Me.tablespSelectRKPKey.RechnungsUstIdGeprüftColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdGeprüft in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RechnungsUstIdGeprüftColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablespSelectRKPKey.LastschriftColumn),Boolean) End Get Set Me(Me.tablespSelectRKPKey.LastschriftColumn) = value End Set End Property _ Public Property _Kunden_SVS() As Boolean Get Return CType(Me(Me.tablespSelectRKPKey._Kunden_SVSColumn),Boolean) End Get Set Me(Me.tablespSelectRKPKey._Kunden_SVSColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Return CType(Me(Me.tablespSelectRKPKey.SteuerschlüsselColumn),Short) End Get Set Me(Me.tablespSelectRKPKey.SteuerschlüsselColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Return CType(Me(Me.tablespSelectRKPKey._Steuersatz__Column),Single) End Get Set Me(Me.tablespSelectRKPKey._Steuersatz__Column) = value End Set End Property _ Public Property LKW_Kennzeichen() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.LKW_KennzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LKW Kennzeichen in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.LKW_KennzeichenColumn) = value End Set End Property _ Public Property WährungsNr() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.WährungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungsNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.WährungsNrColumn) = value End Set End Property _ Public Property Wert() As Decimal Get Try Return CType(Me(Me.tablespSelectRKPKey.WertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wert in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.WertColumn) = value End Set End Property _ Public Property Umrechnungskurs() As Double Get Try Return CType(Me(Me.tablespSelectRKPKey.UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Umrechnungskurs in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.UmrechnungskursColumn) = value End Set End Property _ Public Property Packstücke_und_Warenbezeichnung() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.Packstücke_und_WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packstücke und Warenbezeichnung in Tabelle spSelectRKPKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.Packstücke_und_WarenbezeichnungColumn) = value End Set End Property _ Public Property Vermerk() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.VermerkColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vermerk in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.VermerkColumn) = value End Set End Property _ Public Property Anlage_1() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.Anlage_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 1 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.Anlage_1Column) = value End Set End Property _ Public Property Anlage_2() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.Anlage_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 2 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.Anlage_2Column) = value End Set End Property _ Public Property Anlage_3() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.Anlage_3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 3 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.Anlage_3Column) = value End Set End Property _ Public Property Anlage_4() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.Anlage_4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 4 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.Anlage_4Column) = value End Set End Property _ Public Property Anlage_5() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.Anlage_5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 5 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.Anlage_5Column) = value End Set End Property _ Public Property Anlage_6() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.Anlage_6Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anlage 6 in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.Anlage_6Column) = value End Set End Property _ Public Property OffertenNr() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.OffertenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OffertenNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.OffertenNrColumn) = value End Set End Property _ Public Property _Vorlageprovision__() As Single Get Try Return CType(Me(Me.tablespSelectRKPKey._Vorlageprovision__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorlageprovision % in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey._Vorlageprovision__Column) = value End Set End Property _ Public Property _Kreditaufwendungen__() As Single Get Try Return CType(Me(Me.tablespSelectRKPKey._Kreditaufwendungen__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kreditaufwendungen % in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey._Kreditaufwendungen__Column) = value End Set End Property _ Public Property Besonderheiten() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.BesonderheitenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Besonderheiten in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.BesonderheitenColumn) = value End Set End Property _ Public Property Vorkasse() As Boolean Get Return CType(Me(Me.tablespSelectRKPKey.VorkasseColumn),Boolean) End Get Set Me(Me.tablespSelectRKPKey.VorkasseColumn) = value End Set End Property _ Public Property Text() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.TextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Text in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.TextColumn) = value End Set End Property _ Public Property SteuerpflichtigerGesamtbetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRKPKey.SteuerpflichtigerGesamtbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerGesamtbetrag in Tabelle spSelectRKPKey ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.SteuerpflichtigerGesamtbetragColumn) = value End Set End Property _ Public Property SteuerfreierGesamtbetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRKPKey.SteuerfreierGesamtbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierGesamtbetrag in Tabelle spSelectRKPKey ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSelectRKPKey.SteuerfreierGesamtbetragColumn) = value End Set End Property _ Public Property Status() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.StatusColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.StatusColumn) = value End Set End Property _ Public Property DruckDatumZeit() As Date Get Try Return CType(Me(Me.tablespSelectRKPKey.DruckDatumZeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DruckDatumZeit in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.DruckDatumZeitColumn) = value End Set End Property _ Public Property Abfertigungskosten() As Decimal Get Try Return CType(Me(Me.tablespSelectRKPKey.AbfertigungskostenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungskosten in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AbfertigungskostenColumn) = value End Set End Property _ Public Property Vorkosten() As Decimal Get Try Return CType(Me(Me.tablespSelectRKPKey.VorkostenColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorkosten in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.VorkostenColumn) = value End Set End Property _ Public Property Erlös() As Decimal Get Try Return CType(Me(Me.tablespSelectRKPKey.ErlösColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erlös in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.ErlösColumn) = value End Set End Property _ Public Property Buchungsjahr() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.BuchungsjahrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungsjahr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.BuchungsjahrColumn) = value End Set End Property _ Public Property Währungscode() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungscode in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.WährungscodeColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.SachbearbeiterColumn) = value End Set End Property _ Public Property Trdin() As Boolean Get Return CType(Me(Me.tablespSelectRKPKey.TrdinColumn),Boolean) End Get Set Me(Me.tablespSelectRKPKey.TrdinColumn) = value End Set End Property _ Public Property KartenNr() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.KartenNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KartenNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.KartenNrColumn) = value End Set End Property _ Public Property RefFilialenNr() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.RefFilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefFilialenNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RefFilialenNrColumn) = value End Set End Property _ Public Property RefAbfertigungsNr() As Integer Get Try Return CType(Me(Me.tablespSelectRKPKey.RefAbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefAbfertigungsNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RefAbfertigungsNrColumn) = value End Set End Property _ Public Property RefUnterNr() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.RefUnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RefUnterNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.RefUnterNrColumn) = value End Set End Property _ Public Property Notiz() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.NotizColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Notiz in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.NotizColumn) = value End Set End Property _ Public Property Zucker_MRN_Nr() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.Zucker_MRN_NrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Nr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.Zucker_MRN_NrColumn) = value End Set End Property _ Public Property Zucker_MRN_Datum() As Date Get Try Return CType(Me(Me.tablespSelectRKPKey.Zucker_MRN_DatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_MRN_Datum in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.Zucker_MRN_DatumColumn) = value End Set End Property _ Public Property Zucker_Aufschub() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.Zucker_AufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zucker_Aufschub in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.Zucker_AufschubColumn) = value End Set End Property _ Public Property ReErfZeitstempel() As Date Get Try Return CType(Me(Me.tablespSelectRKPKey.ReErfZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ReErfZeitstempel in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.ReErfZeitstempelColumn) = value End Set End Property _ Public Property Nettozahlungsziel() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.NettozahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettozahlungsziel in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.NettozahlungszielColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablespSelectRKPKey.Firma_IDColumn),Short) End Get Set Me(Me.tablespSelectRKPKey.Firma_IDColumn) = value End Set End Property _ Public Property SpeditionsbuchUnterNr() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.SpeditionsbuchUnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SpeditionsbuchUnterNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.SpeditionsbuchUnterNrColumn) = value End Set End Property _ Public Property ErfassungsNr() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.ErfassungsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErfassungsNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.ErfassungsNrColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespSelectRKPKey.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.upsize_tsColumn) = value End Set End Property _ Public Property AvisiererKundenNr() As Integer Get Try Return CType(Me(Me.tablespSelectRKPKey.AvisiererKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisiererKundenNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AvisiererKundenNrColumn) = value End Set End Property _ Public Property Avisierer() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.AvisiererColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Avisierer in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AvisiererColumn) = value End Set End Property _ Public Property EMailRechnungstext() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.EMailRechnungstextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMailRechnungstext in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.EMailRechnungstextColumn) = value End Set End Property _ Public Property AvisoID() As Integer Get Try Return CType(Me(Me.tablespSelectRKPKey.AvisoIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AvisoID in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.AvisoIDColumn) = value End Set End Property _ Public Property KdAuftragsNr() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.KdAuftragsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KdAuftragsNr in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.KdAuftragsNrColumn) = value End Set End Property _ Public Property Handling() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.HandlingColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Handling in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.HandlingColumn) = value End Set End Property _ Public Property VorschauID() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.VorschauIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VorschauID in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.VorschauIDColumn) = value End Set End Property _ Public Property Grenze() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.GrenzeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Grenze in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.GrenzeColumn) = value End Set End Property _ Public Property RechnungSprache() As String Get Return CType(Me(Me.tablespSelectRKPKey.RechnungSpracheColumn),String) End Get Set Me(Me.tablespSelectRKPKey.RechnungSpracheColumn) = value End Set End Property _ Public Property FakturierungsGruppe() As String Get Return CType(Me(Me.tablespSelectRKPKey.FakturierungsGruppeColumn),String) End Get Set Me(Me.tablespSelectRKPKey.FakturierungsGruppeColumn) = value End Set End Property _ Public Property TextZZ() As String Get Try Return CType(Me(Me.tablespSelectRKPKey.TextZZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TextZZ in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.TextZZColumn) = value End Set End Property _ Public Property RechnungsName_AdressZusatz() As String Get Return CType(Me(Me.tablespSelectRKPKey.RechnungsName_AdressZusatzColumn),String) End Get Set Me(Me.tablespSelectRKPKey.RechnungsName_AdressZusatzColumn) = value End Set End Property _ Public Property ForceSteuerschlüssel() As Short Get Try Return CType(Me(Me.tablespSelectRKPKey.ForceSteuerschlüsselColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ForceSteuerschlüssel in Tabelle spSelectRKPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRKPKey.ForceSteuerschlüsselColumn) = value End Set End Property _ Public Function IsRechnungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RechnungsNrColumn) End Function _ Public Sub SetRechnungsNrNull() Me(Me.tablespSelectRKPKey.RechnungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsDatumNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RechnungsDatumColumn) End Function _ Public Sub SetRechnungsDatumNull() Me(Me.tablespSelectRKPKey.RechnungsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.BelegNrColumn) End Function _ Public Sub SetBelegNrNull() Me(Me.tablespSelectRKPKey.BelegNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderLandKzNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AbsenderLandKzColumn) End Function _ Public Sub SetAbsenderLandKzNull() Me(Me.tablespSelectRKPKey.AbsenderLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AbsenderKundenNrColumn) End Function _ Public Sub SetAbsenderKundenNrNull() Me(Me.tablespSelectRKPKey.AbsenderKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderName_1Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AbsenderName_1Column) End Function _ Public Sub SetAbsenderName_1Null() Me(Me.tablespSelectRKPKey.AbsenderName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderName_2Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AbsenderName_2Column) End Function _ Public Sub SetAbsenderName_2Null() Me(Me.tablespSelectRKPKey.AbsenderName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderStraßeNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AbsenderStraßeColumn) End Function _ Public Sub SetAbsenderStraßeNull() Me(Me.tablespSelectRKPKey.AbsenderStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOrtNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AbsenderOrtColumn) End Function _ Public Sub SetAbsenderOrtNull() Me(Me.tablespSelectRKPKey.AbsenderOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AbsenderOffertenNrColumn) End Function _ Public Sub SetAbsenderOffertenNrNull() Me(Me.tablespSelectRKPKey.AbsenderOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerLandKzNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.EmpfängerLandKzColumn) End Function _ Public Sub SetEmpfängerLandKzNull() Me(Me.tablespSelectRKPKey.EmpfängerLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.EmpfängerKundenNrColumn) End Function _ Public Sub SetEmpfängerKundenNrNull() Me(Me.tablespSelectRKPKey.EmpfängerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerName_1Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.EmpfängerName_1Column) End Function _ Public Sub SetEmpfängerName_1Null() Me(Me.tablespSelectRKPKey.EmpfängerName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerName_2Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.EmpfängerName_2Column) End Function _ Public Sub SetEmpfängerName_2Null() Me(Me.tablespSelectRKPKey.EmpfängerName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerStraßeNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.EmpfängerStraßeColumn) End Function _ Public Sub SetEmpfängerStraßeNull() Me(Me.tablespSelectRKPKey.EmpfängerStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOrtNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.EmpfängerOrtColumn) End Function _ Public Sub SetEmpfängerOrtNull() Me(Me.tablespSelectRKPKey.EmpfängerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfängerOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.EmpfängerOffertenNrColumn) End Function _ Public Sub SetEmpfängerOffertenNrNull() Me(Me.tablespSelectRKPKey.EmpfängerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerLandKzNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.VermittlerLandKzColumn) End Function _ Public Sub SetVermittlerLandKzNull() Me(Me.tablespSelectRKPKey.VermittlerLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.VermittlerKundenNrColumn) End Function _ Public Sub SetVermittlerKundenNrNull() Me(Me.tablespSelectRKPKey.VermittlerKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerName_1Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.VermittlerName_1Column) End Function _ Public Sub SetVermittlerName_1Null() Me(Me.tablespSelectRKPKey.VermittlerName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerName_2Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.VermittlerName_2Column) End Function _ Public Sub SetVermittlerName_2Null() Me(Me.tablespSelectRKPKey.VermittlerName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerStraßeNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.VermittlerStraßeColumn) End Function _ Public Sub SetVermittlerStraßeNull() Me(Me.tablespSelectRKPKey.VermittlerStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOrtNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.VermittlerOrtColumn) End Function _ Public Sub SetVermittlerOrtNull() Me(Me.tablespSelectRKPKey.VermittlerOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermittlerOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.VermittlerOffertenNrColumn) End Function _ Public Sub SetVermittlerOffertenNrNull() Me(Me.tablespSelectRKPKey.VermittlerOffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKundenNrZentraleNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.KundenNrZentraleColumn) End Function _ Public Sub SetKundenNrZentraleNull() Me(Me.tablespSelectRKPKey.KundenNrZentraleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsLandKzNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RechnungsLandKzColumn) End Function _ Public Sub SetRechnungsLandKzNull() Me(Me.tablespSelectRKPKey.RechnungsLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsName_1Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RechnungsName_1Column) End Function _ Public Sub SetRechnungsName_1Null() Me(Me.tablespSelectRKPKey.RechnungsName_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsName_2Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RechnungsName_2Column) End Function _ Public Sub SetRechnungsName_2Null() Me(Me.tablespSelectRKPKey.RechnungsName_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsStraßeNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RechnungsStraßeColumn) End Function _ Public Sub SetRechnungsStraßeNull() Me(Me.tablespSelectRKPKey.RechnungsStraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsOrtNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RechnungsOrtColumn) End Function _ Public Sub SetRechnungsOrtNull() Me(Me.tablespSelectRKPKey.RechnungsOrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdKzNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RechnungsUstIdKzColumn) End Function _ Public Sub SetRechnungsUstIdKzNull() Me(Me.tablespSelectRKPKey.RechnungsUstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RechnungsUstIdNrColumn) End Function _ Public Sub SetRechnungsUstIdNrNull() Me(Me.tablespSelectRKPKey.RechnungsUstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdGeprüftNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RechnungsUstIdGeprüftColumn) End Function _ Public Sub SetRechnungsUstIdGeprüftNull() Me(Me.tablespSelectRKPKey.RechnungsUstIdGeprüftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLKW_KennzeichenNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.LKW_KennzeichenColumn) End Function _ Public Sub SetLKW_KennzeichenNull() Me(Me.tablespSelectRKPKey.LKW_KennzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.WährungsNrColumn) End Function _ Public Sub SetWährungsNrNull() Me(Me.tablespSelectRKPKey.WährungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWertNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.WertColumn) End Function _ Public Sub SetWertNull() Me(Me.tablespSelectRKPKey.WertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUmrechnungskursNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.UmrechnungskursColumn) End Function _ Public Sub SetUmrechnungskursNull() Me(Me.tablespSelectRKPKey.UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPackstücke_und_WarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.Packstücke_und_WarenbezeichnungColumn) End Function _ Public Sub SetPackstücke_und_WarenbezeichnungNull() Me(Me.tablespSelectRKPKey.Packstücke_und_WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVermerkNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.VermerkColumn) End Function _ Public Sub SetVermerkNull() Me(Me.tablespSelectRKPKey.VermerkColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_1Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.Anlage_1Column) End Function _ Public Sub SetAnlage_1Null() Me(Me.tablespSelectRKPKey.Anlage_1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_2Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.Anlage_2Column) End Function _ Public Sub SetAnlage_2Null() Me(Me.tablespSelectRKPKey.Anlage_2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_3Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.Anlage_3Column) End Function _ Public Sub SetAnlage_3Null() Me(Me.tablespSelectRKPKey.Anlage_3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_4Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.Anlage_4Column) End Function _ Public Sub SetAnlage_4Null() Me(Me.tablespSelectRKPKey.Anlage_4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_5Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.Anlage_5Column) End Function _ Public Sub SetAnlage_5Null() Me(Me.tablespSelectRKPKey.Anlage_5Column) = Global.System.Convert.DBNull End Sub _ Public Function IsAnlage_6Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.Anlage_6Column) End Function _ Public Sub SetAnlage_6Null() Me(Me.tablespSelectRKPKey.Anlage_6Column) = Global.System.Convert.DBNull End Sub _ Public Function IsOffertenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.OffertenNrColumn) End Function _ Public Sub SetOffertenNrNull() Me(Me.tablespSelectRKPKey.OffertenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Vorlageprovision__Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey._Vorlageprovision__Column) End Function _ Public Sub Set_Vorlageprovision__Null() Me(Me.tablespSelectRKPKey._Vorlageprovision__Column) = Global.System.Convert.DBNull End Sub _ Public Function Is_Kreditaufwendungen__Null() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey._Kreditaufwendungen__Column) End Function _ Public Sub Set_Kreditaufwendungen__Null() Me(Me.tablespSelectRKPKey._Kreditaufwendungen__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsBesonderheitenNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.BesonderheitenColumn) End Function _ Public Sub SetBesonderheitenNull() Me(Me.tablespSelectRKPKey.BesonderheitenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTextNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.TextColumn) End Function _ Public Sub SetTextNull() Me(Me.tablespSelectRKPKey.TextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerGesamtbetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.SteuerpflichtigerGesamtbetragColumn) End Function _ Public Sub SetSteuerpflichtigerGesamtbetragNull() Me(Me.tablespSelectRKPKey.SteuerpflichtigerGesamtbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierGesamtbetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.SteuerfreierGesamtbetragColumn) End Function _ Public Sub SetSteuerfreierGesamtbetragNull() Me(Me.tablespSelectRKPKey.SteuerfreierGesamtbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tablespSelectRKPKey.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDruckDatumZeitNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.DruckDatumZeitColumn) End Function _ Public Sub SetDruckDatumZeitNull() Me(Me.tablespSelectRKPKey.DruckDatumZeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungskostenNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AbfertigungskostenColumn) End Function _ Public Sub SetAbfertigungskostenNull() Me(Me.tablespSelectRKPKey.AbfertigungskostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorkostenNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.VorkostenColumn) End Function _ Public Sub SetVorkostenNull() Me(Me.tablespSelectRKPKey.VorkostenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErlösNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.ErlösColumn) End Function _ Public Sub SetErlösNull() Me(Me.tablespSelectRKPKey.ErlösColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungsjahrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.BuchungsjahrColumn) End Function _ Public Sub SetBuchungsjahrNull() Me(Me.tablespSelectRKPKey.BuchungsjahrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungscodeNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.WährungscodeColumn) End Function _ Public Sub SetWährungscodeNull() Me(Me.tablespSelectRKPKey.WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablespSelectRKPKey.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKartenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.KartenNrColumn) End Function _ Public Sub SetKartenNrNull() Me(Me.tablespSelectRKPKey.KartenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefFilialenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RefFilialenNrColumn) End Function _ Public Sub SetRefFilialenNrNull() Me(Me.tablespSelectRKPKey.RefFilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RefAbfertigungsNrColumn) End Function _ Public Sub SetRefAbfertigungsNrNull() Me(Me.tablespSelectRKPKey.RefAbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRefUnterNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.RefUnterNrColumn) End Function _ Public Sub SetRefUnterNrNull() Me(Me.tablespSelectRKPKey.RefUnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNotizNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.NotizColumn) End Function _ Public Sub SetNotizNull() Me(Me.tablespSelectRKPKey.NotizColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_NrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.Zucker_MRN_NrColumn) End Function _ Public Sub SetZucker_MRN_NrNull() Me(Me.tablespSelectRKPKey.Zucker_MRN_NrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_MRN_DatumNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.Zucker_MRN_DatumColumn) End Function _ Public Sub SetZucker_MRN_DatumNull() Me(Me.tablespSelectRKPKey.Zucker_MRN_DatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZucker_AufschubNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.Zucker_AufschubColumn) End Function _ Public Sub SetZucker_AufschubNull() Me(Me.tablespSelectRKPKey.Zucker_AufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReErfZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.ReErfZeitstempelColumn) End Function _ Public Sub SetReErfZeitstempelNull() Me(Me.tablespSelectRKPKey.ReErfZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettozahlungszielNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.NettozahlungszielColumn) End Function _ Public Sub SetNettozahlungszielNull() Me(Me.tablespSelectRKPKey.NettozahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSpeditionsbuchUnterNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.SpeditionsbuchUnterNrColumn) End Function _ Public Sub SetSpeditionsbuchUnterNrNull() Me(Me.tablespSelectRKPKey.SpeditionsbuchUnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErfassungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.ErfassungsNrColumn) End Function _ Public Sub SetErfassungsNrNull() Me(Me.tablespSelectRKPKey.ErfassungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespSelectRKPKey.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisiererKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AvisiererKundenNrColumn) End Function _ Public Sub SetAvisiererKundenNrNull() Me(Me.tablespSelectRKPKey.AvisiererKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisiererNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AvisiererColumn) End Function _ Public Sub SetAvisiererNull() Me(Me.tablespSelectRKPKey.AvisiererColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMailRechnungstextNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.EMailRechnungstextColumn) End Function _ Public Sub SetEMailRechnungstextNull() Me(Me.tablespSelectRKPKey.EMailRechnungstextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAvisoIDNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.AvisoIDColumn) End Function _ Public Sub SetAvisoIDNull() Me(Me.tablespSelectRKPKey.AvisoIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKdAuftragsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.KdAuftragsNrColumn) End Function _ Public Sub SetKdAuftragsNrNull() Me(Me.tablespSelectRKPKey.KdAuftragsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHandlingNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.HandlingColumn) End Function _ Public Sub SetHandlingNull() Me(Me.tablespSelectRKPKey.HandlingColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorschauIDNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.VorschauIDColumn) End Function _ Public Sub SetVorschauIDNull() Me(Me.tablespSelectRKPKey.VorschauIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGrenzeNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.GrenzeColumn) End Function _ Public Sub SetGrenzeNull() Me(Me.tablespSelectRKPKey.GrenzeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTextZZNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.TextZZColumn) End Function _ Public Sub SetTextZZNull() Me(Me.tablespSelectRKPKey.TextZZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsForceSteuerschlüsselNull() As Boolean Return Me.IsNull(Me.tablespSelectRKPKey.ForceSteuerschlüsselColumn) End Function _ Public Sub SetForceSteuerschlüsselNull() Me(Me.tablespSelectRKPKey.ForceSteuerschlüsselColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectRPRow Inherits Global.System.Data.DataRow Private tablespSelectRP As spSelectRPDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectRP = CType(Me.Table,spSelectRPDataTable) End Sub _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tablespSelectRP.RK_IDColumn),Integer) End Get Set Me(Me.tablespSelectRP.RK_IDColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tablespSelectRP.LeistungsNrColumn),Short) End Get Set Me(Me.tablespSelectRP.LeistungsNrColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tablespSelectRP.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tablespSelectRP.SteuerpflichtigColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tablespSelectRP.LeistungsBezColumn),String) End Get Set Me(Me.tablespSelectRP.LeistungsBezColumn) = value End Set End Property _ Public Property IndexZkteing() As Integer Get Return CType(Me(Me.tablespSelectRP.IndexZkteingColumn),Integer) End Get Set Me(Me.tablespSelectRP.IndexZkteingColumn) = value End Set End Property _ Public Property BerechnungsartNr() As Short Get Return CType(Me(Me.tablespSelectRP.BerechnungsartNrColumn),Short) End Get Set Me(Me.tablespSelectRP.BerechnungsartNrColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tablespSelectRP.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.PreisColumn) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tablespSelectRP.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.AnzahlColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRP.SteuerpflichtigerBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetrag in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.SteuerpflichtigerBetragColumn) = value End Set End Property _ Public Property SteuerfreierBetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRP.SteuerfreierBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetrag in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.SteuerfreierBetragColumn) = value End Set End Property _ Public Property AufschubkontoNr() As String Get Try Return CType(Me(Me.tablespSelectRP.AufschubkontoNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AufschubkontoNr in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.AufschubkontoNrColumn) = value End Set End Property _ Public Property Aufschubfälligkeit() As Date Get Try Return CType(Me(Me.tablespSelectRP.AufschubfälligkeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aufschubfälligkeit in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.AufschubfälligkeitColumn) = value End Set End Property _ Public Property Prüfsumme_berechnen() As Boolean Get Return CType(Me(Me.tablespSelectRP.Prüfsumme_berechnenColumn),Boolean) End Get Set Me(Me.tablespSelectRP.Prüfsumme_berechnenColumn) = value End Set End Property _ Public Property DateiNameAufschub() As String Get Try Return CType(Me(Me.tablespSelectRP.DateiNameAufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DateiNameAufschub in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.DateiNameAufschubColumn) = value End Set End Property _ Public Property Preisbindung() As Boolean Get Return CType(Me(Me.tablespSelectRP.PreisbindungColumn),Boolean) End Get Set Me(Me.tablespSelectRP.PreisbindungColumn) = value End Set End Property _ Public Property Belegdaten() As String Get Try Return CType(Me(Me.tablespSelectRP.BelegdatenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdaten in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.BelegdatenColumn) = value End Set End Property _ Public Property Fremdwährung() As Short Get Try Return CType(Me(Me.tablespSelectRP.FremdwährungColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fremdwährung in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.FremdwährungColumn) = value End Set End Property _ Public Property BGebLeistungsNr() As Short Get Try Return CType(Me(Me.tablespSelectRP.BGebLeistungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebLeistungsNr in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.BGebLeistungsNrColumn) = value End Set End Property _ Public Property BGebProzent() As Single Get Try Return CType(Me(Me.tablespSelectRP.BGebProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebProzent in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.BGebProzentColumn) = value End Set End Property _ Public Property BGebBgl() As Decimal Get Try Return CType(Me(Me.tablespSelectRP.BGebBglColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebBgl in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.BGebBglColumn) = value End Set End Property _ Public Property BGebMinBetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRP.BGebMinBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebMinBetrag in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.BGebMinBetragColumn) = value End Set End Property _ Public Property RePosZeitstempel() As Date Get Try Return CType(Me(Me.tablespSelectRP.RePosZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RePosZeitstempel in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.RePosZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespSelectRP.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spSelectRP ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRP.upsize_tsColumn) = value End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tablespSelectRP.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tablespSelectRP.AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.SteuerpflichtigerBetragColumn) End Function _ Public Sub SetSteuerpflichtigerBetragNull() Me(Me.tablespSelectRP.SteuerpflichtigerBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.SteuerfreierBetragColumn) End Function _ Public Sub SetSteuerfreierBetragNull() Me(Me.tablespSelectRP.SteuerfreierBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubkontoNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.AufschubkontoNrColumn) End Function _ Public Sub SetAufschubkontoNrNull() Me(Me.tablespSelectRP.AufschubkontoNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubfälligkeitNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.AufschubfälligkeitColumn) End Function _ Public Sub SetAufschubfälligkeitNull() Me(Me.tablespSelectRP.AufschubfälligkeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateiNameAufschubNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.DateiNameAufschubColumn) End Function _ Public Sub SetDateiNameAufschubNull() Me(Me.tablespSelectRP.DateiNameAufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatenNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.BelegdatenColumn) End Function _ Public Sub SetBelegdatenNull() Me(Me.tablespSelectRP.BelegdatenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFremdwährungNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.FremdwährungColumn) End Function _ Public Sub SetFremdwährungNull() Me(Me.tablespSelectRP.FremdwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebLeistungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.BGebLeistungsNrColumn) End Function _ Public Sub SetBGebLeistungsNrNull() Me(Me.tablespSelectRP.BGebLeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebProzentNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.BGebProzentColumn) End Function _ Public Sub SetBGebProzentNull() Me(Me.tablespSelectRP.BGebProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebBglNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.BGebBglColumn) End Function _ Public Sub SetBGebBglNull() Me(Me.tablespSelectRP.BGebBglColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebMinBetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.BGebMinBetragColumn) End Function _ Public Sub SetBGebMinBetragNull() Me(Me.tablespSelectRP.BGebMinBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRePosZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.RePosZeitstempelColumn) End Function _ Public Sub SetRePosZeitstempelNull() Me(Me.tablespSelectRP.RePosZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespSelectRP.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespSelectRP.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectRPFKeyRKRow Inherits Global.System.Data.DataRow Private tablespSelectRPFKeyRK As spSelectRPFKeyRKDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectRPFKeyRK = CType(Me.Table,spSelectRPFKeyRKDataTable) End Sub _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tablespSelectRPFKeyRK.RK_IDColumn),Integer) End Get Set Me(Me.tablespSelectRPFKeyRK.RK_IDColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tablespSelectRPFKeyRK.LeistungsNrColumn),Short) End Get Set Me(Me.tablespSelectRPFKeyRK.LeistungsNrColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tablespSelectRPFKeyRK.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tablespSelectRPFKeyRK.SteuerpflichtigColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tablespSelectRPFKeyRK.LeistungsBezColumn),String) End Get Set Me(Me.tablespSelectRPFKeyRK.LeistungsBezColumn) = value End Set End Property _ Public Property IndexZkteing() As Integer Get Return CType(Me(Me.tablespSelectRPFKeyRK.IndexZkteingColumn),Integer) End Get Set Me(Me.tablespSelectRPFKeyRK.IndexZkteingColumn) = value End Set End Property _ Public Property BerechnungsartNr() As Short Get Return CType(Me(Me.tablespSelectRPFKeyRK.BerechnungsartNrColumn),Short) End Get Set Me(Me.tablespSelectRPFKeyRK.BerechnungsartNrColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.PreisColumn) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.AnzahlColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.SteuerpflichtigerBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetrag in Tabelle spSelectRPFKeyRK ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.SteuerpflichtigerBetragColumn) = value End Set End Property _ Public Property SteuerfreierBetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.SteuerfreierBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetrag in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.SteuerfreierBetragColumn) = value End Set End Property _ Public Property AufschubkontoNr() As String Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.AufschubkontoNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AufschubkontoNr in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.AufschubkontoNrColumn) = value End Set End Property _ Public Property Aufschubfälligkeit() As Date Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.AufschubfälligkeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aufschubfälligkeit in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.AufschubfälligkeitColumn) = value End Set End Property _ Public Property Prüfsumme_berechnen() As Boolean Get Return CType(Me(Me.tablespSelectRPFKeyRK.Prüfsumme_berechnenColumn),Boolean) End Get Set Me(Me.tablespSelectRPFKeyRK.Prüfsumme_berechnenColumn) = value End Set End Property _ Public Property DateiNameAufschub() As String Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.DateiNameAufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DateiNameAufschub in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.DateiNameAufschubColumn) = value End Set End Property _ Public Property Preisbindung() As Boolean Get Return CType(Me(Me.tablespSelectRPFKeyRK.PreisbindungColumn),Boolean) End Get Set Me(Me.tablespSelectRPFKeyRK.PreisbindungColumn) = value End Set End Property _ Public Property Belegdaten() As String Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.BelegdatenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdaten in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.BelegdatenColumn) = value End Set End Property _ Public Property Fremdwährung() As Short Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.FremdwährungColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fremdwährung in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.FremdwährungColumn) = value End Set End Property _ Public Property BGebLeistungsNr() As Short Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.BGebLeistungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebLeistungsNr in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.BGebLeistungsNrColumn) = value End Set End Property _ Public Property BGebProzent() As Single Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.BGebProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebProzent in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.BGebProzentColumn) = value End Set End Property _ Public Property BGebBgl() As Decimal Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.BGebBglColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebBgl in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.BGebBglColumn) = value End Set End Property _ Public Property BGebMinBetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.BGebMinBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebMinBetrag in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.BGebMinBetragColumn) = value End Set End Property _ Public Property RePosZeitstempel() As Date Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.RePosZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RePosZeitstempel in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.RePosZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespSelectRPFKeyRK.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spSelectRPFKeyRK ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPFKeyRK.upsize_tsColumn) = value End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tablespSelectRPFKeyRK.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tablespSelectRPFKeyRK.AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.SteuerpflichtigerBetragColumn) End Function _ Public Sub SetSteuerpflichtigerBetragNull() Me(Me.tablespSelectRPFKeyRK.SteuerpflichtigerBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.SteuerfreierBetragColumn) End Function _ Public Sub SetSteuerfreierBetragNull() Me(Me.tablespSelectRPFKeyRK.SteuerfreierBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubkontoNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.AufschubkontoNrColumn) End Function _ Public Sub SetAufschubkontoNrNull() Me(Me.tablespSelectRPFKeyRK.AufschubkontoNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubfälligkeitNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.AufschubfälligkeitColumn) End Function _ Public Sub SetAufschubfälligkeitNull() Me(Me.tablespSelectRPFKeyRK.AufschubfälligkeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateiNameAufschubNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.DateiNameAufschubColumn) End Function _ Public Sub SetDateiNameAufschubNull() Me(Me.tablespSelectRPFKeyRK.DateiNameAufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatenNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.BelegdatenColumn) End Function _ Public Sub SetBelegdatenNull() Me(Me.tablespSelectRPFKeyRK.BelegdatenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFremdwährungNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.FremdwährungColumn) End Function _ Public Sub SetFremdwährungNull() Me(Me.tablespSelectRPFKeyRK.FremdwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebLeistungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.BGebLeistungsNrColumn) End Function _ Public Sub SetBGebLeistungsNrNull() Me(Me.tablespSelectRPFKeyRK.BGebLeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebProzentNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.BGebProzentColumn) End Function _ Public Sub SetBGebProzentNull() Me(Me.tablespSelectRPFKeyRK.BGebProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebBglNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.BGebBglColumn) End Function _ Public Sub SetBGebBglNull() Me(Me.tablespSelectRPFKeyRK.BGebBglColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebMinBetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.BGebMinBetragColumn) End Function _ Public Sub SetBGebMinBetragNull() Me(Me.tablespSelectRPFKeyRK.BGebMinBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRePosZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.RePosZeitstempelColumn) End Function _ Public Sub SetRePosZeitstempelNull() Me(Me.tablespSelectRPFKeyRK.RePosZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespSelectRPFKeyRK.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespSelectRPFKeyRK.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSelectRPPKeyRow Inherits Global.System.Data.DataRow Private tablespSelectRPPKey As spSelectRPPKeyDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSelectRPPKey = CType(Me.Table,spSelectRPPKeyDataTable) End Sub _ Public Property RK_ID() As Integer Get Return CType(Me(Me.tablespSelectRPPKey.RK_IDColumn),Integer) End Get Set Me(Me.tablespSelectRPPKey.RK_IDColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tablespSelectRPPKey.LeistungsNrColumn),Short) End Get Set Me(Me.tablespSelectRPPKey.LeistungsNrColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tablespSelectRPPKey.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tablespSelectRPPKey.SteuerpflichtigColumn) = value End Set End Property _ Public Property LeistungsBez() As String Get Return CType(Me(Me.tablespSelectRPPKey.LeistungsBezColumn),String) End Get Set Me(Me.tablespSelectRPPKey.LeistungsBezColumn) = value End Set End Property _ Public Property IndexZkteing() As Integer Get Return CType(Me(Me.tablespSelectRPPKey.IndexZkteingColumn),Integer) End Get Set Me(Me.tablespSelectRPPKey.IndexZkteingColumn) = value End Set End Property _ Public Property BerechnungsartNr() As Short Get Return CType(Me(Me.tablespSelectRPPKey.BerechnungsartNrColumn),Short) End Get Set Me(Me.tablespSelectRPPKey.BerechnungsartNrColumn) = value End Set End Property _ Public Property Preis() As Decimal Get Try Return CType(Me(Me.tablespSelectRPPKey.PreisColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Preis in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.PreisColumn) = value End Set End Property _ Public Property Anzahl() As Short Get Try Return CType(Me(Me.tablespSelectRPPKey.AnzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.AnzahlColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRPPKey.SteuerpflichtigerBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetrag in Tabelle spSelectRPPKey ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSelectRPPKey.SteuerpflichtigerBetragColumn) = value End Set End Property _ Public Property SteuerfreierBetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRPPKey.SteuerfreierBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetrag in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.SteuerfreierBetragColumn) = value End Set End Property _ Public Property AufschubkontoNr() As String Get Try Return CType(Me(Me.tablespSelectRPPKey.AufschubkontoNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AufschubkontoNr in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.AufschubkontoNrColumn) = value End Set End Property _ Public Property Aufschubfälligkeit() As Date Get Try Return CType(Me(Me.tablespSelectRPPKey.AufschubfälligkeitColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aufschubfälligkeit in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.AufschubfälligkeitColumn) = value End Set End Property _ Public Property Prüfsumme_berechnen() As Boolean Get Return CType(Me(Me.tablespSelectRPPKey.Prüfsumme_berechnenColumn),Boolean) End Get Set Me(Me.tablespSelectRPPKey.Prüfsumme_berechnenColumn) = value End Set End Property _ Public Property DateiNameAufschub() As String Get Try Return CType(Me(Me.tablespSelectRPPKey.DateiNameAufschubColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DateiNameAufschub in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.DateiNameAufschubColumn) = value End Set End Property _ Public Property Preisbindung() As Boolean Get Return CType(Me(Me.tablespSelectRPPKey.PreisbindungColumn),Boolean) End Get Set Me(Me.tablespSelectRPPKey.PreisbindungColumn) = value End Set End Property _ Public Property Belegdaten() As String Get Try Return CType(Me(Me.tablespSelectRPPKey.BelegdatenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdaten in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.BelegdatenColumn) = value End Set End Property _ Public Property Fremdwährung() As Short Get Try Return CType(Me(Me.tablespSelectRPPKey.FremdwährungColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fremdwährung in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.FremdwährungColumn) = value End Set End Property _ Public Property BGebLeistungsNr() As Short Get Try Return CType(Me(Me.tablespSelectRPPKey.BGebLeistungsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebLeistungsNr in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.BGebLeistungsNrColumn) = value End Set End Property _ Public Property BGebProzent() As Single Get Try Return CType(Me(Me.tablespSelectRPPKey.BGebProzentColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebProzent in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.BGebProzentColumn) = value End Set End Property _ Public Property BGebBgl() As Decimal Get Try Return CType(Me(Me.tablespSelectRPPKey.BGebBglColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebBgl in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.BGebBglColumn) = value End Set End Property _ Public Property BGebMinBetrag() As Decimal Get Try Return CType(Me(Me.tablespSelectRPPKey.BGebMinBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BGebMinBetrag in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.BGebMinBetragColumn) = value End Set End Property _ Public Property RePosZeitstempel() As Date Get Try Return CType(Me(Me.tablespSelectRPPKey.RePosZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RePosZeitstempel in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.RePosZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespSelectRPPKey.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spSelectRPPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSelectRPPKey.upsize_tsColumn) = value End Set End Property _ Public Function IsPreisNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.PreisColumn) End Function _ Public Sub SetPreisNull() Me(Me.tablespSelectRPPKey.PreisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnzahlNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.AnzahlColumn) End Function _ Public Sub SetAnzahlNull() Me(Me.tablespSelectRPPKey.AnzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.SteuerpflichtigerBetragColumn) End Function _ Public Sub SetSteuerpflichtigerBetragNull() Me(Me.tablespSelectRPPKey.SteuerpflichtigerBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.SteuerfreierBetragColumn) End Function _ Public Sub SetSteuerfreierBetragNull() Me(Me.tablespSelectRPPKey.SteuerfreierBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubkontoNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.AufschubkontoNrColumn) End Function _ Public Sub SetAufschubkontoNrNull() Me(Me.tablespSelectRPPKey.AufschubkontoNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAufschubfälligkeitNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.AufschubfälligkeitColumn) End Function _ Public Sub SetAufschubfälligkeitNull() Me(Me.tablespSelectRPPKey.AufschubfälligkeitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateiNameAufschubNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.DateiNameAufschubColumn) End Function _ Public Sub SetDateiNameAufschubNull() Me(Me.tablespSelectRPPKey.DateiNameAufschubColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatenNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.BelegdatenColumn) End Function _ Public Sub SetBelegdatenNull() Me(Me.tablespSelectRPPKey.BelegdatenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFremdwährungNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.FremdwährungColumn) End Function _ Public Sub SetFremdwährungNull() Me(Me.tablespSelectRPPKey.FremdwährungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebLeistungsNrNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.BGebLeistungsNrColumn) End Function _ Public Sub SetBGebLeistungsNrNull() Me(Me.tablespSelectRPPKey.BGebLeistungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebProzentNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.BGebProzentColumn) End Function _ Public Sub SetBGebProzentNull() Me(Me.tablespSelectRPPKey.BGebProzentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebBglNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.BGebBglColumn) End Function _ Public Sub SetBGebBglNull() Me(Me.tablespSelectRPPKey.BGebBglColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBGebMinBetragNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.BGebMinBetragColumn) End Function _ Public Sub SetBGebMinBetragNull() Me(Me.tablespSelectRPPKey.BGebMinBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRePosZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.RePosZeitstempelColumn) End Function _ Public Sub SetRePosZeitstempelNull() Me(Me.tablespSelectRPPKey.RePosZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespSelectRPPKey.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespSelectRPPKey.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblAnmeldungPKeyRow Inherits Global.System.Data.DataRow Private tablespSELECTtblAnmeldungPKey As spSELECTtblAnmeldungPKeyDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblAnmeldungPKey = CType(Me.Table,spSELECTtblAnmeldungPKeyDataTable) End Sub _ Public Property Computername() As String Get Return CType(Me(Me.tablespSELECTtblAnmeldungPKey.ComputernameColumn),String) End Get Set Me(Me.tablespSELECTtblAnmeldungPKey.ComputernameColumn) = value End Set End Property _ Public Property Benutzername() As String Get Return CType(Me(Me.tablespSELECTtblAnmeldungPKey.BenutzernameColumn),String) End Get Set Me(Me.tablespSELECTtblAnmeldungPKey.BenutzernameColumn) = value End Set End Property _ Public Property Mandant() As String Get Try Return CType(Me(Me.tablespSELECTtblAnmeldungPKey.MandantColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant in Tabelle spSELECTtblAnmeldungPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblAnmeldungPKey.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Try Return CType(Me(Me.tablespSELECTtblAnmeldungPKey.NiederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Niederlassung in Tabelle spSELECTtblAnmeldungPKey ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTtblAnmeldungPKey.NiederlassungColumn) = value End Set End Property _ Public Property Login() As Date Get Try Return CType(Me(Me.tablespSELECTtblAnmeldungPKey.LoginColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Login in Tabelle spSELECTtblAnmeldungPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblAnmeldungPKey.LoginColumn) = value End Set End Property _ Public Property Logout() As Date Get Try Return CType(Me(Me.tablespSELECTtblAnmeldungPKey.LogoutColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Logout in Tabelle spSELECTtblAnmeldungPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblAnmeldungPKey.LogoutColumn) = value End Set End Property _ Public Property Programmversion() As String Get Try Return CType(Me(Me.tablespSELECTtblAnmeldungPKey.ProgrammversionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Programmversion in Tabelle spSELECTtblAnmeldungPKey ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTtblAnmeldungPKey.ProgrammversionColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespSELECTtblAnmeldungPKey.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spSELECTtblAnmeldungPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblAnmeldungPKey.upsize_tsColumn) = value End Set End Property _ Public Function IsMandantNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblAnmeldungPKey.MandantColumn) End Function _ Public Sub SetMandantNull() Me(Me.tablespSELECTtblAnmeldungPKey.MandantColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNiederlassungNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblAnmeldungPKey.NiederlassungColumn) End Function _ Public Sub SetNiederlassungNull() Me(Me.tablespSELECTtblAnmeldungPKey.NiederlassungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLoginNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblAnmeldungPKey.LoginColumn) End Function _ Public Sub SetLoginNull() Me(Me.tablespSELECTtblAnmeldungPKey.LoginColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLogoutNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblAnmeldungPKey.LogoutColumn) End Function _ Public Sub SetLogoutNull() Me(Me.tablespSELECTtblAnmeldungPKey.LogoutColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsProgrammversionNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblAnmeldungPKey.ProgrammversionColumn) End Function _ Public Sub SetProgrammversionNull() Me(Me.tablespSELECTtblAnmeldungPKey.ProgrammversionColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblAnmeldungPKey.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespSELECTtblAnmeldungPKey.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblQS_AbfertigungsartenRow Inherits Global.System.Data.DataRow Private tablespSELECTtblQS_Abfertigungsarten As spSELECTtblQS_AbfertigungsartenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblQS_Abfertigungsarten = CType(Me.Table,spSELECTtblQS_AbfertigungsartenDataTable) End Sub _ Public Property QS_Abfertigungsart_ID() As Integer Get Return CType(Me(Me.tablespSELECTtblQS_Abfertigungsarten.QS_Abfertigungsart_IDColumn),Integer) End Get Set Me(Me.tablespSELECTtblQS_Abfertigungsarten.QS_Abfertigungsart_IDColumn) = value End Set End Property _ Public Property QS_Abfertigungsart_Bezeichnung() As String Get Return CType(Me(Me.tablespSELECTtblQS_Abfertigungsarten.QS_Abfertigungsart_BezeichnungColumn),String) End Get Set Me(Me.tablespSELECTtblQS_Abfertigungsarten.QS_Abfertigungsart_BezeichnungColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblQS_AufträgeRow Inherits Global.System.Data.DataRow Private tablespSELECTtblQS_Aufträge As spSELECTtblQS_AufträgeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblQS_Aufträge = CType(Me.Table,spSELECTtblQS_AufträgeDataTable) End Sub _ Public Property QS_Auftrags_ID() As Integer Get Return CType(Me(Me.tablespSELECTtblQS_Aufträge.QS_Auftrags_IDColumn),Integer) End Get Set Me(Me.tablespSELECTtblQS_Aufträge.QS_Auftrags_IDColumn) = value End Set End Property _ Public Property QS_Auftrags_Datum() As Date Get Return CType(Me(Me.tablespSELECTtblQS_Aufträge.QS_Auftrags_DatumColumn),Date) End Get Set Me(Me.tablespSELECTtblQS_Aufträge.QS_Auftrags_DatumColumn) = value End Set End Property _ Public Property QS_Sachbearbeiter_ID() As Integer Get Return CType(Me(Me.tablespSELECTtblQS_Aufträge.QS_Sachbearbeiter_IDColumn),Integer) End Get Set Me(Me.tablespSELECTtblQS_Aufträge.QS_Sachbearbeiter_IDColumn) = value End Set End Property _ Public Property QS_Frachtführer_ID() As Integer Get Return CType(Me(Me.tablespSELECTtblQS_Aufträge.QS_Frachtführer_IDColumn),Integer) End Get Set Me(Me.tablespSELECTtblQS_Aufträge.QS_Frachtführer_IDColumn) = value End Set End Property _ Public Property QS_Kennzeichen_LKW() As String Get Return CType(Me(Me.tablespSELECTtblQS_Aufträge.QS_Kennzeichen_LKWColumn),String) End Get Set Me(Me.tablespSELECTtblQS_Aufträge.QS_Kennzeichen_LKWColumn) = value End Set End Property _ Public Property QS_Sendungen_Gesamtanzahl() As Integer Get Return CType(Me(Me.tablespSELECTtblQS_Aufträge.QS_Sendungen_GesamtanzahlColumn),Integer) End Get Set Me(Me.tablespSELECTtblQS_Aufträge.QS_Sendungen_GesamtanzahlColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblQS_AuftragspositionenRow Inherits Global.System.Data.DataRow Private tablespSELECTtblQS_Auftragspositionen As spSELECTtblQS_AuftragspositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblQS_Auftragspositionen = CType(Me.Table,spSELECTtblQS_AuftragspositionenDataTable) End Sub _ Public Property QS_Auftrags_ID() As Integer Get Return CType(Me(Me.tablespSELECTtblQS_Auftragspositionen.QS_Auftrags_IDColumn),Integer) End Get Set Me(Me.tablespSELECTtblQS_Auftragspositionen.QS_Auftrags_IDColumn) = value End Set End Property _ Public Property QS_Abfertigungsart_ID() As Integer Get Return CType(Me(Me.tablespSELECTtblQS_Auftragspositionen.QS_Abfertigungsart_IDColumn),Integer) End Get Set Me(Me.tablespSELECTtblQS_Auftragspositionen.QS_Abfertigungsart_IDColumn) = value End Set End Property _ Public Property QS_Abfertigungsart_Anzahl() As Integer Get Return CType(Me(Me.tablespSELECTtblQS_Auftragspositionen.QS_Abfertigungsart_AnzahlColumn),Integer) End Get Set Me(Me.tablespSELECTtblQS_Auftragspositionen.QS_Abfertigungsart_AnzahlColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblTrdinHeaderRow Inherits Global.System.Data.DataRow Private tablespSELECTtblTrdinHeader As spSELECTtblTrdinHeaderDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblTrdinHeader = CType(Me.Table,spSELECTtblTrdinHeaderDataTable) End Sub _ Public Property Speditionsbuch() As Short Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.SpeditionsbuchColumn),Short) End Get Set Me(Me.tablespSELECTtblTrdinHeader.SpeditionsbuchColumn) = value End Set End Property _ Public Property Company_code() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Company_codeColumn),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Company_codeColumn) = value End Set End Property _ Public Property Depot_code() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinHeader.Depot_codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Depot_code in Tabelle spSELECTtblTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinHeader.Depot_codeColumn) = value End Set End Property _ Public Property Send_number() As Integer Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Send_numberColumn),Integer) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Send_numberColumn) = value End Set End Property _ Public Property Send_date() As Date Get Try Return CType(Me(Me.tablespSELECTtblTrdinHeader.Send_dateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Send_date in Tabelle spSELECTtblTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinHeader.Send_dateColumn) = value End Set End Property _ Public Property Computer_location() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Computer_locationColumn),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Computer_locationColumn) = value End Set End Property _ Public Property Message_type() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Message_typeColumn),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Message_typeColumn) = value End Set End Property _ Public Property Fm_net_address() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Fm_net_addressColumn),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Fm_net_addressColumn) = value End Set End Property _ Public Property Accounting_date() As Date Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Accounting_dateColumn),Date) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Accounting_dateColumn) = value End Set End Property _ Public Property Currency_code() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Currency_codeColumn),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Currency_codeColumn) = value End Set End Property _ Public Property Country_code_dispatch() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Country_code_dispatchColumn),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Country_code_dispatchColumn) = value End Set End Property _ Public Property Vat_number_dispatch() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Vat_number_dispatchColumn),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Vat_number_dispatchColumn) = value End Set End Property _ Public Property Vat_code_I() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Vat_code_IColumn),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Vat_code_IColumn) = value End Set End Property _ Public Property Vat_code_S0() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Vat_code_S0Column),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Vat_code_S0Column) = value End Set End Property _ Public Property Vat_code_S1() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Vat_code_S1Column),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Vat_code_S1Column) = value End Set End Property _ Public Property Vat_code_X() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Vat_code_XColumn),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Vat_code_XColumn) = value End Set End Property _ Public Property Pfad1() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Pfad1Column),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Pfad1Column) = value End Set End Property _ Public Property Pfad2() As String Get Return CType(Me(Me.tablespSELECTtblTrdinHeader.Pfad2Column),String) End Get Set Me(Me.tablespSELECTtblTrdinHeader.Pfad2Column) = value End Set End Property _ Public Property Datei() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinHeader.DateiColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datei in Tabelle spSELECTtblTrdinHeader ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinHeader.DateiColumn) = value End Set End Property _ Public Function IsDepot_codeNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinHeader.Depot_codeColumn) End Function _ Public Sub SetDepot_codeNull() Me(Me.tablespSELECTtblTrdinHeader.Depot_codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSend_dateNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinHeader.Send_dateColumn) End Function _ Public Sub SetSend_dateNull() Me(Me.tablespSELECTtblTrdinHeader.Send_dateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateiNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinHeader.DateiColumn) End Function _ Public Sub SetDateiNull() Me(Me.tablespSELECTtblTrdinHeader.DateiColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblTrdinInvoiceRow Inherits Global.System.Data.DataRow Private tablespSELECTtblTrdinInvoice As spSELECTtblTrdinInvoiceDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblTrdinInvoice = CType(Me.Table,spSELECTtblTrdinInvoiceDataTable) End Sub _ Public Property Rechnungsdatum() As Date Get Return CType(Me(Me.tablespSELECTtblTrdinInvoice.RechnungsdatumColumn),Date) End Get Set Me(Me.tablespSELECTtblTrdinInvoice.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Return CType(Me(Me.tablespSELECTtblTrdinInvoice.RechnungsnummerColumn),Integer) End Get Set Me(Me.tablespSELECTtblTrdinInvoice.RechnungsnummerColumn) = value End Set End Property _ Public Property Speditionsbuch() As Short Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.SpeditionsbuchColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Speditionsbuch in Tabelle spSELECTtblTrdinInvoice ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.SpeditionsbuchColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle spSELECTtblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle spSELECTtblTrdinInvoice ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.UnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UnterNr in Tabelle spSELECTtblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.AbfertigungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsdatum in Tabelle spSELECTtblTrdinInvoice ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.AbfertigungsdatumColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.BelegartenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegartenNr in Tabelle spSELECTtblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.BelegartenNrColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.KundenNrZentraleColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNrZentrale in Tabelle spSELECTtblTrdinInvoice ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.KundenNrZentraleColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.RechnungsKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsKundenNr in Tabelle spSELECTtblTrdinInvoice ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.RechnungsKundenNrColumn) = value End Set End Property _ Public Property RechnungsLandKz() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.RechnungsLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsLandKz in Tabelle spSELECTtblTrdinInvoice ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.RechnungsLandKzColumn) = value End Set End Property _ Public Property RechnungsUstIdKz() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.RechnungsUstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdKz in Tabelle spSELECTtblTrdinInvoice ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.RechnungsUstIdKzColumn) = value End Set End Property _ Public Property RechnungsUstIdNr() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.RechnungsUstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdNr in Tabelle spSELECTtblTrdinInvoice ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.RechnungsUstIdNrColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablespSELECTtblTrdinInvoice.LastschriftColumn),Boolean) End Get Set Me(Me.tablespSELECTtblTrdinInvoice.LastschriftColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.SteuerschlüsselColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerschlüssel in Tabelle spSELECTtblTrdinInvoice ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.SteuerschlüsselColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice._Steuersatz__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuersatz % in Tabelle spSELECTtblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice._Steuersatz__Column) = value End Set End Property _ Public Property WährungLokal() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.WährungLokalColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungLokal in Tabelle spSELECTtblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.WährungLokalColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.SteuerpflichtigerBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragLokal in Tabelle spSELECTtblTrdinInvoi"& _ "ce ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.SteuerpflichtigerBetragLokalColumn) = value End Set End Property _ Public Property SteuerfreierBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.SteuerfreierBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragLokal in Tabelle spSELECTtblTrdinInvoice is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.SteuerfreierBetragLokalColumn) = value End Set End Property _ Public Property SteuerbetragLokal() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.SteuerbetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerbetragLokal in Tabelle spSELECTtblTrdinInvoice ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.SteuerbetragLokalColumn) = value End Set End Property _ Public Property RechnungsbetragLokal() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.RechnungsbetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsbetragLokal in Tabelle spSELECTtblTrdinInvoice ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.RechnungsbetragLokalColumn) = value End Set End Property _ Public Property WährungFremd() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.WährungFremdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungFremd in Tabelle spSELECTtblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.WährungFremdColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.SteuerpflichtigerBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragFremd in Tabelle spSELECTtblTrdinInvoi"& _ "ce ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.SteuerpflichtigerBetragFremdColumn) = value End Set End Property _ Public Property SteuerfreierBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.SteuerfreierBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragFremd in Tabelle spSELECTtblTrdinInvoice is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.SteuerfreierBetragFremdColumn) = value End Set End Property _ Public Property SteuerbetragFremd() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.SteuerbetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerbetragFremd in Tabelle spSELECTtblTrdinInvoice ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.SteuerbetragFremdColumn) = value End Set End Property _ Public Property RechnungsbetragFremd() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.RechnungsbetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsbetragFremd in Tabelle spSELECTtblTrdinInvoice ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.RechnungsbetragFremdColumn) = value End Set End Property _ Public Property TrdinDateiname() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.TrdinDateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TrdinDateiname in Tabelle spSELECTtblTrdinInvoice ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.TrdinDateinameColumn) = value End Set End Property _ Public Property Abgleich_op_debitor() As Boolean Get Return CType(Me(Me.tablespSELECTtblTrdinInvoice.Abgleich_op_debitorColumn),Boolean) End Get Set Me(Me.tablespSELECTtblTrdinInvoice.Abgleich_op_debitorColumn) = value End Set End Property _ Public Property Nettozahlungsziel() As Short Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.NettozahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettozahlungsziel in Tabelle spSELECTtblTrdinInvoice ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.NettozahlungszielColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablespSELECTtblTrdinInvoice.Firma_IDColumn),Short) End Get Set Me(Me.tablespSELECTtblTrdinInvoice.Firma_IDColumn) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tablespSELECTtblTrdinInvoice.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle spSELECTtblTrdinInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinInvoice.UStVAn_IDColumn) = value End Set End Property _ Public Function IsSpeditionsbuchNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.SpeditionsbuchColumn) End Function _ Public Sub SetSpeditionsbuchNull() Me(Me.tablespSELECTtblTrdinInvoice.SpeditionsbuchColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tablespSELECTtblTrdinInvoice.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tablespSELECTtblTrdinInvoice.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUnterNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.UnterNrColumn) End Function _ Public Sub SetUnterNrNull() Me(Me.tablespSELECTtblTrdinInvoice.UnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsdatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.AbfertigungsdatumColumn) End Function _ Public Sub SetAbfertigungsdatumNull() Me(Me.tablespSELECTtblTrdinInvoice.AbfertigungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegartenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.BelegartenNrColumn) End Function _ Public Sub SetBelegartenNrNull() Me(Me.tablespSELECTtblTrdinInvoice.BelegartenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKundenNrZentraleNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.KundenNrZentraleColumn) End Function _ Public Sub SetKundenNrZentraleNull() Me(Me.tablespSELECTtblTrdinInvoice.KundenNrZentraleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsKundenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.RechnungsKundenNrColumn) End Function _ Public Sub SetRechnungsKundenNrNull() Me(Me.tablespSELECTtblTrdinInvoice.RechnungsKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsLandKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.RechnungsLandKzColumn) End Function _ Public Sub SetRechnungsLandKzNull() Me(Me.tablespSELECTtblTrdinInvoice.RechnungsLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.RechnungsUstIdKzColumn) End Function _ Public Sub SetRechnungsUstIdKzNull() Me(Me.tablespSELECTtblTrdinInvoice.RechnungsUstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.RechnungsUstIdNrColumn) End Function _ Public Sub SetRechnungsUstIdNrNull() Me(Me.tablespSELECTtblTrdinInvoice.RechnungsUstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerschlüsselNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.SteuerschlüsselColumn) End Function _ Public Sub SetSteuerschlüsselNull() Me(Me.tablespSELECTtblTrdinInvoice.SteuerschlüsselColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Steuersatz__Null() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice._Steuersatz__Column) End Function _ Public Sub Set_Steuersatz__Null() Me(Me.tablespSELECTtblTrdinInvoice._Steuersatz__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungLokalNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.WährungLokalColumn) End Function _ Public Sub SetWährungLokalNull() Me(Me.tablespSELECTtblTrdinInvoice.WährungLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.SteuerpflichtigerBetragLokalColumn) End Function _ Public Sub SetSteuerpflichtigerBetragLokalNull() Me(Me.tablespSELECTtblTrdinInvoice.SteuerpflichtigerBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.SteuerfreierBetragLokalColumn) End Function _ Public Sub SetSteuerfreierBetragLokalNull() Me(Me.tablespSELECTtblTrdinInvoice.SteuerfreierBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragLokalNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.SteuerbetragLokalColumn) End Function _ Public Sub SetSteuerbetragLokalNull() Me(Me.tablespSELECTtblTrdinInvoice.SteuerbetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragLokalNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.RechnungsbetragLokalColumn) End Function _ Public Sub SetRechnungsbetragLokalNull() Me(Me.tablespSELECTtblTrdinInvoice.RechnungsbetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungFremdNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.WährungFremdColumn) End Function _ Public Sub SetWährungFremdNull() Me(Me.tablespSELECTtblTrdinInvoice.WährungFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.SteuerpflichtigerBetragFremdColumn) End Function _ Public Sub SetSteuerpflichtigerBetragFremdNull() Me(Me.tablespSELECTtblTrdinInvoice.SteuerpflichtigerBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.SteuerfreierBetragFremdColumn) End Function _ Public Sub SetSteuerfreierBetragFremdNull() Me(Me.tablespSELECTtblTrdinInvoice.SteuerfreierBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragFremdNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.SteuerbetragFremdColumn) End Function _ Public Sub SetSteuerbetragFremdNull() Me(Me.tablespSELECTtblTrdinInvoice.SteuerbetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragFremdNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.RechnungsbetragFremdColumn) End Function _ Public Sub SetRechnungsbetragFremdNull() Me(Me.tablespSELECTtblTrdinInvoice.RechnungsbetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTrdinDateinameNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.TrdinDateinameColumn) End Function _ Public Sub SetTrdinDateinameNull() Me(Me.tablespSELECTtblTrdinInvoice.TrdinDateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettozahlungszielNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.NettozahlungszielColumn) End Function _ Public Sub SetNettozahlungszielNull() Me(Me.tablespSELECTtblTrdinInvoice.NettozahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinInvoice.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tablespSELECTtblTrdinInvoice.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblTrdinProductRow Inherits Global.System.Data.DataRow Private tablespSELECTtblTrdinProduct As spSELECTtblTrdinProductDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblTrdinProduct = CType(Me.Table,spSELECTtblTrdinProductDataTable) End Sub _ Public Property Rechnungsdatum() As Date Get Return CType(Me(Me.tablespSELECTtblTrdinProduct.RechnungsdatumColumn),Date) End Get Set Me(Me.tablespSELECTtblTrdinProduct.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Return CType(Me(Me.tablespSELECTtblTrdinProduct.RechnungsnummerColumn),Integer) End Get Set Me(Me.tablespSELECTtblTrdinProduct.RechnungsnummerColumn) = value End Set End Property _ Public Property Leistungsnummer() As Short Get Return CType(Me(Me.tablespSELECTtblTrdinProduct.LeistungsnummerColumn),Short) End Get Set Me(Me.tablespSELECTtblTrdinProduct.LeistungsnummerColumn) = value End Set End Property _ Public Property Leistungsbezeichnung() As String Get Return CType(Me(Me.tablespSELECTtblTrdinProduct.LeistungsbezeichnungColumn),String) End Get Set Me(Me.tablespSELECTtblTrdinProduct.LeistungsbezeichnungColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tablespSELECTtblTrdinProduct.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tablespSELECTtblTrdinProduct.SteuerpflichtigColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinProduct.SteuerpflichtigerBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragLokal in Tabelle spSELECTtblTrdinProdu"& _ "ct ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinProduct.SteuerpflichtigerBetragLokalColumn) = value End Set End Property _ Public Property SteuerfreierBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinProduct.SteuerfreierBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragLokal in Tabelle spSELECTtblTrdinProduct is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinProduct.SteuerfreierBetragLokalColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinProduct.SteuerpflichtigerBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragFremd in Tabelle spSELECTtblTrdinProdu"& _ "ct ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinProduct.SteuerpflichtigerBetragFremdColumn) = value End Set End Property _ Public Property SteuerfreierBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblTrdinProduct.SteuerfreierBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragFremd in Tabelle spSELECTtblTrdinProduct is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinProduct.SteuerfreierBetragFremdColumn) = value End Set End Property _ Public Property Belegdaten() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinProduct.BelegdatenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdaten in Tabelle spSELECTtblTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinProduct.BelegdatenColumn) = value End Set End Property _ Public Property Sachkonto() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinProduct.SachkontoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachkonto in Tabelle spSELECTtblTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinProduct.SachkontoColumn) = value End Set End Property _ Public Property Buchungstext() As String Get Try Return CType(Me(Me.tablespSELECTtblTrdinProduct.BuchungstextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungstext in Tabelle spSELECTtblTrdinProduct ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblTrdinProduct.BuchungstextColumn) = value End Set End Property _ Public Function IsSteuerpflichtigerBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinProduct.SteuerpflichtigerBetragLokalColumn) End Function _ Public Sub SetSteuerpflichtigerBetragLokalNull() Me(Me.tablespSELECTtblTrdinProduct.SteuerpflichtigerBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinProduct.SteuerfreierBetragLokalColumn) End Function _ Public Sub SetSteuerfreierBetragLokalNull() Me(Me.tablespSELECTtblTrdinProduct.SteuerfreierBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinProduct.SteuerpflichtigerBetragFremdColumn) End Function _ Public Sub SetSteuerpflichtigerBetragFremdNull() Me(Me.tablespSELECTtblTrdinProduct.SteuerpflichtigerBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinProduct.SteuerfreierBetragFremdColumn) End Function _ Public Sub SetSteuerfreierBetragFremdNull() Me(Me.tablespSELECTtblTrdinProduct.SteuerfreierBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatenNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinProduct.BelegdatenColumn) End Function _ Public Sub SetBelegdatenNull() Me(Me.tablespSELECTtblTrdinProduct.BelegdatenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinProduct.SachkontoColumn) End Function _ Public Sub SetSachkontoNull() Me(Me.tablespSELECTtblTrdinProduct.SachkontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungstextNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblTrdinProduct.BuchungstextColumn) End Function _ Public Sub SetBuchungstextNull() Me(Me.tablespSELECTtblTrdinProduct.BuchungstextColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblUStVAntragRow Inherits Global.System.Data.DataRow Private tablespSELECTtblUStVAntrag As spSELECTtblUStVAntragDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblUStVAntrag = CType(Me.Table,spSELECTtblUStVAntragDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVAn_KuNr() As Integer Get Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_KuNrColumn),Integer) End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_KuNrColumn) = value End Set End Property _ Public Property UStVAn_Name() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Name in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_NameColumn) = value End Set End Property _ Public Property UStVAn_Straße() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Straße in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_StraßeColumn) = value End Set End Property _ Public Property UStVAn_LandKz() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_LandKz in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_LandKzColumn) = value End Set End Property _ Public Property UStVAn_PLZ() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_PLZ in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_PLZColumn) = value End Set End Property _ Public Property UStVAn_Ort() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ort in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_OrtColumn) = value End Set End Property _ Public Property UStVAn_Land() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Land in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_LandColumn) = value End Set End Property _ Public Property UStVAn_Gewerbe() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_GewerbeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Gewerbe in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_GewerbeColumn) = value End Set End Property _ Public Property UStVAn_Steuernummer() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_SteuernummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Steuernummer in Tabelle spSELECTtblUStVAntrag ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_SteuernummerColumn) = value End Set End Property _ Public Property UStVAn_ReDatVon() As Date Get Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ReDatVonColumn),Date) End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ReDatVonColumn) = value End Set End Property _ Public Property UStVAn_ReDatBis() As Date Get Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ReDatBisColumn),Date) End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ReDatBisColumn) = value End Set End Property _ Public Property UStVAn_Bankverbindung() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BankverbindungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Bankverbindung in Tabelle spSELECTtblUStVAntrag ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BankverbindungColumn) = value End Set End Property _ Public Property UStVAn_BLZ() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BLZ in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BLZColumn) = value End Set End Property _ Public Property UStVAn_KTO() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_KTOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_KTO in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_KTOColumn) = value End Set End Property _ Public Property UStVAn_Kontoinhaber() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_KontoinhaberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Kontoinhaber in Tabelle spSELECTtblUStVAntrag ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_KontoinhaberColumn) = value End Set End Property _ Public Property UStVAn_BIC() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BICColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BIC in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BICColumn) = value End Set End Property _ Public Property UStVAn_IBAN() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_IBANColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_IBAN in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_IBANColumn) = value End Set End Property _ Public Property UStVAn_Anlagen() As Short Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AnlagenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Anlagen in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AnlagenColumn) = value End Set End Property _ Public Property UStVAn_Rechnungen() As Short Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RechnungenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Rechnungen in Tabelle spSELECTtblUStVAntrag ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RechnungenColumn) = value End Set End Property _ Public Property UStVAn_Einfuhrdokumente() As Short Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_EinfuhrdokumenteColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Einfuhrdokumente in Tabelle spSELECTtblUStVAntrag ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_EinfuhrdokumenteColumn) = value End Set End Property _ Public Property UStVAn_Erklärung_9_a() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_Erklärung_9_aColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Erklärung_9_a in Tabelle spSELECTtblUStVAntrag ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_Erklärung_9_aColumn) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_1() As Boolean Get Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_Erklärung_9_b_1Column),Boolean) End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_Erklärung_9_b_1Column) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_2() As Boolean Get Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_Erklärung_9_b_2Column),Boolean) End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_Erklärung_9_b_2Column) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_3() As Boolean Get Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_Erklärung_9_b_3Column),Boolean) End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_Erklärung_9_b_3Column) = value End Set End Property _ Public Property UStVAn_Ausstellungsort() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AusstellungsortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ausstellungsort in Tabelle spSELECTtblUStVAntrag ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AusstellungsortColumn) = value End Set End Property _ Public Property UStVAn_Ausstellungsdatum() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AusstellungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ausstellungsdatum in Tabelle spSELECTtblUStVAntrag ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AusstellungsdatumColumn) = value End Set End Property _ Public Property UStVAn_Unterschrift() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_UnterschriftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Unterschrift in Tabelle spSELECTtblUStVAntrag ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_UnterschriftColumn) = value End Set End Property _ Public Property UStVAn_LandNr() As Short Get Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_LandNrColumn),Short) End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_LandNrColumn) = value End Set End Property _ Public Property UStVAn_Beleganzahl() As Short Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BeleganzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Beleganzahl in Tabelle spSELECTtblUStVAntrag ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BeleganzahlColumn) = value End Set End Property _ Public Property UStVAn_BeleganzahlRetourniert() As Short Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BeleganzahlRetourniertColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BeleganzahlRetourniert in Tabelle spSELECTtblUStVAntra"& _ "g ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BeleganzahlRetourniertColumn) = value End Set End Property _ Public Property UStVAn_Retournierungsgrund() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RetournierungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Retournierungsgrund in Tabelle spSELECTtblUStVAntrag i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RetournierungsgrundColumn) = value End Set End Property _ Public Property UStVAn_AntragEingereichtAm() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AntragEingereichtAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_AntragEingereichtAm in Tabelle spSELECTtblUStVAntrag i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AntragEingereichtAmColumn) = value End Set End Property _ Public Property UStVAn_BelegeWeitergeleitetAm() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BelegeWeitergeleitetAm in Tabelle spSELECTtblUStVAntra"& _ "g ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn) = value End Set End Property _ Public Property UStVAn_Vertreter() As Integer Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_VertreterColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Vertreter in Tabelle spSELECTtblUStVAntrag ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_VertreterColumn) = value End Set End Property _ Public Property UStVAn_BezugsNr() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BezugsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BezugsNr in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BezugsNrColumn) = value End Set End Property _ Public Property UStVAn_3470() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_3470Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_3470 in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_3470Column) = value End Set End Property _ Public Property UStVAn_VZBetrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_VZBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZBetrag in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_VZBetragColumn) = value End Set End Property _ Public Property UStVAn_VZDatum() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_VZDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZDatum in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_VZDatumColumn) = value End Set End Property _ Public Property UStVAn_RZBetragVZ() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RZBetragVZColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_RZBetragVZ in Tabelle spSELECTtblUStVAntrag ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RZBetragVZColumn) = value End Set End Property _ Public Property UStVAn_RZDatumVZ() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RZDatumVZColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_RZDatumVZ in Tabelle spSELECTtblUStVAntrag ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RZDatumVZColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle spSELECTtblUStVAntrag ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.AbfertigungsNrColumn) = value End Set End Property _ Public Property UStVAn_Währungscode() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Währungscode in Tabelle spSELECTtblUStVAntrag ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_WährungscodeColumn) = value End Set End Property _ Public Property UStVAn_USteuerbetrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_USteuerbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_USteuerbetrag in Tabelle spSELECTtblUStVAntrag ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_USteuerbetragColumn) = value End Set End Property _ Public Property UStVAn_Erstattungsbetrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ErstattungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Erstattungsbetrag in Tabelle spSELECTtblUStVAntrag ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ErstattungsbetragColumn) = value End Set End Property _ Public Property UStVAn_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_USteuerbetragEUR in Tabelle spSELECTtblUStVAntrag ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVAn_ErstattungsbetragEUR() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ErstattungsbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ErstattungsbetragEUR in Tabelle spSELECTtblUStVAntrag "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ErstattungsbetragEURColumn) = value End Set End Property _ Public Property UStVAn_Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Sachbearbeiter in Tabelle spSELECTtblUStVAntrag ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVAn_Zeitstempel() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Zeitstempel in Tabelle spSELECTtblUStVAntrag ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ZeitstempelColumn) = value End Set End Property _ Public Function IsUStVAn_NameNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_NameColumn) End Function _ Public Sub SetUStVAn_NameNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_StraßeNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_StraßeColumn) End Function _ Public Sub SetUStVAn_StraßeNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_LandKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_LandKzColumn) End Function _ Public Sub SetUStVAn_LandKzNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_PLZNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_PLZColumn) End Function _ Public Sub SetUStVAn_PLZNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_OrtNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_OrtColumn) End Function _ Public Sub SetUStVAn_OrtNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_LandNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_LandColumn) End Function _ Public Sub SetUStVAn_LandNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_GewerbeNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_GewerbeColumn) End Function _ Public Sub SetUStVAn_GewerbeNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_GewerbeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_SteuernummerNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_SteuernummerColumn) End Function _ Public Sub SetUStVAn_SteuernummerNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_SteuernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BankverbindungNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_BankverbindungColumn) End Function _ Public Sub SetUStVAn_BankverbindungNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BankverbindungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BLZNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_BLZColumn) End Function _ Public Sub SetUStVAn_BLZNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_KTONull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_KTOColumn) End Function _ Public Sub SetUStVAn_KTONull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_KTOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_KontoinhaberNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_KontoinhaberColumn) End Function _ Public Sub SetUStVAn_KontoinhaberNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_KontoinhaberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BICNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_BICColumn) End Function _ Public Sub SetUStVAn_BICNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BICColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IBANNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_IBANColumn) End Function _ Public Sub SetUStVAn_IBANNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_IBANColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AnlagenNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_AnlagenColumn) End Function _ Public Sub SetUStVAn_AnlagenNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AnlagenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RechnungenNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_RechnungenColumn) End Function _ Public Sub SetUStVAn_RechnungenNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RechnungenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_EinfuhrdokumenteNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_EinfuhrdokumenteColumn) End Function _ Public Sub SetUStVAn_EinfuhrdokumenteNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_EinfuhrdokumenteColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_Erklärung_9_aNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_Erklärung_9_aColumn) End Function _ Public Sub SetUStVAn_Erklärung_9_aNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_Erklärung_9_aColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AusstellungsortNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_AusstellungsortColumn) End Function _ Public Sub SetUStVAn_AusstellungsortNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AusstellungsortColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AusstellungsdatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_AusstellungsdatumColumn) End Function _ Public Sub SetUStVAn_AusstellungsdatumNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AusstellungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_UnterschriftNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_UnterschriftColumn) End Function _ Public Sub SetUStVAn_UnterschriftNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_UnterschriftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BeleganzahlNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_BeleganzahlColumn) End Function _ Public Sub SetUStVAn_BeleganzahlNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BeleganzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BeleganzahlRetourniertNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_BeleganzahlRetourniertColumn) End Function _ Public Sub SetUStVAn_BeleganzahlRetourniertNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BeleganzahlRetourniertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RetournierungsgrundNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_RetournierungsgrundColumn) End Function _ Public Sub SetUStVAn_RetournierungsgrundNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RetournierungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AntragEingereichtAmNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_AntragEingereichtAmColumn) End Function _ Public Sub SetUStVAn_AntragEingereichtAmNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_AntragEingereichtAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BelegeWeitergeleitetAmNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn) End Function _ Public Sub SetUStVAn_BelegeWeitergeleitetAmNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BelegeWeitergeleitetAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VertreterNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_VertreterColumn) End Function _ Public Sub SetUStVAn_VertreterNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_VertreterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BezugsNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_BezugsNrColumn) End Function _ Public Sub SetUStVAn_BezugsNrNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_BezugsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_3470Null() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_3470Column) End Function _ Public Sub SetUStVAn_3470Null() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_3470Column) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZBetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_VZBetragColumn) End Function _ Public Sub SetUStVAn_VZBetragNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_VZBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZDatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_VZDatumColumn) End Function _ Public Sub SetUStVAn_VZDatumNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_VZDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RZBetragVZNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_RZBetragVZColumn) End Function _ Public Sub SetUStVAn_RZBetragVZNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RZBetragVZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RZDatumVZNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_RZDatumVZColumn) End Function _ Public Sub SetUStVAn_RZDatumVZNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_RZDatumVZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tablespSELECTtblUStVAntrag.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tablespSELECTtblUStVAntrag.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_WährungscodeNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_WährungscodeColumn) End Function _ Public Sub SetUStVAn_WährungscodeNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_USteuerbetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_USteuerbetragColumn) End Function _ Public Sub SetUStVAn_USteuerbetragNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_USteuerbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ErstattungsbetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_ErstattungsbetragColumn) End Function _ Public Sub SetUStVAn_ErstattungsbetragNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ErstattungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_USteuerbetragEURColumn) End Function _ Public Sub SetUStVAn_USteuerbetragEURNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ErstattungsbetragEURNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_ErstattungsbetragEURColumn) End Function _ Public Sub SetUStVAn_ErstattungsbetragEURNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ErstattungsbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_SachbearbeiterColumn) End Function _ Public Sub SetUStVAn_SachbearbeiterNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVAntrag.UStVAn_ZeitstempelColumn) End Function _ Public Sub SetUStVAn_ZeitstempelNull() Me(Me.tablespSELECTtblUStVAntrag.UStVAn_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblUStVBelegeingangRow Inherits Global.System.Data.DataRow Private tablespSELECTtblUStVBelegeingang As spSELECTtblUStVBelegeingangDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblUStVBelegeingang = CType(Me.Table,spSELECTtblUStVBelegeingangDataTable) End Sub _ Public Property UStVBe_KuNr() As Integer Get Return CType(Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_KuNrColumn),Integer) End Get Set Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_KuNrColumn) = value End Set End Property _ Public Property UStVBe_EinDat() As Date Get Return CType(Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_EinDatColumn),Date) End Get Set Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_EinDatColumn) = value End Set End Property _ Public Property UStVBe_EinNr() As Integer Get Return CType(Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_EinNrColumn),Integer) End Get Set Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_EinNrColumn) = value End Set End Property _ Public Property UStVBe_UStBetrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_UStBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_UStBetrag in Tabelle spSELECTtblUStVBelegeingang ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_UStBetragColumn) = value End Set End Property _ Public Property UStVBe_Beleganzahl() As Short Get Try Return CType(Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_BeleganzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Beleganzahl in Tabelle spSELECTtblUStVBelegeingang ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_BeleganzahlColumn) = value End Set End Property _ Public Property UStVBe_Retourniert() As Short Get Try Return CType(Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_RetourniertColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Retourniert in Tabelle spSELECTtblUStVBelegeingang ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_RetourniertColumn) = value End Set End Property _ Public Property UStVBe_Bemerkung() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Bemerkung in Tabelle spSELECTtblUStVBelegeingang ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_BemerkungColumn) = value End Set End Property _ Public Property UStVBe_WeiterDat() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_WeiterDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_WeiterDat in Tabelle spSELECTtblUStVBelegeingang ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_WeiterDatColumn) = value End Set End Property _ Public Property UStVBe_Empfänger() As Integer Get Try Return CType(Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_EmpfängerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Empfänger in Tabelle spSELECTtblUStVBelegeingang ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_EmpfängerColumn) = value End Set End Property _ Public Property UStVBe_Zeitstempel() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Zeitstempel in Tabelle spSELECTtblUStVBelegeingang ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_ZeitstempelColumn) = value End Set End Property _ Public Function IsUStVBe_UStBetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVBelegeingang.UStVBe_UStBetragColumn) End Function _ Public Sub SetUStVBe_UStBetragNull() Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_UStBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_BeleganzahlNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVBelegeingang.UStVBe_BeleganzahlColumn) End Function _ Public Sub SetUStVBe_BeleganzahlNull() Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_BeleganzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_RetourniertNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVBelegeingang.UStVBe_RetourniertColumn) End Function _ Public Sub SetUStVBe_RetourniertNull() Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_RetourniertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_BemerkungNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVBelegeingang.UStVBe_BemerkungColumn) End Function _ Public Sub SetUStVBe_BemerkungNull() Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_WeiterDatNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVBelegeingang.UStVBe_WeiterDatColumn) End Function _ Public Sub SetUStVBe_WeiterDatNull() Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_WeiterDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_EmpfängerNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVBelegeingang.UStVBe_EmpfängerColumn) End Function _ Public Sub SetUStVBe_EmpfängerNull() Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_EmpfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVBelegeingang.UStVBe_ZeitstempelColumn) End Function _ Public Sub SetUStVBe_ZeitstempelNull() Me(Me.tablespSELECTtblUStVBelegeingang.UStVBe_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblUStVErstattungRow Inherits Global.System.Data.DataRow Private tablespSELECTtblUStVErstattung As spSELECTtblUStVErstattungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblUStVErstattung = CType(Me.Table,spSELECTtblUStVErstattungDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablespSELECTtblUStVErstattung.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablespSELECTtblUStVErstattung.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVEr_ID() As Short Get Return CType(Me(Me.tablespSELECTtblUStVErstattung.UStVEr_IDColumn),Short) End Get Set Me(Me.tablespSELECTtblUStVErstattung.UStVEr_IDColumn) = value End Set End Property _ Public Property UStVEr_USteuerbetrag() As Decimal Get Return CType(Me(Me.tablespSELECTtblUStVErstattung.UStVEr_USteuerbetragColumn),Decimal) End Get Set Me(Me.tablespSELECTtblUStVErstattung.UStVEr_USteuerbetragColumn) = value End Set End Property _ Public Property Belegdatum() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.BelegdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdatum in Tabelle spSELECTtblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.BelegdatumColumn) = value End Set End Property _ Public Property Belegnummer() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.BelegnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegnummer in Tabelle spSELECTtblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.BelegnummerColumn) = value End Set End Property _ Public Property GutschriftsDatum() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.GutschriftsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GutschriftsDatum in Tabelle spSELECTtblUStVErstattung ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.GutschriftsDatumColumn) = value End Set End Property _ Public Property GutschriftsNr() As Integer Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.GutschriftsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GutschriftsNr in Tabelle spSELECTtblUStVErstattung ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.GutschriftsNrColumn) = value End Set End Property _ Public Property Berufungsdatum() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.BerufungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungsdatum in Tabelle spSELECTtblUStVErstattung ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.BerufungsdatumColumn) = value End Set End Property _ Public Property Berufungshöhe() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.BerufungshöheColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungshöhe in Tabelle spSELECTtblUStVErstattung ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.BerufungshöheColumn) = value End Set End Property _ Public Property Berufungsgrund() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.BerufungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungsgrund in Tabelle spSELECTtblUStVErstattung ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.BerufungsgrundColumn) = value End Set End Property _ Public Property Bemerkung() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle spSELECTtblUStVErstattung ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.BemerkungColumn) = value End Set End Property _ Public Property UStVEr_Umrechnungskurs() As Double Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.UStVEr_UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Umrechnungskurs in Tabelle spSELECTtblUStVErstattung i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.UStVEr_UmrechnungskursColumn) = value End Set End Property _ Public Property UStVEr_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.UStVEr_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_USteuerbetragEUR in Tabelle spSELECTtblUStVErstattung "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.UStVEr_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVEr_Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.UStVEr_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Sachbearbeiter in Tabelle spSELECTtblUStVErstattung is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.UStVEr_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVEr_Zeitstempel() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVErstattung.UStVEr_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Zeitstempel in Tabelle spSELECTtblUStVErstattung ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVErstattung.UStVEr_ZeitstempelColumn) = value End Set End Property _ Public Function IsBelegdatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.BelegdatumColumn) End Function _ Public Sub SetBelegdatumNull() Me(Me.tablespSELECTtblUStVErstattung.BelegdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegnummerNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.BelegnummerColumn) End Function _ Public Sub SetBelegnummerNull() Me(Me.tablespSELECTtblUStVErstattung.BelegnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGutschriftsDatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.GutschriftsDatumColumn) End Function _ Public Sub SetGutschriftsDatumNull() Me(Me.tablespSELECTtblUStVErstattung.GutschriftsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGutschriftsNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.GutschriftsNrColumn) End Function _ Public Sub SetGutschriftsNrNull() Me(Me.tablespSELECTtblUStVErstattung.GutschriftsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungsdatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.BerufungsdatumColumn) End Function _ Public Sub SetBerufungsdatumNull() Me(Me.tablespSELECTtblUStVErstattung.BerufungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungshöheNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.BerufungshöheColumn) End Function _ Public Sub SetBerufungshöheNull() Me(Me.tablespSELECTtblUStVErstattung.BerufungshöheColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungsgrundNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.BerufungsgrundColumn) End Function _ Public Sub SetBerufungsgrundNull() Me(Me.tablespSELECTtblUStVErstattung.BerufungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.BemerkungColumn) End Function _ Public Sub SetBemerkungNull() Me(Me.tablespSELECTtblUStVErstattung.BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_UmrechnungskursNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.UStVEr_UmrechnungskursColumn) End Function _ Public Sub SetUStVEr_UmrechnungskursNull() Me(Me.tablespSELECTtblUStVErstattung.UStVEr_UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.UStVEr_USteuerbetragEURColumn) End Function _ Public Sub SetUStVEr_USteuerbetragEURNull() Me(Me.tablespSELECTtblUStVErstattung.UStVEr_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.UStVEr_SachbearbeiterColumn) End Function _ Public Sub SetUStVEr_SachbearbeiterNull() Me(Me.tablespSELECTtblUStVErstattung.UStVEr_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVErstattung.UStVEr_ZeitstempelColumn) End Function _ Public Sub SetUStVEr_ZeitstempelNull() Me(Me.tablespSELECTtblUStVErstattung.UStVEr_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblUStVPositionenRow Inherits Global.System.Data.DataRow Private tablespSELECTtblUStVPositionen As spSELECTtblUStVPositionenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblUStVPositionen = CType(Me.Table,spSELECTtblUStVPositionenDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVPo_ID() As Short Get Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_IDColumn),Short) End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_IDColumn) = value End Set End Property _ Public Property UStVPo_ReDat() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_ReDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_ReDat in Tabelle spSELECTtblUStVPositionen ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_ReDatColumn) = value End Set End Property _ Public Property UStVPo_ReNr() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_ReNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_ReNr in Tabelle spSELECTtblUStVPositionen ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_ReNrColumn) = value End Set End Property _ Public Property UStVPo_USteuerbetrag() As Decimal Get Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_USteuerbetragColumn),Decimal) End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_USteuerbetragColumn) = value End Set End Property _ Public Property UStVPo_Leistungsbezeichnung() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_LeistungsbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Leistungsbezeichnung in Tabelle spSELECTtblUStVPositio"& _ "nen ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_LeistungsbezeichnungColumn) = value End Set End Property _ Public Property UStVPo_Leistender() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_LeistenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Leistender in Tabelle spSELECTtblUStVPositionen ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_LeistenderColumn) = value End Set End Property _ Public Property UStVPo_Schnittstelle() As Boolean Get Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_SchnittstelleColumn),Boolean) End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_SchnittstelleColumn) = value End Set End Property _ Public Property UStVPo_SchnittstellenNr() As Short Get Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_SchnittstellenNrColumn),Short) End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_SchnittstellenNrColumn) = value End Set End Property _ Public Property UStVPo_Umrechnungskurs() As Double Get Try Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Umrechnungskurs in Tabelle spSELECTtblUStVPositionen i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_UmrechnungskursColumn) = value End Set End Property _ Public Property UStVPo_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_USteuerbetragEUR in Tabelle spSELECTtblUStVPositionen "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVPo_Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Sachbearbeiter in Tabelle spSELECTtblUStVPositionen is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVPo_Zeitstempel() As Date Get Try Return CType(Me(Me.tablespSELECTtblUStVPositionen.UStVPo_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Zeitstempel in Tabelle spSELECTtblUStVPositionen ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTtblUStVPositionen.UStVPo_ZeitstempelColumn) = value End Set End Property _ Public Function IsUStVPo_ReDatNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVPositionen.UStVPo_ReDatColumn) End Function _ Public Sub SetUStVPo_ReDatNull() Me(Me.tablespSELECTtblUStVPositionen.UStVPo_ReDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_ReNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVPositionen.UStVPo_ReNrColumn) End Function _ Public Sub SetUStVPo_ReNrNull() Me(Me.tablespSELECTtblUStVPositionen.UStVPo_ReNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_LeistungsbezeichnungNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVPositionen.UStVPo_LeistungsbezeichnungColumn) End Function _ Public Sub SetUStVPo_LeistungsbezeichnungNull() Me(Me.tablespSELECTtblUStVPositionen.UStVPo_LeistungsbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_LeistenderNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVPositionen.UStVPo_LeistenderColumn) End Function _ Public Sub SetUStVPo_LeistenderNull() Me(Me.tablespSELECTtblUStVPositionen.UStVPo_LeistenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_UmrechnungskursNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVPositionen.UStVPo_UmrechnungskursColumn) End Function _ Public Sub SetUStVPo_UmrechnungskursNull() Me(Me.tablespSELECTtblUStVPositionen.UStVPo_UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVPositionen.UStVPo_USteuerbetragEURColumn) End Function _ Public Sub SetUStVPo_USteuerbetragEURNull() Me(Me.tablespSELECTtblUStVPositionen.UStVPo_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVPositionen.UStVPo_SachbearbeiterColumn) End Function _ Public Sub SetUStVPo_SachbearbeiterNull() Me(Me.tablespSELECTtblUStVPositionen.UStVPo_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblUStVPositionen.UStVPo_ZeitstempelColumn) End Function _ Public Sub SetUStVPo_ZeitstempelNull() Me(Me.tablespSELECTtblUStVPositionen.UStVPo_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTtblZolaris_EZoll_NCTSRow Inherits Global.System.Data.DataRow Private tablespSELECTtblZolaris_EZoll_NCTS As spSELECTtblZolaris_EZoll_NCTSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTtblZolaris_EZoll_NCTS = CType(Me.Table,spSELECTtblZolaris_EZoll_NCTSDataTable) End Sub _ Public Property CRN() As String Get Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.CRNColumn),String) End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.CRNColumn) = value End Set End Property _ Public Property AnmeldungsDatum() As Date Get Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AnmeldungsDatumColumn),Date) End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AnmeldungsDatumColumn) = value End Set End Property _ Public Property GarantieWert() As Decimal Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GarantieWertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GarantieWert in Tabelle spSELECTtblZolaris_EZoll_NCTS ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GarantieWertColumn) = value End Set End Property _ Public Property AnmID() As Integer Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AnmIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AnmID in Tabelle spSELECTtblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AnmIDColumn) = value End Set End Property _ Public Property ErledigungsTypID() As String Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.ErledigungsTypIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErledigungsTypID in Tabelle spSELECTtblZolaris_EZoll_NCTS ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.ErledigungsTypIDColumn) = value End Set End Property _ Public Property Warenbezeichnung() As String Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warenbezeichnung in Tabelle spSELECTtblZolaris_EZoll_NCTS ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.WarenbezeichnungColumn) = value End Set End Property _ Public Property Absender() As String Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AbsenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Absender in Tabelle spSELECTtblZolaris_EZoll_NCTS ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AbsenderColumn) = value End Set End Property _ Public Property Empfaenger() As String Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.EmpfaengerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Empfaenger in Tabelle spSELECTtblZolaris_EZoll_NCTS ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.EmpfaengerColumn) = value End Set End Property _ Public Property Gesamtrohmasse() As Double Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GesamtrohmasseColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtrohmasse in Tabelle spSELECTtblZolaris_EZoll_NCTS ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GesamtrohmasseColumn) = value End Set End Property _ Public Property Abgangszollstelle() As String Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AbgangszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abgangszollstelle in Tabelle spSELECTtblZolaris_EZoll_NCTS is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AbgangszollstelleColumn) = value End Set End Property _ Public Property Bestimmungszollstelle() As String Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.BestimmungszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bestimmungszollstelle in Tabelle spSELECTtblZolaris_EZoll_NCT"& _ "S ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.BestimmungszollstelleColumn) = value End Set End Property _ Public Property Gestellungsfrist() As Date Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GestellungsfristColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gestellungsfrist in Tabelle spSELECTtblZolaris_EZoll_NCTS ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GestellungsfristColumn) = value End Set End Property _ Public Property LRN() As String Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.LRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LRN in Tabelle spSELECTtblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.LRNColumn) = value End Set End Property _ Public Property DatumBestimmungErreicht() As Date Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.DatumBestimmungErreichtColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DatumBestimmungErreicht in Tabelle spSELECTtblZolaris_EZoll_N"& _ "CTS ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.DatumBestimmungErreichtColumn) = value End Set End Property _ Public Property GRN() As String Get Try Return CType(Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GRN in Tabelle spSELECTtblZolaris_EZoll_NCTS ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GRNColumn) = value End Set End Property _ Public Function IsGarantieWertNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.GarantieWertColumn) End Function _ Public Sub SetGarantieWertNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GarantieWertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnmIDNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.AnmIDColumn) End Function _ Public Sub SetAnmIDNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AnmIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErledigungsTypIDNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.ErledigungsTypIDColumn) End Function _ Public Sub SetErledigungsTypIDNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.ErledigungsTypIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.WarenbezeichnungColumn) End Function _ Public Sub SetWarenbezeichnungNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.AbsenderColumn) End Function _ Public Sub SetAbsenderNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AbsenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfaengerNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.EmpfaengerColumn) End Function _ Public Sub SetEmpfaengerNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.EmpfaengerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtrohmasseNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.GesamtrohmasseColumn) End Function _ Public Sub SetGesamtrohmasseNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GesamtrohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbgangszollstelleNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.AbgangszollstelleColumn) End Function _ Public Sub SetAbgangszollstelleNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.AbgangszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungszollstelleNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.BestimmungszollstelleColumn) End Function _ Public Sub SetBestimmungszollstelleNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.BestimmungszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGestellungsfristNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.GestellungsfristColumn) End Function _ Public Sub SetGestellungsfristNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GestellungsfristColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLRNNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.LRNColumn) End Function _ Public Sub SetLRNNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.LRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatumBestimmungErreichtNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.DatumBestimmungErreichtColumn) End Function _ Public Sub SetDatumBestimmungErreichtNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.DatumBestimmungErreichtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGRNNull() As Boolean Return Me.IsNull(Me.tablespSELECTtblZolaris_EZoll_NCTS.GRNColumn) End Function _ Public Sub SetGRNNull() Me(Me.tablespSELECTtblZolaris_EZoll_NCTS.GRNColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTUStVErstattungsschreibenRow Inherits Global.System.Data.DataRow Private tablespSELECTUStVErstattungsschreiben As spSELECTUStVErstattungsschreibenDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTUStVErstattungsschreiben = CType(Me.Table,spSELECTUStVErstattungsschreibenDataTable) End Sub _ Public Property Name() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben.NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle spSELECTUStVErstattungsschreiben ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben.NameColumn) = value End Set End Property _ Public Property Straße() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben.StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Straße in Tabelle spSELECTUStVErstattungsschreiben ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben.StraßeColumn) = value End Set End Property _ Public Property Ort() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben.OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ort in Tabelle spSELECTUStVErstattungsschreiben ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben.OrtColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle spSELECTUStVErstattungsschreiben ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben.LandKzColumn) = value End Set End Property _ Public Property MWST() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben.MWSTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MWST in Tabelle spSELECTUStVErstattungsschreiben ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben.MWSTColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben.AbfertigungsNrColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben.FilialenNrColumn),Short) End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben.FilialenNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben.UnterNrColumn),Short) End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben.UnterNrColumn) = value End Set End Property _ Public Property Betrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben.BetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag in Tabelle spSELECTUStVErstattungsschreiben ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben.BetragColumn) = value End Set End Property _ Public Property KorrAdresse() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben.KorrAdresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KorrAdresse in Tabelle spSELECTUStVErstattungsschreiben ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben.KorrAdresseColumn) = value End Set End Property _ Public Function IsNameNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben.NameColumn) End Function _ Public Sub SetNameNull() Me(Me.tablespSELECTUStVErstattungsschreiben.NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStraßeNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben.StraßeColumn) End Function _ Public Sub SetStraßeNull() Me(Me.tablespSELECTUStVErstattungsschreiben.StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOrtNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben.OrtColumn) End Function _ Public Sub SetOrtNull() Me(Me.tablespSELECTUStVErstattungsschreiben.OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tablespSELECTUStVErstattungsschreiben.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMWSTNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben.MWSTColumn) End Function _ Public Sub SetMWSTNull() Me(Me.tablespSELECTUStVErstattungsschreiben.MWSTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben.BetragColumn) End Function _ Public Sub SetBetragNull() Me(Me.tablespSELECTUStVErstattungsschreiben.BetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKorrAdresseNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben.KorrAdresseColumn) End Function _ Public Sub SetKorrAdresseNull() Me(Me.tablespSELECTUStVErstattungsschreiben.KorrAdresseColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTUStVErstattungsschreiben2Row Inherits Global.System.Data.DataRow Private tablespSELECTUStVErstattungsschreiben2 As spSELECTUStVErstattungsschreiben2DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTUStVErstattungsschreiben2 = CType(Me.Table,spSELECTUStVErstattungsschreiben2DataTable) End Sub _ Public Property Name() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben2.NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle spSELECTUStVErstattungsschreiben2 ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben2.NameColumn) = value End Set End Property _ Public Property Straße() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben2.StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Straße in Tabelle spSELECTUStVErstattungsschreiben2 ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben2.StraßeColumn) = value End Set End Property _ Public Property Ort() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben2.OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ort in Tabelle spSELECTUStVErstattungsschreiben2 ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben2.OrtColumn) = value End Set End Property _ Public Property LandKz() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben2.LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LandKz in Tabelle spSELECTUStVErstattungsschreiben2 ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben2.LandKzColumn) = value End Set End Property _ Public Property MWST() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben2.MWSTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MWST in Tabelle spSELECTUStVErstattungsschreiben2 ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben2.MWSTColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben2.AbfertigungsNrColumn),Integer) End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben2.AbfertigungsNrColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben2.FilialenNrColumn),Short) End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben2.FilialenNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben2.UnterNrColumn),Short) End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben2.UnterNrColumn) = value End Set End Property _ Public Property Betrag() As Decimal Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben2.BetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Betrag in Tabelle spSELECTUStVErstattungsschreiben2 ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben2.BetragColumn) = value End Set End Property _ Public Property KorrAdresse() As String Get Try Return CType(Me(Me.tablespSELECTUStVErstattungsschreiben2.KorrAdresseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KorrAdresse in Tabelle spSELECTUStVErstattungsschreiben2 ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespSELECTUStVErstattungsschreiben2.KorrAdresseColumn) = value End Set End Property _ Public Function IsNameNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben2.NameColumn) End Function _ Public Sub SetNameNull() Me(Me.tablespSELECTUStVErstattungsschreiben2.NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStraßeNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben2.StraßeColumn) End Function _ Public Sub SetStraßeNull() Me(Me.tablespSELECTUStVErstattungsschreiben2.StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOrtNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben2.OrtColumn) End Function _ Public Sub SetOrtNull() Me(Me.tablespSELECTUStVErstattungsschreiben2.OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLandKzNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben2.LandKzColumn) End Function _ Public Sub SetLandKzNull() Me(Me.tablespSELECTUStVErstattungsschreiben2.LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMWSTNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben2.MWSTColumn) End Function _ Public Sub SetMWSTNull() Me(Me.tablespSELECTUStVErstattungsschreiben2.MWSTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetragNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben2.BetragColumn) End Function _ Public Sub SetBetragNull() Me(Me.tablespSELECTUStVErstattungsschreiben2.BetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKorrAdresseNull() As Boolean Return Me.IsNull(Me.tablespSELECTUStVErstattungsschreiben2.KorrAdresseColumn) End Function _ Public Sub SetKorrAdresseNull() Me(Me.tablespSELECTUStVErstattungsschreiben2.KorrAdresseColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spSELECTZkteingRow Inherits Global.System.Data.DataRow Private tablespSELECTZkteing As spSELECTZkteingDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespSELECTZkteing = CType(Me.Table,spSELECTZkteingDataTable) End Sub _ Public Property Index() As Integer Get Return CType(Me(Me.tablespSELECTZkteing.IndexColumn),Integer) End Get Set Me(Me.tablespSELECTZkteing.IndexColumn) = value End Set End Property _ Public Property Status() As String Get Try Return CType(Me(Me.tablespSELECTZkteing.StatusColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.StatusColumn) = value End Set End Property _ Public Property ZollamtsNr() As Short Get Try Return CType(Me(Me.tablespSELECTZkteing.ZollamtsNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ZollamtsNr in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.ZollamtsNrColumn) = value End Set End Property _ Public Property Jahr() As Short Get Try Return CType(Me(Me.tablespSELECTZkteing.JahrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Jahr in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.JahrColumn) = value End Set End Property _ Public Property KennNr() As Short Get Try Return CType(Me(Me.tablespSELECTZkteing.KennNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KennNr in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.KennNrColumn) = value End Set End Property _ Public Property Nummer() As Integer Get Try Return CType(Me(Me.tablespSELECTZkteing.NummerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nummer in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.NummerColumn) = value End Set End Property _ Public Property Leitzahl() As Short Get Try Return CType(Me(Me.tablespSELECTZkteing.LeitzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Leitzahl in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.LeitzahlColumn) = value End Set End Property _ Public Property Belegart() As String Get Return CType(Me(Me.tablespSELECTZkteing.BelegartColumn),String) End Get Set Me(Me.tablespSELECTZkteing.BelegartColumn) = value End Set End Property _ Public Property LeistungsNr() As Short Get Return CType(Me(Me.tablespSELECTZkteing.LeistungsNrColumn),Short) End Get Set Me(Me.tablespSELECTZkteing.LeistungsNrColumn) = value End Set End Property _ Public Property Betrag() As Decimal Get Return CType(Me(Me.tablespSELECTZkteing.BetragColumn),Decimal) End Get Set Me(Me.tablespSELECTZkteing.BetragColumn) = value End Set End Property _ Public Property Eingabedatum() As Date Get Return CType(Me(Me.tablespSELECTZkteing.EingabedatumColumn),Date) End Get Set Me(Me.tablespSELECTZkteing.EingabedatumColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Try Return CType(Me(Me.tablespSELECTZkteing.AbfertigungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsdatum in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.AbfertigungsdatumColumn) = value End Set End Property _ Public Property Übernahmedatum() As Date Get Return CType(Me(Me.tablespSELECTZkteing.ÜbernahmedatumColumn),Date) End Get Set Me(Me.tablespSELECTZkteing.ÜbernahmedatumColumn) = value End Set End Property _ Public Property Bemerkung() As String Get Try Return CType(Me(Me.tablespSELECTZkteing.BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.BemerkungColumn) = value End Set End Property _ Public Property Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespSELECTZkteing.SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachbearbeiter in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.SachbearbeiterColumn) = value End Set End Property _ Public Property Bezugsnummer() As String Get Return CType(Me(Me.tablespSELECTZkteing.BezugsnummerColumn),String) End Get Set Me(Me.tablespSELECTZkteing.BezugsnummerColumn) = value End Set End Property _ Public Property Registriernummer() As String Get Try Return CType(Me(Me.tablespSELECTZkteing.RegistriernummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Registriernummer in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.RegistriernummerColumn) = value End Set End Property _ Public Property Korrekturnummer() As String Get Try Return CType(Me(Me.tablespSELECTZkteing.KorrekturnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Korrekturnummer in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.KorrekturnummerColumn) = value End Set End Property _ Public Property AOFD() As String Get Try Return CType(Me(Me.tablespSELECTZkteing.AOFDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AOFD in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.AOFDColumn) = value End Set End Property _ Public Property AKTO() As String Get Try Return CType(Me(Me.tablespSELECTZkteing.AKTOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AKTO in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.AKTOColumn) = value End Set End Property _ Public Property Fälligkeitsdatum() As Date Get Try Return CType(Me(Me.tablespSELECTZkteing.FälligkeitsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fälligkeitsdatum in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.FälligkeitsdatumColumn) = value End Set End Property _ Public Property Dateiname() As String Get Try Return CType(Me(Me.tablespSELECTZkteing.DateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dateiname in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.DateinameColumn) = value End Set End Property _ Public Property Mandant() As String Get Try Return CType(Me(Me.tablespSELECTZkteing.MandantColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.MandantColumn) = value End Set End Property _ Public Property Niederlassung() As String Get Try Return CType(Me(Me.tablespSELECTZkteing.NiederlassungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Niederlassung in Tabelle spSELECTZkteing ist DBNull.", e) End Try End Get Set Me(Me.tablespSELECTZkteing.NiederlassungColumn) = value End Set End Property _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tablespSELECTZkteing.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsZollamtsNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.ZollamtsNrColumn) End Function _ Public Sub SetZollamtsNrNull() Me(Me.tablespSELECTZkteing.ZollamtsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsJahrNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.JahrColumn) End Function _ Public Sub SetJahrNull() Me(Me.tablespSELECTZkteing.JahrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKennNrNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.KennNrColumn) End Function _ Public Sub SetKennNrNull() Me(Me.tablespSELECTZkteing.KennNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNummerNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.NummerColumn) End Function _ Public Sub SetNummerNull() Me(Me.tablespSELECTZkteing.NummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLeitzahlNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.LeitzahlColumn) End Function _ Public Sub SetLeitzahlNull() Me(Me.tablespSELECTZkteing.LeitzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsdatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.AbfertigungsdatumColumn) End Function _ Public Sub SetAbfertigungsdatumNull() Me(Me.tablespSELECTZkteing.AbfertigungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.BemerkungColumn) End Function _ Public Sub SetBemerkungNull() Me(Me.tablespSELECTZkteing.BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.SachbearbeiterColumn) End Function _ Public Sub SetSachbearbeiterNull() Me(Me.tablespSELECTZkteing.SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRegistriernummerNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.RegistriernummerColumn) End Function _ Public Sub SetRegistriernummerNull() Me(Me.tablespSELECTZkteing.RegistriernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKorrekturnummerNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.KorrekturnummerColumn) End Function _ Public Sub SetKorrekturnummerNull() Me(Me.tablespSELECTZkteing.KorrekturnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAOFDNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.AOFDColumn) End Function _ Public Sub SetAOFDNull() Me(Me.tablespSELECTZkteing.AOFDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAKTONull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.AKTOColumn) End Function _ Public Sub SetAKTONull() Me(Me.tablespSELECTZkteing.AKTOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFälligkeitsdatumNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.FälligkeitsdatumColumn) End Function _ Public Sub SetFälligkeitsdatumNull() Me(Me.tablespSELECTZkteing.FälligkeitsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDateinameNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.DateinameColumn) End Function _ Public Sub SetDateinameNull() Me(Me.tablespSELECTZkteing.DateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMandantNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.MandantColumn) End Function _ Public Sub SetMandantNull() Me(Me.tablespSELECTZkteing.MandantColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNiederlassungNull() As Boolean Return Me.IsNull(Me.tablespSELECTZkteing.NiederlassungColumn) End Function _ Public Sub SetNiederlassungNull() Me(Me.tablespSELECTZkteing.NiederlassungColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spTrdinFiBuSelectInvoiceRow Inherits Global.System.Data.DataRow Private tablespTrdinFiBuSelectInvoice As spTrdinFiBuSelectInvoiceDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespTrdinFiBuSelectInvoice = CType(Me.Table,spTrdinFiBuSelectInvoiceDataTable) End Sub _ Public Property Rechnungsdatum() As Date Get Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsdatumColumn),Date) End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsnummerColumn),Integer) End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsnummerColumn) = value End Set End Property _ Public Property Speditionsbuch() As Short Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.SpeditionsbuchColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Speditionsbuch in Tabelle spTrdinFiBuSelectInvoice ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.SpeditionsbuchColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle spTrdinFiBuSelectInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle spTrdinFiBuSelectInvoice ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.UnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UnterNr in Tabelle spTrdinFiBuSelectInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.AbfertigungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsdatum in Tabelle spTrdinFiBuSelectInvoice ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.AbfertigungsdatumColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.BelegartenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegartenNr in Tabelle spTrdinFiBuSelectInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.BelegartenNrColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.KundenNrZentraleColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNrZentrale in Tabelle spTrdinFiBuSelectInvoice ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.KundenNrZentraleColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsKundenNr in Tabelle spTrdinFiBuSelectInvoice ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsKundenNrColumn) = value End Set End Property _ Public Property RechnungsLandKz() As String Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsLandKz in Tabelle spTrdinFiBuSelectInvoice ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsLandKzColumn) = value End Set End Property _ Public Property RechnungsUstIdKz() As String Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsUstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdKz in Tabelle spTrdinFiBuSelectInvoice ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsUstIdKzColumn) = value End Set End Property _ Public Property RechnungsUstIdNr() As String Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsUstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdNr in Tabelle spTrdinFiBuSelectInvoice ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsUstIdNrColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.LastschriftColumn),Boolean) End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.LastschriftColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.SteuerschlüsselColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerschlüssel in Tabelle spTrdinFiBuSelectInvoice ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.SteuerschlüsselColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice._Steuersatz__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuersatz % in Tabelle spTrdinFiBuSelectInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice._Steuersatz__Column) = value End Set End Property _ Public Property WährungLokal() As String Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.WährungLokalColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungLokal in Tabelle spTrdinFiBuSelectInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.WährungLokalColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.SteuerpflichtigerBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragLokal in Tabelle spTrdinFiBuSelectInvo"& _ "ice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.SteuerpflichtigerBetragLokalColumn) = value End Set End Property _ Public Property SteuerfreierBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.SteuerfreierBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragLokal in Tabelle spTrdinFiBuSelectInvoice i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.SteuerfreierBetragLokalColumn) = value End Set End Property _ Public Property SteuerbetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.SteuerbetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerbetragLokal in Tabelle spTrdinFiBuSelectInvoice ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.SteuerbetragLokalColumn) = value End Set End Property _ Public Property RechnungsbetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsbetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsbetragLokal in Tabelle spTrdinFiBuSelectInvoice ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsbetragLokalColumn) = value End Set End Property _ Public Property WährungFremd() As String Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.WährungFremdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungFremd in Tabelle spTrdinFiBuSelectInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.WährungFremdColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.SteuerpflichtigerBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragFremd in Tabelle spTrdinFiBuSelectInvo"& _ "ice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.SteuerpflichtigerBetragFremdColumn) = value End Set End Property _ Public Property SteuerfreierBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.SteuerfreierBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragFremd in Tabelle spTrdinFiBuSelectInvoice i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.SteuerfreierBetragFremdColumn) = value End Set End Property _ Public Property SteuerbetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.SteuerbetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerbetragFremd in Tabelle spTrdinFiBuSelectInvoice ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.SteuerbetragFremdColumn) = value End Set End Property _ Public Property RechnungsbetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsbetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsbetragFremd in Tabelle spTrdinFiBuSelectInvoice ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsbetragFremdColumn) = value End Set End Property _ Public Property TrdinDateiname() As String Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.TrdinDateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TrdinDateiname in Tabelle spTrdinFiBuSelectInvoice ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.TrdinDateinameColumn) = value End Set End Property _ Public Property Abgleich_op_debitor() As Boolean Get Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.Abgleich_op_debitorColumn),Boolean) End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.Abgleich_op_debitorColumn) = value End Set End Property _ Public Property Nettozahlungsziel() As Short Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.NettozahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettozahlungsziel in Tabelle spTrdinFiBuSelectInvoice ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.NettozahlungszielColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.Firma_IDColumn),Short) End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.Firma_IDColumn) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle spTrdinFiBuSelectInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.UStVAn_IDColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spTrdinFiBuSelectInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.upsize_tsColumn) = value End Set End Property _ Public Property AmbDateiname() As String Get Try Return CType(Me(Me.tablespTrdinFiBuSelectInvoice.AmbDateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AmbDateiname in Tabelle spTrdinFiBuSelectInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectInvoice.AmbDateinameColumn) = value End Set End Property _ Public Function IsSpeditionsbuchNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.SpeditionsbuchColumn) End Function _ Public Sub SetSpeditionsbuchNull() Me(Me.tablespTrdinFiBuSelectInvoice.SpeditionsbuchColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tablespTrdinFiBuSelectInvoice.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tablespTrdinFiBuSelectInvoice.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUnterNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.UnterNrColumn) End Function _ Public Sub SetUnterNrNull() Me(Me.tablespTrdinFiBuSelectInvoice.UnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsdatumNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.AbfertigungsdatumColumn) End Function _ Public Sub SetAbfertigungsdatumNull() Me(Me.tablespTrdinFiBuSelectInvoice.AbfertigungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegartenNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.BelegartenNrColumn) End Function _ Public Sub SetBelegartenNrNull() Me(Me.tablespTrdinFiBuSelectInvoice.BelegartenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKundenNrZentraleNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.KundenNrZentraleColumn) End Function _ Public Sub SetKundenNrZentraleNull() Me(Me.tablespTrdinFiBuSelectInvoice.KundenNrZentraleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsKundenNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.RechnungsKundenNrColumn) End Function _ Public Sub SetRechnungsKundenNrNull() Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsLandKzNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.RechnungsLandKzColumn) End Function _ Public Sub SetRechnungsLandKzNull() Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdKzNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.RechnungsUstIdKzColumn) End Function _ Public Sub SetRechnungsUstIdKzNull() Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsUstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.RechnungsUstIdNrColumn) End Function _ Public Sub SetRechnungsUstIdNrNull() Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsUstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerschlüsselNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.SteuerschlüsselColumn) End Function _ Public Sub SetSteuerschlüsselNull() Me(Me.tablespTrdinFiBuSelectInvoice.SteuerschlüsselColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Steuersatz__Null() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice._Steuersatz__Column) End Function _ Public Sub Set_Steuersatz__Null() Me(Me.tablespTrdinFiBuSelectInvoice._Steuersatz__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.WährungLokalColumn) End Function _ Public Sub SetWährungLokalNull() Me(Me.tablespTrdinFiBuSelectInvoice.WährungLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.SteuerpflichtigerBetragLokalColumn) End Function _ Public Sub SetSteuerpflichtigerBetragLokalNull() Me(Me.tablespTrdinFiBuSelectInvoice.SteuerpflichtigerBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.SteuerfreierBetragLokalColumn) End Function _ Public Sub SetSteuerfreierBetragLokalNull() Me(Me.tablespTrdinFiBuSelectInvoice.SteuerfreierBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.SteuerbetragLokalColumn) End Function _ Public Sub SetSteuerbetragLokalNull() Me(Me.tablespTrdinFiBuSelectInvoice.SteuerbetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.RechnungsbetragLokalColumn) End Function _ Public Sub SetRechnungsbetragLokalNull() Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsbetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.WährungFremdColumn) End Function _ Public Sub SetWährungFremdNull() Me(Me.tablespTrdinFiBuSelectInvoice.WährungFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.SteuerpflichtigerBetragFremdColumn) End Function _ Public Sub SetSteuerpflichtigerBetragFremdNull() Me(Me.tablespTrdinFiBuSelectInvoice.SteuerpflichtigerBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.SteuerfreierBetragFremdColumn) End Function _ Public Sub SetSteuerfreierBetragFremdNull() Me(Me.tablespTrdinFiBuSelectInvoice.SteuerfreierBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.SteuerbetragFremdColumn) End Function _ Public Sub SetSteuerbetragFremdNull() Me(Me.tablespTrdinFiBuSelectInvoice.SteuerbetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.RechnungsbetragFremdColumn) End Function _ Public Sub SetRechnungsbetragFremdNull() Me(Me.tablespTrdinFiBuSelectInvoice.RechnungsbetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTrdinDateinameNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.TrdinDateinameColumn) End Function _ Public Sub SetTrdinDateinameNull() Me(Me.tablespTrdinFiBuSelectInvoice.TrdinDateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettozahlungszielNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.NettozahlungszielColumn) End Function _ Public Sub SetNettozahlungszielNull() Me(Me.tablespTrdinFiBuSelectInvoice.NettozahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tablespTrdinFiBuSelectInvoice.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespTrdinFiBuSelectInvoice.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAmbDateinameNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectInvoice.AmbDateinameColumn) End Function _ Public Sub SetAmbDateinameNull() Me(Me.tablespTrdinFiBuSelectInvoice.AmbDateinameColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spTrdinFiBuSelectProductRow Inherits Global.System.Data.DataRow Private tablespTrdinFiBuSelectProduct As spTrdinFiBuSelectProductDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespTrdinFiBuSelectProduct = CType(Me.Table,spTrdinFiBuSelectProductDataTable) End Sub _ Public Property Sachkonto() As String Get Try Return CType(Me(Me.tablespTrdinFiBuSelectProduct.SachkontoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachkonto in Tabelle spTrdinFiBuSelectProduct ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectProduct.SachkontoColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tablespTrdinFiBuSelectProduct.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tablespTrdinFiBuSelectProduct.SteuerpflichtigColumn) = value End Set End Property _ Public Property BetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinFiBuSelectProduct.BetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BetragLokal in Tabelle spTrdinFiBuSelectProduct ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectProduct.BetragLokalColumn) = value End Set End Property _ Public Property BetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinFiBuSelectProduct.BetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BetragFremd in Tabelle spTrdinFiBuSelectProduct ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectProduct.BetragFremdColumn) = value End Set End Property _ Public Property Buchungstext() As String Get Try Return CType(Me(Me.tablespTrdinFiBuSelectProduct.BuchungstextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungstext in Tabelle spTrdinFiBuSelectProduct ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinFiBuSelectProduct.BuchungstextColumn) = value End Set End Property _ Public Function IsSachkontoNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectProduct.SachkontoColumn) End Function _ Public Sub SetSachkontoNull() Me(Me.tablespTrdinFiBuSelectProduct.SachkontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectProduct.BetragLokalColumn) End Function _ Public Sub SetBetragLokalNull() Me(Me.tablespTrdinFiBuSelectProduct.BetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectProduct.BetragFremdColumn) End Function _ Public Sub SetBetragFremdNull() Me(Me.tablespTrdinFiBuSelectProduct.BetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungstextNull() As Boolean Return Me.IsNull(Me.tablespTrdinFiBuSelectProduct.BuchungstextColumn) End Function _ Public Sub SetBuchungstextNull() Me(Me.tablespTrdinFiBuSelectProduct.BuchungstextColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spTrdinSchreibenSelectInvoicePKeyRow Inherits Global.System.Data.DataRow Private tablespTrdinSchreibenSelectInvoicePKey As spTrdinSchreibenSelectInvoicePKeyDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespTrdinSchreibenSelectInvoicePKey = CType(Me.Table,spTrdinSchreibenSelectInvoicePKeyDataTable) End Sub _ Public Property Rechnungsdatum() As Date Get Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsdatumColumn),Date) End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsnummerColumn),Integer) End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsnummerColumn) = value End Set End Property _ Public Property Speditionsbuch() As Short Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SpeditionsbuchColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Speditionsbuch in Tabelle spTrdinSchreibenSelectInvoicePKey i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SpeditionsbuchColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle spTrdinSchreibenSelectInvoicePKey ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle spTrdinSchreibenSelectInvoicePKey i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.AbfertigungsNrColumn) = value End Set End Property _ Public Property UnterNr() As Short Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.UnterNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UnterNr in Tabelle spTrdinSchreibenSelectInvoicePKey ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.UnterNrColumn) = value End Set End Property _ Public Property Abfertigungsdatum() As Date Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.AbfertigungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abfertigungsdatum in Tabelle spTrdinSchreibenSelectInvoicePKe"& _ "y ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.AbfertigungsdatumColumn) = value End Set End Property _ Public Property BelegartenNr() As Short Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.BelegartenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BelegartenNr in Tabelle spTrdinSchreibenSelectInvoicePKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.BelegartenNrColumn) = value End Set End Property _ Public Property KundenNrZentrale() As Integer Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.KundenNrZentraleColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KundenNrZentrale in Tabelle spTrdinSchreibenSelectInvoicePKey"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.KundenNrZentraleColumn) = value End Set End Property _ Public Property RechnungsKundenNr() As Integer Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsKundenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsKundenNr in Tabelle spTrdinSchreibenSelectInvoicePKe"& _ "y ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsKundenNrColumn) = value End Set End Property _ Public Property RechnungsLandKz() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsLandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsLandKz in Tabelle spTrdinSchreibenSelectInvoicePKey "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsLandKzColumn) = value End Set End Property _ Public Property RechnungsUstIdKz() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsUstIdKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdKz in Tabelle spTrdinSchreibenSelectInvoicePKey"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsUstIdKzColumn) = value End Set End Property _ Public Property RechnungsUstIdNr() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsUstIdNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsUstIdNr in Tabelle spTrdinSchreibenSelectInvoicePKey"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsUstIdNrColumn) = value End Set End Property _ Public Property Lastschrift() As Boolean Get Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.LastschriftColumn),Boolean) End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.LastschriftColumn) = value End Set End Property _ Public Property Steuerschlüssel() As Short Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerschlüsselColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuerschlüssel in Tabelle spTrdinSchreibenSelectInvoicePKey "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerschlüsselColumn) = value End Set End Property _ Public Property _Steuersatz__() As Single Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey._Steuersatz__Column),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Steuersatz % in Tabelle spTrdinSchreibenSelectInvoicePKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey._Steuersatz__Column) = value End Set End Property _ Public Property WährungLokal() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.WährungLokalColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungLokal in Tabelle spTrdinSchreibenSelectInvoicePKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.WährungLokalColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerpflichtigerBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragLokal in Tabelle spTrdinSchreibenSelec"& _ "tInvoicePKey ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerpflichtigerBetragLokalColumn) = value End Set End Property _ Public Property SteuerfreierBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerfreierBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragLokal in Tabelle spTrdinSchreibenSelectInvo"& _ "icePKey ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerfreierBetragLokalColumn) = value End Set End Property _ Public Property SteuerbetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerbetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerbetragLokal in Tabelle spTrdinSchreibenSelectInvoicePKe"& _ "y ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerbetragLokalColumn) = value End Set End Property _ Public Property RechnungsbetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsbetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsbetragLokal in Tabelle spTrdinSchreibenSelectInvoice"& _ "PKey ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsbetragLokalColumn) = value End Set End Property _ Public Property WährungFremd() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.WährungFremdColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WährungFremd in Tabelle spTrdinSchreibenSelectInvoicePKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.WährungFremdColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerpflichtigerBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragFremd in Tabelle spTrdinSchreibenSelec"& _ "tInvoicePKey ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerpflichtigerBetragFremdColumn) = value End Set End Property _ Public Property SteuerfreierBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerfreierBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragFremd in Tabelle spTrdinSchreibenSelectInvo"& _ "icePKey ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerfreierBetragFremdColumn) = value End Set End Property _ Public Property SteuerbetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerbetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerbetragFremd in Tabelle spTrdinSchreibenSelectInvoicePKe"& _ "y ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerbetragFremdColumn) = value End Set End Property _ Public Property RechnungsbetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsbetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungsbetragFremd in Tabelle spTrdinSchreibenSelectInvoice"& _ "PKey ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsbetragFremdColumn) = value End Set End Property _ Public Property TrdinDateiname() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.TrdinDateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TrdinDateiname in Tabelle spTrdinSchreibenSelectInvoicePKey i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.TrdinDateinameColumn) = value End Set End Property _ Public Property Abgleich_op_debitor() As Boolean Get Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.Abgleich_op_debitorColumn),Boolean) End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.Abgleich_op_debitorColumn) = value End Set End Property _ Public Property Nettozahlungsziel() As Short Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.NettozahlungszielColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettozahlungsziel in Tabelle spTrdinSchreibenSelectInvoicePKe"& _ "y ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.NettozahlungszielColumn) = value End Set End Property _ Public Property Firma_ID() As Short Get Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.Firma_IDColumn),Short) End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.Firma_IDColumn) = value End Set End Property _ Public Property UStVAn_ID() As Integer Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.UStVAn_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ID in Tabelle spTrdinSchreibenSelectInvoicePKey ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.UStVAn_IDColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spTrdinSchreibenSelectInvoicePKey ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.upsize_tsColumn) = value End Set End Property _ Public Property AmbDateiname() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectInvoicePKey.AmbDateinameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AmbDateiname in Tabelle spTrdinSchreibenSelectInvoicePKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectInvoicePKey.AmbDateinameColumn) = value End Set End Property _ Public Function IsSpeditionsbuchNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.SpeditionsbuchColumn) End Function _ Public Sub SetSpeditionsbuchNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SpeditionsbuchColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUnterNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.UnterNrColumn) End Function _ Public Sub SetUnterNrNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.UnterNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsdatumNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.AbfertigungsdatumColumn) End Function _ Public Sub SetAbfertigungsdatumNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.AbfertigungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegartenNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.BelegartenNrColumn) End Function _ Public Sub SetBelegartenNrNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.BelegartenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKundenNrZentraleNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.KundenNrZentraleColumn) End Function _ Public Sub SetKundenNrZentraleNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.KundenNrZentraleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsKundenNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsKundenNrColumn) End Function _ Public Sub SetRechnungsKundenNrNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsKundenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsLandKzNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsLandKzColumn) End Function _ Public Sub SetRechnungsLandKzNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsLandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdKzNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsUstIdKzColumn) End Function _ Public Sub SetRechnungsUstIdKzNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsUstIdKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsUstIdNrNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsUstIdNrColumn) End Function _ Public Sub SetRechnungsUstIdNrNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsUstIdNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerschlüsselNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerschlüsselColumn) End Function _ Public Sub SetSteuerschlüsselNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerschlüsselColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Steuersatz__Null() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey._Steuersatz__Column) End Function _ Public Sub Set_Steuersatz__Null() Me(Me.tablespTrdinSchreibenSelectInvoicePKey._Steuersatz__Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.WährungLokalColumn) End Function _ Public Sub SetWährungLokalNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.WährungLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerpflichtigerBetragLokalColumn) End Function _ Public Sub SetSteuerpflichtigerBetragLokalNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerpflichtigerBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerfreierBetragLokalColumn) End Function _ Public Sub SetSteuerfreierBetragLokalNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerfreierBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerbetragLokalColumn) End Function _ Public Sub SetSteuerbetragLokalNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerbetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsbetragLokalColumn) End Function _ Public Sub SetRechnungsbetragLokalNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsbetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.WährungFremdColumn) End Function _ Public Sub SetWährungFremdNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.WährungFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerpflichtigerBetragFremdColumn) End Function _ Public Sub SetSteuerpflichtigerBetragFremdNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerpflichtigerBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerfreierBetragFremdColumn) End Function _ Public Sub SetSteuerfreierBetragFremdNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerfreierBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerbetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerbetragFremdColumn) End Function _ Public Sub SetSteuerbetragFremdNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.SteuerbetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsbetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsbetragFremdColumn) End Function _ Public Sub SetRechnungsbetragFremdNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.RechnungsbetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTrdinDateinameNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.TrdinDateinameColumn) End Function _ Public Sub SetTrdinDateinameNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.TrdinDateinameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNettozahlungszielNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.NettozahlungszielColumn) End Function _ Public Sub SetNettozahlungszielNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.NettozahlungszielColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IDNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.UStVAn_IDColumn) End Function _ Public Sub SetUStVAn_IDNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.UStVAn_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.upsize_tsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAmbDateinameNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectInvoicePKey.AmbDateinameColumn) End Function _ Public Sub SetAmbDateinameNull() Me(Me.tablespTrdinSchreibenSelectInvoicePKey.AmbDateinameColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spTrdinSchreibenSelectProductFKeyInvoiceRow Inherits Global.System.Data.DataRow Private tablespTrdinSchreibenSelectProductFKeyInvoice As spTrdinSchreibenSelectProductFKeyInvoiceDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespTrdinSchreibenSelectProductFKeyInvoice = CType(Me.Table,spTrdinSchreibenSelectProductFKeyInvoiceDataTable) End Sub _ Public Property Rechnungsdatum() As Date Get Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.RechnungsdatumColumn),Date) End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.RechnungsnummerColumn),Integer) End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.RechnungsnummerColumn) = value End Set End Property _ Public Property Leistungsnummer() As Short Get Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.LeistungsnummerColumn),Short) End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.LeistungsnummerColumn) = value End Set End Property _ Public Property Leistungsbezeichnung() As String Get Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.LeistungsbezeichnungColumn),String) End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.LeistungsbezeichnungColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerpflichtigColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerpflichtigerBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragLokal in Tabelle spTrdinSchreibenSelec"& _ "tProductFKeyInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerpflichtigerBetragLokalColumn) = value End Set End Property _ Public Property SteuerfreierBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerfreierBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragLokal in Tabelle spTrdinSchreibenSelectProd"& _ "uctFKeyInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerfreierBetragLokalColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerpflichtigerBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragFremd in Tabelle spTrdinSchreibenSelec"& _ "tProductFKeyInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerpflichtigerBetragFremdColumn) = value End Set End Property _ Public Property SteuerfreierBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerfreierBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragFremd in Tabelle spTrdinSchreibenSelectProd"& _ "uctFKeyInvoice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerfreierBetragFremdColumn) = value End Set End Property _ Public Property Belegdaten() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.BelegdatenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdaten in Tabelle spTrdinSchreibenSelectProductFKeyInvoic"& _ "e ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.BelegdatenColumn) = value End Set End Property _ Public Property Sachkonto() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SachkontoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachkonto in Tabelle spTrdinSchreibenSelectProductFKeyInvoice"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SachkontoColumn) = value End Set End Property _ Public Property Buchungstext() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.BuchungstextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungstext in Tabelle spTrdinSchreibenSelectProductFKeyInvo"& _ "ice ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.BuchungstextColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spTrdinSchreibenSelectProductFKeyInvoice"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.upsize_tsColumn) = value End Set End Property _ Public Function IsSteuerpflichtigerBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerpflichtigerBetragLokalColumn) End Function _ Public Sub SetSteuerpflichtigerBetragLokalNull() Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerpflichtigerBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerfreierBetragLokalColumn) End Function _ Public Sub SetSteuerfreierBetragLokalNull() Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerfreierBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerpflichtigerBetragFremdColumn) End Function _ Public Sub SetSteuerpflichtigerBetragFremdNull() Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerpflichtigerBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerfreierBetragFremdColumn) End Function _ Public Sub SetSteuerfreierBetragFremdNull() Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SteuerfreierBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatenNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.BelegdatenColumn) End Function _ Public Sub SetBelegdatenNull() Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.BelegdatenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SachkontoColumn) End Function _ Public Sub SetSachkontoNull() Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.SachkontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungstextNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.BuchungstextColumn) End Function _ Public Sub SetBuchungstextNull() Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.BuchungstextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespTrdinSchreibenSelectProductFKeyInvoice.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spTrdinSchreibenSelectProductPKeyRow Inherits Global.System.Data.DataRow Private tablespTrdinSchreibenSelectProductPKey As spTrdinSchreibenSelectProductPKeyDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespTrdinSchreibenSelectProductPKey = CType(Me.Table,spTrdinSchreibenSelectProductPKeyDataTable) End Sub _ Public Property Rechnungsdatum() As Date Get Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.RechnungsdatumColumn),Date) End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.RechnungsnummerColumn),Integer) End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.RechnungsnummerColumn) = value End Set End Property _ Public Property Leistungsnummer() As Short Get Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.LeistungsnummerColumn),Short) End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.LeistungsnummerColumn) = value End Set End Property _ Public Property Leistungsbezeichnung() As String Get Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.LeistungsbezeichnungColumn),String) End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.LeistungsbezeichnungColumn) = value End Set End Property _ Public Property Steuerpflichtig() As Boolean Get Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerpflichtigColumn),Boolean) End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerpflichtigColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerpflichtigerBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragLokal in Tabelle spTrdinSchreibenSelec"& _ "tProductPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerpflichtigerBetragLokalColumn) = value End Set End Property _ Public Property SteuerfreierBetragLokal() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerfreierBetragLokalColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragLokal in Tabelle spTrdinSchreibenSelectProd"& _ "uctPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerfreierBetragLokalColumn) = value End Set End Property _ Public Property SteuerpflichtigerBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerpflichtigerBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerpflichtigerBetragFremd in Tabelle spTrdinSchreibenSelec"& _ "tProductPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerpflichtigerBetragFremdColumn) = value End Set End Property _ Public Property SteuerfreierBetragFremd() As Decimal Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerfreierBetragFremdColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SteuerfreierBetragFremd in Tabelle spTrdinSchreibenSelectProd"& _ "uctPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerfreierBetragFremdColumn) = value End Set End Property _ Public Property Belegdaten() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.BelegdatenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdaten in Tabelle spTrdinSchreibenSelectProductPKey ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.BelegdatenColumn) = value End Set End Property _ Public Property Sachkonto() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.SachkontoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sachkonto in Tabelle spTrdinSchreibenSelectProductPKey ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.SachkontoColumn) = value End Set End Property _ Public Property Buchungstext() As String Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.BuchungstextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Buchungstext in Tabelle spTrdinSchreibenSelectProductPKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.BuchungstextColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespTrdinSchreibenSelectProductPKey.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spTrdinSchreibenSelectProductPKey ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tablespTrdinSchreibenSelectProductPKey.upsize_tsColumn) = value End Set End Property _ Public Function IsSteuerpflichtigerBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductPKey.SteuerpflichtigerBetragLokalColumn) End Function _ Public Sub SetSteuerpflichtigerBetragLokalNull() Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerpflichtigerBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragLokalNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductPKey.SteuerfreierBetragLokalColumn) End Function _ Public Sub SetSteuerfreierBetragLokalNull() Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerfreierBetragLokalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerpflichtigerBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductPKey.SteuerpflichtigerBetragFremdColumn) End Function _ Public Sub SetSteuerpflichtigerBetragFremdNull() Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerpflichtigerBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSteuerfreierBetragFremdNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductPKey.SteuerfreierBetragFremdColumn) End Function _ Public Sub SetSteuerfreierBetragFremdNull() Me(Me.tablespTrdinSchreibenSelectProductPKey.SteuerfreierBetragFremdColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegdatenNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductPKey.BelegdatenColumn) End Function _ Public Sub SetBelegdatenNull() Me(Me.tablespTrdinSchreibenSelectProductPKey.BelegdatenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSachkontoNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductPKey.SachkontoColumn) End Function _ Public Sub SetSachkontoNull() Me(Me.tablespTrdinSchreibenSelectProductPKey.SachkontoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBuchungstextNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductPKey.BuchungstextColumn) End Function _ Public Sub SetBuchungstextNull() Me(Me.tablespTrdinSchreibenSelectProductPKey.BuchungstextColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespTrdinSchreibenSelectProductPKey.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespTrdinSchreibenSelectProductPKey.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spUStVAntragLesenParameterPKeyRow Inherits Global.System.Data.DataRow Private tablespUStVAntragLesenParameterPKey As spUStVAntragLesenParameterPKeyDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespUStVAntragLesenParameterPKey = CType(Me.Table,spUStVAntragLesenParameterPKeyDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVAn_KuNr() As Integer Get Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_KuNrColumn),Integer) End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_KuNrColumn) = value End Set End Property _ Public Property UStVAn_Name() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Name in Tabelle spUStVAntragLesenParameterPKey ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_NameColumn) = value End Set End Property _ Public Property UStVAn_Straße() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StraßeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Straße in Tabelle spUStVAntragLesenParameterPKey ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StraßeColumn) = value End Set End Property _ Public Property UStVAn_LandKz() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_LandKzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_LandKz in Tabelle spUStVAntragLesenParameterPKey ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_LandKzColumn) = value End Set End Property _ Public Property UStVAn_PLZ() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_PLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_PLZ in Tabelle spUStVAntragLesenParameterPKey ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_PLZColumn) = value End Set End Property _ Public Property UStVAn_Ort() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_OrtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ort in Tabelle spUStVAntragLesenParameterPKey ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_OrtColumn) = value End Set End Property _ Public Property UStVAn_Land() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_LandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Land in Tabelle spUStVAntragLesenParameterPKey ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_LandColumn) = value End Set End Property _ Public Property UStVAn_Gewerbe() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_GewerbeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Gewerbe in Tabelle spUStVAntragLesenParameterPKey ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_GewerbeColumn) = value End Set End Property _ Public Property UStVAn_Steuernummer() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_SteuernummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Steuernummer in Tabelle spUStVAntragLesenParameterPKey"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_SteuernummerColumn) = value End Set End Property _ Public Property UStVAn_ReDatVon() As Date Get Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ReDatVonColumn),Date) End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ReDatVonColumn) = value End Set End Property _ Public Property UStVAn_ReDatBis() As Date Get Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ReDatBisColumn),Date) End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ReDatBisColumn) = value End Set End Property _ Public Property UStVAn_Bankverbindung() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BankverbindungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Bankverbindung in Tabelle spUStVAntragLesenParameterPK"& _ "ey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BankverbindungColumn) = value End Set End Property _ Public Property UStVAn_BLZ() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BLZColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BLZ in Tabelle spUStVAntragLesenParameterPKey ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BLZColumn) = value End Set End Property _ Public Property UStVAn_KTO() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_KTOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_KTO in Tabelle spUStVAntragLesenParameterPKey ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_KTOColumn) = value End Set End Property _ Public Property UStVAn_Kontoinhaber() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_KontoinhaberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Kontoinhaber in Tabelle spUStVAntragLesenParameterPKey"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_KontoinhaberColumn) = value End Set End Property _ Public Property UStVAn_BIC() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BICColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BIC in Tabelle spUStVAntragLesenParameterPKey ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BICColumn) = value End Set End Property _ Public Property UStVAn_IBAN() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_IBANColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_IBAN in Tabelle spUStVAntragLesenParameterPKey ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_IBANColumn) = value End Set End Property _ Public Property UStVAn_Anlagen() As Short Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AnlagenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Anlagen in Tabelle spUStVAntragLesenParameterPKey ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AnlagenColumn) = value End Set End Property _ Public Property UStVAn_Rechnungen() As Short Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RechnungenColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Rechnungen in Tabelle spUStVAntragLesenParameterPKey i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RechnungenColumn) = value End Set End Property _ Public Property UStVAn_Einfuhrdokumente() As Short Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_EinfuhrdokumenteColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Einfuhrdokumente in Tabelle spUStVAntragLesenParameter"& _ "PKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_EinfuhrdokumenteColumn) = value End Set End Property _ Public Property UStVAn_Erklärung_9_a() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_Erklärung_9_aColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Erklärung_9_a in Tabelle spUStVAntragLesenParameterPKe"& _ "y ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_Erklärung_9_aColumn) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_1() As Boolean Get Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_Erklärung_9_b_1Column),Boolean) End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_Erklärung_9_b_1Column) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_2() As Boolean Get Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_Erklärung_9_b_2Column),Boolean) End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_Erklärung_9_b_2Column) = value End Set End Property _ Public Property UStVAn_Erklärung_9_b_3() As Boolean Get Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_Erklärung_9_b_3Column),Boolean) End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_Erklärung_9_b_3Column) = value End Set End Property _ Public Property UStVAn_Ausstellungsort() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AusstellungsortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ausstellungsort in Tabelle spUStVAntragLesenParameterP"& _ "Key ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AusstellungsortColumn) = value End Set End Property _ Public Property UStVAn_Ausstellungsdatum() As Date Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AusstellungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Ausstellungsdatum in Tabelle spUStVAntragLesenParamete"& _ "rPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AusstellungsdatumColumn) = value End Set End Property _ Public Property UStVAn_Unterschrift() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_UnterschriftColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Unterschrift in Tabelle spUStVAntragLesenParameterPKey"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_UnterschriftColumn) = value End Set End Property _ Public Property UStVAn_LandNr() As Short Get Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_LandNrColumn),Short) End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_LandNrColumn) = value End Set End Property _ Public Property UStVAn_Beleganzahl() As Short Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BeleganzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Beleganzahl in Tabelle spUStVAntragLesenParameterPKey "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BeleganzahlColumn) = value End Set End Property _ Public Property UStVAn_BeleganzahlRetourniert() As Short Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BeleganzahlRetourniertColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BeleganzahlRetourniert in Tabelle spUStVAntragLesenPar"& _ "ameterPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BeleganzahlRetourniertColumn) = value End Set End Property _ Public Property UStVAn_Retournierungsgrund() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RetournierungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Retournierungsgrund in Tabelle spUStVAntragLesenParame"& _ "terPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RetournierungsgrundColumn) = value End Set End Property _ Public Property UStVAn_AntragEingereichtAm() As Date Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AntragEingereichtAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_AntragEingereichtAm in Tabelle spUStVAntragLesenParame"& _ "terPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AntragEingereichtAmColumn) = value End Set End Property _ Public Property UStVAn_BelegeWeitergeleitetAm() As Date Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BelegeWeitergeleitetAmColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BelegeWeitergeleitetAm in Tabelle spUStVAntragLesenPar"& _ "ameterPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BelegeWeitergeleitetAmColumn) = value End Set End Property _ Public Property UStVAn_Vertreter() As Integer Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VertreterColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Vertreter in Tabelle spUStVAntragLesenParameterPKey is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VertreterColumn) = value End Set End Property _ Public Property UStVAn_BezugsNr() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BezugsNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_BezugsNr in Tabelle spUStVAntragLesenParameterPKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BezugsNrColumn) = value End Set End Property _ Public Property UStVAn_3470() As Decimal Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_3470Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_3470 in Tabelle spUStVAntragLesenParameterPKey ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_3470Column) = value End Set End Property _ Public Property UStVAn_VZBetrag() As Decimal Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VZBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZBetrag in Tabelle spUStVAntragLesenParameterPKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VZBetragColumn) = value End Set End Property _ Public Property UStVAn_VZDatum() As Date Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VZDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_VZDatum in Tabelle spUStVAntragLesenParameterPKey ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VZDatumColumn) = value End Set End Property _ Public Property UStVAn_RZBetragVZ() As Decimal Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RZBetragVZColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_RZBetragVZ in Tabelle spUStVAntragLesenParameterPKey i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RZBetragVZColumn) = value End Set End Property _ Public Property UStVAn_RZDatumVZ() As Date Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RZDatumVZColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_RZDatumVZ in Tabelle spUStVAntragLesenParameterPKey is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RZDatumVZColumn) = value End Set End Property _ Public Property FilialenNr() As Short Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.FilialenNrColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FilialenNr in Tabelle spUStVAntragLesenParameterPKey ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.FilialenNrColumn) = value End Set End Property _ Public Property AbfertigungsNr() As Integer Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.AbfertigungsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AbfertigungsNr in Tabelle spUStVAntragLesenParameterPKey ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.AbfertigungsNrColumn) = value End Set End Property _ Public Property UStVAn_Währungscode() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Währungscode in Tabelle spUStVAntragLesenParameterPKey"& _ " ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_WährungscodeColumn) = value End Set End Property _ Public Property UStVAn_USteuerbetrag() As Decimal Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_USteuerbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_USteuerbetrag in Tabelle spUStVAntragLesenParameterPKe"& _ "y ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_USteuerbetragColumn) = value End Set End Property _ Public Property UStVAn_Erstattungsbetrag() As Decimal Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ErstattungsbetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Erstattungsbetrag in Tabelle spUStVAntragLesenParamete"& _ "rPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ErstattungsbetragColumn) = value End Set End Property _ Public Property UStVAn_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_USteuerbetragEUR in Tabelle spUStVAntragLesenParameter"& _ "PKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVAn_ErstattungsbetragEUR() As Decimal Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ErstattungsbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_ErstattungsbetragEUR in Tabelle spUStVAntragLesenParam"& _ "eterPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ErstattungsbetragEURColumn) = value End Set End Property _ Public Property UStVAn_Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Sachbearbeiter in Tabelle spUStVAntragLesenParameterPK"& _ "ey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVAn_Status() As Integer Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StatusColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Status in Tabelle spUStVAntragLesenParameterPKey ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StatusColumn) = value End Set End Property _ Public Property UStVAn_StatusText() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StatusTextColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_StatusText in Tabelle spUStVAntragLesenParameterPKey i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StatusTextColumn) = value End Set End Property _ Public Property UStVAn_AntragArt() As String Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AntragArtColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_AntragArt in Tabelle spUStVAntragLesenParameterPKey is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AntragArtColumn) = value End Set End Property _ Public Property UStVAn_Zeitstempel() As Date Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVAn_Zeitstempel in Tabelle spUStVAntragLesenParameterPKey "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespUStVAntragLesenParameterPKey.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spUStVAntragLesenParameterPKey ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tablespUStVAntragLesenParameterPKey.upsize_tsColumn) = value End Set End Property _ Public Function IsUStVAn_NameNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_NameColumn) End Function _ Public Sub SetUStVAn_NameNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_StraßeNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StraßeColumn) End Function _ Public Sub SetUStVAn_StraßeNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StraßeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_LandKzNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_LandKzColumn) End Function _ Public Sub SetUStVAn_LandKzNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_LandKzColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_PLZNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_PLZColumn) End Function _ Public Sub SetUStVAn_PLZNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_PLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_OrtNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_OrtColumn) End Function _ Public Sub SetUStVAn_OrtNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_OrtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_LandNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_LandColumn) End Function _ Public Sub SetUStVAn_LandNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_LandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_GewerbeNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_GewerbeColumn) End Function _ Public Sub SetUStVAn_GewerbeNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_GewerbeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_SteuernummerNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_SteuernummerColumn) End Function _ Public Sub SetUStVAn_SteuernummerNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_SteuernummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BankverbindungNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BankverbindungColumn) End Function _ Public Sub SetUStVAn_BankverbindungNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BankverbindungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BLZNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BLZColumn) End Function _ Public Sub SetUStVAn_BLZNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BLZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_KTONull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_KTOColumn) End Function _ Public Sub SetUStVAn_KTONull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_KTOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_KontoinhaberNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_KontoinhaberColumn) End Function _ Public Sub SetUStVAn_KontoinhaberNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_KontoinhaberColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BICNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BICColumn) End Function _ Public Sub SetUStVAn_BICNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BICColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_IBANNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_IBANColumn) End Function _ Public Sub SetUStVAn_IBANNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_IBANColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AnlagenNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AnlagenColumn) End Function _ Public Sub SetUStVAn_AnlagenNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AnlagenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RechnungenNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RechnungenColumn) End Function _ Public Sub SetUStVAn_RechnungenNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RechnungenColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_EinfuhrdokumenteNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_EinfuhrdokumenteColumn) End Function _ Public Sub SetUStVAn_EinfuhrdokumenteNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_EinfuhrdokumenteColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_Erklärung_9_aNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_Erklärung_9_aColumn) End Function _ Public Sub SetUStVAn_Erklärung_9_aNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_Erklärung_9_aColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AusstellungsortNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AusstellungsortColumn) End Function _ Public Sub SetUStVAn_AusstellungsortNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AusstellungsortColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AusstellungsdatumNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AusstellungsdatumColumn) End Function _ Public Sub SetUStVAn_AusstellungsdatumNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AusstellungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_UnterschriftNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_UnterschriftColumn) End Function _ Public Sub SetUStVAn_UnterschriftNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_UnterschriftColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BeleganzahlNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BeleganzahlColumn) End Function _ Public Sub SetUStVAn_BeleganzahlNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BeleganzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BeleganzahlRetourniertNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BeleganzahlRetourniertColumn) End Function _ Public Sub SetUStVAn_BeleganzahlRetourniertNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BeleganzahlRetourniertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RetournierungsgrundNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RetournierungsgrundColumn) End Function _ Public Sub SetUStVAn_RetournierungsgrundNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RetournierungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AntragEingereichtAmNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AntragEingereichtAmColumn) End Function _ Public Sub SetUStVAn_AntragEingereichtAmNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AntragEingereichtAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BelegeWeitergeleitetAmNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BelegeWeitergeleitetAmColumn) End Function _ Public Sub SetUStVAn_BelegeWeitergeleitetAmNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BelegeWeitergeleitetAmColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VertreterNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VertreterColumn) End Function _ Public Sub SetUStVAn_VertreterNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VertreterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_BezugsNrNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BezugsNrColumn) End Function _ Public Sub SetUStVAn_BezugsNrNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_BezugsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_3470Null() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_3470Column) End Function _ Public Sub SetUStVAn_3470Null() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_3470Column) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZBetragNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VZBetragColumn) End Function _ Public Sub SetUStVAn_VZBetragNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VZBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_VZDatumNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VZDatumColumn) End Function _ Public Sub SetUStVAn_VZDatumNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_VZDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RZBetragVZNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RZBetragVZColumn) End Function _ Public Sub SetUStVAn_RZBetragVZNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RZBetragVZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_RZDatumVZNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RZDatumVZColumn) End Function _ Public Sub SetUStVAn_RZDatumVZNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_RZDatumVZColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFilialenNrNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.FilialenNrColumn) End Function _ Public Sub SetFilialenNrNull() Me(Me.tablespUStVAntragLesenParameterPKey.FilialenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbfertigungsNrNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.AbfertigungsNrColumn) End Function _ Public Sub SetAbfertigungsNrNull() Me(Me.tablespUStVAntragLesenParameterPKey.AbfertigungsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_WährungscodeNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_WährungscodeColumn) End Function _ Public Sub SetUStVAn_WährungscodeNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_WährungscodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_USteuerbetragNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_USteuerbetragColumn) End Function _ Public Sub SetUStVAn_USteuerbetragNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_USteuerbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ErstattungsbetragNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ErstattungsbetragColumn) End Function _ Public Sub SetUStVAn_ErstattungsbetragNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ErstattungsbetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_USteuerbetragEURColumn) End Function _ Public Sub SetUStVAn_USteuerbetragEURNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ErstattungsbetragEURNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ErstattungsbetragEURColumn) End Function _ Public Sub SetUStVAn_ErstattungsbetragEURNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ErstattungsbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_SachbearbeiterColumn) End Function _ Public Sub SetUStVAn_SachbearbeiterNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_StatusNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StatusColumn) End Function _ Public Sub SetUStVAn_StatusNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_StatusTextNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StatusTextColumn) End Function _ Public Sub SetUStVAn_StatusTextNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_StatusTextColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_AntragArtNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AntragArtColumn) End Function _ Public Sub SetUStVAn_AntragArtNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_AntragArtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVAn_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ZeitstempelColumn) End Function _ Public Sub SetUStVAn_ZeitstempelNull() Me(Me.tablespUStVAntragLesenParameterPKey.UStVAn_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespUStVAntragLesenParameterPKey.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespUStVAntragLesenParameterPKey.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spUStVBelegeingangLesenParameterPKeyRow Inherits Global.System.Data.DataRow Private tablespUStVBelegeingangLesenParameterPKey As spUStVBelegeingangLesenParameterPKeyDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespUStVBelegeingangLesenParameterPKey = CType(Me.Table,spUStVBelegeingangLesenParameterPKeyDataTable) End Sub _ Public Property UStVBe_KuNr() As Integer Get Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_KuNrColumn),Integer) End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_KuNrColumn) = value End Set End Property _ Public Property UStVBe_EinDat() As Date Get Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_EinDatColumn),Date) End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_EinDatColumn) = value End Set End Property _ Public Property UStVBe_EinNr() As Integer Get Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_EinNrColumn),Integer) End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_EinNrColumn) = value End Set End Property _ Public Property UStVBe_UStBetrag() As Decimal Get Try Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_UStBetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_UStBetrag in Tabelle spUStVBelegeingangLesenParameterP"& _ "Key ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_UStBetragColumn) = value End Set End Property _ Public Property UStVBe_Beleganzahl() As Short Get Try Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_BeleganzahlColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Beleganzahl in Tabelle spUStVBelegeingangLesenParamete"& _ "rPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_BeleganzahlColumn) = value End Set End Property _ Public Property UStVBe_Retourniert() As Short Get Try Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_RetourniertColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Retourniert in Tabelle spUStVBelegeingangLesenParamete"& _ "rPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_RetourniertColumn) = value End Set End Property _ Public Property UStVBe_Bemerkung() As String Get Try Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Bemerkung in Tabelle spUStVBelegeingangLesenParameterP"& _ "Key ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_BemerkungColumn) = value End Set End Property _ Public Property UStVBe_WeiterDat() As Date Get Try Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_WeiterDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_WeiterDat in Tabelle spUStVBelegeingangLesenParameterP"& _ "Key ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_WeiterDatColumn) = value End Set End Property _ Public Property UStVBe_Empfänger() As Integer Get Try Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_EmpfängerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Empfänger in Tabelle spUStVBelegeingangLesenParameterP"& _ "Key ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_EmpfängerColumn) = value End Set End Property _ Public Property UStVBe_Zeitstempel() As Date Get Try Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVBe_Zeitstempel in Tabelle spUStVBelegeingangLesenParamete"& _ "rPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespUStVBelegeingangLesenParameterPKey.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spUStVBelegeingangLesenParameterPKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespUStVBelegeingangLesenParameterPKey.upsize_tsColumn) = value End Set End Property _ Public Function IsUStVBe_UStBetragNull() As Boolean Return Me.IsNull(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_UStBetragColumn) End Function _ Public Sub SetUStVBe_UStBetragNull() Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_UStBetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_BeleganzahlNull() As Boolean Return Me.IsNull(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_BeleganzahlColumn) End Function _ Public Sub SetUStVBe_BeleganzahlNull() Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_BeleganzahlColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_RetourniertNull() As Boolean Return Me.IsNull(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_RetourniertColumn) End Function _ Public Sub SetUStVBe_RetourniertNull() Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_RetourniertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_BemerkungNull() As Boolean Return Me.IsNull(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_BemerkungColumn) End Function _ Public Sub SetUStVBe_BemerkungNull() Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_WeiterDatNull() As Boolean Return Me.IsNull(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_WeiterDatColumn) End Function _ Public Sub SetUStVBe_WeiterDatNull() Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_WeiterDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_EmpfängerNull() As Boolean Return Me.IsNull(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_EmpfängerColumn) End Function _ Public Sub SetUStVBe_EmpfängerNull() Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_EmpfängerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVBe_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_ZeitstempelColumn) End Function _ Public Sub SetUStVBe_ZeitstempelNull() Me(Me.tablespUStVBelegeingangLesenParameterPKey.UStVBe_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespUStVBelegeingangLesenParameterPKey.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespUStVBelegeingangLesenParameterPKey.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spUStVErstattungLesenParameterPKeyRow Inherits Global.System.Data.DataRow Private tablespUStVErstattungLesenParameterPKey As spUStVErstattungLesenParameterPKeyDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespUStVErstattungLesenParameterPKey = CType(Me.Table,spUStVErstattungLesenParameterPKeyDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVEr_ID() As Short Get Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_IDColumn),Short) End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_IDColumn) = value End Set End Property _ Public Property UStVEr_USteuerbetrag() As Decimal Get Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_USteuerbetragColumn),Decimal) End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_USteuerbetragColumn) = value End Set End Property _ Public Property Belegdatum() As Date Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.BelegdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdatum in Tabelle spUStVErstattungLesenParameterPKey ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.BelegdatumColumn) = value End Set End Property _ Public Property Belegnummer() As String Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.BelegnummerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegnummer in Tabelle spUStVErstattungLesenParameterPKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.BelegnummerColumn) = value End Set End Property _ Public Property GutschriftsDatum() As Date Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.GutschriftsDatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GutschriftsDatum in Tabelle spUStVErstattungLesenParameterPKe"& _ "y ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.GutschriftsDatumColumn) = value End Set End Property _ Public Property GutschriftsNr() As Integer Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.GutschriftsNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GutschriftsNr in Tabelle spUStVErstattungLesenParameterPKey i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.GutschriftsNrColumn) = value End Set End Property _ Public Property Berufungsdatum() As Date Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.BerufungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungsdatum in Tabelle spUStVErstattungLesenParameterPKey "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.BerufungsdatumColumn) = value End Set End Property _ Public Property Berufungshöhe() As Decimal Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.BerufungshöheColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungshöhe in Tabelle spUStVErstattungLesenParameterPKey i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.BerufungshöheColumn) = value End Set End Property _ Public Property Berufungsgrund() As String Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.BerufungsgrundColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufungsgrund in Tabelle spUStVErstattungLesenParameterPKey "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.BerufungsgrundColumn) = value End Set End Property _ Public Property Bemerkung() As String Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.BemerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle spUStVErstattungLesenParameterPKey ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.BemerkungColumn) = value End Set End Property _ Public Property UStVEr_Umrechnungskurs() As Double Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Umrechnungskurs in Tabelle spUStVErstattungLesenParame"& _ "terPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_UmrechnungskursColumn) = value End Set End Property _ Public Property UStVEr_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_USteuerbetragEUR in Tabelle spUStVErstattungLesenParam"& _ "eterPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVEr_Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Sachbearbeiter in Tabelle spUStVErstattungLesenParamet"& _ "erPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVEr_Zeitstempel() As Date Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVEr_Zeitstempel in Tabelle spUStVErstattungLesenParameterP"& _ "Key ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespUStVErstattungLesenParameterPKey.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spUStVErstattungLesenParameterPKey ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespUStVErstattungLesenParameterPKey.upsize_tsColumn) = value End Set End Property _ Public Function IsBelegdatumNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.BelegdatumColumn) End Function _ Public Sub SetBelegdatumNull() Me(Me.tablespUStVErstattungLesenParameterPKey.BelegdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBelegnummerNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.BelegnummerColumn) End Function _ Public Sub SetBelegnummerNull() Me(Me.tablespUStVErstattungLesenParameterPKey.BelegnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGutschriftsDatumNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.GutschriftsDatumColumn) End Function _ Public Sub SetGutschriftsDatumNull() Me(Me.tablespUStVErstattungLesenParameterPKey.GutschriftsDatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGutschriftsNrNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.GutschriftsNrColumn) End Function _ Public Sub SetGutschriftsNrNull() Me(Me.tablespUStVErstattungLesenParameterPKey.GutschriftsNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungsdatumNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.BerufungsdatumColumn) End Function _ Public Sub SetBerufungsdatumNull() Me(Me.tablespUStVErstattungLesenParameterPKey.BerufungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungshöheNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.BerufungshöheColumn) End Function _ Public Sub SetBerufungshöheNull() Me(Me.tablespUStVErstattungLesenParameterPKey.BerufungshöheColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBerufungsgrundNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.BerufungsgrundColumn) End Function _ Public Sub SetBerufungsgrundNull() Me(Me.tablespUStVErstattungLesenParameterPKey.BerufungsgrundColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBemerkungNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.BemerkungColumn) End Function _ Public Sub SetBemerkungNull() Me(Me.tablespUStVErstattungLesenParameterPKey.BemerkungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_UmrechnungskursNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_UmrechnungskursColumn) End Function _ Public Sub SetUStVEr_UmrechnungskursNull() Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_USteuerbetragEURColumn) End Function _ Public Sub SetUStVEr_USteuerbetragEURNull() Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_SachbearbeiterColumn) End Function _ Public Sub SetUStVEr_SachbearbeiterNull() Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVEr_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_ZeitstempelColumn) End Function _ Public Sub SetUStVEr_ZeitstempelNull() Me(Me.tablespUStVErstattungLesenParameterPKey.UStVEr_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespUStVErstattungLesenParameterPKey.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespUStVErstattungLesenParameterPKey.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spUStVPositionenLesenParameterPKeyRow Inherits Global.System.Data.DataRow Private tablespUStVPositionenLesenParameterPKey As spUStVPositionenLesenParameterPKeyDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespUStVPositionenLesenParameterPKey = CType(Me.Table,spUStVPositionenLesenParameterPKeyDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVPo_ID() As Short Get Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_IDColumn),Short) End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_IDColumn) = value End Set End Property _ Public Property UStVPo_ReDat() As Date Get Try Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ReDatColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_ReDat in Tabelle spUStVPositionenLesenParameterPKey is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ReDatColumn) = value End Set End Property _ Public Property UStVPo_ReNr() As String Get Try Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ReNrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_ReNr in Tabelle spUStVPositionenLesenParameterPKey ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ReNrColumn) = value End Set End Property _ Public Property UStVPo_USteuerbetrag() As Decimal Get Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_USteuerbetragColumn),Decimal) End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_USteuerbetragColumn) = value End Set End Property _ Public Property UStVPo_Leistungsbezeichnung() As String Get Try Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_LeistungsbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Leistungsbezeichnung in Tabelle spUStVPositionenLesenP"& _ "arameterPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_LeistungsbezeichnungColumn) = value End Set End Property _ Public Property UStVPo_Leistender() As String Get Try Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_LeistenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Leistender in Tabelle spUStVPositionenLesenParameterPK"& _ "ey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_LeistenderColumn) = value End Set End Property _ Public Property UStVPo_Schnittstelle() As Boolean Get Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_SchnittstelleColumn),Boolean) End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_SchnittstelleColumn) = value End Set End Property _ Public Property UStVPo_SchnittstellenNr() As Short Get Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_SchnittstellenNrColumn),Short) End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_SchnittstellenNrColumn) = value End Set End Property _ Public Property UStVPo_Umrechnungskurs() As Double Get Try Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_UmrechnungskursColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Umrechnungskurs in Tabelle spUStVPositionenLesenParame"& _ "terPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_UmrechnungskursColumn) = value End Set End Property _ Public Property UStVPo_USteuerbetragEUR() As Decimal Get Try Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_USteuerbetragEURColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_USteuerbetragEUR in Tabelle spUStVPositionenLesenParam"& _ "eterPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_USteuerbetragEURColumn) = value End Set End Property _ Public Property UStVPo_Sachbearbeiter() As String Get Try Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_SachbearbeiterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Sachbearbeiter in Tabelle spUStVPositionenLesenParamet"& _ "erPKey ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_SachbearbeiterColumn) = value End Set End Property _ Public Property UStVPo_Zeitstempel() As Date Get Try Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ZeitstempelColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UStVPo_Zeitstempel in Tabelle spUStVPositionenLesenParameterP"& _ "Key ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ZeitstempelColumn) = value End Set End Property _ Public Property upsize_ts() As Byte() Get Try Return CType(Me(Me.tablespUStVPositionenLesenParameterPKey.upsize_tsColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte upsize_ts in Tabelle spUStVPositionenLesenParameterPKey ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespUStVPositionenLesenParameterPKey.upsize_tsColumn) = value End Set End Property _ Public Function IsUStVPo_ReDatNull() As Boolean Return Me.IsNull(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ReDatColumn) End Function _ Public Sub SetUStVPo_ReDatNull() Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ReDatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_ReNrNull() As Boolean Return Me.IsNull(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ReNrColumn) End Function _ Public Sub SetUStVPo_ReNrNull() Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ReNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_LeistungsbezeichnungNull() As Boolean Return Me.IsNull(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_LeistungsbezeichnungColumn) End Function _ Public Sub SetUStVPo_LeistungsbezeichnungNull() Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_LeistungsbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_LeistenderNull() As Boolean Return Me.IsNull(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_LeistenderColumn) End Function _ Public Sub SetUStVPo_LeistenderNull() Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_LeistenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_UmrechnungskursNull() As Boolean Return Me.IsNull(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_UmrechnungskursColumn) End Function _ Public Sub SetUStVPo_UmrechnungskursNull() Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_UmrechnungskursColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_USteuerbetragEURNull() As Boolean Return Me.IsNull(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_USteuerbetragEURColumn) End Function _ Public Sub SetUStVPo_USteuerbetragEURNull() Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_USteuerbetragEURColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_SachbearbeiterNull() As Boolean Return Me.IsNull(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_SachbearbeiterColumn) End Function _ Public Sub SetUStVPo_SachbearbeiterNull() Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_SachbearbeiterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUStVPo_ZeitstempelNull() As Boolean Return Me.IsNull(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ZeitstempelColumn) End Function _ Public Sub SetUStVPo_ZeitstempelNull() Me(Me.tablespUStVPositionenLesenParameterPKey.UStVPo_ZeitstempelColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isupsize_tsNull() As Boolean Return Me.IsNull(Me.tablespUStVPositionenLesenParameterPKey.upsize_tsColumn) End Function _ Public Sub Setupsize_tsNull() Me(Me.tablespUStVPositionenLesenParameterPKey.upsize_tsColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spUStVRechnungÜbernehmenMSERow Inherits Global.System.Data.DataRow Private tablespUStVRechnungÜbernehmenMSE As spUStVRechnungÜbernehmenMSEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespUStVRechnungÜbernehmenMSE = CType(Me.Table,spUStVRechnungÜbernehmenMSEDataTable) End Sub _ Public Property UStVAn_ID() As Integer Get Return CType(Me(Me.tablespUStVRechnungÜbernehmenMSE.UStVAn_IDColumn),Integer) End Get Set Me(Me.tablespUStVRechnungÜbernehmenMSE.UStVAn_IDColumn) = value End Set End Property _ Public Property UStVPo_ID() As Short Get Return CType(Me(Me.tablespUStVRechnungÜbernehmenMSE.UStVPo_IDColumn),Short) End Get Set Me(Me.tablespUStVRechnungÜbernehmenMSE.UStVPo_IDColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spUStVVorschau_IDS_SummeRow Inherits Global.System.Data.DataRow Private tablespUStVVorschau_IDS_Summe As spUStVVorschau_IDS_SummeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespUStVVorschau_IDS_Summe = CType(Me.Table,spUStVVorschau_IDS_SummeDataTable) End Sub _ Public Property AdressenNr() As Integer Get Try Return CType(Me(Me.tablespUStVVorschau_IDS_Summe.AdressenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AdressenNr in Tabelle spUStVVorschau_IDS_Summe ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVVorschau_IDS_Summe.AdressenNrColumn) = value End Set End Property _ Public Property LandNr() As Short Get Return CType(Me(Me.tablespUStVVorschau_IDS_Summe.LandNrColumn),Short) End Get Set Me(Me.tablespUStVVorschau_IDS_Summe.LandNrColumn) = value End Set End Property _ Public Property Vorschaubetrag() As Decimal Get Try Return CType(Me(Me.tablespUStVVorschau_IDS_Summe.VorschaubetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorschaubetrag in Tabelle spUStVVorschau_IDS_Summe ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespUStVVorschau_IDS_Summe.VorschaubetragColumn) = value End Set End Property _ Public Function IsAdressenNrNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_IDS_Summe.AdressenNrColumn) End Function _ Public Sub SetAdressenNrNull() Me(Me.tablespUStVVorschau_IDS_Summe.AdressenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorschaubetragNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_IDS_Summe.VorschaubetragColumn) End Function _ Public Sub SetVorschaubetragNull() Me(Me.tablespUStVVorschau_IDS_Summe.VorschaubetragColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spUStVVorschau_IT_SummeRow Inherits Global.System.Data.DataRow Private tablespUStVVorschau_IT_Summe As spUStVVorschau_IT_SummeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespUStVVorschau_IT_Summe = CType(Me.Table,spUStVVorschau_IT_SummeDataTable) End Sub _ Public Property AdressenNr() As Integer Get Return CType(Me(Me.tablespUStVVorschau_IT_Summe.AdressenNrColumn),Integer) End Get Set Me(Me.tablespUStVVorschau_IT_Summe.AdressenNrColumn) = value End Set End Property _ Public Property LandNr() As Short Get Return CType(Me(Me.tablespUStVVorschau_IT_Summe.LandNrColumn),Short) End Get Set Me(Me.tablespUStVVorschau_IT_Summe.LandNrColumn) = value End Set End Property _ Public Property Rechnungsdatum() As Date Get Try Return CType(Me(Me.tablespUStVVorschau_IT_Summe.RechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsdatum in Tabelle spUStVVorschau_IT_Summe ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespUStVVorschau_IT_Summe.RechnungsdatumColumn) = value End Set End Property _ Public Property Rechnungsnummer() As Integer Get Try Return CType(Me(Me.tablespUStVVorschau_IT_Summe.RechnungsnummerColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsnummer in Tabelle spUStVVorschau_IT_Summe ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespUStVVorschau_IT_Summe.RechnungsnummerColumn) = value End Set End Property _ Public Property Vorschaubetrag() As Decimal Get Try Return CType(Me(Me.tablespUStVVorschau_IT_Summe.VorschaubetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorschaubetrag in Tabelle spUStVVorschau_IT_Summe ist DBNull."& _ "", e) End Try End Get Set Me(Me.tablespUStVVorschau_IT_Summe.VorschaubetragColumn) = value End Set End Property _ Public Function IsRechnungsdatumNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_IT_Summe.RechnungsdatumColumn) End Function _ Public Sub SetRechnungsdatumNull() Me(Me.tablespUStVVorschau_IT_Summe.RechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRechnungsnummerNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_IT_Summe.RechnungsnummerColumn) End Function _ Public Sub SetRechnungsnummerNull() Me(Me.tablespUStVVorschau_IT_Summe.RechnungsnummerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorschaubetragNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_IT_Summe.VorschaubetragColumn) End Function _ Public Sub SetVorschaubetragNull() Me(Me.tablespUStVVorschau_IT_Summe.VorschaubetragColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spUStVVorschau_MSE_SummeRow Inherits Global.System.Data.DataRow Private tablespUStVVorschau_MSE_Summe As spUStVVorschau_MSE_SummeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespUStVVorschau_MSE_Summe = CType(Me.Table,spUStVVorschau_MSE_SummeDataTable) End Sub _ Public Property AdressenNr() As Integer Get Return CType(Me(Me.tablespUStVVorschau_MSE_Summe.AdressenNrColumn),Integer) End Get Set Me(Me.tablespUStVVorschau_MSE_Summe.AdressenNrColumn) = value End Set End Property _ Public Property LandNr() As Short Get Return CType(Me(Me.tablespUStVVorschau_MSE_Summe.LandNrColumn),Short) End Get Set Me(Me.tablespUStVVorschau_MSE_Summe.LandNrColumn) = value End Set End Property _ Public Property Rechnungsdatum() As Date Get Try Return CType(Me(Me.tablespUStVVorschau_MSE_Summe.RechnungsdatumColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rechnungsdatum in Tabelle spUStVVorschau_MSE_Summe ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespUStVVorschau_MSE_Summe.RechnungsdatumColumn) = value End Set End Property _ Public Property Vorschaubetrag() As Decimal Get Try Return CType(Me(Me.tablespUStVVorschau_MSE_Summe.VorschaubetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorschaubetrag in Tabelle spUStVVorschau_MSE_Summe ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespUStVVorschau_MSE_Summe.VorschaubetragColumn) = value End Set End Property _ Public Property Währungscode() As String Get Try Return CType(Me(Me.tablespUStVVorschau_MSE_Summe.WährungscodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Währungscode in Tabelle spUStVVorschau_MSE_Summe ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVVorschau_MSE_Summe.WährungscodeColumn) = value End Set End Property _ Public Function IsRechnungsdatumNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_MSE_Summe.RechnungsdatumColumn) End Function _ Public Sub SetRechnungsdatumNull() Me(Me.tablespUStVVorschau_MSE_Summe.RechnungsdatumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorschaubetragNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_MSE_Summe.VorschaubetragColumn) End Function _ Public Sub SetVorschaubetragNull() Me(Me.tablespUStVVorschau_MSE_Summe.VorschaubetragColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWährungscodeNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_MSE_Summe.WährungscodeColumn) End Function _ Public Sub SetWährungscodeNull() Me(Me.tablespUStVVorschau_MSE_Summe.WährungscodeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spUStVVorschau_UTA_SummeRow Inherits Global.System.Data.DataRow Private tablespUStVVorschau_UTA_Summe As spUStVVorschau_UTA_SummeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespUStVVorschau_UTA_Summe = CType(Me.Table,spUStVVorschau_UTA_SummeDataTable) End Sub _ Public Property AdressenNr() As Integer Get Return CType(Me(Me.tablespUStVVorschau_UTA_Summe.AdressenNrColumn),Integer) End Get Set Me(Me.tablespUStVVorschau_UTA_Summe.AdressenNrColumn) = value End Set End Property _ Public Property LandNr() As Short Get Return CType(Me(Me.tablespUStVVorschau_UTA_Summe.LandNrColumn),Short) End Get Set Me(Me.tablespUStVVorschau_UTA_Summe.LandNrColumn) = value End Set End Property _ Public Property Vorschaubetrag() As Decimal Get Try Return CType(Me(Me.tablespUStVVorschau_UTA_Summe.VorschaubetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorschaubetrag in Tabelle spUStVVorschau_UTA_Summe ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tablespUStVVorschau_UTA_Summe.VorschaubetragColumn) = value End Set End Property _ Public Function IsVorschaubetragNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_UTA_Summe.VorschaubetragColumn) End Function _ Public Sub SetVorschaubetragNull() Me(Me.tablespUStVVorschau_UTA_Summe.VorschaubetragColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spUStVVorschau_VERAG_SummeRow Inherits Global.System.Data.DataRow Private tablespUStVVorschau_VERAG_Summe As spUStVVorschau_VERAG_SummeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespUStVVorschau_VERAG_Summe = CType(Me.Table,spUStVVorschau_VERAG_SummeDataTable) End Sub _ Public Property AdressenNr() As Integer Get Try Return CType(Me(Me.tablespUStVVorschau_VERAG_Summe.AdressenNrColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AdressenNr in Tabelle spUStVVorschau_VERAG_Summe ist DBNull.", e) End Try End Get Set Me(Me.tablespUStVVorschau_VERAG_Summe.AdressenNrColumn) = value End Set End Property _ Public Property LandNr() As Short Get Return CType(Me(Me.tablespUStVVorschau_VERAG_Summe.LandNrColumn),Short) End Get Set Me(Me.tablespUStVVorschau_VERAG_Summe.LandNrColumn) = value End Set End Property _ Public Property Vorschaubetrag() As Decimal Get Try Return CType(Me(Me.tablespUStVVorschau_VERAG_Summe.VorschaubetragColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorschaubetrag in Tabelle spUStVVorschau_VERAG_Summe ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tablespUStVVorschau_VERAG_Summe.VorschaubetragColumn) = value End Set End Property _ Public Function IsAdressenNrNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_VERAG_Summe.AdressenNrColumn) End Function _ Public Sub SetAdressenNrNull() Me(Me.tablespUStVVorschau_VERAG_Summe.AdressenNrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVorschaubetragNull() As Boolean Return Me.IsNull(Me.tablespUStVVorschau_VERAG_Summe.VorschaubetragColumn) End Function _ Public Sub SetVorschaubetragNull() Me(Me.tablespUStVVorschau_VERAG_Summe.VorschaubetragColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class spZolaris_EZoll_NCTS_DatenbereitstellungRow Inherits Global.System.Data.DataRow Private tablespZolaris_EZoll_NCTS_Datenbereitstellung As spZolaris_EZoll_NCTS_DatenbereitstellungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung = CType(Me.Table,spZolaris_EZoll_NCTS_DatenbereitstellungDataTable) End Sub _ Public Property CRN() As String Get Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.CRNColumn),String) End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.CRNColumn) = value End Set End Property _ Public Property AnmeldungsDatum() As Date Get Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AnmeldungsDatumColumn),Date) End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AnmeldungsDatumColumn) = value End Set End Property _ Public Property GarantieWert() As Decimal Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GarantieWertColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GarantieWert in Tabelle spZolaris_EZoll_NCTS_Datenbereitstell"& _ "ung ist DBNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GarantieWertColumn) = value End Set End Property _ Public Property AnmID() As Integer Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AnmIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AnmID in Tabelle spZolaris_EZoll_NCTS_Datenbereitstellung ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AnmIDColumn) = value End Set End Property _ Public Property ErledigungsTypID() As String Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.ErledigungsTypIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ErledigungsTypID in Tabelle spZolaris_EZoll_NCTS_Datenbereits"& _ "tellung ist DBNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.ErledigungsTypIDColumn) = value End Set End Property _ Public Property Warenbezeichnung() As String Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.WarenbezeichnungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Warenbezeichnung in Tabelle spZolaris_EZoll_NCTS_Datenbereits"& _ "tellung ist DBNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.WarenbezeichnungColumn) = value End Set End Property _ Public Property Absender() As String Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AbsenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Absender in Tabelle spZolaris_EZoll_NCTS_Datenbereitstellung "& _ "ist DBNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AbsenderColumn) = value End Set End Property _ Public Property Empfaenger() As String Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.EmpfaengerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Empfaenger in Tabelle spZolaris_EZoll_NCTS_Datenbereitstellun"& _ "g ist DBNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.EmpfaengerColumn) = value End Set End Property _ Public Property Gesamtrohmasse() As Double Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GesamtrohmasseColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gesamtrohmasse in Tabelle spZolaris_EZoll_NCTS_Datenbereitste"& _ "llung ist DBNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GesamtrohmasseColumn) = value End Set End Property _ Public Property Abgangszollstelle() As String Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AbgangszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Abgangszollstelle in Tabelle spZolaris_EZoll_NCTS_Datenbereit"& _ "stellung ist DBNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AbgangszollstelleColumn) = value End Set End Property _ Public Property Bestimmungszollstelle() As String Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.BestimmungszollstelleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bestimmungszollstelle in Tabelle spZolaris_EZoll_NCTS_Datenbe"& _ "reitstellung ist DBNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.BestimmungszollstelleColumn) = value End Set End Property _ Public Property LRN() As String Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.LRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LRN in Tabelle spZolaris_EZoll_NCTS_Datenbereitstellung ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.LRNColumn) = value End Set End Property _ Public Property DatumBestimmungErreicht() As Date Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.DatumBestimmungErreichtColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DatumBestimmungErreicht in Tabelle spZolaris_EZoll_NCTS_Daten"& _ "bereitstellung ist DBNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.DatumBestimmungErreichtColumn) = value End Set End Property _ Public Property GRN() As String Get Try Return CType(Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GRNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GRN in Tabelle spZolaris_EZoll_NCTS_Datenbereitstellung ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GRNColumn) = value End Set End Property _ Public Function IsGarantieWertNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GarantieWertColumn) End Function _ Public Sub SetGarantieWertNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GarantieWertColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnmIDNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AnmIDColumn) End Function _ Public Sub SetAnmIDNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AnmIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsErledigungsTypIDNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.ErledigungsTypIDColumn) End Function _ Public Sub SetErledigungsTypIDNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.ErledigungsTypIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWarenbezeichnungNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.WarenbezeichnungColumn) End Function _ Public Sub SetWarenbezeichnungNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.WarenbezeichnungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbsenderNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AbsenderColumn) End Function _ Public Sub SetAbsenderNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AbsenderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmpfaengerNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.EmpfaengerColumn) End Function _ Public Sub SetEmpfaengerNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.EmpfaengerColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGesamtrohmasseNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GesamtrohmasseColumn) End Function _ Public Sub SetGesamtrohmasseNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GesamtrohmasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAbgangszollstelleNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AbgangszollstelleColumn) End Function _ Public Sub SetAbgangszollstelleNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.AbgangszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBestimmungszollstelleNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.BestimmungszollstelleColumn) End Function _ Public Sub SetBestimmungszollstelleNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.BestimmungszollstelleColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLRNNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.LRNColumn) End Function _ Public Sub SetLRNNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.LRNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDatumBestimmungErreichtNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.DatumBestimmungErreichtColumn) End Function _ Public Sub SetDatumBestimmungErreichtNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.DatumBestimmungErreichtColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGRNNull() As Boolean Return Me.IsNull(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GRNColumn) End Function _ Public Sub SetGRNNull() Me(Me.tablespZolaris_EZoll_NCTS_Datenbereitstellung.GRNColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class AbfertigungsartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As AbfertigungsartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As AbfertigungsartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As AbfertigungsartenRow 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 Abfertigungskosten_der_KorrespondentenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Abfertigungskosten_der_KorrespondentenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Abfertigungskosten_der_KorrespondentenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Abfertigungskosten_der_KorrespondentenRow 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 AbfertigungsLaenderRowChangeEvent Inherits Global.System.EventArgs Private eventRow As AbfertigungsLaenderRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As AbfertigungsLaenderRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As AbfertigungsLaenderRow 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 AbfertigungsLaenderAbfertigungsartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As AbfertigungsLaenderAbfertigungsartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As AbfertigungsLaenderAbfertigungsartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As AbfertigungsLaenderAbfertigungsartenRow 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 AbgabenartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As AbgabenartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As AbgabenartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As AbgabenartenRow 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 AdressenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As AdressenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As AdressenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As AdressenRow 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 AktivitätenlogRowChangeEvent Inherits Global.System.EventArgs Private eventRow As AktivitätenlogRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As AktivitätenlogRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As AktivitätenlogRow 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 AnlagenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As AnlagenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As AnlagenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As AnlagenRow 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 atlas_statusRowChangeEvent Inherits Global.System.EventArgs Private eventRow As atlas_statusRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As atlas_statusRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As atlas_statusRow 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 AufschubdatenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As AufschubdatenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As AufschubdatenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As AufschubdatenRow 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 AufschubkontenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As AufschubkontenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As AufschubkontenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As AufschubkontenRow 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 BelegartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As BelegartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As BelegartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As BelegartenRow 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 BerechnungsartRowChangeEvent Inherits Global.System.EventArgs Private eventRow As BerechnungsartRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As BerechnungsartRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As BerechnungsartRow 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 BerechnungsbogenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As BerechnungsbogenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As BerechnungsbogenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As BerechnungsbogenRow 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 BerichteRowChangeEvent Inherits Global.System.EventArgs Private eventRow As BerichteRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As BerichteRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As BerichteRow 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 CMRRowChangeEvent Inherits Global.System.EventArgs Private eventRow As CMRRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As CMRRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As CMRRow 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 DevisenkurseRowChangeEvent Inherits Global.System.EventArgs Private eventRow As DevisenkurseRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As DevisenkurseRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As DevisenkurseRow 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 EPBesRowChangeEvent Inherits Global.System.EventArgs Private eventRow As EPBesRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As EPBesRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As EPBesRow 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 EPBesPOSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As EPBesPOSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As EPBesPOSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As EPBesPOSRow 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 FilialenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As FilialenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As FilialenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As FilialenRow 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 GeschäftsartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As GeschäftsartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As GeschäftsartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As GeschäftsartenRow 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 KorrespondentenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As KorrespondentenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As KorrespondentenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As KorrespondentenRow 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 KostenstellenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As KostenstellenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As KostenstellenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As KostenstellenRow 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 KreditkartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As KreditkartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As KreditkartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As KreditkartenRow 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 KundenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As KundenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As KundenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As KundenRow 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 KundenFilialenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As KundenFilialenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As KundenFilialenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As KundenFilialenRow 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 Länder_der_Bundesrepublik_DeutschlandRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Länder_der_Bundesrepublik_DeutschlandRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Länder_der_Bundesrepublik_DeutschlandRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Länder_der_Bundesrepublik_DeutschlandRow 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 Länderverzeichnis_für_die_AußenhandelsstatistikRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Länderverzeichnis_für_die_AußenhandelsstatistikRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Länderverzeichnis_für_die_AußenhandelsstatistikRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Länderverzeichnis_für_die_AußenhandelsstatistikRow 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 LeistungenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As LeistungenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As LeistungenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As LeistungenRow 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 LeistungenBUKontenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As LeistungenBUKontenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As LeistungenBUKontenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As LeistungenBUKontenRow 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 LieferbedingungenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As LieferbedingungenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As LieferbedingungenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As LieferbedingungenRow 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 Nebenkosten_der_KorrespondentenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Nebenkosten_der_KorrespondentenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Nebenkosten_der_KorrespondentenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Nebenkosten_der_KorrespondentenRow 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 Offene_PostenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Offene_PostenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Offene_PostenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Offene_PostenRow 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 Offene_Posten_DVORowChangeEvent Inherits Global.System.EventArgs Private eventRow As Offene_Posten_DVORow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Offene_Posten_DVORow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Offene_Posten_DVORow 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 OffertenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As OffertenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As OffertenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As OffertenRow 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 OffertenpositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As OffertenpositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As OffertenpositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As OffertenpositionenRow 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 OffertenstammRowChangeEvent Inherits Global.System.EventArgs Private eventRow As OffertenstammRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As OffertenstammRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As OffertenstammRow 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 PersonalRowChangeEvent Inherits Global.System.EventArgs Private eventRow As PersonalRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As PersonalRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As PersonalRow 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 RechnungsausgangRowChangeEvent Inherits Global.System.EventArgs Private eventRow As RechnungsausgangRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As RechnungsausgangRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As RechnungsausgangRow 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 RechnungsausgangAnhaengeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As RechnungsausgangAnhaengeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As RechnungsausgangAnhaengeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As RechnungsausgangAnhaengeRow 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 RechnungsausgangPositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As RechnungsausgangPositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As RechnungsausgangPositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As RechnungsausgangPositionenRow 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 RechnungsnummernRowChangeEvent Inherits Global.System.EventArgs Private eventRow As RechnungsnummernRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As RechnungsnummernRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As RechnungsnummernRow 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 RechnungstexteRowChangeEvent Inherits Global.System.EventArgs Private eventRow As RechnungstexteRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As RechnungstexteRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As RechnungstexteRow 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 SpeditionsbuchRowChangeEvent Inherits Global.System.EventArgs Private eventRow As SpeditionsbuchRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As SpeditionsbuchRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As SpeditionsbuchRow 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 StandardoffertenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As StandardoffertenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As StandardoffertenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As StandardoffertenRow 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 StandardoffertenFirmaRowChangeEvent Inherits Global.System.EventArgs Private eventRow As StandardoffertenFirmaRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As StandardoffertenFirmaRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As StandardoffertenFirmaRow 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 SteuertabelleRowChangeEvent Inherits Global.System.EventArgs Private eventRow As SteuertabelleRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As SteuertabelleRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As SteuertabelleRow 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 tbl_ASFINAG_FileInfoRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_ASFINAG_FileInfoRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_ASFINAG_FileInfoRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_ASFINAG_FileInfoRow 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 tbl_BMD_LänderRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_BMD_LänderRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_BMD_LänderRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_BMD_LänderRow 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 tbl_DY_ParamterRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ParamterRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ParamterRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ParamterRow 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 tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungRow 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 tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationRow 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 tbl_DY_ZollDE_C0008_LaenderFullRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_C0008_LaenderFullRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_C0008_LaenderFullRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_C0008_LaenderFullRow 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 tbl_DY_ZollDE_C0010_LaenderAESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_C0010_LaenderAESRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_C0010_LaenderAESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_C0010_LaenderAESRow 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 tbl_DY_ZollDE_C0013_UnterlagenArtenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_C0013_UnterlagenArtenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_C0013_UnterlagenArtenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_C0013_UnterlagenArtenRow 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 tbl_DY_ZollDE_C0014_VorpapierArtenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_C0014_VorpapierArtenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_C0014_VorpapierArtenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_C0014_VorpapierArtenRow 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 tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenRow 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 tbl_DY_ZollDE_C0141_ZollstellenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_C0141_ZollstellenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_C0141_ZollstellenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_C0141_ZollstellenRow 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 tbl_DY_ZollDE_C0219_TypeTransportMeansRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_C0219_TypeTransportMeansRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_C0219_TypeTransportMeansRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_C0219_TypeTransportMeansRow 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 tbl_DY_ZollDE_I0200_UnterlageartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_I0200_UnterlageartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_I0200_UnterlageartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_I0200_UnterlageartenRow 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 tbl_DY_ZollDE_I0400_WaehrungslisteRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_I0400_WaehrungslisteRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_I0400_WaehrungslisteRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_I0400_WaehrungslisteRow 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 tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESRow 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 tbl_DY_ZollDE_I0700_MasseinheitenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DY_ZollDE_I0700_MasseinheitenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DY_ZollDE_I0700_MasseinheitenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DY_ZollDE_I0700_MasseinheitenRow 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 tbl_ErrorsRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_ErrorsRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_ErrorsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_ErrorsRow 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 tbl_IDS_Kategorien_KundenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_IDS_Kategorien_KundenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_IDS_Kategorien_KundenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_IDS_Kategorien_KundenRow 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 tbl_IDS_Kategorien_RechenwerteRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_IDS_Kategorien_RechenwerteRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_IDS_Kategorien_RechenwerteRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_IDS_Kategorien_RechenwerteRow 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 tbl_IDS_KundenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_IDS_KundenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_IDS_KundenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_IDS_KundenRow 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 tbl_IDS_Kunden_ohne_RabattRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_IDS_Kunden_ohne_RabattRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_IDS_Kunden_ohne_RabattRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_IDS_Kunden_ohne_RabattRow 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 tbl_IDS_LänderRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_IDS_LänderRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_IDS_LänderRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_IDS_LänderRow 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 tbl_IDS_ProdukteRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_IDS_ProdukteRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_IDS_ProdukteRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_IDS_ProdukteRow 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 tbl_IDS_RechenwerteRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_IDS_RechenwerteRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_IDS_RechenwerteRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_IDS_RechenwerteRow 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 tbl_IDS_StationenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_IDS_StationenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_IDS_StationenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_IDS_StationenRow 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 tbl_Intrastat_AusfuhrRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_Intrastat_AusfuhrRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_Intrastat_AusfuhrRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_Intrastat_AusfuhrRow 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 tbl_TelefonbuchRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_TelefonbuchRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_TelefonbuchRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_TelefonbuchRow 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 tbl_TelefonnummernRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_TelefonnummernRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_TelefonnummernRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_TelefonnummernRow 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 tbl_WÖLFLRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_WÖLFLRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_WÖLFLRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_WÖLFLRow 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 tbl_ZM_tabelleRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_ZM_tabelleRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_ZM_tabelleRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_ZM_tabelleRow 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 tblAbfertigungsartenFilialeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblAbfertigungsartenFilialeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblAbfertigungsartenFilialeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblAbfertigungsartenFilialeRow 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 tblAbfertigungsartOffertenstammRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblAbfertigungsartOffertenstammRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblAbfertigungsartOffertenstammRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblAbfertigungsartOffertenstammRow 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 tblAbrechnung_NCTSBrgRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblAbrechnung_NCTSBrgRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblAbrechnung_NCTSBrgRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblAbrechnung_NCTSBrgRow 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 tblAnmeldungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblAnmeldungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblAnmeldungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblAnmeldungRow 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 tblAsfinagMautRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblAsfinagMautRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblAsfinagMautRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblAsfinagMautRow 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 tblATEZ_NCTSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblATEZ_NCTSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblATEZ_NCTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblATEZ_NCTSRow 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 tblATEZ_NCTS_RoutenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblATEZ_NCTS_RoutenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblATEZ_NCTS_RoutenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblATEZ_NCTS_RoutenRow 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 tblATEZ_NCTS_SessionsRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblATEZ_NCTS_SessionsRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblATEZ_NCTS_SessionsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblATEZ_NCTS_SessionsRow 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 tblATEZ_NCTS_TransitCustomsOfficeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblATEZ_NCTS_TransitCustomsOfficeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblATEZ_NCTS_TransitCustomsOfficeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblATEZ_NCTS_TransitCustomsOfficeRow 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 tblBankspesenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblBankspesenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblBankspesenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblBankspesenRow 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 tblBerechnungsmethodeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblBerechnungsmethodeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblBerechnungsmethodeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblBerechnungsmethodeRow 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 tblBerichtsdruckerRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblBerichtsdruckerRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblBerichtsdruckerRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblBerichtsdruckerRow 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 tblBesuchsberichteRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblBesuchsberichteRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblBesuchsberichteRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblBesuchsberichteRow 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 tblBonitaetsauskunftRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblBonitaetsauskunftRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblBonitaetsauskunftRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblBonitaetsauskunftRow 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 tblBuchungstextRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblBuchungstextRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblBuchungstextRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblBuchungstextRow 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 tblDakosy_AESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_AESRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_AESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_AESRow 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 tblDakosy_AES_WarenpositionRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_AES_WarenpositionRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_AES_WarenpositionRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_AES_WarenpositionRow 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 tblDakosy_AES_WarenpositionPackstueckeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_AES_WarenpositionPackstueckeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_AES_WarenpositionPackstueckeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_AES_WarenpositionPackstueckeRow 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 tblDakosy_AES_WarenpositionUnterlagenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_AES_WarenpositionUnterlagenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_AES_WarenpositionUnterlagenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_AES_WarenpositionUnterlagenRow 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 tblDakosy_EZARowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_EZARow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_EZARow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_EZARow 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 tblDakosy_EZA_AdressenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_EZA_AdressenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_EZA_AdressenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_EZA_AdressenRow 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 tblDakosy_EZA_AufschubRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_EZA_AufschubRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_EZA_AufschubRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_EZA_AufschubRow 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 tblDakosy_EZA_BEAnteilZLAVUVRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_EZA_BEAnteilZLAVUVRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_EZA_BEAnteilZLAVUVRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_EZA_BEAnteilZLAVUVRow 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 tblDakosy_EZA_SumABeendigungsAnteilRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_EZA_SumABeendigungsAnteilRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_EZA_SumABeendigungsAnteilRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_EZA_SumABeendigungsAnteilRow 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 tblDakosy_EZA_UnterlagenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_EZA_UnterlagenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_EZA_UnterlagenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_EZA_UnterlagenRow 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 tblDakosy_EZA_WarenpositionRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_EZA_WarenpositionRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_EZA_WarenpositionRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_EZA_WarenpositionRow 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 tblDakosy_EZA_WarenpositionSonderfalldatenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_EZA_WarenpositionSonderfalldatenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_EZA_WarenpositionSonderfalldatenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_EZA_WarenpositionSonderfalldatenRow 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 tblDakosy_EZA_WarenpositionUnterlagenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_EZA_WarenpositionUnterlagenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_EZA_WarenpositionUnterlagenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_EZA_WarenpositionUnterlagenRow 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 tblDakosy_EZA_WarenpositionVerbrauchssteuerRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_EZA_WarenpositionVerbrauchssteuerRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_EZA_WarenpositionVerbrauchssteuerRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_EZA_WarenpositionVerbrauchssteuerRow 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 tblDakosy_NCTSOutRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOutRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOutRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOutRow 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 tblDakosy_NCTSOut_SicherheitsangabenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOut_SicherheitsangabenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOut_SicherheitsangabenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOut_SicherheitsangabenRow 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 tblDakosy_NCTSOut_WarenpositionRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOut_WarenpositionRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOut_WarenpositionRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOut_WarenpositionRow 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 tblDakosy_NCTSOut_WarenpositionPackstueckeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOut_WarenpositionPackstueckeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOut_WarenpositionPackstueckeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOut_WarenpositionPackstueckeRow 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 tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenRow 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 tblDakosy_NCTSOut004RowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOut004Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOut004Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOut004Row 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 tblDakosy_NCTSOut004_GuaranteeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOut004_GuaranteeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOut004_GuaranteeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOut004_GuaranteeRow 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 tblDakosy_NCTSOut004_HouseConsignmentRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOut004_HouseConsignmentRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOut004_HouseConsignmentRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOut004_HouseConsignmentRow 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 tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemRow 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 tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingRow 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 tblDakosy_NCTSOut004_TransportEquipmentRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_NCTSOut004_TransportEquipmentRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_NCTSOut004_TransportEquipmentRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_NCTSOut004_TransportEquipmentRow 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 tblDakosy_StammreferenzenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_StammreferenzenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_StammreferenzenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_StammreferenzenRow 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 tblDakosy_StatusmeldungenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_StatusmeldungenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_StatusmeldungenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_StatusmeldungenRow 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 tblDakosy_ZollanmeldungenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_ZollanmeldungenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_ZollanmeldungenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_ZollanmeldungenRow 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 tblDakosy_ZollanmeldungenArtenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDakosy_ZollanmeldungenArtenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDakosy_ZollanmeldungenArtenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDakosy_ZollanmeldungenArtenRow 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 tblDatenarchivRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDatenarchivRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDatenarchivRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDatenarchivRow 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 tblDatenarchiv_CollectionRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDatenarchiv_CollectionRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDatenarchiv_CollectionRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDatenarchiv_CollectionRow 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 tblDEBundeslaenderPLZRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDEBundeslaenderPLZRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDEBundeslaenderPLZRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDEBundeslaenderPLZRow 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 tblDHF_AnhaengeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDHF_AnhaengeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDHF_AnhaengeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDHF_AnhaengeRow 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 tblDieselArchivRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDieselArchivRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDieselArchivRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDieselArchivRow 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 tblDigicust_SendungenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDigicust_SendungenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDigicust_SendungenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDigicust_SendungenRow 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 tblDigicust_SessionsRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDigicust_SessionsRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDigicust_SessionsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDigicust_SessionsRow 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 tblDigicust_SettingsRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblDigicust_SettingsRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblDigicust_SettingsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblDigicust_SettingsRow 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 tblEABelegnummerRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblEABelegnummerRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblEABelegnummerRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblEABelegnummerRow 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 tblEABelegpositionRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblEABelegpositionRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblEABelegpositionRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblEABelegpositionRow 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 tblEmailBenachrichtigungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblEmailBenachrichtigungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblEmailBenachrichtigungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblEmailBenachrichtigungRow 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 tblEmailBenachrichtigungArtenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblEmailBenachrichtigungArtenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblEmailBenachrichtigungArtenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblEmailBenachrichtigungArtenRow 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 tblEORIPruefungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblEORIPruefungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblEORIPruefungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblEORIPruefungRow 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 tblEZB_WaehrungskurseRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblEZB_WaehrungskurseRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblEZB_WaehrungskurseRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblEZB_WaehrungskurseRow 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 tblEZT_ImportcodenummernRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblEZT_ImportcodenummernRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblEZT_ImportcodenummernRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblEZT_ImportcodenummernRow 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 tblFahrerDatenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblFahrerDatenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblFahrerDatenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblFahrerDatenRow 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 tblFirmaRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblFirmaRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblFirmaRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblFirmaRow 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 tblFiskal_DatenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblFiskal_DatenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblFiskal_DatenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblFiskal_DatenRow 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 tblFiskalkundenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblFiskalkundenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblFiskalkundenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblFiskalkundenRow 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 tblFormulardatenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblFormulardatenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblFormulardatenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblFormulardatenRow 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 tblFormulareVorlagenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblFormulareVorlagenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblFormulareVorlagenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblFormulareVorlagenRow 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 tblFormulareVorlagenValuesRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblFormulareVorlagenValuesRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblFormulareVorlagenValuesRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblFormulareVorlagenValuesRow 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 tblFremdSpeditionenZuordnungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblFremdSpeditionenZuordnungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblFremdSpeditionenZuordnungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblFremdSpeditionenZuordnungRow 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 tblFTP_LogRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblFTP_LogRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblFTP_LogRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblFTP_LogRow 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 tblFTP_Log_Backup2RowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblFTP_Log_Backup2Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblFTP_Log_Backup2Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblFTP_Log_Backup2Row 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 tblGebuehrenvermarktungsnormenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGebuehrenvermarktungsnormenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGebuehrenvermarktungsnormenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGebuehrenvermarktungsnormenRow 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 tblGelangensbestaetigungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGelangensbestaetigungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGelangensbestaetigungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGelangensbestaetigungRow 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 tblGeschäftsjahrRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGeschäftsjahrRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGeschäftsjahrRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGeschäftsjahrRow 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 tblGeschäftsjahrBelegNrRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGeschäftsjahrBelegNrRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGeschäftsjahrBelegNrRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGeschäftsjahrBelegNrRow 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 tblGeschäftsjahrJournalNrRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGeschäftsjahrJournalNrRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGeschäftsjahrJournalNrRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGeschäftsjahrJournalNrRow 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 tblGestellungsgarantienRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGestellungsgarantienRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGestellungsgarantienRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGestellungsgarantienRow 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 tblGestellungsmitteilungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGestellungsmitteilungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGestellungsmitteilungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGestellungsmitteilungRow 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 tblGestellungsmitteilung_PositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGestellungsmitteilung_PositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGestellungsmitteilung_PositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGestellungsmitteilung_PositionenRow 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 tblGOBOXBestellungenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGOBOXBestellungenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGOBOXBestellungenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGOBOXBestellungenRow 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 tblGVMSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGVMSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGVMSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGVMSRow 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 tblGVMS_CarriersRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGVMS_CarriersRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGVMS_CarriersRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGVMS_CarriersRow 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 tblGVMS_PortsRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGVMS_PortsRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGVMS_PortsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGVMS_PortsRow 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 tblGVMS_PosRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGVMS_PosRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGVMS_PosRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGVMS_PosRow 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 tblGVMS_RoutesRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblGVMS_RoutesRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblGVMS_RoutesRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblGVMS_RoutesRow 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 tblHandlingssaetzeInternRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblHandlingssaetzeInternRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblHandlingssaetzeInternRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblHandlingssaetzeInternRow 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 tblHistorieRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblHistorieRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblHistorieRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblHistorieRow 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 tblIDS_TransaktionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblIDS_TransaktionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblIDS_TransaktionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblIDS_TransaktionenRow 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 tblKassenbuchRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKassenbuchRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKassenbuchRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKassenbuchRow 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 tblKontoRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKontoRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKontoRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKontoRow 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 tblKundenAufschubkontenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenAufschubkontenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenAufschubkontenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenAufschubkontenRow 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 tblKundenBesonderheitenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenBesonderheitenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenBesonderheitenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenBesonderheitenRow 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 tblKundenBesonderheiten_KategorienRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenBesonderheiten_KategorienRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenBesonderheiten_KategorienRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenBesonderheiten_KategorienRow 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 tblKundenDatenblattRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenDatenblattRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenDatenblattRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenDatenblattRow 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 tblKundenErweitertRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenErweitertRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenErweitertRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenErweitertRow 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 tblKundenKontaktRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenKontaktRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenKontaktRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenKontaktRow 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 tblKundenKontaktArtenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenKontaktArtenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenKontaktArtenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenKontaktArtenRow 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 tblKundenumsatzRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenumsatzRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenumsatzRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenumsatzRow 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 tblKundenVermerkeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenVermerkeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenVermerkeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenVermerkeRow 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 tblKundenVertraegeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenVertraegeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenVertraegeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenVertraegeRow 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 tblKundenVertraegeArtenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenVertraegeArtenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenVertraegeArtenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenVertraegeArtenRow 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 tblKundenVollmachtenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenVollmachtenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenVollmachtenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenVollmachtenRow 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 tblKundenVollmachtenArtRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblKundenVollmachtenArtRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblKundenVollmachtenArtRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblKundenVollmachtenArtRow 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 tblLogbuchRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblLogbuchRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblLogbuchRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblLogbuchRow 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 tblMandantRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMandantRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMandantRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMandantRow 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 tblMautIT_BelegartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMautIT_BelegartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMautIT_BelegartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMautIT_BelegartenRow 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 tblMautITArchivRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMautITArchivRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMautITArchivRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMautITArchivRow 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 tblMDM_ParamterRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMDM_ParamterRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMDM_ParamterRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMDM_ParamterRow 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 tblMSECustomersRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMSECustomersRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMSECustomersRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMSECustomersRow 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 tblMSEImportRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMSEImportRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMSEImportRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMSEImportRow 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 tblMSEInvoicesRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMSEInvoicesRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMSEInvoicesRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMSEInvoicesRow 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 tblMSELeistungenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMSELeistungenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMSELeistungenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMSELeistungenRow 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 tblMSESettlementsRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMSESettlementsRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMSESettlementsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMSESettlementsRow 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 tblMSETransactionsRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMSETransactionsRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMSETransactionsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMSETransactionsRow 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 tblMSETransactionsArchivRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMSETransactionsArchivRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMSETransactionsArchivRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMSETransactionsArchivRow 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 tblMSETransactionsArchivOLDRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblMSETransactionsArchivOLDRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblMSETransactionsArchivOLDRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblMSETransactionsArchivOLDRow 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 tblNCTS_TRRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblNCTS_TRRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblNCTS_TRRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblNCTS_TRRow 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 tblNCTS_TR_NachrichtenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblNCTS_TR_NachrichtenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblNCTS_TR_NachrichtenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblNCTS_TR_NachrichtenRow 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 tblNCTS_TR_SicherheitsangabenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblNCTS_TR_SicherheitsangabenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblNCTS_TR_SicherheitsangabenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblNCTS_TR_SicherheitsangabenRow 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 tblNCTS_TR_WarenpositionRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblNCTS_TR_WarenpositionRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblNCTS_TR_WarenpositionRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblNCTS_TR_WarenpositionRow 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 tblNCTS_TR_WarenpositionPackstueckeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblNCTS_TR_WarenpositionPackstueckeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblNCTS_TR_WarenpositionPackstueckeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblNCTS_TR_WarenpositionPackstueckeRow 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 tblNCTSGestellungsadressenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblNCTSGestellungsadressenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblNCTSGestellungsadressenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblNCTSGestellungsadressenRow 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 tblNTCSRoutenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblNTCSRoutenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblNTCSRoutenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblNTCSRoutenRow 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 tblOffertenArchivRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOffertenArchivRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOffertenArchivRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOffertenArchivRow 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 tblOffertenPositionenArchivRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOffertenPositionenArchivRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOffertenPositionenArchivRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOffertenPositionenArchivRow 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 tblOregonNCTS_DeclarationDataRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOregonNCTS_DeclarationDataRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOregonNCTS_DeclarationDataRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOregonNCTS_DeclarationDataRow 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 tblOregonNCTS_Declarations_AdditionalCodesAttributeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOregonNCTS_Declarations_AdditionalCodesAttributeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOregonNCTS_Declarations_AdditionalCodesAttributeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOregonNCTS_Declarations_AdditionalCodesAttributeRow 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 tblOregonNCTS_Declarations_DocumentsAttributeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOregonNCTS_Declarations_DocumentsAttributeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOregonNCTS_Declarations_DocumentsAttributeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOregonNCTS_Declarations_DocumentsAttributeRow 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 tblOregonNCTS_Declarations_GoodsAttributeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOregonNCTS_Declarations_GoodsAttributeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOregonNCTS_Declarations_GoodsAttributeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOregonNCTS_Declarations_GoodsAttributeRow 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 tblOregonNCTS_Declarations_PacksAttributeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOregonNCTS_Declarations_PacksAttributeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOregonNCTS_Declarations_PacksAttributeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOregonNCTS_Declarations_PacksAttributeRow 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 tblOregonNCTS_Declarations_PartiesAttributeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOregonNCTS_Declarations_PartiesAttributeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOregonNCTS_Declarations_PartiesAttributeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOregonNCTS_Declarations_PartiesAttributeRow 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 tblOregonNCTS_Declarations_ProducedDocumentsAttributeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOregonNCTS_Declarations_ProducedDocumentsAttributeRow 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 tblOregonNCTS_Declarations_TraderAdditionsAttributeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOregonNCTS_Declarations_TraderAdditionsAttributeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOregonNCTS_Declarations_TraderAdditionsAttributeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOregonNCTS_Declarations_TraderAdditionsAttributeRow 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 tblOregonNCTS_ReferenceTemplateRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOregonNCTS_ReferenceTemplateRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOregonNCTS_ReferenceTemplateRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOregonNCTS_ReferenceTemplateRow 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 tblOriginalATRRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblOriginalATRRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblOriginalATRRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblOriginalATRRow 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 tblPartnersystem_ParamterRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPartnersystem_ParamterRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPartnersystem_ParamterRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPartnersystem_ParamterRow 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 tblPfadRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPfadRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPfadRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPfadRow 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 tblPLOSE_DetailsRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPLOSE_DetailsRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPLOSE_DetailsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPLOSE_DetailsRow 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 tblPLOSE_Inv_DataRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPLOSE_Inv_DataRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPLOSE_Inv_DataRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPLOSE_Inv_DataRow 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 tblPLOSE_LieferantRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPLOSE_LieferantRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPLOSE_LieferantRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPLOSE_LieferantRow 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 tblPLOSE_ProduktbeschreibungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPLOSE_ProduktbeschreibungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPLOSE_ProduktbeschreibungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPLOSE_ProduktbeschreibungRow 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 tblPosNrRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPosNrRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPosNrRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPosNrRow 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 tblPostversandRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPostversandRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPostversandRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPostversandRow 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 tblPreislistenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPreislistenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPreislistenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPreislistenRow 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 tblPreislistenpositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPreislistenpositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPreislistenpositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPreislistenpositionenRow 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 tblPreistabellenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPreistabellenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPreistabellenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPreistabellenRow 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 tblPreistabellenpositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblPreistabellenpositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblPreistabellenpositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblPreistabellenpositionenRow 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 tblQS_AbfertigungsartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblQS_AbfertigungsartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblQS_AbfertigungsartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblQS_AbfertigungsartenRow 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 tblQS_AufträgeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblQS_AufträgeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblQS_AufträgeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblQS_AufträgeRow 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 tblQS_AuftragspositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblQS_AuftragspositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblQS_AuftragspositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblQS_AuftragspositionenRow 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 tblQS_TeamsRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblQS_TeamsRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblQS_TeamsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblQS_TeamsRow 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 tblQS_TeamsMARowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblQS_TeamsMARow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblQS_TeamsMARow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblQS_TeamsMARow 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 tblRechnungsnotizenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblRechnungsnotizenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblRechnungsnotizenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblRechnungsnotizenRow 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 tblRefRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblRefRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblRefRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblRefRow 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 tblRefBeziehungenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblRefBeziehungenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblRefBeziehungenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblRefBeziehungenRow 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 tblRKSV_KassenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblRKSV_KassenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblRKSV_KassenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblRKSV_KassenRow 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 tblRKSV_POSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblRKSV_POSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblRKSV_POSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblRKSV_POSRow 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 tblRMCImportRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblRMCImportRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblRMCImportRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblRMCImportRow 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 tblSMSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblSMSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblSMSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblSMSRow 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 tblSpeditionsbucharchivRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblSpeditionsbucharchivRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblSpeditionsbucharchivRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblSpeditionsbucharchivRow 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 tblSpeditionsbuchEndEmpfaengerRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblSpeditionsbuchEndEmpfaengerRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblSpeditionsbuchEndEmpfaengerRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblSpeditionsbuchEndEmpfaengerRow 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 tblSpeditionsbuchUnterPosRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblSpeditionsbuchUnterPosRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblSpeditionsbuchUnterPosRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblSpeditionsbuchUnterPosRow 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 tblSpeditionsbuchUnterPosArtenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblSpeditionsbuchUnterPosArtenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblSpeditionsbuchUnterPosArtenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblSpeditionsbuchUnterPosArtenRow 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 tblSteuernummernRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblSteuernummernRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblSteuernummernRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblSteuernummernRow 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 tblSteuersätzeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblSteuersätzeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblSteuersätzeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblSteuersätzeRow 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 tblSteuertypRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblSteuertypRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblSteuertypRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblSteuertypRow 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 tblTelotec_AbgabenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTelotec_AbgabenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTelotec_AbgabenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTelotec_AbgabenRow 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 tblTelotec_AnmeldungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTelotec_AnmeldungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTelotec_AnmeldungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTelotec_AnmeldungRow 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 tblTelotec_PackstueckeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTelotec_PackstueckeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTelotec_PackstueckeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTelotec_PackstueckeRow 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 tblTelotec_ParamterRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTelotec_ParamterRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTelotec_ParamterRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTelotec_ParamterRow 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 tblTelotec_PositionsdatenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTelotec_PositionsdatenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTelotec_PositionsdatenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTelotec_PositionsdatenRow 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 tblTelotec_PositionsdatenAbgabenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTelotec_PositionsdatenAbgabenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTelotec_PositionsdatenAbgabenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTelotec_PositionsdatenAbgabenRow 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 tblTelotec_PositionsdatenDokumenteRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTelotec_PositionsdatenDokumenteRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTelotec_PositionsdatenDokumenteRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTelotec_PositionsdatenDokumenteRow 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 tblTelotec_SicherheitRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTelotec_SicherheitRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTelotec_SicherheitRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTelotec_SicherheitRow 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 tblTestRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTestRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTestRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTestRow 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 tblTextkonserveRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTextkonserveRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTextkonserveRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTextkonserveRow 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 tblTR_AvisoRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTR_AvisoRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTR_AvisoRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTR_AvisoRow 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 tblTR_AvisoAnheangeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTR_AvisoAnheangeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTR_AvisoAnheangeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTR_AvisoAnheangeRow 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 tblTR_ShipmentRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTR_ShipmentRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTR_ShipmentRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTR_ShipmentRow 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 tblTR_Shipment_AdressenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTR_Shipment_AdressenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTR_Shipment_AdressenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTR_Shipment_AdressenRow 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 tblTR_Shipment_DocumentRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTR_Shipment_DocumentRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTR_Shipment_DocumentRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTR_Shipment_DocumentRow 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 tblTR_Shipment_PositionRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTR_Shipment_PositionRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTR_Shipment_PositionRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTR_Shipment_PositionRow 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 tblTR_Shipment_Position_DocumentRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTR_Shipment_Position_DocumentRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTR_Shipment_Position_DocumentRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTR_Shipment_Position_DocumentRow 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 tblTranslateRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTranslateRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTranslateRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTranslateRow 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 tblTranslateAutoRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTranslateAutoRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTranslateAutoRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTranslateAutoRow 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 tblTrdinHeaderRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTrdinHeaderRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTrdinHeaderRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTrdinHeaderRow 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 tblTrdinInvoiceRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTrdinInvoiceRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTrdinInvoiceRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTrdinInvoiceRow 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 tblTrdinProductRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblTrdinProductRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblTrdinProductRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblTrdinProductRow 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 tblUIDPruefungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUIDPruefungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUIDPruefungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUIDPruefungRow 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 tblUStVAntragRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUStVAntragRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUStVAntragRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUStVAntragRow 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 tblUStVBelegeingangRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUStVBelegeingangRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUStVBelegeingangRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUStVBelegeingangRow 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 tblUStVErstattungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUStVErstattungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUStVErstattungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUStVErstattungRow 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 tblUStVFormulareRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUStVFormulareRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUStVFormulareRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUStVFormulareRow 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 tblUStVKuLäFoRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUStVKuLäFoRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUStVKuLäFoRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUStVKuLäFoRow 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 tblUStVLäFoRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUStVLäFoRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUStVLäFoRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUStVLäFoRow 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 tblUStVLeistenderRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUStVLeistenderRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUStVLeistenderRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUStVLeistenderRow 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 tblUStVPositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUStVPositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUStVPositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUStVPositionenRow 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 tblUStVTexteRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUStVTexteRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUStVTexteRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUStVTexteRow 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 tblUTAArchivRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUTAArchivRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUTAArchivRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUTAArchivRow 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 tblUTAFakturierwarenartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUTAFakturierwarenartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUTAFakturierwarenartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUTAFakturierwarenartenRow 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 tblUTAHeaderRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUTAHeaderRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUTAHeaderRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUTAHeaderRow 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 tblUTAHeaderNewRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUTAHeaderNewRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUTAHeaderNewRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUTAHeaderNewRow 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 tblUTAImportRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUTAImportRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUTAImportRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUTAImportRow 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 tblUTAImportNewRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUTAImportNewRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUTAImportNewRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUTAImportNewRow 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 tblUTALeistungenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUTALeistungenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUTALeistungenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUTALeistungenRow 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 tblUTATrailerRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUTATrailerRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUTATrailerRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUTATrailerRow 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 tblUTATrailerNewRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblUTATrailerNewRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblUTATrailerNewRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblUTATrailerNewRow 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 tblVermarktungsnormenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblVermarktungsnormenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblVermarktungsnormenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblVermarktungsnormenRow 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 tblVermarktungsnormenGebuehrenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblVermarktungsnormenGebuehrenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblVermarktungsnormenGebuehrenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblVermarktungsnormenGebuehrenRow 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 tblVorauskassenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblVorauskassenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblVorauskassenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblVorauskassenRow 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 tblWahrungtabelleNEURowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblWahrungtabelleNEURow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblWahrungtabelleNEURow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblWahrungtabelleNEURow 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 tblWarenbezeichnungBegriffeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblWarenbezeichnungBegriffeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblWarenbezeichnungBegriffeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblWarenbezeichnungBegriffeRow 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 tblZabis_Atlas_NCTSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblZabis_Atlas_NCTSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblZabis_Atlas_NCTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblZabis_Atlas_NCTSRow 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 tblZahlungszieltexteRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblZahlungszieltexteRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblZahlungszieltexteRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblZahlungszieltexteRow 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 tblZolaris_EZoll_NCTSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblZolaris_EZoll_NCTSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblZolaris_EZoll_NCTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblZolaris_EZoll_NCTSRow 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 tblZOLL_WechselkurseRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblZOLL_WechselkurseRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblZOLL_WechselkurseRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblZOLL_WechselkurseRow 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 tblZollArtikelRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblZollArtikelRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblZollArtikelRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblZollArtikelRow 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 tblZollUnterArtikelRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tblZollUnterArtikelRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tblZollUnterArtikelRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tblZollUnterArtikelRow 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 TemporaryUpsizedTable2RowChangeEvent Inherits Global.System.EventArgs Private eventRow As TemporaryUpsizedTable2Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TemporaryUpsizedTable2Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TemporaryUpsizedTable2Row 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 VerkehrszweigeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VerkehrszweigeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VerkehrszweigeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VerkehrszweigeRow 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 VermerkeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VermerkeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VermerkeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VermerkeRow 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 VorkostenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VorkostenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VorkostenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VorkostenRow 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 WährungstabelleRowChangeEvent Inherits Global.System.EventArgs Private eventRow As WährungstabelleRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As WährungstabelleRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As WährungstabelleRow 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 ZahlungsartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As ZahlungsartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As ZahlungsartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As ZahlungsartenRow 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 zbadzRowChangeEvent Inherits Global.System.EventArgs Private eventRow As zbadzRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As zbadzRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As zbadzRow 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 zbantRowChangeEvent Inherits Global.System.EventArgs Private eventRow As zbantRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As zbantRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As zbantRow 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 zbapoRowChangeEvent Inherits Global.System.EventArgs Private eventRow As zbapoRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As zbapoRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As zbapoRow 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 zbposRowChangeEvent Inherits Global.System.EventArgs Private eventRow As zbposRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As zbposRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As zbposRow 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 ZkteingRowChangeEvent Inherits Global.System.EventArgs Private eventRow As ZkteingRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As ZkteingRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As ZkteingRow 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 ZollsystemeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As ZollsystemeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As ZollsystemeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As ZollsystemeRow 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 Zulassungen_ZnVRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Zulassungen_ZnVRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Zulassungen_ZnVRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Zulassungen_ZnVRow 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 vwKundenstammRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwKundenstammRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwKundenstammRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwKundenstammRow 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 vwReErfAuswahlRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwReErfAuswahlRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwReErfAuswahlRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwReErfAuswahlRow 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 vwTrdinHeaderRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwTrdinHeaderRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwTrdinHeaderRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwTrdinHeaderRow 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 vwTrdinInvoiceRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwTrdinInvoiceRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwTrdinInvoiceRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwTrdinInvoiceRow 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 vwTrdinProductRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwTrdinProductRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwTrdinProductRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwTrdinProductRow 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 vwUStV_OP_RisikoberichtRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwUStV_OP_RisikoberichtRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwUStV_OP_RisikoberichtRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwUStV_OP_RisikoberichtRow 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 vwUStVAntragRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwUStVAntragRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwUStVAntragRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwUStVAntragRow 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 vwUStVBelegeingangRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwUStVBelegeingangRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwUStVBelegeingangRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwUStVBelegeingangRow 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 vwUStVErstattungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwUStVErstattungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwUStVErstattungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwUStVErstattungRow 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 vwUStVPositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwUStVPositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwUStVPositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwUStVPositionenRow 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 vwUStVVorauszahlungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwUStVVorauszahlungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwUStVVorauszahlungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwUStVVorauszahlungRow 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1RowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1Row 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newRow 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2RowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2Row 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 vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRowChangeEvent Inherits Global.System.EventArgs Private eventRow As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newRow 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 spAlleTabellenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spAlleTabellenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spAlleTabellenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spAlleTabellenRow 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 spReDruReNrVergebenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spReDruReNrVergebenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spReDruReNrVergebenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spReDruReNrVergebenRow 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 spReDruSchnSaReDruckinfoEintragenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spReDruSchnSaReDruckinfoEintragenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spReDruSchnSaReDruckinfoEintragenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spReDruSchnSaReDruckinfoEintragenRow 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 spReDruSchnSaReNrEintragenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spReDruSchnSaReNrEintragenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spReDruSchnSaReNrEintragenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spReDruSchnSaReNrEintragenRow 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 spReverseChargeSummeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spReverseChargeSummeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spReverseChargeSummeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spReverseChargeSummeRow 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 spSELECT_Bankspesen_für_KundenNrRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECT_Bankspesen_für_KundenNrRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECT_Bankspesen_für_KundenNrRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECT_Bankspesen_für_KundenNrRow 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 spSELECT_tblZabis_Atlas_NCTSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECT_tblZabis_Atlas_NCTSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECT_tblZabis_Atlas_NCTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECT_tblZabis_Atlas_NCTSRow 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 spSELECTAufschubdatenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTAufschubdatenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTAufschubdatenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTAufschubdatenRow 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 spSELECTRechnungsausgangRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTRechnungsausgangRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTRechnungsausgangRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTRechnungsausgangRow 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 spSELECTRechnungsausgangPositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTRechnungsausgangPositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTRechnungsausgangPositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTRechnungsausgangPositionenRow 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 spSELECTRechnungsnummernRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTRechnungsnummernRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTRechnungsnummernRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTRechnungsnummernRow 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 spSelectReDruSaReRKAvisoIDRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectReDruSaReRKAvisoIDRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectReDruSaReRKAvisoIDRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectReDruSaReRKAvisoIDRow 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 spSELECTReDruSaReRKgruppierenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTReDruSaReRKgruppierenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTReDruSaReRKgruppierenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTReDruSaReRKgruppierenRow 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 spSelectReDruSchnBB_RKRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectReDruSchnBB_RKRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectReDruSchnBB_RKRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectReDruSchnBB_RKRow 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 spSelectReDruSchnKundeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectReDruSchnKundeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectReDruSchnKundeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectReDruSchnKundeRow 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 spSelectReDruSchnSumBS415RowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectReDruSchnSumBS415Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectReDruSchnSumBS415Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectReDruSchnSumBS415Row 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 spSelectReDruSchnTextZollbelegePrüfenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectReDruSchnTextZollbelegePrüfenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectReDruSchnTextZollbelegePrüfenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectReDruSchnTextZollbelegePrüfenRow 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 spSELECTReDruSumReGuRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTReDruSumReGuRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTReDruSumReGuRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTReDruSumReGuRow 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 spSELECTReDruTextRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTReDruTextRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTReDruTextRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTReDruTextRow 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 spSelectReErfAuswahlRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectReErfAuswahlRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectReErfAuswahlRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectReErfAuswahlRow 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 spSELECTReErfKARowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTReErfKARow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTReErfKARow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTReErfKARow 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 spSelectRKRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectRKRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectRKRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectRKRow 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 spSelectRKPKeyRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectRKPKeyRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectRKPKeyRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectRKPKeyRow 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 spSelectRPRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectRPRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectRPRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectRPRow 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 spSelectRPFKeyRKRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectRPFKeyRKRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectRPFKeyRKRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectRPFKeyRKRow 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 spSelectRPPKeyRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSelectRPPKeyRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSelectRPPKeyRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSelectRPPKeyRow 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 spSELECTtblAnmeldungPKeyRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblAnmeldungPKeyRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblAnmeldungPKeyRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblAnmeldungPKeyRow 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 spSELECTtblQS_AbfertigungsartenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblQS_AbfertigungsartenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblQS_AbfertigungsartenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblQS_AbfertigungsartenRow 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 spSELECTtblQS_AufträgeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblQS_AufträgeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblQS_AufträgeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblQS_AufträgeRow 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 spSELECTtblQS_AuftragspositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblQS_AuftragspositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblQS_AuftragspositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblQS_AuftragspositionenRow 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 spSELECTtblTrdinHeaderRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblTrdinHeaderRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblTrdinHeaderRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblTrdinHeaderRow 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 spSELECTtblTrdinInvoiceRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblTrdinInvoiceRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblTrdinInvoiceRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblTrdinInvoiceRow 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 spSELECTtblTrdinProductRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblTrdinProductRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblTrdinProductRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblTrdinProductRow 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 spSELECTtblUStVAntragRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblUStVAntragRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblUStVAntragRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblUStVAntragRow 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 spSELECTtblUStVBelegeingangRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblUStVBelegeingangRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblUStVBelegeingangRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblUStVBelegeingangRow 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 spSELECTtblUStVErstattungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblUStVErstattungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblUStVErstattungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblUStVErstattungRow 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 spSELECTtblUStVPositionenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblUStVPositionenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblUStVPositionenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblUStVPositionenRow 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 spSELECTtblZolaris_EZoll_NCTSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTtblZolaris_EZoll_NCTSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTtblZolaris_EZoll_NCTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTtblZolaris_EZoll_NCTSRow 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 spSELECTUStVErstattungsschreibenRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTUStVErstattungsschreibenRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTUStVErstattungsschreibenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTUStVErstattungsschreibenRow 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 spSELECTUStVErstattungsschreiben2RowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTUStVErstattungsschreiben2Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTUStVErstattungsschreiben2Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTUStVErstattungsschreiben2Row 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 spSELECTZkteingRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spSELECTZkteingRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spSELECTZkteingRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spSELECTZkteingRow 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 spTrdinFiBuSelectInvoiceRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spTrdinFiBuSelectInvoiceRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spTrdinFiBuSelectInvoiceRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spTrdinFiBuSelectInvoiceRow 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 spTrdinFiBuSelectProductRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spTrdinFiBuSelectProductRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spTrdinFiBuSelectProductRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spTrdinFiBuSelectProductRow 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 spTrdinSchreibenSelectInvoicePKeyRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spTrdinSchreibenSelectInvoicePKeyRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spTrdinSchreibenSelectInvoicePKeyRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spTrdinSchreibenSelectInvoicePKeyRow 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 spTrdinSchreibenSelectProductFKeyInvoiceRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spTrdinSchreibenSelectProductFKeyInvoiceRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spTrdinSchreibenSelectProductFKeyInvoiceRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spTrdinSchreibenSelectProductFKeyInvoiceRow 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 spTrdinSchreibenSelectProductPKeyRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spTrdinSchreibenSelectProductPKeyRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spTrdinSchreibenSelectProductPKeyRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spTrdinSchreibenSelectProductPKeyRow 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 spUStVAntragLesenParameterPKeyRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spUStVAntragLesenParameterPKeyRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spUStVAntragLesenParameterPKeyRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spUStVAntragLesenParameterPKeyRow 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 spUStVBelegeingangLesenParameterPKeyRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spUStVBelegeingangLesenParameterPKeyRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spUStVBelegeingangLesenParameterPKeyRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spUStVBelegeingangLesenParameterPKeyRow 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 spUStVErstattungLesenParameterPKeyRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spUStVErstattungLesenParameterPKeyRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spUStVErstattungLesenParameterPKeyRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spUStVErstattungLesenParameterPKeyRow 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 spUStVPositionenLesenParameterPKeyRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spUStVPositionenLesenParameterPKeyRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spUStVPositionenLesenParameterPKeyRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spUStVPositionenLesenParameterPKeyRow 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 spUStVRechnungÜbernehmenMSERowChangeEvent Inherits Global.System.EventArgs Private eventRow As spUStVRechnungÜbernehmenMSERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spUStVRechnungÜbernehmenMSERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spUStVRechnungÜbernehmenMSERow 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 spUStVVorschau_IDS_SummeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spUStVVorschau_IDS_SummeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spUStVVorschau_IDS_SummeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spUStVVorschau_IDS_SummeRow 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 spUStVVorschau_IT_SummeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spUStVVorschau_IT_SummeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spUStVVorschau_IT_SummeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spUStVVorschau_IT_SummeRow 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 spUStVVorschau_MSE_SummeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spUStVVorschau_MSE_SummeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spUStVVorschau_MSE_SummeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spUStVVorschau_MSE_SummeRow 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 spUStVVorschau_UTA_SummeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spUStVVorschau_UTA_SummeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spUStVVorschau_UTA_SummeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spUStVVorschau_UTA_SummeRow 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 spUStVVorschau_VERAG_SummeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spUStVVorschau_VERAG_SummeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spUStVVorschau_VERAG_SummeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spUStVVorschau_VERAG_SummeRow 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 spZolaris_EZoll_NCTS_DatenbereitstellungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As spZolaris_EZoll_NCTS_DatenbereitstellungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As spZolaris_EZoll_NCTS_DatenbereitstellungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As spZolaris_EZoll_NCTS_DatenbereitstellungRow 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 VERAGDataSetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class AbfertigungsartenTableAdapter 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 = "Abfertigungsarten" tableMapping.ColumnMappings.Add("Abfertigungsart", "Abfertigungsart") tableMapping.ColumnMappings.Add("Abfertigungsbezeichnung", "Abfertigungsbezeichnung") tableMapping.ColumnMappings.Add("EpSbVl", "EpSbVl") tableMapping.ColumnMappings.Add("EpSbSgutKompl", "EpSbSgutKompl") tableMapping.ColumnMappings.Add("EpSbBl", "EpSbBl") tableMapping.ColumnMappings.Add("isAbfertigung", "isAbfertigung") tableMapping.ColumnMappings.Add("AbfertigungsbezeichnungLang", "AbfertigungsbezeichnungLang") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Abfertigungsarten] WHERE (([Abfertigungsart] = @Original_Abfer"& _ "tigungsart) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Abfertigungsarten] ([Abfertigungsart], [Abfertigungsbezeichnun"& _ "g], [EpSbVl], [EpSbSgutKompl], [EpSbBl], [isAbfertigung], [Abfertigungsbezeichnu"& _ "ngLang]) VALUES (@Abfertigungsart, @Abfertigungsbezeichnung, @EpSbVl, @EpSbSgutK"& _ "ompl, @EpSbBl, @isAbfertigung, @AbfertigungsbezeichnungLang);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Abfertigun"& _ "gsart, Abfertigungsbezeichnung, EpSbVl, EpSbSgutKompl, EpSbBl, isAbfertigung, Ab"& _ "fertigungsbezeichnungLang, SSMA_TimeStamp FROM Abfertigungsarten WHERE (Abfertig"& _ "ungsart = @Abfertigungsart)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EpSbVl", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EpSbVl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EpSbSgutKompl", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EpSbSgutKompl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EpSbBl", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EpSbBl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@isAbfertigung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "isAbfertigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsbezeichnungLang", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsbezeichnungLang", 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].[Abfertigungsarten] SET [Abfertigungsart] = @Abfertigungsart, [Abfer"& _ "tigungsbezeichnung] = @Abfertigungsbezeichnung, [EpSbVl] = @EpSbVl, [EpSbSgutKom"& _ "pl] = @EpSbSgutKompl, [EpSbBl] = @EpSbBl, [isAbfertigung] = @isAbfertigung, [Abf"& _ "ertigungsbezeichnungLang] = @AbfertigungsbezeichnungLang WHERE (([Abfertigungsar"& _ "t] = @Original_Abfertigungsart) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp"& _ "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Abfertigungsart, Abfertigungsbezeichnung, EpSbVl, EpSbSgutKompl, EpS"& _ "bBl, isAbfertigung, AbfertigungsbezeichnungLang, SSMA_TimeStamp FROM Abfertigung"& _ "sarten WHERE (Abfertigungsart = @Abfertigungsart)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EpSbVl", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EpSbVl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EpSbSgutKompl", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EpSbSgutKompl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EpSbBl", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EpSbBl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@isAbfertigung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "isAbfertigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsbezeichnungLang", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsbezeichnungLang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Abfertigungsart, Abfertigungsbezeichnung, EpSbVl, EpSbSgutKompl, EpSbBl, i"& _ "sAbfertigung, AbfertigungsbezeichnungLang, SSMA_TimeStamp FROM dbo.Abfertigungsa"& _ "rten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.AbfertigungsartenDataTable) 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 VERAGDataSet.AbfertigungsartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.AbfertigungsartenDataTable = New VERAGDataSet.AbfertigungsartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.AbfertigungsartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Abfertigungsarten") 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_Abfertigungsart As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Abfertigungsart,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Abfertigungsart As Short, ByVal Abfertigungsbezeichnung As String, ByVal EpSbVl As Global.System.Nullable(Of Boolean), ByVal EpSbSgutKompl As Global.System.Nullable(Of Boolean), ByVal EpSbBl As Global.System.Nullable(Of Boolean), ByVal isAbfertigung As Global.System.Nullable(Of Boolean), ByVal AbfertigungsbezeichnungLang As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Abfertigungsart,Short) If (Abfertigungsbezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Abfertigungsbezeichnung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Abfertigungsbezeichnung,String) End If If (EpSbVl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(EpSbVl.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (EpSbSgutKompl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(EpSbSgutKompl.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (EpSbBl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(EpSbBl.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (isAbfertigung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(isAbfertigung.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (AbfertigungsbezeichnungLang Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(AbfertigungsbezeichnungLang,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 Abfertigungsart As Short, ByVal Abfertigungsbezeichnung As String, ByVal EpSbVl As Global.System.Nullable(Of Boolean), ByVal EpSbSgutKompl As Global.System.Nullable(Of Boolean), ByVal EpSbBl As Global.System.Nullable(Of Boolean), ByVal isAbfertigung As Global.System.Nullable(Of Boolean), ByVal AbfertigungsbezeichnungLang As String, ByVal Original_Abfertigungsart As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Abfertigungsart,Short) If (Abfertigungsbezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Abfertigungsbezeichnung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Abfertigungsbezeichnung,String) End If If (EpSbVl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EpSbVl.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (EpSbSgutKompl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EpSbSgutKompl.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (EpSbBl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EpSbBl.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (isAbfertigung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(isAbfertigung.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (AbfertigungsbezeichnungLang Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(AbfertigungsbezeichnungLang,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Abfertigungsart,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Abfertigungsbezeichnung As String, ByVal EpSbVl As Global.System.Nullable(Of Boolean), ByVal EpSbSgutKompl As Global.System.Nullable(Of Boolean), ByVal EpSbBl As Global.System.Nullable(Of Boolean), ByVal isAbfertigung As Global.System.Nullable(Of Boolean), ByVal AbfertigungsbezeichnungLang As String, ByVal Original_Abfertigungsart As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Abfertigungsart, Abfertigungsbezeichnung, EpSbVl, EpSbSgutKompl, EpSbBl, isAbfertigung, AbfertigungsbezeichnungLang, Original_Abfertigungsart, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Abfertigungskosten_der_KorrespondentenTableAdapter 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 = "Abfertigungskosten der Korrespondenten" tableMapping.ColumnMappings.Add("KorrespondentenNr", "KorrespondentenNr") tableMapping.ColumnMappings.Add("Abfertigungsart", "Abfertigungsart") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Abfertigungskosten der Korrespondenten] WHERE (([Korrespondent"& _ "enNr] = @Original_KorrespondentenNr) AND ([Abfertigungsart] = @Original_Abfertig"& _ "ungsart) AND ([LeistungsNr] = @Original_LeistungsNr) AND ([LeistungsBez] = @Orig"& _ "inal_LeistungsBez) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Abfertigungskosten der Korrespondenten] ([KorrespondentenNr], "& _ "[Abfertigungsart], [LeistungsNr], [LeistungsBez], [Preis]) VALUES (@Korresponden"& _ "tenNr, @Abfertigungsart, @LeistungsNr, @LeistungsBez, @Preis);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Korrespon"& _ "dentenNr, Abfertigungsart, LeistungsNr, LeistungsBez, Preis, SSMA_TimeStamp FROM"& _ " [Abfertigungskosten der Korrespondenten] WHERE (Abfertigungsart = @Abfertigungs"& _ "art) AND (KorrespondentenNr = @KorrespondentenNr) AND (LeistungsBez = @Leistungs"& _ "Bez) AND (LeistungsNr = @LeistungsNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", 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].[Abfertigungskosten der Korrespondenten] SET [KorrespondentenNr] = @"& _ "KorrespondentenNr, [Abfertigungsart] = @Abfertigungsart, [LeistungsNr] = @Leistu"& _ "ngsNr, [LeistungsBez] = @LeistungsBez, [Preis] = @Preis WHERE (([Korrespondenten"& _ "Nr] = @Original_KorrespondentenNr) AND ([Abfertigungsart] = @Original_Abfertigun"& _ "gsart) AND ([LeistungsNr] = @Original_LeistungsNr) AND ([LeistungsBez] = @Origin"& _ "al_LeistungsBez) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Kor"& _ "respondentenNr, Abfertigungsart, LeistungsNr, LeistungsBez, Preis, SSMA_TimeStam"& _ "p FROM [Abfertigungskosten der Korrespondenten] WHERE (Abfertigungsart = @Abfert"& _ "igungsart) AND (KorrespondentenNr = @KorrespondentenNr) AND (LeistungsBez = @Lei"& _ "stungsBez) AND (LeistungsNr = @LeistungsNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KorrespondentenNr, Abfertigungsart, LeistungsNr, LeistungsBez, Preis, SSMA"& _ "_TimeStamp FROM dbo.[Abfertigungskosten der Korrespondenten]" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.Abfertigungskosten_der_KorrespondentenDataTable) 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 VERAGDataSet.Abfertigungskosten_der_KorrespondentenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.Abfertigungskosten_der_KorrespondentenDataTable = New VERAGDataSet.Abfertigungskosten_der_KorrespondentenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.Abfertigungskosten_der_KorrespondentenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Abfertigungskosten der Korrespondenten") 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_KorrespondentenNr As Integer, ByVal Original_Abfertigungsart As Short, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KorrespondentenNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Abfertigungsart,Short) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_LeistungsBez,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 KorrespondentenNr As Integer, ByVal Abfertigungsart As Short, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Preis As Decimal) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KorrespondentenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Abfertigungsart,Short) Me.Adapter.InsertCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(LeistungsBez,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(Preis,Decimal) 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 KorrespondentenNr As Integer, ByVal Abfertigungsart As Short, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Preis As Decimal, ByVal Original_KorrespondentenNr As Integer, ByVal Original_Abfertigungsart As Short, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KorrespondentenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Abfertigungsart,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LeistungsBez,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Preis,Decimal) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_KorrespondentenNr,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Abfertigungsart,Short) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_LeistungsBez,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Preis As Decimal, ByVal Original_KorrespondentenNr As Integer, ByVal Original_Abfertigungsart As Short, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_KorrespondentenNr, Original_Abfertigungsart, Original_LeistungsNr, Original_LeistungsBez, Preis, Original_KorrespondentenNr, Original_Abfertigungsart, Original_LeistungsNr, Original_LeistungsBez, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class AbfertigungsLaenderTableAdapter 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 = "AbfertigungsLaender" tableMapping.ColumnMappings.Add("AbfertigungsLand", "AbfertigungsLand") tableMapping.ColumnMappings.Add("Firma", "Firma") tableMapping.ColumnMappings.Add("Cluster", "Cluster") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[AbfertigungsLaender] ([AbfertigungsLand], [Firma], [Cluster]) "& _ "VALUES (@AbfertigungsLand, @Firma, @Cluster)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsLand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cluster", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Cluster", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 AbfertigungsLand, Firma, Cluster FROM dbo.AbfertigungsLaender" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.AbfertigungsLaenderDataTable) 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 VERAGDataSet.AbfertigungsLaenderDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.AbfertigungsLaenderDataTable = New VERAGDataSet.AbfertigungsLaenderDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.AbfertigungsLaenderDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "AbfertigungsLaender") 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 Insert(ByVal AbfertigungsLand As String, ByVal Firma As String, ByVal Cluster As String) As Integer If (AbfertigungsLand Is Nothing) Then Throw New Global.System.ArgumentNullException("AbfertigungsLand") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(AbfertigungsLand,String) End If If (Firma Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Firma,String) End If If (Cluster Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Cluster,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class AbfertigungsLaenderAbfertigungsartenTableAdapter 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 = "AbfertigungsLaenderAbfertigungsarten" tableMapping.ColumnMappings.Add("AbfertigungsLand", "AbfertigungsLand") tableMapping.ColumnMappings.Add("Abfertigungsart", "Abfertigungsart") 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].[AbfertigungsLaenderAbfertigungsarten] WHERE (([AbfertigungsLan"& _ "d] = @Original_AbfertigungsLand) AND ([Abfertigungsart] = @Original_Abfertigungs"& _ "art))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AbfertigungsLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsLand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", 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].[AbfertigungsLaenderAbfertigungsarten] ([AbfertigungsLand], [Ab"& _ "fertigungsart]) VALUES (@AbfertigungsLand, @Abfertigungsart);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Abfertigun"& _ "gsLand, Abfertigungsart FROM AbfertigungsLaenderAbfertigungsarten WHERE (Abferti"& _ "gungsLand = @AbfertigungsLand) AND (Abfertigungsart = @Abfertigungsart)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsLand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", 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].[AbfertigungsLaenderAbfertigungsarten] SET [AbfertigungsLand] = @Abf"& _ "ertigungsLand, [Abfertigungsart] = @Abfertigungsart WHERE (([AbfertigungsLand] ="& _ " @Original_AbfertigungsLand) AND ([Abfertigungsart] = @Original_Abfertigungsart)"& _ ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AbfertigungsLand, Abfertigungsart FROM AbfertigungsLaenderAbfertigung"& _ "sarten WHERE (AbfertigungsLand = @AbfertigungsLand) AND (Abfertigungsart = @Abfe"& _ "rtigungsart)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsLand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AbfertigungsLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsLand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 AbfertigungsLand, Abfertigungsart FROM dbo.AbfertigungsLaenderAbfertigungs"& _ "arten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.AbfertigungsLaenderAbfertigungsartenDataTable) 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 VERAGDataSet.AbfertigungsLaenderAbfertigungsartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.AbfertigungsLaenderAbfertigungsartenDataTable = New VERAGDataSet.AbfertigungsLaenderAbfertigungsartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.AbfertigungsLaenderAbfertigungsartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "AbfertigungsLaenderAbfertigungsarten") 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_AbfertigungsLand As String, ByVal Original_Abfertigungsart As Short) As Integer If (Original_AbfertigungsLand Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_AbfertigungsLand") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AbfertigungsLand,String) End If Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Abfertigungsart,Short) 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 AbfertigungsLand As String, ByVal Abfertigungsart As Short) As Integer If (AbfertigungsLand Is Nothing) Then Throw New Global.System.ArgumentNullException("AbfertigungsLand") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(AbfertigungsLand,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(Abfertigungsart,Short) 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 AbfertigungsLand As String, ByVal Abfertigungsart As Short, ByVal Original_AbfertigungsLand As String, ByVal Original_Abfertigungsart As Short) As Integer If (AbfertigungsLand Is Nothing) Then Throw New Global.System.ArgumentNullException("AbfertigungsLand") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AbfertigungsLand,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Abfertigungsart,Short) If (Original_AbfertigungsLand Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_AbfertigungsLand") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_AbfertigungsLand,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Abfertigungsart,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 Original_AbfertigungsLand As String, ByVal Original_Abfertigungsart As Short) As Integer Return Me.Update(Original_AbfertigungsLand, Original_Abfertigungsart, Original_AbfertigungsLand, Original_Abfertigungsart) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class AbgabenartenTableAdapter 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 = "Abgabenarten" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Abgabenart", "Abgabenart") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Abgabenarten] WHERE (([ID] = @Original_ID) AND ([SSMA_TimeStam"& _ "p] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Abgabenarten] ([ID], [Abgabenart]) VALUES (@ID, @Abgabenart);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Abgabenart, SSMA_TimeStamp FROM Abgabenarten WHERE (ID = @ID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abgabenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abgabenart", 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].[Abgabenarten] SET [ID] = @ID, [Abgabenart] = @Abgabenart WHERE (([I"& _ "D] = @Original_ID) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT I"& _ "D, Abgabenart, SSMA_TimeStamp FROM Abgabenarten WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abgabenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abgabenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, Abgabenart, SSMA_TimeStamp FROM dbo.Abgabenarten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.AbgabenartenDataTable) 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 VERAGDataSet.AbgabenartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.AbgabenartenDataTable = New VERAGDataSet.AbgabenartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.AbgabenartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Abgabenarten") 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_ID As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ID") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 ID As String, ByVal Abgabenart As String) As Integer If (ID Is Nothing) Then Throw New Global.System.ArgumentNullException("ID") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,String) End If If (Abgabenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Abgabenart") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Abgabenart,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 ID As String, ByVal Abgabenart As String, ByVal Original_ID As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (ID Is Nothing) Then Throw New Global.System.ArgumentNullException("ID") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,String) End If If (Abgabenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Abgabenart") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Abgabenart,String) End If If (Original_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ID") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ID,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Abgabenart As String, ByVal Original_ID As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_ID, Abgabenart, Original_ID, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class AdressenTableAdapter 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 = "Adressen" tableMapping.ColumnMappings.Add("Auswahl", "Auswahl") tableMapping.ColumnMappings.Add("AdressenNr", "AdressenNr") tableMapping.ColumnMappings.Add("Ordnungsbegriff", "Ordnungsbegriff") tableMapping.ColumnMappings.Add("Name 1", "Name 1") tableMapping.ColumnMappings.Add("Name 2", "Name 2") tableMapping.ColumnMappings.Add("Postfach", "Postfach") tableMapping.ColumnMappings.Add("PLZPF", "PLZPF") tableMapping.ColumnMappings.Add("Straße", "Straße") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("PLZ", "PLZ") tableMapping.ColumnMappings.Add("Ort", "Ort") tableMapping.ColumnMappings.Add("Telefon", "Telefon") tableMapping.ColumnMappings.Add("Telefax", "Telefax") tableMapping.ColumnMappings.Add("Mobiltelefon", "Mobiltelefon") tableMapping.ColumnMappings.Add("E-Mail", "E-Mail") tableMapping.ColumnMappings.Add("E-Mail2", "E-Mail2") tableMapping.ColumnMappings.Add("Anrede", "Anrede") tableMapping.ColumnMappings.Add("Ansprechpartner", "Ansprechpartner") tableMapping.ColumnMappings.Add("UstIdKz", "UstIdKz") tableMapping.ColumnMappings.Add("UstIdNr", "UstIdNr") tableMapping.ColumnMappings.Add("UstIdGeprüft", "UstIdGeprüft") tableMapping.ColumnMappings.Add("BLZ", "BLZ") tableMapping.ColumnMappings.Add("KTO", "KTO") tableMapping.ColumnMappings.Add("Eingegeben am", "Eingegeben am") tableMapping.ColumnMappings.Add("Geändert am", "Geändert am") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Rechnungsdruck", "Rechnungsdruck") tableMapping.ColumnMappings.Add("Steuernummer", "Steuernummer") tableMapping.ColumnMappings.Add("IDSKundenNr", "IDSKundenNr") tableMapping.ColumnMappings.Add("WölflKundenNr", "WölflKundenNr") tableMapping.ColumnMappings.Add("MSEKundenNr", "MSEKundenNr") tableMapping.ColumnMappings.Add("MSEExportCSV", "MSEExportCSV") tableMapping.ColumnMappings.Add("TELEPASS-Kd-Nr", "TELEPASS-Kd-Nr") tableMapping.ColumnMappings.Add("ASFINAGExportCSV", "ASFINAGExportCSV") tableMapping.ColumnMappings.Add("UStV_GVAnfDat", "UStV_GVAnfDat") tableMapping.ColumnMappings.Add("UStV_GVAusDat", "UStV_GVAusDat") tableMapping.ColumnMappings.Add("ExportMautberichtCSV", "ExportMautberichtCSV") tableMapping.ColumnMappings.Add("UTAKundenNr", "UTAKundenNr") tableMapping.ColumnMappings.Add("UTAExportCSV", "UTAExportCSV") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("MWSTVorauszahlung", "MWSTVorauszahlung") tableMapping.ColumnMappings.Add("PLOSEKundenNr", "PLOSEKundenNr") 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].[Adressen] WHERE (([AdressenNr] = @Original_AdressenNr) AND ([S"& _ "SMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdressenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdressenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Adressen] ([Auswahl], [AdressenNr], [Ordnungsbegriff], [Name 1"& _ "], [Name 2], [Postfach], [PLZPF], [Straße], [LandKz], [PLZ], [Ort], [Telefon], ["& _ "Telefax], [Mobiltelefon], [E-Mail], [E-Mail2], [Anrede], [Ansprechpartner], [Ust"& _ "IdKz], [UstIdNr], [UstIdGeprüft], [BLZ], [KTO], [Eingegeben am], [Geändert am], "& _ "[Sachbearbeiter], [Rechnungsdruck], [Steuernummer], [IDSKundenNr], [WölflKundenN"& _ "r], [MSEKundenNr], [MSEExportCSV], [TELEPASS-Kd-Nr], [ASFINAGExportCSV], [UStV_G"& _ "VAnfDat], [UStV_GVAusDat], [ExportMautberichtCSV], [UTAKundenNr], [UTAExportCSV]"& _ ", [MWSTVorauszahlung], [PLOSEKundenNr]) VALUES (@Auswahl, @AdressenNr, @Ordnungs"& _ "begriff, @Name_1, @Name_2, @Postfach, @PLZPF, @Straße, @LandKz, @PLZ, @Ort, @Tel"& _ "efon, @Telefax, @Mobiltelefon, @p1, @p4, @Anrede, @Ansprechpartner, @UstIdKz, @U"& _ "stIdNr, @UstIdGeprüft, @BLZ, @KTO, @Eingegeben_am, @Geändert_am, @Sachbearbeiter"& _ ", @Rechnungsdruck, @Steuernummer, @IDSKundenNr, @WölflKundenNr, @MSEKundenNr, @M"& _ "SEExportCSV, @p7, @ASFINAGExportCSV, @UStV_GVAnfDat, @UStV_GVAusDat, @ExportMaut"& _ "berichtCSV, @UTAKundenNr, @UTAExportCSV, @MWSTVorauszahlung, @PLOSEKundenNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT Auswahl, AdressenNr, Ordnungsbegriff, [Name 1], [Name 2], Postfach, PLZPF,"& _ " Straße, LandKz, PLZ, Ort, Telefon, Telefax, Mobiltelefon, [E-Mail], [E-Mail2], "& _ "Anrede, Ansprechpartner, UstIdKz, UstIdNr, UstIdGeprüft, BLZ, KTO, [Eingegeben a"& _ "m], [Geändert am], Sachbearbeiter, Rechnungsdruck, Steuernummer, IDSKundenNr, Wö"& _ "lflKundenNr, MSEKundenNr, MSEExportCSV, [TELEPASS-Kd-Nr], ASFINAGExportCSV, UStV"& _ "_GVAnfDat, UStV_GVAusDat, ExportMautberichtCSV, UTAKundenNr, UTAExportCSV, SSMA_"& _ "TimeStamp, MWSTVorauszahlung, PLOSEKundenNr FROM Adressen WHERE (AdressenNr = @A"& _ "dressenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Auswahl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Auswahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdressenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdressenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ordnungsbegriff", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ordnungsbegriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postfach", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postfach", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZPF", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZPF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telefax", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mobiltelefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mobiltelefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "E-Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "E-Mail2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anrede", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anrede", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ansprechpartner", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ansprechpartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdGeprüft", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdGeprüft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KTO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KTO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdruck", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdruck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuernummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDSKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IDSKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WölflKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WölflKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MSEKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MSEKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MSEExportCSV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MSEExportCSV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TELEPASS-Kd-Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ASFINAGExportCSV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ASFINAGExportCSV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_GVAnfDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_GVAnfDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_GVAusDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_GVAusDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExportMautberichtCSV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExportMautberichtCSV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTAKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTAKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTAExportCSV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTAExportCSV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MWSTVorauszahlung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MWSTVorauszahlung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLOSEKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLOSEKundenNr", 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].[Adressen] SET [Auswahl] = @Auswahl, [AdressenNr] = @AdressenNr, [Or"& _ "dnungsbegriff] = @Ordnungsbegriff, [Name 1] = @Name_1, [Name 2] = @Name_2, [Post"& _ "fach] = @Postfach, [PLZPF] = @PLZPF, [Straße] = @Straße, [LandKz] = @LandKz, [PL"& _ "Z] = @PLZ, [Ort] = @Ort, [Telefon] = @Telefon, [Telefax] = @Telefax, [Mobiltelef"& _ "on] = @Mobiltelefon, [E-Mail] = @p1, [E-Mail2] = @p4, [Anrede] = @Anrede, [Anspr"& _ "echpartner] = @Ansprechpartner, [UstIdKz] = @UstIdKz, [UstIdNr] = @UstIdNr, [Ust"& _ "IdGeprüft] = @UstIdGeprüft, [BLZ] = @BLZ, [KTO] = @KTO, [Eingegeben am] = @Einge"& _ "geben_am, [Geändert am] = @Geändert_am, [Sachbearbeiter] = @Sachbearbeiter, [Rec"& _ "hnungsdruck] = @Rechnungsdruck, [Steuernummer] = @Steuernummer, [IDSKundenNr] = "& _ "@IDSKundenNr, [WölflKundenNr] = @WölflKundenNr, [MSEKundenNr] = @MSEKundenNr, [M"& _ "SEExportCSV] = @MSEExportCSV, [TELEPASS-Kd-Nr] = @p7, [ASFINAGExportCSV] = @ASFI"& _ "NAGExportCSV, [UStV_GVAnfDat] = @UStV_GVAnfDat, [UStV_GVAusDat] = @UStV_GVAusDat"& _ ", [ExportMautberichtCSV] = @ExportMautberichtCSV, [UTAKundenNr] = @UTAKundenNr, "& _ "[UTAExportCSV] = @UTAExportCSV, [MWSTVorauszahlung] = @MWSTVorauszahlung, [PLOSE"& _ "KundenNr] = @PLOSEKundenNr WHERE (([AdressenNr] = @Original_AdressenNr) AND ([SS"& _ "MA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Auswahl, AdressenNr, Ordnung"& _ "sbegriff, [Name 1], [Name 2], Postfach, PLZPF, Straße, LandKz, PLZ, Ort, Telefon"& _ ", Telefax, Mobiltelefon, [E-Mail], [E-Mail2], Anrede, Ansprechpartner, UstIdKz, "& _ "UstIdNr, UstIdGeprüft, BLZ, KTO, [Eingegeben am], [Geändert am], Sachbearbeiter,"& _ " Rechnungsdruck, Steuernummer, IDSKundenNr, WölflKundenNr, MSEKundenNr, MSEExpor"& _ "tCSV, [TELEPASS-Kd-Nr], ASFINAGExportCSV, UStV_GVAnfDat, UStV_GVAusDat, ExportMa"& _ "utberichtCSV, UTAKundenNr, UTAExportCSV, SSMA_TimeStamp, MWSTVorauszahlung, PLOS"& _ "EKundenNr FROM Adressen WHERE (AdressenNr = @AdressenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Auswahl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Auswahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdressenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdressenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ordnungsbegriff", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ordnungsbegriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postfach", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postfach", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZPF", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZPF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telefax", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mobiltelefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mobiltelefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "E-Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "E-Mail2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anrede", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anrede", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ansprechpartner", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ansprechpartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdGeprüft", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdGeprüft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KTO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KTO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdruck", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdruck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuernummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDSKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IDSKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WölflKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WölflKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MSEKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MSEKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MSEExportCSV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MSEExportCSV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TELEPASS-Kd-Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ASFINAGExportCSV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ASFINAGExportCSV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_GVAnfDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_GVAnfDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_GVAusDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_GVAusDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExportMautberichtCSV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExportMautberichtCSV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTAKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTAKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTAExportCSV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTAExportCSV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MWSTVorauszahlung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MWSTVorauszahlung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLOSEKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLOSEKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdressenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdressenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Auswahl, AdressenNr, Ordnungsbegriff, [Name 1], [Name 2], Postfach, PLZPF,"& _ " Straße, LandKz, PLZ, Ort, Telefon, Telefax, Mobiltelefon, [E-Mail], [E-Mail2], "& _ "Anrede, Ansprechpartner, UstIdKz, UstIdNr, UstIdGeprüft, BLZ, KTO, [Eingegeben a"& _ "m], [Geändert am], Sachbearbeiter, Rechnungsdruck, Steuernummer, IDSKundenNr, Wö"& _ "lflKundenNr, MSEKundenNr, MSEExportCSV, [TELEPASS-Kd-Nr], ASFINAGExportCSV, UStV"& _ "_GVAnfDat, UStV_GVAusDat, ExportMautberichtCSV, UTAKundenNr, UTAExportCSV, SSMA_"& _ "TimeStamp, MWSTVorauszahlung, PLOSEKundenNr FROM dbo.Adressen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.AdressenDataTable) 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 VERAGDataSet.AdressenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.AdressenDataTable = New VERAGDataSet.AdressenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.AdressenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Adressen") 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_AdressenNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AdressenNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Auswahl As String, _ ByVal AdressenNr As Integer, _ ByVal Ordnungsbegriff As String, _ ByVal Name_1 As String, _ ByVal Name_2 As String, _ ByVal Postfach As String, _ ByVal PLZPF As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal Telefon As String, _ ByVal Telefax As String, _ ByVal Mobiltelefon As String, _ ByVal p1 As String, _ ByVal p4 As String, _ ByVal Anrede As String, _ ByVal Ansprechpartner As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal UstIdGeprüft As Global.System.Nullable(Of Date), _ ByVal BLZ As String, _ ByVal KTO As String, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal Rechnungsdruck As Short, _ ByVal Steuernummer As String, _ ByVal IDSKundenNr As Global.System.Nullable(Of Integer), _ ByVal WölflKundenNr As Global.System.Nullable(Of Integer), _ ByVal MSEKundenNr As Global.System.Nullable(Of Integer), _ ByVal MSEExportCSV As Global.System.Nullable(Of Boolean), _ ByVal p7 As Global.System.Nullable(Of Integer), _ ByVal ASFINAGExportCSV As Global.System.Nullable(Of Boolean), _ ByVal UStV_GVAnfDat As Global.System.Nullable(Of Date), _ ByVal UStV_GVAusDat As Global.System.Nullable(Of Date), _ ByVal ExportMautberichtCSV As Global.System.Nullable(Of Boolean), _ ByVal UTAKundenNr As Global.System.Nullable(Of Integer), _ ByVal UTAExportCSV As Global.System.Nullable(Of Boolean), _ ByVal MWSTVorauszahlung As Global.System.Nullable(Of Boolean), _ ByVal PLOSEKundenNr As Global.System.Nullable(Of Integer)) As Integer If (Auswahl Is Nothing) Then Throw New Global.System.ArgumentNullException("Auswahl") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Auswahl,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(AdressenNr,Integer) If (Ordnungsbegriff Is Nothing) Then Throw New Global.System.ArgumentNullException("Ordnungsbegriff") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Ordnungsbegriff,String) End If If (Name_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Name_1,String) End If If (Name_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Name_2,String) End If If (Postfach Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Postfach,String) End If If (PLZPF Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(PLZPF,String) End If If (Straße Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Straße,String) End If If (LandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(LandKz,String) End If If (PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(PLZ,String) End If If (Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Ort,String) End If If (Telefon Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Telefon,String) End If If (Telefax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Telefax,String) End If If (Mobiltelefon Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Mobiltelefon,String) End If If (p1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(p1,String) End If If (p4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(p4,String) End If If (Anrede Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Anrede,String) End If If (Ansprechpartner Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Ansprechpartner,String) End If If (UstIdKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(UstIdKz,String) End If If (UstIdNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(UstIdNr,String) End If If (UstIdGeprüft.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(UstIdGeprüft.Value,Date) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (BLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(BLZ,String) End If If (KTO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(KTO,String) End If Me.Adapter.InsertCommand.Parameters(23).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(Sachbearbeiter,String) End If Me.Adapter.InsertCommand.Parameters(26).Value = CType(Rechnungsdruck,Short) If (Steuernummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(Steuernummer,String) End If If (IDSKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(IDSKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (WölflKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(29).Value = CType(WölflKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (MSEKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(MSEKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (MSEExportCSV.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(MSEExportCSV.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (p7.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(p7.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (ASFINAGExportCSV.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(ASFINAGExportCSV.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (UStV_GVAnfDat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(UStV_GVAnfDat.Value,Date) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (UStV_GVAusDat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(UStV_GVAusDat.Value,Date) Else Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (ExportMautberichtCSV.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(36).Value = CType(ExportMautberichtCSV.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (UTAKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(37).Value = CType(UTAKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (UTAExportCSV.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(38).Value = CType(UTAExportCSV.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (MWSTVorauszahlung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(39).Value = CType(MWSTVorauszahlung.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (PLOSEKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(PLOSEKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(40).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 Auswahl As String, _ ByVal AdressenNr As Integer, _ ByVal Ordnungsbegriff As String, _ ByVal Name_1 As String, _ ByVal Name_2 As String, _ ByVal Postfach As String, _ ByVal PLZPF As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal Telefon As String, _ ByVal Telefax As String, _ ByVal Mobiltelefon As String, _ ByVal p1 As String, _ ByVal p4 As String, _ ByVal Anrede As String, _ ByVal Ansprechpartner As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal UstIdGeprüft As Global.System.Nullable(Of Date), _ ByVal BLZ As String, _ ByVal KTO As String, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal Rechnungsdruck As Short, _ ByVal Steuernummer As String, _ ByVal IDSKundenNr As Global.System.Nullable(Of Integer), _ ByVal WölflKundenNr As Global.System.Nullable(Of Integer), _ ByVal MSEKundenNr As Global.System.Nullable(Of Integer), _ ByVal MSEExportCSV As Global.System.Nullable(Of Boolean), _ ByVal p7 As Global.System.Nullable(Of Integer), _ ByVal ASFINAGExportCSV As Global.System.Nullable(Of Boolean), _ ByVal UStV_GVAnfDat As Global.System.Nullable(Of Date), _ ByVal UStV_GVAusDat As Global.System.Nullable(Of Date), _ ByVal ExportMautberichtCSV As Global.System.Nullable(Of Boolean), _ ByVal UTAKundenNr As Global.System.Nullable(Of Integer), _ ByVal UTAExportCSV As Global.System.Nullable(Of Boolean), _ ByVal MWSTVorauszahlung As Global.System.Nullable(Of Boolean), _ ByVal PLOSEKundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_AdressenNr As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Auswahl Is Nothing) Then Throw New Global.System.ArgumentNullException("Auswahl") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Auswahl,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(AdressenNr,Integer) If (Ordnungsbegriff Is Nothing) Then Throw New Global.System.ArgumentNullException("Ordnungsbegriff") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Ordnungsbegriff,String) End If If (Name_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Name_1,String) End If If (Name_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Name_2,String) End If If (Postfach Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Postfach,String) End If If (PLZPF Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(PLZPF,String) End If If (Straße Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Straße,String) End If If (LandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(LandKz,String) End If If (PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(PLZ,String) End If If (Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Ort,String) End If If (Telefon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Telefon,String) End If If (Telefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Telefax,String) End If If (Mobiltelefon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Mobiltelefon,String) End If If (p1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(p1,String) End If If (p4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(p4,String) End If If (Anrede Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Anrede,String) End If If (Ansprechpartner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Ansprechpartner,String) End If If (UstIdKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(UstIdKz,String) End If If (UstIdNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(UstIdNr,String) End If If (UstIdGeprüft.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(UstIdGeprüft.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (BLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(BLZ,String) End If If (KTO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(KTO,String) End If Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Rechnungsdruck,Short) If (Steuernummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Steuernummer,String) End If If (IDSKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(IDSKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (WölflKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(WölflKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (MSEKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(MSEKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (MSEExportCSV.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(MSEExportCSV.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (p7.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(p7.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (ASFINAGExportCSV.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(ASFINAGExportCSV.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (UStV_GVAnfDat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(UStV_GVAnfDat.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (UStV_GVAusDat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(UStV_GVAusDat.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (ExportMautberichtCSV.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(ExportMautberichtCSV.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (UTAKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(UTAKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (UTAExportCSV.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(UTAExportCSV.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (MWSTVorauszahlung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(MWSTVorauszahlung.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (PLOSEKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(PLOSEKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_AdressenNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Auswahl As String, _ ByVal Ordnungsbegriff As String, _ ByVal Name_1 As String, _ ByVal Name_2 As String, _ ByVal Postfach As String, _ ByVal PLZPF As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal Telefon As String, _ ByVal Telefax As String, _ ByVal Mobiltelefon As String, _ ByVal p1 As String, _ ByVal p4 As String, _ ByVal Anrede As String, _ ByVal Ansprechpartner As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal UstIdGeprüft As Global.System.Nullable(Of Date), _ ByVal BLZ As String, _ ByVal KTO As String, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal Rechnungsdruck As Short, _ ByVal Steuernummer As String, _ ByVal IDSKundenNr As Global.System.Nullable(Of Integer), _ ByVal WölflKundenNr As Global.System.Nullable(Of Integer), _ ByVal MSEKundenNr As Global.System.Nullable(Of Integer), _ ByVal MSEExportCSV As Global.System.Nullable(Of Boolean), _ ByVal p7 As Global.System.Nullable(Of Integer), _ ByVal ASFINAGExportCSV As Global.System.Nullable(Of Boolean), _ ByVal UStV_GVAnfDat As Global.System.Nullable(Of Date), _ ByVal UStV_GVAusDat As Global.System.Nullable(Of Date), _ ByVal ExportMautberichtCSV As Global.System.Nullable(Of Boolean), _ ByVal UTAKundenNr As Global.System.Nullable(Of Integer), _ ByVal UTAExportCSV As Global.System.Nullable(Of Boolean), _ ByVal MWSTVorauszahlung As Global.System.Nullable(Of Boolean), _ ByVal PLOSEKundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_AdressenNr As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Auswahl, Original_AdressenNr, Ordnungsbegriff, Name_1, Name_2, Postfach, PLZPF, Straße, LandKz, PLZ, Ort, Telefon, Telefax, Mobiltelefon, p1, p4, Anrede, Ansprechpartner, UstIdKz, UstIdNr, UstIdGeprüft, BLZ, KTO, Eingegeben_am, Geändert_am, Sachbearbeiter, Rechnungsdruck, Steuernummer, IDSKundenNr, WölflKundenNr, MSEKundenNr, MSEExportCSV, p7, ASFINAGExportCSV, UStV_GVAnfDat, UStV_GVAusDat, ExportMautberichtCSV, UTAKundenNr, UTAExportCSV, MWSTVorauszahlung, PLOSEKundenNr, Original_AdressenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class AktivitätenlogTableAdapter 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 = "Aktivitätenlog" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("Benutzername", "Benutzername") tableMapping.ColumnMappings.Add("Aktivität", "Aktivität") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Aktivitätenlog] WHERE (([ID] = @Original_ID) AND ([SSMA_TimeSt"& _ "amp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Aktivitätenlog] ([Zeitstempel], [Benutzername], [Aktivität]) V"& _ "ALUES (@Zeitstempel, @Benutzername, @Aktivität);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Zeitstempel, Benutz"& _ "ername, Aktivität, SSMA_TimeStamp FROM Aktivitätenlog WHERE (ID = SCOPE_IDENTITY"& _ "())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aktivität", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aktivität", 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].[Aktivitätenlog] SET [Zeitstempel] = @Zeitstempel, [Benutzername] = "& _ "@Benutzername, [Aktivität] = @Aktivität WHERE (([ID] = @Original_ID) AND ([SSMA_"& _ "TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Zeitstempel, Benutzername, "& _ "Aktivität, SSMA_TimeStamp FROM Aktivitätenlog WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aktivität", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aktivität", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, Zeitstempel, Benutzername, Aktivität, SSMA_TimeStamp FROM dbo.Aktivitä"& _ "tenlog" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.AktivitätenlogDataTable) 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 VERAGDataSet.AktivitätenlogDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.AktivitätenlogDataTable = New VERAGDataSet.AktivitätenlogDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.AktivitätenlogDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Aktivitätenlog") 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_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Zeitstempel As Date, ByVal Benutzername As String, ByVal Aktivität As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Zeitstempel,Date) If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Benutzername,String) End If If (Aktivität Is Nothing) Then Throw New Global.System.ArgumentNullException("Aktivität") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Aktivität,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 Zeitstempel As Date, ByVal Benutzername As String, ByVal Aktivität As String, ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte, ByVal ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Zeitstempel,Date) If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Benutzername,String) End If If (Aktivität Is Nothing) Then Throw New Global.System.ArgumentNullException("Aktivität") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Aktivität,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_SSMA_TimeStamp,Byte()) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ID,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 Zeitstempel As Date, ByVal Benutzername As String, ByVal Aktivität As String, ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Zeitstempel, Benutzername, Aktivität, Original_ID, Original_SSMA_TimeStamp, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class AnlagenTableAdapter 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 = "Anlagen" tableMapping.ColumnMappings.Add("AnlagenBez", "AnlagenBez") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Anlagen] WHERE (([AnlagenBez] = @Original_AnlagenBez) AND ([SS"& _ "MA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AnlagenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnlagenBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Anlagen] ([AnlagenBez]) VALUES (@AnlagenBez);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AnlagenB"& _ "ez, SSMA_TimeStamp FROM Anlagen WHERE (AnlagenBez = @AnlagenBez)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnlagenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnlagenBez", 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].[Anlagen] SET [AnlagenBez] = @AnlagenBez WHERE (([AnlagenBez] = @Ori"& _ "ginal_AnlagenBez) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT An"& _ "lagenBez, SSMA_TimeStamp FROM Anlagen WHERE (AnlagenBez = @AnlagenBez)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnlagenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnlagenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AnlagenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnlagenBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 AnlagenBez, SSMA_TimeStamp FROM dbo.Anlagen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.AnlagenDataTable) 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 VERAGDataSet.AnlagenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.AnlagenDataTable = New VERAGDataSet.AnlagenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.AnlagenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Anlagen") 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_AnlagenBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_AnlagenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_AnlagenBez") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AnlagenBez,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 AnlagenBez As String) As Integer If (AnlagenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("AnlagenBez") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(AnlagenBez,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 AnlagenBez As String, ByVal Original_AnlagenBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (AnlagenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("AnlagenBez") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AnlagenBez,String) End If If (Original_AnlagenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_AnlagenBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_AnlagenBez,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Original_AnlagenBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_AnlagenBez, Original_AnlagenBez, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class atlas_statusTableAdapter 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 = "atlas_status" tableMapping.ColumnMappings.Add("zbant_stat", "zbant_stat") tableMapping.ColumnMappings.Add("fiskal_freigabe", "fiskal_freigabe") tableMapping.ColumnMappings.Add("bedeutung", "bedeutung") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[atlas_status] WHERE (([zbant_stat] = @Original_zbant_stat) AND"& _ " ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zbant_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_stat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[atlas_status] ([zbant_stat], [fiskal_freigabe], [bedeutung]) V"& _ "ALUES (@zbant_stat, @fiskal_freigabe, @bedeutung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT zbant_stat, fiskal_fr"& _ "eigabe, bedeutung, SSMA_TimeStamp FROM atlas_status WHERE (zbant_stat = @zbant_s"& _ "tat)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fiskal_freigabe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fiskal_freigabe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bedeutung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bedeutung", 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].[atlas_status] SET [zbant_stat] = @zbant_stat, [fiskal_freigabe] = @"& _ "fiskal_freigabe, [bedeutung] = @bedeutung WHERE (([zbant_stat] = @Original_zbant"& _ "_stat) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT zbant_stat, f"& _ "iskal_freigabe, bedeutung, SSMA_TimeStamp FROM atlas_status WHERE (zbant_stat = "& _ "@zbant_stat)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fiskal_freigabe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fiskal_freigabe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bedeutung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bedeutung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zbant_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_stat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 zbant_stat, fiskal_freigabe, bedeutung, SSMA_TimeStamp FROM dbo.atlas_stat"& _ "us" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.atlas_statusDataTable) 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 VERAGDataSet.atlas_statusDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.atlas_statusDataTable = New VERAGDataSet.atlas_statusDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.atlas_statusDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "atlas_status") 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_zbant_stat As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_zbant_stat,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 zbant_stat As Short, ByVal fiskal_freigabe As Boolean, ByVal bedeutung As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(zbant_stat,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(fiskal_freigabe,Boolean) If (bedeutung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(bedeutung,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 zbant_stat As Short, ByVal fiskal_freigabe As Boolean, ByVal bedeutung As String, ByVal Original_zbant_stat As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(zbant_stat,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(fiskal_freigabe,Boolean) If (bedeutung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(bedeutung,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_zbant_stat,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 fiskal_freigabe As Boolean, ByVal bedeutung As String, ByVal Original_zbant_stat As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_zbant_stat, fiskal_freigabe, bedeutung, Original_zbant_stat, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class AufschubdatenTableAdapter 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 = "Aufschubdaten" tableMapping.ColumnMappings.Add("AufschubkontoNr", "AufschubkontoNr") tableMapping.ColumnMappings.Add("Fälligkeit", "Fälligkeit") tableMapping.ColumnMappings.Add("VorbuchNr", "VorbuchNr") tableMapping.ColumnMappings.Add("Buchungsdatum", "Buchungsdatum") tableMapping.ColumnMappings.Add("Abfertigungsort", "Abfertigungsort") tableMapping.ColumnMappings.Add("WährungsKz", "WährungsKz") tableMapping.ColumnMappings.Add("Betrag", "Betrag") tableMapping.ColumnMappings.Add("Fakturiert", "Fakturiert") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[Aufschubdaten] WHERE (([AufschubkontoNr] = @Original_Aufschubk"& _ "ontoNr) AND ([Fälligkeit] = @Original_Fälligkeit) AND ([VorbuchNr] = @Original_V"& _ "orbuchNr) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] ="& _ " @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fälligkeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VorbuchNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VorbuchNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[Aufschubdaten] ([AufschubkontoNr], [Fälligkeit], [VorbuchNr], "& _ "[Buchungsdatum], [Abfertigungsort], [WährungsKz], [Betrag], [Fakturiert]) VALUES"& _ " (@AufschubkontoNr, @Fälligkeit, @VorbuchNr, @Buchungsdatum, @Abfertigungsort, @"& _ "WährungsKz, @Betrag, @Fakturiert);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AufschubkontoNr, Fälligkeit, VorbuchN"& _ "r, Buchungsdatum, Abfertigungsort, WährungsKz, Betrag, Fakturiert, upsize_ts FRO"& _ "M Aufschubdaten WHERE (AufschubkontoNr = @AufschubkontoNr) AND (Fälligkeit = @Fä"& _ "lligkeit) AND (VorbuchNr = @VorbuchNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VorbuchNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VorbuchNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungsKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WährungsKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturiert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturiert", 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].[Aufschubdaten] SET [AufschubkontoNr] = @AufschubkontoNr, [Fälligkei"& _ "t] = @Fälligkeit, [VorbuchNr] = @VorbuchNr, [Buchungsdatum] = @Buchungsdatum, [A"& _ "bfertigungsort] = @Abfertigungsort, [WährungsKz] = @WährungsKz, [Betrag] = @Betr"& _ "ag, [Fakturiert] = @Fakturiert WHERE (([AufschubkontoNr] = @Original_Aufschubkon"& _ "toNr) AND ([Fälligkeit] = @Original_Fälligkeit) AND ([VorbuchNr] = @Original_Vor"& _ "buchNr) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @"& _ "Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AufschubkontoNr, Fälligkeit, VorbuchNr, Buchungsd"& _ "atum, Abfertigungsort, WährungsKz, Betrag, Fakturiert, upsize_ts FROM Aufschubda"& _ "ten WHERE (AufschubkontoNr = @AufschubkontoNr) AND (Fälligkeit = @Fälligkeit) AN"& _ "D (VorbuchNr = @VorbuchNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VorbuchNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VorbuchNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungsKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WährungsKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturiert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fälligkeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VorbuchNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VorbuchNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 AufschubkontoNr, Fälligkeit, VorbuchNr, Buchungsdatum, Abfertigungsort, Wä"& _ "hrungsKz, Betrag, Fakturiert, upsize_ts FROM dbo.Aufschubdaten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.AufschubdatenDataTable) 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 VERAGDataSet.AufschubdatenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.AufschubdatenDataTable = New VERAGDataSet.AufschubdatenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.AufschubdatenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Aufschubdaten") 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_AufschubkontoNr As String, ByVal Original_Fälligkeit As Date, ByVal Original_VorbuchNr As String, ByVal Original_upsize_ts() As Byte) As Integer If (Original_AufschubkontoNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_AufschubkontoNr") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AufschubkontoNr,String) End If Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Fälligkeit,Date) If (Original_VorbuchNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_VorbuchNr") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_VorbuchNr,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) 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 AufschubkontoNr As String, ByVal Fälligkeit As Date, ByVal VorbuchNr As String, ByVal Buchungsdatum As Global.System.Nullable(Of Date), ByVal Abfertigungsort As String, ByVal WährungsKz As String, ByVal Betrag As Decimal, ByVal Fakturiert As Global.System.Nullable(Of Decimal)) As Integer If (AufschubkontoNr Is Nothing) Then Throw New Global.System.ArgumentNullException("AufschubkontoNr") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(AufschubkontoNr,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(Fälligkeit,Date) If (VorbuchNr Is Nothing) Then Throw New Global.System.ArgumentNullException("VorbuchNr") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(VorbuchNr,String) End If If (Buchungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Buchungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Abfertigungsort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Abfertigungsort,String) End If If (WährungsKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(WährungsKz,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(Betrag,Decimal) If (Fakturiert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Fakturiert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(7).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 AufschubkontoNr As String, ByVal Fälligkeit As Date, ByVal VorbuchNr As String, ByVal Buchungsdatum As Global.System.Nullable(Of Date), ByVal Abfertigungsort As String, ByVal WährungsKz As String, ByVal Betrag As Decimal, ByVal Fakturiert As Global.System.Nullable(Of Decimal), ByVal Original_AufschubkontoNr As String, ByVal Original_Fälligkeit As Date, ByVal Original_VorbuchNr As String, ByVal Original_upsize_ts() As Byte) As Integer If (AufschubkontoNr Is Nothing) Then Throw New Global.System.ArgumentNullException("AufschubkontoNr") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AufschubkontoNr,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Fälligkeit,Date) If (VorbuchNr Is Nothing) Then Throw New Global.System.ArgumentNullException("VorbuchNr") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VorbuchNr,String) End If If (Buchungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Buchungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Abfertigungsort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Abfertigungsort,String) End If If (WährungsKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WährungsKz,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Betrag,Decimal) If (Fakturiert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Fakturiert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_AufschubkontoNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_AufschubkontoNr") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_AufschubkontoNr,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Fälligkeit,Date) If (Original_VorbuchNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_VorbuchNr") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_VorbuchNr,String) End If If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_upsize_ts,Byte()) End If 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 Buchungsdatum As Global.System.Nullable(Of Date), ByVal Abfertigungsort As String, ByVal WährungsKz As String, ByVal Betrag As Decimal, ByVal Fakturiert As Global.System.Nullable(Of Decimal), ByVal Original_AufschubkontoNr As String, ByVal Original_Fälligkeit As Date, ByVal Original_VorbuchNr As String, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_AufschubkontoNr, Original_Fälligkeit, Original_VorbuchNr, Buchungsdatum, Abfertigungsort, WährungsKz, Betrag, Fakturiert, Original_AufschubkontoNr, Original_Fälligkeit, Original_VorbuchNr, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class AufschubkontenTableAdapter 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 = "Aufschubkonten" tableMapping.ColumnMappings.Add("AufschubkontoNr", "AufschubkontoNr") tableMapping.ColumnMappings.Add("AufschubkontoBez", "AufschubkontoBez") tableMapping.ColumnMappings.Add("Aufschubfälligkeit", "Aufschubfälligkeit") tableMapping.ColumnMappings.Add("Aufschubdateipfad1", "Aufschubdateipfad1") tableMapping.ColumnMappings.Add("Aufschubdateipfad2", "Aufschubdateipfad2") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Aufschubkonten] WHERE (([AufschubkontoNr] = @Original_Aufschub"& _ "kontoNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Aufschubkonten] ([AufschubkontoNr], [AufschubkontoBez], [Aufsc"& _ "hubfälligkeit], [Aufschubdateipfad1], [Aufschubdateipfad2]) VALUES (@Aufschubkon"& _ "toNr, @AufschubkontoBez, @Aufschubfälligkeit, @Aufschubdateipfad1, @Aufschubdate"& _ "ipfad2);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AufschubkontoNr, AufschubkontoBez, Aufschubfälligkeit, Aufschub"& _ "dateipfad1, Aufschubdateipfad2, SSMA_TimeStamp FROM Aufschubkonten WHERE (Aufsch"& _ "ubkontoNr = @AufschubkontoNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubfälligkeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubfälligkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubdateipfad1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubdateipfad1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubdateipfad2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubdateipfad2", 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].[Aufschubkonten] SET [AufschubkontoNr] = @AufschubkontoNr, [Aufschub"& _ "kontoBez] = @AufschubkontoBez, [Aufschubfälligkeit] = @Aufschubfälligkeit, [Aufs"& _ "chubdateipfad1] = @Aufschubdateipfad1, [Aufschubdateipfad2] = @Aufschubdateipfad"& _ "2 WHERE (([AufschubkontoNr] = @Original_AufschubkontoNr) AND ([SSMA_TimeStamp] ="& _ " @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AufschubkontoNr, AufschubkontoBez, Aufschub"& _ "fälligkeit, Aufschubdateipfad1, Aufschubdateipfad2, SSMA_TimeStamp FROM Aufschub"& _ "konten WHERE (AufschubkontoNr = @AufschubkontoNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubfälligkeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubfälligkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubdateipfad1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubdateipfad1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubdateipfad2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubdateipfad2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 AufschubkontoNr, AufschubkontoBez, Aufschubfälligkeit, Aufschubdateipfad1,"& _ " Aufschubdateipfad2, SSMA_TimeStamp FROM dbo.Aufschubkonten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.AufschubkontenDataTable) 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 VERAGDataSet.AufschubkontenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.AufschubkontenDataTable = New VERAGDataSet.AufschubkontenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.AufschubkontenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Aufschubkonten") 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_AufschubkontoNr As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_AufschubkontoNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_AufschubkontoNr") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AufschubkontoNr,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 AufschubkontoNr As String, ByVal AufschubkontoBez As String, ByVal Aufschubfälligkeit As Global.System.Nullable(Of Date), ByVal Aufschubdateipfad1 As String, ByVal Aufschubdateipfad2 As String) As Integer If (AufschubkontoNr Is Nothing) Then Throw New Global.System.ArgumentNullException("AufschubkontoNr") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(AufschubkontoNr,String) End If If (AufschubkontoBez Is Nothing) Then Throw New Global.System.ArgumentNullException("AufschubkontoBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(AufschubkontoBez,String) End If If (Aufschubfälligkeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Aufschubfälligkeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Aufschubdateipfad1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Aufschubdateipfad1") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Aufschubdateipfad1,String) End If If (Aufschubdateipfad2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Aufschubdateipfad2") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Aufschubdateipfad2,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 AufschubkontoNr As String, ByVal AufschubkontoBez As String, ByVal Aufschubfälligkeit As Global.System.Nullable(Of Date), ByVal Aufschubdateipfad1 As String, ByVal Aufschubdateipfad2 As String, ByVal Original_AufschubkontoNr As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (AufschubkontoNr Is Nothing) Then Throw New Global.System.ArgumentNullException("AufschubkontoNr") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AufschubkontoNr,String) End If If (AufschubkontoBez Is Nothing) Then Throw New Global.System.ArgumentNullException("AufschubkontoBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(AufschubkontoBez,String) End If If (Aufschubfälligkeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Aufschubfälligkeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Aufschubdateipfad1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Aufschubdateipfad1") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Aufschubdateipfad1,String) End If If (Aufschubdateipfad2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Aufschubdateipfad2") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Aufschubdateipfad2,String) End If If (Original_AufschubkontoNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_AufschubkontoNr") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_AufschubkontoNr,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 AufschubkontoBez As String, ByVal Aufschubfälligkeit As Global.System.Nullable(Of Date), ByVal Aufschubdateipfad1 As String, ByVal Aufschubdateipfad2 As String, ByVal Original_AufschubkontoNr As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_AufschubkontoNr, AufschubkontoBez, Aufschubfälligkeit, Aufschubdateipfad1, Aufschubdateipfad2, Original_AufschubkontoNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class BelegartenTableAdapter 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 = "Belegarten" tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("BelegartenKz", "BelegartenKz") tableMapping.ColumnMappings.Add("BelegartenBez", "BelegartenBez") tableMapping.ColumnMappings.Add("Vorzeichen", "Vorzeichen") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Belegarten] WHERE (([BelegartenNr] = @Original_BelegartenNr) A"& _ "ND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Belegarten] ([BelegartenNr], [BelegartenKz], [BelegartenBez], "& _ "[Vorzeichen]) VALUES (@BelegartenNr, @BelegartenKz, @BelegartenBez, @Vorzeichen)"& _ ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BelegartenNr, BelegartenKz, BelegartenBez, Vorzeichen, SSMA_TimeStamp "& _ "FROM Belegarten WHERE (BelegartenNr = @BelegartenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorzeichen", 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].[Belegarten] SET [BelegartenNr] = @BelegartenNr, [BelegartenKz] = @B"& _ "elegartenKz, [BelegartenBez] = @BelegartenBez, [Vorzeichen] = @Vorzeichen WHERE "& _ "(([BelegartenNr] = @Original_BelegartenNr) AND ([SSMA_TimeStamp] = @Original_SSM"& _ "A_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BelegartenNr, BelegartenKz, BelegartenBez, Vorzeichen, SS"& _ "MA_TimeStamp FROM Belegarten WHERE (BelegartenNr = @BelegartenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 BelegartenNr, BelegartenKz, BelegartenBez, Vorzeichen, SSMA_TimeStamp FROM"& _ " dbo.Belegarten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.BelegartenDataTable) 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 VERAGDataSet.BelegartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.BelegartenDataTable = New VERAGDataSet.BelegartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.BelegartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Belegarten") 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_BelegartenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_BelegartenNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 BelegartenNr As Short, ByVal BelegartenKz As String, ByVal BelegartenBez As String, ByVal Vorzeichen As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(BelegartenNr,Short) If (BelegartenKz Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartenKz") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(BelegartenKz,String) End If If (BelegartenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartenBez") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(BelegartenBez,String) End If If (Vorzeichen Is Nothing) Then Throw New Global.System.ArgumentNullException("Vorzeichen") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Vorzeichen,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 BelegartenNr As Short, ByVal BelegartenKz As String, ByVal BelegartenBez As String, ByVal Vorzeichen As String, ByVal Original_BelegartenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BelegartenNr,Short) If (BelegartenKz Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartenKz") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BelegartenKz,String) End If If (BelegartenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartenBez") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BelegartenBez,String) End If If (Vorzeichen Is Nothing) Then Throw New Global.System.ArgumentNullException("Vorzeichen") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Vorzeichen,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_BelegartenNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 BelegartenKz As String, ByVal BelegartenBez As String, ByVal Vorzeichen As String, ByVal Original_BelegartenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_BelegartenNr, BelegartenKz, BelegartenBez, Vorzeichen, Original_BelegartenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class BerechnungsartTableAdapter 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 = "Berechnungsart" tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("BerechnungsartBez", "BerechnungsartBez") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Berechnungsart] WHERE (([BerechnungsartNr] = @Original_Berechn"& _ "ungsartNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Berechnungsart] ([BerechnungsartNr], [BerechnungsartBez]) VALU"& _ "ES (@BerechnungsartNr, @BerechnungsartBez);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BerechnungsartNr, Berechnung"& _ "sartBez, SSMA_TimeStamp FROM Berechnungsart WHERE (BerechnungsartNr = @Berechnun"& _ "gsartNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartBez", 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].[Berechnungsart] SET [BerechnungsartNr] = @BerechnungsartNr, [Berech"& _ "nungsartBez] = @BerechnungsartBez WHERE (([BerechnungsartNr] = @Original_Berechn"& _ "ungsartNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Berechnun"& _ "gsartNr, BerechnungsartBez, SSMA_TimeStamp FROM Berechnungsart WHERE (Berechnung"& _ "sartNr = @BerechnungsartNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 BerechnungsartNr, BerechnungsartBez, SSMA_TimeStamp FROM dbo.Berechnungsar"& _ "t" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.BerechnungsartDataTable) 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 VERAGDataSet.BerechnungsartDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.BerechnungsartDataTable = New VERAGDataSet.BerechnungsartDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.BerechnungsartDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Berechnungsart") 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_BerechnungsartNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_BerechnungsartNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 BerechnungsartNr As Short, ByVal BerechnungsartBez As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(BerechnungsartNr,Short) If (BerechnungsartBez Is Nothing) Then Throw New Global.System.ArgumentNullException("BerechnungsartBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(BerechnungsartBez,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 BerechnungsartNr As Short, ByVal BerechnungsartBez As String, ByVal Original_BerechnungsartNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BerechnungsartNr,Short) If (BerechnungsartBez Is Nothing) Then Throw New Global.System.ArgumentNullException("BerechnungsartBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BerechnungsartBez,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_BerechnungsartNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 BerechnungsartBez As String, ByVal Original_BerechnungsartNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_BerechnungsartNr, BerechnungsartBez, Original_BerechnungsartNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class BerechnungsbogenTableAdapter 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 = "Berechnungsbogen" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("ErstelltDatum", "ErstelltDatum") tableMapping.ColumnMappings.Add("ErstelltSachbearbeiter", "ErstelltSachbearbeiter") tableMapping.ColumnMappings.Add("GeändertDatum", "GeändertDatum") tableMapping.ColumnMappings.Add("GeändertSachbearbeiter", "GeändertSachbearbeiter") tableMapping.ColumnMappings.Add("GedrucktDatum", "GedrucktDatum") tableMapping.ColumnMappings.Add("GedrucktSachbearbeiter", "GedrucktSachbearbeiter") tableMapping.ColumnMappings.Add("Index", "Index") tableMapping.ColumnMappings.Add("AbsenderKundenNr", "AbsenderKundenNr") tableMapping.ColumnMappings.Add("AbsenderAdresse", "AbsenderAdresse") tableMapping.ColumnMappings.Add("AbsenderOffertenNr", "AbsenderOffertenNr") tableMapping.ColumnMappings.Add("EmpfängerKundenNr", "EmpfängerKundenNr") tableMapping.ColumnMappings.Add("EmpfängerAdresse", "EmpfängerAdresse") tableMapping.ColumnMappings.Add("EmpfängerOffertenNr", "EmpfängerOffertenNr") tableMapping.ColumnMappings.Add("VermittlerKundenNr", "VermittlerKundenNr") tableMapping.ColumnMappings.Add("VermittlerAdresse", "VermittlerAdresse") tableMapping.ColumnMappings.Add("VermittlerOffertenNr", "VermittlerOffertenNr") tableMapping.ColumnMappings.Add("Bemerkungen", "Bemerkungen") tableMapping.ColumnMappings.Add("Vermerk", "Vermerk") tableMapping.ColumnMappings.Add("Sperre", "Sperre") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Berechnungsbogen] ([ID], [ErstelltDatum], [ErstelltSachbearbei"& _ "ter], [GeändertDatum], [GeändertSachbearbeiter], [GedrucktDatum], [GedrucktSachb"& _ "earbeiter], [Index], [AbsenderKundenNr], [AbsenderAdresse], [AbsenderOffertenNr]"& _ ", [EmpfängerKundenNr], [EmpfängerAdresse], [EmpfängerOffertenNr], [VermittlerKun"& _ "denNr], [VermittlerAdresse], [VermittlerOffertenNr], [Bemerkungen], [Vermerk], ["& _ "Sperre]) VALUES (@ID, @ErstelltDatum, @ErstelltSachbearbeiter, @GeändertDatum, @"& _ "GeändertSachbearbeiter, @GedrucktDatum, @GedrucktSachbearbeiter, @Index, @Absend"& _ "erKundenNr, @AbsenderAdresse, @AbsenderOffertenNr, @EmpfängerKundenNr, @Empfänge"& _ "rAdresse, @EmpfängerOffertenNr, @VermittlerKundenNr, @VermittlerAdresse, @Vermit"& _ "tlerOffertenNr, @Bemerkungen, @Vermerk, @Sperre)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstelltDatum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstelltDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstelltSachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstelltSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GeändertDatum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GeändertDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GeändertSachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GeändertSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GedrucktDatum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GedrucktDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GedrucktSachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GedrucktSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Index", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Index", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderAdresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderAdresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerAdresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerAdresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerAdresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerAdresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkungen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sperre", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sperre", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, ErstelltDatum, ErstelltSachbearbeiter, GeändertDatum, GeändertSachbear"& _ "beiter, GedrucktDatum, GedrucktSachbearbeiter, [Index], AbsenderKundenNr, Absend"& _ "erAdresse, AbsenderOffertenNr, EmpfängerKundenNr, EmpfängerAdresse, EmpfängerOff"& _ "ertenNr, VermittlerKundenNr, VermittlerAdresse, VermittlerOffertenNr, Bemerkunge"& _ "n, Vermerk, Sperre, SSMA_TimeStamp FROM dbo.Berechnungsbogen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.BerechnungsbogenDataTable) 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 VERAGDataSet.BerechnungsbogenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.BerechnungsbogenDataTable = New VERAGDataSet.BerechnungsbogenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.BerechnungsbogenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Berechnungsbogen") 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 Insert( _ ByVal ID As Integer, _ ByVal ErstelltDatum As Global.System.Nullable(Of Date), _ ByVal ErstelltSachbearbeiter As String, _ ByVal GeändertDatum As Global.System.Nullable(Of Date), _ ByVal GeändertSachbearbeiter As String, _ ByVal GedrucktDatum As Global.System.Nullable(Of Date), _ ByVal GedrucktSachbearbeiter As String, _ ByVal Index As String, _ ByVal AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal AbsenderAdresse As String, _ ByVal AbsenderOffertenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerAdresse As String, _ ByVal EmpfängerOffertenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerAdresse As String, _ ByVal VermittlerOffertenNr As Global.System.Nullable(Of Integer), _ ByVal Bemerkungen As String, _ ByVal Vermerk As String, _ ByVal Sperre As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer) If (ErstelltDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(ErstelltDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (ErstelltSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ErstelltSachbearbeiter,String) End If If (GeändertDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(GeändertDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (GeändertSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(GeändertSachbearbeiter,String) End If If (GedrucktDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(GedrucktDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (GedrucktSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(GedrucktSachbearbeiter,String) End If If (Index Is Nothing) Then Throw New Global.System.ArgumentNullException("Index") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Index,String) End If If (AbsenderKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(AbsenderKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (AbsenderAdresse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(AbsenderAdresse,String) End If If (AbsenderOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(AbsenderOffertenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (EmpfängerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(EmpfängerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (EmpfängerAdresse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(EmpfängerAdresse,String) End If If (EmpfängerOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(EmpfängerOffertenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (VermittlerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(VermittlerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (VermittlerAdresse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(VermittlerAdresse,String) End If If (VermittlerOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(VermittlerOffertenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Bemerkungen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Bemerkungen,String) End If If (Vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Vermerk,String) End If If (Sperre Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Sperre,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class BerichteTableAdapter 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 = "Berichte" tableMapping.ColumnMappings.Add("Bericht", "Bericht") tableMapping.ColumnMappings.Add("Kommentar", "Kommentar") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Berichte] WHERE (([Bericht] = @Original_Bericht) AND ([SSMA_Ti"& _ "meStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bericht", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bericht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Berichte] ([Bericht], [Kommentar]) VALUES (@Bericht, @Kommenta"& _ "r);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Bericht, Kommentar, SSMA_TimeStamp FROM Berichte WHERE (Bericht = @B"& _ "ericht)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bericht", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bericht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kommentar", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kommentar", 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].[Berichte] SET [Bericht] = @Bericht, [Kommentar] = @Kommentar WHERE "& _ "(([Bericht] = @Original_Bericht) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStam"& _ "p));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Bericht, Kommentar, SSMA_TimeStamp FROM Berichte WHERE (Bericht = @"& _ "Bericht)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bericht", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bericht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kommentar", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kommentar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bericht", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bericht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Bericht, Kommentar, SSMA_TimeStamp FROM dbo.Berichte" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.BerichteDataTable) 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 VERAGDataSet.BerichteDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.BerichteDataTable = New VERAGDataSet.BerichteDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.BerichteDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Berichte") 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_Bericht As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_Bericht Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bericht") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Bericht,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Bericht As String, ByVal Kommentar As String) As Integer If (Bericht Is Nothing) Then Throw New Global.System.ArgumentNullException("Bericht") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Bericht,String) End If If (Kommentar Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Kommentar,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 Bericht As String, ByVal Kommentar As String, ByVal Original_Bericht As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Bericht Is Nothing) Then Throw New Global.System.ArgumentNullException("Bericht") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Bericht,String) End If If (Kommentar Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Kommentar,String) End If If (Original_Bericht Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bericht") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Bericht,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Kommentar As String, ByVal Original_Bericht As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Bericht, Kommentar, Original_Bericht, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class CMRTableAdapter 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 = "CMR" tableMapping.ColumnMappings.Add("CMR_ID", "CMR_ID") tableMapping.ColumnMappings.Add("CMR_Suchbegriff", "CMR_Suchbegriff") tableMapping.ColumnMappings.Add("CMR_Absender_1", "CMR_Absender_1") tableMapping.ColumnMappings.Add("CMR_Absender_2", "CMR_Absender_2") tableMapping.ColumnMappings.Add("CMR_Absender_3", "CMR_Absender_3") tableMapping.ColumnMappings.Add("CMR_Absender_4", "CMR_Absender_4") tableMapping.ColumnMappings.Add("CMR_Absender_5", "CMR_Absender_5") tableMapping.ColumnMappings.Add("CMR_Empfänger_1", "CMR_Empfänger_1") tableMapping.ColumnMappings.Add("CMR_Empfänger_2", "CMR_Empfänger_2") tableMapping.ColumnMappings.Add("CMR_Empfänger_3", "CMR_Empfänger_3") tableMapping.ColumnMappings.Add("CMR_Empfänger_4", "CMR_Empfänger_4") tableMapping.ColumnMappings.Add("CMR_Empfänger_5", "CMR_Empfänger_5") tableMapping.ColumnMappings.Add("CMR_Auslieferung_Ort", "CMR_Auslieferung_Ort") tableMapping.ColumnMappings.Add("CMR_Auslieferung_Land", "CMR_Auslieferung_Land") tableMapping.ColumnMappings.Add("CMR_Auslieferung", "CMR_Auslieferung") tableMapping.ColumnMappings.Add("CMR_Übernahme_Ort", "CMR_Übernahme_Ort") tableMapping.ColumnMappings.Add("CMR_Übernahme_Land", "CMR_Übernahme_Land") tableMapping.ColumnMappings.Add("CMR_Übernahme_Datum", "CMR_Übernahme_Datum") tableMapping.ColumnMappings.Add("CMR_Dokumente_1", "CMR_Dokumente_1") tableMapping.ColumnMappings.Add("CMR_Dokumente_2", "CMR_Dokumente_2") tableMapping.ColumnMappings.Add("CMR_Dokumente_3", "CMR_Dokumente_3") tableMapping.ColumnMappings.Add("CMR_Ware_1", "CMR_Ware_1") tableMapping.ColumnMappings.Add("CMR_Statistiknr_1", "CMR_Statistiknr_1") tableMapping.ColumnMappings.Add("CMR_Bruttogewicht_1", "CMR_Bruttogewicht_1") tableMapping.ColumnMappings.Add("CMR_Umfang_1", "CMR_Umfang_1") tableMapping.ColumnMappings.Add("CMR_Ware_2", "CMR_Ware_2") tableMapping.ColumnMappings.Add("CMR_Statistiknr_2", "CMR_Statistiknr_2") tableMapping.ColumnMappings.Add("CMR_Bruttogewicht_2", "CMR_Bruttogewicht_2") tableMapping.ColumnMappings.Add("CMR_Umfang_2", "CMR_Umfang_2") tableMapping.ColumnMappings.Add("CMR_Ware_3", "CMR_Ware_3") tableMapping.ColumnMappings.Add("CMR_Statistiknr_3", "CMR_Statistiknr_3") tableMapping.ColumnMappings.Add("CMR_Bruttogewicht_3", "CMR_Bruttogewicht_3") tableMapping.ColumnMappings.Add("CMR_Umfang_3", "CMR_Umfang_3") tableMapping.ColumnMappings.Add("CMR_Ware_4", "CMR_Ware_4") tableMapping.ColumnMappings.Add("CMR_Statistiknr_4", "CMR_Statistiknr_4") tableMapping.ColumnMappings.Add("CMR_Bruttogewicht_4", "CMR_Bruttogewicht_4") tableMapping.ColumnMappings.Add("CMR_Umfang_4", "CMR_Umfang_4") tableMapping.ColumnMappings.Add("CMR_Ware_5", "CMR_Ware_5") tableMapping.ColumnMappings.Add("CMR_Statistiknr_5", "CMR_Statistiknr_5") tableMapping.ColumnMappings.Add("CMR_Bruttogewicht_5", "CMR_Bruttogewicht_5") tableMapping.ColumnMappings.Add("CMR_Umfang_5", "CMR_Umfang_5") tableMapping.ColumnMappings.Add("CMR_Ware_6", "CMR_Ware_6") tableMapping.ColumnMappings.Add("CMR_Statistiknr_6", "CMR_Statistiknr_6") tableMapping.ColumnMappings.Add("CMR_Bruttogewicht_6", "CMR_Bruttogewicht_6") tableMapping.ColumnMappings.Add("CMR_Umfang_6", "CMR_Umfang_6") tableMapping.ColumnMappings.Add("CMR_Ware_7", "CMR_Ware_7") tableMapping.ColumnMappings.Add("CMR_Statistiknr_7", "CMR_Statistiknr_7") tableMapping.ColumnMappings.Add("CMR_Bruttogewicht_7", "CMR_Bruttogewicht_7") tableMapping.ColumnMappings.Add("CMR_Umfang_7", "CMR_Umfang_7") tableMapping.ColumnMappings.Add("CMR_Ware_8", "CMR_Ware_8") tableMapping.ColumnMappings.Add("CMR_Statistiknr_8", "CMR_Statistiknr_8") tableMapping.ColumnMappings.Add("CMR_Bruttogewicht_8", "CMR_Bruttogewicht_8") tableMapping.ColumnMappings.Add("CMR_Umfang_8", "CMR_Umfang_8") tableMapping.ColumnMappings.Add("CMR_Klasse", "CMR_Klasse") tableMapping.ColumnMappings.Add("CMR_Ziffer", "CMR_Ziffer") tableMapping.ColumnMappings.Add("CMR_Buchstabe", "CMR_Buchstabe") tableMapping.ColumnMappings.Add("CMR_ADR", "CMR_ADR") tableMapping.ColumnMappings.Add("CMR_Ware_9", "CMR_Ware_9") tableMapping.ColumnMappings.Add("CMR_Statistiknr_9", "CMR_Statistiknr_9") tableMapping.ColumnMappings.Add("CMR_Bruttogewicht_9", "CMR_Bruttogewicht_9") tableMapping.ColumnMappings.Add("CMR_Umfang_9", "CMR_Umfang_9") tableMapping.ColumnMappings.Add("CMR_Anweisungen_1", "CMR_Anweisungen_1") tableMapping.ColumnMappings.Add("CMR_Anweisungen_2", "CMR_Anweisungen_2") tableMapping.ColumnMappings.Add("CMR_Anweisungen_3", "CMR_Anweisungen_3") tableMapping.ColumnMappings.Add("CMR_Anweisungen_4", "CMR_Anweisungen_4") tableMapping.ColumnMappings.Add("CMR_Anweisungen_5", "CMR_Anweisungen_5") tableMapping.ColumnMappings.Add("CMR_Anweisungen_6", "CMR_Anweisungen_6") tableMapping.ColumnMappings.Add("CMR_Anweisungen_7", "CMR_Anweisungen_7") tableMapping.ColumnMappings.Add("CMR_Rückerstattung", "CMR_Rückerstattung") tableMapping.ColumnMappings.Add("CMR_Frachtzahlungsanweisung_Frei", "CMR_Frachtzahlungsanweisung_Frei") tableMapping.ColumnMappings.Add("CMR_Frachtzahlungsanweisung_Unfrei", "CMR_Frachtzahlungsanweisung_Unfrei") tableMapping.ColumnMappings.Add("CMR_Frachtführer_1", "CMR_Frachtführer_1") tableMapping.ColumnMappings.Add("CMR_Frachtführer_2", "CMR_Frachtführer_2") tableMapping.ColumnMappings.Add("CMR_Frachtführer_3", "CMR_Frachtführer_3") tableMapping.ColumnMappings.Add("CMR_Frachtführer_4", "CMR_Frachtführer_4") tableMapping.ColumnMappings.Add("CMR_Frachtführer_5", "CMR_Frachtführer_5") tableMapping.ColumnMappings.Add("CMR_Nachf_Frachtführer_1", "CMR_Nachf_Frachtführer_1") tableMapping.ColumnMappings.Add("CMR_Nachf_Frachtführer_2", "CMR_Nachf_Frachtführer_2") tableMapping.ColumnMappings.Add("CMR_Nachf_Frachtführer_3", "CMR_Nachf_Frachtführer_3") tableMapping.ColumnMappings.Add("CMR_Nachf_Frachtführer_4", "CMR_Nachf_Frachtführer_4") tableMapping.ColumnMappings.Add("CMR_Nachf_Frachtführer_5", "CMR_Nachf_Frachtführer_5") tableMapping.ColumnMappings.Add("CMR_Bemerkungen_1", "CMR_Bemerkungen_1") tableMapping.ColumnMappings.Add("CMR_Bemerkungen_2", "CMR_Bemerkungen_2") tableMapping.ColumnMappings.Add("CMR_Bemerkungen_3", "CMR_Bemerkungen_3") tableMapping.ColumnMappings.Add("CMR_Bemerkungen_4", "CMR_Bemerkungen_4") tableMapping.ColumnMappings.Add("CMR_Bemerkungen_5", "CMR_Bemerkungen_5") tableMapping.ColumnMappings.Add("CMR_Vereinbarungen_1", "CMR_Vereinbarungen_1") tableMapping.ColumnMappings.Add("CMR_Vereinbarungen_2", "CMR_Vereinbarungen_2") tableMapping.ColumnMappings.Add("CMR_Ausgefertigt_in", "CMR_Ausgefertigt_in") tableMapping.ColumnMappings.Add("CMR_Ausgefertigt_am", "CMR_Ausgefertigt_am") tableMapping.ColumnMappings.Add("CMR_Ausgefertigt", "CMR_Ausgefertigt") tableMapping.ColumnMappings.Add("CMR_Stempel_Absender_1", "CMR_Stempel_Absender_1") tableMapping.ColumnMappings.Add("CMR_Stempel_Absender_2", "CMR_Stempel_Absender_2") tableMapping.ColumnMappings.Add("CMR_Stempel_Frachtführer_1", "CMR_Stempel_Frachtführer_1") tableMapping.ColumnMappings.Add("CMR_Stempel_Frachtführer_2", "CMR_Stempel_Frachtführer_2") tableMapping.ColumnMappings.Add("CMR_Empfangsbestätigung_Datum", "CMR_Empfangsbestätigung_Datum") tableMapping.ColumnMappings.Add("CMR_Stempel_Empfänger_1", "CMR_Stempel_Empfänger_1") tableMapping.ColumnMappings.Add("CMR_Stempel_Empfänger_2", "CMR_Stempel_Empfänger_2") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_von_1", "CMR_Tarifentfernung_von_1") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_bis_1", "CMR_Tarifentfernung_bis_1") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_km_1", "CMR_Tarifentfernung_km_1") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_von_2", "CMR_Tarifentfernung_von_2") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_bis_2", "CMR_Tarifentfernung_bis_2") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_km_2", "CMR_Tarifentfernung_km_2") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_von_3", "CMR_Tarifentfernung_von_3") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_bis_3", "CMR_Tarifentfernung_bis_3") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_km_3", "CMR_Tarifentfernung_km_3") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_von_4", "CMR_Tarifentfernung_von_4") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_bis_4", "CMR_Tarifentfernung_bis_4") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_km_4", "CMR_Tarifentfernung_km_4") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_von_5", "CMR_Tarifentfernung_von_5") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_bis_5", "CMR_Tarifentfernung_bis_5") tableMapping.ColumnMappings.Add("CMR_Tarifentfernung_km_5", "CMR_Tarifentfernung_km_5") tableMapping.ColumnMappings.Add("CMR_Kennzeichen_Kfz", "CMR_Kennzeichen_Kfz") tableMapping.ColumnMappings.Add("CMR_Nutzlast_Kfz", "CMR_Nutzlast_Kfz") tableMapping.ColumnMappings.Add("CMR_Kennzeichen_Anhänger", "CMR_Kennzeichen_Anhänger") tableMapping.ColumnMappings.Add("CMR_Nutzlast_Anhänger", "CMR_Nutzlast_Anhänger") tableMapping.ColumnMappings.Add("CMR_Erstellt_Datum", "CMR_Erstellt_Datum") tableMapping.ColumnMappings.Add("CMR_Erstellt_Sachbearbeiter", "CMR_Erstellt_Sachbearbeiter") tableMapping.ColumnMappings.Add("CMR_Geändert_Datum", "CMR_Geändert_Datum") tableMapping.ColumnMappings.Add("CMR_Geändert_Sachbearbeiter", "CMR_Geändert_Sachbearbeiter") tableMapping.ColumnMappings.Add("CMR_Gedruckt_Datum", "CMR_Gedruckt_Datum") tableMapping.ColumnMappings.Add("CMR_Gedruckt_Sachbearbeiter", "CMR_Gedruckt_Sachbearbeiter") tableMapping.ColumnMappings.Add("CMR_zeichen_1", "CMR_zeichen_1") tableMapping.ColumnMappings.Add("CMR_zeichen_2", "CMR_zeichen_2") tableMapping.ColumnMappings.Add("CMR_zeichen_3", "CMR_zeichen_3") tableMapping.ColumnMappings.Add("CMR_zeichen_4", "CMR_zeichen_4") tableMapping.ColumnMappings.Add("CMR_zeichen_5", "CMR_zeichen_5") tableMapping.ColumnMappings.Add("CMR_zeichen_6", "CMR_zeichen_6") tableMapping.ColumnMappings.Add("CMR_zeichen_7", "CMR_zeichen_7") tableMapping.ColumnMappings.Add("CMR_zeichen_8", "CMR_zeichen_8") tableMapping.ColumnMappings.Add("CMR_zeichen_9", "CMR_zeichen_9") tableMapping.ColumnMappings.Add("CMR_anzahl_1", "CMR_anzahl_1") tableMapping.ColumnMappings.Add("CMR_anzahl_2", "CMR_anzahl_2") tableMapping.ColumnMappings.Add("CMR_anzahl_3", "CMR_anzahl_3") tableMapping.ColumnMappings.Add("CMR_anzahl_4", "CMR_anzahl_4") tableMapping.ColumnMappings.Add("CMR_anzahl_5", "CMR_anzahl_5") tableMapping.ColumnMappings.Add("CMR_anzahl_6", "CMR_anzahl_6") tableMapping.ColumnMappings.Add("CMR_anzahl_7", "CMR_anzahl_7") tableMapping.ColumnMappings.Add("CMR_anzahl_8", "CMR_anzahl_8") tableMapping.ColumnMappings.Add("CMR_anzahl_9", "CMR_anzahl_9") tableMapping.ColumnMappings.Add("CMR_pkArt_1", "CMR_pkArt_1") tableMapping.ColumnMappings.Add("CMR_pkArt_2", "CMR_pkArt_2") tableMapping.ColumnMappings.Add("CMR_pkArt_3", "CMR_pkArt_3") tableMapping.ColumnMappings.Add("CMR_pkArt_4", "CMR_pkArt_4") tableMapping.ColumnMappings.Add("CMR_pkArt_5", "CMR_pkArt_5") tableMapping.ColumnMappings.Add("CMR_pkArt_6", "CMR_pkArt_6") tableMapping.ColumnMappings.Add("CMR_pkArt_7", "CMR_pkArt_7") tableMapping.ColumnMappings.Add("CMR_pkArt_8", "CMR_pkArt_8") tableMapping.ColumnMappings.Add("CMR_pkArt_9", "CMR_pkArt_9") tableMapping.ColumnMappings.Add("CMR_TblLangKurz", "CMR_TblLangKurz") tableMapping.ColumnMappings.Add("EPBes_ID", "EPBes_ID") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("CMR_Firma", "CMR_Firma") tableMapping.ColumnMappings.Add("CMR_isVorlage", "CMR_isVorlage") 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].[CMR] WHERE (([CMR_ID] = @Original_CMR_ID) AND ([SSMA_TimeStamp"& _ "] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CMR_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[CMR] ([CMR_Suchbegriff], [CMR_Absender_1], [CMR_Absender_2], ["& _ "CMR_Absender_3], [CMR_Absender_4], [CMR_Absender_5], [CMR_Empfänger_1], [CMR_Emp"& _ "fänger_2], [CMR_Empfänger_3], [CMR_Empfänger_4], [CMR_Empfänger_5], [CMR_Auslief"& _ "erung_Ort], [CMR_Auslieferung_Land], [CMR_Auslieferung], [CMR_Übernahme_Ort], [C"& _ "MR_Übernahme_Land], [CMR_Übernahme_Datum], [CMR_Dokumente_1], [CMR_Dokumente_2],"& _ " [CMR_Dokumente_3], [CMR_Ware_1], [CMR_Statistiknr_1], [CMR_Bruttogewicht_1], [C"& _ "MR_Umfang_1], [CMR_Ware_2], [CMR_Statistiknr_2], [CMR_Bruttogewicht_2], [CMR_Umf"& _ "ang_2], [CMR_Ware_3], [CMR_Statistiknr_3], [CMR_Bruttogewicht_3], [CMR_Umfang_3]"& _ ", [CMR_Ware_4], [CMR_Statistiknr_4], [CMR_Bruttogewicht_4], [CMR_Umfang_4], [CMR"& _ "_Ware_5], [CMR_Statistiknr_5], [CMR_Bruttogewicht_5], [CMR_Umfang_5], [CMR_Ware_"& _ "6], [CMR_Statistiknr_6], [CMR_Bruttogewicht_6], [CMR_Umfang_6], [CMR_Ware_7], [C"& _ "MR_Statistiknr_7], [CMR_Bruttogewicht_7], [CMR_Umfang_7], [CMR_Ware_8], [CMR_Sta"& _ "tistiknr_8], [CMR_Bruttogewicht_8], [CMR_Umfang_8], [CMR_Klasse], [CMR_Ziffer], "& _ "[CMR_Buchstabe], [CMR_ADR], [CMR_Ware_9], [CMR_Statistiknr_9], [CMR_Bruttogewich"& _ "t_9], [CMR_Umfang_9], [CMR_Anweisungen_1], [CMR_Anweisungen_2], [CMR_Anweisungen"& _ "_3], [CMR_Anweisungen_4], [CMR_Anweisungen_5], [CMR_Anweisungen_6], [CMR_Anweisu"& _ "ngen_7], [CMR_Rückerstattung], [CMR_Frachtzahlungsanweisung_Frei], [CMR_Frachtza"& _ "hlungsanweisung_Unfrei], [CMR_Frachtführer_1], [CMR_Frachtführer_2], [CMR_Fracht"& _ "führer_3], [CMR_Frachtführer_4], [CMR_Frachtführer_5], [CMR_Nachf_Frachtführer_1"& _ "], [CMR_Nachf_Frachtführer_2], [CMR_Nachf_Frachtführer_3], [CMR_Nachf_Frachtführ"& _ "er_4], [CMR_Nachf_Frachtführer_5], [CMR_Bemerkungen_1], [CMR_Bemerkungen_2], [CM"& _ "R_Bemerkungen_3], [CMR_Bemerkungen_4], [CMR_Bemerkungen_5], [CMR_Vereinbarungen_"& _ "1], [CMR_Vereinbarungen_2], [CMR_Ausgefertigt_in], [CMR_Ausgefertigt_am], [CMR_A"& _ "usgefertigt], [CMR_Stempel_Absender_1], [CMR_Stempel_Absender_2], [CMR_Stempel_F"& _ "rachtführer_1], [CMR_Stempel_Frachtführer_2], [CMR_Empfangsbestätigung_Datum], ["& _ "CMR_Stempel_Empfänger_1], [CMR_Stempel_Empfänger_2], [CMR_Tarifentfernung_von_1]"& _ ", [CMR_Tarifentfernung_bis_1], [CMR_Tarifentfernung_km_1], [CMR_Tarifentfernung_"& _ "von_2], [CMR_Tarifentfernung_bis_2], [CMR_Tarifentfernung_km_2], [CMR_Tarifentfe"& _ "rnung_von_3], [CMR_Tarifentfernung_bis_3], [CMR_Tarifentfernung_km_3], [CMR_Tari"& _ "fentfernung_von_4], [CMR_Tarifentfernung_bis_4], [CMR_Tarifentfernung_km_4], [CM"& _ "R_Tarifentfernung_von_5], [CMR_Tarifentfernung_bis_5], [CMR_Tarifentfernung_km_5"& _ "], [CMR_Kennzeichen_Kfz], [CMR_Nutzlast_Kfz], [CMR_Kennzeichen_Anhänger], [CMR_N"& _ "utzlast_Anhänger], [CMR_Erstellt_Datum], [CMR_Erstellt_Sachbearbeiter], [CMR_Geä"& _ "ndert_Datum], [CMR_Geändert_Sachbearbeiter], [CMR_Gedruckt_Datum], [CMR_Gedruckt"& _ "_Sachbearbeiter], [CMR_zeichen_1], [CMR_zeichen_2], [CMR_zeichen_3], [CMR_zeiche"& _ "n_4], [CMR_zeichen_5], [CMR_zeichen_6], [CMR_zeichen_7], [CMR_zeichen_8], [CMR_z"& _ "eichen_9], [CMR_anzahl_1], [CMR_anzahl_2], [CMR_anzahl_3], [CMR_anzahl_4], [CMR_"& _ "anzahl_5], [CMR_anzahl_6], [CMR_anzahl_7], [CMR_anzahl_8], [CMR_anzahl_9], [CMR_"& _ "pkArt_1], [CMR_pkArt_2], [CMR_pkArt_3], [CMR_pkArt_4], [CMR_pkArt_5], [CMR_pkArt"& _ "_6], [CMR_pkArt_7], [CMR_pkArt_8], [CMR_pkArt_9], [CMR_TblLangKurz], [EPBes_ID],"& _ " [CMR_Firma], [CMR_isVorlage]) VALUES (@CMR_Suchbegriff, @CMR_Absender_1, @CMR_A"& _ "bsender_2, @CMR_Absender_3, @CMR_Absender_4, @CMR_Absender_5, @CMR_Empfänger_1, "& _ "@CMR_Empfänger_2, @CMR_Empfänger_3, @CMR_Empfänger_4, @CMR_Empfänger_5, @CMR_Aus"& _ "lieferung_Ort, @CMR_Auslieferung_Land, @CMR_Auslieferung, @CMR_Übernahme_Ort, @C"& _ "MR_Übernahme_Land, @CMR_Übernahme_Datum, @CMR_Dokumente_1, @CMR_Dokumente_2, @CM"& _ "R_Dokumente_3, @CMR_Ware_1, @CMR_Statistiknr_1, @CMR_Bruttogewicht_1, @CMR_Umfan"& _ "g_1, @CMR_Ware_2, @CMR_Statistiknr_2, @CMR_Bruttogewicht_2, @CMR_Umfang_2, @CMR_"& _ "Ware_3, @CMR_Statistiknr_3, @CMR_Bruttogewicht_3, @CMR_Umfang_3, @CMR_Ware_4, @C"& _ "MR_Statistiknr_4, @CMR_Bruttogewicht_4, @CMR_Umfang_4, @CMR_Ware_5, @CMR_Statist"& _ "iknr_5, @CMR_Bruttogewicht_5, @CMR_Umfang_5, @CMR_Ware_6, @CMR_Statistiknr_6, @C"& _ "MR_Bruttogewicht_6, @CMR_Umfang_6, @CMR_Ware_7, @CMR_Statistiknr_7, @CMR_Bruttog"& _ "ewicht_7, @CMR_Umfang_7, @CMR_Ware_8, @CMR_Statistiknr_8, @CMR_Bruttogewicht_8, "& _ "@CMR_Umfang_8, @CMR_Klasse, @CMR_Ziffer, @CMR_Buchstabe, @CMR_ADR, @CMR_Ware_9, "& _ "@CMR_Statistiknr_9, @CMR_Bruttogewicht_9, @CMR_Umfang_9, @CMR_Anweisungen_1, @CM"& _ "R_Anweisungen_2, @CMR_Anweisungen_3, @CMR_Anweisungen_4, @CMR_Anweisungen_5, @CM"& _ "R_Anweisungen_6, @CMR_Anweisungen_7, @CMR_Rückerstattung, @CMR_Frachtzahlungsanw"& _ "eisung_Frei, @CMR_Frachtzahlungsanweisung_Unfrei, @CMR_Frachtführer_1, @CMR_Frac"& _ "htführer_2, @CMR_Frachtführer_3, @CMR_Frachtführer_4, @CMR_Frachtführer_5, @CMR_"& _ "Nachf_Frachtführer_1, @CMR_Nachf_Frachtführer_2, @CMR_Nachf_Frachtführer_3, @CMR"& _ "_Nachf_Frachtführer_4, @CMR_Nachf_Frachtführer_5, @CMR_Bemerkungen_1, @CMR_Bemer"& _ "kungen_2, @CMR_Bemerkungen_3, @CMR_Bemerkungen_4, @CMR_Bemerkungen_5, @CMR_Verei"& _ "nbarungen_1, @CMR_Vereinbarungen_2, @CMR_Ausgefertigt_in, @CMR_Ausgefertigt_am, "& _ "@CMR_Ausgefertigt, @CMR_Stempel_Absender_1, @CMR_Stempel_Absender_2, @CMR_Stempe"& _ "l_Frachtführer_1, @CMR_Stempel_Frachtführer_2, @CMR_Empfangsbestätigung_Datum, @"& _ "CMR_Stempel_Empfänger_1, @CMR_Stempel_Empfänger_2, @CMR_Tarifentfernung_von_1, @"& _ "CMR_Tarifentfernung_bis_1, @CMR_Tarifentfernung_km_1, @CMR_Tarifentfernung_von_2"& _ ", @CMR_Tarifentfernung_bis_2, @CMR_Tarifentfernung_km_2, @CMR_Tarifentfernung_vo"& _ "n_3, @CMR_Tarifentfernung_bis_3, @CMR_Tarifentfernung_km_3, @CMR_Tarifentfernung"& _ "_von_4, @CMR_Tarifentfernung_bis_4, @CMR_Tarifentfernung_km_4, @CMR_Tarifentfern"& _ "ung_von_5, @CMR_Tarifentfernung_bis_5, @CMR_Tarifentfernung_km_5, @CMR_Kennzeich"& _ "en_Kfz, @CMR_Nutzlast_Kfz, @CMR_Kennzeichen_Anhänger, @CMR_Nutzlast_Anhänger, @C"& _ "MR_Erstellt_Datum, @CMR_Erstellt_Sachbearbeiter, @CMR_Geändert_Datum, @CMR_Geänd"& _ "ert_Sachbearbeiter, @CMR_Gedruckt_Datum, @CMR_Gedruckt_Sachbearbeiter, @CMR_zeic"& _ "hen_1, @CMR_zeichen_2, @CMR_zeichen_3, @CMR_zeichen_4, @CMR_zeichen_5, @CMR_zeic"& _ "hen_6, @CMR_zeichen_7, @CMR_zeichen_8, @CMR_zeichen_9, @CMR_anzahl_1, @CMR_anzah"& _ "l_2, @CMR_anzahl_3, @CMR_anzahl_4, @CMR_anzahl_5, @CMR_anzahl_6, @CMR_anzahl_7, "& _ "@CMR_anzahl_8, @CMR_anzahl_9, @CMR_pkArt_1, @CMR_pkArt_2, @CMR_pkArt_3, @CMR_pkA"& _ "rt_4, @CMR_pkArt_5, @CMR_pkArt_6, @CMR_pkArt_7, @CMR_pkArt_8, @CMR_pkArt_9, @CMR"& _ "_TblLangKurz, @EPBes_ID, @CMR_Firma, @CMR_isVorlage);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CMR_ID, CMR_Suchbe"& _ "griff, CMR_Absender_1, CMR_Absender_2, CMR_Absender_3, CMR_Absender_4, CMR_Absen"& _ "der_5, CMR_Empfänger_1, CMR_Empfänger_2, CMR_Empfänger_3, CMR_Empfänger_4, CMR_E"& _ "mpfänger_5, CMR_Auslieferung_Ort, CMR_Auslieferung_Land, CMR_Auslieferung, CMR_Ü"& _ "bernahme_Ort, CMR_Übernahme_Land, CMR_Übernahme_Datum, CMR_Dokumente_1, CMR_Doku"& _ "mente_2, CMR_Dokumente_3, CMR_Ware_1, CMR_Statistiknr_1, CMR_Bruttogewicht_1, CM"& _ "R_Umfang_1, CMR_Ware_2, CMR_Statistiknr_2, CMR_Bruttogewicht_2, CMR_Umfang_2, CM"& _ "R_Ware_3, CMR_Statistiknr_3, CMR_Bruttogewicht_3, CMR_Umfang_3, CMR_Ware_4, CMR_"& _ "Statistiknr_4, CMR_Bruttogewicht_4, CMR_Umfang_4, CMR_Ware_5, CMR_Statistiknr_5,"& _ " CMR_Bruttogewicht_5, CMR_Umfang_5, CMR_Ware_6, CMR_Statistiknr_6, CMR_Bruttogew"& _ "icht_6, CMR_Umfang_6, CMR_Ware_7, CMR_Statistiknr_7, CMR_Bruttogewicht_7, CMR_Um"& _ "fang_7, CMR_Ware_8, CMR_Statistiknr_8, CMR_Bruttogewicht_8, CMR_Umfang_8, CMR_Kl"& _ "asse, CMR_Ziffer, CMR_Buchstabe, CMR_ADR, CMR_Ware_9, CMR_Statistiknr_9, CMR_Bru"& _ "ttogewicht_9, CMR_Umfang_9, CMR_Anweisungen_1, CMR_Anweisungen_2, CMR_Anweisunge"& _ "n_3, CMR_Anweisungen_4, CMR_Anweisungen_5, CMR_Anweisungen_6, CMR_Anweisungen_7,"& _ " CMR_Rückerstattung, CMR_Frachtzahlungsanweisung_Frei, CMR_Frachtzahlungsanweisu"& _ "ng_Unfrei, CMR_Frachtführer_1, CMR_Frachtführer_2, CMR_Frachtführer_3, CMR_Frach"& _ "tführer_4, CMR_Frachtführer_5, CMR_Nachf_Frachtführer_1, CMR_Nachf_Frachtführer_"& _ "2, CMR_Nachf_Frachtführer_3, CMR_Nachf_Frachtführer_4, CMR_Nachf_Frachtführer_5,"& _ " CMR_Bemerkungen_1, CMR_Bemerkungen_2, CMR_Bemerkungen_3, CMR_Bemerkungen_4, CMR"& _ "_Bemerkungen_5, CMR_Vereinbarungen_1, CMR_Vereinbarungen_2, CMR_Ausgefertigt_in,"& _ " CMR_Ausgefertigt_am, CMR_Ausgefertigt, CMR_Stempel_Absender_1, CMR_Stempel_Abse"& _ "nder_2, CMR_Stempel_Frachtführer_1, CMR_Stempel_Frachtführer_2, CMR_Empfangsbest"& _ "ätigung_Datum, CMR_Stempel_Empfänger_1, CMR_Stempel_Empfänger_2, CMR_Tarifentfer"& _ "nung_von_1, CMR_Tarifentfernung_bis_1, CMR_Tarifentfernung_km_1, CMR_Tarifentfer"& _ "nung_von_2, CMR_Tarifentfernung_bis_2, CMR_Tarifentfernung_km_2, CMR_Tarifentfer"& _ "nung_von_3, CMR_Tarifentfernung_bis_3, CMR_Tarifentfernung_km_3, CMR_Tarifentfer"& _ "nung_von_4, CMR_Tarifentfernung_bis_4, CMR_Tarifentfernung_km_4, CMR_Tarifentfer"& _ "nung_von_5, CMR_Tarifentfernung_bis_5, CMR_Tarifentfernung_km_5, CMR_Kennzeichen"& _ "_Kfz, CMR_Nutzlast_Kfz, CMR_Kennzeichen_Anhänger, CMR_Nutzlast_Anhänger, CMR_Ers"& _ "tellt_Datum, CMR_Erstellt_Sachbearbeiter, CMR_Geändert_Datum, CMR_Geändert_Sachb"& _ "earbeiter, CMR_Gedruckt_Datum, CMR_Gedruckt_Sachbearbeiter, CMR_zeichen_1, CMR_z"& _ "eichen_2, CMR_zeichen_3, CMR_zeichen_4, CMR_zeichen_5, CMR_zeichen_6, CMR_zeiche"& _ "n_7, CMR_zeichen_8, CMR_zeichen_9, CMR_anzahl_1, CMR_anzahl_2, CMR_anzahl_3, CMR"& _ "_anzahl_4, CMR_anzahl_5, CMR_anzahl_6, CMR_anzahl_7, CMR_anzahl_8, CMR_anzahl_9,"& _ " CMR_pkArt_1, CMR_pkArt_2, CMR_pkArt_3, CMR_pkArt_4, CMR_pkArt_5, CMR_pkArt_6, C"& _ "MR_pkArt_7, CMR_pkArt_8, CMR_pkArt_9, CMR_TblLangKurz, EPBes_ID, SSMA_TimeStamp,"& _ " CMR_Firma, CMR_isVorlage FROM CMR WHERE (CMR_ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Suchbegriff", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Suchbegriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Absender_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Absender_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Absender_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Absender_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Absender_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Absender_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Absender_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Absender_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Absender_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Absender_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfänger_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfänger_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfänger_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfänger_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfänger_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfänger_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfänger_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfänger_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfänger_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfänger_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Auslieferung_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Auslieferung_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Auslieferung_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Auslieferung_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Auslieferung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Auslieferung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Übernahme_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Übernahme_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Übernahme_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Übernahme_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Übernahme_Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Übernahme_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Dokumente_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Dokumente_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Dokumente_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Dokumente_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Dokumente_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Dokumente_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_6", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_6", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_7", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_7", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_8", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_8", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Klasse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Klasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ziffer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ziffer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Buchstabe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Buchstabe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_ADR", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_ADR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_9", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_9", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_6", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_7", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Rückerstattung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Rückerstattung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtzahlungsanweisung_Frei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtzahlungsanweisung_Frei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtzahlungsanweisung_Unfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtzahlungsanweisung_Unfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtführer_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtführer_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtführer_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtführer_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtführer_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtführer_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtführer_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtführer_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtführer_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtführer_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nachf_Frachtführer_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nachf_Frachtführer_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nachf_Frachtführer_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nachf_Frachtführer_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nachf_Frachtführer_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nachf_Frachtführer_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nachf_Frachtführer_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nachf_Frachtführer_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nachf_Frachtführer_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nachf_Frachtführer_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bemerkungen_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bemerkungen_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bemerkungen_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bemerkungen_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bemerkungen_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bemerkungen_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bemerkungen_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bemerkungen_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bemerkungen_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bemerkungen_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Vereinbarungen_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Vereinbarungen_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Vereinbarungen_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Vereinbarungen_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ausgefertigt_in", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ausgefertigt_in", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ausgefertigt_am", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ausgefertigt_am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ausgefertigt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ausgefertigt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Absender_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Absender_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Absender_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Absender_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Frachtführer_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Frachtführer_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Frachtführer_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Frachtführer_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfangsbestätigung_Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfangsbestätigung_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Empfänger_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Empfänger_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Empfänger_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Empfänger_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_von_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_von_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_bis_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_bis_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_km_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_km_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_von_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_von_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_bis_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_bis_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_km_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_km_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_von_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_von_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_bis_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_bis_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_km_3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_km_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_von_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_von_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_bis_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_bis_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_km_4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_km_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_von_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_von_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_bis_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_bis_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_km_5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_km_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Kennzeichen_Kfz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Kennzeichen_Kfz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nutzlast_Kfz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nutzlast_Kfz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Kennzeichen_Anhänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Kennzeichen_Anhänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nutzlast_Anhänger", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nutzlast_Anhänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Erstellt_Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Erstellt_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Erstellt_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Erstellt_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Geändert_Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Geändert_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Geändert_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Geändert_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Gedruckt_Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Gedruckt_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Gedruckt_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Gedruckt_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_TblLangKurz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_TblLangKurz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EPBes_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EPBes_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_isVorlage", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_isVorlage", 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].[CMR] SET [CMR_Suchbegriff] = @CMR_Suchbegriff, [CMR_Absender_1] = @"& _ "CMR_Absender_1, [CMR_Absender_2] = @CMR_Absender_2, [CMR_Absender_3] = @CMR_Abse"& _ "nder_3, [CMR_Absender_4] = @CMR_Absender_4, [CMR_Absender_5] = @CMR_Absender_5, "& _ "[CMR_Empfänger_1] = @CMR_Empfänger_1, [CMR_Empfänger_2] = @CMR_Empfänger_2, [CMR"& _ "_Empfänger_3] = @CMR_Empfänger_3, [CMR_Empfänger_4] = @CMR_Empfänger_4, [CMR_Emp"& _ "fänger_5] = @CMR_Empfänger_5, [CMR_Auslieferung_Ort] = @CMR_Auslieferung_Ort, [C"& _ "MR_Auslieferung_Land] = @CMR_Auslieferung_Land, [CMR_Auslieferung] = @CMR_Auslie"& _ "ferung, [CMR_Übernahme_Ort] = @CMR_Übernahme_Ort, [CMR_Übernahme_Land] = @CMR_Üb"& _ "ernahme_Land, [CMR_Übernahme_Datum] = @CMR_Übernahme_Datum, [CMR_Dokumente_1] = "& _ "@CMR_Dokumente_1, [CMR_Dokumente_2] = @CMR_Dokumente_2, [CMR_Dokumente_3] = @CMR"& _ "_Dokumente_3, [CMR_Ware_1] = @CMR_Ware_1, [CMR_Statistiknr_1] = @CMR_Statistiknr"& _ "_1, [CMR_Bruttogewicht_1] = @CMR_Bruttogewicht_1, [CMR_Umfang_1] = @CMR_Umfang_1"& _ ", [CMR_Ware_2] = @CMR_Ware_2, [CMR_Statistiknr_2] = @CMR_Statistiknr_2, [CMR_Bru"& _ "ttogewicht_2] = @CMR_Bruttogewicht_2, [CMR_Umfang_2] = @CMR_Umfang_2, [CMR_Ware_"& _ "3] = @CMR_Ware_3, [CMR_Statistiknr_3] = @CMR_Statistiknr_3, [CMR_Bruttogewicht_3"& _ "] = @CMR_Bruttogewicht_3, [CMR_Umfang_3] = @CMR_Umfang_3, [CMR_Ware_4] = @CMR_Wa"& _ "re_4, [CMR_Statistiknr_4] = @CMR_Statistiknr_4, [CMR_Bruttogewicht_4] = @CMR_Bru"& _ "ttogewicht_4, [CMR_Umfang_4] = @CMR_Umfang_4, [CMR_Ware_5] = @CMR_Ware_5, [CMR_S"& _ "tatistiknr_5] = @CMR_Statistiknr_5, [CMR_Bruttogewicht_5] = @CMR_Bruttogewicht_5"& _ ", [CMR_Umfang_5] = @CMR_Umfang_5, [CMR_Ware_6] = @CMR_Ware_6, [CMR_Statistiknr_6"& _ "] = @CMR_Statistiknr_6, [CMR_Bruttogewicht_6] = @CMR_Bruttogewicht_6, [CMR_Umfan"& _ "g_6] = @CMR_Umfang_6, [CMR_Ware_7] = @CMR_Ware_7, [CMR_Statistiknr_7] = @CMR_Sta"& _ "tistiknr_7, [CMR_Bruttogewicht_7] = @CMR_Bruttogewicht_7, [CMR_Umfang_7] = @CMR_"& _ "Umfang_7, [CMR_Ware_8] = @CMR_Ware_8, [CMR_Statistiknr_8] = @CMR_Statistiknr_8, "& _ "[CMR_Bruttogewicht_8] = @CMR_Bruttogewicht_8, [CMR_Umfang_8] = @CMR_Umfang_8, [C"& _ "MR_Klasse] = @CMR_Klasse, [CMR_Ziffer] = @CMR_Ziffer, [CMR_Buchstabe] = @CMR_Buc"& _ "hstabe, [CMR_ADR] = @CMR_ADR, [CMR_Ware_9] = @CMR_Ware_9, [CMR_Statistiknr_9] = "& _ "@CMR_Statistiknr_9, [CMR_Bruttogewicht_9] = @CMR_Bruttogewicht_9, [CMR_Umfang_9]"& _ " = @CMR_Umfang_9, [CMR_Anweisungen_1] = @CMR_Anweisungen_1, [CMR_Anweisungen_2] "& _ "= @CMR_Anweisungen_2, [CMR_Anweisungen_3] = @CMR_Anweisungen_3, [CMR_Anweisungen"& _ "_4] = @CMR_Anweisungen_4, [CMR_Anweisungen_5] = @CMR_Anweisungen_5, [CMR_Anweisu"& _ "ngen_6] = @CMR_Anweisungen_6, [CMR_Anweisungen_7] = @CMR_Anweisungen_7, [CMR_Rüc"& _ "kerstattung] = @CMR_Rückerstattung, [CMR_Frachtzahlungsanweisung_Frei] = @CMR_Fr"& _ "achtzahlungsanweisung_Frei, [CMR_Frachtzahlungsanweisung_Unfrei] = @CMR_Frachtza"& _ "hlungsanweisung_Unfrei, [CMR_Frachtführer_1] = @CMR_Frachtführer_1, [CMR_Frachtf"& _ "ührer_2] = @CMR_Frachtführer_2, [CMR_Frachtführer_3] = @CMR_Frachtführer_3, [CMR"& _ "_Frachtführer_4] = @CMR_Frachtführer_4, [CMR_Frachtführer_5] = @CMR_Frachtführer"& _ "_5, [CMR_Nachf_Frachtführer_1] = @CMR_Nachf_Frachtführer_1, [CMR_Nachf_Frachtfüh"& _ "rer_2] = @CMR_Nachf_Frachtführer_2, [CMR_Nachf_Frachtführer_3] = @CMR_Nachf_Frac"& _ "htführer_3, [CMR_Nachf_Frachtführer_4] = @CMR_Nachf_Frachtführer_4, [CMR_Nachf_F"& _ "rachtführer_5] = @CMR_Nachf_Frachtführer_5, [CMR_Bemerkungen_1] = @CMR_Bemerkung"& _ "en_1, [CMR_Bemerkungen_2] = @CMR_Bemerkungen_2, [CMR_Bemerkungen_3] = @CMR_Bemer"& _ "kungen_3, [CMR_Bemerkungen_4] = @CMR_Bemerkungen_4, [CMR_Bemerkungen_5] = @CMR_B"& _ "emerkungen_5, [CMR_Vereinbarungen_1] = @CMR_Vereinbarungen_1, [CMR_Vereinbarunge"& _ "n_2] = @CMR_Vereinbarungen_2, [CMR_Ausgefertigt_in] = @CMR_Ausgefertigt_in, [CMR"& _ "_Ausgefertigt_am] = @CMR_Ausgefertigt_am, [CMR_Ausgefertigt] = @CMR_Ausgefertigt"& _ ", [CMR_Stempel_Absender_1] = @CMR_Stempel_Absender_1, [CMR_Stempel_Absender_2] ="& _ " @CMR_Stempel_Absender_2, [CMR_Stempel_Frachtführer_1] = @CMR_Stempel_Frachtführ"& _ "er_1, [CMR_Stempel_Frachtführer_2] = @CMR_Stempel_Frachtführer_2, [CMR_Empfangsb"& _ "estätigung_Datum] = @CMR_Empfangsbestätigung_Datum, [CMR_Stempel_Empfänger_1] = "& _ "@CMR_Stempel_Empfänger_1, [CMR_Stempel_Empfänger_2] = @CMR_Stempel_Empfänger_2, "& _ "[CMR_Tarifentfernung_von_1] = @CMR_Tarifentfernung_von_1, [CMR_Tarifentfernung_b"& _ "is_1] = @CMR_Tarifentfernung_bis_1, [CMR_Tarifentfernung_km_1] = @CMR_Tarifentfe"& _ "rnung_km_1, [CMR_Tarifentfernung_von_2] = @CMR_Tarifentfernung_von_2, [CMR_Tarif"& _ "entfernung_bis_2] = @CMR_Tarifentfernung_bis_2, [CMR_Tarifentfernung_km_2] = @CM"& _ "R_Tarifentfernung_km_2, [CMR_Tarifentfernung_von_3] = @CMR_Tarifentfernung_von_3"& _ ", [CMR_Tarifentfernung_bis_3] = @CMR_Tarifentfernung_bis_3, [CMR_Tarifentfernung"& _ "_km_3] = @CMR_Tarifentfernung_km_3, [CMR_Tarifentfernung_von_4] = @CMR_Tarifentf"& _ "ernung_von_4, [CMR_Tarifentfernung_bis_4] = @CMR_Tarifentfernung_bis_4, [CMR_Tar"& _ "ifentfernung_km_4] = @CMR_Tarifentfernung_km_4, [CMR_Tarifentfernung_von_5] = @C"& _ "MR_Tarifentfernung_von_5, [CMR_Tarifentfernung_bis_5] = @CMR_Tarifentfernung_bis"& _ "_5, [CMR_Tarifentfernung_km_5] = @CMR_Tarifentfernung_km_5, [CMR_Kennzeichen_Kfz"& _ "] = @CMR_Kennzeichen_Kfz, [CMR_Nutzlast_Kfz] = @CMR_Nutzlast_Kfz, [CMR_Kennzeich"& _ "en_Anhänger] = @CMR_Kennzeichen_Anhänger, [CMR_Nutzlast_Anhänger] = @CMR_Nutzlas"& _ "t_Anhänger, [CMR_Erstellt_Datum] = @CMR_Erstellt_Datum, [CMR_Erstellt_Sachbearbe"& _ "iter] = @CMR_Erstellt_Sachbearbeiter, [CMR_Geändert_Datum] = @CMR_Geändert_Datum"& _ ", [CMR_Geändert_Sachbearbeiter] = @CMR_Geändert_Sachbearbeiter, [CMR_Gedruckt_Da"& _ "tum] = @CMR_Gedruckt_Datum, [CMR_Gedruckt_Sachbearbeiter] = @CMR_Gedruckt_Sachbe"& _ "arbeiter, [CMR_zeichen_1] = @CMR_zeichen_1, [CMR_zeichen_2] = @CMR_zeichen_2, [C"& _ "MR_zeichen_3] = @CMR_zeichen_3, [CMR_zeichen_4] = @CMR_zeichen_4, [CMR_zeichen_5"& _ "] = @CMR_zeichen_5, [CMR_zeichen_6] = @CMR_zeichen_6, [CMR_zeichen_7] = @CMR_zei"& _ "chen_7, [CMR_zeichen_8] = @CMR_zeichen_8, [CMR_zeichen_9] = @CMR_zeichen_9, [CMR"& _ "_anzahl_1] = @CMR_anzahl_1, [CMR_anzahl_2] = @CMR_anzahl_2, [CMR_anzahl_3] = @CM"& _ "R_anzahl_3, [CMR_anzahl_4] = @CMR_anzahl_4, [CMR_anzahl_5] = @CMR_anzahl_5, [CMR"& _ "_anzahl_6] = @CMR_anzahl_6, [CMR_anzahl_7] = @CMR_anzahl_7, [CMR_anzahl_8] = @CM"& _ "R_anzahl_8, [CMR_anzahl_9] = @CMR_anzahl_9, [CMR_pkArt_1] = @CMR_pkArt_1, [CMR_p"& _ "kArt_2] = @CMR_pkArt_2, [CMR_pkArt_3] = @CMR_pkArt_3, [CMR_pkArt_4] = @CMR_pkArt"& _ "_4, [CMR_pkArt_5] = @CMR_pkArt_5, [CMR_pkArt_6] = @CMR_pkArt_6, [CMR_pkArt_7] = "& _ "@CMR_pkArt_7, [CMR_pkArt_8] = @CMR_pkArt_8, [CMR_pkArt_9] = @CMR_pkArt_9, [CMR_T"& _ "blLangKurz] = @CMR_TblLangKurz, [EPBes_ID] = @EPBes_ID, [CMR_Firma] = @CMR_Firma"& _ ", [CMR_isVorlage] = @CMR_isVorlage WHERE (([CMR_ID] = @Original_CMR_ID) AND ([SS"& _ "MA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CMR_ID, CMR_Suchbegriff, CMR"& _ "_Absender_1, CMR_Absender_2, CMR_Absender_3, CMR_Absender_4, CMR_Absender_5, CMR"& _ "_Empfänger_1, CMR_Empfänger_2, CMR_Empfänger_3, CMR_Empfänger_4, CMR_Empfänger_5"& _ ", CMR_Auslieferung_Ort, CMR_Auslieferung_Land, CMR_Auslieferung, CMR_Übernahme_O"& _ "rt, CMR_Übernahme_Land, CMR_Übernahme_Datum, CMR_Dokumente_1, CMR_Dokumente_2, C"& _ "MR_Dokumente_3, CMR_Ware_1, CMR_Statistiknr_1, CMR_Bruttogewicht_1, CMR_Umfang_1"& _ ", CMR_Ware_2, CMR_Statistiknr_2, CMR_Bruttogewicht_2, CMR_Umfang_2, CMR_Ware_3, "& _ "CMR_Statistiknr_3, CMR_Bruttogewicht_3, CMR_Umfang_3, CMR_Ware_4, CMR_Statistikn"& _ "r_4, CMR_Bruttogewicht_4, CMR_Umfang_4, CMR_Ware_5, CMR_Statistiknr_5, CMR_Brutt"& _ "ogewicht_5, CMR_Umfang_5, CMR_Ware_6, CMR_Statistiknr_6, CMR_Bruttogewicht_6, CM"& _ "R_Umfang_6, CMR_Ware_7, CMR_Statistiknr_7, CMR_Bruttogewicht_7, CMR_Umfang_7, CM"& _ "R_Ware_8, CMR_Statistiknr_8, CMR_Bruttogewicht_8, CMR_Umfang_8, CMR_Klasse, CMR_"& _ "Ziffer, CMR_Buchstabe, CMR_ADR, CMR_Ware_9, CMR_Statistiknr_9, CMR_Bruttogewicht"& _ "_9, CMR_Umfang_9, CMR_Anweisungen_1, CMR_Anweisungen_2, CMR_Anweisungen_3, CMR_A"& _ "nweisungen_4, CMR_Anweisungen_5, CMR_Anweisungen_6, CMR_Anweisungen_7, CMR_Rücke"& _ "rstattung, CMR_Frachtzahlungsanweisung_Frei, CMR_Frachtzahlungsanweisung_Unfrei,"& _ " CMR_Frachtführer_1, CMR_Frachtführer_2, CMR_Frachtführer_3, CMR_Frachtführer_4,"& _ " CMR_Frachtführer_5, CMR_Nachf_Frachtführer_1, CMR_Nachf_Frachtführer_2, CMR_Nac"& _ "hf_Frachtführer_3, CMR_Nachf_Frachtführer_4, CMR_Nachf_Frachtführer_5, CMR_Bemer"& _ "kungen_1, CMR_Bemerkungen_2, CMR_Bemerkungen_3, CMR_Bemerkungen_4, CMR_Bemerkung"& _ "en_5, CMR_Vereinbarungen_1, CMR_Vereinbarungen_2, CMR_Ausgefertigt_in, CMR_Ausge"& _ "fertigt_am, CMR_Ausgefertigt, CMR_Stempel_Absender_1, CMR_Stempel_Absender_2, CM"& _ "R_Stempel_Frachtführer_1, CMR_Stempel_Frachtführer_2, CMR_Empfangsbestätigung_Da"& _ "tum, CMR_Stempel_Empfänger_1, CMR_Stempel_Empfänger_2, CMR_Tarifentfernung_von_1"& _ ", CMR_Tarifentfernung_bis_1, CMR_Tarifentfernung_km_1, CMR_Tarifentfernung_von_2"& _ ", CMR_Tarifentfernung_bis_2, CMR_Tarifentfernung_km_2, CMR_Tarifentfernung_von_3"& _ ", CMR_Tarifentfernung_bis_3, CMR_Tarifentfernung_km_3, CMR_Tarifentfernung_von_4"& _ ", CMR_Tarifentfernung_bis_4, CMR_Tarifentfernung_km_4, CMR_Tarifentfernung_von_5"& _ ", CMR_Tarifentfernung_bis_5, CMR_Tarifentfernung_km_5, CMR_Kennzeichen_Kfz, CMR_"& _ "Nutzlast_Kfz, CMR_Kennzeichen_Anhänger, CMR_Nutzlast_Anhänger, CMR_Erstellt_Datu"& _ "m, CMR_Erstellt_Sachbearbeiter, CMR_Geändert_Datum, CMR_Geändert_Sachbearbeiter,"& _ " CMR_Gedruckt_Datum, CMR_Gedruckt_Sachbearbeiter, CMR_zeichen_1, CMR_zeichen_2, "& _ "CMR_zeichen_3, CMR_zeichen_4, CMR_zeichen_5, CMR_zeichen_6, CMR_zeichen_7, CMR_z"& _ "eichen_8, CMR_zeichen_9, CMR_anzahl_1, CMR_anzahl_2, CMR_anzahl_3, CMR_anzahl_4,"& _ " CMR_anzahl_5, CMR_anzahl_6, CMR_anzahl_7, CMR_anzahl_8, CMR_anzahl_9, CMR_pkArt"& _ "_1, CMR_pkArt_2, CMR_pkArt_3, CMR_pkArt_4, CMR_pkArt_5, CMR_pkArt_6, CMR_pkArt_7"& _ ", CMR_pkArt_8, CMR_pkArt_9, CMR_TblLangKurz, EPBes_ID, SSMA_TimeStamp, CMR_Firma"& _ ", CMR_isVorlage FROM CMR WHERE (CMR_ID = @CMR_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Suchbegriff", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Suchbegriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Absender_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Absender_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Absender_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Absender_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Absender_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Absender_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Absender_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Absender_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Absender_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Absender_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfänger_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfänger_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfänger_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfänger_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfänger_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfänger_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfänger_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfänger_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfänger_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfänger_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Auslieferung_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Auslieferung_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Auslieferung_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Auslieferung_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Auslieferung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Auslieferung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Übernahme_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Übernahme_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Übernahme_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Übernahme_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Übernahme_Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Übernahme_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Dokumente_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Dokumente_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Dokumente_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Dokumente_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Dokumente_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Dokumente_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_6", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_6", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_7", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_7", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_8", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_8", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Klasse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Klasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ziffer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ziffer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Buchstabe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Buchstabe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_ADR", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_ADR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ware_9", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ware_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Statistiknr_9", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Statistiknr_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bruttogewicht_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bruttogewicht_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Umfang_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Umfang_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_6", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Anweisungen_7", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Anweisungen_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Rückerstattung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Rückerstattung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtzahlungsanweisung_Frei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtzahlungsanweisung_Frei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtzahlungsanweisung_Unfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtzahlungsanweisung_Unfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtführer_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtführer_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtführer_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtführer_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtführer_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtführer_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtführer_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtführer_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Frachtführer_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Frachtführer_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nachf_Frachtführer_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nachf_Frachtführer_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nachf_Frachtführer_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nachf_Frachtführer_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nachf_Frachtführer_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nachf_Frachtführer_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nachf_Frachtführer_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nachf_Frachtführer_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nachf_Frachtführer_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nachf_Frachtführer_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bemerkungen_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bemerkungen_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bemerkungen_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bemerkungen_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bemerkungen_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bemerkungen_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bemerkungen_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bemerkungen_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Bemerkungen_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Bemerkungen_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Vereinbarungen_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Vereinbarungen_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Vereinbarungen_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Vereinbarungen_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ausgefertigt_in", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ausgefertigt_in", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ausgefertigt_am", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ausgefertigt_am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Ausgefertigt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Ausgefertigt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Absender_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Absender_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Absender_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Absender_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Frachtführer_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Frachtführer_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Frachtführer_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Frachtführer_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Empfangsbestätigung_Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Empfangsbestätigung_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Empfänger_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Empfänger_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Stempel_Empfänger_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Stempel_Empfänger_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_von_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_von_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_bis_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_bis_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_km_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_km_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_von_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_von_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_bis_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_bis_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_km_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_km_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_von_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_von_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_bis_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_bis_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_km_3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_km_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_von_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_von_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_bis_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_bis_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_km_4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_km_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_von_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_von_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_bis_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_bis_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Tarifentfernung_km_5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Tarifentfernung_km_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Kennzeichen_Kfz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Kennzeichen_Kfz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nutzlast_Kfz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nutzlast_Kfz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Kennzeichen_Anhänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Kennzeichen_Anhänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Nutzlast_Anhänger", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Nutzlast_Anhänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Erstellt_Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Erstellt_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Erstellt_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Erstellt_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Geändert_Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Geändert_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Geändert_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Geändert_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Gedruckt_Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Gedruckt_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Gedruckt_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Gedruckt_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_zeichen_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_zeichen_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_anzahl_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_anzahl_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_pkArt_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_pkArt_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_TblLangKurz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_TblLangKurz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EPBes_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EPBes_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_isVorlage", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_isVorlage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CMR_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 CMR_ID, CMR_Suchbegriff, CMR_Absender_1, CMR_Absender_2, CMR_Absender_3, C"& _ "MR_Absender_4, CMR_Absender_5, CMR_Empfänger_1, CMR_Empfänger_2, CMR_Empfänger_3"& _ ", CMR_Empfänger_4, CMR_Empfänger_5, CMR_Auslieferung_Ort, CMR_Auslieferung_Land,"& _ " CMR_Auslieferung, CMR_Übernahme_Ort, CMR_Übernahme_Land, CMR_Übernahme_Datum, C"& _ "MR_Dokumente_1, CMR_Dokumente_2, CMR_Dokumente_3, CMR_Ware_1, CMR_Statistiknr_1,"& _ " CMR_Bruttogewicht_1, CMR_Umfang_1, CMR_Ware_2, CMR_Statistiknr_2, CMR_Bruttogew"& _ "icht_2, CMR_Umfang_2, CMR_Ware_3, CMR_Statistiknr_3, CMR_Bruttogewicht_3, CMR_Um"& _ "fang_3, CMR_Ware_4, CMR_Statistiknr_4, CMR_Bruttogewicht_4, CMR_Umfang_4, CMR_Wa"& _ "re_5, CMR_Statistiknr_5, CMR_Bruttogewicht_5, CMR_Umfang_5, CMR_Ware_6, CMR_Stat"& _ "istiknr_6, CMR_Bruttogewicht_6, CMR_Umfang_6, CMR_Ware_7, CMR_Statistiknr_7, CMR"& _ "_Bruttogewicht_7, CMR_Umfang_7, CMR_Ware_8, CMR_Statistiknr_8, CMR_Bruttogewicht"& _ "_8, CMR_Umfang_8, CMR_Klasse, CMR_Ziffer, CMR_Buchstabe, CMR_ADR, CMR_Ware_9, CM"& _ "R_Statistiknr_9, CMR_Bruttogewicht_9, CMR_Umfang_9, CMR_Anweisungen_1, CMR_Anwei"& _ "sungen_2, CMR_Anweisungen_3, CMR_Anweisungen_4, CMR_Anweisungen_5, CMR_Anweisung"& _ "en_6, CMR_Anweisungen_7, CMR_Rückerstattung, CMR_Frachtzahlungsanweisung_Frei, C"& _ "MR_Frachtzahlungsanweisung_Unfrei, CMR_Frachtführer_1, CMR_Frachtführer_2, CMR_F"& _ "rachtführer_3, CMR_Frachtführer_4, CMR_Frachtführer_5, CMR_Nachf_Frachtführer_1,"& _ " CMR_Nachf_Frachtführer_2, CMR_Nachf_Frachtführer_3, CMR_Nachf_Frachtführer_4, C"& _ "MR_Nachf_Frachtführer_5, CMR_Bemerkungen_1, CMR_Bemerkungen_2, CMR_Bemerkungen_3"& _ ", CMR_Bemerkungen_4, CMR_Bemerkungen_5, CMR_Vereinbarungen_1, CMR_Vereinbarungen"& _ "_2, CMR_Ausgefertigt_in, CMR_Ausgefertigt_am, CMR_Ausgefertigt, CMR_Stempel_Abse"& _ "nder_1, CMR_Stempel_Absender_2, CMR_Stempel_Frachtführer_1, CMR_Stempel_Frachtfü"& _ "hrer_2, CMR_Empfangsbestätigung_Datum, CMR_Stempel_Empfänger_1, CMR_Stempel_Empf"& _ "änger_2, CMR_Tarifentfernung_von_1, CMR_Tarifentfernung_bis_1, CMR_Tarifentfernu"& _ "ng_km_1, CMR_Tarifentfernung_von_2, CMR_Tarifentfernung_bis_2, CMR_Tarifentfernu"& _ "ng_km_2, CMR_Tarifentfernung_von_3, CMR_Tarifentfernung_bis_3, CMR_Tarifentfernu"& _ "ng_km_3, CMR_Tarifentfernung_von_4, CMR_Tarifentfernung_bis_4, CMR_Tarifentfernu"& _ "ng_km_4, CMR_Tarifentfernung_von_5, CMR_Tarifentfernung_bis_5, CMR_Tarifentfernu"& _ "ng_km_5, CMR_Kennzeichen_Kfz, CMR_Nutzlast_Kfz, CMR_Kennzeichen_Anhänger, CMR_Nu"& _ "tzlast_Anhänger, CMR_Erstellt_Datum, CMR_Erstellt_Sachbearbeiter, CMR_Geändert_D"& _ "atum, CMR_Geändert_Sachbearbeiter, CMR_Gedruckt_Datum, CMR_Gedruckt_Sachbearbeit"& _ "er, CMR_zeichen_1, CMR_zeichen_2, CMR_zeichen_3, CMR_zeichen_4, CMR_zeichen_5, C"& _ "MR_zeichen_6, CMR_zeichen_7, CMR_zeichen_8, CMR_zeichen_9, CMR_anzahl_1, CMR_anz"& _ "ahl_2, CMR_anzahl_3, CMR_anzahl_4, CMR_anzahl_5, CMR_anzahl_6, CMR_anzahl_7, CMR"& _ "_anzahl_8, CMR_anzahl_9, CMR_pkArt_1, CMR_pkArt_2, CMR_pkArt_3, CMR_pkArt_4, CMR"& _ "_pkArt_5, CMR_pkArt_6, CMR_pkArt_7, CMR_pkArt_8, CMR_pkArt_9, CMR_TblLangKurz, E"& _ "PBes_ID, SSMA_TimeStamp, CMR_Firma, CMR_isVorlage FROM dbo.CMR" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.CMRDataTable) 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 VERAGDataSet.CMRDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.CMRDataTable = New VERAGDataSet.CMRDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.CMRDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "CMR") 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_CMR_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CMR_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 CMR_Suchbegriff As String, _ ByVal CMR_Absender_1 As String, _ ByVal CMR_Absender_2 As String, _ ByVal CMR_Absender_3 As String, _ ByVal CMR_Absender_4 As String, _ ByVal CMR_Absender_5 As String, _ ByVal CMR_Empfänger_1 As String, _ ByVal CMR_Empfänger_2 As String, _ ByVal CMR_Empfänger_3 As String, _ ByVal CMR_Empfänger_4 As String, _ ByVal CMR_Empfänger_5 As String, _ ByVal CMR_Auslieferung_Ort As String, _ ByVal CMR_Auslieferung_Land As String, _ ByVal CMR_Auslieferung As String, _ ByVal CMR_Übernahme_Ort As String, _ ByVal CMR_Übernahme_Land As String, _ ByVal CMR_Übernahme_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Dokumente_1 As String, _ ByVal CMR_Dokumente_2 As String, _ ByVal CMR_Dokumente_3 As String, _ ByVal CMR_Ware_1 As String, _ ByVal CMR_Statistiknr_1 As String, _ ByVal CMR_Bruttogewicht_1 As String, _ ByVal CMR_Umfang_1 As String, _ ByVal CMR_Ware_2 As String, _ ByVal CMR_Statistiknr_2 As String, _ ByVal CMR_Bruttogewicht_2 As String, _ ByVal CMR_Umfang_2 As String, _ ByVal CMR_Ware_3 As String, _ ByVal CMR_Statistiknr_3 As String, _ ByVal CMR_Bruttogewicht_3 As String, _ ByVal CMR_Umfang_3 As String, _ ByVal CMR_Ware_4 As String, _ ByVal CMR_Statistiknr_4 As String, _ ByVal CMR_Bruttogewicht_4 As String, _ ByVal CMR_Umfang_4 As String, _ ByVal CMR_Ware_5 As String, _ ByVal CMR_Statistiknr_5 As String, _ ByVal CMR_Bruttogewicht_5 As String, _ ByVal CMR_Umfang_5 As String, _ ByVal CMR_Ware_6 As String, _ ByVal CMR_Statistiknr_6 As String, _ ByVal CMR_Bruttogewicht_6 As String, _ ByVal CMR_Umfang_6 As String, _ ByVal CMR_Ware_7 As String, _ ByVal CMR_Statistiknr_7 As String, _ ByVal CMR_Bruttogewicht_7 As String, _ ByVal CMR_Umfang_7 As String, _ ByVal CMR_Ware_8 As String, _ ByVal CMR_Statistiknr_8 As String, _ ByVal CMR_Bruttogewicht_8 As String, _ ByVal CMR_Umfang_8 As String, _ ByVal CMR_Klasse As String, _ ByVal CMR_Ziffer As String, _ ByVal CMR_Buchstabe As String, _ ByVal CMR_ADR As String, _ ByVal CMR_Ware_9 As String, _ ByVal CMR_Statistiknr_9 As String, _ ByVal CMR_Bruttogewicht_9 As String, _ ByVal CMR_Umfang_9 As String, _ ByVal CMR_Anweisungen_1 As String, _ ByVal CMR_Anweisungen_2 As String, _ ByVal CMR_Anweisungen_3 As String, _ ByVal CMR_Anweisungen_4 As String, _ ByVal CMR_Anweisungen_5 As String, _ ByVal CMR_Anweisungen_6 As String, _ ByVal CMR_Anweisungen_7 As String, _ ByVal CMR_Rückerstattung As String, _ ByVal CMR_Frachtzahlungsanweisung_Frei As String, _ ByVal CMR_Frachtzahlungsanweisung_Unfrei As String, _ ByVal CMR_Frachtführer_1 As String, _ ByVal CMR_Frachtführer_2 As String, _ ByVal CMR_Frachtführer_3 As String, _ ByVal CMR_Frachtführer_4 As String, _ ByVal CMR_Frachtführer_5 As String, _ ByVal CMR_Nachf_Frachtführer_1 As String, _ ByVal CMR_Nachf_Frachtführer_2 As String, _ ByVal CMR_Nachf_Frachtführer_3 As String, _ ByVal CMR_Nachf_Frachtführer_4 As String, _ ByVal CMR_Nachf_Frachtführer_5 As String, _ ByVal CMR_Bemerkungen_1 As String, _ ByVal CMR_Bemerkungen_2 As String, _ ByVal CMR_Bemerkungen_3 As String, _ ByVal CMR_Bemerkungen_4 As String, _ ByVal CMR_Bemerkungen_5 As String, _ ByVal CMR_Vereinbarungen_1 As String, _ ByVal CMR_Vereinbarungen_2 As String, _ ByVal CMR_Ausgefertigt_in As String, _ ByVal CMR_Ausgefertigt_am As Global.System.Nullable(Of Date), _ ByVal CMR_Ausgefertigt As String, _ ByVal CMR_Stempel_Absender_1 As String, _ ByVal CMR_Stempel_Absender_2 As String, _ ByVal CMR_Stempel_Frachtführer_1 As String, _ ByVal CMR_Stempel_Frachtführer_2 As String, _ ByVal CMR_Empfangsbestätigung_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Stempel_Empfänger_1 As String, _ ByVal CMR_Stempel_Empfänger_2 As String, _ ByVal CMR_Tarifentfernung_von_1 As String, _ ByVal CMR_Tarifentfernung_bis_1 As String, _ ByVal CMR_Tarifentfernung_km_1 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_2 As String, _ ByVal CMR_Tarifentfernung_bis_2 As String, _ ByVal CMR_Tarifentfernung_km_2 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_3 As String, _ ByVal CMR_Tarifentfernung_bis_3 As String, _ ByVal CMR_Tarifentfernung_km_3 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_4 As String, _ ByVal CMR_Tarifentfernung_bis_4 As String, _ ByVal CMR_Tarifentfernung_km_4 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_5 As String, _ ByVal CMR_Tarifentfernung_bis_5 As String, _ ByVal CMR_Tarifentfernung_km_5 As Global.System.Nullable(Of Integer), _ ByVal CMR_Kennzeichen_Kfz As String, _ ByVal CMR_Nutzlast_Kfz As Global.System.Nullable(Of Double), _ ByVal CMR_Kennzeichen_Anhänger As String, _ ByVal CMR_Nutzlast_Anhänger As Global.System.Nullable(Of Double), _ ByVal CMR_Erstellt_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Erstellt_Sachbearbeiter As String, _ ByVal CMR_Geändert_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Geändert_Sachbearbeiter As String, _ ByVal CMR_Gedruckt_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Gedruckt_Sachbearbeiter As String, _ ByVal CMR_zeichen_1 As String, _ ByVal CMR_zeichen_2 As String, _ ByVal CMR_zeichen_3 As String, _ ByVal CMR_zeichen_4 As String, _ ByVal CMR_zeichen_5 As String, _ ByVal CMR_zeichen_6 As String, _ ByVal CMR_zeichen_7 As String, _ ByVal CMR_zeichen_8 As String, _ ByVal CMR_zeichen_9 As String, _ ByVal CMR_anzahl_1 As String, _ ByVal CMR_anzahl_2 As String, _ ByVal CMR_anzahl_3 As String, _ ByVal CMR_anzahl_4 As String, _ ByVal CMR_anzahl_5 As String, _ ByVal CMR_anzahl_6 As String, _ ByVal CMR_anzahl_7 As String, _ ByVal CMR_anzahl_8 As String, _ ByVal CMR_anzahl_9 As String, _ ByVal CMR_pkArt_1 As String, _ ByVal CMR_pkArt_2 As String, _ ByVal CMR_pkArt_3 As String, _ ByVal CMR_pkArt_4 As String, _ ByVal CMR_pkArt_5 As String, _ ByVal CMR_pkArt_6 As String, _ ByVal CMR_pkArt_7 As String, _ ByVal CMR_pkArt_8 As String, _ ByVal CMR_pkArt_9 As String, _ ByVal CMR_TblLangKurz As String, _ ByVal EPBes_ID As Global.System.Nullable(Of Integer), _ ByVal CMR_Firma As String, _ ByVal CMR_isVorlage As Boolean) As Integer If (CMR_Suchbegriff Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(CMR_Suchbegriff,String) End If If (CMR_Absender_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(CMR_Absender_1,String) End If If (CMR_Absender_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(CMR_Absender_2,String) End If If (CMR_Absender_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(CMR_Absender_3,String) End If If (CMR_Absender_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(CMR_Absender_4,String) End If If (CMR_Absender_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(CMR_Absender_5,String) End If If (CMR_Empfänger_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(CMR_Empfänger_1,String) End If If (CMR_Empfänger_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(CMR_Empfänger_2,String) End If If (CMR_Empfänger_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(CMR_Empfänger_3,String) End If If (CMR_Empfänger_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(CMR_Empfänger_4,String) End If If (CMR_Empfänger_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(CMR_Empfänger_5,String) End If If (CMR_Auslieferung_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(CMR_Auslieferung_Ort,String) End If If (CMR_Auslieferung_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(CMR_Auslieferung_Land,String) End If If (CMR_Auslieferung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(CMR_Auslieferung,String) End If If (CMR_Übernahme_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(CMR_Übernahme_Ort,String) End If If (CMR_Übernahme_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(CMR_Übernahme_Land,String) End If If (CMR_Übernahme_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(CMR_Übernahme_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (CMR_Dokumente_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(CMR_Dokumente_1,String) End If If (CMR_Dokumente_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(CMR_Dokumente_2,String) End If If (CMR_Dokumente_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(CMR_Dokumente_3,String) End If If (CMR_Ware_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(CMR_Ware_1,String) End If If (CMR_Statistiknr_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(CMR_Statistiknr_1,String) End If If (CMR_Bruttogewicht_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(CMR_Bruttogewicht_1,String) End If If (CMR_Umfang_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(CMR_Umfang_1,String) End If If (CMR_Ware_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(CMR_Ware_2,String) End If If (CMR_Statistiknr_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(CMR_Statistiknr_2,String) End If If (CMR_Bruttogewicht_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(CMR_Bruttogewicht_2,String) End If If (CMR_Umfang_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(CMR_Umfang_2,String) End If If (CMR_Ware_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(CMR_Ware_3,String) End If If (CMR_Statistiknr_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(CMR_Statistiknr_3,String) End If If (CMR_Bruttogewicht_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(CMR_Bruttogewicht_3,String) End If If (CMR_Umfang_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(CMR_Umfang_3,String) End If If (CMR_Ware_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(CMR_Ware_4,String) End If If (CMR_Statistiknr_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(CMR_Statistiknr_4,String) End If If (CMR_Bruttogewicht_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(CMR_Bruttogewicht_4,String) End If If (CMR_Umfang_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(CMR_Umfang_4,String) End If If (CMR_Ware_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(CMR_Ware_5,String) End If If (CMR_Statistiknr_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(CMR_Statistiknr_5,String) End If If (CMR_Bruttogewicht_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(CMR_Bruttogewicht_5,String) End If If (CMR_Umfang_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(CMR_Umfang_5,String) End If If (CMR_Ware_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(CMR_Ware_6,String) End If If (CMR_Statistiknr_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(CMR_Statistiknr_6,String) End If If (CMR_Bruttogewicht_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(CMR_Bruttogewicht_6,String) End If If (CMR_Umfang_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(CMR_Umfang_6,String) End If If (CMR_Ware_7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(CMR_Ware_7,String) End If If (CMR_Statistiknr_7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(CMR_Statistiknr_7,String) End If If (CMR_Bruttogewicht_7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(CMR_Bruttogewicht_7,String) End If If (CMR_Umfang_7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(CMR_Umfang_7,String) End If If (CMR_Ware_8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(CMR_Ware_8,String) End If If (CMR_Statistiknr_8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(CMR_Statistiknr_8,String) End If If (CMR_Bruttogewicht_8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(CMR_Bruttogewicht_8,String) End If If (CMR_Umfang_8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(CMR_Umfang_8,String) End If If (CMR_Klasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(CMR_Klasse,String) End If If (CMR_Ziffer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(CMR_Ziffer,String) End If If (CMR_Buchstabe Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(CMR_Buchstabe,String) End If If (CMR_ADR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(CMR_ADR,String) End If If (CMR_Ware_9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(CMR_Ware_9,String) End If If (CMR_Statistiknr_9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(CMR_Statistiknr_9,String) End If If (CMR_Bruttogewicht_9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(CMR_Bruttogewicht_9,String) End If If (CMR_Umfang_9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(CMR_Umfang_9,String) End If If (CMR_Anweisungen_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(CMR_Anweisungen_1,String) End If If (CMR_Anweisungen_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(CMR_Anweisungen_2,String) End If If (CMR_Anweisungen_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(CMR_Anweisungen_3,String) End If If (CMR_Anweisungen_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(CMR_Anweisungen_4,String) End If If (CMR_Anweisungen_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(CMR_Anweisungen_5,String) End If If (CMR_Anweisungen_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(CMR_Anweisungen_6,String) End If If (CMR_Anweisungen_7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(CMR_Anweisungen_7,String) End If If (CMR_Rückerstattung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(CMR_Rückerstattung,String) End If If (CMR_Frachtzahlungsanweisung_Frei Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(CMR_Frachtzahlungsanweisung_Frei,String) End If If (CMR_Frachtzahlungsanweisung_Unfrei Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(CMR_Frachtzahlungsanweisung_Unfrei,String) End If If (CMR_Frachtführer_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(CMR_Frachtführer_1,String) End If If (CMR_Frachtführer_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(CMR_Frachtführer_2,String) End If If (CMR_Frachtführer_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(CMR_Frachtführer_3,String) End If If (CMR_Frachtführer_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(CMR_Frachtführer_4,String) End If If (CMR_Frachtführer_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(CMR_Frachtführer_5,String) End If If (CMR_Nachf_Frachtführer_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(CMR_Nachf_Frachtführer_1,String) End If If (CMR_Nachf_Frachtführer_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(CMR_Nachf_Frachtführer_2,String) End If If (CMR_Nachf_Frachtführer_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(CMR_Nachf_Frachtführer_3,String) End If If (CMR_Nachf_Frachtführer_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(78).Value = CType(CMR_Nachf_Frachtführer_4,String) End If If (CMR_Nachf_Frachtführer_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(CMR_Nachf_Frachtführer_5,String) End If If (CMR_Bemerkungen_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(CMR_Bemerkungen_1,String) End If If (CMR_Bemerkungen_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(CMR_Bemerkungen_2,String) End If If (CMR_Bemerkungen_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(CMR_Bemerkungen_3,String) End If If (CMR_Bemerkungen_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(CMR_Bemerkungen_4,String) End If If (CMR_Bemerkungen_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(CMR_Bemerkungen_5,String) End If If (CMR_Vereinbarungen_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(CMR_Vereinbarungen_1,String) End If If (CMR_Vereinbarungen_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(CMR_Vereinbarungen_2,String) End If If (CMR_Ausgefertigt_in Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(CMR_Ausgefertigt_in,String) End If If (CMR_Ausgefertigt_am.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(88).Value = CType(CMR_Ausgefertigt_am.Value,Date) Else Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (CMR_Ausgefertigt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(CMR_Ausgefertigt,String) End If If (CMR_Stempel_Absender_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(CMR_Stempel_Absender_1,String) End If If (CMR_Stempel_Absender_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(CMR_Stempel_Absender_2,String) End If If (CMR_Stempel_Frachtführer_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(CMR_Stempel_Frachtführer_1,String) End If If (CMR_Stempel_Frachtführer_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(93).Value = CType(CMR_Stempel_Frachtführer_2,String) End If If (CMR_Empfangsbestätigung_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(94).Value = CType(CMR_Empfangsbestätigung_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value End If If (CMR_Stempel_Empfänger_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(CMR_Stempel_Empfänger_1,String) End If If (CMR_Stempel_Empfänger_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(CMR_Stempel_Empfänger_2,String) End If If (CMR_Tarifentfernung_von_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(CMR_Tarifentfernung_von_1,String) End If If (CMR_Tarifentfernung_bis_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(CMR_Tarifentfernung_bis_1,String) End If If (CMR_Tarifentfernung_km_1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(99).Value = CType(CMR_Tarifentfernung_km_1.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value End If If (CMR_Tarifentfernung_von_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(100).Value = CType(CMR_Tarifentfernung_von_2,String) End If If (CMR_Tarifentfernung_bis_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(101).Value = CType(CMR_Tarifentfernung_bis_2,String) End If If (CMR_Tarifentfernung_km_2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(102).Value = CType(CMR_Tarifentfernung_km_2.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(102).Value = Global.System.DBNull.Value End If If (CMR_Tarifentfernung_von_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(103).Value = CType(CMR_Tarifentfernung_von_3,String) End If If (CMR_Tarifentfernung_bis_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(104).Value = CType(CMR_Tarifentfernung_bis_3,String) End If If (CMR_Tarifentfernung_km_3.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(105).Value = CType(CMR_Tarifentfernung_km_3.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(105).Value = Global.System.DBNull.Value End If If (CMR_Tarifentfernung_von_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(106).Value = CType(CMR_Tarifentfernung_von_4,String) End If If (CMR_Tarifentfernung_bis_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(107).Value = CType(CMR_Tarifentfernung_bis_4,String) End If If (CMR_Tarifentfernung_km_4.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(108).Value = CType(CMR_Tarifentfernung_km_4.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(108).Value = Global.System.DBNull.Value End If If (CMR_Tarifentfernung_von_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(109).Value = CType(CMR_Tarifentfernung_von_5,String) End If If (CMR_Tarifentfernung_bis_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(110).Value = CType(CMR_Tarifentfernung_bis_5,String) End If If (CMR_Tarifentfernung_km_5.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(111).Value = CType(CMR_Tarifentfernung_km_5.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(111).Value = Global.System.DBNull.Value End If If (CMR_Kennzeichen_Kfz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(112).Value = CType(CMR_Kennzeichen_Kfz,String) End If If (CMR_Nutzlast_Kfz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(113).Value = CType(CMR_Nutzlast_Kfz.Value,Double) Else Me.Adapter.InsertCommand.Parameters(113).Value = Global.System.DBNull.Value End If If (CMR_Kennzeichen_Anhänger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(114).Value = CType(CMR_Kennzeichen_Anhänger,String) End If If (CMR_Nutzlast_Anhänger.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(115).Value = CType(CMR_Nutzlast_Anhänger.Value,Double) Else Me.Adapter.InsertCommand.Parameters(115).Value = Global.System.DBNull.Value End If If (CMR_Erstellt_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(116).Value = CType(CMR_Erstellt_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(116).Value = Global.System.DBNull.Value End If If (CMR_Erstellt_Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(117).Value = CType(CMR_Erstellt_Sachbearbeiter,String) End If If (CMR_Geändert_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(118).Value = CType(CMR_Geändert_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(118).Value = Global.System.DBNull.Value End If If (CMR_Geändert_Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(119).Value = CType(CMR_Geändert_Sachbearbeiter,String) End If If (CMR_Gedruckt_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(120).Value = CType(CMR_Gedruckt_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(120).Value = Global.System.DBNull.Value End If If (CMR_Gedruckt_Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(121).Value = CType(CMR_Gedruckt_Sachbearbeiter,String) End If If (CMR_zeichen_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(122).Value = CType(CMR_zeichen_1,String) End If If (CMR_zeichen_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(123).Value = CType(CMR_zeichen_2,String) End If If (CMR_zeichen_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(124).Value = CType(CMR_zeichen_3,String) End If If (CMR_zeichen_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(125).Value = CType(CMR_zeichen_4,String) End If If (CMR_zeichen_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(126).Value = CType(CMR_zeichen_5,String) End If If (CMR_zeichen_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(127).Value = CType(CMR_zeichen_6,String) End If If (CMR_zeichen_7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(128).Value = CType(CMR_zeichen_7,String) End If If (CMR_zeichen_8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(129).Value = CType(CMR_zeichen_8,String) End If If (CMR_zeichen_9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(130).Value = CType(CMR_zeichen_9,String) End If If (CMR_anzahl_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(131).Value = CType(CMR_anzahl_1,String) End If If (CMR_anzahl_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(132).Value = CType(CMR_anzahl_2,String) End If If (CMR_anzahl_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(133).Value = CType(CMR_anzahl_3,String) End If If (CMR_anzahl_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(134).Value = CType(CMR_anzahl_4,String) End If If (CMR_anzahl_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(135).Value = CType(CMR_anzahl_5,String) End If If (CMR_anzahl_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(136).Value = CType(CMR_anzahl_6,String) End If If (CMR_anzahl_7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(137).Value = CType(CMR_anzahl_7,String) End If If (CMR_anzahl_8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(138).Value = CType(CMR_anzahl_8,String) End If If (CMR_anzahl_9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(139).Value = CType(CMR_anzahl_9,String) End If If (CMR_pkArt_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(140).Value = CType(CMR_pkArt_1,String) End If If (CMR_pkArt_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(141).Value = CType(CMR_pkArt_2,String) End If If (CMR_pkArt_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(142).Value = CType(CMR_pkArt_3,String) End If If (CMR_pkArt_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(143).Value = CType(CMR_pkArt_4,String) End If If (CMR_pkArt_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(144).Value = CType(CMR_pkArt_5,String) End If If (CMR_pkArt_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(145).Value = CType(CMR_pkArt_6,String) End If If (CMR_pkArt_7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(146).Value = CType(CMR_pkArt_7,String) End If If (CMR_pkArt_8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(147).Value = CType(CMR_pkArt_8,String) End If If (CMR_pkArt_9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(148).Value = CType(CMR_pkArt_9,String) End If If (CMR_TblLangKurz Is Nothing) Then Throw New Global.System.ArgumentNullException("CMR_TblLangKurz") Else Me.Adapter.InsertCommand.Parameters(149).Value = CType(CMR_TblLangKurz,String) End If If (EPBes_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(150).Value = CType(EPBes_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(150).Value = Global.System.DBNull.Value End If If (CMR_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("CMR_Firma") Else Me.Adapter.InsertCommand.Parameters(151).Value = CType(CMR_Firma,String) End If Me.Adapter.InsertCommand.Parameters(152).Value = CType(CMR_isVorlage,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 CMR_Suchbegriff As String, _ ByVal CMR_Absender_1 As String, _ ByVal CMR_Absender_2 As String, _ ByVal CMR_Absender_3 As String, _ ByVal CMR_Absender_4 As String, _ ByVal CMR_Absender_5 As String, _ ByVal CMR_Empfänger_1 As String, _ ByVal CMR_Empfänger_2 As String, _ ByVal CMR_Empfänger_3 As String, _ ByVal CMR_Empfänger_4 As String, _ ByVal CMR_Empfänger_5 As String, _ ByVal CMR_Auslieferung_Ort As String, _ ByVal CMR_Auslieferung_Land As String, _ ByVal CMR_Auslieferung As String, _ ByVal CMR_Übernahme_Ort As String, _ ByVal CMR_Übernahme_Land As String, _ ByVal CMR_Übernahme_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Dokumente_1 As String, _ ByVal CMR_Dokumente_2 As String, _ ByVal CMR_Dokumente_3 As String, _ ByVal CMR_Ware_1 As String, _ ByVal CMR_Statistiknr_1 As String, _ ByVal CMR_Bruttogewicht_1 As String, _ ByVal CMR_Umfang_1 As String, _ ByVal CMR_Ware_2 As String, _ ByVal CMR_Statistiknr_2 As String, _ ByVal CMR_Bruttogewicht_2 As String, _ ByVal CMR_Umfang_2 As String, _ ByVal CMR_Ware_3 As String, _ ByVal CMR_Statistiknr_3 As String, _ ByVal CMR_Bruttogewicht_3 As String, _ ByVal CMR_Umfang_3 As String, _ ByVal CMR_Ware_4 As String, _ ByVal CMR_Statistiknr_4 As String, _ ByVal CMR_Bruttogewicht_4 As String, _ ByVal CMR_Umfang_4 As String, _ ByVal CMR_Ware_5 As String, _ ByVal CMR_Statistiknr_5 As String, _ ByVal CMR_Bruttogewicht_5 As String, _ ByVal CMR_Umfang_5 As String, _ ByVal CMR_Ware_6 As String, _ ByVal CMR_Statistiknr_6 As String, _ ByVal CMR_Bruttogewicht_6 As String, _ ByVal CMR_Umfang_6 As String, _ ByVal CMR_Ware_7 As String, _ ByVal CMR_Statistiknr_7 As String, _ ByVal CMR_Bruttogewicht_7 As String, _ ByVal CMR_Umfang_7 As String, _ ByVal CMR_Ware_8 As String, _ ByVal CMR_Statistiknr_8 As String, _ ByVal CMR_Bruttogewicht_8 As String, _ ByVal CMR_Umfang_8 As String, _ ByVal CMR_Klasse As String, _ ByVal CMR_Ziffer As String, _ ByVal CMR_Buchstabe As String, _ ByVal CMR_ADR As String, _ ByVal CMR_Ware_9 As String, _ ByVal CMR_Statistiknr_9 As String, _ ByVal CMR_Bruttogewicht_9 As String, _ ByVal CMR_Umfang_9 As String, _ ByVal CMR_Anweisungen_1 As String, _ ByVal CMR_Anweisungen_2 As String, _ ByVal CMR_Anweisungen_3 As String, _ ByVal CMR_Anweisungen_4 As String, _ ByVal CMR_Anweisungen_5 As String, _ ByVal CMR_Anweisungen_6 As String, _ ByVal CMR_Anweisungen_7 As String, _ ByVal CMR_Rückerstattung As String, _ ByVal CMR_Frachtzahlungsanweisung_Frei As String, _ ByVal CMR_Frachtzahlungsanweisung_Unfrei As String, _ ByVal CMR_Frachtführer_1 As String, _ ByVal CMR_Frachtführer_2 As String, _ ByVal CMR_Frachtführer_3 As String, _ ByVal CMR_Frachtführer_4 As String, _ ByVal CMR_Frachtführer_5 As String, _ ByVal CMR_Nachf_Frachtführer_1 As String, _ ByVal CMR_Nachf_Frachtführer_2 As String, _ ByVal CMR_Nachf_Frachtführer_3 As String, _ ByVal CMR_Nachf_Frachtführer_4 As String, _ ByVal CMR_Nachf_Frachtführer_5 As String, _ ByVal CMR_Bemerkungen_1 As String, _ ByVal CMR_Bemerkungen_2 As String, _ ByVal CMR_Bemerkungen_3 As String, _ ByVal CMR_Bemerkungen_4 As String, _ ByVal CMR_Bemerkungen_5 As String, _ ByVal CMR_Vereinbarungen_1 As String, _ ByVal CMR_Vereinbarungen_2 As String, _ ByVal CMR_Ausgefertigt_in As String, _ ByVal CMR_Ausgefertigt_am As Global.System.Nullable(Of Date), _ ByVal CMR_Ausgefertigt As String, _ ByVal CMR_Stempel_Absender_1 As String, _ ByVal CMR_Stempel_Absender_2 As String, _ ByVal CMR_Stempel_Frachtführer_1 As String, _ ByVal CMR_Stempel_Frachtführer_2 As String, _ ByVal CMR_Empfangsbestätigung_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Stempel_Empfänger_1 As String, _ ByVal CMR_Stempel_Empfänger_2 As String, _ ByVal CMR_Tarifentfernung_von_1 As String, _ ByVal CMR_Tarifentfernung_bis_1 As String, _ ByVal CMR_Tarifentfernung_km_1 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_2 As String, _ ByVal CMR_Tarifentfernung_bis_2 As String, _ ByVal CMR_Tarifentfernung_km_2 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_3 As String, _ ByVal CMR_Tarifentfernung_bis_3 As String, _ ByVal CMR_Tarifentfernung_km_3 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_4 As String, _ ByVal CMR_Tarifentfernung_bis_4 As String, _ ByVal CMR_Tarifentfernung_km_4 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_5 As String, _ ByVal CMR_Tarifentfernung_bis_5 As String, _ ByVal CMR_Tarifentfernung_km_5 As Global.System.Nullable(Of Integer), _ ByVal CMR_Kennzeichen_Kfz As String, _ ByVal CMR_Nutzlast_Kfz As Global.System.Nullable(Of Double), _ ByVal CMR_Kennzeichen_Anhänger As String, _ ByVal CMR_Nutzlast_Anhänger As Global.System.Nullable(Of Double), _ ByVal CMR_Erstellt_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Erstellt_Sachbearbeiter As String, _ ByVal CMR_Geändert_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Geändert_Sachbearbeiter As String, _ ByVal CMR_Gedruckt_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Gedruckt_Sachbearbeiter As String, _ ByVal CMR_zeichen_1 As String, _ ByVal CMR_zeichen_2 As String, _ ByVal CMR_zeichen_3 As String, _ ByVal CMR_zeichen_4 As String, _ ByVal CMR_zeichen_5 As String, _ ByVal CMR_zeichen_6 As String, _ ByVal CMR_zeichen_7 As String, _ ByVal CMR_zeichen_8 As String, _ ByVal CMR_zeichen_9 As String, _ ByVal CMR_anzahl_1 As String, _ ByVal CMR_anzahl_2 As String, _ ByVal CMR_anzahl_3 As String, _ ByVal CMR_anzahl_4 As String, _ ByVal CMR_anzahl_5 As String, _ ByVal CMR_anzahl_6 As String, _ ByVal CMR_anzahl_7 As String, _ ByVal CMR_anzahl_8 As String, _ ByVal CMR_anzahl_9 As String, _ ByVal CMR_pkArt_1 As String, _ ByVal CMR_pkArt_2 As String, _ ByVal CMR_pkArt_3 As String, _ ByVal CMR_pkArt_4 As String, _ ByVal CMR_pkArt_5 As String, _ ByVal CMR_pkArt_6 As String, _ ByVal CMR_pkArt_7 As String, _ ByVal CMR_pkArt_8 As String, _ ByVal CMR_pkArt_9 As String, _ ByVal CMR_TblLangKurz As String, _ ByVal EPBes_ID As Global.System.Nullable(Of Integer), _ ByVal CMR_Firma As String, _ ByVal CMR_isVorlage As Boolean, _ ByVal Original_CMR_ID As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte, _ ByVal CMR_ID As Integer) As Integer If (CMR_Suchbegriff Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CMR_Suchbegriff,String) End If If (CMR_Absender_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CMR_Absender_1,String) End If If (CMR_Absender_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CMR_Absender_2,String) End If If (CMR_Absender_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CMR_Absender_3,String) End If If (CMR_Absender_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CMR_Absender_4,String) End If If (CMR_Absender_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CMR_Absender_5,String) End If If (CMR_Empfänger_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CMR_Empfänger_1,String) End If If (CMR_Empfänger_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CMR_Empfänger_2,String) End If If (CMR_Empfänger_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CMR_Empfänger_3,String) End If If (CMR_Empfänger_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CMR_Empfänger_4,String) End If If (CMR_Empfänger_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CMR_Empfänger_5,String) End If If (CMR_Auslieferung_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CMR_Auslieferung_Ort,String) End If If (CMR_Auslieferung_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CMR_Auslieferung_Land,String) End If If (CMR_Auslieferung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CMR_Auslieferung,String) End If If (CMR_Übernahme_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(CMR_Übernahme_Ort,String) End If If (CMR_Übernahme_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CMR_Übernahme_Land,String) End If If (CMR_Übernahme_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(CMR_Übernahme_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (CMR_Dokumente_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(CMR_Dokumente_1,String) End If If (CMR_Dokumente_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(CMR_Dokumente_2,String) End If If (CMR_Dokumente_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(CMR_Dokumente_3,String) End If If (CMR_Ware_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(CMR_Ware_1,String) End If If (CMR_Statistiknr_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(CMR_Statistiknr_1,String) End If If (CMR_Bruttogewicht_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(CMR_Bruttogewicht_1,String) End If If (CMR_Umfang_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(CMR_Umfang_1,String) End If If (CMR_Ware_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(CMR_Ware_2,String) End If If (CMR_Statistiknr_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(CMR_Statistiknr_2,String) End If If (CMR_Bruttogewicht_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(CMR_Bruttogewicht_2,String) End If If (CMR_Umfang_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(CMR_Umfang_2,String) End If If (CMR_Ware_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(CMR_Ware_3,String) End If If (CMR_Statistiknr_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(CMR_Statistiknr_3,String) End If If (CMR_Bruttogewicht_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(CMR_Bruttogewicht_3,String) End If If (CMR_Umfang_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(CMR_Umfang_3,String) End If If (CMR_Ware_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(CMR_Ware_4,String) End If If (CMR_Statistiknr_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(CMR_Statistiknr_4,String) End If If (CMR_Bruttogewicht_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(CMR_Bruttogewicht_4,String) End If If (CMR_Umfang_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(CMR_Umfang_4,String) End If If (CMR_Ware_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(CMR_Ware_5,String) End If If (CMR_Statistiknr_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(CMR_Statistiknr_5,String) End If If (CMR_Bruttogewicht_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(CMR_Bruttogewicht_5,String) End If If (CMR_Umfang_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(CMR_Umfang_5,String) End If If (CMR_Ware_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(CMR_Ware_6,String) End If If (CMR_Statistiknr_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(CMR_Statistiknr_6,String) End If If (CMR_Bruttogewicht_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(CMR_Bruttogewicht_6,String) End If If (CMR_Umfang_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(CMR_Umfang_6,String) End If If (CMR_Ware_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(CMR_Ware_7,String) End If If (CMR_Statistiknr_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(CMR_Statistiknr_7,String) End If If (CMR_Bruttogewicht_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(CMR_Bruttogewicht_7,String) End If If (CMR_Umfang_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(CMR_Umfang_7,String) End If If (CMR_Ware_8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(CMR_Ware_8,String) End If If (CMR_Statistiknr_8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(CMR_Statistiknr_8,String) End If If (CMR_Bruttogewicht_8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(CMR_Bruttogewicht_8,String) End If If (CMR_Umfang_8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(CMR_Umfang_8,String) End If If (CMR_Klasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(CMR_Klasse,String) End If If (CMR_Ziffer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(CMR_Ziffer,String) End If If (CMR_Buchstabe Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(CMR_Buchstabe,String) End If If (CMR_ADR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(CMR_ADR,String) End If If (CMR_Ware_9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(CMR_Ware_9,String) End If If (CMR_Statistiknr_9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(CMR_Statistiknr_9,String) End If If (CMR_Bruttogewicht_9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(CMR_Bruttogewicht_9,String) End If If (CMR_Umfang_9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(CMR_Umfang_9,String) End If If (CMR_Anweisungen_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(CMR_Anweisungen_1,String) End If If (CMR_Anweisungen_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(CMR_Anweisungen_2,String) End If If (CMR_Anweisungen_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(CMR_Anweisungen_3,String) End If If (CMR_Anweisungen_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(CMR_Anweisungen_4,String) End If If (CMR_Anweisungen_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(CMR_Anweisungen_5,String) End If If (CMR_Anweisungen_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(CMR_Anweisungen_6,String) End If If (CMR_Anweisungen_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(CMR_Anweisungen_7,String) End If If (CMR_Rückerstattung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(CMR_Rückerstattung,String) End If If (CMR_Frachtzahlungsanweisung_Frei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(CMR_Frachtzahlungsanweisung_Frei,String) End If If (CMR_Frachtzahlungsanweisung_Unfrei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(CMR_Frachtzahlungsanweisung_Unfrei,String) End If If (CMR_Frachtführer_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(CMR_Frachtführer_1,String) End If If (CMR_Frachtführer_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(CMR_Frachtführer_2,String) End If If (CMR_Frachtführer_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(CMR_Frachtführer_3,String) End If If (CMR_Frachtführer_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(CMR_Frachtführer_4,String) End If If (CMR_Frachtführer_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(CMR_Frachtführer_5,String) End If If (CMR_Nachf_Frachtführer_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(CMR_Nachf_Frachtführer_1,String) End If If (CMR_Nachf_Frachtführer_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(CMR_Nachf_Frachtführer_2,String) End If If (CMR_Nachf_Frachtführer_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(CMR_Nachf_Frachtführer_3,String) End If If (CMR_Nachf_Frachtführer_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(CMR_Nachf_Frachtführer_4,String) End If If (CMR_Nachf_Frachtführer_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(CMR_Nachf_Frachtführer_5,String) End If If (CMR_Bemerkungen_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(CMR_Bemerkungen_1,String) End If If (CMR_Bemerkungen_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(CMR_Bemerkungen_2,String) End If If (CMR_Bemerkungen_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(CMR_Bemerkungen_3,String) End If If (CMR_Bemerkungen_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(CMR_Bemerkungen_4,String) End If If (CMR_Bemerkungen_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(CMR_Bemerkungen_5,String) End If If (CMR_Vereinbarungen_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(CMR_Vereinbarungen_1,String) End If If (CMR_Vereinbarungen_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(CMR_Vereinbarungen_2,String) End If If (CMR_Ausgefertigt_in Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(CMR_Ausgefertigt_in,String) End If If (CMR_Ausgefertigt_am.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(CMR_Ausgefertigt_am.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (CMR_Ausgefertigt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(CMR_Ausgefertigt,String) End If If (CMR_Stempel_Absender_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(CMR_Stempel_Absender_1,String) End If If (CMR_Stempel_Absender_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(CMR_Stempel_Absender_2,String) End If If (CMR_Stempel_Frachtführer_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(CMR_Stempel_Frachtführer_1,String) End If If (CMR_Stempel_Frachtführer_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(CMR_Stempel_Frachtführer_2,String) End If If (CMR_Empfangsbestätigung_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(94).Value = CType(CMR_Empfangsbestätigung_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value End If If (CMR_Stempel_Empfänger_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(CMR_Stempel_Empfänger_1,String) End If If (CMR_Stempel_Empfänger_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(CMR_Stempel_Empfänger_2,String) End If If (CMR_Tarifentfernung_von_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(CMR_Tarifentfernung_von_1,String) End If If (CMR_Tarifentfernung_bis_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(CMR_Tarifentfernung_bis_1,String) End If If (CMR_Tarifentfernung_km_1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(99).Value = CType(CMR_Tarifentfernung_km_1.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value End If If (CMR_Tarifentfernung_von_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(CMR_Tarifentfernung_von_2,String) End If If (CMR_Tarifentfernung_bis_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(CMR_Tarifentfernung_bis_2,String) End If If (CMR_Tarifentfernung_km_2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(102).Value = CType(CMR_Tarifentfernung_km_2.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value End If If (CMR_Tarifentfernung_von_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(CMR_Tarifentfernung_von_3,String) End If If (CMR_Tarifentfernung_bis_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(CMR_Tarifentfernung_bis_3,String) End If If (CMR_Tarifentfernung_km_3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(105).Value = CType(CMR_Tarifentfernung_km_3.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value End If If (CMR_Tarifentfernung_von_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(CMR_Tarifentfernung_von_4,String) End If If (CMR_Tarifentfernung_bis_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(CMR_Tarifentfernung_bis_4,String) End If If (CMR_Tarifentfernung_km_4.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(108).Value = CType(CMR_Tarifentfernung_km_4.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value End If If (CMR_Tarifentfernung_von_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(CMR_Tarifentfernung_von_5,String) End If If (CMR_Tarifentfernung_bis_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(CMR_Tarifentfernung_bis_5,String) End If If (CMR_Tarifentfernung_km_5.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(111).Value = CType(CMR_Tarifentfernung_km_5.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value End If If (CMR_Kennzeichen_Kfz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(CMR_Kennzeichen_Kfz,String) End If If (CMR_Nutzlast_Kfz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(113).Value = CType(CMR_Nutzlast_Kfz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value End If If (CMR_Kennzeichen_Anhänger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(CMR_Kennzeichen_Anhänger,String) End If If (CMR_Nutzlast_Anhänger.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(115).Value = CType(CMR_Nutzlast_Anhänger.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value End If If (CMR_Erstellt_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(116).Value = CType(CMR_Erstellt_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value End If If (CMR_Erstellt_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(CMR_Erstellt_Sachbearbeiter,String) End If If (CMR_Geändert_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(118).Value = CType(CMR_Geändert_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value End If If (CMR_Geändert_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(CMR_Geändert_Sachbearbeiter,String) End If If (CMR_Gedruckt_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(120).Value = CType(CMR_Gedruckt_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value End If If (CMR_Gedruckt_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(CMR_Gedruckt_Sachbearbeiter,String) End If If (CMR_zeichen_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(CMR_zeichen_1,String) End If If (CMR_zeichen_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(CMR_zeichen_2,String) End If If (CMR_zeichen_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(CMR_zeichen_3,String) End If If (CMR_zeichen_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(CMR_zeichen_4,String) End If If (CMR_zeichen_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(CMR_zeichen_5,String) End If If (CMR_zeichen_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(CMR_zeichen_6,String) End If If (CMR_zeichen_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(128).Value = CType(CMR_zeichen_7,String) End If If (CMR_zeichen_8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(CMR_zeichen_8,String) End If If (CMR_zeichen_9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(CMR_zeichen_9,String) End If If (CMR_anzahl_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(CMR_anzahl_1,String) End If If (CMR_anzahl_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(CMR_anzahl_2,String) End If If (CMR_anzahl_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(CMR_anzahl_3,String) End If If (CMR_anzahl_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(CMR_anzahl_4,String) End If If (CMR_anzahl_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(CMR_anzahl_5,String) End If If (CMR_anzahl_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(CMR_anzahl_6,String) End If If (CMR_anzahl_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(CMR_anzahl_7,String) End If If (CMR_anzahl_8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(138).Value = CType(CMR_anzahl_8,String) End If If (CMR_anzahl_9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(CMR_anzahl_9,String) End If If (CMR_pkArt_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(140).Value = CType(CMR_pkArt_1,String) End If If (CMR_pkArt_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(CMR_pkArt_2,String) End If If (CMR_pkArt_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(142).Value = CType(CMR_pkArt_3,String) End If If (CMR_pkArt_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(CMR_pkArt_4,String) End If If (CMR_pkArt_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(144).Value = CType(CMR_pkArt_5,String) End If If (CMR_pkArt_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(CMR_pkArt_6,String) End If If (CMR_pkArt_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(146).Value = CType(CMR_pkArt_7,String) End If If (CMR_pkArt_8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(CMR_pkArt_8,String) End If If (CMR_pkArt_9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(148).Value = CType(CMR_pkArt_9,String) End If If (CMR_TblLangKurz Is Nothing) Then Throw New Global.System.ArgumentNullException("CMR_TblLangKurz") Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(CMR_TblLangKurz,String) End If If (EPBes_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(150).Value = CType(EPBes_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value End If If (CMR_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("CMR_Firma") Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(CMR_Firma,String) End If Me.Adapter.UpdateCommand.Parameters(152).Value = CType(CMR_isVorlage,Boolean) Me.Adapter.UpdateCommand.Parameters(153).Value = CType(Original_CMR_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(154).Value = CType(Original_SSMA_TimeStamp,Byte()) End If Me.Adapter.UpdateCommand.Parameters(155).Value = CType(CMR_ID,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 CMR_Suchbegriff As String, _ ByVal CMR_Absender_1 As String, _ ByVal CMR_Absender_2 As String, _ ByVal CMR_Absender_3 As String, _ ByVal CMR_Absender_4 As String, _ ByVal CMR_Absender_5 As String, _ ByVal CMR_Empfänger_1 As String, _ ByVal CMR_Empfänger_2 As String, _ ByVal CMR_Empfänger_3 As String, _ ByVal CMR_Empfänger_4 As String, _ ByVal CMR_Empfänger_5 As String, _ ByVal CMR_Auslieferung_Ort As String, _ ByVal CMR_Auslieferung_Land As String, _ ByVal CMR_Auslieferung As String, _ ByVal CMR_Übernahme_Ort As String, _ ByVal CMR_Übernahme_Land As String, _ ByVal CMR_Übernahme_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Dokumente_1 As String, _ ByVal CMR_Dokumente_2 As String, _ ByVal CMR_Dokumente_3 As String, _ ByVal CMR_Ware_1 As String, _ ByVal CMR_Statistiknr_1 As String, _ ByVal CMR_Bruttogewicht_1 As String, _ ByVal CMR_Umfang_1 As String, _ ByVal CMR_Ware_2 As String, _ ByVal CMR_Statistiknr_2 As String, _ ByVal CMR_Bruttogewicht_2 As String, _ ByVal CMR_Umfang_2 As String, _ ByVal CMR_Ware_3 As String, _ ByVal CMR_Statistiknr_3 As String, _ ByVal CMR_Bruttogewicht_3 As String, _ ByVal CMR_Umfang_3 As String, _ ByVal CMR_Ware_4 As String, _ ByVal CMR_Statistiknr_4 As String, _ ByVal CMR_Bruttogewicht_4 As String, _ ByVal CMR_Umfang_4 As String, _ ByVal CMR_Ware_5 As String, _ ByVal CMR_Statistiknr_5 As String, _ ByVal CMR_Bruttogewicht_5 As String, _ ByVal CMR_Umfang_5 As String, _ ByVal CMR_Ware_6 As String, _ ByVal CMR_Statistiknr_6 As String, _ ByVal CMR_Bruttogewicht_6 As String, _ ByVal CMR_Umfang_6 As String, _ ByVal CMR_Ware_7 As String, _ ByVal CMR_Statistiknr_7 As String, _ ByVal CMR_Bruttogewicht_7 As String, _ ByVal CMR_Umfang_7 As String, _ ByVal CMR_Ware_8 As String, _ ByVal CMR_Statistiknr_8 As String, _ ByVal CMR_Bruttogewicht_8 As String, _ ByVal CMR_Umfang_8 As String, _ ByVal CMR_Klasse As String, _ ByVal CMR_Ziffer As String, _ ByVal CMR_Buchstabe As String, _ ByVal CMR_ADR As String, _ ByVal CMR_Ware_9 As String, _ ByVal CMR_Statistiknr_9 As String, _ ByVal CMR_Bruttogewicht_9 As String, _ ByVal CMR_Umfang_9 As String, _ ByVal CMR_Anweisungen_1 As String, _ ByVal CMR_Anweisungen_2 As String, _ ByVal CMR_Anweisungen_3 As String, _ ByVal CMR_Anweisungen_4 As String, _ ByVal CMR_Anweisungen_5 As String, _ ByVal CMR_Anweisungen_6 As String, _ ByVal CMR_Anweisungen_7 As String, _ ByVal CMR_Rückerstattung As String, _ ByVal CMR_Frachtzahlungsanweisung_Frei As String, _ ByVal CMR_Frachtzahlungsanweisung_Unfrei As String, _ ByVal CMR_Frachtführer_1 As String, _ ByVal CMR_Frachtführer_2 As String, _ ByVal CMR_Frachtführer_3 As String, _ ByVal CMR_Frachtführer_4 As String, _ ByVal CMR_Frachtführer_5 As String, _ ByVal CMR_Nachf_Frachtführer_1 As String, _ ByVal CMR_Nachf_Frachtführer_2 As String, _ ByVal CMR_Nachf_Frachtführer_3 As String, _ ByVal CMR_Nachf_Frachtführer_4 As String, _ ByVal CMR_Nachf_Frachtführer_5 As String, _ ByVal CMR_Bemerkungen_1 As String, _ ByVal CMR_Bemerkungen_2 As String, _ ByVal CMR_Bemerkungen_3 As String, _ ByVal CMR_Bemerkungen_4 As String, _ ByVal CMR_Bemerkungen_5 As String, _ ByVal CMR_Vereinbarungen_1 As String, _ ByVal CMR_Vereinbarungen_2 As String, _ ByVal CMR_Ausgefertigt_in As String, _ ByVal CMR_Ausgefertigt_am As Global.System.Nullable(Of Date), _ ByVal CMR_Ausgefertigt As String, _ ByVal CMR_Stempel_Absender_1 As String, _ ByVal CMR_Stempel_Absender_2 As String, _ ByVal CMR_Stempel_Frachtführer_1 As String, _ ByVal CMR_Stempel_Frachtführer_2 As String, _ ByVal CMR_Empfangsbestätigung_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Stempel_Empfänger_1 As String, _ ByVal CMR_Stempel_Empfänger_2 As String, _ ByVal CMR_Tarifentfernung_von_1 As String, _ ByVal CMR_Tarifentfernung_bis_1 As String, _ ByVal CMR_Tarifentfernung_km_1 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_2 As String, _ ByVal CMR_Tarifentfernung_bis_2 As String, _ ByVal CMR_Tarifentfernung_km_2 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_3 As String, _ ByVal CMR_Tarifentfernung_bis_3 As String, _ ByVal CMR_Tarifentfernung_km_3 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_4 As String, _ ByVal CMR_Tarifentfernung_bis_4 As String, _ ByVal CMR_Tarifentfernung_km_4 As Global.System.Nullable(Of Integer), _ ByVal CMR_Tarifentfernung_von_5 As String, _ ByVal CMR_Tarifentfernung_bis_5 As String, _ ByVal CMR_Tarifentfernung_km_5 As Global.System.Nullable(Of Integer), _ ByVal CMR_Kennzeichen_Kfz As String, _ ByVal CMR_Nutzlast_Kfz As Global.System.Nullable(Of Double), _ ByVal CMR_Kennzeichen_Anhänger As String, _ ByVal CMR_Nutzlast_Anhänger As Global.System.Nullable(Of Double), _ ByVal CMR_Erstellt_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Erstellt_Sachbearbeiter As String, _ ByVal CMR_Geändert_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Geändert_Sachbearbeiter As String, _ ByVal CMR_Gedruckt_Datum As Global.System.Nullable(Of Date), _ ByVal CMR_Gedruckt_Sachbearbeiter As String, _ ByVal CMR_zeichen_1 As String, _ ByVal CMR_zeichen_2 As String, _ ByVal CMR_zeichen_3 As String, _ ByVal CMR_zeichen_4 As String, _ ByVal CMR_zeichen_5 As String, _ ByVal CMR_zeichen_6 As String, _ ByVal CMR_zeichen_7 As String, _ ByVal CMR_zeichen_8 As String, _ ByVal CMR_zeichen_9 As String, _ ByVal CMR_anzahl_1 As String, _ ByVal CMR_anzahl_2 As String, _ ByVal CMR_anzahl_3 As String, _ ByVal CMR_anzahl_4 As String, _ ByVal CMR_anzahl_5 As String, _ ByVal CMR_anzahl_6 As String, _ ByVal CMR_anzahl_7 As String, _ ByVal CMR_anzahl_8 As String, _ ByVal CMR_anzahl_9 As String, _ ByVal CMR_pkArt_1 As String, _ ByVal CMR_pkArt_2 As String, _ ByVal CMR_pkArt_3 As String, _ ByVal CMR_pkArt_4 As String, _ ByVal CMR_pkArt_5 As String, _ ByVal CMR_pkArt_6 As String, _ ByVal CMR_pkArt_7 As String, _ ByVal CMR_pkArt_8 As String, _ ByVal CMR_pkArt_9 As String, _ ByVal CMR_TblLangKurz As String, _ ByVal EPBes_ID As Global.System.Nullable(Of Integer), _ ByVal CMR_Firma As String, _ ByVal CMR_isVorlage As Boolean, _ ByVal Original_CMR_ID As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(CMR_Suchbegriff, CMR_Absender_1, CMR_Absender_2, CMR_Absender_3, CMR_Absender_4, CMR_Absender_5, CMR_Empfänger_1, CMR_Empfänger_2, CMR_Empfänger_3, CMR_Empfänger_4, CMR_Empfänger_5, CMR_Auslieferung_Ort, CMR_Auslieferung_Land, CMR_Auslieferung, CMR_Übernahme_Ort, CMR_Übernahme_Land, CMR_Übernahme_Datum, CMR_Dokumente_1, CMR_Dokumente_2, CMR_Dokumente_3, CMR_Ware_1, CMR_Statistiknr_1, CMR_Bruttogewicht_1, CMR_Umfang_1, CMR_Ware_2, CMR_Statistiknr_2, CMR_Bruttogewicht_2, CMR_Umfang_2, CMR_Ware_3, CMR_Statistiknr_3, CMR_Bruttogewicht_3, CMR_Umfang_3, CMR_Ware_4, CMR_Statistiknr_4, CMR_Bruttogewicht_4, CMR_Umfang_4, CMR_Ware_5, CMR_Statistiknr_5, CMR_Bruttogewicht_5, CMR_Umfang_5, CMR_Ware_6, CMR_Statistiknr_6, CMR_Bruttogewicht_6, CMR_Umfang_6, CMR_Ware_7, CMR_Statistiknr_7, CMR_Bruttogewicht_7, CMR_Umfang_7, CMR_Ware_8, CMR_Statistiknr_8, CMR_Bruttogewicht_8, CMR_Umfang_8, CMR_Klasse, CMR_Ziffer, CMR_Buchstabe, CMR_ADR, CMR_Ware_9, CMR_Statistiknr_9, CMR_Bruttogewicht_9, CMR_Umfang_9, CMR_Anweisungen_1, CMR_Anweisungen_2, CMR_Anweisungen_3, CMR_Anweisungen_4, CMR_Anweisungen_5, CMR_Anweisungen_6, CMR_Anweisungen_7, CMR_Rückerstattung, CMR_Frachtzahlungsanweisung_Frei, CMR_Frachtzahlungsanweisung_Unfrei, CMR_Frachtführer_1, CMR_Frachtführer_2, CMR_Frachtführer_3, CMR_Frachtführer_4, CMR_Frachtführer_5, CMR_Nachf_Frachtführer_1, CMR_Nachf_Frachtführer_2, CMR_Nachf_Frachtführer_3, CMR_Nachf_Frachtführer_4, CMR_Nachf_Frachtführer_5, CMR_Bemerkungen_1, CMR_Bemerkungen_2, CMR_Bemerkungen_3, CMR_Bemerkungen_4, CMR_Bemerkungen_5, CMR_Vereinbarungen_1, CMR_Vereinbarungen_2, CMR_Ausgefertigt_in, CMR_Ausgefertigt_am, CMR_Ausgefertigt, CMR_Stempel_Absender_1, CMR_Stempel_Absender_2, CMR_Stempel_Frachtführer_1, CMR_Stempel_Frachtführer_2, CMR_Empfangsbestätigung_Datum, CMR_Stempel_Empfänger_1, CMR_Stempel_Empfänger_2, CMR_Tarifentfernung_von_1, CMR_Tarifentfernung_bis_1, CMR_Tarifentfernung_km_1, CMR_Tarifentfernung_von_2, CMR_Tarifentfernung_bis_2, CMR_Tarifentfernung_km_2, CMR_Tarifentfernung_von_3, CMR_Tarifentfernung_bis_3, CMR_Tarifentfernung_km_3, CMR_Tarifentfernung_von_4, CMR_Tarifentfernung_bis_4, CMR_Tarifentfernung_km_4, CMR_Tarifentfernung_von_5, CMR_Tarifentfernung_bis_5, CMR_Tarifentfernung_km_5, CMR_Kennzeichen_Kfz, CMR_Nutzlast_Kfz, CMR_Kennzeichen_Anhänger, CMR_Nutzlast_Anhänger, CMR_Erstellt_Datum, CMR_Erstellt_Sachbearbeiter, CMR_Geändert_Datum, CMR_Geändert_Sachbearbeiter, CMR_Gedruckt_Datum, CMR_Gedruckt_Sachbearbeiter, CMR_zeichen_1, CMR_zeichen_2, CMR_zeichen_3, CMR_zeichen_4, CMR_zeichen_5, CMR_zeichen_6, CMR_zeichen_7, CMR_zeichen_8, CMR_zeichen_9, CMR_anzahl_1, CMR_anzahl_2, CMR_anzahl_3, CMR_anzahl_4, CMR_anzahl_5, CMR_anzahl_6, CMR_anzahl_7, CMR_anzahl_8, CMR_anzahl_9, CMR_pkArt_1, CMR_pkArt_2, CMR_pkArt_3, CMR_pkArt_4, CMR_pkArt_5, CMR_pkArt_6, CMR_pkArt_7, CMR_pkArt_8, CMR_pkArt_9, CMR_TblLangKurz, EPBes_ID, CMR_Firma, CMR_isVorlage, Original_CMR_ID, Original_SSMA_TimeStamp, Original_CMR_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class DevisenkurseTableAdapter 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 = "Devisenkurse" tableMapping.ColumnMappings.Add("Währungsschlüssel", "Währungsschlüssel") tableMapping.ColumnMappings.Add("Monat", "Monat") tableMapping.ColumnMappings.Add("Kurs", "Kurs") tableMapping.ColumnMappings.Add("Kurs1EUR", "Kurs1EUR") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Devisenkurse] WHERE (([Währungsschlüssel] = @Original_Währungs"& _ "schlüssel) AND ([Monat] = @Original_Monat) AND ([SSMA_TimeStamp] = @Original_SSM"& _ "A_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Monat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Monat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Devisenkurse] ([Währungsschlüssel], [Monat], [Kurs], [Kurs1EUR"& _ "]) VALUES (@Währungsschlüssel, @Monat, @Kurs, @Kurs1EUR);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Währungsschlüs"& _ "sel, Monat, Kurs, Kurs1EUR, SSMA_TimeStamp FROM Devisenkurse WHERE (Monat = @Mon"& _ "at) AND (Währungsschlüssel = @Währungsschlüssel)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Monat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Monat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kurs1EUR", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kurs1EUR", 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].[Devisenkurse] SET [Währungsschlüssel] = @Währungsschlüssel, [Monat]"& _ " = @Monat, [Kurs] = @Kurs, [Kurs1EUR] = @Kurs1EUR WHERE (([Währungsschlüssel] = "& _ "@Original_Währungsschlüssel) AND ([Monat] = @Original_Monat) AND ([SSMA_TimeStam"& _ "p] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Währungsschlüssel, Monat, Kurs, Kurs1EU"& _ "R, SSMA_TimeStamp FROM Devisenkurse WHERE (Monat = @Monat) AND (Währungsschlüsse"& _ "l = @Währungsschlüssel)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Monat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Monat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kurs1EUR", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kurs1EUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Monat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Monat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Währungsschlüssel, Monat, Kurs, Kurs1EUR, SSMA_TimeStamp FROM dbo.Devisenk"& _ "urse" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.DevisenkurseDataTable) 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 VERAGDataSet.DevisenkurseDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.DevisenkurseDataTable = New VERAGDataSet.DevisenkurseDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.DevisenkurseDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Devisenkurse") 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_Währungsschlüssel As Short, ByVal Original_Monat As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Währungsschlüssel,Short) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Monat,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Währungsschlüssel As Short, ByVal Monat As Short, ByVal Kurs As Double, ByVal Kurs1EUR As Double) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Währungsschlüssel,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Monat,Short) Me.Adapter.InsertCommand.Parameters(2).Value = CType(Kurs,Double) Me.Adapter.InsertCommand.Parameters(3).Value = CType(Kurs1EUR,Double) 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 Währungsschlüssel As Short, ByVal Monat As Short, ByVal Kurs As Double, ByVal Kurs1EUR As Double, ByVal Original_Währungsschlüssel As Short, ByVal Original_Monat As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Währungsschlüssel,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Monat,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Kurs,Double) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Kurs1EUR,Double) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Währungsschlüssel,Short) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Monat,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Kurs As Double, ByVal Kurs1EUR As Double, ByVal Original_Währungsschlüssel As Short, ByVal Original_Monat As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Währungsschlüssel, Original_Monat, Kurs, Kurs1EUR, Original_Währungsschlüssel, Original_Monat, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class EPBesTableAdapter 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 = "EPBes" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("ANMELDUNG1", "ANMELDUNG1") tableMapping.ColumnMappings.Add("ANMELDUNG2", "ANMELDUNG2") tableMapping.ColumnMappings.Add("VersenderAusführerNr", "VersenderAusführerNr") tableMapping.ColumnMappings.Add("VersenderAusführer", "VersenderAusführer") tableMapping.ColumnMappings.Add("Vordrucke1", "Vordrucke1") tableMapping.ColumnMappings.Add("Vordrucke2", "Vordrucke2") tableMapping.ColumnMappings.Add("Positionen", "Positionen") tableMapping.ColumnMappings.Add("EmpfängerNr", "EmpfängerNr") tableMapping.ColumnMappings.Add("Empfänger", "Empfänger") tableMapping.ColumnMappings.Add("Handelsland", "Handelsland") tableMapping.ColumnMappings.Add("AnmelderVertreterNr", "AnmelderVertreterNr") tableMapping.ColumnMappings.Add("Anmelder", "Anmelder") tableMapping.ColumnMappings.Add("Vertreter", "Vertreter") tableMapping.ColumnMappings.Add("VersendungsAusfuhrland", "VersendungsAusfuhrland") tableMapping.ColumnMappings.Add("VersendungsAusfuhrlandCode", "VersendungsAusfuhrlandCode") tableMapping.ColumnMappings.Add("Ursprungsland", "Ursprungsland") tableMapping.ColumnMappings.Add("BestimmungslandCodeA", "BestimmungslandCodeA") tableMapping.ColumnMappings.Add("BestimmungslandCodeB", "BestimmungslandCodeB") tableMapping.ColumnMappings.Add("KennzeichenAnkunft", "KennzeichenAnkunft") tableMapping.ColumnMappings.Add("StaatszugehörigkeitAnkunft", "StaatszugehörigkeitAnkunft") tableMapping.ColumnMappings.Add("Container", "Container") tableMapping.ColumnMappings.Add("LieferbedingungCode", "LieferbedingungCode") tableMapping.ColumnMappings.Add("Lieferbedingung", "Lieferbedingung") tableMapping.ColumnMappings.Add("KennzeichenGrenze", "KennzeichenGrenze") tableMapping.ColumnMappings.Add("StaatszugehörigkeitGrenze", "StaatszugehörigkeitGrenze") tableMapping.ColumnMappings.Add("Währung", "Währung") tableMapping.ColumnMappings.Add("Rechnungsbetrag", "Rechnungsbetrag") tableMapping.ColumnMappings.Add("Umrechnungskurs", "Umrechnungskurs") tableMapping.ColumnMappings.Add("Geschäftsart", "Geschäftsart") tableMapping.ColumnMappings.Add("VerkehrszweigGrenze", "VerkehrszweigGrenze") tableMapping.ColumnMappings.Add("InländischerVerkehrszweig", "InländischerVerkehrszweig") tableMapping.ColumnMappings.Add("Entladeort", "Entladeort") tableMapping.ColumnMappings.Add("Eingangszollstelle", "Eingangszollstelle") tableMapping.ColumnMappings.Add("Warenort", "Warenort") tableMapping.ColumnMappings.Add("Packstücke", "Packstücke") tableMapping.ColumnMappings.Add("Warenbezeichnung", "Warenbezeichnung") tableMapping.ColumnMappings.Add("PositionsNr", "PositionsNr") tableMapping.ColumnMappings.Add("Warennummer1", "Warennummer1") tableMapping.ColumnMappings.Add("Warennummer2", "Warennummer2") tableMapping.ColumnMappings.Add("Warennummer3", "Warennummer3") tableMapping.ColumnMappings.Add("Warennummer4", "Warennummer4") tableMapping.ColumnMappings.Add("Warennummer5", "Warennummer5") tableMapping.ColumnMappings.Add("UrsprungslandCode", "UrsprungslandCode") tableMapping.ColumnMappings.Add("Rohmasse", "Rohmasse") tableMapping.ColumnMappings.Add("Präferenz", "Präferenz") tableMapping.ColumnMappings.Add("Verfahren", "Verfahren") tableMapping.ColumnMappings.Add("Eigenmasse", "Eigenmasse") tableMapping.ColumnMappings.Add("Kontingent", "Kontingent") tableMapping.ColumnMappings.Add("SumAnmeldungVorpapier", "SumAnmeldungVorpapier") tableMapping.ColumnMappings.Add("BesondereMasseinheit", "BesondereMasseinheit") tableMapping.ColumnMappings.Add("Vorsteuerabzug", "Vorsteuerabzug") tableMapping.ColumnMappings.Add("BesondereVermerke", "BesondereVermerke") tableMapping.ColumnMappings.Add("BesondereVermerkeZeile1", "BesondereVermerkeZeile1") tableMapping.ColumnMappings.Add("BesondereVermerkeBetrag1", "BesondereVermerkeBetrag1") tableMapping.ColumnMappings.Add("BesondereVermerkeHinweis1", "BesondereVermerkeHinweis1") tableMapping.ColumnMappings.Add("BesondereVermerkeZeile2", "BesondereVermerkeZeile2") tableMapping.ColumnMappings.Add("BesondereVermerkeBetrag2", "BesondereVermerkeBetrag2") tableMapping.ColumnMappings.Add("BesondereVermerkeHinweis2", "BesondereVermerkeHinweis2") tableMapping.ColumnMappings.Add("BesondereVermerkeZeile3", "BesondereVermerkeZeile3") tableMapping.ColumnMappings.Add("BesondereVermerkeBetrag3", "BesondereVermerkeBetrag3") tableMapping.ColumnMappings.Add("BesondereVermerkeHinweis3", "BesondereVermerkeHinweis3") tableMapping.ColumnMappings.Add("StatistischerWert", "StatistischerWert") tableMapping.ColumnMappings.Add("Summe", "Summe") tableMapping.ColumnMappings.Add("Zahlungsaufschub", "Zahlungsaufschub") tableMapping.ColumnMappings.Add("Lagerbezeichnung", "Lagerbezeichnung") tableMapping.ColumnMappings.Add("AngabenFürVerbuchungszwecke", "AngabenFürVerbuchungszwecke") tableMapping.ColumnMappings.Add("Ort", "Ort") tableMapping.ColumnMappings.Add("Datum", "Datum") tableMapping.ColumnMappings.Add("Unterschrift", "Unterschrift") tableMapping.ColumnMappings.Add("ErstelltDatum", "ErstelltDatum") tableMapping.ColumnMappings.Add("ErstelltSachbearbeiter", "ErstelltSachbearbeiter") tableMapping.ColumnMappings.Add("GeändertDatum", "GeändertDatum") tableMapping.ColumnMappings.Add("GeändertSachbearbeiter", "GeändertSachbearbeiter") tableMapping.ColumnMappings.Add("GedrucktDatum", "GedrucktDatum") tableMapping.ColumnMappings.Add("GedrucktSachbearbeiter", "GedrucktSachbearbeiter") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Formular", "Formular") tableMapping.ColumnMappings.Add("Zulassungsinhaber", "Zulassungsinhaber") tableMapping.ColumnMappings.Add("Bewilligungsnummer", "Bewilligungsnummer") tableMapping.ColumnMappings.Add("Ordnungsnummer", "Ordnungsnummer") tableMapping.ColumnMappings.Add("Rechnungspositionsbetrag", "Rechnungspositionsbetrag") tableMapping.ColumnMappings.Add("ANMELDUNG3", "ANMELDUNG3") tableMapping.ColumnMappings.Add("Ladelisten", "Ladelisten") tableMapping.ColumnMappings.Add("Bestimmungsland", "Bestimmungsland") tableMapping.ColumnMappings.Add("Hauptverpflichteter", "Hauptverpflichteter") tableMapping.ColumnMappings.Add("HauptverpflichteterVertretenDurch", "HauptverpflichteterVertretenDurch") tableMapping.ColumnMappings.Add("HauptverpflichteterOrtDatum", "HauptverpflichteterOrtDatum") tableMapping.ColumnMappings.Add("Durchgangszollstelle1", "Durchgangszollstelle1") tableMapping.ColumnMappings.Add("Durchgangszollstelle2", "Durchgangszollstelle2") tableMapping.ColumnMappings.Add("Durchgangszollstelle3", "Durchgangszollstelle3") tableMapping.ColumnMappings.Add("Durchgangszollstelle4", "Durchgangszollstelle4") tableMapping.ColumnMappings.Add("Durchgangszollstelle5", "Durchgangszollstelle5") tableMapping.ColumnMappings.Add("Durchgangszollstelle6", "Durchgangszollstelle6") tableMapping.ColumnMappings.Add("Sicherheit", "Sicherheit") tableMapping.ColumnMappings.Add("SicherheitCode", "SicherheitCode") tableMapping.ColumnMappings.Add("Bestimmungsstelle", "Bestimmungsstelle") tableMapping.ColumnMappings.Add("HauptverpflichteterNr", "HauptverpflichteterNr") tableMapping.ColumnMappings.Add("Skontobetrag", "Skontobetrag") tableMapping.ColumnMappings.Add("Artikelpreis", "Artikelpreis") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("Bemessungsgrundlage", "Bemessungsgrundlage") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[EPBes] ([ID], [ANMELDUNG1], [ANMELDUNG2], [VersenderAusführerN"& _ "r], [VersenderAusführer], [Vordrucke1], [Vordrucke2], [Positionen], [EmpfängerNr"& _ "], [Empfänger], [Handelsland], [AnmelderVertreterNr], [Anmelder], [Vertreter], ["& _ "VersendungsAusfuhrland], [VersendungsAusfuhrlandCode], [Ursprungsland], [Bestimm"& _ "ungslandCodeA], [BestimmungslandCodeB], [KennzeichenAnkunft], [Staatszugehörigke"& _ "itAnkunft], [Container], [LieferbedingungCode], [Lieferbedingung], [KennzeichenG"& _ "renze], [StaatszugehörigkeitGrenze], [Währung], [Rechnungsbetrag], [Umrechnungsk"& _ "urs], [Geschäftsart], [VerkehrszweigGrenze], [InländischerVerkehrszweig], [Entla"& _ "deort], [Eingangszollstelle], [Warenort], [Packstücke], [Warenbezeichnung], [Pos"& _ "itionsNr], [Warennummer1], [Warennummer2], [Warennummer3], [Warennummer4], [Ware"& _ "nnummer5], [UrsprungslandCode], [Rohmasse], [Präferenz], [Verfahren], [Eigenmass"& _ "e], [Kontingent], [SumAnmeldungVorpapier], [BesondereMasseinheit], [Vorsteuerabz"& _ "ug], [BesondereVermerke], [BesondereVermerkeZeile1], [BesondereVermerkeBetrag1],"& _ " [BesondereVermerkeHinweis1], [BesondereVermerkeZeile2], [BesondereVermerkeBetra"& _ "g2], [BesondereVermerkeHinweis2], [BesondereVermerkeZeile3], [BesondereVermerkeB"& _ "etrag3], [BesondereVermerkeHinweis3], [StatistischerWert], [Summe], [Zahlungsauf"& _ "schub], [Lagerbezeichnung], [AngabenFürVerbuchungszwecke], [Ort], [Datum], [Unte"& _ "rschrift], [ErstelltDatum], [ErstelltSachbearbeiter], [GeändertDatum], [Geändert"& _ "Sachbearbeiter], [GedrucktDatum], [GedrucktSachbearbeiter], [FilialenNr], [Abfer"& _ "tigungsNr], [UnterNr], [Formular], [Zulassungsinhaber], [Bewilligungsnummer], [O"& _ "rdnungsnummer], [Rechnungspositionsbetrag], [ANMELDUNG3], [Ladelisten], [Bestimm"& _ "ungsland], [Hauptverpflichteter], [HauptverpflichteterVertretenDurch], [Hauptver"& _ "pflichteterOrtDatum], [Durchgangszollstelle1], [Durchgangszollstelle2], [Durchga"& _ "ngszollstelle3], [Durchgangszollstelle4], [Durchgangszollstelle5], [Durchgangszo"& _ "llstelle6], [Sicherheit], [SicherheitCode], [Bestimmungsstelle], [Hauptverpflich"& _ "teterNr], [Skontobetrag], [Artikelpreis], [Bemessungsgrundlage]) VALUES (@ID, @A"& _ "NMELDUNG1, @ANMELDUNG2, @VersenderAusführerNr, @VersenderAusführer, @Vordrucke1,"& _ " @Vordrucke2, @Positionen, @EmpfängerNr, @Empfänger, @Handelsland, @AnmelderVert"& _ "reterNr, @Anmelder, @Vertreter, @VersendungsAusfuhrland, @VersendungsAusfuhrland"& _ "Code, @Ursprungsland, @BestimmungslandCodeA, @BestimmungslandCodeB, @Kennzeichen"& _ "Ankunft, @StaatszugehörigkeitAnkunft, @Container, @LieferbedingungCode, @Lieferb"& _ "edingung, @KennzeichenGrenze, @StaatszugehörigkeitGrenze, @Währung, @Rechnungsbe"& _ "trag, @Umrechnungskurs, @Geschäftsart, @VerkehrszweigGrenze, @InländischerVerkeh"& _ "rszweig, @Entladeort, @Eingangszollstelle, @Warenort, @Packstücke, @Warenbezeich"& _ "nung, @PositionsNr, @Warennummer1, @Warennummer2, @Warennummer3, @Warennummer4, "& _ "@Warennummer5, @UrsprungslandCode, @Rohmasse, @Präferenz, @Verfahren, @Eigenmass"& _ "e, @Kontingent, @SumAnmeldungVorpapier, @BesondereMasseinheit, @Vorsteuerabzug, "& _ "@BesondereVermerke, @BesondereVermerkeZeile1, @BesondereVermerkeBetrag1, @Besond"& _ "ereVermerkeHinweis1, @BesondereVermerkeZeile2, @BesondereVermerkeBetrag2, @Beson"& _ "dereVermerkeHinweis2, @BesondereVermerkeZeile3, @BesondereVermerkeBetrag3, @Beso"& _ "ndereVermerkeHinweis3, @StatistischerWert, @Summe, @Zahlungsaufschub, @Lagerbeze"& _ "ichnung, @AngabenFürVerbuchungszwecke, @Ort, @Datum, @Unterschrift, @ErstelltDat"& _ "um, @ErstelltSachbearbeiter, @GeändertDatum, @GeändertSachbearbeiter, @GedrucktD"& _ "atum, @GedrucktSachbearbeiter, @FilialenNr, @AbfertigungsNr, @UnterNr, @Formular"& _ ", @Zulassungsinhaber, @Bewilligungsnummer, @Ordnungsnummer, @Rechnungspositionsb"& _ "etrag, @ANMELDUNG3, @Ladelisten, @Bestimmungsland, @Hauptverpflichteter, @Hauptv"& _ "erpflichteterVertretenDurch, @HauptverpflichteterOrtDatum, @Durchgangszollstelle"& _ "1, @Durchgangszollstelle2, @Durchgangszollstelle3, @Durchgangszollstelle4, @Durc"& _ "hgangszollstelle5, @Durchgangszollstelle6, @Sicherheit, @SicherheitCode, @Bestim"& _ "mungsstelle, @HauptverpflichteterNr, @Skontobetrag, @Artikelpreis, @Bemessungsgr"& _ "undlage)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANMELDUNG1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANMELDUNG1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANMELDUNG2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANMELDUNG2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VersenderAusführerNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VersenderAusführerNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VersenderAusführer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VersenderAusführer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vordrucke1", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vordrucke1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vordrucke2", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vordrucke2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Positionen", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Positionen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Empfänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Empfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Handelsland", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Handelsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnmelderVertreterNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnmelderVertreterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anmelder", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anmelder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vertreter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vertreter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VersendungsAusfuhrland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VersendungsAusfuhrland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VersendungsAusfuhrlandCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VersendungsAusfuhrlandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ursprungsland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ursprungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BestimmungslandCodeA", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BestimmungslandCodeA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BestimmungslandCodeB", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BestimmungslandCodeB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KennzeichenAnkunft", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KennzeichenAnkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaatszugehörigkeitAnkunft", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaatszugehörigkeitAnkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Container", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Container", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LieferbedingungCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LieferbedingungCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferbedingung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferbedingung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KennzeichenGrenze", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KennzeichenGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaatszugehörigkeitGrenze", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaatszugehörigkeitGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umrechnungskurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umrechnungskurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsart", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VerkehrszweigGrenze", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InländischerVerkehrszweig", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InländischerVerkehrszweig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Entladeort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Entladeort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingangszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingangszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warenort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warenort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Packstücke", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Packstücke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warenbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PositionsNr", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PositionsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UrsprungslandCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UrsprungslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rohmasse", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Präferenz", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Präferenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verfahren", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eigenmasse", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kontingent", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kontingent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SumAnmeldungVorpapier", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SumAnmeldungVorpapier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereMasseinheit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorsteuerabzug", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorsteuerabzug", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerke", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerkeZeile1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerkeZeile1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerkeBetrag1", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerkeBetrag1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerkeHinweis1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerkeHinweis1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerkeZeile2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerkeZeile2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerkeBetrag2", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerkeBetrag2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerkeHinweis2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerkeHinweis2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerkeZeile3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerkeZeile3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerkeBetrag3", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerkeBetrag3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerkeHinweis3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerkeHinweis3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StatistischerWert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StatistischerWert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Summe", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Summe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsaufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsaufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lagerbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lagerbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AngabenFürVerbuchungszwecke", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AngabenFürVerbuchungszwecke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Unterschrift", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Unterschrift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstelltDatum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstelltDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstelltSachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstelltSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GeändertDatum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GeändertDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GeändertSachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GeändertSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GedrucktDatum", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GedrucktDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GedrucktSachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GedrucktSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Formular", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Formular", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zulassungsinhaber", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zulassungsinhaber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bewilligungsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bewilligungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ordnungsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ordnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungspositionsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungspositionsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANMELDUNG3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANMELDUNG3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ladelisten", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ladelisten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungsland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hauptverpflichteter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hauptverpflichteter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HauptverpflichteterVertretenDurch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HauptverpflichteterVertretenDurch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HauptverpflichteterOrtDatum", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HauptverpflichteterOrtDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Durchgangszollstelle1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Durchgangszollstelle1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Durchgangszollstelle2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Durchgangszollstelle2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Durchgangszollstelle3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Durchgangszollstelle3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Durchgangszollstelle4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Durchgangszollstelle4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Durchgangszollstelle5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Durchgangszollstelle5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Durchgangszollstelle6", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Durchgangszollstelle6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sicherheit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sicherheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SicherheitCode", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SicherheitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungsstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungsstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HauptverpflichteterNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HauptverpflichteterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Skontobetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Skontobetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Artikelpreis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Artikelpreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemessungsgrundlage", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemessungsgrundlage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, ANMELDUNG1, ANMELDUNG2, VersenderAusführerNr, VersenderAusführer, Vord"& _ "rucke1, Vordrucke2, Positionen, EmpfängerNr, Empfänger, Handelsland, AnmelderVer"& _ "treterNr, Anmelder, Vertreter, VersendungsAusfuhrland, VersendungsAusfuhrlandCod"& _ "e, Ursprungsland, BestimmungslandCodeA, BestimmungslandCodeB, KennzeichenAnkunft"& _ ", StaatszugehörigkeitAnkunft, Container, LieferbedingungCode, Lieferbedingung, K"& _ "ennzeichenGrenze, StaatszugehörigkeitGrenze, Währung, Rechnungsbetrag, Umrechnun"& _ "gskurs, Geschäftsart, VerkehrszweigGrenze, InländischerVerkehrszweig, Entladeort"& _ ", Eingangszollstelle, Warenort, Packstücke, Warenbezeichnung, PositionsNr, Waren"& _ "nummer1, Warennummer2, Warennummer3, Warennummer4, Warennummer5, UrsprungslandCo"& _ "de, Rohmasse, Präferenz, Verfahren, Eigenmasse, Kontingent, SumAnmeldungVorpapie"& _ "r, BesondereMasseinheit, Vorsteuerabzug, BesondereVermerke, BesondereVermerkeZei"& _ "le1, BesondereVermerkeBetrag1, BesondereVermerkeHinweis1, BesondereVermerkeZeile"& _ "2, BesondereVermerkeBetrag2, BesondereVermerkeHinweis2, BesondereVermerkeZeile3,"& _ " BesondereVermerkeBetrag3, BesondereVermerkeHinweis3, StatistischerWert, Summe, "& _ "Zahlungsaufschub, Lagerbezeichnung, AngabenFürVerbuchungszwecke, Ort, Datum, Unt"& _ "erschrift, ErstelltDatum, ErstelltSachbearbeiter, GeändertDatum, GeändertSachbea"& _ "rbeiter, GedrucktDatum, GedrucktSachbearbeiter, FilialenNr, AbfertigungsNr, Unte"& _ "rNr, Formular, Zulassungsinhaber, Bewilligungsnummer, Ordnungsnummer, Rechnungsp"& _ "ositionsbetrag, ANMELDUNG3, Ladelisten, Bestimmungsland, Hauptverpflichteter, Ha"& _ "uptverpflichteterVertretenDurch, HauptverpflichteterOrtDatum, Durchgangszollstel"& _ "le1, Durchgangszollstelle2, Durchgangszollstelle3, Durchgangszollstelle4, Durchg"& _ "angszollstelle5, Durchgangszollstelle6, Sicherheit, SicherheitCode, Bestimmungss"& _ "telle, HauptverpflichteterNr, Skontobetrag, Artikelpreis, SSMA_TimeStamp, Bemess"& _ "ungsgrundlage FROM dbo.EPBes" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.EPBesDataTable) 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 VERAGDataSet.EPBesDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.EPBesDataTable = New VERAGDataSet.EPBesDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.EPBesDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "EPBes") 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 Insert( _ ByVal ID As Integer, _ ByVal ANMELDUNG1 As String, _ ByVal ANMELDUNG2 As String, _ ByVal VersenderAusführerNr As String, _ ByVal VersenderAusführer As String, _ ByVal Vordrucke1 As Global.System.Nullable(Of Byte), _ ByVal Vordrucke2 As Global.System.Nullable(Of Byte), _ ByVal Positionen As Global.System.Nullable(Of Byte), _ ByVal EmpfängerNr As String, _ ByVal Empfänger As String, _ ByVal Handelsland As Global.System.Nullable(Of Short), _ ByVal AnmelderVertreterNr As String, _ ByVal Anmelder As String, _ ByVal Vertreter As String, _ ByVal VersendungsAusfuhrland As String, _ ByVal VersendungsAusfuhrlandCode As Global.System.Nullable(Of Short), _ ByVal Ursprungsland As String, _ ByVal BestimmungslandCodeA As Global.System.Nullable(Of Short), _ ByVal BestimmungslandCodeB As Global.System.Nullable(Of Byte), _ ByVal KennzeichenAnkunft As String, _ ByVal StaatszugehörigkeitAnkunft As Global.System.Nullable(Of Short), _ ByVal Container As Global.System.Nullable(Of Byte), _ ByVal LieferbedingungCode As String, _ ByVal Lieferbedingung As String, _ ByVal KennzeichenGrenze As String, _ ByVal StaatszugehörigkeitGrenze As Global.System.Nullable(Of Short), _ ByVal Währung As Global.System.Nullable(Of Short), _ ByVal Rechnungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal Geschäftsart As Global.System.Nullable(Of Byte), _ ByVal VerkehrszweigGrenze As Global.System.Nullable(Of Byte), _ ByVal InländischerVerkehrszweig As Global.System.Nullable(Of Byte), _ ByVal Entladeort As String, _ ByVal Eingangszollstelle As String, _ ByVal Warenort As String, _ ByVal Packstücke As String, _ ByVal Warenbezeichnung As String, _ ByVal PositionsNr As Global.System.Nullable(Of Byte), _ ByVal Warennummer1 As String, _ ByVal Warennummer2 As String, _ ByVal Warennummer3 As String, _ ByVal Warennummer4 As String, _ ByVal Warennummer5 As String, _ ByVal UrsprungslandCode As Global.System.Nullable(Of Short), _ ByVal Rohmasse As Global.System.Nullable(Of Double), _ ByVal Präferenz As Global.System.Nullable(Of Short), _ ByVal Verfahren As String, _ ByVal Eigenmasse As Global.System.Nullable(Of Double), _ ByVal Kontingent As Global.System.Nullable(Of Short), _ ByVal SumAnmeldungVorpapier As String, _ ByVal BesondereMasseinheit As String, _ ByVal Vorsteuerabzug As String, _ ByVal BesondereVermerke As String, _ ByVal BesondereVermerkeZeile1 As String, _ ByVal BesondereVermerkeBetrag1 As Global.System.Nullable(Of Decimal), _ ByVal BesondereVermerkeHinweis1 As String, _ ByVal BesondereVermerkeZeile2 As String, _ ByVal BesondereVermerkeBetrag2 As Global.System.Nullable(Of Decimal), _ ByVal BesondereVermerkeHinweis2 As String, _ ByVal BesondereVermerkeZeile3 As String, _ ByVal BesondereVermerkeBetrag3 As Global.System.Nullable(Of Decimal), _ ByVal BesondereVermerkeHinweis3 As String, _ ByVal StatistischerWert As Global.System.Nullable(Of Decimal), _ ByVal Summe As Global.System.Nullable(Of Decimal), _ ByVal Zahlungsaufschub As String, _ ByVal Lagerbezeichnung As String, _ ByVal AngabenFürVerbuchungszwecke As String, _ ByVal Ort As String, _ ByVal Datum As Global.System.Nullable(Of Date), _ ByVal Unterschrift As String, _ ByVal ErstelltDatum As Global.System.Nullable(Of Date), _ ByVal ErstelltSachbearbeiter As String, _ ByVal GeändertDatum As Global.System.Nullable(Of Date), _ ByVal GeändertSachbearbeiter As String, _ ByVal GedrucktDatum As Global.System.Nullable(Of Date), _ ByVal GedrucktSachbearbeiter As String, _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UnterNr As Global.System.Nullable(Of Byte), _ ByVal Formular As String, _ ByVal Zulassungsinhaber As String, _ ByVal Bewilligungsnummer As String, _ ByVal Ordnungsnummer As String, _ ByVal Rechnungspositionsbetrag As Global.System.Nullable(Of Decimal), _ ByVal ANMELDUNG3 As String, _ ByVal Ladelisten As Global.System.Nullable(Of Byte), _ ByVal Bestimmungsland As String, _ ByVal Hauptverpflichteter As String, _ ByVal HauptverpflichteterVertretenDurch As String, _ ByVal HauptverpflichteterOrtDatum As String, _ ByVal Durchgangszollstelle1 As String, _ ByVal Durchgangszollstelle2 As String, _ ByVal Durchgangszollstelle3 As String, _ ByVal Durchgangszollstelle4 As String, _ ByVal Durchgangszollstelle5 As String, _ ByVal Durchgangszollstelle6 As String, _ ByVal Sicherheit As String, _ ByVal SicherheitCode As Global.System.Nullable(Of Byte), _ ByVal Bestimmungsstelle As String, _ ByVal HauptverpflichteterNr As String, _ ByVal Skontobetrag As Global.System.Nullable(Of Decimal), _ ByVal Artikelpreis As Global.System.Nullable(Of Decimal), _ ByVal Bemessungsgrundlage As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer) If (ANMELDUNG1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ANMELDUNG1,String) End If If (ANMELDUNG2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ANMELDUNG2,String) End If If (VersenderAusführerNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(VersenderAusführerNr,String) End If If (VersenderAusführer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(VersenderAusführer,String) End If If (Vordrucke1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Vordrucke1.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Vordrucke2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Vordrucke2.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Positionen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Positionen.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (EmpfängerNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(EmpfängerNr,String) End If If (Empfänger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Empfänger,String) End If If (Handelsland.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Handelsland.Value,Short) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (AnmelderVertreterNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(AnmelderVertreterNr,String) End If If (Anmelder Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Anmelder,String) End If If (Vertreter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Vertreter,String) End If If (VersendungsAusfuhrland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(VersendungsAusfuhrland,String) End If If (VersendungsAusfuhrlandCode.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(VersendungsAusfuhrlandCode.Value,Short) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Ursprungsland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Ursprungsland,String) End If If (BestimmungslandCodeA.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(BestimmungslandCodeA.Value,Short) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (BestimmungslandCodeB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(BestimmungslandCodeB.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (KennzeichenAnkunft Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(KennzeichenAnkunft,String) End If If (StaatszugehörigkeitAnkunft.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(StaatszugehörigkeitAnkunft.Value,Short) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Container.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(Container.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (LieferbedingungCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(LieferbedingungCode,String) End If If (Lieferbedingung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(Lieferbedingung,String) End If If (KennzeichenGrenze Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(KennzeichenGrenze,String) End If If (StaatszugehörigkeitGrenze.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(StaatszugehörigkeitGrenze.Value,Short) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Währung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(Währung.Value,Short) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Rechnungsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(Rechnungsbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Umrechnungskurs.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(Umrechnungskurs.Value,Double) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Geschäftsart.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(29).Value = CType(Geschäftsart.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (VerkehrszweigGrenze.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(VerkehrszweigGrenze.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (InländischerVerkehrszweig.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(InländischerVerkehrszweig.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Entladeort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(Entladeort,String) End If If (Eingangszollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(Eingangszollstelle,String) End If If (Warenort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(Warenort,String) End If If (Packstücke Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(Packstücke,String) End If If (Warenbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(Warenbezeichnung,String) End If If (PositionsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(37).Value = CType(PositionsNr.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Warennummer1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(Warennummer1,String) End If If (Warennummer2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(Warennummer2,String) End If If (Warennummer3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(Warennummer3,String) End If If (Warennummer4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(Warennummer4,String) End If If (Warennummer5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(Warennummer5,String) End If If (UrsprungslandCode.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(UrsprungslandCode.Value,Short) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Rohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(44).Value = CType(Rohmasse.Value,Double) Else Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Präferenz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(45).Value = CType(Präferenz.Value,Short) Else Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Verfahren Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(Verfahren,String) End If If (Eigenmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(47).Value = CType(Eigenmasse.Value,Double) Else Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (Kontingent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(Kontingent.Value,Short) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (SumAnmeldungVorpapier Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(SumAnmeldungVorpapier,String) End If If (BesondereMasseinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(BesondereMasseinheit,String) End If If (Vorsteuerabzug Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(Vorsteuerabzug,String) End If If (BesondereVermerke Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(BesondereVermerke,String) End If If (BesondereVermerkeZeile1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(BesondereVermerkeZeile1,String) End If If (BesondereVermerkeBetrag1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(BesondereVermerkeBetrag1.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (BesondereVermerkeHinweis1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(BesondereVermerkeHinweis1,String) End If If (BesondereVermerkeZeile2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(BesondereVermerkeZeile2,String) End If If (BesondereVermerkeBetrag2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(57).Value = CType(BesondereVermerkeBetrag2.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (BesondereVermerkeHinweis2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(BesondereVermerkeHinweis2,String) End If If (BesondereVermerkeZeile3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(BesondereVermerkeZeile3,String) End If If (BesondereVermerkeBetrag3.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(60).Value = CType(BesondereVermerkeBetrag3.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (BesondereVermerkeHinweis3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(BesondereVermerkeHinweis3,String) End If If (StatistischerWert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(62).Value = CType(StatistischerWert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (Summe.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(63).Value = CType(Summe.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Zahlungsaufschub Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(Zahlungsaufschub,String) End If If (Lagerbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(Lagerbezeichnung,String) End If If (AngabenFürVerbuchungszwecke Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(AngabenFürVerbuchungszwecke,String) End If If (Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(Ort,String) End If If (Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(68).Value = CType(Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (Unterschrift Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(Unterschrift,String) End If If (ErstelltDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(70).Value = CType(ErstelltDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (ErstelltSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(ErstelltSachbearbeiter,String) End If If (GeändertDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(72).Value = CType(GeändertDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value End If If (GeändertSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(GeändertSachbearbeiter,String) End If If (GedrucktDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(74).Value = CType(GedrucktDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value End If If (GedrucktSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(GedrucktSachbearbeiter,String) End If If (FilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(76).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(77).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(78).Value = CType(UnterNr.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (Formular Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(Formular,String) End If If (Zulassungsinhaber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(Zulassungsinhaber,String) End If If (Bewilligungsnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(Bewilligungsnummer,String) End If If (Ordnungsnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(Ordnungsnummer,String) End If If (Rechnungspositionsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(83).Value = CType(Rechnungspositionsbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (ANMELDUNG3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(ANMELDUNG3,String) End If If (Ladelisten.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(85).Value = CType(Ladelisten.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Bestimmungsland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(Bestimmungsland,String) End If If (Hauptverpflichteter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(Hauptverpflichteter,String) End If If (HauptverpflichteterVertretenDurch Is Nothing) Then Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(88).Value = CType(HauptverpflichteterVertretenDurch,String) End If If (HauptverpflichteterOrtDatum Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(HauptverpflichteterOrtDatum,String) End If If (Durchgangszollstelle1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(Durchgangszollstelle1,String) End If If (Durchgangszollstelle2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(Durchgangszollstelle2,String) End If If (Durchgangszollstelle3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(Durchgangszollstelle3,String) End If If (Durchgangszollstelle4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(93).Value = CType(Durchgangszollstelle4,String) End If If (Durchgangszollstelle5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(Durchgangszollstelle5,String) End If If (Durchgangszollstelle6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(Durchgangszollstelle6,String) End If If (Sicherheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(Sicherheit,String) End If If (SicherheitCode.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(97).Value = CType(SicherheitCode.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value End If If (Bestimmungsstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(Bestimmungsstelle,String) End If If (HauptverpflichteterNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(HauptverpflichteterNr,String) End If If (Skontobetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(100).Value = CType(Skontobetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value End If If (Artikelpreis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(101).Value = CType(Artikelpreis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(101).Value = Global.System.DBNull.Value End If If (Bemessungsgrundlage Is Nothing) Then Me.Adapter.InsertCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(102).Value = CType(Bemessungsgrundlage,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class EPBesPOSTableAdapter 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 = "EPBesPOS" tableMapping.ColumnMappings.Add("EPBes_ID", "EPBes_ID") tableMapping.ColumnMappings.Add("Packstücke", "Packstücke") tableMapping.ColumnMappings.Add("Warenbezeichnung", "Warenbezeichnung") tableMapping.ColumnMappings.Add("PositionsNr", "PositionsNr") tableMapping.ColumnMappings.Add("Warennummer1", "Warennummer1") tableMapping.ColumnMappings.Add("Warennummer2", "Warennummer2") tableMapping.ColumnMappings.Add("Warennummer3", "Warennummer3") tableMapping.ColumnMappings.Add("Warennummer4", "Warennummer4") tableMapping.ColumnMappings.Add("Warennummer5", "Warennummer5") tableMapping.ColumnMappings.Add("UrsprungslandCode", "UrsprungslandCode") tableMapping.ColumnMappings.Add("Rohmasse", "Rohmasse") tableMapping.ColumnMappings.Add("Präferenz", "Präferenz") tableMapping.ColumnMappings.Add("Verfahren", "Verfahren") tableMapping.ColumnMappings.Add("Eigenmasse", "Eigenmasse") tableMapping.ColumnMappings.Add("Kontingent", "Kontingent") tableMapping.ColumnMappings.Add("SumAnmeldungVorpapier", "SumAnmeldungVorpapier") tableMapping.ColumnMappings.Add("BesondereMasseinheit", "BesondereMasseinheit") tableMapping.ColumnMappings.Add("Vorsteuerabzug", "Vorsteuerabzug") tableMapping.ColumnMappings.Add("BesondereVermerke", "BesondereVermerke") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[EPBesPOS] ([EPBes_ID], [Packstücke], [Warenbezeichnung], [Posi"& _ "tionsNr], [Warennummer1], [Warennummer2], [Warennummer3], [Warennummer4], [Waren"& _ "nummer5], [UrsprungslandCode], [Rohmasse], [Präferenz], [Verfahren], [Eigenmasse"& _ "], [Kontingent], [SumAnmeldungVorpapier], [BesondereMasseinheit], [Vorsteuerabzu"& _ "g], [BesondereVermerke]) VALUES (@EPBes_ID, @Packstücke, @Warenbezeichnung, @Pos"& _ "itionsNr, @Warennummer1, @Warennummer2, @Warennummer3, @Warennummer4, @Warennumm"& _ "er5, @UrsprungslandCode, @Rohmasse, @Präferenz, @Verfahren, @Eigenmasse, @Kontin"& _ "gent, @SumAnmeldungVorpapier, @BesondereMasseinheit, @Vorsteuerabzug, @Besondere"& _ "Vermerke)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EPBes_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EPBes_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Packstücke", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Packstücke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warenbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PositionsNr", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PositionsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UrsprungslandCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UrsprungslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rohmasse", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Präferenz", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Präferenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verfahren", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eigenmasse", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kontingent", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kontingent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SumAnmeldungVorpapier", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SumAnmeldungVorpapier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereMasseinheit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorsteuerabzug", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorsteuerabzug", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereVermerke", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereVermerke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 EPBes_ID, Packstücke, Warenbezeichnung, PositionsNr, Warennummer1, Warennu"& _ "mmer2, Warennummer3, Warennummer4, Warennummer5, UrsprungslandCode, Rohmasse, Pr"& _ "äferenz, Verfahren, Eigenmasse, Kontingent, SumAnmeldungVorpapier, BesondereMass"& _ "einheit, Vorsteuerabzug, BesondereVermerke FROM dbo.EPBesPOS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.EPBesPOSDataTable) 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 VERAGDataSet.EPBesPOSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.EPBesPOSDataTable = New VERAGDataSet.EPBesPOSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.EPBesPOSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "EPBesPOS") 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 Insert( _ ByVal EPBes_ID As Integer, _ ByVal Packstücke As String, _ ByVal Warenbezeichnung As String, _ ByVal PositionsNr As Global.System.Nullable(Of Byte), _ ByVal Warennummer1 As String, _ ByVal Warennummer2 As String, _ ByVal Warennummer3 As String, _ ByVal Warennummer4 As String, _ ByVal Warennummer5 As String, _ ByVal UrsprungslandCode As Global.System.Nullable(Of Short), _ ByVal Rohmasse As Global.System.Nullable(Of Double), _ ByVal Präferenz As Global.System.Nullable(Of Short), _ ByVal Verfahren As String, _ ByVal Eigenmasse As Global.System.Nullable(Of Double), _ ByVal Kontingent As Global.System.Nullable(Of Short), _ ByVal SumAnmeldungVorpapier As String, _ ByVal BesondereMasseinheit As String, _ ByVal Vorsteuerabzug As String, _ ByVal BesondereVermerke As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(EPBes_ID,Integer) If (Packstücke Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Packstücke,String) End If If (Warenbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Warenbezeichnung,String) End If If (PositionsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(PositionsNr.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Warennummer1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Warennummer1,String) End If If (Warennummer2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Warennummer2,String) End If If (Warennummer3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Warennummer3,String) End If If (Warennummer4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Warennummer4,String) End If If (Warennummer5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Warennummer5,String) End If If (UrsprungslandCode.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(UrsprungslandCode.Value,Short) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Rohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Rohmasse.Value,Double) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Präferenz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Präferenz.Value,Short) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Verfahren Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Verfahren,String) End If If (Eigenmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(Eigenmasse.Value,Double) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Kontingent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(Kontingent.Value,Short) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (SumAnmeldungVorpapier Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(SumAnmeldungVorpapier,String) End If If (BesondereMasseinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(BesondereMasseinheit,String) End If If (Vorsteuerabzug Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Vorsteuerabzug,String) End If If (BesondereVermerke Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(BesondereVermerke,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class FilialenTableAdapter 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 = "Filialen" tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("Stammfiliale", "Stammfiliale") tableMapping.ColumnMappings.Add("Grenzstelle", "Grenzstelle") tableMapping.ColumnMappings.Add("Speditionsbuch", "Speditionsbuch") tableMapping.ColumnMappings.Add("Name 1", "Name 1") tableMapping.ColumnMappings.Add("Name 2", "Name 2") tableMapping.ColumnMappings.Add("Postfach", "Postfach") tableMapping.ColumnMappings.Add("PLZPF", "PLZPF") tableMapping.ColumnMappings.Add("Straße", "Straße") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("PLZ", "PLZ") tableMapping.ColumnMappings.Add("Ort", "Ort") tableMapping.ColumnMappings.Add("Telefon", "Telefon") tableMapping.ColumnMappings.Add("Telefax", "Telefax") tableMapping.ColumnMappings.Add("E-Mail", "E-Mail") tableMapping.ColumnMappings.Add("UstIdKz", "UstIdKz") tableMapping.ColumnMappings.Add("UstIdNr", "UstIdNr") tableMapping.ColumnMappings.Add("KorrespondentenNr", "KorrespondentenNr") tableMapping.ColumnMappings.Add("Absender", "Absender") tableMapping.ColumnMappings.Add("Fil_Status", "Fil_Status") tableMapping.ColumnMappings.Add("PP440", "PP440") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("Firma", "Firma") tableMapping.ColumnMappings.Add("Cluster", "Cluster") tableMapping.ColumnMappings.Add("PP441", "PP441") 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].[Filialen] WHERE (([FilialenNr] = @Original_FilialenNr) AND ([S"& _ "SMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Filialen] ([FilialenNr], [Stammfiliale], [Grenzstelle], [Spedi"& _ "tionsbuch], [Name 1], [Name 2], [Postfach], [PLZPF], [Straße], [LandKz], [PLZ], "& _ "[Ort], [Telefon], [Telefax], [E-Mail], [UstIdKz], [UstIdNr], [KorrespondentenNr]"& _ ", [Absender], [Fil_Status], [PP440], [Firma], [Cluster], [PP441]) VALUES (@Filia"& _ "lenNr, @Stammfiliale, @Grenzstelle, @Speditionsbuch, @Name_1, @Name_2, @Postfach"& _ ", @PLZPF, @Straße, @LandKz, @PLZ, @Ort, @Telefon, @Telefax, @p1, @UstIdKz, @UstI"& _ "dNr, @KorrespondentenNr, @Absender, @Fil_Status, @PP440, @Firma, @Cluster, @PP44"& _ "1);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FilialenNr, Stammfiliale, Grenzstelle, Speditionsbuch, [Name 1], [Na"& _ "me 2], Postfach, PLZPF, Straße, LandKz, PLZ, Ort, Telefon, Telefax, [E-Mail], Us"& _ "tIdKz, UstIdNr, KorrespondentenNr, Absender, Fil_Status, PP440, SSMA_TimeStamp, "& _ "Firma, Cluster, PP441 FROM Filialen WHERE (FilialenNr = @FilialenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Stammfiliale", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stammfiliale", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Grenzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Grenzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Speditionsbuch", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Speditionsbuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postfach", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postfach", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZPF", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZPF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telefax", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "E-Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fil_Status", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fil_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PP440", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PP440", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cluster", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Cluster", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PP441", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PP441", 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].[Filialen] SET [FilialenNr] = @FilialenNr, [Stammfiliale] = @Stammfi"& _ "liale, [Grenzstelle] = @Grenzstelle, [Speditionsbuch] = @Speditionsbuch, [Name 1"& _ "] = @Name_1, [Name 2] = @Name_2, [Postfach] = @Postfach, [PLZPF] = @PLZPF, [Stra"& _ "ße] = @Straße, [LandKz] = @LandKz, [PLZ] = @PLZ, [Ort] = @Ort, [Telefon] = @Tele"& _ "fon, [Telefax] = @Telefax, [E-Mail] = @p1, [UstIdKz] = @UstIdKz, [UstIdNr] = @Us"& _ "tIdNr, [KorrespondentenNr] = @KorrespondentenNr, [Absender] = @Absender, [Fil_St"& _ "atus] = @Fil_Status, [PP440] = @PP440, [Firma] = @Firma, [Cluster] = @Cluster, ["& _ "PP441] = @PP441 WHERE (([FilialenNr] = @Original_FilialenNr) AND ([SSMA_TimeStam"& _ "p] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FilialenNr, Stammfiliale, Grenzstelle, "& _ "Speditionsbuch, [Name 1], [Name 2], Postfach, PLZPF, Straße, LandKz, PLZ, Ort, T"& _ "elefon, Telefax, [E-Mail], UstIdKz, UstIdNr, KorrespondentenNr, Absender, Fil_St"& _ "atus, PP440, SSMA_TimeStamp, Firma, Cluster, PP441 FROM Filialen WHERE (Filialen"& _ "Nr = @FilialenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Stammfiliale", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stammfiliale", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Grenzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Grenzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Speditionsbuch", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Speditionsbuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postfach", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postfach", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZPF", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZPF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telefax", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "E-Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fil_Status", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fil_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PP440", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PP440", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cluster", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Cluster", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PP441", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PP441", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 FilialenNr, Stammfiliale, Grenzstelle, Speditionsbuch, [Name 1], [Name 2],"& _ " Postfach, PLZPF, Straße, LandKz, PLZ, Ort, Telefon, Telefax, [E-Mail], UstIdKz,"& _ " UstIdNr, KorrespondentenNr, Absender, Fil_Status, PP440, SSMA_TimeStamp, Firma,"& _ " Cluster, PP441 FROM dbo.Filialen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.FilialenDataTable) 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 VERAGDataSet.FilialenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.FilialenDataTable = New VERAGDataSet.FilialenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.FilialenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Filialen") 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_FilialenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_FilialenNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 FilialenNr As Short, _ ByVal Stammfiliale As Global.System.Nullable(Of Boolean), _ ByVal Grenzstelle As String, _ ByVal Speditionsbuch As Short, _ ByVal Name_1 As String, _ ByVal Name_2 As String, _ ByVal Postfach As String, _ ByVal PLZPF As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal Telefon As String, _ ByVal Telefax As String, _ ByVal p1 As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal KorrespondentenNr As Global.System.Nullable(Of Integer), _ ByVal Absender As String, _ ByVal Fil_Status As String, _ ByVal PP440 As Global.System.Nullable(Of Boolean), _ ByVal Firma As String, _ ByVal Cluster As String, _ ByVal PP441 As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(FilialenNr,Short) If (Stammfiliale.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(Stammfiliale.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Grenzstelle Is Nothing) Then Throw New Global.System.ArgumentNullException("Grenzstelle") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Grenzstelle,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(Speditionsbuch,Short) If (Name_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Name_1,String) End If If (Name_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Name_2,String) End If If (Postfach Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Postfach,String) End If If (PLZPF Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(PLZPF,String) End If If (Straße Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Straße,String) End If If (LandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(LandKz,String) End If If (PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(PLZ,String) End If If (Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Ort,String) End If If (Telefon Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Telefon,String) End If If (Telefax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Telefax,String) End If If (p1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(p1,String) End If If (UstIdKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(UstIdKz,String) End If If (UstIdNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(UstIdNr,String) End If If (KorrespondentenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(KorrespondentenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Absender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Absender,String) End If If (Fil_Status Is Nothing) Then Throw New Global.System.ArgumentNullException("Fil_Status") Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Fil_Status,String) End If If (PP440.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(PP440.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma") Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(Firma,String) End If If (Cluster Is Nothing) Then Throw New Global.System.ArgumentNullException("Cluster") Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(Cluster,String) End If If (PP441.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(PP441.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(23).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 FilialenNr As Short, _ ByVal Stammfiliale As Global.System.Nullable(Of Boolean), _ ByVal Grenzstelle As String, _ ByVal Speditionsbuch As Short, _ ByVal Name_1 As String, _ ByVal Name_2 As String, _ ByVal Postfach As String, _ ByVal PLZPF As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal Telefon As String, _ ByVal Telefax As String, _ ByVal p1 As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal KorrespondentenNr As Global.System.Nullable(Of Integer), _ ByVal Absender As String, _ ByVal Fil_Status As String, _ ByVal PP440 As Global.System.Nullable(Of Boolean), _ ByVal Firma As String, _ ByVal Cluster As String, _ ByVal PP441 As Global.System.Nullable(Of Boolean), _ ByVal Original_FilialenNr As Short, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FilialenNr,Short) If (Stammfiliale.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Stammfiliale.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Grenzstelle Is Nothing) Then Throw New Global.System.ArgumentNullException("Grenzstelle") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Grenzstelle,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Speditionsbuch,Short) If (Name_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Name_1,String) End If If (Name_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Name_2,String) End If If (Postfach Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Postfach,String) End If If (PLZPF Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(PLZPF,String) End If If (Straße Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Straße,String) End If If (LandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(LandKz,String) End If If (PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(PLZ,String) End If If (Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Ort,String) End If If (Telefon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Telefon,String) End If If (Telefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Telefax,String) End If If (p1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(p1,String) End If If (UstIdKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(UstIdKz,String) End If If (UstIdNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(UstIdNr,String) End If If (KorrespondentenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(KorrespondentenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Absender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Absender,String) End If If (Fil_Status Is Nothing) Then Throw New Global.System.ArgumentNullException("Fil_Status") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Fil_Status,String) End If If (PP440.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(PP440.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Firma,String) End If If (Cluster Is Nothing) Then Throw New Global.System.ArgumentNullException("Cluster") Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Cluster,String) End If If (PP441.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(PP441.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_FilialenNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Stammfiliale As Global.System.Nullable(Of Boolean), _ ByVal Grenzstelle As String, _ ByVal Speditionsbuch As Short, _ ByVal Name_1 As String, _ ByVal Name_2 As String, _ ByVal Postfach As String, _ ByVal PLZPF As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal Telefon As String, _ ByVal Telefax As String, _ ByVal p1 As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal KorrespondentenNr As Global.System.Nullable(Of Integer), _ ByVal Absender As String, _ ByVal Fil_Status As String, _ ByVal PP440 As Global.System.Nullable(Of Boolean), _ ByVal Firma As String, _ ByVal Cluster As String, _ ByVal PP441 As Global.System.Nullable(Of Boolean), _ ByVal Original_FilialenNr As Short, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_FilialenNr, Stammfiliale, Grenzstelle, Speditionsbuch, Name_1, Name_2, Postfach, PLZPF, Straße, LandKz, PLZ, Ort, Telefon, Telefax, p1, UstIdKz, UstIdNr, KorrespondentenNr, Absender, Fil_Status, PP440, Firma, Cluster, PP441, Original_FilialenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class GeschäftsartenTableAdapter 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 = "Geschäftsarten" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Art des Geschäfts", "Art des Geschäfts") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Geschäftsarten] WHERE (([ID] = @Original_ID) AND ([SSMA_TimeSt"& _ "amp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Geschäftsarten] ([ID], [Art des Geschäfts]) VALUES (@ID, @Art_"& _ "des_Geschäfts);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, [Art des Geschäfts], SSMA_TimeStamp FROM Geschäftsar"& _ "ten WHERE (ID = @ID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art_des_Geschäfts", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art des Geschäfts", 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].[Geschäftsarten] SET [ID] = @ID, [Art des Geschäfts] = @Art_des_Gesc"& _ "häfts WHERE (([ID] = @Original_ID) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeSt"& _ "amp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, [Art des Geschäfts], SSMA_TimeStamp FROM Geschäftsarten WHERE"& _ " (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art_des_Geschäfts", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art des Geschäfts", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, [Art des Geschäfts], SSMA_TimeStamp FROM dbo.Geschäftsarten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.GeschäftsartenDataTable) 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 VERAGDataSet.GeschäftsartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.GeschäftsartenDataTable = New VERAGDataSet.GeschäftsartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.GeschäftsartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Geschäftsarten") 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_ID As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 ID As Short, ByVal Art_des_Geschäfts As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Short) If (Art_des_Geschäfts Is Nothing) Then Throw New Global.System.ArgumentNullException("Art_des_Geschäfts") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Art_des_Geschäfts,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 ID As Short, ByVal Art_des_Geschäfts As String, ByVal Original_ID As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Short) If (Art_des_Geschäfts Is Nothing) Then Throw New Global.System.ArgumentNullException("Art_des_Geschäfts") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Art_des_Geschäfts,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ID,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Art_des_Geschäfts As String, ByVal Original_ID As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_ID, Art_des_Geschäfts, Original_ID, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class KorrespondentenTableAdapter 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 = "Korrespondenten" tableMapping.ColumnMappings.Add("KorrespondentenNr", "KorrespondentenNr") tableMapping.ColumnMappings.Add("KorrespondentenBez", "KorrespondentenBez") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Korrespondenten] WHERE (([KorrespondentenNr] = @Original_Korre"& _ "spondentenNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Korrespondenten] ([KorrespondentenNr], [KorrespondentenBez]) V"& _ "ALUES (@KorrespondentenNr, @KorrespondentenBez);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KorrespondentenNr, Korr"& _ "espondentenBez, SSMA_TimeStamp FROM Korrespondenten WHERE (KorrespondentenNr = @"& _ "KorrespondentenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KorrespondentenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenBez", 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].[Korrespondenten] SET [KorrespondentenNr] = @KorrespondentenNr, [Kor"& _ "respondentenBez] = @KorrespondentenBez WHERE (([KorrespondentenNr] = @Original_K"& _ "orrespondentenNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Ko"& _ "rrespondentenNr, KorrespondentenBez, SSMA_TimeStamp FROM Korrespondenten WHERE ("& _ "KorrespondentenNr = @KorrespondentenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KorrespondentenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KorrespondentenNr, KorrespondentenBez, SSMA_TimeStamp FROM dbo.Korresponde"& _ "nten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.KorrespondentenDataTable) 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 VERAGDataSet.KorrespondentenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.KorrespondentenDataTable = New VERAGDataSet.KorrespondentenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.KorrespondentenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Korrespondenten") 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_KorrespondentenNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KorrespondentenNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 KorrespondentenNr As Integer, ByVal KorrespondentenBez As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KorrespondentenNr,Integer) If (KorrespondentenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("KorrespondentenBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(KorrespondentenBez,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 KorrespondentenNr As Integer, ByVal KorrespondentenBez As String, ByVal Original_KorrespondentenNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KorrespondentenNr,Integer) If (KorrespondentenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("KorrespondentenBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(KorrespondentenBez,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_KorrespondentenNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 KorrespondentenBez As String, ByVal Original_KorrespondentenNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_KorrespondentenNr, KorrespondentenBez, Original_KorrespondentenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class KostenstellenTableAdapter 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 = "Kostenstellen" tableMapping.ColumnMappings.Add("Kostenstelle", "Kostenstelle") tableMapping.ColumnMappings.Add("Bezeichnung", "Bezeichnung") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Kostenstellen] WHERE (([Kostenstelle] = @Original_Kostenstelle"& _ ") AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Kostenstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kostenstelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Kostenstellen] ([Kostenstelle], [Bezeichnung]) VALUES (@Kosten"& _ "stelle, @Bezeichnung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Kostenstelle, Bezeichnung, SSMA_TimeStamp FROM Ko"& _ "stenstellen WHERE (Kostenstelle = @Kostenstelle)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kostenstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kostenstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezeichnung", 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].[Kostenstellen] SET [Kostenstelle] = @Kostenstelle, [Bezeichnung] = "& _ "@Bezeichnung WHERE (([Kostenstelle] = @Original_Kostenstelle) AND ([SSMA_TimeSta"& _ "mp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Kostenstelle, Bezeichnung, SSMA_TimeSt"& _ "amp FROM Kostenstellen WHERE (Kostenstelle = @Kostenstelle)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kostenstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kostenstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 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("@Original_Kostenstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kostenstelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Kostenstelle, Bezeichnung, SSMA_TimeStamp FROM dbo.Kostenstellen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.KostenstellenDataTable) 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 VERAGDataSet.KostenstellenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.KostenstellenDataTable = New VERAGDataSet.KostenstellenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.KostenstellenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Kostenstellen") 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_Kostenstelle As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Kostenstelle,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Kostenstelle As Integer, ByVal Bezeichnung As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Kostenstelle,Integer) If (Bezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bezeichnung,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 Kostenstelle As Integer, ByVal Bezeichnung As String, ByVal Original_Kostenstelle As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Kostenstelle,Integer) If (Bezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Kostenstelle,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Original_Kostenstelle As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Kostenstelle, Bezeichnung, Original_Kostenstelle, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class KreditkartenTableAdapter 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 = "Kreditkarten" tableMapping.ColumnMappings.Add("AdressenNr", "AdressenNr") tableMapping.ColumnMappings.Add("KartenNr", "KartenNr") tableMapping.ColumnMappings.Add("Kartenfreischaltungsdatum", "Kartenfreischaltungsdatum") tableMapping.ColumnMappings.Add("Kartenablaufmonat", "Kartenablaufmonat") tableMapping.ColumnMappings.Add("Kartenablaufjahr", "Kartenablaufjahr") tableMapping.ColumnMappings.Add("Kartensperre", "Kartensperre") tableMapping.ColumnMappings.Add("Kartensperrdatum", "Kartensperrdatum") tableMapping.ColumnMappings.Add("NeueKartenNr", "NeueKartenNr") tableMapping.ColumnMappings.Add("NeueKartenNrGemeldet", "NeueKartenNrGemeldet") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Kreditkarten] WHERE (([KartenNr] = @Original_KartenNr) AND ([S"& _ "SMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KartenNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KartenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Kreditkarten] ([AdressenNr], [KartenNr], [Kartenfreischaltungs"& _ "datum], [Kartenablaufmonat], [Kartenablaufjahr], [Kartensperre], [Kartensperrdat"& _ "um], [NeueKartenNr], [NeueKartenNrGemeldet], [Zeitstempel], [Sachbearbeiter]) VA"& _ "LUES (@AdressenNr, @KartenNr, @Kartenfreischaltungsdatum, @Kartenablaufmonat, @K"& _ "artenablaufjahr, @Kartensperre, @Kartensperrdatum, @NeueKartenNr, @NeueKartenNrG"& _ "emeldet, @Zeitstempel, @Sachbearbeiter);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdressenNr, KartenNr, Kartenfre"& _ "ischaltungsdatum, Kartenablaufmonat, Kartenablaufjahr, Kartensperre, Kartensperr"& _ "datum, NeueKartenNr, NeueKartenNrGemeldet, Zeitstempel, Sachbearbeiter, SSMA_Tim"& _ "eStamp FROM Kreditkarten WHERE (KartenNr = @KartenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdressenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdressenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KartenNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenfreischaltungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenfreischaltungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenablaufmonat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenablaufmonat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenablaufjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenablaufjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartensperre", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartensperre", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartensperrdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartensperrdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NeueKartenNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NeueKartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NeueKartenNrGemeldet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NeueKartenNrGemeldet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", 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].[Kreditkarten] SET [AdressenNr] = @AdressenNr, [KartenNr] = @KartenN"& _ "r, [Kartenfreischaltungsdatum] = @Kartenfreischaltungsdatum, [Kartenablaufmonat]"& _ " = @Kartenablaufmonat, [Kartenablaufjahr] = @Kartenablaufjahr, [Kartensperre] = "& _ "@Kartensperre, [Kartensperrdatum] = @Kartensperrdatum, [NeueKartenNr] = @NeueKar"& _ "tenNr, [NeueKartenNrGemeldet] = @NeueKartenNrGemeldet, [Zeitstempel] = @Zeitstem"& _ "pel, [Sachbearbeiter] = @Sachbearbeiter WHERE (([KartenNr] = @Original_KartenNr)"& _ " AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdressenNr, KartenN"& _ "r, Kartenfreischaltungsdatum, Kartenablaufmonat, Kartenablaufjahr, Kartensperre,"& _ " Kartensperrdatum, NeueKartenNr, NeueKartenNrGemeldet, Zeitstempel, Sachbearbeit"& _ "er, SSMA_TimeStamp FROM Kreditkarten WHERE (KartenNr = @KartenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdressenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdressenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KartenNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenfreischaltungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenfreischaltungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenablaufmonat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenablaufmonat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenablaufjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenablaufjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartensperre", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartensperre", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartensperrdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartensperrdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NeueKartenNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NeueKartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NeueKartenNrGemeldet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NeueKartenNrGemeldet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KartenNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KartenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 AdressenNr, KartenNr, Kartenfreischaltungsdatum, Kartenablaufmonat, Karten"& _ "ablaufjahr, Kartensperre, Kartensperrdatum, NeueKartenNr, NeueKartenNrGemeldet, "& _ "Zeitstempel, Sachbearbeiter, SSMA_TimeStamp FROM dbo.Kreditkarten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.KreditkartenDataTable) 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 VERAGDataSet.KreditkartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.KreditkartenDataTable = New VERAGDataSet.KreditkartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.KreditkartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Kreditkarten") 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_KartenNr As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_KartenNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_KartenNr") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KartenNr,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 AdressenNr As Integer, ByVal KartenNr As String, ByVal Kartenfreischaltungsdatum As Global.System.Nullable(Of Date), ByVal Kartenablaufmonat As Short, ByVal Kartenablaufjahr As Short, ByVal Kartensperre As Short, ByVal Kartensperrdatum As Global.System.Nullable(Of Date), ByVal NeueKartenNr As String, ByVal NeueKartenNrGemeldet As Global.System.Nullable(Of Boolean), ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(AdressenNr,Integer) If (KartenNr Is Nothing) Then Throw New Global.System.ArgumentNullException("KartenNr") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(KartenNr,String) End If If (Kartenfreischaltungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Kartenfreischaltungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(Kartenablaufmonat,Short) Me.Adapter.InsertCommand.Parameters(4).Value = CType(Kartenablaufjahr,Short) Me.Adapter.InsertCommand.Parameters(5).Value = CType(Kartensperre,Short) If (Kartensperrdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Kartensperrdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (NeueKartenNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(NeueKartenNr,String) End If If (NeueKartenNrGemeldet.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(NeueKartenNrGemeldet.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Sachbearbeiter,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 AdressenNr As Integer, ByVal KartenNr As String, ByVal Kartenfreischaltungsdatum As Global.System.Nullable(Of Date), ByVal Kartenablaufmonat As Short, ByVal Kartenablaufjahr As Short, ByVal Kartensperre As Short, ByVal Kartensperrdatum As Global.System.Nullable(Of Date), ByVal NeueKartenNr As String, ByVal NeueKartenNrGemeldet As Global.System.Nullable(Of Boolean), ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal Original_KartenNr As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AdressenNr,Integer) If (KartenNr Is Nothing) Then Throw New Global.System.ArgumentNullException("KartenNr") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(KartenNr,String) End If If (Kartenfreischaltungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Kartenfreischaltungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Kartenablaufmonat,Short) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Kartenablaufjahr,Short) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Kartensperre,Short) If (Kartensperrdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Kartensperrdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (NeueKartenNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(NeueKartenNr,String) End If If (NeueKartenNrGemeldet.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(NeueKartenNrGemeldet.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Sachbearbeiter,String) End If If (Original_KartenNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_KartenNr") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_KartenNr,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 AdressenNr As Integer, ByVal Kartenfreischaltungsdatum As Global.System.Nullable(Of Date), ByVal Kartenablaufmonat As Short, ByVal Kartenablaufjahr As Short, ByVal Kartensperre As Short, ByVal Kartensperrdatum As Global.System.Nullable(Of Date), ByVal NeueKartenNr As String, ByVal NeueKartenNrGemeldet As Global.System.Nullable(Of Boolean), ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal Original_KartenNr As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(AdressenNr, Original_KartenNr, Kartenfreischaltungsdatum, Kartenablaufmonat, Kartenablaufjahr, Kartensperre, Kartensperrdatum, NeueKartenNr, NeueKartenNrGemeldet, Zeitstempel, Sachbearbeiter, Original_KartenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class KundenTableAdapter 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 = "Kunden" tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("Einmalige Abfertigung", "Einmalige Abfertigung") tableMapping.ColumnMappings.Add("Neutralisierung", "Neutralisierung") tableMapping.ColumnMappings.Add("Avis", "Avis") tableMapping.ColumnMappings.Add("Zollvollmacht", "Zollvollmacht") tableMapping.ColumnMappings.Add("Zollvollmacht vom", "Zollvollmacht vom") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Lastschrift von", "Lastschrift von") tableMapping.ColumnMappings.Add("Lastschrift bis", "Lastschrift bis") tableMapping.ColumnMappings.Add("Rabattstaffel", "Rabattstaffel") tableMapping.ColumnMappings.Add("SVS", "SVS") tableMapping.ColumnMappings.Add("Vorlageprovision %", "Vorlageprovision %") tableMapping.ColumnMappings.Add("Kreditaufwendungen %", "Kreditaufwendungen %") tableMapping.ColumnMappings.Add("Bankspesen %", "Bankspesen %") tableMapping.ColumnMappings.Add("Bankspesen Mindestbetrag", "Bankspesen Mindestbetrag") tableMapping.ColumnMappings.Add("Besonderheiten", "Besonderheiten") tableMapping.ColumnMappings.Add("Sammelrechnung", "Sammelrechnung") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Referenznummer", "Referenznummer") tableMapping.ColumnMappings.Add("Antragssumme", "Antragssumme") tableMapping.ColumnMappings.Add("Antrag vom", "Antrag vom") tableMapping.ColumnMappings.Add("Versicherungssumme", "Versicherungssumme") tableMapping.ColumnMappings.Add("Entscheidung vom", "Entscheidung vom") tableMapping.ColumnMappings.Add("Kreditlimit", "Kreditlimit") tableMapping.ColumnMappings.Add("Kreditlimit vom", "Kreditlimit vom") tableMapping.ColumnMappings.Add("Info", "Info") tableMapping.ColumnMappings.Add("Überwachungskunde", "Überwachungskunde") tableMapping.ColumnMappings.Add("Abfertigungsverbot", "Abfertigungsverbot") tableMapping.ColumnMappings.Add("Abfertigungsverbot seit", "Abfertigungsverbot seit") tableMapping.ColumnMappings.Add("Abfertigungsverbot Grund", "Abfertigungsverbot Grund") tableMapping.ColumnMappings.Add("Rechtsanwalt", "Rechtsanwalt") tableMapping.ColumnMappings.Add("Rechtsanwalt seit", "Rechtsanwalt seit") tableMapping.ColumnMappings.Add("Eingegeben am", "Eingegeben am") tableMapping.ColumnMappings.Add("Geändert am", "Geändert am") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("LfdSaldo", "LfdSaldo") tableMapping.ColumnMappings.Add("Erste Abfertigung", "Erste Abfertigung") tableMapping.ColumnMappings.Add("Vorkasse", "Vorkasse") tableMapping.ColumnMappings.Add("Zahlungsinformationen", "Zahlungsinformationen") tableMapping.ColumnMappings.Add("EORITIN", "EORITIN") tableMapping.ColumnMappings.Add("Zollnummer", "Zollnummer") tableMapping.ColumnMappings.Add("ZulassungsNr ZnV", "ZulassungsNr ZnV") tableMapping.ColumnMappings.Add("Aufschubkonto EUSt", "Aufschubkonto EUSt") tableMapping.ColumnMappings.Add("Aufschubkonto Zoll", "Aufschubkonto Zoll") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Euroeinführung", "Euroeinführung") tableMapping.ColumnMappings.Add("LetzteRechnungsNr", "LetzteRechnungsNr") tableMapping.ColumnMappings.Add("LetztesRechnungsDatum", "LetztesRechnungsDatum") tableMapping.ColumnMappings.Add("Konzernkonto", "Konzernkonto") tableMapping.ColumnMappings.Add("FiBuSchnittstelle", "FiBuSchnittstelle") tableMapping.ColumnMappings.Add("Planzahl", "Planzahl") tableMapping.ColumnMappings.Add("Gesprächsbericht", "Gesprächsbericht") tableMapping.ColumnMappings.Add("Bonität", "Bonität") tableMapping.ColumnMappings.Add("Bonitätsdatum", "Bonitätsdatum") tableMapping.ColumnMappings.Add("Zahlungsziel", "Zahlungsziel") tableMapping.ColumnMappings.Add("UStV_SummeUmsatzsteuerbetragEUR", "UStV_SummeUmsatzsteuerbetragEUR") tableMapping.ColumnMappings.Add("UStV_SummeErstattungsbetragEUR", "UStV_SummeErstattungsbetragEUR") tableMapping.ColumnMappings.Add("UStV_Summe3470BetragEUR", "UStV_Summe3470BetragEUR") tableMapping.ColumnMappings.Add("UStV_SummeVZBetragEUR", "UStV_SummeVZBetragEUR") tableMapping.ColumnMappings.Add("UStV_SummeVorschaubetragEUR", "UStV_SummeVorschaubetragEUR") tableMapping.ColumnMappings.Add("UStV_SummeVorschaubetragEUR_VERAG", "UStV_SummeVorschaubetragEUR_VERAG") tableMapping.ColumnMappings.Add("UStV_SummeVorschaubetragEUR_IDS", "UStV_SummeVorschaubetragEUR_IDS") tableMapping.ColumnMappings.Add("Fiskal", "Fiskal") tableMapping.ColumnMappings.Add("Ausfuhr", "Ausfuhr") tableMapping.ColumnMappings.Add("BankgarantieBetrag", "BankgarantieBetrag") tableMapping.ColumnMappings.Add("BankgarantieGültigBis", "BankgarantieGültigBis") tableMapping.ColumnMappings.Add("KD_Korrespondenz", "KD_Korrespondenz") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("UStV_SummeVorschaubetragEUR_IT", "UStV_SummeVorschaubetragEUR_IT") tableMapping.ColumnMappings.Add("UStV_SummeVorschaubetragEUR_MSE", "UStV_SummeVorschaubetragEUR_MSE") tableMapping.ColumnMappings.Add("UStV_SummeVorschaubetragEUR_UTA", "UStV_SummeVorschaubetragEUR_UTA") tableMapping.ColumnMappings.Add("Fiskal_Aktiv", "Fiskal_Aktiv") tableMapping.ColumnMappings.Add("EmailAnkunft", "EmailAnkunft") tableMapping.ColumnMappings.Add("EmailFreigabe", "EmailFreigabe") tableMapping.ColumnMappings.Add("DokumenteLKWFreigabe", "DokumenteLKWFreigabe") tableMapping.ColumnMappings.Add("Höchstkredit", "Höchstkredit") tableMapping.ColumnMappings.Add("FiBuSchnittstelleNr", "FiBuSchnittstelleNr") tableMapping.ColumnMappings.Add("DakosyExport", "DakosyExport") tableMapping.ColumnMappings.Add("EORITIN_NL", "EORITIN_NL") 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].[Kunden] WHERE (([KundenNr] = @Original_KundenNr) AND ([SSMA_Ti"& _ "meStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Kunden] ([KundenNr], [KundenNrZentrale], [FilialenNr], [Einmal"& _ "ige Abfertigung], [Neutralisierung], [Avis], [Zollvollmacht], [Zollvollmacht vom"& _ "], [Lastschrift], [Lastschrift von], [Lastschrift bis], [Rabattstaffel], [SVS], "& _ "[Vorlageprovision %], [Kreditaufwendungen %], [Bankspesen %], [Bankspesen Mindes"& _ "tbetrag], [Besonderheiten], [Sammelrechnung], [Steuerschlüssel], [Referenznummer"& _ "], [Antragssumme], [Antrag vom], [Versicherungssumme], [Entscheidung vom], [Kred"& _ "itlimit], [Kreditlimit vom], [Info], [Überwachungskunde], [Abfertigungsverbot], "& _ "[Abfertigungsverbot seit], [Abfertigungsverbot Grund], [Rechtsanwalt], [Rechtsan"& _ "walt seit], [Eingegeben am], [Geändert am], [Sachbearbeiter], [LfdSaldo], [Erste"& _ " Abfertigung], [Vorkasse], [Zahlungsinformationen], [EORITIN], [Zollnummer], [Zu"& _ "lassungsNr ZnV], [Aufschubkonto EUSt], [Aufschubkonto Zoll], [Währungscode], [Eu"& _ "roeinführung], [LetzteRechnungsNr], [LetztesRechnungsDatum], [Konzernkonto], [Fi"& _ "BuSchnittstelle], [Planzahl], [Gesprächsbericht], [Bonität], [Bonitätsdatum], [Z"& _ "ahlungsziel], [UStV_SummeUmsatzsteuerbetragEUR], [UStV_SummeErstattungsbetragEUR"& _ "], [UStV_Summe3470BetragEUR], [UStV_SummeVZBetragEUR], [UStV_SummeVorschaubetrag"& _ "EUR], [UStV_SummeVorschaubetragEUR_VERAG], [UStV_SummeVorschaubetragEUR_IDS], [F"& _ "iskal], [Ausfuhr], [BankgarantieBetrag], [BankgarantieGültigBis], [KD_Korrespond"& _ "enz], [UStV_SummeVorschaubetragEUR_IT], [UStV_SummeVorschaubetragEUR_MSE], [UStV"& _ "_SummeVorschaubetragEUR_UTA], [Fiskal_Aktiv], [EmailAnkunft], [EmailFreigabe], ["& _ "DokumenteLKWFreigabe], [Höchstkredit], [FiBuSchnittstelleNr], [DakosyExport], [E"& _ "ORITIN_NL]) VALUES (@KundenNr, @KundenNrZentrale, @FilialenNr, @Einmalige_Abfert"& _ "igung, @Neutralisierung, @Avis, @Zollvollmacht, @Zollvollmacht_vom, @Lastschrift"& _ ", @Lastschrift_von, @Lastschrift_bis, @Rabattstaffel, @SVS, @p1, @p3, @p5, @Bank"& _ "spesen_Mindestbetrag, @Besonderheiten, @Sammelrechnung, @Steuerschlüssel, @Refer"& _ "enznummer, @Antragssumme, @Antrag_vom, @Versicherungssumme, @Entscheidung_vom, @"& _ "Kreditlimit, @Kreditlimit_vom, @Info, @Überwachungskunde, @Abfertigungsverbot, @"& _ "Abfertigungsverbot_seit, @Abfertigungsverbot_Grund, @Rechtsanwalt, @Rechtsanwalt"& _ "_seit, @Eingegeben_am, @Geändert_am, @Sachbearbeiter, @LfdSaldo, @Erste_Abfertig"& _ "ung, @Vorkasse, @Zahlungsinformationen, @EORITIN, @Zollnummer, @ZulassungsNr_ZnV"& _ ", @Aufschubkonto_EUSt, @Aufschubkonto_Zoll, @Währungscode, @Euroeinführung, @Let"& _ "zteRechnungsNr, @LetztesRechnungsDatum, @Konzernkonto, @FiBuSchnittstelle, @Plan"& _ "zahl, @Gesprächsbericht, @Bonität, @Bonitätsdatum, @Zahlungsziel, @UStV_SummeUms"& _ "atzsteuerbetragEUR, @UStV_SummeErstattungsbetragEUR, @UStV_Summe3470BetragEUR, @"& _ "UStV_SummeVZBetragEUR, @UStV_SummeVorschaubetragEUR, @UStV_SummeVorschaubetragEU"& _ "R_VERAG, @UStV_SummeVorschaubetragEUR_IDS, @Fiskal, @Ausfuhr, @BankgarantieBetra"& _ "g, @BankgarantieGültigBis, @KD_Korrespondenz, @UStV_SummeVorschaubetragEUR_IT, @"& _ "UStV_SummeVorschaubetragEUR_MSE, @UStV_SummeVorschaubetragEUR_UTA, @Fiskal_Aktiv"& _ ", @EmailAnkunft, @EmailFreigabe, @DokumenteLKWFreigabe, @Höchstkredit, @FiBuSchn"& _ "ittstelleNr, @DakosyExport, @EORITIN_NL);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KundenNr, KundenNrZentrale, Fi"& _ "lialenNr, [Einmalige Abfertigung], Neutralisierung, Avis, Zollvollmacht, [Zollvo"& _ "llmacht vom], Lastschrift, [Lastschrift von], [Lastschrift bis], Rabattstaffel, "& _ "SVS, [Vorlageprovision %], [Kreditaufwendungen %], [Bankspesen %], [Bankspesen M"& _ "indestbetrag], Besonderheiten, Sammelrechnung, Steuerschlüssel, Referenznummer, "& _ "Antragssumme, [Antrag vom], Versicherungssumme, [Entscheidung vom], Kreditlimit,"& _ " [Kreditlimit vom], Info, Überwachungskunde, Abfertigungsverbot, [Abfertigungsve"& _ "rbot seit], [Abfertigungsverbot Grund], Rechtsanwalt, [Rechtsanwalt seit], [Eing"& _ "egeben am], [Geändert am], Sachbearbeiter, LfdSaldo, [Erste Abfertigung], Vorkas"& _ "se, Zahlungsinformationen, EORITIN, Zollnummer, [ZulassungsNr ZnV], [Aufschubkon"& _ "to EUSt], [Aufschubkonto Zoll], Währungscode, Euroeinführung, LetzteRechnungsNr,"& _ " LetztesRechnungsDatum, Konzernkonto, FiBuSchnittstelle, Planzahl, Gesprächsberi"& _ "cht, Bonität, Bonitätsdatum, Zahlungsziel, UStV_SummeUmsatzsteuerbetragEUR, UStV"& _ "_SummeErstattungsbetragEUR, UStV_Summe3470BetragEUR, UStV_SummeVZBetragEUR, UStV"& _ "_SummeVorschaubetragEUR, UStV_SummeVorschaubetragEUR_VERAG, UStV_SummeVorschaube"& _ "tragEUR_IDS, Fiskal, Ausfuhr, BankgarantieBetrag, BankgarantieGültigBis, KD_Korr"& _ "espondenz, SSMA_TimeStamp, UStV_SummeVorschaubetragEUR_IT, UStV_SummeVorschaubet"& _ "ragEUR_MSE, UStV_SummeVorschaubetragEUR_UTA, Fiskal_Aktiv, EmailAnkunft, EmailFr"& _ "eigabe, DokumenteLKWFreigabe, Höchstkredit, FiBuSchnittstelleNr, DakosyExport, E"& _ "ORITIN_NL FROM Kunden WHERE (KundenNr = @KundenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrZentrale", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrZentrale", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einmalige_Abfertigung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einmalige Abfertigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Neutralisierung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Neutralisierung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Avis", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Avis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollvollmacht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollvollmacht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollvollmacht_vom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollvollmacht vom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lastschrift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift_von", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lastschrift von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lastschrift bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rabattstaffel", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rabattstaffel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SVS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SVS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorlageprovision %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p3", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreditaufwendungen %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p5", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bankspesen_Mindestbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen Mindestbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Besonderheiten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Besonderheiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sammelrechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenznummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenznummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Antragssumme", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Antragssumme", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Antrag_vom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Antrag vom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Versicherungssumme", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Versicherungssumme", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Entscheidung_vom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Entscheidung vom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kreditlimit", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreditlimit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kreditlimit_vom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreditlimit vom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Info", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Überwachungskunde", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Überwachungskunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsverbot", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsverbot", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsverbot_seit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsverbot seit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsverbot_Grund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsverbot Grund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechtsanwalt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechtsanwalt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechtsanwalt_seit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechtsanwalt seit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdSaldo", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdSaldo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Erste_Abfertigung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erste Abfertigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorkasse", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorkasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsinformationen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsinformationen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EORITIN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EORITIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZulassungsNr_ZnV", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZulassungsNr ZnV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubkonto_EUSt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubkonto EUSt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubkonto_Zoll", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubkonto Zoll", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Euroeinführung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Euroeinführung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LetzteRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LetzteRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LetztesRechnungsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LetztesRechnungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Konzernkonto", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Konzernkonto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FiBuSchnittstelle", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FiBuSchnittstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Planzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Planzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesprächsbericht", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesprächsbericht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bonität", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bonität", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bonitätsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bonitätsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeUmsatzsteuerbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeUmsatzsteuerbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeErstattungsbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeErstattungsbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_Summe3470BetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_Summe3470BetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVZBetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVZBetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR_VERAG", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR_VERAG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR_IDS", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR_IDS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fiskal", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fiskal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ausfuhr", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ausfuhr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BankgarantieBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BankgarantieBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BankgarantieGültigBis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BankgarantieGültigBis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KD_Korrespondenz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KD_Korrespondenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR_IT", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR_IT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR_MSE", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR_MSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR_UTA", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR_UTA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fiskal_Aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fiskal_Aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailAnkunft", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailAnkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumenteLKWFreigabe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumenteLKWFreigabe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Höchstkredit", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Höchstkredit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FiBuSchnittstelleNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FiBuSchnittstelleNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DakosyExport", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DakosyExport", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EORITIN_NL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EORITIN_NL", 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].[Kunden] SET [KundenNr] = @KundenNr, [KundenNrZentrale] = @KundenNrZ"& _ "entrale, [FilialenNr] = @FilialenNr, [Einmalige Abfertigung] = @Einmalige_Abfert"& _ "igung, [Neutralisierung] = @Neutralisierung, [Avis] = @Avis, [Zollvollmacht] = @"& _ "Zollvollmacht, [Zollvollmacht vom] = @Zollvollmacht_vom, [Lastschrift] = @Lastsc"& _ "hrift, [Lastschrift von] = @Lastschrift_von, [Lastschrift bis] = @Lastschrift_bi"& _ "s, [Rabattstaffel] = @Rabattstaffel, [SVS] = @SVS, [Vorlageprovision %] = @p1, ["& _ "Kreditaufwendungen %] = @p3, [Bankspesen %] = @p5, [Bankspesen Mindestbetrag] = "& _ "@Bankspesen_Mindestbetrag, [Besonderheiten] = @Besonderheiten, [Sammelrechnung] "& _ "= @Sammelrechnung, [Steuerschlüssel] = @Steuerschlüssel, [Referenznummer] = @Ref"& _ "erenznummer, [Antragssumme] = @Antragssumme, [Antrag vom] = @Antrag_vom, [Versic"& _ "herungssumme] = @Versicherungssumme, [Entscheidung vom] = @Entscheidung_vom, [Kr"& _ "editlimit] = @Kreditlimit, [Kreditlimit vom] = @Kreditlimit_vom, [Info] = @Info,"& _ " [Überwachungskunde] = @Überwachungskunde, [Abfertigungsverbot] = @Abfertigungsv"& _ "erbot, [Abfertigungsverbot seit] = @Abfertigungsverbot_seit, [Abfertigungsverbot"& _ " Grund] = @Abfertigungsverbot_Grund, [Rechtsanwalt] = @Rechtsanwalt, [Rechtsanwa"& _ "lt seit] = @Rechtsanwalt_seit, [Eingegeben am] = @Eingegeben_am, [Geändert am] ="& _ " @Geändert_am, [Sachbearbeiter] = @Sachbearbeiter, [LfdSaldo] = @LfdSaldo, [Erst"& _ "e Abfertigung] = @Erste_Abfertigung, [Vorkasse] = @Vorkasse, [Zahlungsinformatio"& _ "nen] = @Zahlungsinformationen, [EORITIN] = @EORITIN, [Zollnummer] = @Zollnummer,"& _ " [ZulassungsNr ZnV] = @ZulassungsNr_ZnV, [Aufschubkonto EUSt] = @Aufschubkonto_E"& _ "USt, [Aufschubkonto Zoll] = @Aufschubkonto_Zoll, [Währungscode] = @Währungscode,"& _ " [Euroeinführung] = @Euroeinführung, [LetzteRechnungsNr] = @LetzteRechnungsNr, ["& _ "LetztesRechnungsDatum] = @LetztesRechnungsDatum, [Konzernkonto] = @Konzernkonto,"& _ " [FiBuSchnittstelle] = @FiBuSchnittstelle, [Planzahl] = @Planzahl, [Gesprächsber"& _ "icht] = @Gesprächsbericht, [Bonität] = @Bonität, [Bonitätsdatum] = @Bonitätsdatu"& _ "m, [Zahlungsziel] = @Zahlungsziel, [UStV_SummeUmsatzsteuerbetragEUR] = @UStV_Sum"& _ "meUmsatzsteuerbetragEUR, [UStV_SummeErstattungsbetragEUR] = @UStV_SummeErstattun"& _ "gsbetragEUR, [UStV_Summe3470BetragEUR] = @UStV_Summe3470BetragEUR, [UStV_SummeVZ"& _ "BetragEUR] = @UStV_SummeVZBetragEUR, [UStV_SummeVorschaubetragEUR] = @UStV_Summe"& _ "VorschaubetragEUR, [UStV_SummeVorschaubetragEUR_VERAG] = @UStV_SummeVorschaubetr"& _ "agEUR_VERAG, [UStV_SummeVorschaubetragEUR_IDS] = @UStV_SummeVorschaubetragEUR_ID"& _ "S, [Fiskal] = @Fiskal, [Ausfuhr] = @Ausfuhr, [BankgarantieBetrag] = @Bankgaranti"& _ "eBetrag, [BankgarantieGültigBis] = @BankgarantieGültigBis, [KD_Korrespondenz] = "& _ "@KD_Korrespondenz, [UStV_SummeVorschaubetragEUR_IT] = @UStV_SummeVorschaubetragE"& _ "UR_IT, [UStV_SummeVorschaubetragEUR_MSE] = @UStV_SummeVorschaubetragEUR_MSE, [US"& _ "tV_SummeVorschaubetragEUR_UTA] = @UStV_SummeVorschaubetragEUR_UTA, [Fiskal_Aktiv"& _ "] = @Fiskal_Aktiv, [EmailAnkunft] = @EmailAnkunft, [EmailFreigabe] = @EmailFreig"& _ "abe, [DokumenteLKWFreigabe] = @DokumenteLKWFreigabe, [Höchstkredit] = @Höchstkre"& _ "dit, [FiBuSchnittstelleNr] = @FiBuSchnittstelleNr, [DakosyExport] = @DakosyExpor"& _ "t, [EORITIN_NL] = @EORITIN_NL WHERE (([KundenNr] = @Original_KundenNr) AND ([SSM"& _ "A_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KundenNr, KundenNrZentrale, F"& _ "ilialenNr, [Einmalige Abfertigung], Neutralisierung, Avis, Zollvollmacht, [Zollv"& _ "ollmacht vom], Lastschrift, [Lastschrift von], [Lastschrift bis], Rabattstaffel,"& _ " SVS, [Vorlageprovision %], [Kreditaufwendungen %], [Bankspesen %], [Bankspesen "& _ "Mindestbetrag], Besonderheiten, Sammelrechnung, Steuerschlüssel, Referenznummer,"& _ " Antragssumme, [Antrag vom], Versicherungssumme, [Entscheidung vom], Kreditlimit"& _ ", [Kreditlimit vom], Info, Überwachungskunde, Abfertigungsverbot, [Abfertigungsv"& _ "erbot seit], [Abfertigungsverbot Grund], Rechtsanwalt, [Rechtsanwalt seit], [Ein"& _ "gegeben am], [Geändert am], Sachbearbeiter, LfdSaldo, [Erste Abfertigung], Vorka"& _ "sse, Zahlungsinformationen, EORITIN, Zollnummer, [ZulassungsNr ZnV], [Aufschubko"& _ "nto EUSt], [Aufschubkonto Zoll], Währungscode, Euroeinführung, LetzteRechnungsNr"& _ ", LetztesRechnungsDatum, Konzernkonto, FiBuSchnittstelle, Planzahl, Gesprächsber"& _ "icht, Bonität, Bonitätsdatum, Zahlungsziel, UStV_SummeUmsatzsteuerbetragEUR, USt"& _ "V_SummeErstattungsbetragEUR, UStV_Summe3470BetragEUR, UStV_SummeVZBetragEUR, USt"& _ "V_SummeVorschaubetragEUR, UStV_SummeVorschaubetragEUR_VERAG, UStV_SummeVorschaub"& _ "etragEUR_IDS, Fiskal, Ausfuhr, BankgarantieBetrag, BankgarantieGültigBis, KD_Kor"& _ "respondenz, SSMA_TimeStamp, UStV_SummeVorschaubetragEUR_IT, UStV_SummeVorschaube"& _ "tragEUR_MSE, UStV_SummeVorschaubetragEUR_UTA, Fiskal_Aktiv, EmailAnkunft, EmailF"& _ "reigabe, DokumenteLKWFreigabe, Höchstkredit, FiBuSchnittstelleNr, DakosyExport, "& _ "EORITIN_NL FROM Kunden WHERE (KundenNr = @KundenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrZentrale", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrZentrale", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einmalige_Abfertigung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einmalige Abfertigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Neutralisierung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Neutralisierung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Avis", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Avis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollvollmacht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollvollmacht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollvollmacht_vom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollvollmacht vom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lastschrift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift_von", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lastschrift von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lastschrift bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rabattstaffel", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rabattstaffel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SVS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SVS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorlageprovision %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p3", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreditaufwendungen %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p5", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bankspesen_Mindestbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen Mindestbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Besonderheiten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Besonderheiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sammelrechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenznummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenznummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Antragssumme", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Antragssumme", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Antrag_vom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Antrag vom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Versicherungssumme", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Versicherungssumme", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Entscheidung_vom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Entscheidung vom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kreditlimit", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreditlimit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kreditlimit_vom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreditlimit vom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Info", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Überwachungskunde", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Überwachungskunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsverbot", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsverbot", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsverbot_seit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsverbot seit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsverbot_Grund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsverbot Grund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechtsanwalt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechtsanwalt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechtsanwalt_seit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechtsanwalt seit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdSaldo", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdSaldo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Erste_Abfertigung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erste Abfertigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorkasse", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorkasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsinformationen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsinformationen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EORITIN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EORITIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZulassungsNr_ZnV", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZulassungsNr ZnV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubkonto_EUSt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubkonto EUSt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubkonto_Zoll", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubkonto Zoll", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Euroeinführung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Euroeinführung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LetzteRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LetzteRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LetztesRechnungsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LetztesRechnungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Konzernkonto", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Konzernkonto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FiBuSchnittstelle", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FiBuSchnittstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Planzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Planzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesprächsbericht", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesprächsbericht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bonität", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bonität", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bonitätsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bonitätsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeUmsatzsteuerbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeUmsatzsteuerbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeErstattungsbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeErstattungsbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_Summe3470BetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_Summe3470BetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVZBetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVZBetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR_VERAG", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR_VERAG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR_IDS", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR_IDS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fiskal", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fiskal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ausfuhr", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ausfuhr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BankgarantieBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BankgarantieBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BankgarantieGültigBis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BankgarantieGültigBis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KD_Korrespondenz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KD_Korrespondenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR_IT", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR_IT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR_MSE", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR_MSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_SummeVorschaubetragEUR_UTA", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_SummeVorschaubetragEUR_UTA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fiskal_Aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fiskal_Aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailAnkunft", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailAnkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumenteLKWFreigabe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumenteLKWFreigabe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Höchstkredit", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Höchstkredit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FiBuSchnittstelleNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FiBuSchnittstelleNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DakosyExport", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DakosyExport", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EORITIN_NL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EORITIN_NL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KundenNr, KundenNrZentrale, FilialenNr, [Einmalige Abfertigung], Neutralis"& _ "ierung, Avis, Zollvollmacht, [Zollvollmacht vom], Lastschrift, [Lastschrift von]"& _ ", [Lastschrift bis], Rabattstaffel, SVS, [Vorlageprovision %], [Kreditaufwendung"& _ "en %], [Bankspesen %], [Bankspesen Mindestbetrag], Besonderheiten, Sammelrechnun"& _ "g, Steuerschlüssel, Referenznummer, Antragssumme, [Antrag vom], Versicherungssum"& _ "me, [Entscheidung vom], Kreditlimit, [Kreditlimit vom], Info, Überwachungskunde,"& _ " Abfertigungsverbot, [Abfertigungsverbot seit], [Abfertigungsverbot Grund], Rech"& _ "tsanwalt, [Rechtsanwalt seit], [Eingegeben am], [Geändert am], Sachbearbeiter, L"& _ "fdSaldo, [Erste Abfertigung], Vorkasse, Zahlungsinformationen, EORITIN, Zollnumm"& _ "er, [ZulassungsNr ZnV], [Aufschubkonto EUSt], [Aufschubkonto Zoll], Währungscode"& _ ", Euroeinführung, LetzteRechnungsNr, LetztesRechnungsDatum, Konzernkonto, FiBuSc"& _ "hnittstelle, Planzahl, Gesprächsbericht, Bonität, Bonitätsdatum, Zahlungsziel, U"& _ "StV_SummeUmsatzsteuerbetragEUR, UStV_SummeErstattungsbetragEUR, UStV_Summe3470Be"& _ "tragEUR, UStV_SummeVZBetragEUR, UStV_SummeVorschaubetragEUR, UStV_SummeVorschaub"& _ "etragEUR_VERAG, UStV_SummeVorschaubetragEUR_IDS, Fiskal, Ausfuhr, BankgarantieBe"& _ "trag, BankgarantieGültigBis, KD_Korrespondenz, SSMA_TimeStamp, UStV_SummeVorscha"& _ "ubetragEUR_IT, UStV_SummeVorschaubetragEUR_MSE, UStV_SummeVorschaubetragEUR_UTA,"& _ " Fiskal_Aktiv, EmailAnkunft, EmailFreigabe, DokumenteLKWFreigabe, Höchstkredit, "& _ "FiBuSchnittstelleNr, DakosyExport, EORITIN_NL FROM dbo.Kunden" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.KundenDataTable) 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 VERAGDataSet.KundenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.KundenDataTable = New VERAGDataSet.KundenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.KundenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Kunden") 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_KundenNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KundenNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 KundenNr As Integer, _ ByVal KundenNrZentrale As Integer, _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal Einmalige_Abfertigung As Global.System.Nullable(Of Boolean), _ ByVal Neutralisierung As Global.System.Nullable(Of Short), _ ByVal Avis As Global.System.Nullable(Of Short), _ ByVal Zollvollmacht As Global.System.Nullable(Of Boolean), _ ByVal Zollvollmacht_vom As Global.System.Nullable(Of Date), _ ByVal Lastschrift As Boolean, _ ByVal Lastschrift_von As Global.System.Nullable(Of Date), _ ByVal Lastschrift_bis As Global.System.Nullable(Of Date), _ ByVal Rabattstaffel As Global.System.Nullable(Of Boolean), _ ByVal SVS As Global.System.Nullable(Of Boolean), _ ByVal p1 As Single, _ ByVal p3 As Single, _ ByVal p5 As Single, _ ByVal Bankspesen_Mindestbetrag As Decimal, _ ByVal Besonderheiten As String, _ ByVal Sammelrechnung As Short, _ ByVal Steuerschlüssel As Short, _ ByVal Referenznummer As String, _ ByVal Antragssumme As Global.System.Nullable(Of Decimal), _ ByVal Antrag_vom As Global.System.Nullable(Of Date), _ ByVal Versicherungssumme As Global.System.Nullable(Of Decimal), _ ByVal Entscheidung_vom As Global.System.Nullable(Of Date), _ ByVal Kreditlimit As Global.System.Nullable(Of Decimal), _ ByVal Kreditlimit_vom As Global.System.Nullable(Of Date), _ ByVal Info As String, _ ByVal Überwachungskunde As Global.System.Nullable(Of Boolean), _ ByVal Abfertigungsverbot As Global.System.Nullable(Of Boolean), _ ByVal Abfertigungsverbot_seit As Global.System.Nullable(Of Date), _ ByVal Abfertigungsverbot_Grund As String, _ ByVal Rechtsanwalt As Global.System.Nullable(Of Boolean), _ ByVal Rechtsanwalt_seit As Global.System.Nullable(Of Date), _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal LfdSaldo As Global.System.Nullable(Of Decimal), _ ByVal Erste_Abfertigung As Global.System.Nullable(Of Date), _ ByVal Vorkasse As Global.System.Nullable(Of Boolean), _ ByVal Zahlungsinformationen As String, _ ByVal EORITIN As String, _ ByVal Zollnummer As String, _ ByVal ZulassungsNr_ZnV As String, _ ByVal Aufschubkonto_EUSt As String, _ ByVal Aufschubkonto_Zoll As String, _ ByVal Währungscode As String, _ ByVal Euroeinführung As Date, _ ByVal LetzteRechnungsNr As Global.System.Nullable(Of Integer), _ ByVal LetztesRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Konzernkonto As Global.System.Nullable(Of Boolean), _ ByVal FiBuSchnittstelle As Global.System.Nullable(Of Boolean), _ ByVal Planzahl As Global.System.Nullable(Of Integer), _ ByVal Gesprächsbericht As String, _ ByVal Bonität As Global.System.Nullable(Of Short), _ ByVal Bonitätsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel As Global.System.Nullable(Of Short), _ ByVal UStV_SummeUmsatzsteuerbetragEUR As Decimal, _ ByVal UStV_SummeErstattungsbetragEUR As Decimal, _ ByVal UStV_Summe3470BetragEUR As Decimal, _ ByVal UStV_SummeVZBetragEUR As Decimal, _ ByVal UStV_SummeVorschaubetragEUR As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_VERAG As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_IDS As Decimal, _ ByVal Fiskal As Global.System.Nullable(Of Boolean), _ ByVal Ausfuhr As Global.System.Nullable(Of Boolean), _ ByVal BankgarantieBetrag As Global.System.Nullable(Of Decimal), _ ByVal BankgarantieGültigBis As Global.System.Nullable(Of Date), _ ByVal KD_Korrespondenz As String, _ ByVal UStV_SummeVorschaubetragEUR_IT As Global.System.Nullable(Of Decimal), _ ByVal UStV_SummeVorschaubetragEUR_MSE As Global.System.Nullable(Of Decimal), _ ByVal UStV_SummeVorschaubetragEUR_UTA As Global.System.Nullable(Of Decimal), _ ByVal Fiskal_Aktiv As Boolean, _ ByVal EmailAnkunft As Boolean, _ ByVal EmailFreigabe As Boolean, _ ByVal DokumenteLKWFreigabe As String, _ ByVal Höchstkredit As Global.System.Nullable(Of Decimal), _ ByVal FiBuSchnittstelleNr As Global.System.Nullable(Of Short), _ ByVal DakosyExport As Global.System.Nullable(Of Date), _ ByVal EORITIN_NL As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(KundenNrZentrale,Integer) If (FilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Einmalige_Abfertigung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Einmalige_Abfertigung.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Neutralisierung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Neutralisierung.Value,Short) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Avis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Avis.Value,Short) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Zollvollmacht.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Zollvollmacht.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Zollvollmacht_vom.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Zollvollmacht_vom.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(Lastschrift,Boolean) If (Lastschrift_von.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Lastschrift_von.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Lastschrift_bis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Lastschrift_bis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Rabattstaffel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Rabattstaffel.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (SVS.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(SVS.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(13).Value = CType(p1,Single) Me.Adapter.InsertCommand.Parameters(14).Value = CType(p3,Single) Me.Adapter.InsertCommand.Parameters(15).Value = CType(p5,Single) Me.Adapter.InsertCommand.Parameters(16).Value = CType(Bankspesen_Mindestbetrag,Decimal) If (Besonderheiten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Besonderheiten,String) End If Me.Adapter.InsertCommand.Parameters(18).Value = CType(Sammelrechnung,Short) Me.Adapter.InsertCommand.Parameters(19).Value = CType(Steuerschlüssel,Short) If (Referenznummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(Referenznummer,String) End If If (Antragssumme.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(Antragssumme.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Antrag_vom.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(Antrag_vom.Value,Date) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Versicherungssumme.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(Versicherungssumme.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Entscheidung_vom.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(Entscheidung_vom.Value,Date) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Kreditlimit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(Kreditlimit.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Kreditlimit_vom.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(Kreditlimit_vom.Value,Date) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Info Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(Info,String) End If If (Überwachungskunde.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(Überwachungskunde.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Abfertigungsverbot.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(29).Value = CType(Abfertigungsverbot.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Abfertigungsverbot_seit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(Abfertigungsverbot_seit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Abfertigungsverbot_Grund Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(Abfertigungsverbot_Grund,String) End If If (Rechtsanwalt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(Rechtsanwalt.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Rechtsanwalt_seit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(Rechtsanwalt_seit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(34).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(Sachbearbeiter,String) End If If (LfdSaldo.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(37).Value = CType(LfdSaldo.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Erste_Abfertigung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(38).Value = CType(Erste_Abfertigung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (Vorkasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(39).Value = CType(Vorkasse.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Zahlungsinformationen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(Zahlungsinformationen,String) End If If (EORITIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(EORITIN,String) End If If (Zollnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(Zollnummer,String) End If If (ZulassungsNr_ZnV Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(ZulassungsNr_ZnV,String) End If If (Aufschubkonto_EUSt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(Aufschubkonto_EUSt,String) End If If (Aufschubkonto_Zoll Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(Aufschubkonto_Zoll,String) End If If (Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Währungscode") Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(Währungscode,String) End If Me.Adapter.InsertCommand.Parameters(47).Value = CType(Euroeinführung,Date) If (LetzteRechnungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(LetzteRechnungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (LetztesRechnungsDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(49).Value = CType(LetztesRechnungsDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Konzernkonto.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(50).Value = CType(Konzernkonto.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (FiBuSchnittstelle.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(FiBuSchnittstelle.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Planzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(52).Value = CType(Planzahl.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Gesprächsbericht Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(Gesprächsbericht,String) End If If (Bonität.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(Bonität.Value,Short) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Bonitätsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(55).Value = CType(Bonitätsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Zahlungsziel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(56).Value = CType(Zahlungsziel.Value,Short) Else Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(57).Value = CType(UStV_SummeUmsatzsteuerbetragEUR,Decimal) Me.Adapter.InsertCommand.Parameters(58).Value = CType(UStV_SummeErstattungsbetragEUR,Decimal) Me.Adapter.InsertCommand.Parameters(59).Value = CType(UStV_Summe3470BetragEUR,Decimal) Me.Adapter.InsertCommand.Parameters(60).Value = CType(UStV_SummeVZBetragEUR,Decimal) Me.Adapter.InsertCommand.Parameters(61).Value = CType(UStV_SummeVorschaubetragEUR,Decimal) Me.Adapter.InsertCommand.Parameters(62).Value = CType(UStV_SummeVorschaubetragEUR_VERAG,Decimal) Me.Adapter.InsertCommand.Parameters(63).Value = CType(UStV_SummeVorschaubetragEUR_IDS,Decimal) If (Fiskal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(64).Value = CType(Fiskal.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Ausfuhr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(65).Value = CType(Ausfuhr.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value End If If (BankgarantieBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(66).Value = CType(BankgarantieBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (BankgarantieGültigBis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(67).Value = CType(BankgarantieGültigBis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (KD_Korrespondenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(KD_Korrespondenz,String) End If If (UStV_SummeVorschaubetragEUR_IT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(69).Value = CType(UStV_SummeVorschaubetragEUR_IT.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (UStV_SummeVorschaubetragEUR_MSE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(70).Value = CType(UStV_SummeVorschaubetragEUR_MSE.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (UStV_SummeVorschaubetragEUR_UTA.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(71).Value = CType(UStV_SummeVorschaubetragEUR_UTA.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(72).Value = CType(Fiskal_Aktiv,Boolean) Me.Adapter.InsertCommand.Parameters(73).Value = CType(EmailAnkunft,Boolean) Me.Adapter.InsertCommand.Parameters(74).Value = CType(EmailFreigabe,Boolean) If (DokumenteLKWFreigabe Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(DokumenteLKWFreigabe,String) End If If (Höchstkredit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(76).Value = CType(Höchstkredit.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (FiBuSchnittstelleNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(77).Value = CType(FiBuSchnittstelleNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (DakosyExport.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(78).Value = CType(DakosyExport.Value,Date) Else Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (EORITIN_NL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(EORITIN_NL,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 KundenNr As Integer, _ ByVal KundenNrZentrale As Integer, _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal Einmalige_Abfertigung As Global.System.Nullable(Of Boolean), _ ByVal Neutralisierung As Global.System.Nullable(Of Short), _ ByVal Avis As Global.System.Nullable(Of Short), _ ByVal Zollvollmacht As Global.System.Nullable(Of Boolean), _ ByVal Zollvollmacht_vom As Global.System.Nullable(Of Date), _ ByVal Lastschrift As Boolean, _ ByVal Lastschrift_von As Global.System.Nullable(Of Date), _ ByVal Lastschrift_bis As Global.System.Nullable(Of Date), _ ByVal Rabattstaffel As Global.System.Nullable(Of Boolean), _ ByVal SVS As Global.System.Nullable(Of Boolean), _ ByVal p1 As Single, _ ByVal p3 As Single, _ ByVal p5 As Single, _ ByVal Bankspesen_Mindestbetrag As Decimal, _ ByVal Besonderheiten As String, _ ByVal Sammelrechnung As Short, _ ByVal Steuerschlüssel As Short, _ ByVal Referenznummer As String, _ ByVal Antragssumme As Global.System.Nullable(Of Decimal), _ ByVal Antrag_vom As Global.System.Nullable(Of Date), _ ByVal Versicherungssumme As Global.System.Nullable(Of Decimal), _ ByVal Entscheidung_vom As Global.System.Nullable(Of Date), _ ByVal Kreditlimit As Global.System.Nullable(Of Decimal), _ ByVal Kreditlimit_vom As Global.System.Nullable(Of Date), _ ByVal Info As String, _ ByVal Überwachungskunde As Global.System.Nullable(Of Boolean), _ ByVal Abfertigungsverbot As Global.System.Nullable(Of Boolean), _ ByVal Abfertigungsverbot_seit As Global.System.Nullable(Of Date), _ ByVal Abfertigungsverbot_Grund As String, _ ByVal Rechtsanwalt As Global.System.Nullable(Of Boolean), _ ByVal Rechtsanwalt_seit As Global.System.Nullable(Of Date), _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal LfdSaldo As Global.System.Nullable(Of Decimal), _ ByVal Erste_Abfertigung As Global.System.Nullable(Of Date), _ ByVal Vorkasse As Global.System.Nullable(Of Boolean), _ ByVal Zahlungsinformationen As String, _ ByVal EORITIN As String, _ ByVal Zollnummer As String, _ ByVal ZulassungsNr_ZnV As String, _ ByVal Aufschubkonto_EUSt As String, _ ByVal Aufschubkonto_Zoll As String, _ ByVal Währungscode As String, _ ByVal Euroeinführung As Date, _ ByVal LetzteRechnungsNr As Global.System.Nullable(Of Integer), _ ByVal LetztesRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Konzernkonto As Global.System.Nullable(Of Boolean), _ ByVal FiBuSchnittstelle As Global.System.Nullable(Of Boolean), _ ByVal Planzahl As Global.System.Nullable(Of Integer), _ ByVal Gesprächsbericht As String, _ ByVal Bonität As Global.System.Nullable(Of Short), _ ByVal Bonitätsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel As Global.System.Nullable(Of Short), _ ByVal UStV_SummeUmsatzsteuerbetragEUR As Decimal, _ ByVal UStV_SummeErstattungsbetragEUR As Decimal, _ ByVal UStV_Summe3470BetragEUR As Decimal, _ ByVal UStV_SummeVZBetragEUR As Decimal, _ ByVal UStV_SummeVorschaubetragEUR As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_VERAG As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_IDS As Decimal, _ ByVal Fiskal As Global.System.Nullable(Of Boolean), _ ByVal Ausfuhr As Global.System.Nullable(Of Boolean), _ ByVal BankgarantieBetrag As Global.System.Nullable(Of Decimal), _ ByVal BankgarantieGültigBis As Global.System.Nullable(Of Date), _ ByVal KD_Korrespondenz As String, _ ByVal UStV_SummeVorschaubetragEUR_IT As Global.System.Nullable(Of Decimal), _ ByVal UStV_SummeVorschaubetragEUR_MSE As Global.System.Nullable(Of Decimal), _ ByVal UStV_SummeVorschaubetragEUR_UTA As Global.System.Nullable(Of Decimal), _ ByVal Fiskal_Aktiv As Boolean, _ ByVal EmailAnkunft As Boolean, _ ByVal EmailFreigabe As Boolean, _ ByVal DokumenteLKWFreigabe As String, _ ByVal Höchstkredit As Global.System.Nullable(Of Decimal), _ ByVal FiBuSchnittstelleNr As Global.System.Nullable(Of Short), _ ByVal DakosyExport As Global.System.Nullable(Of Date), _ ByVal EORITIN_NL As String, _ ByVal Original_KundenNr As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(KundenNrZentrale,Integer) If (FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Einmalige_Abfertigung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Einmalige_Abfertigung.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Neutralisierung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Neutralisierung.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Avis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Avis.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Zollvollmacht.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Zollvollmacht.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Zollvollmacht_vom.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Zollvollmacht_vom.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Lastschrift,Boolean) If (Lastschrift_von.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Lastschrift_von.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Lastschrift_bis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Lastschrift_bis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Rabattstaffel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Rabattstaffel.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (SVS.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SVS.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(p1,Single) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(p3,Single) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(p5,Single) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Bankspesen_Mindestbetrag,Decimal) If (Besonderheiten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Besonderheiten,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Sammelrechnung,Short) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Steuerschlüssel,Short) If (Referenznummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Referenznummer,String) End If If (Antragssumme.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Antragssumme.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Antrag_vom.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Antrag_vom.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Versicherungssumme.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Versicherungssumme.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Entscheidung_vom.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Entscheidung_vom.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Kreditlimit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Kreditlimit.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Kreditlimit_vom.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Kreditlimit_vom.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Info Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Info,String) End If If (Überwachungskunde.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Überwachungskunde.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Abfertigungsverbot.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Abfertigungsverbot.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Abfertigungsverbot_seit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Abfertigungsverbot_seit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Abfertigungsverbot_Grund Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Abfertigungsverbot_Grund,String) End If If (Rechtsanwalt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Rechtsanwalt.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Rechtsanwalt_seit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Rechtsanwalt_seit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Sachbearbeiter,String) End If If (LfdSaldo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(LfdSaldo.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Erste_Abfertigung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Erste_Abfertigung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (Vorkasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Vorkasse.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Zahlungsinformationen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Zahlungsinformationen,String) End If If (EORITIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(EORITIN,String) End If If (Zollnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Zollnummer,String) End If If (ZulassungsNr_ZnV Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(ZulassungsNr_ZnV,String) End If If (Aufschubkonto_EUSt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Aufschubkonto_EUSt,String) End If If (Aufschubkonto_Zoll Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Aufschubkonto_Zoll,String) End If If (Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Währungscode") Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Währungscode,String) End If Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Euroeinführung,Date) If (LetzteRechnungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(LetzteRechnungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (LetztesRechnungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(LetztesRechnungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Konzernkonto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Konzernkonto.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (FiBuSchnittstelle.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(FiBuSchnittstelle.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Planzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Planzahl.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Gesprächsbericht Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Gesprächsbericht,String) End If If (Bonität.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Bonität.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Bonitätsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Bonitätsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Zahlungsziel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Zahlungsziel.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(57).Value = CType(UStV_SummeUmsatzsteuerbetragEUR,Decimal) Me.Adapter.UpdateCommand.Parameters(58).Value = CType(UStV_SummeErstattungsbetragEUR,Decimal) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(UStV_Summe3470BetragEUR,Decimal) Me.Adapter.UpdateCommand.Parameters(60).Value = CType(UStV_SummeVZBetragEUR,Decimal) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(UStV_SummeVorschaubetragEUR,Decimal) Me.Adapter.UpdateCommand.Parameters(62).Value = CType(UStV_SummeVorschaubetragEUR_VERAG,Decimal) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(UStV_SummeVorschaubetragEUR_IDS,Decimal) If (Fiskal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Fiskal.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Ausfuhr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Ausfuhr.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value End If If (BankgarantieBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(BankgarantieBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (BankgarantieGültigBis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(BankgarantieGültigBis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (KD_Korrespondenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(KD_Korrespondenz,String) End If If (UStV_SummeVorschaubetragEUR_IT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(69).Value = CType(UStV_SummeVorschaubetragEUR_IT.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (UStV_SummeVorschaubetragEUR_MSE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(UStV_SummeVorschaubetragEUR_MSE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (UStV_SummeVorschaubetragEUR_UTA.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(UStV_SummeVorschaubetragEUR_UTA.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Fiskal_Aktiv,Boolean) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(EmailAnkunft,Boolean) Me.Adapter.UpdateCommand.Parameters(74).Value = CType(EmailFreigabe,Boolean) If (DokumenteLKWFreigabe Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(DokumenteLKWFreigabe,String) End If If (Höchstkredit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Höchstkredit.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (FiBuSchnittstelleNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(FiBuSchnittstelleNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (DakosyExport.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(DakosyExport.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (EORITIN_NL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(EORITIN_NL,String) End If Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_KundenNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 KundenNrZentrale As Integer, _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal Einmalige_Abfertigung As Global.System.Nullable(Of Boolean), _ ByVal Neutralisierung As Global.System.Nullable(Of Short), _ ByVal Avis As Global.System.Nullable(Of Short), _ ByVal Zollvollmacht As Global.System.Nullable(Of Boolean), _ ByVal Zollvollmacht_vom As Global.System.Nullable(Of Date), _ ByVal Lastschrift As Boolean, _ ByVal Lastschrift_von As Global.System.Nullable(Of Date), _ ByVal Lastschrift_bis As Global.System.Nullable(Of Date), _ ByVal Rabattstaffel As Global.System.Nullable(Of Boolean), _ ByVal SVS As Global.System.Nullable(Of Boolean), _ ByVal p1 As Single, _ ByVal p3 As Single, _ ByVal p5 As Single, _ ByVal Bankspesen_Mindestbetrag As Decimal, _ ByVal Besonderheiten As String, _ ByVal Sammelrechnung As Short, _ ByVal Steuerschlüssel As Short, _ ByVal Referenznummer As String, _ ByVal Antragssumme As Global.System.Nullable(Of Decimal), _ ByVal Antrag_vom As Global.System.Nullable(Of Date), _ ByVal Versicherungssumme As Global.System.Nullable(Of Decimal), _ ByVal Entscheidung_vom As Global.System.Nullable(Of Date), _ ByVal Kreditlimit As Global.System.Nullable(Of Decimal), _ ByVal Kreditlimit_vom As Global.System.Nullable(Of Date), _ ByVal Info As String, _ ByVal Überwachungskunde As Global.System.Nullable(Of Boolean), _ ByVal Abfertigungsverbot As Global.System.Nullable(Of Boolean), _ ByVal Abfertigungsverbot_seit As Global.System.Nullable(Of Date), _ ByVal Abfertigungsverbot_Grund As String, _ ByVal Rechtsanwalt As Global.System.Nullable(Of Boolean), _ ByVal Rechtsanwalt_seit As Global.System.Nullable(Of Date), _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal LfdSaldo As Global.System.Nullable(Of Decimal), _ ByVal Erste_Abfertigung As Global.System.Nullable(Of Date), _ ByVal Vorkasse As Global.System.Nullable(Of Boolean), _ ByVal Zahlungsinformationen As String, _ ByVal EORITIN As String, _ ByVal Zollnummer As String, _ ByVal ZulassungsNr_ZnV As String, _ ByVal Aufschubkonto_EUSt As String, _ ByVal Aufschubkonto_Zoll As String, _ ByVal Währungscode As String, _ ByVal Euroeinführung As Date, _ ByVal LetzteRechnungsNr As Global.System.Nullable(Of Integer), _ ByVal LetztesRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Konzernkonto As Global.System.Nullable(Of Boolean), _ ByVal FiBuSchnittstelle As Global.System.Nullable(Of Boolean), _ ByVal Planzahl As Global.System.Nullable(Of Integer), _ ByVal Gesprächsbericht As String, _ ByVal Bonität As Global.System.Nullable(Of Short), _ ByVal Bonitätsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel As Global.System.Nullable(Of Short), _ ByVal UStV_SummeUmsatzsteuerbetragEUR As Decimal, _ ByVal UStV_SummeErstattungsbetragEUR As Decimal, _ ByVal UStV_Summe3470BetragEUR As Decimal, _ ByVal UStV_SummeVZBetragEUR As Decimal, _ ByVal UStV_SummeVorschaubetragEUR As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_VERAG As Decimal, _ ByVal UStV_SummeVorschaubetragEUR_IDS As Decimal, _ ByVal Fiskal As Global.System.Nullable(Of Boolean), _ ByVal Ausfuhr As Global.System.Nullable(Of Boolean), _ ByVal BankgarantieBetrag As Global.System.Nullable(Of Decimal), _ ByVal BankgarantieGültigBis As Global.System.Nullable(Of Date), _ ByVal KD_Korrespondenz As String, _ ByVal UStV_SummeVorschaubetragEUR_IT As Global.System.Nullable(Of Decimal), _ ByVal UStV_SummeVorschaubetragEUR_MSE As Global.System.Nullable(Of Decimal), _ ByVal UStV_SummeVorschaubetragEUR_UTA As Global.System.Nullable(Of Decimal), _ ByVal Fiskal_Aktiv As Boolean, _ ByVal EmailAnkunft As Boolean, _ ByVal EmailFreigabe As Boolean, _ ByVal DokumenteLKWFreigabe As String, _ ByVal Höchstkredit As Global.System.Nullable(Of Decimal), _ ByVal FiBuSchnittstelleNr As Global.System.Nullable(Of Short), _ ByVal DakosyExport As Global.System.Nullable(Of Date), _ ByVal EORITIN_NL As String, _ ByVal Original_KundenNr As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_KundenNr, KundenNrZentrale, FilialenNr, Einmalige_Abfertigung, Neutralisierung, Avis, Zollvollmacht, Zollvollmacht_vom, Lastschrift, Lastschrift_von, Lastschrift_bis, Rabattstaffel, SVS, p1, p3, p5, Bankspesen_Mindestbetrag, Besonderheiten, Sammelrechnung, Steuerschlüssel, Referenznummer, Antragssumme, Antrag_vom, Versicherungssumme, Entscheidung_vom, Kreditlimit, Kreditlimit_vom, Info, Überwachungskunde, Abfertigungsverbot, Abfertigungsverbot_seit, Abfertigungsverbot_Grund, Rechtsanwalt, Rechtsanwalt_seit, Eingegeben_am, Geändert_am, Sachbearbeiter, LfdSaldo, Erste_Abfertigung, Vorkasse, Zahlungsinformationen, EORITIN, Zollnummer, ZulassungsNr_ZnV, Aufschubkonto_EUSt, Aufschubkonto_Zoll, Währungscode, Euroeinführung, LetzteRechnungsNr, LetztesRechnungsDatum, Konzernkonto, FiBuSchnittstelle, Planzahl, Gesprächsbericht, Bonität, Bonitätsdatum, Zahlungsziel, UStV_SummeUmsatzsteuerbetragEUR, UStV_SummeErstattungsbetragEUR, UStV_Summe3470BetragEUR, UStV_SummeVZBetragEUR, UStV_SummeVorschaubetragEUR, UStV_SummeVorschaubetragEUR_VERAG, UStV_SummeVorschaubetragEUR_IDS, Fiskal, Ausfuhr, BankgarantieBetrag, BankgarantieGültigBis, KD_Korrespondenz, UStV_SummeVorschaubetragEUR_IT, UStV_SummeVorschaubetragEUR_MSE, UStV_SummeVorschaubetragEUR_UTA, Fiskal_Aktiv, EmailAnkunft, EmailFreigabe, DokumenteLKWFreigabe, Höchstkredit, FiBuSchnittstelleNr, DakosyExport, EORITIN_NL, Original_KundenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class KundenFilialenTableAdapter 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 = "KundenFilialen" tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[KundenFilialen] WHERE (([KundenNr] = @Original_KundenNr) AND ("& _ "[FilialenNr] = @Original_FilialenNr) AND ([SSMA_TimeStamp] = @Original_SSMA_Time"& _ "Stamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[KundenFilialen] ([KundenNr], [FilialenNr], [Abfertigungsdatum]"& _ ") VALUES (@KundenNr, @FilialenNr, @Abfertigungsdatum);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KundenNr, Filiale"& _ "nNr, Abfertigungsdatum, SSMA_TimeStamp FROM KundenFilialen WHERE (FilialenNr = @"& _ "FilialenNr) AND (KundenNr = @KundenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", 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].[KundenFilialen] SET [KundenNr] = @KundenNr, [FilialenNr] = @Filiale"& _ "nNr, [Abfertigungsdatum] = @Abfertigungsdatum WHERE (([KundenNr] = @Original_Kun"& _ "denNr) AND ([FilialenNr] = @Original_FilialenNr) AND ([SSMA_TimeStamp] = @Origin"& _ "al_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KundenNr, FilialenNr, Abfertigungsdatum, SSMA_TimeS"& _ "tamp FROM KundenFilialen WHERE (FilialenNr = @FilialenNr) AND (KundenNr = @Kunde"& _ "nNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KundenNr, FilialenNr, Abfertigungsdatum, SSMA_TimeStamp FROM dbo.KundenFil"& _ "ialen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.KundenFilialenDataTable) 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 VERAGDataSet.KundenFilialenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.KundenFilialenDataTable = New VERAGDataSet.KundenFilialenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.KundenFilialenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "KundenFilialen") 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_KundenNr As Integer, ByVal Original_FilialenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FilialenNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 KundenNr As Integer, ByVal FilialenNr As Short, ByVal Abfertigungsdatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(FilialenNr,Short) If (Abfertigungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Abfertigungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).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 KundenNr As Integer, ByVal FilialenNr As Short, ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), ByVal Original_KundenNr As Integer, ByVal Original_FilialenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FilialenNr,Short) If (Abfertigungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Abfertigungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_FilialenNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Abfertigungsdatum As Global.System.Nullable(Of Date), ByVal Original_KundenNr As Integer, ByVal Original_FilialenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_KundenNr, Original_FilialenNr, Abfertigungsdatum, Original_KundenNr, Original_FilialenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Länder_der_Bundesrepublik_DeutschlandTableAdapter 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 = "Länder der Bundesrepublik Deutschland" tableMapping.ColumnMappings.Add("LänderNr", "LänderNr") tableMapping.ColumnMappings.Add("LänderBez", "LänderBez") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Länder der Bundesrepublik Deutschland] WHERE (([LänderNr] = @O"& _ "riginal_LänderNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LänderNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LänderNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Länder der Bundesrepublik Deutschland] ([LänderNr], [LänderBez"& _ "]) VALUES (@LänderNr, @LänderBez);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT LänderNr, LänderBez, SSMA_TimeStamp F"& _ "ROM [Länder der Bundesrepublik Deutschland] WHERE (LänderNr = @LänderNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LänderNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LänderNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LänderBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LänderBez", 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].[Länder der Bundesrepublik Deutschland] SET [LänderNr] = @LänderNr, "& _ "[LänderBez] = @LänderBez WHERE (([LänderNr] = @Original_LänderNr) AND ([SSMA_Tim"& _ "eStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT LänderNr, LänderBez, SSMA_TimeStam"& _ "p FROM [Länder der Bundesrepublik Deutschland] WHERE (LänderNr = @LänderNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LänderNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LänderNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LänderBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LänderBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LänderNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LänderNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 LänderNr, LänderBez, SSMA_TimeStamp FROM dbo.[Länder der Bundesrepublik De"& _ "utschland]" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.Länder_der_Bundesrepublik_DeutschlandDataTable) 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 VERAGDataSet.Länder_der_Bundesrepublik_DeutschlandDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.Länder_der_Bundesrepublik_DeutschlandDataTable = New VERAGDataSet.Länder_der_Bundesrepublik_DeutschlandDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.Länder_der_Bundesrepublik_DeutschlandDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Länder der Bundesrepublik Deutschland") 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_LänderNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_LänderNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 LänderNr As Short, ByVal LänderBez As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(LänderNr,Short) If (LänderBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LänderBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(LänderBez,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 LänderNr As Short, ByVal LänderBez As String, ByVal Original_LänderNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LänderNr,Short) If (LänderBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LänderBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LänderBez,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_LänderNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 LänderBez As String, ByVal Original_LänderNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_LänderNr, LänderBez, Original_LänderNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter 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 = "Länderverzeichnis für die Außenhandelsstatistik" tableMapping.ColumnMappings.Add("LandNr", "LandNr") tableMapping.ColumnMappings.Add("LandBez", "LandBez") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("Steuersatz", "Steuersatz") tableMapping.ColumnMappings.Add("Umsatzsteuervergütungsverfahren", "Umsatzsteuervergütungsverfahren") tableMapping.ColumnMappings.Add("Finanzamt", "Finanzamt") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("LandKz_ISO_3", "LandKz_ISO_3") tableMapping.ColumnMappings.Add("EUBeitrittsdatum", "EUBeitrittsdatum") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("ReverseCharge", "ReverseCharge") tableMapping.ColumnMappings.Add("EUAustrittsdatum", "EUAustrittsdatum") 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].[Länderverzeichnis für die Außenhandelsstatistik] WHERE (([Land"& _ "Nr] = @Original_LandNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Länderverzeichnis für die Außenhandelsstatistik] ([LandNr], [L"& _ "andBez], [LandKz], [Steuersatz], [Umsatzsteuervergütungsverfahren], [Finanzamt],"& _ " [Währungscode], [LandKz_ISO_3], [EUBeitrittsdatum], [ReverseCharge], [EUAustrit"& _ "tsdatum]) VALUES (@LandNr, @LandBez, @LandKz, @Steuersatz, @Umsatzsteuervergütun"& _ "gsverfahren, @Finanzamt, @Währungscode, @LandKz_ISO_3, @EUBeitrittsdatum, @Rever"& _ "seCharge, @EUAustrittsdatum);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT LandNr, LandBez, LandKz, Steuersatz, Umsat"& _ "zsteuervergütungsverfahren, Finanzamt, Währungscode, LandKz_ISO_3, EUBeitrittsda"& _ "tum, SSMA_TimeStamp, ReverseCharge, EUAustrittsdatum FROM [Länderverzeichnis für"& _ " die Außenhandelsstatistik] WHERE (LandNr = @LandNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuervergütungsverfahren", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuervergütungsverfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Finanzamt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Finanzamt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz_ISO_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz_ISO_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EUBeitrittsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EUBeitrittsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReverseCharge", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReverseCharge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EUAustrittsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EUAustrittsdatum", 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].[Länderverzeichnis für die Außenhandelsstatistik] SET [LandNr] = @La"& _ "ndNr, [LandBez] = @LandBez, [LandKz] = @LandKz, [Steuersatz] = @Steuersatz, [Ums"& _ "atzsteuervergütungsverfahren] = @Umsatzsteuervergütungsverfahren, [Finanzamt] = "& _ "@Finanzamt, [Währungscode] = @Währungscode, [LandKz_ISO_3] = @LandKz_ISO_3, [EUB"& _ "eitrittsdatum] = @EUBeitrittsdatum, [ReverseCharge] = @ReverseCharge, [EUAustrit"& _ "tsdatum] = @EUAustrittsdatum WHERE (([LandNr] = @Original_LandNr) AND ([SSMA_Tim"& _ "eStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT LandNr, LandBez, LandKz, Steuersat"& _ "z, Umsatzsteuervergütungsverfahren, Finanzamt, Währungscode, LandKz_ISO_3, EUBei"& _ "trittsdatum, SSMA_TimeStamp, ReverseCharge, EUAustrittsdatum FROM [Länderverzeic"& _ "hnis für die Außenhandelsstatistik] WHERE (LandNr = @LandNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuervergütungsverfahren", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuervergütungsverfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Finanzamt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Finanzamt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz_ISO_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz_ISO_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EUBeitrittsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EUBeitrittsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReverseCharge", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReverseCharge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EUAustrittsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EUAustrittsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 LandNr, LandBez, LandKz, Steuersatz, Umsatzsteuervergütungsverfahren, Fina"& _ "nzamt, Währungscode, LandKz_ISO_3, EUBeitrittsdatum, SSMA_TimeStamp, ReverseChar"& _ "ge, EUAustrittsdatum FROM dbo.[Länderverzeichnis für die Außenhandelsstatistik]" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.Länderverzeichnis_für_die_AußenhandelsstatistikDataTable) 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 VERAGDataSet.Länderverzeichnis_für_die_AußenhandelsstatistikDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.Länderverzeichnis_für_die_AußenhandelsstatistikDataTable = New VERAGDataSet.Länderverzeichnis_für_die_AußenhandelsstatistikDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.Länderverzeichnis_für_die_AußenhandelsstatistikDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Länderverzeichnis für die Außenhandelsstatistik") 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_LandNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_LandNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 LandNr As Short, ByVal LandBez As String, ByVal LandKz As String, ByVal Steuersatz As Global.System.Nullable(Of Double), ByVal Umsatzsteuervergütungsverfahren As Global.System.Nullable(Of Boolean), ByVal Finanzamt As Global.System.Nullable(Of Integer), ByVal Währungscode As String, ByVal LandKz_ISO_3 As String, ByVal EUBeitrittsdatum As Global.System.Nullable(Of Date), ByVal ReverseCharge As Global.System.Nullable(Of Boolean), ByVal EUAustrittsdatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(LandNr,Short) If (LandBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LandBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(LandBez,String) End If If (LandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(LandKz,String) End If If (Steuersatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Steuersatz.Value,Double) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Umsatzsteuervergütungsverfahren.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Umsatzsteuervergütungsverfahren.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Finanzamt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Finanzamt.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Währungscode,String) End If If (LandKz_ISO_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(LandKz_ISO_3,String) End If If (EUBeitrittsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(EUBeitrittsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (ReverseCharge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(ReverseCharge.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (EUAustrittsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(EUAustrittsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).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 LandNr As Short, ByVal LandBez As String, ByVal LandKz As String, ByVal Steuersatz As Global.System.Nullable(Of Double), ByVal Umsatzsteuervergütungsverfahren As Global.System.Nullable(Of Boolean), ByVal Finanzamt As Global.System.Nullable(Of Integer), ByVal Währungscode As String, ByVal LandKz_ISO_3 As String, ByVal EUBeitrittsdatum As Global.System.Nullable(Of Date), ByVal ReverseCharge As Global.System.Nullable(Of Boolean), ByVal EUAustrittsdatum As Global.System.Nullable(Of Date), ByVal Original_LandNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LandNr,Short) If (LandBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LandBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LandBez,String) End If If (LandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LandKz,String) End If If (Steuersatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Steuersatz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Umsatzsteuervergütungsverfahren.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Umsatzsteuervergütungsverfahren.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Finanzamt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Finanzamt.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Währungscode,String) End If If (LandKz_ISO_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(LandKz_ISO_3,String) End If If (EUBeitrittsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EUBeitrittsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (ReverseCharge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ReverseCharge.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (EUAustrittsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(EUAustrittsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_LandNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 LandBez As String, ByVal LandKz As String, ByVal Steuersatz As Global.System.Nullable(Of Double), ByVal Umsatzsteuervergütungsverfahren As Global.System.Nullable(Of Boolean), ByVal Finanzamt As Global.System.Nullable(Of Integer), ByVal Währungscode As String, ByVal LandKz_ISO_3 As String, ByVal EUBeitrittsdatum As Global.System.Nullable(Of Date), ByVal ReverseCharge As Global.System.Nullable(Of Boolean), ByVal EUAustrittsdatum As Global.System.Nullable(Of Date), ByVal Original_LandNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_LandNr, LandBez, LandKz, Steuersatz, Umsatzsteuervergütungsverfahren, Finanzamt, Währungscode, LandKz_ISO_3, EUBeitrittsdatum, ReverseCharge, EUAustrittsdatum, Original_LandNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class LeistungenTableAdapter 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 = "Leistungen" tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("BezeichnungAusListe", "BezeichnungAusListe") tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("SKR", "SKR") tableMapping.ColumnMappings.Add("Vorlageprovision", "Vorlageprovision") tableMapping.ColumnMappings.Add("Kreditaufwendungen", "Kreditaufwendungen") tableMapping.ColumnMappings.Add("FixeTaxe", "FixeTaxe") tableMapping.ColumnMappings.Add("Abfertigungskosten", "Abfertigungskosten") tableMapping.ColumnMappings.Add("Preissperre", "Preissperre") tableMapping.ColumnMappings.Add("Kostenstelle", "Kostenstelle") tableMapping.ColumnMappings.Add("AufschubkontoNr", "AufschubkontoNr") tableMapping.ColumnMappings.Add("Gl_account", "Gl_account") tableMapping.ColumnMappings.Add("Analysis_type", "Analysis_type") tableMapping.ColumnMappings.Add("Analysis_code", "Analysis_code") tableMapping.ColumnMappings.Add("SachkontoInlandSteuerpflichtig", "SachkontoInlandSteuerpflichtig") tableMapping.ColumnMappings.Add("SachkontoInlandSteuerfrei", "SachkontoInlandSteuerfrei") tableMapping.ColumnMappings.Add("SachkontoEUSteuerpflichtig", "SachkontoEUSteuerpflichtig") tableMapping.ColumnMappings.Add("SachkontoEUSteuerfrei", "SachkontoEUSteuerfrei") tableMapping.ColumnMappings.Add("Sachkonto3Land", "Sachkonto3Land") tableMapping.ColumnMappings.Add("BS415", "BS415") tableMapping.ColumnMappings.Add("BGebUStV", "BGebUStV") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("ReverseCharge", "ReverseCharge") tableMapping.ColumnMappings.Add("IMEX_Gl_account", "IMEX_Gl_account") tableMapping.ColumnMappings.Add("IMEX_SachkontoInlandSteuerpflichtig", "IMEX_SachkontoInlandSteuerpflichtig") tableMapping.ColumnMappings.Add("IMEX_SachkontoInlandSteuerfrei", "IMEX_SachkontoInlandSteuerfrei") tableMapping.ColumnMappings.Add("IMEX_SachkontoEUSteuerpflichtig", "IMEX_SachkontoEUSteuerpflichtig") tableMapping.ColumnMappings.Add("IMEX_SachkontoEUSteuerfrei", "IMEX_SachkontoEUSteuerfrei") tableMapping.ColumnMappings.Add("IMEX_Sachkonto3Land", "IMEX_Sachkonto3Land") tableMapping.ColumnMappings.Add("abzugsfaehigInZZ", "abzugsfaehigInZZ") 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].[Leistungen] WHERE (([LeistungsNr] = @Original_LeistungsNr) AND"& _ " ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Leistungen] ([LeistungsNr], [LeistungsBez], [BezeichnungAusLis"& _ "te], [BerechnungsartNr], [Steuerpflichtig], [SKR], [Vorlageprovision], [Kreditau"& _ "fwendungen], [FixeTaxe], [Abfertigungskosten], [Preissperre], [Kostenstelle], [A"& _ "ufschubkontoNr], [Gl_account], [Analysis_type], [Analysis_code], [SachkontoInlan"& _ "dSteuerpflichtig], [SachkontoInlandSteuerfrei], [SachkontoEUSteuerpflichtig], [S"& _ "achkontoEUSteuerfrei], [Sachkonto3Land], [BS415], [BGebUStV], [ReverseCharge], ["& _ "IMEX_Gl_account], [IMEX_SachkontoInlandSteuerpflichtig], [IMEX_SachkontoInlandSt"& _ "euerfrei], [IMEX_SachkontoEUSteuerpflichtig], [IMEX_SachkontoEUSteuerfrei], [IME"& _ "X_Sachkonto3Land], [abzugsfaehigInZZ]) VALUES (@LeistungsNr, @LeistungsBez, @Bez"& _ "eichnungAusListe, @BerechnungsartNr, @Steuerpflichtig, @SKR, @Vorlageprovision, "& _ "@Kreditaufwendungen, @FixeTaxe, @Abfertigungskosten, @Preissperre, @Kostenstelle"& _ ", @AufschubkontoNr, @Gl_account, @Analysis_type, @Analysis_code, @SachkontoInlan"& _ "dSteuerpflichtig, @SachkontoInlandSteuerfrei, @SachkontoEUSteuerpflichtig, @Sach"& _ "kontoEUSteuerfrei, @Sachkonto3Land, @BS415, @BGebUStV, @ReverseCharge, @IMEX_Gl_"& _ "account, @IMEX_SachkontoInlandSteuerpflichtig, @IMEX_SachkontoInlandSteuerfrei, "& _ "@IMEX_SachkontoEUSteuerpflichtig, @IMEX_SachkontoEUSteuerfrei, @IMEX_Sachkonto3L"& _ "and, @abzugsfaehigInZZ);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT LeistungsNr, LeistungsBez, BezeichnungAusListe,"& _ " BerechnungsartNr, Steuerpflichtig, SKR, Vorlageprovision, Kreditaufwendungen, F"& _ "ixeTaxe, Abfertigungskosten, Preissperre, Kostenstelle, AufschubkontoNr, Gl_acco"& _ "unt, Analysis_type, Analysis_code, SachkontoInlandSteuerpflichtig, SachkontoInla"& _ "ndSteuerfrei, SachkontoEUSteuerpflichtig, SachkontoEUSteuerfrei, Sachkonto3Land,"& _ " BS415, BGebUStV, SSMA_TimeStamp, ReverseCharge, IMEX_Gl_account, IMEX_Sachkonto"& _ "InlandSteuerpflichtig, IMEX_SachkontoInlandSteuerfrei, IMEX_SachkontoEUSteuerpfl"& _ "ichtig, IMEX_SachkontoEUSteuerfrei, IMEX_Sachkonto3Land, abzugsfaehigInZZ FROM L"& _ "eistungen WHERE (LeistungsNr = @LeistungsNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BezeichnungAusListe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BezeichnungAusListe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SKR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SKR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorlageprovision", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorlageprovision", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kreditaufwendungen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreditaufwendungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FixeTaxe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FixeTaxe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungskosten", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungskosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preissperre", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preissperre", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kostenstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kostenstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gl_account", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gl_account", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Analysis_type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Analysis_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Analysis_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Analysis_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoInlandSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoInlandSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoEUSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoEUSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachkonto3Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachkonto3Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BS415", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BS415", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebUStV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebUStV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReverseCharge", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReverseCharge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_Gl_account", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_Gl_account", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_SachkontoInlandSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_SachkontoInlandSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_SachkontoInlandSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_SachkontoInlandSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_SachkontoEUSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_SachkontoEUSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_SachkontoEUSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_SachkontoEUSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_Sachkonto3Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_Sachkonto3Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abzugsfaehigInZZ", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abzugsfaehigInZZ", 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].[Leistungen] SET [LeistungsNr] = @LeistungsNr, [LeistungsBez] = @Lei"& _ "stungsBez, [BezeichnungAusListe] = @BezeichnungAusListe, [BerechnungsartNr] = @B"& _ "erechnungsartNr, [Steuerpflichtig] = @Steuerpflichtig, [SKR] = @SKR, [Vorlagepro"& _ "vision] = @Vorlageprovision, [Kreditaufwendungen] = @Kreditaufwendungen, [FixeTa"& _ "xe] = @FixeTaxe, [Abfertigungskosten] = @Abfertigungskosten, [Preissperre] = @Pr"& _ "eissperre, [Kostenstelle] = @Kostenstelle, [AufschubkontoNr] = @AufschubkontoNr,"& _ " [Gl_account] = @Gl_account, [Analysis_type] = @Analysis_type, [Analysis_code] ="& _ " @Analysis_code, [SachkontoInlandSteuerpflichtig] = @SachkontoInlandSteuerpflich"& _ "tig, [SachkontoInlandSteuerfrei] = @SachkontoInlandSteuerfrei, [SachkontoEUSteue"& _ "rpflichtig] = @SachkontoEUSteuerpflichtig, [SachkontoEUSteuerfrei] = @SachkontoE"& _ "USteuerfrei, [Sachkonto3Land] = @Sachkonto3Land, [BS415] = @BS415, [BGebUStV] = "& _ "@BGebUStV, [ReverseCharge] = @ReverseCharge, [IMEX_Gl_account] = @IMEX_Gl_accoun"& _ "t, [IMEX_SachkontoInlandSteuerpflichtig] = @IMEX_SachkontoInlandSteuerpflichtig,"& _ " [IMEX_SachkontoInlandSteuerfrei] = @IMEX_SachkontoInlandSteuerfrei, [IMEX_Sachk"& _ "ontoEUSteuerpflichtig] = @IMEX_SachkontoEUSteuerpflichtig, [IMEX_SachkontoEUSteu"& _ "erfrei] = @IMEX_SachkontoEUSteuerfrei, [IMEX_Sachkonto3Land] = @IMEX_Sachkonto3L"& _ "and, [abzugsfaehigInZZ] = @abzugsfaehigInZZ WHERE (([LeistungsNr] = @Original_Le"& _ "istungsNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Leistungs"& _ "Nr, LeistungsBez, BezeichnungAusListe, BerechnungsartNr, Steuerpflichtig, SKR, V"& _ "orlageprovision, Kreditaufwendungen, FixeTaxe, Abfertigungskosten, Preissperre, "& _ "Kostenstelle, AufschubkontoNr, Gl_account, Analysis_type, Analysis_code, Sachkon"& _ "toInlandSteuerpflichtig, SachkontoInlandSteuerfrei, SachkontoEUSteuerpflichtig, "& _ "SachkontoEUSteuerfrei, Sachkonto3Land, BS415, BGebUStV, SSMA_TimeStamp, ReverseC"& _ "harge, IMEX_Gl_account, IMEX_SachkontoInlandSteuerpflichtig, IMEX_SachkontoInlan"& _ "dSteuerfrei, IMEX_SachkontoEUSteuerpflichtig, IMEX_SachkontoEUSteuerfrei, IMEX_S"& _ "achkonto3Land, abzugsfaehigInZZ FROM Leistungen WHERE (LeistungsNr = @LeistungsN"& _ "r)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BezeichnungAusListe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BezeichnungAusListe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SKR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SKR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorlageprovision", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorlageprovision", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kreditaufwendungen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreditaufwendungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FixeTaxe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FixeTaxe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungskosten", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungskosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preissperre", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preissperre", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kostenstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kostenstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gl_account", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gl_account", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Analysis_type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Analysis_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Analysis_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Analysis_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoInlandSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoInlandSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoEUSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoEUSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachkonto3Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachkonto3Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BS415", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BS415", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebUStV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebUStV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReverseCharge", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReverseCharge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_Gl_account", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_Gl_account", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_SachkontoInlandSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_SachkontoInlandSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_SachkontoInlandSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_SachkontoInlandSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_SachkontoEUSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_SachkontoEUSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_SachkontoEUSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_SachkontoEUSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMEX_Sachkonto3Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMEX_Sachkonto3Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abzugsfaehigInZZ", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abzugsfaehigInZZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 LeistungsNr, LeistungsBez, BezeichnungAusListe, BerechnungsartNr, Steuerpf"& _ "lichtig, SKR, Vorlageprovision, Kreditaufwendungen, FixeTaxe, Abfertigungskosten"& _ ", Preissperre, Kostenstelle, AufschubkontoNr, Gl_account, Analysis_type, Analysi"& _ "s_code, SachkontoInlandSteuerpflichtig, SachkontoInlandSteuerfrei, SachkontoEUSt"& _ "euerpflichtig, SachkontoEUSteuerfrei, Sachkonto3Land, BS415, BGebUStV, SSMA_Time"& _ "Stamp, ReverseCharge, IMEX_Gl_account, IMEX_SachkontoInlandSteuerpflichtig, IMEX"& _ "_SachkontoInlandSteuerfrei, IMEX_SachkontoEUSteuerpflichtig, IMEX_SachkontoEUSte"& _ "uerfrei, IMEX_Sachkonto3Land, abzugsfaehigInZZ FROM dbo.Leistungen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.LeistungenDataTable) 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 VERAGDataSet.LeistungenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.LeistungenDataTable = New VERAGDataSet.LeistungenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.LeistungenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Leistungen") 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_LeistungsNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_LeistungsNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal BezeichnungAusListe As Boolean, _ ByVal BerechnungsartNr As Short, _ ByVal Steuerpflichtig As Boolean, _ ByVal SKR As Boolean, _ ByVal Vorlageprovision As Boolean, _ ByVal Kreditaufwendungen As Boolean, _ ByVal FixeTaxe As Boolean, _ ByVal Abfertigungskosten As Boolean, _ ByVal Preissperre As Boolean, _ ByVal Kostenstelle As Integer, _ ByVal AufschubkontoNr As String, _ ByVal Gl_account As String, _ ByVal Analysis_type As String, _ ByVal Analysis_code As String, _ ByVal SachkontoInlandSteuerpflichtig As String, _ ByVal SachkontoInlandSteuerfrei As String, _ ByVal SachkontoEUSteuerpflichtig As String, _ ByVal SachkontoEUSteuerfrei As String, _ ByVal Sachkonto3Land As String, _ ByVal BS415 As Global.System.Nullable(Of Boolean), _ ByVal BGebUStV As Global.System.Nullable(Of Boolean), _ ByVal ReverseCharge As Global.System.Nullable(Of Boolean), _ ByVal IMEX_Gl_account As String, _ ByVal IMEX_SachkontoInlandSteuerpflichtig As String, _ ByVal IMEX_SachkontoInlandSteuerfrei As String, _ ByVal IMEX_SachkontoEUSteuerpflichtig As String, _ ByVal IMEX_SachkontoEUSteuerfrei As String, _ ByVal IMEX_Sachkonto3Land As String, _ ByVal abzugsfaehigInZZ As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(LeistungsBez,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(BezeichnungAusListe,Boolean) Me.Adapter.InsertCommand.Parameters(3).Value = CType(BerechnungsartNr,Short) Me.Adapter.InsertCommand.Parameters(4).Value = CType(Steuerpflichtig,Boolean) Me.Adapter.InsertCommand.Parameters(5).Value = CType(SKR,Boolean) Me.Adapter.InsertCommand.Parameters(6).Value = CType(Vorlageprovision,Boolean) Me.Adapter.InsertCommand.Parameters(7).Value = CType(Kreditaufwendungen,Boolean) Me.Adapter.InsertCommand.Parameters(8).Value = CType(FixeTaxe,Boolean) Me.Adapter.InsertCommand.Parameters(9).Value = CType(Abfertigungskosten,Boolean) Me.Adapter.InsertCommand.Parameters(10).Value = CType(Preissperre,Boolean) Me.Adapter.InsertCommand.Parameters(11).Value = CType(Kostenstelle,Integer) If (AufschubkontoNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(AufschubkontoNr,String) End If If (Gl_account Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Gl_account,String) End If If (Analysis_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Analysis_type,String) End If If (Analysis_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Analysis_code,String) End If If (SachkontoInlandSteuerpflichtig Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(SachkontoInlandSteuerpflichtig,String) End If If (SachkontoInlandSteuerfrei Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(SachkontoInlandSteuerfrei,String) End If If (SachkontoEUSteuerpflichtig Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(SachkontoEUSteuerpflichtig,String) End If If (SachkontoEUSteuerfrei Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(SachkontoEUSteuerfrei,String) End If If (Sachkonto3Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(Sachkonto3Land,String) End If If (BS415.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(BS415.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (BGebUStV.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(BGebUStV.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (ReverseCharge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(ReverseCharge.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (IMEX_Gl_account Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(IMEX_Gl_account,String) End If If (IMEX_SachkontoInlandSteuerpflichtig Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(IMEX_SachkontoInlandSteuerpflichtig,String) End If If (IMEX_SachkontoInlandSteuerfrei Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(IMEX_SachkontoInlandSteuerfrei,String) End If If (IMEX_SachkontoEUSteuerpflichtig Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(IMEX_SachkontoEUSteuerpflichtig,String) End If If (IMEX_SachkontoEUSteuerfrei Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(IMEX_SachkontoEUSteuerfrei,String) End If If (IMEX_Sachkonto3Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(IMEX_Sachkonto3Land,String) End If Me.Adapter.InsertCommand.Parameters(30).Value = CType(abzugsfaehigInZZ,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 LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal BezeichnungAusListe As Boolean, _ ByVal BerechnungsartNr As Short, _ ByVal Steuerpflichtig As Boolean, _ ByVal SKR As Boolean, _ ByVal Vorlageprovision As Boolean, _ ByVal Kreditaufwendungen As Boolean, _ ByVal FixeTaxe As Boolean, _ ByVal Abfertigungskosten As Boolean, _ ByVal Preissperre As Boolean, _ ByVal Kostenstelle As Integer, _ ByVal AufschubkontoNr As String, _ ByVal Gl_account As String, _ ByVal Analysis_type As String, _ ByVal Analysis_code As String, _ ByVal SachkontoInlandSteuerpflichtig As String, _ ByVal SachkontoInlandSteuerfrei As String, _ ByVal SachkontoEUSteuerpflichtig As String, _ ByVal SachkontoEUSteuerfrei As String, _ ByVal Sachkonto3Land As String, _ ByVal BS415 As Global.System.Nullable(Of Boolean), _ ByVal BGebUStV As Global.System.Nullable(Of Boolean), _ ByVal ReverseCharge As Global.System.Nullable(Of Boolean), _ ByVal IMEX_Gl_account As String, _ ByVal IMEX_SachkontoInlandSteuerpflichtig As String, _ ByVal IMEX_SachkontoInlandSteuerfrei As String, _ ByVal IMEX_SachkontoEUSteuerpflichtig As String, _ ByVal IMEX_SachkontoEUSteuerfrei As String, _ ByVal IMEX_Sachkonto3Land As String, _ ByVal abzugsfaehigInZZ As Boolean, _ ByVal Original_LeistungsNr As Short, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LeistungsBez,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BezeichnungAusListe,Boolean) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BerechnungsartNr,Short) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Steuerpflichtig,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SKR,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Vorlageprovision,Boolean) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Kreditaufwendungen,Boolean) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(FixeTaxe,Boolean) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Abfertigungskosten,Boolean) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Preissperre,Boolean) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Kostenstelle,Integer) If (AufschubkontoNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(AufschubkontoNr,String) End If If (Gl_account Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Gl_account,String) End If If (Analysis_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Analysis_type,String) End If If (Analysis_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Analysis_code,String) End If If (SachkontoInlandSteuerpflichtig Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(SachkontoInlandSteuerpflichtig,String) End If If (SachkontoInlandSteuerfrei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SachkontoInlandSteuerfrei,String) End If If (SachkontoEUSteuerpflichtig Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SachkontoEUSteuerpflichtig,String) End If If (SachkontoEUSteuerfrei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(SachkontoEUSteuerfrei,String) End If If (Sachkonto3Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Sachkonto3Land,String) End If If (BS415.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(BS415.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (BGebUStV.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(BGebUStV.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (ReverseCharge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(ReverseCharge.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (IMEX_Gl_account Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(IMEX_Gl_account,String) End If If (IMEX_SachkontoInlandSteuerpflichtig Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(IMEX_SachkontoInlandSteuerpflichtig,String) End If If (IMEX_SachkontoInlandSteuerfrei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(IMEX_SachkontoInlandSteuerfrei,String) End If If (IMEX_SachkontoEUSteuerpflichtig Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(IMEX_SachkontoEUSteuerpflichtig,String) End If If (IMEX_SachkontoEUSteuerfrei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(IMEX_SachkontoEUSteuerfrei,String) End If If (IMEX_Sachkonto3Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(IMEX_Sachkonto3Land,String) End If Me.Adapter.UpdateCommand.Parameters(30).Value = CType(abzugsfaehigInZZ,Boolean) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_LeistungsNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 LeistungsBez As String, _ ByVal BezeichnungAusListe As Boolean, _ ByVal BerechnungsartNr As Short, _ ByVal Steuerpflichtig As Boolean, _ ByVal SKR As Boolean, _ ByVal Vorlageprovision As Boolean, _ ByVal Kreditaufwendungen As Boolean, _ ByVal FixeTaxe As Boolean, _ ByVal Abfertigungskosten As Boolean, _ ByVal Preissperre As Boolean, _ ByVal Kostenstelle As Integer, _ ByVal AufschubkontoNr As String, _ ByVal Gl_account As String, _ ByVal Analysis_type As String, _ ByVal Analysis_code As String, _ ByVal SachkontoInlandSteuerpflichtig As String, _ ByVal SachkontoInlandSteuerfrei As String, _ ByVal SachkontoEUSteuerpflichtig As String, _ ByVal SachkontoEUSteuerfrei As String, _ ByVal Sachkonto3Land As String, _ ByVal BS415 As Global.System.Nullable(Of Boolean), _ ByVal BGebUStV As Global.System.Nullable(Of Boolean), _ ByVal ReverseCharge As Global.System.Nullable(Of Boolean), _ ByVal IMEX_Gl_account As String, _ ByVal IMEX_SachkontoInlandSteuerpflichtig As String, _ ByVal IMEX_SachkontoInlandSteuerfrei As String, _ ByVal IMEX_SachkontoEUSteuerpflichtig As String, _ ByVal IMEX_SachkontoEUSteuerfrei As String, _ ByVal IMEX_Sachkonto3Land As String, _ ByVal abzugsfaehigInZZ As Boolean, _ ByVal Original_LeistungsNr As Short, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_LeistungsNr, LeistungsBez, BezeichnungAusListe, BerechnungsartNr, Steuerpflichtig, SKR, Vorlageprovision, Kreditaufwendungen, FixeTaxe, Abfertigungskosten, Preissperre, Kostenstelle, AufschubkontoNr, Gl_account, Analysis_type, Analysis_code, SachkontoInlandSteuerpflichtig, SachkontoInlandSteuerfrei, SachkontoEUSteuerpflichtig, SachkontoEUSteuerfrei, Sachkonto3Land, BS415, BGebUStV, ReverseCharge, IMEX_Gl_account, IMEX_SachkontoInlandSteuerpflichtig, IMEX_SachkontoInlandSteuerfrei, IMEX_SachkontoEUSteuerpflichtig, IMEX_SachkontoEUSteuerfrei, IMEX_Sachkonto3Land, abzugsfaehigInZZ, Original_LeistungsNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class LeistungenBUKontenTableAdapter 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 = "LeistungenBUKonten" tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("Gl_account", "Gl_account") tableMapping.ColumnMappings.Add("SachkontoInlandSteuerpflichtig", "SachkontoInlandSteuerpflichtig") tableMapping.ColumnMappings.Add("SachkontoInlandSteuerfrei", "SachkontoInlandSteuerfrei") tableMapping.ColumnMappings.Add("SachkontoEUSteuerpflichtig", "SachkontoEUSteuerpflichtig") tableMapping.ColumnMappings.Add("SachkontoEUSteuerfrei", "SachkontoEUSteuerfrei") tableMapping.ColumnMappings.Add("Sachkonto3Land", "Sachkonto3Land") tableMapping.ColumnMappings.Add("letzteAenderungUser", "letzteAenderungUser") tableMapping.ColumnMappings.Add("letzteAenderung", "letzteAenderung") 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].[LeistungenBUKonten] WHERE (([LeistungsNr] = @Original_Leistung"& _ "sNr) AND ([Firma_ID] = @Original_Firma_ID) AND ((@IsNull_Gl_account = 1 AND [Gl_"& _ "account] IS NULL) OR ([Gl_account] = @Original_Gl_account)) AND ((@IsNull_Sachko"& _ "ntoInlandSteuerpflichtig = 1 AND [SachkontoInlandSteuerpflichtig] IS NULL) OR (["& _ "SachkontoInlandSteuerpflichtig] = @Original_SachkontoInlandSteuerpflichtig)) AND"& _ " ((@IsNull_SachkontoInlandSteuerfrei = 1 AND [SachkontoInlandSteuerfrei] IS NULL"& _ ") OR ([SachkontoInlandSteuerfrei] = @Original_SachkontoInlandSteuerfrei)) AND (("& _ "@IsNull_SachkontoEUSteuerpflichtig = 1 AND [SachkontoEUSteuerpflichtig] IS NULL)"& _ " OR ([SachkontoEUSteuerpflichtig] = @Original_SachkontoEUSteuerpflichtig)) AND ("& _ "(@IsNull_SachkontoEUSteuerfrei = 1 AND [SachkontoEUSteuerfrei] IS NULL) OR ([Sac"& _ "hkontoEUSteuerfrei] = @Original_SachkontoEUSteuerfrei)) AND ((@IsNull_Sachkonto3"& _ "Land = 1 AND [Sachkonto3Land] IS NULL) OR ([Sachkonto3Land] = @Original_Sachkont"& _ "o3Land)) AND ((@IsNull_letzteAenderungUser = 1 AND [letzteAenderungUser] IS NULL"& _ ") OR ([letzteAenderungUser] = @Original_letzteAenderungUser)) AND ((@IsNull_letz"& _ "teAenderung = 1 AND [letzteAenderung] IS NULL) OR ([letzteAenderung] = @Original"& _ "_letzteAenderung)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Gl_account", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gl_account", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gl_account", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gl_account", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SachkontoInlandSteuerpflichtig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerpflichtig", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SachkontoInlandSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerpflichtig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SachkontoInlandSteuerfrei", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerfrei", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SachkontoInlandSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerfrei", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SachkontoEUSteuerpflichtig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerpflichtig", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SachkontoEUSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerpflichtig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SachkontoEUSteuerfrei", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerfrei", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SachkontoEUSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerfrei", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sachkonto3Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachkonto3Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sachkonto3Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachkonto3Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_letzteAenderungUser", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderungUser", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_letzteAenderungUser", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderungUser", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_letzteAenderung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_letzteAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderung", 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].[LeistungenBUKonten] ([LeistungsNr], [Firma_ID], [Gl_account], "& _ "[SachkontoInlandSteuerpflichtig], [SachkontoInlandSteuerfrei], [SachkontoEUSteue"& _ "rpflichtig], [SachkontoEUSteuerfrei], [Sachkonto3Land], [letzteAenderungUser], ["& _ "letzteAenderung]) VALUES (@LeistungsNr, @Firma_ID, @Gl_account, @SachkontoInland"& _ "Steuerpflichtig, @SachkontoInlandSteuerfrei, @SachkontoEUSteuerpflichtig, @Sachk"& _ "ontoEUSteuerfrei, @Sachkonto3Land, @letzteAenderungUser, @letzteAenderung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ "ECT LeistungsNr, Firma_ID, Gl_account, SachkontoInlandSteuerpflichtig, Sachkonto"& _ "InlandSteuerfrei, SachkontoEUSteuerpflichtig, SachkontoEUSteuerfrei, Sachkonto3L"& _ "and, letzteAenderungUser, letzteAenderung FROM LeistungenBUKonten WHERE (Firma_I"& _ "D = @Firma_ID) AND (LeistungsNr = @LeistungsNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gl_account", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gl_account", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoInlandSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoInlandSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoEUSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoEUSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachkonto3Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachkonto3Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@letzteAenderungUser", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderungUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@letzteAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderung", 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].[LeistungenBUKonten] SET [LeistungsNr] = @LeistungsNr, [Firma_ID] = "& _ "@Firma_ID, [Gl_account] = @Gl_account, [SachkontoInlandSteuerpflichtig] = @Sachk"& _ "ontoInlandSteuerpflichtig, [SachkontoInlandSteuerfrei] = @SachkontoInlandSteuerf"& _ "rei, [SachkontoEUSteuerpflichtig] = @SachkontoEUSteuerpflichtig, [SachkontoEUSte"& _ "uerfrei] = @SachkontoEUSteuerfrei, [Sachkonto3Land] = @Sachkonto3Land, [letzteAe"& _ "nderungUser] = @letzteAenderungUser, [letzteAenderung] = @letzteAenderung WHERE "& _ "(([LeistungsNr] = @Original_LeistungsNr) AND ([Firma_ID] = @Original_Firma_ID) A"& _ "ND ((@IsNull_Gl_account = 1 AND [Gl_account] IS NULL) OR ([Gl_account] = @Origin"& _ "al_Gl_account)) AND ((@IsNull_SachkontoInlandSteuerpflichtig = 1 AND [SachkontoI"& _ "nlandSteuerpflichtig] IS NULL) OR ([SachkontoInlandSteuerpflichtig] = @Original_"& _ "SachkontoInlandSteuerpflichtig)) AND ((@IsNull_SachkontoInlandSteuerfrei = 1 AND"& _ " [SachkontoInlandSteuerfrei] IS NULL) OR ([SachkontoInlandSteuerfrei] = @Origina"& _ "l_SachkontoInlandSteuerfrei)) AND ((@IsNull_SachkontoEUSteuerpflichtig = 1 AND ["& _ "SachkontoEUSteuerpflichtig] IS NULL) OR ([SachkontoEUSteuerpflichtig] = @Origina"& _ "l_SachkontoEUSteuerpflichtig)) AND ((@IsNull_SachkontoEUSteuerfrei = 1 AND [Sach"& _ "kontoEUSteuerfrei] IS NULL) OR ([SachkontoEUSteuerfrei] = @Original_SachkontoEUS"& _ "teuerfrei)) AND ((@IsNull_Sachkonto3Land = 1 AND [Sachkonto3Land] IS NULL) OR (["& _ "Sachkonto3Land] = @Original_Sachkonto3Land)) AND ((@IsNull_letzteAenderungUser ="& _ " 1 AND [letzteAenderungUser] IS NULL) OR ([letzteAenderungUser] = @Original_letz"& _ "teAenderungUser)) AND ((@IsNull_letzteAenderung = 1 AND [letzteAenderung] IS NUL"& _ "L) OR ([letzteAenderung] = @Original_letzteAenderung)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT LeistungsNr, Fi"& _ "rma_ID, Gl_account, SachkontoInlandSteuerpflichtig, SachkontoInlandSteuerfrei, S"& _ "achkontoEUSteuerpflichtig, SachkontoEUSteuerfrei, Sachkonto3Land, letzteAenderun"& _ "gUser, letzteAenderung FROM LeistungenBUKonten WHERE (Firma_ID = @Firma_ID) AND "& _ "(LeistungsNr = @LeistungsNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gl_account", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gl_account", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoInlandSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoInlandSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoEUSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SachkontoEUSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachkonto3Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachkonto3Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@letzteAenderungUser", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderungUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@letzteAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Gl_account", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gl_account", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gl_account", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gl_account", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SachkontoInlandSteuerpflichtig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerpflichtig", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SachkontoInlandSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerpflichtig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SachkontoInlandSteuerfrei", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerfrei", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SachkontoInlandSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoInlandSteuerfrei", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SachkontoEUSteuerpflichtig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerpflichtig", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SachkontoEUSteuerpflichtig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerpflichtig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SachkontoEUSteuerfrei", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerfrei", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SachkontoEUSteuerfrei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SachkontoEUSteuerfrei", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sachkonto3Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachkonto3Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sachkonto3Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachkonto3Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_letzteAenderungUser", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderungUser", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_letzteAenderungUser", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderungUser", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_letzteAenderung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_letzteAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzteAenderung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 LeistungsNr, Firma_ID, Gl_account, SachkontoInlandSteuerpflichtig, Sachkon"& _ "toInlandSteuerfrei, SachkontoEUSteuerpflichtig, SachkontoEUSteuerfrei, Sachkonto"& _ "3Land, letzteAenderungUser, letzteAenderung FROM dbo.LeistungenBUKonten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.LeistungenBUKontenDataTable) 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 VERAGDataSet.LeistungenBUKontenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.LeistungenBUKontenDataTable = New VERAGDataSet.LeistungenBUKontenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.LeistungenBUKontenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "LeistungenBUKonten") 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_LeistungsNr As Short, ByVal Original_Firma_ID As Integer, ByVal Original_Gl_account As String, ByVal Original_SachkontoInlandSteuerpflichtig As String, ByVal Original_SachkontoInlandSteuerfrei As String, ByVal Original_SachkontoEUSteuerpflichtig As String, ByVal Original_SachkontoEUSteuerfrei As String, ByVal Original_Sachkonto3Land As String, ByVal Original_letzteAenderungUser As String, ByVal Original_letzteAenderung As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_LeistungsNr,Short) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Firma_ID,Integer) If (Original_Gl_account 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_Gl_account,String) End If If (Original_SachkontoInlandSteuerpflichtig 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_SachkontoInlandSteuerpflichtig,String) End If If (Original_SachkontoInlandSteuerfrei 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_SachkontoInlandSteuerfrei,String) End If If (Original_SachkontoEUSteuerpflichtig 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_SachkontoEUSteuerpflichtig,String) End If If (Original_SachkontoEUSteuerfrei 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_SachkontoEUSteuerfrei,String) End If If (Original_Sachkonto3Land 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_Sachkonto3Land,String) End If If (Original_letzteAenderungUser Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_letzteAenderungUser,String) End If If (Original_letzteAenderung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_letzteAenderung.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).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 LeistungsNr As Short, ByVal Firma_ID As Integer, ByVal Gl_account As String, ByVal SachkontoInlandSteuerpflichtig As String, ByVal SachkontoInlandSteuerfrei As String, ByVal SachkontoEUSteuerpflichtig As String, ByVal SachkontoEUSteuerfrei As String, ByVal Sachkonto3Land As String, ByVal letzteAenderungUser As String, ByVal letzteAenderung As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(LeistungsNr,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Firma_ID,Integer) If (Gl_account Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Gl_account,String) End If If (SachkontoInlandSteuerpflichtig Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(SachkontoInlandSteuerpflichtig,String) End If If (SachkontoInlandSteuerfrei Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(SachkontoInlandSteuerfrei,String) End If If (SachkontoEUSteuerpflichtig Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(SachkontoEUSteuerpflichtig,String) End If If (SachkontoEUSteuerfrei Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(SachkontoEUSteuerfrei,String) End If If (Sachkonto3Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Sachkonto3Land,String) End If If (letzteAenderungUser Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(letzteAenderungUser,String) End If If (letzteAenderung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(letzteAenderung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).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 LeistungsNr As Short, _ ByVal Firma_ID As Integer, _ ByVal Gl_account As String, _ ByVal SachkontoInlandSteuerpflichtig As String, _ ByVal SachkontoInlandSteuerfrei As String, _ ByVal SachkontoEUSteuerpflichtig As String, _ ByVal SachkontoEUSteuerfrei As String, _ ByVal Sachkonto3Land As String, _ ByVal letzteAenderungUser As String, _ ByVal letzteAenderung As Global.System.Nullable(Of Date), _ ByVal Original_LeistungsNr As Short, _ ByVal Original_Firma_ID As Integer, _ ByVal Original_Gl_account As String, _ ByVal Original_SachkontoInlandSteuerpflichtig As String, _ ByVal Original_SachkontoInlandSteuerfrei As String, _ ByVal Original_SachkontoEUSteuerpflichtig As String, _ ByVal Original_SachkontoEUSteuerfrei As String, _ ByVal Original_Sachkonto3Land As String, _ ByVal Original_letzteAenderungUser As String, _ ByVal Original_letzteAenderung As Global.System.Nullable(Of Date)) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LeistungsNr,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Firma_ID,Integer) If (Gl_account Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Gl_account,String) End If If (SachkontoInlandSteuerpflichtig Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SachkontoInlandSteuerpflichtig,String) End If If (SachkontoInlandSteuerfrei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SachkontoInlandSteuerfrei,String) End If If (SachkontoEUSteuerpflichtig Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SachkontoEUSteuerpflichtig,String) End If If (SachkontoEUSteuerfrei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SachkontoEUSteuerfrei,String) End If If (Sachkonto3Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Sachkonto3Land,String) End If If (letzteAenderungUser Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(letzteAenderungUser,String) End If If (letzteAenderung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(letzteAenderung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_LeistungsNr,Short) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Firma_ID,Integer) If (Original_Gl_account 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_Gl_account,String) End If If (Original_SachkontoInlandSteuerpflichtig 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_SachkontoInlandSteuerpflichtig,String) End If If (Original_SachkontoInlandSteuerfrei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_SachkontoInlandSteuerfrei,String) End If If (Original_SachkontoEUSteuerpflichtig 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_SachkontoEUSteuerpflichtig,String) End If If (Original_SachkontoEUSteuerfrei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_SachkontoEUSteuerfrei,String) End If If (Original_Sachkonto3Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Sachkonto3Land,String) End If If (Original_letzteAenderungUser 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_letzteAenderungUser,String) End If If (Original_letzteAenderung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_letzteAenderung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If 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 Gl_account As String, _ ByVal SachkontoInlandSteuerpflichtig As String, _ ByVal SachkontoInlandSteuerfrei As String, _ ByVal SachkontoEUSteuerpflichtig As String, _ ByVal SachkontoEUSteuerfrei As String, _ ByVal Sachkonto3Land As String, _ ByVal letzteAenderungUser As String, _ ByVal letzteAenderung As Global.System.Nullable(Of Date), _ ByVal Original_LeistungsNr As Short, _ ByVal Original_Firma_ID As Integer, _ ByVal Original_Gl_account As String, _ ByVal Original_SachkontoInlandSteuerpflichtig As String, _ ByVal Original_SachkontoInlandSteuerfrei As String, _ ByVal Original_SachkontoEUSteuerpflichtig As String, _ ByVal Original_SachkontoEUSteuerfrei As String, _ ByVal Original_Sachkonto3Land As String, _ ByVal Original_letzteAenderungUser As String, _ ByVal Original_letzteAenderung As Global.System.Nullable(Of Date)) As Integer Return Me.Update(Original_LeistungsNr, Original_Firma_ID, Gl_account, SachkontoInlandSteuerpflichtig, SachkontoInlandSteuerfrei, SachkontoEUSteuerpflichtig, SachkontoEUSteuerfrei, Sachkonto3Land, letzteAenderungUser, letzteAenderung, Original_LeistungsNr, Original_Firma_ID, Original_Gl_account, Original_SachkontoInlandSteuerpflichtig, Original_SachkontoInlandSteuerfrei, Original_SachkontoEUSteuerpflichtig, Original_SachkontoEUSteuerfrei, Original_Sachkonto3Land, Original_letzteAenderungUser, Original_letzteAenderung) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class LieferbedingungenTableAdapter 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 = "Lieferbedingungen" tableMapping.ColumnMappings.Add("IncotermCode", "IncotermCode") tableMapping.ColumnMappings.Add("Bedeutung", "Bedeutung") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Lieferbedingungen] WHERE (([IncotermCode] = @Original_Incoterm"& _ "Code) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IncotermCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IncotermCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Lieferbedingungen] ([IncotermCode], [Bedeutung]) VALUES (@Inco"& _ "termCode, @Bedeutung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IncotermCode, Bedeutung, SSMA_TimeStamp FROM Lief"& _ "erbedingungen WHERE (IncotermCode = @IncotermCode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IncotermCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IncotermCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bedeutung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bedeutung", 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].[Lieferbedingungen] SET [IncotermCode] = @IncotermCode, [Bedeutung] "& _ "= @Bedeutung WHERE (([IncotermCode] = @Original_IncotermCode) AND ([SSMA_TimeSta"& _ "mp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IncotermCode, Bedeutung, SSMA_TimeStam"& _ "p FROM Lieferbedingungen WHERE (IncotermCode = @IncotermCode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IncotermCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IncotermCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bedeutung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bedeutung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IncotermCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IncotermCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 IncotermCode, Bedeutung, SSMA_TimeStamp FROM dbo.Lieferbedingungen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.LieferbedingungenDataTable) 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 VERAGDataSet.LieferbedingungenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.LieferbedingungenDataTable = New VERAGDataSet.LieferbedingungenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.LieferbedingungenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Lieferbedingungen") 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_IncotermCode As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_IncotermCode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_IncotermCode") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IncotermCode,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 IncotermCode As String, ByVal Bedeutung As String) As Integer If (IncotermCode Is Nothing) Then Throw New Global.System.ArgumentNullException("IncotermCode") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(IncotermCode,String) End If If (Bedeutung Is Nothing) Then Throw New Global.System.ArgumentNullException("Bedeutung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bedeutung,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 IncotermCode As String, ByVal Bedeutung As String, ByVal Original_IncotermCode As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (IncotermCode Is Nothing) Then Throw New Global.System.ArgumentNullException("IncotermCode") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(IncotermCode,String) End If If (Bedeutung Is Nothing) Then Throw New Global.System.ArgumentNullException("Bedeutung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bedeutung,String) End If If (Original_IncotermCode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_IncotermCode") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_IncotermCode,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Bedeutung As String, ByVal Original_IncotermCode As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_IncotermCode, Bedeutung, Original_IncotermCode, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Nebenkosten_der_KorrespondentenTableAdapter 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 = "Nebenkosten der Korrespondenten" tableMapping.ColumnMappings.Add("KorrespondentenNr", "KorrespondentenNr") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Nebenkosten der Korrespondenten] WHERE (([KorrespondentenNr] ="& _ " @Original_KorrespondentenNr) AND ([LeistungsNr] = @Original_LeistungsNr) AND (["& _ "LeistungsBez] = @Original_LeistungsBez) AND ([SSMA_TimeStamp] = @Original_SSMA_T"& _ "imeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Nebenkosten der Korrespondenten] ([KorrespondentenNr], [Leistu"& _ "ngsNr], [LeistungsBez], [Preis]) VALUES (@KorrespondentenNr, @LeistungsNr, @Leis"& _ "tungsBez, @Preis);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KorrespondentenNr, LeistungsNr, LeistungsBez, Preis, "& _ "SSMA_TimeStamp FROM [Nebenkosten der Korrespondenten] WHERE (KorrespondentenNr ="& _ " @KorrespondentenNr) AND (LeistungsBez = @LeistungsBez) AND (LeistungsNr = @Leis"& _ "tungsNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", 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].[Nebenkosten der Korrespondenten] SET [KorrespondentenNr] = @Korresp"& _ "ondentenNr, [LeistungsNr] = @LeistungsNr, [LeistungsBez] = @LeistungsBez, [Preis"& _ "] = @Preis WHERE (([KorrespondentenNr] = @Original_KorrespondentenNr) AND ([Leis"& _ "tungsNr] = @Original_LeistungsNr) AND ([LeistungsBez] = @Original_LeistungsBez) "& _ "AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KorrespondentenNr, L"& _ "eistungsNr, LeistungsBez, Preis, SSMA_TimeStamp FROM [Nebenkosten der Korrespond"& _ "enten] WHERE (KorrespondentenNr = @KorrespondentenNr) AND (LeistungsBez = @Leist"& _ "ungsBez) AND (LeistungsNr = @LeistungsNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KorrespondentenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KorrespondentenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KorrespondentenNr, LeistungsNr, LeistungsBez, Preis, SSMA_TimeStamp FROM d"& _ "bo.[Nebenkosten der Korrespondenten]" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.Nebenkosten_der_KorrespondentenDataTable) 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 VERAGDataSet.Nebenkosten_der_KorrespondentenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.Nebenkosten_der_KorrespondentenDataTable = New VERAGDataSet.Nebenkosten_der_KorrespondentenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.Nebenkosten_der_KorrespondentenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Nebenkosten der Korrespondenten") 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_KorrespondentenNr As Integer, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KorrespondentenNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LeistungsBez,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 KorrespondentenNr As Integer, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Preis As Decimal) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KorrespondentenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(LeistungsBez,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(Preis,Decimal) 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 KorrespondentenNr As Integer, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Preis As Decimal, ByVal Original_KorrespondentenNr As Integer, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KorrespondentenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LeistungsBez,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Preis,Decimal) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_KorrespondentenNr,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_LeistungsBez,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Preis As Decimal, ByVal Original_KorrespondentenNr As Integer, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_KorrespondentenNr, Original_LeistungsNr, Original_LeistungsBez, Preis, Original_KorrespondentenNr, Original_LeistungsNr, Original_LeistungsBez, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Offene_PostenTableAdapter 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 = "Offene Posten" tableMapping.ColumnMappings.Add("OP_ID", "OP_ID") tableMapping.ColumnMappings.Add("Kontonummer", "Kontonummer") tableMapping.ColumnMappings.Add("Kontoname", "Kontoname") tableMapping.ColumnMappings.Add("Belegnummer", "Belegnummer") tableMapping.ColumnMappings.Add("Belegdatum", "Belegdatum") tableMapping.ColumnMappings.Add("Fälligkeitsdatum", "Fälligkeitsdatum") tableMapping.ColumnMappings.Add("Skontodatum", "Skontodatum") tableMapping.ColumnMappings.Add("Skontoprozent", "Skontoprozent") tableMapping.ColumnMappings.Add("Bruttobetrag", "Bruttobetrag") tableMapping.ColumnMappings.Add("Waehrung", "Waehrung") tableMapping.ColumnMappings.Add("Steuersatz", "Steuersatz") tableMapping.ColumnMappings.Add("Gesamtausstand", "Gesamtausstand") tableMapping.ColumnMappings.Add("Steuersatz2", "Steuersatz2") tableMapping.ColumnMappings.Add("Ausstand2", "Ausstand2") tableMapping.ColumnMappings.Add("Buchungstext", "Buchungstext") tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung") tableMapping.ColumnMappings.Add("Mahnstufe", "Mahnstufe") tableMapping.ColumnMappings.Add("Mahndatum", "Mahndatum") tableMapping.ColumnMappings.Add("Gegenkonto", "Gegenkonto") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("KumSaldoEUR", "KumSaldoEUR") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_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 [dbo].[Offene Posten] WHERE (([OP_ID] = @Original_OP_ID) AND ([SSMA_T"& _ "imeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Offene Posten] ([OP_ID], [Kontonummer], [Kontoname], [Belegnum"& _ "mer], [Belegdatum], [Fälligkeitsdatum], [Skontodatum], [Skontoprozent], [Bruttob"& _ "etrag], [Waehrung], [Steuersatz], [Gesamtausstand], [Steuersatz2], [Ausstand2], "& _ "[Buchungstext], [Bemerkung], [Mahnstufe], [Mahndatum], [Gegenkonto], [Status], ["& _ "KumSaldoEUR], [Firma_ID]) VALUES (@OP_ID, @Kontonummer, @Kontoname, @Belegnummer"& _ ", @Belegdatum, @Fälligkeitsdatum, @Skontodatum, @Skontoprozent, @Bruttobetrag, @"& _ "Waehrung, @Steuersatz, @Gesamtausstand, @Steuersatz2, @Ausstand2, @Buchungstext,"& _ " @Bemerkung, @Mahnstufe, @Mahndatum, @Gegenkonto, @Status, @KumSaldoEUR, @Firma_"& _ "ID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OP_ID, Kontonummer, Kontoname, Belegnummer, Belegdatum, Fälligkeits"& _ "datum, Skontodatum, Skontoprozent, Bruttobetrag, Waehrung, Steuersatz, Gesamtaus"& _ "stand, Steuersatz2, Ausstand2, Buchungstext, Bemerkung, Mahnstufe, Mahndatum, Ge"& _ "genkonto, Status, KumSaldoEUR, SSMA_TimeStamp, Firma_ID FROM [Offene Posten] WHE"& _ "RE (OP_ID = @OP_ID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kontonummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kontonummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kontoname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kontoname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Skontodatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Skontodatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Skontoprozent", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Skontoprozent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bruttobetrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bruttobetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Waehrung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Waehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtausstand", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtausstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz2", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ausstand2", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ausstand2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mahnstufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mahnstufe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mahndatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mahndatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gegenkonto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gegenkonto", 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("@KumSaldoEUR", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KumSaldoEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_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 [dbo].[Offene Posten] SET [OP_ID] = @OP_ID, [Kontonummer] = @Kontonummer, "& _ "[Kontoname] = @Kontoname, [Belegnummer] = @Belegnummer, [Belegdatum] = @Belegdat"& _ "um, [Fälligkeitsdatum] = @Fälligkeitsdatum, [Skontodatum] = @Skontodatum, [Skont"& _ "oprozent] = @Skontoprozent, [Bruttobetrag] = @Bruttobetrag, [Waehrung] = @Waehru"& _ "ng, [Steuersatz] = @Steuersatz, [Gesamtausstand] = @Gesamtausstand, [Steuersatz2"& _ "] = @Steuersatz2, [Ausstand2] = @Ausstand2, [Buchungstext] = @Buchungstext, [Bem"& _ "erkung] = @Bemerkung, [Mahnstufe] = @Mahnstufe, [Mahndatum] = @Mahndatum, [Gegen"& _ "konto] = @Gegenkonto, [Status] = @Status, [KumSaldoEUR] = @KumSaldoEUR, [Firma_I"& _ "D] = @Firma_ID WHERE (([OP_ID] = @Original_OP_ID) AND ([SSMA_TimeStamp] = @Origi"& _ "nal_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OP_ID, Kontonummer, Kontoname, Belegnummer, Belegd"& _ "atum, Fälligkeitsdatum, Skontodatum, Skontoprozent, Bruttobetrag, Waehrung, Steu"& _ "ersatz, Gesamtausstand, Steuersatz2, Ausstand2, Buchungstext, Bemerkung, Mahnstu"& _ "fe, Mahndatum, Gegenkonto, Status, KumSaldoEUR, SSMA_TimeStamp, Firma_ID FROM [O"& _ "ffene Posten] WHERE (OP_ID = @OP_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kontonummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kontonummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kontoname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kontoname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Skontodatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Skontodatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Skontoprozent", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Skontoprozent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bruttobetrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bruttobetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Waehrung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Waehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtausstand", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtausstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz2", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ausstand2", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ausstand2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mahnstufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mahnstufe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mahndatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mahndatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gegenkonto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gegenkonto", 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("@KumSaldoEUR", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KumSaldoEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 OP_ID, Kontonummer, Kontoname, Belegnummer, Belegdatum, Fälligkeitsdatum, "& _ "Skontodatum, Skontoprozent, Bruttobetrag, Waehrung, Steuersatz, Gesamtausstand, "& _ "Steuersatz2, Ausstand2, Buchungstext, Bemerkung, Mahnstufe, Mahndatum, Gegenkont"& _ "o, Status, KumSaldoEUR, SSMA_TimeStamp, Firma_ID FROM dbo.[Offene Posten]" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.Offene_PostenDataTable) 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 VERAGDataSet.Offene_PostenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.Offene_PostenDataTable = New VERAGDataSet.Offene_PostenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.Offene_PostenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Offene Posten") 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_OP_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_OP_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 OP_ID As Integer, _ ByVal Kontonummer As Integer, _ ByVal Kontoname As String, _ ByVal Belegnummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Skontodatum As Global.System.Nullable(Of Date), _ ByVal Skontoprozent As Global.System.Nullable(Of Double), _ ByVal Bruttobetrag As Global.System.Nullable(Of Double), _ ByVal Waehrung As String, _ ByVal Steuersatz As Global.System.Nullable(Of Double), _ ByVal Gesamtausstand As Global.System.Nullable(Of Double), _ ByVal Steuersatz2 As Global.System.Nullable(Of Double), _ ByVal Ausstand2 As Global.System.Nullable(Of Double), _ ByVal Buchungstext As String, _ ByVal Bemerkung As String, _ ByVal Mahnstufe As Global.System.Nullable(Of Integer), _ ByVal Mahndatum As Global.System.Nullable(Of Date), _ ByVal Gegenkonto As Global.System.Nullable(Of Integer), _ ByVal Status As Global.System.Nullable(Of Integer), _ ByVal KumSaldoEUR As Global.System.Nullable(Of Double), _ ByVal Firma_ID As Global.System.Nullable(Of Short)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(OP_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Kontonummer,Integer) If (Kontoname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Kontoname,String) End If If (Belegnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Belegnummer,String) End If If (Belegdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Belegdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Fälligkeitsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Fälligkeitsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Skontodatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Skontodatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Skontoprozent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Skontoprozent.Value,Double) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Bruttobetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(Bruttobetrag.Value,Double) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Waehrung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Waehrung,String) End If If (Steuersatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Steuersatz.Value,Double) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Gesamtausstand.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Gesamtausstand.Value,Double) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Steuersatz2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(Steuersatz2.Value,Double) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Ausstand2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(Ausstand2.Value,Double) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Buchungstext Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Buchungstext,String) End If If (Bemerkung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Bemerkung,String) End If If (Mahnstufe.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(Mahnstufe.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Mahndatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(Mahndatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Gegenkonto.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(Gegenkonto.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(Status.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (KumSaldoEUR.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(KumSaldoEUR.Value,Double) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Firma_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.InsertCommand.Parameters(21).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 OP_ID As Integer, _ ByVal Kontonummer As Integer, _ ByVal Kontoname As String, _ ByVal Belegnummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Skontodatum As Global.System.Nullable(Of Date), _ ByVal Skontoprozent As Global.System.Nullable(Of Double), _ ByVal Bruttobetrag As Global.System.Nullable(Of Double), _ ByVal Waehrung As String, _ ByVal Steuersatz As Global.System.Nullable(Of Double), _ ByVal Gesamtausstand As Global.System.Nullable(Of Double), _ ByVal Steuersatz2 As Global.System.Nullable(Of Double), _ ByVal Ausstand2 As Global.System.Nullable(Of Double), _ ByVal Buchungstext As String, _ ByVal Bemerkung As String, _ ByVal Mahnstufe As Global.System.Nullable(Of Integer), _ ByVal Mahndatum As Global.System.Nullable(Of Date), _ ByVal Gegenkonto As Global.System.Nullable(Of Integer), _ ByVal Status As Global.System.Nullable(Of Integer), _ ByVal KumSaldoEUR As Global.System.Nullable(Of Double), _ ByVal Firma_ID As Global.System.Nullable(Of Short), _ ByVal Original_OP_ID As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OP_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Kontonummer,Integer) If (Kontoname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Kontoname,String) End If If (Belegnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Belegnummer,String) End If If (Belegdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Belegdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Fälligkeitsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Fälligkeitsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Skontodatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Skontodatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Skontoprozent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Skontoprozent.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Bruttobetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Bruttobetrag.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Waehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Waehrung,String) End If If (Steuersatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Steuersatz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Gesamtausstand.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Gesamtausstand.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Steuersatz2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Steuersatz2.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Ausstand2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Ausstand2.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Buchungstext Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Buchungstext,String) End If If (Bemerkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Bemerkung,String) End If If (Mahnstufe.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Mahnstufe.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Mahndatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Mahndatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Gegenkonto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Gegenkonto.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Status.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (KumSaldoEUR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(KumSaldoEUR.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Firma_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_OP_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Kontonummer As Integer, _ ByVal Kontoname As String, _ ByVal Belegnummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Skontodatum As Global.System.Nullable(Of Date), _ ByVal Skontoprozent As Global.System.Nullable(Of Double), _ ByVal Bruttobetrag As Global.System.Nullable(Of Double), _ ByVal Waehrung As String, _ ByVal Steuersatz As Global.System.Nullable(Of Double), _ ByVal Gesamtausstand As Global.System.Nullable(Of Double), _ ByVal Steuersatz2 As Global.System.Nullable(Of Double), _ ByVal Ausstand2 As Global.System.Nullable(Of Double), _ ByVal Buchungstext As String, _ ByVal Bemerkung As String, _ ByVal Mahnstufe As Global.System.Nullable(Of Integer), _ ByVal Mahndatum As Global.System.Nullable(Of Date), _ ByVal Gegenkonto As Global.System.Nullable(Of Integer), _ ByVal Status As Global.System.Nullable(Of Integer), _ ByVal KumSaldoEUR As Global.System.Nullable(Of Double), _ ByVal Firma_ID As Global.System.Nullable(Of Short), _ ByVal Original_OP_ID As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_OP_ID, Kontonummer, Kontoname, Belegnummer, Belegdatum, Fälligkeitsdatum, Skontodatum, Skontoprozent, Bruttobetrag, Waehrung, Steuersatz, Gesamtausstand, Steuersatz2, Ausstand2, Buchungstext, Bemerkung, Mahnstufe, Mahndatum, Gegenkonto, Status, KumSaldoEUR, Firma_ID, Original_OP_ID, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Offene_Posten_DVOTableAdapter 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 = "Offene_Posten_DVO" tableMapping.ColumnMappings.Add("OP_ID", "OP_ID") tableMapping.ColumnMappings.Add("Konto", "Konto") tableMapping.ColumnMappings.Add("KontoBez", "KontoBez") tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("Rechnung", "Rechnung") tableMapping.ColumnMappings.Add("Datum", "Datum") tableMapping.ColumnMappings.Add("Buchungsbetrag_SOLL", "Buchungsbetrag_SOLL") tableMapping.ColumnMappings.Add("Buchungsbetrag_HABEN", "Buchungsbetrag_HABEN") tableMapping.ColumnMappings.Add("Steuercode", "Steuercode") tableMapping.ColumnMappings.Add("Ländercode", "Ländercode") tableMapping.ColumnMappings.Add("Steuerbetrag", "Steuerbetrag") tableMapping.ColumnMappings.Add("Buchungstext", "Buchungstext") tableMapping.ColumnMappings.Add("Faell_Tage1", "Faell_Tage1") tableMapping.ColumnMappings.Add("Faell_Prozent1", "Faell_Prozent1") tableMapping.ColumnMappings.Add("Faell_Tage2", "Faell_Tage2") tableMapping.ColumnMappings.Add("Faell_Prozent2", "Faell_Prozent2") tableMapping.ColumnMappings.Add("Faell_Tage3", "Faell_Tage3") tableMapping.ColumnMappings.Add("Faell_Prozent3", "Faell_Prozent3") tableMapping.ColumnMappings.Add("Mahnstufe", "Mahnstufe") tableMapping.ColumnMappings.Add("Rechnung_Gutschrift", "Rechnung_Gutschrift") tableMapping.ColumnMappings.Add("Storno", "Storno") tableMapping.ColumnMappings.Add("Jahr", "Jahr") tableMapping.ColumnMappings.Add("Saldo", "Saldo") tableMapping.ColumnMappings.Add("Faelligkeit", "Faelligkeit") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Offene_Posten_DVO] ([Konto], [KontoBez], [KundenNr], [Rechnung"& _ "], [Datum], [Buchungsbetrag_SOLL], [Buchungsbetrag_HABEN], [Steuercode], [Länder"& _ "code], [Steuerbetrag], [Buchungstext], [Faell_Tage1], [Faell_Prozent1], [Faell_T"& _ "age2], [Faell_Prozent2], [Faell_Tage3], [Faell_Prozent3], [Mahnstufe], [Rechnung"& _ "_Gutschrift], [Storno], [Jahr], [Saldo], [Faelligkeit]) VALUES (@Konto, @KontoBe"& _ "z, @KundenNr, @Rechnung, @Datum, @Buchungsbetrag_SOLL, @Buchungsbetrag_HABEN, @S"& _ "teuercode, @Ländercode, @Steuerbetrag, @Buchungstext, @Faell_Tage1, @Faell_Proze"& _ "nt1, @Faell_Tage2, @Faell_Prozent2, @Faell_Tage3, @Faell_Prozent3, @Mahnstufe, @"& _ "Rechnung_Gutschrift, @Storno, @Jahr, @Saldo, @Faelligkeit)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Konto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Konto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KontoBez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KontoBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsbetrag_SOLL", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 2, "Buchungsbetrag_SOLL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsbetrag_HABEN", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 2, "Buchungsbetrag_HABEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuercode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuercode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ländercode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ländercode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerbetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 2, "Steuerbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungstext", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Faell_Tage1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "Faell_Tage1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Faell_Prozent1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 2, "Faell_Prozent1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Faell_Tage2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "Faell_Tage2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Faell_Prozent2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 2, "Faell_Prozent2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Faell_Tage3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "Faell_Tage3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Faell_Prozent3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 2, "Faell_Prozent3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mahnstufe", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mahnstufe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnung_Gutschrift", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnung_Gutschrift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Storno", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Storno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Jahr", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "Jahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Saldo", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "Saldo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Faelligkeit", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Faelligkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 OP_ID, Konto, KontoBez, KundenNr, Rechnung, Datum, Buchungsbetrag_SOLL, Bu"& _ "chungsbetrag_HABEN, Steuercode, Ländercode, Steuerbetrag, Buchungstext, Faell_Ta"& _ "ge1, Faell_Prozent1, Faell_Tage2, Faell_Prozent2, Faell_Tage3, Faell_Prozent3, M"& _ "ahnstufe, Rechnung_Gutschrift, Storno, Jahr, Saldo, Faelligkeit FROM dbo.Offene_"& _ "Posten_DVO" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.Offene_Posten_DVODataTable) 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 VERAGDataSet.Offene_Posten_DVODataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.Offene_Posten_DVODataTable = New VERAGDataSet.Offene_Posten_DVODataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.Offene_Posten_DVODataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Offene_Posten_DVO") 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 Insert( _ ByVal Konto As Integer, _ ByVal KontoBez As String, _ ByVal KundenNr As Integer, _ ByVal Rechnung As String, _ ByVal Datum As Global.System.Nullable(Of Date), _ ByVal Buchungsbetrag_SOLL As Decimal, _ ByVal Buchungsbetrag_HABEN As Decimal, _ ByVal Steuercode As String, _ ByVal Ländercode As String, _ ByVal Steuerbetrag As Global.System.Nullable(Of Decimal), _ ByVal Buchungstext As String, _ ByVal Faell_Tage1 As Global.System.Nullable(Of Decimal), _ ByVal Faell_Prozent1 As Global.System.Nullable(Of Decimal), _ ByVal Faell_Tage2 As Global.System.Nullable(Of Decimal), _ ByVal Faell_Prozent2 As Global.System.Nullable(Of Decimal), _ ByVal Faell_Tage3 As Global.System.Nullable(Of Decimal), _ ByVal Faell_Prozent3 As Global.System.Nullable(Of Decimal), _ ByVal Mahnstufe As Short, _ ByVal Rechnung_Gutschrift As String, _ ByVal Storno As String, _ ByVal Jahr As Decimal, _ ByVal Saldo As Decimal, _ ByVal Faelligkeit As Date) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Konto,Integer) If (KontoBez Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(KontoBez,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(KundenNr,Integer) If (Rechnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Rechnung,String) End If If (Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(Buchungsbetrag_SOLL,Decimal) Me.Adapter.InsertCommand.Parameters(6).Value = CType(Buchungsbetrag_HABEN,Decimal) If (Steuercode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Steuercode,String) End If If (Ländercode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Ländercode,String) End If If (Steuerbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Steuerbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Buchungstext Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Buchungstext,String) End If If (Faell_Tage1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Faell_Tage1.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Faell_Prozent1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(Faell_Prozent1.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Faell_Tage2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(Faell_Tage2.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Faell_Prozent2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(Faell_Prozent2.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Faell_Tage3.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(Faell_Tage3.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Faell_Prozent3.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(Faell_Prozent3.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(17).Value = CType(Mahnstufe,Short) If (Rechnung_Gutschrift Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Rechnung_Gutschrift,String) End If If (Storno Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Storno,String) End If Me.Adapter.InsertCommand.Parameters(20).Value = CType(Jahr,Decimal) Me.Adapter.InsertCommand.Parameters(21).Value = CType(Saldo,Decimal) Me.Adapter.InsertCommand.Parameters(22).Value = CType(Faelligkeit,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class OffertenTableAdapter 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 = "Offerten" tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("Pauschalpreis", "Pauschalpreis") tableMapping.ColumnMappings.Add("Standardofferte", "Standardofferte") tableMapping.ColumnMappings.Add("Besonderheiten", "Besonderheiten") tableMapping.ColumnMappings.Add("Eingegeben am", "Eingegeben am") tableMapping.ColumnMappings.Add("Geändert am", "Geändert am") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("Gesperrt", "Gesperrt") tableMapping.ColumnMappings.Add("Gesperrt_Datum", "Gesperrt_Datum") tableMapping.ColumnMappings.Add("Gesperrt_Grund", "Gesperrt_Grund") tableMapping.ColumnMappings.Add("Art", "Art") 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].[Offerten] WHERE (([KundenNr] = @Original_KundenNr) AND ([Offer"& _ "tenNr] = @Original_OffertenNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp)"& _ ")" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Offerten] ([KundenNr], [OffertenNr], [FilialenNr], [Pauschalpr"& _ "eis], [Standardofferte], [Besonderheiten], [Eingegeben am], [Geändert am], [Sach"& _ "bearbeiter], [Gesperrt], [Gesperrt_Datum], [Gesperrt_Grund], [Art]) VALUES (@Kun"& _ "denNr, @OffertenNr, @FilialenNr, @Pauschalpreis, @Standardofferte, @Besonderheit"& _ "en, @Eingegeben_am, @Geändert_am, @Sachbearbeiter, @Gesperrt, @Gesperrt_Datum, @"& _ "Gesperrt_Grund, @Art);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KundenNr, OffertenNr, FilialenNr, Pauschalpreis, "& _ "Standardofferte, Besonderheiten, [Eingegeben am], [Geändert am], Sachbearbeiter,"& _ " SSMA_TimeStamp, Gesperrt, Gesperrt_Datum, Gesperrt_Grund, Art FROM Offerten WHE"& _ "RE (KundenNr = @KundenNr) AND (OffertenNr = @OffertenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pauschalpreis", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pauschalpreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standardofferte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standardofferte", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Besonderheiten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Besonderheiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt_Grund", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Grund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", 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].[Offerten] SET [KundenNr] = @KundenNr, [OffertenNr] = @OffertenNr, ["& _ "FilialenNr] = @FilialenNr, [Pauschalpreis] = @Pauschalpreis, [Standardofferte] ="& _ " @Standardofferte, [Besonderheiten] = @Besonderheiten, [Eingegeben am] = @Eingeg"& _ "eben_am, [Geändert am] = @Geändert_am, [Sachbearbeiter] = @Sachbearbeiter, [Gesp"& _ "errt] = @Gesperrt, [Gesperrt_Datum] = @Gesperrt_Datum, [Gesperrt_Grund] = @Gespe"& _ "rrt_Grund, [Art] = @Art WHERE (([KundenNr] = @Original_KundenNr) AND ([OffertenN"& _ "r] = @Original_OffertenNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "SELECT KundenNr, OffertenNr, FilialenNr, Pauschalpreis, Standardofferte, Besonde"& _ "rheiten, [Eingegeben am], [Geändert am], Sachbearbeiter, SSMA_TimeStamp, Gesperr"& _ "t, Gesperrt_Datum, Gesperrt_Grund, Art FROM Offerten WHERE (KundenNr = @KundenNr"& _ ") AND (OffertenNr = @OffertenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pauschalpreis", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pauschalpreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standardofferte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standardofferte", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Besonderheiten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Besonderheiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt_Grund", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Grund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KundenNr, OffertenNr, FilialenNr, Pauschalpreis, Standardofferte, Besonder"& _ "heiten, [Eingegeben am], [Geändert am], Sachbearbeiter, SSMA_TimeStamp, Gesperrt"& _ ", Gesperrt_Datum, Gesperrt_Grund, Art FROM dbo.Offerten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.OffertenDataTable) 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 VERAGDataSet.OffertenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.OffertenDataTable = New VERAGDataSet.OffertenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.OffertenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Offerten") 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_KundenNr As Integer, ByVal Original_OffertenNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_OffertenNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 KundenNr As Integer, ByVal OffertenNr As Integer, ByVal FilialenNr As Global.System.Nullable(Of Short), ByVal Pauschalpreis As Global.System.Nullable(Of Boolean), ByVal Standardofferte As Global.System.Nullable(Of Boolean), ByVal Besonderheiten As String, ByVal Eingegeben_am As Date, ByVal Geändert_am As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal Gesperrt As Global.System.Nullable(Of Boolean), ByVal Gesperrt_Datum As Global.System.Nullable(Of Date), ByVal Gesperrt_Grund As String, ByVal Art As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(OffertenNr,Integer) If (FilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Pauschalpreis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Pauschalpreis.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Standardofferte.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Standardofferte.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Besonderheiten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Besonderheiten,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Sachbearbeiter,String) End If If (Gesperrt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Gesperrt.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Gesperrt_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Gesperrt_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Gesperrt_Grund Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Gesperrt_Grund,String) End If If (Art Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Art,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 KundenNr As Integer, _ ByVal OffertenNr As Integer, _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal Pauschalpreis As Global.System.Nullable(Of Boolean), _ ByVal Standardofferte As Global.System.Nullable(Of Boolean), _ ByVal Besonderheiten As String, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal Gesperrt As Global.System.Nullable(Of Boolean), _ ByVal Gesperrt_Datum As Global.System.Nullable(Of Date), _ ByVal Gesperrt_Grund As String, _ ByVal Art As String, _ ByVal Original_KundenNr As Integer, _ ByVal Original_OffertenNr As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OffertenNr,Integer) If (FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Pauschalpreis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Pauschalpreis.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Standardofferte.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Standardofferte.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Besonderheiten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Besonderheiten,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Sachbearbeiter,String) End If If (Gesperrt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Gesperrt.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Gesperrt_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Gesperrt_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Gesperrt_Grund Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Gesperrt_Grund,String) End If If (Art Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Art,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_OffertenNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 FilialenNr As Global.System.Nullable(Of Short), ByVal Pauschalpreis As Global.System.Nullable(Of Boolean), ByVal Standardofferte As Global.System.Nullable(Of Boolean), ByVal Besonderheiten As String, ByVal Eingegeben_am As Date, ByVal Geändert_am As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal Gesperrt As Global.System.Nullable(Of Boolean), ByVal Gesperrt_Datum As Global.System.Nullable(Of Date), ByVal Gesperrt_Grund As String, ByVal Art As String, ByVal Original_KundenNr As Integer, ByVal Original_OffertenNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_KundenNr, Original_OffertenNr, FilialenNr, Pauschalpreis, Standardofferte, Besonderheiten, Eingegeben_am, Geändert_am, Sachbearbeiter, Gesperrt, Gesperrt_Datum, Gesperrt_Grund, Art, Original_KundenNr, Original_OffertenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class OffertenpositionenTableAdapter 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 = "Offertenpositionen" tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") tableMapping.ColumnMappings.Add("BGebLeistungsNr", "BGebLeistungsNr") tableMapping.ColumnMappings.Add("BGebProzent", "BGebProzent") tableMapping.ColumnMappings.Add("BGebMinBetrag", "BGebMinBetrag") tableMapping.ColumnMappings.Add("Eingegeben am", "Eingegeben am") tableMapping.ColumnMappings.Add("Geändert am", "Geändert am") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Preisänderung", "Preisänderung") tableMapping.ColumnMappings.Add("PreisänderungProzent", "PreisänderungProzent") tableMapping.ColumnMappings.Add("PreisAlt", "PreisAlt") tableMapping.ColumnMappings.Add("BerechnungsartPosInkludiert", "BerechnungsartPosInkludiert") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Offertenpositionen] WHERE (([KundenNr] = @Original_KundenNr) A"& _ "ND ([OffertenNr] = @Original_OffertenNr) AND ([LeistungsNr] = @Original_Leistung"& _ "sNr) AND ([LeistungsBez] = @Original_LeistungsBez) AND ([SSMA_TimeStamp] = @Orig"& _ "inal_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Offertenpositionen] ([KundenNr], [OffertenNr], [LeistungsNr], "& _ "[LeistungsBez], [BerechnungsartNr], [Preis], [Anzahl], [BGebLeistungsNr], [BGebP"& _ "rozent], [BGebMinBetrag], [Eingegeben am], [Geändert am], [Sachbearbeiter], [Pre"& _ "isänderung], [PreisänderungProzent], [PreisAlt], [BerechnungsartPosInkludiert]) "& _ "VALUES (@KundenNr, @OffertenNr, @LeistungsNr, @LeistungsBez, @BerechnungsartNr, "& _ "@Preis, @Anzahl, @BGebLeistungsNr, @BGebProzent, @BGebMinBetrag, @Eingegeben_am,"& _ " @Geändert_am, @Sachbearbeiter, @Preisänderung, @PreisänderungProzent, @PreisAlt"& _ ", @BerechnungsartPosInkludiert);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KundenNr, OffertenNr, LeistungsNr, Leis"& _ "tungsBez, BerechnungsartNr, Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMin"& _ "Betrag, [Eingegeben am], [Geändert am], Sachbearbeiter, Preisänderung, Preisände"& _ "rungProzent, PreisAlt, BerechnungsartPosInkludiert, SSMA_TimeStamp FROM Offerten"& _ "positionen WHERE (KundenNr = @KundenNr) AND (LeistungsBez = @LeistungsBez) AND ("& _ "LeistungsNr = @LeistungsNr) AND (OffertenNr = @OffertenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebLeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebMinBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebMinBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preisänderung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preisänderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreisänderungProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreisänderungProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreisAlt", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreisAlt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartPosInkludiert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartPosInkludiert", 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].[Offertenpositionen] SET [KundenNr] = @KundenNr, [OffertenNr] = @Off"& _ "ertenNr, [LeistungsNr] = @LeistungsNr, [LeistungsBez] = @LeistungsBez, [Berechnu"& _ "ngsartNr] = @BerechnungsartNr, [Preis] = @Preis, [Anzahl] = @Anzahl, [BGebLeistu"& _ "ngsNr] = @BGebLeistungsNr, [BGebProzent] = @BGebProzent, [BGebMinBetrag] = @BGeb"& _ "MinBetrag, [Eingegeben am] = @Eingegeben_am, [Geändert am] = @Geändert_am, [Sach"& _ "bearbeiter] = @Sachbearbeiter, [Preisänderung] = @Preisänderung, [PreisänderungP"& _ "rozent] = @PreisänderungProzent, [PreisAlt] = @PreisAlt, [BerechnungsartPosInklu"& _ "diert] = @BerechnungsartPosInkludiert WHERE (([KundenNr] = @Original_KundenNr) A"& _ "ND ([OffertenNr] = @Original_OffertenNr) AND ([LeistungsNr] = @Original_Leistung"& _ "sNr) AND ([LeistungsBez] = @Original_LeistungsBez) AND ([SSMA_TimeStamp] = @Orig"& _ "inal_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KundenNr, OffertenNr, LeistungsNr, LeistungsBez, "& _ "BerechnungsartNr, Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, [E"& _ "ingegeben am], [Geändert am], Sachbearbeiter, Preisänderung, PreisänderungProzen"& _ "t, PreisAlt, BerechnungsartPosInkludiert, SSMA_TimeStamp FROM Offertenpositionen"& _ " WHERE (KundenNr = @KundenNr) AND (LeistungsBez = @LeistungsBez) AND (LeistungsN"& _ "r = @LeistungsNr) AND (OffertenNr = @OffertenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebLeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebMinBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebMinBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preisänderung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preisänderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreisänderungProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreisänderungProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreisAlt", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreisAlt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartPosInkludiert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartPosInkludiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KundenNr, OffertenNr, LeistungsNr, LeistungsBez, BerechnungsartNr, Preis, "& _ "Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, [Eingegeben am], [Geändert "& _ "am], Sachbearbeiter, Preisänderung, PreisänderungProzent, PreisAlt, Berechnungsa"& _ "rtPosInkludiert, SSMA_TimeStamp FROM dbo.Offertenpositionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.OffertenpositionenDataTable) 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 VERAGDataSet.OffertenpositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.OffertenpositionenDataTable = New VERAGDataSet.OffertenpositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.OffertenpositionenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Offertenpositionen") 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_KundenNr As Integer, ByVal Original_OffertenNr As Integer, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_OffertenNr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_LeistungsBez,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 KundenNr As Integer, _ ByVal OffertenNr As Integer, _ ByVal LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal Preisänderung As Global.System.Nullable(Of Decimal), _ ByVal PreisänderungProzent As Global.System.Nullable(Of Single), _ ByVal PreisAlt As Global.System.Nullable(Of Decimal), _ ByVal BerechnungsartPosInkludiert As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(OffertenNr,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(LeistungsBez,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(BerechnungsartNr,Short) If (Preis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Preis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Anzahl.Value,Short) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Sachbearbeiter,String) End If If (Preisänderung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(Preisänderung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (PreisänderungProzent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(PreisänderungProzent.Value,Single) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (PreisAlt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(PreisAlt.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (BerechnungsartPosInkludiert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(BerechnungsartPosInkludiert.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(16).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 KundenNr As Integer, _ ByVal OffertenNr As Integer, _ ByVal LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal Preisänderung As Global.System.Nullable(Of Decimal), _ ByVal PreisänderungProzent As Global.System.Nullable(Of Single), _ ByVal PreisAlt As Global.System.Nullable(Of Decimal), _ ByVal BerechnungsartPosInkludiert As Global.System.Nullable(Of Integer), _ ByVal Original_KundenNr As Integer, _ ByVal Original_OffertenNr As Integer, _ ByVal Original_LeistungsNr As Short, _ ByVal Original_LeistungsBez As String, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OffertenNr,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LeistungsBez,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BerechnungsartNr,Short) If (Preis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Preis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Anzahl.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Sachbearbeiter,String) End If If (Preisänderung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Preisänderung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (PreisänderungProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PreisänderungProzent.Value,Single) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (PreisAlt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(PreisAlt.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (BerechnungsartPosInkludiert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(BerechnungsartPosInkludiert.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_OffertenNr,Integer) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_LeistungsBez,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 BerechnungsartNr As Short, _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal Preisänderung As Global.System.Nullable(Of Decimal), _ ByVal PreisänderungProzent As Global.System.Nullable(Of Single), _ ByVal PreisAlt As Global.System.Nullable(Of Decimal), _ ByVal BerechnungsartPosInkludiert As Global.System.Nullable(Of Integer), _ ByVal Original_KundenNr As Integer, _ ByVal Original_OffertenNr As Integer, _ ByVal Original_LeistungsNr As Short, _ ByVal Original_LeistungsBez As String, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_KundenNr, Original_OffertenNr, Original_LeistungsNr, Original_LeistungsBez, BerechnungsartNr, Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, Eingegeben_am, Geändert_am, Sachbearbeiter, Preisänderung, PreisänderungProzent, PreisAlt, BerechnungsartPosInkludiert, Original_KundenNr, Original_OffertenNr, Original_LeistungsNr, Original_LeistungsBez, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class OffertenstammTableAdapter 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 = "Offertenstamm" tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("OffertenBez", "OffertenBez") tableMapping.ColumnMappings.Add("Zahlungsziel", "Zahlungsziel") tableMapping.ColumnMappings.Add("SF", "SF") tableMapping.ColumnMappings.Add("Minusvorzeichen", "Minusvorzeichen") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Offertenstamm] WHERE (([OffertenNr] = @Original_OffertenNr) AN"& _ "D ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Offertenstamm] ([OffertenNr], [OffertenBez], [Zahlungsziel], ["& _ "SF], [Minusvorzeichen]) VALUES (@OffertenNr, @OffertenBez, @Zahlungsziel, @SF, @"& _ "Minusvorzeichen);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OffertenNr, OffertenBez, Zahlungsziel, SF, Minusvorzei"& _ "chen, SSMA_TimeStamp FROM Offertenstamm WHERE (OffertenNr = @OffertenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SF", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Minusvorzeichen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Minusvorzeichen", 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].[Offertenstamm] SET [OffertenNr] = @OffertenNr, [OffertenBez] = @Off"& _ "ertenBez, [Zahlungsziel] = @Zahlungsziel, [SF] = @SF, [Minusvorzeichen] = @Minus"& _ "vorzeichen WHERE (([OffertenNr] = @Original_OffertenNr) AND ([SSMA_TimeStamp] = "& _ "@Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OffertenNr, OffertenBez, Zahlungsziel, SF, M"& _ "inusvorzeichen, SSMA_TimeStamp FROM Offertenstamm WHERE (OffertenNr = @OffertenN"& _ "r)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SF", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Minusvorzeichen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Minusvorzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 OffertenNr, OffertenBez, Zahlungsziel, SF, Minusvorzeichen, SSMA_TimeStamp"& _ " FROM dbo.Offertenstamm" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.OffertenstammDataTable) 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 VERAGDataSet.OffertenstammDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.OffertenstammDataTable = New VERAGDataSet.OffertenstammDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.OffertenstammDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Offertenstamm") 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_OffertenNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_OffertenNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 OffertenNr As Integer, ByVal OffertenBez As String, ByVal Zahlungsziel As Global.System.Nullable(Of Short), ByVal SF As Short, ByVal Minusvorzeichen As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(OffertenNr,Integer) If (OffertenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("OffertenBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(OffertenBez,String) End If If (Zahlungsziel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Zahlungsziel.Value,Short) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(SF,Short) If (Minusvorzeichen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Minusvorzeichen.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(4).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 OffertenNr As Integer, ByVal OffertenBez As String, ByVal Zahlungsziel As Global.System.Nullable(Of Short), ByVal SF As Short, ByVal Minusvorzeichen As Global.System.Nullable(Of Boolean), ByVal Original_OffertenNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OffertenNr,Integer) If (OffertenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("OffertenBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OffertenBez,String) End If If (Zahlungsziel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Zahlungsziel.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SF,Short) If (Minusvorzeichen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Minusvorzeichen.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_OffertenNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 OffertenBez As String, ByVal Zahlungsziel As Global.System.Nullable(Of Short), ByVal SF As Short, ByVal Minusvorzeichen As Global.System.Nullable(Of Boolean), ByVal Original_OffertenNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_OffertenNr, OffertenBez, Zahlungsziel, SF, Minusvorzeichen, Original_OffertenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class PersonalTableAdapter 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 = "Personal" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Name", "Name") tableMapping.ColumnMappings.Add("Kennwort", "Kennwort") tableMapping.ColumnMappings.Add("KassenbuchNr", "KassenbuchNr") tableMapping.ColumnMappings.Add("Supervisor", "Supervisor") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("SBSichtbar", "SBSichtbar") tableMapping.ColumnMappings.Add("BLC", "BLC") tableMapping.ColumnMappings.Add("CMR", "CMR") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("Standard_RKSV_KasseId", "Standard_RKSV_KasseId") tableMapping.ColumnMappings.Add("PasswortChanged", "PasswortChanged") tableMapping.ColumnMappings.Add("isLeihgeldkasse", "isLeihgeldkasse") tableMapping.ColumnMappings.Add("AllowLG", "AllowLG") 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].[Personal] WHERE (([ID] = @Original_ID) AND ([SSMA_TimeStamp] ="& _ " @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Personal] ([Name], [Kennwort], [KassenbuchNr], [Supervisor], ["& _ "Status], [Mandant], [Niederlassung], [SBSichtbar], [BLC], [CMR], [Standard_RKSV_"& _ "KasseId], [PasswortChanged], [isLeihgeldkasse], [AllowLG]) VALUES (@Name, @Kennw"& _ "ort, @KassenbuchNr, @Supervisor, @Status, @Mandant, @Niederlassung, @SBSichtbar,"& _ " @BLC, @CMR, @Standard_RKSV_KasseId, @PasswortChanged, @isLeihgeldkasse, @AllowL"& _ "G);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Name, Kennwort, KassenbuchNr, Supervisor, Status, Mandant, Niede"& _ "rlassung, SBSichtbar, BLC, CMR, SSMA_TimeStamp, Standard_RKSV_KasseId, PasswortC"& _ "hanged, isLeihgeldkasse, AllowLG FROM Personal WHERE (ID = 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.NVarChar, 0, 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("@Kennwort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kennwort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KassenbuchNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KassenbuchNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Supervisor", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Supervisor", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NVarChar, 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("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SBSichtbar", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SBSichtbar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BLC", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BLC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standard_RKSV_KasseId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standard_RKSV_KasseId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PasswortChanged", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PasswortChanged", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@isLeihgeldkasse", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "isLeihgeldkasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AllowLG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllowLG", 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].[Personal] SET [Name] = @Name, [Kennwort] = @Kennwort, [KassenbuchNr"& _ "] = @KassenbuchNr, [Supervisor] = @Supervisor, [Status] = @Status, [Mandant] = @"& _ "Mandant, [Niederlassung] = @Niederlassung, [SBSichtbar] = @SBSichtbar, [BLC] = @"& _ "BLC, [CMR] = @CMR, [Standard_RKSV_KasseId] = @Standard_RKSV_KasseId, [PasswortCh"& _ "anged] = @PasswortChanged, [isLeihgeldkasse] = @isLeihgeldkasse, [AllowLG] = @Al"& _ "lowLG WHERE (([ID] = @Original_ID) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeSt"& _ "amp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Name, Kennwort, KassenbuchNr, Supervisor, Status, Mandant, Ni"& _ "ederlassung, SBSichtbar, BLC, CMR, SSMA_TimeStamp, Standard_RKSV_KasseId, Passwo"& _ "rtChanged, isLeihgeldkasse, AllowLG FROM Personal WHERE (ID = @ID)" 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.NVarChar, 0, 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("@Kennwort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kennwort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KassenbuchNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KassenbuchNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Supervisor", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Supervisor", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NVarChar, 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("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SBSichtbar", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SBSichtbar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BLC", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BLC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CMR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CMR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standard_RKSV_KasseId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standard_RKSV_KasseId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PasswortChanged", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PasswortChanged", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@isLeihgeldkasse", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "isLeihgeldkasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AllowLG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllowLG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, Kennwort, KassenbuchNr, Supervisor, Status, Mandant, Niederlassu"& _ "ng, SBSichtbar, BLC, CMR, SSMA_TimeStamp, Standard_RKSV_KasseId, PasswortChanged"& _ ", isLeihgeldkasse, AllowLG FROM dbo.Personal" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.PersonalDataTable) 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 VERAGDataSet.PersonalDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.PersonalDataTable = New VERAGDataSet.PersonalDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.PersonalDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Personal") 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_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Name As String, ByVal Kennwort As String, ByVal KassenbuchNr As Global.System.Nullable(Of Integer), ByVal Supervisor As Global.System.Nullable(Of Boolean), ByVal Status As String, ByVal Mandant As String, ByVal Niederlassung As String, ByVal SBSichtbar As Global.System.Nullable(Of Boolean), ByVal BLC As String, ByVal CMR As Global.System.Nullable(Of Boolean), ByVal Standard_RKSV_KasseId As Integer, ByVal PasswortChanged As Global.System.Nullable(Of Date), ByVal isLeihgeldkasse As Boolean, ByVal AllowLG As Boolean) As Integer If (Name Is Nothing) Then Throw New Global.System.ArgumentNullException("Name") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Name,String) End If If (Kennwort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Kennwort,String) End If If (KassenbuchNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(KassenbuchNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Supervisor.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Supervisor.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Status Is Nothing) Then Throw New Global.System.ArgumentNullException("Status") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Status,String) End If If (Mandant Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Niederlassung,String) End If If (SBSichtbar.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(SBSichtbar.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (BLC Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(BLC,String) End If If (CMR.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(CMR.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(Standard_RKSV_KasseId,Integer) If (PasswortChanged.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(PasswortChanged.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(12).Value = CType(isLeihgeldkasse,Boolean) Me.Adapter.InsertCommand.Parameters(13).Value = CType(AllowLG,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 Name As String, _ ByVal Kennwort As String, _ ByVal KassenbuchNr As Global.System.Nullable(Of Integer), _ ByVal Supervisor As Global.System.Nullable(Of Boolean), _ ByVal Status As String, _ ByVal Mandant As String, _ ByVal Niederlassung As String, _ ByVal SBSichtbar As Global.System.Nullable(Of Boolean), _ ByVal BLC As String, _ ByVal CMR As Global.System.Nullable(Of Boolean), _ ByVal Standard_RKSV_KasseId As Integer, _ ByVal PasswortChanged As Global.System.Nullable(Of Date), _ ByVal isLeihgeldkasse As Boolean, _ ByVal AllowLG As Boolean, _ ByVal Original_ID As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte, _ ByVal ID As Integer) As Integer If (Name Is Nothing) Then Throw New Global.System.ArgumentNullException("Name") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Name,String) End If If (Kennwort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Kennwort,String) End If If (KassenbuchNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KassenbuchNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Supervisor.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Supervisor.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Status Is Nothing) Then Throw New Global.System.ArgumentNullException("Status") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Status,String) End If If (Mandant Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Niederlassung,String) End If If (SBSichtbar.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SBSichtbar.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (BLC Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(BLC,String) End If If (CMR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CMR.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Standard_RKSV_KasseId,Integer) If (PasswortChanged.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(PasswortChanged.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(isLeihgeldkasse,Boolean) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(AllowLG,Boolean) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SSMA_TimeStamp,Byte()) End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ID,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 Name As String, _ ByVal Kennwort As String, _ ByVal KassenbuchNr As Global.System.Nullable(Of Integer), _ ByVal Supervisor As Global.System.Nullable(Of Boolean), _ ByVal Status As String, _ ByVal Mandant As String, _ ByVal Niederlassung As String, _ ByVal SBSichtbar As Global.System.Nullable(Of Boolean), _ ByVal BLC As String, _ ByVal CMR As Global.System.Nullable(Of Boolean), _ ByVal Standard_RKSV_KasseId As Integer, _ ByVal PasswortChanged As Global.System.Nullable(Of Date), _ ByVal isLeihgeldkasse As Boolean, _ ByVal AllowLG As Boolean, _ ByVal Original_ID As Integer, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Name, Kennwort, KassenbuchNr, Supervisor, Status, Mandant, Niederlassung, SBSichtbar, BLC, CMR, Standard_RKSV_KasseId, PasswortChanged, isLeihgeldkasse, AllowLG, Original_ID, Original_SSMA_TimeStamp, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class RechnungsausgangTableAdapter 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 = "Rechnungsausgang" tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("RechnungsNr", "RechnungsNr") tableMapping.ColumnMappings.Add("RechnungsDatum", "RechnungsDatum") tableMapping.ColumnMappings.Add("Sammelrechnung", "Sammelrechnung") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("BelegartenKz", "BelegartenKz") tableMapping.ColumnMappings.Add("BelegartenBez", "BelegartenBez") tableMapping.ColumnMappings.Add("Vorzeichen", "Vorzeichen") tableMapping.ColumnMappings.Add("BelegNr", "BelegNr") tableMapping.ColumnMappings.Add("AbsenderLandKz", "AbsenderLandKz") tableMapping.ColumnMappings.Add("AbsenderKundenNr", "AbsenderKundenNr") tableMapping.ColumnMappings.Add("AbsenderName 1", "AbsenderName 1") tableMapping.ColumnMappings.Add("AbsenderName 2", "AbsenderName 2") tableMapping.ColumnMappings.Add("AbsenderStraße", "AbsenderStraße") tableMapping.ColumnMappings.Add("AbsenderOrt", "AbsenderOrt") tableMapping.ColumnMappings.Add("AbsenderOffertenNr", "AbsenderOffertenNr") tableMapping.ColumnMappings.Add("EmpfängerLandKz", "EmpfängerLandKz") tableMapping.ColumnMappings.Add("EmpfängerKundenNr", "EmpfängerKundenNr") tableMapping.ColumnMappings.Add("EmpfängerName 1", "EmpfängerName 1") tableMapping.ColumnMappings.Add("EmpfängerName 2", "EmpfängerName 2") tableMapping.ColumnMappings.Add("EmpfängerStraße", "EmpfängerStraße") tableMapping.ColumnMappings.Add("EmpfängerOrt", "EmpfängerOrt") tableMapping.ColumnMappings.Add("EmpfängerOffertenNr", "EmpfängerOffertenNr") tableMapping.ColumnMappings.Add("VermittlerLandKz", "VermittlerLandKz") tableMapping.ColumnMappings.Add("VermittlerKundenNr", "VermittlerKundenNr") tableMapping.ColumnMappings.Add("VermittlerName 1", "VermittlerName 1") tableMapping.ColumnMappings.Add("VermittlerName 2", "VermittlerName 2") tableMapping.ColumnMappings.Add("VermittlerStraße", "VermittlerStraße") tableMapping.ColumnMappings.Add("VermittlerOrt", "VermittlerOrt") tableMapping.ColumnMappings.Add("VermittlerOffertenNr", "VermittlerOffertenNr") tableMapping.ColumnMappings.Add("Rechnung an", "Rechnung an") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("RechnungsLandKz", "RechnungsLandKz") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("RechnungsName 1", "RechnungsName 1") tableMapping.ColumnMappings.Add("RechnungsName 2", "RechnungsName 2") tableMapping.ColumnMappings.Add("RechnungsStraße", "RechnungsStraße") tableMapping.ColumnMappings.Add("RechnungsOrt", "RechnungsOrt") tableMapping.ColumnMappings.Add("RechnungsUstIdKz", "RechnungsUstIdKz") tableMapping.ColumnMappings.Add("RechnungsUstIdNr", "RechnungsUstIdNr") tableMapping.ColumnMappings.Add("RechnungsUstIdGeprüft", "RechnungsUstIdGeprüft") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Kunden-SVS", "Kunden-SVS") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("LKW Kennzeichen", "LKW Kennzeichen") tableMapping.ColumnMappings.Add("WährungsNr", "WährungsNr") tableMapping.ColumnMappings.Add("Wert", "Wert") tableMapping.ColumnMappings.Add("Umrechnungskurs", "Umrechnungskurs") tableMapping.ColumnMappings.Add("Packstücke und Warenbezeichnung", "Packstücke und Warenbezeichnung") tableMapping.ColumnMappings.Add("Vermerk", "Vermerk") tableMapping.ColumnMappings.Add("Anlage 1", "Anlage 1") tableMapping.ColumnMappings.Add("Anlage 2", "Anlage 2") tableMapping.ColumnMappings.Add("Anlage 3", "Anlage 3") tableMapping.ColumnMappings.Add("Anlage 4", "Anlage 4") tableMapping.ColumnMappings.Add("Anlage 5", "Anlage 5") tableMapping.ColumnMappings.Add("Anlage 6", "Anlage 6") tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("Vorlageprovision %", "Vorlageprovision %") tableMapping.ColumnMappings.Add("Kreditaufwendungen %", "Kreditaufwendungen %") tableMapping.ColumnMappings.Add("Besonderheiten", "Besonderheiten") tableMapping.ColumnMappings.Add("Vorkasse", "Vorkasse") tableMapping.ColumnMappings.Add("Text", "Text") tableMapping.ColumnMappings.Add("SteuerpflichtigerGesamtbetrag", "SteuerpflichtigerGesamtbetrag") tableMapping.ColumnMappings.Add("SteuerfreierGesamtbetrag", "SteuerfreierGesamtbetrag") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("DruckDatumZeit", "DruckDatumZeit") tableMapping.ColumnMappings.Add("Abfertigungskosten", "Abfertigungskosten") tableMapping.ColumnMappings.Add("Vorkosten", "Vorkosten") tableMapping.ColumnMappings.Add("Erlös", "Erlös") tableMapping.ColumnMappings.Add("Buchungsjahr", "Buchungsjahr") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Trdin", "Trdin") tableMapping.ColumnMappings.Add("KartenNr", "KartenNr") tableMapping.ColumnMappings.Add("RefFilialenNr", "RefFilialenNr") tableMapping.ColumnMappings.Add("RefAbfertigungsNr", "RefAbfertigungsNr") tableMapping.ColumnMappings.Add("RefUnterNr", "RefUnterNr") tableMapping.ColumnMappings.Add("Notiz", "Notiz") tableMapping.ColumnMappings.Add("Zucker_MRN_Nr", "Zucker_MRN_Nr") tableMapping.ColumnMappings.Add("Zucker_MRN_Datum", "Zucker_MRN_Datum") tableMapping.ColumnMappings.Add("Zucker_Aufschub", "Zucker_Aufschub") tableMapping.ColumnMappings.Add("ReErfZeitstempel", "ReErfZeitstempel") tableMapping.ColumnMappings.Add("Nettozahlungsziel", "Nettozahlungsziel") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("SpeditionsbuchUnterNr", "SpeditionsbuchUnterNr") tableMapping.ColumnMappings.Add("ErfassungsNr", "ErfassungsNr") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("AvisiererKundenNr", "AvisiererKundenNr") tableMapping.ColumnMappings.Add("Avisierer", "Avisierer") tableMapping.ColumnMappings.Add("EMailRechnungstext", "EMailRechnungstext") tableMapping.ColumnMappings.Add("AvisoID", "AvisoID") tableMapping.ColumnMappings.Add("KdAuftragsNr", "KdAuftragsNr") tableMapping.ColumnMappings.Add("Handling", "Handling") tableMapping.ColumnMappings.Add("VorschauID", "VorschauID") tableMapping.ColumnMappings.Add("Grenze", "Grenze") tableMapping.ColumnMappings.Add("RechnungSprache", "RechnungSprache") tableMapping.ColumnMappings.Add("FakturierungsGruppe", "FakturierungsGruppe") tableMapping.ColumnMappings.Add("TextZZ", "TextZZ") tableMapping.ColumnMappings.Add("RechnungsName_AdressZusatz", "RechnungsName_AdressZusatz") tableMapping.ColumnMappings.Add("ForceSteuerschlüssel", "ForceSteuerschlüssel") 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].[Rechnungsausgang] WHERE (([RK_ID] = @Original_RK_ID) AND ((@Is"& _ "Null_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_t"& _ "s)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[Rechnungsausgang] ([FilialenNr], [AbfertigungsNr], [UnterNr], "& _ "[Abfertigungsdatum], [RechnungsNr], [RechnungsDatum], [Sammelrechnung], [Belegar"& _ "tenNr], [BelegartenKz], [BelegartenBez], [Vorzeichen], [BelegNr], [AbsenderLandK"& _ "z], [AbsenderKundenNr], [AbsenderName 1], [AbsenderName 2], [AbsenderStraße], [A"& _ "bsenderOrt], [AbsenderOffertenNr], [EmpfängerLandKz], [EmpfängerKundenNr], [Empf"& _ "ängerName 1], [EmpfängerName 2], [EmpfängerStraße], [EmpfängerOrt], [EmpfängerOf"& _ "fertenNr], [VermittlerLandKz], [VermittlerKundenNr], [VermittlerName 1], [Vermit"& _ "tlerName 2], [VermittlerStraße], [VermittlerOrt], [VermittlerOffertenNr], [Rechn"& _ "ung an], [KundenNrZentrale], [RechnungsLandKz], [RechnungsKundenNr], [RechnungsN"& _ "ame 1], [RechnungsName 2], [RechnungsStraße], [RechnungsOrt], [RechnungsUstIdKz]"& _ ", [RechnungsUstIdNr], [RechnungsUstIdGeprüft], [Lastschrift], [Kunden-SVS], [Ste"& _ "uerschlüssel], [Steuersatz %], [LKW Kennzeichen], [WährungsNr], [Wert], [Umrechn"& _ "ungskurs], [Packstücke und Warenbezeichnung], [Vermerk], [Anlage 1], [Anlage 2],"& _ " [Anlage 3], [Anlage 4], [Anlage 5], [Anlage 6], [OffertenNr], [Vorlageprovision"& _ " %], [Kreditaufwendungen %], [Besonderheiten], [Vorkasse], [Text], [Steuerpflich"& _ "tigerGesamtbetrag], [SteuerfreierGesamtbetrag], [Status], [DruckDatumZeit], [Abf"& _ "ertigungskosten], [Vorkosten], [Erlös], [Buchungsjahr], [Währungscode], [Sachbea"& _ "rbeiter], [Trdin], [KartenNr], [RefFilialenNr], [RefAbfertigungsNr], [RefUnterNr"& _ "], [Notiz], [Zucker_MRN_Nr], [Zucker_MRN_Datum], [Zucker_Aufschub], [ReErfZeitst"& _ "empel], [Nettozahlungsziel], [Firma_ID], [SpeditionsbuchUnterNr], [ErfassungsNr]"& _ ", [AvisiererKundenNr], [Avisierer], [EMailRechnungstext], [AvisoID], [KdAuftrags"& _ "Nr], [Handling], [VorschauID], [Grenze], [RechnungSprache], [FakturierungsGruppe"& _ "], [TextZZ], [RechnungsName_AdressZusatz], [ForceSteuerschlüssel]) VALUES (@Fili"& _ "alenNr, @AbfertigungsNr, @UnterNr, @Abfertigungsdatum, @RechnungsNr, @RechnungsD"& _ "atum, @Sammelrechnung, @BelegartenNr, @BelegartenKz, @BelegartenBez, @Vorzeichen"& _ ", @BelegNr, @AbsenderLandKz, @AbsenderKundenNr, @AbsenderName_1, @AbsenderName_2"& _ ", @AbsenderStraße, @AbsenderOrt, @AbsenderOffertenNr, @EmpfängerLandKz, @Empfäng"& _ "erKundenNr, @EmpfängerName_1, @EmpfängerName_2, @EmpfängerStraße, @EmpfängerOrt,"& _ " @EmpfängerOffertenNr, @VermittlerLandKz, @VermittlerKundenNr, @VermittlerName_1"& _ ", @VermittlerName_2, @VermittlerStraße, @VermittlerOrt, @VermittlerOffertenNr, @"& _ "Rechnung_an, @KundenNrZentrale, @RechnungsLandKz, @RechnungsKundenNr, @Rechnungs"& _ "Name_1, @RechnungsName_2, @RechnungsStraße, @RechnungsOrt, @RechnungsUstIdKz, @R"& _ "echnungsUstIdNr, @RechnungsUstIdGeprüft, @Lastschrift, @p1, @Steuerschlüssel, @p"& _ "3, @LKW_Kennzeichen, @WährungsNr, @Wert, @Umrechnungskurs, @Packstücke_und_Waren"& _ "bezeichnung, @Vermerk, @Anlage_1, @Anlage_2, @Anlage_3, @Anlage_4, @Anlage_5, @A"& _ "nlage_6, @OffertenNr, @p5, @p8, @Besonderheiten, @Vorkasse, @Text, @Steuerpflich"& _ "tigerGesamtbetrag, @SteuerfreierGesamtbetrag, @Status, @DruckDatumZeit, @Abferti"& _ "gungskosten, @Vorkosten, @Erlös, @Buchungsjahr, @Währungscode, @Sachbearbeiter, "& _ "@Trdin, @KartenNr, @RefFilialenNr, @RefAbfertigungsNr, @RefUnterNr, @Notiz, @Zuc"& _ "ker_MRN_Nr, @Zucker_MRN_Datum, @Zucker_Aufschub, @ReErfZeitstempel, @Nettozahlun"& _ "gsziel, @Firma_ID, @SpeditionsbuchUnterNr, @ErfassungsNr, @AvisiererKundenNr, @A"& _ "visierer, @EMailRechnungstext, @AvisoID, @KdAuftragsNr, @Handling, @VorschauID, "& _ "@Grenze, @RechnungSprache, @FakturierungsGruppe, @TextZZ, @RechnungsName_AdressZ"& _ "usatz, @ForceSteuerschlüssel);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RK_ID, FilialenNr, AbfertigungsNr, UnterN"& _ "r, Abfertigungsdatum, RechnungsNr, RechnungsDatum, Sammelrechnung, BelegartenNr,"& _ " BelegartenKz, BelegartenBez, Vorzeichen, BelegNr, AbsenderLandKz, AbsenderKunde"& _ "nNr, [AbsenderName 1], [AbsenderName 2], AbsenderStraße, AbsenderOrt, AbsenderOf"& _ "fertenNr, EmpfängerLandKz, EmpfängerKundenNr, [EmpfängerName 1], [EmpfängerName "& _ "2], EmpfängerStraße, EmpfängerOrt, EmpfängerOffertenNr, VermittlerLandKz, Vermit"& _ "tlerKundenNr, [VermittlerName 1], [VermittlerName 2], VermittlerStraße, Vermittl"& _ "erOrt, VermittlerOffertenNr, [Rechnung an], KundenNrZentrale, RechnungsLandKz, R"& _ "echnungsKundenNr, [RechnungsName 1], [RechnungsName 2], RechnungsStraße, Rechnun"& _ "gsOrt, RechnungsUstIdKz, RechnungsUstIdNr, RechnungsUstIdGeprüft, Lastschrift, ["& _ "Kunden-SVS], Steuerschlüssel, [Steuersatz %], [LKW Kennzeichen], WährungsNr, Wer"& _ "t, Umrechnungskurs, [Packstücke und Warenbezeichnung], Vermerk, [Anlage 1], [Anl"& _ "age 2], [Anlage 3], [Anlage 4], [Anlage 5], [Anlage 6], OffertenNr, [Vorlageprov"& _ "ision %], [Kreditaufwendungen %], Besonderheiten, Vorkasse, Text, Steuerpflichti"& _ "gerGesamtbetrag, SteuerfreierGesamtbetrag, Status, DruckDatumZeit, Abfertigungsk"& _ "osten, Vorkosten, Erlös, Buchungsjahr, Währungscode, Sachbearbeiter, Trdin, Kart"& _ "enNr, RefFilialenNr, RefAbfertigungsNr, RefUnterNr, Notiz, Zucker_MRN_Nr, Zucker"& _ "_MRN_Datum, Zucker_Aufschub, ReErfZeitstempel, Nettozahlungsziel, Firma_ID, Sped"& _ "itionsbuchUnterNr, ErfassungsNr, upsize_ts, AvisiererKundenNr, Avisierer, EMailR"& _ "echnungstext, AvisoID, KdAuftragsNr, Handling, VorschauID, Grenze, RechnungSprac"& _ "he, FakturierungsGruppe, TextZZ, RechnungsName_AdressZusatz, ForceSteuerschlüsse"& _ "l FROM Rechnungsausgang WHERE (RK_ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sammelrechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderLandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderLandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderName_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderName 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderName_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderName 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderStraße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderStraße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderOrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderOffertenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerLandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerLandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerName_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerName 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerName_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerName 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerStraße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerStraße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerOrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerOffertenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerLandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerLandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerName_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerName 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerName_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerName 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerStraße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerStraße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerOrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerOffertenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnung_an", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnung an", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrZentrale", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrZentrale", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsLandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsLandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsName_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsName 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsName_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsName 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsStraße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsStraße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsOrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsUstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsUstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdGeprüft", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsUstIdGeprüft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lastschrift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden-SVS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p3", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WährungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Wert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Wert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umrechnungskurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umrechnungskurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Packstücke_und_Warenbezeichnung", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Packstücke und Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_6", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p5", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorlageprovision %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p8", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreditaufwendungen %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Besonderheiten", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Besonderheiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorkasse", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorkasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Text", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerGesamtbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerGesamtbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierGesamtbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierGesamtbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.SmallInt, 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("@DruckDatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DruckDatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungskosten", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungskosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorkosten", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorkosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Erlös", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erlös", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Trdin", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Trdin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KartenNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefFilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefFilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefAbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefAbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefUnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefUnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Notiz", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Notiz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_MRN_Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_MRN_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_Aufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_Aufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReErfZeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReErfZeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nettozahlungsziel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nettozahlungsziel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SpeditionsbuchUnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SpeditionsbuchUnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErfassungsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErfassungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisiererKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisiererKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Avisierer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Avisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMailRechnungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMailRechnungstext", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Handling", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Handling", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VorschauID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VorschauID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Grenze", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Grenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungSprache", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungSprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FakturierungsGruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FakturierungsGruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TextZZ", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TextZZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsName_AdressZusatz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsName_AdressZusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ForceSteuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ForceSteuerschlüssel", 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].[Rechnungsausgang] SET [FilialenNr] = @FilialenNr, [AbfertigungsNr] "& _ "= @AbfertigungsNr, [UnterNr] = @UnterNr, [Abfertigungsdatum] = @Abfertigungsdatu"& _ "m, [RechnungsNr] = @RechnungsNr, [RechnungsDatum] = @RechnungsDatum, [Sammelrech"& _ "nung] = @Sammelrechnung, [BelegartenNr] = @BelegartenNr, [BelegartenKz] = @Beleg"& _ "artenKz, [BelegartenBez] = @BelegartenBez, [Vorzeichen] = @Vorzeichen, [BelegNr]"& _ " = @BelegNr, [AbsenderLandKz] = @AbsenderLandKz, [AbsenderKundenNr] = @AbsenderK"& _ "undenNr, [AbsenderName 1] = @AbsenderName_1, [AbsenderName 2] = @AbsenderName_2,"& _ " [AbsenderStraße] = @AbsenderStraße, [AbsenderOrt] = @AbsenderOrt, [AbsenderOffe"& _ "rtenNr] = @AbsenderOffertenNr, [EmpfängerLandKz] = @EmpfängerLandKz, [EmpfängerK"& _ "undenNr] = @EmpfängerKundenNr, [EmpfängerName 1] = @EmpfängerName_1, [EmpfängerN"& _ "ame 2] = @EmpfängerName_2, [EmpfängerStraße] = @EmpfängerStraße, [EmpfängerOrt] "& _ "= @EmpfängerOrt, [EmpfängerOffertenNr] = @EmpfängerOffertenNr, [VermittlerLandKz"& _ "] = @VermittlerLandKz, [VermittlerKundenNr] = @VermittlerKundenNr, [VermittlerNa"& _ "me 1] = @VermittlerName_1, [VermittlerName 2] = @VermittlerName_2, [VermittlerSt"& _ "raße] = @VermittlerStraße, [VermittlerOrt] = @VermittlerOrt, [VermittlerOfferten"& _ "Nr] = @VermittlerOffertenNr, [Rechnung an] = @Rechnung_an, [KundenNrZentrale] = "& _ "@KundenNrZentrale, [RechnungsLandKz] = @RechnungsLandKz, [RechnungsKundenNr] = @"& _ "RechnungsKundenNr, [RechnungsName 1] = @RechnungsName_1, [RechnungsName 2] = @Re"& _ "chnungsName_2, [RechnungsStraße] = @RechnungsStraße, [RechnungsOrt] = @Rechnungs"& _ "Ort, [RechnungsUstIdKz] = @RechnungsUstIdKz, [RechnungsUstIdNr] = @RechnungsUstI"& _ "dNr, [RechnungsUstIdGeprüft] = @RechnungsUstIdGeprüft, [Lastschrift] = @Lastschr"& _ "ift, [Kunden-SVS] = @p1, [Steuerschlüssel] = @Steuerschlüssel, [Steuersatz %] = "& _ "@p3, [LKW Kennzeichen] = @LKW_Kennzeichen, [WährungsNr] = @WährungsNr, [Wert] = "& _ "@Wert, [Umrechnungskurs] = @Umrechnungskurs, [Packstücke und Warenbezeichnung] ="& _ " @Packstücke_und_Warenbezeichnung, [Vermerk] = @Vermerk, [Anlage 1] = @Anlage_1,"& _ " [Anlage 2] = @Anlage_2, [Anlage 3] = @Anlage_3, [Anlage 4] = @Anlage_4, [Anlage"& _ " 5] = @Anlage_5, [Anlage 6] = @Anlage_6, [OffertenNr] = @OffertenNr, [Vorlagepro"& _ "vision %] = @p5, [Kreditaufwendungen %] = @p8, [Besonderheiten] = @Besonderheite"& _ "n, [Vorkasse] = @Vorkasse, [Text] = @Text, [SteuerpflichtigerGesamtbetrag] = @St"& _ "euerpflichtigerGesamtbetrag, [SteuerfreierGesamtbetrag] = @SteuerfreierGesamtbet"& _ "rag, [Status] = @Status, [DruckDatumZeit] = @DruckDatumZeit, [Abfertigungskosten"& _ "] = @Abfertigungskosten, [Vorkosten] = @Vorkosten, [Erlös] = @Erlös, [Buchungsja"& _ "hr] = @Buchungsjahr, [Währungscode] = @Währungscode, [Sachbearbeiter] = @Sachbea"& _ "rbeiter, [Trdin] = @Trdin, [KartenNr] = @KartenNr, [RefFilialenNr] = @RefFiliale"& _ "nNr, [RefAbfertigungsNr] = @RefAbfertigungsNr, [RefUnterNr] = @RefUnterNr, [Noti"& _ "z] = @Notiz, [Zucker_MRN_Nr] = @Zucker_MRN_Nr, [Zucker_MRN_Datum] = @Zucker_MRN_"& _ "Datum, [Zucker_Aufschub] = @Zucker_Aufschub, [ReErfZeitstempel] = @ReErfZeitstem"& _ "pel, [Nettozahlungsziel] = @Nettozahlungsziel, [Firma_ID] = @Firma_ID, [Speditio"& _ "nsbuchUnterNr] = @SpeditionsbuchUnterNr, [ErfassungsNr] = @ErfassungsNr, [Avisie"& _ "rerKundenNr] = @AvisiererKundenNr, [Avisierer] = @Avisierer, [EMailRechnungstext"& _ "] = @EMailRechnungstext, [AvisoID] = @AvisoID, [KdAuftragsNr] = @KdAuftragsNr, ["& _ "Handling] = @Handling, [VorschauID] = @VorschauID, [Grenze] = @Grenze, [Rechnung"& _ "Sprache] = @RechnungSprache, [FakturierungsGruppe] = @FakturierungsGruppe, [Text"& _ "ZZ] = @TextZZ, [RechnungsName_AdressZusatz] = @RechnungsName_AdressZusatz, [Forc"& _ "eSteuerschlüssel] = @ForceSteuerschlüssel WHERE (([RK_ID] = @Original_RK_ID) AND"& _ " ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_up"& _ "size_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RK_ID, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatu"& _ "m, RechnungsNr, RechnungsDatum, Sammelrechnung, BelegartenNr, BelegartenKz, Bele"& _ "gartenBez, Vorzeichen, BelegNr, AbsenderLandKz, AbsenderKundenNr, [AbsenderName "& _ "1], [AbsenderName 2], AbsenderStraße, AbsenderOrt, AbsenderOffertenNr, Empfänger"& _ "LandKz, EmpfängerKundenNr, [EmpfängerName 1], [EmpfängerName 2], EmpfängerStraße"& _ ", EmpfängerOrt, EmpfängerOffertenNr, VermittlerLandKz, VermittlerKundenNr, [Verm"& _ "ittlerName 1], [VermittlerName 2], VermittlerStraße, VermittlerOrt, VermittlerOf"& _ "fertenNr, [Rechnung an], KundenNrZentrale, RechnungsLandKz, RechnungsKundenNr, ["& _ "RechnungsName 1], [RechnungsName 2], RechnungsStraße, RechnungsOrt, RechnungsUst"& _ "IdKz, RechnungsUstIdNr, RechnungsUstIdGeprüft, Lastschrift, [Kunden-SVS], Steuer"& _ "schlüssel, [Steuersatz %], [LKW Kennzeichen], WährungsNr, Wert, Umrechnungskurs,"& _ " [Packstücke und Warenbezeichnung], Vermerk, [Anlage 1], [Anlage 2], [Anlage 3],"& _ " [Anlage 4], [Anlage 5], [Anlage 6], OffertenNr, [Vorlageprovision %], [Kreditau"& _ "fwendungen %], Besonderheiten, Vorkasse, Text, SteuerpflichtigerGesamtbetrag, St"& _ "euerfreierGesamtbetrag, Status, DruckDatumZeit, Abfertigungskosten, Vorkosten, E"& _ "rlös, Buchungsjahr, Währungscode, Sachbearbeiter, Trdin, KartenNr, RefFilialenNr"& _ ", RefAbfertigungsNr, RefUnterNr, Notiz, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_"& _ "Aufschub, ReErfZeitstempel, Nettozahlungsziel, Firma_ID, SpeditionsbuchUnterNr, "& _ "ErfassungsNr, upsize_ts, AvisiererKundenNr, Avisierer, EMailRechnungstext, Aviso"& _ "ID, KdAuftragsNr, Handling, VorschauID, Grenze, RechnungSprache, FakturierungsGr"& _ "uppe, TextZZ, RechnungsName_AdressZusatz, ForceSteuerschlüssel FROM Rechnungsaus"& _ "gang WHERE (RK_ID = @RK_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sammelrechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderLandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderLandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderName_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderName 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderName_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderName 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderStraße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderStraße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderOrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderOffertenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerLandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerLandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerName_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerName 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerName_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerName 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerStraße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerStraße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerOrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerOffertenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerLandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerLandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerName_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerName 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerName_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerName 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerStraße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerStraße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerOrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerOffertenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnung_an", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnung an", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrZentrale", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrZentrale", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsLandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsLandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsName_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsName 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsName_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsName 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsStraße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsStraße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsOrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsUstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsUstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdGeprüft", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsUstIdGeprüft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lastschrift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden-SVS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p3", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WährungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Wert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Wert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umrechnungskurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umrechnungskurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Packstücke_und_Warenbezeichnung", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Packstücke und Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage_6", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anlage 6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p5", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorlageprovision %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p8", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreditaufwendungen %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Besonderheiten", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Besonderheiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorkasse", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorkasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Text", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerGesamtbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerGesamtbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierGesamtbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierGesamtbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.SmallInt, 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("@DruckDatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DruckDatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungskosten", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungskosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorkosten", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorkosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Erlös", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erlös", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Trdin", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Trdin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KartenNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefFilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefFilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefAbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefAbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefUnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefUnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Notiz", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Notiz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_MRN_Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_MRN_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_Aufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_Aufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReErfZeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReErfZeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nettozahlungsziel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nettozahlungsziel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SpeditionsbuchUnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SpeditionsbuchUnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErfassungsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErfassungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisiererKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisiererKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Avisierer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Avisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMailRechnungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMailRechnungstext", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Handling", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Handling", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VorschauID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VorschauID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Grenze", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Grenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungSprache", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungSprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FakturierungsGruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FakturierungsGruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TextZZ", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TextZZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsName_AdressZusatz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsName_AdressZusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ForceSteuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ForceSteuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 RK_ID, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, RechnungsNr"& _ ", RechnungsDatum, Sammelrechnung, BelegartenNr, BelegartenKz, BelegartenBez, Vor"& _ "zeichen, BelegNr, AbsenderLandKz, AbsenderKundenNr, [AbsenderName 1], [AbsenderN"& _ "ame 2], AbsenderStraße, AbsenderOrt, AbsenderOffertenNr, EmpfängerLandKz, Empfän"& _ "gerKundenNr, [EmpfängerName 1], [EmpfängerName 2], EmpfängerStraße, EmpfängerOrt"& _ ", EmpfängerOffertenNr, VermittlerLandKz, VermittlerKundenNr, [VermittlerName 1],"& _ " [VermittlerName 2], VermittlerStraße, VermittlerOrt, VermittlerOffertenNr, [Rec"& _ "hnung an], KundenNrZentrale, RechnungsLandKz, RechnungsKundenNr, [RechnungsName "& _ "1], [RechnungsName 2], RechnungsStraße, RechnungsOrt, RechnungsUstIdKz, Rechnung"& _ "sUstIdNr, RechnungsUstIdGeprüft, Lastschrift, [Kunden-SVS], Steuerschlüssel, [St"& _ "euersatz %], [LKW Kennzeichen], WährungsNr, Wert, Umrechnungskurs, [Packstücke u"& _ "nd Warenbezeichnung], Vermerk, [Anlage 1], [Anlage 2], [Anlage 3], [Anlage 4], ["& _ "Anlage 5], [Anlage 6], OffertenNr, [Vorlageprovision %], [Kreditaufwendungen %],"& _ " Besonderheiten, Vorkasse, Text, SteuerpflichtigerGesamtbetrag, SteuerfreierGesa"& _ "mtbetrag, Status, DruckDatumZeit, Abfertigungskosten, Vorkosten, Erlös, Buchungs"& _ "jahr, Währungscode, Sachbearbeiter, Trdin, KartenNr, RefFilialenNr, RefAbfertigu"& _ "ngsNr, RefUnterNr, Notiz, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, ReEr"& _ "fZeitstempel, Nettozahlungsziel, Firma_ID, SpeditionsbuchUnterNr, ErfassungsNr, "& _ "upsize_ts, AvisiererKundenNr, Avisierer, EMailRechnungstext, AvisoID, KdAuftrags"& _ "Nr, Handling, VorschauID, Grenze, RechnungSprache, FakturierungsGruppe, TextZZ, "& _ "RechnungsName_AdressZusatz, ForceSteuerschlüssel FROM dbo.Rechnungsausgang" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.RechnungsausgangDataTable) 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 VERAGDataSet.RechnungsausgangDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.RechnungsausgangDataTable = New VERAGDataSet.RechnungsausgangDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.RechnungsausgangDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Rechnungsausgang") 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_RK_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_RK_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal RechnungsNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Sammelrechnung As Short, _ ByVal BelegartenNr As Short, _ ByVal BelegartenKz As String, _ ByVal BelegartenBez As String, _ ByVal Vorzeichen As String, _ ByVal BelegNr As String, _ ByVal AbsenderLandKz As String, _ ByVal AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal AbsenderName_1 As String, _ ByVal AbsenderName_2 As String, _ ByVal AbsenderStraße As String, _ ByVal AbsenderOrt As String, _ ByVal AbsenderOffertenNr As Global.System.Nullable(Of Short), _ ByVal EmpfängerLandKz As String, _ ByVal EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerName_1 As String, _ ByVal EmpfängerName_2 As String, _ ByVal EmpfängerStraße As String, _ ByVal EmpfängerOrt As String, _ ByVal EmpfängerOffertenNr As Global.System.Nullable(Of Short), _ ByVal VermittlerLandKz As String, _ ByVal VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerName_1 As String, _ ByVal VermittlerName_2 As String, _ ByVal VermittlerStraße As String, _ ByVal VermittlerOrt As String, _ ByVal VermittlerOffertenNr As Global.System.Nullable(Of Short), _ ByVal Rechnung_an As Short, _ ByVal KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal RechnungsLandKz As String, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsName_1 As String, _ ByVal RechnungsName_2 As String, _ ByVal RechnungsStraße As String, _ ByVal RechnungsOrt As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal RechnungsUstIdGeprüft As Global.System.Nullable(Of Date), _ ByVal Lastschrift As Boolean, _ ByVal p1 As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal p3 As Single, _ ByVal LKW_Kennzeichen As String, _ ByVal WährungsNr As Global.System.Nullable(Of Short), _ ByVal Wert As Global.System.Nullable(Of Decimal), _ ByVal Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal Packstücke_und_Warenbezeichnung As String, _ ByVal Vermerk As String, _ ByVal Anlage_1 As String, _ ByVal Anlage_2 As String, _ ByVal Anlage_3 As String, _ ByVal Anlage_4 As String, _ ByVal Anlage_5 As String, _ ByVal Anlage_6 As String, _ ByVal OffertenNr As Global.System.Nullable(Of Short), _ ByVal p5 As Global.System.Nullable(Of Single), _ ByVal p8 As Global.System.Nullable(Of Single), _ ByVal Besonderheiten As String, _ ByVal Vorkasse As Boolean, _ ByVal Text As String, _ ByVal SteuerpflichtigerGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal Status As Global.System.Nullable(Of Short), _ ByVal DruckDatumZeit As Global.System.Nullable(Of Date), _ ByVal Abfertigungskosten As Global.System.Nullable(Of Decimal), _ ByVal Vorkosten As Global.System.Nullable(Of Decimal), _ ByVal Erlös As Global.System.Nullable(Of Decimal), _ ByVal Buchungsjahr As Global.System.Nullable(Of Short), _ ByVal Währungscode As String, _ ByVal Sachbearbeiter As String, _ ByVal Trdin As Boolean, _ ByVal KartenNr As String, _ ByVal RefFilialenNr As Global.System.Nullable(Of Short), _ ByVal RefAbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal RefUnterNr As Global.System.Nullable(Of Short), _ ByVal Notiz As String, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Global.System.Nullable(Of Date), _ ByVal Zucker_Aufschub As String, _ ByVal ReErfZeitstempel As Global.System.Nullable(Of Date), _ ByVal Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal Firma_ID As Short, _ ByVal SpeditionsbuchUnterNr As Global.System.Nullable(Of Short), _ ByVal ErfassungsNr As String, _ ByVal AvisiererKundenNr As Global.System.Nullable(Of Integer), _ ByVal Avisierer As String, _ ByVal EMailRechnungstext As String, _ ByVal AvisoID As Global.System.Nullable(Of Integer), _ ByVal KdAuftragsNr As String, _ ByVal Handling As String, _ ByVal VorschauID As String, _ ByVal Grenze As String, _ ByVal RechnungSprache As String, _ ByVal FakturierungsGruppe As String, _ ByVal TextZZ As String, _ ByVal RechnungsName_AdressZusatz As String, _ ByVal ForceSteuerschlüssel As Global.System.Nullable(Of Short)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(FilialenNr,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(AbfertigungsNr,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(UnterNr,Short) Me.Adapter.InsertCommand.Parameters(3).Value = CType(Abfertigungsdatum,Date) If (RechnungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(RechnungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(Sammelrechnung,Short) Me.Adapter.InsertCommand.Parameters(7).Value = CType(BelegartenNr,Short) If (BelegartenKz Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartenKz") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(BelegartenKz,String) End If If (BelegartenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartenBez") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(BelegartenBez,String) End If If (Vorzeichen Is Nothing) Then Throw New Global.System.ArgumentNullException("Vorzeichen") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Vorzeichen,String) End If If (BelegNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(BelegNr,String) End If If (AbsenderLandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(AbsenderLandKz,String) End If If (AbsenderKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(AbsenderKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (AbsenderName_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(AbsenderName_1,String) End If If (AbsenderName_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(AbsenderName_2,String) End If If (AbsenderStraße Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(AbsenderStraße,String) End If If (AbsenderOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(AbsenderOrt,String) End If If (AbsenderOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(AbsenderOffertenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (EmpfängerLandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(EmpfängerLandKz,String) End If If (EmpfängerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(EmpfängerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (EmpfängerName_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(EmpfängerName_1,String) End If If (EmpfängerName_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(EmpfängerName_2,String) End If If (EmpfängerStraße Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(EmpfängerStraße,String) End If If (EmpfängerOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(EmpfängerOrt,String) End If If (EmpfängerOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(EmpfängerOffertenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (VermittlerLandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(VermittlerLandKz,String) End If If (VermittlerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(VermittlerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (VermittlerName_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(VermittlerName_1,String) End If If (VermittlerName_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(VermittlerName_2,String) End If If (VermittlerStraße Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(VermittlerStraße,String) End If If (VermittlerOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(VermittlerOrt,String) End If If (VermittlerOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(VermittlerOffertenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(33).Value = CType(Rechnung_an,Short) If (KundenNrZentrale.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(KundenNrZentrale.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (RechnungsLandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(RechnungsLandKz,String) End If Me.Adapter.InsertCommand.Parameters(36).Value = CType(RechnungsKundenNr,Integer) If (RechnungsName_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(RechnungsName_1,String) End If If (RechnungsName_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(RechnungsName_2,String) End If If (RechnungsStraße Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(RechnungsStraße,String) End If If (RechnungsOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(RechnungsOrt,String) End If If (RechnungsUstIdKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(RechnungsUstIdKz,String) End If If (RechnungsUstIdNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(RechnungsUstIdNr,String) End If If (RechnungsUstIdGeprüft.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(RechnungsUstIdGeprüft.Value,Date) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(44).Value = CType(Lastschrift,Boolean) Me.Adapter.InsertCommand.Parameters(45).Value = CType(p1,Boolean) Me.Adapter.InsertCommand.Parameters(46).Value = CType(Steuerschlüssel,Short) Me.Adapter.InsertCommand.Parameters(47).Value = CType(p3,Single) If (LKW_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(LKW_Kennzeichen,String) End If If (WährungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(49).Value = CType(WährungsNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Wert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(50).Value = CType(Wert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Umrechnungskurs.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(Umrechnungskurs.Value,Double) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Packstücke_und_Warenbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(Packstücke_und_Warenbezeichnung,String) End If If (Vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(Vermerk,String) End If If (Anlage_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(Anlage_1,String) End If If (Anlage_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(Anlage_2,String) End If If (Anlage_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(Anlage_3,String) End If If (Anlage_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(Anlage_4,String) End If If (Anlage_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(Anlage_5,String) End If If (Anlage_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(Anlage_6,String) End If If (OffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(60).Value = CType(OffertenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (p5.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(61).Value = CType(p5.Value,Single) Else Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value End If If (p8.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(62).Value = CType(p8.Value,Single) Else Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (Besonderheiten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(Besonderheiten,String) End If Me.Adapter.InsertCommand.Parameters(64).Value = CType(Vorkasse,Boolean) If (Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(Text,String) End If If (SteuerpflichtigerGesamtbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(66).Value = CType(SteuerpflichtigerGesamtbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (SteuerfreierGesamtbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(67).Value = CType(SteuerfreierGesamtbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(68).Value = CType(Status.Value,Short) Else Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (DruckDatumZeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(69).Value = CType(DruckDatumZeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (Abfertigungskosten.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(70).Value = CType(Abfertigungskosten.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Vorkosten.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(71).Value = CType(Vorkosten.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Erlös.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(72).Value = CType(Erlös.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value End If If (Buchungsjahr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(73).Value = CType(Buchungsjahr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(Währungscode,String) End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(Sachbearbeiter,String) End If Me.Adapter.InsertCommand.Parameters(76).Value = CType(Trdin,Boolean) If (KartenNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(KartenNr,String) End If If (RefFilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(78).Value = CType(RefFilialenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (RefAbfertigungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(79).Value = CType(RefAbfertigungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (RefUnterNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(80).Value = CType(RefUnterNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value End If If (Notiz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(Notiz,String) End If If (Zucker_MRN_Nr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(Zucker_MRN_Nr,String) End If If (Zucker_MRN_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(83).Value = CType(Zucker_MRN_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (Zucker_Aufschub Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(Zucker_Aufschub,String) End If If (ReErfZeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(85).Value = CType(ReErfZeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Nettozahlungsziel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(86).Value = CType(Nettozahlungsziel.Value,Short) Else Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(87).Value = CType(Firma_ID,Short) If (SpeditionsbuchUnterNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(88).Value = CType(SpeditionsbuchUnterNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (ErfassungsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(ErfassungsNr,String) End If If (AvisiererKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(90).Value = CType(AvisiererKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value End If If (Avisierer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(Avisierer,String) End If If (EMailRechnungstext Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(EMailRechnungstext,String) End If If (AvisoID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(93).Value = CType(AvisoID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value End If If (KdAuftragsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(KdAuftragsNr,String) End If If (Handling Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(Handling,String) End If If (VorschauID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(VorschauID,String) End If If (Grenze Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(Grenze,String) End If If (RechnungSprache Is Nothing) Then Throw New Global.System.ArgumentNullException("RechnungSprache") Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(RechnungSprache,String) End If If (FakturierungsGruppe Is Nothing) Then Throw New Global.System.ArgumentNullException("FakturierungsGruppe") Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(FakturierungsGruppe,String) End If If (TextZZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(100).Value = CType(TextZZ,String) End If If (RechnungsName_AdressZusatz Is Nothing) Then Throw New Global.System.ArgumentNullException("RechnungsName_AdressZusatz") Else Me.Adapter.InsertCommand.Parameters(101).Value = CType(RechnungsName_AdressZusatz,String) End If If (ForceSteuerschlüssel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(102).Value = CType(ForceSteuerschlüssel.Value,Short) Else Me.Adapter.InsertCommand.Parameters(102).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 FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal RechnungsNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Sammelrechnung As Short, _ ByVal BelegartenNr As Short, _ ByVal BelegartenKz As String, _ ByVal BelegartenBez As String, _ ByVal Vorzeichen As String, _ ByVal BelegNr As String, _ ByVal AbsenderLandKz As String, _ ByVal AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal AbsenderName_1 As String, _ ByVal AbsenderName_2 As String, _ ByVal AbsenderStraße As String, _ ByVal AbsenderOrt As String, _ ByVal AbsenderOffertenNr As Global.System.Nullable(Of Short), _ ByVal EmpfängerLandKz As String, _ ByVal EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerName_1 As String, _ ByVal EmpfängerName_2 As String, _ ByVal EmpfängerStraße As String, _ ByVal EmpfängerOrt As String, _ ByVal EmpfängerOffertenNr As Global.System.Nullable(Of Short), _ ByVal VermittlerLandKz As String, _ ByVal VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerName_1 As String, _ ByVal VermittlerName_2 As String, _ ByVal VermittlerStraße As String, _ ByVal VermittlerOrt As String, _ ByVal VermittlerOffertenNr As Global.System.Nullable(Of Short), _ ByVal Rechnung_an As Short, _ ByVal KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal RechnungsLandKz As String, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsName_1 As String, _ ByVal RechnungsName_2 As String, _ ByVal RechnungsStraße As String, _ ByVal RechnungsOrt As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal RechnungsUstIdGeprüft As Global.System.Nullable(Of Date), _ ByVal Lastschrift As Boolean, _ ByVal p1 As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal p3 As Single, _ ByVal LKW_Kennzeichen As String, _ ByVal WährungsNr As Global.System.Nullable(Of Short), _ ByVal Wert As Global.System.Nullable(Of Decimal), _ ByVal Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal Packstücke_und_Warenbezeichnung As String, _ ByVal Vermerk As String, _ ByVal Anlage_1 As String, _ ByVal Anlage_2 As String, _ ByVal Anlage_3 As String, _ ByVal Anlage_4 As String, _ ByVal Anlage_5 As String, _ ByVal Anlage_6 As String, _ ByVal OffertenNr As Global.System.Nullable(Of Short), _ ByVal p5 As Global.System.Nullable(Of Single), _ ByVal p8 As Global.System.Nullable(Of Single), _ ByVal Besonderheiten As String, _ ByVal Vorkasse As Boolean, _ ByVal Text As String, _ ByVal SteuerpflichtigerGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal Status As Global.System.Nullable(Of Short), _ ByVal DruckDatumZeit As Global.System.Nullable(Of Date), _ ByVal Abfertigungskosten As Global.System.Nullable(Of Decimal), _ ByVal Vorkosten As Global.System.Nullable(Of Decimal), _ ByVal Erlös As Global.System.Nullable(Of Decimal), _ ByVal Buchungsjahr As Global.System.Nullable(Of Short), _ ByVal Währungscode As String, _ ByVal Sachbearbeiter As String, _ ByVal Trdin As Boolean, _ ByVal KartenNr As String, _ ByVal RefFilialenNr As Global.System.Nullable(Of Short), _ ByVal RefAbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal RefUnterNr As Global.System.Nullable(Of Short), _ ByVal Notiz As String, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Global.System.Nullable(Of Date), _ ByVal Zucker_Aufschub As String, _ ByVal ReErfZeitstempel As Global.System.Nullable(Of Date), _ ByVal Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal Firma_ID As Short, _ ByVal SpeditionsbuchUnterNr As Global.System.Nullable(Of Short), _ ByVal ErfassungsNr As String, _ ByVal AvisiererKundenNr As Global.System.Nullable(Of Integer), _ ByVal Avisierer As String, _ ByVal EMailRechnungstext As String, _ ByVal AvisoID As Global.System.Nullable(Of Integer), _ ByVal KdAuftragsNr As String, _ ByVal Handling As String, _ ByVal VorschauID As String, _ ByVal Grenze As String, _ ByVal RechnungSprache As String, _ ByVal FakturierungsGruppe As String, _ ByVal TextZZ As String, _ ByVal RechnungsName_AdressZusatz As String, _ ByVal ForceSteuerschlüssel As Global.System.Nullable(Of Short), _ ByVal Original_RK_ID As Integer, _ ByVal Original_upsize_ts() As Byte, _ ByVal RK_ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FilialenNr,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(AbfertigungsNr,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(UnterNr,Short) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Abfertigungsdatum,Date) If (RechnungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RechnungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Sammelrechnung,Short) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(BelegartenNr,Short) If (BelegartenKz Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartenKz") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(BelegartenKz,String) End If If (BelegartenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartenBez") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(BelegartenBez,String) End If If (Vorzeichen Is Nothing) Then Throw New Global.System.ArgumentNullException("Vorzeichen") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Vorzeichen,String) End If If (BelegNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(BelegNr,String) End If If (AbsenderLandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(AbsenderLandKz,String) End If If (AbsenderKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(AbsenderKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (AbsenderName_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(AbsenderName_1,String) End If If (AbsenderName_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(AbsenderName_2,String) End If If (AbsenderStraße Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(AbsenderStraße,String) End If If (AbsenderOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(AbsenderOrt,String) End If If (AbsenderOffertenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(AbsenderOffertenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (EmpfängerLandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(EmpfängerLandKz,String) End If If (EmpfängerKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(EmpfängerKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (EmpfängerName_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(EmpfängerName_1,String) End If If (EmpfängerName_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(EmpfängerName_2,String) End If If (EmpfängerStraße Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(EmpfängerStraße,String) End If If (EmpfängerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(EmpfängerOrt,String) End If If (EmpfängerOffertenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(EmpfängerOffertenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (VermittlerLandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(VermittlerLandKz,String) End If If (VermittlerKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(VermittlerKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (VermittlerName_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(VermittlerName_1,String) End If If (VermittlerName_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(VermittlerName_2,String) End If If (VermittlerStraße Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(VermittlerStraße,String) End If If (VermittlerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(VermittlerOrt,String) End If If (VermittlerOffertenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(VermittlerOffertenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Rechnung_an,Short) If (KundenNrZentrale.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(KundenNrZentrale.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (RechnungsLandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(RechnungsLandKz,String) End If Me.Adapter.UpdateCommand.Parameters(36).Value = CType(RechnungsKundenNr,Integer) If (RechnungsName_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(RechnungsName_1,String) End If If (RechnungsName_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(RechnungsName_2,String) End If If (RechnungsStraße Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(RechnungsStraße,String) End If If (RechnungsOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(RechnungsOrt,String) End If If (RechnungsUstIdKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(RechnungsUstIdKz,String) End If If (RechnungsUstIdNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(RechnungsUstIdNr,String) End If If (RechnungsUstIdGeprüft.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(RechnungsUstIdGeprüft.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Lastschrift,Boolean) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(p1,Boolean) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Steuerschlüssel,Short) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(p3,Single) If (LKW_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(LKW_Kennzeichen,String) End If If (WährungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(WährungsNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Wert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Wert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Umrechnungskurs.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Umrechnungskurs.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Packstücke_und_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Packstücke_und_Warenbezeichnung,String) End If If (Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Vermerk,String) End If If (Anlage_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Anlage_1,String) End If If (Anlage_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Anlage_2,String) End If If (Anlage_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Anlage_3,String) End If If (Anlage_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Anlage_4,String) End If If (Anlage_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Anlage_5,String) End If If (Anlage_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Anlage_6,String) End If If (OffertenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(OffertenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (p5.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(61).Value = CType(p5.Value,Single) Else Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value End If If (p8.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(p8.Value,Single) Else Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (Besonderheiten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Besonderheiten,String) End If Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Vorkasse,Boolean) If (Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Text,String) End If If (SteuerpflichtigerGesamtbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(SteuerpflichtigerGesamtbetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (SteuerfreierGesamtbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(SteuerfreierGesamtbetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Status.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (DruckDatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(69).Value = CType(DruckDatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (Abfertigungskosten.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Abfertigungskosten.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Vorkosten.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Vorkosten.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Erlös.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Erlös.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value End If If (Buchungsjahr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Buchungsjahr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Währungscode,String) End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Trdin,Boolean) If (KartenNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(KartenNr,String) End If If (RefFilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(RefFilialenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (RefAbfertigungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(RefAbfertigungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (RefUnterNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(80).Value = CType(RefUnterNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value End If If (Notiz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Notiz,String) End If If (Zucker_MRN_Nr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Zucker_MRN_Nr,String) End If If (Zucker_MRN_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Zucker_MRN_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (Zucker_Aufschub Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Zucker_Aufschub,String) End If If (ReErfZeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(85).Value = CType(ReErfZeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Nettozahlungsziel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Nettozahlungsziel.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Firma_ID,Short) If (SpeditionsbuchUnterNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(SpeditionsbuchUnterNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (ErfassungsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(ErfassungsNr,String) End If If (AvisiererKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(90).Value = CType(AvisiererKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value End If If (Avisierer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Avisierer,String) End If If (EMailRechnungstext Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(EMailRechnungstext,String) End If If (AvisoID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(93).Value = CType(AvisoID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value End If If (KdAuftragsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(KdAuftragsNr,String) End If If (Handling Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Handling,String) End If If (VorschauID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(VorschauID,String) End If If (Grenze Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Grenze,String) End If If (RechnungSprache Is Nothing) Then Throw New Global.System.ArgumentNullException("RechnungSprache") Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(RechnungSprache,String) End If If (FakturierungsGruppe Is Nothing) Then Throw New Global.System.ArgumentNullException("FakturierungsGruppe") Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(FakturierungsGruppe,String) End If If (TextZZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(TextZZ,String) End If If (RechnungsName_AdressZusatz Is Nothing) Then Throw New Global.System.ArgumentNullException("RechnungsName_AdressZusatz") Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(RechnungsName_AdressZusatz,String) End If If (ForceSteuerschlüssel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(102).Value = CType(ForceSteuerschlüssel.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(103).Value = CType(Original_RK_ID,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(106).Value = CType(RK_ID,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 FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal RechnungsNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Sammelrechnung As Short, _ ByVal BelegartenNr As Short, _ ByVal BelegartenKz As String, _ ByVal BelegartenBez As String, _ ByVal Vorzeichen As String, _ ByVal BelegNr As String, _ ByVal AbsenderLandKz As String, _ ByVal AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal AbsenderName_1 As String, _ ByVal AbsenderName_2 As String, _ ByVal AbsenderStraße As String, _ ByVal AbsenderOrt As String, _ ByVal AbsenderOffertenNr As Global.System.Nullable(Of Short), _ ByVal EmpfängerLandKz As String, _ ByVal EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerName_1 As String, _ ByVal EmpfängerName_2 As String, _ ByVal EmpfängerStraße As String, _ ByVal EmpfängerOrt As String, _ ByVal EmpfängerOffertenNr As Global.System.Nullable(Of Short), _ ByVal VermittlerLandKz As String, _ ByVal VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerName_1 As String, _ ByVal VermittlerName_2 As String, _ ByVal VermittlerStraße As String, _ ByVal VermittlerOrt As String, _ ByVal VermittlerOffertenNr As Global.System.Nullable(Of Short), _ ByVal Rechnung_an As Short, _ ByVal KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal RechnungsLandKz As String, _ ByVal RechnungsKundenNr As Integer, _ ByVal RechnungsName_1 As String, _ ByVal RechnungsName_2 As String, _ ByVal RechnungsStraße As String, _ ByVal RechnungsOrt As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal RechnungsUstIdGeprüft As Global.System.Nullable(Of Date), _ ByVal Lastschrift As Boolean, _ ByVal p1 As Boolean, _ ByVal Steuerschlüssel As Short, _ ByVal p3 As Single, _ ByVal LKW_Kennzeichen As String, _ ByVal WährungsNr As Global.System.Nullable(Of Short), _ ByVal Wert As Global.System.Nullable(Of Decimal), _ ByVal Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal Packstücke_und_Warenbezeichnung As String, _ ByVal Vermerk As String, _ ByVal Anlage_1 As String, _ ByVal Anlage_2 As String, _ ByVal Anlage_3 As String, _ ByVal Anlage_4 As String, _ ByVal Anlage_5 As String, _ ByVal Anlage_6 As String, _ ByVal OffertenNr As Global.System.Nullable(Of Short), _ ByVal p5 As Global.System.Nullable(Of Single), _ ByVal p8 As Global.System.Nullable(Of Single), _ ByVal Besonderheiten As String, _ ByVal Vorkasse As Boolean, _ ByVal Text As String, _ ByVal SteuerpflichtigerGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal Status As Global.System.Nullable(Of Short), _ ByVal DruckDatumZeit As Global.System.Nullable(Of Date), _ ByVal Abfertigungskosten As Global.System.Nullable(Of Decimal), _ ByVal Vorkosten As Global.System.Nullable(Of Decimal), _ ByVal Erlös As Global.System.Nullable(Of Decimal), _ ByVal Buchungsjahr As Global.System.Nullable(Of Short), _ ByVal Währungscode As String, _ ByVal Sachbearbeiter As String, _ ByVal Trdin As Boolean, _ ByVal KartenNr As String, _ ByVal RefFilialenNr As Global.System.Nullable(Of Short), _ ByVal RefAbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal RefUnterNr As Global.System.Nullable(Of Short), _ ByVal Notiz As String, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Global.System.Nullable(Of Date), _ ByVal Zucker_Aufschub As String, _ ByVal ReErfZeitstempel As Global.System.Nullable(Of Date), _ ByVal Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal Firma_ID As Short, _ ByVal SpeditionsbuchUnterNr As Global.System.Nullable(Of Short), _ ByVal ErfassungsNr As String, _ ByVal AvisiererKundenNr As Global.System.Nullable(Of Integer), _ ByVal Avisierer As String, _ ByVal EMailRechnungstext As String, _ ByVal AvisoID As Global.System.Nullable(Of Integer), _ ByVal KdAuftragsNr As String, _ ByVal Handling As String, _ ByVal VorschauID As String, _ ByVal Grenze As String, _ ByVal RechnungSprache As String, _ ByVal FakturierungsGruppe As String, _ ByVal TextZZ As String, _ ByVal RechnungsName_AdressZusatz As String, _ ByVal ForceSteuerschlüssel As Global.System.Nullable(Of Short), _ ByVal Original_RK_ID As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, RechnungsNr, RechnungsDatum, Sammelrechnung, BelegartenNr, BelegartenKz, BelegartenBez, Vorzeichen, BelegNr, AbsenderLandKz, AbsenderKundenNr, AbsenderName_1, AbsenderName_2, AbsenderStraße, AbsenderOrt, AbsenderOffertenNr, EmpfängerLandKz, EmpfängerKundenNr, EmpfängerName_1, EmpfängerName_2, EmpfängerStraße, EmpfängerOrt, EmpfängerOffertenNr, VermittlerLandKz, VermittlerKundenNr, VermittlerName_1, VermittlerName_2, VermittlerStraße, VermittlerOrt, VermittlerOffertenNr, Rechnung_an, KundenNrZentrale, RechnungsLandKz, RechnungsKundenNr, RechnungsName_1, RechnungsName_2, RechnungsStraße, RechnungsOrt, RechnungsUstIdKz, RechnungsUstIdNr, RechnungsUstIdGeprüft, Lastschrift, p1, Steuerschlüssel, p3, LKW_Kennzeichen, WährungsNr, Wert, Umrechnungskurs, Packstücke_und_Warenbezeichnung, Vermerk, Anlage_1, Anlage_2, Anlage_3, Anlage_4, Anlage_5, Anlage_6, OffertenNr, p5, p8, Besonderheiten, Vorkasse, Text, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, Status, DruckDatumZeit, Abfertigungskosten, Vorkosten, Erlös, Buchungsjahr, Währungscode, Sachbearbeiter, Trdin, KartenNr, RefFilialenNr, RefAbfertigungsNr, RefUnterNr, Notiz, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, ReErfZeitstempel, Nettozahlungsziel, Firma_ID, SpeditionsbuchUnterNr, ErfassungsNr, AvisiererKundenNr, Avisierer, EMailRechnungstext, AvisoID, KdAuftragsNr, Handling, VorschauID, Grenze, RechnungSprache, FakturierungsGruppe, TextZZ, RechnungsName_AdressZusatz, ForceSteuerschlüssel, Original_RK_ID, Original_upsize_ts, Original_RK_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class RechnungsausgangAnhaengeTableAdapter 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 = "RechnungsausgangAnhaenge" tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("dsId", "dsId") tableMapping.ColumnMappings.Add("anhId", "anhId") tableMapping.ColumnMappings.Add("Bezeichnung", "Bezeichnung") 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].[RechnungsausgangAnhaenge] WHERE (([RK_ID] = @Original_RK_ID) A"& _ "ND ([dsId] = @Original_dsId) AND ([anhId] = @Original_anhId) AND ([Bezeichnung] "& _ "= @Original_Bezeichnung))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_anhId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "anhId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezeichnung", 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].[RechnungsausgangAnhaenge] ([RK_ID], [dsId], [anhId], [Bezeichn"& _ "ung]) VALUES (@RK_ID, @dsId, @anhId, @Bezeichnung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RK_ID, dsId, anhId, "& _ "Bezeichnung FROM RechnungsausgangAnhaenge WHERE (RK_ID = @RK_ID) AND (anhId = @a"& _ "nhId) AND (dsId = @dsId)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@anhId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "anhId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezeichnung", 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].[RechnungsausgangAnhaenge] SET [RK_ID] = @RK_ID, [dsId] = @dsId, [an"& _ "hId] = @anhId, [Bezeichnung] = @Bezeichnung WHERE (([RK_ID] = @Original_RK_ID) A"& _ "ND ([dsId] = @Original_dsId) AND ([anhId] = @Original_anhId) AND ([Bezeichnung] "& _ "= @Original_Bezeichnung));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RK_ID, dsId, anhId, Bezeichnung FROM Rechnung"& _ "sausgangAnhaenge WHERE (RK_ID = @RK_ID) AND (anhId = @anhId) AND (dsId = @dsId)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@anhId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "anhId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 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("@Original_RK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_anhId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "anhId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 RK_ID, dsId, anhId, Bezeichnung FROM dbo.RechnungsausgangAnhaenge" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.RechnungsausgangAnhaengeDataTable) 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 VERAGDataSet.RechnungsausgangAnhaengeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.RechnungsausgangAnhaengeDataTable = New VERAGDataSet.RechnungsausgangAnhaengeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.RechnungsausgangAnhaengeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "RechnungsausgangAnhaenge") 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_RK_ID As Integer, ByVal Original_dsId As Integer, ByVal Original_anhId As Integer, ByVal Original_Bezeichnung As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_RK_ID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_dsId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_anhId,Integer) If (Original_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Bezeichnung,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 RK_ID As Integer, ByVal dsId As Integer, ByVal anhId As Integer, ByVal Bezeichnung As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(RK_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(dsId,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(anhId,Integer) If (Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Bezeichnung") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Bezeichnung,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 RK_ID As Integer, ByVal dsId As Integer, ByVal anhId As Integer, ByVal Bezeichnung As String, ByVal Original_RK_ID As Integer, ByVal Original_dsId As Integer, ByVal Original_anhId As Integer, ByVal Original_Bezeichnung As String) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(RK_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(dsId,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(anhId,Integer) If (Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Bezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_RK_ID,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_dsId,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_anhId,Integer) 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 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 Original_RK_ID As Integer, ByVal Original_dsId As Integer, ByVal Original_anhId As Integer, ByVal Original_Bezeichnung As String) As Integer Return Me.Update(Original_RK_ID, Original_dsId, Original_anhId, Bezeichnung, Original_RK_ID, Original_dsId, Original_anhId, Original_Bezeichnung) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class RechnungsausgangPositionenTableAdapter 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 = "RechnungsausgangPositionen" tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("IndexZkteing", "IndexZkteing") tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetrag", "SteuerpflichtigerBetrag") tableMapping.ColumnMappings.Add("SteuerfreierBetrag", "SteuerfreierBetrag") tableMapping.ColumnMappings.Add("AufschubkontoNr", "AufschubkontoNr") tableMapping.ColumnMappings.Add("Aufschubfälligkeit", "Aufschubfälligkeit") tableMapping.ColumnMappings.Add("Prüfsumme berechnen", "Prüfsumme berechnen") tableMapping.ColumnMappings.Add("DateiNameAufschub", "DateiNameAufschub") tableMapping.ColumnMappings.Add("Preisbindung", "Preisbindung") tableMapping.ColumnMappings.Add("Belegdaten", "Belegdaten") tableMapping.ColumnMappings.Add("Fremdwährung", "Fremdwährung") tableMapping.ColumnMappings.Add("BGebLeistungsNr", "BGebLeistungsNr") tableMapping.ColumnMappings.Add("BGebProzent", "BGebProzent") tableMapping.ColumnMappings.Add("BGebBgl", "BGebBgl") tableMapping.ColumnMappings.Add("BGebMinBetrag", "BGebMinBetrag") tableMapping.ColumnMappings.Add("RePosZeitstempel", "RePosZeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[RechnungsausgangPositionen] WHERE (([RK_ID] = @Original_RK_ID)"& _ " AND ([LeistungsNr] = @Original_LeistungsNr) AND ([Steuerpflichtig] = @Original_"& _ "Steuerpflichtig) AND ([LeistungsBez] = @Original_LeistungsBez) AND ([IndexZktein"& _ "g] = @Original_IndexZkteing) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL"& _ ") OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerpflichtig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IndexZkteing", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexZkteing", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[RechnungsausgangPositionen] ([RK_ID], [LeistungsNr], [Steuerpf"& _ "lichtig], [LeistungsBez], [IndexZkteing], [BerechnungsartNr], [Preis], [Anzahl],"& _ " [SteuerpflichtigerBetrag], [SteuerfreierBetrag], [AufschubkontoNr], [Aufschubfä"& _ "lligkeit], [Prüfsumme berechnen], [DateiNameAufschub], [Preisbindung], [Belegdat"& _ "en], [Fremdwährung], [BGebLeistungsNr], [BGebProzent], [BGebBgl], [BGebMinBetrag"& _ "], [RePosZeitstempel]) VALUES (@RK_ID, @LeistungsNr, @Steuerpflichtig, @Leistung"& _ "sBez, @IndexZkteing, @BerechnungsartNr, @Preis, @Anzahl, @SteuerpflichtigerBetra"& _ "g, @SteuerfreierBetrag, @AufschubkontoNr, @Aufschubfälligkeit, @Prüfsumme_berech"& _ "nen, @DateiNameAufschub, @Preisbindung, @Belegdaten, @Fremdwährung, @BGebLeistun"& _ "gsNr, @BGebProzent, @BGebBgl, @BGebMinBetrag, @RePosZeitstempel);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RK_ID,"& _ " LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing, BerechnungsartNr, Pre"& _ "is, Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag, AufschubkontoNr, Aufsch"& _ "ubfälligkeit, [Prüfsumme berechnen], DateiNameAufschub, Preisbindung, Belegdaten"& _ ", Fremdwährung, BGebLeistungsNr, BGebProzent, BGebBgl, BGebMinBetrag, RePosZeits"& _ "tempel, upsize_ts FROM RechnungsausgangPositionen WHERE (IndexZkteing = @IndexZk"& _ "teing) AND (LeistungsBez = @LeistungsBez) AND (LeistungsNr = @LeistungsNr) AND ("& _ "RK_ID = @RK_ID) AND (Steuerpflichtig = @Steuerpflichtig)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IndexZkteing", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexZkteing", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubfälligkeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubfälligkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Prüfsumme_berechnen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Prüfsumme berechnen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DateiNameAufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateiNameAufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preisbindung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preisbindung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdaten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdaten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fremdwährung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fremdwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebLeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebBgl", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebBgl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebMinBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebMinBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RePosZeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RePosZeitstempel", 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].[RechnungsausgangPositionen] SET [RK_ID] = @RK_ID, [LeistungsNr] = @"& _ "LeistungsNr, [Steuerpflichtig] = @Steuerpflichtig, [LeistungsBez] = @LeistungsBe"& _ "z, [IndexZkteing] = @IndexZkteing, [BerechnungsartNr] = @BerechnungsartNr, [Prei"& _ "s] = @Preis, [Anzahl] = @Anzahl, [SteuerpflichtigerBetrag] = @SteuerpflichtigerB"& _ "etrag, [SteuerfreierBetrag] = @SteuerfreierBetrag, [AufschubkontoNr] = @Aufschub"& _ "kontoNr, [Aufschubfälligkeit] = @Aufschubfälligkeit, [Prüfsumme berechnen] = @Pr"& _ "üfsumme_berechnen, [DateiNameAufschub] = @DateiNameAufschub, [Preisbindung] = @P"& _ "reisbindung, [Belegdaten] = @Belegdaten, [Fremdwährung] = @Fremdwährung, [BGebLe"& _ "istungsNr] = @BGebLeistungsNr, [BGebProzent] = @BGebProzent, [BGebBgl] = @BGebBg"& _ "l, [BGebMinBetrag] = @BGebMinBetrag, [RePosZeitstempel] = @RePosZeitstempel WHER"& _ "E (([RK_ID] = @Original_RK_ID) AND ([LeistungsNr] = @Original_LeistungsNr) AND ("& _ "[Steuerpflichtig] = @Original_Steuerpflichtig) AND ([LeistungsBez] = @Original_L"& _ "eistungsBez) AND ([IndexZkteing] = @Original_IndexZkteing) AND ((@IsNull_upsize_"& _ "ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ "T RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing, Berechnungsar"& _ "tNr, Preis, Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag, AufschubkontoNr"& _ ", Aufschubfälligkeit, [Prüfsumme berechnen], DateiNameAufschub, Preisbindung, Be"& _ "legdaten, Fremdwährung, BGebLeistungsNr, BGebProzent, BGebBgl, BGebMinBetrag, Re"& _ "PosZeitstempel, upsize_ts FROM RechnungsausgangPositionen WHERE (IndexZkteing = "& _ "@IndexZkteing) AND (LeistungsBez = @LeistungsBez) AND (LeistungsNr = @LeistungsN"& _ "r) AND (RK_ID = @RK_ID) AND (Steuerpflichtig = @Steuerpflichtig)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IndexZkteing", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexZkteing", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubkontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubfälligkeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aufschubfälligkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Prüfsumme_berechnen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Prüfsumme berechnen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DateiNameAufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateiNameAufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preisbindung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preisbindung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdaten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdaten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fremdwährung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fremdwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebLeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebBgl", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebBgl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebMinBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebMinBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RePosZeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RePosZeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RK_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerpflichtig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IndexZkteing", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexZkteing", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 RK_ID, LeistungsNr, Steuerpflichtig, LeistungsBez, IndexZkteing, Berechnun"& _ "gsartNr, Preis, Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag, Aufschubkon"& _ "toNr, Aufschubfälligkeit, [Prüfsumme berechnen], DateiNameAufschub, Preisbindung"& _ ", Belegdaten, Fremdwährung, BGebLeistungsNr, BGebProzent, BGebBgl, BGebMinBetrag"& _ ", RePosZeitstempel, upsize_ts FROM dbo.RechnungsausgangPositionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.RechnungsausgangPositionenDataTable) 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 VERAGDataSet.RechnungsausgangPositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.RechnungsausgangPositionenDataTable = New VERAGDataSet.RechnungsausgangPositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.RechnungsausgangPositionenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "RechnungsausgangPositionen") 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_RK_ID As Integer, ByVal Original_LeistungsNr As Short, ByVal Original_Steuerpflichtig As Boolean, ByVal Original_LeistungsBez As String, ByVal Original_IndexZkteing As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_RK_ID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LeistungsNr,Short) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Steuerpflichtig,Boolean) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_LeistungsBez,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_IndexZkteing,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 RK_ID As Integer, _ ByVal LeistungsNr As Short, _ ByVal Steuerpflichtig As Boolean, _ ByVal LeistungsBez As String, _ ByVal IndexZkteing As Integer, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal SteuerpflichtigerBetrag As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetrag As Global.System.Nullable(Of Decimal), _ ByVal AufschubkontoNr As String, _ ByVal Aufschubfälligkeit As Global.System.Nullable(Of Date), _ ByVal Prüfsumme_berechnen As Boolean, _ ByVal DateiNameAufschub As String, _ ByVal Preisbindung As Boolean, _ ByVal Belegdaten As String, _ ByVal Fremdwährung As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebBgl As Global.System.Nullable(Of Decimal), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal RePosZeitstempel As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(RK_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(LeistungsNr,Short) Me.Adapter.InsertCommand.Parameters(2).Value = CType(Steuerpflichtig,Boolean) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(LeistungsBez,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(IndexZkteing,Integer) Me.Adapter.InsertCommand.Parameters(5).Value = CType(BerechnungsartNr,Short) If (Preis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Preis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Anzahl.Value,Short) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (SteuerpflichtigerBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(SteuerpflichtigerBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (SteuerfreierBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(SteuerfreierBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (AufschubkontoNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(AufschubkontoNr,String) End If If (Aufschubfälligkeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Aufschubfälligkeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(12).Value = CType(Prüfsumme_berechnen,Boolean) If (DateiNameAufschub Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(DateiNameAufschub,String) End If Me.Adapter.InsertCommand.Parameters(14).Value = CType(Preisbindung,Boolean) If (Belegdaten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Belegdaten,String) End If If (Fremdwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(Fremdwährung.Value,Short) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (BGebBgl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(BGebBgl.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (RePosZeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(RePosZeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(21).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 RK_ID As Integer, _ ByVal LeistungsNr As Short, _ ByVal Steuerpflichtig As Boolean, _ ByVal LeistungsBez As String, _ ByVal IndexZkteing As Integer, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal SteuerpflichtigerBetrag As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetrag As Global.System.Nullable(Of Decimal), _ ByVal AufschubkontoNr As String, _ ByVal Aufschubfälligkeit As Global.System.Nullable(Of Date), _ ByVal Prüfsumme_berechnen As Boolean, _ ByVal DateiNameAufschub As String, _ ByVal Preisbindung As Boolean, _ ByVal Belegdaten As String, _ ByVal Fremdwährung As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebBgl As Global.System.Nullable(Of Decimal), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal RePosZeitstempel As Global.System.Nullable(Of Date), _ ByVal Original_RK_ID As Integer, _ ByVal Original_LeistungsNr As Short, _ ByVal Original_Steuerpflichtig As Boolean, _ ByVal Original_LeistungsBez As String, _ ByVal Original_IndexZkteing As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(RK_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LeistungsNr,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Steuerpflichtig,Boolean) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LeistungsBez,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IndexZkteing,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(BerechnungsartNr,Short) If (Preis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Preis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Anzahl.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (SteuerpflichtigerBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SteuerpflichtigerBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (SteuerfreierBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SteuerfreierBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (AufschubkontoNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(AufschubkontoNr,String) End If If (Aufschubfälligkeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Aufschubfälligkeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Prüfsumme_berechnen,Boolean) If (DateiNameAufschub Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(DateiNameAufschub,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Preisbindung,Boolean) If (Belegdaten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Belegdaten,String) End If If (Fremdwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Fremdwährung.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (BGebBgl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(BGebBgl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (RePosZeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(RePosZeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_RK_ID,Integer) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_LeistungsNr,Short) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Steuerpflichtig,Boolean) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_LeistungsBez,String) End If Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_IndexZkteing,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_upsize_ts,Byte()) End If 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 BerechnungsartNr As Short, _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal SteuerpflichtigerBetrag As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetrag As Global.System.Nullable(Of Decimal), _ ByVal AufschubkontoNr As String, _ ByVal Aufschubfälligkeit As Global.System.Nullable(Of Date), _ ByVal Prüfsumme_berechnen As Boolean, _ ByVal DateiNameAufschub As String, _ ByVal Preisbindung As Boolean, _ ByVal Belegdaten As String, _ ByVal Fremdwährung As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebBgl As Global.System.Nullable(Of Decimal), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal RePosZeitstempel As Global.System.Nullable(Of Date), _ ByVal Original_RK_ID As Integer, _ ByVal Original_LeistungsNr As Short, _ ByVal Original_Steuerpflichtig As Boolean, _ ByVal Original_LeistungsBez As String, _ ByVal Original_IndexZkteing As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_RK_ID, Original_LeistungsNr, Original_Steuerpflichtig, Original_LeistungsBez, Original_IndexZkteing, BerechnungsartNr, Preis, Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag, AufschubkontoNr, Aufschubfälligkeit, Prüfsumme_berechnen, DateiNameAufschub, Preisbindung, Belegdaten, Fremdwährung, BGebLeistungsNr, BGebProzent, BGebBgl, BGebMinBetrag, RePosZeitstempel, Original_RK_ID, Original_LeistungsNr, Original_Steuerpflichtig, Original_LeistungsBez, Original_IndexZkteing, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class RechnungsnummernTableAdapter 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 = "Rechnungsnummern" tableMapping.ColumnMappings.Add("SpeditionsbuchNr", "SpeditionsbuchNr") tableMapping.ColumnMappings.Add("Buchungsjahr", "Buchungsjahr") tableMapping.ColumnMappings.Add("VonRechnungsNr", "VonRechnungsNr") tableMapping.ColumnMappings.Add("BisRechnungsNr", "BisRechnungsNr") tableMapping.ColumnMappings.Add("LfdRechnungsNr", "LfdRechnungsNr") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[Rechnungsnummern] WHERE (([SpeditionsbuchNr] = @Original_Spedi"& _ "tionsbuchNr) AND ([Buchungsjahr] = @Original_Buchungsjahr) AND ((@IsNull_upsize_"& _ "ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SpeditionsbuchNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SpeditionsbuchNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsjahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[Rechnungsnummern] ([SpeditionsbuchNr], [Buchungsjahr], [VonRec"& _ "hnungsNr], [BisRechnungsNr], [LfdRechnungsNr]) VALUES (@SpeditionsbuchNr, @Buchu"& _ "ngsjahr, @VonRechnungsNr, @BisRechnungsNr, @LfdRechnungsNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Speditionsb"& _ "uchNr, Buchungsjahr, VonRechnungsNr, BisRechnungsNr, LfdRechnungsNr, upsize_ts F"& _ "ROM Rechnungsnummern WHERE (Buchungsjahr = @Buchungsjahr) AND (SpeditionsbuchNr "& _ "= @SpeditionsbuchNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SpeditionsbuchNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SpeditionsbuchNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VonRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VonRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BisRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BisRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdRechnungsNr", 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].[Rechnungsnummern] SET [SpeditionsbuchNr] = @SpeditionsbuchNr, [Buch"& _ "ungsjahr] = @Buchungsjahr, [VonRechnungsNr] = @VonRechnungsNr, [BisRechnungsNr] "& _ "= @BisRechnungsNr, [LfdRechnungsNr] = @LfdRechnungsNr WHERE (([SpeditionsbuchNr]"& _ " = @Original_SpeditionsbuchNr) AND ([Buchungsjahr] = @Original_Buchungsjahr) AND"& _ " ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_up"& _ "size_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SpeditionsbuchNr, Buchungsjahr, VonRechnungsNr, BisRechnungs"& _ "Nr, LfdRechnungsNr, upsize_ts FROM Rechnungsnummern WHERE (Buchungsjahr = @Buchu"& _ "ngsjahr) AND (SpeditionsbuchNr = @SpeditionsbuchNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SpeditionsbuchNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SpeditionsbuchNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VonRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VonRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BisRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BisRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SpeditionsbuchNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SpeditionsbuchNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsjahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 SpeditionsbuchNr, Buchungsjahr, VonRechnungsNr, BisRechnungsNr, LfdRechnun"& _ "gsNr, upsize_ts FROM dbo.Rechnungsnummern" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.RechnungsnummernDataTable) 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 VERAGDataSet.RechnungsnummernDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.RechnungsnummernDataTable = New VERAGDataSet.RechnungsnummernDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.RechnungsnummernDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Rechnungsnummern") 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_SpeditionsbuchNr As Short, ByVal Original_Buchungsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_SpeditionsbuchNr,Short) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Buchungsjahr,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 SpeditionsbuchNr As Short, ByVal Buchungsjahr As Short, ByVal VonRechnungsNr As Integer, ByVal BisRechnungsNr As Integer, ByVal LfdRechnungsNr As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(SpeditionsbuchNr,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Buchungsjahr,Short) Me.Adapter.InsertCommand.Parameters(2).Value = CType(VonRechnungsNr,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(BisRechnungsNr,Integer) Me.Adapter.InsertCommand.Parameters(4).Value = CType(LfdRechnungsNr,Integer) 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 SpeditionsbuchNr As Short, ByVal Buchungsjahr As Short, ByVal VonRechnungsNr As Integer, ByVal BisRechnungsNr As Integer, ByVal LfdRechnungsNr As Integer, ByVal Original_SpeditionsbuchNr As Short, ByVal Original_Buchungsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SpeditionsbuchNr,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Buchungsjahr,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VonRechnungsNr,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BisRechnungsNr,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LfdRechnungsNr,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SpeditionsbuchNr,Short) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Buchungsjahr,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 VonRechnungsNr As Integer, ByVal BisRechnungsNr As Integer, ByVal LfdRechnungsNr As Integer, ByVal Original_SpeditionsbuchNr As Short, ByVal Original_Buchungsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_SpeditionsbuchNr, Original_Buchungsjahr, VonRechnungsNr, BisRechnungsNr, LfdRechnungsNr, Original_SpeditionsbuchNr, Original_Buchungsjahr, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class RechnungstexteTableAdapter 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 = "Rechnungstexte" tableMapping.ColumnMappings.Add("Textschlüssel", "Textschlüssel") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("Text", "Text") tableMapping.ColumnMappings.Add("EMailRechnung", "EMailRechnung") tableMapping.ColumnMappings.Add("DrucksteuerungsKz", "DrucksteuerungsKz") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("ImmerAnfuegen", "ImmerAnfuegen") 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].[Rechnungstexte] WHERE (([Textschlüssel] = @Original_Textschlüs"& _ "sel) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Textschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Textschlüssel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Rechnungstexte] ([Textschlüssel], [Firma_ID], [LandKz], [Offer"& _ "tenNr], [Text], [EMailRechnung], [DrucksteuerungsKz], [ImmerAnfuegen]) VALUES (@"& _ "Textschlüssel, @Firma_ID, @LandKz, @OffertenNr, @Text, @EMailRechnung, @Druckste"& _ "uerungsKz, @ImmerAnfuegen);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Textschlüssel, Firma_ID, LandKz, OffertenNr,"& _ " Text, EMailRechnung, DrucksteuerungsKz, SSMA_TimeStamp, ImmerAnfuegen FROM Rech"& _ "nungstexte WHERE (Textschlüssel = @Textschlüssel)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Textschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Textschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMailRechnung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMailRechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DrucksteuerungsKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DrucksteuerungsKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ImmerAnfuegen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ImmerAnfuegen", 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].[Rechnungstexte] SET [Textschlüssel] = @Textschlüssel, [Firma_ID] = "& _ "@Firma_ID, [LandKz] = @LandKz, [OffertenNr] = @OffertenNr, [Text] = @Text, [EMai"& _ "lRechnung] = @EMailRechnung, [DrucksteuerungsKz] = @DrucksteuerungsKz, [ImmerAnf"& _ "uegen] = @ImmerAnfuegen WHERE (([Textschlüssel] = @Original_Textschlüssel) AND ("& _ "[SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Textschlüssel, Firma_ID, "& _ "LandKz, OffertenNr, Text, EMailRechnung, DrucksteuerungsKz, SSMA_TimeStamp, Imme"& _ "rAnfuegen FROM Rechnungstexte WHERE (Textschlüssel = @Textschlüssel)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Textschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Textschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMailRechnung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMailRechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DrucksteuerungsKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DrucksteuerungsKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ImmerAnfuegen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ImmerAnfuegen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Textschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Textschlüssel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Textschlüssel, Firma_ID, LandKz, OffertenNr, Text, EMailRechnung, Druckste"& _ "uerungsKz, SSMA_TimeStamp, ImmerAnfuegen FROM dbo.Rechnungstexte" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.RechnungstexteDataTable) 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 VERAGDataSet.RechnungstexteDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.RechnungstexteDataTable = New VERAGDataSet.RechnungstexteDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.RechnungstexteDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Rechnungstexte") 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_Textschlüssel As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Textschlüssel,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Textschlüssel As Short, ByVal Firma_ID As Global.System.Nullable(Of Short), ByVal LandKz As String, ByVal OffertenNr As Global.System.Nullable(Of Integer), ByVal Text As String, ByVal EMailRechnung As Global.System.Nullable(Of Boolean), ByVal DrucksteuerungsKz As String, ByVal ImmerAnfuegen As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Textschlüssel,Short) If (Firma_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (LandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(LandKz,String) End If If (OffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(OffertenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Text,String) End If If (EMailRechnung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(EMailRechnung.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (DrucksteuerungsKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(DrucksteuerungsKz,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(ImmerAnfuegen,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 Textschlüssel As Short, ByVal Firma_ID As Global.System.Nullable(Of Short), ByVal LandKz As String, ByVal OffertenNr As Global.System.Nullable(Of Integer), ByVal Text As String, ByVal EMailRechnung As Global.System.Nullable(Of Boolean), ByVal DrucksteuerungsKz As String, ByVal ImmerAnfuegen As Boolean, ByVal Original_Textschlüssel As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Textschlüssel,Short) If (Firma_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (LandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LandKz,String) End If If (OffertenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(OffertenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Text,String) End If If (EMailRechnung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EMailRechnung.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (DrucksteuerungsKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DrucksteuerungsKz,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ImmerAnfuegen,Boolean) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Textschlüssel,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Firma_ID As Global.System.Nullable(Of Short), ByVal LandKz As String, ByVal OffertenNr As Global.System.Nullable(Of Integer), ByVal Text As String, ByVal EMailRechnung As Global.System.Nullable(Of Boolean), ByVal DrucksteuerungsKz As String, ByVal ImmerAnfuegen As Boolean, ByVal Original_Textschlüssel As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Textschlüssel, Firma_ID, LandKz, OffertenNr, Text, EMailRechnung, DrucksteuerungsKz, ImmerAnfuegen, Original_Textschlüssel, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class SpeditionsbuchTableAdapter 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 = "Speditionsbuch" tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("Bar", "Bar") tableMapping.ColumnMappings.Add("Fakturiert", "Fakturiert") tableMapping.ColumnMappings.Add("BelegNr", "BelegNr") tableMapping.ColumnMappings.Add("ErfassungsNr", "ErfassungsNr") tableMapping.ColumnMappings.Add("LKW Kennzeichen", "LKW Kennzeichen") tableMapping.ColumnMappings.Add("AbsenderKundenNr", "AbsenderKundenNr") tableMapping.ColumnMappings.Add("Absender", "Absender") tableMapping.ColumnMappings.Add("AbsenderOffertenNr", "AbsenderOffertenNr") tableMapping.ColumnMappings.Add("EmpfängerKundenNr", "EmpfängerKundenNr") tableMapping.ColumnMappings.Add("Empfänger", "Empfänger") tableMapping.ColumnMappings.Add("EmpfängerOffertenNr", "EmpfängerOffertenNr") tableMapping.ColumnMappings.Add("VermittlerKundenNr", "VermittlerKundenNr") tableMapping.ColumnMappings.Add("Vermittler", "Vermittler") tableMapping.ColumnMappings.Add("VermittlerOffertenNr", "VermittlerOffertenNr") tableMapping.ColumnMappings.Add("FrachtführerKundenNr", "FrachtführerKundenNr") tableMapping.ColumnMappings.Add("Frachtführer", "Frachtführer") tableMapping.ColumnMappings.Add("AnzahlZA", "AnzahlZA") tableMapping.ColumnMappings.Add("AnzahlZAFremd", "AnzahlZAFremd") tableMapping.ColumnMappings.Add("AnzahlZnV", "AnzahlZnV") tableMapping.ColumnMappings.Add("AnzahlZnVFremd", "AnzahlZnVFremd") tableMapping.ColumnMappings.Add("AnzahlT1", "AnzahlT1") tableMapping.ColumnMappings.Add("AnzahlT2", "AnzahlT2") tableMapping.ColumnMappings.Add("AnzahlAE", "AnzahlAE") tableMapping.ColumnMappings.Add("AnzahlCarnetTIR", "AnzahlCarnetTIR") tableMapping.ColumnMappings.Add("AnzahlBarvorlagen", "AnzahlBarvorlagen") tableMapping.ColumnMappings.Add("AnzahlSonstiges", "AnzahlSonstiges") tableMapping.ColumnMappings.Add("AnzahlGrenzgebühren", "AnzahlGrenzgebühren") tableMapping.ColumnMappings.Add("AvisUhrzeit", "AvisUhrzeit") tableMapping.ColumnMappings.Add("Vermerk", "Vermerk") tableMapping.ColumnMappings.Add("Bemerkungen", "Bemerkungen") tableMapping.ColumnMappings.Add("Währungsschlüssel", "Währungsschlüssel") tableMapping.ColumnMappings.Add("Rechnungsbetrag", "Rechnungsbetrag") tableMapping.ColumnMappings.Add("Umrechnungskurs", "Umrechnungskurs") tableMapping.ColumnMappings.Add("Packstücke", "Packstücke") tableMapping.ColumnMappings.Add("Rohmasse", "Rohmasse") tableMapping.ColumnMappings.Add("Zahlungsaufschub", "Zahlungsaufschub") tableMapping.ColumnMappings.Add("Löschen", "Löschen") tableMapping.ColumnMappings.Add("Abfertigungsart", "Abfertigungsart") tableMapping.ColumnMappings.Add("Abfertigungsanzahl", "Abfertigungsanzahl") tableMapping.ColumnMappings.Add("AbfertigungsanzahlPos", "AbfertigungsanzahlPos") tableMapping.ColumnMappings.Add("Barzahlungsbetrag", "Barzahlungsbetrag") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Personalnummer", "Personalnummer") tableMapping.ColumnMappings.Add("AtlasBezNrEZA", "AtlasBezNrEZA") tableMapping.ColumnMappings.Add("AtlasBezNrNCTS", "AtlasBezNrNCTS") tableMapping.ColumnMappings.Add("Versendungsland", "Versendungsland") tableMapping.ColumnMappings.Add("SB_CMR", "SB_CMR") tableMapping.ColumnMappings.Add("SB_CMRDatum", "SB_CMRDatum") tableMapping.ColumnMappings.Add("veoerz_basbtg", "veoerz_basbtg") tableMapping.ColumnMappings.Add("Zucker_MRN_Nr", "Zucker_MRN_Nr") tableMapping.ColumnMappings.Add("Zucker_MRN_Datum", "Zucker_MRN_Datum") tableMapping.ColumnMappings.Add("Zucker_Aufschub", "Zucker_Aufschub") tableMapping.ColumnMappings.Add("Zollsystem", "Zollsystem") tableMapping.ColumnMappings.Add("Bestimmungszollstelle", "Bestimmungszollstelle") tableMapping.ColumnMappings.Add("Bürgschaft", "Bürgschaft") tableMapping.ColumnMappings.Add("Sicherheitsbetrag", "Sicherheitsbetrag") tableMapping.ColumnMappings.Add("SgutKompl", "SgutKompl") tableMapping.ColumnMappings.Add("Bestimmungsland", "Bestimmungsland") tableMapping.ColumnMappings.Add("EuFiskalEmpfänger", "EuFiskalEmpfänger") tableMapping.ColumnMappings.Add("QKN", "QKN") tableMapping.ColumnMappings.Add("EndempfängerKundenNr", "EndempfängerKundenNr") tableMapping.ColumnMappings.Add("Endempfänger", "Endempfänger") tableMapping.ColumnMappings.Add("SB_Zeitstempel", "SB_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("AvisoID", "AvisoID") tableMapping.ColumnMappings.Add("SendungID", "SendungID") tableMapping.ColumnMappings.Add("PersonalnummerQS", "PersonalnummerQS") tableMapping.ColumnMappings.Add("AvisiererKundenNr", "AvisiererKundenNr") tableMapping.ColumnMappings.Add("Avisierer", "Avisierer") tableMapping.ColumnMappings.Add("KdAuftragsNr", "KdAuftragsNr") tableMapping.ColumnMappings.Add("Grenzstelle", "Grenzstelle") tableMapping.ColumnMappings.Add("NCTS_Verzollungsadresse", "NCTS_Verzollungsadresse") tableMapping.ColumnMappings.Add("NCTS_VerzollungsadresseKdNr", "NCTS_VerzollungsadresseKdNr") tableMapping.ColumnMappings.Add("NCTS_Verzollungsadresse_EORI", "NCTS_Verzollungsadresse_EORI") tableMapping.ColumnMappings.Add("NCTS_Bestimmungszollstelle", "NCTS_Bestimmungszollstelle") tableMapping.ColumnMappings.Add("AuftraggeberBetragKassiert", "AuftraggeberBetragKassiert") tableMapping.ColumnMappings.Add("KdAuftragsNrAvisierer", "KdAuftragsNrAvisierer") tableMapping.ColumnMappings.Add("KdAuftragsNrEmpfaenger", "KdAuftragsNrEmpfaenger") tableMapping.ColumnMappings.Add("KdAuftragsNrFrachtfuehrer", "KdAuftragsNrFrachtfuehrer") tableMapping.ColumnMappings.Add("Lieferantenrechnung", "Lieferantenrechnung") tableMapping.ColumnMappings.Add("DokumentId_Steuerbeleg", "DokumentId_Steuerbeleg") tableMapping.ColumnMappings.Add("DokumentId_Mitteilung", "DokumentId_Mitteilung") tableMapping.ColumnMappings.Add("DokumentId_VBD", "DokumentId_VBD") tableMapping.ColumnMappings.Add("DokumentId_ABD", "DokumentId_ABD") tableMapping.ColumnMappings.Add("DokumentId_AVM", "DokumentId_AVM") tableMapping.ColumnMappings.Add("FilialenNrHandling", "FilialenNrHandling") tableMapping.ColumnMappings.Add("FilialenNrAbklaerung", "FilialenNrAbklaerung") tableMapping.ColumnMappings.Add("HandlingZuKassieren", "HandlingZuKassieren") tableMapping.ColumnMappings.Add("SB_CMRNr", "SB_CMRNr") tableMapping.ColumnMappings.Add("PersonalnummerAbklTR", "PersonalnummerAbklTR") tableMapping.ColumnMappings.Add("UK_EIDR_ausstehend", "UK_EIDR_ausstehend") tableMapping.ColumnMappings.Add("Zollstelle", "Zollstelle") tableMapping.ColumnMappings.Add("AtlasBezNrAES", "AtlasBezNrAES") tableMapping.ColumnMappings.Add("Packstücke_Zoll", "Packstücke_Zoll") tableMapping.ColumnMappings.Add("Zollsystem_Land", "Zollsystem_Land") 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].[Speditionsbuch] WHERE (([FilialenNr] = @Original_FilialenNr) A"& _ "ND ([AbfertigungsNr] = @Original_AbfertigungsNr) AND ([UnterNr] = @Original_Unte"& _ "rNr) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Ori"& _ "ginal_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[Speditionsbuch] ([FilialenNr], [AbfertigungsNr], [UnterNr], [A"& _ "bfertigungsdatum], [Bar], [Fakturiert], [BelegNr], [ErfassungsNr], [LKW Kennzeic"& _ "hen], [AbsenderKundenNr], [Absender], [AbsenderOffertenNr], [EmpfängerKundenNr],"& _ " [Empfänger], [EmpfängerOffertenNr], [VermittlerKundenNr], [Vermittler], [Vermit"& _ "tlerOffertenNr], [FrachtführerKundenNr], [Frachtführer], [AnzahlZA], [AnzahlZAFr"& _ "emd], [AnzahlZnV], [AnzahlZnVFremd], [AnzahlT1], [AnzahlT2], [AnzahlAE], [Anzahl"& _ "CarnetTIR], [AnzahlBarvorlagen], [AnzahlSonstiges], [AnzahlGrenzgebühren], [Avis"& _ "Uhrzeit], [Vermerk], [Bemerkungen], [Währungsschlüssel], [Rechnungsbetrag], [Umr"& _ "echnungskurs], [Packstücke], [Rohmasse], [Zahlungsaufschub], [Löschen], [Abferti"& _ "gungsart], [Abfertigungsanzahl], [AbfertigungsanzahlPos], [Barzahlungsbetrag], ["& _ "Sachbearbeiter], [Personalnummer], [AtlasBezNrEZA], [AtlasBezNrNCTS], [Versendun"& _ "gsland], [SB_CMR], [SB_CMRDatum], [veoerz_basbtg], [Zucker_MRN_Nr], [Zucker_MRN_"& _ "Datum], [Zucker_Aufschub], [Zollsystem], [Bestimmungszollstelle], [Bürgschaft], "& _ "[Sicherheitsbetrag], [SgutKompl], [Bestimmungsland], [EuFiskalEmpfänger], [QKN],"& _ " [EndempfängerKundenNr], [Endempfänger], [SB_Zeitstempel], [AvisoID], [SendungID"& _ "], [PersonalnummerQS], [AvisiererKundenNr], [Avisierer], [KdAuftragsNr], [Grenzs"& _ "telle], [NCTS_Verzollungsadresse], [NCTS_VerzollungsadresseKdNr], [NCTS_Verzollu"& _ "ngsadresse_EORI], [NCTS_Bestimmungszollstelle], [AuftraggeberBetragKassiert], [K"& _ "dAuftragsNrAvisierer], [KdAuftragsNrEmpfaenger], [KdAuftragsNrFrachtfuehrer], [L"& _ "ieferantenrechnung], [DokumentId_Steuerbeleg], [DokumentId_Mitteilung], [Dokumen"& _ "tId_VBD], [DokumentId_ABD], [DokumentId_AVM], [FilialenNrHandling], [FilialenNrA"& _ "bklaerung], [HandlingZuKassieren], [SB_CMRNr], [PersonalnummerAbklTR], [UK_EIDR_"& _ "ausstehend], [Zollstelle], [AtlasBezNrAES], [Packstücke_Zoll], [Zollsystem_Land]"& _ ") VALUES (@FilialenNr, @AbfertigungsNr, @UnterNr, @Abfertigungsdatum, @Bar, @Fak"& _ "turiert, @BelegNr, @ErfassungsNr, @LKW_Kennzeichen, @AbsenderKundenNr, @Absender"& _ ", @AbsenderOffertenNr, @EmpfängerKundenNr, @Empfänger, @EmpfängerOffertenNr, @Ve"& _ "rmittlerKundenNr, @Vermittler, @VermittlerOffertenNr, @FrachtführerKundenNr, @Fr"& _ "achtführer, @AnzahlZA, @AnzahlZAFremd, @AnzahlZnV, @AnzahlZnVFremd, @AnzahlT1, @"& _ "AnzahlT2, @AnzahlAE, @AnzahlCarnetTIR, @AnzahlBarvorlagen, @AnzahlSonstiges, @An"& _ "zahlGrenzgebühren, @AvisUhrzeit, @Vermerk, @Bemerkungen, @Währungsschlüssel, @Re"& _ "chnungsbetrag, @Umrechnungskurs, @Packstücke, @Rohmasse, @Zahlungsaufschub, @Lös"& _ "chen, @Abfertigungsart, @Abfertigungsanzahl, @AbfertigungsanzahlPos, @Barzahlung"& _ "sbetrag, @Sachbearbeiter, @Personalnummer, @AtlasBezNrEZA, @AtlasBezNrNCTS, @Ver"& _ "sendungsland, @SB_CMR, @SB_CMRDatum, @veoerz_basbtg, @Zucker_MRN_Nr, @Zucker_MRN"& _ "_Datum, @Zucker_Aufschub, @Zollsystem, @Bestimmungszollstelle, @Bürgschaft, @Sic"& _ "herheitsbetrag, @SgutKompl, @Bestimmungsland, @EuFiskalEmpfänger, @QKN, @Endempf"& _ "ängerKundenNr, @Endempfänger, @SB_Zeitstempel, @AvisoID, @SendungID, @Personalnu"& _ "mmerQS, @AvisiererKundenNr, @Avisierer, @KdAuftragsNr, @Grenzstelle, @NCTS_Verzo"& _ "llungsadresse, @NCTS_VerzollungsadresseKdNr, @NCTS_Verzollungsadresse_EORI, @NCT"& _ "S_Bestimmungszollstelle, @AuftraggeberBetragKassiert, @KdAuftragsNrAvisierer, @K"& _ "dAuftragsNrEmpfaenger, @KdAuftragsNrFrachtfuehrer, @Lieferantenrechnung, @Dokume"& _ "ntId_Steuerbeleg, @DokumentId_Mitteilung, @DokumentId_VBD, @DokumentId_ABD, @Dok"& _ "umentId_AVM, @FilialenNrHandling, @FilialenNrAbklaerung, @HandlingZuKassieren, @"& _ "SB_CMRNr, @PersonalnummerAbklTR, @UK_EIDR_ausstehend, @Zollstelle, @AtlasBezNrAE"& _ "S, @Packstücke_Zoll, @Zollsystem_Land);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FilialenNr, AbfertigungsNr, Unte"& _ "rNr, Abfertigungsdatum, Bar, Fakturiert, BelegNr, ErfassungsNr, [LKW Kennzeichen"& _ "], AbsenderKundenNr, Absender, AbsenderOffertenNr, EmpfängerKundenNr, Empfänger,"& _ " EmpfängerOffertenNr, VermittlerKundenNr, Vermittler, VermittlerOffertenNr, Frac"& _ "htführerKundenNr, Frachtführer, AnzahlZA, AnzahlZAFremd, AnzahlZnV, AnzahlZnVFre"& _ "md, AnzahlT1, AnzahlT2, AnzahlAE, AnzahlCarnetTIR, AnzahlBarvorlagen, AnzahlSons"& _ "tiges, AnzahlGrenzgebühren, AvisUhrzeit, Vermerk, Bemerkungen, Währungsschlüssel"& _ ", Rechnungsbetrag, Umrechnungskurs, Packstücke, Rohmasse, Zahlungsaufschub, Lösc"& _ "hen, Abfertigungsart, Abfertigungsanzahl, AbfertigungsanzahlPos, Barzahlungsbetr"& _ "ag, Sachbearbeiter, Personalnummer, AtlasBezNrEZA, AtlasBezNrNCTS, Versendungsla"& _ "nd, SB_CMR, SB_CMRDatum, veoerz_basbtg, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_"& _ "Aufschub, Zollsystem, Bestimmungszollstelle, Bürgschaft, Sicherheitsbetrag, Sgut"& _ "Kompl, Bestimmungsland, EuFiskalEmpfänger, QKN, EndempfängerKundenNr, Endempfäng"& _ "er, SB_Zeitstempel, upsize_ts, AvisoID, SendungID, PersonalnummerQS, AvisiererKu"& _ "ndenNr, Avisierer, KdAuftragsNr, Grenzstelle, NCTS_Verzollungsadresse, NCTS_Verz"& _ "ollungsadresseKdNr, NCTS_Verzollungsadresse_EORI, NCTS_Bestimmungszollstelle, Au"& _ "ftraggeberBetragKassiert, KdAuftragsNrAvisierer, KdAuftragsNrEmpfaenger, KdAuftr"& _ "agsNrFrachtfuehrer, Lieferantenrechnung, DokumentId_Steuerbeleg, DokumentId_Mitt"& _ "eilung, DokumentId_VBD, DokumentId_ABD, DokumentId_AVM, FilialenNrHandling, Fili"& _ "alenNrAbklaerung, HandlingZuKassieren, SB_CMRNr, PersonalnummerAbklTR, UK_EIDR_a"& _ "usstehend, Zollstelle, AtlasBezNrAES, Packstücke_Zoll, Zollsystem_Land FROM Sped"& _ "itionsbuch WHERE (AbfertigungsNr = @AbfertigungsNr) AND (FilialenNr = @FilialenN"& _ "r) AND (UnterNr = @UnterNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bar", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturiert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErfassungsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErfassungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Empfänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Empfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermittler", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermittler", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FrachtführerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FrachtführerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Frachtführer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Frachtführer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZA", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZAFremd", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZAFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZnV", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZnV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZnVFremd", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZnVFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlT1", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlT2", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlAE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlAE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlCarnetTIR", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlCarnetTIR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlBarvorlagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlBarvorlagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlSonstiges", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlSonstiges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlGrenzgebühren", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlGrenzgebühren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkungen", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umrechnungskurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umrechnungskurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Packstücke", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Packstücke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsaufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsaufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Löschen", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Löschen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsanzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsanzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsanzahlPos", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsanzahlPos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Barzahlungsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Barzahlungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Personalnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Personalnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtlasBezNrEZA", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtlasBezNrEZA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtlasBezNrNCTS", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtlasBezNrNCTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Versendungsland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Versendungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_CMR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_CMR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_CMRDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_CMRDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoerz_basbtg", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoerz_basbtg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_MRN_Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_MRN_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_Aufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_Aufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollsystem", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollsystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bürgschaft", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bürgschaft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sicherheitsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sicherheitsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SgutKompl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SgutKompl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungsland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EuFiskalEmpfänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EuFiskalEmpfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QKN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QKN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EndempfängerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndempfängerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Endempfänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Endempfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SendungID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SendungID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonalnummerQS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonalnummerQS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisiererKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisiererKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Avisierer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Avisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Grenzstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Grenzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_Verzollungsadresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_Verzollungsadresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_VerzollungsadresseKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_VerzollungsadresseKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_Verzollungsadresse_EORI", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_Verzollungsadresse_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_Bestimmungszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_Bestimmungszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AuftraggeberBetragKassiert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AuftraggeberBetragKassiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNrAvisierer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNrAvisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNrEmpfaenger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNrEmpfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNrFrachtfuehrer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNrFrachtfuehrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferantenrechnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferantenrechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_Steuerbeleg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_Steuerbeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_Mitteilung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_Mitteilung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_VBD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_VBD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_ABD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_ABD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_AVM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_AVM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNrHandling", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNrHandling", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNrAbklaerung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNrAbklaerung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HandlingZuKassieren", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HandlingZuKassieren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_CMRNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_CMRNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonalnummerAbklTR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonalnummerAbklTR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UK_EIDR_ausstehend", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UK_EIDR_ausstehend", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtlasBezNrAES", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtlasBezNrAES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Packstücke_Zoll", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Packstücke_Zoll", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollsystem_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollsystem_Land", 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].[Speditionsbuch] SET [FilialenNr] = @FilialenNr, [AbfertigungsNr] = "& _ "@AbfertigungsNr, [UnterNr] = @UnterNr, [Abfertigungsdatum] = @Abfertigungsdatum,"& _ " [Bar] = @Bar, [Fakturiert] = @Fakturiert, [BelegNr] = @BelegNr, [ErfassungsNr] "& _ "= @ErfassungsNr, [LKW Kennzeichen] = @LKW_Kennzeichen, [AbsenderKundenNr] = @Abs"& _ "enderKundenNr, [Absender] = @Absender, [AbsenderOffertenNr] = @AbsenderOffertenN"& _ "r, [EmpfängerKundenNr] = @EmpfängerKundenNr, [Empfänger] = @Empfänger, [Empfänge"& _ "rOffertenNr] = @EmpfängerOffertenNr, [VermittlerKundenNr] = @VermittlerKundenNr,"& _ " [Vermittler] = @Vermittler, [VermittlerOffertenNr] = @VermittlerOffertenNr, [Fr"& _ "achtführerKundenNr] = @FrachtführerKundenNr, [Frachtführer] = @Frachtführer, [An"& _ "zahlZA] = @AnzahlZA, [AnzahlZAFremd] = @AnzahlZAFremd, [AnzahlZnV] = @AnzahlZnV,"& _ " [AnzahlZnVFremd] = @AnzahlZnVFremd, [AnzahlT1] = @AnzahlT1, [AnzahlT2] = @Anzah"& _ "lT2, [AnzahlAE] = @AnzahlAE, [AnzahlCarnetTIR] = @AnzahlCarnetTIR, [AnzahlBarvor"& _ "lagen] = @AnzahlBarvorlagen, [AnzahlSonstiges] = @AnzahlSonstiges, [AnzahlGrenzg"& _ "ebühren] = @AnzahlGrenzgebühren, [AvisUhrzeit] = @AvisUhrzeit, [Vermerk] = @Verm"& _ "erk, [Bemerkungen] = @Bemerkungen, [Währungsschlüssel] = @Währungsschlüssel, [Re"& _ "chnungsbetrag] = @Rechnungsbetrag, [Umrechnungskurs] = @Umrechnungskurs, [Packst"& _ "ücke] = @Packstücke, [Rohmasse] = @Rohmasse, [Zahlungsaufschub] = @Zahlungsaufsc"& _ "hub, [Löschen] = @Löschen, [Abfertigungsart] = @Abfertigungsart, [Abfertigungsan"& _ "zahl] = @Abfertigungsanzahl, [AbfertigungsanzahlPos] = @AbfertigungsanzahlPos, ["& _ "Barzahlungsbetrag] = @Barzahlungsbetrag, [Sachbearbeiter] = @Sachbearbeiter, [Pe"& _ "rsonalnummer] = @Personalnummer, [AtlasBezNrEZA] = @AtlasBezNrEZA, [AtlasBezNrNC"& _ "TS] = @AtlasBezNrNCTS, [Versendungsland] = @Versendungsland, [SB_CMR] = @SB_CMR,"& _ " [SB_CMRDatum] = @SB_CMRDatum, [veoerz_basbtg] = @veoerz_basbtg, [Zucker_MRN_Nr]"& _ " = @Zucker_MRN_Nr, [Zucker_MRN_Datum] = @Zucker_MRN_Datum, [Zucker_Aufschub] = @"& _ "Zucker_Aufschub, [Zollsystem] = @Zollsystem, [Bestimmungszollstelle] = @Bestimmu"& _ "ngszollstelle, [Bürgschaft] = @Bürgschaft, [Sicherheitsbetrag] = @Sicherheitsbet"& _ "rag, [SgutKompl] = @SgutKompl, [Bestimmungsland] = @Bestimmungsland, [EuFiskalEm"& _ "pfänger] = @EuFiskalEmpfänger, [QKN] = @QKN, [EndempfängerKundenNr] = @Endempfän"& _ "gerKundenNr, [Endempfänger] = @Endempfänger, [SB_Zeitstempel] = @SB_Zeitstempel,"& _ " [AvisoID] = @AvisoID, [SendungID] = @SendungID, [PersonalnummerQS] = @Personaln"& _ "ummerQS, [AvisiererKundenNr] = @AvisiererKundenNr, [Avisierer] = @Avisierer, [Kd"& _ "AuftragsNr] = @KdAuftragsNr, [Grenzstelle] = @Grenzstelle, [NCTS_Verzollungsadre"& _ "sse] = @NCTS_Verzollungsadresse, [NCTS_VerzollungsadresseKdNr] = @NCTS_Verzollun"& _ "gsadresseKdNr, [NCTS_Verzollungsadresse_EORI] = @NCTS_Verzollungsadresse_EORI, ["& _ "NCTS_Bestimmungszollstelle] = @NCTS_Bestimmungszollstelle, [AuftraggeberBetragKa"& _ "ssiert] = @AuftraggeberBetragKassiert, [KdAuftragsNrAvisierer] = @KdAuftragsNrAv"& _ "isierer, [KdAuftragsNrEmpfaenger] = @KdAuftragsNrEmpfaenger, [KdAuftragsNrFracht"& _ "fuehrer] = @KdAuftragsNrFrachtfuehrer, [Lieferantenrechnung] = @Lieferantenrechn"& _ "ung, [DokumentId_Steuerbeleg] = @DokumentId_Steuerbeleg, [DokumentId_Mitteilung]"& _ " = @DokumentId_Mitteilung, [DokumentId_VBD] = @DokumentId_VBD, [DokumentId_ABD] "& _ "= @DokumentId_ABD, [DokumentId_AVM] = @DokumentId_AVM, [FilialenNrHandling] = @F"& _ "ilialenNrHandling, [FilialenNrAbklaerung] = @FilialenNrAbklaerung, [HandlingZuKa"& _ "ssieren] = @HandlingZuKassieren, [SB_CMRNr] = @SB_CMRNr, [PersonalnummerAbklTR] "& _ "= @PersonalnummerAbklTR, [UK_EIDR_ausstehend] = @UK_EIDR_ausstehend, [Zollstelle"& _ "] = @Zollstelle, [AtlasBezNrAES] = @AtlasBezNrAES, [Packstücke_Zoll] = @Packstüc"& _ "ke_Zoll, [Zollsystem_Land] = @Zollsystem_Land WHERE (([FilialenNr] = @Original_F"& _ "ilialenNr) AND ([AbfertigungsNr] = @Original_AbfertigungsNr) AND ([UnterNr] = @O"& _ "riginal_UnterNr) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsiz"& _ "e_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FilialenNr, AbfertigungsNr, UnterNr, Abf"& _ "ertigungsdatum, Bar, Fakturiert, BelegNr, ErfassungsNr, [LKW Kennzeichen], Absen"& _ "derKundenNr, Absender, AbsenderOffertenNr, EmpfängerKundenNr, Empfänger, Empfäng"& _ "erOffertenNr, VermittlerKundenNr, Vermittler, VermittlerOffertenNr, Frachtführer"& _ "KundenNr, Frachtführer, AnzahlZA, AnzahlZAFremd, AnzahlZnV, AnzahlZnVFremd, Anza"& _ "hlT1, AnzahlT2, AnzahlAE, AnzahlCarnetTIR, AnzahlBarvorlagen, AnzahlSonstiges, A"& _ "nzahlGrenzgebühren, AvisUhrzeit, Vermerk, Bemerkungen, Währungsschlüssel, Rechnu"& _ "ngsbetrag, Umrechnungskurs, Packstücke, Rohmasse, Zahlungsaufschub, Löschen, Abf"& _ "ertigungsart, Abfertigungsanzahl, AbfertigungsanzahlPos, Barzahlungsbetrag, Sach"& _ "bearbeiter, Personalnummer, AtlasBezNrEZA, AtlasBezNrNCTS, Versendungsland, SB_C"& _ "MR, SB_CMRDatum, veoerz_basbtg, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub"& _ ", Zollsystem, Bestimmungszollstelle, Bürgschaft, Sicherheitsbetrag, SgutKompl, B"& _ "estimmungsland, EuFiskalEmpfänger, QKN, EndempfängerKundenNr, Endempfänger, SB_Z"& _ "eitstempel, upsize_ts, AvisoID, SendungID, PersonalnummerQS, AvisiererKundenNr, "& _ "Avisierer, KdAuftragsNr, Grenzstelle, NCTS_Verzollungsadresse, NCTS_Verzollungsa"& _ "dresseKdNr, NCTS_Verzollungsadresse_EORI, NCTS_Bestimmungszollstelle, Auftraggeb"& _ "erBetragKassiert, KdAuftragsNrAvisierer, KdAuftragsNrEmpfaenger, KdAuftragsNrFra"& _ "chtfuehrer, Lieferantenrechnung, DokumentId_Steuerbeleg, DokumentId_Mitteilung, "& _ "DokumentId_VBD, DokumentId_ABD, DokumentId_AVM, FilialenNrHandling, FilialenNrAb"& _ "klaerung, HandlingZuKassieren, SB_CMRNr, PersonalnummerAbklTR, UK_EIDR_ausstehen"& _ "d, Zollstelle, AtlasBezNrAES, Packstücke_Zoll, Zollsystem_Land FROM Speditionsbu"& _ "ch WHERE (AbfertigungsNr = @AbfertigungsNr) AND (FilialenNr = @FilialenNr) AND ("& _ "UnterNr = @UnterNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bar", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturiert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErfassungsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErfassungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Empfänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Empfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermittler", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermittler", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FrachtführerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FrachtführerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Frachtführer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Frachtführer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZA", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZAFremd", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZAFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZnV", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZnV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZnVFremd", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZnVFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlT1", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlT2", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlAE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlAE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlCarnetTIR", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlCarnetTIR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlBarvorlagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlBarvorlagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlSonstiges", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlSonstiges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlGrenzgebühren", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlGrenzgebühren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkungen", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umrechnungskurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umrechnungskurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Packstücke", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Packstücke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsaufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsaufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Löschen", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Löschen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsanzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsanzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsanzahlPos", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsanzahlPos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Barzahlungsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Barzahlungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Personalnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Personalnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtlasBezNrEZA", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtlasBezNrEZA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtlasBezNrNCTS", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtlasBezNrNCTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Versendungsland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Versendungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_CMR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_CMR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_CMRDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_CMRDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoerz_basbtg", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoerz_basbtg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_MRN_Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_MRN_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_Aufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_Aufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollsystem", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollsystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bürgschaft", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bürgschaft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sicherheitsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sicherheitsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SgutKompl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SgutKompl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungsland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EuFiskalEmpfänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EuFiskalEmpfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QKN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QKN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EndempfängerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndempfängerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Endempfänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Endempfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SendungID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SendungID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonalnummerQS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonalnummerQS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisiererKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisiererKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Avisierer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Avisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Grenzstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Grenzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_Verzollungsadresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_Verzollungsadresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_VerzollungsadresseKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_VerzollungsadresseKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_Verzollungsadresse_EORI", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_Verzollungsadresse_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_Bestimmungszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_Bestimmungszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AuftraggeberBetragKassiert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AuftraggeberBetragKassiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNrAvisierer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNrAvisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNrEmpfaenger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNrEmpfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNrFrachtfuehrer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNrFrachtfuehrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferantenrechnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferantenrechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_Steuerbeleg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_Steuerbeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_Mitteilung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_Mitteilung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_VBD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_VBD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_ABD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_ABD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_AVM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_AVM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNrHandling", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNrHandling", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNrAbklaerung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNrAbklaerung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HandlingZuKassieren", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HandlingZuKassieren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_CMRNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_CMRNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonalnummerAbklTR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonalnummerAbklTR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UK_EIDR_ausstehend", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UK_EIDR_ausstehend", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtlasBezNrAES", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtlasBezNrAES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Packstücke_Zoll", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Packstücke_Zoll", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollsystem_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollsystem_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, Bar, Fakturiert, B"& _ "elegNr, ErfassungsNr, [LKW Kennzeichen], AbsenderKundenNr, Absender, AbsenderOff"& _ "ertenNr, EmpfängerKundenNr, Empfänger, EmpfängerOffertenNr, VermittlerKundenNr, "& _ "Vermittler, VermittlerOffertenNr, FrachtführerKundenNr, Frachtführer, AnzahlZA, "& _ "AnzahlZAFremd, AnzahlZnV, AnzahlZnVFremd, AnzahlT1, AnzahlT2, AnzahlAE, AnzahlCa"& _ "rnetTIR, AnzahlBarvorlagen, AnzahlSonstiges, AnzahlGrenzgebühren, AvisUhrzeit, V"& _ "ermerk, Bemerkungen, Währungsschlüssel, Rechnungsbetrag, Umrechnungskurs, Packst"& _ "ücke, Rohmasse, Zahlungsaufschub, Löschen, Abfertigungsart, Abfertigungsanzahl, "& _ "AbfertigungsanzahlPos, Barzahlungsbetrag, Sachbearbeiter, Personalnummer, AtlasB"& _ "ezNrEZA, AtlasBezNrNCTS, Versendungsland, SB_CMR, SB_CMRDatum, veoerz_basbtg, Zu"& _ "cker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, Zollsystem, Bestimmungszollstell"& _ "e, Bürgschaft, Sicherheitsbetrag, SgutKompl, Bestimmungsland, EuFiskalEmpfänger,"& _ " QKN, EndempfängerKundenNr, Endempfänger, SB_Zeitstempel, upsize_ts, AvisoID, Se"& _ "ndungID, PersonalnummerQS, AvisiererKundenNr, Avisierer, KdAuftragsNr, Grenzstel"& _ "le, NCTS_Verzollungsadresse, NCTS_VerzollungsadresseKdNr, NCTS_Verzollungsadress"& _ "e_EORI, NCTS_Bestimmungszollstelle, AuftraggeberBetragKassiert, KdAuftragsNrAvis"& _ "ierer, KdAuftragsNrEmpfaenger, KdAuftragsNrFrachtfuehrer, Lieferantenrechnung, D"& _ "okumentId_Steuerbeleg, DokumentId_Mitteilung, DokumentId_VBD, DokumentId_ABD, Do"& _ "kumentId_AVM, FilialenNrHandling, FilialenNrAbklaerung, HandlingZuKassieren, SB_"& _ "CMRNr, PersonalnummerAbklTR, UK_EIDR_ausstehend, Zollstelle, AtlasBezNrAES, Pack"& _ "stücke_Zoll, Zollsystem_Land FROM dbo.Speditionsbuch" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.SpeditionsbuchDataTable) 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 VERAGDataSet.SpeditionsbuchDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.SpeditionsbuchDataTable = New VERAGDataSet.SpeditionsbuchDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.SpeditionsbuchDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Speditionsbuch") 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_FilialenNr As Short, ByVal Original_AbfertigungsNr As Integer, ByVal Original_UnterNr As Short, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_FilialenNr,Short) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_AbfertigungsNr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UnterNr,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal Bar As Boolean, _ ByVal Fakturiert As Boolean, _ ByVal BelegNr As String, _ ByVal ErfassungsNr As String, _ ByVal LKW_Kennzeichen As String, _ ByVal AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal Absender As String, _ ByVal AbsenderOffertenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Empfänger As String, _ ByVal EmpfängerOffertenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Vermittler As String, _ ByVal VermittlerOffertenNr As Global.System.Nullable(Of Integer), _ ByVal FrachtführerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Frachtführer As String, _ ByVal AnzahlZA As Short, _ ByVal AnzahlZAFremd As Short, _ ByVal AnzahlZnV As Short, _ ByVal AnzahlZnVFremd As Short, _ ByVal AnzahlT1 As Short, _ ByVal AnzahlT2 As Short, _ ByVal AnzahlAE As Short, _ ByVal AnzahlCarnetTIR As Short, _ ByVal AnzahlBarvorlagen As Short, _ ByVal AnzahlSonstiges As Short, _ ByVal AnzahlGrenzgebühren As Short, _ ByVal AvisUhrzeit As Global.System.Nullable(Of Date), _ ByVal Vermerk As String, _ ByVal Bemerkungen As String, _ ByVal Währungsschlüssel As Global.System.Nullable(Of Short), _ ByVal Rechnungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal Packstücke As String, _ ByVal Rohmasse As Global.System.Nullable(Of Integer), _ ByVal Zahlungsaufschub As String, _ ByVal Löschen As Global.System.Nullable(Of Date), _ ByVal Abfertigungsart As Global.System.Nullable(Of Short), _ ByVal Abfertigungsanzahl As Global.System.Nullable(Of Integer), _ ByVal AbfertigungsanzahlPos As Global.System.Nullable(Of Integer), _ ByVal Barzahlungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal Sachbearbeiter As String, _ ByVal Personalnummer As Global.System.Nullable(Of Integer), _ ByVal AtlasBezNrEZA As String, _ ByVal AtlasBezNrNCTS As String, _ ByVal Versendungsland As String, _ ByVal SB_CMR As Boolean, _ ByVal SB_CMRDatum As Global.System.Nullable(Of Date), _ ByVal veoerz_basbtg As Global.System.Nullable(Of Decimal), _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Global.System.Nullable(Of Date), _ ByVal Zucker_Aufschub As String, _ ByVal Zollsystem As String, _ ByVal Bestimmungszollstelle As String, _ ByVal Bürgschaft As String, _ ByVal Sicherheitsbetrag As Global.System.Nullable(Of Decimal), _ ByVal SgutKompl As String, _ ByVal Bestimmungsland As String, _ ByVal EuFiskalEmpfänger As String, _ ByVal QKN As String, _ ByVal EndempfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Endempfänger As String, _ ByVal SB_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal AvisoID As Global.System.Nullable(Of Integer), _ ByVal SendungID As Global.System.Nullable(Of Integer), _ ByVal PersonalnummerQS As Global.System.Nullable(Of Integer), _ ByVal AvisiererKundenNr As Global.System.Nullable(Of Integer), _ ByVal Avisierer As String, _ ByVal KdAuftragsNr As String, _ ByVal Grenzstelle As String, _ ByVal NCTS_Verzollungsadresse As String, _ ByVal NCTS_VerzollungsadresseKdNr As Global.System.Nullable(Of Integer), _ ByVal NCTS_Verzollungsadresse_EORI As String, _ ByVal NCTS_Bestimmungszollstelle As String, _ ByVal AuftraggeberBetragKassiert As Global.System.Nullable(Of Decimal), _ ByVal KdAuftragsNrAvisierer As String, _ ByVal KdAuftragsNrEmpfaenger As String, _ ByVal KdAuftragsNrFrachtfuehrer As String, _ ByVal Lieferantenrechnung As String, _ ByVal DokumentId_Steuerbeleg As Global.System.Nullable(Of Integer), _ ByVal DokumentId_Mitteilung As Global.System.Nullable(Of Integer), _ ByVal DokumentId_VBD As Global.System.Nullable(Of Integer), _ ByVal DokumentId_ABD As Global.System.Nullable(Of Integer), _ ByVal DokumentId_AVM As Global.System.Nullable(Of Integer), _ ByVal FilialenNrHandling As Global.System.Nullable(Of Short), _ ByVal FilialenNrAbklaerung As Global.System.Nullable(Of Short), _ ByVal HandlingZuKassieren As Decimal, _ ByVal SB_CMRNr As String, _ ByVal PersonalnummerAbklTR As Global.System.Nullable(Of Integer), _ ByVal UK_EIDR_ausstehend As Boolean, _ ByVal Zollstelle As String, _ ByVal AtlasBezNrAES As String, _ ByVal Packstücke_Zoll As String, _ ByVal Zollsystem_Land As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(FilialenNr,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(AbfertigungsNr,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(UnterNr,Short) Me.Adapter.InsertCommand.Parameters(3).Value = CType(Abfertigungsdatum,Date) Me.Adapter.InsertCommand.Parameters(4).Value = CType(Bar,Boolean) Me.Adapter.InsertCommand.Parameters(5).Value = CType(Fakturiert,Boolean) If (BelegNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(BelegNr,String) End If If (ErfassungsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ErfassungsNr,String) End If If (LKW_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(LKW_Kennzeichen,String) End If If (AbsenderKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(AbsenderKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Absender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Absender,String) End If If (AbsenderOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(AbsenderOffertenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (EmpfängerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(EmpfängerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Empfänger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Empfänger,String) End If If (EmpfängerOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(EmpfängerOffertenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (VermittlerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(VermittlerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Vermittler Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Vermittler,String) End If If (VermittlerOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(VermittlerOffertenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (FrachtführerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(FrachtführerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Frachtführer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Frachtführer,String) End If Me.Adapter.InsertCommand.Parameters(20).Value = CType(AnzahlZA,Short) Me.Adapter.InsertCommand.Parameters(21).Value = CType(AnzahlZAFremd,Short) Me.Adapter.InsertCommand.Parameters(22).Value = CType(AnzahlZnV,Short) Me.Adapter.InsertCommand.Parameters(23).Value = CType(AnzahlZnVFremd,Short) Me.Adapter.InsertCommand.Parameters(24).Value = CType(AnzahlT1,Short) Me.Adapter.InsertCommand.Parameters(25).Value = CType(AnzahlT2,Short) Me.Adapter.InsertCommand.Parameters(26).Value = CType(AnzahlAE,Short) Me.Adapter.InsertCommand.Parameters(27).Value = CType(AnzahlCarnetTIR,Short) Me.Adapter.InsertCommand.Parameters(28).Value = CType(AnzahlBarvorlagen,Short) Me.Adapter.InsertCommand.Parameters(29).Value = CType(AnzahlSonstiges,Short) Me.Adapter.InsertCommand.Parameters(30).Value = CType(AnzahlGrenzgebühren,Short) If (AvisUhrzeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(AvisUhrzeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(Vermerk,String) End If If (Bemerkungen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(Bemerkungen,String) End If If (Währungsschlüssel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(Währungsschlüssel.Value,Short) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Rechnungsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(Rechnungsbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Umrechnungskurs.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(36).Value = CType(Umrechnungskurs.Value,Double) Else Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Packstücke Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(Packstücke,String) End If If (Rohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(38).Value = CType(Rohmasse.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (Zahlungsaufschub Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(Zahlungsaufschub,String) End If If (Löschen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(Löschen.Value,Date) Else Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (Abfertigungsart.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(41).Value = CType(Abfertigungsart.Value,Short) Else Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Abfertigungsanzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(42).Value = CType(Abfertigungsanzahl.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (AbfertigungsanzahlPos.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(AbfertigungsanzahlPos.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Barzahlungsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(44).Value = CType(Barzahlungsbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(Sachbearbeiter,String) End If If (Personalnummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(46).Value = CType(Personalnummer.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (AtlasBezNrEZA Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(AtlasBezNrEZA,String) End If If (AtlasBezNrNCTS Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(AtlasBezNrNCTS,String) End If If (Versendungsland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(Versendungsland,String) End If Me.Adapter.InsertCommand.Parameters(50).Value = CType(SB_CMR,Boolean) If (SB_CMRDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(SB_CMRDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (veoerz_basbtg.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(52).Value = CType(veoerz_basbtg.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Zucker_MRN_Nr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(Zucker_MRN_Nr,String) End If If (Zucker_MRN_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(Zucker_MRN_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Zucker_Aufschub Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(Zucker_Aufschub,String) End If If (Zollsystem Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(Zollsystem,String) End If If (Bestimmungszollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(Bestimmungszollstelle,String) End If If (Bürgschaft Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(Bürgschaft,String) End If If (Sicherheitsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(59).Value = CType(Sicherheitsbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (SgutKompl Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(SgutKompl,String) End If If (Bestimmungsland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(Bestimmungsland,String) End If If (EuFiskalEmpfänger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(EuFiskalEmpfänger,String) End If If (QKN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(QKN,String) End If If (EndempfängerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(64).Value = CType(EndempfängerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Endempfänger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(Endempfänger,String) End If If (SB_Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(66).Value = CType(SB_Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (AvisoID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(67).Value = CType(AvisoID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (SendungID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(68).Value = CType(SendungID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (PersonalnummerQS.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(69).Value = CType(PersonalnummerQS.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (AvisiererKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(70).Value = CType(AvisiererKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Avisierer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(Avisierer,String) End If If (KdAuftragsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(KdAuftragsNr,String) End If If (Grenzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(Grenzstelle,String) End If If (NCTS_Verzollungsadresse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(NCTS_Verzollungsadresse,String) End If If (NCTS_VerzollungsadresseKdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(75).Value = CType(NCTS_VerzollungsadresseKdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value End If If (NCTS_Verzollungsadresse_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(NCTS_Verzollungsadresse_EORI,String) End If If (NCTS_Bestimmungszollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(NCTS_Bestimmungszollstelle,String) End If If (AuftraggeberBetragKassiert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(78).Value = CType(AuftraggeberBetragKassiert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (KdAuftragsNrAvisierer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(KdAuftragsNrAvisierer,String) End If If (KdAuftragsNrEmpfaenger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(KdAuftragsNrEmpfaenger,String) End If If (KdAuftragsNrFrachtfuehrer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(KdAuftragsNrFrachtfuehrer,String) End If If (Lieferantenrechnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(Lieferantenrechnung,String) End If If (DokumentId_Steuerbeleg.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(83).Value = CType(DokumentId_Steuerbeleg.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (DokumentId_Mitteilung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(84).Value = CType(DokumentId_Mitteilung.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value End If If (DokumentId_VBD.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(85).Value = CType(DokumentId_VBD.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (DokumentId_ABD.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(86).Value = CType(DokumentId_ABD.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value End If If (DokumentId_AVM.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(87).Value = CType(DokumentId_AVM.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (FilialenNrHandling.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(88).Value = CType(FilialenNrHandling.Value,Short) Else Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (FilialenNrAbklaerung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(89).Value = CType(FilialenNrAbklaerung.Value,Short) Else Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(90).Value = CType(HandlingZuKassieren,Decimal) If (SB_CMRNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(SB_CMRNr,String) End If If (PersonalnummerAbklTR.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(92).Value = CType(PersonalnummerAbklTR.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(93).Value = CType(UK_EIDR_ausstehend,Boolean) If (Zollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(Zollstelle,String) End If If (AtlasBezNrAES Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(AtlasBezNrAES,String) End If If (Packstücke_Zoll Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(Packstücke_Zoll,String) End If If (Zollsystem_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(Zollsystem_Land,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 FilialenNr As Short, _ ByVal AbfertigungsNr As Integer, _ ByVal UnterNr As Short, _ ByVal Abfertigungsdatum As Date, _ ByVal Bar As Boolean, _ ByVal Fakturiert As Boolean, _ ByVal BelegNr As String, _ ByVal ErfassungsNr As String, _ ByVal LKW_Kennzeichen As String, _ ByVal AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal Absender As String, _ ByVal AbsenderOffertenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Empfänger As String, _ ByVal EmpfängerOffertenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Vermittler As String, _ ByVal VermittlerOffertenNr As Global.System.Nullable(Of Integer), _ ByVal FrachtführerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Frachtführer As String, _ ByVal AnzahlZA As Short, _ ByVal AnzahlZAFremd As Short, _ ByVal AnzahlZnV As Short, _ ByVal AnzahlZnVFremd As Short, _ ByVal AnzahlT1 As Short, _ ByVal AnzahlT2 As Short, _ ByVal AnzahlAE As Short, _ ByVal AnzahlCarnetTIR As Short, _ ByVal AnzahlBarvorlagen As Short, _ ByVal AnzahlSonstiges As Short, _ ByVal AnzahlGrenzgebühren As Short, _ ByVal AvisUhrzeit As Global.System.Nullable(Of Date), _ ByVal Vermerk As String, _ ByVal Bemerkungen As String, _ ByVal Währungsschlüssel As Global.System.Nullable(Of Short), _ ByVal Rechnungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal Packstücke As String, _ ByVal Rohmasse As Global.System.Nullable(Of Integer), _ ByVal Zahlungsaufschub As String, _ ByVal Löschen As Global.System.Nullable(Of Date), _ ByVal Abfertigungsart As Global.System.Nullable(Of Short), _ ByVal Abfertigungsanzahl As Global.System.Nullable(Of Integer), _ ByVal AbfertigungsanzahlPos As Global.System.Nullable(Of Integer), _ ByVal Barzahlungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal Sachbearbeiter As String, _ ByVal Personalnummer As Global.System.Nullable(Of Integer), _ ByVal AtlasBezNrEZA As String, _ ByVal AtlasBezNrNCTS As String, _ ByVal Versendungsland As String, _ ByVal SB_CMR As Boolean, _ ByVal SB_CMRDatum As Global.System.Nullable(Of Date), _ ByVal veoerz_basbtg As Global.System.Nullable(Of Decimal), _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Global.System.Nullable(Of Date), _ ByVal Zucker_Aufschub As String, _ ByVal Zollsystem As String, _ ByVal Bestimmungszollstelle As String, _ ByVal Bürgschaft As String, _ ByVal Sicherheitsbetrag As Global.System.Nullable(Of Decimal), _ ByVal SgutKompl As String, _ ByVal Bestimmungsland As String, _ ByVal EuFiskalEmpfänger As String, _ ByVal QKN As String, _ ByVal EndempfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Endempfänger As String, _ ByVal SB_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal AvisoID As Global.System.Nullable(Of Integer), _ ByVal SendungID As Global.System.Nullable(Of Integer), _ ByVal PersonalnummerQS As Global.System.Nullable(Of Integer), _ ByVal AvisiererKundenNr As Global.System.Nullable(Of Integer), _ ByVal Avisierer As String, _ ByVal KdAuftragsNr As String, _ ByVal Grenzstelle As String, _ ByVal NCTS_Verzollungsadresse As String, _ ByVal NCTS_VerzollungsadresseKdNr As Global.System.Nullable(Of Integer), _ ByVal NCTS_Verzollungsadresse_EORI As String, _ ByVal NCTS_Bestimmungszollstelle As String, _ ByVal AuftraggeberBetragKassiert As Global.System.Nullable(Of Decimal), _ ByVal KdAuftragsNrAvisierer As String, _ ByVal KdAuftragsNrEmpfaenger As String, _ ByVal KdAuftragsNrFrachtfuehrer As String, _ ByVal Lieferantenrechnung As String, _ ByVal DokumentId_Steuerbeleg As Global.System.Nullable(Of Integer), _ ByVal DokumentId_Mitteilung As Global.System.Nullable(Of Integer), _ ByVal DokumentId_VBD As Global.System.Nullable(Of Integer), _ ByVal DokumentId_ABD As Global.System.Nullable(Of Integer), _ ByVal DokumentId_AVM As Global.System.Nullable(Of Integer), _ ByVal FilialenNrHandling As Global.System.Nullable(Of Short), _ ByVal FilialenNrAbklaerung As Global.System.Nullable(Of Short), _ ByVal HandlingZuKassieren As Decimal, _ ByVal SB_CMRNr As String, _ ByVal PersonalnummerAbklTR As Global.System.Nullable(Of Integer), _ ByVal UK_EIDR_ausstehend As Boolean, _ ByVal Zollstelle As String, _ ByVal AtlasBezNrAES As String, _ ByVal Packstücke_Zoll As String, _ ByVal Zollsystem_Land As String, _ ByVal Original_FilialenNr As Short, _ ByVal Original_AbfertigungsNr As Integer, _ ByVal Original_UnterNr As Short, _ ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FilialenNr,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(AbfertigungsNr,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(UnterNr,Short) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Abfertigungsdatum,Date) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Bar,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Fakturiert,Boolean) If (BelegNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BelegNr,String) End If If (ErfassungsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ErfassungsNr,String) End If If (LKW_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(LKW_Kennzeichen,String) End If If (AbsenderKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(AbsenderKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Absender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Absender,String) End If If (AbsenderOffertenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(AbsenderOffertenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (EmpfängerKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(EmpfängerKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Empfänger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Empfänger,String) End If If (EmpfängerOffertenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(EmpfängerOffertenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (VermittlerKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(VermittlerKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Vermittler Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Vermittler,String) End If If (VermittlerOffertenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(VermittlerOffertenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (FrachtführerKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(FrachtführerKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Frachtführer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Frachtführer,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(AnzahlZA,Short) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(AnzahlZAFremd,Short) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(AnzahlZnV,Short) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(AnzahlZnVFremd,Short) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(AnzahlT1,Short) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(AnzahlT2,Short) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(AnzahlAE,Short) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(AnzahlCarnetTIR,Short) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(AnzahlBarvorlagen,Short) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(AnzahlSonstiges,Short) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(AnzahlGrenzgebühren,Short) If (AvisUhrzeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(AvisUhrzeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Vermerk,String) End If If (Bemerkungen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Bemerkungen,String) End If If (Währungsschlüssel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Währungsschlüssel.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Rechnungsbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Rechnungsbetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Umrechnungskurs.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Umrechnungskurs.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Packstücke Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Packstücke,String) End If If (Rohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Rohmasse.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (Zahlungsaufschub Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Zahlungsaufschub,String) End If If (Löschen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Löschen.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (Abfertigungsart.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Abfertigungsart.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Abfertigungsanzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Abfertigungsanzahl.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (AbfertigungsanzahlPos.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(AbfertigungsanzahlPos.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Barzahlungsbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Barzahlungsbetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Sachbearbeiter,String) End If If (Personalnummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Personalnummer.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (AtlasBezNrEZA Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(AtlasBezNrEZA,String) End If If (AtlasBezNrNCTS Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(AtlasBezNrNCTS,String) End If If (Versendungsland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Versendungsland,String) End If Me.Adapter.UpdateCommand.Parameters(50).Value = CType(SB_CMR,Boolean) If (SB_CMRDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(SB_CMRDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (veoerz_basbtg.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(veoerz_basbtg.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Zucker_MRN_Nr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Zucker_MRN_Nr,String) End If If (Zucker_MRN_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Zucker_MRN_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Zucker_Aufschub Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Zucker_Aufschub,String) End If If (Zollsystem Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Zollsystem,String) End If If (Bestimmungszollstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Bestimmungszollstelle,String) End If If (Bürgschaft Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Bürgschaft,String) End If If (Sicherheitsbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Sicherheitsbetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (SgutKompl Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(SgutKompl,String) End If If (Bestimmungsland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Bestimmungsland,String) End If If (EuFiskalEmpfänger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(EuFiskalEmpfänger,String) End If If (QKN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(QKN,String) End If If (EndempfängerKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(EndempfängerKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Endempfänger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Endempfänger,String) End If If (SB_Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(SB_Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (AvisoID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(AvisoID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (SendungID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(SendungID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (PersonalnummerQS.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(69).Value = CType(PersonalnummerQS.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (AvisiererKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(AvisiererKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Avisierer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Avisierer,String) End If If (KdAuftragsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(KdAuftragsNr,String) End If If (Grenzstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Grenzstelle,String) End If If (NCTS_Verzollungsadresse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(NCTS_Verzollungsadresse,String) End If If (NCTS_VerzollungsadresseKdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(75).Value = CType(NCTS_VerzollungsadresseKdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value End If If (NCTS_Verzollungsadresse_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(NCTS_Verzollungsadresse_EORI,String) End If If (NCTS_Bestimmungszollstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(NCTS_Bestimmungszollstelle,String) End If If (AuftraggeberBetragKassiert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(AuftraggeberBetragKassiert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (KdAuftragsNrAvisierer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(KdAuftragsNrAvisierer,String) End If If (KdAuftragsNrEmpfaenger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(KdAuftragsNrEmpfaenger,String) End If If (KdAuftragsNrFrachtfuehrer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(KdAuftragsNrFrachtfuehrer,String) End If If (Lieferantenrechnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Lieferantenrechnung,String) End If If (DokumentId_Steuerbeleg.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(83).Value = CType(DokumentId_Steuerbeleg.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (DokumentId_Mitteilung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(84).Value = CType(DokumentId_Mitteilung.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value End If If (DokumentId_VBD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(85).Value = CType(DokumentId_VBD.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (DokumentId_ABD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(86).Value = CType(DokumentId_ABD.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value End If If (DokumentId_AVM.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(87).Value = CType(DokumentId_AVM.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (FilialenNrHandling.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(FilialenNrHandling.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (FilialenNrAbklaerung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(89).Value = CType(FilialenNrAbklaerung.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(90).Value = CType(HandlingZuKassieren,Decimal) If (SB_CMRNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(SB_CMRNr,String) End If If (PersonalnummerAbklTR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(92).Value = CType(PersonalnummerAbklTR.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(93).Value = CType(UK_EIDR_ausstehend,Boolean) If (Zollstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Zollstelle,String) End If If (AtlasBezNrAES Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(AtlasBezNrAES,String) End If If (Packstücke_Zoll Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(Packstücke_Zoll,String) End If If (Zollsystem_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Zollsystem_Land,String) End If Me.Adapter.UpdateCommand.Parameters(98).Value = CType(Original_FilialenNr,Short) Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_AbfertigungsNr,Integer) Me.Adapter.UpdateCommand.Parameters(100).Value = CType(Original_UnterNr,Short) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = CType(Original_upsize_ts,Byte()) End If 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 Abfertigungsdatum As Date, _ ByVal Bar As Boolean, _ ByVal Fakturiert As Boolean, _ ByVal BelegNr As String, _ ByVal ErfassungsNr As String, _ ByVal LKW_Kennzeichen As String, _ ByVal AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal Absender As String, _ ByVal AbsenderOffertenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Empfänger As String, _ ByVal EmpfängerOffertenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Vermittler As String, _ ByVal VermittlerOffertenNr As Global.System.Nullable(Of Integer), _ ByVal FrachtführerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Frachtführer As String, _ ByVal AnzahlZA As Short, _ ByVal AnzahlZAFremd As Short, _ ByVal AnzahlZnV As Short, _ ByVal AnzahlZnVFremd As Short, _ ByVal AnzahlT1 As Short, _ ByVal AnzahlT2 As Short, _ ByVal AnzahlAE As Short, _ ByVal AnzahlCarnetTIR As Short, _ ByVal AnzahlBarvorlagen As Short, _ ByVal AnzahlSonstiges As Short, _ ByVal AnzahlGrenzgebühren As Short, _ ByVal AvisUhrzeit As Global.System.Nullable(Of Date), _ ByVal Vermerk As String, _ ByVal Bemerkungen As String, _ ByVal Währungsschlüssel As Global.System.Nullable(Of Short), _ ByVal Rechnungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal Packstücke As String, _ ByVal Rohmasse As Global.System.Nullable(Of Integer), _ ByVal Zahlungsaufschub As String, _ ByVal Löschen As Global.System.Nullable(Of Date), _ ByVal Abfertigungsart As Global.System.Nullable(Of Short), _ ByVal Abfertigungsanzahl As Global.System.Nullable(Of Integer), _ ByVal AbfertigungsanzahlPos As Global.System.Nullable(Of Integer), _ ByVal Barzahlungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal Sachbearbeiter As String, _ ByVal Personalnummer As Global.System.Nullable(Of Integer), _ ByVal AtlasBezNrEZA As String, _ ByVal AtlasBezNrNCTS As String, _ ByVal Versendungsland As String, _ ByVal SB_CMR As Boolean, _ ByVal SB_CMRDatum As Global.System.Nullable(Of Date), _ ByVal veoerz_basbtg As Global.System.Nullable(Of Decimal), _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Global.System.Nullable(Of Date), _ ByVal Zucker_Aufschub As String, _ ByVal Zollsystem As String, _ ByVal Bestimmungszollstelle As String, _ ByVal Bürgschaft As String, _ ByVal Sicherheitsbetrag As Global.System.Nullable(Of Decimal), _ ByVal SgutKompl As String, _ ByVal Bestimmungsland As String, _ ByVal EuFiskalEmpfänger As String, _ ByVal QKN As String, _ ByVal EndempfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Endempfänger As String, _ ByVal SB_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal AvisoID As Global.System.Nullable(Of Integer), _ ByVal SendungID As Global.System.Nullable(Of Integer), _ ByVal PersonalnummerQS As Global.System.Nullable(Of Integer), _ ByVal AvisiererKundenNr As Global.System.Nullable(Of Integer), _ ByVal Avisierer As String, _ ByVal KdAuftragsNr As String, _ ByVal Grenzstelle As String, _ ByVal NCTS_Verzollungsadresse As String, _ ByVal NCTS_VerzollungsadresseKdNr As Global.System.Nullable(Of Integer), _ ByVal NCTS_Verzollungsadresse_EORI As String, _ ByVal NCTS_Bestimmungszollstelle As String, _ ByVal AuftraggeberBetragKassiert As Global.System.Nullable(Of Decimal), _ ByVal KdAuftragsNrAvisierer As String, _ ByVal KdAuftragsNrEmpfaenger As String, _ ByVal KdAuftragsNrFrachtfuehrer As String, _ ByVal Lieferantenrechnung As String, _ ByVal DokumentId_Steuerbeleg As Global.System.Nullable(Of Integer), _ ByVal DokumentId_Mitteilung As Global.System.Nullable(Of Integer), _ ByVal DokumentId_VBD As Global.System.Nullable(Of Integer), _ ByVal DokumentId_ABD As Global.System.Nullable(Of Integer), _ ByVal DokumentId_AVM As Global.System.Nullable(Of Integer), _ ByVal FilialenNrHandling As Global.System.Nullable(Of Short), _ ByVal FilialenNrAbklaerung As Global.System.Nullable(Of Short), _ ByVal HandlingZuKassieren As Decimal, _ ByVal SB_CMRNr As String, _ ByVal PersonalnummerAbklTR As Global.System.Nullable(Of Integer), _ ByVal UK_EIDR_ausstehend As Boolean, _ ByVal Zollstelle As String, _ ByVal AtlasBezNrAES As String, _ ByVal Packstücke_Zoll As String, _ ByVal Zollsystem_Land As String, _ ByVal Original_FilialenNr As Short, _ ByVal Original_AbfertigungsNr As Integer, _ ByVal Original_UnterNr As Short, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_FilialenNr, Original_AbfertigungsNr, Original_UnterNr, Abfertigungsdatum, Bar, Fakturiert, BelegNr, ErfassungsNr, LKW_Kennzeichen, AbsenderKundenNr, Absender, AbsenderOffertenNr, EmpfängerKundenNr, Empfänger, EmpfängerOffertenNr, VermittlerKundenNr, Vermittler, VermittlerOffertenNr, FrachtführerKundenNr, Frachtführer, AnzahlZA, AnzahlZAFremd, AnzahlZnV, AnzahlZnVFremd, AnzahlT1, AnzahlT2, AnzahlAE, AnzahlCarnetTIR, AnzahlBarvorlagen, AnzahlSonstiges, AnzahlGrenzgebühren, AvisUhrzeit, Vermerk, Bemerkungen, Währungsschlüssel, Rechnungsbetrag, Umrechnungskurs, Packstücke, Rohmasse, Zahlungsaufschub, Löschen, Abfertigungsart, Abfertigungsanzahl, AbfertigungsanzahlPos, Barzahlungsbetrag, Sachbearbeiter, Personalnummer, AtlasBezNrEZA, AtlasBezNrNCTS, Versendungsland, SB_CMR, SB_CMRDatum, veoerz_basbtg, Zucker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, Zollsystem, Bestimmungszollstelle, Bürgschaft, Sicherheitsbetrag, SgutKompl, Bestimmungsland, EuFiskalEmpfänger, QKN, EndempfängerKundenNr, Endempfänger, SB_Zeitstempel, AvisoID, SendungID, PersonalnummerQS, AvisiererKundenNr, Avisierer, KdAuftragsNr, Grenzstelle, NCTS_Verzollungsadresse, NCTS_VerzollungsadresseKdNr, NCTS_Verzollungsadresse_EORI, NCTS_Bestimmungszollstelle, AuftraggeberBetragKassiert, KdAuftragsNrAvisierer, KdAuftragsNrEmpfaenger, KdAuftragsNrFrachtfuehrer, Lieferantenrechnung, DokumentId_Steuerbeleg, DokumentId_Mitteilung, DokumentId_VBD, DokumentId_ABD, DokumentId_AVM, FilialenNrHandling, FilialenNrAbklaerung, HandlingZuKassieren, SB_CMRNr, PersonalnummerAbklTR, UK_EIDR_ausstehend, Zollstelle, AtlasBezNrAES, Packstücke_Zoll, Zollsystem_Land, Original_FilialenNr, Original_AbfertigungsNr, Original_UnterNr, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class StandardoffertenTableAdapter 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 = "Standardofferten" tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") tableMapping.ColumnMappings.Add("BGebLeistungsNr", "BGebLeistungsNr") tableMapping.ColumnMappings.Add("BGebProzent", "BGebProzent") tableMapping.ColumnMappings.Add("BGebMinBetrag", "BGebMinBetrag") tableMapping.ColumnMappings.Add("BerechnungsartPosInkludiert", "BerechnungsartPosInkludiert") tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Standardofferten] WHERE (([OffertenNr] = @Original_OffertenNr)"& _ " AND ([Währungscode] = @Original_Währungscode) AND ([LeistungsNr] = @Original_Le"& _ "istungsNr) AND ([LeistungsBez] = @Original_LeistungsBez) AND ([SSMA_TimeStamp] ="& _ " @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Standardofferten] ([OffertenNr], [Währungscode], [LeistungsNr]"& _ ", [LeistungsBez], [Preis], [Anzahl], [BGebLeistungsNr], [BGebProzent], [BGebMinB"& _ "etrag], [BerechnungsartPosInkludiert], [BerechnungsartNr]) VALUES (@OffertenNr, "& _ "@Währungscode, @LeistungsNr, @LeistungsBez, @Preis, @Anzahl, @BGebLeistungsNr, @"& _ "BGebProzent, @BGebMinBetrag, @BerechnungsartPosInkludiert, @BerechnungsartNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "SELECT OffertenNr, Währungscode, LeistungsNr, LeistungsBez, Preis, Anzahl, BGebL"& _ "eistungsNr, BGebProzent, BGebMinBetrag, BerechnungsartPosInkludiert, Berechnungs"& _ "artNr, SSMA_TimeStamp FROM Standardofferten WHERE (LeistungsBez = @LeistungsBez)"& _ " AND (LeistungsNr = @LeistungsNr) AND (OffertenNr = @OffertenNr) AND (Währungsco"& _ "de = @Währungscode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebLeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebMinBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebMinBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartPosInkludiert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartPosInkludiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", 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].[Standardofferten] SET [OffertenNr] = @OffertenNr, [Währungscode] = "& _ "@Währungscode, [LeistungsNr] = @LeistungsNr, [LeistungsBez] = @LeistungsBez, [Pr"& _ "eis] = @Preis, [Anzahl] = @Anzahl, [BGebLeistungsNr] = @BGebLeistungsNr, [BGebPr"& _ "ozent] = @BGebProzent, [BGebMinBetrag] = @BGebMinBetrag, [BerechnungsartPosInklu"& _ "diert] = @BerechnungsartPosInkludiert, [BerechnungsartNr] = @BerechnungsartNr WH"& _ "ERE (([OffertenNr] = @Original_OffertenNr) AND ([Währungscode] = @Original_Währu"& _ "ngscode) AND ([LeistungsNr] = @Original_LeistungsNr) AND ([LeistungsBez] = @Orig"& _ "inal_LeistungsBez) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT O"& _ "ffertenNr, Währungscode, LeistungsNr, LeistungsBez, Preis, Anzahl, BGebLeistungs"& _ "Nr, BGebProzent, BGebMinBetrag, BerechnungsartPosInkludiert, BerechnungsartNr, S"& _ "SMA_TimeStamp FROM Standardofferten WHERE (LeistungsBez = @LeistungsBez) AND (Le"& _ "istungsNr = @LeistungsNr) AND (OffertenNr = @OffertenNr) AND (Währungscode = @Wä"& _ "hrungscode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebLeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebMinBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebMinBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartPosInkludiert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartPosInkludiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 OffertenNr, Währungscode, LeistungsNr, LeistungsBez, Preis, Anzahl, BGebLe"& _ "istungsNr, BGebProzent, BGebMinBetrag, BerechnungsartPosInkludiert, Berechnungsa"& _ "rtNr, SSMA_TimeStamp FROM dbo.Standardofferten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.StandardoffertenDataTable) 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 VERAGDataSet.StandardoffertenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.StandardoffertenDataTable = New VERAGDataSet.StandardoffertenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.StandardoffertenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Standardofferten") 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_OffertenNr As Integer, ByVal Original_Währungscode As String, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_OffertenNr,Integer) If (Original_Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Währungscode") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Währungscode,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_LeistungsBez,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 OffertenNr As Integer, ByVal Währungscode As String, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Preis As Global.System.Nullable(Of Decimal), ByVal Anzahl As Global.System.Nullable(Of Short), ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), ByVal BGebProzent As Global.System.Nullable(Of Single), ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), ByVal BerechnungsartPosInkludiert As Global.System.Nullable(Of Integer), ByVal BerechnungsartNr As Global.System.Nullable(Of Short)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(OffertenNr,Integer) If (Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Währungscode") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Währungscode,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(LeistungsBez,String) End If If (Preis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Preis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Anzahl.Value,Short) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (BerechnungsartPosInkludiert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(BerechnungsartPosInkludiert.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (BerechnungsartNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(BerechnungsartNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(10).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 OffertenNr As Integer, _ ByVal Währungscode As String, _ ByVal LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal BerechnungsartPosInkludiert As Global.System.Nullable(Of Integer), _ ByVal BerechnungsartNr As Global.System.Nullable(Of Short), _ ByVal Original_OffertenNr As Integer, _ ByVal Original_Währungscode As String, _ ByVal Original_LeistungsNr As Short, _ ByVal Original_LeistungsBez As String, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OffertenNr,Integer) If (Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Währungscode") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Währungscode,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LeistungsBez,String) End If If (Preis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Preis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Anzahl.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (BerechnungsartPosInkludiert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(BerechnungsartPosInkludiert.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (BerechnungsartNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(BerechnungsartNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_OffertenNr,Integer) If (Original_Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Währungscode") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Währungscode,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_LeistungsBez,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Preis As Global.System.Nullable(Of Decimal), ByVal Anzahl As Global.System.Nullable(Of Short), ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), ByVal BGebProzent As Global.System.Nullable(Of Single), ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), ByVal BerechnungsartPosInkludiert As Global.System.Nullable(Of Integer), ByVal BerechnungsartNr As Global.System.Nullable(Of Short), ByVal Original_OffertenNr As Integer, ByVal Original_Währungscode As String, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_OffertenNr, Original_Währungscode, Original_LeistungsNr, Original_LeistungsBez, Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, BerechnungsartPosInkludiert, BerechnungsartNr, Original_OffertenNr, Original_Währungscode, Original_LeistungsNr, Original_LeistungsBez, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class StandardoffertenFirmaTableAdapter 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 = "StandardoffertenFirma" tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") tableMapping.ColumnMappings.Add("BGebLeistungsNr", "BGebLeistungsNr") tableMapping.ColumnMappings.Add("BGebProzent", "BGebProzent") tableMapping.ColumnMappings.Add("BGebMinBetrag", "BGebMinBetrag") tableMapping.ColumnMappings.Add("Firma", "Firma") tableMapping.ColumnMappings.Add("BerechnungsartPosInkludiert", "BerechnungsartPosInkludiert") tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[StandardoffertenFirma] WHERE (([OffertenNr] = @Original_Offert"& _ "enNr) AND ([Währungscode] = @Original_Währungscode) AND ([LeistungsNr] = @Origin"& _ "al_LeistungsNr) AND ([LeistungsBez] = @Original_LeistungsBez) AND ([Firma] = @Or"& _ "iginal_Firma) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[StandardoffertenFirma] ([OffertenNr], [Währungscode], [Leistun"& _ "gsNr], [LeistungsBez], [Preis], [Anzahl], [BGebLeistungsNr], [BGebProzent], [BGe"& _ "bMinBetrag], [Firma], [BerechnungsartPosInkludiert], [BerechnungsartNr]) VALUES "& _ "(@OffertenNr, @Währungscode, @LeistungsNr, @LeistungsBez, @Preis, @Anzahl, @BGeb"& _ "LeistungsNr, @BGebProzent, @BGebMinBetrag, @Firma, @BerechnungsartPosInkludiert,"& _ " @BerechnungsartNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OffertenNr, Währungscode, LeistungsNr, LeistungsBez"& _ ", Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, Firma, Berechnungs"& _ "artPosInkludiert, BerechnungsartNr, SSMA_TimeStamp FROM StandardoffertenFirma WH"& _ "ERE (Firma = @Firma) AND (LeistungsBez = @LeistungsBez) AND (LeistungsNr = @Leis"& _ "tungsNr) AND (OffertenNr = @OffertenNr) AND (Währungscode = @Währungscode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebLeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebMinBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebMinBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartPosInkludiert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartPosInkludiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", 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].[StandardoffertenFirma] SET [OffertenNr] = @OffertenNr, [Währungscod"& _ "e] = @Währungscode, [LeistungsNr] = @LeistungsNr, [LeistungsBez] = @LeistungsBez"& _ ", [Preis] = @Preis, [Anzahl] = @Anzahl, [BGebLeistungsNr] = @BGebLeistungsNr, [B"& _ "GebProzent] = @BGebProzent, [BGebMinBetrag] = @BGebMinBetrag, [Firma] = @Firma, "& _ "[BerechnungsartPosInkludiert] = @BerechnungsartPosInkludiert, [BerechnungsartNr]"& _ " = @BerechnungsartNr WHERE (([OffertenNr] = @Original_OffertenNr) AND ([Währungs"& _ "code] = @Original_Währungscode) AND ([LeistungsNr] = @Original_LeistungsNr) AND "& _ "([LeistungsBez] = @Original_LeistungsBez) AND ([Firma] = @Original_Firma) AND (["& _ "SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OffertenNr, Währungscode, "& _ "LeistungsNr, LeistungsBez, Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMinB"& _ "etrag, Firma, BerechnungsartPosInkludiert, BerechnungsartNr, SSMA_TimeStamp FROM"& _ " StandardoffertenFirma WHERE (Firma = @Firma) AND (LeistungsBez = @LeistungsBez)"& _ " AND (LeistungsNr = @LeistungsNr) AND (OffertenNr = @OffertenNr) AND (Währungsco"& _ "de = @Währungscode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebLeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebMinBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebMinBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartPosInkludiert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartPosInkludiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 OffertenNr, Währungscode, LeistungsNr, LeistungsBez, Preis, Anzahl, BGebLe"& _ "istungsNr, BGebProzent, BGebMinBetrag, Firma, BerechnungsartPosInkludiert, Berec"& _ "hnungsartNr, SSMA_TimeStamp FROM dbo.StandardoffertenFirma" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.StandardoffertenFirmaDataTable) 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 VERAGDataSet.StandardoffertenFirmaDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.StandardoffertenFirmaDataTable = New VERAGDataSet.StandardoffertenFirmaDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.StandardoffertenFirmaDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "StandardoffertenFirma") 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_OffertenNr As Integer, ByVal Original_Währungscode As String, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_Firma As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_OffertenNr,Integer) If (Original_Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Währungscode") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Währungscode,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_LeistungsBez,String) End If If (Original_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Firma") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Firma,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 OffertenNr As Integer, ByVal Währungscode As String, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Preis As Global.System.Nullable(Of Decimal), ByVal Anzahl As Global.System.Nullable(Of Short), ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), ByVal BGebProzent As Global.System.Nullable(Of Single), ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), ByVal Firma As String, ByVal BerechnungsartPosInkludiert As Global.System.Nullable(Of Integer), ByVal BerechnungsartNr As Global.System.Nullable(Of Short)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(OffertenNr,Integer) If (Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Währungscode") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Währungscode,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(LeistungsBez,String) End If If (Preis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Preis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Anzahl.Value,Short) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Firma,String) End If If (BerechnungsartPosInkludiert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(BerechnungsartPosInkludiert.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (BerechnungsartNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(BerechnungsartNr.Value,Short) 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 OffertenNr As Integer, _ ByVal Währungscode As String, _ ByVal LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal Firma As String, _ ByVal BerechnungsartPosInkludiert As Global.System.Nullable(Of Integer), _ ByVal BerechnungsartNr As Global.System.Nullable(Of Short), _ ByVal Original_OffertenNr As Integer, _ ByVal Original_Währungscode As String, _ ByVal Original_LeistungsNr As Short, _ ByVal Original_LeistungsBez As String, _ ByVal Original_Firma As String, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OffertenNr,Integer) If (Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Währungscode") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Währungscode,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LeistungsBez,String) End If If (Preis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Preis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Anzahl.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Firma,String) End If If (BerechnungsartPosInkludiert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(BerechnungsartPosInkludiert.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (BerechnungsartNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(BerechnungsartNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_OffertenNr,Integer) If (Original_Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Währungscode") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Währungscode,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_LeistungsBez,String) End If If (Original_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Firma") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Firma,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Preis As Global.System.Nullable(Of Decimal), ByVal Anzahl As Global.System.Nullable(Of Short), ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), ByVal BGebProzent As Global.System.Nullable(Of Single), ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), ByVal BerechnungsartPosInkludiert As Global.System.Nullable(Of Integer), ByVal BerechnungsartNr As Global.System.Nullable(Of Short), ByVal Original_OffertenNr As Integer, ByVal Original_Währungscode As String, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_Firma As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_OffertenNr, Original_Währungscode, Original_LeistungsNr, Original_LeistungsBez, Preis, Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, Original_Firma, BerechnungsartPosInkludiert, BerechnungsartNr, Original_OffertenNr, Original_Währungscode, Original_LeistungsNr, Original_LeistungsBez, Original_Firma, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class SteuertabelleTableAdapter 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 = "Steuertabelle" tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("Steuerbezeichnung", "Steuerbezeichnung") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("AuswahlSteuerbezeichnung", "AuswahlSteuerbezeichnung") 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].[Steuertabelle] WHERE (([Steuerschlüssel] = @Original_Steuersch"& _ "lüssel) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Steuertabelle] ([Steuerschlüssel], [Steuersatz %], [Steuerbeze"& _ "ichnung], [AuswahlSteuerbezeichnung]) VALUES (@Steuerschlüssel, @p1, @Steuerbeze"& _ "ichnung, @AuswahlSteuerbezeichnung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Steuerschlüssel, [Steuersatz %], St"& _ "euerbezeichnung, SSMA_TimeStamp, AuswahlSteuerbezeichnung FROM Steuertabelle WHE"& _ "RE (Steuerschlüssel = @Steuerschlüssel)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AuswahlSteuerbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AuswahlSteuerbezeichnung", 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].[Steuertabelle] SET [Steuerschlüssel] = @Steuerschlüssel, [Steuersat"& _ "z %] = @p1, [Steuerbezeichnung] = @Steuerbezeichnung, [AuswahlSteuerbezeichnung]"& _ " = @AuswahlSteuerbezeichnung WHERE (([Steuerschlüssel] = @Original_Steuerschlüss"& _ "el) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Steuerschlüssel,"& _ " [Steuersatz %], Steuerbezeichnung, SSMA_TimeStamp, AuswahlSteuerbezeichnung FRO"& _ "M Steuertabelle WHERE (Steuerschlüssel = @Steuerschlüssel)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AuswahlSteuerbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AuswahlSteuerbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Steuerschlüssel, [Steuersatz %], Steuerbezeichnung, SSMA_TimeStamp, Auswah"& _ "lSteuerbezeichnung FROM dbo.Steuertabelle" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.SteuertabelleDataTable) 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 VERAGDataSet.SteuertabelleDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.SteuertabelleDataTable = New VERAGDataSet.SteuertabelleDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.SteuertabelleDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Steuertabelle") 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_Steuerschlüssel As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Steuerschlüssel,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Steuerschlüssel As Short, ByVal p1 As Single, ByVal Steuerbezeichnung As String, ByVal AuswahlSteuerbezeichnung As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Steuerschlüssel,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(p1,Single) If (Steuerbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Steuerbezeichnung,String) End If If (AuswahlSteuerbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(AuswahlSteuerbezeichnung,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 Steuerschlüssel As Short, ByVal p1 As Single, ByVal Steuerbezeichnung As String, ByVal AuswahlSteuerbezeichnung As String, ByVal Original_Steuerschlüssel As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Steuerschlüssel,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(p1,Single) If (Steuerbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Steuerbezeichnung,String) End If If (AuswahlSteuerbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(AuswahlSteuerbezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Steuerschlüssel,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 p1 As Single, ByVal Steuerbezeichnung As String, ByVal AuswahlSteuerbezeichnung As String, ByVal Original_Steuerschlüssel As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Steuerschlüssel, p1, Steuerbezeichnung, AuswahlSteuerbezeichnung, Original_Steuerschlüssel, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_ASFINAG_FileInfoTableAdapter 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 = "tbl_ASFINAG_FileInfo" tableMapping.ColumnMappings.Add("FileName", "FileName") tableMapping.ColumnMappings.Add("RunNumber", "RunNumber") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_ASFINAG_FileInfo] WHERE (([FileName] = @Original_FileName)"& _ " AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FileName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FileName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_ASFINAG_FileInfo] ([FileName], [RunNumber]) VALUES (@FileN"& _ "ame, @RunNumber);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FileName, RunNumber, SSMA_TimeStamp FROM tbl_ASFINAG_F"& _ "ileInfo WHERE (FileName = @FileName)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FileName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FileName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RunNumber", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RunNumber", 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].[tbl_ASFINAG_FileInfo] SET [FileName] = @FileName, [RunNumber] = @Ru"& _ "nNumber WHERE (([FileName] = @Original_FileName) AND ([SSMA_TimeStamp] = @Origin"& _ "al_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FileName, RunNumber, SSMA_TimeStamp FROM tbl_ASFINA"& _ "G_FileInfo WHERE (FileName = @FileName)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FileName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FileName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RunNumber", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RunNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FileName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FileName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 FileName, RunNumber, SSMA_TimeStamp FROM dbo.tbl_ASFINAG_FileInfo" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_ASFINAG_FileInfoDataTable) 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 VERAGDataSet.tbl_ASFINAG_FileInfoDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_ASFINAG_FileInfoDataTable = New VERAGDataSet.tbl_ASFINAG_FileInfoDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_ASFINAG_FileInfoDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_ASFINAG_FileInfo") 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_FileName As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_FileName Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_FileName") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_FileName,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 FileName As String, ByVal RunNumber As Short) As Integer If (FileName Is Nothing) Then Throw New Global.System.ArgumentNullException("FileName") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(FileName,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(RunNumber,Short) 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 FileName As String, ByVal RunNumber As Short, ByVal Original_FileName As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (FileName Is Nothing) Then Throw New Global.System.ArgumentNullException("FileName") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FileName,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(RunNumber,Short) If (Original_FileName Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_FileName") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_FileName,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 RunNumber As Short, ByVal Original_FileName As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_FileName, RunNumber, Original_FileName, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_BMD_LänderTableAdapter 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 = "tbl_BMD_Länder" tableMapping.ColumnMappings.Add("BMD_Ländernummer", "BMD_Ländernummer") tableMapping.ColumnMappings.Add("BMD_Ländername", "BMD_Ländername") tableMapping.ColumnMappings.Add("BMD_Beitrittsdatum_EU", "BMD_Beitrittsdatum_EU") tableMapping.ColumnMappings.Add("FMZ_Ländernummer", "FMZ_Ländernummer") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_BMD_Länder] WHERE (([BMD_Ländernummer] = @Original_BMD_Län"& _ "dernummer) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BMD_Ländernummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BMD_Ländernummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_BMD_Länder] ([BMD_Ländernummer], [BMD_Ländername], [BMD_Be"& _ "itrittsdatum_EU], [FMZ_Ländernummer]) VALUES (@BMD_Ländernummer, @BMD_Ländername"& _ ", @BMD_Beitrittsdatum_EU, @FMZ_Ländernummer);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BMD_Ländernummer, BMD_Länd"& _ "ername, BMD_Beitrittsdatum_EU, FMZ_Ländernummer, SSMA_TimeStamp FROM tbl_BMD_Län"& _ "der WHERE (BMD_Ländernummer = @BMD_Ländernummer)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BMD_Ländernummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BMD_Ländernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BMD_Ländername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BMD_Ländername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BMD_Beitrittsdatum_EU", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BMD_Beitrittsdatum_EU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FMZ_Ländernummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FMZ_Ländernummer", 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].[tbl_BMD_Länder] SET [BMD_Ländernummer] = @BMD_Ländernummer, [BMD_Lä"& _ "ndername] = @BMD_Ländername, [BMD_Beitrittsdatum_EU] = @BMD_Beitrittsdatum_EU, ["& _ "FMZ_Ländernummer] = @FMZ_Ländernummer WHERE (([BMD_Ländernummer] = @Original_BMD"& _ "_Ländernummer) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BMD_L"& _ "ändernummer, BMD_Ländername, BMD_Beitrittsdatum_EU, FMZ_Ländernummer, SSMA_TimeS"& _ "tamp FROM tbl_BMD_Länder WHERE (BMD_Ländernummer = @BMD_Ländernummer)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BMD_Ländernummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BMD_Ländernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BMD_Ländername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BMD_Ländername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BMD_Beitrittsdatum_EU", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BMD_Beitrittsdatum_EU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FMZ_Ländernummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FMZ_Ländernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BMD_Ländernummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BMD_Ländernummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 BMD_Ländernummer, BMD_Ländername, BMD_Beitrittsdatum_EU, FMZ_Ländernummer,"& _ " SSMA_TimeStamp FROM dbo.tbl_BMD_Länder" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_BMD_LänderDataTable) 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 VERAGDataSet.tbl_BMD_LänderDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_BMD_LänderDataTable = New VERAGDataSet.tbl_BMD_LänderDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_BMD_LänderDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_BMD_Länder") 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_BMD_Ländernummer As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_BMD_Ländernummer,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 BMD_Ländernummer As Short, ByVal BMD_Ländername As String, ByVal BMD_Beitrittsdatum_EU As Global.System.Nullable(Of Date), ByVal FMZ_Ländernummer As Global.System.Nullable(Of Short)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(BMD_Ländernummer,Short) If (BMD_Ländername Is Nothing) Then Throw New Global.System.ArgumentNullException("BMD_Ländername") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(BMD_Ländername,String) End If If (BMD_Beitrittsdatum_EU.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(BMD_Beitrittsdatum_EU.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (FMZ_Ländernummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(FMZ_Ländernummer.Value,Short) 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 BMD_Ländernummer As Short, ByVal BMD_Ländername As String, ByVal BMD_Beitrittsdatum_EU As Global.System.Nullable(Of Date), ByVal FMZ_Ländernummer As Global.System.Nullable(Of Short), ByVal Original_BMD_Ländernummer As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BMD_Ländernummer,Short) If (BMD_Ländername Is Nothing) Then Throw New Global.System.ArgumentNullException("BMD_Ländername") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BMD_Ländername,String) End If If (BMD_Beitrittsdatum_EU.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BMD_Beitrittsdatum_EU.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (FMZ_Ländernummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FMZ_Ländernummer.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_BMD_Ländernummer,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 BMD_Ländername As String, ByVal BMD_Beitrittsdatum_EU As Global.System.Nullable(Of Date), ByVal FMZ_Ländernummer As Global.System.Nullable(Of Short), ByVal Original_BMD_Ländernummer As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_BMD_Ländernummer, BMD_Ländername, BMD_Beitrittsdatum_EU, FMZ_Ländernummer, Original_BMD_Ländernummer, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ParamterTableAdapter 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 = "tbl_DY_Paramter" tableMapping.ColumnMappings.Add("dyParam_name", "dyParam_name") tableMapping.ColumnMappings.Add("dyParam_value", "dyParam_value") tableMapping.ColumnMappings.Add("dyParam_firma", "dyParam_firma") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_Paramter] ([dyParam_name], [dyParam_value], [dyParam_fi"& _ "rma]) VALUES (@dyParam_name, @dyParam_value, @dyParam_firma)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dyParam_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dyParam_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dyParam_value", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dyParam_value", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dyParam_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dyParam_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 dyParam_name, dyParam_value, dyParam_firma FROM dbo.tbl_DY_Paramter" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ParamterDataTable) 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 VERAGDataSet.tbl_DY_ParamterDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ParamterDataTable = New VERAGDataSet.tbl_DY_ParamterDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ParamterDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_Paramter") 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 Insert(ByVal dyParam_name As String, ByVal dyParam_value As String, ByVal dyParam_firma As String) As Integer If (dyParam_name Is Nothing) Then Throw New Global.System.ArgumentNullException("dyParam_name") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(dyParam_name,String) End If If (dyParam_value Is Nothing) Then Throw New Global.System.ArgumentNullException("dyParam_value") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(dyParam_value,String) End If If (dyParam_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("dyParam_firma") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(dyParam_firma,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter 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 = "tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Qualifier", "Qualifier") tableMapping.ColumnMappings.Add("Note", "Note") tableMapping.ColumnMappings.Add("Description", "Description") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung] ([Code], [Qualifier],"& _ " [Note], [Description]) VALUES (@Code, @Qualifier, @Note, @Description)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Note", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Note", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Qualifier, Note, Description FROM dbo.tbl_DY_ZollDE_A0122_AnmArtUebe"& _ "rfuehrung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable = New VERAGDataSet.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung") 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 Insert(ByVal Code As String, ByVal Qualifier As String, ByVal Note As String, ByVal Description As String) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Qualifier Is Nothing) Then Throw New Global.System.ArgumentNullException("Qualifier") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Qualifier,String) End If If (Note Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Note,String) End If If (Description Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Description,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter 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 = "tbl_DY_ZollDE_A0127_BeteiligtenKonstellation" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Description", "Description") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_A0127_BeteiligtenKonstellation] ([Code], [Descri"& _ "ption]) VALUES (@Code, @Description)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Description FROM dbo.tbl_DY_ZollDE_A0127_BeteiligtenKonstellation" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable = New VERAGDataSet.tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_A0127_BeteiligtenKonstellationDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_A0127_BeteiligtenKonstellation") 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 Insert(ByVal Code As String, ByVal Description As String) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,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 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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_C0008_LaenderFullTableAdapter 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 = "tbl_DY_ZollDE_C0008_LaenderFull" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_C0008_LaenderFull] ([Code], [Description], [Star"& _ "tDate], [EndDate]) VALUES (@Code, @Description, @StartDate, @EndDate)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@StartDate", Global.System.Data.SqlDbType.[Date], 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.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Description, StartDate, EndDate FROM dbo.tbl_DY_ZollDE_C0008_Laender"& _ "Full" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0008_LaenderFullDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_C0008_LaenderFullDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_C0008_LaenderFullDataTable = New VERAGDataSet.tbl_DY_ZollDE_C0008_LaenderFullDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0008_LaenderFullDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_C0008_LaenderFull") 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 Insert(ByVal Code As String, ByVal Description As String, ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date)) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Description Is Nothing) Then Throw New Global.System.ArgumentNullException("Description") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Description,String) End If If (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(EndDate.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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_C0010_LaenderAESTableAdapter 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 = "tbl_DY_ZollDE_C0010_LaenderAES" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_C0010_LaenderAES] ([Code], [Description], [Start"& _ "Date], [EndDate]) VALUES (@Code, @Description, @StartDate, @EndDate)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@StartDate", Global.System.Data.SqlDbType.[Date], 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.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Description, StartDate, EndDate FROM dbo.tbl_DY_ZollDE_C0010_Laender"& _ "AES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0010_LaenderAESDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_C0010_LaenderAESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_C0010_LaenderAESDataTable = New VERAGDataSet.tbl_DY_ZollDE_C0010_LaenderAESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0010_LaenderAESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_C0010_LaenderAES") 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 Insert(ByVal Code As String, ByVal Description As String, ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date)) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Description Is Nothing) Then Throw New Global.System.ArgumentNullException("Description") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Description,String) End If If (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(EndDate.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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter 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 = "tbl_DY_ZollDE_C0013_UnterlagenArten" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_C0013_UnterlagenArten] ([Code], [Description], ["& _ "StartDate], [EndDate]) VALUES (@Code, @Description, @StartDate, @EndDate)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@StartDate", Global.System.Data.SqlDbType.[Date], 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.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Description, StartDate, EndDate FROM dbo.tbl_DY_ZollDE_C0013_Unterla"& _ "genArten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable = New VERAGDataSet.tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0013_UnterlagenArtenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_C0013_UnterlagenArten") 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 Insert(ByVal Code As String, ByVal Description As String, ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date)) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Description Is Nothing) Then Throw New Global.System.ArgumentNullException("Description") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Description,String) End If If (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(EndDate.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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter 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 = "tbl_DY_ZollDE_C0014_VorpapierArten" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_C0014_VorpapierArten] ([Code], [Description], [S"& _ "tartDate], [EndDate]) VALUES (@Code, @Description, @StartDate, @EndDate)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@StartDate", Global.System.Data.SqlDbType.[Date], 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.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Description, StartDate, EndDate FROM dbo.tbl_DY_ZollDE_C0014_Vorpapi"& _ "erArten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0014_VorpapierArtenDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_C0014_VorpapierArtenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_C0014_VorpapierArtenDataTable = New VERAGDataSet.tbl_DY_ZollDE_C0014_VorpapierArtenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0014_VorpapierArtenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_C0014_VorpapierArten") 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 Insert(ByVal Code As String, ByVal Description As String, ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date)) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Description Is Nothing) Then Throw New Global.System.ArgumentNullException("Description") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Description,String) End If If (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(EndDate.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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter 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 = "tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten] ([Code], [Des"& _ "cription], [StartDate], [EndDate]) VALUES (@Code, @Description, @StartDate, @End"& _ "Date)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@StartDate", Global.System.Data.SqlDbType.[Date], 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.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Description, StartDate, EndDate FROM dbo.tbl_DY_ZollDE_C0017_Packstu"& _ "eckeVerpackungsarten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable = New VERAGDataSet.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten") 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 Insert(ByVal Code As String, ByVal Description As String, ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date)) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Description Is Nothing) Then Throw New Global.System.ArgumentNullException("Description") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Description,String) End If If (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(EndDate.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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_C0141_ZollstellenTableAdapter 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 = "tbl_DY_ZollDE_C0141_Zollstellen" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_C0141_Zollstellen] ([Code], [Description], [Star"& _ "tDate], [EndDate]) VALUES (@Code, @Description, @StartDate, @EndDate)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@StartDate", Global.System.Data.SqlDbType.[Date], 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.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Description, StartDate, EndDate FROM dbo.tbl_DY_ZollDE_C0141_Zollste"& _ "llen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0141_ZollstellenDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_C0141_ZollstellenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_C0141_ZollstellenDataTable = New VERAGDataSet.tbl_DY_ZollDE_C0141_ZollstellenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0141_ZollstellenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_C0141_Zollstellen") 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 Insert(ByVal Code As String, ByVal Description As String, ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date)) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Description Is Nothing) Then Throw New Global.System.ArgumentNullException("Description") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Description,String) End If If (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(EndDate.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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter 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 = "tbl_DY_ZollDE_C0219_TypeTransportMeans" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_C0219_TypeTransportMeans] ([Code], [Description]"& _ ", [StartDate], [EndDate]) VALUES (@Code, @Description, @StartDate, @EndDate)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@StartDate", Global.System.Data.SqlDbType.[Date], 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.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Description, StartDate, EndDate FROM dbo.tbl_DY_ZollDE_C0219_TypeTra"& _ "nsportMeans" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable = New VERAGDataSet.tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_C0219_TypeTransportMeansDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_C0219_TypeTransportMeans") 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 Insert(ByVal Code As String, ByVal Description As String, ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date)) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Description Is Nothing) Then Throw New Global.System.ArgumentNullException("Description") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Description,String) End If If (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(EndDate.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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter 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 = "tbl_DY_ZollDE_I0200_Unterlagearten" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("DocumentCode", "DocumentCode") tableMapping.ColumnMappings.Add("Division", "Division") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_I0200_Unterlagearten] ([Code], [DocumentCode], ["& _ "Division], [Description], [StartDate], [EndDate]) VALUES (@Code, @DocumentCode, "& _ "@Division, @Description, @StartDate, @EndDate)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Division", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Division", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@StartDate", Global.System.Data.SqlDbType.[Date], 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.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, DocumentCode, Division, Description, StartDate, EndDate FROM dbo.tbl"& _ "_DY_ZollDE_I0200_Unterlagearten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_I0200_UnterlageartenDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_I0200_UnterlageartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_I0200_UnterlageartenDataTable = New VERAGDataSet.tbl_DY_ZollDE_I0200_UnterlageartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_I0200_UnterlageartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_I0200_Unterlagearten") 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 Insert(ByVal Code As String, ByVal DocumentCode As String, ByVal Division As String, ByVal Description As String, ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date)) As Integer If (Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (DocumentCode Is Nothing) Then Throw New Global.System.ArgumentNullException("DocumentCode") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(DocumentCode,String) End If If (Division Is Nothing) Then Throw New Global.System.ArgumentNullException("Division") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Division,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 (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(EndDate.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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter 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 = "tbl_DY_ZollDE_I0400_Waehrungsliste" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_I0400_Waehrungsliste] ([Code], [Description], [S"& _ "tartDate], [EndDate]) VALUES (@Code, @Description, @StartDate, @EndDate)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@StartDate", Global.System.Data.SqlDbType.[Date], 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.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Description, StartDate, EndDate FROM dbo.tbl_DY_ZollDE_I0400_Waehrun"& _ "gsliste" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_I0400_WaehrungslisteDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_I0400_WaehrungslisteDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_I0400_WaehrungslisteDataTable = New VERAGDataSet.tbl_DY_ZollDE_I0400_WaehrungslisteDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_I0400_WaehrungslisteDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_I0400_Waehrungsliste") 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 Insert(ByVal Code As String, ByVal Description As String, ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date)) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Description Is Nothing) Then Throw New Global.System.ArgumentNullException("Description") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Description,String) End If If (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(EndDate.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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter 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 = "tbl_DY_ZollDE_I0610_ZustaendigeZSTAES" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Qualifier", "Qualifier") tableMapping.ColumnMappings.Add("Description", "Description") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_I0610_ZustaendigeZSTAES] ([Code], [Qualifier], ["& _ "Description]) VALUES (@Code, @Qualifier, @Description)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Qualifier, Description FROM dbo.tbl_DY_ZollDE_I0610_ZustaendigeZSTAE"& _ "S" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable = New VERAGDataSet.tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_I0610_ZustaendigeZSTAESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_I0610_ZustaendigeZSTAES") 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 Insert(ByVal Code As String, ByVal Qualifier As String, ByVal Description As String) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Qualifier Is Nothing) Then Throw New Global.System.ArgumentNullException("Qualifier") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Qualifier,String) End If If (Description Is Nothing) Then Throw New Global.System.ArgumentNullException("Description") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Description,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter 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 = "tbl_DY_ZollDE_I0700_Masseinheiten" tableMapping.ColumnMappings.Add("Code", "Code") tableMapping.ColumnMappings.Add("Qualifier", "Qualifier") tableMapping.ColumnMappings.Add("CodeQualifier", "CodeQualifier") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_DY_ZollDE_I0700_Masseinheiten] ([Code], [Qualifier], [Code"& _ "Qualifier], [Description], [StartDate], [EndDate]) VALUES (@Code, @Qualifier, @C"& _ "odeQualifier, @Description, @StartDate, @EndDate)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CodeQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CodeQualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@StartDate", Global.System.Data.SqlDbType.[Date], 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.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Code, Qualifier, CodeQualifier, Description, StartDate, EndDate FROM dbo.t"& _ "bl_DY_ZollDE_I0700_Masseinheiten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_I0700_MasseinheitenDataTable) 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 VERAGDataSet.tbl_DY_ZollDE_I0700_MasseinheitenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_DY_ZollDE_I0700_MasseinheitenDataTable = New VERAGDataSet.tbl_DY_ZollDE_I0700_MasseinheitenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_DY_ZollDE_I0700_MasseinheitenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_DY_ZollDE_I0700_Masseinheiten") 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 Insert(ByVal Code As String, ByVal Qualifier As String, ByVal CodeQualifier As String, ByVal Description As String, ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date)) As Integer If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Code,String) End If If (Qualifier Is Nothing) Then Throw New Global.System.ArgumentNullException("Qualifier") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Qualifier,String) End If If (CodeQualifier Is Nothing) Then Throw New Global.System.ArgumentNullException("CodeQualifier") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(CodeQualifier,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 (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(EndDate.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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_ErrorsTableAdapter 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 = "tbl_Errors" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("ErrDate", "ErrDate") tableMapping.ColumnMappings.Add("ErrLevel", "ErrLevel") tableMapping.ColumnMappings.Add("Machine", "Machine") tableMapping.ColumnMappings.Add("LoginUser", "LoginUser") tableMapping.ColumnMappings.Add("ErrNumber", "ErrNumber") tableMapping.ColumnMappings.Add("ErrDescription", "ErrDescription") tableMapping.ColumnMappings.Add("ErrLine", "ErrLine") tableMapping.ColumnMappings.Add("NameObject", "NameObject") tableMapping.ColumnMappings.Add("NameProcedure", "NameProcedure") tableMapping.ColumnMappings.Add("Sent", "Sent") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tbl_Errors] WHERE (([ID] = @Original_ID) AND ((@IsNull_upsize_"& _ "ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tbl_Errors] ([ErrDate], [ErrLevel], [Machine], [LoginUser], [E"& _ "rrNumber], [ErrDescription], [ErrLine], [NameObject], [NameProcedure], [Sent]) V"& _ "ALUES (@ErrDate, @ErrLevel, @Machine, @LoginUser, @ErrNumber, @ErrDescription, @"& _ "ErrLine, @NameObject, @NameProcedure, @Sent);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, ErrDate, ErrLevel, Mac"& _ "hine, LoginUser, ErrNumber, ErrDescription, ErrLine, NameObject, NameProcedure, "& _ "Sent, upsize_ts FROM tbl_Errors WHERE (ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErrDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErrDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErrLevel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErrLevel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Machine", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Machine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LoginUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LoginUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErrNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErrNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErrDescription", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErrDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErrLine", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErrLine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NameObject", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NameObject", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NameProcedure", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NameProcedure", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sent", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sent", 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].[tbl_Errors] SET [ErrDate] = @ErrDate, [ErrLevel] = @ErrLevel, [Mach"& _ "ine] = @Machine, [LoginUser] = @LoginUser, [ErrNumber] = @ErrNumber, [ErrDescrip"& _ "tion] = @ErrDescription, [ErrLine] = @ErrLine, [NameObject] = @NameObject, [Name"& _ "Procedure] = @NameProcedure, [Sent] = @Sent WHERE (([ID] = @Original_ID) AND ((@"& _ "IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize"& _ "_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, ErrDate, ErrLevel, Machine, LoginUser, ErrNumber, ErrDescrip"& _ "tion, ErrLine, NameObject, NameProcedure, Sent, upsize_ts FROM tbl_Errors WHERE "& _ "(ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErrDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErrDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErrLevel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErrLevel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Machine", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Machine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LoginUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LoginUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErrNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErrNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErrDescription", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErrDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErrLine", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErrLine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NameObject", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NameObject", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NameProcedure", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NameProcedure", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sent", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, ErrDate, ErrLevel, Machine, LoginUser, ErrNumber, ErrDescription, ErrL"& _ "ine, NameObject, NameProcedure, Sent, upsize_ts FROM dbo.tbl_Errors" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_ErrorsDataTable) 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 VERAGDataSet.tbl_ErrorsDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_ErrorsDataTable = New VERAGDataSet.tbl_ErrorsDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_ErrorsDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_Errors") 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_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 ErrDate As Global.System.Nullable(Of Date), ByVal ErrLevel As Global.System.Nullable(Of Integer), ByVal Machine As String, ByVal LoginUser As String, ByVal ErrNumber As Global.System.Nullable(Of Integer), ByVal ErrDescription As String, ByVal ErrLine As Global.System.Nullable(Of Integer), ByVal NameObject As String, ByVal NameProcedure As String, ByVal Sent As Boolean) As Integer If (ErrDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(ErrDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (ErrLevel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(ErrLevel.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Machine Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Machine,String) End If If (LoginUser Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(LoginUser,String) End If If (ErrNumber.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(ErrNumber.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (ErrDescription Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ErrDescription,String) End If If (ErrLine.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(ErrLine.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (NameObject Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(NameObject,String) End If If (NameProcedure Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(NameProcedure,String) End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(Sent,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 ErrDate As Global.System.Nullable(Of Date), ByVal ErrLevel As Global.System.Nullable(Of Integer), ByVal Machine As String, ByVal LoginUser As String, ByVal ErrNumber As Global.System.Nullable(Of Integer), ByVal ErrDescription As String, ByVal ErrLine As Global.System.Nullable(Of Integer), ByVal NameObject As String, ByVal NameProcedure As String, ByVal Sent As Boolean, ByVal Original_ID As Integer, ByVal Original_upsize_ts() As Byte, ByVal ID As Integer) As Integer If (ErrDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ErrDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (ErrLevel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ErrLevel.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Machine Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Machine,String) End If If (LoginUser Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LoginUser,String) End If If (ErrNumber.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ErrNumber.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (ErrDescription Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ErrDescription,String) End If If (ErrLine.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ErrLine.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (NameObject Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(NameObject,String) End If If (NameProcedure Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(NameProcedure,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Sent,Boolean) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ID,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ID,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 ErrDate As Global.System.Nullable(Of Date), ByVal ErrLevel As Global.System.Nullable(Of Integer), ByVal Machine As String, ByVal LoginUser As String, ByVal ErrNumber As Global.System.Nullable(Of Integer), ByVal ErrDescription As String, ByVal ErrLine As Global.System.Nullable(Of Integer), ByVal NameObject As String, ByVal NameProcedure As String, ByVal Sent As Boolean, ByVal Original_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(ErrDate, ErrLevel, Machine, LoginUser, ErrNumber, ErrDescription, ErrLine, NameObject, NameProcedure, Sent, Original_ID, Original_upsize_ts, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_IDS_Kategorien_KundenTableAdapter 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 = "tbl_IDS_Kategorien_Kunden" tableMapping.ColumnMappings.Add("CustomerCode", "CustomerCode") tableMapping.ColumnMappings.Add("KategorieNr", "KategorieNr") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_IDS_Kategorien_Kunden] WHERE (([CustomerCode] = @Original_"& _ "CustomerCode) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_IDS_Kategorien_Kunden] ([CustomerCode], [KategorieNr], [Ze"& _ "itstempel], [Sachbearbeiter]) VALUES (@CustomerCode, @KategorieNr, @Zeitstempel,"& _ " @Sachbearbeiter);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CustomerCode, KategorieNr, Zeitstempel, Sachbearbeite"& _ "r, SSMA_TimeStamp FROM tbl_IDS_Kategorien_Kunden WHERE (CustomerCode = @Customer"& _ "Code)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KategorieNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KategorieNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", 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].[tbl_IDS_Kategorien_Kunden] SET [CustomerCode] = @CustomerCode, [Kat"& _ "egorieNr] = @KategorieNr, [Zeitstempel] = @Zeitstempel, [Sachbearbeiter] = @Sach"& _ "bearbeiter WHERE (([CustomerCode] = @Original_CustomerCode) AND ([SSMA_TimeStamp"& _ "] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CustomerCode, KategorieNr, Zeitstempel, "& _ "Sachbearbeiter, SSMA_TimeStamp FROM tbl_IDS_Kategorien_Kunden WHERE (CustomerCod"& _ "e = @CustomerCode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KategorieNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KategorieNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 CustomerCode, KategorieNr, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp FRO"& _ "M dbo.tbl_IDS_Kategorien_Kunden" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_IDS_Kategorien_KundenDataTable) 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 VERAGDataSet.tbl_IDS_Kategorien_KundenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_IDS_Kategorien_KundenDataTable = New VERAGDataSet.tbl_IDS_Kategorien_KundenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_IDS_Kategorien_KundenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_IDS_Kategorien_Kunden") 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_CustomerCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CustomerCode,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 CustomerCode As Integer, ByVal KategorieNr As Short, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(CustomerCode,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(KategorieNr,Short) If (Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Sachbearbeiter,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 CustomerCode As Integer, ByVal KategorieNr As Short, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal Original_CustomerCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CustomerCode,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(KategorieNr,Short) If (Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_CustomerCode,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 KategorieNr As Short, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal Original_CustomerCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_CustomerCode, KategorieNr, Zeitstempel, Sachbearbeiter, Original_CustomerCode, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_IDS_Kategorien_RechenwerteTableAdapter 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 = "tbl_IDS_Kategorien_Rechenwerte" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("KategorieNr", "KategorieNr") tableMapping.ColumnMappings.Add("ProductTypeCode", "ProductTypeCode") tableMapping.ColumnMappings.Add("Rechenwert", "Rechenwert") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_IDS_Kategorien_Rechenwerte] WHERE (([ID] = @Original_ID) A"& _ "ND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_IDS_Kategorien_Rechenwerte] ([KategorieNr], [ProductTypeCo"& _ "de], [Rechenwert], [Zeitstempel], [Sachbearbeiter]) VALUES (@KategorieNr, @Produ"& _ "ctTypeCode, @Rechenwert, @Zeitstempel, @Sachbearbeiter);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, KategorieNr"& _ ", ProductTypeCode, Rechenwert, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp FROM "& _ "tbl_IDS_Kategorien_Rechenwerte WHERE (ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KategorieNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KategorieNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductTypeCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductTypeCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechenwert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechenwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", 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].[tbl_IDS_Kategorien_Rechenwerte] SET [KategorieNr] = @KategorieNr, ["& _ "ProductTypeCode] = @ProductTypeCode, [Rechenwert] = @Rechenwert, [Zeitstempel] ="& _ " @Zeitstempel, [Sachbearbeiter] = @Sachbearbeiter WHERE (([ID] = @Original_ID) A"& _ "ND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, KategorieNr, Prod"& _ "uctTypeCode, Rechenwert, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp FROM tbl_ID"& _ "S_Kategorien_Rechenwerte WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KategorieNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KategorieNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductTypeCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductTypeCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechenwert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechenwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, KategorieNr, ProductTypeCode, Rechenwert, Zeitstempel, Sachbearbeiter,"& _ " SSMA_TimeStamp FROM dbo.tbl_IDS_Kategorien_Rechenwerte" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_IDS_Kategorien_RechenwerteDataTable) 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 VERAGDataSet.tbl_IDS_Kategorien_RechenwerteDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_IDS_Kategorien_RechenwerteDataTable = New VERAGDataSet.tbl_IDS_Kategorien_RechenwerteDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_IDS_Kategorien_RechenwerteDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_IDS_Kategorien_Rechenwerte") 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_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 KategorieNr As Short, ByVal ProductTypeCode As Short, ByVal Rechenwert As Decimal, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KategorieNr,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductTypeCode,Short) Me.Adapter.InsertCommand.Parameters(2).Value = CType(Rechenwert,Decimal) If (Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Sachbearbeiter,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 KategorieNr As Short, ByVal ProductTypeCode As Short, ByVal Rechenwert As Decimal, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte, ByVal ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KategorieNr,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductTypeCode,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Rechenwert,Decimal) If (Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_SSMA_TimeStamp,Byte()) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ID,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 KategorieNr As Short, ByVal ProductTypeCode As Short, ByVal Rechenwert As Decimal, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(KategorieNr, ProductTypeCode, Rechenwert, Zeitstempel, Sachbearbeiter, Original_ID, Original_SSMA_TimeStamp, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_IDS_KundenTableAdapter 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 = "tbl_IDS_Kunden" tableMapping.ColumnMappings.Add("CustomerCode", "CustomerCode") tableMapping.ColumnMappings.Add("KdNrVERAG", "KdNrVERAG") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("KdNrAlt", "KdNrAlt") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_IDS_Kunden] WHERE (([CustomerCode] = @Original_CustomerCod"& _ "e) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_IDS_Kunden] ([CustomerCode], [KdNrVERAG], [Zeitstempel], ["& _ "Sachbearbeiter], [KdNrAlt]) VALUES (@CustomerCode, @KdNrVERAG, @Zeitstempel, @Sa"& _ "chbearbeiter, @KdNrAlt);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CustomerCode, KdNrVERAG, Zeitstempel, Sachbearb"& _ "eiter, KdNrAlt, SSMA_TimeStamp FROM tbl_IDS_Kunden WHERE (CustomerCode = @Custom"& _ "erCode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdNrVERAG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdNrVERAG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdNrAlt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdNrAlt", 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].[tbl_IDS_Kunden] SET [CustomerCode] = @CustomerCode, [KdNrVERAG] = @"& _ "KdNrVERAG, [Zeitstempel] = @Zeitstempel, [Sachbearbeiter] = @Sachbearbeiter, [Kd"& _ "NrAlt] = @KdNrAlt WHERE (([CustomerCode] = @Original_CustomerCode) AND ([SSMA_Ti"& _ "meStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CustomerCode, KdNrVERAG, Zeitstem"& _ "pel, Sachbearbeiter, KdNrAlt, SSMA_TimeStamp FROM tbl_IDS_Kunden WHERE (Customer"& _ "Code = @CustomerCode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdNrVERAG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdNrVERAG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdNrAlt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdNrAlt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 CustomerCode, KdNrVERAG, Zeitstempel, Sachbearbeiter, KdNrAlt, SSMA_TimeSt"& _ "amp FROM dbo.tbl_IDS_Kunden" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_IDS_KundenDataTable) 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 VERAGDataSet.tbl_IDS_KundenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_IDS_KundenDataTable = New VERAGDataSet.tbl_IDS_KundenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_IDS_KundenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_IDS_Kunden") 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_CustomerCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CustomerCode,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 CustomerCode As Integer, ByVal KdNrVERAG As Integer, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal KdNrAlt As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(CustomerCode,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(KdNrVERAG,Integer) If (Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Sachbearbeiter,String) End If If (KdNrAlt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(KdNrAlt.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(4).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 CustomerCode As Integer, ByVal KdNrVERAG As Integer, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal KdNrAlt As Global.System.Nullable(Of Boolean), ByVal Original_CustomerCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CustomerCode,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(KdNrVERAG,Integer) If (Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Sachbearbeiter,String) End If If (KdNrAlt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(KdNrAlt.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_CustomerCode,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 KdNrVERAG As Integer, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal KdNrAlt As Global.System.Nullable(Of Boolean), ByVal Original_CustomerCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_CustomerCode, KdNrVERAG, Zeitstempel, Sachbearbeiter, KdNrAlt, Original_CustomerCode, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_IDS_Kunden_ohne_RabattTableAdapter 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 = "tbl_IDS_Kunden_ohne_Rabatt" tableMapping.ColumnMappings.Add("CustomerCode", "CustomerCode") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_IDS_Kunden_ohne_Rabatt] WHERE (([CustomerCode] = @Original"& _ "_CustomerCode) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_IDS_Kunden_ohne_Rabatt] ([CustomerCode], [Zeitstempel], [S"& _ "achbearbeiter]) VALUES (@CustomerCode, @Zeitstempel, @Sachbearbeiter);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT C"& _ "ustomerCode, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp FROM tbl_IDS_Kunden_ohn"& _ "e_Rabatt WHERE (CustomerCode = @CustomerCode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", 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].[tbl_IDS_Kunden_ohne_Rabatt] SET [CustomerCode] = @CustomerCode, [Ze"& _ "itstempel] = @Zeitstempel, [Sachbearbeiter] = @Sachbearbeiter WHERE (([CustomerC"& _ "ode] = @Original_CustomerCode) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp)"& _ ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CustomerCode, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp FROM tbl_ID"& _ "S_Kunden_ohne_Rabatt WHERE (CustomerCode = @CustomerCode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 CustomerCode, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp FROM dbo.tbl_IDS"& _ "_Kunden_ohne_Rabatt" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_IDS_Kunden_ohne_RabattDataTable) 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 VERAGDataSet.tbl_IDS_Kunden_ohne_RabattDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_IDS_Kunden_ohne_RabattDataTable = New VERAGDataSet.tbl_IDS_Kunden_ohne_RabattDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_IDS_Kunden_ohne_RabattDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_IDS_Kunden_ohne_Rabatt") 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_CustomerCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CustomerCode,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 CustomerCode As Integer, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(CustomerCode,Integer) If (Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Sachbearbeiter,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 CustomerCode As Integer, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal Original_CustomerCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CustomerCode,Integer) If (Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_CustomerCode,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal Original_CustomerCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_CustomerCode, Zeitstempel, Sachbearbeiter, Original_CustomerCode, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_IDS_LänderTableAdapter 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 = "tbl_IDS_Länder" tableMapping.ColumnMappings.Add("OutletCountryCode", "OutletCountryCode") tableMapping.ColumnMappings.Add("OutletCountry", "OutletCountry") tableMapping.ColumnMappings.Add("Steuersatz", "Steuersatz") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LandNr", "LandNr") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_IDS_Länder] WHERE (([OutletCountryCode] = @Original_Outlet"& _ "CountryCode) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OutletCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_IDS_Länder] ([OutletCountryCode], [OutletCountry], [Steuer"& _ "satz], [LeistungsNr], [LandNr]) VALUES (@OutletCountryCode, @OutletCountry, @Ste"& _ "uersatz, @LeistungsNr, @LandNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OutletCountryCode, OutletCountry, Steue"& _ "rsatz, LeistungsNr, LandNr, SSMA_TimeStamp FROM tbl_IDS_Länder WHERE (OutletCoun"& _ "tryCode = @OutletCountryCode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCountry", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandNr", 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].[tbl_IDS_Länder] SET [OutletCountryCode] = @OutletCountryCode, [Outl"& _ "etCountry] = @OutletCountry, [Steuersatz] = @Steuersatz, [LeistungsNr] = @Leistu"& _ "ngsNr, [LandNr] = @LandNr WHERE (([OutletCountryCode] = @Original_OutletCountryC"& _ "ode) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OutletCountryCo"& _ "de, OutletCountry, Steuersatz, LeistungsNr, LandNr, SSMA_TimeStamp FROM tbl_IDS_"& _ "Länder WHERE (OutletCountryCode = @OutletCountryCode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCountry", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OutletCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 OutletCountryCode, OutletCountry, Steuersatz, LeistungsNr, LandNr, SSMA_Ti"& _ "meStamp FROM dbo.tbl_IDS_Länder" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_IDS_LänderDataTable) 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 VERAGDataSet.tbl_IDS_LänderDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_IDS_LänderDataTable = New VERAGDataSet.tbl_IDS_LänderDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_IDS_LänderDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_IDS_Länder") 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_OutletCountryCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_OutletCountryCode,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 OutletCountryCode As Integer, ByVal OutletCountry As String, ByVal Steuersatz As Single, ByVal LeistungsNr As Global.System.Nullable(Of Short), ByVal LandNr As Short) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(OutletCountryCode,Integer) If (OutletCountry Is Nothing) Then Throw New Global.System.ArgumentNullException("OutletCountry") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(OutletCountry,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Steuersatz,Single) If (LeistungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(LeistungsNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(LandNr,Short) 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 OutletCountryCode As Integer, ByVal OutletCountry As String, ByVal Steuersatz As Single, ByVal LeistungsNr As Global.System.Nullable(Of Short), ByVal LandNr As Short, ByVal Original_OutletCountryCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OutletCountryCode,Integer) If (OutletCountry Is Nothing) Then Throw New Global.System.ArgumentNullException("OutletCountry") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OutletCountry,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Steuersatz,Single) If (LeistungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LeistungsNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LandNr,Short) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_OutletCountryCode,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 OutletCountry As String, ByVal Steuersatz As Single, ByVal LeistungsNr As Global.System.Nullable(Of Short), ByVal LandNr As Short, ByVal Original_OutletCountryCode As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_OutletCountryCode, OutletCountry, Steuersatz, LeistungsNr, LandNr, Original_OutletCountryCode, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_IDS_ProdukteTableAdapter 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 = "tbl_IDS_Produkte" tableMapping.ColumnMappings.Add("ProductTypeCode", "ProductTypeCode") tableMapping.ColumnMappings.Add("ProductDescription", "ProductDescription") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_IDS_Produkte] WHERE (([ProductTypeCode] = @Original_Produc"& _ "tTypeCode) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductTypeCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductTypeCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_IDS_Produkte] ([ProductTypeCode], [ProductDescription]) VA"& _ "LUES (@ProductTypeCode, @ProductDescription);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ProductTypeCode, ProductDe"& _ "scription, SSMA_TimeStamp FROM tbl_IDS_Produkte WHERE (ProductTypeCode = @Produc"& _ "tTypeCode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductTypeCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductTypeCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductDescription", 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].[tbl_IDS_Produkte] SET [ProductTypeCode] = @ProductTypeCode, [Produc"& _ "tDescription] = @ProductDescription WHERE (([ProductTypeCode] = @Original_Produc"& _ "tTypeCode) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ProductTy"& _ "peCode, ProductDescription, SSMA_TimeStamp FROM tbl_IDS_Produkte WHERE (ProductT"& _ "ypeCode = @ProductTypeCode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductTypeCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductTypeCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductTypeCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductTypeCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ProductTypeCode, ProductDescription, SSMA_TimeStamp FROM dbo.tbl_IDS_Produ"& _ "kte" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_IDS_ProdukteDataTable) 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 VERAGDataSet.tbl_IDS_ProdukteDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_IDS_ProdukteDataTable = New VERAGDataSet.tbl_IDS_ProdukteDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_IDS_ProdukteDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_IDS_Produkte") 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_ProductTypeCode As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ProductTypeCode,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 ProductTypeCode As Short, ByVal ProductDescription As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ProductTypeCode,Short) If (ProductDescription Is Nothing) Then Throw New Global.System.ArgumentNullException("ProductDescription") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductDescription,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 ProductTypeCode As Short, ByVal ProductDescription As String, ByVal Original_ProductTypeCode As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ProductTypeCode,Short) If (ProductDescription Is Nothing) Then Throw New Global.System.ArgumentNullException("ProductDescription") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductDescription,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ProductTypeCode,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 ProductDescription As String, ByVal Original_ProductTypeCode As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_ProductTypeCode, ProductDescription, Original_ProductTypeCode, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_IDS_RechenwerteTableAdapter 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 = "tbl_IDS_Rechenwerte" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("OutletCountryCode", "OutletCountryCode") tableMapping.ColumnMappings.Add("OutletCode", "OutletCode") tableMapping.ColumnMappings.Add("CustomerCode", "CustomerCode") tableMapping.ColumnMappings.Add("ProductTypeCode", "ProductTypeCode") tableMapping.ColumnMappings.Add("Rechenwert", "Rechenwert") tableMapping.ColumnMappings.Add("Kz", "Kz") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("KategorieNr", "KategorieNr") 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].[tbl_IDS_Rechenwerte] WHERE (([ID] = @Original_ID) AND ([SSMA_T"& _ "imeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_IDS_Rechenwerte] ([OutletCountryCode], [OutletCode], [Cust"& _ "omerCode], [ProductTypeCode], [Rechenwert], [Kz], [Zeitstempel], [Sachbearbeiter"& _ "], [KategorieNr]) VALUES (@OutletCountryCode, @OutletCode, @CustomerCode, @Produ"& _ "ctTypeCode, @Rechenwert, @Kz, @Zeitstempel, @Sachbearbeiter, @KategorieNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ "ECT ID, OutletCountryCode, OutletCode, CustomerCode, ProductTypeCode, Rechenwert"& _ ", Kz, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp, KategorieNr FROM tbl_IDS_Rech"& _ "enwerte WHERE (ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductTypeCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductTypeCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechenwert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechenwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KategorieNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KategorieNr", 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].[tbl_IDS_Rechenwerte] SET [OutletCountryCode] = @OutletCountryCode, "& _ "[OutletCode] = @OutletCode, [CustomerCode] = @CustomerCode, [ProductTypeCode] = "& _ "@ProductTypeCode, [Rechenwert] = @Rechenwert, [Kz] = @Kz, [Zeitstempel] = @Zeits"& _ "tempel, [Sachbearbeiter] = @Sachbearbeiter, [KategorieNr] = @KategorieNr WHERE ("& _ "([ID] = @Original_ID) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ "T ID, OutletCountryCode, OutletCode, CustomerCode, ProductTypeCode, Rechenwert, "& _ "Kz, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp, KategorieNr FROM tbl_IDS_Rechen"& _ "werte WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductTypeCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductTypeCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechenwert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechenwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KategorieNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KategorieNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, OutletCountryCode, OutletCode, CustomerCode, ProductTypeCode, Rechenwe"& _ "rt, Kz, Zeitstempel, Sachbearbeiter, SSMA_TimeStamp, KategorieNr FROM dbo.tbl_ID"& _ "S_Rechenwerte" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_IDS_RechenwerteDataTable) 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 VERAGDataSet.tbl_IDS_RechenwerteDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_IDS_RechenwerteDataTable = New VERAGDataSet.tbl_IDS_RechenwerteDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_IDS_RechenwerteDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_IDS_Rechenwerte") 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_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 OutletCountryCode As Integer, ByVal OutletCode As Global.System.Nullable(Of Short), ByVal CustomerCode As Global.System.Nullable(Of Integer), ByVal ProductTypeCode As Short, ByVal Rechenwert As Decimal, ByVal Kz As String, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal KategorieNr As Global.System.Nullable(Of Short)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(OutletCountryCode,Integer) If (OutletCode.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(OutletCode.Value,Short) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (CustomerCode.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(CustomerCode.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(ProductTypeCode,Short) Me.Adapter.InsertCommand.Parameters(4).Value = CType(Rechenwert,Decimal) If (Kz Is Nothing) Then Throw New Global.System.ArgumentNullException("Kz") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Kz,String) End If If (Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Sachbearbeiter,String) End If If (KategorieNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(KategorieNr.Value,Short) 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 OutletCountryCode As Integer, ByVal OutletCode As Global.System.Nullable(Of Short), ByVal CustomerCode As Global.System.Nullable(Of Integer), ByVal ProductTypeCode As Short, ByVal Rechenwert As Decimal, ByVal Kz As String, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal KategorieNr As Global.System.Nullable(Of Short), ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte, ByVal ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OutletCountryCode,Integer) If (OutletCode.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OutletCode.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (CustomerCode.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CustomerCode.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ProductTypeCode,Short) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Rechenwert,Decimal) If (Kz Is Nothing) Then Throw New Global.System.ArgumentNullException("Kz") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Kz,String) End If If (Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Sachbearbeiter,String) End If If (KategorieNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(KategorieNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_SSMA_TimeStamp,Byte()) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ID,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 OutletCountryCode As Integer, ByVal OutletCode As Global.System.Nullable(Of Short), ByVal CustomerCode As Global.System.Nullable(Of Integer), ByVal ProductTypeCode As Short, ByVal Rechenwert As Decimal, ByVal Kz As String, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal KategorieNr As Global.System.Nullable(Of Short), ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(OutletCountryCode, OutletCode, CustomerCode, ProductTypeCode, Rechenwert, Kz, Zeitstempel, Sachbearbeiter, KategorieNr, Original_ID, Original_SSMA_TimeStamp, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_IDS_StationenTableAdapter 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 = "tbl_IDS_Stationen" tableMapping.ColumnMappings.Add("OutletCountryCode", "OutletCountryCode") tableMapping.ColumnMappings.Add("OutletCode", "OutletCode") tableMapping.ColumnMappings.Add("OutletName", "OutletName") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_IDS_Stationen] WHERE (([OutletCountryCode] = @Original_Out"& _ "letCountryCode) AND ([OutletCode] = @Original_OutletCode) AND ([SSMA_TimeStamp] "& _ "= @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OutletCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OutletCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_IDS_Stationen] ([OutletCountryCode], [OutletCode], [Outlet"& _ "Name]) VALUES (@OutletCountryCode, @OutletCode, @OutletName);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OutletCoun"& _ "tryCode, OutletCode, OutletName, SSMA_TimeStamp FROM tbl_IDS_Stationen WHERE (Ou"& _ "tletCode = @OutletCode) AND (OutletCountryCode = @OutletCountryCode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletName", 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].[tbl_IDS_Stationen] SET [OutletCountryCode] = @OutletCountryCode, [O"& _ "utletCode] = @OutletCode, [OutletName] = @OutletName WHERE (([OutletCountryCode]"& _ " = @Original_OutletCountryCode) AND ([OutletCode] = @Original_OutletCode) AND (["& _ "SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OutletCountryCode, OutletC"& _ "ode, OutletName, SSMA_TimeStamp FROM tbl_IDS_Stationen WHERE (OutletCode = @Outl"& _ "etCode) AND (OutletCountryCode = @OutletCountryCode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutletName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OutletCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OutletCode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutletCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 OutletCountryCode, OutletCode, OutletName, SSMA_TimeStamp FROM dbo.tbl_IDS"& _ "_Stationen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_IDS_StationenDataTable) 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 VERAGDataSet.tbl_IDS_StationenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_IDS_StationenDataTable = New VERAGDataSet.tbl_IDS_StationenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_IDS_StationenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_IDS_Stationen") 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_OutletCountryCode As Integer, ByVal Original_OutletCode As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_OutletCountryCode,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_OutletCode,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 OutletCountryCode As Integer, ByVal OutletCode As Short, ByVal OutletName As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(OutletCountryCode,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(OutletCode,Short) If (OutletName Is Nothing) Then Throw New Global.System.ArgumentNullException("OutletName") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(OutletName,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 OutletCountryCode As Integer, ByVal OutletCode As Short, ByVal OutletName As String, ByVal Original_OutletCountryCode As Integer, ByVal Original_OutletCode As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OutletCountryCode,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OutletCode,Short) If (OutletName Is Nothing) Then Throw New Global.System.ArgumentNullException("OutletName") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(OutletName,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_OutletCountryCode,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_OutletCode,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 OutletName As String, ByVal Original_OutletCountryCode As Integer, ByVal Original_OutletCode As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_OutletCountryCode, Original_OutletCode, OutletName, Original_OutletCountryCode, Original_OutletCode, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_Intrastat_AusfuhrTableAdapter 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 = "tbl_Intrastat_Ausfuhr" tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("Bezugsnummer", "Bezugsnummer") tableMapping.ColumnMappings.Add("Positionsnummer", "Positionsnummer") tableMapping.ColumnMappings.Add("Registrierkennzeichen", "Registrierkennzeichen") tableMapping.ColumnMappings.Add("Dateierzeugungsdatum", "Dateierzeugungsdatum") tableMapping.ColumnMappings.Add("Versendung", "Versendung") tableMapping.ColumnMappings.Add("Anmeldeform", "Anmeldeform") tableMapping.ColumnMappings.Add("Anmeldemonat", "Anmeldemonat") tableMapping.ColumnMappings.Add("Anmeldejahr", "Anmeldejahr") tableMapping.ColumnMappings.Add("Paginiernummer", "Paginiernummer") tableMapping.ColumnMappings.Add("BundeslandFinanzamt", "BundeslandFinanzamt") tableMapping.ColumnMappings.Add("Steuernummer", "Steuernummer") tableMapping.ColumnMappings.Add("Unterscheidungsnummer", "Unterscheidungsnummer") tableMapping.ColumnMappings.Add("Bestimmungsland", "Bestimmungsland") tableMapping.ColumnMappings.Add("Ursprungsregion", "Ursprungsregion") tableMapping.ColumnMappings.Add("Geschäftsart", "Geschäftsart") tableMapping.ColumnMappings.Add("Verkehrszweig", "Verkehrszweig") tableMapping.ColumnMappings.Add("Warennummer", "Warennummer") tableMapping.ColumnMappings.Add("Eigenmasse", "Eigenmasse") tableMapping.ColumnMappings.Add("BesondereMasseinheit", "BesondereMasseinheit") tableMapping.ColumnMappings.Add("Rechnungsbetrag", "Rechnungsbetrag") tableMapping.ColumnMappings.Add("StatistischerWert", "StatistischerWert") tableMapping.ColumnMappings.Add("Bezugszeitraum", "Bezugszeitraum") tableMapping.ColumnMappings.Add("Warenbeschreibung", "Warenbeschreibung") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tbl_Intrastat_Ausfuhr] WHERE (([Mandant] = @Original_Mandant) "& _ "AND ([Niederlassung] = @Original_Niederlassung) AND ([Bezugsnummer] = @Original_"& _ "Bezugsnummer) AND ([Positionsnummer] = @Original_Positionsnummer) AND ((@IsNull_"& _ "upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bezugsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezugsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Positionsnummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Positionsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tbl_Intrastat_Ausfuhr] ([Mandant], [Niederlassung], [Bezugsnum"& _ "mer], [Positionsnummer], [Registrierkennzeichen], [Dateierzeugungsdatum], [Verse"& _ "ndung], [Anmeldeform], [Anmeldemonat], [Anmeldejahr], [Paginiernummer], [Bundesl"& _ "andFinanzamt], [Steuernummer], [Unterscheidungsnummer], [Bestimmungsland], [Ursp"& _ "rungsregion], [Geschäftsart], [Verkehrszweig], [Warennummer], [Eigenmasse], [Bes"& _ "ondereMasseinheit], [Rechnungsbetrag], [StatistischerWert], [Bezugszeitraum], [W"& _ "arenbeschreibung], [Zeitstempel]) VALUES (@Mandant, @Niederlassung, @Bezugsnumme"& _ "r, @Positionsnummer, @Registrierkennzeichen, @Dateierzeugungsdatum, @Versendung,"& _ " @Anmeldeform, @Anmeldemonat, @Anmeldejahr, @Paginiernummer, @BundeslandFinanzam"& _ "t, @Steuernummer, @Unterscheidungsnummer, @Bestimmungsland, @Ursprungsregion, @G"& _ "eschäftsart, @Verkehrszweig, @Warennummer, @Eigenmasse, @BesondereMasseinheit, @"& _ "Rechnungsbetrag, @StatistischerWert, @Bezugszeitraum, @Warenbeschreibung, @Zeits"& _ "tempel);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Niederlassung, Bezugsnummer, Positionsnummer, Registri"& _ "erkennzeichen, Dateierzeugungsdatum, Versendung, Anmeldeform, Anmeldemonat, Anme"& _ "ldejahr, Paginiernummer, BundeslandFinanzamt, Steuernummer, Unterscheidungsnumme"& _ "r, Bestimmungsland, Ursprungsregion, Geschäftsart, Verkehrszweig, Warennummer, E"& _ "igenmasse, BesondereMasseinheit, Rechnungsbetrag, StatistischerWert, Bezugszeitr"& _ "aum, Warenbeschreibung, Zeitstempel, upsize_ts FROM tbl_Intrastat_Ausfuhr WHERE "& _ "(Bezugsnummer = @Bezugsnummer) AND (Mandant = @Mandant) AND (Niederlassung = @Ni"& _ "ederlassung) AND (Positionsnummer = @Positionsnummer)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezugsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezugsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Positionsnummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Positionsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Registrierkennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Registrierkennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Dateierzeugungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateierzeugungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Versendung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Versendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anmeldeform", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anmeldeform", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anmeldemonat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anmeldemonat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anmeldejahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anmeldejahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Paginiernummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Paginiernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BundeslandFinanzamt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BundeslandFinanzamt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuernummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Unterscheidungsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Unterscheidungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungsland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ursprungsregion", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ursprungsregion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verkehrszweig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verkehrszweig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eigenmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereMasseinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsbetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StatistischerWert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StatistischerWert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezugszeitraum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezugszeitraum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warenbeschreibung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warenbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", 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].[tbl_Intrastat_Ausfuhr] SET [Mandant] = @Mandant, [Niederlassung] = "& _ "@Niederlassung, [Bezugsnummer] = @Bezugsnummer, [Positionsnummer] = @Positionsnu"& _ "mmer, [Registrierkennzeichen] = @Registrierkennzeichen, [Dateierzeugungsdatum] ="& _ " @Dateierzeugungsdatum, [Versendung] = @Versendung, [Anmeldeform] = @Anmeldeform"& _ ", [Anmeldemonat] = @Anmeldemonat, [Anmeldejahr] = @Anmeldejahr, [Paginiernummer]"& _ " = @Paginiernummer, [BundeslandFinanzamt] = @BundeslandFinanzamt, [Steuernummer]"& _ " = @Steuernummer, [Unterscheidungsnummer] = @Unterscheidungsnummer, [Bestimmungs"& _ "land] = @Bestimmungsland, [Ursprungsregion] = @Ursprungsregion, [Geschäftsart] ="& _ " @Geschäftsart, [Verkehrszweig] = @Verkehrszweig, [Warennummer] = @Warennummer, "& _ "[Eigenmasse] = @Eigenmasse, [BesondereMasseinheit] = @BesondereMasseinheit, [Rec"& _ "hnungsbetrag] = @Rechnungsbetrag, [StatistischerWert] = @StatistischerWert, [Bez"& _ "ugszeitraum] = @Bezugszeitraum, [Warenbeschreibung] = @Warenbeschreibung, [Zeits"& _ "tempel] = @Zeitstempel WHERE (([Mandant] = @Original_Mandant) AND ([Niederlassun"& _ "g] = @Original_Niederlassung) AND ([Bezugsnummer] = @Original_Bezugsnummer) AND "& _ "([Positionsnummer] = @Original_Positionsnummer) AND ((@IsNull_upsize_ts = 1 AND "& _ "[upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, "& _ "Niederlassung, Bezugsnummer, Positionsnummer, Registrierkennzeichen, Dateierzeug"& _ "ungsdatum, Versendung, Anmeldeform, Anmeldemonat, Anmeldejahr, Paginiernummer, B"& _ "undeslandFinanzamt, Steuernummer, Unterscheidungsnummer, Bestimmungsland, Urspru"& _ "ngsregion, Geschäftsart, Verkehrszweig, Warennummer, Eigenmasse, BesondereMassei"& _ "nheit, Rechnungsbetrag, StatistischerWert, Bezugszeitraum, Warenbeschreibung, Ze"& _ "itstempel, upsize_ts FROM tbl_Intrastat_Ausfuhr WHERE (Bezugsnummer = @Bezugsnum"& _ "mer) AND (Mandant = @Mandant) AND (Niederlassung = @Niederlassung) AND (Position"& _ "snummer = @Positionsnummer)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezugsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezugsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Positionsnummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Positionsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Registrierkennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Registrierkennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Dateierzeugungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateierzeugungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Versendung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Versendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anmeldeform", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anmeldeform", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anmeldemonat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anmeldemonat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anmeldejahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anmeldejahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Paginiernummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Paginiernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BundeslandFinanzamt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BundeslandFinanzamt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuernummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Unterscheidungsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Unterscheidungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungsland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ursprungsregion", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ursprungsregion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verkehrszweig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verkehrszweig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eigenmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BesondereMasseinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BesondereMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsbetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StatistischerWert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StatistischerWert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezugszeitraum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezugszeitraum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warenbeschreibung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warenbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bezugsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezugsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Positionsnummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Positionsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Mandant, Niederlassung, Bezugsnummer, Positionsnummer, Registrierkennzeich"& _ "en, Dateierzeugungsdatum, Versendung, Anmeldeform, Anmeldemonat, Anmeldejahr, Pa"& _ "giniernummer, BundeslandFinanzamt, Steuernummer, Unterscheidungsnummer, Bestimmu"& _ "ngsland, Ursprungsregion, Geschäftsart, Verkehrszweig, Warennummer, Eigenmasse, "& _ "BesondereMasseinheit, Rechnungsbetrag, StatistischerWert, Bezugszeitraum, Warenb"& _ "eschreibung, Zeitstempel, upsize_ts FROM dbo.tbl_Intrastat_Ausfuhr" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_Intrastat_AusfuhrDataTable) 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 VERAGDataSet.tbl_Intrastat_AusfuhrDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_Intrastat_AusfuhrDataTable = New VERAGDataSet.tbl_Intrastat_AusfuhrDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_Intrastat_AusfuhrDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_Intrastat_Ausfuhr") 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_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Bezugsnummer As String, ByVal Original_Positionsnummer As Short, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Niederlassung,String) End If If (Original_Bezugsnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bezugsnummer") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Bezugsnummer,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Positionsnummer,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Mandant As String, _ ByVal Niederlassung As String, _ ByVal Bezugsnummer As String, _ ByVal Positionsnummer As Short, _ ByVal Registrierkennzeichen As String, _ ByVal Dateierzeugungsdatum As Global.System.Nullable(Of Date), _ ByVal Versendung As String, _ ByVal Anmeldeform As String, _ ByVal Anmeldemonat As Global.System.Nullable(Of Short), _ ByVal Anmeldejahr As Global.System.Nullable(Of Short), _ ByVal Paginiernummer As Global.System.Nullable(Of Integer), _ ByVal BundeslandFinanzamt As String, _ ByVal Steuernummer As String, _ ByVal Unterscheidungsnummer As String, _ ByVal Bestimmungsland As String, _ ByVal Ursprungsregion As String, _ ByVal Geschäftsart As String, _ ByVal Verkehrszweig As String, _ ByVal Warennummer As String, _ ByVal Eigenmasse As Integer, _ ByVal BesondereMasseinheit As Global.System.Nullable(Of Integer), _ ByVal Rechnungsbetrag As Integer, _ ByVal StatistischerWert As Global.System.Nullable(Of Integer), _ ByVal Bezugszeitraum As Date, _ ByVal Warenbeschreibung As String, _ ByVal Zeitstempel As Date) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Niederlassung,String) End If If (Bezugsnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Bezugsnummer") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Bezugsnummer,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(Positionsnummer,Short) If (Registrierkennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Registrierkennzeichen,String) End If If (Dateierzeugungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Dateierzeugungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Versendung Is Nothing) Then Throw New Global.System.ArgumentNullException("Versendung") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Versendung,String) End If If (Anmeldeform Is Nothing) Then Throw New Global.System.ArgumentNullException("Anmeldeform") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Anmeldeform,String) End If If (Anmeldemonat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(Anmeldemonat.Value,Short) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Anmeldejahr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Anmeldejahr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Paginiernummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Paginiernummer.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (BundeslandFinanzamt Is Nothing) Then Throw New Global.System.ArgumentNullException("BundeslandFinanzamt") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(BundeslandFinanzamt,String) End If If (Steuernummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Steuernummer") Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Steuernummer,String) End If If (Unterscheidungsnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Unterscheidungsnummer") Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Unterscheidungsnummer,String) End If If (Bestimmungsland Is Nothing) Then Throw New Global.System.ArgumentNullException("Bestimmungsland") Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Bestimmungsland,String) End If If (Ursprungsregion Is Nothing) Then Throw New Global.System.ArgumentNullException("Ursprungsregion") Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Ursprungsregion,String) End If If (Geschäftsart Is Nothing) Then Throw New Global.System.ArgumentNullException("Geschäftsart") Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Geschäftsart,String) End If If (Verkehrszweig Is Nothing) Then Throw New Global.System.ArgumentNullException("Verkehrszweig") Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Verkehrszweig,String) End If If (Warennummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Warennummer") Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Warennummer,String) End If Me.Adapter.InsertCommand.Parameters(19).Value = CType(Eigenmasse,Integer) If (BesondereMasseinheit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(BesondereMasseinheit.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(21).Value = CType(Rechnungsbetrag,Integer) If (StatistischerWert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(StatistischerWert.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(23).Value = CType(Bezugszeitraum,Date) If (Warenbeschreibung Is Nothing) Then Throw New Global.System.ArgumentNullException("Warenbeschreibung") Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(Warenbeschreibung,String) End If Me.Adapter.InsertCommand.Parameters(25).Value = CType(Zeitstempel,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 Mandant As String, _ ByVal Niederlassung As String, _ ByVal Bezugsnummer As String, _ ByVal Positionsnummer As Short, _ ByVal Registrierkennzeichen As String, _ ByVal Dateierzeugungsdatum As Global.System.Nullable(Of Date), _ ByVal Versendung As String, _ ByVal Anmeldeform As String, _ ByVal Anmeldemonat As Global.System.Nullable(Of Short), _ ByVal Anmeldejahr As Global.System.Nullable(Of Short), _ ByVal Paginiernummer As Global.System.Nullable(Of Integer), _ ByVal BundeslandFinanzamt As String, _ ByVal Steuernummer As String, _ ByVal Unterscheidungsnummer As String, _ ByVal Bestimmungsland As String, _ ByVal Ursprungsregion As String, _ ByVal Geschäftsart As String, _ ByVal Verkehrszweig As String, _ ByVal Warennummer As String, _ ByVal Eigenmasse As Integer, _ ByVal BesondereMasseinheit As Global.System.Nullable(Of Integer), _ ByVal Rechnungsbetrag As Integer, _ ByVal StatistischerWert As Global.System.Nullable(Of Integer), _ ByVal Bezugszeitraum As Date, _ ByVal Warenbeschreibung As String, _ ByVal Zeitstempel As Date, _ ByVal Original_Mandant As String, _ ByVal Original_Niederlassung As String, _ ByVal Original_Bezugsnummer As String, _ ByVal Original_Positionsnummer As Short, _ ByVal Original_upsize_ts() As Byte) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Niederlassung,String) End If If (Bezugsnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Bezugsnummer") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Bezugsnummer,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Positionsnummer,Short) If (Registrierkennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Registrierkennzeichen,String) End If If (Dateierzeugungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Dateierzeugungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Versendung Is Nothing) Then Throw New Global.System.ArgumentNullException("Versendung") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Versendung,String) End If If (Anmeldeform Is Nothing) Then Throw New Global.System.ArgumentNullException("Anmeldeform") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Anmeldeform,String) End If If (Anmeldemonat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Anmeldemonat.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Anmeldejahr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Anmeldejahr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Paginiernummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Paginiernummer.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (BundeslandFinanzamt Is Nothing) Then Throw New Global.System.ArgumentNullException("BundeslandFinanzamt") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(BundeslandFinanzamt,String) End If If (Steuernummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Steuernummer") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Steuernummer,String) End If If (Unterscheidungsnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Unterscheidungsnummer") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Unterscheidungsnummer,String) End If If (Bestimmungsland Is Nothing) Then Throw New Global.System.ArgumentNullException("Bestimmungsland") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Bestimmungsland,String) End If If (Ursprungsregion Is Nothing) Then Throw New Global.System.ArgumentNullException("Ursprungsregion") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Ursprungsregion,String) End If If (Geschäftsart Is Nothing) Then Throw New Global.System.ArgumentNullException("Geschäftsart") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Geschäftsart,String) End If If (Verkehrszweig Is Nothing) Then Throw New Global.System.ArgumentNullException("Verkehrszweig") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Verkehrszweig,String) End If If (Warennummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Warennummer") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Warennummer,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Eigenmasse,Integer) If (BesondereMasseinheit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(BesondereMasseinheit.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Rechnungsbetrag,Integer) If (StatistischerWert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(StatistischerWert.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Bezugszeitraum,Date) If (Warenbeschreibung Is Nothing) Then Throw New Global.System.ArgumentNullException("Warenbeschreibung") Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Warenbeschreibung,String) End If Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Zeitstempel,Date) If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Niederlassung,String) End If If (Original_Bezugsnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bezugsnummer") Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_Bezugsnummer,String) End If Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Positionsnummer,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 Registrierkennzeichen As String, _ ByVal Dateierzeugungsdatum As Global.System.Nullable(Of Date), _ ByVal Versendung As String, _ ByVal Anmeldeform As String, _ ByVal Anmeldemonat As Global.System.Nullable(Of Short), _ ByVal Anmeldejahr As Global.System.Nullable(Of Short), _ ByVal Paginiernummer As Global.System.Nullable(Of Integer), _ ByVal BundeslandFinanzamt As String, _ ByVal Steuernummer As String, _ ByVal Unterscheidungsnummer As String, _ ByVal Bestimmungsland As String, _ ByVal Ursprungsregion As String, _ ByVal Geschäftsart As String, _ ByVal Verkehrszweig As String, _ ByVal Warennummer As String, _ ByVal Eigenmasse As Integer, _ ByVal BesondereMasseinheit As Global.System.Nullable(Of Integer), _ ByVal Rechnungsbetrag As Integer, _ ByVal StatistischerWert As Global.System.Nullable(Of Integer), _ ByVal Bezugszeitraum As Date, _ ByVal Warenbeschreibung As String, _ ByVal Zeitstempel As Date, _ ByVal Original_Mandant As String, _ ByVal Original_Niederlassung As String, _ ByVal Original_Bezugsnummer As String, _ ByVal Original_Positionsnummer As Short, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Mandant, Original_Niederlassung, Original_Bezugsnummer, Original_Positionsnummer, Registrierkennzeichen, Dateierzeugungsdatum, Versendung, Anmeldeform, Anmeldemonat, Anmeldejahr, Paginiernummer, BundeslandFinanzamt, Steuernummer, Unterscheidungsnummer, Bestimmungsland, Ursprungsregion, Geschäftsart, Verkehrszweig, Warennummer, Eigenmasse, BesondereMasseinheit, Rechnungsbetrag, StatistischerWert, Bezugszeitraum, Warenbeschreibung, Zeitstempel, Original_Mandant, Original_Niederlassung, Original_Bezugsnummer, Original_Positionsnummer, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_TelefonbuchTableAdapter 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 = "tbl_Telefonbuch" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Kurzname", "Kurzname") tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("Name 1", "Name 1") tableMapping.ColumnMappings.Add("Name 2", "Name 2") tableMapping.ColumnMappings.Add("Name 3", "Name 3") tableMapping.ColumnMappings.Add("Straße", "Straße") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("PLZ", "PLZ") tableMapping.ColumnMappings.Add("Ort", "Ort") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_Telefonbuch] WHERE (([ID] = @Original_ID) AND ([SSMA_TimeS"& _ "tamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_Telefonbuch] ([Kurzname], [KundenNr], [Name 1], [Name 2], "& _ "[Name 3], [Straße], [LandKz], [PLZ], [Ort], [Zeitstempel]) VALUES (@Kurzname, @K"& _ "undenNr, @Name_1, @Name_2, @Name_3, @Straße, @LandKz, @PLZ, @Ort, @Zeitstempel);"& _ ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Kurzname, KundenNr, [Name 1], [Name 2], [Name 3], Straße, LandKz, P"& _ "LZ, Ort, Zeitstempel, SSMA_TimeStamp FROM tbl_Telefonbuch WHERE (ID = SCOPE_IDEN"& _ "TITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kurzname", Global.System.Data.SqlDbType.NVarChar, 0, 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("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", 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].[tbl_Telefonbuch] SET [Kurzname] = @Kurzname, [KundenNr] = @KundenNr"& _ ", [Name 1] = @Name_1, [Name 2] = @Name_2, [Name 3] = @Name_3, [Straße] = @Straße"& _ ", [LandKz] = @LandKz, [PLZ] = @PLZ, [Ort] = @Ort, [Zeitstempel] = @Zeitstempel W"& _ "HERE (([ID] = @Original_ID) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Kurzname, KundenNr, [Name 1], [Name 2], [Name 3], Straße, LandKz, PL"& _ "Z, Ort, Zeitstempel, SSMA_TimeStamp FROM tbl_Telefonbuch WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kurzname", Global.System.Data.SqlDbType.NVarChar, 0, 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("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name_3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name 3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, Kurzname, KundenNr, [Name 1], [Name 2], [Name 3], Straße, LandKz, PLZ,"& _ " Ort, Zeitstempel, SSMA_TimeStamp FROM dbo.tbl_Telefonbuch" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_TelefonbuchDataTable) 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 VERAGDataSet.tbl_TelefonbuchDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_TelefonbuchDataTable = New VERAGDataSet.tbl_TelefonbuchDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_TelefonbuchDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_Telefonbuch") 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_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Kurzname As String, ByVal KundenNr As Global.System.Nullable(Of Integer), ByVal Name_1 As String, ByVal Name_2 As String, ByVal Name_3 As String, ByVal Straße As String, ByVal LandKz As String, ByVal PLZ As String, ByVal Ort As String, ByVal Zeitstempel As Global.System.Nullable(Of Date)) As Integer If (Kurzname Is Nothing) Then Throw New Global.System.ArgumentNullException("Kurzname") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Kurzname,String) End If If (KundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(KundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Name_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name_1,String) End If If (Name_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Name_2,String) End If If (Name_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Name_3,String) End If If (Straße Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Straße,String) End If If (LandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(LandKz,String) End If If (PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(PLZ,String) End If If (Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Ort,String) End If If (Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).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 Kurzname As String, ByVal KundenNr As Global.System.Nullable(Of Integer), ByVal Name_1 As String, ByVal Name_2 As String, ByVal Name_3 As String, ByVal Straße As String, ByVal LandKz As String, ByVal PLZ As String, ByVal Ort As String, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte, ByVal ID As Integer) As Integer If (Kurzname Is Nothing) Then Throw New Global.System.ArgumentNullException("Kurzname") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Kurzname,String) End If If (KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Name_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name_1,String) End If If (Name_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Name_2,String) End If If (Name_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Name_3,String) End If If (Straße Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Straße,String) End If If (LandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LandKz,String) End If If (PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(PLZ,String) End If If (Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Ort,String) End If If (Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SSMA_TimeStamp,Byte()) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ID,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 Kurzname As String, ByVal KundenNr As Global.System.Nullable(Of Integer), ByVal Name_1 As String, ByVal Name_2 As String, ByVal Name_3 As String, ByVal Straße As String, ByVal LandKz As String, ByVal PLZ As String, ByVal Ort As String, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Kurzname, KundenNr, Name_1, Name_2, Name_3, Straße, LandKz, PLZ, Ort, Zeitstempel, Original_ID, Original_SSMA_TimeStamp, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_TelefonnummernTableAdapter 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 = "tbl_Telefonnummern" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("ID_tbl_Telefonbuch", "ID_tbl_Telefonbuch") tableMapping.ColumnMappings.Add("BS", "BS") tableMapping.ColumnMappings.Add("Kennung", "Kennung") tableMapping.ColumnMappings.Add("Nummer", "Nummer") tableMapping.ColumnMappings.Add("Abteilung", "Abteilung") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_Telefonnummern] WHERE (([ID] = @Original_ID) AND ([SSMA_Ti"& _ "meStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_Telefonnummern] ([ID_tbl_Telefonbuch], [BS], [Kennung], [N"& _ "ummer], [Abteilung], [Zeitstempel]) VALUES (@ID_tbl_Telefonbuch, @BS, @Kennung, "& _ "@Nummer, @Abteilung, @Zeitstempel);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, ID_tbl_Telefonbuch, BS, Kennung,"& _ " Nummer, Abteilung, Zeitstempel, SSMA_TimeStamp FROM tbl_Telefonnummern WHERE (I"& _ "D = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID_tbl_Telefonbuch", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID_tbl_Telefonbuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BS", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kennung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kennung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abteilung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abteilung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", 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].[tbl_Telefonnummern] SET [ID_tbl_Telefonbuch] = @ID_tbl_Telefonbuch,"& _ " [BS] = @BS, [Kennung] = @Kennung, [Nummer] = @Nummer, [Abteilung] = @Abteilung,"& _ " [Zeitstempel] = @Zeitstempel WHERE (([ID] = @Original_ID) AND ([SSMA_TimeStamp]"& _ " = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, ID_tbl_Telefonbuch, BS, Kennung, Numm"& _ "er, Abteilung, Zeitstempel, SSMA_TimeStamp FROM tbl_Telefonnummern WHERE (ID = @"& _ "ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID_tbl_Telefonbuch", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID_tbl_Telefonbuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BS", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kennung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kennung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abteilung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abteilung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, ID_tbl_Telefonbuch, BS, Kennung, Nummer, Abteilung, Zeitstempel, SSMA_"& _ "TimeStamp FROM dbo.tbl_Telefonnummern" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_TelefonnummernDataTable) 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 VERAGDataSet.tbl_TelefonnummernDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_TelefonnummernDataTable = New VERAGDataSet.tbl_TelefonnummernDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_TelefonnummernDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_Telefonnummern") 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_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 ID_tbl_Telefonbuch As Integer, ByVal BS As Global.System.Nullable(Of Short), ByVal Kennung As Short, ByVal Nummer As String, ByVal Abteilung As String, ByVal Zeitstempel As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID_tbl_Telefonbuch,Integer) If (BS.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(BS.Value,Short) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Kennung,Short) If (Nummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Nummer") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Nummer,String) End If If (Abteilung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Abteilung,String) End If If (Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Zeitstempel.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 ID_tbl_Telefonbuch As Integer, ByVal BS As Global.System.Nullable(Of Short), ByVal Kennung As Short, ByVal Nummer As String, ByVal Abteilung As String, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte, ByVal ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID_tbl_Telefonbuch,Integer) If (BS.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BS.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Kennung,Short) If (Nummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Nummer") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Nummer,String) End If If (Abteilung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Abteilung,String) End If If (Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_SSMA_TimeStamp,Byte()) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ID,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 ID_tbl_Telefonbuch As Integer, ByVal BS As Global.System.Nullable(Of Short), ByVal Kennung As Short, ByVal Nummer As String, ByVal Abteilung As String, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(ID_tbl_Telefonbuch, BS, Kennung, Nummer, Abteilung, Zeitstempel, Original_ID, Original_SSMA_TimeStamp, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_WÖLFLTableAdapter 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 = "tbl_WÖLFL" tableMapping.ColumnMappings.Add("Produktcode", "Produktcode") tableMapping.ColumnMappings.Add("Bezeichnung", "Bezeichnung") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Preiszuschlag", "Preiszuschlag") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tbl_WÖLFL] WHERE (([Produktcode] = @Original_Produktcode) AND "& _ "([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Produktcode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Produktcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tbl_WÖLFL] ([Produktcode], [Bezeichnung], [Preis], [Preiszusch"& _ "lag]) VALUES (@Produktcode, @Bezeichnung, @Preis, @Preiszuschlag);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Produ"& _ "ktcode, Bezeichnung, Preis, Preiszuschlag, SSMA_TimeStamp FROM tbl_WÖLFL WHERE ("& _ "Produktcode = @Produktcode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Produktcode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Produktcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, 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("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preiszuschlag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preiszuschlag", 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].[tbl_WÖLFL] SET [Produktcode] = @Produktcode, [Bezeichnung] = @Bezei"& _ "chnung, [Preis] = @Preis, [Preiszuschlag] = @Preiszuschlag WHERE (([Produktcode]"& _ " = @Original_Produktcode) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT Produktcode, Bezeichnung, Preis, Preiszuschlag, SSMA_TimeStamp FROM tbl_WÖ"& _ "LFL WHERE (Produktcode = @Produktcode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Produktcode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Produktcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 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("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preiszuschlag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preiszuschlag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Produktcode", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Produktcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Produktcode, Bezeichnung, Preis, Preiszuschlag, SSMA_TimeStamp FROM dbo.tb"& _ "l_WÖLFL" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_WÖLFLDataTable) 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 VERAGDataSet.tbl_WÖLFLDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_WÖLFLDataTable = New VERAGDataSet.tbl_WÖLFLDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_WÖLFLDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_WÖLFL") 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_Produktcode As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Produktcode,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Produktcode As Short, ByVal Bezeichnung As String, ByVal Preis As Decimal, ByVal Preiszuschlag As Decimal) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Produktcode,Short) If (Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Bezeichnung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bezeichnung,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Preis,Decimal) Me.Adapter.InsertCommand.Parameters(3).Value = CType(Preiszuschlag,Decimal) 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 Produktcode As Short, ByVal Bezeichnung As String, ByVal Preis As Decimal, ByVal Preiszuschlag As Decimal, ByVal Original_Produktcode As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Produktcode,Short) If (Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Preis,Decimal) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Preiszuschlag,Decimal) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Produktcode,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Preis As Decimal, ByVal Preiszuschlag As Decimal, ByVal Original_Produktcode As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Produktcode, Bezeichnung, Preis, Preiszuschlag, Original_Produktcode, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_ZM_tabelleTableAdapter 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 = "tbl_ZM_tabelle" tableMapping.ColumnMappings.Add("knre1", "knre1") tableMapping.ColumnMappings.Add("knre2", "knre2") tableMapping.ColumnMappings.Add("betrag", "betrag") tableMapping.ColumnMappings.Add("zeile_m", "zeile_m") tableMapping.ColumnMappings.Add("umsatz_art", "umsatz_art") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tbl_ZM_tabelle] WHERE (([zeile_m] = @Original_zeile_m) AND ((@"& _ "IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize"& _ "_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zeile_m", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zeile_m", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tbl_ZM_tabelle] ([knre1], [knre2], [betrag], [zeile_m], [umsat"& _ "z_art]) VALUES (@knre1, @knre2, @betrag, @zeile_m, @umsatz_art);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT knre1, "& _ "knre2, betrag, zeile_m, umsatz_art, upsize_ts FROM tbl_ZM_tabelle WHERE (zeile_m"& _ " = @zeile_m)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@knre1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "knre1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@knre2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "knre2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@betrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zeile_m", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zeile_m", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@umsatz_art", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "umsatz_art", 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].[tbl_ZM_tabelle] SET [knre1] = @knre1, [knre2] = @knre2, [betrag] = "& _ "@betrag, [zeile_m] = @zeile_m, [umsatz_art] = @umsatz_art WHERE (([zeile_m] = @O"& _ "riginal_zeile_m) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsiz"& _ "e_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT knre1, knre2, betrag, zeile_m, umsatz_ar"& _ "t, upsize_ts FROM tbl_ZM_tabelle WHERE (zeile_m = @zeile_m)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@knre1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "knre1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@knre2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "knre2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@betrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zeile_m", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zeile_m", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@umsatz_art", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "umsatz_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zeile_m", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zeile_m", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 knre1, knre2, betrag, zeile_m, umsatz_art, upsize_ts FROM dbo.tbl_ZM_tabel"& _ "le" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tbl_ZM_tabelleDataTable) 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 VERAGDataSet.tbl_ZM_tabelleDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tbl_ZM_tabelleDataTable = New VERAGDataSet.tbl_ZM_tabelleDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tbl_ZM_tabelleDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_ZM_tabelle") 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_zeile_m As Short, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_zeile_m,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 knre1 As String, ByVal knre2 As String, ByVal betrag As Integer, ByVal zeile_m As Short, ByVal umsatz_art As Short) As Integer If (knre1 Is Nothing) Then Throw New Global.System.ArgumentNullException("knre1") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(knre1,String) End If If (knre2 Is Nothing) Then Throw New Global.System.ArgumentNullException("knre2") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(knre2,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(betrag,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(zeile_m,Short) Me.Adapter.InsertCommand.Parameters(4).Value = CType(umsatz_art,Short) 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 knre1 As String, ByVal knre2 As String, ByVal betrag As Integer, ByVal zeile_m As Short, ByVal umsatz_art As Short, ByVal Original_zeile_m As Short, ByVal Original_upsize_ts() As Byte) As Integer If (knre1 Is Nothing) Then Throw New Global.System.ArgumentNullException("knre1") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(knre1,String) End If If (knre2 Is Nothing) Then Throw New Global.System.ArgumentNullException("knre2") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(knre2,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(betrag,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(zeile_m,Short) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(umsatz_art,Short) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_zeile_m,Short) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_upsize_ts,Byte()) End If 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 knre1 As String, ByVal knre2 As String, ByVal betrag As Integer, ByVal umsatz_art As Short, ByVal Original_zeile_m As Short, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(knre1, knre2, betrag, Original_zeile_m, umsatz_art, Original_zeile_m, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblAbfertigungsartenFilialeTableAdapter 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 = "tblAbfertigungsartenFiliale" tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("Abfertigungsart", "Abfertigungsart") 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].[tblAbfertigungsartenFiliale] WHERE (([FilialenNr] = @Original_"& _ "FilialenNr) AND ([Abfertigungsart] = @Original_Abfertigungsart))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", 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].[tblAbfertigungsartenFiliale] ([FilialenNr], [Abfertigungsart])"& _ " VALUES (@FilialenNr, @Abfertigungsart);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FilialenNr, Abfertigungsart FRO"& _ "M tblAbfertigungsartenFiliale WHERE (Abfertigungsart = @Abfertigungsart) AND (Fi"& _ "lialenNr = @FilialenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", 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].[tblAbfertigungsartenFiliale] SET [FilialenNr] = @FilialenNr, [Abfer"& _ "tigungsart] = @Abfertigungsart WHERE (([FilialenNr] = @Original_FilialenNr) AND "& _ "([Abfertigungsart] = @Original_Abfertigungsart));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FilialenNr, Abfertigun"& _ "gsart FROM tblAbfertigungsartenFiliale WHERE (Abfertigungsart = @Abfertigungsart"& _ ") AND (FilialenNr = @FilialenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 FilialenNr, Abfertigungsart FROM dbo.tblAbfertigungsartenFiliale" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblAbfertigungsartenFilialeDataTable) 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 VERAGDataSet.tblAbfertigungsartenFilialeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblAbfertigungsartenFilialeDataTable = New VERAGDataSet.tblAbfertigungsartenFilialeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblAbfertigungsartenFilialeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblAbfertigungsartenFiliale") 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_FilialenNr As Integer, ByVal Original_Abfertigungsart As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_FilialenNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Abfertigungsart,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 FilialenNr As Integer, ByVal Abfertigungsart As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(FilialenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Abfertigungsart,Integer) 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 FilialenNr As Integer, ByVal Abfertigungsart As Integer, ByVal Original_FilialenNr As Integer, ByVal Original_Abfertigungsart As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FilialenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Abfertigungsart,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_FilialenNr,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Abfertigungsart,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 Original_FilialenNr As Integer, ByVal Original_Abfertigungsart As Integer) As Integer Return Me.Update(Original_FilialenNr, Original_Abfertigungsart, Original_FilialenNr, Original_Abfertigungsart) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblAbfertigungsartOffertenstammTableAdapter 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 = "tblAbfertigungsartOffertenstamm" tableMapping.ColumnMappings.Add("ao_id", "ao_id") tableMapping.ColumnMappings.Add("ao_Abfertigungsart", "ao_Abfertigungsart") tableMapping.ColumnMappings.Add("ao_OffertenNr", "ao_OffertenNr") 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].[tblAbfertigungsartOffertenstamm] WHERE (([ao_id] = @Original_a"& _ "o_id) AND ([ao_Abfertigungsart] = @Original_ao_Abfertigungsart) AND ([ao_Offerte"& _ "nNr] = @Original_ao_OffertenNr))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ao_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ao_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ao_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_OffertenNr", 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].[tblAbfertigungsartOffertenstamm] ([ao_Abfertigungsart], [ao_Of"& _ "fertenNr]) VALUES (@ao_Abfertigungsart, @ao_OffertenNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ao_id, ao_Abfer"& _ "tigungsart, ao_OffertenNr FROM tblAbfertigungsartOffertenstamm WHERE (ao_id = SC"& _ "OPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ao_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ao_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_OffertenNr", 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].[tblAbfertigungsartOffertenstamm] SET [ao_Abfertigungsart] = @ao_Abf"& _ "ertigungsart, [ao_OffertenNr] = @ao_OffertenNr WHERE (([ao_id] = @Original_ao_id"& _ ") AND ([ao_Abfertigungsart] = @Original_ao_Abfertigungsart) AND ([ao_OffertenNr]"& _ " = @Original_ao_OffertenNr));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ao_id, ao_Abfertigungsart, ao_OffertenNr F"& _ "ROM tblAbfertigungsartOffertenstamm WHERE (ao_id = @ao_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ao_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ao_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ao_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ao_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ao_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ao_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ao_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ao_id, ao_Abfertigungsart, ao_OffertenNr FROM dbo.tblAbfertigungsartOffert"& _ "enstamm" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblAbfertigungsartOffertenstammDataTable) 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 VERAGDataSet.tblAbfertigungsartOffertenstammDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblAbfertigungsartOffertenstammDataTable = New VERAGDataSet.tblAbfertigungsartOffertenstammDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblAbfertigungsartOffertenstammDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblAbfertigungsartOffertenstamm") 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_ao_id As Integer, ByVal Original_ao_Abfertigungsart As Integer, ByVal Original_ao_OffertenNr As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ao_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ao_Abfertigungsart,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ao_OffertenNr,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 ao_Abfertigungsart As Integer, ByVal ao_OffertenNr As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ao_Abfertigungsart,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ao_OffertenNr,Integer) 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 ao_Abfertigungsart As Integer, ByVal ao_OffertenNr As Integer, ByVal Original_ao_id As Integer, ByVal Original_ao_Abfertigungsart As Integer, ByVal Original_ao_OffertenNr As Integer, ByVal ao_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ao_Abfertigungsart,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ao_OffertenNr,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ao_id,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ao_Abfertigungsart,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_ao_OffertenNr,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ao_id,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 ao_Abfertigungsart As Integer, ByVal ao_OffertenNr As Integer, ByVal Original_ao_id As Integer, ByVal Original_ao_Abfertigungsart As Integer, ByVal Original_ao_OffertenNr As Integer) As Integer Return Me.Update(ao_Abfertigungsart, ao_OffertenNr, Original_ao_id, Original_ao_Abfertigungsart, Original_ao_OffertenNr, Original_ao_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblAbrechnung_NCTSBrgTableAdapter 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 = "tblAbrechnung_NCTSBrg" tableMapping.ColumnMappings.Add("abrg_Id", "abrg_Id") tableMapping.ColumnMappings.Add("abrg_Partner", "abrg_Partner") tableMapping.ColumnMappings.Add("abrg_artAbrechnung", "abrg_artAbrechnung") tableMapping.ColumnMappings.Add("abrg_GarantiewertBis", "abrg_GarantiewertBis") tableMapping.ColumnMappings.Add("abrg_bertrag", "abrg_bertrag") tableMapping.ColumnMappings.Add("abrg_prozent", "abrg_prozent") 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].[tblAbrechnung_NCTSBrg] WHERE (([abrg_Id] = @Original_abrg_Id) "& _ "AND ([abrg_Partner] = @Original_abrg_Partner) AND ([abrg_artAbrechnung] = @Origi"& _ "nal_abrg_artAbrechnung) AND ([abrg_GarantiewertBis] = @Original_abrg_Garantiewer"& _ "tBis) AND ([abrg_bertrag] = @Original_abrg_bertrag) AND ((@IsNull_abrg_prozent ="& _ " 1 AND [abrg_prozent] IS NULL) OR ([abrg_prozent] = @Original_abrg_prozent)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_artAbrechnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_artAbrechnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_GarantiewertBis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "abrg_GarantiewertBis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_bertrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "abrg_bertrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_abrg_prozent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_prozent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_prozent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 7, "abrg_prozent", 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].[tblAbrechnung_NCTSBrg] ([abrg_Partner], [abrg_artAbrechnung], "& _ "[abrg_GarantiewertBis], [abrg_bertrag], [abrg_prozent]) VALUES (@abrg_Partner, @"& _ "abrg_artAbrechnung, @abrg_GarantiewertBis, @abrg_bertrag, @abrg_prozent);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ "T abrg_Id, abrg_Partner, abrg_artAbrechnung, abrg_GarantiewertBis, abrg_bertrag,"& _ " abrg_prozent FROM tblAbrechnung_NCTSBrg WHERE (abrg_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_artAbrechnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_artAbrechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_GarantiewertBis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "abrg_GarantiewertBis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_bertrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "abrg_bertrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_prozent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 7, "abrg_prozent", 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].[tblAbrechnung_NCTSBrg] SET [abrg_Partner] = @abrg_Partner, [abrg_ar"& _ "tAbrechnung] = @abrg_artAbrechnung, [abrg_GarantiewertBis] = @abrg_GarantiewertB"& _ "is, [abrg_bertrag] = @abrg_bertrag, [abrg_prozent] = @abrg_prozent WHERE (([abrg"& _ "_Id] = @Original_abrg_Id) AND ([abrg_Partner] = @Original_abrg_Partner) AND ([ab"& _ "rg_artAbrechnung] = @Original_abrg_artAbrechnung) AND ([abrg_GarantiewertBis] = "& _ "@Original_abrg_GarantiewertBis) AND ([abrg_bertrag] = @Original_abrg_bertrag) AN"& _ "D ((@IsNull_abrg_prozent = 1 AND [abrg_prozent] IS NULL) OR ([abrg_prozent] = @O"& _ "riginal_abrg_prozent)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT abrg_Id, abrg_Partner, abrg_artAbrechnung, abrg"& _ "_GarantiewertBis, abrg_bertrag, abrg_prozent FROM tblAbrechnung_NCTSBrg WHERE (a"& _ "brg_Id = @abrg_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_artAbrechnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_artAbrechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_GarantiewertBis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "abrg_GarantiewertBis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_bertrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "abrg_bertrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_prozent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 7, "abrg_prozent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_artAbrechnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_artAbrechnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_GarantiewertBis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "abrg_GarantiewertBis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_bertrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "abrg_bertrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_abrg_prozent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_prozent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_abrg_prozent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 7, "abrg_prozent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abrg_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "abrg_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 abrg_Id, abrg_Partner, abrg_artAbrechnung, abrg_GarantiewertBis, abrg_bert"& _ "rag, abrg_prozent FROM dbo.tblAbrechnung_NCTSBrg" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblAbrechnung_NCTSBrgDataTable) 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 VERAGDataSet.tblAbrechnung_NCTSBrgDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblAbrechnung_NCTSBrgDataTable = New VERAGDataSet.tblAbrechnung_NCTSBrgDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblAbrechnung_NCTSBrgDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblAbrechnung_NCTSBrg") 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_abrg_Id As Integer, ByVal Original_abrg_Partner As String, ByVal Original_abrg_artAbrechnung As String, ByVal Original_abrg_GarantiewertBis As Decimal, ByVal Original_abrg_bertrag As Decimal, ByVal Original_abrg_prozent As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_abrg_Id,Integer) If (Original_abrg_Partner Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_abrg_Partner") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_abrg_Partner,String) End If If (Original_abrg_artAbrechnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_abrg_artAbrechnung") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_abrg_artAbrechnung,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_abrg_GarantiewertBis,Decimal) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_abrg_bertrag,Decimal) If (Original_abrg_prozent.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_abrg_prozent.Value,Decimal) 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 abrg_Partner As String, ByVal abrg_artAbrechnung As String, ByVal abrg_GarantiewertBis As Decimal, ByVal abrg_bertrag As Decimal, ByVal abrg_prozent As Global.System.Nullable(Of Decimal)) As Integer If (abrg_Partner Is Nothing) Then Throw New Global.System.ArgumentNullException("abrg_Partner") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(abrg_Partner,String) End If If (abrg_artAbrechnung Is Nothing) Then Throw New Global.System.ArgumentNullException("abrg_artAbrechnung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(abrg_artAbrechnung,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(abrg_GarantiewertBis,Decimal) Me.Adapter.InsertCommand.Parameters(3).Value = CType(abrg_bertrag,Decimal) If (abrg_prozent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(abrg_prozent.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(4).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 abrg_Partner As String, ByVal abrg_artAbrechnung As String, ByVal abrg_GarantiewertBis As Decimal, ByVal abrg_bertrag As Decimal, ByVal abrg_prozent As Global.System.Nullable(Of Decimal), ByVal Original_abrg_Id As Integer, ByVal Original_abrg_Partner As String, ByVal Original_abrg_artAbrechnung As String, ByVal Original_abrg_GarantiewertBis As Decimal, ByVal Original_abrg_bertrag As Decimal, ByVal Original_abrg_prozent As Global.System.Nullable(Of Decimal), ByVal abrg_Id As Integer) As Integer If (abrg_Partner Is Nothing) Then Throw New Global.System.ArgumentNullException("abrg_Partner") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(abrg_Partner,String) End If If (abrg_artAbrechnung Is Nothing) Then Throw New Global.System.ArgumentNullException("abrg_artAbrechnung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(abrg_artAbrechnung,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(abrg_GarantiewertBis,Decimal) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(abrg_bertrag,Decimal) If (abrg_prozent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(abrg_prozent.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_abrg_Id,Integer) If (Original_abrg_Partner Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_abrg_Partner") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_abrg_Partner,String) End If If (Original_abrg_artAbrechnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_abrg_artAbrechnung") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_abrg_artAbrechnung,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_abrg_GarantiewertBis,Decimal) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_abrg_bertrag,Decimal) If (Original_abrg_prozent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_abrg_prozent.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(abrg_Id,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 abrg_Partner As String, ByVal abrg_artAbrechnung As String, ByVal abrg_GarantiewertBis As Decimal, ByVal abrg_bertrag As Decimal, ByVal abrg_prozent As Global.System.Nullable(Of Decimal), ByVal Original_abrg_Id As Integer, ByVal Original_abrg_Partner As String, ByVal Original_abrg_artAbrechnung As String, ByVal Original_abrg_GarantiewertBis As Decimal, ByVal Original_abrg_bertrag As Decimal, ByVal Original_abrg_prozent As Global.System.Nullable(Of Decimal)) As Integer Return Me.Update(abrg_Partner, abrg_artAbrechnung, abrg_GarantiewertBis, abrg_bertrag, abrg_prozent, Original_abrg_Id, Original_abrg_Partner, Original_abrg_artAbrechnung, Original_abrg_GarantiewertBis, Original_abrg_bertrag, Original_abrg_prozent, Original_abrg_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblAnmeldungTableAdapter 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 = "tblAnmeldung" tableMapping.ColumnMappings.Add("Computername", "Computername") tableMapping.ColumnMappings.Add("Benutzername", "Benutzername") tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("Login", "Login") tableMapping.ColumnMappings.Add("Logout", "Logout") tableMapping.ColumnMappings.Add("Programmversion", "Programmversion") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblAnmeldung] WHERE (([Computername] = @Original_Computername)"& _ " AND ([Benutzername] = @Original_Benutzername) AND ((@IsNull_upsize_ts = 1 AND ["& _ "upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblAnmeldung] ([Computername], [Benutzername], [Mandant], [Nie"& _ "derlassung], [Login], [Logout], [Programmversion]) VALUES (@Computername, @Benut"& _ "zername, @Mandant, @Niederlassung, @Login, @Logout, @Programmversion);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT C"& _ "omputername, Benutzername, Mandant, Niederlassung, Login, Logout, Programmversio"& _ "n, upsize_ts FROM tblAnmeldung WHERE (Benutzername = @Benutzername) AND (Compute"& _ "rname = @Computername)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Login", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Login", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logout", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logout", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Programmversion", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Programmversion", 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].[tblAnmeldung] SET [Computername] = @Computername, [Benutzername] = "& _ "@Benutzername, [Mandant] = @Mandant, [Niederlassung] = @Niederlassung, [Login] ="& _ " @Login, [Logout] = @Logout, [Programmversion] = @Programmversion WHERE (([Compu"& _ "tername] = @Original_Computername) AND ([Benutzername] = @Original_Benutzername)"& _ " AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Origina"& _ "l_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Computername, Benutzername, Mandant, Niederlassung, Logi"& _ "n, Logout, Programmversion, upsize_ts FROM tblAnmeldung WHERE (Benutzername = @B"& _ "enutzername) AND (Computername = @Computername)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Login", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Login", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logout", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logout", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Programmversion", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Programmversion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Computername, Benutzername, Mandant, Niederlassung, Login, Logout, Program"& _ "mversion, upsize_ts FROM dbo.tblAnmeldung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblAnmeldungDataTable) 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 VERAGDataSet.tblAnmeldungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblAnmeldungDataTable = New VERAGDataSet.tblAnmeldungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblAnmeldungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblAnmeldung") 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_Computername As String, ByVal Original_Benutzername As String, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Computername") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Computername,String) End If If (Original_Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Benutzername") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Benutzername,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Computername As String, ByVal Benutzername As String, ByVal Mandant As String, ByVal Niederlassung As String, ByVal Login As Global.System.Nullable(Of Date), ByVal Logout As Global.System.Nullable(Of Date), ByVal Programmversion As String) As Integer If (Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Computername") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Benutzername,String) End If If (Mandant Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Niederlassung,String) End If If (Login.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Login.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Logout.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Logout.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Programmversion Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Programmversion,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 Computername As String, ByVal Benutzername As String, ByVal Mandant As String, ByVal Niederlassung As String, ByVal Login As Global.System.Nullable(Of Date), ByVal Logout As Global.System.Nullable(Of Date), ByVal Programmversion As String, ByVal Original_Computername As String, ByVal Original_Benutzername As String, ByVal Original_upsize_ts() As Byte) As Integer If (Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Computername") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Benutzername,String) End If If (Mandant Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Niederlassung,String) End If If (Login.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Login.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Logout.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Logout.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Programmversion Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Programmversion,String) End If If (Original_Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Computername") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Computername,String) End If If (Original_Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Benutzername") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Benutzername,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 Mandant As String, ByVal Niederlassung As String, ByVal Login As Global.System.Nullable(Of Date), ByVal Logout As Global.System.Nullable(Of Date), ByVal Programmversion As String, ByVal Original_Computername As String, ByVal Original_Benutzername As String, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Computername, Original_Benutzername, Mandant, Niederlassung, Login, Logout, Programmversion, Original_Computername, Original_Benutzername, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblAsfinagMautTableAdapter 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 = "tblAsfinagMaut" tableMapping.ColumnMappings.Add("cardnumber", "cardnumber") tableMapping.ColumnMappings.Add("licenceplate", "licenceplate") tableMapping.ColumnMappings.Add("turnoverdate", "turnoverdate") tableMapping.ColumnMappings.Add("contractPartner", "contractPartner") tableMapping.ColumnMappings.Add("netAmount", "netAmount") tableMapping.ColumnMappings.Add("VATamount", "VATamount") tableMapping.ColumnMappings.Add("totalAmount", "totalAmount") tableMapping.ColumnMappings.Add("additionalData", "additionalData") tableMapping.ColumnMappings.Add("receiptnumber", "receiptnumber") tableMapping.ColumnMappings.Add("receiptCreated", "receiptCreated") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblAsfinagMaut] ([cardnumber], [licenceplate], [turnoverdate],"& _ " [contractPartner], [netAmount], [VATamount], [totalAmount], [additionalData], ["& _ "receiptnumber], [receiptCreated]) VALUES (@cardnumber, @licenceplate, @turnoverd"& _ "ate, @contractPartner, @netAmount, @VATamount, @totalAmount, @additionalData, @r"& _ "eceiptnumber, @receiptCreated)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@cardnumber", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cardnumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@licenceplate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "licenceplate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@turnoverdate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "turnoverdate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@contractPartner", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "contractPartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@netAmount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "netAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATamount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VATamount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@totalAmount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "totalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@additionalData", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additionalData", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@receiptnumber", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "receiptnumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@receiptCreated", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "receiptCreated", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 cardnumber, licenceplate, turnoverdate, contractPartner, netAmount, VATamo"& _ "unt, totalAmount, additionalData, receiptnumber, receiptCreated FROM dbo.tblAsfi"& _ "nagMaut" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblAsfinagMautDataTable) 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 VERAGDataSet.tblAsfinagMautDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblAsfinagMautDataTable = New VERAGDataSet.tblAsfinagMautDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblAsfinagMautDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblAsfinagMaut") 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 Insert(ByVal cardnumber As String, ByVal licenceplate As String, ByVal turnoverdate As Date, ByVal contractPartner As String, ByVal netAmount As Decimal, ByVal VATamount As Decimal, ByVal totalAmount As Decimal, ByVal additionalData As String, ByVal receiptnumber As String, ByVal receiptCreated As Boolean) As Integer If (cardnumber Is Nothing) Then Throw New Global.System.ArgumentNullException("cardnumber") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(cardnumber,String) End If If (licenceplate Is Nothing) Then Throw New Global.System.ArgumentNullException("licenceplate") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(licenceplate,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(turnoverdate,Date) If (contractPartner Is Nothing) Then Throw New Global.System.ArgumentNullException("contractPartner") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(contractPartner,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(netAmount,Decimal) Me.Adapter.InsertCommand.Parameters(5).Value = CType(VATamount,Decimal) Me.Adapter.InsertCommand.Parameters(6).Value = CType(totalAmount,Decimal) If (additionalData Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(additionalData,String) End If If (receiptnumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(receiptnumber,String) End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(receiptCreated,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblATEZ_NCTSTableAdapter 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 = "tblATEZ_NCTS" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("AvisoId", "AvisoId") tableMapping.ColumnMappings.Add("SendungsId", "SendungsId") tableMapping.ColumnMappings.Add("VERAG_LRN", "VERAG_LRN") tableMapping.ColumnMappings.Add("LicensePlateContainerNo", "LicensePlateContainerNo") tableMapping.ColumnMappings.Add("DAKOSY_TemplateCode", "DAKOSY_TemplateCode") tableMapping.ColumnMappings.Add("DAKOSY_IOPartner", "DAKOSY_IOPartner") tableMapping.ColumnMappings.Add("DAKOSY_Division1", "DAKOSY_Division1") tableMapping.ColumnMappings.Add("DAKOSY_Division2", "DAKOSY_Division2") tableMapping.ColumnMappings.Add("DAKOSY_Division3", "DAKOSY_Division3") tableMapping.ColumnMappings.Add("DAKOSY_Procedure", "DAKOSY_Procedure") tableMapping.ColumnMappings.Add("DepartureCustomsOffice", "DepartureCustomsOffice") tableMapping.ColumnMappings.Add("DestinationCustomsOffice", "DestinationCustomsOffice") tableMapping.ColumnMappings.Add("DatDeterminationLimit", "DatDeterminationLimit") tableMapping.ColumnMappings.Add("CoolingTemperature", "CoolingTemperature") tableMapping.ColumnMappings.Add("Carrier_Name", "Carrier_Name") tableMapping.ColumnMappings.Add("Carrier_Adress_Country", "Carrier_Adress_Country") tableMapping.ColumnMappings.Add("Carrier_Adress_Postcode", "Carrier_Adress_Postcode") tableMapping.ColumnMappings.Add("Carrier_Adress_City", "Carrier_Adress_City") tableMapping.ColumnMappings.Add("Carrier_Adress_Street", "Carrier_Adress_Street") tableMapping.ColumnMappings.Add("Carrier_EORI", "Carrier_EORI") tableMapping.ColumnMappings.Add("Guarantee_GRN", "Guarantee_GRN") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("erstellung", "erstellung") tableMapping.ColumnMappings.Add("atezId", "atezId") tableMapping.ColumnMappings.Add("dakosy_ref", "dakosy_ref") tableMapping.ColumnMappings.Add("selectedDocuments", "selectedDocuments") tableMapping.ColumnMappings.Add("json", "json") tableMapping.ColumnMappings.Add("fehlerbeschreibung", "fehlerbeschreibung") tableMapping.ColumnMappings.Add("erstellerId", "erstellerId") tableMapping.ColumnMappings.Add("sessionId", "sessionId") 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].[tblATEZ_NCTS] WHERE (([Id] = @Original_Id) AND ((@IsNull_Aviso"& _ "Id = 1 AND [AvisoId] IS NULL) OR ([AvisoId] = @Original_AvisoId)) AND ((@IsNull_"& _ "SendungsId = 1 AND [SendungsId] IS NULL) OR ([SendungsId] = @Original_SendungsId"& _ ")) AND ((@IsNull_VERAG_LRN = 1 AND [VERAG_LRN] IS NULL) OR ([VERAG_LRN] = @Origi"& _ "nal_VERAG_LRN)) AND ((@IsNull_LicensePlateContainerNo = 1 AND [LicensePlateConta"& _ "inerNo] IS NULL) OR ([LicensePlateContainerNo] = @Original_LicensePlateContainer"& _ "No)) AND ((@IsNull_DAKOSY_TemplateCode = 1 AND [DAKOSY_TemplateCode] IS NULL) OR"& _ " ([DAKOSY_TemplateCode] = @Original_DAKOSY_TemplateCode)) AND ((@IsNull_DAKOSY_I"& _ "OPartner = 1 AND [DAKOSY_IOPartner] IS NULL) OR ([DAKOSY_IOPartner] = @Original_"& _ "DAKOSY_IOPartner)) AND ((@IsNull_DAKOSY_Division1 = 1 AND [DAKOSY_Division1] IS "& _ "NULL) OR ([DAKOSY_Division1] = @Original_DAKOSY_Division1)) AND ((@IsNull_DAKOSY"& _ "_Division2 = 1 AND [DAKOSY_Division2] IS NULL) OR ([DAKOSY_Division2] = @Origina"& _ "l_DAKOSY_Division2)) AND ((@IsNull_DAKOSY_Division3 = 1 AND [DAKOSY_Division3] I"& _ "S NULL) OR ([DAKOSY_Division3] = @Original_DAKOSY_Division3)) AND ((@IsNull_DAKO"& _ "SY_Procedure = 1 AND [DAKOSY_Procedure] IS NULL) OR ([DAKOSY_Procedure] = @Origi"& _ "nal_DAKOSY_Procedure)) AND ((@IsNull_DepartureCustomsOffice = 1 AND [DepartureCu"& _ "stomsOffice] IS NULL) OR ([DepartureCustomsOffice] = @Original_DepartureCustomsO"& _ "ffice)) AND ((@IsNull_DestinationCustomsOffice = 1 AND [DestinationCustomsOffice"& _ "] IS NULL) OR ([DestinationCustomsOffice] = @Original_DestinationCustomsOffice))"& _ " AND ((@IsNull_DatDeterminationLimit = 1 AND [DatDeterminationLimit] IS NULL) OR"& _ " ([DatDeterminationLimit] = @Original_DatDeterminationLimit)) AND ((@IsNull_Cool"& _ "ingTemperature = 1 AND [CoolingTemperature] IS NULL) OR ([CoolingTemperature] = "& _ "@Original_CoolingTemperature)) AND ((@IsNull_Carrier_Adress_Country = 1 AND [Car"& _ "rier_Adress_Country] IS NULL) OR ([Carrier_Adress_Country] = @Original_Carrier_A"& _ "dress_Country)) AND ((@IsNull_Carrier_Adress_Postcode = 1 AND [Carrier_Adress_Po"& _ "stcode] IS NULL) OR ([Carrier_Adress_Postcode] = @Original_Carrier_Adress_Postco"& _ "de)) AND ((@IsNull_Carrier_Adress_City = 1 AND [Carrier_Adress_City] IS NULL) OR"& _ " ([Carrier_Adress_City] = @Original_Carrier_Adress_City)) AND ((@IsNull_Carrier_"& _ "EORI = 1 AND [Carrier_EORI] IS NULL) OR ([Carrier_EORI] = @Original_Carrier_EORI"& _ ")) AND ((@IsNull_Guarantee_GRN = 1 AND [Guarantee_GRN] IS NULL) OR ([Guarantee_G"& _ "RN] = @Original_Guarantee_GRN)) AND ([erstellung] = @Original_erstellung) AND (("& _ "@IsNull_atezId = 1 AND [atezId] IS NULL) OR ([atezId] = @Original_atezId)) AND ("& _ "(@IsNull_dakosy_ref = 1 AND [dakosy_ref] IS NULL) OR ([dakosy_ref] = @Original_d"& _ "akosy_ref)) AND ((@IsNull_erstellerId = 1 AND [erstellerId] IS NULL) OR ([erstel"& _ "lerId] = @Original_erstellerId)) AND ((@IsNull_sessionId = 1 AND [sessionId] IS "& _ "NULL) OR ([sessionId] = @Original_sessionId)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SendungsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SendungsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VERAG_LRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_LRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERAG_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_LRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LicensePlateContainerNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LicensePlateContainerNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LicensePlateContainerNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LicensePlateContainerNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_TemplateCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_TemplateCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_TemplateCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_TemplateCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_IOPartner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_IOPartner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_IOPartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_IOPartner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_Division1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_Division1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_Division2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_Division2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_Division3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_Division3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_Procedure", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Procedure", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_Procedure", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Procedure", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DepartureCustomsOffice", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartureCustomsOffice", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepartureCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartureCustomsOffice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DestinationCustomsOffice", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestinationCustomsOffice", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DestinationCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestinationCustomsOffice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DatDeterminationLimit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DatDeterminationLimit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DatDeterminationLimit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DatDeterminationLimit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CoolingTemperature", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CoolingTemperature", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CoolingTemperature", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CoolingTemperature", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Carrier_Adress_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Carrier_Adress_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Carrier_Adress_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Carrier_Adress_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Carrier_Adress_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Carrier_Adress_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Carrier_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Carrier_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Guarantee_GRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Guarantee_GRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Guarantee_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Guarantee_GRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atezId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atezId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atezId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atezId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dakosy_ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dakosy_ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dakosy_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dakosy_ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_erstellerId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "erstellerId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_erstellerId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "erstellerId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sessionId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sessionId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sessionId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sessionId", 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].[tblATEZ_NCTS] ([AvisoId], [SendungsId], [VERAG_LRN], [LicenseP"& _ "lateContainerNo], [DAKOSY_TemplateCode], [DAKOSY_IOPartner], [DAKOSY_Division1],"& _ " [DAKOSY_Division2], [DAKOSY_Division3], [DAKOSY_Procedure], [DepartureCustomsOf"& _ "fice], [DestinationCustomsOffice], [DatDeterminationLimit], [CoolingTemperature]"& _ ", [Carrier_Name], [Carrier_Adress_Country], [Carrier_Adress_Postcode], [Carrier_"& _ "Adress_City], [Carrier_Adress_Street], [Carrier_EORI], [Guarantee_GRN], [Status]"& _ ", [erstellung], [atezId], [dakosy_ref], [selectedDocuments], [json], [fehlerbesc"& _ "hreibung], [erstellerId], [sessionId]) VALUES (@AvisoId, @SendungsId, @VERAG_LRN"& _ ", @LicensePlateContainerNo, @DAKOSY_TemplateCode, @DAKOSY_IOPartner, @DAKOSY_Div"& _ "ision1, @DAKOSY_Division2, @DAKOSY_Division3, @DAKOSY_Procedure, @DepartureCusto"& _ "msOffice, @DestinationCustomsOffice, @DatDeterminationLimit, @CoolingTemperature"& _ ", @Carrier_Name, @Carrier_Adress_Country, @Carrier_Adress_Postcode, @Carrier_Adr"& _ "ess_City, @Carrier_Adress_Street, @Carrier_EORI, @Guarantee_GRN, @Status, @erste"& _ "llung, @atezId, @dakosy_ref, @selectedDocuments, @json, @fehlerbeschreibung, @er"& _ "stellerId, @sessionId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, AvisoId, SendungsId, VERAG_LRN, LicensePlate"& _ "ContainerNo, DAKOSY_TemplateCode, DAKOSY_IOPartner, DAKOSY_Division1, DAKOSY_Div"& _ "ision2, DAKOSY_Division3, DAKOSY_Procedure, DepartureCustomsOffice, DestinationC"& _ "ustomsOffice, DatDeterminationLimit, CoolingTemperature, Carrier_Name, Carrier_A"& _ "dress_Country, Carrier_Adress_Postcode, Carrier_Adress_City, Carrier_Adress_Stre"& _ "et, Carrier_EORI, Guarantee_GRN, Status, erstellung, atezId, dakosy_ref, selecte"& _ "dDocuments, json, fehlerbeschreibung, erstellerId, sessionId FROM tblATEZ_NCTS W"& _ "HERE (Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SendungsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERAG_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_LRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LicensePlateContainerNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LicensePlateContainerNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_TemplateCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_TemplateCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_IOPartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_IOPartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_Division1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_Division2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_Division3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_Procedure", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Procedure", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepartureCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartureCustomsOffice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DestinationCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestinationCustomsOffice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DatDeterminationLimit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DatDeterminationLimit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CoolingTemperature", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CoolingTemperature", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_Adress_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_Adress_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_Adress_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_Adress_Street", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Street", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Guarantee_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Guarantee_GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.VarChar, 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("@erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atezId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atezId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dakosy_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dakosy_ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@selectedDocuments", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "selectedDocuments", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@json", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "json", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fehlerbeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fehlerbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@erstellerId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "erstellerId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sessionId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sessionId", 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].[tblATEZ_NCTS] SET [AvisoId] = @AvisoId, [SendungsId] = @SendungsId,"& _ " [VERAG_LRN] = @VERAG_LRN, [LicensePlateContainerNo] = @LicensePlateContainerNo,"& _ " [DAKOSY_TemplateCode] = @DAKOSY_TemplateCode, [DAKOSY_IOPartner] = @DAKOSY_IOPa"& _ "rtner, [DAKOSY_Division1] = @DAKOSY_Division1, [DAKOSY_Division2] = @DAKOSY_Divi"& _ "sion2, [DAKOSY_Division3] = @DAKOSY_Division3, [DAKOSY_Procedure] = @DAKOSY_Proc"& _ "edure, [DepartureCustomsOffice] = @DepartureCustomsOffice, [DestinationCustomsOf"& _ "fice] = @DestinationCustomsOffice, [DatDeterminationLimit] = @DatDeterminationLi"& _ "mit, [CoolingTemperature] = @CoolingTemperature, [Carrier_Name] = @Carrier_Name,"& _ " [Carrier_Adress_Country] = @Carrier_Adress_Country, [Carrier_Adress_Postcode] ="& _ " @Carrier_Adress_Postcode, [Carrier_Adress_City] = @Carrier_Adress_City, [Carrie"& _ "r_Adress_Street] = @Carrier_Adress_Street, [Carrier_EORI] = @Carrier_EORI, [Guar"& _ "antee_GRN] = @Guarantee_GRN, [Status] = @Status, [erstellung] = @erstellung, [at"& _ "ezId] = @atezId, [dakosy_ref] = @dakosy_ref, [selectedDocuments] = @selectedDocu"& _ "ments, [json] = @json, [fehlerbeschreibung] = @fehlerbeschreibung, [erstellerId]"& _ " = @erstellerId, [sessionId] = @sessionId WHERE (([Id] = @Original_Id) AND ((@Is"& _ "Null_AvisoId = 1 AND [AvisoId] IS NULL) OR ([AvisoId] = @Original_AvisoId)) AND "& _ "((@IsNull_SendungsId = 1 AND [SendungsId] IS NULL) OR ([SendungsId] = @Original_"& _ "SendungsId)) AND ((@IsNull_VERAG_LRN = 1 AND [VERAG_LRN] IS NULL) OR ([VERAG_LRN"& _ "] = @Original_VERAG_LRN)) AND ((@IsNull_LicensePlateContainerNo = 1 AND [License"& _ "PlateContainerNo] IS NULL) OR ([LicensePlateContainerNo] = @Original_LicensePlat"& _ "eContainerNo)) AND ((@IsNull_DAKOSY_TemplateCode = 1 AND [DAKOSY_TemplateCode] I"& _ "S NULL) OR ([DAKOSY_TemplateCode] = @Original_DAKOSY_TemplateCode)) AND ((@IsNul"& _ "l_DAKOSY_IOPartner = 1 AND [DAKOSY_IOPartner] IS NULL) OR ([DAKOSY_IOPartner] = "& _ "@Original_DAKOSY_IOPartner)) AND ((@IsNull_DAKOSY_Division1 = 1 AND [DAKOSY_Divi"& _ "sion1] IS NULL) OR ([DAKOSY_Division1] = @Original_DAKOSY_Division1)) AND ((@IsN"& _ "ull_DAKOSY_Division2 = 1 AND [DAKOSY_Division2] IS NULL) OR ([DAKOSY_Division2] "& _ "= @Original_DAKOSY_Division2)) AND ((@IsNull_DAKOSY_Division3 = 1 AND [DAKOSY_Di"& _ "vision3] IS NULL) OR ([DAKOSY_Division3] = @Original_DAKOSY_Division3)) AND ((@I"& _ "sNull_DAKOSY_Procedure = 1 AND [DAKOSY_Procedure] IS NULL) OR ([DAKOSY_Procedure"& _ "] = @Original_DAKOSY_Procedure)) AND ((@IsNull_DepartureCustomsOffice = 1 AND [D"& _ "epartureCustomsOffice] IS NULL) OR ([DepartureCustomsOffice] = @Original_Departu"& _ "reCustomsOffice)) AND ((@IsNull_DestinationCustomsOffice = 1 AND [DestinationCus"& _ "tomsOffice] IS NULL) OR ([DestinationCustomsOffice] = @Original_DestinationCusto"& _ "msOffice)) AND ((@IsNull_DatDeterminationLimit = 1 AND [DatDeterminationLimit] I"& _ "S NULL) OR ([DatDeterminationLimit] = @Original_DatDeterminationLimit)) AND ((@I"& _ "sNull_CoolingTemperature = 1 AND [CoolingTemperature] IS NULL) OR ([CoolingTempe"& _ "rature] = @Original_CoolingTemperature)) AND ((@IsNull_Carrier_Adress_Country = "& _ "1 AND [Carrier_Adress_Country] IS NULL) OR ([Carrier_Adress_Country] = @Original"& _ "_Carrier_Adress_Country)) AND ((@IsNull_Carrier_Adress_Postcode = 1 AND [Carrier"& _ "_Adress_Postcode] IS NULL) OR ([Carrier_Adress_Postcode] = @Original_Carrier_Adr"& _ "ess_Postcode)) AND ((@IsNull_Carrier_Adress_City = 1 AND [Carrier_Adress_City] I"& _ "S NULL) OR ([Carrier_Adress_City] = @Original_Carrier_Adress_City)) AND ((@IsNul"& _ "l_Carrier_EORI = 1 AND [Carrier_EORI] IS NULL) OR ([Carrier_EORI] = @Original_Ca"& _ "rrier_EORI)) AND ((@IsNull_Guarantee_GRN = 1 AND [Guarantee_GRN] IS NULL) OR ([G"& _ "uarantee_GRN] = @Original_Guarantee_GRN)) AND ([erstellung] = @Original_erstellu"& _ "ng) AND ((@IsNull_atezId = 1 AND [atezId] IS NULL) OR ([atezId] = @Original_atez"& _ "Id)) AND ((@IsNull_dakosy_ref = 1 AND [dakosy_ref] IS NULL) OR ([dakosy_ref] = @"& _ "Original_dakosy_ref)) AND ((@IsNull_erstellerId = 1 AND [erstellerId] IS NULL) O"& _ "R ([erstellerId] = @Original_erstellerId)) AND ((@IsNull_sessionId = 1 AND [sess"& _ "ionId] IS NULL) OR ([sessionId] = @Original_sessionId)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, AvisoId, S"& _ "endungsId, VERAG_LRN, LicensePlateContainerNo, DAKOSY_TemplateCode, DAKOSY_IOPar"& _ "tner, DAKOSY_Division1, DAKOSY_Division2, DAKOSY_Division3, DAKOSY_Procedure, De"& _ "partureCustomsOffice, DestinationCustomsOffice, DatDeterminationLimit, CoolingTe"& _ "mperature, Carrier_Name, Carrier_Adress_Country, Carrier_Adress_Postcode, Carrie"& _ "r_Adress_City, Carrier_Adress_Street, Carrier_EORI, Guarantee_GRN, Status, erste"& _ "llung, atezId, dakosy_ref, selectedDocuments, json, fehlerbeschreibung, erstelle"& _ "rId, sessionId FROM tblATEZ_NCTS WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SendungsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERAG_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_LRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LicensePlateContainerNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LicensePlateContainerNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_TemplateCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_TemplateCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_IOPartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_IOPartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_Division1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_Division2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_Division3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DAKOSY_Procedure", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Procedure", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepartureCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartureCustomsOffice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DestinationCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestinationCustomsOffice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DatDeterminationLimit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DatDeterminationLimit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CoolingTemperature", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CoolingTemperature", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_Adress_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_Adress_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_Adress_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_Adress_Street", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Street", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Carrier_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Guarantee_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Guarantee_GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.VarChar, 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("@erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atezId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atezId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dakosy_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dakosy_ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@selectedDocuments", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "selectedDocuments", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@json", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "json", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fehlerbeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fehlerbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@erstellerId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "erstellerId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sessionId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sessionId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SendungsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SendungsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VERAG_LRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_LRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERAG_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_LRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LicensePlateContainerNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LicensePlateContainerNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LicensePlateContainerNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LicensePlateContainerNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_TemplateCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_TemplateCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_TemplateCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_TemplateCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_IOPartner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_IOPartner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_IOPartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_IOPartner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_Division1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_Division1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_Division2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_Division2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_Division3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_Division3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Division3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DAKOSY_Procedure", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Procedure", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DAKOSY_Procedure", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DAKOSY_Procedure", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DepartureCustomsOffice", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartureCustomsOffice", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepartureCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartureCustomsOffice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DestinationCustomsOffice", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestinationCustomsOffice", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DestinationCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestinationCustomsOffice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DatDeterminationLimit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DatDeterminationLimit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DatDeterminationLimit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DatDeterminationLimit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CoolingTemperature", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CoolingTemperature", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CoolingTemperature", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CoolingTemperature", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Carrier_Adress_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Carrier_Adress_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Carrier_Adress_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Carrier_Adress_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Carrier_Adress_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Carrier_Adress_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_Adress_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Carrier_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Carrier_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Carrier_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Guarantee_GRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Guarantee_GRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Guarantee_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Guarantee_GRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atezId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atezId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atezId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atezId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dakosy_ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dakosy_ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dakosy_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dakosy_ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_erstellerId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "erstellerId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_erstellerId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "erstellerId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sessionId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sessionId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sessionId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sessionId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, AvisoId, SendungsId, VERAG_LRN, LicensePlateContainerNo, DAKOSY_Templa"& _ "teCode, DAKOSY_IOPartner, DAKOSY_Division1, DAKOSY_Division2, DAKOSY_Division3, "& _ "DAKOSY_Procedure, DepartureCustomsOffice, DestinationCustomsOffice, DatDetermina"& _ "tionLimit, CoolingTemperature, Carrier_Name, Carrier_Adress_Country, Carrier_Adr"& _ "ess_Postcode, Carrier_Adress_City, Carrier_Adress_Street, Carrier_EORI, Guarante"& _ "e_GRN, Status, erstellung, atezId, dakosy_ref, selectedDocuments, json, fehlerbe"& _ "schreibung, erstellerId, sessionId FROM dbo.tblATEZ_NCTS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblATEZ_NCTSDataTable) 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 VERAGDataSet.tblATEZ_NCTSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblATEZ_NCTSDataTable = New VERAGDataSet.tblATEZ_NCTSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblATEZ_NCTSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblATEZ_NCTS") 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_Id As Integer, _ ByVal Original_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_VERAG_LRN As String, _ ByVal Original_LicensePlateContainerNo As String, _ ByVal Original_DAKOSY_TemplateCode As String, _ ByVal Original_DAKOSY_IOPartner As String, _ ByVal Original_DAKOSY_Division1 As String, _ ByVal Original_DAKOSY_Division2 As String, _ ByVal Original_DAKOSY_Division3 As String, _ ByVal Original_DAKOSY_Procedure As String, _ ByVal Original_DepartureCustomsOffice As String, _ ByVal Original_DestinationCustomsOffice As String, _ ByVal Original_DatDeterminationLimit As String, _ ByVal Original_CoolingTemperature As String, _ ByVal Original_Carrier_Adress_Country As String, _ ByVal Original_Carrier_Adress_Postcode As String, _ ByVal Original_Carrier_Adress_City As String, _ ByVal Original_Carrier_EORI As String, _ ByVal Original_Guarantee_GRN As String, _ ByVal Original_erstellung As Date, _ ByVal Original_atezId As String, _ ByVal Original_dakosy_ref As String, _ ByVal Original_erstellerId As Global.System.Nullable(Of Integer), _ ByVal Original_sessionId As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) If (Original_AvisoId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_AvisoId.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_SendungsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SendungsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_VERAG_LRN 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_VERAG_LRN,String) End If If (Original_LicensePlateContainerNo 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_LicensePlateContainerNo,String) End If If (Original_DAKOSY_TemplateCode 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_DAKOSY_TemplateCode,String) End If If (Original_DAKOSY_IOPartner 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_DAKOSY_IOPartner,String) End If If (Original_DAKOSY_Division1 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_DAKOSY_Division1,String) End If If (Original_DAKOSY_Division2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_DAKOSY_Division2,String) End If If (Original_DAKOSY_Division3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_DAKOSY_Division3,String) End If If (Original_DAKOSY_Procedure Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_DAKOSY_Procedure,String) End If If (Original_DepartureCustomsOffice Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_DepartureCustomsOffice,String) End If If (Original_DestinationCustomsOffice Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_DestinationCustomsOffice,String) End If If (Original_DatDeterminationLimit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_DatDeterminationLimit,String) End If If (Original_CoolingTemperature Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_CoolingTemperature,String) End If If (Original_Carrier_Adress_Country Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_Carrier_Adress_Country,String) End If If (Original_Carrier_Adress_Postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_Carrier_Adress_Postcode,String) End If If (Original_Carrier_Adress_City Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_Carrier_Adress_City,String) End If If (Original_Carrier_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_Carrier_EORI,String) End If If (Original_Guarantee_GRN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_Guarantee_GRN,String) End If Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_erstellung,Date) If (Original_atezId Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_atezId,String) End If If (Original_dakosy_ref Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_dakosy_ref,String) End If If (Original_erstellerId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_erstellerId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Original_sessionId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_sessionId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).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 AvisoId As Global.System.Nullable(Of Integer), _ ByVal SendungsId As Global.System.Nullable(Of Integer), _ ByVal VERAG_LRN As String, _ ByVal LicensePlateContainerNo As String, _ ByVal DAKOSY_TemplateCode As String, _ ByVal DAKOSY_IOPartner As String, _ ByVal DAKOSY_Division1 As String, _ ByVal DAKOSY_Division2 As String, _ ByVal DAKOSY_Division3 As String, _ ByVal DAKOSY_Procedure As String, _ ByVal DepartureCustomsOffice As String, _ ByVal DestinationCustomsOffice As String, _ ByVal DatDeterminationLimit As String, _ ByVal CoolingTemperature As String, _ ByVal Carrier_Name As String, _ ByVal Carrier_Adress_Country As String, _ ByVal Carrier_Adress_Postcode As String, _ ByVal Carrier_Adress_City As String, _ ByVal Carrier_Adress_Street As String, _ ByVal Carrier_EORI As String, _ ByVal Guarantee_GRN As String, _ ByVal Status As String, _ ByVal erstellung As Date, _ ByVal atezId As String, _ ByVal dakosy_ref As String, _ ByVal selectedDocuments As String, _ ByVal json As String, _ ByVal fehlerbeschreibung As String, _ ByVal erstellerId As Global.System.Nullable(Of Integer), _ ByVal sessionId As Global.System.Nullable(Of Integer)) As Integer If (AvisoId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(AvisoId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (SendungsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(SendungsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (VERAG_LRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(VERAG_LRN,String) End If If (LicensePlateContainerNo Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(LicensePlateContainerNo,String) End If If (DAKOSY_TemplateCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(DAKOSY_TemplateCode,String) End If If (DAKOSY_IOPartner Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(DAKOSY_IOPartner,String) End If If (DAKOSY_Division1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(DAKOSY_Division1,String) End If If (DAKOSY_Division2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(DAKOSY_Division2,String) End If If (DAKOSY_Division3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(DAKOSY_Division3,String) End If If (DAKOSY_Procedure Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(DAKOSY_Procedure,String) End If If (DepartureCustomsOffice Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(DepartureCustomsOffice,String) End If If (DestinationCustomsOffice Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(DestinationCustomsOffice,String) End If If (DatDeterminationLimit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(DatDeterminationLimit,String) End If If (CoolingTemperature Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(CoolingTemperature,String) End If If (Carrier_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Carrier_Name,String) End If If (Carrier_Adress_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Carrier_Adress_Country,String) End If If (Carrier_Adress_Postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Carrier_Adress_Postcode,String) End If If (Carrier_Adress_City Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Carrier_Adress_City,String) End If If (Carrier_Adress_Street Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Carrier_Adress_Street,String) End If If (Carrier_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Carrier_EORI,String) End If If (Guarantee_GRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(Guarantee_GRN,String) End If If (Status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(Status,String) End If Me.Adapter.InsertCommand.Parameters(22).Value = CType(erstellung,Date) If (atezId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(atezId,String) End If If (dakosy_ref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(dakosy_ref,String) End If If (selectedDocuments Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(selectedDocuments,String) End If If (json Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(json,String) End If If (fehlerbeschreibung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(fehlerbeschreibung,String) End If If (erstellerId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(erstellerId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (sessionId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(29).Value = CType(sessionId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(29).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 AvisoId As Global.System.Nullable(Of Integer), _ ByVal SendungsId As Global.System.Nullable(Of Integer), _ ByVal VERAG_LRN As String, _ ByVal LicensePlateContainerNo As String, _ ByVal DAKOSY_TemplateCode As String, _ ByVal DAKOSY_IOPartner As String, _ ByVal DAKOSY_Division1 As String, _ ByVal DAKOSY_Division2 As String, _ ByVal DAKOSY_Division3 As String, _ ByVal DAKOSY_Procedure As String, _ ByVal DepartureCustomsOffice As String, _ ByVal DestinationCustomsOffice As String, _ ByVal DatDeterminationLimit As String, _ ByVal CoolingTemperature As String, _ ByVal Carrier_Name As String, _ ByVal Carrier_Adress_Country As String, _ ByVal Carrier_Adress_Postcode As String, _ ByVal Carrier_Adress_City As String, _ ByVal Carrier_Adress_Street As String, _ ByVal Carrier_EORI As String, _ ByVal Guarantee_GRN As String, _ ByVal Status As String, _ ByVal erstellung As Date, _ ByVal atezId As String, _ ByVal dakosy_ref As String, _ ByVal selectedDocuments As String, _ ByVal json As String, _ ByVal fehlerbeschreibung As String, _ ByVal erstellerId As Global.System.Nullable(Of Integer), _ ByVal sessionId As Global.System.Nullable(Of Integer), _ ByVal Original_Id As Integer, _ ByVal Original_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_VERAG_LRN As String, _ ByVal Original_LicensePlateContainerNo As String, _ ByVal Original_DAKOSY_TemplateCode As String, _ ByVal Original_DAKOSY_IOPartner As String, _ ByVal Original_DAKOSY_Division1 As String, _ ByVal Original_DAKOSY_Division2 As String, _ ByVal Original_DAKOSY_Division3 As String, _ ByVal Original_DAKOSY_Procedure As String, _ ByVal Original_DepartureCustomsOffice As String, _ ByVal Original_DestinationCustomsOffice As String, _ ByVal Original_DatDeterminationLimit As String, _ ByVal Original_CoolingTemperature As String, _ ByVal Original_Carrier_Adress_Country As String, _ ByVal Original_Carrier_Adress_Postcode As String, _ ByVal Original_Carrier_Adress_City As String, _ ByVal Original_Carrier_EORI As String, _ ByVal Original_Guarantee_GRN As String, _ ByVal Original_erstellung As Date, _ ByVal Original_atezId As String, _ ByVal Original_dakosy_ref As String, _ ByVal Original_erstellerId As Global.System.Nullable(Of Integer), _ ByVal Original_sessionId As Global.System.Nullable(Of Integer), _ ByVal Id As Integer) As Integer If (AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (SendungsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SendungsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (VERAG_LRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VERAG_LRN,String) End If If (LicensePlateContainerNo Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LicensePlateContainerNo,String) End If If (DAKOSY_TemplateCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DAKOSY_TemplateCode,String) End If If (DAKOSY_IOPartner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(DAKOSY_IOPartner,String) End If If (DAKOSY_Division1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DAKOSY_Division1,String) End If If (DAKOSY_Division2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DAKOSY_Division2,String) End If If (DAKOSY_Division3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(DAKOSY_Division3,String) End If If (DAKOSY_Procedure Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(DAKOSY_Procedure,String) End If If (DepartureCustomsOffice Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(DepartureCustomsOffice,String) End If If (DestinationCustomsOffice Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(DestinationCustomsOffice,String) End If If (DatDeterminationLimit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DatDeterminationLimit,String) End If If (CoolingTemperature Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CoolingTemperature,String) End If If (Carrier_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Carrier_Name,String) End If If (Carrier_Adress_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Carrier_Adress_Country,String) End If If (Carrier_Adress_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Carrier_Adress_Postcode,String) End If If (Carrier_Adress_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Carrier_Adress_City,String) End If If (Carrier_Adress_Street Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Carrier_Adress_Street,String) End If If (Carrier_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Carrier_EORI,String) End If If (Guarantee_GRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Guarantee_GRN,String) End If If (Status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Status,String) End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(erstellung,Date) If (atezId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(atezId,String) End If If (dakosy_ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(dakosy_ref,String) End If If (selectedDocuments Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(selectedDocuments,String) End If If (json Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(json,String) End If If (fehlerbeschreibung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(fehlerbeschreibung,String) End If If (erstellerId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(erstellerId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (sessionId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(sessionId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Id,Integer) If (Original_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_SendungsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_SendungsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_VERAG_LRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_VERAG_LRN,String) End If If (Original_LicensePlateContainerNo 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_LicensePlateContainerNo,String) End If If (Original_DAKOSY_TemplateCode 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_DAKOSY_TemplateCode,String) End If If (Original_DAKOSY_IOPartner 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_DAKOSY_IOPartner,String) End If If (Original_DAKOSY_Division1 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_DAKOSY_Division1,String) End If If (Original_DAKOSY_Division2 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_DAKOSY_Division2,String) End If If (Original_DAKOSY_Division3 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_DAKOSY_Division3,String) End If If (Original_DAKOSY_Procedure Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_DAKOSY_Procedure,String) End If If (Original_DepartureCustomsOffice Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_DepartureCustomsOffice,String) End If If (Original_DestinationCustomsOffice Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_DestinationCustomsOffice,String) End If If (Original_DatDeterminationLimit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_DatDeterminationLimit,String) End If If (Original_CoolingTemperature Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_CoolingTemperature,String) End If If (Original_Carrier_Adress_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_Carrier_Adress_Country,String) End If If (Original_Carrier_Adress_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_Carrier_Adress_Postcode,String) End If If (Original_Carrier_Adress_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_Carrier_Adress_City,String) End If If (Original_Carrier_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_Carrier_EORI,String) End If If (Original_Guarantee_GRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_Guarantee_GRN,String) End If Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_erstellung,Date) If (Original_atezId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_atezId,String) End If If (Original_dakosy_ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_dakosy_ref,String) End If If (Original_erstellerId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_erstellerId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value End If If (Original_sessionId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_sessionId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Id,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 AvisoId As Global.System.Nullable(Of Integer), _ ByVal SendungsId As Global.System.Nullable(Of Integer), _ ByVal VERAG_LRN As String, _ ByVal LicensePlateContainerNo As String, _ ByVal DAKOSY_TemplateCode As String, _ ByVal DAKOSY_IOPartner As String, _ ByVal DAKOSY_Division1 As String, _ ByVal DAKOSY_Division2 As String, _ ByVal DAKOSY_Division3 As String, _ ByVal DAKOSY_Procedure As String, _ ByVal DepartureCustomsOffice As String, _ ByVal DestinationCustomsOffice As String, _ ByVal DatDeterminationLimit As String, _ ByVal CoolingTemperature As String, _ ByVal Carrier_Name As String, _ ByVal Carrier_Adress_Country As String, _ ByVal Carrier_Adress_Postcode As String, _ ByVal Carrier_Adress_City As String, _ ByVal Carrier_Adress_Street As String, _ ByVal Carrier_EORI As String, _ ByVal Guarantee_GRN As String, _ ByVal Status As String, _ ByVal erstellung As Date, _ ByVal atezId As String, _ ByVal dakosy_ref As String, _ ByVal selectedDocuments As String, _ ByVal json As String, _ ByVal fehlerbeschreibung As String, _ ByVal erstellerId As Global.System.Nullable(Of Integer), _ ByVal sessionId As Global.System.Nullable(Of Integer), _ ByVal Original_Id As Integer, _ ByVal Original_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_VERAG_LRN As String, _ ByVal Original_LicensePlateContainerNo As String, _ ByVal Original_DAKOSY_TemplateCode As String, _ ByVal Original_DAKOSY_IOPartner As String, _ ByVal Original_DAKOSY_Division1 As String, _ ByVal Original_DAKOSY_Division2 As String, _ ByVal Original_DAKOSY_Division3 As String, _ ByVal Original_DAKOSY_Procedure As String, _ ByVal Original_DepartureCustomsOffice As String, _ ByVal Original_DestinationCustomsOffice As String, _ ByVal Original_DatDeterminationLimit As String, _ ByVal Original_CoolingTemperature As String, _ ByVal Original_Carrier_Adress_Country As String, _ ByVal Original_Carrier_Adress_Postcode As String, _ ByVal Original_Carrier_Adress_City As String, _ ByVal Original_Carrier_EORI As String, _ ByVal Original_Guarantee_GRN As String, _ ByVal Original_erstellung As Date, _ ByVal Original_atezId As String, _ ByVal Original_dakosy_ref As String, _ ByVal Original_erstellerId As Global.System.Nullable(Of Integer), _ ByVal Original_sessionId As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(AvisoId, SendungsId, VERAG_LRN, LicensePlateContainerNo, DAKOSY_TemplateCode, DAKOSY_IOPartner, DAKOSY_Division1, DAKOSY_Division2, DAKOSY_Division3, DAKOSY_Procedure, DepartureCustomsOffice, DestinationCustomsOffice, DatDeterminationLimit, CoolingTemperature, Carrier_Name, Carrier_Adress_Country, Carrier_Adress_Postcode, Carrier_Adress_City, Carrier_Adress_Street, Carrier_EORI, Guarantee_GRN, Status, erstellung, atezId, dakosy_ref, selectedDocuments, json, fehlerbeschreibung, erstellerId, sessionId, Original_Id, Original_AvisoId, Original_SendungsId, Original_VERAG_LRN, Original_LicensePlateContainerNo, Original_DAKOSY_TemplateCode, Original_DAKOSY_IOPartner, Original_DAKOSY_Division1, Original_DAKOSY_Division2, Original_DAKOSY_Division3, Original_DAKOSY_Procedure, Original_DepartureCustomsOffice, Original_DestinationCustomsOffice, Original_DatDeterminationLimit, Original_CoolingTemperature, Original_Carrier_Adress_Country, Original_Carrier_Adress_Postcode, Original_Carrier_Adress_City, Original_Carrier_EORI, Original_Guarantee_GRN, Original_erstellung, Original_atezId, Original_dakosy_ref, Original_erstellerId, Original_sessionId, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblATEZ_NCTS_RoutenTableAdapter 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 = "tblATEZ_NCTS_Routen" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("AtezNCTS_Id", "AtezNCTS_Id") tableMapping.ColumnMappings.Add("Route_Country", "Route_Country") 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].[tblATEZ_NCTS_Routen] WHERE (([Id] = @Original_Id) AND ((@IsNul"& _ "l_AtezNCTS_Id = 1 AND [AtezNCTS_Id] IS NULL) OR ([AtezNCTS_Id] = @Original_AtezN"& _ "CTS_Id)) AND ((@IsNull_Route_Country = 1 AND [Route_Country] IS NULL) OR ([Route"& _ "_Country] = @Original_Route_Country)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Route_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Route_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Route_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Route_Country", 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].[tblATEZ_NCTS_Routen] ([AtezNCTS_Id], [Route_Country]) VALUES ("& _ "@AtezNCTS_Id, @Route_Country);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, AtezNCTS_Id, Route_Country FROM tblAT"& _ "EZ_NCTS_Routen WHERE (Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Route_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Route_Country", 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].[tblATEZ_NCTS_Routen] SET [AtezNCTS_Id] = @AtezNCTS_Id, [Route_Count"& _ "ry] = @Route_Country WHERE (([Id] = @Original_Id) AND ((@IsNull_AtezNCTS_Id = 1 "& _ "AND [AtezNCTS_Id] IS NULL) OR ([AtezNCTS_Id] = @Original_AtezNCTS_Id)) AND ((@Is"& _ "Null_Route_Country = 1 AND [Route_Country] IS NULL) OR ([Route_Country] = @Origi"& _ "nal_Route_Country)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, AtezNCTS_Id, Route_Country FROM tblATEZ_NCTS_R"& _ "outen WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Route_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Route_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Route_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Route_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Route_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Route_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, AtezNCTS_Id, Route_Country FROM dbo.tblATEZ_NCTS_Routen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblATEZ_NCTS_RoutenDataTable) 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 VERAGDataSet.tblATEZ_NCTS_RoutenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblATEZ_NCTS_RoutenDataTable = New VERAGDataSet.tblATEZ_NCTS_RoutenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblATEZ_NCTS_RoutenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblATEZ_NCTS_Routen") 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_Id As Integer, ByVal Original_AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal Original_Route_Country As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) If (Original_AtezNCTS_Id.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_AtezNCTS_Id.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_Route_Country 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_Route_Country,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 AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal Route_Country As String) As Integer If (AtezNCTS_Id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(AtezNCTS_Id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Route_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Route_Country,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 AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal Route_Country As String, ByVal Original_Id As Integer, ByVal Original_AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal Original_Route_Country As String, ByVal Id As Integer) As Integer If (AtezNCTS_Id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AtezNCTS_Id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Route_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Route_Country,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Id,Integer) If (Original_AtezNCTS_Id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_AtezNCTS_Id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_Route_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Route_Country,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Id,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 AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal Route_Country As String, ByVal Original_Id As Integer, ByVal Original_AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal Original_Route_Country As String) As Integer Return Me.Update(AtezNCTS_Id, Route_Country, Original_Id, Original_AtezNCTS_Id, Original_Route_Country, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblATEZ_NCTS_SessionsTableAdapter 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 = "tblATEZ_NCTS_Sessions" tableMapping.ColumnMappings.Add("session_Id", "session_Id") tableMapping.ColumnMappings.Add("token", "token") tableMapping.ColumnMappings.Add("datetime", "datetime") tableMapping.ColumnMappings.Add("refresh_token", "refresh_token") tableMapping.ColumnMappings.Add("token_validuntil", "token_validuntil") 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].[tblATEZ_NCTS_Sessions] WHERE (([session_Id] = @Original_sessio"& _ "n_Id) AND ([datetime] = @Original_datetime) AND ((@IsNull_token_validuntil = 1 A"& _ "ND [token_validuntil] IS NULL) OR ([token_validuntil] = @Original_token_validunt"& _ "il)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_session_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "session_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_token_validuntil", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_token_validuntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", 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].[tblATEZ_NCTS_Sessions] ([token], [datetime], [refresh_token], "& _ "[token_validuntil]) VALUES (@token, @datetime, @refresh_token, @token_validuntil"& _ ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT session_Id, token, datetime, refresh_token, token_validuntil FROM tbl"& _ "ATEZ_NCTS_Sessions WHERE (session_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@token", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refresh_token", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refresh_token", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@token_validuntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", 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].[tblATEZ_NCTS_Sessions] SET [token] = @token, [datetime] = @datetime"& _ ", [refresh_token] = @refresh_token, [token_validuntil] = @token_validuntil WHERE"& _ " (([session_Id] = @Original_session_Id) AND ([datetime] = @Original_datetime) AN"& _ "D ((@IsNull_token_validuntil = 1 AND [token_validuntil] IS NULL) OR ([token_vali"& _ "duntil] = @Original_token_validuntil)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT session_Id, token, datetime, re"& _ "fresh_token, token_validuntil FROM tblATEZ_NCTS_Sessions WHERE (session_Id = @se"& _ "ssion_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@token", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refresh_token", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refresh_token", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@token_validuntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_session_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "session_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_token_validuntil", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_token_validuntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@session_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "session_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 session_Id, token, datetime, refresh_token, token_validuntil FROM dbo.tblA"& _ "TEZ_NCTS_Sessions" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblATEZ_NCTS_SessionsDataTable) 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 VERAGDataSet.tblATEZ_NCTS_SessionsDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblATEZ_NCTS_SessionsDataTable = New VERAGDataSet.tblATEZ_NCTS_SessionsDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblATEZ_NCTS_SessionsDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblATEZ_NCTS_Sessions") 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_session_Id As Integer, ByVal Original_datetime As Date, ByVal Original_token_validuntil As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_session_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_datetime,Date) If (Original_token_validuntil.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_token_validuntil.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).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 token As String, ByVal datetime As Date, ByVal refresh_token As String, ByVal token_validuntil As Global.System.Nullable(Of Date)) As Integer If (token Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(token,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(datetime,Date) If (refresh_token Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(refresh_token,String) End If If (token_validuntil.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(token_validuntil.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 token As String, ByVal datetime As Date, ByVal refresh_token As String, ByVal token_validuntil As Global.System.Nullable(Of Date), ByVal Original_session_Id As Integer, ByVal Original_datetime As Date, ByVal Original_token_validuntil As Global.System.Nullable(Of Date), ByVal session_Id As Integer) As Integer If (token Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(token,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(datetime,Date) If (refresh_token Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(refresh_token,String) End If If (token_validuntil.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(token_validuntil.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_session_Id,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_datetime,Date) If (Original_token_validuntil.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_token_validuntil.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(session_Id,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 token As String, ByVal datetime As Date, ByVal refresh_token As String, ByVal token_validuntil As Global.System.Nullable(Of Date), ByVal Original_session_Id As Integer, ByVal Original_datetime As Date, ByVal Original_token_validuntil As Global.System.Nullable(Of Date)) As Integer Return Me.Update(token, datetime, refresh_token, token_validuntil, Original_session_Id, Original_datetime, Original_token_validuntil, Original_session_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblATEZ_NCTS_TransitCustomsOfficeTableAdapter 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 = "tblATEZ_NCTS_TransitCustomsOffice" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("AtezNCTS_Id", "AtezNCTS_Id") tableMapping.ColumnMappings.Add("TransitCustomsOffice", "TransitCustomsOffice") 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].[tblATEZ_NCTS_TransitCustomsOffice] WHERE (([Id] = @Original_Id"& _ ") AND ((@IsNull_AtezNCTS_Id = 1 AND [AtezNCTS_Id] IS NULL) OR ([AtezNCTS_Id] = @"& _ "Original_AtezNCTS_Id)) AND ((@IsNull_TransitCustomsOffice = 1 AND [TransitCustom"& _ "sOffice] IS NULL) OR ([TransitCustomsOffice] = @Original_TransitCustomsOffice)))"& _ "" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransitCustomsOffice", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransitCustomsOffice", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransitCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransitCustomsOffice", 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].[tblATEZ_NCTS_TransitCustomsOffice] ([AtezNCTS_Id], [TransitCus"& _ "tomsOffice]) VALUES (@AtezNCTS_Id, @TransitCustomsOffice);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, AtezNCTS_"& _ "Id, TransitCustomsOffice FROM tblATEZ_NCTS_TransitCustomsOffice WHERE (Id = SCOP"& _ "E_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransitCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransitCustomsOffice", 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].[tblATEZ_NCTS_TransitCustomsOffice] SET [AtezNCTS_Id] = @AtezNCTS_Id"& _ ", [TransitCustomsOffice] = @TransitCustomsOffice WHERE (([Id] = @Original_Id) AN"& _ "D ((@IsNull_AtezNCTS_Id = 1 AND [AtezNCTS_Id] IS NULL) OR ([AtezNCTS_Id] = @Orig"& _ "inal_AtezNCTS_Id)) AND ((@IsNull_TransitCustomsOffice = 1 AND [TransitCustomsOff"& _ "ice] IS NULL) OR ([TransitCustomsOffice] = @Original_TransitCustomsOffice)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT Id, AtezNCTS_Id, TransitCustomsOffice FROM tblATEZ_NCTS_TransitCustomsOffi"& _ "ce WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransitCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransitCustomsOffice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AtezNCTS_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtezNCTS_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransitCustomsOffice", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransitCustomsOffice", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransitCustomsOffice", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransitCustomsOffice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, AtezNCTS_Id, TransitCustomsOffice FROM dbo.tblATEZ_NCTS_TransitCustoms"& _ "Office" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblATEZ_NCTS_TransitCustomsOfficeDataTable) 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 VERAGDataSet.tblATEZ_NCTS_TransitCustomsOfficeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblATEZ_NCTS_TransitCustomsOfficeDataTable = New VERAGDataSet.tblATEZ_NCTS_TransitCustomsOfficeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblATEZ_NCTS_TransitCustomsOfficeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblATEZ_NCTS_TransitCustomsOffice") 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_Id As Integer, ByVal Original_AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal Original_TransitCustomsOffice As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) If (Original_AtezNCTS_Id.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_AtezNCTS_Id.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_TransitCustomsOffice 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_TransitCustomsOffice,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 AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal TransitCustomsOffice As String) As Integer If (AtezNCTS_Id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(AtezNCTS_Id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (TransitCustomsOffice Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(TransitCustomsOffice,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 AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal TransitCustomsOffice As String, ByVal Original_Id As Integer, ByVal Original_AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal Original_TransitCustomsOffice As String, ByVal Id As Integer) As Integer If (AtezNCTS_Id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AtezNCTS_Id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (TransitCustomsOffice Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TransitCustomsOffice,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Id,Integer) If (Original_AtezNCTS_Id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_AtezNCTS_Id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_TransitCustomsOffice Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_TransitCustomsOffice,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Id,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 AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal TransitCustomsOffice As String, ByVal Original_Id As Integer, ByVal Original_AtezNCTS_Id As Global.System.Nullable(Of Integer), ByVal Original_TransitCustomsOffice As String) As Integer Return Me.Update(AtezNCTS_Id, TransitCustomsOffice, Original_Id, Original_AtezNCTS_Id, Original_TransitCustomsOffice, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblBankspesenTableAdapter 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 = "tblBankspesen" tableMapping.ColumnMappings.Add("KundenNrVon", "KundenNrVon") tableMapping.ColumnMappings.Add("KundenNrBis", "KundenNrBis") tableMapping.ColumnMappings.Add("Bankspesen %", "Bankspesen %") tableMapping.ColumnMappings.Add("Bankspesen Mindestbetrag", "Bankspesen Mindestbetrag") 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].[tblBankspesen] WHERE (([KundenNrVon] = @Original_KundenNrVon) "& _ "AND ([KundenNrBis] = @Original_KundenNrBis) AND ([Bankspesen %] = @p2) AND ([Ban"& _ "kspesen Mindestbetrag] = @Original_Bankspesen_Mindestbetrag))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNrVon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrVon", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNrBis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrBis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p2", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen %", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bankspesen_Mindestbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen Mindestbetrag", 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].[tblBankspesen] ([KundenNrVon], [KundenNrBis], [Bankspesen %], "& _ "[Bankspesen Mindestbetrag]) VALUES (@KundenNrVon, @KundenNrBis, @p1, @Bankspesen"& _ "_Mindestbetrag);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KundenNrVon, KundenNrBis, [Bankspesen %], [Bankspesen M"& _ "indestbetrag] FROM tblBankspesen WHERE (KundenNrBis = @KundenNrBis) AND (KundenN"& _ "rVon = @KundenNrVon)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrVon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrVon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrBis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrBis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bankspesen_Mindestbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen Mindestbetrag", 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].[tblBankspesen] SET [KundenNrVon] = @KundenNrVon, [KundenNrBis] = @K"& _ "undenNrBis, [Bankspesen %] = @p1, [Bankspesen Mindestbetrag] = @Bankspesen_Minde"& _ "stbetrag WHERE (([KundenNrVon] = @Original_KundenNrVon) AND ([KundenNrBis] = @Or"& _ "iginal_KundenNrBis) AND ([Bankspesen %] = @p2) AND ([Bankspesen Mindestbetrag] ="& _ " @Original_Bankspesen_Mindestbetrag));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KundenNrVon, KundenNrBis, [Banksp"& _ "esen %], [Bankspesen Mindestbetrag] FROM tblBankspesen WHERE (KundenNrBis = @Kun"& _ "denNrBis) AND (KundenNrVon = @KundenNrVon)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrVon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrVon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrBis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrBis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bankspesen_Mindestbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen Mindestbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNrVon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrVon", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNrBis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrBis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p2", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen %", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bankspesen_Mindestbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bankspesen Mindestbetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KundenNrVon, KundenNrBis, [Bankspesen %], [Bankspesen Mindestbetrag] FROM "& _ "dbo.tblBankspesen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblBankspesenDataTable) 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 VERAGDataSet.tblBankspesenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblBankspesenDataTable = New VERAGDataSet.tblBankspesenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblBankspesenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblBankspesen") 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_KundenNrVon As Integer, ByVal Original_KundenNrBis As Integer, ByVal p2 As Single, ByVal Original_Bankspesen_Mindestbetrag As Decimal) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KundenNrVon,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_KundenNrBis,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(p2,Single) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Bankspesen_Mindestbetrag,Decimal) 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 KundenNrVon As Integer, ByVal KundenNrBis As Integer, ByVal p1 As Single, ByVal Bankspesen_Mindestbetrag As Decimal) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KundenNrVon,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(KundenNrBis,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(p1,Single) Me.Adapter.InsertCommand.Parameters(3).Value = CType(Bankspesen_Mindestbetrag,Decimal) 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 KundenNrVon As Integer, ByVal KundenNrBis As Integer, ByVal p1 As Single, ByVal Bankspesen_Mindestbetrag As Decimal, ByVal Original_KundenNrVon As Integer, ByVal Original_KundenNrBis As Integer, ByVal p2 As Single, ByVal Original_Bankspesen_Mindestbetrag As Decimal) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KundenNrVon,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(KundenNrBis,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(p1,Single) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Bankspesen_Mindestbetrag,Decimal) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_KundenNrVon,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_KundenNrBis,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(p2,Single) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Bankspesen_Mindestbetrag,Decimal) 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 p1 As Single, ByVal Bankspesen_Mindestbetrag As Decimal, ByVal Original_KundenNrVon As Integer, ByVal Original_KundenNrBis As Integer, ByVal p2 As Single, ByVal Original_Bankspesen_Mindestbetrag As Decimal) As Integer Return Me.Update(Original_KundenNrVon, Original_KundenNrBis, p1, Bankspesen_Mindestbetrag, Original_KundenNrVon, Original_KundenNrBis, p2, Original_Bankspesen_Mindestbetrag) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblBerechnungsmethodeTableAdapter 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 = "tblBerechnungsmethode" tableMapping.ColumnMappings.Add("Nr", "Nr") tableMapping.ColumnMappings.Add("Bez", "Bez") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblBerechnungsmethode] WHERE (([Nr] = @Original_Nr) AND ([SSMA"& _ "_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblBerechnungsmethode] ([Nr], [Bez]) VALUES (@Nr, @Bez);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ "CT Nr, Bez, SSMA_TimeStamp FROM tblBerechnungsmethode WHERE (Nr = @Nr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bez", 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].[tblBerechnungsmethode] SET [Nr] = @Nr, [Bez] = @Bez WHERE (([Nr] = "& _ "@Original_Nr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Nr, Be"& _ "z, SSMA_TimeStamp FROM tblBerechnungsmethode WHERE (Nr = @Nr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Nr, Bez, SSMA_TimeStamp FROM dbo.tblBerechnungsmethode" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblBerechnungsmethodeDataTable) 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 VERAGDataSet.tblBerechnungsmethodeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblBerechnungsmethodeDataTable = New VERAGDataSet.tblBerechnungsmethodeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblBerechnungsmethodeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblBerechnungsmethode") 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_Nr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Nr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Nr As Integer, ByVal Bez As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Nr,Integer) If (Bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Bez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bez,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 Nr As Integer, ByVal Bez As String, ByVal Original_Nr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Nr,Integer) If (Bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Bez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bez,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Nr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Bez As String, ByVal Original_Nr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Nr, Bez, Original_Nr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblBerichtsdruckerTableAdapter 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 = "tblBerichtsdrucker" tableMapping.ColumnMappings.Add("Computername", "Computername") tableMapping.ColumnMappings.Add("Benutzername", "Benutzername") tableMapping.ColumnMappings.Add("Berichtsname", "Berichtsname") tableMapping.ColumnMappings.Add("Druckername", "Druckername") tableMapping.ColumnMappings.Add("RandOben", "RandOben") tableMapping.ColumnMappings.Add("RandUnten", "RandUnten") tableMapping.ColumnMappings.Add("RandLinks", "RandLinks") tableMapping.ColumnMappings.Add("RandRechts", "RandRechts") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblBerichtsdrucker] WHERE (([Computername] = @Original_Compute"& _ "rname) AND ([Benutzername] = @Original_Benutzername) AND ([Berichtsname] = @Orig"& _ "inal_Berichtsname) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([ups"& _ "ize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Berichtsname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berichtsname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblBerichtsdrucker] ([Computername], [Benutzername], [Berichts"& _ "name], [Druckername], [RandOben], [RandUnten], [RandLinks], [RandRechts]) VALUES"& _ " (@Computername, @Benutzername, @Berichtsname, @Druckername, @RandOben, @RandUnt"& _ "en, @RandLinks, @RandRechts);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Computername, Benutzername, Berichtsname, "& _ "Druckername, RandOben, RandUnten, RandLinks, RandRechts, upsize_ts FROM tblBeric"& _ "htsdrucker WHERE (Benutzername = @Benutzername) AND (Berichtsname = @Berichtsnam"& _ "e) AND (Computername = @Computername)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Berichtsname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berichtsname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Druckername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Druckername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RandOben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RandOben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RandUnten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RandUnten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RandLinks", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RandLinks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RandRechts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RandRechts", 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].[tblBerichtsdrucker] SET [Computername] = @Computername, [Benutzerna"& _ "me] = @Benutzername, [Berichtsname] = @Berichtsname, [Druckername] = @Druckernam"& _ "e, [RandOben] = @RandOben, [RandUnten] = @RandUnten, [RandLinks] = @RandLinks, ["& _ "RandRechts] = @RandRechts WHERE (([Computername] = @Original_Computername) AND ("& _ "[Benutzername] = @Original_Benutzername) AND ([Berichtsname] = @Original_Bericht"& _ "sname) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @O"& _ "riginal_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Computername, Benutzername, Berichtsname, Druckern"& _ "ame, RandOben, RandUnten, RandLinks, RandRechts, upsize_ts FROM tblBerichtsdruck"& _ "er WHERE (Benutzername = @Benutzername) AND (Berichtsname = @Berichtsname) AND ("& _ "Computername = @Computername)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Berichtsname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berichtsname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Druckername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Druckername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RandOben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RandOben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RandUnten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RandUnten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RandLinks", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RandLinks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RandRechts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RandRechts", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Berichtsname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berichtsname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Computername, Benutzername, Berichtsname, Druckername, RandOben, RandUnten"& _ ", RandLinks, RandRechts, upsize_ts FROM dbo.tblBerichtsdrucker" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblBerichtsdruckerDataTable) 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 VERAGDataSet.tblBerichtsdruckerDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblBerichtsdruckerDataTable = New VERAGDataSet.tblBerichtsdruckerDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblBerichtsdruckerDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblBerichtsdrucker") 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_Computername As String, ByVal Original_Benutzername As String, ByVal Original_Berichtsname As String, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Computername") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Computername,String) End If If (Original_Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Benutzername") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Benutzername,String) End If If (Original_Berichtsname Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Berichtsname") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Berichtsname,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Computername As String, ByVal Benutzername As String, ByVal Berichtsname As String, ByVal Druckername As String, ByVal RandOben As Integer, ByVal RandUnten As Integer, ByVal RandLinks As Integer, ByVal RandRechts As Integer) As Integer If (Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Computername") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Benutzername,String) End If If (Berichtsname Is Nothing) Then Throw New Global.System.ArgumentNullException("Berichtsname") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Berichtsname,String) End If If (Druckername Is Nothing) Then Throw New Global.System.ArgumentNullException("Druckername") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Druckername,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(RandOben,Integer) Me.Adapter.InsertCommand.Parameters(5).Value = CType(RandUnten,Integer) Me.Adapter.InsertCommand.Parameters(6).Value = CType(RandLinks,Integer) Me.Adapter.InsertCommand.Parameters(7).Value = CType(RandRechts,Integer) 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 Computername As String, ByVal Benutzername As String, ByVal Berichtsname As String, ByVal Druckername As String, ByVal RandOben As Integer, ByVal RandUnten As Integer, ByVal RandLinks As Integer, ByVal RandRechts As Integer, ByVal Original_Computername As String, ByVal Original_Benutzername As String, ByVal Original_Berichtsname As String, ByVal Original_upsize_ts() As Byte) As Integer If (Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Computername") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Benutzername,String) End If If (Berichtsname Is Nothing) Then Throw New Global.System.ArgumentNullException("Berichtsname") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Berichtsname,String) End If If (Druckername Is Nothing) Then Throw New Global.System.ArgumentNullException("Druckername") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Druckername,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RandOben,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(RandUnten,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(RandLinks,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(RandRechts,Integer) If (Original_Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Computername") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Computername,String) End If If (Original_Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Benutzername") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Benutzername,String) End If If (Original_Berichtsname Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Berichtsname") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Berichtsname,String) End If If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_upsize_ts,Byte()) End If 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 Druckername As String, ByVal RandOben As Integer, ByVal RandUnten As Integer, ByVal RandLinks As Integer, ByVal RandRechts As Integer, ByVal Original_Computername As String, ByVal Original_Benutzername As String, ByVal Original_Berichtsname As String, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Computername, Original_Benutzername, Original_Berichtsname, Druckername, RandOben, RandUnten, RandLinks, RandRechts, Original_Computername, Original_Benutzername, Original_Berichtsname, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblBesuchsberichteTableAdapter 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 = "tblBesuchsberichte" tableMapping.ColumnMappings.Add("bb_Id", "bb_Id") tableMapping.ColumnMappings.Add("bb_Firma", "bb_Firma") tableMapping.ColumnMappings.Add("bb_DatumErfassung", "bb_DatumErfassung") tableMapping.ColumnMappings.Add("bb_DatumBesuch", "bb_DatumBesuch") tableMapping.ColumnMappings.Add("bb_Sachbearbeiter", "bb_Sachbearbeiter") tableMapping.ColumnMappings.Add("bb_SachbearbeiterId", "bb_SachbearbeiterId") tableMapping.ColumnMappings.Add("bb_Teilnehmer", "bb_Teilnehmer") tableMapping.ColumnMappings.Add("bb_Kontaktart", "bb_Kontaktart") tableMapping.ColumnMappings.Add("bb_Kunde", "bb_Kunde") tableMapping.ColumnMappings.Add("bb_KundenNr", "bb_KundenNr") tableMapping.ColumnMappings.Add("bb_Geschaeftsfuehrer", "bb_Geschaeftsfuehrer") tableMapping.ColumnMappings.Add("bb_Umsatz", "bb_Umsatz") tableMapping.ColumnMappings.Add("bb_Anpsprechpartner", "bb_Anpsprechpartner") tableMapping.ColumnMappings.Add("bb_Telefon", "bb_Telefon") tableMapping.ColumnMappings.Add("bb_Mail", "bb_Mail") tableMapping.ColumnMappings.Add("bb_FuhrparkEigentum", "bb_FuhrparkEigentum") tableMapping.ColumnMappings.Add("bb_FuhrparkLeasing", "bb_FuhrparkLeasing") tableMapping.ColumnMappings.Add("bb_LKW_Plane", "bb_LKW_Plane") tableMapping.ColumnMappings.Add("bb_LKW_Kuehltranporte", "bb_LKW_Kuehltranporte") tableMapping.ColumnMappings.Add("bb_LKW_Sondertransporte", "bb_LKW_Sondertransporte") tableMapping.ColumnMappings.Add("bb_LKW_Sprinter", "bb_LKW_Sprinter") tableMapping.ColumnMappings.Add("bb_LKW_SiloTank", "bb_LKW_SiloTank") tableMapping.ColumnMappings.Add("bb_Auftraggeber", "bb_Auftraggeber") tableMapping.ColumnMappings.Add("bb_Route", "bb_Route") tableMapping.ColumnMappings.Add("bb_DerzeitigerLieferant", "bb_DerzeitigerLieferant") tableMapping.ColumnMappings.Add("bb_Zufrieden", "bb_Zufrieden") tableMapping.ColumnMappings.Add("bb_ZufriedenNEIN", "bb_ZufriedenNEIN") tableMapping.ColumnMappings.Add("bb_Garantie", "bb_Garantie") tableMapping.ColumnMappings.Add("bb_Interesse_Zollabfertigung", "bb_Interesse_Zollabfertigung") tableMapping.ColumnMappings.Add("bb_Interesse_Brexit", "bb_Interesse_Brexit") tableMapping.ColumnMappings.Add("bb_Interesse_Parkplatz", "bb_Interesse_Parkplatz") tableMapping.ColumnMappings.Add("bb_Interesse_LagerUmschlag", "bb_Interesse_LagerUmschlag") tableMapping.ColumnMappings.Add("bb_Interesse_Rola", "bb_Interesse_Rola") tableMapping.ColumnMappings.Add("bb_Interesse_YesMoney", "bb_Interesse_YesMoney") tableMapping.ColumnMappings.Add("bb_Interesse_Ferry", "bb_Interesse_Ferry") tableMapping.ColumnMappings.Add("bb_Vermerk", "bb_Vermerk") 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].[tblBesuchsberichte] WHERE (([bb_Id] = @Original_bb_Id) AND ([b"& _ "b_DatumErfassung] = @Original_bb_DatumErfassung) AND ([bb_DatumBesuch] = @Origin"& _ "al_bb_DatumBesuch) AND ([bb_Sachbearbeiter] = @Original_bb_Sachbearbeiter) AND ("& _ "[bb_SachbearbeiterId] = @Original_bb_SachbearbeiterId) AND ((@IsNull_bb_Kontakta"& _ "rt = 1 AND [bb_Kontaktart] IS NULL) OR ([bb_Kontaktart] = @Original_bb_Kontaktar"& _ "t)) AND ([bb_Kunde] = @Original_bb_Kunde) AND ((@IsNull_bb_KundenNr = 1 AND [bb_"& _ "KundenNr] IS NULL) OR ([bb_KundenNr] = @Original_bb_KundenNr)) AND ((@IsNull_bb_"& _ "Geschaeftsfuehrer = 1 AND [bb_Geschaeftsfuehrer] IS NULL) OR ([bb_Geschaeftsfueh"& _ "rer] = @Original_bb_Geschaeftsfuehrer)) AND ((@IsNull_bb_Umsatz = 1 AND [bb_Umsa"& _ "tz] IS NULL) OR ([bb_Umsatz] = @Original_bb_Umsatz)) AND ((@IsNull_bb_Anpsprechp"& _ "artner = 1 AND [bb_Anpsprechpartner] IS NULL) OR ([bb_Anpsprechpartner] = @Origi"& _ "nal_bb_Anpsprechpartner)) AND ((@IsNull_bb_Telefon = 1 AND [bb_Telefon] IS NULL)"& _ " OR ([bb_Telefon] = @Original_bb_Telefon)) AND ((@IsNull_bb_Mail = 1 AND [bb_Mai"& _ "l] IS NULL) OR ([bb_Mail] = @Original_bb_Mail)) AND ((@IsNull_bb_FuhrparkEigentu"& _ "m = 1 AND [bb_FuhrparkEigentum] IS NULL) OR ([bb_FuhrparkEigentum] = @Original_b"& _ "b_FuhrparkEigentum)) AND ((@IsNull_bb_FuhrparkLeasing = 1 AND [bb_FuhrparkLeasin"& _ "g] IS NULL) OR ([bb_FuhrparkLeasing] = @Original_bb_FuhrparkLeasing)) AND ([bb_L"& _ "KW_Plane] = @Original_bb_LKW_Plane) AND ([bb_LKW_Kuehltranporte] = @Original_bb_"& _ "LKW_Kuehltranporte) AND ([bb_LKW_Sondertransporte] = @Original_bb_LKW_Sondertran"& _ "sporte) AND ([bb_LKW_Sprinter] = @Original_bb_LKW_Sprinter) AND ([bb_LKW_SiloTan"& _ "k] = @Original_bb_LKW_SiloTank) AND ((@IsNull_bb_DerzeitigerLieferant = 1 AND [b"& _ "b_DerzeitigerLieferant] IS NULL) OR ([bb_DerzeitigerLieferant] = @Original_bb_De"& _ "rzeitigerLieferant)) AND ((@IsNull_bb_Zufrieden = 1 AND [bb_Zufrieden] IS NULL) "& _ "OR ([bb_Zufrieden] = @Original_bb_Zufrieden)) AND ([bb_Interesse_Zollabfertigung"& _ "] = @Original_bb_Interesse_Zollabfertigung) AND ([bb_Interesse_Brexit] = @Origin"& _ "al_bb_Interesse_Brexit) AND ([bb_Interesse_Parkplatz] = @Original_bb_Interesse_P"& _ "arkplatz) AND ([bb_Interesse_LagerUmschlag] = @Original_bb_Interesse_LagerUmschl"& _ "ag) AND ([bb_Interesse_Rola] = @Original_bb_Interesse_Rola) AND ([bb_Interesse_Y"& _ "esMoney] = @Original_bb_Interesse_YesMoney) AND ([bb_Interesse_Ferry] = @Origina"& _ "l_bb_Interesse_Ferry))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_DatumErfassung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DatumErfassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_DatumBesuch", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DatumBesuch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Kontaktart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Kontaktart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Kontaktart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Kontaktart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Kunde", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Kunde", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Geschaeftsfuehrer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Geschaeftsfuehrer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Geschaeftsfuehrer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Geschaeftsfuehrer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Umsatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Umsatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Umsatz", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "bb_Umsatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Anpsprechpartner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Anpsprechpartner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Anpsprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Anpsprechpartner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Telefon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Telefon", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Telefon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Telefon", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Mail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Mail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Mail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_FuhrparkEigentum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkEigentum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_FuhrparkEigentum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkEigentum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_FuhrparkLeasing", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkLeasing", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_FuhrparkLeasing", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkLeasing", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_LKW_Plane", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Plane", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_LKW_Kuehltranporte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Kuehltranporte", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_LKW_Sondertransporte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Sondertransporte", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_LKW_Sprinter", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Sprinter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_LKW_SiloTank", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_SiloTank", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_DerzeitigerLieferant", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DerzeitigerLieferant", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_DerzeitigerLieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DerzeitigerLieferant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Zufrieden", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Zufrieden", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Zufrieden", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Zufrieden", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_Zollabfertigung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Zollabfertigung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_Brexit", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Brexit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_Parkplatz", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Parkplatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_LagerUmschlag", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_LagerUmschlag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_Rola", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Rola", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_YesMoney", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_YesMoney", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_Ferry", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Ferry", 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].[tblBesuchsberichte] ([bb_Firma], [bb_DatumErfassung], [bb_Datu"& _ "mBesuch], [bb_Sachbearbeiter], [bb_SachbearbeiterId], [bb_Teilnehmer], [bb_Konta"& _ "ktart], [bb_Kunde], [bb_KundenNr], [bb_Geschaeftsfuehrer], [bb_Umsatz], [bb_Anps"& _ "prechpartner], [bb_Telefon], [bb_Mail], [bb_FuhrparkEigentum], [bb_FuhrparkLeasi"& _ "ng], [bb_LKW_Plane], [bb_LKW_Kuehltranporte], [bb_LKW_Sondertransporte], [bb_LKW"& _ "_Sprinter], [bb_LKW_SiloTank], [bb_Auftraggeber], [bb_Route], [bb_DerzeitigerLie"& _ "ferant], [bb_Zufrieden], [bb_ZufriedenNEIN], [bb_Garantie], [bb_Interesse_Zollab"& _ "fertigung], [bb_Interesse_Brexit], [bb_Interesse_Parkplatz], [bb_Interesse_Lager"& _ "Umschlag], [bb_Interesse_Rola], [bb_Interesse_YesMoney], [bb_Interesse_Ferry], ["& _ "bb_Vermerk]) VALUES (@bb_Firma, @bb_DatumErfassung, @bb_DatumBesuch, @bb_Sachbea"& _ "rbeiter, @bb_SachbearbeiterId, @bb_Teilnehmer, @bb_Kontaktart, @bb_Kunde, @bb_Ku"& _ "ndenNr, @bb_Geschaeftsfuehrer, @bb_Umsatz, @bb_Anpsprechpartner, @bb_Telefon, @b"& _ "b_Mail, @bb_FuhrparkEigentum, @bb_FuhrparkLeasing, @bb_LKW_Plane, @bb_LKW_Kuehlt"& _ "ranporte, @bb_LKW_Sondertransporte, @bb_LKW_Sprinter, @bb_LKW_SiloTank, @bb_Auft"& _ "raggeber, @bb_Route, @bb_DerzeitigerLieferant, @bb_Zufrieden, @bb_ZufriedenNEIN,"& _ " @bb_Garantie, @bb_Interesse_Zollabfertigung, @bb_Interesse_Brexit, @bb_Interess"& _ "e_Parkplatz, @bb_Interesse_LagerUmschlag, @bb_Interesse_Rola, @bb_Interesse_YesM"& _ "oney, @bb_Interesse_Ferry, @bb_Vermerk);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT bb_Id, bb_Firma, bb_DatumErfass"& _ "ung, bb_DatumBesuch, bb_Sachbearbeiter, bb_SachbearbeiterId, bb_Teilnehmer, bb_K"& _ "ontaktart, bb_Kunde, bb_KundenNr, bb_Geschaeftsfuehrer, bb_Umsatz, bb_Anpsprechp"& _ "artner, bb_Telefon, bb_Mail, bb_FuhrparkEigentum, bb_FuhrparkLeasing, bb_LKW_Pla"& _ "ne, bb_LKW_Kuehltranporte, bb_LKW_Sondertransporte, bb_LKW_Sprinter, bb_LKW_Silo"& _ "Tank, bb_Auftraggeber, bb_Route, bb_DerzeitigerLieferant, bb_Zufrieden, bb_Zufri"& _ "edenNEIN, bb_Garantie, bb_Interesse_Zollabfertigung, bb_Interesse_Brexit, bb_Int"& _ "eresse_Parkplatz, bb_Interesse_LagerUmschlag, bb_Interesse_Rola, bb_Interesse_Ye"& _ "sMoney, bb_Interesse_Ferry, bb_Vermerk FROM tblBesuchsberichte WHERE (bb_Id = SC"& _ "OPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_DatumErfassung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DatumErfassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_DatumBesuch", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DatumBesuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Teilnehmer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Teilnehmer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Kontaktart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Kontaktart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Kunde", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Kunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Geschaeftsfuehrer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Geschaeftsfuehrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Umsatz", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "bb_Umsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Anpsprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Anpsprechpartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Telefon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_FuhrparkEigentum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkEigentum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_FuhrparkLeasing", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkLeasing", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_LKW_Plane", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Plane", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_LKW_Kuehltranporte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Kuehltranporte", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_LKW_Sondertransporte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Sondertransporte", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_LKW_Sprinter", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Sprinter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_LKW_SiloTank", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_SiloTank", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Auftraggeber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Auftraggeber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Route", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Route", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_DerzeitigerLieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DerzeitigerLieferant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Zufrieden", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Zufrieden", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_ZufriedenNEIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_ZufriedenNEIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Garantie", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Garantie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_Zollabfertigung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Zollabfertigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_Brexit", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Brexit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_Parkplatz", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Parkplatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_LagerUmschlag", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_LagerUmschlag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_Rola", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Rola", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_YesMoney", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_YesMoney", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_Ferry", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Ferry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Vermerk", 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].[tblBesuchsberichte] SET [bb_Firma] = @bb_Firma, [bb_DatumErfassung]"& _ " = @bb_DatumErfassung, [bb_DatumBesuch] = @bb_DatumBesuch, [bb_Sachbearbeiter] ="& _ " @bb_Sachbearbeiter, [bb_SachbearbeiterId] = @bb_SachbearbeiterId, [bb_Teilnehme"& _ "r] = @bb_Teilnehmer, [bb_Kontaktart] = @bb_Kontaktart, [bb_Kunde] = @bb_Kunde, ["& _ "bb_KundenNr] = @bb_KundenNr, [bb_Geschaeftsfuehrer] = @bb_Geschaeftsfuehrer, [bb"& _ "_Umsatz] = @bb_Umsatz, [bb_Anpsprechpartner] = @bb_Anpsprechpartner, [bb_Telefon"& _ "] = @bb_Telefon, [bb_Mail] = @bb_Mail, [bb_FuhrparkEigentum] = @bb_FuhrparkEigen"& _ "tum, [bb_FuhrparkLeasing] = @bb_FuhrparkLeasing, [bb_LKW_Plane] = @bb_LKW_Plane,"& _ " [bb_LKW_Kuehltranporte] = @bb_LKW_Kuehltranporte, [bb_LKW_Sondertransporte] = @"& _ "bb_LKW_Sondertransporte, [bb_LKW_Sprinter] = @bb_LKW_Sprinter, [bb_LKW_SiloTank]"& _ " = @bb_LKW_SiloTank, [bb_Auftraggeber] = @bb_Auftraggeber, [bb_Route] = @bb_Rout"& _ "e, [bb_DerzeitigerLieferant] = @bb_DerzeitigerLieferant, [bb_Zufrieden] = @bb_Zu"& _ "frieden, [bb_ZufriedenNEIN] = @bb_ZufriedenNEIN, [bb_Garantie] = @bb_Garantie, ["& _ "bb_Interesse_Zollabfertigung] = @bb_Interesse_Zollabfertigung, [bb_Interesse_Bre"& _ "xit] = @bb_Interesse_Brexit, [bb_Interesse_Parkplatz] = @bb_Interesse_Parkplatz,"& _ " [bb_Interesse_LagerUmschlag] = @bb_Interesse_LagerUmschlag, [bb_Interesse_Rola]"& _ " = @bb_Interesse_Rola, [bb_Interesse_YesMoney] = @bb_Interesse_YesMoney, [bb_Int"& _ "eresse_Ferry] = @bb_Interesse_Ferry, [bb_Vermerk] = @bb_Vermerk WHERE (([bb_Id] "& _ "= @Original_bb_Id) AND ([bb_DatumErfassung] = @Original_bb_DatumErfassung) AND ("& _ "[bb_DatumBesuch] = @Original_bb_DatumBesuch) AND ([bb_Sachbearbeiter] = @Origina"& _ "l_bb_Sachbearbeiter) AND ([bb_SachbearbeiterId] = @Original_bb_SachbearbeiterId)"& _ " AND ((@IsNull_bb_Kontaktart = 1 AND [bb_Kontaktart] IS NULL) OR ([bb_Kontaktart"& _ "] = @Original_bb_Kontaktart)) AND ([bb_Kunde] = @Original_bb_Kunde) AND ((@IsNul"& _ "l_bb_KundenNr = 1 AND [bb_KundenNr] IS NULL) OR ([bb_KundenNr] = @Original_bb_Ku"& _ "ndenNr)) AND ((@IsNull_bb_Geschaeftsfuehrer = 1 AND [bb_Geschaeftsfuehrer] IS NU"& _ "LL) OR ([bb_Geschaeftsfuehrer] = @Original_bb_Geschaeftsfuehrer)) AND ((@IsNull_"& _ "bb_Umsatz = 1 AND [bb_Umsatz] IS NULL) OR ([bb_Umsatz] = @Original_bb_Umsatz)) A"& _ "ND ((@IsNull_bb_Anpsprechpartner = 1 AND [bb_Anpsprechpartner] IS NULL) OR ([bb_"& _ "Anpsprechpartner] = @Original_bb_Anpsprechpartner)) AND ((@IsNull_bb_Telefon = 1"& _ " AND [bb_Telefon] IS NULL) OR ([bb_Telefon] = @Original_bb_Telefon)) AND ((@IsNu"& _ "ll_bb_Mail = 1 AND [bb_Mail] IS NULL) OR ([bb_Mail] = @Original_bb_Mail)) AND (("& _ "@IsNull_bb_FuhrparkEigentum = 1 AND [bb_FuhrparkEigentum] IS NULL) OR ([bb_Fuhrp"& _ "arkEigentum] = @Original_bb_FuhrparkEigentum)) AND ((@IsNull_bb_FuhrparkLeasing "& _ "= 1 AND [bb_FuhrparkLeasing] IS NULL) OR ([bb_FuhrparkLeasing] = @Original_bb_Fu"& _ "hrparkLeasing)) AND ([bb_LKW_Plane] = @Original_bb_LKW_Plane) AND ([bb_LKW_Kuehl"& _ "tranporte] = @Original_bb_LKW_Kuehltranporte) AND ([bb_LKW_Sondertransporte] = @"& _ "Original_bb_LKW_Sondertransporte) AND ([bb_LKW_Sprinter] = @Original_bb_LKW_Spri"& _ "nter) AND ([bb_LKW_SiloTank] = @Original_bb_LKW_SiloTank) AND ((@IsNull_bb_Derze"& _ "itigerLieferant = 1 AND [bb_DerzeitigerLieferant] IS NULL) OR ([bb_DerzeitigerLi"& _ "eferant] = @Original_bb_DerzeitigerLieferant)) AND ((@IsNull_bb_Zufrieden = 1 AN"& _ "D [bb_Zufrieden] IS NULL) OR ([bb_Zufrieden] = @Original_bb_Zufrieden)) AND ([bb"& _ "_Interesse_Zollabfertigung] = @Original_bb_Interesse_Zollabfertigung) AND ([bb_I"& _ "nteresse_Brexit] = @Original_bb_Interesse_Brexit) AND ([bb_Interesse_Parkplatz] "& _ "= @Original_bb_Interesse_Parkplatz) AND ([bb_Interesse_LagerUmschlag] = @Origina"& _ "l_bb_Interesse_LagerUmschlag) AND ([bb_Interesse_Rola] = @Original_bb_Interesse_"& _ "Rola) AND ([bb_Interesse_YesMoney] = @Original_bb_Interesse_YesMoney) AND ([bb_I"& _ "nteresse_Ferry] = @Original_bb_Interesse_Ferry));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT bb_Id, bb_Firma, bb_Da"& _ "tumErfassung, bb_DatumBesuch, bb_Sachbearbeiter, bb_SachbearbeiterId, bb_Teilneh"& _ "mer, bb_Kontaktart, bb_Kunde, bb_KundenNr, bb_Geschaeftsfuehrer, bb_Umsatz, bb_A"& _ "npsprechpartner, bb_Telefon, bb_Mail, bb_FuhrparkEigentum, bb_FuhrparkLeasing, b"& _ "b_LKW_Plane, bb_LKW_Kuehltranporte, bb_LKW_Sondertransporte, bb_LKW_Sprinter, bb"& _ "_LKW_SiloTank, bb_Auftraggeber, bb_Route, bb_DerzeitigerLieferant, bb_Zufrieden,"& _ " bb_ZufriedenNEIN, bb_Garantie, bb_Interesse_Zollabfertigung, bb_Interesse_Brexi"& _ "t, bb_Interesse_Parkplatz, bb_Interesse_LagerUmschlag, bb_Interesse_Rola, bb_Int"& _ "eresse_YesMoney, bb_Interesse_Ferry, bb_Vermerk FROM tblBesuchsberichte WHERE (b"& _ "b_Id = @bb_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_DatumErfassung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DatumErfassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_DatumBesuch", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DatumBesuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Teilnehmer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Teilnehmer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Kontaktart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Kontaktart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Kunde", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Kunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Geschaeftsfuehrer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Geschaeftsfuehrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Umsatz", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "bb_Umsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Anpsprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Anpsprechpartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Telefon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_FuhrparkEigentum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkEigentum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_FuhrparkLeasing", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkLeasing", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_LKW_Plane", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Plane", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_LKW_Kuehltranporte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Kuehltranporte", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_LKW_Sondertransporte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Sondertransporte", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_LKW_Sprinter", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Sprinter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_LKW_SiloTank", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_SiloTank", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Auftraggeber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Auftraggeber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Route", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Route", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_DerzeitigerLieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DerzeitigerLieferant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Zufrieden", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Zufrieden", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_ZufriedenNEIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_ZufriedenNEIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Garantie", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Garantie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_Zollabfertigung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Zollabfertigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_Brexit", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Brexit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_Parkplatz", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Parkplatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_LagerUmschlag", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_LagerUmschlag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_Rola", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Rola", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_YesMoney", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_YesMoney", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Interesse_Ferry", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Ferry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_DatumErfassung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DatumErfassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_DatumBesuch", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DatumBesuch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Kontaktart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Kontaktart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Kontaktart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Kontaktart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Kunde", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Kunde", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Geschaeftsfuehrer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Geschaeftsfuehrer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Geschaeftsfuehrer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Geschaeftsfuehrer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Umsatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Umsatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Umsatz", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "bb_Umsatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Anpsprechpartner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Anpsprechpartner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Anpsprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Anpsprechpartner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Telefon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Telefon", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Telefon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Telefon", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Mail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Mail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Mail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_FuhrparkEigentum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkEigentum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_FuhrparkEigentum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkEigentum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_FuhrparkLeasing", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkLeasing", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_FuhrparkLeasing", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_FuhrparkLeasing", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_LKW_Plane", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Plane", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_LKW_Kuehltranporte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Kuehltranporte", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_LKW_Sondertransporte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Sondertransporte", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_LKW_Sprinter", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_Sprinter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_LKW_SiloTank", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_LKW_SiloTank", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_DerzeitigerLieferant", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DerzeitigerLieferant", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_DerzeitigerLieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_DerzeitigerLieferant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_bb_Zufrieden", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Zufrieden", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Zufrieden", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Zufrieden", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_Zollabfertigung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Zollabfertigung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_Brexit", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Brexit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_Parkplatz", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Parkplatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_LagerUmschlag", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_LagerUmschlag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_Rola", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Rola", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_YesMoney", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_YesMoney", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_bb_Interesse_Ferry", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Interesse_Ferry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@bb_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "bb_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 bb_Id, bb_Firma, bb_DatumErfassung, bb_DatumBesuch, bb_Sachbearbeiter, bb_"& _ "SachbearbeiterId, bb_Teilnehmer, bb_Kontaktart, bb_Kunde, bb_KundenNr, bb_Gescha"& _ "eftsfuehrer, bb_Umsatz, bb_Anpsprechpartner, bb_Telefon, bb_Mail, bb_FuhrparkEig"& _ "entum, bb_FuhrparkLeasing, bb_LKW_Plane, bb_LKW_Kuehltranporte, bb_LKW_Sondertra"& _ "nsporte, bb_LKW_Sprinter, bb_LKW_SiloTank, bb_Auftraggeber, bb_Route, bb_Derzeit"& _ "igerLieferant, bb_Zufrieden, bb_ZufriedenNEIN, bb_Garantie, bb_Interesse_Zollabf"& _ "ertigung, bb_Interesse_Brexit, bb_Interesse_Parkplatz, bb_Interesse_LagerUmschla"& _ "g, bb_Interesse_Rola, bb_Interesse_YesMoney, bb_Interesse_Ferry, bb_Vermerk FROM"& _ " dbo.tblBesuchsberichte" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblBesuchsberichteDataTable) 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 VERAGDataSet.tblBesuchsberichteDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblBesuchsberichteDataTable = New VERAGDataSet.tblBesuchsberichteDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblBesuchsberichteDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblBesuchsberichte") 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_bb_Id As Integer, _ ByVal Original_bb_DatumErfassung As Date, _ ByVal Original_bb_DatumBesuch As Date, _ ByVal Original_bb_Sachbearbeiter As String, _ ByVal Original_bb_SachbearbeiterId As Integer, _ ByVal Original_bb_Kontaktart As String, _ ByVal Original_bb_Kunde As String, _ ByVal Original_bb_KundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_bb_Geschaeftsfuehrer As String, _ ByVal Original_bb_Umsatz As Global.System.Nullable(Of Decimal), _ ByVal Original_bb_Anpsprechpartner As String, _ ByVal Original_bb_Telefon As String, _ ByVal Original_bb_Mail As String, _ ByVal Original_bb_FuhrparkEigentum As String, _ ByVal Original_bb_FuhrparkLeasing As String, _ ByVal Original_bb_LKW_Plane As Boolean, _ ByVal Original_bb_LKW_Kuehltranporte As Boolean, _ ByVal Original_bb_LKW_Sondertransporte As Boolean, _ ByVal Original_bb_LKW_Sprinter As Boolean, _ ByVal Original_bb_LKW_SiloTank As Boolean, _ ByVal Original_bb_DerzeitigerLieferant As String, _ ByVal Original_bb_Zufrieden As Global.System.Nullable(Of Boolean), _ ByVal Original_bb_Interesse_Zollabfertigung As Boolean, _ ByVal Original_bb_Interesse_Brexit As Boolean, _ ByVal Original_bb_Interesse_Parkplatz As Boolean, _ ByVal Original_bb_Interesse_LagerUmschlag As Boolean, _ ByVal Original_bb_Interesse_Rola As Boolean, _ ByVal Original_bb_Interesse_YesMoney As Boolean, _ ByVal Original_bb_Interesse_Ferry As Boolean) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_bb_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_bb_DatumErfassung,Date) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_bb_DatumBesuch,Date) If (Original_bb_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_bb_Sachbearbeiter") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_bb_Sachbearbeiter,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_bb_SachbearbeiterId,Integer) If (Original_bb_Kontaktart 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_bb_Kontaktart,String) End If If (Original_bb_Kunde Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_bb_Kunde") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_bb_Kunde,String) End If If (Original_bb_KundenNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_bb_KundenNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_bb_Geschaeftsfuehrer 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_bb_Geschaeftsfuehrer,String) End If If (Original_bb_Umsatz.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_bb_Umsatz.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_bb_Anpsprechpartner Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_bb_Anpsprechpartner,String) End If If (Original_bb_Telefon Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_bb_Telefon,String) End If If (Original_bb_Mail 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_bb_Mail,String) End If If (Original_bb_FuhrparkEigentum 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_bb_FuhrparkEigentum,String) End If If (Original_bb_FuhrparkLeasing 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_bb_FuhrparkLeasing,String) End If Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_bb_LKW_Plane,Boolean) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_bb_LKW_Kuehltranporte,Boolean) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_bb_LKW_Sondertransporte,Boolean) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_bb_LKW_Sprinter,Boolean) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_bb_LKW_SiloTank,Boolean) If (Original_bb_DerzeitigerLieferant Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_bb_DerzeitigerLieferant,String) End If If (Original_bb_Zufrieden.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_bb_Zufrieden.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_bb_Interesse_Zollabfertigung,Boolean) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_bb_Interesse_Brexit,Boolean) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_bb_Interesse_Parkplatz,Boolean) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_bb_Interesse_LagerUmschlag,Boolean) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_bb_Interesse_Rola,Boolean) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_bb_Interesse_YesMoney,Boolean) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_bb_Interesse_Ferry,Boolean) 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 bb_Firma As String, _ ByVal bb_DatumErfassung As Date, _ ByVal bb_DatumBesuch As Date, _ ByVal bb_Sachbearbeiter As String, _ ByVal bb_SachbearbeiterId As Integer, _ ByVal bb_Teilnehmer As String, _ ByVal bb_Kontaktart As String, _ ByVal bb_Kunde As String, _ ByVal bb_KundenNr As Global.System.Nullable(Of Integer), _ ByVal bb_Geschaeftsfuehrer As String, _ ByVal bb_Umsatz As Global.System.Nullable(Of Decimal), _ ByVal bb_Anpsprechpartner As String, _ ByVal bb_Telefon As String, _ ByVal bb_Mail As String, _ ByVal bb_FuhrparkEigentum As String, _ ByVal bb_FuhrparkLeasing As String, _ ByVal bb_LKW_Plane As Boolean, _ ByVal bb_LKW_Kuehltranporte As Boolean, _ ByVal bb_LKW_Sondertransporte As Boolean, _ ByVal bb_LKW_Sprinter As Boolean, _ ByVal bb_LKW_SiloTank As Boolean, _ ByVal bb_Auftraggeber As String, _ ByVal bb_Route As String, _ ByVal bb_DerzeitigerLieferant As String, _ ByVal bb_Zufrieden As Global.System.Nullable(Of Boolean), _ ByVal bb_ZufriedenNEIN As String, _ ByVal bb_Garantie As String, _ ByVal bb_Interesse_Zollabfertigung As Boolean, _ ByVal bb_Interesse_Brexit As Boolean, _ ByVal bb_Interesse_Parkplatz As Boolean, _ ByVal bb_Interesse_LagerUmschlag As Boolean, _ ByVal bb_Interesse_Rola As Boolean, _ ByVal bb_Interesse_YesMoney As Boolean, _ ByVal bb_Interesse_Ferry As Boolean, _ ByVal bb_Vermerk As String) As Integer If (bb_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("bb_Firma") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(bb_Firma,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(bb_DatumErfassung,Date) Me.Adapter.InsertCommand.Parameters(2).Value = CType(bb_DatumBesuch,Date) If (bb_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("bb_Sachbearbeiter") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(bb_Sachbearbeiter,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(bb_SachbearbeiterId,Integer) If (bb_Teilnehmer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(bb_Teilnehmer,String) End If If (bb_Kontaktart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(bb_Kontaktart,String) End If If (bb_Kunde Is Nothing) Then Throw New Global.System.ArgumentNullException("bb_Kunde") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(bb_Kunde,String) End If If (bb_KundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(bb_KundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (bb_Geschaeftsfuehrer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(bb_Geschaeftsfuehrer,String) End If If (bb_Umsatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(bb_Umsatz.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (bb_Anpsprechpartner Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(bb_Anpsprechpartner,String) End If If (bb_Telefon Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(bb_Telefon,String) End If If (bb_Mail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(bb_Mail,String) End If If (bb_FuhrparkEigentum Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(bb_FuhrparkEigentum,String) End If If (bb_FuhrparkLeasing Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(bb_FuhrparkLeasing,String) End If Me.Adapter.InsertCommand.Parameters(16).Value = CType(bb_LKW_Plane,Boolean) Me.Adapter.InsertCommand.Parameters(17).Value = CType(bb_LKW_Kuehltranporte,Boolean) Me.Adapter.InsertCommand.Parameters(18).Value = CType(bb_LKW_Sondertransporte,Boolean) Me.Adapter.InsertCommand.Parameters(19).Value = CType(bb_LKW_Sprinter,Boolean) Me.Adapter.InsertCommand.Parameters(20).Value = CType(bb_LKW_SiloTank,Boolean) If (bb_Auftraggeber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(bb_Auftraggeber,String) End If If (bb_Route Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(bb_Route,String) End If If (bb_DerzeitigerLieferant Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(bb_DerzeitigerLieferant,String) End If If (bb_Zufrieden.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(bb_Zufrieden.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (bb_ZufriedenNEIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(bb_ZufriedenNEIN,String) End If If (bb_Garantie Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(bb_Garantie,String) End If Me.Adapter.InsertCommand.Parameters(27).Value = CType(bb_Interesse_Zollabfertigung,Boolean) Me.Adapter.InsertCommand.Parameters(28).Value = CType(bb_Interesse_Brexit,Boolean) Me.Adapter.InsertCommand.Parameters(29).Value = CType(bb_Interesse_Parkplatz,Boolean) Me.Adapter.InsertCommand.Parameters(30).Value = CType(bb_Interesse_LagerUmschlag,Boolean) Me.Adapter.InsertCommand.Parameters(31).Value = CType(bb_Interesse_Rola,Boolean) Me.Adapter.InsertCommand.Parameters(32).Value = CType(bb_Interesse_YesMoney,Boolean) Me.Adapter.InsertCommand.Parameters(33).Value = CType(bb_Interesse_Ferry,Boolean) If (bb_Vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(bb_Vermerk,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 bb_Firma As String, _ ByVal bb_DatumErfassung As Date, _ ByVal bb_DatumBesuch As Date, _ ByVal bb_Sachbearbeiter As String, _ ByVal bb_SachbearbeiterId As Integer, _ ByVal bb_Teilnehmer As String, _ ByVal bb_Kontaktart As String, _ ByVal bb_Kunde As String, _ ByVal bb_KundenNr As Global.System.Nullable(Of Integer), _ ByVal bb_Geschaeftsfuehrer As String, _ ByVal bb_Umsatz As Global.System.Nullable(Of Decimal), _ ByVal bb_Anpsprechpartner As String, _ ByVal bb_Telefon As String, _ ByVal bb_Mail As String, _ ByVal bb_FuhrparkEigentum As String, _ ByVal bb_FuhrparkLeasing As String, _ ByVal bb_LKW_Plane As Boolean, _ ByVal bb_LKW_Kuehltranporte As Boolean, _ ByVal bb_LKW_Sondertransporte As Boolean, _ ByVal bb_LKW_Sprinter As Boolean, _ ByVal bb_LKW_SiloTank As Boolean, _ ByVal bb_Auftraggeber As String, _ ByVal bb_Route As String, _ ByVal bb_DerzeitigerLieferant As String, _ ByVal bb_Zufrieden As Global.System.Nullable(Of Boolean), _ ByVal bb_ZufriedenNEIN As String, _ ByVal bb_Garantie As String, _ ByVal bb_Interesse_Zollabfertigung As Boolean, _ ByVal bb_Interesse_Brexit As Boolean, _ ByVal bb_Interesse_Parkplatz As Boolean, _ ByVal bb_Interesse_LagerUmschlag As Boolean, _ ByVal bb_Interesse_Rola As Boolean, _ ByVal bb_Interesse_YesMoney As Boolean, _ ByVal bb_Interesse_Ferry As Boolean, _ ByVal bb_Vermerk As String, _ ByVal Original_bb_Id As Integer, _ ByVal Original_bb_DatumErfassung As Date, _ ByVal Original_bb_DatumBesuch As Date, _ ByVal Original_bb_Sachbearbeiter As String, _ ByVal Original_bb_SachbearbeiterId As Integer, _ ByVal Original_bb_Kontaktart As String, _ ByVal Original_bb_Kunde As String, _ ByVal Original_bb_KundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_bb_Geschaeftsfuehrer As String, _ ByVal Original_bb_Umsatz As Global.System.Nullable(Of Decimal), _ ByVal Original_bb_Anpsprechpartner As String, _ ByVal Original_bb_Telefon As String, _ ByVal Original_bb_Mail As String, _ ByVal Original_bb_FuhrparkEigentum As String, _ ByVal Original_bb_FuhrparkLeasing As String, _ ByVal Original_bb_LKW_Plane As Boolean, _ ByVal Original_bb_LKW_Kuehltranporte As Boolean, _ ByVal Original_bb_LKW_Sondertransporte As Boolean, _ ByVal Original_bb_LKW_Sprinter As Boolean, _ ByVal Original_bb_LKW_SiloTank As Boolean, _ ByVal Original_bb_DerzeitigerLieferant As String, _ ByVal Original_bb_Zufrieden As Global.System.Nullable(Of Boolean), _ ByVal Original_bb_Interesse_Zollabfertigung As Boolean, _ ByVal Original_bb_Interesse_Brexit As Boolean, _ ByVal Original_bb_Interesse_Parkplatz As Boolean, _ ByVal Original_bb_Interesse_LagerUmschlag As Boolean, _ ByVal Original_bb_Interesse_Rola As Boolean, _ ByVal Original_bb_Interesse_YesMoney As Boolean, _ ByVal Original_bb_Interesse_Ferry As Boolean, _ ByVal bb_Id As Integer) As Integer If (bb_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("bb_Firma") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(bb_Firma,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(bb_DatumErfassung,Date) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(bb_DatumBesuch,Date) If (bb_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("bb_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(bb_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(bb_SachbearbeiterId,Integer) If (bb_Teilnehmer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(bb_Teilnehmer,String) End If If (bb_Kontaktart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(bb_Kontaktart,String) End If If (bb_Kunde Is Nothing) Then Throw New Global.System.ArgumentNullException("bb_Kunde") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(bb_Kunde,String) End If If (bb_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(bb_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (bb_Geschaeftsfuehrer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(bb_Geschaeftsfuehrer,String) End If If (bb_Umsatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(bb_Umsatz.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (bb_Anpsprechpartner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(bb_Anpsprechpartner,String) End If If (bb_Telefon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(bb_Telefon,String) End If If (bb_Mail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(bb_Mail,String) End If If (bb_FuhrparkEigentum Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(bb_FuhrparkEigentum,String) End If If (bb_FuhrparkLeasing Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(bb_FuhrparkLeasing,String) End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(bb_LKW_Plane,Boolean) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(bb_LKW_Kuehltranporte,Boolean) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(bb_LKW_Sondertransporte,Boolean) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(bb_LKW_Sprinter,Boolean) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(bb_LKW_SiloTank,Boolean) If (bb_Auftraggeber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(bb_Auftraggeber,String) End If If (bb_Route Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(bb_Route,String) End If If (bb_DerzeitigerLieferant Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(bb_DerzeitigerLieferant,String) End If If (bb_Zufrieden.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(bb_Zufrieden.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (bb_ZufriedenNEIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(bb_ZufriedenNEIN,String) End If If (bb_Garantie Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(bb_Garantie,String) End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(bb_Interesse_Zollabfertigung,Boolean) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(bb_Interesse_Brexit,Boolean) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(bb_Interesse_Parkplatz,Boolean) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(bb_Interesse_LagerUmschlag,Boolean) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(bb_Interesse_Rola,Boolean) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(bb_Interesse_YesMoney,Boolean) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(bb_Interesse_Ferry,Boolean) If (bb_Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(bb_Vermerk,String) End If Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_bb_Id,Integer) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_bb_DatumErfassung,Date) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_bb_DatumBesuch,Date) If (Original_bb_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_bb_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_bb_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_bb_SachbearbeiterId,Integer) If (Original_bb_Kontaktart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_bb_Kontaktart,String) End If If (Original_bb_Kunde Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_bb_Kunde") Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_bb_Kunde,String) End If If (Original_bb_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_bb_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Original_bb_Geschaeftsfuehrer 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_bb_Geschaeftsfuehrer,String) End If If (Original_bb_Umsatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_bb_Umsatz.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Original_bb_Anpsprechpartner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_bb_Anpsprechpartner,String) End If If (Original_bb_Telefon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_bb_Telefon,String) End If If (Original_bb_Mail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_bb_Mail,String) End If If (Original_bb_FuhrparkEigentum Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_bb_FuhrparkEigentum,String) End If If (Original_bb_FuhrparkLeasing Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_bb_FuhrparkLeasing,String) End If Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_bb_LKW_Plane,Boolean) Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_bb_LKW_Kuehltranporte,Boolean) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_bb_LKW_Sondertransporte,Boolean) Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_bb_LKW_Sprinter,Boolean) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_bb_LKW_SiloTank,Boolean) If (Original_bb_DerzeitigerLieferant Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_bb_DerzeitigerLieferant,String) End If If (Original_bb_Zufrieden.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_bb_Zufrieden.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_bb_Interesse_Zollabfertigung,Boolean) Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_bb_Interesse_Brexit,Boolean) Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_bb_Interesse_Parkplatz,Boolean) Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_bb_Interesse_LagerUmschlag,Boolean) Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_bb_Interesse_Rola,Boolean) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_bb_Interesse_YesMoney,Boolean) Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_bb_Interesse_Ferry,Boolean) Me.Adapter.UpdateCommand.Parameters(75).Value = CType(bb_Id,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 bb_Firma As String, _ ByVal bb_DatumErfassung As Date, _ ByVal bb_DatumBesuch As Date, _ ByVal bb_Sachbearbeiter As String, _ ByVal bb_SachbearbeiterId As Integer, _ ByVal bb_Teilnehmer As String, _ ByVal bb_Kontaktart As String, _ ByVal bb_Kunde As String, _ ByVal bb_KundenNr As Global.System.Nullable(Of Integer), _ ByVal bb_Geschaeftsfuehrer As String, _ ByVal bb_Umsatz As Global.System.Nullable(Of Decimal), _ ByVal bb_Anpsprechpartner As String, _ ByVal bb_Telefon As String, _ ByVal bb_Mail As String, _ ByVal bb_FuhrparkEigentum As String, _ ByVal bb_FuhrparkLeasing As String, _ ByVal bb_LKW_Plane As Boolean, _ ByVal bb_LKW_Kuehltranporte As Boolean, _ ByVal bb_LKW_Sondertransporte As Boolean, _ ByVal bb_LKW_Sprinter As Boolean, _ ByVal bb_LKW_SiloTank As Boolean, _ ByVal bb_Auftraggeber As String, _ ByVal bb_Route As String, _ ByVal bb_DerzeitigerLieferant As String, _ ByVal bb_Zufrieden As Global.System.Nullable(Of Boolean), _ ByVal bb_ZufriedenNEIN As String, _ ByVal bb_Garantie As String, _ ByVal bb_Interesse_Zollabfertigung As Boolean, _ ByVal bb_Interesse_Brexit As Boolean, _ ByVal bb_Interesse_Parkplatz As Boolean, _ ByVal bb_Interesse_LagerUmschlag As Boolean, _ ByVal bb_Interesse_Rola As Boolean, _ ByVal bb_Interesse_YesMoney As Boolean, _ ByVal bb_Interesse_Ferry As Boolean, _ ByVal bb_Vermerk As String, _ ByVal Original_bb_Id As Integer, _ ByVal Original_bb_DatumErfassung As Date, _ ByVal Original_bb_DatumBesuch As Date, _ ByVal Original_bb_Sachbearbeiter As String, _ ByVal Original_bb_SachbearbeiterId As Integer, _ ByVal Original_bb_Kontaktart As String, _ ByVal Original_bb_Kunde As String, _ ByVal Original_bb_KundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_bb_Geschaeftsfuehrer As String, _ ByVal Original_bb_Umsatz As Global.System.Nullable(Of Decimal), _ ByVal Original_bb_Anpsprechpartner As String, _ ByVal Original_bb_Telefon As String, _ ByVal Original_bb_Mail As String, _ ByVal Original_bb_FuhrparkEigentum As String, _ ByVal Original_bb_FuhrparkLeasing As String, _ ByVal Original_bb_LKW_Plane As Boolean, _ ByVal Original_bb_LKW_Kuehltranporte As Boolean, _ ByVal Original_bb_LKW_Sondertransporte As Boolean, _ ByVal Original_bb_LKW_Sprinter As Boolean, _ ByVal Original_bb_LKW_SiloTank As Boolean, _ ByVal Original_bb_DerzeitigerLieferant As String, _ ByVal Original_bb_Zufrieden As Global.System.Nullable(Of Boolean), _ ByVal Original_bb_Interesse_Zollabfertigung As Boolean, _ ByVal Original_bb_Interesse_Brexit As Boolean, _ ByVal Original_bb_Interesse_Parkplatz As Boolean, _ ByVal Original_bb_Interesse_LagerUmschlag As Boolean, _ ByVal Original_bb_Interesse_Rola As Boolean, _ ByVal Original_bb_Interesse_YesMoney As Boolean, _ ByVal Original_bb_Interesse_Ferry As Boolean) As Integer Return Me.Update(bb_Firma, bb_DatumErfassung, bb_DatumBesuch, bb_Sachbearbeiter, bb_SachbearbeiterId, bb_Teilnehmer, bb_Kontaktart, bb_Kunde, bb_KundenNr, bb_Geschaeftsfuehrer, bb_Umsatz, bb_Anpsprechpartner, bb_Telefon, bb_Mail, bb_FuhrparkEigentum, bb_FuhrparkLeasing, bb_LKW_Plane, bb_LKW_Kuehltranporte, bb_LKW_Sondertransporte, bb_LKW_Sprinter, bb_LKW_SiloTank, bb_Auftraggeber, bb_Route, bb_DerzeitigerLieferant, bb_Zufrieden, bb_ZufriedenNEIN, bb_Garantie, bb_Interesse_Zollabfertigung, bb_Interesse_Brexit, bb_Interesse_Parkplatz, bb_Interesse_LagerUmschlag, bb_Interesse_Rola, bb_Interesse_YesMoney, bb_Interesse_Ferry, bb_Vermerk, Original_bb_Id, Original_bb_DatumErfassung, Original_bb_DatumBesuch, Original_bb_Sachbearbeiter, Original_bb_SachbearbeiterId, Original_bb_Kontaktart, Original_bb_Kunde, Original_bb_KundenNr, Original_bb_Geschaeftsfuehrer, Original_bb_Umsatz, Original_bb_Anpsprechpartner, Original_bb_Telefon, Original_bb_Mail, Original_bb_FuhrparkEigentum, Original_bb_FuhrparkLeasing, Original_bb_LKW_Plane, Original_bb_LKW_Kuehltranporte, Original_bb_LKW_Sondertransporte, Original_bb_LKW_Sprinter, Original_bb_LKW_SiloTank, Original_bb_DerzeitigerLieferant, Original_bb_Zufrieden, Original_bb_Interesse_Zollabfertigung, Original_bb_Interesse_Brexit, Original_bb_Interesse_Parkplatz, Original_bb_Interesse_LagerUmschlag, Original_bb_Interesse_Rola, Original_bb_Interesse_YesMoney, Original_bb_Interesse_Ferry, Original_bb_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblBonitaetsauskunftTableAdapter 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 = "tblBonitaetsauskunft" tableMapping.ColumnMappings.Add("ba_id", "ba_id") tableMapping.ColumnMappings.Add("ba_KundenNr", "ba_KundenNr") tableMapping.ColumnMappings.Add("ba_Datum", "ba_Datum") tableMapping.ColumnMappings.Add("ba_MaId", "ba_MaId") tableMapping.ColumnMappings.Add("ba_Sachbearbeiter", "ba_Sachbearbeiter") tableMapping.ColumnMappings.Add("ba_CRArt", "ba_CRArt") tableMapping.ColumnMappings.Add("ba_CRAnsprechpartnerHerrFrau", "ba_CRAnsprechpartnerHerrFrau") tableMapping.ColumnMappings.Add("ba_CRAnsprechpartner", "ba_CRAnsprechpartner") tableMapping.ColumnMappings.Add("ba_Firma", "ba_Firma") tableMapping.ColumnMappings.Add("ba_Adresse1", "ba_Adresse1") tableMapping.ColumnMappings.Add("ba_Adresse2", "ba_Adresse2") tableMapping.ColumnMappings.Add("ba_LetztesBearbeitungsDatum", "ba_LetztesBearbeitungsDatum") tableMapping.ColumnMappings.Add("ba_BonitaetsIndex", "ba_BonitaetsIndex") tableMapping.ColumnMappings.Add("ba_CreditSaveBonitaetsIndex", "ba_CreditSaveBonitaetsIndex") tableMapping.ColumnMappings.Add("ba_CreditSaveBonitaetsScore", "ba_CreditSaveBonitaetsScore") tableMapping.ColumnMappings.Add("ba_GruendundsDatum", "ba_GruendundsDatum") tableMapping.ColumnMappings.Add("ba_Umsatz", "ba_Umsatz") tableMapping.ColumnMappings.Add("ba_Mitarbeiter", "ba_Mitarbeiter") tableMapping.ColumnMappings.Add("ba_Bankverbindung", "ba_Bankverbindung") tableMapping.ColumnMappings.Add("ba_Hoechstkredit", "ba_Hoechstkredit") tableMapping.ColumnMappings.Add("ba_Zahlungsweise", "ba_Zahlungsweise") tableMapping.ColumnMappings.Add("ba_GFName", "ba_GFName") tableMapping.ColumnMappings.Add("ba_Sonstiges", "ba_Sonstiges") tableMapping.ColumnMappings.Add("ba_Risikostufe", "ba_Risikostufe") tableMapping.ColumnMappings.Add("ba_CreditSaveRisikoklasse", "ba_CreditSaveRisikoklasse") tableMapping.ColumnMappings.Add("ba_Pruefungstool", "ba_Pruefungstool") tableMapping.ColumnMappings.Add("ba_datenarchivId", "ba_datenarchivId") tableMapping.ColumnMappings.Add("ba_GSName", "ba_GSName") tableMapping.ColumnMappings.Add("ba_Geschaeftszweck", "ba_Geschaeftszweck") tableMapping.ColumnMappings.Add("ba_UID", "ba_UID") tableMapping.ColumnMappings.Add("ba_forcedRequest", "ba_forcedRequest") tableMapping.ColumnMappings.Add("ba_CScounterBeforeRequest", "ba_CScounterBeforeRequest") tableMapping.ColumnMappings.Add("ba_CScounterAfterRequest", "ba_CScounterAfterRequest") tableMapping.ColumnMappings.Add("ba_CSmax", "ba_CSmax") tableMapping.ColumnMappings.Add("ba_CScountry", "ba_CScountry") 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].[tblBonitaetsauskunft] WHERE (([ba_id] = @Original_ba_id) AND ("& _ "[ba_KundenNr] = @Original_ba_KundenNr) AND ([ba_Datum] = @Original_ba_Datum) AND"& _ " ((@IsNull_ba_MaId = 1 AND [ba_MaId] IS NULL) OR ([ba_MaId] = @Original_ba_MaId)"& _ ") AND ([ba_Sachbearbeiter] = @Original_ba_Sachbearbeiter) AND ([ba_CRArt] = @Ori"& _ "ginal_ba_CRArt) AND ([ba_CRAnsprechpartnerHerrFrau] = @Original_ba_CRAnsprechpar"& _ "tnerHerrFrau) AND ([ba_CRAnsprechpartner] = @Original_ba_CRAnsprechpartner) AND "& _ "([ba_Firma] = @Original_ba_Firma) AND ([ba_Adresse1] = @Original_ba_Adresse1) AN"& _ "D ([ba_Adresse2] = @Original_ba_Adresse2) AND ((@IsNull_ba_LetztesBearbeitungsDa"& _ "tum = 1 AND [ba_LetztesBearbeitungsDatum] IS NULL) OR ([ba_LetztesBearbeitungsDa"& _ "tum] = @Original_ba_LetztesBearbeitungsDatum)) AND ((@IsNull_ba_BonitaetsIndex ="& _ " 1 AND [ba_BonitaetsIndex] IS NULL) OR ([ba_BonitaetsIndex] = @Original_ba_Bonit"& _ "aetsIndex)) AND ((@IsNull_ba_CreditSaveBonitaetsIndex = 1 AND [ba_CreditSaveBoni"& _ "taetsIndex] IS NULL) OR ([ba_CreditSaveBonitaetsIndex] = @Original_ba_CreditSave"& _ "BonitaetsIndex)) AND ((@IsNull_ba_CreditSaveBonitaetsScore = 1 AND [ba_CreditSav"& _ "eBonitaetsScore] IS NULL) OR ([ba_CreditSaveBonitaetsScore] = @Original_ba_Credi"& _ "tSaveBonitaetsScore)) AND ((@IsNull_ba_GruendundsDatum = 1 AND [ba_GruendundsDat"& _ "um] IS NULL) OR ([ba_GruendundsDatum] = @Original_ba_GruendundsDatum)) AND ((@Is"& _ "Null_ba_Umsatz = 1 AND [ba_Umsatz] IS NULL) OR ([ba_Umsatz] = @Original_ba_Umsat"& _ "z)) AND ((@IsNull_ba_Mitarbeiter = 1 AND [ba_Mitarbeiter] IS NULL) OR ([ba_Mitar"& _ "beiter] = @Original_ba_Mitarbeiter)) AND ([ba_Bankverbindung] = @Original_ba_Ban"& _ "kverbindung) AND ((@IsNull_ba_Hoechstkredit = 1 AND [ba_Hoechstkredit] IS NULL) "& _ "OR ([ba_Hoechstkredit] = @Original_ba_Hoechstkredit)) AND ([ba_Zahlungsweise] = "& _ "@Original_ba_Zahlungsweise) AND ([ba_GFName] = @Original_ba_GFName) AND ([ba_Son"& _ "stiges] = @Original_ba_Sonstiges) AND ((@IsNull_ba_Risikostufe = 1 AND [ba_Risik"& _ "ostufe] IS NULL) OR ([ba_Risikostufe] = @Original_ba_Risikostufe)) AND ((@IsNull"& _ "_ba_CreditSaveRisikoklasse = 1 AND [ba_CreditSaveRisikoklasse] IS NULL) OR ([ba_"& _ "CreditSaveRisikoklasse] = @Original_ba_CreditSaveRisikoklasse)) AND ((@IsNull_ba"& _ "_Pruefungstool = 1 AND [ba_Pruefungstool] IS NULL) OR ([ba_Pruefungstool] = @Ori"& _ "ginal_ba_Pruefungstool)) AND ((@IsNull_ba_datenarchivId = 1 AND [ba_datenarchivI"& _ "d] IS NULL) OR ([ba_datenarchivId] = @Original_ba_datenarchivId)) AND ((@IsNull_"& _ "ba_GSName = 1 AND [ba_GSName] IS NULL) OR ([ba_GSName] = @Original_ba_GSName)) A"& _ "ND ((@IsNull_ba_UID = 1 AND [ba_UID] IS NULL) OR ([ba_UID] = @Original_ba_UID)) "& _ "AND ([ba_forcedRequest] = @Original_ba_forcedRequest) AND ((@IsNull_ba_CScounter"& _ "BeforeRequest = 1 AND [ba_CScounterBeforeRequest] IS NULL) OR ([ba_CScounterBefo"& _ "reRequest] = @Original_ba_CScounterBeforeRequest)) AND ((@IsNull_ba_CScounterAft"& _ "erRequest = 1 AND [ba_CScounterAfterRequest] IS NULL) OR ([ba_CScounterAfterRequ"& _ "est] = @Original_ba_CScounterAfterRequest)) AND ((@IsNull_ba_CSmax = 1 AND [ba_C"& _ "Smax] IS NULL) OR ([ba_CSmax] = @Original_ba_CSmax)) AND ((@IsNull_ba_CScountry "& _ "= 1 AND [ba_CScountry] IS NULL) OR ([ba_CScountry] = @Original_ba_CScountry)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_MaId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_MaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CRArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CRAnsprechpartnerHerrFrau", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRAnsprechpartnerHerrFrau", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CRAnsprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRAnsprechpartner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Adresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Adresse1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Adresse2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_LetztesBearbeitungsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_LetztesBearbeitungsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_LetztesBearbeitungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_LetztesBearbeitungsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_BonitaetsIndex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_BonitaetsIndex", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_BonitaetsIndex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_BonitaetsIndex", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_GruendundsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GruendundsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_GruendundsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GruendundsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_Umsatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Umsatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Umsatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Umsatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_Mitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Mitarbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Mitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Mitarbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Bankverbindung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Bankverbindung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_Hoechstkredit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Hoechstkredit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Hoechstkredit", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Hoechstkredit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Zahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Zahlungsweise", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_GFName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GFName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Sonstiges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Sonstiges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_Risikostufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Risikostufe", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Risikostufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Risikostufe", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CreditSaveRisikoklasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveRisikoklasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CreditSaveRisikoklasse", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveRisikoklasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_Pruefungstool", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Pruefungstool", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Pruefungstool", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Pruefungstool", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_datenarchivId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_datenarchivId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_GSName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GSName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_GSName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GSName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_forcedRequest", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_forcedRequest", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CScounterBeforeRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterBeforeRequest", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CScounterBeforeRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterBeforeRequest", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CScounterAfterRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterAfterRequest", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CScounterAfterRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterAfterRequest", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CSmax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CSmax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CSmax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CSmax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CScountry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScountry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CScountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScountry", 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].[tblBonitaetsauskunft] ([ba_KundenNr], [ba_Datum], [ba_MaId], ["& _ "ba_Sachbearbeiter], [ba_CRArt], [ba_CRAnsprechpartnerHerrFrau], [ba_CRAnsprechpa"& _ "rtner], [ba_Firma], [ba_Adresse1], [ba_Adresse2], [ba_LetztesBearbeitungsDatum],"& _ " [ba_BonitaetsIndex], [ba_CreditSaveBonitaetsIndex], [ba_CreditSaveBonitaetsScor"& _ "e], [ba_GruendundsDatum], [ba_Umsatz], [ba_Mitarbeiter], [ba_Bankverbindung], [b"& _ "a_Hoechstkredit], [ba_Zahlungsweise], [ba_GFName], [ba_Sonstiges], [ba_Risikostu"& _ "fe], [ba_CreditSaveRisikoklasse], [ba_Pruefungstool], [ba_datenarchivId], [ba_GS"& _ "Name], [ba_Geschaeftszweck], [ba_UID], [ba_forcedRequest], [ba_CScounterBeforeRe"& _ "quest], [ba_CScounterAfterRequest], [ba_CSmax], [ba_CScountry]) VALUES (@ba_Kund"& _ "enNr, @ba_Datum, @ba_MaId, @ba_Sachbearbeiter, @ba_CRArt, @ba_CRAnsprechpartnerH"& _ "errFrau, @ba_CRAnsprechpartner, @ba_Firma, @ba_Adresse1, @ba_Adresse2, @ba_Letzt"& _ "esBearbeitungsDatum, @ba_BonitaetsIndex, @ba_CreditSaveBonitaetsIndex, @ba_Credi"& _ "tSaveBonitaetsScore, @ba_GruendundsDatum, @ba_Umsatz, @ba_Mitarbeiter, @ba_Bankv"& _ "erbindung, @ba_Hoechstkredit, @ba_Zahlungsweise, @ba_GFName, @ba_Sonstiges, @ba_"& _ "Risikostufe, @ba_CreditSaveRisikoklasse, @ba_Pruefungstool, @ba_datenarchivId, @"& _ "ba_GSName, @ba_Geschaeftszweck, @ba_UID, @ba_forcedRequest, @ba_CScounterBeforeR"& _ "equest, @ba_CScounterAfterRequest, @ba_CSmax, @ba_CScountry);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ba_id, ba_"& _ "KundenNr, ba_Datum, ba_MaId, ba_Sachbearbeiter, ba_CRArt, ba_CRAnsprechpartnerHe"& _ "rrFrau, ba_CRAnsprechpartner, ba_Firma, ba_Adresse1, ba_Adresse2, ba_LetztesBear"& _ "beitungsDatum, ba_BonitaetsIndex, ba_CreditSaveBonitaetsIndex, ba_CreditSaveBoni"& _ "taetsScore, ba_GruendundsDatum, ba_Umsatz, ba_Mitarbeiter, ba_Bankverbindung, ba"& _ "_Hoechstkredit, ba_Zahlungsweise, ba_GFName, ba_Sonstiges, ba_Risikostufe, ba_Cr"& _ "editSaveRisikoklasse, ba_Pruefungstool, ba_datenarchivId, ba_GSName, ba_Geschaef"& _ "tszweck, ba_UID, ba_forcedRequest, ba_CScounterBeforeRequest, ba_CScounterAfterR"& _ "equest, ba_CSmax, ba_CScountry FROM tblBonitaetsauskunft WHERE (ba_id = SCOPE_ID"& _ "ENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_MaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CRArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CRAnsprechpartnerHerrFrau", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRAnsprechpartnerHerrFrau", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CRAnsprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRAnsprechpartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Adresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Adresse1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Adresse2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_LetztesBearbeitungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_LetztesBearbeitungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_BonitaetsIndex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_BonitaetsIndex", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_GruendundsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GruendundsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Umsatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Umsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Mitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Mitarbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Bankverbindung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Bankverbindung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Hoechstkredit", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Hoechstkredit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Zahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Zahlungsweise", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_GFName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GFName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Sonstiges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Sonstiges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Risikostufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Risikostufe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CreditSaveRisikoklasse", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveRisikoklasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Pruefungstool", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Pruefungstool", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_datenarchivId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_GSName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GSName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Geschaeftszweck", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Geschaeftszweck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_forcedRequest", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_forcedRequest", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CScounterBeforeRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterBeforeRequest", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CScounterAfterRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterAfterRequest", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CSmax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CSmax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CScountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScountry", 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].[tblBonitaetsauskunft] SET [ba_KundenNr] = @ba_KundenNr, [ba_Datum] "& _ "= @ba_Datum, [ba_MaId] = @ba_MaId, [ba_Sachbearbeiter] = @ba_Sachbearbeiter, [ba"& _ "_CRArt] = @ba_CRArt, [ba_CRAnsprechpartnerHerrFrau] = @ba_CRAnsprechpartnerHerrF"& _ "rau, [ba_CRAnsprechpartner] = @ba_CRAnsprechpartner, [ba_Firma] = @ba_Firma, [ba"& _ "_Adresse1] = @ba_Adresse1, [ba_Adresse2] = @ba_Adresse2, [ba_LetztesBearbeitungs"& _ "Datum] = @ba_LetztesBearbeitungsDatum, [ba_BonitaetsIndex] = @ba_BonitaetsIndex,"& _ " [ba_CreditSaveBonitaetsIndex] = @ba_CreditSaveBonitaetsIndex, [ba_CreditSaveBon"& _ "itaetsScore] = @ba_CreditSaveBonitaetsScore, [ba_GruendundsDatum] = @ba_Gruendun"& _ "dsDatum, [ba_Umsatz] = @ba_Umsatz, [ba_Mitarbeiter] = @ba_Mitarbeiter, [ba_Bankv"& _ "erbindung] = @ba_Bankverbindung, [ba_Hoechstkredit] = @ba_Hoechstkredit, [ba_Zah"& _ "lungsweise] = @ba_Zahlungsweise, [ba_GFName] = @ba_GFName, [ba_Sonstiges] = @ba_"& _ "Sonstiges, [ba_Risikostufe] = @ba_Risikostufe, [ba_CreditSaveRisikoklasse] = @ba"& _ "_CreditSaveRisikoklasse, [ba_Pruefungstool] = @ba_Pruefungstool, [ba_datenarchiv"& _ "Id] = @ba_datenarchivId, [ba_GSName] = @ba_GSName, [ba_Geschaeftszweck] = @ba_Ge"& _ "schaeftszweck, [ba_UID] = @ba_UID, [ba_forcedRequest] = @ba_forcedRequest, [ba_C"& _ "ScounterBeforeRequest] = @ba_CScounterBeforeRequest, [ba_CScounterAfterRequest] "& _ "= @ba_CScounterAfterRequest, [ba_CSmax] = @ba_CSmax, [ba_CScountry] = @ba_CScoun"& _ "try WHERE (([ba_id] = @Original_ba_id) AND ([ba_KundenNr] = @Original_ba_KundenN"& _ "r) AND ([ba_Datum] = @Original_ba_Datum) AND ((@IsNull_ba_MaId = 1 AND [ba_MaId]"& _ " IS NULL) OR ([ba_MaId] = @Original_ba_MaId)) AND ([ba_Sachbearbeiter] = @Origin"& _ "al_ba_Sachbearbeiter) AND ([ba_CRArt] = @Original_ba_CRArt) AND ([ba_CRAnsprechp"& _ "artnerHerrFrau] = @Original_ba_CRAnsprechpartnerHerrFrau) AND ([ba_CRAnsprechpar"& _ "tner] = @Original_ba_CRAnsprechpartner) AND ([ba_Firma] = @Original_ba_Firma) AN"& _ "D ([ba_Adresse1] = @Original_ba_Adresse1) AND ([ba_Adresse2] = @Original_ba_Adre"& _ "sse2) AND ((@IsNull_ba_LetztesBearbeitungsDatum = 1 AND [ba_LetztesBearbeitungsD"& _ "atum] IS NULL) OR ([ba_LetztesBearbeitungsDatum] = @Original_ba_LetztesBearbeitu"& _ "ngsDatum)) AND ((@IsNull_ba_BonitaetsIndex = 1 AND [ba_BonitaetsIndex] IS NULL) "& _ "OR ([ba_BonitaetsIndex] = @Original_ba_BonitaetsIndex)) AND ((@IsNull_ba_CreditS"& _ "aveBonitaetsIndex = 1 AND [ba_CreditSaveBonitaetsIndex] IS NULL) OR ([ba_CreditS"& _ "aveBonitaetsIndex] = @Original_ba_CreditSaveBonitaetsIndex)) AND ((@IsNull_ba_Cr"& _ "editSaveBonitaetsScore = 1 AND [ba_CreditSaveBonitaetsScore] IS NULL) OR ([ba_Cr"& _ "editSaveBonitaetsScore] = @Original_ba_CreditSaveBonitaetsScore)) AND ((@IsNull_"& _ "ba_GruendundsDatum = 1 AND [ba_GruendundsDatum] IS NULL) OR ([ba_GruendundsDatum"& _ "] = @Original_ba_GruendundsDatum)) AND ((@IsNull_ba_Umsatz = 1 AND [ba_Umsatz] I"& _ "S NULL) OR ([ba_Umsatz] = @Original_ba_Umsatz)) AND ((@IsNull_ba_Mitarbeiter = 1"& _ " AND [ba_Mitarbeiter] IS NULL) OR ([ba_Mitarbeiter] = @Original_ba_Mitarbeiter))"& _ " AND ([ba_Bankverbindung] = @Original_ba_Bankverbindung) AND ((@IsNull_ba_Hoechs"& _ "tkredit = 1 AND [ba_Hoechstkredit] IS NULL) OR ([ba_Hoechstkredit] = @Original_b"& _ "a_Hoechstkredit)) AND ([ba_Zahlungsweise] = @Original_ba_Zahlungsweise) AND ([ba"& _ "_GFName] = @Original_ba_GFName) AND ([ba_Sonstiges] = @Original_ba_Sonstiges) AN"& _ "D ((@IsNull_ba_Risikostufe = 1 AND [ba_Risikostufe] IS NULL) OR ([ba_Risikostufe"& _ "] = @Original_ba_Risikostufe)) AND ((@IsNull_ba_CreditSaveRisikoklasse = 1 AND ["& _ "ba_CreditSaveRisikoklasse] IS NULL) OR ([ba_CreditSaveRisikoklasse] = @Original_"& _ "ba_CreditSaveRisikoklasse)) AND ((@IsNull_ba_Pruefungstool = 1 AND [ba_Pruefungs"& _ "tool] IS NULL) OR ([ba_Pruefungstool] = @Original_ba_Pruefungstool)) AND ((@IsNu"& _ "ll_ba_datenarchivId = 1 AND [ba_datenarchivId] IS NULL) OR ([ba_datenarchivId] ="& _ " @Original_ba_datenarchivId)) AND ((@IsNull_ba_GSName = 1 AND [ba_GSName] IS NUL"& _ "L) OR ([ba_GSName] = @Original_ba_GSName)) AND ((@IsNull_ba_UID = 1 AND [ba_UID]"& _ " IS NULL) OR ([ba_UID] = @Original_ba_UID)) AND ([ba_forcedRequest] = @Original_"& _ "ba_forcedRequest) AND ((@IsNull_ba_CScounterBeforeRequest = 1 AND [ba_CScounterB"& _ "eforeRequest] IS NULL) OR ([ba_CScounterBeforeRequest] = @Original_ba_CScounterB"& _ "eforeRequest)) AND ((@IsNull_ba_CScounterAfterRequest = 1 AND [ba_CScounterAfter"& _ "Request] IS NULL) OR ([ba_CScounterAfterRequest] = @Original_ba_CScounterAfterRe"& _ "quest)) AND ((@IsNull_ba_CSmax = 1 AND [ba_CSmax] IS NULL) OR ([ba_CSmax] = @Ori"& _ "ginal_ba_CSmax)) AND ((@IsNull_ba_CScountry = 1 AND [ba_CScountry] IS NULL) OR ("& _ "[ba_CScountry] = @Original_ba_CScountry)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ba_id, ba_KundenNr, ba_Datum"& _ ", ba_MaId, ba_Sachbearbeiter, ba_CRArt, ba_CRAnsprechpartnerHerrFrau, ba_CRAnspr"& _ "echpartner, ba_Firma, ba_Adresse1, ba_Adresse2, ba_LetztesBearbeitungsDatum, ba_"& _ "BonitaetsIndex, ba_CreditSaveBonitaetsIndex, ba_CreditSaveBonitaetsScore, ba_Gru"& _ "endundsDatum, ba_Umsatz, ba_Mitarbeiter, ba_Bankverbindung, ba_Hoechstkredit, ba"& _ "_Zahlungsweise, ba_GFName, ba_Sonstiges, ba_Risikostufe, ba_CreditSaveRisikoklas"& _ "se, ba_Pruefungstool, ba_datenarchivId, ba_GSName, ba_Geschaeftszweck, ba_UID, b"& _ "a_forcedRequest, ba_CScounterBeforeRequest, ba_CScounterAfterRequest, ba_CSmax, "& _ "ba_CScountry FROM tblBonitaetsauskunft WHERE (ba_id = @ba_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_MaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CRArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CRAnsprechpartnerHerrFrau", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRAnsprechpartnerHerrFrau", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CRAnsprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRAnsprechpartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Adresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Adresse1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Adresse2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_LetztesBearbeitungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_LetztesBearbeitungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_BonitaetsIndex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_BonitaetsIndex", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_GruendundsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GruendundsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Umsatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Umsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Mitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Mitarbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Bankverbindung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Bankverbindung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Hoechstkredit", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Hoechstkredit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Zahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Zahlungsweise", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_GFName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GFName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Sonstiges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Sonstiges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Risikostufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Risikostufe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CreditSaveRisikoklasse", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveRisikoklasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Pruefungstool", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Pruefungstool", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_datenarchivId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_GSName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GSName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_Geschaeftszweck", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Geschaeftszweck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_forcedRequest", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_forcedRequest", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CScounterBeforeRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterBeforeRequest", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CScounterAfterRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterAfterRequest", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CSmax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CSmax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_CScountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_MaId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_MaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CRArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CRAnsprechpartnerHerrFrau", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRAnsprechpartnerHerrFrau", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CRAnsprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CRAnsprechpartner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Adresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Adresse1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Adresse2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_LetztesBearbeitungsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_LetztesBearbeitungsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_LetztesBearbeitungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_LetztesBearbeitungsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_BonitaetsIndex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_BonitaetsIndex", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_BonitaetsIndex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_BonitaetsIndex", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_GruendundsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GruendundsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_GruendundsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GruendundsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_Umsatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Umsatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Umsatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Umsatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_Mitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Mitarbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Mitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Mitarbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Bankverbindung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Bankverbindung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_Hoechstkredit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Hoechstkredit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Hoechstkredit", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Hoechstkredit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Zahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Zahlungsweise", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_GFName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GFName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Sonstiges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Sonstiges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_Risikostufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Risikostufe", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Risikostufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Risikostufe", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CreditSaveRisikoklasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveRisikoklasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CreditSaveRisikoklasse", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CreditSaveRisikoklasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_Pruefungstool", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Pruefungstool", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_Pruefungstool", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_Pruefungstool", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_datenarchivId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_datenarchivId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_GSName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GSName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_GSName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_GSName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_forcedRequest", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_forcedRequest", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CScounterBeforeRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterBeforeRequest", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CScounterBeforeRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterBeforeRequest", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CScounterAfterRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterAfterRequest", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CScounterAfterRequest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScounterAfterRequest", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CSmax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CSmax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CSmax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CSmax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ba_CScountry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScountry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ba_CScountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_CScountry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ba_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ba_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ba_id, ba_KundenNr, ba_Datum, ba_MaId, ba_Sachbearbeiter, ba_CRArt, ba_CRA"& _ "nsprechpartnerHerrFrau, ba_CRAnsprechpartner, ba_Firma, ba_Adresse1, ba_Adresse2"& _ ", ba_LetztesBearbeitungsDatum, ba_BonitaetsIndex, ba_CreditSaveBonitaetsIndex, b"& _ "a_CreditSaveBonitaetsScore, ba_GruendundsDatum, ba_Umsatz, ba_Mitarbeiter, ba_Ba"& _ "nkverbindung, ba_Hoechstkredit, ba_Zahlungsweise, ba_GFName, ba_Sonstiges, ba_Ri"& _ "sikostufe, ba_CreditSaveRisikoklasse, ba_Pruefungstool, ba_datenarchivId, ba_GSN"& _ "ame, ba_Geschaeftszweck, ba_UID, ba_forcedRequest, ba_CScounterBeforeRequest, ba"& _ "_CScounterAfterRequest, ba_CSmax, ba_CScountry FROM dbo.tblBonitaetsauskunft" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblBonitaetsauskunftDataTable) 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 VERAGDataSet.tblBonitaetsauskunftDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblBonitaetsauskunftDataTable = New VERAGDataSet.tblBonitaetsauskunftDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblBonitaetsauskunftDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblBonitaetsauskunft") 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_ba_id As Integer, _ ByVal Original_ba_KundenNr As Integer, _ ByVal Original_ba_Datum As Date, _ ByVal Original_ba_MaId As Global.System.Nullable(Of Integer), _ ByVal Original_ba_Sachbearbeiter As String, _ ByVal Original_ba_CRArt As String, _ ByVal Original_ba_CRAnsprechpartnerHerrFrau As String, _ ByVal Original_ba_CRAnsprechpartner As String, _ ByVal Original_ba_Firma As String, _ ByVal Original_ba_Adresse1 As String, _ ByVal Original_ba_Adresse2 As String, _ ByVal Original_ba_LetztesBearbeitungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_ba_BonitaetsIndex As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal Original_ba_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal Original_ba_GruendundsDatum As Global.System.Nullable(Of Date), _ ByVal Original_ba_Umsatz As String, _ ByVal Original_ba_Mitarbeiter As Global.System.Nullable(Of Integer), _ ByVal Original_ba_Bankverbindung As String, _ ByVal Original_ba_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal Original_ba_Zahlungsweise As String, _ ByVal Original_ba_GFName As String, _ ByVal Original_ba_Sonstiges As String, _ ByVal Original_ba_Risikostufe As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CreditSaveRisikoklasse As String, _ ByVal Original_ba_Pruefungstool As String, _ ByVal Original_ba_datenarchivId As Global.System.Nullable(Of Integer), _ ByVal Original_ba_GSName As String, _ ByVal Original_ba_UID As String, _ ByVal Original_ba_forcedRequest As Boolean, _ ByVal Original_ba_CScounterBeforeRequest As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CScounterAfterRequest As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CSmax As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CScountry As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ba_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ba_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ba_Datum,Date) If (Original_ba_MaId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ba_MaId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_ba_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Sachbearbeiter") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ba_Sachbearbeiter,String) End If If (Original_ba_CRArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_CRArt") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ba_CRArt,String) End If If (Original_ba_CRAnsprechpartnerHerrFrau Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_CRAnsprechpartnerHerrFrau") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ba_CRAnsprechpartnerHerrFrau,String) End If If (Original_ba_CRAnsprechpartner Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_CRAnsprechpartner") Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ba_CRAnsprechpartner,String) End If If (Original_ba_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Firma") Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ba_Firma,String) End If If (Original_ba_Adresse1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Adresse1") Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ba_Adresse1,String) End If If (Original_ba_Adresse2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Adresse2") Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ba_Adresse2,String) End If If (Original_ba_LetztesBearbeitungsDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_ba_LetztesBearbeitungsDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_ba_BonitaetsIndex.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_ba_BonitaetsIndex.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_ba_CreditSaveBonitaetsIndex.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ba_CreditSaveBonitaetsIndex.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_ba_CreditSaveBonitaetsScore.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_ba_CreditSaveBonitaetsScore.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_ba_GruendundsDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_ba_GruendundsDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_ba_Umsatz 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_ba_Umsatz,String) End If If (Original_ba_Mitarbeiter.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_ba_Mitarbeiter.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_ba_Bankverbindung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Bankverbindung") Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_ba_Bankverbindung,String) End If If (Original_ba_Hoechstkredit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_ba_Hoechstkredit.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_ba_Zahlungsweise Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Zahlungsweise") Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_ba_Zahlungsweise,String) End If If (Original_ba_GFName Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_GFName") Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_ba_GFName,String) End If If (Original_ba_Sonstiges Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Sonstiges") Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_ba_Sonstiges,String) End If If (Original_ba_Risikostufe.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_ba_Risikostufe.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_ba_CreditSaveRisikoklasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_ba_CreditSaveRisikoklasse,String) End If If (Original_ba_Pruefungstool Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_ba_Pruefungstool,String) End If If (Original_ba_datenarchivId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_ba_datenarchivId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_ba_GSName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_ba_GSName,String) End If If (Original_ba_UID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_ba_UID,String) End If Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_ba_forcedRequest,Boolean) If (Original_ba_CScounterBeforeRequest.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_ba_CScounterBeforeRequest.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (Original_ba_CScounterAfterRequest.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_ba_CScounterAfterRequest.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Original_ba_CSmax.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_ba_CSmax.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Original_ba_CScountry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_ba_CScountry,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 ba_KundenNr As Integer, _ ByVal ba_Datum As Date, _ ByVal ba_MaId As Global.System.Nullable(Of Integer), _ ByVal ba_Sachbearbeiter As String, _ ByVal ba_CRArt As String, _ ByVal ba_CRAnsprechpartnerHerrFrau As String, _ ByVal ba_CRAnsprechpartner As String, _ ByVal ba_Firma As String, _ ByVal ba_Adresse1 As String, _ ByVal ba_Adresse2 As String, _ ByVal ba_LetztesBearbeitungsDatum As Global.System.Nullable(Of Date), _ ByVal ba_BonitaetsIndex As Global.System.Nullable(Of Integer), _ ByVal ba_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal ba_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal ba_GruendundsDatum As Global.System.Nullable(Of Date), _ ByVal ba_Umsatz As String, _ ByVal ba_Mitarbeiter As Global.System.Nullable(Of Integer), _ ByVal ba_Bankverbindung As String, _ ByVal ba_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal ba_Zahlungsweise As String, _ ByVal ba_GFName As String, _ ByVal ba_Sonstiges As String, _ ByVal ba_Risikostufe As Global.System.Nullable(Of Integer), _ ByVal ba_CreditSaveRisikoklasse As String, _ ByVal ba_Pruefungstool As String, _ ByVal ba_datenarchivId As Global.System.Nullable(Of Integer), _ ByVal ba_GSName As String, _ ByVal ba_Geschaeftszweck As String, _ ByVal ba_UID As String, _ ByVal ba_forcedRequest As Boolean, _ ByVal ba_CScounterBeforeRequest As Global.System.Nullable(Of Integer), _ ByVal ba_CScounterAfterRequest As Global.System.Nullable(Of Integer), _ ByVal ba_CSmax As Global.System.Nullable(Of Integer), _ ByVal ba_CScountry As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ba_KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ba_Datum,Date) If (ba_MaId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(ba_MaId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (ba_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Sachbearbeiter") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ba_Sachbearbeiter,String) End If If (ba_CRArt Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_CRArt") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ba_CRArt,String) End If If (ba_CRAnsprechpartnerHerrFrau Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_CRAnsprechpartnerHerrFrau") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ba_CRAnsprechpartnerHerrFrau,String) End If If (ba_CRAnsprechpartner Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_CRAnsprechpartner") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ba_CRAnsprechpartner,String) End If If (ba_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Firma") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ba_Firma,String) End If If (ba_Adresse1 Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Adresse1") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ba_Adresse1,String) End If If (ba_Adresse2 Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Adresse2") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(ba_Adresse2,String) End If If (ba_LetztesBearbeitungsDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(ba_LetztesBearbeitungsDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (ba_BonitaetsIndex.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(ba_BonitaetsIndex.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (ba_CreditSaveBonitaetsIndex.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(ba_CreditSaveBonitaetsIndex.Value,Double) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (ba_CreditSaveBonitaetsScore.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(ba_CreditSaveBonitaetsScore.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (ba_GruendundsDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(ba_GruendundsDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (ba_Umsatz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(ba_Umsatz,String) End If If (ba_Mitarbeiter.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(ba_Mitarbeiter.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (ba_Bankverbindung Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Bankverbindung") Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(ba_Bankverbindung,String) End If If (ba_Hoechstkredit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(ba_Hoechstkredit.Value,Double) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (ba_Zahlungsweise Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Zahlungsweise") Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(ba_Zahlungsweise,String) End If If (ba_GFName Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_GFName") Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(ba_GFName,String) End If If (ba_Sonstiges Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Sonstiges") Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(ba_Sonstiges,String) End If If (ba_Risikostufe.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(ba_Risikostufe.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (ba_CreditSaveRisikoklasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(ba_CreditSaveRisikoklasse,String) End If If (ba_Pruefungstool Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(ba_Pruefungstool,String) End If If (ba_datenarchivId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(ba_datenarchivId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (ba_GSName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(ba_GSName,String) End If If (ba_Geschaeftszweck Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(ba_Geschaeftszweck,String) End If If (ba_UID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(ba_UID,String) End If Me.Adapter.InsertCommand.Parameters(29).Value = CType(ba_forcedRequest,Boolean) If (ba_CScounterBeforeRequest.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(ba_CScounterBeforeRequest.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (ba_CScounterAfterRequest.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(ba_CScounterAfterRequest.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (ba_CSmax.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(ba_CSmax.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (ba_CScountry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(ba_CScountry,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 ba_KundenNr As Integer, _ ByVal ba_Datum As Date, _ ByVal ba_MaId As Global.System.Nullable(Of Integer), _ ByVal ba_Sachbearbeiter As String, _ ByVal ba_CRArt As String, _ ByVal ba_CRAnsprechpartnerHerrFrau As String, _ ByVal ba_CRAnsprechpartner As String, _ ByVal ba_Firma As String, _ ByVal ba_Adresse1 As String, _ ByVal ba_Adresse2 As String, _ ByVal ba_LetztesBearbeitungsDatum As Global.System.Nullable(Of Date), _ ByVal ba_BonitaetsIndex As Global.System.Nullable(Of Integer), _ ByVal ba_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal ba_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal ba_GruendundsDatum As Global.System.Nullable(Of Date), _ ByVal ba_Umsatz As String, _ ByVal ba_Mitarbeiter As Global.System.Nullable(Of Integer), _ ByVal ba_Bankverbindung As String, _ ByVal ba_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal ba_Zahlungsweise As String, _ ByVal ba_GFName As String, _ ByVal ba_Sonstiges As String, _ ByVal ba_Risikostufe As Global.System.Nullable(Of Integer), _ ByVal ba_CreditSaveRisikoklasse As String, _ ByVal ba_Pruefungstool As String, _ ByVal ba_datenarchivId As Global.System.Nullable(Of Integer), _ ByVal ba_GSName As String, _ ByVal ba_Geschaeftszweck As String, _ ByVal ba_UID As String, _ ByVal ba_forcedRequest As Boolean, _ ByVal ba_CScounterBeforeRequest As Global.System.Nullable(Of Integer), _ ByVal ba_CScounterAfterRequest As Global.System.Nullable(Of Integer), _ ByVal ba_CSmax As Global.System.Nullable(Of Integer), _ ByVal ba_CScountry As String, _ ByVal Original_ba_id As Integer, _ ByVal Original_ba_KundenNr As Integer, _ ByVal Original_ba_Datum As Date, _ ByVal Original_ba_MaId As Global.System.Nullable(Of Integer), _ ByVal Original_ba_Sachbearbeiter As String, _ ByVal Original_ba_CRArt As String, _ ByVal Original_ba_CRAnsprechpartnerHerrFrau As String, _ ByVal Original_ba_CRAnsprechpartner As String, _ ByVal Original_ba_Firma As String, _ ByVal Original_ba_Adresse1 As String, _ ByVal Original_ba_Adresse2 As String, _ ByVal Original_ba_LetztesBearbeitungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_ba_BonitaetsIndex As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal Original_ba_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal Original_ba_GruendundsDatum As Global.System.Nullable(Of Date), _ ByVal Original_ba_Umsatz As String, _ ByVal Original_ba_Mitarbeiter As Global.System.Nullable(Of Integer), _ ByVal Original_ba_Bankverbindung As String, _ ByVal Original_ba_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal Original_ba_Zahlungsweise As String, _ ByVal Original_ba_GFName As String, _ ByVal Original_ba_Sonstiges As String, _ ByVal Original_ba_Risikostufe As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CreditSaveRisikoklasse As String, _ ByVal Original_ba_Pruefungstool As String, _ ByVal Original_ba_datenarchivId As Global.System.Nullable(Of Integer), _ ByVal Original_ba_GSName As String, _ ByVal Original_ba_UID As String, _ ByVal Original_ba_forcedRequest As Boolean, _ ByVal Original_ba_CScounterBeforeRequest As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CScounterAfterRequest As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CSmax As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CScountry As String, _ ByVal ba_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ba_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ba_Datum,Date) If (ba_MaId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ba_MaId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (ba_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ba_Sachbearbeiter,String) End If If (ba_CRArt Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_CRArt") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ba_CRArt,String) End If If (ba_CRAnsprechpartnerHerrFrau Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_CRAnsprechpartnerHerrFrau") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ba_CRAnsprechpartnerHerrFrau,String) End If If (ba_CRAnsprechpartner Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_CRAnsprechpartner") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ba_CRAnsprechpartner,String) End If If (ba_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Firma") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ba_Firma,String) End If If (ba_Adresse1 Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Adresse1") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ba_Adresse1,String) End If If (ba_Adresse2 Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Adresse2") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ba_Adresse2,String) End If If (ba_LetztesBearbeitungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ba_LetztesBearbeitungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (ba_BonitaetsIndex.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ba_BonitaetsIndex.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (ba_CreditSaveBonitaetsIndex.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ba_CreditSaveBonitaetsIndex.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (ba_CreditSaveBonitaetsScore.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ba_CreditSaveBonitaetsScore.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (ba_GruendundsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ba_GruendundsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (ba_Umsatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ba_Umsatz,String) End If If (ba_Mitarbeiter.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ba_Mitarbeiter.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (ba_Bankverbindung Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Bankverbindung") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ba_Bankverbindung,String) End If If (ba_Hoechstkredit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ba_Hoechstkredit.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (ba_Zahlungsweise Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Zahlungsweise") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ba_Zahlungsweise,String) End If If (ba_GFName Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_GFName") Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(ba_GFName,String) End If If (ba_Sonstiges Is Nothing) Then Throw New Global.System.ArgumentNullException("ba_Sonstiges") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(ba_Sonstiges,String) End If If (ba_Risikostufe.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(ba_Risikostufe.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (ba_CreditSaveRisikoklasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(ba_CreditSaveRisikoklasse,String) End If If (ba_Pruefungstool Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(ba_Pruefungstool,String) End If If (ba_datenarchivId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(ba_datenarchivId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (ba_GSName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(ba_GSName,String) End If If (ba_Geschaeftszweck Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(ba_Geschaeftszweck,String) End If If (ba_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(ba_UID,String) End If Me.Adapter.UpdateCommand.Parameters(29).Value = CType(ba_forcedRequest,Boolean) If (ba_CScounterBeforeRequest.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(ba_CScounterBeforeRequest.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (ba_CScounterAfterRequest.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(ba_CScounterAfterRequest.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (ba_CSmax.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(ba_CSmax.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (ba_CScountry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(ba_CScountry,String) End If Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_ba_id,Integer) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_ba_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_ba_Datum,Date) If (Original_ba_MaId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_ba_MaId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (Original_ba_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_ba_Sachbearbeiter,String) End If If (Original_ba_CRArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_CRArt") Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_ba_CRArt,String) End If If (Original_ba_CRAnsprechpartnerHerrFrau Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_CRAnsprechpartnerHerrFrau") Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_ba_CRAnsprechpartnerHerrFrau,String) End If If (Original_ba_CRAnsprechpartner Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_CRAnsprechpartner") Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_ba_CRAnsprechpartner,String) End If If (Original_ba_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Firma") Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_ba_Firma,String) End If If (Original_ba_Adresse1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Adresse1") Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_ba_Adresse1,String) End If If (Original_ba_Adresse2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Adresse2") Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_ba_Adresse2,String) End If If (Original_ba_LetztesBearbeitungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_ba_LetztesBearbeitungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (Original_ba_BonitaetsIndex.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_ba_BonitaetsIndex.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Original_ba_CreditSaveBonitaetsIndex.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_ba_CreditSaveBonitaetsIndex.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_ba_CreditSaveBonitaetsScore.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_ba_CreditSaveBonitaetsScore.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_ba_GruendundsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_ba_GruendundsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Original_ba_Umsatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_ba_Umsatz,String) End If If (Original_ba_Mitarbeiter.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_ba_Mitarbeiter.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Original_ba_Bankverbindung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Bankverbindung") Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_ba_Bankverbindung,String) End If If (Original_ba_Hoechstkredit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_ba_Hoechstkredit.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (Original_ba_Zahlungsweise Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Zahlungsweise") Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_ba_Zahlungsweise,String) End If If (Original_ba_GFName Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_GFName") Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_ba_GFName,String) End If If (Original_ba_Sonstiges Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ba_Sonstiges") Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_ba_Sonstiges,String) End If If (Original_ba_Risikostufe.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_ba_Risikostufe.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Original_ba_CreditSaveRisikoklasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_ba_CreditSaveRisikoklasse,String) End If If (Original_ba_Pruefungstool Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_ba_Pruefungstool,String) End If If (Original_ba_datenarchivId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_ba_datenarchivId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value End If If (Original_ba_GSName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_ba_GSName,String) End If If (Original_ba_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_ba_UID,String) End If Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_ba_forcedRequest,Boolean) If (Original_ba_CScounterBeforeRequest.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_ba_CScounterBeforeRequest.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value End If If (Original_ba_CScounterAfterRequest.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_ba_CScounterAfterRequest.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (Original_ba_CSmax.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Original_ba_CSmax.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value End If If (Original_ba_CScountry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Original_ba_CScountry,String) End If Me.Adapter.UpdateCommand.Parameters(87).Value = CType(ba_id,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 ba_KundenNr As Integer, _ ByVal ba_Datum As Date, _ ByVal ba_MaId As Global.System.Nullable(Of Integer), _ ByVal ba_Sachbearbeiter As String, _ ByVal ba_CRArt As String, _ ByVal ba_CRAnsprechpartnerHerrFrau As String, _ ByVal ba_CRAnsprechpartner As String, _ ByVal ba_Firma As String, _ ByVal ba_Adresse1 As String, _ ByVal ba_Adresse2 As String, _ ByVal ba_LetztesBearbeitungsDatum As Global.System.Nullable(Of Date), _ ByVal ba_BonitaetsIndex As Global.System.Nullable(Of Integer), _ ByVal ba_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal ba_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal ba_GruendundsDatum As Global.System.Nullable(Of Date), _ ByVal ba_Umsatz As String, _ ByVal ba_Mitarbeiter As Global.System.Nullable(Of Integer), _ ByVal ba_Bankverbindung As String, _ ByVal ba_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal ba_Zahlungsweise As String, _ ByVal ba_GFName As String, _ ByVal ba_Sonstiges As String, _ ByVal ba_Risikostufe As Global.System.Nullable(Of Integer), _ ByVal ba_CreditSaveRisikoklasse As String, _ ByVal ba_Pruefungstool As String, _ ByVal ba_datenarchivId As Global.System.Nullable(Of Integer), _ ByVal ba_GSName As String, _ ByVal ba_Geschaeftszweck As String, _ ByVal ba_UID As String, _ ByVal ba_forcedRequest As Boolean, _ ByVal ba_CScounterBeforeRequest As Global.System.Nullable(Of Integer), _ ByVal ba_CScounterAfterRequest As Global.System.Nullable(Of Integer), _ ByVal ba_CSmax As Global.System.Nullable(Of Integer), _ ByVal ba_CScountry As String, _ ByVal Original_ba_id As Integer, _ ByVal Original_ba_KundenNr As Integer, _ ByVal Original_ba_Datum As Date, _ ByVal Original_ba_MaId As Global.System.Nullable(Of Integer), _ ByVal Original_ba_Sachbearbeiter As String, _ ByVal Original_ba_CRArt As String, _ ByVal Original_ba_CRAnsprechpartnerHerrFrau As String, _ ByVal Original_ba_CRAnsprechpartner As String, _ ByVal Original_ba_Firma As String, _ ByVal Original_ba_Adresse1 As String, _ ByVal Original_ba_Adresse2 As String, _ ByVal Original_ba_LetztesBearbeitungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_ba_BonitaetsIndex As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal Original_ba_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal Original_ba_GruendundsDatum As Global.System.Nullable(Of Date), _ ByVal Original_ba_Umsatz As String, _ ByVal Original_ba_Mitarbeiter As Global.System.Nullable(Of Integer), _ ByVal Original_ba_Bankverbindung As String, _ ByVal Original_ba_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal Original_ba_Zahlungsweise As String, _ ByVal Original_ba_GFName As String, _ ByVal Original_ba_Sonstiges As String, _ ByVal Original_ba_Risikostufe As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CreditSaveRisikoklasse As String, _ ByVal Original_ba_Pruefungstool As String, _ ByVal Original_ba_datenarchivId As Global.System.Nullable(Of Integer), _ ByVal Original_ba_GSName As String, _ ByVal Original_ba_UID As String, _ ByVal Original_ba_forcedRequest As Boolean, _ ByVal Original_ba_CScounterBeforeRequest As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CScounterAfterRequest As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CSmax As Global.System.Nullable(Of Integer), _ ByVal Original_ba_CScountry As String) As Integer Return Me.Update(ba_KundenNr, ba_Datum, ba_MaId, ba_Sachbearbeiter, ba_CRArt, ba_CRAnsprechpartnerHerrFrau, ba_CRAnsprechpartner, ba_Firma, ba_Adresse1, ba_Adresse2, ba_LetztesBearbeitungsDatum, ba_BonitaetsIndex, ba_CreditSaveBonitaetsIndex, ba_CreditSaveBonitaetsScore, ba_GruendundsDatum, ba_Umsatz, ba_Mitarbeiter, ba_Bankverbindung, ba_Hoechstkredit, ba_Zahlungsweise, ba_GFName, ba_Sonstiges, ba_Risikostufe, ba_CreditSaveRisikoklasse, ba_Pruefungstool, ba_datenarchivId, ba_GSName, ba_Geschaeftszweck, ba_UID, ba_forcedRequest, ba_CScounterBeforeRequest, ba_CScounterAfterRequest, ba_CSmax, ba_CScountry, Original_ba_id, Original_ba_KundenNr, Original_ba_Datum, Original_ba_MaId, Original_ba_Sachbearbeiter, Original_ba_CRArt, Original_ba_CRAnsprechpartnerHerrFrau, Original_ba_CRAnsprechpartner, Original_ba_Firma, Original_ba_Adresse1, Original_ba_Adresse2, Original_ba_LetztesBearbeitungsDatum, Original_ba_BonitaetsIndex, Original_ba_CreditSaveBonitaetsIndex, Original_ba_CreditSaveBonitaetsScore, Original_ba_GruendundsDatum, Original_ba_Umsatz, Original_ba_Mitarbeiter, Original_ba_Bankverbindung, Original_ba_Hoechstkredit, Original_ba_Zahlungsweise, Original_ba_GFName, Original_ba_Sonstiges, Original_ba_Risikostufe, Original_ba_CreditSaveRisikoklasse, Original_ba_Pruefungstool, Original_ba_datenarchivId, Original_ba_GSName, Original_ba_UID, Original_ba_forcedRequest, Original_ba_CScounterBeforeRequest, Original_ba_CScounterAfterRequest, Original_ba_CSmax, Original_ba_CScountry, Original_ba_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblBuchungstextTableAdapter 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 = "tblBuchungstext" tableMapping.ColumnMappings.Add("Buchungstext", "Buchungstext") tableMapping.ColumnMappings.Add("Gegenkonto", "Gegenkonto") tableMapping.ColumnMappings.Add("Belegart", "Belegart") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("visible", "visible") tableMapping.ColumnMappings.Add("Firma", "Firma") 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].[tblBuchungstext] WHERE (([Buchungstext] = @Original_Buchungste"& _ "xt) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp) AND ([Firma] = @Original_F"& _ "irma))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Buchungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", 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].[tblBuchungstext] ([Buchungstext], [Gegenkonto], [Belegart], [v"& _ "isible], [Firma]) VALUES (@Buchungstext, @Gegenkonto, @Belegart, @visible, @Firm"& _ "a);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Buchungstext, Gegenkonto, Belegart, SSMA_TimeStamp, visible, Firma F"& _ "ROM tblBuchungstext WHERE (Buchungstext = @Buchungstext) AND (Firma = @Firma)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gegenkonto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gegenkonto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "visible", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", 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].[tblBuchungstext] SET [Buchungstext] = @Buchungstext, [Gegenkonto] ="& _ " @Gegenkonto, [Belegart] = @Belegart, [visible] = @visible, [Firma] = @Firma WHE"& _ "RE (([Buchungstext] = @Original_Buchungstext) AND ([SSMA_TimeStamp] = @Original_"& _ "SSMA_TimeStamp) AND ([Firma] = @Original_Firma));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Buchungstext, Gegenkon"& _ "to, Belegart, SSMA_TimeStamp, visible, Firma FROM tblBuchungstext WHERE (Buchung"& _ "stext = @Buchungstext) AND (Firma = @Firma)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gegenkonto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gegenkonto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "visible", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Buchungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Buchungstext, Gegenkonto, Belegart, SSMA_TimeStamp, visible, Firma FROM db"& _ "o.tblBuchungstext" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblBuchungstextDataTable) 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 VERAGDataSet.tblBuchungstextDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblBuchungstextDataTable = New VERAGDataSet.tblBuchungstextDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblBuchungstextDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblBuchungstext") 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_Buchungstext As String, ByVal Original_SSMA_TimeStamp() As Byte, ByVal Original_Firma As String) As Integer If (Original_Buchungstext Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Buchungstext") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Buchungstext,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) End If If (Original_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Firma") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Firma,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 Buchungstext As String, ByVal Gegenkonto As Global.System.Nullable(Of Integer), ByVal Belegart As Short, ByVal visible As Boolean, ByVal Firma As String) As Integer If (Buchungstext Is Nothing) Then Throw New Global.System.ArgumentNullException("Buchungstext") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Buchungstext,String) End If If (Gegenkonto.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(Gegenkonto.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Belegart,Short) Me.Adapter.InsertCommand.Parameters(3).Value = CType(visible,Boolean) If (Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Firma,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 Buchungstext As String, ByVal Gegenkonto As Global.System.Nullable(Of Integer), ByVal Belegart As Short, ByVal visible As Boolean, ByVal Firma As String, ByVal Original_Buchungstext As String, ByVal Original_SSMA_TimeStamp() As Byte, ByVal Original_Firma As String) As Integer If (Buchungstext Is Nothing) Then Throw New Global.System.ArgumentNullException("Buchungstext") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Buchungstext,String) End If If (Gegenkonto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Gegenkonto.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Belegart,Short) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(visible,Boolean) If (Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Firma,String) End If If (Original_Buchungstext Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Buchungstext") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Buchungstext,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_SSMA_TimeStamp,Byte()) End If If (Original_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Firma") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Firma,String) End If 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 Gegenkonto As Global.System.Nullable(Of Integer), ByVal Belegart As Short, ByVal visible As Boolean, ByVal Original_Buchungstext As String, ByVal Original_SSMA_TimeStamp() As Byte, ByVal Original_Firma As String) As Integer Return Me.Update(Original_Buchungstext, Gegenkonto, Belegart, visible, Original_Firma, Original_Buchungstext, Original_SSMA_TimeStamp, Original_Firma) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_AESTableAdapter 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 = "tblDakosy_AES" tableMapping.ColumnMappings.Add("aes_Id", "aes_Id") tableMapping.ColumnMappings.Add("aes_Status", "aes_Status") tableMapping.ColumnMappings.Add("aes_Status_KEWILL_Equivalent", "aes_Status_KEWILL_Equivalent") tableMapping.ColumnMappings.Add("aes_dyaArt", "aes_dyaArt") tableMapping.ColumnMappings.Add("aes_dyaAnmID", "aes_dyaAnmID") tableMapping.ColumnMappings.Add("aes_ANR", "aes_ANR") tableMapping.ColumnMappings.Add("aes_MRN", "aes_MRN") tableMapping.ColumnMappings.Add("aes_Erstellung", "aes_Erstellung") tableMapping.ColumnMappings.Add("aes_Erstellung_SB", "aes_Erstellung_SB") tableMapping.ColumnMappings.Add("aes_LetzteBearbeitung", "aes_LetzteBearbeitung") tableMapping.ColumnMappings.Add("aes_LetzteBearbeitung_SB", "aes_LetzteBearbeitung_SB") tableMapping.ColumnMappings.Add("aes_firma", "aes_firma") tableMapping.ColumnMappings.Add("aes_niederlassung", "aes_niederlassung") tableMapping.ColumnMappings.Add("aes_Trans_Partner", "aes_Trans_Partner") tableMapping.ColumnMappings.Add("aes_Trans_Div1", "aes_Trans_Div1") tableMapping.ColumnMappings.Add("aes_Trans_Div2", "aes_Trans_Div2") tableMapping.ColumnMappings.Add("aes_Trans_Div3", "aes_Trans_Div3") tableMapping.ColumnMappings.Add("aes_Trans_Referenz", "aes_Trans_Referenz") tableMapping.ColumnMappings.Add("aes_Trans_DatumZeit", "aes_Trans_DatumZeit") tableMapping.ColumnMappings.Add("aes_Trans_Version", "aes_Trans_Version") tableMapping.ColumnMappings.Add("aes_NachrichtenSenderTIN", "aes_NachrichtenSenderTIN") tableMapping.ColumnMappings.Add("aes_NachrichtenSenderNLNR", "aes_NachrichtenSenderNLNR") tableMapping.ColumnMappings.Add("aes_NachrichtenempfaengerDST", "aes_NachrichtenempfaengerDST") tableMapping.ColumnMappings.Add("aes_ObjectName", "aes_ObjectName") tableMapping.ColumnMappings.Add("aes_ObjectAlias", "aes_ObjectAlias") tableMapping.ColumnMappings.Add("aes_BezugsnummerVorblendung", "aes_BezugsnummerVorblendung") tableMapping.ColumnMappings.Add("aes_Bearbeiter", "aes_Bearbeiter") tableMapping.ColumnMappings.Add("aes_AnmeldeArtAusfuhrCode", "aes_AnmeldeArtAusfuhrCode") tableMapping.ColumnMappings.Add("aes_AnmeldeArtVerfahrensCode", "aes_AnmeldeArtVerfahrensCode") tableMapping.ColumnMappings.Add("aes_AnmeldeArtUeberfuehrungCode", "aes_AnmeldeArtUeberfuehrungCode") tableMapping.ColumnMappings.Add("aes_Ausfuhrland", "aes_Ausfuhrland") tableMapping.ColumnMappings.Add("aes_BestimmungslandCode", "aes_BestimmungslandCode") tableMapping.ColumnMappings.Add("aes_AnmeldedatumZeit", "aes_AnmeldedatumZeit") tableMapping.ColumnMappings.Add("aes_DatumAusgang", "aes_DatumAusgang") tableMapping.ColumnMappings.Add("aes_MassgeblichesDatum", "aes_MassgeblichesDatum") tableMapping.ColumnMappings.Add("aes_BesondereUmstaende", "aes_BesondereUmstaende") tableMapping.ColumnMappings.Add("aes_Zahlungsweisebefoerderungskosten", "aes_Zahlungsweisebefoerderungskosten") tableMapping.ColumnMappings.Add("aes_ContainerIndikator", "aes_ContainerIndikator") tableMapping.ColumnMappings.Add("aes_BeteiligteKonstellation", "aes_BeteiligteKonstellation") tableMapping.ColumnMappings.Add("aes_AdressdatenKonstellation", "aes_AdressdatenKonstellation") tableMapping.ColumnMappings.Add("aes_GesamtRohmasse", "aes_GesamtRohmasse") tableMapping.ColumnMappings.Add("aes_RegistriernummerFremdsystem", "aes_RegistriernummerFremdsystem") tableMapping.ColumnMappings.Add("aes_Vermerk", "aes_Vermerk") tableMapping.ColumnMappings.Add("aes_KennnummerSendung", "aes_KennnummerSendung") tableMapping.ColumnMappings.Add("aes_AnzahlPositionen", "aes_AnzahlPositionen") tableMapping.ColumnMappings.Add("aes_BewiligungsnummerAusfuhr", "aes_BewiligungsnummerAusfuhr") tableMapping.ColumnMappings.Add("aes_BewiligungsnummerAnschreibeverfahren", "aes_BewiligungsnummerAnschreibeverfahren") tableMapping.ColumnMappings.Add("aes_BewiligungsnummerPassiveVeredelung", "aes_BewiligungsnummerPassiveVeredelung") tableMapping.ColumnMappings.Add("aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", "aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer") tableMapping.ColumnMappings.Add("aes_VerkehrszweigInland", "aes_VerkehrszweigInland") tableMapping.ColumnMappings.Add("aes_BefoerderungsmittelAbgangArtCode", "aes_BefoerderungsmittelAbgangArtCode") tableMapping.ColumnMappings.Add("aes_BefoerderungsmittelAbgangKennzeichen", "aes_BefoerderungsmittelAbgangKennzeichen") tableMapping.ColumnMappings.Add("aes_BefoerderungsmittelAbgangStaatCode", "aes_BefoerderungsmittelAbgangStaatCode") tableMapping.ColumnMappings.Add("aes_VerkehrszweigGrenze", "aes_VerkehrszweigGrenze") tableMapping.ColumnMappings.Add("aes_BefoerderungsmittelGrenzeArtCode", "aes_BefoerderungsmittelGrenzeArtCode") tableMapping.ColumnMappings.Add("aes_BefoerderungsmittelGrenzeKennzeichen", "aes_BefoerderungsmittelGrenzeKennzeichen") tableMapping.ColumnMappings.Add("aes_BefoerderungsmittelGrenzeStaatCode", "aes_BefoerderungsmittelGrenzeStaatCode") tableMapping.ColumnMappings.Add("aes_LadeortOrtId", "aes_LadeortOrtId") tableMapping.ColumnMappings.Add("aes_LadeortStrasse", "aes_LadeortStrasse") tableMapping.ColumnMappings.Add("aes_LadeortPLZ", "aes_LadeortPLZ") tableMapping.ColumnMappings.Add("aes_LadeortOrt", "aes_LadeortOrt") tableMapping.ColumnMappings.Add("aes_LadeortZusatz", "aes_LadeortZusatz") tableMapping.ColumnMappings.Add("aes_AusfuhrZollstelleID", "aes_AusfuhrZollstelleID") tableMapping.ColumnMappings.Add("aes_AusgangszollstelleID", "aes_AusgangszollstelleID") tableMapping.ColumnMappings.Add("aes_TatsaechlicheAusgangZollstelleID", "aes_TatsaechlicheAusgangZollstelleID") tableMapping.ColumnMappings.Add("aes_GeschaeftartCode", "aes_GeschaeftartCode") tableMapping.ColumnMappings.Add("aes_Rechnungspreis", "aes_Rechnungspreis") tableMapping.ColumnMappings.Add("aes_Rechnungwaehrung", "aes_Rechnungwaehrung") tableMapping.ColumnMappings.Add("aes_BesondererTatbestand", "aes_BesondererTatbestand") tableMapping.ColumnMappings.Add("aes_VerschlussArtCode", "aes_VerschlussArtCode") tableMapping.ColumnMappings.Add("aes_VerschlussAnzahl", "aes_VerschlussAnzahl") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen1", "aes_VerschlussZeichen1") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen2", "aes_VerschlussZeichen2") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen3", "aes_VerschlussZeichen3") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen4", "aes_VerschlussZeichen4") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen5", "aes_VerschlussZeichen5") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen6", "aes_VerschlussZeichen6") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen7", "aes_VerschlussZeichen7") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen8", "aes_VerschlussZeichen8") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen9", "aes_VerschlussZeichen9") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen10", "aes_VerschlussZeichen10") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen11", "aes_VerschlussZeichen11") tableMapping.ColumnMappings.Add("aes_VerschlussZeichen12", "aes_VerschlussZeichen12") tableMapping.ColumnMappings.Add("aes_GestellungsfristAnfangDatumZeit", "aes_GestellungsfristAnfangDatumZeit") tableMapping.ColumnMappings.Add("aes_GestellungsfristEndeDatumZeit", "aes_GestellungsfristEndeDatumZeit") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerEORI", "aes_AusfuehrerTeilnehmerEORI") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerNLNR", "aes_AusfuehrerTeilnehmerNLNR") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerName", "aes_AusfuehrerTeilnehmerName") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerStrasse", "aes_AusfuehrerTeilnehmerStrasse") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerOrt", "aes_AusfuehrerTeilnehmerOrt") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerPLZ", "aes_AusfuehrerTeilnehmerPLZ") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerLandCode", "aes_AusfuehrerTeilnehmerLandCode") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", "aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", "aes_AusfuehrerTeilnehmerAnsprechpartnerStellung") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", "aes_AusfuehrerTeilnehmerAnsprechpartnerEmail") tableMapping.ColumnMappings.Add("aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax") tableMapping.ColumnMappings.Add("aes_EmpfaengerTeilnehmerEORI", "aes_EmpfaengerTeilnehmerEORI") tableMapping.ColumnMappings.Add("aes_EmpfaengerTeilnehmerNLNR", "aes_EmpfaengerTeilnehmerNLNR") tableMapping.ColumnMappings.Add("aes_EmpfaengerTeilnehmerName", "aes_EmpfaengerTeilnehmerName") tableMapping.ColumnMappings.Add("aes_EmpfaengerTeilnehmerStrasse", "aes_EmpfaengerTeilnehmerStrasse") tableMapping.ColumnMappings.Add("aes_EmpfaengerTeilnehmerOrt", "aes_EmpfaengerTeilnehmerOrt") tableMapping.ColumnMappings.Add("aes_EmpfaengerTeilnehmerPLZ", "aes_EmpfaengerTeilnehmerPLZ") tableMapping.ColumnMappings.Add("aes_EmpfaengerTeilnehmerLandCode", "aes_EmpfaengerTeilnehmerLandCode") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerEORI", "aes_AnmelderTeilnehmerEORI") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerNLNR", "aes_AnmelderTeilnehmerNLNR") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerName", "aes_AnmelderTeilnehmerName") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerStrasse", "aes_AnmelderTeilnehmerStrasse") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerOrt", "aes_AnmelderTeilnehmerOrt") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerPLZ", "aes_AnmelderTeilnehmerPLZ") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerLandCode", "aes_AnmelderTeilnehmerLandCode") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", "aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", "aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerAnsprechpartnerStellung", "aes_AnmelderTeilnehmerAnsprechpartnerStellung") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerAnsprechpartnerEmail", "aes_AnmelderTeilnehmerAnsprechpartnerEmail") tableMapping.ColumnMappings.Add("aes_AnmelderTeilnehmerAnsprechpartnerTelefax", "aes_AnmelderTeilnehmerAnsprechpartnerTelefax") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerEORI", "aes_VertreterAnmelderTeilnehmerEORI") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerNLNR", "aes_VertreterAnmelderTeilnehmerNLNR") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerName", "aes_VertreterAnmelderTeilnehmerName") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerStrasse", "aes_VertreterAnmelderTeilnehmerStrasse") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerOrt", "aes_VertreterAnmelderTeilnehmerOrt") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerPLZ", "aes_VertreterAnmelderTeilnehmerPLZ") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerLandCode", "aes_VertreterAnmelderTeilnehmerLandCode") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", "aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", "aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", "aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail") tableMapping.ColumnMappings.Add("aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerEORI", "aes_SubunternehmerTeilnehmerEORI") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerNLNR", "aes_SubunternehmerTeilnehmerNLNR") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerName", "aes_SubunternehmerTeilnehmerName") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerStrasse", "aes_SubunternehmerTeilnehmerStrasse") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerOrt", "aes_SubunternehmerTeilnehmerOrt") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerPLZ", "aes_SubunternehmerTeilnehmerPLZ") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerLandCode", "aes_SubunternehmerTeilnehmerLandCode") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", "aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", "aes_SubunternehmerTeilnehmerAnsprechpartnerStellung") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", "aes_SubunternehmerTeilnehmerAnsprechpartnerEmail") tableMapping.ColumnMappings.Add("aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerEORI", "aes_VerfahrensinhaberPVTeilnehmerEORI") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerNLNR", "aes_VerfahrensinhaberPVTeilnehmerNLNR") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerName", "aes_VerfahrensinhaberPVTeilnehmerName") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerStrasse", "aes_VerfahrensinhaberPVTeilnehmerStrasse") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerOrt", "aes_VerfahrensinhaberPVTeilnehmerOrt") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerPLZ", "aes_VerfahrensinhaberPVTeilnehmerPLZ") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerLandCode", "aes_VerfahrensinhaberPVTeilnehmerLandCode") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail") tableMapping.ColumnMappings.Add("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand1", "aes_BefoerderungsrouteLand1") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand2", "aes_BefoerderungsrouteLand2") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand3", "aes_BefoerderungsrouteLand3") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand4", "aes_BefoerderungsrouteLand4") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand5", "aes_BefoerderungsrouteLand5") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand6", "aes_BefoerderungsrouteLand6") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand7", "aes_BefoerderungsrouteLand7") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand8", "aes_BefoerderungsrouteLand8") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand9", "aes_BefoerderungsrouteLand9") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand10", "aes_BefoerderungsrouteLand10") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand11", "aes_BefoerderungsrouteLand11") tableMapping.ColumnMappings.Add("aes_BefoerderungsrouteLand12", "aes_BefoerderungsrouteLand12") tableMapping.ColumnMappings.Add("aes_LieferbedingungenCode", "aes_LieferbedingungenCode") tableMapping.ColumnMappings.Add("aes_LieferbedingungenText", "aes_LieferbedingungenText") tableMapping.ColumnMappings.Add("aes_LieferbedingungenOrt", "aes_LieferbedingungenOrt") 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].[tblDakosy_AES] WHERE (([aes_Id] = @Original_aes_Id) AND ([aes_"& _ "Status] = @Original_aes_Status) AND ([aes_Status_KEWILL_Equivalent] = @Original_"& _ "aes_Status_KEWILL_Equivalent) AND ([aes_dyaArt] = @Original_aes_dyaArt) AND ([ae"& _ "s_dyaAnmID] = @Original_aes_dyaAnmID) AND ((@IsNull_aes_ANR = 1 AND [aes_ANR] IS"& _ " NULL) OR ([aes_ANR] = @Original_aes_ANR)) AND ((@IsNull_aes_MRN = 1 AND [aes_MR"& _ "N] IS NULL) OR ([aes_MRN] = @Original_aes_MRN)) AND ([aes_Erstellung] = @Origina"& _ "l_aes_Erstellung) AND ((@IsNull_aes_Erstellung_SB = 1 AND [aes_Erstellung_SB] IS"& _ " NULL) OR ([aes_Erstellung_SB] = @Original_aes_Erstellung_SB)) AND ([aes_LetzteB"& _ "earbeitung] = @Original_aes_LetzteBearbeitung) AND ((@IsNull_aes_LetzteBearbeitu"& _ "ng_SB = 1 AND [aes_LetzteBearbeitung_SB] IS NULL) OR ([aes_LetzteBearbeitung_SB]"& _ " = @Original_aes_LetzteBearbeitung_SB)) AND ((@IsNull_aes_firma = 1 AND [aes_fir"& _ "ma] IS NULL) OR ([aes_firma] = @Original_aes_firma)) AND ((@IsNull_aes_niederlas"& _ "sung = 1 AND [aes_niederlassung] IS NULL) OR ([aes_niederlassung] = @Original_ae"& _ "s_niederlassung)) AND ((@IsNull_aes_Trans_Partner = 1 AND [aes_Trans_Partner] IS"& _ " NULL) OR ([aes_Trans_Partner] = @Original_aes_Trans_Partner)) AND ((@IsNull_aes"& _ "_Trans_Div1 = 1 AND [aes_Trans_Div1] IS NULL) OR ([aes_Trans_Div1] = @Original_a"& _ "es_Trans_Div1)) AND ((@IsNull_aes_Trans_Div2 = 1 AND [aes_Trans_Div2] IS NULL) O"& _ "R ([aes_Trans_Div2] = @Original_aes_Trans_Div2)) AND ((@IsNull_aes_Trans_Div3 = "& _ "1 AND [aes_Trans_Div3] IS NULL) OR ([aes_Trans_Div3] = @Original_aes_Trans_Div3)"& _ ") AND ((@IsNull_aes_Trans_Referenz = 1 AND [aes_Trans_Referenz] IS NULL) OR ([ae"& _ "s_Trans_Referenz] = @Original_aes_Trans_Referenz)) AND ((@IsNull_aes_Trans_Datum"& _ "Zeit = 1 AND [aes_Trans_DatumZeit] IS NULL) OR ([aes_Trans_DatumZeit] = @Origina"& _ "l_aes_Trans_DatumZeit)) AND ((@IsNull_aes_Trans_Version = 1 AND [aes_Trans_Versi"& _ "on] IS NULL) OR ([aes_Trans_Version] = @Original_aes_Trans_Version)) AND ((@IsNu"& _ "ll_aes_NachrichtenSenderTIN = 1 AND [aes_NachrichtenSenderTIN] IS NULL) OR ([aes"& _ "_NachrichtenSenderTIN] = @Original_aes_NachrichtenSenderTIN)) AND ((@IsNull_aes_"& _ "NachrichtenSenderNLNR = 1 AND [aes_NachrichtenSenderNLNR] IS NULL) OR ([aes_Nach"& _ "richtenSenderNLNR] = @Original_aes_NachrichtenSenderNLNR)) AND ((@IsNull_aes_Nac"& _ "hrichtenempfaengerDST = 1 AND [aes_NachrichtenempfaengerDST] IS NULL) OR ([aes_N"& _ "achrichtenempfaengerDST] = @Original_aes_NachrichtenempfaengerDST)) AND ((@IsNul"& _ "l_aes_ObjectName = 1 AND [aes_ObjectName] IS NULL) OR ([aes_ObjectName] = @Origi"& _ "nal_aes_ObjectName)) AND ((@IsNull_aes_ObjectAlias = 1 AND [aes_ObjectAlias] IS "& _ "NULL) OR ([aes_ObjectAlias] = @Original_aes_ObjectAlias)) AND ((@IsNull_aes_Bezu"& _ "gsnummerVorblendung = 1 AND [aes_BezugsnummerVorblendung] IS NULL) OR ([aes_Bezu"& _ "gsnummerVorblendung] = @Original_aes_BezugsnummerVorblendung)) AND ((@IsNull_aes"& _ "_Bearbeiter = 1 AND [aes_Bearbeiter] IS NULL) OR ([aes_Bearbeiter] = @Original_a"& _ "es_Bearbeiter)) AND ((@IsNull_aes_AnmeldeArtAusfuhrCode = 1 AND [aes_AnmeldeArtA"& _ "usfuhrCode] IS NULL) OR ([aes_AnmeldeArtAusfuhrCode] = @Original_aes_AnmeldeArtA"& _ "usfuhrCode)) AND ((@IsNull_aes_AnmeldeArtVerfahrensCode = 1 AND [aes_AnmeldeArtV"& _ "erfahrensCode] IS NULL) OR ([aes_AnmeldeArtVerfahrensCode] = @Original_aes_Anmel"& _ "deArtVerfahrensCode)) AND ((@IsNull_aes_AnmeldeArtUeberfuehrungCode = 1 AND [aes"& _ "_AnmeldeArtUeberfuehrungCode] IS NULL) OR ([aes_AnmeldeArtUeberfuehrungCode] = @"& _ "Original_aes_AnmeldeArtUeberfuehrungCode)) AND ((@IsNull_aes_Ausfuhrland = 1 AND"& _ " [aes_Ausfuhrland] IS NULL) OR ([aes_Ausfuhrland] = @Original_aes_Ausfuhrland)) "& _ "AND ((@IsNull_aes_BestimmungslandCode = 1 AND [aes_BestimmungslandCode] IS NULL)"& _ " OR ([aes_BestimmungslandCode] = @Original_aes_BestimmungslandCode)) AND ((@IsNu"& _ "ll_aes_AnmeldedatumZeit = 1 AND [aes_AnmeldedatumZeit] IS NULL) OR ([aes_Anmelde"& _ "datumZeit] = @Original_aes_AnmeldedatumZeit)) AND ((@IsNull_aes_DatumAusgang = 1"& _ " AND [aes_DatumAusgang] IS NULL) OR ([aes_DatumAusgang] = @Original_aes_DatumAus"& _ "gang)) AND ((@IsNull_aes_MassgeblichesDatum = 1 AND [aes_MassgeblichesDatum] IS "& _ "NULL) OR ([aes_MassgeblichesDatum] = @Original_aes_MassgeblichesDatum)) AND ((@I"& _ "sNull_aes_BesondereUmstaende = 1 AND [aes_BesondereUmstaende] IS NULL) OR ([aes_"& _ "BesondereUmstaende] = @Original_aes_BesondereUmstaende)) AND ((@IsNull_aes_Zahlu"& _ "ngsweisebefoerderungskosten = 1 AND [aes_Zahlungsweisebefoerderungskosten] IS NU"& _ "LL) OR ([aes_Zahlungsweisebefoerderungskosten] = @Original_aes_Zahlungsweisebefo"& _ "erderungskosten)) AND ((@IsNull_aes_ContainerIndikator = 1 AND [aes_ContainerInd"& _ "ikator] IS NULL) OR ([aes_ContainerIndikator] = @Original_aes_ContainerIndikator"& _ ")) AND ((@IsNull_aes_BeteiligteKonstellation = 1 AND [aes_BeteiligteKonstellatio"& _ "n] IS NULL) OR ([aes_BeteiligteKonstellation] = @Original_aes_BeteiligteKonstell"& _ "ation)) AND ((@IsNull_aes_AdressdatenKonstellation = 1 AND [aes_AdressdatenKonst"& _ "ellation] IS NULL) OR ([aes_AdressdatenKonstellation] = @Original_aes_Adressdate"& _ "nKonstellation)) AND ((@IsNull_aes_GesamtRohmasse = 1 AND [aes_GesamtRohmasse] I"& _ "S NULL) OR ([aes_GesamtRohmasse] = @Original_aes_GesamtRohmasse)) AND ((@IsNull_"& _ "aes_RegistriernummerFremdsystem = 1 AND [aes_RegistriernummerFremdsystem] IS NUL"& _ "L) OR ([aes_RegistriernummerFremdsystem] = @Original_aes_RegistriernummerFremdsy"& _ "stem)) AND ((@IsNull_aes_Vermerk = 1 AND [aes_Vermerk] IS NULL) OR ([aes_Vermerk"& _ "] = @Original_aes_Vermerk)) AND ((@IsNull_aes_KennnummerSendung = 1 AND [aes_Ken"& _ "nnummerSendung] IS NULL) OR ([aes_KennnummerSendung] = @Original_aes_KennnummerS"& _ "endung)) AND ((@IsNull_aes_AnzahlPositionen = 1 AND [aes_AnzahlPositionen] IS NU"& _ "LL) OR ([aes_AnzahlPositionen] = @Original_aes_AnzahlPositionen)) AND ((@IsNull_"& _ "aes_BewiligungsnummerAusfuhr = 1 AND [aes_BewiligungsnummerAusfuhr] IS NULL) OR "& _ "([aes_BewiligungsnummerAusfuhr] = @Original_aes_BewiligungsnummerAusfuhr)) AND ("& _ "(@IsNull_aes_BewiligungsnummerAnschreibeverfahren = 1 AND [aes_Bewiligungsnummer"& _ "Anschreibeverfahren] IS NULL) OR ([aes_BewiligungsnummerAnschreibeverfahren] = @"& _ "Original_aes_BewiligungsnummerAnschreibeverfahren)) AND ((@IsNull_aes_Bewiligung"& _ "snummerPassiveVeredelung = 1 AND [aes_BewiligungsnummerPassiveVeredelung] IS NUL"& _ "L) OR ([aes_BewiligungsnummerPassiveVeredelung] = @Original_aes_Bewiligungsnumme"& _ "rPassiveVeredelung)) AND ((@IsNull_aes_BewiligungsnummerVertrausenswuerdigerAusf"& _ "uehrer = 1 AND [aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer] IS NULL) OR"& _ " ([aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer] = @Original_aes_Bewiligu"& _ "ngsnummerVertrausenswuerdigerAusfuehrer)) AND ((@IsNull_aes_VerkehrszweigInland "& _ "= 1 AND [aes_VerkehrszweigInland] IS NULL) OR ([aes_VerkehrszweigInland] = @Orig"& _ "inal_aes_VerkehrszweigInland)) AND ((@IsNull_aes_BefoerderungsmittelAbgangArtCod"& _ "e = 1 AND [aes_BefoerderungsmittelAbgangArtCode] IS NULL) OR ([aes_Befoerderungs"& _ "mittelAbgangArtCode] = @Original_aes_BefoerderungsmittelAbgangArtCode)) AND ((@I"& _ "sNull_aes_BefoerderungsmittelAbgangKennzeichen = 1 AND [aes_BefoerderungsmittelA"& _ "bgangKennzeichen] IS NULL) OR ([aes_BefoerderungsmittelAbgangKennzeichen] = @Ori"& _ "ginal_aes_BefoerderungsmittelAbgangKennzeichen)) AND ((@IsNull_aes_Befoerderungs"& _ "mittelAbgangStaatCode = 1 AND [aes_BefoerderungsmittelAbgangStaatCode] IS NULL) "& _ "OR ([aes_BefoerderungsmittelAbgangStaatCode] = @Original_aes_Befoerderungsmittel"& _ "AbgangStaatCode)) AND ((@IsNull_aes_VerkehrszweigGrenze = 1 AND [aes_Verkehrszwe"& _ "igGrenze] IS NULL) OR ([aes_VerkehrszweigGrenze] = @Original_aes_VerkehrszweigGr"& _ "enze)) AND ((@IsNull_aes_BefoerderungsmittelGrenzeArtCode = 1 AND [aes_Befoerder"& _ "ungsmittelGrenzeArtCode] IS NULL) OR ([aes_BefoerderungsmittelGrenzeArtCode] = @"& _ "Original_aes_BefoerderungsmittelGrenzeArtCode)) AND ((@IsNull_aes_Befoerderungsm"& _ "ittelGrenzeKennzeichen = 1 AND [aes_BefoerderungsmittelGrenzeKennzeichen] IS NUL"& _ "L) OR ([aes_BefoerderungsmittelGrenzeKennzeichen] = @Original_aes_Befoerderungsm"& _ "ittelGrenzeKennzeichen)) AND ((@IsNull_aes_BefoerderungsmittelGrenzeStaatCode = "& _ "1 AND [aes_BefoerderungsmittelGrenzeStaatCode] IS NULL) OR ([aes_Befoerderungsmi"& _ "ttelGrenzeStaatCode] = @Original_aes_BefoerderungsmittelGrenzeStaatCode)) AND (("& _ "@IsNull_aes_LadeortOrtId = 1 AND [aes_LadeortOrtId] IS NULL) OR ([aes_LadeortOrt"& _ "Id] = @Original_aes_LadeortOrtId)) AND ((@IsNull_aes_LadeortStrasse = 1 AND [aes"& _ "_LadeortStrasse] IS NULL) OR ([aes_LadeortStrasse] = @Original_aes_LadeortStrass"& _ "e)) AND ((@IsNull_aes_LadeortPLZ = 1 AND [aes_LadeortPLZ] IS NULL) OR ([aes_Lade"& _ "ortPLZ] = @Original_aes_LadeortPLZ)) AND ((@IsNull_aes_LadeortOrt = 1 AND [aes_L"& _ "adeortOrt] IS NULL) OR ([aes_LadeortOrt] = @Original_aes_LadeortOrt)) AND ((@IsN"& _ "ull_aes_LadeortZusatz = 1 AND [aes_LadeortZusatz] IS NULL) OR ([aes_LadeortZusat"& _ "z] = @Original_aes_LadeortZusatz)) AND ((@IsNull_aes_AusfuhrZollstelleID = 1 AND"& _ " [aes_AusfuhrZollstelleID] IS NULL) OR ([aes_AusfuhrZollstelleID] = @Original_ae"& _ "s_AusfuhrZollstelleID)) AND ((@IsNull_aes_AusgangszollstelleID = 1 AND [aes_Ausg"& _ "angszollstelleID] IS NULL) OR ([aes_AusgangszollstelleID] = @Original_aes_Ausgan"& _ "gszollstelleID)) AND ((@IsNull_aes_TatsaechlicheAusgangZollstelleID = 1 AND [aes"& _ "_TatsaechlicheAusgangZollstelleID] IS NULL) OR ([aes_TatsaechlicheAusgangZollste"& _ "lleID] = @Original_aes_TatsaechlicheAusgangZollstelleID)) AND ((@IsNull_aes_Gesc"& _ "haeftartCode = 1 AND [aes_GeschaeftartCode] IS NULL) OR ([aes_GeschaeftartCode] "& _ "= @Original_aes_GeschaeftartCode)) AND ((@IsNull_aes_Rechnungspreis = 1 AND [aes"& _ "_Rechnungspreis] IS NULL) OR ([aes_Rechnungspreis] = @Original_aes_Rechnungsprei"& _ "s)) AND ((@IsNull_aes_Rechnungwaehrung = 1 AND [aes_Rechnungwaehrung] IS NULL) O"& _ "R ([aes_Rechnungwaehrung] = @Original_aes_Rechnungwaehrung)) AND ((@IsNull_aes_B"& _ "esondererTatbestand = 1 AND [aes_BesondererTatbestand] IS NULL) OR ([aes_Besonde"& _ "rerTatbestand] = @Original_aes_BesondererTatbestand)) AND ((@IsNull_aes_Verschlu"& _ "ssArtCode = 1 AND [aes_VerschlussArtCode] IS NULL) OR ([aes_VerschlussArtCode] ="& _ " @Original_aes_VerschlussArtCode)) AND ((@IsNull_aes_VerschlussAnzahl = 1 AND [a"& _ "es_VerschlussAnzahl] IS NULL) OR ([aes_VerschlussAnzahl] = @Original_aes_Verschl"& _ "ussAnzahl)) AND ((@IsNull_aes_VerschlussZeichen1 = 1 AND [aes_VerschlussZeichen1"& _ "] IS NULL) OR ([aes_VerschlussZeichen1] = @Original_aes_VerschlussZeichen1)) AND"& _ " ((@IsNull_aes_VerschlussZeichen2 = 1 AND [aes_VerschlussZeichen2] IS NULL) OR ("& _ "[aes_VerschlussZeichen2] = @Original_aes_VerschlussZeichen2)) AND ((@IsNull_aes_"& _ "VerschlussZeichen3 = 1 AND [aes_VerschlussZeichen3] IS NULL) OR ([aes_Verschluss"& _ "Zeichen3] = @Original_aes_VerschlussZeichen3)) AND ((@IsNull_aes_VerschlussZeich"& _ "en4 = 1 AND [aes_VerschlussZeichen4] IS NULL) OR ([aes_VerschlussZeichen4] = @Or"& _ "iginal_aes_VerschlussZeichen4)) AND ((@IsNull_aes_VerschlussZeichen5 = 1 AND [ae"& _ "s_VerschlussZeichen5] IS NULL) OR ([aes_VerschlussZeichen5] = @Original_aes_Vers"& _ "chlussZeichen5)) AND ((@IsNull_aes_VerschlussZeichen6 = 1 AND [aes_VerschlussZei"& _ "chen6] IS NULL) OR ([aes_VerschlussZeichen6] = @Original_aes_VerschlussZeichen6)"& _ ") AND ((@IsNull_aes_VerschlussZeichen7 = 1 AND [aes_VerschlussZeichen7] IS NULL)"& _ " OR ([aes_VerschlussZeichen7] = @Original_aes_VerschlussZeichen7)) AND ((@IsNull"& _ "_aes_VerschlussZeichen8 = 1 AND [aes_VerschlussZeichen8] IS NULL) OR ([aes_Versc"& _ "hlussZeichen8] = @Original_aes_VerschlussZeichen8)) AND ((@IsNull_aes_Verschluss"& _ "Zeichen9 = 1 AND [aes_VerschlussZeichen9] IS NULL) OR ([aes_VerschlussZeichen9] "& _ "= @Original_aes_VerschlussZeichen9)) AND ((@IsNull_aes_VerschlussZeichen10 = 1 A"& _ "ND [aes_VerschlussZeichen10] IS NULL) OR ([aes_VerschlussZeichen10] = @Original_"& _ "aes_VerschlussZeichen10)) AND ((@IsNull_aes_VerschlussZeichen11 = 1 AND [aes_Ver"& _ "schlussZeichen11] IS NULL) OR ([aes_VerschlussZeichen11] = @Original_aes_Verschl"& _ "ussZeichen11)) AND ((@IsNull_aes_VerschlussZeichen12 = 1 AND [aes_VerschlussZeic"& _ "hen12] IS NULL) OR ([aes_VerschlussZeichen12] = @Original_aes_VerschlussZeichen1"& _ "2)) AND ((@IsNull_aes_GestellungsfristAnfangDatumZeit = 1 AND [aes_Gestellungsfr"& _ "istAnfangDatumZeit] IS NULL) OR ([aes_GestellungsfristAnfangDatumZeit] = @Origin"& _ "al_aes_GestellungsfristAnfangDatumZeit)) AND ((@IsNull_aes_GestellungsfristEndeD"& _ "atumZeit = 1 AND [aes_GestellungsfristEndeDatumZeit] IS NULL) OR ([aes_Gestellun"& _ "gsfristEndeDatumZeit] = @Original_aes_GestellungsfristEndeDatumZeit)) AND ((@IsN"& _ "ull_aes_AusfuehrerTeilnehmerEORI = 1 AND [aes_AusfuehrerTeilnehmerEORI] IS NULL)"& _ " OR ([aes_AusfuehrerTeilnehmerEORI] = @Original_aes_AusfuehrerTeilnehmerEORI)) A"& _ "ND ((@IsNull_aes_AusfuehrerTeilnehmerNLNR = 1 AND [aes_AusfuehrerTeilnehmerNLNR]"& _ " IS NULL) OR ([aes_AusfuehrerTeilnehmerNLNR] = @Original_aes_AusfuehrerTeilnehme"& _ "rNLNR)) AND ((@IsNull_aes_AusfuehrerTeilnehmerName = 1 AND [aes_AusfuehrerTeilne"& _ "hmerName] IS NULL) OR ([aes_AusfuehrerTeilnehmerName] = @Original_aes_Ausfuehrer"& _ "TeilnehmerName)) AND ((@IsNull_aes_AusfuehrerTeilnehmerStrasse = 1 AND [aes_Ausf"& _ "uehrerTeilnehmerStrasse] IS NULL) OR ([aes_AusfuehrerTeilnehmerStrasse] = @Origi"& _ "nal_aes_AusfuehrerTeilnehmerStrasse)) AND ((@IsNull_aes_AusfuehrerTeilnehmerOrt "& _ "= 1 AND [aes_AusfuehrerTeilnehmerOrt] IS NULL) OR ([aes_AusfuehrerTeilnehmerOrt]"& _ " = @Original_aes_AusfuehrerTeilnehmerOrt)) AND ((@IsNull_aes_AusfuehrerTeilnehme"& _ "rPLZ = 1 AND [aes_AusfuehrerTeilnehmerPLZ] IS NULL) OR ([aes_AusfuehrerTeilnehme"& _ "rPLZ] = @Original_aes_AusfuehrerTeilnehmerPLZ)) AND ((@IsNull_aes_AusfuehrerTeil"& _ "nehmerLandCode = 1 AND [aes_AusfuehrerTeilnehmerLandCode] IS NULL) OR ([aes_Ausf"& _ "uehrerTeilnehmerLandCode] = @Original_aes_AusfuehrerTeilnehmerLandCode)) AND ((@"& _ "IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter = 1 AND [aes_Ausfue"& _ "hrerTeilnehmerAnsprechpartnerSachbearbeiter] IS NULL) OR ([aes_AusfuehrerTeilneh"& _ "merAnsprechpartnerSachbearbeiter] = @Original_aes_AusfuehrerTeilnehmerAnsprechpa"& _ "rtnerSachbearbeiter)) AND ((@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerTelef"& _ "onnummer = 1 AND [aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer] IS NULL)"& _ " OR ([aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer] = @Original_aes_Ausf"& _ "uehrerTeilnehmerAnsprechpartnerTelefonnummer)) AND ((@IsNull_aes_AusfuehrerTeiln"& _ "ehmerAnsprechpartnerStellung = 1 AND [aes_AusfuehrerTeilnehmerAnsprechpartnerSte"& _ "llung] IS NULL) OR ([aes_AusfuehrerTeilnehmerAnsprechpartnerStellung] = @Origina"& _ "l_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung)) AND ((@IsNull_aes_Ausfuehrer"& _ "TeilnehmerAnsprechpartnerEmail = 1 AND [aes_AusfuehrerTeilnehmerAnsprechpartnerE"& _ "mail] IS NULL) OR ([aes_AusfuehrerTeilnehmerAnsprechpartnerEmail] = @Original_ae"& _ "s_AusfuehrerTeilnehmerAnsprechpartnerEmail)) AND ((@IsNull_aes_AusfuehrerTeilneh"& _ "merAnsprechpartnerTelefax = 1 AND [aes_AusfuehrerTeilnehmerAnsprechpartnerTelefa"& _ "x] IS NULL) OR ([aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax] = @Original_aes"& _ "_AusfuehrerTeilnehmerAnsprechpartnerTelefax)) AND ((@IsNull_aes_EmpfaengerTeilne"& _ "hmerEORI = 1 AND [aes_EmpfaengerTeilnehmerEORI] IS NULL) OR ([aes_EmpfaengerTeil"& _ "nehmerEORI] = @Original_aes_EmpfaengerTeilnehmerEORI)) AND ((@IsNull_aes_Empfaen"& _ "gerTeilnehmerNLNR = 1 AND [aes_EmpfaengerTeilnehmerNLNR] IS NULL) OR ([aes_Empfa"& _ "engerTeilnehmerNLNR] = @Original_aes_EmpfaengerTeilnehmerNLNR)) AND ((@IsNull_ae"& _ "s_EmpfaengerTeilnehmerName = 1 AND [aes_EmpfaengerTeilnehmerName] IS NULL) OR (["& _ "aes_EmpfaengerTeilnehmerName] = @Original_aes_EmpfaengerTeilnehmerName)) AND ((@"& _ "IsNull_aes_EmpfaengerTeilnehmerStrasse = 1 AND [aes_EmpfaengerTeilnehmerStrasse]"& _ " IS NULL) OR ([aes_EmpfaengerTeilnehmerStrasse] = @Original_aes_EmpfaengerTeilne"& _ "hmerStrasse)) AND ((@IsNull_aes_EmpfaengerTeilnehmerOrt = 1 AND [aes_EmpfaengerT"& _ "eilnehmerOrt] IS NULL) OR ([aes_EmpfaengerTeilnehmerOrt] = @Original_aes_Empfaen"& _ "gerTeilnehmerOrt)) AND ((@IsNull_aes_EmpfaengerTeilnehmerPLZ = 1 AND [aes_Empfae"& _ "ngerTeilnehmerPLZ] IS NULL) OR ([aes_EmpfaengerTeilnehmerPLZ] = @Original_aes_Em"& _ "pfaengerTeilnehmerPLZ)) AND ((@IsNull_aes_EmpfaengerTeilnehmerLandCode = 1 AND ["& _ "aes_EmpfaengerTeilnehmerLandCode] IS NULL) OR ([aes_EmpfaengerTeilnehmerLandCode"& _ "] = @Original_aes_EmpfaengerTeilnehmerLandCode)) AND ((@IsNull_aes_AnmelderTeiln"& _ "ehmerEORI = 1 AND [aes_AnmelderTeilnehmerEORI] IS NULL) OR ([aes_AnmelderTeilneh"& _ "merEORI] = @Original_aes_AnmelderTeilnehmerEORI)) AND ((@IsNull_aes_AnmelderTeil"& _ "nehmerNLNR = 1 AND [aes_AnmelderTeilnehmerNLNR] IS NULL) OR ([aes_AnmelderTeilne"& _ "hmerNLNR] = @Original_aes_AnmelderTeilnehmerNLNR)) AND ((@IsNull_aes_AnmelderTei"& _ "lnehmerName = 1 AND [aes_AnmelderTeilnehmerName] IS NULL) OR ([aes_AnmelderTeiln"& _ "ehmerName] = @Original_aes_AnmelderTeilnehmerName)) AND ((@IsNull_aes_AnmelderTe"& _ "ilnehmerStrasse = 1 AND [aes_AnmelderTeilnehmerStrasse] IS NULL) OR ([aes_Anmeld"& _ "erTeilnehmerStrasse] = @Original_aes_AnmelderTeilnehmerStrasse)) AND ((@IsNull_a"& _ "es_AnmelderTeilnehmerOrt = 1 AND [aes_AnmelderTeilnehmerOrt] IS NULL) OR ([aes_A"& _ "nmelderTeilnehmerOrt] = @Original_aes_AnmelderTeilnehmerOrt)) AND ((@IsNull_aes_"& _ "AnmelderTeilnehmerPLZ = 1 AND [aes_AnmelderTeilnehmerPLZ] IS NULL) OR ([aes_Anme"& _ "lderTeilnehmerPLZ] = @Original_aes_AnmelderTeilnehmerPLZ)) AND ((@IsNull_aes_Anm"& _ "elderTeilnehmerLandCode = 1 AND [aes_AnmelderTeilnehmerLandCode] IS NULL) OR ([a"& _ "es_AnmelderTeilnehmerLandCode] = @Original_aes_AnmelderTeilnehmerLandCode)) AND "& _ "((@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter = 1 AND [aes_Anmel"& _ "derTeilnehmerAnsprechpartnerSachbearbeiter] IS NULL) OR ([aes_AnmelderTeilnehmer"& _ "AnsprechpartnerSachbearbeiter] = @Original_aes_AnmelderTeilnehmerAnsprechpartner"& _ "Sachbearbeiter)) AND ((@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnumme"& _ "r = 1 AND [aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer] IS NULL) OR ([aes"& _ "_AnmelderTeilnehmerAnsprechpartnerTelefonnummer] = @Original_aes_AnmelderTeilneh"& _ "merAnsprechpartnerTelefonnummer)) AND ((@IsNull_aes_AnmelderTeilnehmerAnsprechpa"& _ "rtnerStellung = 1 AND [aes_AnmelderTeilnehmerAnsprechpartnerStellung] IS NULL) O"& _ "R ([aes_AnmelderTeilnehmerAnsprechpartnerStellung] = @Original_aes_AnmelderTeiln"& _ "ehmerAnsprechpartnerStellung)) AND ((@IsNull_aes_AnmelderTeilnehmerAnsprechpartn"& _ "erEmail = 1 AND [aes_AnmelderTeilnehmerAnsprechpartnerEmail] IS NULL) OR ([aes_A"& _ "nmelderTeilnehmerAnsprechpartnerEmail] = @Original_aes_AnmelderTeilnehmerAnsprec"& _ "hpartnerEmail)) AND ((@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerTelefax = 1 A"& _ "ND [aes_AnmelderTeilnehmerAnsprechpartnerTelefax] IS NULL) OR ([aes_AnmelderTeil"& _ "nehmerAnsprechpartnerTelefax] = @Original_aes_AnmelderTeilnehmerAnsprechpartnerT"& _ "elefax)) AND ((@IsNull_aes_VertreterAnmelderTeilnehmerEORI = 1 AND [aes_Vertrete"& _ "rAnmelderTeilnehmerEORI] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerEORI] = @O"& _ "riginal_aes_VertreterAnmelderTeilnehmerEORI)) AND ((@IsNull_aes_VertreterAnmelde"& _ "rTeilnehmerNLNR = 1 AND [aes_VertreterAnmelderTeilnehmerNLNR] IS NULL) OR ([aes_"& _ "VertreterAnmelderTeilnehmerNLNR] = @Original_aes_VertreterAnmelderTeilnehmerNLNR"& _ ")) AND ((@IsNull_aes_VertreterAnmelderTeilnehmerName = 1 AND [aes_VertreterAnmel"& _ "derTeilnehmerName] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerName] = @Origina"& _ "l_aes_VertreterAnmelderTeilnehmerName)) AND ((@IsNull_aes_VertreterAnmelderTeiln"& _ "ehmerStrasse = 1 AND [aes_VertreterAnmelderTeilnehmerStrasse] IS NULL) OR ([aes_"& _ "VertreterAnmelderTeilnehmerStrasse] = @Original_aes_VertreterAnmelderTeilnehmerS"& _ "trasse)) AND ((@IsNull_aes_VertreterAnmelderTeilnehmerOrt = 1 AND [aes_Vertreter"& _ "AnmelderTeilnehmerOrt] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerOrt] = @Orig"& _ "inal_aes_VertreterAnmelderTeilnehmerOrt)) AND ((@IsNull_aes_VertreterAnmelderTei"& _ "lnehmerPLZ = 1 AND [aes_VertreterAnmelderTeilnehmerPLZ] IS NULL) OR ([aes_Vertre"& _ "terAnmelderTeilnehmerPLZ] = @Original_aes_VertreterAnmelderTeilnehmerPLZ)) AND ("& _ "(@IsNull_aes_VertreterAnmelderTeilnehmerLandCode = 1 AND [aes_VertreterAnmelderT"& _ "eilnehmerLandCode] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerLandCode] = @Ori"& _ "ginal_aes_VertreterAnmelderTeilnehmerLandCode)) AND ((@IsNull_aes_VertreterAnmel"& _ "derTeilnehmerAnsprechpartnerSachbearbeiter = 1 AND [aes_VertreterAnmelderTeilneh"& _ "merAnsprechpartnerSachbearbeiter] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerA"& _ "nsprechpartnerSachbearbeiter] = @Original_aes_VertreterAnmelderTeilnehmerAnsprec"& _ "hpartnerSachbearbeiter)) AND ((@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpa"& _ "rtnerTelefonnummer = 1 AND [aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefo"& _ "nnummer] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnumm"& _ "er] = @Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer)) AN"& _ "D ((@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung = 1 AND [aes_"& _ "VertreterAnmelderTeilnehmerAnsprechpartnerStellung] IS NULL) OR ([aes_VertreterA"& _ "nmelderTeilnehmerAnsprechpartnerStellung] = @Original_aes_VertreterAnmelderTeiln"& _ "ehmerAnsprechpartnerStellung)) AND ((@IsNull_aes_VertreterAnmelderTeilnehmerAnsp"& _ "rechpartnerEmail = 1 AND [aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail] I"& _ "S NULL) OR ([aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail] = @Original_ae"& _ "s_VertreterAnmelderTeilnehmerAnsprechpartnerEmail)) AND ((@IsNull_aes_VertreterA"& _ "nmelderTeilnehmerAnsprechpartnerTelefax = 1 AND [aes_VertreterAnmelderTeilnehmer"& _ "AnsprechpartnerTelefax] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerAnsprechpar"& _ "tnerTelefax] = @Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax))"& _ " AND ((@IsNull_aes_SubunternehmerTeilnehmerEORI = 1 AND [aes_SubunternehmerTeiln"& _ "ehmerEORI] IS NULL) OR ([aes_SubunternehmerTeilnehmerEORI] = @Original_aes_Subun"& _ "ternehmerTeilnehmerEORI)) AND ((@IsNull_aes_SubunternehmerTeilnehmerNLNR = 1 AND"& _ " [aes_SubunternehmerTeilnehmerNLNR] IS NULL) OR ([aes_SubunternehmerTeilnehmerNL"& _ "NR] = @Original_aes_SubunternehmerTeilnehmerNLNR)) AND ((@IsNull_aes_Subunterneh"& _ "merTeilnehmerName = 1 AND [aes_SubunternehmerTeilnehmerName] IS NULL) OR ([aes_S"& _ "ubunternehmerTeilnehmerName] = @Original_aes_SubunternehmerTeilnehmerName)) AND "& _ "((@IsNull_aes_SubunternehmerTeilnehmerStrasse = 1 AND [aes_SubunternehmerTeilneh"& _ "merStrasse] IS NULL) OR ([aes_SubunternehmerTeilnehmerStrasse] = @Original_aes_S"& _ "ubunternehmerTeilnehmerStrasse)) AND ((@IsNull_aes_SubunternehmerTeilnehmerOrt ="& _ " 1 AND [aes_SubunternehmerTeilnehmerOrt] IS NULL) OR ([aes_SubunternehmerTeilneh"& _ "merOrt] = @Original_aes_SubunternehmerTeilnehmerOrt)) AND ((@IsNull_aes_Subunter"& _ "nehmerTeilnehmerPLZ = 1 AND [aes_SubunternehmerTeilnehmerPLZ] IS NULL) OR ([aes_"& _ "SubunternehmerTeilnehmerPLZ] = @Original_aes_SubunternehmerTeilnehmerPLZ)) AND ("& _ "(@IsNull_aes_SubunternehmerTeilnehmerLandCode = 1 AND [aes_SubunternehmerTeilneh"& _ "merLandCode] IS NULL) OR ([aes_SubunternehmerTeilnehmerLandCode] = @Original_aes"& _ "_SubunternehmerTeilnehmerLandCode)) AND ((@IsNull_aes_SubunternehmerTeilnehmerAn"& _ "sprechpartnerSachbearbeiter = 1 AND [aes_SubunternehmerTeilnehmerAnsprechpartner"& _ "Sachbearbeiter] IS NULL) OR ([aes_SubunternehmerTeilnehmerAnsprechpartnerSachbea"& _ "rbeiter] = @Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter))"& _ " AND ((@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer = 1 AND "& _ "[aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer] IS NULL) OR ([aes_Sub"& _ "unternehmerTeilnehmerAnsprechpartnerTelefonnummer] = @Original_aes_Subunternehme"& _ "rTeilnehmerAnsprechpartnerTelefonnummer)) AND ((@IsNull_aes_SubunternehmerTeilne"& _ "hmerAnsprechpartnerStellung = 1 AND [aes_SubunternehmerTeilnehmerAnsprechpartner"& _ "Stellung] IS NULL) OR ([aes_SubunternehmerTeilnehmerAnsprechpartnerStellung] = @"& _ "Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung)) AND ((@IsNull_aes"& _ "_SubunternehmerTeilnehmerAnsprechpartnerEmail = 1 AND [aes_SubunternehmerTeilneh"& _ "merAnsprechpartnerEmail] IS NULL) OR ([aes_SubunternehmerTeilnehmerAnsprechpartn"& _ "erEmail] = @Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail)) AND ((@I"& _ "sNull_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax = 1 AND [aes_Subunterne"& _ "hmerTeilnehmerAnsprechpartnerTelefax] IS NULL) OR ([aes_SubunternehmerTeilnehmer"& _ "AnsprechpartnerTelefax] = @Original_aes_SubunternehmerTeilnehmerAnsprechpartnerT"& _ "elefax)) AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerEORI = 1 AND [aes_Verfah"& _ "rensinhaberPVTeilnehmerEORI] IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerEORI"& _ "] = @Original_aes_VerfahrensinhaberPVTeilnehmerEORI)) AND ((@IsNull_aes_Verfahre"& _ "nsinhaberPVTeilnehmerNLNR = 1 AND [aes_VerfahrensinhaberPVTeilnehmerNLNR] IS NUL"& _ "L) OR ([aes_VerfahrensinhaberPVTeilnehmerNLNR] = @Original_aes_Verfahrensinhaber"& _ "PVTeilnehmerNLNR)) AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerName = 1 AND ["& _ "aes_VerfahrensinhaberPVTeilnehmerName] IS NULL) OR ([aes_VerfahrensinhaberPVTeil"& _ "nehmerName] = @Original_aes_VerfahrensinhaberPVTeilnehmerName)) AND ((@IsNull_ae"& _ "s_VerfahrensinhaberPVTeilnehmerStrasse = 1 AND [aes_VerfahrensinhaberPVTeilnehme"& _ "rStrasse] IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerStrasse] = @Original_ae"& _ "s_VerfahrensinhaberPVTeilnehmerStrasse)) AND ((@IsNull_aes_VerfahrensinhaberPVTe"& _ "ilnehmerOrt = 1 AND [aes_VerfahrensinhaberPVTeilnehmerOrt] IS NULL) OR ([aes_Ver"& _ "fahrensinhaberPVTeilnehmerOrt] = @Original_aes_VerfahrensinhaberPVTeilnehmerOrt)"& _ ") AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerPLZ = 1 AND [aes_Verfahrensinha"& _ "berPVTeilnehmerPLZ] IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerPLZ] = @Origi"& _ "nal_aes_VerfahrensinhaberPVTeilnehmerPLZ)) AND ((@IsNull_aes_VerfahrensinhaberPV"& _ "TeilnehmerLandCode = 1 AND [aes_VerfahrensinhaberPVTeilnehmerLandCode] IS NULL) "& _ "OR ([aes_VerfahrensinhaberPVTeilnehmerLandCode] = @Original_aes_Verfahrensinhabe"& _ "rPVTeilnehmerLandCode)) AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechp"& _ "artnerSachbearbeiter = 1 AND [aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSa"& _ "chbearbeiter] IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSach"& _ "bearbeiter] = @Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbear"& _ "beiter)) AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnu"& _ "mmer = 1 AND [aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer] IS "& _ "NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer] = @Ori"& _ "ginal_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer)) AND ((@IsN"& _ "ull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung = 1 AND [aes_Verfah"& _ "rensinhaberPVTeilnehmerAnsprechpartnerStellung] IS NULL) OR ([aes_Verfahrensinha"& _ "berPVTeilnehmerAnsprechpartnerStellung] = @Original_aes_VerfahrensinhaberPVTeiln"& _ "ehmerAnsprechpartnerStellung)) AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerAn"& _ "sprechpartnerEmail = 1 AND [aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmai"& _ "l] IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail] = @Origi"& _ "nal_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail)) AND ((@IsNull_aes_Ve"& _ "rfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax = 1 AND [aes_Verfahrensinhaber"& _ "PVTeilnehmerAnsprechpartnerTelefax] IS NULL) OR ([aes_VerfahrensinhaberPVTeilneh"& _ "merAnsprechpartnerTelefax] = @Original_aes_VerfahrensinhaberPVTeilnehmerAnsprech"& _ "partnerTelefax)) AND ((@IsNull_aes_BefoerderungsrouteLand1 = 1 AND [aes_Befoerde"& _ "rungsrouteLand1] IS NULL) OR ([aes_BefoerderungsrouteLand1] = @Original_aes_Befo"& _ "erderungsrouteLand1)) AND ((@IsNull_aes_BefoerderungsrouteLand2 = 1 AND [aes_Bef"& _ "oerderungsrouteLand2] IS NULL) OR ([aes_BefoerderungsrouteLand2] = @Original_aes"& _ "_BefoerderungsrouteLand2)) AND ((@IsNull_aes_BefoerderungsrouteLand3 = 1 AND [ae"& _ "s_BefoerderungsrouteLand3] IS NULL) OR ([aes_BefoerderungsrouteLand3] = @Origina"& _ "l_aes_BefoerderungsrouteLand3)) AND ((@IsNull_aes_BefoerderungsrouteLand4 = 1 AN"& _ "D [aes_BefoerderungsrouteLand4] IS NULL) OR ([aes_BefoerderungsrouteLand4] = @Or"& _ "iginal_aes_BefoerderungsrouteLand4)) AND ((@IsNull_aes_BefoerderungsrouteLand5 ="& _ " 1 AND [aes_BefoerderungsrouteLand5] IS NULL) OR ([aes_BefoerderungsrouteLand5] "& _ "= @Original_aes_BefoerderungsrouteLand5)) AND ((@IsNull_aes_BefoerderungsrouteLa"& _ "nd6 = 1 AND [aes_BefoerderungsrouteLand6] IS NULL) OR ([aes_BefoerderungsrouteLa"& _ "nd6] = @Original_aes_BefoerderungsrouteLand6)) AND ((@IsNull_aes_Befoerderungsro"& _ "uteLand7 = 1 AND [aes_BefoerderungsrouteLand7] IS NULL) OR ([aes_Befoerderungsro"& _ "uteLand7] = @Original_aes_BefoerderungsrouteLand7)) AND ((@IsNull_aes_Befoerderu"& _ "ngsrouteLand8 = 1 AND [aes_BefoerderungsrouteLand8] IS NULL) OR ([aes_Befoerderu"& _ "ngsrouteLand8] = @Original_aes_BefoerderungsrouteLand8)) AND ((@IsNull_aes_Befoe"& _ "rderungsrouteLand9 = 1 AND [aes_BefoerderungsrouteLand9] IS NULL) OR ([aes_Befoe"& _ "rderungsrouteLand9] = @Original_aes_BefoerderungsrouteLand9)) AND ((@IsNull_aes_"& _ "BefoerderungsrouteLand10 = 1 AND [aes_BefoerderungsrouteLand10] IS NULL) OR ([ae"& _ "s_BefoerderungsrouteLand10] = @Original_aes_BefoerderungsrouteLand10)) AND ((@Is"& _ "Null_aes_BefoerderungsrouteLand11 = 1 AND [aes_BefoerderungsrouteLand11] IS NULL"& _ ") OR ([aes_BefoerderungsrouteLand11] = @Original_aes_BefoerderungsrouteLand11)) "& _ "AND ((@IsNull_aes_BefoerderungsrouteLand12 = 1 AND [aes_BefoerderungsrouteLand12"& _ "] IS NULL) OR ([aes_BefoerderungsrouteLand12] = @Original_aes_Befoerderungsroute"& _ "Land12)) AND ((@IsNull_aes_LieferbedingungenCode = 1 AND [aes_LieferbedingungenC"& _ "ode] IS NULL) OR ([aes_LieferbedingungenCode] = @Original_aes_LieferbedingungenC"& _ "ode)) AND ((@IsNull_aes_LieferbedingungenText = 1 AND [aes_LieferbedingungenText"& _ "] IS NULL) OR ([aes_LieferbedingungenText] = @Original_aes_LieferbedingungenText"& _ ")) AND ((@IsNull_aes_LieferbedingungenOrt = 1 AND [aes_LieferbedingungenOrt] IS "& _ "NULL) OR ([aes_LieferbedingungenOrt] = @Original_aes_LieferbedingungenOrt)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_dyaArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_dyaAnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_ANR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ANR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ANR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Partner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Partner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Div1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Div2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Div3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_DatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aes_Trans_Version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_NachrichtenSenderTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_ObjectName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_ObjectAlias", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectAlias", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectAlias", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BezugsnummerVorblendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Bearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Bearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Bearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmeldeArtAusfuhrCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtAusfuhrCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmeldeArtAusfuhrCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtAusfuhrCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmeldeArtVerfahrensCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtVerfahrensCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmeldeArtVerfahrensCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtVerfahrensCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Ausfuhrland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Ausfuhrland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Ausfuhrland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Ausfuhrland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BestimmungslandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmeldedatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldedatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmeldedatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldedatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_DatumAusgang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_DatumAusgang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_DatumAusgang", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_DatumAusgang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_MassgeblichesDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MassgeblichesDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_MassgeblichesDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MassgeblichesDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BesondereUmstaende", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Zahlungsweisebefoerderungskosten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Zahlungsweisebefoerderungskosten", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Zahlungsweisebefoerderungskosten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Zahlungsweisebefoerderungskosten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_ContainerIndikator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ContainerIndikator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_ContainerIndikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ContainerIndikator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BeteiligteKonstellation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BeteiligteKonstellation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BeteiligteKonstellation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BeteiligteKonstellation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AdressdatenKonstellation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AdressdatenKonstellation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AdressdatenKonstellation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AdressdatenKonstellation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_GesamtRohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aes_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_RegistriernummerFremdsystem", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_RegistriernummerFremdsystem", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_RegistriernummerFremdsystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_RegistriernummerFremdsystem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Vermerk", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Vermerk", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Vermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_KennnummerSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_KennnummerSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_KennnummerSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnzahlPositionen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnzahlPositionen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnzahlPositionen", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aes_AnzahlPositionen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BewiligungsnummerAusfuhr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAusfuhr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BewiligungsnummerAusfuhr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAusfuhr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerkehrszweigInland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerkehrszweigGrenze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LadeortOrtId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrtId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LadeortOrtId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrtId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LadeortStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LadeortStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LadeortPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LadeortPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LadeortOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LadeortOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LadeortZusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortZusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LadeortZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortZusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuhrZollstelleID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuhrZollstelleID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuhrZollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuhrZollstelleID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusgangszollstelleID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusgangszollstelleID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusgangszollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusgangszollstelleID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_GeschaeftartCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GeschaeftartCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_GeschaeftartCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GeschaeftartCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Rechnungspreis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Rechnungspreis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Rechnungspreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "aes_Rechnungspreis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Rechnungwaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Rechnungwaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Rechnungwaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Rechnungwaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BesondererTatbestand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondererTatbestand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BesondererTatbestand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondererTatbestand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussAnzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussAnzahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussAnzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_GestellungsfristAnfangDatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristAnfangDatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_GestellungsfristAnfangDatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristAnfangDatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_GestellungsfristEndeDatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristEndeDatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_GestellungsfristEndeDatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristEndeDatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LieferbedingungenCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LieferbedingungenCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LieferbedingungenText", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenText", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LieferbedingungenText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenText", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LieferbedingungenOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LieferbedingungenOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenOrt", 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].[tblDakosy_AES] ([aes_Status], [aes_Status_KEWILL_Equivalent], "& _ "[aes_dyaArt], [aes_dyaAnmID], [aes_ANR], [aes_MRN], [aes_Erstellung], [aes_Erste"& _ "llung_SB], [aes_LetzteBearbeitung], [aes_LetzteBearbeitung_SB], [aes_firma], [ae"& _ "s_niederlassung], [aes_Trans_Partner], [aes_Trans_Div1], [aes_Trans_Div2], [aes_"& _ "Trans_Div3], [aes_Trans_Referenz], [aes_Trans_DatumZeit], [aes_Trans_Version], ["& _ "aes_NachrichtenSenderTIN], [aes_NachrichtenSenderNLNR], [aes_Nachrichtenempfaeng"& _ "erDST], [aes_ObjectName], [aes_ObjectAlias], [aes_BezugsnummerVorblendung], [aes"& _ "_Bearbeiter], [aes_AnmeldeArtAusfuhrCode], [aes_AnmeldeArtVerfahrensCode], [aes_"& _ "AnmeldeArtUeberfuehrungCode], [aes_Ausfuhrland], [aes_BestimmungslandCode], [aes"& _ "_AnmeldedatumZeit], [aes_DatumAusgang], [aes_MassgeblichesDatum], [aes_Besondere"& _ "Umstaende], [aes_Zahlungsweisebefoerderungskosten], [aes_ContainerIndikator], [a"& _ "es_BeteiligteKonstellation], [aes_AdressdatenKonstellation], [aes_GesamtRohmasse"& _ "], [aes_RegistriernummerFremdsystem], [aes_Vermerk], [aes_KennnummerSendung], [a"& _ "es_AnzahlPositionen], [aes_BewiligungsnummerAusfuhr], [aes_BewiligungsnummerAnsc"& _ "hreibeverfahren], [aes_BewiligungsnummerPassiveVeredelung], [aes_Bewiligungsnumm"& _ "erVertrausenswuerdigerAusfuehrer], [aes_VerkehrszweigInland], [aes_Befoerderungs"& _ "mittelAbgangArtCode], [aes_BefoerderungsmittelAbgangKennzeichen], [aes_Befoerder"& _ "ungsmittelAbgangStaatCode], [aes_VerkehrszweigGrenze], [aes_BefoerderungsmittelG"& _ "renzeArtCode], [aes_BefoerderungsmittelGrenzeKennzeichen], [aes_Befoerderungsmit"& _ "telGrenzeStaatCode], [aes_LadeortOrtId], [aes_LadeortStrasse], [aes_LadeortPLZ],"& _ " [aes_LadeortOrt], [aes_LadeortZusatz], [aes_AusfuhrZollstelleID], [aes_Ausgangs"& _ "zollstelleID], [aes_TatsaechlicheAusgangZollstelleID], [aes_GeschaeftartCode], ["& _ "aes_Rechnungspreis], [aes_Rechnungwaehrung], [aes_BesondererTatbestand], [aes_Ve"& _ "rschlussArtCode], [aes_VerschlussAnzahl], [aes_VerschlussZeichen1], [aes_Verschl"& _ "ussZeichen2], [aes_VerschlussZeichen3], [aes_VerschlussZeichen4], [aes_Verschlus"& _ "sZeichen5], [aes_VerschlussZeichen6], [aes_VerschlussZeichen7], [aes_VerschlussZ"& _ "eichen8], [aes_VerschlussZeichen9], [aes_VerschlussZeichen10], [aes_VerschlussZe"& _ "ichen11], [aes_VerschlussZeichen12], [aes_GestellungsfristAnfangDatumZeit], [aes"& _ "_GestellungsfristEndeDatumZeit], [aes_AusfuehrerTeilnehmerEORI], [aes_Ausfuehrer"& _ "TeilnehmerNLNR], [aes_AusfuehrerTeilnehmerName], [aes_AusfuehrerTeilnehmerStrass"& _ "e], [aes_AusfuehrerTeilnehmerOrt], [aes_AusfuehrerTeilnehmerPLZ], [aes_Ausfuehre"& _ "rTeilnehmerLandCode], [aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter], ["& _ "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer], [aes_AusfuehrerTeilnehmer"& _ "AnsprechpartnerStellung], [aes_AusfuehrerTeilnehmerAnsprechpartnerEmail], [aes_A"& _ "usfuehrerTeilnehmerAnsprechpartnerTelefax], [aes_EmpfaengerTeilnehmerEORI], [aes"& _ "_EmpfaengerTeilnehmerNLNR], [aes_EmpfaengerTeilnehmerName], [aes_EmpfaengerTeiln"& _ "ehmerStrasse], [aes_EmpfaengerTeilnehmerOrt], [aes_EmpfaengerTeilnehmerPLZ], [ae"& _ "s_EmpfaengerTeilnehmerLandCode], [aes_AnmelderTeilnehmerEORI], [aes_AnmelderTeil"& _ "nehmerNLNR], [aes_AnmelderTeilnehmerName], [aes_AnmelderTeilnehmerStrasse], [aes"& _ "_AnmelderTeilnehmerOrt], [aes_AnmelderTeilnehmerPLZ], [aes_AnmelderTeilnehmerLan"& _ "dCode], [aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter], [aes_AnmelderTeil"& _ "nehmerAnsprechpartnerTelefonnummer], [aes_AnmelderTeilnehmerAnsprechpartnerStell"& _ "ung], [aes_AnmelderTeilnehmerAnsprechpartnerEmail], [aes_AnmelderTeilnehmerAnspr"& _ "echpartnerTelefax], [aes_VertreterAnmelderTeilnehmerEORI], [aes_VertreterAnmelde"& _ "rTeilnehmerNLNR], [aes_VertreterAnmelderTeilnehmerName], [aes_VertreterAnmelderT"& _ "eilnehmerStrasse], [aes_VertreterAnmelderTeilnehmerOrt], [aes_VertreterAnmelderT"& _ "eilnehmerPLZ], [aes_VertreterAnmelderTeilnehmerLandCode], [aes_VertreterAnmelder"& _ "TeilnehmerAnsprechpartnerSachbearbeiter], [aes_VertreterAnmelderTeilnehmerAnspre"& _ "chpartnerTelefonnummer], [aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung"& _ "], [aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail], [aes_VertreterAnmelder"& _ "TeilnehmerAnsprechpartnerTelefax], [aes_SubunternehmerTeilnehmerEORI], [aes_Subu"& _ "nternehmerTeilnehmerNLNR], [aes_SubunternehmerTeilnehmerName], [aes_Subunternehm"& _ "erTeilnehmerStrasse], [aes_SubunternehmerTeilnehmerOrt], [aes_SubunternehmerTeil"& _ "nehmerPLZ], [aes_SubunternehmerTeilnehmerLandCode], [aes_SubunternehmerTeilnehme"& _ "rAnsprechpartnerSachbearbeiter], [aes_SubunternehmerTeilnehmerAnsprechpartnerTel"& _ "efonnummer], [aes_SubunternehmerTeilnehmerAnsprechpartnerStellung], [aes_Subunte"& _ "rnehmerTeilnehmerAnsprechpartnerEmail], [aes_SubunternehmerTeilnehmerAnsprechpar"& _ "tnerTelefax], [aes_VerfahrensinhaberPVTeilnehmerEORI], [aes_VerfahrensinhaberPVT"& _ "eilnehmerNLNR], [aes_VerfahrensinhaberPVTeilnehmerName], [aes_VerfahrensinhaberP"& _ "VTeilnehmerStrasse], [aes_VerfahrensinhaberPVTeilnehmerOrt], [aes_Verfahrensinha"& _ "berPVTeilnehmerPLZ], [aes_VerfahrensinhaberPVTeilnehmerLandCode], [aes_Verfahren"& _ "sinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter], [aes_VerfahrensinhaberPVTeil"& _ "nehmerAnsprechpartnerTelefonnummer], [aes_VerfahrensinhaberPVTeilnehmerAnsprechp"& _ "artnerStellung], [aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail], [aes_V"& _ "erfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax], [aes_BefoerderungsrouteLand"& _ "1], [aes_BefoerderungsrouteLand2], [aes_BefoerderungsrouteLand3], [aes_Befoerder"& _ "ungsrouteLand4], [aes_BefoerderungsrouteLand5], [aes_BefoerderungsrouteLand6], ["& _ "aes_BefoerderungsrouteLand7], [aes_BefoerderungsrouteLand8], [aes_Befoerderungsr"& _ "outeLand9], [aes_BefoerderungsrouteLand10], [aes_BefoerderungsrouteLand11], [aes"& _ "_BefoerderungsrouteLand12], [aes_LieferbedingungenCode], [aes_LieferbedingungenT"& _ "ext], [aes_LieferbedingungenOrt]) VALUES (@aes_Status, @aes_Status_KEWILL_Equiva"& _ "lent, @aes_dyaArt, @aes_dyaAnmID, @aes_ANR, @aes_MRN, @aes_Erstellung, @aes_Erst"& _ "ellung_SB, @aes_LetzteBearbeitung, @aes_LetzteBearbeitung_SB, @aes_firma, @aes_n"& _ "iederlassung, @aes_Trans_Partner, @aes_Trans_Div1, @aes_Trans_Div2, @aes_Trans_D"& _ "iv3, @aes_Trans_Referenz, @aes_Trans_DatumZeit, @aes_Trans_Version, @aes_Nachric"& _ "htenSenderTIN, @aes_NachrichtenSenderNLNR, @aes_NachrichtenempfaengerDST, @aes_O"& _ "bjectName, @aes_ObjectAlias, @aes_BezugsnummerVorblendung, @aes_Bearbeiter, @aes"& _ "_AnmeldeArtAusfuhrCode, @aes_AnmeldeArtVerfahrensCode, @aes_AnmeldeArtUeberfuehr"& _ "ungCode, @aes_Ausfuhrland, @aes_BestimmungslandCode, @aes_AnmeldedatumZeit, @aes"& _ "_DatumAusgang, @aes_MassgeblichesDatum, @aes_BesondereUmstaende, @aes_Zahlungswe"& _ "isebefoerderungskosten, @aes_ContainerIndikator, @aes_BeteiligteKonstellation, @"& _ "aes_AdressdatenKonstellation, @aes_GesamtRohmasse, @aes_RegistriernummerFremdsys"& _ "tem, @aes_Vermerk, @aes_KennnummerSendung, @aes_AnzahlPositionen, @aes_Bewiligun"& _ "gsnummerAusfuhr, @aes_BewiligungsnummerAnschreibeverfahren, @aes_Bewiligungsnumm"& _ "erPassiveVeredelung, @aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer, @aes_"& _ "VerkehrszweigInland, @aes_BefoerderungsmittelAbgangArtCode, @aes_Befoerderungsmi"& _ "ttelAbgangKennzeichen, @aes_BefoerderungsmittelAbgangStaatCode, @aes_Verkehrszwe"& _ "igGrenze, @aes_BefoerderungsmittelGrenzeArtCode, @aes_BefoerderungsmittelGrenzeK"& _ "ennzeichen, @aes_BefoerderungsmittelGrenzeStaatCode, @aes_LadeortOrtId, @aes_Lad"& _ "eortStrasse, @aes_LadeortPLZ, @aes_LadeortOrt, @aes_LadeortZusatz, @aes_AusfuhrZ"& _ "ollstelleID, @aes_AusgangszollstelleID, @aes_TatsaechlicheAusgangZollstelleID, @"& _ "aes_GeschaeftartCode, @aes_Rechnungspreis, @aes_Rechnungwaehrung, @aes_Besondere"& _ "rTatbestand, @aes_VerschlussArtCode, @aes_VerschlussAnzahl, @aes_VerschlussZeich"& _ "en1, @aes_VerschlussZeichen2, @aes_VerschlussZeichen3, @aes_VerschlussZeichen4, "& _ "@aes_VerschlussZeichen5, @aes_VerschlussZeichen6, @aes_VerschlussZeichen7, @aes_"& _ "VerschlussZeichen8, @aes_VerschlussZeichen9, @aes_VerschlussZeichen10, @aes_Vers"& _ "chlussZeichen11, @aes_VerschlussZeichen12, @aes_GestellungsfristAnfangDatumZeit,"& _ " @aes_GestellungsfristEndeDatumZeit, @aes_AusfuehrerTeilnehmerEORI, @aes_Ausfueh"& _ "rerTeilnehmerNLNR, @aes_AusfuehrerTeilnehmerName, @aes_AusfuehrerTeilnehmerStras"& _ "se, @aes_AusfuehrerTeilnehmerOrt, @aes_AusfuehrerTeilnehmerPLZ, @aes_AusfuehrerT"& _ "eilnehmerLandCode, @aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter, @aes_"& _ "AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer, @aes_AusfuehrerTeilnehmerAnspr"& _ "echpartnerStellung, @aes_AusfuehrerTeilnehmerAnsprechpartnerEmail, @aes_Ausfuehr"& _ "erTeilnehmerAnsprechpartnerTelefax, @aes_EmpfaengerTeilnehmerEORI, @aes_Empfaeng"& _ "erTeilnehmerNLNR, @aes_EmpfaengerTeilnehmerName, @aes_EmpfaengerTeilnehmerStrass"& _ "e, @aes_EmpfaengerTeilnehmerOrt, @aes_EmpfaengerTeilnehmerPLZ, @aes_EmpfaengerTe"& _ "ilnehmerLandCode, @aes_AnmelderTeilnehmerEORI, @aes_AnmelderTeilnehmerNLNR, @aes"& _ "_AnmelderTeilnehmerName, @aes_AnmelderTeilnehmerStrasse, @aes_AnmelderTeilnehmer"& _ "Ort, @aes_AnmelderTeilnehmerPLZ, @aes_AnmelderTeilnehmerLandCode, @aes_AnmelderT"& _ "eilnehmerAnsprechpartnerSachbearbeiter, @aes_AnmelderTeilnehmerAnsprechpartnerTe"& _ "lefonnummer, @aes_AnmelderTeilnehmerAnsprechpartnerStellung, @aes_AnmelderTeilne"& _ "hmerAnsprechpartnerEmail, @aes_AnmelderTeilnehmerAnsprechpartnerTelefax, @aes_Ve"& _ "rtreterAnmelderTeilnehmerEORI, @aes_VertreterAnmelderTeilnehmerNLNR, @aes_Vertre"& _ "terAnmelderTeilnehmerName, @aes_VertreterAnmelderTeilnehmerStrasse, @aes_Vertret"& _ "erAnmelderTeilnehmerOrt, @aes_VertreterAnmelderTeilnehmerPLZ, @aes_VertreterAnme"& _ "lderTeilnehmerLandCode, @aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearb"& _ "eiter, @aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer, @aes_Vertre"& _ "terAnmelderTeilnehmerAnsprechpartnerStellung, @aes_VertreterAnmelderTeilnehmerAn"& _ "sprechpartnerEmail, @aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax, @aes"& _ "_SubunternehmerTeilnehmerEORI, @aes_SubunternehmerTeilnehmerNLNR, @aes_Subuntern"& _ "ehmerTeilnehmerName, @aes_SubunternehmerTeilnehmerStrasse, @aes_SubunternehmerTe"& _ "ilnehmerOrt, @aes_SubunternehmerTeilnehmerPLZ, @aes_SubunternehmerTeilnehmerLand"& _ "Code, @aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter, @aes_Subuntern"& _ "ehmerTeilnehmerAnsprechpartnerTelefonnummer, @aes_SubunternehmerTeilnehmerAnspre"& _ "chpartnerStellung, @aes_SubunternehmerTeilnehmerAnsprechpartnerEmail, @aes_Subun"& _ "ternehmerTeilnehmerAnsprechpartnerTelefax, @aes_VerfahrensinhaberPVTeilnehmerEOR"& _ "I, @aes_VerfahrensinhaberPVTeilnehmerNLNR, @aes_VerfahrensinhaberPVTeilnehmerNam"& _ "e, @aes_VerfahrensinhaberPVTeilnehmerStrasse, @aes_VerfahrensinhaberPVTeilnehmer"& _ "Ort, @aes_VerfahrensinhaberPVTeilnehmerPLZ, @aes_VerfahrensinhaberPVTeilnehmerLa"& _ "ndCode, @aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter, @aes_Ve"& _ "rfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer, @aes_VerfahrensinhaberP"& _ "VTeilnehmerAnsprechpartnerStellung, @aes_VerfahrensinhaberPVTeilnehmerAnsprechpa"& _ "rtnerEmail, @aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax, @aes_Befoe"& _ "rderungsrouteLand1, @aes_BefoerderungsrouteLand2, @aes_BefoerderungsrouteLand3, "& _ "@aes_BefoerderungsrouteLand4, @aes_BefoerderungsrouteLand5, @aes_Befoerderungsro"& _ "uteLand6, @aes_BefoerderungsrouteLand7, @aes_BefoerderungsrouteLand8, @aes_Befoe"& _ "rderungsrouteLand9, @aes_BefoerderungsrouteLand10, @aes_BefoerderungsrouteLand11"& _ ", @aes_BefoerderungsrouteLand12, @aes_LieferbedingungenCode, @aes_Lieferbedingun"& _ "genText, @aes_LieferbedingungenOrt);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT aes_Id, aes_Status, aes_Status_KEWI"& _ "LL_Equivalent, aes_dyaArt, aes_dyaAnmID, aes_ANR, aes_MRN, aes_Erstellung, aes_E"& _ "rstellung_SB, aes_LetzteBearbeitung, aes_LetzteBearbeitung_SB, aes_firma, aes_ni"& _ "ederlassung, aes_Trans_Partner, aes_Trans_Div1, aes_Trans_Div2, aes_Trans_Div3, "& _ "aes_Trans_Referenz, aes_Trans_DatumZeit, aes_Trans_Version, aes_NachrichtenSende"& _ "rTIN, aes_NachrichtenSenderNLNR, aes_NachrichtenempfaengerDST, aes_ObjectName, a"& _ "es_ObjectAlias, aes_BezugsnummerVorblendung, aes_Bearbeiter, aes_AnmeldeArtAusfu"& _ "hrCode, aes_AnmeldeArtVerfahrensCode, aes_AnmeldeArtUeberfuehrungCode, aes_Ausfu"& _ "hrland, aes_BestimmungslandCode, aes_AnmeldedatumZeit, aes_DatumAusgang, aes_Mas"& _ "sgeblichesDatum, aes_BesondereUmstaende, aes_Zahlungsweisebefoerderungskosten, a"& _ "es_ContainerIndikator, aes_BeteiligteKonstellation, aes_AdressdatenKonstellation"& _ ", aes_GesamtRohmasse, aes_RegistriernummerFremdsystem, aes_Vermerk, aes_Kennnumm"& _ "erSendung, aes_AnzahlPositionen, aes_BewiligungsnummerAusfuhr, aes_Bewiligungsnu"& _ "mmerAnschreibeverfahren, aes_BewiligungsnummerPassiveVeredelung, aes_Bewiligungs"& _ "nummerVertrausenswuerdigerAusfuehrer, aes_VerkehrszweigInland, aes_Befoerderungs"& _ "mittelAbgangArtCode, aes_BefoerderungsmittelAbgangKennzeichen, aes_Befoerderungs"& _ "mittelAbgangStaatCode, aes_VerkehrszweigGrenze, aes_BefoerderungsmittelGrenzeArt"& _ "Code, aes_BefoerderungsmittelGrenzeKennzeichen, aes_BefoerderungsmittelGrenzeSta"& _ "atCode, aes_LadeortOrtId, aes_LadeortStrasse, aes_LadeortPLZ, aes_LadeortOrt, ae"& _ "s_LadeortZusatz, aes_AusfuhrZollstelleID, aes_AusgangszollstelleID, aes_Tatsaech"& _ "licheAusgangZollstelleID, aes_GeschaeftartCode, aes_Rechnungspreis, aes_Rechnung"& _ "waehrung, aes_BesondererTatbestand, aes_VerschlussArtCode, aes_VerschlussAnzahl,"& _ " aes_VerschlussZeichen1, aes_VerschlussZeichen2, aes_VerschlussZeichen3, aes_Ver"& _ "schlussZeichen4, aes_VerschlussZeichen5, aes_VerschlussZeichen6, aes_VerschlussZ"& _ "eichen7, aes_VerschlussZeichen8, aes_VerschlussZeichen9, aes_VerschlussZeichen10"& _ ", aes_VerschlussZeichen11, aes_VerschlussZeichen12, aes_GestellungsfristAnfangDa"& _ "tumZeit, aes_GestellungsfristEndeDatumZeit, aes_AusfuehrerTeilnehmerEORI, aes_Au"& _ "sfuehrerTeilnehmerNLNR, aes_AusfuehrerTeilnehmerName, aes_AusfuehrerTeilnehmerSt"& _ "rasse, aes_AusfuehrerTeilnehmerOrt, aes_AusfuehrerTeilnehmerPLZ, aes_AusfuehrerT"& _ "eilnehmerLandCode, aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter, aes_Au"& _ "sfuehrerTeilnehmerAnsprechpartnerTelefonnummer, aes_AusfuehrerTeilnehmerAnsprech"& _ "partnerStellung, aes_AusfuehrerTeilnehmerAnsprechpartnerEmail, aes_AusfuehrerTei"& _ "lnehmerAnsprechpartnerTelefax, aes_EmpfaengerTeilnehmerEORI, aes_EmpfaengerTeiln"& _ "ehmerNLNR, aes_EmpfaengerTeilnehmerName, aes_EmpfaengerTeilnehmerStrasse, aes_Em"& _ "pfaengerTeilnehmerOrt, aes_EmpfaengerTeilnehmerPLZ, aes_EmpfaengerTeilnehmerLand"& _ "Code, aes_AnmelderTeilnehmerEORI, aes_AnmelderTeilnehmerNLNR, aes_AnmelderTeilne"& _ "hmerName, aes_AnmelderTeilnehmerStrasse, aes_AnmelderTeilnehmerOrt, aes_Anmelder"& _ "TeilnehmerPLZ, aes_AnmelderTeilnehmerLandCode, aes_AnmelderTeilnehmerAnsprechpar"& _ "tnerSachbearbeiter, aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer, aes_Anme"& _ "lderTeilnehmerAnsprechpartnerStellung, aes_AnmelderTeilnehmerAnsprechpartnerEmai"& _ "l, aes_AnmelderTeilnehmerAnsprechpartnerTelefax, aes_VertreterAnmelderTeilnehmer"& _ "EORI, aes_VertreterAnmelderTeilnehmerNLNR, aes_VertreterAnmelderTeilnehmerName, "& _ "aes_VertreterAnmelderTeilnehmerStrasse, aes_VertreterAnmelderTeilnehmerOrt, aes_"& _ "VertreterAnmelderTeilnehmerPLZ, aes_VertreterAnmelderTeilnehmerLandCode, aes_Ver"& _ "treterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter, aes_VertreterAnmelderTeil"& _ "nehmerAnsprechpartnerTelefonnummer, aes_VertreterAnmelderTeilnehmerAnsprechpartn"& _ "erStellung, aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail, aes_VertreterAn"& _ "melderTeilnehmerAnsprechpartnerTelefax, aes_SubunternehmerTeilnehmerEORI, aes_Su"& _ "bunternehmerTeilnehmerNLNR, aes_SubunternehmerTeilnehmerName, aes_Subunternehmer"& _ "TeilnehmerStrasse, aes_SubunternehmerTeilnehmerOrt, aes_SubunternehmerTeilnehmer"& _ "PLZ, aes_SubunternehmerTeilnehmerLandCode, aes_SubunternehmerTeilnehmerAnsprechp"& _ "artnerSachbearbeiter, aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer, "& _ "aes_SubunternehmerTeilnehmerAnsprechpartnerStellung, aes_SubunternehmerTeilnehme"& _ "rAnsprechpartnerEmail, aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax, aes_V"& _ "erfahrensinhaberPVTeilnehmerEORI, aes_VerfahrensinhaberPVTeilnehmerNLNR, aes_Ver"& _ "fahrensinhaberPVTeilnehmerName, aes_VerfahrensinhaberPVTeilnehmerStrasse, aes_Ve"& _ "rfahrensinhaberPVTeilnehmerOrt, aes_VerfahrensinhaberPVTeilnehmerPLZ, aes_Verfah"& _ "rensinhaberPVTeilnehmerLandCode, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartne"& _ "rSachbearbeiter, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer, "& _ "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung, aes_VerfahrensinhaberP"& _ "VTeilnehmerAnsprechpartnerEmail, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartne"& _ "rTelefax, aes_BefoerderungsrouteLand1, aes_BefoerderungsrouteLand2, aes_Befoerde"& _ "rungsrouteLand3, aes_BefoerderungsrouteLand4, aes_BefoerderungsrouteLand5, aes_B"& _ "efoerderungsrouteLand6, aes_BefoerderungsrouteLand7, aes_BefoerderungsrouteLand8"& _ ", aes_BefoerderungsrouteLand9, aes_BefoerderungsrouteLand10, aes_Befoerderungsro"& _ "uteLand11, aes_BefoerderungsrouteLand12, aes_LieferbedingungenCode, aes_Lieferbe"& _ "dingungenText, aes_LieferbedingungenOrt FROM tblDakosy_AES WHERE (aes_Id = SCOPE"& _ "_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_dyaArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_dyaAnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ANR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_DatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aes_Trans_Version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectAlias", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Bearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmeldeArtAusfuhrCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtAusfuhrCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmeldeArtVerfahrensCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtVerfahrensCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Ausfuhrland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Ausfuhrland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BestimmungslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmeldedatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldedatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_DatumAusgang", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_DatumAusgang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_MassgeblichesDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MassgeblichesDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondereUmstaende", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Zahlungsweisebefoerderungskosten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Zahlungsweisebefoerderungskosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_ContainerIndikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ContainerIndikator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BeteiligteKonstellation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BeteiligteKonstellation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AdressdatenKonstellation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AdressdatenKonstellation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aes_GesamtRohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_RegistriernummerFremdsystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_RegistriernummerFremdsystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_KennnummerSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnzahlPositionen", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aes_AnzahlPositionen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BewiligungsnummerAusfuhr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAusfuhr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigInland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LadeortOrtId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrtId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LadeortStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LadeortPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LadeortOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LadeortZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortZusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuhrZollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuhrZollstelleID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusgangszollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusgangszollstelleID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_GeschaeftartCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GeschaeftartCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Rechnungspreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "aes_Rechnungspreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Rechnungwaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Rechnungwaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BesondererTatbestand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondererTatbestand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussAnzahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_GestellungsfristAnfangDatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristAnfangDatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_GestellungsfristEndeDatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristEndeDatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LieferbedingungenCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LieferbedingungenText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LieferbedingungenOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenOrt", 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].[tblDakosy_AES] SET [aes_Status] = @aes_Status, [aes_Status_KEWILL_E"& _ "quivalent] = @aes_Status_KEWILL_Equivalent, [aes_dyaArt] = @aes_dyaArt, [aes_dya"& _ "AnmID] = @aes_dyaAnmID, [aes_ANR] = @aes_ANR, [aes_MRN] = @aes_MRN, [aes_Erstell"& _ "ung] = @aes_Erstellung, [aes_Erstellung_SB] = @aes_Erstellung_SB, [aes_LetzteBea"& _ "rbeitung] = @aes_LetzteBearbeitung, [aes_LetzteBearbeitung_SB] = @aes_LetzteBear"& _ "beitung_SB, [aes_firma] = @aes_firma, [aes_niederlassung] = @aes_niederlassung, "& _ "[aes_Trans_Partner] = @aes_Trans_Partner, [aes_Trans_Div1] = @aes_Trans_Div1, [a"& _ "es_Trans_Div2] = @aes_Trans_Div2, [aes_Trans_Div3] = @aes_Trans_Div3, [aes_Trans"& _ "_Referenz] = @aes_Trans_Referenz, [aes_Trans_DatumZeit] = @aes_Trans_DatumZeit, "& _ "[aes_Trans_Version] = @aes_Trans_Version, [aes_NachrichtenSenderTIN] = @aes_Nach"& _ "richtenSenderTIN, [aes_NachrichtenSenderNLNR] = @aes_NachrichtenSenderNLNR, [aes"& _ "_NachrichtenempfaengerDST] = @aes_NachrichtenempfaengerDST, [aes_ObjectName] = @"& _ "aes_ObjectName, [aes_ObjectAlias] = @aes_ObjectAlias, [aes_BezugsnummerVorblendu"& _ "ng] = @aes_BezugsnummerVorblendung, [aes_Bearbeiter] = @aes_Bearbeiter, [aes_Anm"& _ "eldeArtAusfuhrCode] = @aes_AnmeldeArtAusfuhrCode, [aes_AnmeldeArtVerfahrensCode]"& _ " = @aes_AnmeldeArtVerfahrensCode, [aes_AnmeldeArtUeberfuehrungCode] = @aes_Anmel"& _ "deArtUeberfuehrungCode, [aes_Ausfuhrland] = @aes_Ausfuhrland, [aes_Bestimmungsla"& _ "ndCode] = @aes_BestimmungslandCode, [aes_AnmeldedatumZeit] = @aes_AnmeldedatumZe"& _ "it, [aes_DatumAusgang] = @aes_DatumAusgang, [aes_MassgeblichesDatum] = @aes_Mass"& _ "geblichesDatum, [aes_BesondereUmstaende] = @aes_BesondereUmstaende, [aes_Zahlung"& _ "sweisebefoerderungskosten] = @aes_Zahlungsweisebefoerderungskosten, [aes_Contain"& _ "erIndikator] = @aes_ContainerIndikator, [aes_BeteiligteKonstellation] = @aes_Bet"& _ "eiligteKonstellation, [aes_AdressdatenKonstellation] = @aes_AdressdatenKonstella"& _ "tion, [aes_GesamtRohmasse] = @aes_GesamtRohmasse, [aes_RegistriernummerFremdsyst"& _ "em] = @aes_RegistriernummerFremdsystem, [aes_Vermerk] = @aes_Vermerk, [aes_Kennn"& _ "ummerSendung] = @aes_KennnummerSendung, [aes_AnzahlPositionen] = @aes_AnzahlPosi"& _ "tionen, [aes_BewiligungsnummerAusfuhr] = @aes_BewiligungsnummerAusfuhr, [aes_Bew"& _ "iligungsnummerAnschreibeverfahren] = @aes_BewiligungsnummerAnschreibeverfahren, "& _ "[aes_BewiligungsnummerPassiveVeredelung] = @aes_BewiligungsnummerPassiveVeredelu"& _ "ng, [aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer] = @aes_Bewiligungsnumm"& _ "erVertrausenswuerdigerAusfuehrer, [aes_VerkehrszweigInland] = @aes_Verkehrszweig"& _ "Inland, [aes_BefoerderungsmittelAbgangArtCode] = @aes_BefoerderungsmittelAbgangA"& _ "rtCode, [aes_BefoerderungsmittelAbgangKennzeichen] = @aes_BefoerderungsmittelAbg"& _ "angKennzeichen, [aes_BefoerderungsmittelAbgangStaatCode] = @aes_Befoerderungsmit"& _ "telAbgangStaatCode, [aes_VerkehrszweigGrenze] = @aes_VerkehrszweigGrenze, [aes_B"& _ "efoerderungsmittelGrenzeArtCode] = @aes_BefoerderungsmittelGrenzeArtCode, [aes_B"& _ "efoerderungsmittelGrenzeKennzeichen] = @aes_BefoerderungsmittelGrenzeKennzeichen"& _ ", [aes_BefoerderungsmittelGrenzeStaatCode] = @aes_BefoerderungsmittelGrenzeStaat"& _ "Code, [aes_LadeortOrtId] = @aes_LadeortOrtId, [aes_LadeortStrasse] = @aes_Ladeor"& _ "tStrasse, [aes_LadeortPLZ] = @aes_LadeortPLZ, [aes_LadeortOrt] = @aes_LadeortOrt"& _ ", [aes_LadeortZusatz] = @aes_LadeortZusatz, [aes_AusfuhrZollstelleID] = @aes_Aus"& _ "fuhrZollstelleID, [aes_AusgangszollstelleID] = @aes_AusgangszollstelleID, [aes_T"& _ "atsaechlicheAusgangZollstelleID] = @aes_TatsaechlicheAusgangZollstelleID, [aes_G"& _ "eschaeftartCode] = @aes_GeschaeftartCode, [aes_Rechnungspreis] = @aes_Rechnungsp"& _ "reis, [aes_Rechnungwaehrung] = @aes_Rechnungwaehrung, [aes_BesondererTatbestand]"& _ " = @aes_BesondererTatbestand, [aes_VerschlussArtCode] = @aes_VerschlussArtCode, "& _ "[aes_VerschlussAnzahl] = @aes_VerschlussAnzahl, [aes_VerschlussZeichen1] = @aes_"& _ "VerschlussZeichen1, [aes_VerschlussZeichen2] = @aes_VerschlussZeichen2, [aes_Ver"& _ "schlussZeichen3] = @aes_VerschlussZeichen3, [aes_VerschlussZeichen4] = @aes_Vers"& _ "chlussZeichen4, [aes_VerschlussZeichen5] = @aes_VerschlussZeichen5, [aes_Verschl"& _ "ussZeichen6] = @aes_VerschlussZeichen6, [aes_VerschlussZeichen7] = @aes_Verschlu"& _ "ssZeichen7, [aes_VerschlussZeichen8] = @aes_VerschlussZeichen8, [aes_VerschlussZ"& _ "eichen9] = @aes_VerschlussZeichen9, [aes_VerschlussZeichen10] = @aes_VerschlussZ"& _ "eichen10, [aes_VerschlussZeichen11] = @aes_VerschlussZeichen11, [aes_VerschlussZ"& _ "eichen12] = @aes_VerschlussZeichen12, [aes_GestellungsfristAnfangDatumZeit] = @a"& _ "es_GestellungsfristAnfangDatumZeit, [aes_GestellungsfristEndeDatumZeit] = @aes_G"& _ "estellungsfristEndeDatumZeit, [aes_AusfuehrerTeilnehmerEORI] = @aes_AusfuehrerTe"& _ "ilnehmerEORI, [aes_AusfuehrerTeilnehmerNLNR] = @aes_AusfuehrerTeilnehmerNLNR, [a"& _ "es_AusfuehrerTeilnehmerName] = @aes_AusfuehrerTeilnehmerName, [aes_AusfuehrerTei"& _ "lnehmerStrasse] = @aes_AusfuehrerTeilnehmerStrasse, [aes_AusfuehrerTeilnehmerOrt"& _ "] = @aes_AusfuehrerTeilnehmerOrt, [aes_AusfuehrerTeilnehmerPLZ] = @aes_Ausfuehre"& _ "rTeilnehmerPLZ, [aes_AusfuehrerTeilnehmerLandCode] = @aes_AusfuehrerTeilnehmerLa"& _ "ndCode, [aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter] = @aes_Ausfuehre"& _ "rTeilnehmerAnsprechpartnerSachbearbeiter, [aes_AusfuehrerTeilnehmerAnsprechpartn"& _ "erTelefonnummer] = @aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer, [aes_A"& _ "usfuehrerTeilnehmerAnsprechpartnerStellung] = @aes_AusfuehrerTeilnehmerAnsprechp"& _ "artnerStellung, [aes_AusfuehrerTeilnehmerAnsprechpartnerEmail] = @aes_Ausfuehrer"& _ "TeilnehmerAnsprechpartnerEmail, [aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax]"& _ " = @aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax, [aes_EmpfaengerTeilnehmerEOR"& _ "I] = @aes_EmpfaengerTeilnehmerEORI, [aes_EmpfaengerTeilnehmerNLNR] = @aes_Empfae"& _ "ngerTeilnehmerNLNR, [aes_EmpfaengerTeilnehmerName] = @aes_EmpfaengerTeilnehmerNa"& _ "me, [aes_EmpfaengerTeilnehmerStrasse] = @aes_EmpfaengerTeilnehmerStrasse, [aes_E"& _ "mpfaengerTeilnehmerOrt] = @aes_EmpfaengerTeilnehmerOrt, [aes_EmpfaengerTeilnehme"& _ "rPLZ] = @aes_EmpfaengerTeilnehmerPLZ, [aes_EmpfaengerTeilnehmerLandCode] = @aes_"& _ "EmpfaengerTeilnehmerLandCode, [aes_AnmelderTeilnehmerEORI] = @aes_AnmelderTeilne"& _ "hmerEORI, [aes_AnmelderTeilnehmerNLNR] = @aes_AnmelderTeilnehmerNLNR, [aes_Anmel"& _ "derTeilnehmerName] = @aes_AnmelderTeilnehmerName, [aes_AnmelderTeilnehmerStrasse"& _ "] = @aes_AnmelderTeilnehmerStrasse, [aes_AnmelderTeilnehmerOrt] = @aes_AnmelderT"& _ "eilnehmerOrt, [aes_AnmelderTeilnehmerPLZ] = @aes_AnmelderTeilnehmerPLZ, [aes_Anm"& _ "elderTeilnehmerLandCode] = @aes_AnmelderTeilnehmerLandCode, [aes_AnmelderTeilneh"& _ "merAnsprechpartnerSachbearbeiter] = @aes_AnmelderTeilnehmerAnsprechpartnerSachbe"& _ "arbeiter, [aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer] = @aes_AnmelderTe"& _ "ilnehmerAnsprechpartnerTelefonnummer, [aes_AnmelderTeilnehmerAnsprechpartnerStel"& _ "lung] = @aes_AnmelderTeilnehmerAnsprechpartnerStellung, [aes_AnmelderTeilnehmerA"& _ "nsprechpartnerEmail] = @aes_AnmelderTeilnehmerAnsprechpartnerEmail, [aes_Anmelde"& _ "rTeilnehmerAnsprechpartnerTelefax] = @aes_AnmelderTeilnehmerAnsprechpartnerTelef"& _ "ax, [aes_VertreterAnmelderTeilnehmerEORI] = @aes_VertreterAnmelderTeilnehmerEORI"& _ ", [aes_VertreterAnmelderTeilnehmerNLNR] = @aes_VertreterAnmelderTeilnehmerNLNR, "& _ "[aes_VertreterAnmelderTeilnehmerName] = @aes_VertreterAnmelderTeilnehmerName, [a"& _ "es_VertreterAnmelderTeilnehmerStrasse] = @aes_VertreterAnmelderTeilnehmerStrasse"& _ ", [aes_VertreterAnmelderTeilnehmerOrt] = @aes_VertreterAnmelderTeilnehmerOrt, [a"& _ "es_VertreterAnmelderTeilnehmerPLZ] = @aes_VertreterAnmelderTeilnehmerPLZ, [aes_V"& _ "ertreterAnmelderTeilnehmerLandCode] = @aes_VertreterAnmelderTeilnehmerLandCode, "& _ "[aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter] = @aes_VertreterA"& _ "nmelderTeilnehmerAnsprechpartnerSachbearbeiter, [aes_VertreterAnmelderTeilnehmer"& _ "AnsprechpartnerTelefonnummer] = @aes_VertreterAnmelderTeilnehmerAnsprechpartnerT"& _ "elefonnummer, [aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung] = @aes_Ve"& _ "rtreterAnmelderTeilnehmerAnsprechpartnerStellung, [aes_VertreterAnmelderTeilnehm"& _ "erAnsprechpartnerEmail] = @aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail, "& _ "[aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax] = @aes_VertreterAnmelder"& _ "TeilnehmerAnsprechpartnerTelefax, [aes_SubunternehmerTeilnehmerEORI] = @aes_Subu"& _ "nternehmerTeilnehmerEORI, [aes_SubunternehmerTeilnehmerNLNR] = @aes_Subunternehm"& _ "erTeilnehmerNLNR, [aes_SubunternehmerTeilnehmerName] = @aes_SubunternehmerTeilne"& _ "hmerName, [aes_SubunternehmerTeilnehmerStrasse] = @aes_SubunternehmerTeilnehmerS"& _ "trasse, [aes_SubunternehmerTeilnehmerOrt] = @aes_SubunternehmerTeilnehmerOrt, [a"& _ "es_SubunternehmerTeilnehmerPLZ] = @aes_SubunternehmerTeilnehmerPLZ, [aes_Subunte"& _ "rnehmerTeilnehmerLandCode] = @aes_SubunternehmerTeilnehmerLandCode, [aes_Subunte"& _ "rnehmerTeilnehmerAnsprechpartnerSachbearbeiter] = @aes_SubunternehmerTeilnehmerA"& _ "nsprechpartnerSachbearbeiter, [aes_SubunternehmerTeilnehmerAnsprechpartnerTelefo"& _ "nnummer] = @aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer, [aes_Subun"& _ "ternehmerTeilnehmerAnsprechpartnerStellung] = @aes_SubunternehmerTeilnehmerAnspr"& _ "echpartnerStellung, [aes_SubunternehmerTeilnehmerAnsprechpartnerEmail] = @aes_Su"& _ "bunternehmerTeilnehmerAnsprechpartnerEmail, [aes_SubunternehmerTeilnehmerAnsprec"& _ "hpartnerTelefax] = @aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax, [aes_Ver"& _ "fahrensinhaberPVTeilnehmerEORI] = @aes_VerfahrensinhaberPVTeilnehmerEORI, [aes_V"& _ "erfahrensinhaberPVTeilnehmerNLNR] = @aes_VerfahrensinhaberPVTeilnehmerNLNR, [aes"& _ "_VerfahrensinhaberPVTeilnehmerName] = @aes_VerfahrensinhaberPVTeilnehmerName, [a"& _ "es_VerfahrensinhaberPVTeilnehmerStrasse] = @aes_VerfahrensinhaberPVTeilnehmerStr"& _ "asse, [aes_VerfahrensinhaberPVTeilnehmerOrt] = @aes_VerfahrensinhaberPVTeilnehme"& _ "rOrt, [aes_VerfahrensinhaberPVTeilnehmerPLZ] = @aes_VerfahrensinhaberPVTeilnehme"& _ "rPLZ, [aes_VerfahrensinhaberPVTeilnehmerLandCode] = @aes_VerfahrensinhaberPVTeil"& _ "nehmerLandCode, [aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter]"& _ " = @aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter, [aes_Verfahr"& _ "ensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer] = @aes_VerfahrensinhaberPVTe"& _ "ilnehmerAnsprechpartnerTelefonnummer, [aes_VerfahrensinhaberPVTeilnehmerAnsprech"& _ "partnerStellung] = @aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung, [a"& _ "es_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail] = @aes_VerfahrensinhaberPV"& _ "TeilnehmerAnsprechpartnerEmail, [aes_VerfahrensinhaberPVTeilnehmerAnsprechpartne"& _ "rTelefax] = @aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax, [aes_Befoe"& _ "rderungsrouteLand1] = @aes_BefoerderungsrouteLand1, [aes_BefoerderungsrouteLand2"& _ "] = @aes_BefoerderungsrouteLand2, [aes_BefoerderungsrouteLand3] = @aes_Befoerder"& _ "ungsrouteLand3, [aes_BefoerderungsrouteLand4] = @aes_BefoerderungsrouteLand4, [a"& _ "es_BefoerderungsrouteLand5] = @aes_BefoerderungsrouteLand5, [aes_Befoerderungsro"& _ "uteLand6] = @aes_BefoerderungsrouteLand6, [aes_BefoerderungsrouteLand7] = @aes_B"& _ "efoerderungsrouteLand7, [aes_BefoerderungsrouteLand8] = @aes_BefoerderungsrouteL"& _ "and8, [aes_BefoerderungsrouteLand9] = @aes_BefoerderungsrouteLand9, [aes_Befoerd"& _ "erungsrouteLand10] = @aes_BefoerderungsrouteLand10, [aes_BefoerderungsrouteLand1"& _ "1] = @aes_BefoerderungsrouteLand11, [aes_BefoerderungsrouteLand12] = @aes_Befoer"& _ "derungsrouteLand12, [aes_LieferbedingungenCode] = @aes_LieferbedingungenCode, [a"& _ "es_LieferbedingungenText] = @aes_LieferbedingungenText, [aes_LieferbedingungenOr"& _ "t] = @aes_LieferbedingungenOrt WHERE (([aes_Id] = @Original_aes_Id) AND ([aes_St"& _ "atus] = @Original_aes_Status) AND ([aes_Status_KEWILL_Equivalent] = @Original_ae"& _ "s_Status_KEWILL_Equivalent) AND ([aes_dyaArt] = @Original_aes_dyaArt) AND ([aes_"& _ "dyaAnmID] = @Original_aes_dyaAnmID) AND ((@IsNull_aes_ANR = 1 AND [aes_ANR] IS N"& _ "ULL) OR ([aes_ANR] = @Original_aes_ANR)) AND ((@IsNull_aes_MRN = 1 AND [aes_MRN]"& _ " IS NULL) OR ([aes_MRN] = @Original_aes_MRN)) AND ([aes_Erstellung] = @Original_"& _ "aes_Erstellung) AND ((@IsNull_aes_Erstellung_SB = 1 AND [aes_Erstellung_SB] IS N"& _ "ULL) OR ([aes_Erstellung_SB] = @Original_aes_Erstellung_SB)) AND ([aes_LetzteBea"& _ "rbeitung] = @Original_aes_LetzteBearbeitung) AND ((@IsNull_aes_LetzteBearbeitung"& _ "_SB = 1 AND [aes_LetzteBearbeitung_SB] IS NULL) OR ([aes_LetzteBearbeitung_SB] ="& _ " @Original_aes_LetzteBearbeitung_SB)) AND ((@IsNull_aes_firma = 1 AND [aes_firma"& _ "] IS NULL) OR ([aes_firma] = @Original_aes_firma)) AND ((@IsNull_aes_niederlassu"& _ "ng = 1 AND [aes_niederlassung] IS NULL) OR ([aes_niederlassung] = @Original_aes_"& _ "niederlassung)) AND ((@IsNull_aes_Trans_Partner = 1 AND [aes_Trans_Partner] IS N"& _ "ULL) OR ([aes_Trans_Partner] = @Original_aes_Trans_Partner)) AND ((@IsNull_aes_T"& _ "rans_Div1 = 1 AND [aes_Trans_Div1] IS NULL) OR ([aes_Trans_Div1] = @Original_aes"& _ "_Trans_Div1)) AND ((@IsNull_aes_Trans_Div2 = 1 AND [aes_Trans_Div2] IS NULL) OR "& _ "([aes_Trans_Div2] = @Original_aes_Trans_Div2)) AND ((@IsNull_aes_Trans_Div3 = 1 "& _ "AND [aes_Trans_Div3] IS NULL) OR ([aes_Trans_Div3] = @Original_aes_Trans_Div3)) "& _ "AND ((@IsNull_aes_Trans_Referenz = 1 AND [aes_Trans_Referenz] IS NULL) OR ([aes_"& _ "Trans_Referenz] = @Original_aes_Trans_Referenz)) AND ((@IsNull_aes_Trans_DatumZe"& _ "it = 1 AND [aes_Trans_DatumZeit] IS NULL) OR ([aes_Trans_DatumZeit] = @Original_"& _ "aes_Trans_DatumZeit)) AND ((@IsNull_aes_Trans_Version = 1 AND [aes_Trans_Version"& _ "] IS NULL) OR ([aes_Trans_Version] = @Original_aes_Trans_Version)) AND ((@IsNull"& _ "_aes_NachrichtenSenderTIN = 1 AND [aes_NachrichtenSenderTIN] IS NULL) OR ([aes_N"& _ "achrichtenSenderTIN] = @Original_aes_NachrichtenSenderTIN)) AND ((@IsNull_aes_Na"& _ "chrichtenSenderNLNR = 1 AND [aes_NachrichtenSenderNLNR] IS NULL) OR ([aes_Nachri"& _ "chtenSenderNLNR] = @Original_aes_NachrichtenSenderNLNR)) AND ((@IsNull_aes_Nachr"& _ "ichtenempfaengerDST = 1 AND [aes_NachrichtenempfaengerDST] IS NULL) OR ([aes_Nac"& _ "hrichtenempfaengerDST] = @Original_aes_NachrichtenempfaengerDST)) AND ((@IsNull_"& _ "aes_ObjectName = 1 AND [aes_ObjectName] IS NULL) OR ([aes_ObjectName] = @Origina"& _ "l_aes_ObjectName)) AND ((@IsNull_aes_ObjectAlias = 1 AND [aes_ObjectAlias] IS NU"& _ "LL) OR ([aes_ObjectAlias] = @Original_aes_ObjectAlias)) AND ((@IsNull_aes_Bezugs"& _ "nummerVorblendung = 1 AND [aes_BezugsnummerVorblendung] IS NULL) OR ([aes_Bezugs"& _ "nummerVorblendung] = @Original_aes_BezugsnummerVorblendung)) AND ((@IsNull_aes_B"& _ "earbeiter = 1 AND [aes_Bearbeiter] IS NULL) OR ([aes_Bearbeiter] = @Original_aes"& _ "_Bearbeiter)) AND ((@IsNull_aes_AnmeldeArtAusfuhrCode = 1 AND [aes_AnmeldeArtAus"& _ "fuhrCode] IS NULL) OR ([aes_AnmeldeArtAusfuhrCode] = @Original_aes_AnmeldeArtAus"& _ "fuhrCode)) AND ((@IsNull_aes_AnmeldeArtVerfahrensCode = 1 AND [aes_AnmeldeArtVer"& _ "fahrensCode] IS NULL) OR ([aes_AnmeldeArtVerfahrensCode] = @Original_aes_Anmelde"& _ "ArtVerfahrensCode)) AND ((@IsNull_aes_AnmeldeArtUeberfuehrungCode = 1 AND [aes_A"& _ "nmeldeArtUeberfuehrungCode] IS NULL) OR ([aes_AnmeldeArtUeberfuehrungCode] = @Or"& _ "iginal_aes_AnmeldeArtUeberfuehrungCode)) AND ((@IsNull_aes_Ausfuhrland = 1 AND ["& _ "aes_Ausfuhrland] IS NULL) OR ([aes_Ausfuhrland] = @Original_aes_Ausfuhrland)) AN"& _ "D ((@IsNull_aes_BestimmungslandCode = 1 AND [aes_BestimmungslandCode] IS NULL) O"& _ "R ([aes_BestimmungslandCode] = @Original_aes_BestimmungslandCode)) AND ((@IsNull"& _ "_aes_AnmeldedatumZeit = 1 AND [aes_AnmeldedatumZeit] IS NULL) OR ([aes_Anmeldeda"& _ "tumZeit] = @Original_aes_AnmeldedatumZeit)) AND ((@IsNull_aes_DatumAusgang = 1 A"& _ "ND [aes_DatumAusgang] IS NULL) OR ([aes_DatumAusgang] = @Original_aes_DatumAusga"& _ "ng)) AND ((@IsNull_aes_MassgeblichesDatum = 1 AND [aes_MassgeblichesDatum] IS NU"& _ "LL) OR ([aes_MassgeblichesDatum] = @Original_aes_MassgeblichesDatum)) AND ((@IsN"& _ "ull_aes_BesondereUmstaende = 1 AND [aes_BesondereUmstaende] IS NULL) OR ([aes_Be"& _ "sondereUmstaende] = @Original_aes_BesondereUmstaende)) AND ((@IsNull_aes_Zahlung"& _ "sweisebefoerderungskosten = 1 AND [aes_Zahlungsweisebefoerderungskosten] IS NULL"& _ ") OR ([aes_Zahlungsweisebefoerderungskosten] = @Original_aes_Zahlungsweisebefoer"& _ "derungskosten)) AND ((@IsNull_aes_ContainerIndikator = 1 AND [aes_ContainerIndik"& _ "ator] IS NULL) OR ([aes_ContainerIndikator] = @Original_aes_ContainerIndikator))"& _ " AND ((@IsNull_aes_BeteiligteKonstellation = 1 AND [aes_BeteiligteKonstellation]"& _ " IS NULL) OR ([aes_BeteiligteKonstellation] = @Original_aes_BeteiligteKonstellat"& _ "ion)) AND ((@IsNull_aes_AdressdatenKonstellation = 1 AND [aes_AdressdatenKonstel"& _ "lation] IS NULL) OR ([aes_AdressdatenKonstellation] = @Original_aes_AdressdatenK"& _ "onstellation)) AND ((@IsNull_aes_GesamtRohmasse = 1 AND [aes_GesamtRohmasse] IS "& _ "NULL) OR ([aes_GesamtRohmasse] = @Original_aes_GesamtRohmasse)) AND ((@IsNull_ae"& _ "s_RegistriernummerFremdsystem = 1 AND [aes_RegistriernummerFremdsystem] IS NULL)"& _ " OR ([aes_RegistriernummerFremdsystem] = @Original_aes_RegistriernummerFremdsyst"& _ "em)) AND ((@IsNull_aes_Vermerk = 1 AND [aes_Vermerk] IS NULL) OR ([aes_Vermerk] "& _ "= @Original_aes_Vermerk)) AND ((@IsNull_aes_KennnummerSendung = 1 AND [aes_Kennn"& _ "ummerSendung] IS NULL) OR ([aes_KennnummerSendung] = @Original_aes_KennnummerSen"& _ "dung)) AND ((@IsNull_aes_AnzahlPositionen = 1 AND [aes_AnzahlPositionen] IS NULL"& _ ") OR ([aes_AnzahlPositionen] = @Original_aes_AnzahlPositionen)) AND ((@IsNull_ae"& _ "s_BewiligungsnummerAusfuhr = 1 AND [aes_BewiligungsnummerAusfuhr] IS NULL) OR (["& _ "aes_BewiligungsnummerAusfuhr] = @Original_aes_BewiligungsnummerAusfuhr)) AND ((@"& _ "IsNull_aes_BewiligungsnummerAnschreibeverfahren = 1 AND [aes_BewiligungsnummerAn"& _ "schreibeverfahren] IS NULL) OR ([aes_BewiligungsnummerAnschreibeverfahren] = @Or"& _ "iginal_aes_BewiligungsnummerAnschreibeverfahren)) AND ((@IsNull_aes_Bewiligungsn"& _ "ummerPassiveVeredelung = 1 AND [aes_BewiligungsnummerPassiveVeredelung] IS NULL)"& _ " OR ([aes_BewiligungsnummerPassiveVeredelung] = @Original_aes_BewiligungsnummerP"& _ "assiveVeredelung)) AND ((@IsNull_aes_BewiligungsnummerVertrausenswuerdigerAusfue"& _ "hrer = 1 AND [aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer] IS NULL) OR ("& _ "[aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer] = @Original_aes_Bewiligung"& _ "snummerVertrausenswuerdigerAusfuehrer)) AND ((@IsNull_aes_VerkehrszweigInland = "& _ "1 AND [aes_VerkehrszweigInland] IS NULL) OR ([aes_VerkehrszweigInland] = @Origin"& _ "al_aes_VerkehrszweigInland)) AND ((@IsNull_aes_BefoerderungsmittelAbgangArtCode "& _ "= 1 AND [aes_BefoerderungsmittelAbgangArtCode] IS NULL) OR ([aes_Befoerderungsmi"& _ "ttelAbgangArtCode] = @Original_aes_BefoerderungsmittelAbgangArtCode)) AND ((@IsN"& _ "ull_aes_BefoerderungsmittelAbgangKennzeichen = 1 AND [aes_BefoerderungsmittelAbg"& _ "angKennzeichen] IS NULL) OR ([aes_BefoerderungsmittelAbgangKennzeichen] = @Origi"& _ "nal_aes_BefoerderungsmittelAbgangKennzeichen)) AND ((@IsNull_aes_Befoerderungsmi"& _ "ttelAbgangStaatCode = 1 AND [aes_BefoerderungsmittelAbgangStaatCode] IS NULL) OR"& _ " ([aes_BefoerderungsmittelAbgangStaatCode] = @Original_aes_BefoerderungsmittelAb"& _ "gangStaatCode)) AND ((@IsNull_aes_VerkehrszweigGrenze = 1 AND [aes_Verkehrszweig"& _ "Grenze] IS NULL) OR ([aes_VerkehrszweigGrenze] = @Original_aes_VerkehrszweigGren"& _ "ze)) AND ((@IsNull_aes_BefoerderungsmittelGrenzeArtCode = 1 AND [aes_Befoerderun"& _ "gsmittelGrenzeArtCode] IS NULL) OR ([aes_BefoerderungsmittelGrenzeArtCode] = @Or"& _ "iginal_aes_BefoerderungsmittelGrenzeArtCode)) AND ((@IsNull_aes_Befoerderungsmit"& _ "telGrenzeKennzeichen = 1 AND [aes_BefoerderungsmittelGrenzeKennzeichen] IS NULL)"& _ " OR ([aes_BefoerderungsmittelGrenzeKennzeichen] = @Original_aes_Befoerderungsmit"& _ "telGrenzeKennzeichen)) AND ((@IsNull_aes_BefoerderungsmittelGrenzeStaatCode = 1 "& _ "AND [aes_BefoerderungsmittelGrenzeStaatCode] IS NULL) OR ([aes_Befoerderungsmitt"& _ "elGrenzeStaatCode] = @Original_aes_BefoerderungsmittelGrenzeStaatCode)) AND ((@I"& _ "sNull_aes_LadeortOrtId = 1 AND [aes_LadeortOrtId] IS NULL) OR ([aes_LadeortOrtId"& _ "] = @Original_aes_LadeortOrtId)) AND ((@IsNull_aes_LadeortStrasse = 1 AND [aes_L"& _ "adeortStrasse] IS NULL) OR ([aes_LadeortStrasse] = @Original_aes_LadeortStrasse)"& _ ") AND ((@IsNull_aes_LadeortPLZ = 1 AND [aes_LadeortPLZ] IS NULL) OR ([aes_Ladeor"& _ "tPLZ] = @Original_aes_LadeortPLZ)) AND ((@IsNull_aes_LadeortOrt = 1 AND [aes_Lad"& _ "eortOrt] IS NULL) OR ([aes_LadeortOrt] = @Original_aes_LadeortOrt)) AND ((@IsNul"& _ "l_aes_LadeortZusatz = 1 AND [aes_LadeortZusatz] IS NULL) OR ([aes_LadeortZusatz]"& _ " = @Original_aes_LadeortZusatz)) AND ((@IsNull_aes_AusfuhrZollstelleID = 1 AND ["& _ "aes_AusfuhrZollstelleID] IS NULL) OR ([aes_AusfuhrZollstelleID] = @Original_aes_"& _ "AusfuhrZollstelleID)) AND ((@IsNull_aes_AusgangszollstelleID = 1 AND [aes_Ausgan"& _ "gszollstelleID] IS NULL) OR ([aes_AusgangszollstelleID] = @Original_aes_Ausgangs"& _ "zollstelleID)) AND ((@IsNull_aes_TatsaechlicheAusgangZollstelleID = 1 AND [aes_T"& _ "atsaechlicheAusgangZollstelleID] IS NULL) OR ([aes_TatsaechlicheAusgangZollstell"& _ "eID] = @Original_aes_TatsaechlicheAusgangZollstelleID)) AND ((@IsNull_aes_Gescha"& _ "eftartCode = 1 AND [aes_GeschaeftartCode] IS NULL) OR ([aes_GeschaeftartCode] = "& _ "@Original_aes_GeschaeftartCode)) AND ((@IsNull_aes_Rechnungspreis = 1 AND [aes_R"& _ "echnungspreis] IS NULL) OR ([aes_Rechnungspreis] = @Original_aes_Rechnungspreis)"& _ ") AND ((@IsNull_aes_Rechnungwaehrung = 1 AND [aes_Rechnungwaehrung] IS NULL) OR "& _ "([aes_Rechnungwaehrung] = @Original_aes_Rechnungwaehrung)) AND ((@IsNull_aes_Bes"& _ "ondererTatbestand = 1 AND [aes_BesondererTatbestand] IS NULL) OR ([aes_Besondere"& _ "rTatbestand] = @Original_aes_BesondererTatbestand)) AND ((@IsNull_aes_Verschluss"& _ "ArtCode = 1 AND [aes_VerschlussArtCode] IS NULL) OR ([aes_VerschlussArtCode] = @"& _ "Original_aes_VerschlussArtCode)) AND ((@IsNull_aes_VerschlussAnzahl = 1 AND [aes"& _ "_VerschlussAnzahl] IS NULL) OR ([aes_VerschlussAnzahl] = @Original_aes_Verschlus"& _ "sAnzahl)) AND ((@IsNull_aes_VerschlussZeichen1 = 1 AND [aes_VerschlussZeichen1] "& _ "IS NULL) OR ([aes_VerschlussZeichen1] = @Original_aes_VerschlussZeichen1)) AND ("& _ "(@IsNull_aes_VerschlussZeichen2 = 1 AND [aes_VerschlussZeichen2] IS NULL) OR ([a"& _ "es_VerschlussZeichen2] = @Original_aes_VerschlussZeichen2)) AND ((@IsNull_aes_Ve"& _ "rschlussZeichen3 = 1 AND [aes_VerschlussZeichen3] IS NULL) OR ([aes_VerschlussZe"& _ "ichen3] = @Original_aes_VerschlussZeichen3)) AND ((@IsNull_aes_VerschlussZeichen"& _ "4 = 1 AND [aes_VerschlussZeichen4] IS NULL) OR ([aes_VerschlussZeichen4] = @Orig"& _ "inal_aes_VerschlussZeichen4)) AND ((@IsNull_aes_VerschlussZeichen5 = 1 AND [aes_"& _ "VerschlussZeichen5] IS NULL) OR ([aes_VerschlussZeichen5] = @Original_aes_Versch"& _ "lussZeichen5)) AND ((@IsNull_aes_VerschlussZeichen6 = 1 AND [aes_VerschlussZeich"& _ "en6] IS NULL) OR ([aes_VerschlussZeichen6] = @Original_aes_VerschlussZeichen6)) "& _ "AND ((@IsNull_aes_VerschlussZeichen7 = 1 AND [aes_VerschlussZeichen7] IS NULL) O"& _ "R ([aes_VerschlussZeichen7] = @Original_aes_VerschlussZeichen7)) AND ((@IsNull_a"& _ "es_VerschlussZeichen8 = 1 AND [aes_VerschlussZeichen8] IS NULL) OR ([aes_Verschl"& _ "ussZeichen8] = @Original_aes_VerschlussZeichen8)) AND ((@IsNull_aes_VerschlussZe"& _ "ichen9 = 1 AND [aes_VerschlussZeichen9] IS NULL) OR ([aes_VerschlussZeichen9] = "& _ "@Original_aes_VerschlussZeichen9)) AND ((@IsNull_aes_VerschlussZeichen10 = 1 AND"& _ " [aes_VerschlussZeichen10] IS NULL) OR ([aes_VerschlussZeichen10] = @Original_ae"& _ "s_VerschlussZeichen10)) AND ((@IsNull_aes_VerschlussZeichen11 = 1 AND [aes_Versc"& _ "hlussZeichen11] IS NULL) OR ([aes_VerschlussZeichen11] = @Original_aes_Verschlus"& _ "sZeichen11)) AND ((@IsNull_aes_VerschlussZeichen12 = 1 AND [aes_VerschlussZeiche"& _ "n12] IS NULL) OR ([aes_VerschlussZeichen12] = @Original_aes_VerschlussZeichen12)"& _ ") AND ((@IsNull_aes_GestellungsfristAnfangDatumZeit = 1 AND [aes_Gestellungsfris"& _ "tAnfangDatumZeit] IS NULL) OR ([aes_GestellungsfristAnfangDatumZeit] = @Original"& _ "_aes_GestellungsfristAnfangDatumZeit)) AND ((@IsNull_aes_GestellungsfristEndeDat"& _ "umZeit = 1 AND [aes_GestellungsfristEndeDatumZeit] IS NULL) OR ([aes_Gestellungs"& _ "fristEndeDatumZeit] = @Original_aes_GestellungsfristEndeDatumZeit)) AND ((@IsNul"& _ "l_aes_AusfuehrerTeilnehmerEORI = 1 AND [aes_AusfuehrerTeilnehmerEORI] IS NULL) O"& _ "R ([aes_AusfuehrerTeilnehmerEORI] = @Original_aes_AusfuehrerTeilnehmerEORI)) AND"& _ " ((@IsNull_aes_AusfuehrerTeilnehmerNLNR = 1 AND [aes_AusfuehrerTeilnehmerNLNR] I"& _ "S NULL) OR ([aes_AusfuehrerTeilnehmerNLNR] = @Original_aes_AusfuehrerTeilnehmerN"& _ "LNR)) AND ((@IsNull_aes_AusfuehrerTeilnehmerName = 1 AND [aes_AusfuehrerTeilnehm"& _ "erName] IS NULL) OR ([aes_AusfuehrerTeilnehmerName] = @Original_aes_AusfuehrerTe"& _ "ilnehmerName)) AND ((@IsNull_aes_AusfuehrerTeilnehmerStrasse = 1 AND [aes_Ausfue"& _ "hrerTeilnehmerStrasse] IS NULL) OR ([aes_AusfuehrerTeilnehmerStrasse] = @Origina"& _ "l_aes_AusfuehrerTeilnehmerStrasse)) AND ((@IsNull_aes_AusfuehrerTeilnehmerOrt = "& _ "1 AND [aes_AusfuehrerTeilnehmerOrt] IS NULL) OR ([aes_AusfuehrerTeilnehmerOrt] ="& _ " @Original_aes_AusfuehrerTeilnehmerOrt)) AND ((@IsNull_aes_AusfuehrerTeilnehmerP"& _ "LZ = 1 AND [aes_AusfuehrerTeilnehmerPLZ] IS NULL) OR ([aes_AusfuehrerTeilnehmerP"& _ "LZ] = @Original_aes_AusfuehrerTeilnehmerPLZ)) AND ((@IsNull_aes_AusfuehrerTeilne"& _ "hmerLandCode = 1 AND [aes_AusfuehrerTeilnehmerLandCode] IS NULL) OR ([aes_Ausfue"& _ "hrerTeilnehmerLandCode] = @Original_aes_AusfuehrerTeilnehmerLandCode)) AND ((@Is"& _ "Null_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter = 1 AND [aes_Ausfuehr"& _ "erTeilnehmerAnsprechpartnerSachbearbeiter] IS NULL) OR ([aes_AusfuehrerTeilnehme"& _ "rAnsprechpartnerSachbearbeiter] = @Original_aes_AusfuehrerTeilnehmerAnsprechpart"& _ "nerSachbearbeiter)) AND ((@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefon"& _ "nummer = 1 AND [aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer] IS NULL) O"& _ "R ([aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer] = @Original_aes_Ausfue"& _ "hrerTeilnehmerAnsprechpartnerTelefonnummer)) AND ((@IsNull_aes_AusfuehrerTeilneh"& _ "merAnsprechpartnerStellung = 1 AND [aes_AusfuehrerTeilnehmerAnsprechpartnerStell"& _ "ung] IS NULL) OR ([aes_AusfuehrerTeilnehmerAnsprechpartnerStellung] = @Original_"& _ "aes_AusfuehrerTeilnehmerAnsprechpartnerStellung)) AND ((@IsNull_aes_AusfuehrerTe"& _ "ilnehmerAnsprechpartnerEmail = 1 AND [aes_AusfuehrerTeilnehmerAnsprechpartnerEma"& _ "il] IS NULL) OR ([aes_AusfuehrerTeilnehmerAnsprechpartnerEmail] = @Original_aes_"& _ "AusfuehrerTeilnehmerAnsprechpartnerEmail)) AND ((@IsNull_aes_AusfuehrerTeilnehme"& _ "rAnsprechpartnerTelefax = 1 AND [aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax]"& _ " IS NULL) OR ([aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax] = @Original_aes_A"& _ "usfuehrerTeilnehmerAnsprechpartnerTelefax)) AND ((@IsNull_aes_EmpfaengerTeilnehm"& _ "erEORI = 1 AND [aes_EmpfaengerTeilnehmerEORI] IS NULL) OR ([aes_EmpfaengerTeilne"& _ "hmerEORI] = @Original_aes_EmpfaengerTeilnehmerEORI)) AND ((@IsNull_aes_Empfaenge"& _ "rTeilnehmerNLNR = 1 AND [aes_EmpfaengerTeilnehmerNLNR] IS NULL) OR ([aes_Empfaen"& _ "gerTeilnehmerNLNR] = @Original_aes_EmpfaengerTeilnehmerNLNR)) AND ((@IsNull_aes_"& _ "EmpfaengerTeilnehmerName = 1 AND [aes_EmpfaengerTeilnehmerName] IS NULL) OR ([ae"& _ "s_EmpfaengerTeilnehmerName] = @Original_aes_EmpfaengerTeilnehmerName)) AND ((@Is"& _ "Null_aes_EmpfaengerTeilnehmerStrasse = 1 AND [aes_EmpfaengerTeilnehmerStrasse] I"& _ "S NULL) OR ([aes_EmpfaengerTeilnehmerStrasse] = @Original_aes_EmpfaengerTeilnehm"& _ "erStrasse)) AND ((@IsNull_aes_EmpfaengerTeilnehmerOrt = 1 AND [aes_EmpfaengerTei"& _ "lnehmerOrt] IS NULL) OR ([aes_EmpfaengerTeilnehmerOrt] = @Original_aes_Empfaenge"& _ "rTeilnehmerOrt)) AND ((@IsNull_aes_EmpfaengerTeilnehmerPLZ = 1 AND [aes_Empfaeng"& _ "erTeilnehmerPLZ] IS NULL) OR ([aes_EmpfaengerTeilnehmerPLZ] = @Original_aes_Empf"& _ "aengerTeilnehmerPLZ)) AND ((@IsNull_aes_EmpfaengerTeilnehmerLandCode = 1 AND [ae"& _ "s_EmpfaengerTeilnehmerLandCode] IS NULL) OR ([aes_EmpfaengerTeilnehmerLandCode] "& _ "= @Original_aes_EmpfaengerTeilnehmerLandCode)) AND ((@IsNull_aes_AnmelderTeilneh"& _ "merEORI = 1 AND [aes_AnmelderTeilnehmerEORI] IS NULL) OR ([aes_AnmelderTeilnehme"& _ "rEORI] = @Original_aes_AnmelderTeilnehmerEORI)) AND ((@IsNull_aes_AnmelderTeilne"& _ "hmerNLNR = 1 AND [aes_AnmelderTeilnehmerNLNR] IS NULL) OR ([aes_AnmelderTeilnehm"& _ "erNLNR] = @Original_aes_AnmelderTeilnehmerNLNR)) AND ((@IsNull_aes_AnmelderTeiln"& _ "ehmerName = 1 AND [aes_AnmelderTeilnehmerName] IS NULL) OR ([aes_AnmelderTeilneh"& _ "merName] = @Original_aes_AnmelderTeilnehmerName)) AND ((@IsNull_aes_AnmelderTeil"& _ "nehmerStrasse = 1 AND [aes_AnmelderTeilnehmerStrasse] IS NULL) OR ([aes_Anmelder"& _ "TeilnehmerStrasse] = @Original_aes_AnmelderTeilnehmerStrasse)) AND ((@IsNull_aes"& _ "_AnmelderTeilnehmerOrt = 1 AND [aes_AnmelderTeilnehmerOrt] IS NULL) OR ([aes_Anm"& _ "elderTeilnehmerOrt] = @Original_aes_AnmelderTeilnehmerOrt)) AND ((@IsNull_aes_An"& _ "melderTeilnehmerPLZ = 1 AND [aes_AnmelderTeilnehmerPLZ] IS NULL) OR ([aes_Anmeld"& _ "erTeilnehmerPLZ] = @Original_aes_AnmelderTeilnehmerPLZ)) AND ((@IsNull_aes_Anmel"& _ "derTeilnehmerLandCode = 1 AND [aes_AnmelderTeilnehmerLandCode] IS NULL) OR ([aes"& _ "_AnmelderTeilnehmerLandCode] = @Original_aes_AnmelderTeilnehmerLandCode)) AND (("& _ "@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter = 1 AND [aes_Anmelde"& _ "rTeilnehmerAnsprechpartnerSachbearbeiter] IS NULL) OR ([aes_AnmelderTeilnehmerAn"& _ "sprechpartnerSachbearbeiter] = @Original_aes_AnmelderTeilnehmerAnsprechpartnerSa"& _ "chbearbeiter)) AND ((@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer "& _ "= 1 AND [aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer] IS NULL) OR ([aes_A"& _ "nmelderTeilnehmerAnsprechpartnerTelefonnummer] = @Original_aes_AnmelderTeilnehme"& _ "rAnsprechpartnerTelefonnummer)) AND ((@IsNull_aes_AnmelderTeilnehmerAnsprechpart"& _ "nerStellung = 1 AND [aes_AnmelderTeilnehmerAnsprechpartnerStellung] IS NULL) OR "& _ "([aes_AnmelderTeilnehmerAnsprechpartnerStellung] = @Original_aes_AnmelderTeilneh"& _ "merAnsprechpartnerStellung)) AND ((@IsNull_aes_AnmelderTeilnehmerAnsprechpartner"& _ "Email = 1 AND [aes_AnmelderTeilnehmerAnsprechpartnerEmail] IS NULL) OR ([aes_Anm"& _ "elderTeilnehmerAnsprechpartnerEmail] = @Original_aes_AnmelderTeilnehmerAnsprechp"& _ "artnerEmail)) AND ((@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerTelefax = 1 AND"& _ " [aes_AnmelderTeilnehmerAnsprechpartnerTelefax] IS NULL) OR ([aes_AnmelderTeilne"& _ "hmerAnsprechpartnerTelefax] = @Original_aes_AnmelderTeilnehmerAnsprechpartnerTel"& _ "efax)) AND ((@IsNull_aes_VertreterAnmelderTeilnehmerEORI = 1 AND [aes_VertreterA"& _ "nmelderTeilnehmerEORI] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerEORI] = @Ori"& _ "ginal_aes_VertreterAnmelderTeilnehmerEORI)) AND ((@IsNull_aes_VertreterAnmelderT"& _ "eilnehmerNLNR = 1 AND [aes_VertreterAnmelderTeilnehmerNLNR] IS NULL) OR ([aes_Ve"& _ "rtreterAnmelderTeilnehmerNLNR] = @Original_aes_VertreterAnmelderTeilnehmerNLNR))"& _ " AND ((@IsNull_aes_VertreterAnmelderTeilnehmerName = 1 AND [aes_VertreterAnmelde"& _ "rTeilnehmerName] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerName] = @Original_"& _ "aes_VertreterAnmelderTeilnehmerName)) AND ((@IsNull_aes_VertreterAnmelderTeilneh"& _ "merStrasse = 1 AND [aes_VertreterAnmelderTeilnehmerStrasse] IS NULL) OR ([aes_Ve"& _ "rtreterAnmelderTeilnehmerStrasse] = @Original_aes_VertreterAnmelderTeilnehmerStr"& _ "asse)) AND ((@IsNull_aes_VertreterAnmelderTeilnehmerOrt = 1 AND [aes_VertreterAn"& _ "melderTeilnehmerOrt] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerOrt] = @Origin"& _ "al_aes_VertreterAnmelderTeilnehmerOrt)) AND ((@IsNull_aes_VertreterAnmelderTeiln"& _ "ehmerPLZ = 1 AND [aes_VertreterAnmelderTeilnehmerPLZ] IS NULL) OR ([aes_Vertrete"& _ "rAnmelderTeilnehmerPLZ] = @Original_aes_VertreterAnmelderTeilnehmerPLZ)) AND ((@"& _ "IsNull_aes_VertreterAnmelderTeilnehmerLandCode = 1 AND [aes_VertreterAnmelderTei"& _ "lnehmerLandCode] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerLandCode] = @Origi"& _ "nal_aes_VertreterAnmelderTeilnehmerLandCode)) AND ((@IsNull_aes_VertreterAnmelde"& _ "rTeilnehmerAnsprechpartnerSachbearbeiter = 1 AND [aes_VertreterAnmelderTeilnehme"& _ "rAnsprechpartnerSachbearbeiter] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerAns"& _ "prechpartnerSachbearbeiter] = @Original_aes_VertreterAnmelderTeilnehmerAnsprechp"& _ "artnerSachbearbeiter)) AND ((@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpart"& _ "nerTelefonnummer = 1 AND [aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonn"& _ "ummer] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer"& _ "] = @Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer)) AND "& _ "((@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung = 1 AND [aes_Ve"& _ "rtreterAnmelderTeilnehmerAnsprechpartnerStellung] IS NULL) OR ([aes_VertreterAnm"& _ "elderTeilnehmerAnsprechpartnerStellung] = @Original_aes_VertreterAnmelderTeilneh"& _ "merAnsprechpartnerStellung)) AND ((@IsNull_aes_VertreterAnmelderTeilnehmerAnspre"& _ "chpartnerEmail = 1 AND [aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail] IS "& _ "NULL) OR ([aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail] = @Original_aes_"& _ "VertreterAnmelderTeilnehmerAnsprechpartnerEmail)) AND ((@IsNull_aes_VertreterAnm"& _ "elderTeilnehmerAnsprechpartnerTelefax = 1 AND [aes_VertreterAnmelderTeilnehmerAn"& _ "sprechpartnerTelefax] IS NULL) OR ([aes_VertreterAnmelderTeilnehmerAnsprechpartn"& _ "erTelefax] = @Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax)) A"& _ "ND ((@IsNull_aes_SubunternehmerTeilnehmerEORI = 1 AND [aes_SubunternehmerTeilneh"& _ "merEORI] IS NULL) OR ([aes_SubunternehmerTeilnehmerEORI] = @Original_aes_Subunte"& _ "rnehmerTeilnehmerEORI)) AND ((@IsNull_aes_SubunternehmerTeilnehmerNLNR = 1 AND ["& _ "aes_SubunternehmerTeilnehmerNLNR] IS NULL) OR ([aes_SubunternehmerTeilnehmerNLNR"& _ "] = @Original_aes_SubunternehmerTeilnehmerNLNR)) AND ((@IsNull_aes_Subunternehme"& _ "rTeilnehmerName = 1 AND [aes_SubunternehmerTeilnehmerName] IS NULL) OR ([aes_Sub"& _ "unternehmerTeilnehmerName] = @Original_aes_SubunternehmerTeilnehmerName)) AND (("& _ "@IsNull_aes_SubunternehmerTeilnehmerStrasse = 1 AND [aes_SubunternehmerTeilnehme"& _ "rStrasse] IS NULL) OR ([aes_SubunternehmerTeilnehmerStrasse] = @Original_aes_Sub"& _ "unternehmerTeilnehmerStrasse)) AND ((@IsNull_aes_SubunternehmerTeilnehmerOrt = 1"& _ " AND [aes_SubunternehmerTeilnehmerOrt] IS NULL) OR ([aes_SubunternehmerTeilnehme"& _ "rOrt] = @Original_aes_SubunternehmerTeilnehmerOrt)) AND ((@IsNull_aes_Subunterne"& _ "hmerTeilnehmerPLZ = 1 AND [aes_SubunternehmerTeilnehmerPLZ] IS NULL) OR ([aes_Su"& _ "bunternehmerTeilnehmerPLZ] = @Original_aes_SubunternehmerTeilnehmerPLZ)) AND ((@"& _ "IsNull_aes_SubunternehmerTeilnehmerLandCode = 1 AND [aes_SubunternehmerTeilnehme"& _ "rLandCode] IS NULL) OR ([aes_SubunternehmerTeilnehmerLandCode] = @Original_aes_S"& _ "ubunternehmerTeilnehmerLandCode)) AND ((@IsNull_aes_SubunternehmerTeilnehmerAnsp"& _ "rechpartnerSachbearbeiter = 1 AND [aes_SubunternehmerTeilnehmerAnsprechpartnerSa"& _ "chbearbeiter] IS NULL) OR ([aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearb"& _ "eiter] = @Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter)) A"& _ "ND ((@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer = 1 AND [a"& _ "es_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer] IS NULL) OR ([aes_Subun"& _ "ternehmerTeilnehmerAnsprechpartnerTelefonnummer] = @Original_aes_SubunternehmerT"& _ "eilnehmerAnsprechpartnerTelefonnummer)) AND ((@IsNull_aes_SubunternehmerTeilnehm"& _ "erAnsprechpartnerStellung = 1 AND [aes_SubunternehmerTeilnehmerAnsprechpartnerSt"& _ "ellung] IS NULL) OR ([aes_SubunternehmerTeilnehmerAnsprechpartnerStellung] = @Or"& _ "iginal_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung)) AND ((@IsNull_aes_S"& _ "ubunternehmerTeilnehmerAnsprechpartnerEmail = 1 AND [aes_SubunternehmerTeilnehme"& _ "rAnsprechpartnerEmail] IS NULL) OR ([aes_SubunternehmerTeilnehmerAnsprechpartner"& _ "Email] = @Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail)) AND ((@IsN"& _ "ull_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax = 1 AND [aes_Subunternehm"& _ "erTeilnehmerAnsprechpartnerTelefax] IS NULL) OR ([aes_SubunternehmerTeilnehmerAn"& _ "sprechpartnerTelefax] = @Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTel"& _ "efax)) AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerEORI = 1 AND [aes_Verfahre"& _ "nsinhaberPVTeilnehmerEORI] IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerEORI] "& _ "= @Original_aes_VerfahrensinhaberPVTeilnehmerEORI)) AND ((@IsNull_aes_Verfahrens"& _ "inhaberPVTeilnehmerNLNR = 1 AND [aes_VerfahrensinhaberPVTeilnehmerNLNR] IS NULL)"& _ " OR ([aes_VerfahrensinhaberPVTeilnehmerNLNR] = @Original_aes_VerfahrensinhaberPV"& _ "TeilnehmerNLNR)) AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerName = 1 AND [ae"& _ "s_VerfahrensinhaberPVTeilnehmerName] IS NULL) OR ([aes_VerfahrensinhaberPVTeilne"& _ "hmerName] = @Original_aes_VerfahrensinhaberPVTeilnehmerName)) AND ((@IsNull_aes_"& _ "VerfahrensinhaberPVTeilnehmerStrasse = 1 AND [aes_VerfahrensinhaberPVTeilnehmerS"& _ "trasse] IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerStrasse] = @Original_aes_"& _ "VerfahrensinhaberPVTeilnehmerStrasse)) AND ((@IsNull_aes_VerfahrensinhaberPVTeil"& _ "nehmerOrt = 1 AND [aes_VerfahrensinhaberPVTeilnehmerOrt] IS NULL) OR ([aes_Verfa"& _ "hrensinhaberPVTeilnehmerOrt] = @Original_aes_VerfahrensinhaberPVTeilnehmerOrt)) "& _ "AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerPLZ = 1 AND [aes_Verfahrensinhabe"& _ "rPVTeilnehmerPLZ] IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerPLZ] = @Origina"& _ "l_aes_VerfahrensinhaberPVTeilnehmerPLZ)) AND ((@IsNull_aes_VerfahrensinhaberPVTe"& _ "ilnehmerLandCode = 1 AND [aes_VerfahrensinhaberPVTeilnehmerLandCode] IS NULL) OR"& _ " ([aes_VerfahrensinhaberPVTeilnehmerLandCode] = @Original_aes_VerfahrensinhaberP"& _ "VTeilnehmerLandCode)) AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpar"& _ "tnerSachbearbeiter = 1 AND [aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSach"& _ "bearbeiter] IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbe"& _ "arbeiter] = @Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbe"& _ "iter)) AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnumm"& _ "er = 1 AND [aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer] IS NU"& _ "LL) OR ([aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer] = @Origi"& _ "nal_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer)) AND ((@IsNul"& _ "l_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung = 1 AND [aes_Verfahre"& _ "nsinhaberPVTeilnehmerAnsprechpartnerStellung] IS NULL) OR ([aes_Verfahrensinhabe"& _ "rPVTeilnehmerAnsprechpartnerStellung] = @Original_aes_VerfahrensinhaberPVTeilneh"& _ "merAnsprechpartnerStellung)) AND ((@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsp"& _ "rechpartnerEmail = 1 AND [aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail]"& _ " IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail] = @Origina"& _ "l_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail)) AND ((@IsNull_aes_Verf"& _ "ahrensinhaberPVTeilnehmerAnsprechpartnerTelefax = 1 AND [aes_VerfahrensinhaberPV"& _ "TeilnehmerAnsprechpartnerTelefax] IS NULL) OR ([aes_VerfahrensinhaberPVTeilnehme"& _ "rAnsprechpartnerTelefax] = @Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpa"& _ "rtnerTelefax)) AND ((@IsNull_aes_BefoerderungsrouteLand1 = 1 AND [aes_Befoerderu"& _ "ngsrouteLand1] IS NULL) OR ([aes_BefoerderungsrouteLand1] = @Original_aes_Befoer"& _ "derungsrouteLand1)) AND ((@IsNull_aes_BefoerderungsrouteLand2 = 1 AND [aes_Befoe"& _ "rderungsrouteLand2] IS NULL) OR ([aes_BefoerderungsrouteLand2] = @Original_aes_B"& _ "efoerderungsrouteLand2)) AND ((@IsNull_aes_BefoerderungsrouteLand3 = 1 AND [aes_"& _ "BefoerderungsrouteLand3] IS NULL) OR ([aes_BefoerderungsrouteLand3] = @Original_"& _ "aes_BefoerderungsrouteLand3)) AND ((@IsNull_aes_BefoerderungsrouteLand4 = 1 AND "& _ "[aes_BefoerderungsrouteLand4] IS NULL) OR ([aes_BefoerderungsrouteLand4] = @Orig"& _ "inal_aes_BefoerderungsrouteLand4)) AND ((@IsNull_aes_BefoerderungsrouteLand5 = 1"& _ " AND [aes_BefoerderungsrouteLand5] IS NULL) OR ([aes_BefoerderungsrouteLand5] = "& _ "@Original_aes_BefoerderungsrouteLand5)) AND ((@IsNull_aes_BefoerderungsrouteLand"& _ "6 = 1 AND [aes_BefoerderungsrouteLand6] IS NULL) OR ([aes_BefoerderungsrouteLand"& _ "6] = @Original_aes_BefoerderungsrouteLand6)) AND ((@IsNull_aes_Befoerderungsrout"& _ "eLand7 = 1 AND [aes_BefoerderungsrouteLand7] IS NULL) OR ([aes_Befoerderungsrout"& _ "eLand7] = @Original_aes_BefoerderungsrouteLand7)) AND ((@IsNull_aes_Befoerderung"& _ "srouteLand8 = 1 AND [aes_BefoerderungsrouteLand8] IS NULL) OR ([aes_Befoerderung"& _ "srouteLand8] = @Original_aes_BefoerderungsrouteLand8)) AND ((@IsNull_aes_Befoerd"& _ "erungsrouteLand9 = 1 AND [aes_BefoerderungsrouteLand9] IS NULL) OR ([aes_Befoerd"& _ "erungsrouteLand9] = @Original_aes_BefoerderungsrouteLand9)) AND ((@IsNull_aes_Be"& _ "foerderungsrouteLand10 = 1 AND [aes_BefoerderungsrouteLand10] IS NULL) OR ([aes_"& _ "BefoerderungsrouteLand10] = @Original_aes_BefoerderungsrouteLand10)) AND ((@IsNu"& _ "ll_aes_BefoerderungsrouteLand11 = 1 AND [aes_BefoerderungsrouteLand11] IS NULL) "& _ "OR ([aes_BefoerderungsrouteLand11] = @Original_aes_BefoerderungsrouteLand11)) AN"& _ "D ((@IsNull_aes_BefoerderungsrouteLand12 = 1 AND [aes_BefoerderungsrouteLand12] "& _ "IS NULL) OR ([aes_BefoerderungsrouteLand12] = @Original_aes_BefoerderungsrouteLa"& _ "nd12)) AND ((@IsNull_aes_LieferbedingungenCode = 1 AND [aes_LieferbedingungenCod"& _ "e] IS NULL) OR ([aes_LieferbedingungenCode] = @Original_aes_LieferbedingungenCod"& _ "e)) AND ((@IsNull_aes_LieferbedingungenText = 1 AND [aes_LieferbedingungenText] "& _ "IS NULL) OR ([aes_LieferbedingungenText] = @Original_aes_LieferbedingungenText))"& _ " AND ((@IsNull_aes_LieferbedingungenOrt = 1 AND [aes_LieferbedingungenOrt] IS NU"& _ "LL) OR ([aes_LieferbedingungenOrt] = @Original_aes_LieferbedingungenOrt)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ "ECT aes_Id, aes_Status, aes_Status_KEWILL_Equivalent, aes_dyaArt, aes_dyaAnmID, "& _ "aes_ANR, aes_MRN, aes_Erstellung, aes_Erstellung_SB, aes_LetzteBearbeitung, aes_"& _ "LetzteBearbeitung_SB, aes_firma, aes_niederlassung, aes_Trans_Partner, aes_Trans"& _ "_Div1, aes_Trans_Div2, aes_Trans_Div3, aes_Trans_Referenz, aes_Trans_DatumZeit, "& _ "aes_Trans_Version, aes_NachrichtenSenderTIN, aes_NachrichtenSenderNLNR, aes_Nach"& _ "richtenempfaengerDST, aes_ObjectName, aes_ObjectAlias, aes_BezugsnummerVorblendu"& _ "ng, aes_Bearbeiter, aes_AnmeldeArtAusfuhrCode, aes_AnmeldeArtVerfahrensCode, aes"& _ "_AnmeldeArtUeberfuehrungCode, aes_Ausfuhrland, aes_BestimmungslandCode, aes_Anme"& _ "ldedatumZeit, aes_DatumAusgang, aes_MassgeblichesDatum, aes_BesondereUmstaende, "& _ "aes_Zahlungsweisebefoerderungskosten, aes_ContainerIndikator, aes_BeteiligteKons"& _ "tellation, aes_AdressdatenKonstellation, aes_GesamtRohmasse, aes_Registriernumme"& _ "rFremdsystem, aes_Vermerk, aes_KennnummerSendung, aes_AnzahlPositionen, aes_Bewi"& _ "ligungsnummerAusfuhr, aes_BewiligungsnummerAnschreibeverfahren, aes_Bewiligungsn"& _ "ummerPassiveVeredelung, aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer, aes"& _ "_VerkehrszweigInland, aes_BefoerderungsmittelAbgangArtCode, aes_Befoerderungsmit"& _ "telAbgangKennzeichen, aes_BefoerderungsmittelAbgangStaatCode, aes_VerkehrszweigG"& _ "renze, aes_BefoerderungsmittelGrenzeArtCode, aes_BefoerderungsmittelGrenzeKennze"& _ "ichen, aes_BefoerderungsmittelGrenzeStaatCode, aes_LadeortOrtId, aes_LadeortStra"& _ "sse, aes_LadeortPLZ, aes_LadeortOrt, aes_LadeortZusatz, aes_AusfuhrZollstelleID,"& _ " aes_AusgangszollstelleID, aes_TatsaechlicheAusgangZollstelleID, aes_Geschaeftar"& _ "tCode, aes_Rechnungspreis, aes_Rechnungwaehrung, aes_BesondererTatbestand, aes_V"& _ "erschlussArtCode, aes_VerschlussAnzahl, aes_VerschlussZeichen1, aes_VerschlussZe"& _ "ichen2, aes_VerschlussZeichen3, aes_VerschlussZeichen4, aes_VerschlussZeichen5, "& _ "aes_VerschlussZeichen6, aes_VerschlussZeichen7, aes_VerschlussZeichen8, aes_Vers"& _ "chlussZeichen9, aes_VerschlussZeichen10, aes_VerschlussZeichen11, aes_Verschluss"& _ "Zeichen12, aes_GestellungsfristAnfangDatumZeit, aes_GestellungsfristEndeDatumZei"& _ "t, aes_AusfuehrerTeilnehmerEORI, aes_AusfuehrerTeilnehmerNLNR, aes_AusfuehrerTei"& _ "lnehmerName, aes_AusfuehrerTeilnehmerStrasse, aes_AusfuehrerTeilnehmerOrt, aes_A"& _ "usfuehrerTeilnehmerPLZ, aes_AusfuehrerTeilnehmerLandCode, aes_AusfuehrerTeilnehm"& _ "erAnsprechpartnerSachbearbeiter, aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonn"& _ "ummer, aes_AusfuehrerTeilnehmerAnsprechpartnerStellung, aes_AusfuehrerTeilnehmer"& _ "AnsprechpartnerEmail, aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax, aes_Empfae"& _ "ngerTeilnehmerEORI, aes_EmpfaengerTeilnehmerNLNR, aes_EmpfaengerTeilnehmerName, "& _ "aes_EmpfaengerTeilnehmerStrasse, aes_EmpfaengerTeilnehmerOrt, aes_EmpfaengerTeil"& _ "nehmerPLZ, aes_EmpfaengerTeilnehmerLandCode, aes_AnmelderTeilnehmerEORI, aes_Anm"& _ "elderTeilnehmerNLNR, aes_AnmelderTeilnehmerName, aes_AnmelderTeilnehmerStrasse, "& _ "aes_AnmelderTeilnehmerOrt, aes_AnmelderTeilnehmerPLZ, aes_AnmelderTeilnehmerLand"& _ "Code, aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter, aes_AnmelderTeilnehme"& _ "rAnsprechpartnerTelefonnummer, aes_AnmelderTeilnehmerAnsprechpartnerStellung, ae"& _ "s_AnmelderTeilnehmerAnsprechpartnerEmail, aes_AnmelderTeilnehmerAnsprechpartnerT"& _ "elefax, aes_VertreterAnmelderTeilnehmerEORI, aes_VertreterAnmelderTeilnehmerNLNR"& _ ", aes_VertreterAnmelderTeilnehmerName, aes_VertreterAnmelderTeilnehmerStrasse, a"& _ "es_VertreterAnmelderTeilnehmerOrt, aes_VertreterAnmelderTeilnehmerPLZ, aes_Vertr"& _ "eterAnmelderTeilnehmerLandCode, aes_VertreterAnmelderTeilnehmerAnsprechpartnerSa"& _ "chbearbeiter, aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer, aes_V"& _ "ertreterAnmelderTeilnehmerAnsprechpartnerStellung, aes_VertreterAnmelderTeilnehm"& _ "erAnsprechpartnerEmail, aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax, a"& _ "es_SubunternehmerTeilnehmerEORI, aes_SubunternehmerTeilnehmerNLNR, aes_Subuntern"& _ "ehmerTeilnehmerName, aes_SubunternehmerTeilnehmerStrasse, aes_SubunternehmerTeil"& _ "nehmerOrt, aes_SubunternehmerTeilnehmerPLZ, aes_SubunternehmerTeilnehmerLandCode"& _ ", aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter, aes_SubunternehmerT"& _ "eilnehmerAnsprechpartnerTelefonnummer, aes_SubunternehmerTeilnehmerAnsprechpartn"& _ "erStellung, aes_SubunternehmerTeilnehmerAnsprechpartnerEmail, aes_Subunternehmer"& _ "TeilnehmerAnsprechpartnerTelefax, aes_VerfahrensinhaberPVTeilnehmerEORI, aes_Ver"& _ "fahrensinhaberPVTeilnehmerNLNR, aes_VerfahrensinhaberPVTeilnehmerName, aes_Verfa"& _ "hrensinhaberPVTeilnehmerStrasse, aes_VerfahrensinhaberPVTeilnehmerOrt, aes_Verfa"& _ "hrensinhaberPVTeilnehmerPLZ, aes_VerfahrensinhaberPVTeilnehmerLandCode, aes_Verf"& _ "ahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter, aes_VerfahrensinhaberPVT"& _ "eilnehmerAnsprechpartnerTelefonnummer, aes_VerfahrensinhaberPVTeilnehmerAnsprech"& _ "partnerStellung, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail, aes_Verf"& _ "ahrensinhaberPVTeilnehmerAnsprechpartnerTelefax, aes_BefoerderungsrouteLand1, ae"& _ "s_BefoerderungsrouteLand2, aes_BefoerderungsrouteLand3, aes_BefoerderungsrouteLa"& _ "nd4, aes_BefoerderungsrouteLand5, aes_BefoerderungsrouteLand6, aes_Befoerderungs"& _ "routeLand7, aes_BefoerderungsrouteLand8, aes_BefoerderungsrouteLand9, aes_Befoer"& _ "derungsrouteLand10, aes_BefoerderungsrouteLand11, aes_BefoerderungsrouteLand12, "& _ "aes_LieferbedingungenCode, aes_LieferbedingungenText, aes_LieferbedingungenOrt F"& _ "ROM tblDakosy_AES WHERE (aes_Id = @aes_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_dyaArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_dyaAnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ANR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_DatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aes_Trans_Version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectAlias", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Bearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmeldeArtAusfuhrCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtAusfuhrCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmeldeArtVerfahrensCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtVerfahrensCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Ausfuhrland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Ausfuhrland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BestimmungslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmeldedatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldedatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_DatumAusgang", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_DatumAusgang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_MassgeblichesDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MassgeblichesDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondereUmstaende", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Zahlungsweisebefoerderungskosten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Zahlungsweisebefoerderungskosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_ContainerIndikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ContainerIndikator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BeteiligteKonstellation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BeteiligteKonstellation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AdressdatenKonstellation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AdressdatenKonstellation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aes_GesamtRohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_RegistriernummerFremdsystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_RegistriernummerFremdsystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_KennnummerSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnzahlPositionen", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aes_AnzahlPositionen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BewiligungsnummerAusfuhr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAusfuhr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigInland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LadeortOrtId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrtId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LadeortStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LadeortPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LadeortOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LadeortZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortZusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuhrZollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuhrZollstelleID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusgangszollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusgangszollstelleID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_GeschaeftartCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GeschaeftartCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Rechnungspreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "aes_Rechnungspreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Rechnungwaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Rechnungwaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BesondererTatbestand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondererTatbestand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussAnzahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerschlussZeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_GestellungsfristAnfangDatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristAnfangDatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_GestellungsfristEndeDatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristEndeDatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LieferbedingungenCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LieferbedingungenText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_LieferbedingungenOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_dyaArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_dyaAnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_ANR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ANR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ANR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Partner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Partner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Div1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Div2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Div3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Div3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_DatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Trans_Version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Trans_Version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aes_Trans_Version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_NachrichtenSenderTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_ObjectName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_ObjectAlias", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectAlias", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ObjectAlias", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BezugsnummerVorblendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Bearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Bearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Bearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmeldeArtAusfuhrCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtAusfuhrCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmeldeArtAusfuhrCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtAusfuhrCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmeldeArtVerfahrensCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtVerfahrensCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmeldeArtVerfahrensCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtVerfahrensCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldeArtUeberfuehrungCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Ausfuhrland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Ausfuhrland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Ausfuhrland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Ausfuhrland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BestimmungslandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmeldedatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldedatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmeldedatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmeldedatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_DatumAusgang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_DatumAusgang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_DatumAusgang", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_DatumAusgang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_MassgeblichesDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MassgeblichesDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_MassgeblichesDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_MassgeblichesDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BesondereUmstaende", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Zahlungsweisebefoerderungskosten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Zahlungsweisebefoerderungskosten", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Zahlungsweisebefoerderungskosten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Zahlungsweisebefoerderungskosten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_ContainerIndikator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ContainerIndikator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_ContainerIndikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_ContainerIndikator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BeteiligteKonstellation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BeteiligteKonstellation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BeteiligteKonstellation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BeteiligteKonstellation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AdressdatenKonstellation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AdressdatenKonstellation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AdressdatenKonstellation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AdressdatenKonstellation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_GesamtRohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aes_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_RegistriernummerFremdsystem", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_RegistriernummerFremdsystem", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_RegistriernummerFremdsystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_RegistriernummerFremdsystem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Vermerk", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Vermerk", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Vermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_KennnummerSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_KennnummerSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_KennnummerSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnzahlPositionen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnzahlPositionen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnzahlPositionen", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aes_AnzahlPositionen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BewiligungsnummerAusfuhr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAusfuhr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BewiligungsnummerAusfuhr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAusfuhr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerAnschreibeverfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerPassiveVeredelung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerkehrszweigInland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangKennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelAbgangStaatCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerkehrszweigGrenze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeKennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsmittelGrenzeStaatCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LadeortOrtId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrtId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LadeortOrtId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrtId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LadeortStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LadeortStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LadeortPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LadeortPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LadeortOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LadeortOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LadeortZusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortZusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LadeortZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LadeortZusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuhrZollstelleID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuhrZollstelleID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuhrZollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuhrZollstelleID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusgangszollstelleID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusgangszollstelleID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusgangszollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusgangszollstelleID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_TatsaechlicheAusgangZollstelleID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_GeschaeftartCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GeschaeftartCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_GeschaeftartCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GeschaeftartCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Rechnungspreis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Rechnungspreis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Rechnungspreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "aes_Rechnungspreis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_Rechnungwaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Rechnungwaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_Rechnungwaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Rechnungwaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BesondererTatbestand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondererTatbestand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BesondererTatbestand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BesondererTatbestand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussAnzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussAnzahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussAnzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerschlussZeichen12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerschlussZeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerschlussZeichen12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_GestellungsfristAnfangDatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristAnfangDatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_GestellungsfristAnfangDatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristAnfangDatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_GestellungsfristEndeDatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristEndeDatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_GestellungsfristEndeDatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_GestellungsfristEndeDatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_AnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LieferbedingungenCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LieferbedingungenCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LieferbedingungenText", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenText", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LieferbedingungenText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenText", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aes_LieferbedingungenOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aes_LieferbedingungenOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_LieferbedingungenOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aes_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "aes_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 aes_Id, aes_Status, aes_Status_KEWILL_Equivalent, aes_dyaArt, aes_dyaAnmID"& _ ", aes_ANR, aes_MRN, aes_Erstellung, aes_Erstellung_SB, aes_LetzteBearbeitung, ae"& _ "s_LetzteBearbeitung_SB, aes_firma, aes_niederlassung, aes_Trans_Partner, aes_Tra"& _ "ns_Div1, aes_Trans_Div2, aes_Trans_Div3, aes_Trans_Referenz, aes_Trans_DatumZeit"& _ ", aes_Trans_Version, aes_NachrichtenSenderTIN, aes_NachrichtenSenderNLNR, aes_Na"& _ "chrichtenempfaengerDST, aes_ObjectName, aes_ObjectAlias, aes_BezugsnummerVorblen"& _ "dung, aes_Bearbeiter, aes_AnmeldeArtAusfuhrCode, aes_AnmeldeArtVerfahrensCode, a"& _ "es_AnmeldeArtUeberfuehrungCode, aes_Ausfuhrland, aes_BestimmungslandCode, aes_An"& _ "meldedatumZeit, aes_DatumAusgang, aes_MassgeblichesDatum, aes_BesondereUmstaende"& _ ", aes_Zahlungsweisebefoerderungskosten, aes_ContainerIndikator, aes_BeteiligteKo"& _ "nstellation, aes_AdressdatenKonstellation, aes_GesamtRohmasse, aes_Registriernum"& _ "merFremdsystem, aes_Vermerk, aes_KennnummerSendung, aes_AnzahlPositionen, aes_Be"& _ "wiligungsnummerAusfuhr, aes_BewiligungsnummerAnschreibeverfahren, aes_Bewiligung"& _ "snummerPassiveVeredelung, aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer, a"& _ "es_VerkehrszweigInland, aes_BefoerderungsmittelAbgangArtCode, aes_Befoerderungsm"& _ "ittelAbgangKennzeichen, aes_BefoerderungsmittelAbgangStaatCode, aes_Verkehrszwei"& _ "gGrenze, aes_BefoerderungsmittelGrenzeArtCode, aes_BefoerderungsmittelGrenzeKenn"& _ "zeichen, aes_BefoerderungsmittelGrenzeStaatCode, aes_LadeortOrtId, aes_LadeortSt"& _ "rasse, aes_LadeortPLZ, aes_LadeortOrt, aes_LadeortZusatz, aes_AusfuhrZollstelleI"& _ "D, aes_AusgangszollstelleID, aes_TatsaechlicheAusgangZollstelleID, aes_Geschaeft"& _ "artCode, aes_Rechnungspreis, aes_Rechnungwaehrung, aes_BesondererTatbestand, aes"& _ "_VerschlussArtCode, aes_VerschlussAnzahl, aes_VerschlussZeichen1, aes_Verschluss"& _ "Zeichen2, aes_VerschlussZeichen3, aes_VerschlussZeichen4, aes_VerschlussZeichen5"& _ ", aes_VerschlussZeichen6, aes_VerschlussZeichen7, aes_VerschlussZeichen8, aes_Ve"& _ "rschlussZeichen9, aes_VerschlussZeichen10, aes_VerschlussZeichen11, aes_Verschlu"& _ "ssZeichen12, aes_GestellungsfristAnfangDatumZeit, aes_GestellungsfristEndeDatumZ"& _ "eit, aes_AusfuehrerTeilnehmerEORI, aes_AusfuehrerTeilnehmerNLNR, aes_AusfuehrerT"& _ "eilnehmerName, aes_AusfuehrerTeilnehmerStrasse, aes_AusfuehrerTeilnehmerOrt, aes"& _ "_AusfuehrerTeilnehmerPLZ, aes_AusfuehrerTeilnehmerLandCode, aes_AusfuehrerTeilne"& _ "hmerAnsprechpartnerSachbearbeiter, aes_AusfuehrerTeilnehmerAnsprechpartnerTelefo"& _ "nnummer, aes_AusfuehrerTeilnehmerAnsprechpartnerStellung, aes_AusfuehrerTeilnehm"& _ "erAnsprechpartnerEmail, aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax, aes_Empf"& _ "aengerTeilnehmerEORI, aes_EmpfaengerTeilnehmerNLNR, aes_EmpfaengerTeilnehmerName"& _ ", aes_EmpfaengerTeilnehmerStrasse, aes_EmpfaengerTeilnehmerOrt, aes_EmpfaengerTe"& _ "ilnehmerPLZ, aes_EmpfaengerTeilnehmerLandCode, aes_AnmelderTeilnehmerEORI, aes_A"& _ "nmelderTeilnehmerNLNR, aes_AnmelderTeilnehmerName, aes_AnmelderTeilnehmerStrasse"& _ ", aes_AnmelderTeilnehmerOrt, aes_AnmelderTeilnehmerPLZ, aes_AnmelderTeilnehmerLa"& _ "ndCode, aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter, aes_AnmelderTeilneh"& _ "merAnsprechpartnerTelefonnummer, aes_AnmelderTeilnehmerAnsprechpartnerStellung, "& _ "aes_AnmelderTeilnehmerAnsprechpartnerEmail, aes_AnmelderTeilnehmerAnsprechpartne"& _ "rTelefax, aes_VertreterAnmelderTeilnehmerEORI, aes_VertreterAnmelderTeilnehmerNL"& _ "NR, aes_VertreterAnmelderTeilnehmerName, aes_VertreterAnmelderTeilnehmerStrasse,"& _ " aes_VertreterAnmelderTeilnehmerOrt, aes_VertreterAnmelderTeilnehmerPLZ, aes_Ver"& _ "treterAnmelderTeilnehmerLandCode, aes_VertreterAnmelderTeilnehmerAnsprechpartner"& _ "Sachbearbeiter, aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer, aes"& _ "_VertreterAnmelderTeilnehmerAnsprechpartnerStellung, aes_VertreterAnmelderTeilne"& _ "hmerAnsprechpartnerEmail, aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax,"& _ " aes_SubunternehmerTeilnehmerEORI, aes_SubunternehmerTeilnehmerNLNR, aes_Subunte"& _ "rnehmerTeilnehmerName, aes_SubunternehmerTeilnehmerStrasse, aes_SubunternehmerTe"& _ "ilnehmerOrt, aes_SubunternehmerTeilnehmerPLZ, aes_SubunternehmerTeilnehmerLandCo"& _ "de, aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter, aes_Subunternehme"& _ "rTeilnehmerAnsprechpartnerTelefonnummer, aes_SubunternehmerTeilnehmerAnsprechpar"& _ "tnerStellung, aes_SubunternehmerTeilnehmerAnsprechpartnerEmail, aes_Subunternehm"& _ "erTeilnehmerAnsprechpartnerTelefax, aes_VerfahrensinhaberPVTeilnehmerEORI, aes_V"& _ "erfahrensinhaberPVTeilnehmerNLNR, aes_VerfahrensinhaberPVTeilnehmerName, aes_Ver"& _ "fahrensinhaberPVTeilnehmerStrasse, aes_VerfahrensinhaberPVTeilnehmerOrt, aes_Ver"& _ "fahrensinhaberPVTeilnehmerPLZ, aes_VerfahrensinhaberPVTeilnehmerLandCode, aes_Ve"& _ "rfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter, aes_VerfahrensinhaberP"& _ "VTeilnehmerAnsprechpartnerTelefonnummer, aes_VerfahrensinhaberPVTeilnehmerAnspre"& _ "chpartnerStellung, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail, aes_Ve"& _ "rfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax, aes_BefoerderungsrouteLand1, "& _ "aes_BefoerderungsrouteLand2, aes_BefoerderungsrouteLand3, aes_Befoerderungsroute"& _ "Land4, aes_BefoerderungsrouteLand5, aes_BefoerderungsrouteLand6, aes_Befoerderun"& _ "gsrouteLand7, aes_BefoerderungsrouteLand8, aes_BefoerderungsrouteLand9, aes_Befo"& _ "erderungsrouteLand10, aes_BefoerderungsrouteLand11, aes_BefoerderungsrouteLand12"& _ ", aes_LieferbedingungenCode, aes_LieferbedingungenText, aes_LieferbedingungenOrt"& _ " FROM dbo.tblDakosy_AES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_AESDataTable) 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 VERAGDataSet.tblDakosy_AESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_AESDataTable = New VERAGDataSet.tblDakosy_AESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_AESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_AES") 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_aes_Id As Integer, _ ByVal Original_aes_Status As Integer, _ ByVal Original_aes_Status_KEWILL_Equivalent As Integer, _ ByVal Original_aes_dyaArt As String, _ ByVal Original_aes_dyaAnmID As Integer, _ ByVal Original_aes_ANR As String, _ ByVal Original_aes_MRN As String, _ ByVal Original_aes_Erstellung As Date, _ ByVal Original_aes_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_aes_LetzteBearbeitung As Date, _ ByVal Original_aes_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_aes_firma As String, _ ByVal Original_aes_niederlassung As String, _ ByVal Original_aes_Trans_Partner As String, _ ByVal Original_aes_Trans_Div1 As String, _ ByVal Original_aes_Trans_Div2 As String, _ ByVal Original_aes_Trans_Div3 As String, _ ByVal Original_aes_Trans_Referenz As String, _ ByVal Original_aes_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_NachrichtenSenderTIN As String, _ ByVal Original_aes_NachrichtenSenderNLNR As String, _ ByVal Original_aes_NachrichtenempfaengerDST As String, _ ByVal Original_aes_ObjectName As String, _ ByVal Original_aes_ObjectAlias As String, _ ByVal Original_aes_BezugsnummerVorblendung As String, _ ByVal Original_aes_Bearbeiter As String, _ ByVal Original_aes_AnmeldeArtAusfuhrCode As String, _ ByVal Original_aes_AnmeldeArtVerfahrensCode As String, _ ByVal Original_aes_AnmeldeArtUeberfuehrungCode As String, _ ByVal Original_aes_Ausfuhrland As String, _ ByVal Original_aes_BestimmungslandCode As String, _ ByVal Original_aes_AnmeldedatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_DatumAusgang As Global.System.Nullable(Of Date), _ ByVal Original_aes_MassgeblichesDatum As Global.System.Nullable(Of Date), _ ByVal Original_aes_BesondereUmstaende As String, _ ByVal Original_aes_Zahlungsweisebefoerderungskosten As String, _ ByVal Original_aes_ContainerIndikator As String, _ ByVal Original_aes_BeteiligteKonstellation As String, _ ByVal Original_aes_AdressdatenKonstellation As String, _ ByVal Original_aes_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_RegistriernummerFremdsystem As String, _ ByVal Original_aes_Vermerk As String, _ ByVal Original_aes_KennnummerSendung As String, _ ByVal Original_aes_AnzahlPositionen As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_BewiligungsnummerAusfuhr As String, _ ByVal Original_aes_BewiligungsnummerAnschreibeverfahren As String, _ ByVal Original_aes_BewiligungsnummerPassiveVeredelung As String, _ ByVal Original_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer As String, _ ByVal Original_aes_VerkehrszweigInland As String, _ ByVal Original_aes_BefoerderungsmittelAbgangArtCode As String, _ ByVal Original_aes_BefoerderungsmittelAbgangKennzeichen As String, _ ByVal Original_aes_BefoerderungsmittelAbgangStaatCode As String, _ ByVal Original_aes_VerkehrszweigGrenze As String, _ ByVal Original_aes_BefoerderungsmittelGrenzeArtCode As String, _ ByVal Original_aes_BefoerderungsmittelGrenzeKennzeichen As String, _ ByVal Original_aes_BefoerderungsmittelGrenzeStaatCode As String, _ ByVal Original_aes_LadeortOrtId As String, _ ByVal Original_aes_LadeortStrasse As String, _ ByVal Original_aes_LadeortPLZ As String, _ ByVal Original_aes_LadeortOrt As String, _ ByVal Original_aes_LadeortZusatz As String, _ ByVal Original_aes_AusfuhrZollstelleID As String, _ ByVal Original_aes_AusgangszollstelleID As String, _ ByVal Original_aes_TatsaechlicheAusgangZollstelleID As String, _ ByVal Original_aes_GeschaeftartCode As String, _ ByVal Original_aes_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_Rechnungwaehrung As String, _ ByVal Original_aes_BesondererTatbestand As String, _ ByVal Original_aes_VerschlussArtCode As String, _ ByVal Original_aes_VerschlussAnzahl As String, _ ByVal Original_aes_VerschlussZeichen1 As String, _ ByVal Original_aes_VerschlussZeichen2 As String, _ ByVal Original_aes_VerschlussZeichen3 As String, _ ByVal Original_aes_VerschlussZeichen4 As String, _ ByVal Original_aes_VerschlussZeichen5 As String, _ ByVal Original_aes_VerschlussZeichen6 As String, _ ByVal Original_aes_VerschlussZeichen7 As String, _ ByVal Original_aes_VerschlussZeichen8 As String, _ ByVal Original_aes_VerschlussZeichen9 As String, _ ByVal Original_aes_VerschlussZeichen10 As String, _ ByVal Original_aes_VerschlussZeichen11 As String, _ ByVal Original_aes_VerschlussZeichen12 As String, _ ByVal Original_aes_GestellungsfristAnfangDatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_GestellungsfristEndeDatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_AusfuehrerTeilnehmerEORI As String, _ ByVal Original_aes_AusfuehrerTeilnehmerNLNR As String, _ ByVal Original_aes_AusfuehrerTeilnehmerName As String, _ ByVal Original_aes_AusfuehrerTeilnehmerStrasse As String, _ ByVal Original_aes_AusfuehrerTeilnehmerOrt As String, _ ByVal Original_aes_AusfuehrerTeilnehmerPLZ As String, _ ByVal Original_aes_AusfuehrerTeilnehmerLandCode As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_EmpfaengerTeilnehmerEORI As String, _ ByVal Original_aes_EmpfaengerTeilnehmerNLNR As String, _ ByVal Original_aes_EmpfaengerTeilnehmerName As String, _ ByVal Original_aes_EmpfaengerTeilnehmerStrasse As String, _ ByVal Original_aes_EmpfaengerTeilnehmerOrt As String, _ ByVal Original_aes_EmpfaengerTeilnehmerPLZ As String, _ ByVal Original_aes_EmpfaengerTeilnehmerLandCode As String, _ ByVal Original_aes_AnmelderTeilnehmerEORI As String, _ ByVal Original_aes_AnmelderTeilnehmerNLNR As String, _ ByVal Original_aes_AnmelderTeilnehmerName As String, _ ByVal Original_aes_AnmelderTeilnehmerStrasse As String, _ ByVal Original_aes_AnmelderTeilnehmerOrt As String, _ ByVal Original_aes_AnmelderTeilnehmerPLZ As String, _ ByVal Original_aes_AnmelderTeilnehmerLandCode As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerEORI As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerNLNR As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerName As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerStrasse As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerOrt As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerPLZ As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerLandCode As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_SubunternehmerTeilnehmerEORI As String, _ ByVal Original_aes_SubunternehmerTeilnehmerNLNR As String, _ ByVal Original_aes_SubunternehmerTeilnehmerName As String, _ ByVal Original_aes_SubunternehmerTeilnehmerStrasse As String, _ ByVal Original_aes_SubunternehmerTeilnehmerOrt As String, _ ByVal Original_aes_SubunternehmerTeilnehmerPLZ As String, _ ByVal Original_aes_SubunternehmerTeilnehmerLandCode As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerEORI As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerNLNR As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerName As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerStrasse As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerOrt As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerPLZ As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerLandCode As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_BefoerderungsrouteLand1 As String, _ ByVal Original_aes_BefoerderungsrouteLand2 As String, _ ByVal Original_aes_BefoerderungsrouteLand3 As String, _ ByVal Original_aes_BefoerderungsrouteLand4 As String, _ ByVal Original_aes_BefoerderungsrouteLand5 As String, _ ByVal Original_aes_BefoerderungsrouteLand6 As String, _ ByVal Original_aes_BefoerderungsrouteLand7 As String, _ ByVal Original_aes_BefoerderungsrouteLand8 As String, _ ByVal Original_aes_BefoerderungsrouteLand9 As String, _ ByVal Original_aes_BefoerderungsrouteLand10 As String, _ ByVal Original_aes_BefoerderungsrouteLand11 As String, _ ByVal Original_aes_BefoerderungsrouteLand12 As String, _ ByVal Original_aes_LieferbedingungenCode As String, _ ByVal Original_aes_LieferbedingungenText As String, _ ByVal Original_aes_LieferbedingungenOrt As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_aes_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_aes_Status,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_aes_Status_KEWILL_Equivalent,Integer) If (Original_aes_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_aes_dyaArt") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_aes_dyaArt,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_aes_dyaAnmID,Integer) If (Original_aes_ANR 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_aes_ANR,String) End If If (Original_aes_MRN 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_aes_MRN,String) End If Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_aes_Erstellung,Date) If (Original_aes_Erstellung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_aes_Erstellung_SB.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_aes_LetzteBearbeitung,Date) If (Original_aes_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_aes_LetzteBearbeitung_SB.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_aes_firma Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_aes_firma,String) End If If (Original_aes_niederlassung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_aes_niederlassung,String) End If If (Original_aes_Trans_Partner Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_aes_Trans_Partner,String) End If If (Original_aes_Trans_Div1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_aes_Trans_Div1,String) End If If (Original_aes_Trans_Div2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_aes_Trans_Div2,String) End If If (Original_aes_Trans_Div3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_aes_Trans_Div3,String) End If If (Original_aes_Trans_Referenz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_aes_Trans_Referenz,String) End If If (Original_aes_Trans_DatumZeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_aes_Trans_DatumZeit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_aes_Trans_Version.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_aes_Trans_Version.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_aes_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_aes_NachrichtenSenderTIN,String) End If If (Original_aes_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_aes_NachrichtenSenderNLNR,String) End If If (Original_aes_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_aes_NachrichtenempfaengerDST,String) End If If (Original_aes_ObjectName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_aes_ObjectName,String) End If If (Original_aes_ObjectAlias Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_aes_ObjectAlias,String) End If If (Original_aes_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_aes_BezugsnummerVorblendung,String) End If If (Original_aes_Bearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_aes_Bearbeiter,String) End If If (Original_aes_AnmeldeArtAusfuhrCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_aes_AnmeldeArtAusfuhrCode,String) End If If (Original_aes_AnmeldeArtVerfahrensCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_aes_AnmeldeArtVerfahrensCode,String) End If If (Original_aes_AnmeldeArtUeberfuehrungCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_aes_AnmeldeArtUeberfuehrungCode,String) End If If (Original_aes_Ausfuhrland Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_aes_Ausfuhrland,String) End If If (Original_aes_BestimmungslandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_aes_BestimmungslandCode,String) End If If (Original_aes_AnmeldedatumZeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_aes_AnmeldedatumZeit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value End If If (Original_aes_DatumAusgang.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_aes_DatumAusgang.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (Original_aes_MassgeblichesDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_aes_MassgeblichesDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (Original_aes_BesondereUmstaende Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_aes_BesondereUmstaende,String) End If If (Original_aes_Zahlungsweisebefoerderungskosten Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_aes_Zahlungsweisebefoerderungskosten,String) End If If (Original_aes_ContainerIndikator Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_aes_ContainerIndikator,String) End If If (Original_aes_BeteiligteKonstellation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_aes_BeteiligteKonstellation,String) End If If (Original_aes_AdressdatenKonstellation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_aes_AdressdatenKonstellation,String) End If If (Original_aes_GesamtRohmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_aes_GesamtRohmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value End If If (Original_aes_RegistriernummerFremdsystem Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_aes_RegistriernummerFremdsystem,String) End If If (Original_aes_Vermerk Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_aes_Vermerk,String) End If If (Original_aes_KennnummerSendung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_aes_KennnummerSendung,String) End If If (Original_aes_AnzahlPositionen.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_aes_AnzahlPositionen.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (Original_aes_BewiligungsnummerAusfuhr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_aes_BewiligungsnummerAusfuhr,String) End If If (Original_aes_BewiligungsnummerAnschreibeverfahren Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_aes_BewiligungsnummerAnschreibeverfahren,String) End If If (Original_aes_BewiligungsnummerPassiveVeredelung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_aes_BewiligungsnummerPassiveVeredelung,String) End If If (Original_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer,String) End If If (Original_aes_VerkehrszweigInland Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_aes_VerkehrszweigInland,String) End If If (Original_aes_BefoerderungsmittelAbgangArtCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = CType(Original_aes_BefoerderungsmittelAbgangArtCode,String) End If If (Original_aes_BefoerderungsmittelAbgangKennzeichen Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = CType(Original_aes_BefoerderungsmittelAbgangKennzeichen,String) End If If (Original_aes_BefoerderungsmittelAbgangStaatCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = CType(Original_aes_BefoerderungsmittelAbgangStaatCode,String) End If If (Original_aes_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = CType(Original_aes_VerkehrszweigGrenze,String) End If If (Original_aes_BefoerderungsmittelGrenzeArtCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(102).Value = CType(Original_aes_BefoerderungsmittelGrenzeArtCode,String) End If If (Original_aes_BefoerderungsmittelGrenzeKennzeichen Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(104).Value = CType(Original_aes_BefoerderungsmittelGrenzeKennzeichen,String) End If If (Original_aes_BefoerderungsmittelGrenzeStaatCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(106).Value = CType(Original_aes_BefoerderungsmittelGrenzeStaatCode,String) End If If (Original_aes_LadeortOrtId Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(108).Value = CType(Original_aes_LadeortOrtId,String) End If If (Original_aes_LadeortStrasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(110).Value = CType(Original_aes_LadeortStrasse,String) End If If (Original_aes_LadeortPLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(112).Value = CType(Original_aes_LadeortPLZ,String) End If If (Original_aes_LadeortOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(114).Value = CType(Original_aes_LadeortOrt,String) End If If (Original_aes_LadeortZusatz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(116).Value = CType(Original_aes_LadeortZusatz,String) End If If (Original_aes_AusfuhrZollstelleID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(118).Value = CType(Original_aes_AusfuhrZollstelleID,String) End If If (Original_aes_AusgangszollstelleID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(120).Value = CType(Original_aes_AusgangszollstelleID,String) End If If (Original_aes_TatsaechlicheAusgangZollstelleID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(122).Value = CType(Original_aes_TatsaechlicheAusgangZollstelleID,String) End If If (Original_aes_GeschaeftartCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(123).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(123).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(124).Value = CType(Original_aes_GeschaeftartCode,String) End If If (Original_aes_Rechnungspreis.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(125).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(126).Value = CType(Original_aes_Rechnungspreis.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(125).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(126).Value = Global.System.DBNull.Value End If If (Original_aes_Rechnungwaehrung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(127).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(127).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(128).Value = CType(Original_aes_Rechnungwaehrung,String) End If If (Original_aes_BesondererTatbestand Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(129).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(129).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(130).Value = CType(Original_aes_BesondererTatbestand,String) End If If (Original_aes_VerschlussArtCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(131).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(131).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(132).Value = CType(Original_aes_VerschlussArtCode,String) End If If (Original_aes_VerschlussAnzahl Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(133).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(133).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(134).Value = CType(Original_aes_VerschlussAnzahl,String) End If If (Original_aes_VerschlussZeichen1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(135).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(135).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(136).Value = CType(Original_aes_VerschlussZeichen1,String) End If If (Original_aes_VerschlussZeichen2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(137).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(137).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(138).Value = CType(Original_aes_VerschlussZeichen2,String) End If If (Original_aes_VerschlussZeichen3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(140).Value = CType(Original_aes_VerschlussZeichen3,String) End If If (Original_aes_VerschlussZeichen4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = CType(Original_aes_VerschlussZeichen4,String) End If If (Original_aes_VerschlussZeichen5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(144).Value = CType(Original_aes_VerschlussZeichen5,String) End If If (Original_aes_VerschlussZeichen6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(146).Value = CType(Original_aes_VerschlussZeichen6,String) End If If (Original_aes_VerschlussZeichen7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(148).Value = CType(Original_aes_VerschlussZeichen7,String) End If If (Original_aes_VerschlussZeichen8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(150).Value = CType(Original_aes_VerschlussZeichen8,String) End If If (Original_aes_VerschlussZeichen9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(152).Value = CType(Original_aes_VerschlussZeichen9,String) End If If (Original_aes_VerschlussZeichen10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(154).Value = CType(Original_aes_VerschlussZeichen10,String) End If If (Original_aes_VerschlussZeichen11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(156).Value = CType(Original_aes_VerschlussZeichen11,String) End If If (Original_aes_VerschlussZeichen12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(158).Value = CType(Original_aes_VerschlussZeichen12,String) End If If (Original_aes_GestellungsfristAnfangDatumZeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(159).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(160).Value = CType(Original_aes_GestellungsfristAnfangDatumZeit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(159).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(160).Value = Global.System.DBNull.Value End If If (Original_aes_GestellungsfristEndeDatumZeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(162).Value = CType(Original_aes_GestellungsfristEndeDatumZeit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(162).Value = Global.System.DBNull.Value End If If (Original_aes_AusfuehrerTeilnehmerEORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(164).Value = CType(Original_aes_AusfuehrerTeilnehmerEORI,String) End If If (Original_aes_AusfuehrerTeilnehmerNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(166).Value = CType(Original_aes_AusfuehrerTeilnehmerNLNR,String) End If If (Original_aes_AusfuehrerTeilnehmerName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(168).Value = CType(Original_aes_AusfuehrerTeilnehmerName,String) End If If (Original_aes_AusfuehrerTeilnehmerStrasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(170).Value = CType(Original_aes_AusfuehrerTeilnehmerStrasse,String) End If If (Original_aes_AusfuehrerTeilnehmerOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(172).Value = CType(Original_aes_AusfuehrerTeilnehmerOrt,String) End If If (Original_aes_AusfuehrerTeilnehmerPLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(174).Value = CType(Original_aes_AusfuehrerTeilnehmerPLZ,String) End If If (Original_aes_AusfuehrerTeilnehmerLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(176).Value = CType(Original_aes_AusfuehrerTeilnehmerLandCode,String) End If If (Original_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(178).Value = CType(Original_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(180).Value = CType(Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (Original_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(182).Value = CType(Original_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung,String) End If If (Original_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(184).Value = CType(Original_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail,String) End If If (Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(186).Value = CType(Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax,String) End If If (Original_aes_EmpfaengerTeilnehmerEORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(188).Value = CType(Original_aes_EmpfaengerTeilnehmerEORI,String) End If If (Original_aes_EmpfaengerTeilnehmerNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(190).Value = CType(Original_aes_EmpfaengerTeilnehmerNLNR,String) End If If (Original_aes_EmpfaengerTeilnehmerName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(192).Value = CType(Original_aes_EmpfaengerTeilnehmerName,String) End If If (Original_aes_EmpfaengerTeilnehmerStrasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(194).Value = CType(Original_aes_EmpfaengerTeilnehmerStrasse,String) End If If (Original_aes_EmpfaengerTeilnehmerOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(196).Value = CType(Original_aes_EmpfaengerTeilnehmerOrt,String) End If If (Original_aes_EmpfaengerTeilnehmerPLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(198).Value = CType(Original_aes_EmpfaengerTeilnehmerPLZ,String) End If If (Original_aes_EmpfaengerTeilnehmerLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(200).Value = CType(Original_aes_EmpfaengerTeilnehmerLandCode,String) End If If (Original_aes_AnmelderTeilnehmerEORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(202).Value = CType(Original_aes_AnmelderTeilnehmerEORI,String) End If If (Original_aes_AnmelderTeilnehmerNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(204).Value = CType(Original_aes_AnmelderTeilnehmerNLNR,String) End If If (Original_aes_AnmelderTeilnehmerName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(206).Value = CType(Original_aes_AnmelderTeilnehmerName,String) End If If (Original_aes_AnmelderTeilnehmerStrasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(208).Value = CType(Original_aes_AnmelderTeilnehmerStrasse,String) End If If (Original_aes_AnmelderTeilnehmerOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(210).Value = CType(Original_aes_AnmelderTeilnehmerOrt,String) End If If (Original_aes_AnmelderTeilnehmerPLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(212).Value = CType(Original_aes_AnmelderTeilnehmerPLZ,String) End If If (Original_aes_AnmelderTeilnehmerLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(214).Value = CType(Original_aes_AnmelderTeilnehmerLandCode,String) End If If (Original_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(216).Value = CType(Original_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(218).Value = CType(Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (Original_aes_AnmelderTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(220).Value = CType(Original_aes_AnmelderTeilnehmerAnsprechpartnerStellung,String) End If If (Original_aes_AnmelderTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(222).Value = CType(Original_aes_AnmelderTeilnehmerAnsprechpartnerEmail,String) End If If (Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(224).Value = CType(Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefax,String) End If If (Original_aes_VertreterAnmelderTeilnehmerEORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(225).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(225).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(226).Value = CType(Original_aes_VertreterAnmelderTeilnehmerEORI,String) End If If (Original_aes_VertreterAnmelderTeilnehmerNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(227).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(228).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(227).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(228).Value = CType(Original_aes_VertreterAnmelderTeilnehmerNLNR,String) End If If (Original_aes_VertreterAnmelderTeilnehmerName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(229).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(229).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(230).Value = CType(Original_aes_VertreterAnmelderTeilnehmerName,String) End If If (Original_aes_VertreterAnmelderTeilnehmerStrasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(231).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(231).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(232).Value = CType(Original_aes_VertreterAnmelderTeilnehmerStrasse,String) End If If (Original_aes_VertreterAnmelderTeilnehmerOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(234).Value = CType(Original_aes_VertreterAnmelderTeilnehmerOrt,String) End If If (Original_aes_VertreterAnmelderTeilnehmerPLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(236).Value = CType(Original_aes_VertreterAnmelderTeilnehmerPLZ,String) End If If (Original_aes_VertreterAnmelderTeilnehmerLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(238).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(238).Value = CType(Original_aes_VertreterAnmelderTeilnehmerLandCode,String) End If If (Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(240).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(240).Value = CType(Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(241).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(242).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(241).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(242).Value = CType(Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(244).Value = CType(Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung,String) End If If (Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(246).Value = CType(Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail,String) End If If (Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(248).Value = CType(Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax,String) End If If (Original_aes_SubunternehmerTeilnehmerEORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(250).Value = CType(Original_aes_SubunternehmerTeilnehmerEORI,String) End If If (Original_aes_SubunternehmerTeilnehmerNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(252).Value = CType(Original_aes_SubunternehmerTeilnehmerNLNR,String) End If If (Original_aes_SubunternehmerTeilnehmerName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(254).Value = CType(Original_aes_SubunternehmerTeilnehmerName,String) End If If (Original_aes_SubunternehmerTeilnehmerStrasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(256).Value = CType(Original_aes_SubunternehmerTeilnehmerStrasse,String) End If If (Original_aes_SubunternehmerTeilnehmerOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(258).Value = CType(Original_aes_SubunternehmerTeilnehmerOrt,String) End If If (Original_aes_SubunternehmerTeilnehmerPLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(260).Value = CType(Original_aes_SubunternehmerTeilnehmerPLZ,String) End If If (Original_aes_SubunternehmerTeilnehmerLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(261).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(261).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(262).Value = CType(Original_aes_SubunternehmerTeilnehmerLandCode,String) End If If (Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(263).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(263).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(264).Value = CType(Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(265).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(265).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(266).Value = CType(Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(267).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(267).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(268).Value = CType(Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung,String) End If If (Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(269).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(269).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(270).Value = CType(Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail,String) End If If (Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(271).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(272).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(271).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(272).Value = CType(Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerEORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(273).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(273).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(274).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerEORI,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(275).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(276).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(275).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(276).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerNLNR,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(277).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(278).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(277).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(278).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerName,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerStrasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(279).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(280).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(279).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(280).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerStrasse,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(281).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(281).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(282).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerOrt,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerPLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(283).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(284).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(283).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(284).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerPLZ,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(285).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(286).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(285).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(286).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerLandCode,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(287).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(288).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(287).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(288).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(289).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(290).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(289).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(290).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(291).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(292).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(291).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(292).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(293).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(294).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(293).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(294).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(295).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(296).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(295).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(296).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax,String) End If If (Original_aes_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(297).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(298).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(297).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(298).Value = CType(Original_aes_BefoerderungsrouteLand1,String) End If If (Original_aes_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(299).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(300).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(299).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(300).Value = CType(Original_aes_BefoerderungsrouteLand2,String) End If If (Original_aes_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(301).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(302).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(301).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(302).Value = CType(Original_aes_BefoerderungsrouteLand3,String) End If If (Original_aes_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(303).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(304).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(303).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(304).Value = CType(Original_aes_BefoerderungsrouteLand4,String) End If If (Original_aes_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(305).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(306).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(305).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(306).Value = CType(Original_aes_BefoerderungsrouteLand5,String) End If If (Original_aes_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(307).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(308).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(307).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(308).Value = CType(Original_aes_BefoerderungsrouteLand6,String) End If If (Original_aes_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(309).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(310).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(309).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(310).Value = CType(Original_aes_BefoerderungsrouteLand7,String) End If If (Original_aes_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(311).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(312).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(311).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(312).Value = CType(Original_aes_BefoerderungsrouteLand8,String) End If If (Original_aes_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(313).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(314).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(313).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(314).Value = CType(Original_aes_BefoerderungsrouteLand9,String) End If If (Original_aes_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(315).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(316).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(315).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(316).Value = CType(Original_aes_BefoerderungsrouteLand10,String) End If If (Original_aes_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(317).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(318).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(317).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(318).Value = CType(Original_aes_BefoerderungsrouteLand11,String) End If If (Original_aes_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(319).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(320).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(319).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(320).Value = CType(Original_aes_BefoerderungsrouteLand12,String) End If If (Original_aes_LieferbedingungenCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(321).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(322).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(321).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(322).Value = CType(Original_aes_LieferbedingungenCode,String) End If If (Original_aes_LieferbedingungenText Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(323).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(324).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(323).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(324).Value = CType(Original_aes_LieferbedingungenText,String) End If If (Original_aes_LieferbedingungenOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(325).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(326).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(325).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(326).Value = CType(Original_aes_LieferbedingungenOrt,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 aes_Status As Integer, _ ByVal aes_Status_KEWILL_Equivalent As Integer, _ ByVal aes_dyaArt As String, _ ByVal aes_dyaAnmID As Integer, _ ByVal aes_ANR As String, _ ByVal aes_MRN As String, _ ByVal aes_Erstellung As Date, _ ByVal aes_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal aes_LetzteBearbeitung As Date, _ ByVal aes_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal aes_firma As String, _ ByVal aes_niederlassung As String, _ ByVal aes_Trans_Partner As String, _ ByVal aes_Trans_Div1 As String, _ ByVal aes_Trans_Div2 As String, _ ByVal aes_Trans_Div3 As String, _ ByVal aes_Trans_Referenz As String, _ ByVal aes_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal aes_NachrichtenSenderTIN As String, _ ByVal aes_NachrichtenSenderNLNR As String, _ ByVal aes_NachrichtenempfaengerDST As String, _ ByVal aes_ObjectName As String, _ ByVal aes_ObjectAlias As String, _ ByVal aes_BezugsnummerVorblendung As String, _ ByVal aes_Bearbeiter As String, _ ByVal aes_AnmeldeArtAusfuhrCode As String, _ ByVal aes_AnmeldeArtVerfahrensCode As String, _ ByVal aes_AnmeldeArtUeberfuehrungCode As String, _ ByVal aes_Ausfuhrland As String, _ ByVal aes_BestimmungslandCode As String, _ ByVal aes_AnmeldedatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_DatumAusgang As Global.System.Nullable(Of Date), _ ByVal aes_MassgeblichesDatum As Global.System.Nullable(Of Date), _ ByVal aes_BesondereUmstaende As String, _ ByVal aes_Zahlungsweisebefoerderungskosten As String, _ ByVal aes_ContainerIndikator As String, _ ByVal aes_BeteiligteKonstellation As String, _ ByVal aes_AdressdatenKonstellation As String, _ ByVal aes_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal aes_RegistriernummerFremdsystem As String, _ ByVal aes_Vermerk As String, _ ByVal aes_KennnummerSendung As String, _ ByVal aes_AnzahlPositionen As Global.System.Nullable(Of Decimal), _ ByVal aes_BewiligungsnummerAusfuhr As String, _ ByVal aes_BewiligungsnummerAnschreibeverfahren As String, _ ByVal aes_BewiligungsnummerPassiveVeredelung As String, _ ByVal aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer As String, _ ByVal aes_VerkehrszweigInland As String, _ ByVal aes_BefoerderungsmittelAbgangArtCode As String, _ ByVal aes_BefoerderungsmittelAbgangKennzeichen As String, _ ByVal aes_BefoerderungsmittelAbgangStaatCode As String, _ ByVal aes_VerkehrszweigGrenze As String, _ ByVal aes_BefoerderungsmittelGrenzeArtCode As String, _ ByVal aes_BefoerderungsmittelGrenzeKennzeichen As String, _ ByVal aes_BefoerderungsmittelGrenzeStaatCode As String, _ ByVal aes_LadeortOrtId As String, _ ByVal aes_LadeortStrasse As String, _ ByVal aes_LadeortPLZ As String, _ ByVal aes_LadeortOrt As String, _ ByVal aes_LadeortZusatz As String, _ ByVal aes_AusfuhrZollstelleID As String, _ ByVal aes_AusgangszollstelleID As String, _ ByVal aes_TatsaechlicheAusgangZollstelleID As String, _ ByVal aes_GeschaeftartCode As String, _ ByVal aes_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal aes_Rechnungwaehrung As String, _ ByVal aes_BesondererTatbestand As String, _ ByVal aes_VerschlussArtCode As String, _ ByVal aes_VerschlussAnzahl As String, _ ByVal aes_VerschlussZeichen1 As String, _ ByVal aes_VerschlussZeichen2 As String, _ ByVal aes_VerschlussZeichen3 As String, _ ByVal aes_VerschlussZeichen4 As String, _ ByVal aes_VerschlussZeichen5 As String, _ ByVal aes_VerschlussZeichen6 As String, _ ByVal aes_VerschlussZeichen7 As String, _ ByVal aes_VerschlussZeichen8 As String, _ ByVal aes_VerschlussZeichen9 As String, _ ByVal aes_VerschlussZeichen10 As String, _ ByVal aes_VerschlussZeichen11 As String, _ ByVal aes_VerschlussZeichen12 As String, _ ByVal aes_GestellungsfristAnfangDatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_GestellungsfristEndeDatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_AusfuehrerTeilnehmerEORI As String, _ ByVal aes_AusfuehrerTeilnehmerNLNR As String, _ ByVal aes_AusfuehrerTeilnehmerName As String, _ ByVal aes_AusfuehrerTeilnehmerStrasse As String, _ ByVal aes_AusfuehrerTeilnehmerOrt As String, _ ByVal aes_AusfuehrerTeilnehmerPLZ As String, _ ByVal aes_AusfuehrerTeilnehmerLandCode As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_EmpfaengerTeilnehmerEORI As String, _ ByVal aes_EmpfaengerTeilnehmerNLNR As String, _ ByVal aes_EmpfaengerTeilnehmerName As String, _ ByVal aes_EmpfaengerTeilnehmerStrasse As String, _ ByVal aes_EmpfaengerTeilnehmerOrt As String, _ ByVal aes_EmpfaengerTeilnehmerPLZ As String, _ ByVal aes_EmpfaengerTeilnehmerLandCode As String, _ ByVal aes_AnmelderTeilnehmerEORI As String, _ ByVal aes_AnmelderTeilnehmerNLNR As String, _ ByVal aes_AnmelderTeilnehmerName As String, _ ByVal aes_AnmelderTeilnehmerStrasse As String, _ ByVal aes_AnmelderTeilnehmerOrt As String, _ ByVal aes_AnmelderTeilnehmerPLZ As String, _ ByVal aes_AnmelderTeilnehmerLandCode As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_VertreterAnmelderTeilnehmerEORI As String, _ ByVal aes_VertreterAnmelderTeilnehmerNLNR As String, _ ByVal aes_VertreterAnmelderTeilnehmerName As String, _ ByVal aes_VertreterAnmelderTeilnehmerStrasse As String, _ ByVal aes_VertreterAnmelderTeilnehmerOrt As String, _ ByVal aes_VertreterAnmelderTeilnehmerPLZ As String, _ ByVal aes_VertreterAnmelderTeilnehmerLandCode As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_SubunternehmerTeilnehmerEORI As String, _ ByVal aes_SubunternehmerTeilnehmerNLNR As String, _ ByVal aes_SubunternehmerTeilnehmerName As String, _ ByVal aes_SubunternehmerTeilnehmerStrasse As String, _ ByVal aes_SubunternehmerTeilnehmerOrt As String, _ ByVal aes_SubunternehmerTeilnehmerPLZ As String, _ ByVal aes_SubunternehmerTeilnehmerLandCode As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerEORI As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerNLNR As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerName As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerStrasse As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerOrt As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerPLZ As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerLandCode As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_BefoerderungsrouteLand1 As String, _ ByVal aes_BefoerderungsrouteLand2 As String, _ ByVal aes_BefoerderungsrouteLand3 As String, _ ByVal aes_BefoerderungsrouteLand4 As String, _ ByVal aes_BefoerderungsrouteLand5 As String, _ ByVal aes_BefoerderungsrouteLand6 As String, _ ByVal aes_BefoerderungsrouteLand7 As String, _ ByVal aes_BefoerderungsrouteLand8 As String, _ ByVal aes_BefoerderungsrouteLand9 As String, _ ByVal aes_BefoerderungsrouteLand10 As String, _ ByVal aes_BefoerderungsrouteLand11 As String, _ ByVal aes_BefoerderungsrouteLand12 As String, _ ByVal aes_LieferbedingungenCode As String, _ ByVal aes_LieferbedingungenText As String, _ ByVal aes_LieferbedingungenOrt As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(aes_Status,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(aes_Status_KEWILL_Equivalent,Integer) If (aes_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("aes_dyaArt") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(aes_dyaArt,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(aes_dyaAnmID,Integer) If (aes_ANR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(aes_ANR,String) End If If (aes_MRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(aes_MRN,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(aes_Erstellung,Date) If (aes_Erstellung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(aes_Erstellung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(aes_LetzteBearbeitung,Date) If (aes_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(aes_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (aes_firma Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(aes_firma,String) End If If (aes_niederlassung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(aes_niederlassung,String) End If If (aes_Trans_Partner Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(aes_Trans_Partner,String) End If If (aes_Trans_Div1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(aes_Trans_Div1,String) End If If (aes_Trans_Div2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(aes_Trans_Div2,String) End If If (aes_Trans_Div3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(aes_Trans_Div3,String) End If If (aes_Trans_Referenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(aes_Trans_Referenz,String) End If If (aes_Trans_DatumZeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(aes_Trans_DatumZeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (aes_Trans_Version.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(aes_Trans_Version.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (aes_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(aes_NachrichtenSenderTIN,String) End If If (aes_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(aes_NachrichtenSenderNLNR,String) End If If (aes_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(aes_NachrichtenempfaengerDST,String) End If If (aes_ObjectName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(aes_ObjectName,String) End If If (aes_ObjectAlias Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(aes_ObjectAlias,String) End If If (aes_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(aes_BezugsnummerVorblendung,String) End If If (aes_Bearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(aes_Bearbeiter,String) End If If (aes_AnmeldeArtAusfuhrCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(aes_AnmeldeArtAusfuhrCode,String) End If If (aes_AnmeldeArtVerfahrensCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(aes_AnmeldeArtVerfahrensCode,String) End If If (aes_AnmeldeArtUeberfuehrungCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(aes_AnmeldeArtUeberfuehrungCode,String) End If If (aes_Ausfuhrland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(aes_Ausfuhrland,String) End If If (aes_BestimmungslandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(aes_BestimmungslandCode,String) End If If (aes_AnmeldedatumZeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(aes_AnmeldedatumZeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (aes_DatumAusgang.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(aes_DatumAusgang.Value,Date) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (aes_MassgeblichesDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(aes_MassgeblichesDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (aes_BesondereUmstaende Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(aes_BesondereUmstaende,String) End If If (aes_Zahlungsweisebefoerderungskosten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(aes_Zahlungsweisebefoerderungskosten,String) End If If (aes_ContainerIndikator Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(aes_ContainerIndikator,String) End If If (aes_BeteiligteKonstellation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(aes_BeteiligteKonstellation,String) End If If (aes_AdressdatenKonstellation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(aes_AdressdatenKonstellation,String) End If If (aes_GesamtRohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(39).Value = CType(aes_GesamtRohmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (aes_RegistriernummerFremdsystem Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(aes_RegistriernummerFremdsystem,String) End If If (aes_Vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(aes_Vermerk,String) End If If (aes_KennnummerSendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(aes_KennnummerSendung,String) End If If (aes_AnzahlPositionen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(aes_AnzahlPositionen.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (aes_BewiligungsnummerAusfuhr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(aes_BewiligungsnummerAusfuhr,String) End If If (aes_BewiligungsnummerAnschreibeverfahren Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(aes_BewiligungsnummerAnschreibeverfahren,String) End If If (aes_BewiligungsnummerPassiveVeredelung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(aes_BewiligungsnummerPassiveVeredelung,String) End If If (aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer,String) End If If (aes_VerkehrszweigInland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(aes_VerkehrszweigInland,String) End If If (aes_BefoerderungsmittelAbgangArtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(aes_BefoerderungsmittelAbgangArtCode,String) End If If (aes_BefoerderungsmittelAbgangKennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(aes_BefoerderungsmittelAbgangKennzeichen,String) End If If (aes_BefoerderungsmittelAbgangStaatCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(aes_BefoerderungsmittelAbgangStaatCode,String) End If If (aes_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(aes_VerkehrszweigGrenze,String) End If If (aes_BefoerderungsmittelGrenzeArtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(aes_BefoerderungsmittelGrenzeArtCode,String) End If If (aes_BefoerderungsmittelGrenzeKennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(aes_BefoerderungsmittelGrenzeKennzeichen,String) End If If (aes_BefoerderungsmittelGrenzeStaatCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(aes_BefoerderungsmittelGrenzeStaatCode,String) End If If (aes_LadeortOrtId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(aes_LadeortOrtId,String) End If If (aes_LadeortStrasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(aes_LadeortStrasse,String) End If If (aes_LadeortPLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(aes_LadeortPLZ,String) End If If (aes_LadeortOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(aes_LadeortOrt,String) End If If (aes_LadeortZusatz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(aes_LadeortZusatz,String) End If If (aes_AusfuhrZollstelleID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(aes_AusfuhrZollstelleID,String) End If If (aes_AusgangszollstelleID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(aes_AusgangszollstelleID,String) End If If (aes_TatsaechlicheAusgangZollstelleID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(aes_TatsaechlicheAusgangZollstelleID,String) End If If (aes_GeschaeftartCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(aes_GeschaeftartCode,String) End If If (aes_Rechnungspreis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(65).Value = CType(aes_Rechnungspreis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value End If If (aes_Rechnungwaehrung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(aes_Rechnungwaehrung,String) End If If (aes_BesondererTatbestand Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(aes_BesondererTatbestand,String) End If If (aes_VerschlussArtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(aes_VerschlussArtCode,String) End If If (aes_VerschlussAnzahl Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(aes_VerschlussAnzahl,String) End If If (aes_VerschlussZeichen1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(aes_VerschlussZeichen1,String) End If If (aes_VerschlussZeichen2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(aes_VerschlussZeichen2,String) End If If (aes_VerschlussZeichen3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(aes_VerschlussZeichen3,String) End If If (aes_VerschlussZeichen4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(aes_VerschlussZeichen4,String) End If If (aes_VerschlussZeichen5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(aes_VerschlussZeichen5,String) End If If (aes_VerschlussZeichen6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(aes_VerschlussZeichen6,String) End If If (aes_VerschlussZeichen7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(aes_VerschlussZeichen7,String) End If If (aes_VerschlussZeichen8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(aes_VerschlussZeichen8,String) End If If (aes_VerschlussZeichen9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(78).Value = CType(aes_VerschlussZeichen9,String) End If If (aes_VerschlussZeichen10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(aes_VerschlussZeichen10,String) End If If (aes_VerschlussZeichen11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(aes_VerschlussZeichen11,String) End If If (aes_VerschlussZeichen12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(aes_VerschlussZeichen12,String) End If If (aes_GestellungsfristAnfangDatumZeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(82).Value = CType(aes_GestellungsfristAnfangDatumZeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (aes_GestellungsfristEndeDatumZeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(83).Value = CType(aes_GestellungsfristEndeDatumZeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (aes_AusfuehrerTeilnehmerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(aes_AusfuehrerTeilnehmerEORI,String) End If If (aes_AusfuehrerTeilnehmerNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(aes_AusfuehrerTeilnehmerNLNR,String) End If If (aes_AusfuehrerTeilnehmerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(aes_AusfuehrerTeilnehmerName,String) End If If (aes_AusfuehrerTeilnehmerStrasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(aes_AusfuehrerTeilnehmerStrasse,String) End If If (aes_AusfuehrerTeilnehmerOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(88).Value = CType(aes_AusfuehrerTeilnehmerOrt,String) End If If (aes_AusfuehrerTeilnehmerPLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(aes_AusfuehrerTeilnehmerPLZ,String) End If If (aes_AusfuehrerTeilnehmerLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(aes_AusfuehrerTeilnehmerLandCode,String) End If If (aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (aes_AusfuehrerTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(93).Value = CType(aes_AusfuehrerTeilnehmerAnsprechpartnerStellung,String) End If If (aes_AusfuehrerTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(aes_AusfuehrerTeilnehmerAnsprechpartnerEmail,String) End If If (aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax,String) End If If (aes_EmpfaengerTeilnehmerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(aes_EmpfaengerTeilnehmerEORI,String) End If If (aes_EmpfaengerTeilnehmerNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(aes_EmpfaengerTeilnehmerNLNR,String) End If If (aes_EmpfaengerTeilnehmerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(aes_EmpfaengerTeilnehmerName,String) End If If (aes_EmpfaengerTeilnehmerStrasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(aes_EmpfaengerTeilnehmerStrasse,String) End If If (aes_EmpfaengerTeilnehmerOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(100).Value = CType(aes_EmpfaengerTeilnehmerOrt,String) End If If (aes_EmpfaengerTeilnehmerPLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(101).Value = CType(aes_EmpfaengerTeilnehmerPLZ,String) End If If (aes_EmpfaengerTeilnehmerLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(102).Value = CType(aes_EmpfaengerTeilnehmerLandCode,String) End If If (aes_AnmelderTeilnehmerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(103).Value = CType(aes_AnmelderTeilnehmerEORI,String) End If If (aes_AnmelderTeilnehmerNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(104).Value = CType(aes_AnmelderTeilnehmerNLNR,String) End If If (aes_AnmelderTeilnehmerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(105).Value = CType(aes_AnmelderTeilnehmerName,String) End If If (aes_AnmelderTeilnehmerStrasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(106).Value = CType(aes_AnmelderTeilnehmerStrasse,String) End If If (aes_AnmelderTeilnehmerOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(107).Value = CType(aes_AnmelderTeilnehmerOrt,String) End If If (aes_AnmelderTeilnehmerPLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(108).Value = CType(aes_AnmelderTeilnehmerPLZ,String) End If If (aes_AnmelderTeilnehmerLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(109).Value = CType(aes_AnmelderTeilnehmerLandCode,String) End If If (aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(110).Value = CType(aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(111).Value = CType(aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (aes_AnmelderTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(112).Value = CType(aes_AnmelderTeilnehmerAnsprechpartnerStellung,String) End If If (aes_AnmelderTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(113).Value = CType(aes_AnmelderTeilnehmerAnsprechpartnerEmail,String) End If If (aes_AnmelderTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(114).Value = CType(aes_AnmelderTeilnehmerAnsprechpartnerTelefax,String) End If If (aes_VertreterAnmelderTeilnehmerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(115).Value = CType(aes_VertreterAnmelderTeilnehmerEORI,String) End If If (aes_VertreterAnmelderTeilnehmerNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(116).Value = CType(aes_VertreterAnmelderTeilnehmerNLNR,String) End If If (aes_VertreterAnmelderTeilnehmerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(117).Value = CType(aes_VertreterAnmelderTeilnehmerName,String) End If If (aes_VertreterAnmelderTeilnehmerStrasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(118).Value = CType(aes_VertreterAnmelderTeilnehmerStrasse,String) End If If (aes_VertreterAnmelderTeilnehmerOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(119).Value = CType(aes_VertreterAnmelderTeilnehmerOrt,String) End If If (aes_VertreterAnmelderTeilnehmerPLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(120).Value = CType(aes_VertreterAnmelderTeilnehmerPLZ,String) End If If (aes_VertreterAnmelderTeilnehmerLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(121).Value = CType(aes_VertreterAnmelderTeilnehmerLandCode,String) End If If (aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(122).Value = CType(aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(123).Value = CType(aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(124).Value = CType(aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung,String) End If If (aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(125).Value = CType(aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail,String) End If If (aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(126).Value = CType(aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax,String) End If If (aes_SubunternehmerTeilnehmerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(127).Value = CType(aes_SubunternehmerTeilnehmerEORI,String) End If If (aes_SubunternehmerTeilnehmerNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(128).Value = CType(aes_SubunternehmerTeilnehmerNLNR,String) End If If (aes_SubunternehmerTeilnehmerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(129).Value = CType(aes_SubunternehmerTeilnehmerName,String) End If If (aes_SubunternehmerTeilnehmerStrasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(130).Value = CType(aes_SubunternehmerTeilnehmerStrasse,String) End If If (aes_SubunternehmerTeilnehmerOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(131).Value = CType(aes_SubunternehmerTeilnehmerOrt,String) End If If (aes_SubunternehmerTeilnehmerPLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(132).Value = CType(aes_SubunternehmerTeilnehmerPLZ,String) End If If (aes_SubunternehmerTeilnehmerLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(133).Value = CType(aes_SubunternehmerTeilnehmerLandCode,String) End If If (aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(134).Value = CType(aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(135).Value = CType(aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (aes_SubunternehmerTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(136).Value = CType(aes_SubunternehmerTeilnehmerAnsprechpartnerStellung,String) End If If (aes_SubunternehmerTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(137).Value = CType(aes_SubunternehmerTeilnehmerAnsprechpartnerEmail,String) End If If (aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(138).Value = CType(aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax,String) End If If (aes_VerfahrensinhaberPVTeilnehmerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(139).Value = CType(aes_VerfahrensinhaberPVTeilnehmerEORI,String) End If If (aes_VerfahrensinhaberPVTeilnehmerNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(140).Value = CType(aes_VerfahrensinhaberPVTeilnehmerNLNR,String) End If If (aes_VerfahrensinhaberPVTeilnehmerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(141).Value = CType(aes_VerfahrensinhaberPVTeilnehmerName,String) End If If (aes_VerfahrensinhaberPVTeilnehmerStrasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(142).Value = CType(aes_VerfahrensinhaberPVTeilnehmerStrasse,String) End If If (aes_VerfahrensinhaberPVTeilnehmerOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(143).Value = CType(aes_VerfahrensinhaberPVTeilnehmerOrt,String) End If If (aes_VerfahrensinhaberPVTeilnehmerPLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(144).Value = CType(aes_VerfahrensinhaberPVTeilnehmerPLZ,String) End If If (aes_VerfahrensinhaberPVTeilnehmerLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(145).Value = CType(aes_VerfahrensinhaberPVTeilnehmerLandCode,String) End If If (aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(146).Value = CType(aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(147).Value = CType(aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(148).Value = CType(aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung,String) End If If (aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(149).Value = CType(aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail,String) End If If (aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(150).Value = CType(aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax,String) End If If (aes_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(151).Value = CType(aes_BefoerderungsrouteLand1,String) End If If (aes_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(152).Value = CType(aes_BefoerderungsrouteLand2,String) End If If (aes_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(153).Value = CType(aes_BefoerderungsrouteLand3,String) End If If (aes_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(154).Value = CType(aes_BefoerderungsrouteLand4,String) End If If (aes_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(155).Value = CType(aes_BefoerderungsrouteLand5,String) End If If (aes_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(156).Value = CType(aes_BefoerderungsrouteLand6,String) End If If (aes_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(157).Value = CType(aes_BefoerderungsrouteLand7,String) End If If (aes_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(158).Value = CType(aes_BefoerderungsrouteLand8,String) End If If (aes_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(159).Value = CType(aes_BefoerderungsrouteLand9,String) End If If (aes_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(160).Value = CType(aes_BefoerderungsrouteLand10,String) End If If (aes_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(161).Value = CType(aes_BefoerderungsrouteLand11,String) End If If (aes_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(162).Value = CType(aes_BefoerderungsrouteLand12,String) End If If (aes_LieferbedingungenCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(163).Value = CType(aes_LieferbedingungenCode,String) End If If (aes_LieferbedingungenText Is Nothing) Then Me.Adapter.InsertCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(164).Value = CType(aes_LieferbedingungenText,String) End If If (aes_LieferbedingungenOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(165).Value = CType(aes_LieferbedingungenOrt,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 aes_Status As Integer, _ ByVal aes_Status_KEWILL_Equivalent As Integer, _ ByVal aes_dyaArt As String, _ ByVal aes_dyaAnmID As Integer, _ ByVal aes_ANR As String, _ ByVal aes_MRN As String, _ ByVal aes_Erstellung As Date, _ ByVal aes_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal aes_LetzteBearbeitung As Date, _ ByVal aes_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal aes_firma As String, _ ByVal aes_niederlassung As String, _ ByVal aes_Trans_Partner As String, _ ByVal aes_Trans_Div1 As String, _ ByVal aes_Trans_Div2 As String, _ ByVal aes_Trans_Div3 As String, _ ByVal aes_Trans_Referenz As String, _ ByVal aes_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal aes_NachrichtenSenderTIN As String, _ ByVal aes_NachrichtenSenderNLNR As String, _ ByVal aes_NachrichtenempfaengerDST As String, _ ByVal aes_ObjectName As String, _ ByVal aes_ObjectAlias As String, _ ByVal aes_BezugsnummerVorblendung As String, _ ByVal aes_Bearbeiter As String, _ ByVal aes_AnmeldeArtAusfuhrCode As String, _ ByVal aes_AnmeldeArtVerfahrensCode As String, _ ByVal aes_AnmeldeArtUeberfuehrungCode As String, _ ByVal aes_Ausfuhrland As String, _ ByVal aes_BestimmungslandCode As String, _ ByVal aes_AnmeldedatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_DatumAusgang As Global.System.Nullable(Of Date), _ ByVal aes_MassgeblichesDatum As Global.System.Nullable(Of Date), _ ByVal aes_BesondereUmstaende As String, _ ByVal aes_Zahlungsweisebefoerderungskosten As String, _ ByVal aes_ContainerIndikator As String, _ ByVal aes_BeteiligteKonstellation As String, _ ByVal aes_AdressdatenKonstellation As String, _ ByVal aes_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal aes_RegistriernummerFremdsystem As String, _ ByVal aes_Vermerk As String, _ ByVal aes_KennnummerSendung As String, _ ByVal aes_AnzahlPositionen As Global.System.Nullable(Of Decimal), _ ByVal aes_BewiligungsnummerAusfuhr As String, _ ByVal aes_BewiligungsnummerAnschreibeverfahren As String, _ ByVal aes_BewiligungsnummerPassiveVeredelung As String, _ ByVal aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer As String, _ ByVal aes_VerkehrszweigInland As String, _ ByVal aes_BefoerderungsmittelAbgangArtCode As String, _ ByVal aes_BefoerderungsmittelAbgangKennzeichen As String, _ ByVal aes_BefoerderungsmittelAbgangStaatCode As String, _ ByVal aes_VerkehrszweigGrenze As String, _ ByVal aes_BefoerderungsmittelGrenzeArtCode As String, _ ByVal aes_BefoerderungsmittelGrenzeKennzeichen As String, _ ByVal aes_BefoerderungsmittelGrenzeStaatCode As String, _ ByVal aes_LadeortOrtId As String, _ ByVal aes_LadeortStrasse As String, _ ByVal aes_LadeortPLZ As String, _ ByVal aes_LadeortOrt As String, _ ByVal aes_LadeortZusatz As String, _ ByVal aes_AusfuhrZollstelleID As String, _ ByVal aes_AusgangszollstelleID As String, _ ByVal aes_TatsaechlicheAusgangZollstelleID As String, _ ByVal aes_GeschaeftartCode As String, _ ByVal aes_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal aes_Rechnungwaehrung As String, _ ByVal aes_BesondererTatbestand As String, _ ByVal aes_VerschlussArtCode As String, _ ByVal aes_VerschlussAnzahl As String, _ ByVal aes_VerschlussZeichen1 As String, _ ByVal aes_VerschlussZeichen2 As String, _ ByVal aes_VerschlussZeichen3 As String, _ ByVal aes_VerschlussZeichen4 As String, _ ByVal aes_VerschlussZeichen5 As String, _ ByVal aes_VerschlussZeichen6 As String, _ ByVal aes_VerschlussZeichen7 As String, _ ByVal aes_VerschlussZeichen8 As String, _ ByVal aes_VerschlussZeichen9 As String, _ ByVal aes_VerschlussZeichen10 As String, _ ByVal aes_VerschlussZeichen11 As String, _ ByVal aes_VerschlussZeichen12 As String, _ ByVal aes_GestellungsfristAnfangDatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_GestellungsfristEndeDatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_AusfuehrerTeilnehmerEORI As String, _ ByVal aes_AusfuehrerTeilnehmerNLNR As String, _ ByVal aes_AusfuehrerTeilnehmerName As String, _ ByVal aes_AusfuehrerTeilnehmerStrasse As String, _ ByVal aes_AusfuehrerTeilnehmerOrt As String, _ ByVal aes_AusfuehrerTeilnehmerPLZ As String, _ ByVal aes_AusfuehrerTeilnehmerLandCode As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_EmpfaengerTeilnehmerEORI As String, _ ByVal aes_EmpfaengerTeilnehmerNLNR As String, _ ByVal aes_EmpfaengerTeilnehmerName As String, _ ByVal aes_EmpfaengerTeilnehmerStrasse As String, _ ByVal aes_EmpfaengerTeilnehmerOrt As String, _ ByVal aes_EmpfaengerTeilnehmerPLZ As String, _ ByVal aes_EmpfaengerTeilnehmerLandCode As String, _ ByVal aes_AnmelderTeilnehmerEORI As String, _ ByVal aes_AnmelderTeilnehmerNLNR As String, _ ByVal aes_AnmelderTeilnehmerName As String, _ ByVal aes_AnmelderTeilnehmerStrasse As String, _ ByVal aes_AnmelderTeilnehmerOrt As String, _ ByVal aes_AnmelderTeilnehmerPLZ As String, _ ByVal aes_AnmelderTeilnehmerLandCode As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_VertreterAnmelderTeilnehmerEORI As String, _ ByVal aes_VertreterAnmelderTeilnehmerNLNR As String, _ ByVal aes_VertreterAnmelderTeilnehmerName As String, _ ByVal aes_VertreterAnmelderTeilnehmerStrasse As String, _ ByVal aes_VertreterAnmelderTeilnehmerOrt As String, _ ByVal aes_VertreterAnmelderTeilnehmerPLZ As String, _ ByVal aes_VertreterAnmelderTeilnehmerLandCode As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_SubunternehmerTeilnehmerEORI As String, _ ByVal aes_SubunternehmerTeilnehmerNLNR As String, _ ByVal aes_SubunternehmerTeilnehmerName As String, _ ByVal aes_SubunternehmerTeilnehmerStrasse As String, _ ByVal aes_SubunternehmerTeilnehmerOrt As String, _ ByVal aes_SubunternehmerTeilnehmerPLZ As String, _ ByVal aes_SubunternehmerTeilnehmerLandCode As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerEORI As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerNLNR As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerName As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerStrasse As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerOrt As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerPLZ As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerLandCode As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_BefoerderungsrouteLand1 As String, _ ByVal aes_BefoerderungsrouteLand2 As String, _ ByVal aes_BefoerderungsrouteLand3 As String, _ ByVal aes_BefoerderungsrouteLand4 As String, _ ByVal aes_BefoerderungsrouteLand5 As String, _ ByVal aes_BefoerderungsrouteLand6 As String, _ ByVal aes_BefoerderungsrouteLand7 As String, _ ByVal aes_BefoerderungsrouteLand8 As String, _ ByVal aes_BefoerderungsrouteLand9 As String, _ ByVal aes_BefoerderungsrouteLand10 As String, _ ByVal aes_BefoerderungsrouteLand11 As String, _ ByVal aes_BefoerderungsrouteLand12 As String, _ ByVal aes_LieferbedingungenCode As String, _ ByVal aes_LieferbedingungenText As String, _ ByVal aes_LieferbedingungenOrt As String, _ ByVal Original_aes_Id As Integer, _ ByVal Original_aes_Status As Integer, _ ByVal Original_aes_Status_KEWILL_Equivalent As Integer, _ ByVal Original_aes_dyaArt As String, _ ByVal Original_aes_dyaAnmID As Integer, _ ByVal Original_aes_ANR As String, _ ByVal Original_aes_MRN As String, _ ByVal Original_aes_Erstellung As Date, _ ByVal Original_aes_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_aes_LetzteBearbeitung As Date, _ ByVal Original_aes_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_aes_firma As String, _ ByVal Original_aes_niederlassung As String, _ ByVal Original_aes_Trans_Partner As String, _ ByVal Original_aes_Trans_Div1 As String, _ ByVal Original_aes_Trans_Div2 As String, _ ByVal Original_aes_Trans_Div3 As String, _ ByVal Original_aes_Trans_Referenz As String, _ ByVal Original_aes_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_NachrichtenSenderTIN As String, _ ByVal Original_aes_NachrichtenSenderNLNR As String, _ ByVal Original_aes_NachrichtenempfaengerDST As String, _ ByVal Original_aes_ObjectName As String, _ ByVal Original_aes_ObjectAlias As String, _ ByVal Original_aes_BezugsnummerVorblendung As String, _ ByVal Original_aes_Bearbeiter As String, _ ByVal Original_aes_AnmeldeArtAusfuhrCode As String, _ ByVal Original_aes_AnmeldeArtVerfahrensCode As String, _ ByVal Original_aes_AnmeldeArtUeberfuehrungCode As String, _ ByVal Original_aes_Ausfuhrland As String, _ ByVal Original_aes_BestimmungslandCode As String, _ ByVal Original_aes_AnmeldedatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_DatumAusgang As Global.System.Nullable(Of Date), _ ByVal Original_aes_MassgeblichesDatum As Global.System.Nullable(Of Date), _ ByVal Original_aes_BesondereUmstaende As String, _ ByVal Original_aes_Zahlungsweisebefoerderungskosten As String, _ ByVal Original_aes_ContainerIndikator As String, _ ByVal Original_aes_BeteiligteKonstellation As String, _ ByVal Original_aes_AdressdatenKonstellation As String, _ ByVal Original_aes_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_RegistriernummerFremdsystem As String, _ ByVal Original_aes_Vermerk As String, _ ByVal Original_aes_KennnummerSendung As String, _ ByVal Original_aes_AnzahlPositionen As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_BewiligungsnummerAusfuhr As String, _ ByVal Original_aes_BewiligungsnummerAnschreibeverfahren As String, _ ByVal Original_aes_BewiligungsnummerPassiveVeredelung As String, _ ByVal Original_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer As String, _ ByVal Original_aes_VerkehrszweigInland As String, _ ByVal Original_aes_BefoerderungsmittelAbgangArtCode As String, _ ByVal Original_aes_BefoerderungsmittelAbgangKennzeichen As String, _ ByVal Original_aes_BefoerderungsmittelAbgangStaatCode As String, _ ByVal Original_aes_VerkehrszweigGrenze As String, _ ByVal Original_aes_BefoerderungsmittelGrenzeArtCode As String, _ ByVal Original_aes_BefoerderungsmittelGrenzeKennzeichen As String, _ ByVal Original_aes_BefoerderungsmittelGrenzeStaatCode As String, _ ByVal Original_aes_LadeortOrtId As String, _ ByVal Original_aes_LadeortStrasse As String, _ ByVal Original_aes_LadeortPLZ As String, _ ByVal Original_aes_LadeortOrt As String, _ ByVal Original_aes_LadeortZusatz As String, _ ByVal Original_aes_AusfuhrZollstelleID As String, _ ByVal Original_aes_AusgangszollstelleID As String, _ ByVal Original_aes_TatsaechlicheAusgangZollstelleID As String, _ ByVal Original_aes_GeschaeftartCode As String, _ ByVal Original_aes_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_Rechnungwaehrung As String, _ ByVal Original_aes_BesondererTatbestand As String, _ ByVal Original_aes_VerschlussArtCode As String, _ ByVal Original_aes_VerschlussAnzahl As String, _ ByVal Original_aes_VerschlussZeichen1 As String, _ ByVal Original_aes_VerschlussZeichen2 As String, _ ByVal Original_aes_VerschlussZeichen3 As String, _ ByVal Original_aes_VerschlussZeichen4 As String, _ ByVal Original_aes_VerschlussZeichen5 As String, _ ByVal Original_aes_VerschlussZeichen6 As String, _ ByVal Original_aes_VerschlussZeichen7 As String, _ ByVal Original_aes_VerschlussZeichen8 As String, _ ByVal Original_aes_VerschlussZeichen9 As String, _ ByVal Original_aes_VerschlussZeichen10 As String, _ ByVal Original_aes_VerschlussZeichen11 As String, _ ByVal Original_aes_VerschlussZeichen12 As String, _ ByVal Original_aes_GestellungsfristAnfangDatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_GestellungsfristEndeDatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_AusfuehrerTeilnehmerEORI As String, _ ByVal Original_aes_AusfuehrerTeilnehmerNLNR As String, _ ByVal Original_aes_AusfuehrerTeilnehmerName As String, _ ByVal Original_aes_AusfuehrerTeilnehmerStrasse As String, _ ByVal Original_aes_AusfuehrerTeilnehmerOrt As String, _ ByVal Original_aes_AusfuehrerTeilnehmerPLZ As String, _ ByVal Original_aes_AusfuehrerTeilnehmerLandCode As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_EmpfaengerTeilnehmerEORI As String, _ ByVal Original_aes_EmpfaengerTeilnehmerNLNR As String, _ ByVal Original_aes_EmpfaengerTeilnehmerName As String, _ ByVal Original_aes_EmpfaengerTeilnehmerStrasse As String, _ ByVal Original_aes_EmpfaengerTeilnehmerOrt As String, _ ByVal Original_aes_EmpfaengerTeilnehmerPLZ As String, _ ByVal Original_aes_EmpfaengerTeilnehmerLandCode As String, _ ByVal Original_aes_AnmelderTeilnehmerEORI As String, _ ByVal Original_aes_AnmelderTeilnehmerNLNR As String, _ ByVal Original_aes_AnmelderTeilnehmerName As String, _ ByVal Original_aes_AnmelderTeilnehmerStrasse As String, _ ByVal Original_aes_AnmelderTeilnehmerOrt As String, _ ByVal Original_aes_AnmelderTeilnehmerPLZ As String, _ ByVal Original_aes_AnmelderTeilnehmerLandCode As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerEORI As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerNLNR As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerName As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerStrasse As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerOrt As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerPLZ As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerLandCode As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_SubunternehmerTeilnehmerEORI As String, _ ByVal Original_aes_SubunternehmerTeilnehmerNLNR As String, _ ByVal Original_aes_SubunternehmerTeilnehmerName As String, _ ByVal Original_aes_SubunternehmerTeilnehmerStrasse As String, _ ByVal Original_aes_SubunternehmerTeilnehmerOrt As String, _ ByVal Original_aes_SubunternehmerTeilnehmerPLZ As String, _ ByVal Original_aes_SubunternehmerTeilnehmerLandCode As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerEORI As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerNLNR As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerName As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerStrasse As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerOrt As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerPLZ As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerLandCode As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_BefoerderungsrouteLand1 As String, _ ByVal Original_aes_BefoerderungsrouteLand2 As String, _ ByVal Original_aes_BefoerderungsrouteLand3 As String, _ ByVal Original_aes_BefoerderungsrouteLand4 As String, _ ByVal Original_aes_BefoerderungsrouteLand5 As String, _ ByVal Original_aes_BefoerderungsrouteLand6 As String, _ ByVal Original_aes_BefoerderungsrouteLand7 As String, _ ByVal Original_aes_BefoerderungsrouteLand8 As String, _ ByVal Original_aes_BefoerderungsrouteLand9 As String, _ ByVal Original_aes_BefoerderungsrouteLand10 As String, _ ByVal Original_aes_BefoerderungsrouteLand11 As String, _ ByVal Original_aes_BefoerderungsrouteLand12 As String, _ ByVal Original_aes_LieferbedingungenCode As String, _ ByVal Original_aes_LieferbedingungenText As String, _ ByVal Original_aes_LieferbedingungenOrt As String, _ ByVal aes_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(aes_Status,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(aes_Status_KEWILL_Equivalent,Integer) If (aes_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("aes_dyaArt") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(aes_dyaArt,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(aes_dyaAnmID,Integer) If (aes_ANR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(aes_ANR,String) End If If (aes_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(aes_MRN,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(aes_Erstellung,Date) If (aes_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(aes_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(aes_LetzteBearbeitung,Date) If (aes_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(aes_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (aes_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(aes_firma,String) End If If (aes_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(aes_niederlassung,String) End If If (aes_Trans_Partner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(aes_Trans_Partner,String) End If If (aes_Trans_Div1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(aes_Trans_Div1,String) End If If (aes_Trans_Div2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(aes_Trans_Div2,String) End If If (aes_Trans_Div3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(aes_Trans_Div3,String) End If If (aes_Trans_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(aes_Trans_Referenz,String) End If If (aes_Trans_DatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(aes_Trans_DatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (aes_Trans_Version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(aes_Trans_Version.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (aes_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(aes_NachrichtenSenderTIN,String) End If If (aes_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(aes_NachrichtenSenderNLNR,String) End If If (aes_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(aes_NachrichtenempfaengerDST,String) End If If (aes_ObjectName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(aes_ObjectName,String) End If If (aes_ObjectAlias Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(aes_ObjectAlias,String) End If If (aes_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(aes_BezugsnummerVorblendung,String) End If If (aes_Bearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(aes_Bearbeiter,String) End If If (aes_AnmeldeArtAusfuhrCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(aes_AnmeldeArtAusfuhrCode,String) End If If (aes_AnmeldeArtVerfahrensCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(aes_AnmeldeArtVerfahrensCode,String) End If If (aes_AnmeldeArtUeberfuehrungCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(aes_AnmeldeArtUeberfuehrungCode,String) End If If (aes_Ausfuhrland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(aes_Ausfuhrland,String) End If If (aes_BestimmungslandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(aes_BestimmungslandCode,String) End If If (aes_AnmeldedatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(aes_AnmeldedatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (aes_DatumAusgang.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(aes_DatumAusgang.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (aes_MassgeblichesDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(aes_MassgeblichesDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (aes_BesondereUmstaende Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(aes_BesondereUmstaende,String) End If If (aes_Zahlungsweisebefoerderungskosten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(aes_Zahlungsweisebefoerderungskosten,String) End If If (aes_ContainerIndikator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(aes_ContainerIndikator,String) End If If (aes_BeteiligteKonstellation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(aes_BeteiligteKonstellation,String) End If If (aes_AdressdatenKonstellation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(aes_AdressdatenKonstellation,String) End If If (aes_GesamtRohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(aes_GesamtRohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (aes_RegistriernummerFremdsystem Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(aes_RegistriernummerFremdsystem,String) End If If (aes_Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(aes_Vermerk,String) End If If (aes_KennnummerSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(aes_KennnummerSendung,String) End If If (aes_AnzahlPositionen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(aes_AnzahlPositionen.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (aes_BewiligungsnummerAusfuhr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(aes_BewiligungsnummerAusfuhr,String) End If If (aes_BewiligungsnummerAnschreibeverfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(aes_BewiligungsnummerAnschreibeverfahren,String) End If If (aes_BewiligungsnummerPassiveVeredelung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(aes_BewiligungsnummerPassiveVeredelung,String) End If If (aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer,String) End If If (aes_VerkehrszweigInland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(aes_VerkehrszweigInland,String) End If If (aes_BefoerderungsmittelAbgangArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(aes_BefoerderungsmittelAbgangArtCode,String) End If If (aes_BefoerderungsmittelAbgangKennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(aes_BefoerderungsmittelAbgangKennzeichen,String) End If If (aes_BefoerderungsmittelAbgangStaatCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(aes_BefoerderungsmittelAbgangStaatCode,String) End If If (aes_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(aes_VerkehrszweigGrenze,String) End If If (aes_BefoerderungsmittelGrenzeArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(aes_BefoerderungsmittelGrenzeArtCode,String) End If If (aes_BefoerderungsmittelGrenzeKennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(aes_BefoerderungsmittelGrenzeKennzeichen,String) End If If (aes_BefoerderungsmittelGrenzeStaatCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(aes_BefoerderungsmittelGrenzeStaatCode,String) End If If (aes_LadeortOrtId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(aes_LadeortOrtId,String) End If If (aes_LadeortStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(aes_LadeortStrasse,String) End If If (aes_LadeortPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(aes_LadeortPLZ,String) End If If (aes_LadeortOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(aes_LadeortOrt,String) End If If (aes_LadeortZusatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(aes_LadeortZusatz,String) End If If (aes_AusfuhrZollstelleID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(aes_AusfuhrZollstelleID,String) End If If (aes_AusgangszollstelleID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(aes_AusgangszollstelleID,String) End If If (aes_TatsaechlicheAusgangZollstelleID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(aes_TatsaechlicheAusgangZollstelleID,String) End If If (aes_GeschaeftartCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(aes_GeschaeftartCode,String) End If If (aes_Rechnungspreis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(65).Value = CType(aes_Rechnungspreis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value End If If (aes_Rechnungwaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(aes_Rechnungwaehrung,String) End If If (aes_BesondererTatbestand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(aes_BesondererTatbestand,String) End If If (aes_VerschlussArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(aes_VerschlussArtCode,String) End If If (aes_VerschlussAnzahl Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(aes_VerschlussAnzahl,String) End If If (aes_VerschlussZeichen1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(aes_VerschlussZeichen1,String) End If If (aes_VerschlussZeichen2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(aes_VerschlussZeichen2,String) End If If (aes_VerschlussZeichen3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(aes_VerschlussZeichen3,String) End If If (aes_VerschlussZeichen4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(aes_VerschlussZeichen4,String) End If If (aes_VerschlussZeichen5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(aes_VerschlussZeichen5,String) End If If (aes_VerschlussZeichen6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(aes_VerschlussZeichen6,String) End If If (aes_VerschlussZeichen7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(aes_VerschlussZeichen7,String) End If If (aes_VerschlussZeichen8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(aes_VerschlussZeichen8,String) End If If (aes_VerschlussZeichen9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(aes_VerschlussZeichen9,String) End If If (aes_VerschlussZeichen10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(aes_VerschlussZeichen10,String) End If If (aes_VerschlussZeichen11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(aes_VerschlussZeichen11,String) End If If (aes_VerschlussZeichen12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(aes_VerschlussZeichen12,String) End If If (aes_GestellungsfristAnfangDatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(82).Value = CType(aes_GestellungsfristAnfangDatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (aes_GestellungsfristEndeDatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(83).Value = CType(aes_GestellungsfristEndeDatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (aes_AusfuehrerTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(aes_AusfuehrerTeilnehmerEORI,String) End If If (aes_AusfuehrerTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(aes_AusfuehrerTeilnehmerNLNR,String) End If If (aes_AusfuehrerTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(aes_AusfuehrerTeilnehmerName,String) End If If (aes_AusfuehrerTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(aes_AusfuehrerTeilnehmerStrasse,String) End If If (aes_AusfuehrerTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(aes_AusfuehrerTeilnehmerOrt,String) End If If (aes_AusfuehrerTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(aes_AusfuehrerTeilnehmerPLZ,String) End If If (aes_AusfuehrerTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(aes_AusfuehrerTeilnehmerLandCode,String) End If If (aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (aes_AusfuehrerTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(aes_AusfuehrerTeilnehmerAnsprechpartnerStellung,String) End If If (aes_AusfuehrerTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(aes_AusfuehrerTeilnehmerAnsprechpartnerEmail,String) End If If (aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax,String) End If If (aes_EmpfaengerTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(aes_EmpfaengerTeilnehmerEORI,String) End If If (aes_EmpfaengerTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(aes_EmpfaengerTeilnehmerNLNR,String) End If If (aes_EmpfaengerTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(aes_EmpfaengerTeilnehmerName,String) End If If (aes_EmpfaengerTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(aes_EmpfaengerTeilnehmerStrasse,String) End If If (aes_EmpfaengerTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(aes_EmpfaengerTeilnehmerOrt,String) End If If (aes_EmpfaengerTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(aes_EmpfaengerTeilnehmerPLZ,String) End If If (aes_EmpfaengerTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(aes_EmpfaengerTeilnehmerLandCode,String) End If If (aes_AnmelderTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(aes_AnmelderTeilnehmerEORI,String) End If If (aes_AnmelderTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(aes_AnmelderTeilnehmerNLNR,String) End If If (aes_AnmelderTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(aes_AnmelderTeilnehmerName,String) End If If (aes_AnmelderTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(aes_AnmelderTeilnehmerStrasse,String) End If If (aes_AnmelderTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(aes_AnmelderTeilnehmerOrt,String) End If If (aes_AnmelderTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(aes_AnmelderTeilnehmerPLZ,String) End If If (aes_AnmelderTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(aes_AnmelderTeilnehmerLandCode,String) End If If (aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (aes_AnmelderTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(aes_AnmelderTeilnehmerAnsprechpartnerStellung,String) End If If (aes_AnmelderTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(aes_AnmelderTeilnehmerAnsprechpartnerEmail,String) End If If (aes_AnmelderTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(aes_AnmelderTeilnehmerAnsprechpartnerTelefax,String) End If If (aes_VertreterAnmelderTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(aes_VertreterAnmelderTeilnehmerEORI,String) End If If (aes_VertreterAnmelderTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(aes_VertreterAnmelderTeilnehmerNLNR,String) End If If (aes_VertreterAnmelderTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(aes_VertreterAnmelderTeilnehmerName,String) End If If (aes_VertreterAnmelderTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(aes_VertreterAnmelderTeilnehmerStrasse,String) End If If (aes_VertreterAnmelderTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(aes_VertreterAnmelderTeilnehmerOrt,String) End If If (aes_VertreterAnmelderTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(aes_VertreterAnmelderTeilnehmerPLZ,String) End If If (aes_VertreterAnmelderTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(aes_VertreterAnmelderTeilnehmerLandCode,String) End If If (aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung,String) End If If (aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail,String) End If If (aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax,String) End If If (aes_SubunternehmerTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(aes_SubunternehmerTeilnehmerEORI,String) End If If (aes_SubunternehmerTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(128).Value = CType(aes_SubunternehmerTeilnehmerNLNR,String) End If If (aes_SubunternehmerTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(aes_SubunternehmerTeilnehmerName,String) End If If (aes_SubunternehmerTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(aes_SubunternehmerTeilnehmerStrasse,String) End If If (aes_SubunternehmerTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(aes_SubunternehmerTeilnehmerOrt,String) End If If (aes_SubunternehmerTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(aes_SubunternehmerTeilnehmerPLZ,String) End If If (aes_SubunternehmerTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(aes_SubunternehmerTeilnehmerLandCode,String) End If If (aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (aes_SubunternehmerTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(aes_SubunternehmerTeilnehmerAnsprechpartnerStellung,String) End If If (aes_SubunternehmerTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(aes_SubunternehmerTeilnehmerAnsprechpartnerEmail,String) End If If (aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(138).Value = CType(aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax,String) End If If (aes_VerfahrensinhaberPVTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(aes_VerfahrensinhaberPVTeilnehmerEORI,String) End If If (aes_VerfahrensinhaberPVTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(140).Value = CType(aes_VerfahrensinhaberPVTeilnehmerNLNR,String) End If If (aes_VerfahrensinhaberPVTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(aes_VerfahrensinhaberPVTeilnehmerName,String) End If If (aes_VerfahrensinhaberPVTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(142).Value = CType(aes_VerfahrensinhaberPVTeilnehmerStrasse,String) End If If (aes_VerfahrensinhaberPVTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(aes_VerfahrensinhaberPVTeilnehmerOrt,String) End If If (aes_VerfahrensinhaberPVTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(144).Value = CType(aes_VerfahrensinhaberPVTeilnehmerPLZ,String) End If If (aes_VerfahrensinhaberPVTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(aes_VerfahrensinhaberPVTeilnehmerLandCode,String) End If If (aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(146).Value = CType(aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(148).Value = CType(aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung,String) End If If (aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail,String) End If If (aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(150).Value = CType(aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax,String) End If If (aes_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(aes_BefoerderungsrouteLand1,String) End If If (aes_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(152).Value = CType(aes_BefoerderungsrouteLand2,String) End If If (aes_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(aes_BefoerderungsrouteLand3,String) End If If (aes_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(154).Value = CType(aes_BefoerderungsrouteLand4,String) End If If (aes_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(155).Value = CType(aes_BefoerderungsrouteLand5,String) End If If (aes_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(156).Value = CType(aes_BefoerderungsrouteLand6,String) End If If (aes_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(aes_BefoerderungsrouteLand7,String) End If If (aes_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(158).Value = CType(aes_BefoerderungsrouteLand8,String) End If If (aes_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(159).Value = CType(aes_BefoerderungsrouteLand9,String) End If If (aes_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(160).Value = CType(aes_BefoerderungsrouteLand10,String) End If If (aes_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(161).Value = CType(aes_BefoerderungsrouteLand11,String) End If If (aes_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(162).Value = CType(aes_BefoerderungsrouteLand12,String) End If If (aes_LieferbedingungenCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(aes_LieferbedingungenCode,String) End If If (aes_LieferbedingungenText Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(164).Value = CType(aes_LieferbedingungenText,String) End If If (aes_LieferbedingungenOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(aes_LieferbedingungenOrt,String) End If Me.Adapter.UpdateCommand.Parameters(166).Value = CType(Original_aes_Id,Integer) Me.Adapter.UpdateCommand.Parameters(167).Value = CType(Original_aes_Status,Integer) Me.Adapter.UpdateCommand.Parameters(168).Value = CType(Original_aes_Status_KEWILL_Equivalent,Integer) If (Original_aes_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_aes_dyaArt") Else Me.Adapter.UpdateCommand.Parameters(169).Value = CType(Original_aes_dyaArt,String) End If Me.Adapter.UpdateCommand.Parameters(170).Value = CType(Original_aes_dyaAnmID,Integer) If (Original_aes_ANR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = CType(Original_aes_ANR,String) End If If (Original_aes_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_aes_MRN,String) End If Me.Adapter.UpdateCommand.Parameters(175).Value = CType(Original_aes_Erstellung,Date) If (Original_aes_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(176).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(177).Value = CType(Original_aes_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(176).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(177).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(178).Value = CType(Original_aes_LetzteBearbeitung,Date) If (Original_aes_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = CType(Original_aes_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value End If If (Original_aes_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = CType(Original_aes_firma,String) End If If (Original_aes_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = CType(Original_aes_niederlassung,String) End If If (Original_aes_Trans_Partner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_aes_Trans_Partner,String) End If If (Original_aes_Trans_Div1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_aes_Trans_Div1,String) End If If (Original_aes_Trans_Div2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_aes_Trans_Div2,String) End If If (Original_aes_Trans_Div3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_aes_Trans_Div3,String) End If If (Original_aes_Trans_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_aes_Trans_Referenz,String) End If If (Original_aes_Trans_DatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_aes_Trans_DatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value End If If (Original_aes_Trans_Version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_aes_Trans_Version.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value End If If (Original_aes_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_aes_NachrichtenSenderTIN,String) End If If (Original_aes_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = CType(Original_aes_NachrichtenSenderNLNR,String) End If If (Original_aes_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = CType(Original_aes_NachrichtenempfaengerDST,String) End If If (Original_aes_ObjectName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = CType(Original_aes_ObjectName,String) End If If (Original_aes_ObjectAlias Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = CType(Original_aes_ObjectAlias,String) End If If (Original_aes_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = CType(Original_aes_BezugsnummerVorblendung,String) End If If (Original_aes_Bearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = CType(Original_aes_Bearbeiter,String) End If If (Original_aes_AnmeldeArtAusfuhrCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = CType(Original_aes_AnmeldeArtAusfuhrCode,String) End If If (Original_aes_AnmeldeArtVerfahrensCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = CType(Original_aes_AnmeldeArtVerfahrensCode,String) End If If (Original_aes_AnmeldeArtUeberfuehrungCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = CType(Original_aes_AnmeldeArtUeberfuehrungCode,String) End If If (Original_aes_Ausfuhrland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = CType(Original_aes_Ausfuhrland,String) End If If (Original_aes_BestimmungslandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = CType(Original_aes_BestimmungslandCode,String) End If If (Original_aes_AnmeldedatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = CType(Original_aes_AnmeldedatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = Global.System.DBNull.Value End If If (Original_aes_DatumAusgang.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(225).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = CType(Original_aes_DatumAusgang.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(225).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = Global.System.DBNull.Value End If If (Original_aes_MassgeblichesDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(227).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = CType(Original_aes_MassgeblichesDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(227).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = Global.System.DBNull.Value End If If (Original_aes_BesondereUmstaende Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(229).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(229).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = CType(Original_aes_BesondereUmstaende,String) End If If (Original_aes_Zahlungsweisebefoerderungskosten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(231).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(231).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = CType(Original_aes_Zahlungsweisebefoerderungskosten,String) End If If (Original_aes_ContainerIndikator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = CType(Original_aes_ContainerIndikator,String) End If If (Original_aes_BeteiligteKonstellation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = CType(Original_aes_BeteiligteKonstellation,String) End If If (Original_aes_AdressdatenKonstellation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = CType(Original_aes_AdressdatenKonstellation,String) End If If (Original_aes_GesamtRohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = CType(Original_aes_GesamtRohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = Global.System.DBNull.Value End If If (Original_aes_RegistriernummerFremdsystem Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(241).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(241).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = CType(Original_aes_RegistriernummerFremdsystem,String) End If If (Original_aes_Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = CType(Original_aes_Vermerk,String) End If If (Original_aes_KennnummerSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = CType(Original_aes_KennnummerSendung,String) End If If (Original_aes_AnzahlPositionen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = CType(Original_aes_AnzahlPositionen.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = Global.System.DBNull.Value End If If (Original_aes_BewiligungsnummerAusfuhr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = CType(Original_aes_BewiligungsnummerAusfuhr,String) End If If (Original_aes_BewiligungsnummerAnschreibeverfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = CType(Original_aes_BewiligungsnummerAnschreibeverfahren,String) End If If (Original_aes_BewiligungsnummerPassiveVeredelung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = CType(Original_aes_BewiligungsnummerPassiveVeredelung,String) End If If (Original_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = CType(Original_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer,String) End If If (Original_aes_VerkehrszweigInland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = CType(Original_aes_VerkehrszweigInland,String) End If If (Original_aes_BefoerderungsmittelAbgangArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = CType(Original_aes_BefoerderungsmittelAbgangArtCode,String) End If If (Original_aes_BefoerderungsmittelAbgangKennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(261).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(261).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = CType(Original_aes_BefoerderungsmittelAbgangKennzeichen,String) End If If (Original_aes_BefoerderungsmittelAbgangStaatCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(263).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(263).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = CType(Original_aes_BefoerderungsmittelAbgangStaatCode,String) End If If (Original_aes_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(265).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(265).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = CType(Original_aes_VerkehrszweigGrenze,String) End If If (Original_aes_BefoerderungsmittelGrenzeArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(267).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(267).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = CType(Original_aes_BefoerderungsmittelGrenzeArtCode,String) End If If (Original_aes_BefoerderungsmittelGrenzeKennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(269).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(269).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = CType(Original_aes_BefoerderungsmittelGrenzeKennzeichen,String) End If If (Original_aes_BefoerderungsmittelGrenzeStaatCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(271).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(271).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = CType(Original_aes_BefoerderungsmittelGrenzeStaatCode,String) End If If (Original_aes_LadeortOrtId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(273).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(273).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = CType(Original_aes_LadeortOrtId,String) End If If (Original_aes_LadeortStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(275).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(275).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = CType(Original_aes_LadeortStrasse,String) End If If (Original_aes_LadeortPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(277).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(277).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = CType(Original_aes_LadeortPLZ,String) End If If (Original_aes_LadeortOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(279).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(279).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = CType(Original_aes_LadeortOrt,String) End If If (Original_aes_LadeortZusatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(281).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(281).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = CType(Original_aes_LadeortZusatz,String) End If If (Original_aes_AusfuhrZollstelleID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(283).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(283).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = CType(Original_aes_AusfuhrZollstelleID,String) End If If (Original_aes_AusgangszollstelleID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(285).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(285).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = CType(Original_aes_AusgangszollstelleID,String) End If If (Original_aes_TatsaechlicheAusgangZollstelleID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(287).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(287).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = CType(Original_aes_TatsaechlicheAusgangZollstelleID,String) End If If (Original_aes_GeschaeftartCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(289).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(289).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = CType(Original_aes_GeschaeftartCode,String) End If If (Original_aes_Rechnungspreis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(291).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = CType(Original_aes_Rechnungspreis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(291).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = Global.System.DBNull.Value End If If (Original_aes_Rechnungwaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(293).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(293).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = CType(Original_aes_Rechnungwaehrung,String) End If If (Original_aes_BesondererTatbestand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(295).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(295).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = CType(Original_aes_BesondererTatbestand,String) End If If (Original_aes_VerschlussArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(297).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(297).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = CType(Original_aes_VerschlussArtCode,String) End If If (Original_aes_VerschlussAnzahl Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(299).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(299).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = CType(Original_aes_VerschlussAnzahl,String) End If If (Original_aes_VerschlussZeichen1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(301).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(301).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = CType(Original_aes_VerschlussZeichen1,String) End If If (Original_aes_VerschlussZeichen2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(303).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(303).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = CType(Original_aes_VerschlussZeichen2,String) End If If (Original_aes_VerschlussZeichen3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(305).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(305).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = CType(Original_aes_VerschlussZeichen3,String) End If If (Original_aes_VerschlussZeichen4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(307).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(307).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = CType(Original_aes_VerschlussZeichen4,String) End If If (Original_aes_VerschlussZeichen5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(309).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(309).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = CType(Original_aes_VerschlussZeichen5,String) End If If (Original_aes_VerschlussZeichen6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(311).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(311).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = CType(Original_aes_VerschlussZeichen6,String) End If If (Original_aes_VerschlussZeichen7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(313).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(313).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = CType(Original_aes_VerschlussZeichen7,String) End If If (Original_aes_VerschlussZeichen8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(315).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(315).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = CType(Original_aes_VerschlussZeichen8,String) End If If (Original_aes_VerschlussZeichen9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(317).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(317).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = CType(Original_aes_VerschlussZeichen9,String) End If If (Original_aes_VerschlussZeichen10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(319).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(319).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = CType(Original_aes_VerschlussZeichen10,String) End If If (Original_aes_VerschlussZeichen11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(321).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(321).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = CType(Original_aes_VerschlussZeichen11,String) End If If (Original_aes_VerschlussZeichen12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(323).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(323).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = CType(Original_aes_VerschlussZeichen12,String) End If If (Original_aes_GestellungsfristAnfangDatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(325).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = CType(Original_aes_GestellungsfristAnfangDatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(325).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = Global.System.DBNull.Value End If If (Original_aes_GestellungsfristEndeDatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(327).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = CType(Original_aes_GestellungsfristEndeDatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(327).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = Global.System.DBNull.Value End If If (Original_aes_AusfuehrerTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(329).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(329).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = CType(Original_aes_AusfuehrerTeilnehmerEORI,String) End If If (Original_aes_AusfuehrerTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(331).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(331).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = CType(Original_aes_AusfuehrerTeilnehmerNLNR,String) End If If (Original_aes_AusfuehrerTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(333).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(333).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = CType(Original_aes_AusfuehrerTeilnehmerName,String) End If If (Original_aes_AusfuehrerTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(335).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(335).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = CType(Original_aes_AusfuehrerTeilnehmerStrasse,String) End If If (Original_aes_AusfuehrerTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(337).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(337).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = CType(Original_aes_AusfuehrerTeilnehmerOrt,String) End If If (Original_aes_AusfuehrerTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(339).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(339).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = CType(Original_aes_AusfuehrerTeilnehmerPLZ,String) End If If (Original_aes_AusfuehrerTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(341).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(341).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = CType(Original_aes_AusfuehrerTeilnehmerLandCode,String) End If If (Original_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(343).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(343).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = CType(Original_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(345).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(345).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = CType(Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (Original_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(347).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(347).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = CType(Original_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung,String) End If If (Original_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(349).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(349).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = CType(Original_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail,String) End If If (Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(351).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(352).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(351).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(352).Value = CType(Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax,String) End If If (Original_aes_EmpfaengerTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(353).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(354).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(353).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(354).Value = CType(Original_aes_EmpfaengerTeilnehmerEORI,String) End If If (Original_aes_EmpfaengerTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(355).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(356).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(355).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(356).Value = CType(Original_aes_EmpfaengerTeilnehmerNLNR,String) End If If (Original_aes_EmpfaengerTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(357).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(358).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(357).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(358).Value = CType(Original_aes_EmpfaengerTeilnehmerName,String) End If If (Original_aes_EmpfaengerTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(359).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(360).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(359).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(360).Value = CType(Original_aes_EmpfaengerTeilnehmerStrasse,String) End If If (Original_aes_EmpfaengerTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(361).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(362).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(361).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(362).Value = CType(Original_aes_EmpfaengerTeilnehmerOrt,String) End If If (Original_aes_EmpfaengerTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(363).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(364).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(363).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(364).Value = CType(Original_aes_EmpfaengerTeilnehmerPLZ,String) End If If (Original_aes_EmpfaengerTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(365).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(366).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(365).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(366).Value = CType(Original_aes_EmpfaengerTeilnehmerLandCode,String) End If If (Original_aes_AnmelderTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(367).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(368).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(367).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(368).Value = CType(Original_aes_AnmelderTeilnehmerEORI,String) End If If (Original_aes_AnmelderTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(369).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(370).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(369).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(370).Value = CType(Original_aes_AnmelderTeilnehmerNLNR,String) End If If (Original_aes_AnmelderTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(371).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(372).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(371).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(372).Value = CType(Original_aes_AnmelderTeilnehmerName,String) End If If (Original_aes_AnmelderTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(373).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(374).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(373).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(374).Value = CType(Original_aes_AnmelderTeilnehmerStrasse,String) End If If (Original_aes_AnmelderTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(375).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(376).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(375).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(376).Value = CType(Original_aes_AnmelderTeilnehmerOrt,String) End If If (Original_aes_AnmelderTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(377).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(378).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(377).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(378).Value = CType(Original_aes_AnmelderTeilnehmerPLZ,String) End If If (Original_aes_AnmelderTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(379).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(380).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(379).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(380).Value = CType(Original_aes_AnmelderTeilnehmerLandCode,String) End If If (Original_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(381).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(382).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(381).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(382).Value = CType(Original_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(383).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(384).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(383).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(384).Value = CType(Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (Original_aes_AnmelderTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(385).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(386).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(385).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(386).Value = CType(Original_aes_AnmelderTeilnehmerAnsprechpartnerStellung,String) End If If (Original_aes_AnmelderTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(387).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(388).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(387).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(388).Value = CType(Original_aes_AnmelderTeilnehmerAnsprechpartnerEmail,String) End If If (Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(389).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(390).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(389).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(390).Value = CType(Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefax,String) End If If (Original_aes_VertreterAnmelderTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(391).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(392).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(391).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(392).Value = CType(Original_aes_VertreterAnmelderTeilnehmerEORI,String) End If If (Original_aes_VertreterAnmelderTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(393).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(394).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(393).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(394).Value = CType(Original_aes_VertreterAnmelderTeilnehmerNLNR,String) End If If (Original_aes_VertreterAnmelderTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(395).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(396).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(395).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(396).Value = CType(Original_aes_VertreterAnmelderTeilnehmerName,String) End If If (Original_aes_VertreterAnmelderTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(397).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(398).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(397).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(398).Value = CType(Original_aes_VertreterAnmelderTeilnehmerStrasse,String) End If If (Original_aes_VertreterAnmelderTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(399).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(400).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(399).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(400).Value = CType(Original_aes_VertreterAnmelderTeilnehmerOrt,String) End If If (Original_aes_VertreterAnmelderTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(401).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(402).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(401).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(402).Value = CType(Original_aes_VertreterAnmelderTeilnehmerPLZ,String) End If If (Original_aes_VertreterAnmelderTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(403).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(404).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(403).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(404).Value = CType(Original_aes_VertreterAnmelderTeilnehmerLandCode,String) End If If (Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(405).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(406).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(405).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(406).Value = CType(Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(407).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(408).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(407).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(408).Value = CType(Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(409).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(410).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(409).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(410).Value = CType(Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung,String) End If If (Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(411).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(412).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(411).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(412).Value = CType(Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail,String) End If If (Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(413).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(414).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(413).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(414).Value = CType(Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax,String) End If If (Original_aes_SubunternehmerTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(415).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(416).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(415).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(416).Value = CType(Original_aes_SubunternehmerTeilnehmerEORI,String) End If If (Original_aes_SubunternehmerTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(417).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(418).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(417).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(418).Value = CType(Original_aes_SubunternehmerTeilnehmerNLNR,String) End If If (Original_aes_SubunternehmerTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(419).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(420).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(419).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(420).Value = CType(Original_aes_SubunternehmerTeilnehmerName,String) End If If (Original_aes_SubunternehmerTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(421).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(422).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(421).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(422).Value = CType(Original_aes_SubunternehmerTeilnehmerStrasse,String) End If If (Original_aes_SubunternehmerTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(423).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(424).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(423).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(424).Value = CType(Original_aes_SubunternehmerTeilnehmerOrt,String) End If If (Original_aes_SubunternehmerTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(425).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(426).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(425).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(426).Value = CType(Original_aes_SubunternehmerTeilnehmerPLZ,String) End If If (Original_aes_SubunternehmerTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(427).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(428).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(427).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(428).Value = CType(Original_aes_SubunternehmerTeilnehmerLandCode,String) End If If (Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(429).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(430).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(429).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(430).Value = CType(Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(431).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(432).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(431).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(432).Value = CType(Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(433).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(434).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(433).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(434).Value = CType(Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung,String) End If If (Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(435).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(436).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(435).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(436).Value = CType(Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail,String) End If If (Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(437).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(438).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(437).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(438).Value = CType(Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(439).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(440).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(439).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(440).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerEORI,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(441).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(442).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(441).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(442).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerNLNR,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(443).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(444).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(443).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(444).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerName,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(445).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(446).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(445).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(446).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerStrasse,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(447).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(448).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(447).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(448).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerOrt,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(449).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(450).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(449).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(450).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerPLZ,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(451).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(452).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(451).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(452).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerLandCode,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(453).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(454).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(453).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(454).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(455).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(456).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(455).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(456).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(457).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(458).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(457).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(458).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(459).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(460).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(459).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(460).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail,String) End If If (Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(461).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(462).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(461).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(462).Value = CType(Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax,String) End If If (Original_aes_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(463).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(464).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(463).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(464).Value = CType(Original_aes_BefoerderungsrouteLand1,String) End If If (Original_aes_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(465).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(466).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(465).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(466).Value = CType(Original_aes_BefoerderungsrouteLand2,String) End If If (Original_aes_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(467).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(468).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(467).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(468).Value = CType(Original_aes_BefoerderungsrouteLand3,String) End If If (Original_aes_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(469).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(470).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(469).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(470).Value = CType(Original_aes_BefoerderungsrouteLand4,String) End If If (Original_aes_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(471).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(472).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(471).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(472).Value = CType(Original_aes_BefoerderungsrouteLand5,String) End If If (Original_aes_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(473).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(474).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(473).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(474).Value = CType(Original_aes_BefoerderungsrouteLand6,String) End If If (Original_aes_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(475).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(476).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(475).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(476).Value = CType(Original_aes_BefoerderungsrouteLand7,String) End If If (Original_aes_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(477).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(478).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(477).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(478).Value = CType(Original_aes_BefoerderungsrouteLand8,String) End If If (Original_aes_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(479).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(480).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(479).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(480).Value = CType(Original_aes_BefoerderungsrouteLand9,String) End If If (Original_aes_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(481).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(482).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(481).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(482).Value = CType(Original_aes_BefoerderungsrouteLand10,String) End If If (Original_aes_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(483).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(484).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(483).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(484).Value = CType(Original_aes_BefoerderungsrouteLand11,String) End If If (Original_aes_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(485).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(486).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(485).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(486).Value = CType(Original_aes_BefoerderungsrouteLand12,String) End If If (Original_aes_LieferbedingungenCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(487).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(488).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(487).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(488).Value = CType(Original_aes_LieferbedingungenCode,String) End If If (Original_aes_LieferbedingungenText Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(489).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(490).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(489).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(490).Value = CType(Original_aes_LieferbedingungenText,String) End If If (Original_aes_LieferbedingungenOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(491).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(492).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(491).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(492).Value = CType(Original_aes_LieferbedingungenOrt,String) End If Me.Adapter.UpdateCommand.Parameters(493).Value = CType(aes_Id,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 aes_Status As Integer, _ ByVal aes_Status_KEWILL_Equivalent As Integer, _ ByVal aes_dyaArt As String, _ ByVal aes_dyaAnmID As Integer, _ ByVal aes_ANR As String, _ ByVal aes_MRN As String, _ ByVal aes_Erstellung As Date, _ ByVal aes_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal aes_LetzteBearbeitung As Date, _ ByVal aes_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal aes_firma As String, _ ByVal aes_niederlassung As String, _ ByVal aes_Trans_Partner As String, _ ByVal aes_Trans_Div1 As String, _ ByVal aes_Trans_Div2 As String, _ ByVal aes_Trans_Div3 As String, _ ByVal aes_Trans_Referenz As String, _ ByVal aes_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal aes_NachrichtenSenderTIN As String, _ ByVal aes_NachrichtenSenderNLNR As String, _ ByVal aes_NachrichtenempfaengerDST As String, _ ByVal aes_ObjectName As String, _ ByVal aes_ObjectAlias As String, _ ByVal aes_BezugsnummerVorblendung As String, _ ByVal aes_Bearbeiter As String, _ ByVal aes_AnmeldeArtAusfuhrCode As String, _ ByVal aes_AnmeldeArtVerfahrensCode As String, _ ByVal aes_AnmeldeArtUeberfuehrungCode As String, _ ByVal aes_Ausfuhrland As String, _ ByVal aes_BestimmungslandCode As String, _ ByVal aes_AnmeldedatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_DatumAusgang As Global.System.Nullable(Of Date), _ ByVal aes_MassgeblichesDatum As Global.System.Nullable(Of Date), _ ByVal aes_BesondereUmstaende As String, _ ByVal aes_Zahlungsweisebefoerderungskosten As String, _ ByVal aes_ContainerIndikator As String, _ ByVal aes_BeteiligteKonstellation As String, _ ByVal aes_AdressdatenKonstellation As String, _ ByVal aes_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal aes_RegistriernummerFremdsystem As String, _ ByVal aes_Vermerk As String, _ ByVal aes_KennnummerSendung As String, _ ByVal aes_AnzahlPositionen As Global.System.Nullable(Of Decimal), _ ByVal aes_BewiligungsnummerAusfuhr As String, _ ByVal aes_BewiligungsnummerAnschreibeverfahren As String, _ ByVal aes_BewiligungsnummerPassiveVeredelung As String, _ ByVal aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer As String, _ ByVal aes_VerkehrszweigInland As String, _ ByVal aes_BefoerderungsmittelAbgangArtCode As String, _ ByVal aes_BefoerderungsmittelAbgangKennzeichen As String, _ ByVal aes_BefoerderungsmittelAbgangStaatCode As String, _ ByVal aes_VerkehrszweigGrenze As String, _ ByVal aes_BefoerderungsmittelGrenzeArtCode As String, _ ByVal aes_BefoerderungsmittelGrenzeKennzeichen As String, _ ByVal aes_BefoerderungsmittelGrenzeStaatCode As String, _ ByVal aes_LadeortOrtId As String, _ ByVal aes_LadeortStrasse As String, _ ByVal aes_LadeortPLZ As String, _ ByVal aes_LadeortOrt As String, _ ByVal aes_LadeortZusatz As String, _ ByVal aes_AusfuhrZollstelleID As String, _ ByVal aes_AusgangszollstelleID As String, _ ByVal aes_TatsaechlicheAusgangZollstelleID As String, _ ByVal aes_GeschaeftartCode As String, _ ByVal aes_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal aes_Rechnungwaehrung As String, _ ByVal aes_BesondererTatbestand As String, _ ByVal aes_VerschlussArtCode As String, _ ByVal aes_VerschlussAnzahl As String, _ ByVal aes_VerschlussZeichen1 As String, _ ByVal aes_VerschlussZeichen2 As String, _ ByVal aes_VerschlussZeichen3 As String, _ ByVal aes_VerschlussZeichen4 As String, _ ByVal aes_VerschlussZeichen5 As String, _ ByVal aes_VerschlussZeichen6 As String, _ ByVal aes_VerschlussZeichen7 As String, _ ByVal aes_VerschlussZeichen8 As String, _ ByVal aes_VerschlussZeichen9 As String, _ ByVal aes_VerschlussZeichen10 As String, _ ByVal aes_VerschlussZeichen11 As String, _ ByVal aes_VerschlussZeichen12 As String, _ ByVal aes_GestellungsfristAnfangDatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_GestellungsfristEndeDatumZeit As Global.System.Nullable(Of Date), _ ByVal aes_AusfuehrerTeilnehmerEORI As String, _ ByVal aes_AusfuehrerTeilnehmerNLNR As String, _ ByVal aes_AusfuehrerTeilnehmerName As String, _ ByVal aes_AusfuehrerTeilnehmerStrasse As String, _ ByVal aes_AusfuehrerTeilnehmerOrt As String, _ ByVal aes_AusfuehrerTeilnehmerPLZ As String, _ ByVal aes_AusfuehrerTeilnehmerLandCode As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_EmpfaengerTeilnehmerEORI As String, _ ByVal aes_EmpfaengerTeilnehmerNLNR As String, _ ByVal aes_EmpfaengerTeilnehmerName As String, _ ByVal aes_EmpfaengerTeilnehmerStrasse As String, _ ByVal aes_EmpfaengerTeilnehmerOrt As String, _ ByVal aes_EmpfaengerTeilnehmerPLZ As String, _ ByVal aes_EmpfaengerTeilnehmerLandCode As String, _ ByVal aes_AnmelderTeilnehmerEORI As String, _ ByVal aes_AnmelderTeilnehmerNLNR As String, _ ByVal aes_AnmelderTeilnehmerName As String, _ ByVal aes_AnmelderTeilnehmerStrasse As String, _ ByVal aes_AnmelderTeilnehmerOrt As String, _ ByVal aes_AnmelderTeilnehmerPLZ As String, _ ByVal aes_AnmelderTeilnehmerLandCode As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_AnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_VertreterAnmelderTeilnehmerEORI As String, _ ByVal aes_VertreterAnmelderTeilnehmerNLNR As String, _ ByVal aes_VertreterAnmelderTeilnehmerName As String, _ ByVal aes_VertreterAnmelderTeilnehmerStrasse As String, _ ByVal aes_VertreterAnmelderTeilnehmerOrt As String, _ ByVal aes_VertreterAnmelderTeilnehmerPLZ As String, _ ByVal aes_VertreterAnmelderTeilnehmerLandCode As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_SubunternehmerTeilnehmerEORI As String, _ ByVal aes_SubunternehmerTeilnehmerNLNR As String, _ ByVal aes_SubunternehmerTeilnehmerName As String, _ ByVal aes_SubunternehmerTeilnehmerStrasse As String, _ ByVal aes_SubunternehmerTeilnehmerOrt As String, _ ByVal aes_SubunternehmerTeilnehmerPLZ As String, _ ByVal aes_SubunternehmerTeilnehmerLandCode As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerEORI As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerNLNR As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerName As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerStrasse As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerOrt As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerPLZ As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerLandCode As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail As String, _ ByVal aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax As String, _ ByVal aes_BefoerderungsrouteLand1 As String, _ ByVal aes_BefoerderungsrouteLand2 As String, _ ByVal aes_BefoerderungsrouteLand3 As String, _ ByVal aes_BefoerderungsrouteLand4 As String, _ ByVal aes_BefoerderungsrouteLand5 As String, _ ByVal aes_BefoerderungsrouteLand6 As String, _ ByVal aes_BefoerderungsrouteLand7 As String, _ ByVal aes_BefoerderungsrouteLand8 As String, _ ByVal aes_BefoerderungsrouteLand9 As String, _ ByVal aes_BefoerderungsrouteLand10 As String, _ ByVal aes_BefoerderungsrouteLand11 As String, _ ByVal aes_BefoerderungsrouteLand12 As String, _ ByVal aes_LieferbedingungenCode As String, _ ByVal aes_LieferbedingungenText As String, _ ByVal aes_LieferbedingungenOrt As String, _ ByVal Original_aes_Id As Integer, _ ByVal Original_aes_Status As Integer, _ ByVal Original_aes_Status_KEWILL_Equivalent As Integer, _ ByVal Original_aes_dyaArt As String, _ ByVal Original_aes_dyaAnmID As Integer, _ ByVal Original_aes_ANR As String, _ ByVal Original_aes_MRN As String, _ ByVal Original_aes_Erstellung As Date, _ ByVal Original_aes_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_aes_LetzteBearbeitung As Date, _ ByVal Original_aes_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_aes_firma As String, _ ByVal Original_aes_niederlassung As String, _ ByVal Original_aes_Trans_Partner As String, _ ByVal Original_aes_Trans_Div1 As String, _ ByVal Original_aes_Trans_Div2 As String, _ ByVal Original_aes_Trans_Div3 As String, _ ByVal Original_aes_Trans_Referenz As String, _ ByVal Original_aes_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_NachrichtenSenderTIN As String, _ ByVal Original_aes_NachrichtenSenderNLNR As String, _ ByVal Original_aes_NachrichtenempfaengerDST As String, _ ByVal Original_aes_ObjectName As String, _ ByVal Original_aes_ObjectAlias As String, _ ByVal Original_aes_BezugsnummerVorblendung As String, _ ByVal Original_aes_Bearbeiter As String, _ ByVal Original_aes_AnmeldeArtAusfuhrCode As String, _ ByVal Original_aes_AnmeldeArtVerfahrensCode As String, _ ByVal Original_aes_AnmeldeArtUeberfuehrungCode As String, _ ByVal Original_aes_Ausfuhrland As String, _ ByVal Original_aes_BestimmungslandCode As String, _ ByVal Original_aes_AnmeldedatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_DatumAusgang As Global.System.Nullable(Of Date), _ ByVal Original_aes_MassgeblichesDatum As Global.System.Nullable(Of Date), _ ByVal Original_aes_BesondereUmstaende As String, _ ByVal Original_aes_Zahlungsweisebefoerderungskosten As String, _ ByVal Original_aes_ContainerIndikator As String, _ ByVal Original_aes_BeteiligteKonstellation As String, _ ByVal Original_aes_AdressdatenKonstellation As String, _ ByVal Original_aes_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_RegistriernummerFremdsystem As String, _ ByVal Original_aes_Vermerk As String, _ ByVal Original_aes_KennnummerSendung As String, _ ByVal Original_aes_AnzahlPositionen As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_BewiligungsnummerAusfuhr As String, _ ByVal Original_aes_BewiligungsnummerAnschreibeverfahren As String, _ ByVal Original_aes_BewiligungsnummerPassiveVeredelung As String, _ ByVal Original_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer As String, _ ByVal Original_aes_VerkehrszweigInland As String, _ ByVal Original_aes_BefoerderungsmittelAbgangArtCode As String, _ ByVal Original_aes_BefoerderungsmittelAbgangKennzeichen As String, _ ByVal Original_aes_BefoerderungsmittelAbgangStaatCode As String, _ ByVal Original_aes_VerkehrszweigGrenze As String, _ ByVal Original_aes_BefoerderungsmittelGrenzeArtCode As String, _ ByVal Original_aes_BefoerderungsmittelGrenzeKennzeichen As String, _ ByVal Original_aes_BefoerderungsmittelGrenzeStaatCode As String, _ ByVal Original_aes_LadeortOrtId As String, _ ByVal Original_aes_LadeortStrasse As String, _ ByVal Original_aes_LadeortPLZ As String, _ ByVal Original_aes_LadeortOrt As String, _ ByVal Original_aes_LadeortZusatz As String, _ ByVal Original_aes_AusfuhrZollstelleID As String, _ ByVal Original_aes_AusgangszollstelleID As String, _ ByVal Original_aes_TatsaechlicheAusgangZollstelleID As String, _ ByVal Original_aes_GeschaeftartCode As String, _ ByVal Original_aes_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal Original_aes_Rechnungwaehrung As String, _ ByVal Original_aes_BesondererTatbestand As String, _ ByVal Original_aes_VerschlussArtCode As String, _ ByVal Original_aes_VerschlussAnzahl As String, _ ByVal Original_aes_VerschlussZeichen1 As String, _ ByVal Original_aes_VerschlussZeichen2 As String, _ ByVal Original_aes_VerschlussZeichen3 As String, _ ByVal Original_aes_VerschlussZeichen4 As String, _ ByVal Original_aes_VerschlussZeichen5 As String, _ ByVal Original_aes_VerschlussZeichen6 As String, _ ByVal Original_aes_VerschlussZeichen7 As String, _ ByVal Original_aes_VerschlussZeichen8 As String, _ ByVal Original_aes_VerschlussZeichen9 As String, _ ByVal Original_aes_VerschlussZeichen10 As String, _ ByVal Original_aes_VerschlussZeichen11 As String, _ ByVal Original_aes_VerschlussZeichen12 As String, _ ByVal Original_aes_GestellungsfristAnfangDatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_GestellungsfristEndeDatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_aes_AusfuehrerTeilnehmerEORI As String, _ ByVal Original_aes_AusfuehrerTeilnehmerNLNR As String, _ ByVal Original_aes_AusfuehrerTeilnehmerName As String, _ ByVal Original_aes_AusfuehrerTeilnehmerStrasse As String, _ ByVal Original_aes_AusfuehrerTeilnehmerOrt As String, _ ByVal Original_aes_AusfuehrerTeilnehmerPLZ As String, _ ByVal Original_aes_AusfuehrerTeilnehmerLandCode As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_EmpfaengerTeilnehmerEORI As String, _ ByVal Original_aes_EmpfaengerTeilnehmerNLNR As String, _ ByVal Original_aes_EmpfaengerTeilnehmerName As String, _ ByVal Original_aes_EmpfaengerTeilnehmerStrasse As String, _ ByVal Original_aes_EmpfaengerTeilnehmerOrt As String, _ ByVal Original_aes_EmpfaengerTeilnehmerPLZ As String, _ ByVal Original_aes_EmpfaengerTeilnehmerLandCode As String, _ ByVal Original_aes_AnmelderTeilnehmerEORI As String, _ ByVal Original_aes_AnmelderTeilnehmerNLNR As String, _ ByVal Original_aes_AnmelderTeilnehmerName As String, _ ByVal Original_aes_AnmelderTeilnehmerStrasse As String, _ ByVal Original_aes_AnmelderTeilnehmerOrt As String, _ ByVal Original_aes_AnmelderTeilnehmerPLZ As String, _ ByVal Original_aes_AnmelderTeilnehmerLandCode As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerEORI As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerNLNR As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerName As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerStrasse As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerOrt As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerPLZ As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerLandCode As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_SubunternehmerTeilnehmerEORI As String, _ ByVal Original_aes_SubunternehmerTeilnehmerNLNR As String, _ ByVal Original_aes_SubunternehmerTeilnehmerName As String, _ ByVal Original_aes_SubunternehmerTeilnehmerStrasse As String, _ ByVal Original_aes_SubunternehmerTeilnehmerOrt As String, _ ByVal Original_aes_SubunternehmerTeilnehmerPLZ As String, _ ByVal Original_aes_SubunternehmerTeilnehmerLandCode As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerEORI As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerNLNR As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerName As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerStrasse As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerOrt As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerPLZ As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerLandCode As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail As String, _ ByVal Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax As String, _ ByVal Original_aes_BefoerderungsrouteLand1 As String, _ ByVal Original_aes_BefoerderungsrouteLand2 As String, _ ByVal Original_aes_BefoerderungsrouteLand3 As String, _ ByVal Original_aes_BefoerderungsrouteLand4 As String, _ ByVal Original_aes_BefoerderungsrouteLand5 As String, _ ByVal Original_aes_BefoerderungsrouteLand6 As String, _ ByVal Original_aes_BefoerderungsrouteLand7 As String, _ ByVal Original_aes_BefoerderungsrouteLand8 As String, _ ByVal Original_aes_BefoerderungsrouteLand9 As String, _ ByVal Original_aes_BefoerderungsrouteLand10 As String, _ ByVal Original_aes_BefoerderungsrouteLand11 As String, _ ByVal Original_aes_BefoerderungsrouteLand12 As String, _ ByVal Original_aes_LieferbedingungenCode As String, _ ByVal Original_aes_LieferbedingungenText As String, _ ByVal Original_aes_LieferbedingungenOrt As String) As Integer Return Me.Update(aes_Status, aes_Status_KEWILL_Equivalent, aes_dyaArt, aes_dyaAnmID, aes_ANR, aes_MRN, aes_Erstellung, aes_Erstellung_SB, aes_LetzteBearbeitung, aes_LetzteBearbeitung_SB, aes_firma, aes_niederlassung, aes_Trans_Partner, aes_Trans_Div1, aes_Trans_Div2, aes_Trans_Div3, aes_Trans_Referenz, aes_Trans_DatumZeit, aes_Trans_Version, aes_NachrichtenSenderTIN, aes_NachrichtenSenderNLNR, aes_NachrichtenempfaengerDST, aes_ObjectName, aes_ObjectAlias, aes_BezugsnummerVorblendung, aes_Bearbeiter, aes_AnmeldeArtAusfuhrCode, aes_AnmeldeArtVerfahrensCode, aes_AnmeldeArtUeberfuehrungCode, aes_Ausfuhrland, aes_BestimmungslandCode, aes_AnmeldedatumZeit, aes_DatumAusgang, aes_MassgeblichesDatum, aes_BesondereUmstaende, aes_Zahlungsweisebefoerderungskosten, aes_ContainerIndikator, aes_BeteiligteKonstellation, aes_AdressdatenKonstellation, aes_GesamtRohmasse, aes_RegistriernummerFremdsystem, aes_Vermerk, aes_KennnummerSendung, aes_AnzahlPositionen, aes_BewiligungsnummerAusfuhr, aes_BewiligungsnummerAnschreibeverfahren, aes_BewiligungsnummerPassiveVeredelung, aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer, aes_VerkehrszweigInland, aes_BefoerderungsmittelAbgangArtCode, aes_BefoerderungsmittelAbgangKennzeichen, aes_BefoerderungsmittelAbgangStaatCode, aes_VerkehrszweigGrenze, aes_BefoerderungsmittelGrenzeArtCode, aes_BefoerderungsmittelGrenzeKennzeichen, aes_BefoerderungsmittelGrenzeStaatCode, aes_LadeortOrtId, aes_LadeortStrasse, aes_LadeortPLZ, aes_LadeortOrt, aes_LadeortZusatz, aes_AusfuhrZollstelleID, aes_AusgangszollstelleID, aes_TatsaechlicheAusgangZollstelleID, aes_GeschaeftartCode, aes_Rechnungspreis, aes_Rechnungwaehrung, aes_BesondererTatbestand, aes_VerschlussArtCode, aes_VerschlussAnzahl, aes_VerschlussZeichen1, aes_VerschlussZeichen2, aes_VerschlussZeichen3, aes_VerschlussZeichen4, aes_VerschlussZeichen5, aes_VerschlussZeichen6, aes_VerschlussZeichen7, aes_VerschlussZeichen8, aes_VerschlussZeichen9, aes_VerschlussZeichen10, aes_VerschlussZeichen11, aes_VerschlussZeichen12, aes_GestellungsfristAnfangDatumZeit, aes_GestellungsfristEndeDatumZeit, aes_AusfuehrerTeilnehmerEORI, aes_AusfuehrerTeilnehmerNLNR, aes_AusfuehrerTeilnehmerName, aes_AusfuehrerTeilnehmerStrasse, aes_AusfuehrerTeilnehmerOrt, aes_AusfuehrerTeilnehmerPLZ, aes_AusfuehrerTeilnehmerLandCode, aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter, aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer, aes_AusfuehrerTeilnehmerAnsprechpartnerStellung, aes_AusfuehrerTeilnehmerAnsprechpartnerEmail, aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax, aes_EmpfaengerTeilnehmerEORI, aes_EmpfaengerTeilnehmerNLNR, aes_EmpfaengerTeilnehmerName, aes_EmpfaengerTeilnehmerStrasse, aes_EmpfaengerTeilnehmerOrt, aes_EmpfaengerTeilnehmerPLZ, aes_EmpfaengerTeilnehmerLandCode, aes_AnmelderTeilnehmerEORI, aes_AnmelderTeilnehmerNLNR, aes_AnmelderTeilnehmerName, aes_AnmelderTeilnehmerStrasse, aes_AnmelderTeilnehmerOrt, aes_AnmelderTeilnehmerPLZ, aes_AnmelderTeilnehmerLandCode, aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter, aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer, aes_AnmelderTeilnehmerAnsprechpartnerStellung, aes_AnmelderTeilnehmerAnsprechpartnerEmail, aes_AnmelderTeilnehmerAnsprechpartnerTelefax, aes_VertreterAnmelderTeilnehmerEORI, aes_VertreterAnmelderTeilnehmerNLNR, aes_VertreterAnmelderTeilnehmerName, aes_VertreterAnmelderTeilnehmerStrasse, aes_VertreterAnmelderTeilnehmerOrt, aes_VertreterAnmelderTeilnehmerPLZ, aes_VertreterAnmelderTeilnehmerLandCode, aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter, aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer, aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung, aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail, aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax, aes_SubunternehmerTeilnehmerEORI, aes_SubunternehmerTeilnehmerNLNR, aes_SubunternehmerTeilnehmerName, aes_SubunternehmerTeilnehmerStrasse, aes_SubunternehmerTeilnehmerOrt, aes_SubunternehmerTeilnehmerPLZ, aes_SubunternehmerTeilnehmerLandCode, aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter, aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer, aes_SubunternehmerTeilnehmerAnsprechpartnerStellung, aes_SubunternehmerTeilnehmerAnsprechpartnerEmail, aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax, aes_VerfahrensinhaberPVTeilnehmerEORI, aes_VerfahrensinhaberPVTeilnehmerNLNR, aes_VerfahrensinhaberPVTeilnehmerName, aes_VerfahrensinhaberPVTeilnehmerStrasse, aes_VerfahrensinhaberPVTeilnehmerOrt, aes_VerfahrensinhaberPVTeilnehmerPLZ, aes_VerfahrensinhaberPVTeilnehmerLandCode, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail, aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax, aes_BefoerderungsrouteLand1, aes_BefoerderungsrouteLand2, aes_BefoerderungsrouteLand3, aes_BefoerderungsrouteLand4, aes_BefoerderungsrouteLand5, aes_BefoerderungsrouteLand6, aes_BefoerderungsrouteLand7, aes_BefoerderungsrouteLand8, aes_BefoerderungsrouteLand9, aes_BefoerderungsrouteLand10, aes_BefoerderungsrouteLand11, aes_BefoerderungsrouteLand12, aes_LieferbedingungenCode, aes_LieferbedingungenText, aes_LieferbedingungenOrt, Original_aes_Id, Original_aes_Status, Original_aes_Status_KEWILL_Equivalent, Original_aes_dyaArt, Original_aes_dyaAnmID, Original_aes_ANR, Original_aes_MRN, Original_aes_Erstellung, Original_aes_Erstellung_SB, Original_aes_LetzteBearbeitung, Original_aes_LetzteBearbeitung_SB, Original_aes_firma, Original_aes_niederlassung, Original_aes_Trans_Partner, Original_aes_Trans_Div1, Original_aes_Trans_Div2, Original_aes_Trans_Div3, Original_aes_Trans_Referenz, Original_aes_Trans_DatumZeit, Original_aes_Trans_Version, Original_aes_NachrichtenSenderTIN, Original_aes_NachrichtenSenderNLNR, Original_aes_NachrichtenempfaengerDST, Original_aes_ObjectName, Original_aes_ObjectAlias, Original_aes_BezugsnummerVorblendung, Original_aes_Bearbeiter, Original_aes_AnmeldeArtAusfuhrCode, Original_aes_AnmeldeArtVerfahrensCode, Original_aes_AnmeldeArtUeberfuehrungCode, Original_aes_Ausfuhrland, Original_aes_BestimmungslandCode, Original_aes_AnmeldedatumZeit, Original_aes_DatumAusgang, Original_aes_MassgeblichesDatum, Original_aes_BesondereUmstaende, Original_aes_Zahlungsweisebefoerderungskosten, Original_aes_ContainerIndikator, Original_aes_BeteiligteKonstellation, Original_aes_AdressdatenKonstellation, Original_aes_GesamtRohmasse, Original_aes_RegistriernummerFremdsystem, Original_aes_Vermerk, Original_aes_KennnummerSendung, Original_aes_AnzahlPositionen, Original_aes_BewiligungsnummerAusfuhr, Original_aes_BewiligungsnummerAnschreibeverfahren, Original_aes_BewiligungsnummerPassiveVeredelung, Original_aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer, Original_aes_VerkehrszweigInland, Original_aes_BefoerderungsmittelAbgangArtCode, Original_aes_BefoerderungsmittelAbgangKennzeichen, Original_aes_BefoerderungsmittelAbgangStaatCode, Original_aes_VerkehrszweigGrenze, Original_aes_BefoerderungsmittelGrenzeArtCode, Original_aes_BefoerderungsmittelGrenzeKennzeichen, Original_aes_BefoerderungsmittelGrenzeStaatCode, Original_aes_LadeortOrtId, Original_aes_LadeortStrasse, Original_aes_LadeortPLZ, Original_aes_LadeortOrt, Original_aes_LadeortZusatz, Original_aes_AusfuhrZollstelleID, Original_aes_AusgangszollstelleID, Original_aes_TatsaechlicheAusgangZollstelleID, Original_aes_GeschaeftartCode, Original_aes_Rechnungspreis, Original_aes_Rechnungwaehrung, Original_aes_BesondererTatbestand, Original_aes_VerschlussArtCode, Original_aes_VerschlussAnzahl, Original_aes_VerschlussZeichen1, Original_aes_VerschlussZeichen2, Original_aes_VerschlussZeichen3, Original_aes_VerschlussZeichen4, Original_aes_VerschlussZeichen5, Original_aes_VerschlussZeichen6, Original_aes_VerschlussZeichen7, Original_aes_VerschlussZeichen8, Original_aes_VerschlussZeichen9, Original_aes_VerschlussZeichen10, Original_aes_VerschlussZeichen11, Original_aes_VerschlussZeichen12, Original_aes_GestellungsfristAnfangDatumZeit, Original_aes_GestellungsfristEndeDatumZeit, Original_aes_AusfuehrerTeilnehmerEORI, Original_aes_AusfuehrerTeilnehmerNLNR, Original_aes_AusfuehrerTeilnehmerName, Original_aes_AusfuehrerTeilnehmerStrasse, Original_aes_AusfuehrerTeilnehmerOrt, Original_aes_AusfuehrerTeilnehmerPLZ, Original_aes_AusfuehrerTeilnehmerLandCode, Original_aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter, Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer, Original_aes_AusfuehrerTeilnehmerAnsprechpartnerStellung, Original_aes_AusfuehrerTeilnehmerAnsprechpartnerEmail, Original_aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax, Original_aes_EmpfaengerTeilnehmerEORI, Original_aes_EmpfaengerTeilnehmerNLNR, Original_aes_EmpfaengerTeilnehmerName, Original_aes_EmpfaengerTeilnehmerStrasse, Original_aes_EmpfaengerTeilnehmerOrt, Original_aes_EmpfaengerTeilnehmerPLZ, Original_aes_EmpfaengerTeilnehmerLandCode, Original_aes_AnmelderTeilnehmerEORI, Original_aes_AnmelderTeilnehmerNLNR, Original_aes_AnmelderTeilnehmerName, Original_aes_AnmelderTeilnehmerStrasse, Original_aes_AnmelderTeilnehmerOrt, Original_aes_AnmelderTeilnehmerPLZ, Original_aes_AnmelderTeilnehmerLandCode, Original_aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter, Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer, Original_aes_AnmelderTeilnehmerAnsprechpartnerStellung, Original_aes_AnmelderTeilnehmerAnsprechpartnerEmail, Original_aes_AnmelderTeilnehmerAnsprechpartnerTelefax, Original_aes_VertreterAnmelderTeilnehmerEORI, Original_aes_VertreterAnmelderTeilnehmerNLNR, Original_aes_VertreterAnmelderTeilnehmerName, Original_aes_VertreterAnmelderTeilnehmerStrasse, Original_aes_VertreterAnmelderTeilnehmerOrt, Original_aes_VertreterAnmelderTeilnehmerPLZ, Original_aes_VertreterAnmelderTeilnehmerLandCode, Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter, Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer, Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung, Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail, Original_aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax, Original_aes_SubunternehmerTeilnehmerEORI, Original_aes_SubunternehmerTeilnehmerNLNR, Original_aes_SubunternehmerTeilnehmerName, Original_aes_SubunternehmerTeilnehmerStrasse, Original_aes_SubunternehmerTeilnehmerOrt, Original_aes_SubunternehmerTeilnehmerPLZ, Original_aes_SubunternehmerTeilnehmerLandCode, Original_aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter, Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer, Original_aes_SubunternehmerTeilnehmerAnsprechpartnerStellung, Original_aes_SubunternehmerTeilnehmerAnsprechpartnerEmail, Original_aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax, Original_aes_VerfahrensinhaberPVTeilnehmerEORI, Original_aes_VerfahrensinhaberPVTeilnehmerNLNR, Original_aes_VerfahrensinhaberPVTeilnehmerName, Original_aes_VerfahrensinhaberPVTeilnehmerStrasse, Original_aes_VerfahrensinhaberPVTeilnehmerOrt, Original_aes_VerfahrensinhaberPVTeilnehmerPLZ, Original_aes_VerfahrensinhaberPVTeilnehmerLandCode, Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter, Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer, Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung, Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail, Original_aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax, Original_aes_BefoerderungsrouteLand1, Original_aes_BefoerderungsrouteLand2, Original_aes_BefoerderungsrouteLand3, Original_aes_BefoerderungsrouteLand4, Original_aes_BefoerderungsrouteLand5, Original_aes_BefoerderungsrouteLand6, Original_aes_BefoerderungsrouteLand7, Original_aes_BefoerderungsrouteLand8, Original_aes_BefoerderungsrouteLand9, Original_aes_BefoerderungsrouteLand10, Original_aes_BefoerderungsrouteLand11, Original_aes_BefoerderungsrouteLand12, Original_aes_LieferbedingungenCode, Original_aes_LieferbedingungenText, Original_aes_LieferbedingungenOrt, Original_aes_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_AES_WarenpositionTableAdapter 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 = "tblDakosy_AES_Warenposition" tableMapping.ColumnMappings.Add("aesWP_Id", "aesWP_Id") tableMapping.ColumnMappings.Add("aesWP_AESId", "aesWP_AESId") tableMapping.ColumnMappings.Add("aesWP_PositionsNummer", "aesWP_PositionsNummer") tableMapping.ColumnMappings.Add("aesWP_WarennummerKN8", "aesWP_WarennummerKN8") tableMapping.ColumnMappings.Add("aesWP_WarennummerTARIC", "aesWP_WarennummerTARIC") tableMapping.ColumnMappings.Add("aesWP_WarennummerZusatz1", "aesWP_WarennummerZusatz1") tableMapping.ColumnMappings.Add("aesWP_WarennummerZusatz2", "aesWP_WarennummerZusatz2") tableMapping.ColumnMappings.Add("aesWP_WarennummerNational", "aesWP_WarennummerNational") tableMapping.ColumnMappings.Add("aesWP_Warenbezeichnung", "aesWP_Warenbezeichnung") tableMapping.ColumnMappings.Add("aesWP_RegisternummerFremdsystem", "aesWP_RegisternummerFremdsystem") tableMapping.ColumnMappings.Add("aesWP_Vermerk", "aesWP_Vermerk") tableMapping.ColumnMappings.Add("aesWP_KennungSendung", "aesWP_KennungSendung") tableMapping.ColumnMappings.Add("aesWP_UrsprungsbundeslandCode", "aesWP_UrsprungsbundeslandCode") tableMapping.ColumnMappings.Add("aesWP_Eigenmasse", "aesWP_Eigenmasse") tableMapping.ColumnMappings.Add("aesWP_Rohmasse", "aesWP_Rohmasse") tableMapping.ColumnMappings.Add("aesWP_Gefahrgutnummer", "aesWP_Gefahrgutnummer") tableMapping.ColumnMappings.Add("aesWP_ZahlungsweiseBefoerderungskosten", "aesWP_ZahlungsweiseBefoerderungskosten") tableMapping.ColumnMappings.Add("aesWP_VerfahrenAngemeldetCode", "aesWP_VerfahrenAngemeldetCode") tableMapping.ColumnMappings.Add("aesWP_VerfahrenVorangegangenCode", "aesWP_VerfahrenVorangegangenCode") tableMapping.ColumnMappings.Add("aesWP_VerfahrenNationalCode", "aesWP_VerfahrenNationalCode") tableMapping.ColumnMappings.Add("aesWP_AusfuhrerstattungVerfahrensCode", "aesWP_AusfuhrerstattungVerfahrensCode") tableMapping.ColumnMappings.Add("aesWP_Menge", "aesWP_Menge") tableMapping.ColumnMappings.Add("aesWP_Wert", "aesWP_Wert") tableMapping.ColumnMappings.Add("aesWP_VorpapierTypCode1", "aesWP_VorpapierTypCode1") tableMapping.ColumnMappings.Add("aesWP_ReferenzID1", "aesWP_ReferenzID1") tableMapping.ColumnMappings.Add("aesWP_Zusatz1", "aesWP_Zusatz1") tableMapping.ColumnMappings.Add("aesWP_VorpapierTypCode2", "aesWP_VorpapierTypCode2") tableMapping.ColumnMappings.Add("aesWP_ReferenzID2", "aesWP_ReferenzID2") tableMapping.ColumnMappings.Add("aesWP_Zusatz2", "aesWP_Zusatz2") tableMapping.ColumnMappings.Add("aesWP_VorpapierTypCode3", "aesWP_VorpapierTypCode3") tableMapping.ColumnMappings.Add("aesWP_ReferenzID3", "aesWP_ReferenzID3") tableMapping.ColumnMappings.Add("aesWP_Zusatz3", "aesWP_Zusatz3") tableMapping.ColumnMappings.Add("aesWP_VorpapierTypCode4", "aesWP_VorpapierTypCode4") tableMapping.ColumnMappings.Add("aesWP_ReferenzID4", "aesWP_ReferenzID4") tableMapping.ColumnMappings.Add("aesWP_Zusatz4", "aesWP_Zusatz4") tableMapping.ColumnMappings.Add("aesWP_VorpapierTypCode5", "aesWP_VorpapierTypCode5") tableMapping.ColumnMappings.Add("aesWP_ReferenzID5", "aesWP_ReferenzID5") tableMapping.ColumnMappings.Add("aesWP_Zusatz5", "aesWP_Zusatz5") tableMapping.ColumnMappings.Add("aesWP_VorpapierTypCode6", "aesWP_VorpapierTypCode6") tableMapping.ColumnMappings.Add("aesWP_ReferenzID6", "aesWP_ReferenzID6") tableMapping.ColumnMappings.Add("aesWP_Zusatz6", "aesWP_Zusatz6") tableMapping.ColumnMappings.Add("aesWP_VorpapierTypCode7", "aesWP_VorpapierTypCode7") tableMapping.ColumnMappings.Add("aesWP_ReferenzID7", "aesWP_ReferenzID7") tableMapping.ColumnMappings.Add("aesWP_Zusatz7", "aesWP_Zusatz7") tableMapping.ColumnMappings.Add("aesWP_VorpapierTypCode8", "aesWP_VorpapierTypCode8") tableMapping.ColumnMappings.Add("aesWP_ReferenzID8", "aesWP_ReferenzID8") tableMapping.ColumnMappings.Add("aesWP_Zusatz8", "aesWP_Zusatz8") tableMapping.ColumnMappings.Add("aesWP_VorpapierTypCode9", "aesWP_VorpapierTypCode9") tableMapping.ColumnMappings.Add("aesWP_ReferenzID9", "aesWP_ReferenzID9") tableMapping.ColumnMappings.Add("aesWP_Zusatz9", "aesWP_Zusatz9") tableMapping.ColumnMappings.Add("aesWP_Containernummer1", "aesWP_Containernummer1") tableMapping.ColumnMappings.Add("aesWP_Containernummer2", "aesWP_Containernummer2") tableMapping.ColumnMappings.Add("aesWP_Containernummer3", "aesWP_Containernummer3") tableMapping.ColumnMappings.Add("aesWP_Containernummer4", "aesWP_Containernummer4") tableMapping.ColumnMappings.Add("aesWP_EmpfaengerTeilnehmerEORI", "aesWP_EmpfaengerTeilnehmerEORI") tableMapping.ColumnMappings.Add("aesWP_EmpfaengerTeilnehmerNLNR", "aesWP_EmpfaengerTeilnehmerNLNR") tableMapping.ColumnMappings.Add("aesWP_EmpfaengerTeilnehmerName", "aesWP_EmpfaengerTeilnehmerName") tableMapping.ColumnMappings.Add("aesWP_EmpfaengerTeilnehmerStrasse", "aesWP_EmpfaengerTeilnehmerStrasse") tableMapping.ColumnMappings.Add("aesWP_EmpfaengerTeilnehmerOrt", "aesWP_EmpfaengerTeilnehmerOrt") tableMapping.ColumnMappings.Add("aesWP_EmpfaengerTeilnehmerPLZ", "aesWP_EmpfaengerTeilnehmerPLZ") tableMapping.ColumnMappings.Add("aesWP_EmpfaengerTeilnehmerLandCode", "aesWP_EmpfaengerTeilnehmerLandCode") tableMapping.ColumnMappings.Add("aesWP_EndverwenderTeilnehmerEORI", "aesWP_EndverwenderTeilnehmerEORI") tableMapping.ColumnMappings.Add("aesWP_EndverwenderTeilnehmerNLNR", "aesWP_EndverwenderTeilnehmerNLNR") tableMapping.ColumnMappings.Add("aesWP_EndverwenderTeilnehmerName", "aesWP_EndverwenderTeilnehmerName") tableMapping.ColumnMappings.Add("aesWP_EndverwenderTeilnehmerStrasse", "aesWP_EndverwenderTeilnehmerStrasse") tableMapping.ColumnMappings.Add("aesWP_EndverwenderTeilnehmerOrt", "aesWP_EndverwenderTeilnehmerOrt") tableMapping.ColumnMappings.Add("aesWP_EndverwenderTeilnehmerPLZ", "aesWP_EndverwenderTeilnehmerPLZ") tableMapping.ColumnMappings.Add("aesWP_EndverwenderTeilnehmerLandCode", "aesWP_EndverwenderTeilnehmerLandCode") 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].[tblDakosy_AES_Warenposition] WHERE (([aesWP_Id] = @Original_ae"& _ "sWP_Id) AND ([aesWP_AESId] = @Original_aesWP_AESId) AND ((@IsNull_aesWP_Position"& _ "sNummer = 1 AND [aesWP_PositionsNummer] IS NULL) OR ([aesWP_PositionsNummer] = @"& _ "Original_aesWP_PositionsNummer)) AND ((@IsNull_aesWP_WarennummerKN8 = 1 AND [aes"& _ "WP_WarennummerKN8] IS NULL) OR ([aesWP_WarennummerKN8] = @Original_aesWP_Warennu"& _ "mmerKN8)) AND ((@IsNull_aesWP_WarennummerTARIC = 1 AND [aesWP_WarennummerTARIC] "& _ "IS NULL) OR ([aesWP_WarennummerTARIC] = @Original_aesWP_WarennummerTARIC)) AND ("& _ "(@IsNull_aesWP_WarennummerZusatz1 = 1 AND [aesWP_WarennummerZusatz1] IS NULL) OR"& _ " ([aesWP_WarennummerZusatz1] = @Original_aesWP_WarennummerZusatz1)) AND ((@IsNul"& _ "l_aesWP_WarennummerZusatz2 = 1 AND [aesWP_WarennummerZusatz2] IS NULL) OR ([aesW"& _ "P_WarennummerZusatz2] = @Original_aesWP_WarennummerZusatz2)) AND ((@IsNull_aesWP"& _ "_WarennummerNational = 1 AND [aesWP_WarennummerNational] IS NULL) OR ([aesWP_War"& _ "ennummerNational] = @Original_aesWP_WarennummerNational)) AND ((@IsNull_aesWP_Wa"& _ "renbezeichnung = 1 AND [aesWP_Warenbezeichnung] IS NULL) OR ([aesWP_Warenbezeich"& _ "nung] = @Original_aesWP_Warenbezeichnung)) AND ((@IsNull_aesWP_RegisternummerFre"& _ "mdsystem = 1 AND [aesWP_RegisternummerFremdsystem] IS NULL) OR ([aesWP_Registern"& _ "ummerFremdsystem] = @Original_aesWP_RegisternummerFremdsystem)) AND ((@IsNull_ae"& _ "sWP_Vermerk = 1 AND [aesWP_Vermerk] IS NULL) OR ([aesWP_Vermerk] = @Original_aes"& _ "WP_Vermerk)) AND ((@IsNull_aesWP_KennungSendung = 1 AND [aesWP_KennungSendung] I"& _ "S NULL) OR ([aesWP_KennungSendung] = @Original_aesWP_KennungSendung)) AND ((@IsN"& _ "ull_aesWP_UrsprungsbundeslandCode = 1 AND [aesWP_UrsprungsbundeslandCode] IS NUL"& _ "L) OR ([aesWP_UrsprungsbundeslandCode] = @Original_aesWP_UrsprungsbundeslandCode"& _ ")) AND ((@IsNull_aesWP_Eigenmasse = 1 AND [aesWP_Eigenmasse] IS NULL) OR ([aesWP"& _ "_Eigenmasse] = @Original_aesWP_Eigenmasse)) AND ((@IsNull_aesWP_Rohmasse = 1 AND"& _ " [aesWP_Rohmasse] IS NULL) OR ([aesWP_Rohmasse] = @Original_aesWP_Rohmasse)) AND"& _ " ((@IsNull_aesWP_Gefahrgutnummer = 1 AND [aesWP_Gefahrgutnummer] IS NULL) OR ([a"& _ "esWP_Gefahrgutnummer] = @Original_aesWP_Gefahrgutnummer)) AND ((@IsNull_aesWP_Za"& _ "hlungsweiseBefoerderungskosten = 1 AND [aesWP_ZahlungsweiseBefoerderungskosten] "& _ "IS NULL) OR ([aesWP_ZahlungsweiseBefoerderungskosten] = @Original_aesWP_Zahlungs"& _ "weiseBefoerderungskosten)) AND ((@IsNull_aesWP_VerfahrenAngemeldetCode = 1 AND ["& _ "aesWP_VerfahrenAngemeldetCode] IS NULL) OR ([aesWP_VerfahrenAngemeldetCode] = @O"& _ "riginal_aesWP_VerfahrenAngemeldetCode)) AND ((@IsNull_aesWP_VerfahrenVorangegang"& _ "enCode = 1 AND [aesWP_VerfahrenVorangegangenCode] IS NULL) OR ([aesWP_VerfahrenV"& _ "orangegangenCode] = @Original_aesWP_VerfahrenVorangegangenCode)) AND ((@IsNull_a"& _ "esWP_VerfahrenNationalCode = 1 AND [aesWP_VerfahrenNationalCode] IS NULL) OR ([a"& _ "esWP_VerfahrenNationalCode] = @Original_aesWP_VerfahrenNationalCode)) AND ((@IsN"& _ "ull_aesWP_AusfuhrerstattungVerfahrensCode = 1 AND [aesWP_AusfuhrerstattungVerfah"& _ "rensCode] IS NULL) OR ([aesWP_AusfuhrerstattungVerfahrensCode] = @Original_aesWP"& _ "_AusfuhrerstattungVerfahrensCode)) AND ((@IsNull_aesWP_Menge = 1 AND [aesWP_Meng"& _ "e] IS NULL) OR ([aesWP_Menge] = @Original_aesWP_Menge)) AND ((@IsNull_aesWP_Wert"& _ " = 1 AND [aesWP_Wert] IS NULL) OR ([aesWP_Wert] = @Original_aesWP_Wert)) AND ((@"& _ "IsNull_aesWP_VorpapierTypCode1 = 1 AND [aesWP_VorpapierTypCode1] IS NULL) OR ([a"& _ "esWP_VorpapierTypCode1] = @Original_aesWP_VorpapierTypCode1)) AND ((@IsNull_aesW"& _ "P_ReferenzID1 = 1 AND [aesWP_ReferenzID1] IS NULL) OR ([aesWP_ReferenzID1] = @Or"& _ "iginal_aesWP_ReferenzID1)) AND ((@IsNull_aesWP_Zusatz1 = 1 AND [aesWP_Zusatz1] I"& _ "S NULL) OR ([aesWP_Zusatz1] = @Original_aesWP_Zusatz1)) AND ((@IsNull_aesWP_Vorp"& _ "apierTypCode2 = 1 AND [aesWP_VorpapierTypCode2] IS NULL) OR ([aesWP_VorpapierTyp"& _ "Code2] = @Original_aesWP_VorpapierTypCode2)) AND ((@IsNull_aesWP_ReferenzID2 = 1"& _ " AND [aesWP_ReferenzID2] IS NULL) OR ([aesWP_ReferenzID2] = @Original_aesWP_Refe"& _ "renzID2)) AND ((@IsNull_aesWP_Zusatz2 = 1 AND [aesWP_Zusatz2] IS NULL) OR ([aesW"& _ "P_Zusatz2] = @Original_aesWP_Zusatz2)) AND ((@IsNull_aesWP_VorpapierTypCode3 = 1"& _ " AND [aesWP_VorpapierTypCode3] IS NULL) OR ([aesWP_VorpapierTypCode3] = @Origina"& _ "l_aesWP_VorpapierTypCode3)) AND ((@IsNull_aesWP_ReferenzID3 = 1 AND [aesWP_Refer"& _ "enzID3] IS NULL) OR ([aesWP_ReferenzID3] = @Original_aesWP_ReferenzID3)) AND ((@"& _ "IsNull_aesWP_Zusatz3 = 1 AND [aesWP_Zusatz3] IS NULL) OR ([aesWP_Zusatz3] = @Ori"& _ "ginal_aesWP_Zusatz3)) AND ((@IsNull_aesWP_VorpapierTypCode4 = 1 AND [aesWP_Vorpa"& _ "pierTypCode4] IS NULL) OR ([aesWP_VorpapierTypCode4] = @Original_aesWP_Vorpapier"& _ "TypCode4)) AND ((@IsNull_aesWP_ReferenzID4 = 1 AND [aesWP_ReferenzID4] IS NULL) "& _ "OR ([aesWP_ReferenzID4] = @Original_aesWP_ReferenzID4)) AND ((@IsNull_aesWP_Zusa"& _ "tz4 = 1 AND [aesWP_Zusatz4] IS NULL) OR ([aesWP_Zusatz4] = @Original_aesWP_Zusat"& _ "z4)) AND ((@IsNull_aesWP_VorpapierTypCode5 = 1 AND [aesWP_VorpapierTypCode5] IS "& _ "NULL) OR ([aesWP_VorpapierTypCode5] = @Original_aesWP_VorpapierTypCode5)) AND (("& _ "@IsNull_aesWP_ReferenzID5 = 1 AND [aesWP_ReferenzID5] IS NULL) OR ([aesWP_Refere"& _ "nzID5] = @Original_aesWP_ReferenzID5)) AND ((@IsNull_aesWP_Zusatz5 = 1 AND [aesW"& _ "P_Zusatz5] IS NULL) OR ([aesWP_Zusatz5] = @Original_aesWP_Zusatz5)) AND ((@IsNul"& _ "l_aesWP_VorpapierTypCode6 = 1 AND [aesWP_VorpapierTypCode6] IS NULL) OR ([aesWP_"& _ "VorpapierTypCode6] = @Original_aesWP_VorpapierTypCode6)) AND ((@IsNull_aesWP_Ref"& _ "erenzID6 = 1 AND [aesWP_ReferenzID6] IS NULL) OR ([aesWP_ReferenzID6] = @Origina"& _ "l_aesWP_ReferenzID6)) AND ((@IsNull_aesWP_Zusatz6 = 1 AND [aesWP_Zusatz6] IS NUL"& _ "L) OR ([aesWP_Zusatz6] = @Original_aesWP_Zusatz6)) AND ((@IsNull_aesWP_Vorpapier"& _ "TypCode7 = 1 AND [aesWP_VorpapierTypCode7] IS NULL) OR ([aesWP_VorpapierTypCode7"& _ "] = @Original_aesWP_VorpapierTypCode7)) AND ((@IsNull_aesWP_ReferenzID7 = 1 AND "& _ "[aesWP_ReferenzID7] IS NULL) OR ([aesWP_ReferenzID7] = @Original_aesWP_ReferenzI"& _ "D7)) AND ((@IsNull_aesWP_Zusatz7 = 1 AND [aesWP_Zusatz7] IS NULL) OR ([aesWP_Zus"& _ "atz7] = @Original_aesWP_Zusatz7)) AND ((@IsNull_aesWP_VorpapierTypCode8 = 1 AND "& _ "[aesWP_VorpapierTypCode8] IS NULL) OR ([aesWP_VorpapierTypCode8] = @Original_aes"& _ "WP_VorpapierTypCode8)) AND ((@IsNull_aesWP_ReferenzID8 = 1 AND [aesWP_ReferenzID"& _ "8] IS NULL) OR ([aesWP_ReferenzID8] = @Original_aesWP_ReferenzID8)) AND ((@IsNul"& _ "l_aesWP_Zusatz8 = 1 AND [aesWP_Zusatz8] IS NULL) OR ([aesWP_Zusatz8] = @Original"& _ "_aesWP_Zusatz8)) AND ((@IsNull_aesWP_VorpapierTypCode9 = 1 AND [aesWP_VorpapierT"& _ "ypCode9] IS NULL) OR ([aesWP_VorpapierTypCode9] = @Original_aesWP_VorpapierTypCo"& _ "de9)) AND ((@IsNull_aesWP_ReferenzID9 = 1 AND [aesWP_ReferenzID9] IS NULL) OR (["& _ "aesWP_ReferenzID9] = @Original_aesWP_ReferenzID9)) AND ((@IsNull_aesWP_Zusatz9 ="& _ " 1 AND [aesWP_Zusatz9] IS NULL) OR ([aesWP_Zusatz9] = @Original_aesWP_Zusatz9)) "& _ "AND ((@IsNull_aesWP_Containernummer1 = 1 AND [aesWP_Containernummer1] IS NULL) O"& _ "R ([aesWP_Containernummer1] = @Original_aesWP_Containernummer1)) AND ((@IsNull_a"& _ "esWP_Containernummer2 = 1 AND [aesWP_Containernummer2] IS NULL) OR ([aesWP_Conta"& _ "inernummer2] = @Original_aesWP_Containernummer2)) AND ((@IsNull_aesWP_Containern"& _ "ummer3 = 1 AND [aesWP_Containernummer3] IS NULL) OR ([aesWP_Containernummer3] = "& _ "@Original_aesWP_Containernummer3)) AND ((@IsNull_aesWP_Containernummer4 = 1 AND "& _ "[aesWP_Containernummer4] IS NULL) OR ([aesWP_Containernummer4] = @Original_aesWP"& _ "_Containernummer4)) AND ((@IsNull_aesWP_EmpfaengerTeilnehmerEORI = 1 AND [aesWP_"& _ "EmpfaengerTeilnehmerEORI] IS NULL) OR ([aesWP_EmpfaengerTeilnehmerEORI] = @Origi"& _ "nal_aesWP_EmpfaengerTeilnehmerEORI)) AND ((@IsNull_aesWP_EmpfaengerTeilnehmerNLN"& _ "R = 1 AND [aesWP_EmpfaengerTeilnehmerNLNR] IS NULL) OR ([aesWP_EmpfaengerTeilneh"& _ "merNLNR] = @Original_aesWP_EmpfaengerTeilnehmerNLNR)) AND ((@IsNull_aesWP_Empfae"& _ "ngerTeilnehmerName = 1 AND [aesWP_EmpfaengerTeilnehmerName] IS NULL) OR ([aesWP_"& _ "EmpfaengerTeilnehmerName] = @Original_aesWP_EmpfaengerTeilnehmerName)) AND ((@Is"& _ "Null_aesWP_EmpfaengerTeilnehmerStrasse = 1 AND [aesWP_EmpfaengerTeilnehmerStrass"& _ "e] IS NULL) OR ([aesWP_EmpfaengerTeilnehmerStrasse] = @Original_aesWP_Empfaenger"& _ "TeilnehmerStrasse)) AND ((@IsNull_aesWP_EmpfaengerTeilnehmerOrt = 1 AND [aesWP_E"& _ "mpfaengerTeilnehmerOrt] IS NULL) OR ([aesWP_EmpfaengerTeilnehmerOrt] = @Original"& _ "_aesWP_EmpfaengerTeilnehmerOrt)) AND ((@IsNull_aesWP_EmpfaengerTeilnehmerPLZ = 1"& _ " AND [aesWP_EmpfaengerTeilnehmerPLZ] IS NULL) OR ([aesWP_EmpfaengerTeilnehmerPLZ"& _ "] = @Original_aesWP_EmpfaengerTeilnehmerPLZ)) AND ((@IsNull_aesWP_EmpfaengerTeil"& _ "nehmerLandCode = 1 AND [aesWP_EmpfaengerTeilnehmerLandCode] IS NULL) OR ([aesWP_"& _ "EmpfaengerTeilnehmerLandCode] = @Original_aesWP_EmpfaengerTeilnehmerLandCode)) A"& _ "ND ((@IsNull_aesWP_EndverwenderTeilnehmerEORI = 1 AND [aesWP_EndverwenderTeilneh"& _ "merEORI] IS NULL) OR ([aesWP_EndverwenderTeilnehmerEORI] = @Original_aesWP_Endve"& _ "rwenderTeilnehmerEORI)) AND ((@IsNull_aesWP_EndverwenderTeilnehmerNLNR = 1 AND ["& _ "aesWP_EndverwenderTeilnehmerNLNR] IS NULL) OR ([aesWP_EndverwenderTeilnehmerNLNR"& _ "] = @Original_aesWP_EndverwenderTeilnehmerNLNR)) AND ((@IsNull_aesWP_Endverwende"& _ "rTeilnehmerName = 1 AND [aesWP_EndverwenderTeilnehmerName] IS NULL) OR ([aesWP_E"& _ "ndverwenderTeilnehmerName] = @Original_aesWP_EndverwenderTeilnehmerName)) AND (("& _ "@IsNull_aesWP_EndverwenderTeilnehmerStrasse = 1 AND [aesWP_EndverwenderTeilnehme"& _ "rStrasse] IS NULL) OR ([aesWP_EndverwenderTeilnehmerStrasse] = @Original_aesWP_E"& _ "ndverwenderTeilnehmerStrasse)) AND ((@IsNull_aesWP_EndverwenderTeilnehmerOrt = 1"& _ " AND [aesWP_EndverwenderTeilnehmerOrt] IS NULL) OR ([aesWP_EndverwenderTeilnehme"& _ "rOrt] = @Original_aesWP_EndverwenderTeilnehmerOrt)) AND ((@IsNull_aesWP_Endverwe"& _ "nderTeilnehmerPLZ = 1 AND [aesWP_EndverwenderTeilnehmerPLZ] IS NULL) OR ([aesWP_"& _ "EndverwenderTeilnehmerPLZ] = @Original_aesWP_EndverwenderTeilnehmerPLZ)) AND ((@"& _ "IsNull_aesWP_EndverwenderTeilnehmerLandCode = 1 AND [aesWP_EndverwenderTeilnehme"& _ "rLandCode] IS NULL) OR ([aesWP_EndverwenderTeilnehmerLandCode] = @Original_aesWP"& _ "_EndverwenderTeilnehmerLandCode)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_AESId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_AESId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_PositionsNummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aesWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_WarennummerKN8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerKN8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_WarennummerKN8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerKN8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_WarennummerTARIC", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerTARIC", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_WarennummerTARIC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerTARIC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_WarennummerZusatz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_WarennummerZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_WarennummerZusatz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_WarennummerZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_WarennummerNational", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerNational", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_WarennummerNational", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerNational", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Warenbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_RegisternummerFremdsystem", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_RegisternummerFremdsystem", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_RegisternummerFremdsystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_RegisternummerFremdsystem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Vermerk", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Vermerk", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Vermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_KennungSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_KennungSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_KennungSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_KennungSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_UrsprungsbundeslandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_UrsprungsbundeslandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_UrsprungsbundeslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_UrsprungsbundeslandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Eigenmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aesWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Rohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aesWP_Rohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Gefahrgutnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Gefahrgutnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Gefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Gefahrgutnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VerfahrenAngemeldetCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenAngemeldetCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VerfahrenAngemeldetCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenAngemeldetCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VerfahrenVorangegangenCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenVorangegangenCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VerfahrenVorangegangenCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenVorangegangenCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VerfahrenNationalCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenNationalCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VerfahrenNationalCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenNationalCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Menge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Menge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Menge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 3, "aesWP_Menge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Wert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Wert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Wert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 0, "aesWP_Wert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Containernummer1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Containernummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Containernummer2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Containernummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Containernummer3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Containernummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Containernummer4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Containernummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerLandCode", 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].[tblDakosy_AES_Warenposition] ([aesWP_AESId], [aesWP_PositionsN"& _ "ummer], [aesWP_WarennummerKN8], [aesWP_WarennummerTARIC], [aesWP_WarennummerZusa"& _ "tz1], [aesWP_WarennummerZusatz2], [aesWP_WarennummerNational], [aesWP_Warenbezei"& _ "chnung], [aesWP_RegisternummerFremdsystem], [aesWP_Vermerk], [aesWP_KennungSendu"& _ "ng], [aesWP_UrsprungsbundeslandCode], [aesWP_Eigenmasse], [aesWP_Rohmasse], [aes"& _ "WP_Gefahrgutnummer], [aesWP_ZahlungsweiseBefoerderungskosten], [aesWP_VerfahrenA"& _ "ngemeldetCode], [aesWP_VerfahrenVorangegangenCode], [aesWP_VerfahrenNationalCode"& _ "], [aesWP_AusfuhrerstattungVerfahrensCode], [aesWP_Menge], [aesWP_Wert], [aesWP_"& _ "VorpapierTypCode1], [aesWP_ReferenzID1], [aesWP_Zusatz1], [aesWP_VorpapierTypCod"& _ "e2], [aesWP_ReferenzID2], [aesWP_Zusatz2], [aesWP_VorpapierTypCode3], [aesWP_Ref"& _ "erenzID3], [aesWP_Zusatz3], [aesWP_VorpapierTypCode4], [aesWP_ReferenzID4], [aes"& _ "WP_Zusatz4], [aesWP_VorpapierTypCode5], [aesWP_ReferenzID5], [aesWP_Zusatz5], [a"& _ "esWP_VorpapierTypCode6], [aesWP_ReferenzID6], [aesWP_Zusatz6], [aesWP_VorpapierT"& _ "ypCode7], [aesWP_ReferenzID7], [aesWP_Zusatz7], [aesWP_VorpapierTypCode8], [aesW"& _ "P_ReferenzID8], [aesWP_Zusatz8], [aesWP_VorpapierTypCode9], [aesWP_ReferenzID9],"& _ " [aesWP_Zusatz9], [aesWP_Containernummer1], [aesWP_Containernummer2], [aesWP_Con"& _ "tainernummer3], [aesWP_Containernummer4], [aesWP_EmpfaengerTeilnehmerEORI], [aes"& _ "WP_EmpfaengerTeilnehmerNLNR], [aesWP_EmpfaengerTeilnehmerName], [aesWP_Empfaenge"& _ "rTeilnehmerStrasse], [aesWP_EmpfaengerTeilnehmerOrt], [aesWP_EmpfaengerTeilnehme"& _ "rPLZ], [aesWP_EmpfaengerTeilnehmerLandCode], [aesWP_EndverwenderTeilnehmerEORI],"& _ " [aesWP_EndverwenderTeilnehmerNLNR], [aesWP_EndverwenderTeilnehmerName], [aesWP_"& _ "EndverwenderTeilnehmerStrasse], [aesWP_EndverwenderTeilnehmerOrt], [aesWP_Endver"& _ "wenderTeilnehmerPLZ], [aesWP_EndverwenderTeilnehmerLandCode]) VALUES (@aesWP_AES"& _ "Id, @aesWP_PositionsNummer, @aesWP_WarennummerKN8, @aesWP_WarennummerTARIC, @aes"& _ "WP_WarennummerZusatz1, @aesWP_WarennummerZusatz2, @aesWP_WarennummerNational, @a"& _ "esWP_Warenbezeichnung, @aesWP_RegisternummerFremdsystem, @aesWP_Vermerk, @aesWP_"& _ "KennungSendung, @aesWP_UrsprungsbundeslandCode, @aesWP_Eigenmasse, @aesWP_Rohmas"& _ "se, @aesWP_Gefahrgutnummer, @aesWP_ZahlungsweiseBefoerderungskosten, @aesWP_Verf"& _ "ahrenAngemeldetCode, @aesWP_VerfahrenVorangegangenCode, @aesWP_VerfahrenNational"& _ "Code, @aesWP_AusfuhrerstattungVerfahrensCode, @aesWP_Menge, @aesWP_Wert, @aesWP_"& _ "VorpapierTypCode1, @aesWP_ReferenzID1, @aesWP_Zusatz1, @aesWP_VorpapierTypCode2,"& _ " @aesWP_ReferenzID2, @aesWP_Zusatz2, @aesWP_VorpapierTypCode3, @aesWP_ReferenzID"& _ "3, @aesWP_Zusatz3, @aesWP_VorpapierTypCode4, @aesWP_ReferenzID4, @aesWP_Zusatz4,"& _ " @aesWP_VorpapierTypCode5, @aesWP_ReferenzID5, @aesWP_Zusatz5, @aesWP_VorpapierT"& _ "ypCode6, @aesWP_ReferenzID6, @aesWP_Zusatz6, @aesWP_VorpapierTypCode7, @aesWP_Re"& _ "ferenzID7, @aesWP_Zusatz7, @aesWP_VorpapierTypCode8, @aesWP_ReferenzID8, @aesWP_"& _ "Zusatz8, @aesWP_VorpapierTypCode9, @aesWP_ReferenzID9, @aesWP_Zusatz9, @aesWP_Co"& _ "ntainernummer1, @aesWP_Containernummer2, @aesWP_Containernummer3, @aesWP_Contain"& _ "ernummer4, @aesWP_EmpfaengerTeilnehmerEORI, @aesWP_EmpfaengerTeilnehmerNLNR, @ae"& _ "sWP_EmpfaengerTeilnehmerName, @aesWP_EmpfaengerTeilnehmerStrasse, @aesWP_Empfaen"& _ "gerTeilnehmerOrt, @aesWP_EmpfaengerTeilnehmerPLZ, @aesWP_EmpfaengerTeilnehmerLan"& _ "dCode, @aesWP_EndverwenderTeilnehmerEORI, @aesWP_EndverwenderTeilnehmerNLNR, @ae"& _ "sWP_EndverwenderTeilnehmerName, @aesWP_EndverwenderTeilnehmerStrasse, @aesWP_End"& _ "verwenderTeilnehmerOrt, @aesWP_EndverwenderTeilnehmerPLZ, @aesWP_EndverwenderTei"& _ "lnehmerLandCode);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT aesWP_Id, aesWP_AESId, aesWP_PositionsNummer, aesWP_Wa"& _ "rennummerKN8, aesWP_WarennummerTARIC, aesWP_WarennummerZusatz1, aesWP_Warennumme"& _ "rZusatz2, aesWP_WarennummerNational, aesWP_Warenbezeichnung, aesWP_Registernumme"& _ "rFremdsystem, aesWP_Vermerk, aesWP_KennungSendung, aesWP_UrsprungsbundeslandCode"& _ ", aesWP_Eigenmasse, aesWP_Rohmasse, aesWP_Gefahrgutnummer, aesWP_ZahlungsweiseBe"& _ "foerderungskosten, aesWP_VerfahrenAngemeldetCode, aesWP_VerfahrenVorangegangenCo"& _ "de, aesWP_VerfahrenNationalCode, aesWP_AusfuhrerstattungVerfahrensCode, aesWP_Me"& _ "nge, aesWP_Wert, aesWP_VorpapierTypCode1, aesWP_ReferenzID1, aesWP_Zusatz1, aesW"& _ "P_VorpapierTypCode2, aesWP_ReferenzID2, aesWP_Zusatz2, aesWP_VorpapierTypCode3, "& _ "aesWP_ReferenzID3, aesWP_Zusatz3, aesWP_VorpapierTypCode4, aesWP_ReferenzID4, ae"& _ "sWP_Zusatz4, aesWP_VorpapierTypCode5, aesWP_ReferenzID5, aesWP_Zusatz5, aesWP_Vo"& _ "rpapierTypCode6, aesWP_ReferenzID6, aesWP_Zusatz6, aesWP_VorpapierTypCode7, aesW"& _ "P_ReferenzID7, aesWP_Zusatz7, aesWP_VorpapierTypCode8, aesWP_ReferenzID8, aesWP_"& _ "Zusatz8, aesWP_VorpapierTypCode9, aesWP_ReferenzID9, aesWP_Zusatz9, aesWP_Contai"& _ "nernummer1, aesWP_Containernummer2, aesWP_Containernummer3, aesWP_Containernumme"& _ "r4, aesWP_EmpfaengerTeilnehmerEORI, aesWP_EmpfaengerTeilnehmerNLNR, aesWP_Empfae"& _ "ngerTeilnehmerName, aesWP_EmpfaengerTeilnehmerStrasse, aesWP_EmpfaengerTeilnehme"& _ "rOrt, aesWP_EmpfaengerTeilnehmerPLZ, aesWP_EmpfaengerTeilnehmerLandCode, aesWP_E"& _ "ndverwenderTeilnehmerEORI, aesWP_EndverwenderTeilnehmerNLNR, aesWP_EndverwenderT"& _ "eilnehmerName, aesWP_EndverwenderTeilnehmerStrasse, aesWP_EndverwenderTeilnehmer"& _ "Ort, aesWP_EndverwenderTeilnehmerPLZ, aesWP_EndverwenderTeilnehmerLandCode FROM "& _ "tblDakosy_AES_Warenposition WHERE (aesWP_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_AESId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_AESId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aesWP_PositionsNummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_WarennummerKN8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerKN8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_WarennummerTARIC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerTARIC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_WarennummerZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_WarennummerZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_WarennummerNational", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerNational", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_RegisternummerFremdsystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_RegisternummerFremdsystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_KennungSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_KennungSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_UrsprungsbundeslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_UrsprungsbundeslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aesWP_Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aesWP_Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Gefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Gefahrgutnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VerfahrenAngemeldetCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenAngemeldetCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VerfahrenVorangegangenCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenVorangegangenCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VerfahrenNationalCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenNationalCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Menge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 3, "aesWP_Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Wert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 0, "aesWP_Wert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Containernummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Containernummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Containernummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Containernummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerLandCode", 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].[tblDakosy_AES_Warenposition] SET [aesWP_AESId] = @aesWP_AESId, [aes"& _ "WP_PositionsNummer] = @aesWP_PositionsNummer, [aesWP_WarennummerKN8] = @aesWP_Wa"& _ "rennummerKN8, [aesWP_WarennummerTARIC] = @aesWP_WarennummerTARIC, [aesWP_Warennu"& _ "mmerZusatz1] = @aesWP_WarennummerZusatz1, [aesWP_WarennummerZusatz2] = @aesWP_Wa"& _ "rennummerZusatz2, [aesWP_WarennummerNational] = @aesWP_WarennummerNational, [aes"& _ "WP_Warenbezeichnung] = @aesWP_Warenbezeichnung, [aesWP_RegisternummerFremdsystem"& _ "] = @aesWP_RegisternummerFremdsystem, [aesWP_Vermerk] = @aesWP_Vermerk, [aesWP_K"& _ "ennungSendung] = @aesWP_KennungSendung, [aesWP_UrsprungsbundeslandCode] = @aesWP"& _ "_UrsprungsbundeslandCode, [aesWP_Eigenmasse] = @aesWP_Eigenmasse, [aesWP_Rohmass"& _ "e] = @aesWP_Rohmasse, [aesWP_Gefahrgutnummer] = @aesWP_Gefahrgutnummer, [aesWP_Z"& _ "ahlungsweiseBefoerderungskosten] = @aesWP_ZahlungsweiseBefoerderungskosten, [aes"& _ "WP_VerfahrenAngemeldetCode] = @aesWP_VerfahrenAngemeldetCode, [aesWP_VerfahrenVo"& _ "rangegangenCode] = @aesWP_VerfahrenVorangegangenCode, [aesWP_VerfahrenNationalCo"& _ "de] = @aesWP_VerfahrenNationalCode, [aesWP_AusfuhrerstattungVerfahrensCode] = @a"& _ "esWP_AusfuhrerstattungVerfahrensCode, [aesWP_Menge] = @aesWP_Menge, [aesWP_Wert]"& _ " = @aesWP_Wert, [aesWP_VorpapierTypCode1] = @aesWP_VorpapierTypCode1, [aesWP_Ref"& _ "erenzID1] = @aesWP_ReferenzID1, [aesWP_Zusatz1] = @aesWP_Zusatz1, [aesWP_Vorpapi"& _ "erTypCode2] = @aesWP_VorpapierTypCode2, [aesWP_ReferenzID2] = @aesWP_ReferenzID2"& _ ", [aesWP_Zusatz2] = @aesWP_Zusatz2, [aesWP_VorpapierTypCode3] = @aesWP_Vorpapier"& _ "TypCode3, [aesWP_ReferenzID3] = @aesWP_ReferenzID3, [aesWP_Zusatz3] = @aesWP_Zus"& _ "atz3, [aesWP_VorpapierTypCode4] = @aesWP_VorpapierTypCode4, [aesWP_ReferenzID4] "& _ "= @aesWP_ReferenzID4, [aesWP_Zusatz4] = @aesWP_Zusatz4, [aesWP_VorpapierTypCode5"& _ "] = @aesWP_VorpapierTypCode5, [aesWP_ReferenzID5] = @aesWP_ReferenzID5, [aesWP_Z"& _ "usatz5] = @aesWP_Zusatz5, [aesWP_VorpapierTypCode6] = @aesWP_VorpapierTypCode6, "& _ "[aesWP_ReferenzID6] = @aesWP_ReferenzID6, [aesWP_Zusatz6] = @aesWP_Zusatz6, [aes"& _ "WP_VorpapierTypCode7] = @aesWP_VorpapierTypCode7, [aesWP_ReferenzID7] = @aesWP_R"& _ "eferenzID7, [aesWP_Zusatz7] = @aesWP_Zusatz7, [aesWP_VorpapierTypCode8] = @aesWP"& _ "_VorpapierTypCode8, [aesWP_ReferenzID8] = @aesWP_ReferenzID8, [aesWP_Zusatz8] = "& _ "@aesWP_Zusatz8, [aesWP_VorpapierTypCode9] = @aesWP_VorpapierTypCode9, [aesWP_Ref"& _ "erenzID9] = @aesWP_ReferenzID9, [aesWP_Zusatz9] = @aesWP_Zusatz9, [aesWP_Contain"& _ "ernummer1] = @aesWP_Containernummer1, [aesWP_Containernummer2] = @aesWP_Containe"& _ "rnummer2, [aesWP_Containernummer3] = @aesWP_Containernummer3, [aesWP_Containernu"& _ "mmer4] = @aesWP_Containernummer4, [aesWP_EmpfaengerTeilnehmerEORI] = @aesWP_Empf"& _ "aengerTeilnehmerEORI, [aesWP_EmpfaengerTeilnehmerNLNR] = @aesWP_EmpfaengerTeilne"& _ "hmerNLNR, [aesWP_EmpfaengerTeilnehmerName] = @aesWP_EmpfaengerTeilnehmerName, [a"& _ "esWP_EmpfaengerTeilnehmerStrasse] = @aesWP_EmpfaengerTeilnehmerStrasse, [aesWP_E"& _ "mpfaengerTeilnehmerOrt] = @aesWP_EmpfaengerTeilnehmerOrt, [aesWP_EmpfaengerTeiln"& _ "ehmerPLZ] = @aesWP_EmpfaengerTeilnehmerPLZ, [aesWP_EmpfaengerTeilnehmerLandCode]"& _ " = @aesWP_EmpfaengerTeilnehmerLandCode, [aesWP_EndverwenderTeilnehmerEORI] = @ae"& _ "sWP_EndverwenderTeilnehmerEORI, [aesWP_EndverwenderTeilnehmerNLNR] = @aesWP_Endv"& _ "erwenderTeilnehmerNLNR, [aesWP_EndverwenderTeilnehmerName] = @aesWP_Endverwender"& _ "TeilnehmerName, [aesWP_EndverwenderTeilnehmerStrasse] = @aesWP_EndverwenderTeiln"& _ "ehmerStrasse, [aesWP_EndverwenderTeilnehmerOrt] = @aesWP_EndverwenderTeilnehmerO"& _ "rt, [aesWP_EndverwenderTeilnehmerPLZ] = @aesWP_EndverwenderTeilnehmerPLZ, [aesWP"& _ "_EndverwenderTeilnehmerLandCode] = @aesWP_EndverwenderTeilnehmerLandCode WHERE ("& _ "([aesWP_Id] = @Original_aesWP_Id) AND ([aesWP_AESId] = @Original_aesWP_AESId) AN"& _ "D ((@IsNull_aesWP_PositionsNummer = 1 AND [aesWP_PositionsNummer] IS NULL) OR (["& _ "aesWP_PositionsNummer] = @Original_aesWP_PositionsNummer)) AND ((@IsNull_aesWP_W"& _ "arennummerKN8 = 1 AND [aesWP_WarennummerKN8] IS NULL) OR ([aesWP_WarennummerKN8]"& _ " = @Original_aesWP_WarennummerKN8)) AND ((@IsNull_aesWP_WarennummerTARIC = 1 AND"& _ " [aesWP_WarennummerTARIC] IS NULL) OR ([aesWP_WarennummerTARIC] = @Original_aesW"& _ "P_WarennummerTARIC)) AND ((@IsNull_aesWP_WarennummerZusatz1 = 1 AND [aesWP_Waren"& _ "nummerZusatz1] IS NULL) OR ([aesWP_WarennummerZusatz1] = @Original_aesWP_Warennu"& _ "mmerZusatz1)) AND ((@IsNull_aesWP_WarennummerZusatz2 = 1 AND [aesWP_WarennummerZ"& _ "usatz2] IS NULL) OR ([aesWP_WarennummerZusatz2] = @Original_aesWP_WarennummerZus"& _ "atz2)) AND ((@IsNull_aesWP_WarennummerNational = 1 AND [aesWP_WarennummerNationa"& _ "l] IS NULL) OR ([aesWP_WarennummerNational] = @Original_aesWP_WarennummerNationa"& _ "l)) AND ((@IsNull_aesWP_Warenbezeichnung = 1 AND [aesWP_Warenbezeichnung] IS NUL"& _ "L) OR ([aesWP_Warenbezeichnung] = @Original_aesWP_Warenbezeichnung)) AND ((@IsNu"& _ "ll_aesWP_RegisternummerFremdsystem = 1 AND [aesWP_RegisternummerFremdsystem] IS "& _ "NULL) OR ([aesWP_RegisternummerFremdsystem] = @Original_aesWP_RegisternummerFrem"& _ "dsystem)) AND ((@IsNull_aesWP_Vermerk = 1 AND [aesWP_Vermerk] IS NULL) OR ([aesW"& _ "P_Vermerk] = @Original_aesWP_Vermerk)) AND ((@IsNull_aesWP_KennungSendung = 1 AN"& _ "D [aesWP_KennungSendung] IS NULL) OR ([aesWP_KennungSendung] = @Original_aesWP_K"& _ "ennungSendung)) AND ((@IsNull_aesWP_UrsprungsbundeslandCode = 1 AND [aesWP_Urspr"& _ "ungsbundeslandCode] IS NULL) OR ([aesWP_UrsprungsbundeslandCode] = @Original_aes"& _ "WP_UrsprungsbundeslandCode)) AND ((@IsNull_aesWP_Eigenmasse = 1 AND [aesWP_Eigen"& _ "masse] IS NULL) OR ([aesWP_Eigenmasse] = @Original_aesWP_Eigenmasse)) AND ((@IsN"& _ "ull_aesWP_Rohmasse = 1 AND [aesWP_Rohmasse] IS NULL) OR ([aesWP_Rohmasse] = @Ori"& _ "ginal_aesWP_Rohmasse)) AND ((@IsNull_aesWP_Gefahrgutnummer = 1 AND [aesWP_Gefahr"& _ "gutnummer] IS NULL) OR ([aesWP_Gefahrgutnummer] = @Original_aesWP_Gefahrgutnumme"& _ "r)) AND ((@IsNull_aesWP_ZahlungsweiseBefoerderungskosten = 1 AND [aesWP_Zahlungs"& _ "weiseBefoerderungskosten] IS NULL) OR ([aesWP_ZahlungsweiseBefoerderungskosten] "& _ "= @Original_aesWP_ZahlungsweiseBefoerderungskosten)) AND ((@IsNull_aesWP_Verfahr"& _ "enAngemeldetCode = 1 AND [aesWP_VerfahrenAngemeldetCode] IS NULL) OR ([aesWP_Ver"& _ "fahrenAngemeldetCode] = @Original_aesWP_VerfahrenAngemeldetCode)) AND ((@IsNull_"& _ "aesWP_VerfahrenVorangegangenCode = 1 AND [aesWP_VerfahrenVorangegangenCode] IS N"& _ "ULL) OR ([aesWP_VerfahrenVorangegangenCode] = @Original_aesWP_VerfahrenVorangega"& _ "ngenCode)) AND ((@IsNull_aesWP_VerfahrenNationalCode = 1 AND [aesWP_VerfahrenNat"& _ "ionalCode] IS NULL) OR ([aesWP_VerfahrenNationalCode] = @Original_aesWP_Verfahre"& _ "nNationalCode)) AND ((@IsNull_aesWP_AusfuhrerstattungVerfahrensCode = 1 AND [aes"& _ "WP_AusfuhrerstattungVerfahrensCode] IS NULL) OR ([aesWP_AusfuhrerstattungVerfahr"& _ "ensCode] = @Original_aesWP_AusfuhrerstattungVerfahrensCode)) AND ((@IsNull_aesWP"& _ "_Menge = 1 AND [aesWP_Menge] IS NULL) OR ([aesWP_Menge] = @Original_aesWP_Menge)"& _ ") AND ((@IsNull_aesWP_Wert = 1 AND [aesWP_Wert] IS NULL) OR ([aesWP_Wert] = @Ori"& _ "ginal_aesWP_Wert)) AND ((@IsNull_aesWP_VorpapierTypCode1 = 1 AND [aesWP_Vorpapie"& _ "rTypCode1] IS NULL) OR ([aesWP_VorpapierTypCode1] = @Original_aesWP_VorpapierTyp"& _ "Code1)) AND ((@IsNull_aesWP_ReferenzID1 = 1 AND [aesWP_ReferenzID1] IS NULL) OR "& _ "([aesWP_ReferenzID1] = @Original_aesWP_ReferenzID1)) AND ((@IsNull_aesWP_Zusatz1"& _ " = 1 AND [aesWP_Zusatz1] IS NULL) OR ([aesWP_Zusatz1] = @Original_aesWP_Zusatz1)"& _ ") AND ((@IsNull_aesWP_VorpapierTypCode2 = 1 AND [aesWP_VorpapierTypCode2] IS NUL"& _ "L) OR ([aesWP_VorpapierTypCode2] = @Original_aesWP_VorpapierTypCode2)) AND ((@Is"& _ "Null_aesWP_ReferenzID2 = 1 AND [aesWP_ReferenzID2] IS NULL) OR ([aesWP_ReferenzI"& _ "D2] = @Original_aesWP_ReferenzID2)) AND ((@IsNull_aesWP_Zusatz2 = 1 AND [aesWP_Z"& _ "usatz2] IS NULL) OR ([aesWP_Zusatz2] = @Original_aesWP_Zusatz2)) AND ((@IsNull_a"& _ "esWP_VorpapierTypCode3 = 1 AND [aesWP_VorpapierTypCode3] IS NULL) OR ([aesWP_Vor"& _ "papierTypCode3] = @Original_aesWP_VorpapierTypCode3)) AND ((@IsNull_aesWP_Refere"& _ "nzID3 = 1 AND [aesWP_ReferenzID3] IS NULL) OR ([aesWP_ReferenzID3] = @Original_a"& _ "esWP_ReferenzID3)) AND ((@IsNull_aesWP_Zusatz3 = 1 AND [aesWP_Zusatz3] IS NULL) "& _ "OR ([aesWP_Zusatz3] = @Original_aesWP_Zusatz3)) AND ((@IsNull_aesWP_VorpapierTyp"& _ "Code4 = 1 AND [aesWP_VorpapierTypCode4] IS NULL) OR ([aesWP_VorpapierTypCode4] ="& _ " @Original_aesWP_VorpapierTypCode4)) AND ((@IsNull_aesWP_ReferenzID4 = 1 AND [ae"& _ "sWP_ReferenzID4] IS NULL) OR ([aesWP_ReferenzID4] = @Original_aesWP_ReferenzID4)"& _ ") AND ((@IsNull_aesWP_Zusatz4 = 1 AND [aesWP_Zusatz4] IS NULL) OR ([aesWP_Zusatz"& _ "4] = @Original_aesWP_Zusatz4)) AND ((@IsNull_aesWP_VorpapierTypCode5 = 1 AND [ae"& _ "sWP_VorpapierTypCode5] IS NULL) OR ([aesWP_VorpapierTypCode5] = @Original_aesWP_"& _ "VorpapierTypCode5)) AND ((@IsNull_aesWP_ReferenzID5 = 1 AND [aesWP_ReferenzID5] "& _ "IS NULL) OR ([aesWP_ReferenzID5] = @Original_aesWP_ReferenzID5)) AND ((@IsNull_a"& _ "esWP_Zusatz5 = 1 AND [aesWP_Zusatz5] IS NULL) OR ([aesWP_Zusatz5] = @Original_ae"& _ "sWP_Zusatz5)) AND ((@IsNull_aesWP_VorpapierTypCode6 = 1 AND [aesWP_VorpapierTypC"& _ "ode6] IS NULL) OR ([aesWP_VorpapierTypCode6] = @Original_aesWP_VorpapierTypCode6"& _ ")) AND ((@IsNull_aesWP_ReferenzID6 = 1 AND [aesWP_ReferenzID6] IS NULL) OR ([aes"& _ "WP_ReferenzID6] = @Original_aesWP_ReferenzID6)) AND ((@IsNull_aesWP_Zusatz6 = 1 "& _ "AND [aesWP_Zusatz6] IS NULL) OR ([aesWP_Zusatz6] = @Original_aesWP_Zusatz6)) AND"& _ " ((@IsNull_aesWP_VorpapierTypCode7 = 1 AND [aesWP_VorpapierTypCode7] IS NULL) OR"& _ " ([aesWP_VorpapierTypCode7] = @Original_aesWP_VorpapierTypCode7)) AND ((@IsNull_"& _ "aesWP_ReferenzID7 = 1 AND [aesWP_ReferenzID7] IS NULL) OR ([aesWP_ReferenzID7] ="& _ " @Original_aesWP_ReferenzID7)) AND ((@IsNull_aesWP_Zusatz7 = 1 AND [aesWP_Zusatz"& _ "7] IS NULL) OR ([aesWP_Zusatz7] = @Original_aesWP_Zusatz7)) AND ((@IsNull_aesWP_"& _ "VorpapierTypCode8 = 1 AND [aesWP_VorpapierTypCode8] IS NULL) OR ([aesWP_Vorpapie"& _ "rTypCode8] = @Original_aesWP_VorpapierTypCode8)) AND ((@IsNull_aesWP_ReferenzID8"& _ " = 1 AND [aesWP_ReferenzID8] IS NULL) OR ([aesWP_ReferenzID8] = @Original_aesWP_"& _ "ReferenzID8)) AND ((@IsNull_aesWP_Zusatz8 = 1 AND [aesWP_Zusatz8] IS NULL) OR (["& _ "aesWP_Zusatz8] = @Original_aesWP_Zusatz8)) AND ((@IsNull_aesWP_VorpapierTypCode9"& _ " = 1 AND [aesWP_VorpapierTypCode9] IS NULL) OR ([aesWP_VorpapierTypCode9] = @Ori"& _ "ginal_aesWP_VorpapierTypCode9)) AND ((@IsNull_aesWP_ReferenzID9 = 1 AND [aesWP_R"& _ "eferenzID9] IS NULL) OR ([aesWP_ReferenzID9] = @Original_aesWP_ReferenzID9)) AND"& _ " ((@IsNull_aesWP_Zusatz9 = 1 AND [aesWP_Zusatz9] IS NULL) OR ([aesWP_Zusatz9] = "& _ "@Original_aesWP_Zusatz9)) AND ((@IsNull_aesWP_Containernummer1 = 1 AND [aesWP_Co"& _ "ntainernummer1] IS NULL) OR ([aesWP_Containernummer1] = @Original_aesWP_Containe"& _ "rnummer1)) AND ((@IsNull_aesWP_Containernummer2 = 1 AND [aesWP_Containernummer2]"& _ " IS NULL) OR ([aesWP_Containernummer2] = @Original_aesWP_Containernummer2)) AND "& _ "((@IsNull_aesWP_Containernummer3 = 1 AND [aesWP_Containernummer3] IS NULL) OR (["& _ "aesWP_Containernummer3] = @Original_aesWP_Containernummer3)) AND ((@IsNull_aesWP"& _ "_Containernummer4 = 1 AND [aesWP_Containernummer4] IS NULL) OR ([aesWP_Container"& _ "nummer4] = @Original_aesWP_Containernummer4)) AND ((@IsNull_aesWP_EmpfaengerTeil"& _ "nehmerEORI = 1 AND [aesWP_EmpfaengerTeilnehmerEORI] IS NULL) OR ([aesWP_Empfaeng"& _ "erTeilnehmerEORI] = @Original_aesWP_EmpfaengerTeilnehmerEORI)) AND ((@IsNull_aes"& _ "WP_EmpfaengerTeilnehmerNLNR = 1 AND [aesWP_EmpfaengerTeilnehmerNLNR] IS NULL) OR"& _ " ([aesWP_EmpfaengerTeilnehmerNLNR] = @Original_aesWP_EmpfaengerTeilnehmerNLNR)) "& _ "AND ((@IsNull_aesWP_EmpfaengerTeilnehmerName = 1 AND [aesWP_EmpfaengerTeilnehmer"& _ "Name] IS NULL) OR ([aesWP_EmpfaengerTeilnehmerName] = @Original_aesWP_Empfaenger"& _ "TeilnehmerName)) AND ((@IsNull_aesWP_EmpfaengerTeilnehmerStrasse = 1 AND [aesWP_"& _ "EmpfaengerTeilnehmerStrasse] IS NULL) OR ([aesWP_EmpfaengerTeilnehmerStrasse] = "& _ "@Original_aesWP_EmpfaengerTeilnehmerStrasse)) AND ((@IsNull_aesWP_EmpfaengerTeil"& _ "nehmerOrt = 1 AND [aesWP_EmpfaengerTeilnehmerOrt] IS NULL) OR ([aesWP_Empfaenger"& _ "TeilnehmerOrt] = @Original_aesWP_EmpfaengerTeilnehmerOrt)) AND ((@IsNull_aesWP_E"& _ "mpfaengerTeilnehmerPLZ = 1 AND [aesWP_EmpfaengerTeilnehmerPLZ] IS NULL) OR ([aes"& _ "WP_EmpfaengerTeilnehmerPLZ] = @Original_aesWP_EmpfaengerTeilnehmerPLZ)) AND ((@I"& _ "sNull_aesWP_EmpfaengerTeilnehmerLandCode = 1 AND [aesWP_EmpfaengerTeilnehmerLand"& _ "Code] IS NULL) OR ([aesWP_EmpfaengerTeilnehmerLandCode] = @Original_aesWP_Empfae"& _ "ngerTeilnehmerLandCode)) AND ((@IsNull_aesWP_EndverwenderTeilnehmerEORI = 1 AND "& _ "[aesWP_EndverwenderTeilnehmerEORI] IS NULL) OR ([aesWP_EndverwenderTeilnehmerEOR"& _ "I] = @Original_aesWP_EndverwenderTeilnehmerEORI)) AND ((@IsNull_aesWP_Endverwend"& _ "erTeilnehmerNLNR = 1 AND [aesWP_EndverwenderTeilnehmerNLNR] IS NULL) OR ([aesWP_"& _ "EndverwenderTeilnehmerNLNR] = @Original_aesWP_EndverwenderTeilnehmerNLNR)) AND ("& _ "(@IsNull_aesWP_EndverwenderTeilnehmerName = 1 AND [aesWP_EndverwenderTeilnehmerN"& _ "ame] IS NULL) OR ([aesWP_EndverwenderTeilnehmerName] = @Original_aesWP_Endverwen"& _ "derTeilnehmerName)) AND ((@IsNull_aesWP_EndverwenderTeilnehmerStrasse = 1 AND [a"& _ "esWP_EndverwenderTeilnehmerStrasse] IS NULL) OR ([aesWP_EndverwenderTeilnehmerSt"& _ "rasse] = @Original_aesWP_EndverwenderTeilnehmerStrasse)) AND ((@IsNull_aesWP_End"& _ "verwenderTeilnehmerOrt = 1 AND [aesWP_EndverwenderTeilnehmerOrt] IS NULL) OR ([a"& _ "esWP_EndverwenderTeilnehmerOrt] = @Original_aesWP_EndverwenderTeilnehmerOrt)) AN"& _ "D ((@IsNull_aesWP_EndverwenderTeilnehmerPLZ = 1 AND [aesWP_EndverwenderTeilnehme"& _ "rPLZ] IS NULL) OR ([aesWP_EndverwenderTeilnehmerPLZ] = @Original_aesWP_Endverwen"& _ "derTeilnehmerPLZ)) AND ((@IsNull_aesWP_EndverwenderTeilnehmerLandCode = 1 AND [a"& _ "esWP_EndverwenderTeilnehmerLandCode] IS NULL) OR ([aesWP_EndverwenderTeilnehmerL"& _ "andCode] = @Original_aesWP_EndverwenderTeilnehmerLandCode)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT aesWP_Id, "& _ "aesWP_AESId, aesWP_PositionsNummer, aesWP_WarennummerKN8, aesWP_WarennummerTARIC"& _ ", aesWP_WarennummerZusatz1, aesWP_WarennummerZusatz2, aesWP_WarennummerNational,"& _ " aesWP_Warenbezeichnung, aesWP_RegisternummerFremdsystem, aesWP_Vermerk, aesWP_K"& _ "ennungSendung, aesWP_UrsprungsbundeslandCode, aesWP_Eigenmasse, aesWP_Rohmasse, "& _ "aesWP_Gefahrgutnummer, aesWP_ZahlungsweiseBefoerderungskosten, aesWP_VerfahrenAn"& _ "gemeldetCode, aesWP_VerfahrenVorangegangenCode, aesWP_VerfahrenNationalCode, aes"& _ "WP_AusfuhrerstattungVerfahrensCode, aesWP_Menge, aesWP_Wert, aesWP_VorpapierTypC"& _ "ode1, aesWP_ReferenzID1, aesWP_Zusatz1, aesWP_VorpapierTypCode2, aesWP_ReferenzI"& _ "D2, aesWP_Zusatz2, aesWP_VorpapierTypCode3, aesWP_ReferenzID3, aesWP_Zusatz3, ae"& _ "sWP_VorpapierTypCode4, aesWP_ReferenzID4, aesWP_Zusatz4, aesWP_VorpapierTypCode5"& _ ", aesWP_ReferenzID5, aesWP_Zusatz5, aesWP_VorpapierTypCode6, aesWP_ReferenzID6, "& _ "aesWP_Zusatz6, aesWP_VorpapierTypCode7, aesWP_ReferenzID7, aesWP_Zusatz7, aesWP_"& _ "VorpapierTypCode8, aesWP_ReferenzID8, aesWP_Zusatz8, aesWP_VorpapierTypCode9, ae"& _ "sWP_ReferenzID9, aesWP_Zusatz9, aesWP_Containernummer1, aesWP_Containernummer2, "& _ "aesWP_Containernummer3, aesWP_Containernummer4, aesWP_EmpfaengerTeilnehmerEORI, "& _ "aesWP_EmpfaengerTeilnehmerNLNR, aesWP_EmpfaengerTeilnehmerName, aesWP_Empfaenger"& _ "TeilnehmerStrasse, aesWP_EmpfaengerTeilnehmerOrt, aesWP_EmpfaengerTeilnehmerPLZ,"& _ " aesWP_EmpfaengerTeilnehmerLandCode, aesWP_EndverwenderTeilnehmerEORI, aesWP_End"& _ "verwenderTeilnehmerNLNR, aesWP_EndverwenderTeilnehmerName, aesWP_EndverwenderTei"& _ "lnehmerStrasse, aesWP_EndverwenderTeilnehmerOrt, aesWP_EndverwenderTeilnehmerPLZ"& _ ", aesWP_EndverwenderTeilnehmerLandCode FROM tblDakosy_AES_Warenposition WHERE (a"& _ "esWP_Id = @aesWP_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_AESId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_AESId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aesWP_PositionsNummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_WarennummerKN8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerKN8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_WarennummerTARIC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerTARIC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_WarennummerZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_WarennummerZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_WarennummerNational", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerNational", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_RegisternummerFremdsystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_RegisternummerFremdsystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_KennungSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_KennungSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_UrsprungsbundeslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_UrsprungsbundeslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aesWP_Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aesWP_Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Gefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Gefahrgutnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VerfahrenAngemeldetCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenAngemeldetCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VerfahrenVorangegangenCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenVorangegangenCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VerfahrenNationalCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenNationalCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Menge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 3, "aesWP_Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Wert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 0, "aesWP_Wert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_VorpapierTypCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_ReferenzID9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Zusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Containernummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Containernummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Containernummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Containernummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_EndverwenderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_AESId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_AESId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_PositionsNummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "aesWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_WarennummerKN8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerKN8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_WarennummerKN8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerKN8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_WarennummerTARIC", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerTARIC", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_WarennummerTARIC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerTARIC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_WarennummerZusatz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_WarennummerZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_WarennummerZusatz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_WarennummerZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerZusatz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_WarennummerNational", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerNational", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_WarennummerNational", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_WarennummerNational", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Warenbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_RegisternummerFremdsystem", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_RegisternummerFremdsystem", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_RegisternummerFremdsystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_RegisternummerFremdsystem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Vermerk", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Vermerk", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Vermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_KennungSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_KennungSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_KennungSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_KennungSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_UrsprungsbundeslandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_UrsprungsbundeslandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_UrsprungsbundeslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_UrsprungsbundeslandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Eigenmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aesWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Rohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "aesWP_Rohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Gefahrgutnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Gefahrgutnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Gefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Gefahrgutnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ZahlungsweiseBefoerderungskosten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VerfahrenAngemeldetCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenAngemeldetCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VerfahrenAngemeldetCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenAngemeldetCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VerfahrenVorangegangenCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenVorangegangenCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VerfahrenVorangegangenCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenVorangegangenCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VerfahrenNationalCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenNationalCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VerfahrenNationalCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VerfahrenNationalCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_AusfuhrerstattungVerfahrensCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Menge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Menge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Menge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 3, "aesWP_Menge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Wert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Wert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Wert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 0, "aesWP_Wert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_VorpapierTypCode9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_VorpapierTypCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_VorpapierTypCode9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_ReferenzID9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_ReferenzID9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_ReferenzID9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Zusatz9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Zusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Zusatz9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Containernummer1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Containernummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Containernummer2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Containernummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Containernummer3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Containernummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_Containernummer4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_Containernummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Containernummer4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EmpfaengerTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerStrasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerPLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWP_EndverwenderTeilnehmerLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWP_EndverwenderTeilnehmerLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_EndverwenderTeilnehmerLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWP_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWP_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 aesWP_Id, aesWP_AESId, aesWP_PositionsNummer, aesWP_WarennummerKN8, aesWP_"& _ "WarennummerTARIC, aesWP_WarennummerZusatz1, aesWP_WarennummerZusatz2, aesWP_Ware"& _ "nnummerNational, aesWP_Warenbezeichnung, aesWP_RegisternummerFremdsystem, aesWP_"& _ "Vermerk, aesWP_KennungSendung, aesWP_UrsprungsbundeslandCode, aesWP_Eigenmasse, "& _ "aesWP_Rohmasse, aesWP_Gefahrgutnummer, aesWP_ZahlungsweiseBefoerderungskosten, a"& _ "esWP_VerfahrenAngemeldetCode, aesWP_VerfahrenVorangegangenCode, aesWP_VerfahrenN"& _ "ationalCode, aesWP_AusfuhrerstattungVerfahrensCode, aesWP_Menge, aesWP_Wert, aes"& _ "WP_VorpapierTypCode1, aesWP_ReferenzID1, aesWP_Zusatz1, aesWP_VorpapierTypCode2,"& _ " aesWP_ReferenzID2, aesWP_Zusatz2, aesWP_VorpapierTypCode3, aesWP_ReferenzID3, a"& _ "esWP_Zusatz3, aesWP_VorpapierTypCode4, aesWP_ReferenzID4, aesWP_Zusatz4, aesWP_V"& _ "orpapierTypCode5, aesWP_ReferenzID5, aesWP_Zusatz5, aesWP_VorpapierTypCode6, aes"& _ "WP_ReferenzID6, aesWP_Zusatz6, aesWP_VorpapierTypCode7, aesWP_ReferenzID7, aesWP"& _ "_Zusatz7, aesWP_VorpapierTypCode8, aesWP_ReferenzID8, aesWP_Zusatz8, aesWP_Vorpa"& _ "pierTypCode9, aesWP_ReferenzID9, aesWP_Zusatz9, aesWP_Containernummer1, aesWP_Co"& _ "ntainernummer2, aesWP_Containernummer3, aesWP_Containernummer4, aesWP_Empfaenger"& _ "TeilnehmerEORI, aesWP_EmpfaengerTeilnehmerNLNR, aesWP_EmpfaengerTeilnehmerName, "& _ "aesWP_EmpfaengerTeilnehmerStrasse, aesWP_EmpfaengerTeilnehmerOrt, aesWP_Empfaeng"& _ "erTeilnehmerPLZ, aesWP_EmpfaengerTeilnehmerLandCode, aesWP_EndverwenderTeilnehme"& _ "rEORI, aesWP_EndverwenderTeilnehmerNLNR, aesWP_EndverwenderTeilnehmerName, aesWP"& _ "_EndverwenderTeilnehmerStrasse, aesWP_EndverwenderTeilnehmerOrt, aesWP_Endverwen"& _ "derTeilnehmerPLZ, aesWP_EndverwenderTeilnehmerLandCode FROM dbo.tblDakosy_AES_Wa"& _ "renposition" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_AES_WarenpositionDataTable) 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 VERAGDataSet.tblDakosy_AES_WarenpositionDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_AES_WarenpositionDataTable = New VERAGDataSet.tblDakosy_AES_WarenpositionDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_AES_WarenpositionDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_AES_Warenposition") 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_aesWP_Id As Integer, _ ByVal Original_aesWP_AESId As Integer, _ ByVal Original_aesWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_WarennummerKN8 As String, _ ByVal Original_aesWP_WarennummerTARIC As String, _ ByVal Original_aesWP_WarennummerZusatz1 As String, _ ByVal Original_aesWP_WarennummerZusatz2 As String, _ ByVal Original_aesWP_WarennummerNational As String, _ ByVal Original_aesWP_Warenbezeichnung As String, _ ByVal Original_aesWP_RegisternummerFremdsystem As String, _ ByVal Original_aesWP_Vermerk As String, _ ByVal Original_aesWP_KennungSendung As String, _ ByVal Original_aesWP_UrsprungsbundeslandCode As String, _ ByVal Original_aesWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_Gefahrgutnummer As String, _ ByVal Original_aesWP_ZahlungsweiseBefoerderungskosten As String, _ ByVal Original_aesWP_VerfahrenAngemeldetCode As String, _ ByVal Original_aesWP_VerfahrenVorangegangenCode As String, _ ByVal Original_aesWP_VerfahrenNationalCode As String, _ ByVal Original_aesWP_AusfuhrerstattungVerfahrensCode As String, _ ByVal Original_aesWP_Menge As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_Wert As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_VorpapierTypCode1 As String, _ ByVal Original_aesWP_ReferenzID1 As String, _ ByVal Original_aesWP_Zusatz1 As String, _ ByVal Original_aesWP_VorpapierTypCode2 As String, _ ByVal Original_aesWP_ReferenzID2 As String, _ ByVal Original_aesWP_Zusatz2 As String, _ ByVal Original_aesWP_VorpapierTypCode3 As String, _ ByVal Original_aesWP_ReferenzID3 As String, _ ByVal Original_aesWP_Zusatz3 As String, _ ByVal Original_aesWP_VorpapierTypCode4 As String, _ ByVal Original_aesWP_ReferenzID4 As String, _ ByVal Original_aesWP_Zusatz4 As String, _ ByVal Original_aesWP_VorpapierTypCode5 As String, _ ByVal Original_aesWP_ReferenzID5 As String, _ ByVal Original_aesWP_Zusatz5 As String, _ ByVal Original_aesWP_VorpapierTypCode6 As String, _ ByVal Original_aesWP_ReferenzID6 As String, _ ByVal Original_aesWP_Zusatz6 As String, _ ByVal Original_aesWP_VorpapierTypCode7 As String, _ ByVal Original_aesWP_ReferenzID7 As String, _ ByVal Original_aesWP_Zusatz7 As String, _ ByVal Original_aesWP_VorpapierTypCode8 As String, _ ByVal Original_aesWP_ReferenzID8 As String, _ ByVal Original_aesWP_Zusatz8 As String, _ ByVal Original_aesWP_VorpapierTypCode9 As String, _ ByVal Original_aesWP_ReferenzID9 As String, _ ByVal Original_aesWP_Zusatz9 As String, _ ByVal Original_aesWP_Containernummer1 As String, _ ByVal Original_aesWP_Containernummer2 As String, _ ByVal Original_aesWP_Containernummer3 As String, _ ByVal Original_aesWP_Containernummer4 As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerEORI As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerNLNR As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerName As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerStrasse As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerOrt As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerPLZ As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerLandCode As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerEORI As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerNLNR As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerName As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerStrasse As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerOrt As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerPLZ As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerLandCode As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_aesWP_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_aesWP_AESId,Integer) If (Original_aesWP_PositionsNummer.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_aesWP_PositionsNummer.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_aesWP_WarennummerKN8 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_aesWP_WarennummerKN8,String) End If If (Original_aesWP_WarennummerTARIC 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_aesWP_WarennummerTARIC,String) End If If (Original_aesWP_WarennummerZusatz1 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_aesWP_WarennummerZusatz1,String) End If If (Original_aesWP_WarennummerZusatz2 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_aesWP_WarennummerZusatz2,String) End If If (Original_aesWP_WarennummerNational 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_aesWP_WarennummerNational,String) End If If (Original_aesWP_Warenbezeichnung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_aesWP_Warenbezeichnung,String) End If If (Original_aesWP_RegisternummerFremdsystem Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_aesWP_RegisternummerFremdsystem,String) End If If (Original_aesWP_Vermerk 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_aesWP_Vermerk,String) End If If (Original_aesWP_KennungSendung 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_aesWP_KennungSendung,String) End If If (Original_aesWP_UrsprungsbundeslandCode 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_aesWP_UrsprungsbundeslandCode,String) End If If (Original_aesWP_Eigenmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_aesWP_Eigenmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_aesWP_Rohmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_aesWP_Rohmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_aesWP_Gefahrgutnummer 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_aesWP_Gefahrgutnummer,String) End If If (Original_aesWP_ZahlungsweiseBefoerderungskosten Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_aesWP_ZahlungsweiseBefoerderungskosten,String) End If If (Original_aesWP_VerfahrenAngemeldetCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_aesWP_VerfahrenAngemeldetCode,String) End If If (Original_aesWP_VerfahrenVorangegangenCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_aesWP_VerfahrenVorangegangenCode,String) End If If (Original_aesWP_VerfahrenNationalCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_aesWP_VerfahrenNationalCode,String) End If If (Original_aesWP_AusfuhrerstattungVerfahrensCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_aesWP_AusfuhrerstattungVerfahrensCode,String) End If If (Original_aesWP_Menge.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_aesWP_Menge.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Original_aesWP_Wert.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_aesWP_Wert.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Original_aesWP_VorpapierTypCode1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_aesWP_VorpapierTypCode1,String) End If If (Original_aesWP_ReferenzID1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_aesWP_ReferenzID1,String) End If If (Original_aesWP_Zusatz1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_aesWP_Zusatz1,String) End If If (Original_aesWP_VorpapierTypCode2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_aesWP_VorpapierTypCode2,String) End If If (Original_aesWP_ReferenzID2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_aesWP_ReferenzID2,String) End If If (Original_aesWP_Zusatz2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = CType(Original_aesWP_Zusatz2,String) End If If (Original_aesWP_VorpapierTypCode3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = CType(Original_aesWP_VorpapierTypCode3,String) End If If (Original_aesWP_ReferenzID3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_aesWP_ReferenzID3,String) End If If (Original_aesWP_Zusatz3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_aesWP_Zusatz3,String) End If If (Original_aesWP_VorpapierTypCode4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_aesWP_VorpapierTypCode4,String) End If If (Original_aesWP_ReferenzID4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_aesWP_ReferenzID4,String) End If If (Original_aesWP_Zusatz4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_aesWP_Zusatz4,String) End If If (Original_aesWP_VorpapierTypCode5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = CType(Original_aesWP_VorpapierTypCode5,String) End If If (Original_aesWP_ReferenzID5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = CType(Original_aesWP_ReferenzID5,String) End If If (Original_aesWP_Zusatz5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = CType(Original_aesWP_Zusatz5,String) End If If (Original_aesWP_VorpapierTypCode6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = CType(Original_aesWP_VorpapierTypCode6,String) End If If (Original_aesWP_ReferenzID6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = CType(Original_aesWP_ReferenzID6,String) End If If (Original_aesWP_Zusatz6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = CType(Original_aesWP_Zusatz6,String) End If If (Original_aesWP_VorpapierTypCode7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = CType(Original_aesWP_VorpapierTypCode7,String) End If If (Original_aesWP_ReferenzID7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = CType(Original_aesWP_ReferenzID7,String) End If If (Original_aesWP_Zusatz7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = CType(Original_aesWP_Zusatz7,String) End If If (Original_aesWP_VorpapierTypCode8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = CType(Original_aesWP_VorpapierTypCode8,String) End If If (Original_aesWP_ReferenzID8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = CType(Original_aesWP_ReferenzID8,String) End If If (Original_aesWP_Zusatz8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = CType(Original_aesWP_Zusatz8,String) End If If (Original_aesWP_VorpapierTypCode9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = CType(Original_aesWP_VorpapierTypCode9,String) End If If (Original_aesWP_ReferenzID9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = CType(Original_aesWP_ReferenzID9,String) End If If (Original_aesWP_Zusatz9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = CType(Original_aesWP_Zusatz9,String) End If If (Original_aesWP_Containernummer1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = CType(Original_aesWP_Containernummer1,String) End If If (Original_aesWP_Containernummer2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = CType(Original_aesWP_Containernummer2,String) End If If (Original_aesWP_Containernummer3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = CType(Original_aesWP_Containernummer3,String) End If If (Original_aesWP_Containernummer4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = CType(Original_aesWP_Containernummer4,String) End If If (Original_aesWP_EmpfaengerTeilnehmerEORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = CType(Original_aesWP_EmpfaengerTeilnehmerEORI,String) End If If (Original_aesWP_EmpfaengerTeilnehmerNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = CType(Original_aesWP_EmpfaengerTeilnehmerNLNR,String) End If If (Original_aesWP_EmpfaengerTeilnehmerName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = CType(Original_aesWP_EmpfaengerTeilnehmerName,String) End If If (Original_aesWP_EmpfaengerTeilnehmerStrasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = CType(Original_aesWP_EmpfaengerTeilnehmerStrasse,String) End If If (Original_aesWP_EmpfaengerTeilnehmerOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = CType(Original_aesWP_EmpfaengerTeilnehmerOrt,String) End If If (Original_aesWP_EmpfaengerTeilnehmerPLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = CType(Original_aesWP_EmpfaengerTeilnehmerPLZ,String) End If If (Original_aesWP_EmpfaengerTeilnehmerLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = CType(Original_aesWP_EmpfaengerTeilnehmerLandCode,String) End If If (Original_aesWP_EndverwenderTeilnehmerEORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = CType(Original_aesWP_EndverwenderTeilnehmerEORI,String) End If If (Original_aesWP_EndverwenderTeilnehmerNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = CType(Original_aesWP_EndverwenderTeilnehmerNLNR,String) End If If (Original_aesWP_EndverwenderTeilnehmerName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = CType(Original_aesWP_EndverwenderTeilnehmerName,String) End If If (Original_aesWP_EndverwenderTeilnehmerStrasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = CType(Original_aesWP_EndverwenderTeilnehmerStrasse,String) End If If (Original_aesWP_EndverwenderTeilnehmerOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = CType(Original_aesWP_EndverwenderTeilnehmerOrt,String) End If If (Original_aesWP_EndverwenderTeilnehmerPLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = CType(Original_aesWP_EndverwenderTeilnehmerPLZ,String) End If If (Original_aesWP_EndverwenderTeilnehmerLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = CType(Original_aesWP_EndverwenderTeilnehmerLandCode,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 aesWP_AESId As Integer, _ ByVal aesWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal aesWP_WarennummerKN8 As String, _ ByVal aesWP_WarennummerTARIC As String, _ ByVal aesWP_WarennummerZusatz1 As String, _ ByVal aesWP_WarennummerZusatz2 As String, _ ByVal aesWP_WarennummerNational As String, _ ByVal aesWP_Warenbezeichnung As String, _ ByVal aesWP_RegisternummerFremdsystem As String, _ ByVal aesWP_Vermerk As String, _ ByVal aesWP_KennungSendung As String, _ ByVal aesWP_UrsprungsbundeslandCode As String, _ ByVal aesWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal aesWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal aesWP_Gefahrgutnummer As String, _ ByVal aesWP_ZahlungsweiseBefoerderungskosten As String, _ ByVal aesWP_VerfahrenAngemeldetCode As String, _ ByVal aesWP_VerfahrenVorangegangenCode As String, _ ByVal aesWP_VerfahrenNationalCode As String, _ ByVal aesWP_AusfuhrerstattungVerfahrensCode As String, _ ByVal aesWP_Menge As Global.System.Nullable(Of Decimal), _ ByVal aesWP_Wert As Global.System.Nullable(Of Decimal), _ ByVal aesWP_VorpapierTypCode1 As String, _ ByVal aesWP_ReferenzID1 As String, _ ByVal aesWP_Zusatz1 As String, _ ByVal aesWP_VorpapierTypCode2 As String, _ ByVal aesWP_ReferenzID2 As String, _ ByVal aesWP_Zusatz2 As String, _ ByVal aesWP_VorpapierTypCode3 As String, _ ByVal aesWP_ReferenzID3 As String, _ ByVal aesWP_Zusatz3 As String, _ ByVal aesWP_VorpapierTypCode4 As String, _ ByVal aesWP_ReferenzID4 As String, _ ByVal aesWP_Zusatz4 As String, _ ByVal aesWP_VorpapierTypCode5 As String, _ ByVal aesWP_ReferenzID5 As String, _ ByVal aesWP_Zusatz5 As String, _ ByVal aesWP_VorpapierTypCode6 As String, _ ByVal aesWP_ReferenzID6 As String, _ ByVal aesWP_Zusatz6 As String, _ ByVal aesWP_VorpapierTypCode7 As String, _ ByVal aesWP_ReferenzID7 As String, _ ByVal aesWP_Zusatz7 As String, _ ByVal aesWP_VorpapierTypCode8 As String, _ ByVal aesWP_ReferenzID8 As String, _ ByVal aesWP_Zusatz8 As String, _ ByVal aesWP_VorpapierTypCode9 As String, _ ByVal aesWP_ReferenzID9 As String, _ ByVal aesWP_Zusatz9 As String, _ ByVal aesWP_Containernummer1 As String, _ ByVal aesWP_Containernummer2 As String, _ ByVal aesWP_Containernummer3 As String, _ ByVal aesWP_Containernummer4 As String, _ ByVal aesWP_EmpfaengerTeilnehmerEORI As String, _ ByVal aesWP_EmpfaengerTeilnehmerNLNR As String, _ ByVal aesWP_EmpfaengerTeilnehmerName As String, _ ByVal aesWP_EmpfaengerTeilnehmerStrasse As String, _ ByVal aesWP_EmpfaengerTeilnehmerOrt As String, _ ByVal aesWP_EmpfaengerTeilnehmerPLZ As String, _ ByVal aesWP_EmpfaengerTeilnehmerLandCode As String, _ ByVal aesWP_EndverwenderTeilnehmerEORI As String, _ ByVal aesWP_EndverwenderTeilnehmerNLNR As String, _ ByVal aesWP_EndverwenderTeilnehmerName As String, _ ByVal aesWP_EndverwenderTeilnehmerStrasse As String, _ ByVal aesWP_EndverwenderTeilnehmerOrt As String, _ ByVal aesWP_EndverwenderTeilnehmerPLZ As String, _ ByVal aesWP_EndverwenderTeilnehmerLandCode As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(aesWP_AESId,Integer) If (aesWP_PositionsNummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(aesWP_PositionsNummer.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (aesWP_WarennummerKN8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(aesWP_WarennummerKN8,String) End If If (aesWP_WarennummerTARIC Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(aesWP_WarennummerTARIC,String) End If If (aesWP_WarennummerZusatz1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(aesWP_WarennummerZusatz1,String) End If If (aesWP_WarennummerZusatz2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(aesWP_WarennummerZusatz2,String) End If If (aesWP_WarennummerNational Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(aesWP_WarennummerNational,String) End If If (aesWP_Warenbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(aesWP_Warenbezeichnung,String) End If If (aesWP_RegisternummerFremdsystem Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(aesWP_RegisternummerFremdsystem,String) End If If (aesWP_Vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(aesWP_Vermerk,String) End If If (aesWP_KennungSendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(aesWP_KennungSendung,String) End If If (aesWP_UrsprungsbundeslandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(aesWP_UrsprungsbundeslandCode,String) End If If (aesWP_Eigenmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(aesWP_Eigenmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (aesWP_Rohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(aesWP_Rohmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (aesWP_Gefahrgutnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(aesWP_Gefahrgutnummer,String) End If If (aesWP_ZahlungsweiseBefoerderungskosten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(aesWP_ZahlungsweiseBefoerderungskosten,String) End If If (aesWP_VerfahrenAngemeldetCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(aesWP_VerfahrenAngemeldetCode,String) End If If (aesWP_VerfahrenVorangegangenCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(aesWP_VerfahrenVorangegangenCode,String) End If If (aesWP_VerfahrenNationalCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(aesWP_VerfahrenNationalCode,String) End If If (aesWP_AusfuhrerstattungVerfahrensCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(aesWP_AusfuhrerstattungVerfahrensCode,String) End If If (aesWP_Menge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(aesWP_Menge.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (aesWP_Wert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(aesWP_Wert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (aesWP_VorpapierTypCode1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(aesWP_VorpapierTypCode1,String) End If If (aesWP_ReferenzID1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(aesWP_ReferenzID1,String) End If If (aesWP_Zusatz1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(aesWP_Zusatz1,String) End If If (aesWP_VorpapierTypCode2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(aesWP_VorpapierTypCode2,String) End If If (aesWP_ReferenzID2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(aesWP_ReferenzID2,String) End If If (aesWP_Zusatz2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(aesWP_Zusatz2,String) End If If (aesWP_VorpapierTypCode3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(aesWP_VorpapierTypCode3,String) End If If (aesWP_ReferenzID3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(aesWP_ReferenzID3,String) End If If (aesWP_Zusatz3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(aesWP_Zusatz3,String) End If If (aesWP_VorpapierTypCode4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(aesWP_VorpapierTypCode4,String) End If If (aesWP_ReferenzID4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(aesWP_ReferenzID4,String) End If If (aesWP_Zusatz4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(aesWP_Zusatz4,String) End If If (aesWP_VorpapierTypCode5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(aesWP_VorpapierTypCode5,String) End If If (aesWP_ReferenzID5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(aesWP_ReferenzID5,String) End If If (aesWP_Zusatz5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(aesWP_Zusatz5,String) End If If (aesWP_VorpapierTypCode6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(aesWP_VorpapierTypCode6,String) End If If (aesWP_ReferenzID6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(aesWP_ReferenzID6,String) End If If (aesWP_Zusatz6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(aesWP_Zusatz6,String) End If If (aesWP_VorpapierTypCode7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(aesWP_VorpapierTypCode7,String) End If If (aesWP_ReferenzID7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(aesWP_ReferenzID7,String) End If If (aesWP_Zusatz7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(aesWP_Zusatz7,String) End If If (aesWP_VorpapierTypCode8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(aesWP_VorpapierTypCode8,String) End If If (aesWP_ReferenzID8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(aesWP_ReferenzID8,String) End If If (aesWP_Zusatz8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(aesWP_Zusatz8,String) End If If (aesWP_VorpapierTypCode9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(aesWP_VorpapierTypCode9,String) End If If (aesWP_ReferenzID9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(aesWP_ReferenzID9,String) End If If (aesWP_Zusatz9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(aesWP_Zusatz9,String) End If If (aesWP_Containernummer1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(aesWP_Containernummer1,String) End If If (aesWP_Containernummer2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(aesWP_Containernummer2,String) End If If (aesWP_Containernummer3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(aesWP_Containernummer3,String) End If If (aesWP_Containernummer4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(aesWP_Containernummer4,String) End If If (aesWP_EmpfaengerTeilnehmerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(aesWP_EmpfaengerTeilnehmerEORI,String) End If If (aesWP_EmpfaengerTeilnehmerNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(aesWP_EmpfaengerTeilnehmerNLNR,String) End If If (aesWP_EmpfaengerTeilnehmerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(aesWP_EmpfaengerTeilnehmerName,String) End If If (aesWP_EmpfaengerTeilnehmerStrasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(aesWP_EmpfaengerTeilnehmerStrasse,String) End If If (aesWP_EmpfaengerTeilnehmerOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(aesWP_EmpfaengerTeilnehmerOrt,String) End If If (aesWP_EmpfaengerTeilnehmerPLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(aesWP_EmpfaengerTeilnehmerPLZ,String) End If If (aesWP_EmpfaengerTeilnehmerLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(aesWP_EmpfaengerTeilnehmerLandCode,String) End If If (aesWP_EndverwenderTeilnehmerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(aesWP_EndverwenderTeilnehmerEORI,String) End If If (aesWP_EndverwenderTeilnehmerNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(aesWP_EndverwenderTeilnehmerNLNR,String) End If If (aesWP_EndverwenderTeilnehmerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(aesWP_EndverwenderTeilnehmerName,String) End If If (aesWP_EndverwenderTeilnehmerStrasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(aesWP_EndverwenderTeilnehmerStrasse,String) End If If (aesWP_EndverwenderTeilnehmerOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(aesWP_EndverwenderTeilnehmerOrt,String) End If If (aesWP_EndverwenderTeilnehmerPLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(aesWP_EndverwenderTeilnehmerPLZ,String) End If If (aesWP_EndverwenderTeilnehmerLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(aesWP_EndverwenderTeilnehmerLandCode,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 aesWP_AESId As Integer, _ ByVal aesWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal aesWP_WarennummerKN8 As String, _ ByVal aesWP_WarennummerTARIC As String, _ ByVal aesWP_WarennummerZusatz1 As String, _ ByVal aesWP_WarennummerZusatz2 As String, _ ByVal aesWP_WarennummerNational As String, _ ByVal aesWP_Warenbezeichnung As String, _ ByVal aesWP_RegisternummerFremdsystem As String, _ ByVal aesWP_Vermerk As String, _ ByVal aesWP_KennungSendung As String, _ ByVal aesWP_UrsprungsbundeslandCode As String, _ ByVal aesWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal aesWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal aesWP_Gefahrgutnummer As String, _ ByVal aesWP_ZahlungsweiseBefoerderungskosten As String, _ ByVal aesWP_VerfahrenAngemeldetCode As String, _ ByVal aesWP_VerfahrenVorangegangenCode As String, _ ByVal aesWP_VerfahrenNationalCode As String, _ ByVal aesWP_AusfuhrerstattungVerfahrensCode As String, _ ByVal aesWP_Menge As Global.System.Nullable(Of Decimal), _ ByVal aesWP_Wert As Global.System.Nullable(Of Decimal), _ ByVal aesWP_VorpapierTypCode1 As String, _ ByVal aesWP_ReferenzID1 As String, _ ByVal aesWP_Zusatz1 As String, _ ByVal aesWP_VorpapierTypCode2 As String, _ ByVal aesWP_ReferenzID2 As String, _ ByVal aesWP_Zusatz2 As String, _ ByVal aesWP_VorpapierTypCode3 As String, _ ByVal aesWP_ReferenzID3 As String, _ ByVal aesWP_Zusatz3 As String, _ ByVal aesWP_VorpapierTypCode4 As String, _ ByVal aesWP_ReferenzID4 As String, _ ByVal aesWP_Zusatz4 As String, _ ByVal aesWP_VorpapierTypCode5 As String, _ ByVal aesWP_ReferenzID5 As String, _ ByVal aesWP_Zusatz5 As String, _ ByVal aesWP_VorpapierTypCode6 As String, _ ByVal aesWP_ReferenzID6 As String, _ ByVal aesWP_Zusatz6 As String, _ ByVal aesWP_VorpapierTypCode7 As String, _ ByVal aesWP_ReferenzID7 As String, _ ByVal aesWP_Zusatz7 As String, _ ByVal aesWP_VorpapierTypCode8 As String, _ ByVal aesWP_ReferenzID8 As String, _ ByVal aesWP_Zusatz8 As String, _ ByVal aesWP_VorpapierTypCode9 As String, _ ByVal aesWP_ReferenzID9 As String, _ ByVal aesWP_Zusatz9 As String, _ ByVal aesWP_Containernummer1 As String, _ ByVal aesWP_Containernummer2 As String, _ ByVal aesWP_Containernummer3 As String, _ ByVal aesWP_Containernummer4 As String, _ ByVal aesWP_EmpfaengerTeilnehmerEORI As String, _ ByVal aesWP_EmpfaengerTeilnehmerNLNR As String, _ ByVal aesWP_EmpfaengerTeilnehmerName As String, _ ByVal aesWP_EmpfaengerTeilnehmerStrasse As String, _ ByVal aesWP_EmpfaengerTeilnehmerOrt As String, _ ByVal aesWP_EmpfaengerTeilnehmerPLZ As String, _ ByVal aesWP_EmpfaengerTeilnehmerLandCode As String, _ ByVal aesWP_EndverwenderTeilnehmerEORI As String, _ ByVal aesWP_EndverwenderTeilnehmerNLNR As String, _ ByVal aesWP_EndverwenderTeilnehmerName As String, _ ByVal aesWP_EndverwenderTeilnehmerStrasse As String, _ ByVal aesWP_EndverwenderTeilnehmerOrt As String, _ ByVal aesWP_EndverwenderTeilnehmerPLZ As String, _ ByVal aesWP_EndverwenderTeilnehmerLandCode As String, _ ByVal Original_aesWP_Id As Integer, _ ByVal Original_aesWP_AESId As Integer, _ ByVal Original_aesWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_WarennummerKN8 As String, _ ByVal Original_aesWP_WarennummerTARIC As String, _ ByVal Original_aesWP_WarennummerZusatz1 As String, _ ByVal Original_aesWP_WarennummerZusatz2 As String, _ ByVal Original_aesWP_WarennummerNational As String, _ ByVal Original_aesWP_Warenbezeichnung As String, _ ByVal Original_aesWP_RegisternummerFremdsystem As String, _ ByVal Original_aesWP_Vermerk As String, _ ByVal Original_aesWP_KennungSendung As String, _ ByVal Original_aesWP_UrsprungsbundeslandCode As String, _ ByVal Original_aesWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_Gefahrgutnummer As String, _ ByVal Original_aesWP_ZahlungsweiseBefoerderungskosten As String, _ ByVal Original_aesWP_VerfahrenAngemeldetCode As String, _ ByVal Original_aesWP_VerfahrenVorangegangenCode As String, _ ByVal Original_aesWP_VerfahrenNationalCode As String, _ ByVal Original_aesWP_AusfuhrerstattungVerfahrensCode As String, _ ByVal Original_aesWP_Menge As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_Wert As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_VorpapierTypCode1 As String, _ ByVal Original_aesWP_ReferenzID1 As String, _ ByVal Original_aesWP_Zusatz1 As String, _ ByVal Original_aesWP_VorpapierTypCode2 As String, _ ByVal Original_aesWP_ReferenzID2 As String, _ ByVal Original_aesWP_Zusatz2 As String, _ ByVal Original_aesWP_VorpapierTypCode3 As String, _ ByVal Original_aesWP_ReferenzID3 As String, _ ByVal Original_aesWP_Zusatz3 As String, _ ByVal Original_aesWP_VorpapierTypCode4 As String, _ ByVal Original_aesWP_ReferenzID4 As String, _ ByVal Original_aesWP_Zusatz4 As String, _ ByVal Original_aesWP_VorpapierTypCode5 As String, _ ByVal Original_aesWP_ReferenzID5 As String, _ ByVal Original_aesWP_Zusatz5 As String, _ ByVal Original_aesWP_VorpapierTypCode6 As String, _ ByVal Original_aesWP_ReferenzID6 As String, _ ByVal Original_aesWP_Zusatz6 As String, _ ByVal Original_aesWP_VorpapierTypCode7 As String, _ ByVal Original_aesWP_ReferenzID7 As String, _ ByVal Original_aesWP_Zusatz7 As String, _ ByVal Original_aesWP_VorpapierTypCode8 As String, _ ByVal Original_aesWP_ReferenzID8 As String, _ ByVal Original_aesWP_Zusatz8 As String, _ ByVal Original_aesWP_VorpapierTypCode9 As String, _ ByVal Original_aesWP_ReferenzID9 As String, _ ByVal Original_aesWP_Zusatz9 As String, _ ByVal Original_aesWP_Containernummer1 As String, _ ByVal Original_aesWP_Containernummer2 As String, _ ByVal Original_aesWP_Containernummer3 As String, _ ByVal Original_aesWP_Containernummer4 As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerEORI As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerNLNR As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerName As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerStrasse As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerOrt As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerPLZ As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerLandCode As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerEORI As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerNLNR As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerName As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerStrasse As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerOrt As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerPLZ As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerLandCode As String, _ ByVal aesWP_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(aesWP_AESId,Integer) If (aesWP_PositionsNummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(aesWP_PositionsNummer.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (aesWP_WarennummerKN8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(aesWP_WarennummerKN8,String) End If If (aesWP_WarennummerTARIC Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(aesWP_WarennummerTARIC,String) End If If (aesWP_WarennummerZusatz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(aesWP_WarennummerZusatz1,String) End If If (aesWP_WarennummerZusatz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(aesWP_WarennummerZusatz2,String) End If If (aesWP_WarennummerNational Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(aesWP_WarennummerNational,String) End If If (aesWP_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(aesWP_Warenbezeichnung,String) End If If (aesWP_RegisternummerFremdsystem Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(aesWP_RegisternummerFremdsystem,String) End If If (aesWP_Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(aesWP_Vermerk,String) End If If (aesWP_KennungSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(aesWP_KennungSendung,String) End If If (aesWP_UrsprungsbundeslandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(aesWP_UrsprungsbundeslandCode,String) End If If (aesWP_Eigenmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(aesWP_Eigenmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (aesWP_Rohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(aesWP_Rohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (aesWP_Gefahrgutnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(aesWP_Gefahrgutnummer,String) End If If (aesWP_ZahlungsweiseBefoerderungskosten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(aesWP_ZahlungsweiseBefoerderungskosten,String) End If If (aesWP_VerfahrenAngemeldetCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(aesWP_VerfahrenAngemeldetCode,String) End If If (aesWP_VerfahrenVorangegangenCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(aesWP_VerfahrenVorangegangenCode,String) End If If (aesWP_VerfahrenNationalCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(aesWP_VerfahrenNationalCode,String) End If If (aesWP_AusfuhrerstattungVerfahrensCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(aesWP_AusfuhrerstattungVerfahrensCode,String) End If If (aesWP_Menge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(aesWP_Menge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (aesWP_Wert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(aesWP_Wert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (aesWP_VorpapierTypCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(aesWP_VorpapierTypCode1,String) End If If (aesWP_ReferenzID1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(aesWP_ReferenzID1,String) End If If (aesWP_Zusatz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(aesWP_Zusatz1,String) End If If (aesWP_VorpapierTypCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(aesWP_VorpapierTypCode2,String) End If If (aesWP_ReferenzID2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(aesWP_ReferenzID2,String) End If If (aesWP_Zusatz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(aesWP_Zusatz2,String) End If If (aesWP_VorpapierTypCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(aesWP_VorpapierTypCode3,String) End If If (aesWP_ReferenzID3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(aesWP_ReferenzID3,String) End If If (aesWP_Zusatz3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(aesWP_Zusatz3,String) End If If (aesWP_VorpapierTypCode4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(aesWP_VorpapierTypCode4,String) End If If (aesWP_ReferenzID4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(aesWP_ReferenzID4,String) End If If (aesWP_Zusatz4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(aesWP_Zusatz4,String) End If If (aesWP_VorpapierTypCode5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(aesWP_VorpapierTypCode5,String) End If If (aesWP_ReferenzID5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(aesWP_ReferenzID5,String) End If If (aesWP_Zusatz5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(aesWP_Zusatz5,String) End If If (aesWP_VorpapierTypCode6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(aesWP_VorpapierTypCode6,String) End If If (aesWP_ReferenzID6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(aesWP_ReferenzID6,String) End If If (aesWP_Zusatz6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(aesWP_Zusatz6,String) End If If (aesWP_VorpapierTypCode7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(aesWP_VorpapierTypCode7,String) End If If (aesWP_ReferenzID7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(aesWP_ReferenzID7,String) End If If (aesWP_Zusatz7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(aesWP_Zusatz7,String) End If If (aesWP_VorpapierTypCode8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(aesWP_VorpapierTypCode8,String) End If If (aesWP_ReferenzID8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(aesWP_ReferenzID8,String) End If If (aesWP_Zusatz8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(aesWP_Zusatz8,String) End If If (aesWP_VorpapierTypCode9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(aesWP_VorpapierTypCode9,String) End If If (aesWP_ReferenzID9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(aesWP_ReferenzID9,String) End If If (aesWP_Zusatz9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(aesWP_Zusatz9,String) End If If (aesWP_Containernummer1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(aesWP_Containernummer1,String) End If If (aesWP_Containernummer2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(aesWP_Containernummer2,String) End If If (aesWP_Containernummer3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(aesWP_Containernummer3,String) End If If (aesWP_Containernummer4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(aesWP_Containernummer4,String) End If If (aesWP_EmpfaengerTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(aesWP_EmpfaengerTeilnehmerEORI,String) End If If (aesWP_EmpfaengerTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(aesWP_EmpfaengerTeilnehmerNLNR,String) End If If (aesWP_EmpfaengerTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(aesWP_EmpfaengerTeilnehmerName,String) End If If (aesWP_EmpfaengerTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(aesWP_EmpfaengerTeilnehmerStrasse,String) End If If (aesWP_EmpfaengerTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(aesWP_EmpfaengerTeilnehmerOrt,String) End If If (aesWP_EmpfaengerTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(aesWP_EmpfaengerTeilnehmerPLZ,String) End If If (aesWP_EmpfaengerTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(aesWP_EmpfaengerTeilnehmerLandCode,String) End If If (aesWP_EndverwenderTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(aesWP_EndverwenderTeilnehmerEORI,String) End If If (aesWP_EndverwenderTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(aesWP_EndverwenderTeilnehmerNLNR,String) End If If (aesWP_EndverwenderTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(aesWP_EndverwenderTeilnehmerName,String) End If If (aesWP_EndverwenderTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(aesWP_EndverwenderTeilnehmerStrasse,String) End If If (aesWP_EndverwenderTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(aesWP_EndverwenderTeilnehmerOrt,String) End If If (aesWP_EndverwenderTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(aesWP_EndverwenderTeilnehmerPLZ,String) End If If (aesWP_EndverwenderTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(aesWP_EndverwenderTeilnehmerLandCode,String) End If Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_aesWP_Id,Integer) Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_aesWP_AESId,Integer) If (Original_aesWP_PositionsNummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_aesWP_PositionsNummer.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Original_aesWP_WarennummerKN8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_aesWP_WarennummerKN8,String) End If If (Original_aesWP_WarennummerTARIC Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_aesWP_WarennummerTARIC,String) End If If (Original_aesWP_WarennummerZusatz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_aesWP_WarennummerZusatz1,String) End If If (Original_aesWP_WarennummerZusatz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_aesWP_WarennummerZusatz2,String) End If If (Original_aesWP_WarennummerNational Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_aesWP_WarennummerNational,String) End If If (Original_aesWP_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_aesWP_Warenbezeichnung,String) End If If (Original_aesWP_RegisternummerFremdsystem Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Original_aesWP_RegisternummerFremdsystem,String) End If If (Original_aesWP_Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Original_aesWP_Vermerk,String) End If If (Original_aesWP_KennungSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(88).Value = CType(Original_aesWP_KennungSendung,String) End If If (Original_aesWP_UrsprungsbundeslandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_aesWP_UrsprungsbundeslandCode,String) End If If (Original_aesWP_Eigenmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_aesWP_Eigenmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value End If If (Original_aesWP_Rohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_aesWP_Rohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value End If If (Original_aesWP_Gefahrgutnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(96).Value = CType(Original_aesWP_Gefahrgutnummer,String) End If If (Original_aesWP_ZahlungsweiseBefoerderungskosten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = CType(Original_aesWP_ZahlungsweiseBefoerderungskosten,String) End If If (Original_aesWP_VerfahrenAngemeldetCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = CType(Original_aesWP_VerfahrenAngemeldetCode,String) End If If (Original_aesWP_VerfahrenVorangegangenCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = CType(Original_aesWP_VerfahrenVorangegangenCode,String) End If If (Original_aesWP_VerfahrenNationalCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = CType(Original_aesWP_VerfahrenNationalCode,String) End If If (Original_aesWP_AusfuhrerstattungVerfahrensCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = CType(Original_aesWP_AusfuhrerstattungVerfahrensCode,String) End If If (Original_aesWP_Menge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = CType(Original_aesWP_Menge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value End If If (Original_aesWP_Wert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = CType(Original_aesWP_Wert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value End If If (Original_aesWP_VorpapierTypCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = CType(Original_aesWP_VorpapierTypCode1,String) End If If (Original_aesWP_ReferenzID1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = CType(Original_aesWP_ReferenzID1,String) End If If (Original_aesWP_Zusatz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = CType(Original_aesWP_Zusatz1,String) End If If (Original_aesWP_VorpapierTypCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = CType(Original_aesWP_VorpapierTypCode2,String) End If If (Original_aesWP_ReferenzID2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = CType(Original_aesWP_ReferenzID2,String) End If If (Original_aesWP_Zusatz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = CType(Original_aesWP_Zusatz2,String) End If If (Original_aesWP_VorpapierTypCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(124).Value = CType(Original_aesWP_VorpapierTypCode3,String) End If If (Original_aesWP_ReferenzID3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(126).Value = CType(Original_aesWP_ReferenzID3,String) End If If (Original_aesWP_Zusatz3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(128).Value = CType(Original_aesWP_Zusatz3,String) End If If (Original_aesWP_VorpapierTypCode4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(130).Value = CType(Original_aesWP_VorpapierTypCode4,String) End If If (Original_aesWP_ReferenzID4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(132).Value = CType(Original_aesWP_ReferenzID4,String) End If If (Original_aesWP_Zusatz4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(134).Value = CType(Original_aesWP_Zusatz4,String) End If If (Original_aesWP_VorpapierTypCode5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(136).Value = CType(Original_aesWP_VorpapierTypCode5,String) End If If (Original_aesWP_ReferenzID5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(138).Value = CType(Original_aesWP_ReferenzID5,String) End If If (Original_aesWP_Zusatz5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = CType(Original_aesWP_Zusatz5,String) End If If (Original_aesWP_VorpapierTypCode6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = CType(Original_aesWP_VorpapierTypCode6,String) End If If (Original_aesWP_ReferenzID6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = CType(Original_aesWP_ReferenzID6,String) End If If (Original_aesWP_Zusatz6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = CType(Original_aesWP_Zusatz6,String) End If If (Original_aesWP_VorpapierTypCode7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = CType(Original_aesWP_VorpapierTypCode7,String) End If If (Original_aesWP_ReferenzID7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = CType(Original_aesWP_ReferenzID7,String) End If If (Original_aesWP_Zusatz7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = CType(Original_aesWP_Zusatz7,String) End If If (Original_aesWP_VorpapierTypCode8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = CType(Original_aesWP_VorpapierTypCode8,String) End If If (Original_aesWP_ReferenzID8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = CType(Original_aesWP_ReferenzID8,String) End If If (Original_aesWP_Zusatz8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = CType(Original_aesWP_Zusatz8,String) End If If (Original_aesWP_VorpapierTypCode9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(159).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(159).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(160).Value = CType(Original_aesWP_VorpapierTypCode9,String) End If If (Original_aesWP_ReferenzID9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = CType(Original_aesWP_ReferenzID9,String) End If If (Original_aesWP_Zusatz9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = CType(Original_aesWP_Zusatz9,String) End If If (Original_aesWP_Containernummer1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = CType(Original_aesWP_Containernummer1,String) End If If (Original_aesWP_Containernummer2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = CType(Original_aesWP_Containernummer2,String) End If If (Original_aesWP_Containernummer3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = CType(Original_aesWP_Containernummer3,String) End If If (Original_aesWP_Containernummer4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = CType(Original_aesWP_Containernummer4,String) End If If (Original_aesWP_EmpfaengerTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_aesWP_EmpfaengerTeilnehmerEORI,String) End If If (Original_aesWP_EmpfaengerTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_aesWP_EmpfaengerTeilnehmerNLNR,String) End If If (Original_aesWP_EmpfaengerTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = CType(Original_aesWP_EmpfaengerTeilnehmerName,String) End If If (Original_aesWP_EmpfaengerTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = CType(Original_aesWP_EmpfaengerTeilnehmerStrasse,String) End If If (Original_aesWP_EmpfaengerTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = CType(Original_aesWP_EmpfaengerTeilnehmerOrt,String) End If If (Original_aesWP_EmpfaengerTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = CType(Original_aesWP_EmpfaengerTeilnehmerPLZ,String) End If If (Original_aesWP_EmpfaengerTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_aesWP_EmpfaengerTeilnehmerLandCode,String) End If If (Original_aesWP_EndverwenderTeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_aesWP_EndverwenderTeilnehmerEORI,String) End If If (Original_aesWP_EndverwenderTeilnehmerNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_aesWP_EndverwenderTeilnehmerNLNR,String) End If If (Original_aesWP_EndverwenderTeilnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_aesWP_EndverwenderTeilnehmerName,String) End If If (Original_aesWP_EndverwenderTeilnehmerStrasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_aesWP_EndverwenderTeilnehmerStrasse,String) End If If (Original_aesWP_EndverwenderTeilnehmerOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_aesWP_EndverwenderTeilnehmerOrt,String) End If If (Original_aesWP_EndverwenderTeilnehmerPLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_aesWP_EndverwenderTeilnehmerPLZ,String) End If If (Original_aesWP_EndverwenderTeilnehmerLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_aesWP_EndverwenderTeilnehmerLandCode,String) End If Me.Adapter.UpdateCommand.Parameters(201).Value = CType(aesWP_Id,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 aesWP_AESId As Integer, _ ByVal aesWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal aesWP_WarennummerKN8 As String, _ ByVal aesWP_WarennummerTARIC As String, _ ByVal aesWP_WarennummerZusatz1 As String, _ ByVal aesWP_WarennummerZusatz2 As String, _ ByVal aesWP_WarennummerNational As String, _ ByVal aesWP_Warenbezeichnung As String, _ ByVal aesWP_RegisternummerFremdsystem As String, _ ByVal aesWP_Vermerk As String, _ ByVal aesWP_KennungSendung As String, _ ByVal aesWP_UrsprungsbundeslandCode As String, _ ByVal aesWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal aesWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal aesWP_Gefahrgutnummer As String, _ ByVal aesWP_ZahlungsweiseBefoerderungskosten As String, _ ByVal aesWP_VerfahrenAngemeldetCode As String, _ ByVal aesWP_VerfahrenVorangegangenCode As String, _ ByVal aesWP_VerfahrenNationalCode As String, _ ByVal aesWP_AusfuhrerstattungVerfahrensCode As String, _ ByVal aesWP_Menge As Global.System.Nullable(Of Decimal), _ ByVal aesWP_Wert As Global.System.Nullable(Of Decimal), _ ByVal aesWP_VorpapierTypCode1 As String, _ ByVal aesWP_ReferenzID1 As String, _ ByVal aesWP_Zusatz1 As String, _ ByVal aesWP_VorpapierTypCode2 As String, _ ByVal aesWP_ReferenzID2 As String, _ ByVal aesWP_Zusatz2 As String, _ ByVal aesWP_VorpapierTypCode3 As String, _ ByVal aesWP_ReferenzID3 As String, _ ByVal aesWP_Zusatz3 As String, _ ByVal aesWP_VorpapierTypCode4 As String, _ ByVal aesWP_ReferenzID4 As String, _ ByVal aesWP_Zusatz4 As String, _ ByVal aesWP_VorpapierTypCode5 As String, _ ByVal aesWP_ReferenzID5 As String, _ ByVal aesWP_Zusatz5 As String, _ ByVal aesWP_VorpapierTypCode6 As String, _ ByVal aesWP_ReferenzID6 As String, _ ByVal aesWP_Zusatz6 As String, _ ByVal aesWP_VorpapierTypCode7 As String, _ ByVal aesWP_ReferenzID7 As String, _ ByVal aesWP_Zusatz7 As String, _ ByVal aesWP_VorpapierTypCode8 As String, _ ByVal aesWP_ReferenzID8 As String, _ ByVal aesWP_Zusatz8 As String, _ ByVal aesWP_VorpapierTypCode9 As String, _ ByVal aesWP_ReferenzID9 As String, _ ByVal aesWP_Zusatz9 As String, _ ByVal aesWP_Containernummer1 As String, _ ByVal aesWP_Containernummer2 As String, _ ByVal aesWP_Containernummer3 As String, _ ByVal aesWP_Containernummer4 As String, _ ByVal aesWP_EmpfaengerTeilnehmerEORI As String, _ ByVal aesWP_EmpfaengerTeilnehmerNLNR As String, _ ByVal aesWP_EmpfaengerTeilnehmerName As String, _ ByVal aesWP_EmpfaengerTeilnehmerStrasse As String, _ ByVal aesWP_EmpfaengerTeilnehmerOrt As String, _ ByVal aesWP_EmpfaengerTeilnehmerPLZ As String, _ ByVal aesWP_EmpfaengerTeilnehmerLandCode As String, _ ByVal aesWP_EndverwenderTeilnehmerEORI As String, _ ByVal aesWP_EndverwenderTeilnehmerNLNR As String, _ ByVal aesWP_EndverwenderTeilnehmerName As String, _ ByVal aesWP_EndverwenderTeilnehmerStrasse As String, _ ByVal aesWP_EndverwenderTeilnehmerOrt As String, _ ByVal aesWP_EndverwenderTeilnehmerPLZ As String, _ ByVal aesWP_EndverwenderTeilnehmerLandCode As String, _ ByVal Original_aesWP_Id As Integer, _ ByVal Original_aesWP_AESId As Integer, _ ByVal Original_aesWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_WarennummerKN8 As String, _ ByVal Original_aesWP_WarennummerTARIC As String, _ ByVal Original_aesWP_WarennummerZusatz1 As String, _ ByVal Original_aesWP_WarennummerZusatz2 As String, _ ByVal Original_aesWP_WarennummerNational As String, _ ByVal Original_aesWP_Warenbezeichnung As String, _ ByVal Original_aesWP_RegisternummerFremdsystem As String, _ ByVal Original_aesWP_Vermerk As String, _ ByVal Original_aesWP_KennungSendung As String, _ ByVal Original_aesWP_UrsprungsbundeslandCode As String, _ ByVal Original_aesWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_Gefahrgutnummer As String, _ ByVal Original_aesWP_ZahlungsweiseBefoerderungskosten As String, _ ByVal Original_aesWP_VerfahrenAngemeldetCode As String, _ ByVal Original_aesWP_VerfahrenVorangegangenCode As String, _ ByVal Original_aesWP_VerfahrenNationalCode As String, _ ByVal Original_aesWP_AusfuhrerstattungVerfahrensCode As String, _ ByVal Original_aesWP_Menge As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_Wert As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWP_VorpapierTypCode1 As String, _ ByVal Original_aesWP_ReferenzID1 As String, _ ByVal Original_aesWP_Zusatz1 As String, _ ByVal Original_aesWP_VorpapierTypCode2 As String, _ ByVal Original_aesWP_ReferenzID2 As String, _ ByVal Original_aesWP_Zusatz2 As String, _ ByVal Original_aesWP_VorpapierTypCode3 As String, _ ByVal Original_aesWP_ReferenzID3 As String, _ ByVal Original_aesWP_Zusatz3 As String, _ ByVal Original_aesWP_VorpapierTypCode4 As String, _ ByVal Original_aesWP_ReferenzID4 As String, _ ByVal Original_aesWP_Zusatz4 As String, _ ByVal Original_aesWP_VorpapierTypCode5 As String, _ ByVal Original_aesWP_ReferenzID5 As String, _ ByVal Original_aesWP_Zusatz5 As String, _ ByVal Original_aesWP_VorpapierTypCode6 As String, _ ByVal Original_aesWP_ReferenzID6 As String, _ ByVal Original_aesWP_Zusatz6 As String, _ ByVal Original_aesWP_VorpapierTypCode7 As String, _ ByVal Original_aesWP_ReferenzID7 As String, _ ByVal Original_aesWP_Zusatz7 As String, _ ByVal Original_aesWP_VorpapierTypCode8 As String, _ ByVal Original_aesWP_ReferenzID8 As String, _ ByVal Original_aesWP_Zusatz8 As String, _ ByVal Original_aesWP_VorpapierTypCode9 As String, _ ByVal Original_aesWP_ReferenzID9 As String, _ ByVal Original_aesWP_Zusatz9 As String, _ ByVal Original_aesWP_Containernummer1 As String, _ ByVal Original_aesWP_Containernummer2 As String, _ ByVal Original_aesWP_Containernummer3 As String, _ ByVal Original_aesWP_Containernummer4 As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerEORI As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerNLNR As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerName As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerStrasse As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerOrt As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerPLZ As String, _ ByVal Original_aesWP_EmpfaengerTeilnehmerLandCode As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerEORI As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerNLNR As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerName As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerStrasse As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerOrt As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerPLZ As String, _ ByVal Original_aesWP_EndverwenderTeilnehmerLandCode As String) As Integer Return Me.Update(aesWP_AESId, aesWP_PositionsNummer, aesWP_WarennummerKN8, aesWP_WarennummerTARIC, aesWP_WarennummerZusatz1, aesWP_WarennummerZusatz2, aesWP_WarennummerNational, aesWP_Warenbezeichnung, aesWP_RegisternummerFremdsystem, aesWP_Vermerk, aesWP_KennungSendung, aesWP_UrsprungsbundeslandCode, aesWP_Eigenmasse, aesWP_Rohmasse, aesWP_Gefahrgutnummer, aesWP_ZahlungsweiseBefoerderungskosten, aesWP_VerfahrenAngemeldetCode, aesWP_VerfahrenVorangegangenCode, aesWP_VerfahrenNationalCode, aesWP_AusfuhrerstattungVerfahrensCode, aesWP_Menge, aesWP_Wert, aesWP_VorpapierTypCode1, aesWP_ReferenzID1, aesWP_Zusatz1, aesWP_VorpapierTypCode2, aesWP_ReferenzID2, aesWP_Zusatz2, aesWP_VorpapierTypCode3, aesWP_ReferenzID3, aesWP_Zusatz3, aesWP_VorpapierTypCode4, aesWP_ReferenzID4, aesWP_Zusatz4, aesWP_VorpapierTypCode5, aesWP_ReferenzID5, aesWP_Zusatz5, aesWP_VorpapierTypCode6, aesWP_ReferenzID6, aesWP_Zusatz6, aesWP_VorpapierTypCode7, aesWP_ReferenzID7, aesWP_Zusatz7, aesWP_VorpapierTypCode8, aesWP_ReferenzID8, aesWP_Zusatz8, aesWP_VorpapierTypCode9, aesWP_ReferenzID9, aesWP_Zusatz9, aesWP_Containernummer1, aesWP_Containernummer2, aesWP_Containernummer3, aesWP_Containernummer4, aesWP_EmpfaengerTeilnehmerEORI, aesWP_EmpfaengerTeilnehmerNLNR, aesWP_EmpfaengerTeilnehmerName, aesWP_EmpfaengerTeilnehmerStrasse, aesWP_EmpfaengerTeilnehmerOrt, aesWP_EmpfaengerTeilnehmerPLZ, aesWP_EmpfaengerTeilnehmerLandCode, aesWP_EndverwenderTeilnehmerEORI, aesWP_EndverwenderTeilnehmerNLNR, aesWP_EndverwenderTeilnehmerName, aesWP_EndverwenderTeilnehmerStrasse, aesWP_EndverwenderTeilnehmerOrt, aesWP_EndverwenderTeilnehmerPLZ, aesWP_EndverwenderTeilnehmerLandCode, Original_aesWP_Id, Original_aesWP_AESId, Original_aesWP_PositionsNummer, Original_aesWP_WarennummerKN8, Original_aesWP_WarennummerTARIC, Original_aesWP_WarennummerZusatz1, Original_aesWP_WarennummerZusatz2, Original_aesWP_WarennummerNational, Original_aesWP_Warenbezeichnung, Original_aesWP_RegisternummerFremdsystem, Original_aesWP_Vermerk, Original_aesWP_KennungSendung, Original_aesWP_UrsprungsbundeslandCode, Original_aesWP_Eigenmasse, Original_aesWP_Rohmasse, Original_aesWP_Gefahrgutnummer, Original_aesWP_ZahlungsweiseBefoerderungskosten, Original_aesWP_VerfahrenAngemeldetCode, Original_aesWP_VerfahrenVorangegangenCode, Original_aesWP_VerfahrenNationalCode, Original_aesWP_AusfuhrerstattungVerfahrensCode, Original_aesWP_Menge, Original_aesWP_Wert, Original_aesWP_VorpapierTypCode1, Original_aesWP_ReferenzID1, Original_aesWP_Zusatz1, Original_aesWP_VorpapierTypCode2, Original_aesWP_ReferenzID2, Original_aesWP_Zusatz2, Original_aesWP_VorpapierTypCode3, Original_aesWP_ReferenzID3, Original_aesWP_Zusatz3, Original_aesWP_VorpapierTypCode4, Original_aesWP_ReferenzID4, Original_aesWP_Zusatz4, Original_aesWP_VorpapierTypCode5, Original_aesWP_ReferenzID5, Original_aesWP_Zusatz5, Original_aesWP_VorpapierTypCode6, Original_aesWP_ReferenzID6, Original_aesWP_Zusatz6, Original_aesWP_VorpapierTypCode7, Original_aesWP_ReferenzID7, Original_aesWP_Zusatz7, Original_aesWP_VorpapierTypCode8, Original_aesWP_ReferenzID8, Original_aesWP_Zusatz8, Original_aesWP_VorpapierTypCode9, Original_aesWP_ReferenzID9, Original_aesWP_Zusatz9, Original_aesWP_Containernummer1, Original_aesWP_Containernummer2, Original_aesWP_Containernummer3, Original_aesWP_Containernummer4, Original_aesWP_EmpfaengerTeilnehmerEORI, Original_aesWP_EmpfaengerTeilnehmerNLNR, Original_aesWP_EmpfaengerTeilnehmerName, Original_aesWP_EmpfaengerTeilnehmerStrasse, Original_aesWP_EmpfaengerTeilnehmerOrt, Original_aesWP_EmpfaengerTeilnehmerPLZ, Original_aesWP_EmpfaengerTeilnehmerLandCode, Original_aesWP_EndverwenderTeilnehmerEORI, Original_aesWP_EndverwenderTeilnehmerNLNR, Original_aesWP_EndverwenderTeilnehmerName, Original_aesWP_EndverwenderTeilnehmerStrasse, Original_aesWP_EndverwenderTeilnehmerOrt, Original_aesWP_EndverwenderTeilnehmerPLZ, Original_aesWP_EndverwenderTeilnehmerLandCode, Original_aesWP_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_AES_WarenpositionPackstueckeTableAdapter 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 = "tblDakosy_AES_WarenpositionPackstuecke" tableMapping.ColumnMappings.Add("aesWpPk_Id", "aesWpPk_Id") tableMapping.ColumnMappings.Add("aesWpPk_aesWPId", "aesWpPk_aesWPId") tableMapping.ColumnMappings.Add("aesWpPk_aesId", "aesWpPk_aesId") tableMapping.ColumnMappings.Add("aesWpPk_PackstueckeAnzahl", "aesWpPk_PackstueckeAnzahl") tableMapping.ColumnMappings.Add("aesWpPk_Verpackungsart", "aesWpPk_Verpackungsart") tableMapping.ColumnMappings.Add("aesWpPk_Kennzeichnung", "aesWpPk_Kennzeichnung") 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].[tblDakosy_AES_WarenpositionPackstuecke] WHERE (([aesWpPk_Id] ="& _ " @Original_aesWpPk_Id) AND ([aesWpPk_aesWPId] = @Original_aesWpPk_aesWPId) AND ("& _ "[aesWpPk_aesId] = @Original_aesWpPk_aesId) AND ((@IsNull_aesWpPk_PackstueckeAnza"& _ "hl = 1 AND [aesWpPk_PackstueckeAnzahl] IS NULL) OR ([aesWpPk_PackstueckeAnzahl] "& _ "= @Original_aesWpPk_PackstueckeAnzahl)) AND ((@IsNull_aesWpPk_Verpackungsart = 1"& _ " AND [aesWpPk_Verpackungsart] IS NULL) OR ([aesWpPk_Verpackungsart] = @Original_"& _ "aesWpPk_Verpackungsart)) AND ((@IsNull_aesWpPk_Kennzeichnung = 1 AND [aesWpPk_Ke"& _ "nnzeichnung] IS NULL) OR ([aesWpPk_Kennzeichnung] = @Original_aesWpPk_Kennzeichn"& _ "ung)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_aesWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_aesWPId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_aesId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_aesId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "aesWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpPk_Verpackungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpPk_Kennzeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Kennzeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_Kennzeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Kennzeichnung", 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].[tblDakosy_AES_WarenpositionPackstuecke] ([aesWpPk_aesWPId], [a"& _ "esWpPk_aesId], [aesWpPk_PackstueckeAnzahl], [aesWpPk_Verpackungsart], [aesWpPk_K"& _ "ennzeichnung]) VALUES (@aesWpPk_aesWPId, @aesWpPk_aesId, @aesWpPk_PackstueckeAnz"& _ "ahl, @aesWpPk_Verpackungsart, @aesWpPk_Kennzeichnung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT aesWpPk_Id, aesWp"& _ "Pk_aesWPId, aesWpPk_aesId, aesWpPk_PackstueckeAnzahl, aesWpPk_Verpackungsart, ae"& _ "sWpPk_Kennzeichnung FROM tblDakosy_AES_WarenpositionPackstuecke WHERE (aesWpPk_I"& _ "d = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_aesWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_aesWPId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_aesId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_aesId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "aesWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_Kennzeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Kennzeichnung", 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].[tblDakosy_AES_WarenpositionPackstuecke] SET [aesWpPk_aesWPId] = @ae"& _ "sWpPk_aesWPId, [aesWpPk_aesId] = @aesWpPk_aesId, [aesWpPk_PackstueckeAnzahl] = @"& _ "aesWpPk_PackstueckeAnzahl, [aesWpPk_Verpackungsart] = @aesWpPk_Verpackungsart, ["& _ "aesWpPk_Kennzeichnung] = @aesWpPk_Kennzeichnung WHERE (([aesWpPk_Id] = @Original"& _ "_aesWpPk_Id) AND ([aesWpPk_aesWPId] = @Original_aesWpPk_aesWPId) AND ([aesWpPk_a"& _ "esId] = @Original_aesWpPk_aesId) AND ((@IsNull_aesWpPk_PackstueckeAnzahl = 1 AND"& _ " [aesWpPk_PackstueckeAnzahl] IS NULL) OR ([aesWpPk_PackstueckeAnzahl] = @Origina"& _ "l_aesWpPk_PackstueckeAnzahl)) AND ((@IsNull_aesWpPk_Verpackungsart = 1 AND [aesW"& _ "pPk_Verpackungsart] IS NULL) OR ([aesWpPk_Verpackungsart] = @Original_aesWpPk_Ve"& _ "rpackungsart)) AND ((@IsNull_aesWpPk_Kennzeichnung = 1 AND [aesWpPk_Kennzeichnun"& _ "g] IS NULL) OR ([aesWpPk_Kennzeichnung] = @Original_aesWpPk_Kennzeichnung)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT aesWpPk_Id, aesWpPk_aesWPId, aesWpPk_aesId, aesWpPk_PackstueckeAnzahl, aes"& _ "WpPk_Verpackungsart, aesWpPk_Kennzeichnung FROM tblDakosy_AES_WarenpositionPacks"& _ "tuecke WHERE (aesWpPk_Id = @aesWpPk_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_aesWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_aesWPId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_aesId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_aesId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "aesWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_Kennzeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Kennzeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_aesWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_aesWPId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_aesId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_aesId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "aesWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpPk_Verpackungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpPk_Kennzeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Kennzeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpPk_Kennzeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Kennzeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpPk_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpPk_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 aesWpPk_Id, aesWpPk_aesWPId, aesWpPk_aesId, aesWpPk_PackstueckeAnzahl, aes"& _ "WpPk_Verpackungsart, aesWpPk_Kennzeichnung FROM dbo.tblDakosy_AES_WarenpositionP"& _ "ackstuecke" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_AES_WarenpositionPackstueckeDataTable) 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 VERAGDataSet.tblDakosy_AES_WarenpositionPackstueckeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_AES_WarenpositionPackstueckeDataTable = New VERAGDataSet.tblDakosy_AES_WarenpositionPackstueckeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_AES_WarenpositionPackstueckeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_AES_WarenpositionPackstuecke") 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_aesWpPk_Id As Integer, ByVal Original_aesWpPk_aesWPId As Integer, ByVal Original_aesWpPk_aesId As Integer, ByVal Original_aesWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal Original_aesWpPk_Verpackungsart As String, ByVal Original_aesWpPk_Kennzeichnung As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_aesWpPk_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_aesWpPk_aesWPId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_aesWpPk_aesId,Integer) If (Original_aesWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_aesWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_aesWpPk_Verpackungsart 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_aesWpPk_Verpackungsart,String) End If If (Original_aesWpPk_Kennzeichnung 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_aesWpPk_Kennzeichnung,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 aesWpPk_aesWPId As Integer, ByVal aesWpPk_aesId As Integer, ByVal aesWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal aesWpPk_Verpackungsart As String, ByVal aesWpPk_Kennzeichnung As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(aesWpPk_aesWPId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(aesWpPk_aesId,Integer) If (aesWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(aesWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (aesWpPk_Verpackungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(aesWpPk_Verpackungsart,String) End If If (aesWpPk_Kennzeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(aesWpPk_Kennzeichnung,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 aesWpPk_aesWPId As Integer, ByVal aesWpPk_aesId As Integer, ByVal aesWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal aesWpPk_Verpackungsart As String, ByVal aesWpPk_Kennzeichnung As String, ByVal Original_aesWpPk_Id As Integer, ByVal Original_aesWpPk_aesWPId As Integer, ByVal Original_aesWpPk_aesId As Integer, ByVal Original_aesWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal Original_aesWpPk_Verpackungsart As String, ByVal Original_aesWpPk_Kennzeichnung As String, ByVal aesWpPk_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(aesWpPk_aesWPId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(aesWpPk_aesId,Integer) If (aesWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(aesWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (aesWpPk_Verpackungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(aesWpPk_Verpackungsart,String) End If If (aesWpPk_Kennzeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(aesWpPk_Kennzeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_aesWpPk_Id,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_aesWpPk_aesWPId,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_aesWpPk_aesId,Integer) If (Original_aesWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_aesWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_aesWpPk_Verpackungsart 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_aesWpPk_Verpackungsart,String) End If If (Original_aesWpPk_Kennzeichnung 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_aesWpPk_Kennzeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(aesWpPk_Id,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 aesWpPk_aesWPId As Integer, ByVal aesWpPk_aesId As Integer, ByVal aesWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal aesWpPk_Verpackungsart As String, ByVal aesWpPk_Kennzeichnung As String, ByVal Original_aesWpPk_Id As Integer, ByVal Original_aesWpPk_aesWPId As Integer, ByVal Original_aesWpPk_aesId As Integer, ByVal Original_aesWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal Original_aesWpPk_Verpackungsart As String, ByVal Original_aesWpPk_Kennzeichnung As String) As Integer Return Me.Update(aesWpPk_aesWPId, aesWpPk_aesId, aesWpPk_PackstueckeAnzahl, aesWpPk_Verpackungsart, aesWpPk_Kennzeichnung, Original_aesWpPk_Id, Original_aesWpPk_aesWPId, Original_aesWpPk_aesId, Original_aesWpPk_PackstueckeAnzahl, Original_aesWpPk_Verpackungsart, Original_aesWpPk_Kennzeichnung, Original_aesWpPk_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_AES_WarenpositionUnterlagenTableAdapter 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 = "tblDakosy_AES_WarenpositionUnterlagen" tableMapping.ColumnMappings.Add("aesWpUl_Id", "aesWpUl_Id") tableMapping.ColumnMappings.Add("aesWpUl_aesWPId", "aesWpUl_aesWPId") tableMapping.ColumnMappings.Add("aesWpUl_aesId", "aesWpUl_aesId") tableMapping.ColumnMappings.Add("aesWpUl_Typ", "aesWpUl_Typ") tableMapping.ColumnMappings.Add("aesWpUl_QualifierCode", "aesWpUl_QualifierCode") tableMapping.ColumnMappings.Add("aesWpUl_ReferenzID", "aesWpUl_ReferenzID") tableMapping.ColumnMappings.Add("aesWpUl_Zusatz", "aesWpUl_Zusatz") tableMapping.ColumnMappings.Add("aesWpUl_Detail", "aesWpUl_Detail") tableMapping.ColumnMappings.Add("aesWpUl_DatumAusstellung", "aesWpUl_DatumAusstellung") tableMapping.ColumnMappings.Add("aesWpUl_DatumEndeGueltigkeit", "aesWpUl_DatumEndeGueltigkeit") tableMapping.ColumnMappings.Add("aesWpUl_Wert", "aesWpUl_Wert") tableMapping.ColumnMappings.Add("aesWpUl_Abschreibungsmenge", "aesWpUl_Abschreibungsmenge") tableMapping.ColumnMappings.Add("aesWpUl_Masseinheit", "aesWpUl_Masseinheit") 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].[tblDakosy_AES_WarenpositionUnterlagen] WHERE (([aesWpUl_Id] = "& _ "@Original_aesWpUl_Id) AND ([aesWpUl_aesWPId] = @Original_aesWpUl_aesWPId) AND (["& _ "aesWpUl_aesId] = @Original_aesWpUl_aesId) AND ((@IsNull_aesWpUl_Typ = 1 AND [aes"& _ "WpUl_Typ] IS NULL) OR ([aesWpUl_Typ] = @Original_aesWpUl_Typ)) AND ((@IsNull_aes"& _ "WpUl_QualifierCode = 1 AND [aesWpUl_QualifierCode] IS NULL) OR ([aesWpUl_Qualifi"& _ "erCode] = @Original_aesWpUl_QualifierCode)) AND ((@IsNull_aesWpUl_ReferenzID = 1"& _ " AND [aesWpUl_ReferenzID] IS NULL) OR ([aesWpUl_ReferenzID] = @Original_aesWpUl_"& _ "ReferenzID)) AND ((@IsNull_aesWpUl_Zusatz = 1 AND [aesWpUl_Zusatz] IS NULL) OR ("& _ "[aesWpUl_Zusatz] = @Original_aesWpUl_Zusatz)) AND ((@IsNull_aesWpUl_Detail = 1 A"& _ "ND [aesWpUl_Detail] IS NULL) OR ([aesWpUl_Detail] = @Original_aesWpUl_Detail)) A"& _ "ND ((@IsNull_aesWpUl_DatumAusstellung = 1 AND [aesWpUl_DatumAusstellung] IS NULL"& _ ") OR ([aesWpUl_DatumAusstellung] = @Original_aesWpUl_DatumAusstellung)) AND ((@I"& _ "sNull_aesWpUl_DatumEndeGueltigkeit = 1 AND [aesWpUl_DatumEndeGueltigkeit] IS NUL"& _ "L) OR ([aesWpUl_DatumEndeGueltigkeit] = @Original_aesWpUl_DatumEndeGueltigkeit))"& _ " AND ((@IsNull_aesWpUl_Wert = 1 AND [aesWpUl_Wert] IS NULL) OR ([aesWpUl_Wert] ="& _ " @Original_aesWpUl_Wert)) AND ((@IsNull_aesWpUl_Abschreibungsmenge = 1 AND [aesW"& _ "pUl_Abschreibungsmenge] IS NULL) OR ([aesWpUl_Abschreibungsmenge] = @Original_ae"& _ "sWpUl_Abschreibungsmenge)) AND ((@IsNull_aesWpUl_Masseinheit = 1 AND [aesWpUl_Ma"& _ "sseinheit] IS NULL) OR ([aesWpUl_Masseinheit] = @Original_aesWpUl_Masseinheit)))"& _ "" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_aesWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_aesWPId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_aesId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_aesId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Typ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_QualifierCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_QualifierCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_QualifierCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_QualifierCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_ReferenzID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_ReferenzID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_ReferenzID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_ReferenzID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Zusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Zusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Zusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Zusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Detail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Detail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Detail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Detail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_DatumAusstellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_DatumEndeGueltigkeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumEndeGueltigkeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_DatumEndeGueltigkeit", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumEndeGueltigkeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Wert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Wert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Wert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "aesWpUl_Wert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Abschreibungsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Abschreibungsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Abschreibungsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 7, "aesWpUl_Abschreibungsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Masseinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Masseinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Masseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Masseinheit", 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].[tblDakosy_AES_WarenpositionUnterlagen] ([aesWpUl_aesWPId], [ae"& _ "sWpUl_aesId], [aesWpUl_Typ], [aesWpUl_QualifierCode], [aesWpUl_ReferenzID], [aes"& _ "WpUl_Zusatz], [aesWpUl_Detail], [aesWpUl_DatumAusstellung], [aesWpUl_DatumEndeGu"& _ "eltigkeit], [aesWpUl_Wert], [aesWpUl_Abschreibungsmenge], [aesWpUl_Masseinheit])"& _ " VALUES (@aesWpUl_aesWPId, @aesWpUl_aesId, @aesWpUl_Typ, @aesWpUl_QualifierCode,"& _ " @aesWpUl_ReferenzID, @aesWpUl_Zusatz, @aesWpUl_Detail, @aesWpUl_DatumAusstellun"& _ "g, @aesWpUl_DatumEndeGueltigkeit, @aesWpUl_Wert, @aesWpUl_Abschreibungsmenge, @a"& _ "esWpUl_Masseinheit);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT aesWpUl_Id, aesWpUl_aesWPId, aesWpUl_aesId, aesWpUl"& _ "_Typ, aesWpUl_QualifierCode, aesWpUl_ReferenzID, aesWpUl_Zusatz, aesWpUl_Detail,"& _ " aesWpUl_DatumAusstellung, aesWpUl_DatumEndeGueltigkeit, aesWpUl_Wert, aesWpUl_A"& _ "bschreibungsmenge, aesWpUl_Masseinheit FROM tblDakosy_AES_WarenpositionUnterlage"& _ "n WHERE (aesWpUl_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_aesWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_aesWPId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_aesId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_aesId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_QualifierCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_QualifierCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_ReferenzID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_ReferenzID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Zusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Zusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Detail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Detail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_DatumEndeGueltigkeit", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumEndeGueltigkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Wert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "aesWpUl_Wert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Abschreibungsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 7, "aesWpUl_Abschreibungsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Masseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Masseinheit", 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].[tblDakosy_AES_WarenpositionUnterlagen] SET [aesWpUl_aesWPId] = @aes"& _ "WpUl_aesWPId, [aesWpUl_aesId] = @aesWpUl_aesId, [aesWpUl_Typ] = @aesWpUl_Typ, [a"& _ "esWpUl_QualifierCode] = @aesWpUl_QualifierCode, [aesWpUl_ReferenzID] = @aesWpUl_"& _ "ReferenzID, [aesWpUl_Zusatz] = @aesWpUl_Zusatz, [aesWpUl_Detail] = @aesWpUl_Deta"& _ "il, [aesWpUl_DatumAusstellung] = @aesWpUl_DatumAusstellung, [aesWpUl_DatumEndeGu"& _ "eltigkeit] = @aesWpUl_DatumEndeGueltigkeit, [aesWpUl_Wert] = @aesWpUl_Wert, [aes"& _ "WpUl_Abschreibungsmenge] = @aesWpUl_Abschreibungsmenge, [aesWpUl_Masseinheit] = "& _ "@aesWpUl_Masseinheit WHERE (([aesWpUl_Id] = @Original_aesWpUl_Id) AND ([aesWpUl_"& _ "aesWPId] = @Original_aesWpUl_aesWPId) AND ([aesWpUl_aesId] = @Original_aesWpUl_a"& _ "esId) AND ((@IsNull_aesWpUl_Typ = 1 AND [aesWpUl_Typ] IS NULL) OR ([aesWpUl_Typ]"& _ " = @Original_aesWpUl_Typ)) AND ((@IsNull_aesWpUl_QualifierCode = 1 AND [aesWpUl_"& _ "QualifierCode] IS NULL) OR ([aesWpUl_QualifierCode] = @Original_aesWpUl_Qualifie"& _ "rCode)) AND ((@IsNull_aesWpUl_ReferenzID = 1 AND [aesWpUl_ReferenzID] IS NULL) O"& _ "R ([aesWpUl_ReferenzID] = @Original_aesWpUl_ReferenzID)) AND ((@IsNull_aesWpUl_Z"& _ "usatz = 1 AND [aesWpUl_Zusatz] IS NULL) OR ([aesWpUl_Zusatz] = @Original_aesWpUl"& _ "_Zusatz)) AND ((@IsNull_aesWpUl_Detail = 1 AND [aesWpUl_Detail] IS NULL) OR ([ae"& _ "sWpUl_Detail] = @Original_aesWpUl_Detail)) AND ((@IsNull_aesWpUl_DatumAusstellun"& _ "g = 1 AND [aesWpUl_DatumAusstellung] IS NULL) OR ([aesWpUl_DatumAusstellung] = @"& _ "Original_aesWpUl_DatumAusstellung)) AND ((@IsNull_aesWpUl_DatumEndeGueltigkeit ="& _ " 1 AND [aesWpUl_DatumEndeGueltigkeit] IS NULL) OR ([aesWpUl_DatumEndeGueltigkeit"& _ "] = @Original_aesWpUl_DatumEndeGueltigkeit)) AND ((@IsNull_aesWpUl_Wert = 1 AND "& _ "[aesWpUl_Wert] IS NULL) OR ([aesWpUl_Wert] = @Original_aesWpUl_Wert)) AND ((@IsN"& _ "ull_aesWpUl_Abschreibungsmenge = 1 AND [aesWpUl_Abschreibungsmenge] IS NULL) OR "& _ "([aesWpUl_Abschreibungsmenge] = @Original_aesWpUl_Abschreibungsmenge)) AND ((@Is"& _ "Null_aesWpUl_Masseinheit = 1 AND [aesWpUl_Masseinheit] IS NULL) OR ([aesWpUl_Mas"& _ "seinheit] = @Original_aesWpUl_Masseinheit)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT aesWpUl_Id, aesWpUl_aesWPI"& _ "d, aesWpUl_aesId, aesWpUl_Typ, aesWpUl_QualifierCode, aesWpUl_ReferenzID, aesWpU"& _ "l_Zusatz, aesWpUl_Detail, aesWpUl_DatumAusstellung, aesWpUl_DatumEndeGueltigkeit"& _ ", aesWpUl_Wert, aesWpUl_Abschreibungsmenge, aesWpUl_Masseinheit FROM tblDakosy_A"& _ "ES_WarenpositionUnterlagen WHERE (aesWpUl_Id = @aesWpUl_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_aesWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_aesWPId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_aesId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_aesId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_QualifierCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_QualifierCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_ReferenzID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_ReferenzID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Zusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Zusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Detail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Detail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_DatumEndeGueltigkeit", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumEndeGueltigkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Wert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "aesWpUl_Wert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Abschreibungsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 7, "aesWpUl_Abschreibungsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Masseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Masseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_aesWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_aesWPId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_aesId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_aesId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Typ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_QualifierCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_QualifierCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_QualifierCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_QualifierCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_ReferenzID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_ReferenzID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_ReferenzID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_ReferenzID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Zusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Zusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Zusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Zusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Detail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Detail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Detail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Detail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_DatumAusstellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_DatumEndeGueltigkeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumEndeGueltigkeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_DatumEndeGueltigkeit", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_DatumEndeGueltigkeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Wert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Wert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Wert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "aesWpUl_Wert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Abschreibungsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Abschreibungsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Abschreibungsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 7, "aesWpUl_Abschreibungsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_aesWpUl_Masseinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Masseinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aesWpUl_Masseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Masseinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@aesWpUl_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "aesWpUl_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 aesWpUl_Id, aesWpUl_aesWPId, aesWpUl_aesId, aesWpUl_Typ, aesWpUl_Qualifier"& _ "Code, aesWpUl_ReferenzID, aesWpUl_Zusatz, aesWpUl_Detail, aesWpUl_DatumAusstellu"& _ "ng, aesWpUl_DatumEndeGueltigkeit, aesWpUl_Wert, aesWpUl_Abschreibungsmenge, aesW"& _ "pUl_Masseinheit FROM dbo.tblDakosy_AES_WarenpositionUnterlagen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_AES_WarenpositionUnterlagenDataTable) 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 VERAGDataSet.tblDakosy_AES_WarenpositionUnterlagenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_AES_WarenpositionUnterlagenDataTable = New VERAGDataSet.tblDakosy_AES_WarenpositionUnterlagenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_AES_WarenpositionUnterlagenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_AES_WarenpositionUnterlagen") 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_aesWpUl_Id As Integer, ByVal Original_aesWpUl_aesWPId As Integer, ByVal Original_aesWpUl_aesId As Integer, ByVal Original_aesWpUl_Typ As String, ByVal Original_aesWpUl_QualifierCode As String, ByVal Original_aesWpUl_ReferenzID As String, ByVal Original_aesWpUl_Zusatz As String, ByVal Original_aesWpUl_Detail As String, ByVal Original_aesWpUl_DatumAusstellung As Global.System.Nullable(Of Date), ByVal Original_aesWpUl_DatumEndeGueltigkeit As Global.System.Nullable(Of Date), ByVal Original_aesWpUl_Wert As Global.System.Nullable(Of Decimal), ByVal Original_aesWpUl_Abschreibungsmenge As Global.System.Nullable(Of Decimal), ByVal Original_aesWpUl_Masseinheit As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_aesWpUl_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_aesWpUl_aesWPId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_aesWpUl_aesId,Integer) If (Original_aesWpUl_Typ 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_aesWpUl_Typ,String) End If If (Original_aesWpUl_QualifierCode 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_aesWpUl_QualifierCode,String) End If If (Original_aesWpUl_ReferenzID 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_aesWpUl_ReferenzID,String) End If If (Original_aesWpUl_Zusatz 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_aesWpUl_Zusatz,String) End If If (Original_aesWpUl_Detail 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_aesWpUl_Detail,String) End If If (Original_aesWpUl_DatumAusstellung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_aesWpUl_DatumAusstellung.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_aesWpUl_DatumEndeGueltigkeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_aesWpUl_DatumEndeGueltigkeit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_aesWpUl_Wert.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_aesWpUl_Wert.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Original_aesWpUl_Abschreibungsmenge.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_aesWpUl_Abschreibungsmenge.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_aesWpUl_Masseinheit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_aesWpUl_Masseinheit,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 aesWpUl_aesWPId As Integer, ByVal aesWpUl_aesId As Integer, ByVal aesWpUl_Typ As String, ByVal aesWpUl_QualifierCode As String, ByVal aesWpUl_ReferenzID As String, ByVal aesWpUl_Zusatz As String, ByVal aesWpUl_Detail As String, ByVal aesWpUl_DatumAusstellung As Global.System.Nullable(Of Date), ByVal aesWpUl_DatumEndeGueltigkeit As Global.System.Nullable(Of Date), ByVal aesWpUl_Wert As Global.System.Nullable(Of Decimal), ByVal aesWpUl_Abschreibungsmenge As Global.System.Nullable(Of Decimal), ByVal aesWpUl_Masseinheit As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(aesWpUl_aesWPId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(aesWpUl_aesId,Integer) If (aesWpUl_Typ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(aesWpUl_Typ,String) End If If (aesWpUl_QualifierCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(aesWpUl_QualifierCode,String) End If If (aesWpUl_ReferenzID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(aesWpUl_ReferenzID,String) End If If (aesWpUl_Zusatz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(aesWpUl_Zusatz,String) End If If (aesWpUl_Detail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(aesWpUl_Detail,String) End If If (aesWpUl_DatumAusstellung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(aesWpUl_DatumAusstellung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (aesWpUl_DatumEndeGueltigkeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(aesWpUl_DatumEndeGueltigkeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (aesWpUl_Wert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(aesWpUl_Wert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (aesWpUl_Abschreibungsmenge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(aesWpUl_Abschreibungsmenge.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (aesWpUl_Masseinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(aesWpUl_Masseinheit,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 aesWpUl_aesWPId As Integer, _ ByVal aesWpUl_aesId As Integer, _ ByVal aesWpUl_Typ As String, _ ByVal aesWpUl_QualifierCode As String, _ ByVal aesWpUl_ReferenzID As String, _ ByVal aesWpUl_Zusatz As String, _ ByVal aesWpUl_Detail As String, _ ByVal aesWpUl_DatumAusstellung As Global.System.Nullable(Of Date), _ ByVal aesWpUl_DatumEndeGueltigkeit As Global.System.Nullable(Of Date), _ ByVal aesWpUl_Wert As Global.System.Nullable(Of Decimal), _ ByVal aesWpUl_Abschreibungsmenge As Global.System.Nullable(Of Decimal), _ ByVal aesWpUl_Masseinheit As String, _ ByVal Original_aesWpUl_Id As Integer, _ ByVal Original_aesWpUl_aesWPId As Integer, _ ByVal Original_aesWpUl_aesId As Integer, _ ByVal Original_aesWpUl_Typ As String, _ ByVal Original_aesWpUl_QualifierCode As String, _ ByVal Original_aesWpUl_ReferenzID As String, _ ByVal Original_aesWpUl_Zusatz As String, _ ByVal Original_aesWpUl_Detail As String, _ ByVal Original_aesWpUl_DatumAusstellung As Global.System.Nullable(Of Date), _ ByVal Original_aesWpUl_DatumEndeGueltigkeit As Global.System.Nullable(Of Date), _ ByVal Original_aesWpUl_Wert As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWpUl_Abschreibungsmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWpUl_Masseinheit As String, _ ByVal aesWpUl_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(aesWpUl_aesWPId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(aesWpUl_aesId,Integer) If (aesWpUl_Typ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(aesWpUl_Typ,String) End If If (aesWpUl_QualifierCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(aesWpUl_QualifierCode,String) End If If (aesWpUl_ReferenzID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(aesWpUl_ReferenzID,String) End If If (aesWpUl_Zusatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(aesWpUl_Zusatz,String) End If If (aesWpUl_Detail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(aesWpUl_Detail,String) End If If (aesWpUl_DatumAusstellung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(aesWpUl_DatumAusstellung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (aesWpUl_DatumEndeGueltigkeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(aesWpUl_DatumEndeGueltigkeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (aesWpUl_Wert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(aesWpUl_Wert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (aesWpUl_Abschreibungsmenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(aesWpUl_Abschreibungsmenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (aesWpUl_Masseinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(aesWpUl_Masseinheit,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_aesWpUl_Id,Integer) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_aesWpUl_aesWPId,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_aesWpUl_aesId,Integer) If (Original_aesWpUl_Typ 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_aesWpUl_Typ,String) End If If (Original_aesWpUl_QualifierCode 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_aesWpUl_QualifierCode,String) End If If (Original_aesWpUl_ReferenzID 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_aesWpUl_ReferenzID,String) End If If (Original_aesWpUl_Zusatz 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_aesWpUl_Zusatz,String) End If If (Original_aesWpUl_Detail 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_aesWpUl_Detail,String) End If If (Original_aesWpUl_DatumAusstellung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_aesWpUl_DatumAusstellung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_aesWpUl_DatumEndeGueltigkeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_aesWpUl_DatumEndeGueltigkeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_aesWpUl_Wert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_aesWpUl_Wert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_aesWpUl_Abschreibungsmenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_aesWpUl_Abschreibungsmenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_aesWpUl_Masseinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_aesWpUl_Masseinheit,String) End If Me.Adapter.UpdateCommand.Parameters(35).Value = CType(aesWpUl_Id,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 aesWpUl_aesWPId As Integer, _ ByVal aesWpUl_aesId As Integer, _ ByVal aesWpUl_Typ As String, _ ByVal aesWpUl_QualifierCode As String, _ ByVal aesWpUl_ReferenzID As String, _ ByVal aesWpUl_Zusatz As String, _ ByVal aesWpUl_Detail As String, _ ByVal aesWpUl_DatumAusstellung As Global.System.Nullable(Of Date), _ ByVal aesWpUl_DatumEndeGueltigkeit As Global.System.Nullable(Of Date), _ ByVal aesWpUl_Wert As Global.System.Nullable(Of Decimal), _ ByVal aesWpUl_Abschreibungsmenge As Global.System.Nullable(Of Decimal), _ ByVal aesWpUl_Masseinheit As String, _ ByVal Original_aesWpUl_Id As Integer, _ ByVal Original_aesWpUl_aesWPId As Integer, _ ByVal Original_aesWpUl_aesId As Integer, _ ByVal Original_aesWpUl_Typ As String, _ ByVal Original_aesWpUl_QualifierCode As String, _ ByVal Original_aesWpUl_ReferenzID As String, _ ByVal Original_aesWpUl_Zusatz As String, _ ByVal Original_aesWpUl_Detail As String, _ ByVal Original_aesWpUl_DatumAusstellung As Global.System.Nullable(Of Date), _ ByVal Original_aesWpUl_DatumEndeGueltigkeit As Global.System.Nullable(Of Date), _ ByVal Original_aesWpUl_Wert As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWpUl_Abschreibungsmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_aesWpUl_Masseinheit As String) As Integer Return Me.Update(aesWpUl_aesWPId, aesWpUl_aesId, aesWpUl_Typ, aesWpUl_QualifierCode, aesWpUl_ReferenzID, aesWpUl_Zusatz, aesWpUl_Detail, aesWpUl_DatumAusstellung, aesWpUl_DatumEndeGueltigkeit, aesWpUl_Wert, aesWpUl_Abschreibungsmenge, aesWpUl_Masseinheit, Original_aesWpUl_Id, Original_aesWpUl_aesWPId, Original_aesWpUl_aesId, Original_aesWpUl_Typ, Original_aesWpUl_QualifierCode, Original_aesWpUl_ReferenzID, Original_aesWpUl_Zusatz, Original_aesWpUl_Detail, Original_aesWpUl_DatumAusstellung, Original_aesWpUl_DatumEndeGueltigkeit, Original_aesWpUl_Wert, Original_aesWpUl_Abschreibungsmenge, Original_aesWpUl_Masseinheit, Original_aesWpUl_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_EZATableAdapter 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 = "tblDakosy_EZA" tableMapping.ColumnMappings.Add("eza_Id", "eza_Id") tableMapping.ColumnMappings.Add("eza_Status", "eza_Status") tableMapping.ColumnMappings.Add("eza_Status_KEWILL_Equivalent", "eza_Status_KEWILL_Equivalent") tableMapping.ColumnMappings.Add("eza_dyaArt", "eza_dyaArt") tableMapping.ColumnMappings.Add("eza_dyaAnmID", "eza_dyaAnmID") tableMapping.ColumnMappings.Add("eza_ANR", "eza_ANR") tableMapping.ColumnMappings.Add("eza_MRN", "eza_MRN") tableMapping.ColumnMappings.Add("eza_Erstellung", "eza_Erstellung") tableMapping.ColumnMappings.Add("eza_Erstellung_SB", "eza_Erstellung_SB") tableMapping.ColumnMappings.Add("eza_LetzteBearbeitung", "eza_LetzteBearbeitung") tableMapping.ColumnMappings.Add("eza_LetzteBearbeitung_SB", "eza_LetzteBearbeitung_SB") tableMapping.ColumnMappings.Add("eza_firma", "eza_firma") tableMapping.ColumnMappings.Add("eza_niederlassung", "eza_niederlassung") tableMapping.ColumnMappings.Add("eza_Trans_Partner", "eza_Trans_Partner") tableMapping.ColumnMappings.Add("eza_Trans_Div1", "eza_Trans_Div1") tableMapping.ColumnMappings.Add("eza_Trans_Div2", "eza_Trans_Div2") tableMapping.ColumnMappings.Add("eza_Trans_Div3", "eza_Trans_Div3") tableMapping.ColumnMappings.Add("eza_Trans_Referenz", "eza_Trans_Referenz") tableMapping.ColumnMappings.Add("eza_Trans_DatumZeit", "eza_Trans_DatumZeit") tableMapping.ColumnMappings.Add("eza_Trans_Version", "eza_Trans_Version") tableMapping.ColumnMappings.Add("eza_NachrichtenSenderTIN", "eza_NachrichtenSenderTIN") tableMapping.ColumnMappings.Add("eza_NachrichtenSenderNLNR", "eza_NachrichtenSenderNLNR") tableMapping.ColumnMappings.Add("eza_NachrichtenempfaengerDST", "eza_NachrichtenempfaengerDST") tableMapping.ColumnMappings.Add("eza_ObjectName", "eza_ObjectName") tableMapping.ColumnMappings.Add("eza_ObjectAlias", "eza_ObjectAlias") tableMapping.ColumnMappings.Add("eza_BezugsnummerVorblendung", "eza_BezugsnummerVorblendung") tableMapping.ColumnMappings.Add("eza_Bearbeiter", "eza_Bearbeiter") tableMapping.ColumnMappings.Add("eza_AnmeldungArt", "eza_AnmeldungArt") tableMapping.ColumnMappings.Add("eza_CompliancePruefung", "eza_CompliancePruefung") tableMapping.ColumnMappings.Add("eza_AnfBemerkungStatusanzeige", "eza_AnfBemerkungStatusanzeige") tableMapping.ColumnMappings.Add("eza_AdressierteZollstelle", "eza_AdressierteZollstelle") tableMapping.ColumnMappings.Add("eza_AnmelderistEmpfaenger", "eza_AnmelderistEmpfaenger") tableMapping.ColumnMappings.Add("eza_VertretungsVerhaeltnisCode", "eza_VertretungsVerhaeltnisCode") tableMapping.ColumnMappings.Add("eza_Vorsteuerabzug", "eza_Vorsteuerabzug") tableMapping.ColumnMappings.Add("eza_AnmeldenderBearbeiterName", "eza_AnmeldenderBearbeiterName") tableMapping.ColumnMappings.Add("eza_AnmeldenderBearbeiterTel", "eza_AnmeldenderBearbeiterTel") tableMapping.ColumnMappings.Add("eza_AnmeldenderBearbeiterStellung", "eza_AnmeldenderBearbeiterStellung") tableMapping.ColumnMappings.Add("eza_AnmeldenderBearbeiterEMail", "eza_AnmeldenderBearbeiterEMail") tableMapping.ColumnMappings.Add("eza_FiskalvertretungKz", "eza_FiskalvertretungKz") tableMapping.ColumnMappings.Add("eza_Ausstellungsort", "eza_Ausstellungsort") tableMapping.ColumnMappings.Add("eza_ZollrechtlicherStatus", "eza_ZollrechtlicherStatus") tableMapping.ColumnMappings.Add("eza_GesamtRohmasse", "eza_GesamtRohmasse") tableMapping.ColumnMappings.Add("eza_VerfahrenBeantragtCode", "eza_VerfahrenBeantragtCode") tableMapping.ColumnMappings.Add("eza_VerkehrszweigInland", "eza_VerkehrszweigInland") tableMapping.ColumnMappings.Add("eza_VerkehrszweigGrenze", "eza_VerkehrszweigGrenze") tableMapping.ColumnMappings.Add("eza_VersendungsLandCode", "eza_VersendungsLandCode") tableMapping.ColumnMappings.Add("eza_Bestimmungsbundesland", "eza_Bestimmungsbundesland") tableMapping.ColumnMappings.Add("eza_Bestimmungsland", "eza_Bestimmungsland") tableMapping.ColumnMappings.Add("eza_KennzeichenNameBefoerderungsmittelAnkunft", "eza_KennzeichenNameBefoerderungsmittelAnkunft") tableMapping.ColumnMappings.Add("eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", "eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode") tableMapping.ColumnMappings.Add("eza_BeförderungsmittelGrenzeArt", "eza_BeförderungsmittelGrenzeArt") tableMapping.ColumnMappings.Add("eza_BeförderungsmittelGrenze", "eza_BeförderungsmittelGrenze") tableMapping.ColumnMappings.Add("eza_LieferbedingungCode", "eza_LieferbedingungCode") tableMapping.ColumnMappings.Add("eza_LieferbedingungText", "eza_LieferbedingungText") tableMapping.ColumnMappings.Add("eza_LieferbedingungSchluessel", "eza_LieferbedingungSchluessel") tableMapping.ColumnMappings.Add("eza_LieferbedingungOrt", "eza_LieferbedingungOrt") tableMapping.ColumnMappings.Add("eza_VorpapierArtCode", "eza_VorpapierArtCode") tableMapping.ColumnMappings.Add("eza_VorpapierNr", "eza_VorpapierNr") tableMapping.ColumnMappings.Add("eza_ArtGeschaeftCode", "eza_ArtGeschaeftCode") tableMapping.ColumnMappings.Add("eza_Statistikstatus", "eza_Statistikstatus") tableMapping.ColumnMappings.Add("eza_Warenort", "eza_Warenort") tableMapping.ColumnMappings.Add("eza_Rechnungspreis", "eza_Rechnungspreis") tableMapping.ColumnMappings.Add("eza_Rechnungswaehrung", "eza_Rechnungswaehrung") tableMapping.ColumnMappings.Add("eza_DV1Kz", "eza_DV1Kz") tableMapping.ColumnMappings.Add("eza_DV1Vertretungsverhaeltnis", "eza_DV1Vertretungsverhaeltnis") tableMapping.ColumnMappings.Add("eza_DV1FruehereEntscheidungen", "eza_DV1FruehereEntscheidungen") tableMapping.ColumnMappings.Add("eza_DV1Verbundenheit", "eza_DV1Verbundenheit") tableMapping.ColumnMappings.Add("eza_DV1VerbungenheitEinzelheiten", "eza_DV1VerbungenheitEinzelheiten") tableMapping.ColumnMappings.Add("eza_DV1EinschraenkungenKz", "eza_DV1EinschraenkungenKz") tableMapping.ColumnMappings.Add("eza_DV1BedingungenLeistungenKz", "eza_DV1BedingungenLeistungenKz") tableMapping.ColumnMappings.Add("eza_DV1BedingungenLeistungenArt", "eza_DV1BedingungenLeistungenArt") tableMapping.ColumnMappings.Add("eza_DV1LizenzgebuehrenKz", "eza_DV1LizenzgebuehrenKz") tableMapping.ColumnMappings.Add("eza_DV1LizenzgebuehrenUmstand", "eza_DV1LizenzgebuehrenUmstand") tableMapping.ColumnMappings.Add("eza_DV1SpezielleVereinbarungKz", "eza_DV1SpezielleVereinbarungKz") tableMapping.ColumnMappings.Add("eza_DV1SpezielleVereinbarungUmstand", "eza_DV1SpezielleVereinbarungUmstand") tableMapping.ColumnMappings.Add("eza_ZusatzangabenAnmeldung", "eza_ZusatzangabenAnmeldung") tableMapping.ColumnMappings.Add("eza_KzAutoBestaetigung", "eza_KzAutoBestaetigung") tableMapping.ColumnMappings.Add("eza_AnschreibungDatum", "eza_AnschreibungDatum") tableMapping.ColumnMappings.Add("eza_Eingangszollstelle", "eza_Eingangszollstelle") tableMapping.ColumnMappings.Add("eza_Zahlungsart", "eza_Zahlungsart") tableMapping.ColumnMappings.Add("eza_ContainerNr1", "eza_ContainerNr1") tableMapping.ColumnMappings.Add("eza_ContainerNr2", "eza_ContainerNr2") tableMapping.ColumnMappings.Add("eza_ContainerNr3", "eza_ContainerNr3") tableMapping.ColumnMappings.Add("eza_ContainerNr4", "eza_ContainerNr4") tableMapping.ColumnMappings.Add("eza_ContainerNr5", "eza_ContainerNr5") tableMapping.ColumnMappings.Add("eza_ContainerNr6", "eza_ContainerNr6") tableMapping.ColumnMappings.Add("eza_ContainerNr7", "eza_ContainerNr7") tableMapping.ColumnMappings.Add("eza_ContainerNr8", "eza_ContainerNr8") tableMapping.ColumnMappings.Add("eza_ContainerNr9", "eza_ContainerNr9") tableMapping.ColumnMappings.Add("eza_BeendigungsanteilArtCode", "eza_BeendigungsanteilArtCode") tableMapping.ColumnMappings.Add("eza_BewilligungsIDZLAVUV", "eza_BewilligungsIDZLAVUV") tableMapping.ColumnMappings.Add("eza_BezugsnummerBEAnteilZL", "eza_BezugsnummerBEAnteilZL") tableMapping.ColumnMappings.Add("eza_UstIdAnmelder", "eza_UstIdAnmelder") tableMapping.ColumnMappings.Add("eza_FinanzamtAnmelder", "eza_FinanzamtAnmelder") tableMapping.ColumnMappings.Add("eza_Anmeldedatum", "eza_Anmeldedatum") 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].[tblDakosy_EZA] WHERE (([eza_Id] = @Original_eza_Id) AND ([eza_"& _ "Status] = @Original_eza_Status) AND ([eza_Status_KEWILL_Equivalent] = @Original_"& _ "eza_Status_KEWILL_Equivalent) AND ([eza_dyaArt] = @Original_eza_dyaArt) AND ([ez"& _ "a_dyaAnmID] = @Original_eza_dyaAnmID) AND ((@IsNull_eza_ANR = 1 AND [eza_ANR] IS"& _ " NULL) OR ([eza_ANR] = @Original_eza_ANR)) AND ((@IsNull_eza_MRN = 1 AND [eza_MR"& _ "N] IS NULL) OR ([eza_MRN] = @Original_eza_MRN)) AND ([eza_Erstellung] = @Origina"& _ "l_eza_Erstellung) AND ((@IsNull_eza_Erstellung_SB = 1 AND [eza_Erstellung_SB] IS"& _ " NULL) OR ([eza_Erstellung_SB] = @Original_eza_Erstellung_SB)) AND ([eza_LetzteB"& _ "earbeitung] = @Original_eza_LetzteBearbeitung) AND ((@IsNull_eza_LetzteBearbeitu"& _ "ng_SB = 1 AND [eza_LetzteBearbeitung_SB] IS NULL) OR ([eza_LetzteBearbeitung_SB]"& _ " = @Original_eza_LetzteBearbeitung_SB)) AND ((@IsNull_eza_firma = 1 AND [eza_fir"& _ "ma] IS NULL) OR ([eza_firma] = @Original_eza_firma)) AND ((@IsNull_eza_niederlas"& _ "sung = 1 AND [eza_niederlassung] IS NULL) OR ([eza_niederlassung] = @Original_ez"& _ "a_niederlassung)) AND ((@IsNull_eza_Trans_Partner = 1 AND [eza_Trans_Partner] IS"& _ " NULL) OR ([eza_Trans_Partner] = @Original_eza_Trans_Partner)) AND ((@IsNull_eza"& _ "_Trans_Div1 = 1 AND [eza_Trans_Div1] IS NULL) OR ([eza_Trans_Div1] = @Original_e"& _ "za_Trans_Div1)) AND ((@IsNull_eza_Trans_Div2 = 1 AND [eza_Trans_Div2] IS NULL) O"& _ "R ([eza_Trans_Div2] = @Original_eza_Trans_Div2)) AND ((@IsNull_eza_Trans_Div3 = "& _ "1 AND [eza_Trans_Div3] IS NULL) OR ([eza_Trans_Div3] = @Original_eza_Trans_Div3)"& _ ") AND ((@IsNull_eza_Trans_Referenz = 1 AND [eza_Trans_Referenz] IS NULL) OR ([ez"& _ "a_Trans_Referenz] = @Original_eza_Trans_Referenz)) AND ((@IsNull_eza_Trans_Datum"& _ "Zeit = 1 AND [eza_Trans_DatumZeit] IS NULL) OR ([eza_Trans_DatumZeit] = @Origina"& _ "l_eza_Trans_DatumZeit)) AND ((@IsNull_eza_Trans_Version = 1 AND [eza_Trans_Versi"& _ "on] IS NULL) OR ([eza_Trans_Version] = @Original_eza_Trans_Version)) AND ((@IsNu"& _ "ll_eza_NachrichtenSenderTIN = 1 AND [eza_NachrichtenSenderTIN] IS NULL) OR ([eza"& _ "_NachrichtenSenderTIN] = @Original_eza_NachrichtenSenderTIN)) AND ((@IsNull_eza_"& _ "NachrichtenSenderNLNR = 1 AND [eza_NachrichtenSenderNLNR] IS NULL) OR ([eza_Nach"& _ "richtenSenderNLNR] = @Original_eza_NachrichtenSenderNLNR)) AND ((@IsNull_eza_Nac"& _ "hrichtenempfaengerDST = 1 AND [eza_NachrichtenempfaengerDST] IS NULL) OR ([eza_N"& _ "achrichtenempfaengerDST] = @Original_eza_NachrichtenempfaengerDST)) AND ((@IsNul"& _ "l_eza_ObjectName = 1 AND [eza_ObjectName] IS NULL) OR ([eza_ObjectName] = @Origi"& _ "nal_eza_ObjectName)) AND ((@IsNull_eza_ObjectAlias = 1 AND [eza_ObjectAlias] IS "& _ "NULL) OR ([eza_ObjectAlias] = @Original_eza_ObjectAlias)) AND ((@IsNull_eza_Bezu"& _ "gsnummerVorblendung = 1 AND [eza_BezugsnummerVorblendung] IS NULL) OR ([eza_Bezu"& _ "gsnummerVorblendung] = @Original_eza_BezugsnummerVorblendung)) AND ((@IsNull_eza"& _ "_Bearbeiter = 1 AND [eza_Bearbeiter] IS NULL) OR ([eza_Bearbeiter] = @Original_e"& _ "za_Bearbeiter)) AND ((@IsNull_eza_AnmeldungArt = 1 AND [eza_AnmeldungArt] IS NUL"& _ "L) OR ([eza_AnmeldungArt] = @Original_eza_AnmeldungArt)) AND ((@IsNull_eza_Compl"& _ "iancePruefung = 1 AND [eza_CompliancePruefung] IS NULL) OR ([eza_CompliancePruef"& _ "ung] = @Original_eza_CompliancePruefung)) AND ((@IsNull_eza_AnfBemerkungStatusan"& _ "zeige = 1 AND [eza_AnfBemerkungStatusanzeige] IS NULL) OR ([eza_AnfBemerkungStat"& _ "usanzeige] = @Original_eza_AnfBemerkungStatusanzeige)) AND ((@IsNull_eza_Adressi"& _ "erteZollstelle = 1 AND [eza_AdressierteZollstelle] IS NULL) OR ([eza_Adressierte"& _ "Zollstelle] = @Original_eza_AdressierteZollstelle)) AND ((@IsNull_eza_Anmelderis"& _ "tEmpfaenger = 1 AND [eza_AnmelderistEmpfaenger] IS NULL) OR ([eza_AnmelderistEmp"& _ "faenger] = @Original_eza_AnmelderistEmpfaenger)) AND ((@IsNull_eza_VertretungsVe"& _ "rhaeltnisCode = 1 AND [eza_VertretungsVerhaeltnisCode] IS NULL) OR ([eza_Vertret"& _ "ungsVerhaeltnisCode] = @Original_eza_VertretungsVerhaeltnisCode)) AND ((@IsNull_"& _ "eza_Vorsteuerabzug = 1 AND [eza_Vorsteuerabzug] IS NULL) OR ([eza_Vorsteuerabzug"& _ "] = @Original_eza_Vorsteuerabzug)) AND ((@IsNull_eza_AnmeldenderBearbeiterName ="& _ " 1 AND [eza_AnmeldenderBearbeiterName] IS NULL) OR ([eza_AnmeldenderBearbeiterNa"& _ "me] = @Original_eza_AnmeldenderBearbeiterName)) AND ((@IsNull_eza_AnmeldenderBea"& _ "rbeiterTel = 1 AND [eza_AnmeldenderBearbeiterTel] IS NULL) OR ([eza_AnmeldenderB"& _ "earbeiterTel] = @Original_eza_AnmeldenderBearbeiterTel)) AND ((@IsNull_eza_Anmel"& _ "denderBearbeiterStellung = 1 AND [eza_AnmeldenderBearbeiterStellung] IS NULL) OR"& _ " ([eza_AnmeldenderBearbeiterStellung] = @Original_eza_AnmeldenderBearbeiterStell"& _ "ung)) AND ((@IsNull_eza_AnmeldenderBearbeiterEMail = 1 AND [eza_AnmeldenderBearb"& _ "eiterEMail] IS NULL) OR ([eza_AnmeldenderBearbeiterEMail] = @Original_eza_Anmeld"& _ "enderBearbeiterEMail)) AND ((@IsNull_eza_FiskalvertretungKz = 1 AND [eza_Fiskalv"& _ "ertretungKz] IS NULL) OR ([eza_FiskalvertretungKz] = @Original_eza_Fiskalvertret"& _ "ungKz)) AND ((@IsNull_eza_Ausstellungsort = 1 AND [eza_Ausstellungsort] IS NULL)"& _ " OR ([eza_Ausstellungsort] = @Original_eza_Ausstellungsort)) AND ((@IsNull_eza_Z"& _ "ollrechtlicherStatus = 1 AND [eza_ZollrechtlicherStatus] IS NULL) OR ([eza_Zollr"& _ "echtlicherStatus] = @Original_eza_ZollrechtlicherStatus)) AND ((@IsNull_eza_Gesa"& _ "mtRohmasse = 1 AND [eza_GesamtRohmasse] IS NULL) OR ([eza_GesamtRohmasse] = @Ori"& _ "ginal_eza_GesamtRohmasse)) AND ((@IsNull_eza_VerfahrenBeantragtCode = 1 AND [eza"& _ "_VerfahrenBeantragtCode] IS NULL) OR ([eza_VerfahrenBeantragtCode] = @Original_e"& _ "za_VerfahrenBeantragtCode)) AND ((@IsNull_eza_VerkehrszweigInland = 1 AND [eza_V"& _ "erkehrszweigInland] IS NULL) OR ([eza_VerkehrszweigInland] = @Original_eza_Verke"& _ "hrszweigInland)) AND ((@IsNull_eza_VerkehrszweigGrenze = 1 AND [eza_Verkehrszwei"& _ "gGrenze] IS NULL) OR ([eza_VerkehrszweigGrenze] = @Original_eza_VerkehrszweigGre"& _ "nze)) AND ((@IsNull_eza_VersendungsLandCode = 1 AND [eza_VersendungsLandCode] IS"& _ " NULL) OR ([eza_VersendungsLandCode] = @Original_eza_VersendungsLandCode)) AND ("& _ "(@IsNull_eza_Bestimmungsbundesland = 1 AND [eza_Bestimmungsbundesland] IS NULL) "& _ "OR ([eza_Bestimmungsbundesland] = @Original_eza_Bestimmungsbundesland)) AND ((@I"& _ "sNull_eza_Bestimmungsland = 1 AND [eza_Bestimmungsland] IS NULL) OR ([eza_Bestim"& _ "mungsland] = @Original_eza_Bestimmungsland)) AND ((@IsNull_eza_KennzeichenNameBe"& _ "foerderungsmittelAnkunft = 1 AND [eza_KennzeichenNameBefoerderungsmittelAnkunft]"& _ " IS NULL) OR ([eza_KennzeichenNameBefoerderungsmittelAnkunft] = @Original_eza_Ke"& _ "nnzeichenNameBefoerderungsmittelAnkunft)) AND ((@IsNull_eza_BeförderungsmittelGr"& _ "enzeStaatszugehörigkeitCode = 1 AND [eza_BeförderungsmittelGrenzeStaatszugehörig"& _ "keitCode] IS NULL) OR ([eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode] = @"& _ "Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode)) AND ((@IsNull_eza"& _ "_BeförderungsmittelGrenzeArt = 1 AND [eza_BeförderungsmittelGrenzeArt] IS NULL) "& _ "OR ([eza_BeförderungsmittelGrenzeArt] = @Original_eza_BeförderungsmittelGrenzeAr"& _ "t)) AND ((@IsNull_eza_BeförderungsmittelGrenze = 1 AND [eza_BeförderungsmittelGr"& _ "enze] IS NULL) OR ([eza_BeförderungsmittelGrenze] = @Original_eza_Beförderungsmi"& _ "ttelGrenze)) AND ((@IsNull_eza_LieferbedingungCode = 1 AND [eza_LieferbedingungC"& _ "ode] IS NULL) OR ([eza_LieferbedingungCode] = @Original_eza_LieferbedingungCode)"& _ ") AND ((@IsNull_eza_LieferbedingungText = 1 AND [eza_LieferbedingungText] IS NUL"& _ "L) OR ([eza_LieferbedingungText] = @Original_eza_LieferbedingungText)) AND ((@Is"& _ "Null_eza_LieferbedingungSchluessel = 1 AND [eza_LieferbedingungSchluessel] IS NU"& _ "LL) OR ([eza_LieferbedingungSchluessel] = @Original_eza_LieferbedingungSchluesse"& _ "l)) AND ((@IsNull_eza_LieferbedingungOrt = 1 AND [eza_LieferbedingungOrt] IS NUL"& _ "L) OR ([eza_LieferbedingungOrt] = @Original_eza_LieferbedingungOrt)) AND ((@IsNu"& _ "ll_eza_VorpapierArtCode = 1 AND [eza_VorpapierArtCode] IS NULL) OR ([eza_Vorpapi"& _ "erArtCode] = @Original_eza_VorpapierArtCode)) AND ((@IsNull_eza_VorpapierNr = 1 "& _ "AND [eza_VorpapierNr] IS NULL) OR ([eza_VorpapierNr] = @Original_eza_VorpapierNr"& _ ")) AND ((@IsNull_eza_ArtGeschaeftCode = 1 AND [eza_ArtGeschaeftCode] IS NULL) OR"& _ " ([eza_ArtGeschaeftCode] = @Original_eza_ArtGeschaeftCode)) AND ((@IsNull_eza_St"& _ "atistikstatus = 1 AND [eza_Statistikstatus] IS NULL) OR ([eza_Statistikstatus] ="& _ " @Original_eza_Statistikstatus)) AND ((@IsNull_eza_Warenort = 1 AND [eza_Warenor"& _ "t] IS NULL) OR ([eza_Warenort] = @Original_eza_Warenort)) AND ((@IsNull_eza_Rech"& _ "nungspreis = 1 AND [eza_Rechnungspreis] IS NULL) OR ([eza_Rechnungspreis] = @Ori"& _ "ginal_eza_Rechnungspreis)) AND ((@IsNull_eza_Rechnungswaehrung = 1 AND [eza_Rech"& _ "nungswaehrung] IS NULL) OR ([eza_Rechnungswaehrung] = @Original_eza_Rechnungswae"& _ "hrung)) AND ((@IsNull_eza_DV1Kz = 1 AND [eza_DV1Kz] IS NULL) OR ([eza_DV1Kz] = @"& _ "Original_eza_DV1Kz)) AND ((@IsNull_eza_DV1Vertretungsverhaeltnis = 1 AND [eza_DV"& _ "1Vertretungsverhaeltnis] IS NULL) OR ([eza_DV1Vertretungsverhaeltnis] = @Origina"& _ "l_eza_DV1Vertretungsverhaeltnis)) AND ((@IsNull_eza_DV1FruehereEntscheidungen = "& _ "1 AND [eza_DV1FruehereEntscheidungen] IS NULL) OR ([eza_DV1FruehereEntscheidunge"& _ "n] = @Original_eza_DV1FruehereEntscheidungen)) AND ((@IsNull_eza_DV1Verbundenhei"& _ "t = 1 AND [eza_DV1Verbundenheit] IS NULL) OR ([eza_DV1Verbundenheit] = @Original"& _ "_eza_DV1Verbundenheit)) AND ((@IsNull_eza_DV1VerbungenheitEinzelheiten = 1 AND ["& _ "eza_DV1VerbungenheitEinzelheiten] IS NULL) OR ([eza_DV1VerbungenheitEinzelheiten"& _ "] = @Original_eza_DV1VerbungenheitEinzelheiten)) AND ((@IsNull_eza_DV1Einschraen"& _ "kungenKz = 1 AND [eza_DV1EinschraenkungenKz] IS NULL) OR ([eza_DV1Einschraenkung"& _ "enKz] = @Original_eza_DV1EinschraenkungenKz)) AND ((@IsNull_eza_DV1BedingungenLe"& _ "istungenKz = 1 AND [eza_DV1BedingungenLeistungenKz] IS NULL) OR ([eza_DV1Bedingu"& _ "ngenLeistungenKz] = @Original_eza_DV1BedingungenLeistungenKz)) AND ((@IsNull_eza"& _ "_DV1BedingungenLeistungenArt = 1 AND [eza_DV1BedingungenLeistungenArt] IS NULL) "& _ "OR ([eza_DV1BedingungenLeistungenArt] = @Original_eza_DV1BedingungenLeistungenAr"& _ "t)) AND ((@IsNull_eza_DV1LizenzgebuehrenKz = 1 AND [eza_DV1LizenzgebuehrenKz] IS"& _ " NULL) OR ([eza_DV1LizenzgebuehrenKz] = @Original_eza_DV1LizenzgebuehrenKz)) AND"& _ " ((@IsNull_eza_DV1LizenzgebuehrenUmstand = 1 AND [eza_DV1LizenzgebuehrenUmstand]"& _ " IS NULL) OR ([eza_DV1LizenzgebuehrenUmstand] = @Original_eza_DV1Lizenzgebuehren"& _ "Umstand)) AND ((@IsNull_eza_DV1SpezielleVereinbarungKz = 1 AND [eza_DV1Spezielle"& _ "VereinbarungKz] IS NULL) OR ([eza_DV1SpezielleVereinbarungKz] = @Original_eza_DV"& _ "1SpezielleVereinbarungKz)) AND ((@IsNull_eza_DV1SpezielleVereinbarungUmstand = 1"& _ " AND [eza_DV1SpezielleVereinbarungUmstand] IS NULL) OR ([eza_DV1SpezielleVereinb"& _ "arungUmstand] = @Original_eza_DV1SpezielleVereinbarungUmstand)) AND ((@IsNull_ez"& _ "a_ZusatzangabenAnmeldung = 1 AND [eza_ZusatzangabenAnmeldung] IS NULL) OR ([eza_"& _ "ZusatzangabenAnmeldung] = @Original_eza_ZusatzangabenAnmeldung)) AND ((@IsNull_e"& _ "za_KzAutoBestaetigung = 1 AND [eza_KzAutoBestaetigung] IS NULL) OR ([eza_KzAutoB"& _ "estaetigung] = @Original_eza_KzAutoBestaetigung)) AND ((@IsNull_eza_Anschreibung"& _ "Datum = 1 AND [eza_AnschreibungDatum] IS NULL) OR ([eza_AnschreibungDatum] = @Or"& _ "iginal_eza_AnschreibungDatum)) AND ((@IsNull_eza_Eingangszollstelle = 1 AND [eza"& _ "_Eingangszollstelle] IS NULL) OR ([eza_Eingangszollstelle] = @Original_eza_Einga"& _ "ngszollstelle)) AND ((@IsNull_eza_Zahlungsart = 1 AND [eza_Zahlungsart] IS NULL)"& _ " OR ([eza_Zahlungsart] = @Original_eza_Zahlungsart)) AND ((@IsNull_eza_Container"& _ "Nr1 = 1 AND [eza_ContainerNr1] IS NULL) OR ([eza_ContainerNr1] = @Original_eza_C"& _ "ontainerNr1)) AND ((@IsNull_eza_ContainerNr2 = 1 AND [eza_ContainerNr2] IS NULL)"& _ " OR ([eza_ContainerNr2] = @Original_eza_ContainerNr2)) AND ((@IsNull_eza_Contain"& _ "erNr3 = 1 AND [eza_ContainerNr3] IS NULL) OR ([eza_ContainerNr3] = @Original_eza"& _ "_ContainerNr3)) AND ((@IsNull_eza_ContainerNr4 = 1 AND [eza_ContainerNr4] IS NUL"& _ "L) OR ([eza_ContainerNr4] = @Original_eza_ContainerNr4)) AND ((@IsNull_eza_Conta"& _ "inerNr5 = 1 AND [eza_ContainerNr5] IS NULL) OR ([eza_ContainerNr5] = @Original_e"& _ "za_ContainerNr5)) AND ((@IsNull_eza_ContainerNr6 = 1 AND [eza_ContainerNr6] IS N"& _ "ULL) OR ([eza_ContainerNr6] = @Original_eza_ContainerNr6)) AND ((@IsNull_eza_Con"& _ "tainerNr7 = 1 AND [eza_ContainerNr7] IS NULL) OR ([eza_ContainerNr7] = @Original"& _ "_eza_ContainerNr7)) AND ((@IsNull_eza_ContainerNr8 = 1 AND [eza_ContainerNr8] IS"& _ " NULL) OR ([eza_ContainerNr8] = @Original_eza_ContainerNr8)) AND ((@IsNull_eza_C"& _ "ontainerNr9 = 1 AND [eza_ContainerNr9] IS NULL) OR ([eza_ContainerNr9] = @Origin"& _ "al_eza_ContainerNr9)) AND ((@IsNull_eza_BeendigungsanteilArtCode = 1 AND [eza_Be"& _ "endigungsanteilArtCode] IS NULL) OR ([eza_BeendigungsanteilArtCode] = @Original_"& _ "eza_BeendigungsanteilArtCode)) AND ((@IsNull_eza_BewilligungsIDZLAVUV = 1 AND [e"& _ "za_BewilligungsIDZLAVUV] IS NULL) OR ([eza_BewilligungsIDZLAVUV] = @Original_eza"& _ "_BewilligungsIDZLAVUV)) AND ((@IsNull_eza_BezugsnummerBEAnteilZL = 1 AND [eza_Be"& _ "zugsnummerBEAnteilZL] IS NULL) OR ([eza_BezugsnummerBEAnteilZL] = @Original_eza_"& _ "BezugsnummerBEAnteilZL)) AND ((@IsNull_eza_UstIdAnmelder = 1 AND [eza_UstIdAnmel"& _ "der] IS NULL) OR ([eza_UstIdAnmelder] = @Original_eza_UstIdAnmelder)) AND ((@IsN"& _ "ull_eza_FinanzamtAnmelder = 1 AND [eza_FinanzamtAnmelder] IS NULL) OR ([eza_Fina"& _ "nzamtAnmelder] = @Original_eza_FinanzamtAnmelder)) AND ((@IsNull_eza_Anmeldedatu"& _ "m = 1 AND [eza_Anmeldedatum] IS NULL) OR ([eza_Anmeldedatum] = @Original_eza_Anm"& _ "eldedatum)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_dyaArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_dyaAnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ANR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ANR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ANR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Partner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Partner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Div1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Div2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Div3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_DatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "eza_Trans_Version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_NachrichtenSenderTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ObjectName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ObjectAlias", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectAlias", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectAlias", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BezugsnummerVorblendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Bearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmeldungArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldungArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmeldungArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldungArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_CompliancePruefung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_CompliancePruefung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_CompliancePruefung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_CompliancePruefung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnfBemerkungStatusanzeige", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnfBemerkungStatusanzeige", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnfBemerkungStatusanzeige", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnfBemerkungStatusanzeige", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AdressierteZollstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AdressierteZollstelle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AdressierteZollstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AdressierteZollstelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmelderistEmpfaenger", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmelderistEmpfaenger", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmelderistEmpfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmelderistEmpfaenger", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VertretungsVerhaeltnisCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VertretungsVerhaeltnisCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VertretungsVerhaeltnisCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VertretungsVerhaeltnisCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Vorsteuerabzug", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Vorsteuerabzug", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Vorsteuerabzug", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Vorsteuerabzug", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmeldenderBearbeiterName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmeldenderBearbeiterName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmeldenderBearbeiterTel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterTel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmeldenderBearbeiterTel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterTel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmeldenderBearbeiterStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmeldenderBearbeiterStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmeldenderBearbeiterEMail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterEMail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmeldenderBearbeiterEMail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterEMail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_FiskalvertretungKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FiskalvertretungKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_FiskalvertretungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FiskalvertretungKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Ausstellungsort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Ausstellungsort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Ausstellungsort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Ausstellungsort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ZollrechtlicherStatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZollrechtlicherStatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ZollrechtlicherStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZollrechtlicherStatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_GesamtRohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "eza_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VerfahrenBeantragtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerfahrenBeantragtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VerfahrenBeantragtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerfahrenBeantragtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VerkehrszweigInland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VerkehrszweigGrenze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VersendungsLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Bestimmungsbundesland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsbundesland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Bestimmungsbundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsbundesland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Bestimmungsland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Bestimmungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BeförderungsmittelGrenzeArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BeförderungsmittelGrenzeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BeförderungsmittelGrenze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenze", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BeförderungsmittelGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenze", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_LieferbedingungCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LieferbedingungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_LieferbedingungText", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungText", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LieferbedingungText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungText", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_LieferbedingungSchluessel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungSchluessel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LieferbedingungSchluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungSchluessel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_LieferbedingungOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LieferbedingungOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VorpapierArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VorpapierArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VorpapierNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VorpapierNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ArtGeschaeftCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ArtGeschaeftCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ArtGeschaeftCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ArtGeschaeftCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Statistikstatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Statistikstatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Statistikstatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Statistikstatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Warenort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Warenort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Warenort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Warenort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Rechnungspreis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Rechnungspreis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Rechnungspreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 2, "eza_Rechnungspreis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Rechnungswaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Rechnungswaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Rechnungswaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Rechnungswaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1Kz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Kz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1Kz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Kz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1Vertretungsverhaeltnis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Vertretungsverhaeltnis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1Vertretungsverhaeltnis", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Vertretungsverhaeltnis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1FruehereEntscheidungen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1FruehereEntscheidungen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1FruehereEntscheidungen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1FruehereEntscheidungen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1Verbundenheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Verbundenheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1Verbundenheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Verbundenheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1VerbungenheitEinzelheiten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1VerbungenheitEinzelheiten", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1VerbungenheitEinzelheiten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1VerbungenheitEinzelheiten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1EinschraenkungenKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1EinschraenkungenKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1EinschraenkungenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1EinschraenkungenKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1BedingungenLeistungenKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1BedingungenLeistungenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1BedingungenLeistungenArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1BedingungenLeistungenArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1LizenzgebuehrenKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1LizenzgebuehrenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1LizenzgebuehrenUmstand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenUmstand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1LizenzgebuehrenUmstand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenUmstand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1SpezielleVereinbarungKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1SpezielleVereinbarungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ZusatzangabenAnmeldung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZusatzangabenAnmeldung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ZusatzangabenAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZusatzangabenAnmeldung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_KzAutoBestaetigung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KzAutoBestaetigung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_KzAutoBestaetigung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KzAutoBestaetigung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnschreibungDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnschreibungDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnschreibungDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnschreibungDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Eingangszollstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Eingangszollstelle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Eingangszollstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Eingangszollstelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Zahlungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Zahlungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Zahlungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Zahlungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BeendigungsanteilArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeendigungsanteilArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BeendigungsanteilArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeendigungsanteilArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BewilligungsIDZLAVUV", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BewilligungsIDZLAVUV", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BewilligungsIDZLAVUV", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BewilligungsIDZLAVUV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BezugsnummerBEAnteilZL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerBEAnteilZL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BezugsnummerBEAnteilZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerBEAnteilZL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_UstIdAnmelder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_UstIdAnmelder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_UstIdAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_UstIdAnmelder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_FinanzamtAnmelder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FinanzamtAnmelder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_FinanzamtAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FinanzamtAnmelder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Anmeldedatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Anmeldedatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Anmeldedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Anmeldedatum", 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].[tblDakosy_EZA] ([eza_Status], [eza_Status_KEWILL_Equivalent], "& _ "[eza_dyaArt], [eza_dyaAnmID], [eza_ANR], [eza_MRN], [eza_Erstellung], [eza_Erste"& _ "llung_SB], [eza_LetzteBearbeitung], [eza_LetzteBearbeitung_SB], [eza_firma], [ez"& _ "a_niederlassung], [eza_Trans_Partner], [eza_Trans_Div1], [eza_Trans_Div2], [eza_"& _ "Trans_Div3], [eza_Trans_Referenz], [eza_Trans_DatumZeit], [eza_Trans_Version], ["& _ "eza_NachrichtenSenderTIN], [eza_NachrichtenSenderNLNR], [eza_Nachrichtenempfaeng"& _ "erDST], [eza_ObjectName], [eza_ObjectAlias], [eza_BezugsnummerVorblendung], [eza"& _ "_Bearbeiter], [eza_AnmeldungArt], [eza_CompliancePruefung], [eza_AnfBemerkungSta"& _ "tusanzeige], [eza_AdressierteZollstelle], [eza_AnmelderistEmpfaenger], [eza_Vert"& _ "retungsVerhaeltnisCode], [eza_Vorsteuerabzug], [eza_AnmeldenderBearbeiterName], "& _ "[eza_AnmeldenderBearbeiterTel], [eza_AnmeldenderBearbeiterStellung], [eza_Anmeld"& _ "enderBearbeiterEMail], [eza_FiskalvertretungKz], [eza_Ausstellungsort], [eza_Zol"& _ "lrechtlicherStatus], [eza_GesamtRohmasse], [eza_VerfahrenBeantragtCode], [eza_Ve"& _ "rkehrszweigInland], [eza_VerkehrszweigGrenze], [eza_VersendungsLandCode], [eza_B"& _ "estimmungsbundesland], [eza_Bestimmungsland], [eza_KennzeichenNameBefoerderungsm"& _ "ittelAnkunft], [eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode], [eza_Beför"& _ "derungsmittelGrenzeArt], [eza_BeförderungsmittelGrenze], [eza_LieferbedingungCod"& _ "e], [eza_LieferbedingungText], [eza_LieferbedingungSchluessel], [eza_Lieferbedin"& _ "gungOrt], [eza_VorpapierArtCode], [eza_VorpapierNr], [eza_ArtGeschaeftCode], [ez"& _ "a_Statistikstatus], [eza_Warenort], [eza_Rechnungspreis], [eza_Rechnungswaehrung"& _ "], [eza_DV1Kz], [eza_DV1Vertretungsverhaeltnis], [eza_DV1FruehereEntscheidungen]"& _ ", [eza_DV1Verbundenheit], [eza_DV1VerbungenheitEinzelheiten], [eza_DV1Einschraen"& _ "kungenKz], [eza_DV1BedingungenLeistungenKz], [eza_DV1BedingungenLeistungenArt], "& _ "[eza_DV1LizenzgebuehrenKz], [eza_DV1LizenzgebuehrenUmstand], [eza_DV1SpezielleVe"& _ "reinbarungKz], [eza_DV1SpezielleVereinbarungUmstand], [eza_ZusatzangabenAnmeldun"& _ "g], [eza_KzAutoBestaetigung], [eza_AnschreibungDatum], [eza_Eingangszollstelle],"& _ " [eza_Zahlungsart], [eza_ContainerNr1], [eza_ContainerNr2], [eza_ContainerNr3], "& _ "[eza_ContainerNr4], [eza_ContainerNr5], [eza_ContainerNr6], [eza_ContainerNr7], "& _ "[eza_ContainerNr8], [eza_ContainerNr9], [eza_BeendigungsanteilArtCode], [eza_Bew"& _ "illigungsIDZLAVUV], [eza_BezugsnummerBEAnteilZL], [eza_UstIdAnmelder], [eza_Fina"& _ "nzamtAnmelder], [eza_Anmeldedatum]) VALUES (@eza_Status, @eza_Status_KEWILL_Equi"& _ "valent, @eza_dyaArt, @eza_dyaAnmID, @eza_ANR, @eza_MRN, @eza_Erstellung, @eza_Er"& _ "stellung_SB, @eza_LetzteBearbeitung, @eza_LetzteBearbeitung_SB, @eza_firma, @eza"& _ "_niederlassung, @eza_Trans_Partner, @eza_Trans_Div1, @eza_Trans_Div2, @eza_Trans"& _ "_Div3, @eza_Trans_Referenz, @eza_Trans_DatumZeit, @eza_Trans_Version, @eza_Nachr"& _ "ichtenSenderTIN, @eza_NachrichtenSenderNLNR, @eza_NachrichtenempfaengerDST, @eza"& _ "_ObjectName, @eza_ObjectAlias, @eza_BezugsnummerVorblendung, @eza_Bearbeiter, @e"& _ "za_AnmeldungArt, @eza_CompliancePruefung, @eza_AnfBemerkungStatusanzeige, @eza_A"& _ "dressierteZollstelle, @eza_AnmelderistEmpfaenger, @eza_VertretungsVerhaeltnisCod"& _ "e, @eza_Vorsteuerabzug, @eza_AnmeldenderBearbeiterName, @eza_AnmeldenderBearbeit"& _ "erTel, @eza_AnmeldenderBearbeiterStellung, @eza_AnmeldenderBearbeiterEMail, @eza"& _ "_FiskalvertretungKz, @eza_Ausstellungsort, @eza_ZollrechtlicherStatus, @eza_Gesa"& _ "mtRohmasse, @eza_VerfahrenBeantragtCode, @eza_VerkehrszweigInland, @eza_Verkehrs"& _ "zweigGrenze, @eza_VersendungsLandCode, @eza_Bestimmungsbundesland, @eza_Bestimmu"& _ "ngsland, @eza_KennzeichenNameBefoerderungsmittelAnkunft, @eza_Beförderungsmittel"& _ "GrenzeStaatszugehörigkeitCode, @eza_BeförderungsmittelGrenzeArt, @eza_Beförderun"& _ "gsmittelGrenze, @eza_LieferbedingungCode, @eza_LieferbedingungText, @eza_Lieferb"& _ "edingungSchluessel, @eza_LieferbedingungOrt, @eza_VorpapierArtCode, @eza_Vorpapi"& _ "erNr, @eza_ArtGeschaeftCode, @eza_Statistikstatus, @eza_Warenort, @eza_Rechnungs"& _ "preis, @eza_Rechnungswaehrung, @eza_DV1Kz, @eza_DV1Vertretungsverhaeltnis, @eza_"& _ "DV1FruehereEntscheidungen, @eza_DV1Verbundenheit, @eza_DV1VerbungenheitEinzelhei"& _ "ten, @eza_DV1EinschraenkungenKz, @eza_DV1BedingungenLeistungenKz, @eza_DV1Beding"& _ "ungenLeistungenArt, @eza_DV1LizenzgebuehrenKz, @eza_DV1LizenzgebuehrenUmstand, @"& _ "eza_DV1SpezielleVereinbarungKz, @eza_DV1SpezielleVereinbarungUmstand, @eza_Zusat"& _ "zangabenAnmeldung, @eza_KzAutoBestaetigung, @eza_AnschreibungDatum, @eza_Eingang"& _ "szollstelle, @eza_Zahlungsart, @eza_ContainerNr1, @eza_ContainerNr2, @eza_Contai"& _ "nerNr3, @eza_ContainerNr4, @eza_ContainerNr5, @eza_ContainerNr6, @eza_ContainerN"& _ "r7, @eza_ContainerNr8, @eza_ContainerNr9, @eza_BeendigungsanteilArtCode, @eza_Be"& _ "willigungsIDZLAVUV, @eza_BezugsnummerBEAnteilZL, @eza_UstIdAnmelder, @eza_Finanz"& _ "amtAnmelder, @eza_Anmeldedatum);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT eza_Id, eza_Status, eza_Status_KEWILL_E"& _ "quivalent, eza_dyaArt, eza_dyaAnmID, eza_ANR, eza_MRN, eza_Erstellung, eza_Erste"& _ "llung_SB, eza_LetzteBearbeitung, eza_LetzteBearbeitung_SB, eza_firma, eza_nieder"& _ "lassung, eza_Trans_Partner, eza_Trans_Div1, eza_Trans_Div2, eza_Trans_Div3, eza_"& _ "Trans_Referenz, eza_Trans_DatumZeit, eza_Trans_Version, eza_NachrichtenSenderTIN"& _ ", eza_NachrichtenSenderNLNR, eza_NachrichtenempfaengerDST, eza_ObjectName, eza_O"& _ "bjectAlias, eza_BezugsnummerVorblendung, eza_Bearbeiter, eza_AnmeldungArt, eza_C"& _ "ompliancePruefung, eza_AnfBemerkungStatusanzeige, eza_AdressierteZollstelle, eza"& _ "_AnmelderistEmpfaenger, eza_VertretungsVerhaeltnisCode, eza_Vorsteuerabzug, eza_"& _ "AnmeldenderBearbeiterName, eza_AnmeldenderBearbeiterTel, eza_AnmeldenderBearbeit"& _ "erStellung, eza_AnmeldenderBearbeiterEMail, eza_FiskalvertretungKz, eza_Ausstell"& _ "ungsort, eza_ZollrechtlicherStatus, eza_GesamtRohmasse, eza_VerfahrenBeantragtCo"& _ "de, eza_VerkehrszweigInland, eza_VerkehrszweigGrenze, eza_VersendungsLandCode, e"& _ "za_Bestimmungsbundesland, eza_Bestimmungsland, eza_KennzeichenNameBefoerderungsm"& _ "ittelAnkunft, eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode, eza_Beförderu"& _ "ngsmittelGrenzeArt, eza_BeförderungsmittelGrenze, eza_LieferbedingungCode, eza_L"& _ "ieferbedingungText, eza_LieferbedingungSchluessel, eza_LieferbedingungOrt, eza_V"& _ "orpapierArtCode, eza_VorpapierNr, eza_ArtGeschaeftCode, eza_Statistikstatus, eza"& _ "_Warenort, eza_Rechnungspreis, eza_Rechnungswaehrung, eza_DV1Kz, eza_DV1Vertretu"& _ "ngsverhaeltnis, eza_DV1FruehereEntscheidungen, eza_DV1Verbundenheit, eza_DV1Verb"& _ "ungenheitEinzelheiten, eza_DV1EinschraenkungenKz, eza_DV1BedingungenLeistungenKz"& _ ", eza_DV1BedingungenLeistungenArt, eza_DV1LizenzgebuehrenKz, eza_DV1Lizenzgebueh"& _ "renUmstand, eza_DV1SpezielleVereinbarungKz, eza_DV1SpezielleVereinbarungUmstand,"& _ " eza_ZusatzangabenAnmeldung, eza_KzAutoBestaetigung, eza_AnschreibungDatum, eza_"& _ "Eingangszollstelle, eza_Zahlungsart, eza_ContainerNr1, eza_ContainerNr2, eza_Con"& _ "tainerNr3, eza_ContainerNr4, eza_ContainerNr5, eza_ContainerNr6, eza_ContainerNr"& _ "7, eza_ContainerNr8, eza_ContainerNr9, eza_BeendigungsanteilArtCode, eza_Bewilli"& _ "gungsIDZLAVUV, eza_BezugsnummerBEAnteilZL, eza_UstIdAnmelder, eza_FinanzamtAnmel"& _ "der, eza_Anmeldedatum FROM tblDakosy_EZA WHERE (eza_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_dyaArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_dyaAnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ANR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_DatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "eza_Trans_Version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectAlias", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmeldungArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldungArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_CompliancePruefung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_CompliancePruefung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnfBemerkungStatusanzeige", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnfBemerkungStatusanzeige", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AdressierteZollstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AdressierteZollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmelderistEmpfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmelderistEmpfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VertretungsVerhaeltnisCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VertretungsVerhaeltnisCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Vorsteuerabzug", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Vorsteuerabzug", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmeldenderBearbeiterName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmeldenderBearbeiterTel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterTel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmeldenderBearbeiterStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmeldenderBearbeiterEMail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterEMail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_FiskalvertretungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FiskalvertretungKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Ausstellungsort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Ausstellungsort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ZollrechtlicherStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZollrechtlicherStatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "eza_GesamtRohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VerfahrenBeantragtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerfahrenBeantragtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigInland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VersendungsLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Bestimmungsbundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsbundesland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Bestimmungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BeförderungsmittelGrenzeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BeförderungsmittelGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LieferbedingungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LieferbedingungText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LieferbedingungSchluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungSchluessel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LieferbedingungOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VorpapierArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VorpapierNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ArtGeschaeftCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ArtGeschaeftCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Statistikstatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Statistikstatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Warenort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Warenort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Rechnungspreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 2, "eza_Rechnungspreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Rechnungswaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Rechnungswaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1Kz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Kz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1Vertretungsverhaeltnis", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Vertretungsverhaeltnis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1FruehereEntscheidungen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1FruehereEntscheidungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1Verbundenheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Verbundenheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1VerbungenheitEinzelheiten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1VerbungenheitEinzelheiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1EinschraenkungenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1EinschraenkungenKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1BedingungenLeistungenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1BedingungenLeistungenArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1LizenzgebuehrenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1LizenzgebuehrenUmstand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenUmstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1SpezielleVereinbarungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ZusatzangabenAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZusatzangabenAnmeldung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_KzAutoBestaetigung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KzAutoBestaetigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnschreibungDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnschreibungDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Eingangszollstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Eingangszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Zahlungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BeendigungsanteilArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeendigungsanteilArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BewilligungsIDZLAVUV", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BewilligungsIDZLAVUV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BezugsnummerBEAnteilZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerBEAnteilZL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_UstIdAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_UstIdAnmelder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_FinanzamtAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FinanzamtAnmelder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Anmeldedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Anmeldedatum", 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].[tblDakosy_EZA] SET [eza_Status] = @eza_Status, [eza_Status_KEWILL_E"& _ "quivalent] = @eza_Status_KEWILL_Equivalent, [eza_dyaArt] = @eza_dyaArt, [eza_dya"& _ "AnmID] = @eza_dyaAnmID, [eza_ANR] = @eza_ANR, [eza_MRN] = @eza_MRN, [eza_Erstell"& _ "ung] = @eza_Erstellung, [eza_Erstellung_SB] = @eza_Erstellung_SB, [eza_LetzteBea"& _ "rbeitung] = @eza_LetzteBearbeitung, [eza_LetzteBearbeitung_SB] = @eza_LetzteBear"& _ "beitung_SB, [eza_firma] = @eza_firma, [eza_niederlassung] = @eza_niederlassung, "& _ "[eza_Trans_Partner] = @eza_Trans_Partner, [eza_Trans_Div1] = @eza_Trans_Div1, [e"& _ "za_Trans_Div2] = @eza_Trans_Div2, [eza_Trans_Div3] = @eza_Trans_Div3, [eza_Trans"& _ "_Referenz] = @eza_Trans_Referenz, [eza_Trans_DatumZeit] = @eza_Trans_DatumZeit, "& _ "[eza_Trans_Version] = @eza_Trans_Version, [eza_NachrichtenSenderTIN] = @eza_Nach"& _ "richtenSenderTIN, [eza_NachrichtenSenderNLNR] = @eza_NachrichtenSenderNLNR, [eza"& _ "_NachrichtenempfaengerDST] = @eza_NachrichtenempfaengerDST, [eza_ObjectName] = @"& _ "eza_ObjectName, [eza_ObjectAlias] = @eza_ObjectAlias, [eza_BezugsnummerVorblendu"& _ "ng] = @eza_BezugsnummerVorblendung, [eza_Bearbeiter] = @eza_Bearbeiter, [eza_Anm"& _ "eldungArt] = @eza_AnmeldungArt, [eza_CompliancePruefung] = @eza_CompliancePruefu"& _ "ng, [eza_AnfBemerkungStatusanzeige] = @eza_AnfBemerkungStatusanzeige, [eza_Adres"& _ "sierteZollstelle] = @eza_AdressierteZollstelle, [eza_AnmelderistEmpfaenger] = @e"& _ "za_AnmelderistEmpfaenger, [eza_VertretungsVerhaeltnisCode] = @eza_VertretungsVer"& _ "haeltnisCode, [eza_Vorsteuerabzug] = @eza_Vorsteuerabzug, [eza_AnmeldenderBearbe"& _ "iterName] = @eza_AnmeldenderBearbeiterName, [eza_AnmeldenderBearbeiterTel] = @ez"& _ "a_AnmeldenderBearbeiterTel, [eza_AnmeldenderBearbeiterStellung] = @eza_Anmeldend"& _ "erBearbeiterStellung, [eza_AnmeldenderBearbeiterEMail] = @eza_AnmeldenderBearbei"& _ "terEMail, [eza_FiskalvertretungKz] = @eza_FiskalvertretungKz, [eza_Ausstellungso"& _ "rt] = @eza_Ausstellungsort, [eza_ZollrechtlicherStatus] = @eza_ZollrechtlicherSt"& _ "atus, [eza_GesamtRohmasse] = @eza_GesamtRohmasse, [eza_VerfahrenBeantragtCode] ="& _ " @eza_VerfahrenBeantragtCode, [eza_VerkehrszweigInland] = @eza_VerkehrszweigInla"& _ "nd, [eza_VerkehrszweigGrenze] = @eza_VerkehrszweigGrenze, [eza_VersendungsLandCo"& _ "de] = @eza_VersendungsLandCode, [eza_Bestimmungsbundesland] = @eza_Bestimmungsbu"& _ "ndesland, [eza_Bestimmungsland] = @eza_Bestimmungsland, [eza_KennzeichenNameBefo"& _ "erderungsmittelAnkunft] = @eza_KennzeichenNameBefoerderungsmittelAnkunft, [eza_B"& _ "eförderungsmittelGrenzeStaatszugehörigkeitCode] = @eza_BeförderungsmittelGrenzeS"& _ "taatszugehörigkeitCode, [eza_BeförderungsmittelGrenzeArt] = @eza_Beförderungsmit"& _ "telGrenzeArt, [eza_BeförderungsmittelGrenze] = @eza_BeförderungsmittelGrenze, [e"& _ "za_LieferbedingungCode] = @eza_LieferbedingungCode, [eza_LieferbedingungText] = "& _ "@eza_LieferbedingungText, [eza_LieferbedingungSchluessel] = @eza_Lieferbedingung"& _ "Schluessel, [eza_LieferbedingungOrt] = @eza_LieferbedingungOrt, [eza_VorpapierAr"& _ "tCode] = @eza_VorpapierArtCode, [eza_VorpapierNr] = @eza_VorpapierNr, [eza_ArtGe"& _ "schaeftCode] = @eza_ArtGeschaeftCode, [eza_Statistikstatus] = @eza_Statistikstat"& _ "us, [eza_Warenort] = @eza_Warenort, [eza_Rechnungspreis] = @eza_Rechnungspreis, "& _ "[eza_Rechnungswaehrung] = @eza_Rechnungswaehrung, [eza_DV1Kz] = @eza_DV1Kz, [eza"& _ "_DV1Vertretungsverhaeltnis] = @eza_DV1Vertretungsverhaeltnis, [eza_DV1FruehereEn"& _ "tscheidungen] = @eza_DV1FruehereEntscheidungen, [eza_DV1Verbundenheit] = @eza_DV"& _ "1Verbundenheit, [eza_DV1VerbungenheitEinzelheiten] = @eza_DV1VerbungenheitEinzel"& _ "heiten, [eza_DV1EinschraenkungenKz] = @eza_DV1EinschraenkungenKz, [eza_DV1Beding"& _ "ungenLeistungenKz] = @eza_DV1BedingungenLeistungenKz, [eza_DV1BedingungenLeistun"& _ "genArt] = @eza_DV1BedingungenLeistungenArt, [eza_DV1LizenzgebuehrenKz] = @eza_DV"& _ "1LizenzgebuehrenKz, [eza_DV1LizenzgebuehrenUmstand] = @eza_DV1LizenzgebuehrenUms"& _ "tand, [eza_DV1SpezielleVereinbarungKz] = @eza_DV1SpezielleVereinbarungKz, [eza_D"& _ "V1SpezielleVereinbarungUmstand] = @eza_DV1SpezielleVereinbarungUmstand, [eza_Zus"& _ "atzangabenAnmeldung] = @eza_ZusatzangabenAnmeldung, [eza_KzAutoBestaetigung] = @"& _ "eza_KzAutoBestaetigung, [eza_AnschreibungDatum] = @eza_AnschreibungDatum, [eza_E"& _ "ingangszollstelle] = @eza_Eingangszollstelle, [eza_Zahlungsart] = @eza_Zahlungsa"& _ "rt, [eza_ContainerNr1] = @eza_ContainerNr1, [eza_ContainerNr2] = @eza_ContainerN"& _ "r2, [eza_ContainerNr3] = @eza_ContainerNr3, [eza_ContainerNr4] = @eza_ContainerN"& _ "r4, [eza_ContainerNr5] = @eza_ContainerNr5, [eza_ContainerNr6] = @eza_ContainerN"& _ "r6, [eza_ContainerNr7] = @eza_ContainerNr7, [eza_ContainerNr8] = @eza_ContainerN"& _ "r8, [eza_ContainerNr9] = @eza_ContainerNr9, [eza_BeendigungsanteilArtCode] = @ez"& _ "a_BeendigungsanteilArtCode, [eza_BewilligungsIDZLAVUV] = @eza_BewilligungsIDZLAV"& _ "UV, [eza_BezugsnummerBEAnteilZL] = @eza_BezugsnummerBEAnteilZL, [eza_UstIdAnmeld"& _ "er] = @eza_UstIdAnmelder, [eza_FinanzamtAnmelder] = @eza_FinanzamtAnmelder, [eza"& _ "_Anmeldedatum] = @eza_Anmeldedatum WHERE (([eza_Id] = @Original_eza_Id) AND ([ez"& _ "a_Status] = @Original_eza_Status) AND ([eza_Status_KEWILL_Equivalent] = @Origina"& _ "l_eza_Status_KEWILL_Equivalent) AND ([eza_dyaArt] = @Original_eza_dyaArt) AND (["& _ "eza_dyaAnmID] = @Original_eza_dyaAnmID) AND ((@IsNull_eza_ANR = 1 AND [eza_ANR] "& _ "IS NULL) OR ([eza_ANR] = @Original_eza_ANR)) AND ((@IsNull_eza_MRN = 1 AND [eza_"& _ "MRN] IS NULL) OR ([eza_MRN] = @Original_eza_MRN)) AND ([eza_Erstellung] = @Origi"& _ "nal_eza_Erstellung) AND ((@IsNull_eza_Erstellung_SB = 1 AND [eza_Erstellung_SB] "& _ "IS NULL) OR ([eza_Erstellung_SB] = @Original_eza_Erstellung_SB)) AND ([eza_Letzt"& _ "eBearbeitung] = @Original_eza_LetzteBearbeitung) AND ((@IsNull_eza_LetzteBearbei"& _ "tung_SB = 1 AND [eza_LetzteBearbeitung_SB] IS NULL) OR ([eza_LetzteBearbeitung_S"& _ "B] = @Original_eza_LetzteBearbeitung_SB)) AND ((@IsNull_eza_firma = 1 AND [eza_f"& _ "irma] IS NULL) OR ([eza_firma] = @Original_eza_firma)) AND ((@IsNull_eza_niederl"& _ "assung = 1 AND [eza_niederlassung] IS NULL) OR ([eza_niederlassung] = @Original_"& _ "eza_niederlassung)) AND ((@IsNull_eza_Trans_Partner = 1 AND [eza_Trans_Partner] "& _ "IS NULL) OR ([eza_Trans_Partner] = @Original_eza_Trans_Partner)) AND ((@IsNull_e"& _ "za_Trans_Div1 = 1 AND [eza_Trans_Div1] IS NULL) OR ([eza_Trans_Div1] = @Original"& _ "_eza_Trans_Div1)) AND ((@IsNull_eza_Trans_Div2 = 1 AND [eza_Trans_Div2] IS NULL)"& _ " OR ([eza_Trans_Div2] = @Original_eza_Trans_Div2)) AND ((@IsNull_eza_Trans_Div3 "& _ "= 1 AND [eza_Trans_Div3] IS NULL) OR ([eza_Trans_Div3] = @Original_eza_Trans_Div"& _ "3)) AND ((@IsNull_eza_Trans_Referenz = 1 AND [eza_Trans_Referenz] IS NULL) OR (["& _ "eza_Trans_Referenz] = @Original_eza_Trans_Referenz)) AND ((@IsNull_eza_Trans_Dat"& _ "umZeit = 1 AND [eza_Trans_DatumZeit] IS NULL) OR ([eza_Trans_DatumZeit] = @Origi"& _ "nal_eza_Trans_DatumZeit)) AND ((@IsNull_eza_Trans_Version = 1 AND [eza_Trans_Ver"& _ "sion] IS NULL) OR ([eza_Trans_Version] = @Original_eza_Trans_Version)) AND ((@Is"& _ "Null_eza_NachrichtenSenderTIN = 1 AND [eza_NachrichtenSenderTIN] IS NULL) OR ([e"& _ "za_NachrichtenSenderTIN] = @Original_eza_NachrichtenSenderTIN)) AND ((@IsNull_ez"& _ "a_NachrichtenSenderNLNR = 1 AND [eza_NachrichtenSenderNLNR] IS NULL) OR ([eza_Na"& _ "chrichtenSenderNLNR] = @Original_eza_NachrichtenSenderNLNR)) AND ((@IsNull_eza_N"& _ "achrichtenempfaengerDST = 1 AND [eza_NachrichtenempfaengerDST] IS NULL) OR ([eza"& _ "_NachrichtenempfaengerDST] = @Original_eza_NachrichtenempfaengerDST)) AND ((@IsN"& _ "ull_eza_ObjectName = 1 AND [eza_ObjectName] IS NULL) OR ([eza_ObjectName] = @Ori"& _ "ginal_eza_ObjectName)) AND ((@IsNull_eza_ObjectAlias = 1 AND [eza_ObjectAlias] I"& _ "S NULL) OR ([eza_ObjectAlias] = @Original_eza_ObjectAlias)) AND ((@IsNull_eza_Be"& _ "zugsnummerVorblendung = 1 AND [eza_BezugsnummerVorblendung] IS NULL) OR ([eza_Be"& _ "zugsnummerVorblendung] = @Original_eza_BezugsnummerVorblendung)) AND ((@IsNull_e"& _ "za_Bearbeiter = 1 AND [eza_Bearbeiter] IS NULL) OR ([eza_Bearbeiter] = @Original"& _ "_eza_Bearbeiter)) AND ((@IsNull_eza_AnmeldungArt = 1 AND [eza_AnmeldungArt] IS N"& _ "ULL) OR ([eza_AnmeldungArt] = @Original_eza_AnmeldungArt)) AND ((@IsNull_eza_Com"& _ "pliancePruefung = 1 AND [eza_CompliancePruefung] IS NULL) OR ([eza_CompliancePru"& _ "efung] = @Original_eza_CompliancePruefung)) AND ((@IsNull_eza_AnfBemerkungStatus"& _ "anzeige = 1 AND [eza_AnfBemerkungStatusanzeige] IS NULL) OR ([eza_AnfBemerkungSt"& _ "atusanzeige] = @Original_eza_AnfBemerkungStatusanzeige)) AND ((@IsNull_eza_Adres"& _ "sierteZollstelle = 1 AND [eza_AdressierteZollstelle] IS NULL) OR ([eza_Adressier"& _ "teZollstelle] = @Original_eza_AdressierteZollstelle)) AND ((@IsNull_eza_Anmelder"& _ "istEmpfaenger = 1 AND [eza_AnmelderistEmpfaenger] IS NULL) OR ([eza_AnmelderistE"& _ "mpfaenger] = @Original_eza_AnmelderistEmpfaenger)) AND ((@IsNull_eza_Vertretungs"& _ "VerhaeltnisCode = 1 AND [eza_VertretungsVerhaeltnisCode] IS NULL) OR ([eza_Vertr"& _ "etungsVerhaeltnisCode] = @Original_eza_VertretungsVerhaeltnisCode)) AND ((@IsNul"& _ "l_eza_Vorsteuerabzug = 1 AND [eza_Vorsteuerabzug] IS NULL) OR ([eza_Vorsteuerabz"& _ "ug] = @Original_eza_Vorsteuerabzug)) AND ((@IsNull_eza_AnmeldenderBearbeiterName"& _ " = 1 AND [eza_AnmeldenderBearbeiterName] IS NULL) OR ([eza_AnmeldenderBearbeiter"& _ "Name] = @Original_eza_AnmeldenderBearbeiterName)) AND ((@IsNull_eza_AnmeldenderB"& _ "earbeiterTel = 1 AND [eza_AnmeldenderBearbeiterTel] IS NULL) OR ([eza_Anmeldende"& _ "rBearbeiterTel] = @Original_eza_AnmeldenderBearbeiterTel)) AND ((@IsNull_eza_Anm"& _ "eldenderBearbeiterStellung = 1 AND [eza_AnmeldenderBearbeiterStellung] IS NULL) "& _ "OR ([eza_AnmeldenderBearbeiterStellung] = @Original_eza_AnmeldenderBearbeiterSte"& _ "llung)) AND ((@IsNull_eza_AnmeldenderBearbeiterEMail = 1 AND [eza_AnmeldenderBea"& _ "rbeiterEMail] IS NULL) OR ([eza_AnmeldenderBearbeiterEMail] = @Original_eza_Anme"& _ "ldenderBearbeiterEMail)) AND ((@IsNull_eza_FiskalvertretungKz = 1 AND [eza_Fiska"& _ "lvertretungKz] IS NULL) OR ([eza_FiskalvertretungKz] = @Original_eza_Fiskalvertr"& _ "etungKz)) AND ((@IsNull_eza_Ausstellungsort = 1 AND [eza_Ausstellungsort] IS NUL"& _ "L) OR ([eza_Ausstellungsort] = @Original_eza_Ausstellungsort)) AND ((@IsNull_eza"& _ "_ZollrechtlicherStatus = 1 AND [eza_ZollrechtlicherStatus] IS NULL) OR ([eza_Zol"& _ "lrechtlicherStatus] = @Original_eza_ZollrechtlicherStatus)) AND ((@IsNull_eza_Ge"& _ "samtRohmasse = 1 AND [eza_GesamtRohmasse] IS NULL) OR ([eza_GesamtRohmasse] = @O"& _ "riginal_eza_GesamtRohmasse)) AND ((@IsNull_eza_VerfahrenBeantragtCode = 1 AND [e"& _ "za_VerfahrenBeantragtCode] IS NULL) OR ([eza_VerfahrenBeantragtCode] = @Original"& _ "_eza_VerfahrenBeantragtCode)) AND ((@IsNull_eza_VerkehrszweigInland = 1 AND [eza"& _ "_VerkehrszweigInland] IS NULL) OR ([eza_VerkehrszweigInland] = @Original_eza_Ver"& _ "kehrszweigInland)) AND ((@IsNull_eza_VerkehrszweigGrenze = 1 AND [eza_Verkehrszw"& _ "eigGrenze] IS NULL) OR ([eza_VerkehrszweigGrenze] = @Original_eza_VerkehrszweigG"& _ "renze)) AND ((@IsNull_eza_VersendungsLandCode = 1 AND [eza_VersendungsLandCode] "& _ "IS NULL) OR ([eza_VersendungsLandCode] = @Original_eza_VersendungsLandCode)) AND"& _ " ((@IsNull_eza_Bestimmungsbundesland = 1 AND [eza_Bestimmungsbundesland] IS NULL"& _ ") OR ([eza_Bestimmungsbundesland] = @Original_eza_Bestimmungsbundesland)) AND (("& _ "@IsNull_eza_Bestimmungsland = 1 AND [eza_Bestimmungsland] IS NULL) OR ([eza_Best"& _ "immungsland] = @Original_eza_Bestimmungsland)) AND ((@IsNull_eza_KennzeichenName"& _ "BefoerderungsmittelAnkunft = 1 AND [eza_KennzeichenNameBefoerderungsmittelAnkunf"& _ "t] IS NULL) OR ([eza_KennzeichenNameBefoerderungsmittelAnkunft] = @Original_eza_"& _ "KennzeichenNameBefoerderungsmittelAnkunft)) AND ((@IsNull_eza_Beförderungsmittel"& _ "GrenzeStaatszugehörigkeitCode = 1 AND [eza_BeförderungsmittelGrenzeStaatszugehör"& _ "igkeitCode] IS NULL) OR ([eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode] ="& _ " @Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode)) AND ((@IsNull_e"& _ "za_BeförderungsmittelGrenzeArt = 1 AND [eza_BeförderungsmittelGrenzeArt] IS NULL"& _ ") OR ([eza_BeförderungsmittelGrenzeArt] = @Original_eza_BeförderungsmittelGrenze"& _ "Art)) AND ((@IsNull_eza_BeförderungsmittelGrenze = 1 AND [eza_Beförderungsmittel"& _ "Grenze] IS NULL) OR ([eza_BeförderungsmittelGrenze] = @Original_eza_Beförderungs"& _ "mittelGrenze)) AND ((@IsNull_eza_LieferbedingungCode = 1 AND [eza_Lieferbedingun"& _ "gCode] IS NULL) OR ([eza_LieferbedingungCode] = @Original_eza_LieferbedingungCod"& _ "e)) AND ((@IsNull_eza_LieferbedingungText = 1 AND [eza_LieferbedingungText] IS N"& _ "ULL) OR ([eza_LieferbedingungText] = @Original_eza_LieferbedingungText)) AND ((@"& _ "IsNull_eza_LieferbedingungSchluessel = 1 AND [eza_LieferbedingungSchluessel] IS "& _ "NULL) OR ([eza_LieferbedingungSchluessel] = @Original_eza_LieferbedingungSchlues"& _ "sel)) AND ((@IsNull_eza_LieferbedingungOrt = 1 AND [eza_LieferbedingungOrt] IS N"& _ "ULL) OR ([eza_LieferbedingungOrt] = @Original_eza_LieferbedingungOrt)) AND ((@Is"& _ "Null_eza_VorpapierArtCode = 1 AND [eza_VorpapierArtCode] IS NULL) OR ([eza_Vorpa"& _ "pierArtCode] = @Original_eza_VorpapierArtCode)) AND ((@IsNull_eza_VorpapierNr = "& _ "1 AND [eza_VorpapierNr] IS NULL) OR ([eza_VorpapierNr] = @Original_eza_Vorpapier"& _ "Nr)) AND ((@IsNull_eza_ArtGeschaeftCode = 1 AND [eza_ArtGeschaeftCode] IS NULL) "& _ "OR ([eza_ArtGeschaeftCode] = @Original_eza_ArtGeschaeftCode)) AND ((@IsNull_eza_"& _ "Statistikstatus = 1 AND [eza_Statistikstatus] IS NULL) OR ([eza_Statistikstatus]"& _ " = @Original_eza_Statistikstatus)) AND ((@IsNull_eza_Warenort = 1 AND [eza_Waren"& _ "ort] IS NULL) OR ([eza_Warenort] = @Original_eza_Warenort)) AND ((@IsNull_eza_Re"& _ "chnungspreis = 1 AND [eza_Rechnungspreis] IS NULL) OR ([eza_Rechnungspreis] = @O"& _ "riginal_eza_Rechnungspreis)) AND ((@IsNull_eza_Rechnungswaehrung = 1 AND [eza_Re"& _ "chnungswaehrung] IS NULL) OR ([eza_Rechnungswaehrung] = @Original_eza_Rechnungsw"& _ "aehrung)) AND ((@IsNull_eza_DV1Kz = 1 AND [eza_DV1Kz] IS NULL) OR ([eza_DV1Kz] ="& _ " @Original_eza_DV1Kz)) AND ((@IsNull_eza_DV1Vertretungsverhaeltnis = 1 AND [eza_"& _ "DV1Vertretungsverhaeltnis] IS NULL) OR ([eza_DV1Vertretungsverhaeltnis] = @Origi"& _ "nal_eza_DV1Vertretungsverhaeltnis)) AND ((@IsNull_eza_DV1FruehereEntscheidungen "& _ "= 1 AND [eza_DV1FruehereEntscheidungen] IS NULL) OR ([eza_DV1FruehereEntscheidun"& _ "gen] = @Original_eza_DV1FruehereEntscheidungen)) AND ((@IsNull_eza_DV1Verbundenh"& _ "eit = 1 AND [eza_DV1Verbundenheit] IS NULL) OR ([eza_DV1Verbundenheit] = @Origin"& _ "al_eza_DV1Verbundenheit)) AND ((@IsNull_eza_DV1VerbungenheitEinzelheiten = 1 AND"& _ " [eza_DV1VerbungenheitEinzelheiten] IS NULL) OR ([eza_DV1VerbungenheitEinzelheit"& _ "en] = @Original_eza_DV1VerbungenheitEinzelheiten)) AND ((@IsNull_eza_DV1Einschra"& _ "enkungenKz = 1 AND [eza_DV1EinschraenkungenKz] IS NULL) OR ([eza_DV1Einschraenku"& _ "ngenKz] = @Original_eza_DV1EinschraenkungenKz)) AND ((@IsNull_eza_DV1Bedingungen"& _ "LeistungenKz = 1 AND [eza_DV1BedingungenLeistungenKz] IS NULL) OR ([eza_DV1Bedin"& _ "gungenLeistungenKz] = @Original_eza_DV1BedingungenLeistungenKz)) AND ((@IsNull_e"& _ "za_DV1BedingungenLeistungenArt = 1 AND [eza_DV1BedingungenLeistungenArt] IS NULL"& _ ") OR ([eza_DV1BedingungenLeistungenArt] = @Original_eza_DV1BedingungenLeistungen"& _ "Art)) AND ((@IsNull_eza_DV1LizenzgebuehrenKz = 1 AND [eza_DV1LizenzgebuehrenKz] "& _ "IS NULL) OR ([eza_DV1LizenzgebuehrenKz] = @Original_eza_DV1LizenzgebuehrenKz)) A"& _ "ND ((@IsNull_eza_DV1LizenzgebuehrenUmstand = 1 AND [eza_DV1LizenzgebuehrenUmstan"& _ "d] IS NULL) OR ([eza_DV1LizenzgebuehrenUmstand] = @Original_eza_DV1Lizenzgebuehr"& _ "enUmstand)) AND ((@IsNull_eza_DV1SpezielleVereinbarungKz = 1 AND [eza_DV1Speziel"& _ "leVereinbarungKz] IS NULL) OR ([eza_DV1SpezielleVereinbarungKz] = @Original_eza_"& _ "DV1SpezielleVereinbarungKz)) AND ((@IsNull_eza_DV1SpezielleVereinbarungUmstand ="& _ " 1 AND [eza_DV1SpezielleVereinbarungUmstand] IS NULL) OR ([eza_DV1SpezielleVerei"& _ "nbarungUmstand] = @Original_eza_DV1SpezielleVereinbarungUmstand)) AND ((@IsNull_"& _ "eza_ZusatzangabenAnmeldung = 1 AND [eza_ZusatzangabenAnmeldung] IS NULL) OR ([ez"& _ "a_ZusatzangabenAnmeldung] = @Original_eza_ZusatzangabenAnmeldung)) AND ((@IsNull"& _ "_eza_KzAutoBestaetigung = 1 AND [eza_KzAutoBestaetigung] IS NULL) OR ([eza_KzAut"& _ "oBestaetigung] = @Original_eza_KzAutoBestaetigung)) AND ((@IsNull_eza_Anschreibu"& _ "ngDatum = 1 AND [eza_AnschreibungDatum] IS NULL) OR ([eza_AnschreibungDatum] = @"& _ "Original_eza_AnschreibungDatum)) AND ((@IsNull_eza_Eingangszollstelle = 1 AND [e"& _ "za_Eingangszollstelle] IS NULL) OR ([eza_Eingangszollstelle] = @Original_eza_Ein"& _ "gangszollstelle)) AND ((@IsNull_eza_Zahlungsart = 1 AND [eza_Zahlungsart] IS NUL"& _ "L) OR ([eza_Zahlungsart] = @Original_eza_Zahlungsart)) AND ((@IsNull_eza_Contain"& _ "erNr1 = 1 AND [eza_ContainerNr1] IS NULL) OR ([eza_ContainerNr1] = @Original_eza"& _ "_ContainerNr1)) AND ((@IsNull_eza_ContainerNr2 = 1 AND [eza_ContainerNr2] IS NUL"& _ "L) OR ([eza_ContainerNr2] = @Original_eza_ContainerNr2)) AND ((@IsNull_eza_Conta"& _ "inerNr3 = 1 AND [eza_ContainerNr3] IS NULL) OR ([eza_ContainerNr3] = @Original_e"& _ "za_ContainerNr3)) AND ((@IsNull_eza_ContainerNr4 = 1 AND [eza_ContainerNr4] IS N"& _ "ULL) OR ([eza_ContainerNr4] = @Original_eza_ContainerNr4)) AND ((@IsNull_eza_Con"& _ "tainerNr5 = 1 AND [eza_ContainerNr5] IS NULL) OR ([eza_ContainerNr5] = @Original"& _ "_eza_ContainerNr5)) AND ((@IsNull_eza_ContainerNr6 = 1 AND [eza_ContainerNr6] IS"& _ " NULL) OR ([eza_ContainerNr6] = @Original_eza_ContainerNr6)) AND ((@IsNull_eza_C"& _ "ontainerNr7 = 1 AND [eza_ContainerNr7] IS NULL) OR ([eza_ContainerNr7] = @Origin"& _ "al_eza_ContainerNr7)) AND ((@IsNull_eza_ContainerNr8 = 1 AND [eza_ContainerNr8] "& _ "IS NULL) OR ([eza_ContainerNr8] = @Original_eza_ContainerNr8)) AND ((@IsNull_eza"& _ "_ContainerNr9 = 1 AND [eza_ContainerNr9] IS NULL) OR ([eza_ContainerNr9] = @Orig"& _ "inal_eza_ContainerNr9)) AND ((@IsNull_eza_BeendigungsanteilArtCode = 1 AND [eza_"& _ "BeendigungsanteilArtCode] IS NULL) OR ([eza_BeendigungsanteilArtCode] = @Origina"& _ "l_eza_BeendigungsanteilArtCode)) AND ((@IsNull_eza_BewilligungsIDZLAVUV = 1 AND "& _ "[eza_BewilligungsIDZLAVUV] IS NULL) OR ([eza_BewilligungsIDZLAVUV] = @Original_e"& _ "za_BewilligungsIDZLAVUV)) AND ((@IsNull_eza_BezugsnummerBEAnteilZL = 1 AND [eza_"& _ "BezugsnummerBEAnteilZL] IS NULL) OR ([eza_BezugsnummerBEAnteilZL] = @Original_ez"& _ "a_BezugsnummerBEAnteilZL)) AND ((@IsNull_eza_UstIdAnmelder = 1 AND [eza_UstIdAnm"& _ "elder] IS NULL) OR ([eza_UstIdAnmelder] = @Original_eza_UstIdAnmelder)) AND ((@I"& _ "sNull_eza_FinanzamtAnmelder = 1 AND [eza_FinanzamtAnmelder] IS NULL) OR ([eza_Fi"& _ "nanzamtAnmelder] = @Original_eza_FinanzamtAnmelder)) AND ((@IsNull_eza_Anmeldeda"& _ "tum = 1 AND [eza_Anmeldedatum] IS NULL) OR ([eza_Anmeldedatum] = @Original_eza_A"& _ "nmeldedatum)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT eza_Id, eza_Status, eza_Status_KEWILL_Equivalent, eza_dy"& _ "aArt, eza_dyaAnmID, eza_ANR, eza_MRN, eza_Erstellung, eza_Erstellung_SB, eza_Let"& _ "zteBearbeitung, eza_LetzteBearbeitung_SB, eza_firma, eza_niederlassung, eza_Tran"& _ "s_Partner, eza_Trans_Div1, eza_Trans_Div2, eza_Trans_Div3, eza_Trans_Referenz, e"& _ "za_Trans_DatumZeit, eza_Trans_Version, eza_NachrichtenSenderTIN, eza_Nachrichten"& _ "SenderNLNR, eza_NachrichtenempfaengerDST, eza_ObjectName, eza_ObjectAlias, eza_B"& _ "ezugsnummerVorblendung, eza_Bearbeiter, eza_AnmeldungArt, eza_CompliancePruefung"& _ ", eza_AnfBemerkungStatusanzeige, eza_AdressierteZollstelle, eza_AnmelderistEmpfa"& _ "enger, eza_VertretungsVerhaeltnisCode, eza_Vorsteuerabzug, eza_AnmeldenderBearbe"& _ "iterName, eza_AnmeldenderBearbeiterTel, eza_AnmeldenderBearbeiterStellung, eza_A"& _ "nmeldenderBearbeiterEMail, eza_FiskalvertretungKz, eza_Ausstellungsort, eza_Zoll"& _ "rechtlicherStatus, eza_GesamtRohmasse, eza_VerfahrenBeantragtCode, eza_Verkehrsz"& _ "weigInland, eza_VerkehrszweigGrenze, eza_VersendungsLandCode, eza_Bestimmungsbun"& _ "desland, eza_Bestimmungsland, eza_KennzeichenNameBefoerderungsmittelAnkunft, eza"& _ "_BeförderungsmittelGrenzeStaatszugehörigkeitCode, eza_BeförderungsmittelGrenzeAr"& _ "t, eza_BeförderungsmittelGrenze, eza_LieferbedingungCode, eza_LieferbedingungTex"& _ "t, eza_LieferbedingungSchluessel, eza_LieferbedingungOrt, eza_VorpapierArtCode, "& _ "eza_VorpapierNr, eza_ArtGeschaeftCode, eza_Statistikstatus, eza_Warenort, eza_Re"& _ "chnungspreis, eza_Rechnungswaehrung, eza_DV1Kz, eza_DV1Vertretungsverhaeltnis, e"& _ "za_DV1FruehereEntscheidungen, eza_DV1Verbundenheit, eza_DV1VerbungenheitEinzelhe"& _ "iten, eza_DV1EinschraenkungenKz, eza_DV1BedingungenLeistungenKz, eza_DV1Bedingun"& _ "genLeistungenArt, eza_DV1LizenzgebuehrenKz, eza_DV1LizenzgebuehrenUmstand, eza_D"& _ "V1SpezielleVereinbarungKz, eza_DV1SpezielleVereinbarungUmstand, eza_Zusatzangabe"& _ "nAnmeldung, eza_KzAutoBestaetigung, eza_AnschreibungDatum, eza_Eingangszollstell"& _ "e, eza_Zahlungsart, eza_ContainerNr1, eza_ContainerNr2, eza_ContainerNr3, eza_Co"& _ "ntainerNr4, eza_ContainerNr5, eza_ContainerNr6, eza_ContainerNr7, eza_ContainerN"& _ "r8, eza_ContainerNr9, eza_BeendigungsanteilArtCode, eza_BewilligungsIDZLAVUV, ez"& _ "a_BezugsnummerBEAnteilZL, eza_UstIdAnmelder, eza_FinanzamtAnmelder, eza_Anmelded"& _ "atum FROM tblDakosy_EZA WHERE (eza_Id = @eza_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_dyaArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_dyaAnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ANR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_DatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "eza_Trans_Version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectAlias", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmeldungArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldungArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_CompliancePruefung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_CompliancePruefung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnfBemerkungStatusanzeige", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnfBemerkungStatusanzeige", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AdressierteZollstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AdressierteZollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmelderistEmpfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmelderistEmpfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VertretungsVerhaeltnisCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VertretungsVerhaeltnisCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Vorsteuerabzug", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Vorsteuerabzug", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmeldenderBearbeiterName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmeldenderBearbeiterTel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterTel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmeldenderBearbeiterStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterStellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnmeldenderBearbeiterEMail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterEMail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_FiskalvertretungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FiskalvertretungKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Ausstellungsort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Ausstellungsort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ZollrechtlicherStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZollrechtlicherStatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "eza_GesamtRohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VerfahrenBeantragtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerfahrenBeantragtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigInland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VersendungsLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Bestimmungsbundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsbundesland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Bestimmungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BeförderungsmittelGrenzeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BeförderungsmittelGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LieferbedingungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LieferbedingungText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LieferbedingungSchluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungSchluessel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_LieferbedingungOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VorpapierArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_VorpapierNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ArtGeschaeftCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ArtGeschaeftCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Statistikstatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Statistikstatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Warenort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Warenort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Rechnungspreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 2, "eza_Rechnungspreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Rechnungswaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Rechnungswaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1Kz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Kz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1Vertretungsverhaeltnis", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Vertretungsverhaeltnis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1FruehereEntscheidungen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1FruehereEntscheidungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1Verbundenheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Verbundenheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1VerbungenheitEinzelheiten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1VerbungenheitEinzelheiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1EinschraenkungenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1EinschraenkungenKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1BedingungenLeistungenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1BedingungenLeistungenArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1LizenzgebuehrenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1LizenzgebuehrenUmstand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenUmstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1SpezielleVereinbarungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ZusatzangabenAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZusatzangabenAnmeldung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_KzAutoBestaetigung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KzAutoBestaetigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_AnschreibungDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnschreibungDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Eingangszollstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Eingangszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Zahlungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_ContainerNr9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BeendigungsanteilArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeendigungsanteilArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BewilligungsIDZLAVUV", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BewilligungsIDZLAVUV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_BezugsnummerBEAnteilZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerBEAnteilZL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_UstIdAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_UstIdAnmelder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_FinanzamtAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FinanzamtAnmelder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Anmeldedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Anmeldedatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_dyaArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_dyaAnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ANR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ANR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ANR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Partner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Partner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Div1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Div2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Div3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Div3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_DatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Trans_Version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Trans_Version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "eza_Trans_Version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_NachrichtenSenderTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ObjectName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ObjectAlias", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectAlias", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ObjectAlias", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BezugsnummerVorblendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Bearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmeldungArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldungArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmeldungArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldungArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_CompliancePruefung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_CompliancePruefung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_CompliancePruefung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_CompliancePruefung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnfBemerkungStatusanzeige", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnfBemerkungStatusanzeige", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnfBemerkungStatusanzeige", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnfBemerkungStatusanzeige", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AdressierteZollstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AdressierteZollstelle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AdressierteZollstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AdressierteZollstelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmelderistEmpfaenger", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmelderistEmpfaenger", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmelderistEmpfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmelderistEmpfaenger", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VertretungsVerhaeltnisCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VertretungsVerhaeltnisCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VertretungsVerhaeltnisCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VertretungsVerhaeltnisCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Vorsteuerabzug", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Vorsteuerabzug", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Vorsteuerabzug", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Vorsteuerabzug", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmeldenderBearbeiterName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmeldenderBearbeiterName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmeldenderBearbeiterTel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterTel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmeldenderBearbeiterTel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterTel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmeldenderBearbeiterStellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterStellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmeldenderBearbeiterStellung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterStellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnmeldenderBearbeiterEMail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterEMail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnmeldenderBearbeiterEMail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnmeldenderBearbeiterEMail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_FiskalvertretungKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FiskalvertretungKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_FiskalvertretungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FiskalvertretungKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Ausstellungsort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Ausstellungsort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Ausstellungsort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Ausstellungsort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ZollrechtlicherStatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZollrechtlicherStatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ZollrechtlicherStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZollrechtlicherStatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_GesamtRohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "eza_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VerfahrenBeantragtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerfahrenBeantragtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VerfahrenBeantragtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerfahrenBeantragtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VerkehrszweigInland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VerkehrszweigGrenze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VersendungsLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Bestimmungsbundesland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsbundesland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Bestimmungsbundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsbundesland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Bestimmungsland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Bestimmungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Bestimmungsland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KennzeichenNameBefoerderungsmittelAnkunft", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BeförderungsmittelGrenzeArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BeförderungsmittelGrenzeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BeförderungsmittelGrenze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenze", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BeförderungsmittelGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeförderungsmittelGrenze", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_LieferbedingungCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LieferbedingungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_LieferbedingungText", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungText", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LieferbedingungText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungText", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_LieferbedingungSchluessel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungSchluessel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LieferbedingungSchluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungSchluessel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_LieferbedingungOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_LieferbedingungOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_LieferbedingungOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VorpapierArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VorpapierArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_VorpapierNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_VorpapierNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_VorpapierNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ArtGeschaeftCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ArtGeschaeftCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ArtGeschaeftCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ArtGeschaeftCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Statistikstatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Statistikstatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Statistikstatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Statistikstatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Warenort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Warenort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Warenort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Warenort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Rechnungspreis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Rechnungspreis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Rechnungspreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 2, "eza_Rechnungspreis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Rechnungswaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Rechnungswaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Rechnungswaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Rechnungswaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1Kz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Kz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1Kz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Kz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1Vertretungsverhaeltnis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Vertretungsverhaeltnis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1Vertretungsverhaeltnis", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Vertretungsverhaeltnis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1FruehereEntscheidungen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1FruehereEntscheidungen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1FruehereEntscheidungen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1FruehereEntscheidungen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1Verbundenheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Verbundenheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1Verbundenheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1Verbundenheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1VerbungenheitEinzelheiten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1VerbungenheitEinzelheiten", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1VerbungenheitEinzelheiten", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1VerbungenheitEinzelheiten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1EinschraenkungenKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1EinschraenkungenKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1EinschraenkungenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1EinschraenkungenKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1BedingungenLeistungenKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1BedingungenLeistungenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1BedingungenLeistungenArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1BedingungenLeistungenArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1BedingungenLeistungenArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1LizenzgebuehrenKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1LizenzgebuehrenKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1LizenzgebuehrenUmstand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenUmstand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1LizenzgebuehrenUmstand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1LizenzgebuehrenUmstand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1SpezielleVereinbarungKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1SpezielleVereinbarungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_DV1SpezielleVereinbarungUmstand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ZusatzangabenAnmeldung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZusatzangabenAnmeldung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ZusatzangabenAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ZusatzangabenAnmeldung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_KzAutoBestaetigung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KzAutoBestaetigung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_KzAutoBestaetigung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_KzAutoBestaetigung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_AnschreibungDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnschreibungDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_AnschreibungDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_AnschreibungDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Eingangszollstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Eingangszollstelle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Eingangszollstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Eingangszollstelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Zahlungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Zahlungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Zahlungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Zahlungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_ContainerNr9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_ContainerNr9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_ContainerNr9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BeendigungsanteilArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeendigungsanteilArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BeendigungsanteilArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BeendigungsanteilArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BewilligungsIDZLAVUV", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BewilligungsIDZLAVUV", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BewilligungsIDZLAVUV", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BewilligungsIDZLAVUV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_BezugsnummerBEAnteilZL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerBEAnteilZL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_BezugsnummerBEAnteilZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_BezugsnummerBEAnteilZL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_UstIdAnmelder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_UstIdAnmelder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_UstIdAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_UstIdAnmelder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_FinanzamtAnmelder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FinanzamtAnmelder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_FinanzamtAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_FinanzamtAnmelder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eza_Anmeldedatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Anmeldedatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eza_Anmeldedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Anmeldedatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eza_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "eza_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 eza_Id, eza_Status, eza_Status_KEWILL_Equivalent, eza_dyaArt, eza_dyaAnmID"& _ ", eza_ANR, eza_MRN, eza_Erstellung, eza_Erstellung_SB, eza_LetzteBearbeitung, ez"& _ "a_LetzteBearbeitung_SB, eza_firma, eza_niederlassung, eza_Trans_Partner, eza_Tra"& _ "ns_Div1, eza_Trans_Div2, eza_Trans_Div3, eza_Trans_Referenz, eza_Trans_DatumZeit"& _ ", eza_Trans_Version, eza_NachrichtenSenderTIN, eza_NachrichtenSenderNLNR, eza_Na"& _ "chrichtenempfaengerDST, eza_ObjectName, eza_ObjectAlias, eza_BezugsnummerVorblen"& _ "dung, eza_Bearbeiter, eza_AnmeldungArt, eza_CompliancePruefung, eza_AnfBemerkung"& _ "Statusanzeige, eza_AdressierteZollstelle, eza_AnmelderistEmpfaenger, eza_Vertret"& _ "ungsVerhaeltnisCode, eza_Vorsteuerabzug, eza_AnmeldenderBearbeiterName, eza_Anme"& _ "ldenderBearbeiterTel, eza_AnmeldenderBearbeiterStellung, eza_AnmeldenderBearbeit"& _ "erEMail, eza_FiskalvertretungKz, eza_Ausstellungsort, eza_ZollrechtlicherStatus,"& _ " eza_GesamtRohmasse, eza_VerfahrenBeantragtCode, eza_VerkehrszweigInland, eza_Ve"& _ "rkehrszweigGrenze, eza_VersendungsLandCode, eza_Bestimmungsbundesland, eza_Besti"& _ "mmungsland, eza_KennzeichenNameBefoerderungsmittelAnkunft, eza_Beförderungsmitte"& _ "lGrenzeStaatszugehörigkeitCode, eza_BeförderungsmittelGrenzeArt, eza_Beförderung"& _ "smittelGrenze, eza_LieferbedingungCode, eza_LieferbedingungText, eza_Lieferbedin"& _ "gungSchluessel, eza_LieferbedingungOrt, eza_VorpapierArtCode, eza_VorpapierNr, e"& _ "za_ArtGeschaeftCode, eza_Statistikstatus, eza_Warenort, eza_Rechnungspreis, eza_"& _ "Rechnungswaehrung, eza_DV1Kz, eza_DV1Vertretungsverhaeltnis, eza_DV1FruehereEnts"& _ "cheidungen, eza_DV1Verbundenheit, eza_DV1VerbungenheitEinzelheiten, eza_DV1Einsc"& _ "hraenkungenKz, eza_DV1BedingungenLeistungenKz, eza_DV1BedingungenLeistungenArt, "& _ "eza_DV1LizenzgebuehrenKz, eza_DV1LizenzgebuehrenUmstand, eza_DV1SpezielleVereinb"& _ "arungKz, eza_DV1SpezielleVereinbarungUmstand, eza_ZusatzangabenAnmeldung, eza_Kz"& _ "AutoBestaetigung, eza_AnschreibungDatum, eza_Eingangszollstelle, eza_Zahlungsart"& _ ", eza_ContainerNr1, eza_ContainerNr2, eza_ContainerNr3, eza_ContainerNr4, eza_Co"& _ "ntainerNr5, eza_ContainerNr6, eza_ContainerNr7, eza_ContainerNr8, eza_ContainerN"& _ "r9, eza_BeendigungsanteilArtCode, eza_BewilligungsIDZLAVUV, eza_BezugsnummerBEAn"& _ "teilZL, eza_UstIdAnmelder, eza_FinanzamtAnmelder, eza_Anmeldedatum FROM dbo.tblD"& _ "akosy_EZA" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_EZADataTable) 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 VERAGDataSet.tblDakosy_EZADataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_EZADataTable = New VERAGDataSet.tblDakosy_EZADataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_EZADataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_EZA") 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_eza_Id As Integer, _ ByVal Original_eza_Status As Integer, _ ByVal Original_eza_Status_KEWILL_Equivalent As Integer, _ ByVal Original_eza_dyaArt As String, _ ByVal Original_eza_dyaAnmID As Integer, _ ByVal Original_eza_ANR As String, _ ByVal Original_eza_MRN As String, _ ByVal Original_eza_Erstellung As Date, _ ByVal Original_eza_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_eza_LetzteBearbeitung As Date, _ ByVal Original_eza_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_eza_firma As String, _ ByVal Original_eza_niederlassung As String, _ ByVal Original_eza_Trans_Partner As String, _ ByVal Original_eza_Trans_Div1 As String, _ ByVal Original_eza_Trans_Div2 As String, _ ByVal Original_eza_Trans_Div3 As String, _ ByVal Original_eza_Trans_Referenz As String, _ ByVal Original_eza_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_eza_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_eza_NachrichtenSenderTIN As String, _ ByVal Original_eza_NachrichtenSenderNLNR As String, _ ByVal Original_eza_NachrichtenempfaengerDST As String, _ ByVal Original_eza_ObjectName As String, _ ByVal Original_eza_ObjectAlias As String, _ ByVal Original_eza_BezugsnummerVorblendung As String, _ ByVal Original_eza_Bearbeiter As String, _ ByVal Original_eza_AnmeldungArt As String, _ ByVal Original_eza_CompliancePruefung As String, _ ByVal Original_eza_AnfBemerkungStatusanzeige As String, _ ByVal Original_eza_AdressierteZollstelle As String, _ ByVal Original_eza_AnmelderistEmpfaenger As String, _ ByVal Original_eza_VertretungsVerhaeltnisCode As String, _ ByVal Original_eza_Vorsteuerabzug As String, _ ByVal Original_eza_AnmeldenderBearbeiterName As String, _ ByVal Original_eza_AnmeldenderBearbeiterTel As String, _ ByVal Original_eza_AnmeldenderBearbeiterStellung As String, _ ByVal Original_eza_AnmeldenderBearbeiterEMail As String, _ ByVal Original_eza_FiskalvertretungKz As String, _ ByVal Original_eza_Ausstellungsort As String, _ ByVal Original_eza_ZollrechtlicherStatus As String, _ ByVal Original_eza_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_eza_VerfahrenBeantragtCode As String, _ ByVal Original_eza_VerkehrszweigInland As String, _ ByVal Original_eza_VerkehrszweigGrenze As String, _ ByVal Original_eza_VersendungsLandCode As String, _ ByVal Original_eza_Bestimmungsbundesland As String, _ ByVal Original_eza_Bestimmungsland As String, _ ByVal Original_eza_KennzeichenNameBefoerderungsmittelAnkunft As String, _ ByVal Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode As String, _ ByVal Original_eza_BeförderungsmittelGrenzeArt As String, _ ByVal Original_eza_BeförderungsmittelGrenze As String, _ ByVal Original_eza_LieferbedingungCode As String, _ ByVal Original_eza_LieferbedingungText As String, _ ByVal Original_eza_LieferbedingungSchluessel As String, _ ByVal Original_eza_LieferbedingungOrt As String, _ ByVal Original_eza_VorpapierArtCode As String, _ ByVal Original_eza_VorpapierNr As String, _ ByVal Original_eza_ArtGeschaeftCode As String, _ ByVal Original_eza_Statistikstatus As String, _ ByVal Original_eza_Warenort As String, _ ByVal Original_eza_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal Original_eza_Rechnungswaehrung As String, _ ByVal Original_eza_DV1Kz As String, _ ByVal Original_eza_DV1Vertretungsverhaeltnis As String, _ ByVal Original_eza_DV1FruehereEntscheidungen As String, _ ByVal Original_eza_DV1Verbundenheit As String, _ ByVal Original_eza_DV1VerbungenheitEinzelheiten As String, _ ByVal Original_eza_DV1EinschraenkungenKz As String, _ ByVal Original_eza_DV1BedingungenLeistungenKz As String, _ ByVal Original_eza_DV1BedingungenLeistungenArt As String, _ ByVal Original_eza_DV1LizenzgebuehrenKz As String, _ ByVal Original_eza_DV1LizenzgebuehrenUmstand As String, _ ByVal Original_eza_DV1SpezielleVereinbarungKz As String, _ ByVal Original_eza_DV1SpezielleVereinbarungUmstand As String, _ ByVal Original_eza_ZusatzangabenAnmeldung As String, _ ByVal Original_eza_KzAutoBestaetigung As String, _ ByVal Original_eza_AnschreibungDatum As Global.System.Nullable(Of Date), _ ByVal Original_eza_Eingangszollstelle As String, _ ByVal Original_eza_Zahlungsart As String, _ ByVal Original_eza_ContainerNr1 As String, _ ByVal Original_eza_ContainerNr2 As String, _ ByVal Original_eza_ContainerNr3 As String, _ ByVal Original_eza_ContainerNr4 As String, _ ByVal Original_eza_ContainerNr5 As String, _ ByVal Original_eza_ContainerNr6 As String, _ ByVal Original_eza_ContainerNr7 As String, _ ByVal Original_eza_ContainerNr8 As String, _ ByVal Original_eza_ContainerNr9 As String, _ ByVal Original_eza_BeendigungsanteilArtCode As String, _ ByVal Original_eza_BewilligungsIDZLAVUV As String, _ ByVal Original_eza_BezugsnummerBEAnteilZL As String, _ ByVal Original_eza_UstIdAnmelder As String, _ ByVal Original_eza_FinanzamtAnmelder As String, _ ByVal Original_eza_Anmeldedatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_eza_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_eza_Status,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_eza_Status_KEWILL_Equivalent,Integer) If (Original_eza_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_eza_dyaArt") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_eza_dyaArt,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_eza_dyaAnmID,Integer) If (Original_eza_ANR 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_eza_ANR,String) End If If (Original_eza_MRN 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_eza_MRN,String) End If Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_eza_Erstellung,Date) If (Original_eza_Erstellung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_eza_Erstellung_SB.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_eza_LetzteBearbeitung,Date) If (Original_eza_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_eza_LetzteBearbeitung_SB.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_eza_firma Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_eza_firma,String) End If If (Original_eza_niederlassung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_eza_niederlassung,String) End If If (Original_eza_Trans_Partner Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_eza_Trans_Partner,String) End If If (Original_eza_Trans_Div1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_eza_Trans_Div1,String) End If If (Original_eza_Trans_Div2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_eza_Trans_Div2,String) End If If (Original_eza_Trans_Div3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_eza_Trans_Div3,String) End If If (Original_eza_Trans_Referenz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_eza_Trans_Referenz,String) End If If (Original_eza_Trans_DatumZeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_eza_Trans_DatumZeit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_eza_Trans_Version.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_eza_Trans_Version.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_eza_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_eza_NachrichtenSenderTIN,String) End If If (Original_eza_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_eza_NachrichtenSenderNLNR,String) End If If (Original_eza_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_eza_NachrichtenempfaengerDST,String) End If If (Original_eza_ObjectName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_eza_ObjectName,String) End If If (Original_eza_ObjectAlias Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_eza_ObjectAlias,String) End If If (Original_eza_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_eza_BezugsnummerVorblendung,String) End If If (Original_eza_Bearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_eza_Bearbeiter,String) End If If (Original_eza_AnmeldungArt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_eza_AnmeldungArt,String) End If If (Original_eza_CompliancePruefung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_eza_CompliancePruefung,String) End If If (Original_eza_AnfBemerkungStatusanzeige Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_eza_AnfBemerkungStatusanzeige,String) End If If (Original_eza_AdressierteZollstelle Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_eza_AdressierteZollstelle,String) End If If (Original_eza_AnmelderistEmpfaenger Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_eza_AnmelderistEmpfaenger,String) End If If (Original_eza_VertretungsVerhaeltnisCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_eza_VertretungsVerhaeltnisCode,String) End If If (Original_eza_Vorsteuerabzug Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_eza_Vorsteuerabzug,String) End If If (Original_eza_AnmeldenderBearbeiterName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_eza_AnmeldenderBearbeiterName,String) End If If (Original_eza_AnmeldenderBearbeiterTel Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_eza_AnmeldenderBearbeiterTel,String) End If If (Original_eza_AnmeldenderBearbeiterStellung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_eza_AnmeldenderBearbeiterStellung,String) End If If (Original_eza_AnmeldenderBearbeiterEMail Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_eza_AnmeldenderBearbeiterEMail,String) End If If (Original_eza_FiskalvertretungKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_eza_FiskalvertretungKz,String) End If If (Original_eza_Ausstellungsort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_eza_Ausstellungsort,String) End If If (Original_eza_ZollrechtlicherStatus Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_eza_ZollrechtlicherStatus,String) End If If (Original_eza_GesamtRohmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_eza_GesamtRohmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (Original_eza_VerfahrenBeantragtCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_eza_VerfahrenBeantragtCode,String) End If If (Original_eza_VerkehrszweigInland Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_eza_VerkehrszweigInland,String) End If If (Original_eza_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_eza_VerkehrszweigGrenze,String) End If If (Original_eza_VersendungsLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_eza_VersendungsLandCode,String) End If If (Original_eza_Bestimmungsbundesland Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_eza_Bestimmungsbundesland,String) End If If (Original_eza_Bestimmungsland Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_eza_Bestimmungsland,String) End If If (Original_eza_KennzeichenNameBefoerderungsmittelAnkunft Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_eza_KennzeichenNameBefoerderungsmittelAnkunft,String) End If If (Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode,String) End If If (Original_eza_BeförderungsmittelGrenzeArt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = CType(Original_eza_BeförderungsmittelGrenzeArt,String) End If If (Original_eza_BeförderungsmittelGrenze Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = CType(Original_eza_BeförderungsmittelGrenze,String) End If If (Original_eza_LieferbedingungCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = CType(Original_eza_LieferbedingungCode,String) End If If (Original_eza_LieferbedingungText Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = CType(Original_eza_LieferbedingungText,String) End If If (Original_eza_LieferbedingungSchluessel Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(102).Value = CType(Original_eza_LieferbedingungSchluessel,String) End If If (Original_eza_LieferbedingungOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(104).Value = CType(Original_eza_LieferbedingungOrt,String) End If If (Original_eza_VorpapierArtCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(106).Value = CType(Original_eza_VorpapierArtCode,String) End If If (Original_eza_VorpapierNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(108).Value = CType(Original_eza_VorpapierNr,String) End If If (Original_eza_ArtGeschaeftCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(110).Value = CType(Original_eza_ArtGeschaeftCode,String) End If If (Original_eza_Statistikstatus Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(112).Value = CType(Original_eza_Statistikstatus,String) End If If (Original_eza_Warenort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(114).Value = CType(Original_eza_Warenort,String) End If If (Original_eza_Rechnungspreis.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(116).Value = CType(Original_eza_Rechnungspreis.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(116).Value = Global.System.DBNull.Value End If If (Original_eza_Rechnungswaehrung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(118).Value = CType(Original_eza_Rechnungswaehrung,String) End If If (Original_eza_DV1Kz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(120).Value = CType(Original_eza_DV1Kz,String) End If If (Original_eza_DV1Vertretungsverhaeltnis Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(122).Value = CType(Original_eza_DV1Vertretungsverhaeltnis,String) End If If (Original_eza_DV1FruehereEntscheidungen Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(123).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(123).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(124).Value = CType(Original_eza_DV1FruehereEntscheidungen,String) End If If (Original_eza_DV1Verbundenheit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(125).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(125).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(126).Value = CType(Original_eza_DV1Verbundenheit,String) End If If (Original_eza_DV1VerbungenheitEinzelheiten Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(127).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(127).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(128).Value = CType(Original_eza_DV1VerbungenheitEinzelheiten,String) End If If (Original_eza_DV1EinschraenkungenKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(129).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(129).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(130).Value = CType(Original_eza_DV1EinschraenkungenKz,String) End If If (Original_eza_DV1BedingungenLeistungenKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(131).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(131).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(132).Value = CType(Original_eza_DV1BedingungenLeistungenKz,String) End If If (Original_eza_DV1BedingungenLeistungenArt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(133).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(133).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(134).Value = CType(Original_eza_DV1BedingungenLeistungenArt,String) End If If (Original_eza_DV1LizenzgebuehrenKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(135).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(135).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(136).Value = CType(Original_eza_DV1LizenzgebuehrenKz,String) End If If (Original_eza_DV1LizenzgebuehrenUmstand Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(137).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(137).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(138).Value = CType(Original_eza_DV1LizenzgebuehrenUmstand,String) End If If (Original_eza_DV1SpezielleVereinbarungKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(140).Value = CType(Original_eza_DV1SpezielleVereinbarungKz,String) End If If (Original_eza_DV1SpezielleVereinbarungUmstand Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = CType(Original_eza_DV1SpezielleVereinbarungUmstand,String) End If If (Original_eza_ZusatzangabenAnmeldung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(144).Value = CType(Original_eza_ZusatzangabenAnmeldung,String) End If If (Original_eza_KzAutoBestaetigung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(146).Value = CType(Original_eza_KzAutoBestaetigung,String) End If If (Original_eza_AnschreibungDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(148).Value = CType(Original_eza_AnschreibungDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(148).Value = Global.System.DBNull.Value End If If (Original_eza_Eingangszollstelle Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(150).Value = CType(Original_eza_Eingangszollstelle,String) End If If (Original_eza_Zahlungsart Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(152).Value = CType(Original_eza_Zahlungsart,String) End If If (Original_eza_ContainerNr1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(154).Value = CType(Original_eza_ContainerNr1,String) End If If (Original_eza_ContainerNr2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(156).Value = CType(Original_eza_ContainerNr2,String) End If If (Original_eza_ContainerNr3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(158).Value = CType(Original_eza_ContainerNr3,String) End If If (Original_eza_ContainerNr4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(159).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(159).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(160).Value = CType(Original_eza_ContainerNr4,String) End If If (Original_eza_ContainerNr5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(162).Value = CType(Original_eza_ContainerNr5,String) End If If (Original_eza_ContainerNr6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(164).Value = CType(Original_eza_ContainerNr6,String) End If If (Original_eza_ContainerNr7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(166).Value = CType(Original_eza_ContainerNr7,String) End If If (Original_eza_ContainerNr8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(168).Value = CType(Original_eza_ContainerNr8,String) End If If (Original_eza_ContainerNr9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(170).Value = CType(Original_eza_ContainerNr9,String) End If If (Original_eza_BeendigungsanteilArtCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(172).Value = CType(Original_eza_BeendigungsanteilArtCode,String) End If If (Original_eza_BewilligungsIDZLAVUV Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(174).Value = CType(Original_eza_BewilligungsIDZLAVUV,String) End If If (Original_eza_BezugsnummerBEAnteilZL Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(176).Value = CType(Original_eza_BezugsnummerBEAnteilZL,String) End If If (Original_eza_UstIdAnmelder Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(178).Value = CType(Original_eza_UstIdAnmelder,String) End If If (Original_eza_FinanzamtAnmelder Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(180).Value = CType(Original_eza_FinanzamtAnmelder,String) End If If (Original_eza_Anmeldedatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(182).Value = CType(Original_eza_Anmeldedatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(182).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 eza_Status As Integer, _ ByVal eza_Status_KEWILL_Equivalent As Integer, _ ByVal eza_dyaArt As String, _ ByVal eza_dyaAnmID As Integer, _ ByVal eza_ANR As String, _ ByVal eza_MRN As String, _ ByVal eza_Erstellung As Date, _ ByVal eza_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal eza_LetzteBearbeitung As Date, _ ByVal eza_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal eza_firma As String, _ ByVal eza_niederlassung As String, _ ByVal eza_Trans_Partner As String, _ ByVal eza_Trans_Div1 As String, _ ByVal eza_Trans_Div2 As String, _ ByVal eza_Trans_Div3 As String, _ ByVal eza_Trans_Referenz As String, _ ByVal eza_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal eza_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal eza_NachrichtenSenderTIN As String, _ ByVal eza_NachrichtenSenderNLNR As String, _ ByVal eza_NachrichtenempfaengerDST As String, _ ByVal eza_ObjectName As String, _ ByVal eza_ObjectAlias As String, _ ByVal eza_BezugsnummerVorblendung As String, _ ByVal eza_Bearbeiter As String, _ ByVal eza_AnmeldungArt As String, _ ByVal eza_CompliancePruefung As String, _ ByVal eza_AnfBemerkungStatusanzeige As String, _ ByVal eza_AdressierteZollstelle As String, _ ByVal eza_AnmelderistEmpfaenger As String, _ ByVal eza_VertretungsVerhaeltnisCode As String, _ ByVal eza_Vorsteuerabzug As String, _ ByVal eza_AnmeldenderBearbeiterName As String, _ ByVal eza_AnmeldenderBearbeiterTel As String, _ ByVal eza_AnmeldenderBearbeiterStellung As String, _ ByVal eza_AnmeldenderBearbeiterEMail As String, _ ByVal eza_FiskalvertretungKz As String, _ ByVal eza_Ausstellungsort As String, _ ByVal eza_ZollrechtlicherStatus As String, _ ByVal eza_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal eza_VerfahrenBeantragtCode As String, _ ByVal eza_VerkehrszweigInland As String, _ ByVal eza_VerkehrszweigGrenze As String, _ ByVal eza_VersendungsLandCode As String, _ ByVal eza_Bestimmungsbundesland As String, _ ByVal eza_Bestimmungsland As String, _ ByVal eza_KennzeichenNameBefoerderungsmittelAnkunft As String, _ ByVal eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode As String, _ ByVal eza_BeförderungsmittelGrenzeArt As String, _ ByVal eza_BeförderungsmittelGrenze As String, _ ByVal eza_LieferbedingungCode As String, _ ByVal eza_LieferbedingungText As String, _ ByVal eza_LieferbedingungSchluessel As String, _ ByVal eza_LieferbedingungOrt As String, _ ByVal eza_VorpapierArtCode As String, _ ByVal eza_VorpapierNr As String, _ ByVal eza_ArtGeschaeftCode As String, _ ByVal eza_Statistikstatus As String, _ ByVal eza_Warenort As String, _ ByVal eza_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal eza_Rechnungswaehrung As String, _ ByVal eza_DV1Kz As String, _ ByVal eza_DV1Vertretungsverhaeltnis As String, _ ByVal eza_DV1FruehereEntscheidungen As String, _ ByVal eza_DV1Verbundenheit As String, _ ByVal eza_DV1VerbungenheitEinzelheiten As String, _ ByVal eza_DV1EinschraenkungenKz As String, _ ByVal eza_DV1BedingungenLeistungenKz As String, _ ByVal eza_DV1BedingungenLeistungenArt As String, _ ByVal eza_DV1LizenzgebuehrenKz As String, _ ByVal eza_DV1LizenzgebuehrenUmstand As String, _ ByVal eza_DV1SpezielleVereinbarungKz As String, _ ByVal eza_DV1SpezielleVereinbarungUmstand As String, _ ByVal eza_ZusatzangabenAnmeldung As String, _ ByVal eza_KzAutoBestaetigung As String, _ ByVal eza_AnschreibungDatum As Global.System.Nullable(Of Date), _ ByVal eza_Eingangszollstelle As String, _ ByVal eza_Zahlungsart As String, _ ByVal eza_ContainerNr1 As String, _ ByVal eza_ContainerNr2 As String, _ ByVal eza_ContainerNr3 As String, _ ByVal eza_ContainerNr4 As String, _ ByVal eza_ContainerNr5 As String, _ ByVal eza_ContainerNr6 As String, _ ByVal eza_ContainerNr7 As String, _ ByVal eza_ContainerNr8 As String, _ ByVal eza_ContainerNr9 As String, _ ByVal eza_BeendigungsanteilArtCode As String, _ ByVal eza_BewilligungsIDZLAVUV As String, _ ByVal eza_BezugsnummerBEAnteilZL As String, _ ByVal eza_UstIdAnmelder As String, _ ByVal eza_FinanzamtAnmelder As String, _ ByVal eza_Anmeldedatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(eza_Status,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(eza_Status_KEWILL_Equivalent,Integer) If (eza_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("eza_dyaArt") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(eza_dyaArt,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(eza_dyaAnmID,Integer) If (eza_ANR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(eza_ANR,String) End If If (eza_MRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(eza_MRN,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(eza_Erstellung,Date) If (eza_Erstellung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(eza_Erstellung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(eza_LetzteBearbeitung,Date) If (eza_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(eza_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (eza_firma Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(eza_firma,String) End If If (eza_niederlassung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(eza_niederlassung,String) End If If (eza_Trans_Partner Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(eza_Trans_Partner,String) End If If (eza_Trans_Div1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(eza_Trans_Div1,String) End If If (eza_Trans_Div2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(eza_Trans_Div2,String) End If If (eza_Trans_Div3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(eza_Trans_Div3,String) End If If (eza_Trans_Referenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(eza_Trans_Referenz,String) End If If (eza_Trans_DatumZeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(eza_Trans_DatumZeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (eza_Trans_Version.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(eza_Trans_Version.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (eza_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(eza_NachrichtenSenderTIN,String) End If If (eza_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(eza_NachrichtenSenderNLNR,String) End If If (eza_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(eza_NachrichtenempfaengerDST,String) End If If (eza_ObjectName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(eza_ObjectName,String) End If If (eza_ObjectAlias Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(eza_ObjectAlias,String) End If If (eza_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(eza_BezugsnummerVorblendung,String) End If If (eza_Bearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(eza_Bearbeiter,String) End If If (eza_AnmeldungArt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(eza_AnmeldungArt,String) End If If (eza_CompliancePruefung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(eza_CompliancePruefung,String) End If If (eza_AnfBemerkungStatusanzeige Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(eza_AnfBemerkungStatusanzeige,String) End If If (eza_AdressierteZollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(eza_AdressierteZollstelle,String) End If If (eza_AnmelderistEmpfaenger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(eza_AnmelderistEmpfaenger,String) End If If (eza_VertretungsVerhaeltnisCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(eza_VertretungsVerhaeltnisCode,String) End If If (eza_Vorsteuerabzug Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(eza_Vorsteuerabzug,String) End If If (eza_AnmeldenderBearbeiterName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(eza_AnmeldenderBearbeiterName,String) End If If (eza_AnmeldenderBearbeiterTel Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(eza_AnmeldenderBearbeiterTel,String) End If If (eza_AnmeldenderBearbeiterStellung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(eza_AnmeldenderBearbeiterStellung,String) End If If (eza_AnmeldenderBearbeiterEMail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(eza_AnmeldenderBearbeiterEMail,String) End If If (eza_FiskalvertretungKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(eza_FiskalvertretungKz,String) End If If (eza_Ausstellungsort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(eza_Ausstellungsort,String) End If If (eza_ZollrechtlicherStatus Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(eza_ZollrechtlicherStatus,String) End If If (eza_GesamtRohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(eza_GesamtRohmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (eza_VerfahrenBeantragtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(eza_VerfahrenBeantragtCode,String) End If If (eza_VerkehrszweigInland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(eza_VerkehrszweigInland,String) End If If (eza_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(eza_VerkehrszweigGrenze,String) End If If (eza_VersendungsLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(eza_VersendungsLandCode,String) End If If (eza_Bestimmungsbundesland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(eza_Bestimmungsbundesland,String) End If If (eza_Bestimmungsland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(eza_Bestimmungsland,String) End If If (eza_KennzeichenNameBefoerderungsmittelAnkunft Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(eza_KennzeichenNameBefoerderungsmittelAnkunft,String) End If If (eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode,String) End If If (eza_BeförderungsmittelGrenzeArt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(eza_BeförderungsmittelGrenzeArt,String) End If If (eza_BeförderungsmittelGrenze Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(eza_BeförderungsmittelGrenze,String) End If If (eza_LieferbedingungCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(eza_LieferbedingungCode,String) End If If (eza_LieferbedingungText Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(eza_LieferbedingungText,String) End If If (eza_LieferbedingungSchluessel Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(eza_LieferbedingungSchluessel,String) End If If (eza_LieferbedingungOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(eza_LieferbedingungOrt,String) End If If (eza_VorpapierArtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(eza_VorpapierArtCode,String) End If If (eza_VorpapierNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(eza_VorpapierNr,String) End If If (eza_ArtGeschaeftCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(eza_ArtGeschaeftCode,String) End If If (eza_Statistikstatus Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(eza_Statistikstatus,String) End If If (eza_Warenort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(eza_Warenort,String) End If If (eza_Rechnungspreis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(60).Value = CType(eza_Rechnungspreis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (eza_Rechnungswaehrung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(eza_Rechnungswaehrung,String) End If If (eza_DV1Kz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(eza_DV1Kz,String) End If If (eza_DV1Vertretungsverhaeltnis Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(eza_DV1Vertretungsverhaeltnis,String) End If If (eza_DV1FruehereEntscheidungen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(eza_DV1FruehereEntscheidungen,String) End If If (eza_DV1Verbundenheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(eza_DV1Verbundenheit,String) End If If (eza_DV1VerbungenheitEinzelheiten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(eza_DV1VerbungenheitEinzelheiten,String) End If If (eza_DV1EinschraenkungenKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(eza_DV1EinschraenkungenKz,String) End If If (eza_DV1BedingungenLeistungenKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(eza_DV1BedingungenLeistungenKz,String) End If If (eza_DV1BedingungenLeistungenArt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(eza_DV1BedingungenLeistungenArt,String) End If If (eza_DV1LizenzgebuehrenKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(eza_DV1LizenzgebuehrenKz,String) End If If (eza_DV1LizenzgebuehrenUmstand Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(eza_DV1LizenzgebuehrenUmstand,String) End If If (eza_DV1SpezielleVereinbarungKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(eza_DV1SpezielleVereinbarungKz,String) End If If (eza_DV1SpezielleVereinbarungUmstand Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(eza_DV1SpezielleVereinbarungUmstand,String) End If If (eza_ZusatzangabenAnmeldung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(eza_ZusatzangabenAnmeldung,String) End If If (eza_KzAutoBestaetigung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(eza_KzAutoBestaetigung,String) End If If (eza_AnschreibungDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(76).Value = CType(eza_AnschreibungDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (eza_Eingangszollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(eza_Eingangszollstelle,String) End If If (eza_Zahlungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(78).Value = CType(eza_Zahlungsart,String) End If If (eza_ContainerNr1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(eza_ContainerNr1,String) End If If (eza_ContainerNr2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(eza_ContainerNr2,String) End If If (eza_ContainerNr3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(eza_ContainerNr3,String) End If If (eza_ContainerNr4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(eza_ContainerNr4,String) End If If (eza_ContainerNr5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(eza_ContainerNr5,String) End If If (eza_ContainerNr6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(eza_ContainerNr6,String) End If If (eza_ContainerNr7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(eza_ContainerNr7,String) End If If (eza_ContainerNr8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(eza_ContainerNr8,String) End If If (eza_ContainerNr9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(eza_ContainerNr9,String) End If If (eza_BeendigungsanteilArtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(88).Value = CType(eza_BeendigungsanteilArtCode,String) End If If (eza_BewilligungsIDZLAVUV Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(eza_BewilligungsIDZLAVUV,String) End If If (eza_BezugsnummerBEAnteilZL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(eza_BezugsnummerBEAnteilZL,String) End If If (eza_UstIdAnmelder Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(eza_UstIdAnmelder,String) End If If (eza_FinanzamtAnmelder Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(eza_FinanzamtAnmelder,String) End If If (eza_Anmeldedatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(93).Value = CType(eza_Anmeldedatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(93).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 eza_Status As Integer, _ ByVal eza_Status_KEWILL_Equivalent As Integer, _ ByVal eza_dyaArt As String, _ ByVal eza_dyaAnmID As Integer, _ ByVal eza_ANR As String, _ ByVal eza_MRN As String, _ ByVal eza_Erstellung As Date, _ ByVal eza_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal eza_LetzteBearbeitung As Date, _ ByVal eza_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal eza_firma As String, _ ByVal eza_niederlassung As String, _ ByVal eza_Trans_Partner As String, _ ByVal eza_Trans_Div1 As String, _ ByVal eza_Trans_Div2 As String, _ ByVal eza_Trans_Div3 As String, _ ByVal eza_Trans_Referenz As String, _ ByVal eza_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal eza_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal eza_NachrichtenSenderTIN As String, _ ByVal eza_NachrichtenSenderNLNR As String, _ ByVal eza_NachrichtenempfaengerDST As String, _ ByVal eza_ObjectName As String, _ ByVal eza_ObjectAlias As String, _ ByVal eza_BezugsnummerVorblendung As String, _ ByVal eza_Bearbeiter As String, _ ByVal eza_AnmeldungArt As String, _ ByVal eza_CompliancePruefung As String, _ ByVal eza_AnfBemerkungStatusanzeige As String, _ ByVal eza_AdressierteZollstelle As String, _ ByVal eza_AnmelderistEmpfaenger As String, _ ByVal eza_VertretungsVerhaeltnisCode As String, _ ByVal eza_Vorsteuerabzug As String, _ ByVal eza_AnmeldenderBearbeiterName As String, _ ByVal eza_AnmeldenderBearbeiterTel As String, _ ByVal eza_AnmeldenderBearbeiterStellung As String, _ ByVal eza_AnmeldenderBearbeiterEMail As String, _ ByVal eza_FiskalvertretungKz As String, _ ByVal eza_Ausstellungsort As String, _ ByVal eza_ZollrechtlicherStatus As String, _ ByVal eza_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal eza_VerfahrenBeantragtCode As String, _ ByVal eza_VerkehrszweigInland As String, _ ByVal eza_VerkehrszweigGrenze As String, _ ByVal eza_VersendungsLandCode As String, _ ByVal eza_Bestimmungsbundesland As String, _ ByVal eza_Bestimmungsland As String, _ ByVal eza_KennzeichenNameBefoerderungsmittelAnkunft As String, _ ByVal eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode As String, _ ByVal eza_BeförderungsmittelGrenzeArt As String, _ ByVal eza_BeförderungsmittelGrenze As String, _ ByVal eza_LieferbedingungCode As String, _ ByVal eza_LieferbedingungText As String, _ ByVal eza_LieferbedingungSchluessel As String, _ ByVal eza_LieferbedingungOrt As String, _ ByVal eza_VorpapierArtCode As String, _ ByVal eza_VorpapierNr As String, _ ByVal eza_ArtGeschaeftCode As String, _ ByVal eza_Statistikstatus As String, _ ByVal eza_Warenort As String, _ ByVal eza_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal eza_Rechnungswaehrung As String, _ ByVal eza_DV1Kz As String, _ ByVal eza_DV1Vertretungsverhaeltnis As String, _ ByVal eza_DV1FruehereEntscheidungen As String, _ ByVal eza_DV1Verbundenheit As String, _ ByVal eza_DV1VerbungenheitEinzelheiten As String, _ ByVal eza_DV1EinschraenkungenKz As String, _ ByVal eza_DV1BedingungenLeistungenKz As String, _ ByVal eza_DV1BedingungenLeistungenArt As String, _ ByVal eza_DV1LizenzgebuehrenKz As String, _ ByVal eza_DV1LizenzgebuehrenUmstand As String, _ ByVal eza_DV1SpezielleVereinbarungKz As String, _ ByVal eza_DV1SpezielleVereinbarungUmstand As String, _ ByVal eza_ZusatzangabenAnmeldung As String, _ ByVal eza_KzAutoBestaetigung As String, _ ByVal eza_AnschreibungDatum As Global.System.Nullable(Of Date), _ ByVal eza_Eingangszollstelle As String, _ ByVal eza_Zahlungsart As String, _ ByVal eza_ContainerNr1 As String, _ ByVal eza_ContainerNr2 As String, _ ByVal eza_ContainerNr3 As String, _ ByVal eza_ContainerNr4 As String, _ ByVal eza_ContainerNr5 As String, _ ByVal eza_ContainerNr6 As String, _ ByVal eza_ContainerNr7 As String, _ ByVal eza_ContainerNr8 As String, _ ByVal eza_ContainerNr9 As String, _ ByVal eza_BeendigungsanteilArtCode As String, _ ByVal eza_BewilligungsIDZLAVUV As String, _ ByVal eza_BezugsnummerBEAnteilZL As String, _ ByVal eza_UstIdAnmelder As String, _ ByVal eza_FinanzamtAnmelder As String, _ ByVal eza_Anmeldedatum As Global.System.Nullable(Of Date), _ ByVal Original_eza_Id As Integer, _ ByVal Original_eza_Status As Integer, _ ByVal Original_eza_Status_KEWILL_Equivalent As Integer, _ ByVal Original_eza_dyaArt As String, _ ByVal Original_eza_dyaAnmID As Integer, _ ByVal Original_eza_ANR As String, _ ByVal Original_eza_MRN As String, _ ByVal Original_eza_Erstellung As Date, _ ByVal Original_eza_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_eza_LetzteBearbeitung As Date, _ ByVal Original_eza_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_eza_firma As String, _ ByVal Original_eza_niederlassung As String, _ ByVal Original_eza_Trans_Partner As String, _ ByVal Original_eza_Trans_Div1 As String, _ ByVal Original_eza_Trans_Div2 As String, _ ByVal Original_eza_Trans_Div3 As String, _ ByVal Original_eza_Trans_Referenz As String, _ ByVal Original_eza_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_eza_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_eza_NachrichtenSenderTIN As String, _ ByVal Original_eza_NachrichtenSenderNLNR As String, _ ByVal Original_eza_NachrichtenempfaengerDST As String, _ ByVal Original_eza_ObjectName As String, _ ByVal Original_eza_ObjectAlias As String, _ ByVal Original_eza_BezugsnummerVorblendung As String, _ ByVal Original_eza_Bearbeiter As String, _ ByVal Original_eza_AnmeldungArt As String, _ ByVal Original_eza_CompliancePruefung As String, _ ByVal Original_eza_AnfBemerkungStatusanzeige As String, _ ByVal Original_eza_AdressierteZollstelle As String, _ ByVal Original_eza_AnmelderistEmpfaenger As String, _ ByVal Original_eza_VertretungsVerhaeltnisCode As String, _ ByVal Original_eza_Vorsteuerabzug As String, _ ByVal Original_eza_AnmeldenderBearbeiterName As String, _ ByVal Original_eza_AnmeldenderBearbeiterTel As String, _ ByVal Original_eza_AnmeldenderBearbeiterStellung As String, _ ByVal Original_eza_AnmeldenderBearbeiterEMail As String, _ ByVal Original_eza_FiskalvertretungKz As String, _ ByVal Original_eza_Ausstellungsort As String, _ ByVal Original_eza_ZollrechtlicherStatus As String, _ ByVal Original_eza_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_eza_VerfahrenBeantragtCode As String, _ ByVal Original_eza_VerkehrszweigInland As String, _ ByVal Original_eza_VerkehrszweigGrenze As String, _ ByVal Original_eza_VersendungsLandCode As String, _ ByVal Original_eza_Bestimmungsbundesland As String, _ ByVal Original_eza_Bestimmungsland As String, _ ByVal Original_eza_KennzeichenNameBefoerderungsmittelAnkunft As String, _ ByVal Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode As String, _ ByVal Original_eza_BeförderungsmittelGrenzeArt As String, _ ByVal Original_eza_BeförderungsmittelGrenze As String, _ ByVal Original_eza_LieferbedingungCode As String, _ ByVal Original_eza_LieferbedingungText As String, _ ByVal Original_eza_LieferbedingungSchluessel As String, _ ByVal Original_eza_LieferbedingungOrt As String, _ ByVal Original_eza_VorpapierArtCode As String, _ ByVal Original_eza_VorpapierNr As String, _ ByVal Original_eza_ArtGeschaeftCode As String, _ ByVal Original_eza_Statistikstatus As String, _ ByVal Original_eza_Warenort As String, _ ByVal Original_eza_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal Original_eza_Rechnungswaehrung As String, _ ByVal Original_eza_DV1Kz As String, _ ByVal Original_eza_DV1Vertretungsverhaeltnis As String, _ ByVal Original_eza_DV1FruehereEntscheidungen As String, _ ByVal Original_eza_DV1Verbundenheit As String, _ ByVal Original_eza_DV1VerbungenheitEinzelheiten As String, _ ByVal Original_eza_DV1EinschraenkungenKz As String, _ ByVal Original_eza_DV1BedingungenLeistungenKz As String, _ ByVal Original_eza_DV1BedingungenLeistungenArt As String, _ ByVal Original_eza_DV1LizenzgebuehrenKz As String, _ ByVal Original_eza_DV1LizenzgebuehrenUmstand As String, _ ByVal Original_eza_DV1SpezielleVereinbarungKz As String, _ ByVal Original_eza_DV1SpezielleVereinbarungUmstand As String, _ ByVal Original_eza_ZusatzangabenAnmeldung As String, _ ByVal Original_eza_KzAutoBestaetigung As String, _ ByVal Original_eza_AnschreibungDatum As Global.System.Nullable(Of Date), _ ByVal Original_eza_Eingangszollstelle As String, _ ByVal Original_eza_Zahlungsart As String, _ ByVal Original_eza_ContainerNr1 As String, _ ByVal Original_eza_ContainerNr2 As String, _ ByVal Original_eza_ContainerNr3 As String, _ ByVal Original_eza_ContainerNr4 As String, _ ByVal Original_eza_ContainerNr5 As String, _ ByVal Original_eza_ContainerNr6 As String, _ ByVal Original_eza_ContainerNr7 As String, _ ByVal Original_eza_ContainerNr8 As String, _ ByVal Original_eza_ContainerNr9 As String, _ ByVal Original_eza_BeendigungsanteilArtCode As String, _ ByVal Original_eza_BewilligungsIDZLAVUV As String, _ ByVal Original_eza_BezugsnummerBEAnteilZL As String, _ ByVal Original_eza_UstIdAnmelder As String, _ ByVal Original_eza_FinanzamtAnmelder As String, _ ByVal Original_eza_Anmeldedatum As Global.System.Nullable(Of Date), _ ByVal eza_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(eza_Status,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(eza_Status_KEWILL_Equivalent,Integer) If (eza_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("eza_dyaArt") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(eza_dyaArt,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(eza_dyaAnmID,Integer) If (eza_ANR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(eza_ANR,String) End If If (eza_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(eza_MRN,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(eza_Erstellung,Date) If (eza_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(eza_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(eza_LetzteBearbeitung,Date) If (eza_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(eza_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (eza_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(eza_firma,String) End If If (eza_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(eza_niederlassung,String) End If If (eza_Trans_Partner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(eza_Trans_Partner,String) End If If (eza_Trans_Div1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(eza_Trans_Div1,String) End If If (eza_Trans_Div2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(eza_Trans_Div2,String) End If If (eza_Trans_Div3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(eza_Trans_Div3,String) End If If (eza_Trans_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(eza_Trans_Referenz,String) End If If (eza_Trans_DatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(eza_Trans_DatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (eza_Trans_Version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(eza_Trans_Version.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (eza_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(eza_NachrichtenSenderTIN,String) End If If (eza_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(eza_NachrichtenSenderNLNR,String) End If If (eza_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(eza_NachrichtenempfaengerDST,String) End If If (eza_ObjectName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(eza_ObjectName,String) End If If (eza_ObjectAlias Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(eza_ObjectAlias,String) End If If (eza_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(eza_BezugsnummerVorblendung,String) End If If (eza_Bearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(eza_Bearbeiter,String) End If If (eza_AnmeldungArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(eza_AnmeldungArt,String) End If If (eza_CompliancePruefung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(eza_CompliancePruefung,String) End If If (eza_AnfBemerkungStatusanzeige Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(eza_AnfBemerkungStatusanzeige,String) End If If (eza_AdressierteZollstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(eza_AdressierteZollstelle,String) End If If (eza_AnmelderistEmpfaenger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(eza_AnmelderistEmpfaenger,String) End If If (eza_VertretungsVerhaeltnisCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(eza_VertretungsVerhaeltnisCode,String) End If If (eza_Vorsteuerabzug Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(eza_Vorsteuerabzug,String) End If If (eza_AnmeldenderBearbeiterName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(eza_AnmeldenderBearbeiterName,String) End If If (eza_AnmeldenderBearbeiterTel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(eza_AnmeldenderBearbeiterTel,String) End If If (eza_AnmeldenderBearbeiterStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(eza_AnmeldenderBearbeiterStellung,String) End If If (eza_AnmeldenderBearbeiterEMail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(eza_AnmeldenderBearbeiterEMail,String) End If If (eza_FiskalvertretungKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(eza_FiskalvertretungKz,String) End If If (eza_Ausstellungsort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(eza_Ausstellungsort,String) End If If (eza_ZollrechtlicherStatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(eza_ZollrechtlicherStatus,String) End If If (eza_GesamtRohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(eza_GesamtRohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (eza_VerfahrenBeantragtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(eza_VerfahrenBeantragtCode,String) End If If (eza_VerkehrszweigInland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(eza_VerkehrszweigInland,String) End If If (eza_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(eza_VerkehrszweigGrenze,String) End If If (eza_VersendungsLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(eza_VersendungsLandCode,String) End If If (eza_Bestimmungsbundesland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(eza_Bestimmungsbundesland,String) End If If (eza_Bestimmungsland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(eza_Bestimmungsland,String) End If If (eza_KennzeichenNameBefoerderungsmittelAnkunft Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(eza_KennzeichenNameBefoerderungsmittelAnkunft,String) End If If (eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode,String) End If If (eza_BeförderungsmittelGrenzeArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(eza_BeförderungsmittelGrenzeArt,String) End If If (eza_BeförderungsmittelGrenze Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(eza_BeförderungsmittelGrenze,String) End If If (eza_LieferbedingungCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(eza_LieferbedingungCode,String) End If If (eza_LieferbedingungText Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(eza_LieferbedingungText,String) End If If (eza_LieferbedingungSchluessel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(eza_LieferbedingungSchluessel,String) End If If (eza_LieferbedingungOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(eza_LieferbedingungOrt,String) End If If (eza_VorpapierArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(eza_VorpapierArtCode,String) End If If (eza_VorpapierNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(eza_VorpapierNr,String) End If If (eza_ArtGeschaeftCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(eza_ArtGeschaeftCode,String) End If If (eza_Statistikstatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(eza_Statistikstatus,String) End If If (eza_Warenort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(eza_Warenort,String) End If If (eza_Rechnungspreis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(eza_Rechnungspreis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (eza_Rechnungswaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(eza_Rechnungswaehrung,String) End If If (eza_DV1Kz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(eza_DV1Kz,String) End If If (eza_DV1Vertretungsverhaeltnis Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(eza_DV1Vertretungsverhaeltnis,String) End If If (eza_DV1FruehereEntscheidungen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(eza_DV1FruehereEntscheidungen,String) End If If (eza_DV1Verbundenheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(eza_DV1Verbundenheit,String) End If If (eza_DV1VerbungenheitEinzelheiten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(eza_DV1VerbungenheitEinzelheiten,String) End If If (eza_DV1EinschraenkungenKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(eza_DV1EinschraenkungenKz,String) End If If (eza_DV1BedingungenLeistungenKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(eza_DV1BedingungenLeistungenKz,String) End If If (eza_DV1BedingungenLeistungenArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(eza_DV1BedingungenLeistungenArt,String) End If If (eza_DV1LizenzgebuehrenKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(eza_DV1LizenzgebuehrenKz,String) End If If (eza_DV1LizenzgebuehrenUmstand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(eza_DV1LizenzgebuehrenUmstand,String) End If If (eza_DV1SpezielleVereinbarungKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(eza_DV1SpezielleVereinbarungKz,String) End If If (eza_DV1SpezielleVereinbarungUmstand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(eza_DV1SpezielleVereinbarungUmstand,String) End If If (eza_ZusatzangabenAnmeldung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(eza_ZusatzangabenAnmeldung,String) End If If (eza_KzAutoBestaetigung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(eza_KzAutoBestaetigung,String) End If If (eza_AnschreibungDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(eza_AnschreibungDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (eza_Eingangszollstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(eza_Eingangszollstelle,String) End If If (eza_Zahlungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(eza_Zahlungsart,String) End If If (eza_ContainerNr1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(eza_ContainerNr1,String) End If If (eza_ContainerNr2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(eza_ContainerNr2,String) End If If (eza_ContainerNr3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(eza_ContainerNr3,String) End If If (eza_ContainerNr4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(eza_ContainerNr4,String) End If If (eza_ContainerNr5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(eza_ContainerNr5,String) End If If (eza_ContainerNr6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(eza_ContainerNr6,String) End If If (eza_ContainerNr7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(eza_ContainerNr7,String) End If If (eza_ContainerNr8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(eza_ContainerNr8,String) End If If (eza_ContainerNr9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(eza_ContainerNr9,String) End If If (eza_BeendigungsanteilArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(eza_BeendigungsanteilArtCode,String) End If If (eza_BewilligungsIDZLAVUV Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(eza_BewilligungsIDZLAVUV,String) End If If (eza_BezugsnummerBEAnteilZL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(eza_BezugsnummerBEAnteilZL,String) End If If (eza_UstIdAnmelder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(eza_UstIdAnmelder,String) End If If (eza_FinanzamtAnmelder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(eza_FinanzamtAnmelder,String) End If If (eza_Anmeldedatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(93).Value = CType(eza_Anmeldedatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_eza_Id,Integer) Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_eza_Status,Integer) Me.Adapter.UpdateCommand.Parameters(96).Value = CType(Original_eza_Status_KEWILL_Equivalent,Integer) If (Original_eza_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_eza_dyaArt") Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_eza_dyaArt,String) End If Me.Adapter.UpdateCommand.Parameters(98).Value = CType(Original_eza_dyaAnmID,Integer) If (Original_eza_ANR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = CType(Original_eza_ANR,String) End If If (Original_eza_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = CType(Original_eza_MRN,String) End If Me.Adapter.UpdateCommand.Parameters(103).Value = CType(Original_eza_Erstellung,Date) If (Original_eza_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_eza_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(106).Value = CType(Original_eza_LetzteBearbeitung,Date) If (Original_eza_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = CType(Original_eza_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value End If If (Original_eza_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = CType(Original_eza_firma,String) End If If (Original_eza_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = CType(Original_eza_niederlassung,String) End If If (Original_eza_Trans_Partner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = CType(Original_eza_Trans_Partner,String) End If If (Original_eza_Trans_Div1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = CType(Original_eza_Trans_Div1,String) End If If (Original_eza_Trans_Div2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = CType(Original_eza_Trans_Div2,String) End If If (Original_eza_Trans_Div3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = CType(Original_eza_Trans_Div3,String) End If If (Original_eza_Trans_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = CType(Original_eza_Trans_Referenz,String) End If If (Original_eza_Trans_DatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(123).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(124).Value = CType(Original_eza_Trans_DatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value End If If (Original_eza_Trans_Version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(125).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(126).Value = CType(Original_eza_Trans_Version.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value End If If (Original_eza_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(128).Value = CType(Original_eza_NachrichtenSenderTIN,String) End If If (Original_eza_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(130).Value = CType(Original_eza_NachrichtenSenderNLNR,String) End If If (Original_eza_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(132).Value = CType(Original_eza_NachrichtenempfaengerDST,String) End If If (Original_eza_ObjectName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(134).Value = CType(Original_eza_ObjectName,String) End If If (Original_eza_ObjectAlias Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(136).Value = CType(Original_eza_ObjectAlias,String) End If If (Original_eza_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(138).Value = CType(Original_eza_BezugsnummerVorblendung,String) End If If (Original_eza_Bearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = CType(Original_eza_Bearbeiter,String) End If If (Original_eza_AnmeldungArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = CType(Original_eza_AnmeldungArt,String) End If If (Original_eza_CompliancePruefung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = CType(Original_eza_CompliancePruefung,String) End If If (Original_eza_AnfBemerkungStatusanzeige Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = CType(Original_eza_AnfBemerkungStatusanzeige,String) End If If (Original_eza_AdressierteZollstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = CType(Original_eza_AdressierteZollstelle,String) End If If (Original_eza_AnmelderistEmpfaenger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = CType(Original_eza_AnmelderistEmpfaenger,String) End If If (Original_eza_VertretungsVerhaeltnisCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = CType(Original_eza_VertretungsVerhaeltnisCode,String) End If If (Original_eza_Vorsteuerabzug Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = CType(Original_eza_Vorsteuerabzug,String) End If If (Original_eza_AnmeldenderBearbeiterName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = CType(Original_eza_AnmeldenderBearbeiterName,String) End If If (Original_eza_AnmeldenderBearbeiterTel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = CType(Original_eza_AnmeldenderBearbeiterTel,String) End If If (Original_eza_AnmeldenderBearbeiterStellung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(159).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(159).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(160).Value = CType(Original_eza_AnmeldenderBearbeiterStellung,String) End If If (Original_eza_AnmeldenderBearbeiterEMail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = CType(Original_eza_AnmeldenderBearbeiterEMail,String) End If If (Original_eza_FiskalvertretungKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = CType(Original_eza_FiskalvertretungKz,String) End If If (Original_eza_Ausstellungsort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = CType(Original_eza_Ausstellungsort,String) End If If (Original_eza_ZollrechtlicherStatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = CType(Original_eza_ZollrechtlicherStatus,String) End If If (Original_eza_GesamtRohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = CType(Original_eza_GesamtRohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = Global.System.DBNull.Value End If If (Original_eza_VerfahrenBeantragtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = CType(Original_eza_VerfahrenBeantragtCode,String) End If If (Original_eza_VerkehrszweigInland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_eza_VerkehrszweigInland,String) End If If (Original_eza_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_eza_VerkehrszweigGrenze,String) End If If (Original_eza_VersendungsLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = CType(Original_eza_VersendungsLandCode,String) End If If (Original_eza_Bestimmungsbundesland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = CType(Original_eza_Bestimmungsbundesland,String) End If If (Original_eza_Bestimmungsland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = CType(Original_eza_Bestimmungsland,String) End If If (Original_eza_KennzeichenNameBefoerderungsmittelAnkunft Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = CType(Original_eza_KennzeichenNameBefoerderungsmittelAnkunft,String) End If If (Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode,String) End If If (Original_eza_BeförderungsmittelGrenzeArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_eza_BeförderungsmittelGrenzeArt,String) End If If (Original_eza_BeförderungsmittelGrenze Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_eza_BeförderungsmittelGrenze,String) End If If (Original_eza_LieferbedingungCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_eza_LieferbedingungCode,String) End If If (Original_eza_LieferbedingungText Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_eza_LieferbedingungText,String) End If If (Original_eza_LieferbedingungSchluessel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_eza_LieferbedingungSchluessel,String) End If If (Original_eza_LieferbedingungOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_eza_LieferbedingungOrt,String) End If If (Original_eza_VorpapierArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_eza_VorpapierArtCode,String) End If If (Original_eza_VorpapierNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = CType(Original_eza_VorpapierNr,String) End If If (Original_eza_ArtGeschaeftCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = CType(Original_eza_ArtGeschaeftCode,String) End If If (Original_eza_Statistikstatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = CType(Original_eza_Statistikstatus,String) End If If (Original_eza_Warenort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = CType(Original_eza_Warenort,String) End If If (Original_eza_Rechnungspreis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = CType(Original_eza_Rechnungspreis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = Global.System.DBNull.Value End If If (Original_eza_Rechnungswaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = CType(Original_eza_Rechnungswaehrung,String) End If If (Original_eza_DV1Kz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = CType(Original_eza_DV1Kz,String) End If If (Original_eza_DV1Vertretungsverhaeltnis Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = CType(Original_eza_DV1Vertretungsverhaeltnis,String) End If If (Original_eza_DV1FruehereEntscheidungen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = CType(Original_eza_DV1FruehereEntscheidungen,String) End If If (Original_eza_DV1Verbundenheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = CType(Original_eza_DV1Verbundenheit,String) End If If (Original_eza_DV1VerbungenheitEinzelheiten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = CType(Original_eza_DV1VerbungenheitEinzelheiten,String) End If If (Original_eza_DV1EinschraenkungenKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = CType(Original_eza_DV1EinschraenkungenKz,String) End If If (Original_eza_DV1BedingungenLeistungenKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(225).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(225).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = CType(Original_eza_DV1BedingungenLeistungenKz,String) End If If (Original_eza_DV1BedingungenLeistungenArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(227).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(227).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = CType(Original_eza_DV1BedingungenLeistungenArt,String) End If If (Original_eza_DV1LizenzgebuehrenKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(229).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(229).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = CType(Original_eza_DV1LizenzgebuehrenKz,String) End If If (Original_eza_DV1LizenzgebuehrenUmstand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(231).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(231).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = CType(Original_eza_DV1LizenzgebuehrenUmstand,String) End If If (Original_eza_DV1SpezielleVereinbarungKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = CType(Original_eza_DV1SpezielleVereinbarungKz,String) End If If (Original_eza_DV1SpezielleVereinbarungUmstand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = CType(Original_eza_DV1SpezielleVereinbarungUmstand,String) End If If (Original_eza_ZusatzangabenAnmeldung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = CType(Original_eza_ZusatzangabenAnmeldung,String) End If If (Original_eza_KzAutoBestaetigung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = CType(Original_eza_KzAutoBestaetigung,String) End If If (Original_eza_AnschreibungDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(241).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = CType(Original_eza_AnschreibungDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(241).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = Global.System.DBNull.Value End If If (Original_eza_Eingangszollstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = CType(Original_eza_Eingangszollstelle,String) End If If (Original_eza_Zahlungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = CType(Original_eza_Zahlungsart,String) End If If (Original_eza_ContainerNr1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = CType(Original_eza_ContainerNr1,String) End If If (Original_eza_ContainerNr2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = CType(Original_eza_ContainerNr2,String) End If If (Original_eza_ContainerNr3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = CType(Original_eza_ContainerNr3,String) End If If (Original_eza_ContainerNr4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = CType(Original_eza_ContainerNr4,String) End If If (Original_eza_ContainerNr5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = CType(Original_eza_ContainerNr5,String) End If If (Original_eza_ContainerNr6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = CType(Original_eza_ContainerNr6,String) End If If (Original_eza_ContainerNr7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = CType(Original_eza_ContainerNr7,String) End If If (Original_eza_ContainerNr8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(261).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(261).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = CType(Original_eza_ContainerNr8,String) End If If (Original_eza_ContainerNr9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(263).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(263).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = CType(Original_eza_ContainerNr9,String) End If If (Original_eza_BeendigungsanteilArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(265).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(265).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = CType(Original_eza_BeendigungsanteilArtCode,String) End If If (Original_eza_BewilligungsIDZLAVUV Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(267).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(267).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = CType(Original_eza_BewilligungsIDZLAVUV,String) End If If (Original_eza_BezugsnummerBEAnteilZL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(269).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(269).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = CType(Original_eza_BezugsnummerBEAnteilZL,String) End If If (Original_eza_UstIdAnmelder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(271).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(271).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = CType(Original_eza_UstIdAnmelder,String) End If If (Original_eza_FinanzamtAnmelder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(273).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(273).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = CType(Original_eza_FinanzamtAnmelder,String) End If If (Original_eza_Anmeldedatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(275).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = CType(Original_eza_Anmeldedatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(275).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(277).Value = CType(eza_Id,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 eza_Status As Integer, _ ByVal eza_Status_KEWILL_Equivalent As Integer, _ ByVal eza_dyaArt As String, _ ByVal eza_dyaAnmID As Integer, _ ByVal eza_ANR As String, _ ByVal eza_MRN As String, _ ByVal eza_Erstellung As Date, _ ByVal eza_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal eza_LetzteBearbeitung As Date, _ ByVal eza_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal eza_firma As String, _ ByVal eza_niederlassung As String, _ ByVal eza_Trans_Partner As String, _ ByVal eza_Trans_Div1 As String, _ ByVal eza_Trans_Div2 As String, _ ByVal eza_Trans_Div3 As String, _ ByVal eza_Trans_Referenz As String, _ ByVal eza_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal eza_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal eza_NachrichtenSenderTIN As String, _ ByVal eza_NachrichtenSenderNLNR As String, _ ByVal eza_NachrichtenempfaengerDST As String, _ ByVal eza_ObjectName As String, _ ByVal eza_ObjectAlias As String, _ ByVal eza_BezugsnummerVorblendung As String, _ ByVal eza_Bearbeiter As String, _ ByVal eza_AnmeldungArt As String, _ ByVal eza_CompliancePruefung As String, _ ByVal eza_AnfBemerkungStatusanzeige As String, _ ByVal eza_AdressierteZollstelle As String, _ ByVal eza_AnmelderistEmpfaenger As String, _ ByVal eza_VertretungsVerhaeltnisCode As String, _ ByVal eza_Vorsteuerabzug As String, _ ByVal eza_AnmeldenderBearbeiterName As String, _ ByVal eza_AnmeldenderBearbeiterTel As String, _ ByVal eza_AnmeldenderBearbeiterStellung As String, _ ByVal eza_AnmeldenderBearbeiterEMail As String, _ ByVal eza_FiskalvertretungKz As String, _ ByVal eza_Ausstellungsort As String, _ ByVal eza_ZollrechtlicherStatus As String, _ ByVal eza_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal eza_VerfahrenBeantragtCode As String, _ ByVal eza_VerkehrszweigInland As String, _ ByVal eza_VerkehrszweigGrenze As String, _ ByVal eza_VersendungsLandCode As String, _ ByVal eza_Bestimmungsbundesland As String, _ ByVal eza_Bestimmungsland As String, _ ByVal eza_KennzeichenNameBefoerderungsmittelAnkunft As String, _ ByVal eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode As String, _ ByVal eza_BeförderungsmittelGrenzeArt As String, _ ByVal eza_BeförderungsmittelGrenze As String, _ ByVal eza_LieferbedingungCode As String, _ ByVal eza_LieferbedingungText As String, _ ByVal eza_LieferbedingungSchluessel As String, _ ByVal eza_LieferbedingungOrt As String, _ ByVal eza_VorpapierArtCode As String, _ ByVal eza_VorpapierNr As String, _ ByVal eza_ArtGeschaeftCode As String, _ ByVal eza_Statistikstatus As String, _ ByVal eza_Warenort As String, _ ByVal eza_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal eza_Rechnungswaehrung As String, _ ByVal eza_DV1Kz As String, _ ByVal eza_DV1Vertretungsverhaeltnis As String, _ ByVal eza_DV1FruehereEntscheidungen As String, _ ByVal eza_DV1Verbundenheit As String, _ ByVal eza_DV1VerbungenheitEinzelheiten As String, _ ByVal eza_DV1EinschraenkungenKz As String, _ ByVal eza_DV1BedingungenLeistungenKz As String, _ ByVal eza_DV1BedingungenLeistungenArt As String, _ ByVal eza_DV1LizenzgebuehrenKz As String, _ ByVal eza_DV1LizenzgebuehrenUmstand As String, _ ByVal eza_DV1SpezielleVereinbarungKz As String, _ ByVal eza_DV1SpezielleVereinbarungUmstand As String, _ ByVal eza_ZusatzangabenAnmeldung As String, _ ByVal eza_KzAutoBestaetigung As String, _ ByVal eza_AnschreibungDatum As Global.System.Nullable(Of Date), _ ByVal eza_Eingangszollstelle As String, _ ByVal eza_Zahlungsart As String, _ ByVal eza_ContainerNr1 As String, _ ByVal eza_ContainerNr2 As String, _ ByVal eza_ContainerNr3 As String, _ ByVal eza_ContainerNr4 As String, _ ByVal eza_ContainerNr5 As String, _ ByVal eza_ContainerNr6 As String, _ ByVal eza_ContainerNr7 As String, _ ByVal eza_ContainerNr8 As String, _ ByVal eza_ContainerNr9 As String, _ ByVal eza_BeendigungsanteilArtCode As String, _ ByVal eza_BewilligungsIDZLAVUV As String, _ ByVal eza_BezugsnummerBEAnteilZL As String, _ ByVal eza_UstIdAnmelder As String, _ ByVal eza_FinanzamtAnmelder As String, _ ByVal eza_Anmeldedatum As Global.System.Nullable(Of Date), _ ByVal Original_eza_Id As Integer, _ ByVal Original_eza_Status As Integer, _ ByVal Original_eza_Status_KEWILL_Equivalent As Integer, _ ByVal Original_eza_dyaArt As String, _ ByVal Original_eza_dyaAnmID As Integer, _ ByVal Original_eza_ANR As String, _ ByVal Original_eza_MRN As String, _ ByVal Original_eza_Erstellung As Date, _ ByVal Original_eza_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_eza_LetzteBearbeitung As Date, _ ByVal Original_eza_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_eza_firma As String, _ ByVal Original_eza_niederlassung As String, _ ByVal Original_eza_Trans_Partner As String, _ ByVal Original_eza_Trans_Div1 As String, _ ByVal Original_eza_Trans_Div2 As String, _ ByVal Original_eza_Trans_Div3 As String, _ ByVal Original_eza_Trans_Referenz As String, _ ByVal Original_eza_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_eza_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_eza_NachrichtenSenderTIN As String, _ ByVal Original_eza_NachrichtenSenderNLNR As String, _ ByVal Original_eza_NachrichtenempfaengerDST As String, _ ByVal Original_eza_ObjectName As String, _ ByVal Original_eza_ObjectAlias As String, _ ByVal Original_eza_BezugsnummerVorblendung As String, _ ByVal Original_eza_Bearbeiter As String, _ ByVal Original_eza_AnmeldungArt As String, _ ByVal Original_eza_CompliancePruefung As String, _ ByVal Original_eza_AnfBemerkungStatusanzeige As String, _ ByVal Original_eza_AdressierteZollstelle As String, _ ByVal Original_eza_AnmelderistEmpfaenger As String, _ ByVal Original_eza_VertretungsVerhaeltnisCode As String, _ ByVal Original_eza_Vorsteuerabzug As String, _ ByVal Original_eza_AnmeldenderBearbeiterName As String, _ ByVal Original_eza_AnmeldenderBearbeiterTel As String, _ ByVal Original_eza_AnmeldenderBearbeiterStellung As String, _ ByVal Original_eza_AnmeldenderBearbeiterEMail As String, _ ByVal Original_eza_FiskalvertretungKz As String, _ ByVal Original_eza_Ausstellungsort As String, _ ByVal Original_eza_ZollrechtlicherStatus As String, _ ByVal Original_eza_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_eza_VerfahrenBeantragtCode As String, _ ByVal Original_eza_VerkehrszweigInland As String, _ ByVal Original_eza_VerkehrszweigGrenze As String, _ ByVal Original_eza_VersendungsLandCode As String, _ ByVal Original_eza_Bestimmungsbundesland As String, _ ByVal Original_eza_Bestimmungsland As String, _ ByVal Original_eza_KennzeichenNameBefoerderungsmittelAnkunft As String, _ ByVal Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode As String, _ ByVal Original_eza_BeförderungsmittelGrenzeArt As String, _ ByVal Original_eza_BeförderungsmittelGrenze As String, _ ByVal Original_eza_LieferbedingungCode As String, _ ByVal Original_eza_LieferbedingungText As String, _ ByVal Original_eza_LieferbedingungSchluessel As String, _ ByVal Original_eza_LieferbedingungOrt As String, _ ByVal Original_eza_VorpapierArtCode As String, _ ByVal Original_eza_VorpapierNr As String, _ ByVal Original_eza_ArtGeschaeftCode As String, _ ByVal Original_eza_Statistikstatus As String, _ ByVal Original_eza_Warenort As String, _ ByVal Original_eza_Rechnungspreis As Global.System.Nullable(Of Decimal), _ ByVal Original_eza_Rechnungswaehrung As String, _ ByVal Original_eza_DV1Kz As String, _ ByVal Original_eza_DV1Vertretungsverhaeltnis As String, _ ByVal Original_eza_DV1FruehereEntscheidungen As String, _ ByVal Original_eza_DV1Verbundenheit As String, _ ByVal Original_eza_DV1VerbungenheitEinzelheiten As String, _ ByVal Original_eza_DV1EinschraenkungenKz As String, _ ByVal Original_eza_DV1BedingungenLeistungenKz As String, _ ByVal Original_eza_DV1BedingungenLeistungenArt As String, _ ByVal Original_eza_DV1LizenzgebuehrenKz As String, _ ByVal Original_eza_DV1LizenzgebuehrenUmstand As String, _ ByVal Original_eza_DV1SpezielleVereinbarungKz As String, _ ByVal Original_eza_DV1SpezielleVereinbarungUmstand As String, _ ByVal Original_eza_ZusatzangabenAnmeldung As String, _ ByVal Original_eza_KzAutoBestaetigung As String, _ ByVal Original_eza_AnschreibungDatum As Global.System.Nullable(Of Date), _ ByVal Original_eza_Eingangszollstelle As String, _ ByVal Original_eza_Zahlungsart As String, _ ByVal Original_eza_ContainerNr1 As String, _ ByVal Original_eza_ContainerNr2 As String, _ ByVal Original_eza_ContainerNr3 As String, _ ByVal Original_eza_ContainerNr4 As String, _ ByVal Original_eza_ContainerNr5 As String, _ ByVal Original_eza_ContainerNr6 As String, _ ByVal Original_eza_ContainerNr7 As String, _ ByVal Original_eza_ContainerNr8 As String, _ ByVal Original_eza_ContainerNr9 As String, _ ByVal Original_eza_BeendigungsanteilArtCode As String, _ ByVal Original_eza_BewilligungsIDZLAVUV As String, _ ByVal Original_eza_BezugsnummerBEAnteilZL As String, _ ByVal Original_eza_UstIdAnmelder As String, _ ByVal Original_eza_FinanzamtAnmelder As String, _ ByVal Original_eza_Anmeldedatum As Global.System.Nullable(Of Date)) As Integer Return Me.Update(eza_Status, eza_Status_KEWILL_Equivalent, eza_dyaArt, eza_dyaAnmID, eza_ANR, eza_MRN, eza_Erstellung, eza_Erstellung_SB, eza_LetzteBearbeitung, eza_LetzteBearbeitung_SB, eza_firma, eza_niederlassung, eza_Trans_Partner, eza_Trans_Div1, eza_Trans_Div2, eza_Trans_Div3, eza_Trans_Referenz, eza_Trans_DatumZeit, eza_Trans_Version, eza_NachrichtenSenderTIN, eza_NachrichtenSenderNLNR, eza_NachrichtenempfaengerDST, eza_ObjectName, eza_ObjectAlias, eza_BezugsnummerVorblendung, eza_Bearbeiter, eza_AnmeldungArt, eza_CompliancePruefung, eza_AnfBemerkungStatusanzeige, eza_AdressierteZollstelle, eza_AnmelderistEmpfaenger, eza_VertretungsVerhaeltnisCode, eza_Vorsteuerabzug, eza_AnmeldenderBearbeiterName, eza_AnmeldenderBearbeiterTel, eza_AnmeldenderBearbeiterStellung, eza_AnmeldenderBearbeiterEMail, eza_FiskalvertretungKz, eza_Ausstellungsort, eza_ZollrechtlicherStatus, eza_GesamtRohmasse, eza_VerfahrenBeantragtCode, eza_VerkehrszweigInland, eza_VerkehrszweigGrenze, eza_VersendungsLandCode, eza_Bestimmungsbundesland, eza_Bestimmungsland, eza_KennzeichenNameBefoerderungsmittelAnkunft, eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode, eza_BeförderungsmittelGrenzeArt, eza_BeförderungsmittelGrenze, eza_LieferbedingungCode, eza_LieferbedingungText, eza_LieferbedingungSchluessel, eza_LieferbedingungOrt, eza_VorpapierArtCode, eza_VorpapierNr, eza_ArtGeschaeftCode, eza_Statistikstatus, eza_Warenort, eza_Rechnungspreis, eza_Rechnungswaehrung, eza_DV1Kz, eza_DV1Vertretungsverhaeltnis, eza_DV1FruehereEntscheidungen, eza_DV1Verbundenheit, eza_DV1VerbungenheitEinzelheiten, eza_DV1EinschraenkungenKz, eza_DV1BedingungenLeistungenKz, eza_DV1BedingungenLeistungenArt, eza_DV1LizenzgebuehrenKz, eza_DV1LizenzgebuehrenUmstand, eza_DV1SpezielleVereinbarungKz, eza_DV1SpezielleVereinbarungUmstand, eza_ZusatzangabenAnmeldung, eza_KzAutoBestaetigung, eza_AnschreibungDatum, eza_Eingangszollstelle, eza_Zahlungsart, eza_ContainerNr1, eza_ContainerNr2, eza_ContainerNr3, eza_ContainerNr4, eza_ContainerNr5, eza_ContainerNr6, eza_ContainerNr7, eza_ContainerNr8, eza_ContainerNr9, eza_BeendigungsanteilArtCode, eza_BewilligungsIDZLAVUV, eza_BezugsnummerBEAnteilZL, eza_UstIdAnmelder, eza_FinanzamtAnmelder, eza_Anmeldedatum, Original_eza_Id, Original_eza_Status, Original_eza_Status_KEWILL_Equivalent, Original_eza_dyaArt, Original_eza_dyaAnmID, Original_eza_ANR, Original_eza_MRN, Original_eza_Erstellung, Original_eza_Erstellung_SB, Original_eza_LetzteBearbeitung, Original_eza_LetzteBearbeitung_SB, Original_eza_firma, Original_eza_niederlassung, Original_eza_Trans_Partner, Original_eza_Trans_Div1, Original_eza_Trans_Div2, Original_eza_Trans_Div3, Original_eza_Trans_Referenz, Original_eza_Trans_DatumZeit, Original_eza_Trans_Version, Original_eza_NachrichtenSenderTIN, Original_eza_NachrichtenSenderNLNR, Original_eza_NachrichtenempfaengerDST, Original_eza_ObjectName, Original_eza_ObjectAlias, Original_eza_BezugsnummerVorblendung, Original_eza_Bearbeiter, Original_eza_AnmeldungArt, Original_eza_CompliancePruefung, Original_eza_AnfBemerkungStatusanzeige, Original_eza_AdressierteZollstelle, Original_eza_AnmelderistEmpfaenger, Original_eza_VertretungsVerhaeltnisCode, Original_eza_Vorsteuerabzug, Original_eza_AnmeldenderBearbeiterName, Original_eza_AnmeldenderBearbeiterTel, Original_eza_AnmeldenderBearbeiterStellung, Original_eza_AnmeldenderBearbeiterEMail, Original_eza_FiskalvertretungKz, Original_eza_Ausstellungsort, Original_eza_ZollrechtlicherStatus, Original_eza_GesamtRohmasse, Original_eza_VerfahrenBeantragtCode, Original_eza_VerkehrszweigInland, Original_eza_VerkehrszweigGrenze, Original_eza_VersendungsLandCode, Original_eza_Bestimmungsbundesland, Original_eza_Bestimmungsland, Original_eza_KennzeichenNameBefoerderungsmittelAnkunft, Original_eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode, Original_eza_BeförderungsmittelGrenzeArt, Original_eza_BeförderungsmittelGrenze, Original_eza_LieferbedingungCode, Original_eza_LieferbedingungText, Original_eza_LieferbedingungSchluessel, Original_eza_LieferbedingungOrt, Original_eza_VorpapierArtCode, Original_eza_VorpapierNr, Original_eza_ArtGeschaeftCode, Original_eza_Statistikstatus, Original_eza_Warenort, Original_eza_Rechnungspreis, Original_eza_Rechnungswaehrung, Original_eza_DV1Kz, Original_eza_DV1Vertretungsverhaeltnis, Original_eza_DV1FruehereEntscheidungen, Original_eza_DV1Verbundenheit, Original_eza_DV1VerbungenheitEinzelheiten, Original_eza_DV1EinschraenkungenKz, Original_eza_DV1BedingungenLeistungenKz, Original_eza_DV1BedingungenLeistungenArt, Original_eza_DV1LizenzgebuehrenKz, Original_eza_DV1LizenzgebuehrenUmstand, Original_eza_DV1SpezielleVereinbarungKz, Original_eza_DV1SpezielleVereinbarungUmstand, Original_eza_ZusatzangabenAnmeldung, Original_eza_KzAutoBestaetigung, Original_eza_AnschreibungDatum, Original_eza_Eingangszollstelle, Original_eza_Zahlungsart, Original_eza_ContainerNr1, Original_eza_ContainerNr2, Original_eza_ContainerNr3, Original_eza_ContainerNr4, Original_eza_ContainerNr5, Original_eza_ContainerNr6, Original_eza_ContainerNr7, Original_eza_ContainerNr8, Original_eza_ContainerNr9, Original_eza_BeendigungsanteilArtCode, Original_eza_BewilligungsIDZLAVUV, Original_eza_BezugsnummerBEAnteilZL, Original_eza_UstIdAnmelder, Original_eza_FinanzamtAnmelder, Original_eza_Anmeldedatum, Original_eza_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_EZA_AdressenTableAdapter 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 = "tblDakosy_EZA_Adressen" tableMapping.ColumnMappings.Add("ezaAd_Id", "ezaAd_Id") tableMapping.ColumnMappings.Add("ezaAd_EZAId", "ezaAd_EZAId") tableMapping.ColumnMappings.Add("ezaAd_AdressTyp", "ezaAd_AdressTyp") tableMapping.ColumnMappings.Add("ezaAd_AdressCode", "ezaAd_AdressCode") tableMapping.ColumnMappings.Add("ezaAd_TeilnehmerEORI", "ezaAd_TeilnehmerEORI") tableMapping.ColumnMappings.Add("ezaAd_TeilnehmerNLNR", "ezaAd_TeilnehmerNLNR") tableMapping.ColumnMappings.Add("ezaAd_NameFirma1", "ezaAd_NameFirma1") tableMapping.ColumnMappings.Add("ezaAd_NameFirma2", "ezaAd_NameFirma2") tableMapping.ColumnMappings.Add("ezaAd_NameFirma3", "ezaAd_NameFirma3") tableMapping.ColumnMappings.Add("ezaAd_StrasseHausNr1", "ezaAd_StrasseHausNr1") tableMapping.ColumnMappings.Add("ezaAd_StrasseHausNr2", "ezaAd_StrasseHausNr2") tableMapping.ColumnMappings.Add("ezaAd_Ortsteil", "ezaAd_Ortsteil") tableMapping.ColumnMappings.Add("ezaAd_LandCode", "ezaAd_LandCode") tableMapping.ColumnMappings.Add("ezaAd_PLZ", "ezaAd_PLZ") tableMapping.ColumnMappings.Add("ezaAd_Ort", "ezaAd_Ort") tableMapping.ColumnMappings.Add("ezaAd_UStIDAnmelder", "ezaAd_UStIDAnmelder") tableMapping.ColumnMappings.Add("ezaAd_FinanzamtIDAnmelder", "ezaAd_FinanzamtIDAnmelder") tableMapping.ColumnMappings.Add("ezaAd_Bewilligungsnummer", "ezaAd_Bewilligungsnummer") tableMapping.ColumnMappings.Add("ezaAd_BewilligungsFachVerfahren", "ezaAd_BewilligungsFachVerfahren") tableMapping.ColumnMappings.Add("ezaAd_BewilligungsnummerEndverwender", "ezaAd_BewilligungsnummerEndverwender") 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].[tblDakosy_EZA_Adressen] WHERE (([ezaAd_Id] = @Original_ezaAd_I"& _ "d) AND ([ezaAd_EZAId] = @Original_ezaAd_EZAId) AND ((@IsNull_ezaAd_AdressTyp = 1"& _ " AND [ezaAd_AdressTyp] IS NULL) OR ([ezaAd_AdressTyp] = @Original_ezaAd_AdressTy"& _ "p)) AND ((@IsNull_ezaAd_AdressCode = 1 AND [ezaAd_AdressCode] IS NULL) OR ([ezaA"& _ "d_AdressCode] = @Original_ezaAd_AdressCode)) AND ((@IsNull_ezaAd_TeilnehmerEORI "& _ "= 1 AND [ezaAd_TeilnehmerEORI] IS NULL) OR ([ezaAd_TeilnehmerEORI] = @Original_e"& _ "zaAd_TeilnehmerEORI)) AND ((@IsNull_ezaAd_TeilnehmerNLNR = 1 AND [ezaAd_Teilnehm"& _ "erNLNR] IS NULL) OR ([ezaAd_TeilnehmerNLNR] = @Original_ezaAd_TeilnehmerNLNR)) A"& _ "ND ((@IsNull_ezaAd_NameFirma1 = 1 AND [ezaAd_NameFirma1] IS NULL) OR ([ezaAd_Nam"& _ "eFirma1] = @Original_ezaAd_NameFirma1)) AND ((@IsNull_ezaAd_NameFirma2 = 1 AND ["& _ "ezaAd_NameFirma2] IS NULL) OR ([ezaAd_NameFirma2] = @Original_ezaAd_NameFirma2))"& _ " AND ((@IsNull_ezaAd_NameFirma3 = 1 AND [ezaAd_NameFirma3] IS NULL) OR ([ezaAd_N"& _ "ameFirma3] = @Original_ezaAd_NameFirma3)) AND ((@IsNull_ezaAd_StrasseHausNr1 = 1"& _ " AND [ezaAd_StrasseHausNr1] IS NULL) OR ([ezaAd_StrasseHausNr1] = @Original_ezaA"& _ "d_StrasseHausNr1)) AND ((@IsNull_ezaAd_StrasseHausNr2 = 1 AND [ezaAd_StrasseHaus"& _ "Nr2] IS NULL) OR ([ezaAd_StrasseHausNr2] = @Original_ezaAd_StrasseHausNr2)) AND "& _ "((@IsNull_ezaAd_Ortsteil = 1 AND [ezaAd_Ortsteil] IS NULL) OR ([ezaAd_Ortsteil] "& _ "= @Original_ezaAd_Ortsteil)) AND ((@IsNull_ezaAd_LandCode = 1 AND [ezaAd_LandCod"& _ "e] IS NULL) OR ([ezaAd_LandCode] = @Original_ezaAd_LandCode)) AND ((@IsNull_ezaA"& _ "d_PLZ = 1 AND [ezaAd_PLZ] IS NULL) OR ([ezaAd_PLZ] = @Original_ezaAd_PLZ)) AND ("& _ "(@IsNull_ezaAd_Ort = 1 AND [ezaAd_Ort] IS NULL) OR ([ezaAd_Ort] = @Original_ezaA"& _ "d_Ort)) AND ((@IsNull_ezaAd_UStIDAnmelder = 1 AND [ezaAd_UStIDAnmelder] IS NULL)"& _ " OR ([ezaAd_UStIDAnmelder] = @Original_ezaAd_UStIDAnmelder)) AND ((@IsNull_ezaAd"& _ "_FinanzamtIDAnmelder = 1 AND [ezaAd_FinanzamtIDAnmelder] IS NULL) OR ([ezaAd_Fin"& _ "anzamtIDAnmelder] = @Original_ezaAd_FinanzamtIDAnmelder)) AND ((@IsNull_ezaAd_Be"& _ "willigungsnummer = 1 AND [ezaAd_Bewilligungsnummer] IS NULL) OR ([ezaAd_Bewillig"& _ "ungsnummer] = @Original_ezaAd_Bewilligungsnummer)) AND ((@IsNull_ezaAd_Bewilligu"& _ "ngsFachVerfahren = 1 AND [ezaAd_BewilligungsFachVerfahren] IS NULL) OR ([ezaAd_B"& _ "ewilligungsFachVerfahren] = @Original_ezaAd_BewilligungsFachVerfahren)) AND ((@I"& _ "sNull_ezaAd_BewilligungsnummerEndverwender = 1 AND [ezaAd_BewilligungsnummerEndv"& _ "erwender] IS NULL) OR ([ezaAd_BewilligungsnummerEndverwender] = @Original_ezaAd_"& _ "BewilligungsnummerEndverwender)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_EZAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_AdressTyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressTyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_AdressTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_TeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_TeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_TeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_TeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_TeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_TeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_TeilnehmerNLNR", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ezaAd_TeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_NameFirma1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_NameFirma1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_NameFirma2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_NameFirma2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_NameFirma3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_NameFirma3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_StrasseHausNr1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_StrasseHausNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_StrasseHausNr2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_StrasseHausNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_Ortsteil", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ortsteil", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_Ortsteil", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ortsteil", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_LandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_LandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_LandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_LandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_UStIDAnmelder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_UStIDAnmelder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_UStIDAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_UStIDAnmelder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_FinanzamtIDAnmelder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_FinanzamtIDAnmelder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_FinanzamtIDAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_FinanzamtIDAnmelder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_Bewilligungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Bewilligungsnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_Bewilligungsnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Bewilligungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_BewilligungsFachVerfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsFachVerfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_BewilligungsFachVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsFachVerfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_BewilligungsnummerEndverwender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsnummerEndverwender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_BewilligungsnummerEndverwender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsnummerEndverwender", 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].[tblDakosy_EZA_Adressen] ([ezaAd_EZAId], [ezaAd_AdressTyp], [ez"& _ "aAd_AdressCode], [ezaAd_TeilnehmerEORI], [ezaAd_TeilnehmerNLNR], [ezaAd_NameFirm"& _ "a1], [ezaAd_NameFirma2], [ezaAd_NameFirma3], [ezaAd_StrasseHausNr1], [ezaAd_Stra"& _ "sseHausNr2], [ezaAd_Ortsteil], [ezaAd_LandCode], [ezaAd_PLZ], [ezaAd_Ort], [ezaA"& _ "d_UStIDAnmelder], [ezaAd_FinanzamtIDAnmelder], [ezaAd_Bewilligungsnummer], [ezaA"& _ "d_BewilligungsFachVerfahren], [ezaAd_BewilligungsnummerEndverwender]) VALUES (@e"& _ "zaAd_EZAId, @ezaAd_AdressTyp, @ezaAd_AdressCode, @ezaAd_TeilnehmerEORI, @ezaAd_T"& _ "eilnehmerNLNR, @ezaAd_NameFirma1, @ezaAd_NameFirma2, @ezaAd_NameFirma3, @ezaAd_S"& _ "trasseHausNr1, @ezaAd_StrasseHausNr2, @ezaAd_Ortsteil, @ezaAd_LandCode, @ezaAd_P"& _ "LZ, @ezaAd_Ort, @ezaAd_UStIDAnmelder, @ezaAd_FinanzamtIDAnmelder, @ezaAd_Bewilli"& _ "gungsnummer, @ezaAd_BewilligungsFachVerfahren, @ezaAd_BewilligungsnummerEndverwe"& _ "nder);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaAd_Id, ezaAd_EZAId, ezaAd_AdressTyp, ezaAd_AdressCode, ezaAd_T"& _ "eilnehmerEORI, ezaAd_TeilnehmerNLNR, ezaAd_NameFirma1, ezaAd_NameFirma2, ezaAd_N"& _ "ameFirma3, ezaAd_StrasseHausNr1, ezaAd_StrasseHausNr2, ezaAd_Ortsteil, ezaAd_Lan"& _ "dCode, ezaAd_PLZ, ezaAd_Ort, ezaAd_UStIDAnmelder, ezaAd_FinanzamtIDAnmelder, eza"& _ "Ad_Bewilligungsnummer, ezaAd_BewilligungsFachVerfahren, ezaAd_Bewilligungsnummer"& _ "Endverwender FROM tblDakosy_EZA_Adressen WHERE (ezaAd_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_EZAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_AdressTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_TeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_TeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_TeilnehmerNLNR", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ezaAd_TeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_NameFirma1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_NameFirma2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_NameFirma3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_StrasseHausNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_StrasseHausNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_Ortsteil", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ortsteil", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_LandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_LandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_UStIDAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_UStIDAnmelder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_FinanzamtIDAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_FinanzamtIDAnmelder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_Bewilligungsnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Bewilligungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_BewilligungsFachVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsFachVerfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_BewilligungsnummerEndverwender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsnummerEndverwender", 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].[tblDakosy_EZA_Adressen] SET [ezaAd_EZAId] = @ezaAd_EZAId, [ezaAd_Ad"& _ "ressTyp] = @ezaAd_AdressTyp, [ezaAd_AdressCode] = @ezaAd_AdressCode, [ezaAd_Teil"& _ "nehmerEORI] = @ezaAd_TeilnehmerEORI, [ezaAd_TeilnehmerNLNR] = @ezaAd_TeilnehmerN"& _ "LNR, [ezaAd_NameFirma1] = @ezaAd_NameFirma1, [ezaAd_NameFirma2] = @ezaAd_NameFir"& _ "ma2, [ezaAd_NameFirma3] = @ezaAd_NameFirma3, [ezaAd_StrasseHausNr1] = @ezaAd_Str"& _ "asseHausNr1, [ezaAd_StrasseHausNr2] = @ezaAd_StrasseHausNr2, [ezaAd_Ortsteil] = "& _ "@ezaAd_Ortsteil, [ezaAd_LandCode] = @ezaAd_LandCode, [ezaAd_PLZ] = @ezaAd_PLZ, ["& _ "ezaAd_Ort] = @ezaAd_Ort, [ezaAd_UStIDAnmelder] = @ezaAd_UStIDAnmelder, [ezaAd_Fi"& _ "nanzamtIDAnmelder] = @ezaAd_FinanzamtIDAnmelder, [ezaAd_Bewilligungsnummer] = @e"& _ "zaAd_Bewilligungsnummer, [ezaAd_BewilligungsFachVerfahren] = @ezaAd_Bewilligungs"& _ "FachVerfahren, [ezaAd_BewilligungsnummerEndverwender] = @ezaAd_Bewilligungsnumme"& _ "rEndverwender WHERE (([ezaAd_Id] = @Original_ezaAd_Id) AND ([ezaAd_EZAId] = @Ori"& _ "ginal_ezaAd_EZAId) AND ((@IsNull_ezaAd_AdressTyp = 1 AND [ezaAd_AdressTyp] IS NU"& _ "LL) OR ([ezaAd_AdressTyp] = @Original_ezaAd_AdressTyp)) AND ((@IsNull_ezaAd_Adre"& _ "ssCode = 1 AND [ezaAd_AdressCode] IS NULL) OR ([ezaAd_AdressCode] = @Original_ez"& _ "aAd_AdressCode)) AND ((@IsNull_ezaAd_TeilnehmerEORI = 1 AND [ezaAd_TeilnehmerEOR"& _ "I] IS NULL) OR ([ezaAd_TeilnehmerEORI] = @Original_ezaAd_TeilnehmerEORI)) AND (("& _ "@IsNull_ezaAd_TeilnehmerNLNR = 1 AND [ezaAd_TeilnehmerNLNR] IS NULL) OR ([ezaAd_"& _ "TeilnehmerNLNR] = @Original_ezaAd_TeilnehmerNLNR)) AND ((@IsNull_ezaAd_NameFirma"& _ "1 = 1 AND [ezaAd_NameFirma1] IS NULL) OR ([ezaAd_NameFirma1] = @Original_ezaAd_N"& _ "ameFirma1)) AND ((@IsNull_ezaAd_NameFirma2 = 1 AND [ezaAd_NameFirma2] IS NULL) O"& _ "R ([ezaAd_NameFirma2] = @Original_ezaAd_NameFirma2)) AND ((@IsNull_ezaAd_NameFir"& _ "ma3 = 1 AND [ezaAd_NameFirma3] IS NULL) OR ([ezaAd_NameFirma3] = @Original_ezaAd"& _ "_NameFirma3)) AND ((@IsNull_ezaAd_StrasseHausNr1 = 1 AND [ezaAd_StrasseHausNr1] "& _ "IS NULL) OR ([ezaAd_StrasseHausNr1] = @Original_ezaAd_StrasseHausNr1)) AND ((@Is"& _ "Null_ezaAd_StrasseHausNr2 = 1 AND [ezaAd_StrasseHausNr2] IS NULL) OR ([ezaAd_Str"& _ "asseHausNr2] = @Original_ezaAd_StrasseHausNr2)) AND ((@IsNull_ezaAd_Ortsteil = 1"& _ " AND [ezaAd_Ortsteil] IS NULL) OR ([ezaAd_Ortsteil] = @Original_ezaAd_Ortsteil))"& _ " AND ((@IsNull_ezaAd_LandCode = 1 AND [ezaAd_LandCode] IS NULL) OR ([ezaAd_LandC"& _ "ode] = @Original_ezaAd_LandCode)) AND ((@IsNull_ezaAd_PLZ = 1 AND [ezaAd_PLZ] IS"& _ " NULL) OR ([ezaAd_PLZ] = @Original_ezaAd_PLZ)) AND ((@IsNull_ezaAd_Ort = 1 AND ["& _ "ezaAd_Ort] IS NULL) OR ([ezaAd_Ort] = @Original_ezaAd_Ort)) AND ((@IsNull_ezaAd_"& _ "UStIDAnmelder = 1 AND [ezaAd_UStIDAnmelder] IS NULL) OR ([ezaAd_UStIDAnmelder] ="& _ " @Original_ezaAd_UStIDAnmelder)) AND ((@IsNull_ezaAd_FinanzamtIDAnmelder = 1 AND"& _ " [ezaAd_FinanzamtIDAnmelder] IS NULL) OR ([ezaAd_FinanzamtIDAnmelder] = @Origina"& _ "l_ezaAd_FinanzamtIDAnmelder)) AND ((@IsNull_ezaAd_Bewilligungsnummer = 1 AND [ez"& _ "aAd_Bewilligungsnummer] IS NULL) OR ([ezaAd_Bewilligungsnummer] = @Original_ezaA"& _ "d_Bewilligungsnummer)) AND ((@IsNull_ezaAd_BewilligungsFachVerfahren = 1 AND [ez"& _ "aAd_BewilligungsFachVerfahren] IS NULL) OR ([ezaAd_BewilligungsFachVerfahren] = "& _ "@Original_ezaAd_BewilligungsFachVerfahren)) AND ((@IsNull_ezaAd_Bewilligungsnumm"& _ "erEndverwender = 1 AND [ezaAd_BewilligungsnummerEndverwender] IS NULL) OR ([ezaA"& _ "d_BewilligungsnummerEndverwender] = @Original_ezaAd_BewilligungsnummerEndverwend"& _ "er)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaAd_Id, ezaAd_EZAId, ezaAd_AdressTyp, ezaAd_AdressCode, ezaAd_T"& _ "eilnehmerEORI, ezaAd_TeilnehmerNLNR, ezaAd_NameFirma1, ezaAd_NameFirma2, ezaAd_N"& _ "ameFirma3, ezaAd_StrasseHausNr1, ezaAd_StrasseHausNr2, ezaAd_Ortsteil, ezaAd_Lan"& _ "dCode, ezaAd_PLZ, ezaAd_Ort, ezaAd_UStIDAnmelder, ezaAd_FinanzamtIDAnmelder, eza"& _ "Ad_Bewilligungsnummer, ezaAd_BewilligungsFachVerfahren, ezaAd_Bewilligungsnummer"& _ "Endverwender FROM tblDakosy_EZA_Adressen WHERE (ezaAd_Id = @ezaAd_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_EZAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_AdressTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_TeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_TeilnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_TeilnehmerNLNR", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ezaAd_TeilnehmerNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_NameFirma1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_NameFirma2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_NameFirma3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_StrasseHausNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_StrasseHausNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_Ortsteil", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ortsteil", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_LandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_LandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_UStIDAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_UStIDAnmelder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_FinanzamtIDAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_FinanzamtIDAnmelder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_Bewilligungsnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Bewilligungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_BewilligungsFachVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsFachVerfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_BewilligungsnummerEndverwender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsnummerEndverwender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_EZAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_AdressTyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressTyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_AdressTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_TeilnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_TeilnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_TeilnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_TeilnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_TeilnehmerNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_TeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_TeilnehmerNLNR", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ezaAd_TeilnehmerNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_NameFirma1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_NameFirma1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_NameFirma2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_NameFirma2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_NameFirma3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_NameFirma3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_NameFirma3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_StrasseHausNr1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_StrasseHausNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_StrasseHausNr2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_StrasseHausNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_StrasseHausNr2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_Ortsteil", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ortsteil", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_Ortsteil", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ortsteil", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_LandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_LandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_LandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_LandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_UStIDAnmelder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_UStIDAnmelder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_UStIDAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_UStIDAnmelder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_FinanzamtIDAnmelder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_FinanzamtIDAnmelder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_FinanzamtIDAnmelder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_FinanzamtIDAnmelder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_Bewilligungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Bewilligungsnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_Bewilligungsnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Bewilligungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_BewilligungsFachVerfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsFachVerfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_BewilligungsFachVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsFachVerfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAd_BewilligungsnummerEndverwender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsnummerEndverwender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAd_BewilligungsnummerEndverwender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_BewilligungsnummerEndverwender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAd_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAd_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezaAd_Id, ezaAd_EZAId, ezaAd_AdressTyp, ezaAd_AdressCode, ezaAd_Teilnehmer"& _ "EORI, ezaAd_TeilnehmerNLNR, ezaAd_NameFirma1, ezaAd_NameFirma2, ezaAd_NameFirma3"& _ ", ezaAd_StrasseHausNr1, ezaAd_StrasseHausNr2, ezaAd_Ortsteil, ezaAd_LandCode, ez"& _ "aAd_PLZ, ezaAd_Ort, ezaAd_UStIDAnmelder, ezaAd_FinanzamtIDAnmelder, ezaAd_Bewill"& _ "igungsnummer, ezaAd_BewilligungsFachVerfahren, ezaAd_BewilligungsnummerEndverwen"& _ "der FROM dbo.tblDakosy_EZA_Adressen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_AdressenDataTable) 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 VERAGDataSet.tblDakosy_EZA_AdressenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_EZA_AdressenDataTable = New VERAGDataSet.tblDakosy_EZA_AdressenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_AdressenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_EZA_Adressen") 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_ezaAd_Id As Integer, _ ByVal Original_ezaAd_EZAId As Integer, _ ByVal Original_ezaAd_AdressTyp As String, _ ByVal Original_ezaAd_AdressCode As String, _ ByVal Original_ezaAd_TeilnehmerEORI As String, _ ByVal Original_ezaAd_TeilnehmerNLNR As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaAd_NameFirma1 As String, _ ByVal Original_ezaAd_NameFirma2 As String, _ ByVal Original_ezaAd_NameFirma3 As String, _ ByVal Original_ezaAd_StrasseHausNr1 As String, _ ByVal Original_ezaAd_StrasseHausNr2 As String, _ ByVal Original_ezaAd_Ortsteil As String, _ ByVal Original_ezaAd_LandCode As String, _ ByVal Original_ezaAd_PLZ As String, _ ByVal Original_ezaAd_Ort As String, _ ByVal Original_ezaAd_UStIDAnmelder As String, _ ByVal Original_ezaAd_FinanzamtIDAnmelder As String, _ ByVal Original_ezaAd_Bewilligungsnummer As String, _ ByVal Original_ezaAd_BewilligungsFachVerfahren As String, _ ByVal Original_ezaAd_BewilligungsnummerEndverwender As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezaAd_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezaAd_EZAId,Integer) If (Original_ezaAd_AdressTyp 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_ezaAd_AdressTyp,String) End If If (Original_ezaAd_AdressCode 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_ezaAd_AdressCode,String) End If If (Original_ezaAd_TeilnehmerEORI 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_ezaAd_TeilnehmerEORI,String) End If If (Original_ezaAd_TeilnehmerNLNR.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ezaAd_TeilnehmerNLNR.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_ezaAd_NameFirma1 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_ezaAd_NameFirma1,String) End If If (Original_ezaAd_NameFirma2 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_ezaAd_NameFirma2,String) End If If (Original_ezaAd_NameFirma3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_ezaAd_NameFirma3,String) End If If (Original_ezaAd_StrasseHausNr1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ezaAd_StrasseHausNr1,String) End If If (Original_ezaAd_StrasseHausNr2 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_ezaAd_StrasseHausNr2,String) End If If (Original_ezaAd_Ortsteil 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_ezaAd_Ortsteil,String) End If If (Original_ezaAd_LandCode 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_ezaAd_LandCode,String) End If If (Original_ezaAd_PLZ 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_ezaAd_PLZ,String) End If If (Original_ezaAd_Ort 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_ezaAd_Ort,String) End If If (Original_ezaAd_UStIDAnmelder 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_ezaAd_UStIDAnmelder,String) End If If (Original_ezaAd_FinanzamtIDAnmelder Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_ezaAd_FinanzamtIDAnmelder,String) End If If (Original_ezaAd_Bewilligungsnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_ezaAd_Bewilligungsnummer,String) End If If (Original_ezaAd_BewilligungsFachVerfahren Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_ezaAd_BewilligungsFachVerfahren,String) End If If (Original_ezaAd_BewilligungsnummerEndverwender Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_ezaAd_BewilligungsnummerEndverwender,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 ezaAd_EZAId As Integer, _ ByVal ezaAd_AdressTyp As String, _ ByVal ezaAd_AdressCode As String, _ ByVal ezaAd_TeilnehmerEORI As String, _ ByVal ezaAd_TeilnehmerNLNR As Global.System.Nullable(Of Decimal), _ ByVal ezaAd_NameFirma1 As String, _ ByVal ezaAd_NameFirma2 As String, _ ByVal ezaAd_NameFirma3 As String, _ ByVal ezaAd_StrasseHausNr1 As String, _ ByVal ezaAd_StrasseHausNr2 As String, _ ByVal ezaAd_Ortsteil As String, _ ByVal ezaAd_LandCode As String, _ ByVal ezaAd_PLZ As String, _ ByVal ezaAd_Ort As String, _ ByVal ezaAd_UStIDAnmelder As String, _ ByVal ezaAd_FinanzamtIDAnmelder As String, _ ByVal ezaAd_Bewilligungsnummer As String, _ ByVal ezaAd_BewilligungsFachVerfahren As String, _ ByVal ezaAd_BewilligungsnummerEndverwender As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezaAd_EZAId,Integer) If (ezaAd_AdressTyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezaAd_AdressTyp,String) End If If (ezaAd_AdressCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezaAd_AdressCode,String) End If If (ezaAd_TeilnehmerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezaAd_TeilnehmerEORI,String) End If If (ezaAd_TeilnehmerNLNR.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(ezaAd_TeilnehmerNLNR.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (ezaAd_NameFirma1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ezaAd_NameFirma1,String) End If If (ezaAd_NameFirma2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ezaAd_NameFirma2,String) End If If (ezaAd_NameFirma3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ezaAd_NameFirma3,String) End If If (ezaAd_StrasseHausNr1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ezaAd_StrasseHausNr1,String) End If If (ezaAd_StrasseHausNr2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(ezaAd_StrasseHausNr2,String) End If If (ezaAd_Ortsteil Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(ezaAd_Ortsteil,String) End If If (ezaAd_LandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(ezaAd_LandCode,String) End If If (ezaAd_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(ezaAd_PLZ,String) End If If (ezaAd_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(ezaAd_Ort,String) End If If (ezaAd_UStIDAnmelder Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(ezaAd_UStIDAnmelder,String) End If If (ezaAd_FinanzamtIDAnmelder Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(ezaAd_FinanzamtIDAnmelder,String) End If If (ezaAd_Bewilligungsnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(ezaAd_Bewilligungsnummer,String) End If If (ezaAd_BewilligungsFachVerfahren Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(ezaAd_BewilligungsFachVerfahren,String) End If If (ezaAd_BewilligungsnummerEndverwender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(ezaAd_BewilligungsnummerEndverwender,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 ezaAd_EZAId As Integer, _ ByVal ezaAd_AdressTyp As String, _ ByVal ezaAd_AdressCode As String, _ ByVal ezaAd_TeilnehmerEORI As String, _ ByVal ezaAd_TeilnehmerNLNR As Global.System.Nullable(Of Decimal), _ ByVal ezaAd_NameFirma1 As String, _ ByVal ezaAd_NameFirma2 As String, _ ByVal ezaAd_NameFirma3 As String, _ ByVal ezaAd_StrasseHausNr1 As String, _ ByVal ezaAd_StrasseHausNr2 As String, _ ByVal ezaAd_Ortsteil As String, _ ByVal ezaAd_LandCode As String, _ ByVal ezaAd_PLZ As String, _ ByVal ezaAd_Ort As String, _ ByVal ezaAd_UStIDAnmelder As String, _ ByVal ezaAd_FinanzamtIDAnmelder As String, _ ByVal ezaAd_Bewilligungsnummer As String, _ ByVal ezaAd_BewilligungsFachVerfahren As String, _ ByVal ezaAd_BewilligungsnummerEndverwender As String, _ ByVal Original_ezaAd_Id As Integer, _ ByVal Original_ezaAd_EZAId As Integer, _ ByVal Original_ezaAd_AdressTyp As String, _ ByVal Original_ezaAd_AdressCode As String, _ ByVal Original_ezaAd_TeilnehmerEORI As String, _ ByVal Original_ezaAd_TeilnehmerNLNR As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaAd_NameFirma1 As String, _ ByVal Original_ezaAd_NameFirma2 As String, _ ByVal Original_ezaAd_NameFirma3 As String, _ ByVal Original_ezaAd_StrasseHausNr1 As String, _ ByVal Original_ezaAd_StrasseHausNr2 As String, _ ByVal Original_ezaAd_Ortsteil As String, _ ByVal Original_ezaAd_LandCode As String, _ ByVal Original_ezaAd_PLZ As String, _ ByVal Original_ezaAd_Ort As String, _ ByVal Original_ezaAd_UStIDAnmelder As String, _ ByVal Original_ezaAd_FinanzamtIDAnmelder As String, _ ByVal Original_ezaAd_Bewilligungsnummer As String, _ ByVal Original_ezaAd_BewilligungsFachVerfahren As String, _ ByVal Original_ezaAd_BewilligungsnummerEndverwender As String, _ ByVal ezaAd_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezaAd_EZAId,Integer) If (ezaAd_AdressTyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezaAd_AdressTyp,String) End If If (ezaAd_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezaAd_AdressCode,String) End If If (ezaAd_TeilnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezaAd_TeilnehmerEORI,String) End If If (ezaAd_TeilnehmerNLNR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ezaAd_TeilnehmerNLNR.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (ezaAd_NameFirma1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ezaAd_NameFirma1,String) End If If (ezaAd_NameFirma2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ezaAd_NameFirma2,String) End If If (ezaAd_NameFirma3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ezaAd_NameFirma3,String) End If If (ezaAd_StrasseHausNr1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ezaAd_StrasseHausNr1,String) End If If (ezaAd_StrasseHausNr2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ezaAd_StrasseHausNr2,String) End If If (ezaAd_Ortsteil Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ezaAd_Ortsteil,String) End If If (ezaAd_LandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ezaAd_LandCode,String) End If If (ezaAd_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ezaAd_PLZ,String) End If If (ezaAd_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ezaAd_Ort,String) End If If (ezaAd_UStIDAnmelder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ezaAd_UStIDAnmelder,String) End If If (ezaAd_FinanzamtIDAnmelder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ezaAd_FinanzamtIDAnmelder,String) End If If (ezaAd_Bewilligungsnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ezaAd_Bewilligungsnummer,String) End If If (ezaAd_BewilligungsFachVerfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ezaAd_BewilligungsFachVerfahren,String) End If If (ezaAd_BewilligungsnummerEndverwender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ezaAd_BewilligungsnummerEndverwender,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ezaAd_Id,Integer) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ezaAd_EZAId,Integer) If (Original_ezaAd_AdressTyp 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_ezaAd_AdressTyp,String) End If If (Original_ezaAd_AdressCode 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_ezaAd_AdressCode,String) End If If (Original_ezaAd_TeilnehmerEORI 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_ezaAd_TeilnehmerEORI,String) End If If (Original_ezaAd_TeilnehmerNLNR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ezaAd_TeilnehmerNLNR.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_ezaAd_NameFirma1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_ezaAd_NameFirma1,String) End If If (Original_ezaAd_NameFirma2 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_ezaAd_NameFirma2,String) End If If (Original_ezaAd_NameFirma3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_ezaAd_NameFirma3,String) End If If (Original_ezaAd_StrasseHausNr1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_ezaAd_StrasseHausNr1,String) End If If (Original_ezaAd_StrasseHausNr2 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_ezaAd_StrasseHausNr2,String) End If If (Original_ezaAd_Ortsteil 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_ezaAd_Ortsteil,String) End If If (Original_ezaAd_LandCode 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_ezaAd_LandCode,String) End If If (Original_ezaAd_PLZ 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_ezaAd_PLZ,String) End If If (Original_ezaAd_Ort 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_ezaAd_Ort,String) End If If (Original_ezaAd_UStIDAnmelder 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_ezaAd_UStIDAnmelder,String) End If If (Original_ezaAd_FinanzamtIDAnmelder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_ezaAd_FinanzamtIDAnmelder,String) End If If (Original_ezaAd_Bewilligungsnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_ezaAd_Bewilligungsnummer,String) End If If (Original_ezaAd_BewilligungsFachVerfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_ezaAd_BewilligungsFachVerfahren,String) End If If (Original_ezaAd_BewilligungsnummerEndverwender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_ezaAd_BewilligungsnummerEndverwender,String) End If Me.Adapter.UpdateCommand.Parameters(57).Value = CType(ezaAd_Id,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 ezaAd_EZAId As Integer, _ ByVal ezaAd_AdressTyp As String, _ ByVal ezaAd_AdressCode As String, _ ByVal ezaAd_TeilnehmerEORI As String, _ ByVal ezaAd_TeilnehmerNLNR As Global.System.Nullable(Of Decimal), _ ByVal ezaAd_NameFirma1 As String, _ ByVal ezaAd_NameFirma2 As String, _ ByVal ezaAd_NameFirma3 As String, _ ByVal ezaAd_StrasseHausNr1 As String, _ ByVal ezaAd_StrasseHausNr2 As String, _ ByVal ezaAd_Ortsteil As String, _ ByVal ezaAd_LandCode As String, _ ByVal ezaAd_PLZ As String, _ ByVal ezaAd_Ort As String, _ ByVal ezaAd_UStIDAnmelder As String, _ ByVal ezaAd_FinanzamtIDAnmelder As String, _ ByVal ezaAd_Bewilligungsnummer As String, _ ByVal ezaAd_BewilligungsFachVerfahren As String, _ ByVal ezaAd_BewilligungsnummerEndverwender As String, _ ByVal Original_ezaAd_Id As Integer, _ ByVal Original_ezaAd_EZAId As Integer, _ ByVal Original_ezaAd_AdressTyp As String, _ ByVal Original_ezaAd_AdressCode As String, _ ByVal Original_ezaAd_TeilnehmerEORI As String, _ ByVal Original_ezaAd_TeilnehmerNLNR As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaAd_NameFirma1 As String, _ ByVal Original_ezaAd_NameFirma2 As String, _ ByVal Original_ezaAd_NameFirma3 As String, _ ByVal Original_ezaAd_StrasseHausNr1 As String, _ ByVal Original_ezaAd_StrasseHausNr2 As String, _ ByVal Original_ezaAd_Ortsteil As String, _ ByVal Original_ezaAd_LandCode As String, _ ByVal Original_ezaAd_PLZ As String, _ ByVal Original_ezaAd_Ort As String, _ ByVal Original_ezaAd_UStIDAnmelder As String, _ ByVal Original_ezaAd_FinanzamtIDAnmelder As String, _ ByVal Original_ezaAd_Bewilligungsnummer As String, _ ByVal Original_ezaAd_BewilligungsFachVerfahren As String, _ ByVal Original_ezaAd_BewilligungsnummerEndverwender As String) As Integer Return Me.Update(ezaAd_EZAId, ezaAd_AdressTyp, ezaAd_AdressCode, ezaAd_TeilnehmerEORI, ezaAd_TeilnehmerNLNR, ezaAd_NameFirma1, ezaAd_NameFirma2, ezaAd_NameFirma3, ezaAd_StrasseHausNr1, ezaAd_StrasseHausNr2, ezaAd_Ortsteil, ezaAd_LandCode, ezaAd_PLZ, ezaAd_Ort, ezaAd_UStIDAnmelder, ezaAd_FinanzamtIDAnmelder, ezaAd_Bewilligungsnummer, ezaAd_BewilligungsFachVerfahren, ezaAd_BewilligungsnummerEndverwender, Original_ezaAd_Id, Original_ezaAd_EZAId, Original_ezaAd_AdressTyp, Original_ezaAd_AdressCode, Original_ezaAd_TeilnehmerEORI, Original_ezaAd_TeilnehmerNLNR, Original_ezaAd_NameFirma1, Original_ezaAd_NameFirma2, Original_ezaAd_NameFirma3, Original_ezaAd_StrasseHausNr1, Original_ezaAd_StrasseHausNr2, Original_ezaAd_Ortsteil, Original_ezaAd_LandCode, Original_ezaAd_PLZ, Original_ezaAd_Ort, Original_ezaAd_UStIDAnmelder, Original_ezaAd_FinanzamtIDAnmelder, Original_ezaAd_Bewilligungsnummer, Original_ezaAd_BewilligungsFachVerfahren, Original_ezaAd_BewilligungsnummerEndverwender, Original_ezaAd_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_EZA_AufschubTableAdapter 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 = "tblDakosy_EZA_Aufschub" tableMapping.ColumnMappings.Add("ezaAfb_Id", "ezaAfb_Id") tableMapping.ColumnMappings.Add("ezaAfb_EZAId", "ezaAfb_EZAId") tableMapping.ColumnMappings.Add("ezaAfb_Aufschubart", "ezaAfb_Aufschubart") tableMapping.ColumnMappings.Add("ezaAfb_ArtAufschubantrag", "ezaAfb_ArtAufschubantrag") tableMapping.ColumnMappings.Add("ezaAfb_AufschubnehmerEORI", "ezaAfb_AufschubnehmerEORI") tableMapping.ColumnMappings.Add("ezaAfb_KontoNr", "ezaAfb_KontoNr") tableMapping.ColumnMappings.Add("ezaAfb_AufschuBIN", "ezaAfb_AufschuBIN") tableMapping.ColumnMappings.Add("ezaAfb_HZA", "ezaAfb_HZA") tableMapping.ColumnMappings.Add("AufschubnehmerName", "AufschubnehmerName") tableMapping.ColumnMappings.Add("ezaAfb_Faelligkeit", "ezaAfb_Faelligkeit") tableMapping.ColumnMappings.Add("ezaAfb_Zahlungsart", "ezaAfb_Zahlungsart") tableMapping.ColumnMappings.Add("ezaAfb_Abgabenbetrag", "ezaAfb_Abgabenbetrag") tableMapping.ColumnMappings.Add("ezaAfb_AbgabeArt", "ezaAfb_AbgabeArt") 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].[tblDakosy_EZA_Aufschub] WHERE (([ezaAfb_Id] = @Original_ezaAfb"& _ "_Id) AND ([ezaAfb_EZAId] = @Original_ezaAfb_EZAId) AND ((@IsNull_ezaAfb_Aufschub"& _ "art = 1 AND [ezaAfb_Aufschubart] IS NULL) OR ([ezaAfb_Aufschubart] = @Original_e"& _ "zaAfb_Aufschubart)) AND ((@IsNull_ezaAfb_ArtAufschubantrag = 1 AND [ezaAfb_ArtAu"& _ "fschubantrag] IS NULL) OR ([ezaAfb_ArtAufschubantrag] = @Original_ezaAfb_ArtAufs"& _ "chubantrag)) AND ((@IsNull_ezaAfb_AufschubnehmerEORI = 1 AND [ezaAfb_Aufschubneh"& _ "merEORI] IS NULL) OR ([ezaAfb_AufschubnehmerEORI] = @Original_ezaAfb_Aufschubneh"& _ "merEORI)) AND ((@IsNull_ezaAfb_KontoNr = 1 AND [ezaAfb_KontoNr] IS NULL) OR ([ez"& _ "aAfb_KontoNr] = @Original_ezaAfb_KontoNr)) AND ((@IsNull_ezaAfb_AufschuBIN = 1 A"& _ "ND [ezaAfb_AufschuBIN] IS NULL) OR ([ezaAfb_AufschuBIN] = @Original_ezaAfb_Aufsc"& _ "huBIN)) AND ((@IsNull_ezaAfb_HZA = 1 AND [ezaAfb_HZA] IS NULL) OR ([ezaAfb_HZA] "& _ "= @Original_ezaAfb_HZA)) AND ((@IsNull_AufschubnehmerName = 1 AND [Aufschubnehme"& _ "rName] IS NULL) OR ([AufschubnehmerName] = @Original_AufschubnehmerName)) AND (("& _ "@IsNull_ezaAfb_Faelligkeit = 1 AND [ezaAfb_Faelligkeit] IS NULL) OR ([ezaAfb_Fae"& _ "lligkeit] = @Original_ezaAfb_Faelligkeit)) AND ((@IsNull_ezaAfb_Zahlungsart = 1 "& _ "AND [ezaAfb_Zahlungsart] IS NULL) OR ([ezaAfb_Zahlungsart] = @Original_ezaAfb_Za"& _ "hlungsart)) AND ((@IsNull_ezaAfb_Abgabenbetrag = 1 AND [ezaAfb_Abgabenbetrag] IS"& _ " NULL) OR ([ezaAfb_Abgabenbetrag] = @Original_ezaAfb_Abgabenbetrag)) AND ((@IsNu"& _ "ll_ezaAfb_AbgabeArt = 1 AND [ezaAfb_AbgabeArt] IS NULL) OR ([ezaAfb_AbgabeArt] ="& _ " @Original_ezaAfb_AbgabeArt)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_EZAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_Aufschubart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Aufschubart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_Aufschubart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Aufschubart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_ArtAufschubantrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_ArtAufschubantrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_ArtAufschubantrag", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_ArtAufschubantrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_AufschubnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschubnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_AufschubnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschubnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_KontoNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_KontoNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_KontoNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_KontoNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_AufschuBIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschuBIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_AufschuBIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschuBIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_HZA", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_HZA", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_HZA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_HZA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AufschubnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AufschubnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_Faelligkeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Faelligkeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_Faelligkeit", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Faelligkeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_Zahlungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Zahlungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_Zahlungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Zahlungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_Abgabenbetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Abgabenbetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_Abgabenbetrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Abgabenbetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_AbgabeArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AbgabeArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_AbgabeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AbgabeArt", 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].[tblDakosy_EZA_Aufschub] ([ezaAfb_EZAId], [ezaAfb_Aufschubart],"& _ " [ezaAfb_ArtAufschubantrag], [ezaAfb_AufschubnehmerEORI], [ezaAfb_KontoNr], [eza"& _ "Afb_AufschuBIN], [ezaAfb_HZA], [AufschubnehmerName], [ezaAfb_Faelligkeit], [ezaA"& _ "fb_Zahlungsart], [ezaAfb_Abgabenbetrag], [ezaAfb_AbgabeArt]) VALUES (@ezaAfb_EZA"& _ "Id, @ezaAfb_Aufschubart, @ezaAfb_ArtAufschubantrag, @ezaAfb_AufschubnehmerEORI, "& _ "@ezaAfb_KontoNr, @ezaAfb_AufschuBIN, @ezaAfb_HZA, @AufschubnehmerName, @ezaAfb_F"& _ "aelligkeit, @ezaAfb_Zahlungsart, @ezaAfb_Abgabenbetrag, @ezaAfb_AbgabeArt);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ "ECT ezaAfb_Id, ezaAfb_EZAId, ezaAfb_Aufschubart, ezaAfb_ArtAufschubantrag, ezaAf"& _ "b_AufschubnehmerEORI, ezaAfb_KontoNr, ezaAfb_AufschuBIN, ezaAfb_HZA, Aufschubneh"& _ "merName, ezaAfb_Faelligkeit, ezaAfb_Zahlungsart, ezaAfb_Abgabenbetrag, ezaAfb_Ab"& _ "gabeArt FROM tblDakosy_EZA_Aufschub WHERE (ezaAfb_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_EZAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_Aufschubart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Aufschubart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_ArtAufschubantrag", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_ArtAufschubantrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_AufschubnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschubnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_KontoNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_KontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_AufschuBIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschuBIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_HZA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_HZA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_Faelligkeit", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Faelligkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_Zahlungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_Abgabenbetrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Abgabenbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_AbgabeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AbgabeArt", 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].[tblDakosy_EZA_Aufschub] SET [ezaAfb_EZAId] = @ezaAfb_EZAId, [ezaAfb"& _ "_Aufschubart] = @ezaAfb_Aufschubart, [ezaAfb_ArtAufschubantrag] = @ezaAfb_ArtAuf"& _ "schubantrag, [ezaAfb_AufschubnehmerEORI] = @ezaAfb_AufschubnehmerEORI, [ezaAfb_K"& _ "ontoNr] = @ezaAfb_KontoNr, [ezaAfb_AufschuBIN] = @ezaAfb_AufschuBIN, [ezaAfb_HZA"& _ "] = @ezaAfb_HZA, [AufschubnehmerName] = @AufschubnehmerName, [ezaAfb_Faelligkeit"& _ "] = @ezaAfb_Faelligkeit, [ezaAfb_Zahlungsart] = @ezaAfb_Zahlungsart, [ezaAfb_Abg"& _ "abenbetrag] = @ezaAfb_Abgabenbetrag, [ezaAfb_AbgabeArt] = @ezaAfb_AbgabeArt WHER"& _ "E (([ezaAfb_Id] = @Original_ezaAfb_Id) AND ([ezaAfb_EZAId] = @Original_ezaAfb_EZ"& _ "AId) AND ((@IsNull_ezaAfb_Aufschubart = 1 AND [ezaAfb_Aufschubart] IS NULL) OR ("& _ "[ezaAfb_Aufschubart] = @Original_ezaAfb_Aufschubart)) AND ((@IsNull_ezaAfb_ArtAu"& _ "fschubantrag = 1 AND [ezaAfb_ArtAufschubantrag] IS NULL) OR ([ezaAfb_ArtAufschub"& _ "antrag] = @Original_ezaAfb_ArtAufschubantrag)) AND ((@IsNull_ezaAfb_Aufschubnehm"& _ "erEORI = 1 AND [ezaAfb_AufschubnehmerEORI] IS NULL) OR ([ezaAfb_AufschubnehmerEO"& _ "RI] = @Original_ezaAfb_AufschubnehmerEORI)) AND ((@IsNull_ezaAfb_KontoNr = 1 AND"& _ " [ezaAfb_KontoNr] IS NULL) OR ([ezaAfb_KontoNr] = @Original_ezaAfb_KontoNr)) AND"& _ " ((@IsNull_ezaAfb_AufschuBIN = 1 AND [ezaAfb_AufschuBIN] IS NULL) OR ([ezaAfb_Au"& _ "fschuBIN] = @Original_ezaAfb_AufschuBIN)) AND ((@IsNull_ezaAfb_HZA = 1 AND [ezaA"& _ "fb_HZA] IS NULL) OR ([ezaAfb_HZA] = @Original_ezaAfb_HZA)) AND ((@IsNull_Aufschu"& _ "bnehmerName = 1 AND [AufschubnehmerName] IS NULL) OR ([AufschubnehmerName] = @Or"& _ "iginal_AufschubnehmerName)) AND ((@IsNull_ezaAfb_Faelligkeit = 1 AND [ezaAfb_Fae"& _ "lligkeit] IS NULL) OR ([ezaAfb_Faelligkeit] = @Original_ezaAfb_Faelligkeit)) AND"& _ " ((@IsNull_ezaAfb_Zahlungsart = 1 AND [ezaAfb_Zahlungsart] IS NULL) OR ([ezaAfb_"& _ "Zahlungsart] = @Original_ezaAfb_Zahlungsart)) AND ((@IsNull_ezaAfb_Abgabenbetrag"& _ " = 1 AND [ezaAfb_Abgabenbetrag] IS NULL) OR ([ezaAfb_Abgabenbetrag] = @Original_"& _ "ezaAfb_Abgabenbetrag)) AND ((@IsNull_ezaAfb_AbgabeArt = 1 AND [ezaAfb_AbgabeArt]"& _ " IS NULL) OR ([ezaAfb_AbgabeArt] = @Original_ezaAfb_AbgabeArt)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaAfb"& _ "_Id, ezaAfb_EZAId, ezaAfb_Aufschubart, ezaAfb_ArtAufschubantrag, ezaAfb_Aufschub"& _ "nehmerEORI, ezaAfb_KontoNr, ezaAfb_AufschuBIN, ezaAfb_HZA, AufschubnehmerName, e"& _ "zaAfb_Faelligkeit, ezaAfb_Zahlungsart, ezaAfb_Abgabenbetrag, ezaAfb_AbgabeArt FR"& _ "OM tblDakosy_EZA_Aufschub WHERE (ezaAfb_Id = @ezaAfb_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_EZAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_Aufschubart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Aufschubart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_ArtAufschubantrag", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_ArtAufschubantrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_AufschubnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschubnehmerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_KontoNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_KontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_AufschuBIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschuBIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_HZA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_HZA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubnehmerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_Faelligkeit", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Faelligkeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_Zahlungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_Abgabenbetrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Abgabenbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_AbgabeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AbgabeArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_EZAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_Aufschubart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Aufschubart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_Aufschubart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Aufschubart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_ArtAufschubantrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_ArtAufschubantrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_ArtAufschubantrag", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_ArtAufschubantrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_AufschubnehmerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschubnehmerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_AufschubnehmerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschubnehmerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_KontoNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_KontoNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_KontoNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_KontoNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_AufschuBIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschuBIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_AufschuBIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AufschuBIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_HZA", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_HZA", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_HZA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_HZA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AufschubnehmerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubnehmerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AufschubnehmerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AufschubnehmerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_Faelligkeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Faelligkeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_Faelligkeit", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Faelligkeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_Zahlungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Zahlungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_Zahlungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Zahlungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_Abgabenbetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Abgabenbetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_Abgabenbetrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Abgabenbetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaAfb_AbgabeArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AbgabeArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaAfb_AbgabeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_AbgabeArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaAfb_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaAfb_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezaAfb_Id, ezaAfb_EZAId, ezaAfb_Aufschubart, ezaAfb_ArtAufschubantrag, eza"& _ "Afb_AufschubnehmerEORI, ezaAfb_KontoNr, ezaAfb_AufschuBIN, ezaAfb_HZA, Aufschubn"& _ "ehmerName, ezaAfb_Faelligkeit, ezaAfb_Zahlungsart, ezaAfb_Abgabenbetrag, ezaAfb_"& _ "AbgabeArt FROM dbo.tblDakosy_EZA_Aufschub" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_AufschubDataTable) 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 VERAGDataSet.tblDakosy_EZA_AufschubDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_EZA_AufschubDataTable = New VERAGDataSet.tblDakosy_EZA_AufschubDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_AufschubDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_EZA_Aufschub") 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_ezaAfb_Id As Integer, ByVal Original_ezaAfb_EZAId As Integer, ByVal Original_ezaAfb_Aufschubart As String, ByVal Original_ezaAfb_ArtAufschubantrag As String, ByVal Original_ezaAfb_AufschubnehmerEORI As String, ByVal Original_ezaAfb_KontoNr As String, ByVal Original_ezaAfb_AufschuBIN As String, ByVal Original_ezaAfb_HZA As String, ByVal Original_AufschubnehmerName As String, ByVal Original_ezaAfb_Faelligkeit As Global.System.Nullable(Of Date), ByVal Original_ezaAfb_Zahlungsart As String, ByVal Original_ezaAfb_Abgabenbetrag As Global.System.Nullable(Of Double), ByVal Original_ezaAfb_AbgabeArt As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezaAfb_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezaAfb_EZAId,Integer) If (Original_ezaAfb_Aufschubart 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_ezaAfb_Aufschubart,String) End If If (Original_ezaAfb_ArtAufschubantrag 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_ezaAfb_ArtAufschubantrag,String) End If If (Original_ezaAfb_AufschubnehmerEORI 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_ezaAfb_AufschubnehmerEORI,String) End If If (Original_ezaAfb_KontoNr 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_ezaAfb_KontoNr,String) End If If (Original_ezaAfb_AufschuBIN 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_ezaAfb_AufschuBIN,String) End If If (Original_ezaAfb_HZA 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_ezaAfb_HZA,String) End If If (Original_AufschubnehmerName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_AufschubnehmerName,String) End If If (Original_ezaAfb_Faelligkeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ezaAfb_Faelligkeit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_ezaAfb_Zahlungsart 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_ezaAfb_Zahlungsart,String) End If If (Original_ezaAfb_Abgabenbetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_ezaAfb_Abgabenbetrag.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_ezaAfb_AbgabeArt 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_ezaAfb_AbgabeArt,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 ezaAfb_EZAId As Integer, ByVal ezaAfb_Aufschubart As String, ByVal ezaAfb_ArtAufschubantrag As String, ByVal ezaAfb_AufschubnehmerEORI As String, ByVal ezaAfb_KontoNr As String, ByVal ezaAfb_AufschuBIN As String, ByVal ezaAfb_HZA As String, ByVal AufschubnehmerName As String, ByVal ezaAfb_Faelligkeit As Global.System.Nullable(Of Date), ByVal ezaAfb_Zahlungsart As String, ByVal ezaAfb_Abgabenbetrag As Global.System.Nullable(Of Double), ByVal ezaAfb_AbgabeArt As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezaAfb_EZAId,Integer) If (ezaAfb_Aufschubart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezaAfb_Aufschubart,String) End If If (ezaAfb_ArtAufschubantrag Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezaAfb_ArtAufschubantrag,String) End If If (ezaAfb_AufschubnehmerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezaAfb_AufschubnehmerEORI,String) End If If (ezaAfb_KontoNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ezaAfb_KontoNr,String) End If If (ezaAfb_AufschuBIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ezaAfb_AufschuBIN,String) End If If (ezaAfb_HZA Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ezaAfb_HZA,String) End If If (AufschubnehmerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(AufschubnehmerName,String) End If If (ezaAfb_Faelligkeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(ezaAfb_Faelligkeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (ezaAfb_Zahlungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(ezaAfb_Zahlungsart,String) End If If (ezaAfb_Abgabenbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(ezaAfb_Abgabenbetrag.Value,Double) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (ezaAfb_AbgabeArt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(ezaAfb_AbgabeArt,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 ezaAfb_EZAId As Integer, _ ByVal ezaAfb_Aufschubart As String, _ ByVal ezaAfb_ArtAufschubantrag As String, _ ByVal ezaAfb_AufschubnehmerEORI As String, _ ByVal ezaAfb_KontoNr As String, _ ByVal ezaAfb_AufschuBIN As String, _ ByVal ezaAfb_HZA As String, _ ByVal AufschubnehmerName As String, _ ByVal ezaAfb_Faelligkeit As Global.System.Nullable(Of Date), _ ByVal ezaAfb_Zahlungsart As String, _ ByVal ezaAfb_Abgabenbetrag As Global.System.Nullable(Of Double), _ ByVal ezaAfb_AbgabeArt As String, _ ByVal Original_ezaAfb_Id As Integer, _ ByVal Original_ezaAfb_EZAId As Integer, _ ByVal Original_ezaAfb_Aufschubart As String, _ ByVal Original_ezaAfb_ArtAufschubantrag As String, _ ByVal Original_ezaAfb_AufschubnehmerEORI As String, _ ByVal Original_ezaAfb_KontoNr As String, _ ByVal Original_ezaAfb_AufschuBIN As String, _ ByVal Original_ezaAfb_HZA As String, _ ByVal Original_AufschubnehmerName As String, _ ByVal Original_ezaAfb_Faelligkeit As Global.System.Nullable(Of Date), _ ByVal Original_ezaAfb_Zahlungsart As String, _ ByVal Original_ezaAfb_Abgabenbetrag As Global.System.Nullable(Of Double), _ ByVal Original_ezaAfb_AbgabeArt As String, _ ByVal ezaAfb_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezaAfb_EZAId,Integer) If (ezaAfb_Aufschubart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezaAfb_Aufschubart,String) End If If (ezaAfb_ArtAufschubantrag Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezaAfb_ArtAufschubantrag,String) End If If (ezaAfb_AufschubnehmerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezaAfb_AufschubnehmerEORI,String) End If If (ezaAfb_KontoNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ezaAfb_KontoNr,String) End If If (ezaAfb_AufschuBIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ezaAfb_AufschuBIN,String) End If If (ezaAfb_HZA Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ezaAfb_HZA,String) End If If (AufschubnehmerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AufschubnehmerName,String) End If If (ezaAfb_Faelligkeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ezaAfb_Faelligkeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (ezaAfb_Zahlungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ezaAfb_Zahlungsart,String) End If If (ezaAfb_Abgabenbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ezaAfb_Abgabenbetrag.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (ezaAfb_AbgabeArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ezaAfb_AbgabeArt,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ezaAfb_Id,Integer) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ezaAfb_EZAId,Integer) If (Original_ezaAfb_Aufschubart 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_ezaAfb_Aufschubart,String) End If If (Original_ezaAfb_ArtAufschubantrag Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ezaAfb_ArtAufschubantrag,String) End If If (Original_ezaAfb_AufschubnehmerEORI 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_ezaAfb_AufschubnehmerEORI,String) End If If (Original_ezaAfb_KontoNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ezaAfb_KontoNr,String) End If If (Original_ezaAfb_AufschuBIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_ezaAfb_AufschuBIN,String) End If If (Original_ezaAfb_HZA 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_ezaAfb_HZA,String) End If If (Original_AufschubnehmerName 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_AufschubnehmerName,String) End If If (Original_ezaAfb_Faelligkeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ezaAfb_Faelligkeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Original_ezaAfb_Zahlungsart 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_ezaAfb_Zahlungsart,String) End If If (Original_ezaAfb_Abgabenbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_ezaAfb_Abgabenbetrag.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_ezaAfb_AbgabeArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_ezaAfb_AbgabeArt,String) End If Me.Adapter.UpdateCommand.Parameters(36).Value = CType(ezaAfb_Id,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 ezaAfb_EZAId As Integer, _ ByVal ezaAfb_Aufschubart As String, _ ByVal ezaAfb_ArtAufschubantrag As String, _ ByVal ezaAfb_AufschubnehmerEORI As String, _ ByVal ezaAfb_KontoNr As String, _ ByVal ezaAfb_AufschuBIN As String, _ ByVal ezaAfb_HZA As String, _ ByVal AufschubnehmerName As String, _ ByVal ezaAfb_Faelligkeit As Global.System.Nullable(Of Date), _ ByVal ezaAfb_Zahlungsart As String, _ ByVal ezaAfb_Abgabenbetrag As Global.System.Nullable(Of Double), _ ByVal ezaAfb_AbgabeArt As String, _ ByVal Original_ezaAfb_Id As Integer, _ ByVal Original_ezaAfb_EZAId As Integer, _ ByVal Original_ezaAfb_Aufschubart As String, _ ByVal Original_ezaAfb_ArtAufschubantrag As String, _ ByVal Original_ezaAfb_AufschubnehmerEORI As String, _ ByVal Original_ezaAfb_KontoNr As String, _ ByVal Original_ezaAfb_AufschuBIN As String, _ ByVal Original_ezaAfb_HZA As String, _ ByVal Original_AufschubnehmerName As String, _ ByVal Original_ezaAfb_Faelligkeit As Global.System.Nullable(Of Date), _ ByVal Original_ezaAfb_Zahlungsart As String, _ ByVal Original_ezaAfb_Abgabenbetrag As Global.System.Nullable(Of Double), _ ByVal Original_ezaAfb_AbgabeArt As String) As Integer Return Me.Update(ezaAfb_EZAId, ezaAfb_Aufschubart, ezaAfb_ArtAufschubantrag, ezaAfb_AufschubnehmerEORI, ezaAfb_KontoNr, ezaAfb_AufschuBIN, ezaAfb_HZA, AufschubnehmerName, ezaAfb_Faelligkeit, ezaAfb_Zahlungsart, ezaAfb_Abgabenbetrag, ezaAfb_AbgabeArt, Original_ezaAfb_Id, Original_ezaAfb_EZAId, Original_ezaAfb_Aufschubart, Original_ezaAfb_ArtAufschubantrag, Original_ezaAfb_AufschubnehmerEORI, Original_ezaAfb_KontoNr, Original_ezaAfb_AufschuBIN, Original_ezaAfb_HZA, Original_AufschubnehmerName, Original_ezaAfb_Faelligkeit, Original_ezaAfb_Zahlungsart, Original_ezaAfb_Abgabenbetrag, Original_ezaAfb_AbgabeArt, Original_ezaAfb_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_EZA_BEAnteilZLAVUVTableAdapter 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 = "tblDakosy_EZA_BEAnteilZLAVUV" tableMapping.ColumnMappings.Add("ezaBAZ_Id", "ezaBAZ_Id") tableMapping.ColumnMappings.Add("ezaBAZ_EZAId", "ezaBAZ_EZAId") tableMapping.ColumnMappings.Add("ezaBAZ_RegistrierNummerZugang", "ezaBAZ_RegistrierNummerZugang") tableMapping.ColumnMappings.Add("ezaBAZ_PositionZugang", "ezaBAZ_PositionZugang") tableMapping.ColumnMappings.Add("ezaBAZ_ArtikelCodeATZL", "ezaBAZ_ArtikelCodeATZL") tableMapping.ColumnMappings.Add("ezaBAZ_EigentuemerATUL", "ezaBAZ_EigentuemerATUL") tableMapping.ColumnMappings.Add("ezaBAZ_ChargennummerATZL", "ezaBAZ_ChargennummerATZL") tableMapping.ColumnMappings.Add("ezaBAZ_UrsprungslandATZL", "ezaBAZ_UrsprungslandATZL") tableMapping.ColumnMappings.Add("ezaBAZ_AtlasKz", "ezaBAZ_AtlasKz") tableMapping.ColumnMappings.Add("ezaBAZ_Wartennummer", "ezaBAZ_Wartennummer") tableMapping.ColumnMappings.Add("ezaBAZ_UeblicheBehandlungKz", "ezaBAZ_UeblicheBehandlungKz") tableMapping.ColumnMappings.Add("ezaBAZ_Handelsmenge", "ezaBAZ_Handelsmenge") tableMapping.ColumnMappings.Add("ezaBAZ_MasseinheitHandelsmenge", "ezaBAZ_MasseinheitHandelsmenge") tableMapping.ColumnMappings.Add("ezaBAZ_QualifikatorHandelsmenge", "ezaBAZ_QualifikatorHandelsmenge") tableMapping.ColumnMappings.Add("ezaBAZ_Abgangsmenge", "ezaBAZ_Abgangsmenge") tableMapping.ColumnMappings.Add("ezaBAZ_MasseinheitAbgangsmenge", "ezaBAZ_MasseinheitAbgangsmenge") tableMapping.ColumnMappings.Add("ezaBAZ_QualifikatorAbgangsmenge", "ezaBAZ_QualifikatorAbgangsmenge") tableMapping.ColumnMappings.Add("ezaBAZ_Positionszusatz", "ezaBAZ_Positionszusatz") tableMapping.ColumnMappings.Add("ezaBAZ_WarenbezogeneAngaben", "ezaBAZ_WarenbezogeneAngaben") 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].[tblDakosy_EZA_BEAnteilZLAVUV] WHERE (([ezaBAZ_Id] = @Original_"& _ "ezaBAZ_Id) AND ([ezaBAZ_EZAId] = @Original_ezaBAZ_EZAId) AND ((@IsNull_ezaBAZ_Re"& _ "gistrierNummerZugang = 1 AND [ezaBAZ_RegistrierNummerZugang] IS NULL) OR ([ezaBA"& _ "Z_RegistrierNummerZugang] = @Original_ezaBAZ_RegistrierNummerZugang)) AND ((@IsN"& _ "ull_ezaBAZ_PositionZugang = 1 AND [ezaBAZ_PositionZugang] IS NULL) OR ([ezaBAZ_P"& _ "ositionZugang] = @Original_ezaBAZ_PositionZugang)) AND ((@IsNull_ezaBAZ_ArtikelC"& _ "odeATZL = 1 AND [ezaBAZ_ArtikelCodeATZL] IS NULL) OR ([ezaBAZ_ArtikelCodeATZL] ="& _ " @Original_ezaBAZ_ArtikelCodeATZL)) AND ((@IsNull_ezaBAZ_EigentuemerATUL = 1 AND"& _ " [ezaBAZ_EigentuemerATUL] IS NULL) OR ([ezaBAZ_EigentuemerATUL] = @Original_ezaB"& _ "AZ_EigentuemerATUL)) AND ((@IsNull_ezaBAZ_ChargennummerATZL = 1 AND [ezaBAZ_Char"& _ "gennummerATZL] IS NULL) OR ([ezaBAZ_ChargennummerATZL] = @Original_ezaBAZ_Charge"& _ "nnummerATZL)) AND ((@IsNull_ezaBAZ_UrsprungslandATZL = 1 AND [ezaBAZ_Ursprungsla"& _ "ndATZL] IS NULL) OR ([ezaBAZ_UrsprungslandATZL] = @Original_ezaBAZ_Ursprungsland"& _ "ATZL)) AND ((@IsNull_ezaBAZ_AtlasKz = 1 AND [ezaBAZ_AtlasKz] IS NULL) OR ([ezaBA"& _ "Z_AtlasKz] = @Original_ezaBAZ_AtlasKz)) AND ((@IsNull_ezaBAZ_Wartennummer = 1 AN"& _ "D [ezaBAZ_Wartennummer] IS NULL) OR ([ezaBAZ_Wartennummer] = @Original_ezaBAZ_Wa"& _ "rtennummer)) AND ((@IsNull_ezaBAZ_UeblicheBehandlungKz = 1 AND [ezaBAZ_UeblicheB"& _ "ehandlungKz] IS NULL) OR ([ezaBAZ_UeblicheBehandlungKz] = @Original_ezaBAZ_Uebli"& _ "cheBehandlungKz)) AND ((@IsNull_ezaBAZ_Handelsmenge = 1 AND [ezaBAZ_Handelsmenge"& _ "] IS NULL) OR ([ezaBAZ_Handelsmenge] = @Original_ezaBAZ_Handelsmenge)) AND ((@Is"& _ "Null_ezaBAZ_MasseinheitHandelsmenge = 1 AND [ezaBAZ_MasseinheitHandelsmenge] IS "& _ "NULL) OR ([ezaBAZ_MasseinheitHandelsmenge] = @Original_ezaBAZ_MasseinheitHandels"& _ "menge)) AND ((@IsNull_ezaBAZ_QualifikatorHandelsmenge = 1 AND [ezaBAZ_Qualifikat"& _ "orHandelsmenge] IS NULL) OR ([ezaBAZ_QualifikatorHandelsmenge] = @Original_ezaBA"& _ "Z_QualifikatorHandelsmenge)) AND ((@IsNull_ezaBAZ_Abgangsmenge = 1 AND [ezaBAZ_A"& _ "bgangsmenge] IS NULL) OR ([ezaBAZ_Abgangsmenge] = @Original_ezaBAZ_Abgangsmenge)"& _ ") AND ((@IsNull_ezaBAZ_MasseinheitAbgangsmenge = 1 AND [ezaBAZ_MasseinheitAbgang"& _ "smenge] IS NULL) OR ([ezaBAZ_MasseinheitAbgangsmenge] = @Original_ezaBAZ_Massein"& _ "heitAbgangsmenge)) AND ((@IsNull_ezaBAZ_QualifikatorAbgangsmenge = 1 AND [ezaBAZ"& _ "_QualifikatorAbgangsmenge] IS NULL) OR ([ezaBAZ_QualifikatorAbgangsmenge] = @Ori"& _ "ginal_ezaBAZ_QualifikatorAbgangsmenge)) AND ((@IsNull_ezaBAZ_Positionszusatz = 1"& _ " AND [ezaBAZ_Positionszusatz] IS NULL) OR ([ezaBAZ_Positionszusatz] = @Original_"& _ "ezaBAZ_Positionszusatz)) AND ((@IsNull_ezaBAZ_WarenbezogeneAngaben = 1 AND [ezaB"& _ "AZ_WarenbezogeneAngaben] IS NULL) OR ([ezaBAZ_WarenbezogeneAngaben] = @Original_"& _ "ezaBAZ_WarenbezogeneAngaben)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_EZAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_RegistrierNummerZugang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_RegistrierNummerZugang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_RegistrierNummerZugang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_RegistrierNummerZugang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_PositionZugang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_PositionZugang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_PositionZugang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_PositionZugang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_ArtikelCodeATZL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ArtikelCodeATZL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_ArtikelCodeATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ArtikelCodeATZL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_EigentuemerATUL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_EigentuemerATUL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_EigentuemerATUL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_EigentuemerATUL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_ChargennummerATZL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ChargennummerATZL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_ChargennummerATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ChargennummerATZL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_UrsprungslandATZL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UrsprungslandATZL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_UrsprungslandATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UrsprungslandATZL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_AtlasKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_AtlasKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_AtlasKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_AtlasKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_Wartennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Wartennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_Wartennummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 0, "ezaBAZ_Wartennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_UeblicheBehandlungKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UeblicheBehandlungKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_UeblicheBehandlungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UeblicheBehandlungKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_Handelsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Handelsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_Handelsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaBAZ_Handelsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_Abgangsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Abgangsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_Abgangsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaBAZ_Abgangsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_Positionszusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Positionszusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_Positionszusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Positionszusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_WarenbezogeneAngaben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_WarenbezogeneAngaben", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_WarenbezogeneAngaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_WarenbezogeneAngaben", 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].[tblDakosy_EZA_BEAnteilZLAVUV] ([ezaBAZ_EZAId], [ezaBAZ_Registr"& _ "ierNummerZugang], [ezaBAZ_PositionZugang], [ezaBAZ_ArtikelCodeATZL], [ezaBAZ_Eig"& _ "entuemerATUL], [ezaBAZ_ChargennummerATZL], [ezaBAZ_UrsprungslandATZL], [ezaBAZ_A"& _ "tlasKz], [ezaBAZ_Wartennummer], [ezaBAZ_UeblicheBehandlungKz], [ezaBAZ_Handelsme"& _ "nge], [ezaBAZ_MasseinheitHandelsmenge], [ezaBAZ_QualifikatorHandelsmenge], [ezaB"& _ "AZ_Abgangsmenge], [ezaBAZ_MasseinheitAbgangsmenge], [ezaBAZ_QualifikatorAbgangsm"& _ "enge], [ezaBAZ_Positionszusatz], [ezaBAZ_WarenbezogeneAngaben]) VALUES (@ezaBAZ_"& _ "EZAId, @ezaBAZ_RegistrierNummerZugang, @ezaBAZ_PositionZugang, @ezaBAZ_ArtikelCo"& _ "deATZL, @ezaBAZ_EigentuemerATUL, @ezaBAZ_ChargennummerATZL, @ezaBAZ_Ursprungslan"& _ "dATZL, @ezaBAZ_AtlasKz, @ezaBAZ_Wartennummer, @ezaBAZ_UeblicheBehandlungKz, @eza"& _ "BAZ_Handelsmenge, @ezaBAZ_MasseinheitHandelsmenge, @ezaBAZ_QualifikatorHandelsme"& _ "nge, @ezaBAZ_Abgangsmenge, @ezaBAZ_MasseinheitAbgangsmenge, @ezaBAZ_Qualifikator"& _ "Abgangsmenge, @ezaBAZ_Positionszusatz, @ezaBAZ_WarenbezogeneAngaben);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ez"& _ "aBAZ_Id, ezaBAZ_EZAId, ezaBAZ_RegistrierNummerZugang, ezaBAZ_PositionZugang, eza"& _ "BAZ_ArtikelCodeATZL, ezaBAZ_EigentuemerATUL, ezaBAZ_ChargennummerATZL, ezaBAZ_Ur"& _ "sprungslandATZL, ezaBAZ_AtlasKz, ezaBAZ_Wartennummer, ezaBAZ_UeblicheBehandlungK"& _ "z, ezaBAZ_Handelsmenge, ezaBAZ_MasseinheitHandelsmenge, ezaBAZ_QualifikatorHande"& _ "lsmenge, ezaBAZ_Abgangsmenge, ezaBAZ_MasseinheitAbgangsmenge, ezaBAZ_Qualifikato"& _ "rAbgangsmenge, ezaBAZ_Positionszusatz, ezaBAZ_WarenbezogeneAngaben FROM tblDakos"& _ "y_EZA_BEAnteilZLAVUV WHERE (ezaBAZ_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_EZAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_RegistrierNummerZugang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_RegistrierNummerZugang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_PositionZugang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_PositionZugang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_ArtikelCodeATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ArtikelCodeATZL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_EigentuemerATUL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_EigentuemerATUL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_ChargennummerATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ChargennummerATZL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_UrsprungslandATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UrsprungslandATZL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_AtlasKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_AtlasKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_Wartennummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 0, "ezaBAZ_Wartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_UeblicheBehandlungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UeblicheBehandlungKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_Handelsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaBAZ_Handelsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_Abgangsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaBAZ_Abgangsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_Positionszusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Positionszusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_WarenbezogeneAngaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_WarenbezogeneAngaben", 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].[tblDakosy_EZA_BEAnteilZLAVUV] SET [ezaBAZ_EZAId] = @ezaBAZ_EZAId, ["& _ "ezaBAZ_RegistrierNummerZugang] = @ezaBAZ_RegistrierNummerZugang, [ezaBAZ_Positio"& _ "nZugang] = @ezaBAZ_PositionZugang, [ezaBAZ_ArtikelCodeATZL] = @ezaBAZ_ArtikelCod"& _ "eATZL, [ezaBAZ_EigentuemerATUL] = @ezaBAZ_EigentuemerATUL, [ezaBAZ_Chargennummer"& _ "ATZL] = @ezaBAZ_ChargennummerATZL, [ezaBAZ_UrsprungslandATZL] = @ezaBAZ_Ursprung"& _ "slandATZL, [ezaBAZ_AtlasKz] = @ezaBAZ_AtlasKz, [ezaBAZ_Wartennummer] = @ezaBAZ_W"& _ "artennummer, [ezaBAZ_UeblicheBehandlungKz] = @ezaBAZ_UeblicheBehandlungKz, [ezaB"& _ "AZ_Handelsmenge] = @ezaBAZ_Handelsmenge, [ezaBAZ_MasseinheitHandelsmenge] = @eza"& _ "BAZ_MasseinheitHandelsmenge, [ezaBAZ_QualifikatorHandelsmenge] = @ezaBAZ_Qualifi"& _ "katorHandelsmenge, [ezaBAZ_Abgangsmenge] = @ezaBAZ_Abgangsmenge, [ezaBAZ_Massein"& _ "heitAbgangsmenge] = @ezaBAZ_MasseinheitAbgangsmenge, [ezaBAZ_QualifikatorAbgangs"& _ "menge] = @ezaBAZ_QualifikatorAbgangsmenge, [ezaBAZ_Positionszusatz] = @ezaBAZ_Po"& _ "sitionszusatz, [ezaBAZ_WarenbezogeneAngaben] = @ezaBAZ_WarenbezogeneAngaben WHER"& _ "E (([ezaBAZ_Id] = @Original_ezaBAZ_Id) AND ([ezaBAZ_EZAId] = @Original_ezaBAZ_EZ"& _ "AId) AND ((@IsNull_ezaBAZ_RegistrierNummerZugang = 1 AND [ezaBAZ_RegistrierNumme"& _ "rZugang] IS NULL) OR ([ezaBAZ_RegistrierNummerZugang] = @Original_ezaBAZ_Registr"& _ "ierNummerZugang)) AND ((@IsNull_ezaBAZ_PositionZugang = 1 AND [ezaBAZ_PositionZu"& _ "gang] IS NULL) OR ([ezaBAZ_PositionZugang] = @Original_ezaBAZ_PositionZugang)) A"& _ "ND ((@IsNull_ezaBAZ_ArtikelCodeATZL = 1 AND [ezaBAZ_ArtikelCodeATZL] IS NULL) OR"& _ " ([ezaBAZ_ArtikelCodeATZL] = @Original_ezaBAZ_ArtikelCodeATZL)) AND ((@IsNull_ez"& _ "aBAZ_EigentuemerATUL = 1 AND [ezaBAZ_EigentuemerATUL] IS NULL) OR ([ezaBAZ_Eigen"& _ "tuemerATUL] = @Original_ezaBAZ_EigentuemerATUL)) AND ((@IsNull_ezaBAZ_Chargennum"& _ "merATZL = 1 AND [ezaBAZ_ChargennummerATZL] IS NULL) OR ([ezaBAZ_ChargennummerATZ"& _ "L] = @Original_ezaBAZ_ChargennummerATZL)) AND ((@IsNull_ezaBAZ_UrsprungslandATZL"& _ " = 1 AND [ezaBAZ_UrsprungslandATZL] IS NULL) OR ([ezaBAZ_UrsprungslandATZL] = @O"& _ "riginal_ezaBAZ_UrsprungslandATZL)) AND ((@IsNull_ezaBAZ_AtlasKz = 1 AND [ezaBAZ_"& _ "AtlasKz] IS NULL) OR ([ezaBAZ_AtlasKz] = @Original_ezaBAZ_AtlasKz)) AND ((@IsNul"& _ "l_ezaBAZ_Wartennummer = 1 AND [ezaBAZ_Wartennummer] IS NULL) OR ([ezaBAZ_Wartenn"& _ "ummer] = @Original_ezaBAZ_Wartennummer)) AND ((@IsNull_ezaBAZ_UeblicheBehandlung"& _ "Kz = 1 AND [ezaBAZ_UeblicheBehandlungKz] IS NULL) OR ([ezaBAZ_UeblicheBehandlung"& _ "Kz] = @Original_ezaBAZ_UeblicheBehandlungKz)) AND ((@IsNull_ezaBAZ_Handelsmenge "& _ "= 1 AND [ezaBAZ_Handelsmenge] IS NULL) OR ([ezaBAZ_Handelsmenge] = @Original_eza"& _ "BAZ_Handelsmenge)) AND ((@IsNull_ezaBAZ_MasseinheitHandelsmenge = 1 AND [ezaBAZ_"& _ "MasseinheitHandelsmenge] IS NULL) OR ([ezaBAZ_MasseinheitHandelsmenge] = @Origin"& _ "al_ezaBAZ_MasseinheitHandelsmenge)) AND ((@IsNull_ezaBAZ_QualifikatorHandelsmeng"& _ "e = 1 AND [ezaBAZ_QualifikatorHandelsmenge] IS NULL) OR ([ezaBAZ_QualifikatorHan"& _ "delsmenge] = @Original_ezaBAZ_QualifikatorHandelsmenge)) AND ((@IsNull_ezaBAZ_Ab"& _ "gangsmenge = 1 AND [ezaBAZ_Abgangsmenge] IS NULL) OR ([ezaBAZ_Abgangsmenge] = @O"& _ "riginal_ezaBAZ_Abgangsmenge)) AND ((@IsNull_ezaBAZ_MasseinheitAbgangsmenge = 1 A"& _ "ND [ezaBAZ_MasseinheitAbgangsmenge] IS NULL) OR ([ezaBAZ_MasseinheitAbgangsmenge"& _ "] = @Original_ezaBAZ_MasseinheitAbgangsmenge)) AND ((@IsNull_ezaBAZ_Qualifikator"& _ "Abgangsmenge = 1 AND [ezaBAZ_QualifikatorAbgangsmenge] IS NULL) OR ([ezaBAZ_Qual"& _ "ifikatorAbgangsmenge] = @Original_ezaBAZ_QualifikatorAbgangsmenge)) AND ((@IsNul"& _ "l_ezaBAZ_Positionszusatz = 1 AND [ezaBAZ_Positionszusatz] IS NULL) OR ([ezaBAZ_P"& _ "ositionszusatz] = @Original_ezaBAZ_Positionszusatz)) AND ((@IsNull_ezaBAZ_Warenb"& _ "ezogeneAngaben = 1 AND [ezaBAZ_WarenbezogeneAngaben] IS NULL) OR ([ezaBAZ_Warenb"& _ "ezogeneAngaben] = @Original_ezaBAZ_WarenbezogeneAngaben)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaBAZ_Id, e"& _ "zaBAZ_EZAId, ezaBAZ_RegistrierNummerZugang, ezaBAZ_PositionZugang, ezaBAZ_Artike"& _ "lCodeATZL, ezaBAZ_EigentuemerATUL, ezaBAZ_ChargennummerATZL, ezaBAZ_Ursprungslan"& _ "dATZL, ezaBAZ_AtlasKz, ezaBAZ_Wartennummer, ezaBAZ_UeblicheBehandlungKz, ezaBAZ_"& _ "Handelsmenge, ezaBAZ_MasseinheitHandelsmenge, ezaBAZ_QualifikatorHandelsmenge, e"& _ "zaBAZ_Abgangsmenge, ezaBAZ_MasseinheitAbgangsmenge, ezaBAZ_QualifikatorAbgangsme"& _ "nge, ezaBAZ_Positionszusatz, ezaBAZ_WarenbezogeneAngaben FROM tblDakosy_EZA_BEAn"& _ "teilZLAVUV WHERE (ezaBAZ_Id = @ezaBAZ_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_EZAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_RegistrierNummerZugang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_RegistrierNummerZugang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_PositionZugang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_PositionZugang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_ArtikelCodeATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ArtikelCodeATZL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_EigentuemerATUL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_EigentuemerATUL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_ChargennummerATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ChargennummerATZL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_UrsprungslandATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UrsprungslandATZL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_AtlasKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_AtlasKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_Wartennummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 0, "ezaBAZ_Wartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_UeblicheBehandlungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UeblicheBehandlungKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_Handelsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaBAZ_Handelsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_Abgangsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaBAZ_Abgangsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_Positionszusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Positionszusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_WarenbezogeneAngaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_WarenbezogeneAngaben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_EZAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_RegistrierNummerZugang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_RegistrierNummerZugang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_RegistrierNummerZugang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_RegistrierNummerZugang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_PositionZugang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_PositionZugang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_PositionZugang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_PositionZugang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_ArtikelCodeATZL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ArtikelCodeATZL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_ArtikelCodeATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ArtikelCodeATZL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_EigentuemerATUL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_EigentuemerATUL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_EigentuemerATUL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_EigentuemerATUL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_ChargennummerATZL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ChargennummerATZL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_ChargennummerATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_ChargennummerATZL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_UrsprungslandATZL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UrsprungslandATZL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_UrsprungslandATZL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UrsprungslandATZL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_AtlasKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_AtlasKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_AtlasKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_AtlasKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_Wartennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Wartennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_Wartennummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 0, "ezaBAZ_Wartennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_UeblicheBehandlungKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UeblicheBehandlungKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_UeblicheBehandlungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_UeblicheBehandlungKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_Handelsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Handelsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_Handelsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaBAZ_Handelsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitHandelsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorHandelsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_Abgangsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Abgangsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_Abgangsmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaBAZ_Abgangsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_MasseinheitAbgangsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_QualifikatorAbgangsmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_Positionszusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Positionszusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_Positionszusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Positionszusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBAZ_WarenbezogeneAngaben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_WarenbezogeneAngaben", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBAZ_WarenbezogeneAngaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_WarenbezogeneAngaben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBAZ_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBAZ_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezaBAZ_Id, ezaBAZ_EZAId, ezaBAZ_RegistrierNummerZugang, ezaBAZ_PositionZug"& _ "ang, ezaBAZ_ArtikelCodeATZL, ezaBAZ_EigentuemerATUL, ezaBAZ_ChargennummerATZL, e"& _ "zaBAZ_UrsprungslandATZL, ezaBAZ_AtlasKz, ezaBAZ_Wartennummer, ezaBAZ_UeblicheBeh"& _ "andlungKz, ezaBAZ_Handelsmenge, ezaBAZ_MasseinheitHandelsmenge, ezaBAZ_Qualifika"& _ "torHandelsmenge, ezaBAZ_Abgangsmenge, ezaBAZ_MasseinheitAbgangsmenge, ezaBAZ_Qua"& _ "lifikatorAbgangsmenge, ezaBAZ_Positionszusatz, ezaBAZ_WarenbezogeneAngaben FROM "& _ "dbo.tblDakosy_EZA_BEAnteilZLAVUV" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_BEAnteilZLAVUVDataTable) 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 VERAGDataSet.tblDakosy_EZA_BEAnteilZLAVUVDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_EZA_BEAnteilZLAVUVDataTable = New VERAGDataSet.tblDakosy_EZA_BEAnteilZLAVUVDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_BEAnteilZLAVUVDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_EZA_BEAnteilZLAVUV") 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_ezaBAZ_Id As Integer, _ ByVal Original_ezaBAZ_EZAId As Integer, _ ByVal Original_ezaBAZ_RegistrierNummerZugang As String, _ ByVal Original_ezaBAZ_PositionZugang As String, _ ByVal Original_ezaBAZ_ArtikelCodeATZL As String, _ ByVal Original_ezaBAZ_EigentuemerATUL As String, _ ByVal Original_ezaBAZ_ChargennummerATZL As String, _ ByVal Original_ezaBAZ_UrsprungslandATZL As String, _ ByVal Original_ezaBAZ_AtlasKz As String, _ ByVal Original_ezaBAZ_Wartennummer As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBAZ_UeblicheBehandlungKz As String, _ ByVal Original_ezaBAZ_Handelsmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBAZ_MasseinheitHandelsmenge As String, _ ByVal Original_ezaBAZ_QualifikatorHandelsmenge As String, _ ByVal Original_ezaBAZ_Abgangsmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBAZ_MasseinheitAbgangsmenge As String, _ ByVal Original_ezaBAZ_QualifikatorAbgangsmenge As String, _ ByVal Original_ezaBAZ_Positionszusatz As String, _ ByVal Original_ezaBAZ_WarenbezogeneAngaben As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezaBAZ_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezaBAZ_EZAId,Integer) If (Original_ezaBAZ_RegistrierNummerZugang 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_ezaBAZ_RegistrierNummerZugang,String) End If If (Original_ezaBAZ_PositionZugang 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_ezaBAZ_PositionZugang,String) End If If (Original_ezaBAZ_ArtikelCodeATZL 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_ezaBAZ_ArtikelCodeATZL,String) End If If (Original_ezaBAZ_EigentuemerATUL 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_ezaBAZ_EigentuemerATUL,String) End If If (Original_ezaBAZ_ChargennummerATZL 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_ezaBAZ_ChargennummerATZL,String) End If If (Original_ezaBAZ_UrsprungslandATZL 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_ezaBAZ_UrsprungslandATZL,String) End If If (Original_ezaBAZ_AtlasKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_ezaBAZ_AtlasKz,String) End If If (Original_ezaBAZ_Wartennummer.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ezaBAZ_Wartennummer.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_ezaBAZ_UeblicheBehandlungKz 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_ezaBAZ_UeblicheBehandlungKz,String) End If If (Original_ezaBAZ_Handelsmenge.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_ezaBAZ_Handelsmenge.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_ezaBAZ_MasseinheitHandelsmenge 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_ezaBAZ_MasseinheitHandelsmenge,String) End If If (Original_ezaBAZ_QualifikatorHandelsmenge 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_ezaBAZ_QualifikatorHandelsmenge,String) End If If (Original_ezaBAZ_Abgangsmenge.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_ezaBAZ_Abgangsmenge.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_ezaBAZ_MasseinheitAbgangsmenge 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_ezaBAZ_MasseinheitAbgangsmenge,String) End If If (Original_ezaBAZ_QualifikatorAbgangsmenge Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_ezaBAZ_QualifikatorAbgangsmenge,String) End If If (Original_ezaBAZ_Positionszusatz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_ezaBAZ_Positionszusatz,String) End If If (Original_ezaBAZ_WarenbezogeneAngaben Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_ezaBAZ_WarenbezogeneAngaben,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 ezaBAZ_EZAId As Integer, _ ByVal ezaBAZ_RegistrierNummerZugang As String, _ ByVal ezaBAZ_PositionZugang As String, _ ByVal ezaBAZ_ArtikelCodeATZL As String, _ ByVal ezaBAZ_EigentuemerATUL As String, _ ByVal ezaBAZ_ChargennummerATZL As String, _ ByVal ezaBAZ_UrsprungslandATZL As String, _ ByVal ezaBAZ_AtlasKz As String, _ ByVal ezaBAZ_Wartennummer As Global.System.Nullable(Of Decimal), _ ByVal ezaBAZ_UeblicheBehandlungKz As String, _ ByVal ezaBAZ_Handelsmenge As Global.System.Nullable(Of Decimal), _ ByVal ezaBAZ_MasseinheitHandelsmenge As String, _ ByVal ezaBAZ_QualifikatorHandelsmenge As String, _ ByVal ezaBAZ_Abgangsmenge As Global.System.Nullable(Of Decimal), _ ByVal ezaBAZ_MasseinheitAbgangsmenge As String, _ ByVal ezaBAZ_QualifikatorAbgangsmenge As String, _ ByVal ezaBAZ_Positionszusatz As String, _ ByVal ezaBAZ_WarenbezogeneAngaben As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezaBAZ_EZAId,Integer) If (ezaBAZ_RegistrierNummerZugang Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezaBAZ_RegistrierNummerZugang,String) End If If (ezaBAZ_PositionZugang Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezaBAZ_PositionZugang,String) End If If (ezaBAZ_ArtikelCodeATZL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezaBAZ_ArtikelCodeATZL,String) End If If (ezaBAZ_EigentuemerATUL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ezaBAZ_EigentuemerATUL,String) End If If (ezaBAZ_ChargennummerATZL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ezaBAZ_ChargennummerATZL,String) End If If (ezaBAZ_UrsprungslandATZL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ezaBAZ_UrsprungslandATZL,String) End If If (ezaBAZ_AtlasKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ezaBAZ_AtlasKz,String) End If If (ezaBAZ_Wartennummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(ezaBAZ_Wartennummer.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (ezaBAZ_UeblicheBehandlungKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(ezaBAZ_UeblicheBehandlungKz,String) End If If (ezaBAZ_Handelsmenge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(ezaBAZ_Handelsmenge.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (ezaBAZ_MasseinheitHandelsmenge Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(ezaBAZ_MasseinheitHandelsmenge,String) End If If (ezaBAZ_QualifikatorHandelsmenge Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(ezaBAZ_QualifikatorHandelsmenge,String) End If If (ezaBAZ_Abgangsmenge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(ezaBAZ_Abgangsmenge.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (ezaBAZ_MasseinheitAbgangsmenge Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(ezaBAZ_MasseinheitAbgangsmenge,String) End If If (ezaBAZ_QualifikatorAbgangsmenge Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(ezaBAZ_QualifikatorAbgangsmenge,String) End If If (ezaBAZ_Positionszusatz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(ezaBAZ_Positionszusatz,String) End If If (ezaBAZ_WarenbezogeneAngaben Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(ezaBAZ_WarenbezogeneAngaben,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 ezaBAZ_EZAId As Integer, _ ByVal ezaBAZ_RegistrierNummerZugang As String, _ ByVal ezaBAZ_PositionZugang As String, _ ByVal ezaBAZ_ArtikelCodeATZL As String, _ ByVal ezaBAZ_EigentuemerATUL As String, _ ByVal ezaBAZ_ChargennummerATZL As String, _ ByVal ezaBAZ_UrsprungslandATZL As String, _ ByVal ezaBAZ_AtlasKz As String, _ ByVal ezaBAZ_Wartennummer As Global.System.Nullable(Of Decimal), _ ByVal ezaBAZ_UeblicheBehandlungKz As String, _ ByVal ezaBAZ_Handelsmenge As Global.System.Nullable(Of Decimal), _ ByVal ezaBAZ_MasseinheitHandelsmenge As String, _ ByVal ezaBAZ_QualifikatorHandelsmenge As String, _ ByVal ezaBAZ_Abgangsmenge As Global.System.Nullable(Of Decimal), _ ByVal ezaBAZ_MasseinheitAbgangsmenge As String, _ ByVal ezaBAZ_QualifikatorAbgangsmenge As String, _ ByVal ezaBAZ_Positionszusatz As String, _ ByVal ezaBAZ_WarenbezogeneAngaben As String, _ ByVal Original_ezaBAZ_Id As Integer, _ ByVal Original_ezaBAZ_EZAId As Integer, _ ByVal Original_ezaBAZ_RegistrierNummerZugang As String, _ ByVal Original_ezaBAZ_PositionZugang As String, _ ByVal Original_ezaBAZ_ArtikelCodeATZL As String, _ ByVal Original_ezaBAZ_EigentuemerATUL As String, _ ByVal Original_ezaBAZ_ChargennummerATZL As String, _ ByVal Original_ezaBAZ_UrsprungslandATZL As String, _ ByVal Original_ezaBAZ_AtlasKz As String, _ ByVal Original_ezaBAZ_Wartennummer As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBAZ_UeblicheBehandlungKz As String, _ ByVal Original_ezaBAZ_Handelsmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBAZ_MasseinheitHandelsmenge As String, _ ByVal Original_ezaBAZ_QualifikatorHandelsmenge As String, _ ByVal Original_ezaBAZ_Abgangsmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBAZ_MasseinheitAbgangsmenge As String, _ ByVal Original_ezaBAZ_QualifikatorAbgangsmenge As String, _ ByVal Original_ezaBAZ_Positionszusatz As String, _ ByVal Original_ezaBAZ_WarenbezogeneAngaben As String, _ ByVal ezaBAZ_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezaBAZ_EZAId,Integer) If (ezaBAZ_RegistrierNummerZugang Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezaBAZ_RegistrierNummerZugang,String) End If If (ezaBAZ_PositionZugang Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezaBAZ_PositionZugang,String) End If If (ezaBAZ_ArtikelCodeATZL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezaBAZ_ArtikelCodeATZL,String) End If If (ezaBAZ_EigentuemerATUL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ezaBAZ_EigentuemerATUL,String) End If If (ezaBAZ_ChargennummerATZL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ezaBAZ_ChargennummerATZL,String) End If If (ezaBAZ_UrsprungslandATZL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ezaBAZ_UrsprungslandATZL,String) End If If (ezaBAZ_AtlasKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ezaBAZ_AtlasKz,String) End If If (ezaBAZ_Wartennummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ezaBAZ_Wartennummer.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (ezaBAZ_UeblicheBehandlungKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ezaBAZ_UeblicheBehandlungKz,String) End If If (ezaBAZ_Handelsmenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ezaBAZ_Handelsmenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (ezaBAZ_MasseinheitHandelsmenge Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ezaBAZ_MasseinheitHandelsmenge,String) End If If (ezaBAZ_QualifikatorHandelsmenge Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ezaBAZ_QualifikatorHandelsmenge,String) End If If (ezaBAZ_Abgangsmenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ezaBAZ_Abgangsmenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (ezaBAZ_MasseinheitAbgangsmenge Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ezaBAZ_MasseinheitAbgangsmenge,String) End If If (ezaBAZ_QualifikatorAbgangsmenge Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ezaBAZ_QualifikatorAbgangsmenge,String) End If If (ezaBAZ_Positionszusatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ezaBAZ_Positionszusatz,String) End If If (ezaBAZ_WarenbezogeneAngaben Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ezaBAZ_WarenbezogeneAngaben,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ezaBAZ_Id,Integer) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ezaBAZ_EZAId,Integer) If (Original_ezaBAZ_RegistrierNummerZugang Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ezaBAZ_RegistrierNummerZugang,String) End If If (Original_ezaBAZ_PositionZugang Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_ezaBAZ_PositionZugang,String) End If If (Original_ezaBAZ_ArtikelCodeATZL 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_ezaBAZ_ArtikelCodeATZL,String) End If If (Original_ezaBAZ_EigentuemerATUL 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_ezaBAZ_EigentuemerATUL,String) End If If (Original_ezaBAZ_ChargennummerATZL 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_ezaBAZ_ChargennummerATZL,String) End If If (Original_ezaBAZ_UrsprungslandATZL 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_ezaBAZ_UrsprungslandATZL,String) End If If (Original_ezaBAZ_AtlasKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_ezaBAZ_AtlasKz,String) End If If (Original_ezaBAZ_Wartennummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_ezaBAZ_Wartennummer.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_ezaBAZ_UeblicheBehandlungKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_ezaBAZ_UeblicheBehandlungKz,String) End If If (Original_ezaBAZ_Handelsmenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_ezaBAZ_Handelsmenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_ezaBAZ_MasseinheitHandelsmenge Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_ezaBAZ_MasseinheitHandelsmenge,String) End If If (Original_ezaBAZ_QualifikatorHandelsmenge Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_ezaBAZ_QualifikatorHandelsmenge,String) End If If (Original_ezaBAZ_Abgangsmenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_ezaBAZ_Abgangsmenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Original_ezaBAZ_MasseinheitAbgangsmenge Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_ezaBAZ_MasseinheitAbgangsmenge,String) End If If (Original_ezaBAZ_QualifikatorAbgangsmenge Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_ezaBAZ_QualifikatorAbgangsmenge,String) End If If (Original_ezaBAZ_Positionszusatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_ezaBAZ_Positionszusatz,String) End If If (Original_ezaBAZ_WarenbezogeneAngaben Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_ezaBAZ_WarenbezogeneAngaben,String) End If Me.Adapter.UpdateCommand.Parameters(54).Value = CType(ezaBAZ_Id,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 ezaBAZ_EZAId As Integer, _ ByVal ezaBAZ_RegistrierNummerZugang As String, _ ByVal ezaBAZ_PositionZugang As String, _ ByVal ezaBAZ_ArtikelCodeATZL As String, _ ByVal ezaBAZ_EigentuemerATUL As String, _ ByVal ezaBAZ_ChargennummerATZL As String, _ ByVal ezaBAZ_UrsprungslandATZL As String, _ ByVal ezaBAZ_AtlasKz As String, _ ByVal ezaBAZ_Wartennummer As Global.System.Nullable(Of Decimal), _ ByVal ezaBAZ_UeblicheBehandlungKz As String, _ ByVal ezaBAZ_Handelsmenge As Global.System.Nullable(Of Decimal), _ ByVal ezaBAZ_MasseinheitHandelsmenge As String, _ ByVal ezaBAZ_QualifikatorHandelsmenge As String, _ ByVal ezaBAZ_Abgangsmenge As Global.System.Nullable(Of Decimal), _ ByVal ezaBAZ_MasseinheitAbgangsmenge As String, _ ByVal ezaBAZ_QualifikatorAbgangsmenge As String, _ ByVal ezaBAZ_Positionszusatz As String, _ ByVal ezaBAZ_WarenbezogeneAngaben As String, _ ByVal Original_ezaBAZ_Id As Integer, _ ByVal Original_ezaBAZ_EZAId As Integer, _ ByVal Original_ezaBAZ_RegistrierNummerZugang As String, _ ByVal Original_ezaBAZ_PositionZugang As String, _ ByVal Original_ezaBAZ_ArtikelCodeATZL As String, _ ByVal Original_ezaBAZ_EigentuemerATUL As String, _ ByVal Original_ezaBAZ_ChargennummerATZL As String, _ ByVal Original_ezaBAZ_UrsprungslandATZL As String, _ ByVal Original_ezaBAZ_AtlasKz As String, _ ByVal Original_ezaBAZ_Wartennummer As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBAZ_UeblicheBehandlungKz As String, _ ByVal Original_ezaBAZ_Handelsmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBAZ_MasseinheitHandelsmenge As String, _ ByVal Original_ezaBAZ_QualifikatorHandelsmenge As String, _ ByVal Original_ezaBAZ_Abgangsmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBAZ_MasseinheitAbgangsmenge As String, _ ByVal Original_ezaBAZ_QualifikatorAbgangsmenge As String, _ ByVal Original_ezaBAZ_Positionszusatz As String, _ ByVal Original_ezaBAZ_WarenbezogeneAngaben As String) As Integer Return Me.Update(ezaBAZ_EZAId, ezaBAZ_RegistrierNummerZugang, ezaBAZ_PositionZugang, ezaBAZ_ArtikelCodeATZL, ezaBAZ_EigentuemerATUL, ezaBAZ_ChargennummerATZL, ezaBAZ_UrsprungslandATZL, ezaBAZ_AtlasKz, ezaBAZ_Wartennummer, ezaBAZ_UeblicheBehandlungKz, ezaBAZ_Handelsmenge, ezaBAZ_MasseinheitHandelsmenge, ezaBAZ_QualifikatorHandelsmenge, ezaBAZ_Abgangsmenge, ezaBAZ_MasseinheitAbgangsmenge, ezaBAZ_QualifikatorAbgangsmenge, ezaBAZ_Positionszusatz, ezaBAZ_WarenbezogeneAngaben, Original_ezaBAZ_Id, Original_ezaBAZ_EZAId, Original_ezaBAZ_RegistrierNummerZugang, Original_ezaBAZ_PositionZugang, Original_ezaBAZ_ArtikelCodeATZL, Original_ezaBAZ_EigentuemerATUL, Original_ezaBAZ_ChargennummerATZL, Original_ezaBAZ_UrsprungslandATZL, Original_ezaBAZ_AtlasKz, Original_ezaBAZ_Wartennummer, Original_ezaBAZ_UeblicheBehandlungKz, Original_ezaBAZ_Handelsmenge, Original_ezaBAZ_MasseinheitHandelsmenge, Original_ezaBAZ_QualifikatorHandelsmenge, Original_ezaBAZ_Abgangsmenge, Original_ezaBAZ_MasseinheitAbgangsmenge, Original_ezaBAZ_QualifikatorAbgangsmenge, Original_ezaBAZ_Positionszusatz, Original_ezaBAZ_WarenbezogeneAngaben, Original_ezaBAZ_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_EZA_SumABeendigungsAnteilTableAdapter 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 = "tblDakosy_EZA_SumABeendigungsAnteil" tableMapping.ColumnMappings.Add("ezaBa_Id", "ezaBa_Id") tableMapping.ColumnMappings.Add("ezaBa_EZAId", "ezaBa_EZAId") tableMapping.ColumnMappings.Add("ezaBa_SumARegistriernummer", "ezaBa_SumARegistriernummer") tableMapping.ColumnMappings.Add("ezaBa_SumAPosNr", "ezaBa_SumAPosNr") tableMapping.ColumnMappings.Add("ezaBa_BeendigungsPackstueckzahl", "ezaBa_BeendigungsPackstueckzahl") tableMapping.ColumnMappings.Add("ezaBa_Artidentifikation", "ezaBa_Artidentifikation") tableMapping.ColumnMappings.Add("ezaBa_VerwahrerEORI", "ezaBa_VerwahrerEORI") tableMapping.ColumnMappings.Add("ezaBa_SpezifOrdnungsbegriffArt", "ezaBa_SpezifOrdnungsbegriffArt") tableMapping.ColumnMappings.Add("ezaBa_SpezifOrdnungsbegriff", "ezaBa_SpezifOrdnungsbegriff") 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].[tblDakosy_EZA_SumABeendigungsAnteil] WHERE (([ezaBa_Id] = @Ori"& _ "ginal_ezaBa_Id) AND ([ezaBa_EZAId] = @Original_ezaBa_EZAId) AND ((@IsNull_ezaBa_"& _ "SumARegistriernummer = 1 AND [ezaBa_SumARegistriernummer] IS NULL) OR ([ezaBa_Su"& _ "mARegistriernummer] = @Original_ezaBa_SumARegistriernummer)) AND ((@IsNull_ezaBa"& _ "_SumAPosNr = 1 AND [ezaBa_SumAPosNr] IS NULL) OR ([ezaBa_SumAPosNr] = @Original_"& _ "ezaBa_SumAPosNr)) AND ((@IsNull_ezaBa_BeendigungsPackstueckzahl = 1 AND [ezaBa_B"& _ "eendigungsPackstueckzahl] IS NULL) OR ([ezaBa_BeendigungsPackstueckzahl] = @Orig"& _ "inal_ezaBa_BeendigungsPackstueckzahl)) AND ((@IsNull_ezaBa_Artidentifikation = 1"& _ " AND [ezaBa_Artidentifikation] IS NULL) OR ([ezaBa_Artidentifikation] = @Origina"& _ "l_ezaBa_Artidentifikation)) AND ((@IsNull_ezaBa_VerwahrerEORI = 1 AND [ezaBa_Ver"& _ "wahrerEORI] IS NULL) OR ([ezaBa_VerwahrerEORI] = @Original_ezaBa_VerwahrerEORI))"& _ " AND ((@IsNull_ezaBa_SpezifOrdnungsbegriffArt = 1 AND [ezaBa_SpezifOrdnungsbegri"& _ "ffArt] IS NULL) OR ([ezaBa_SpezifOrdnungsbegriffArt] = @Original_ezaBa_SpezifOrd"& _ "nungsbegriffArt)) AND ((@IsNull_ezaBa_SpezifOrdnungsbegriff = 1 AND [ezaBa_Spezi"& _ "fOrdnungsbegriff] IS NULL) OR ([ezaBa_SpezifOrdnungsbegriff] = @Original_ezaBa_S"& _ "pezifOrdnungsbegriff)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_EZAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_SumARegistriernummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SumARegistriernummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_SumARegistriernummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SumARegistriernummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_SumAPosNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SumAPosNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_SumAPosNr", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ezaBa_SumAPosNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_BeendigungsPackstueckzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_BeendigungsPackstueckzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_BeendigungsPackstueckzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "ezaBa_BeendigungsPackstueckzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_Artidentifikation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_Artidentifikation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_Artidentifikation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_Artidentifikation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_VerwahrerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_VerwahrerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_VerwahrerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_VerwahrerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_SpezifOrdnungsbegriff", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriff", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_SpezifOrdnungsbegriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriff", 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].[tblDakosy_EZA_SumABeendigungsAnteil] ([ezaBa_EZAId], [ezaBa_Su"& _ "mARegistriernummer], [ezaBa_SumAPosNr], [ezaBa_BeendigungsPackstueckzahl], [ezaB"& _ "a_Artidentifikation], [ezaBa_VerwahrerEORI], [ezaBa_SpezifOrdnungsbegriffArt], ["& _ "ezaBa_SpezifOrdnungsbegriff]) VALUES (@ezaBa_EZAId, @ezaBa_SumARegistriernummer,"& _ " @ezaBa_SumAPosNr, @ezaBa_BeendigungsPackstueckzahl, @ezaBa_Artidentifikation, @"& _ "ezaBa_VerwahrerEORI, @ezaBa_SpezifOrdnungsbegriffArt, @ezaBa_SpezifOrdnungsbegri"& _ "ff);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaBa_Id, ezaBa_EZAId, ezaBa_SumARegistriernummer, ezaBa_SumAPosNr,"& _ " ezaBa_BeendigungsPackstueckzahl, ezaBa_Artidentifikation, ezaBa_VerwahrerEORI, "& _ "ezaBa_SpezifOrdnungsbegriffArt, ezaBa_SpezifOrdnungsbegriff FROM tblDakosy_EZA_S"& _ "umABeendigungsAnteil WHERE (ezaBa_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_EZAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_SumARegistriernummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SumARegistriernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_SumAPosNr", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ezaBa_SumAPosNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_BeendigungsPackstueckzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "ezaBa_BeendigungsPackstueckzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_Artidentifikation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_Artidentifikation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_VerwahrerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_VerwahrerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_SpezifOrdnungsbegriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriff", 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].[tblDakosy_EZA_SumABeendigungsAnteil] SET [ezaBa_EZAId] = @ezaBa_EZA"& _ "Id, [ezaBa_SumARegistriernummer] = @ezaBa_SumARegistriernummer, [ezaBa_SumAPosNr"& _ "] = @ezaBa_SumAPosNr, [ezaBa_BeendigungsPackstueckzahl] = @ezaBa_BeendigungsPack"& _ "stueckzahl, [ezaBa_Artidentifikation] = @ezaBa_Artidentifikation, [ezaBa_Verwahr"& _ "erEORI] = @ezaBa_VerwahrerEORI, [ezaBa_SpezifOrdnungsbegriffArt] = @ezaBa_Spezif"& _ "OrdnungsbegriffArt, [ezaBa_SpezifOrdnungsbegriff] = @ezaBa_SpezifOrdnungsbegriff"& _ " WHERE (([ezaBa_Id] = @Original_ezaBa_Id) AND ([ezaBa_EZAId] = @Original_ezaBa_E"& _ "ZAId) AND ((@IsNull_ezaBa_SumARegistriernummer = 1 AND [ezaBa_SumARegistriernumm"& _ "er] IS NULL) OR ([ezaBa_SumARegistriernummer] = @Original_ezaBa_SumARegistriernu"& _ "mmer)) AND ((@IsNull_ezaBa_SumAPosNr = 1 AND [ezaBa_SumAPosNr] IS NULL) OR ([eza"& _ "Ba_SumAPosNr] = @Original_ezaBa_SumAPosNr)) AND ((@IsNull_ezaBa_BeendigungsPacks"& _ "tueckzahl = 1 AND [ezaBa_BeendigungsPackstueckzahl] IS NULL) OR ([ezaBa_Beendigu"& _ "ngsPackstueckzahl] = @Original_ezaBa_BeendigungsPackstueckzahl)) AND ((@IsNull_e"& _ "zaBa_Artidentifikation = 1 AND [ezaBa_Artidentifikation] IS NULL) OR ([ezaBa_Art"& _ "identifikation] = @Original_ezaBa_Artidentifikation)) AND ((@IsNull_ezaBa_Verwah"& _ "rerEORI = 1 AND [ezaBa_VerwahrerEORI] IS NULL) OR ([ezaBa_VerwahrerEORI] = @Orig"& _ "inal_ezaBa_VerwahrerEORI)) AND ((@IsNull_ezaBa_SpezifOrdnungsbegriffArt = 1 AND "& _ "[ezaBa_SpezifOrdnungsbegriffArt] IS NULL) OR ([ezaBa_SpezifOrdnungsbegriffArt] ="& _ " @Original_ezaBa_SpezifOrdnungsbegriffArt)) AND ((@IsNull_ezaBa_SpezifOrdnungsbe"& _ "griff = 1 AND [ezaBa_SpezifOrdnungsbegriff] IS NULL) OR ([ezaBa_SpezifOrdnungsbe"& _ "griff] = @Original_ezaBa_SpezifOrdnungsbegriff)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaBa_Id, ezaBa_EZAId"& _ ", ezaBa_SumARegistriernummer, ezaBa_SumAPosNr, ezaBa_BeendigungsPackstueckzahl, "& _ "ezaBa_Artidentifikation, ezaBa_VerwahrerEORI, ezaBa_SpezifOrdnungsbegriffArt, ez"& _ "aBa_SpezifOrdnungsbegriff FROM tblDakosy_EZA_SumABeendigungsAnteil WHERE (ezaBa_"& _ "Id = @ezaBa_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_EZAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_SumARegistriernummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SumARegistriernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_SumAPosNr", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ezaBa_SumAPosNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_BeendigungsPackstueckzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "ezaBa_BeendigungsPackstueckzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_Artidentifikation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_Artidentifikation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_VerwahrerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_VerwahrerEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_SpezifOrdnungsbegriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_EZAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_SumARegistriernummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SumARegistriernummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_SumARegistriernummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SumARegistriernummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_SumAPosNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SumAPosNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_SumAPosNr", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ezaBa_SumAPosNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_BeendigungsPackstueckzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_BeendigungsPackstueckzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_BeendigungsPackstueckzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "ezaBa_BeendigungsPackstueckzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_Artidentifikation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_Artidentifikation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_Artidentifikation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_Artidentifikation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_VerwahrerEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_VerwahrerEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_VerwahrerEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_VerwahrerEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriffArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaBa_SpezifOrdnungsbegriff", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriff", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaBa_SpezifOrdnungsbegriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_SpezifOrdnungsbegriff", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaBa_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaBa_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezaBa_Id, ezaBa_EZAId, ezaBa_SumARegistriernummer, ezaBa_SumAPosNr, ezaBa_"& _ "BeendigungsPackstueckzahl, ezaBa_Artidentifikation, ezaBa_VerwahrerEORI, ezaBa_S"& _ "pezifOrdnungsbegriffArt, ezaBa_SpezifOrdnungsbegriff FROM dbo.tblDakosy_EZA_SumA"& _ "BeendigungsAnteil" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_SumABeendigungsAnteilDataTable) 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 VERAGDataSet.tblDakosy_EZA_SumABeendigungsAnteilDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_EZA_SumABeendigungsAnteilDataTable = New VERAGDataSet.tblDakosy_EZA_SumABeendigungsAnteilDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_SumABeendigungsAnteilDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_EZA_SumABeendigungsAnteil") 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_ezaBa_Id As Integer, ByVal Original_ezaBa_EZAId As Integer, ByVal Original_ezaBa_SumARegistriernummer As String, ByVal Original_ezaBa_SumAPosNr As Global.System.Nullable(Of Decimal), ByVal Original_ezaBa_BeendigungsPackstueckzahl As Global.System.Nullable(Of Decimal), ByVal Original_ezaBa_Artidentifikation As String, ByVal Original_ezaBa_VerwahrerEORI As String, ByVal Original_ezaBa_SpezifOrdnungsbegriffArt As String, ByVal Original_ezaBa_SpezifOrdnungsbegriff As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezaBa_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezaBa_EZAId,Integer) If (Original_ezaBa_SumARegistriernummer 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_ezaBa_SumARegistriernummer,String) End If If (Original_ezaBa_SumAPosNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ezaBa_SumAPosNr.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Original_ezaBa_BeendigungsPackstueckzahl.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ezaBa_BeendigungsPackstueckzahl.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_ezaBa_Artidentifikation 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_ezaBa_Artidentifikation,String) End If If (Original_ezaBa_VerwahrerEORI 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_ezaBa_VerwahrerEORI,String) End If If (Original_ezaBa_SpezifOrdnungsbegriffArt 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_ezaBa_SpezifOrdnungsbegriffArt,String) End If If (Original_ezaBa_SpezifOrdnungsbegriff Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_ezaBa_SpezifOrdnungsbegriff,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 ezaBa_EZAId As Integer, ByVal ezaBa_SumARegistriernummer As String, ByVal ezaBa_SumAPosNr As Global.System.Nullable(Of Decimal), ByVal ezaBa_BeendigungsPackstueckzahl As Global.System.Nullable(Of Decimal), ByVal ezaBa_Artidentifikation As String, ByVal ezaBa_VerwahrerEORI As String, ByVal ezaBa_SpezifOrdnungsbegriffArt As String, ByVal ezaBa_SpezifOrdnungsbegriff As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezaBa_EZAId,Integer) If (ezaBa_SumARegistriernummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezaBa_SumARegistriernummer,String) End If If (ezaBa_SumAPosNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezaBa_SumAPosNr.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (ezaBa_BeendigungsPackstueckzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezaBa_BeendigungsPackstueckzahl.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (ezaBa_Artidentifikation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ezaBa_Artidentifikation,String) End If If (ezaBa_VerwahrerEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ezaBa_VerwahrerEORI,String) End If If (ezaBa_SpezifOrdnungsbegriffArt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ezaBa_SpezifOrdnungsbegriffArt,String) End If If (ezaBa_SpezifOrdnungsbegriff Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ezaBa_SpezifOrdnungsbegriff,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 ezaBa_EZAId As Integer, _ ByVal ezaBa_SumARegistriernummer As String, _ ByVal ezaBa_SumAPosNr As Global.System.Nullable(Of Decimal), _ ByVal ezaBa_BeendigungsPackstueckzahl As Global.System.Nullable(Of Decimal), _ ByVal ezaBa_Artidentifikation As String, _ ByVal ezaBa_VerwahrerEORI As String, _ ByVal ezaBa_SpezifOrdnungsbegriffArt As String, _ ByVal ezaBa_SpezifOrdnungsbegriff As String, _ ByVal Original_ezaBa_Id As Integer, _ ByVal Original_ezaBa_EZAId As Integer, _ ByVal Original_ezaBa_SumARegistriernummer As String, _ ByVal Original_ezaBa_SumAPosNr As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBa_BeendigungsPackstueckzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBa_Artidentifikation As String, _ ByVal Original_ezaBa_VerwahrerEORI As String, _ ByVal Original_ezaBa_SpezifOrdnungsbegriffArt As String, _ ByVal Original_ezaBa_SpezifOrdnungsbegriff As String, _ ByVal ezaBa_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezaBa_EZAId,Integer) If (ezaBa_SumARegistriernummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezaBa_SumARegistriernummer,String) End If If (ezaBa_SumAPosNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezaBa_SumAPosNr.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (ezaBa_BeendigungsPackstueckzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezaBa_BeendigungsPackstueckzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (ezaBa_Artidentifikation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ezaBa_Artidentifikation,String) End If If (ezaBa_VerwahrerEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ezaBa_VerwahrerEORI,String) End If If (ezaBa_SpezifOrdnungsbegriffArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ezaBa_SpezifOrdnungsbegriffArt,String) End If If (ezaBa_SpezifOrdnungsbegriff Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ezaBa_SpezifOrdnungsbegriff,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ezaBa_Id,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ezaBa_EZAId,Integer) If (Original_ezaBa_SumARegistriernummer 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_ezaBa_SumARegistriernummer,String) End If If (Original_ezaBa_SumAPosNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ezaBa_SumAPosNr.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_ezaBa_BeendigungsPackstueckzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ezaBa_BeendigungsPackstueckzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_ezaBa_Artidentifikation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ezaBa_Artidentifikation,String) End If If (Original_ezaBa_VerwahrerEORI 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_ezaBa_VerwahrerEORI,String) End If If (Original_ezaBa_SpezifOrdnungsbegriffArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ezaBa_SpezifOrdnungsbegriffArt,String) End If If (Original_ezaBa_SpezifOrdnungsbegriff Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_ezaBa_SpezifOrdnungsbegriff,String) End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(ezaBa_Id,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 ezaBa_EZAId As Integer, _ ByVal ezaBa_SumARegistriernummer As String, _ ByVal ezaBa_SumAPosNr As Global.System.Nullable(Of Decimal), _ ByVal ezaBa_BeendigungsPackstueckzahl As Global.System.Nullable(Of Decimal), _ ByVal ezaBa_Artidentifikation As String, _ ByVal ezaBa_VerwahrerEORI As String, _ ByVal ezaBa_SpezifOrdnungsbegriffArt As String, _ ByVal ezaBa_SpezifOrdnungsbegriff As String, _ ByVal Original_ezaBa_Id As Integer, _ ByVal Original_ezaBa_EZAId As Integer, _ ByVal Original_ezaBa_SumARegistriernummer As String, _ ByVal Original_ezaBa_SumAPosNr As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBa_BeendigungsPackstueckzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaBa_Artidentifikation As String, _ ByVal Original_ezaBa_VerwahrerEORI As String, _ ByVal Original_ezaBa_SpezifOrdnungsbegriffArt As String, _ ByVal Original_ezaBa_SpezifOrdnungsbegriff As String) As Integer Return Me.Update(ezaBa_EZAId, ezaBa_SumARegistriernummer, ezaBa_SumAPosNr, ezaBa_BeendigungsPackstueckzahl, ezaBa_Artidentifikation, ezaBa_VerwahrerEORI, ezaBa_SpezifOrdnungsbegriffArt, ezaBa_SpezifOrdnungsbegriff, Original_ezaBa_Id, Original_ezaBa_EZAId, Original_ezaBa_SumARegistriernummer, Original_ezaBa_SumAPosNr, Original_ezaBa_BeendigungsPackstueckzahl, Original_ezaBa_Artidentifikation, Original_ezaBa_VerwahrerEORI, Original_ezaBa_SpezifOrdnungsbegriffArt, Original_ezaBa_SpezifOrdnungsbegriff, Original_ezaBa_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_EZA_UnterlagenTableAdapter 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 = "tblDakosy_EZA_Unterlagen" tableMapping.ColumnMappings.Add("ezaUl_Id", "ezaUl_Id") tableMapping.ColumnMappings.Add("ezaUl_EZAId", "ezaUl_EZAId") tableMapping.ColumnMappings.Add("ezaUl_Bereich", "ezaUl_Bereich") tableMapping.ColumnMappings.Add("ezaUl_Art", "ezaUl_Art") tableMapping.ColumnMappings.Add("ezaUl_Nummer", "ezaUl_Nummer") tableMapping.ColumnMappings.Add("ezaUl_DatumAusstellung", "ezaUl_DatumAusstellung") 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].[tblDakosy_EZA_Unterlagen] WHERE (([ezaUl_Id] = @Original_ezaUl"& _ "_Id) AND ([ezaUl_EZAId] = @Original_ezaUl_EZAId) AND ((@IsNull_ezaUl_Bereich = 1"& _ " AND [ezaUl_Bereich] IS NULL) OR ([ezaUl_Bereich] = @Original_ezaUl_Bereich)) AN"& _ "D ((@IsNull_ezaUl_Art = 1 AND [ezaUl_Art] IS NULL) OR ([ezaUl_Art] = @Original_e"& _ "zaUl_Art)) AND ((@IsNull_ezaUl_Nummer = 1 AND [ezaUl_Nummer] IS NULL) OR ([ezaUl"& _ "_Nummer] = @Original_ezaUl_Nummer)) AND ((@IsNull_ezaUl_DatumAusstellung = 1 AND"& _ " [ezaUl_DatumAusstellung] IS NULL) OR ([ezaUl_DatumAusstellung] = @Original_ezaU"& _ "l_DatumAusstellung)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_EZAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaUl_Bereich", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Bereich", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_Bereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Bereich", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaUl_Art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Art", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaUl_Nummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Nummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_Nummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Nummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaUl_DatumAusstellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_DatumAusstellung", 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].[tblDakosy_EZA_Unterlagen] ([ezaUl_EZAId], [ezaUl_Bereich], [ez"& _ "aUl_Art], [ezaUl_Nummer], [ezaUl_DatumAusstellung]) VALUES (@ezaUl_EZAId, @ezaUl"& _ "_Bereich, @ezaUl_Art, @ezaUl_Nummer, @ezaUl_DatumAusstellung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaUl_Id,"& _ " ezaUl_EZAId, ezaUl_Bereich, ezaUl_Art, ezaUl_Nummer, ezaUl_DatumAusstellung FRO"& _ "M tblDakosy_EZA_Unterlagen WHERE (ezaUl_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_EZAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_Bereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Bereich", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_Nummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_DatumAusstellung", 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].[tblDakosy_EZA_Unterlagen] SET [ezaUl_EZAId] = @ezaUl_EZAId, [ezaUl_"& _ "Bereich] = @ezaUl_Bereich, [ezaUl_Art] = @ezaUl_Art, [ezaUl_Nummer] = @ezaUl_Num"& _ "mer, [ezaUl_DatumAusstellung] = @ezaUl_DatumAusstellung WHERE (([ezaUl_Id] = @Or"& _ "iginal_ezaUl_Id) AND ([ezaUl_EZAId] = @Original_ezaUl_EZAId) AND ((@IsNull_ezaUl"& _ "_Bereich = 1 AND [ezaUl_Bereich] IS NULL) OR ([ezaUl_Bereich] = @Original_ezaUl_"& _ "Bereich)) AND ((@IsNull_ezaUl_Art = 1 AND [ezaUl_Art] IS NULL) OR ([ezaUl_Art] ="& _ " @Original_ezaUl_Art)) AND ((@IsNull_ezaUl_Nummer = 1 AND [ezaUl_Nummer] IS NULL"& _ ") OR ([ezaUl_Nummer] = @Original_ezaUl_Nummer)) AND ((@IsNull_ezaUl_DatumAusstel"& _ "lung = 1 AND [ezaUl_DatumAusstellung] IS NULL) OR ([ezaUl_DatumAusstellung] = @O"& _ "riginal_ezaUl_DatumAusstellung)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaUl_Id, ezaUl_EZAId, ezaUl_Bereich,"& _ " ezaUl_Art, ezaUl_Nummer, ezaUl_DatumAusstellung FROM tblDakosy_EZA_Unterlagen W"& _ "HERE (ezaUl_Id = @ezaUl_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_EZAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_Bereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Bereich", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_Nummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_DatumAusstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_EZAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_EZAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaUl_Bereich", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Bereich", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_Bereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Bereich", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaUl_Art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Art", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaUl_Nummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Nummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_Nummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Nummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaUl_DatumAusstellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaUl_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaUl_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezaUl_Id, ezaUl_EZAId, ezaUl_Bereich, ezaUl_Art, ezaUl_Nummer, ezaUl_Datum"& _ "Ausstellung FROM dbo.tblDakosy_EZA_Unterlagen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_UnterlagenDataTable) 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 VERAGDataSet.tblDakosy_EZA_UnterlagenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_EZA_UnterlagenDataTable = New VERAGDataSet.tblDakosy_EZA_UnterlagenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_UnterlagenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_EZA_Unterlagen") 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_ezaUl_Id As Integer, ByVal Original_ezaUl_EZAId As Integer, ByVal Original_ezaUl_Bereich As String, ByVal Original_ezaUl_Art As String, ByVal Original_ezaUl_Nummer As String, ByVal Original_ezaUl_DatumAusstellung As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezaUl_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezaUl_EZAId,Integer) If (Original_ezaUl_Bereich 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_ezaUl_Bereich,String) End If If (Original_ezaUl_Art 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_ezaUl_Art,String) End If If (Original_ezaUl_Nummer 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_ezaUl_Nummer,String) End If If (Original_ezaUl_DatumAusstellung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ezaUl_DatumAusstellung.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 ezaUl_EZAId As Integer, ByVal ezaUl_Bereich As String, ByVal ezaUl_Art As String, ByVal ezaUl_Nummer As String, ByVal ezaUl_DatumAusstellung As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezaUl_EZAId,Integer) If (ezaUl_Bereich Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezaUl_Bereich,String) End If If (ezaUl_Art Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezaUl_Art,String) End If If (ezaUl_Nummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezaUl_Nummer,String) End If If (ezaUl_DatumAusstellung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(ezaUl_DatumAusstellung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).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 ezaUl_EZAId As Integer, ByVal ezaUl_Bereich As String, ByVal ezaUl_Art As String, ByVal ezaUl_Nummer As String, ByVal ezaUl_DatumAusstellung As Global.System.Nullable(Of Date), ByVal Original_ezaUl_Id As Integer, ByVal Original_ezaUl_EZAId As Integer, ByVal Original_ezaUl_Bereich As String, ByVal Original_ezaUl_Art As String, ByVal Original_ezaUl_Nummer As String, ByVal Original_ezaUl_DatumAusstellung As Global.System.Nullable(Of Date), ByVal ezaUl_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezaUl_EZAId,Integer) If (ezaUl_Bereich Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezaUl_Bereich,String) End If If (ezaUl_Art Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezaUl_Art,String) End If If (ezaUl_Nummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezaUl_Nummer,String) End If If (ezaUl_DatumAusstellung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ezaUl_DatumAusstellung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_ezaUl_Id,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ezaUl_EZAId,Integer) If (Original_ezaUl_Bereich 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_ezaUl_Bereich,String) End If If (Original_ezaUl_Art 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_ezaUl_Art,String) End If If (Original_ezaUl_Nummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ezaUl_Nummer,String) End If If (Original_ezaUl_DatumAusstellung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ezaUl_DatumAusstellung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ezaUl_Id,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 ezaUl_EZAId As Integer, ByVal ezaUl_Bereich As String, ByVal ezaUl_Art As String, ByVal ezaUl_Nummer As String, ByVal ezaUl_DatumAusstellung As Global.System.Nullable(Of Date), ByVal Original_ezaUl_Id As Integer, ByVal Original_ezaUl_EZAId As Integer, ByVal Original_ezaUl_Bereich As String, ByVal Original_ezaUl_Art As String, ByVal Original_ezaUl_Nummer As String, ByVal Original_ezaUl_DatumAusstellung As Global.System.Nullable(Of Date)) As Integer Return Me.Update(ezaUl_EZAId, ezaUl_Bereich, ezaUl_Art, ezaUl_Nummer, ezaUl_DatumAusstellung, Original_ezaUl_Id, Original_ezaUl_EZAId, Original_ezaUl_Bereich, Original_ezaUl_Art, Original_ezaUl_Nummer, Original_ezaUl_DatumAusstellung, Original_ezaUl_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_EZA_WarenpositionTableAdapter 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 = "tblDakosy_EZA_Warenposition" tableMapping.ColumnMappings.Add("ezaWP_Id", "ezaWP_Id") tableMapping.ColumnMappings.Add("ezaWP_EzaId", "ezaWP_EzaId") tableMapping.ColumnMappings.Add("ezaWP_PositionsNummer", "ezaWP_PositionsNummer") tableMapping.ColumnMappings.Add("ezaWP_Artikelnummer", "ezaWP_Artikelnummer") tableMapping.ColumnMappings.Add("ezaWP_WarennummerEZT", "ezaWP_WarennummerEZT") tableMapping.ColumnMappings.Add("ezaWP_WarennummerZusatzCode1", "ezaWP_WarennummerZusatzCode1") tableMapping.ColumnMappings.Add("ezaWP_WarennummerZusatzCode2", "ezaWP_WarennummerZusatzCode2") tableMapping.ColumnMappings.Add("ezaWP_WarennummerZusatzCode3", "ezaWP_WarennummerZusatzCode3") tableMapping.ColumnMappings.Add("ezaWP_WarennummerZusatzCode4", "ezaWP_WarennummerZusatzCode4") tableMapping.ColumnMappings.Add("ezaWP_WarennummerZusatzCode5", "ezaWP_WarennummerZusatzCode5") tableMapping.ColumnMappings.Add("ezaWP_WarennummerZusatzCode6", "ezaWP_WarennummerZusatzCode6") tableMapping.ColumnMappings.Add("ezaWP_WarennummerZusatzCode7", "ezaWP_WarennummerZusatzCode7") tableMapping.ColumnMappings.Add("ezaWP_WarennummerZusatzCode8", "ezaWP_WarennummerZusatzCode8") tableMapping.ColumnMappings.Add("ezaWP_WarennummerZusatzCode9", "ezaWP_WarennummerZusatzCode9") tableMapping.ColumnMappings.Add("ezaWP_WarennummerZusatzCode10", "ezaWP_WarennummerZusatzCode10") tableMapping.ColumnMappings.Add("ezaWP_Warennummerzusatz1", "ezaWP_Warennummerzusatz1") tableMapping.ColumnMappings.Add("ezaWP_Warennummerzusatz2", "ezaWP_Warennummerzusatz2") tableMapping.ColumnMappings.Add("ezaWP_Warenbezeichnung", "ezaWP_Warenbezeichnung") tableMapping.ColumnMappings.Add("ezaWP_VerfahrensCodeVorangegangenesVerfahren", "ezaWP_VerfahrensCodeVorangegangenesVerfahren") tableMapping.ColumnMappings.Add("ezaWP_AbgabensteuerungKz", "ezaWP_AbgabensteuerungKz") tableMapping.ColumnMappings.Add("ezaWP_EUCode", "ezaWP_EUCode") tableMapping.ColumnMappings.Add("ezaWP_UrsprungslandCode", "ezaWP_UrsprungslandCode") tableMapping.ColumnMappings.Add("ezaWP_Rohmasse", "ezaWP_Rohmasse") tableMapping.ColumnMappings.Add("ezaWP_Eigenmasse", "ezaWP_Eigenmasse") tableMapping.ColumnMappings.Add("ezaWP_AHStatMenge", "ezaWP_AHStatMenge") tableMapping.ColumnMappings.Add("ezaWP_AHStatMengeMasseinheit", "ezaWP_AHStatMengeMasseinheit") tableMapping.ColumnMappings.Add("ezaWP_AHStatMengeQualifier", "ezaWP_AHStatMengeQualifier") tableMapping.ColumnMappings.Add("ezaWP_KostenEUSt", "ezaWP_KostenEUSt") tableMapping.ColumnMappings.Add("ezaWP_AHStatWert", "ezaWP_AHStatWert") tableMapping.ColumnMappings.Add("ezaWP_PackstueckAnzahl", "ezaWP_PackstueckAnzahl") tableMapping.ColumnMappings.Add("ezaWP_PackstueckArt", "ezaWP_PackstueckArt") tableMapping.ColumnMappings.Add("ezaWP_PackstueckZeichen", "ezaWP_PackstueckZeichen") tableMapping.ColumnMappings.Add("ezaWP_Warenmenge1", "ezaWP_Warenmenge1") tableMapping.ColumnMappings.Add("ezaWP_WarenMasseinheit1", "ezaWP_WarenMasseinheit1") tableMapping.ColumnMappings.Add("ezaWP_WarenQualifier1", "ezaWP_WarenQualifier1") tableMapping.ColumnMappings.Add("ezaWP_Warenmenge2", "ezaWP_Warenmenge2") tableMapping.ColumnMappings.Add("ezaWP_WarenMasseinheit2", "ezaWP_WarenMasseinheit2") tableMapping.ColumnMappings.Add("ezaWP_WarenQualifier2", "ezaWP_WarenQualifier2") tableMapping.ColumnMappings.Add("ezaWP_Warenmenge3", "ezaWP_Warenmenge3") tableMapping.ColumnMappings.Add("ezaWP_WarenMasseinheit3", "ezaWP_WarenMasseinheit3") tableMapping.ColumnMappings.Add("ezaWP_WarenQualifier3", "ezaWP_WarenQualifier3") tableMapping.ColumnMappings.Add("ezaWP_Warenmenge4", "ezaWP_Warenmenge4") tableMapping.ColumnMappings.Add("ezaWP_WarenMasseinheit4", "ezaWP_WarenMasseinheit4") tableMapping.ColumnMappings.Add("ezaWP_WarenQualifier4", "ezaWP_WarenQualifier4") tableMapping.ColumnMappings.Add("ezaWP_Warenmenge5", "ezaWP_Warenmenge5") tableMapping.ColumnMappings.Add("ezaWP_WarenMasseinheit5", "ezaWP_WarenMasseinheit5") tableMapping.ColumnMappings.Add("ezaWP_WarenQualifier5", "ezaWP_WarenQualifier5") tableMapping.ColumnMappings.Add("ezaWP_BeguenstigungBenatragtCode", "ezaWP_BeguenstigungBenatragtCode") tableMapping.ColumnMappings.Add("ezaWP_Kentigentnummer1", "ezaWP_Kentigentnummer1") tableMapping.ColumnMappings.Add("ezaWP_Kentigentnummer2", "ezaWP_Kentigentnummer2") tableMapping.ColumnMappings.Add("ezaWP_PositionsZusatz", "ezaWP_PositionsZusatz") tableMapping.ColumnMappings.Add("ezaWP_AHStatWertManuellKZ", "ezaWP_AHStatWertManuellKZ") tableMapping.ColumnMappings.Add("ezaWP_Artikelpreis", "ezaWP_Artikelpreis") tableMapping.ColumnMappings.Add("ezaWP_ArtikelpreisWaehrung", "ezaWP_ArtikelpreisWaehrung") tableMapping.ColumnMappings.Add("ezaWP_OrtVerbringens", "ezaWP_OrtVerbringens") tableMapping.ColumnMappings.Add("ezaWP_AbflughafenIATACode", "ezaWP_AbflughafenIATACode") tableMapping.ColumnMappings.Add("ezaWP_WarenmengeAVUVZugang", "ezaWP_WarenmengeAVUVZugang") tableMapping.ColumnMappings.Add("ezaWP_WarenmengeAVUVZugangMasseinheit", "ezaWP_WarenmengeAVUVZugangMasseinheit") tableMapping.ColumnMappings.Add("ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", "ezaWP_WarenmengeAVUVZugangMasseinheitQualifier") tableMapping.ColumnMappings.Add("ezaWP_Sachbereich", "ezaWP_Sachbereich") tableMapping.ColumnMappings.Add("ezaWP_BedingungCode", "ezaWP_BedingungCode") tableMapping.ColumnMappings.Add("ezaWP_VeredelungWertsteigerung", "ezaWP_VeredelungWertsteigerung") tableMapping.ColumnMappings.Add("ezaWP_TabakSteuerzeichenID", "ezaWP_TabakSteuerzeichenID") tableMapping.ColumnMappings.Add("ezaWP_GehaltsAngabenArtCode1", "ezaWP_GehaltsAngabenArtCode1") tableMapping.ColumnMappings.Add("ezaWP_GehaltsAngabenGradProzent1", "ezaWP_GehaltsAngabenGradProzent1") tableMapping.ColumnMappings.Add("ezaWP_GehaltsAngabenArtCode2", "ezaWP_GehaltsAngabenArtCode2") tableMapping.ColumnMappings.Add("ezaWP_GehaltsAngabenGradProzent2", "ezaWP_GehaltsAngabenGradProzent2") tableMapping.ColumnMappings.Add("ezaWP_GehaltsAngabenArtCode3", "ezaWP_GehaltsAngabenArtCode3") tableMapping.ColumnMappings.Add("ezaWP_GehaltsAngabenGradProzent3", "ezaWP_GehaltsAngabenGradProzent3") tableMapping.ColumnMappings.Add("ezaWP_BeguenstigungsMengeMenge", "ezaWP_BeguenstigungsMengeMenge") tableMapping.ColumnMappings.Add("ezaWP_BeguenstigungsMengeMasseinheitCode", "ezaWP_BeguenstigungsMengeMasseinheitCode") tableMapping.ColumnMappings.Add("ezaWP_BeguenstigungsMengeQualifier", "ezaWP_BeguenstigungsMengeQualifier") tableMapping.ColumnMappings.Add("ezaWP_Abgabenminderung_AbgabengruppeCode1", "ezaWP_Abgabenminderung_AbgabengruppeCode1") tableMapping.ColumnMappings.Add("ezaWP_Abgabenminderung_Minderungsbetrag1", "ezaWP_Abgabenminderung_Minderungsbetrag1") tableMapping.ColumnMappings.Add("ezaWP_Abgabenminderung_AbgabengruppeCode2", "ezaWP_Abgabenminderung_AbgabengruppeCode2") tableMapping.ColumnMappings.Add("ezaWP_Abgabenminderung_Minderungsbetrag2", "ezaWP_Abgabenminderung_Minderungsbetrag2") tableMapping.ColumnMappings.Add("ezaWP_Abgabenminderung_AbgabengruppeCode3", "ezaWP_Abgabenminderung_AbgabengruppeCode3") tableMapping.ColumnMappings.Add("ezaWP_Abgabenminderung_Minderungsbetrag3", "ezaWP_Abgabenminderung_Minderungsbetrag3") tableMapping.ColumnMappings.Add("ezaWP_BesondereWertangabe_Wert1", "ezaWP_BesondereWertangabe_Wert1") tableMapping.ColumnMappings.Add("ezaWP_BesondereWertangabe_PreisartCode1", "ezaWP_BesondereWertangabe_PreisartCode1") tableMapping.ColumnMappings.Add("ezaWP_BesondereWertangabe_Wert2", "ezaWP_BesondereWertangabe_Wert2") tableMapping.ColumnMappings.Add("ezaWP_BesondereWertangabe_PreisartCode2", "ezaWP_BesondereWertangabe_PreisartCode2") tableMapping.ColumnMappings.Add("ezaWP_BesondereWertangabe_Wert3", "ezaWP_BesondereWertangabe_Wert3") tableMapping.ColumnMappings.Add("ezaWP_BesondereWertangabe_PreisartCode3", "ezaWP_BesondereWertangabe_PreisartCode3") tableMapping.ColumnMappings.Add("ezaWP_BesondereWertangabe_Wert4", "ezaWP_BesondereWertangabe_Wert4") tableMapping.ColumnMappings.Add("ezaWP_BesondereWertangabe_PreisartCode4", "ezaWP_BesondereWertangabe_PreisartCode4") tableMapping.ColumnMappings.Add("ezaWP_BesondereWertangabe_Wert5", "ezaWP_BesondereWertangabe_Wert5") tableMapping.ColumnMappings.Add("ezaWP_BesondereWertangabe_PreisartCode5", "ezaWP_BesondereWertangabe_PreisartCode5") tableMapping.ColumnMappings.Add("ezaWP_VZAStatus", "ezaWP_VZAStatus") tableMapping.ColumnMappings.Add("ezaWP_EGZStatus", "ezaWP_EGZStatus") tableMapping.ColumnMappings.Add("ezaWP_DV1Status", "ezaWP_DV1Status") tableMapping.ColumnMappings.Add("ezaWP_AnmeldeArt", "ezaWP_AnmeldeArt") tableMapping.ColumnMappings.Add("ezaWP_BefundDatum", "ezaWP_BefundDatum") tableMapping.ColumnMappings.Add("ezaWP_AnmelderAdressCodeEORI", "ezaWP_AnmelderAdressCodeEORI") tableMapping.ColumnMappings.Add("ezaWP_Zollverfahren", "ezaWP_Zollverfahren") tableMapping.ColumnMappings.Add("ezaWP_AbrechnungszollstelleCode", "ezaWP_AbrechnungszollstelleCode") tableMapping.ColumnMappings.Add("ezaWP_SachbereichCode", "ezaWP_SachbereichCode") tableMapping.ColumnMappings.Add("ezaWP_RegistriernummerZA", "ezaWP_RegistriernummerZA") tableMapping.ColumnMappings.Add("ezaWP_AnmeldeVErfahren", "ezaWP_AnmeldeVErfahren") tableMapping.ColumnMappings.Add("ezaWP_Bewilligungsnummer", "ezaWP_Bewilligungsnummer") tableMapping.ColumnMappings.Add("ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", "ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte") tableMapping.ColumnMappings.Add("ezaWP_Zollwert", "ezaWP_Zollwert") tableMapping.ColumnMappings.Add("ezaWP_LuftfrachtkostenGesamt", "ezaWP_LuftfrachtkostenGesamt") tableMapping.ColumnMappings.Add("ezaWP_IATAKursKz", "ezaWP_IATAKursKz") tableMapping.ColumnMappings.Add("ezaWP_LuftfrachtkostenGesamtWaehrung", "ezaWP_LuftfrachtkostenGesamtWaehrung") tableMapping.ColumnMappings.Add("ezaWP_KursVereinbartKz", "ezaWP_KursVereinbartKz") tableMapping.ColumnMappings.Add("ezaWP_KursBetragVereinbart", "ezaWP_KursBetragVereinbart") tableMapping.ColumnMappings.Add("ezaWP_KursDatum", "ezaWP_KursDatum") tableMapping.ColumnMappings.Add("ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", "ezaWP_Aussenhandelsstatistik_VerkehrszweigInland") tableMapping.ColumnMappings.Add("ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", "ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze") tableMapping.ColumnMappings.Add("ezaWP_Aussenhandelsstatistik_Versendungsland", "ezaWP_Aussenhandelsstatistik_Versendungsland") tableMapping.ColumnMappings.Add("ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", "ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland") tableMapping.ColumnMappings.Add("ezaWP_Aussenhandelsstatistik_Bestimmungsland", "ezaWP_Aussenhandelsstatistik_Bestimmungsland") tableMapping.ColumnMappings.Add("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode") tableMapping.ColumnMappings.Add("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt") tableMapping.ColumnMappings.Add("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung") tableMapping.ColumnMappings.Add("ezaWP_Aussenhandelsstatistik_ArtGeschaeft", "ezaWP_Aussenhandelsstatistik_ArtGeschaeft") tableMapping.ColumnMappings.Add("ezaWP_Aussenhandelsstatistik_Statistikstatus", "ezaWP_Aussenhandelsstatistik_Statistikstatus") 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].[tblDakosy_EZA_Warenposition] WHERE (([ezaWP_Id] = @Original_ez"& _ "aWP_Id) AND ([ezaWP_EzaId] = @Original_ezaWP_EzaId) AND ((@IsNull_ezaWP_Position"& _ "sNummer = 1 AND [ezaWP_PositionsNummer] IS NULL) OR ([ezaWP_PositionsNummer] = @"& _ "Original_ezaWP_PositionsNummer)) AND ((@IsNull_ezaWP_Artikelnummer = 1 AND [ezaW"& _ "P_Artikelnummer] IS NULL) OR ([ezaWP_Artikelnummer] = @Original_ezaWP_Artikelnum"& _ "mer)) AND ((@IsNull_ezaWP_WarennummerEZT = 1 AND [ezaWP_WarennummerEZT] IS NULL)"& _ " OR ([ezaWP_WarennummerEZT] = @Original_ezaWP_WarennummerEZT)) AND ((@IsNull_eza"& _ "WP_WarennummerZusatzCode1 = 1 AND [ezaWP_WarennummerZusatzCode1] IS NULL) OR ([e"& _ "zaWP_WarennummerZusatzCode1] = @Original_ezaWP_WarennummerZusatzCode1)) AND ((@I"& _ "sNull_ezaWP_WarennummerZusatzCode2 = 1 AND [ezaWP_WarennummerZusatzCode2] IS NUL"& _ "L) OR ([ezaWP_WarennummerZusatzCode2] = @Original_ezaWP_WarennummerZusatzCode2))"& _ " AND ((@IsNull_ezaWP_WarennummerZusatzCode3 = 1 AND [ezaWP_WarennummerZusatzCode"& _ "3] IS NULL) OR ([ezaWP_WarennummerZusatzCode3] = @Original_ezaWP_WarennummerZusa"& _ "tzCode3)) AND ((@IsNull_ezaWP_WarennummerZusatzCode4 = 1 AND [ezaWP_WarennummerZ"& _ "usatzCode4] IS NULL) OR ([ezaWP_WarennummerZusatzCode4] = @Original_ezaWP_Warenn"& _ "ummerZusatzCode4)) AND ((@IsNull_ezaWP_WarennummerZusatzCode5 = 1 AND [ezaWP_War"& _ "ennummerZusatzCode5] IS NULL) OR ([ezaWP_WarennummerZusatzCode5] = @Original_eza"& _ "WP_WarennummerZusatzCode5)) AND ((@IsNull_ezaWP_WarennummerZusatzCode6 = 1 AND ["& _ "ezaWP_WarennummerZusatzCode6] IS NULL) OR ([ezaWP_WarennummerZusatzCode6] = @Ori"& _ "ginal_ezaWP_WarennummerZusatzCode6)) AND ((@IsNull_ezaWP_WarennummerZusatzCode7 "& _ "= 1 AND [ezaWP_WarennummerZusatzCode7] IS NULL) OR ([ezaWP_WarennummerZusatzCode"& _ "7] = @Original_ezaWP_WarennummerZusatzCode7)) AND ((@IsNull_ezaWP_WarennummerZus"& _ "atzCode8 = 1 AND [ezaWP_WarennummerZusatzCode8] IS NULL) OR ([ezaWP_WarennummerZ"& _ "usatzCode8] = @Original_ezaWP_WarennummerZusatzCode8)) AND ((@IsNull_ezaWP_Waren"& _ "nummerZusatzCode9 = 1 AND [ezaWP_WarennummerZusatzCode9] IS NULL) OR ([ezaWP_War"& _ "ennummerZusatzCode9] = @Original_ezaWP_WarennummerZusatzCode9)) AND ((@IsNull_ez"& _ "aWP_WarennummerZusatzCode10 = 1 AND [ezaWP_WarennummerZusatzCode10] IS NULL) OR "& _ "([ezaWP_WarennummerZusatzCode10] = @Original_ezaWP_WarennummerZusatzCode10)) AND"& _ " ((@IsNull_ezaWP_Warennummerzusatz1 = 1 AND [ezaWP_Warennummerzusatz1] IS NULL) "& _ "OR ([ezaWP_Warennummerzusatz1] = @Original_ezaWP_Warennummerzusatz1)) AND ((@IsN"& _ "ull_ezaWP_Warennummerzusatz2 = 1 AND [ezaWP_Warennummerzusatz2] IS NULL) OR ([ez"& _ "aWP_Warennummerzusatz2] = @Original_ezaWP_Warennummerzusatz2)) AND ((@IsNull_eza"& _ "WP_Warenbezeichnung = 1 AND [ezaWP_Warenbezeichnung] IS NULL) OR ([ezaWP_Warenbe"& _ "zeichnung] = @Original_ezaWP_Warenbezeichnung)) AND ((@IsNull_ezaWP_VerfahrensCo"& _ "deVorangegangenesVerfahren = 1 AND [ezaWP_VerfahrensCodeVorangegangenesVerfahren"& _ "] IS NULL) OR ([ezaWP_VerfahrensCodeVorangegangenesVerfahren] = @Original_ezaWP_"& _ "VerfahrensCodeVorangegangenesVerfahren)) AND ((@IsNull_ezaWP_AbgabensteuerungKz "& _ "= 1 AND [ezaWP_AbgabensteuerungKz] IS NULL) OR ([ezaWP_AbgabensteuerungKz] = @Or"& _ "iginal_ezaWP_AbgabensteuerungKz)) AND ((@IsNull_ezaWP_EUCode = 1 AND [ezaWP_EUCo"& _ "de] IS NULL) OR ([ezaWP_EUCode] = @Original_ezaWP_EUCode)) AND ((@IsNull_ezaWP_U"& _ "rsprungslandCode = 1 AND [ezaWP_UrsprungslandCode] IS NULL) OR ([ezaWP_Ursprungs"& _ "landCode] = @Original_ezaWP_UrsprungslandCode)) AND ((@IsNull_ezaWP_Rohmasse = 1"& _ " AND [ezaWP_Rohmasse] IS NULL) OR ([ezaWP_Rohmasse] = @Original_ezaWP_Rohmasse))"& _ " AND ((@IsNull_ezaWP_Eigenmasse = 1 AND [ezaWP_Eigenmasse] IS NULL) OR ([ezaWP_E"& _ "igenmasse] = @Original_ezaWP_Eigenmasse)) AND ((@IsNull_ezaWP_AHStatMenge = 1 AN"& _ "D [ezaWP_AHStatMenge] IS NULL) OR ([ezaWP_AHStatMenge] = @Original_ezaWP_AHStatM"& _ "enge)) AND ((@IsNull_ezaWP_AHStatMengeMasseinheit = 1 AND [ezaWP_AHStatMengeMass"& _ "einheit] IS NULL) OR ([ezaWP_AHStatMengeMasseinheit] = @Original_ezaWP_AHStatMen"& _ "geMasseinheit)) AND ((@IsNull_ezaWP_AHStatMengeQualifier = 1 AND [ezaWP_AHStatMe"& _ "ngeQualifier] IS NULL) OR ([ezaWP_AHStatMengeQualifier] = @Original_ezaWP_AHStat"& _ "MengeQualifier)) AND ((@IsNull_ezaWP_KostenEUSt = 1 AND [ezaWP_KostenEUSt] IS NU"& _ "LL) OR ([ezaWP_KostenEUSt] = @Original_ezaWP_KostenEUSt)) AND ((@IsNull_ezaWP_AH"& _ "StatWert = 1 AND [ezaWP_AHStatWert] IS NULL) OR ([ezaWP_AHStatWert] = @Original_"& _ "ezaWP_AHStatWert)) AND ((@IsNull_ezaWP_PackstueckAnzahl = 1 AND [ezaWP_Packstuec"& _ "kAnzahl] IS NULL) OR ([ezaWP_PackstueckAnzahl] = @Original_ezaWP_PackstueckAnzah"& _ "l)) AND ((@IsNull_ezaWP_PackstueckArt = 1 AND [ezaWP_PackstueckArt] IS NULL) OR "& _ "([ezaWP_PackstueckArt] = @Original_ezaWP_PackstueckArt)) AND ((@IsNull_ezaWP_Pac"& _ "kstueckZeichen = 1 AND [ezaWP_PackstueckZeichen] IS NULL) OR ([ezaWP_PackstueckZ"& _ "eichen] = @Original_ezaWP_PackstueckZeichen)) AND ((@IsNull_ezaWP_Warenmenge1 = "& _ "1 AND [ezaWP_Warenmenge1] IS NULL) OR ([ezaWP_Warenmenge1] = @Original_ezaWP_War"& _ "enmenge1)) AND ((@IsNull_ezaWP_WarenMasseinheit1 = 1 AND [ezaWP_WarenMasseinheit"& _ "1] IS NULL) OR ([ezaWP_WarenMasseinheit1] = @Original_ezaWP_WarenMasseinheit1)) "& _ "AND ((@IsNull_ezaWP_WarenQualifier1 = 1 AND [ezaWP_WarenQualifier1] IS NULL) OR "& _ "([ezaWP_WarenQualifier1] = @Original_ezaWP_WarenQualifier1)) AND ((@IsNull_ezaWP"& _ "_Warenmenge2 = 1 AND [ezaWP_Warenmenge2] IS NULL) OR ([ezaWP_Warenmenge2] = @Ori"& _ "ginal_ezaWP_Warenmenge2)) AND ((@IsNull_ezaWP_WarenMasseinheit2 = 1 AND [ezaWP_W"& _ "arenMasseinheit2] IS NULL) OR ([ezaWP_WarenMasseinheit2] = @Original_ezaWP_Waren"& _ "Masseinheit2)) AND ((@IsNull_ezaWP_WarenQualifier2 = 1 AND [ezaWP_WarenQualifier"& _ "2] IS NULL) OR ([ezaWP_WarenQualifier2] = @Original_ezaWP_WarenQualifier2)) AND "& _ "((@IsNull_ezaWP_Warenmenge3 = 1 AND [ezaWP_Warenmenge3] IS NULL) OR ([ezaWP_Ware"& _ "nmenge3] = @Original_ezaWP_Warenmenge3)) AND ((@IsNull_ezaWP_WarenMasseinheit3 ="& _ " 1 AND [ezaWP_WarenMasseinheit3] IS NULL) OR ([ezaWP_WarenMasseinheit3] = @Origi"& _ "nal_ezaWP_WarenMasseinheit3)) AND ((@IsNull_ezaWP_WarenQualifier3 = 1 AND [ezaWP"& _ "_WarenQualifier3] IS NULL) OR ([ezaWP_WarenQualifier3] = @Original_ezaWP_WarenQu"& _ "alifier3)) AND ((@IsNull_ezaWP_Warenmenge4 = 1 AND [ezaWP_Warenmenge4] IS NULL) "& _ "OR ([ezaWP_Warenmenge4] = @Original_ezaWP_Warenmenge4)) AND ((@IsNull_ezaWP_Ware"& _ "nMasseinheit4 = 1 AND [ezaWP_WarenMasseinheit4] IS NULL) OR ([ezaWP_WarenMassein"& _ "heit4] = @Original_ezaWP_WarenMasseinheit4)) AND ((@IsNull_ezaWP_WarenQualifier4"& _ " = 1 AND [ezaWP_WarenQualifier4] IS NULL) OR ([ezaWP_WarenQualifier4] = @Origina"& _ "l_ezaWP_WarenQualifier4)) AND ((@IsNull_ezaWP_Warenmenge5 = 1 AND [ezaWP_Warenme"& _ "nge5] IS NULL) OR ([ezaWP_Warenmenge5] = @Original_ezaWP_Warenmenge5)) AND ((@Is"& _ "Null_ezaWP_WarenMasseinheit5 = 1 AND [ezaWP_WarenMasseinheit5] IS NULL) OR ([eza"& _ "WP_WarenMasseinheit5] = @Original_ezaWP_WarenMasseinheit5)) AND ((@IsNull_ezaWP_"& _ "WarenQualifier5 = 1 AND [ezaWP_WarenQualifier5] IS NULL) OR ([ezaWP_WarenQualifi"& _ "er5] = @Original_ezaWP_WarenQualifier5)) AND ((@IsNull_ezaWP_BeguenstigungBenatr"& _ "agtCode = 1 AND [ezaWP_BeguenstigungBenatragtCode] IS NULL) OR ([ezaWP_Beguensti"& _ "gungBenatragtCode] = @Original_ezaWP_BeguenstigungBenatragtCode)) AND ((@IsNull_"& _ "ezaWP_Kentigentnummer1 = 1 AND [ezaWP_Kentigentnummer1] IS NULL) OR ([ezaWP_Kent"& _ "igentnummer1] = @Original_ezaWP_Kentigentnummer1)) AND ((@IsNull_ezaWP_Kentigent"& _ "nummer2 = 1 AND [ezaWP_Kentigentnummer2] IS NULL) OR ([ezaWP_Kentigentnummer2] ="& _ " @Original_ezaWP_Kentigentnummer2)) AND ((@IsNull_ezaWP_PositionsZusatz = 1 AND "& _ "[ezaWP_PositionsZusatz] IS NULL) OR ([ezaWP_PositionsZusatz] = @Original_ezaWP_P"& _ "ositionsZusatz)) AND ((@IsNull_ezaWP_AHStatWertManuellKZ = 1 AND [ezaWP_AHStatWe"& _ "rtManuellKZ] IS NULL) OR ([ezaWP_AHStatWertManuellKZ] = @Original_ezaWP_AHStatWe"& _ "rtManuellKZ)) AND ((@IsNull_ezaWP_Artikelpreis = 1 AND [ezaWP_Artikelpreis] IS N"& _ "ULL) OR ([ezaWP_Artikelpreis] = @Original_ezaWP_Artikelpreis)) AND ((@IsNull_eza"& _ "WP_ArtikelpreisWaehrung = 1 AND [ezaWP_ArtikelpreisWaehrung] IS NULL) OR ([ezaWP"& _ "_ArtikelpreisWaehrung] = @Original_ezaWP_ArtikelpreisWaehrung)) AND ((@IsNull_ez"& _ "aWP_OrtVerbringens = 1 AND [ezaWP_OrtVerbringens] IS NULL) OR ([ezaWP_OrtVerbrin"& _ "gens] = @Original_ezaWP_OrtVerbringens)) AND ((@IsNull_ezaWP_AbflughafenIATACode"& _ " = 1 AND [ezaWP_AbflughafenIATACode] IS NULL) OR ([ezaWP_AbflughafenIATACode] = "& _ "@Original_ezaWP_AbflughafenIATACode)) AND ((@IsNull_ezaWP_WarenmengeAVUVZugang ="& _ " 1 AND [ezaWP_WarenmengeAVUVZugang] IS NULL) OR ([ezaWP_WarenmengeAVUVZugang] = "& _ "@Original_ezaWP_WarenmengeAVUVZugang)) AND ((@IsNull_ezaWP_WarenmengeAVUVZugangM"& _ "asseinheit = 1 AND [ezaWP_WarenmengeAVUVZugangMasseinheit] IS NULL) OR ([ezaWP_W"& _ "arenmengeAVUVZugangMasseinheit] = @Original_ezaWP_WarenmengeAVUVZugangMasseinhei"& _ "t)) AND ((@IsNull_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier = 1 AND [ezaWP_"& _ "WarenmengeAVUVZugangMasseinheitQualifier] IS NULL) OR ([ezaWP_WarenmengeAVUVZuga"& _ "ngMasseinheitQualifier] = @Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifi"& _ "er)) AND ((@IsNull_ezaWP_Sachbereich = 1 AND [ezaWP_Sachbereich] IS NULL) OR ([e"& _ "zaWP_Sachbereich] = @Original_ezaWP_Sachbereich)) AND ((@IsNull_ezaWP_BedingungC"& _ "ode = 1 AND [ezaWP_BedingungCode] IS NULL) OR ([ezaWP_BedingungCode] = @Original"& _ "_ezaWP_BedingungCode)) AND ((@IsNull_ezaWP_VeredelungWertsteigerung = 1 AND [eza"& _ "WP_VeredelungWertsteigerung] IS NULL) OR ([ezaWP_VeredelungWertsteigerung] = @Or"& _ "iginal_ezaWP_VeredelungWertsteigerung)) AND ((@IsNull_ezaWP_TabakSteuerzeichenID"& _ " = 1 AND [ezaWP_TabakSteuerzeichenID] IS NULL) OR ([ezaWP_TabakSteuerzeichenID] "& _ "= @Original_ezaWP_TabakSteuerzeichenID)) AND ((@IsNull_ezaWP_GehaltsAngabenArtCo"& _ "de1 = 1 AND [ezaWP_GehaltsAngabenArtCode1] IS NULL) OR ([ezaWP_GehaltsAngabenArt"& _ "Code1] = @Original_ezaWP_GehaltsAngabenArtCode1)) AND ((@IsNull_ezaWP_GehaltsAng"& _ "abenGradProzent1 = 1 AND [ezaWP_GehaltsAngabenGradProzent1] IS NULL) OR ([ezaWP_"& _ "GehaltsAngabenGradProzent1] = @Original_ezaWP_GehaltsAngabenGradProzent1)) AND ("& _ "(@IsNull_ezaWP_GehaltsAngabenArtCode2 = 1 AND [ezaWP_GehaltsAngabenArtCode2] IS "& _ "NULL) OR ([ezaWP_GehaltsAngabenArtCode2] = @Original_ezaWP_GehaltsAngabenArtCode"& _ "2)) AND ((@IsNull_ezaWP_GehaltsAngabenGradProzent2 = 1 AND [ezaWP_GehaltsAngaben"& _ "GradProzent2] IS NULL) OR ([ezaWP_GehaltsAngabenGradProzent2] = @Original_ezaWP_"& _ "GehaltsAngabenGradProzent2)) AND ((@IsNull_ezaWP_GehaltsAngabenArtCode3 = 1 AND "& _ "[ezaWP_GehaltsAngabenArtCode3] IS NULL) OR ([ezaWP_GehaltsAngabenArtCode3] = @Or"& _ "iginal_ezaWP_GehaltsAngabenArtCode3)) AND ((@IsNull_ezaWP_GehaltsAngabenGradProz"& _ "ent3 = 1 AND [ezaWP_GehaltsAngabenGradProzent3] IS NULL) OR ([ezaWP_GehaltsAngab"& _ "enGradProzent3] = @Original_ezaWP_GehaltsAngabenGradProzent3)) AND ((@IsNull_eza"& _ "WP_BeguenstigungsMengeMenge = 1 AND [ezaWP_BeguenstigungsMengeMenge] IS NULL) OR"& _ " ([ezaWP_BeguenstigungsMengeMenge] = @Original_ezaWP_BeguenstigungsMengeMenge)) "& _ "AND ((@IsNull_ezaWP_BeguenstigungsMengeMasseinheitCode = 1 AND [ezaWP_Beguenstig"& _ "ungsMengeMasseinheitCode] IS NULL) OR ([ezaWP_BeguenstigungsMengeMasseinheitCode"& _ "] = @Original_ezaWP_BeguenstigungsMengeMasseinheitCode)) AND ((@IsNull_ezaWP_Beg"& _ "uenstigungsMengeQualifier = 1 AND [ezaWP_BeguenstigungsMengeQualifier] IS NULL) "& _ "OR ([ezaWP_BeguenstigungsMengeQualifier] = @Original_ezaWP_BeguenstigungsMengeQu"& _ "alifier)) AND ((@IsNull_ezaWP_Abgabenminderung_AbgabengruppeCode1 = 1 AND [ezaWP"& _ "_Abgabenminderung_AbgabengruppeCode1] IS NULL) OR ([ezaWP_Abgabenminderung_Abgab"& _ "engruppeCode1] = @Original_ezaWP_Abgabenminderung_AbgabengruppeCode1)) AND ((@Is"& _ "Null_ezaWP_Abgabenminderung_Minderungsbetrag1 = 1 AND [ezaWP_Abgabenminderung_Mi"& _ "nderungsbetrag1] IS NULL) OR ([ezaWP_Abgabenminderung_Minderungsbetrag1] = @Orig"& _ "inal_ezaWP_Abgabenminderung_Minderungsbetrag1)) AND ((@IsNull_ezaWP_Abgabenminde"& _ "rung_AbgabengruppeCode2 = 1 AND [ezaWP_Abgabenminderung_AbgabengruppeCode2] IS N"& _ "ULL) OR ([ezaWP_Abgabenminderung_AbgabengruppeCode2] = @Original_ezaWP_Abgabenmi"& _ "nderung_AbgabengruppeCode2)) AND ((@IsNull_ezaWP_Abgabenminderung_Minderungsbetr"& _ "ag2 = 1 AND [ezaWP_Abgabenminderung_Minderungsbetrag2] IS NULL) OR ([ezaWP_Abgab"& _ "enminderung_Minderungsbetrag2] = @Original_ezaWP_Abgabenminderung_Minderungsbetr"& _ "ag2)) AND ((@IsNull_ezaWP_Abgabenminderung_AbgabengruppeCode3 = 1 AND [ezaWP_Abg"& _ "abenminderung_AbgabengruppeCode3] IS NULL) OR ([ezaWP_Abgabenminderung_Abgabengr"& _ "uppeCode3] = @Original_ezaWP_Abgabenminderung_AbgabengruppeCode3)) AND ((@IsNull"& _ "_ezaWP_Abgabenminderung_Minderungsbetrag3 = 1 AND [ezaWP_Abgabenminderung_Minder"& _ "ungsbetrag3] IS NULL) OR ([ezaWP_Abgabenminderung_Minderungsbetrag3] = @Original"& _ "_ezaWP_Abgabenminderung_Minderungsbetrag3)) AND ((@IsNull_ezaWP_BesondereWertang"& _ "abe_Wert1 = 1 AND [ezaWP_BesondereWertangabe_Wert1] IS NULL) OR ([ezaWP_Besonder"& _ "eWertangabe_Wert1] = @Original_ezaWP_BesondereWertangabe_Wert1)) AND ((@IsNull_e"& _ "zaWP_BesondereWertangabe_PreisartCode1 = 1 AND [ezaWP_BesondereWertangabe_Preisa"& _ "rtCode1] IS NULL) OR ([ezaWP_BesondereWertangabe_PreisartCode1] = @Original_ezaW"& _ "P_BesondereWertangabe_PreisartCode1)) AND ((@IsNull_ezaWP_BesondereWertangabe_We"& _ "rt2 = 1 AND [ezaWP_BesondereWertangabe_Wert2] IS NULL) OR ([ezaWP_BesondereWerta"& _ "ngabe_Wert2] = @Original_ezaWP_BesondereWertangabe_Wert2)) AND ((@IsNull_ezaWP_B"& _ "esondereWertangabe_PreisartCode2 = 1 AND [ezaWP_BesondereWertangabe_PreisartCode"& _ "2] IS NULL) OR ([ezaWP_BesondereWertangabe_PreisartCode2] = @Original_ezaWP_Beso"& _ "ndereWertangabe_PreisartCode2)) AND ((@IsNull_ezaWP_BesondereWertangabe_Wert3 = "& _ "1 AND [ezaWP_BesondereWertangabe_Wert3] IS NULL) OR ([ezaWP_BesondereWertangabe_"& _ "Wert3] = @Original_ezaWP_BesondereWertangabe_Wert3)) AND ((@IsNull_ezaWP_Besonde"& _ "reWertangabe_PreisartCode3 = 1 AND [ezaWP_BesondereWertangabe_PreisartCode3] IS "& _ "NULL) OR ([ezaWP_BesondereWertangabe_PreisartCode3] = @Original_ezaWP_BesondereW"& _ "ertangabe_PreisartCode3)) AND ((@IsNull_ezaWP_BesondereWertangabe_Wert4 = 1 AND "& _ "[ezaWP_BesondereWertangabe_Wert4] IS NULL) OR ([ezaWP_BesondereWertangabe_Wert4]"& _ " = @Original_ezaWP_BesondereWertangabe_Wert4)) AND ((@IsNull_ezaWP_BesondereWert"& _ "angabe_PreisartCode4 = 1 AND [ezaWP_BesondereWertangabe_PreisartCode4] IS NULL) "& _ "OR ([ezaWP_BesondereWertangabe_PreisartCode4] = @Original_ezaWP_BesondereWertang"& _ "abe_PreisartCode4)) AND ((@IsNull_ezaWP_BesondereWertangabe_Wert5 = 1 AND [ezaWP"& _ "_BesondereWertangabe_Wert5] IS NULL) OR ([ezaWP_BesondereWertangabe_Wert5] = @Or"& _ "iginal_ezaWP_BesondereWertangabe_Wert5)) AND ((@IsNull_ezaWP_BesondereWertangabe"& _ "_PreisartCode5 = 1 AND [ezaWP_BesondereWertangabe_PreisartCode5] IS NULL) OR ([e"& _ "zaWP_BesondereWertangabe_PreisartCode5] = @Original_ezaWP_BesondereWertangabe_Pr"& _ "eisartCode5)) AND ((@IsNull_ezaWP_VZAStatus = 1 AND [ezaWP_VZAStatus] IS NULL) O"& _ "R ([ezaWP_VZAStatus] = @Original_ezaWP_VZAStatus)) AND ((@IsNull_ezaWP_EGZStatus"& _ " = 1 AND [ezaWP_EGZStatus] IS NULL) OR ([ezaWP_EGZStatus] = @Original_ezaWP_EGZS"& _ "tatus)) AND ((@IsNull_ezaWP_DV1Status = 1 AND [ezaWP_DV1Status] IS NULL) OR ([ez"& _ "aWP_DV1Status] = @Original_ezaWP_DV1Status)) AND ((@IsNull_ezaWP_AnmeldeArt = 1 "& _ "AND [ezaWP_AnmeldeArt] IS NULL) OR ([ezaWP_AnmeldeArt] = @Original_ezaWP_Anmelde"& _ "Art)) AND ((@IsNull_ezaWP_BefundDatum = 1 AND [ezaWP_BefundDatum] IS NULL) OR (["& _ "ezaWP_BefundDatum] = @Original_ezaWP_BefundDatum)) AND ((@IsNull_ezaWP_AnmelderA"& _ "dressCodeEORI = 1 AND [ezaWP_AnmelderAdressCodeEORI] IS NULL) OR ([ezaWP_Anmelde"& _ "rAdressCodeEORI] = @Original_ezaWP_AnmelderAdressCodeEORI)) AND ((@IsNull_ezaWP_"& _ "Zollverfahren = 1 AND [ezaWP_Zollverfahren] IS NULL) OR ([ezaWP_Zollverfahren] ="& _ " @Original_ezaWP_Zollverfahren)) AND ((@IsNull_ezaWP_AbrechnungszollstelleCode ="& _ " 1 AND [ezaWP_AbrechnungszollstelleCode] IS NULL) OR ([ezaWP_Abrechnungszollstel"& _ "leCode] = @Original_ezaWP_AbrechnungszollstelleCode)) AND ((@IsNull_ezaWP_Sachbe"& _ "reichCode = 1 AND [ezaWP_SachbereichCode] IS NULL) OR ([ezaWP_SachbereichCode] ="& _ " @Original_ezaWP_SachbereichCode)) AND ((@IsNull_ezaWP_RegistriernummerZA = 1 AN"& _ "D [ezaWP_RegistriernummerZA] IS NULL) OR ([ezaWP_RegistriernummerZA] = @Original"& _ "_ezaWP_RegistriernummerZA)) AND ((@IsNull_ezaWP_AnmeldeVErfahren = 1 AND [ezaWP_"& _ "AnmeldeVErfahren] IS NULL) OR ([ezaWP_AnmeldeVErfahren] = @Original_ezaWP_Anmeld"& _ "eVErfahren)) AND ((@IsNull_ezaWP_Bewilligungsnummer = 1 AND [ezaWP_Bewilligungsn"& _ "ummer] IS NULL) OR ([ezaWP_Bewilligungsnummer] = @Original_ezaWP_Bewilligungsnum"& _ "mer)) AND ((@IsNull_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte = 1 AND ["& _ "ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte] IS NULL) OR ([ezaWP_Bewillig"& _ "ungsnummerEndverwenderEGZDurchDritte] = @Original_ezaWP_BewilligungsnummerEndver"& _ "wenderEGZDurchDritte)) AND ((@IsNull_ezaWP_Zollwert = 1 AND [ezaWP_Zollwert] IS "& _ "NULL) OR ([ezaWP_Zollwert] = @Original_ezaWP_Zollwert)) AND ((@IsNull_ezaWP_Luft"& _ "frachtkostenGesamt = 1 AND [ezaWP_LuftfrachtkostenGesamt] IS NULL) OR ([ezaWP_Lu"& _ "ftfrachtkostenGesamt] = @Original_ezaWP_LuftfrachtkostenGesamt)) AND ((@IsNull_e"& _ "zaWP_IATAKursKz = 1 AND [ezaWP_IATAKursKz] IS NULL) OR ([ezaWP_IATAKursKz] = @Or"& _ "iginal_ezaWP_IATAKursKz)) AND ((@IsNull_ezaWP_LuftfrachtkostenGesamtWaehrung = 1"& _ " AND [ezaWP_LuftfrachtkostenGesamtWaehrung] IS NULL) OR ([ezaWP_Luftfrachtkosten"& _ "GesamtWaehrung] = @Original_ezaWP_LuftfrachtkostenGesamtWaehrung)) AND ((@IsNull"& _ "_ezaWP_KursVereinbartKz = 1 AND [ezaWP_KursVereinbartKz] IS NULL) OR ([ezaWP_Kur"& _ "sVereinbartKz] = @Original_ezaWP_KursVereinbartKz)) AND ((@IsNull_ezaWP_KursBetr"& _ "agVereinbart = 1 AND [ezaWP_KursBetragVereinbart] IS NULL) OR ([ezaWP_KursBetrag"& _ "Vereinbart] = @Original_ezaWP_KursBetragVereinbart)) AND ((@IsNull_ezaWP_KursDat"& _ "um = 1 AND [ezaWP_KursDatum] IS NULL) OR ([ezaWP_KursDatum] = @Original_ezaWP_Ku"& _ "rsDatum)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland = 1 AND"& _ " [ezaWP_Aussenhandelsstatistik_VerkehrszweigInland] IS NULL) OR ([ezaWP_Aussenha"& _ "ndelsstatistik_VerkehrszweigInland] = @Original_ezaWP_Aussenhandelsstatistik_Ver"& _ "kehrszweigInland)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenz"& _ "e = 1 AND [ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze] IS NULL) OR ([ezaWP"& _ "_Aussenhandelsstatistik_VerkehrszweigGrenze] = @Original_ezaWP_Aussenhandelsstat"& _ "istik_VerkehrszweigGrenze)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_Versendun"& _ "gsland = 1 AND [ezaWP_Aussenhandelsstatistik_Versendungsland] IS NULL) OR ([ezaW"& _ "P_Aussenhandelsstatistik_Versendungsland] = @Original_ezaWP_Aussenhandelsstatist"& _ "ik_Versendungsland)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_BEstimmungsbunde"& _ "sland = 1 AND [ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland] IS NULL) OR ("& _ "[ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland] = @Original_ezaWP_Aussenhan"& _ "delsstatistik_BEstimmungsbundesland)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik"& _ "_Bestimmungsland = 1 AND [ezaWP_Aussenhandelsstatistik_Bestimmungsland] IS NULL)"& _ " OR ([ezaWP_Aussenhandelsstatistik_Bestimmungsland] = @Original_ezaWP_Aussenhand"& _ "elsstatistik_Bestimmungsland)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_Befoer"& _ "derungsmittelGranzeStaatszugehoeriglkeitCode = 1 AND [ezaWP_Aussenhandelsstatist"& _ "ik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode] IS NULL) OR ([ezaWP_Ausse"& _ "nhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode] = @Origina"& _ "l_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCod"& _ "e)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt = 1 "& _ "AND [ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt] IS NULL) OR ([ez"& _ "aWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt] = @Original_ezaWP_Ausse"& _ "nhandelsstatistik_BefoerderungsmittelGrenzeArt)) AND ((@IsNull_ezaWP_Aussenhande"& _ "lsstatistik_BefoerderungsmittelBeschreibung = 1 AND [ezaWP_Aussenhandelsstatisti"& _ "k_BefoerderungsmittelBeschreibung] IS NULL) OR ([ezaWP_Aussenhandelsstatistik_Be"& _ "foerderungsmittelBeschreibung] = @Original_ezaWP_Aussenhandelsstatistik_Befoerde"& _ "rungsmittelBeschreibung)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_ArtGeschaef"& _ "t = 1 AND [ezaWP_Aussenhandelsstatistik_ArtGeschaeft] IS NULL) OR ([ezaWP_Aussen"& _ "handelsstatistik_ArtGeschaeft] = @Original_ezaWP_Aussenhandelsstatistik_ArtGesch"& _ "aeft)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_Statistikstatus = 1 AND [ezaWP"& _ "_Aussenhandelsstatistik_Statistikstatus] IS NULL) OR ([ezaWP_Aussenhandelsstatis"& _ "tik_Statistikstatus] = @Original_ezaWP_Aussenhandelsstatistik_Statistikstatus)))"& _ "" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EzaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_PositionsNummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "ezaWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Artikelnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Artikelnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Artikelnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerEZT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerEZT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerEZT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerEZT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warennummerzusatz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warennummerzusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warennummerzusatz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warennummerzusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AbgabensteuerungKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbgabensteuerungKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AbgabensteuerungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbgabensteuerungKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_EUCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EUCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_EUCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EUCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_UrsprungslandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_UrsprungslandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_UrsprungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_UrsprungslandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Rohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "ezaWP_Rohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Eigenmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "ezaWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AHStatMenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AHStatMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_AHStatMenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AHStatMengeMasseinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeMasseinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AHStatMengeMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeMasseinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AHStatMengeQualifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeQualifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AHStatMengeQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeQualifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_KostenEUSt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KostenEUSt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_KostenEUSt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_KostenEUSt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AHStatWert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatWert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AHStatWert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_AHStatWert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_PackstueckAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckAnzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_PackstueckAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_PackstueckAnzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_PackstueckArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_PackstueckArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_PackstueckZeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckZeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_PackstueckZeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckZeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenmenge1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenmenge1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenmenge1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenMasseinheit1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenMasseinheit1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenQualifier1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenQualifier1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenmenge2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenmenge2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenmenge2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenMasseinheit2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenMasseinheit2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenQualifier2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenQualifier2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenmenge3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenmenge3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenmenge3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenMasseinheit3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenMasseinheit3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenQualifier3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenQualifier3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenmenge4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenmenge4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenmenge4", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenMasseinheit4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenMasseinheit4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenQualifier4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenQualifier4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenmenge5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenmenge5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenmenge5", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenMasseinheit5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenMasseinheit5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenQualifier5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenQualifier5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BeguenstigungBenatragtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungBenatragtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BeguenstigungBenatragtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungBenatragtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Kentigentnummer1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Kentigentnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Kentigentnummer2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Kentigentnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_PositionsZusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PositionsZusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_PositionsZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PositionsZusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AHStatWertManuellKZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatWertManuellKZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AHStatWertManuellKZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatWertManuellKZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Artikelpreis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Artikelpreis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Artikelpreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Artikelpreis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_ArtikelpreisWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_ArtikelpreisWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_ArtikelpreisWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_ArtikelpreisWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_OrtVerbringens", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_OrtVerbringens", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_OrtVerbringens", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_OrtVerbringens", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AbflughafenIATACode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbflughafenIATACode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AbflughafenIATACode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbflughafenIATACode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenmengeAVUVZugang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenmengeAVUVZugang", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_WarenmengeAVUVZugang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Sachbereich", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Sachbereich", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Sachbereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Sachbereich", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BedingungCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BedingungCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BedingungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BedingungCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_VeredelungWertsteigerung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VeredelungWertsteigerung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_VeredelungWertsteigerung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_VeredelungWertsteigerung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_TabakSteuerzeichenID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_TabakSteuerzeichenID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_TabakSteuerzeichenID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_TabakSteuerzeichenID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenArtCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenArtCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenArtCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenArtCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenArtCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenArtCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BeguenstigungsMengeMenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeMenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BeguenstigungsMengeMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_BeguenstigungsMengeMenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_Wert1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_Wert1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_Wert1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_Wert2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_Wert2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_Wert2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_Wert3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_Wert3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_Wert3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_Wert4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_Wert4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_Wert4", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_Wert5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_Wert5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_Wert5", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_VZAStatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VZAStatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_VZAStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VZAStatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_EGZStatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EGZStatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_EGZStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EGZStatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_DV1Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_DV1Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_DV1Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_DV1Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AnmeldeArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AnmeldeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BefundDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BefundDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BefundDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BefundDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AnmelderAdressCodeEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmelderAdressCodeEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AnmelderAdressCodeEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmelderAdressCodeEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Zollverfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Zollverfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Zollverfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Zollverfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AbrechnungszollstelleCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbrechnungszollstelleCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AbrechnungszollstelleCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbrechnungszollstelleCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_SachbereichCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_SachbereichCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_SachbereichCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_SachbereichCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_RegistriernummerZA", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_RegistriernummerZA", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_RegistriernummerZA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_RegistriernummerZA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AnmeldeVErfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeVErfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AnmeldeVErfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeVErfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Bewilligungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Bewilligungsnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Bewilligungsnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Bewilligungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Zollwert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Zollwert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Zollwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Zollwert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_LuftfrachtkostenGesamt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_LuftfrachtkostenGesamt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_LuftfrachtkostenGesamt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_LuftfrachtkostenGesamt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_IATAKursKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_IATAKursKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_IATAKursKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_IATAKursKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_KursVereinbartKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursVereinbartKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_KursVereinbartKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursVereinbartKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_KursBetragVereinbart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursBetragVereinbart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_KursBetragVereinbart", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 27, 9, "ezaWP_KursBetragVereinbart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_KursDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_KursDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglke"& _ "itCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoerigl"& _ "keitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_Statistikstatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Statistikstatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_Statistikstatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Statistikstatus", 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].[tblDakosy_EZA_Warenposition] ([ezaWP_EzaId], [ezaWP_PositionsN"& _ "ummer], [ezaWP_Artikelnummer], [ezaWP_WarennummerEZT], [ezaWP_WarennummerZusatzC"& _ "ode1], [ezaWP_WarennummerZusatzCode2], [ezaWP_WarennummerZusatzCode3], [ezaWP_Wa"& _ "rennummerZusatzCode4], [ezaWP_WarennummerZusatzCode5], [ezaWP_WarennummerZusatzC"& _ "ode6], [ezaWP_WarennummerZusatzCode7], [ezaWP_WarennummerZusatzCode8], [ezaWP_Wa"& _ "rennummerZusatzCode9], [ezaWP_WarennummerZusatzCode10], [ezaWP_Warennummerzusatz"& _ "1], [ezaWP_Warennummerzusatz2], [ezaWP_Warenbezeichnung], [ezaWP_VerfahrensCodeV"& _ "orangegangenesVerfahren], [ezaWP_AbgabensteuerungKz], [ezaWP_EUCode], [ezaWP_Urs"& _ "prungslandCode], [ezaWP_Rohmasse], [ezaWP_Eigenmasse], [ezaWP_AHStatMenge], [eza"& _ "WP_AHStatMengeMasseinheit], [ezaWP_AHStatMengeQualifier], [ezaWP_KostenEUSt], [e"& _ "zaWP_AHStatWert], [ezaWP_PackstueckAnzahl], [ezaWP_PackstueckArt], [ezaWP_Packst"& _ "ueckZeichen], [ezaWP_Warenmenge1], [ezaWP_WarenMasseinheit1], [ezaWP_WarenQualif"& _ "ier1], [ezaWP_Warenmenge2], [ezaWP_WarenMasseinheit2], [ezaWP_WarenQualifier2], "& _ "[ezaWP_Warenmenge3], [ezaWP_WarenMasseinheit3], [ezaWP_WarenQualifier3], [ezaWP_"& _ "Warenmenge4], [ezaWP_WarenMasseinheit4], [ezaWP_WarenQualifier4], [ezaWP_Warenme"& _ "nge5], [ezaWP_WarenMasseinheit5], [ezaWP_WarenQualifier5], [ezaWP_BeguenstigungB"& _ "enatragtCode], [ezaWP_Kentigentnummer1], [ezaWP_Kentigentnummer2], [ezaWP_Positi"& _ "onsZusatz], [ezaWP_AHStatWertManuellKZ], [ezaWP_Artikelpreis], [ezaWP_Artikelpre"& _ "isWaehrung], [ezaWP_OrtVerbringens], [ezaWP_AbflughafenIATACode], [ezaWP_Warenme"& _ "ngeAVUVZugang], [ezaWP_WarenmengeAVUVZugangMasseinheit], [ezaWP_WarenmengeAVUVZu"& _ "gangMasseinheitQualifier], [ezaWP_Sachbereich], [ezaWP_BedingungCode], [ezaWP_Ve"& _ "redelungWertsteigerung], [ezaWP_TabakSteuerzeichenID], [ezaWP_GehaltsAngabenArtC"& _ "ode1], [ezaWP_GehaltsAngabenGradProzent1], [ezaWP_GehaltsAngabenArtCode2], [ezaW"& _ "P_GehaltsAngabenGradProzent2], [ezaWP_GehaltsAngabenArtCode3], [ezaWP_GehaltsAng"& _ "abenGradProzent3], [ezaWP_BeguenstigungsMengeMenge], [ezaWP_BeguenstigungsMengeM"& _ "asseinheitCode], [ezaWP_BeguenstigungsMengeQualifier], [ezaWP_Abgabenminderung_A"& _ "bgabengruppeCode1], [ezaWP_Abgabenminderung_Minderungsbetrag1], [ezaWP_Abgabenmi"& _ "nderung_AbgabengruppeCode2], [ezaWP_Abgabenminderung_Minderungsbetrag2], [ezaWP_"& _ "Abgabenminderung_AbgabengruppeCode3], [ezaWP_Abgabenminderung_Minderungsbetrag3]"& _ ", [ezaWP_BesondereWertangabe_Wert1], [ezaWP_BesondereWertangabe_PreisartCode1], "& _ "[ezaWP_BesondereWertangabe_Wert2], [ezaWP_BesondereWertangabe_PreisartCode2], [e"& _ "zaWP_BesondereWertangabe_Wert3], [ezaWP_BesondereWertangabe_PreisartCode3], [eza"& _ "WP_BesondereWertangabe_Wert4], [ezaWP_BesondereWertangabe_PreisartCode4], [ezaWP"& _ "_BesondereWertangabe_Wert5], [ezaWP_BesondereWertangabe_PreisartCode5], [ezaWP_V"& _ "ZAStatus], [ezaWP_EGZStatus], [ezaWP_DV1Status], [ezaWP_AnmeldeArt], [ezaWP_Befu"& _ "ndDatum], [ezaWP_AnmelderAdressCodeEORI], [ezaWP_Zollverfahren], [ezaWP_Abrechnu"& _ "ngszollstelleCode], [ezaWP_SachbereichCode], [ezaWP_RegistriernummerZA], [ezaWP_"& _ "AnmeldeVErfahren], [ezaWP_Bewilligungsnummer], [ezaWP_BewilligungsnummerEndverwe"& _ "nderEGZDurchDritte], [ezaWP_Zollwert], [ezaWP_LuftfrachtkostenGesamt], [ezaWP_IA"& _ "TAKursKz], [ezaWP_LuftfrachtkostenGesamtWaehrung], [ezaWP_KursVereinbartKz], [ez"& _ "aWP_KursBetragVereinbart], [ezaWP_KursDatum], [ezaWP_Aussenhandelsstatistik_Verk"& _ "ehrszweigInland], [ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze], [ezaWP_Aus"& _ "senhandelsstatistik_Versendungsland], [ezaWP_Aussenhandelsstatistik_BEstimmungsb"& _ "undesland], [ezaWP_Aussenhandelsstatistik_Bestimmungsland], [ezaWP_Aussenhandels"& _ "statistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode], [ezaWP_Aussenhand"& _ "elsstatistik_BefoerderungsmittelGrenzeArt], [ezaWP_Aussenhandelsstatistik_Befoer"& _ "derungsmittelBeschreibung], [ezaWP_Aussenhandelsstatistik_ArtGeschaeft], [ezaWP_"& _ "Aussenhandelsstatistik_Statistikstatus]) VALUES (@ezaWP_EzaId, @ezaWP_PositionsN"& _ "ummer, @ezaWP_Artikelnummer, @ezaWP_WarennummerEZT, @ezaWP_WarennummerZusatzCode"& _ "1, @ezaWP_WarennummerZusatzCode2, @ezaWP_WarennummerZusatzCode3, @ezaWP_Warennum"& _ "merZusatzCode4, @ezaWP_WarennummerZusatzCode5, @ezaWP_WarennummerZusatzCode6, @e"& _ "zaWP_WarennummerZusatzCode7, @ezaWP_WarennummerZusatzCode8, @ezaWP_WarennummerZu"& _ "satzCode9, @ezaWP_WarennummerZusatzCode10, @ezaWP_Warennummerzusatz1, @ezaWP_War"& _ "ennummerzusatz2, @ezaWP_Warenbezeichnung, @ezaWP_VerfahrensCodeVorangegangenesVe"& _ "rfahren, @ezaWP_AbgabensteuerungKz, @ezaWP_EUCode, @ezaWP_UrsprungslandCode, @ez"& _ "aWP_Rohmasse, @ezaWP_Eigenmasse, @ezaWP_AHStatMenge, @ezaWP_AHStatMengeMasseinhe"& _ "it, @ezaWP_AHStatMengeQualifier, @ezaWP_KostenEUSt, @ezaWP_AHStatWert, @ezaWP_Pa"& _ "ckstueckAnzahl, @ezaWP_PackstueckArt, @ezaWP_PackstueckZeichen, @ezaWP_Warenmeng"& _ "e1, @ezaWP_WarenMasseinheit1, @ezaWP_WarenQualifier1, @ezaWP_Warenmenge2, @ezaWP"& _ "_WarenMasseinheit2, @ezaWP_WarenQualifier2, @ezaWP_Warenmenge3, @ezaWP_WarenMass"& _ "einheit3, @ezaWP_WarenQualifier3, @ezaWP_Warenmenge4, @ezaWP_WarenMasseinheit4, "& _ "@ezaWP_WarenQualifier4, @ezaWP_Warenmenge5, @ezaWP_WarenMasseinheit5, @ezaWP_War"& _ "enQualifier5, @ezaWP_BeguenstigungBenatragtCode, @ezaWP_Kentigentnummer1, @ezaWP"& _ "_Kentigentnummer2, @ezaWP_PositionsZusatz, @ezaWP_AHStatWertManuellKZ, @ezaWP_Ar"& _ "tikelpreis, @ezaWP_ArtikelpreisWaehrung, @ezaWP_OrtVerbringens, @ezaWP_Abflughaf"& _ "enIATACode, @ezaWP_WarenmengeAVUVZugang, @ezaWP_WarenmengeAVUVZugangMasseinheit,"& _ " @ezaWP_WarenmengeAVUVZugangMasseinheitQualifier, @ezaWP_Sachbereich, @ezaWP_Bed"& _ "ingungCode, @ezaWP_VeredelungWertsteigerung, @ezaWP_TabakSteuerzeichenID, @ezaWP"& _ "_GehaltsAngabenArtCode1, @ezaWP_GehaltsAngabenGradProzent1, @ezaWP_GehaltsAngabe"& _ "nArtCode2, @ezaWP_GehaltsAngabenGradProzent2, @ezaWP_GehaltsAngabenArtCode3, @ez"& _ "aWP_GehaltsAngabenGradProzent3, @ezaWP_BeguenstigungsMengeMenge, @ezaWP_Beguenst"& _ "igungsMengeMasseinheitCode, @ezaWP_BeguenstigungsMengeQualifier, @ezaWP_Abgabenm"& _ "inderung_AbgabengruppeCode1, @ezaWP_Abgabenminderung_Minderungsbetrag1, @ezaWP_A"& _ "bgabenminderung_AbgabengruppeCode2, @ezaWP_Abgabenminderung_Minderungsbetrag2, @"& _ "ezaWP_Abgabenminderung_AbgabengruppeCode3, @ezaWP_Abgabenminderung_Minderungsbet"& _ "rag3, @ezaWP_BesondereWertangabe_Wert1, @ezaWP_BesondereWertangabe_PreisartCode1"& _ ", @ezaWP_BesondereWertangabe_Wert2, @ezaWP_BesondereWertangabe_PreisartCode2, @e"& _ "zaWP_BesondereWertangabe_Wert3, @ezaWP_BesondereWertangabe_PreisartCode3, @ezaWP"& _ "_BesondereWertangabe_Wert4, @ezaWP_BesondereWertangabe_PreisartCode4, @ezaWP_Bes"& _ "ondereWertangabe_Wert5, @ezaWP_BesondereWertangabe_PreisartCode5, @ezaWP_VZAStat"& _ "us, @ezaWP_EGZStatus, @ezaWP_DV1Status, @ezaWP_AnmeldeArt, @ezaWP_BefundDatum, @"& _ "ezaWP_AnmelderAdressCodeEORI, @ezaWP_Zollverfahren, @ezaWP_Abrechnungszollstelle"& _ "Code, @ezaWP_SachbereichCode, @ezaWP_RegistriernummerZA, @ezaWP_AnmeldeVErfahren"& _ ", @ezaWP_Bewilligungsnummer, @ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte"& _ ", @ezaWP_Zollwert, @ezaWP_LuftfrachtkostenGesamt, @ezaWP_IATAKursKz, @ezaWP_Luft"& _ "frachtkostenGesamtWaehrung, @ezaWP_KursVereinbartKz, @ezaWP_KursBetragVereinbart"& _ ", @ezaWP_KursDatum, @ezaWP_Aussenhandelsstatistik_VerkehrszweigInland, @ezaWP_Au"& _ "ssenhandelsstatistik_VerkehrszweigGrenze, @ezaWP_Aussenhandelsstatistik_Versendu"& _ "ngsland, @ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland, @ezaWP_Aussenhande"& _ "lsstatistik_Bestimmungsland, @ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGr"& _ "anzeStaatszugehoeriglkeitCode, @ezaWP_Aussenhandelsstatistik_Befoerderungsmittel"& _ "GrenzeArt, @ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung, @ezaWP"& _ "_Aussenhandelsstatistik_ArtGeschaeft, @ezaWP_Aussenhandelsstatistik_Statistiksta"& _ "tus);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaWP_Id, ezaWP_EzaId, ezaWP_PositionsNummer, ezaWP_Artikelnummer,"& _ " ezaWP_WarennummerEZT, ezaWP_WarennummerZusatzCode1, ezaWP_WarennummerZusatzCode"& _ "2, ezaWP_WarennummerZusatzCode3, ezaWP_WarennummerZusatzCode4, ezaWP_Warennummer"& _ "ZusatzCode5, ezaWP_WarennummerZusatzCode6, ezaWP_WarennummerZusatzCode7, ezaWP_W"& _ "arennummerZusatzCode8, ezaWP_WarennummerZusatzCode9, ezaWP_WarennummerZusatzCode"& _ "10, ezaWP_Warennummerzusatz1, ezaWP_Warennummerzusatz2, ezaWP_Warenbezeichnung, "& _ "ezaWP_VerfahrensCodeVorangegangenesVerfahren, ezaWP_AbgabensteuerungKz, ezaWP_EU"& _ "Code, ezaWP_UrsprungslandCode, ezaWP_Rohmasse, ezaWP_Eigenmasse, ezaWP_AHStatMen"& _ "ge, ezaWP_AHStatMengeMasseinheit, ezaWP_AHStatMengeQualifier, ezaWP_KostenEUSt, "& _ "ezaWP_AHStatWert, ezaWP_PackstueckAnzahl, ezaWP_PackstueckArt, ezaWP_PackstueckZ"& _ "eichen, ezaWP_Warenmenge1, ezaWP_WarenMasseinheit1, ezaWP_WarenQualifier1, ezaWP"& _ "_Warenmenge2, ezaWP_WarenMasseinheit2, ezaWP_WarenQualifier2, ezaWP_Warenmenge3,"& _ " ezaWP_WarenMasseinheit3, ezaWP_WarenQualifier3, ezaWP_Warenmenge4, ezaWP_WarenM"& _ "asseinheit4, ezaWP_WarenQualifier4, ezaWP_Warenmenge5, ezaWP_WarenMasseinheit5, "& _ "ezaWP_WarenQualifier5, ezaWP_BeguenstigungBenatragtCode, ezaWP_Kentigentnummer1,"& _ " ezaWP_Kentigentnummer2, ezaWP_PositionsZusatz, ezaWP_AHStatWertManuellKZ, ezaWP"& _ "_Artikelpreis, ezaWP_ArtikelpreisWaehrung, ezaWP_OrtVerbringens, ezaWP_Abflughaf"& _ "enIATACode, ezaWP_WarenmengeAVUVZugang, ezaWP_WarenmengeAVUVZugangMasseinheit, e"& _ "zaWP_WarenmengeAVUVZugangMasseinheitQualifier, ezaWP_Sachbereich, ezaWP_Bedingun"& _ "gCode, ezaWP_VeredelungWertsteigerung, ezaWP_TabakSteuerzeichenID, ezaWP_Gehalts"& _ "AngabenArtCode1, ezaWP_GehaltsAngabenGradProzent1, ezaWP_GehaltsAngabenArtCode2,"& _ " ezaWP_GehaltsAngabenGradProzent2, ezaWP_GehaltsAngabenArtCode3, ezaWP_GehaltsAn"& _ "gabenGradProzent3, ezaWP_BeguenstigungsMengeMenge, ezaWP_BeguenstigungsMengeMass"& _ "einheitCode, ezaWP_BeguenstigungsMengeQualifier, ezaWP_Abgabenminderung_Abgabeng"& _ "ruppeCode1, ezaWP_Abgabenminderung_Minderungsbetrag1, ezaWP_Abgabenminderung_Abg"& _ "abengruppeCode2, ezaWP_Abgabenminderung_Minderungsbetrag2, ezaWP_Abgabenminderun"& _ "g_AbgabengruppeCode3, ezaWP_Abgabenminderung_Minderungsbetrag3, ezaWP_BesondereW"& _ "ertangabe_Wert1, ezaWP_BesondereWertangabe_PreisartCode1, ezaWP_BesondereWertang"& _ "abe_Wert2, ezaWP_BesondereWertangabe_PreisartCode2, ezaWP_BesondereWertangabe_We"& _ "rt3, ezaWP_BesondereWertangabe_PreisartCode3, ezaWP_BesondereWertangabe_Wert4, e"& _ "zaWP_BesondereWertangabe_PreisartCode4, ezaWP_BesondereWertangabe_Wert5, ezaWP_B"& _ "esondereWertangabe_PreisartCode5, ezaWP_VZAStatus, ezaWP_EGZStatus, ezaWP_DV1Sta"& _ "tus, ezaWP_AnmeldeArt, ezaWP_BefundDatum, ezaWP_AnmelderAdressCodeEORI, ezaWP_Zo"& _ "llverfahren, ezaWP_AbrechnungszollstelleCode, ezaWP_SachbereichCode, ezaWP_Regis"& _ "triernummerZA, ezaWP_AnmeldeVErfahren, ezaWP_Bewilligungsnummer, ezaWP_Bewilligu"& _ "ngsnummerEndverwenderEGZDurchDritte, ezaWP_Zollwert, ezaWP_LuftfrachtkostenGesam"& _ "t, ezaWP_IATAKursKz, ezaWP_LuftfrachtkostenGesamtWaehrung, ezaWP_KursVereinbartK"& _ "z, ezaWP_KursBetragVereinbart, ezaWP_KursDatum, ezaWP_Aussenhandelsstatistik_Ver"& _ "kehrszweigInland, ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze, ezaWP_Aussen"& _ "handelsstatistik_Versendungsland, ezaWP_Aussenhandelsstatistik_BEstimmungsbundes"& _ "land, ezaWP_Aussenhandelsstatistik_Bestimmungsland, ezaWP_Aussenhandelsstatistik"& _ "_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode, ezaWP_Aussenhandelsstatisti"& _ "k_BefoerderungsmittelGrenzeArt, ezaWP_Aussenhandelsstatistik_Befoerderungsmittel"& _ "Beschreibung, ezaWP_Aussenhandelsstatistik_ArtGeschaeft, ezaWP_Aussenhandelsstat"& _ "istik_Statistikstatus FROM tblDakosy_EZA_Warenposition WHERE (ezaWP_Id = SCOPE_I"& _ "DENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EzaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "ezaWP_PositionsNummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Artikelnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerEZT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerEZT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warennummerzusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warennummerzusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AbgabensteuerungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbgabensteuerungKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_EUCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EUCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_UrsprungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_UrsprungslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "ezaWP_Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "ezaWP_Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AHStatMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_AHStatMenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AHStatMengeMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AHStatMengeQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeQualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_KostenEUSt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_KostenEUSt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AHStatWert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_AHStatWert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_PackstueckAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_PackstueckAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_PackstueckArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_PackstueckZeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckZeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenmenge1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenMasseinheit1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenQualifier1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenmenge2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenMasseinheit2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenQualifier2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenmenge3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenMasseinheit3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenQualifier3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenmenge4", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenMasseinheit4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenQualifier4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenmenge5", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenMasseinheit5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenQualifier5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BeguenstigungBenatragtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungBenatragtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Kentigentnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Kentigentnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_PositionsZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PositionsZusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AHStatWertManuellKZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatWertManuellKZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Artikelpreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Artikelpreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_ArtikelpreisWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_ArtikelpreisWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_OrtVerbringens", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_OrtVerbringens", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AbflughafenIATACode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbflughafenIATACode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenmengeAVUVZugang", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_WarenmengeAVUVZugang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Sachbereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Sachbereich", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BedingungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BedingungCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_VeredelungWertsteigerung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_VeredelungWertsteigerung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_TabakSteuerzeichenID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_TabakSteuerzeichenID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenArtCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenArtCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenArtCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BeguenstigungsMengeMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_BeguenstigungsMengeMenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_Wert1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_Wert2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_Wert3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_Wert4", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_Wert5", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_VZAStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VZAStatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_EGZStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EGZStatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_DV1Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_DV1Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AnmeldeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BefundDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BefundDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AnmelderAdressCodeEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmelderAdressCodeEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Zollverfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Zollverfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AbrechnungszollstelleCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbrechnungszollstelleCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_SachbereichCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_SachbereichCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_RegistriernummerZA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_RegistriernummerZA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AnmeldeVErfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeVErfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Bewilligungsnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Bewilligungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Zollwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Zollwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_LuftfrachtkostenGesamt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_LuftfrachtkostenGesamt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_IATAKursKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_IATAKursKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_KursVereinbartKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursVereinbartKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_KursBetragVereinbart", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 27, 9, "ezaWP_KursBetragVereinbart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_KursDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_Statistikstatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Statistikstatus", 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].[tblDakosy_EZA_Warenposition] SET [ezaWP_EzaId] = @ezaWP_EzaId, [eza"& _ "WP_PositionsNummer] = @ezaWP_PositionsNummer, [ezaWP_Artikelnummer] = @ezaWP_Art"& _ "ikelnummer, [ezaWP_WarennummerEZT] = @ezaWP_WarennummerEZT, [ezaWP_WarennummerZu"& _ "satzCode1] = @ezaWP_WarennummerZusatzCode1, [ezaWP_WarennummerZusatzCode2] = @ez"& _ "aWP_WarennummerZusatzCode2, [ezaWP_WarennummerZusatzCode3] = @ezaWP_WarennummerZ"& _ "usatzCode3, [ezaWP_WarennummerZusatzCode4] = @ezaWP_WarennummerZusatzCode4, [eza"& _ "WP_WarennummerZusatzCode5] = @ezaWP_WarennummerZusatzCode5, [ezaWP_WarennummerZu"& _ "satzCode6] = @ezaWP_WarennummerZusatzCode6, [ezaWP_WarennummerZusatzCode7] = @ez"& _ "aWP_WarennummerZusatzCode7, [ezaWP_WarennummerZusatzCode8] = @ezaWP_WarennummerZ"& _ "usatzCode8, [ezaWP_WarennummerZusatzCode9] = @ezaWP_WarennummerZusatzCode9, [eza"& _ "WP_WarennummerZusatzCode10] = @ezaWP_WarennummerZusatzCode10, [ezaWP_Warennummer"& _ "zusatz1] = @ezaWP_Warennummerzusatz1, [ezaWP_Warennummerzusatz2] = @ezaWP_Warenn"& _ "ummerzusatz2, [ezaWP_Warenbezeichnung] = @ezaWP_Warenbezeichnung, [ezaWP_Verfahr"& _ "ensCodeVorangegangenesVerfahren] = @ezaWP_VerfahrensCodeVorangegangenesVerfahren"& _ ", [ezaWP_AbgabensteuerungKz] = @ezaWP_AbgabensteuerungKz, [ezaWP_EUCode] = @ezaW"& _ "P_EUCode, [ezaWP_UrsprungslandCode] = @ezaWP_UrsprungslandCode, [ezaWP_Rohmasse]"& _ " = @ezaWP_Rohmasse, [ezaWP_Eigenmasse] = @ezaWP_Eigenmasse, [ezaWP_AHStatMenge] "& _ "= @ezaWP_AHStatMenge, [ezaWP_AHStatMengeMasseinheit] = @ezaWP_AHStatMengeMassein"& _ "heit, [ezaWP_AHStatMengeQualifier] = @ezaWP_AHStatMengeQualifier, [ezaWP_KostenE"& _ "USt] = @ezaWP_KostenEUSt, [ezaWP_AHStatWert] = @ezaWP_AHStatWert, [ezaWP_Packstu"& _ "eckAnzahl] = @ezaWP_PackstueckAnzahl, [ezaWP_PackstueckArt] = @ezaWP_PackstueckA"& _ "rt, [ezaWP_PackstueckZeichen] = @ezaWP_PackstueckZeichen, [ezaWP_Warenmenge1] = "& _ "@ezaWP_Warenmenge1, [ezaWP_WarenMasseinheit1] = @ezaWP_WarenMasseinheit1, [ezaWP"& _ "_WarenQualifier1] = @ezaWP_WarenQualifier1, [ezaWP_Warenmenge2] = @ezaWP_Warenme"& _ "nge2, [ezaWP_WarenMasseinheit2] = @ezaWP_WarenMasseinheit2, [ezaWP_WarenQualifie"& _ "r2] = @ezaWP_WarenQualifier2, [ezaWP_Warenmenge3] = @ezaWP_Warenmenge3, [ezaWP_W"& _ "arenMasseinheit3] = @ezaWP_WarenMasseinheit3, [ezaWP_WarenQualifier3] = @ezaWP_W"& _ "arenQualifier3, [ezaWP_Warenmenge4] = @ezaWP_Warenmenge4, [ezaWP_WarenMasseinhei"& _ "t4] = @ezaWP_WarenMasseinheit4, [ezaWP_WarenQualifier4] = @ezaWP_WarenQualifier4"& _ ", [ezaWP_Warenmenge5] = @ezaWP_Warenmenge5, [ezaWP_WarenMasseinheit5] = @ezaWP_W"& _ "arenMasseinheit5, [ezaWP_WarenQualifier5] = @ezaWP_WarenQualifier5, [ezaWP_Begue"& _ "nstigungBenatragtCode] = @ezaWP_BeguenstigungBenatragtCode, [ezaWP_Kentigentnumm"& _ "er1] = @ezaWP_Kentigentnummer1, [ezaWP_Kentigentnummer2] = @ezaWP_Kentigentnumme"& _ "r2, [ezaWP_PositionsZusatz] = @ezaWP_PositionsZusatz, [ezaWP_AHStatWertManuellKZ"& _ "] = @ezaWP_AHStatWertManuellKZ, [ezaWP_Artikelpreis] = @ezaWP_Artikelpreis, [eza"& _ "WP_ArtikelpreisWaehrung] = @ezaWP_ArtikelpreisWaehrung, [ezaWP_OrtVerbringens] ="& _ " @ezaWP_OrtVerbringens, [ezaWP_AbflughafenIATACode] = @ezaWP_AbflughafenIATACode"& _ ", [ezaWP_WarenmengeAVUVZugang] = @ezaWP_WarenmengeAVUVZugang, [ezaWP_WarenmengeA"& _ "VUVZugangMasseinheit] = @ezaWP_WarenmengeAVUVZugangMasseinheit, [ezaWP_Warenmeng"& _ "eAVUVZugangMasseinheitQualifier] = @ezaWP_WarenmengeAVUVZugangMasseinheitQualifi"& _ "er, [ezaWP_Sachbereich] = @ezaWP_Sachbereich, [ezaWP_BedingungCode] = @ezaWP_Bed"& _ "ingungCode, [ezaWP_VeredelungWertsteigerung] = @ezaWP_VeredelungWertsteigerung, "& _ "[ezaWP_TabakSteuerzeichenID] = @ezaWP_TabakSteuerzeichenID, [ezaWP_GehaltsAngabe"& _ "nArtCode1] = @ezaWP_GehaltsAngabenArtCode1, [ezaWP_GehaltsAngabenGradProzent1] ="& _ " @ezaWP_GehaltsAngabenGradProzent1, [ezaWP_GehaltsAngabenArtCode2] = @ezaWP_Geha"& _ "ltsAngabenArtCode2, [ezaWP_GehaltsAngabenGradProzent2] = @ezaWP_GehaltsAngabenGr"& _ "adProzent2, [ezaWP_GehaltsAngabenArtCode3] = @ezaWP_GehaltsAngabenArtCode3, [eza"& _ "WP_GehaltsAngabenGradProzent3] = @ezaWP_GehaltsAngabenGradProzent3, [ezaWP_Begue"& _ "nstigungsMengeMenge] = @ezaWP_BeguenstigungsMengeMenge, [ezaWP_BeguenstigungsMen"& _ "geMasseinheitCode] = @ezaWP_BeguenstigungsMengeMasseinheitCode, [ezaWP_Beguensti"& _ "gungsMengeQualifier] = @ezaWP_BeguenstigungsMengeQualifier, [ezaWP_Abgabenminder"& _ "ung_AbgabengruppeCode1] = @ezaWP_Abgabenminderung_AbgabengruppeCode1, [ezaWP_Abg"& _ "abenminderung_Minderungsbetrag1] = @ezaWP_Abgabenminderung_Minderungsbetrag1, [e"& _ "zaWP_Abgabenminderung_AbgabengruppeCode2] = @ezaWP_Abgabenminderung_Abgabengrupp"& _ "eCode2, [ezaWP_Abgabenminderung_Minderungsbetrag2] = @ezaWP_Abgabenminderung_Min"& _ "derungsbetrag2, [ezaWP_Abgabenminderung_AbgabengruppeCode3] = @ezaWP_Abgabenmind"& _ "erung_AbgabengruppeCode3, [ezaWP_Abgabenminderung_Minderungsbetrag3] = @ezaWP_Ab"& _ "gabenminderung_Minderungsbetrag3, [ezaWP_BesondereWertangabe_Wert1] = @ezaWP_Bes"& _ "ondereWertangabe_Wert1, [ezaWP_BesondereWertangabe_PreisartCode1] = @ezaWP_Beson"& _ "dereWertangabe_PreisartCode1, [ezaWP_BesondereWertangabe_Wert2] = @ezaWP_Besonde"& _ "reWertangabe_Wert2, [ezaWP_BesondereWertangabe_PreisartCode2] = @ezaWP_Besondere"& _ "Wertangabe_PreisartCode2, [ezaWP_BesondereWertangabe_Wert3] = @ezaWP_BesondereWe"& _ "rtangabe_Wert3, [ezaWP_BesondereWertangabe_PreisartCode3] = @ezaWP_BesondereWert"& _ "angabe_PreisartCode3, [ezaWP_BesondereWertangabe_Wert4] = @ezaWP_BesondereWertan"& _ "gabe_Wert4, [ezaWP_BesondereWertangabe_PreisartCode4] = @ezaWP_BesondereWertanga"& _ "be_PreisartCode4, [ezaWP_BesondereWertangabe_Wert5] = @ezaWP_BesondereWertangabe"& _ "_Wert5, [ezaWP_BesondereWertangabe_PreisartCode5] = @ezaWP_BesondereWertangabe_P"& _ "reisartCode5, [ezaWP_VZAStatus] = @ezaWP_VZAStatus, [ezaWP_EGZStatus] = @ezaWP_E"& _ "GZStatus, [ezaWP_DV1Status] = @ezaWP_DV1Status, [ezaWP_AnmeldeArt] = @ezaWP_Anme"& _ "ldeArt, [ezaWP_BefundDatum] = @ezaWP_BefundDatum, [ezaWP_AnmelderAdressCodeEORI]"& _ " = @ezaWP_AnmelderAdressCodeEORI, [ezaWP_Zollverfahren] = @ezaWP_Zollverfahren, "& _ "[ezaWP_AbrechnungszollstelleCode] = @ezaWP_AbrechnungszollstelleCode, [ezaWP_Sac"& _ "hbereichCode] = @ezaWP_SachbereichCode, [ezaWP_RegistriernummerZA] = @ezaWP_Regi"& _ "striernummerZA, [ezaWP_AnmeldeVErfahren] = @ezaWP_AnmeldeVErfahren, [ezaWP_Bewil"& _ "ligungsnummer] = @ezaWP_Bewilligungsnummer, [ezaWP_BewilligungsnummerEndverwende"& _ "rEGZDurchDritte] = @ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte, [ezaWP_Z"& _ "ollwert] = @ezaWP_Zollwert, [ezaWP_LuftfrachtkostenGesamt] = @ezaWP_Luftfrachtko"& _ "stenGesamt, [ezaWP_IATAKursKz] = @ezaWP_IATAKursKz, [ezaWP_LuftfrachtkostenGesam"& _ "tWaehrung] = @ezaWP_LuftfrachtkostenGesamtWaehrung, [ezaWP_KursVereinbartKz] = @"& _ "ezaWP_KursVereinbartKz, [ezaWP_KursBetragVereinbart] = @ezaWP_KursBetragVereinba"& _ "rt, [ezaWP_KursDatum] = @ezaWP_KursDatum, [ezaWP_Aussenhandelsstatistik_Verkehrs"& _ "zweigInland] = @ezaWP_Aussenhandelsstatistik_VerkehrszweigInland, [ezaWP_Aussenh"& _ "andelsstatistik_VerkehrszweigGrenze] = @ezaWP_Aussenhandelsstatistik_Verkehrszwe"& _ "igGrenze, [ezaWP_Aussenhandelsstatistik_Versendungsland] = @ezaWP_Aussenhandelss"& _ "tatistik_Versendungsland, [ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland] ="& _ " @ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland, [ezaWP_Aussenhandelsstatis"& _ "tik_Bestimmungsland] = @ezaWP_Aussenhandelsstatistik_Bestimmungsland, [ezaWP_Aus"& _ "senhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode] = @ezaWP"& _ "_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode, [eza"& _ "WP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt] = @ezaWP_Aussenhandelsst"& _ "atistik_BefoerderungsmittelGrenzeArt, [ezaWP_Aussenhandelsstatistik_Befoerderung"& _ "smittelBeschreibung] = @ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschrei"& _ "bung, [ezaWP_Aussenhandelsstatistik_ArtGeschaeft] = @ezaWP_Aussenhandelsstatisti"& _ "k_ArtGeschaeft, [ezaWP_Aussenhandelsstatistik_Statistikstatus] = @ezaWP_Aussenha"& _ "ndelsstatistik_Statistikstatus WHERE (([ezaWP_Id] = @Original_ezaWP_Id) AND ([ez"& _ "aWP_EzaId] = @Original_ezaWP_EzaId) AND ((@IsNull_ezaWP_PositionsNummer = 1 AND "& _ "[ezaWP_PositionsNummer] IS NULL) OR ([ezaWP_PositionsNummer] = @Original_ezaWP_P"& _ "ositionsNummer)) AND ((@IsNull_ezaWP_Artikelnummer = 1 AND [ezaWP_Artikelnummer]"& _ " IS NULL) OR ([ezaWP_Artikelnummer] = @Original_ezaWP_Artikelnummer)) AND ((@IsN"& _ "ull_ezaWP_WarennummerEZT = 1 AND [ezaWP_WarennummerEZT] IS NULL) OR ([ezaWP_Ware"& _ "nnummerEZT] = @Original_ezaWP_WarennummerEZT)) AND ((@IsNull_ezaWP_WarennummerZu"& _ "satzCode1 = 1 AND [ezaWP_WarennummerZusatzCode1] IS NULL) OR ([ezaWP_Warennummer"& _ "ZusatzCode1] = @Original_ezaWP_WarennummerZusatzCode1)) AND ((@IsNull_ezaWP_Ware"& _ "nnummerZusatzCode2 = 1 AND [ezaWP_WarennummerZusatzCode2] IS NULL) OR ([ezaWP_Wa"& _ "rennummerZusatzCode2] = @Original_ezaWP_WarennummerZusatzCode2)) AND ((@IsNull_e"& _ "zaWP_WarennummerZusatzCode3 = 1 AND [ezaWP_WarennummerZusatzCode3] IS NULL) OR ("& _ "[ezaWP_WarennummerZusatzCode3] = @Original_ezaWP_WarennummerZusatzCode3)) AND (("& _ "@IsNull_ezaWP_WarennummerZusatzCode4 = 1 AND [ezaWP_WarennummerZusatzCode4] IS N"& _ "ULL) OR ([ezaWP_WarennummerZusatzCode4] = @Original_ezaWP_WarennummerZusatzCode4"& _ ")) AND ((@IsNull_ezaWP_WarennummerZusatzCode5 = 1 AND [ezaWP_WarennummerZusatzCo"& _ "de5] IS NULL) OR ([ezaWP_WarennummerZusatzCode5] = @Original_ezaWP_WarennummerZu"& _ "satzCode5)) AND ((@IsNull_ezaWP_WarennummerZusatzCode6 = 1 AND [ezaWP_Warennumme"& _ "rZusatzCode6] IS NULL) OR ([ezaWP_WarennummerZusatzCode6] = @Original_ezaWP_Ware"& _ "nnummerZusatzCode6)) AND ((@IsNull_ezaWP_WarennummerZusatzCode7 = 1 AND [ezaWP_W"& _ "arennummerZusatzCode7] IS NULL) OR ([ezaWP_WarennummerZusatzCode7] = @Original_e"& _ "zaWP_WarennummerZusatzCode7)) AND ((@IsNull_ezaWP_WarennummerZusatzCode8 = 1 AND"& _ " [ezaWP_WarennummerZusatzCode8] IS NULL) OR ([ezaWP_WarennummerZusatzCode8] = @O"& _ "riginal_ezaWP_WarennummerZusatzCode8)) AND ((@IsNull_ezaWP_WarennummerZusatzCode"& _ "9 = 1 AND [ezaWP_WarennummerZusatzCode9] IS NULL) OR ([ezaWP_WarennummerZusatzCo"& _ "de9] = @Original_ezaWP_WarennummerZusatzCode9)) AND ((@IsNull_ezaWP_WarennummerZ"& _ "usatzCode10 = 1 AND [ezaWP_WarennummerZusatzCode10] IS NULL) OR ([ezaWP_Warennum"& _ "merZusatzCode10] = @Original_ezaWP_WarennummerZusatzCode10)) AND ((@IsNull_ezaWP"& _ "_Warennummerzusatz1 = 1 AND [ezaWP_Warennummerzusatz1] IS NULL) OR ([ezaWP_Waren"& _ "nummerzusatz1] = @Original_ezaWP_Warennummerzusatz1)) AND ((@IsNull_ezaWP_Warenn"& _ "ummerzusatz2 = 1 AND [ezaWP_Warennummerzusatz2] IS NULL) OR ([ezaWP_Warennummerz"& _ "usatz2] = @Original_ezaWP_Warennummerzusatz2)) AND ((@IsNull_ezaWP_Warenbezeichn"& _ "ung = 1 AND [ezaWP_Warenbezeichnung] IS NULL) OR ([ezaWP_Warenbezeichnung] = @Or"& _ "iginal_ezaWP_Warenbezeichnung)) AND ((@IsNull_ezaWP_VerfahrensCodeVorangegangene"& _ "sVerfahren = 1 AND [ezaWP_VerfahrensCodeVorangegangenesVerfahren] IS NULL) OR (["& _ "ezaWP_VerfahrensCodeVorangegangenesVerfahren] = @Original_ezaWP_VerfahrensCodeVo"& _ "rangegangenesVerfahren)) AND ((@IsNull_ezaWP_AbgabensteuerungKz = 1 AND [ezaWP_A"& _ "bgabensteuerungKz] IS NULL) OR ([ezaWP_AbgabensteuerungKz] = @Original_ezaWP_Abg"& _ "abensteuerungKz)) AND ((@IsNull_ezaWP_EUCode = 1 AND [ezaWP_EUCode] IS NULL) OR "& _ "([ezaWP_EUCode] = @Original_ezaWP_EUCode)) AND ((@IsNull_ezaWP_UrsprungslandCode"& _ " = 1 AND [ezaWP_UrsprungslandCode] IS NULL) OR ([ezaWP_UrsprungslandCode] = @Ori"& _ "ginal_ezaWP_UrsprungslandCode)) AND ((@IsNull_ezaWP_Rohmasse = 1 AND [ezaWP_Rohm"& _ "asse] IS NULL) OR ([ezaWP_Rohmasse] = @Original_ezaWP_Rohmasse)) AND ((@IsNull_e"& _ "zaWP_Eigenmasse = 1 AND [ezaWP_Eigenmasse] IS NULL) OR ([ezaWP_Eigenmasse] = @Or"& _ "iginal_ezaWP_Eigenmasse)) AND ((@IsNull_ezaWP_AHStatMenge = 1 AND [ezaWP_AHStatM"& _ "enge] IS NULL) OR ([ezaWP_AHStatMenge] = @Original_ezaWP_AHStatMenge)) AND ((@Is"& _ "Null_ezaWP_AHStatMengeMasseinheit = 1 AND [ezaWP_AHStatMengeMasseinheit] IS NULL"& _ ") OR ([ezaWP_AHStatMengeMasseinheit] = @Original_ezaWP_AHStatMengeMasseinheit)) "& _ "AND ((@IsNull_ezaWP_AHStatMengeQualifier = 1 AND [ezaWP_AHStatMengeQualifier] IS"& _ " NULL) OR ([ezaWP_AHStatMengeQualifier] = @Original_ezaWP_AHStatMengeQualifier))"& _ " AND ((@IsNull_ezaWP_KostenEUSt = 1 AND [ezaWP_KostenEUSt] IS NULL) OR ([ezaWP_K"& _ "ostenEUSt] = @Original_ezaWP_KostenEUSt)) AND ((@IsNull_ezaWP_AHStatWert = 1 AND"& _ " [ezaWP_AHStatWert] IS NULL) OR ([ezaWP_AHStatWert] = @Original_ezaWP_AHStatWert"& _ ")) AND ((@IsNull_ezaWP_PackstueckAnzahl = 1 AND [ezaWP_PackstueckAnzahl] IS NULL"& _ ") OR ([ezaWP_PackstueckAnzahl] = @Original_ezaWP_PackstueckAnzahl)) AND ((@IsNul"& _ "l_ezaWP_PackstueckArt = 1 AND [ezaWP_PackstueckArt] IS NULL) OR ([ezaWP_Packstue"& _ "ckArt] = @Original_ezaWP_PackstueckArt)) AND ((@IsNull_ezaWP_PackstueckZeichen ="& _ " 1 AND [ezaWP_PackstueckZeichen] IS NULL) OR ([ezaWP_PackstueckZeichen] = @Origi"& _ "nal_ezaWP_PackstueckZeichen)) AND ((@IsNull_ezaWP_Warenmenge1 = 1 AND [ezaWP_War"& _ "enmenge1] IS NULL) OR ([ezaWP_Warenmenge1] = @Original_ezaWP_Warenmenge1)) AND ("& _ "(@IsNull_ezaWP_WarenMasseinheit1 = 1 AND [ezaWP_WarenMasseinheit1] IS NULL) OR ("& _ "[ezaWP_WarenMasseinheit1] = @Original_ezaWP_WarenMasseinheit1)) AND ((@IsNull_ez"& _ "aWP_WarenQualifier1 = 1 AND [ezaWP_WarenQualifier1] IS NULL) OR ([ezaWP_WarenQua"& _ "lifier1] = @Original_ezaWP_WarenQualifier1)) AND ((@IsNull_ezaWP_Warenmenge2 = 1"& _ " AND [ezaWP_Warenmenge2] IS NULL) OR ([ezaWP_Warenmenge2] = @Original_ezaWP_Ware"& _ "nmenge2)) AND ((@IsNull_ezaWP_WarenMasseinheit2 = 1 AND [ezaWP_WarenMasseinheit2"& _ "] IS NULL) OR ([ezaWP_WarenMasseinheit2] = @Original_ezaWP_WarenMasseinheit2)) A"& _ "ND ((@IsNull_ezaWP_WarenQualifier2 = 1 AND [ezaWP_WarenQualifier2] IS NULL) OR ("& _ "[ezaWP_WarenQualifier2] = @Original_ezaWP_WarenQualifier2)) AND ((@IsNull_ezaWP_"& _ "Warenmenge3 = 1 AND [ezaWP_Warenmenge3] IS NULL) OR ([ezaWP_Warenmenge3] = @Orig"& _ "inal_ezaWP_Warenmenge3)) AND ((@IsNull_ezaWP_WarenMasseinheit3 = 1 AND [ezaWP_Wa"& _ "renMasseinheit3] IS NULL) OR ([ezaWP_WarenMasseinheit3] = @Original_ezaWP_WarenM"& _ "asseinheit3)) AND ((@IsNull_ezaWP_WarenQualifier3 = 1 AND [ezaWP_WarenQualifier3"& _ "] IS NULL) OR ([ezaWP_WarenQualifier3] = @Original_ezaWP_WarenQualifier3)) AND ("& _ "(@IsNull_ezaWP_Warenmenge4 = 1 AND [ezaWP_Warenmenge4] IS NULL) OR ([ezaWP_Waren"& _ "menge4] = @Original_ezaWP_Warenmenge4)) AND ((@IsNull_ezaWP_WarenMasseinheit4 = "& _ "1 AND [ezaWP_WarenMasseinheit4] IS NULL) OR ([ezaWP_WarenMasseinheit4] = @Origin"& _ "al_ezaWP_WarenMasseinheit4)) AND ((@IsNull_ezaWP_WarenQualifier4 = 1 AND [ezaWP_"& _ "WarenQualifier4] IS NULL) OR ([ezaWP_WarenQualifier4] = @Original_ezaWP_WarenQua"& _ "lifier4)) AND ((@IsNull_ezaWP_Warenmenge5 = 1 AND [ezaWP_Warenmenge5] IS NULL) O"& _ "R ([ezaWP_Warenmenge5] = @Original_ezaWP_Warenmenge5)) AND ((@IsNull_ezaWP_Waren"& _ "Masseinheit5 = 1 AND [ezaWP_WarenMasseinheit5] IS NULL) OR ([ezaWP_WarenMasseinh"& _ "eit5] = @Original_ezaWP_WarenMasseinheit5)) AND ((@IsNull_ezaWP_WarenQualifier5 "& _ "= 1 AND [ezaWP_WarenQualifier5] IS NULL) OR ([ezaWP_WarenQualifier5] = @Original"& _ "_ezaWP_WarenQualifier5)) AND ((@IsNull_ezaWP_BeguenstigungBenatragtCode = 1 AND "& _ "[ezaWP_BeguenstigungBenatragtCode] IS NULL) OR ([ezaWP_BeguenstigungBenatragtCod"& _ "e] = @Original_ezaWP_BeguenstigungBenatragtCode)) AND ((@IsNull_ezaWP_Kentigentn"& _ "ummer1 = 1 AND [ezaWP_Kentigentnummer1] IS NULL) OR ([ezaWP_Kentigentnummer1] = "& _ "@Original_ezaWP_Kentigentnummer1)) AND ((@IsNull_ezaWP_Kentigentnummer2 = 1 AND "& _ "[ezaWP_Kentigentnummer2] IS NULL) OR ([ezaWP_Kentigentnummer2] = @Original_ezaWP"& _ "_Kentigentnummer2)) AND ((@IsNull_ezaWP_PositionsZusatz = 1 AND [ezaWP_Positions"& _ "Zusatz] IS NULL) OR ([ezaWP_PositionsZusatz] = @Original_ezaWP_PositionsZusatz))"& _ " AND ((@IsNull_ezaWP_AHStatWertManuellKZ = 1 AND [ezaWP_AHStatWertManuellKZ] IS "& _ "NULL) OR ([ezaWP_AHStatWertManuellKZ] = @Original_ezaWP_AHStatWertManuellKZ)) AN"& _ "D ((@IsNull_ezaWP_Artikelpreis = 1 AND [ezaWP_Artikelpreis] IS NULL) OR ([ezaWP_"& _ "Artikelpreis] = @Original_ezaWP_Artikelpreis)) AND ((@IsNull_ezaWP_ArtikelpreisW"& _ "aehrung = 1 AND [ezaWP_ArtikelpreisWaehrung] IS NULL) OR ([ezaWP_ArtikelpreisWae"& _ "hrung] = @Original_ezaWP_ArtikelpreisWaehrung)) AND ((@IsNull_ezaWP_OrtVerbringe"& _ "ns = 1 AND [ezaWP_OrtVerbringens] IS NULL) OR ([ezaWP_OrtVerbringens] = @Origina"& _ "l_ezaWP_OrtVerbringens)) AND ((@IsNull_ezaWP_AbflughafenIATACode = 1 AND [ezaWP_"& _ "AbflughafenIATACode] IS NULL) OR ([ezaWP_AbflughafenIATACode] = @Original_ezaWP_"& _ "AbflughafenIATACode)) AND ((@IsNull_ezaWP_WarenmengeAVUVZugang = 1 AND [ezaWP_Wa"& _ "renmengeAVUVZugang] IS NULL) OR ([ezaWP_WarenmengeAVUVZugang] = @Original_ezaWP_"& _ "WarenmengeAVUVZugang)) AND ((@IsNull_ezaWP_WarenmengeAVUVZugangMasseinheit = 1 A"& _ "ND [ezaWP_WarenmengeAVUVZugangMasseinheit] IS NULL) OR ([ezaWP_WarenmengeAVUVZug"& _ "angMasseinheit] = @Original_ezaWP_WarenmengeAVUVZugangMasseinheit)) AND ((@IsNul"& _ "l_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier = 1 AND [ezaWP_WarenmengeAVUVZu"& _ "gangMasseinheitQualifier] IS NULL) OR ([ezaWP_WarenmengeAVUVZugangMasseinheitQua"& _ "lifier] = @Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier)) AND ((@IsNu"& _ "ll_ezaWP_Sachbereich = 1 AND [ezaWP_Sachbereich] IS NULL) OR ([ezaWP_Sachbereich"& _ "] = @Original_ezaWP_Sachbereich)) AND ((@IsNull_ezaWP_BedingungCode = 1 AND [eza"& _ "WP_BedingungCode] IS NULL) OR ([ezaWP_BedingungCode] = @Original_ezaWP_Bedingung"& _ "Code)) AND ((@IsNull_ezaWP_VeredelungWertsteigerung = 1 AND [ezaWP_VeredelungWer"& _ "tsteigerung] IS NULL) OR ([ezaWP_VeredelungWertsteigerung] = @Original_ezaWP_Ver"& _ "edelungWertsteigerung)) AND ((@IsNull_ezaWP_TabakSteuerzeichenID = 1 AND [ezaWP_"& _ "TabakSteuerzeichenID] IS NULL) OR ([ezaWP_TabakSteuerzeichenID] = @Original_ezaW"& _ "P_TabakSteuerzeichenID)) AND ((@IsNull_ezaWP_GehaltsAngabenArtCode1 = 1 AND [eza"& _ "WP_GehaltsAngabenArtCode1] IS NULL) OR ([ezaWP_GehaltsAngabenArtCode1] = @Origin"& _ "al_ezaWP_GehaltsAngabenArtCode1)) AND ((@IsNull_ezaWP_GehaltsAngabenGradProzent1"& _ " = 1 AND [ezaWP_GehaltsAngabenGradProzent1] IS NULL) OR ([ezaWP_GehaltsAngabenGr"& _ "adProzent1] = @Original_ezaWP_GehaltsAngabenGradProzent1)) AND ((@IsNull_ezaWP_G"& _ "ehaltsAngabenArtCode2 = 1 AND [ezaWP_GehaltsAngabenArtCode2] IS NULL) OR ([ezaWP"& _ "_GehaltsAngabenArtCode2] = @Original_ezaWP_GehaltsAngabenArtCode2)) AND ((@IsNul"& _ "l_ezaWP_GehaltsAngabenGradProzent2 = 1 AND [ezaWP_GehaltsAngabenGradProzent2] IS"& _ " NULL) OR ([ezaWP_GehaltsAngabenGradProzent2] = @Original_ezaWP_GehaltsAngabenGr"& _ "adProzent2)) AND ((@IsNull_ezaWP_GehaltsAngabenArtCode3 = 1 AND [ezaWP_GehaltsAn"& _ "gabenArtCode3] IS NULL) OR ([ezaWP_GehaltsAngabenArtCode3] = @Original_ezaWP_Geh"& _ "altsAngabenArtCode3)) AND ((@IsNull_ezaWP_GehaltsAngabenGradProzent3 = 1 AND [ez"& _ "aWP_GehaltsAngabenGradProzent3] IS NULL) OR ([ezaWP_GehaltsAngabenGradProzent3] "& _ "= @Original_ezaWP_GehaltsAngabenGradProzent3)) AND ((@IsNull_ezaWP_Beguenstigung"& _ "sMengeMenge = 1 AND [ezaWP_BeguenstigungsMengeMenge] IS NULL) OR ([ezaWP_Beguens"& _ "tigungsMengeMenge] = @Original_ezaWP_BeguenstigungsMengeMenge)) AND ((@IsNull_ez"& _ "aWP_BeguenstigungsMengeMasseinheitCode = 1 AND [ezaWP_BeguenstigungsMengeMassein"& _ "heitCode] IS NULL) OR ([ezaWP_BeguenstigungsMengeMasseinheitCode] = @Original_ez"& _ "aWP_BeguenstigungsMengeMasseinheitCode)) AND ((@IsNull_ezaWP_BeguenstigungsMenge"& _ "Qualifier = 1 AND [ezaWP_BeguenstigungsMengeQualifier] IS NULL) OR ([ezaWP_Begue"& _ "nstigungsMengeQualifier] = @Original_ezaWP_BeguenstigungsMengeQualifier)) AND (("& _ "@IsNull_ezaWP_Abgabenminderung_AbgabengruppeCode1 = 1 AND [ezaWP_Abgabenminderun"& _ "g_AbgabengruppeCode1] IS NULL) OR ([ezaWP_Abgabenminderung_AbgabengruppeCode1] ="& _ " @Original_ezaWP_Abgabenminderung_AbgabengruppeCode1)) AND ((@IsNull_ezaWP_Abgab"& _ "enminderung_Minderungsbetrag1 = 1 AND [ezaWP_Abgabenminderung_Minderungsbetrag1]"& _ " IS NULL) OR ([ezaWP_Abgabenminderung_Minderungsbetrag1] = @Original_ezaWP_Abgab"& _ "enminderung_Minderungsbetrag1)) AND ((@IsNull_ezaWP_Abgabenminderung_Abgabengrup"& _ "peCode2 = 1 AND [ezaWP_Abgabenminderung_AbgabengruppeCode2] IS NULL) OR ([ezaWP_"& _ "Abgabenminderung_AbgabengruppeCode2] = @Original_ezaWP_Abgabenminderung_Abgabeng"& _ "ruppeCode2)) AND ((@IsNull_ezaWP_Abgabenminderung_Minderungsbetrag2 = 1 AND [eza"& _ "WP_Abgabenminderung_Minderungsbetrag2] IS NULL) OR ([ezaWP_Abgabenminderung_Mind"& _ "erungsbetrag2] = @Original_ezaWP_Abgabenminderung_Minderungsbetrag2)) AND ((@IsN"& _ "ull_ezaWP_Abgabenminderung_AbgabengruppeCode3 = 1 AND [ezaWP_Abgabenminderung_Ab"& _ "gabengruppeCode3] IS NULL) OR ([ezaWP_Abgabenminderung_AbgabengruppeCode3] = @Or"& _ "iginal_ezaWP_Abgabenminderung_AbgabengruppeCode3)) AND ((@IsNull_ezaWP_Abgabenmi"& _ "nderung_Minderungsbetrag3 = 1 AND [ezaWP_Abgabenminderung_Minderungsbetrag3] IS "& _ "NULL) OR ([ezaWP_Abgabenminderung_Minderungsbetrag3] = @Original_ezaWP_Abgabenmi"& _ "nderung_Minderungsbetrag3)) AND ((@IsNull_ezaWP_BesondereWertangabe_Wert1 = 1 AN"& _ "D [ezaWP_BesondereWertangabe_Wert1] IS NULL) OR ([ezaWP_BesondereWertangabe_Wert"& _ "1] = @Original_ezaWP_BesondereWertangabe_Wert1)) AND ((@IsNull_ezaWP_BesondereWe"& _ "rtangabe_PreisartCode1 = 1 AND [ezaWP_BesondereWertangabe_PreisartCode1] IS NULL"& _ ") OR ([ezaWP_BesondereWertangabe_PreisartCode1] = @Original_ezaWP_BesondereWerta"& _ "ngabe_PreisartCode1)) AND ((@IsNull_ezaWP_BesondereWertangabe_Wert2 = 1 AND [eza"& _ "WP_BesondereWertangabe_Wert2] IS NULL) OR ([ezaWP_BesondereWertangabe_Wert2] = @"& _ "Original_ezaWP_BesondereWertangabe_Wert2)) AND ((@IsNull_ezaWP_BesondereWertanga"& _ "be_PreisartCode2 = 1 AND [ezaWP_BesondereWertangabe_PreisartCode2] IS NULL) OR ("& _ "[ezaWP_BesondereWertangabe_PreisartCode2] = @Original_ezaWP_BesondereWertangabe_"& _ "PreisartCode2)) AND ((@IsNull_ezaWP_BesondereWertangabe_Wert3 = 1 AND [ezaWP_Bes"& _ "ondereWertangabe_Wert3] IS NULL) OR ([ezaWP_BesondereWertangabe_Wert3] = @Origin"& _ "al_ezaWP_BesondereWertangabe_Wert3)) AND ((@IsNull_ezaWP_BesondereWertangabe_Pre"& _ "isartCode3 = 1 AND [ezaWP_BesondereWertangabe_PreisartCode3] IS NULL) OR ([ezaWP"& _ "_BesondereWertangabe_PreisartCode3] = @Original_ezaWP_BesondereWertangabe_Preisa"& _ "rtCode3)) AND ((@IsNull_ezaWP_BesondereWertangabe_Wert4 = 1 AND [ezaWP_Besondere"& _ "Wertangabe_Wert4] IS NULL) OR ([ezaWP_BesondereWertangabe_Wert4] = @Original_eza"& _ "WP_BesondereWertangabe_Wert4)) AND ((@IsNull_ezaWP_BesondereWertangabe_PreisartC"& _ "ode4 = 1 AND [ezaWP_BesondereWertangabe_PreisartCode4] IS NULL) OR ([ezaWP_Beson"& _ "dereWertangabe_PreisartCode4] = @Original_ezaWP_BesondereWertangabe_PreisartCode"& _ "4)) AND ((@IsNull_ezaWP_BesondereWertangabe_Wert5 = 1 AND [ezaWP_BesondereWertan"& _ "gabe_Wert5] IS NULL) OR ([ezaWP_BesondereWertangabe_Wert5] = @Original_ezaWP_Bes"& _ "ondereWertangabe_Wert5)) AND ((@IsNull_ezaWP_BesondereWertangabe_PreisartCode5 ="& _ " 1 AND [ezaWP_BesondereWertangabe_PreisartCode5] IS NULL) OR ([ezaWP_BesondereWe"& _ "rtangabe_PreisartCode5] = @Original_ezaWP_BesondereWertangabe_PreisartCode5)) AN"& _ "D ((@IsNull_ezaWP_VZAStatus = 1 AND [ezaWP_VZAStatus] IS NULL) OR ([ezaWP_VZASta"& _ "tus] = @Original_ezaWP_VZAStatus)) AND ((@IsNull_ezaWP_EGZStatus = 1 AND [ezaWP_"& _ "EGZStatus] IS NULL) OR ([ezaWP_EGZStatus] = @Original_ezaWP_EGZStatus)) AND ((@I"& _ "sNull_ezaWP_DV1Status = 1 AND [ezaWP_DV1Status] IS NULL) OR ([ezaWP_DV1Status] ="& _ " @Original_ezaWP_DV1Status)) AND ((@IsNull_ezaWP_AnmeldeArt = 1 AND [ezaWP_Anmel"& _ "deArt] IS NULL) OR ([ezaWP_AnmeldeArt] = @Original_ezaWP_AnmeldeArt)) AND ((@IsN"& _ "ull_ezaWP_BefundDatum = 1 AND [ezaWP_BefundDatum] IS NULL) OR ([ezaWP_BefundDatu"& _ "m] = @Original_ezaWP_BefundDatum)) AND ((@IsNull_ezaWP_AnmelderAdressCodeEORI = "& _ "1 AND [ezaWP_AnmelderAdressCodeEORI] IS NULL) OR ([ezaWP_AnmelderAdressCodeEORI]"& _ " = @Original_ezaWP_AnmelderAdressCodeEORI)) AND ((@IsNull_ezaWP_Zollverfahren = "& _ "1 AND [ezaWP_Zollverfahren] IS NULL) OR ([ezaWP_Zollverfahren] = @Original_ezaWP"& _ "_Zollverfahren)) AND ((@IsNull_ezaWP_AbrechnungszollstelleCode = 1 AND [ezaWP_Ab"& _ "rechnungszollstelleCode] IS NULL) OR ([ezaWP_AbrechnungszollstelleCode] = @Origi"& _ "nal_ezaWP_AbrechnungszollstelleCode)) AND ((@IsNull_ezaWP_SachbereichCode = 1 AN"& _ "D [ezaWP_SachbereichCode] IS NULL) OR ([ezaWP_SachbereichCode] = @Original_ezaWP"& _ "_SachbereichCode)) AND ((@IsNull_ezaWP_RegistriernummerZA = 1 AND [ezaWP_Registr"& _ "iernummerZA] IS NULL) OR ([ezaWP_RegistriernummerZA] = @Original_ezaWP_Registrie"& _ "rnummerZA)) AND ((@IsNull_ezaWP_AnmeldeVErfahren = 1 AND [ezaWP_AnmeldeVErfahren"& _ "] IS NULL) OR ([ezaWP_AnmeldeVErfahren] = @Original_ezaWP_AnmeldeVErfahren)) AND"& _ " ((@IsNull_ezaWP_Bewilligungsnummer = 1 AND [ezaWP_Bewilligungsnummer] IS NULL) "& _ "OR ([ezaWP_Bewilligungsnummer] = @Original_ezaWP_Bewilligungsnummer)) AND ((@IsN"& _ "ull_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte = 1 AND [ezaWP_Bewilligun"& _ "gsnummerEndverwenderEGZDurchDritte] IS NULL) OR ([ezaWP_BewilligungsnummerEndver"& _ "wenderEGZDurchDritte] = @Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDr"& _ "itte)) AND ((@IsNull_ezaWP_Zollwert = 1 AND [ezaWP_Zollwert] IS NULL) OR ([ezaWP"& _ "_Zollwert] = @Original_ezaWP_Zollwert)) AND ((@IsNull_ezaWP_LuftfrachtkostenGesa"& _ "mt = 1 AND [ezaWP_LuftfrachtkostenGesamt] IS NULL) OR ([ezaWP_LuftfrachtkostenGe"& _ "samt] = @Original_ezaWP_LuftfrachtkostenGesamt)) AND ((@IsNull_ezaWP_IATAKursKz "& _ "= 1 AND [ezaWP_IATAKursKz] IS NULL) OR ([ezaWP_IATAKursKz] = @Original_ezaWP_IAT"& _ "AKursKz)) AND ((@IsNull_ezaWP_LuftfrachtkostenGesamtWaehrung = 1 AND [ezaWP_Luft"& _ "frachtkostenGesamtWaehrung] IS NULL) OR ([ezaWP_LuftfrachtkostenGesamtWaehrung] "& _ "= @Original_ezaWP_LuftfrachtkostenGesamtWaehrung)) AND ((@IsNull_ezaWP_KursVerei"& _ "nbartKz = 1 AND [ezaWP_KursVereinbartKz] IS NULL) OR ([ezaWP_KursVereinbartKz] ="& _ " @Original_ezaWP_KursVereinbartKz)) AND ((@IsNull_ezaWP_KursBetragVereinbart = 1"& _ " AND [ezaWP_KursBetragVereinbart] IS NULL) OR ([ezaWP_KursBetragVereinbart] = @O"& _ "riginal_ezaWP_KursBetragVereinbart)) AND ((@IsNull_ezaWP_KursDatum = 1 AND [ezaW"& _ "P_KursDatum] IS NULL) OR ([ezaWP_KursDatum] = @Original_ezaWP_KursDatum)) AND (("& _ "@IsNull_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland = 1 AND [ezaWP_Aussenha"& _ "ndelsstatistik_VerkehrszweigInland] IS NULL) OR ([ezaWP_Aussenhandelsstatistik_V"& _ "erkehrszweigInland] = @Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland"& _ ")) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze = 1 AND [ezaWP"& _ "_Aussenhandelsstatistik_VerkehrszweigGrenze] IS NULL) OR ([ezaWP_Aussenhandelsst"& _ "atistik_VerkehrszweigGrenze] = @Original_ezaWP_Aussenhandelsstatistik_Verkehrszw"& _ "eigGrenze)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_Versendungsland = 1 AND ["& _ "ezaWP_Aussenhandelsstatistik_Versendungsland] IS NULL) OR ([ezaWP_Aussenhandelss"& _ "tatistik_Versendungsland] = @Original_ezaWP_Aussenhandelsstatistik_Versendungsla"& _ "nd)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland = 1 AND [e"& _ "zaWP_Aussenhandelsstatistik_BEstimmungsbundesland] IS NULL) OR ([ezaWP_Aussenhan"& _ "delsstatistik_BEstimmungsbundesland] = @Original_ezaWP_Aussenhandelsstatistik_BE"& _ "stimmungsbundesland)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_Bestimmungsland"& _ " = 1 AND [ezaWP_Aussenhandelsstatistik_Bestimmungsland] IS NULL) OR ([ezaWP_Auss"& _ "enhandelsstatistik_Bestimmungsland] = @Original_ezaWP_Aussenhandelsstatistik_Bes"& _ "timmungsland)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGra"& _ "nzeStaatszugehoeriglkeitCode = 1 AND [ezaWP_Aussenhandelsstatistik_Befoerderungs"& _ "mittelGranzeStaatszugehoeriglkeitCode] IS NULL) OR ([ezaWP_Aussenhandelsstatisti"& _ "k_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode] = @Original_ezaWP_Aussenha"& _ "ndelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode)) AND ((@IsNul"& _ "l_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt = 1 AND [ezaWP_Ausse"& _ "nhandelsstatistik_BefoerderungsmittelGrenzeArt] IS NULL) OR ([ezaWP_Aussenhandel"& _ "sstatistik_BefoerderungsmittelGrenzeArt] = @Original_ezaWP_Aussenhandelsstatisti"& _ "k_BefoerderungsmittelGrenzeArt)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_Befo"& _ "erderungsmittelBeschreibung = 1 AND [ezaWP_Aussenhandelsstatistik_Befoerderungsm"& _ "ittelBeschreibung] IS NULL) OR ([ezaWP_Aussenhandelsstatistik_Befoerderungsmitte"& _ "lBeschreibung] = @Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBesch"& _ "reibung)) AND ((@IsNull_ezaWP_Aussenhandelsstatistik_ArtGeschaeft = 1 AND [ezaWP"& _ "_Aussenhandelsstatistik_ArtGeschaeft] IS NULL) OR ([ezaWP_Aussenhandelsstatistik"& _ "_ArtGeschaeft] = @Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft)) AND ((@Is"& _ "Null_ezaWP_Aussenhandelsstatistik_Statistikstatus = 1 AND [ezaWP_Aussenhandelsst"& _ "atistik_Statistikstatus] IS NULL) OR ([ezaWP_Aussenhandelsstatistik_Statistiksta"& _ "tus] = @Original_ezaWP_Aussenhandelsstatistik_Statistikstatus)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaWP_"& _ "Id, ezaWP_EzaId, ezaWP_PositionsNummer, ezaWP_Artikelnummer, ezaWP_WarennummerEZ"& _ "T, ezaWP_WarennummerZusatzCode1, ezaWP_WarennummerZusatzCode2, ezaWP_Warennummer"& _ "ZusatzCode3, ezaWP_WarennummerZusatzCode4, ezaWP_WarennummerZusatzCode5, ezaWP_W"& _ "arennummerZusatzCode6, ezaWP_WarennummerZusatzCode7, ezaWP_WarennummerZusatzCode"& _ "8, ezaWP_WarennummerZusatzCode9, ezaWP_WarennummerZusatzCode10, ezaWP_Warennumme"& _ "rzusatz1, ezaWP_Warennummerzusatz2, ezaWP_Warenbezeichnung, ezaWP_VerfahrensCode"& _ "VorangegangenesVerfahren, ezaWP_AbgabensteuerungKz, ezaWP_EUCode, ezaWP_Ursprung"& _ "slandCode, ezaWP_Rohmasse, ezaWP_Eigenmasse, ezaWP_AHStatMenge, ezaWP_AHStatMeng"& _ "eMasseinheit, ezaWP_AHStatMengeQualifier, ezaWP_KostenEUSt, ezaWP_AHStatWert, ez"& _ "aWP_PackstueckAnzahl, ezaWP_PackstueckArt, ezaWP_PackstueckZeichen, ezaWP_Warenm"& _ "enge1, ezaWP_WarenMasseinheit1, ezaWP_WarenQualifier1, ezaWP_Warenmenge2, ezaWP_"& _ "WarenMasseinheit2, ezaWP_WarenQualifier2, ezaWP_Warenmenge3, ezaWP_WarenMasseinh"& _ "eit3, ezaWP_WarenQualifier3, ezaWP_Warenmenge4, ezaWP_WarenMasseinheit4, ezaWP_W"& _ "arenQualifier4, ezaWP_Warenmenge5, ezaWP_WarenMasseinheit5, ezaWP_WarenQualifier"& _ "5, ezaWP_BeguenstigungBenatragtCode, ezaWP_Kentigentnummer1, ezaWP_Kentigentnumm"& _ "er2, ezaWP_PositionsZusatz, ezaWP_AHStatWertManuellKZ, ezaWP_Artikelpreis, ezaWP"& _ "_ArtikelpreisWaehrung, ezaWP_OrtVerbringens, ezaWP_AbflughafenIATACode, ezaWP_Wa"& _ "renmengeAVUVZugang, ezaWP_WarenmengeAVUVZugangMasseinheit, ezaWP_WarenmengeAVUVZ"& _ "ugangMasseinheitQualifier, ezaWP_Sachbereich, ezaWP_BedingungCode, ezaWP_Veredel"& _ "ungWertsteigerung, ezaWP_TabakSteuerzeichenID, ezaWP_GehaltsAngabenArtCode1, eza"& _ "WP_GehaltsAngabenGradProzent1, ezaWP_GehaltsAngabenArtCode2, ezaWP_GehaltsAngabe"& _ "nGradProzent2, ezaWP_GehaltsAngabenArtCode3, ezaWP_GehaltsAngabenGradProzent3, e"& _ "zaWP_BeguenstigungsMengeMenge, ezaWP_BeguenstigungsMengeMasseinheitCode, ezaWP_B"& _ "eguenstigungsMengeQualifier, ezaWP_Abgabenminderung_AbgabengruppeCode1, ezaWP_Ab"& _ "gabenminderung_Minderungsbetrag1, ezaWP_Abgabenminderung_AbgabengruppeCode2, eza"& _ "WP_Abgabenminderung_Minderungsbetrag2, ezaWP_Abgabenminderung_AbgabengruppeCode3"& _ ", ezaWP_Abgabenminderung_Minderungsbetrag3, ezaWP_BesondereWertangabe_Wert1, eza"& _ "WP_BesondereWertangabe_PreisartCode1, ezaWP_BesondereWertangabe_Wert2, ezaWP_Bes"& _ "ondereWertangabe_PreisartCode2, ezaWP_BesondereWertangabe_Wert3, ezaWP_Besondere"& _ "Wertangabe_PreisartCode3, ezaWP_BesondereWertangabe_Wert4, ezaWP_BesondereWertan"& _ "gabe_PreisartCode4, ezaWP_BesondereWertangabe_Wert5, ezaWP_BesondereWertangabe_P"& _ "reisartCode5, ezaWP_VZAStatus, ezaWP_EGZStatus, ezaWP_DV1Status, ezaWP_AnmeldeAr"& _ "t, ezaWP_BefundDatum, ezaWP_AnmelderAdressCodeEORI, ezaWP_Zollverfahren, ezaWP_A"& _ "brechnungszollstelleCode, ezaWP_SachbereichCode, ezaWP_RegistriernummerZA, ezaWP"& _ "_AnmeldeVErfahren, ezaWP_Bewilligungsnummer, ezaWP_BewilligungsnummerEndverwende"& _ "rEGZDurchDritte, ezaWP_Zollwert, ezaWP_LuftfrachtkostenGesamt, ezaWP_IATAKursKz,"& _ " ezaWP_LuftfrachtkostenGesamtWaehrung, ezaWP_KursVereinbartKz, ezaWP_KursBetragV"& _ "ereinbart, ezaWP_KursDatum, ezaWP_Aussenhandelsstatistik_VerkehrszweigInland, ez"& _ "aWP_Aussenhandelsstatistik_VerkehrszweigGrenze, ezaWP_Aussenhandelsstatistik_Ver"& _ "sendungsland, ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland, ezaWP_Aussenha"& _ "ndelsstatistik_Bestimmungsland, ezaWP_Aussenhandelsstatistik_Befoerderungsmittel"& _ "GranzeStaatszugehoeriglkeitCode, ezaWP_Aussenhandelsstatistik_Befoerderungsmitte"& _ "lGrenzeArt, ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung, ezaWP_"& _ "Aussenhandelsstatistik_ArtGeschaeft, ezaWP_Aussenhandelsstatistik_Statistikstatu"& _ "s FROM tblDakosy_EZA_Warenposition WHERE (ezaWP_Id = @ezaWP_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EzaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "ezaWP_PositionsNummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Artikelnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerEZT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerEZT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarennummerZusatzCode10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warennummerzusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warennummerzusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AbgabensteuerungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbgabensteuerungKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_EUCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EUCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_UrsprungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_UrsprungslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "ezaWP_Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "ezaWP_Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AHStatMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_AHStatMenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AHStatMengeMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AHStatMengeQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeQualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_KostenEUSt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_KostenEUSt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AHStatWert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_AHStatWert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_PackstueckAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_PackstueckAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_PackstueckArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_PackstueckZeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckZeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenmenge1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenMasseinheit1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenQualifier1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenmenge2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenMasseinheit2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenQualifier2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenmenge3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenMasseinheit3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenQualifier3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenmenge4", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenMasseinheit4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenQualifier4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Warenmenge5", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenMasseinheit5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenQualifier5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BeguenstigungBenatragtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungBenatragtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Kentigentnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Kentigentnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_PositionsZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PositionsZusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AHStatWertManuellKZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatWertManuellKZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Artikelpreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Artikelpreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_ArtikelpreisWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_ArtikelpreisWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_OrtVerbringens", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_OrtVerbringens", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AbflughafenIATACode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbflughafenIATACode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenmengeAVUVZugang", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_WarenmengeAVUVZugang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Sachbereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Sachbereich", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BedingungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BedingungCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_VeredelungWertsteigerung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_VeredelungWertsteigerung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_TabakSteuerzeichenID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_TabakSteuerzeichenID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenArtCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenArtCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenArtCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BeguenstigungsMengeMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_BeguenstigungsMengeMenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_Wert1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_Wert2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_Wert3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_Wert4", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_Wert5", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_VZAStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VZAStatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_EGZStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EGZStatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_DV1Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_DV1Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AnmeldeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BefundDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BefundDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AnmelderAdressCodeEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmelderAdressCodeEORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Zollverfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Zollverfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AbrechnungszollstelleCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbrechnungszollstelleCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_SachbereichCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_SachbereichCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_RegistriernummerZA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_RegistriernummerZA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_AnmeldeVErfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeVErfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Bewilligungsnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Bewilligungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Zollwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Zollwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_LuftfrachtkostenGesamt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_LuftfrachtkostenGesamt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_IATAKursKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_IATAKursKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_KursVereinbartKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursVereinbartKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_KursBetragVereinbart", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 27, 9, "ezaWP_KursBetragVereinbart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_KursDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Aussenhandelsstatistik_Statistikstatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Statistikstatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EzaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_PositionsNummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "ezaWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Artikelnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Artikelnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Artikelnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerEZT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerEZT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerEZT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerEZT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarennummerZusatzCode10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarennummerZusatzCode10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarennummerZusatzCode10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warennummerzusatz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warennummerzusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warennummerzusatz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warennummerzusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warennummerzusatz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VerfahrensCodeVorangegangenesVerfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AbgabensteuerungKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbgabensteuerungKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AbgabensteuerungKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbgabensteuerungKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_EUCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EUCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_EUCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EUCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_UrsprungslandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_UrsprungslandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_UrsprungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_UrsprungslandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Rohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "ezaWP_Rohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Eigenmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 11, 1, "ezaWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AHStatMenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AHStatMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_AHStatMenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AHStatMengeMasseinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeMasseinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AHStatMengeMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeMasseinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AHStatMengeQualifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeQualifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AHStatMengeQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatMengeQualifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_KostenEUSt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KostenEUSt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_KostenEUSt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_KostenEUSt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AHStatWert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatWert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AHStatWert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_AHStatWert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_PackstueckAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckAnzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_PackstueckAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_PackstueckAnzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_PackstueckArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_PackstueckArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_PackstueckZeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckZeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_PackstueckZeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PackstueckZeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenmenge1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenmenge1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenmenge1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenMasseinheit1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenMasseinheit1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenQualifier1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenQualifier1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenmenge2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenmenge2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenmenge2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenMasseinheit2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenMasseinheit2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenQualifier2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenQualifier2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenmenge3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenmenge3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenmenge3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenMasseinheit3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenMasseinheit3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenQualifier3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenQualifier3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenmenge4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenmenge4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenmenge4", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenMasseinheit4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenMasseinheit4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenQualifier4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenQualifier4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Warenmenge5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Warenmenge5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Warenmenge5", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_Warenmenge5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenMasseinheit5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenMasseinheit5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenMasseinheit5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenQualifier5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenQualifier5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenQualifier5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BeguenstigungBenatragtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungBenatragtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BeguenstigungBenatragtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungBenatragtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Kentigentnummer1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Kentigentnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Kentigentnummer2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Kentigentnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Kentigentnummer2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_PositionsZusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PositionsZusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_PositionsZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_PositionsZusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AHStatWertManuellKZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatWertManuellKZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AHStatWertManuellKZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AHStatWertManuellKZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Artikelpreis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Artikelpreis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Artikelpreis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Artikelpreis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_ArtikelpreisWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_ArtikelpreisWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_ArtikelpreisWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_ArtikelpreisWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_OrtVerbringens", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_OrtVerbringens", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_OrtVerbringens", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_OrtVerbringens", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AbflughafenIATACode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbflughafenIATACode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AbflughafenIATACode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbflughafenIATACode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenmengeAVUVZugang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenmengeAVUVZugang", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWP_WarenmengeAVUVZugang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Sachbereich", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Sachbereich", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Sachbereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Sachbereich", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BedingungCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BedingungCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BedingungCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BedingungCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_VeredelungWertsteigerung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VeredelungWertsteigerung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_VeredelungWertsteigerung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_VeredelungWertsteigerung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_TabakSteuerzeichenID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_TabakSteuerzeichenID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_TabakSteuerzeichenID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_TabakSteuerzeichenID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenArtCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenArtCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenArtCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenArtCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenArtCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenArtCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenArtCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWP_GehaltsAngabenGradProzent3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BeguenstigungsMengeMenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeMenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BeguenstigungsMengeMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 0, "ezaWP_BeguenstigungsMengeMenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeMasseinheitCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BeguenstigungsMengeQualifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_AbgabengruppeCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Abgabenminderung_Minderungsbetrag3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_Wert1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_Wert1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_Wert1", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_Wert2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_Wert2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_Wert2", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_Wert3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_Wert3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_Wert3", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_Wert4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_Wert4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_Wert4", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_Wert5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_Wert5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_Wert5", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_BesondereWertangabe_Wert5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BesondereWertangabe_PreisartCode5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_VZAStatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VZAStatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_VZAStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_VZAStatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_EGZStatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EGZStatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_EGZStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_EGZStatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_DV1Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_DV1Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_DV1Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_DV1Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AnmeldeArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AnmeldeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BefundDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BefundDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BefundDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BefundDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AnmelderAdressCodeEORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmelderAdressCodeEORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AnmelderAdressCodeEORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmelderAdressCodeEORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Zollverfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Zollverfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Zollverfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Zollverfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AbrechnungszollstelleCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbrechnungszollstelleCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AbrechnungszollstelleCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AbrechnungszollstelleCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_SachbereichCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_SachbereichCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_SachbereichCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_SachbereichCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_RegistriernummerZA", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_RegistriernummerZA", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_RegistriernummerZA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_RegistriernummerZA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_AnmeldeVErfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeVErfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_AnmeldeVErfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_AnmeldeVErfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Bewilligungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Bewilligungsnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Bewilligungsnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Bewilligungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Zollwert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Zollwert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Zollwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_Zollwert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_LuftfrachtkostenGesamt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_LuftfrachtkostenGesamt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_LuftfrachtkostenGesamt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWP_LuftfrachtkostenGesamt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_IATAKursKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_IATAKursKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_IATAKursKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_IATAKursKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_LuftfrachtkostenGesamtWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_KursVereinbartKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursVereinbartKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_KursVereinbartKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursVereinbartKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_KursBetragVereinbart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursBetragVereinbart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_KursBetragVereinbart", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 27, 9, "ezaWP_KursBetragVereinbart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_KursDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_KursDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_KursDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Versendungsland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Bestimmungsland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglke"& _ "itCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoerigl"& _ "keitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_ArtGeschaeft", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWP_Aussenhandelsstatistik_Statistikstatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Statistikstatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWP_Aussenhandelsstatistik_Statistikstatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Aussenhandelsstatistik_Statistikstatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWP_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWP_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezaWP_Id, ezaWP_EzaId, ezaWP_PositionsNummer, ezaWP_Artikelnummer, ezaWP_W"& _ "arennummerEZT, ezaWP_WarennummerZusatzCode1, ezaWP_WarennummerZusatzCode2, ezaWP"& _ "_WarennummerZusatzCode3, ezaWP_WarennummerZusatzCode4, ezaWP_WarennummerZusatzCo"& _ "de5, ezaWP_WarennummerZusatzCode6, ezaWP_WarennummerZusatzCode7, ezaWP_Warennumm"& _ "erZusatzCode8, ezaWP_WarennummerZusatzCode9, ezaWP_WarennummerZusatzCode10, ezaW"& _ "P_Warennummerzusatz1, ezaWP_Warennummerzusatz2, ezaWP_Warenbezeichnung, ezaWP_Ve"& _ "rfahrensCodeVorangegangenesVerfahren, ezaWP_AbgabensteuerungKz, ezaWP_EUCode, ez"& _ "aWP_UrsprungslandCode, ezaWP_Rohmasse, ezaWP_Eigenmasse, ezaWP_AHStatMenge, ezaW"& _ "P_AHStatMengeMasseinheit, ezaWP_AHStatMengeQualifier, ezaWP_KostenEUSt, ezaWP_AH"& _ "StatWert, ezaWP_PackstueckAnzahl, ezaWP_PackstueckArt, ezaWP_PackstueckZeichen, "& _ "ezaWP_Warenmenge1, ezaWP_WarenMasseinheit1, ezaWP_WarenQualifier1, ezaWP_Warenme"& _ "nge2, ezaWP_WarenMasseinheit2, ezaWP_WarenQualifier2, ezaWP_Warenmenge3, ezaWP_W"& _ "arenMasseinheit3, ezaWP_WarenQualifier3, ezaWP_Warenmenge4, ezaWP_WarenMasseinhe"& _ "it4, ezaWP_WarenQualifier4, ezaWP_Warenmenge5, ezaWP_WarenMasseinheit5, ezaWP_Wa"& _ "renQualifier5, ezaWP_BeguenstigungBenatragtCode, ezaWP_Kentigentnummer1, ezaWP_K"& _ "entigentnummer2, ezaWP_PositionsZusatz, ezaWP_AHStatWertManuellKZ, ezaWP_Artikel"& _ "preis, ezaWP_ArtikelpreisWaehrung, ezaWP_OrtVerbringens, ezaWP_AbflughafenIATACo"& _ "de, ezaWP_WarenmengeAVUVZugang, ezaWP_WarenmengeAVUVZugangMasseinheit, ezaWP_War"& _ "enmengeAVUVZugangMasseinheitQualifier, ezaWP_Sachbereich, ezaWP_BedingungCode, e"& _ "zaWP_VeredelungWertsteigerung, ezaWP_TabakSteuerzeichenID, ezaWP_GehaltsAngabenA"& _ "rtCode1, ezaWP_GehaltsAngabenGradProzent1, ezaWP_GehaltsAngabenArtCode2, ezaWP_G"& _ "ehaltsAngabenGradProzent2, ezaWP_GehaltsAngabenArtCode3, ezaWP_GehaltsAngabenGra"& _ "dProzent3, ezaWP_BeguenstigungsMengeMenge, ezaWP_BeguenstigungsMengeMasseinheitC"& _ "ode, ezaWP_BeguenstigungsMengeQualifier, ezaWP_Abgabenminderung_AbgabengruppeCod"& _ "e1, ezaWP_Abgabenminderung_Minderungsbetrag1, ezaWP_Abgabenminderung_Abgabengrup"& _ "peCode2, ezaWP_Abgabenminderung_Minderungsbetrag2, ezaWP_Abgabenminderung_Abgabe"& _ "ngruppeCode3, ezaWP_Abgabenminderung_Minderungsbetrag3, ezaWP_BesondereWertangab"& _ "e_Wert1, ezaWP_BesondereWertangabe_PreisartCode1, ezaWP_BesondereWertangabe_Wert"& _ "2, ezaWP_BesondereWertangabe_PreisartCode2, ezaWP_BesondereWertangabe_Wert3, eza"& _ "WP_BesondereWertangabe_PreisartCode3, ezaWP_BesondereWertangabe_Wert4, ezaWP_Bes"& _ "ondereWertangabe_PreisartCode4, ezaWP_BesondereWertangabe_Wert5, ezaWP_Besondere"& _ "Wertangabe_PreisartCode5, ezaWP_VZAStatus, ezaWP_EGZStatus, ezaWP_DV1Status, eza"& _ "WP_AnmeldeArt, ezaWP_BefundDatum, ezaWP_AnmelderAdressCodeEORI, ezaWP_Zollverfah"& _ "ren, ezaWP_AbrechnungszollstelleCode, ezaWP_SachbereichCode, ezaWP_Registriernum"& _ "merZA, ezaWP_AnmeldeVErfahren, ezaWP_Bewilligungsnummer, ezaWP_Bewilligungsnumme"& _ "rEndverwenderEGZDurchDritte, ezaWP_Zollwert, ezaWP_LuftfrachtkostenGesamt, ezaWP"& _ "_IATAKursKz, ezaWP_LuftfrachtkostenGesamtWaehrung, ezaWP_KursVereinbartKz, ezaWP"& _ "_KursBetragVereinbart, ezaWP_KursDatum, ezaWP_Aussenhandelsstatistik_Verkehrszwe"& _ "igInland, ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze, ezaWP_Aussenhandelss"& _ "tatistik_Versendungsland, ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland, ez"& _ "aWP_Aussenhandelsstatistik_Bestimmungsland, ezaWP_Aussenhandelsstatistik_Befoerd"& _ "erungsmittelGranzeStaatszugehoeriglkeitCode, ezaWP_Aussenhandelsstatistik_Befoer"& _ "derungsmittelGrenzeArt, ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschrei"& _ "bung, ezaWP_Aussenhandelsstatistik_ArtGeschaeft, ezaWP_Aussenhandelsstatistik_St"& _ "atistikstatus FROM dbo.tblDakosy_EZA_Warenposition" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionDataTable) 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 VERAGDataSet.tblDakosy_EZA_WarenpositionDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionDataTable = New VERAGDataSet.tblDakosy_EZA_WarenpositionDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_EZA_Warenposition") 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_ezaWP_Id As Integer, _ ByVal Original_ezaWP_EzaId As Integer, _ ByVal Original_ezaWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Artikelnummer As String, _ ByVal Original_ezaWP_WarennummerEZT As String, _ ByVal Original_ezaWP_WarennummerZusatzCode1 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode2 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode3 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode4 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode5 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode6 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode7 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode8 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode9 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode10 As String, _ ByVal Original_ezaWP_Warennummerzusatz1 As String, _ ByVal Original_ezaWP_Warennummerzusatz2 As String, _ ByVal Original_ezaWP_Warenbezeichnung As String, _ ByVal Original_ezaWP_VerfahrensCodeVorangegangenesVerfahren As String, _ ByVal Original_ezaWP_AbgabensteuerungKz As String, _ ByVal Original_ezaWP_EUCode As String, _ ByVal Original_ezaWP_UrsprungslandCode As String, _ ByVal Original_ezaWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_AHStatMenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_AHStatMengeMasseinheit As String, _ ByVal Original_ezaWP_AHStatMengeQualifier As String, _ ByVal Original_ezaWP_KostenEUSt As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_AHStatWert As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_PackstueckAnzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_PackstueckArt As String, _ ByVal Original_ezaWP_PackstueckZeichen As String, _ ByVal Original_ezaWP_Warenmenge1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit1 As String, _ ByVal Original_ezaWP_WarenQualifier1 As String, _ ByVal Original_ezaWP_Warenmenge2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit2 As String, _ ByVal Original_ezaWP_WarenQualifier2 As String, _ ByVal Original_ezaWP_Warenmenge3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit3 As String, _ ByVal Original_ezaWP_WarenQualifier3 As String, _ ByVal Original_ezaWP_Warenmenge4 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit4 As String, _ ByVal Original_ezaWP_WarenQualifier4 As String, _ ByVal Original_ezaWP_Warenmenge5 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit5 As String, _ ByVal Original_ezaWP_WarenQualifier5 As String, _ ByVal Original_ezaWP_BeguenstigungBenatragtCode As String, _ ByVal Original_ezaWP_Kentigentnummer1 As String, _ ByVal Original_ezaWP_Kentigentnummer2 As String, _ ByVal Original_ezaWP_PositionsZusatz As String, _ ByVal Original_ezaWP_AHStatWertManuellKZ As String, _ ByVal Original_ezaWP_Artikelpreis As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_ArtikelpreisWaehrung As String, _ ByVal Original_ezaWP_OrtVerbringens As String, _ ByVal Original_ezaWP_AbflughafenIATACode As String, _ ByVal Original_ezaWP_WarenmengeAVUVZugang As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenmengeAVUVZugangMasseinheit As String, _ ByVal Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier As String, _ ByVal Original_ezaWP_Sachbereich As String, _ ByVal Original_ezaWP_BedingungCode As String, _ ByVal Original_ezaWP_VeredelungWertsteigerung As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_TabakSteuerzeichenID As String, _ ByVal Original_ezaWP_GehaltsAngabenArtCode1 As String, _ ByVal Original_ezaWP_GehaltsAngabenGradProzent1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_GehaltsAngabenArtCode2 As String, _ ByVal Original_ezaWP_GehaltsAngabenGradProzent2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_GehaltsAngabenArtCode3 As String, _ ByVal Original_ezaWP_GehaltsAngabenGradProzent3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BeguenstigungsMengeMenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BeguenstigungsMengeMasseinheitCode As String, _ ByVal Original_ezaWP_BeguenstigungsMengeQualifier As String, _ ByVal Original_ezaWP_Abgabenminderung_AbgabengruppeCode1 As String, _ ByVal Original_ezaWP_Abgabenminderung_Minderungsbetrag1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Abgabenminderung_AbgabengruppeCode2 As String, _ ByVal Original_ezaWP_Abgabenminderung_Minderungsbetrag2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Abgabenminderung_AbgabengruppeCode3 As String, _ ByVal Original_ezaWP_Abgabenminderung_Minderungsbetrag3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_Wert1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode1 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode2 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode3 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert4 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode4 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert5 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode5 As String, _ ByVal Original_ezaWP_VZAStatus As String, _ ByVal Original_ezaWP_EGZStatus As String, _ ByVal Original_ezaWP_DV1Status As String, _ ByVal Original_ezaWP_AnmeldeArt As String, _ ByVal Original_ezaWP_BefundDatum As Global.System.Nullable(Of Date), _ ByVal Original_ezaWP_AnmelderAdressCodeEORI As String, _ ByVal Original_ezaWP_Zollverfahren As String, _ ByVal Original_ezaWP_AbrechnungszollstelleCode As String, _ ByVal Original_ezaWP_SachbereichCode As String, _ ByVal Original_ezaWP_RegistriernummerZA As String, _ ByVal Original_ezaWP_AnmeldeVErfahren As String, _ ByVal Original_ezaWP_Bewilligungsnummer As String, _ ByVal Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte As String, _ ByVal Original_ezaWP_Zollwert As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_LuftfrachtkostenGesamt As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_IATAKursKz As String, _ ByVal Original_ezaWP_LuftfrachtkostenGesamtWaehrung As String, _ ByVal Original_ezaWP_KursVereinbartKz As String, _ ByVal Original_ezaWP_KursBetragVereinbart As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_KursDatum As Global.System.Nullable(Of Date), _ ByVal Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_Versendungsland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_Bestimmungsland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_Statistikstatus As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezaWP_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezaWP_EzaId,Integer) If (Original_ezaWP_PositionsNummer.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ezaWP_PositionsNummer.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_ezaWP_Artikelnummer 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_ezaWP_Artikelnummer,String) End If If (Original_ezaWP_WarennummerEZT 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_ezaWP_WarennummerEZT,String) End If If (Original_ezaWP_WarennummerZusatzCode1 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_ezaWP_WarennummerZusatzCode1,String) End If If (Original_ezaWP_WarennummerZusatzCode2 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_ezaWP_WarennummerZusatzCode2,String) End If If (Original_ezaWP_WarennummerZusatzCode3 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_ezaWP_WarennummerZusatzCode3,String) End If If (Original_ezaWP_WarennummerZusatzCode4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_ezaWP_WarennummerZusatzCode4,String) End If If (Original_ezaWP_WarennummerZusatzCode5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ezaWP_WarennummerZusatzCode5,String) End If If (Original_ezaWP_WarennummerZusatzCode6 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_ezaWP_WarennummerZusatzCode6,String) End If If (Original_ezaWP_WarennummerZusatzCode7 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_ezaWP_WarennummerZusatzCode7,String) End If If (Original_ezaWP_WarennummerZusatzCode8 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_ezaWP_WarennummerZusatzCode8,String) End If If (Original_ezaWP_WarennummerZusatzCode9 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_ezaWP_WarennummerZusatzCode9,String) End If If (Original_ezaWP_WarennummerZusatzCode10 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_ezaWP_WarennummerZusatzCode10,String) End If If (Original_ezaWP_Warennummerzusatz1 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_ezaWP_Warennummerzusatz1,String) End If If (Original_ezaWP_Warennummerzusatz2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_ezaWP_Warennummerzusatz2,String) End If If (Original_ezaWP_Warenbezeichnung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_ezaWP_Warenbezeichnung,String) End If If (Original_ezaWP_VerfahrensCodeVorangegangenesVerfahren Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_ezaWP_VerfahrensCodeVorangegangenesVerfahren,String) End If If (Original_ezaWP_AbgabensteuerungKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_ezaWP_AbgabensteuerungKz,String) End If If (Original_ezaWP_EUCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_ezaWP_EUCode,String) End If If (Original_ezaWP_UrsprungslandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_ezaWP_UrsprungslandCode,String) End If If (Original_ezaWP_Rohmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_ezaWP_Rohmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Original_ezaWP_Eigenmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_ezaWP_Eigenmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Original_ezaWP_AHStatMenge.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_ezaWP_AHStatMenge.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (Original_ezaWP_AHStatMengeMasseinheit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_ezaWP_AHStatMengeMasseinheit,String) End If If (Original_ezaWP_AHStatMengeQualifier Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_ezaWP_AHStatMengeQualifier,String) End If If (Original_ezaWP_KostenEUSt.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_ezaWP_KostenEUSt.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_ezaWP_AHStatWert.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = CType(Original_ezaWP_AHStatWert.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Original_ezaWP_PackstueckAnzahl.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = CType(Original_ezaWP_PackstueckAnzahl.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (Original_ezaWP_PackstueckArt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_ezaWP_PackstueckArt,String) End If If (Original_ezaWP_PackstueckZeichen Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_ezaWP_PackstueckZeichen,String) End If If (Original_ezaWP_Warenmenge1.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_ezaWP_Warenmenge1.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenMasseinheit1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_ezaWP_WarenMasseinheit1,String) End If If (Original_ezaWP_WarenQualifier1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_ezaWP_WarenQualifier1,String) End If If (Original_ezaWP_Warenmenge2.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = CType(Original_ezaWP_Warenmenge2.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenMasseinheit2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = CType(Original_ezaWP_WarenMasseinheit2,String) End If If (Original_ezaWP_WarenQualifier2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = CType(Original_ezaWP_WarenQualifier2,String) End If If (Original_ezaWP_Warenmenge3.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = CType(Original_ezaWP_Warenmenge3.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenMasseinheit3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = CType(Original_ezaWP_WarenMasseinheit3,String) End If If (Original_ezaWP_WarenQualifier3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = CType(Original_ezaWP_WarenQualifier3,String) End If If (Original_ezaWP_Warenmenge4.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = CType(Original_ezaWP_Warenmenge4.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenMasseinheit4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = CType(Original_ezaWP_WarenMasseinheit4,String) End If If (Original_ezaWP_WarenQualifier4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = CType(Original_ezaWP_WarenQualifier4,String) End If If (Original_ezaWP_Warenmenge5.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = CType(Original_ezaWP_Warenmenge5.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenMasseinheit5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = CType(Original_ezaWP_WarenMasseinheit5,String) End If If (Original_ezaWP_WarenQualifier5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = CType(Original_ezaWP_WarenQualifier5,String) End If If (Original_ezaWP_BeguenstigungBenatragtCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = CType(Original_ezaWP_BeguenstigungBenatragtCode,String) End If If (Original_ezaWP_Kentigentnummer1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = CType(Original_ezaWP_Kentigentnummer1,String) End If If (Original_ezaWP_Kentigentnummer2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = CType(Original_ezaWP_Kentigentnummer2,String) End If If (Original_ezaWP_PositionsZusatz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = CType(Original_ezaWP_PositionsZusatz,String) End If If (Original_ezaWP_AHStatWertManuellKZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = CType(Original_ezaWP_AHStatWertManuellKZ,String) End If If (Original_ezaWP_Artikelpreis.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = CType(Original_ezaWP_Artikelpreis.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = Global.System.DBNull.Value End If If (Original_ezaWP_ArtikelpreisWaehrung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = CType(Original_ezaWP_ArtikelpreisWaehrung,String) End If If (Original_ezaWP_OrtVerbringens Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = CType(Original_ezaWP_OrtVerbringens,String) End If If (Original_ezaWP_AbflughafenIATACode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = CType(Original_ezaWP_AbflughafenIATACode,String) End If If (Original_ezaWP_WarenmengeAVUVZugang.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = CType(Original_ezaWP_WarenmengeAVUVZugang.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenmengeAVUVZugangMasseinheit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = CType(Original_ezaWP_WarenmengeAVUVZugangMasseinheit,String) End If If (Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = CType(Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier,String) End If If (Original_ezaWP_Sachbereich Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = CType(Original_ezaWP_Sachbereich,String) End If If (Original_ezaWP_BedingungCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = CType(Original_ezaWP_BedingungCode,String) End If If (Original_ezaWP_VeredelungWertsteigerung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = CType(Original_ezaWP_VeredelungWertsteigerung.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = Global.System.DBNull.Value End If If (Original_ezaWP_TabakSteuerzeichenID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = CType(Original_ezaWP_TabakSteuerzeichenID,String) End If If (Original_ezaWP_GehaltsAngabenArtCode1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = CType(Original_ezaWP_GehaltsAngabenArtCode1,String) End If If (Original_ezaWP_GehaltsAngabenGradProzent1.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = CType(Original_ezaWP_GehaltsAngabenGradProzent1.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = Global.System.DBNull.Value End If If (Original_ezaWP_GehaltsAngabenArtCode2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = CType(Original_ezaWP_GehaltsAngabenArtCode2,String) End If If (Original_ezaWP_GehaltsAngabenGradProzent2.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = CType(Original_ezaWP_GehaltsAngabenGradProzent2.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = Global.System.DBNull.Value End If If (Original_ezaWP_GehaltsAngabenArtCode3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = CType(Original_ezaWP_GehaltsAngabenArtCode3,String) End If If (Original_ezaWP_GehaltsAngabenGradProzent3.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = CType(Original_ezaWP_GehaltsAngabenGradProzent3.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BeguenstigungsMengeMenge.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(136).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = CType(Original_ezaWP_BeguenstigungsMengeMenge.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(136).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BeguenstigungsMengeMasseinheitCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(138).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(138).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = CType(Original_ezaWP_BeguenstigungsMengeMasseinheitCode,String) End If If (Original_ezaWP_BeguenstigungsMengeQualifier Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(140).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(140).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = CType(Original_ezaWP_BeguenstigungsMengeQualifier,String) End If If (Original_ezaWP_Abgabenminderung_AbgabengruppeCode1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(142).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(142).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = CType(Original_ezaWP_Abgabenminderung_AbgabengruppeCode1,String) End If If (Original_ezaWP_Abgabenminderung_Minderungsbetrag1.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(144).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = CType(Original_ezaWP_Abgabenminderung_Minderungsbetrag1.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(144).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = Global.System.DBNull.Value End If If (Original_ezaWP_Abgabenminderung_AbgabengruppeCode2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(146).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(146).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = CType(Original_ezaWP_Abgabenminderung_AbgabengruppeCode2,String) End If If (Original_ezaWP_Abgabenminderung_Minderungsbetrag2.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(148).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = CType(Original_ezaWP_Abgabenminderung_Minderungsbetrag2.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(148).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = Global.System.DBNull.Value End If If (Original_ezaWP_Abgabenminderung_AbgabengruppeCode3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(150).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(150).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(151).Value = CType(Original_ezaWP_Abgabenminderung_AbgabengruppeCode3,String) End If If (Original_ezaWP_Abgabenminderung_Minderungsbetrag3.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(152).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(153).Value = CType(Original_ezaWP_Abgabenminderung_Minderungsbetrag3.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(152).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(153).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_Wert1.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(154).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(155).Value = CType(Original_ezaWP_BesondereWertangabe_Wert1.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(154).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(155).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_PreisartCode1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(156).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(156).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(157).Value = CType(Original_ezaWP_BesondereWertangabe_PreisartCode1,String) End If If (Original_ezaWP_BesondereWertangabe_Wert2.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(158).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(159).Value = CType(Original_ezaWP_BesondereWertangabe_Wert2.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(158).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(159).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_PreisartCode2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(160).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(160).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(161).Value = CType(Original_ezaWP_BesondereWertangabe_PreisartCode2,String) End If If (Original_ezaWP_BesondereWertangabe_Wert3.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(162).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(163).Value = CType(Original_ezaWP_BesondereWertangabe_Wert3.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(162).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(163).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_PreisartCode3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(164).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(164).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(165).Value = CType(Original_ezaWP_BesondereWertangabe_PreisartCode3,String) End If If (Original_ezaWP_BesondereWertangabe_Wert4.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(166).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(167).Value = CType(Original_ezaWP_BesondereWertangabe_Wert4.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(166).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(167).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_PreisartCode4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(168).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(168).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(169).Value = CType(Original_ezaWP_BesondereWertangabe_PreisartCode4,String) End If If (Original_ezaWP_BesondereWertangabe_Wert5.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(170).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(171).Value = CType(Original_ezaWP_BesondereWertangabe_Wert5.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(170).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(171).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_PreisartCode5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(172).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(173).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(172).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(173).Value = CType(Original_ezaWP_BesondereWertangabe_PreisartCode5,String) End If If (Original_ezaWP_VZAStatus Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(174).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(175).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(174).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(175).Value = CType(Original_ezaWP_VZAStatus,String) End If If (Original_ezaWP_EGZStatus Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(176).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(177).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(176).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(177).Value = CType(Original_ezaWP_EGZStatus,String) End If If (Original_ezaWP_DV1Status Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(178).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(179).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(178).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(179).Value = CType(Original_ezaWP_DV1Status,String) End If If (Original_ezaWP_AnmeldeArt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(180).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(181).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(180).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(181).Value = CType(Original_ezaWP_AnmeldeArt,String) End If If (Original_ezaWP_BefundDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(182).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(183).Value = CType(Original_ezaWP_BefundDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(182).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(183).Value = Global.System.DBNull.Value End If If (Original_ezaWP_AnmelderAdressCodeEORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(184).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(185).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(184).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(185).Value = CType(Original_ezaWP_AnmelderAdressCodeEORI,String) End If If (Original_ezaWP_Zollverfahren Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(186).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(187).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(186).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(187).Value = CType(Original_ezaWP_Zollverfahren,String) End If If (Original_ezaWP_AbrechnungszollstelleCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(188).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(189).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(188).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(189).Value = CType(Original_ezaWP_AbrechnungszollstelleCode,String) End If If (Original_ezaWP_SachbereichCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(190).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(191).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(190).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(191).Value = CType(Original_ezaWP_SachbereichCode,String) End If If (Original_ezaWP_RegistriernummerZA Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(192).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(193).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(192).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(193).Value = CType(Original_ezaWP_RegistriernummerZA,String) End If If (Original_ezaWP_AnmeldeVErfahren Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(194).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(195).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(194).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(195).Value = CType(Original_ezaWP_AnmeldeVErfahren,String) End If If (Original_ezaWP_Bewilligungsnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(196).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(197).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(196).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(197).Value = CType(Original_ezaWP_Bewilligungsnummer,String) End If If (Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(198).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(199).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(198).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(199).Value = CType(Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte,String) End If If (Original_ezaWP_Zollwert.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(200).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(201).Value = CType(Original_ezaWP_Zollwert.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(200).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(201).Value = Global.System.DBNull.Value End If If (Original_ezaWP_LuftfrachtkostenGesamt.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(202).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(203).Value = CType(Original_ezaWP_LuftfrachtkostenGesamt.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(202).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(203).Value = Global.System.DBNull.Value End If If (Original_ezaWP_IATAKursKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(204).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(205).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(204).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(205).Value = CType(Original_ezaWP_IATAKursKz,String) End If If (Original_ezaWP_LuftfrachtkostenGesamtWaehrung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(206).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(207).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(206).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(207).Value = CType(Original_ezaWP_LuftfrachtkostenGesamtWaehrung,String) End If If (Original_ezaWP_KursVereinbartKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(208).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(209).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(208).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(209).Value = CType(Original_ezaWP_KursVereinbartKz,String) End If If (Original_ezaWP_KursBetragVereinbart.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(210).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(211).Value = CType(Original_ezaWP_KursBetragVereinbart.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(210).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(211).Value = Global.System.DBNull.Value End If If (Original_ezaWP_KursDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(212).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(213).Value = CType(Original_ezaWP_KursDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(212).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(213).Value = Global.System.DBNull.Value End If If (Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(214).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(215).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(214).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(215).Value = CType(Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland,String) End If If (Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(216).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(217).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(216).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(217).Value = CType(Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze,String) End If If (Original_ezaWP_Aussenhandelsstatistik_Versendungsland Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(218).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(219).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(218).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(219).Value = CType(Original_ezaWP_Aussenhandelsstatistik_Versendungsland,String) End If If (Original_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(220).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(221).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(220).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(221).Value = CType(Original_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland,String) End If If (Original_ezaWP_Aussenhandelsstatistik_Bestimmungsland Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(222).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(223).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(222).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(223).Value = CType(Original_ezaWP_Aussenhandelsstatistik_Bestimmungsland,String) End If If (Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(224).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(225).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(224).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(225).Value = CType(Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode,String) End If If (Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(226).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(227).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(226).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(227).Value = CType(Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt,String) End If If (Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(228).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(229).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(228).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(229).Value = CType(Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung,String) End If If (Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(230).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(231).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(230).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(231).Value = CType(Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft,String) End If If (Original_ezaWP_Aussenhandelsstatistik_Statistikstatus Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(232).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(233).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(232).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(233).Value = CType(Original_ezaWP_Aussenhandelsstatistik_Statistikstatus,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 ezaWP_EzaId As Integer, _ ByVal ezaWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Artikelnummer As String, _ ByVal ezaWP_WarennummerEZT As String, _ ByVal ezaWP_WarennummerZusatzCode1 As String, _ ByVal ezaWP_WarennummerZusatzCode2 As String, _ ByVal ezaWP_WarennummerZusatzCode3 As String, _ ByVal ezaWP_WarennummerZusatzCode4 As String, _ ByVal ezaWP_WarennummerZusatzCode5 As String, _ ByVal ezaWP_WarennummerZusatzCode6 As String, _ ByVal ezaWP_WarennummerZusatzCode7 As String, _ ByVal ezaWP_WarennummerZusatzCode8 As String, _ ByVal ezaWP_WarennummerZusatzCode9 As String, _ ByVal ezaWP_WarennummerZusatzCode10 As String, _ ByVal ezaWP_Warennummerzusatz1 As String, _ ByVal ezaWP_Warennummerzusatz2 As String, _ ByVal ezaWP_Warenbezeichnung As String, _ ByVal ezaWP_VerfahrensCodeVorangegangenesVerfahren As String, _ ByVal ezaWP_AbgabensteuerungKz As String, _ ByVal ezaWP_EUCode As String, _ ByVal ezaWP_UrsprungslandCode As String, _ ByVal ezaWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_AHStatMenge As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_AHStatMengeMasseinheit As String, _ ByVal ezaWP_AHStatMengeQualifier As String, _ ByVal ezaWP_KostenEUSt As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_AHStatWert As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_PackstueckAnzahl As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_PackstueckArt As String, _ ByVal ezaWP_PackstueckZeichen As String, _ ByVal ezaWP_Warenmenge1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit1 As String, _ ByVal ezaWP_WarenQualifier1 As String, _ ByVal ezaWP_Warenmenge2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit2 As String, _ ByVal ezaWP_WarenQualifier2 As String, _ ByVal ezaWP_Warenmenge3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit3 As String, _ ByVal ezaWP_WarenQualifier3 As String, _ ByVal ezaWP_Warenmenge4 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit4 As String, _ ByVal ezaWP_WarenQualifier4 As String, _ ByVal ezaWP_Warenmenge5 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit5 As String, _ ByVal ezaWP_WarenQualifier5 As String, _ ByVal ezaWP_BeguenstigungBenatragtCode As String, _ ByVal ezaWP_Kentigentnummer1 As String, _ ByVal ezaWP_Kentigentnummer2 As String, _ ByVal ezaWP_PositionsZusatz As String, _ ByVal ezaWP_AHStatWertManuellKZ As String, _ ByVal ezaWP_Artikelpreis As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_ArtikelpreisWaehrung As String, _ ByVal ezaWP_OrtVerbringens As String, _ ByVal ezaWP_AbflughafenIATACode As String, _ ByVal ezaWP_WarenmengeAVUVZugang As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenmengeAVUVZugangMasseinheit As String, _ ByVal ezaWP_WarenmengeAVUVZugangMasseinheitQualifier As String, _ ByVal ezaWP_Sachbereich As String, _ ByVal ezaWP_BedingungCode As String, _ ByVal ezaWP_VeredelungWertsteigerung As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_TabakSteuerzeichenID As String, _ ByVal ezaWP_GehaltsAngabenArtCode1 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_GehaltsAngabenArtCode2 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_GehaltsAngabenArtCode3 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BeguenstigungsMengeMenge As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BeguenstigungsMengeMasseinheitCode As String, _ ByVal ezaWP_BeguenstigungsMengeQualifier As String, _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode1 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode2 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode3 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_Wert1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode1 As String, _ ByVal ezaWP_BesondereWertangabe_Wert2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode2 As String, _ ByVal ezaWP_BesondereWertangabe_Wert3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode3 As String, _ ByVal ezaWP_BesondereWertangabe_Wert4 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode4 As String, _ ByVal ezaWP_BesondereWertangabe_Wert5 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode5 As String, _ ByVal ezaWP_VZAStatus As String, _ ByVal ezaWP_EGZStatus As String, _ ByVal ezaWP_DV1Status As String, _ ByVal ezaWP_AnmeldeArt As String, _ ByVal ezaWP_BefundDatum As Global.System.Nullable(Of Date), _ ByVal ezaWP_AnmelderAdressCodeEORI As String, _ ByVal ezaWP_Zollverfahren As String, _ ByVal ezaWP_AbrechnungszollstelleCode As String, _ ByVal ezaWP_SachbereichCode As String, _ ByVal ezaWP_RegistriernummerZA As String, _ ByVal ezaWP_AnmeldeVErfahren As String, _ ByVal ezaWP_Bewilligungsnummer As String, _ ByVal ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte As String, _ ByVal ezaWP_Zollwert As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_LuftfrachtkostenGesamt As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_IATAKursKz As String, _ ByVal ezaWP_LuftfrachtkostenGesamtWaehrung As String, _ ByVal ezaWP_KursVereinbartKz As String, _ ByVal ezaWP_KursBetragVereinbart As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_KursDatum As Global.System.Nullable(Of Date), _ ByVal ezaWP_Aussenhandelsstatistik_VerkehrszweigInland As String, _ ByVal ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze As String, _ ByVal ezaWP_Aussenhandelsstatistik_Versendungsland As String, _ ByVal ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland As String, _ ByVal ezaWP_Aussenhandelsstatistik_Bestimmungsland As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung As String, _ ByVal ezaWP_Aussenhandelsstatistik_ArtGeschaeft As String, _ ByVal ezaWP_Aussenhandelsstatistik_Statistikstatus As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezaWP_EzaId,Integer) If (ezaWP_PositionsNummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezaWP_PositionsNummer.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (ezaWP_Artikelnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezaWP_Artikelnummer,String) End If If (ezaWP_WarennummerEZT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezaWP_WarennummerEZT,String) End If If (ezaWP_WarennummerZusatzCode1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ezaWP_WarennummerZusatzCode1,String) End If If (ezaWP_WarennummerZusatzCode2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ezaWP_WarennummerZusatzCode2,String) End If If (ezaWP_WarennummerZusatzCode3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ezaWP_WarennummerZusatzCode3,String) End If If (ezaWP_WarennummerZusatzCode4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ezaWP_WarennummerZusatzCode4,String) End If If (ezaWP_WarennummerZusatzCode5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ezaWP_WarennummerZusatzCode5,String) End If If (ezaWP_WarennummerZusatzCode6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(ezaWP_WarennummerZusatzCode6,String) End If If (ezaWP_WarennummerZusatzCode7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(ezaWP_WarennummerZusatzCode7,String) End If If (ezaWP_WarennummerZusatzCode8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(ezaWP_WarennummerZusatzCode8,String) End If If (ezaWP_WarennummerZusatzCode9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(ezaWP_WarennummerZusatzCode9,String) End If If (ezaWP_WarennummerZusatzCode10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(ezaWP_WarennummerZusatzCode10,String) End If If (ezaWP_Warennummerzusatz1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(ezaWP_Warennummerzusatz1,String) End If If (ezaWP_Warennummerzusatz2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(ezaWP_Warennummerzusatz2,String) End If If (ezaWP_Warenbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(ezaWP_Warenbezeichnung,String) End If If (ezaWP_VerfahrensCodeVorangegangenesVerfahren Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(ezaWP_VerfahrensCodeVorangegangenesVerfahren,String) End If If (ezaWP_AbgabensteuerungKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(ezaWP_AbgabensteuerungKz,String) End If If (ezaWP_EUCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(ezaWP_EUCode,String) End If If (ezaWP_UrsprungslandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(ezaWP_UrsprungslandCode,String) End If If (ezaWP_Rohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(ezaWP_Rohmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (ezaWP_Eigenmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(ezaWP_Eigenmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (ezaWP_AHStatMenge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(ezaWP_AHStatMenge.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (ezaWP_AHStatMengeMasseinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(ezaWP_AHStatMengeMasseinheit,String) End If If (ezaWP_AHStatMengeQualifier Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(ezaWP_AHStatMengeQualifier,String) End If If (ezaWP_KostenEUSt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(ezaWP_KostenEUSt.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (ezaWP_AHStatWert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(ezaWP_AHStatWert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (ezaWP_PackstueckAnzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(ezaWP_PackstueckAnzahl.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (ezaWP_PackstueckArt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(ezaWP_PackstueckArt,String) End If If (ezaWP_PackstueckZeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(ezaWP_PackstueckZeichen,String) End If If (ezaWP_Warenmenge1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(ezaWP_Warenmenge1.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (ezaWP_WarenMasseinheit1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(ezaWP_WarenMasseinheit1,String) End If If (ezaWP_WarenQualifier1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(ezaWP_WarenQualifier1,String) End If If (ezaWP_Warenmenge2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(ezaWP_Warenmenge2.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (ezaWP_WarenMasseinheit2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(ezaWP_WarenMasseinheit2,String) End If If (ezaWP_WarenQualifier2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(ezaWP_WarenQualifier2,String) End If If (ezaWP_Warenmenge3.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(37).Value = CType(ezaWP_Warenmenge3.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (ezaWP_WarenMasseinheit3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(ezaWP_WarenMasseinheit3,String) End If If (ezaWP_WarenQualifier3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(ezaWP_WarenQualifier3,String) End If If (ezaWP_Warenmenge4.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(ezaWP_Warenmenge4.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (ezaWP_WarenMasseinheit4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(ezaWP_WarenMasseinheit4,String) End If If (ezaWP_WarenQualifier4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(ezaWP_WarenQualifier4,String) End If If (ezaWP_Warenmenge5.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(ezaWP_Warenmenge5.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (ezaWP_WarenMasseinheit5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(ezaWP_WarenMasseinheit5,String) End If If (ezaWP_WarenQualifier5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(ezaWP_WarenQualifier5,String) End If If (ezaWP_BeguenstigungBenatragtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(ezaWP_BeguenstigungBenatragtCode,String) End If If (ezaWP_Kentigentnummer1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(ezaWP_Kentigentnummer1,String) End If If (ezaWP_Kentigentnummer2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(ezaWP_Kentigentnummer2,String) End If If (ezaWP_PositionsZusatz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(ezaWP_PositionsZusatz,String) End If If (ezaWP_AHStatWertManuellKZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(ezaWP_AHStatWertManuellKZ,String) End If If (ezaWP_Artikelpreis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(ezaWP_Artikelpreis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (ezaWP_ArtikelpreisWaehrung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(ezaWP_ArtikelpreisWaehrung,String) End If If (ezaWP_OrtVerbringens Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(ezaWP_OrtVerbringens,String) End If If (ezaWP_AbflughafenIATACode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(ezaWP_AbflughafenIATACode,String) End If If (ezaWP_WarenmengeAVUVZugang.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(55).Value = CType(ezaWP_WarenmengeAVUVZugang.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (ezaWP_WarenmengeAVUVZugangMasseinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(ezaWP_WarenmengeAVUVZugangMasseinheit,String) End If If (ezaWP_WarenmengeAVUVZugangMasseinheitQualifier Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(ezaWP_WarenmengeAVUVZugangMasseinheitQualifier,String) End If If (ezaWP_Sachbereich Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(ezaWP_Sachbereich,String) End If If (ezaWP_BedingungCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(ezaWP_BedingungCode,String) End If If (ezaWP_VeredelungWertsteigerung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(60).Value = CType(ezaWP_VeredelungWertsteigerung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (ezaWP_TabakSteuerzeichenID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(ezaWP_TabakSteuerzeichenID,String) End If If (ezaWP_GehaltsAngabenArtCode1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(ezaWP_GehaltsAngabenArtCode1,String) End If If (ezaWP_GehaltsAngabenGradProzent1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(63).Value = CType(ezaWP_GehaltsAngabenGradProzent1.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (ezaWP_GehaltsAngabenArtCode2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(ezaWP_GehaltsAngabenArtCode2,String) End If If (ezaWP_GehaltsAngabenGradProzent2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(65).Value = CType(ezaWP_GehaltsAngabenGradProzent2.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value End If If (ezaWP_GehaltsAngabenArtCode3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(ezaWP_GehaltsAngabenArtCode3,String) End If If (ezaWP_GehaltsAngabenGradProzent3.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(67).Value = CType(ezaWP_GehaltsAngabenGradProzent3.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (ezaWP_BeguenstigungsMengeMenge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(68).Value = CType(ezaWP_BeguenstigungsMengeMenge.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (ezaWP_BeguenstigungsMengeMasseinheitCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(ezaWP_BeguenstigungsMengeMasseinheitCode,String) End If If (ezaWP_BeguenstigungsMengeQualifier Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(ezaWP_BeguenstigungsMengeQualifier,String) End If If (ezaWP_Abgabenminderung_AbgabengruppeCode1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(ezaWP_Abgabenminderung_AbgabengruppeCode1,String) End If If (ezaWP_Abgabenminderung_Minderungsbetrag1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(72).Value = CType(ezaWP_Abgabenminderung_Minderungsbetrag1.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value End If If (ezaWP_Abgabenminderung_AbgabengruppeCode2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(ezaWP_Abgabenminderung_AbgabengruppeCode2,String) End If If (ezaWP_Abgabenminderung_Minderungsbetrag2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(74).Value = CType(ezaWP_Abgabenminderung_Minderungsbetrag2.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value End If If (ezaWP_Abgabenminderung_AbgabengruppeCode3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(ezaWP_Abgabenminderung_AbgabengruppeCode3,String) End If If (ezaWP_Abgabenminderung_Minderungsbetrag3.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(76).Value = CType(ezaWP_Abgabenminderung_Minderungsbetrag3.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_Wert1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(77).Value = CType(ezaWP_BesondereWertangabe_Wert1.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_PreisartCode1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(78).Value = CType(ezaWP_BesondereWertangabe_PreisartCode1,String) End If If (ezaWP_BesondereWertangabe_Wert2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(79).Value = CType(ezaWP_BesondereWertangabe_Wert2.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_PreisartCode2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(ezaWP_BesondereWertangabe_PreisartCode2,String) End If If (ezaWP_BesondereWertangabe_Wert3.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(81).Value = CType(ezaWP_BesondereWertangabe_Wert3.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_PreisartCode3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(ezaWP_BesondereWertangabe_PreisartCode3,String) End If If (ezaWP_BesondereWertangabe_Wert4.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(83).Value = CType(ezaWP_BesondereWertangabe_Wert4.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_PreisartCode4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(ezaWP_BesondereWertangabe_PreisartCode4,String) End If If (ezaWP_BesondereWertangabe_Wert5.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(85).Value = CType(ezaWP_BesondereWertangabe_Wert5.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_PreisartCode5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(ezaWP_BesondereWertangabe_PreisartCode5,String) End If If (ezaWP_VZAStatus Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(ezaWP_VZAStatus,String) End If If (ezaWP_EGZStatus Is Nothing) Then Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(88).Value = CType(ezaWP_EGZStatus,String) End If If (ezaWP_DV1Status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(ezaWP_DV1Status,String) End If If (ezaWP_AnmeldeArt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(ezaWP_AnmeldeArt,String) End If If (ezaWP_BefundDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(91).Value = CType(ezaWP_BefundDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value End If If (ezaWP_AnmelderAdressCodeEORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(ezaWP_AnmelderAdressCodeEORI,String) End If If (ezaWP_Zollverfahren Is Nothing) Then Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(93).Value = CType(ezaWP_Zollverfahren,String) End If If (ezaWP_AbrechnungszollstelleCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(ezaWP_AbrechnungszollstelleCode,String) End If If (ezaWP_SachbereichCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(ezaWP_SachbereichCode,String) End If If (ezaWP_RegistriernummerZA Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(ezaWP_RegistriernummerZA,String) End If If (ezaWP_AnmeldeVErfahren Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(ezaWP_AnmeldeVErfahren,String) End If If (ezaWP_Bewilligungsnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(ezaWP_Bewilligungsnummer,String) End If If (ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte Is Nothing) Then Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte,String) End If If (ezaWP_Zollwert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(100).Value = CType(ezaWP_Zollwert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value End If If (ezaWP_LuftfrachtkostenGesamt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(101).Value = CType(ezaWP_LuftfrachtkostenGesamt.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(101).Value = Global.System.DBNull.Value End If If (ezaWP_IATAKursKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(102).Value = CType(ezaWP_IATAKursKz,String) End If If (ezaWP_LuftfrachtkostenGesamtWaehrung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(103).Value = CType(ezaWP_LuftfrachtkostenGesamtWaehrung,String) End If If (ezaWP_KursVereinbartKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(104).Value = CType(ezaWP_KursVereinbartKz,String) End If If (ezaWP_KursBetragVereinbart.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(105).Value = CType(ezaWP_KursBetragVereinbart.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(105).Value = Global.System.DBNull.Value End If If (ezaWP_KursDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(106).Value = CType(ezaWP_KursDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(106).Value = Global.System.DBNull.Value End If If (ezaWP_Aussenhandelsstatistik_VerkehrszweigInland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(107).Value = CType(ezaWP_Aussenhandelsstatistik_VerkehrszweigInland,String) End If If (ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.InsertCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(108).Value = CType(ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze,String) End If If (ezaWP_Aussenhandelsstatistik_Versendungsland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(109).Value = CType(ezaWP_Aussenhandelsstatistik_Versendungsland,String) End If If (ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(110).Value = CType(ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland,String) End If If (ezaWP_Aussenhandelsstatistik_Bestimmungsland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(111).Value = CType(ezaWP_Aussenhandelsstatistik_Bestimmungsland,String) End If If (ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(112).Value = CType(ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode,String) End If If (ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(113).Value = CType(ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt,String) End If If (ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(114).Value = CType(ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung,String) End If If (ezaWP_Aussenhandelsstatistik_ArtGeschaeft Is Nothing) Then Me.Adapter.InsertCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(115).Value = CType(ezaWP_Aussenhandelsstatistik_ArtGeschaeft,String) End If If (ezaWP_Aussenhandelsstatistik_Statistikstatus Is Nothing) Then Me.Adapter.InsertCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(116).Value = CType(ezaWP_Aussenhandelsstatistik_Statistikstatus,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 ezaWP_EzaId As Integer, _ ByVal ezaWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Artikelnummer As String, _ ByVal ezaWP_WarennummerEZT As String, _ ByVal ezaWP_WarennummerZusatzCode1 As String, _ ByVal ezaWP_WarennummerZusatzCode2 As String, _ ByVal ezaWP_WarennummerZusatzCode3 As String, _ ByVal ezaWP_WarennummerZusatzCode4 As String, _ ByVal ezaWP_WarennummerZusatzCode5 As String, _ ByVal ezaWP_WarennummerZusatzCode6 As String, _ ByVal ezaWP_WarennummerZusatzCode7 As String, _ ByVal ezaWP_WarennummerZusatzCode8 As String, _ ByVal ezaWP_WarennummerZusatzCode9 As String, _ ByVal ezaWP_WarennummerZusatzCode10 As String, _ ByVal ezaWP_Warennummerzusatz1 As String, _ ByVal ezaWP_Warennummerzusatz2 As String, _ ByVal ezaWP_Warenbezeichnung As String, _ ByVal ezaWP_VerfahrensCodeVorangegangenesVerfahren As String, _ ByVal ezaWP_AbgabensteuerungKz As String, _ ByVal ezaWP_EUCode As String, _ ByVal ezaWP_UrsprungslandCode As String, _ ByVal ezaWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_AHStatMenge As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_AHStatMengeMasseinheit As String, _ ByVal ezaWP_AHStatMengeQualifier As String, _ ByVal ezaWP_KostenEUSt As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_AHStatWert As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_PackstueckAnzahl As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_PackstueckArt As String, _ ByVal ezaWP_PackstueckZeichen As String, _ ByVal ezaWP_Warenmenge1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit1 As String, _ ByVal ezaWP_WarenQualifier1 As String, _ ByVal ezaWP_Warenmenge2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit2 As String, _ ByVal ezaWP_WarenQualifier2 As String, _ ByVal ezaWP_Warenmenge3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit3 As String, _ ByVal ezaWP_WarenQualifier3 As String, _ ByVal ezaWP_Warenmenge4 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit4 As String, _ ByVal ezaWP_WarenQualifier4 As String, _ ByVal ezaWP_Warenmenge5 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit5 As String, _ ByVal ezaWP_WarenQualifier5 As String, _ ByVal ezaWP_BeguenstigungBenatragtCode As String, _ ByVal ezaWP_Kentigentnummer1 As String, _ ByVal ezaWP_Kentigentnummer2 As String, _ ByVal ezaWP_PositionsZusatz As String, _ ByVal ezaWP_AHStatWertManuellKZ As String, _ ByVal ezaWP_Artikelpreis As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_ArtikelpreisWaehrung As String, _ ByVal ezaWP_OrtVerbringens As String, _ ByVal ezaWP_AbflughafenIATACode As String, _ ByVal ezaWP_WarenmengeAVUVZugang As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenmengeAVUVZugangMasseinheit As String, _ ByVal ezaWP_WarenmengeAVUVZugangMasseinheitQualifier As String, _ ByVal ezaWP_Sachbereich As String, _ ByVal ezaWP_BedingungCode As String, _ ByVal ezaWP_VeredelungWertsteigerung As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_TabakSteuerzeichenID As String, _ ByVal ezaWP_GehaltsAngabenArtCode1 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_GehaltsAngabenArtCode2 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_GehaltsAngabenArtCode3 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BeguenstigungsMengeMenge As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BeguenstigungsMengeMasseinheitCode As String, _ ByVal ezaWP_BeguenstigungsMengeQualifier As String, _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode1 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode2 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode3 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_Wert1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode1 As String, _ ByVal ezaWP_BesondereWertangabe_Wert2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode2 As String, _ ByVal ezaWP_BesondereWertangabe_Wert3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode3 As String, _ ByVal ezaWP_BesondereWertangabe_Wert4 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode4 As String, _ ByVal ezaWP_BesondereWertangabe_Wert5 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode5 As String, _ ByVal ezaWP_VZAStatus As String, _ ByVal ezaWP_EGZStatus As String, _ ByVal ezaWP_DV1Status As String, _ ByVal ezaWP_AnmeldeArt As String, _ ByVal ezaWP_BefundDatum As Global.System.Nullable(Of Date), _ ByVal ezaWP_AnmelderAdressCodeEORI As String, _ ByVal ezaWP_Zollverfahren As String, _ ByVal ezaWP_AbrechnungszollstelleCode As String, _ ByVal ezaWP_SachbereichCode As String, _ ByVal ezaWP_RegistriernummerZA As String, _ ByVal ezaWP_AnmeldeVErfahren As String, _ ByVal ezaWP_Bewilligungsnummer As String, _ ByVal ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte As String, _ ByVal ezaWP_Zollwert As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_LuftfrachtkostenGesamt As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_IATAKursKz As String, _ ByVal ezaWP_LuftfrachtkostenGesamtWaehrung As String, _ ByVal ezaWP_KursVereinbartKz As String, _ ByVal ezaWP_KursBetragVereinbart As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_KursDatum As Global.System.Nullable(Of Date), _ ByVal ezaWP_Aussenhandelsstatistik_VerkehrszweigInland As String, _ ByVal ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze As String, _ ByVal ezaWP_Aussenhandelsstatistik_Versendungsland As String, _ ByVal ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland As String, _ ByVal ezaWP_Aussenhandelsstatistik_Bestimmungsland As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung As String, _ ByVal ezaWP_Aussenhandelsstatistik_ArtGeschaeft As String, _ ByVal ezaWP_Aussenhandelsstatistik_Statistikstatus As String, _ ByVal Original_ezaWP_Id As Integer, _ ByVal Original_ezaWP_EzaId As Integer, _ ByVal Original_ezaWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Artikelnummer As String, _ ByVal Original_ezaWP_WarennummerEZT As String, _ ByVal Original_ezaWP_WarennummerZusatzCode1 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode2 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode3 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode4 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode5 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode6 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode7 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode8 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode9 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode10 As String, _ ByVal Original_ezaWP_Warennummerzusatz1 As String, _ ByVal Original_ezaWP_Warennummerzusatz2 As String, _ ByVal Original_ezaWP_Warenbezeichnung As String, _ ByVal Original_ezaWP_VerfahrensCodeVorangegangenesVerfahren As String, _ ByVal Original_ezaWP_AbgabensteuerungKz As String, _ ByVal Original_ezaWP_EUCode As String, _ ByVal Original_ezaWP_UrsprungslandCode As String, _ ByVal Original_ezaWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_AHStatMenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_AHStatMengeMasseinheit As String, _ ByVal Original_ezaWP_AHStatMengeQualifier As String, _ ByVal Original_ezaWP_KostenEUSt As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_AHStatWert As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_PackstueckAnzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_PackstueckArt As String, _ ByVal Original_ezaWP_PackstueckZeichen As String, _ ByVal Original_ezaWP_Warenmenge1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit1 As String, _ ByVal Original_ezaWP_WarenQualifier1 As String, _ ByVal Original_ezaWP_Warenmenge2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit2 As String, _ ByVal Original_ezaWP_WarenQualifier2 As String, _ ByVal Original_ezaWP_Warenmenge3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit3 As String, _ ByVal Original_ezaWP_WarenQualifier3 As String, _ ByVal Original_ezaWP_Warenmenge4 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit4 As String, _ ByVal Original_ezaWP_WarenQualifier4 As String, _ ByVal Original_ezaWP_Warenmenge5 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit5 As String, _ ByVal Original_ezaWP_WarenQualifier5 As String, _ ByVal Original_ezaWP_BeguenstigungBenatragtCode As String, _ ByVal Original_ezaWP_Kentigentnummer1 As String, _ ByVal Original_ezaWP_Kentigentnummer2 As String, _ ByVal Original_ezaWP_PositionsZusatz As String, _ ByVal Original_ezaWP_AHStatWertManuellKZ As String, _ ByVal Original_ezaWP_Artikelpreis As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_ArtikelpreisWaehrung As String, _ ByVal Original_ezaWP_OrtVerbringens As String, _ ByVal Original_ezaWP_AbflughafenIATACode As String, _ ByVal Original_ezaWP_WarenmengeAVUVZugang As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenmengeAVUVZugangMasseinheit As String, _ ByVal Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier As String, _ ByVal Original_ezaWP_Sachbereich As String, _ ByVal Original_ezaWP_BedingungCode As String, _ ByVal Original_ezaWP_VeredelungWertsteigerung As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_TabakSteuerzeichenID As String, _ ByVal Original_ezaWP_GehaltsAngabenArtCode1 As String, _ ByVal Original_ezaWP_GehaltsAngabenGradProzent1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_GehaltsAngabenArtCode2 As String, _ ByVal Original_ezaWP_GehaltsAngabenGradProzent2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_GehaltsAngabenArtCode3 As String, _ ByVal Original_ezaWP_GehaltsAngabenGradProzent3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BeguenstigungsMengeMenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BeguenstigungsMengeMasseinheitCode As String, _ ByVal Original_ezaWP_BeguenstigungsMengeQualifier As String, _ ByVal Original_ezaWP_Abgabenminderung_AbgabengruppeCode1 As String, _ ByVal Original_ezaWP_Abgabenminderung_Minderungsbetrag1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Abgabenminderung_AbgabengruppeCode2 As String, _ ByVal Original_ezaWP_Abgabenminderung_Minderungsbetrag2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Abgabenminderung_AbgabengruppeCode3 As String, _ ByVal Original_ezaWP_Abgabenminderung_Minderungsbetrag3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_Wert1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode1 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode2 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode3 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert4 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode4 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert5 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode5 As String, _ ByVal Original_ezaWP_VZAStatus As String, _ ByVal Original_ezaWP_EGZStatus As String, _ ByVal Original_ezaWP_DV1Status As String, _ ByVal Original_ezaWP_AnmeldeArt As String, _ ByVal Original_ezaWP_BefundDatum As Global.System.Nullable(Of Date), _ ByVal Original_ezaWP_AnmelderAdressCodeEORI As String, _ ByVal Original_ezaWP_Zollverfahren As String, _ ByVal Original_ezaWP_AbrechnungszollstelleCode As String, _ ByVal Original_ezaWP_SachbereichCode As String, _ ByVal Original_ezaWP_RegistriernummerZA As String, _ ByVal Original_ezaWP_AnmeldeVErfahren As String, _ ByVal Original_ezaWP_Bewilligungsnummer As String, _ ByVal Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte As String, _ ByVal Original_ezaWP_Zollwert As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_LuftfrachtkostenGesamt As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_IATAKursKz As String, _ ByVal Original_ezaWP_LuftfrachtkostenGesamtWaehrung As String, _ ByVal Original_ezaWP_KursVereinbartKz As String, _ ByVal Original_ezaWP_KursBetragVereinbart As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_KursDatum As Global.System.Nullable(Of Date), _ ByVal Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_Versendungsland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_Bestimmungsland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_Statistikstatus As String, _ ByVal ezaWP_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezaWP_EzaId,Integer) If (ezaWP_PositionsNummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezaWP_PositionsNummer.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (ezaWP_Artikelnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezaWP_Artikelnummer,String) End If If (ezaWP_WarennummerEZT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezaWP_WarennummerEZT,String) End If If (ezaWP_WarennummerZusatzCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ezaWP_WarennummerZusatzCode1,String) End If If (ezaWP_WarennummerZusatzCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ezaWP_WarennummerZusatzCode2,String) End If If (ezaWP_WarennummerZusatzCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ezaWP_WarennummerZusatzCode3,String) End If If (ezaWP_WarennummerZusatzCode4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ezaWP_WarennummerZusatzCode4,String) End If If (ezaWP_WarennummerZusatzCode5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ezaWP_WarennummerZusatzCode5,String) End If If (ezaWP_WarennummerZusatzCode6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ezaWP_WarennummerZusatzCode6,String) End If If (ezaWP_WarennummerZusatzCode7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ezaWP_WarennummerZusatzCode7,String) End If If (ezaWP_WarennummerZusatzCode8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ezaWP_WarennummerZusatzCode8,String) End If If (ezaWP_WarennummerZusatzCode9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ezaWP_WarennummerZusatzCode9,String) End If If (ezaWP_WarennummerZusatzCode10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ezaWP_WarennummerZusatzCode10,String) End If If (ezaWP_Warennummerzusatz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ezaWP_Warennummerzusatz1,String) End If If (ezaWP_Warennummerzusatz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ezaWP_Warennummerzusatz2,String) End If If (ezaWP_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ezaWP_Warenbezeichnung,String) End If If (ezaWP_VerfahrensCodeVorangegangenesVerfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ezaWP_VerfahrensCodeVorangegangenesVerfahren,String) End If If (ezaWP_AbgabensteuerungKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ezaWP_AbgabensteuerungKz,String) End If If (ezaWP_EUCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ezaWP_EUCode,String) End If If (ezaWP_UrsprungslandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(ezaWP_UrsprungslandCode,String) End If If (ezaWP_Rohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(ezaWP_Rohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (ezaWP_Eigenmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(ezaWP_Eigenmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (ezaWP_AHStatMenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(ezaWP_AHStatMenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (ezaWP_AHStatMengeMasseinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(ezaWP_AHStatMengeMasseinheit,String) End If If (ezaWP_AHStatMengeQualifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(ezaWP_AHStatMengeQualifier,String) End If If (ezaWP_KostenEUSt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(ezaWP_KostenEUSt.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (ezaWP_AHStatWert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(ezaWP_AHStatWert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (ezaWP_PackstueckAnzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(ezaWP_PackstueckAnzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (ezaWP_PackstueckArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(ezaWP_PackstueckArt,String) End If If (ezaWP_PackstueckZeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(ezaWP_PackstueckZeichen,String) End If If (ezaWP_Warenmenge1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(ezaWP_Warenmenge1.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (ezaWP_WarenMasseinheit1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(ezaWP_WarenMasseinheit1,String) End If If (ezaWP_WarenQualifier1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(ezaWP_WarenQualifier1,String) End If If (ezaWP_Warenmenge2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(ezaWP_Warenmenge2.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (ezaWP_WarenMasseinheit2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(ezaWP_WarenMasseinheit2,String) End If If (ezaWP_WarenQualifier2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(ezaWP_WarenQualifier2,String) End If If (ezaWP_Warenmenge3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(ezaWP_Warenmenge3.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (ezaWP_WarenMasseinheit3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(ezaWP_WarenMasseinheit3,String) End If If (ezaWP_WarenQualifier3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(ezaWP_WarenQualifier3,String) End If If (ezaWP_Warenmenge4.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(ezaWP_Warenmenge4.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (ezaWP_WarenMasseinheit4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(ezaWP_WarenMasseinheit4,String) End If If (ezaWP_WarenQualifier4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(ezaWP_WarenQualifier4,String) End If If (ezaWP_Warenmenge5.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(ezaWP_Warenmenge5.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (ezaWP_WarenMasseinheit5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(ezaWP_WarenMasseinheit5,String) End If If (ezaWP_WarenQualifier5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(ezaWP_WarenQualifier5,String) End If If (ezaWP_BeguenstigungBenatragtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(ezaWP_BeguenstigungBenatragtCode,String) End If If (ezaWP_Kentigentnummer1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(ezaWP_Kentigentnummer1,String) End If If (ezaWP_Kentigentnummer2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(ezaWP_Kentigentnummer2,String) End If If (ezaWP_PositionsZusatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(ezaWP_PositionsZusatz,String) End If If (ezaWP_AHStatWertManuellKZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(ezaWP_AHStatWertManuellKZ,String) End If If (ezaWP_Artikelpreis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(ezaWP_Artikelpreis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (ezaWP_ArtikelpreisWaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(ezaWP_ArtikelpreisWaehrung,String) End If If (ezaWP_OrtVerbringens Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(ezaWP_OrtVerbringens,String) End If If (ezaWP_AbflughafenIATACode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(ezaWP_AbflughafenIATACode,String) End If If (ezaWP_WarenmengeAVUVZugang.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(ezaWP_WarenmengeAVUVZugang.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (ezaWP_WarenmengeAVUVZugangMasseinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(ezaWP_WarenmengeAVUVZugangMasseinheit,String) End If If (ezaWP_WarenmengeAVUVZugangMasseinheitQualifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(ezaWP_WarenmengeAVUVZugangMasseinheitQualifier,String) End If If (ezaWP_Sachbereich Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(ezaWP_Sachbereich,String) End If If (ezaWP_BedingungCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(ezaWP_BedingungCode,String) End If If (ezaWP_VeredelungWertsteigerung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(ezaWP_VeredelungWertsteigerung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (ezaWP_TabakSteuerzeichenID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(ezaWP_TabakSteuerzeichenID,String) End If If (ezaWP_GehaltsAngabenArtCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(ezaWP_GehaltsAngabenArtCode1,String) End If If (ezaWP_GehaltsAngabenGradProzent1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(63).Value = CType(ezaWP_GehaltsAngabenGradProzent1.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (ezaWP_GehaltsAngabenArtCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(ezaWP_GehaltsAngabenArtCode2,String) End If If (ezaWP_GehaltsAngabenGradProzent2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(65).Value = CType(ezaWP_GehaltsAngabenGradProzent2.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value End If If (ezaWP_GehaltsAngabenArtCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(ezaWP_GehaltsAngabenArtCode3,String) End If If (ezaWP_GehaltsAngabenGradProzent3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(ezaWP_GehaltsAngabenGradProzent3.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (ezaWP_BeguenstigungsMengeMenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(ezaWP_BeguenstigungsMengeMenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (ezaWP_BeguenstigungsMengeMasseinheitCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(ezaWP_BeguenstigungsMengeMasseinheitCode,String) End If If (ezaWP_BeguenstigungsMengeQualifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(ezaWP_BeguenstigungsMengeQualifier,String) End If If (ezaWP_Abgabenminderung_AbgabengruppeCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(ezaWP_Abgabenminderung_AbgabengruppeCode1,String) End If If (ezaWP_Abgabenminderung_Minderungsbetrag1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(ezaWP_Abgabenminderung_Minderungsbetrag1.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value End If If (ezaWP_Abgabenminderung_AbgabengruppeCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(ezaWP_Abgabenminderung_AbgabengruppeCode2,String) End If If (ezaWP_Abgabenminderung_Minderungsbetrag2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(ezaWP_Abgabenminderung_Minderungsbetrag2.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value End If If (ezaWP_Abgabenminderung_AbgabengruppeCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(ezaWP_Abgabenminderung_AbgabengruppeCode3,String) End If If (ezaWP_Abgabenminderung_Minderungsbetrag3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(ezaWP_Abgabenminderung_Minderungsbetrag3.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_Wert1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(ezaWP_BesondereWertangabe_Wert1.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_PreisartCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(ezaWP_BesondereWertangabe_PreisartCode1,String) End If If (ezaWP_BesondereWertangabe_Wert2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(ezaWP_BesondereWertangabe_Wert2.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_PreisartCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(ezaWP_BesondereWertangabe_PreisartCode2,String) End If If (ezaWP_BesondereWertangabe_Wert3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(81).Value = CType(ezaWP_BesondereWertangabe_Wert3.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_PreisartCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(ezaWP_BesondereWertangabe_PreisartCode3,String) End If If (ezaWP_BesondereWertangabe_Wert4.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(83).Value = CType(ezaWP_BesondereWertangabe_Wert4.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_PreisartCode4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(ezaWP_BesondereWertangabe_PreisartCode4,String) End If If (ezaWP_BesondereWertangabe_Wert5.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(85).Value = CType(ezaWP_BesondereWertangabe_Wert5.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (ezaWP_BesondereWertangabe_PreisartCode5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(ezaWP_BesondereWertangabe_PreisartCode5,String) End If If (ezaWP_VZAStatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(ezaWP_VZAStatus,String) End If If (ezaWP_EGZStatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(ezaWP_EGZStatus,String) End If If (ezaWP_DV1Status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(ezaWP_DV1Status,String) End If If (ezaWP_AnmeldeArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(ezaWP_AnmeldeArt,String) End If If (ezaWP_BefundDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(91).Value = CType(ezaWP_BefundDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value End If If (ezaWP_AnmelderAdressCodeEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(ezaWP_AnmelderAdressCodeEORI,String) End If If (ezaWP_Zollverfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(ezaWP_Zollverfahren,String) End If If (ezaWP_AbrechnungszollstelleCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(ezaWP_AbrechnungszollstelleCode,String) End If If (ezaWP_SachbereichCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(ezaWP_SachbereichCode,String) End If If (ezaWP_RegistriernummerZA Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(ezaWP_RegistriernummerZA,String) End If If (ezaWP_AnmeldeVErfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(ezaWP_AnmeldeVErfahren,String) End If If (ezaWP_Bewilligungsnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(ezaWP_Bewilligungsnummer,String) End If If (ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte,String) End If If (ezaWP_Zollwert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(100).Value = CType(ezaWP_Zollwert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value End If If (ezaWP_LuftfrachtkostenGesamt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(101).Value = CType(ezaWP_LuftfrachtkostenGesamt.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value End If If (ezaWP_IATAKursKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(ezaWP_IATAKursKz,String) End If If (ezaWP_LuftfrachtkostenGesamtWaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(ezaWP_LuftfrachtkostenGesamtWaehrung,String) End If If (ezaWP_KursVereinbartKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(ezaWP_KursVereinbartKz,String) End If If (ezaWP_KursBetragVereinbart.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(105).Value = CType(ezaWP_KursBetragVereinbart.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value End If If (ezaWP_KursDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(106).Value = CType(ezaWP_KursDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value End If If (ezaWP_Aussenhandelsstatistik_VerkehrszweigInland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(ezaWP_Aussenhandelsstatistik_VerkehrszweigInland,String) End If If (ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze,String) End If If (ezaWP_Aussenhandelsstatistik_Versendungsland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(ezaWP_Aussenhandelsstatistik_Versendungsland,String) End If If (ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland,String) End If If (ezaWP_Aussenhandelsstatistik_Bestimmungsland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(ezaWP_Aussenhandelsstatistik_Bestimmungsland,String) End If If (ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode,String) End If If (ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt,String) End If If (ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung,String) End If If (ezaWP_Aussenhandelsstatistik_ArtGeschaeft Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(ezaWP_Aussenhandelsstatistik_ArtGeschaeft,String) End If If (ezaWP_Aussenhandelsstatistik_Statistikstatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(ezaWP_Aussenhandelsstatistik_Statistikstatus,String) End If Me.Adapter.UpdateCommand.Parameters(117).Value = CType(Original_ezaWP_Id,Integer) Me.Adapter.UpdateCommand.Parameters(118).Value = CType(Original_ezaWP_EzaId,Integer) If (Original_ezaWP_PositionsNummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = CType(Original_ezaWP_PositionsNummer.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value End If If (Original_ezaWP_Artikelnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = CType(Original_ezaWP_Artikelnummer,String) End If If (Original_ezaWP_WarennummerEZT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(124).Value = CType(Original_ezaWP_WarennummerEZT,String) End If If (Original_ezaWP_WarennummerZusatzCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(126).Value = CType(Original_ezaWP_WarennummerZusatzCode1,String) End If If (Original_ezaWP_WarennummerZusatzCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(128).Value = CType(Original_ezaWP_WarennummerZusatzCode2,String) End If If (Original_ezaWP_WarennummerZusatzCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(130).Value = CType(Original_ezaWP_WarennummerZusatzCode3,String) End If If (Original_ezaWP_WarennummerZusatzCode4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(132).Value = CType(Original_ezaWP_WarennummerZusatzCode4,String) End If If (Original_ezaWP_WarennummerZusatzCode5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(134).Value = CType(Original_ezaWP_WarennummerZusatzCode5,String) End If If (Original_ezaWP_WarennummerZusatzCode6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(136).Value = CType(Original_ezaWP_WarennummerZusatzCode6,String) End If If (Original_ezaWP_WarennummerZusatzCode7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(138).Value = CType(Original_ezaWP_WarennummerZusatzCode7,String) End If If (Original_ezaWP_WarennummerZusatzCode8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = CType(Original_ezaWP_WarennummerZusatzCode8,String) End If If (Original_ezaWP_WarennummerZusatzCode9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = CType(Original_ezaWP_WarennummerZusatzCode9,String) End If If (Original_ezaWP_WarennummerZusatzCode10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = CType(Original_ezaWP_WarennummerZusatzCode10,String) End If If (Original_ezaWP_Warennummerzusatz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = CType(Original_ezaWP_Warennummerzusatz1,String) End If If (Original_ezaWP_Warennummerzusatz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = CType(Original_ezaWP_Warennummerzusatz2,String) End If If (Original_ezaWP_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = CType(Original_ezaWP_Warenbezeichnung,String) End If If (Original_ezaWP_VerfahrensCodeVorangegangenesVerfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = CType(Original_ezaWP_VerfahrensCodeVorangegangenesVerfahren,String) End If If (Original_ezaWP_AbgabensteuerungKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = CType(Original_ezaWP_AbgabensteuerungKz,String) End If If (Original_ezaWP_EUCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = CType(Original_ezaWP_EUCode,String) End If If (Original_ezaWP_UrsprungslandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = CType(Original_ezaWP_UrsprungslandCode,String) End If If (Original_ezaWP_Rohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(159).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(160).Value = CType(Original_ezaWP_Rohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(159).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(160).Value = Global.System.DBNull.Value End If If (Original_ezaWP_Eigenmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = CType(Original_ezaWP_Eigenmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = Global.System.DBNull.Value End If If (Original_ezaWP_AHStatMenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = CType(Original_ezaWP_AHStatMenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value End If If (Original_ezaWP_AHStatMengeMasseinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = CType(Original_ezaWP_AHStatMengeMasseinheit,String) End If If (Original_ezaWP_AHStatMengeQualifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = CType(Original_ezaWP_AHStatMengeQualifier,String) End If If (Original_ezaWP_KostenEUSt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = CType(Original_ezaWP_KostenEUSt.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = Global.System.DBNull.Value End If If (Original_ezaWP_AHStatWert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = CType(Original_ezaWP_AHStatWert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = Global.System.DBNull.Value End If If (Original_ezaWP_PackstueckAnzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_ezaWP_PackstueckAnzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = Global.System.DBNull.Value End If If (Original_ezaWP_PackstueckArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_ezaWP_PackstueckArt,String) End If If (Original_ezaWP_PackstueckZeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = CType(Original_ezaWP_PackstueckZeichen,String) End If If (Original_ezaWP_Warenmenge1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = CType(Original_ezaWP_Warenmenge1.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenMasseinheit1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = CType(Original_ezaWP_WarenMasseinheit1,String) End If If (Original_ezaWP_WarenQualifier1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = CType(Original_ezaWP_WarenQualifier1,String) End If If (Original_ezaWP_Warenmenge2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_ezaWP_Warenmenge2.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenMasseinheit2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_ezaWP_WarenMasseinheit2,String) End If If (Original_ezaWP_WarenQualifier2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_ezaWP_WarenQualifier2,String) End If If (Original_ezaWP_Warenmenge3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_ezaWP_Warenmenge3.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenMasseinheit3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_ezaWP_WarenMasseinheit3,String) End If If (Original_ezaWP_WarenQualifier3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_ezaWP_WarenQualifier3,String) End If If (Original_ezaWP_Warenmenge4.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_ezaWP_Warenmenge4.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenMasseinheit4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_ezaWP_WarenMasseinheit4,String) End If If (Original_ezaWP_WarenQualifier4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = CType(Original_ezaWP_WarenQualifier4,String) End If If (Original_ezaWP_Warenmenge5.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = CType(Original_ezaWP_Warenmenge5.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenMasseinheit5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = CType(Original_ezaWP_WarenMasseinheit5,String) End If If (Original_ezaWP_WarenQualifier5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = CType(Original_ezaWP_WarenQualifier5,String) End If If (Original_ezaWP_BeguenstigungBenatragtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = CType(Original_ezaWP_BeguenstigungBenatragtCode,String) End If If (Original_ezaWP_Kentigentnummer1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = CType(Original_ezaWP_Kentigentnummer1,String) End If If (Original_ezaWP_Kentigentnummer2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = CType(Original_ezaWP_Kentigentnummer2,String) End If If (Original_ezaWP_PositionsZusatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = CType(Original_ezaWP_PositionsZusatz,String) End If If (Original_ezaWP_AHStatWertManuellKZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = CType(Original_ezaWP_AHStatWertManuellKZ,String) End If If (Original_ezaWP_Artikelpreis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = CType(Original_ezaWP_Artikelpreis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = Global.System.DBNull.Value End If If (Original_ezaWP_ArtikelpreisWaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = CType(Original_ezaWP_ArtikelpreisWaehrung,String) End If If (Original_ezaWP_OrtVerbringens Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = CType(Original_ezaWP_OrtVerbringens,String) End If If (Original_ezaWP_AbflughafenIATACode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(225).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(225).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = CType(Original_ezaWP_AbflughafenIATACode,String) End If If (Original_ezaWP_WarenmengeAVUVZugang.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(227).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = CType(Original_ezaWP_WarenmengeAVUVZugang.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(227).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = Global.System.DBNull.Value End If If (Original_ezaWP_WarenmengeAVUVZugangMasseinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(229).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(229).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = CType(Original_ezaWP_WarenmengeAVUVZugangMasseinheit,String) End If If (Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(231).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(231).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = CType(Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier,String) End If If (Original_ezaWP_Sachbereich Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = CType(Original_ezaWP_Sachbereich,String) End If If (Original_ezaWP_BedingungCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = CType(Original_ezaWP_BedingungCode,String) End If If (Original_ezaWP_VeredelungWertsteigerung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = CType(Original_ezaWP_VeredelungWertsteigerung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = Global.System.DBNull.Value End If If (Original_ezaWP_TabakSteuerzeichenID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = CType(Original_ezaWP_TabakSteuerzeichenID,String) End If If (Original_ezaWP_GehaltsAngabenArtCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(241).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(241).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = CType(Original_ezaWP_GehaltsAngabenArtCode1,String) End If If (Original_ezaWP_GehaltsAngabenGradProzent1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = CType(Original_ezaWP_GehaltsAngabenGradProzent1.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = Global.System.DBNull.Value End If If (Original_ezaWP_GehaltsAngabenArtCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = CType(Original_ezaWP_GehaltsAngabenArtCode2,String) End If If (Original_ezaWP_GehaltsAngabenGradProzent2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = CType(Original_ezaWP_GehaltsAngabenGradProzent2.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = Global.System.DBNull.Value End If If (Original_ezaWP_GehaltsAngabenArtCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = CType(Original_ezaWP_GehaltsAngabenArtCode3,String) End If If (Original_ezaWP_GehaltsAngabenGradProzent3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = CType(Original_ezaWP_GehaltsAngabenGradProzent3.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BeguenstigungsMengeMenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = CType(Original_ezaWP_BeguenstigungsMengeMenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BeguenstigungsMengeMasseinheitCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = CType(Original_ezaWP_BeguenstigungsMengeMasseinheitCode,String) End If If (Original_ezaWP_BeguenstigungsMengeQualifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = CType(Original_ezaWP_BeguenstigungsMengeQualifier,String) End If If (Original_ezaWP_Abgabenminderung_AbgabengruppeCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = CType(Original_ezaWP_Abgabenminderung_AbgabengruppeCode1,String) End If If (Original_ezaWP_Abgabenminderung_Minderungsbetrag1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(261).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = CType(Original_ezaWP_Abgabenminderung_Minderungsbetrag1.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(261).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = Global.System.DBNull.Value End If If (Original_ezaWP_Abgabenminderung_AbgabengruppeCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(263).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(263).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = CType(Original_ezaWP_Abgabenminderung_AbgabengruppeCode2,String) End If If (Original_ezaWP_Abgabenminderung_Minderungsbetrag2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(265).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = CType(Original_ezaWP_Abgabenminderung_Minderungsbetrag2.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(265).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = Global.System.DBNull.Value End If If (Original_ezaWP_Abgabenminderung_AbgabengruppeCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(267).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(267).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = CType(Original_ezaWP_Abgabenminderung_AbgabengruppeCode3,String) End If If (Original_ezaWP_Abgabenminderung_Minderungsbetrag3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(269).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = CType(Original_ezaWP_Abgabenminderung_Minderungsbetrag3.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(269).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_Wert1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(271).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = CType(Original_ezaWP_BesondereWertangabe_Wert1.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(271).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_PreisartCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(273).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(273).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = CType(Original_ezaWP_BesondereWertangabe_PreisartCode1,String) End If If (Original_ezaWP_BesondereWertangabe_Wert2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(275).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = CType(Original_ezaWP_BesondereWertangabe_Wert2.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(275).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_PreisartCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(277).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(277).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = CType(Original_ezaWP_BesondereWertangabe_PreisartCode2,String) End If If (Original_ezaWP_BesondereWertangabe_Wert3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(279).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = CType(Original_ezaWP_BesondereWertangabe_Wert3.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(279).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_PreisartCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(281).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(281).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = CType(Original_ezaWP_BesondereWertangabe_PreisartCode3,String) End If If (Original_ezaWP_BesondereWertangabe_Wert4.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(283).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = CType(Original_ezaWP_BesondereWertangabe_Wert4.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(283).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_PreisartCode4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(285).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(285).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = CType(Original_ezaWP_BesondereWertangabe_PreisartCode4,String) End If If (Original_ezaWP_BesondereWertangabe_Wert5.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(287).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = CType(Original_ezaWP_BesondereWertangabe_Wert5.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(287).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = Global.System.DBNull.Value End If If (Original_ezaWP_BesondereWertangabe_PreisartCode5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(289).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(289).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = CType(Original_ezaWP_BesondereWertangabe_PreisartCode5,String) End If If (Original_ezaWP_VZAStatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(291).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(291).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = CType(Original_ezaWP_VZAStatus,String) End If If (Original_ezaWP_EGZStatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(293).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(293).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = CType(Original_ezaWP_EGZStatus,String) End If If (Original_ezaWP_DV1Status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(295).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(295).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = CType(Original_ezaWP_DV1Status,String) End If If (Original_ezaWP_AnmeldeArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(297).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(297).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = CType(Original_ezaWP_AnmeldeArt,String) End If If (Original_ezaWP_BefundDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(299).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = CType(Original_ezaWP_BefundDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(299).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = Global.System.DBNull.Value End If If (Original_ezaWP_AnmelderAdressCodeEORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(301).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(301).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = CType(Original_ezaWP_AnmelderAdressCodeEORI,String) End If If (Original_ezaWP_Zollverfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(303).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(303).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = CType(Original_ezaWP_Zollverfahren,String) End If If (Original_ezaWP_AbrechnungszollstelleCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(305).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(305).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = CType(Original_ezaWP_AbrechnungszollstelleCode,String) End If If (Original_ezaWP_SachbereichCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(307).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(307).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = CType(Original_ezaWP_SachbereichCode,String) End If If (Original_ezaWP_RegistriernummerZA Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(309).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(309).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = CType(Original_ezaWP_RegistriernummerZA,String) End If If (Original_ezaWP_AnmeldeVErfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(311).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(311).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = CType(Original_ezaWP_AnmeldeVErfahren,String) End If If (Original_ezaWP_Bewilligungsnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(313).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(313).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = CType(Original_ezaWP_Bewilligungsnummer,String) End If If (Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(315).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(315).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = CType(Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte,String) End If If (Original_ezaWP_Zollwert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(317).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = CType(Original_ezaWP_Zollwert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(317).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = Global.System.DBNull.Value End If If (Original_ezaWP_LuftfrachtkostenGesamt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(319).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = CType(Original_ezaWP_LuftfrachtkostenGesamt.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(319).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = Global.System.DBNull.Value End If If (Original_ezaWP_IATAKursKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(321).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(321).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = CType(Original_ezaWP_IATAKursKz,String) End If If (Original_ezaWP_LuftfrachtkostenGesamtWaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(323).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(323).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = CType(Original_ezaWP_LuftfrachtkostenGesamtWaehrung,String) End If If (Original_ezaWP_KursVereinbartKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(325).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(325).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = CType(Original_ezaWP_KursVereinbartKz,String) End If If (Original_ezaWP_KursBetragVereinbart.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(327).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = CType(Original_ezaWP_KursBetragVereinbart.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(327).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = Global.System.DBNull.Value End If If (Original_ezaWP_KursDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(329).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = CType(Original_ezaWP_KursDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(329).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = Global.System.DBNull.Value End If If (Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(331).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(331).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = CType(Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland,String) End If If (Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(333).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(333).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = CType(Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze,String) End If If (Original_ezaWP_Aussenhandelsstatistik_Versendungsland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(335).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(335).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = CType(Original_ezaWP_Aussenhandelsstatistik_Versendungsland,String) End If If (Original_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(337).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(337).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = CType(Original_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland,String) End If If (Original_ezaWP_Aussenhandelsstatistik_Bestimmungsland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(339).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(339).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = CType(Original_ezaWP_Aussenhandelsstatistik_Bestimmungsland,String) End If If (Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(341).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(341).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = CType(Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode,String) End If If (Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(343).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(343).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = CType(Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt,String) End If If (Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(345).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(345).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = CType(Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung,String) End If If (Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(347).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(347).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = CType(Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft,String) End If If (Original_ezaWP_Aussenhandelsstatistik_Statistikstatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(349).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(349).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = CType(Original_ezaWP_Aussenhandelsstatistik_Statistikstatus,String) End If Me.Adapter.UpdateCommand.Parameters(351).Value = CType(ezaWP_Id,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 ezaWP_EzaId As Integer, _ ByVal ezaWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Artikelnummer As String, _ ByVal ezaWP_WarennummerEZT As String, _ ByVal ezaWP_WarennummerZusatzCode1 As String, _ ByVal ezaWP_WarennummerZusatzCode2 As String, _ ByVal ezaWP_WarennummerZusatzCode3 As String, _ ByVal ezaWP_WarennummerZusatzCode4 As String, _ ByVal ezaWP_WarennummerZusatzCode5 As String, _ ByVal ezaWP_WarennummerZusatzCode6 As String, _ ByVal ezaWP_WarennummerZusatzCode7 As String, _ ByVal ezaWP_WarennummerZusatzCode8 As String, _ ByVal ezaWP_WarennummerZusatzCode9 As String, _ ByVal ezaWP_WarennummerZusatzCode10 As String, _ ByVal ezaWP_Warennummerzusatz1 As String, _ ByVal ezaWP_Warennummerzusatz2 As String, _ ByVal ezaWP_Warenbezeichnung As String, _ ByVal ezaWP_VerfahrensCodeVorangegangenesVerfahren As String, _ ByVal ezaWP_AbgabensteuerungKz As String, _ ByVal ezaWP_EUCode As String, _ ByVal ezaWP_UrsprungslandCode As String, _ ByVal ezaWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_AHStatMenge As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_AHStatMengeMasseinheit As String, _ ByVal ezaWP_AHStatMengeQualifier As String, _ ByVal ezaWP_KostenEUSt As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_AHStatWert As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_PackstueckAnzahl As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_PackstueckArt As String, _ ByVal ezaWP_PackstueckZeichen As String, _ ByVal ezaWP_Warenmenge1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit1 As String, _ ByVal ezaWP_WarenQualifier1 As String, _ ByVal ezaWP_Warenmenge2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit2 As String, _ ByVal ezaWP_WarenQualifier2 As String, _ ByVal ezaWP_Warenmenge3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit3 As String, _ ByVal ezaWP_WarenQualifier3 As String, _ ByVal ezaWP_Warenmenge4 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit4 As String, _ ByVal ezaWP_WarenQualifier4 As String, _ ByVal ezaWP_Warenmenge5 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenMasseinheit5 As String, _ ByVal ezaWP_WarenQualifier5 As String, _ ByVal ezaWP_BeguenstigungBenatragtCode As String, _ ByVal ezaWP_Kentigentnummer1 As String, _ ByVal ezaWP_Kentigentnummer2 As String, _ ByVal ezaWP_PositionsZusatz As String, _ ByVal ezaWP_AHStatWertManuellKZ As String, _ ByVal ezaWP_Artikelpreis As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_ArtikelpreisWaehrung As String, _ ByVal ezaWP_OrtVerbringens As String, _ ByVal ezaWP_AbflughafenIATACode As String, _ ByVal ezaWP_WarenmengeAVUVZugang As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_WarenmengeAVUVZugangMasseinheit As String, _ ByVal ezaWP_WarenmengeAVUVZugangMasseinheitQualifier As String, _ ByVal ezaWP_Sachbereich As String, _ ByVal ezaWP_BedingungCode As String, _ ByVal ezaWP_VeredelungWertsteigerung As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_TabakSteuerzeichenID As String, _ ByVal ezaWP_GehaltsAngabenArtCode1 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_GehaltsAngabenArtCode2 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_GehaltsAngabenArtCode3 As String, _ ByVal ezaWP_GehaltsAngabenGradProzent3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BeguenstigungsMengeMenge As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BeguenstigungsMengeMasseinheitCode As String, _ ByVal ezaWP_BeguenstigungsMengeQualifier As String, _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode1 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode2 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_Abgabenminderung_AbgabengruppeCode3 As String, _ ByVal ezaWP_Abgabenminderung_Minderungsbetrag3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_Wert1 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode1 As String, _ ByVal ezaWP_BesondereWertangabe_Wert2 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode2 As String, _ ByVal ezaWP_BesondereWertangabe_Wert3 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode3 As String, _ ByVal ezaWP_BesondereWertangabe_Wert4 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode4 As String, _ ByVal ezaWP_BesondereWertangabe_Wert5 As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_BesondereWertangabe_PreisartCode5 As String, _ ByVal ezaWP_VZAStatus As String, _ ByVal ezaWP_EGZStatus As String, _ ByVal ezaWP_DV1Status As String, _ ByVal ezaWP_AnmeldeArt As String, _ ByVal ezaWP_BefundDatum As Global.System.Nullable(Of Date), _ ByVal ezaWP_AnmelderAdressCodeEORI As String, _ ByVal ezaWP_Zollverfahren As String, _ ByVal ezaWP_AbrechnungszollstelleCode As String, _ ByVal ezaWP_SachbereichCode As String, _ ByVal ezaWP_RegistriernummerZA As String, _ ByVal ezaWP_AnmeldeVErfahren As String, _ ByVal ezaWP_Bewilligungsnummer As String, _ ByVal ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte As String, _ ByVal ezaWP_Zollwert As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_LuftfrachtkostenGesamt As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_IATAKursKz As String, _ ByVal ezaWP_LuftfrachtkostenGesamtWaehrung As String, _ ByVal ezaWP_KursVereinbartKz As String, _ ByVal ezaWP_KursBetragVereinbart As Global.System.Nullable(Of Decimal), _ ByVal ezaWP_KursDatum As Global.System.Nullable(Of Date), _ ByVal ezaWP_Aussenhandelsstatistik_VerkehrszweigInland As String, _ ByVal ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze As String, _ ByVal ezaWP_Aussenhandelsstatistik_Versendungsland As String, _ ByVal ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland As String, _ ByVal ezaWP_Aussenhandelsstatistik_Bestimmungsland As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt As String, _ ByVal ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung As String, _ ByVal ezaWP_Aussenhandelsstatistik_ArtGeschaeft As String, _ ByVal ezaWP_Aussenhandelsstatistik_Statistikstatus As String, _ ByVal Original_ezaWP_Id As Integer, _ ByVal Original_ezaWP_EzaId As Integer, _ ByVal Original_ezaWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Artikelnummer As String, _ ByVal Original_ezaWP_WarennummerEZT As String, _ ByVal Original_ezaWP_WarennummerZusatzCode1 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode2 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode3 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode4 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode5 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode6 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode7 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode8 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode9 As String, _ ByVal Original_ezaWP_WarennummerZusatzCode10 As String, _ ByVal Original_ezaWP_Warennummerzusatz1 As String, _ ByVal Original_ezaWP_Warennummerzusatz2 As String, _ ByVal Original_ezaWP_Warenbezeichnung As String, _ ByVal Original_ezaWP_VerfahrensCodeVorangegangenesVerfahren As String, _ ByVal Original_ezaWP_AbgabensteuerungKz As String, _ ByVal Original_ezaWP_EUCode As String, _ ByVal Original_ezaWP_UrsprungslandCode As String, _ ByVal Original_ezaWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_AHStatMenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_AHStatMengeMasseinheit As String, _ ByVal Original_ezaWP_AHStatMengeQualifier As String, _ ByVal Original_ezaWP_KostenEUSt As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_AHStatWert As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_PackstueckAnzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_PackstueckArt As String, _ ByVal Original_ezaWP_PackstueckZeichen As String, _ ByVal Original_ezaWP_Warenmenge1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit1 As String, _ ByVal Original_ezaWP_WarenQualifier1 As String, _ ByVal Original_ezaWP_Warenmenge2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit2 As String, _ ByVal Original_ezaWP_WarenQualifier2 As String, _ ByVal Original_ezaWP_Warenmenge3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit3 As String, _ ByVal Original_ezaWP_WarenQualifier3 As String, _ ByVal Original_ezaWP_Warenmenge4 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit4 As String, _ ByVal Original_ezaWP_WarenQualifier4 As String, _ ByVal Original_ezaWP_Warenmenge5 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenMasseinheit5 As String, _ ByVal Original_ezaWP_WarenQualifier5 As String, _ ByVal Original_ezaWP_BeguenstigungBenatragtCode As String, _ ByVal Original_ezaWP_Kentigentnummer1 As String, _ ByVal Original_ezaWP_Kentigentnummer2 As String, _ ByVal Original_ezaWP_PositionsZusatz As String, _ ByVal Original_ezaWP_AHStatWertManuellKZ As String, _ ByVal Original_ezaWP_Artikelpreis As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_ArtikelpreisWaehrung As String, _ ByVal Original_ezaWP_OrtVerbringens As String, _ ByVal Original_ezaWP_AbflughafenIATACode As String, _ ByVal Original_ezaWP_WarenmengeAVUVZugang As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_WarenmengeAVUVZugangMasseinheit As String, _ ByVal Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier As String, _ ByVal Original_ezaWP_Sachbereich As String, _ ByVal Original_ezaWP_BedingungCode As String, _ ByVal Original_ezaWP_VeredelungWertsteigerung As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_TabakSteuerzeichenID As String, _ ByVal Original_ezaWP_GehaltsAngabenArtCode1 As String, _ ByVal Original_ezaWP_GehaltsAngabenGradProzent1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_GehaltsAngabenArtCode2 As String, _ ByVal Original_ezaWP_GehaltsAngabenGradProzent2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_GehaltsAngabenArtCode3 As String, _ ByVal Original_ezaWP_GehaltsAngabenGradProzent3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BeguenstigungsMengeMenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BeguenstigungsMengeMasseinheitCode As String, _ ByVal Original_ezaWP_BeguenstigungsMengeQualifier As String, _ ByVal Original_ezaWP_Abgabenminderung_AbgabengruppeCode1 As String, _ ByVal Original_ezaWP_Abgabenminderung_Minderungsbetrag1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Abgabenminderung_AbgabengruppeCode2 As String, _ ByVal Original_ezaWP_Abgabenminderung_Minderungsbetrag2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_Abgabenminderung_AbgabengruppeCode3 As String, _ ByVal Original_ezaWP_Abgabenminderung_Minderungsbetrag3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_Wert1 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode1 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert2 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode2 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert3 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode3 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert4 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode4 As String, _ ByVal Original_ezaWP_BesondereWertangabe_Wert5 As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_BesondereWertangabe_PreisartCode5 As String, _ ByVal Original_ezaWP_VZAStatus As String, _ ByVal Original_ezaWP_EGZStatus As String, _ ByVal Original_ezaWP_DV1Status As String, _ ByVal Original_ezaWP_AnmeldeArt As String, _ ByVal Original_ezaWP_BefundDatum As Global.System.Nullable(Of Date), _ ByVal Original_ezaWP_AnmelderAdressCodeEORI As String, _ ByVal Original_ezaWP_Zollverfahren As String, _ ByVal Original_ezaWP_AbrechnungszollstelleCode As String, _ ByVal Original_ezaWP_SachbereichCode As String, _ ByVal Original_ezaWP_RegistriernummerZA As String, _ ByVal Original_ezaWP_AnmeldeVErfahren As String, _ ByVal Original_ezaWP_Bewilligungsnummer As String, _ ByVal Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte As String, _ ByVal Original_ezaWP_Zollwert As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_LuftfrachtkostenGesamt As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_IATAKursKz As String, _ ByVal Original_ezaWP_LuftfrachtkostenGesamtWaehrung As String, _ ByVal Original_ezaWP_KursVereinbartKz As String, _ ByVal Original_ezaWP_KursBetragVereinbart As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWP_KursDatum As Global.System.Nullable(Of Date), _ ByVal Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_Versendungsland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_Bestimmungsland As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft As String, _ ByVal Original_ezaWP_Aussenhandelsstatistik_Statistikstatus As String) As Integer Return Me.Update(ezaWP_EzaId, ezaWP_PositionsNummer, ezaWP_Artikelnummer, ezaWP_WarennummerEZT, ezaWP_WarennummerZusatzCode1, ezaWP_WarennummerZusatzCode2, ezaWP_WarennummerZusatzCode3, ezaWP_WarennummerZusatzCode4, ezaWP_WarennummerZusatzCode5, ezaWP_WarennummerZusatzCode6, ezaWP_WarennummerZusatzCode7, ezaWP_WarennummerZusatzCode8, ezaWP_WarennummerZusatzCode9, ezaWP_WarennummerZusatzCode10, ezaWP_Warennummerzusatz1, ezaWP_Warennummerzusatz2, ezaWP_Warenbezeichnung, ezaWP_VerfahrensCodeVorangegangenesVerfahren, ezaWP_AbgabensteuerungKz, ezaWP_EUCode, ezaWP_UrsprungslandCode, ezaWP_Rohmasse, ezaWP_Eigenmasse, ezaWP_AHStatMenge, ezaWP_AHStatMengeMasseinheit, ezaWP_AHStatMengeQualifier, ezaWP_KostenEUSt, ezaWP_AHStatWert, ezaWP_PackstueckAnzahl, ezaWP_PackstueckArt, ezaWP_PackstueckZeichen, ezaWP_Warenmenge1, ezaWP_WarenMasseinheit1, ezaWP_WarenQualifier1, ezaWP_Warenmenge2, ezaWP_WarenMasseinheit2, ezaWP_WarenQualifier2, ezaWP_Warenmenge3, ezaWP_WarenMasseinheit3, ezaWP_WarenQualifier3, ezaWP_Warenmenge4, ezaWP_WarenMasseinheit4, ezaWP_WarenQualifier4, ezaWP_Warenmenge5, ezaWP_WarenMasseinheit5, ezaWP_WarenQualifier5, ezaWP_BeguenstigungBenatragtCode, ezaWP_Kentigentnummer1, ezaWP_Kentigentnummer2, ezaWP_PositionsZusatz, ezaWP_AHStatWertManuellKZ, ezaWP_Artikelpreis, ezaWP_ArtikelpreisWaehrung, ezaWP_OrtVerbringens, ezaWP_AbflughafenIATACode, ezaWP_WarenmengeAVUVZugang, ezaWP_WarenmengeAVUVZugangMasseinheit, ezaWP_WarenmengeAVUVZugangMasseinheitQualifier, ezaWP_Sachbereich, ezaWP_BedingungCode, ezaWP_VeredelungWertsteigerung, ezaWP_TabakSteuerzeichenID, ezaWP_GehaltsAngabenArtCode1, ezaWP_GehaltsAngabenGradProzent1, ezaWP_GehaltsAngabenArtCode2, ezaWP_GehaltsAngabenGradProzent2, ezaWP_GehaltsAngabenArtCode3, ezaWP_GehaltsAngabenGradProzent3, ezaWP_BeguenstigungsMengeMenge, ezaWP_BeguenstigungsMengeMasseinheitCode, ezaWP_BeguenstigungsMengeQualifier, ezaWP_Abgabenminderung_AbgabengruppeCode1, ezaWP_Abgabenminderung_Minderungsbetrag1, ezaWP_Abgabenminderung_AbgabengruppeCode2, ezaWP_Abgabenminderung_Minderungsbetrag2, ezaWP_Abgabenminderung_AbgabengruppeCode3, ezaWP_Abgabenminderung_Minderungsbetrag3, ezaWP_BesondereWertangabe_Wert1, ezaWP_BesondereWertangabe_PreisartCode1, ezaWP_BesondereWertangabe_Wert2, ezaWP_BesondereWertangabe_PreisartCode2, ezaWP_BesondereWertangabe_Wert3, ezaWP_BesondereWertangabe_PreisartCode3, ezaWP_BesondereWertangabe_Wert4, ezaWP_BesondereWertangabe_PreisartCode4, ezaWP_BesondereWertangabe_Wert5, ezaWP_BesondereWertangabe_PreisartCode5, ezaWP_VZAStatus, ezaWP_EGZStatus, ezaWP_DV1Status, ezaWP_AnmeldeArt, ezaWP_BefundDatum, ezaWP_AnmelderAdressCodeEORI, ezaWP_Zollverfahren, ezaWP_AbrechnungszollstelleCode, ezaWP_SachbereichCode, ezaWP_RegistriernummerZA, ezaWP_AnmeldeVErfahren, ezaWP_Bewilligungsnummer, ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte, ezaWP_Zollwert, ezaWP_LuftfrachtkostenGesamt, ezaWP_IATAKursKz, ezaWP_LuftfrachtkostenGesamtWaehrung, ezaWP_KursVereinbartKz, ezaWP_KursBetragVereinbart, ezaWP_KursDatum, ezaWP_Aussenhandelsstatistik_VerkehrszweigInland, ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze, ezaWP_Aussenhandelsstatistik_Versendungsland, ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland, ezaWP_Aussenhandelsstatistik_Bestimmungsland, ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode, ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt, ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung, ezaWP_Aussenhandelsstatistik_ArtGeschaeft, ezaWP_Aussenhandelsstatistik_Statistikstatus, Original_ezaWP_Id, Original_ezaWP_EzaId, Original_ezaWP_PositionsNummer, Original_ezaWP_Artikelnummer, Original_ezaWP_WarennummerEZT, Original_ezaWP_WarennummerZusatzCode1, Original_ezaWP_WarennummerZusatzCode2, Original_ezaWP_WarennummerZusatzCode3, Original_ezaWP_WarennummerZusatzCode4, Original_ezaWP_WarennummerZusatzCode5, Original_ezaWP_WarennummerZusatzCode6, Original_ezaWP_WarennummerZusatzCode7, Original_ezaWP_WarennummerZusatzCode8, Original_ezaWP_WarennummerZusatzCode9, Original_ezaWP_WarennummerZusatzCode10, Original_ezaWP_Warennummerzusatz1, Original_ezaWP_Warennummerzusatz2, Original_ezaWP_Warenbezeichnung, Original_ezaWP_VerfahrensCodeVorangegangenesVerfahren, Original_ezaWP_AbgabensteuerungKz, Original_ezaWP_EUCode, Original_ezaWP_UrsprungslandCode, Original_ezaWP_Rohmasse, Original_ezaWP_Eigenmasse, Original_ezaWP_AHStatMenge, Original_ezaWP_AHStatMengeMasseinheit, Original_ezaWP_AHStatMengeQualifier, Original_ezaWP_KostenEUSt, Original_ezaWP_AHStatWert, Original_ezaWP_PackstueckAnzahl, Original_ezaWP_PackstueckArt, Original_ezaWP_PackstueckZeichen, Original_ezaWP_Warenmenge1, Original_ezaWP_WarenMasseinheit1, Original_ezaWP_WarenQualifier1, Original_ezaWP_Warenmenge2, Original_ezaWP_WarenMasseinheit2, Original_ezaWP_WarenQualifier2, Original_ezaWP_Warenmenge3, Original_ezaWP_WarenMasseinheit3, Original_ezaWP_WarenQualifier3, Original_ezaWP_Warenmenge4, Original_ezaWP_WarenMasseinheit4, Original_ezaWP_WarenQualifier4, Original_ezaWP_Warenmenge5, Original_ezaWP_WarenMasseinheit5, Original_ezaWP_WarenQualifier5, Original_ezaWP_BeguenstigungBenatragtCode, Original_ezaWP_Kentigentnummer1, Original_ezaWP_Kentigentnummer2, Original_ezaWP_PositionsZusatz, Original_ezaWP_AHStatWertManuellKZ, Original_ezaWP_Artikelpreis, Original_ezaWP_ArtikelpreisWaehrung, Original_ezaWP_OrtVerbringens, Original_ezaWP_AbflughafenIATACode, Original_ezaWP_WarenmengeAVUVZugang, Original_ezaWP_WarenmengeAVUVZugangMasseinheit, Original_ezaWP_WarenmengeAVUVZugangMasseinheitQualifier, Original_ezaWP_Sachbereich, Original_ezaWP_BedingungCode, Original_ezaWP_VeredelungWertsteigerung, Original_ezaWP_TabakSteuerzeichenID, Original_ezaWP_GehaltsAngabenArtCode1, Original_ezaWP_GehaltsAngabenGradProzent1, Original_ezaWP_GehaltsAngabenArtCode2, Original_ezaWP_GehaltsAngabenGradProzent2, Original_ezaWP_GehaltsAngabenArtCode3, Original_ezaWP_GehaltsAngabenGradProzent3, Original_ezaWP_BeguenstigungsMengeMenge, Original_ezaWP_BeguenstigungsMengeMasseinheitCode, Original_ezaWP_BeguenstigungsMengeQualifier, Original_ezaWP_Abgabenminderung_AbgabengruppeCode1, Original_ezaWP_Abgabenminderung_Minderungsbetrag1, Original_ezaWP_Abgabenminderung_AbgabengruppeCode2, Original_ezaWP_Abgabenminderung_Minderungsbetrag2, Original_ezaWP_Abgabenminderung_AbgabengruppeCode3, Original_ezaWP_Abgabenminderung_Minderungsbetrag3, Original_ezaWP_BesondereWertangabe_Wert1, Original_ezaWP_BesondereWertangabe_PreisartCode1, Original_ezaWP_BesondereWertangabe_Wert2, Original_ezaWP_BesondereWertangabe_PreisartCode2, Original_ezaWP_BesondereWertangabe_Wert3, Original_ezaWP_BesondereWertangabe_PreisartCode3, Original_ezaWP_BesondereWertangabe_Wert4, Original_ezaWP_BesondereWertangabe_PreisartCode4, Original_ezaWP_BesondereWertangabe_Wert5, Original_ezaWP_BesondereWertangabe_PreisartCode5, Original_ezaWP_VZAStatus, Original_ezaWP_EGZStatus, Original_ezaWP_DV1Status, Original_ezaWP_AnmeldeArt, Original_ezaWP_BefundDatum, Original_ezaWP_AnmelderAdressCodeEORI, Original_ezaWP_Zollverfahren, Original_ezaWP_AbrechnungszollstelleCode, Original_ezaWP_SachbereichCode, Original_ezaWP_RegistriernummerZA, Original_ezaWP_AnmeldeVErfahren, Original_ezaWP_Bewilligungsnummer, Original_ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte, Original_ezaWP_Zollwert, Original_ezaWP_LuftfrachtkostenGesamt, Original_ezaWP_IATAKursKz, Original_ezaWP_LuftfrachtkostenGesamtWaehrung, Original_ezaWP_KursVereinbartKz, Original_ezaWP_KursBetragVereinbart, Original_ezaWP_KursDatum, Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigInland, Original_ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze, Original_ezaWP_Aussenhandelsstatistik_Versendungsland, Original_ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland, Original_ezaWP_Aussenhandelsstatistik_Bestimmungsland, Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode, Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt, Original_ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung, Original_ezaWP_Aussenhandelsstatistik_ArtGeschaeft, Original_ezaWP_Aussenhandelsstatistik_Statistikstatus, Original_ezaWP_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter 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 = "tblDakosy_EZA_WarenpositionSonderfalldaten" tableMapping.ColumnMappings.Add("ezaWpSfd_Id", "ezaWpSfd_Id") tableMapping.ColumnMappings.Add("ezaWpSfd_EzaWpId", "ezaWpSfd_EzaWpId") tableMapping.ColumnMappings.Add("ezaWpSfd_EzaId", "ezaWpSfd_EzaId") tableMapping.ColumnMappings.Add("ezaWpSfd_SonderabgabenGruppeCode", "ezaWpSfd_SonderabgabenGruppeCode") tableMapping.ColumnMappings.Add("ezaWpSfd_AnwendungArt", "ezaWpSfd_AnwendungArt") tableMapping.ColumnMappings.Add("ezaWpSfd_SatzBetragFaktor", "ezaWpSfd_SatzBetragFaktor") 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].[tblDakosy_EZA_WarenpositionSonderfalldaten] WHERE (([ezaWpSfd_"& _ "Id] = @Original_ezaWpSfd_Id) AND ([ezaWpSfd_EzaWpId] = @Original_ezaWpSfd_EzaWpI"& _ "d) AND ([ezaWpSfd_EzaId] = @Original_ezaWpSfd_EzaId) AND ((@IsNull_ezaWpSfd_Sond"& _ "erabgabenGruppeCode = 1 AND [ezaWpSfd_SonderabgabenGruppeCode] IS NULL) OR ([eza"& _ "WpSfd_SonderabgabenGruppeCode] = @Original_ezaWpSfd_SonderabgabenGruppeCode)) AN"& _ "D ((@IsNull_ezaWpSfd_AnwendungArt = 1 AND [ezaWpSfd_AnwendungArt] IS NULL) OR (["& _ "ezaWpSfd_AnwendungArt] = @Original_ezaWpSfd_AnwendungArt)) AND ((@IsNull_ezaWpSf"& _ "d_SatzBetragFaktor = 1 AND [ezaWpSfd_SatzBetragFaktor] IS NULL) OR ([ezaWpSfd_Sa"& _ "tzBetragFaktor] = @Original_ezaWpSfd_SatzBetragFaktor)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_EzaWpId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_EzaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpSfd_AnwendungArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_AnwendungArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_AnwendungArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_AnwendungArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpSfd_SatzBetragFaktor", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_SatzBetragFaktor", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_SatzBetragFaktor", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 5, "ezaWpSfd_SatzBetragFaktor", 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].[tblDakosy_EZA_WarenpositionSonderfalldaten] ([ezaWpSfd_EzaWpId"& _ "], [ezaWpSfd_EzaId], [ezaWpSfd_SonderabgabenGruppeCode], [ezaWpSfd_AnwendungArt]"& _ ", [ezaWpSfd_SatzBetragFaktor]) VALUES (@ezaWpSfd_EzaWpId, @ezaWpSfd_EzaId, @ezaW"& _ "pSfd_SonderabgabenGruppeCode, @ezaWpSfd_AnwendungArt, @ezaWpSfd_SatzBetragFaktor"& _ ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaWpSfd_Id, ezaWpSfd_EzaWpId, ezaWpSfd_EzaId, ezaWpSfd_Sonderabgaben"& _ "GruppeCode, ezaWpSfd_AnwendungArt, ezaWpSfd_SatzBetragFaktor FROM tblDakosy_EZA_"& _ "WarenpositionSonderfalldaten WHERE (ezaWpSfd_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_EzaWpId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_EzaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_AnwendungArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_AnwendungArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_SatzBetragFaktor", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 5, "ezaWpSfd_SatzBetragFaktor", 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].[tblDakosy_EZA_WarenpositionSonderfalldaten] SET [ezaWpSfd_EzaWpId] "& _ "= @ezaWpSfd_EzaWpId, [ezaWpSfd_EzaId] = @ezaWpSfd_EzaId, [ezaWpSfd_Sonderabgaben"& _ "GruppeCode] = @ezaWpSfd_SonderabgabenGruppeCode, [ezaWpSfd_AnwendungArt] = @ezaW"& _ "pSfd_AnwendungArt, [ezaWpSfd_SatzBetragFaktor] = @ezaWpSfd_SatzBetragFaktor WHER"& _ "E (([ezaWpSfd_Id] = @Original_ezaWpSfd_Id) AND ([ezaWpSfd_EzaWpId] = @Original_e"& _ "zaWpSfd_EzaWpId) AND ([ezaWpSfd_EzaId] = @Original_ezaWpSfd_EzaId) AND ((@IsNull"& _ "_ezaWpSfd_SonderabgabenGruppeCode = 1 AND [ezaWpSfd_SonderabgabenGruppeCode] IS "& _ "NULL) OR ([ezaWpSfd_SonderabgabenGruppeCode] = @Original_ezaWpSfd_SonderabgabenG"& _ "ruppeCode)) AND ((@IsNull_ezaWpSfd_AnwendungArt = 1 AND [ezaWpSfd_AnwendungArt] "& _ "IS NULL) OR ([ezaWpSfd_AnwendungArt] = @Original_ezaWpSfd_AnwendungArt)) AND ((@"& _ "IsNull_ezaWpSfd_SatzBetragFaktor = 1 AND [ezaWpSfd_SatzBetragFaktor] IS NULL) OR"& _ " ([ezaWpSfd_SatzBetragFaktor] = @Original_ezaWpSfd_SatzBetragFaktor)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ "ezaWpSfd_Id, ezaWpSfd_EzaWpId, ezaWpSfd_EzaId, ezaWpSfd_SonderabgabenGruppeCode,"& _ " ezaWpSfd_AnwendungArt, ezaWpSfd_SatzBetragFaktor FROM tblDakosy_EZA_Warenpositi"& _ "onSonderfalldaten WHERE (ezaWpSfd_Id = @ezaWpSfd_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_EzaWpId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_EzaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_AnwendungArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_AnwendungArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_SatzBetragFaktor", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 5, "ezaWpSfd_SatzBetragFaktor", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_EzaWpId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_EzaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_SonderabgabenGruppeCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpSfd_AnwendungArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_AnwendungArt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_AnwendungArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_AnwendungArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpSfd_SatzBetragFaktor", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_SatzBetragFaktor", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpSfd_SatzBetragFaktor", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 5, "ezaWpSfd_SatzBetragFaktor", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpSfd_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpSfd_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezaWpSfd_Id, ezaWpSfd_EzaWpId, ezaWpSfd_EzaId, ezaWpSfd_SonderabgabenGrupp"& _ "eCode, ezaWpSfd_AnwendungArt, ezaWpSfd_SatzBetragFaktor FROM dbo.tblDakosy_EZA_W"& _ "arenpositionSonderfalldaten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionSonderfalldatenDataTable) 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 VERAGDataSet.tblDakosy_EZA_WarenpositionSonderfalldatenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionSonderfalldatenDataTable = New VERAGDataSet.tblDakosy_EZA_WarenpositionSonderfalldatenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionSonderfalldatenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_EZA_WarenpositionSonderfalldaten") 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_ezaWpSfd_Id As Integer, ByVal Original_ezaWpSfd_EzaWpId As Integer, ByVal Original_ezaWpSfd_EzaId As Integer, ByVal Original_ezaWpSfd_SonderabgabenGruppeCode As String, ByVal Original_ezaWpSfd_AnwendungArt As String, ByVal Original_ezaWpSfd_SatzBetragFaktor As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezaWpSfd_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezaWpSfd_EzaWpId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ezaWpSfd_EzaId,Integer) If (Original_ezaWpSfd_SonderabgabenGruppeCode 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_ezaWpSfd_SonderabgabenGruppeCode,String) End If If (Original_ezaWpSfd_AnwendungArt 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_ezaWpSfd_AnwendungArt,String) End If If (Original_ezaWpSfd_SatzBetragFaktor.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ezaWpSfd_SatzBetragFaktor.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).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 ezaWpSfd_EzaWpId As Integer, ByVal ezaWpSfd_EzaId As Integer, ByVal ezaWpSfd_SonderabgabenGruppeCode As String, ByVal ezaWpSfd_AnwendungArt As String, ByVal ezaWpSfd_SatzBetragFaktor As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezaWpSfd_EzaWpId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezaWpSfd_EzaId,Integer) If (ezaWpSfd_SonderabgabenGruppeCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezaWpSfd_SonderabgabenGruppeCode,String) End If If (ezaWpSfd_AnwendungArt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezaWpSfd_AnwendungArt,String) End If If (ezaWpSfd_SatzBetragFaktor.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(ezaWpSfd_SatzBetragFaktor.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(4).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 ezaWpSfd_EzaWpId As Integer, ByVal ezaWpSfd_EzaId As Integer, ByVal ezaWpSfd_SonderabgabenGruppeCode As String, ByVal ezaWpSfd_AnwendungArt As String, ByVal ezaWpSfd_SatzBetragFaktor As Global.System.Nullable(Of Decimal), ByVal Original_ezaWpSfd_Id As Integer, ByVal Original_ezaWpSfd_EzaWpId As Integer, ByVal Original_ezaWpSfd_EzaId As Integer, ByVal Original_ezaWpSfd_SonderabgabenGruppeCode As String, ByVal Original_ezaWpSfd_AnwendungArt As String, ByVal Original_ezaWpSfd_SatzBetragFaktor As Global.System.Nullable(Of Decimal), ByVal ezaWpSfd_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezaWpSfd_EzaWpId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezaWpSfd_EzaId,Integer) If (ezaWpSfd_SonderabgabenGruppeCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezaWpSfd_SonderabgabenGruppeCode,String) End If If (ezaWpSfd_AnwendungArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezaWpSfd_AnwendungArt,String) End If If (ezaWpSfd_SatzBetragFaktor.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ezaWpSfd_SatzBetragFaktor.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_ezaWpSfd_Id,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ezaWpSfd_EzaWpId,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ezaWpSfd_EzaId,Integer) If (Original_ezaWpSfd_SonderabgabenGruppeCode 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_ezaWpSfd_SonderabgabenGruppeCode,String) End If If (Original_ezaWpSfd_AnwendungArt 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_ezaWpSfd_AnwendungArt,String) End If If (Original_ezaWpSfd_SatzBetragFaktor.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ezaWpSfd_SatzBetragFaktor.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ezaWpSfd_Id,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 ezaWpSfd_EzaWpId As Integer, ByVal ezaWpSfd_EzaId As Integer, ByVal ezaWpSfd_SonderabgabenGruppeCode As String, ByVal ezaWpSfd_AnwendungArt As String, ByVal ezaWpSfd_SatzBetragFaktor As Global.System.Nullable(Of Decimal), ByVal Original_ezaWpSfd_Id As Integer, ByVal Original_ezaWpSfd_EzaWpId As Integer, ByVal Original_ezaWpSfd_EzaId As Integer, ByVal Original_ezaWpSfd_SonderabgabenGruppeCode As String, ByVal Original_ezaWpSfd_AnwendungArt As String, ByVal Original_ezaWpSfd_SatzBetragFaktor As Global.System.Nullable(Of Decimal)) As Integer Return Me.Update(ezaWpSfd_EzaWpId, ezaWpSfd_EzaId, ezaWpSfd_SonderabgabenGruppeCode, ezaWpSfd_AnwendungArt, ezaWpSfd_SatzBetragFaktor, Original_ezaWpSfd_Id, Original_ezaWpSfd_EzaWpId, Original_ezaWpSfd_EzaId, Original_ezaWpSfd_SonderabgabenGruppeCode, Original_ezaWpSfd_AnwendungArt, Original_ezaWpSfd_SatzBetragFaktor, Original_ezaWpSfd_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_EZA_WarenpositionUnterlagenTableAdapter 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 = "tblDakosy_EZA_WarenpositionUnterlagen" tableMapping.ColumnMappings.Add("ezaWpUl_Id", "ezaWpUl_Id") tableMapping.ColumnMappings.Add("ezaWpUl_EzaWpId", "ezaWpUl_EzaWpId") tableMapping.ColumnMappings.Add("ezaWpUl_EzaId", "ezaWpUl_EzaId") tableMapping.ColumnMappings.Add("ezaWpUl_Bereich", "ezaWpUl_Bereich") tableMapping.ColumnMappings.Add("ezaWpUl_Art", "ezaWpUl_Art") tableMapping.ColumnMappings.Add("ezaWpUl_Nummer", "ezaWpUl_Nummer") tableMapping.ColumnMappings.Add("ezaWpUl_DatumAusstellung", "ezaWpUl_DatumAusstellung") tableMapping.ColumnMappings.Add("ezaWpUl_VorlageKz", "ezaWpUl_VorlageKz") tableMapping.ColumnMappings.Add("ezaWpUl_AbschreibungsMenge", "ezaWpUl_AbschreibungsMenge") tableMapping.ColumnMappings.Add("ezaWpUl_AbschreibungsMengeMasseinheit", "ezaWpUl_AbschreibungsMengeMasseinheit") tableMapping.ColumnMappings.Add("ezaWpUl_AbschreibungsMengeMasseinheitQualifier", "ezaWpUl_AbschreibungsMengeMasseinheitQualifier") 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].[tblDakosy_EZA_WarenpositionUnterlagen] WHERE (([ezaWpUl_Id] = "& _ "@Original_ezaWpUl_Id) AND ([ezaWpUl_EzaWpId] = @Original_ezaWpUl_EzaWpId) AND (["& _ "ezaWpUl_EzaId] = @Original_ezaWpUl_EzaId) AND ((@IsNull_ezaWpUl_Bereich = 1 AND "& _ "[ezaWpUl_Bereich] IS NULL) OR ([ezaWpUl_Bereich] = @Original_ezaWpUl_Bereich)) A"& _ "ND ((@IsNull_ezaWpUl_Art = 1 AND [ezaWpUl_Art] IS NULL) OR ([ezaWpUl_Art] = @Ori"& _ "ginal_ezaWpUl_Art)) AND ((@IsNull_ezaWpUl_Nummer = 1 AND [ezaWpUl_Nummer] IS NUL"& _ "L) OR ([ezaWpUl_Nummer] = @Original_ezaWpUl_Nummer)) AND ((@IsNull_ezaWpUl_Datum"& _ "Ausstellung = 1 AND [ezaWpUl_DatumAusstellung] IS NULL) OR ([ezaWpUl_DatumAusste"& _ "llung] = @Original_ezaWpUl_DatumAusstellung)) AND ((@IsNull_ezaWpUl_VorlageKz = "& _ "1 AND [ezaWpUl_VorlageKz] IS NULL) OR ([ezaWpUl_VorlageKz] = @Original_ezaWpUl_V"& _ "orlageKz)) AND ((@IsNull_ezaWpUl_AbschreibungsMenge = 1 AND [ezaWpUl_Abschreibun"& _ "gsMenge] IS NULL) OR ([ezaWpUl_AbschreibungsMenge] = @Original_ezaWpUl_Abschreib"& _ "ungsMenge)) AND ((@IsNull_ezaWpUl_AbschreibungsMengeMasseinheit = 1 AND [ezaWpUl"& _ "_AbschreibungsMengeMasseinheit] IS NULL) OR ([ezaWpUl_AbschreibungsMengeMasseinh"& _ "eit] = @Original_ezaWpUl_AbschreibungsMengeMasseinheit)) AND ((@IsNull_ezaWpUl_A"& _ "bschreibungsMengeMasseinheitQualifier = 1 AND [ezaWpUl_AbschreibungsMengeMassein"& _ "heitQualifier] IS NULL) OR ([ezaWpUl_AbschreibungsMengeMasseinheitQualifier] = @"& _ "Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_EzaWpId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_EzaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_Bereich", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Bereich", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_Bereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Bereich", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_Art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Art", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_Nummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Nummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_Nummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Nummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_DatumAusstellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_VorlageKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_VorlageKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_VorlageKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_VorlageKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_AbschreibungsMenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_AbschreibungsMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWpUl_AbschreibungsMenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_AbschreibungsMengeMasseinheitQualifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheitQualifier", 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].[tblDakosy_EZA_WarenpositionUnterlagen] ([ezaWpUl_EzaWpId], [ez"& _ "aWpUl_EzaId], [ezaWpUl_Bereich], [ezaWpUl_Art], [ezaWpUl_Nummer], [ezaWpUl_Datum"& _ "Ausstellung], [ezaWpUl_VorlageKz], [ezaWpUl_AbschreibungsMenge], [ezaWpUl_Abschr"& _ "eibungsMengeMasseinheit], [ezaWpUl_AbschreibungsMengeMasseinheitQualifier]) VALU"& _ "ES (@ezaWpUl_EzaWpId, @ezaWpUl_EzaId, @ezaWpUl_Bereich, @ezaWpUl_Art, @ezaWpUl_N"& _ "ummer, @ezaWpUl_DatumAusstellung, @ezaWpUl_VorlageKz, @ezaWpUl_AbschreibungsMeng"& _ "e, @ezaWpUl_AbschreibungsMengeMasseinheit, @ezaWpUl_AbschreibungsMengeMasseinhei"& _ "tQualifier);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaWpUl_Id, ezaWpUl_EzaWpId, ezaWpUl_EzaId, ezaWpUl_Bereich"& _ ", ezaWpUl_Art, ezaWpUl_Nummer, ezaWpUl_DatumAusstellung, ezaWpUl_VorlageKz, ezaW"& _ "pUl_AbschreibungsMenge, ezaWpUl_AbschreibungsMengeMasseinheit, ezaWpUl_Abschreib"& _ "ungsMengeMasseinheitQualifier FROM tblDakosy_EZA_WarenpositionUnterlagen WHERE ("& _ "ezaWpUl_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_EzaWpId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_EzaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_Bereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Bereich", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_Nummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_VorlageKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_VorlageKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_AbschreibungsMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWpUl_AbschreibungsMenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_AbschreibungsMengeMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheitQualifier", 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].[tblDakosy_EZA_WarenpositionUnterlagen] SET [ezaWpUl_EzaWpId] = @eza"& _ "WpUl_EzaWpId, [ezaWpUl_EzaId] = @ezaWpUl_EzaId, [ezaWpUl_Bereich] = @ezaWpUl_Ber"& _ "eich, [ezaWpUl_Art] = @ezaWpUl_Art, [ezaWpUl_Nummer] = @ezaWpUl_Nummer, [ezaWpUl"& _ "_DatumAusstellung] = @ezaWpUl_DatumAusstellung, [ezaWpUl_VorlageKz] = @ezaWpUl_V"& _ "orlageKz, [ezaWpUl_AbschreibungsMenge] = @ezaWpUl_AbschreibungsMenge, [ezaWpUl_A"& _ "bschreibungsMengeMasseinheit] = @ezaWpUl_AbschreibungsMengeMasseinheit, [ezaWpUl"& _ "_AbschreibungsMengeMasseinheitQualifier] = @ezaWpUl_AbschreibungsMengeMasseinhei"& _ "tQualifier WHERE (([ezaWpUl_Id] = @Original_ezaWpUl_Id) AND ([ezaWpUl_EzaWpId] ="& _ " @Original_ezaWpUl_EzaWpId) AND ([ezaWpUl_EzaId] = @Original_ezaWpUl_EzaId) AND "& _ "((@IsNull_ezaWpUl_Bereich = 1 AND [ezaWpUl_Bereich] IS NULL) OR ([ezaWpUl_Bereic"& _ "h] = @Original_ezaWpUl_Bereich)) AND ((@IsNull_ezaWpUl_Art = 1 AND [ezaWpUl_Art]"& _ " IS NULL) OR ([ezaWpUl_Art] = @Original_ezaWpUl_Art)) AND ((@IsNull_ezaWpUl_Numm"& _ "er = 1 AND [ezaWpUl_Nummer] IS NULL) OR ([ezaWpUl_Nummer] = @Original_ezaWpUl_Nu"& _ "mmer)) AND ((@IsNull_ezaWpUl_DatumAusstellung = 1 AND [ezaWpUl_DatumAusstellung]"& _ " IS NULL) OR ([ezaWpUl_DatumAusstellung] = @Original_ezaWpUl_DatumAusstellung)) "& _ "AND ((@IsNull_ezaWpUl_VorlageKz = 1 AND [ezaWpUl_VorlageKz] IS NULL) OR ([ezaWpU"& _ "l_VorlageKz] = @Original_ezaWpUl_VorlageKz)) AND ((@IsNull_ezaWpUl_Abschreibungs"& _ "Menge = 1 AND [ezaWpUl_AbschreibungsMenge] IS NULL) OR ([ezaWpUl_AbschreibungsMe"& _ "nge] = @Original_ezaWpUl_AbschreibungsMenge)) AND ((@IsNull_ezaWpUl_Abschreibung"& _ "sMengeMasseinheit = 1 AND [ezaWpUl_AbschreibungsMengeMasseinheit] IS NULL) OR (["& _ "ezaWpUl_AbschreibungsMengeMasseinheit] = @Original_ezaWpUl_AbschreibungsMengeMas"& _ "seinheit)) AND ((@IsNull_ezaWpUl_AbschreibungsMengeMasseinheitQualifier = 1 AND "& _ "[ezaWpUl_AbschreibungsMengeMasseinheitQualifier] IS NULL) OR ([ezaWpUl_Abschreib"& _ "ungsMengeMasseinheitQualifier] = @Original_ezaWpUl_AbschreibungsMengeMasseinheit"& _ "Qualifier)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaWpUl_Id, ezaWpUl_EzaWpId, ezaWpUl_EzaId, ezaWpUl_Bereic"& _ "h, ezaWpUl_Art, ezaWpUl_Nummer, ezaWpUl_DatumAusstellung, ezaWpUl_VorlageKz, eza"& _ "WpUl_AbschreibungsMenge, ezaWpUl_AbschreibungsMengeMasseinheit, ezaWpUl_Abschrei"& _ "bungsMengeMasseinheitQualifier FROM tblDakosy_EZA_WarenpositionUnterlagen WHERE "& _ "(ezaWpUl_Id = @ezaWpUl_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_EzaWpId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_EzaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_Bereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Bereich", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_Nummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_VorlageKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_VorlageKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_AbschreibungsMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWpUl_AbschreibungsMenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_AbschreibungsMengeMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheitQualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_EzaWpId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_EzaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_Bereich", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Bereich", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_Bereich", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Bereich", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_Art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Art", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_Nummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Nummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_Nummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Nummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_DatumAusstellung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_DatumAusstellung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_DatumAusstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_VorlageKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_VorlageKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_VorlageKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_VorlageKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_AbschreibungsMenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_AbschreibungsMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWpUl_AbschreibungsMenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpUl_AbschreibungsMengeMasseinheitQualifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_AbschreibungsMengeMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpUl_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpUl_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezaWpUl_Id, ezaWpUl_EzaWpId, ezaWpUl_EzaId, ezaWpUl_Bereich, ezaWpUl_Art, "& _ "ezaWpUl_Nummer, ezaWpUl_DatumAusstellung, ezaWpUl_VorlageKz, ezaWpUl_Abschreibun"& _ "gsMenge, ezaWpUl_AbschreibungsMengeMasseinheit, ezaWpUl_AbschreibungsMengeMassei"& _ "nheitQualifier FROM dbo.tblDakosy_EZA_WarenpositionUnterlagen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionUnterlagenDataTable) 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 VERAGDataSet.tblDakosy_EZA_WarenpositionUnterlagenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionUnterlagenDataTable = New VERAGDataSet.tblDakosy_EZA_WarenpositionUnterlagenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionUnterlagenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_EZA_WarenpositionUnterlagen") 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_ezaWpUl_Id As Integer, ByVal Original_ezaWpUl_EzaWpId As Integer, ByVal Original_ezaWpUl_EzaId As Integer, ByVal Original_ezaWpUl_Bereich As String, ByVal Original_ezaWpUl_Art As String, ByVal Original_ezaWpUl_Nummer As String, ByVal Original_ezaWpUl_DatumAusstellung As Global.System.Nullable(Of Date), ByVal Original_ezaWpUl_VorlageKz As String, ByVal Original_ezaWpUl_AbschreibungsMenge As Global.System.Nullable(Of Decimal), ByVal Original_ezaWpUl_AbschreibungsMengeMasseinheit As String, ByVal Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezaWpUl_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezaWpUl_EzaWpId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ezaWpUl_EzaId,Integer) If (Original_ezaWpUl_Bereich 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_ezaWpUl_Bereich,String) End If If (Original_ezaWpUl_Art 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_ezaWpUl_Art,String) End If If (Original_ezaWpUl_Nummer 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_ezaWpUl_Nummer,String) End If If (Original_ezaWpUl_DatumAusstellung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ezaWpUl_DatumAusstellung.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_ezaWpUl_VorlageKz 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_ezaWpUl_VorlageKz,String) End If If (Original_ezaWpUl_AbschreibungsMenge.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ezaWpUl_AbschreibungsMenge.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_ezaWpUl_AbschreibungsMengeMasseinheit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ezaWpUl_AbschreibungsMengeMasseinheit,String) End If If (Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier,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 ezaWpUl_EzaWpId As Integer, ByVal ezaWpUl_EzaId As Integer, ByVal ezaWpUl_Bereich As String, ByVal ezaWpUl_Art As String, ByVal ezaWpUl_Nummer As String, ByVal ezaWpUl_DatumAusstellung As Global.System.Nullable(Of Date), ByVal ezaWpUl_VorlageKz As String, ByVal ezaWpUl_AbschreibungsMenge As Global.System.Nullable(Of Decimal), ByVal ezaWpUl_AbschreibungsMengeMasseinheit As String, ByVal ezaWpUl_AbschreibungsMengeMasseinheitQualifier As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezaWpUl_EzaWpId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezaWpUl_EzaId,Integer) If (ezaWpUl_Bereich Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezaWpUl_Bereich,String) End If If (ezaWpUl_Art Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezaWpUl_Art,String) End If If (ezaWpUl_Nummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ezaWpUl_Nummer,String) End If If (ezaWpUl_DatumAusstellung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(ezaWpUl_DatumAusstellung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (ezaWpUl_VorlageKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ezaWpUl_VorlageKz,String) End If If (ezaWpUl_AbschreibungsMenge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ezaWpUl_AbschreibungsMenge.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (ezaWpUl_AbschreibungsMengeMasseinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ezaWpUl_AbschreibungsMengeMasseinheit,String) End If If (ezaWpUl_AbschreibungsMengeMasseinheitQualifier Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(ezaWpUl_AbschreibungsMengeMasseinheitQualifier,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 ezaWpUl_EzaWpId As Integer, _ ByVal ezaWpUl_EzaId As Integer, _ ByVal ezaWpUl_Bereich As String, _ ByVal ezaWpUl_Art As String, _ ByVal ezaWpUl_Nummer As String, _ ByVal ezaWpUl_DatumAusstellung As Global.System.Nullable(Of Date), _ ByVal ezaWpUl_VorlageKz As String, _ ByVal ezaWpUl_AbschreibungsMenge As Global.System.Nullable(Of Decimal), _ ByVal ezaWpUl_AbschreibungsMengeMasseinheit As String, _ ByVal ezaWpUl_AbschreibungsMengeMasseinheitQualifier As String, _ ByVal Original_ezaWpUl_Id As Integer, _ ByVal Original_ezaWpUl_EzaWpId As Integer, _ ByVal Original_ezaWpUl_EzaId As Integer, _ ByVal Original_ezaWpUl_Bereich As String, _ ByVal Original_ezaWpUl_Art As String, _ ByVal Original_ezaWpUl_Nummer As String, _ ByVal Original_ezaWpUl_DatumAusstellung As Global.System.Nullable(Of Date), _ ByVal Original_ezaWpUl_VorlageKz As String, _ ByVal Original_ezaWpUl_AbschreibungsMenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWpUl_AbschreibungsMengeMasseinheit As String, _ ByVal Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier As String, _ ByVal ezaWpUl_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezaWpUl_EzaWpId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezaWpUl_EzaId,Integer) If (ezaWpUl_Bereich Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezaWpUl_Bereich,String) End If If (ezaWpUl_Art Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezaWpUl_Art,String) End If If (ezaWpUl_Nummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ezaWpUl_Nummer,String) End If If (ezaWpUl_DatumAusstellung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ezaWpUl_DatumAusstellung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (ezaWpUl_VorlageKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ezaWpUl_VorlageKz,String) End If If (ezaWpUl_AbschreibungsMenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ezaWpUl_AbschreibungsMenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (ezaWpUl_AbschreibungsMengeMasseinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ezaWpUl_AbschreibungsMengeMasseinheit,String) End If If (ezaWpUl_AbschreibungsMengeMasseinheitQualifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ezaWpUl_AbschreibungsMengeMasseinheitQualifier,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ezaWpUl_Id,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ezaWpUl_EzaWpId,Integer) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ezaWpUl_EzaId,Integer) If (Original_ezaWpUl_Bereich 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_ezaWpUl_Bereich,String) End If If (Original_ezaWpUl_Art 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_ezaWpUl_Art,String) End If If (Original_ezaWpUl_Nummer 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_ezaWpUl_Nummer,String) End If If (Original_ezaWpUl_DatumAusstellung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ezaWpUl_DatumAusstellung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_ezaWpUl_VorlageKz 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_ezaWpUl_VorlageKz,String) End If If (Original_ezaWpUl_AbschreibungsMenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_ezaWpUl_AbschreibungsMenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_ezaWpUl_AbschreibungsMengeMasseinheit 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_ezaWpUl_AbschreibungsMengeMasseinheit,String) End If If (Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier,String) End If Me.Adapter.UpdateCommand.Parameters(29).Value = CType(ezaWpUl_Id,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 ezaWpUl_EzaWpId As Integer, _ ByVal ezaWpUl_EzaId As Integer, _ ByVal ezaWpUl_Bereich As String, _ ByVal ezaWpUl_Art As String, _ ByVal ezaWpUl_Nummer As String, _ ByVal ezaWpUl_DatumAusstellung As Global.System.Nullable(Of Date), _ ByVal ezaWpUl_VorlageKz As String, _ ByVal ezaWpUl_AbschreibungsMenge As Global.System.Nullable(Of Decimal), _ ByVal ezaWpUl_AbschreibungsMengeMasseinheit As String, _ ByVal ezaWpUl_AbschreibungsMengeMasseinheitQualifier As String, _ ByVal Original_ezaWpUl_Id As Integer, _ ByVal Original_ezaWpUl_EzaWpId As Integer, _ ByVal Original_ezaWpUl_EzaId As Integer, _ ByVal Original_ezaWpUl_Bereich As String, _ ByVal Original_ezaWpUl_Art As String, _ ByVal Original_ezaWpUl_Nummer As String, _ ByVal Original_ezaWpUl_DatumAusstellung As Global.System.Nullable(Of Date), _ ByVal Original_ezaWpUl_VorlageKz As String, _ ByVal Original_ezaWpUl_AbschreibungsMenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWpUl_AbschreibungsMengeMasseinheit As String, _ ByVal Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier As String) As Integer Return Me.Update(ezaWpUl_EzaWpId, ezaWpUl_EzaId, ezaWpUl_Bereich, ezaWpUl_Art, ezaWpUl_Nummer, ezaWpUl_DatumAusstellung, ezaWpUl_VorlageKz, ezaWpUl_AbschreibungsMenge, ezaWpUl_AbschreibungsMengeMasseinheit, ezaWpUl_AbschreibungsMengeMasseinheitQualifier, Original_ezaWpUl_Id, Original_ezaWpUl_EzaWpId, Original_ezaWpUl_EzaId, Original_ezaWpUl_Bereich, Original_ezaWpUl_Art, Original_ezaWpUl_Nummer, Original_ezaWpUl_DatumAusstellung, Original_ezaWpUl_VorlageKz, Original_ezaWpUl_AbschreibungsMenge, Original_ezaWpUl_AbschreibungsMengeMasseinheit, Original_ezaWpUl_AbschreibungsMengeMasseinheitQualifier, Original_ezaWpUl_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter 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 = "tblDakosy_EZA_WarenpositionVerbrauchssteuer" tableMapping.ColumnMappings.Add("ezaWpVs_Id", "ezaWpVs_Id") tableMapping.ColumnMappings.Add("ezaWpVs_EzaWpId", "ezaWpVs_EzaWpId") tableMapping.ColumnMappings.Add("ezaWpVs_EzaId", "ezaWpVs_EzaId") tableMapping.ColumnMappings.Add("ezaWpVs_VerbrauchsteuerCode", "ezaWpVs_VerbrauchsteuerCode") tableMapping.ColumnMappings.Add("ezaWpVs_VerbrauchssteuerMenge", "ezaWpVs_VerbrauchssteuerMenge") tableMapping.ColumnMappings.Add("ezaWpVs_VerbrauchssteuerMasseinheitCode", "ezaWpVs_VerbrauchssteuerMasseinheitCode") tableMapping.ColumnMappings.Add("ezaWpVs_VerbrauchssteuerMasseinheitQualifier", "ezaWpVs_VerbrauchssteuerMasseinheitQualifier") tableMapping.ColumnMappings.Add("ezaWpVs_GradProzent", "ezaWpVs_GradProzent") tableMapping.ColumnMappings.Add("ezaWpVs_VerbrauchssteuerWertbasis", "ezaWpVs_VerbrauchssteuerWertbasis") 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].[tblDakosy_EZA_WarenpositionVerbrauchssteuer] WHERE (([ezaWpVs_"& _ "Id] = @Original_ezaWpVs_Id) AND ([ezaWpVs_EzaWpId] = @Original_ezaWpVs_EzaWpId) "& _ "AND ([ezaWpVs_EzaId] = @Original_ezaWpVs_EzaId) AND ((@IsNull_ezaWpVs_Verbrauchs"& _ "teuerCode = 1 AND [ezaWpVs_VerbrauchsteuerCode] IS NULL) OR ([ezaWpVs_Verbrauchs"& _ "teuerCode] = @Original_ezaWpVs_VerbrauchsteuerCode)) AND ((@IsNull_ezaWpVs_Verbr"& _ "auchssteuerMenge = 1 AND [ezaWpVs_VerbrauchssteuerMenge] IS NULL) OR ([ezaWpVs_V"& _ "erbrauchssteuerMenge] = @Original_ezaWpVs_VerbrauchssteuerMenge)) AND ((@IsNull_"& _ "ezaWpVs_VerbrauchssteuerMasseinheitCode = 1 AND [ezaWpVs_VerbrauchssteuerMassein"& _ "heitCode] IS NULL) OR ([ezaWpVs_VerbrauchssteuerMasseinheitCode] = @Original_eza"& _ "WpVs_VerbrauchssteuerMasseinheitCode)) AND ((@IsNull_ezaWpVs_VerbrauchssteuerMas"& _ "seinheitQualifier = 1 AND [ezaWpVs_VerbrauchssteuerMasseinheitQualifier] IS NULL"& _ ") OR ([ezaWpVs_VerbrauchssteuerMasseinheitQualifier] = @Original_ezaWpVs_Verbrau"& _ "chssteuerMasseinheitQualifier)) AND ((@IsNull_ezaWpVs_GradProzent = 1 AND [ezaWp"& _ "Vs_GradProzent] IS NULL) OR ([ezaWpVs_GradProzent] = @Original_ezaWpVs_GradProze"& _ "nt)) AND ((@IsNull_ezaWpVs_VerbrauchssteuerWertbasis = 1 AND [ezaWpVs_Verbrauchs"& _ "steuerWertbasis] IS NULL) OR ([ezaWpVs_VerbrauchssteuerWertbasis] = @Original_ez"& _ "aWpVs_VerbrauchssteuerWertbasis)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_EzaWpId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_EzaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_VerbrauchsteuerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchsteuerCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_VerbrauchsteuerCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchsteuerCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_GradProzent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_GradProzent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_GradProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWpVs_GradProzent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_VerbrauchssteuerWertbasis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerWertbasis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_VerbrauchssteuerWertbasis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWpVs_VerbrauchssteuerWertbasis", 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].[tblDakosy_EZA_WarenpositionVerbrauchssteuer] ([ezaWpVs_EzaWpId"& _ "], [ezaWpVs_EzaId], [ezaWpVs_VerbrauchsteuerCode], [ezaWpVs_VerbrauchssteuerMeng"& _ "e], [ezaWpVs_VerbrauchssteuerMasseinheitCode], [ezaWpVs_VerbrauchssteuerMasseinh"& _ "eitQualifier], [ezaWpVs_GradProzent], [ezaWpVs_VerbrauchssteuerWertbasis]) VALUE"& _ "S (@ezaWpVs_EzaWpId, @ezaWpVs_EzaId, @ezaWpVs_VerbrauchsteuerCode, @ezaWpVs_Verb"& _ "rauchssteuerMenge, @ezaWpVs_VerbrauchssteuerMasseinheitCode, @ezaWpVs_Verbrauchs"& _ "steuerMasseinheitQualifier, @ezaWpVs_GradProzent, @ezaWpVs_VerbrauchssteuerWertb"& _ "asis);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaWpVs_Id, ezaWpVs_EzaWpId, ezaWpVs_EzaId, ezaWpVs_Verbrauchsteu"& _ "erCode, ezaWpVs_VerbrauchssteuerMenge, ezaWpVs_VerbrauchssteuerMasseinheitCode, "& _ "ezaWpVs_VerbrauchssteuerMasseinheitQualifier, ezaWpVs_GradProzent, ezaWpVs_Verbr"& _ "auchssteuerWertbasis FROM tblDakosy_EZA_WarenpositionVerbrauchssteuer WHERE (eza"& _ "WpVs_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_EzaWpId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_EzaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_VerbrauchsteuerCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchsteuerCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_GradProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWpVs_GradProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_VerbrauchssteuerWertbasis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWpVs_VerbrauchssteuerWertbasis", 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].[tblDakosy_EZA_WarenpositionVerbrauchssteuer] SET [ezaWpVs_EzaWpId] "& _ "= @ezaWpVs_EzaWpId, [ezaWpVs_EzaId] = @ezaWpVs_EzaId, [ezaWpVs_VerbrauchsteuerCo"& _ "de] = @ezaWpVs_VerbrauchsteuerCode, [ezaWpVs_VerbrauchssteuerMenge] = @ezaWpVs_V"& _ "erbrauchssteuerMenge, [ezaWpVs_VerbrauchssteuerMasseinheitCode] = @ezaWpVs_Verbr"& _ "auchssteuerMasseinheitCode, [ezaWpVs_VerbrauchssteuerMasseinheitQualifier] = @ez"& _ "aWpVs_VerbrauchssteuerMasseinheitQualifier, [ezaWpVs_GradProzent] = @ezaWpVs_Gra"& _ "dProzent, [ezaWpVs_VerbrauchssteuerWertbasis] = @ezaWpVs_VerbrauchssteuerWertbas"& _ "is WHERE (([ezaWpVs_Id] = @Original_ezaWpVs_Id) AND ([ezaWpVs_EzaWpId] = @Origin"& _ "al_ezaWpVs_EzaWpId) AND ([ezaWpVs_EzaId] = @Original_ezaWpVs_EzaId) AND ((@IsNul"& _ "l_ezaWpVs_VerbrauchsteuerCode = 1 AND [ezaWpVs_VerbrauchsteuerCode] IS NULL) OR "& _ "([ezaWpVs_VerbrauchsteuerCode] = @Original_ezaWpVs_VerbrauchsteuerCode)) AND ((@"& _ "IsNull_ezaWpVs_VerbrauchssteuerMenge = 1 AND [ezaWpVs_VerbrauchssteuerMenge] IS "& _ "NULL) OR ([ezaWpVs_VerbrauchssteuerMenge] = @Original_ezaWpVs_VerbrauchssteuerMe"& _ "nge)) AND ((@IsNull_ezaWpVs_VerbrauchssteuerMasseinheitCode = 1 AND [ezaWpVs_Ver"& _ "brauchssteuerMasseinheitCode] IS NULL) OR ([ezaWpVs_VerbrauchssteuerMasseinheitC"& _ "ode] = @Original_ezaWpVs_VerbrauchssteuerMasseinheitCode)) AND ((@IsNull_ezaWpVs"& _ "_VerbrauchssteuerMasseinheitQualifier = 1 AND [ezaWpVs_VerbrauchssteuerMasseinhe"& _ "itQualifier] IS NULL) OR ([ezaWpVs_VerbrauchssteuerMasseinheitQualifier] = @Orig"& _ "inal_ezaWpVs_VerbrauchssteuerMasseinheitQualifier)) AND ((@IsNull_ezaWpVs_GradPr"& _ "ozent = 1 AND [ezaWpVs_GradProzent] IS NULL) OR ([ezaWpVs_GradProzent] = @Origin"& _ "al_ezaWpVs_GradProzent)) AND ((@IsNull_ezaWpVs_VerbrauchssteuerWertbasis = 1 AND"& _ " [ezaWpVs_VerbrauchssteuerWertbasis] IS NULL) OR ([ezaWpVs_VerbrauchssteuerWertb"& _ "asis] = @Original_ezaWpVs_VerbrauchssteuerWertbasis)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezaWpVs_Id, ezaW"& _ "pVs_EzaWpId, ezaWpVs_EzaId, ezaWpVs_VerbrauchsteuerCode, ezaWpVs_Verbrauchssteue"& _ "rMenge, ezaWpVs_VerbrauchssteuerMasseinheitCode, ezaWpVs_VerbrauchssteuerMassein"& _ "heitQualifier, ezaWpVs_GradProzent, ezaWpVs_VerbrauchssteuerWertbasis FROM tblDa"& _ "kosy_EZA_WarenpositionVerbrauchssteuer WHERE (ezaWpVs_Id = @ezaWpVs_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_EzaWpId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_EzaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_VerbrauchsteuerCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchsteuerCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_GradProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWpVs_GradProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_VerbrauchssteuerWertbasis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWpVs_VerbrauchssteuerWertbasis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_EzaWpId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_EzaWpId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_EzaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_EzaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_VerbrauchsteuerCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchsteuerCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_VerbrauchsteuerCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchsteuerCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "ezaWpVs_VerbrauchssteuerMenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerMasseinheitQualifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_GradProzent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_GradProzent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_GradProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "ezaWpVs_GradProzent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ezaWpVs_VerbrauchssteuerWertbasis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_VerbrauchssteuerWertbasis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezaWpVs_VerbrauchssteuerWertbasis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 13, 2, "ezaWpVs_VerbrauchssteuerWertbasis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezaWpVs_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ezaWpVs_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezaWpVs_Id, ezaWpVs_EzaWpId, ezaWpVs_EzaId, ezaWpVs_VerbrauchsteuerCode, e"& _ "zaWpVs_VerbrauchssteuerMenge, ezaWpVs_VerbrauchssteuerMasseinheitCode, ezaWpVs_V"& _ "erbrauchssteuerMasseinheitQualifier, ezaWpVs_GradProzent, ezaWpVs_Verbrauchssteu"& _ "erWertbasis FROM dbo.tblDakosy_EZA_WarenpositionVerbrauchssteuer" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable) 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 VERAGDataSet.tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable = New VERAGDataSet.tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_EZA_WarenpositionVerbrauchssteuerDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_EZA_WarenpositionVerbrauchssteuer") 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_ezaWpVs_Id As Integer, ByVal Original_ezaWpVs_EzaWpId As Integer, ByVal Original_ezaWpVs_EzaId As Integer, ByVal Original_ezaWpVs_VerbrauchsteuerCode As String, ByVal Original_ezaWpVs_VerbrauchssteuerMenge As Global.System.Nullable(Of Decimal), ByVal Original_ezaWpVs_VerbrauchssteuerMasseinheitCode As String, ByVal Original_ezaWpVs_VerbrauchssteuerMasseinheitQualifier As String, ByVal Original_ezaWpVs_GradProzent As Global.System.Nullable(Of Decimal), ByVal Original_ezaWpVs_VerbrauchssteuerWertbasis As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezaWpVs_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezaWpVs_EzaWpId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ezaWpVs_EzaId,Integer) If (Original_ezaWpVs_VerbrauchsteuerCode 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_ezaWpVs_VerbrauchsteuerCode,String) End If If (Original_ezaWpVs_VerbrauchssteuerMenge.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ezaWpVs_VerbrauchssteuerMenge.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_ezaWpVs_VerbrauchssteuerMasseinheitCode 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_ezaWpVs_VerbrauchssteuerMasseinheitCode,String) End If If (Original_ezaWpVs_VerbrauchssteuerMasseinheitQualifier 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_ezaWpVs_VerbrauchssteuerMasseinheitQualifier,String) End If If (Original_ezaWpVs_GradProzent.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ezaWpVs_GradProzent.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_ezaWpVs_VerbrauchssteuerWertbasis.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ezaWpVs_VerbrauchssteuerWertbasis.Value,Decimal) 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 ezaWpVs_EzaWpId As Integer, ByVal ezaWpVs_EzaId As Integer, ByVal ezaWpVs_VerbrauchsteuerCode As String, ByVal ezaWpVs_VerbrauchssteuerMenge As Global.System.Nullable(Of Decimal), ByVal ezaWpVs_VerbrauchssteuerMasseinheitCode As String, ByVal ezaWpVs_VerbrauchssteuerMasseinheitQualifier As String, ByVal ezaWpVs_GradProzent As Global.System.Nullable(Of Decimal), ByVal ezaWpVs_VerbrauchssteuerWertbasis As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezaWpVs_EzaWpId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezaWpVs_EzaId,Integer) If (ezaWpVs_VerbrauchsteuerCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezaWpVs_VerbrauchsteuerCode,String) End If If (ezaWpVs_VerbrauchssteuerMenge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezaWpVs_VerbrauchssteuerMenge.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (ezaWpVs_VerbrauchssteuerMasseinheitCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ezaWpVs_VerbrauchssteuerMasseinheitCode,String) End If If (ezaWpVs_VerbrauchssteuerMasseinheitQualifier Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ezaWpVs_VerbrauchssteuerMasseinheitQualifier,String) End If If (ezaWpVs_GradProzent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(ezaWpVs_GradProzent.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (ezaWpVs_VerbrauchssteuerWertbasis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ezaWpVs_VerbrauchssteuerWertbasis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(7).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 ezaWpVs_EzaWpId As Integer, _ ByVal ezaWpVs_EzaId As Integer, _ ByVal ezaWpVs_VerbrauchsteuerCode As String, _ ByVal ezaWpVs_VerbrauchssteuerMenge As Global.System.Nullable(Of Decimal), _ ByVal ezaWpVs_VerbrauchssteuerMasseinheitCode As String, _ ByVal ezaWpVs_VerbrauchssteuerMasseinheitQualifier As String, _ ByVal ezaWpVs_GradProzent As Global.System.Nullable(Of Decimal), _ ByVal ezaWpVs_VerbrauchssteuerWertbasis As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWpVs_Id As Integer, _ ByVal Original_ezaWpVs_EzaWpId As Integer, _ ByVal Original_ezaWpVs_EzaId As Integer, _ ByVal Original_ezaWpVs_VerbrauchsteuerCode As String, _ ByVal Original_ezaWpVs_VerbrauchssteuerMenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWpVs_VerbrauchssteuerMasseinheitCode As String, _ ByVal Original_ezaWpVs_VerbrauchssteuerMasseinheitQualifier As String, _ ByVal Original_ezaWpVs_GradProzent As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWpVs_VerbrauchssteuerWertbasis As Global.System.Nullable(Of Decimal), _ ByVal ezaWpVs_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezaWpVs_EzaWpId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezaWpVs_EzaId,Integer) If (ezaWpVs_VerbrauchsteuerCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezaWpVs_VerbrauchsteuerCode,String) End If If (ezaWpVs_VerbrauchssteuerMenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezaWpVs_VerbrauchssteuerMenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (ezaWpVs_VerbrauchssteuerMasseinheitCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ezaWpVs_VerbrauchssteuerMasseinheitCode,String) End If If (ezaWpVs_VerbrauchssteuerMasseinheitQualifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ezaWpVs_VerbrauchssteuerMasseinheitQualifier,String) End If If (ezaWpVs_GradProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ezaWpVs_GradProzent.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (ezaWpVs_VerbrauchssteuerWertbasis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ezaWpVs_VerbrauchssteuerWertbasis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ezaWpVs_Id,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ezaWpVs_EzaWpId,Integer) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ezaWpVs_EzaId,Integer) If (Original_ezaWpVs_VerbrauchsteuerCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ezaWpVs_VerbrauchsteuerCode,String) End If If (Original_ezaWpVs_VerbrauchssteuerMenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ezaWpVs_VerbrauchssteuerMenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_ezaWpVs_VerbrauchssteuerMasseinheitCode 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_ezaWpVs_VerbrauchssteuerMasseinheitCode,String) End If If (Original_ezaWpVs_VerbrauchssteuerMasseinheitQualifier 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_ezaWpVs_VerbrauchssteuerMasseinheitQualifier,String) End If If (Original_ezaWpVs_GradProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ezaWpVs_GradProzent.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_ezaWpVs_VerbrauchssteuerWertbasis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ezaWpVs_VerbrauchssteuerWertbasis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(23).Value = CType(ezaWpVs_Id,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 ezaWpVs_EzaWpId As Integer, _ ByVal ezaWpVs_EzaId As Integer, _ ByVal ezaWpVs_VerbrauchsteuerCode As String, _ ByVal ezaWpVs_VerbrauchssteuerMenge As Global.System.Nullable(Of Decimal), _ ByVal ezaWpVs_VerbrauchssteuerMasseinheitCode As String, _ ByVal ezaWpVs_VerbrauchssteuerMasseinheitQualifier As String, _ ByVal ezaWpVs_GradProzent As Global.System.Nullable(Of Decimal), _ ByVal ezaWpVs_VerbrauchssteuerWertbasis As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWpVs_Id As Integer, _ ByVal Original_ezaWpVs_EzaWpId As Integer, _ ByVal Original_ezaWpVs_EzaId As Integer, _ ByVal Original_ezaWpVs_VerbrauchsteuerCode As String, _ ByVal Original_ezaWpVs_VerbrauchssteuerMenge As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWpVs_VerbrauchssteuerMasseinheitCode As String, _ ByVal Original_ezaWpVs_VerbrauchssteuerMasseinheitQualifier As String, _ ByVal Original_ezaWpVs_GradProzent As Global.System.Nullable(Of Decimal), _ ByVal Original_ezaWpVs_VerbrauchssteuerWertbasis As Global.System.Nullable(Of Decimal)) As Integer Return Me.Update(ezaWpVs_EzaWpId, ezaWpVs_EzaId, ezaWpVs_VerbrauchsteuerCode, ezaWpVs_VerbrauchssteuerMenge, ezaWpVs_VerbrauchssteuerMasseinheitCode, ezaWpVs_VerbrauchssteuerMasseinheitQualifier, ezaWpVs_GradProzent, ezaWpVs_VerbrauchssteuerWertbasis, Original_ezaWpVs_Id, Original_ezaWpVs_EzaWpId, Original_ezaWpVs_EzaId, Original_ezaWpVs_VerbrauchsteuerCode, Original_ezaWpVs_VerbrauchssteuerMenge, Original_ezaWpVs_VerbrauchssteuerMasseinheitCode, Original_ezaWpVs_VerbrauchssteuerMasseinheitQualifier, Original_ezaWpVs_GradProzent, Original_ezaWpVs_VerbrauchssteuerWertbasis, Original_ezaWpVs_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOutTableAdapter 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 = "tblDakosy_NCTSOut" tableMapping.ColumnMappings.Add("ncts_Id", "ncts_Id") tableMapping.ColumnMappings.Add("ncts_Status", "ncts_Status") tableMapping.ColumnMappings.Add("ncts_Status_KEWILL_Equivalent", "ncts_Status_KEWILL_Equivalent") tableMapping.ColumnMappings.Add("ncts_dyaArt", "ncts_dyaArt") tableMapping.ColumnMappings.Add("ncts_dyaAnmID", "ncts_dyaAnmID") tableMapping.ColumnMappings.Add("ncts_ANR", "ncts_ANR") tableMapping.ColumnMappings.Add("ncts_MRN", "ncts_MRN") tableMapping.ColumnMappings.Add("ncts_Erstellung", "ncts_Erstellung") tableMapping.ColumnMappings.Add("ncts_Erstellung_SB", "ncts_Erstellung_SB") tableMapping.ColumnMappings.Add("ncts_LetzteBearbeitung", "ncts_LetzteBearbeitung") tableMapping.ColumnMappings.Add("ncts_LetzteBearbeitung_SB", "ncts_LetzteBearbeitung_SB") tableMapping.ColumnMappings.Add("ncts_firma", "ncts_firma") tableMapping.ColumnMappings.Add("ncts_niederlassung", "ncts_niederlassung") tableMapping.ColumnMappings.Add("ncts_Gestellt", "ncts_Gestellt") tableMapping.ColumnMappings.Add("ncts_GestelltAm", "ncts_GestelltAm") tableMapping.ColumnMappings.Add("ncts_Trans_Partner", "ncts_Trans_Partner") tableMapping.ColumnMappings.Add("ncts_Trans_Div1", "ncts_Trans_Div1") tableMapping.ColumnMappings.Add("ncts_Trans_Div2", "ncts_Trans_Div2") tableMapping.ColumnMappings.Add("ncts_Trans_Div3", "ncts_Trans_Div3") tableMapping.ColumnMappings.Add("ncts_Trans_Referenz", "ncts_Trans_Referenz") tableMapping.ColumnMappings.Add("ncts_Trans_DatumZeit", "ncts_Trans_DatumZeit") tableMapping.ColumnMappings.Add("ncts_Trans_Version", "ncts_Trans_Version") tableMapping.ColumnMappings.Add("ncts_NachrichtenSenderTIN", "ncts_NachrichtenSenderTIN") tableMapping.ColumnMappings.Add("ncts_NachrichtenSenderNLNR", "ncts_NachrichtenSenderNLNR") tableMapping.ColumnMappings.Add("ncts_NachrichtenempfaengerDST", "ncts_NachrichtenempfaengerDST") tableMapping.ColumnMappings.Add("ncts_ObjectName", "ncts_ObjectName") tableMapping.ColumnMappings.Add("ncts_ObjectAlias", "ncts_ObjectAlias") tableMapping.ColumnMappings.Add("ncts_BezugsnummerVorblendung", "ncts_BezugsnummerVorblendung") tableMapping.ColumnMappings.Add("ncts_Bearbeiter", "ncts_Bearbeiter") tableMapping.ColumnMappings.Add("ncts_VersendungsLandCode", "ncts_VersendungsLandCode") tableMapping.ColumnMappings.Add("ncts_BestimmungslandCode", "ncts_BestimmungslandCode") tableMapping.ColumnMappings.Add("ncts_ArtAnmeldung", "ncts_ArtAnmeldung") tableMapping.ColumnMappings.Add("ncts_BeladungsOrt", "ncts_BeladungsOrt") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer1", "ncts_DurchgangszollstelleDienststellnummer1") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer2", "ncts_DurchgangszollstelleDienststellnummer2") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer3", "ncts_DurchgangszollstelleDienststellnummer3") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer4", "ncts_DurchgangszollstelleDienststellnummer4") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer5", "ncts_DurchgangszollstelleDienststellnummer5") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer6", "ncts_DurchgangszollstelleDienststellnummer6") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer7", "ncts_DurchgangszollstelleDienststellnummer7") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer8", "ncts_DurchgangszollstelleDienststellnummer8") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer9", "ncts_DurchgangszollstelleDienststellnummer9") tableMapping.ColumnMappings.Add("ncts_BestimmungsstelleDienststellennummer", "ncts_BestimmungsstelleDienststellennummer") tableMapping.ColumnMappings.Add("ncts_AbgangsDienststellennummer", "ncts_AbgangsDienststellennummer") tableMapping.ColumnMappings.Add("ncts_Wiedergestellungsdatum", "ncts_Wiedergestellungsdatum") tableMapping.ColumnMappings.Add("ncts_KzVereinfachtesVerfahren", "ncts_KzVereinfachtesVerfahren") tableMapping.ColumnMappings.Add("ncts_GesamtRohmasse", "ncts_GesamtRohmasse") tableMapping.ColumnMappings.Add("ncts_GesamtAnzahlPackstuecke", "ncts_GesamtAnzahlPackstuecke") tableMapping.ColumnMappings.Add("ncts_Verschluss_ArtCode", "ncts_Verschluss_ArtCode") tableMapping.ColumnMappings.Add("ncts_Verschluss_Anzahl", "ncts_Verschluss_Anzahl") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen1", "ncts_Verschluss_Zeichen1") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen2", "ncts_Verschluss_Zeichen2") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen3", "ncts_Verschluss_Zeichen3") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen4", "ncts_Verschluss_Zeichen4") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen5", "ncts_Verschluss_Zeichen5") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen6", "ncts_Verschluss_Zeichen6") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen7", "ncts_Verschluss_Zeichen7") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen8", "ncts_Verschluss_Zeichen8") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen9", "ncts_Verschluss_Zeichen9") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen10", "ncts_Verschluss_Zeichen10") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen11", "ncts_Verschluss_Zeichen11") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen12", "ncts_Verschluss_Zeichen12") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen13", "ncts_Verschluss_Zeichen13") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen14", "ncts_Verschluss_Zeichen14") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen15", "ncts_Verschluss_Zeichen15") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen16", "ncts_Verschluss_Zeichen16") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_KennzeichenAbgang", "ncts_Befoerderungsmittel_KennzeichenAbgang") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_ArtGrenzueberschreitung", "ncts_Befoerderungsmittel_ArtGrenzueberschreitung") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode") tableMapping.ColumnMappings.Add("ncts_Versender_EORI", "ncts_Versender_EORI") tableMapping.ColumnMappings.Add("ncts_Versender_NLNR", "ncts_Versender_NLNR") tableMapping.ColumnMappings.Add("ncts_Versender_TIN", "ncts_Versender_TIN") tableMapping.ColumnMappings.Add("ncts_Versender_Name", "ncts_Versender_Name") tableMapping.ColumnMappings.Add("ncts_Versender_StrasseHausnummer", "ncts_Versender_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_Versender_Ort", "ncts_Versender_Ort") tableMapping.ColumnMappings.Add("ncts_Versender_PLZ", "ncts_Versender_PLZ") tableMapping.ColumnMappings.Add("ncts_Versender_Land", "ncts_Versender_Land") tableMapping.ColumnMappings.Add("ncts_Empfaenger_EORI", "ncts_Empfaenger_EORI") tableMapping.ColumnMappings.Add("ncts_Empfaenger_NLNR", "ncts_Empfaenger_NLNR") tableMapping.ColumnMappings.Add("ncts_Empfaenger_TIN", "ncts_Empfaenger_TIN") tableMapping.ColumnMappings.Add("ncts_Empfaenger_Name", "ncts_Empfaenger_Name") tableMapping.ColumnMappings.Add("ncts_Empfaenger_StrasseHausnummer", "ncts_Empfaenger_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_Empfaenger_Ort", "ncts_Empfaenger_Ort") tableMapping.ColumnMappings.Add("ncts_Empfaenger_PLZ", "ncts_Empfaenger_PLZ") tableMapping.ColumnMappings.Add("ncts_Empfaenger_Land", "ncts_Empfaenger_Land") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_EORI", "ncts_Hauptverpflichteter_EORI") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_NLNR", "ncts_Hauptverpflichteter_NLNR") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_TIN", "ncts_Hauptverpflichteter_TIN") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_Name", "ncts_Hauptverpflichteter_Name") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_StrasseHausnummer", "ncts_Hauptverpflichteter_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_Ort", "ncts_Hauptverpflichteter_Ort") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_PLZ", "ncts_Hauptverpflichteter_PLZ") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_Land", "ncts_Hauptverpflichteter_Land") tableMapping.ColumnMappings.Add("ncts_ZugelassenerEmpfaenger_EORI", "ncts_ZugelassenerEmpfaenger_EORI") tableMapping.ColumnMappings.Add("ncts_ZugelassenerEmpfaenger_TIN", "ncts_ZugelassenerEmpfaenger_TIN") tableMapping.ColumnMappings.Add("ncts_ZugelassenerEmpfaenger_IDCarnet", "ncts_ZugelassenerEmpfaenger_IDCarnet") tableMapping.ColumnMappings.Add("ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender") tableMapping.ColumnMappings.Add("ncts_SumA_KzSumASicherheit", "ncts_SumA_KzSumASicherheit") tableMapping.ColumnMappings.Add("ncts_SumA_KennnummerSendung", "ncts_SumA_KennnummerSendung") tableMapping.ColumnMappings.Add("ncts_SumA_NummerBefoerderung", "ncts_SumA_NummerBefoerderung") tableMapping.ColumnMappings.Add("ncts_SumA_BesondereUmstaende", "ncts_SumA_BesondereUmstaende") tableMapping.ColumnMappings.Add("ncts_SumA_Ladeort", "ncts_SumA_Ladeort") tableMapping.ColumnMappings.Add("ncts_SumA_Entladeort", "ncts_SumA_Entladeort") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungskostenZahlungsweise", "ncts_SumA_BefoerderungskostenZahlungsweise") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand1", "ncts_SumA_BefoerderungsrouteLand1") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand2", "ncts_SumA_BefoerderungsrouteLand2") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand3", "ncts_SumA_BefoerderungsrouteLand3") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand4", "ncts_SumA_BefoerderungsrouteLand4") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand5", "ncts_SumA_BefoerderungsrouteLand5") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand6", "ncts_SumA_BefoerderungsrouteLand6") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand7", "ncts_SumA_BefoerderungsrouteLand7") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand8", "ncts_SumA_BefoerderungsrouteLand8") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand9", "ncts_SumA_BefoerderungsrouteLand9") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand10", "ncts_SumA_BefoerderungsrouteLand10") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand11", "ncts_SumA_BefoerderungsrouteLand11") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand12", "ncts_SumA_BefoerderungsrouteLand12") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_EORI", "ncts_SumA_Versender_EORI") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_NLNR", "ncts_SumA_Versender_NLNR") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_TIN", "ncts_SumA_Versender_TIN") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_Name", "ncts_SumA_Versender_Name") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_StrasseHausnummer", "ncts_SumA_Versender_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_Land", "ncts_SumA_Versender_Land") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_PLZ", "ncts_SumA_Versender_PLZ") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_Ort", "ncts_SumA_Versender_Ort") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_EORI", "ncts_SumA_Empfaenger_EORI") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_NLNR", "ncts_SumA_Empfaenger_NLNR") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_TIN", "ncts_SumA_Empfaenger_TIN") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_Name", "ncts_SumA_Empfaenger_Name") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_StrasseHausnummer", "ncts_SumA_Empfaenger_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_Land", "ncts_SumA_Empfaenger_Land") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_PLZ", "ncts_SumA_Empfaenger_PLZ") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_Ort", "ncts_SumA_Empfaenger_Ort") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_EORI", "ncts_SumA_Befoerderer_EORI") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_NLNR", "ncts_SumA_Befoerderer_NLNR") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_TIN", "ncts_SumA_Befoerderer_TIN") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_Name", "ncts_SumA_Befoerderer_Name") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_StrasseHausnummer", "ncts_SumA_Befoerderer_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_Land", "ncts_SumA_Befoerderer_Land") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_PLZ", "ncts_SumA_Befoerderer_PLZ") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_Ort", "ncts_SumA_Befoerderer_Ort") tableMapping.ColumnMappings.Add("ncts_Stammreferenz", "ncts_Stammreferenz") 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].[tblDakosy_NCTSOut] WHERE (([ncts_Id] = @Original_ncts_Id) AND "& _ "([ncts_Status] = @Original_ncts_Status) AND ([ncts_Status_KEWILL_Equivalent] = @"& _ "Original_ncts_Status_KEWILL_Equivalent) AND ([ncts_dyaArt] = @Original_ncts_dyaA"& _ "rt) AND ([ncts_dyaAnmID] = @Original_ncts_dyaAnmID) AND ((@IsNull_ncts_ANR = 1 A"& _ "ND [ncts_ANR] IS NULL) OR ([ncts_ANR] = @Original_ncts_ANR)) AND ((@IsNull_ncts_"& _ "MRN = 1 AND [ncts_MRN] IS NULL) OR ([ncts_MRN] = @Original_ncts_MRN)) AND ([ncts"& _ "_Erstellung] = @Original_ncts_Erstellung) AND ((@IsNull_ncts_Erstellung_SB = 1 A"& _ "ND [ncts_Erstellung_SB] IS NULL) OR ([ncts_Erstellung_SB] = @Original_ncts_Erste"& _ "llung_SB)) AND ([ncts_LetzteBearbeitung] = @Original_ncts_LetzteBearbeitung) AND"& _ " ((@IsNull_ncts_LetzteBearbeitung_SB = 1 AND [ncts_LetzteBearbeitung_SB] IS NULL"& _ ") OR ([ncts_LetzteBearbeitung_SB] = @Original_ncts_LetzteBearbeitung_SB)) AND (("& _ "@IsNull_ncts_firma = 1 AND [ncts_firma] IS NULL) OR ([ncts_firma] = @Original_nc"& _ "ts_firma)) AND ((@IsNull_ncts_niederlassung = 1 AND [ncts_niederlassung] IS NULL"& _ ") OR ([ncts_niederlassung] = @Original_ncts_niederlassung)) AND ([ncts_Gestellt]"& _ " = @Original_ncts_Gestellt) AND ((@IsNull_ncts_GestelltAm = 1 AND [ncts_Gestellt"& _ "Am] IS NULL) OR ([ncts_GestelltAm] = @Original_ncts_GestelltAm)) AND ((@IsNull_n"& _ "cts_Trans_Partner = 1 AND [ncts_Trans_Partner] IS NULL) OR ([ncts_Trans_Partner]"& _ " = @Original_ncts_Trans_Partner)) AND ((@IsNull_ncts_Trans_Div1 = 1 AND [ncts_Tr"& _ "ans_Div1] IS NULL) OR ([ncts_Trans_Div1] = @Original_ncts_Trans_Div1)) AND ((@Is"& _ "Null_ncts_Trans_Div2 = 1 AND [ncts_Trans_Div2] IS NULL) OR ([ncts_Trans_Div2] = "& _ "@Original_ncts_Trans_Div2)) AND ((@IsNull_ncts_Trans_Div3 = 1 AND [ncts_Trans_Di"& _ "v3] IS NULL) OR ([ncts_Trans_Div3] = @Original_ncts_Trans_Div3)) AND ((@IsNull_n"& _ "cts_Trans_Referenz = 1 AND [ncts_Trans_Referenz] IS NULL) OR ([ncts_Trans_Refere"& _ "nz] = @Original_ncts_Trans_Referenz)) AND ((@IsNull_ncts_Trans_DatumZeit = 1 AND"& _ " [ncts_Trans_DatumZeit] IS NULL) OR ([ncts_Trans_DatumZeit] = @Original_ncts_Tra"& _ "ns_DatumZeit)) AND ((@IsNull_ncts_Trans_Version = 1 AND [ncts_Trans_Version] IS "& _ "NULL) OR ([ncts_Trans_Version] = @Original_ncts_Trans_Version)) AND ((@IsNull_nc"& _ "ts_NachrichtenSenderTIN = 1 AND [ncts_NachrichtenSenderTIN] IS NULL) OR ([ncts_N"& _ "achrichtenSenderTIN] = @Original_ncts_NachrichtenSenderTIN)) AND ((@IsNull_ncts_"& _ "NachrichtenSenderNLNR = 1 AND [ncts_NachrichtenSenderNLNR] IS NULL) OR ([ncts_Na"& _ "chrichtenSenderNLNR] = @Original_ncts_NachrichtenSenderNLNR)) AND ((@IsNull_ncts"& _ "_NachrichtenempfaengerDST = 1 AND [ncts_NachrichtenempfaengerDST] IS NULL) OR (["& _ "ncts_NachrichtenempfaengerDST] = @Original_ncts_NachrichtenempfaengerDST)) AND ("& _ "(@IsNull_ncts_ObjectName = 1 AND [ncts_ObjectName] IS NULL) OR ([ncts_ObjectName"& _ "] = @Original_ncts_ObjectName)) AND ((@IsNull_ncts_ObjectAlias = 1 AND [ncts_Obj"& _ "ectAlias] IS NULL) OR ([ncts_ObjectAlias] = @Original_ncts_ObjectAlias)) AND ((@"& _ "IsNull_ncts_BezugsnummerVorblendung = 1 AND [ncts_BezugsnummerVorblendung] IS NU"& _ "LL) OR ([ncts_BezugsnummerVorblendung] = @Original_ncts_BezugsnummerVorblendung)"& _ ") AND ((@IsNull_ncts_Bearbeiter = 1 AND [ncts_Bearbeiter] IS NULL) OR ([ncts_Bea"& _ "rbeiter] = @Original_ncts_Bearbeiter)) AND ((@IsNull_ncts_VersendungsLandCode = "& _ "1 AND [ncts_VersendungsLandCode] IS NULL) OR ([ncts_VersendungsLandCode] = @Orig"& _ "inal_ncts_VersendungsLandCode)) AND ((@IsNull_ncts_BestimmungslandCode = 1 AND ["& _ "ncts_BestimmungslandCode] IS NULL) OR ([ncts_BestimmungslandCode] = @Original_nc"& _ "ts_BestimmungslandCode)) AND ((@IsNull_ncts_ArtAnmeldung = 1 AND [ncts_ArtAnmeld"& _ "ung] IS NULL) OR ([ncts_ArtAnmeldung] = @Original_ncts_ArtAnmeldung)) AND ((@IsN"& _ "ull_ncts_BeladungsOrt = 1 AND [ncts_BeladungsOrt] IS NULL) OR ([ncts_BeladungsOr"& _ "t] = @Original_ncts_BeladungsOrt)) AND ((@IsNull_ncts_DurchgangszollstelleDienst"& _ "stellnummer1 = 1 AND [ncts_DurchgangszollstelleDienststellnummer1] IS NULL) OR ("& _ "[ncts_DurchgangszollstelleDienststellnummer1] = @Original_ncts_Durchgangszollste"& _ "lleDienststellnummer1)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer"& _ "2 = 1 AND [ncts_DurchgangszollstelleDienststellnummer2] IS NULL) OR ([ncts_Durch"& _ "gangszollstelleDienststellnummer2] = @Original_ncts_DurchgangszollstelleDienstst"& _ "ellnummer2)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer3 = 1 AND ["& _ "ncts_DurchgangszollstelleDienststellnummer3] IS NULL) OR ([ncts_Durchgangszollst"& _ "elleDienststellnummer3] = @Original_ncts_DurchgangszollstelleDienststellnummer3)"& _ ") AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer4 = 1 AND [ncts_Durchg"& _ "angszollstelleDienststellnummer4] IS NULL) OR ([ncts_DurchgangszollstelleDiensts"& _ "tellnummer4] = @Original_ncts_DurchgangszollstelleDienststellnummer4)) AND ((@Is"& _ "Null_ncts_DurchgangszollstelleDienststellnummer5 = 1 AND [ncts_Durchgangszollste"& _ "lleDienststellnummer5] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnummer5"& _ "] = @Original_ncts_DurchgangszollstelleDienststellnummer5)) AND ((@IsNull_ncts_D"& _ "urchgangszollstelleDienststellnummer6 = 1 AND [ncts_DurchgangszollstelleDienstst"& _ "ellnummer6] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnummer6] = @Origin"& _ "al_ncts_DurchgangszollstelleDienststellnummer6)) AND ((@IsNull_ncts_Durchgangszo"& _ "llstelleDienststellnummer7 = 1 AND [ncts_DurchgangszollstelleDienststellnummer7]"& _ " IS NULL) OR ([ncts_DurchgangszollstelleDienststellnummer7] = @Original_ncts_Dur"& _ "chgangszollstelleDienststellnummer7)) AND ((@IsNull_ncts_DurchgangszollstelleDie"& _ "nststellnummer8 = 1 AND [ncts_DurchgangszollstelleDienststellnummer8] IS NULL) O"& _ "R ([ncts_DurchgangszollstelleDienststellnummer8] = @Original_ncts_Durchgangszoll"& _ "stelleDienststellnummer8)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnum"& _ "mer9 = 1 AND [ncts_DurchgangszollstelleDienststellnummer9] IS NULL) OR ([ncts_Du"& _ "rchgangszollstelleDienststellnummer9] = @Original_ncts_DurchgangszollstelleDiens"& _ "tstellnummer9)) AND ((@IsNull_ncts_BestimmungsstelleDienststellennummer = 1 AND "& _ "[ncts_BestimmungsstelleDienststellennummer] IS NULL) OR ([ncts_Bestimmungsstelle"& _ "Dienststellennummer] = @Original_ncts_BestimmungsstelleDienststellennummer)) AND"& _ " ((@IsNull_ncts_AbgangsDienststellennummer = 1 AND [ncts_AbgangsDienststellennum"& _ "mer] IS NULL) OR ([ncts_AbgangsDienststellennummer] = @Original_ncts_AbgangsDien"& _ "ststellennummer)) AND ((@IsNull_ncts_Wiedergestellungsdatum = 1 AND [ncts_Wieder"& _ "gestellungsdatum] IS NULL) OR ([ncts_Wiedergestellungsdatum] = @Original_ncts_Wi"& _ "edergestellungsdatum)) AND ((@IsNull_ncts_KzVereinfachtesVerfahren = 1 AND [ncts"& _ "_KzVereinfachtesVerfahren] IS NULL) OR ([ncts_KzVereinfachtesVerfahren] = @Origi"& _ "nal_ncts_KzVereinfachtesVerfahren)) AND ((@IsNull_ncts_GesamtRohmasse = 1 AND [n"& _ "cts_GesamtRohmasse] IS NULL) OR ([ncts_GesamtRohmasse] = @Original_ncts_GesamtRo"& _ "hmasse)) AND ((@IsNull_ncts_GesamtAnzahlPackstuecke = 1 AND [ncts_GesamtAnzahlPa"& _ "ckstuecke] IS NULL) OR ([ncts_GesamtAnzahlPackstuecke] = @Original_ncts_GesamtAn"& _ "zahlPackstuecke)) AND ((@IsNull_ncts_Verschluss_ArtCode = 1 AND [ncts_Verschluss"& _ "_ArtCode] IS NULL) OR ([ncts_Verschluss_ArtCode] = @Original_ncts_Verschluss_Art"& _ "Code)) AND ((@IsNull_ncts_Verschluss_Anzahl = 1 AND [ncts_Verschluss_Anzahl] IS "& _ "NULL) OR ([ncts_Verschluss_Anzahl] = @Original_ncts_Verschluss_Anzahl)) AND ((@I"& _ "sNull_ncts_Verschluss_Zeichen1 = 1 AND [ncts_Verschluss_Zeichen1] IS NULL) OR (["& _ "ncts_Verschluss_Zeichen1] = @Original_ncts_Verschluss_Zeichen1)) AND ((@IsNull_n"& _ "cts_Verschluss_Zeichen2 = 1 AND [ncts_Verschluss_Zeichen2] IS NULL) OR ([ncts_Ve"& _ "rschluss_Zeichen2] = @Original_ncts_Verschluss_Zeichen2)) AND ((@IsNull_ncts_Ver"& _ "schluss_Zeichen3 = 1 AND [ncts_Verschluss_Zeichen3] IS NULL) OR ([ncts_Verschlus"& _ "s_Zeichen3] = @Original_ncts_Verschluss_Zeichen3)) AND ((@IsNull_ncts_Verschluss"& _ "_Zeichen4 = 1 AND [ncts_Verschluss_Zeichen4] IS NULL) OR ([ncts_Verschluss_Zeich"& _ "en4] = @Original_ncts_Verschluss_Zeichen4)) AND ((@IsNull_ncts_Verschluss_Zeiche"& _ "n5 = 1 AND [ncts_Verschluss_Zeichen5] IS NULL) OR ([ncts_Verschluss_Zeichen5] = "& _ "@Original_ncts_Verschluss_Zeichen5)) AND ((@IsNull_ncts_Verschluss_Zeichen6 = 1 "& _ "AND [ncts_Verschluss_Zeichen6] IS NULL) OR ([ncts_Verschluss_Zeichen6] = @Origin"& _ "al_ncts_Verschluss_Zeichen6)) AND ((@IsNull_ncts_Verschluss_Zeichen7 = 1 AND [nc"& _ "ts_Verschluss_Zeichen7] IS NULL) OR ([ncts_Verschluss_Zeichen7] = @Original_ncts"& _ "_Verschluss_Zeichen7)) AND ((@IsNull_ncts_Verschluss_Zeichen8 = 1 AND [ncts_Vers"& _ "chluss_Zeichen8] IS NULL) OR ([ncts_Verschluss_Zeichen8] = @Original_ncts_Versch"& _ "luss_Zeichen8)) AND ((@IsNull_ncts_Verschluss_Zeichen9 = 1 AND [ncts_Verschluss_"& _ "Zeichen9] IS NULL) OR ([ncts_Verschluss_Zeichen9] = @Original_ncts_Verschluss_Ze"& _ "ichen9)) AND ((@IsNull_ncts_Verschluss_Zeichen10 = 1 AND [ncts_Verschluss_Zeiche"& _ "n10] IS NULL) OR ([ncts_Verschluss_Zeichen10] = @Original_ncts_Verschluss_Zeiche"& _ "n10)) AND ((@IsNull_ncts_Verschluss_Zeichen11 = 1 AND [ncts_Verschluss_Zeichen11"& _ "] IS NULL) OR ([ncts_Verschluss_Zeichen11] = @Original_ncts_Verschluss_Zeichen11"& _ ")) AND ((@IsNull_ncts_Verschluss_Zeichen12 = 1 AND [ncts_Verschluss_Zeichen12] I"& _ "S NULL) OR ([ncts_Verschluss_Zeichen12] = @Original_ncts_Verschluss_Zeichen12)) "& _ "AND ((@IsNull_ncts_Verschluss_Zeichen13 = 1 AND [ncts_Verschluss_Zeichen13] IS N"& _ "ULL) OR ([ncts_Verschluss_Zeichen13] = @Original_ncts_Verschluss_Zeichen13)) AND"& _ " ((@IsNull_ncts_Verschluss_Zeichen14 = 1 AND [ncts_Verschluss_Zeichen14] IS NULL"& _ ") OR ([ncts_Verschluss_Zeichen14] = @Original_ncts_Verschluss_Zeichen14)) AND (("& _ "@IsNull_ncts_Verschluss_Zeichen15 = 1 AND [ncts_Verschluss_Zeichen15] IS NULL) O"& _ "R ([ncts_Verschluss_Zeichen15] = @Original_ncts_Verschluss_Zeichen15)) AND ((@Is"& _ "Null_ncts_Verschluss_Zeichen16 = 1 AND [ncts_Verschluss_Zeichen16] IS NULL) OR ("& _ "[ncts_Verschluss_Zeichen16] = @Original_ncts_Verschluss_Zeichen16)) AND ((@IsNul"& _ "l_ncts_Befoerderungsmittel_KennzeichenAbgang = 1 AND [ncts_Befoerderungsmittel_K"& _ "ennzeichenAbgang] IS NULL) OR ([ncts_Befoerderungsmittel_KennzeichenAbgang] = @O"& _ "riginal_ncts_Befoerderungsmittel_KennzeichenAbgang)) AND ((@IsNull_ncts_Befoerde"& _ "rungsmittel_SttaszugehoerigkeitAbgangCode = 1 AND [ncts_Befoerderungsmittel_Stta"& _ "szugehoerigkeitAbgangCode] IS NULL) OR ([ncts_Befoerderungsmittel_Sttaszugehoeri"& _ "gkeitAbgangCode] = @Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangC"& _ "ode)) AND ((@IsNull_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent ="& _ " 1 AND [ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent] IS NULL) OR "& _ "([ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent] = @Original_ncts_B"& _ "efoerderungsmittel_VerkehrszweigGrenzueberschreitent)) AND ((@IsNull_ncts_Befoer"& _ "derungsmittel_ArtGrenzueberschreitung = 1 AND [ncts_Befoerderungsmittel_ArtGrenz"& _ "ueberschreitung] IS NULL) OR ([ncts_Befoerderungsmittel_ArtGrenzueberschreitung]"& _ " = @Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung)) AND ((@IsNull_nc"& _ "ts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = 1 AND [ncts_Befoerderun"& _ "gsmittel_KennzeichenGrenzueberschreitend] IS NULL) OR ([ncts_Befoerderungsmittel"& _ "_KennzeichenGrenzueberschreitend] = @Original_ncts_Befoerderungsmittel_Kennzeich"& _ "enGrenzueberschreitend)) AND ((@IsNull_ncts_Befoerderungsmittel_Staatszugehoerig"& _ "keitGrenzueberschreitendCode = 1 AND [ncts_Befoerderungsmittel_Staatszugehoerigk"& _ "eitGrenzueberschreitendCode] IS NULL) OR ([ncts_Befoerderungsmittel_Staatszugeho"& _ "erigkeitGrenzueberschreitendCode] = @Original_ncts_Befoerderungsmittel_Staatszug"& _ "ehoerigkeitGrenzueberschreitendCode)) AND ((@IsNull_ncts_Versender_EORI = 1 AND "& _ "[ncts_Versender_EORI] IS NULL) OR ([ncts_Versender_EORI] = @Original_ncts_Versen"& _ "der_EORI)) AND ((@IsNull_ncts_Versender_NLNR = 1 AND [ncts_Versender_NLNR] IS NU"& _ "LL) OR ([ncts_Versender_NLNR] = @Original_ncts_Versender_NLNR)) AND ((@IsNull_nc"& _ "ts_Versender_TIN = 1 AND [ncts_Versender_TIN] IS NULL) OR ([ncts_Versender_TIN] "& _ "= @Original_ncts_Versender_TIN)) AND ((@IsNull_ncts_Versender_Name = 1 AND [ncts"& _ "_Versender_Name] IS NULL) OR ([ncts_Versender_Name] = @Original_ncts_Versender_N"& _ "ame)) AND ((@IsNull_ncts_Versender_StrasseHausnummer = 1 AND [ncts_Versender_Str"& _ "asseHausnummer] IS NULL) OR ([ncts_Versender_StrasseHausnummer] = @Original_ncts"& _ "_Versender_StrasseHausnummer)) AND ((@IsNull_ncts_Versender_Ort = 1 AND [ncts_Ve"& _ "rsender_Ort] IS NULL) OR ([ncts_Versender_Ort] = @Original_ncts_Versender_Ort)) "& _ "AND ((@IsNull_ncts_Versender_PLZ = 1 AND [ncts_Versender_PLZ] IS NULL) OR ([ncts"& _ "_Versender_PLZ] = @Original_ncts_Versender_PLZ)) AND ((@IsNull_ncts_Versender_La"& _ "nd = 1 AND [ncts_Versender_Land] IS NULL) OR ([ncts_Versender_Land] = @Original_"& _ "ncts_Versender_Land)) AND ((@IsNull_ncts_Empfaenger_EORI = 1 AND [ncts_Empfaenge"& _ "r_EORI] IS NULL) OR ([ncts_Empfaenger_EORI] = @Original_ncts_Empfaenger_EORI)) A"& _ "ND ((@IsNull_ncts_Empfaenger_NLNR = 1 AND [ncts_Empfaenger_NLNR] IS NULL) OR ([n"& _ "cts_Empfaenger_NLNR] = @Original_ncts_Empfaenger_NLNR)) AND ((@IsNull_ncts_Empfa"& _ "enger_TIN = 1 AND [ncts_Empfaenger_TIN] IS NULL) OR ([ncts_Empfaenger_TIN] = @Or"& _ "iginal_ncts_Empfaenger_TIN)) AND ((@IsNull_ncts_Empfaenger_Name = 1 AND [ncts_Em"& _ "pfaenger_Name] IS NULL) OR ([ncts_Empfaenger_Name] = @Original_ncts_Empfaenger_N"& _ "ame)) AND ((@IsNull_ncts_Empfaenger_StrasseHausnummer = 1 AND [ncts_Empfaenger_S"& _ "trasseHausnummer] IS NULL) OR ([ncts_Empfaenger_StrasseHausnummer] = @Original_n"& _ "cts_Empfaenger_StrasseHausnummer)) AND ((@IsNull_ncts_Empfaenger_Ort = 1 AND [nc"& _ "ts_Empfaenger_Ort] IS NULL) OR ([ncts_Empfaenger_Ort] = @Original_ncts_Empfaenge"& _ "r_Ort)) AND ((@IsNull_ncts_Empfaenger_PLZ = 1 AND [ncts_Empfaenger_PLZ] IS NULL)"& _ " OR ([ncts_Empfaenger_PLZ] = @Original_ncts_Empfaenger_PLZ)) AND ((@IsNull_ncts_"& _ "Empfaenger_Land = 1 AND [ncts_Empfaenger_Land] IS NULL) OR ([ncts_Empfaenger_Lan"& _ "d] = @Original_ncts_Empfaenger_Land)) AND ((@IsNull_ncts_Hauptverpflichteter_EOR"& _ "I = 1 AND [ncts_Hauptverpflichteter_EORI] IS NULL) OR ([ncts_Hauptverpflichteter"& _ "_EORI] = @Original_ncts_Hauptverpflichteter_EORI)) AND ((@IsNull_ncts_Hauptverpf"& _ "lichteter_NLNR = 1 AND [ncts_Hauptverpflichteter_NLNR] IS NULL) OR ([ncts_Hauptv"& _ "erpflichteter_NLNR] = @Original_ncts_Hauptverpflichteter_NLNR)) AND ((@IsNull_nc"& _ "ts_Hauptverpflichteter_TIN = 1 AND [ncts_Hauptverpflichteter_TIN] IS NULL) OR (["& _ "ncts_Hauptverpflichteter_TIN] = @Original_ncts_Hauptverpflichteter_TIN)) AND ((@"& _ "IsNull_ncts_Hauptverpflichteter_Name = 1 AND [ncts_Hauptverpflichteter_Name] IS "& _ "NULL) OR ([ncts_Hauptverpflichteter_Name] = @Original_ncts_Hauptverpflichteter_N"& _ "ame)) AND ((@IsNull_ncts_Hauptverpflichteter_StrasseHausnummer = 1 AND [ncts_Hau"& _ "ptverpflichteter_StrasseHausnummer] IS NULL) OR ([ncts_Hauptverpflichteter_Stras"& _ "seHausnummer] = @Original_ncts_Hauptverpflichteter_StrasseHausnummer)) AND ((@Is"& _ "Null_ncts_Hauptverpflichteter_Ort = 1 AND [ncts_Hauptverpflichteter_Ort] IS NULL"& _ ") OR ([ncts_Hauptverpflichteter_Ort] = @Original_ncts_Hauptverpflichteter_Ort)) "& _ "AND ((@IsNull_ncts_Hauptverpflichteter_PLZ = 1 AND [ncts_Hauptverpflichteter_PLZ"& _ "] IS NULL) OR ([ncts_Hauptverpflichteter_PLZ] = @Original_ncts_Hauptverpflichtet"& _ "er_PLZ)) AND ((@IsNull_ncts_Hauptverpflichteter_Land = 1 AND [ncts_Hauptverpflic"& _ "hteter_Land] IS NULL) OR ([ncts_Hauptverpflichteter_Land] = @Original_ncts_Haupt"& _ "verpflichteter_Land)) AND ((@IsNull_ncts_ZugelassenerEmpfaenger_EORI = 1 AND [nc"& _ "ts_ZugelassenerEmpfaenger_EORI] IS NULL) OR ([ncts_ZugelassenerEmpfaenger_EORI] "& _ "= @Original_ncts_ZugelassenerEmpfaenger_EORI)) AND ((@IsNull_ncts_ZugelassenerEm"& _ "pfaenger_TIN = 1 AND [ncts_ZugelassenerEmpfaenger_TIN] IS NULL) OR ([ncts_Zugela"& _ "ssenerEmpfaenger_TIN] = @Original_ncts_ZugelassenerEmpfaenger_TIN)) AND ((@IsNul"& _ "l_ncts_ZugelassenerEmpfaenger_IDCarnet = 1 AND [ncts_ZugelassenerEmpfaenger_IDCa"& _ "rnet] IS NULL) OR ([ncts_ZugelassenerEmpfaenger_IDCarnet] = @Original_ncts_Zugel"& _ "assenerEmpfaenger_IDCarnet)) AND ((@IsNull_ncts_ZugelassenerEmpfaenger_Bewilligu"& _ "ngsnummerVersender = 1 AND [ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersen"& _ "der] IS NULL) OR ([ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender] = @O"& _ "riginal_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender)) AND ((@IsNull_"& _ "ncts_SumA_KzSumASicherheit = 1 AND [ncts_SumA_KzSumASicherheit] IS NULL) OR ([nc"& _ "ts_SumA_KzSumASicherheit] = @Original_ncts_SumA_KzSumASicherheit)) AND ((@IsNull"& _ "_ncts_SumA_KennnummerSendung = 1 AND [ncts_SumA_KennnummerSendung] IS NULL) OR ("& _ "[ncts_SumA_KennnummerSendung] = @Original_ncts_SumA_KennnummerSendung)) AND ((@I"& _ "sNull_ncts_SumA_NummerBefoerderung = 1 AND [ncts_SumA_NummerBefoerderung] IS NUL"& _ "L) OR ([ncts_SumA_NummerBefoerderung] = @Original_ncts_SumA_NummerBefoerderung))"& _ " AND ((@IsNull_ncts_SumA_BesondereUmstaende = 1 AND [ncts_SumA_BesondereUmstaend"& _ "e] IS NULL) OR ([ncts_SumA_BesondereUmstaende] = @Original_ncts_SumA_BesondereUm"& _ "staende)) AND ((@IsNull_ncts_SumA_Ladeort = 1 AND [ncts_SumA_Ladeort] IS NULL) O"& _ "R ([ncts_SumA_Ladeort] = @Original_ncts_SumA_Ladeort)) AND ((@IsNull_ncts_SumA_E"& _ "ntladeort = 1 AND [ncts_SumA_Entladeort] IS NULL) OR ([ncts_SumA_Entladeort] = @"& _ "Original_ncts_SumA_Entladeort)) AND ((@IsNull_ncts_SumA_BefoerderungskostenZahlu"& _ "ngsweise = 1 AND [ncts_SumA_BefoerderungskostenZahlungsweise] IS NULL) OR ([ncts"& _ "_SumA_BefoerderungskostenZahlungsweise] = @Original_ncts_SumA_Befoerderungskoste"& _ "nZahlungsweise)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand1 = 1 AND [ncts_S"& _ "umA_BefoerderungsrouteLand1] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand1] = "& _ "@Original_ncts_SumA_BefoerderungsrouteLand1)) AND ((@IsNull_ncts_SumA_Befoerderu"& _ "ngsrouteLand2 = 1 AND [ncts_SumA_BefoerderungsrouteLand2] IS NULL) OR ([ncts_Sum"& _ "A_BefoerderungsrouteLand2] = @Original_ncts_SumA_BefoerderungsrouteLand2)) AND ("& _ "(@IsNull_ncts_SumA_BefoerderungsrouteLand3 = 1 AND [ncts_SumA_Befoerderungsroute"& _ "Land3] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand3] = @Original_ncts_SumA_Be"& _ "foerderungsrouteLand3)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand4 = 1 AND "& _ "[ncts_SumA_BefoerderungsrouteLand4] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLa"& _ "nd4] = @Original_ncts_SumA_BefoerderungsrouteLand4)) AND ((@IsNull_ncts_SumA_Bef"& _ "oerderungsrouteLand5 = 1 AND [ncts_SumA_BefoerderungsrouteLand5] IS NULL) OR ([n"& _ "cts_SumA_BefoerderungsrouteLand5] = @Original_ncts_SumA_BefoerderungsrouteLand5)"& _ ") AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand6 = 1 AND [ncts_SumA_Befoerderun"& _ "gsrouteLand6] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand6] = @Original_ncts_"& _ "SumA_BefoerderungsrouteLand6)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand7 ="& _ " 1 AND [ncts_SumA_BefoerderungsrouteLand7] IS NULL) OR ([ncts_SumA_Befoerderungs"& _ "routeLand7] = @Original_ncts_SumA_BefoerderungsrouteLand7)) AND ((@IsNull_ncts_S"& _ "umA_BefoerderungsrouteLand8 = 1 AND [ncts_SumA_BefoerderungsrouteLand8] IS NULL)"& _ " OR ([ncts_SumA_BefoerderungsrouteLand8] = @Original_ncts_SumA_Befoerderungsrout"& _ "eLand8)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand9 = 1 AND [ncts_SumA_Befo"& _ "erderungsrouteLand9] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand9] = @Origina"& _ "l_ncts_SumA_BefoerderungsrouteLand9)) AND ((@IsNull_ncts_SumA_Befoerderungsroute"& _ "Land10 = 1 AND [ncts_SumA_BefoerderungsrouteLand10] IS NULL) OR ([ncts_SumA_Befo"& _ "erderungsrouteLand10] = @Original_ncts_SumA_BefoerderungsrouteLand10)) AND ((@Is"& _ "Null_ncts_SumA_BefoerderungsrouteLand11 = 1 AND [ncts_SumA_BefoerderungsrouteLan"& _ "d11] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand11] = @Original_ncts_SumA_Bef"& _ "oerderungsrouteLand11)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand12 = 1 AND"& _ " [ncts_SumA_BefoerderungsrouteLand12] IS NULL) OR ([ncts_SumA_Befoerderungsroute"& _ "Land12] = @Original_ncts_SumA_BefoerderungsrouteLand12)) AND ((@IsNull_ncts_SumA"& _ "_Versender_EORI = 1 AND [ncts_SumA_Versender_EORI] IS NULL) OR ([ncts_SumA_Verse"& _ "nder_EORI] = @Original_ncts_SumA_Versender_EORI)) AND ((@IsNull_ncts_SumA_Versen"& _ "der_NLNR = 1 AND [ncts_SumA_Versender_NLNR] IS NULL) OR ([ncts_SumA_Versender_NL"& _ "NR] = @Original_ncts_SumA_Versender_NLNR)) AND ((@IsNull_ncts_SumA_Versender_TIN"& _ " = 1 AND [ncts_SumA_Versender_TIN] IS NULL) OR ([ncts_SumA_Versender_TIN] = @Ori"& _ "ginal_ncts_SumA_Versender_TIN)) AND ((@IsNull_ncts_SumA_Versender_Name = 1 AND ["& _ "ncts_SumA_Versender_Name] IS NULL) OR ([ncts_SumA_Versender_Name] = @Original_nc"& _ "ts_SumA_Versender_Name)) AND ((@IsNull_ncts_SumA_Versender_StrasseHausnummer = 1"& _ " AND [ncts_SumA_Versender_StrasseHausnummer] IS NULL) OR ([ncts_SumA_Versender_S"& _ "trasseHausnummer] = @Original_ncts_SumA_Versender_StrasseHausnummer)) AND ((@IsN"& _ "ull_ncts_SumA_Versender_Land = 1 AND [ncts_SumA_Versender_Land] IS NULL) OR ([nc"& _ "ts_SumA_Versender_Land] = @Original_ncts_SumA_Versender_Land)) AND ((@IsNull_nct"& _ "s_SumA_Versender_PLZ = 1 AND [ncts_SumA_Versender_PLZ] IS NULL) OR ([ncts_SumA_V"& _ "ersender_PLZ] = @Original_ncts_SumA_Versender_PLZ)) AND ((@IsNull_ncts_SumA_Vers"& _ "ender_Ort = 1 AND [ncts_SumA_Versender_Ort] IS NULL) OR ([ncts_SumA_Versender_Or"& _ "t] = @Original_ncts_SumA_Versender_Ort)) AND ((@IsNull_ncts_SumA_Empfaenger_EORI"& _ " = 1 AND [ncts_SumA_Empfaenger_EORI] IS NULL) OR ([ncts_SumA_Empfaenger_EORI] = "& _ "@Original_ncts_SumA_Empfaenger_EORI)) AND ((@IsNull_ncts_SumA_Empfaenger_NLNR = "& _ "1 AND [ncts_SumA_Empfaenger_NLNR] IS NULL) OR ([ncts_SumA_Empfaenger_NLNR] = @Or"& _ "iginal_ncts_SumA_Empfaenger_NLNR)) AND ((@IsNull_ncts_SumA_Empfaenger_TIN = 1 AN"& _ "D [ncts_SumA_Empfaenger_TIN] IS NULL) OR ([ncts_SumA_Empfaenger_TIN] = @Original"& _ "_ncts_SumA_Empfaenger_TIN)) AND ((@IsNull_ncts_SumA_Empfaenger_Name = 1 AND [nct"& _ "s_SumA_Empfaenger_Name] IS NULL) OR ([ncts_SumA_Empfaenger_Name] = @Original_nct"& _ "s_SumA_Empfaenger_Name)) AND ((@IsNull_ncts_SumA_Empfaenger_StrasseHausnummer = "& _ "1 AND [ncts_SumA_Empfaenger_StrasseHausnummer] IS NULL) OR ([ncts_SumA_Empfaenge"& _ "r_StrasseHausnummer] = @Original_ncts_SumA_Empfaenger_StrasseHausnummer)) AND (("& _ "@IsNull_ncts_SumA_Empfaenger_Land = 1 AND [ncts_SumA_Empfaenger_Land] IS NULL) O"& _ "R ([ncts_SumA_Empfaenger_Land] = @Original_ncts_SumA_Empfaenger_Land)) AND ((@Is"& _ "Null_ncts_SumA_Empfaenger_PLZ = 1 AND [ncts_SumA_Empfaenger_PLZ] IS NULL) OR ([n"& _ "cts_SumA_Empfaenger_PLZ] = @Original_ncts_SumA_Empfaenger_PLZ)) AND ((@IsNull_nc"& _ "ts_SumA_Empfaenger_Ort = 1 AND [ncts_SumA_Empfaenger_Ort] IS NULL) OR ([ncts_Sum"& _ "A_Empfaenger_Ort] = @Original_ncts_SumA_Empfaenger_Ort)) AND ((@IsNull_ncts_SumA"& _ "_Befoerderer_EORI = 1 AND [ncts_SumA_Befoerderer_EORI] IS NULL) OR ([ncts_SumA_B"& _ "efoerderer_EORI] = @Original_ncts_SumA_Befoerderer_EORI)) AND ((@IsNull_ncts_Sum"& _ "A_Befoerderer_NLNR = 1 AND [ncts_SumA_Befoerderer_NLNR] IS NULL) OR ([ncts_SumA_"& _ "Befoerderer_NLNR] = @Original_ncts_SumA_Befoerderer_NLNR)) AND ((@IsNull_ncts_Su"& _ "mA_Befoerderer_TIN = 1 AND [ncts_SumA_Befoerderer_TIN] IS NULL) OR ([ncts_SumA_B"& _ "efoerderer_TIN] = @Original_ncts_SumA_Befoerderer_TIN)) AND ((@IsNull_ncts_SumA_"& _ "Befoerderer_Name = 1 AND [ncts_SumA_Befoerderer_Name] IS NULL) OR ([ncts_SumA_Be"& _ "foerderer_Name] = @Original_ncts_SumA_Befoerderer_Name)) AND ((@IsNull_ncts_SumA"& _ "_Befoerderer_StrasseHausnummer = 1 AND [ncts_SumA_Befoerderer_StrasseHausnummer]"& _ " IS NULL) OR ([ncts_SumA_Befoerderer_StrasseHausnummer] = @Original_ncts_SumA_Be"& _ "foerderer_StrasseHausnummer)) AND ((@IsNull_ncts_SumA_Befoerderer_Land = 1 AND ["& _ "ncts_SumA_Befoerderer_Land] IS NULL) OR ([ncts_SumA_Befoerderer_Land] = @Origina"& _ "l_ncts_SumA_Befoerderer_Land)) AND ((@IsNull_ncts_SumA_Befoerderer_PLZ = 1 AND ["& _ "ncts_SumA_Befoerderer_PLZ] IS NULL) OR ([ncts_SumA_Befoerderer_PLZ] = @Original_"& _ "ncts_SumA_Befoerderer_PLZ)) AND ((@IsNull_ncts_SumA_Befoerderer_Ort = 1 AND [nct"& _ "s_SumA_Befoerderer_Ort] IS NULL) OR ([ncts_SumA_Befoerderer_Ort] = @Original_nct"& _ "s_SumA_Befoerderer_Ort)) AND ((@IsNull_ncts_Stammreferenz = 1 AND [ncts_Stammref"& _ "erenz] IS NULL) OR ([ncts_Stammreferenz] = @Original_ncts_Stammreferenz)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ANR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GestelltAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Partner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectAlias", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Bearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_VersendungsLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BestimmungslandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ArtAnmeldung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ArtAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BeladungsOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BeladungsOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GesamtRohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Ladeort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Ladeort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Entladeort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Entladeort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Stammreferenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", 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].[tblDakosy_NCTSOut] ([ncts_Status], [ncts_Status_KEWILL_Equival"& _ "ent], [ncts_dyaArt], [ncts_dyaAnmID], [ncts_ANR], [ncts_MRN], [ncts_Erstellung],"& _ " [ncts_Erstellung_SB], [ncts_LetzteBearbeitung], [ncts_LetzteBearbeitung_SB], [n"& _ "cts_firma], [ncts_niederlassung], [ncts_Gestellt], [ncts_GestelltAm], [ncts_Tran"& _ "s_Partner], [ncts_Trans_Div1], [ncts_Trans_Div2], [ncts_Trans_Div3], [ncts_Trans"& _ "_Referenz], [ncts_Trans_DatumZeit], [ncts_Trans_Version], [ncts_NachrichtenSende"& _ "rTIN], [ncts_NachrichtenSenderNLNR], [ncts_NachrichtenempfaengerDST], [ncts_Obje"& _ "ctName], [ncts_ObjectAlias], [ncts_BezugsnummerVorblendung], [ncts_Bearbeiter], "& _ "[ncts_VersendungsLandCode], [ncts_BestimmungslandCode], [ncts_ArtAnmeldung], [nc"& _ "ts_BeladungsOrt], [ncts_DurchgangszollstelleDienststellnummer1], [ncts_Durchgang"& _ "szollstelleDienststellnummer2], [ncts_DurchgangszollstelleDienststellnummer3], ["& _ "ncts_DurchgangszollstelleDienststellnummer4], [ncts_DurchgangszollstelleDienstst"& _ "ellnummer5], [ncts_DurchgangszollstelleDienststellnummer6], [ncts_Durchgangszoll"& _ "stelleDienststellnummer7], [ncts_DurchgangszollstelleDienststellnummer8], [ncts_"& _ "DurchgangszollstelleDienststellnummer9], [ncts_BestimmungsstelleDienststellennum"& _ "mer], [ncts_AbgangsDienststellennummer], [ncts_Wiedergestellungsdatum], [ncts_Kz"& _ "VereinfachtesVerfahren], [ncts_GesamtRohmasse], [ncts_GesamtAnzahlPackstuecke], "& _ "[ncts_Verschluss_ArtCode], [ncts_Verschluss_Anzahl], [ncts_Verschluss_Zeichen1],"& _ " [ncts_Verschluss_Zeichen2], [ncts_Verschluss_Zeichen3], [ncts_Verschluss_Zeiche"& _ "n4], [ncts_Verschluss_Zeichen5], [ncts_Verschluss_Zeichen6], [ncts_Verschluss_Ze"& _ "ichen7], [ncts_Verschluss_Zeichen8], [ncts_Verschluss_Zeichen9], [ncts_Verschlus"& _ "s_Zeichen10], [ncts_Verschluss_Zeichen11], [ncts_Verschluss_Zeichen12], [ncts_Ve"& _ "rschluss_Zeichen13], [ncts_Verschluss_Zeichen14], [ncts_Verschluss_Zeichen15], ["& _ "ncts_Verschluss_Zeichen16], [ncts_Befoerderungsmittel_KennzeichenAbgang], [ncts_"& _ "Befoerderungsmittel_SttaszugehoerigkeitAbgangCode], [ncts_Befoerderungsmittel_Ve"& _ "rkehrszweigGrenzueberschreitent], [ncts_Befoerderungsmittel_ArtGrenzueberschreit"& _ "ung], [ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend], [ncts_Befoerde"& _ "rungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode], [ncts_Versender_EORI]"& _ ", [ncts_Versender_NLNR], [ncts_Versender_TIN], [ncts_Versender_Name], [ncts_Vers"& _ "ender_StrasseHausnummer], [ncts_Versender_Ort], [ncts_Versender_PLZ], [ncts_Vers"& _ "ender_Land], [ncts_Empfaenger_EORI], [ncts_Empfaenger_NLNR], [ncts_Empfaenger_TI"& _ "N], [ncts_Empfaenger_Name], [ncts_Empfaenger_StrasseHausnummer], [ncts_Empfaenge"& _ "r_Ort], [ncts_Empfaenger_PLZ], [ncts_Empfaenger_Land], [ncts_Hauptverpflichteter"& _ "_EORI], [ncts_Hauptverpflichteter_NLNR], [ncts_Hauptverpflichteter_TIN], [ncts_H"& _ "auptverpflichteter_Name], [ncts_Hauptverpflichteter_StrasseHausnummer], [ncts_Ha"& _ "uptverpflichteter_Ort], [ncts_Hauptverpflichteter_PLZ], [ncts_Hauptverpflichtete"& _ "r_Land], [ncts_ZugelassenerEmpfaenger_EORI], [ncts_ZugelassenerEmpfaenger_TIN], "& _ "[ncts_ZugelassenerEmpfaenger_IDCarnet], [ncts_ZugelassenerEmpfaenger_Bewilligung"& _ "snummerVersender], [ncts_SumA_KzSumASicherheit], [ncts_SumA_KennnummerSendung], "& _ "[ncts_SumA_NummerBefoerderung], [ncts_SumA_BesondereUmstaende], [ncts_SumA_Ladeo"& _ "rt], [ncts_SumA_Entladeort], [ncts_SumA_BefoerderungskostenZahlungsweise], [ncts"& _ "_SumA_BefoerderungsrouteLand1], [ncts_SumA_BefoerderungsrouteLand2], [ncts_SumA_"& _ "BefoerderungsrouteLand3], [ncts_SumA_BefoerderungsrouteLand4], [ncts_SumA_Befoer"& _ "derungsrouteLand5], [ncts_SumA_BefoerderungsrouteLand6], [ncts_SumA_Befoerderung"& _ "srouteLand7], [ncts_SumA_BefoerderungsrouteLand8], [ncts_SumA_Befoerderungsroute"& _ "Land9], [ncts_SumA_BefoerderungsrouteLand10], [ncts_SumA_BefoerderungsrouteLand1"& _ "1], [ncts_SumA_BefoerderungsrouteLand12], [ncts_SumA_Versender_EORI], [ncts_SumA"& _ "_Versender_NLNR], [ncts_SumA_Versender_TIN], [ncts_SumA_Versender_Name], [ncts_S"& _ "umA_Versender_StrasseHausnummer], [ncts_SumA_Versender_Land], [ncts_SumA_Versend"& _ "er_PLZ], [ncts_SumA_Versender_Ort], [ncts_SumA_Empfaenger_EORI], [ncts_SumA_Empf"& _ "aenger_NLNR], [ncts_SumA_Empfaenger_TIN], [ncts_SumA_Empfaenger_Name], [ncts_Sum"& _ "A_Empfaenger_StrasseHausnummer], [ncts_SumA_Empfaenger_Land], [ncts_SumA_Empfaen"& _ "ger_PLZ], [ncts_SumA_Empfaenger_Ort], [ncts_SumA_Befoerderer_EORI], [ncts_SumA_B"& _ "efoerderer_NLNR], [ncts_SumA_Befoerderer_TIN], [ncts_SumA_Befoerderer_Name], [nc"& _ "ts_SumA_Befoerderer_StrasseHausnummer], [ncts_SumA_Befoerderer_Land], [ncts_SumA"& _ "_Befoerderer_PLZ], [ncts_SumA_Befoerderer_Ort], [ncts_Stammreferenz]) VALUES (@n"& _ "cts_Status, @ncts_Status_KEWILL_Equivalent, @ncts_dyaArt, @ncts_dyaAnmID, @ncts_"& _ "ANR, @ncts_MRN, @ncts_Erstellung, @ncts_Erstellung_SB, @ncts_LetzteBearbeitung, "& _ "@ncts_LetzteBearbeitung_SB, @ncts_firma, @ncts_niederlassung, @ncts_Gestellt, @n"& _ "cts_GestelltAm, @ncts_Trans_Partner, @ncts_Trans_Div1, @ncts_Trans_Div2, @ncts_T"& _ "rans_Div3, @ncts_Trans_Referenz, @ncts_Trans_DatumZeit, @ncts_Trans_Version, @nc"& _ "ts_NachrichtenSenderTIN, @ncts_NachrichtenSenderNLNR, @ncts_Nachrichtenempfaenge"& _ "rDST, @ncts_ObjectName, @ncts_ObjectAlias, @ncts_BezugsnummerVorblendung, @ncts_"& _ "Bearbeiter, @ncts_VersendungsLandCode, @ncts_BestimmungslandCode, @ncts_ArtAnmel"& _ "dung, @ncts_BeladungsOrt, @ncts_DurchgangszollstelleDienststellnummer1, @ncts_Du"& _ "rchgangszollstelleDienststellnummer2, @ncts_DurchgangszollstelleDienststellnumme"& _ "r3, @ncts_DurchgangszollstelleDienststellnummer4, @ncts_DurchgangszollstelleDien"& _ "ststellnummer5, @ncts_DurchgangszollstelleDienststellnummer6, @ncts_Durchgangszo"& _ "llstelleDienststellnummer7, @ncts_DurchgangszollstelleDienststellnummer8, @ncts_"& _ "DurchgangszollstelleDienststellnummer9, @ncts_BestimmungsstelleDienststellennumm"& _ "er, @ncts_AbgangsDienststellennummer, @ncts_Wiedergestellungsdatum, @ncts_KzVere"& _ "infachtesVerfahren, @ncts_GesamtRohmasse, @ncts_GesamtAnzahlPackstuecke, @ncts_V"& _ "erschluss_ArtCode, @ncts_Verschluss_Anzahl, @ncts_Verschluss_Zeichen1, @ncts_Ver"& _ "schluss_Zeichen2, @ncts_Verschluss_Zeichen3, @ncts_Verschluss_Zeichen4, @ncts_Ve"& _ "rschluss_Zeichen5, @ncts_Verschluss_Zeichen6, @ncts_Verschluss_Zeichen7, @ncts_V"& _ "erschluss_Zeichen8, @ncts_Verschluss_Zeichen9, @ncts_Verschluss_Zeichen10, @ncts"& _ "_Verschluss_Zeichen11, @ncts_Verschluss_Zeichen12, @ncts_Verschluss_Zeichen13, @"& _ "ncts_Verschluss_Zeichen14, @ncts_Verschluss_Zeichen15, @ncts_Verschluss_Zeichen1"& _ "6, @ncts_Befoerderungsmittel_KennzeichenAbgang, @ncts_Befoerderungsmittel_Sttasz"& _ "ugehoerigkeitAbgangCode, @ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschrei"& _ "tent, @ncts_Befoerderungsmittel_ArtGrenzueberschreitung, @ncts_Befoerderungsmitt"& _ "el_KennzeichenGrenzueberschreitend, @ncts_Befoerderungsmittel_Staatszugehoerigke"& _ "itGrenzueberschreitendCode, @ncts_Versender_EORI, @ncts_Versender_NLNR, @ncts_Ve"& _ "rsender_TIN, @ncts_Versender_Name, @ncts_Versender_StrasseHausnummer, @ncts_Vers"& _ "ender_Ort, @ncts_Versender_PLZ, @ncts_Versender_Land, @ncts_Empfaenger_EORI, @nc"& _ "ts_Empfaenger_NLNR, @ncts_Empfaenger_TIN, @ncts_Empfaenger_Name, @ncts_Empfaenge"& _ "r_StrasseHausnummer, @ncts_Empfaenger_Ort, @ncts_Empfaenger_PLZ, @ncts_Empfaenge"& _ "r_Land, @ncts_Hauptverpflichteter_EORI, @ncts_Hauptverpflichteter_NLNR, @ncts_Ha"& _ "uptverpflichteter_TIN, @ncts_Hauptverpflichteter_Name, @ncts_Hauptverpflichteter"& _ "_StrasseHausnummer, @ncts_Hauptverpflichteter_Ort, @ncts_Hauptverpflichteter_PLZ"& _ ", @ncts_Hauptverpflichteter_Land, @ncts_ZugelassenerEmpfaenger_EORI, @ncts_Zugel"& _ "assenerEmpfaenger_TIN, @ncts_ZugelassenerEmpfaenger_IDCarnet, @ncts_Zugelassener"& _ "Empfaenger_BewilligungsnummerVersender, @ncts_SumA_KzSumASicherheit, @ncts_SumA_"& _ "KennnummerSendung, @ncts_SumA_NummerBefoerderung, @ncts_SumA_BesondereUmstaende,"& _ " @ncts_SumA_Ladeort, @ncts_SumA_Entladeort, @ncts_SumA_BefoerderungskostenZahlun"& _ "gsweise, @ncts_SumA_BefoerderungsrouteLand1, @ncts_SumA_BefoerderungsrouteLand2,"& _ " @ncts_SumA_BefoerderungsrouteLand3, @ncts_SumA_BefoerderungsrouteLand4, @ncts_S"& _ "umA_BefoerderungsrouteLand5, @ncts_SumA_BefoerderungsrouteLand6, @ncts_SumA_Befo"& _ "erderungsrouteLand7, @ncts_SumA_BefoerderungsrouteLand8, @ncts_SumA_Befoerderung"& _ "srouteLand9, @ncts_SumA_BefoerderungsrouteLand10, @ncts_SumA_BefoerderungsrouteL"& _ "and11, @ncts_SumA_BefoerderungsrouteLand12, @ncts_SumA_Versender_EORI, @ncts_Sum"& _ "A_Versender_NLNR, @ncts_SumA_Versender_TIN, @ncts_SumA_Versender_Name, @ncts_Sum"& _ "A_Versender_StrasseHausnummer, @ncts_SumA_Versender_Land, @ncts_SumA_Versender_P"& _ "LZ, @ncts_SumA_Versender_Ort, @ncts_SumA_Empfaenger_EORI, @ncts_SumA_Empfaenger_"& _ "NLNR, @ncts_SumA_Empfaenger_TIN, @ncts_SumA_Empfaenger_Name, @ncts_SumA_Empfaeng"& _ "er_StrasseHausnummer, @ncts_SumA_Empfaenger_Land, @ncts_SumA_Empfaenger_PLZ, @nc"& _ "ts_SumA_Empfaenger_Ort, @ncts_SumA_Befoerderer_EORI, @ncts_SumA_Befoerderer_NLNR"& _ ", @ncts_SumA_Befoerderer_TIN, @ncts_SumA_Befoerderer_Name, @ncts_SumA_Befoerdere"& _ "r_StrasseHausnummer, @ncts_SumA_Befoerderer_Land, @ncts_SumA_Befoerderer_PLZ, @n"& _ "cts_SumA_Befoerderer_Ort, @ncts_Stammreferenz);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ncts_Id, ncts_Status, nc"& _ "ts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR, ncts_MRN, nct"& _ "s_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_LetzteBearbeitung"& _ "_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_GestelltAm, ncts_Trans_"& _ "Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_Trans_Referenz,"& _ " ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenSenderTIN, ncts_Nachr"& _ "ichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, ncts_ObjectAli"& _ "as, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_VersendungsLandCode, nct"& _ "s_BestimmungslandCode, ncts_ArtAnmeldung, ncts_BeladungsOrt, ncts_Durchgangszoll"& _ "stelleDienststellnummer1, ncts_DurchgangszollstelleDienststellnummer2, ncts_Durc"& _ "hgangszollstelleDienststellnummer3, ncts_DurchgangszollstelleDienststellnummer4,"& _ " ncts_DurchgangszollstelleDienststellnummer5, ncts_DurchgangszollstelleDienstste"& _ "llnummer6, ncts_DurchgangszollstelleDienststellnummer7, ncts_Durchgangszollstell"& _ "eDienststellnummer8, ncts_DurchgangszollstelleDienststellnummer9, ncts_Bestimmun"& _ "gsstelleDienststellennummer, ncts_AbgangsDienststellennummer, ncts_Wiedergestell"& _ "ungsdatum, ncts_KzVereinfachtesVerfahren, ncts_GesamtRohmasse, ncts_GesamtAnzahl"& _ "Packstuecke, ncts_Verschluss_ArtCode, ncts_Verschluss_Anzahl, ncts_Verschluss_Ze"& _ "ichen1, ncts_Verschluss_Zeichen2, ncts_Verschluss_Zeichen3, ncts_Verschluss_Zeic"& _ "hen4, ncts_Verschluss_Zeichen5, ncts_Verschluss_Zeichen6, ncts_Verschluss_Zeiche"& _ "n7, ncts_Verschluss_Zeichen8, ncts_Verschluss_Zeichen9, ncts_Verschluss_Zeichen1"& _ "0, ncts_Verschluss_Zeichen11, ncts_Verschluss_Zeichen12, ncts_Verschluss_Zeichen"& _ "13, ncts_Verschluss_Zeichen14, ncts_Verschluss_Zeichen15, ncts_Verschluss_Zeiche"& _ "n16, ncts_Befoerderungsmittel_KennzeichenAbgang, ncts_Befoerderungsmittel_Sttasz"& _ "ugehoerigkeitAbgangCode, ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreit"& _ "ent, ncts_Befoerderungsmittel_ArtGrenzueberschreitung, ncts_Befoerderungsmittel_"& _ "KennzeichenGrenzueberschreitend, ncts_Befoerderungsmittel_StaatszugehoerigkeitGr"& _ "enzueberschreitendCode, ncts_Versender_EORI, ncts_Versender_NLNR, ncts_Versender"& _ "_TIN, ncts_Versender_Name, ncts_Versender_StrasseHausnummer, ncts_Versender_Ort,"& _ " ncts_Versender_PLZ, ncts_Versender_Land, ncts_Empfaenger_EORI, ncts_Empfaenger_"& _ "NLNR, ncts_Empfaenger_TIN, ncts_Empfaenger_Name, ncts_Empfaenger_StrasseHausnumm"& _ "er, ncts_Empfaenger_Ort, ncts_Empfaenger_PLZ, ncts_Empfaenger_Land, ncts_Hauptve"& _ "rpflichteter_EORI, ncts_Hauptverpflichteter_NLNR, ncts_Hauptverpflichteter_TIN, "& _ "ncts_Hauptverpflichteter_Name, ncts_Hauptverpflichteter_StrasseHausnummer, ncts_"& _ "Hauptverpflichteter_Ort, ncts_Hauptverpflichteter_PLZ, ncts_Hauptverpflichteter_"& _ "Land, ncts_ZugelassenerEmpfaenger_EORI, ncts_ZugelassenerEmpfaenger_TIN, ncts_Zu"& _ "gelassenerEmpfaenger_IDCarnet, ncts_ZugelassenerEmpfaenger_BewilligungsnummerVer"& _ "sender, ncts_SumA_KzSumASicherheit, ncts_SumA_KennnummerSendung, ncts_SumA_Numme"& _ "rBefoerderung, ncts_SumA_BesondereUmstaende, ncts_SumA_Ladeort, ncts_SumA_Entlad"& _ "eort, ncts_SumA_BefoerderungskostenZahlungsweise, ncts_SumA_BefoerderungsrouteLa"& _ "nd1, ncts_SumA_BefoerderungsrouteLand2, ncts_SumA_BefoerderungsrouteLand3, ncts_"& _ "SumA_BefoerderungsrouteLand4, ncts_SumA_BefoerderungsrouteLand5, ncts_SumA_Befoe"& _ "rderungsrouteLand6, ncts_SumA_BefoerderungsrouteLand7, ncts_SumA_Befoerderungsro"& _ "uteLand8, ncts_SumA_BefoerderungsrouteLand9, ncts_SumA_BefoerderungsrouteLand10,"& _ " ncts_SumA_BefoerderungsrouteLand11, ncts_SumA_BefoerderungsrouteLand12, ncts_Su"& _ "mA_Versender_EORI, ncts_SumA_Versender_NLNR, ncts_SumA_Versender_TIN, ncts_SumA_"& _ "Versender_Name, ncts_SumA_Versender_StrasseHausnummer, ncts_SumA_Versender_Land,"& _ " ncts_SumA_Versender_PLZ, ncts_SumA_Versender_Ort, ncts_SumA_Empfaenger_EORI, nc"& _ "ts_SumA_Empfaenger_NLNR, ncts_SumA_Empfaenger_TIN, ncts_SumA_Empfaenger_Name, nc"& _ "ts_SumA_Empfaenger_StrasseHausnummer, ncts_SumA_Empfaenger_Land, ncts_SumA_Empfa"& _ "enger_PLZ, ncts_SumA_Empfaenger_Ort, ncts_SumA_Befoerderer_EORI, ncts_SumA_Befoe"& _ "rderer_NLNR, ncts_SumA_Befoerderer_TIN, ncts_SumA_Befoerderer_Name, ncts_SumA_Be"& _ "foerderer_StrasseHausnummer, ncts_SumA_Befoerderer_Land, ncts_SumA_Befoerderer_P"& _ "LZ, ncts_SumA_Befoerderer_Ort, ncts_Stammreferenz FROM tblDakosy_NCTSOut WHERE ("& _ "ncts_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ArtAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BeladungsOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Ladeort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Entladeort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", 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].[tblDakosy_NCTSOut] SET [ncts_Status] = @ncts_Status, [ncts_Status_K"& _ "EWILL_Equivalent] = @ncts_Status_KEWILL_Equivalent, [ncts_dyaArt] = @ncts_dyaArt"& _ ", [ncts_dyaAnmID] = @ncts_dyaAnmID, [ncts_ANR] = @ncts_ANR, [ncts_MRN] = @ncts_M"& _ "RN, [ncts_Erstellung] = @ncts_Erstellung, [ncts_Erstellung_SB] = @ncts_Erstellun"& _ "g_SB, [ncts_LetzteBearbeitung] = @ncts_LetzteBearbeitung, [ncts_LetzteBearbeitun"& _ "g_SB] = @ncts_LetzteBearbeitung_SB, [ncts_firma] = @ncts_firma, [ncts_niederlass"& _ "ung] = @ncts_niederlassung, [ncts_Gestellt] = @ncts_Gestellt, [ncts_GestelltAm] "& _ "= @ncts_GestelltAm, [ncts_Trans_Partner] = @ncts_Trans_Partner, [ncts_Trans_Div1"& _ "] = @ncts_Trans_Div1, [ncts_Trans_Div2] = @ncts_Trans_Div2, [ncts_Trans_Div3] = "& _ "@ncts_Trans_Div3, [ncts_Trans_Referenz] = @ncts_Trans_Referenz, [ncts_Trans_Datu"& _ "mZeit] = @ncts_Trans_DatumZeit, [ncts_Trans_Version] = @ncts_Trans_Version, [nct"& _ "s_NachrichtenSenderTIN] = @ncts_NachrichtenSenderTIN, [ncts_NachrichtenSenderNLN"& _ "R] = @ncts_NachrichtenSenderNLNR, [ncts_NachrichtenempfaengerDST] = @ncts_Nachri"& _ "chtenempfaengerDST, [ncts_ObjectName] = @ncts_ObjectName, [ncts_ObjectAlias] = @"& _ "ncts_ObjectAlias, [ncts_BezugsnummerVorblendung] = @ncts_BezugsnummerVorblendung"& _ ", [ncts_Bearbeiter] = @ncts_Bearbeiter, [ncts_VersendungsLandCode] = @ncts_Verse"& _ "ndungsLandCode, [ncts_BestimmungslandCode] = @ncts_BestimmungslandCode, [ncts_Ar"& _ "tAnmeldung] = @ncts_ArtAnmeldung, [ncts_BeladungsOrt] = @ncts_BeladungsOrt, [nct"& _ "s_DurchgangszollstelleDienststellnummer1] = @ncts_DurchgangszollstelleDienststel"& _ "lnummer1, [ncts_DurchgangszollstelleDienststellnummer2] = @ncts_Durchgangszollst"& _ "elleDienststellnummer2, [ncts_DurchgangszollstelleDienststellnummer3] = @ncts_Du"& _ "rchgangszollstelleDienststellnummer3, [ncts_DurchgangszollstelleDienststellnumme"& _ "r4] = @ncts_DurchgangszollstelleDienststellnummer4, [ncts_DurchgangszollstelleDi"& _ "enststellnummer5] = @ncts_DurchgangszollstelleDienststellnummer5, [ncts_Durchgan"& _ "gszollstelleDienststellnummer6] = @ncts_DurchgangszollstelleDienststellnummer6, "& _ "[ncts_DurchgangszollstelleDienststellnummer7] = @ncts_DurchgangszollstelleDienst"& _ "stellnummer7, [ncts_DurchgangszollstelleDienststellnummer8] = @ncts_Durchgangszo"& _ "llstelleDienststellnummer8, [ncts_DurchgangszollstelleDienststellnummer9] = @nct"& _ "s_DurchgangszollstelleDienststellnummer9, [ncts_BestimmungsstelleDienststellennu"& _ "mmer] = @ncts_BestimmungsstelleDienststellennummer, [ncts_AbgangsDienststellennu"& _ "mmer] = @ncts_AbgangsDienststellennummer, [ncts_Wiedergestellungsdatum] = @ncts_"& _ "Wiedergestellungsdatum, [ncts_KzVereinfachtesVerfahren] = @ncts_KzVereinfachtesV"& _ "erfahren, [ncts_GesamtRohmasse] = @ncts_GesamtRohmasse, [ncts_GesamtAnzahlPackst"& _ "uecke] = @ncts_GesamtAnzahlPackstuecke, [ncts_Verschluss_ArtCode] = @ncts_Versch"& _ "luss_ArtCode, [ncts_Verschluss_Anzahl] = @ncts_Verschluss_Anzahl, [ncts_Verschlu"& _ "ss_Zeichen1] = @ncts_Verschluss_Zeichen1, [ncts_Verschluss_Zeichen2] = @ncts_Ver"& _ "schluss_Zeichen2, [ncts_Verschluss_Zeichen3] = @ncts_Verschluss_Zeichen3, [ncts_"& _ "Verschluss_Zeichen4] = @ncts_Verschluss_Zeichen4, [ncts_Verschluss_Zeichen5] = @"& _ "ncts_Verschluss_Zeichen5, [ncts_Verschluss_Zeichen6] = @ncts_Verschluss_Zeichen6"& _ ", [ncts_Verschluss_Zeichen7] = @ncts_Verschluss_Zeichen7, [ncts_Verschluss_Zeich"& _ "en8] = @ncts_Verschluss_Zeichen8, [ncts_Verschluss_Zeichen9] = @ncts_Verschluss_"& _ "Zeichen9, [ncts_Verschluss_Zeichen10] = @ncts_Verschluss_Zeichen10, [ncts_Versch"& _ "luss_Zeichen11] = @ncts_Verschluss_Zeichen11, [ncts_Verschluss_Zeichen12] = @nct"& _ "s_Verschluss_Zeichen12, [ncts_Verschluss_Zeichen13] = @ncts_Verschluss_Zeichen13"& _ ", [ncts_Verschluss_Zeichen14] = @ncts_Verschluss_Zeichen14, [ncts_Verschluss_Zei"& _ "chen15] = @ncts_Verschluss_Zeichen15, [ncts_Verschluss_Zeichen16] = @ncts_Versch"& _ "luss_Zeichen16, [ncts_Befoerderungsmittel_KennzeichenAbgang] = @ncts_Befoerderun"& _ "gsmittel_KennzeichenAbgang, [ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangC"& _ "ode] = @ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, [ncts_Befoerderu"& _ "ngsmittel_VerkehrszweigGrenzueberschreitent] = @ncts_Befoerderungsmittel_Verkehr"& _ "szweigGrenzueberschreitent, [ncts_Befoerderungsmittel_ArtGrenzueberschreitung] ="& _ " @ncts_Befoerderungsmittel_ArtGrenzueberschreitung, [ncts_Befoerderungsmittel_Ke"& _ "nnzeichenGrenzueberschreitend] = @ncts_Befoerderungsmittel_KennzeichenGrenzueber"& _ "schreitend, [ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCo"& _ "de] = @ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, [n"& _ "cts_Versender_EORI] = @ncts_Versender_EORI, [ncts_Versender_NLNR] = @ncts_Versen"& _ "der_NLNR, [ncts_Versender_TIN] = @ncts_Versender_TIN, [ncts_Versender_Name] = @n"& _ "cts_Versender_Name, [ncts_Versender_StrasseHausnummer] = @ncts_Versender_Strasse"& _ "Hausnummer, [ncts_Versender_Ort] = @ncts_Versender_Ort, [ncts_Versender_PLZ] = @"& _ "ncts_Versender_PLZ, [ncts_Versender_Land] = @ncts_Versender_Land, [ncts_Empfaeng"& _ "er_EORI] = @ncts_Empfaenger_EORI, [ncts_Empfaenger_NLNR] = @ncts_Empfaenger_NLNR"& _ ", [ncts_Empfaenger_TIN] = @ncts_Empfaenger_TIN, [ncts_Empfaenger_Name] = @ncts_E"& _ "mpfaenger_Name, [ncts_Empfaenger_StrasseHausnummer] = @ncts_Empfaenger_StrasseHa"& _ "usnummer, [ncts_Empfaenger_Ort] = @ncts_Empfaenger_Ort, [ncts_Empfaenger_PLZ] = "& _ "@ncts_Empfaenger_PLZ, [ncts_Empfaenger_Land] = @ncts_Empfaenger_Land, [ncts_Haup"& _ "tverpflichteter_EORI] = @ncts_Hauptverpflichteter_EORI, [ncts_Hauptverpflichtete"& _ "r_NLNR] = @ncts_Hauptverpflichteter_NLNR, [ncts_Hauptverpflichteter_TIN] = @ncts"& _ "_Hauptverpflichteter_TIN, [ncts_Hauptverpflichteter_Name] = @ncts_Hauptverpflich"& _ "teter_Name, [ncts_Hauptverpflichteter_StrasseHausnummer] = @ncts_Hauptverpflicht"& _ "eter_StrasseHausnummer, [ncts_Hauptverpflichteter_Ort] = @ncts_Hauptverpflichtet"& _ "er_Ort, [ncts_Hauptverpflichteter_PLZ] = @ncts_Hauptverpflichteter_PLZ, [ncts_Ha"& _ "uptverpflichteter_Land] = @ncts_Hauptverpflichteter_Land, [ncts_ZugelassenerEmpf"& _ "aenger_EORI] = @ncts_ZugelassenerEmpfaenger_EORI, [ncts_ZugelassenerEmpfaenger_T"& _ "IN] = @ncts_ZugelassenerEmpfaenger_TIN, [ncts_ZugelassenerEmpfaenger_IDCarnet] ="& _ " @ncts_ZugelassenerEmpfaenger_IDCarnet, [ncts_ZugelassenerEmpfaenger_Bewilligung"& _ "snummerVersender] = @ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender, [n"& _ "cts_SumA_KzSumASicherheit] = @ncts_SumA_KzSumASicherheit, [ncts_SumA_KennnummerS"& _ "endung] = @ncts_SumA_KennnummerSendung, [ncts_SumA_NummerBefoerderung] = @ncts_S"& _ "umA_NummerBefoerderung, [ncts_SumA_BesondereUmstaende] = @ncts_SumA_BesondereUms"& _ "taende, [ncts_SumA_Ladeort] = @ncts_SumA_Ladeort, [ncts_SumA_Entladeort] = @ncts"& _ "_SumA_Entladeort, [ncts_SumA_BefoerderungskostenZahlungsweise] = @ncts_SumA_Befo"& _ "erderungskostenZahlungsweise, [ncts_SumA_BefoerderungsrouteLand1] = @ncts_SumA_B"& _ "efoerderungsrouteLand1, [ncts_SumA_BefoerderungsrouteLand2] = @ncts_SumA_Befoerd"& _ "erungsrouteLand2, [ncts_SumA_BefoerderungsrouteLand3] = @ncts_SumA_Befoerderungs"& _ "routeLand3, [ncts_SumA_BefoerderungsrouteLand4] = @ncts_SumA_BefoerderungsrouteL"& _ "and4, [ncts_SumA_BefoerderungsrouteLand5] = @ncts_SumA_BefoerderungsrouteLand5, "& _ "[ncts_SumA_BefoerderungsrouteLand6] = @ncts_SumA_BefoerderungsrouteLand6, [ncts_"& _ "SumA_BefoerderungsrouteLand7] = @ncts_SumA_BefoerderungsrouteLand7, [ncts_SumA_B"& _ "efoerderungsrouteLand8] = @ncts_SumA_BefoerderungsrouteLand8, [ncts_SumA_Befoerd"& _ "erungsrouteLand9] = @ncts_SumA_BefoerderungsrouteLand9, [ncts_SumA_Befoerderungs"& _ "routeLand10] = @ncts_SumA_BefoerderungsrouteLand10, [ncts_SumA_Befoerderungsrout"& _ "eLand11] = @ncts_SumA_BefoerderungsrouteLand11, [ncts_SumA_BefoerderungsrouteLan"& _ "d12] = @ncts_SumA_BefoerderungsrouteLand12, [ncts_SumA_Versender_EORI] = @ncts_S"& _ "umA_Versender_EORI, [ncts_SumA_Versender_NLNR] = @ncts_SumA_Versender_NLNR, [nct"& _ "s_SumA_Versender_TIN] = @ncts_SumA_Versender_TIN, [ncts_SumA_Versender_Name] = @"& _ "ncts_SumA_Versender_Name, [ncts_SumA_Versender_StrasseHausnummer] = @ncts_SumA_V"& _ "ersender_StrasseHausnummer, [ncts_SumA_Versender_Land] = @ncts_SumA_Versender_La"& _ "nd, [ncts_SumA_Versender_PLZ] = @ncts_SumA_Versender_PLZ, [ncts_SumA_Versender_O"& _ "rt] = @ncts_SumA_Versender_Ort, [ncts_SumA_Empfaenger_EORI] = @ncts_SumA_Empfaen"& _ "ger_EORI, [ncts_SumA_Empfaenger_NLNR] = @ncts_SumA_Empfaenger_NLNR, [ncts_SumA_E"& _ "mpfaenger_TIN] = @ncts_SumA_Empfaenger_TIN, [ncts_SumA_Empfaenger_Name] = @ncts_"& _ "SumA_Empfaenger_Name, [ncts_SumA_Empfaenger_StrasseHausnummer] = @ncts_SumA_Empf"& _ "aenger_StrasseHausnummer, [ncts_SumA_Empfaenger_Land] = @ncts_SumA_Empfaenger_La"& _ "nd, [ncts_SumA_Empfaenger_PLZ] = @ncts_SumA_Empfaenger_PLZ, [ncts_SumA_Empfaenge"& _ "r_Ort] = @ncts_SumA_Empfaenger_Ort, [ncts_SumA_Befoerderer_EORI] = @ncts_SumA_Be"& _ "foerderer_EORI, [ncts_SumA_Befoerderer_NLNR] = @ncts_SumA_Befoerderer_NLNR, [nct"& _ "s_SumA_Befoerderer_TIN] = @ncts_SumA_Befoerderer_TIN, [ncts_SumA_Befoerderer_Nam"& _ "e] = @ncts_SumA_Befoerderer_Name, [ncts_SumA_Befoerderer_StrasseHausnummer] = @n"& _ "cts_SumA_Befoerderer_StrasseHausnummer, [ncts_SumA_Befoerderer_Land] = @ncts_Sum"& _ "A_Befoerderer_Land, [ncts_SumA_Befoerderer_PLZ] = @ncts_SumA_Befoerderer_PLZ, [n"& _ "cts_SumA_Befoerderer_Ort] = @ncts_SumA_Befoerderer_Ort, [ncts_Stammreferenz] = @"& _ "ncts_Stammreferenz WHERE (([ncts_Id] = @Original_ncts_Id) AND ([ncts_Status] = @"& _ "Original_ncts_Status) AND ([ncts_Status_KEWILL_Equivalent] = @Original_ncts_Stat"& _ "us_KEWILL_Equivalent) AND ([ncts_dyaArt] = @Original_ncts_dyaArt) AND ([ncts_dya"& _ "AnmID] = @Original_ncts_dyaAnmID) AND ((@IsNull_ncts_ANR = 1 AND [ncts_ANR] IS N"& _ "ULL) OR ([ncts_ANR] = @Original_ncts_ANR)) AND ((@IsNull_ncts_MRN = 1 AND [ncts_"& _ "MRN] IS NULL) OR ([ncts_MRN] = @Original_ncts_MRN)) AND ([ncts_Erstellung] = @Or"& _ "iginal_ncts_Erstellung) AND ((@IsNull_ncts_Erstellung_SB = 1 AND [ncts_Erstellun"& _ "g_SB] IS NULL) OR ([ncts_Erstellung_SB] = @Original_ncts_Erstellung_SB)) AND ([n"& _ "cts_LetzteBearbeitung] = @Original_ncts_LetzteBearbeitung) AND ((@IsNull_ncts_Le"& _ "tzteBearbeitung_SB = 1 AND [ncts_LetzteBearbeitung_SB] IS NULL) OR ([ncts_Letzte"& _ "Bearbeitung_SB] = @Original_ncts_LetzteBearbeitung_SB)) AND ((@IsNull_ncts_firma"& _ " = 1 AND [ncts_firma] IS NULL) OR ([ncts_firma] = @Original_ncts_firma)) AND ((@"& _ "IsNull_ncts_niederlassung = 1 AND [ncts_niederlassung] IS NULL) OR ([ncts_nieder"& _ "lassung] = @Original_ncts_niederlassung)) AND ([ncts_Gestellt] = @Original_ncts_"& _ "Gestellt) AND ((@IsNull_ncts_GestelltAm = 1 AND [ncts_GestelltAm] IS NULL) OR (["& _ "ncts_GestelltAm] = @Original_ncts_GestelltAm)) AND ((@IsNull_ncts_Trans_Partner "& _ "= 1 AND [ncts_Trans_Partner] IS NULL) OR ([ncts_Trans_Partner] = @Original_ncts_"& _ "Trans_Partner)) AND ((@IsNull_ncts_Trans_Div1 = 1 AND [ncts_Trans_Div1] IS NULL)"& _ " OR ([ncts_Trans_Div1] = @Original_ncts_Trans_Div1)) AND ((@IsNull_ncts_Trans_Di"& _ "v2 = 1 AND [ncts_Trans_Div2] IS NULL) OR ([ncts_Trans_Div2] = @Original_ncts_Tra"& _ "ns_Div2)) AND ((@IsNull_ncts_Trans_Div3 = 1 AND [ncts_Trans_Div3] IS NULL) OR (["& _ "ncts_Trans_Div3] = @Original_ncts_Trans_Div3)) AND ((@IsNull_ncts_Trans_Referenz"& _ " = 1 AND [ncts_Trans_Referenz] IS NULL) OR ([ncts_Trans_Referenz] = @Original_nc"& _ "ts_Trans_Referenz)) AND ((@IsNull_ncts_Trans_DatumZeit = 1 AND [ncts_Trans_Datum"& _ "Zeit] IS NULL) OR ([ncts_Trans_DatumZeit] = @Original_ncts_Trans_DatumZeit)) AND"& _ " ((@IsNull_ncts_Trans_Version = 1 AND [ncts_Trans_Version] IS NULL) OR ([ncts_Tr"& _ "ans_Version] = @Original_ncts_Trans_Version)) AND ((@IsNull_ncts_NachrichtenSend"& _ "erTIN = 1 AND [ncts_NachrichtenSenderTIN] IS NULL) OR ([ncts_NachrichtenSenderTI"& _ "N] = @Original_ncts_NachrichtenSenderTIN)) AND ((@IsNull_ncts_NachrichtenSenderN"& _ "LNR = 1 AND [ncts_NachrichtenSenderNLNR] IS NULL) OR ([ncts_NachrichtenSenderNLN"& _ "R] = @Original_ncts_NachrichtenSenderNLNR)) AND ((@IsNull_ncts_Nachrichtenempfae"& _ "ngerDST = 1 AND [ncts_NachrichtenempfaengerDST] IS NULL) OR ([ncts_Nachrichtenem"& _ "pfaengerDST] = @Original_ncts_NachrichtenempfaengerDST)) AND ((@IsNull_ncts_Obje"& _ "ctName = 1 AND [ncts_ObjectName] IS NULL) OR ([ncts_ObjectName] = @Original_ncts"& _ "_ObjectName)) AND ((@IsNull_ncts_ObjectAlias = 1 AND [ncts_ObjectAlias] IS NULL)"& _ " OR ([ncts_ObjectAlias] = @Original_ncts_ObjectAlias)) AND ((@IsNull_ncts_Bezugs"& _ "nummerVorblendung = 1 AND [ncts_BezugsnummerVorblendung] IS NULL) OR ([ncts_Bezu"& _ "gsnummerVorblendung] = @Original_ncts_BezugsnummerVorblendung)) AND ((@IsNull_nc"& _ "ts_Bearbeiter = 1 AND [ncts_Bearbeiter] IS NULL) OR ([ncts_Bearbeiter] = @Origin"& _ "al_ncts_Bearbeiter)) AND ((@IsNull_ncts_VersendungsLandCode = 1 AND [ncts_Versen"& _ "dungsLandCode] IS NULL) OR ([ncts_VersendungsLandCode] = @Original_ncts_Versendu"& _ "ngsLandCode)) AND ((@IsNull_ncts_BestimmungslandCode = 1 AND [ncts_Bestimmungsla"& _ "ndCode] IS NULL) OR ([ncts_BestimmungslandCode] = @Original_ncts_Bestimmungsland"& _ "Code)) AND ((@IsNull_ncts_ArtAnmeldung = 1 AND [ncts_ArtAnmeldung] IS NULL) OR ("& _ "[ncts_ArtAnmeldung] = @Original_ncts_ArtAnmeldung)) AND ((@IsNull_ncts_Beladungs"& _ "Ort = 1 AND [ncts_BeladungsOrt] IS NULL) OR ([ncts_BeladungsOrt] = @Original_nct"& _ "s_BeladungsOrt)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer1 = 1 A"& _ "ND [ncts_DurchgangszollstelleDienststellnummer1] IS NULL) OR ([ncts_Durchgangszo"& _ "llstelleDienststellnummer1] = @Original_ncts_DurchgangszollstelleDienststellnumm"& _ "er1)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer2 = 1 AND [ncts_Du"& _ "rchgangszollstelleDienststellnummer2] IS NULL) OR ([ncts_DurchgangszollstelleDie"& _ "nststellnummer2] = @Original_ncts_DurchgangszollstelleDienststellnummer2)) AND ("& _ "(@IsNull_ncts_DurchgangszollstelleDienststellnummer3 = 1 AND [ncts_Durchgangszol"& _ "lstelleDienststellnummer3] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnum"& _ "mer3] = @Original_ncts_DurchgangszollstelleDienststellnummer3)) AND ((@IsNull_nc"& _ "ts_DurchgangszollstelleDienststellnummer4 = 1 AND [ncts_DurchgangszollstelleDien"& _ "ststellnummer4] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnummer4] = @Or"& _ "iginal_ncts_DurchgangszollstelleDienststellnummer4)) AND ((@IsNull_ncts_Durchgan"& _ "gszollstelleDienststellnummer5 = 1 AND [ncts_DurchgangszollstelleDienststellnumm"& _ "er5] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnummer5] = @Original_ncts"& _ "_DurchgangszollstelleDienststellnummer5)) AND ((@IsNull_ncts_Durchgangszollstell"& _ "eDienststellnummer6 = 1 AND [ncts_DurchgangszollstelleDienststellnummer6] IS NUL"& _ "L) OR ([ncts_DurchgangszollstelleDienststellnummer6] = @Original_ncts_Durchgangs"& _ "zollstelleDienststellnummer6)) AND ((@IsNull_ncts_DurchgangszollstelleDienststel"& _ "lnummer7 = 1 AND [ncts_DurchgangszollstelleDienststellnummer7] IS NULL) OR ([nct"& _ "s_DurchgangszollstelleDienststellnummer7] = @Original_ncts_DurchgangszollstelleD"& _ "ienststellnummer7)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer8 = "& _ "1 AND [ncts_DurchgangszollstelleDienststellnummer8] IS NULL) OR ([ncts_Durchgang"& _ "szollstelleDienststellnummer8] = @Original_ncts_DurchgangszollstelleDienststelln"& _ "ummer8)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer9 = 1 AND [ncts"& _ "_DurchgangszollstelleDienststellnummer9] IS NULL) OR ([ncts_Durchgangszollstelle"& _ "Dienststellnummer9] = @Original_ncts_DurchgangszollstelleDienststellnummer9)) AN"& _ "D ((@IsNull_ncts_BestimmungsstelleDienststellennummer = 1 AND [ncts_Bestimmungss"& _ "telleDienststellennummer] IS NULL) OR ([ncts_BestimmungsstelleDienststellennumme"& _ "r] = @Original_ncts_BestimmungsstelleDienststellennummer)) AND ((@IsNull_ncts_Ab"& _ "gangsDienststellennummer = 1 AND [ncts_AbgangsDienststellennummer] IS NULL) OR ("& _ "[ncts_AbgangsDienststellennummer] = @Original_ncts_AbgangsDienststellennummer)) "& _ "AND ((@IsNull_ncts_Wiedergestellungsdatum = 1 AND [ncts_Wiedergestellungsdatum] "& _ "IS NULL) OR ([ncts_Wiedergestellungsdatum] = @Original_ncts_Wiedergestellungsdat"& _ "um)) AND ((@IsNull_ncts_KzVereinfachtesVerfahren = 1 AND [ncts_KzVereinfachtesVe"& _ "rfahren] IS NULL) OR ([ncts_KzVereinfachtesVerfahren] = @Original_ncts_KzVereinf"& _ "achtesVerfahren)) AND ((@IsNull_ncts_GesamtRohmasse = 1 AND [ncts_GesamtRohmasse"& _ "] IS NULL) OR ([ncts_GesamtRohmasse] = @Original_ncts_GesamtRohmasse)) AND ((@Is"& _ "Null_ncts_GesamtAnzahlPackstuecke = 1 AND [ncts_GesamtAnzahlPackstuecke] IS NULL"& _ ") OR ([ncts_GesamtAnzahlPackstuecke] = @Original_ncts_GesamtAnzahlPackstuecke)) "& _ "AND ((@IsNull_ncts_Verschluss_ArtCode = 1 AND [ncts_Verschluss_ArtCode] IS NULL)"& _ " OR ([ncts_Verschluss_ArtCode] = @Original_ncts_Verschluss_ArtCode)) AND ((@IsNu"& _ "ll_ncts_Verschluss_Anzahl = 1 AND [ncts_Verschluss_Anzahl] IS NULL) OR ([ncts_Ve"& _ "rschluss_Anzahl] = @Original_ncts_Verschluss_Anzahl)) AND ((@IsNull_ncts_Verschl"& _ "uss_Zeichen1 = 1 AND [ncts_Verschluss_Zeichen1] IS NULL) OR ([ncts_Verschluss_Ze"& _ "ichen1] = @Original_ncts_Verschluss_Zeichen1)) AND ((@IsNull_ncts_Verschluss_Zei"& _ "chen2 = 1 AND [ncts_Verschluss_Zeichen2] IS NULL) OR ([ncts_Verschluss_Zeichen2]"& _ " = @Original_ncts_Verschluss_Zeichen2)) AND ((@IsNull_ncts_Verschluss_Zeichen3 ="& _ " 1 AND [ncts_Verschluss_Zeichen3] IS NULL) OR ([ncts_Verschluss_Zeichen3] = @Ori"& _ "ginal_ncts_Verschluss_Zeichen3)) AND ((@IsNull_ncts_Verschluss_Zeichen4 = 1 AND "& _ "[ncts_Verschluss_Zeichen4] IS NULL) OR ([ncts_Verschluss_Zeichen4] = @Original_n"& _ "cts_Verschluss_Zeichen4)) AND ((@IsNull_ncts_Verschluss_Zeichen5 = 1 AND [ncts_V"& _ "erschluss_Zeichen5] IS NULL) OR ([ncts_Verschluss_Zeichen5] = @Original_ncts_Ver"& _ "schluss_Zeichen5)) AND ((@IsNull_ncts_Verschluss_Zeichen6 = 1 AND [ncts_Verschlu"& _ "ss_Zeichen6] IS NULL) OR ([ncts_Verschluss_Zeichen6] = @Original_ncts_Verschluss"& _ "_Zeichen6)) AND ((@IsNull_ncts_Verschluss_Zeichen7 = 1 AND [ncts_Verschluss_Zeic"& _ "hen7] IS NULL) OR ([ncts_Verschluss_Zeichen7] = @Original_ncts_Verschluss_Zeiche"& _ "n7)) AND ((@IsNull_ncts_Verschluss_Zeichen8 = 1 AND [ncts_Verschluss_Zeichen8] I"& _ "S NULL) OR ([ncts_Verschluss_Zeichen8] = @Original_ncts_Verschluss_Zeichen8)) AN"& _ "D ((@IsNull_ncts_Verschluss_Zeichen9 = 1 AND [ncts_Verschluss_Zeichen9] IS NULL)"& _ " OR ([ncts_Verschluss_Zeichen9] = @Original_ncts_Verschluss_Zeichen9)) AND ((@Is"& _ "Null_ncts_Verschluss_Zeichen10 = 1 AND [ncts_Verschluss_Zeichen10] IS NULL) OR ("& _ "[ncts_Verschluss_Zeichen10] = @Original_ncts_Verschluss_Zeichen10)) AND ((@IsNul"& _ "l_ncts_Verschluss_Zeichen11 = 1 AND [ncts_Verschluss_Zeichen11] IS NULL) OR ([nc"& _ "ts_Verschluss_Zeichen11] = @Original_ncts_Verschluss_Zeichen11)) AND ((@IsNull_n"& _ "cts_Verschluss_Zeichen12 = 1 AND [ncts_Verschluss_Zeichen12] IS NULL) OR ([ncts_"& _ "Verschluss_Zeichen12] = @Original_ncts_Verschluss_Zeichen12)) AND ((@IsNull_ncts"& _ "_Verschluss_Zeichen13 = 1 AND [ncts_Verschluss_Zeichen13] IS NULL) OR ([ncts_Ver"& _ "schluss_Zeichen13] = @Original_ncts_Verschluss_Zeichen13)) AND ((@IsNull_ncts_Ve"& _ "rschluss_Zeichen14 = 1 AND [ncts_Verschluss_Zeichen14] IS NULL) OR ([ncts_Versch"& _ "luss_Zeichen14] = @Original_ncts_Verschluss_Zeichen14)) AND ((@IsNull_ncts_Versc"& _ "hluss_Zeichen15 = 1 AND [ncts_Verschluss_Zeichen15] IS NULL) OR ([ncts_Verschlus"& _ "s_Zeichen15] = @Original_ncts_Verschluss_Zeichen15)) AND ((@IsNull_ncts_Verschlu"& _ "ss_Zeichen16 = 1 AND [ncts_Verschluss_Zeichen16] IS NULL) OR ([ncts_Verschluss_Z"& _ "eichen16] = @Original_ncts_Verschluss_Zeichen16)) AND ((@IsNull_ncts_Befoerderun"& _ "gsmittel_KennzeichenAbgang = 1 AND [ncts_Befoerderungsmittel_KennzeichenAbgang] "& _ "IS NULL) OR ([ncts_Befoerderungsmittel_KennzeichenAbgang] = @Original_ncts_Befoe"& _ "rderungsmittel_KennzeichenAbgang)) AND ((@IsNull_ncts_Befoerderungsmittel_Sttasz"& _ "ugehoerigkeitAbgangCode = 1 AND [ncts_Befoerderungsmittel_SttaszugehoerigkeitAbg"& _ "angCode] IS NULL) OR ([ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode] ="& _ " @Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode)) AND ((@IsNul"& _ "l_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = 1 AND [ncts_Befoe"& _ "rderungsmittel_VerkehrszweigGrenzueberschreitent] IS NULL) OR ([ncts_Befoerderun"& _ "gsmittel_VerkehrszweigGrenzueberschreitent] = @Original_ncts_Befoerderungsmittel"& _ "_VerkehrszweigGrenzueberschreitent)) AND ((@IsNull_ncts_Befoerderungsmittel_ArtG"& _ "renzueberschreitung = 1 AND [ncts_Befoerderungsmittel_ArtGrenzueberschreitung] I"& _ "S NULL) OR ([ncts_Befoerderungsmittel_ArtGrenzueberschreitung] = @Original_ncts_"& _ "Befoerderungsmittel_ArtGrenzueberschreitung)) AND ((@IsNull_ncts_Befoerderungsmi"& _ "ttel_KennzeichenGrenzueberschreitend = 1 AND [ncts_Befoerderungsmittel_Kennzeich"& _ "enGrenzueberschreitend] IS NULL) OR ([ncts_Befoerderungsmittel_KennzeichenGrenzu"& _ "eberschreitend] = @Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschrei"& _ "tend)) AND ((@IsNull_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschr"& _ "eitendCode = 1 AND [ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschre"& _ "itendCode] IS NULL) OR ([ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueber"& _ "schreitendCode] = @Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzue"& _ "berschreitendCode)) AND ((@IsNull_ncts_Versender_EORI = 1 AND [ncts_Versender_EO"& _ "RI] IS NULL) OR ([ncts_Versender_EORI] = @Original_ncts_Versender_EORI)) AND ((@"& _ "IsNull_ncts_Versender_NLNR = 1 AND [ncts_Versender_NLNR] IS NULL) OR ([ncts_Vers"& _ "ender_NLNR] = @Original_ncts_Versender_NLNR)) AND ((@IsNull_ncts_Versender_TIN ="& _ " 1 AND [ncts_Versender_TIN] IS NULL) OR ([ncts_Versender_TIN] = @Original_ncts_V"& _ "ersender_TIN)) AND ((@IsNull_ncts_Versender_Name = 1 AND [ncts_Versender_Name] I"& _ "S NULL) OR ([ncts_Versender_Name] = @Original_ncts_Versender_Name)) AND ((@IsNul"& _ "l_ncts_Versender_StrasseHausnummer = 1 AND [ncts_Versender_StrasseHausnummer] IS"& _ " NULL) OR ([ncts_Versender_StrasseHausnummer] = @Original_ncts_Versender_Strasse"& _ "Hausnummer)) AND ((@IsNull_ncts_Versender_Ort = 1 AND [ncts_Versender_Ort] IS NU"& _ "LL) OR ([ncts_Versender_Ort] = @Original_ncts_Versender_Ort)) AND ((@IsNull_ncts"& _ "_Versender_PLZ = 1 AND [ncts_Versender_PLZ] IS NULL) OR ([ncts_Versender_PLZ] = "& _ "@Original_ncts_Versender_PLZ)) AND ((@IsNull_ncts_Versender_Land = 1 AND [ncts_V"& _ "ersender_Land] IS NULL) OR ([ncts_Versender_Land] = @Original_ncts_Versender_Lan"& _ "d)) AND ((@IsNull_ncts_Empfaenger_EORI = 1 AND [ncts_Empfaenger_EORI] IS NULL) O"& _ "R ([ncts_Empfaenger_EORI] = @Original_ncts_Empfaenger_EORI)) AND ((@IsNull_ncts_"& _ "Empfaenger_NLNR = 1 AND [ncts_Empfaenger_NLNR] IS NULL) OR ([ncts_Empfaenger_NLN"& _ "R] = @Original_ncts_Empfaenger_NLNR)) AND ((@IsNull_ncts_Empfaenger_TIN = 1 AND "& _ "[ncts_Empfaenger_TIN] IS NULL) OR ([ncts_Empfaenger_TIN] = @Original_ncts_Empfae"& _ "nger_TIN)) AND ((@IsNull_ncts_Empfaenger_Name = 1 AND [ncts_Empfaenger_Name] IS "& _ "NULL) OR ([ncts_Empfaenger_Name] = @Original_ncts_Empfaenger_Name)) AND ((@IsNul"& _ "l_ncts_Empfaenger_StrasseHausnummer = 1 AND [ncts_Empfaenger_StrasseHausnummer] "& _ "IS NULL) OR ([ncts_Empfaenger_StrasseHausnummer] = @Original_ncts_Empfaenger_Str"& _ "asseHausnummer)) AND ((@IsNull_ncts_Empfaenger_Ort = 1 AND [ncts_Empfaenger_Ort]"& _ " IS NULL) OR ([ncts_Empfaenger_Ort] = @Original_ncts_Empfaenger_Ort)) AND ((@IsN"& _ "ull_ncts_Empfaenger_PLZ = 1 AND [ncts_Empfaenger_PLZ] IS NULL) OR ([ncts_Empfaen"& _ "ger_PLZ] = @Original_ncts_Empfaenger_PLZ)) AND ((@IsNull_ncts_Empfaenger_Land = "& _ "1 AND [ncts_Empfaenger_Land] IS NULL) OR ([ncts_Empfaenger_Land] = @Original_nct"& _ "s_Empfaenger_Land)) AND ((@IsNull_ncts_Hauptverpflichteter_EORI = 1 AND [ncts_Ha"& _ "uptverpflichteter_EORI] IS NULL) OR ([ncts_Hauptverpflichteter_EORI] = @Original"& _ "_ncts_Hauptverpflichteter_EORI)) AND ((@IsNull_ncts_Hauptverpflichteter_NLNR = 1"& _ " AND [ncts_Hauptverpflichteter_NLNR] IS NULL) OR ([ncts_Hauptverpflichteter_NLNR"& _ "] = @Original_ncts_Hauptverpflichteter_NLNR)) AND ((@IsNull_ncts_Hauptverpflicht"& _ "eter_TIN = 1 AND [ncts_Hauptverpflichteter_TIN] IS NULL) OR ([ncts_Hauptverpflic"& _ "hteter_TIN] = @Original_ncts_Hauptverpflichteter_TIN)) AND ((@IsNull_ncts_Hauptv"& _ "erpflichteter_Name = 1 AND [ncts_Hauptverpflichteter_Name] IS NULL) OR ([ncts_Ha"& _ "uptverpflichteter_Name] = @Original_ncts_Hauptverpflichteter_Name)) AND ((@IsNul"& _ "l_ncts_Hauptverpflichteter_StrasseHausnummer = 1 AND [ncts_Hauptverpflichteter_S"& _ "trasseHausnummer] IS NULL) OR ([ncts_Hauptverpflichteter_StrasseHausnummer] = @O"& _ "riginal_ncts_Hauptverpflichteter_StrasseHausnummer)) AND ((@IsNull_ncts_Hauptver"& _ "pflichteter_Ort = 1 AND [ncts_Hauptverpflichteter_Ort] IS NULL) OR ([ncts_Hauptv"& _ "erpflichteter_Ort] = @Original_ncts_Hauptverpflichteter_Ort)) AND ((@IsNull_ncts"& _ "_Hauptverpflichteter_PLZ = 1 AND [ncts_Hauptverpflichteter_PLZ] IS NULL) OR ([nc"& _ "ts_Hauptverpflichteter_PLZ] = @Original_ncts_Hauptverpflichteter_PLZ)) AND ((@Is"& _ "Null_ncts_Hauptverpflichteter_Land = 1 AND [ncts_Hauptverpflichteter_Land] IS NU"& _ "LL) OR ([ncts_Hauptverpflichteter_Land] = @Original_ncts_Hauptverpflichteter_Lan"& _ "d)) AND ((@IsNull_ncts_ZugelassenerEmpfaenger_EORI = 1 AND [ncts_ZugelassenerEmp"& _ "faenger_EORI] IS NULL) OR ([ncts_ZugelassenerEmpfaenger_EORI] = @Original_ncts_Z"& _ "ugelassenerEmpfaenger_EORI)) AND ((@IsNull_ncts_ZugelassenerEmpfaenger_TIN = 1 A"& _ "ND [ncts_ZugelassenerEmpfaenger_TIN] IS NULL) OR ([ncts_ZugelassenerEmpfaenger_T"& _ "IN] = @Original_ncts_ZugelassenerEmpfaenger_TIN)) AND ((@IsNull_ncts_Zugelassene"& _ "rEmpfaenger_IDCarnet = 1 AND [ncts_ZugelassenerEmpfaenger_IDCarnet] IS NULL) OR "& _ "([ncts_ZugelassenerEmpfaenger_IDCarnet] = @Original_ncts_ZugelassenerEmpfaenger_"& _ "IDCarnet)) AND ((@IsNull_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender"& _ " = 1 AND [ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender] IS NULL) OR ("& _ "[ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender] = @Original_ncts_Zugel"& _ "assenerEmpfaenger_BewilligungsnummerVersender)) AND ((@IsNull_ncts_SumA_KzSumASi"& _ "cherheit = 1 AND [ncts_SumA_KzSumASicherheit] IS NULL) OR ([ncts_SumA_KzSumASich"& _ "erheit] = @Original_ncts_SumA_KzSumASicherheit)) AND ((@IsNull_ncts_SumA_Kennnum"& _ "merSendung = 1 AND [ncts_SumA_KennnummerSendung] IS NULL) OR ([ncts_SumA_Kennnum"& _ "merSendung] = @Original_ncts_SumA_KennnummerSendung)) AND ((@IsNull_ncts_SumA_Nu"& _ "mmerBefoerderung = 1 AND [ncts_SumA_NummerBefoerderung] IS NULL) OR ([ncts_SumA_"& _ "NummerBefoerderung] = @Original_ncts_SumA_NummerBefoerderung)) AND ((@IsNull_nct"& _ "s_SumA_BesondereUmstaende = 1 AND [ncts_SumA_BesondereUmstaende] IS NULL) OR ([n"& _ "cts_SumA_BesondereUmstaende] = @Original_ncts_SumA_BesondereUmstaende)) AND ((@I"& _ "sNull_ncts_SumA_Ladeort = 1 AND [ncts_SumA_Ladeort] IS NULL) OR ([ncts_SumA_Lade"& _ "ort] = @Original_ncts_SumA_Ladeort)) AND ((@IsNull_ncts_SumA_Entladeort = 1 AND "& _ "[ncts_SumA_Entladeort] IS NULL) OR ([ncts_SumA_Entladeort] = @Original_ncts_SumA"& _ "_Entladeort)) AND ((@IsNull_ncts_SumA_BefoerderungskostenZahlungsweise = 1 AND ["& _ "ncts_SumA_BefoerderungskostenZahlungsweise] IS NULL) OR ([ncts_SumA_Befoerderung"& _ "skostenZahlungsweise] = @Original_ncts_SumA_BefoerderungskostenZahlungsweise)) A"& _ "ND ((@IsNull_ncts_SumA_BefoerderungsrouteLand1 = 1 AND [ncts_SumA_Befoerderungsr"& _ "outeLand1] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand1] = @Original_ncts_Sum"& _ "A_BefoerderungsrouteLand1)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand2 = 1 "& _ "AND [ncts_SumA_BefoerderungsrouteLand2] IS NULL) OR ([ncts_SumA_Befoerderungsrou"& _ "teLand2] = @Original_ncts_SumA_BefoerderungsrouteLand2)) AND ((@IsNull_ncts_SumA"& _ "_BefoerderungsrouteLand3 = 1 AND [ncts_SumA_BefoerderungsrouteLand3] IS NULL) OR"& _ " ([ncts_SumA_BefoerderungsrouteLand3] = @Original_ncts_SumA_BefoerderungsrouteLa"& _ "nd3)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand4 = 1 AND [ncts_SumA_Befoerd"& _ "erungsrouteLand4] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand4] = @Original_n"& _ "cts_SumA_BefoerderungsrouteLand4)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLan"& _ "d5 = 1 AND [ncts_SumA_BefoerderungsrouteLand5] IS NULL) OR ([ncts_SumA_Befoerder"& _ "ungsrouteLand5] = @Original_ncts_SumA_BefoerderungsrouteLand5)) AND ((@IsNull_nc"& _ "ts_SumA_BefoerderungsrouteLand6 = 1 AND [ncts_SumA_BefoerderungsrouteLand6] IS N"& _ "ULL) OR ([ncts_SumA_BefoerderungsrouteLand6] = @Original_ncts_SumA_Befoerderungs"& _ "routeLand6)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand7 = 1 AND [ncts_SumA_"& _ "BefoerderungsrouteLand7] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand7] = @Ori"& _ "ginal_ncts_SumA_BefoerderungsrouteLand7)) AND ((@IsNull_ncts_SumA_Befoerderungsr"& _ "outeLand8 = 1 AND [ncts_SumA_BefoerderungsrouteLand8] IS NULL) OR ([ncts_SumA_Be"& _ "foerderungsrouteLand8] = @Original_ncts_SumA_BefoerderungsrouteLand8)) AND ((@Is"& _ "Null_ncts_SumA_BefoerderungsrouteLand9 = 1 AND [ncts_SumA_BefoerderungsrouteLand"& _ "9] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand9] = @Original_ncts_SumA_Befoer"& _ "derungsrouteLand9)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand10 = 1 AND [nc"& _ "ts_SumA_BefoerderungsrouteLand10] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand"& _ "10] = @Original_ncts_SumA_BefoerderungsrouteLand10)) AND ((@IsNull_ncts_SumA_Bef"& _ "oerderungsrouteLand11 = 1 AND [ncts_SumA_BefoerderungsrouteLand11] IS NULL) OR ("& _ "[ncts_SumA_BefoerderungsrouteLand11] = @Original_ncts_SumA_BefoerderungsrouteLan"& _ "d11)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand12 = 1 AND [ncts_SumA_Befoer"& _ "derungsrouteLand12] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand12] = @Origina"& _ "l_ncts_SumA_BefoerderungsrouteLand12)) AND ((@IsNull_ncts_SumA_Versender_EORI = "& _ "1 AND [ncts_SumA_Versender_EORI] IS NULL) OR ([ncts_SumA_Versender_EORI] = @Orig"& _ "inal_ncts_SumA_Versender_EORI)) AND ((@IsNull_ncts_SumA_Versender_NLNR = 1 AND ["& _ "ncts_SumA_Versender_NLNR] IS NULL) OR ([ncts_SumA_Versender_NLNR] = @Original_nc"& _ "ts_SumA_Versender_NLNR)) AND ((@IsNull_ncts_SumA_Versender_TIN = 1 AND [ncts_Sum"& _ "A_Versender_TIN] IS NULL) OR ([ncts_SumA_Versender_TIN] = @Original_ncts_SumA_Ve"& _ "rsender_TIN)) AND ((@IsNull_ncts_SumA_Versender_Name = 1 AND [ncts_SumA_Versende"& _ "r_Name] IS NULL) OR ([ncts_SumA_Versender_Name] = @Original_ncts_SumA_Versender_"& _ "Name)) AND ((@IsNull_ncts_SumA_Versender_StrasseHausnummer = 1 AND [ncts_SumA_Ve"& _ "rsender_StrasseHausnummer] IS NULL) OR ([ncts_SumA_Versender_StrasseHausnummer] "& _ "= @Original_ncts_SumA_Versender_StrasseHausnummer)) AND ((@IsNull_ncts_SumA_Vers"& _ "ender_Land = 1 AND [ncts_SumA_Versender_Land] IS NULL) OR ([ncts_SumA_Versender_"& _ "Land] = @Original_ncts_SumA_Versender_Land)) AND ((@IsNull_ncts_SumA_Versender_P"& _ "LZ = 1 AND [ncts_SumA_Versender_PLZ] IS NULL) OR ([ncts_SumA_Versender_PLZ] = @O"& _ "riginal_ncts_SumA_Versender_PLZ)) AND ((@IsNull_ncts_SumA_Versender_Ort = 1 AND "& _ "[ncts_SumA_Versender_Ort] IS NULL) OR ([ncts_SumA_Versender_Ort] = @Original_nct"& _ "s_SumA_Versender_Ort)) AND ((@IsNull_ncts_SumA_Empfaenger_EORI = 1 AND [ncts_Sum"& _ "A_Empfaenger_EORI] IS NULL) OR ([ncts_SumA_Empfaenger_EORI] = @Original_ncts_Sum"& _ "A_Empfaenger_EORI)) AND ((@IsNull_ncts_SumA_Empfaenger_NLNR = 1 AND [ncts_SumA_E"& _ "mpfaenger_NLNR] IS NULL) OR ([ncts_SumA_Empfaenger_NLNR] = @Original_ncts_SumA_E"& _ "mpfaenger_NLNR)) AND ((@IsNull_ncts_SumA_Empfaenger_TIN = 1 AND [ncts_SumA_Empfa"& _ "enger_TIN] IS NULL) OR ([ncts_SumA_Empfaenger_TIN] = @Original_ncts_SumA_Empfaen"& _ "ger_TIN)) AND ((@IsNull_ncts_SumA_Empfaenger_Name = 1 AND [ncts_SumA_Empfaenger_"& _ "Name] IS NULL) OR ([ncts_SumA_Empfaenger_Name] = @Original_ncts_SumA_Empfaenger_"& _ "Name)) AND ((@IsNull_ncts_SumA_Empfaenger_StrasseHausnummer = 1 AND [ncts_SumA_E"& _ "mpfaenger_StrasseHausnummer] IS NULL) OR ([ncts_SumA_Empfaenger_StrasseHausnumme"& _ "r] = @Original_ncts_SumA_Empfaenger_StrasseHausnummer)) AND ((@IsNull_ncts_SumA_"& _ "Empfaenger_Land = 1 AND [ncts_SumA_Empfaenger_Land] IS NULL) OR ([ncts_SumA_Empf"& _ "aenger_Land] = @Original_ncts_SumA_Empfaenger_Land)) AND ((@IsNull_ncts_SumA_Emp"& _ "faenger_PLZ = 1 AND [ncts_SumA_Empfaenger_PLZ] IS NULL) OR ([ncts_SumA_Empfaenge"& _ "r_PLZ] = @Original_ncts_SumA_Empfaenger_PLZ)) AND ((@IsNull_ncts_SumA_Empfaenger"& _ "_Ort = 1 AND [ncts_SumA_Empfaenger_Ort] IS NULL) OR ([ncts_SumA_Empfaenger_Ort] "& _ "= @Original_ncts_SumA_Empfaenger_Ort)) AND ((@IsNull_ncts_SumA_Befoerderer_EORI "& _ "= 1 AND [ncts_SumA_Befoerderer_EORI] IS NULL) OR ([ncts_SumA_Befoerderer_EORI] ="& _ " @Original_ncts_SumA_Befoerderer_EORI)) AND ((@IsNull_ncts_SumA_Befoerderer_NLNR"& _ " = 1 AND [ncts_SumA_Befoerderer_NLNR] IS NULL) OR ([ncts_SumA_Befoerderer_NLNR] "& _ "= @Original_ncts_SumA_Befoerderer_NLNR)) AND ((@IsNull_ncts_SumA_Befoerderer_TIN"& _ " = 1 AND [ncts_SumA_Befoerderer_TIN] IS NULL) OR ([ncts_SumA_Befoerderer_TIN] = "& _ "@Original_ncts_SumA_Befoerderer_TIN)) AND ((@IsNull_ncts_SumA_Befoerderer_Name ="& _ " 1 AND [ncts_SumA_Befoerderer_Name] IS NULL) OR ([ncts_SumA_Befoerderer_Name] = "& _ "@Original_ncts_SumA_Befoerderer_Name)) AND ((@IsNull_ncts_SumA_Befoerderer_Stras"& _ "seHausnummer = 1 AND [ncts_SumA_Befoerderer_StrasseHausnummer] IS NULL) OR ([nct"& _ "s_SumA_Befoerderer_StrasseHausnummer] = @Original_ncts_SumA_Befoerderer_StrasseH"& _ "ausnummer)) AND ((@IsNull_ncts_SumA_Befoerderer_Land = 1 AND [ncts_SumA_Befoerde"& _ "rer_Land] IS NULL) OR ([ncts_SumA_Befoerderer_Land] = @Original_ncts_SumA_Befoer"& _ "derer_Land)) AND ((@IsNull_ncts_SumA_Befoerderer_PLZ = 1 AND [ncts_SumA_Befoerde"& _ "rer_PLZ] IS NULL) OR ([ncts_SumA_Befoerderer_PLZ] = @Original_ncts_SumA_Befoerde"& _ "rer_PLZ)) AND ((@IsNull_ncts_SumA_Befoerderer_Ort = 1 AND [ncts_SumA_Befoerderer"& _ "_Ort] IS NULL) OR ([ncts_SumA_Befoerderer_Ort] = @Original_ncts_SumA_Befoerderer"& _ "_Ort)) AND ((@IsNull_ncts_Stammreferenz = 1 AND [ncts_Stammreferenz] IS NULL) OR"& _ " ([ncts_Stammreferenz] = @Original_ncts_Stammreferenz)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ncts_Id, ncts_"& _ "Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR, nct"& _ "s_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_LetzteB"& _ "earbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_GestelltAm, n"& _ "cts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_Trans"& _ "_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenSenderTIN, "& _ "ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, ncts"& _ "_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_VersendungsLan"& _ "dCode, ncts_BestimmungslandCode, ncts_ArtAnmeldung, ncts_BeladungsOrt, ncts_Durc"& _ "hgangszollstelleDienststellnummer1, ncts_DurchgangszollstelleDienststellnummer2,"& _ " ncts_DurchgangszollstelleDienststellnummer3, ncts_DurchgangszollstelleDienstste"& _ "llnummer4, ncts_DurchgangszollstelleDienststellnummer5, ncts_Durchgangszollstell"& _ "eDienststellnummer6, ncts_DurchgangszollstelleDienststellnummer7, ncts_Durchgang"& _ "szollstelleDienststellnummer8, ncts_DurchgangszollstelleDienststellnummer9, ncts"& _ "_BestimmungsstelleDienststellennummer, ncts_AbgangsDienststellennummer, ncts_Wie"& _ "dergestellungsdatum, ncts_KzVereinfachtesVerfahren, ncts_GesamtRohmasse, ncts_Ge"& _ "samtAnzahlPackstuecke, ncts_Verschluss_ArtCode, ncts_Verschluss_Anzahl, ncts_Ver"& _ "schluss_Zeichen1, ncts_Verschluss_Zeichen2, ncts_Verschluss_Zeichen3, ncts_Versc"& _ "hluss_Zeichen4, ncts_Verschluss_Zeichen5, ncts_Verschluss_Zeichen6, ncts_Verschl"& _ "uss_Zeichen7, ncts_Verschluss_Zeichen8, ncts_Verschluss_Zeichen9, ncts_Verschlus"& _ "s_Zeichen10, ncts_Verschluss_Zeichen11, ncts_Verschluss_Zeichen12, ncts_Verschlu"& _ "ss_Zeichen13, ncts_Verschluss_Zeichen14, ncts_Verschluss_Zeichen15, ncts_Verschl"& _ "uss_Zeichen16, ncts_Befoerderungsmittel_KennzeichenAbgang, ncts_Befoerderungsmit"& _ "tel_SttaszugehoerigkeitAbgangCode, ncts_Befoerderungsmittel_VerkehrszweigGrenzue"& _ "berschreitent, ncts_Befoerderungsmittel_ArtGrenzueberschreitung, ncts_Befoerderu"& _ "ngsmittel_KennzeichenGrenzueberschreitend, ncts_Befoerderungsmittel_Staatszugeho"& _ "erigkeitGrenzueberschreitendCode, ncts_Versender_EORI, ncts_Versender_NLNR, ncts"& _ "_Versender_TIN, ncts_Versender_Name, ncts_Versender_StrasseHausnummer, ncts_Vers"& _ "ender_Ort, ncts_Versender_PLZ, ncts_Versender_Land, ncts_Empfaenger_EORI, ncts_E"& _ "mpfaenger_NLNR, ncts_Empfaenger_TIN, ncts_Empfaenger_Name, ncts_Empfaenger_Stras"& _ "seHausnummer, ncts_Empfaenger_Ort, ncts_Empfaenger_PLZ, ncts_Empfaenger_Land, nc"& _ "ts_Hauptverpflichteter_EORI, ncts_Hauptverpflichteter_NLNR, ncts_Hauptverpflicht"& _ "eter_TIN, ncts_Hauptverpflichteter_Name, ncts_Hauptverpflichteter_StrasseHausnum"& _ "mer, ncts_Hauptverpflichteter_Ort, ncts_Hauptverpflichteter_PLZ, ncts_Hauptverpf"& _ "lichteter_Land, ncts_ZugelassenerEmpfaenger_EORI, ncts_ZugelassenerEmpfaenger_TI"& _ "N, ncts_ZugelassenerEmpfaenger_IDCarnet, ncts_ZugelassenerEmpfaenger_Bewilligung"& _ "snummerVersender, ncts_SumA_KzSumASicherheit, ncts_SumA_KennnummerSendung, ncts_"& _ "SumA_NummerBefoerderung, ncts_SumA_BesondereUmstaende, ncts_SumA_Ladeort, ncts_S"& _ "umA_Entladeort, ncts_SumA_BefoerderungskostenZahlungsweise, ncts_SumA_Befoerderu"& _ "ngsrouteLand1, ncts_SumA_BefoerderungsrouteLand2, ncts_SumA_BefoerderungsrouteLa"& _ "nd3, ncts_SumA_BefoerderungsrouteLand4, ncts_SumA_BefoerderungsrouteLand5, ncts_"& _ "SumA_BefoerderungsrouteLand6, ncts_SumA_BefoerderungsrouteLand7, ncts_SumA_Befoe"& _ "rderungsrouteLand8, ncts_SumA_BefoerderungsrouteLand9, ncts_SumA_Befoerderungsro"& _ "uteLand10, ncts_SumA_BefoerderungsrouteLand11, ncts_SumA_BefoerderungsrouteLand1"& _ "2, ncts_SumA_Versender_EORI, ncts_SumA_Versender_NLNR, ncts_SumA_Versender_TIN, "& _ "ncts_SumA_Versender_Name, ncts_SumA_Versender_StrasseHausnummer, ncts_SumA_Verse"& _ "nder_Land, ncts_SumA_Versender_PLZ, ncts_SumA_Versender_Ort, ncts_SumA_Empfaenge"& _ "r_EORI, ncts_SumA_Empfaenger_NLNR, ncts_SumA_Empfaenger_TIN, ncts_SumA_Empfaenge"& _ "r_Name, ncts_SumA_Empfaenger_StrasseHausnummer, ncts_SumA_Empfaenger_Land, ncts_"& _ "SumA_Empfaenger_PLZ, ncts_SumA_Empfaenger_Ort, ncts_SumA_Befoerderer_EORI, ncts_"& _ "SumA_Befoerderer_NLNR, ncts_SumA_Befoerderer_TIN, ncts_SumA_Befoerderer_Name, nc"& _ "ts_SumA_Befoerderer_StrasseHausnummer, ncts_SumA_Befoerderer_Land, ncts_SumA_Bef"& _ "oerderer_PLZ, ncts_SumA_Befoerderer_Ort, ncts_Stammreferenz FROM tblDakosy_NCTSO"& _ "ut WHERE (ncts_Id = @ncts_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ArtAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BeladungsOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Ladeort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Entladeort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ANR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GestelltAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Partner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectAlias", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Bearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_VersendungsLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BestimmungslandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ArtAnmeldung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ArtAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BeladungsOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BeladungsOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GesamtRohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Ladeort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Ladeort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Entladeort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Entladeort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Stammreferenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ncts_Id, ncts_Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dya"& _ "AnmID, ncts_ANR, ncts_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearb"& _ "eitung, ncts_LetzteBearbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt"& _ ", ncts_GestelltAm, ncts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Tr"& _ "ans_Div3, ncts_Trans_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_Na"& _ "chrichtenSenderTIN, ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, n"& _ "cts_ObjectName, ncts_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter,"& _ " ncts_VersendungsLandCode, ncts_BestimmungslandCode, ncts_ArtAnmeldung, ncts_Bel"& _ "adungsOrt, ncts_DurchgangszollstelleDienststellnummer1, ncts_Durchgangszollstell"& _ "eDienststellnummer2, ncts_DurchgangszollstelleDienststellnummer3, ncts_Durchgang"& _ "szollstelleDienststellnummer4, ncts_DurchgangszollstelleDienststellnummer5, ncts"& _ "_DurchgangszollstelleDienststellnummer6, ncts_DurchgangszollstelleDienststellnum"& _ "mer7, ncts_DurchgangszollstelleDienststellnummer8, ncts_DurchgangszollstelleDien"& _ "ststellnummer9, ncts_BestimmungsstelleDienststellennummer, ncts_AbgangsDienstste"& _ "llennummer, ncts_Wiedergestellungsdatum, ncts_KzVereinfachtesVerfahren, ncts_Ges"& _ "amtRohmasse, ncts_GesamtAnzahlPackstuecke, ncts_Verschluss_ArtCode, ncts_Verschl"& _ "uss_Anzahl, ncts_Verschluss_Zeichen1, ncts_Verschluss_Zeichen2, ncts_Verschluss_"& _ "Zeichen3, ncts_Verschluss_Zeichen4, ncts_Verschluss_Zeichen5, ncts_Verschluss_Ze"& _ "ichen6, ncts_Verschluss_Zeichen7, ncts_Verschluss_Zeichen8, ncts_Verschluss_Zeic"& _ "hen9, ncts_Verschluss_Zeichen10, ncts_Verschluss_Zeichen11, ncts_Verschluss_Zeic"& _ "hen12, ncts_Verschluss_Zeichen13, ncts_Verschluss_Zeichen14, ncts_Verschluss_Zei"& _ "chen15, ncts_Verschluss_Zeichen16, ncts_Befoerderungsmittel_KennzeichenAbgang, n"& _ "cts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, ncts_Befoerderungsmittel_"& _ "VerkehrszweigGrenzueberschreitent, ncts_Befoerderungsmittel_ArtGrenzueberschreit"& _ "ung, ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, ncts_Befoerderung"& _ "smittel_StaatszugehoerigkeitGrenzueberschreitendCode, ncts_Versender_EORI, ncts_"& _ "Versender_NLNR, ncts_Versender_TIN, ncts_Versender_Name, ncts_Versender_StrasseH"& _ "ausnummer, ncts_Versender_Ort, ncts_Versender_PLZ, ncts_Versender_Land, ncts_Emp"& _ "faenger_EORI, ncts_Empfaenger_NLNR, ncts_Empfaenger_TIN, ncts_Empfaenger_Name, n"& _ "cts_Empfaenger_StrasseHausnummer, ncts_Empfaenger_Ort, ncts_Empfaenger_PLZ, ncts"& _ "_Empfaenger_Land, ncts_Hauptverpflichteter_EORI, ncts_Hauptverpflichteter_NLNR, "& _ "ncts_Hauptverpflichteter_TIN, ncts_Hauptverpflichteter_Name, ncts_Hauptverpflich"& _ "teter_StrasseHausnummer, ncts_Hauptverpflichteter_Ort, ncts_Hauptverpflichteter_"& _ "PLZ, ncts_Hauptverpflichteter_Land, ncts_ZugelassenerEmpfaenger_EORI, ncts_Zugel"& _ "assenerEmpfaenger_TIN, ncts_ZugelassenerEmpfaenger_IDCarnet, ncts_ZugelassenerEm"& _ "pfaenger_BewilligungsnummerVersender, ncts_SumA_KzSumASicherheit, ncts_SumA_Kenn"& _ "nummerSendung, ncts_SumA_NummerBefoerderung, ncts_SumA_BesondereUmstaende, ncts_"& _ "SumA_Ladeort, ncts_SumA_Entladeort, ncts_SumA_BefoerderungskostenZahlungsweise, "& _ "ncts_SumA_BefoerderungsrouteLand1, ncts_SumA_BefoerderungsrouteLand2, ncts_SumA_"& _ "BefoerderungsrouteLand3, ncts_SumA_BefoerderungsrouteLand4, ncts_SumA_Befoerderu"& _ "ngsrouteLand5, ncts_SumA_BefoerderungsrouteLand6, ncts_SumA_BefoerderungsrouteLa"& _ "nd7, ncts_SumA_BefoerderungsrouteLand8, ncts_SumA_BefoerderungsrouteLand9, ncts_"& _ "SumA_BefoerderungsrouteLand10, ncts_SumA_BefoerderungsrouteLand11, ncts_SumA_Bef"& _ "oerderungsrouteLand12, ncts_SumA_Versender_EORI, ncts_SumA_Versender_NLNR, ncts_"& _ "SumA_Versender_TIN, ncts_SumA_Versender_Name, ncts_SumA_Versender_StrasseHausnum"& _ "mer, ncts_SumA_Versender_Land, ncts_SumA_Versender_PLZ, ncts_SumA_Versender_Ort,"& _ " ncts_SumA_Empfaenger_EORI, ncts_SumA_Empfaenger_NLNR, ncts_SumA_Empfaenger_TIN,"& _ " ncts_SumA_Empfaenger_Name, ncts_SumA_Empfaenger_StrasseHausnummer, ncts_SumA_Em"& _ "pfaenger_Land, ncts_SumA_Empfaenger_PLZ, ncts_SumA_Empfaenger_Ort, ncts_SumA_Bef"& _ "oerderer_EORI, ncts_SumA_Befoerderer_NLNR, ncts_SumA_Befoerderer_TIN, ncts_SumA_"& _ "Befoerderer_Name, ncts_SumA_Befoerderer_StrasseHausnummer, ncts_SumA_Befoerderer"& _ "_Land, ncts_SumA_Befoerderer_PLZ, ncts_SumA_Befoerderer_Ort, ncts_Stammreferenz "& _ "FROM dbo.tblDakosy_NCTSOut" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOutDataTable) 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 VERAGDataSet.tblDakosy_NCTSOutDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOutDataTable = New VERAGDataSet.tblDakosy_NCTSOutDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOutDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut") 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_ncts_Id As Integer, _ ByVal Original_ncts_Status As Integer, _ ByVal Original_ncts_Status_KEWILL_Equivalent As Integer, _ ByVal Original_ncts_dyaArt As String, _ ByVal Original_ncts_dyaAnmID As Integer, _ ByVal Original_ncts_ANR As String, _ ByVal Original_ncts_MRN As String, _ ByVal Original_ncts_Erstellung As Date, _ ByVal Original_ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_LetzteBearbeitung As Date, _ ByVal Original_ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_firma As String, _ ByVal Original_ncts_niederlassung As String, _ ByVal Original_ncts_Gestellt As Boolean, _ ByVal Original_ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Partner As String, _ ByVal Original_ncts_Trans_Div1 As String, _ ByVal Original_ncts_Trans_Div2 As String, _ ByVal Original_ncts_Trans_Div3 As String, _ ByVal Original_ncts_Trans_Referenz As String, _ ByVal Original_ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_NachrichtenSenderTIN As String, _ ByVal Original_ncts_NachrichtenSenderNLNR As String, _ ByVal Original_ncts_NachrichtenempfaengerDST As String, _ ByVal Original_ncts_ObjectName As String, _ ByVal Original_ncts_ObjectAlias As String, _ ByVal Original_ncts_BezugsnummerVorblendung As String, _ ByVal Original_ncts_Bearbeiter As String, _ ByVal Original_ncts_VersendungsLandCode As String, _ ByVal Original_ncts_BestimmungslandCode As String, _ ByVal Original_ncts_ArtAnmeldung As String, _ ByVal Original_ncts_BeladungsOrt As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal Original_ncts_BestimmungsstelleDienststellennummer As String, _ ByVal Original_ncts_AbgangsDienststellennummer As String, _ ByVal Original_ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_ncts_KzVereinfachtesVerfahren As String, _ ByVal Original_ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_ArtCode As String, _ ByVal Original_ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_Zeichen1 As String, _ ByVal Original_ncts_Verschluss_Zeichen2 As String, _ ByVal Original_ncts_Verschluss_Zeichen3 As String, _ ByVal Original_ncts_Verschluss_Zeichen4 As String, _ ByVal Original_ncts_Verschluss_Zeichen5 As String, _ ByVal Original_ncts_Verschluss_Zeichen6 As String, _ ByVal Original_ncts_Verschluss_Zeichen7 As String, _ ByVal Original_ncts_Verschluss_Zeichen8 As String, _ ByVal Original_ncts_Verschluss_Zeichen9 As String, _ ByVal Original_ncts_Verschluss_Zeichen10 As String, _ ByVal Original_ncts_Verschluss_Zeichen11 As String, _ ByVal Original_ncts_Verschluss_Zeichen12 As String, _ ByVal Original_ncts_Verschluss_Zeichen13 As String, _ ByVal Original_ncts_Verschluss_Zeichen14 As String, _ ByVal Original_ncts_Verschluss_Zeichen15 As String, _ ByVal Original_ncts_Verschluss_Zeichen16 As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal Original_ncts_Versender_EORI As String, _ ByVal Original_ncts_Versender_NLNR As String, _ ByVal Original_ncts_Versender_TIN As String, _ ByVal Original_ncts_Versender_Name As String, _ ByVal Original_ncts_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_Versender_Ort As String, _ ByVal Original_ncts_Versender_PLZ As String, _ ByVal Original_ncts_Versender_Land As String, _ ByVal Original_ncts_Empfaenger_EORI As String, _ ByVal Original_ncts_Empfaenger_NLNR As String, _ ByVal Original_ncts_Empfaenger_TIN As String, _ ByVal Original_ncts_Empfaenger_Name As String, _ ByVal Original_ncts_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_Empfaenger_Ort As String, _ ByVal Original_ncts_Empfaenger_PLZ As String, _ ByVal Original_ncts_Empfaenger_Land As String, _ ByVal Original_ncts_Hauptverpflichteter_EORI As String, _ ByVal Original_ncts_Hauptverpflichteter_NLNR As String, _ ByVal Original_ncts_Hauptverpflichteter_TIN As String, _ ByVal Original_ncts_Hauptverpflichteter_Name As String, _ ByVal Original_ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal Original_ncts_Hauptverpflichteter_Ort As String, _ ByVal Original_ncts_Hauptverpflichteter_PLZ As String, _ ByVal Original_ncts_Hauptverpflichteter_Land As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal Original_ncts_SumA_KzSumASicherheit As String, _ ByVal Original_ncts_SumA_KennnummerSendung As String, _ ByVal Original_ncts_SumA_NummerBefoerderung As String, _ ByVal Original_ncts_SumA_BesondereUmstaende As String, _ ByVal Original_ncts_SumA_Ladeort As String, _ ByVal Original_ncts_SumA_Entladeort As String, _ ByVal Original_ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal Original_ncts_SumA_Versender_EORI As String, _ ByVal Original_ncts_SumA_Versender_NLNR As String, _ ByVal Original_ncts_SumA_Versender_TIN As String, _ ByVal Original_ncts_SumA_Versender_Name As String, _ ByVal Original_ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Versender_Land As String, _ ByVal Original_ncts_SumA_Versender_PLZ As String, _ ByVal Original_ncts_SumA_Versender_Ort As String, _ ByVal Original_ncts_SumA_Empfaenger_EORI As String, _ ByVal Original_ncts_SumA_Empfaenger_NLNR As String, _ ByVal Original_ncts_SumA_Empfaenger_TIN As String, _ ByVal Original_ncts_SumA_Empfaenger_Name As String, _ ByVal Original_ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Empfaenger_Land As String, _ ByVal Original_ncts_SumA_Empfaenger_PLZ As String, _ ByVal Original_ncts_SumA_Empfaenger_Ort As String, _ ByVal Original_ncts_SumA_Befoerderer_EORI As String, _ ByVal Original_ncts_SumA_Befoerderer_NLNR As String, _ ByVal Original_ncts_SumA_Befoerderer_TIN As String, _ ByVal Original_ncts_SumA_Befoerderer_Name As String, _ ByVal Original_ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Befoerderer_Land As String, _ ByVal Original_ncts_SumA_Befoerderer_PLZ As String, _ ByVal Original_ncts_SumA_Befoerderer_Ort As String, _ ByVal Original_ncts_Stammreferenz As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ncts_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ncts_Status,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ncts_Status_KEWILL_Equivalent,Integer) If (Original_ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ncts_dyaArt") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ncts_dyaArt,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ncts_dyaAnmID,Integer) If (Original_ncts_ANR 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_ncts_ANR,String) End If If (Original_ncts_MRN 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_ncts_MRN,String) End If Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ncts_Erstellung,Date) If (Original_ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ncts_LetzteBearbeitung,Date) If (Original_ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ncts_LetzteBearbeitung_SB.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_ncts_firma Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ncts_firma,String) End If If (Original_ncts_niederlassung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_ncts_niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_ncts_Gestellt,Boolean) If (Original_ncts_GestelltAm.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_ncts_GestelltAm.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Partner 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_ncts_Trans_Partner,String) End If If (Original_ncts_Trans_Div1 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_ncts_Trans_Div1,String) End If If (Original_ncts_Trans_Div2 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_ncts_Trans_Div2,String) End If If (Original_ncts_Trans_Div3 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_ncts_Trans_Div3,String) End If If (Original_ncts_Trans_Referenz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_ncts_Trans_Referenz,String) End If If (Original_ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Version.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_ncts_Trans_Version.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_ncts_NachrichtenSenderTIN,String) End If If (Original_ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_ncts_NachrichtenSenderNLNR,String) End If If (Original_ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_ncts_NachrichtenempfaengerDST,String) End If If (Original_ncts_ObjectName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_ncts_ObjectName,String) End If If (Original_ncts_ObjectAlias Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_ncts_ObjectAlias,String) End If If (Original_ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_ncts_BezugsnummerVorblendung,String) End If If (Original_ncts_Bearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_ncts_Bearbeiter,String) End If If (Original_ncts_VersendungsLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_ncts_VersendungsLandCode,String) End If If (Original_ncts_BestimmungslandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_ncts_BestimmungslandCode,String) End If If (Original_ncts_ArtAnmeldung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = CType(Original_ncts_ArtAnmeldung,String) End If If (Original_ncts_BeladungsOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = CType(Original_ncts_BeladungsOrt,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer1,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer2,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer3,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer4,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer5,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer6,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer7,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer8,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer9,String) End If If (Original_ncts_BestimmungsstelleDienststellennummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = CType(Original_ncts_BestimmungsstelleDienststellennummer,String) End If If (Original_ncts_AbgangsDienststellennummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = CType(Original_ncts_AbgangsDienststellennummer,String) End If If (Original_ncts_Wiedergestellungsdatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = CType(Original_ncts_Wiedergestellungsdatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = Global.System.DBNull.Value End If If (Original_ncts_KzVereinfachtesVerfahren Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = CType(Original_ncts_KzVereinfachtesVerfahren,String) End If If (Original_ncts_GesamtRohmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = CType(Original_ncts_GesamtRohmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Original_ncts_GesamtAnzahlPackstuecke.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = CType(Original_ncts_GesamtAnzahlPackstuecke.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (Original_ncts_Verschluss_ArtCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = CType(Original_ncts_Verschluss_ArtCode,String) End If If (Original_ncts_Verschluss_Anzahl.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = CType(Original_ncts_Verschluss_Anzahl.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = Global.System.DBNull.Value End If If (Original_ncts_Verschluss_Zeichen1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = CType(Original_ncts_Verschluss_Zeichen1,String) End If If (Original_ncts_Verschluss_Zeichen2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = CType(Original_ncts_Verschluss_Zeichen2,String) End If If (Original_ncts_Verschluss_Zeichen3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = CType(Original_ncts_Verschluss_Zeichen3,String) End If If (Original_ncts_Verschluss_Zeichen4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = CType(Original_ncts_Verschluss_Zeichen4,String) End If If (Original_ncts_Verschluss_Zeichen5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = CType(Original_ncts_Verschluss_Zeichen5,String) End If If (Original_ncts_Verschluss_Zeichen6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = CType(Original_ncts_Verschluss_Zeichen6,String) End If If (Original_ncts_Verschluss_Zeichen7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = CType(Original_ncts_Verschluss_Zeichen7,String) End If If (Original_ncts_Verschluss_Zeichen8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = CType(Original_ncts_Verschluss_Zeichen8,String) End If If (Original_ncts_Verschluss_Zeichen9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = CType(Original_ncts_Verschluss_Zeichen9,String) End If If (Original_ncts_Verschluss_Zeichen10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = CType(Original_ncts_Verschluss_Zeichen10,String) End If If (Original_ncts_Verschluss_Zeichen11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = CType(Original_ncts_Verschluss_Zeichen11,String) End If If (Original_ncts_Verschluss_Zeichen12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = CType(Original_ncts_Verschluss_Zeichen12,String) End If If (Original_ncts_Verschluss_Zeichen13 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = CType(Original_ncts_Verschluss_Zeichen13,String) End If If (Original_ncts_Verschluss_Zeichen14 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = CType(Original_ncts_Verschluss_Zeichen14,String) End If If (Original_ncts_Verschluss_Zeichen15 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = CType(Original_ncts_Verschluss_Zeichen15,String) End If If (Original_ncts_Verschluss_Zeichen16 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = CType(Original_ncts_Verschluss_Zeichen16,String) End If If (Original_ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = CType(Original_ncts_Befoerderungsmittel_KennzeichenAbgang,String) End If If (Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = CType(Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode,String) End If If (Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = CType(Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent,String) End If If (Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = CType(Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung,String) End If If (Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = CType(Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend,String) End If If (Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = CType(Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode,String) End If If (Original_ncts_Versender_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(136).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(136).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = CType(Original_ncts_Versender_EORI,String) End If If (Original_ncts_Versender_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(138).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(138).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = CType(Original_ncts_Versender_NLNR,String) End If If (Original_ncts_Versender_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(140).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(140).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = CType(Original_ncts_Versender_TIN,String) End If If (Original_ncts_Versender_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(142).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(142).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = CType(Original_ncts_Versender_Name,String) End If If (Original_ncts_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(144).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(144).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = CType(Original_ncts_Versender_StrasseHausnummer,String) End If If (Original_ncts_Versender_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(146).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(146).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = CType(Original_ncts_Versender_Ort,String) End If If (Original_ncts_Versender_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(148).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(148).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = CType(Original_ncts_Versender_PLZ,String) End If If (Original_ncts_Versender_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(150).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(150).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(151).Value = CType(Original_ncts_Versender_Land,String) End If If (Original_ncts_Empfaenger_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(152).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(152).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(153).Value = CType(Original_ncts_Empfaenger_EORI,String) End If If (Original_ncts_Empfaenger_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(154).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(154).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(155).Value = CType(Original_ncts_Empfaenger_NLNR,String) End If If (Original_ncts_Empfaenger_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(156).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(156).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(157).Value = CType(Original_ncts_Empfaenger_TIN,String) End If If (Original_ncts_Empfaenger_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(158).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(158).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(159).Value = CType(Original_ncts_Empfaenger_Name,String) End If If (Original_ncts_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(160).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(160).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(161).Value = CType(Original_ncts_Empfaenger_StrasseHausnummer,String) End If If (Original_ncts_Empfaenger_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(162).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(162).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(163).Value = CType(Original_ncts_Empfaenger_Ort,String) End If If (Original_ncts_Empfaenger_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(164).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(164).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(165).Value = CType(Original_ncts_Empfaenger_PLZ,String) End If If (Original_ncts_Empfaenger_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(166).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(166).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(167).Value = CType(Original_ncts_Empfaenger_Land,String) End If If (Original_ncts_Hauptverpflichteter_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(168).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(168).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(169).Value = CType(Original_ncts_Hauptverpflichteter_EORI,String) End If If (Original_ncts_Hauptverpflichteter_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(170).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(171).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(170).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(171).Value = CType(Original_ncts_Hauptverpflichteter_NLNR,String) End If If (Original_ncts_Hauptverpflichteter_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(172).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(173).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(172).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(173).Value = CType(Original_ncts_Hauptverpflichteter_TIN,String) End If If (Original_ncts_Hauptverpflichteter_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(174).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(175).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(174).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(175).Value = CType(Original_ncts_Hauptverpflichteter_Name,String) End If If (Original_ncts_Hauptverpflichteter_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(176).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(177).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(176).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(177).Value = CType(Original_ncts_Hauptverpflichteter_StrasseHausnummer,String) End If If (Original_ncts_Hauptverpflichteter_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(178).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(179).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(178).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(179).Value = CType(Original_ncts_Hauptverpflichteter_Ort,String) End If If (Original_ncts_Hauptverpflichteter_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(180).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(181).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(180).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(181).Value = CType(Original_ncts_Hauptverpflichteter_PLZ,String) End If If (Original_ncts_Hauptverpflichteter_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(182).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(183).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(182).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(183).Value = CType(Original_ncts_Hauptverpflichteter_Land,String) End If If (Original_ncts_ZugelassenerEmpfaenger_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(184).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(185).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(184).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(185).Value = CType(Original_ncts_ZugelassenerEmpfaenger_EORI,String) End If If (Original_ncts_ZugelassenerEmpfaenger_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(186).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(187).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(186).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(187).Value = CType(Original_ncts_ZugelassenerEmpfaenger_TIN,String) End If If (Original_ncts_ZugelassenerEmpfaenger_IDCarnet Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(188).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(189).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(188).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(189).Value = CType(Original_ncts_ZugelassenerEmpfaenger_IDCarnet,String) End If If (Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(190).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(191).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(190).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(191).Value = CType(Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender,String) End If If (Original_ncts_SumA_KzSumASicherheit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(192).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(193).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(192).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(193).Value = CType(Original_ncts_SumA_KzSumASicherheit,String) End If If (Original_ncts_SumA_KennnummerSendung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(194).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(195).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(194).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(195).Value = CType(Original_ncts_SumA_KennnummerSendung,String) End If If (Original_ncts_SumA_NummerBefoerderung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(196).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(197).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(196).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(197).Value = CType(Original_ncts_SumA_NummerBefoerderung,String) End If If (Original_ncts_SumA_BesondereUmstaende Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(198).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(199).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(198).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(199).Value = CType(Original_ncts_SumA_BesondereUmstaende,String) End If If (Original_ncts_SumA_Ladeort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(200).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(201).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(200).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(201).Value = CType(Original_ncts_SumA_Ladeort,String) End If If (Original_ncts_SumA_Entladeort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(202).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(203).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(202).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(203).Value = CType(Original_ncts_SumA_Entladeort,String) End If If (Original_ncts_SumA_BefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(204).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(205).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(204).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(205).Value = CType(Original_ncts_SumA_BefoerderungskostenZahlungsweise,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(206).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(207).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(206).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(207).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand1,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(208).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(209).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(208).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(209).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand2,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(210).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(211).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(210).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(211).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand3,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(212).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(213).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(212).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(213).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand4,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(214).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(215).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(214).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(215).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand5,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(216).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(217).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(216).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(217).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand6,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(218).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(219).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(218).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(219).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand7,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(220).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(221).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(220).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(221).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand8,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(222).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(223).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(222).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(223).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand9,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(224).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(225).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(224).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(225).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand10,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(226).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(227).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(226).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(227).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand11,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(228).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(229).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(228).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(229).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand12,String) End If If (Original_ncts_SumA_Versender_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(230).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(231).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(230).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(231).Value = CType(Original_ncts_SumA_Versender_EORI,String) End If If (Original_ncts_SumA_Versender_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(232).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(233).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(232).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(233).Value = CType(Original_ncts_SumA_Versender_NLNR,String) End If If (Original_ncts_SumA_Versender_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(234).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(235).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(234).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(235).Value = CType(Original_ncts_SumA_Versender_TIN,String) End If If (Original_ncts_SumA_Versender_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(236).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(237).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(236).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(237).Value = CType(Original_ncts_SumA_Versender_Name,String) End If If (Original_ncts_SumA_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(238).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(239).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(238).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(239).Value = CType(Original_ncts_SumA_Versender_StrasseHausnummer,String) End If If (Original_ncts_SumA_Versender_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(240).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(241).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(240).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(241).Value = CType(Original_ncts_SumA_Versender_Land,String) End If If (Original_ncts_SumA_Versender_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(242).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(243).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(242).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(243).Value = CType(Original_ncts_SumA_Versender_PLZ,String) End If If (Original_ncts_SumA_Versender_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(244).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(245).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(244).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(245).Value = CType(Original_ncts_SumA_Versender_Ort,String) End If If (Original_ncts_SumA_Empfaenger_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(246).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(247).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(246).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(247).Value = CType(Original_ncts_SumA_Empfaenger_EORI,String) End If If (Original_ncts_SumA_Empfaenger_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(248).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(249).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(248).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(249).Value = CType(Original_ncts_SumA_Empfaenger_NLNR,String) End If If (Original_ncts_SumA_Empfaenger_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(250).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(251).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(250).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(251).Value = CType(Original_ncts_SumA_Empfaenger_TIN,String) End If If (Original_ncts_SumA_Empfaenger_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(252).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(253).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(252).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(253).Value = CType(Original_ncts_SumA_Empfaenger_Name,String) End If If (Original_ncts_SumA_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(254).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(255).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(254).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(255).Value = CType(Original_ncts_SumA_Empfaenger_StrasseHausnummer,String) End If If (Original_ncts_SumA_Empfaenger_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(256).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(257).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(256).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(257).Value = CType(Original_ncts_SumA_Empfaenger_Land,String) End If If (Original_ncts_SumA_Empfaenger_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(258).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(259).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(258).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(259).Value = CType(Original_ncts_SumA_Empfaenger_PLZ,String) End If If (Original_ncts_SumA_Empfaenger_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(260).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(261).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(260).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(261).Value = CType(Original_ncts_SumA_Empfaenger_Ort,String) End If If (Original_ncts_SumA_Befoerderer_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(262).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(263).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(262).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(263).Value = CType(Original_ncts_SumA_Befoerderer_EORI,String) End If If (Original_ncts_SumA_Befoerderer_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(264).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(265).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(264).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(265).Value = CType(Original_ncts_SumA_Befoerderer_NLNR,String) End If If (Original_ncts_SumA_Befoerderer_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(266).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(267).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(266).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(267).Value = CType(Original_ncts_SumA_Befoerderer_TIN,String) End If If (Original_ncts_SumA_Befoerderer_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(268).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(269).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(268).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(269).Value = CType(Original_ncts_SumA_Befoerderer_Name,String) End If If (Original_ncts_SumA_Befoerderer_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(270).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(271).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(270).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(271).Value = CType(Original_ncts_SumA_Befoerderer_StrasseHausnummer,String) End If If (Original_ncts_SumA_Befoerderer_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(272).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(273).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(272).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(273).Value = CType(Original_ncts_SumA_Befoerderer_Land,String) End If If (Original_ncts_SumA_Befoerderer_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(274).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(275).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(274).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(275).Value = CType(Original_ncts_SumA_Befoerderer_PLZ,String) End If If (Original_ncts_SumA_Befoerderer_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(276).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(277).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(276).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(277).Value = CType(Original_ncts_SumA_Befoerderer_Ort,String) End If If (Original_ncts_Stammreferenz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(278).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(279).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(278).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(279).Value = CType(Original_ncts_Stammreferenz,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 ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_VersendungsLandCode As String, _ ByVal ncts_BestimmungslandCode As String, _ ByVal ncts_ArtAnmeldung As String, _ ByVal ncts_BeladungsOrt As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal ncts_BestimmungsstelleDienststellennummer As String, _ ByVal ncts_AbgangsDienststellennummer As String, _ ByVal ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal ncts_KzVereinfachtesVerfahren As String, _ ByVal ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_ArtCode As String, _ ByVal ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_Zeichen1 As String, _ ByVal ncts_Verschluss_Zeichen2 As String, _ ByVal ncts_Verschluss_Zeichen3 As String, _ ByVal ncts_Verschluss_Zeichen4 As String, _ ByVal ncts_Verschluss_Zeichen5 As String, _ ByVal ncts_Verschluss_Zeichen6 As String, _ ByVal ncts_Verschluss_Zeichen7 As String, _ ByVal ncts_Verschluss_Zeichen8 As String, _ ByVal ncts_Verschluss_Zeichen9 As String, _ ByVal ncts_Verschluss_Zeichen10 As String, _ ByVal ncts_Verschluss_Zeichen11 As String, _ ByVal ncts_Verschluss_Zeichen12 As String, _ ByVal ncts_Verschluss_Zeichen13 As String, _ ByVal ncts_Verschluss_Zeichen14 As String, _ ByVal ncts_Verschluss_Zeichen15 As String, _ ByVal ncts_Verschluss_Zeichen16 As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal ncts_Versender_EORI As String, _ ByVal ncts_Versender_NLNR As String, _ ByVal ncts_Versender_TIN As String, _ ByVal ncts_Versender_Name As String, _ ByVal ncts_Versender_StrasseHausnummer As String, _ ByVal ncts_Versender_Ort As String, _ ByVal ncts_Versender_PLZ As String, _ ByVal ncts_Versender_Land As String, _ ByVal ncts_Empfaenger_EORI As String, _ ByVal ncts_Empfaenger_NLNR As String, _ ByVal ncts_Empfaenger_TIN As String, _ ByVal ncts_Empfaenger_Name As String, _ ByVal ncts_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_Empfaenger_Ort As String, _ ByVal ncts_Empfaenger_PLZ As String, _ ByVal ncts_Empfaenger_Land As String, _ ByVal ncts_Hauptverpflichteter_EORI As String, _ ByVal ncts_Hauptverpflichteter_NLNR As String, _ ByVal ncts_Hauptverpflichteter_TIN As String, _ ByVal ncts_Hauptverpflichteter_Name As String, _ ByVal ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal ncts_Hauptverpflichteter_Ort As String, _ ByVal ncts_Hauptverpflichteter_PLZ As String, _ ByVal ncts_Hauptverpflichteter_Land As String, _ ByVal ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal ncts_SumA_KzSumASicherheit As String, _ ByVal ncts_SumA_KennnummerSendung As String, _ ByVal ncts_SumA_NummerBefoerderung As String, _ ByVal ncts_SumA_BesondereUmstaende As String, _ ByVal ncts_SumA_Ladeort As String, _ ByVal ncts_SumA_Entladeort As String, _ ByVal ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal ncts_SumA_Versender_EORI As String, _ ByVal ncts_SumA_Versender_NLNR As String, _ ByVal ncts_SumA_Versender_TIN As String, _ ByVal ncts_SumA_Versender_Name As String, _ ByVal ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal ncts_SumA_Versender_Land As String, _ ByVal ncts_SumA_Versender_PLZ As String, _ ByVal ncts_SumA_Versender_Ort As String, _ ByVal ncts_SumA_Empfaenger_EORI As String, _ ByVal ncts_SumA_Empfaenger_NLNR As String, _ ByVal ncts_SumA_Empfaenger_TIN As String, _ ByVal ncts_SumA_Empfaenger_Name As String, _ ByVal ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_SumA_Empfaenger_Land As String, _ ByVal ncts_SumA_Empfaenger_PLZ As String, _ ByVal ncts_SumA_Empfaenger_Ort As String, _ ByVal ncts_SumA_Befoerderer_EORI As String, _ ByVal ncts_SumA_Befoerderer_NLNR As String, _ ByVal ncts_SumA_Befoerderer_TIN As String, _ ByVal ncts_SumA_Befoerderer_Name As String, _ ByVal ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal ncts_SumA_Befoerderer_Land As String, _ ByVal ncts_SumA_Befoerderer_PLZ As String, _ ByVal ncts_SumA_Befoerderer_Ort As String, _ ByVal ncts_Stammreferenz As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ncts_Status,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ncts_Status_KEWILL_Equivalent,Integer) If (ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("ncts_dyaArt") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ncts_dyaArt,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(ncts_dyaAnmID,Integer) If (ncts_ANR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ncts_ANR,String) End If If (ncts_MRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ncts_MRN,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(ncts_Erstellung,Date) If (ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(ncts_LetzteBearbeitung,Date) If (ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(ncts_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (ncts_firma Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(ncts_firma,String) End If If (ncts_niederlassung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(ncts_niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(12).Value = CType(ncts_Gestellt,Boolean) If (ncts_GestelltAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(ncts_GestelltAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (ncts_Trans_Partner Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(ncts_Trans_Partner,String) End If If (ncts_Trans_Div1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(ncts_Trans_Div1,String) End If If (ncts_Trans_Div2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(ncts_Trans_Div2,String) End If If (ncts_Trans_Div3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(ncts_Trans_Div3,String) End If If (ncts_Trans_Referenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(ncts_Trans_Referenz,String) End If If (ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (ncts_Trans_Version.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(ncts_Trans_Version.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(ncts_NachrichtenSenderTIN,String) End If If (ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(ncts_NachrichtenSenderNLNR,String) End If If (ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(ncts_NachrichtenempfaengerDST,String) End If If (ncts_ObjectName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(ncts_ObjectName,String) End If If (ncts_ObjectAlias Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(ncts_ObjectAlias,String) End If If (ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(ncts_BezugsnummerVorblendung,String) End If If (ncts_Bearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(ncts_Bearbeiter,String) End If If (ncts_VersendungsLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(ncts_VersendungsLandCode,String) End If If (ncts_BestimmungslandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(ncts_BestimmungslandCode,String) End If If (ncts_ArtAnmeldung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(ncts_ArtAnmeldung,String) End If If (ncts_BeladungsOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(ncts_BeladungsOrt,String) End If If (ncts_DurchgangszollstelleDienststellnummer1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(ncts_DurchgangszollstelleDienststellnummer1,String) End If If (ncts_DurchgangszollstelleDienststellnummer2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(ncts_DurchgangszollstelleDienststellnummer2,String) End If If (ncts_DurchgangszollstelleDienststellnummer3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(ncts_DurchgangszollstelleDienststellnummer3,String) End If If (ncts_DurchgangszollstelleDienststellnummer4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(ncts_DurchgangszollstelleDienststellnummer4,String) End If If (ncts_DurchgangszollstelleDienststellnummer5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(ncts_DurchgangszollstelleDienststellnummer5,String) End If If (ncts_DurchgangszollstelleDienststellnummer6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(ncts_DurchgangszollstelleDienststellnummer6,String) End If If (ncts_DurchgangszollstelleDienststellnummer7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(ncts_DurchgangszollstelleDienststellnummer7,String) End If If (ncts_DurchgangszollstelleDienststellnummer8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(ncts_DurchgangszollstelleDienststellnummer8,String) End If If (ncts_DurchgangszollstelleDienststellnummer9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(ncts_DurchgangszollstelleDienststellnummer9,String) End If If (ncts_BestimmungsstelleDienststellennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(ncts_BestimmungsstelleDienststellennummer,String) End If If (ncts_AbgangsDienststellennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(ncts_AbgangsDienststellennummer,String) End If If (ncts_Wiedergestellungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(ncts_Wiedergestellungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (ncts_KzVereinfachtesVerfahren Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(ncts_KzVereinfachtesVerfahren,String) End If If (ncts_GesamtRohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(45).Value = CType(ncts_GesamtRohmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (ncts_GesamtAnzahlPackstuecke.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(46).Value = CType(ncts_GesamtAnzahlPackstuecke.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (ncts_Verschluss_ArtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(ncts_Verschluss_ArtCode,String) End If If (ncts_Verschluss_Anzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(ncts_Verschluss_Anzahl.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (ncts_Verschluss_Zeichen1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(ncts_Verschluss_Zeichen1,String) End If If (ncts_Verschluss_Zeichen2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(ncts_Verschluss_Zeichen2,String) End If If (ncts_Verschluss_Zeichen3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(ncts_Verschluss_Zeichen3,String) End If If (ncts_Verschluss_Zeichen4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(ncts_Verschluss_Zeichen4,String) End If If (ncts_Verschluss_Zeichen5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(ncts_Verschluss_Zeichen5,String) End If If (ncts_Verschluss_Zeichen6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(ncts_Verschluss_Zeichen6,String) End If If (ncts_Verschluss_Zeichen7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(ncts_Verschluss_Zeichen7,String) End If If (ncts_Verschluss_Zeichen8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(ncts_Verschluss_Zeichen8,String) End If If (ncts_Verschluss_Zeichen9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(ncts_Verschluss_Zeichen9,String) End If If (ncts_Verschluss_Zeichen10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(ncts_Verschluss_Zeichen10,String) End If If (ncts_Verschluss_Zeichen11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(ncts_Verschluss_Zeichen11,String) End If If (ncts_Verschluss_Zeichen12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(ncts_Verschluss_Zeichen12,String) End If If (ncts_Verschluss_Zeichen13 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(ncts_Verschluss_Zeichen13,String) End If If (ncts_Verschluss_Zeichen14 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(ncts_Verschluss_Zeichen14,String) End If If (ncts_Verschluss_Zeichen15 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(ncts_Verschluss_Zeichen15,String) End If If (ncts_Verschluss_Zeichen16 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(ncts_Verschluss_Zeichen16,String) End If If (ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(ncts_Befoerderungsmittel_KennzeichenAbgang,String) End If If (ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode,String) End If If (ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent,String) End If If (ncts_Befoerderungsmittel_ArtGrenzueberschreitung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(ncts_Befoerderungsmittel_ArtGrenzueberschreitung,String) End If If (ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend,String) End If If (ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode,String) End If If (ncts_Versender_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(ncts_Versender_EORI,String) End If If (ncts_Versender_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(ncts_Versender_NLNR,String) End If If (ncts_Versender_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(ncts_Versender_TIN,String) End If If (ncts_Versender_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(ncts_Versender_Name,String) End If If (ncts_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(ncts_Versender_StrasseHausnummer,String) End If If (ncts_Versender_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(ncts_Versender_Ort,String) End If If (ncts_Versender_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(ncts_Versender_PLZ,String) End If If (ncts_Versender_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(78).Value = CType(ncts_Versender_Land,String) End If If (ncts_Empfaenger_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(ncts_Empfaenger_EORI,String) End If If (ncts_Empfaenger_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(ncts_Empfaenger_NLNR,String) End If If (ncts_Empfaenger_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(ncts_Empfaenger_TIN,String) End If If (ncts_Empfaenger_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(ncts_Empfaenger_Name,String) End If If (ncts_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(ncts_Empfaenger_StrasseHausnummer,String) End If If (ncts_Empfaenger_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(ncts_Empfaenger_Ort,String) End If If (ncts_Empfaenger_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(ncts_Empfaenger_PLZ,String) End If If (ncts_Empfaenger_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(ncts_Empfaenger_Land,String) End If If (ncts_Hauptverpflichteter_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(ncts_Hauptverpflichteter_EORI,String) End If If (ncts_Hauptverpflichteter_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(88).Value = CType(ncts_Hauptverpflichteter_NLNR,String) End If If (ncts_Hauptverpflichteter_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(ncts_Hauptverpflichteter_TIN,String) End If If (ncts_Hauptverpflichteter_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(ncts_Hauptverpflichteter_Name,String) End If If (ncts_Hauptverpflichteter_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(ncts_Hauptverpflichteter_StrasseHausnummer,String) End If If (ncts_Hauptverpflichteter_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(ncts_Hauptverpflichteter_Ort,String) End If If (ncts_Hauptverpflichteter_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(93).Value = CType(ncts_Hauptverpflichteter_PLZ,String) End If If (ncts_Hauptverpflichteter_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(ncts_Hauptverpflichteter_Land,String) End If If (ncts_ZugelassenerEmpfaenger_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(ncts_ZugelassenerEmpfaenger_EORI,String) End If If (ncts_ZugelassenerEmpfaenger_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(ncts_ZugelassenerEmpfaenger_TIN,String) End If If (ncts_ZugelassenerEmpfaenger_IDCarnet Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(ncts_ZugelassenerEmpfaenger_IDCarnet,String) End If If (ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender,String) End If If (ncts_SumA_KzSumASicherheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(ncts_SumA_KzSumASicherheit,String) End If If (ncts_SumA_KennnummerSendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(100).Value = CType(ncts_SumA_KennnummerSendung,String) End If If (ncts_SumA_NummerBefoerderung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(101).Value = CType(ncts_SumA_NummerBefoerderung,String) End If If (ncts_SumA_BesondereUmstaende Is Nothing) Then Me.Adapter.InsertCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(102).Value = CType(ncts_SumA_BesondereUmstaende,String) End If If (ncts_SumA_Ladeort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(103).Value = CType(ncts_SumA_Ladeort,String) End If If (ncts_SumA_Entladeort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(104).Value = CType(ncts_SumA_Entladeort,String) End If If (ncts_SumA_BefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.InsertCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(105).Value = CType(ncts_SumA_BefoerderungskostenZahlungsweise,String) End If If (ncts_SumA_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(106).Value = CType(ncts_SumA_BefoerderungsrouteLand1,String) End If If (ncts_SumA_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(107).Value = CType(ncts_SumA_BefoerderungsrouteLand2,String) End If If (ncts_SumA_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(108).Value = CType(ncts_SumA_BefoerderungsrouteLand3,String) End If If (ncts_SumA_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(109).Value = CType(ncts_SumA_BefoerderungsrouteLand4,String) End If If (ncts_SumA_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(110).Value = CType(ncts_SumA_BefoerderungsrouteLand5,String) End If If (ncts_SumA_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(111).Value = CType(ncts_SumA_BefoerderungsrouteLand6,String) End If If (ncts_SumA_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(112).Value = CType(ncts_SumA_BefoerderungsrouteLand7,String) End If If (ncts_SumA_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(113).Value = CType(ncts_SumA_BefoerderungsrouteLand8,String) End If If (ncts_SumA_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(114).Value = CType(ncts_SumA_BefoerderungsrouteLand9,String) End If If (ncts_SumA_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(115).Value = CType(ncts_SumA_BefoerderungsrouteLand10,String) End If If (ncts_SumA_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(116).Value = CType(ncts_SumA_BefoerderungsrouteLand11,String) End If If (ncts_SumA_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(117).Value = CType(ncts_SumA_BefoerderungsrouteLand12,String) End If If (ncts_SumA_Versender_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(118).Value = CType(ncts_SumA_Versender_EORI,String) End If If (ncts_SumA_Versender_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(119).Value = CType(ncts_SumA_Versender_NLNR,String) End If If (ncts_SumA_Versender_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(120).Value = CType(ncts_SumA_Versender_TIN,String) End If If (ncts_SumA_Versender_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(121).Value = CType(ncts_SumA_Versender_Name,String) End If If (ncts_SumA_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(122).Value = CType(ncts_SumA_Versender_StrasseHausnummer,String) End If If (ncts_SumA_Versender_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(123).Value = CType(ncts_SumA_Versender_Land,String) End If If (ncts_SumA_Versender_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(124).Value = CType(ncts_SumA_Versender_PLZ,String) End If If (ncts_SumA_Versender_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(125).Value = CType(ncts_SumA_Versender_Ort,String) End If If (ncts_SumA_Empfaenger_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(126).Value = CType(ncts_SumA_Empfaenger_EORI,String) End If If (ncts_SumA_Empfaenger_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(127).Value = CType(ncts_SumA_Empfaenger_NLNR,String) End If If (ncts_SumA_Empfaenger_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(128).Value = CType(ncts_SumA_Empfaenger_TIN,String) End If If (ncts_SumA_Empfaenger_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(129).Value = CType(ncts_SumA_Empfaenger_Name,String) End If If (ncts_SumA_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(130).Value = CType(ncts_SumA_Empfaenger_StrasseHausnummer,String) End If If (ncts_SumA_Empfaenger_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(131).Value = CType(ncts_SumA_Empfaenger_Land,String) End If If (ncts_SumA_Empfaenger_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(132).Value = CType(ncts_SumA_Empfaenger_PLZ,String) End If If (ncts_SumA_Empfaenger_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(133).Value = CType(ncts_SumA_Empfaenger_Ort,String) End If If (ncts_SumA_Befoerderer_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(134).Value = CType(ncts_SumA_Befoerderer_EORI,String) End If If (ncts_SumA_Befoerderer_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(135).Value = CType(ncts_SumA_Befoerderer_NLNR,String) End If If (ncts_SumA_Befoerderer_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(136).Value = CType(ncts_SumA_Befoerderer_TIN,String) End If If (ncts_SumA_Befoerderer_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(137).Value = CType(ncts_SumA_Befoerderer_Name,String) End If If (ncts_SumA_Befoerderer_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(138).Value = CType(ncts_SumA_Befoerderer_StrasseHausnummer,String) End If If (ncts_SumA_Befoerderer_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(139).Value = CType(ncts_SumA_Befoerderer_Land,String) End If If (ncts_SumA_Befoerderer_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(140).Value = CType(ncts_SumA_Befoerderer_PLZ,String) End If If (ncts_SumA_Befoerderer_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(141).Value = CType(ncts_SumA_Befoerderer_Ort,String) End If If (ncts_Stammreferenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(142).Value = CType(ncts_Stammreferenz,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 ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_VersendungsLandCode As String, _ ByVal ncts_BestimmungslandCode As String, _ ByVal ncts_ArtAnmeldung As String, _ ByVal ncts_BeladungsOrt As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal ncts_BestimmungsstelleDienststellennummer As String, _ ByVal ncts_AbgangsDienststellennummer As String, _ ByVal ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal ncts_KzVereinfachtesVerfahren As String, _ ByVal ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_ArtCode As String, _ ByVal ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_Zeichen1 As String, _ ByVal ncts_Verschluss_Zeichen2 As String, _ ByVal ncts_Verschluss_Zeichen3 As String, _ ByVal ncts_Verschluss_Zeichen4 As String, _ ByVal ncts_Verschluss_Zeichen5 As String, _ ByVal ncts_Verschluss_Zeichen6 As String, _ ByVal ncts_Verschluss_Zeichen7 As String, _ ByVal ncts_Verschluss_Zeichen8 As String, _ ByVal ncts_Verschluss_Zeichen9 As String, _ ByVal ncts_Verschluss_Zeichen10 As String, _ ByVal ncts_Verschluss_Zeichen11 As String, _ ByVal ncts_Verschluss_Zeichen12 As String, _ ByVal ncts_Verschluss_Zeichen13 As String, _ ByVal ncts_Verschluss_Zeichen14 As String, _ ByVal ncts_Verschluss_Zeichen15 As String, _ ByVal ncts_Verschluss_Zeichen16 As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal ncts_Versender_EORI As String, _ ByVal ncts_Versender_NLNR As String, _ ByVal ncts_Versender_TIN As String, _ ByVal ncts_Versender_Name As String, _ ByVal ncts_Versender_StrasseHausnummer As String, _ ByVal ncts_Versender_Ort As String, _ ByVal ncts_Versender_PLZ As String, _ ByVal ncts_Versender_Land As String, _ ByVal ncts_Empfaenger_EORI As String, _ ByVal ncts_Empfaenger_NLNR As String, _ ByVal ncts_Empfaenger_TIN As String, _ ByVal ncts_Empfaenger_Name As String, _ ByVal ncts_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_Empfaenger_Ort As String, _ ByVal ncts_Empfaenger_PLZ As String, _ ByVal ncts_Empfaenger_Land As String, _ ByVal ncts_Hauptverpflichteter_EORI As String, _ ByVal ncts_Hauptverpflichteter_NLNR As String, _ ByVal ncts_Hauptverpflichteter_TIN As String, _ ByVal ncts_Hauptverpflichteter_Name As String, _ ByVal ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal ncts_Hauptverpflichteter_Ort As String, _ ByVal ncts_Hauptverpflichteter_PLZ As String, _ ByVal ncts_Hauptverpflichteter_Land As String, _ ByVal ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal ncts_SumA_KzSumASicherheit As String, _ ByVal ncts_SumA_KennnummerSendung As String, _ ByVal ncts_SumA_NummerBefoerderung As String, _ ByVal ncts_SumA_BesondereUmstaende As String, _ ByVal ncts_SumA_Ladeort As String, _ ByVal ncts_SumA_Entladeort As String, _ ByVal ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal ncts_SumA_Versender_EORI As String, _ ByVal ncts_SumA_Versender_NLNR As String, _ ByVal ncts_SumA_Versender_TIN As String, _ ByVal ncts_SumA_Versender_Name As String, _ ByVal ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal ncts_SumA_Versender_Land As String, _ ByVal ncts_SumA_Versender_PLZ As String, _ ByVal ncts_SumA_Versender_Ort As String, _ ByVal ncts_SumA_Empfaenger_EORI As String, _ ByVal ncts_SumA_Empfaenger_NLNR As String, _ ByVal ncts_SumA_Empfaenger_TIN As String, _ ByVal ncts_SumA_Empfaenger_Name As String, _ ByVal ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_SumA_Empfaenger_Land As String, _ ByVal ncts_SumA_Empfaenger_PLZ As String, _ ByVal ncts_SumA_Empfaenger_Ort As String, _ ByVal ncts_SumA_Befoerderer_EORI As String, _ ByVal ncts_SumA_Befoerderer_NLNR As String, _ ByVal ncts_SumA_Befoerderer_TIN As String, _ ByVal ncts_SumA_Befoerderer_Name As String, _ ByVal ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal ncts_SumA_Befoerderer_Land As String, _ ByVal ncts_SumA_Befoerderer_PLZ As String, _ ByVal ncts_SumA_Befoerderer_Ort As String, _ ByVal ncts_Stammreferenz As String, _ ByVal Original_ncts_Id As Integer, _ ByVal Original_ncts_Status As Integer, _ ByVal Original_ncts_Status_KEWILL_Equivalent As Integer, _ ByVal Original_ncts_dyaArt As String, _ ByVal Original_ncts_dyaAnmID As Integer, _ ByVal Original_ncts_ANR As String, _ ByVal Original_ncts_MRN As String, _ ByVal Original_ncts_Erstellung As Date, _ ByVal Original_ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_LetzteBearbeitung As Date, _ ByVal Original_ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_firma As String, _ ByVal Original_ncts_niederlassung As String, _ ByVal Original_ncts_Gestellt As Boolean, _ ByVal Original_ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Partner As String, _ ByVal Original_ncts_Trans_Div1 As String, _ ByVal Original_ncts_Trans_Div2 As String, _ ByVal Original_ncts_Trans_Div3 As String, _ ByVal Original_ncts_Trans_Referenz As String, _ ByVal Original_ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_NachrichtenSenderTIN As String, _ ByVal Original_ncts_NachrichtenSenderNLNR As String, _ ByVal Original_ncts_NachrichtenempfaengerDST As String, _ ByVal Original_ncts_ObjectName As String, _ ByVal Original_ncts_ObjectAlias As String, _ ByVal Original_ncts_BezugsnummerVorblendung As String, _ ByVal Original_ncts_Bearbeiter As String, _ ByVal Original_ncts_VersendungsLandCode As String, _ ByVal Original_ncts_BestimmungslandCode As String, _ ByVal Original_ncts_ArtAnmeldung As String, _ ByVal Original_ncts_BeladungsOrt As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal Original_ncts_BestimmungsstelleDienststellennummer As String, _ ByVal Original_ncts_AbgangsDienststellennummer As String, _ ByVal Original_ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_ncts_KzVereinfachtesVerfahren As String, _ ByVal Original_ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_ArtCode As String, _ ByVal Original_ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_Zeichen1 As String, _ ByVal Original_ncts_Verschluss_Zeichen2 As String, _ ByVal Original_ncts_Verschluss_Zeichen3 As String, _ ByVal Original_ncts_Verschluss_Zeichen4 As String, _ ByVal Original_ncts_Verschluss_Zeichen5 As String, _ ByVal Original_ncts_Verschluss_Zeichen6 As String, _ ByVal Original_ncts_Verschluss_Zeichen7 As String, _ ByVal Original_ncts_Verschluss_Zeichen8 As String, _ ByVal Original_ncts_Verschluss_Zeichen9 As String, _ ByVal Original_ncts_Verschluss_Zeichen10 As String, _ ByVal Original_ncts_Verschluss_Zeichen11 As String, _ ByVal Original_ncts_Verschluss_Zeichen12 As String, _ ByVal Original_ncts_Verschluss_Zeichen13 As String, _ ByVal Original_ncts_Verschluss_Zeichen14 As String, _ ByVal Original_ncts_Verschluss_Zeichen15 As String, _ ByVal Original_ncts_Verschluss_Zeichen16 As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal Original_ncts_Versender_EORI As String, _ ByVal Original_ncts_Versender_NLNR As String, _ ByVal Original_ncts_Versender_TIN As String, _ ByVal Original_ncts_Versender_Name As String, _ ByVal Original_ncts_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_Versender_Ort As String, _ ByVal Original_ncts_Versender_PLZ As String, _ ByVal Original_ncts_Versender_Land As String, _ ByVal Original_ncts_Empfaenger_EORI As String, _ ByVal Original_ncts_Empfaenger_NLNR As String, _ ByVal Original_ncts_Empfaenger_TIN As String, _ ByVal Original_ncts_Empfaenger_Name As String, _ ByVal Original_ncts_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_Empfaenger_Ort As String, _ ByVal Original_ncts_Empfaenger_PLZ As String, _ ByVal Original_ncts_Empfaenger_Land As String, _ ByVal Original_ncts_Hauptverpflichteter_EORI As String, _ ByVal Original_ncts_Hauptverpflichteter_NLNR As String, _ ByVal Original_ncts_Hauptverpflichteter_TIN As String, _ ByVal Original_ncts_Hauptverpflichteter_Name As String, _ ByVal Original_ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal Original_ncts_Hauptverpflichteter_Ort As String, _ ByVal Original_ncts_Hauptverpflichteter_PLZ As String, _ ByVal Original_ncts_Hauptverpflichteter_Land As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal Original_ncts_SumA_KzSumASicherheit As String, _ ByVal Original_ncts_SumA_KennnummerSendung As String, _ ByVal Original_ncts_SumA_NummerBefoerderung As String, _ ByVal Original_ncts_SumA_BesondereUmstaende As String, _ ByVal Original_ncts_SumA_Ladeort As String, _ ByVal Original_ncts_SumA_Entladeort As String, _ ByVal Original_ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal Original_ncts_SumA_Versender_EORI As String, _ ByVal Original_ncts_SumA_Versender_NLNR As String, _ ByVal Original_ncts_SumA_Versender_TIN As String, _ ByVal Original_ncts_SumA_Versender_Name As String, _ ByVal Original_ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Versender_Land As String, _ ByVal Original_ncts_SumA_Versender_PLZ As String, _ ByVal Original_ncts_SumA_Versender_Ort As String, _ ByVal Original_ncts_SumA_Empfaenger_EORI As String, _ ByVal Original_ncts_SumA_Empfaenger_NLNR As String, _ ByVal Original_ncts_SumA_Empfaenger_TIN As String, _ ByVal Original_ncts_SumA_Empfaenger_Name As String, _ ByVal Original_ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Empfaenger_Land As String, _ ByVal Original_ncts_SumA_Empfaenger_PLZ As String, _ ByVal Original_ncts_SumA_Empfaenger_Ort As String, _ ByVal Original_ncts_SumA_Befoerderer_EORI As String, _ ByVal Original_ncts_SumA_Befoerderer_NLNR As String, _ ByVal Original_ncts_SumA_Befoerderer_TIN As String, _ ByVal Original_ncts_SumA_Befoerderer_Name As String, _ ByVal Original_ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Befoerderer_Land As String, _ ByVal Original_ncts_SumA_Befoerderer_PLZ As String, _ ByVal Original_ncts_SumA_Befoerderer_Ort As String, _ ByVal Original_ncts_Stammreferenz As String, _ ByVal ncts_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ncts_Status,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ncts_Status_KEWILL_Equivalent,Integer) If (ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("ncts_dyaArt") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ncts_dyaArt,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ncts_dyaAnmID,Integer) If (ncts_ANR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ncts_ANR,String) End If If (ncts_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ncts_MRN,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ncts_Erstellung,Date) If (ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ncts_LetzteBearbeitung,Date) If (ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ncts_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (ncts_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ncts_firma,String) End If If (ncts_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ncts_niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ncts_Gestellt,Boolean) If (ncts_GestelltAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ncts_GestelltAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (ncts_Trans_Partner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ncts_Trans_Partner,String) End If If (ncts_Trans_Div1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ncts_Trans_Div1,String) End If If (ncts_Trans_Div2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ncts_Trans_Div2,String) End If If (ncts_Trans_Div3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ncts_Trans_Div3,String) End If If (ncts_Trans_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ncts_Trans_Referenz,String) End If If (ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (ncts_Trans_Version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(ncts_Trans_Version.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(ncts_NachrichtenSenderTIN,String) End If If (ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(ncts_NachrichtenSenderNLNR,String) End If If (ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(ncts_NachrichtenempfaengerDST,String) End If If (ncts_ObjectName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(ncts_ObjectName,String) End If If (ncts_ObjectAlias Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(ncts_ObjectAlias,String) End If If (ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(ncts_BezugsnummerVorblendung,String) End If If (ncts_Bearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(ncts_Bearbeiter,String) End If If (ncts_VersendungsLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(ncts_VersendungsLandCode,String) End If If (ncts_BestimmungslandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(ncts_BestimmungslandCode,String) End If If (ncts_ArtAnmeldung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(ncts_ArtAnmeldung,String) End If If (ncts_BeladungsOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(ncts_BeladungsOrt,String) End If If (ncts_DurchgangszollstelleDienststellnummer1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(ncts_DurchgangszollstelleDienststellnummer1,String) End If If (ncts_DurchgangszollstelleDienststellnummer2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(ncts_DurchgangszollstelleDienststellnummer2,String) End If If (ncts_DurchgangszollstelleDienststellnummer3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(ncts_DurchgangszollstelleDienststellnummer3,String) End If If (ncts_DurchgangszollstelleDienststellnummer4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(ncts_DurchgangszollstelleDienststellnummer4,String) End If If (ncts_DurchgangszollstelleDienststellnummer5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(ncts_DurchgangszollstelleDienststellnummer5,String) End If If (ncts_DurchgangszollstelleDienststellnummer6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(ncts_DurchgangszollstelleDienststellnummer6,String) End If If (ncts_DurchgangszollstelleDienststellnummer7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(ncts_DurchgangszollstelleDienststellnummer7,String) End If If (ncts_DurchgangszollstelleDienststellnummer8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(ncts_DurchgangszollstelleDienststellnummer8,String) End If If (ncts_DurchgangszollstelleDienststellnummer9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(ncts_DurchgangszollstelleDienststellnummer9,String) End If If (ncts_BestimmungsstelleDienststellennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(ncts_BestimmungsstelleDienststellennummer,String) End If If (ncts_AbgangsDienststellennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(ncts_AbgangsDienststellennummer,String) End If If (ncts_Wiedergestellungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(ncts_Wiedergestellungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (ncts_KzVereinfachtesVerfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(ncts_KzVereinfachtesVerfahren,String) End If If (ncts_GesamtRohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(ncts_GesamtRohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (ncts_GesamtAnzahlPackstuecke.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(ncts_GesamtAnzahlPackstuecke.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (ncts_Verschluss_ArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(ncts_Verschluss_ArtCode,String) End If If (ncts_Verschluss_Anzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(ncts_Verschluss_Anzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (ncts_Verschluss_Zeichen1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(ncts_Verschluss_Zeichen1,String) End If If (ncts_Verschluss_Zeichen2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(ncts_Verschluss_Zeichen2,String) End If If (ncts_Verschluss_Zeichen3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(ncts_Verschluss_Zeichen3,String) End If If (ncts_Verschluss_Zeichen4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(ncts_Verschluss_Zeichen4,String) End If If (ncts_Verschluss_Zeichen5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(ncts_Verschluss_Zeichen5,String) End If If (ncts_Verschluss_Zeichen6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(ncts_Verschluss_Zeichen6,String) End If If (ncts_Verschluss_Zeichen7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(ncts_Verschluss_Zeichen7,String) End If If (ncts_Verschluss_Zeichen8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(ncts_Verschluss_Zeichen8,String) End If If (ncts_Verschluss_Zeichen9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(ncts_Verschluss_Zeichen9,String) End If If (ncts_Verschluss_Zeichen10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(ncts_Verschluss_Zeichen10,String) End If If (ncts_Verschluss_Zeichen11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(ncts_Verschluss_Zeichen11,String) End If If (ncts_Verschluss_Zeichen12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(ncts_Verschluss_Zeichen12,String) End If If (ncts_Verschluss_Zeichen13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(ncts_Verschluss_Zeichen13,String) End If If (ncts_Verschluss_Zeichen14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(ncts_Verschluss_Zeichen14,String) End If If (ncts_Verschluss_Zeichen15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(ncts_Verschluss_Zeichen15,String) End If If (ncts_Verschluss_Zeichen16 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(ncts_Verschluss_Zeichen16,String) End If If (ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(ncts_Befoerderungsmittel_KennzeichenAbgang,String) End If If (ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode,String) End If If (ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent,String) End If If (ncts_Befoerderungsmittel_ArtGrenzueberschreitung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(ncts_Befoerderungsmittel_ArtGrenzueberschreitung,String) End If If (ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend,String) End If If (ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode,String) End If If (ncts_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(ncts_Versender_EORI,String) End If If (ncts_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(ncts_Versender_NLNR,String) End If If (ncts_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(ncts_Versender_TIN,String) End If If (ncts_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(ncts_Versender_Name,String) End If If (ncts_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(ncts_Versender_StrasseHausnummer,String) End If If (ncts_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(ncts_Versender_Ort,String) End If If (ncts_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(ncts_Versender_PLZ,String) End If If (ncts_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(ncts_Versender_Land,String) End If If (ncts_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(ncts_Empfaenger_EORI,String) End If If (ncts_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(ncts_Empfaenger_NLNR,String) End If If (ncts_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(ncts_Empfaenger_TIN,String) End If If (ncts_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(ncts_Empfaenger_Name,String) End If If (ncts_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(ncts_Empfaenger_StrasseHausnummer,String) End If If (ncts_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(ncts_Empfaenger_Ort,String) End If If (ncts_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(ncts_Empfaenger_PLZ,String) End If If (ncts_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(ncts_Empfaenger_Land,String) End If If (ncts_Hauptverpflichteter_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(ncts_Hauptverpflichteter_EORI,String) End If If (ncts_Hauptverpflichteter_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(ncts_Hauptverpflichteter_NLNR,String) End If If (ncts_Hauptverpflichteter_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(ncts_Hauptverpflichteter_TIN,String) End If If (ncts_Hauptverpflichteter_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(ncts_Hauptverpflichteter_Name,String) End If If (ncts_Hauptverpflichteter_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(ncts_Hauptverpflichteter_StrasseHausnummer,String) End If If (ncts_Hauptverpflichteter_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(ncts_Hauptverpflichteter_Ort,String) End If If (ncts_Hauptverpflichteter_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(ncts_Hauptverpflichteter_PLZ,String) End If If (ncts_Hauptverpflichteter_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(ncts_Hauptverpflichteter_Land,String) End If If (ncts_ZugelassenerEmpfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(ncts_ZugelassenerEmpfaenger_EORI,String) End If If (ncts_ZugelassenerEmpfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(ncts_ZugelassenerEmpfaenger_TIN,String) End If If (ncts_ZugelassenerEmpfaenger_IDCarnet Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(ncts_ZugelassenerEmpfaenger_IDCarnet,String) End If If (ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender,String) End If If (ncts_SumA_KzSumASicherheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(ncts_SumA_KzSumASicherheit,String) End If If (ncts_SumA_KennnummerSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(ncts_SumA_KennnummerSendung,String) End If If (ncts_SumA_NummerBefoerderung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(ncts_SumA_NummerBefoerderung,String) End If If (ncts_SumA_BesondereUmstaende Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(ncts_SumA_BesondereUmstaende,String) End If If (ncts_SumA_Ladeort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(ncts_SumA_Ladeort,String) End If If (ncts_SumA_Entladeort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(ncts_SumA_Entladeort,String) End If If (ncts_SumA_BefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(ncts_SumA_BefoerderungskostenZahlungsweise,String) End If If (ncts_SumA_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(ncts_SumA_BefoerderungsrouteLand1,String) End If If (ncts_SumA_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(ncts_SumA_BefoerderungsrouteLand2,String) End If If (ncts_SumA_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(ncts_SumA_BefoerderungsrouteLand3,String) End If If (ncts_SumA_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(ncts_SumA_BefoerderungsrouteLand4,String) End If If (ncts_SumA_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(ncts_SumA_BefoerderungsrouteLand5,String) End If If (ncts_SumA_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(ncts_SumA_BefoerderungsrouteLand6,String) End If If (ncts_SumA_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(ncts_SumA_BefoerderungsrouteLand7,String) End If If (ncts_SumA_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(ncts_SumA_BefoerderungsrouteLand8,String) End If If (ncts_SumA_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(ncts_SumA_BefoerderungsrouteLand9,String) End If If (ncts_SumA_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(ncts_SumA_BefoerderungsrouteLand10,String) End If If (ncts_SumA_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(ncts_SumA_BefoerderungsrouteLand11,String) End If If (ncts_SumA_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(ncts_SumA_BefoerderungsrouteLand12,String) End If If (ncts_SumA_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(ncts_SumA_Versender_EORI,String) End If If (ncts_SumA_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(ncts_SumA_Versender_NLNR,String) End If If (ncts_SumA_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(ncts_SumA_Versender_TIN,String) End If If (ncts_SumA_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(ncts_SumA_Versender_Name,String) End If If (ncts_SumA_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(ncts_SumA_Versender_StrasseHausnummer,String) End If If (ncts_SumA_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(ncts_SumA_Versender_Land,String) End If If (ncts_SumA_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(ncts_SumA_Versender_PLZ,String) End If If (ncts_SumA_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(ncts_SumA_Versender_Ort,String) End If If (ncts_SumA_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(ncts_SumA_Empfaenger_EORI,String) End If If (ncts_SumA_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(ncts_SumA_Empfaenger_NLNR,String) End If If (ncts_SumA_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(128).Value = CType(ncts_SumA_Empfaenger_TIN,String) End If If (ncts_SumA_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(ncts_SumA_Empfaenger_Name,String) End If If (ncts_SumA_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(ncts_SumA_Empfaenger_StrasseHausnummer,String) End If If (ncts_SumA_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(ncts_SumA_Empfaenger_Land,String) End If If (ncts_SumA_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(ncts_SumA_Empfaenger_PLZ,String) End If If (ncts_SumA_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(ncts_SumA_Empfaenger_Ort,String) End If If (ncts_SumA_Befoerderer_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(ncts_SumA_Befoerderer_EORI,String) End If If (ncts_SumA_Befoerderer_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(ncts_SumA_Befoerderer_NLNR,String) End If If (ncts_SumA_Befoerderer_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(ncts_SumA_Befoerderer_TIN,String) End If If (ncts_SumA_Befoerderer_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(ncts_SumA_Befoerderer_Name,String) End If If (ncts_SumA_Befoerderer_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(138).Value = CType(ncts_SumA_Befoerderer_StrasseHausnummer,String) End If If (ncts_SumA_Befoerderer_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(ncts_SumA_Befoerderer_Land,String) End If If (ncts_SumA_Befoerderer_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(140).Value = CType(ncts_SumA_Befoerderer_PLZ,String) End If If (ncts_SumA_Befoerderer_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(ncts_SumA_Befoerderer_Ort,String) End If If (ncts_Stammreferenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(142).Value = CType(ncts_Stammreferenz,String) End If Me.Adapter.UpdateCommand.Parameters(143).Value = CType(Original_ncts_Id,Integer) Me.Adapter.UpdateCommand.Parameters(144).Value = CType(Original_ncts_Status,Integer) Me.Adapter.UpdateCommand.Parameters(145).Value = CType(Original_ncts_Status_KEWILL_Equivalent,Integer) If (Original_ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ncts_dyaArt") Else Me.Adapter.UpdateCommand.Parameters(146).Value = CType(Original_ncts_dyaArt,String) End If Me.Adapter.UpdateCommand.Parameters(147).Value = CType(Original_ncts_dyaAnmID,Integer) If (Original_ncts_ANR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(148).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(148).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(149).Value = CType(Original_ncts_ANR,String) End If If (Original_ncts_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(150).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(150).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(151).Value = CType(Original_ncts_MRN,String) End If Me.Adapter.UpdateCommand.Parameters(152).Value = CType(Original_ncts_Erstellung,Date) If (Original_ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = CType(Original_ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(155).Value = CType(Original_ncts_LetzteBearbeitung,Date) If (Original_ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(156).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(157).Value = CType(Original_ncts_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(156).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(157).Value = Global.System.DBNull.Value End If If (Original_ncts_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(158).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(158).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(159).Value = CType(Original_ncts_firma,String) End If If (Original_ncts_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(160).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(160).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(161).Value = CType(Original_ncts_niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(162).Value = CType(Original_ncts_Gestellt,Boolean) If (Original_ncts_GestelltAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = CType(Original_ncts_GestelltAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Partner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = CType(Original_ncts_Trans_Partner,String) End If If (Original_ncts_Trans_Div1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = CType(Original_ncts_Trans_Div1,String) End If If (Original_ncts_Trans_Div2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = CType(Original_ncts_Trans_Div2,String) End If If (Original_ncts_Trans_Div3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = CType(Original_ncts_Trans_Div3,String) End If If (Original_ncts_Trans_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_ncts_Trans_Referenz,String) End If If (Original_ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = CType(Original_ncts_Trans_Version.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = Global.System.DBNull.Value End If If (Original_ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = CType(Original_ncts_NachrichtenSenderTIN,String) End If If (Original_ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = CType(Original_ncts_NachrichtenSenderNLNR,String) End If If (Original_ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = CType(Original_ncts_NachrichtenempfaengerDST,String) End If If (Original_ncts_ObjectName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_ncts_ObjectName,String) End If If (Original_ncts_ObjectAlias Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_ncts_ObjectAlias,String) End If If (Original_ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_ncts_BezugsnummerVorblendung,String) End If If (Original_ncts_Bearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_ncts_Bearbeiter,String) End If If (Original_ncts_VersendungsLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_ncts_VersendungsLandCode,String) End If If (Original_ncts_BestimmungslandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_ncts_BestimmungslandCode,String) End If If (Original_ncts_ArtAnmeldung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_ncts_ArtAnmeldung,String) End If If (Original_ncts_BeladungsOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_ncts_BeladungsOrt,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer1,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer2,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer3,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer4,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer5,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer6,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer7,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer8,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer9,String) End If If (Original_ncts_BestimmungsstelleDienststellennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = CType(Original_ncts_BestimmungsstelleDienststellennummer,String) End If If (Original_ncts_AbgangsDienststellennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = CType(Original_ncts_AbgangsDienststellennummer,String) End If If (Original_ncts_Wiedergestellungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = CType(Original_ncts_Wiedergestellungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = Global.System.DBNull.Value End If If (Original_ncts_KzVereinfachtesVerfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(225).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(225).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = CType(Original_ncts_KzVereinfachtesVerfahren,String) End If If (Original_ncts_GesamtRohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(227).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = CType(Original_ncts_GesamtRohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(227).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = Global.System.DBNull.Value End If If (Original_ncts_GesamtAnzahlPackstuecke.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(229).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = CType(Original_ncts_GesamtAnzahlPackstuecke.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(229).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = Global.System.DBNull.Value End If If (Original_ncts_Verschluss_ArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(231).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(231).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = CType(Original_ncts_Verschluss_ArtCode,String) End If If (Original_ncts_Verschluss_Anzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = CType(Original_ncts_Verschluss_Anzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = Global.System.DBNull.Value End If If (Original_ncts_Verschluss_Zeichen1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = CType(Original_ncts_Verschluss_Zeichen1,String) End If If (Original_ncts_Verschluss_Zeichen2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = CType(Original_ncts_Verschluss_Zeichen2,String) End If If (Original_ncts_Verschluss_Zeichen3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = CType(Original_ncts_Verschluss_Zeichen3,String) End If If (Original_ncts_Verschluss_Zeichen4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(241).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(241).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = CType(Original_ncts_Verschluss_Zeichen4,String) End If If (Original_ncts_Verschluss_Zeichen5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = CType(Original_ncts_Verschluss_Zeichen5,String) End If If (Original_ncts_Verschluss_Zeichen6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = CType(Original_ncts_Verschluss_Zeichen6,String) End If If (Original_ncts_Verschluss_Zeichen7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = CType(Original_ncts_Verschluss_Zeichen7,String) End If If (Original_ncts_Verschluss_Zeichen8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = CType(Original_ncts_Verschluss_Zeichen8,String) End If If (Original_ncts_Verschluss_Zeichen9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = CType(Original_ncts_Verschluss_Zeichen9,String) End If If (Original_ncts_Verschluss_Zeichen10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = CType(Original_ncts_Verschluss_Zeichen10,String) End If If (Original_ncts_Verschluss_Zeichen11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = CType(Original_ncts_Verschluss_Zeichen11,String) End If If (Original_ncts_Verschluss_Zeichen12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = CType(Original_ncts_Verschluss_Zeichen12,String) End If If (Original_ncts_Verschluss_Zeichen13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = CType(Original_ncts_Verschluss_Zeichen13,String) End If If (Original_ncts_Verschluss_Zeichen14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(261).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(261).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = CType(Original_ncts_Verschluss_Zeichen14,String) End If If (Original_ncts_Verschluss_Zeichen15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(263).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(263).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = CType(Original_ncts_Verschluss_Zeichen15,String) End If If (Original_ncts_Verschluss_Zeichen16 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(265).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(265).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = CType(Original_ncts_Verschluss_Zeichen16,String) End If If (Original_ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(267).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(267).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = CType(Original_ncts_Befoerderungsmittel_KennzeichenAbgang,String) End If If (Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(269).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(269).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = CType(Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode,String) End If If (Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(271).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(271).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = CType(Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent,String) End If If (Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(273).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(273).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = CType(Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung,String) End If If (Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(275).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(275).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = CType(Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend,String) End If If (Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(277).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(277).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = CType(Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode,String) End If If (Original_ncts_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(279).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(279).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = CType(Original_ncts_Versender_EORI,String) End If If (Original_ncts_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(281).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(281).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = CType(Original_ncts_Versender_NLNR,String) End If If (Original_ncts_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(283).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(283).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = CType(Original_ncts_Versender_TIN,String) End If If (Original_ncts_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(285).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(285).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = CType(Original_ncts_Versender_Name,String) End If If (Original_ncts_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(287).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(287).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = CType(Original_ncts_Versender_StrasseHausnummer,String) End If If (Original_ncts_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(289).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(289).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = CType(Original_ncts_Versender_Ort,String) End If If (Original_ncts_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(291).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(291).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = CType(Original_ncts_Versender_PLZ,String) End If If (Original_ncts_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(293).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(293).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = CType(Original_ncts_Versender_Land,String) End If If (Original_ncts_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(295).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(295).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = CType(Original_ncts_Empfaenger_EORI,String) End If If (Original_ncts_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(297).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(297).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = CType(Original_ncts_Empfaenger_NLNR,String) End If If (Original_ncts_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(299).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(299).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = CType(Original_ncts_Empfaenger_TIN,String) End If If (Original_ncts_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(301).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(301).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = CType(Original_ncts_Empfaenger_Name,String) End If If (Original_ncts_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(303).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(303).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = CType(Original_ncts_Empfaenger_StrasseHausnummer,String) End If If (Original_ncts_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(305).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(305).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = CType(Original_ncts_Empfaenger_Ort,String) End If If (Original_ncts_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(307).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(307).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = CType(Original_ncts_Empfaenger_PLZ,String) End If If (Original_ncts_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(309).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(309).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = CType(Original_ncts_Empfaenger_Land,String) End If If (Original_ncts_Hauptverpflichteter_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(311).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(311).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = CType(Original_ncts_Hauptverpflichteter_EORI,String) End If If (Original_ncts_Hauptverpflichteter_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(313).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(313).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = CType(Original_ncts_Hauptverpflichteter_NLNR,String) End If If (Original_ncts_Hauptverpflichteter_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(315).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(315).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = CType(Original_ncts_Hauptverpflichteter_TIN,String) End If If (Original_ncts_Hauptverpflichteter_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(317).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(317).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = CType(Original_ncts_Hauptverpflichteter_Name,String) End If If (Original_ncts_Hauptverpflichteter_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(319).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(319).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = CType(Original_ncts_Hauptverpflichteter_StrasseHausnummer,String) End If If (Original_ncts_Hauptverpflichteter_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(321).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(321).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = CType(Original_ncts_Hauptverpflichteter_Ort,String) End If If (Original_ncts_Hauptverpflichteter_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(323).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(323).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = CType(Original_ncts_Hauptverpflichteter_PLZ,String) End If If (Original_ncts_Hauptverpflichteter_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(325).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(325).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = CType(Original_ncts_Hauptverpflichteter_Land,String) End If If (Original_ncts_ZugelassenerEmpfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(327).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(327).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = CType(Original_ncts_ZugelassenerEmpfaenger_EORI,String) End If If (Original_ncts_ZugelassenerEmpfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(329).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(329).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = CType(Original_ncts_ZugelassenerEmpfaenger_TIN,String) End If If (Original_ncts_ZugelassenerEmpfaenger_IDCarnet Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(331).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(331).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = CType(Original_ncts_ZugelassenerEmpfaenger_IDCarnet,String) End If If (Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(333).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(333).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = CType(Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender,String) End If If (Original_ncts_SumA_KzSumASicherheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(335).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(335).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = CType(Original_ncts_SumA_KzSumASicherheit,String) End If If (Original_ncts_SumA_KennnummerSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(337).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(337).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = CType(Original_ncts_SumA_KennnummerSendung,String) End If If (Original_ncts_SumA_NummerBefoerderung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(339).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(339).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = CType(Original_ncts_SumA_NummerBefoerderung,String) End If If (Original_ncts_SumA_BesondereUmstaende Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(341).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(341).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = CType(Original_ncts_SumA_BesondereUmstaende,String) End If If (Original_ncts_SumA_Ladeort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(343).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(343).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = CType(Original_ncts_SumA_Ladeort,String) End If If (Original_ncts_SumA_Entladeort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(345).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(345).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = CType(Original_ncts_SumA_Entladeort,String) End If If (Original_ncts_SumA_BefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(347).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(347).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = CType(Original_ncts_SumA_BefoerderungskostenZahlungsweise,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(349).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(349).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand1,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(351).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(352).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(351).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(352).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand2,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(353).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(354).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(353).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(354).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand3,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(355).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(356).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(355).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(356).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand4,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(357).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(358).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(357).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(358).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand5,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(359).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(360).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(359).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(360).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand6,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(361).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(362).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(361).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(362).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand7,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(363).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(364).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(363).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(364).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand8,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(365).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(366).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(365).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(366).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand9,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(367).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(368).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(367).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(368).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand10,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(369).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(370).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(369).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(370).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand11,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(371).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(372).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(371).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(372).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand12,String) End If If (Original_ncts_SumA_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(373).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(374).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(373).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(374).Value = CType(Original_ncts_SumA_Versender_EORI,String) End If If (Original_ncts_SumA_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(375).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(376).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(375).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(376).Value = CType(Original_ncts_SumA_Versender_NLNR,String) End If If (Original_ncts_SumA_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(377).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(378).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(377).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(378).Value = CType(Original_ncts_SumA_Versender_TIN,String) End If If (Original_ncts_SumA_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(379).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(380).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(379).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(380).Value = CType(Original_ncts_SumA_Versender_Name,String) End If If (Original_ncts_SumA_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(381).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(382).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(381).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(382).Value = CType(Original_ncts_SumA_Versender_StrasseHausnummer,String) End If If (Original_ncts_SumA_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(383).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(384).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(383).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(384).Value = CType(Original_ncts_SumA_Versender_Land,String) End If If (Original_ncts_SumA_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(385).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(386).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(385).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(386).Value = CType(Original_ncts_SumA_Versender_PLZ,String) End If If (Original_ncts_SumA_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(387).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(388).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(387).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(388).Value = CType(Original_ncts_SumA_Versender_Ort,String) End If If (Original_ncts_SumA_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(389).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(390).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(389).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(390).Value = CType(Original_ncts_SumA_Empfaenger_EORI,String) End If If (Original_ncts_SumA_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(391).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(392).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(391).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(392).Value = CType(Original_ncts_SumA_Empfaenger_NLNR,String) End If If (Original_ncts_SumA_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(393).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(394).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(393).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(394).Value = CType(Original_ncts_SumA_Empfaenger_TIN,String) End If If (Original_ncts_SumA_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(395).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(396).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(395).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(396).Value = CType(Original_ncts_SumA_Empfaenger_Name,String) End If If (Original_ncts_SumA_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(397).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(398).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(397).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(398).Value = CType(Original_ncts_SumA_Empfaenger_StrasseHausnummer,String) End If If (Original_ncts_SumA_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(399).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(400).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(399).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(400).Value = CType(Original_ncts_SumA_Empfaenger_Land,String) End If If (Original_ncts_SumA_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(401).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(402).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(401).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(402).Value = CType(Original_ncts_SumA_Empfaenger_PLZ,String) End If If (Original_ncts_SumA_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(403).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(404).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(403).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(404).Value = CType(Original_ncts_SumA_Empfaenger_Ort,String) End If If (Original_ncts_SumA_Befoerderer_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(405).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(406).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(405).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(406).Value = CType(Original_ncts_SumA_Befoerderer_EORI,String) End If If (Original_ncts_SumA_Befoerderer_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(407).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(408).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(407).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(408).Value = CType(Original_ncts_SumA_Befoerderer_NLNR,String) End If If (Original_ncts_SumA_Befoerderer_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(409).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(410).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(409).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(410).Value = CType(Original_ncts_SumA_Befoerderer_TIN,String) End If If (Original_ncts_SumA_Befoerderer_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(411).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(412).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(411).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(412).Value = CType(Original_ncts_SumA_Befoerderer_Name,String) End If If (Original_ncts_SumA_Befoerderer_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(413).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(414).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(413).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(414).Value = CType(Original_ncts_SumA_Befoerderer_StrasseHausnummer,String) End If If (Original_ncts_SumA_Befoerderer_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(415).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(416).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(415).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(416).Value = CType(Original_ncts_SumA_Befoerderer_Land,String) End If If (Original_ncts_SumA_Befoerderer_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(417).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(418).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(417).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(418).Value = CType(Original_ncts_SumA_Befoerderer_PLZ,String) End If If (Original_ncts_SumA_Befoerderer_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(419).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(420).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(419).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(420).Value = CType(Original_ncts_SumA_Befoerderer_Ort,String) End If If (Original_ncts_Stammreferenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(421).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(422).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(421).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(422).Value = CType(Original_ncts_Stammreferenz,String) End If Me.Adapter.UpdateCommand.Parameters(423).Value = CType(ncts_Id,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 ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_VersendungsLandCode As String, _ ByVal ncts_BestimmungslandCode As String, _ ByVal ncts_ArtAnmeldung As String, _ ByVal ncts_BeladungsOrt As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal ncts_BestimmungsstelleDienststellennummer As String, _ ByVal ncts_AbgangsDienststellennummer As String, _ ByVal ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal ncts_KzVereinfachtesVerfahren As String, _ ByVal ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_ArtCode As String, _ ByVal ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_Zeichen1 As String, _ ByVal ncts_Verschluss_Zeichen2 As String, _ ByVal ncts_Verschluss_Zeichen3 As String, _ ByVal ncts_Verschluss_Zeichen4 As String, _ ByVal ncts_Verschluss_Zeichen5 As String, _ ByVal ncts_Verschluss_Zeichen6 As String, _ ByVal ncts_Verschluss_Zeichen7 As String, _ ByVal ncts_Verschluss_Zeichen8 As String, _ ByVal ncts_Verschluss_Zeichen9 As String, _ ByVal ncts_Verschluss_Zeichen10 As String, _ ByVal ncts_Verschluss_Zeichen11 As String, _ ByVal ncts_Verschluss_Zeichen12 As String, _ ByVal ncts_Verschluss_Zeichen13 As String, _ ByVal ncts_Verschluss_Zeichen14 As String, _ ByVal ncts_Verschluss_Zeichen15 As String, _ ByVal ncts_Verschluss_Zeichen16 As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal ncts_Versender_EORI As String, _ ByVal ncts_Versender_NLNR As String, _ ByVal ncts_Versender_TIN As String, _ ByVal ncts_Versender_Name As String, _ ByVal ncts_Versender_StrasseHausnummer As String, _ ByVal ncts_Versender_Ort As String, _ ByVal ncts_Versender_PLZ As String, _ ByVal ncts_Versender_Land As String, _ ByVal ncts_Empfaenger_EORI As String, _ ByVal ncts_Empfaenger_NLNR As String, _ ByVal ncts_Empfaenger_TIN As String, _ ByVal ncts_Empfaenger_Name As String, _ ByVal ncts_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_Empfaenger_Ort As String, _ ByVal ncts_Empfaenger_PLZ As String, _ ByVal ncts_Empfaenger_Land As String, _ ByVal ncts_Hauptverpflichteter_EORI As String, _ ByVal ncts_Hauptverpflichteter_NLNR As String, _ ByVal ncts_Hauptverpflichteter_TIN As String, _ ByVal ncts_Hauptverpflichteter_Name As String, _ ByVal ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal ncts_Hauptverpflichteter_Ort As String, _ ByVal ncts_Hauptverpflichteter_PLZ As String, _ ByVal ncts_Hauptverpflichteter_Land As String, _ ByVal ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal ncts_SumA_KzSumASicherheit As String, _ ByVal ncts_SumA_KennnummerSendung As String, _ ByVal ncts_SumA_NummerBefoerderung As String, _ ByVal ncts_SumA_BesondereUmstaende As String, _ ByVal ncts_SumA_Ladeort As String, _ ByVal ncts_SumA_Entladeort As String, _ ByVal ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal ncts_SumA_Versender_EORI As String, _ ByVal ncts_SumA_Versender_NLNR As String, _ ByVal ncts_SumA_Versender_TIN As String, _ ByVal ncts_SumA_Versender_Name As String, _ ByVal ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal ncts_SumA_Versender_Land As String, _ ByVal ncts_SumA_Versender_PLZ As String, _ ByVal ncts_SumA_Versender_Ort As String, _ ByVal ncts_SumA_Empfaenger_EORI As String, _ ByVal ncts_SumA_Empfaenger_NLNR As String, _ ByVal ncts_SumA_Empfaenger_TIN As String, _ ByVal ncts_SumA_Empfaenger_Name As String, _ ByVal ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_SumA_Empfaenger_Land As String, _ ByVal ncts_SumA_Empfaenger_PLZ As String, _ ByVal ncts_SumA_Empfaenger_Ort As String, _ ByVal ncts_SumA_Befoerderer_EORI As String, _ ByVal ncts_SumA_Befoerderer_NLNR As String, _ ByVal ncts_SumA_Befoerderer_TIN As String, _ ByVal ncts_SumA_Befoerderer_Name As String, _ ByVal ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal ncts_SumA_Befoerderer_Land As String, _ ByVal ncts_SumA_Befoerderer_PLZ As String, _ ByVal ncts_SumA_Befoerderer_Ort As String, _ ByVal ncts_Stammreferenz As String, _ ByVal Original_ncts_Id As Integer, _ ByVal Original_ncts_Status As Integer, _ ByVal Original_ncts_Status_KEWILL_Equivalent As Integer, _ ByVal Original_ncts_dyaArt As String, _ ByVal Original_ncts_dyaAnmID As Integer, _ ByVal Original_ncts_ANR As String, _ ByVal Original_ncts_MRN As String, _ ByVal Original_ncts_Erstellung As Date, _ ByVal Original_ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_LetzteBearbeitung As Date, _ ByVal Original_ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_firma As String, _ ByVal Original_ncts_niederlassung As String, _ ByVal Original_ncts_Gestellt As Boolean, _ ByVal Original_ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Partner As String, _ ByVal Original_ncts_Trans_Div1 As String, _ ByVal Original_ncts_Trans_Div2 As String, _ ByVal Original_ncts_Trans_Div3 As String, _ ByVal Original_ncts_Trans_Referenz As String, _ ByVal Original_ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_NachrichtenSenderTIN As String, _ ByVal Original_ncts_NachrichtenSenderNLNR As String, _ ByVal Original_ncts_NachrichtenempfaengerDST As String, _ ByVal Original_ncts_ObjectName As String, _ ByVal Original_ncts_ObjectAlias As String, _ ByVal Original_ncts_BezugsnummerVorblendung As String, _ ByVal Original_ncts_Bearbeiter As String, _ ByVal Original_ncts_VersendungsLandCode As String, _ ByVal Original_ncts_BestimmungslandCode As String, _ ByVal Original_ncts_ArtAnmeldung As String, _ ByVal Original_ncts_BeladungsOrt As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal Original_ncts_BestimmungsstelleDienststellennummer As String, _ ByVal Original_ncts_AbgangsDienststellennummer As String, _ ByVal Original_ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_ncts_KzVereinfachtesVerfahren As String, _ ByVal Original_ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_ArtCode As String, _ ByVal Original_ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_Zeichen1 As String, _ ByVal Original_ncts_Verschluss_Zeichen2 As String, _ ByVal Original_ncts_Verschluss_Zeichen3 As String, _ ByVal Original_ncts_Verschluss_Zeichen4 As String, _ ByVal Original_ncts_Verschluss_Zeichen5 As String, _ ByVal Original_ncts_Verschluss_Zeichen6 As String, _ ByVal Original_ncts_Verschluss_Zeichen7 As String, _ ByVal Original_ncts_Verschluss_Zeichen8 As String, _ ByVal Original_ncts_Verschluss_Zeichen9 As String, _ ByVal Original_ncts_Verschluss_Zeichen10 As String, _ ByVal Original_ncts_Verschluss_Zeichen11 As String, _ ByVal Original_ncts_Verschluss_Zeichen12 As String, _ ByVal Original_ncts_Verschluss_Zeichen13 As String, _ ByVal Original_ncts_Verschluss_Zeichen14 As String, _ ByVal Original_ncts_Verschluss_Zeichen15 As String, _ ByVal Original_ncts_Verschluss_Zeichen16 As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal Original_ncts_Versender_EORI As String, _ ByVal Original_ncts_Versender_NLNR As String, _ ByVal Original_ncts_Versender_TIN As String, _ ByVal Original_ncts_Versender_Name As String, _ ByVal Original_ncts_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_Versender_Ort As String, _ ByVal Original_ncts_Versender_PLZ As String, _ ByVal Original_ncts_Versender_Land As String, _ ByVal Original_ncts_Empfaenger_EORI As String, _ ByVal Original_ncts_Empfaenger_NLNR As String, _ ByVal Original_ncts_Empfaenger_TIN As String, _ ByVal Original_ncts_Empfaenger_Name As String, _ ByVal Original_ncts_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_Empfaenger_Ort As String, _ ByVal Original_ncts_Empfaenger_PLZ As String, _ ByVal Original_ncts_Empfaenger_Land As String, _ ByVal Original_ncts_Hauptverpflichteter_EORI As String, _ ByVal Original_ncts_Hauptverpflichteter_NLNR As String, _ ByVal Original_ncts_Hauptverpflichteter_TIN As String, _ ByVal Original_ncts_Hauptverpflichteter_Name As String, _ ByVal Original_ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal Original_ncts_Hauptverpflichteter_Ort As String, _ ByVal Original_ncts_Hauptverpflichteter_PLZ As String, _ ByVal Original_ncts_Hauptverpflichteter_Land As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal Original_ncts_SumA_KzSumASicherheit As String, _ ByVal Original_ncts_SumA_KennnummerSendung As String, _ ByVal Original_ncts_SumA_NummerBefoerderung As String, _ ByVal Original_ncts_SumA_BesondereUmstaende As String, _ ByVal Original_ncts_SumA_Ladeort As String, _ ByVal Original_ncts_SumA_Entladeort As String, _ ByVal Original_ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal Original_ncts_SumA_Versender_EORI As String, _ ByVal Original_ncts_SumA_Versender_NLNR As String, _ ByVal Original_ncts_SumA_Versender_TIN As String, _ ByVal Original_ncts_SumA_Versender_Name As String, _ ByVal Original_ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Versender_Land As String, _ ByVal Original_ncts_SumA_Versender_PLZ As String, _ ByVal Original_ncts_SumA_Versender_Ort As String, _ ByVal Original_ncts_SumA_Empfaenger_EORI As String, _ ByVal Original_ncts_SumA_Empfaenger_NLNR As String, _ ByVal Original_ncts_SumA_Empfaenger_TIN As String, _ ByVal Original_ncts_SumA_Empfaenger_Name As String, _ ByVal Original_ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Empfaenger_Land As String, _ ByVal Original_ncts_SumA_Empfaenger_PLZ As String, _ ByVal Original_ncts_SumA_Empfaenger_Ort As String, _ ByVal Original_ncts_SumA_Befoerderer_EORI As String, _ ByVal Original_ncts_SumA_Befoerderer_NLNR As String, _ ByVal Original_ncts_SumA_Befoerderer_TIN As String, _ ByVal Original_ncts_SumA_Befoerderer_Name As String, _ ByVal Original_ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Befoerderer_Land As String, _ ByVal Original_ncts_SumA_Befoerderer_PLZ As String, _ ByVal Original_ncts_SumA_Befoerderer_Ort As String, _ ByVal Original_ncts_Stammreferenz As String) As Integer Return Me.Update(ncts_Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR, ncts_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_LetzteBearbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_GestelltAm, ncts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_Trans_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenSenderTIN, ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, ncts_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_VersendungsLandCode, ncts_BestimmungslandCode, ncts_ArtAnmeldung, ncts_BeladungsOrt, ncts_DurchgangszollstelleDienststellnummer1, ncts_DurchgangszollstelleDienststellnummer2, ncts_DurchgangszollstelleDienststellnummer3, ncts_DurchgangszollstelleDienststellnummer4, ncts_DurchgangszollstelleDienststellnummer5, ncts_DurchgangszollstelleDienststellnummer6, ncts_DurchgangszollstelleDienststellnummer7, ncts_DurchgangszollstelleDienststellnummer8, ncts_DurchgangszollstelleDienststellnummer9, ncts_BestimmungsstelleDienststellennummer, ncts_AbgangsDienststellennummer, ncts_Wiedergestellungsdatum, ncts_KzVereinfachtesVerfahren, ncts_GesamtRohmasse, ncts_GesamtAnzahlPackstuecke, ncts_Verschluss_ArtCode, ncts_Verschluss_Anzahl, ncts_Verschluss_Zeichen1, ncts_Verschluss_Zeichen2, ncts_Verschluss_Zeichen3, ncts_Verschluss_Zeichen4, ncts_Verschluss_Zeichen5, ncts_Verschluss_Zeichen6, ncts_Verschluss_Zeichen7, ncts_Verschluss_Zeichen8, ncts_Verschluss_Zeichen9, ncts_Verschluss_Zeichen10, ncts_Verschluss_Zeichen11, ncts_Verschluss_Zeichen12, ncts_Verschluss_Zeichen13, ncts_Verschluss_Zeichen14, ncts_Verschluss_Zeichen15, ncts_Verschluss_Zeichen16, ncts_Befoerderungsmittel_KennzeichenAbgang, ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent, ncts_Befoerderungsmittel_ArtGrenzueberschreitung, ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, ncts_Versender_EORI, ncts_Versender_NLNR, ncts_Versender_TIN, ncts_Versender_Name, ncts_Versender_StrasseHausnummer, ncts_Versender_Ort, ncts_Versender_PLZ, ncts_Versender_Land, ncts_Empfaenger_EORI, ncts_Empfaenger_NLNR, ncts_Empfaenger_TIN, ncts_Empfaenger_Name, ncts_Empfaenger_StrasseHausnummer, ncts_Empfaenger_Ort, ncts_Empfaenger_PLZ, ncts_Empfaenger_Land, ncts_Hauptverpflichteter_EORI, ncts_Hauptverpflichteter_NLNR, ncts_Hauptverpflichteter_TIN, ncts_Hauptverpflichteter_Name, ncts_Hauptverpflichteter_StrasseHausnummer, ncts_Hauptverpflichteter_Ort, ncts_Hauptverpflichteter_PLZ, ncts_Hauptverpflichteter_Land, ncts_ZugelassenerEmpfaenger_EORI, ncts_ZugelassenerEmpfaenger_TIN, ncts_ZugelassenerEmpfaenger_IDCarnet, ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender, ncts_SumA_KzSumASicherheit, ncts_SumA_KennnummerSendung, ncts_SumA_NummerBefoerderung, ncts_SumA_BesondereUmstaende, ncts_SumA_Ladeort, ncts_SumA_Entladeort, ncts_SumA_BefoerderungskostenZahlungsweise, ncts_SumA_BefoerderungsrouteLand1, ncts_SumA_BefoerderungsrouteLand2, ncts_SumA_BefoerderungsrouteLand3, ncts_SumA_BefoerderungsrouteLand4, ncts_SumA_BefoerderungsrouteLand5, ncts_SumA_BefoerderungsrouteLand6, ncts_SumA_BefoerderungsrouteLand7, ncts_SumA_BefoerderungsrouteLand8, ncts_SumA_BefoerderungsrouteLand9, ncts_SumA_BefoerderungsrouteLand10, ncts_SumA_BefoerderungsrouteLand11, ncts_SumA_BefoerderungsrouteLand12, ncts_SumA_Versender_EORI, ncts_SumA_Versender_NLNR, ncts_SumA_Versender_TIN, ncts_SumA_Versender_Name, ncts_SumA_Versender_StrasseHausnummer, ncts_SumA_Versender_Land, ncts_SumA_Versender_PLZ, ncts_SumA_Versender_Ort, ncts_SumA_Empfaenger_EORI, ncts_SumA_Empfaenger_NLNR, ncts_SumA_Empfaenger_TIN, ncts_SumA_Empfaenger_Name, ncts_SumA_Empfaenger_StrasseHausnummer, ncts_SumA_Empfaenger_Land, ncts_SumA_Empfaenger_PLZ, ncts_SumA_Empfaenger_Ort, ncts_SumA_Befoerderer_EORI, ncts_SumA_Befoerderer_NLNR, ncts_SumA_Befoerderer_TIN, ncts_SumA_Befoerderer_Name, ncts_SumA_Befoerderer_StrasseHausnummer, ncts_SumA_Befoerderer_Land, ncts_SumA_Befoerderer_PLZ, ncts_SumA_Befoerderer_Ort, ncts_Stammreferenz, Original_ncts_Id, Original_ncts_Status, Original_ncts_Status_KEWILL_Equivalent, Original_ncts_dyaArt, Original_ncts_dyaAnmID, Original_ncts_ANR, Original_ncts_MRN, Original_ncts_Erstellung, Original_ncts_Erstellung_SB, Original_ncts_LetzteBearbeitung, Original_ncts_LetzteBearbeitung_SB, Original_ncts_firma, Original_ncts_niederlassung, Original_ncts_Gestellt, Original_ncts_GestelltAm, Original_ncts_Trans_Partner, Original_ncts_Trans_Div1, Original_ncts_Trans_Div2, Original_ncts_Trans_Div3, Original_ncts_Trans_Referenz, Original_ncts_Trans_DatumZeit, Original_ncts_Trans_Version, Original_ncts_NachrichtenSenderTIN, Original_ncts_NachrichtenSenderNLNR, Original_ncts_NachrichtenempfaengerDST, Original_ncts_ObjectName, Original_ncts_ObjectAlias, Original_ncts_BezugsnummerVorblendung, Original_ncts_Bearbeiter, Original_ncts_VersendungsLandCode, Original_ncts_BestimmungslandCode, Original_ncts_ArtAnmeldung, Original_ncts_BeladungsOrt, Original_ncts_DurchgangszollstelleDienststellnummer1, Original_ncts_DurchgangszollstelleDienststellnummer2, Original_ncts_DurchgangszollstelleDienststellnummer3, Original_ncts_DurchgangszollstelleDienststellnummer4, Original_ncts_DurchgangszollstelleDienststellnummer5, Original_ncts_DurchgangszollstelleDienststellnummer6, Original_ncts_DurchgangszollstelleDienststellnummer7, Original_ncts_DurchgangszollstelleDienststellnummer8, Original_ncts_DurchgangszollstelleDienststellnummer9, Original_ncts_BestimmungsstelleDienststellennummer, Original_ncts_AbgangsDienststellennummer, Original_ncts_Wiedergestellungsdatum, Original_ncts_KzVereinfachtesVerfahren, Original_ncts_GesamtRohmasse, Original_ncts_GesamtAnzahlPackstuecke, Original_ncts_Verschluss_ArtCode, Original_ncts_Verschluss_Anzahl, Original_ncts_Verschluss_Zeichen1, Original_ncts_Verschluss_Zeichen2, Original_ncts_Verschluss_Zeichen3, Original_ncts_Verschluss_Zeichen4, Original_ncts_Verschluss_Zeichen5, Original_ncts_Verschluss_Zeichen6, Original_ncts_Verschluss_Zeichen7, Original_ncts_Verschluss_Zeichen8, Original_ncts_Verschluss_Zeichen9, Original_ncts_Verschluss_Zeichen10, Original_ncts_Verschluss_Zeichen11, Original_ncts_Verschluss_Zeichen12, Original_ncts_Verschluss_Zeichen13, Original_ncts_Verschluss_Zeichen14, Original_ncts_Verschluss_Zeichen15, Original_ncts_Verschluss_Zeichen16, Original_ncts_Befoerderungsmittel_KennzeichenAbgang, Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent, Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung, Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, Original_ncts_Versender_EORI, Original_ncts_Versender_NLNR, Original_ncts_Versender_TIN, Original_ncts_Versender_Name, Original_ncts_Versender_StrasseHausnummer, Original_ncts_Versender_Ort, Original_ncts_Versender_PLZ, Original_ncts_Versender_Land, Original_ncts_Empfaenger_EORI, Original_ncts_Empfaenger_NLNR, Original_ncts_Empfaenger_TIN, Original_ncts_Empfaenger_Name, Original_ncts_Empfaenger_StrasseHausnummer, Original_ncts_Empfaenger_Ort, Original_ncts_Empfaenger_PLZ, Original_ncts_Empfaenger_Land, Original_ncts_Hauptverpflichteter_EORI, Original_ncts_Hauptverpflichteter_NLNR, Original_ncts_Hauptverpflichteter_TIN, Original_ncts_Hauptverpflichteter_Name, Original_ncts_Hauptverpflichteter_StrasseHausnummer, Original_ncts_Hauptverpflichteter_Ort, Original_ncts_Hauptverpflichteter_PLZ, Original_ncts_Hauptverpflichteter_Land, Original_ncts_ZugelassenerEmpfaenger_EORI, Original_ncts_ZugelassenerEmpfaenger_TIN, Original_ncts_ZugelassenerEmpfaenger_IDCarnet, Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender, Original_ncts_SumA_KzSumASicherheit, Original_ncts_SumA_KennnummerSendung, Original_ncts_SumA_NummerBefoerderung, Original_ncts_SumA_BesondereUmstaende, Original_ncts_SumA_Ladeort, Original_ncts_SumA_Entladeort, Original_ncts_SumA_BefoerderungskostenZahlungsweise, Original_ncts_SumA_BefoerderungsrouteLand1, Original_ncts_SumA_BefoerderungsrouteLand2, Original_ncts_SumA_BefoerderungsrouteLand3, Original_ncts_SumA_BefoerderungsrouteLand4, Original_ncts_SumA_BefoerderungsrouteLand5, Original_ncts_SumA_BefoerderungsrouteLand6, Original_ncts_SumA_BefoerderungsrouteLand7, Original_ncts_SumA_BefoerderungsrouteLand8, Original_ncts_SumA_BefoerderungsrouteLand9, Original_ncts_SumA_BefoerderungsrouteLand10, Original_ncts_SumA_BefoerderungsrouteLand11, Original_ncts_SumA_BefoerderungsrouteLand12, Original_ncts_SumA_Versender_EORI, Original_ncts_SumA_Versender_NLNR, Original_ncts_SumA_Versender_TIN, Original_ncts_SumA_Versender_Name, Original_ncts_SumA_Versender_StrasseHausnummer, Original_ncts_SumA_Versender_Land, Original_ncts_SumA_Versender_PLZ, Original_ncts_SumA_Versender_Ort, Original_ncts_SumA_Empfaenger_EORI, Original_ncts_SumA_Empfaenger_NLNR, Original_ncts_SumA_Empfaenger_TIN, Original_ncts_SumA_Empfaenger_Name, Original_ncts_SumA_Empfaenger_StrasseHausnummer, Original_ncts_SumA_Empfaenger_Land, Original_ncts_SumA_Empfaenger_PLZ, Original_ncts_SumA_Empfaenger_Ort, Original_ncts_SumA_Befoerderer_EORI, Original_ncts_SumA_Befoerderer_NLNR, Original_ncts_SumA_Befoerderer_TIN, Original_ncts_SumA_Befoerderer_Name, Original_ncts_SumA_Befoerderer_StrasseHausnummer, Original_ncts_SumA_Befoerderer_Land, Original_ncts_SumA_Befoerderer_PLZ, Original_ncts_SumA_Befoerderer_Ort, Original_ncts_Stammreferenz, Original_ncts_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOut_SicherheitsangabenTableAdapter 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 = "tblDakosy_NCTSOut_Sicherheitsangaben" tableMapping.ColumnMappings.Add("nctsSA_Id", "nctsSA_Id") tableMapping.ColumnMappings.Add("nctsSA_NctsId", "nctsSA_NctsId") tableMapping.ColumnMappings.Add("nctsSA_ArtCode", "nctsSA_ArtCode") tableMapping.ColumnMappings.Add("nctsSA_BezeichnungBescheinigun", "nctsSA_BezeichnungBescheinigun") tableMapping.ColumnMappings.Add("nctsSA_AbgabenBetrag", "nctsSA_AbgabenBetrag") tableMapping.ColumnMappings.Add("nctsSA_GRN", "nctsSA_GRN") tableMapping.ColumnMappings.Add("nctsSA_Zugriffcode", "nctsSA_Zugriffcode") tableMapping.ColumnMappings.Add("nctsSA_TIN", "nctsSA_TIN") 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].[tblDakosy_NCTSOut_Sicherheitsangaben] WHERE (([nctsSA_Id] = @O"& _ "riginal_nctsSA_Id) AND ([nctsSA_NctsId] = @Original_nctsSA_NctsId) AND ((@IsNull"& _ "_nctsSA_ArtCode = 1 AND [nctsSA_ArtCode] IS NULL) OR ([nctsSA_ArtCode] = @Origin"& _ "al_nctsSA_ArtCode)) AND ((@IsNull_nctsSA_BezeichnungBescheinigun = 1 AND [nctsSA"& _ "_BezeichnungBescheinigun] IS NULL) OR ([nctsSA_BezeichnungBescheinigun] = @Origi"& _ "nal_nctsSA_BezeichnungBescheinigun)) AND ((@IsNull_nctsSA_AbgabenBetrag = 1 AND "& _ "[nctsSA_AbgabenBetrag] IS NULL) OR ([nctsSA_AbgabenBetrag] = @Original_nctsSA_Ab"& _ "gabenBetrag)) AND ((@IsNull_nctsSA_GRN = 1 AND [nctsSA_GRN] IS NULL) OR ([nctsSA"& _ "_GRN] = @Original_nctsSA_GRN)) AND ((@IsNull_nctsSA_Zugriffcode = 1 AND [nctsSA_"& _ "Zugriffcode] IS NULL) OR ([nctsSA_Zugriffcode] = @Original_nctsSA_Zugriffcode)) "& _ "AND ((@IsNull_nctsSA_TIN = 1 AND [nctsSA_TIN] IS NULL) OR ([nctsSA_TIN] = @Origi"& _ "nal_nctsSA_TIN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_ArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_GRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_Zugriffcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_Zugriffcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", 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].[tblDakosy_NCTSOut_Sicherheitsangaben] ([nctsSA_NctsId], [nctsS"& _ "A_ArtCode], [nctsSA_BezeichnungBescheinigun], [nctsSA_AbgabenBetrag], [nctsSA_GR"& _ "N], [nctsSA_Zugriffcode], [nctsSA_TIN]) VALUES (@nctsSA_NctsId, @nctsSA_ArtCode,"& _ " @nctsSA_BezeichnungBescheinigun, @nctsSA_AbgabenBetrag, @nctsSA_GRN, @nctsSA_Zu"& _ "griffcode, @nctsSA_TIN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsSA_Id, nctsSA_NctsId, nctsSA_ArtCode, nctsS"& _ "A_BezeichnungBescheinigun, nctsSA_AbgabenBetrag, nctsSA_GRN, nctsSA_Zugriffcode,"& _ " nctsSA_TIN FROM tblDakosy_NCTSOut_Sicherheitsangaben WHERE (nctsSA_Id = SCOPE_I"& _ "DENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_Zugriffcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", 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].[tblDakosy_NCTSOut_Sicherheitsangaben] SET [nctsSA_NctsId] = @nctsSA"& _ "_NctsId, [nctsSA_ArtCode] = @nctsSA_ArtCode, [nctsSA_BezeichnungBescheinigun] = "& _ "@nctsSA_BezeichnungBescheinigun, [nctsSA_AbgabenBetrag] = @nctsSA_AbgabenBetrag,"& _ " [nctsSA_GRN] = @nctsSA_GRN, [nctsSA_Zugriffcode] = @nctsSA_Zugriffcode, [nctsSA"& _ "_TIN] = @nctsSA_TIN WHERE (([nctsSA_Id] = @Original_nctsSA_Id) AND ([nctsSA_Ncts"& _ "Id] = @Original_nctsSA_NctsId) AND ((@IsNull_nctsSA_ArtCode = 1 AND [nctsSA_ArtC"& _ "ode] IS NULL) OR ([nctsSA_ArtCode] = @Original_nctsSA_ArtCode)) AND ((@IsNull_nc"& _ "tsSA_BezeichnungBescheinigun = 1 AND [nctsSA_BezeichnungBescheinigun] IS NULL) O"& _ "R ([nctsSA_BezeichnungBescheinigun] = @Original_nctsSA_BezeichnungBescheinigun))"& _ " AND ((@IsNull_nctsSA_AbgabenBetrag = 1 AND [nctsSA_AbgabenBetrag] IS NULL) OR ("& _ "[nctsSA_AbgabenBetrag] = @Original_nctsSA_AbgabenBetrag)) AND ((@IsNull_nctsSA_G"& _ "RN = 1 AND [nctsSA_GRN] IS NULL) OR ([nctsSA_GRN] = @Original_nctsSA_GRN)) AND ("& _ "(@IsNull_nctsSA_Zugriffcode = 1 AND [nctsSA_Zugriffcode] IS NULL) OR ([nctsSA_Zu"& _ "griffcode] = @Original_nctsSA_Zugriffcode)) AND ((@IsNull_nctsSA_TIN = 1 AND [nc"& _ "tsSA_TIN] IS NULL) OR ([nctsSA_TIN] = @Original_nctsSA_TIN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsSA_Id"& _ ", nctsSA_NctsId, nctsSA_ArtCode, nctsSA_BezeichnungBescheinigun, nctsSA_AbgabenB"& _ "etrag, nctsSA_GRN, nctsSA_Zugriffcode, nctsSA_TIN FROM tblDakosy_NCTSOut_Sicherh"& _ "eitsangaben WHERE (nctsSA_Id = @nctsSA_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_Zugriffcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_ArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_GRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_Zugriffcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_Zugriffcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsSA_Id, nctsSA_NctsId, nctsSA_ArtCode, nctsSA_BezeichnungBescheinigun, "& _ "nctsSA_AbgabenBetrag, nctsSA_GRN, nctsSA_Zugriffcode, nctsSA_TIN FROM dbo.tblDak"& _ "osy_NCTSOut_Sicherheitsangaben" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut_SicherheitsangabenDataTable) 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 VERAGDataSet.tblDakosy_NCTSOut_SicherheitsangabenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOut_SicherheitsangabenDataTable = New VERAGDataSet.tblDakosy_NCTSOut_SicherheitsangabenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut_SicherheitsangabenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut_Sicherheitsangaben") 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_nctsSA_Id As Integer, ByVal Original_nctsSA_NctsId As Integer, ByVal Original_nctsSA_ArtCode As String, ByVal Original_nctsSA_BezeichnungBescheinigun As String, ByVal Original_nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), ByVal Original_nctsSA_GRN As String, ByVal Original_nctsSA_Zugriffcode As String, ByVal Original_nctsSA_TIN As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsSA_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsSA_NctsId,Integer) If (Original_nctsSA_ArtCode 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_nctsSA_ArtCode,String) End If If (Original_nctsSA_BezeichnungBescheinigun 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_nctsSA_BezeichnungBescheinigun,String) End If If (Original_nctsSA_AbgabenBetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_nctsSA_AbgabenBetrag.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_nctsSA_GRN 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_nctsSA_GRN,String) End If If (Original_nctsSA_Zugriffcode 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_nctsSA_Zugriffcode,String) End If If (Original_nctsSA_TIN 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_nctsSA_TIN,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 nctsSA_NctsId As Integer, ByVal nctsSA_ArtCode As String, ByVal nctsSA_BezeichnungBescheinigun As String, ByVal nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), ByVal nctsSA_GRN As String, ByVal nctsSA_Zugriffcode As String, ByVal nctsSA_TIN As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsSA_NctsId,Integer) If (nctsSA_ArtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsSA_ArtCode,String) End If If (nctsSA_BezeichnungBescheinigun Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsSA_BezeichnungBescheinigun,String) End If If (nctsSA_AbgabenBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsSA_AbgabenBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (nctsSA_GRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsSA_GRN,String) End If If (nctsSA_Zugriffcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsSA_Zugriffcode,String) End If If (nctsSA_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(nctsSA_TIN,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 nctsSA_NctsId As Integer, _ ByVal nctsSA_ArtCode As String, _ ByVal nctsSA_BezeichnungBescheinigun As String, _ ByVal nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), _ ByVal nctsSA_GRN As String, _ ByVal nctsSA_Zugriffcode As String, _ ByVal nctsSA_TIN As String, _ ByVal Original_nctsSA_Id As Integer, _ ByVal Original_nctsSA_NctsId As Integer, _ ByVal Original_nctsSA_ArtCode As String, _ ByVal Original_nctsSA_BezeichnungBescheinigun As String, _ ByVal Original_nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsSA_GRN As String, _ ByVal Original_nctsSA_Zugriffcode As String, _ ByVal Original_nctsSA_TIN As String, _ ByVal nctsSA_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsSA_NctsId,Integer) If (nctsSA_ArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsSA_ArtCode,String) End If If (nctsSA_BezeichnungBescheinigun Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsSA_BezeichnungBescheinigun,String) End If If (nctsSA_AbgabenBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsSA_AbgabenBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (nctsSA_GRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsSA_GRN,String) End If If (nctsSA_Zugriffcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsSA_Zugriffcode,String) End If If (nctsSA_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nctsSA_TIN,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_nctsSA_Id,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_nctsSA_NctsId,Integer) If (Original_nctsSA_ArtCode 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_nctsSA_ArtCode,String) End If If (Original_nctsSA_BezeichnungBescheinigun Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_nctsSA_BezeichnungBescheinigun,String) End If If (Original_nctsSA_AbgabenBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_nctsSA_AbgabenBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_nctsSA_GRN 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_nctsSA_GRN,String) End If If (Original_nctsSA_Zugriffcode 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_nctsSA_Zugriffcode,String) End If If (Original_nctsSA_TIN 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_nctsSA_TIN,String) End If Me.Adapter.UpdateCommand.Parameters(21).Value = CType(nctsSA_Id,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 nctsSA_NctsId As Integer, ByVal nctsSA_ArtCode As String, ByVal nctsSA_BezeichnungBescheinigun As String, ByVal nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), ByVal nctsSA_GRN As String, ByVal nctsSA_Zugriffcode As String, ByVal nctsSA_TIN As String, ByVal Original_nctsSA_Id As Integer, ByVal Original_nctsSA_NctsId As Integer, ByVal Original_nctsSA_ArtCode As String, ByVal Original_nctsSA_BezeichnungBescheinigun As String, ByVal Original_nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), ByVal Original_nctsSA_GRN As String, ByVal Original_nctsSA_Zugriffcode As String, ByVal Original_nctsSA_TIN As String) As Integer Return Me.Update(nctsSA_NctsId, nctsSA_ArtCode, nctsSA_BezeichnungBescheinigun, nctsSA_AbgabenBetrag, nctsSA_GRN, nctsSA_Zugriffcode, nctsSA_TIN, Original_nctsSA_Id, Original_nctsSA_NctsId, Original_nctsSA_ArtCode, Original_nctsSA_BezeichnungBescheinigun, Original_nctsSA_AbgabenBetrag, Original_nctsSA_GRN, Original_nctsSA_Zugriffcode, Original_nctsSA_TIN, Original_nctsSA_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOut_WarenpositionTableAdapter 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 = "tblDakosy_NCTSOut_Warenposition" tableMapping.ColumnMappings.Add("nctsWP_Id", "nctsWP_Id") tableMapping.ColumnMappings.Add("nctsWP_NctsId", "nctsWP_NctsId") tableMapping.ColumnMappings.Add("nctsWP_PositionsNummer", "nctsWP_PositionsNummer") tableMapping.ColumnMappings.Add("nctsWP_Warennummer", "nctsWP_Warennummer") tableMapping.ColumnMappings.Add("nctsWP_ArtAnmeldungPositionCode", "nctsWP_ArtAnmeldungPositionCode") tableMapping.ColumnMappings.Add("nctsWP_Warenbezeichnung", "nctsWP_Warenbezeichnung") tableMapping.ColumnMappings.Add("nctsWP_Warenwert", "nctsWP_Warenwert") tableMapping.ColumnMappings.Add("nctsWP_WarenwertWaehrung", "nctsWP_WarenwertWaehrung") tableMapping.ColumnMappings.Add("nctsWP_SchaetzKz", "nctsWP_SchaetzKz") tableMapping.ColumnMappings.Add("nctsWP_WarenwertProzent", "nctsWP_WarenwertProzent") tableMapping.ColumnMappings.Add("nctsWP_VersendungslandPositionCode", "nctsWP_VersendungslandPositionCode") tableMapping.ColumnMappings.Add("nctsWP_BestimmungslandPositionCode", "nctsWP_BestimmungslandPositionCode") tableMapping.ColumnMappings.Add("nctsWP_Rohmasse", "nctsWP_Rohmasse") tableMapping.ColumnMappings.Add("nctsWP_Eigenmasse", "nctsWP_Eigenmasse") tableMapping.ColumnMappings.Add("nctsWP_VorpapierTyp", "nctsWP_VorpapierTyp") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz1", "nctsWP_VorpapierReferenz1") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz1", "nctsWP_VorpapierZusatz1") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz2", "nctsWP_VorpapierReferenz2") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz2", "nctsWP_VorpapierZusatz2") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz3", "nctsWP_VorpapierReferenz3") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz3", "nctsWP_VorpapierZusatz3") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz4", "nctsWP_VorpapierReferenz4") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz4", "nctsWP_VorpapierZusatz4") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz5", "nctsWP_VorpapierReferenz5") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz5", "nctsWP_VorpapierZusatz5") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz6", "nctsWP_VorpapierReferenz6") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz6", "nctsWP_VorpapierZusatz6") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz7", "nctsWP_VorpapierReferenz7") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz7", "nctsWP_VorpapierZusatz7") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz8", "nctsWP_VorpapierReferenz8") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz8", "nctsWP_VorpapierZusatz8") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz9", "nctsWP_VorpapierReferenz9") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz9", "nctsWP_VorpapierZusatz9") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_ExportAusEU", "nctsWP_BesondereVermeke_ExportAusEU") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_ExportAusLand", "nctsWP_BesondereVermeke_ExportAusLand") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_Export", "nctsWP_BesondereVermeke_Export") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_ExportBeschraenkung", "nctsWP_BesondereVermeke_ExportBeschraenkung") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_ExportAbgaben", "nctsWP_BesondereVermeke_ExportAbgaben") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_Vermerk", "nctsWP_BesondereVermeke_Vermerk") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_Kz10600", "nctsWP_BesondereVermeke_Kz10600") tableMapping.ColumnMappings.Add("nctsWP_Versender_EORI", "nctsWP_Versender_EORI") tableMapping.ColumnMappings.Add("nctsWP_Versender_NLNR", "nctsWP_Versender_NLNR") tableMapping.ColumnMappings.Add("nctsWP_Versender_TIN", "nctsWP_Versender_TIN") tableMapping.ColumnMappings.Add("nctsWP_Versender_Name", "nctsWP_Versender_Name") tableMapping.ColumnMappings.Add("nctsWP_Versender_StrasseHausnummer", "nctsWP_Versender_StrasseHausnummer") tableMapping.ColumnMappings.Add("nctsWP_Versender_Ort", "nctsWP_Versender_Ort") tableMapping.ColumnMappings.Add("nctsWP_Versender_PLZ", "nctsWP_Versender_PLZ") tableMapping.ColumnMappings.Add("nctsWP_Versender_Land", "nctsWP_Versender_Land") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_EORI", "nctsWP_Empfaenger_EORI") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_NLNR", "nctsWP_Empfaenger_NLNR") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_TIN", "nctsWP_Empfaenger_TIN") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_Name", "nctsWP_Empfaenger_Name") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_StrasseHausnummer", "nctsWP_Empfaenger_StrasseHausnummer") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_Ort", "nctsWP_Empfaenger_Ort") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_PLZ", "nctsWP_Empfaenger_PLZ") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_Land", "nctsWP_Empfaenger_Land") tableMapping.ColumnMappings.Add("nctsWP_SumAKennnummerSendung", "nctsWP_SumAKennnummerSendung") tableMapping.ColumnMappings.Add("nctsWP_SumABefoerderungskostenZahlungsweise", "nctsWP_SumABefoerderungskostenZahlungsweise") tableMapping.ColumnMappings.Add("nctsWP_SumAUNGefahrgutnummer", "nctsWP_SumAUNGefahrgutnummer") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_EORI", "nctsWP_SumAVersender_EORI") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_NLNR", "nctsWP_SumAVersender_NLNR") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_TIN", "nctsWP_SumAVersender_TIN") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_Name", "nctsWP_SumAVersender_Name") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_StrasseHausnummer", "nctsWP_SumAVersender_StrasseHausnummer") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_Ort", "nctsWP_SumAVersender_Ort") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_PLZ", "nctsWP_SumAVersender_PLZ") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_Land", "nctsWP_SumAVersender_Land") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_EORI", "nctsWP_SumAEmpfaenger_EORI") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_NLNR", "nctsWP_SumAEmpfaenger_NLNR") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_TIN", "nctsWP_SumAEmpfaenger_TIN") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_Name", "nctsWP_SumAEmpfaenger_Name") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_StrasseHausnummer", "nctsWP_SumAEmpfaenger_StrasseHausnummer") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_Ort", "nctsWP_SumAEmpfaenger_Ort") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_PLZ", "nctsWP_SumAEmpfaenger_PLZ") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_Land", "nctsWP_SumAEmpfaenger_Land") tableMapping.ColumnMappings.Add("nctsWP_KdRefNr", "nctsWP_KdRefNr") 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].[tblDakosy_NCTSOut_Warenposition] WHERE (([nctsWP_Id] = @Origin"& _ "al_nctsWP_Id) AND ([nctsWP_NctsId] = @Original_nctsWP_NctsId) AND ((@IsNull_ncts"& _ "WP_PositionsNummer = 1 AND [nctsWP_PositionsNummer] IS NULL) OR ([nctsWP_Positio"& _ "nsNummer] = @Original_nctsWP_PositionsNummer)) AND ((@IsNull_nctsWP_Warennummer "& _ "= 1 AND [nctsWP_Warennummer] IS NULL) OR ([nctsWP_Warennummer] = @Original_nctsW"& _ "P_Warennummer)) AND ((@IsNull_nctsWP_ArtAnmeldungPositionCode = 1 AND [nctsWP_Ar"& _ "tAnmeldungPositionCode] IS NULL) OR ([nctsWP_ArtAnmeldungPositionCode] = @Origin"& _ "al_nctsWP_ArtAnmeldungPositionCode)) AND ((@IsNull_nctsWP_Warenbezeichnung = 1 A"& _ "ND [nctsWP_Warenbezeichnung] IS NULL) OR ([nctsWP_Warenbezeichnung] = @Original_"& _ "nctsWP_Warenbezeichnung)) AND ((@IsNull_nctsWP_Warenwert = 1 AND [nctsWP_Warenwe"& _ "rt] IS NULL) OR ([nctsWP_Warenwert] = @Original_nctsWP_Warenwert)) AND ((@IsNull"& _ "_nctsWP_WarenwertWaehrung = 1 AND [nctsWP_WarenwertWaehrung] IS NULL) OR ([nctsW"& _ "P_WarenwertWaehrung] = @Original_nctsWP_WarenwertWaehrung)) AND ((@IsNull_nctsWP"& _ "_SchaetzKz = 1 AND [nctsWP_SchaetzKz] IS NULL) OR ([nctsWP_SchaetzKz] = @Origina"& _ "l_nctsWP_SchaetzKz)) AND ((@IsNull_nctsWP_WarenwertProzent = 1 AND [nctsWP_Waren"& _ "wertProzent] IS NULL) OR ([nctsWP_WarenwertProzent] = @Original_nctsWP_Warenwert"& _ "Prozent)) AND ((@IsNull_nctsWP_VersendungslandPositionCode = 1 AND [nctsWP_Verse"& _ "ndungslandPositionCode] IS NULL) OR ([nctsWP_VersendungslandPositionCode] = @Ori"& _ "ginal_nctsWP_VersendungslandPositionCode)) AND ((@IsNull_nctsWP_BestimmungslandP"& _ "ositionCode = 1 AND [nctsWP_BestimmungslandPositionCode] IS NULL) OR ([nctsWP_Be"& _ "stimmungslandPositionCode] = @Original_nctsWP_BestimmungslandPositionCode)) AND "& _ "((@IsNull_nctsWP_Rohmasse = 1 AND [nctsWP_Rohmasse] IS NULL) OR ([nctsWP_Rohmass"& _ "e] = @Original_nctsWP_Rohmasse)) AND ((@IsNull_nctsWP_Eigenmasse = 1 AND [nctsWP"& _ "_Eigenmasse] IS NULL) OR ([nctsWP_Eigenmasse] = @Original_nctsWP_Eigenmasse)) AN"& _ "D ((@IsNull_nctsWP_VorpapierTyp = 1 AND [nctsWP_VorpapierTyp] IS NULL) OR ([ncts"& _ "WP_VorpapierTyp] = @Original_nctsWP_VorpapierTyp)) AND ((@IsNull_nctsWP_Vorpapie"& _ "rReferenz1 = 1 AND [nctsWP_VorpapierReferenz1] IS NULL) OR ([nctsWP_VorpapierRef"& _ "erenz1] = @Original_nctsWP_VorpapierReferenz1)) AND ((@IsNull_nctsWP_VorpapierZu"& _ "satz1 = 1 AND [nctsWP_VorpapierZusatz1] IS NULL) OR ([nctsWP_VorpapierZusatz1] ="& _ " @Original_nctsWP_VorpapierZusatz1)) AND ((@IsNull_nctsWP_VorpapierReferenz2 = 1"& _ " AND [nctsWP_VorpapierReferenz2] IS NULL) OR ([nctsWP_VorpapierReferenz2] = @Ori"& _ "ginal_nctsWP_VorpapierReferenz2)) AND ((@IsNull_nctsWP_VorpapierZusatz2 = 1 AND "& _ "[nctsWP_VorpapierZusatz2] IS NULL) OR ([nctsWP_VorpapierZusatz2] = @Original_nct"& _ "sWP_VorpapierZusatz2)) AND ((@IsNull_nctsWP_VorpapierReferenz3 = 1 AND [nctsWP_V"& _ "orpapierReferenz3] IS NULL) OR ([nctsWP_VorpapierReferenz3] = @Original_nctsWP_V"& _ "orpapierReferenz3)) AND ((@IsNull_nctsWP_VorpapierZusatz3 = 1 AND [nctsWP_Vorpap"& _ "ierZusatz3] IS NULL) OR ([nctsWP_VorpapierZusatz3] = @Original_nctsWP_VorpapierZ"& _ "usatz3)) AND ((@IsNull_nctsWP_VorpapierReferenz4 = 1 AND [nctsWP_VorpapierRefere"& _ "nz4] IS NULL) OR ([nctsWP_VorpapierReferenz4] = @Original_nctsWP_VorpapierRefere"& _ "nz4)) AND ((@IsNull_nctsWP_VorpapierZusatz4 = 1 AND [nctsWP_VorpapierZusatz4] IS"& _ " NULL) OR ([nctsWP_VorpapierZusatz4] = @Original_nctsWP_VorpapierZusatz4)) AND ("& _ "(@IsNull_nctsWP_VorpapierReferenz5 = 1 AND [nctsWP_VorpapierReferenz5] IS NULL) "& _ "OR ([nctsWP_VorpapierReferenz5] = @Original_nctsWP_VorpapierReferenz5)) AND ((@I"& _ "sNull_nctsWP_VorpapierZusatz5 = 1 AND [nctsWP_VorpapierZusatz5] IS NULL) OR ([nc"& _ "tsWP_VorpapierZusatz5] = @Original_nctsWP_VorpapierZusatz5)) AND ((@IsNull_nctsW"& _ "P_VorpapierReferenz6 = 1 AND [nctsWP_VorpapierReferenz6] IS NULL) OR ([nctsWP_Vo"& _ "rpapierReferenz6] = @Original_nctsWP_VorpapierReferenz6)) AND ((@IsNull_nctsWP_V"& _ "orpapierZusatz6 = 1 AND [nctsWP_VorpapierZusatz6] IS NULL) OR ([nctsWP_Vorpapier"& _ "Zusatz6] = @Original_nctsWP_VorpapierZusatz6)) AND ((@IsNull_nctsWP_VorpapierRef"& _ "erenz7 = 1 AND [nctsWP_VorpapierReferenz7] IS NULL) OR ([nctsWP_VorpapierReferen"& _ "z7] = @Original_nctsWP_VorpapierReferenz7)) AND ((@IsNull_nctsWP_VorpapierZusatz"& _ "7 = 1 AND [nctsWP_VorpapierZusatz7] IS NULL) OR ([nctsWP_VorpapierZusatz7] = @Or"& _ "iginal_nctsWP_VorpapierZusatz7)) AND ((@IsNull_nctsWP_VorpapierReferenz8 = 1 AND"& _ " [nctsWP_VorpapierReferenz8] IS NULL) OR ([nctsWP_VorpapierReferenz8] = @Origina"& _ "l_nctsWP_VorpapierReferenz8)) AND ((@IsNull_nctsWP_VorpapierZusatz8 = 1 AND [nct"& _ "sWP_VorpapierZusatz8] IS NULL) OR ([nctsWP_VorpapierZusatz8] = @Original_nctsWP_"& _ "VorpapierZusatz8)) AND ((@IsNull_nctsWP_VorpapierReferenz9 = 1 AND [nctsWP_Vorpa"& _ "pierReferenz9] IS NULL) OR ([nctsWP_VorpapierReferenz9] = @Original_nctsWP_Vorpa"& _ "pierReferenz9)) AND ((@IsNull_nctsWP_VorpapierZusatz9 = 1 AND [nctsWP_VorpapierZ"& _ "usatz9] IS NULL) OR ([nctsWP_VorpapierZusatz9] = @Original_nctsWP_VorpapierZusat"& _ "z9)) AND ((@IsNull_nctsWP_BesondereVermeke_ExportAusEU = 1 AND [nctsWP_Besondere"& _ "Vermeke_ExportAusEU] IS NULL) OR ([nctsWP_BesondereVermeke_ExportAusEU] = @Origi"& _ "nal_nctsWP_BesondereVermeke_ExportAusEU)) AND ((@IsNull_nctsWP_BesondereVermeke_"& _ "ExportAusLand = 1 AND [nctsWP_BesondereVermeke_ExportAusLand] IS NULL) OR ([ncts"& _ "WP_BesondereVermeke_ExportAusLand] = @Original_nctsWP_BesondereVermeke_ExportAus"& _ "Land)) AND ((@IsNull_nctsWP_BesondereVermeke_Export = 1 AND [nctsWP_BesondereVer"& _ "meke_Export] IS NULL) OR ([nctsWP_BesondereVermeke_Export] = @Original_nctsWP_Be"& _ "sondereVermeke_Export)) AND ((@IsNull_nctsWP_BesondereVermeke_ExportBeschraenkun"& _ "g = 1 AND [nctsWP_BesondereVermeke_ExportBeschraenkung] IS NULL) OR ([nctsWP_Bes"& _ "ondereVermeke_ExportBeschraenkung] = @Original_nctsWP_BesondereVermeke_ExportBes"& _ "chraenkung)) AND ((@IsNull_nctsWP_BesondereVermeke_ExportAbgaben = 1 AND [nctsWP"& _ "_BesondereVermeke_ExportAbgaben] IS NULL) OR ([nctsWP_BesondereVermeke_ExportAbg"& _ "aben] = @Original_nctsWP_BesondereVermeke_ExportAbgaben)) AND ((@IsNull_nctsWP_B"& _ "esondereVermeke_Vermerk = 1 AND [nctsWP_BesondereVermeke_Vermerk] IS NULL) OR (["& _ "nctsWP_BesondereVermeke_Vermerk] = @Original_nctsWP_BesondereVermeke_Vermerk)) A"& _ "ND ((@IsNull_nctsWP_BesondereVermeke_Kz10600 = 1 AND [nctsWP_BesondereVermeke_Kz"& _ "10600] IS NULL) OR ([nctsWP_BesondereVermeke_Kz10600] = @Original_nctsWP_Besonde"& _ "reVermeke_Kz10600)) AND ((@IsNull_nctsWP_Versender_EORI = 1 AND [nctsWP_Versende"& _ "r_EORI] IS NULL) OR ([nctsWP_Versender_EORI] = @Original_nctsWP_Versender_EORI))"& _ " AND ((@IsNull_nctsWP_Versender_NLNR = 1 AND [nctsWP_Versender_NLNR] IS NULL) OR"& _ " ([nctsWP_Versender_NLNR] = @Original_nctsWP_Versender_NLNR)) AND ((@IsNull_ncts"& _ "WP_Versender_TIN = 1 AND [nctsWP_Versender_TIN] IS NULL) OR ([nctsWP_Versender_T"& _ "IN] = @Original_nctsWP_Versender_TIN)) AND ((@IsNull_nctsWP_Versender_Name = 1 A"& _ "ND [nctsWP_Versender_Name] IS NULL) OR ([nctsWP_Versender_Name] = @Original_ncts"& _ "WP_Versender_Name)) AND ((@IsNull_nctsWP_Versender_StrasseHausnummer = 1 AND [nc"& _ "tsWP_Versender_StrasseHausnummer] IS NULL) OR ([nctsWP_Versender_StrasseHausnumm"& _ "er] = @Original_nctsWP_Versender_StrasseHausnummer)) AND ((@IsNull_nctsWP_Versen"& _ "der_Ort = 1 AND [nctsWP_Versender_Ort] IS NULL) OR ([nctsWP_Versender_Ort] = @Or"& _ "iginal_nctsWP_Versender_Ort)) AND ((@IsNull_nctsWP_Versender_PLZ = 1 AND [nctsWP"& _ "_Versender_PLZ] IS NULL) OR ([nctsWP_Versender_PLZ] = @Original_nctsWP_Versender"& _ "_PLZ)) AND ((@IsNull_nctsWP_Versender_Land = 1 AND [nctsWP_Versender_Land] IS NU"& _ "LL) OR ([nctsWP_Versender_Land] = @Original_nctsWP_Versender_Land)) AND ((@IsNul"& _ "l_nctsWP_Empfaenger_EORI = 1 AND [nctsWP_Empfaenger_EORI] IS NULL) OR ([nctsWP_E"& _ "mpfaenger_EORI] = @Original_nctsWP_Empfaenger_EORI)) AND ((@IsNull_nctsWP_Empfae"& _ "nger_NLNR = 1 AND [nctsWP_Empfaenger_NLNR] IS NULL) OR ([nctsWP_Empfaenger_NLNR]"& _ " = @Original_nctsWP_Empfaenger_NLNR)) AND ((@IsNull_nctsWP_Empfaenger_TIN = 1 AN"& _ "D [nctsWP_Empfaenger_TIN] IS NULL) OR ([nctsWP_Empfaenger_TIN] = @Original_nctsW"& _ "P_Empfaenger_TIN)) AND ((@IsNull_nctsWP_Empfaenger_Name = 1 AND [nctsWP_Empfaeng"& _ "er_Name] IS NULL) OR ([nctsWP_Empfaenger_Name] = @Original_nctsWP_Empfaenger_Nam"& _ "e)) AND ((@IsNull_nctsWP_Empfaenger_StrasseHausnummer = 1 AND [nctsWP_Empfaenger"& _ "_StrasseHausnummer] IS NULL) OR ([nctsWP_Empfaenger_StrasseHausnummer] = @Origin"& _ "al_nctsWP_Empfaenger_StrasseHausnummer)) AND ((@IsNull_nctsWP_Empfaenger_Ort = 1"& _ " AND [nctsWP_Empfaenger_Ort] IS NULL) OR ([nctsWP_Empfaenger_Ort] = @Original_nc"& _ "tsWP_Empfaenger_Ort)) AND ((@IsNull_nctsWP_Empfaenger_PLZ = 1 AND [nctsWP_Empfae"& _ "nger_PLZ] IS NULL) OR ([nctsWP_Empfaenger_PLZ] = @Original_nctsWP_Empfaenger_PLZ"& _ ")) AND ((@IsNull_nctsWP_Empfaenger_Land = 1 AND [nctsWP_Empfaenger_Land] IS NULL"& _ ") OR ([nctsWP_Empfaenger_Land] = @Original_nctsWP_Empfaenger_Land)) AND ((@IsNul"& _ "l_nctsWP_SumAKennnummerSendung = 1 AND [nctsWP_SumAKennnummerSendung] IS NULL) O"& _ "R ([nctsWP_SumAKennnummerSendung] = @Original_nctsWP_SumAKennnummerSendung)) AND"& _ " ((@IsNull_nctsWP_SumABefoerderungskostenZahlungsweise = 1 AND [nctsWP_SumABefoe"& _ "rderungskostenZahlungsweise] IS NULL) OR ([nctsWP_SumABefoerderungskostenZahlung"& _ "sweise] = @Original_nctsWP_SumABefoerderungskostenZahlungsweise)) AND ((@IsNull_"& _ "nctsWP_SumAUNGefahrgutnummer = 1 AND [nctsWP_SumAUNGefahrgutnummer] IS NULL) OR "& _ "([nctsWP_SumAUNGefahrgutnummer] = @Original_nctsWP_SumAUNGefahrgutnummer)) AND ("& _ "(@IsNull_nctsWP_SumAVersender_EORI = 1 AND [nctsWP_SumAVersender_EORI] IS NULL) "& _ "OR ([nctsWP_SumAVersender_EORI] = @Original_nctsWP_SumAVersender_EORI)) AND ((@I"& _ "sNull_nctsWP_SumAVersender_NLNR = 1 AND [nctsWP_SumAVersender_NLNR] IS NULL) OR "& _ "([nctsWP_SumAVersender_NLNR] = @Original_nctsWP_SumAVersender_NLNR)) AND ((@IsNu"& _ "ll_nctsWP_SumAVersender_TIN = 1 AND [nctsWP_SumAVersender_TIN] IS NULL) OR ([nct"& _ "sWP_SumAVersender_TIN] = @Original_nctsWP_SumAVersender_TIN)) AND ((@IsNull_ncts"& _ "WP_SumAVersender_Name = 1 AND [nctsWP_SumAVersender_Name] IS NULL) OR ([nctsWP_S"& _ "umAVersender_Name] = @Original_nctsWP_SumAVersender_Name)) AND ((@IsNull_nctsWP_"& _ "SumAVersender_StrasseHausnummer = 1 AND [nctsWP_SumAVersender_StrasseHausnummer]"& _ " IS NULL) OR ([nctsWP_SumAVersender_StrasseHausnummer] = @Original_nctsWP_SumAVe"& _ "rsender_StrasseHausnummer)) AND ((@IsNull_nctsWP_SumAVersender_Ort = 1 AND [ncts"& _ "WP_SumAVersender_Ort] IS NULL) OR ([nctsWP_SumAVersender_Ort] = @Original_nctsWP"& _ "_SumAVersender_Ort)) AND ((@IsNull_nctsWP_SumAVersender_PLZ = 1 AND [nctsWP_SumA"& _ "Versender_PLZ] IS NULL) OR ([nctsWP_SumAVersender_PLZ] = @Original_nctsWP_SumAVe"& _ "rsender_PLZ)) AND ((@IsNull_nctsWP_SumAVersender_Land = 1 AND [nctsWP_SumAVersen"& _ "der_Land] IS NULL) OR ([nctsWP_SumAVersender_Land] = @Original_nctsWP_SumAVersen"& _ "der_Land)) AND ((@IsNull_nctsWP_SumAEmpfaenger_EORI = 1 AND [nctsWP_SumAEmpfaeng"& _ "er_EORI] IS NULL) OR ([nctsWP_SumAEmpfaenger_EORI] = @Original_nctsWP_SumAEmpfae"& _ "nger_EORI)) AND ((@IsNull_nctsWP_SumAEmpfaenger_NLNR = 1 AND [nctsWP_SumAEmpfaen"& _ "ger_NLNR] IS NULL) OR ([nctsWP_SumAEmpfaenger_NLNR] = @Original_nctsWP_SumAEmpfa"& _ "enger_NLNR)) AND ((@IsNull_nctsWP_SumAEmpfaenger_TIN = 1 AND [nctsWP_SumAEmpfaen"& _ "ger_TIN] IS NULL) OR ([nctsWP_SumAEmpfaenger_TIN] = @Original_nctsWP_SumAEmpfaen"& _ "ger_TIN)) AND ((@IsNull_nctsWP_SumAEmpfaenger_Name = 1 AND [nctsWP_SumAEmpfaenge"& _ "r_Name] IS NULL) OR ([nctsWP_SumAEmpfaenger_Name] = @Original_nctsWP_SumAEmpfaen"& _ "ger_Name)) AND ((@IsNull_nctsWP_SumAEmpfaenger_StrasseHausnummer = 1 AND [nctsWP"& _ "_SumAEmpfaenger_StrasseHausnummer] IS NULL) OR ([nctsWP_SumAEmpfaenger_StrasseHa"& _ "usnummer] = @Original_nctsWP_SumAEmpfaenger_StrasseHausnummer)) AND ((@IsNull_nc"& _ "tsWP_SumAEmpfaenger_Ort = 1 AND [nctsWP_SumAEmpfaenger_Ort] IS NULL) OR ([nctsWP"& _ "_SumAEmpfaenger_Ort] = @Original_nctsWP_SumAEmpfaenger_Ort)) AND ((@IsNull_nctsW"& _ "P_SumAEmpfaenger_PLZ = 1 AND [nctsWP_SumAEmpfaenger_PLZ] IS NULL) OR ([nctsWP_Su"& _ "mAEmpfaenger_PLZ] = @Original_nctsWP_SumAEmpfaenger_PLZ)) AND ((@IsNull_nctsWP_S"& _ "umAEmpfaenger_Land = 1 AND [nctsWP_SumAEmpfaenger_Land] IS NULL) OR ([nctsWP_Sum"& _ "AEmpfaenger_Land] = @Original_nctsWP_SumAEmpfaenger_Land)) AND ((@IsNull_nctsWP_"& _ "KdRefNr = 1 AND [nctsWP_KdRefNr] IS NULL) OR ([nctsWP_KdRefNr] = @Original_nctsW"& _ "P_KdRefNr)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_PositionsNummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warenwert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warenwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SchaetzKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SchaetzKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Eigenmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_KdRefNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_KdRefNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", 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].[tblDakosy_NCTSOut_Warenposition] ([nctsWP_NctsId], [nctsWP_Pos"& _ "itionsNummer], [nctsWP_Warennummer], [nctsWP_ArtAnmeldungPositionCode], [nctsWP_"& _ "Warenbezeichnung], [nctsWP_Warenwert], [nctsWP_WarenwertWaehrung], [nctsWP_Schae"& _ "tzKz], [nctsWP_WarenwertProzent], [nctsWP_VersendungslandPositionCode], [nctsWP_"& _ "BestimmungslandPositionCode], [nctsWP_Rohmasse], [nctsWP_Eigenmasse], [nctsWP_Vo"& _ "rpapierTyp], [nctsWP_VorpapierReferenz1], [nctsWP_VorpapierZusatz1], [nctsWP_Vor"& _ "papierReferenz2], [nctsWP_VorpapierZusatz2], [nctsWP_VorpapierReferenz3], [nctsW"& _ "P_VorpapierZusatz3], [nctsWP_VorpapierReferenz4], [nctsWP_VorpapierZusatz4], [nc"& _ "tsWP_VorpapierReferenz5], [nctsWP_VorpapierZusatz5], [nctsWP_VorpapierReferenz6]"& _ ", [nctsWP_VorpapierZusatz6], [nctsWP_VorpapierReferenz7], [nctsWP_VorpapierZusat"& _ "z7], [nctsWP_VorpapierReferenz8], [nctsWP_VorpapierZusatz8], [nctsWP_VorpapierRe"& _ "ferenz9], [nctsWP_VorpapierZusatz9], [nctsWP_BesondereVermeke_ExportAusEU], [nct"& _ "sWP_BesondereVermeke_ExportAusLand], [nctsWP_BesondereVermeke_Export], [nctsWP_B"& _ "esondereVermeke_ExportBeschraenkung], [nctsWP_BesondereVermeke_ExportAbgaben], ["& _ "nctsWP_BesondereVermeke_Vermerk], [nctsWP_BesondereVermeke_Kz10600], [nctsWP_Ver"& _ "sender_EORI], [nctsWP_Versender_NLNR], [nctsWP_Versender_TIN], [nctsWP_Versender"& _ "_Name], [nctsWP_Versender_StrasseHausnummer], [nctsWP_Versender_Ort], [nctsWP_Ve"& _ "rsender_PLZ], [nctsWP_Versender_Land], [nctsWP_Empfaenger_EORI], [nctsWP_Empfaen"& _ "ger_NLNR], [nctsWP_Empfaenger_TIN], [nctsWP_Empfaenger_Name], [nctsWP_Empfaenger"& _ "_StrasseHausnummer], [nctsWP_Empfaenger_Ort], [nctsWP_Empfaenger_PLZ], [nctsWP_E"& _ "mpfaenger_Land], [nctsWP_SumAKennnummerSendung], [nctsWP_SumABefoerderungskosten"& _ "Zahlungsweise], [nctsWP_SumAUNGefahrgutnummer], [nctsWP_SumAVersender_EORI], [nc"& _ "tsWP_SumAVersender_NLNR], [nctsWP_SumAVersender_TIN], [nctsWP_SumAVersender_Name"& _ "], [nctsWP_SumAVersender_StrasseHausnummer], [nctsWP_SumAVersender_Ort], [nctsWP"& _ "_SumAVersender_PLZ], [nctsWP_SumAVersender_Land], [nctsWP_SumAEmpfaenger_EORI], "& _ "[nctsWP_SumAEmpfaenger_NLNR], [nctsWP_SumAEmpfaenger_TIN], [nctsWP_SumAEmpfaenge"& _ "r_Name], [nctsWP_SumAEmpfaenger_StrasseHausnummer], [nctsWP_SumAEmpfaenger_Ort],"& _ " [nctsWP_SumAEmpfaenger_PLZ], [nctsWP_SumAEmpfaenger_Land], [nctsWP_KdRefNr]) VA"& _ "LUES (@nctsWP_NctsId, @nctsWP_PositionsNummer, @nctsWP_Warennummer, @nctsWP_ArtA"& _ "nmeldungPositionCode, @nctsWP_Warenbezeichnung, @nctsWP_Warenwert, @nctsWP_Waren"& _ "wertWaehrung, @nctsWP_SchaetzKz, @nctsWP_WarenwertProzent, @nctsWP_Versendungsla"& _ "ndPositionCode, @nctsWP_BestimmungslandPositionCode, @nctsWP_Rohmasse, @nctsWP_E"& _ "igenmasse, @nctsWP_VorpapierTyp, @nctsWP_VorpapierReferenz1, @nctsWP_VorpapierZu"& _ "satz1, @nctsWP_VorpapierReferenz2, @nctsWP_VorpapierZusatz2, @nctsWP_VorpapierRe"& _ "ferenz3, @nctsWP_VorpapierZusatz3, @nctsWP_VorpapierReferenz4, @nctsWP_Vorpapier"& _ "Zusatz4, @nctsWP_VorpapierReferenz5, @nctsWP_VorpapierZusatz5, @nctsWP_Vorpapier"& _ "Referenz6, @nctsWP_VorpapierZusatz6, @nctsWP_VorpapierReferenz7, @nctsWP_Vorpapi"& _ "erZusatz7, @nctsWP_VorpapierReferenz8, @nctsWP_VorpapierZusatz8, @nctsWP_Vorpapi"& _ "erReferenz9, @nctsWP_VorpapierZusatz9, @nctsWP_BesondereVermeke_ExportAusEU, @nc"& _ "tsWP_BesondereVermeke_ExportAusLand, @nctsWP_BesondereVermeke_Export, @nctsWP_Be"& _ "sondereVermeke_ExportBeschraenkung, @nctsWP_BesondereVermeke_ExportAbgaben, @nct"& _ "sWP_BesondereVermeke_Vermerk, @nctsWP_BesondereVermeke_Kz10600, @nctsWP_Versende"& _ "r_EORI, @nctsWP_Versender_NLNR, @nctsWP_Versender_TIN, @nctsWP_Versender_Name, @"& _ "nctsWP_Versender_StrasseHausnummer, @nctsWP_Versender_Ort, @nctsWP_Versender_PLZ"& _ ", @nctsWP_Versender_Land, @nctsWP_Empfaenger_EORI, @nctsWP_Empfaenger_NLNR, @nct"& _ "sWP_Empfaenger_TIN, @nctsWP_Empfaenger_Name, @nctsWP_Empfaenger_StrasseHausnumme"& _ "r, @nctsWP_Empfaenger_Ort, @nctsWP_Empfaenger_PLZ, @nctsWP_Empfaenger_Land, @nct"& _ "sWP_SumAKennnummerSendung, @nctsWP_SumABefoerderungskostenZahlungsweise, @nctsWP"& _ "_SumAUNGefahrgutnummer, @nctsWP_SumAVersender_EORI, @nctsWP_SumAVersender_NLNR, "& _ "@nctsWP_SumAVersender_TIN, @nctsWP_SumAVersender_Name, @nctsWP_SumAVersender_Str"& _ "asseHausnummer, @nctsWP_SumAVersender_Ort, @nctsWP_SumAVersender_PLZ, @nctsWP_Su"& _ "mAVersender_Land, @nctsWP_SumAEmpfaenger_EORI, @nctsWP_SumAEmpfaenger_NLNR, @nct"& _ "sWP_SumAEmpfaenger_TIN, @nctsWP_SumAEmpfaenger_Name, @nctsWP_SumAEmpfaenger_Stra"& _ "sseHausnummer, @nctsWP_SumAEmpfaenger_Ort, @nctsWP_SumAEmpfaenger_PLZ, @nctsWP_S"& _ "umAEmpfaenger_Land, @nctsWP_KdRefNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsWP_Id, nctsWP_NctsId, nctsWP_P"& _ "ositionsNummer, nctsWP_Warennummer, nctsWP_ArtAnmeldungPositionCode, nctsWP_Ware"& _ "nbezeichnung, nctsWP_Warenwert, nctsWP_WarenwertWaehrung, nctsWP_SchaetzKz, ncts"& _ "WP_WarenwertProzent, nctsWP_VersendungslandPositionCode, nctsWP_BestimmungslandP"& _ "ositionCode, nctsWP_Rohmasse, nctsWP_Eigenmasse, nctsWP_VorpapierTyp, nctsWP_Vor"& _ "papierReferenz1, nctsWP_VorpapierZusatz1, nctsWP_VorpapierReferenz2, nctsWP_Vorp"& _ "apierZusatz2, nctsWP_VorpapierReferenz3, nctsWP_VorpapierZusatz3, nctsWP_Vorpapi"& _ "erReferenz4, nctsWP_VorpapierZusatz4, nctsWP_VorpapierReferenz5, nctsWP_Vorpapie"& _ "rZusatz5, nctsWP_VorpapierReferenz6, nctsWP_VorpapierZusatz6, nctsWP_VorpapierRe"& _ "ferenz7, nctsWP_VorpapierZusatz7, nctsWP_VorpapierReferenz8, nctsWP_VorpapierZus"& _ "atz8, nctsWP_VorpapierReferenz9, nctsWP_VorpapierZusatz9, nctsWP_BesondereVermek"& _ "e_ExportAusEU, nctsWP_BesondereVermeke_ExportAusLand, nctsWP_BesondereVermeke_Ex"& _ "port, nctsWP_BesondereVermeke_ExportBeschraenkung, nctsWP_BesondereVermeke_Expor"& _ "tAbgaben, nctsWP_BesondereVermeke_Vermerk, nctsWP_BesondereVermeke_Kz10600, ncts"& _ "WP_Versender_EORI, nctsWP_Versender_NLNR, nctsWP_Versender_TIN, nctsWP_Versender"& _ "_Name, nctsWP_Versender_StrasseHausnummer, nctsWP_Versender_Ort, nctsWP_Versende"& _ "r_PLZ, nctsWP_Versender_Land, nctsWP_Empfaenger_EORI, nctsWP_Empfaenger_NLNR, nc"& _ "tsWP_Empfaenger_TIN, nctsWP_Empfaenger_Name, nctsWP_Empfaenger_StrasseHausnummer"& _ ", nctsWP_Empfaenger_Ort, nctsWP_Empfaenger_PLZ, nctsWP_Empfaenger_Land, nctsWP_S"& _ "umAKennnummerSendung, nctsWP_SumABefoerderungskostenZahlungsweise, nctsWP_SumAUN"& _ "Gefahrgutnummer, nctsWP_SumAVersender_EORI, nctsWP_SumAVersender_NLNR, nctsWP_Su"& _ "mAVersender_TIN, nctsWP_SumAVersender_Name, nctsWP_SumAVersender_StrasseHausnumm"& _ "er, nctsWP_SumAVersender_Ort, nctsWP_SumAVersender_PLZ, nctsWP_SumAVersender_Lan"& _ "d, nctsWP_SumAEmpfaenger_EORI, nctsWP_SumAEmpfaenger_NLNR, nctsWP_SumAEmpfaenger"& _ "_TIN, nctsWP_SumAEmpfaenger_Name, nctsWP_SumAEmpfaenger_StrasseHausnummer, nctsW"& _ "P_SumAEmpfaenger_Ort, nctsWP_SumAEmpfaenger_PLZ, nctsWP_SumAEmpfaenger_Land, nct"& _ "sWP_KdRefNr FROM tblDakosy_NCTSOut_Warenposition WHERE (nctsWP_Id = SCOPE_IDENTI"& _ "TY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warenwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SchaetzKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_KdRefNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", 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].[tblDakosy_NCTSOut_Warenposition] SET [nctsWP_NctsId] = @nctsWP_Ncts"& _ "Id, [nctsWP_PositionsNummer] = @nctsWP_PositionsNummer, [nctsWP_Warennummer] = @"& _ "nctsWP_Warennummer, [nctsWP_ArtAnmeldungPositionCode] = @nctsWP_ArtAnmeldungPosi"& _ "tionCode, [nctsWP_Warenbezeichnung] = @nctsWP_Warenbezeichnung, [nctsWP_Warenwer"& _ "t] = @nctsWP_Warenwert, [nctsWP_WarenwertWaehrung] = @nctsWP_WarenwertWaehrung, "& _ "[nctsWP_SchaetzKz] = @nctsWP_SchaetzKz, [nctsWP_WarenwertProzent] = @nctsWP_Ware"& _ "nwertProzent, [nctsWP_VersendungslandPositionCode] = @nctsWP_VersendungslandPosi"& _ "tionCode, [nctsWP_BestimmungslandPositionCode] = @nctsWP_BestimmungslandPosition"& _ "Code, [nctsWP_Rohmasse] = @nctsWP_Rohmasse, [nctsWP_Eigenmasse] = @nctsWP_Eigenm"& _ "asse, [nctsWP_VorpapierTyp] = @nctsWP_VorpapierTyp, [nctsWP_VorpapierReferenz1] "& _ "= @nctsWP_VorpapierReferenz1, [nctsWP_VorpapierZusatz1] = @nctsWP_VorpapierZusat"& _ "z1, [nctsWP_VorpapierReferenz2] = @nctsWP_VorpapierReferenz2, [nctsWP_VorpapierZ"& _ "usatz2] = @nctsWP_VorpapierZusatz2, [nctsWP_VorpapierReferenz3] = @nctsWP_Vorpap"& _ "ierReferenz3, [nctsWP_VorpapierZusatz3] = @nctsWP_VorpapierZusatz3, [nctsWP_Vorp"& _ "apierReferenz4] = @nctsWP_VorpapierReferenz4, [nctsWP_VorpapierZusatz4] = @nctsW"& _ "P_VorpapierZusatz4, [nctsWP_VorpapierReferenz5] = @nctsWP_VorpapierReferenz5, [n"& _ "ctsWP_VorpapierZusatz5] = @nctsWP_VorpapierZusatz5, [nctsWP_VorpapierReferenz6] "& _ "= @nctsWP_VorpapierReferenz6, [nctsWP_VorpapierZusatz6] = @nctsWP_VorpapierZusat"& _ "z6, [nctsWP_VorpapierReferenz7] = @nctsWP_VorpapierReferenz7, [nctsWP_VorpapierZ"& _ "usatz7] = @nctsWP_VorpapierZusatz7, [nctsWP_VorpapierReferenz8] = @nctsWP_Vorpap"& _ "ierReferenz8, [nctsWP_VorpapierZusatz8] = @nctsWP_VorpapierZusatz8, [nctsWP_Vorp"& _ "apierReferenz9] = @nctsWP_VorpapierReferenz9, [nctsWP_VorpapierZusatz9] = @nctsW"& _ "P_VorpapierZusatz9, [nctsWP_BesondereVermeke_ExportAusEU] = @nctsWP_BesondereVer"& _ "meke_ExportAusEU, [nctsWP_BesondereVermeke_ExportAusLand] = @nctsWP_BesondereVer"& _ "meke_ExportAusLand, [nctsWP_BesondereVermeke_Export] = @nctsWP_BesondereVermeke_"& _ "Export, [nctsWP_BesondereVermeke_ExportBeschraenkung] = @nctsWP_BesondereVermeke"& _ "_ExportBeschraenkung, [nctsWP_BesondereVermeke_ExportAbgaben] = @nctsWP_Besonder"& _ "eVermeke_ExportAbgaben, [nctsWP_BesondereVermeke_Vermerk] = @nctsWP_BesondereVer"& _ "meke_Vermerk, [nctsWP_BesondereVermeke_Kz10600] = @nctsWP_BesondereVermeke_Kz106"& _ "00, [nctsWP_Versender_EORI] = @nctsWP_Versender_EORI, [nctsWP_Versender_NLNR] = "& _ "@nctsWP_Versender_NLNR, [nctsWP_Versender_TIN] = @nctsWP_Versender_TIN, [nctsWP_"& _ "Versender_Name] = @nctsWP_Versender_Name, [nctsWP_Versender_StrasseHausnummer] ="& _ " @nctsWP_Versender_StrasseHausnummer, [nctsWP_Versender_Ort] = @nctsWP_Versender"& _ "_Ort, [nctsWP_Versender_PLZ] = @nctsWP_Versender_PLZ, [nctsWP_Versender_Land] = "& _ "@nctsWP_Versender_Land, [nctsWP_Empfaenger_EORI] = @nctsWP_Empfaenger_EORI, [nct"& _ "sWP_Empfaenger_NLNR] = @nctsWP_Empfaenger_NLNR, [nctsWP_Empfaenger_TIN] = @nctsW"& _ "P_Empfaenger_TIN, [nctsWP_Empfaenger_Name] = @nctsWP_Empfaenger_Name, [nctsWP_Em"& _ "pfaenger_StrasseHausnummer] = @nctsWP_Empfaenger_StrasseHausnummer, [nctsWP_Empf"& _ "aenger_Ort] = @nctsWP_Empfaenger_Ort, [nctsWP_Empfaenger_PLZ] = @nctsWP_Empfaeng"& _ "er_PLZ, [nctsWP_Empfaenger_Land] = @nctsWP_Empfaenger_Land, [nctsWP_SumAKennnumm"& _ "erSendung] = @nctsWP_SumAKennnummerSendung, [nctsWP_SumABefoerderungskostenZahlu"& _ "ngsweise] = @nctsWP_SumABefoerderungskostenZahlungsweise, [nctsWP_SumAUNGefahrgu"& _ "tnummer] = @nctsWP_SumAUNGefahrgutnummer, [nctsWP_SumAVersender_EORI] = @nctsWP_"& _ "SumAVersender_EORI, [nctsWP_SumAVersender_NLNR] = @nctsWP_SumAVersender_NLNR, [n"& _ "ctsWP_SumAVersender_TIN] = @nctsWP_SumAVersender_TIN, [nctsWP_SumAVersender_Name"& _ "] = @nctsWP_SumAVersender_Name, [nctsWP_SumAVersender_StrasseHausnummer] = @ncts"& _ "WP_SumAVersender_StrasseHausnummer, [nctsWP_SumAVersender_Ort] = @nctsWP_SumAVer"& _ "sender_Ort, [nctsWP_SumAVersender_PLZ] = @nctsWP_SumAVersender_PLZ, [nctsWP_SumA"& _ "Versender_Land] = @nctsWP_SumAVersender_Land, [nctsWP_SumAEmpfaenger_EORI] = @nc"& _ "tsWP_SumAEmpfaenger_EORI, [nctsWP_SumAEmpfaenger_NLNR] = @nctsWP_SumAEmpfaenger_"& _ "NLNR, [nctsWP_SumAEmpfaenger_TIN] = @nctsWP_SumAEmpfaenger_TIN, [nctsWP_SumAEmpf"& _ "aenger_Name] = @nctsWP_SumAEmpfaenger_Name, [nctsWP_SumAEmpfaenger_StrasseHausnu"& _ "mmer] = @nctsWP_SumAEmpfaenger_StrasseHausnummer, [nctsWP_SumAEmpfaenger_Ort] = "& _ "@nctsWP_SumAEmpfaenger_Ort, [nctsWP_SumAEmpfaenger_PLZ] = @nctsWP_SumAEmpfaenger"& _ "_PLZ, [nctsWP_SumAEmpfaenger_Land] = @nctsWP_SumAEmpfaenger_Land, [nctsWP_KdRefN"& _ "r] = @nctsWP_KdRefNr WHERE (([nctsWP_Id] = @Original_nctsWP_Id) AND ([nctsWP_Nct"& _ "sId] = @Original_nctsWP_NctsId) AND ((@IsNull_nctsWP_PositionsNummer = 1 AND [nc"& _ "tsWP_PositionsNummer] IS NULL) OR ([nctsWP_PositionsNummer] = @Original_nctsWP_P"& _ "ositionsNummer)) AND ((@IsNull_nctsWP_Warennummer = 1 AND [nctsWP_Warennummer] I"& _ "S NULL) OR ([nctsWP_Warennummer] = @Original_nctsWP_Warennummer)) AND ((@IsNull_"& _ "nctsWP_ArtAnmeldungPositionCode = 1 AND [nctsWP_ArtAnmeldungPositionCode] IS NUL"& _ "L) OR ([nctsWP_ArtAnmeldungPositionCode] = @Original_nctsWP_ArtAnmeldungPosition"& _ "Code)) AND ((@IsNull_nctsWP_Warenbezeichnung = 1 AND [nctsWP_Warenbezeichnung] I"& _ "S NULL) OR ([nctsWP_Warenbezeichnung] = @Original_nctsWP_Warenbezeichnung)) AND "& _ "((@IsNull_nctsWP_Warenwert = 1 AND [nctsWP_Warenwert] IS NULL) OR ([nctsWP_Waren"& _ "wert] = @Original_nctsWP_Warenwert)) AND ((@IsNull_nctsWP_WarenwertWaehrung = 1 "& _ "AND [nctsWP_WarenwertWaehrung] IS NULL) OR ([nctsWP_WarenwertWaehrung] = @Origin"& _ "al_nctsWP_WarenwertWaehrung)) AND ((@IsNull_nctsWP_SchaetzKz = 1 AND [nctsWP_Sch"& _ "aetzKz] IS NULL) OR ([nctsWP_SchaetzKz] = @Original_nctsWP_SchaetzKz)) AND ((@Is"& _ "Null_nctsWP_WarenwertProzent = 1 AND [nctsWP_WarenwertProzent] IS NULL) OR ([nct"& _ "sWP_WarenwertProzent] = @Original_nctsWP_WarenwertProzent)) AND ((@IsNull_nctsWP"& _ "_VersendungslandPositionCode = 1 AND [nctsWP_VersendungslandPositionCode] IS NUL"& _ "L) OR ([nctsWP_VersendungslandPositionCode] = @Original_nctsWP_VersendungslandPo"& _ "sitionCode)) AND ((@IsNull_nctsWP_BestimmungslandPositionCode = 1 AND [nctsWP_Be"& _ "stimmungslandPositionCode] IS NULL) OR ([nctsWP_BestimmungslandPositionCode] = @"& _ "Original_nctsWP_BestimmungslandPositionCode)) AND ((@IsNull_nctsWP_Rohmasse = 1 "& _ "AND [nctsWP_Rohmasse] IS NULL) OR ([nctsWP_Rohmasse] = @Original_nctsWP_Rohmasse"& _ ")) AND ((@IsNull_nctsWP_Eigenmasse = 1 AND [nctsWP_Eigenmasse] IS NULL) OR ([nct"& _ "sWP_Eigenmasse] = @Original_nctsWP_Eigenmasse)) AND ((@IsNull_nctsWP_VorpapierTy"& _ "p = 1 AND [nctsWP_VorpapierTyp] IS NULL) OR ([nctsWP_VorpapierTyp] = @Original_n"& _ "ctsWP_VorpapierTyp)) AND ((@IsNull_nctsWP_VorpapierReferenz1 = 1 AND [nctsWP_Vor"& _ "papierReferenz1] IS NULL) OR ([nctsWP_VorpapierReferenz1] = @Original_nctsWP_Vor"& _ "papierReferenz1)) AND ((@IsNull_nctsWP_VorpapierZusatz1 = 1 AND [nctsWP_Vorpapie"& _ "rZusatz1] IS NULL) OR ([nctsWP_VorpapierZusatz1] = @Original_nctsWP_VorpapierZus"& _ "atz1)) AND ((@IsNull_nctsWP_VorpapierReferenz2 = 1 AND [nctsWP_VorpapierReferenz"& _ "2] IS NULL) OR ([nctsWP_VorpapierReferenz2] = @Original_nctsWP_VorpapierReferenz"& _ "2)) AND ((@IsNull_nctsWP_VorpapierZusatz2 = 1 AND [nctsWP_VorpapierZusatz2] IS N"& _ "ULL) OR ([nctsWP_VorpapierZusatz2] = @Original_nctsWP_VorpapierZusatz2)) AND ((@"& _ "IsNull_nctsWP_VorpapierReferenz3 = 1 AND [nctsWP_VorpapierReferenz3] IS NULL) OR"& _ " ([nctsWP_VorpapierReferenz3] = @Original_nctsWP_VorpapierReferenz3)) AND ((@IsN"& _ "ull_nctsWP_VorpapierZusatz3 = 1 AND [nctsWP_VorpapierZusatz3] IS NULL) OR ([ncts"& _ "WP_VorpapierZusatz3] = @Original_nctsWP_VorpapierZusatz3)) AND ((@IsNull_nctsWP_"& _ "VorpapierReferenz4 = 1 AND [nctsWP_VorpapierReferenz4] IS NULL) OR ([nctsWP_Vorp"& _ "apierReferenz4] = @Original_nctsWP_VorpapierReferenz4)) AND ((@IsNull_nctsWP_Vor"& _ "papierZusatz4 = 1 AND [nctsWP_VorpapierZusatz4] IS NULL) OR ([nctsWP_VorpapierZu"& _ "satz4] = @Original_nctsWP_VorpapierZusatz4)) AND ((@IsNull_nctsWP_VorpapierRefer"& _ "enz5 = 1 AND [nctsWP_VorpapierReferenz5] IS NULL) OR ([nctsWP_VorpapierReferenz5"& _ "] = @Original_nctsWP_VorpapierReferenz5)) AND ((@IsNull_nctsWP_VorpapierZusatz5 "& _ "= 1 AND [nctsWP_VorpapierZusatz5] IS NULL) OR ([nctsWP_VorpapierZusatz5] = @Orig"& _ "inal_nctsWP_VorpapierZusatz5)) AND ((@IsNull_nctsWP_VorpapierReferenz6 = 1 AND ["& _ "nctsWP_VorpapierReferenz6] IS NULL) OR ([nctsWP_VorpapierReferenz6] = @Original_"& _ "nctsWP_VorpapierReferenz6)) AND ((@IsNull_nctsWP_VorpapierZusatz6 = 1 AND [nctsW"& _ "P_VorpapierZusatz6] IS NULL) OR ([nctsWP_VorpapierZusatz6] = @Original_nctsWP_Vo"& _ "rpapierZusatz6)) AND ((@IsNull_nctsWP_VorpapierReferenz7 = 1 AND [nctsWP_Vorpapi"& _ "erReferenz7] IS NULL) OR ([nctsWP_VorpapierReferenz7] = @Original_nctsWP_Vorpapi"& _ "erReferenz7)) AND ((@IsNull_nctsWP_VorpapierZusatz7 = 1 AND [nctsWP_VorpapierZus"& _ "atz7] IS NULL) OR ([nctsWP_VorpapierZusatz7] = @Original_nctsWP_VorpapierZusatz7"& _ ")) AND ((@IsNull_nctsWP_VorpapierReferenz8 = 1 AND [nctsWP_VorpapierReferenz8] I"& _ "S NULL) OR ([nctsWP_VorpapierReferenz8] = @Original_nctsWP_VorpapierReferenz8)) "& _ "AND ((@IsNull_nctsWP_VorpapierZusatz8 = 1 AND [nctsWP_VorpapierZusatz8] IS NULL)"& _ " OR ([nctsWP_VorpapierZusatz8] = @Original_nctsWP_VorpapierZusatz8)) AND ((@IsNu"& _ "ll_nctsWP_VorpapierReferenz9 = 1 AND [nctsWP_VorpapierReferenz9] IS NULL) OR ([n"& _ "ctsWP_VorpapierReferenz9] = @Original_nctsWP_VorpapierReferenz9)) AND ((@IsNull_"& _ "nctsWP_VorpapierZusatz9 = 1 AND [nctsWP_VorpapierZusatz9] IS NULL) OR ([nctsWP_V"& _ "orpapierZusatz9] = @Original_nctsWP_VorpapierZusatz9)) AND ((@IsNull_nctsWP_Beso"& _ "ndereVermeke_ExportAusEU = 1 AND [nctsWP_BesondereVermeke_ExportAusEU] IS NULL) "& _ "OR ([nctsWP_BesondereVermeke_ExportAusEU] = @Original_nctsWP_BesondereVermeke_Ex"& _ "portAusEU)) AND ((@IsNull_nctsWP_BesondereVermeke_ExportAusLand = 1 AND [nctsWP_"& _ "BesondereVermeke_ExportAusLand] IS NULL) OR ([nctsWP_BesondereVermeke_ExportAusL"& _ "and] = @Original_nctsWP_BesondereVermeke_ExportAusLand)) AND ((@IsNull_nctsWP_Be"& _ "sondereVermeke_Export = 1 AND [nctsWP_BesondereVermeke_Export] IS NULL) OR ([nct"& _ "sWP_BesondereVermeke_Export] = @Original_nctsWP_BesondereVermeke_Export)) AND (("& _ "@IsNull_nctsWP_BesondereVermeke_ExportBeschraenkung = 1 AND [nctsWP_BesondereVer"& _ "meke_ExportBeschraenkung] IS NULL) OR ([nctsWP_BesondereVermeke_ExportBeschraenk"& _ "ung] = @Original_nctsWP_BesondereVermeke_ExportBeschraenkung)) AND ((@IsNull_nct"& _ "sWP_BesondereVermeke_ExportAbgaben = 1 AND [nctsWP_BesondereVermeke_ExportAbgabe"& _ "n] IS NULL) OR ([nctsWP_BesondereVermeke_ExportAbgaben] = @Original_nctsWP_Beson"& _ "dereVermeke_ExportAbgaben)) AND ((@IsNull_nctsWP_BesondereVermeke_Vermerk = 1 AN"& _ "D [nctsWP_BesondereVermeke_Vermerk] IS NULL) OR ([nctsWP_BesondereVermeke_Vermer"& _ "k] = @Original_nctsWP_BesondereVermeke_Vermerk)) AND ((@IsNull_nctsWP_BesondereV"& _ "ermeke_Kz10600 = 1 AND [nctsWP_BesondereVermeke_Kz10600] IS NULL) OR ([nctsWP_Be"& _ "sondereVermeke_Kz10600] = @Original_nctsWP_BesondereVermeke_Kz10600)) AND ((@IsN"& _ "ull_nctsWP_Versender_EORI = 1 AND [nctsWP_Versender_EORI] IS NULL) OR ([nctsWP_V"& _ "ersender_EORI] = @Original_nctsWP_Versender_EORI)) AND ((@IsNull_nctsWP_Versende"& _ "r_NLNR = 1 AND [nctsWP_Versender_NLNR] IS NULL) OR ([nctsWP_Versender_NLNR] = @O"& _ "riginal_nctsWP_Versender_NLNR)) AND ((@IsNull_nctsWP_Versender_TIN = 1 AND [ncts"& _ "WP_Versender_TIN] IS NULL) OR ([nctsWP_Versender_TIN] = @Original_nctsWP_Versend"& _ "er_TIN)) AND ((@IsNull_nctsWP_Versender_Name = 1 AND [nctsWP_Versender_Name] IS "& _ "NULL) OR ([nctsWP_Versender_Name] = @Original_nctsWP_Versender_Name)) AND ((@IsN"& _ "ull_nctsWP_Versender_StrasseHausnummer = 1 AND [nctsWP_Versender_StrasseHausnumm"& _ "er] IS NULL) OR ([nctsWP_Versender_StrasseHausnummer] = @Original_nctsWP_Versend"& _ "er_StrasseHausnummer)) AND ((@IsNull_nctsWP_Versender_Ort = 1 AND [nctsWP_Versen"& _ "der_Ort] IS NULL) OR ([nctsWP_Versender_Ort] = @Original_nctsWP_Versender_Ort)) "& _ "AND ((@IsNull_nctsWP_Versender_PLZ = 1 AND [nctsWP_Versender_PLZ] IS NULL) OR (["& _ "nctsWP_Versender_PLZ] = @Original_nctsWP_Versender_PLZ)) AND ((@IsNull_nctsWP_Ve"& _ "rsender_Land = 1 AND [nctsWP_Versender_Land] IS NULL) OR ([nctsWP_Versender_Land"& _ "] = @Original_nctsWP_Versender_Land)) AND ((@IsNull_nctsWP_Empfaenger_EORI = 1 A"& _ "ND [nctsWP_Empfaenger_EORI] IS NULL) OR ([nctsWP_Empfaenger_EORI] = @Original_nc"& _ "tsWP_Empfaenger_EORI)) AND ((@IsNull_nctsWP_Empfaenger_NLNR = 1 AND [nctsWP_Empf"& _ "aenger_NLNR] IS NULL) OR ([nctsWP_Empfaenger_NLNR] = @Original_nctsWP_Empfaenger"& _ "_NLNR)) AND ((@IsNull_nctsWP_Empfaenger_TIN = 1 AND [nctsWP_Empfaenger_TIN] IS N"& _ "ULL) OR ([nctsWP_Empfaenger_TIN] = @Original_nctsWP_Empfaenger_TIN)) AND ((@IsNu"& _ "ll_nctsWP_Empfaenger_Name = 1 AND [nctsWP_Empfaenger_Name] IS NULL) OR ([nctsWP_"& _ "Empfaenger_Name] = @Original_nctsWP_Empfaenger_Name)) AND ((@IsNull_nctsWP_Empfa"& _ "enger_StrasseHausnummer = 1 AND [nctsWP_Empfaenger_StrasseHausnummer] IS NULL) O"& _ "R ([nctsWP_Empfaenger_StrasseHausnummer] = @Original_nctsWP_Empfaenger_StrasseHa"& _ "usnummer)) AND ((@IsNull_nctsWP_Empfaenger_Ort = 1 AND [nctsWP_Empfaenger_Ort] I"& _ "S NULL) OR ([nctsWP_Empfaenger_Ort] = @Original_nctsWP_Empfaenger_Ort)) AND ((@I"& _ "sNull_nctsWP_Empfaenger_PLZ = 1 AND [nctsWP_Empfaenger_PLZ] IS NULL) OR ([nctsWP"& _ "_Empfaenger_PLZ] = @Original_nctsWP_Empfaenger_PLZ)) AND ((@IsNull_nctsWP_Empfae"& _ "nger_Land = 1 AND [nctsWP_Empfaenger_Land] IS NULL) OR ([nctsWP_Empfaenger_Land]"& _ " = @Original_nctsWP_Empfaenger_Land)) AND ((@IsNull_nctsWP_SumAKennnummerSendung"& _ " = 1 AND [nctsWP_SumAKennnummerSendung] IS NULL) OR ([nctsWP_SumAKennnummerSendu"& _ "ng] = @Original_nctsWP_SumAKennnummerSendung)) AND ((@IsNull_nctsWP_SumABefoerde"& _ "rungskostenZahlungsweise = 1 AND [nctsWP_SumABefoerderungskostenZahlungsweise] I"& _ "S NULL) OR ([nctsWP_SumABefoerderungskostenZahlungsweise] = @Original_nctsWP_Sum"& _ "ABefoerderungskostenZahlungsweise)) AND ((@IsNull_nctsWP_SumAUNGefahrgutnummer ="& _ " 1 AND [nctsWP_SumAUNGefahrgutnummer] IS NULL) OR ([nctsWP_SumAUNGefahrgutnummer"& _ "] = @Original_nctsWP_SumAUNGefahrgutnummer)) AND ((@IsNull_nctsWP_SumAVersender_"& _ "EORI = 1 AND [nctsWP_SumAVersender_EORI] IS NULL) OR ([nctsWP_SumAVersender_EORI"& _ "] = @Original_nctsWP_SumAVersender_EORI)) AND ((@IsNull_nctsWP_SumAVersender_NLN"& _ "R = 1 AND [nctsWP_SumAVersender_NLNR] IS NULL) OR ([nctsWP_SumAVersender_NLNR] ="& _ " @Original_nctsWP_SumAVersender_NLNR)) AND ((@IsNull_nctsWP_SumAVersender_TIN = "& _ "1 AND [nctsWP_SumAVersender_TIN] IS NULL) OR ([nctsWP_SumAVersender_TIN] = @Orig"& _ "inal_nctsWP_SumAVersender_TIN)) AND ((@IsNull_nctsWP_SumAVersender_Name = 1 AND "& _ "[nctsWP_SumAVersender_Name] IS NULL) OR ([nctsWP_SumAVersender_Name] = @Original"& _ "_nctsWP_SumAVersender_Name)) AND ((@IsNull_nctsWP_SumAVersender_StrasseHausnumme"& _ "r = 1 AND [nctsWP_SumAVersender_StrasseHausnummer] IS NULL) OR ([nctsWP_SumAVers"& _ "ender_StrasseHausnummer] = @Original_nctsWP_SumAVersender_StrasseHausnummer)) AN"& _ "D ((@IsNull_nctsWP_SumAVersender_Ort = 1 AND [nctsWP_SumAVersender_Ort] IS NULL)"& _ " OR ([nctsWP_SumAVersender_Ort] = @Original_nctsWP_SumAVersender_Ort)) AND ((@Is"& _ "Null_nctsWP_SumAVersender_PLZ = 1 AND [nctsWP_SumAVersender_PLZ] IS NULL) OR ([n"& _ "ctsWP_SumAVersender_PLZ] = @Original_nctsWP_SumAVersender_PLZ)) AND ((@IsNull_nc"& _ "tsWP_SumAVersender_Land = 1 AND [nctsWP_SumAVersender_Land] IS NULL) OR ([nctsWP"& _ "_SumAVersender_Land] = @Original_nctsWP_SumAVersender_Land)) AND ((@IsNull_nctsW"& _ "P_SumAEmpfaenger_EORI = 1 AND [nctsWP_SumAEmpfaenger_EORI] IS NULL) OR ([nctsWP_"& _ "SumAEmpfaenger_EORI] = @Original_nctsWP_SumAEmpfaenger_EORI)) AND ((@IsNull_ncts"& _ "WP_SumAEmpfaenger_NLNR = 1 AND [nctsWP_SumAEmpfaenger_NLNR] IS NULL) OR ([nctsWP"& _ "_SumAEmpfaenger_NLNR] = @Original_nctsWP_SumAEmpfaenger_NLNR)) AND ((@IsNull_nct"& _ "sWP_SumAEmpfaenger_TIN = 1 AND [nctsWP_SumAEmpfaenger_TIN] IS NULL) OR ([nctsWP_"& _ "SumAEmpfaenger_TIN] = @Original_nctsWP_SumAEmpfaenger_TIN)) AND ((@IsNull_nctsWP"& _ "_SumAEmpfaenger_Name = 1 AND [nctsWP_SumAEmpfaenger_Name] IS NULL) OR ([nctsWP_S"& _ "umAEmpfaenger_Name] = @Original_nctsWP_SumAEmpfaenger_Name)) AND ((@IsNull_nctsW"& _ "P_SumAEmpfaenger_StrasseHausnummer = 1 AND [nctsWP_SumAEmpfaenger_StrasseHausnum"& _ "mer] IS NULL) OR ([nctsWP_SumAEmpfaenger_StrasseHausnummer] = @Original_nctsWP_S"& _ "umAEmpfaenger_StrasseHausnummer)) AND ((@IsNull_nctsWP_SumAEmpfaenger_Ort = 1 AN"& _ "D [nctsWP_SumAEmpfaenger_Ort] IS NULL) OR ([nctsWP_SumAEmpfaenger_Ort] = @Origin"& _ "al_nctsWP_SumAEmpfaenger_Ort)) AND ((@IsNull_nctsWP_SumAEmpfaenger_PLZ = 1 AND ["& _ "nctsWP_SumAEmpfaenger_PLZ] IS NULL) OR ([nctsWP_SumAEmpfaenger_PLZ] = @Original_"& _ "nctsWP_SumAEmpfaenger_PLZ)) AND ((@IsNull_nctsWP_SumAEmpfaenger_Land = 1 AND [nc"& _ "tsWP_SumAEmpfaenger_Land] IS NULL) OR ([nctsWP_SumAEmpfaenger_Land] = @Original_"& _ "nctsWP_SumAEmpfaenger_Land)) AND ((@IsNull_nctsWP_KdRefNr = 1 AND [nctsWP_KdRefN"& _ "r] IS NULL) OR ([nctsWP_KdRefNr] = @Original_nctsWP_KdRefNr)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsWP_I"& _ "d, nctsWP_NctsId, nctsWP_PositionsNummer, nctsWP_Warennummer, nctsWP_ArtAnmeldun"& _ "gPositionCode, nctsWP_Warenbezeichnung, nctsWP_Warenwert, nctsWP_WarenwertWaehru"& _ "ng, nctsWP_SchaetzKz, nctsWP_WarenwertProzent, nctsWP_VersendungslandPositionCod"& _ "e, nctsWP_BestimmungslandPositionCode, nctsWP_Rohmasse, nctsWP_Eigenmasse, nctsW"& _ "P_VorpapierTyp, nctsWP_VorpapierReferenz1, nctsWP_VorpapierZusatz1, nctsWP_Vorpa"& _ "pierReferenz2, nctsWP_VorpapierZusatz2, nctsWP_VorpapierReferenz3, nctsWP_Vorpap"& _ "ierZusatz3, nctsWP_VorpapierReferenz4, nctsWP_VorpapierZusatz4, nctsWP_Vorpapier"& _ "Referenz5, nctsWP_VorpapierZusatz5, nctsWP_VorpapierReferenz6, nctsWP_VorpapierZ"& _ "usatz6, nctsWP_VorpapierReferenz7, nctsWP_VorpapierZusatz7, nctsWP_VorpapierRefe"& _ "renz8, nctsWP_VorpapierZusatz8, nctsWP_VorpapierReferenz9, nctsWP_VorpapierZusat"& _ "z9, nctsWP_BesondereVermeke_ExportAusEU, nctsWP_BesondereVermeke_ExportAusLand, "& _ "nctsWP_BesondereVermeke_Export, nctsWP_BesondereVermeke_ExportBeschraenkung, nct"& _ "sWP_BesondereVermeke_ExportAbgaben, nctsWP_BesondereVermeke_Vermerk, nctsWP_Beso"& _ "ndereVermeke_Kz10600, nctsWP_Versender_EORI, nctsWP_Versender_NLNR, nctsWP_Verse"& _ "nder_TIN, nctsWP_Versender_Name, nctsWP_Versender_StrasseHausnummer, nctsWP_Vers"& _ "ender_Ort, nctsWP_Versender_PLZ, nctsWP_Versender_Land, nctsWP_Empfaenger_EORI, "& _ "nctsWP_Empfaenger_NLNR, nctsWP_Empfaenger_TIN, nctsWP_Empfaenger_Name, nctsWP_Em"& _ "pfaenger_StrasseHausnummer, nctsWP_Empfaenger_Ort, nctsWP_Empfaenger_PLZ, nctsWP"& _ "_Empfaenger_Land, nctsWP_SumAKennnummerSendung, nctsWP_SumABefoerderungskostenZa"& _ "hlungsweise, nctsWP_SumAUNGefahrgutnummer, nctsWP_SumAVersender_EORI, nctsWP_Sum"& _ "AVersender_NLNR, nctsWP_SumAVersender_TIN, nctsWP_SumAVersender_Name, nctsWP_Sum"& _ "AVersender_StrasseHausnummer, nctsWP_SumAVersender_Ort, nctsWP_SumAVersender_PLZ"& _ ", nctsWP_SumAVersender_Land, nctsWP_SumAEmpfaenger_EORI, nctsWP_SumAEmpfaenger_N"& _ "LNR, nctsWP_SumAEmpfaenger_TIN, nctsWP_SumAEmpfaenger_Name, nctsWP_SumAEmpfaenge"& _ "r_StrasseHausnummer, nctsWP_SumAEmpfaenger_Ort, nctsWP_SumAEmpfaenger_PLZ, nctsW"& _ "P_SumAEmpfaenger_Land, nctsWP_KdRefNr FROM tblDakosy_NCTSOut_Warenposition WHERE"& _ " (nctsWP_Id = @nctsWP_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warenwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SchaetzKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_KdRefNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_PositionsNummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warenwert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warenwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SchaetzKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SchaetzKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Eigenmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_KdRefNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_KdRefNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsWP_Id, nctsWP_NctsId, nctsWP_PositionsNummer, nctsWP_Warennummer, ncts"& _ "WP_ArtAnmeldungPositionCode, nctsWP_Warenbezeichnung, nctsWP_Warenwert, nctsWP_W"& _ "arenwertWaehrung, nctsWP_SchaetzKz, nctsWP_WarenwertProzent, nctsWP_Versendungsl"& _ "andPositionCode, nctsWP_BestimmungslandPositionCode, nctsWP_Rohmasse, nctsWP_Eig"& _ "enmasse, nctsWP_VorpapierTyp, nctsWP_VorpapierReferenz1, nctsWP_VorpapierZusatz1"& _ ", nctsWP_VorpapierReferenz2, nctsWP_VorpapierZusatz2, nctsWP_VorpapierReferenz3,"& _ " nctsWP_VorpapierZusatz3, nctsWP_VorpapierReferenz4, nctsWP_VorpapierZusatz4, nc"& _ "tsWP_VorpapierReferenz5, nctsWP_VorpapierZusatz5, nctsWP_VorpapierReferenz6, nct"& _ "sWP_VorpapierZusatz6, nctsWP_VorpapierReferenz7, nctsWP_VorpapierZusatz7, nctsWP"& _ "_VorpapierReferenz8, nctsWP_VorpapierZusatz8, nctsWP_VorpapierReferenz9, nctsWP_"& _ "VorpapierZusatz9, nctsWP_BesondereVermeke_ExportAusEU, nctsWP_BesondereVermeke_E"& _ "xportAusLand, nctsWP_BesondereVermeke_Export, nctsWP_BesondereVermeke_ExportBesc"& _ "hraenkung, nctsWP_BesondereVermeke_ExportAbgaben, nctsWP_BesondereVermeke_Vermer"& _ "k, nctsWP_BesondereVermeke_Kz10600, nctsWP_Versender_EORI, nctsWP_Versender_NLNR"& _ ", nctsWP_Versender_TIN, nctsWP_Versender_Name, nctsWP_Versender_StrasseHausnumme"& _ "r, nctsWP_Versender_Ort, nctsWP_Versender_PLZ, nctsWP_Versender_Land, nctsWP_Emp"& _ "faenger_EORI, nctsWP_Empfaenger_NLNR, nctsWP_Empfaenger_TIN, nctsWP_Empfaenger_N"& _ "ame, nctsWP_Empfaenger_StrasseHausnummer, nctsWP_Empfaenger_Ort, nctsWP_Empfaeng"& _ "er_PLZ, nctsWP_Empfaenger_Land, nctsWP_SumAKennnummerSendung, nctsWP_SumABefoerd"& _ "erungskostenZahlungsweise, nctsWP_SumAUNGefahrgutnummer, nctsWP_SumAVersender_EO"& _ "RI, nctsWP_SumAVersender_NLNR, nctsWP_SumAVersender_TIN, nctsWP_SumAVersender_Na"& _ "me, nctsWP_SumAVersender_StrasseHausnummer, nctsWP_SumAVersender_Ort, nctsWP_Sum"& _ "AVersender_PLZ, nctsWP_SumAVersender_Land, nctsWP_SumAEmpfaenger_EORI, nctsWP_Su"& _ "mAEmpfaenger_NLNR, nctsWP_SumAEmpfaenger_TIN, nctsWP_SumAEmpfaenger_Name, nctsWP"& _ "_SumAEmpfaenger_StrasseHausnummer, nctsWP_SumAEmpfaenger_Ort, nctsWP_SumAEmpfaen"& _ "ger_PLZ, nctsWP_SumAEmpfaenger_Land, nctsWP_KdRefNr FROM dbo.tblDakosy_NCTSOut_W"& _ "arenposition" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut_WarenpositionDataTable) 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 VERAGDataSet.tblDakosy_NCTSOut_WarenpositionDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOut_WarenpositionDataTable = New VERAGDataSet.tblDakosy_NCTSOut_WarenpositionDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut_WarenpositionDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut_Warenposition") 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_nctsWP_Id As Integer, _ ByVal Original_nctsWP_NctsId As Integer, _ ByVal Original_nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Warennummer As String, _ ByVal Original_nctsWP_ArtAnmeldungPositionCode As String, _ ByVal Original_nctsWP_Warenbezeichnung As String, _ ByVal Original_nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_WarenwertWaehrung As String, _ ByVal Original_nctsWP_SchaetzKz As String, _ ByVal Original_nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VersendungslandPositionCode As String, _ ByVal Original_nctsWP_BestimmungslandPositionCode As String, _ ByVal Original_nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VorpapierTyp As String, _ ByVal Original_nctsWP_VorpapierReferenz1 As String, _ ByVal Original_nctsWP_VorpapierZusatz1 As String, _ ByVal Original_nctsWP_VorpapierReferenz2 As String, _ ByVal Original_nctsWP_VorpapierZusatz2 As String, _ ByVal Original_nctsWP_VorpapierReferenz3 As String, _ ByVal Original_nctsWP_VorpapierZusatz3 As String, _ ByVal Original_nctsWP_VorpapierReferenz4 As String, _ ByVal Original_nctsWP_VorpapierZusatz4 As String, _ ByVal Original_nctsWP_VorpapierReferenz5 As String, _ ByVal Original_nctsWP_VorpapierZusatz5 As String, _ ByVal Original_nctsWP_VorpapierReferenz6 As String, _ ByVal Original_nctsWP_VorpapierZusatz6 As String, _ ByVal Original_nctsWP_VorpapierReferenz7 As String, _ ByVal Original_nctsWP_VorpapierZusatz7 As String, _ ByVal Original_nctsWP_VorpapierReferenz8 As String, _ ByVal Original_nctsWP_VorpapierZusatz8 As String, _ ByVal Original_nctsWP_VorpapierReferenz9 As String, _ ByVal Original_nctsWP_VorpapierZusatz9 As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal Original_nctsWP_BesondereVermeke_Export As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal Original_nctsWP_BesondereVermeke_Vermerk As String, _ ByVal Original_nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal Original_nctsWP_Versender_EORI As String, _ ByVal Original_nctsWP_Versender_NLNR As String, _ ByVal Original_nctsWP_Versender_TIN As String, _ ByVal Original_nctsWP_Versender_Name As String, _ ByVal Original_nctsWP_Versender_StrasseHausnummer As String, _ ByVal Original_nctsWP_Versender_Ort As String, _ ByVal Original_nctsWP_Versender_PLZ As String, _ ByVal Original_nctsWP_Versender_Land As String, _ ByVal Original_nctsWP_Empfaenger_EORI As String, _ ByVal Original_nctsWP_Empfaenger_NLNR As String, _ ByVal Original_nctsWP_Empfaenger_TIN As String, _ ByVal Original_nctsWP_Empfaenger_Name As String, _ ByVal Original_nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_Empfaenger_Ort As String, _ ByVal Original_nctsWP_Empfaenger_PLZ As String, _ ByVal Original_nctsWP_Empfaenger_Land As String, _ ByVal Original_nctsWP_SumAKennnummerSendung As String, _ ByVal Original_nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal Original_nctsWP_SumAUNGefahrgutnummer As String, _ ByVal Original_nctsWP_SumAVersender_EORI As String, _ ByVal Original_nctsWP_SumAVersender_NLNR As String, _ ByVal Original_nctsWP_SumAVersender_TIN As String, _ ByVal Original_nctsWP_SumAVersender_Name As String, _ ByVal Original_nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAVersender_Ort As String, _ ByVal Original_nctsWP_SumAVersender_PLZ As String, _ ByVal Original_nctsWP_SumAVersender_Land As String, _ ByVal Original_nctsWP_SumAEmpfaenger_EORI As String, _ ByVal Original_nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal Original_nctsWP_SumAEmpfaenger_TIN As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Name As String, _ ByVal Original_nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Ort As String, _ ByVal Original_nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Land As String, _ ByVal Original_nctsWP_KdRefNr As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsWP_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsWP_NctsId,Integer) If (Original_nctsWP_PositionsNummer.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_nctsWP_PositionsNummer.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_nctsWP_Warennummer 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_nctsWP_Warennummer,String) End If If (Original_nctsWP_ArtAnmeldungPositionCode 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_nctsWP_ArtAnmeldungPositionCode,String) End If If (Original_nctsWP_Warenbezeichnung 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_nctsWP_Warenbezeichnung,String) End If If (Original_nctsWP_Warenwert.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_nctsWP_Warenwert.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Original_nctsWP_WarenwertWaehrung 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_nctsWP_WarenwertWaehrung,String) End If If (Original_nctsWP_SchaetzKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_nctsWP_SchaetzKz,String) End If If (Original_nctsWP_WarenwertProzent.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_nctsWP_WarenwertProzent.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_nctsWP_VersendungslandPositionCode 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_nctsWP_VersendungslandPositionCode,String) End If If (Original_nctsWP_BestimmungslandPositionCode 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_nctsWP_BestimmungslandPositionCode,String) End If If (Original_nctsWP_Rohmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_nctsWP_Rohmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_nctsWP_Eigenmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_nctsWP_Eigenmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_nctsWP_VorpapierTyp 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_nctsWP_VorpapierTyp,String) End If If (Original_nctsWP_VorpapierReferenz1 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_nctsWP_VorpapierReferenz1,String) End If If (Original_nctsWP_VorpapierZusatz1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_nctsWP_VorpapierZusatz1,String) End If If (Original_nctsWP_VorpapierReferenz2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_nctsWP_VorpapierReferenz2,String) End If If (Original_nctsWP_VorpapierZusatz2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_nctsWP_VorpapierZusatz2,String) End If If (Original_nctsWP_VorpapierReferenz3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_nctsWP_VorpapierReferenz3,String) End If If (Original_nctsWP_VorpapierZusatz3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_nctsWP_VorpapierZusatz3,String) End If If (Original_nctsWP_VorpapierReferenz4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_nctsWP_VorpapierReferenz4,String) End If If (Original_nctsWP_VorpapierZusatz4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_nctsWP_VorpapierZusatz4,String) End If If (Original_nctsWP_VorpapierReferenz5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_nctsWP_VorpapierReferenz5,String) End If If (Original_nctsWP_VorpapierZusatz5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_nctsWP_VorpapierZusatz5,String) End If If (Original_nctsWP_VorpapierReferenz6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_nctsWP_VorpapierReferenz6,String) End If If (Original_nctsWP_VorpapierZusatz6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_nctsWP_VorpapierZusatz6,String) End If If (Original_nctsWP_VorpapierReferenz7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_nctsWP_VorpapierReferenz7,String) End If If (Original_nctsWP_VorpapierZusatz7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = CType(Original_nctsWP_VorpapierZusatz7,String) End If If (Original_nctsWP_VorpapierReferenz8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = CType(Original_nctsWP_VorpapierReferenz8,String) End If If (Original_nctsWP_VorpapierZusatz8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_nctsWP_VorpapierZusatz8,String) End If If (Original_nctsWP_VorpapierReferenz9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_nctsWP_VorpapierReferenz9,String) End If If (Original_nctsWP_VorpapierZusatz9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_nctsWP_VorpapierZusatz9,String) End If If (Original_nctsWP_BesondereVermeke_ExportAusEU Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_nctsWP_BesondereVermeke_ExportAusEU,String) End If If (Original_nctsWP_BesondereVermeke_ExportAusLand Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_nctsWP_BesondereVermeke_ExportAusLand,String) End If If (Original_nctsWP_BesondereVermeke_Export Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = CType(Original_nctsWP_BesondereVermeke_Export,String) End If If (Original_nctsWP_BesondereVermeke_ExportBeschraenkung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = CType(Original_nctsWP_BesondereVermeke_ExportBeschraenkung,String) End If If (Original_nctsWP_BesondereVermeke_ExportAbgaben Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = CType(Original_nctsWP_BesondereVermeke_ExportAbgaben,String) End If If (Original_nctsWP_BesondereVermeke_Vermerk Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = CType(Original_nctsWP_BesondereVermeke_Vermerk,String) End If If (Original_nctsWP_BesondereVermeke_Kz10600 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = CType(Original_nctsWP_BesondereVermeke_Kz10600,String) End If If (Original_nctsWP_Versender_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = CType(Original_nctsWP_Versender_EORI,String) End If If (Original_nctsWP_Versender_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = CType(Original_nctsWP_Versender_NLNR,String) End If If (Original_nctsWP_Versender_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = CType(Original_nctsWP_Versender_TIN,String) End If If (Original_nctsWP_Versender_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = CType(Original_nctsWP_Versender_Name,String) End If If (Original_nctsWP_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = CType(Original_nctsWP_Versender_StrasseHausnummer,String) End If If (Original_nctsWP_Versender_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = CType(Original_nctsWP_Versender_Ort,String) End If If (Original_nctsWP_Versender_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = CType(Original_nctsWP_Versender_PLZ,String) End If If (Original_nctsWP_Versender_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = CType(Original_nctsWP_Versender_Land,String) End If If (Original_nctsWP_Empfaenger_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = CType(Original_nctsWP_Empfaenger_EORI,String) End If If (Original_nctsWP_Empfaenger_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = CType(Original_nctsWP_Empfaenger_NLNR,String) End If If (Original_nctsWP_Empfaenger_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = CType(Original_nctsWP_Empfaenger_TIN,String) End If If (Original_nctsWP_Empfaenger_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = CType(Original_nctsWP_Empfaenger_Name,String) End If If (Original_nctsWP_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = CType(Original_nctsWP_Empfaenger_StrasseHausnummer,String) End If If (Original_nctsWP_Empfaenger_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = CType(Original_nctsWP_Empfaenger_Ort,String) End If If (Original_nctsWP_Empfaenger_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = CType(Original_nctsWP_Empfaenger_PLZ,String) End If If (Original_nctsWP_Empfaenger_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = CType(Original_nctsWP_Empfaenger_Land,String) End If If (Original_nctsWP_SumAKennnummerSendung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = CType(Original_nctsWP_SumAKennnummerSendung,String) End If If (Original_nctsWP_SumABefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = CType(Original_nctsWP_SumABefoerderungskostenZahlungsweise,String) End If If (Original_nctsWP_SumAUNGefahrgutnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = CType(Original_nctsWP_SumAUNGefahrgutnummer,String) End If If (Original_nctsWP_SumAVersender_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = CType(Original_nctsWP_SumAVersender_EORI,String) End If If (Original_nctsWP_SumAVersender_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = CType(Original_nctsWP_SumAVersender_NLNR,String) End If If (Original_nctsWP_SumAVersender_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = CType(Original_nctsWP_SumAVersender_TIN,String) End If If (Original_nctsWP_SumAVersender_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = CType(Original_nctsWP_SumAVersender_Name,String) End If If (Original_nctsWP_SumAVersender_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = CType(Original_nctsWP_SumAVersender_StrasseHausnummer,String) End If If (Original_nctsWP_SumAVersender_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = CType(Original_nctsWP_SumAVersender_Ort,String) End If If (Original_nctsWP_SumAVersender_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = CType(Original_nctsWP_SumAVersender_PLZ,String) End If If (Original_nctsWP_SumAVersender_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = CType(Original_nctsWP_SumAVersender_Land,String) End If If (Original_nctsWP_SumAEmpfaenger_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = CType(Original_nctsWP_SumAEmpfaenger_EORI,String) End If If (Original_nctsWP_SumAEmpfaenger_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = CType(Original_nctsWP_SumAEmpfaenger_NLNR,String) End If If (Original_nctsWP_SumAEmpfaenger_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(136).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(136).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = CType(Original_nctsWP_SumAEmpfaenger_TIN,String) End If If (Original_nctsWP_SumAEmpfaenger_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(138).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(138).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = CType(Original_nctsWP_SumAEmpfaenger_Name,String) End If If (Original_nctsWP_SumAEmpfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(140).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(140).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = CType(Original_nctsWP_SumAEmpfaenger_StrasseHausnummer,String) End If If (Original_nctsWP_SumAEmpfaenger_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(142).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(142).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = CType(Original_nctsWP_SumAEmpfaenger_Ort,String) End If If (Original_nctsWP_SumAEmpfaenger_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(144).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(144).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = CType(Original_nctsWP_SumAEmpfaenger_PLZ,String) End If If (Original_nctsWP_SumAEmpfaenger_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(146).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(146).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = CType(Original_nctsWP_SumAEmpfaenger_Land,String) End If If (Original_nctsWP_KdRefNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(148).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(148).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = CType(Original_nctsWP_KdRefNr,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 nctsWP_NctsId As Integer, _ ByVal nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Warennummer As String, _ ByVal nctsWP_ArtAnmeldungPositionCode As String, _ ByVal nctsWP_Warenbezeichnung As String, _ ByVal nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_WarenwertWaehrung As String, _ ByVal nctsWP_SchaetzKz As String, _ ByVal nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VersendungslandPositionCode As String, _ ByVal nctsWP_BestimmungslandPositionCode As String, _ ByVal nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VorpapierTyp As String, _ ByVal nctsWP_VorpapierReferenz1 As String, _ ByVal nctsWP_VorpapierZusatz1 As String, _ ByVal nctsWP_VorpapierReferenz2 As String, _ ByVal nctsWP_VorpapierZusatz2 As String, _ ByVal nctsWP_VorpapierReferenz3 As String, _ ByVal nctsWP_VorpapierZusatz3 As String, _ ByVal nctsWP_VorpapierReferenz4 As String, _ ByVal nctsWP_VorpapierZusatz4 As String, _ ByVal nctsWP_VorpapierReferenz5 As String, _ ByVal nctsWP_VorpapierZusatz5 As String, _ ByVal nctsWP_VorpapierReferenz6 As String, _ ByVal nctsWP_VorpapierZusatz6 As String, _ ByVal nctsWP_VorpapierReferenz7 As String, _ ByVal nctsWP_VorpapierZusatz7 As String, _ ByVal nctsWP_VorpapierReferenz8 As String, _ ByVal nctsWP_VorpapierZusatz8 As String, _ ByVal nctsWP_VorpapierReferenz9 As String, _ ByVal nctsWP_VorpapierZusatz9 As String, _ ByVal nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal nctsWP_BesondereVermeke_Export As String, _ ByVal nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal nctsWP_BesondereVermeke_Vermerk As String, _ ByVal nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal nctsWP_Versender_EORI As String, _ ByVal nctsWP_Versender_NLNR As String, _ ByVal nctsWP_Versender_TIN As String, _ ByVal nctsWP_Versender_Name As String, _ ByVal nctsWP_Versender_StrasseHausnummer As String, _ ByVal nctsWP_Versender_Ort As String, _ ByVal nctsWP_Versender_PLZ As String, _ ByVal nctsWP_Versender_Land As String, _ ByVal nctsWP_Empfaenger_EORI As String, _ ByVal nctsWP_Empfaenger_NLNR As String, _ ByVal nctsWP_Empfaenger_TIN As String, _ ByVal nctsWP_Empfaenger_Name As String, _ ByVal nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal nctsWP_Empfaenger_Ort As String, _ ByVal nctsWP_Empfaenger_PLZ As String, _ ByVal nctsWP_Empfaenger_Land As String, _ ByVal nctsWP_SumAKennnummerSendung As String, _ ByVal nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal nctsWP_SumAUNGefahrgutnummer As String, _ ByVal nctsWP_SumAVersender_EORI As String, _ ByVal nctsWP_SumAVersender_NLNR As String, _ ByVal nctsWP_SumAVersender_TIN As String, _ ByVal nctsWP_SumAVersender_Name As String, _ ByVal nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal nctsWP_SumAVersender_Ort As String, _ ByVal nctsWP_SumAVersender_PLZ As String, _ ByVal nctsWP_SumAVersender_Land As String, _ ByVal nctsWP_SumAEmpfaenger_EORI As String, _ ByVal nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal nctsWP_SumAEmpfaenger_TIN As String, _ ByVal nctsWP_SumAEmpfaenger_Name As String, _ ByVal nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal nctsWP_SumAEmpfaenger_Ort As String, _ ByVal nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal nctsWP_SumAEmpfaenger_Land As String, _ ByVal nctsWP_KdRefNr As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsWP_NctsId,Integer) If (nctsWP_PositionsNummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsWP_PositionsNummer.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (nctsWP_Warennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsWP_Warennummer,String) End If If (nctsWP_ArtAnmeldungPositionCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsWP_ArtAnmeldungPositionCode,String) End If If (nctsWP_Warenbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsWP_Warenbezeichnung,String) End If If (nctsWP_Warenwert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsWP_Warenwert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (nctsWP_WarenwertWaehrung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(nctsWP_WarenwertWaehrung,String) End If If (nctsWP_SchaetzKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(nctsWP_SchaetzKz,String) End If If (nctsWP_WarenwertProzent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(nctsWP_WarenwertProzent.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (nctsWP_VersendungslandPositionCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(nctsWP_VersendungslandPositionCode,String) End If If (nctsWP_BestimmungslandPositionCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(nctsWP_BestimmungslandPositionCode,String) End If If (nctsWP_Rohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(nctsWP_Rohmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (nctsWP_Eigenmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(nctsWP_Eigenmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (nctsWP_VorpapierTyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(nctsWP_VorpapierTyp,String) End If If (nctsWP_VorpapierReferenz1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(nctsWP_VorpapierReferenz1,String) End If If (nctsWP_VorpapierZusatz1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(nctsWP_VorpapierZusatz1,String) End If If (nctsWP_VorpapierReferenz2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(nctsWP_VorpapierReferenz2,String) End If If (nctsWP_VorpapierZusatz2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(nctsWP_VorpapierZusatz2,String) End If If (nctsWP_VorpapierReferenz3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(nctsWP_VorpapierReferenz3,String) End If If (nctsWP_VorpapierZusatz3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(nctsWP_VorpapierZusatz3,String) End If If (nctsWP_VorpapierReferenz4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(nctsWP_VorpapierReferenz4,String) End If If (nctsWP_VorpapierZusatz4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(nctsWP_VorpapierZusatz4,String) End If If (nctsWP_VorpapierReferenz5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(nctsWP_VorpapierReferenz5,String) End If If (nctsWP_VorpapierZusatz5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(nctsWP_VorpapierZusatz5,String) End If If (nctsWP_VorpapierReferenz6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(nctsWP_VorpapierReferenz6,String) End If If (nctsWP_VorpapierZusatz6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(nctsWP_VorpapierZusatz6,String) End If If (nctsWP_VorpapierReferenz7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(nctsWP_VorpapierReferenz7,String) End If If (nctsWP_VorpapierZusatz7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(nctsWP_VorpapierZusatz7,String) End If If (nctsWP_VorpapierReferenz8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(nctsWP_VorpapierReferenz8,String) End If If (nctsWP_VorpapierZusatz8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(nctsWP_VorpapierZusatz8,String) End If If (nctsWP_VorpapierReferenz9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(nctsWP_VorpapierReferenz9,String) End If If (nctsWP_VorpapierZusatz9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(nctsWP_VorpapierZusatz9,String) End If If (nctsWP_BesondereVermeke_ExportAusEU Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(nctsWP_BesondereVermeke_ExportAusEU,String) End If If (nctsWP_BesondereVermeke_ExportAusLand Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(nctsWP_BesondereVermeke_ExportAusLand,String) End If If (nctsWP_BesondereVermeke_Export Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(nctsWP_BesondereVermeke_Export,String) End If If (nctsWP_BesondereVermeke_ExportBeschraenkung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(nctsWP_BesondereVermeke_ExportBeschraenkung,String) End If If (nctsWP_BesondereVermeke_ExportAbgaben Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(nctsWP_BesondereVermeke_ExportAbgaben,String) End If If (nctsWP_BesondereVermeke_Vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(nctsWP_BesondereVermeke_Vermerk,String) End If If (nctsWP_BesondereVermeke_Kz10600 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(nctsWP_BesondereVermeke_Kz10600,String) End If If (nctsWP_Versender_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(nctsWP_Versender_EORI,String) End If If (nctsWP_Versender_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(nctsWP_Versender_NLNR,String) End If If (nctsWP_Versender_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(nctsWP_Versender_TIN,String) End If If (nctsWP_Versender_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(nctsWP_Versender_Name,String) End If If (nctsWP_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(nctsWP_Versender_StrasseHausnummer,String) End If If (nctsWP_Versender_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(nctsWP_Versender_Ort,String) End If If (nctsWP_Versender_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(nctsWP_Versender_PLZ,String) End If If (nctsWP_Versender_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(nctsWP_Versender_Land,String) End If If (nctsWP_Empfaenger_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(nctsWP_Empfaenger_EORI,String) End If If (nctsWP_Empfaenger_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(nctsWP_Empfaenger_NLNR,String) End If If (nctsWP_Empfaenger_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(nctsWP_Empfaenger_TIN,String) End If If (nctsWP_Empfaenger_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(nctsWP_Empfaenger_Name,String) End If If (nctsWP_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(nctsWP_Empfaenger_StrasseHausnummer,String) End If If (nctsWP_Empfaenger_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(nctsWP_Empfaenger_Ort,String) End If If (nctsWP_Empfaenger_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(nctsWP_Empfaenger_PLZ,String) End If If (nctsWP_Empfaenger_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(nctsWP_Empfaenger_Land,String) End If If (nctsWP_SumAKennnummerSendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(nctsWP_SumAKennnummerSendung,String) End If If (nctsWP_SumABefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(nctsWP_SumABefoerderungskostenZahlungsweise,String) End If If (nctsWP_SumAUNGefahrgutnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(nctsWP_SumAUNGefahrgutnummer,String) End If If (nctsWP_SumAVersender_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(nctsWP_SumAVersender_EORI,String) End If If (nctsWP_SumAVersender_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(nctsWP_SumAVersender_NLNR,String) End If If (nctsWP_SumAVersender_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(nctsWP_SumAVersender_TIN,String) End If If (nctsWP_SumAVersender_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(nctsWP_SumAVersender_Name,String) End If If (nctsWP_SumAVersender_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(nctsWP_SumAVersender_StrasseHausnummer,String) End If If (nctsWP_SumAVersender_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(nctsWP_SumAVersender_Ort,String) End If If (nctsWP_SumAVersender_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(nctsWP_SumAVersender_PLZ,String) End If If (nctsWP_SumAVersender_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(nctsWP_SumAVersender_Land,String) End If If (nctsWP_SumAEmpfaenger_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(nctsWP_SumAEmpfaenger_EORI,String) End If If (nctsWP_SumAEmpfaenger_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(nctsWP_SumAEmpfaenger_NLNR,String) End If If (nctsWP_SumAEmpfaenger_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(nctsWP_SumAEmpfaenger_TIN,String) End If If (nctsWP_SumAEmpfaenger_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(nctsWP_SumAEmpfaenger_Name,String) End If If (nctsWP_SumAEmpfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(nctsWP_SumAEmpfaenger_StrasseHausnummer,String) End If If (nctsWP_SumAEmpfaenger_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(nctsWP_SumAEmpfaenger_Ort,String) End If If (nctsWP_SumAEmpfaenger_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(nctsWP_SumAEmpfaenger_PLZ,String) End If If (nctsWP_SumAEmpfaenger_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(nctsWP_SumAEmpfaenger_Land,String) End If If (nctsWP_KdRefNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(nctsWP_KdRefNr,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 nctsWP_NctsId As Integer, _ ByVal nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Warennummer As String, _ ByVal nctsWP_ArtAnmeldungPositionCode As String, _ ByVal nctsWP_Warenbezeichnung As String, _ ByVal nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_WarenwertWaehrung As String, _ ByVal nctsWP_SchaetzKz As String, _ ByVal nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VersendungslandPositionCode As String, _ ByVal nctsWP_BestimmungslandPositionCode As String, _ ByVal nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VorpapierTyp As String, _ ByVal nctsWP_VorpapierReferenz1 As String, _ ByVal nctsWP_VorpapierZusatz1 As String, _ ByVal nctsWP_VorpapierReferenz2 As String, _ ByVal nctsWP_VorpapierZusatz2 As String, _ ByVal nctsWP_VorpapierReferenz3 As String, _ ByVal nctsWP_VorpapierZusatz3 As String, _ ByVal nctsWP_VorpapierReferenz4 As String, _ ByVal nctsWP_VorpapierZusatz4 As String, _ ByVal nctsWP_VorpapierReferenz5 As String, _ ByVal nctsWP_VorpapierZusatz5 As String, _ ByVal nctsWP_VorpapierReferenz6 As String, _ ByVal nctsWP_VorpapierZusatz6 As String, _ ByVal nctsWP_VorpapierReferenz7 As String, _ ByVal nctsWP_VorpapierZusatz7 As String, _ ByVal nctsWP_VorpapierReferenz8 As String, _ ByVal nctsWP_VorpapierZusatz8 As String, _ ByVal nctsWP_VorpapierReferenz9 As String, _ ByVal nctsWP_VorpapierZusatz9 As String, _ ByVal nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal nctsWP_BesondereVermeke_Export As String, _ ByVal nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal nctsWP_BesondereVermeke_Vermerk As String, _ ByVal nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal nctsWP_Versender_EORI As String, _ ByVal nctsWP_Versender_NLNR As String, _ ByVal nctsWP_Versender_TIN As String, _ ByVal nctsWP_Versender_Name As String, _ ByVal nctsWP_Versender_StrasseHausnummer As String, _ ByVal nctsWP_Versender_Ort As String, _ ByVal nctsWP_Versender_PLZ As String, _ ByVal nctsWP_Versender_Land As String, _ ByVal nctsWP_Empfaenger_EORI As String, _ ByVal nctsWP_Empfaenger_NLNR As String, _ ByVal nctsWP_Empfaenger_TIN As String, _ ByVal nctsWP_Empfaenger_Name As String, _ ByVal nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal nctsWP_Empfaenger_Ort As String, _ ByVal nctsWP_Empfaenger_PLZ As String, _ ByVal nctsWP_Empfaenger_Land As String, _ ByVal nctsWP_SumAKennnummerSendung As String, _ ByVal nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal nctsWP_SumAUNGefahrgutnummer As String, _ ByVal nctsWP_SumAVersender_EORI As String, _ ByVal nctsWP_SumAVersender_NLNR As String, _ ByVal nctsWP_SumAVersender_TIN As String, _ ByVal nctsWP_SumAVersender_Name As String, _ ByVal nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal nctsWP_SumAVersender_Ort As String, _ ByVal nctsWP_SumAVersender_PLZ As String, _ ByVal nctsWP_SumAVersender_Land As String, _ ByVal nctsWP_SumAEmpfaenger_EORI As String, _ ByVal nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal nctsWP_SumAEmpfaenger_TIN As String, _ ByVal nctsWP_SumAEmpfaenger_Name As String, _ ByVal nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal nctsWP_SumAEmpfaenger_Ort As String, _ ByVal nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal nctsWP_SumAEmpfaenger_Land As String, _ ByVal nctsWP_KdRefNr As String, _ ByVal Original_nctsWP_Id As Integer, _ ByVal Original_nctsWP_NctsId As Integer, _ ByVal Original_nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Warennummer As String, _ ByVal Original_nctsWP_ArtAnmeldungPositionCode As String, _ ByVal Original_nctsWP_Warenbezeichnung As String, _ ByVal Original_nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_WarenwertWaehrung As String, _ ByVal Original_nctsWP_SchaetzKz As String, _ ByVal Original_nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VersendungslandPositionCode As String, _ ByVal Original_nctsWP_BestimmungslandPositionCode As String, _ ByVal Original_nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VorpapierTyp As String, _ ByVal Original_nctsWP_VorpapierReferenz1 As String, _ ByVal Original_nctsWP_VorpapierZusatz1 As String, _ ByVal Original_nctsWP_VorpapierReferenz2 As String, _ ByVal Original_nctsWP_VorpapierZusatz2 As String, _ ByVal Original_nctsWP_VorpapierReferenz3 As String, _ ByVal Original_nctsWP_VorpapierZusatz3 As String, _ ByVal Original_nctsWP_VorpapierReferenz4 As String, _ ByVal Original_nctsWP_VorpapierZusatz4 As String, _ ByVal Original_nctsWP_VorpapierReferenz5 As String, _ ByVal Original_nctsWP_VorpapierZusatz5 As String, _ ByVal Original_nctsWP_VorpapierReferenz6 As String, _ ByVal Original_nctsWP_VorpapierZusatz6 As String, _ ByVal Original_nctsWP_VorpapierReferenz7 As String, _ ByVal Original_nctsWP_VorpapierZusatz7 As String, _ ByVal Original_nctsWP_VorpapierReferenz8 As String, _ ByVal Original_nctsWP_VorpapierZusatz8 As String, _ ByVal Original_nctsWP_VorpapierReferenz9 As String, _ ByVal Original_nctsWP_VorpapierZusatz9 As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal Original_nctsWP_BesondereVermeke_Export As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal Original_nctsWP_BesondereVermeke_Vermerk As String, _ ByVal Original_nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal Original_nctsWP_Versender_EORI As String, _ ByVal Original_nctsWP_Versender_NLNR As String, _ ByVal Original_nctsWP_Versender_TIN As String, _ ByVal Original_nctsWP_Versender_Name As String, _ ByVal Original_nctsWP_Versender_StrasseHausnummer As String, _ ByVal Original_nctsWP_Versender_Ort As String, _ ByVal Original_nctsWP_Versender_PLZ As String, _ ByVal Original_nctsWP_Versender_Land As String, _ ByVal Original_nctsWP_Empfaenger_EORI As String, _ ByVal Original_nctsWP_Empfaenger_NLNR As String, _ ByVal Original_nctsWP_Empfaenger_TIN As String, _ ByVal Original_nctsWP_Empfaenger_Name As String, _ ByVal Original_nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_Empfaenger_Ort As String, _ ByVal Original_nctsWP_Empfaenger_PLZ As String, _ ByVal Original_nctsWP_Empfaenger_Land As String, _ ByVal Original_nctsWP_SumAKennnummerSendung As String, _ ByVal Original_nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal Original_nctsWP_SumAUNGefahrgutnummer As String, _ ByVal Original_nctsWP_SumAVersender_EORI As String, _ ByVal Original_nctsWP_SumAVersender_NLNR As String, _ ByVal Original_nctsWP_SumAVersender_TIN As String, _ ByVal Original_nctsWP_SumAVersender_Name As String, _ ByVal Original_nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAVersender_Ort As String, _ ByVal Original_nctsWP_SumAVersender_PLZ As String, _ ByVal Original_nctsWP_SumAVersender_Land As String, _ ByVal Original_nctsWP_SumAEmpfaenger_EORI As String, _ ByVal Original_nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal Original_nctsWP_SumAEmpfaenger_TIN As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Name As String, _ ByVal Original_nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Ort As String, _ ByVal Original_nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Land As String, _ ByVal Original_nctsWP_KdRefNr As String, _ ByVal nctsWP_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsWP_NctsId,Integer) If (nctsWP_PositionsNummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsWP_PositionsNummer.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (nctsWP_Warennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsWP_Warennummer,String) End If If (nctsWP_ArtAnmeldungPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsWP_ArtAnmeldungPositionCode,String) End If If (nctsWP_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsWP_Warenbezeichnung,String) End If If (nctsWP_Warenwert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsWP_Warenwert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (nctsWP_WarenwertWaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nctsWP_WarenwertWaehrung,String) End If If (nctsWP_SchaetzKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(nctsWP_SchaetzKz,String) End If If (nctsWP_WarenwertProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(nctsWP_WarenwertProzent.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (nctsWP_VersendungslandPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(nctsWP_VersendungslandPositionCode,String) End If If (nctsWP_BestimmungslandPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(nctsWP_BestimmungslandPositionCode,String) End If If (nctsWP_Rohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(nctsWP_Rohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (nctsWP_Eigenmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(nctsWP_Eigenmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (nctsWP_VorpapierTyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(nctsWP_VorpapierTyp,String) End If If (nctsWP_VorpapierReferenz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(nctsWP_VorpapierReferenz1,String) End If If (nctsWP_VorpapierZusatz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(nctsWP_VorpapierZusatz1,String) End If If (nctsWP_VorpapierReferenz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(nctsWP_VorpapierReferenz2,String) End If If (nctsWP_VorpapierZusatz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(nctsWP_VorpapierZusatz2,String) End If If (nctsWP_VorpapierReferenz3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(nctsWP_VorpapierReferenz3,String) End If If (nctsWP_VorpapierZusatz3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(nctsWP_VorpapierZusatz3,String) End If If (nctsWP_VorpapierReferenz4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(nctsWP_VorpapierReferenz4,String) End If If (nctsWP_VorpapierZusatz4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(nctsWP_VorpapierZusatz4,String) End If If (nctsWP_VorpapierReferenz5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(nctsWP_VorpapierReferenz5,String) End If If (nctsWP_VorpapierZusatz5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(nctsWP_VorpapierZusatz5,String) End If If (nctsWP_VorpapierReferenz6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(nctsWP_VorpapierReferenz6,String) End If If (nctsWP_VorpapierZusatz6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(nctsWP_VorpapierZusatz6,String) End If If (nctsWP_VorpapierReferenz7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(nctsWP_VorpapierReferenz7,String) End If If (nctsWP_VorpapierZusatz7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(nctsWP_VorpapierZusatz7,String) End If If (nctsWP_VorpapierReferenz8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(nctsWP_VorpapierReferenz8,String) End If If (nctsWP_VorpapierZusatz8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(nctsWP_VorpapierZusatz8,String) End If If (nctsWP_VorpapierReferenz9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(nctsWP_VorpapierReferenz9,String) End If If (nctsWP_VorpapierZusatz9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(nctsWP_VorpapierZusatz9,String) End If If (nctsWP_BesondereVermeke_ExportAusEU Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(nctsWP_BesondereVermeke_ExportAusEU,String) End If If (nctsWP_BesondereVermeke_ExportAusLand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(nctsWP_BesondereVermeke_ExportAusLand,String) End If If (nctsWP_BesondereVermeke_Export Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(nctsWP_BesondereVermeke_Export,String) End If If (nctsWP_BesondereVermeke_ExportBeschraenkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(nctsWP_BesondereVermeke_ExportBeschraenkung,String) End If If (nctsWP_BesondereVermeke_ExportAbgaben Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(nctsWP_BesondereVermeke_ExportAbgaben,String) End If If (nctsWP_BesondereVermeke_Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(nctsWP_BesondereVermeke_Vermerk,String) End If If (nctsWP_BesondereVermeke_Kz10600 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(nctsWP_BesondereVermeke_Kz10600,String) End If If (nctsWP_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(nctsWP_Versender_EORI,String) End If If (nctsWP_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(nctsWP_Versender_NLNR,String) End If If (nctsWP_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(nctsWP_Versender_TIN,String) End If If (nctsWP_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(nctsWP_Versender_Name,String) End If If (nctsWP_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(nctsWP_Versender_StrasseHausnummer,String) End If If (nctsWP_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(nctsWP_Versender_Ort,String) End If If (nctsWP_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(nctsWP_Versender_PLZ,String) End If If (nctsWP_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(nctsWP_Versender_Land,String) End If If (nctsWP_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(nctsWP_Empfaenger_EORI,String) End If If (nctsWP_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(nctsWP_Empfaenger_NLNR,String) End If If (nctsWP_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(nctsWP_Empfaenger_TIN,String) End If If (nctsWP_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(nctsWP_Empfaenger_Name,String) End If If (nctsWP_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(nctsWP_Empfaenger_StrasseHausnummer,String) End If If (nctsWP_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(nctsWP_Empfaenger_Ort,String) End If If (nctsWP_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(nctsWP_Empfaenger_PLZ,String) End If If (nctsWP_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(nctsWP_Empfaenger_Land,String) End If If (nctsWP_SumAKennnummerSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(nctsWP_SumAKennnummerSendung,String) End If If (nctsWP_SumABefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(nctsWP_SumABefoerderungskostenZahlungsweise,String) End If If (nctsWP_SumAUNGefahrgutnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(nctsWP_SumAUNGefahrgutnummer,String) End If If (nctsWP_SumAVersender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(nctsWP_SumAVersender_EORI,String) End If If (nctsWP_SumAVersender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(nctsWP_SumAVersender_NLNR,String) End If If (nctsWP_SumAVersender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(nctsWP_SumAVersender_TIN,String) End If If (nctsWP_SumAVersender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(nctsWP_SumAVersender_Name,String) End If If (nctsWP_SumAVersender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(nctsWP_SumAVersender_StrasseHausnummer,String) End If If (nctsWP_SumAVersender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(nctsWP_SumAVersender_Ort,String) End If If (nctsWP_SumAVersender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(nctsWP_SumAVersender_PLZ,String) End If If (nctsWP_SumAVersender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(nctsWP_SumAVersender_Land,String) End If If (nctsWP_SumAEmpfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(nctsWP_SumAEmpfaenger_EORI,String) End If If (nctsWP_SumAEmpfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(nctsWP_SumAEmpfaenger_NLNR,String) End If If (nctsWP_SumAEmpfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(nctsWP_SumAEmpfaenger_TIN,String) End If If (nctsWP_SumAEmpfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(nctsWP_SumAEmpfaenger_Name,String) End If If (nctsWP_SumAEmpfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(nctsWP_SumAEmpfaenger_StrasseHausnummer,String) End If If (nctsWP_SumAEmpfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(nctsWP_SumAEmpfaenger_Ort,String) End If If (nctsWP_SumAEmpfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(nctsWP_SumAEmpfaenger_PLZ,String) End If If (nctsWP_SumAEmpfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(nctsWP_SumAEmpfaenger_Land,String) End If If (nctsWP_KdRefNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(nctsWP_KdRefNr,String) End If Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_nctsWP_Id,Integer) Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_nctsWP_NctsId,Integer) If (Original_nctsWP_PositionsNummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_nctsWP_PositionsNummer.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (Original_nctsWP_Warennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_nctsWP_Warennummer,String) End If If (Original_nctsWP_ArtAnmeldungPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_nctsWP_ArtAnmeldungPositionCode,String) End If If (Original_nctsWP_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Original_nctsWP_Warenbezeichnung,String) End If If (Original_nctsWP_Warenwert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Original_nctsWP_Warenwert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value End If If (Original_nctsWP_WarenwertWaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(88).Value = CType(Original_nctsWP_WarenwertWaehrung,String) End If If (Original_nctsWP_SchaetzKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_nctsWP_SchaetzKz,String) End If If (Original_nctsWP_WarenwertProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_nctsWP_WarenwertProzent.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value End If If (Original_nctsWP_VersendungslandPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_nctsWP_VersendungslandPositionCode,String) End If If (Original_nctsWP_BestimmungslandPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(96).Value = CType(Original_nctsWP_BestimmungslandPositionCode,String) End If If (Original_nctsWP_Rohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = CType(Original_nctsWP_Rohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value End If If (Original_nctsWP_Eigenmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = CType(Original_nctsWP_Eigenmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value End If If (Original_nctsWP_VorpapierTyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = CType(Original_nctsWP_VorpapierTyp,String) End If If (Original_nctsWP_VorpapierReferenz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = CType(Original_nctsWP_VorpapierReferenz1,String) End If If (Original_nctsWP_VorpapierZusatz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = CType(Original_nctsWP_VorpapierZusatz1,String) End If If (Original_nctsWP_VorpapierReferenz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = CType(Original_nctsWP_VorpapierReferenz2,String) End If If (Original_nctsWP_VorpapierZusatz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = CType(Original_nctsWP_VorpapierZusatz2,String) End If If (Original_nctsWP_VorpapierReferenz3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = CType(Original_nctsWP_VorpapierReferenz3,String) End If If (Original_nctsWP_VorpapierZusatz3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = CType(Original_nctsWP_VorpapierZusatz3,String) End If If (Original_nctsWP_VorpapierReferenz4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = CType(Original_nctsWP_VorpapierReferenz4,String) End If If (Original_nctsWP_VorpapierZusatz4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = CType(Original_nctsWP_VorpapierZusatz4,String) End If If (Original_nctsWP_VorpapierReferenz5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = CType(Original_nctsWP_VorpapierReferenz5,String) End If If (Original_nctsWP_VorpapierZusatz5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = CType(Original_nctsWP_VorpapierZusatz5,String) End If If (Original_nctsWP_VorpapierReferenz6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(124).Value = CType(Original_nctsWP_VorpapierReferenz6,String) End If If (Original_nctsWP_VorpapierZusatz6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(126).Value = CType(Original_nctsWP_VorpapierZusatz6,String) End If If (Original_nctsWP_VorpapierReferenz7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(128).Value = CType(Original_nctsWP_VorpapierReferenz7,String) End If If (Original_nctsWP_VorpapierZusatz7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(130).Value = CType(Original_nctsWP_VorpapierZusatz7,String) End If If (Original_nctsWP_VorpapierReferenz8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(132).Value = CType(Original_nctsWP_VorpapierReferenz8,String) End If If (Original_nctsWP_VorpapierZusatz8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(134).Value = CType(Original_nctsWP_VorpapierZusatz8,String) End If If (Original_nctsWP_VorpapierReferenz9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(136).Value = CType(Original_nctsWP_VorpapierReferenz9,String) End If If (Original_nctsWP_VorpapierZusatz9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(138).Value = CType(Original_nctsWP_VorpapierZusatz9,String) End If If (Original_nctsWP_BesondereVermeke_ExportAusEU Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = CType(Original_nctsWP_BesondereVermeke_ExportAusEU,String) End If If (Original_nctsWP_BesondereVermeke_ExportAusLand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = CType(Original_nctsWP_BesondereVermeke_ExportAusLand,String) End If If (Original_nctsWP_BesondereVermeke_Export Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = CType(Original_nctsWP_BesondereVermeke_Export,String) End If If (Original_nctsWP_BesondereVermeke_ExportBeschraenkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = CType(Original_nctsWP_BesondereVermeke_ExportBeschraenkung,String) End If If (Original_nctsWP_BesondereVermeke_ExportAbgaben Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = CType(Original_nctsWP_BesondereVermeke_ExportAbgaben,String) End If If (Original_nctsWP_BesondereVermeke_Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = CType(Original_nctsWP_BesondereVermeke_Vermerk,String) End If If (Original_nctsWP_BesondereVermeke_Kz10600 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = CType(Original_nctsWP_BesondereVermeke_Kz10600,String) End If If (Original_nctsWP_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = CType(Original_nctsWP_Versender_EORI,String) End If If (Original_nctsWP_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = CType(Original_nctsWP_Versender_NLNR,String) End If If (Original_nctsWP_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = CType(Original_nctsWP_Versender_TIN,String) End If If (Original_nctsWP_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(159).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(159).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(160).Value = CType(Original_nctsWP_Versender_Name,String) End If If (Original_nctsWP_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = CType(Original_nctsWP_Versender_StrasseHausnummer,String) End If If (Original_nctsWP_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = CType(Original_nctsWP_Versender_Ort,String) End If If (Original_nctsWP_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = CType(Original_nctsWP_Versender_PLZ,String) End If If (Original_nctsWP_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = CType(Original_nctsWP_Versender_Land,String) End If If (Original_nctsWP_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = CType(Original_nctsWP_Empfaenger_EORI,String) End If If (Original_nctsWP_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = CType(Original_nctsWP_Empfaenger_NLNR,String) End If If (Original_nctsWP_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_nctsWP_Empfaenger_TIN,String) End If If (Original_nctsWP_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_nctsWP_Empfaenger_Name,String) End If If (Original_nctsWP_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = CType(Original_nctsWP_Empfaenger_StrasseHausnummer,String) End If If (Original_nctsWP_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = CType(Original_nctsWP_Empfaenger_Ort,String) End If If (Original_nctsWP_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = CType(Original_nctsWP_Empfaenger_PLZ,String) End If If (Original_nctsWP_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = CType(Original_nctsWP_Empfaenger_Land,String) End If If (Original_nctsWP_SumAKennnummerSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_nctsWP_SumAKennnummerSendung,String) End If If (Original_nctsWP_SumABefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_nctsWP_SumABefoerderungskostenZahlungsweise,String) End If If (Original_nctsWP_SumAUNGefahrgutnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_nctsWP_SumAUNGefahrgutnummer,String) End If If (Original_nctsWP_SumAVersender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_nctsWP_SumAVersender_EORI,String) End If If (Original_nctsWP_SumAVersender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_nctsWP_SumAVersender_NLNR,String) End If If (Original_nctsWP_SumAVersender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_nctsWP_SumAVersender_TIN,String) End If If (Original_nctsWP_SumAVersender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_nctsWP_SumAVersender_Name,String) End If If (Original_nctsWP_SumAVersender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_nctsWP_SumAVersender_StrasseHausnummer,String) End If If (Original_nctsWP_SumAVersender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = CType(Original_nctsWP_SumAVersender_Ort,String) End If If (Original_nctsWP_SumAVersender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = CType(Original_nctsWP_SumAVersender_PLZ,String) End If If (Original_nctsWP_SumAVersender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = CType(Original_nctsWP_SumAVersender_Land,String) End If If (Original_nctsWP_SumAEmpfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = CType(Original_nctsWP_SumAEmpfaenger_EORI,String) End If If (Original_nctsWP_SumAEmpfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = CType(Original_nctsWP_SumAEmpfaenger_NLNR,String) End If If (Original_nctsWP_SumAEmpfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = CType(Original_nctsWP_SumAEmpfaenger_TIN,String) End If If (Original_nctsWP_SumAEmpfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = CType(Original_nctsWP_SumAEmpfaenger_Name,String) End If If (Original_nctsWP_SumAEmpfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = CType(Original_nctsWP_SumAEmpfaenger_StrasseHausnummer,String) End If If (Original_nctsWP_SumAEmpfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = CType(Original_nctsWP_SumAEmpfaenger_Ort,String) End If If (Original_nctsWP_SumAEmpfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = CType(Original_nctsWP_SumAEmpfaenger_PLZ,String) End If If (Original_nctsWP_SumAEmpfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = CType(Original_nctsWP_SumAEmpfaenger_Land,String) End If If (Original_nctsWP_KdRefNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = CType(Original_nctsWP_KdRefNr,String) End If Me.Adapter.UpdateCommand.Parameters(225).Value = CType(nctsWP_Id,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 nctsWP_NctsId As Integer, _ ByVal nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Warennummer As String, _ ByVal nctsWP_ArtAnmeldungPositionCode As String, _ ByVal nctsWP_Warenbezeichnung As String, _ ByVal nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_WarenwertWaehrung As String, _ ByVal nctsWP_SchaetzKz As String, _ ByVal nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VersendungslandPositionCode As String, _ ByVal nctsWP_BestimmungslandPositionCode As String, _ ByVal nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VorpapierTyp As String, _ ByVal nctsWP_VorpapierReferenz1 As String, _ ByVal nctsWP_VorpapierZusatz1 As String, _ ByVal nctsWP_VorpapierReferenz2 As String, _ ByVal nctsWP_VorpapierZusatz2 As String, _ ByVal nctsWP_VorpapierReferenz3 As String, _ ByVal nctsWP_VorpapierZusatz3 As String, _ ByVal nctsWP_VorpapierReferenz4 As String, _ ByVal nctsWP_VorpapierZusatz4 As String, _ ByVal nctsWP_VorpapierReferenz5 As String, _ ByVal nctsWP_VorpapierZusatz5 As String, _ ByVal nctsWP_VorpapierReferenz6 As String, _ ByVal nctsWP_VorpapierZusatz6 As String, _ ByVal nctsWP_VorpapierReferenz7 As String, _ ByVal nctsWP_VorpapierZusatz7 As String, _ ByVal nctsWP_VorpapierReferenz8 As String, _ ByVal nctsWP_VorpapierZusatz8 As String, _ ByVal nctsWP_VorpapierReferenz9 As String, _ ByVal nctsWP_VorpapierZusatz9 As String, _ ByVal nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal nctsWP_BesondereVermeke_Export As String, _ ByVal nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal nctsWP_BesondereVermeke_Vermerk As String, _ ByVal nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal nctsWP_Versender_EORI As String, _ ByVal nctsWP_Versender_NLNR As String, _ ByVal nctsWP_Versender_TIN As String, _ ByVal nctsWP_Versender_Name As String, _ ByVal nctsWP_Versender_StrasseHausnummer As String, _ ByVal nctsWP_Versender_Ort As String, _ ByVal nctsWP_Versender_PLZ As String, _ ByVal nctsWP_Versender_Land As String, _ ByVal nctsWP_Empfaenger_EORI As String, _ ByVal nctsWP_Empfaenger_NLNR As String, _ ByVal nctsWP_Empfaenger_TIN As String, _ ByVal nctsWP_Empfaenger_Name As String, _ ByVal nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal nctsWP_Empfaenger_Ort As String, _ ByVal nctsWP_Empfaenger_PLZ As String, _ ByVal nctsWP_Empfaenger_Land As String, _ ByVal nctsWP_SumAKennnummerSendung As String, _ ByVal nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal nctsWP_SumAUNGefahrgutnummer As String, _ ByVal nctsWP_SumAVersender_EORI As String, _ ByVal nctsWP_SumAVersender_NLNR As String, _ ByVal nctsWP_SumAVersender_TIN As String, _ ByVal nctsWP_SumAVersender_Name As String, _ ByVal nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal nctsWP_SumAVersender_Ort As String, _ ByVal nctsWP_SumAVersender_PLZ As String, _ ByVal nctsWP_SumAVersender_Land As String, _ ByVal nctsWP_SumAEmpfaenger_EORI As String, _ ByVal nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal nctsWP_SumAEmpfaenger_TIN As String, _ ByVal nctsWP_SumAEmpfaenger_Name As String, _ ByVal nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal nctsWP_SumAEmpfaenger_Ort As String, _ ByVal nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal nctsWP_SumAEmpfaenger_Land As String, _ ByVal nctsWP_KdRefNr As String, _ ByVal Original_nctsWP_Id As Integer, _ ByVal Original_nctsWP_NctsId As Integer, _ ByVal Original_nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Warennummer As String, _ ByVal Original_nctsWP_ArtAnmeldungPositionCode As String, _ ByVal Original_nctsWP_Warenbezeichnung As String, _ ByVal Original_nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_WarenwertWaehrung As String, _ ByVal Original_nctsWP_SchaetzKz As String, _ ByVal Original_nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VersendungslandPositionCode As String, _ ByVal Original_nctsWP_BestimmungslandPositionCode As String, _ ByVal Original_nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VorpapierTyp As String, _ ByVal Original_nctsWP_VorpapierReferenz1 As String, _ ByVal Original_nctsWP_VorpapierZusatz1 As String, _ ByVal Original_nctsWP_VorpapierReferenz2 As String, _ ByVal Original_nctsWP_VorpapierZusatz2 As String, _ ByVal Original_nctsWP_VorpapierReferenz3 As String, _ ByVal Original_nctsWP_VorpapierZusatz3 As String, _ ByVal Original_nctsWP_VorpapierReferenz4 As String, _ ByVal Original_nctsWP_VorpapierZusatz4 As String, _ ByVal Original_nctsWP_VorpapierReferenz5 As String, _ ByVal Original_nctsWP_VorpapierZusatz5 As String, _ ByVal Original_nctsWP_VorpapierReferenz6 As String, _ ByVal Original_nctsWP_VorpapierZusatz6 As String, _ ByVal Original_nctsWP_VorpapierReferenz7 As String, _ ByVal Original_nctsWP_VorpapierZusatz7 As String, _ ByVal Original_nctsWP_VorpapierReferenz8 As String, _ ByVal Original_nctsWP_VorpapierZusatz8 As String, _ ByVal Original_nctsWP_VorpapierReferenz9 As String, _ ByVal Original_nctsWP_VorpapierZusatz9 As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal Original_nctsWP_BesondereVermeke_Export As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal Original_nctsWP_BesondereVermeke_Vermerk As String, _ ByVal Original_nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal Original_nctsWP_Versender_EORI As String, _ ByVal Original_nctsWP_Versender_NLNR As String, _ ByVal Original_nctsWP_Versender_TIN As String, _ ByVal Original_nctsWP_Versender_Name As String, _ ByVal Original_nctsWP_Versender_StrasseHausnummer As String, _ ByVal Original_nctsWP_Versender_Ort As String, _ ByVal Original_nctsWP_Versender_PLZ As String, _ ByVal Original_nctsWP_Versender_Land As String, _ ByVal Original_nctsWP_Empfaenger_EORI As String, _ ByVal Original_nctsWP_Empfaenger_NLNR As String, _ ByVal Original_nctsWP_Empfaenger_TIN As String, _ ByVal Original_nctsWP_Empfaenger_Name As String, _ ByVal Original_nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_Empfaenger_Ort As String, _ ByVal Original_nctsWP_Empfaenger_PLZ As String, _ ByVal Original_nctsWP_Empfaenger_Land As String, _ ByVal Original_nctsWP_SumAKennnummerSendung As String, _ ByVal Original_nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal Original_nctsWP_SumAUNGefahrgutnummer As String, _ ByVal Original_nctsWP_SumAVersender_EORI As String, _ ByVal Original_nctsWP_SumAVersender_NLNR As String, _ ByVal Original_nctsWP_SumAVersender_TIN As String, _ ByVal Original_nctsWP_SumAVersender_Name As String, _ ByVal Original_nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAVersender_Ort As String, _ ByVal Original_nctsWP_SumAVersender_PLZ As String, _ ByVal Original_nctsWP_SumAVersender_Land As String, _ ByVal Original_nctsWP_SumAEmpfaenger_EORI As String, _ ByVal Original_nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal Original_nctsWP_SumAEmpfaenger_TIN As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Name As String, _ ByVal Original_nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Ort As String, _ ByVal Original_nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Land As String, _ ByVal Original_nctsWP_KdRefNr As String) As Integer Return Me.Update(nctsWP_NctsId, nctsWP_PositionsNummer, nctsWP_Warennummer, nctsWP_ArtAnmeldungPositionCode, nctsWP_Warenbezeichnung, nctsWP_Warenwert, nctsWP_WarenwertWaehrung, nctsWP_SchaetzKz, nctsWP_WarenwertProzent, nctsWP_VersendungslandPositionCode, nctsWP_BestimmungslandPositionCode, nctsWP_Rohmasse, nctsWP_Eigenmasse, nctsWP_VorpapierTyp, nctsWP_VorpapierReferenz1, nctsWP_VorpapierZusatz1, nctsWP_VorpapierReferenz2, nctsWP_VorpapierZusatz2, nctsWP_VorpapierReferenz3, nctsWP_VorpapierZusatz3, nctsWP_VorpapierReferenz4, nctsWP_VorpapierZusatz4, nctsWP_VorpapierReferenz5, nctsWP_VorpapierZusatz5, nctsWP_VorpapierReferenz6, nctsWP_VorpapierZusatz6, nctsWP_VorpapierReferenz7, nctsWP_VorpapierZusatz7, nctsWP_VorpapierReferenz8, nctsWP_VorpapierZusatz8, nctsWP_VorpapierReferenz9, nctsWP_VorpapierZusatz9, nctsWP_BesondereVermeke_ExportAusEU, nctsWP_BesondereVermeke_ExportAusLand, nctsWP_BesondereVermeke_Export, nctsWP_BesondereVermeke_ExportBeschraenkung, nctsWP_BesondereVermeke_ExportAbgaben, nctsWP_BesondereVermeke_Vermerk, nctsWP_BesondereVermeke_Kz10600, nctsWP_Versender_EORI, nctsWP_Versender_NLNR, nctsWP_Versender_TIN, nctsWP_Versender_Name, nctsWP_Versender_StrasseHausnummer, nctsWP_Versender_Ort, nctsWP_Versender_PLZ, nctsWP_Versender_Land, nctsWP_Empfaenger_EORI, nctsWP_Empfaenger_NLNR, nctsWP_Empfaenger_TIN, nctsWP_Empfaenger_Name, nctsWP_Empfaenger_StrasseHausnummer, nctsWP_Empfaenger_Ort, nctsWP_Empfaenger_PLZ, nctsWP_Empfaenger_Land, nctsWP_SumAKennnummerSendung, nctsWP_SumABefoerderungskostenZahlungsweise, nctsWP_SumAUNGefahrgutnummer, nctsWP_SumAVersender_EORI, nctsWP_SumAVersender_NLNR, nctsWP_SumAVersender_TIN, nctsWP_SumAVersender_Name, nctsWP_SumAVersender_StrasseHausnummer, nctsWP_SumAVersender_Ort, nctsWP_SumAVersender_PLZ, nctsWP_SumAVersender_Land, nctsWP_SumAEmpfaenger_EORI, nctsWP_SumAEmpfaenger_NLNR, nctsWP_SumAEmpfaenger_TIN, nctsWP_SumAEmpfaenger_Name, nctsWP_SumAEmpfaenger_StrasseHausnummer, nctsWP_SumAEmpfaenger_Ort, nctsWP_SumAEmpfaenger_PLZ, nctsWP_SumAEmpfaenger_Land, nctsWP_KdRefNr, Original_nctsWP_Id, Original_nctsWP_NctsId, Original_nctsWP_PositionsNummer, Original_nctsWP_Warennummer, Original_nctsWP_ArtAnmeldungPositionCode, Original_nctsWP_Warenbezeichnung, Original_nctsWP_Warenwert, Original_nctsWP_WarenwertWaehrung, Original_nctsWP_SchaetzKz, Original_nctsWP_WarenwertProzent, Original_nctsWP_VersendungslandPositionCode, Original_nctsWP_BestimmungslandPositionCode, Original_nctsWP_Rohmasse, Original_nctsWP_Eigenmasse, Original_nctsWP_VorpapierTyp, Original_nctsWP_VorpapierReferenz1, Original_nctsWP_VorpapierZusatz1, Original_nctsWP_VorpapierReferenz2, Original_nctsWP_VorpapierZusatz2, Original_nctsWP_VorpapierReferenz3, Original_nctsWP_VorpapierZusatz3, Original_nctsWP_VorpapierReferenz4, Original_nctsWP_VorpapierZusatz4, Original_nctsWP_VorpapierReferenz5, Original_nctsWP_VorpapierZusatz5, Original_nctsWP_VorpapierReferenz6, Original_nctsWP_VorpapierZusatz6, Original_nctsWP_VorpapierReferenz7, Original_nctsWP_VorpapierZusatz7, Original_nctsWP_VorpapierReferenz8, Original_nctsWP_VorpapierZusatz8, Original_nctsWP_VorpapierReferenz9, Original_nctsWP_VorpapierZusatz9, Original_nctsWP_BesondereVermeke_ExportAusEU, Original_nctsWP_BesondereVermeke_ExportAusLand, Original_nctsWP_BesondereVermeke_Export, Original_nctsWP_BesondereVermeke_ExportBeschraenkung, Original_nctsWP_BesondereVermeke_ExportAbgaben, Original_nctsWP_BesondereVermeke_Vermerk, Original_nctsWP_BesondereVermeke_Kz10600, Original_nctsWP_Versender_EORI, Original_nctsWP_Versender_NLNR, Original_nctsWP_Versender_TIN, Original_nctsWP_Versender_Name, Original_nctsWP_Versender_StrasseHausnummer, Original_nctsWP_Versender_Ort, Original_nctsWP_Versender_PLZ, Original_nctsWP_Versender_Land, Original_nctsWP_Empfaenger_EORI, Original_nctsWP_Empfaenger_NLNR, Original_nctsWP_Empfaenger_TIN, Original_nctsWP_Empfaenger_Name, Original_nctsWP_Empfaenger_StrasseHausnummer, Original_nctsWP_Empfaenger_Ort, Original_nctsWP_Empfaenger_PLZ, Original_nctsWP_Empfaenger_Land, Original_nctsWP_SumAKennnummerSendung, Original_nctsWP_SumABefoerderungskostenZahlungsweise, Original_nctsWP_SumAUNGefahrgutnummer, Original_nctsWP_SumAVersender_EORI, Original_nctsWP_SumAVersender_NLNR, Original_nctsWP_SumAVersender_TIN, Original_nctsWP_SumAVersender_Name, Original_nctsWP_SumAVersender_StrasseHausnummer, Original_nctsWP_SumAVersender_Ort, Original_nctsWP_SumAVersender_PLZ, Original_nctsWP_SumAVersender_Land, Original_nctsWP_SumAEmpfaenger_EORI, Original_nctsWP_SumAEmpfaenger_NLNR, Original_nctsWP_SumAEmpfaenger_TIN, Original_nctsWP_SumAEmpfaenger_Name, Original_nctsWP_SumAEmpfaenger_StrasseHausnummer, Original_nctsWP_SumAEmpfaenger_Ort, Original_nctsWP_SumAEmpfaenger_PLZ, Original_nctsWP_SumAEmpfaenger_Land, Original_nctsWP_KdRefNr, Original_nctsWP_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter 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 = "tblDakosy_NCTSOut_WarenpositionPackstuecke" tableMapping.ColumnMappings.Add("nctsWpPk_Id", "nctsWpPk_Id") tableMapping.ColumnMappings.Add("nctsWpPk_nctsWPId", "nctsWpPk_nctsWPId") tableMapping.ColumnMappings.Add("nctsWpPk_NctsId", "nctsWpPk_NctsId") tableMapping.ColumnMappings.Add("nctsWpPk_PackstueckeAnzahl", "nctsWpPk_PackstueckeAnzahl") tableMapping.ColumnMappings.Add("nctsWpPk_Verpackungsart", "nctsWpPk_Verpackungsart") tableMapping.ColumnMappings.Add("nctsWpPk_ZeichenNummern", "nctsWpPk_ZeichenNummern") 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].[tblDakosy_NCTSOut_WarenpositionPackstuecke] WHERE (([nctsWpPk_"& _ "Id] = @Original_nctsWpPk_Id) AND ([nctsWpPk_nctsWPId] = @Original_nctsWpPk_nctsW"& _ "PId) AND ([nctsWpPk_NctsId] = @Original_nctsWpPk_NctsId) AND ((@IsNull_nctsWpPk_"& _ "PackstueckeAnzahl = 1 AND [nctsWpPk_PackstueckeAnzahl] IS NULL) OR ([nctsWpPk_Pa"& _ "ckstueckeAnzahl] = @Original_nctsWpPk_PackstueckeAnzahl)) AND ((@IsNull_nctsWpPk"& _ "_Verpackungsart = 1 AND [nctsWpPk_Verpackungsart] IS NULL) OR ([nctsWpPk_Verpack"& _ "ungsart] = @Original_nctsWpPk_Verpackungsart)) AND ((@IsNull_nctsWpPk_ZeichenNum"& _ "mern = 1 AND [nctsWpPk_ZeichenNummern] IS NULL) OR ([nctsWpPk_ZeichenNummern] = "& _ "@Original_nctsWpPk_ZeichenNummern)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_nctsWPId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", 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].[tblDakosy_NCTSOut_WarenpositionPackstuecke] ([nctsWpPk_nctsWPI"& _ "d], [nctsWpPk_NctsId], [nctsWpPk_PackstueckeAnzahl], [nctsWpPk_Verpackungsart], "& _ "[nctsWpPk_ZeichenNummern]) VALUES (@nctsWpPk_nctsWPId, @nctsWpPk_NctsId, @nctsWp"& _ "Pk_PackstueckeAnzahl, @nctsWpPk_Verpackungsart, @nctsWpPk_ZeichenNummern);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ "CT nctsWpPk_Id, nctsWpPk_nctsWPId, nctsWpPk_NctsId, nctsWpPk_PackstueckeAnzahl, "& _ "nctsWpPk_Verpackungsart, nctsWpPk_ZeichenNummern FROM tblDakosy_NCTSOut_Warenpos"& _ "itionPackstuecke WHERE (nctsWpPk_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_nctsWPId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", 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].[tblDakosy_NCTSOut_WarenpositionPackstuecke] SET [nctsWpPk_nctsWPId]"& _ " = @nctsWpPk_nctsWPId, [nctsWpPk_NctsId] = @nctsWpPk_NctsId, [nctsWpPk_Packstuec"& _ "keAnzahl] = @nctsWpPk_PackstueckeAnzahl, [nctsWpPk_Verpackungsart] = @nctsWpPk_V"& _ "erpackungsart, [nctsWpPk_ZeichenNummern] = @nctsWpPk_ZeichenNummern WHERE (([nct"& _ "sWpPk_Id] = @Original_nctsWpPk_Id) AND ([nctsWpPk_nctsWPId] = @Original_nctsWpPk"& _ "_nctsWPId) AND ([nctsWpPk_NctsId] = @Original_nctsWpPk_NctsId) AND ((@IsNull_nct"& _ "sWpPk_PackstueckeAnzahl = 1 AND [nctsWpPk_PackstueckeAnzahl] IS NULL) OR ([nctsW"& _ "pPk_PackstueckeAnzahl] = @Original_nctsWpPk_PackstueckeAnzahl)) AND ((@IsNull_nc"& _ "tsWpPk_Verpackungsart = 1 AND [nctsWpPk_Verpackungsart] IS NULL) OR ([nctsWpPk_V"& _ "erpackungsart] = @Original_nctsWpPk_Verpackungsart)) AND ((@IsNull_nctsWpPk_Zeic"& _ "henNummern = 1 AND [nctsWpPk_ZeichenNummern] IS NULL) OR ([nctsWpPk_ZeichenNumme"& _ "rn] = @Original_nctsWpPk_ZeichenNummern)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsWpPk_Id, nctsWpPk_nctsWP"& _ "Id, nctsWpPk_NctsId, nctsWpPk_PackstueckeAnzahl, nctsWpPk_Verpackungsart, nctsWp"& _ "Pk_ZeichenNummern FROM tblDakosy_NCTSOut_WarenpositionPackstuecke WHERE (nctsWpP"& _ "k_Id = @nctsWpPk_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_nctsWPId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_nctsWPId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsWpPk_Id, nctsWpPk_nctsWPId, nctsWpPk_NctsId, nctsWpPk_PackstueckeAnzah"& _ "l, nctsWpPk_Verpackungsart, nctsWpPk_ZeichenNummern FROM dbo.tblDakosy_NCTSOut_W"& _ "arenpositionPackstuecke" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable) 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 VERAGDataSet.tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable = New VERAGDataSet.tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut_WarenpositionPackstueckeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut_WarenpositionPackstuecke") 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_nctsWpPk_Id As Integer, ByVal Original_nctsWpPk_nctsWPId As Integer, ByVal Original_nctsWpPk_NctsId As Integer, ByVal Original_nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal Original_nctsWpPk_Verpackungsart As String, ByVal Original_nctsWpPk_ZeichenNummern As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsWpPk_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsWpPk_nctsWPId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nctsWpPk_NctsId,Integer) If (Original_nctsWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_nctsWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_nctsWpPk_Verpackungsart 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_nctsWpPk_Verpackungsart,String) End If If (Original_nctsWpPk_ZeichenNummern 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_nctsWpPk_ZeichenNummern,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 nctsWpPk_nctsWPId As Integer, ByVal nctsWpPk_NctsId As Integer, ByVal nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal nctsWpPk_Verpackungsart As String, ByVal nctsWpPk_ZeichenNummern As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsWpPk_nctsWPId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsWpPk_NctsId,Integer) If (nctsWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (nctsWpPk_Verpackungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsWpPk_Verpackungsart,String) End If If (nctsWpPk_ZeichenNummern Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsWpPk_ZeichenNummern,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 nctsWpPk_nctsWPId As Integer, ByVal nctsWpPk_NctsId As Integer, ByVal nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal nctsWpPk_Verpackungsart As String, ByVal nctsWpPk_ZeichenNummern As String, ByVal Original_nctsWpPk_Id As Integer, ByVal Original_nctsWpPk_nctsWPId As Integer, ByVal Original_nctsWpPk_NctsId As Integer, ByVal Original_nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal Original_nctsWpPk_Verpackungsart As String, ByVal Original_nctsWpPk_ZeichenNummern As String, ByVal nctsWpPk_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsWpPk_nctsWPId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsWpPk_NctsId,Integer) If (nctsWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (nctsWpPk_Verpackungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsWpPk_Verpackungsart,String) End If If (nctsWpPk_ZeichenNummern Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsWpPk_ZeichenNummern,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_nctsWpPk_Id,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_nctsWpPk_nctsWPId,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_nctsWpPk_NctsId,Integer) If (Original_nctsWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_nctsWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_nctsWpPk_Verpackungsart 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_nctsWpPk_Verpackungsart,String) End If If (Original_nctsWpPk_ZeichenNummern 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_nctsWpPk_ZeichenNummern,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(nctsWpPk_Id,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 nctsWpPk_nctsWPId As Integer, ByVal nctsWpPk_NctsId As Integer, ByVal nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal nctsWpPk_Verpackungsart As String, ByVal nctsWpPk_ZeichenNummern As String, ByVal Original_nctsWpPk_Id As Integer, ByVal Original_nctsWpPk_nctsWPId As Integer, ByVal Original_nctsWpPk_NctsId As Integer, ByVal Original_nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal Original_nctsWpPk_Verpackungsart As String, ByVal Original_nctsWpPk_ZeichenNummern As String) As Integer Return Me.Update(nctsWpPk_nctsWPId, nctsWpPk_NctsId, nctsWpPk_PackstueckeAnzahl, nctsWpPk_Verpackungsart, nctsWpPk_ZeichenNummern, Original_nctsWpPk_Id, Original_nctsWpPk_nctsWPId, Original_nctsWpPk_NctsId, Original_nctsWpPk_PackstueckeAnzahl, Original_nctsWpPk_Verpackungsart, Original_nctsWpPk_ZeichenNummern, Original_nctsWpPk_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter 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 = "tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen" tableMapping.ColumnMappings.Add("nctsWpUl_Id", "nctsWpUl_Id") tableMapping.ColumnMappings.Add("nctsWpUl_nctsWPId", "nctsWpUl_nctsWPId") tableMapping.ColumnMappings.Add("nctsWpUl_NctsId", "nctsWpUl_NctsId") tableMapping.ColumnMappings.Add("nctsWpUl_Typ", "nctsWpUl_Typ") tableMapping.ColumnMappings.Add("nctsWpUl_Referenz", "nctsWpUl_Referenz") tableMapping.ColumnMappings.Add("nctsWpUl_Zusatz", "nctsWpUl_Zusatz") 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].[tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen] WHERE ((["& _ "nctsWpUl_Id] = @Original_nctsWpUl_Id) AND ([nctsWpUl_nctsWPId] = @Original_nctsW"& _ "pUl_nctsWPId) AND ([nctsWpUl_NctsId] = @Original_nctsWpUl_NctsId) AND ((@IsNull_"& _ "nctsWpUl_Typ = 1 AND [nctsWpUl_Typ] IS NULL) OR ([nctsWpUl_Typ] = @Original_ncts"& _ "WpUl_Typ)) AND ((@IsNull_nctsWpUl_Referenz = 1 AND [nctsWpUl_Referenz] IS NULL) "& _ "OR ([nctsWpUl_Referenz] = @Original_nctsWpUl_Referenz)) AND ((@IsNull_nctsWpUl_Z"& _ "usatz = 1 AND [nctsWpUl_Zusatz] IS NULL) OR ([nctsWpUl_Zusatz] = @Original_nctsW"& _ "pUl_Zusatz)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_nctsWPId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpUl_Typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Typ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpUl_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpUl_Zusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Zusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_Zusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Zusatz", 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].[tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen] ([nctsWpU"& _ "l_nctsWPId], [nctsWpUl_NctsId], [nctsWpUl_Typ], [nctsWpUl_Referenz], [nctsWpUl_Z"& _ "usatz]) VALUES (@nctsWpUl_nctsWPId, @nctsWpUl_NctsId, @nctsWpUl_Typ, @nctsWpUl_R"& _ "eferenz, @nctsWpUl_Zusatz);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsWpUl_Id, nctsWpUl_nctsWPId, nctsWpUl_Nct"& _ "sId, nctsWpUl_Typ, nctsWpUl_Referenz, nctsWpUl_Zusatz FROM tblDakosy_NCTSOut_War"& _ "enpositionVorgelegteUnterlagen WHERE (nctsWpUl_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_nctsWPId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_Zusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Zusatz", 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].[tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen] SET [nctsWpUl_"& _ "nctsWPId] = @nctsWpUl_nctsWPId, [nctsWpUl_NctsId] = @nctsWpUl_NctsId, [nctsWpUl_"& _ "Typ] = @nctsWpUl_Typ, [nctsWpUl_Referenz] = @nctsWpUl_Referenz, [nctsWpUl_Zusatz"& _ "] = @nctsWpUl_Zusatz WHERE (([nctsWpUl_Id] = @Original_nctsWpUl_Id) AND ([nctsWp"& _ "Ul_nctsWPId] = @Original_nctsWpUl_nctsWPId) AND ([nctsWpUl_NctsId] = @Original_n"& _ "ctsWpUl_NctsId) AND ((@IsNull_nctsWpUl_Typ = 1 AND [nctsWpUl_Typ] IS NULL) OR (["& _ "nctsWpUl_Typ] = @Original_nctsWpUl_Typ)) AND ((@IsNull_nctsWpUl_Referenz = 1 AND"& _ " [nctsWpUl_Referenz] IS NULL) OR ([nctsWpUl_Referenz] = @Original_nctsWpUl_Refer"& _ "enz)) AND ((@IsNull_nctsWpUl_Zusatz = 1 AND [nctsWpUl_Zusatz] IS NULL) OR ([ncts"& _ "WpUl_Zusatz] = @Original_nctsWpUl_Zusatz)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsWpUl_Id, nctsWpUl_nctsW"& _ "PId, nctsWpUl_NctsId, nctsWpUl_Typ, nctsWpUl_Referenz, nctsWpUl_Zusatz FROM tblD"& _ "akosy_NCTSOut_WarenpositionVorgelegteUnterlagen WHERE (nctsWpUl_Id = @nctsWpUl_I"& _ "d)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_nctsWPId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_Zusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Zusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_nctsWPId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpUl_Typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Typ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpUl_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpUl_Zusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Zusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpUl_Zusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Zusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpUl_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpUl_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsWpUl_Id, nctsWpUl_nctsWPId, nctsWpUl_NctsId, nctsWpUl_Typ, nctsWpUl_Re"& _ "ferenz, nctsWpUl_Zusatz FROM dbo.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterl"& _ "agen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable) 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 VERAGDataSet.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable = New VERAGDataSet.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen") 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_nctsWpUl_Id As Integer, ByVal Original_nctsWpUl_nctsWPId As Integer, ByVal Original_nctsWpUl_NctsId As Integer, ByVal Original_nctsWpUl_Typ As String, ByVal Original_nctsWpUl_Referenz As String, ByVal Original_nctsWpUl_Zusatz As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsWpUl_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsWpUl_nctsWPId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nctsWpUl_NctsId,Integer) If (Original_nctsWpUl_Typ 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_nctsWpUl_Typ,String) End If If (Original_nctsWpUl_Referenz 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_nctsWpUl_Referenz,String) End If If (Original_nctsWpUl_Zusatz 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_nctsWpUl_Zusatz,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 nctsWpUl_nctsWPId As Integer, ByVal nctsWpUl_NctsId As Integer, ByVal nctsWpUl_Typ As String, ByVal nctsWpUl_Referenz As String, ByVal nctsWpUl_Zusatz As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsWpUl_nctsWPId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsWpUl_NctsId,Integer) If (nctsWpUl_Typ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsWpUl_Typ,String) End If If (nctsWpUl_Referenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsWpUl_Referenz,String) End If If (nctsWpUl_Zusatz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsWpUl_Zusatz,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 nctsWpUl_nctsWPId As Integer, ByVal nctsWpUl_NctsId As Integer, ByVal nctsWpUl_Typ As String, ByVal nctsWpUl_Referenz As String, ByVal nctsWpUl_Zusatz As String, ByVal Original_nctsWpUl_Id As Integer, ByVal Original_nctsWpUl_nctsWPId As Integer, ByVal Original_nctsWpUl_NctsId As Integer, ByVal Original_nctsWpUl_Typ As String, ByVal Original_nctsWpUl_Referenz As String, ByVal Original_nctsWpUl_Zusatz As String, ByVal nctsWpUl_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsWpUl_nctsWPId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsWpUl_NctsId,Integer) If (nctsWpUl_Typ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsWpUl_Typ,String) End If If (nctsWpUl_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsWpUl_Referenz,String) End If If (nctsWpUl_Zusatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsWpUl_Zusatz,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_nctsWpUl_Id,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_nctsWpUl_nctsWPId,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_nctsWpUl_NctsId,Integer) If (Original_nctsWpUl_Typ 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_nctsWpUl_Typ,String) End If If (Original_nctsWpUl_Referenz 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_nctsWpUl_Referenz,String) End If If (Original_nctsWpUl_Zusatz 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_nctsWpUl_Zusatz,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(nctsWpUl_Id,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 nctsWpUl_nctsWPId As Integer, ByVal nctsWpUl_NctsId As Integer, ByVal nctsWpUl_Typ As String, ByVal nctsWpUl_Referenz As String, ByVal nctsWpUl_Zusatz As String, ByVal Original_nctsWpUl_Id As Integer, ByVal Original_nctsWpUl_nctsWPId As Integer, ByVal Original_nctsWpUl_NctsId As Integer, ByVal Original_nctsWpUl_Typ As String, ByVal Original_nctsWpUl_Referenz As String, ByVal Original_nctsWpUl_Zusatz As String) As Integer Return Me.Update(nctsWpUl_nctsWPId, nctsWpUl_NctsId, nctsWpUl_Typ, nctsWpUl_Referenz, nctsWpUl_Zusatz, Original_nctsWpUl_Id, Original_nctsWpUl_nctsWPId, Original_nctsWpUl_NctsId, Original_nctsWpUl_Typ, Original_nctsWpUl_Referenz, Original_nctsWpUl_Zusatz, Original_nctsWpUl_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOut004TableAdapter 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 = "tblDakosy_NCTSOut004" tableMapping.ColumnMappings.Add("ncts_Id", "ncts_Id") tableMapping.ColumnMappings.Add("ncts_Status", "ncts_Status") tableMapping.ColumnMappings.Add("ncts_Status_KEWILL_Equivalent", "ncts_Status_KEWILL_Equivalent") tableMapping.ColumnMappings.Add("ncts_dyaArt", "ncts_dyaArt") tableMapping.ColumnMappings.Add("ncts_dyaAnmID", "ncts_dyaAnmID") tableMapping.ColumnMappings.Add("ncts_ANR", "ncts_ANR") tableMapping.ColumnMappings.Add("ncts_MRN", "ncts_MRN") tableMapping.ColumnMappings.Add("ncts_Erstellung", "ncts_Erstellung") tableMapping.ColumnMappings.Add("ncts_Erstellung_SB", "ncts_Erstellung_SB") tableMapping.ColumnMappings.Add("ncts_LetzteBearbeitung", "ncts_LetzteBearbeitung") tableMapping.ColumnMappings.Add("ncts_LetzteBearbeitung_SB", "ncts_LetzteBearbeitung_SB") tableMapping.ColumnMappings.Add("ncts_firma", "ncts_firma") tableMapping.ColumnMappings.Add("ncts_niederlassung", "ncts_niederlassung") tableMapping.ColumnMappings.Add("ncts_Gestellt", "ncts_Gestellt") tableMapping.ColumnMappings.Add("ncts_GestelltAm", "ncts_GestelltAm") tableMapping.ColumnMappings.Add("ncts_Trans_Partner", "ncts_Trans_Partner") tableMapping.ColumnMappings.Add("ncts_Trans_Div1", "ncts_Trans_Div1") tableMapping.ColumnMappings.Add("ncts_Trans_Div2", "ncts_Trans_Div2") tableMapping.ColumnMappings.Add("ncts_Trans_Div3", "ncts_Trans_Div3") tableMapping.ColumnMappings.Add("ncts_Trans_Referenz", "ncts_Trans_Referenz") tableMapping.ColumnMappings.Add("ncts_Trans_DatumZeit", "ncts_Trans_DatumZeit") tableMapping.ColumnMappings.Add("ncts_Trans_Version", "ncts_Trans_Version") tableMapping.ColumnMappings.Add("ncts_NachrichtenSenderTIN", "ncts_NachrichtenSenderTIN") tableMapping.ColumnMappings.Add("ncts_NachrichtenSenderNLNR", "ncts_NachrichtenSenderNLNR") tableMapping.ColumnMappings.Add("ncts_NachrichtenempfaengerDST", "ncts_NachrichtenempfaengerDST") tableMapping.ColumnMappings.Add("ncts_ObjectName", "ncts_ObjectName") tableMapping.ColumnMappings.Add("ncts_ObjectAlias", "ncts_ObjectAlias") tableMapping.ColumnMappings.Add("ncts_BezugsnummerVorblendung", "ncts_BezugsnummerVorblendung") tableMapping.ColumnMappings.Add("ncts_Bearbeiter", "ncts_Bearbeiter") tableMapping.ColumnMappings.Add("ncts_CountryOfDispatch", "ncts_CountryOfDispatch") tableMapping.ColumnMappings.Add("ncts_CountryOfDestination", "ncts_CountryOfDestination") tableMapping.ColumnMappings.Add("ncts_Declarationtype", "ncts_Declarationtype") tableMapping.ColumnMappings.Add("ncts_TIRCarnetNumber", "ncts_TIRCarnetNumber") tableMapping.ColumnMappings.Add("ncts_ReductedDatasetIndicator", "ncts_ReductedDatasetIndicator") tableMapping.ColumnMappings.Add("ncts_LocationOfGoods_TypeofLocation", "ncts_LocationOfGoods_TypeofLocation") tableMapping.ColumnMappings.Add("ncts_LocationOfGoods_QualifierIdenfitication", "ncts_LocationOfGoods_QualifierIdenfitication") tableMapping.ColumnMappings.Add("ncts_LocationOfGoods_AdditionalIdentifier", "ncts_LocationOfGoods_AdditionalIdentifier") tableMapping.ColumnMappings.Add("ncts_LocationOfGoods_ContactPerson_Name", "ncts_LocationOfGoods_ContactPerson_Name") tableMapping.ColumnMappings.Add("ncts_LocationOfGoods_ContactPerson_PhoneNumber", "ncts_LocationOfGoods_ContactPerson_PhoneNumber") tableMapping.ColumnMappings.Add("ncts_LocationOfGoods_ContactPerson_EMailAddress", "ncts_LocationOfGoods_ContactPerson_EMailAddress") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", "ncts_CustomsOfficeOfTransitDeclared_1_RefNumber") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", "ncts_CustomsOfficeOfTransitDeclared_2_RefNumber") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", "ncts_CustomsOfficeOfTransitDeclared_3_RefNumber") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", "ncts_CustomsOfficeOfTransitDeclared_4_RefNumber") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", "ncts_CustomsOfficeOfTransitDeclared_5_RefNumber") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", "ncts_CustomsOfficeOfTransitDeclared_6_RefNumber") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", "ncts_CustomsOfficeOfTransitDeclared_7_RefNumber") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", "ncts_CustomsOfficeOfTransitDeclared_8_RefNumber") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", "ncts_CustomsOfficeOfTransitDeclared_9_RefNumber") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", "ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", "ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", "ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", "ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", "ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", "ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", "ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", "ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", "ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfDestinationDeclared", "ncts_CustomsOfficeOfDestinationDeclared") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfDeparture", "ncts_CustomsOfficeOfDeparture") tableMapping.ColumnMappings.Add("ncts_CustomsOfficeOfExitForTransitDeclared", "ncts_CustomsOfficeOfExitForTransitDeclared") tableMapping.ColumnMappings.Add("ncts_LimitDate", "ncts_LimitDate") tableMapping.ColumnMappings.Add("ncts_TransitDeclarationType", "ncts_TransitDeclarationType") tableMapping.ColumnMappings.Add("ncts_GrossMass", "ncts_GrossMass") tableMapping.ColumnMappings.Add("ncts_BindingItinerary", "ncts_BindingItinerary") tableMapping.ColumnMappings.Add("ncts_ContainerIndicator", "ncts_ContainerIndicator") tableMapping.ColumnMappings.Add("ncts_InlandModeOfTransport", "ncts_InlandModeOfTransport") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_1_TypeOfIdentification", "ncts_DepartureTransportMeans_1_TypeOfIdentification") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_1_IdentificationNumber", "ncts_DepartureTransportMeans_1_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_1_Nationality", "ncts_DepartureTransportMeans_1_Nationality") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_2_TypeOfIdentification", "ncts_DepartureTransportMeans_2_TypeOfIdentification") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_2_IdentificationNumber", "ncts_DepartureTransportMeans_2_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_2_Nationality", "ncts_DepartureTransportMeans_2_Nationality") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_3_TypeOfIdentification", "ncts_DepartureTransportMeans_3_TypeOfIdentification") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_3_IdentificationNumber", "ncts_DepartureTransportMeans_3_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_3_Nationality", "ncts_DepartureTransportMeans_3_Nationality") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_4_TypeOfIdentification", "ncts_DepartureTransportMeans_4_TypeOfIdentification") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_4_IdentificationNumber", "ncts_DepartureTransportMeans_4_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_DepartureTransportMeans_4_Nationality", "ncts_DepartureTransportMeans_4_Nationality") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", "ncts_ActiveBorderTransportMeans_1_TypeOfIdentification") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_1_IdentificationNumber", "ncts_ActiveBorderTransportMeans_1_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_1_Nationality", "ncts_ActiveBorderTransportMeans_1_Nationality") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", "ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", "ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", "ncts_ActiveBorderTransportMeans_2_TypeOfIdentification") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_2_IdentificationNumber", "ncts_ActiveBorderTransportMeans_2_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_2_Nationality", "ncts_ActiveBorderTransportMeans_2_Nationality") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", "ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", "ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", "ncts_ActiveBorderTransportMeans_3_TypeOfIdentification") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_3_IdentificationNumber", "ncts_ActiveBorderTransportMeans_3_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_3_Nationality", "ncts_ActiveBorderTransportMeans_3_Nationality") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", "ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", "ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", "ncts_ActiveBorderTransportMeans_4_TypeOfIdentification") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_4_IdentificationNumber", "ncts_ActiveBorderTransportMeans_4_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_4_Nationality", "ncts_ActiveBorderTransportMeans_4_Nationality") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", "ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber") tableMapping.ColumnMappings.Add("ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", "ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared") tableMapping.ColumnMappings.Add("ncts_Authorisation_1_Type", "ncts_Authorisation_1_Type") tableMapping.ColumnMappings.Add("ncts_Authorisation_1_ReferenceNumber", "ncts_Authorisation_1_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_Authorisation_2_Type", "ncts_Authorisation_2_Type") tableMapping.ColumnMappings.Add("ncts_Authorisation_2_ReferenceNumber", "ncts_Authorisation_2_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_Authorisation_3_Type", "ncts_Authorisation_3_Type") tableMapping.ColumnMappings.Add("ncts_Authorisation_3_ReferenceNumber", "ncts_Authorisation_3_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_Authorisation_4_Type", "ncts_Authorisation_4_Type") tableMapping.ColumnMappings.Add("ncts_Authorisation_4_ReferenceNumber", "ncts_Authorisation_4_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_Authorisation_5_Type", "ncts_Authorisation_5_Type") tableMapping.ColumnMappings.Add("ncts_Authorisation_5_ReferenceNumber", "ncts_Authorisation_5_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_Authorisation_6_Type", "ncts_Authorisation_6_Type") tableMapping.ColumnMappings.Add("ncts_Authorisation_6_ReferenceNumber", "ncts_Authorisation_6_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_Authorisation_7_Type", "ncts_Authorisation_7_Type") tableMapping.ColumnMappings.Add("ncts_Authorisation_7_ReferenceNumber", "ncts_Authorisation_7_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_Authorisation_8_Type", "ncts_Authorisation_8_Type") tableMapping.ColumnMappings.Add("ncts_Authorisation_8_ReferenceNumber", "ncts_Authorisation_8_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_Authorisation_9_Type", "ncts_Authorisation_9_Type") tableMapping.ColumnMappings.Add("ncts_Authorisation_9_ReferenceNumber", "ncts_Authorisation_9_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_Consignor_AdressCode", "ncts_Consignor_AdressCode") tableMapping.ColumnMappings.Add("ncts_Consignor_IdentificationNumber", "ncts_Consignor_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_Consignor_SubsidiaryNumber", "ncts_Consignor_SubsidiaryNumber") tableMapping.ColumnMappings.Add("ncts_Consignor_Name", "ncts_Consignor_Name") tableMapping.ColumnMappings.Add("ncts_Consignor_StreetNumber", "ncts_Consignor_StreetNumber") tableMapping.ColumnMappings.Add("ncts_Consignor_City", "ncts_Consignor_City") tableMapping.ColumnMappings.Add("ncts_Consignor_Postcode", "ncts_Consignor_Postcode") tableMapping.ColumnMappings.Add("ncts_Consignor_Country", "ncts_Consignor_Country") tableMapping.ColumnMappings.Add("ncts_Consignor_ContactPerson_Name", "ncts_Consignor_ContactPerson_Name") tableMapping.ColumnMappings.Add("ncts_Consignor_ContactPerson_PhoneNumber", "ncts_Consignor_ContactPerson_PhoneNumber") tableMapping.ColumnMappings.Add("ncts_Consignor_ContactPerson_EMailAddress", "ncts_Consignor_ContactPerson_EMailAddress") tableMapping.ColumnMappings.Add("ncts_Consignee_AdressCode", "ncts_Consignee_AdressCode") tableMapping.ColumnMappings.Add("ncts_Consignee_IdentificationNumber", "ncts_Consignee_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_Consignee_SubsidiaryNumber", "ncts_Consignee_SubsidiaryNumber") tableMapping.ColumnMappings.Add("ncts_Consignee_Name", "ncts_Consignee_Name") tableMapping.ColumnMappings.Add("ncts_Consignee_StreetNumber", "ncts_Consignee_StreetNumber") tableMapping.ColumnMappings.Add("ncts_Consignee_City", "ncts_Consignee_City") tableMapping.ColumnMappings.Add("ncts_Consignee_Postcode", "ncts_Consignee_Postcode") tableMapping.ColumnMappings.Add("ncts_Consignee_Country", "ncts_Consignee_Country") tableMapping.ColumnMappings.Add("ncts_Consignee_ContactPerson_Name", "ncts_Consignee_ContactPerson_Name") tableMapping.ColumnMappings.Add("ncts_Consignee_ContactPerson_PhoneNumber", "ncts_Consignee_ContactPerson_PhoneNumber") tableMapping.ColumnMappings.Add("ncts_Consignee_ContactPerson_EMailAddress", "ncts_Consignee_ContactPerson_EMailAddress") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_AdressCode", "ncts_HolderOfTheTransitProcedure_AdressCode") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_IdentificationNumber", "ncts_HolderOfTheTransitProcedure_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", "ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_Name", "ncts_HolderOfTheTransitProcedure_Name") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_StreetNumber", "ncts_HolderOfTheTransitProcedure_StreetNumber") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_City", "ncts_HolderOfTheTransitProcedure_City") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_Postcode", "ncts_HolderOfTheTransitProcedure_Postcode") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_Country", "ncts_HolderOfTheTransitProcedure_Country") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_ContactPerson_Name", "ncts_HolderOfTheTransitProcedure_ContactPerson_Name") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", "ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber") tableMapping.ColumnMappings.Add("ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", "ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress") tableMapping.ColumnMappings.Add("ncts_Representative_AdressCode", "ncts_Representative_AdressCode") tableMapping.ColumnMappings.Add("ncts_Representative_IdentificationNumber", "ncts_Representative_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_Representative_ContactPerson_Name", "ncts_Representative_ContactPerson_Name") tableMapping.ColumnMappings.Add("ncts_Representative_ContactPerson_PhoneNumber", "ncts_Representative_ContactPerson_PhoneNumber") tableMapping.ColumnMappings.Add("ncts_Representative_ContactPerson_EMailAddress", "ncts_Representative_ContactPerson_EMailAddress") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_1_Role", "ncts_AdditionalSupplyChainActor_1_Role") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_1_IdentificationNumber", "ncts_AdditionalSupplyChainActor_1_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_2_Role", "ncts_AdditionalSupplyChainActor_2_Role") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_2_IdentificationNumber", "ncts_AdditionalSupplyChainActor_2_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_3_Role", "ncts_AdditionalSupplyChainActor_3_Role") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_3_IdentificationNumber", "ncts_AdditionalSupplyChainActor_3_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_4_Role", "ncts_AdditionalSupplyChainActor_4_Role") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_4_IdentificationNumber", "ncts_AdditionalSupplyChainActor_4_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_5_Role", "ncts_AdditionalSupplyChainActor_5_Role") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_5_IdentificationNumber", "ncts_AdditionalSupplyChainActor_5_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_6_Role", "ncts_AdditionalSupplyChainActor_6_Role") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_6_IdentificationNumber", "ncts_AdditionalSupplyChainActor_6_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_7_Role", "ncts_AdditionalSupplyChainActor_7_Role") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_7_IdentificationNumber", "ncts_AdditionalSupplyChainActor_7_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_8_Role", "ncts_AdditionalSupplyChainActor_8_Role") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_8_IdentificationNumber", "ncts_AdditionalSupplyChainActor_8_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_9_Role", "ncts_AdditionalSupplyChainActor_9_Role") tableMapping.ColumnMappings.Add("ncts_AdditionalSupplyChainActor_9_IdentificationNumber", "ncts_AdditionalSupplyChainActor_9_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_Security", "ncts_Security") tableMapping.ColumnMappings.Add("ncts_ReferenceNumberUCR", "ncts_ReferenceNumberUCR") tableMapping.ColumnMappings.Add("ncts_SpecificCircomstanceIndicator", "ncts_SpecificCircomstanceIndicator") tableMapping.ColumnMappings.Add("ncts_PlaceOfLoading_Location", "ncts_PlaceOfLoading_Location") tableMapping.ColumnMappings.Add("ncts_PlaceOfLoading_Country", "ncts_PlaceOfLoading_Country") tableMapping.ColumnMappings.Add("ncts_PlaceOfUnLoading_Location", "ncts_PlaceOfUnLoading_Location") tableMapping.ColumnMappings.Add("ncts_PlaceOfUnLoading_Country", "ncts_PlaceOfUnLoading_Country") tableMapping.ColumnMappings.Add("ncts_TransportCharges", "ncts_TransportCharges") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_1", "ncts_CountryOfRoutingOfConsignment_1") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_2", "ncts_CountryOfRoutingOfConsignment_2") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_3", "ncts_CountryOfRoutingOfConsignment_3") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_4", "ncts_CountryOfRoutingOfConsignment_4") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_5", "ncts_CountryOfRoutingOfConsignment_5") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_6", "ncts_CountryOfRoutingOfConsignment_6") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_7", "ncts_CountryOfRoutingOfConsignment_7") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_8", "ncts_CountryOfRoutingOfConsignment_8") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_9", "ncts_CountryOfRoutingOfConsignment_9") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_10", "ncts_CountryOfRoutingOfConsignment_10") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_11", "ncts_CountryOfRoutingOfConsignment_11") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_12", "ncts_CountryOfRoutingOfConsignment_12") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_13", "ncts_CountryOfRoutingOfConsignment_13") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_14", "ncts_CountryOfRoutingOfConsignment_14") tableMapping.ColumnMappings.Add("ncts_CountryOfRoutingOfConsignment_15", "ncts_CountryOfRoutingOfConsignment_15") tableMapping.ColumnMappings.Add("ncts_Carrier_AdressCode", "ncts_Carrier_AdressCode") tableMapping.ColumnMappings.Add("ncts_Carrier_IdentificationNumber", "ncts_Carrier_IdentificationNumber") tableMapping.ColumnMappings.Add("ncts_Carrier_SubsidiaryNumber", "ncts_Carrier_SubsidiaryNumber") tableMapping.ColumnMappings.Add("ncts_Carrier_ContactPerson_Name", "ncts_Carrier_ContactPerson_Name") tableMapping.ColumnMappings.Add("ncts_Carrier_ContactPerson_PhoneNumber", "ncts_Carrier_ContactPerson_PhoneNumber") tableMapping.ColumnMappings.Add("ncts_Carrier_ContactPerson_EMailAddress", "ncts_Carrier_ContactPerson_EMailAddress") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_1_Type", "ncts_SupportingDocument_1_Type") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_1_ReferenceNumber", "ncts_SupportingDocument_1_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_1_DocumentLineItemNumber", "ncts_SupportingDocument_1_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_1_ComplementOfInformation", "ncts_SupportingDocument_1_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_2_Type", "ncts_SupportingDocument_2_Type") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_2_ReferenceNumber", "ncts_SupportingDocument_2_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_2_DocumentLineItemNumber", "ncts_SupportingDocument_2_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_2_ComplementOfInformation", "ncts_SupportingDocument_2_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_3_Type", "ncts_SupportingDocument_3_Type") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_3_ReferenceNumber", "ncts_SupportingDocument_3_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_3_DocumentLineItemNumber", "ncts_SupportingDocument_3_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_3_ComplementOfInformation", "ncts_SupportingDocument_3_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_4_Type", "ncts_SupportingDocument_4_Type") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_4_ReferenceNumber", "ncts_SupportingDocument_4_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_4_DocumentLineItemNumber", "ncts_SupportingDocument_4_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_4_ComplementOfInformation", "ncts_SupportingDocument_4_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_5_Type", "ncts_SupportingDocument_5_Type") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_5_ReferenceNumber", "ncts_SupportingDocument_5_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_5_DocumentLineItemNumber", "ncts_SupportingDocument_5_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_5_ComplementOfInformation", "ncts_SupportingDocument_5_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_6_Type", "ncts_SupportingDocument_6_Type") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_6_ReferenceNumber", "ncts_SupportingDocument_6_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_6_DocumentLineItemNumber", "ncts_SupportingDocument_6_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_6_ComplementOfInformation", "ncts_SupportingDocument_6_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_7_Type", "ncts_SupportingDocument_7_Type") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_7_ReferenceNumber", "ncts_SupportingDocument_7_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_7_DocumentLineItemNumber", "ncts_SupportingDocument_7_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_7_ComplementOfInformation", "ncts_SupportingDocument_7_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_8_Type", "ncts_SupportingDocument_8_Type") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_8_ReferenceNumber", "ncts_SupportingDocument_8_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_8_DocumentLineItemNumber", "ncts_SupportingDocument_8_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_8_ComplementOfInformation", "ncts_SupportingDocument_8_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_9_Type", "ncts_SupportingDocument_9_Type") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_9_ReferenceNumber", "ncts_SupportingDocument_9_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_9_DocumentLineItemNumber", "ncts_SupportingDocument_9_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("ncts_SupportingDocument_9_ComplementOfInformation", "ncts_SupportingDocument_9_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_1_Type", "ncts_PreviousDocument_1_Type") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_1_ReferenceNumber", "ncts_PreviousDocument_1_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_1_ComplementOfInformation", "ncts_PreviousDocument_1_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_2_Type", "ncts_PreviousDocument_2_Type") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_2_ReferenceNumber", "ncts_PreviousDocument_2_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_2_ComplementOfInformation", "ncts_PreviousDocument_2_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_3_Type", "ncts_PreviousDocument_3_Type") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_3_ReferenceNumber", "ncts_PreviousDocument_3_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_3_ComplementOfInformation", "ncts_PreviousDocument_3_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_4_Type", "ncts_PreviousDocument_4_Type") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_4_ReferenceNumber", "ncts_PreviousDocument_4_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_4_ComplementOfInformation", "ncts_PreviousDocument_4_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_5_Type", "ncts_PreviousDocument_5_Type") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_5_ReferenceNumber", "ncts_PreviousDocument_5_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_5_ComplementOfInformation", "ncts_PreviousDocument_5_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_6_Type", "ncts_PreviousDocument_6_Type") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_6_ReferenceNumber", "ncts_PreviousDocument_6_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_6_ComplementOfInformation", "ncts_PreviousDocument_6_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_7_Type", "ncts_PreviousDocument_7_Type") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_7_ReferenceNumber", "ncts_PreviousDocument_7_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_7_ComplementOfInformation", "ncts_PreviousDocument_7_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_8_Type", "ncts_PreviousDocument_8_Type") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_8_ReferenceNumber", "ncts_PreviousDocument_8_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_8_ComplementOfInformation", "ncts_PreviousDocument_8_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_9_Type", "ncts_PreviousDocument_9_Type") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_9_ReferenceNumber", "ncts_PreviousDocument_9_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_PreviousDocument_9_ComplementOfInformation", "ncts_PreviousDocument_9_ComplementOfInformation") tableMapping.ColumnMappings.Add("ncts_TransportDocument_1_Type", "ncts_TransportDocument_1_Type") tableMapping.ColumnMappings.Add("ncts_TransportDocument_1_ReferenceNumber", "ncts_TransportDocument_1_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_TransportDocument_2_Type", "ncts_TransportDocument_2_Type") tableMapping.ColumnMappings.Add("ncts_TransportDocument_2_ReferenceNumber", "ncts_TransportDocument_2_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_TransportDocument_3_Type", "ncts_TransportDocument_3_Type") tableMapping.ColumnMappings.Add("ncts_TransportDocument_3_ReferenceNumber", "ncts_TransportDocument_3_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_TransportDocument_4_Type", "ncts_TransportDocument_4_Type") tableMapping.ColumnMappings.Add("ncts_TransportDocument_4_ReferenceNumber", "ncts_TransportDocument_4_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_TransportDocument_5_Type", "ncts_TransportDocument_5_Type") tableMapping.ColumnMappings.Add("ncts_TransportDocument_5_ReferenceNumber", "ncts_TransportDocument_5_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_TransportDocument_6_Type", "ncts_TransportDocument_6_Type") tableMapping.ColumnMappings.Add("ncts_TransportDocument_6_ReferenceNumber", "ncts_TransportDocument_6_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_TransportDocument_7_Type", "ncts_TransportDocument_7_Type") tableMapping.ColumnMappings.Add("ncts_TransportDocument_7_ReferenceNumber", "ncts_TransportDocument_7_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_TransportDocument_8_Type", "ncts_TransportDocument_8_Type") tableMapping.ColumnMappings.Add("ncts_TransportDocument_8_ReferenceNumber", "ncts_TransportDocument_8_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_TransportDocument_9_Type", "ncts_TransportDocument_9_Type") tableMapping.ColumnMappings.Add("ncts_TransportDocument_9_ReferenceNumber", "ncts_TransportDocument_9_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_1_Type", "ncts_AdditionalReference_1_Type") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_1_ReferenceNumber", "ncts_AdditionalReference_1_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_2_Type", "ncts_AdditionalReference_2_Type") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_2_ReferenceNumber", "ncts_AdditionalReference_2_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_3_Type", "ncts_AdditionalReference_3_Type") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_3_ReferenceNumber", "ncts_AdditionalReference_3_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_4_Type", "ncts_AdditionalReference_4_Type") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_4_ReferenceNumber", "ncts_AdditionalReference_4_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_5_Type", "ncts_AdditionalReference_5_Type") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_5_ReferenceNumber", "ncts_AdditionalReference_5_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_6_Type", "ncts_AdditionalReference_6_Type") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_6_ReferenceNumber", "ncts_AdditionalReference_6_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_7_Type", "ncts_AdditionalReference_7_Type") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_7_ReferenceNumber", "ncts_AdditionalReference_7_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_8_Type", "ncts_AdditionalReference_8_Type") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_8_ReferenceNumber", "ncts_AdditionalReference_8_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_9_Type", "ncts_AdditionalReference_9_Type") tableMapping.ColumnMappings.Add("ncts_AdditionalReference_9_ReferenceNumber", "ncts_AdditionalReference_9_ReferenceNumber") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_1_Code", "ncts_AdditionalInformation_1_Code") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_1_Text", "ncts_AdditionalInformation_1_Text") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_2_Code", "ncts_AdditionalInformation_2_Code") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_2_Text", "ncts_AdditionalInformation_2_Text") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_3_Code", "ncts_AdditionalInformation_3_Code") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_3_Text", "ncts_AdditionalInformation_3_Text") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_4_Code", "ncts_AdditionalInformation_4_Code") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_4_Text", "ncts_AdditionalInformation_4_Text") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_5_Code", "ncts_AdditionalInformation_5_Code") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_5_Text", "ncts_AdditionalInformation_5_Text") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_6_Code", "ncts_AdditionalInformation_6_Code") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_6_Text", "ncts_AdditionalInformation_6_Text") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_7_Code", "ncts_AdditionalInformation_7_Code") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_7_Text", "ncts_AdditionalInformation_7_Text") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_8_Code", "ncts_AdditionalInformation_8_Code") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_8_Text", "ncts_AdditionalInformation_8_Text") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_9_Code", "ncts_AdditionalInformation_9_Code") tableMapping.ColumnMappings.Add("ncts_AdditionalInformation_9_Text", "ncts_AdditionalInformation_9_Text") tableMapping.ColumnMappings.Add("ncts_AUTOIMPIndicator", "ncts_AUTOIMPIndicator") tableMapping.ColumnMappings.Add("ncts_Stammreferenz", "ncts_Stammreferenz") tableMapping.ColumnMappings.Add("ncts_ModeOfTransportAtTheBorder", "ncts_ModeOfTransportAtTheBorder") tableMapping.ColumnMappings.Add("ncts_Eroeffnung", "ncts_Eroeffnung") tableMapping.ColumnMappings.Add("ncts_Ankunft", "ncts_Ankunft") tableMapping.ColumnMappings.Add("ncts_Erledigung", "ncts_Erledigung") 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].[tblDakosy_NCTSOut004] WHERE (([ncts_Id] = @Original_ncts_Id) A"& _ "ND ([ncts_Status] = @Original_ncts_Status) AND ([ncts_Status_KEWILL_Equivalent] "& _ "= @Original_ncts_Status_KEWILL_Equivalent) AND ([ncts_dyaArt] = @Original_ncts_d"& _ "yaArt) AND ([ncts_dyaAnmID] = @Original_ncts_dyaAnmID) AND ((@IsNull_ncts_ANR = "& _ "1 AND [ncts_ANR] IS NULL) OR ([ncts_ANR] = @Original_ncts_ANR)) AND ((@IsNull_nc"& _ "ts_MRN = 1 AND [ncts_MRN] IS NULL) OR ([ncts_MRN] = @Original_ncts_MRN)) AND ([n"& _ "cts_Erstellung] = @Original_ncts_Erstellung) AND ((@IsNull_ncts_Erstellung_SB = "& _ "1 AND [ncts_Erstellung_SB] IS NULL) OR ([ncts_Erstellung_SB] = @Original_ncts_Er"& _ "stellung_SB)) AND ([ncts_LetzteBearbeitung] = @Original_ncts_LetzteBearbeitung) "& _ "AND ((@IsNull_ncts_LetzteBearbeitung_SB = 1 AND [ncts_LetzteBearbeitung_SB] IS N"& _ "ULL) OR ([ncts_LetzteBearbeitung_SB] = @Original_ncts_LetzteBearbeitung_SB)) AND"& _ " ((@IsNull_ncts_firma = 1 AND [ncts_firma] IS NULL) OR ([ncts_firma] = @Original"& _ "_ncts_firma)) AND ((@IsNull_ncts_niederlassung = 1 AND [ncts_niederlassung] IS N"& _ "ULL) OR ([ncts_niederlassung] = @Original_ncts_niederlassung)) AND ([ncts_Gestel"& _ "lt] = @Original_ncts_Gestellt) AND ((@IsNull_ncts_GestelltAm = 1 AND [ncts_Geste"& _ "lltAm] IS NULL) OR ([ncts_GestelltAm] = @Original_ncts_GestelltAm)) AND ((@IsNul"& _ "l_ncts_Trans_Partner = 1 AND [ncts_Trans_Partner] IS NULL) OR ([ncts_Trans_Partn"& _ "er] = @Original_ncts_Trans_Partner)) AND ((@IsNull_ncts_Trans_Div1 = 1 AND [ncts"& _ "_Trans_Div1] IS NULL) OR ([ncts_Trans_Div1] = @Original_ncts_Trans_Div1)) AND (("& _ "@IsNull_ncts_Trans_Div2 = 1 AND [ncts_Trans_Div2] IS NULL) OR ([ncts_Trans_Div2]"& _ " = @Original_ncts_Trans_Div2)) AND ((@IsNull_ncts_Trans_Div3 = 1 AND [ncts_Trans"& _ "_Div3] IS NULL) OR ([ncts_Trans_Div3] = @Original_ncts_Trans_Div3)) AND ((@IsNul"& _ "l_ncts_Trans_Referenz = 1 AND [ncts_Trans_Referenz] IS NULL) OR ([ncts_Trans_Ref"& _ "erenz] = @Original_ncts_Trans_Referenz)) AND ((@IsNull_ncts_Trans_DatumZeit = 1 "& _ "AND [ncts_Trans_DatumZeit] IS NULL) OR ([ncts_Trans_DatumZeit] = @Original_ncts_"& _ "Trans_DatumZeit)) AND ((@IsNull_ncts_Trans_Version = 1 AND [ncts_Trans_Version] "& _ "IS NULL) OR ([ncts_Trans_Version] = @Original_ncts_Trans_Version)) AND ((@IsNull"& _ "_ncts_NachrichtenSenderTIN = 1 AND [ncts_NachrichtenSenderTIN] IS NULL) OR ([nct"& _ "s_NachrichtenSenderTIN] = @Original_ncts_NachrichtenSenderTIN)) AND ((@IsNull_nc"& _ "ts_NachrichtenSenderNLNR = 1 AND [ncts_NachrichtenSenderNLNR] IS NULL) OR ([ncts"& _ "_NachrichtenSenderNLNR] = @Original_ncts_NachrichtenSenderNLNR)) AND ((@IsNull_n"& _ "cts_NachrichtenempfaengerDST = 1 AND [ncts_NachrichtenempfaengerDST] IS NULL) OR"& _ " ([ncts_NachrichtenempfaengerDST] = @Original_ncts_NachrichtenempfaengerDST)) AN"& _ "D ((@IsNull_ncts_ObjectName = 1 AND [ncts_ObjectName] IS NULL) OR ([ncts_ObjectN"& _ "ame] = @Original_ncts_ObjectName)) AND ((@IsNull_ncts_ObjectAlias = 1 AND [ncts_"& _ "ObjectAlias] IS NULL) OR ([ncts_ObjectAlias] = @Original_ncts_ObjectAlias)) AND "& _ "((@IsNull_ncts_BezugsnummerVorblendung = 1 AND [ncts_BezugsnummerVorblendung] IS"& _ " NULL) OR ([ncts_BezugsnummerVorblendung] = @Original_ncts_BezugsnummerVorblendu"& _ "ng)) AND ((@IsNull_ncts_Bearbeiter = 1 AND [ncts_Bearbeiter] IS NULL) OR ([ncts_"& _ "Bearbeiter] = @Original_ncts_Bearbeiter)) AND ((@IsNull_ncts_CountryOfDispatch ="& _ " 1 AND [ncts_CountryOfDispatch] IS NULL) OR ([ncts_CountryOfDispatch] = @Origina"& _ "l_ncts_CountryOfDispatch)) AND ((@IsNull_ncts_CountryOfDestination = 1 AND [ncts"& _ "_CountryOfDestination] IS NULL) OR ([ncts_CountryOfDestination] = @Original_ncts"& _ "_CountryOfDestination)) AND ((@IsNull_ncts_Declarationtype = 1 AND [ncts_Declara"& _ "tiontype] IS NULL) OR ([ncts_Declarationtype] = @Original_ncts_Declarationtype))"& _ " AND ((@IsNull_ncts_TIRCarnetNumber = 1 AND [ncts_TIRCarnetNumber] IS NULL) OR ("& _ "[ncts_TIRCarnetNumber] = @Original_ncts_TIRCarnetNumber)) AND ((@IsNull_ncts_Red"& _ "uctedDatasetIndicator = 1 AND [ncts_ReductedDatasetIndicator] IS NULL) OR ([ncts"& _ "_ReductedDatasetIndicator] = @Original_ncts_ReductedDatasetIndicator)) AND ((@Is"& _ "Null_ncts_LocationOfGoods_TypeofLocation = 1 AND [ncts_LocationOfGoods_TypeofLoc"& _ "ation] IS NULL) OR ([ncts_LocationOfGoods_TypeofLocation] = @Original_ncts_Locat"& _ "ionOfGoods_TypeofLocation)) AND ((@IsNull_ncts_LocationOfGoods_QualifierIdenfiti"& _ "cation = 1 AND [ncts_LocationOfGoods_QualifierIdenfitication] IS NULL) OR ([ncts"& _ "_LocationOfGoods_QualifierIdenfitication] = @Original_ncts_LocationOfGoods_Quali"& _ "fierIdenfitication)) AND ((@IsNull_ncts_LocationOfGoods_AdditionalIdentifier = 1"& _ " AND [ncts_LocationOfGoods_AdditionalIdentifier] IS NULL) OR ([ncts_LocationOfGo"& _ "ods_AdditionalIdentifier] = @Original_ncts_LocationOfGoods_AdditionalIdentifier)"& _ ") AND ((@IsNull_ncts_LocationOfGoods_ContactPerson_Name = 1 AND [ncts_LocationOf"& _ "Goods_ContactPerson_Name] IS NULL) OR ([ncts_LocationOfGoods_ContactPerson_Name]"& _ " = @Original_ncts_LocationOfGoods_ContactPerson_Name)) AND ((@IsNull_ncts_Locati"& _ "onOfGoods_ContactPerson_PhoneNumber = 1 AND [ncts_LocationOfGoods_ContactPerson_"& _ "PhoneNumber] IS NULL) OR ([ncts_LocationOfGoods_ContactPerson_PhoneNumber] = @Or"& _ "iginal_ncts_LocationOfGoods_ContactPerson_PhoneNumber)) AND ((@IsNull_ncts_Locat"& _ "ionOfGoods_ContactPerson_EMailAddress = 1 AND [ncts_LocationOfGoods_ContactPerso"& _ "n_EMailAddress] IS NULL) OR ([ncts_LocationOfGoods_ContactPerson_EMailAddress] ="& _ " @Original_ncts_LocationOfGoods_ContactPerson_EMailAddress)) AND ((@IsNull_ncts_"& _ "CustomsOfficeOfTransitDeclared_1_RefNumber = 1 AND [ncts_CustomsOfficeOfTransitD"& _ "eclared_1_RefNumber] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared_1_RefNumb"& _ "er] = @Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber)) AND ((@IsNull_"& _ "ncts_CustomsOfficeOfTransitDeclared_2_RefNumber = 1 AND [ncts_CustomsOfficeOfTra"& _ "nsitDeclared_2_RefNumber] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared_2_Re"& _ "fNumber] = @Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber)) AND ((@Is"& _ "Null_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber = 1 AND [ncts_CustomsOffice"& _ "OfTransitDeclared_3_RefNumber] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared"& _ "_3_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber)) AND "& _ "((@IsNull_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber = 1 AND [ncts_CustomsO"& _ "fficeOfTransitDeclared_4_RefNumber] IS NULL) OR ([ncts_CustomsOfficeOfTransitDec"& _ "lared_4_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber))"& _ " AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber = 1 AND [ncts_Cus"& _ "tomsOfficeOfTransitDeclared_5_RefNumber] IS NULL) OR ([ncts_CustomsOfficeOfTrans"& _ "itDeclared_5_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNum"& _ "ber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber = 1 AND [nct"& _ "s_CustomsOfficeOfTransitDeclared_6_RefNumber] IS NULL) OR ([ncts_CustomsOfficeOf"& _ "TransitDeclared_6_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDeclared_6_R"& _ "efNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber = 1 AND"& _ " [ncts_CustomsOfficeOfTransitDeclared_7_RefNumber] IS NULL) OR ([ncts_CustomsOff"& _ "iceOfTransitDeclared_7_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDeclare"& _ "d_7_RefNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber = "& _ "1 AND [ncts_CustomsOfficeOfTransitDeclared_8_RefNumber] IS NULL) OR ([ncts_Custo"& _ "msOfficeOfTransitDeclared_8_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDe"& _ "clared_8_RefNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_9_RefNumb"& _ "er = 1 AND [ncts_CustomsOfficeOfTransitDeclared_9_RefNumber] IS NULL) OR ([ncts_"& _ "CustomsOfficeOfTransitDeclared_9_RefNumber] = @Original_ncts_CustomsOfficeOfTran"& _ "sitDeclared_9_RefNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_1_Ar"& _ "ravialDateTime = 1 AND [ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime] "& _ "IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime] = @Origina"& _ "l_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime)) AND ((@IsNull_ncts_Cu"& _ "stomsOfficeOfTransitDeclared_2_ArravialDateTime = 1 AND [ncts_CustomsOfficeOfTra"& _ "nsitDeclared_2_ArravialDateTime] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclar"& _ "ed_2_ArravialDateTime] = @Original_ncts_CustomsOfficeOfTransitDeclared_2_Arravia"& _ "lDateTime)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime"& _ " = 1 AND [ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime] IS NULL) OR (["& _ "ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime] = @Original_ncts_Customs"& _ "OfficeOfTransitDeclared_3_ArravialDateTime)) AND ((@IsNull_ncts_CustomsOfficeOfT"& _ "ransitDeclared_4_ArravialDateTime = 1 AND [ncts_CustomsOfficeOfTransitDeclared_4"& _ "_ArravialDateTime] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared_4_ArravialD"& _ "ateTime] = @Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime)) AN"& _ "D ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime = 1 AND [ncts"& _ "_CustomsOfficeOfTransitDeclared_5_ArravialDateTime] IS NULL) OR ([ncts_CustomsOf"& _ "ficeOfTransitDeclared_5_ArravialDateTime] = @Original_ncts_CustomsOfficeOfTransi"& _ "tDeclared_5_ArravialDateTime)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared"& _ "_6_ArravialDateTime = 1 AND [ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateT"& _ "ime] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime] = @Or"& _ "iginal_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime)) AND ((@IsNull_nc"& _ "ts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime = 1 AND [ncts_CustomsOffice"& _ "OfTransitDeclared_7_ArravialDateTime] IS NULL) OR ([ncts_CustomsOfficeOfTransitD"& _ "eclared_7_ArravialDateTime] = @Original_ncts_CustomsOfficeOfTransitDeclared_7_Ar"& _ "ravialDateTime)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDat"& _ "eTime = 1 AND [ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime] IS NULL) "& _ "OR ([ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime] = @Original_ncts_Cu"& _ "stomsOfficeOfTransitDeclared_8_ArravialDateTime)) AND ((@IsNull_ncts_CustomsOffi"& _ "ceOfTransitDeclared_9_ArravialDateTime = 1 AND [ncts_CustomsOfficeOfTransitDecla"& _ "red_9_ArravialDateTime] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared_9_Arra"& _ "vialDateTime] = @Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime"& _ ")) AND ((@IsNull_ncts_CustomsOfficeOfDestinationDeclared = 1 AND [ncts_CustomsOf"& _ "ficeOfDestinationDeclared] IS NULL) OR ([ncts_CustomsOfficeOfDestinationDeclared"& _ "] = @Original_ncts_CustomsOfficeOfDestinationDeclared)) AND ((@IsNull_ncts_Custo"& _ "msOfficeOfDeparture = 1 AND [ncts_CustomsOfficeOfDeparture] IS NULL) OR ([ncts_C"& _ "ustomsOfficeOfDeparture] = @Original_ncts_CustomsOfficeOfDeparture)) AND ((@IsNu"& _ "ll_ncts_CustomsOfficeOfExitForTransitDeclared = 1 AND [ncts_CustomsOfficeOfExitF"& _ "orTransitDeclared] IS NULL) OR ([ncts_CustomsOfficeOfExitForTransitDeclared] = @"& _ "Original_ncts_CustomsOfficeOfExitForTransitDeclared)) AND ((@IsNull_ncts_LimitDa"& _ "te = 1 AND [ncts_LimitDate] IS NULL) OR ([ncts_LimitDate] = @Original_ncts_Limit"& _ "Date)) AND ((@IsNull_ncts_TransitDeclarationType = 1 AND [ncts_TransitDeclaratio"& _ "nType] IS NULL) OR ([ncts_TransitDeclarationType] = @Original_ncts_TransitDeclar"& _ "ationType)) AND ((@IsNull_ncts_GrossMass = 1 AND [ncts_GrossMass] IS NULL) OR (["& _ "ncts_GrossMass] = @Original_ncts_GrossMass)) AND ((@IsNull_ncts_BindingItinerary"& _ " = 1 AND [ncts_BindingItinerary] IS NULL) OR ([ncts_BindingItinerary] = @Origina"& _ "l_ncts_BindingItinerary)) AND ((@IsNull_ncts_ContainerIndicator = 1 AND [ncts_Co"& _ "ntainerIndicator] IS NULL) OR ([ncts_ContainerIndicator] = @Original_ncts_Contai"& _ "nerIndicator)) AND ((@IsNull_ncts_InlandModeOfTransport = 1 AND [ncts_InlandMode"& _ "OfTransport] IS NULL) OR ([ncts_InlandModeOfTransport] = @Original_ncts_InlandMo"& _ "deOfTransport)) AND ((@IsNull_ncts_DepartureTransportMeans_1_TypeOfIdentificatio"& _ "n = 1 AND [ncts_DepartureTransportMeans_1_TypeOfIdentification] IS NULL) OR ([nc"& _ "ts_DepartureTransportMeans_1_TypeOfIdentification] = @Original_ncts_DepartureTra"& _ "nsportMeans_1_TypeOfIdentification)) AND ((@IsNull_ncts_DepartureTransportMeans_"& _ "1_IdentificationNumber = 1 AND [ncts_DepartureTransportMeans_1_IdentificationNum"& _ "ber] IS NULL) OR ([ncts_DepartureTransportMeans_1_IdentificationNumber] = @Origi"& _ "nal_ncts_DepartureTransportMeans_1_IdentificationNumber)) AND ((@IsNull_ncts_Dep"& _ "artureTransportMeans_1_Nationality = 1 AND [ncts_DepartureTransportMeans_1_Natio"& _ "nality] IS NULL) OR ([ncts_DepartureTransportMeans_1_Nationality] = @Original_nc"& _ "ts_DepartureTransportMeans_1_Nationality)) AND ((@IsNull_ncts_DepartureTransport"& _ "Means_2_TypeOfIdentification = 1 AND [ncts_DepartureTransportMeans_2_TypeOfIdent"& _ "ification] IS NULL) OR ([ncts_DepartureTransportMeans_2_TypeOfIdentification] = "& _ "@Original_ncts_DepartureTransportMeans_2_TypeOfIdentification)) AND ((@IsNull_nc"& _ "ts_DepartureTransportMeans_2_IdentificationNumber = 1 AND [ncts_DepartureTranspo"& _ "rtMeans_2_IdentificationNumber] IS NULL) OR ([ncts_DepartureTransportMeans_2_Ide"& _ "ntificationNumber] = @Original_ncts_DepartureTransportMeans_2_IdentificationNumb"& _ "er)) AND ((@IsNull_ncts_DepartureTransportMeans_2_Nationality = 1 AND [ncts_Depa"& _ "rtureTransportMeans_2_Nationality] IS NULL) OR ([ncts_DepartureTransportMeans_2_"& _ "Nationality] = @Original_ncts_DepartureTransportMeans_2_Nationality)) AND ((@IsN"& _ "ull_ncts_DepartureTransportMeans_3_TypeOfIdentification = 1 AND [ncts_DepartureT"& _ "ransportMeans_3_TypeOfIdentification] IS NULL) OR ([ncts_DepartureTransportMeans"& _ "_3_TypeOfIdentification] = @Original_ncts_DepartureTransportMeans_3_TypeOfIdenti"& _ "fication)) AND ((@IsNull_ncts_DepartureTransportMeans_3_IdentificationNumber = 1"& _ " AND [ncts_DepartureTransportMeans_3_IdentificationNumber] IS NULL) OR ([ncts_De"& _ "partureTransportMeans_3_IdentificationNumber] = @Original_ncts_DepartureTranspor"& _ "tMeans_3_IdentificationNumber)) AND ((@IsNull_ncts_DepartureTransportMeans_3_Nat"& _ "ionality = 1 AND [ncts_DepartureTransportMeans_3_Nationality] IS NULL) OR ([ncts"& _ "_DepartureTransportMeans_3_Nationality] = @Original_ncts_DepartureTransportMeans"& _ "_3_Nationality)) AND ((@IsNull_ncts_DepartureTransportMeans_4_TypeOfIdentificati"& _ "on = 1 AND [ncts_DepartureTransportMeans_4_TypeOfIdentification] IS NULL) OR ([n"& _ "cts_DepartureTransportMeans_4_TypeOfIdentification] = @Original_ncts_DepartureTr"& _ "ansportMeans_4_TypeOfIdentification)) AND ((@IsNull_ncts_DepartureTransportMeans"& _ "_4_IdentificationNumber = 1 AND [ncts_DepartureTransportMeans_4_IdentificationNu"& _ "mber] IS NULL) OR ([ncts_DepartureTransportMeans_4_IdentificationNumber] = @Orig"& _ "inal_ncts_DepartureTransportMeans_4_IdentificationNumber)) AND ((@IsNull_ncts_De"& _ "partureTransportMeans_4_Nationality = 1 AND [ncts_DepartureTransportMeans_4_Nati"& _ "onality] IS NULL) OR ([ncts_DepartureTransportMeans_4_Nationality] = @Original_n"& _ "cts_DepartureTransportMeans_4_Nationality)) AND ((@IsNull_ncts_ActiveBorderTrans"& _ "portMeans_1_TypeOfIdentification = 1 AND [ncts_ActiveBorderTransportMeans_1_Type"& _ "OfIdentification] IS NULL) OR ([ncts_ActiveBorderTransportMeans_1_TypeOfIdentifi"& _ "cation] = @Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification)) AND"& _ " ((@IsNull_ncts_ActiveBorderTransportMeans_1_IdentificationNumber = 1 AND [ncts_"& _ "ActiveBorderTransportMeans_1_IdentificationNumber] IS NULL) OR ([ncts_ActiveBord"& _ "erTransportMeans_1_IdentificationNumber] = @Original_ncts_ActiveBorderTransportM"& _ "eans_1_IdentificationNumber)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_1_Na"& _ "tionality = 1 AND [ncts_ActiveBorderTransportMeans_1_Nationality] IS NULL) OR (["& _ "ncts_ActiveBorderTransportMeans_1_Nationality] = @Original_ncts_ActiveBorderTran"& _ "sportMeans_1_Nationality)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_1_Covey"& _ "anceReferenceNumber = 1 AND [ncts_ActiveBorderTransportMeans_1_CoveyanceReferenc"& _ "eNumber] IS NULL) OR ([ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumbe"& _ "r] = @Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber)) AND "& _ "((@IsNull_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared = 1 AN"& _ "D [ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared] IS NULL) OR "& _ "([ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared] = @Original_n"& _ "cts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared)) AND ((@IsNull_n"& _ "cts_ActiveBorderTransportMeans_2_TypeOfIdentification = 1 AND [ncts_ActiveBorder"& _ "TransportMeans_2_TypeOfIdentification] IS NULL) OR ([ncts_ActiveBorderTransportM"& _ "eans_2_TypeOfIdentification] = @Original_ncts_ActiveBorderTransportMeans_2_TypeO"& _ "fIdentification)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_2_Identification"& _ "Number = 1 AND [ncts_ActiveBorderTransportMeans_2_IdentificationNumber] IS NULL)"& _ " OR ([ncts_ActiveBorderTransportMeans_2_IdentificationNumber] = @Original_ncts_A"& _ "ctiveBorderTransportMeans_2_IdentificationNumber)) AND ((@IsNull_ncts_ActiveBord"& _ "erTransportMeans_2_Nationality = 1 AND [ncts_ActiveBorderTransportMeans_2_Nation"& _ "ality] IS NULL) OR ([ncts_ActiveBorderTransportMeans_2_Nationality] = @Original_"& _ "ncts_ActiveBorderTransportMeans_2_Nationality)) AND ((@IsNull_ncts_ActiveBorderT"& _ "ransportMeans_2_CoveyanceReferenceNumber = 1 AND [ncts_ActiveBorderTransportMean"& _ "s_2_CoveyanceReferenceNumber] IS NULL) OR ([ncts_ActiveBorderTransportMeans_2_Co"& _ "veyanceReferenceNumber] = @Original_ncts_ActiveBorderTransportMeans_2_CoveyanceR"& _ "eferenceNumber)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAt"& _ "BorderDeclared = 1 AND [ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderD"& _ "eclared] IS NULL) OR ([ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDe"& _ "clared] = @Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDecla"& _ "red)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification = 1 A"& _ "ND [ncts_ActiveBorderTransportMeans_3_TypeOfIdentification] IS NULL) OR ([ncts_A"& _ "ctiveBorderTransportMeans_3_TypeOfIdentification] = @Original_ncts_ActiveBorderT"& _ "ransportMeans_3_TypeOfIdentification)) AND ((@IsNull_ncts_ActiveBorderTransportM"& _ "eans_3_IdentificationNumber = 1 AND [ncts_ActiveBorderTransportMeans_3_Identific"& _ "ationNumber] IS NULL) OR ([ncts_ActiveBorderTransportMeans_3_IdentificationNumbe"& _ "r] = @Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber)) AND ((@I"& _ "sNull_ncts_ActiveBorderTransportMeans_3_Nationality = 1 AND [ncts_ActiveBorderTr"& _ "ansportMeans_3_Nationality] IS NULL) OR ([ncts_ActiveBorderTransportMeans_3_Nati"& _ "onality] = @Original_ncts_ActiveBorderTransportMeans_3_Nationality)) AND ((@IsNu"& _ "ll_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber = 1 AND [ncts_Acti"& _ "veBorderTransportMeans_3_CoveyanceReferenceNumber] IS NULL) OR ([ncts_ActiveBord"& _ "erTransportMeans_3_CoveyanceReferenceNumber] = @Original_ncts_ActiveBorderTransp"& _ "ortMeans_3_CoveyanceReferenceNumber)) AND ((@IsNull_ncts_ActiveBorderTransportMe"& _ "ans_3_CustomsOfficeAtBorderDeclared = 1 AND [ncts_ActiveBorderTransportMeans_3_C"& _ "ustomsOfficeAtBorderDeclared] IS NULL) OR ([ncts_ActiveBorderTransportMeans_3_Cu"& _ "stomsOfficeAtBorderDeclared] = @Original_ncts_ActiveBorderTransportMeans_3_Custo"& _ "msOfficeAtBorderDeclared)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_4_TypeO"& _ "fIdentification = 1 AND [ncts_ActiveBorderTransportMeans_4_TypeOfIdentification]"& _ " IS NULL) OR ([ncts_ActiveBorderTransportMeans_4_TypeOfIdentification] = @Origin"& _ "al_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification)) AND ((@IsNull_ncts_A"& _ "ctiveBorderTransportMeans_4_IdentificationNumber = 1 AND [ncts_ActiveBorderTrans"& _ "portMeans_4_IdentificationNumber] IS NULL) OR ([ncts_ActiveBorderTransportMeans_"& _ "4_IdentificationNumber] = @Original_ncts_ActiveBorderTransportMeans_4_Identifica"& _ "tionNumber)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_4_Nationality = 1 AND"& _ " [ncts_ActiveBorderTransportMeans_4_Nationality] IS NULL) OR ([ncts_ActiveBorder"& _ "TransportMeans_4_Nationality] = @Original_ncts_ActiveBorderTransportMeans_4_Nati"& _ "onality)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumb"& _ "er = 1 AND [ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber] IS NULL)"& _ " OR ([ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber] = @Original_nc"& _ "ts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber)) AND ((@IsNull_ncts_Ac"& _ "tiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared = 1 AND [ncts_ActiveBor"& _ "derTransportMeans_4_CustomsOfficeAtBorderDeclared] IS NULL) OR ([ncts_ActiveBord"& _ "erTransportMeans_4_CustomsOfficeAtBorderDeclared] = @Original_ncts_ActiveBorderT"& _ "ransportMeans_4_CustomsOfficeAtBorderDeclared)) AND ((@IsNull_ncts_Authorisation"& _ "_1_Type = 1 AND [ncts_Authorisation_1_Type] IS NULL) OR ([ncts_Authorisation_1_T"& _ "ype] = @Original_ncts_Authorisation_1_Type)) AND ((@IsNull_ncts_Authorisation_1_"& _ "ReferenceNumber = 1 AND [ncts_Authorisation_1_ReferenceNumber] IS NULL) OR ([nct"& _ "s_Authorisation_1_ReferenceNumber] = @Original_ncts_Authorisation_1_ReferenceNum"& _ "ber)) AND ((@IsNull_ncts_Authorisation_2_Type = 1 AND [ncts_Authorisation_2_Type"& _ "] IS NULL) OR ([ncts_Authorisation_2_Type] = @Original_ncts_Authorisation_2_Type"& _ ")) AND ((@IsNull_ncts_Authorisation_2_ReferenceNumber = 1 AND [ncts_Authorisatio"& _ "n_2_ReferenceNumber] IS NULL) OR ([ncts_Authorisation_2_ReferenceNumber] = @Orig"& _ "inal_ncts_Authorisation_2_ReferenceNumber)) AND ((@IsNull_ncts_Authorisation_3_T"& _ "ype = 1 AND [ncts_Authorisation_3_Type] IS NULL) OR ([ncts_Authorisation_3_Type]"& _ " = @Original_ncts_Authorisation_3_Type)) AND ((@IsNull_ncts_Authorisation_3_Refe"& _ "renceNumber = 1 AND [ncts_Authorisation_3_ReferenceNumber] IS NULL) OR ([ncts_Au"& _ "thorisation_3_ReferenceNumber] = @Original_ncts_Authorisation_3_ReferenceNumber)"& _ ") AND ((@IsNull_ncts_Authorisation_4_Type = 1 AND [ncts_Authorisation_4_Type] IS"& _ " NULL) OR ([ncts_Authorisation_4_Type] = @Original_ncts_Authorisation_4_Type)) A"& _ "ND ((@IsNull_ncts_Authorisation_4_ReferenceNumber = 1 AND [ncts_Authorisation_4_"& _ "ReferenceNumber] IS NULL) OR ([ncts_Authorisation_4_ReferenceNumber] = @Original"& _ "_ncts_Authorisation_4_ReferenceNumber)) AND ((@IsNull_ncts_Authorisation_5_Type "& _ "= 1 AND [ncts_Authorisation_5_Type] IS NULL) OR ([ncts_Authorisation_5_Type] = @"& _ "Original_ncts_Authorisation_5_Type)) AND ((@IsNull_ncts_Authorisation_5_Referenc"& _ "eNumber = 1 AND [ncts_Authorisation_5_ReferenceNumber] IS NULL) OR ([ncts_Author"& _ "isation_5_ReferenceNumber] = @Original_ncts_Authorisation_5_ReferenceNumber)) AN"& _ "D ((@IsNull_ncts_Authorisation_6_Type = 1 AND [ncts_Authorisation_6_Type] IS NUL"& _ "L) OR ([ncts_Authorisation_6_Type] = @Original_ncts_Authorisation_6_Type)) AND ("& _ "(@IsNull_ncts_Authorisation_6_ReferenceNumber = 1 AND [ncts_Authorisation_6_Refe"& _ "renceNumber] IS NULL) OR ([ncts_Authorisation_6_ReferenceNumber] = @Original_nct"& _ "s_Authorisation_6_ReferenceNumber)) AND ((@IsNull_ncts_Authorisation_7_Type = 1 "& _ "AND [ncts_Authorisation_7_Type] IS NULL) OR ([ncts_Authorisation_7_Type] = @Orig"& _ "inal_ncts_Authorisation_7_Type)) AND ((@IsNull_ncts_Authorisation_7_ReferenceNum"& _ "ber = 1 AND [ncts_Authorisation_7_ReferenceNumber] IS NULL) OR ([ncts_Authorisat"& _ "ion_7_ReferenceNumber] = @Original_ncts_Authorisation_7_ReferenceNumber)) AND (("& _ "@IsNull_ncts_Authorisation_8_Type = 1 AND [ncts_Authorisation_8_Type] IS NULL) O"& _ "R ([ncts_Authorisation_8_Type] = @Original_ncts_Authorisation_8_Type)) AND ((@Is"& _ "Null_ncts_Authorisation_8_ReferenceNumber = 1 AND [ncts_Authorisation_8_Referenc"& _ "eNumber] IS NULL) OR ([ncts_Authorisation_8_ReferenceNumber] = @Original_ncts_Au"& _ "thorisation_8_ReferenceNumber)) AND ((@IsNull_ncts_Authorisation_9_Type = 1 AND "& _ "[ncts_Authorisation_9_Type] IS NULL) OR ([ncts_Authorisation_9_Type] = @Original"& _ "_ncts_Authorisation_9_Type)) AND ((@IsNull_ncts_Authorisation_9_ReferenceNumber "& _ "= 1 AND [ncts_Authorisation_9_ReferenceNumber] IS NULL) OR ([ncts_Authorisation_"& _ "9_ReferenceNumber] = @Original_ncts_Authorisation_9_ReferenceNumber)) AND ((@IsN"& _ "ull_ncts_Consignor_AdressCode = 1 AND [ncts_Consignor_AdressCode] IS NULL) OR (["& _ "ncts_Consignor_AdressCode] = @Original_ncts_Consignor_AdressCode)) AND ((@IsNull"& _ "_ncts_Consignor_IdentificationNumber = 1 AND [ncts_Consignor_IdentificationNumbe"& _ "r] IS NULL) OR ([ncts_Consignor_IdentificationNumber] = @Original_ncts_Consignor"& _ "_IdentificationNumber)) AND ((@IsNull_ncts_Consignor_SubsidiaryNumber = 1 AND [n"& _ "cts_Consignor_SubsidiaryNumber] IS NULL) OR ([ncts_Consignor_SubsidiaryNumber] ="& _ " @Original_ncts_Consignor_SubsidiaryNumber)) AND ((@IsNull_ncts_Consignor_Name ="& _ " 1 AND [ncts_Consignor_Name] IS NULL) OR ([ncts_Consignor_Name] = @Original_ncts"& _ "_Consignor_Name)) AND ((@IsNull_ncts_Consignor_StreetNumber = 1 AND [ncts_Consig"& _ "nor_StreetNumber] IS NULL) OR ([ncts_Consignor_StreetNumber] = @Original_ncts_Co"& _ "nsignor_StreetNumber)) AND ((@IsNull_ncts_Consignor_City = 1 AND [ncts_Consignor"& _ "_City] IS NULL) OR ([ncts_Consignor_City] = @Original_ncts_Consignor_City)) AND "& _ "((@IsNull_ncts_Consignor_Postcode = 1 AND [ncts_Consignor_Postcode] IS NULL) OR "& _ "([ncts_Consignor_Postcode] = @Original_ncts_Consignor_Postcode)) AND ((@IsNull_n"& _ "cts_Consignor_Country = 1 AND [ncts_Consignor_Country] IS NULL) OR ([ncts_Consig"& _ "nor_Country] = @Original_ncts_Consignor_Country)) AND ((@IsNull_ncts_Consignor_C"& _ "ontactPerson_Name = 1 AND [ncts_Consignor_ContactPerson_Name] IS NULL) OR ([ncts"& _ "_Consignor_ContactPerson_Name] = @Original_ncts_Consignor_ContactPerson_Name)) A"& _ "ND ((@IsNull_ncts_Consignor_ContactPerson_PhoneNumber = 1 AND [ncts_Consignor_Co"& _ "ntactPerson_PhoneNumber] IS NULL) OR ([ncts_Consignor_ContactPerson_PhoneNumber]"& _ " = @Original_ncts_Consignor_ContactPerson_PhoneNumber)) AND ((@IsNull_ncts_Consi"& _ "gnor_ContactPerson_EMailAddress = 1 AND [ncts_Consignor_ContactPerson_EMailAddre"& _ "ss] IS NULL) OR ([ncts_Consignor_ContactPerson_EMailAddress] = @Original_ncts_Co"& _ "nsignor_ContactPerson_EMailAddress)) AND ((@IsNull_ncts_Consignee_AdressCode = 1"& _ " AND [ncts_Consignee_AdressCode] IS NULL) OR ([ncts_Consignee_AdressCode] = @Ori"& _ "ginal_ncts_Consignee_AdressCode)) AND ((@IsNull_ncts_Consignee_IdentificationNum"& _ "ber = 1 AND [ncts_Consignee_IdentificationNumber] IS NULL) OR ([ncts_Consignee_I"& _ "dentificationNumber] = @Original_ncts_Consignee_IdentificationNumber)) AND ((@Is"& _ "Null_ncts_Consignee_SubsidiaryNumber = 1 AND [ncts_Consignee_SubsidiaryNumber] I"& _ "S NULL) OR ([ncts_Consignee_SubsidiaryNumber] = @Original_ncts_Consignee_Subsidi"& _ "aryNumber)) AND ((@IsNull_ncts_Consignee_Name = 1 AND [ncts_Consignee_Name] IS N"& _ "ULL) OR ([ncts_Consignee_Name] = @Original_ncts_Consignee_Name)) AND ((@IsNull_n"& _ "cts_Consignee_StreetNumber = 1 AND [ncts_Consignee_StreetNumber] IS NULL) OR ([n"& _ "cts_Consignee_StreetNumber] = @Original_ncts_Consignee_StreetNumber)) AND ((@IsN"& _ "ull_ncts_Consignee_City = 1 AND [ncts_Consignee_City] IS NULL) OR ([ncts_Consign"& _ "ee_City] = @Original_ncts_Consignee_City)) AND ((@IsNull_ncts_Consignee_Postcode"& _ " = 1 AND [ncts_Consignee_Postcode] IS NULL) OR ([ncts_Consignee_Postcode] = @Ori"& _ "ginal_ncts_Consignee_Postcode)) AND ((@IsNull_ncts_Consignee_Country = 1 AND [nc"& _ "ts_Consignee_Country] IS NULL) OR ([ncts_Consignee_Country] = @Original_ncts_Con"& _ "signee_Country)) AND ((@IsNull_ncts_Consignee_ContactPerson_Name = 1 AND [ncts_C"& _ "onsignee_ContactPerson_Name] IS NULL) OR ([ncts_Consignee_ContactPerson_Name] = "& _ "@Original_ncts_Consignee_ContactPerson_Name)) AND ((@IsNull_ncts_Consignee_Conta"& _ "ctPerson_PhoneNumber = 1 AND [ncts_Consignee_ContactPerson_PhoneNumber] IS NULL)"& _ " OR ([ncts_Consignee_ContactPerson_PhoneNumber] = @Original_ncts_Consignee_Conta"& _ "ctPerson_PhoneNumber)) AND ((@IsNull_ncts_Consignee_ContactPerson_EMailAddress ="& _ " 1 AND [ncts_Consignee_ContactPerson_EMailAddress] IS NULL) OR ([ncts_Consignee_"& _ "ContactPerson_EMailAddress] = @Original_ncts_Consignee_ContactPerson_EMailAddres"& _ "s)) AND ((@IsNull_ncts_HolderOfTheTransitProcedure_AdressCode = 1 AND [ncts_Hold"& _ "erOfTheTransitProcedure_AdressCode] IS NULL) OR ([ncts_HolderOfTheTransitProcedu"& _ "re_AdressCode] = @Original_ncts_HolderOfTheTransitProcedure_AdressCode)) AND ((@"& _ "IsNull_ncts_HolderOfTheTransitProcedure_IdentificationNumber = 1 AND [ncts_Holde"& _ "rOfTheTransitProcedure_IdentificationNumber] IS NULL) OR ([ncts_HolderOfTheTrans"& _ "itProcedure_IdentificationNumber] = @Original_ncts_HolderOfTheTransitProcedure_I"& _ "dentificationNumber)) AND ((@IsNull_ncts_HolderOfTheTransitProcedure_TIRHolderId"& _ "entificationNumber = 1 AND [ncts_HolderOfTheTransitProcedure_TIRHolderIdentifica"& _ "tionNumber] IS NULL) OR ([ncts_HolderOfTheTransitProcedure_TIRHolderIdentificati"& _ "onNumber] = @Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNu"& _ "mber)) AND ((@IsNull_ncts_HolderOfTheTransitProcedure_Name = 1 AND [ncts_HolderO"& _ "fTheTransitProcedure_Name] IS NULL) OR ([ncts_HolderOfTheTransitProcedure_Name] "& _ "= @Original_ncts_HolderOfTheTransitProcedure_Name)) AND ((@IsNull_ncts_HolderOfT"& _ "heTransitProcedure_StreetNumber = 1 AND [ncts_HolderOfTheTransitProcedure_Street"& _ "Number] IS NULL) OR ([ncts_HolderOfTheTransitProcedure_StreetNumber] = @Original"& _ "_ncts_HolderOfTheTransitProcedure_StreetNumber)) AND ((@IsNull_ncts_HolderOfTheT"& _ "ransitProcedure_City = 1 AND [ncts_HolderOfTheTransitProcedure_City] IS NULL) OR"& _ " ([ncts_HolderOfTheTransitProcedure_City] = @Original_ncts_HolderOfTheTransitPro"& _ "cedure_City)) AND ((@IsNull_ncts_HolderOfTheTransitProcedure_Postcode = 1 AND [n"& _ "cts_HolderOfTheTransitProcedure_Postcode] IS NULL) OR ([ncts_HolderOfTheTransitP"& _ "rocedure_Postcode] = @Original_ncts_HolderOfTheTransitProcedure_Postcode)) AND ("& _ "(@IsNull_ncts_HolderOfTheTransitProcedure_Country = 1 AND [ncts_HolderOfTheTrans"& _ "itProcedure_Country] IS NULL) OR ([ncts_HolderOfTheTransitProcedure_Country] = @"& _ "Original_ncts_HolderOfTheTransitProcedure_Country)) AND ((@IsNull_ncts_HolderOfT"& _ "heTransitProcedure_ContactPerson_Name = 1 AND [ncts_HolderOfTheTransitProcedure_"& _ "ContactPerson_Name] IS NULL) OR ([ncts_HolderOfTheTransitProcedure_ContactPerson"& _ "_Name] = @Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name)) AND ((@"& _ "IsNull_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber = 1 AND [ncts_"& _ "HolderOfTheTransitProcedure_ContactPerson_PhoneNumber] IS NULL) OR ([ncts_Holder"& _ "OfTheTransitProcedure_ContactPerson_PhoneNumber] = @Original_ncts_HolderOfTheTra"& _ "nsitProcedure_ContactPerson_PhoneNumber)) AND ((@IsNull_ncts_HolderOfTheTransitP"& _ "rocedure_ContactPerson_EMailAddress = 1 AND [ncts_HolderOfTheTransitProcedure_Co"& _ "ntactPerson_EMailAddress] IS NULL) OR ([ncts_HolderOfTheTransitProcedure_Contact"& _ "Person_EMailAddress] = @Original_ncts_HolderOfTheTransitProcedure_ContactPerson_"& _ "EMailAddress)) AND ((@IsNull_ncts_Representative_AdressCode = 1 AND [ncts_Repres"& _ "entative_AdressCode] IS NULL) OR ([ncts_Representative_AdressCode] = @Original_n"& _ "cts_Representative_AdressCode)) AND ((@IsNull_ncts_Representative_Identification"& _ "Number = 1 AND [ncts_Representative_IdentificationNumber] IS NULL) OR ([ncts_Rep"& _ "resentative_IdentificationNumber] = @Original_ncts_Representative_Identification"& _ "Number)) AND ((@IsNull_ncts_Representative_ContactPerson_Name = 1 AND [ncts_Repr"& _ "esentative_ContactPerson_Name] IS NULL) OR ([ncts_Representative_ContactPerson_N"& _ "ame] = @Original_ncts_Representative_ContactPerson_Name)) AND ((@IsNull_ncts_Rep"& _ "resentative_ContactPerson_PhoneNumber = 1 AND [ncts_Representative_ContactPerson"& _ "_PhoneNumber] IS NULL) OR ([ncts_Representative_ContactPerson_PhoneNumber] = @Or"& _ "iginal_ncts_Representative_ContactPerson_PhoneNumber)) AND ((@IsNull_ncts_Repres"& _ "entative_ContactPerson_EMailAddress = 1 AND [ncts_Representative_ContactPerson_E"& _ "MailAddress] IS NULL) OR ([ncts_Representative_ContactPerson_EMailAddress] = @Or"& _ "iginal_ncts_Representative_ContactPerson_EMailAddress)) AND ((@IsNull_ncts_Addit"& _ "ionalSupplyChainActor_1_Role = 1 AND [ncts_AdditionalSupplyChainActor_1_Role] IS"& _ " NULL) OR ([ncts_AdditionalSupplyChainActor_1_Role] = @Original_ncts_AdditionalS"& _ "upplyChainActor_1_Role)) AND ((@IsNull_ncts_AdditionalSupplyChainActor_1_Identif"& _ "icationNumber = 1 AND [ncts_AdditionalSupplyChainActor_1_IdentificationNumber] I"& _ "S NULL) OR ([ncts_AdditionalSupplyChainActor_1_IdentificationNumber] = @Original"& _ "_ncts_AdditionalSupplyChainActor_1_IdentificationNumber)) AND ((@IsNull_ncts_Add"& _ "itionalSupplyChainActor_2_Role = 1 AND [ncts_AdditionalSupplyChainActor_2_Role] "& _ "IS NULL) OR ([ncts_AdditionalSupplyChainActor_2_Role] = @Original_ncts_Additiona"& _ "lSupplyChainActor_2_Role)) AND ((@IsNull_ncts_AdditionalSupplyChainActor_2_Ident"& _ "ificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_2_IdentificationNumber]"& _ " IS NULL) OR ([ncts_AdditionalSupplyChainActor_2_IdentificationNumber] = @Origin"& _ "al_ncts_AdditionalSupplyChainActor_2_IdentificationNumber)) AND ((@IsNull_ncts_A"& _ "dditionalSupplyChainActor_3_Role = 1 AND [ncts_AdditionalSupplyChainActor_3_Role"& _ "] IS NULL) OR ([ncts_AdditionalSupplyChainActor_3_Role] = @Original_ncts_Additio"& _ "nalSupplyChainActor_3_Role)) AND ((@IsNull_ncts_AdditionalSupplyChainActor_3_Ide"& _ "ntificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_3_IdentificationNumbe"& _ "r] IS NULL) OR ([ncts_AdditionalSupplyChainActor_3_IdentificationNumber] = @Orig"& _ "inal_ncts_AdditionalSupplyChainActor_3_IdentificationNumber)) AND ((@IsNull_ncts"& _ "_AdditionalSupplyChainActor_4_Role = 1 AND [ncts_AdditionalSupplyChainActor_4_Ro"& _ "le] IS NULL) OR ([ncts_AdditionalSupplyChainActor_4_Role] = @Original_ncts_Addit"& _ "ionalSupplyChainActor_4_Role)) AND ((@IsNull_ncts_AdditionalSupplyChainActor_4_I"& _ "dentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_4_IdentificationNum"& _ "ber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_4_IdentificationNumber] = @Or"& _ "iginal_ncts_AdditionalSupplyChainActor_4_IdentificationNumber)) AND ((@IsNull_nc"& _ "ts_AdditionalSupplyChainActor_5_Role = 1 AND [ncts_AdditionalSupplyChainActor_5_"& _ "Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_5_Role] = @Original_ncts_Add"& _ "itionalSupplyChainActor_5_Role)) AND ((@IsNull_ncts_AdditionalSupplyChainActor_5"& _ "_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_5_IdentificationN"& _ "umber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_5_IdentificationNumber] = @"& _ "Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber)) AND ((@IsNull_"& _ "ncts_AdditionalSupplyChainActor_6_Role = 1 AND [ncts_AdditionalSupplyChainActor_"& _ "6_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_6_Role] = @Original_ncts_A"& _ "dditionalSupplyChainActor_6_Role)) AND ((@IsNull_ncts_AdditionalSupplyChainActor"& _ "_6_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_6_Identificatio"& _ "nNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_6_IdentificationNumber] ="& _ " @Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber)) AND ((@IsNul"& _ "l_ncts_AdditionalSupplyChainActor_7_Role = 1 AND [ncts_AdditionalSupplyChainActo"& _ "r_7_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_7_Role] = @Original_ncts"& _ "_AdditionalSupplyChainActor_7_Role)) AND ((@IsNull_ncts_AdditionalSupplyChainAct"& _ "or_7_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_7_Identificat"& _ "ionNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_7_IdentificationNumber]"& _ " = @Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber)) AND ((@IsN"& _ "ull_ncts_AdditionalSupplyChainActor_8_Role = 1 AND [ncts_AdditionalSupplyChainAc"& _ "tor_8_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_8_Role] = @Original_nc"& _ "ts_AdditionalSupplyChainActor_8_Role)) AND ((@IsNull_ncts_AdditionalSupplyChainA"& _ "ctor_8_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_8_Identific"& _ "ationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_8_IdentificationNumbe"& _ "r] = @Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber)) AND ((@I"& _ "sNull_ncts_AdditionalSupplyChainActor_9_Role = 1 AND [ncts_AdditionalSupplyChain"& _ "Actor_9_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_9_Role] = @Original_"& _ "ncts_AdditionalSupplyChainActor_9_Role)) AND ((@IsNull_ncts_AdditionalSupplyChai"& _ "nActor_9_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_9_Identif"& _ "icationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_9_IdentificationNum"& _ "ber] = @Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber)) AND (("& _ "@IsNull_ncts_Security = 1 AND [ncts_Security] IS NULL) OR ([ncts_Security] = @Or"& _ "iginal_ncts_Security)) AND ((@IsNull_ncts_ReferenceNumberUCR = 1 AND [ncts_Refer"& _ "enceNumberUCR] IS NULL) OR ([ncts_ReferenceNumberUCR] = @Original_ncts_Reference"& _ "NumberUCR)) AND ((@IsNull_ncts_SpecificCircomstanceIndicator = 1 AND [ncts_Speci"& _ "ficCircomstanceIndicator] IS NULL) OR ([ncts_SpecificCircomstanceIndicator] = @O"& _ "riginal_ncts_SpecificCircomstanceIndicator)) AND ((@IsNull_ncts_PlaceOfLoading_L"& _ "ocation = 1 AND [ncts_PlaceOfLoading_Location] IS NULL) OR ([ncts_PlaceOfLoading"& _ "_Location] = @Original_ncts_PlaceOfLoading_Location)) AND ((@IsNull_ncts_PlaceOf"& _ "Loading_Country = 1 AND [ncts_PlaceOfLoading_Country] IS NULL) OR ([ncts_PlaceOf"& _ "Loading_Country] = @Original_ncts_PlaceOfLoading_Country)) AND ((@IsNull_ncts_Pl"& _ "aceOfUnLoading_Location = 1 AND [ncts_PlaceOfUnLoading_Location] IS NULL) OR ([n"& _ "cts_PlaceOfUnLoading_Location] = @Original_ncts_PlaceOfUnLoading_Location)) AND "& _ "((@IsNull_ncts_PlaceOfUnLoading_Country = 1 AND [ncts_PlaceOfUnLoading_Country] "& _ "IS NULL) OR ([ncts_PlaceOfUnLoading_Country] = @Original_ncts_PlaceOfUnLoading_C"& _ "ountry)) AND ((@IsNull_ncts_TransportCharges = 1 AND [ncts_TransportCharges] IS "& _ "NULL) OR ([ncts_TransportCharges] = @Original_ncts_TransportCharges)) AND ((@IsN"& _ "ull_ncts_CountryOfRoutingOfConsignment_1 = 1 AND [ncts_CountryOfRoutingOfConsign"& _ "ment_1] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_1] = @Original_ncts_Cou"& _ "ntryOfRoutingOfConsignment_1)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_"& _ "2 = 1 AND [ncts_CountryOfRoutingOfConsignment_2] IS NULL) OR ([ncts_CountryOfRou"& _ "tingOfConsignment_2] = @Original_ncts_CountryOfRoutingOfConsignment_2)) AND ((@I"& _ "sNull_ncts_CountryOfRoutingOfConsignment_3 = 1 AND [ncts_CountryOfRoutingOfConsi"& _ "gnment_3] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_3] = @Original_ncts_C"& _ "ountryOfRoutingOfConsignment_3)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignmen"& _ "t_4 = 1 AND [ncts_CountryOfRoutingOfConsignment_4] IS NULL) OR ([ncts_CountryOfR"& _ "outingOfConsignment_4] = @Original_ncts_CountryOfRoutingOfConsignment_4)) AND (("& _ "@IsNull_ncts_CountryOfRoutingOfConsignment_5 = 1 AND [ncts_CountryOfRoutingOfCon"& _ "signment_5] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_5] = @Original_ncts"& _ "_CountryOfRoutingOfConsignment_5)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignm"& _ "ent_6 = 1 AND [ncts_CountryOfRoutingOfConsignment_6] IS NULL) OR ([ncts_CountryO"& _ "fRoutingOfConsignment_6] = @Original_ncts_CountryOfRoutingOfConsignment_6)) AND "& _ "((@IsNull_ncts_CountryOfRoutingOfConsignment_7 = 1 AND [ncts_CountryOfRoutingOfC"& _ "onsignment_7] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_7] = @Original_nc"& _ "ts_CountryOfRoutingOfConsignment_7)) AND ((@IsNull_ncts_CountryOfRoutingOfConsig"& _ "nment_8 = 1 AND [ncts_CountryOfRoutingOfConsignment_8] IS NULL) OR ([ncts_Countr"& _ "yOfRoutingOfConsignment_8] = @Original_ncts_CountryOfRoutingOfConsignment_8)) AN"& _ "D ((@IsNull_ncts_CountryOfRoutingOfConsignment_9 = 1 AND [ncts_CountryOfRoutingO"& _ "fConsignment_9] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_9] = @Original_"& _ "ncts_CountryOfRoutingOfConsignment_9)) AND ((@IsNull_ncts_CountryOfRoutingOfCons"& _ "ignment_10 = 1 AND [ncts_CountryOfRoutingOfConsignment_10] IS NULL) OR ([ncts_Co"& _ "untryOfRoutingOfConsignment_10] = @Original_ncts_CountryOfRoutingOfConsignment_1"& _ "0)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_11 = 1 AND [ncts_CountryOfR"& _ "outingOfConsignment_11] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_11] = @"& _ "Original_ncts_CountryOfRoutingOfConsignment_11)) AND ((@IsNull_ncts_CountryOfRou"& _ "tingOfConsignment_12 = 1 AND [ncts_CountryOfRoutingOfConsignment_12] IS NULL) OR"& _ " ([ncts_CountryOfRoutingOfConsignment_12] = @Original_ncts_CountryOfRoutingOfCon"& _ "signment_12)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_13 = 1 AND [ncts_"& _ "CountryOfRoutingOfConsignment_13] IS NULL) OR ([ncts_CountryOfRoutingOfConsignme"& _ "nt_13] = @Original_ncts_CountryOfRoutingOfConsignment_13)) AND ((@IsNull_ncts_Co"& _ "untryOfRoutingOfConsignment_14 = 1 AND [ncts_CountryOfRoutingOfConsignment_14] I"& _ "S NULL) OR ([ncts_CountryOfRoutingOfConsignment_14] = @Original_ncts_CountryOfRo"& _ "utingOfConsignment_14)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_15 = 1 "& _ "AND [ncts_CountryOfRoutingOfConsignment_15] IS NULL) OR ([ncts_CountryOfRoutingO"& _ "fConsignment_15] = @Original_ncts_CountryOfRoutingOfConsignment_15)) AND ((@IsNu"& _ "ll_ncts_Carrier_AdressCode = 1 AND [ncts_Carrier_AdressCode] IS NULL) OR ([ncts_"& _ "Carrier_AdressCode] = @Original_ncts_Carrier_AdressCode)) AND ((@IsNull_ncts_Car"& _ "rier_IdentificationNumber = 1 AND [ncts_Carrier_IdentificationNumber] IS NULL) O"& _ "R ([ncts_Carrier_IdentificationNumber] = @Original_ncts_Carrier_IdentificationNu"& _ "mber)) AND ((@IsNull_ncts_Carrier_SubsidiaryNumber = 1 AND [ncts_Carrier_Subsidi"& _ "aryNumber] IS NULL) OR ([ncts_Carrier_SubsidiaryNumber] = @Original_ncts_Carrier"& _ "_SubsidiaryNumber)) AND ((@IsNull_ncts_Carrier_ContactPerson_Name = 1 AND [ncts_"& _ "Carrier_ContactPerson_Name] IS NULL) OR ([ncts_Carrier_ContactPerson_Name] = @Or"& _ "iginal_ncts_Carrier_ContactPerson_Name)) AND ((@IsNull_ncts_Carrier_ContactPerso"& _ "n_PhoneNumber = 1 AND [ncts_Carrier_ContactPerson_PhoneNumber] IS NULL) OR ([nct"& _ "s_Carrier_ContactPerson_PhoneNumber] = @Original_ncts_Carrier_ContactPerson_Phon"& _ "eNumber)) AND ((@IsNull_ncts_Carrier_ContactPerson_EMailAddress = 1 AND [ncts_Ca"& _ "rrier_ContactPerson_EMailAddress] IS NULL) OR ([ncts_Carrier_ContactPerson_EMail"& _ "Address] = @Original_ncts_Carrier_ContactPerson_EMailAddress)) AND ((@IsNull_nct"& _ "s_SupportingDocument_1_Type = 1 AND [ncts_SupportingDocument_1_Type] IS NULL) OR"& _ " ([ncts_SupportingDocument_1_Type] = @Original_ncts_SupportingDocument_1_Type)) "& _ "AND ((@IsNull_ncts_SupportingDocument_1_ReferenceNumber = 1 AND [ncts_Supporting"& _ "Document_1_ReferenceNumber] IS NULL) OR ([ncts_SupportingDocument_1_ReferenceNum"& _ "ber] = @Original_ncts_SupportingDocument_1_ReferenceNumber)) AND ((@IsNull_ncts_"& _ "SupportingDocument_1_DocumentLineItemNumber = 1 AND [ncts_SupportingDocument_1_D"& _ "ocumentLineItemNumber] IS NULL) OR ([ncts_SupportingDocument_1_DocumentLineItemN"& _ "umber] = @Original_ncts_SupportingDocument_1_DocumentLineItemNumber)) AND ((@IsN"& _ "ull_ncts_SupportingDocument_1_ComplementOfInformation = 1 AND [ncts_SupportingDo"& _ "cument_1_ComplementOfInformation] IS NULL) OR ([ncts_SupportingDocument_1_Comple"& _ "mentOfInformation] = @Original_ncts_SupportingDocument_1_ComplementOfInformation"& _ ")) AND ((@IsNull_ncts_SupportingDocument_2_Type = 1 AND [ncts_SupportingDocument"& _ "_2_Type] IS NULL) OR ([ncts_SupportingDocument_2_Type] = @Original_ncts_Supporti"& _ "ngDocument_2_Type)) AND ((@IsNull_ncts_SupportingDocument_2_ReferenceNumber = 1 "& _ "AND [ncts_SupportingDocument_2_ReferenceNumber] IS NULL) OR ([ncts_SupportingDoc"& _ "ument_2_ReferenceNumber] = @Original_ncts_SupportingDocument_2_ReferenceNumber))"& _ " AND ((@IsNull_ncts_SupportingDocument_2_DocumentLineItemNumber = 1 AND [ncts_Su"& _ "pportingDocument_2_DocumentLineItemNumber] IS NULL) OR ([ncts_SupportingDocument"& _ "_2_DocumentLineItemNumber] = @Original_ncts_SupportingDocument_2_DocumentLineIte"& _ "mNumber)) AND ((@IsNull_ncts_SupportingDocument_2_ComplementOfInformation = 1 AN"& _ "D [ncts_SupportingDocument_2_ComplementOfInformation] IS NULL) OR ([ncts_Support"& _ "ingDocument_2_ComplementOfInformation] = @Original_ncts_SupportingDocument_2_Com"& _ "plementOfInformation)) AND ((@IsNull_ncts_SupportingDocument_3_Type = 1 AND [nct"& _ "s_SupportingDocument_3_Type] IS NULL) OR ([ncts_SupportingDocument_3_Type] = @Or"& _ "iginal_ncts_SupportingDocument_3_Type)) AND ((@IsNull_ncts_SupportingDocument_3_"& _ "ReferenceNumber = 1 AND [ncts_SupportingDocument_3_ReferenceNumber] IS NULL) OR "& _ "([ncts_SupportingDocument_3_ReferenceNumber] = @Original_ncts_SupportingDocument"& _ "_3_ReferenceNumber)) AND ((@IsNull_ncts_SupportingDocument_3_DocumentLineItemNum"& _ "ber = 1 AND [ncts_SupportingDocument_3_DocumentLineItemNumber] IS NULL) OR ([nct"& _ "s_SupportingDocument_3_DocumentLineItemNumber] = @Original_ncts_SupportingDocume"& _ "nt_3_DocumentLineItemNumber)) AND ((@IsNull_ncts_SupportingDocument_3_Complement"& _ "OfInformation = 1 AND [ncts_SupportingDocument_3_ComplementOfInformation] IS NUL"& _ "L) OR ([ncts_SupportingDocument_3_ComplementOfInformation] = @Original_ncts_Supp"& _ "ortingDocument_3_ComplementOfInformation)) AND ((@IsNull_ncts_SupportingDocument"& _ "_4_Type = 1 AND [ncts_SupportingDocument_4_Type] IS NULL) OR ([ncts_SupportingDo"& _ "cument_4_Type] = @Original_ncts_SupportingDocument_4_Type)) AND ((@IsNull_ncts_S"& _ "upportingDocument_4_ReferenceNumber = 1 AND [ncts_SupportingDocument_4_Reference"& _ "Number] IS NULL) OR ([ncts_SupportingDocument_4_ReferenceNumber] = @Original_nct"& _ "s_SupportingDocument_4_ReferenceNumber)) AND ((@IsNull_ncts_SupportingDocument_4"& _ "_DocumentLineItemNumber = 1 AND [ncts_SupportingDocument_4_DocumentLineItemNumbe"& _ "r] IS NULL) OR ([ncts_SupportingDocument_4_DocumentLineItemNumber] = @Original_n"& _ "cts_SupportingDocument_4_DocumentLineItemNumber)) AND ((@IsNull_ncts_SupportingD"& _ "ocument_4_ComplementOfInformation = 1 AND [ncts_SupportingDocument_4_ComplementO"& _ "fInformation] IS NULL) OR ([ncts_SupportingDocument_4_ComplementOfInformation] ="& _ " @Original_ncts_SupportingDocument_4_ComplementOfInformation)) AND ((@IsNull_nct"& _ "s_SupportingDocument_5_Type = 1 AND [ncts_SupportingDocument_5_Type] IS NULL) OR"& _ " ([ncts_SupportingDocument_5_Type] = @Original_ncts_SupportingDocument_5_Type)) "& _ "AND ((@IsNull_ncts_SupportingDocument_5_ReferenceNumber = 1 AND [ncts_Supporting"& _ "Document_5_ReferenceNumber] IS NULL) OR ([ncts_SupportingDocument_5_ReferenceNum"& _ "ber] = @Original_ncts_SupportingDocument_5_ReferenceNumber)) AND ((@IsNull_ncts_"& _ "SupportingDocument_5_DocumentLineItemNumber = 1 AND [ncts_SupportingDocument_5_D"& _ "ocumentLineItemNumber] IS NULL) OR ([ncts_SupportingDocument_5_DocumentLineItemN"& _ "umber] = @Original_ncts_SupportingDocument_5_DocumentLineItemNumber)) AND ((@IsN"& _ "ull_ncts_SupportingDocument_5_ComplementOfInformation = 1 AND [ncts_SupportingDo"& _ "cument_5_ComplementOfInformation] IS NULL) OR ([ncts_SupportingDocument_5_Comple"& _ "mentOfInformation] = @Original_ncts_SupportingDocument_5_ComplementOfInformation"& _ ")) AND ((@IsNull_ncts_SupportingDocument_6_Type = 1 AND [ncts_SupportingDocument"& _ "_6_Type] IS NULL) OR ([ncts_SupportingDocument_6_Type] = @Original_ncts_Supporti"& _ "ngDocument_6_Type)) AND ((@IsNull_ncts_SupportingDocument_6_ReferenceNumber = 1 "& _ "AND [ncts_SupportingDocument_6_ReferenceNumber] IS NULL) OR ([ncts_SupportingDoc"& _ "ument_6_ReferenceNumber] = @Original_ncts_SupportingDocument_6_ReferenceNumber))"& _ " AND ((@IsNull_ncts_SupportingDocument_6_DocumentLineItemNumber = 1 AND [ncts_Su"& _ "pportingDocument_6_DocumentLineItemNumber] IS NULL) OR ([ncts_SupportingDocument"& _ "_6_DocumentLineItemNumber] = @Original_ncts_SupportingDocument_6_DocumentLineIte"& _ "mNumber)) AND ((@IsNull_ncts_SupportingDocument_6_ComplementOfInformation = 1 AN"& _ "D [ncts_SupportingDocument_6_ComplementOfInformation] IS NULL) OR ([ncts_Support"& _ "ingDocument_6_ComplementOfInformation] = @Original_ncts_SupportingDocument_6_Com"& _ "plementOfInformation)) AND ((@IsNull_ncts_SupportingDocument_7_Type = 1 AND [nct"& _ "s_SupportingDocument_7_Type] IS NULL) OR ([ncts_SupportingDocument_7_Type] = @Or"& _ "iginal_ncts_SupportingDocument_7_Type)) AND ((@IsNull_ncts_SupportingDocument_7_"& _ "ReferenceNumber = 1 AND [ncts_SupportingDocument_7_ReferenceNumber] IS NULL) OR "& _ "([ncts_SupportingDocument_7_ReferenceNumber] = @Original_ncts_SupportingDocument"& _ "_7_ReferenceNumber)) AND ((@IsNull_ncts_SupportingDocument_7_DocumentLineItemNum"& _ "ber = 1 AND [ncts_SupportingDocument_7_DocumentLineItemNumber] IS NULL) OR ([nct"& _ "s_SupportingDocument_7_DocumentLineItemNumber] = @Original_ncts_SupportingDocume"& _ "nt_7_DocumentLineItemNumber)) AND ((@IsNull_ncts_SupportingDocument_7_Complement"& _ "OfInformation = 1 AND [ncts_SupportingDocument_7_ComplementOfInformation] IS NUL"& _ "L) OR ([ncts_SupportingDocument_7_ComplementOfInformation] = @Original_ncts_Supp"& _ "ortingDocument_7_ComplementOfInformation)) AND ((@IsNull_ncts_SupportingDocument"& _ "_8_Type = 1 AND [ncts_SupportingDocument_8_Type] IS NULL) OR ([ncts_SupportingDo"& _ "cument_8_Type] = @Original_ncts_SupportingDocument_8_Type)) AND ((@IsNull_ncts_S"& _ "upportingDocument_8_ReferenceNumber = 1 AND [ncts_SupportingDocument_8_Reference"& _ "Number] IS NULL) OR ([ncts_SupportingDocument_8_ReferenceNumber] = @Original_nct"& _ "s_SupportingDocument_8_ReferenceNumber)) AND ((@IsNull_ncts_SupportingDocument_8"& _ "_DocumentLineItemNumber = 1 AND [ncts_SupportingDocument_8_DocumentLineItemNumbe"& _ "r] IS NULL) OR ([ncts_SupportingDocument_8_DocumentLineItemNumber] = @Original_n"& _ "cts_SupportingDocument_8_DocumentLineItemNumber)) AND ((@IsNull_ncts_SupportingD"& _ "ocument_8_ComplementOfInformation = 1 AND [ncts_SupportingDocument_8_ComplementO"& _ "fInformation] IS NULL) OR ([ncts_SupportingDocument_8_ComplementOfInformation] ="& _ " @Original_ncts_SupportingDocument_8_ComplementOfInformation)) AND ((@IsNull_nct"& _ "s_SupportingDocument_9_Type = 1 AND [ncts_SupportingDocument_9_Type] IS NULL) OR"& _ " ([ncts_SupportingDocument_9_Type] = @Original_ncts_SupportingDocument_9_Type)) "& _ "AND ((@IsNull_ncts_SupportingDocument_9_ReferenceNumber = 1 AND [ncts_Supporting"& _ "Document_9_ReferenceNumber] IS NULL) OR ([ncts_SupportingDocument_9_ReferenceNum"& _ "ber] = @Original_ncts_SupportingDocument_9_ReferenceNumber)) AND ((@IsNull_ncts_"& _ "SupportingDocument_9_DocumentLineItemNumber = 1 AND [ncts_SupportingDocument_9_D"& _ "ocumentLineItemNumber] IS NULL) OR ([ncts_SupportingDocument_9_DocumentLineItemN"& _ "umber] = @Original_ncts_SupportingDocument_9_DocumentLineItemNumber)) AND ((@IsN"& _ "ull_ncts_SupportingDocument_9_ComplementOfInformation = 1 AND [ncts_SupportingDo"& _ "cument_9_ComplementOfInformation] IS NULL) OR ([ncts_SupportingDocument_9_Comple"& _ "mentOfInformation] = @Original_ncts_SupportingDocument_9_ComplementOfInformation"& _ ")) AND ((@IsNull_ncts_PreviousDocument_1_Type = 1 AND [ncts_PreviousDocument_1_T"& _ "ype] IS NULL) OR ([ncts_PreviousDocument_1_Type] = @Original_ncts_PreviousDocume"& _ "nt_1_Type)) AND ((@IsNull_ncts_PreviousDocument_1_ReferenceNumber = 1 AND [ncts_"& _ "PreviousDocument_1_ReferenceNumber] IS NULL) OR ([ncts_PreviousDocument_1_Refere"& _ "nceNumber] = @Original_ncts_PreviousDocument_1_ReferenceNumber)) AND ((@IsNull_n"& _ "cts_PreviousDocument_1_ComplementOfInformation = 1 AND [ncts_PreviousDocument_1_"& _ "ComplementOfInformation] IS NULL) OR ([ncts_PreviousDocument_1_ComplementOfInfor"& _ "mation] = @Original_ncts_PreviousDocument_1_ComplementOfInformation)) AND ((@IsN"& _ "ull_ncts_PreviousDocument_2_Type = 1 AND [ncts_PreviousDocument_2_Type] IS NULL)"& _ " OR ([ncts_PreviousDocument_2_Type] = @Original_ncts_PreviousDocument_2_Type)) A"& _ "ND ((@IsNull_ncts_PreviousDocument_2_ReferenceNumber = 1 AND [ncts_PreviousDocum"& _ "ent_2_ReferenceNumber] IS NULL) OR ([ncts_PreviousDocument_2_ReferenceNumber] = "& _ "@Original_ncts_PreviousDocument_2_ReferenceNumber)) AND ((@IsNull_ncts_PreviousD"& _ "ocument_2_ComplementOfInformation = 1 AND [ncts_PreviousDocument_2_ComplementOfI"& _ "nformation] IS NULL) OR ([ncts_PreviousDocument_2_ComplementOfInformation] = @Or"& _ "iginal_ncts_PreviousDocument_2_ComplementOfInformation)) AND ((@IsNull_ncts_Prev"& _ "iousDocument_3_Type = 1 AND [ncts_PreviousDocument_3_Type] IS NULL) OR ([ncts_Pr"& _ "eviousDocument_3_Type] = @Original_ncts_PreviousDocument_3_Type)) AND ((@IsNull_"& _ "ncts_PreviousDocument_3_ReferenceNumber = 1 AND [ncts_PreviousDocument_3_Referen"& _ "ceNumber] IS NULL) OR ([ncts_PreviousDocument_3_ReferenceNumber] = @Original_nct"& _ "s_PreviousDocument_3_ReferenceNumber)) AND ((@IsNull_ncts_PreviousDocument_3_Com"& _ "plementOfInformation = 1 AND [ncts_PreviousDocument_3_ComplementOfInformation] I"& _ "S NULL) OR ([ncts_PreviousDocument_3_ComplementOfInformation] = @Original_ncts_P"& _ "reviousDocument_3_ComplementOfInformation)) AND ((@IsNull_ncts_PreviousDocument_"& _ "4_Type = 1 AND [ncts_PreviousDocument_4_Type] IS NULL) OR ([ncts_PreviousDocumen"& _ "t_4_Type] = @Original_ncts_PreviousDocument_4_Type)) AND ((@IsNull_ncts_Previous"& _ "Document_4_ReferenceNumber = 1 AND [ncts_PreviousDocument_4_ReferenceNumber] IS "& _ "NULL) OR ([ncts_PreviousDocument_4_ReferenceNumber] = @Original_ncts_PreviousDoc"& _ "ument_4_ReferenceNumber)) AND ((@IsNull_ncts_PreviousDocument_4_ComplementOfInfo"& _ "rmation = 1 AND [ncts_PreviousDocument_4_ComplementOfInformation] IS NULL) OR (["& _ "ncts_PreviousDocument_4_ComplementOfInformation] = @Original_ncts_PreviousDocume"& _ "nt_4_ComplementOfInformation)) AND ((@IsNull_ncts_PreviousDocument_5_Type = 1 AN"& _ "D [ncts_PreviousDocument_5_Type] IS NULL) OR ([ncts_PreviousDocument_5_Type] = @"& _ "Original_ncts_PreviousDocument_5_Type)) AND ((@IsNull_ncts_PreviousDocument_5_Re"& _ "ferenceNumber = 1 AND [ncts_PreviousDocument_5_ReferenceNumber] IS NULL) OR ([nc"& _ "ts_PreviousDocument_5_ReferenceNumber] = @Original_ncts_PreviousDocument_5_Refer"& _ "enceNumber)) AND ((@IsNull_ncts_PreviousDocument_5_ComplementOfInformation = 1 A"& _ "ND [ncts_PreviousDocument_5_ComplementOfInformation] IS NULL) OR ([ncts_Previous"& _ "Document_5_ComplementOfInformation] = @Original_ncts_PreviousDocument_5_Compleme"& _ "ntOfInformation)) AND ((@IsNull_ncts_PreviousDocument_6_Type = 1 AND [ncts_Previ"& _ "ousDocument_6_Type] IS NULL) OR ([ncts_PreviousDocument_6_Type] = @Original_ncts"& _ "_PreviousDocument_6_Type)) AND ((@IsNull_ncts_PreviousDocument_6_ReferenceNumber"& _ " = 1 AND [ncts_PreviousDocument_6_ReferenceNumber] IS NULL) OR ([ncts_PreviousDo"& _ "cument_6_ReferenceNumber] = @Original_ncts_PreviousDocument_6_ReferenceNumber)) "& _ "AND ((@IsNull_ncts_PreviousDocument_6_ComplementOfInformation = 1 AND [ncts_Prev"& _ "iousDocument_6_ComplementOfInformation] IS NULL) OR ([ncts_PreviousDocument_6_Co"& _ "mplementOfInformation] = @Original_ncts_PreviousDocument_6_ComplementOfInformati"& _ "on)) AND ((@IsNull_ncts_PreviousDocument_7_Type = 1 AND [ncts_PreviousDocument_7"& _ "_Type] IS NULL) OR ([ncts_PreviousDocument_7_Type] = @Original_ncts_PreviousDocu"& _ "ment_7_Type)) AND ((@IsNull_ncts_PreviousDocument_7_ReferenceNumber = 1 AND [nct"& _ "s_PreviousDocument_7_ReferenceNumber] IS NULL) OR ([ncts_PreviousDocument_7_Refe"& _ "renceNumber] = @Original_ncts_PreviousDocument_7_ReferenceNumber)) AND ((@IsNull"& _ "_ncts_PreviousDocument_7_ComplementOfInformation = 1 AND [ncts_PreviousDocument_"& _ "7_ComplementOfInformation] IS NULL) OR ([ncts_PreviousDocument_7_ComplementOfInf"& _ "ormation] = @Original_ncts_PreviousDocument_7_ComplementOfInformation)) AND ((@I"& _ "sNull_ncts_PreviousDocument_8_Type = 1 AND [ncts_PreviousDocument_8_Type] IS NUL"& _ "L) OR ([ncts_PreviousDocument_8_Type] = @Original_ncts_PreviousDocument_8_Type))"& _ " AND ((@IsNull_ncts_PreviousDocument_8_ReferenceNumber = 1 AND [ncts_PreviousDoc"& _ "ument_8_ReferenceNumber] IS NULL) OR ([ncts_PreviousDocument_8_ReferenceNumber] "& _ "= @Original_ncts_PreviousDocument_8_ReferenceNumber)) AND ((@IsNull_ncts_Previou"& _ "sDocument_8_ComplementOfInformation = 1 AND [ncts_PreviousDocument_8_ComplementO"& _ "fInformation] IS NULL) OR ([ncts_PreviousDocument_8_ComplementOfInformation] = @"& _ "Original_ncts_PreviousDocument_8_ComplementOfInformation)) AND ((@IsNull_ncts_Pr"& _ "eviousDocument_9_Type = 1 AND [ncts_PreviousDocument_9_Type] IS NULL) OR ([ncts_"& _ "PreviousDocument_9_Type] = @Original_ncts_PreviousDocument_9_Type)) AND ((@IsNul"& _ "l_ncts_PreviousDocument_9_ReferenceNumber = 1 AND [ncts_PreviousDocument_9_Refer"& _ "enceNumber] IS NULL) OR ([ncts_PreviousDocument_9_ReferenceNumber] = @Original_n"& _ "cts_PreviousDocument_9_ReferenceNumber)) AND ((@IsNull_ncts_PreviousDocument_9_C"& _ "omplementOfInformation = 1 AND [ncts_PreviousDocument_9_ComplementOfInformation]"& _ " IS NULL) OR ([ncts_PreviousDocument_9_ComplementOfInformation] = @Original_ncts"& _ "_PreviousDocument_9_ComplementOfInformation)) AND ((@IsNull_ncts_TransportDocume"& _ "nt_1_Type = 1 AND [ncts_TransportDocument_1_Type] IS NULL) OR ([ncts_TransportDo"& _ "cument_1_Type] = @Original_ncts_TransportDocument_1_Type)) AND ((@IsNull_ncts_Tr"& _ "ansportDocument_1_ReferenceNumber = 1 AND [ncts_TransportDocument_1_ReferenceNum"& _ "ber] IS NULL) OR ([ncts_TransportDocument_1_ReferenceNumber] = @Original_ncts_Tr"& _ "ansportDocument_1_ReferenceNumber)) AND ((@IsNull_ncts_TransportDocument_2_Type "& _ "= 1 AND [ncts_TransportDocument_2_Type] IS NULL) OR ([ncts_TransportDocument_2_T"& _ "ype] = @Original_ncts_TransportDocument_2_Type)) AND ((@IsNull_ncts_TransportDoc"& _ "ument_2_ReferenceNumber = 1 AND [ncts_TransportDocument_2_ReferenceNumber] IS NU"& _ "LL) OR ([ncts_TransportDocument_2_ReferenceNumber] = @Original_ncts_TransportDoc"& _ "ument_2_ReferenceNumber)) AND ((@IsNull_ncts_TransportDocument_3_Type = 1 AND [n"& _ "cts_TransportDocument_3_Type] IS NULL) OR ([ncts_TransportDocument_3_Type] = @Or"& _ "iginal_ncts_TransportDocument_3_Type)) AND ((@IsNull_ncts_TransportDocument_3_Re"& _ "ferenceNumber = 1 AND [ncts_TransportDocument_3_ReferenceNumber] IS NULL) OR ([n"& _ "cts_TransportDocument_3_ReferenceNumber] = @Original_ncts_TransportDocument_3_Re"& _ "ferenceNumber)) AND ((@IsNull_ncts_TransportDocument_4_Type = 1 AND [ncts_Transp"& _ "ortDocument_4_Type] IS NULL) OR ([ncts_TransportDocument_4_Type] = @Original_nct"& _ "s_TransportDocument_4_Type)) AND ((@IsNull_ncts_TransportDocument_4_ReferenceNum"& _ "ber = 1 AND [ncts_TransportDocument_4_ReferenceNumber] IS NULL) OR ([ncts_Transp"& _ "ortDocument_4_ReferenceNumber] = @Original_ncts_TransportDocument_4_ReferenceNum"& _ "ber)) AND ((@IsNull_ncts_TransportDocument_5_Type = 1 AND [ncts_TransportDocumen"& _ "t_5_Type] IS NULL) OR ([ncts_TransportDocument_5_Type] = @Original_ncts_Transpor"& _ "tDocument_5_Type)) AND ((@IsNull_ncts_TransportDocument_5_ReferenceNumber = 1 AN"& _ "D [ncts_TransportDocument_5_ReferenceNumber] IS NULL) OR ([ncts_TransportDocumen"& _ "t_5_ReferenceNumber] = @Original_ncts_TransportDocument_5_ReferenceNumber)) AND "& _ "((@IsNull_ncts_TransportDocument_6_Type = 1 AND [ncts_TransportDocument_6_Type] "& _ "IS NULL) OR ([ncts_TransportDocument_6_Type] = @Original_ncts_TransportDocument_"& _ "6_Type)) AND ((@IsNull_ncts_TransportDocument_6_ReferenceNumber = 1 AND [ncts_Tr"& _ "ansportDocument_6_ReferenceNumber] IS NULL) OR ([ncts_TransportDocument_6_Refere"& _ "nceNumber] = @Original_ncts_TransportDocument_6_ReferenceNumber)) AND ((@IsNull_"& _ "ncts_TransportDocument_7_Type = 1 AND [ncts_TransportDocument_7_Type] IS NULL) O"& _ "R ([ncts_TransportDocument_7_Type] = @Original_ncts_TransportDocument_7_Type)) A"& _ "ND ((@IsNull_ncts_TransportDocument_7_ReferenceNumber = 1 AND [ncts_TransportDoc"& _ "ument_7_ReferenceNumber] IS NULL) OR ([ncts_TransportDocument_7_ReferenceNumber]"& _ " = @Original_ncts_TransportDocument_7_ReferenceNumber)) AND ((@IsNull_ncts_Trans"& _ "portDocument_8_Type = 1 AND [ncts_TransportDocument_8_Type] IS NULL) OR ([ncts_T"& _ "ransportDocument_8_Type] = @Original_ncts_TransportDocument_8_Type)) AND ((@IsNu"& _ "ll_ncts_TransportDocument_8_ReferenceNumber = 1 AND [ncts_TransportDocument_8_Re"& _ "ferenceNumber] IS NULL) OR ([ncts_TransportDocument_8_ReferenceNumber] = @Origin"& _ "al_ncts_TransportDocument_8_ReferenceNumber)) AND ((@IsNull_ncts_TransportDocume"& _ "nt_9_Type = 1 AND [ncts_TransportDocument_9_Type] IS NULL) OR ([ncts_TransportDo"& _ "cument_9_Type] = @Original_ncts_TransportDocument_9_Type)) AND ((@IsNull_ncts_Tr"& _ "ansportDocument_9_ReferenceNumber = 1 AND [ncts_TransportDocument_9_ReferenceNum"& _ "ber] IS NULL) OR ([ncts_TransportDocument_9_ReferenceNumber] = @Original_ncts_Tr"& _ "ansportDocument_9_ReferenceNumber)) AND ((@IsNull_ncts_AdditionalReference_1_Typ"& _ "e = 1 AND [ncts_AdditionalReference_1_Type] IS NULL) OR ([ncts_AdditionalReferen"& _ "ce_1_Type] = @Original_ncts_AdditionalReference_1_Type)) AND ((@IsNull_ncts_Addi"& _ "tionalReference_1_ReferenceNumber = 1 AND [ncts_AdditionalReference_1_ReferenceN"& _ "umber] IS NULL) OR ([ncts_AdditionalReference_1_ReferenceNumber] = @Original_nct"& _ "s_AdditionalReference_1_ReferenceNumber)) AND ((@IsNull_ncts_AdditionalReference"& _ "_2_Type = 1 AND [ncts_AdditionalReference_2_Type] IS NULL) OR ([ncts_AdditionalR"& _ "eference_2_Type] = @Original_ncts_AdditionalReference_2_Type)) AND ((@IsNull_nct"& _ "s_AdditionalReference_2_ReferenceNumber = 1 AND [ncts_AdditionalReference_2_Refe"& _ "renceNumber] IS NULL) OR ([ncts_AdditionalReference_2_ReferenceNumber] = @Origin"& _ "al_ncts_AdditionalReference_2_ReferenceNumber)) AND ((@IsNull_ncts_AdditionalRef"& _ "erence_3_Type = 1 AND [ncts_AdditionalReference_3_Type] IS NULL) OR ([ncts_Addit"& _ "ionalReference_3_Type] = @Original_ncts_AdditionalReference_3_Type)) AND ((@IsNu"& _ "ll_ncts_AdditionalReference_3_ReferenceNumber = 1 AND [ncts_AdditionalReference_"& _ "3_ReferenceNumber] IS NULL) OR ([ncts_AdditionalReference_3_ReferenceNumber] = @"& _ "Original_ncts_AdditionalReference_3_ReferenceNumber)) AND ((@IsNull_ncts_Additio"& _ "nalReference_4_Type = 1 AND [ncts_AdditionalReference_4_Type] IS NULL) OR ([ncts"& _ "_AdditionalReference_4_Type] = @Original_ncts_AdditionalReference_4_Type)) AND ("& _ "(@IsNull_ncts_AdditionalReference_4_ReferenceNumber = 1 AND [ncts_AdditionalRefe"& _ "rence_4_ReferenceNumber] IS NULL) OR ([ncts_AdditionalReference_4_ReferenceNumbe"& _ "r] = @Original_ncts_AdditionalReference_4_ReferenceNumber)) AND ((@IsNull_ncts_A"& _ "dditionalReference_5_Type = 1 AND [ncts_AdditionalReference_5_Type] IS NULL) OR "& _ "([ncts_AdditionalReference_5_Type] = @Original_ncts_AdditionalReference_5_Type))"& _ " AND ((@IsNull_ncts_AdditionalReference_5_ReferenceNumber = 1 AND [ncts_Addition"& _ "alReference_5_ReferenceNumber] IS NULL) OR ([ncts_AdditionalReference_5_Referenc"& _ "eNumber] = @Original_ncts_AdditionalReference_5_ReferenceNumber)) AND ((@IsNull_"& _ "ncts_AdditionalReference_6_Type = 1 AND [ncts_AdditionalReference_6_Type] IS NUL"& _ "L) OR ([ncts_AdditionalReference_6_Type] = @Original_ncts_AdditionalReference_6_"& _ "Type)) AND ((@IsNull_ncts_AdditionalReference_6_ReferenceNumber = 1 AND [ncts_Ad"& _ "ditionalReference_6_ReferenceNumber] IS NULL) OR ([ncts_AdditionalReference_6_Re"& _ "ferenceNumber] = @Original_ncts_AdditionalReference_6_ReferenceNumber)) AND ((@I"& _ "sNull_ncts_AdditionalReference_7_Type = 1 AND [ncts_AdditionalReference_7_Type] "& _ "IS NULL) OR ([ncts_AdditionalReference_7_Type] = @Original_ncts_AdditionalRefere"& _ "nce_7_Type)) AND ((@IsNull_ncts_AdditionalReference_7_ReferenceNumber = 1 AND [n"& _ "cts_AdditionalReference_7_ReferenceNumber] IS NULL) OR ([ncts_AdditionalReferenc"& _ "e_7_ReferenceNumber] = @Original_ncts_AdditionalReference_7_ReferenceNumber)) AN"& _ "D ((@IsNull_ncts_AdditionalReference_8_Type = 1 AND [ncts_AdditionalReference_8_"& _ "Type] IS NULL) OR ([ncts_AdditionalReference_8_Type] = @Original_ncts_Additional"& _ "Reference_8_Type)) AND ((@IsNull_ncts_AdditionalReference_8_ReferenceNumber = 1 "& _ "AND [ncts_AdditionalReference_8_ReferenceNumber] IS NULL) OR ([ncts_AdditionalRe"& _ "ference_8_ReferenceNumber] = @Original_ncts_AdditionalReference_8_ReferenceNumbe"& _ "r)) AND ((@IsNull_ncts_AdditionalReference_9_Type = 1 AND [ncts_AdditionalRefere"& _ "nce_9_Type] IS NULL) OR ([ncts_AdditionalReference_9_Type] = @Original_ncts_Addi"& _ "tionalReference_9_Type)) AND ((@IsNull_ncts_AdditionalReference_9_ReferenceNumbe"& _ "r = 1 AND [ncts_AdditionalReference_9_ReferenceNumber] IS NULL) OR ([ncts_Additi"& _ "onalReference_9_ReferenceNumber] = @Original_ncts_AdditionalReference_9_Referenc"& _ "eNumber)) AND ((@IsNull_ncts_AdditionalInformation_1_Code = 1 AND [ncts_Addition"& _ "alInformation_1_Code] IS NULL) OR ([ncts_AdditionalInformation_1_Code] = @Origin"& _ "al_ncts_AdditionalInformation_1_Code)) AND ((@IsNull_ncts_AdditionalInformation_"& _ "1_Text = 1 AND [ncts_AdditionalInformation_1_Text] IS NULL) OR ([ncts_Additional"& _ "Information_1_Text] = @Original_ncts_AdditionalInformation_1_Text)) AND ((@IsNul"& _ "l_ncts_AdditionalInformation_2_Code = 1 AND [ncts_AdditionalInformation_2_Code] "& _ "IS NULL) OR ([ncts_AdditionalInformation_2_Code] = @Original_ncts_AdditionalInfo"& _ "rmation_2_Code)) AND ((@IsNull_ncts_AdditionalInformation_2_Text = 1 AND [ncts_A"& _ "dditionalInformation_2_Text] IS NULL) OR ([ncts_AdditionalInformation_2_Text] = "& _ "@Original_ncts_AdditionalInformation_2_Text)) AND ((@IsNull_ncts_AdditionalInfor"& _ "mation_3_Code = 1 AND [ncts_AdditionalInformation_3_Code] IS NULL) OR ([ncts_Add"& _ "itionalInformation_3_Code] = @Original_ncts_AdditionalInformation_3_Code)) AND ("& _ "(@IsNull_ncts_AdditionalInformation_3_Text = 1 AND [ncts_AdditionalInformation_3"& _ "_Text] IS NULL) OR ([ncts_AdditionalInformation_3_Text] = @Original_ncts_Additio"& _ "nalInformation_3_Text)) AND ((@IsNull_ncts_AdditionalInformation_4_Code = 1 AND "& _ "[ncts_AdditionalInformation_4_Code] IS NULL) OR ([ncts_AdditionalInformation_4_C"& _ "ode] = @Original_ncts_AdditionalInformation_4_Code)) AND ((@IsNull_ncts_Addition"& _ "alInformation_4_Text = 1 AND [ncts_AdditionalInformation_4_Text] IS NULL) OR ([n"& _ "cts_AdditionalInformation_4_Text] = @Original_ncts_AdditionalInformation_4_Text)"& _ ") AND ((@IsNull_ncts_AdditionalInformation_5_Code = 1 AND [ncts_AdditionalInform"& _ "ation_5_Code] IS NULL) OR ([ncts_AdditionalInformation_5_Code] = @Original_ncts_"& _ "AdditionalInformation_5_Code)) AND ((@IsNull_ncts_AdditionalInformation_5_Text ="& _ " 1 AND [ncts_AdditionalInformation_5_Text] IS NULL) OR ([ncts_AdditionalInformat"& _ "ion_5_Text] = @Original_ncts_AdditionalInformation_5_Text)) AND ((@IsNull_ncts_A"& _ "dditionalInformation_6_Code = 1 AND [ncts_AdditionalInformation_6_Code] IS NULL)"& _ " OR ([ncts_AdditionalInformation_6_Code] = @Original_ncts_AdditionalInformation_"& _ "6_Code)) AND ((@IsNull_ncts_AdditionalInformation_6_Text = 1 AND [ncts_Additiona"& _ "lInformation_6_Text] IS NULL) OR ([ncts_AdditionalInformation_6_Text] = @Origina"& _ "l_ncts_AdditionalInformation_6_Text)) AND ((@IsNull_ncts_AdditionalInformation_7"& _ "_Code = 1 AND [ncts_AdditionalInformation_7_Code] IS NULL) OR ([ncts_AdditionalI"& _ "nformation_7_Code] = @Original_ncts_AdditionalInformation_7_Code)) AND ((@IsNull"& _ "_ncts_AdditionalInformation_7_Text = 1 AND [ncts_AdditionalInformation_7_Text] I"& _ "S NULL) OR ([ncts_AdditionalInformation_7_Text] = @Original_ncts_AdditionalInfor"& _ "mation_7_Text)) AND ((@IsNull_ncts_AdditionalInformation_8_Code = 1 AND [ncts_Ad"& _ "ditionalInformation_8_Code] IS NULL) OR ([ncts_AdditionalInformation_8_Code] = @"& _ "Original_ncts_AdditionalInformation_8_Code)) AND ((@IsNull_ncts_AdditionalInform"& _ "ation_8_Text = 1 AND [ncts_AdditionalInformation_8_Text] IS NULL) OR ([ncts_Addi"& _ "tionalInformation_8_Text] = @Original_ncts_AdditionalInformation_8_Text)) AND (("& _ "@IsNull_ncts_AdditionalInformation_9_Code = 1 AND [ncts_AdditionalInformation_9_"& _ "Code] IS NULL) OR ([ncts_AdditionalInformation_9_Code] = @Original_ncts_Addition"& _ "alInformation_9_Code)) AND ((@IsNull_ncts_AdditionalInformation_9_Text = 1 AND ["& _ "ncts_AdditionalInformation_9_Text] IS NULL) OR ([ncts_AdditionalInformation_9_Te"& _ "xt] = @Original_ncts_AdditionalInformation_9_Text)) AND ((@IsNull_ncts_AUTOIMPIn"& _ "dicator = 1 AND [ncts_AUTOIMPIndicator] IS NULL) OR ([ncts_AUTOIMPIndicator] = @"& _ "Original_ncts_AUTOIMPIndicator)) AND ((@IsNull_ncts_Stammreferenz = 1 AND [ncts_"& _ "Stammreferenz] IS NULL) OR ([ncts_Stammreferenz] = @Original_ncts_Stammreferenz)"& _ ") AND ((@IsNull_ncts_ModeOfTransportAtTheBorder = 1 AND [ncts_ModeOfTransportAtT"& _ "heBorder] IS NULL) OR ([ncts_ModeOfTransportAtTheBorder] = @Original_ncts_ModeOf"& _ "TransportAtTheBorder)) AND ((@IsNull_ncts_Eroeffnung = 1 AND [ncts_Eroeffnung] I"& _ "S NULL) OR ([ncts_Eroeffnung] = @Original_ncts_Eroeffnung)) AND ((@IsNull_ncts_A"& _ "nkunft = 1 AND [ncts_Ankunft] IS NULL) OR ([ncts_Ankunft] = @Original_ncts_Ankun"& _ "ft)) AND ((@IsNull_ncts_Erledigung = 1 AND [ncts_Erledigung] IS NULL) OR ([ncts_"& _ "Erledigung] = @Original_ncts_Erledigung)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ANR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GestelltAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Partner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectAlias", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Bearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfDispatch", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Declarationtype", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Declarationtype", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Declarationtype", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Declarationtype", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TIRCarnetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TIRCarnetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TIRCarnetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TIRCarnetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ReductedDatasetIndicator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReductedDatasetIndicator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ReductedDatasetIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReductedDatasetIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_TypeofLocation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_TypeofLocation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_TypeofLocation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_TypeofLocation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfDeparture", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDeparture", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDeparture", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LimitDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LimitDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LimitDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LimitDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransitDeclarationType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransitDeclarationType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransitDeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransitDeclarationType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GrossMass", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GrossMass", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "ncts_GrossMass", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BindingItinerary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BindingItinerary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BindingItinerary", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BindingItinerary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ContainerIndicator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ContainerIndicator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ContainerIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ContainerIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_InlandModeOfTransport", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_InlandModeOfTransport", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_InlandModeOfTransport", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_InlandModeOfTransport", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Representative_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Representative_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Representative_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Representative_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Representative_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Representative_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Security", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Security", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Security", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Security", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ReferenceNumberUCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SpecificCircomstanceIndicator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SpecificCircomstanceIndicator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SpecificCircomstanceIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SpecificCircomstanceIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PlaceOfLoading_Location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PlaceOfLoading_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PlaceOfLoading_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PlaceOfLoading_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PlaceOfUnLoading_Location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PlaceOfUnLoading_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PlaceOfUnLoading_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PlaceOfUnLoading_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportCharges", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportCharges", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportCharges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AUTOIMPIndicator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AUTOIMPIndicator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AUTOIMPIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AUTOIMPIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Stammreferenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ModeOfTransportAtTheBorder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ModeOfTransportAtTheBorder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ModeOfTransportAtTheBorder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ModeOfTransportAtTheBorder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Eroeffnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Eroeffnung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Ankunft", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Ankunft", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Erledigung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erledigung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", 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].[tblDakosy_NCTSOut004] ([ncts_Status], [ncts_Status_KEWILL_Equi"& _ "valent], [ncts_dyaArt], [ncts_dyaAnmID], [ncts_ANR], [ncts_MRN], [ncts_Erstellun"& _ "g], [ncts_Erstellung_SB], [ncts_LetzteBearbeitung], [ncts_LetzteBearbeitung_SB],"& _ " [ncts_firma], [ncts_niederlassung], [ncts_Gestellt], [ncts_GestelltAm], [ncts_T"& _ "rans_Partner], [ncts_Trans_Div1], [ncts_Trans_Div2], [ncts_Trans_Div3], [ncts_Tr"& _ "ans_Referenz], [ncts_Trans_DatumZeit], [ncts_Trans_Version], [ncts_NachrichtenSe"& _ "nderTIN], [ncts_NachrichtenSenderNLNR], [ncts_NachrichtenempfaengerDST], [ncts_O"& _ "bjectName], [ncts_ObjectAlias], [ncts_BezugsnummerVorblendung], [ncts_Bearbeiter"& _ "], [ncts_CountryOfDispatch], [ncts_CountryOfDestination], [ncts_Declarationtype]"& _ ", [ncts_TIRCarnetNumber], [ncts_ReductedDatasetIndicator], [ncts_LocationOfGoods"& _ "_TypeofLocation], [ncts_LocationOfGoods_QualifierIdenfitication], [ncts_Location"& _ "OfGoods_AdditionalIdentifier], [ncts_LocationOfGoods_ContactPerson_Name], [ncts_"& _ "LocationOfGoods_ContactPerson_PhoneNumber], [ncts_LocationOfGoods_ContactPerson_"& _ "EMailAddress], [ncts_CustomsOfficeOfTransitDeclared_1_RefNumber], [ncts_CustomsO"& _ "fficeOfTransitDeclared_2_RefNumber], [ncts_CustomsOfficeOfTransitDeclared_3_RefN"& _ "umber], [ncts_CustomsOfficeOfTransitDeclared_4_RefNumber], [ncts_CustomsOfficeOf"& _ "TransitDeclared_5_RefNumber], [ncts_CustomsOfficeOfTransitDeclared_6_RefNumber],"& _ " [ncts_CustomsOfficeOfTransitDeclared_7_RefNumber], [ncts_CustomsOfficeOfTransit"& _ "Declared_8_RefNumber], [ncts_CustomsOfficeOfTransitDeclared_9_RefNumber], [ncts_"& _ "CustomsOfficeOfTransitDeclared_1_ArravialDateTime], [ncts_CustomsOfficeOfTransit"& _ "Declared_2_ArravialDateTime], [ncts_CustomsOfficeOfTransitDeclared_3_ArravialDat"& _ "eTime], [ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime], [ncts_CustomsO"& _ "fficeOfTransitDeclared_5_ArravialDateTime], [ncts_CustomsOfficeOfTransitDeclared"& _ "_6_ArravialDateTime], [ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime], "& _ "[ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime], [ncts_CustomsOfficeOfT"& _ "ransitDeclared_9_ArravialDateTime], [ncts_CustomsOfficeOfDestinationDeclared], ["& _ "ncts_CustomsOfficeOfDeparture], [ncts_CustomsOfficeOfExitForTransitDeclared], [n"& _ "cts_LimitDate], [ncts_TransitDeclarationType], [ncts_GrossMass], [ncts_BindingIt"& _ "inerary], [ncts_ContainerIndicator], [ncts_InlandModeOfTransport], [ncts_Departu"& _ "reTransportMeans_1_TypeOfIdentification], [ncts_DepartureTransportMeans_1_Identi"& _ "ficationNumber], [ncts_DepartureTransportMeans_1_Nationality], [ncts_DepartureTr"& _ "ansportMeans_2_TypeOfIdentification], [ncts_DepartureTransportMeans_2_Identifica"& _ "tionNumber], [ncts_DepartureTransportMeans_2_Nationality], [ncts_DepartureTransp"& _ "ortMeans_3_TypeOfIdentification], [ncts_DepartureTransportMeans_3_Identification"& _ "Number], [ncts_DepartureTransportMeans_3_Nationality], [ncts_DepartureTransportM"& _ "eans_4_TypeOfIdentification], [ncts_DepartureTransportMeans_4_IdentificationNumb"& _ "er], [ncts_DepartureTransportMeans_4_Nationality], [ncts_ActiveBorderTransportMe"& _ "ans_1_TypeOfIdentification], [ncts_ActiveBorderTransportMeans_1_IdentificationNu"& _ "mber], [ncts_ActiveBorderTransportMeans_1_Nationality], [ncts_ActiveBorderTransp"& _ "ortMeans_1_CoveyanceReferenceNumber], [ncts_ActiveBorderTransportMeans_1_Customs"& _ "OfficeAtBorderDeclared], [ncts_ActiveBorderTransportMeans_2_TypeOfIdentification"& _ "], [ncts_ActiveBorderTransportMeans_2_IdentificationNumber], [ncts_ActiveBorderT"& _ "ransportMeans_2_Nationality], [ncts_ActiveBorderTransportMeans_2_CoveyanceRefere"& _ "nceNumber], [ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared], ["& _ "ncts_ActiveBorderTransportMeans_3_TypeOfIdentification], [ncts_ActiveBorderTrans"& _ "portMeans_3_IdentificationNumber], [ncts_ActiveBorderTransportMeans_3_Nationalit"& _ "y], [ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber], [ncts_ActiveBo"& _ "rderTransportMeans_3_CustomsOfficeAtBorderDeclared], [ncts_ActiveBorderTransport"& _ "Means_4_TypeOfIdentification], [ncts_ActiveBorderTransportMeans_4_Identification"& _ "Number], [ncts_ActiveBorderTransportMeans_4_Nationality], [ncts_ActiveBorderTran"& _ "sportMeans_4_CoveyanceReferenceNumber], [ncts_ActiveBorderTransportMeans_4_Custo"& _ "msOfficeAtBorderDeclared], [ncts_Authorisation_1_Type], [ncts_Authorisation_1_Re"& _ "ferenceNumber], [ncts_Authorisation_2_Type], [ncts_Authorisation_2_ReferenceNumb"& _ "er], [ncts_Authorisation_3_Type], [ncts_Authorisation_3_ReferenceNumber], [ncts_"& _ "Authorisation_4_Type], [ncts_Authorisation_4_ReferenceNumber], [ncts_Authorisati"& _ "on_5_Type], [ncts_Authorisation_5_ReferenceNumber], [ncts_Authorisation_6_Type],"& _ " [ncts_Authorisation_6_ReferenceNumber], [ncts_Authorisation_7_Type], [ncts_Auth"& _ "orisation_7_ReferenceNumber], [ncts_Authorisation_8_Type], [ncts_Authorisation_8"& _ "_ReferenceNumber], [ncts_Authorisation_9_Type], [ncts_Authorisation_9_ReferenceN"& _ "umber], [ncts_Consignor_AdressCode], [ncts_Consignor_IdentificationNumber], [nct"& _ "s_Consignor_SubsidiaryNumber], [ncts_Consignor_Name], [ncts_Consignor_StreetNumb"& _ "er], [ncts_Consignor_City], [ncts_Consignor_Postcode], [ncts_Consignor_Country],"& _ " [ncts_Consignor_ContactPerson_Name], [ncts_Consignor_ContactPerson_PhoneNumber]"& _ ", [ncts_Consignor_ContactPerson_EMailAddress], [ncts_Consignee_AdressCode], [nct"& _ "s_Consignee_IdentificationNumber], [ncts_Consignee_SubsidiaryNumber], [ncts_Cons"& _ "ignee_Name], [ncts_Consignee_StreetNumber], [ncts_Consignee_City], [ncts_Consign"& _ "ee_Postcode], [ncts_Consignee_Country], [ncts_Consignee_ContactPerson_Name], [nc"& _ "ts_Consignee_ContactPerson_PhoneNumber], [ncts_Consignee_ContactPerson_EMailAddr"& _ "ess], [ncts_HolderOfTheTransitProcedure_AdressCode], [ncts_HolderOfTheTransitPro"& _ "cedure_IdentificationNumber], [ncts_HolderOfTheTransitProcedure_TIRHolderIdentif"& _ "icationNumber], [ncts_HolderOfTheTransitProcedure_Name], [ncts_HolderOfTheTransi"& _ "tProcedure_StreetNumber], [ncts_HolderOfTheTransitProcedure_City], [ncts_HolderO"& _ "fTheTransitProcedure_Postcode], [ncts_HolderOfTheTransitProcedure_Country], [nct"& _ "s_HolderOfTheTransitProcedure_ContactPerson_Name], [ncts_HolderOfTheTransitProce"& _ "dure_ContactPerson_PhoneNumber], [ncts_HolderOfTheTransitProcedure_ContactPerson"& _ "_EMailAddress], [ncts_Representative_AdressCode], [ncts_Representative_Identific"& _ "ationNumber], [ncts_Representative_ContactPerson_Name], [ncts_Representative_Con"& _ "tactPerson_PhoneNumber], [ncts_Representative_ContactPerson_EMailAddress], [ncts"& _ "_AdditionalSupplyChainActor_1_Role], [ncts_AdditionalSupplyChainActor_1_Identifi"& _ "cationNumber], [ncts_AdditionalSupplyChainActor_2_Role], [ncts_AdditionalSupplyC"& _ "hainActor_2_IdentificationNumber], [ncts_AdditionalSupplyChainActor_3_Role], [nc"& _ "ts_AdditionalSupplyChainActor_3_IdentificationNumber], [ncts_AdditionalSupplyCha"& _ "inActor_4_Role], [ncts_AdditionalSupplyChainActor_4_IdentificationNumber], [ncts"& _ "_AdditionalSupplyChainActor_5_Role], [ncts_AdditionalSupplyChainActor_5_Identifi"& _ "cationNumber], [ncts_AdditionalSupplyChainActor_6_Role], [ncts_AdditionalSupplyC"& _ "hainActor_6_IdentificationNumber], [ncts_AdditionalSupplyChainActor_7_Role], [nc"& _ "ts_AdditionalSupplyChainActor_7_IdentificationNumber], [ncts_AdditionalSupplyCha"& _ "inActor_8_Role], [ncts_AdditionalSupplyChainActor_8_IdentificationNumber], [ncts"& _ "_AdditionalSupplyChainActor_9_Role], [ncts_AdditionalSupplyChainActor_9_Identifi"& _ "cationNumber], [ncts_Security], [ncts_ReferenceNumberUCR], [ncts_SpecificCircoms"& _ "tanceIndicator], [ncts_PlaceOfLoading_Location], [ncts_PlaceOfLoading_Country], "& _ "[ncts_PlaceOfUnLoading_Location], [ncts_PlaceOfUnLoading_Country], [ncts_Transpo"& _ "rtCharges], [ncts_CountryOfRoutingOfConsignment_1], [ncts_CountryOfRoutingOfCons"& _ "ignment_2], [ncts_CountryOfRoutingOfConsignment_3], [ncts_CountryOfRoutingOfCons"& _ "ignment_4], [ncts_CountryOfRoutingOfConsignment_5], [ncts_CountryOfRoutingOfCons"& _ "ignment_6], [ncts_CountryOfRoutingOfConsignment_7], [ncts_CountryOfRoutingOfCons"& _ "ignment_8], [ncts_CountryOfRoutingOfConsignment_9], [ncts_CountryOfRoutingOfCons"& _ "ignment_10], [ncts_CountryOfRoutingOfConsignment_11], [ncts_CountryOfRoutingOfCo"& _ "nsignment_12], [ncts_CountryOfRoutingOfConsignment_13], [ncts_CountryOfRoutingOf"& _ "Consignment_14], [ncts_CountryOfRoutingOfConsignment_15], [ncts_Carrier_AdressCo"& _ "de], [ncts_Carrier_IdentificationNumber], [ncts_Carrier_SubsidiaryNumber], [ncts"& _ "_Carrier_ContactPerson_Name], [ncts_Carrier_ContactPerson_PhoneNumber], [ncts_Ca"& _ "rrier_ContactPerson_EMailAddress], [ncts_SupportingDocument_1_Type], [ncts_Suppo"& _ "rtingDocument_1_ReferenceNumber], [ncts_SupportingDocument_1_DocumentLineItemNum"& _ "ber], [ncts_SupportingDocument_1_ComplementOfInformation], [ncts_SupportingDocum"& _ "ent_2_Type], [ncts_SupportingDocument_2_ReferenceNumber], [ncts_SupportingDocume"& _ "nt_2_DocumentLineItemNumber], [ncts_SupportingDocument_2_ComplementOfInformation"& _ "], [ncts_SupportingDocument_3_Type], [ncts_SupportingDocument_3_ReferenceNumber]"& _ ", [ncts_SupportingDocument_3_DocumentLineItemNumber], [ncts_SupportingDocument_3"& _ "_ComplementOfInformation], [ncts_SupportingDocument_4_Type], [ncts_SupportingDoc"& _ "ument_4_ReferenceNumber], [ncts_SupportingDocument_4_DocumentLineItemNumber], [n"& _ "cts_SupportingDocument_4_ComplementOfInformation], [ncts_SupportingDocument_5_Ty"& _ "pe], [ncts_SupportingDocument_5_ReferenceNumber], [ncts_SupportingDocument_5_Doc"& _ "umentLineItemNumber], [ncts_SupportingDocument_5_ComplementOfInformation], [ncts"& _ "_SupportingDocument_6_Type], [ncts_SupportingDocument_6_ReferenceNumber], [ncts_"& _ "SupportingDocument_6_DocumentLineItemNumber], [ncts_SupportingDocument_6_Complem"& _ "entOfInformation], [ncts_SupportingDocument_7_Type], [ncts_SupportingDocument_7_"& _ "ReferenceNumber], [ncts_SupportingDocument_7_DocumentLineItemNumber], [ncts_Supp"& _ "ortingDocument_7_ComplementOfInformation], [ncts_SupportingDocument_8_Type], [nc"& _ "ts_SupportingDocument_8_ReferenceNumber], [ncts_SupportingDocument_8_DocumentLin"& _ "eItemNumber], [ncts_SupportingDocument_8_ComplementOfInformation], [ncts_Support"& _ "ingDocument_9_Type], [ncts_SupportingDocument_9_ReferenceNumber], [ncts_Supporti"& _ "ngDocument_9_DocumentLineItemNumber], [ncts_SupportingDocument_9_ComplementOfInf"& _ "ormation], [ncts_PreviousDocument_1_Type], [ncts_PreviousDocument_1_ReferenceNum"& _ "ber], [ncts_PreviousDocument_1_ComplementOfInformation], [ncts_PreviousDocument_"& _ "2_Type], [ncts_PreviousDocument_2_ReferenceNumber], [ncts_PreviousDocument_2_Com"& _ "plementOfInformation], [ncts_PreviousDocument_3_Type], [ncts_PreviousDocument_3_"& _ "ReferenceNumber], [ncts_PreviousDocument_3_ComplementOfInformation], [ncts_Previ"& _ "ousDocument_4_Type], [ncts_PreviousDocument_4_ReferenceNumber], [ncts_PreviousDo"& _ "cument_4_ComplementOfInformation], [ncts_PreviousDocument_5_Type], [ncts_Previou"& _ "sDocument_5_ReferenceNumber], [ncts_PreviousDocument_5_ComplementOfInformation],"& _ " [ncts_PreviousDocument_6_Type], [ncts_PreviousDocument_6_ReferenceNumber], [nct"& _ "s_PreviousDocument_6_ComplementOfInformation], [ncts_PreviousDocument_7_Type], ["& _ "ncts_PreviousDocument_7_ReferenceNumber], [ncts_PreviousDocument_7_ComplementOfI"& _ "nformation], [ncts_PreviousDocument_8_Type], [ncts_PreviousDocument_8_ReferenceN"& _ "umber], [ncts_PreviousDocument_8_ComplementOfInformation], [ncts_PreviousDocumen"& _ "t_9_Type], [ncts_PreviousDocument_9_ReferenceNumber], [ncts_PreviousDocument_9_C"& _ "omplementOfInformation], [ncts_TransportDocument_1_Type], [ncts_TransportDocumen"& _ "t_1_ReferenceNumber], [ncts_TransportDocument_2_Type], [ncts_TransportDocument_2"& _ "_ReferenceNumber], [ncts_TransportDocument_3_Type], [ncts_TransportDocument_3_Re"& _ "ferenceNumber], [ncts_TransportDocument_4_Type], [ncts_TransportDocument_4_Refer"& _ "enceNumber], [ncts_TransportDocument_5_Type], [ncts_TransportDocument_5_Referenc"& _ "eNumber], [ncts_TransportDocument_6_Type], [ncts_TransportDocument_6_ReferenceNu"& _ "mber], [ncts_TransportDocument_7_Type], [ncts_TransportDocument_7_ReferenceNumbe"& _ "r], [ncts_TransportDocument_8_Type], [ncts_TransportDocument_8_ReferenceNumber],"& _ " [ncts_TransportDocument_9_Type], [ncts_TransportDocument_9_ReferenceNumber], [n"& _ "cts_AdditionalReference_1_Type], [ncts_AdditionalReference_1_ReferenceNumber], ["& _ "ncts_AdditionalReference_2_Type], [ncts_AdditionalReference_2_ReferenceNumber], "& _ "[ncts_AdditionalReference_3_Type], [ncts_AdditionalReference_3_ReferenceNumber],"& _ " [ncts_AdditionalReference_4_Type], [ncts_AdditionalReference_4_ReferenceNumber]"& _ ", [ncts_AdditionalReference_5_Type], [ncts_AdditionalReference_5_ReferenceNumber"& _ "], [ncts_AdditionalReference_6_Type], [ncts_AdditionalReference_6_ReferenceNumbe"& _ "r], [ncts_AdditionalReference_7_Type], [ncts_AdditionalReference_7_ReferenceNumb"& _ "er], [ncts_AdditionalReference_8_Type], [ncts_AdditionalReference_8_ReferenceNum"& _ "ber], [ncts_AdditionalReference_9_Type], [ncts_AdditionalReference_9_ReferenceNu"& _ "mber], [ncts_AdditionalInformation_1_Code], [ncts_AdditionalInformation_1_Text],"& _ " [ncts_AdditionalInformation_2_Code], [ncts_AdditionalInformation_2_Text], [ncts"& _ "_AdditionalInformation_3_Code], [ncts_AdditionalInformation_3_Text], [ncts_Addit"& _ "ionalInformation_4_Code], [ncts_AdditionalInformation_4_Text], [ncts_AdditionalI"& _ "nformation_5_Code], [ncts_AdditionalInformation_5_Text], [ncts_AdditionalInforma"& _ "tion_6_Code], [ncts_AdditionalInformation_6_Text], [ncts_AdditionalInformation_7"& _ "_Code], [ncts_AdditionalInformation_7_Text], [ncts_AdditionalInformation_8_Code]"& _ ", [ncts_AdditionalInformation_8_Text], [ncts_AdditionalInformation_9_Code], [nct"& _ "s_AdditionalInformation_9_Text], [ncts_AUTOIMPIndicator], [ncts_Stammreferenz], "& _ "[ncts_ModeOfTransportAtTheBorder], [ncts_Eroeffnung], [ncts_Ankunft], [ncts_Erle"& _ "digung]) VALUES (@ncts_Status, @ncts_Status_KEWILL_Equivalent, @ncts_dyaArt, @nc"& _ "ts_dyaAnmID, @ncts_ANR, @ncts_MRN, @ncts_Erstellung, @ncts_Erstellung_SB, @ncts_"& _ "LetzteBearbeitung, @ncts_LetzteBearbeitung_SB, @ncts_firma, @ncts_niederlassung,"& _ " @ncts_Gestellt, @ncts_GestelltAm, @ncts_Trans_Partner, @ncts_Trans_Div1, @ncts_"& _ "Trans_Div2, @ncts_Trans_Div3, @ncts_Trans_Referenz, @ncts_Trans_DatumZeit, @ncts"& _ "_Trans_Version, @ncts_NachrichtenSenderTIN, @ncts_NachrichtenSenderNLNR, @ncts_N"& _ "achrichtenempfaengerDST, @ncts_ObjectName, @ncts_ObjectAlias, @ncts_Bezugsnummer"& _ "Vorblendung, @ncts_Bearbeiter, @ncts_CountryOfDispatch, @ncts_CountryOfDestinati"& _ "on, @ncts_Declarationtype, @ncts_TIRCarnetNumber, @ncts_ReductedDatasetIndicator"& _ ", @ncts_LocationOfGoods_TypeofLocation, @ncts_LocationOfGoods_QualifierIdenfitic"& _ "ation, @ncts_LocationOfGoods_AdditionalIdentifier, @ncts_LocationOfGoods_Contact"& _ "Person_Name, @ncts_LocationOfGoods_ContactPerson_PhoneNumber, @ncts_LocationOfGo"& _ "ods_ContactPerson_EMailAddress, @ncts_CustomsOfficeOfTransitDeclared_1_RefNumber"& _ ", @ncts_CustomsOfficeOfTransitDeclared_2_RefNumber, @ncts_CustomsOfficeOfTransit"& _ "Declared_3_RefNumber, @ncts_CustomsOfficeOfTransitDeclared_4_RefNumber, @ncts_Cu"& _ "stomsOfficeOfTransitDeclared_5_RefNumber, @ncts_CustomsOfficeOfTransitDeclared_6"& _ "_RefNumber, @ncts_CustomsOfficeOfTransitDeclared_7_RefNumber, @ncts_CustomsOffic"& _ "eOfTransitDeclared_8_RefNumber, @ncts_CustomsOfficeOfTransitDeclared_9_RefNumber"& _ ", @ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime, @ncts_CustomsOfficeOf"& _ "TransitDeclared_2_ArravialDateTime, @ncts_CustomsOfficeOfTransitDeclared_3_Arrav"& _ "ialDateTime, @ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime, @ncts_Cust"& _ "omsOfficeOfTransitDeclared_5_ArravialDateTime, @ncts_CustomsOfficeOfTransitDecla"& _ "red_6_ArravialDateTime, @ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime,"& _ " @ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime, @ncts_CustomsOfficeOfT"& _ "ransitDeclared_9_ArravialDateTime, @ncts_CustomsOfficeOfDestinationDeclared, @nc"& _ "ts_CustomsOfficeOfDeparture, @ncts_CustomsOfficeOfExitForTransitDeclared, @ncts_"& _ "LimitDate, @ncts_TransitDeclarationType, @ncts_GrossMass, @ncts_BindingItinerary"& _ ", @ncts_ContainerIndicator, @ncts_InlandModeOfTransport, @ncts_DepartureTranspor"& _ "tMeans_1_TypeOfIdentification, @ncts_DepartureTransportMeans_1_IdentificationNum"& _ "ber, @ncts_DepartureTransportMeans_1_Nationality, @ncts_DepartureTransportMeans_"& _ "2_TypeOfIdentification, @ncts_DepartureTransportMeans_2_IdentificationNumber, @n"& _ "cts_DepartureTransportMeans_2_Nationality, @ncts_DepartureTransportMeans_3_TypeO"& _ "fIdentification, @ncts_DepartureTransportMeans_3_IdentificationNumber, @ncts_Dep"& _ "artureTransportMeans_3_Nationality, @ncts_DepartureTransportMeans_4_TypeOfIdenti"& _ "fication, @ncts_DepartureTransportMeans_4_IdentificationNumber, @ncts_DepartureT"& _ "ransportMeans_4_Nationality, @ncts_ActiveBorderTransportMeans_1_TypeOfIdentifica"& _ "tion, @ncts_ActiveBorderTransportMeans_1_IdentificationNumber, @ncts_ActiveBorde"& _ "rTransportMeans_1_Nationality, @ncts_ActiveBorderTransportMeans_1_CoveyanceRefer"& _ "enceNumber, @ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared, @n"& _ "cts_ActiveBorderTransportMeans_2_TypeOfIdentification, @ncts_ActiveBorderTranspo"& _ "rtMeans_2_IdentificationNumber, @ncts_ActiveBorderTransportMeans_2_Nationality, "& _ "@ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber, @ncts_ActiveBorderT"& _ "ransportMeans_2_CustomsOfficeAtBorderDeclared, @ncts_ActiveBorderTransportMeans_"& _ "3_TypeOfIdentification, @ncts_ActiveBorderTransportMeans_3_IdentificationNumber,"& _ " @ncts_ActiveBorderTransportMeans_3_Nationality, @ncts_ActiveBorderTransportMean"& _ "s_3_CoveyanceReferenceNumber, @ncts_ActiveBorderTransportMeans_3_CustomsOfficeAt"& _ "BorderDeclared, @ncts_ActiveBorderTransportMeans_4_TypeOfIdentification, @ncts_A"& _ "ctiveBorderTransportMeans_4_IdentificationNumber, @ncts_ActiveBorderTransportMea"& _ "ns_4_Nationality, @ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber, @"& _ "ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared, @ncts_Authorisa"& _ "tion_1_Type, @ncts_Authorisation_1_ReferenceNumber, @ncts_Authorisation_2_Type, "& _ "@ncts_Authorisation_2_ReferenceNumber, @ncts_Authorisation_3_Type, @ncts_Authori"& _ "sation_3_ReferenceNumber, @ncts_Authorisation_4_Type, @ncts_Authorisation_4_Refe"& _ "renceNumber, @ncts_Authorisation_5_Type, @ncts_Authorisation_5_ReferenceNumber, "& _ "@ncts_Authorisation_6_Type, @ncts_Authorisation_6_ReferenceNumber, @ncts_Authori"& _ "sation_7_Type, @ncts_Authorisation_7_ReferenceNumber, @ncts_Authorisation_8_Type"& _ ", @ncts_Authorisation_8_ReferenceNumber, @ncts_Authorisation_9_Type, @ncts_Autho"& _ "risation_9_ReferenceNumber, @ncts_Consignor_AdressCode, @ncts_Consignor_Identifi"& _ "cationNumber, @ncts_Consignor_SubsidiaryNumber, @ncts_Consignor_Name, @ncts_Cons"& _ "ignor_StreetNumber, @ncts_Consignor_City, @ncts_Consignor_Postcode, @ncts_Consig"& _ "nor_Country, @ncts_Consignor_ContactPerson_Name, @ncts_Consignor_ContactPerson_P"& _ "honeNumber, @ncts_Consignor_ContactPerson_EMailAddress, @ncts_Consignee_AdressCo"& _ "de, @ncts_Consignee_IdentificationNumber, @ncts_Consignee_SubsidiaryNumber, @nct"& _ "s_Consignee_Name, @ncts_Consignee_StreetNumber, @ncts_Consignee_City, @ncts_Cons"& _ "ignee_Postcode, @ncts_Consignee_Country, @ncts_Consignee_ContactPerson_Name, @nc"& _ "ts_Consignee_ContactPerson_PhoneNumber, @ncts_Consignee_ContactPerson_EMailAddre"& _ "ss, @ncts_HolderOfTheTransitProcedure_AdressCode, @ncts_HolderOfTheTransitProced"& _ "ure_IdentificationNumber, @ncts_HolderOfTheTransitProcedure_TIRHolderIdentificat"& _ "ionNumber, @ncts_HolderOfTheTransitProcedure_Name, @ncts_HolderOfTheTransitProce"& _ "dure_StreetNumber, @ncts_HolderOfTheTransitProcedure_City, @ncts_HolderOfTheTran"& _ "sitProcedure_Postcode, @ncts_HolderOfTheTransitProcedure_Country, @ncts_HolderOf"& _ "TheTransitProcedure_ContactPerson_Name, @ncts_HolderOfTheTransitProcedure_Contac"& _ "tPerson_PhoneNumber, @ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddres"& _ "s, @ncts_Representative_AdressCode, @ncts_Representative_IdentificationNumber, @"& _ "ncts_Representative_ContactPerson_Name, @ncts_Representative_ContactPerson_Phone"& _ "Number, @ncts_Representative_ContactPerson_EMailAddress, @ncts_AdditionalSupplyC"& _ "hainActor_1_Role, @ncts_AdditionalSupplyChainActor_1_IdentificationNumber, @ncts"& _ "_AdditionalSupplyChainActor_2_Role, @ncts_AdditionalSupplyChainActor_2_Identific"& _ "ationNumber, @ncts_AdditionalSupplyChainActor_3_Role, @ncts_AdditionalSupplyChai"& _ "nActor_3_IdentificationNumber, @ncts_AdditionalSupplyChainActor_4_Role, @ncts_Ad"& _ "ditionalSupplyChainActor_4_IdentificationNumber, @ncts_AdditionalSupplyChainActo"& _ "r_5_Role, @ncts_AdditionalSupplyChainActor_5_IdentificationNumber, @ncts_Additio"& _ "nalSupplyChainActor_6_Role, @ncts_AdditionalSupplyChainActor_6_IdentificationNum"& _ "ber, @ncts_AdditionalSupplyChainActor_7_Role, @ncts_AdditionalSupplyChainActor_7"& _ "_IdentificationNumber, @ncts_AdditionalSupplyChainActor_8_Role, @ncts_Additional"& _ "SupplyChainActor_8_IdentificationNumber, @ncts_AdditionalSupplyChainActor_9_Role"& _ ", @ncts_AdditionalSupplyChainActor_9_IdentificationNumber, @ncts_Security, @ncts"& _ "_ReferenceNumberUCR, @ncts_SpecificCircomstanceIndicator, @ncts_PlaceOfLoading_L"& _ "ocation, @ncts_PlaceOfLoading_Country, @ncts_PlaceOfUnLoading_Location, @ncts_Pl"& _ "aceOfUnLoading_Country, @ncts_TransportCharges, @ncts_CountryOfRoutingOfConsignm"& _ "ent_1, @ncts_CountryOfRoutingOfConsignment_2, @ncts_CountryOfRoutingOfConsignmen"& _ "t_3, @ncts_CountryOfRoutingOfConsignment_4, @ncts_CountryOfRoutingOfConsignment_"& _ "5, @ncts_CountryOfRoutingOfConsignment_6, @ncts_CountryOfRoutingOfConsignment_7,"& _ " @ncts_CountryOfRoutingOfConsignment_8, @ncts_CountryOfRoutingOfConsignment_9, @"& _ "ncts_CountryOfRoutingOfConsignment_10, @ncts_CountryOfRoutingOfConsignment_11, @"& _ "ncts_CountryOfRoutingOfConsignment_12, @ncts_CountryOfRoutingOfConsignment_13, @"& _ "ncts_CountryOfRoutingOfConsignment_14, @ncts_CountryOfRoutingOfConsignment_15, @"& _ "ncts_Carrier_AdressCode, @ncts_Carrier_IdentificationNumber, @ncts_Carrier_Subsi"& _ "diaryNumber, @ncts_Carrier_ContactPerson_Name, @ncts_Carrier_ContactPerson_Phone"& _ "Number, @ncts_Carrier_ContactPerson_EMailAddress, @ncts_SupportingDocument_1_Typ"& _ "e, @ncts_SupportingDocument_1_ReferenceNumber, @ncts_SupportingDocument_1_Docume"& _ "ntLineItemNumber, @ncts_SupportingDocument_1_ComplementOfInformation, @ncts_Supp"& _ "ortingDocument_2_Type, @ncts_SupportingDocument_2_ReferenceNumber, @ncts_Support"& _ "ingDocument_2_DocumentLineItemNumber, @ncts_SupportingDocument_2_ComplementOfInf"& _ "ormation, @ncts_SupportingDocument_3_Type, @ncts_SupportingDocument_3_ReferenceN"& _ "umber, @ncts_SupportingDocument_3_DocumentLineItemNumber, @ncts_SupportingDocume"& _ "nt_3_ComplementOfInformation, @ncts_SupportingDocument_4_Type, @ncts_SupportingD"& _ "ocument_4_ReferenceNumber, @ncts_SupportingDocument_4_DocumentLineItemNumber, @n"& _ "cts_SupportingDocument_4_ComplementOfInformation, @ncts_SupportingDocument_5_Typ"& _ "e, @ncts_SupportingDocument_5_ReferenceNumber, @ncts_SupportingDocument_5_Docume"& _ "ntLineItemNumber, @ncts_SupportingDocument_5_ComplementOfInformation, @ncts_Supp"& _ "ortingDocument_6_Type, @ncts_SupportingDocument_6_ReferenceNumber, @ncts_Support"& _ "ingDocument_6_DocumentLineItemNumber, @ncts_SupportingDocument_6_ComplementOfInf"& _ "ormation, @ncts_SupportingDocument_7_Type, @ncts_SupportingDocument_7_ReferenceN"& _ "umber, @ncts_SupportingDocument_7_DocumentLineItemNumber, @ncts_SupportingDocume"& _ "nt_7_ComplementOfInformation, @ncts_SupportingDocument_8_Type, @ncts_SupportingD"& _ "ocument_8_ReferenceNumber, @ncts_SupportingDocument_8_DocumentLineItemNumber, @n"& _ "cts_SupportingDocument_8_ComplementOfInformation, @ncts_SupportingDocument_9_Typ"& _ "e, @ncts_SupportingDocument_9_ReferenceNumber, @ncts_SupportingDocument_9_Docume"& _ "ntLineItemNumber, @ncts_SupportingDocument_9_ComplementOfInformation, @ncts_Prev"& _ "iousDocument_1_Type, @ncts_PreviousDocument_1_ReferenceNumber, @ncts_PreviousDoc"& _ "ument_1_ComplementOfInformation, @ncts_PreviousDocument_2_Type, @ncts_PreviousDo"& _ "cument_2_ReferenceNumber, @ncts_PreviousDocument_2_ComplementOfInformation, @nct"& _ "s_PreviousDocument_3_Type, @ncts_PreviousDocument_3_ReferenceNumber, @ncts_Previ"& _ "ousDocument_3_ComplementOfInformation, @ncts_PreviousDocument_4_Type, @ncts_Prev"& _ "iousDocument_4_ReferenceNumber, @ncts_PreviousDocument_4_ComplementOfInformation"& _ ", @ncts_PreviousDocument_5_Type, @ncts_PreviousDocument_5_ReferenceNumber, @ncts"& _ "_PreviousDocument_5_ComplementOfInformation, @ncts_PreviousDocument_6_Type, @nct"& _ "s_PreviousDocument_6_ReferenceNumber, @ncts_PreviousDocument_6_ComplementOfInfor"& _ "mation, @ncts_PreviousDocument_7_Type, @ncts_PreviousDocument_7_ReferenceNumber,"& _ " @ncts_PreviousDocument_7_ComplementOfInformation, @ncts_PreviousDocument_8_Type"& _ ", @ncts_PreviousDocument_8_ReferenceNumber, @ncts_PreviousDocument_8_ComplementO"& _ "fInformation, @ncts_PreviousDocument_9_Type, @ncts_PreviousDocument_9_ReferenceN"& _ "umber, @ncts_PreviousDocument_9_ComplementOfInformation, @ncts_TransportDocument"& _ "_1_Type, @ncts_TransportDocument_1_ReferenceNumber, @ncts_TransportDocument_2_Ty"& _ "pe, @ncts_TransportDocument_2_ReferenceNumber, @ncts_TransportDocument_3_Type, @"& _ "ncts_TransportDocument_3_ReferenceNumber, @ncts_TransportDocument_4_Type, @ncts_"& _ "TransportDocument_4_ReferenceNumber, @ncts_TransportDocument_5_Type, @ncts_Trans"& _ "portDocument_5_ReferenceNumber, @ncts_TransportDocument_6_Type, @ncts_TransportD"& _ "ocument_6_ReferenceNumber, @ncts_TransportDocument_7_Type, @ncts_TransportDocume"& _ "nt_7_ReferenceNumber, @ncts_TransportDocument_8_Type, @ncts_TransportDocument_8_"& _ "ReferenceNumber, @ncts_TransportDocument_9_Type, @ncts_TransportDocument_9_Refer"& _ "enceNumber, @ncts_AdditionalReference_1_Type, @ncts_AdditionalReference_1_Refere"& _ "nceNumber, @ncts_AdditionalReference_2_Type, @ncts_AdditionalReference_2_Referen"& _ "ceNumber, @ncts_AdditionalReference_3_Type, @ncts_AdditionalReference_3_Referenc"& _ "eNumber, @ncts_AdditionalReference_4_Type, @ncts_AdditionalReference_4_Reference"& _ "Number, @ncts_AdditionalReference_5_Type, @ncts_AdditionalReference_5_ReferenceN"& _ "umber, @ncts_AdditionalReference_6_Type, @ncts_AdditionalReference_6_ReferenceNu"& _ "mber, @ncts_AdditionalReference_7_Type, @ncts_AdditionalReference_7_ReferenceNum"& _ "ber, @ncts_AdditionalReference_8_Type, @ncts_AdditionalReference_8_ReferenceNumb"& _ "er, @ncts_AdditionalReference_9_Type, @ncts_AdditionalReference_9_ReferenceNumbe"& _ "r, @ncts_AdditionalInformation_1_Code, @ncts_AdditionalInformation_1_Text, @ncts"& _ "_AdditionalInformation_2_Code, @ncts_AdditionalInformation_2_Text, @ncts_Additio"& _ "nalInformation_3_Code, @ncts_AdditionalInformation_3_Text, @ncts_AdditionalInfor"& _ "mation_4_Code, @ncts_AdditionalInformation_4_Text, @ncts_AdditionalInformation_5"& _ "_Code, @ncts_AdditionalInformation_5_Text, @ncts_AdditionalInformation_6_Code, @"& _ "ncts_AdditionalInformation_6_Text, @ncts_AdditionalInformation_7_Code, @ncts_Add"& _ "itionalInformation_7_Text, @ncts_AdditionalInformation_8_Code, @ncts_AdditionalI"& _ "nformation_8_Text, @ncts_AdditionalInformation_9_Code, @ncts_AdditionalInformati"& _ "on_9_Text, @ncts_AUTOIMPIndicator, @ncts_Stammreferenz, @ncts_ModeOfTransportAtT"& _ "heBorder, @ncts_Eroeffnung, @ncts_Ankunft, @ncts_Erledigung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ncts_Id, n"& _ "cts_Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR,"& _ " ncts_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_Let"& _ "zteBearbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_GestelltA"& _ "m, ncts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_T"& _ "rans_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenSenderT"& _ "IN, ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, "& _ "ncts_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_CountryOfD"& _ "ispatch, ncts_CountryOfDestination, ncts_Declarationtype, ncts_TIRCarnetNumber, "& _ "ncts_ReductedDatasetIndicator, ncts_LocationOfGoods_TypeofLocation, ncts_Locatio"& _ "nOfGoods_QualifierIdenfitication, ncts_LocationOfGoods_AdditionalIdentifier, nct"& _ "s_LocationOfGoods_ContactPerson_Name, ncts_LocationOfGoods_ContactPerson_PhoneNu"& _ "mber, ncts_LocationOfGoods_ContactPerson_EMailAddress, ncts_CustomsOfficeOfTrans"& _ "itDeclared_1_RefNumber, ncts_CustomsOfficeOfTransitDeclared_2_RefNumber, ncts_Cu"& _ "stomsOfficeOfTransitDeclared_3_RefNumber, ncts_CustomsOfficeOfTransitDeclared_4_"& _ "RefNumber, ncts_CustomsOfficeOfTransitDeclared_5_RefNumber, ncts_CustomsOfficeOf"& _ "TransitDeclared_6_RefNumber, ncts_CustomsOfficeOfTransitDeclared_7_RefNumber, nc"& _ "ts_CustomsOfficeOfTransitDeclared_8_RefNumber, ncts_CustomsOfficeOfTransitDeclar"& _ "ed_9_RefNumber, ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime, ncts_Cus"& _ "tomsOfficeOfTransitDeclared_2_ArravialDateTime, ncts_CustomsOfficeOfTransitDecla"& _ "red_3_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime, "& _ "ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime, ncts_CustomsOfficeOfTran"& _ "sitDeclared_6_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_7_ArravialDa"& _ "teTime, ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime, ncts_CustomsOffi"& _ "ceOfTransitDeclared_9_ArravialDateTime, ncts_CustomsOfficeOfDestinationDeclared,"& _ " ncts_CustomsOfficeOfDeparture, ncts_CustomsOfficeOfExitForTransitDeclared, ncts"& _ "_LimitDate, ncts_TransitDeclarationType, ncts_GrossMass, ncts_BindingItinerary, "& _ "ncts_ContainerIndicator, ncts_InlandModeOfTransport, ncts_DepartureTransportMean"& _ "s_1_TypeOfIdentification, ncts_DepartureTransportMeans_1_IdentificationNumber, n"& _ "cts_DepartureTransportMeans_1_Nationality, ncts_DepartureTransportMeans_2_TypeOf"& _ "Identification, ncts_DepartureTransportMeans_2_IdentificationNumber, ncts_Depart"& _ "ureTransportMeans_2_Nationality, ncts_DepartureTransportMeans_3_TypeOfIdentifica"& _ "tion, ncts_DepartureTransportMeans_3_IdentificationNumber, ncts_DepartureTranspo"& _ "rtMeans_3_Nationality, ncts_DepartureTransportMeans_4_TypeOfIdentification, ncts"& _ "_DepartureTransportMeans_4_IdentificationNumber, ncts_DepartureTransportMeans_4_"& _ "Nationality, ncts_ActiveBorderTransportMeans_1_TypeOfIdentification, ncts_Active"& _ "BorderTransportMeans_1_IdentificationNumber, ncts_ActiveBorderTransportMeans_1_N"& _ "ationality, ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber, ncts_Act"& _ "iveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared, ncts_ActiveBorderTransp"& _ "ortMeans_2_TypeOfIdentification, ncts_ActiveBorderTransportMeans_2_Identificatio"& _ "nNumber, ncts_ActiveBorderTransportMeans_2_Nationality, ncts_ActiveBorderTranspo"& _ "rtMeans_2_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_2_CustomsOff"& _ "iceAtBorderDeclared, ncts_ActiveBorderTransportMeans_3_TypeOfIdentification, nct"& _ "s_ActiveBorderTransportMeans_3_IdentificationNumber, ncts_ActiveBorderTransportM"& _ "eans_3_Nationality, ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber, "& _ "ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared, ncts_ActiveBord"& _ "erTransportMeans_4_TypeOfIdentification, ncts_ActiveBorderTransportMeans_4_Ident"& _ "ificationNumber, ncts_ActiveBorderTransportMeans_4_Nationality, ncts_ActiveBorde"& _ "rTransportMeans_4_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_4_Cu"& _ "stomsOfficeAtBorderDeclared, ncts_Authorisation_1_Type, ncts_Authorisation_1_Ref"& _ "erenceNumber, ncts_Authorisation_2_Type, ncts_Authorisation_2_ReferenceNumber, n"& _ "cts_Authorisation_3_Type, ncts_Authorisation_3_ReferenceNumber, ncts_Authorisati"& _ "on_4_Type, ncts_Authorisation_4_ReferenceNumber, ncts_Authorisation_5_Type, ncts"& _ "_Authorisation_5_ReferenceNumber, ncts_Authorisation_6_Type, ncts_Authorisation_"& _ "6_ReferenceNumber, ncts_Authorisation_7_Type, ncts_Authorisation_7_ReferenceNumb"& _ "er, ncts_Authorisation_8_Type, ncts_Authorisation_8_ReferenceNumber, ncts_Author"& _ "isation_9_Type, ncts_Authorisation_9_ReferenceNumber, ncts_Consignor_AdressCode,"& _ " ncts_Consignor_IdentificationNumber, ncts_Consignor_SubsidiaryNumber, ncts_Cons"& _ "ignor_Name, ncts_Consignor_StreetNumber, ncts_Consignor_City, ncts_Consignor_Pos"& _ "tcode, ncts_Consignor_Country, ncts_Consignor_ContactPerson_Name, ncts_Consignor"& _ "_ContactPerson_PhoneNumber, ncts_Consignor_ContactPerson_EMailAddress, ncts_Cons"& _ "ignee_AdressCode, ncts_Consignee_IdentificationNumber, ncts_Consignee_Subsidiary"& _ "Number, ncts_Consignee_Name, ncts_Consignee_StreetNumber, ncts_Consignee_City, n"& _ "cts_Consignee_Postcode, ncts_Consignee_Country, ncts_Consignee_ContactPerson_Nam"& _ "e, ncts_Consignee_ContactPerson_PhoneNumber, ncts_Consignee_ContactPerson_EMailA"& _ "ddress, ncts_HolderOfTheTransitProcedure_AdressCode, ncts_HolderOfTheTransitProc"& _ "edure_IdentificationNumber, ncts_HolderOfTheTransitProcedure_TIRHolderIdentifica"& _ "tionNumber, ncts_HolderOfTheTransitProcedure_Name, ncts_HolderOfTheTransitProced"& _ "ure_StreetNumber, ncts_HolderOfTheTransitProcedure_City, ncts_HolderOfTheTransit"& _ "Procedure_Postcode, ncts_HolderOfTheTransitProcedure_Country, ncts_HolderOfTheTr"& _ "ansitProcedure_ContactPerson_Name, ncts_HolderOfTheTransitProcedure_ContactPerso"& _ "n_PhoneNumber, ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress, ncts"& _ "_Representative_AdressCode, ncts_Representative_IdentificationNumber, ncts_Repre"& _ "sentative_ContactPerson_Name, ncts_Representative_ContactPerson_PhoneNumber, nct"& _ "s_Representative_ContactPerson_EMailAddress, ncts_AdditionalSupplyChainActor_1_R"& _ "ole, ncts_AdditionalSupplyChainActor_1_IdentificationNumber, ncts_AdditionalSupp"& _ "lyChainActor_2_Role, ncts_AdditionalSupplyChainActor_2_IdentificationNumber, nct"& _ "s_AdditionalSupplyChainActor_3_Role, ncts_AdditionalSupplyChainActor_3_Identific"& _ "ationNumber, ncts_AdditionalSupplyChainActor_4_Role, ncts_AdditionalSupplyChainA"& _ "ctor_4_IdentificationNumber, ncts_AdditionalSupplyChainActor_5_Role, ncts_Additi"& _ "onalSupplyChainActor_5_IdentificationNumber, ncts_AdditionalSupplyChainActor_6_R"& _ "ole, ncts_AdditionalSupplyChainActor_6_IdentificationNumber, ncts_AdditionalSupp"& _ "lyChainActor_7_Role, ncts_AdditionalSupplyChainActor_7_IdentificationNumber, nct"& _ "s_AdditionalSupplyChainActor_8_Role, ncts_AdditionalSupplyChainActor_8_Identific"& _ "ationNumber, ncts_AdditionalSupplyChainActor_9_Role, ncts_AdditionalSupplyChainA"& _ "ctor_9_IdentificationNumber, ncts_Security, ncts_ReferenceNumberUCR, ncts_Specif"& _ "icCircomstanceIndicator, ncts_PlaceOfLoading_Location, ncts_PlaceOfLoading_Count"& _ "ry, ncts_PlaceOfUnLoading_Location, ncts_PlaceOfUnLoading_Country, ncts_Transpor"& _ "tCharges, ncts_CountryOfRoutingOfConsignment_1, ncts_CountryOfRoutingOfConsignme"& _ "nt_2, ncts_CountryOfRoutingOfConsignment_3, ncts_CountryOfRoutingOfConsignment_4"& _ ", ncts_CountryOfRoutingOfConsignment_5, ncts_CountryOfRoutingOfConsignment_6, nc"& _ "ts_CountryOfRoutingOfConsignment_7, ncts_CountryOfRoutingOfConsignment_8, ncts_C"& _ "ountryOfRoutingOfConsignment_9, ncts_CountryOfRoutingOfConsignment_10, ncts_Coun"& _ "tryOfRoutingOfConsignment_11, ncts_CountryOfRoutingOfConsignment_12, ncts_Countr"& _ "yOfRoutingOfConsignment_13, ncts_CountryOfRoutingOfConsignment_14, ncts_CountryO"& _ "fRoutingOfConsignment_15, ncts_Carrier_AdressCode, ncts_Carrier_IdentificationNu"& _ "mber, ncts_Carrier_SubsidiaryNumber, ncts_Carrier_ContactPerson_Name, ncts_Carri"& _ "er_ContactPerson_PhoneNumber, ncts_Carrier_ContactPerson_EMailAddress, ncts_Supp"& _ "ortingDocument_1_Type, ncts_SupportingDocument_1_ReferenceNumber, ncts_Supportin"& _ "gDocument_1_DocumentLineItemNumber, ncts_SupportingDocument_1_ComplementOfInform"& _ "ation, ncts_SupportingDocument_2_Type, ncts_SupportingDocument_2_ReferenceNumber"& _ ", ncts_SupportingDocument_2_DocumentLineItemNumber, ncts_SupportingDocument_2_Co"& _ "mplementOfInformation, ncts_SupportingDocument_3_Type, ncts_SupportingDocument_3"& _ "_ReferenceNumber, ncts_SupportingDocument_3_DocumentLineItemNumber, ncts_Support"& _ "ingDocument_3_ComplementOfInformation, ncts_SupportingDocument_4_Type, ncts_Supp"& _ "ortingDocument_4_ReferenceNumber, ncts_SupportingDocument_4_DocumentLineItemNumb"& _ "er, ncts_SupportingDocument_4_ComplementOfInformation, ncts_SupportingDocument_5"& _ "_Type, ncts_SupportingDocument_5_ReferenceNumber, ncts_SupportingDocument_5_Docu"& _ "mentLineItemNumber, ncts_SupportingDocument_5_ComplementOfInformation, ncts_Supp"& _ "ortingDocument_6_Type, ncts_SupportingDocument_6_ReferenceNumber, ncts_Supportin"& _ "gDocument_6_DocumentLineItemNumber, ncts_SupportingDocument_6_ComplementOfInform"& _ "ation, ncts_SupportingDocument_7_Type, ncts_SupportingDocument_7_ReferenceNumber"& _ ", ncts_SupportingDocument_7_DocumentLineItemNumber, ncts_SupportingDocument_7_Co"& _ "mplementOfInformation, ncts_SupportingDocument_8_Type, ncts_SupportingDocument_8"& _ "_ReferenceNumber, ncts_SupportingDocument_8_DocumentLineItemNumber, ncts_Support"& _ "ingDocument_8_ComplementOfInformation, ncts_SupportingDocument_9_Type, ncts_Supp"& _ "ortingDocument_9_ReferenceNumber, ncts_SupportingDocument_9_DocumentLineItemNumb"& _ "er, ncts_SupportingDocument_9_ComplementOfInformation, ncts_PreviousDocument_1_T"& _ "ype, ncts_PreviousDocument_1_ReferenceNumber, ncts_PreviousDocument_1_Complement"& _ "OfInformation, ncts_PreviousDocument_2_Type, ncts_PreviousDocument_2_ReferenceNu"& _ "mber, ncts_PreviousDocument_2_ComplementOfInformation, ncts_PreviousDocument_3_T"& _ "ype, ncts_PreviousDocument_3_ReferenceNumber, ncts_PreviousDocument_3_Complement"& _ "OfInformation, ncts_PreviousDocument_4_Type, ncts_PreviousDocument_4_ReferenceNu"& _ "mber, ncts_PreviousDocument_4_ComplementOfInformation, ncts_PreviousDocument_5_T"& _ "ype, ncts_PreviousDocument_5_ReferenceNumber, ncts_PreviousDocument_5_Complement"& _ "OfInformation, ncts_PreviousDocument_6_Type, ncts_PreviousDocument_6_ReferenceNu"& _ "mber, ncts_PreviousDocument_6_ComplementOfInformation, ncts_PreviousDocument_7_T"& _ "ype, ncts_PreviousDocument_7_ReferenceNumber, ncts_PreviousDocument_7_Complement"& _ "OfInformation, ncts_PreviousDocument_8_Type, ncts_PreviousDocument_8_ReferenceNu"& _ "mber, ncts_PreviousDocument_8_ComplementOfInformation, ncts_PreviousDocument_9_T"& _ "ype, ncts_PreviousDocument_9_ReferenceNumber, ncts_PreviousDocument_9_Complement"& _ "OfInformation, ncts_TransportDocument_1_Type, ncts_TransportDocument_1_Reference"& _ "Number, ncts_TransportDocument_2_Type, ncts_TransportDocument_2_ReferenceNumber,"& _ " ncts_TransportDocument_3_Type, ncts_TransportDocument_3_ReferenceNumber, ncts_T"& _ "ransportDocument_4_Type, ncts_TransportDocument_4_ReferenceNumber, ncts_Transpor"& _ "tDocument_5_Type, ncts_TransportDocument_5_ReferenceNumber, ncts_TransportDocume"& _ "nt_6_Type, ncts_TransportDocument_6_ReferenceNumber, ncts_TransportDocument_7_Ty"& _ "pe, ncts_TransportDocument_7_ReferenceNumber, ncts_TransportDocument_8_Type, nct"& _ "s_TransportDocument_8_ReferenceNumber, ncts_TransportDocument_9_Type, ncts_Trans"& _ "portDocument_9_ReferenceNumber, ncts_AdditionalReference_1_Type, ncts_Additional"& _ "Reference_1_ReferenceNumber, ncts_AdditionalReference_2_Type, ncts_AdditionalRef"& _ "erence_2_ReferenceNumber, ncts_AdditionalReference_3_Type, ncts_AdditionalRefere"& _ "nce_3_ReferenceNumber, ncts_AdditionalReference_4_Type, ncts_AdditionalReference"& _ "_4_ReferenceNumber, ncts_AdditionalReference_5_Type, ncts_AdditionalReference_5_"& _ "ReferenceNumber, ncts_AdditionalReference_6_Type, ncts_AdditionalReference_6_Ref"& _ "erenceNumber, ncts_AdditionalReference_7_Type, ncts_AdditionalReference_7_Refere"& _ "nceNumber, ncts_AdditionalReference_8_Type, ncts_AdditionalReference_8_Reference"& _ "Number, ncts_AdditionalReference_9_Type, ncts_AdditionalReference_9_ReferenceNum"& _ "ber, ncts_AdditionalInformation_1_Code, ncts_AdditionalInformation_1_Text, ncts_"& _ "AdditionalInformation_2_Code, ncts_AdditionalInformation_2_Text, ncts_Additional"& _ "Information_3_Code, ncts_AdditionalInformation_3_Text, ncts_AdditionalInformatio"& _ "n_4_Code, ncts_AdditionalInformation_4_Text, ncts_AdditionalInformation_5_Code, "& _ "ncts_AdditionalInformation_5_Text, ncts_AdditionalInformation_6_Code, ncts_Addit"& _ "ionalInformation_6_Text, ncts_AdditionalInformation_7_Code, ncts_AdditionalInfor"& _ "mation_7_Text, ncts_AdditionalInformation_8_Code, ncts_AdditionalInformation_8_T"& _ "ext, ncts_AdditionalInformation_9_Code, ncts_AdditionalInformation_9_Text, ncts_"& _ "AUTOIMPIndicator, ncts_Stammreferenz, ncts_ModeOfTransportAtTheBorder, ncts_Eroe"& _ "ffnung, ncts_Ankunft, ncts_Erledigung FROM tblDakosy_NCTSOut004 WHERE (ncts_Id ="& _ " SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDispatch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Declarationtype", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Declarationtype", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TIRCarnetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TIRCarnetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ReductedDatasetIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReductedDatasetIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_TypeofLocation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_TypeofLocation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDeparture", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LimitDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LimitDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransitDeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransitDeclarationType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "ncts_GrossMass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BindingItinerary", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BindingItinerary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ContainerIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ContainerIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_InlandModeOfTransport", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_InlandModeOfTransport", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Representative_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Representative_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Representative_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Security", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Security", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SpecificCircomstanceIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SpecificCircomstanceIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PlaceOfLoading_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PlaceOfLoading_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PlaceOfUnLoading_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PlaceOfUnLoading_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportCharges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AUTOIMPIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AUTOIMPIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ModeOfTransportAtTheBorder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ModeOfTransportAtTheBorder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Eroeffnung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Ankunft", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erledigung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", 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].[tblDakosy_NCTSOut004] SET [ncts_Status] = @ncts_Status, [ncts_Statu"& _ "s_KEWILL_Equivalent] = @ncts_Status_KEWILL_Equivalent, [ncts_dyaArt] = @ncts_dya"& _ "Art, [ncts_dyaAnmID] = @ncts_dyaAnmID, [ncts_ANR] = @ncts_ANR, [ncts_MRN] = @nct"& _ "s_MRN, [ncts_Erstellung] = @ncts_Erstellung, [ncts_Erstellung_SB] = @ncts_Erstel"& _ "lung_SB, [ncts_LetzteBearbeitung] = @ncts_LetzteBearbeitung, [ncts_LetzteBearbei"& _ "tung_SB] = @ncts_LetzteBearbeitung_SB, [ncts_firma] = @ncts_firma, [ncts_niederl"& _ "assung] = @ncts_niederlassung, [ncts_Gestellt] = @ncts_Gestellt, [ncts_GestelltA"& _ "m] = @ncts_GestelltAm, [ncts_Trans_Partner] = @ncts_Trans_Partner, [ncts_Trans_D"& _ "iv1] = @ncts_Trans_Div1, [ncts_Trans_Div2] = @ncts_Trans_Div2, [ncts_Trans_Div3]"& _ " = @ncts_Trans_Div3, [ncts_Trans_Referenz] = @ncts_Trans_Referenz, [ncts_Trans_D"& _ "atumZeit] = @ncts_Trans_DatumZeit, [ncts_Trans_Version] = @ncts_Trans_Version, ["& _ "ncts_NachrichtenSenderTIN] = @ncts_NachrichtenSenderTIN, [ncts_NachrichtenSender"& _ "NLNR] = @ncts_NachrichtenSenderNLNR, [ncts_NachrichtenempfaengerDST] = @ncts_Nac"& _ "hrichtenempfaengerDST, [ncts_ObjectName] = @ncts_ObjectName, [ncts_ObjectAlias] "& _ "= @ncts_ObjectAlias, [ncts_BezugsnummerVorblendung] = @ncts_BezugsnummerVorblend"& _ "ung, [ncts_Bearbeiter] = @ncts_Bearbeiter, [ncts_CountryOfDispatch] = @ncts_Coun"& _ "tryOfDispatch, [ncts_CountryOfDestination] = @ncts_CountryOfDestination, [ncts_D"& _ "eclarationtype] = @ncts_Declarationtype, [ncts_TIRCarnetNumber] = @ncts_TIRCarne"& _ "tNumber, [ncts_ReductedDatasetIndicator] = @ncts_ReductedDatasetIndicator, [ncts"& _ "_LocationOfGoods_TypeofLocation] = @ncts_LocationOfGoods_TypeofLocation, [ncts_L"& _ "ocationOfGoods_QualifierIdenfitication] = @ncts_LocationOfGoods_QualifierIdenfit"& _ "ication, [ncts_LocationOfGoods_AdditionalIdentifier] = @ncts_LocationOfGoods_Add"& _ "itionalIdentifier, [ncts_LocationOfGoods_ContactPerson_Name] = @ncts_LocationOfG"& _ "oods_ContactPerson_Name, [ncts_LocationOfGoods_ContactPerson_PhoneNumber] = @nct"& _ "s_LocationOfGoods_ContactPerson_PhoneNumber, [ncts_LocationOfGoods_ContactPerson"& _ "_EMailAddress] = @ncts_LocationOfGoods_ContactPerson_EMailAddress, [ncts_Customs"& _ "OfficeOfTransitDeclared_1_RefNumber] = @ncts_CustomsOfficeOfTransitDeclared_1_Re"& _ "fNumber, [ncts_CustomsOfficeOfTransitDeclared_2_RefNumber] = @ncts_CustomsOffice"& _ "OfTransitDeclared_2_RefNumber, [ncts_CustomsOfficeOfTransitDeclared_3_RefNumber]"& _ " = @ncts_CustomsOfficeOfTransitDeclared_3_RefNumber, [ncts_CustomsOfficeOfTransi"& _ "tDeclared_4_RefNumber] = @ncts_CustomsOfficeOfTransitDeclared_4_RefNumber, [ncts"& _ "_CustomsOfficeOfTransitDeclared_5_RefNumber] = @ncts_CustomsOfficeOfTransitDecla"& _ "red_5_RefNumber, [ncts_CustomsOfficeOfTransitDeclared_6_RefNumber] = @ncts_Custo"& _ "msOfficeOfTransitDeclared_6_RefNumber, [ncts_CustomsOfficeOfTransitDeclared_7_Re"& _ "fNumber] = @ncts_CustomsOfficeOfTransitDeclared_7_RefNumber, [ncts_CustomsOffice"& _ "OfTransitDeclared_8_RefNumber] = @ncts_CustomsOfficeOfTransitDeclared_8_RefNumbe"& _ "r, [ncts_CustomsOfficeOfTransitDeclared_9_RefNumber] = @ncts_CustomsOfficeOfTran"& _ "sitDeclared_9_RefNumber, [ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime"& _ "] = @ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime, [ncts_CustomsOffice"& _ "OfTransitDeclared_2_ArravialDateTime] = @ncts_CustomsOfficeOfTransitDeclared_2_A"& _ "rravialDateTime, [ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime] = @nct"& _ "s_CustomsOfficeOfTransitDeclared_3_ArravialDateTime, [ncts_CustomsOfficeOfTransi"& _ "tDeclared_4_ArravialDateTime] = @ncts_CustomsOfficeOfTransitDeclared_4_ArravialD"& _ "ateTime, [ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime] = @ncts_Custom"& _ "sOfficeOfTransitDeclared_5_ArravialDateTime, [ncts_CustomsOfficeOfTransitDeclare"& _ "d_6_ArravialDateTime] = @ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime,"& _ " [ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime] = @ncts_CustomsOfficeO"& _ "fTransitDeclared_7_ArravialDateTime, [ncts_CustomsOfficeOfTransitDeclared_8_Arra"& _ "vialDateTime] = @ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime, [ncts_C"& _ "ustomsOfficeOfTransitDeclared_9_ArravialDateTime] = @ncts_CustomsOfficeOfTransit"& _ "Declared_9_ArravialDateTime, [ncts_CustomsOfficeOfDestinationDeclared] = @ncts_C"& _ "ustomsOfficeOfDestinationDeclared, [ncts_CustomsOfficeOfDeparture] = @ncts_Custo"& _ "msOfficeOfDeparture, [ncts_CustomsOfficeOfExitForTransitDeclared] = @ncts_Custom"& _ "sOfficeOfExitForTransitDeclared, [ncts_LimitDate] = @ncts_LimitDate, [ncts_Trans"& _ "itDeclarationType] = @ncts_TransitDeclarationType, [ncts_GrossMass] = @ncts_Gros"& _ "sMass, [ncts_BindingItinerary] = @ncts_BindingItinerary, [ncts_ContainerIndicato"& _ "r] = @ncts_ContainerIndicator, [ncts_InlandModeOfTransport] = @ncts_InlandModeOf"& _ "Transport, [ncts_DepartureTransportMeans_1_TypeOfIdentification] = @ncts_Departu"& _ "reTransportMeans_1_TypeOfIdentification, [ncts_DepartureTransportMeans_1_Identif"& _ "icationNumber] = @ncts_DepartureTransportMeans_1_IdentificationNumber, [ncts_Dep"& _ "artureTransportMeans_1_Nationality] = @ncts_DepartureTransportMeans_1_Nationalit"& _ "y, [ncts_DepartureTransportMeans_2_TypeOfIdentification] = @ncts_DepartureTransp"& _ "ortMeans_2_TypeOfIdentification, [ncts_DepartureTransportMeans_2_IdentificationN"& _ "umber] = @ncts_DepartureTransportMeans_2_IdentificationNumber, [ncts_DepartureTr"& _ "ansportMeans_2_Nationality] = @ncts_DepartureTransportMeans_2_Nationality, [ncts"& _ "_DepartureTransportMeans_3_TypeOfIdentification] = @ncts_DepartureTransportMeans"& _ "_3_TypeOfIdentification, [ncts_DepartureTransportMeans_3_IdentificationNumber] ="& _ " @ncts_DepartureTransportMeans_3_IdentificationNumber, [ncts_DepartureTransportM"& _ "eans_3_Nationality] = @ncts_DepartureTransportMeans_3_Nationality, [ncts_Departu"& _ "reTransportMeans_4_TypeOfIdentification] = @ncts_DepartureTransportMeans_4_TypeO"& _ "fIdentification, [ncts_DepartureTransportMeans_4_IdentificationNumber] = @ncts_D"& _ "epartureTransportMeans_4_IdentificationNumber, [ncts_DepartureTransportMeans_4_N"& _ "ationality] = @ncts_DepartureTransportMeans_4_Nationality, [ncts_ActiveBorderTra"& _ "nsportMeans_1_TypeOfIdentification] = @ncts_ActiveBorderTransportMeans_1_TypeOfI"& _ "dentification, [ncts_ActiveBorderTransportMeans_1_IdentificationNumber] = @ncts_"& _ "ActiveBorderTransportMeans_1_IdentificationNumber, [ncts_ActiveBorderTransportMe"& _ "ans_1_Nationality] = @ncts_ActiveBorderTransportMeans_1_Nationality, [ncts_Activ"& _ "eBorderTransportMeans_1_CoveyanceReferenceNumber] = @ncts_ActiveBorderTransportM"& _ "eans_1_CoveyanceReferenceNumber, [ncts_ActiveBorderTransportMeans_1_CustomsOffic"& _ "eAtBorderDeclared] = @ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDec"& _ "lared, [ncts_ActiveBorderTransportMeans_2_TypeOfIdentification] = @ncts_ActiveBo"& _ "rderTransportMeans_2_TypeOfIdentification, [ncts_ActiveBorderTransportMeans_2_Id"& _ "entificationNumber] = @ncts_ActiveBorderTransportMeans_2_IdentificationNumber, ["& _ "ncts_ActiveBorderTransportMeans_2_Nationality] = @ncts_ActiveBorderTransportMean"& _ "s_2_Nationality, [ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber] = "& _ "@ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber, [ncts_ActiveBorderT"& _ "ransportMeans_2_CustomsOfficeAtBorderDeclared] = @ncts_ActiveBorderTransportMean"& _ "s_2_CustomsOfficeAtBorderDeclared, [ncts_ActiveBorderTransportMeans_3_TypeOfIden"& _ "tification] = @ncts_ActiveBorderTransportMeans_3_TypeOfIdentification, [ncts_Act"& _ "iveBorderTransportMeans_3_IdentificationNumber] = @ncts_ActiveBorderTransportMea"& _ "ns_3_IdentificationNumber, [ncts_ActiveBorderTransportMeans_3_Nationality] = @nc"& _ "ts_ActiveBorderTransportMeans_3_Nationality, [ncts_ActiveBorderTransportMeans_3_"& _ "CoveyanceReferenceNumber] = @ncts_ActiveBorderTransportMeans_3_CoveyanceReferenc"& _ "eNumber, [ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared] = @nc"& _ "ts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared, [ncts_ActiveBorde"& _ "rTransportMeans_4_TypeOfIdentification] = @ncts_ActiveBorderTransportMeans_4_Typ"& _ "eOfIdentification, [ncts_ActiveBorderTransportMeans_4_IdentificationNumber] = @n"& _ "cts_ActiveBorderTransportMeans_4_IdentificationNumber, [ncts_ActiveBorderTranspo"& _ "rtMeans_4_Nationality] = @ncts_ActiveBorderTransportMeans_4_Nationality, [ncts_A"& _ "ctiveBorderTransportMeans_4_CoveyanceReferenceNumber] = @ncts_ActiveBorderTransp"& _ "ortMeans_4_CoveyanceReferenceNumber, [ncts_ActiveBorderTransportMeans_4_CustomsO"& _ "fficeAtBorderDeclared] = @ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorde"& _ "rDeclared, [ncts_Authorisation_1_Type] = @ncts_Authorisation_1_Type, [ncts_Autho"& _ "risation_1_ReferenceNumber] = @ncts_Authorisation_1_ReferenceNumber, [ncts_Autho"& _ "risation_2_Type] = @ncts_Authorisation_2_Type, [ncts_Authorisation_2_ReferenceNu"& _ "mber] = @ncts_Authorisation_2_ReferenceNumber, [ncts_Authorisation_3_Type] = @nc"& _ "ts_Authorisation_3_Type, [ncts_Authorisation_3_ReferenceNumber] = @ncts_Authoris"& _ "ation_3_ReferenceNumber, [ncts_Authorisation_4_Type] = @ncts_Authorisation_4_Typ"& _ "e, [ncts_Authorisation_4_ReferenceNumber] = @ncts_Authorisation_4_ReferenceNumbe"& _ "r, [ncts_Authorisation_5_Type] = @ncts_Authorisation_5_Type, [ncts_Authorisation"& _ "_5_ReferenceNumber] = @ncts_Authorisation_5_ReferenceNumber, [ncts_Authorisation"& _ "_6_Type] = @ncts_Authorisation_6_Type, [ncts_Authorisation_6_ReferenceNumber] = "& _ "@ncts_Authorisation_6_ReferenceNumber, [ncts_Authorisation_7_Type] = @ncts_Autho"& _ "risation_7_Type, [ncts_Authorisation_7_ReferenceNumber] = @ncts_Authorisation_7_"& _ "ReferenceNumber, [ncts_Authorisation_8_Type] = @ncts_Authorisation_8_Type, [ncts"& _ "_Authorisation_8_ReferenceNumber] = @ncts_Authorisation_8_ReferenceNumber, [ncts"& _ "_Authorisation_9_Type] = @ncts_Authorisation_9_Type, [ncts_Authorisation_9_Refer"& _ "enceNumber] = @ncts_Authorisation_9_ReferenceNumber, [ncts_Consignor_AdressCode]"& _ " = @ncts_Consignor_AdressCode, [ncts_Consignor_IdentificationNumber] = @ncts_Con"& _ "signor_IdentificationNumber, [ncts_Consignor_SubsidiaryNumber] = @ncts_Consignor"& _ "_SubsidiaryNumber, [ncts_Consignor_Name] = @ncts_Consignor_Name, [ncts_Consignor"& _ "_StreetNumber] = @ncts_Consignor_StreetNumber, [ncts_Consignor_City] = @ncts_Con"& _ "signor_City, [ncts_Consignor_Postcode] = @ncts_Consignor_Postcode, [ncts_Consign"& _ "or_Country] = @ncts_Consignor_Country, [ncts_Consignor_ContactPerson_Name] = @nc"& _ "ts_Consignor_ContactPerson_Name, [ncts_Consignor_ContactPerson_PhoneNumber] = @n"& _ "cts_Consignor_ContactPerson_PhoneNumber, [ncts_Consignor_ContactPerson_EMailAddr"& _ "ess] = @ncts_Consignor_ContactPerson_EMailAddress, [ncts_Consignee_AdressCode] ="& _ " @ncts_Consignee_AdressCode, [ncts_Consignee_IdentificationNumber] = @ncts_Consi"& _ "gnee_IdentificationNumber, [ncts_Consignee_SubsidiaryNumber] = @ncts_Consignee_S"& _ "ubsidiaryNumber, [ncts_Consignee_Name] = @ncts_Consignee_Name, [ncts_Consignee_S"& _ "treetNumber] = @ncts_Consignee_StreetNumber, [ncts_Consignee_City] = @ncts_Consi"& _ "gnee_City, [ncts_Consignee_Postcode] = @ncts_Consignee_Postcode, [ncts_Consignee"& _ "_Country] = @ncts_Consignee_Country, [ncts_Consignee_ContactPerson_Name] = @ncts"& _ "_Consignee_ContactPerson_Name, [ncts_Consignee_ContactPerson_PhoneNumber] = @nct"& _ "s_Consignee_ContactPerson_PhoneNumber, [ncts_Consignee_ContactPerson_EMailAddres"& _ "s] = @ncts_Consignee_ContactPerson_EMailAddress, [ncts_HolderOfTheTransitProcedu"& _ "re_AdressCode] = @ncts_HolderOfTheTransitProcedure_AdressCode, [ncts_HolderOfThe"& _ "TransitProcedure_IdentificationNumber] = @ncts_HolderOfTheTransitProcedure_Ident"& _ "ificationNumber, [ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber"& _ "] = @ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber, [ncts_Holde"& _ "rOfTheTransitProcedure_Name] = @ncts_HolderOfTheTransitProcedure_Name, [ncts_Hol"& _ "derOfTheTransitProcedure_StreetNumber] = @ncts_HolderOfTheTransitProcedure_Stree"& _ "tNumber, [ncts_HolderOfTheTransitProcedure_City] = @ncts_HolderOfTheTransitProce"& _ "dure_City, [ncts_HolderOfTheTransitProcedure_Postcode] = @ncts_HolderOfTheTransi"& _ "tProcedure_Postcode, [ncts_HolderOfTheTransitProcedure_Country] = @ncts_HolderOf"& _ "TheTransitProcedure_Country, [ncts_HolderOfTheTransitProcedure_ContactPerson_Nam"& _ "e] = @ncts_HolderOfTheTransitProcedure_ContactPerson_Name, [ncts_HolderOfTheTran"& _ "sitProcedure_ContactPerson_PhoneNumber] = @ncts_HolderOfTheTransitProcedure_Cont"& _ "actPerson_PhoneNumber, [ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddr"& _ "ess] = @ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress, [ncts_Repre"& _ "sentative_AdressCode] = @ncts_Representative_AdressCode, [ncts_Representative_Id"& _ "entificationNumber] = @ncts_Representative_IdentificationNumber, [ncts_Represent"& _ "ative_ContactPerson_Name] = @ncts_Representative_ContactPerson_Name, [ncts_Repre"& _ "sentative_ContactPerson_PhoneNumber] = @ncts_Representative_ContactPerson_PhoneN"& _ "umber, [ncts_Representative_ContactPerson_EMailAddress] = @ncts_Representative_C"& _ "ontactPerson_EMailAddress, [ncts_AdditionalSupplyChainActor_1_Role] = @ncts_Addi"& _ "tionalSupplyChainActor_1_Role, [ncts_AdditionalSupplyChainActor_1_Identification"& _ "Number] = @ncts_AdditionalSupplyChainActor_1_IdentificationNumber, [ncts_Additio"& _ "nalSupplyChainActor_2_Role] = @ncts_AdditionalSupplyChainActor_2_Role, [ncts_Add"& _ "itionalSupplyChainActor_2_IdentificationNumber] = @ncts_AdditionalSupplyChainAct"& _ "or_2_IdentificationNumber, [ncts_AdditionalSupplyChainActor_3_Role] = @ncts_Addi"& _ "tionalSupplyChainActor_3_Role, [ncts_AdditionalSupplyChainActor_3_Identification"& _ "Number] = @ncts_AdditionalSupplyChainActor_3_IdentificationNumber, [ncts_Additio"& _ "nalSupplyChainActor_4_Role] = @ncts_AdditionalSupplyChainActor_4_Role, [ncts_Add"& _ "itionalSupplyChainActor_4_IdentificationNumber] = @ncts_AdditionalSupplyChainAct"& _ "or_4_IdentificationNumber, [ncts_AdditionalSupplyChainActor_5_Role] = @ncts_Addi"& _ "tionalSupplyChainActor_5_Role, [ncts_AdditionalSupplyChainActor_5_Identification"& _ "Number] = @ncts_AdditionalSupplyChainActor_5_IdentificationNumber, [ncts_Additio"& _ "nalSupplyChainActor_6_Role] = @ncts_AdditionalSupplyChainActor_6_Role, [ncts_Add"& _ "itionalSupplyChainActor_6_IdentificationNumber] = @ncts_AdditionalSupplyChainAct"& _ "or_6_IdentificationNumber, [ncts_AdditionalSupplyChainActor_7_Role] = @ncts_Addi"& _ "tionalSupplyChainActor_7_Role, [ncts_AdditionalSupplyChainActor_7_Identification"& _ "Number] = @ncts_AdditionalSupplyChainActor_7_IdentificationNumber, [ncts_Additio"& _ "nalSupplyChainActor_8_Role] = @ncts_AdditionalSupplyChainActor_8_Role, [ncts_Add"& _ "itionalSupplyChainActor_8_IdentificationNumber] = @ncts_AdditionalSupplyChainAct"& _ "or_8_IdentificationNumber, [ncts_AdditionalSupplyChainActor_9_Role] = @ncts_Addi"& _ "tionalSupplyChainActor_9_Role, [ncts_AdditionalSupplyChainActor_9_Identification"& _ "Number] = @ncts_AdditionalSupplyChainActor_9_IdentificationNumber, [ncts_Securit"& _ "y] = @ncts_Security, [ncts_ReferenceNumberUCR] = @ncts_ReferenceNumberUCR, [ncts"& _ "_SpecificCircomstanceIndicator] = @ncts_SpecificCircomstanceIndicator, [ncts_Pla"& _ "ceOfLoading_Location] = @ncts_PlaceOfLoading_Location, [ncts_PlaceOfLoading_Coun"& _ "try] = @ncts_PlaceOfLoading_Country, [ncts_PlaceOfUnLoading_Location] = @ncts_Pl"& _ "aceOfUnLoading_Location, [ncts_PlaceOfUnLoading_Country] = @ncts_PlaceOfUnLoadin"& _ "g_Country, [ncts_TransportCharges] = @ncts_TransportCharges, [ncts_CountryOfRout"& _ "ingOfConsignment_1] = @ncts_CountryOfRoutingOfConsignment_1, [ncts_CountryOfRout"& _ "ingOfConsignment_2] = @ncts_CountryOfRoutingOfConsignment_2, [ncts_CountryOfRout"& _ "ingOfConsignment_3] = @ncts_CountryOfRoutingOfConsignment_3, [ncts_CountryOfRout"& _ "ingOfConsignment_4] = @ncts_CountryOfRoutingOfConsignment_4, [ncts_CountryOfRout"& _ "ingOfConsignment_5] = @ncts_CountryOfRoutingOfConsignment_5, [ncts_CountryOfRout"& _ "ingOfConsignment_6] = @ncts_CountryOfRoutingOfConsignment_6, [ncts_CountryOfRout"& _ "ingOfConsignment_7] = @ncts_CountryOfRoutingOfConsignment_7, [ncts_CountryOfRout"& _ "ingOfConsignment_8] = @ncts_CountryOfRoutingOfConsignment_8, [ncts_CountryOfRout"& _ "ingOfConsignment_9] = @ncts_CountryOfRoutingOfConsignment_9, [ncts_CountryOfRout"& _ "ingOfConsignment_10] = @ncts_CountryOfRoutingOfConsignment_10, [ncts_CountryOfRo"& _ "utingOfConsignment_11] = @ncts_CountryOfRoutingOfConsignment_11, [ncts_CountryOf"& _ "RoutingOfConsignment_12] = @ncts_CountryOfRoutingOfConsignment_12, [ncts_Country"& _ "OfRoutingOfConsignment_13] = @ncts_CountryOfRoutingOfConsignment_13, [ncts_Count"& _ "ryOfRoutingOfConsignment_14] = @ncts_CountryOfRoutingOfConsignment_14, [ncts_Cou"& _ "ntryOfRoutingOfConsignment_15] = @ncts_CountryOfRoutingOfConsignment_15, [ncts_C"& _ "arrier_AdressCode] = @ncts_Carrier_AdressCode, [ncts_Carrier_IdentificationNumbe"& _ "r] = @ncts_Carrier_IdentificationNumber, [ncts_Carrier_SubsidiaryNumber] = @ncts"& _ "_Carrier_SubsidiaryNumber, [ncts_Carrier_ContactPerson_Name] = @ncts_Carrier_Con"& _ "tactPerson_Name, [ncts_Carrier_ContactPerson_PhoneNumber] = @ncts_Carrier_Contac"& _ "tPerson_PhoneNumber, [ncts_Carrier_ContactPerson_EMailAddress] = @ncts_Carrier_C"& _ "ontactPerson_EMailAddress, [ncts_SupportingDocument_1_Type] = @ncts_SupportingDo"& _ "cument_1_Type, [ncts_SupportingDocument_1_ReferenceNumber] = @ncts_SupportingDoc"& _ "ument_1_ReferenceNumber, [ncts_SupportingDocument_1_DocumentLineItemNumber] = @n"& _ "cts_SupportingDocument_1_DocumentLineItemNumber, [ncts_SupportingDocument_1_Comp"& _ "lementOfInformation] = @ncts_SupportingDocument_1_ComplementOfInformation, [ncts"& _ "_SupportingDocument_2_Type] = @ncts_SupportingDocument_2_Type, [ncts_SupportingD"& _ "ocument_2_ReferenceNumber] = @ncts_SupportingDocument_2_ReferenceNumber, [ncts_S"& _ "upportingDocument_2_DocumentLineItemNumber] = @ncts_SupportingDocument_2_Documen"& _ "tLineItemNumber, [ncts_SupportingDocument_2_ComplementOfInformation] = @ncts_Sup"& _ "portingDocument_2_ComplementOfInformation, [ncts_SupportingDocument_3_Type] = @n"& _ "cts_SupportingDocument_3_Type, [ncts_SupportingDocument_3_ReferenceNumber] = @nc"& _ "ts_SupportingDocument_3_ReferenceNumber, [ncts_SupportingDocument_3_DocumentLine"& _ "ItemNumber] = @ncts_SupportingDocument_3_DocumentLineItemNumber, [ncts_Supportin"& _ "gDocument_3_ComplementOfInformation] = @ncts_SupportingDocument_3_ComplementOfIn"& _ "formation, [ncts_SupportingDocument_4_Type] = @ncts_SupportingDocument_4_Type, ["& _ "ncts_SupportingDocument_4_ReferenceNumber] = @ncts_SupportingDocument_4_Referenc"& _ "eNumber, [ncts_SupportingDocument_4_DocumentLineItemNumber] = @ncts_SupportingDo"& _ "cument_4_DocumentLineItemNumber, [ncts_SupportingDocument_4_ComplementOfInformat"& _ "ion] = @ncts_SupportingDocument_4_ComplementOfInformation, [ncts_SupportingDocum"& _ "ent_5_Type] = @ncts_SupportingDocument_5_Type, [ncts_SupportingDocument_5_Refere"& _ "nceNumber] = @ncts_SupportingDocument_5_ReferenceNumber, [ncts_SupportingDocumen"& _ "t_5_DocumentLineItemNumber] = @ncts_SupportingDocument_5_DocumentLineItemNumber,"& _ " [ncts_SupportingDocument_5_ComplementOfInformation] = @ncts_SupportingDocument_"& _ "5_ComplementOfInformation, [ncts_SupportingDocument_6_Type] = @ncts_SupportingDo"& _ "cument_6_Type, [ncts_SupportingDocument_6_ReferenceNumber] = @ncts_SupportingDoc"& _ "ument_6_ReferenceNumber, [ncts_SupportingDocument_6_DocumentLineItemNumber] = @n"& _ "cts_SupportingDocument_6_DocumentLineItemNumber, [ncts_SupportingDocument_6_Comp"& _ "lementOfInformation] = @ncts_SupportingDocument_6_ComplementOfInformation, [ncts"& _ "_SupportingDocument_7_Type] = @ncts_SupportingDocument_7_Type, [ncts_SupportingD"& _ "ocument_7_ReferenceNumber] = @ncts_SupportingDocument_7_ReferenceNumber, [ncts_S"& _ "upportingDocument_7_DocumentLineItemNumber] = @ncts_SupportingDocument_7_Documen"& _ "tLineItemNumber, [ncts_SupportingDocument_7_ComplementOfInformation] = @ncts_Sup"& _ "portingDocument_7_ComplementOfInformation, [ncts_SupportingDocument_8_Type] = @n"& _ "cts_SupportingDocument_8_Type, [ncts_SupportingDocument_8_ReferenceNumber] = @nc"& _ "ts_SupportingDocument_8_ReferenceNumber, [ncts_SupportingDocument_8_DocumentLine"& _ "ItemNumber] = @ncts_SupportingDocument_8_DocumentLineItemNumber, [ncts_Supportin"& _ "gDocument_8_ComplementOfInformation] = @ncts_SupportingDocument_8_ComplementOfIn"& _ "formation, [ncts_SupportingDocument_9_Type] = @ncts_SupportingDocument_9_Type, ["& _ "ncts_SupportingDocument_9_ReferenceNumber] = @ncts_SupportingDocument_9_Referenc"& _ "eNumber, [ncts_SupportingDocument_9_DocumentLineItemNumber] = @ncts_SupportingDo"& _ "cument_9_DocumentLineItemNumber, [ncts_SupportingDocument_9_ComplementOfInformat"& _ "ion] = @ncts_SupportingDocument_9_ComplementOfInformation, [ncts_PreviousDocumen"& _ "t_1_Type] = @ncts_PreviousDocument_1_Type, [ncts_PreviousDocument_1_ReferenceNum"& _ "ber] = @ncts_PreviousDocument_1_ReferenceNumber, [ncts_PreviousDocument_1_Comple"& _ "mentOfInformation] = @ncts_PreviousDocument_1_ComplementOfInformation, [ncts_Pre"& _ "viousDocument_2_Type] = @ncts_PreviousDocument_2_Type, [ncts_PreviousDocument_2_"& _ "ReferenceNumber] = @ncts_PreviousDocument_2_ReferenceNumber, [ncts_PreviousDocum"& _ "ent_2_ComplementOfInformation] = @ncts_PreviousDocument_2_ComplementOfInformatio"& _ "n, [ncts_PreviousDocument_3_Type] = @ncts_PreviousDocument_3_Type, [ncts_Previou"& _ "sDocument_3_ReferenceNumber] = @ncts_PreviousDocument_3_ReferenceNumber, [ncts_P"& _ "reviousDocument_3_ComplementOfInformation] = @ncts_PreviousDocument_3_Complement"& _ "OfInformation, [ncts_PreviousDocument_4_Type] = @ncts_PreviousDocument_4_Type, ["& _ "ncts_PreviousDocument_4_ReferenceNumber] = @ncts_PreviousDocument_4_ReferenceNum"& _ "ber, [ncts_PreviousDocument_4_ComplementOfInformation] = @ncts_PreviousDocument_"& _ "4_ComplementOfInformation, [ncts_PreviousDocument_5_Type] = @ncts_PreviousDocume"& _ "nt_5_Type, [ncts_PreviousDocument_5_ReferenceNumber] = @ncts_PreviousDocument_5_"& _ "ReferenceNumber, [ncts_PreviousDocument_5_ComplementOfInformation] = @ncts_Previ"& _ "ousDocument_5_ComplementOfInformation, [ncts_PreviousDocument_6_Type] = @ncts_Pr"& _ "eviousDocument_6_Type, [ncts_PreviousDocument_6_ReferenceNumber] = @ncts_Previou"& _ "sDocument_6_ReferenceNumber, [ncts_PreviousDocument_6_ComplementOfInformation] ="& _ " @ncts_PreviousDocument_6_ComplementOfInformation, [ncts_PreviousDocument_7_Type"& _ "] = @ncts_PreviousDocument_7_Type, [ncts_PreviousDocument_7_ReferenceNumber] = @"& _ "ncts_PreviousDocument_7_ReferenceNumber, [ncts_PreviousDocument_7_ComplementOfIn"& _ "formation] = @ncts_PreviousDocument_7_ComplementOfInformation, [ncts_PreviousDoc"& _ "ument_8_Type] = @ncts_PreviousDocument_8_Type, [ncts_PreviousDocument_8_Referenc"& _ "eNumber] = @ncts_PreviousDocument_8_ReferenceNumber, [ncts_PreviousDocument_8_Co"& _ "mplementOfInformation] = @ncts_PreviousDocument_8_ComplementOfInformation, [ncts"& _ "_PreviousDocument_9_Type] = @ncts_PreviousDocument_9_Type, [ncts_PreviousDocumen"& _ "t_9_ReferenceNumber] = @ncts_PreviousDocument_9_ReferenceNumber, [ncts_PreviousD"& _ "ocument_9_ComplementOfInformation] = @ncts_PreviousDocument_9_ComplementOfInform"& _ "ation, [ncts_TransportDocument_1_Type] = @ncts_TransportDocument_1_Type, [ncts_T"& _ "ransportDocument_1_ReferenceNumber] = @ncts_TransportDocument_1_ReferenceNumber,"& _ " [ncts_TransportDocument_2_Type] = @ncts_TransportDocument_2_Type, [ncts_Transpo"& _ "rtDocument_2_ReferenceNumber] = @ncts_TransportDocument_2_ReferenceNumber, [ncts"& _ "_TransportDocument_3_Type] = @ncts_TransportDocument_3_Type, [ncts_TransportDocu"& _ "ment_3_ReferenceNumber] = @ncts_TransportDocument_3_ReferenceNumber, [ncts_Trans"& _ "portDocument_4_Type] = @ncts_TransportDocument_4_Type, [ncts_TransportDocument_4"& _ "_ReferenceNumber] = @ncts_TransportDocument_4_ReferenceNumber, [ncts_TransportDo"& _ "cument_5_Type] = @ncts_TransportDocument_5_Type, [ncts_TransportDocument_5_Refer"& _ "enceNumber] = @ncts_TransportDocument_5_ReferenceNumber, [ncts_TransportDocument"& _ "_6_Type] = @ncts_TransportDocument_6_Type, [ncts_TransportDocument_6_ReferenceNu"& _ "mber] = @ncts_TransportDocument_6_ReferenceNumber, [ncts_TransportDocument_7_Typ"& _ "e] = @ncts_TransportDocument_7_Type, [ncts_TransportDocument_7_ReferenceNumber] "& _ "= @ncts_TransportDocument_7_ReferenceNumber, [ncts_TransportDocument_8_Type] = @"& _ "ncts_TransportDocument_8_Type, [ncts_TransportDocument_8_ReferenceNumber] = @nct"& _ "s_TransportDocument_8_ReferenceNumber, [ncts_TransportDocument_9_Type] = @ncts_T"& _ "ransportDocument_9_Type, [ncts_TransportDocument_9_ReferenceNumber] = @ncts_Tran"& _ "sportDocument_9_ReferenceNumber, [ncts_AdditionalReference_1_Type] = @ncts_Addit"& _ "ionalReference_1_Type, [ncts_AdditionalReference_1_ReferenceNumber] = @ncts_Addi"& _ "tionalReference_1_ReferenceNumber, [ncts_AdditionalReference_2_Type] = @ncts_Add"& _ "itionalReference_2_Type, [ncts_AdditionalReference_2_ReferenceNumber] = @ncts_Ad"& _ "ditionalReference_2_ReferenceNumber, [ncts_AdditionalReference_3_Type] = @ncts_A"& _ "dditionalReference_3_Type, [ncts_AdditionalReference_3_ReferenceNumber] = @ncts_"& _ "AdditionalReference_3_ReferenceNumber, [ncts_AdditionalReference_4_Type] = @ncts"& _ "_AdditionalReference_4_Type, [ncts_AdditionalReference_4_ReferenceNumber] = @nct"& _ "s_AdditionalReference_4_ReferenceNumber, [ncts_AdditionalReference_5_Type] = @nc"& _ "ts_AdditionalReference_5_Type, [ncts_AdditionalReference_5_ReferenceNumber] = @n"& _ "cts_AdditionalReference_5_ReferenceNumber, [ncts_AdditionalReference_6_Type] = @"& _ "ncts_AdditionalReference_6_Type, [ncts_AdditionalReference_6_ReferenceNumber] = "& _ "@ncts_AdditionalReference_6_ReferenceNumber, [ncts_AdditionalReference_7_Type] ="& _ " @ncts_AdditionalReference_7_Type, [ncts_AdditionalReference_7_ReferenceNumber] "& _ "= @ncts_AdditionalReference_7_ReferenceNumber, [ncts_AdditionalReference_8_Type]"& _ " = @ncts_AdditionalReference_8_Type, [ncts_AdditionalReference_8_ReferenceNumber"& _ "] = @ncts_AdditionalReference_8_ReferenceNumber, [ncts_AdditionalReference_9_Typ"& _ "e] = @ncts_AdditionalReference_9_Type, [ncts_AdditionalReference_9_ReferenceNumb"& _ "er] = @ncts_AdditionalReference_9_ReferenceNumber, [ncts_AdditionalInformation_1"& _ "_Code] = @ncts_AdditionalInformation_1_Code, [ncts_AdditionalInformation_1_Text]"& _ " = @ncts_AdditionalInformation_1_Text, [ncts_AdditionalInformation_2_Code] = @nc"& _ "ts_AdditionalInformation_2_Code, [ncts_AdditionalInformation_2_Text] = @ncts_Add"& _ "itionalInformation_2_Text, [ncts_AdditionalInformation_3_Code] = @ncts_Additiona"& _ "lInformation_3_Code, [ncts_AdditionalInformation_3_Text] = @ncts_AdditionalInfor"& _ "mation_3_Text, [ncts_AdditionalInformation_4_Code] = @ncts_AdditionalInformation"& _ "_4_Code, [ncts_AdditionalInformation_4_Text] = @ncts_AdditionalInformation_4_Tex"& _ "t, [ncts_AdditionalInformation_5_Code] = @ncts_AdditionalInformation_5_Code, [nc"& _ "ts_AdditionalInformation_5_Text] = @ncts_AdditionalInformation_5_Text, [ncts_Add"& _ "itionalInformation_6_Code] = @ncts_AdditionalInformation_6_Code, [ncts_Additiona"& _ "lInformation_6_Text] = @ncts_AdditionalInformation_6_Text, [ncts_AdditionalInfor"& _ "mation_7_Code] = @ncts_AdditionalInformation_7_Code, [ncts_AdditionalInformation"& _ "_7_Text] = @ncts_AdditionalInformation_7_Text, [ncts_AdditionalInformation_8_Cod"& _ "e] = @ncts_AdditionalInformation_8_Code, [ncts_AdditionalInformation_8_Text] = @"& _ "ncts_AdditionalInformation_8_Text, [ncts_AdditionalInformation_9_Code] = @ncts_A"& _ "dditionalInformation_9_Code, [ncts_AdditionalInformation_9_Text] = @ncts_Additio"& _ "nalInformation_9_Text, [ncts_AUTOIMPIndicator] = @ncts_AUTOIMPIndicator, [ncts_S"& _ "tammreferenz] = @ncts_Stammreferenz, [ncts_ModeOfTransportAtTheBorder] = @ncts_M"& _ "odeOfTransportAtTheBorder, [ncts_Eroeffnung] = @ncts_Eroeffnung, [ncts_Ankunft] "& _ "= @ncts_Ankunft, [ncts_Erledigung] = @ncts_Erledigung WHERE (([ncts_Id] = @Origi"& _ "nal_ncts_Id) AND ([ncts_Status] = @Original_ncts_Status) AND ([ncts_Status_KEWIL"& _ "L_Equivalent] = @Original_ncts_Status_KEWILL_Equivalent) AND ([ncts_dyaArt] = @O"& _ "riginal_ncts_dyaArt) AND ([ncts_dyaAnmID] = @Original_ncts_dyaAnmID) AND ((@IsNu"& _ "ll_ncts_ANR = 1 AND [ncts_ANR] IS NULL) OR ([ncts_ANR] = @Original_ncts_ANR)) AN"& _ "D ((@IsNull_ncts_MRN = 1 AND [ncts_MRN] IS NULL) OR ([ncts_MRN] = @Original_ncts"& _ "_MRN)) AND ([ncts_Erstellung] = @Original_ncts_Erstellung) AND ((@IsNull_ncts_Er"& _ "stellung_SB = 1 AND [ncts_Erstellung_SB] IS NULL) OR ([ncts_Erstellung_SB] = @Or"& _ "iginal_ncts_Erstellung_SB)) AND ([ncts_LetzteBearbeitung] = @Original_ncts_Letzt"& _ "eBearbeitung) AND ((@IsNull_ncts_LetzteBearbeitung_SB = 1 AND [ncts_LetzteBearbe"& _ "itung_SB] IS NULL) OR ([ncts_LetzteBearbeitung_SB] = @Original_ncts_LetzteBearbe"& _ "itung_SB)) AND ((@IsNull_ncts_firma = 1 AND [ncts_firma] IS NULL) OR ([ncts_firm"& _ "a] = @Original_ncts_firma)) AND ((@IsNull_ncts_niederlassung = 1 AND [ncts_niede"& _ "rlassung] IS NULL) OR ([ncts_niederlassung] = @Original_ncts_niederlassung)) AND"& _ " ([ncts_Gestellt] = @Original_ncts_Gestellt) AND ((@IsNull_ncts_GestelltAm = 1 A"& _ "ND [ncts_GestelltAm] IS NULL) OR ([ncts_GestelltAm] = @Original_ncts_GestelltAm)"& _ ") AND ((@IsNull_ncts_Trans_Partner = 1 AND [ncts_Trans_Partner] IS NULL) OR ([nc"& _ "ts_Trans_Partner] = @Original_ncts_Trans_Partner)) AND ((@IsNull_ncts_Trans_Div1"& _ " = 1 AND [ncts_Trans_Div1] IS NULL) OR ([ncts_Trans_Div1] = @Original_ncts_Trans"& _ "_Div1)) AND ((@IsNull_ncts_Trans_Div2 = 1 AND [ncts_Trans_Div2] IS NULL) OR ([nc"& _ "ts_Trans_Div2] = @Original_ncts_Trans_Div2)) AND ((@IsNull_ncts_Trans_Div3 = 1 A"& _ "ND [ncts_Trans_Div3] IS NULL) OR ([ncts_Trans_Div3] = @Original_ncts_Trans_Div3)"& _ ") AND ((@IsNull_ncts_Trans_Referenz = 1 AND [ncts_Trans_Referenz] IS NULL) OR (["& _ "ncts_Trans_Referenz] = @Original_ncts_Trans_Referenz)) AND ((@IsNull_ncts_Trans_"& _ "DatumZeit = 1 AND [ncts_Trans_DatumZeit] IS NULL) OR ([ncts_Trans_DatumZeit] = @"& _ "Original_ncts_Trans_DatumZeit)) AND ((@IsNull_ncts_Trans_Version = 1 AND [ncts_T"& _ "rans_Version] IS NULL) OR ([ncts_Trans_Version] = @Original_ncts_Trans_Version))"& _ " AND ((@IsNull_ncts_NachrichtenSenderTIN = 1 AND [ncts_NachrichtenSenderTIN] IS "& _ "NULL) OR ([ncts_NachrichtenSenderTIN] = @Original_ncts_NachrichtenSenderTIN)) AN"& _ "D ((@IsNull_ncts_NachrichtenSenderNLNR = 1 AND [ncts_NachrichtenSenderNLNR] IS N"& _ "ULL) OR ([ncts_NachrichtenSenderNLNR] = @Original_ncts_NachrichtenSenderNLNR)) A"& _ "ND ((@IsNull_ncts_NachrichtenempfaengerDST = 1 AND [ncts_NachrichtenempfaengerDS"& _ "T] IS NULL) OR ([ncts_NachrichtenempfaengerDST] = @Original_ncts_Nachrichtenempf"& _ "aengerDST)) AND ((@IsNull_ncts_ObjectName = 1 AND [ncts_ObjectName] IS NULL) OR "& _ "([ncts_ObjectName] = @Original_ncts_ObjectName)) AND ((@IsNull_ncts_ObjectAlias "& _ "= 1 AND [ncts_ObjectAlias] IS NULL) OR ([ncts_ObjectAlias] = @Original_ncts_Obje"& _ "ctAlias)) AND ((@IsNull_ncts_BezugsnummerVorblendung = 1 AND [ncts_BezugsnummerV"& _ "orblendung] IS NULL) OR ([ncts_BezugsnummerVorblendung] = @Original_ncts_Bezugsn"& _ "ummerVorblendung)) AND ((@IsNull_ncts_Bearbeiter = 1 AND [ncts_Bearbeiter] IS NU"& _ "LL) OR ([ncts_Bearbeiter] = @Original_ncts_Bearbeiter)) AND ((@IsNull_ncts_Count"& _ "ryOfDispatch = 1 AND [ncts_CountryOfDispatch] IS NULL) OR ([ncts_CountryOfDispat"& _ "ch] = @Original_ncts_CountryOfDispatch)) AND ((@IsNull_ncts_CountryOfDestination"& _ " = 1 AND [ncts_CountryOfDestination] IS NULL) OR ([ncts_CountryOfDestination] = "& _ "@Original_ncts_CountryOfDestination)) AND ((@IsNull_ncts_Declarationtype = 1 AND"& _ " [ncts_Declarationtype] IS NULL) OR ([ncts_Declarationtype] = @Original_ncts_Dec"& _ "larationtype)) AND ((@IsNull_ncts_TIRCarnetNumber = 1 AND [ncts_TIRCarnetNumber]"& _ " IS NULL) OR ([ncts_TIRCarnetNumber] = @Original_ncts_TIRCarnetNumber)) AND ((@I"& _ "sNull_ncts_ReductedDatasetIndicator = 1 AND [ncts_ReductedDatasetIndicator] IS N"& _ "ULL) OR ([ncts_ReductedDatasetIndicator] = @Original_ncts_ReductedDatasetIndicat"& _ "or)) AND ((@IsNull_ncts_LocationOfGoods_TypeofLocation = 1 AND [ncts_LocationOfG"& _ "oods_TypeofLocation] IS NULL) OR ([ncts_LocationOfGoods_TypeofLocation] = @Origi"& _ "nal_ncts_LocationOfGoods_TypeofLocation)) AND ((@IsNull_ncts_LocationOfGoods_Qua"& _ "lifierIdenfitication = 1 AND [ncts_LocationOfGoods_QualifierIdenfitication] IS N"& _ "ULL) OR ([ncts_LocationOfGoods_QualifierIdenfitication] = @Original_ncts_Locatio"& _ "nOfGoods_QualifierIdenfitication)) AND ((@IsNull_ncts_LocationOfGoods_Additional"& _ "Identifier = 1 AND [ncts_LocationOfGoods_AdditionalIdentifier] IS NULL) OR ([nct"& _ "s_LocationOfGoods_AdditionalIdentifier] = @Original_ncts_LocationOfGoods_Additio"& _ "nalIdentifier)) AND ((@IsNull_ncts_LocationOfGoods_ContactPerson_Name = 1 AND [n"& _ "cts_LocationOfGoods_ContactPerson_Name] IS NULL) OR ([ncts_LocationOfGoods_Conta"& _ "ctPerson_Name] = @Original_ncts_LocationOfGoods_ContactPerson_Name)) AND ((@IsNu"& _ "ll_ncts_LocationOfGoods_ContactPerson_PhoneNumber = 1 AND [ncts_LocationOfGoods_"& _ "ContactPerson_PhoneNumber] IS NULL) OR ([ncts_LocationOfGoods_ContactPerson_Phon"& _ "eNumber] = @Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber)) AND ((@IsN"& _ "ull_ncts_LocationOfGoods_ContactPerson_EMailAddress = 1 AND [ncts_LocationOfGood"& _ "s_ContactPerson_EMailAddress] IS NULL) OR ([ncts_LocationOfGoods_ContactPerson_E"& _ "MailAddress] = @Original_ncts_LocationOfGoods_ContactPerson_EMailAddress)) AND ("& _ "(@IsNull_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber = 1 AND [ncts_CustomsOf"& _ "ficeOfTransitDeclared_1_RefNumber] IS NULL) OR ([ncts_CustomsOfficeOfTransitDecl"& _ "ared_1_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber)) "& _ "AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber = 1 AND [ncts_Cust"& _ "omsOfficeOfTransitDeclared_2_RefNumber] IS NULL) OR ([ncts_CustomsOfficeOfTransi"& _ "tDeclared_2_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumb"& _ "er)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber = 1 AND [ncts"& _ "_CustomsOfficeOfTransitDeclared_3_RefNumber] IS NULL) OR ([ncts_CustomsOfficeOfT"& _ "ransitDeclared_3_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDeclared_3_Re"& _ "fNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber = 1 AND "& _ "[ncts_CustomsOfficeOfTransitDeclared_4_RefNumber] IS NULL) OR ([ncts_CustomsOffi"& _ "ceOfTransitDeclared_4_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDeclared"& _ "_4_RefNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber = 1"& _ " AND [ncts_CustomsOfficeOfTransitDeclared_5_RefNumber] IS NULL) OR ([ncts_Custom"& _ "sOfficeOfTransitDeclared_5_RefNumber] = @Original_ncts_CustomsOfficeOfTransitDec"& _ "lared_5_RefNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_6_RefNumbe"& _ "r = 1 AND [ncts_CustomsOfficeOfTransitDeclared_6_RefNumber] IS NULL) OR ([ncts_C"& _ "ustomsOfficeOfTransitDeclared_6_RefNumber] = @Original_ncts_CustomsOfficeOfTrans"& _ "itDeclared_6_RefNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_7_Ref"& _ "Number = 1 AND [ncts_CustomsOfficeOfTransitDeclared_7_RefNumber] IS NULL) OR ([n"& _ "cts_CustomsOfficeOfTransitDeclared_7_RefNumber] = @Original_ncts_CustomsOfficeOf"& _ "TransitDeclared_7_RefNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_"& _ "8_RefNumber = 1 AND [ncts_CustomsOfficeOfTransitDeclared_8_RefNumber] IS NULL) O"& _ "R ([ncts_CustomsOfficeOfTransitDeclared_8_RefNumber] = @Original_ncts_CustomsOff"& _ "iceOfTransitDeclared_8_RefNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDecl"& _ "ared_9_RefNumber = 1 AND [ncts_CustomsOfficeOfTransitDeclared_9_RefNumber] IS NU"& _ "LL) OR ([ncts_CustomsOfficeOfTransitDeclared_9_RefNumber] = @Original_ncts_Custo"& _ "msOfficeOfTransitDeclared_9_RefNumber)) AND ((@IsNull_ncts_CustomsOfficeOfTransi"& _ "tDeclared_1_ArravialDateTime = 1 AND [ncts_CustomsOfficeOfTransitDeclared_1_Arra"& _ "vialDateTime] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTi"& _ "me] = @Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime)) AND ((@"& _ "IsNull_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime = 1 AND [ncts_Cust"& _ "omsOfficeOfTransitDeclared_2_ArravialDateTime] IS NULL) OR ([ncts_CustomsOfficeO"& _ "fTransitDeclared_2_ArravialDateTime] = @Original_ncts_CustomsOfficeOfTransitDecl"& _ "ared_2_ArravialDateTime)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_3_Ar"& _ "ravialDateTime = 1 AND [ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime] "& _ "IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime] = @Origina"& _ "l_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime)) AND ((@IsNull_ncts_Cu"& _ "stomsOfficeOfTransitDeclared_4_ArravialDateTime = 1 AND [ncts_CustomsOfficeOfTra"& _ "nsitDeclared_4_ArravialDateTime] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclar"& _ "ed_4_ArravialDateTime] = @Original_ncts_CustomsOfficeOfTransitDeclared_4_Arravia"& _ "lDateTime)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime"& _ " = 1 AND [ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime] IS NULL) OR (["& _ "ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime] = @Original_ncts_Customs"& _ "OfficeOfTransitDeclared_5_ArravialDateTime)) AND ((@IsNull_ncts_CustomsOfficeOfT"& _ "ransitDeclared_6_ArravialDateTime = 1 AND [ncts_CustomsOfficeOfTransitDeclared_6"& _ "_ArravialDateTime] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared_6_ArravialD"& _ "ateTime] = @Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime)) AN"& _ "D ((@IsNull_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime = 1 AND [ncts"& _ "_CustomsOfficeOfTransitDeclared_7_ArravialDateTime] IS NULL) OR ([ncts_CustomsOf"& _ "ficeOfTransitDeclared_7_ArravialDateTime] = @Original_ncts_CustomsOfficeOfTransi"& _ "tDeclared_7_ArravialDateTime)) AND ((@IsNull_ncts_CustomsOfficeOfTransitDeclared"& _ "_8_ArravialDateTime = 1 AND [ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateT"& _ "ime] IS NULL) OR ([ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime] = @Or"& _ "iginal_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime)) AND ((@IsNull_nc"& _ "ts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime = 1 AND [ncts_CustomsOffice"& _ "OfTransitDeclared_9_ArravialDateTime] IS NULL) OR ([ncts_CustomsOfficeOfTransitD"& _ "eclared_9_ArravialDateTime] = @Original_ncts_CustomsOfficeOfTransitDeclared_9_Ar"& _ "ravialDateTime)) AND ((@IsNull_ncts_CustomsOfficeOfDestinationDeclared = 1 AND ["& _ "ncts_CustomsOfficeOfDestinationDeclared] IS NULL) OR ([ncts_CustomsOfficeOfDesti"& _ "nationDeclared] = @Original_ncts_CustomsOfficeOfDestinationDeclared)) AND ((@IsN"& _ "ull_ncts_CustomsOfficeOfDeparture = 1 AND [ncts_CustomsOfficeOfDeparture] IS NUL"& _ "L) OR ([ncts_CustomsOfficeOfDeparture] = @Original_ncts_CustomsOfficeOfDeparture"& _ ")) AND ((@IsNull_ncts_CustomsOfficeOfExitForTransitDeclared = 1 AND [ncts_Custom"& _ "sOfficeOfExitForTransitDeclared] IS NULL) OR ([ncts_CustomsOfficeOfExitForTransi"& _ "tDeclared] = @Original_ncts_CustomsOfficeOfExitForTransitDeclared)) AND ((@IsNul"& _ "l_ncts_LimitDate = 1 AND [ncts_LimitDate] IS NULL) OR ([ncts_LimitDate] = @Origi"& _ "nal_ncts_LimitDate)) AND ((@IsNull_ncts_TransitDeclarationType = 1 AND [ncts_Tra"& _ "nsitDeclarationType] IS NULL) OR ([ncts_TransitDeclarationType] = @Original_ncts"& _ "_TransitDeclarationType)) AND ((@IsNull_ncts_GrossMass = 1 AND [ncts_GrossMass] "& _ "IS NULL) OR ([ncts_GrossMass] = @Original_ncts_GrossMass)) AND ((@IsNull_ncts_Bi"& _ "ndingItinerary = 1 AND [ncts_BindingItinerary] IS NULL) OR ([ncts_BindingItinera"& _ "ry] = @Original_ncts_BindingItinerary)) AND ((@IsNull_ncts_ContainerIndicator = "& _ "1 AND [ncts_ContainerIndicator] IS NULL) OR ([ncts_ContainerIndicator] = @Origin"& _ "al_ncts_ContainerIndicator)) AND ((@IsNull_ncts_InlandModeOfTransport = 1 AND [n"& _ "cts_InlandModeOfTransport] IS NULL) OR ([ncts_InlandModeOfTransport] = @Original"& _ "_ncts_InlandModeOfTransport)) AND ((@IsNull_ncts_DepartureTransportMeans_1_TypeO"& _ "fIdentification = 1 AND [ncts_DepartureTransportMeans_1_TypeOfIdentification] IS"& _ " NULL) OR ([ncts_DepartureTransportMeans_1_TypeOfIdentification] = @Original_nct"& _ "s_DepartureTransportMeans_1_TypeOfIdentification)) AND ((@IsNull_ncts_DepartureT"& _ "ransportMeans_1_IdentificationNumber = 1 AND [ncts_DepartureTransportMeans_1_Ide"& _ "ntificationNumber] IS NULL) OR ([ncts_DepartureTransportMeans_1_IdentificationNu"& _ "mber] = @Original_ncts_DepartureTransportMeans_1_IdentificationNumber)) AND ((@I"& _ "sNull_ncts_DepartureTransportMeans_1_Nationality = 1 AND [ncts_DepartureTranspor"& _ "tMeans_1_Nationality] IS NULL) OR ([ncts_DepartureTransportMeans_1_Nationality] "& _ "= @Original_ncts_DepartureTransportMeans_1_Nationality)) AND ((@IsNull_ncts_Depa"& _ "rtureTransportMeans_2_TypeOfIdentification = 1 AND [ncts_DepartureTransportMeans"& _ "_2_TypeOfIdentification] IS NULL) OR ([ncts_DepartureTransportMeans_2_TypeOfIden"& _ "tification] = @Original_ncts_DepartureTransportMeans_2_TypeOfIdentification)) AN"& _ "D ((@IsNull_ncts_DepartureTransportMeans_2_IdentificationNumber = 1 AND [ncts_De"& _ "partureTransportMeans_2_IdentificationNumber] IS NULL) OR ([ncts_DepartureTransp"& _ "ortMeans_2_IdentificationNumber] = @Original_ncts_DepartureTransportMeans_2_Iden"& _ "tificationNumber)) AND ((@IsNull_ncts_DepartureTransportMeans_2_Nationality = 1 "& _ "AND [ncts_DepartureTransportMeans_2_Nationality] IS NULL) OR ([ncts_DepartureTra"& _ "nsportMeans_2_Nationality] = @Original_ncts_DepartureTransportMeans_2_Nationalit"& _ "y)) AND ((@IsNull_ncts_DepartureTransportMeans_3_TypeOfIdentification = 1 AND [n"& _ "cts_DepartureTransportMeans_3_TypeOfIdentification] IS NULL) OR ([ncts_Departure"& _ "TransportMeans_3_TypeOfIdentification] = @Original_ncts_DepartureTransportMeans_"& _ "3_TypeOfIdentification)) AND ((@IsNull_ncts_DepartureTransportMeans_3_Identifica"& _ "tionNumber = 1 AND [ncts_DepartureTransportMeans_3_IdentificationNumber] IS NULL"& _ ") OR ([ncts_DepartureTransportMeans_3_IdentificationNumber] = @Original_ncts_Dep"& _ "artureTransportMeans_3_IdentificationNumber)) AND ((@IsNull_ncts_DepartureTransp"& _ "ortMeans_3_Nationality = 1 AND [ncts_DepartureTransportMeans_3_Nationality] IS N"& _ "ULL) OR ([ncts_DepartureTransportMeans_3_Nationality] = @Original_ncts_Departure"& _ "TransportMeans_3_Nationality)) AND ((@IsNull_ncts_DepartureTransportMeans_4_Type"& _ "OfIdentification = 1 AND [ncts_DepartureTransportMeans_4_TypeOfIdentification] I"& _ "S NULL) OR ([ncts_DepartureTransportMeans_4_TypeOfIdentification] = @Original_nc"& _ "ts_DepartureTransportMeans_4_TypeOfIdentification)) AND ((@IsNull_ncts_Departure"& _ "TransportMeans_4_IdentificationNumber = 1 AND [ncts_DepartureTransportMeans_4_Id"& _ "entificationNumber] IS NULL) OR ([ncts_DepartureTransportMeans_4_IdentificationN"& _ "umber] = @Original_ncts_DepartureTransportMeans_4_IdentificationNumber)) AND ((@"& _ "IsNull_ncts_DepartureTransportMeans_4_Nationality = 1 AND [ncts_DepartureTranspo"& _ "rtMeans_4_Nationality] IS NULL) OR ([ncts_DepartureTransportMeans_4_Nationality]"& _ " = @Original_ncts_DepartureTransportMeans_4_Nationality)) AND ((@IsNull_ncts_Act"& _ "iveBorderTransportMeans_1_TypeOfIdentification = 1 AND [ncts_ActiveBorderTranspo"& _ "rtMeans_1_TypeOfIdentification] IS NULL) OR ([ncts_ActiveBorderTransportMeans_1_"& _ "TypeOfIdentification] = @Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdenti"& _ "fication)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_1_IdentificationNumber "& _ "= 1 AND [ncts_ActiveBorderTransportMeans_1_IdentificationNumber] IS NULL) OR ([n"& _ "cts_ActiveBorderTransportMeans_1_IdentificationNumber] = @Original_ncts_ActiveBo"& _ "rderTransportMeans_1_IdentificationNumber)) AND ((@IsNull_ncts_ActiveBorderTrans"& _ "portMeans_1_Nationality = 1 AND [ncts_ActiveBorderTransportMeans_1_Nationality] "& _ "IS NULL) OR ([ncts_ActiveBorderTransportMeans_1_Nationality] = @Original_ncts_Ac"& _ "tiveBorderTransportMeans_1_Nationality)) AND ((@IsNull_ncts_ActiveBorderTranspor"& _ "tMeans_1_CoveyanceReferenceNumber = 1 AND [ncts_ActiveBorderTransportMeans_1_Cov"& _ "eyanceReferenceNumber] IS NULL) OR ([ncts_ActiveBorderTransportMeans_1_Coveyance"& _ "ReferenceNumber] = @Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenc"& _ "eNumber)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderD"& _ "eclared = 1 AND [ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared"& _ "] IS NULL) OR ([ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared]"& _ " = @Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared)) A"& _ "ND ((@IsNull_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification = 1 AND [nct"& _ "s_ActiveBorderTransportMeans_2_TypeOfIdentification] IS NULL) OR ([ncts_ActiveBo"& _ "rderTransportMeans_2_TypeOfIdentification] = @Original_ncts_ActiveBorderTranspor"& _ "tMeans_2_TypeOfIdentification)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_2_"& _ "IdentificationNumber = 1 AND [ncts_ActiveBorderTransportMeans_2_IdentificationNu"& _ "mber] IS NULL) OR ([ncts_ActiveBorderTransportMeans_2_IdentificationNumber] = @O"& _ "riginal_ncts_ActiveBorderTransportMeans_2_IdentificationNumber)) AND ((@IsNull_n"& _ "cts_ActiveBorderTransportMeans_2_Nationality = 1 AND [ncts_ActiveBorderTransport"& _ "Means_2_Nationality] IS NULL) OR ([ncts_ActiveBorderTransportMeans_2_Nationality"& _ "] = @Original_ncts_ActiveBorderTransportMeans_2_Nationality)) AND ((@IsNull_ncts"& _ "_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber = 1 AND [ncts_ActiveBorde"& _ "rTransportMeans_2_CoveyanceReferenceNumber] IS NULL) OR ([ncts_ActiveBorderTrans"& _ "portMeans_2_CoveyanceReferenceNumber] = @Original_ncts_ActiveBorderTransportMean"& _ "s_2_CoveyanceReferenceNumber)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_2_C"& _ "ustomsOfficeAtBorderDeclared = 1 AND [ncts_ActiveBorderTransportMeans_2_CustomsO"& _ "fficeAtBorderDeclared] IS NULL) OR ([ncts_ActiveBorderTransportMeans_2_CustomsOf"& _ "ficeAtBorderDeclared] = @Original_ncts_ActiveBorderTransportMeans_2_CustomsOffic"& _ "eAtBorderDeclared)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_3_TypeOfIdenti"& _ "fication = 1 AND [ncts_ActiveBorderTransportMeans_3_TypeOfIdentification] IS NUL"& _ "L) OR ([ncts_ActiveBorderTransportMeans_3_TypeOfIdentification] = @Original_ncts"& _ "_ActiveBorderTransportMeans_3_TypeOfIdentification)) AND ((@IsNull_ncts_ActiveBo"& _ "rderTransportMeans_3_IdentificationNumber = 1 AND [ncts_ActiveBorderTransportMea"& _ "ns_3_IdentificationNumber] IS NULL) OR ([ncts_ActiveBorderTransportMeans_3_Ident"& _ "ificationNumber] = @Original_ncts_ActiveBorderTransportMeans_3_IdentificationNum"& _ "ber)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_3_Nationality = 1 AND [ncts_"& _ "ActiveBorderTransportMeans_3_Nationality] IS NULL) OR ([ncts_ActiveBorderTranspo"& _ "rtMeans_3_Nationality] = @Original_ncts_ActiveBorderTransportMeans_3_Nationality"& _ ")) AND ((@IsNull_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber = 1 "& _ "AND [ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber] IS NULL) OR ([n"& _ "cts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber] = @Original_ncts_Acti"& _ "veBorderTransportMeans_3_CoveyanceReferenceNumber)) AND ((@IsNull_ncts_ActiveBor"& _ "derTransportMeans_3_CustomsOfficeAtBorderDeclared = 1 AND [ncts_ActiveBorderTran"& _ "sportMeans_3_CustomsOfficeAtBorderDeclared] IS NULL) OR ([ncts_ActiveBorderTrans"& _ "portMeans_3_CustomsOfficeAtBorderDeclared] = @Original_ncts_ActiveBorderTranspor"& _ "tMeans_3_CustomsOfficeAtBorderDeclared)) AND ((@IsNull_ncts_ActiveBorderTranspor"& _ "tMeans_4_TypeOfIdentification = 1 AND [ncts_ActiveBorderTransportMeans_4_TypeOfI"& _ "dentification] IS NULL) OR ([ncts_ActiveBorderTransportMeans_4_TypeOfIdentificat"& _ "ion] = @Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification)) AND (("& _ "@IsNull_ncts_ActiveBorderTransportMeans_4_IdentificationNumber = 1 AND [ncts_Act"& _ "iveBorderTransportMeans_4_IdentificationNumber] IS NULL) OR ([ncts_ActiveBorderT"& _ "ransportMeans_4_IdentificationNumber] = @Original_ncts_ActiveBorderTransportMean"& _ "s_4_IdentificationNumber)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_4_Natio"& _ "nality = 1 AND [ncts_ActiveBorderTransportMeans_4_Nationality] IS NULL) OR ([nct"& _ "s_ActiveBorderTransportMeans_4_Nationality] = @Original_ncts_ActiveBorderTranspo"& _ "rtMeans_4_Nationality)) AND ((@IsNull_ncts_ActiveBorderTransportMeans_4_Coveyanc"& _ "eReferenceNumber = 1 AND [ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNu"& _ "mber] IS NULL) OR ([ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber] "& _ "= @Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber)) AND ((@"& _ "IsNull_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared = 1 AND ["& _ "ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared] IS NULL) OR ([n"& _ "cts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared] = @Original_ncts"& _ "_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared)) AND ((@IsNull_ncts"& _ "_Authorisation_1_Type = 1 AND [ncts_Authorisation_1_Type] IS NULL) OR ([ncts_Aut"& _ "horisation_1_Type] = @Original_ncts_Authorisation_1_Type)) AND ((@IsNull_ncts_Au"& _ "thorisation_1_ReferenceNumber = 1 AND [ncts_Authorisation_1_ReferenceNumber] IS "& _ "NULL) OR ([ncts_Authorisation_1_ReferenceNumber] = @Original_ncts_Authorisation_"& _ "1_ReferenceNumber)) AND ((@IsNull_ncts_Authorisation_2_Type = 1 AND [ncts_Author"& _ "isation_2_Type] IS NULL) OR ([ncts_Authorisation_2_Type] = @Original_ncts_Author"& _ "isation_2_Type)) AND ((@IsNull_ncts_Authorisation_2_ReferenceNumber = 1 AND [nct"& _ "s_Authorisation_2_ReferenceNumber] IS NULL) OR ([ncts_Authorisation_2_ReferenceN"& _ "umber] = @Original_ncts_Authorisation_2_ReferenceNumber)) AND ((@IsNull_ncts_Aut"& _ "horisation_3_Type = 1 AND [ncts_Authorisation_3_Type] IS NULL) OR ([ncts_Authori"& _ "sation_3_Type] = @Original_ncts_Authorisation_3_Type)) AND ((@IsNull_ncts_Author"& _ "isation_3_ReferenceNumber = 1 AND [ncts_Authorisation_3_ReferenceNumber] IS NULL"& _ ") OR ([ncts_Authorisation_3_ReferenceNumber] = @Original_ncts_Authorisation_3_Re"& _ "ferenceNumber)) AND ((@IsNull_ncts_Authorisation_4_Type = 1 AND [ncts_Authorisat"& _ "ion_4_Type] IS NULL) OR ([ncts_Authorisation_4_Type] = @Original_ncts_Authorisat"& _ "ion_4_Type)) AND ((@IsNull_ncts_Authorisation_4_ReferenceNumber = 1 AND [ncts_Au"& _ "thorisation_4_ReferenceNumber] IS NULL) OR ([ncts_Authorisation_4_ReferenceNumbe"& _ "r] = @Original_ncts_Authorisation_4_ReferenceNumber)) AND ((@IsNull_ncts_Authori"& _ "sation_5_Type = 1 AND [ncts_Authorisation_5_Type] IS NULL) OR ([ncts_Authorisati"& _ "on_5_Type] = @Original_ncts_Authorisation_5_Type)) AND ((@IsNull_ncts_Authorisat"& _ "ion_5_ReferenceNumber = 1 AND [ncts_Authorisation_5_ReferenceNumber] IS NULL) OR"& _ " ([ncts_Authorisation_5_ReferenceNumber] = @Original_ncts_Authorisation_5_Refere"& _ "nceNumber)) AND ((@IsNull_ncts_Authorisation_6_Type = 1 AND [ncts_Authorisation_"& _ "6_Type] IS NULL) OR ([ncts_Authorisation_6_Type] = @Original_ncts_Authorisation_"& _ "6_Type)) AND ((@IsNull_ncts_Authorisation_6_ReferenceNumber = 1 AND [ncts_Author"& _ "isation_6_ReferenceNumber] IS NULL) OR ([ncts_Authorisation_6_ReferenceNumber] ="& _ " @Original_ncts_Authorisation_6_ReferenceNumber)) AND ((@IsNull_ncts_Authorisati"& _ "on_7_Type = 1 AND [ncts_Authorisation_7_Type] IS NULL) OR ([ncts_Authorisation_7"& _ "_Type] = @Original_ncts_Authorisation_7_Type)) AND ((@IsNull_ncts_Authorisation_"& _ "7_ReferenceNumber = 1 AND [ncts_Authorisation_7_ReferenceNumber] IS NULL) OR ([n"& _ "cts_Authorisation_7_ReferenceNumber] = @Original_ncts_Authorisation_7_ReferenceN"& _ "umber)) AND ((@IsNull_ncts_Authorisation_8_Type = 1 AND [ncts_Authorisation_8_Ty"& _ "pe] IS NULL) OR ([ncts_Authorisation_8_Type] = @Original_ncts_Authorisation_8_Ty"& _ "pe)) AND ((@IsNull_ncts_Authorisation_8_ReferenceNumber = 1 AND [ncts_Authorisat"& _ "ion_8_ReferenceNumber] IS NULL) OR ([ncts_Authorisation_8_ReferenceNumber] = @Or"& _ "iginal_ncts_Authorisation_8_ReferenceNumber)) AND ((@IsNull_ncts_Authorisation_9"& _ "_Type = 1 AND [ncts_Authorisation_9_Type] IS NULL) OR ([ncts_Authorisation_9_Typ"& _ "e] = @Original_ncts_Authorisation_9_Type)) AND ((@IsNull_ncts_Authorisation_9_Re"& _ "ferenceNumber = 1 AND [ncts_Authorisation_9_ReferenceNumber] IS NULL) OR ([ncts_"& _ "Authorisation_9_ReferenceNumber] = @Original_ncts_Authorisation_9_ReferenceNumbe"& _ "r)) AND ((@IsNull_ncts_Consignor_AdressCode = 1 AND [ncts_Consignor_AdressCode] "& _ "IS NULL) OR ([ncts_Consignor_AdressCode] = @Original_ncts_Consignor_AdressCode))"& _ " AND ((@IsNull_ncts_Consignor_IdentificationNumber = 1 AND [ncts_Consignor_Ident"& _ "ificationNumber] IS NULL) OR ([ncts_Consignor_IdentificationNumber] = @Original_"& _ "ncts_Consignor_IdentificationNumber)) AND ((@IsNull_ncts_Consignor_SubsidiaryNum"& _ "ber = 1 AND [ncts_Consignor_SubsidiaryNumber] IS NULL) OR ([ncts_Consignor_Subsi"& _ "diaryNumber] = @Original_ncts_Consignor_SubsidiaryNumber)) AND ((@IsNull_ncts_Co"& _ "nsignor_Name = 1 AND [ncts_Consignor_Name] IS NULL) OR ([ncts_Consignor_Name] = "& _ "@Original_ncts_Consignor_Name)) AND ((@IsNull_ncts_Consignor_StreetNumber = 1 AN"& _ "D [ncts_Consignor_StreetNumber] IS NULL) OR ([ncts_Consignor_StreetNumber] = @Or"& _ "iginal_ncts_Consignor_StreetNumber)) AND ((@IsNull_ncts_Consignor_City = 1 AND ["& _ "ncts_Consignor_City] IS NULL) OR ([ncts_Consignor_City] = @Original_ncts_Consign"& _ "or_City)) AND ((@IsNull_ncts_Consignor_Postcode = 1 AND [ncts_Consignor_Postcode"& _ "] IS NULL) OR ([ncts_Consignor_Postcode] = @Original_ncts_Consignor_Postcode)) A"& _ "ND ((@IsNull_ncts_Consignor_Country = 1 AND [ncts_Consignor_Country] IS NULL) OR"& _ " ([ncts_Consignor_Country] = @Original_ncts_Consignor_Country)) AND ((@IsNull_nc"& _ "ts_Consignor_ContactPerson_Name = 1 AND [ncts_Consignor_ContactPerson_Name] IS N"& _ "ULL) OR ([ncts_Consignor_ContactPerson_Name] = @Original_ncts_Consignor_ContactP"& _ "erson_Name)) AND ((@IsNull_ncts_Consignor_ContactPerson_PhoneNumber = 1 AND [nct"& _ "s_Consignor_ContactPerson_PhoneNumber] IS NULL) OR ([ncts_Consignor_ContactPerso"& _ "n_PhoneNumber] = @Original_ncts_Consignor_ContactPerson_PhoneNumber)) AND ((@IsN"& _ "ull_ncts_Consignor_ContactPerson_EMailAddress = 1 AND [ncts_Consignor_ContactPer"& _ "son_EMailAddress] IS NULL) OR ([ncts_Consignor_ContactPerson_EMailAddress] = @Or"& _ "iginal_ncts_Consignor_ContactPerson_EMailAddress)) AND ((@IsNull_ncts_Consignee_"& _ "AdressCode = 1 AND [ncts_Consignee_AdressCode] IS NULL) OR ([ncts_Consignee_Adre"& _ "ssCode] = @Original_ncts_Consignee_AdressCode)) AND ((@IsNull_ncts_Consignee_Ide"& _ "ntificationNumber = 1 AND [ncts_Consignee_IdentificationNumber] IS NULL) OR ([nc"& _ "ts_Consignee_IdentificationNumber] = @Original_ncts_Consignee_IdentificationNumb"& _ "er)) AND ((@IsNull_ncts_Consignee_SubsidiaryNumber = 1 AND [ncts_Consignee_Subsi"& _ "diaryNumber] IS NULL) OR ([ncts_Consignee_SubsidiaryNumber] = @Original_ncts_Con"& _ "signee_SubsidiaryNumber)) AND ((@IsNull_ncts_Consignee_Name = 1 AND [ncts_Consig"& _ "nee_Name] IS NULL) OR ([ncts_Consignee_Name] = @Original_ncts_Consignee_Name)) A"& _ "ND ((@IsNull_ncts_Consignee_StreetNumber = 1 AND [ncts_Consignee_StreetNumber] I"& _ "S NULL) OR ([ncts_Consignee_StreetNumber] = @Original_ncts_Consignee_StreetNumbe"& _ "r)) AND ((@IsNull_ncts_Consignee_City = 1 AND [ncts_Consignee_City] IS NULL) OR "& _ "([ncts_Consignee_City] = @Original_ncts_Consignee_City)) AND ((@IsNull_ncts_Cons"& _ "ignee_Postcode = 1 AND [ncts_Consignee_Postcode] IS NULL) OR ([ncts_Consignee_Po"& _ "stcode] = @Original_ncts_Consignee_Postcode)) AND ((@IsNull_ncts_Consignee_Count"& _ "ry = 1 AND [ncts_Consignee_Country] IS NULL) OR ([ncts_Consignee_Country] = @Ori"& _ "ginal_ncts_Consignee_Country)) AND ((@IsNull_ncts_Consignee_ContactPerson_Name ="& _ " 1 AND [ncts_Consignee_ContactPerson_Name] IS NULL) OR ([ncts_Consignee_ContactP"& _ "erson_Name] = @Original_ncts_Consignee_ContactPerson_Name)) AND ((@IsNull_ncts_C"& _ "onsignee_ContactPerson_PhoneNumber = 1 AND [ncts_Consignee_ContactPerson_PhoneNu"& _ "mber] IS NULL) OR ([ncts_Consignee_ContactPerson_PhoneNumber] = @Original_ncts_C"& _ "onsignee_ContactPerson_PhoneNumber)) AND ((@IsNull_ncts_Consignee_ContactPerson_"& _ "EMailAddress = 1 AND [ncts_Consignee_ContactPerson_EMailAddress] IS NULL) OR ([n"& _ "cts_Consignee_ContactPerson_EMailAddress] = @Original_ncts_Consignee_ContactPers"& _ "on_EMailAddress)) AND ((@IsNull_ncts_HolderOfTheTransitProcedure_AdressCode = 1 "& _ "AND [ncts_HolderOfTheTransitProcedure_AdressCode] IS NULL) OR ([ncts_HolderOfThe"& _ "TransitProcedure_AdressCode] = @Original_ncts_HolderOfTheTransitProcedure_Adress"& _ "Code)) AND ((@IsNull_ncts_HolderOfTheTransitProcedure_IdentificationNumber = 1 A"& _ "ND [ncts_HolderOfTheTransitProcedure_IdentificationNumber] IS NULL) OR ([ncts_Ho"& _ "lderOfTheTransitProcedure_IdentificationNumber] = @Original_ncts_HolderOfTheTran"& _ "sitProcedure_IdentificationNumber)) AND ((@IsNull_ncts_HolderOfTheTransitProcedu"& _ "re_TIRHolderIdentificationNumber = 1 AND [ncts_HolderOfTheTransitProcedure_TIRHo"& _ "lderIdentificationNumber] IS NULL) OR ([ncts_HolderOfTheTransitProcedure_TIRHold"& _ "erIdentificationNumber] = @Original_ncts_HolderOfTheTransitProcedure_TIRHolderId"& _ "entificationNumber)) AND ((@IsNull_ncts_HolderOfTheTransitProcedure_Name = 1 AND"& _ " [ncts_HolderOfTheTransitProcedure_Name] IS NULL) OR ([ncts_HolderOfTheTransitPr"& _ "ocedure_Name] = @Original_ncts_HolderOfTheTransitProcedure_Name)) AND ((@IsNull_"& _ "ncts_HolderOfTheTransitProcedure_StreetNumber = 1 AND [ncts_HolderOfTheTransitPr"& _ "ocedure_StreetNumber] IS NULL) OR ([ncts_HolderOfTheTransitProcedure_StreetNumbe"& _ "r] = @Original_ncts_HolderOfTheTransitProcedure_StreetNumber)) AND ((@IsNull_nct"& _ "s_HolderOfTheTransitProcedure_City = 1 AND [ncts_HolderOfTheTransitProcedure_Cit"& _ "y] IS NULL) OR ([ncts_HolderOfTheTransitProcedure_City] = @Original_ncts_HolderO"& _ "fTheTransitProcedure_City)) AND ((@IsNull_ncts_HolderOfTheTransitProcedure_Postc"& _ "ode = 1 AND [ncts_HolderOfTheTransitProcedure_Postcode] IS NULL) OR ([ncts_Holde"& _ "rOfTheTransitProcedure_Postcode] = @Original_ncts_HolderOfTheTransitProcedure_Po"& _ "stcode)) AND ((@IsNull_ncts_HolderOfTheTransitProcedure_Country = 1 AND [ncts_Ho"& _ "lderOfTheTransitProcedure_Country] IS NULL) OR ([ncts_HolderOfTheTransitProcedur"& _ "e_Country] = @Original_ncts_HolderOfTheTransitProcedure_Country)) AND ((@IsNull_"& _ "ncts_HolderOfTheTransitProcedure_ContactPerson_Name = 1 AND [ncts_HolderOfTheTra"& _ "nsitProcedure_ContactPerson_Name] IS NULL) OR ([ncts_HolderOfTheTransitProcedure"& _ "_ContactPerson_Name] = @Original_ncts_HolderOfTheTransitProcedure_ContactPerson_"& _ "Name)) AND ((@IsNull_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber "& _ "= 1 AND [ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber] IS NULL) OR"& _ " ([ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber] = @Original_ncts_"& _ "HolderOfTheTransitProcedure_ContactPerson_PhoneNumber)) AND ((@IsNull_ncts_Holde"& _ "rOfTheTransitProcedure_ContactPerson_EMailAddress = 1 AND [ncts_HolderOfTheTrans"& _ "itProcedure_ContactPerson_EMailAddress] IS NULL) OR ([ncts_HolderOfTheTransitPro"& _ "cedure_ContactPerson_EMailAddress] = @Original_ncts_HolderOfTheTransitProcedure_"& _ "ContactPerson_EMailAddress)) AND ((@IsNull_ncts_Representative_AdressCode = 1 AN"& _ "D [ncts_Representative_AdressCode] IS NULL) OR ([ncts_Representative_AdressCode]"& _ " = @Original_ncts_Representative_AdressCode)) AND ((@IsNull_ncts_Representative_"& _ "IdentificationNumber = 1 AND [ncts_Representative_IdentificationNumber] IS NULL)"& _ " OR ([ncts_Representative_IdentificationNumber] = @Original_ncts_Representative_"& _ "IdentificationNumber)) AND ((@IsNull_ncts_Representative_ContactPerson_Name = 1 "& _ "AND [ncts_Representative_ContactPerson_Name] IS NULL) OR ([ncts_Representative_C"& _ "ontactPerson_Name] = @Original_ncts_Representative_ContactPerson_Name)) AND ((@I"& _ "sNull_ncts_Representative_ContactPerson_PhoneNumber = 1 AND [ncts_Representative"& _ "_ContactPerson_PhoneNumber] IS NULL) OR ([ncts_Representative_ContactPerson_Phon"& _ "eNumber] = @Original_ncts_Representative_ContactPerson_PhoneNumber)) AND ((@IsNu"& _ "ll_ncts_Representative_ContactPerson_EMailAddress = 1 AND [ncts_Representative_C"& _ "ontactPerson_EMailAddress] IS NULL) OR ([ncts_Representative_ContactPerson_EMail"& _ "Address] = @Original_ncts_Representative_ContactPerson_EMailAddress)) AND ((@IsN"& _ "ull_ncts_AdditionalSupplyChainActor_1_Role = 1 AND [ncts_AdditionalSupplyChainAc"& _ "tor_1_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_1_Role] = @Original_nc"& _ "ts_AdditionalSupplyChainActor_1_Role)) AND ((@IsNull_ncts_AdditionalSupplyChainA"& _ "ctor_1_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_1_Identific"& _ "ationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_1_IdentificationNumbe"& _ "r] = @Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber)) AND ((@I"& _ "sNull_ncts_AdditionalSupplyChainActor_2_Role = 1 AND [ncts_AdditionalSupplyChain"& _ "Actor_2_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_2_Role] = @Original_"& _ "ncts_AdditionalSupplyChainActor_2_Role)) AND ((@IsNull_ncts_AdditionalSupplyChai"& _ "nActor_2_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_2_Identif"& _ "icationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_2_IdentificationNum"& _ "ber] = @Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber)) AND (("& _ "@IsNull_ncts_AdditionalSupplyChainActor_3_Role = 1 AND [ncts_AdditionalSupplyCha"& _ "inActor_3_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_3_Role] = @Origina"& _ "l_ncts_AdditionalSupplyChainActor_3_Role)) AND ((@IsNull_ncts_AdditionalSupplyCh"& _ "ainActor_3_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_3_Ident"& _ "ificationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_3_IdentificationN"& _ "umber] = @Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber)) AND "& _ "((@IsNull_ncts_AdditionalSupplyChainActor_4_Role = 1 AND [ncts_AdditionalSupplyC"& _ "hainActor_4_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_4_Role] = @Origi"& _ "nal_ncts_AdditionalSupplyChainActor_4_Role)) AND ((@IsNull_ncts_AdditionalSupply"& _ "ChainActor_4_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_4_Ide"& _ "ntificationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_4_Identificatio"& _ "nNumber] = @Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber)) AN"& _ "D ((@IsNull_ncts_AdditionalSupplyChainActor_5_Role = 1 AND [ncts_AdditionalSuppl"& _ "yChainActor_5_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_5_Role] = @Ori"& _ "ginal_ncts_AdditionalSupplyChainActor_5_Role)) AND ((@IsNull_ncts_AdditionalSupp"& _ "lyChainActor_5_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_5_I"& _ "dentificationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_5_Identificat"& _ "ionNumber] = @Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber)) "& _ "AND ((@IsNull_ncts_AdditionalSupplyChainActor_6_Role = 1 AND [ncts_AdditionalSup"& _ "plyChainActor_6_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_6_Role] = @O"& _ "riginal_ncts_AdditionalSupplyChainActor_6_Role)) AND ((@IsNull_ncts_AdditionalSu"& _ "pplyChainActor_6_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor_6"& _ "_IdentificationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_6_Identific"& _ "ationNumber] = @Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber)"& _ ") AND ((@IsNull_ncts_AdditionalSupplyChainActor_7_Role = 1 AND [ncts_AdditionalS"& _ "upplyChainActor_7_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_7_Role] = "& _ "@Original_ncts_AdditionalSupplyChainActor_7_Role)) AND ((@IsNull_ncts_Additional"& _ "SupplyChainActor_7_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainActor"& _ "_7_IdentificationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_7_Identif"& _ "icationNumber] = @Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumbe"& _ "r)) AND ((@IsNull_ncts_AdditionalSupplyChainActor_8_Role = 1 AND [ncts_Additiona"& _ "lSupplyChainActor_8_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_8_Role] "& _ "= @Original_ncts_AdditionalSupplyChainActor_8_Role)) AND ((@IsNull_ncts_Addition"& _ "alSupplyChainActor_8_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainAct"& _ "or_8_IdentificationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_8_Ident"& _ "ificationNumber] = @Original_ncts_AdditionalSupplyChainActor_8_IdentificationNum"& _ "ber)) AND ((@IsNull_ncts_AdditionalSupplyChainActor_9_Role = 1 AND [ncts_Additio"& _ "nalSupplyChainActor_9_Role] IS NULL) OR ([ncts_AdditionalSupplyChainActor_9_Role"& _ "] = @Original_ncts_AdditionalSupplyChainActor_9_Role)) AND ((@IsNull_ncts_Additi"& _ "onalSupplyChainActor_9_IdentificationNumber = 1 AND [ncts_AdditionalSupplyChainA"& _ "ctor_9_IdentificationNumber] IS NULL) OR ([ncts_AdditionalSupplyChainActor_9_Ide"& _ "ntificationNumber] = @Original_ncts_AdditionalSupplyChainActor_9_IdentificationN"& _ "umber)) AND ((@IsNull_ncts_Security = 1 AND [ncts_Security] IS NULL) OR ([ncts_S"& _ "ecurity] = @Original_ncts_Security)) AND ((@IsNull_ncts_ReferenceNumberUCR = 1 A"& _ "ND [ncts_ReferenceNumberUCR] IS NULL) OR ([ncts_ReferenceNumberUCR] = @Original_"& _ "ncts_ReferenceNumberUCR)) AND ((@IsNull_ncts_SpecificCircomstanceIndicator = 1 A"& _ "ND [ncts_SpecificCircomstanceIndicator] IS NULL) OR ([ncts_SpecificCircomstanceI"& _ "ndicator] = @Original_ncts_SpecificCircomstanceIndicator)) AND ((@IsNull_ncts_Pl"& _ "aceOfLoading_Location = 1 AND [ncts_PlaceOfLoading_Location] IS NULL) OR ([ncts_"& _ "PlaceOfLoading_Location] = @Original_ncts_PlaceOfLoading_Location)) AND ((@IsNul"& _ "l_ncts_PlaceOfLoading_Country = 1 AND [ncts_PlaceOfLoading_Country] IS NULL) OR "& _ "([ncts_PlaceOfLoading_Country] = @Original_ncts_PlaceOfLoading_Country)) AND ((@"& _ "IsNull_ncts_PlaceOfUnLoading_Location = 1 AND [ncts_PlaceOfUnLoading_Location] I"& _ "S NULL) OR ([ncts_PlaceOfUnLoading_Location] = @Original_ncts_PlaceOfUnLoading_L"& _ "ocation)) AND ((@IsNull_ncts_PlaceOfUnLoading_Country = 1 AND [ncts_PlaceOfUnLoa"& _ "ding_Country] IS NULL) OR ([ncts_PlaceOfUnLoading_Country] = @Original_ncts_Plac"& _ "eOfUnLoading_Country)) AND ((@IsNull_ncts_TransportCharges = 1 AND [ncts_Transpo"& _ "rtCharges] IS NULL) OR ([ncts_TransportCharges] = @Original_ncts_TransportCharge"& _ "s)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_1 = 1 AND [ncts_CountryOfRo"& _ "utingOfConsignment_1] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_1] = @Ori"& _ "ginal_ncts_CountryOfRoutingOfConsignment_1)) AND ((@IsNull_ncts_CountryOfRouting"& _ "OfConsignment_2 = 1 AND [ncts_CountryOfRoutingOfConsignment_2] IS NULL) OR ([nct"& _ "s_CountryOfRoutingOfConsignment_2] = @Original_ncts_CountryOfRoutingOfConsignmen"& _ "t_2)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_3 = 1 AND [ncts_CountryOf"& _ "RoutingOfConsignment_3] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_3] = @O"& _ "riginal_ncts_CountryOfRoutingOfConsignment_3)) AND ((@IsNull_ncts_CountryOfRouti"& _ "ngOfConsignment_4 = 1 AND [ncts_CountryOfRoutingOfConsignment_4] IS NULL) OR ([n"& _ "cts_CountryOfRoutingOfConsignment_4] = @Original_ncts_CountryOfRoutingOfConsignm"& _ "ent_4)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_5 = 1 AND [ncts_Country"& _ "OfRoutingOfConsignment_5] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_5] = "& _ "@Original_ncts_CountryOfRoutingOfConsignment_5)) AND ((@IsNull_ncts_CountryOfRou"& _ "tingOfConsignment_6 = 1 AND [ncts_CountryOfRoutingOfConsignment_6] IS NULL) OR ("& _ "[ncts_CountryOfRoutingOfConsignment_6] = @Original_ncts_CountryOfRoutingOfConsig"& _ "nment_6)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_7 = 1 AND [ncts_Count"& _ "ryOfRoutingOfConsignment_7] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_7] "& _ "= @Original_ncts_CountryOfRoutingOfConsignment_7)) AND ((@IsNull_ncts_CountryOfR"& _ "outingOfConsignment_8 = 1 AND [ncts_CountryOfRoutingOfConsignment_8] IS NULL) OR"& _ " ([ncts_CountryOfRoutingOfConsignment_8] = @Original_ncts_CountryOfRoutingOfCons"& _ "ignment_8)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_9 = 1 AND [ncts_Cou"& _ "ntryOfRoutingOfConsignment_9] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_9"& _ "] = @Original_ncts_CountryOfRoutingOfConsignment_9)) AND ((@IsNull_ncts_CountryO"& _ "fRoutingOfConsignment_10 = 1 AND [ncts_CountryOfRoutingOfConsignment_10] IS NULL"& _ ") OR ([ncts_CountryOfRoutingOfConsignment_10] = @Original_ncts_CountryOfRoutingO"& _ "fConsignment_10)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_11 = 1 AND [n"& _ "cts_CountryOfRoutingOfConsignment_11] IS NULL) OR ([ncts_CountryOfRoutingOfConsi"& _ "gnment_11] = @Original_ncts_CountryOfRoutingOfConsignment_11)) AND ((@IsNull_nct"& _ "s_CountryOfRoutingOfConsignment_12 = 1 AND [ncts_CountryOfRoutingOfConsignment_1"& _ "2] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_12] = @Original_ncts_Country"& _ "OfRoutingOfConsignment_12)) AND ((@IsNull_ncts_CountryOfRoutingOfConsignment_13 "& _ "= 1 AND [ncts_CountryOfRoutingOfConsignment_13] IS NULL) OR ([ncts_CountryOfRout"& _ "ingOfConsignment_13] = @Original_ncts_CountryOfRoutingOfConsignment_13)) AND ((@"& _ "IsNull_ncts_CountryOfRoutingOfConsignment_14 = 1 AND [ncts_CountryOfRoutingOfCon"& _ "signment_14] IS NULL) OR ([ncts_CountryOfRoutingOfConsignment_14] = @Original_nc"& _ "ts_CountryOfRoutingOfConsignment_14)) AND ((@IsNull_ncts_CountryOfRoutingOfConsi"& _ "gnment_15 = 1 AND [ncts_CountryOfRoutingOfConsignment_15] IS NULL) OR ([ncts_Cou"& _ "ntryOfRoutingOfConsignment_15] = @Original_ncts_CountryOfRoutingOfConsignment_15"& _ ")) AND ((@IsNull_ncts_Carrier_AdressCode = 1 AND [ncts_Carrier_AdressCode] IS NU"& _ "LL) OR ([ncts_Carrier_AdressCode] = @Original_ncts_Carrier_AdressCode)) AND ((@I"& _ "sNull_ncts_Carrier_IdentificationNumber = 1 AND [ncts_Carrier_IdentificationNumb"& _ "er] IS NULL) OR ([ncts_Carrier_IdentificationNumber] = @Original_ncts_Carrier_Id"& _ "entificationNumber)) AND ((@IsNull_ncts_Carrier_SubsidiaryNumber = 1 AND [ncts_C"& _ "arrier_SubsidiaryNumber] IS NULL) OR ([ncts_Carrier_SubsidiaryNumber] = @Origina"& _ "l_ncts_Carrier_SubsidiaryNumber)) AND ((@IsNull_ncts_Carrier_ContactPerson_Name "& _ "= 1 AND [ncts_Carrier_ContactPerson_Name] IS NULL) OR ([ncts_Carrier_ContactPers"& _ "on_Name] = @Original_ncts_Carrier_ContactPerson_Name)) AND ((@IsNull_ncts_Carrie"& _ "r_ContactPerson_PhoneNumber = 1 AND [ncts_Carrier_ContactPerson_PhoneNumber] IS "& _ "NULL) OR ([ncts_Carrier_ContactPerson_PhoneNumber] = @Original_ncts_Carrier_Cont"& _ "actPerson_PhoneNumber)) AND ((@IsNull_ncts_Carrier_ContactPerson_EMailAddress = "& _ "1 AND [ncts_Carrier_ContactPerson_EMailAddress] IS NULL) OR ([ncts_Carrier_Conta"& _ "ctPerson_EMailAddress] = @Original_ncts_Carrier_ContactPerson_EMailAddress)) AND"& _ " ((@IsNull_ncts_SupportingDocument_1_Type = 1 AND [ncts_SupportingDocument_1_Typ"& _ "e] IS NULL) OR ([ncts_SupportingDocument_1_Type] = @Original_ncts_SupportingDocu"& _ "ment_1_Type)) AND ((@IsNull_ncts_SupportingDocument_1_ReferenceNumber = 1 AND [n"& _ "cts_SupportingDocument_1_ReferenceNumber] IS NULL) OR ([ncts_SupportingDocument_"& _ "1_ReferenceNumber] = @Original_ncts_SupportingDocument_1_ReferenceNumber)) AND ("& _ "(@IsNull_ncts_SupportingDocument_1_DocumentLineItemNumber = 1 AND [ncts_Supporti"& _ "ngDocument_1_DocumentLineItemNumber] IS NULL) OR ([ncts_SupportingDocument_1_Doc"& _ "umentLineItemNumber] = @Original_ncts_SupportingDocument_1_DocumentLineItemNumbe"& _ "r)) AND ((@IsNull_ncts_SupportingDocument_1_ComplementOfInformation = 1 AND [nct"& _ "s_SupportingDocument_1_ComplementOfInformation] IS NULL) OR ([ncts_SupportingDoc"& _ "ument_1_ComplementOfInformation] = @Original_ncts_SupportingDocument_1_Complemen"& _ "tOfInformation)) AND ((@IsNull_ncts_SupportingDocument_2_Type = 1 AND [ncts_Supp"& _ "ortingDocument_2_Type] IS NULL) OR ([ncts_SupportingDocument_2_Type] = @Original"& _ "_ncts_SupportingDocument_2_Type)) AND ((@IsNull_ncts_SupportingDocument_2_Refere"& _ "nceNumber = 1 AND [ncts_SupportingDocument_2_ReferenceNumber] IS NULL) OR ([ncts"& _ "_SupportingDocument_2_ReferenceNumber] = @Original_ncts_SupportingDocument_2_Ref"& _ "erenceNumber)) AND ((@IsNull_ncts_SupportingDocument_2_DocumentLineItemNumber = "& _ "1 AND [ncts_SupportingDocument_2_DocumentLineItemNumber] IS NULL) OR ([ncts_Supp"& _ "ortingDocument_2_DocumentLineItemNumber] = @Original_ncts_SupportingDocument_2_D"& _ "ocumentLineItemNumber)) AND ((@IsNull_ncts_SupportingDocument_2_ComplementOfInfo"& _ "rmation = 1 AND [ncts_SupportingDocument_2_ComplementOfInformation] IS NULL) OR "& _ "([ncts_SupportingDocument_2_ComplementOfInformation] = @Original_ncts_Supporting"& _ "Document_2_ComplementOfInformation)) AND ((@IsNull_ncts_SupportingDocument_3_Typ"& _ "e = 1 AND [ncts_SupportingDocument_3_Type] IS NULL) OR ([ncts_SupportingDocument"& _ "_3_Type] = @Original_ncts_SupportingDocument_3_Type)) AND ((@IsNull_ncts_Support"& _ "ingDocument_3_ReferenceNumber = 1 AND [ncts_SupportingDocument_3_ReferenceNumber"& _ "] IS NULL) OR ([ncts_SupportingDocument_3_ReferenceNumber] = @Original_ncts_Supp"& _ "ortingDocument_3_ReferenceNumber)) AND ((@IsNull_ncts_SupportingDocument_3_Docum"& _ "entLineItemNumber = 1 AND [ncts_SupportingDocument_3_DocumentLineItemNumber] IS "& _ "NULL) OR ([ncts_SupportingDocument_3_DocumentLineItemNumber] = @Original_ncts_Su"& _ "pportingDocument_3_DocumentLineItemNumber)) AND ((@IsNull_ncts_SupportingDocumen"& _ "t_3_ComplementOfInformation = 1 AND [ncts_SupportingDocument_3_ComplementOfInfor"& _ "mation] IS NULL) OR ([ncts_SupportingDocument_3_ComplementOfInformation] = @Orig"& _ "inal_ncts_SupportingDocument_3_ComplementOfInformation)) AND ((@IsNull_ncts_Supp"& _ "ortingDocument_4_Type = 1 AND [ncts_SupportingDocument_4_Type] IS NULL) OR ([nct"& _ "s_SupportingDocument_4_Type] = @Original_ncts_SupportingDocument_4_Type)) AND (("& _ "@IsNull_ncts_SupportingDocument_4_ReferenceNumber = 1 AND [ncts_SupportingDocume"& _ "nt_4_ReferenceNumber] IS NULL) OR ([ncts_SupportingDocument_4_ReferenceNumber] ="& _ " @Original_ncts_SupportingDocument_4_ReferenceNumber)) AND ((@IsNull_ncts_Suppor"& _ "tingDocument_4_DocumentLineItemNumber = 1 AND [ncts_SupportingDocument_4_Documen"& _ "tLineItemNumber] IS NULL) OR ([ncts_SupportingDocument_4_DocumentLineItemNumber]"& _ " = @Original_ncts_SupportingDocument_4_DocumentLineItemNumber)) AND ((@IsNull_nc"& _ "ts_SupportingDocument_4_ComplementOfInformation = 1 AND [ncts_SupportingDocument"& _ "_4_ComplementOfInformation] IS NULL) OR ([ncts_SupportingDocument_4_ComplementOf"& _ "Information] = @Original_ncts_SupportingDocument_4_ComplementOfInformation)) AND"& _ " ((@IsNull_ncts_SupportingDocument_5_Type = 1 AND [ncts_SupportingDocument_5_Typ"& _ "e] IS NULL) OR ([ncts_SupportingDocument_5_Type] = @Original_ncts_SupportingDocu"& _ "ment_5_Type)) AND ((@IsNull_ncts_SupportingDocument_5_ReferenceNumber = 1 AND [n"& _ "cts_SupportingDocument_5_ReferenceNumber] IS NULL) OR ([ncts_SupportingDocument_"& _ "5_ReferenceNumber] = @Original_ncts_SupportingDocument_5_ReferenceNumber)) AND ("& _ "(@IsNull_ncts_SupportingDocument_5_DocumentLineItemNumber = 1 AND [ncts_Supporti"& _ "ngDocument_5_DocumentLineItemNumber] IS NULL) OR ([ncts_SupportingDocument_5_Doc"& _ "umentLineItemNumber] = @Original_ncts_SupportingDocument_5_DocumentLineItemNumbe"& _ "r)) AND ((@IsNull_ncts_SupportingDocument_5_ComplementOfInformation = 1 AND [nct"& _ "s_SupportingDocument_5_ComplementOfInformation] IS NULL) OR ([ncts_SupportingDoc"& _ "ument_5_ComplementOfInformation] = @Original_ncts_SupportingDocument_5_Complemen"& _ "tOfInformation)) AND ((@IsNull_ncts_SupportingDocument_6_Type = 1 AND [ncts_Supp"& _ "ortingDocument_6_Type] IS NULL) OR ([ncts_SupportingDocument_6_Type] = @Original"& _ "_ncts_SupportingDocument_6_Type)) AND ((@IsNull_ncts_SupportingDocument_6_Refere"& _ "nceNumber = 1 AND [ncts_SupportingDocument_6_ReferenceNumber] IS NULL) OR ([ncts"& _ "_SupportingDocument_6_ReferenceNumber] = @Original_ncts_SupportingDocument_6_Ref"& _ "erenceNumber)) AND ((@IsNull_ncts_SupportingDocument_6_DocumentLineItemNumber = "& _ "1 AND [ncts_SupportingDocument_6_DocumentLineItemNumber] IS NULL) OR ([ncts_Supp"& _ "ortingDocument_6_DocumentLineItemNumber] = @Original_ncts_SupportingDocument_6_D"& _ "ocumentLineItemNumber)) AND ((@IsNull_ncts_SupportingDocument_6_ComplementOfInfo"& _ "rmation = 1 AND [ncts_SupportingDocument_6_ComplementOfInformation] IS NULL) OR "& _ "([ncts_SupportingDocument_6_ComplementOfInformation] = @Original_ncts_Supporting"& _ "Document_6_ComplementOfInformation)) AND ((@IsNull_ncts_SupportingDocument_7_Typ"& _ "e = 1 AND [ncts_SupportingDocument_7_Type] IS NULL) OR ([ncts_SupportingDocument"& _ "_7_Type] = @Original_ncts_SupportingDocument_7_Type)) AND ((@IsNull_ncts_Support"& _ "ingDocument_7_ReferenceNumber = 1 AND [ncts_SupportingDocument_7_ReferenceNumber"& _ "] IS NULL) OR ([ncts_SupportingDocument_7_ReferenceNumber] = @Original_ncts_Supp"& _ "ortingDocument_7_ReferenceNumber)) AND ((@IsNull_ncts_SupportingDocument_7_Docum"& _ "entLineItemNumber = 1 AND [ncts_SupportingDocument_7_DocumentLineItemNumber] IS "& _ "NULL) OR ([ncts_SupportingDocument_7_DocumentLineItemNumber] = @Original_ncts_Su"& _ "pportingDocument_7_DocumentLineItemNumber)) AND ((@IsNull_ncts_SupportingDocumen"& _ "t_7_ComplementOfInformation = 1 AND [ncts_SupportingDocument_7_ComplementOfInfor"& _ "mation] IS NULL) OR ([ncts_SupportingDocument_7_ComplementOfInformation] = @Orig"& _ "inal_ncts_SupportingDocument_7_ComplementOfInformation)) AND ((@IsNull_ncts_Supp"& _ "ortingDocument_8_Type = 1 AND [ncts_SupportingDocument_8_Type] IS NULL) OR ([nct"& _ "s_SupportingDocument_8_Type] = @Original_ncts_SupportingDocument_8_Type)) AND (("& _ "@IsNull_ncts_SupportingDocument_8_ReferenceNumber = 1 AND [ncts_SupportingDocume"& _ "nt_8_ReferenceNumber] IS NULL) OR ([ncts_SupportingDocument_8_ReferenceNumber] ="& _ " @Original_ncts_SupportingDocument_8_ReferenceNumber)) AND ((@IsNull_ncts_Suppor"& _ "tingDocument_8_DocumentLineItemNumber = 1 AND [ncts_SupportingDocument_8_Documen"& _ "tLineItemNumber] IS NULL) OR ([ncts_SupportingDocument_8_DocumentLineItemNumber]"& _ " = @Original_ncts_SupportingDocument_8_DocumentLineItemNumber)) AND ((@IsNull_nc"& _ "ts_SupportingDocument_8_ComplementOfInformation = 1 AND [ncts_SupportingDocument"& _ "_8_ComplementOfInformation] IS NULL) OR ([ncts_SupportingDocument_8_ComplementOf"& _ "Information] = @Original_ncts_SupportingDocument_8_ComplementOfInformation)) AND"& _ " ((@IsNull_ncts_SupportingDocument_9_Type = 1 AND [ncts_SupportingDocument_9_Typ"& _ "e] IS NULL) OR ([ncts_SupportingDocument_9_Type] = @Original_ncts_SupportingDocu"& _ "ment_9_Type)) AND ((@IsNull_ncts_SupportingDocument_9_ReferenceNumber = 1 AND [n"& _ "cts_SupportingDocument_9_ReferenceNumber] IS NULL) OR ([ncts_SupportingDocument_"& _ "9_ReferenceNumber] = @Original_ncts_SupportingDocument_9_ReferenceNumber)) AND ("& _ "(@IsNull_ncts_SupportingDocument_9_DocumentLineItemNumber = 1 AND [ncts_Supporti"& _ "ngDocument_9_DocumentLineItemNumber] IS NULL) OR ([ncts_SupportingDocument_9_Doc"& _ "umentLineItemNumber] = @Original_ncts_SupportingDocument_9_DocumentLineItemNumbe"& _ "r)) AND ((@IsNull_ncts_SupportingDocument_9_ComplementOfInformation = 1 AND [nct"& _ "s_SupportingDocument_9_ComplementOfInformation] IS NULL) OR ([ncts_SupportingDoc"& _ "ument_9_ComplementOfInformation] = @Original_ncts_SupportingDocument_9_Complemen"& _ "tOfInformation)) AND ((@IsNull_ncts_PreviousDocument_1_Type = 1 AND [ncts_Previo"& _ "usDocument_1_Type] IS NULL) OR ([ncts_PreviousDocument_1_Type] = @Original_ncts_"& _ "PreviousDocument_1_Type)) AND ((@IsNull_ncts_PreviousDocument_1_ReferenceNumber "& _ "= 1 AND [ncts_PreviousDocument_1_ReferenceNumber] IS NULL) OR ([ncts_PreviousDoc"& _ "ument_1_ReferenceNumber] = @Original_ncts_PreviousDocument_1_ReferenceNumber)) A"& _ "ND ((@IsNull_ncts_PreviousDocument_1_ComplementOfInformation = 1 AND [ncts_Previ"& _ "ousDocument_1_ComplementOfInformation] IS NULL) OR ([ncts_PreviousDocument_1_Com"& _ "plementOfInformation] = @Original_ncts_PreviousDocument_1_ComplementOfInformatio"& _ "n)) AND ((@IsNull_ncts_PreviousDocument_2_Type = 1 AND [ncts_PreviousDocument_2_"& _ "Type] IS NULL) OR ([ncts_PreviousDocument_2_Type] = @Original_ncts_PreviousDocum"& _ "ent_2_Type)) AND ((@IsNull_ncts_PreviousDocument_2_ReferenceNumber = 1 AND [ncts"& _ "_PreviousDocument_2_ReferenceNumber] IS NULL) OR ([ncts_PreviousDocument_2_Refer"& _ "enceNumber] = @Original_ncts_PreviousDocument_2_ReferenceNumber)) AND ((@IsNull_"& _ "ncts_PreviousDocument_2_ComplementOfInformation = 1 AND [ncts_PreviousDocument_2"& _ "_ComplementOfInformation] IS NULL) OR ([ncts_PreviousDocument_2_ComplementOfInfo"& _ "rmation] = @Original_ncts_PreviousDocument_2_ComplementOfInformation)) AND ((@Is"& _ "Null_ncts_PreviousDocument_3_Type = 1 AND [ncts_PreviousDocument_3_Type] IS NULL"& _ ") OR ([ncts_PreviousDocument_3_Type] = @Original_ncts_PreviousDocument_3_Type)) "& _ "AND ((@IsNull_ncts_PreviousDocument_3_ReferenceNumber = 1 AND [ncts_PreviousDocu"& _ "ment_3_ReferenceNumber] IS NULL) OR ([ncts_PreviousDocument_3_ReferenceNumber] ="& _ " @Original_ncts_PreviousDocument_3_ReferenceNumber)) AND ((@IsNull_ncts_Previous"& _ "Document_3_ComplementOfInformation = 1 AND [ncts_PreviousDocument_3_ComplementOf"& _ "Information] IS NULL) OR ([ncts_PreviousDocument_3_ComplementOfInformation] = @O"& _ "riginal_ncts_PreviousDocument_3_ComplementOfInformation)) AND ((@IsNull_ncts_Pre"& _ "viousDocument_4_Type = 1 AND [ncts_PreviousDocument_4_Type] IS NULL) OR ([ncts_P"& _ "reviousDocument_4_Type] = @Original_ncts_PreviousDocument_4_Type)) AND ((@IsNull"& _ "_ncts_PreviousDocument_4_ReferenceNumber = 1 AND [ncts_PreviousDocument_4_Refere"& _ "nceNumber] IS NULL) OR ([ncts_PreviousDocument_4_ReferenceNumber] = @Original_nc"& _ "ts_PreviousDocument_4_ReferenceNumber)) AND ((@IsNull_ncts_PreviousDocument_4_Co"& _ "mplementOfInformation = 1 AND [ncts_PreviousDocument_4_ComplementOfInformation] "& _ "IS NULL) OR ([ncts_PreviousDocument_4_ComplementOfInformation] = @Original_ncts_"& _ "PreviousDocument_4_ComplementOfInformation)) AND ((@IsNull_ncts_PreviousDocument"& _ "_5_Type = 1 AND [ncts_PreviousDocument_5_Type] IS NULL) OR ([ncts_PreviousDocume"& _ "nt_5_Type] = @Original_ncts_PreviousDocument_5_Type)) AND ((@IsNull_ncts_Previou"& _ "sDocument_5_ReferenceNumber = 1 AND [ncts_PreviousDocument_5_ReferenceNumber] IS"& _ " NULL) OR ([ncts_PreviousDocument_5_ReferenceNumber] = @Original_ncts_PreviousDo"& _ "cument_5_ReferenceNumber)) AND ((@IsNull_ncts_PreviousDocument_5_ComplementOfInf"& _ "ormation = 1 AND [ncts_PreviousDocument_5_ComplementOfInformation] IS NULL) OR ("& _ "[ncts_PreviousDocument_5_ComplementOfInformation] = @Original_ncts_PreviousDocum"& _ "ent_5_ComplementOfInformation)) AND ((@IsNull_ncts_PreviousDocument_6_Type = 1 A"& _ "ND [ncts_PreviousDocument_6_Type] IS NULL) OR ([ncts_PreviousDocument_6_Type] = "& _ "@Original_ncts_PreviousDocument_6_Type)) AND ((@IsNull_ncts_PreviousDocument_6_R"& _ "eferenceNumber = 1 AND [ncts_PreviousDocument_6_ReferenceNumber] IS NULL) OR ([n"& _ "cts_PreviousDocument_6_ReferenceNumber] = @Original_ncts_PreviousDocument_6_Refe"& _ "renceNumber)) AND ((@IsNull_ncts_PreviousDocument_6_ComplementOfInformation = 1 "& _ "AND [ncts_PreviousDocument_6_ComplementOfInformation] IS NULL) OR ([ncts_Previou"& _ "sDocument_6_ComplementOfInformation] = @Original_ncts_PreviousDocument_6_Complem"& _ "entOfInformation)) AND ((@IsNull_ncts_PreviousDocument_7_Type = 1 AND [ncts_Prev"& _ "iousDocument_7_Type] IS NULL) OR ([ncts_PreviousDocument_7_Type] = @Original_nct"& _ "s_PreviousDocument_7_Type)) AND ((@IsNull_ncts_PreviousDocument_7_ReferenceNumbe"& _ "r = 1 AND [ncts_PreviousDocument_7_ReferenceNumber] IS NULL) OR ([ncts_PreviousD"& _ "ocument_7_ReferenceNumber] = @Original_ncts_PreviousDocument_7_ReferenceNumber))"& _ " AND ((@IsNull_ncts_PreviousDocument_7_ComplementOfInformation = 1 AND [ncts_Pre"& _ "viousDocument_7_ComplementOfInformation] IS NULL) OR ([ncts_PreviousDocument_7_C"& _ "omplementOfInformation] = @Original_ncts_PreviousDocument_7_ComplementOfInformat"& _ "ion)) AND ((@IsNull_ncts_PreviousDocument_8_Type = 1 AND [ncts_PreviousDocument_"& _ "8_Type] IS NULL) OR ([ncts_PreviousDocument_8_Type] = @Original_ncts_PreviousDoc"& _ "ument_8_Type)) AND ((@IsNull_ncts_PreviousDocument_8_ReferenceNumber = 1 AND [nc"& _ "ts_PreviousDocument_8_ReferenceNumber] IS NULL) OR ([ncts_PreviousDocument_8_Ref"& _ "erenceNumber] = @Original_ncts_PreviousDocument_8_ReferenceNumber)) AND ((@IsNul"& _ "l_ncts_PreviousDocument_8_ComplementOfInformation = 1 AND [ncts_PreviousDocument"& _ "_8_ComplementOfInformation] IS NULL) OR ([ncts_PreviousDocument_8_ComplementOfIn"& _ "formation] = @Original_ncts_PreviousDocument_8_ComplementOfInformation)) AND ((@"& _ "IsNull_ncts_PreviousDocument_9_Type = 1 AND [ncts_PreviousDocument_9_Type] IS NU"& _ "LL) OR ([ncts_PreviousDocument_9_Type] = @Original_ncts_PreviousDocument_9_Type)"& _ ") AND ((@IsNull_ncts_PreviousDocument_9_ReferenceNumber = 1 AND [ncts_PreviousDo"& _ "cument_9_ReferenceNumber] IS NULL) OR ([ncts_PreviousDocument_9_ReferenceNumber]"& _ " = @Original_ncts_PreviousDocument_9_ReferenceNumber)) AND ((@IsNull_ncts_Previo"& _ "usDocument_9_ComplementOfInformation = 1 AND [ncts_PreviousDocument_9_Complement"& _ "OfInformation] IS NULL) OR ([ncts_PreviousDocument_9_ComplementOfInformation] = "& _ "@Original_ncts_PreviousDocument_9_ComplementOfInformation)) AND ((@IsNull_ncts_T"& _ "ransportDocument_1_Type = 1 AND [ncts_TransportDocument_1_Type] IS NULL) OR ([nc"& _ "ts_TransportDocument_1_Type] = @Original_ncts_TransportDocument_1_Type)) AND ((@"& _ "IsNull_ncts_TransportDocument_1_ReferenceNumber = 1 AND [ncts_TransportDocument_"& _ "1_ReferenceNumber] IS NULL) OR ([ncts_TransportDocument_1_ReferenceNumber] = @Or"& _ "iginal_ncts_TransportDocument_1_ReferenceNumber)) AND ((@IsNull_ncts_TransportDo"& _ "cument_2_Type = 1 AND [ncts_TransportDocument_2_Type] IS NULL) OR ([ncts_Transpo"& _ "rtDocument_2_Type] = @Original_ncts_TransportDocument_2_Type)) AND ((@IsNull_nct"& _ "s_TransportDocument_2_ReferenceNumber = 1 AND [ncts_TransportDocument_2_Referenc"& _ "eNumber] IS NULL) OR ([ncts_TransportDocument_2_ReferenceNumber] = @Original_nct"& _ "s_TransportDocument_2_ReferenceNumber)) AND ((@IsNull_ncts_TransportDocument_3_T"& _ "ype = 1 AND [ncts_TransportDocument_3_Type] IS NULL) OR ([ncts_TransportDocument"& _ "_3_Type] = @Original_ncts_TransportDocument_3_Type)) AND ((@IsNull_ncts_Transpor"& _ "tDocument_3_ReferenceNumber = 1 AND [ncts_TransportDocument_3_ReferenceNumber] I"& _ "S NULL) OR ([ncts_TransportDocument_3_ReferenceNumber] = @Original_ncts_Transpor"& _ "tDocument_3_ReferenceNumber)) AND ((@IsNull_ncts_TransportDocument_4_Type = 1 AN"& _ "D [ncts_TransportDocument_4_Type] IS NULL) OR ([ncts_TransportDocument_4_Type] ="& _ " @Original_ncts_TransportDocument_4_Type)) AND ((@IsNull_ncts_TransportDocument_"& _ "4_ReferenceNumber = 1 AND [ncts_TransportDocument_4_ReferenceNumber] IS NULL) OR"& _ " ([ncts_TransportDocument_4_ReferenceNumber] = @Original_ncts_TransportDocument_"& _ "4_ReferenceNumber)) AND ((@IsNull_ncts_TransportDocument_5_Type = 1 AND [ncts_Tr"& _ "ansportDocument_5_Type] IS NULL) OR ([ncts_TransportDocument_5_Type] = @Original"& _ "_ncts_TransportDocument_5_Type)) AND ((@IsNull_ncts_TransportDocument_5_Referenc"& _ "eNumber = 1 AND [ncts_TransportDocument_5_ReferenceNumber] IS NULL) OR ([ncts_Tr"& _ "ansportDocument_5_ReferenceNumber] = @Original_ncts_TransportDocument_5_Referenc"& _ "eNumber)) AND ((@IsNull_ncts_TransportDocument_6_Type = 1 AND [ncts_TransportDoc"& _ "ument_6_Type] IS NULL) OR ([ncts_TransportDocument_6_Type] = @Original_ncts_Tran"& _ "sportDocument_6_Type)) AND ((@IsNull_ncts_TransportDocument_6_ReferenceNumber = "& _ "1 AND [ncts_TransportDocument_6_ReferenceNumber] IS NULL) OR ([ncts_TransportDoc"& _ "ument_6_ReferenceNumber] = @Original_ncts_TransportDocument_6_ReferenceNumber)) "& _ "AND ((@IsNull_ncts_TransportDocument_7_Type = 1 AND [ncts_TransportDocument_7_Ty"& _ "pe] IS NULL) OR ([ncts_TransportDocument_7_Type] = @Original_ncts_TransportDocum"& _ "ent_7_Type)) AND ((@IsNull_ncts_TransportDocument_7_ReferenceNumber = 1 AND [nct"& _ "s_TransportDocument_7_ReferenceNumber] IS NULL) OR ([ncts_TransportDocument_7_Re"& _ "ferenceNumber] = @Original_ncts_TransportDocument_7_ReferenceNumber)) AND ((@IsN"& _ "ull_ncts_TransportDocument_8_Type = 1 AND [ncts_TransportDocument_8_Type] IS NUL"& _ "L) OR ([ncts_TransportDocument_8_Type] = @Original_ncts_TransportDocument_8_Type"& _ ")) AND ((@IsNull_ncts_TransportDocument_8_ReferenceNumber = 1 AND [ncts_Transpor"& _ "tDocument_8_ReferenceNumber] IS NULL) OR ([ncts_TransportDocument_8_ReferenceNum"& _ "ber] = @Original_ncts_TransportDocument_8_ReferenceNumber)) AND ((@IsNull_ncts_T"& _ "ransportDocument_9_Type = 1 AND [ncts_TransportDocument_9_Type] IS NULL) OR ([nc"& _ "ts_TransportDocument_9_Type] = @Original_ncts_TransportDocument_9_Type)) AND ((@"& _ "IsNull_ncts_TransportDocument_9_ReferenceNumber = 1 AND [ncts_TransportDocument_"& _ "9_ReferenceNumber] IS NULL) OR ([ncts_TransportDocument_9_ReferenceNumber] = @Or"& _ "iginal_ncts_TransportDocument_9_ReferenceNumber)) AND ((@IsNull_ncts_AdditionalR"& _ "eference_1_Type = 1 AND [ncts_AdditionalReference_1_Type] IS NULL) OR ([ncts_Add"& _ "itionalReference_1_Type] = @Original_ncts_AdditionalReference_1_Type)) AND ((@Is"& _ "Null_ncts_AdditionalReference_1_ReferenceNumber = 1 AND [ncts_AdditionalReferenc"& _ "e_1_ReferenceNumber] IS NULL) OR ([ncts_AdditionalReference_1_ReferenceNumber] ="& _ " @Original_ncts_AdditionalReference_1_ReferenceNumber)) AND ((@IsNull_ncts_Addit"& _ "ionalReference_2_Type = 1 AND [ncts_AdditionalReference_2_Type] IS NULL) OR ([nc"& _ "ts_AdditionalReference_2_Type] = @Original_ncts_AdditionalReference_2_Type)) AND"& _ " ((@IsNull_ncts_AdditionalReference_2_ReferenceNumber = 1 AND [ncts_AdditionalRe"& _ "ference_2_ReferenceNumber] IS NULL) OR ([ncts_AdditionalReference_2_ReferenceNum"& _ "ber] = @Original_ncts_AdditionalReference_2_ReferenceNumber)) AND ((@IsNull_ncts"& _ "_AdditionalReference_3_Type = 1 AND [ncts_AdditionalReference_3_Type] IS NULL) O"& _ "R ([ncts_AdditionalReference_3_Type] = @Original_ncts_AdditionalReference_3_Type"& _ ")) AND ((@IsNull_ncts_AdditionalReference_3_ReferenceNumber = 1 AND [ncts_Additi"& _ "onalReference_3_ReferenceNumber] IS NULL) OR ([ncts_AdditionalReference_3_Refere"& _ "nceNumber] = @Original_ncts_AdditionalReference_3_ReferenceNumber)) AND ((@IsNul"& _ "l_ncts_AdditionalReference_4_Type = 1 AND [ncts_AdditionalReference_4_Type] IS N"& _ "ULL) OR ([ncts_AdditionalReference_4_Type] = @Original_ncts_AdditionalReference_"& _ "4_Type)) AND ((@IsNull_ncts_AdditionalReference_4_ReferenceNumber = 1 AND [ncts_"& _ "AdditionalReference_4_ReferenceNumber] IS NULL) OR ([ncts_AdditionalReference_4_"& _ "ReferenceNumber] = @Original_ncts_AdditionalReference_4_ReferenceNumber)) AND (("& _ "@IsNull_ncts_AdditionalReference_5_Type = 1 AND [ncts_AdditionalReference_5_Type"& _ "] IS NULL) OR ([ncts_AdditionalReference_5_Type] = @Original_ncts_AdditionalRefe"& _ "rence_5_Type)) AND ((@IsNull_ncts_AdditionalReference_5_ReferenceNumber = 1 AND "& _ "[ncts_AdditionalReference_5_ReferenceNumber] IS NULL) OR ([ncts_AdditionalRefere"& _ "nce_5_ReferenceNumber] = @Original_ncts_AdditionalReference_5_ReferenceNumber)) "& _ "AND ((@IsNull_ncts_AdditionalReference_6_Type = 1 AND [ncts_AdditionalReference_"& _ "6_Type] IS NULL) OR ([ncts_AdditionalReference_6_Type] = @Original_ncts_Addition"& _ "alReference_6_Type)) AND ((@IsNull_ncts_AdditionalReference_6_ReferenceNumber = "& _ "1 AND [ncts_AdditionalReference_6_ReferenceNumber] IS NULL) OR ([ncts_Additional"& _ "Reference_6_ReferenceNumber] = @Original_ncts_AdditionalReference_6_ReferenceNum"& _ "ber)) AND ((@IsNull_ncts_AdditionalReference_7_Type = 1 AND [ncts_AdditionalRefe"& _ "rence_7_Type] IS NULL) OR ([ncts_AdditionalReference_7_Type] = @Original_ncts_Ad"& _ "ditionalReference_7_Type)) AND ((@IsNull_ncts_AdditionalReference_7_ReferenceNum"& _ "ber = 1 AND [ncts_AdditionalReference_7_ReferenceNumber] IS NULL) OR ([ncts_Addi"& _ "tionalReference_7_ReferenceNumber] = @Original_ncts_AdditionalReference_7_Refere"& _ "nceNumber)) AND ((@IsNull_ncts_AdditionalReference_8_Type = 1 AND [ncts_Addition"& _ "alReference_8_Type] IS NULL) OR ([ncts_AdditionalReference_8_Type] = @Original_n"& _ "cts_AdditionalReference_8_Type)) AND ((@IsNull_ncts_AdditionalReference_8_Refere"& _ "nceNumber = 1 AND [ncts_AdditionalReference_8_ReferenceNumber] IS NULL) OR ([nct"& _ "s_AdditionalReference_8_ReferenceNumber] = @Original_ncts_AdditionalReference_8_"& _ "ReferenceNumber)) AND ((@IsNull_ncts_AdditionalReference_9_Type = 1 AND [ncts_Ad"& _ "ditionalReference_9_Type] IS NULL) OR ([ncts_AdditionalReference_9_Type] = @Orig"& _ "inal_ncts_AdditionalReference_9_Type)) AND ((@IsNull_ncts_AdditionalReference_9_"& _ "ReferenceNumber = 1 AND [ncts_AdditionalReference_9_ReferenceNumber] IS NULL) OR"& _ " ([ncts_AdditionalReference_9_ReferenceNumber] = @Original_ncts_AdditionalRefere"& _ "nce_9_ReferenceNumber)) AND ((@IsNull_ncts_AdditionalInformation_1_Code = 1 AND "& _ "[ncts_AdditionalInformation_1_Code] IS NULL) OR ([ncts_AdditionalInformation_1_C"& _ "ode] = @Original_ncts_AdditionalInformation_1_Code)) AND ((@IsNull_ncts_Addition"& _ "alInformation_1_Text = 1 AND [ncts_AdditionalInformation_1_Text] IS NULL) OR ([n"& _ "cts_AdditionalInformation_1_Text] = @Original_ncts_AdditionalInformation_1_Text)"& _ ") AND ((@IsNull_ncts_AdditionalInformation_2_Code = 1 AND [ncts_AdditionalInform"& _ "ation_2_Code] IS NULL) OR ([ncts_AdditionalInformation_2_Code] = @Original_ncts_"& _ "AdditionalInformation_2_Code)) AND ((@IsNull_ncts_AdditionalInformation_2_Text ="& _ " 1 AND [ncts_AdditionalInformation_2_Text] IS NULL) OR ([ncts_AdditionalInformat"& _ "ion_2_Text] = @Original_ncts_AdditionalInformation_2_Text)) AND ((@IsNull_ncts_A"& _ "dditionalInformation_3_Code = 1 AND [ncts_AdditionalInformation_3_Code] IS NULL)"& _ " OR ([ncts_AdditionalInformation_3_Code] = @Original_ncts_AdditionalInformation_"& _ "3_Code)) AND ((@IsNull_ncts_AdditionalInformation_3_Text = 1 AND [ncts_Additiona"& _ "lInformation_3_Text] IS NULL) OR ([ncts_AdditionalInformation_3_Text] = @Origina"& _ "l_ncts_AdditionalInformation_3_Text)) AND ((@IsNull_ncts_AdditionalInformation_4"& _ "_Code = 1 AND [ncts_AdditionalInformation_4_Code] IS NULL) OR ([ncts_AdditionalI"& _ "nformation_4_Code] = @Original_ncts_AdditionalInformation_4_Code)) AND ((@IsNull"& _ "_ncts_AdditionalInformation_4_Text = 1 AND [ncts_AdditionalInformation_4_Text] I"& _ "S NULL) OR ([ncts_AdditionalInformation_4_Text] = @Original_ncts_AdditionalInfor"& _ "mation_4_Text)) AND ((@IsNull_ncts_AdditionalInformation_5_Code = 1 AND [ncts_Ad"& _ "ditionalInformation_5_Code] IS NULL) OR ([ncts_AdditionalInformation_5_Code] = @"& _ "Original_ncts_AdditionalInformation_5_Code)) AND ((@IsNull_ncts_AdditionalInform"& _ "ation_5_Text = 1 AND [ncts_AdditionalInformation_5_Text] IS NULL) OR ([ncts_Addi"& _ "tionalInformation_5_Text] = @Original_ncts_AdditionalInformation_5_Text)) AND (("& _ "@IsNull_ncts_AdditionalInformation_6_Code = 1 AND [ncts_AdditionalInformation_6_"& _ "Code] IS NULL) OR ([ncts_AdditionalInformation_6_Code] = @Original_ncts_Addition"& _ "alInformation_6_Code)) AND ((@IsNull_ncts_AdditionalInformation_6_Text = 1 AND ["& _ "ncts_AdditionalInformation_6_Text] IS NULL) OR ([ncts_AdditionalInformation_6_Te"& _ "xt] = @Original_ncts_AdditionalInformation_6_Text)) AND ((@IsNull_ncts_Additiona"& _ "lInformation_7_Code = 1 AND [ncts_AdditionalInformation_7_Code] IS NULL) OR ([nc"& _ "ts_AdditionalInformation_7_Code] = @Original_ncts_AdditionalInformation_7_Code))"& _ " AND ((@IsNull_ncts_AdditionalInformation_7_Text = 1 AND [ncts_AdditionalInforma"& _ "tion_7_Text] IS NULL) OR ([ncts_AdditionalInformation_7_Text] = @Original_ncts_A"& _ "dditionalInformation_7_Text)) AND ((@IsNull_ncts_AdditionalInformation_8_Code = "& _ "1 AND [ncts_AdditionalInformation_8_Code] IS NULL) OR ([ncts_AdditionalInformati"& _ "on_8_Code] = @Original_ncts_AdditionalInformation_8_Code)) AND ((@IsNull_ncts_Ad"& _ "ditionalInformation_8_Text = 1 AND [ncts_AdditionalInformation_8_Text] IS NULL) "& _ "OR ([ncts_AdditionalInformation_8_Text] = @Original_ncts_AdditionalInformation_8"& _ "_Text)) AND ((@IsNull_ncts_AdditionalInformation_9_Code = 1 AND [ncts_Additional"& _ "Information_9_Code] IS NULL) OR ([ncts_AdditionalInformation_9_Code] = @Original"& _ "_ncts_AdditionalInformation_9_Code)) AND ((@IsNull_ncts_AdditionalInformation_9_"& _ "Text = 1 AND [ncts_AdditionalInformation_9_Text] IS NULL) OR ([ncts_AdditionalIn"& _ "formation_9_Text] = @Original_ncts_AdditionalInformation_9_Text)) AND ((@IsNull_"& _ "ncts_AUTOIMPIndicator = 1 AND [ncts_AUTOIMPIndicator] IS NULL) OR ([ncts_AUTOIMP"& _ "Indicator] = @Original_ncts_AUTOIMPIndicator)) AND ((@IsNull_ncts_Stammreferenz "& _ "= 1 AND [ncts_Stammreferenz] IS NULL) OR ([ncts_Stammreferenz] = @Original_ncts_"& _ "Stammreferenz)) AND ((@IsNull_ncts_ModeOfTransportAtTheBorder = 1 AND [ncts_Mode"& _ "OfTransportAtTheBorder] IS NULL) OR ([ncts_ModeOfTransportAtTheBorder] = @Origin"& _ "al_ncts_ModeOfTransportAtTheBorder)) AND ((@IsNull_ncts_Eroeffnung = 1 AND [ncts"& _ "_Eroeffnung] IS NULL) OR ([ncts_Eroeffnung] = @Original_ncts_Eroeffnung)) AND (("& _ "@IsNull_ncts_Ankunft = 1 AND [ncts_Ankunft] IS NULL) OR ([ncts_Ankunft] = @Origi"& _ "nal_ncts_Ankunft)) AND ((@IsNull_ncts_Erledigung = 1 AND [ncts_Erledigung] IS NU"& _ "LL) OR ([ncts_Erledigung] = @Original_ncts_Erledigung)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ncts_Id, ncts_"& _ "Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR, nct"& _ "s_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_LetzteB"& _ "earbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_GestelltAm, n"& _ "cts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_Trans"& _ "_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenSenderTIN, "& _ "ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, ncts"& _ "_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_CountryOfDispa"& _ "tch, ncts_CountryOfDestination, ncts_Declarationtype, ncts_TIRCarnetNumber, ncts"& _ "_ReductedDatasetIndicator, ncts_LocationOfGoods_TypeofLocation, ncts_LocationOfG"& _ "oods_QualifierIdenfitication, ncts_LocationOfGoods_AdditionalIdentifier, ncts_Lo"& _ "cationOfGoods_ContactPerson_Name, ncts_LocationOfGoods_ContactPerson_PhoneNumber"& _ ", ncts_LocationOfGoods_ContactPerson_EMailAddress, ncts_CustomsOfficeOfTransitDe"& _ "clared_1_RefNumber, ncts_CustomsOfficeOfTransitDeclared_2_RefNumber, ncts_Custom"& _ "sOfficeOfTransitDeclared_3_RefNumber, ncts_CustomsOfficeOfTransitDeclared_4_RefN"& _ "umber, ncts_CustomsOfficeOfTransitDeclared_5_RefNumber, ncts_CustomsOfficeOfTran"& _ "sitDeclared_6_RefNumber, ncts_CustomsOfficeOfTransitDeclared_7_RefNumber, ncts_C"& _ "ustomsOfficeOfTransitDeclared_8_RefNumber, ncts_CustomsOfficeOfTransitDeclared_9"& _ "_RefNumber, ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime, ncts_Customs"& _ "OfficeOfTransitDeclared_2_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_"& _ "3_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime, ncts"& _ "_CustomsOfficeOfTransitDeclared_5_ArravialDateTime, ncts_CustomsOfficeOfTransitD"& _ "eclared_6_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTi"& _ "me, ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime, ncts_CustomsOfficeOf"& _ "TransitDeclared_9_ArravialDateTime, ncts_CustomsOfficeOfDestinationDeclared, nct"& _ "s_CustomsOfficeOfDeparture, ncts_CustomsOfficeOfExitForTransitDeclared, ncts_Lim"& _ "itDate, ncts_TransitDeclarationType, ncts_GrossMass, ncts_BindingItinerary, ncts"& _ "_ContainerIndicator, ncts_InlandModeOfTransport, ncts_DepartureTransportMeans_1_"& _ "TypeOfIdentification, ncts_DepartureTransportMeans_1_IdentificationNumber, ncts_"& _ "DepartureTransportMeans_1_Nationality, ncts_DepartureTransportMeans_2_TypeOfIden"& _ "tification, ncts_DepartureTransportMeans_2_IdentificationNumber, ncts_DepartureT"& _ "ransportMeans_2_Nationality, ncts_DepartureTransportMeans_3_TypeOfIdentification"& _ ", ncts_DepartureTransportMeans_3_IdentificationNumber, ncts_DepartureTransportMe"& _ "ans_3_Nationality, ncts_DepartureTransportMeans_4_TypeOfIdentification, ncts_Dep"& _ "artureTransportMeans_4_IdentificationNumber, ncts_DepartureTransportMeans_4_Nati"& _ "onality, ncts_ActiveBorderTransportMeans_1_TypeOfIdentification, ncts_ActiveBord"& _ "erTransportMeans_1_IdentificationNumber, ncts_ActiveBorderTransportMeans_1_Natio"& _ "nality, ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber, ncts_ActiveB"& _ "orderTransportMeans_1_CustomsOfficeAtBorderDeclared, ncts_ActiveBorderTransportM"& _ "eans_2_TypeOfIdentification, ncts_ActiveBorderTransportMeans_2_IdentificationNum"& _ "ber, ncts_ActiveBorderTransportMeans_2_Nationality, ncts_ActiveBorderTransportMe"& _ "ans_2_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_2_CustomsOfficeA"& _ "tBorderDeclared, ncts_ActiveBorderTransportMeans_3_TypeOfIdentification, ncts_Ac"& _ "tiveBorderTransportMeans_3_IdentificationNumber, ncts_ActiveBorderTransportMeans"& _ "_3_Nationality, ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber, ncts"& _ "_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared, ncts_ActiveBorderTr"& _ "ansportMeans_4_TypeOfIdentification, ncts_ActiveBorderTransportMeans_4_Identific"& _ "ationNumber, ncts_ActiveBorderTransportMeans_4_Nationality, ncts_ActiveBorderTra"& _ "nsportMeans_4_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_4_Custom"& _ "sOfficeAtBorderDeclared, ncts_Authorisation_1_Type, ncts_Authorisation_1_Referen"& _ "ceNumber, ncts_Authorisation_2_Type, ncts_Authorisation_2_ReferenceNumber, ncts_"& _ "Authorisation_3_Type, ncts_Authorisation_3_ReferenceNumber, ncts_Authorisation_4"& _ "_Type, ncts_Authorisation_4_ReferenceNumber, ncts_Authorisation_5_Type, ncts_Aut"& _ "horisation_5_ReferenceNumber, ncts_Authorisation_6_Type, ncts_Authorisation_6_Re"& _ "ferenceNumber, ncts_Authorisation_7_Type, ncts_Authorisation_7_ReferenceNumber, "& _ "ncts_Authorisation_8_Type, ncts_Authorisation_8_ReferenceNumber, ncts_Authorisat"& _ "ion_9_Type, ncts_Authorisation_9_ReferenceNumber, ncts_Consignor_AdressCode, nct"& _ "s_Consignor_IdentificationNumber, ncts_Consignor_SubsidiaryNumber, ncts_Consigno"& _ "r_Name, ncts_Consignor_StreetNumber, ncts_Consignor_City, ncts_Consignor_Postcod"& _ "e, ncts_Consignor_Country, ncts_Consignor_ContactPerson_Name, ncts_Consignor_Con"& _ "tactPerson_PhoneNumber, ncts_Consignor_ContactPerson_EMailAddress, ncts_Consigne"& _ "e_AdressCode, ncts_Consignee_IdentificationNumber, ncts_Consignee_SubsidiaryNumb"& _ "er, ncts_Consignee_Name, ncts_Consignee_StreetNumber, ncts_Consignee_City, ncts_"& _ "Consignee_Postcode, ncts_Consignee_Country, ncts_Consignee_ContactPerson_Name, n"& _ "cts_Consignee_ContactPerson_PhoneNumber, ncts_Consignee_ContactPerson_EMailAddre"& _ "ss, ncts_HolderOfTheTransitProcedure_AdressCode, ncts_HolderOfTheTransitProcedur"& _ "e_IdentificationNumber, ncts_HolderOfTheTransitProcedure_TIRHolderIdentification"& _ "Number, ncts_HolderOfTheTransitProcedure_Name, ncts_HolderOfTheTransitProcedure_"& _ "StreetNumber, ncts_HolderOfTheTransitProcedure_City, ncts_HolderOfTheTransitProc"& _ "edure_Postcode, ncts_HolderOfTheTransitProcedure_Country, ncts_HolderOfTheTransi"& _ "tProcedure_ContactPerson_Name, ncts_HolderOfTheTransitProcedure_ContactPerson_Ph"& _ "oneNumber, ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress, ncts_Rep"& _ "resentative_AdressCode, ncts_Representative_IdentificationNumber, ncts_Represent"& _ "ative_ContactPerson_Name, ncts_Representative_ContactPerson_PhoneNumber, ncts_Re"& _ "presentative_ContactPerson_EMailAddress, ncts_AdditionalSupplyChainActor_1_Role,"& _ " ncts_AdditionalSupplyChainActor_1_IdentificationNumber, ncts_AdditionalSupplyCh"& _ "ainActor_2_Role, ncts_AdditionalSupplyChainActor_2_IdentificationNumber, ncts_Ad"& _ "ditionalSupplyChainActor_3_Role, ncts_AdditionalSupplyChainActor_3_Identificatio"& _ "nNumber, ncts_AdditionalSupplyChainActor_4_Role, ncts_AdditionalSupplyChainActor"& _ "_4_IdentificationNumber, ncts_AdditionalSupplyChainActor_5_Role, ncts_Additional"& _ "SupplyChainActor_5_IdentificationNumber, ncts_AdditionalSupplyChainActor_6_Role,"& _ " ncts_AdditionalSupplyChainActor_6_IdentificationNumber, ncts_AdditionalSupplyCh"& _ "ainActor_7_Role, ncts_AdditionalSupplyChainActor_7_IdentificationNumber, ncts_Ad"& _ "ditionalSupplyChainActor_8_Role, ncts_AdditionalSupplyChainActor_8_Identificatio"& _ "nNumber, ncts_AdditionalSupplyChainActor_9_Role, ncts_AdditionalSupplyChainActor"& _ "_9_IdentificationNumber, ncts_Security, ncts_ReferenceNumberUCR, ncts_SpecificCi"& _ "rcomstanceIndicator, ncts_PlaceOfLoading_Location, ncts_PlaceOfLoading_Country, "& _ "ncts_PlaceOfUnLoading_Location, ncts_PlaceOfUnLoading_Country, ncts_TransportCha"& _ "rges, ncts_CountryOfRoutingOfConsignment_1, ncts_CountryOfRoutingOfConsignment_2"& _ ", ncts_CountryOfRoutingOfConsignment_3, ncts_CountryOfRoutingOfConsignment_4, nc"& _ "ts_CountryOfRoutingOfConsignment_5, ncts_CountryOfRoutingOfConsignment_6, ncts_C"& _ "ountryOfRoutingOfConsignment_7, ncts_CountryOfRoutingOfConsignment_8, ncts_Count"& _ "ryOfRoutingOfConsignment_9, ncts_CountryOfRoutingOfConsignment_10, ncts_CountryO"& _ "fRoutingOfConsignment_11, ncts_CountryOfRoutingOfConsignment_12, ncts_CountryOfR"& _ "outingOfConsignment_13, ncts_CountryOfRoutingOfConsignment_14, ncts_CountryOfRou"& _ "tingOfConsignment_15, ncts_Carrier_AdressCode, ncts_Carrier_IdentificationNumber"& _ ", ncts_Carrier_SubsidiaryNumber, ncts_Carrier_ContactPerson_Name, ncts_Carrier_C"& _ "ontactPerson_PhoneNumber, ncts_Carrier_ContactPerson_EMailAddress, ncts_Supporti"& _ "ngDocument_1_Type, ncts_SupportingDocument_1_ReferenceNumber, ncts_SupportingDoc"& _ "ument_1_DocumentLineItemNumber, ncts_SupportingDocument_1_ComplementOfInformatio"& _ "n, ncts_SupportingDocument_2_Type, ncts_SupportingDocument_2_ReferenceNumber, nc"& _ "ts_SupportingDocument_2_DocumentLineItemNumber, ncts_SupportingDocument_2_Comple"& _ "mentOfInformation, ncts_SupportingDocument_3_Type, ncts_SupportingDocument_3_Ref"& _ "erenceNumber, ncts_SupportingDocument_3_DocumentLineItemNumber, ncts_SupportingD"& _ "ocument_3_ComplementOfInformation, ncts_SupportingDocument_4_Type, ncts_Supporti"& _ "ngDocument_4_ReferenceNumber, ncts_SupportingDocument_4_DocumentLineItemNumber, "& _ "ncts_SupportingDocument_4_ComplementOfInformation, ncts_SupportingDocument_5_Typ"& _ "e, ncts_SupportingDocument_5_ReferenceNumber, ncts_SupportingDocument_5_Document"& _ "LineItemNumber, ncts_SupportingDocument_5_ComplementOfInformation, ncts_Supporti"& _ "ngDocument_6_Type, ncts_SupportingDocument_6_ReferenceNumber, ncts_SupportingDoc"& _ "ument_6_DocumentLineItemNumber, ncts_SupportingDocument_6_ComplementOfInformatio"& _ "n, ncts_SupportingDocument_7_Type, ncts_SupportingDocument_7_ReferenceNumber, nc"& _ "ts_SupportingDocument_7_DocumentLineItemNumber, ncts_SupportingDocument_7_Comple"& _ "mentOfInformation, ncts_SupportingDocument_8_Type, ncts_SupportingDocument_8_Ref"& _ "erenceNumber, ncts_SupportingDocument_8_DocumentLineItemNumber, ncts_SupportingD"& _ "ocument_8_ComplementOfInformation, ncts_SupportingDocument_9_Type, ncts_Supporti"& _ "ngDocument_9_ReferenceNumber, ncts_SupportingDocument_9_DocumentLineItemNumber, "& _ "ncts_SupportingDocument_9_ComplementOfInformation, ncts_PreviousDocument_1_Type,"& _ " ncts_PreviousDocument_1_ReferenceNumber, ncts_PreviousDocument_1_ComplementOfIn"& _ "formation, ncts_PreviousDocument_2_Type, ncts_PreviousDocument_2_ReferenceNumber"& _ ", ncts_PreviousDocument_2_ComplementOfInformation, ncts_PreviousDocument_3_Type,"& _ " ncts_PreviousDocument_3_ReferenceNumber, ncts_PreviousDocument_3_ComplementOfIn"& _ "formation, ncts_PreviousDocument_4_Type, ncts_PreviousDocument_4_ReferenceNumber"& _ ", ncts_PreviousDocument_4_ComplementOfInformation, ncts_PreviousDocument_5_Type,"& _ " ncts_PreviousDocument_5_ReferenceNumber, ncts_PreviousDocument_5_ComplementOfIn"& _ "formation, ncts_PreviousDocument_6_Type, ncts_PreviousDocument_6_ReferenceNumber"& _ ", ncts_PreviousDocument_6_ComplementOfInformation, ncts_PreviousDocument_7_Type,"& _ " ncts_PreviousDocument_7_ReferenceNumber, ncts_PreviousDocument_7_ComplementOfIn"& _ "formation, ncts_PreviousDocument_8_Type, ncts_PreviousDocument_8_ReferenceNumber"& _ ", ncts_PreviousDocument_8_ComplementOfInformation, ncts_PreviousDocument_9_Type,"& _ " ncts_PreviousDocument_9_ReferenceNumber, ncts_PreviousDocument_9_ComplementOfIn"& _ "formation, ncts_TransportDocument_1_Type, ncts_TransportDocument_1_ReferenceNumb"& _ "er, ncts_TransportDocument_2_Type, ncts_TransportDocument_2_ReferenceNumber, nct"& _ "s_TransportDocument_3_Type, ncts_TransportDocument_3_ReferenceNumber, ncts_Trans"& _ "portDocument_4_Type, ncts_TransportDocument_4_ReferenceNumber, ncts_TransportDoc"& _ "ument_5_Type, ncts_TransportDocument_5_ReferenceNumber, ncts_TransportDocument_6"& _ "_Type, ncts_TransportDocument_6_ReferenceNumber, ncts_TransportDocument_7_Type, "& _ "ncts_TransportDocument_7_ReferenceNumber, ncts_TransportDocument_8_Type, ncts_Tr"& _ "ansportDocument_8_ReferenceNumber, ncts_TransportDocument_9_Type, ncts_Transport"& _ "Document_9_ReferenceNumber, ncts_AdditionalReference_1_Type, ncts_AdditionalRefe"& _ "rence_1_ReferenceNumber, ncts_AdditionalReference_2_Type, ncts_AdditionalReferen"& _ "ce_2_ReferenceNumber, ncts_AdditionalReference_3_Type, ncts_AdditionalReference_"& _ "3_ReferenceNumber, ncts_AdditionalReference_4_Type, ncts_AdditionalReference_4_R"& _ "eferenceNumber, ncts_AdditionalReference_5_Type, ncts_AdditionalReference_5_Refe"& _ "renceNumber, ncts_AdditionalReference_6_Type, ncts_AdditionalReference_6_Referen"& _ "ceNumber, ncts_AdditionalReference_7_Type, ncts_AdditionalReference_7_ReferenceN"& _ "umber, ncts_AdditionalReference_8_Type, ncts_AdditionalReference_8_ReferenceNumb"& _ "er, ncts_AdditionalReference_9_Type, ncts_AdditionalReference_9_ReferenceNumber,"& _ " ncts_AdditionalInformation_1_Code, ncts_AdditionalInformation_1_Text, ncts_Addi"& _ "tionalInformation_2_Code, ncts_AdditionalInformation_2_Text, ncts_AdditionalInfo"& _ "rmation_3_Code, ncts_AdditionalInformation_3_Text, ncts_AdditionalInformation_4_"& _ "Code, ncts_AdditionalInformation_4_Text, ncts_AdditionalInformation_5_Code, ncts"& _ "_AdditionalInformation_5_Text, ncts_AdditionalInformation_6_Code, ncts_Additiona"& _ "lInformation_6_Text, ncts_AdditionalInformation_7_Code, ncts_AdditionalInformati"& _ "on_7_Text, ncts_AdditionalInformation_8_Code, ncts_AdditionalInformation_8_Text,"& _ " ncts_AdditionalInformation_9_Code, ncts_AdditionalInformation_9_Text, ncts_AUTO"& _ "IMPIndicator, ncts_Stammreferenz, ncts_ModeOfTransportAtTheBorder, ncts_Eroeffnu"& _ "ng, ncts_Ankunft, ncts_Erledigung FROM tblDakosy_NCTSOut004 WHERE (ncts_Id = @nc"& _ "ts_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDispatch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Declarationtype", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Declarationtype", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TIRCarnetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TIRCarnetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ReductedDatasetIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReductedDatasetIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_TypeofLocation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_TypeofLocation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDeparture", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LimitDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LimitDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransitDeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransitDeclarationType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "ncts_GrossMass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BindingItinerary", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BindingItinerary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ContainerIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ContainerIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_InlandModeOfTransport", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_InlandModeOfTransport", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Authorisation_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Representative_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Representative_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Representative_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Security", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Security", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SpecificCircomstanceIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SpecificCircomstanceIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PlaceOfLoading_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PlaceOfLoading_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PlaceOfUnLoading_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PlaceOfUnLoading_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportCharges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AUTOIMPIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AUTOIMPIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ModeOfTransportAtTheBorder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ModeOfTransportAtTheBorder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Eroeffnung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Ankunft", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erledigung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ANR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GestelltAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Partner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectAlias", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Bearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfDispatch", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Declarationtype", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Declarationtype", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Declarationtype", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Declarationtype", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TIRCarnetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TIRCarnetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TIRCarnetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TIRCarnetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ReductedDatasetIndicator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReductedDatasetIndicator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ReductedDatasetIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReductedDatasetIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_TypeofLocation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_TypeofLocation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_TypeofLocation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_TypeofLocation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_QualifierIdenfitication", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_AdditionalIdentifier", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LocationOfGoods_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDestinationDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfDeparture", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDeparture", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfDeparture", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CustomsOfficeOfExitForTransitDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LimitDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LimitDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LimitDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LimitDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransitDeclarationType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransitDeclarationType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransitDeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransitDeclarationType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GrossMass", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GrossMass", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "ncts_GrossMass", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BindingItinerary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BindingItinerary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BindingItinerary", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BindingItinerary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ContainerIndicator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ContainerIndicator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ContainerIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ContainerIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_InlandModeOfTransport", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_InlandModeOfTransport", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_InlandModeOfTransport", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_InlandModeOfTransport", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DepartureTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Authorisation_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Authorisation_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Authorisation_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Representative_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Representative_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Representative_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Representative_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Representative_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Representative_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Representative_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Security", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Security", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Security", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Security", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ReferenceNumberUCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SpecificCircomstanceIndicator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SpecificCircomstanceIndicator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SpecificCircomstanceIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SpecificCircomstanceIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PlaceOfLoading_Location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PlaceOfLoading_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PlaceOfLoading_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PlaceOfLoading_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfLoading_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PlaceOfUnLoading_Location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PlaceOfUnLoading_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PlaceOfUnLoading_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PlaceOfUnLoading_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PlaceOfUnLoading_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportCharges", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportCharges", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportCharges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_CountryOfRoutingOfConsignment_15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Carrier_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AUTOIMPIndicator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AUTOIMPIndicator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AUTOIMPIndicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AUTOIMPIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Stammreferenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ModeOfTransportAtTheBorder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ModeOfTransportAtTheBorder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ModeOfTransportAtTheBorder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ModeOfTransportAtTheBorder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Eroeffnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Eroeffnung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Ankunft", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Ankunft", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Erledigung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erledigung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ncts_Id, ncts_Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dya"& _ "AnmID, ncts_ANR, ncts_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearb"& _ "eitung, ncts_LetzteBearbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt"& _ ", ncts_GestelltAm, ncts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Tr"& _ "ans_Div3, ncts_Trans_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_Na"& _ "chrichtenSenderTIN, ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, n"& _ "cts_ObjectName, ncts_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter,"& _ " ncts_CountryOfDispatch, ncts_CountryOfDestination, ncts_Declarationtype, ncts_T"& _ "IRCarnetNumber, ncts_ReductedDatasetIndicator, ncts_LocationOfGoods_TypeofLocati"& _ "on, ncts_LocationOfGoods_QualifierIdenfitication, ncts_LocationOfGoods_Additiona"& _ "lIdentifier, ncts_LocationOfGoods_ContactPerson_Name, ncts_LocationOfGoods_Conta"& _ "ctPerson_PhoneNumber, ncts_LocationOfGoods_ContactPerson_EMailAddress, ncts_Cust"& _ "omsOfficeOfTransitDeclared_1_RefNumber, ncts_CustomsOfficeOfTransitDeclared_2_Re"& _ "fNumber, ncts_CustomsOfficeOfTransitDeclared_3_RefNumber, ncts_CustomsOfficeOfTr"& _ "ansitDeclared_4_RefNumber, ncts_CustomsOfficeOfTransitDeclared_5_RefNumber, ncts"& _ "_CustomsOfficeOfTransitDeclared_6_RefNumber, ncts_CustomsOfficeOfTransitDeclared"& _ "_7_RefNumber, ncts_CustomsOfficeOfTransitDeclared_8_RefNumber, ncts_CustomsOffic"& _ "eOfTransitDeclared_9_RefNumber, ncts_CustomsOfficeOfTransitDeclared_1_ArravialDa"& _ "teTime, ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime, ncts_CustomsOffi"& _ "ceOfTransitDeclared_3_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_4_Ar"& _ "ravialDateTime, ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime, ncts_Cus"& _ "tomsOfficeOfTransitDeclared_6_ArravialDateTime, ncts_CustomsOfficeOfTransitDecla"& _ "red_7_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime, "& _ "ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime, ncts_CustomsOfficeOfDest"& _ "inationDeclared, ncts_CustomsOfficeOfDeparture, ncts_CustomsOfficeOfExitForTrans"& _ "itDeclared, ncts_LimitDate, ncts_TransitDeclarationType, ncts_GrossMass, ncts_Bi"& _ "ndingItinerary, ncts_ContainerIndicator, ncts_InlandModeOfTransport, ncts_Depart"& _ "ureTransportMeans_1_TypeOfIdentification, ncts_DepartureTransportMeans_1_Identif"& _ "icationNumber, ncts_DepartureTransportMeans_1_Nationality, ncts_DepartureTranspo"& _ "rtMeans_2_TypeOfIdentification, ncts_DepartureTransportMeans_2_IdentificationNum"& _ "ber, ncts_DepartureTransportMeans_2_Nationality, ncts_DepartureTransportMeans_3_"& _ "TypeOfIdentification, ncts_DepartureTransportMeans_3_IdentificationNumber, ncts_"& _ "DepartureTransportMeans_3_Nationality, ncts_DepartureTransportMeans_4_TypeOfIden"& _ "tification, ncts_DepartureTransportMeans_4_IdentificationNumber, ncts_DepartureT"& _ "ransportMeans_4_Nationality, ncts_ActiveBorderTransportMeans_1_TypeOfIdentificat"& _ "ion, ncts_ActiveBorderTransportMeans_1_IdentificationNumber, ncts_ActiveBorderTr"& _ "ansportMeans_1_Nationality, ncts_ActiveBorderTransportMeans_1_CoveyanceReference"& _ "Number, ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared, ncts_Ac"& _ "tiveBorderTransportMeans_2_TypeOfIdentification, ncts_ActiveBorderTransportMeans"& _ "_2_IdentificationNumber, ncts_ActiveBorderTransportMeans_2_Nationality, ncts_Act"& _ "iveBorderTransportMeans_2_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMe"& _ "ans_2_CustomsOfficeAtBorderDeclared, ncts_ActiveBorderTransportMeans_3_TypeOfIde"& _ "ntification, ncts_ActiveBorderTransportMeans_3_IdentificationNumber, ncts_Active"& _ "BorderTransportMeans_3_Nationality, ncts_ActiveBorderTransportMeans_3_CoveyanceR"& _ "eferenceNumber, ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared,"& _ " ncts_ActiveBorderTransportMeans_4_TypeOfIdentification, ncts_ActiveBorderTransp"& _ "ortMeans_4_IdentificationNumber, ncts_ActiveBorderTransportMeans_4_Nationality, "& _ "ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber, ncts_ActiveBorderTra"& _ "nsportMeans_4_CustomsOfficeAtBorderDeclared, ncts_Authorisation_1_Type, ncts_Aut"& _ "horisation_1_ReferenceNumber, ncts_Authorisation_2_Type, ncts_Authorisation_2_Re"& _ "ferenceNumber, ncts_Authorisation_3_Type, ncts_Authorisation_3_ReferenceNumber, "& _ "ncts_Authorisation_4_Type, ncts_Authorisation_4_ReferenceNumber, ncts_Authorisat"& _ "ion_5_Type, ncts_Authorisation_5_ReferenceNumber, ncts_Authorisation_6_Type, nct"& _ "s_Authorisation_6_ReferenceNumber, ncts_Authorisation_7_Type, ncts_Authorisation"& _ "_7_ReferenceNumber, ncts_Authorisation_8_Type, ncts_Authorisation_8_ReferenceNum"& _ "ber, ncts_Authorisation_9_Type, ncts_Authorisation_9_ReferenceNumber, ncts_Consi"& _ "gnor_AdressCode, ncts_Consignor_IdentificationNumber, ncts_Consignor_SubsidiaryN"& _ "umber, ncts_Consignor_Name, ncts_Consignor_StreetNumber, ncts_Consignor_City, nc"& _ "ts_Consignor_Postcode, ncts_Consignor_Country, ncts_Consignor_ContactPerson_Name"& _ ", ncts_Consignor_ContactPerson_PhoneNumber, ncts_Consignor_ContactPerson_EMailAd"& _ "dress, ncts_Consignee_AdressCode, ncts_Consignee_IdentificationNumber, ncts_Cons"& _ "ignee_SubsidiaryNumber, ncts_Consignee_Name, ncts_Consignee_StreetNumber, ncts_C"& _ "onsignee_City, ncts_Consignee_Postcode, ncts_Consignee_Country, ncts_Consignee_C"& _ "ontactPerson_Name, ncts_Consignee_ContactPerson_PhoneNumber, ncts_Consignee_Cont"& _ "actPerson_EMailAddress, ncts_HolderOfTheTransitProcedure_AdressCode, ncts_Holder"& _ "OfTheTransitProcedure_IdentificationNumber, ncts_HolderOfTheTransitProcedure_TIR"& _ "HolderIdentificationNumber, ncts_HolderOfTheTransitProcedure_Name, ncts_HolderOf"& _ "TheTransitProcedure_StreetNumber, ncts_HolderOfTheTransitProcedure_City, ncts_Ho"& _ "lderOfTheTransitProcedure_Postcode, ncts_HolderOfTheTransitProcedure_Country, nc"& _ "ts_HolderOfTheTransitProcedure_ContactPerson_Name, ncts_HolderOfTheTransitProced"& _ "ure_ContactPerson_PhoneNumber, ncts_HolderOfTheTransitProcedure_ContactPerson_EM"& _ "ailAddress, ncts_Representative_AdressCode, ncts_Representative_IdentificationNu"& _ "mber, ncts_Representative_ContactPerson_Name, ncts_Representative_ContactPerson_"& _ "PhoneNumber, ncts_Representative_ContactPerson_EMailAddress, ncts_AdditionalSupp"& _ "lyChainActor_1_Role, ncts_AdditionalSupplyChainActor_1_IdentificationNumber, nct"& _ "s_AdditionalSupplyChainActor_2_Role, ncts_AdditionalSupplyChainActor_2_Identific"& _ "ationNumber, ncts_AdditionalSupplyChainActor_3_Role, ncts_AdditionalSupplyChainA"& _ "ctor_3_IdentificationNumber, ncts_AdditionalSupplyChainActor_4_Role, ncts_Additi"& _ "onalSupplyChainActor_4_IdentificationNumber, ncts_AdditionalSupplyChainActor_5_R"& _ "ole, ncts_AdditionalSupplyChainActor_5_IdentificationNumber, ncts_AdditionalSupp"& _ "lyChainActor_6_Role, ncts_AdditionalSupplyChainActor_6_IdentificationNumber, nct"& _ "s_AdditionalSupplyChainActor_7_Role, ncts_AdditionalSupplyChainActor_7_Identific"& _ "ationNumber, ncts_AdditionalSupplyChainActor_8_Role, ncts_AdditionalSupplyChainA"& _ "ctor_8_IdentificationNumber, ncts_AdditionalSupplyChainActor_9_Role, ncts_Additi"& _ "onalSupplyChainActor_9_IdentificationNumber, ncts_Security, ncts_ReferenceNumber"& _ "UCR, ncts_SpecificCircomstanceIndicator, ncts_PlaceOfLoading_Location, ncts_Plac"& _ "eOfLoading_Country, ncts_PlaceOfUnLoading_Location, ncts_PlaceOfUnLoading_Countr"& _ "y, ncts_TransportCharges, ncts_CountryOfRoutingOfConsignment_1, ncts_CountryOfRo"& _ "utingOfConsignment_2, ncts_CountryOfRoutingOfConsignment_3, ncts_CountryOfRoutin"& _ "gOfConsignment_4, ncts_CountryOfRoutingOfConsignment_5, ncts_CountryOfRoutingOfC"& _ "onsignment_6, ncts_CountryOfRoutingOfConsignment_7, ncts_CountryOfRoutingOfConsi"& _ "gnment_8, ncts_CountryOfRoutingOfConsignment_9, ncts_CountryOfRoutingOfConsignme"& _ "nt_10, ncts_CountryOfRoutingOfConsignment_11, ncts_CountryOfRoutingOfConsignment"& _ "_12, ncts_CountryOfRoutingOfConsignment_13, ncts_CountryOfRoutingOfConsignment_1"& _ "4, ncts_CountryOfRoutingOfConsignment_15, ncts_Carrier_AdressCode, ncts_Carrier_"& _ "IdentificationNumber, ncts_Carrier_SubsidiaryNumber, ncts_Carrier_ContactPerson_"& _ "Name, ncts_Carrier_ContactPerson_PhoneNumber, ncts_Carrier_ContactPerson_EMailAd"& _ "dress, ncts_SupportingDocument_1_Type, ncts_SupportingDocument_1_ReferenceNumber"& _ ", ncts_SupportingDocument_1_DocumentLineItemNumber, ncts_SupportingDocument_1_Co"& _ "mplementOfInformation, ncts_SupportingDocument_2_Type, ncts_SupportingDocument_2"& _ "_ReferenceNumber, ncts_SupportingDocument_2_DocumentLineItemNumber, ncts_Support"& _ "ingDocument_2_ComplementOfInformation, ncts_SupportingDocument_3_Type, ncts_Supp"& _ "ortingDocument_3_ReferenceNumber, ncts_SupportingDocument_3_DocumentLineItemNumb"& _ "er, ncts_SupportingDocument_3_ComplementOfInformation, ncts_SupportingDocument_4"& _ "_Type, ncts_SupportingDocument_4_ReferenceNumber, ncts_SupportingDocument_4_Docu"& _ "mentLineItemNumber, ncts_SupportingDocument_4_ComplementOfInformation, ncts_Supp"& _ "ortingDocument_5_Type, ncts_SupportingDocument_5_ReferenceNumber, ncts_Supportin"& _ "gDocument_5_DocumentLineItemNumber, ncts_SupportingDocument_5_ComplementOfInform"& _ "ation, ncts_SupportingDocument_6_Type, ncts_SupportingDocument_6_ReferenceNumber"& _ ", ncts_SupportingDocument_6_DocumentLineItemNumber, ncts_SupportingDocument_6_Co"& _ "mplementOfInformation, ncts_SupportingDocument_7_Type, ncts_SupportingDocument_7"& _ "_ReferenceNumber, ncts_SupportingDocument_7_DocumentLineItemNumber, ncts_Support"& _ "ingDocument_7_ComplementOfInformation, ncts_SupportingDocument_8_Type, ncts_Supp"& _ "ortingDocument_8_ReferenceNumber, ncts_SupportingDocument_8_DocumentLineItemNumb"& _ "er, ncts_SupportingDocument_8_ComplementOfInformation, ncts_SupportingDocument_9"& _ "_Type, ncts_SupportingDocument_9_ReferenceNumber, ncts_SupportingDocument_9_Docu"& _ "mentLineItemNumber, ncts_SupportingDocument_9_ComplementOfInformation, ncts_Prev"& _ "iousDocument_1_Type, ncts_PreviousDocument_1_ReferenceNumber, ncts_PreviousDocum"& _ "ent_1_ComplementOfInformation, ncts_PreviousDocument_2_Type, ncts_PreviousDocume"& _ "nt_2_ReferenceNumber, ncts_PreviousDocument_2_ComplementOfInformation, ncts_Prev"& _ "iousDocument_3_Type, ncts_PreviousDocument_3_ReferenceNumber, ncts_PreviousDocum"& _ "ent_3_ComplementOfInformation, ncts_PreviousDocument_4_Type, ncts_PreviousDocume"& _ "nt_4_ReferenceNumber, ncts_PreviousDocument_4_ComplementOfInformation, ncts_Prev"& _ "iousDocument_5_Type, ncts_PreviousDocument_5_ReferenceNumber, ncts_PreviousDocum"& _ "ent_5_ComplementOfInformation, ncts_PreviousDocument_6_Type, ncts_PreviousDocume"& _ "nt_6_ReferenceNumber, ncts_PreviousDocument_6_ComplementOfInformation, ncts_Prev"& _ "iousDocument_7_Type, ncts_PreviousDocument_7_ReferenceNumber, ncts_PreviousDocum"& _ "ent_7_ComplementOfInformation, ncts_PreviousDocument_8_Type, ncts_PreviousDocume"& _ "nt_8_ReferenceNumber, ncts_PreviousDocument_8_ComplementOfInformation, ncts_Prev"& _ "iousDocument_9_Type, ncts_PreviousDocument_9_ReferenceNumber, ncts_PreviousDocum"& _ "ent_9_ComplementOfInformation, ncts_TransportDocument_1_Type, ncts_TransportDocu"& _ "ment_1_ReferenceNumber, ncts_TransportDocument_2_Type, ncts_TransportDocument_2_"& _ "ReferenceNumber, ncts_TransportDocument_3_Type, ncts_TransportDocument_3_Referen"& _ "ceNumber, ncts_TransportDocument_4_Type, ncts_TransportDocument_4_ReferenceNumbe"& _ "r, ncts_TransportDocument_5_Type, ncts_TransportDocument_5_ReferenceNumber, ncts"& _ "_TransportDocument_6_Type, ncts_TransportDocument_6_ReferenceNumber, ncts_Transp"& _ "ortDocument_7_Type, ncts_TransportDocument_7_ReferenceNumber, ncts_TransportDocu"& _ "ment_8_Type, ncts_TransportDocument_8_ReferenceNumber, ncts_TransportDocument_9_"& _ "Type, ncts_TransportDocument_9_ReferenceNumber, ncts_AdditionalReference_1_Type,"& _ " ncts_AdditionalReference_1_ReferenceNumber, ncts_AdditionalReference_2_Type, nc"& _ "ts_AdditionalReference_2_ReferenceNumber, ncts_AdditionalReference_3_Type, ncts_"& _ "AdditionalReference_3_ReferenceNumber, ncts_AdditionalReference_4_Type, ncts_Add"& _ "itionalReference_4_ReferenceNumber, ncts_AdditionalReference_5_Type, ncts_Additi"& _ "onalReference_5_ReferenceNumber, ncts_AdditionalReference_6_Type, ncts_Additiona"& _ "lReference_6_ReferenceNumber, ncts_AdditionalReference_7_Type, ncts_AdditionalRe"& _ "ference_7_ReferenceNumber, ncts_AdditionalReference_8_Type, ncts_AdditionalRefer"& _ "ence_8_ReferenceNumber, ncts_AdditionalReference_9_Type, ncts_AdditionalReferenc"& _ "e_9_ReferenceNumber, ncts_AdditionalInformation_1_Code, ncts_AdditionalInformati"& _ "on_1_Text, ncts_AdditionalInformation_2_Code, ncts_AdditionalInformation_2_Text,"& _ " ncts_AdditionalInformation_3_Code, ncts_AdditionalInformation_3_Text, ncts_Addi"& _ "tionalInformation_4_Code, ncts_AdditionalInformation_4_Text, ncts_AdditionalInfo"& _ "rmation_5_Code, ncts_AdditionalInformation_5_Text, ncts_AdditionalInformation_6_"& _ "Code, ncts_AdditionalInformation_6_Text, ncts_AdditionalInformation_7_Code, ncts"& _ "_AdditionalInformation_7_Text, ncts_AdditionalInformation_8_Code, ncts_Additiona"& _ "lInformation_8_Text, ncts_AdditionalInformation_9_Code, ncts_AdditionalInformati"& _ "on_9_Text, ncts_AUTOIMPIndicator, ncts_Stammreferenz, ncts_ModeOfTransportAtTheB"& _ "order, ncts_Eroeffnung, ncts_Ankunft, ncts_Erledigung FROM dbo.tblDakosy_NCTSOut"& _ "004" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004DataTable) 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 VERAGDataSet.tblDakosy_NCTSOut004DataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOut004DataTable = New VERAGDataSet.tblDakosy_NCTSOut004DataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004DataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut004") 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_ncts_Id As Integer, _ ByVal Original_ncts_Status As Integer, _ ByVal Original_ncts_Status_KEWILL_Equivalent As Integer, _ ByVal Original_ncts_dyaArt As String, _ ByVal Original_ncts_dyaAnmID As Integer, _ ByVal Original_ncts_ANR As String, _ ByVal Original_ncts_MRN As String, _ ByVal Original_ncts_Erstellung As Date, _ ByVal Original_ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_LetzteBearbeitung As Date, _ ByVal Original_ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_firma As String, _ ByVal Original_ncts_niederlassung As String, _ ByVal Original_ncts_Gestellt As Boolean, _ ByVal Original_ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Partner As String, _ ByVal Original_ncts_Trans_Div1 As String, _ ByVal Original_ncts_Trans_Div2 As String, _ ByVal Original_ncts_Trans_Div3 As String, _ ByVal Original_ncts_Trans_Referenz As String, _ ByVal Original_ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_NachrichtenSenderTIN As String, _ ByVal Original_ncts_NachrichtenSenderNLNR As String, _ ByVal Original_ncts_NachrichtenempfaengerDST As String, _ ByVal Original_ncts_ObjectName As String, _ ByVal Original_ncts_ObjectAlias As String, _ ByVal Original_ncts_BezugsnummerVorblendung As String, _ ByVal Original_ncts_Bearbeiter As String, _ ByVal Original_ncts_CountryOfDispatch As String, _ ByVal Original_ncts_CountryOfDestination As String, _ ByVal Original_ncts_Declarationtype As String, _ ByVal Original_ncts_TIRCarnetNumber As String, _ ByVal Original_ncts_ReductedDatasetIndicator As String, _ ByVal Original_ncts_LocationOfGoods_TypeofLocation As String, _ ByVal Original_ncts_LocationOfGoods_QualifierIdenfitication As String, _ ByVal Original_ncts_LocationOfGoods_AdditionalIdentifier As String, _ ByVal Original_ncts_LocationOfGoods_ContactPerson_Name As String, _ ByVal Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_LocationOfGoods_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfDestinationDeclared As String, _ ByVal Original_ncts_CustomsOfficeOfDeparture As String, _ ByVal Original_ncts_CustomsOfficeOfExitForTransitDeclared As String, _ ByVal Original_ncts_LimitDate As Global.System.Nullable(Of Date), _ ByVal Original_ncts_TransitDeclarationType As String, _ ByVal Original_ncts_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_BindingItinerary As String, _ ByVal Original_ncts_ContainerIndicator As String, _ ByVal Original_ncts_InlandModeOfTransport As String, _ ByVal Original_ncts_DepartureTransportMeans_1_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_1_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_1_Nationality As String, _ ByVal Original_ncts_DepartureTransportMeans_2_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_2_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_2_Nationality As String, _ ByVal Original_ncts_DepartureTransportMeans_3_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_3_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_3_Nationality As String, _ ByVal Original_ncts_DepartureTransportMeans_4_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_4_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_4_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_Authorisation_1_Type As String, _ ByVal Original_ncts_Authorisation_1_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_2_Type As String, _ ByVal Original_ncts_Authorisation_2_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_3_Type As String, _ ByVal Original_ncts_Authorisation_3_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_4_Type As String, _ ByVal Original_ncts_Authorisation_4_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_5_Type As String, _ ByVal Original_ncts_Authorisation_5_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_6_Type As String, _ ByVal Original_ncts_Authorisation_6_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_7_Type As String, _ ByVal Original_ncts_Authorisation_7_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_8_Type As String, _ ByVal Original_ncts_Authorisation_8_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_9_Type As String, _ ByVal Original_ncts_Authorisation_9_ReferenceNumber As String, _ ByVal Original_ncts_Consignor_AdressCode As String, _ ByVal Original_ncts_Consignor_IdentificationNumber As String, _ ByVal Original_ncts_Consignor_SubsidiaryNumber As String, _ ByVal Original_ncts_Consignor_Name As String, _ ByVal Original_ncts_Consignor_StreetNumber As String, _ ByVal Original_ncts_Consignor_City As String, _ ByVal Original_ncts_Consignor_Postcode As String, _ ByVal Original_ncts_Consignor_Country As String, _ ByVal Original_ncts_Consignor_ContactPerson_Name As String, _ ByVal Original_ncts_Consignor_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Consignor_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_Consignee_AdressCode As String, _ ByVal Original_ncts_Consignee_IdentificationNumber As String, _ ByVal Original_ncts_Consignee_SubsidiaryNumber As String, _ ByVal Original_ncts_Consignee_Name As String, _ ByVal Original_ncts_Consignee_StreetNumber As String, _ ByVal Original_ncts_Consignee_City As String, _ ByVal Original_ncts_Consignee_Postcode As String, _ ByVal Original_ncts_Consignee_Country As String, _ ByVal Original_ncts_Consignee_ContactPerson_Name As String, _ ByVal Original_ncts_Consignee_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Consignee_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_AdressCode As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_IdentificationNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_Name As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_StreetNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_City As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_Postcode As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_Country As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_Representative_AdressCode As String, _ ByVal Original_ncts_Representative_IdentificationNumber As String, _ ByVal Original_ncts_Representative_ContactPerson_Name As String, _ ByVal Original_ncts_Representative_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Representative_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_1_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_2_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_3_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_4_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_5_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_6_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_7_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_8_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_9_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal Original_ncts_Security As String, _ ByVal Original_ncts_ReferenceNumberUCR As String, _ ByVal Original_ncts_SpecificCircomstanceIndicator As String, _ ByVal Original_ncts_PlaceOfLoading_Location As String, _ ByVal Original_ncts_PlaceOfLoading_Country As String, _ ByVal Original_ncts_PlaceOfUnLoading_Location As String, _ ByVal Original_ncts_PlaceOfUnLoading_Country As String, _ ByVal Original_ncts_TransportCharges As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_1 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_2 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_3 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_4 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_5 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_6 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_7 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_8 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_9 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_10 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_11 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_12 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_13 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_14 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_15 As String, _ ByVal Original_ncts_Carrier_AdressCode As String, _ ByVal Original_ncts_Carrier_IdentificationNumber As String, _ ByVal Original_ncts_Carrier_SubsidiaryNumber As String, _ ByVal Original_ncts_Carrier_ContactPerson_Name As String, _ ByVal Original_ncts_Carrier_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Carrier_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_SupportingDocument_1_Type As String, _ ByVal Original_ncts_SupportingDocument_1_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_1_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_2_Type As String, _ ByVal Original_ncts_SupportingDocument_2_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_2_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_3_Type As String, _ ByVal Original_ncts_SupportingDocument_3_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_3_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_4_Type As String, _ ByVal Original_ncts_SupportingDocument_4_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_4_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_5_Type As String, _ ByVal Original_ncts_SupportingDocument_5_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_5_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_6_Type As String, _ ByVal Original_ncts_SupportingDocument_6_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_6_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_7_Type As String, _ ByVal Original_ncts_SupportingDocument_7_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_7_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_8_Type As String, _ ByVal Original_ncts_SupportingDocument_8_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_8_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_9_Type As String, _ ByVal Original_ncts_SupportingDocument_9_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_9_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_1_Type As String, _ ByVal Original_ncts_PreviousDocument_1_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_1_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_2_Type As String, _ ByVal Original_ncts_PreviousDocument_2_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_2_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_3_Type As String, _ ByVal Original_ncts_PreviousDocument_3_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_3_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_4_Type As String, _ ByVal Original_ncts_PreviousDocument_4_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_4_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_5_Type As String, _ ByVal Original_ncts_PreviousDocument_5_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_5_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_6_Type As String, _ ByVal Original_ncts_PreviousDocument_6_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_6_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_7_Type As String, _ ByVal Original_ncts_PreviousDocument_7_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_7_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_8_Type As String, _ ByVal Original_ncts_PreviousDocument_8_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_8_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_9_Type As String, _ ByVal Original_ncts_PreviousDocument_9_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_9_ComplementOfInformation As String, _ ByVal Original_ncts_TransportDocument_1_Type As String, _ ByVal Original_ncts_TransportDocument_1_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_2_Type As String, _ ByVal Original_ncts_TransportDocument_2_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_3_Type As String, _ ByVal Original_ncts_TransportDocument_3_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_4_Type As String, _ ByVal Original_ncts_TransportDocument_4_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_5_Type As String, _ ByVal Original_ncts_TransportDocument_5_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_6_Type As String, _ ByVal Original_ncts_TransportDocument_6_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_7_Type As String, _ ByVal Original_ncts_TransportDocument_7_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_8_Type As String, _ ByVal Original_ncts_TransportDocument_8_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_9_Type As String, _ ByVal Original_ncts_TransportDocument_9_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_1_Type As String, _ ByVal Original_ncts_AdditionalReference_1_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_2_Type As String, _ ByVal Original_ncts_AdditionalReference_2_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_3_Type As String, _ ByVal Original_ncts_AdditionalReference_3_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_4_Type As String, _ ByVal Original_ncts_AdditionalReference_4_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_5_Type As String, _ ByVal Original_ncts_AdditionalReference_5_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_6_Type As String, _ ByVal Original_ncts_AdditionalReference_6_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_7_Type As String, _ ByVal Original_ncts_AdditionalReference_7_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_8_Type As String, _ ByVal Original_ncts_AdditionalReference_8_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_9_Type As String, _ ByVal Original_ncts_AdditionalReference_9_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalInformation_1_Code As String, _ ByVal Original_ncts_AdditionalInformation_1_Text As String, _ ByVal Original_ncts_AdditionalInformation_2_Code As String, _ ByVal Original_ncts_AdditionalInformation_2_Text As String, _ ByVal Original_ncts_AdditionalInformation_3_Code As String, _ ByVal Original_ncts_AdditionalInformation_3_Text As String, _ ByVal Original_ncts_AdditionalInformation_4_Code As String, _ ByVal Original_ncts_AdditionalInformation_4_Text As String, _ ByVal Original_ncts_AdditionalInformation_5_Code As String, _ ByVal Original_ncts_AdditionalInformation_5_Text As String, _ ByVal Original_ncts_AdditionalInformation_6_Code As String, _ ByVal Original_ncts_AdditionalInformation_6_Text As String, _ ByVal Original_ncts_AdditionalInformation_7_Code As String, _ ByVal Original_ncts_AdditionalInformation_7_Text As String, _ ByVal Original_ncts_AdditionalInformation_8_Code As String, _ ByVal Original_ncts_AdditionalInformation_8_Text As String, _ ByVal Original_ncts_AdditionalInformation_9_Code As String, _ ByVal Original_ncts_AdditionalInformation_9_Text As String, _ ByVal Original_ncts_AUTOIMPIndicator As String, _ ByVal Original_ncts_Stammreferenz As String, _ ByVal Original_ncts_ModeOfTransportAtTheBorder As String, _ ByVal Original_ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Erledigung As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ncts_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ncts_Status,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ncts_Status_KEWILL_Equivalent,Integer) If (Original_ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ncts_dyaArt") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ncts_dyaArt,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ncts_dyaAnmID,Integer) If (Original_ncts_ANR 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_ncts_ANR,String) End If If (Original_ncts_MRN 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_ncts_MRN,String) End If Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ncts_Erstellung,Date) If (Original_ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ncts_LetzteBearbeitung,Date) If (Original_ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ncts_LetzteBearbeitung_SB.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_ncts_firma Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ncts_firma,String) End If If (Original_ncts_niederlassung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_ncts_niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_ncts_Gestellt,Boolean) If (Original_ncts_GestelltAm.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_ncts_GestelltAm.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Partner 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_ncts_Trans_Partner,String) End If If (Original_ncts_Trans_Div1 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_ncts_Trans_Div1,String) End If If (Original_ncts_Trans_Div2 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_ncts_Trans_Div2,String) End If If (Original_ncts_Trans_Div3 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_ncts_Trans_Div3,String) End If If (Original_ncts_Trans_Referenz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_ncts_Trans_Referenz,String) End If If (Original_ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Version.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_ncts_Trans_Version.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_ncts_NachrichtenSenderTIN,String) End If If (Original_ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_ncts_NachrichtenSenderNLNR,String) End If If (Original_ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_ncts_NachrichtenempfaengerDST,String) End If If (Original_ncts_ObjectName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_ncts_ObjectName,String) End If If (Original_ncts_ObjectAlias Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_ncts_ObjectAlias,String) End If If (Original_ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_ncts_BezugsnummerVorblendung,String) End If If (Original_ncts_Bearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_ncts_Bearbeiter,String) End If If (Original_ncts_CountryOfDispatch Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_ncts_CountryOfDispatch,String) End If If (Original_ncts_CountryOfDestination Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_ncts_CountryOfDestination,String) End If If (Original_ncts_Declarationtype Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = CType(Original_ncts_Declarationtype,String) End If If (Original_ncts_TIRCarnetNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = CType(Original_ncts_TIRCarnetNumber,String) End If If (Original_ncts_ReductedDatasetIndicator Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_ncts_ReductedDatasetIndicator,String) End If If (Original_ncts_LocationOfGoods_TypeofLocation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_ncts_LocationOfGoods_TypeofLocation,String) End If If (Original_ncts_LocationOfGoods_QualifierIdenfitication Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_ncts_LocationOfGoods_QualifierIdenfitication,String) End If If (Original_ncts_LocationOfGoods_AdditionalIdentifier Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_ncts_LocationOfGoods_AdditionalIdentifier,String) End If If (Original_ncts_LocationOfGoods_ContactPerson_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_ncts_LocationOfGoods_ContactPerson_Name,String) End If If (Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = CType(Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber,String) End If If (Original_ncts_LocationOfGoods_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = CType(Original_ncts_LocationOfGoods_ContactPerson_EMailAddress,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfDestinationDeclared Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = CType(Original_ncts_CustomsOfficeOfDestinationDeclared,String) End If If (Original_ncts_CustomsOfficeOfDeparture Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = CType(Original_ncts_CustomsOfficeOfDeparture,String) End If If (Original_ncts_CustomsOfficeOfExitForTransitDeclared Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = CType(Original_ncts_CustomsOfficeOfExitForTransitDeclared,String) End If If (Original_ncts_LimitDate.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = CType(Original_ncts_LimitDate.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = Global.System.DBNull.Value End If If (Original_ncts_TransitDeclarationType Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = CType(Original_ncts_TransitDeclarationType,String) End If If (Original_ncts_GrossMass.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = CType(Original_ncts_GrossMass.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = Global.System.DBNull.Value End If If (Original_ncts_BindingItinerary Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = CType(Original_ncts_BindingItinerary,String) End If If (Original_ncts_ContainerIndicator Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = CType(Original_ncts_ContainerIndicator,String) End If If (Original_ncts_InlandModeOfTransport Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = CType(Original_ncts_InlandModeOfTransport,String) End If If (Original_ncts_DepartureTransportMeans_1_TypeOfIdentification Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = CType(Original_ncts_DepartureTransportMeans_1_TypeOfIdentification,String) End If If (Original_ncts_DepartureTransportMeans_1_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = CType(Original_ncts_DepartureTransportMeans_1_IdentificationNumber,String) End If If (Original_ncts_DepartureTransportMeans_1_Nationality Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = CType(Original_ncts_DepartureTransportMeans_1_Nationality,String) End If If (Original_ncts_DepartureTransportMeans_2_TypeOfIdentification Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = CType(Original_ncts_DepartureTransportMeans_2_TypeOfIdentification,String) End If If (Original_ncts_DepartureTransportMeans_2_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = CType(Original_ncts_DepartureTransportMeans_2_IdentificationNumber,String) End If If (Original_ncts_DepartureTransportMeans_2_Nationality Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(136).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(136).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = CType(Original_ncts_DepartureTransportMeans_2_Nationality,String) End If If (Original_ncts_DepartureTransportMeans_3_TypeOfIdentification Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(138).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(138).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = CType(Original_ncts_DepartureTransportMeans_3_TypeOfIdentification,String) End If If (Original_ncts_DepartureTransportMeans_3_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(140).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(140).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = CType(Original_ncts_DepartureTransportMeans_3_IdentificationNumber,String) End If If (Original_ncts_DepartureTransportMeans_3_Nationality Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(142).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(142).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = CType(Original_ncts_DepartureTransportMeans_3_Nationality,String) End If If (Original_ncts_DepartureTransportMeans_4_TypeOfIdentification Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(144).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(144).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = CType(Original_ncts_DepartureTransportMeans_4_TypeOfIdentification,String) End If If (Original_ncts_DepartureTransportMeans_4_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(146).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(146).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = CType(Original_ncts_DepartureTransportMeans_4_IdentificationNumber,String) End If If (Original_ncts_DepartureTransportMeans_4_Nationality Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(148).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(148).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = CType(Original_ncts_DepartureTransportMeans_4_Nationality,String) End If If (Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(150).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(150).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(151).Value = CType(Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification,String) End If If (Original_ncts_ActiveBorderTransportMeans_1_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(152).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(152).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(153).Value = CType(Original_ncts_ActiveBorderTransportMeans_1_IdentificationNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_1_Nationality Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(154).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(154).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(155).Value = CType(Original_ncts_ActiveBorderTransportMeans_1_Nationality,String) End If If (Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(156).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(156).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(157).Value = CType(Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(158).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(158).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(159).Value = CType(Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared,String) End If If (Original_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(160).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(160).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(161).Value = CType(Original_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification,String) End If If (Original_ncts_ActiveBorderTransportMeans_2_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(162).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(162).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(163).Value = CType(Original_ncts_ActiveBorderTransportMeans_2_IdentificationNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_2_Nationality Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(164).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(164).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(165).Value = CType(Original_ncts_ActiveBorderTransportMeans_2_Nationality,String) End If If (Original_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(166).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(166).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(167).Value = CType(Original_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(168).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(168).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(169).Value = CType(Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared,String) End If If (Original_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(170).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(171).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(170).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(171).Value = CType(Original_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification,String) End If If (Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(172).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(173).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(172).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(173).Value = CType(Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_3_Nationality Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(174).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(175).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(174).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(175).Value = CType(Original_ncts_ActiveBorderTransportMeans_3_Nationality,String) End If If (Original_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(176).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(177).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(176).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(177).Value = CType(Original_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(178).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(179).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(178).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(179).Value = CType(Original_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared,String) End If If (Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(180).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(181).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(180).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(181).Value = CType(Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification,String) End If If (Original_ncts_ActiveBorderTransportMeans_4_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(182).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(183).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(182).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(183).Value = CType(Original_ncts_ActiveBorderTransportMeans_4_IdentificationNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_4_Nationality Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(184).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(185).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(184).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(185).Value = CType(Original_ncts_ActiveBorderTransportMeans_4_Nationality,String) End If If (Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(186).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(187).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(186).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(187).Value = CType(Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(188).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(189).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(188).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(189).Value = CType(Original_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared,String) End If If (Original_ncts_Authorisation_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(190).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(191).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(190).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(191).Value = CType(Original_ncts_Authorisation_1_Type,String) End If If (Original_ncts_Authorisation_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(192).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(193).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(192).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(193).Value = CType(Original_ncts_Authorisation_1_ReferenceNumber,String) End If If (Original_ncts_Authorisation_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(194).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(195).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(194).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(195).Value = CType(Original_ncts_Authorisation_2_Type,String) End If If (Original_ncts_Authorisation_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(196).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(197).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(196).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(197).Value = CType(Original_ncts_Authorisation_2_ReferenceNumber,String) End If If (Original_ncts_Authorisation_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(198).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(199).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(198).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(199).Value = CType(Original_ncts_Authorisation_3_Type,String) End If If (Original_ncts_Authorisation_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(200).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(201).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(200).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(201).Value = CType(Original_ncts_Authorisation_3_ReferenceNumber,String) End If If (Original_ncts_Authorisation_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(202).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(203).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(202).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(203).Value = CType(Original_ncts_Authorisation_4_Type,String) End If If (Original_ncts_Authorisation_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(204).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(205).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(204).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(205).Value = CType(Original_ncts_Authorisation_4_ReferenceNumber,String) End If If (Original_ncts_Authorisation_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(206).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(207).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(206).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(207).Value = CType(Original_ncts_Authorisation_5_Type,String) End If If (Original_ncts_Authorisation_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(208).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(209).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(208).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(209).Value = CType(Original_ncts_Authorisation_5_ReferenceNumber,String) End If If (Original_ncts_Authorisation_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(210).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(211).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(210).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(211).Value = CType(Original_ncts_Authorisation_6_Type,String) End If If (Original_ncts_Authorisation_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(212).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(213).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(212).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(213).Value = CType(Original_ncts_Authorisation_6_ReferenceNumber,String) End If If (Original_ncts_Authorisation_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(214).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(215).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(214).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(215).Value = CType(Original_ncts_Authorisation_7_Type,String) End If If (Original_ncts_Authorisation_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(216).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(217).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(216).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(217).Value = CType(Original_ncts_Authorisation_7_ReferenceNumber,String) End If If (Original_ncts_Authorisation_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(218).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(219).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(218).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(219).Value = CType(Original_ncts_Authorisation_8_Type,String) End If If (Original_ncts_Authorisation_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(220).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(221).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(220).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(221).Value = CType(Original_ncts_Authorisation_8_ReferenceNumber,String) End If If (Original_ncts_Authorisation_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(222).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(223).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(222).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(223).Value = CType(Original_ncts_Authorisation_9_Type,String) End If If (Original_ncts_Authorisation_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(224).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(225).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(224).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(225).Value = CType(Original_ncts_Authorisation_9_ReferenceNumber,String) End If If (Original_ncts_Consignor_AdressCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(226).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(227).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(226).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(227).Value = CType(Original_ncts_Consignor_AdressCode,String) End If If (Original_ncts_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(228).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(229).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(228).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(229).Value = CType(Original_ncts_Consignor_IdentificationNumber,String) End If If (Original_ncts_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(230).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(231).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(230).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(231).Value = CType(Original_ncts_Consignor_SubsidiaryNumber,String) End If If (Original_ncts_Consignor_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(232).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(233).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(232).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(233).Value = CType(Original_ncts_Consignor_Name,String) End If If (Original_ncts_Consignor_StreetNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(234).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(235).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(234).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(235).Value = CType(Original_ncts_Consignor_StreetNumber,String) End If If (Original_ncts_Consignor_City Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(236).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(237).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(236).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(237).Value = CType(Original_ncts_Consignor_City,String) End If If (Original_ncts_Consignor_Postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(238).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(239).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(238).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(239).Value = CType(Original_ncts_Consignor_Postcode,String) End If If (Original_ncts_Consignor_Country Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(240).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(241).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(240).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(241).Value = CType(Original_ncts_Consignor_Country,String) End If If (Original_ncts_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(242).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(243).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(242).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(243).Value = CType(Original_ncts_Consignor_ContactPerson_Name,String) End If If (Original_ncts_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(244).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(245).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(244).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(245).Value = CType(Original_ncts_Consignor_ContactPerson_PhoneNumber,String) End If If (Original_ncts_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(246).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(247).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(246).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(247).Value = CType(Original_ncts_Consignor_ContactPerson_EMailAddress,String) End If If (Original_ncts_Consignee_AdressCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(248).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(249).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(248).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(249).Value = CType(Original_ncts_Consignee_AdressCode,String) End If If (Original_ncts_Consignee_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(250).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(251).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(250).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(251).Value = CType(Original_ncts_Consignee_IdentificationNumber,String) End If If (Original_ncts_Consignee_SubsidiaryNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(252).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(253).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(252).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(253).Value = CType(Original_ncts_Consignee_SubsidiaryNumber,String) End If If (Original_ncts_Consignee_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(254).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(255).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(254).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(255).Value = CType(Original_ncts_Consignee_Name,String) End If If (Original_ncts_Consignee_StreetNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(256).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(257).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(256).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(257).Value = CType(Original_ncts_Consignee_StreetNumber,String) End If If (Original_ncts_Consignee_City Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(258).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(259).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(258).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(259).Value = CType(Original_ncts_Consignee_City,String) End If If (Original_ncts_Consignee_Postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(260).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(261).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(260).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(261).Value = CType(Original_ncts_Consignee_Postcode,String) End If If (Original_ncts_Consignee_Country Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(262).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(263).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(262).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(263).Value = CType(Original_ncts_Consignee_Country,String) End If If (Original_ncts_Consignee_ContactPerson_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(264).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(265).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(264).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(265).Value = CType(Original_ncts_Consignee_ContactPerson_Name,String) End If If (Original_ncts_Consignee_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(266).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(267).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(266).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(267).Value = CType(Original_ncts_Consignee_ContactPerson_PhoneNumber,String) End If If (Original_ncts_Consignee_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(268).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(269).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(268).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(269).Value = CType(Original_ncts_Consignee_ContactPerson_EMailAddress,String) End If If (Original_ncts_HolderOfTheTransitProcedure_AdressCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(270).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(271).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(270).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(271).Value = CType(Original_ncts_HolderOfTheTransitProcedure_AdressCode,String) End If If (Original_ncts_HolderOfTheTransitProcedure_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(272).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(273).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(272).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(273).Value = CType(Original_ncts_HolderOfTheTransitProcedure_IdentificationNumber,String) End If If (Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(274).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(275).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(274).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(275).Value = CType(Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber,String) End If If (Original_ncts_HolderOfTheTransitProcedure_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(276).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(277).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(276).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(277).Value = CType(Original_ncts_HolderOfTheTransitProcedure_Name,String) End If If (Original_ncts_HolderOfTheTransitProcedure_StreetNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(278).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(279).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(278).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(279).Value = CType(Original_ncts_HolderOfTheTransitProcedure_StreetNumber,String) End If If (Original_ncts_HolderOfTheTransitProcedure_City Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(280).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(281).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(280).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(281).Value = CType(Original_ncts_HolderOfTheTransitProcedure_City,String) End If If (Original_ncts_HolderOfTheTransitProcedure_Postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(282).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(283).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(282).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(283).Value = CType(Original_ncts_HolderOfTheTransitProcedure_Postcode,String) End If If (Original_ncts_HolderOfTheTransitProcedure_Country Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(284).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(285).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(284).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(285).Value = CType(Original_ncts_HolderOfTheTransitProcedure_Country,String) End If If (Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(286).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(287).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(286).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(287).Value = CType(Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name,String) End If If (Original_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(288).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(289).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(288).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(289).Value = CType(Original_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber,String) End If If (Original_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(290).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(291).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(290).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(291).Value = CType(Original_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress,String) End If If (Original_ncts_Representative_AdressCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(292).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(293).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(292).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(293).Value = CType(Original_ncts_Representative_AdressCode,String) End If If (Original_ncts_Representative_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(294).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(295).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(294).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(295).Value = CType(Original_ncts_Representative_IdentificationNumber,String) End If If (Original_ncts_Representative_ContactPerson_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(296).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(297).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(296).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(297).Value = CType(Original_ncts_Representative_ContactPerson_Name,String) End If If (Original_ncts_Representative_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(298).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(299).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(298).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(299).Value = CType(Original_ncts_Representative_ContactPerson_PhoneNumber,String) End If If (Original_ncts_Representative_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(300).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(301).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(300).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(301).Value = CType(Original_ncts_Representative_ContactPerson_EMailAddress,String) End If If (Original_ncts_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(302).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(303).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(302).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(303).Value = CType(Original_ncts_AdditionalSupplyChainActor_1_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(304).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(305).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(304).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(305).Value = CType(Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(306).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(307).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(306).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(307).Value = CType(Original_ncts_AdditionalSupplyChainActor_2_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(308).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(309).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(308).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(309).Value = CType(Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(310).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(311).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(310).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(311).Value = CType(Original_ncts_AdditionalSupplyChainActor_3_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(312).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(313).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(312).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(313).Value = CType(Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(314).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(315).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(314).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(315).Value = CType(Original_ncts_AdditionalSupplyChainActor_4_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(316).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(317).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(316).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(317).Value = CType(Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(318).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(319).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(318).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(319).Value = CType(Original_ncts_AdditionalSupplyChainActor_5_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(320).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(321).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(320).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(321).Value = CType(Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(322).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(323).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(322).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(323).Value = CType(Original_ncts_AdditionalSupplyChainActor_6_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(324).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(325).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(324).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(325).Value = CType(Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(326).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(327).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(326).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(327).Value = CType(Original_ncts_AdditionalSupplyChainActor_7_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(328).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(329).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(328).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(329).Value = CType(Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(330).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(331).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(330).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(331).Value = CType(Original_ncts_AdditionalSupplyChainActor_8_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(332).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(333).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(332).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(333).Value = CType(Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(334).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(335).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(334).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(335).Value = CType(Original_ncts_AdditionalSupplyChainActor_9_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(336).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(337).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(336).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(337).Value = CType(Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (Original_ncts_Security Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(338).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(339).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(338).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(339).Value = CType(Original_ncts_Security,String) End If If (Original_ncts_ReferenceNumberUCR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(340).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(341).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(340).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(341).Value = CType(Original_ncts_ReferenceNumberUCR,String) End If If (Original_ncts_SpecificCircomstanceIndicator Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(342).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(343).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(342).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(343).Value = CType(Original_ncts_SpecificCircomstanceIndicator,String) End If If (Original_ncts_PlaceOfLoading_Location Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(344).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(345).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(344).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(345).Value = CType(Original_ncts_PlaceOfLoading_Location,String) End If If (Original_ncts_PlaceOfLoading_Country Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(346).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(347).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(346).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(347).Value = CType(Original_ncts_PlaceOfLoading_Country,String) End If If (Original_ncts_PlaceOfUnLoading_Location Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(348).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(349).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(348).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(349).Value = CType(Original_ncts_PlaceOfUnLoading_Location,String) End If If (Original_ncts_PlaceOfUnLoading_Country Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(350).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(351).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(350).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(351).Value = CType(Original_ncts_PlaceOfUnLoading_Country,String) End If If (Original_ncts_TransportCharges Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(352).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(353).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(352).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(353).Value = CType(Original_ncts_TransportCharges,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(354).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(355).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(354).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(355).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_1,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(356).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(357).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(356).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(357).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_2,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(358).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(359).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(358).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(359).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_3,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(360).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(361).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(360).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(361).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_4,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(362).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(363).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(362).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(363).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_5,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(364).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(365).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(364).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(365).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_6,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(366).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(367).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(366).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(367).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_7,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(368).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(369).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(368).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(369).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_8,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(370).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(371).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(370).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(371).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_9,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(372).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(373).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(372).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(373).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_10,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(374).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(375).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(374).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(375).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_11,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(376).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(377).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(376).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(377).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_12,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_13 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(378).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(379).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(378).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(379).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_13,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_14 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(380).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(381).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(380).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(381).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_14,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_15 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(382).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(383).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(382).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(383).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_15,String) End If If (Original_ncts_Carrier_AdressCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(384).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(385).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(384).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(385).Value = CType(Original_ncts_Carrier_AdressCode,String) End If If (Original_ncts_Carrier_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(386).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(387).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(386).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(387).Value = CType(Original_ncts_Carrier_IdentificationNumber,String) End If If (Original_ncts_Carrier_SubsidiaryNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(388).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(389).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(388).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(389).Value = CType(Original_ncts_Carrier_SubsidiaryNumber,String) End If If (Original_ncts_Carrier_ContactPerson_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(390).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(391).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(390).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(391).Value = CType(Original_ncts_Carrier_ContactPerson_Name,String) End If If (Original_ncts_Carrier_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(392).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(393).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(392).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(393).Value = CType(Original_ncts_Carrier_ContactPerson_PhoneNumber,String) End If If (Original_ncts_Carrier_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(394).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(395).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(394).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(395).Value = CType(Original_ncts_Carrier_ContactPerson_EMailAddress,String) End If If (Original_ncts_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(396).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(397).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(396).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(397).Value = CType(Original_ncts_SupportingDocument_1_Type,String) End If If (Original_ncts_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(398).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(399).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(398).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(399).Value = CType(Original_ncts_SupportingDocument_1_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(400).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(401).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(400).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(401).Value = CType(Original_ncts_SupportingDocument_1_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(402).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(403).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(402).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(403).Value = CType(Original_ncts_SupportingDocument_1_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(404).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(405).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(404).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(405).Value = CType(Original_ncts_SupportingDocument_2_Type,String) End If If (Original_ncts_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(406).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(407).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(406).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(407).Value = CType(Original_ncts_SupportingDocument_2_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(408).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(409).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(408).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(409).Value = CType(Original_ncts_SupportingDocument_2_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(410).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(411).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(410).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(411).Value = CType(Original_ncts_SupportingDocument_2_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(412).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(413).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(412).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(413).Value = CType(Original_ncts_SupportingDocument_3_Type,String) End If If (Original_ncts_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(414).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(415).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(414).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(415).Value = CType(Original_ncts_SupportingDocument_3_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(416).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(417).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(416).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(417).Value = CType(Original_ncts_SupportingDocument_3_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(418).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(419).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(418).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(419).Value = CType(Original_ncts_SupportingDocument_3_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(420).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(421).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(420).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(421).Value = CType(Original_ncts_SupportingDocument_4_Type,String) End If If (Original_ncts_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(422).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(423).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(422).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(423).Value = CType(Original_ncts_SupportingDocument_4_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(424).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(425).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(424).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(425).Value = CType(Original_ncts_SupportingDocument_4_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(426).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(427).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(426).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(427).Value = CType(Original_ncts_SupportingDocument_4_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(428).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(429).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(428).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(429).Value = CType(Original_ncts_SupportingDocument_5_Type,String) End If If (Original_ncts_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(430).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(431).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(430).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(431).Value = CType(Original_ncts_SupportingDocument_5_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(432).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(433).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(432).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(433).Value = CType(Original_ncts_SupportingDocument_5_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(434).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(435).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(434).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(435).Value = CType(Original_ncts_SupportingDocument_5_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(436).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(437).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(436).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(437).Value = CType(Original_ncts_SupportingDocument_6_Type,String) End If If (Original_ncts_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(438).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(439).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(438).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(439).Value = CType(Original_ncts_SupportingDocument_6_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(440).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(441).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(440).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(441).Value = CType(Original_ncts_SupportingDocument_6_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(442).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(443).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(442).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(443).Value = CType(Original_ncts_SupportingDocument_6_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(444).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(445).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(444).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(445).Value = CType(Original_ncts_SupportingDocument_7_Type,String) End If If (Original_ncts_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(446).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(447).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(446).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(447).Value = CType(Original_ncts_SupportingDocument_7_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(448).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(449).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(448).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(449).Value = CType(Original_ncts_SupportingDocument_7_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(450).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(451).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(450).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(451).Value = CType(Original_ncts_SupportingDocument_7_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(452).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(453).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(452).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(453).Value = CType(Original_ncts_SupportingDocument_8_Type,String) End If If (Original_ncts_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(454).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(455).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(454).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(455).Value = CType(Original_ncts_SupportingDocument_8_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(456).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(457).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(456).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(457).Value = CType(Original_ncts_SupportingDocument_8_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(458).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(459).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(458).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(459).Value = CType(Original_ncts_SupportingDocument_8_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(460).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(461).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(460).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(461).Value = CType(Original_ncts_SupportingDocument_9_Type,String) End If If (Original_ncts_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(462).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(463).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(462).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(463).Value = CType(Original_ncts_SupportingDocument_9_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(464).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(465).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(464).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(465).Value = CType(Original_ncts_SupportingDocument_9_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(466).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(467).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(466).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(467).Value = CType(Original_ncts_SupportingDocument_9_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(468).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(469).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(468).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(469).Value = CType(Original_ncts_PreviousDocument_1_Type,String) End If If (Original_ncts_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(470).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(471).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(470).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(471).Value = CType(Original_ncts_PreviousDocument_1_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(472).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(473).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(472).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(473).Value = CType(Original_ncts_PreviousDocument_1_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(474).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(475).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(474).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(475).Value = CType(Original_ncts_PreviousDocument_2_Type,String) End If If (Original_ncts_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(476).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(477).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(476).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(477).Value = CType(Original_ncts_PreviousDocument_2_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(478).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(479).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(478).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(479).Value = CType(Original_ncts_PreviousDocument_2_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(480).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(481).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(480).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(481).Value = CType(Original_ncts_PreviousDocument_3_Type,String) End If If (Original_ncts_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(482).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(483).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(482).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(483).Value = CType(Original_ncts_PreviousDocument_3_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(484).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(485).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(484).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(485).Value = CType(Original_ncts_PreviousDocument_3_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(486).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(487).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(486).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(487).Value = CType(Original_ncts_PreviousDocument_4_Type,String) End If If (Original_ncts_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(488).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(489).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(488).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(489).Value = CType(Original_ncts_PreviousDocument_4_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(490).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(491).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(490).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(491).Value = CType(Original_ncts_PreviousDocument_4_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(492).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(493).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(492).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(493).Value = CType(Original_ncts_PreviousDocument_5_Type,String) End If If (Original_ncts_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(494).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(495).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(494).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(495).Value = CType(Original_ncts_PreviousDocument_5_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(496).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(497).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(496).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(497).Value = CType(Original_ncts_PreviousDocument_5_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(498).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(499).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(498).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(499).Value = CType(Original_ncts_PreviousDocument_6_Type,String) End If If (Original_ncts_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(500).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(501).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(500).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(501).Value = CType(Original_ncts_PreviousDocument_6_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(502).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(503).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(502).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(503).Value = CType(Original_ncts_PreviousDocument_6_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(504).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(505).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(504).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(505).Value = CType(Original_ncts_PreviousDocument_7_Type,String) End If If (Original_ncts_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(506).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(507).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(506).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(507).Value = CType(Original_ncts_PreviousDocument_7_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(508).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(509).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(508).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(509).Value = CType(Original_ncts_PreviousDocument_7_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(510).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(511).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(510).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(511).Value = CType(Original_ncts_PreviousDocument_8_Type,String) End If If (Original_ncts_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(512).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(513).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(512).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(513).Value = CType(Original_ncts_PreviousDocument_8_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(514).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(515).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(514).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(515).Value = CType(Original_ncts_PreviousDocument_8_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(516).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(517).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(516).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(517).Value = CType(Original_ncts_PreviousDocument_9_Type,String) End If If (Original_ncts_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(518).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(519).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(518).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(519).Value = CType(Original_ncts_PreviousDocument_9_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(520).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(521).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(520).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(521).Value = CType(Original_ncts_PreviousDocument_9_ComplementOfInformation,String) End If If (Original_ncts_TransportDocument_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(522).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(523).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(522).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(523).Value = CType(Original_ncts_TransportDocument_1_Type,String) End If If (Original_ncts_TransportDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(524).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(525).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(524).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(525).Value = CType(Original_ncts_TransportDocument_1_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(526).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(527).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(526).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(527).Value = CType(Original_ncts_TransportDocument_2_Type,String) End If If (Original_ncts_TransportDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(528).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(529).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(528).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(529).Value = CType(Original_ncts_TransportDocument_2_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(530).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(531).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(530).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(531).Value = CType(Original_ncts_TransportDocument_3_Type,String) End If If (Original_ncts_TransportDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(532).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(533).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(532).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(533).Value = CType(Original_ncts_TransportDocument_3_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(534).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(535).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(534).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(535).Value = CType(Original_ncts_TransportDocument_4_Type,String) End If If (Original_ncts_TransportDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(536).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(537).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(536).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(537).Value = CType(Original_ncts_TransportDocument_4_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(538).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(539).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(538).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(539).Value = CType(Original_ncts_TransportDocument_5_Type,String) End If If (Original_ncts_TransportDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(540).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(541).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(540).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(541).Value = CType(Original_ncts_TransportDocument_5_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(542).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(543).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(542).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(543).Value = CType(Original_ncts_TransportDocument_6_Type,String) End If If (Original_ncts_TransportDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(544).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(545).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(544).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(545).Value = CType(Original_ncts_TransportDocument_6_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(546).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(547).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(546).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(547).Value = CType(Original_ncts_TransportDocument_7_Type,String) End If If (Original_ncts_TransportDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(548).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(549).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(548).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(549).Value = CType(Original_ncts_TransportDocument_7_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(550).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(551).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(550).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(551).Value = CType(Original_ncts_TransportDocument_8_Type,String) End If If (Original_ncts_TransportDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(552).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(553).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(552).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(553).Value = CType(Original_ncts_TransportDocument_8_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(554).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(555).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(554).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(555).Value = CType(Original_ncts_TransportDocument_9_Type,String) End If If (Original_ncts_TransportDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(556).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(557).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(556).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(557).Value = CType(Original_ncts_TransportDocument_9_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(558).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(559).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(558).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(559).Value = CType(Original_ncts_AdditionalReference_1_Type,String) End If If (Original_ncts_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(560).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(561).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(560).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(561).Value = CType(Original_ncts_AdditionalReference_1_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(562).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(563).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(562).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(563).Value = CType(Original_ncts_AdditionalReference_2_Type,String) End If If (Original_ncts_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(564).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(565).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(564).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(565).Value = CType(Original_ncts_AdditionalReference_2_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(566).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(567).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(566).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(567).Value = CType(Original_ncts_AdditionalReference_3_Type,String) End If If (Original_ncts_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(568).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(569).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(568).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(569).Value = CType(Original_ncts_AdditionalReference_3_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(570).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(571).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(570).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(571).Value = CType(Original_ncts_AdditionalReference_4_Type,String) End If If (Original_ncts_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(572).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(573).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(572).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(573).Value = CType(Original_ncts_AdditionalReference_4_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(574).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(575).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(574).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(575).Value = CType(Original_ncts_AdditionalReference_5_Type,String) End If If (Original_ncts_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(576).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(577).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(576).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(577).Value = CType(Original_ncts_AdditionalReference_5_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(578).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(579).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(578).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(579).Value = CType(Original_ncts_AdditionalReference_6_Type,String) End If If (Original_ncts_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(580).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(581).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(580).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(581).Value = CType(Original_ncts_AdditionalReference_6_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(582).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(583).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(582).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(583).Value = CType(Original_ncts_AdditionalReference_7_Type,String) End If If (Original_ncts_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(584).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(585).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(584).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(585).Value = CType(Original_ncts_AdditionalReference_7_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(586).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(587).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(586).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(587).Value = CType(Original_ncts_AdditionalReference_8_Type,String) End If If (Original_ncts_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(588).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(589).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(588).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(589).Value = CType(Original_ncts_AdditionalReference_8_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(590).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(591).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(590).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(591).Value = CType(Original_ncts_AdditionalReference_9_Type,String) End If If (Original_ncts_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(592).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(593).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(592).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(593).Value = CType(Original_ncts_AdditionalReference_9_ReferenceNumber,String) End If If (Original_ncts_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(594).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(595).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(594).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(595).Value = CType(Original_ncts_AdditionalInformation_1_Code,String) End If If (Original_ncts_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(596).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(597).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(596).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(597).Value = CType(Original_ncts_AdditionalInformation_1_Text,String) End If If (Original_ncts_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(598).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(599).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(598).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(599).Value = CType(Original_ncts_AdditionalInformation_2_Code,String) End If If (Original_ncts_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(600).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(601).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(600).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(601).Value = CType(Original_ncts_AdditionalInformation_2_Text,String) End If If (Original_ncts_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(602).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(603).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(602).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(603).Value = CType(Original_ncts_AdditionalInformation_3_Code,String) End If If (Original_ncts_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(604).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(605).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(604).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(605).Value = CType(Original_ncts_AdditionalInformation_3_Text,String) End If If (Original_ncts_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(606).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(607).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(606).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(607).Value = CType(Original_ncts_AdditionalInformation_4_Code,String) End If If (Original_ncts_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(608).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(609).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(608).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(609).Value = CType(Original_ncts_AdditionalInformation_4_Text,String) End If If (Original_ncts_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(610).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(611).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(610).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(611).Value = CType(Original_ncts_AdditionalInformation_5_Code,String) End If If (Original_ncts_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(612).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(613).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(612).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(613).Value = CType(Original_ncts_AdditionalInformation_5_Text,String) End If If (Original_ncts_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(614).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(615).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(614).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(615).Value = CType(Original_ncts_AdditionalInformation_6_Code,String) End If If (Original_ncts_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(616).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(617).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(616).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(617).Value = CType(Original_ncts_AdditionalInformation_6_Text,String) End If If (Original_ncts_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(618).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(619).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(618).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(619).Value = CType(Original_ncts_AdditionalInformation_7_Code,String) End If If (Original_ncts_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(620).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(621).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(620).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(621).Value = CType(Original_ncts_AdditionalInformation_7_Text,String) End If If (Original_ncts_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(622).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(623).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(622).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(623).Value = CType(Original_ncts_AdditionalInformation_8_Code,String) End If If (Original_ncts_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(624).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(625).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(624).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(625).Value = CType(Original_ncts_AdditionalInformation_8_Text,String) End If If (Original_ncts_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(626).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(627).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(626).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(627).Value = CType(Original_ncts_AdditionalInformation_9_Code,String) End If If (Original_ncts_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(628).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(629).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(628).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(629).Value = CType(Original_ncts_AdditionalInformation_9_Text,String) End If If (Original_ncts_AUTOIMPIndicator Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(630).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(631).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(630).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(631).Value = CType(Original_ncts_AUTOIMPIndicator,String) End If If (Original_ncts_Stammreferenz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(632).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(633).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(632).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(633).Value = CType(Original_ncts_Stammreferenz,String) End If If (Original_ncts_ModeOfTransportAtTheBorder Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(634).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(635).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(634).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(635).Value = CType(Original_ncts_ModeOfTransportAtTheBorder,String) End If If (Original_ncts_Eroeffnung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(636).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(637).Value = CType(Original_ncts_Eroeffnung.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(636).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(637).Value = Global.System.DBNull.Value End If If (Original_ncts_Ankunft.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(638).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(639).Value = CType(Original_ncts_Ankunft.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(638).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(639).Value = Global.System.DBNull.Value End If If (Original_ncts_Erledigung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(640).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(641).Value = CType(Original_ncts_Erledigung.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(640).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(641).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 ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_CountryOfDispatch As String, _ ByVal ncts_CountryOfDestination As String, _ ByVal ncts_Declarationtype As String, _ ByVal ncts_TIRCarnetNumber As String, _ ByVal ncts_ReductedDatasetIndicator As String, _ ByVal ncts_LocationOfGoods_TypeofLocation As String, _ ByVal ncts_LocationOfGoods_QualifierIdenfitication As String, _ ByVal ncts_LocationOfGoods_AdditionalIdentifier As String, _ ByVal ncts_LocationOfGoods_ContactPerson_Name As String, _ ByVal ncts_LocationOfGoods_ContactPerson_PhoneNumber As String, _ ByVal ncts_LocationOfGoods_ContactPerson_EMailAddress As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfDestinationDeclared As String, _ ByVal ncts_CustomsOfficeOfDeparture As String, _ ByVal ncts_CustomsOfficeOfExitForTransitDeclared As String, _ ByVal ncts_LimitDate As Global.System.Nullable(Of Date), _ ByVal ncts_TransitDeclarationType As String, _ ByVal ncts_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal ncts_BindingItinerary As String, _ ByVal ncts_ContainerIndicator As String, _ ByVal ncts_InlandModeOfTransport As String, _ ByVal ncts_DepartureTransportMeans_1_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_1_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_1_Nationality As String, _ ByVal ncts_DepartureTransportMeans_2_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_2_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_2_Nationality As String, _ ByVal ncts_DepartureTransportMeans_3_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_3_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_3_Nationality As String, _ ByVal ncts_DepartureTransportMeans_4_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_4_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_4_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_1_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_1_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_2_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_2_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_3_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_3_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_4_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_4_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_Authorisation_1_Type As String, _ ByVal ncts_Authorisation_1_ReferenceNumber As String, _ ByVal ncts_Authorisation_2_Type As String, _ ByVal ncts_Authorisation_2_ReferenceNumber As String, _ ByVal ncts_Authorisation_3_Type As String, _ ByVal ncts_Authorisation_3_ReferenceNumber As String, _ ByVal ncts_Authorisation_4_Type As String, _ ByVal ncts_Authorisation_4_ReferenceNumber As String, _ ByVal ncts_Authorisation_5_Type As String, _ ByVal ncts_Authorisation_5_ReferenceNumber As String, _ ByVal ncts_Authorisation_6_Type As String, _ ByVal ncts_Authorisation_6_ReferenceNumber As String, _ ByVal ncts_Authorisation_7_Type As String, _ ByVal ncts_Authorisation_7_ReferenceNumber As String, _ ByVal ncts_Authorisation_8_Type As String, _ ByVal ncts_Authorisation_8_ReferenceNumber As String, _ ByVal ncts_Authorisation_9_Type As String, _ ByVal ncts_Authorisation_9_ReferenceNumber As String, _ ByVal ncts_Consignor_AdressCode As String, _ ByVal ncts_Consignor_IdentificationNumber As String, _ ByVal ncts_Consignor_SubsidiaryNumber As String, _ ByVal ncts_Consignor_Name As String, _ ByVal ncts_Consignor_StreetNumber As String, _ ByVal ncts_Consignor_City As String, _ ByVal ncts_Consignor_Postcode As String, _ ByVal ncts_Consignor_Country As String, _ ByVal ncts_Consignor_ContactPerson_Name As String, _ ByVal ncts_Consignor_ContactPerson_PhoneNumber As String, _ ByVal ncts_Consignor_ContactPerson_EMailAddress As String, _ ByVal ncts_Consignee_AdressCode As String, _ ByVal ncts_Consignee_IdentificationNumber As String, _ ByVal ncts_Consignee_SubsidiaryNumber As String, _ ByVal ncts_Consignee_Name As String, _ ByVal ncts_Consignee_StreetNumber As String, _ ByVal ncts_Consignee_City As String, _ ByVal ncts_Consignee_Postcode As String, _ ByVal ncts_Consignee_Country As String, _ ByVal ncts_Consignee_ContactPerson_Name As String, _ ByVal ncts_Consignee_ContactPerson_PhoneNumber As String, _ ByVal ncts_Consignee_ContactPerson_EMailAddress As String, _ ByVal ncts_HolderOfTheTransitProcedure_AdressCode As String, _ ByVal ncts_HolderOfTheTransitProcedure_IdentificationNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_Name As String, _ ByVal ncts_HolderOfTheTransitProcedure_StreetNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_City As String, _ ByVal ncts_HolderOfTheTransitProcedure_Postcode As String, _ ByVal ncts_HolderOfTheTransitProcedure_Country As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_Name As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As String, _ ByVal ncts_Representative_AdressCode As String, _ ByVal ncts_Representative_IdentificationNumber As String, _ ByVal ncts_Representative_ContactPerson_Name As String, _ ByVal ncts_Representative_ContactPerson_PhoneNumber As String, _ ByVal ncts_Representative_ContactPerson_EMailAddress As String, _ ByVal ncts_AdditionalSupplyChainActor_1_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_2_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_3_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_4_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_5_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_6_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_7_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_8_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_9_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal ncts_Security As String, _ ByVal ncts_ReferenceNumberUCR As String, _ ByVal ncts_SpecificCircomstanceIndicator As String, _ ByVal ncts_PlaceOfLoading_Location As String, _ ByVal ncts_PlaceOfLoading_Country As String, _ ByVal ncts_PlaceOfUnLoading_Location As String, _ ByVal ncts_PlaceOfUnLoading_Country As String, _ ByVal ncts_TransportCharges As String, _ ByVal ncts_CountryOfRoutingOfConsignment_1 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_2 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_3 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_4 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_5 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_6 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_7 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_8 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_9 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_10 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_11 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_12 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_13 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_14 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_15 As String, _ ByVal ncts_Carrier_AdressCode As String, _ ByVal ncts_Carrier_IdentificationNumber As String, _ ByVal ncts_Carrier_SubsidiaryNumber As String, _ ByVal ncts_Carrier_ContactPerson_Name As String, _ ByVal ncts_Carrier_ContactPerson_PhoneNumber As String, _ ByVal ncts_Carrier_ContactPerson_EMailAddress As String, _ ByVal ncts_SupportingDocument_1_Type As String, _ ByVal ncts_SupportingDocument_1_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_1_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_2_Type As String, _ ByVal ncts_SupportingDocument_2_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_2_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_3_Type As String, _ ByVal ncts_SupportingDocument_3_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_3_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_4_Type As String, _ ByVal ncts_SupportingDocument_4_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_4_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_5_Type As String, _ ByVal ncts_SupportingDocument_5_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_5_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_6_Type As String, _ ByVal ncts_SupportingDocument_6_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_6_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_7_Type As String, _ ByVal ncts_SupportingDocument_7_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_7_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_8_Type As String, _ ByVal ncts_SupportingDocument_8_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_8_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_9_Type As String, _ ByVal ncts_SupportingDocument_9_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_9_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_1_Type As String, _ ByVal ncts_PreviousDocument_1_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_1_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_2_Type As String, _ ByVal ncts_PreviousDocument_2_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_2_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_3_Type As String, _ ByVal ncts_PreviousDocument_3_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_3_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_4_Type As String, _ ByVal ncts_PreviousDocument_4_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_4_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_5_Type As String, _ ByVal ncts_PreviousDocument_5_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_5_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_6_Type As String, _ ByVal ncts_PreviousDocument_6_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_6_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_7_Type As String, _ ByVal ncts_PreviousDocument_7_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_7_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_8_Type As String, _ ByVal ncts_PreviousDocument_8_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_8_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_9_Type As String, _ ByVal ncts_PreviousDocument_9_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_9_ComplementOfInformation As String, _ ByVal ncts_TransportDocument_1_Type As String, _ ByVal ncts_TransportDocument_1_ReferenceNumber As String, _ ByVal ncts_TransportDocument_2_Type As String, _ ByVal ncts_TransportDocument_2_ReferenceNumber As String, _ ByVal ncts_TransportDocument_3_Type As String, _ ByVal ncts_TransportDocument_3_ReferenceNumber As String, _ ByVal ncts_TransportDocument_4_Type As String, _ ByVal ncts_TransportDocument_4_ReferenceNumber As String, _ ByVal ncts_TransportDocument_5_Type As String, _ ByVal ncts_TransportDocument_5_ReferenceNumber As String, _ ByVal ncts_TransportDocument_6_Type As String, _ ByVal ncts_TransportDocument_6_ReferenceNumber As String, _ ByVal ncts_TransportDocument_7_Type As String, _ ByVal ncts_TransportDocument_7_ReferenceNumber As String, _ ByVal ncts_TransportDocument_8_Type As String, _ ByVal ncts_TransportDocument_8_ReferenceNumber As String, _ ByVal ncts_TransportDocument_9_Type As String, _ ByVal ncts_TransportDocument_9_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_1_Type As String, _ ByVal ncts_AdditionalReference_1_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_2_Type As String, _ ByVal ncts_AdditionalReference_2_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_3_Type As String, _ ByVal ncts_AdditionalReference_3_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_4_Type As String, _ ByVal ncts_AdditionalReference_4_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_5_Type As String, _ ByVal ncts_AdditionalReference_5_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_6_Type As String, _ ByVal ncts_AdditionalReference_6_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_7_Type As String, _ ByVal ncts_AdditionalReference_7_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_8_Type As String, _ ByVal ncts_AdditionalReference_8_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_9_Type As String, _ ByVal ncts_AdditionalReference_9_ReferenceNumber As String, _ ByVal ncts_AdditionalInformation_1_Code As String, _ ByVal ncts_AdditionalInformation_1_Text As String, _ ByVal ncts_AdditionalInformation_2_Code As String, _ ByVal ncts_AdditionalInformation_2_Text As String, _ ByVal ncts_AdditionalInformation_3_Code As String, _ ByVal ncts_AdditionalInformation_3_Text As String, _ ByVal ncts_AdditionalInformation_4_Code As String, _ ByVal ncts_AdditionalInformation_4_Text As String, _ ByVal ncts_AdditionalInformation_5_Code As String, _ ByVal ncts_AdditionalInformation_5_Text As String, _ ByVal ncts_AdditionalInformation_6_Code As String, _ ByVal ncts_AdditionalInformation_6_Text As String, _ ByVal ncts_AdditionalInformation_7_Code As String, _ ByVal ncts_AdditionalInformation_7_Text As String, _ ByVal ncts_AdditionalInformation_8_Code As String, _ ByVal ncts_AdditionalInformation_8_Text As String, _ ByVal ncts_AdditionalInformation_9_Code As String, _ ByVal ncts_AdditionalInformation_9_Text As String, _ ByVal ncts_AUTOIMPIndicator As String, _ ByVal ncts_Stammreferenz As String, _ ByVal ncts_ModeOfTransportAtTheBorder As String, _ ByVal ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal ncts_Erledigung As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ncts_Status,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ncts_Status_KEWILL_Equivalent,Integer) If (ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("ncts_dyaArt") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ncts_dyaArt,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(ncts_dyaAnmID,Integer) If (ncts_ANR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ncts_ANR,String) End If If (ncts_MRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ncts_MRN,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(ncts_Erstellung,Date) If (ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(ncts_LetzteBearbeitung,Date) If (ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(ncts_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (ncts_firma Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(ncts_firma,String) End If If (ncts_niederlassung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(ncts_niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(12).Value = CType(ncts_Gestellt,Boolean) If (ncts_GestelltAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(ncts_GestelltAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (ncts_Trans_Partner Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(ncts_Trans_Partner,String) End If If (ncts_Trans_Div1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(ncts_Trans_Div1,String) End If If (ncts_Trans_Div2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(ncts_Trans_Div2,String) End If If (ncts_Trans_Div3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(ncts_Trans_Div3,String) End If If (ncts_Trans_Referenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(ncts_Trans_Referenz,String) End If If (ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (ncts_Trans_Version.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(ncts_Trans_Version.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(ncts_NachrichtenSenderTIN,String) End If If (ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(ncts_NachrichtenSenderNLNR,String) End If If (ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(ncts_NachrichtenempfaengerDST,String) End If If (ncts_ObjectName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(ncts_ObjectName,String) End If If (ncts_ObjectAlias Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(ncts_ObjectAlias,String) End If If (ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(ncts_BezugsnummerVorblendung,String) End If If (ncts_Bearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(ncts_Bearbeiter,String) End If If (ncts_CountryOfDispatch Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(ncts_CountryOfDispatch,String) End If If (ncts_CountryOfDestination Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(ncts_CountryOfDestination,String) End If If (ncts_Declarationtype Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(ncts_Declarationtype,String) End If If (ncts_TIRCarnetNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(ncts_TIRCarnetNumber,String) End If If (ncts_ReductedDatasetIndicator Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(ncts_ReductedDatasetIndicator,String) End If If (ncts_LocationOfGoods_TypeofLocation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(ncts_LocationOfGoods_TypeofLocation,String) End If If (ncts_LocationOfGoods_QualifierIdenfitication Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(ncts_LocationOfGoods_QualifierIdenfitication,String) End If If (ncts_LocationOfGoods_AdditionalIdentifier Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(ncts_LocationOfGoods_AdditionalIdentifier,String) End If If (ncts_LocationOfGoods_ContactPerson_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(ncts_LocationOfGoods_ContactPerson_Name,String) End If If (ncts_LocationOfGoods_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(ncts_LocationOfGoods_ContactPerson_PhoneNumber,String) End If If (ncts_LocationOfGoods_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(ncts_LocationOfGoods_ContactPerson_EMailAddress,String) End If If (ncts_CustomsOfficeOfTransitDeclared_1_RefNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(ncts_CustomsOfficeOfTransitDeclared_1_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_2_RefNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(ncts_CustomsOfficeOfTransitDeclared_2_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_3_RefNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(ncts_CustomsOfficeOfTransitDeclared_3_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_4_RefNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(ncts_CustomsOfficeOfTransitDeclared_4_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_5_RefNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(ncts_CustomsOfficeOfTransitDeclared_5_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_6_RefNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(ncts_CustomsOfficeOfTransitDeclared_6_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_7_RefNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(ncts_CustomsOfficeOfTransitDeclared_7_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_8_RefNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(ncts_CustomsOfficeOfTransitDeclared_8_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_9_RefNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(ncts_CustomsOfficeOfTransitDeclared_9_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(49).Value = CType(ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(50).Value = CType(ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(52).Value = CType(ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(53).Value = CType(ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(55).Value = CType(ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(56).Value = CType(ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfDestinationDeclared Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(ncts_CustomsOfficeOfDestinationDeclared,String) End If If (ncts_CustomsOfficeOfDeparture Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(ncts_CustomsOfficeOfDeparture,String) End If If (ncts_CustomsOfficeOfExitForTransitDeclared Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(ncts_CustomsOfficeOfExitForTransitDeclared,String) End If If (ncts_LimitDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(60).Value = CType(ncts_LimitDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (ncts_TransitDeclarationType Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(ncts_TransitDeclarationType,String) End If If (ncts_GrossMass.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(62).Value = CType(ncts_GrossMass.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (ncts_BindingItinerary Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(ncts_BindingItinerary,String) End If If (ncts_ContainerIndicator Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(ncts_ContainerIndicator,String) End If If (ncts_InlandModeOfTransport Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(ncts_InlandModeOfTransport,String) End If If (ncts_DepartureTransportMeans_1_TypeOfIdentification Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(ncts_DepartureTransportMeans_1_TypeOfIdentification,String) End If If (ncts_DepartureTransportMeans_1_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(ncts_DepartureTransportMeans_1_IdentificationNumber,String) End If If (ncts_DepartureTransportMeans_1_Nationality Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(ncts_DepartureTransportMeans_1_Nationality,String) End If If (ncts_DepartureTransportMeans_2_TypeOfIdentification Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(ncts_DepartureTransportMeans_2_TypeOfIdentification,String) End If If (ncts_DepartureTransportMeans_2_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(ncts_DepartureTransportMeans_2_IdentificationNumber,String) End If If (ncts_DepartureTransportMeans_2_Nationality Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(ncts_DepartureTransportMeans_2_Nationality,String) End If If (ncts_DepartureTransportMeans_3_TypeOfIdentification Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(ncts_DepartureTransportMeans_3_TypeOfIdentification,String) End If If (ncts_DepartureTransportMeans_3_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(ncts_DepartureTransportMeans_3_IdentificationNumber,String) End If If (ncts_DepartureTransportMeans_3_Nationality Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(ncts_DepartureTransportMeans_3_Nationality,String) End If If (ncts_DepartureTransportMeans_4_TypeOfIdentification Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(ncts_DepartureTransportMeans_4_TypeOfIdentification,String) End If If (ncts_DepartureTransportMeans_4_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(ncts_DepartureTransportMeans_4_IdentificationNumber,String) End If If (ncts_DepartureTransportMeans_4_Nationality Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(ncts_DepartureTransportMeans_4_Nationality,String) End If If (ncts_ActiveBorderTransportMeans_1_TypeOfIdentification Is Nothing) Then Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(78).Value = CType(ncts_ActiveBorderTransportMeans_1_TypeOfIdentification,String) End If If (ncts_ActiveBorderTransportMeans_1_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(ncts_ActiveBorderTransportMeans_1_IdentificationNumber,String) End If If (ncts_ActiveBorderTransportMeans_1_Nationality Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(ncts_ActiveBorderTransportMeans_1_Nationality,String) End If If (ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber,String) End If If (ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared,String) End If If (ncts_ActiveBorderTransportMeans_2_TypeOfIdentification Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(ncts_ActiveBorderTransportMeans_2_TypeOfIdentification,String) End If If (ncts_ActiveBorderTransportMeans_2_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(ncts_ActiveBorderTransportMeans_2_IdentificationNumber,String) End If If (ncts_ActiveBorderTransportMeans_2_Nationality Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(ncts_ActiveBorderTransportMeans_2_Nationality,String) End If If (ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber,String) End If If (ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared,String) End If If (ncts_ActiveBorderTransportMeans_3_TypeOfIdentification Is Nothing) Then Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(88).Value = CType(ncts_ActiveBorderTransportMeans_3_TypeOfIdentification,String) End If If (ncts_ActiveBorderTransportMeans_3_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(ncts_ActiveBorderTransportMeans_3_IdentificationNumber,String) End If If (ncts_ActiveBorderTransportMeans_3_Nationality Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(ncts_ActiveBorderTransportMeans_3_Nationality,String) End If If (ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber,String) End If If (ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared,String) End If If (ncts_ActiveBorderTransportMeans_4_TypeOfIdentification Is Nothing) Then Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(93).Value = CType(ncts_ActiveBorderTransportMeans_4_TypeOfIdentification,String) End If If (ncts_ActiveBorderTransportMeans_4_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(ncts_ActiveBorderTransportMeans_4_IdentificationNumber,String) End If If (ncts_ActiveBorderTransportMeans_4_Nationality Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(ncts_ActiveBorderTransportMeans_4_Nationality,String) End If If (ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber,String) End If If (ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared,String) End If If (ncts_Authorisation_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(ncts_Authorisation_1_Type,String) End If If (ncts_Authorisation_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(ncts_Authorisation_1_ReferenceNumber,String) End If If (ncts_Authorisation_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(100).Value = CType(ncts_Authorisation_2_Type,String) End If If (ncts_Authorisation_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(101).Value = CType(ncts_Authorisation_2_ReferenceNumber,String) End If If (ncts_Authorisation_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(102).Value = CType(ncts_Authorisation_3_Type,String) End If If (ncts_Authorisation_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(103).Value = CType(ncts_Authorisation_3_ReferenceNumber,String) End If If (ncts_Authorisation_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(104).Value = CType(ncts_Authorisation_4_Type,String) End If If (ncts_Authorisation_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(105).Value = CType(ncts_Authorisation_4_ReferenceNumber,String) End If If (ncts_Authorisation_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(106).Value = CType(ncts_Authorisation_5_Type,String) End If If (ncts_Authorisation_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(107).Value = CType(ncts_Authorisation_5_ReferenceNumber,String) End If If (ncts_Authorisation_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(108).Value = CType(ncts_Authorisation_6_Type,String) End If If (ncts_Authorisation_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(109).Value = CType(ncts_Authorisation_6_ReferenceNumber,String) End If If (ncts_Authorisation_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(110).Value = CType(ncts_Authorisation_7_Type,String) End If If (ncts_Authorisation_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(111).Value = CType(ncts_Authorisation_7_ReferenceNumber,String) End If If (ncts_Authorisation_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(112).Value = CType(ncts_Authorisation_8_Type,String) End If If (ncts_Authorisation_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(113).Value = CType(ncts_Authorisation_8_ReferenceNumber,String) End If If (ncts_Authorisation_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(114).Value = CType(ncts_Authorisation_9_Type,String) End If If (ncts_Authorisation_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(115).Value = CType(ncts_Authorisation_9_ReferenceNumber,String) End If If (ncts_Consignor_AdressCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(116).Value = CType(ncts_Consignor_AdressCode,String) End If If (ncts_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(117).Value = CType(ncts_Consignor_IdentificationNumber,String) End If If (ncts_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(118).Value = CType(ncts_Consignor_SubsidiaryNumber,String) End If If (ncts_Consignor_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(119).Value = CType(ncts_Consignor_Name,String) End If If (ncts_Consignor_StreetNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(120).Value = CType(ncts_Consignor_StreetNumber,String) End If If (ncts_Consignor_City Is Nothing) Then Me.Adapter.InsertCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(121).Value = CType(ncts_Consignor_City,String) End If If (ncts_Consignor_Postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(122).Value = CType(ncts_Consignor_Postcode,String) End If If (ncts_Consignor_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(123).Value = CType(ncts_Consignor_Country,String) End If If (ncts_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(124).Value = CType(ncts_Consignor_ContactPerson_Name,String) End If If (ncts_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(125).Value = CType(ncts_Consignor_ContactPerson_PhoneNumber,String) End If If (ncts_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(126).Value = CType(ncts_Consignor_ContactPerson_EMailAddress,String) End If If (ncts_Consignee_AdressCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(127).Value = CType(ncts_Consignee_AdressCode,String) End If If (ncts_Consignee_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(128).Value = CType(ncts_Consignee_IdentificationNumber,String) End If If (ncts_Consignee_SubsidiaryNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(129).Value = CType(ncts_Consignee_SubsidiaryNumber,String) End If If (ncts_Consignee_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(130).Value = CType(ncts_Consignee_Name,String) End If If (ncts_Consignee_StreetNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(131).Value = CType(ncts_Consignee_StreetNumber,String) End If If (ncts_Consignee_City Is Nothing) Then Me.Adapter.InsertCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(132).Value = CType(ncts_Consignee_City,String) End If If (ncts_Consignee_Postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(133).Value = CType(ncts_Consignee_Postcode,String) End If If (ncts_Consignee_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(134).Value = CType(ncts_Consignee_Country,String) End If If (ncts_Consignee_ContactPerson_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(135).Value = CType(ncts_Consignee_ContactPerson_Name,String) End If If (ncts_Consignee_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(136).Value = CType(ncts_Consignee_ContactPerson_PhoneNumber,String) End If If (ncts_Consignee_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(137).Value = CType(ncts_Consignee_ContactPerson_EMailAddress,String) End If If (ncts_HolderOfTheTransitProcedure_AdressCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(138).Value = CType(ncts_HolderOfTheTransitProcedure_AdressCode,String) End If If (ncts_HolderOfTheTransitProcedure_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(139).Value = CType(ncts_HolderOfTheTransitProcedure_IdentificationNumber,String) End If If (ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(140).Value = CType(ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber,String) End If If (ncts_HolderOfTheTransitProcedure_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(141).Value = CType(ncts_HolderOfTheTransitProcedure_Name,String) End If If (ncts_HolderOfTheTransitProcedure_StreetNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(142).Value = CType(ncts_HolderOfTheTransitProcedure_StreetNumber,String) End If If (ncts_HolderOfTheTransitProcedure_City Is Nothing) Then Me.Adapter.InsertCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(143).Value = CType(ncts_HolderOfTheTransitProcedure_City,String) End If If (ncts_HolderOfTheTransitProcedure_Postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(144).Value = CType(ncts_HolderOfTheTransitProcedure_Postcode,String) End If If (ncts_HolderOfTheTransitProcedure_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(145).Value = CType(ncts_HolderOfTheTransitProcedure_Country,String) End If If (ncts_HolderOfTheTransitProcedure_ContactPerson_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(146).Value = CType(ncts_HolderOfTheTransitProcedure_ContactPerson_Name,String) End If If (ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(147).Value = CType(ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber,String) End If If (ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(148).Value = CType(ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress,String) End If If (ncts_Representative_AdressCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(149).Value = CType(ncts_Representative_AdressCode,String) End If If (ncts_Representative_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(150).Value = CType(ncts_Representative_IdentificationNumber,String) End If If (ncts_Representative_ContactPerson_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(151).Value = CType(ncts_Representative_ContactPerson_Name,String) End If If (ncts_Representative_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(152).Value = CType(ncts_Representative_ContactPerson_PhoneNumber,String) End If If (ncts_Representative_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(153).Value = CType(ncts_Representative_ContactPerson_EMailAddress,String) End If If (ncts_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(154).Value = CType(ncts_AdditionalSupplyChainActor_1_Role,String) End If If (ncts_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(155).Value = CType(ncts_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(156).Value = CType(ncts_AdditionalSupplyChainActor_2_Role,String) End If If (ncts_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(157).Value = CType(ncts_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(158).Value = CType(ncts_AdditionalSupplyChainActor_3_Role,String) End If If (ncts_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(159).Value = CType(ncts_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(160).Value = CType(ncts_AdditionalSupplyChainActor_4_Role,String) End If If (ncts_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(161).Value = CType(ncts_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(162).Value = CType(ncts_AdditionalSupplyChainActor_5_Role,String) End If If (ncts_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(163).Value = CType(ncts_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(164).Value = CType(ncts_AdditionalSupplyChainActor_6_Role,String) End If If (ncts_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(165).Value = CType(ncts_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(166).Value = CType(ncts_AdditionalSupplyChainActor_7_Role,String) End If If (ncts_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(167).Value = CType(ncts_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(168).Value = CType(ncts_AdditionalSupplyChainActor_8_Role,String) End If If (ncts_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(169).Value = CType(ncts_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(170).Value = CType(ncts_AdditionalSupplyChainActor_9_Role,String) End If If (ncts_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(171).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(171).Value = CType(ncts_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (ncts_Security Is Nothing) Then Me.Adapter.InsertCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(172).Value = CType(ncts_Security,String) End If If (ncts_ReferenceNumberUCR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(173).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(173).Value = CType(ncts_ReferenceNumberUCR,String) End If If (ncts_SpecificCircomstanceIndicator Is Nothing) Then Me.Adapter.InsertCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(174).Value = CType(ncts_SpecificCircomstanceIndicator,String) End If If (ncts_PlaceOfLoading_Location Is Nothing) Then Me.Adapter.InsertCommand.Parameters(175).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(175).Value = CType(ncts_PlaceOfLoading_Location,String) End If If (ncts_PlaceOfLoading_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(176).Value = CType(ncts_PlaceOfLoading_Country,String) End If If (ncts_PlaceOfUnLoading_Location Is Nothing) Then Me.Adapter.InsertCommand.Parameters(177).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(177).Value = CType(ncts_PlaceOfUnLoading_Location,String) End If If (ncts_PlaceOfUnLoading_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(178).Value = CType(ncts_PlaceOfUnLoading_Country,String) End If If (ncts_TransportCharges Is Nothing) Then Me.Adapter.InsertCommand.Parameters(179).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(179).Value = CType(ncts_TransportCharges,String) End If If (ncts_CountryOfRoutingOfConsignment_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(180).Value = CType(ncts_CountryOfRoutingOfConsignment_1,String) End If If (ncts_CountryOfRoutingOfConsignment_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(181).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(181).Value = CType(ncts_CountryOfRoutingOfConsignment_2,String) End If If (ncts_CountryOfRoutingOfConsignment_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(182).Value = CType(ncts_CountryOfRoutingOfConsignment_3,String) End If If (ncts_CountryOfRoutingOfConsignment_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(183).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(183).Value = CType(ncts_CountryOfRoutingOfConsignment_4,String) End If If (ncts_CountryOfRoutingOfConsignment_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(184).Value = CType(ncts_CountryOfRoutingOfConsignment_5,String) End If If (ncts_CountryOfRoutingOfConsignment_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(185).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(185).Value = CType(ncts_CountryOfRoutingOfConsignment_6,String) End If If (ncts_CountryOfRoutingOfConsignment_7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(186).Value = CType(ncts_CountryOfRoutingOfConsignment_7,String) End If If (ncts_CountryOfRoutingOfConsignment_8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(187).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(187).Value = CType(ncts_CountryOfRoutingOfConsignment_8,String) End If If (ncts_CountryOfRoutingOfConsignment_9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(188).Value = CType(ncts_CountryOfRoutingOfConsignment_9,String) End If If (ncts_CountryOfRoutingOfConsignment_10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(189).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(189).Value = CType(ncts_CountryOfRoutingOfConsignment_10,String) End If If (ncts_CountryOfRoutingOfConsignment_11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(190).Value = CType(ncts_CountryOfRoutingOfConsignment_11,String) End If If (ncts_CountryOfRoutingOfConsignment_12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(191).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(191).Value = CType(ncts_CountryOfRoutingOfConsignment_12,String) End If If (ncts_CountryOfRoutingOfConsignment_13 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(192).Value = CType(ncts_CountryOfRoutingOfConsignment_13,String) End If If (ncts_CountryOfRoutingOfConsignment_14 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(193).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(193).Value = CType(ncts_CountryOfRoutingOfConsignment_14,String) End If If (ncts_CountryOfRoutingOfConsignment_15 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(194).Value = CType(ncts_CountryOfRoutingOfConsignment_15,String) End If If (ncts_Carrier_AdressCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(195).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(195).Value = CType(ncts_Carrier_AdressCode,String) End If If (ncts_Carrier_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(196).Value = CType(ncts_Carrier_IdentificationNumber,String) End If If (ncts_Carrier_SubsidiaryNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(197).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(197).Value = CType(ncts_Carrier_SubsidiaryNumber,String) End If If (ncts_Carrier_ContactPerson_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(198).Value = CType(ncts_Carrier_ContactPerson_Name,String) End If If (ncts_Carrier_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(199).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(199).Value = CType(ncts_Carrier_ContactPerson_PhoneNumber,String) End If If (ncts_Carrier_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(200).Value = CType(ncts_Carrier_ContactPerson_EMailAddress,String) End If If (ncts_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(201).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(201).Value = CType(ncts_SupportingDocument_1_Type,String) End If If (ncts_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(202).Value = CType(ncts_SupportingDocument_1_ReferenceNumber,String) End If If (ncts_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(203).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(203).Value = CType(ncts_SupportingDocument_1_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(204).Value = CType(ncts_SupportingDocument_1_ComplementOfInformation,String) End If If (ncts_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(205).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(205).Value = CType(ncts_SupportingDocument_2_Type,String) End If If (ncts_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(206).Value = CType(ncts_SupportingDocument_2_ReferenceNumber,String) End If If (ncts_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(207).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(207).Value = CType(ncts_SupportingDocument_2_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(208).Value = CType(ncts_SupportingDocument_2_ComplementOfInformation,String) End If If (ncts_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(209).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(209).Value = CType(ncts_SupportingDocument_3_Type,String) End If If (ncts_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(210).Value = CType(ncts_SupportingDocument_3_ReferenceNumber,String) End If If (ncts_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(211).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(211).Value = CType(ncts_SupportingDocument_3_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(212).Value = CType(ncts_SupportingDocument_3_ComplementOfInformation,String) End If If (ncts_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(213).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(213).Value = CType(ncts_SupportingDocument_4_Type,String) End If If (ncts_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(214).Value = CType(ncts_SupportingDocument_4_ReferenceNumber,String) End If If (ncts_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(215).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(215).Value = CType(ncts_SupportingDocument_4_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(216).Value = CType(ncts_SupportingDocument_4_ComplementOfInformation,String) End If If (ncts_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(217).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(217).Value = CType(ncts_SupportingDocument_5_Type,String) End If If (ncts_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(218).Value = CType(ncts_SupportingDocument_5_ReferenceNumber,String) End If If (ncts_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(219).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(219).Value = CType(ncts_SupportingDocument_5_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(220).Value = CType(ncts_SupportingDocument_5_ComplementOfInformation,String) End If If (ncts_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(221).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(221).Value = CType(ncts_SupportingDocument_6_Type,String) End If If (ncts_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(222).Value = CType(ncts_SupportingDocument_6_ReferenceNumber,String) End If If (ncts_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(223).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(223).Value = CType(ncts_SupportingDocument_6_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(224).Value = CType(ncts_SupportingDocument_6_ComplementOfInformation,String) End If If (ncts_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(225).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(225).Value = CType(ncts_SupportingDocument_7_Type,String) End If If (ncts_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(226).Value = CType(ncts_SupportingDocument_7_ReferenceNumber,String) End If If (ncts_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(227).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(227).Value = CType(ncts_SupportingDocument_7_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(228).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(228).Value = CType(ncts_SupportingDocument_7_ComplementOfInformation,String) End If If (ncts_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(229).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(229).Value = CType(ncts_SupportingDocument_8_Type,String) End If If (ncts_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(230).Value = CType(ncts_SupportingDocument_8_ReferenceNumber,String) End If If (ncts_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(231).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(231).Value = CType(ncts_SupportingDocument_8_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(232).Value = CType(ncts_SupportingDocument_8_ComplementOfInformation,String) End If If (ncts_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(233).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(233).Value = CType(ncts_SupportingDocument_9_Type,String) End If If (ncts_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(234).Value = CType(ncts_SupportingDocument_9_ReferenceNumber,String) End If If (ncts_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(235).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(235).Value = CType(ncts_SupportingDocument_9_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(236).Value = CType(ncts_SupportingDocument_9_ComplementOfInformation,String) End If If (ncts_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(237).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(237).Value = CType(ncts_PreviousDocument_1_Type,String) End If If (ncts_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(238).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(238).Value = CType(ncts_PreviousDocument_1_ReferenceNumber,String) End If If (ncts_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(239).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(239).Value = CType(ncts_PreviousDocument_1_ComplementOfInformation,String) End If If (ncts_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(240).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(240).Value = CType(ncts_PreviousDocument_2_Type,String) End If If (ncts_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(241).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(241).Value = CType(ncts_PreviousDocument_2_ReferenceNumber,String) End If If (ncts_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(242).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(242).Value = CType(ncts_PreviousDocument_2_ComplementOfInformation,String) End If If (ncts_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(243).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(243).Value = CType(ncts_PreviousDocument_3_Type,String) End If If (ncts_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(244).Value = CType(ncts_PreviousDocument_3_ReferenceNumber,String) End If If (ncts_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(245).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(245).Value = CType(ncts_PreviousDocument_3_ComplementOfInformation,String) End If If (ncts_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(246).Value = CType(ncts_PreviousDocument_4_Type,String) End If If (ncts_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(247).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(247).Value = CType(ncts_PreviousDocument_4_ReferenceNumber,String) End If If (ncts_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(248).Value = CType(ncts_PreviousDocument_4_ComplementOfInformation,String) End If If (ncts_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(249).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(249).Value = CType(ncts_PreviousDocument_5_Type,String) End If If (ncts_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(250).Value = CType(ncts_PreviousDocument_5_ReferenceNumber,String) End If If (ncts_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(251).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(251).Value = CType(ncts_PreviousDocument_5_ComplementOfInformation,String) End If If (ncts_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(252).Value = CType(ncts_PreviousDocument_6_Type,String) End If If (ncts_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(253).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(253).Value = CType(ncts_PreviousDocument_6_ReferenceNumber,String) End If If (ncts_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(254).Value = CType(ncts_PreviousDocument_6_ComplementOfInformation,String) End If If (ncts_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(255).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(255).Value = CType(ncts_PreviousDocument_7_Type,String) End If If (ncts_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(256).Value = CType(ncts_PreviousDocument_7_ReferenceNumber,String) End If If (ncts_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(257).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(257).Value = CType(ncts_PreviousDocument_7_ComplementOfInformation,String) End If If (ncts_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(258).Value = CType(ncts_PreviousDocument_8_Type,String) End If If (ncts_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(259).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(259).Value = CType(ncts_PreviousDocument_8_ReferenceNumber,String) End If If (ncts_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(260).Value = CType(ncts_PreviousDocument_8_ComplementOfInformation,String) End If If (ncts_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(261).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(261).Value = CType(ncts_PreviousDocument_9_Type,String) End If If (ncts_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(262).Value = CType(ncts_PreviousDocument_9_ReferenceNumber,String) End If If (ncts_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(263).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(263).Value = CType(ncts_PreviousDocument_9_ComplementOfInformation,String) End If If (ncts_TransportDocument_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(264).Value = CType(ncts_TransportDocument_1_Type,String) End If If (ncts_TransportDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(265).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(265).Value = CType(ncts_TransportDocument_1_ReferenceNumber,String) End If If (ncts_TransportDocument_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(266).Value = CType(ncts_TransportDocument_2_Type,String) End If If (ncts_TransportDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(267).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(267).Value = CType(ncts_TransportDocument_2_ReferenceNumber,String) End If If (ncts_TransportDocument_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(268).Value = CType(ncts_TransportDocument_3_Type,String) End If If (ncts_TransportDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(269).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(269).Value = CType(ncts_TransportDocument_3_ReferenceNumber,String) End If If (ncts_TransportDocument_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(270).Value = CType(ncts_TransportDocument_4_Type,String) End If If (ncts_TransportDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(271).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(271).Value = CType(ncts_TransportDocument_4_ReferenceNumber,String) End If If (ncts_TransportDocument_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(272).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(272).Value = CType(ncts_TransportDocument_5_Type,String) End If If (ncts_TransportDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(273).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(273).Value = CType(ncts_TransportDocument_5_ReferenceNumber,String) End If If (ncts_TransportDocument_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(274).Value = CType(ncts_TransportDocument_6_Type,String) End If If (ncts_TransportDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(275).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(275).Value = CType(ncts_TransportDocument_6_ReferenceNumber,String) End If If (ncts_TransportDocument_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(276).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(276).Value = CType(ncts_TransportDocument_7_Type,String) End If If (ncts_TransportDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(277).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(277).Value = CType(ncts_TransportDocument_7_ReferenceNumber,String) End If If (ncts_TransportDocument_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(278).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(278).Value = CType(ncts_TransportDocument_8_Type,String) End If If (ncts_TransportDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(279).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(279).Value = CType(ncts_TransportDocument_8_ReferenceNumber,String) End If If (ncts_TransportDocument_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(280).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(280).Value = CType(ncts_TransportDocument_9_Type,String) End If If (ncts_TransportDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(281).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(281).Value = CType(ncts_TransportDocument_9_ReferenceNumber,String) End If If (ncts_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(282).Value = CType(ncts_AdditionalReference_1_Type,String) End If If (ncts_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(283).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(283).Value = CType(ncts_AdditionalReference_1_ReferenceNumber,String) End If If (ncts_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(284).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(284).Value = CType(ncts_AdditionalReference_2_Type,String) End If If (ncts_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(285).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(285).Value = CType(ncts_AdditionalReference_2_ReferenceNumber,String) End If If (ncts_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(286).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(286).Value = CType(ncts_AdditionalReference_3_Type,String) End If If (ncts_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(287).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(287).Value = CType(ncts_AdditionalReference_3_ReferenceNumber,String) End If If (ncts_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(288).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(288).Value = CType(ncts_AdditionalReference_4_Type,String) End If If (ncts_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(289).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(289).Value = CType(ncts_AdditionalReference_4_ReferenceNumber,String) End If If (ncts_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(290).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(290).Value = CType(ncts_AdditionalReference_5_Type,String) End If If (ncts_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(291).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(291).Value = CType(ncts_AdditionalReference_5_ReferenceNumber,String) End If If (ncts_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(292).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(292).Value = CType(ncts_AdditionalReference_6_Type,String) End If If (ncts_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(293).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(293).Value = CType(ncts_AdditionalReference_6_ReferenceNumber,String) End If If (ncts_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(294).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(294).Value = CType(ncts_AdditionalReference_7_Type,String) End If If (ncts_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(295).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(295).Value = CType(ncts_AdditionalReference_7_ReferenceNumber,String) End If If (ncts_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(296).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(296).Value = CType(ncts_AdditionalReference_8_Type,String) End If If (ncts_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(297).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(297).Value = CType(ncts_AdditionalReference_8_ReferenceNumber,String) End If If (ncts_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(298).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(298).Value = CType(ncts_AdditionalReference_9_Type,String) End If If (ncts_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(299).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(299).Value = CType(ncts_AdditionalReference_9_ReferenceNumber,String) End If If (ncts_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(300).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(300).Value = CType(ncts_AdditionalInformation_1_Code,String) End If If (ncts_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(301).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(301).Value = CType(ncts_AdditionalInformation_1_Text,String) End If If (ncts_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(302).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(302).Value = CType(ncts_AdditionalInformation_2_Code,String) End If If (ncts_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(303).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(303).Value = CType(ncts_AdditionalInformation_2_Text,String) End If If (ncts_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(304).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(304).Value = CType(ncts_AdditionalInformation_3_Code,String) End If If (ncts_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(305).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(305).Value = CType(ncts_AdditionalInformation_3_Text,String) End If If (ncts_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(306).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(306).Value = CType(ncts_AdditionalInformation_4_Code,String) End If If (ncts_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(307).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(307).Value = CType(ncts_AdditionalInformation_4_Text,String) End If If (ncts_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(308).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(308).Value = CType(ncts_AdditionalInformation_5_Code,String) End If If (ncts_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(309).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(309).Value = CType(ncts_AdditionalInformation_5_Text,String) End If If (ncts_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(310).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(310).Value = CType(ncts_AdditionalInformation_6_Code,String) End If If (ncts_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(311).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(311).Value = CType(ncts_AdditionalInformation_6_Text,String) End If If (ncts_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(312).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(312).Value = CType(ncts_AdditionalInformation_7_Code,String) End If If (ncts_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(313).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(313).Value = CType(ncts_AdditionalInformation_7_Text,String) End If If (ncts_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(314).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(314).Value = CType(ncts_AdditionalInformation_8_Code,String) End If If (ncts_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(315).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(315).Value = CType(ncts_AdditionalInformation_8_Text,String) End If If (ncts_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(316).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(316).Value = CType(ncts_AdditionalInformation_9_Code,String) End If If (ncts_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(317).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(317).Value = CType(ncts_AdditionalInformation_9_Text,String) End If If (ncts_AUTOIMPIndicator Is Nothing) Then Me.Adapter.InsertCommand.Parameters(318).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(318).Value = CType(ncts_AUTOIMPIndicator,String) End If If (ncts_Stammreferenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(319).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(319).Value = CType(ncts_Stammreferenz,String) End If If (ncts_ModeOfTransportAtTheBorder Is Nothing) Then Me.Adapter.InsertCommand.Parameters(320).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(320).Value = CType(ncts_ModeOfTransportAtTheBorder,String) End If If (ncts_Eroeffnung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(321).Value = CType(ncts_Eroeffnung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(321).Value = Global.System.DBNull.Value End If If (ncts_Ankunft.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(322).Value = CType(ncts_Ankunft.Value,Date) Else Me.Adapter.InsertCommand.Parameters(322).Value = Global.System.DBNull.Value End If If (ncts_Erledigung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(323).Value = CType(ncts_Erledigung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(323).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 ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_CountryOfDispatch As String, _ ByVal ncts_CountryOfDestination As String, _ ByVal ncts_Declarationtype As String, _ ByVal ncts_TIRCarnetNumber As String, _ ByVal ncts_ReductedDatasetIndicator As String, _ ByVal ncts_LocationOfGoods_TypeofLocation As String, _ ByVal ncts_LocationOfGoods_QualifierIdenfitication As String, _ ByVal ncts_LocationOfGoods_AdditionalIdentifier As String, _ ByVal ncts_LocationOfGoods_ContactPerson_Name As String, _ ByVal ncts_LocationOfGoods_ContactPerson_PhoneNumber As String, _ ByVal ncts_LocationOfGoods_ContactPerson_EMailAddress As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfDestinationDeclared As String, _ ByVal ncts_CustomsOfficeOfDeparture As String, _ ByVal ncts_CustomsOfficeOfExitForTransitDeclared As String, _ ByVal ncts_LimitDate As Global.System.Nullable(Of Date), _ ByVal ncts_TransitDeclarationType As String, _ ByVal ncts_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal ncts_BindingItinerary As String, _ ByVal ncts_ContainerIndicator As String, _ ByVal ncts_InlandModeOfTransport As String, _ ByVal ncts_DepartureTransportMeans_1_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_1_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_1_Nationality As String, _ ByVal ncts_DepartureTransportMeans_2_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_2_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_2_Nationality As String, _ ByVal ncts_DepartureTransportMeans_3_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_3_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_3_Nationality As String, _ ByVal ncts_DepartureTransportMeans_4_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_4_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_4_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_1_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_1_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_2_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_2_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_3_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_3_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_4_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_4_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_Authorisation_1_Type As String, _ ByVal ncts_Authorisation_1_ReferenceNumber As String, _ ByVal ncts_Authorisation_2_Type As String, _ ByVal ncts_Authorisation_2_ReferenceNumber As String, _ ByVal ncts_Authorisation_3_Type As String, _ ByVal ncts_Authorisation_3_ReferenceNumber As String, _ ByVal ncts_Authorisation_4_Type As String, _ ByVal ncts_Authorisation_4_ReferenceNumber As String, _ ByVal ncts_Authorisation_5_Type As String, _ ByVal ncts_Authorisation_5_ReferenceNumber As String, _ ByVal ncts_Authorisation_6_Type As String, _ ByVal ncts_Authorisation_6_ReferenceNumber As String, _ ByVal ncts_Authorisation_7_Type As String, _ ByVal ncts_Authorisation_7_ReferenceNumber As String, _ ByVal ncts_Authorisation_8_Type As String, _ ByVal ncts_Authorisation_8_ReferenceNumber As String, _ ByVal ncts_Authorisation_9_Type As String, _ ByVal ncts_Authorisation_9_ReferenceNumber As String, _ ByVal ncts_Consignor_AdressCode As String, _ ByVal ncts_Consignor_IdentificationNumber As String, _ ByVal ncts_Consignor_SubsidiaryNumber As String, _ ByVal ncts_Consignor_Name As String, _ ByVal ncts_Consignor_StreetNumber As String, _ ByVal ncts_Consignor_City As String, _ ByVal ncts_Consignor_Postcode As String, _ ByVal ncts_Consignor_Country As String, _ ByVal ncts_Consignor_ContactPerson_Name As String, _ ByVal ncts_Consignor_ContactPerson_PhoneNumber As String, _ ByVal ncts_Consignor_ContactPerson_EMailAddress As String, _ ByVal ncts_Consignee_AdressCode As String, _ ByVal ncts_Consignee_IdentificationNumber As String, _ ByVal ncts_Consignee_SubsidiaryNumber As String, _ ByVal ncts_Consignee_Name As String, _ ByVal ncts_Consignee_StreetNumber As String, _ ByVal ncts_Consignee_City As String, _ ByVal ncts_Consignee_Postcode As String, _ ByVal ncts_Consignee_Country As String, _ ByVal ncts_Consignee_ContactPerson_Name As String, _ ByVal ncts_Consignee_ContactPerson_PhoneNumber As String, _ ByVal ncts_Consignee_ContactPerson_EMailAddress As String, _ ByVal ncts_HolderOfTheTransitProcedure_AdressCode As String, _ ByVal ncts_HolderOfTheTransitProcedure_IdentificationNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_Name As String, _ ByVal ncts_HolderOfTheTransitProcedure_StreetNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_City As String, _ ByVal ncts_HolderOfTheTransitProcedure_Postcode As String, _ ByVal ncts_HolderOfTheTransitProcedure_Country As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_Name As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As String, _ ByVal ncts_Representative_AdressCode As String, _ ByVal ncts_Representative_IdentificationNumber As String, _ ByVal ncts_Representative_ContactPerson_Name As String, _ ByVal ncts_Representative_ContactPerson_PhoneNumber As String, _ ByVal ncts_Representative_ContactPerson_EMailAddress As String, _ ByVal ncts_AdditionalSupplyChainActor_1_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_2_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_3_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_4_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_5_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_6_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_7_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_8_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_9_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal ncts_Security As String, _ ByVal ncts_ReferenceNumberUCR As String, _ ByVal ncts_SpecificCircomstanceIndicator As String, _ ByVal ncts_PlaceOfLoading_Location As String, _ ByVal ncts_PlaceOfLoading_Country As String, _ ByVal ncts_PlaceOfUnLoading_Location As String, _ ByVal ncts_PlaceOfUnLoading_Country As String, _ ByVal ncts_TransportCharges As String, _ ByVal ncts_CountryOfRoutingOfConsignment_1 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_2 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_3 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_4 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_5 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_6 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_7 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_8 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_9 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_10 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_11 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_12 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_13 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_14 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_15 As String, _ ByVal ncts_Carrier_AdressCode As String, _ ByVal ncts_Carrier_IdentificationNumber As String, _ ByVal ncts_Carrier_SubsidiaryNumber As String, _ ByVal ncts_Carrier_ContactPerson_Name As String, _ ByVal ncts_Carrier_ContactPerson_PhoneNumber As String, _ ByVal ncts_Carrier_ContactPerson_EMailAddress As String, _ ByVal ncts_SupportingDocument_1_Type As String, _ ByVal ncts_SupportingDocument_1_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_1_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_2_Type As String, _ ByVal ncts_SupportingDocument_2_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_2_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_3_Type As String, _ ByVal ncts_SupportingDocument_3_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_3_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_4_Type As String, _ ByVal ncts_SupportingDocument_4_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_4_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_5_Type As String, _ ByVal ncts_SupportingDocument_5_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_5_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_6_Type As String, _ ByVal ncts_SupportingDocument_6_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_6_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_7_Type As String, _ ByVal ncts_SupportingDocument_7_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_7_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_8_Type As String, _ ByVal ncts_SupportingDocument_8_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_8_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_9_Type As String, _ ByVal ncts_SupportingDocument_9_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_9_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_1_Type As String, _ ByVal ncts_PreviousDocument_1_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_1_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_2_Type As String, _ ByVal ncts_PreviousDocument_2_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_2_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_3_Type As String, _ ByVal ncts_PreviousDocument_3_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_3_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_4_Type As String, _ ByVal ncts_PreviousDocument_4_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_4_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_5_Type As String, _ ByVal ncts_PreviousDocument_5_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_5_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_6_Type As String, _ ByVal ncts_PreviousDocument_6_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_6_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_7_Type As String, _ ByVal ncts_PreviousDocument_7_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_7_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_8_Type As String, _ ByVal ncts_PreviousDocument_8_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_8_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_9_Type As String, _ ByVal ncts_PreviousDocument_9_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_9_ComplementOfInformation As String, _ ByVal ncts_TransportDocument_1_Type As String, _ ByVal ncts_TransportDocument_1_ReferenceNumber As String, _ ByVal ncts_TransportDocument_2_Type As String, _ ByVal ncts_TransportDocument_2_ReferenceNumber As String, _ ByVal ncts_TransportDocument_3_Type As String, _ ByVal ncts_TransportDocument_3_ReferenceNumber As String, _ ByVal ncts_TransportDocument_4_Type As String, _ ByVal ncts_TransportDocument_4_ReferenceNumber As String, _ ByVal ncts_TransportDocument_5_Type As String, _ ByVal ncts_TransportDocument_5_ReferenceNumber As String, _ ByVal ncts_TransportDocument_6_Type As String, _ ByVal ncts_TransportDocument_6_ReferenceNumber As String, _ ByVal ncts_TransportDocument_7_Type As String, _ ByVal ncts_TransportDocument_7_ReferenceNumber As String, _ ByVal ncts_TransportDocument_8_Type As String, _ ByVal ncts_TransportDocument_8_ReferenceNumber As String, _ ByVal ncts_TransportDocument_9_Type As String, _ ByVal ncts_TransportDocument_9_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_1_Type As String, _ ByVal ncts_AdditionalReference_1_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_2_Type As String, _ ByVal ncts_AdditionalReference_2_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_3_Type As String, _ ByVal ncts_AdditionalReference_3_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_4_Type As String, _ ByVal ncts_AdditionalReference_4_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_5_Type As String, _ ByVal ncts_AdditionalReference_5_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_6_Type As String, _ ByVal ncts_AdditionalReference_6_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_7_Type As String, _ ByVal ncts_AdditionalReference_7_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_8_Type As String, _ ByVal ncts_AdditionalReference_8_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_9_Type As String, _ ByVal ncts_AdditionalReference_9_ReferenceNumber As String, _ ByVal ncts_AdditionalInformation_1_Code As String, _ ByVal ncts_AdditionalInformation_1_Text As String, _ ByVal ncts_AdditionalInformation_2_Code As String, _ ByVal ncts_AdditionalInformation_2_Text As String, _ ByVal ncts_AdditionalInformation_3_Code As String, _ ByVal ncts_AdditionalInformation_3_Text As String, _ ByVal ncts_AdditionalInformation_4_Code As String, _ ByVal ncts_AdditionalInformation_4_Text As String, _ ByVal ncts_AdditionalInformation_5_Code As String, _ ByVal ncts_AdditionalInformation_5_Text As String, _ ByVal ncts_AdditionalInformation_6_Code As String, _ ByVal ncts_AdditionalInformation_6_Text As String, _ ByVal ncts_AdditionalInformation_7_Code As String, _ ByVal ncts_AdditionalInformation_7_Text As String, _ ByVal ncts_AdditionalInformation_8_Code As String, _ ByVal ncts_AdditionalInformation_8_Text As String, _ ByVal ncts_AdditionalInformation_9_Code As String, _ ByVal ncts_AdditionalInformation_9_Text As String, _ ByVal ncts_AUTOIMPIndicator As String, _ ByVal ncts_Stammreferenz As String, _ ByVal ncts_ModeOfTransportAtTheBorder As String, _ ByVal ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal ncts_Erledigung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Id As Integer, _ ByVal Original_ncts_Status As Integer, _ ByVal Original_ncts_Status_KEWILL_Equivalent As Integer, _ ByVal Original_ncts_dyaArt As String, _ ByVal Original_ncts_dyaAnmID As Integer, _ ByVal Original_ncts_ANR As String, _ ByVal Original_ncts_MRN As String, _ ByVal Original_ncts_Erstellung As Date, _ ByVal Original_ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_LetzteBearbeitung As Date, _ ByVal Original_ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_firma As String, _ ByVal Original_ncts_niederlassung As String, _ ByVal Original_ncts_Gestellt As Boolean, _ ByVal Original_ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Partner As String, _ ByVal Original_ncts_Trans_Div1 As String, _ ByVal Original_ncts_Trans_Div2 As String, _ ByVal Original_ncts_Trans_Div3 As String, _ ByVal Original_ncts_Trans_Referenz As String, _ ByVal Original_ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_NachrichtenSenderTIN As String, _ ByVal Original_ncts_NachrichtenSenderNLNR As String, _ ByVal Original_ncts_NachrichtenempfaengerDST As String, _ ByVal Original_ncts_ObjectName As String, _ ByVal Original_ncts_ObjectAlias As String, _ ByVal Original_ncts_BezugsnummerVorblendung As String, _ ByVal Original_ncts_Bearbeiter As String, _ ByVal Original_ncts_CountryOfDispatch As String, _ ByVal Original_ncts_CountryOfDestination As String, _ ByVal Original_ncts_Declarationtype As String, _ ByVal Original_ncts_TIRCarnetNumber As String, _ ByVal Original_ncts_ReductedDatasetIndicator As String, _ ByVal Original_ncts_LocationOfGoods_TypeofLocation As String, _ ByVal Original_ncts_LocationOfGoods_QualifierIdenfitication As String, _ ByVal Original_ncts_LocationOfGoods_AdditionalIdentifier As String, _ ByVal Original_ncts_LocationOfGoods_ContactPerson_Name As String, _ ByVal Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_LocationOfGoods_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfDestinationDeclared As String, _ ByVal Original_ncts_CustomsOfficeOfDeparture As String, _ ByVal Original_ncts_CustomsOfficeOfExitForTransitDeclared As String, _ ByVal Original_ncts_LimitDate As Global.System.Nullable(Of Date), _ ByVal Original_ncts_TransitDeclarationType As String, _ ByVal Original_ncts_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_BindingItinerary As String, _ ByVal Original_ncts_ContainerIndicator As String, _ ByVal Original_ncts_InlandModeOfTransport As String, _ ByVal Original_ncts_DepartureTransportMeans_1_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_1_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_1_Nationality As String, _ ByVal Original_ncts_DepartureTransportMeans_2_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_2_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_2_Nationality As String, _ ByVal Original_ncts_DepartureTransportMeans_3_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_3_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_3_Nationality As String, _ ByVal Original_ncts_DepartureTransportMeans_4_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_4_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_4_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_Authorisation_1_Type As String, _ ByVal Original_ncts_Authorisation_1_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_2_Type As String, _ ByVal Original_ncts_Authorisation_2_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_3_Type As String, _ ByVal Original_ncts_Authorisation_3_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_4_Type As String, _ ByVal Original_ncts_Authorisation_4_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_5_Type As String, _ ByVal Original_ncts_Authorisation_5_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_6_Type As String, _ ByVal Original_ncts_Authorisation_6_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_7_Type As String, _ ByVal Original_ncts_Authorisation_7_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_8_Type As String, _ ByVal Original_ncts_Authorisation_8_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_9_Type As String, _ ByVal Original_ncts_Authorisation_9_ReferenceNumber As String, _ ByVal Original_ncts_Consignor_AdressCode As String, _ ByVal Original_ncts_Consignor_IdentificationNumber As String, _ ByVal Original_ncts_Consignor_SubsidiaryNumber As String, _ ByVal Original_ncts_Consignor_Name As String, _ ByVal Original_ncts_Consignor_StreetNumber As String, _ ByVal Original_ncts_Consignor_City As String, _ ByVal Original_ncts_Consignor_Postcode As String, _ ByVal Original_ncts_Consignor_Country As String, _ ByVal Original_ncts_Consignor_ContactPerson_Name As String, _ ByVal Original_ncts_Consignor_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Consignor_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_Consignee_AdressCode As String, _ ByVal Original_ncts_Consignee_IdentificationNumber As String, _ ByVal Original_ncts_Consignee_SubsidiaryNumber As String, _ ByVal Original_ncts_Consignee_Name As String, _ ByVal Original_ncts_Consignee_StreetNumber As String, _ ByVal Original_ncts_Consignee_City As String, _ ByVal Original_ncts_Consignee_Postcode As String, _ ByVal Original_ncts_Consignee_Country As String, _ ByVal Original_ncts_Consignee_ContactPerson_Name As String, _ ByVal Original_ncts_Consignee_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Consignee_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_AdressCode As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_IdentificationNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_Name As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_StreetNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_City As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_Postcode As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_Country As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_Representative_AdressCode As String, _ ByVal Original_ncts_Representative_IdentificationNumber As String, _ ByVal Original_ncts_Representative_ContactPerson_Name As String, _ ByVal Original_ncts_Representative_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Representative_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_1_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_2_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_3_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_4_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_5_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_6_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_7_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_8_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_9_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal Original_ncts_Security As String, _ ByVal Original_ncts_ReferenceNumberUCR As String, _ ByVal Original_ncts_SpecificCircomstanceIndicator As String, _ ByVal Original_ncts_PlaceOfLoading_Location As String, _ ByVal Original_ncts_PlaceOfLoading_Country As String, _ ByVal Original_ncts_PlaceOfUnLoading_Location As String, _ ByVal Original_ncts_PlaceOfUnLoading_Country As String, _ ByVal Original_ncts_TransportCharges As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_1 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_2 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_3 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_4 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_5 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_6 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_7 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_8 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_9 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_10 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_11 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_12 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_13 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_14 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_15 As String, _ ByVal Original_ncts_Carrier_AdressCode As String, _ ByVal Original_ncts_Carrier_IdentificationNumber As String, _ ByVal Original_ncts_Carrier_SubsidiaryNumber As String, _ ByVal Original_ncts_Carrier_ContactPerson_Name As String, _ ByVal Original_ncts_Carrier_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Carrier_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_SupportingDocument_1_Type As String, _ ByVal Original_ncts_SupportingDocument_1_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_1_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_2_Type As String, _ ByVal Original_ncts_SupportingDocument_2_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_2_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_3_Type As String, _ ByVal Original_ncts_SupportingDocument_3_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_3_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_4_Type As String, _ ByVal Original_ncts_SupportingDocument_4_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_4_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_5_Type As String, _ ByVal Original_ncts_SupportingDocument_5_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_5_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_6_Type As String, _ ByVal Original_ncts_SupportingDocument_6_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_6_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_7_Type As String, _ ByVal Original_ncts_SupportingDocument_7_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_7_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_8_Type As String, _ ByVal Original_ncts_SupportingDocument_8_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_8_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_9_Type As String, _ ByVal Original_ncts_SupportingDocument_9_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_9_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_1_Type As String, _ ByVal Original_ncts_PreviousDocument_1_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_1_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_2_Type As String, _ ByVal Original_ncts_PreviousDocument_2_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_2_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_3_Type As String, _ ByVal Original_ncts_PreviousDocument_3_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_3_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_4_Type As String, _ ByVal Original_ncts_PreviousDocument_4_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_4_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_5_Type As String, _ ByVal Original_ncts_PreviousDocument_5_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_5_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_6_Type As String, _ ByVal Original_ncts_PreviousDocument_6_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_6_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_7_Type As String, _ ByVal Original_ncts_PreviousDocument_7_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_7_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_8_Type As String, _ ByVal Original_ncts_PreviousDocument_8_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_8_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_9_Type As String, _ ByVal Original_ncts_PreviousDocument_9_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_9_ComplementOfInformation As String, _ ByVal Original_ncts_TransportDocument_1_Type As String, _ ByVal Original_ncts_TransportDocument_1_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_2_Type As String, _ ByVal Original_ncts_TransportDocument_2_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_3_Type As String, _ ByVal Original_ncts_TransportDocument_3_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_4_Type As String, _ ByVal Original_ncts_TransportDocument_4_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_5_Type As String, _ ByVal Original_ncts_TransportDocument_5_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_6_Type As String, _ ByVal Original_ncts_TransportDocument_6_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_7_Type As String, _ ByVal Original_ncts_TransportDocument_7_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_8_Type As String, _ ByVal Original_ncts_TransportDocument_8_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_9_Type As String, _ ByVal Original_ncts_TransportDocument_9_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_1_Type As String, _ ByVal Original_ncts_AdditionalReference_1_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_2_Type As String, _ ByVal Original_ncts_AdditionalReference_2_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_3_Type As String, _ ByVal Original_ncts_AdditionalReference_3_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_4_Type As String, _ ByVal Original_ncts_AdditionalReference_4_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_5_Type As String, _ ByVal Original_ncts_AdditionalReference_5_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_6_Type As String, _ ByVal Original_ncts_AdditionalReference_6_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_7_Type As String, _ ByVal Original_ncts_AdditionalReference_7_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_8_Type As String, _ ByVal Original_ncts_AdditionalReference_8_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_9_Type As String, _ ByVal Original_ncts_AdditionalReference_9_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalInformation_1_Code As String, _ ByVal Original_ncts_AdditionalInformation_1_Text As String, _ ByVal Original_ncts_AdditionalInformation_2_Code As String, _ ByVal Original_ncts_AdditionalInformation_2_Text As String, _ ByVal Original_ncts_AdditionalInformation_3_Code As String, _ ByVal Original_ncts_AdditionalInformation_3_Text As String, _ ByVal Original_ncts_AdditionalInformation_4_Code As String, _ ByVal Original_ncts_AdditionalInformation_4_Text As String, _ ByVal Original_ncts_AdditionalInformation_5_Code As String, _ ByVal Original_ncts_AdditionalInformation_5_Text As String, _ ByVal Original_ncts_AdditionalInformation_6_Code As String, _ ByVal Original_ncts_AdditionalInformation_6_Text As String, _ ByVal Original_ncts_AdditionalInformation_7_Code As String, _ ByVal Original_ncts_AdditionalInformation_7_Text As String, _ ByVal Original_ncts_AdditionalInformation_8_Code As String, _ ByVal Original_ncts_AdditionalInformation_8_Text As String, _ ByVal Original_ncts_AdditionalInformation_9_Code As String, _ ByVal Original_ncts_AdditionalInformation_9_Text As String, _ ByVal Original_ncts_AUTOIMPIndicator As String, _ ByVal Original_ncts_Stammreferenz As String, _ ByVal Original_ncts_ModeOfTransportAtTheBorder As String, _ ByVal Original_ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Erledigung As Global.System.Nullable(Of Date), _ ByVal ncts_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ncts_Status,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ncts_Status_KEWILL_Equivalent,Integer) If (ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("ncts_dyaArt") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ncts_dyaArt,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ncts_dyaAnmID,Integer) If (ncts_ANR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ncts_ANR,String) End If If (ncts_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ncts_MRN,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ncts_Erstellung,Date) If (ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ncts_LetzteBearbeitung,Date) If (ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ncts_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (ncts_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ncts_firma,String) End If If (ncts_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ncts_niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ncts_Gestellt,Boolean) If (ncts_GestelltAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ncts_GestelltAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (ncts_Trans_Partner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ncts_Trans_Partner,String) End If If (ncts_Trans_Div1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ncts_Trans_Div1,String) End If If (ncts_Trans_Div2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ncts_Trans_Div2,String) End If If (ncts_Trans_Div3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ncts_Trans_Div3,String) End If If (ncts_Trans_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ncts_Trans_Referenz,String) End If If (ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (ncts_Trans_Version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(ncts_Trans_Version.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(ncts_NachrichtenSenderTIN,String) End If If (ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(ncts_NachrichtenSenderNLNR,String) End If If (ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(ncts_NachrichtenempfaengerDST,String) End If If (ncts_ObjectName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(ncts_ObjectName,String) End If If (ncts_ObjectAlias Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(ncts_ObjectAlias,String) End If If (ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(ncts_BezugsnummerVorblendung,String) End If If (ncts_Bearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(ncts_Bearbeiter,String) End If If (ncts_CountryOfDispatch Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(ncts_CountryOfDispatch,String) End If If (ncts_CountryOfDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(ncts_CountryOfDestination,String) End If If (ncts_Declarationtype Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(ncts_Declarationtype,String) End If If (ncts_TIRCarnetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(ncts_TIRCarnetNumber,String) End If If (ncts_ReductedDatasetIndicator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(ncts_ReductedDatasetIndicator,String) End If If (ncts_LocationOfGoods_TypeofLocation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(ncts_LocationOfGoods_TypeofLocation,String) End If If (ncts_LocationOfGoods_QualifierIdenfitication Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(ncts_LocationOfGoods_QualifierIdenfitication,String) End If If (ncts_LocationOfGoods_AdditionalIdentifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(ncts_LocationOfGoods_AdditionalIdentifier,String) End If If (ncts_LocationOfGoods_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(ncts_LocationOfGoods_ContactPerson_Name,String) End If If (ncts_LocationOfGoods_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(ncts_LocationOfGoods_ContactPerson_PhoneNumber,String) End If If (ncts_LocationOfGoods_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(ncts_LocationOfGoods_ContactPerson_EMailAddress,String) End If If (ncts_CustomsOfficeOfTransitDeclared_1_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(ncts_CustomsOfficeOfTransitDeclared_1_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_2_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(ncts_CustomsOfficeOfTransitDeclared_2_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_3_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(ncts_CustomsOfficeOfTransitDeclared_3_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_4_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(ncts_CustomsOfficeOfTransitDeclared_4_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_5_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(ncts_CustomsOfficeOfTransitDeclared_5_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_6_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(ncts_CustomsOfficeOfTransitDeclared_6_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_7_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(ncts_CustomsOfficeOfTransitDeclared_7_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_8_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(ncts_CustomsOfficeOfTransitDeclared_8_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_9_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(ncts_CustomsOfficeOfTransitDeclared_9_RefNumber,String) End If If (ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (ncts_CustomsOfficeOfDestinationDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(ncts_CustomsOfficeOfDestinationDeclared,String) End If If (ncts_CustomsOfficeOfDeparture Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(ncts_CustomsOfficeOfDeparture,String) End If If (ncts_CustomsOfficeOfExitForTransitDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(ncts_CustomsOfficeOfExitForTransitDeclared,String) End If If (ncts_LimitDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(ncts_LimitDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (ncts_TransitDeclarationType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(ncts_TransitDeclarationType,String) End If If (ncts_GrossMass.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(ncts_GrossMass.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (ncts_BindingItinerary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(ncts_BindingItinerary,String) End If If (ncts_ContainerIndicator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(ncts_ContainerIndicator,String) End If If (ncts_InlandModeOfTransport Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(ncts_InlandModeOfTransport,String) End If If (ncts_DepartureTransportMeans_1_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(ncts_DepartureTransportMeans_1_TypeOfIdentification,String) End If If (ncts_DepartureTransportMeans_1_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(ncts_DepartureTransportMeans_1_IdentificationNumber,String) End If If (ncts_DepartureTransportMeans_1_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(ncts_DepartureTransportMeans_1_Nationality,String) End If If (ncts_DepartureTransportMeans_2_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(ncts_DepartureTransportMeans_2_TypeOfIdentification,String) End If If (ncts_DepartureTransportMeans_2_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(ncts_DepartureTransportMeans_2_IdentificationNumber,String) End If If (ncts_DepartureTransportMeans_2_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(ncts_DepartureTransportMeans_2_Nationality,String) End If If (ncts_DepartureTransportMeans_3_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(ncts_DepartureTransportMeans_3_TypeOfIdentification,String) End If If (ncts_DepartureTransportMeans_3_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(ncts_DepartureTransportMeans_3_IdentificationNumber,String) End If If (ncts_DepartureTransportMeans_3_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(ncts_DepartureTransportMeans_3_Nationality,String) End If If (ncts_DepartureTransportMeans_4_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(ncts_DepartureTransportMeans_4_TypeOfIdentification,String) End If If (ncts_DepartureTransportMeans_4_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(ncts_DepartureTransportMeans_4_IdentificationNumber,String) End If If (ncts_DepartureTransportMeans_4_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(ncts_DepartureTransportMeans_4_Nationality,String) End If If (ncts_ActiveBorderTransportMeans_1_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(ncts_ActiveBorderTransportMeans_1_TypeOfIdentification,String) End If If (ncts_ActiveBorderTransportMeans_1_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(ncts_ActiveBorderTransportMeans_1_IdentificationNumber,String) End If If (ncts_ActiveBorderTransportMeans_1_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(ncts_ActiveBorderTransportMeans_1_Nationality,String) End If If (ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber,String) End If If (ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared,String) End If If (ncts_ActiveBorderTransportMeans_2_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(ncts_ActiveBorderTransportMeans_2_TypeOfIdentification,String) End If If (ncts_ActiveBorderTransportMeans_2_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(ncts_ActiveBorderTransportMeans_2_IdentificationNumber,String) End If If (ncts_ActiveBorderTransportMeans_2_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(ncts_ActiveBorderTransportMeans_2_Nationality,String) End If If (ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber,String) End If If (ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared,String) End If If (ncts_ActiveBorderTransportMeans_3_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(ncts_ActiveBorderTransportMeans_3_TypeOfIdentification,String) End If If (ncts_ActiveBorderTransportMeans_3_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(ncts_ActiveBorderTransportMeans_3_IdentificationNumber,String) End If If (ncts_ActiveBorderTransportMeans_3_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(ncts_ActiveBorderTransportMeans_3_Nationality,String) End If If (ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber,String) End If If (ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared,String) End If If (ncts_ActiveBorderTransportMeans_4_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(ncts_ActiveBorderTransportMeans_4_TypeOfIdentification,String) End If If (ncts_ActiveBorderTransportMeans_4_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(ncts_ActiveBorderTransportMeans_4_IdentificationNumber,String) End If If (ncts_ActiveBorderTransportMeans_4_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(ncts_ActiveBorderTransportMeans_4_Nationality,String) End If If (ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber,String) End If If (ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared,String) End If If (ncts_Authorisation_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(ncts_Authorisation_1_Type,String) End If If (ncts_Authorisation_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(ncts_Authorisation_1_ReferenceNumber,String) End If If (ncts_Authorisation_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(ncts_Authorisation_2_Type,String) End If If (ncts_Authorisation_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(ncts_Authorisation_2_ReferenceNumber,String) End If If (ncts_Authorisation_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(ncts_Authorisation_3_Type,String) End If If (ncts_Authorisation_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(ncts_Authorisation_3_ReferenceNumber,String) End If If (ncts_Authorisation_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(ncts_Authorisation_4_Type,String) End If If (ncts_Authorisation_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(ncts_Authorisation_4_ReferenceNumber,String) End If If (ncts_Authorisation_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(ncts_Authorisation_5_Type,String) End If If (ncts_Authorisation_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(ncts_Authorisation_5_ReferenceNumber,String) End If If (ncts_Authorisation_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(ncts_Authorisation_6_Type,String) End If If (ncts_Authorisation_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(ncts_Authorisation_6_ReferenceNumber,String) End If If (ncts_Authorisation_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(ncts_Authorisation_7_Type,String) End If If (ncts_Authorisation_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(ncts_Authorisation_7_ReferenceNumber,String) End If If (ncts_Authorisation_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(ncts_Authorisation_8_Type,String) End If If (ncts_Authorisation_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(ncts_Authorisation_8_ReferenceNumber,String) End If If (ncts_Authorisation_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(ncts_Authorisation_9_Type,String) End If If (ncts_Authorisation_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(ncts_Authorisation_9_ReferenceNumber,String) End If If (ncts_Consignor_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(ncts_Consignor_AdressCode,String) End If If (ncts_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(ncts_Consignor_IdentificationNumber,String) End If If (ncts_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(ncts_Consignor_SubsidiaryNumber,String) End If If (ncts_Consignor_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(ncts_Consignor_Name,String) End If If (ncts_Consignor_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(ncts_Consignor_StreetNumber,String) End If If (ncts_Consignor_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(ncts_Consignor_City,String) End If If (ncts_Consignor_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(ncts_Consignor_Postcode,String) End If If (ncts_Consignor_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(ncts_Consignor_Country,String) End If If (ncts_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(ncts_Consignor_ContactPerson_Name,String) End If If (ncts_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(ncts_Consignor_ContactPerson_PhoneNumber,String) End If If (ncts_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(ncts_Consignor_ContactPerson_EMailAddress,String) End If If (ncts_Consignee_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(ncts_Consignee_AdressCode,String) End If If (ncts_Consignee_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(128).Value = CType(ncts_Consignee_IdentificationNumber,String) End If If (ncts_Consignee_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(ncts_Consignee_SubsidiaryNumber,String) End If If (ncts_Consignee_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(ncts_Consignee_Name,String) End If If (ncts_Consignee_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(ncts_Consignee_StreetNumber,String) End If If (ncts_Consignee_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(ncts_Consignee_City,String) End If If (ncts_Consignee_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(ncts_Consignee_Postcode,String) End If If (ncts_Consignee_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(ncts_Consignee_Country,String) End If If (ncts_Consignee_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(ncts_Consignee_ContactPerson_Name,String) End If If (ncts_Consignee_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(ncts_Consignee_ContactPerson_PhoneNumber,String) End If If (ncts_Consignee_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(ncts_Consignee_ContactPerson_EMailAddress,String) End If If (ncts_HolderOfTheTransitProcedure_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(138).Value = CType(ncts_HolderOfTheTransitProcedure_AdressCode,String) End If If (ncts_HolderOfTheTransitProcedure_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(ncts_HolderOfTheTransitProcedure_IdentificationNumber,String) End If If (ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(140).Value = CType(ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber,String) End If If (ncts_HolderOfTheTransitProcedure_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(ncts_HolderOfTheTransitProcedure_Name,String) End If If (ncts_HolderOfTheTransitProcedure_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(142).Value = CType(ncts_HolderOfTheTransitProcedure_StreetNumber,String) End If If (ncts_HolderOfTheTransitProcedure_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(ncts_HolderOfTheTransitProcedure_City,String) End If If (ncts_HolderOfTheTransitProcedure_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(144).Value = CType(ncts_HolderOfTheTransitProcedure_Postcode,String) End If If (ncts_HolderOfTheTransitProcedure_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(ncts_HolderOfTheTransitProcedure_Country,String) End If If (ncts_HolderOfTheTransitProcedure_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(146).Value = CType(ncts_HolderOfTheTransitProcedure_ContactPerson_Name,String) End If If (ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber,String) End If If (ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(148).Value = CType(ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress,String) End If If (ncts_Representative_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(ncts_Representative_AdressCode,String) End If If (ncts_Representative_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(150).Value = CType(ncts_Representative_IdentificationNumber,String) End If If (ncts_Representative_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(ncts_Representative_ContactPerson_Name,String) End If If (ncts_Representative_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(152).Value = CType(ncts_Representative_ContactPerson_PhoneNumber,String) End If If (ncts_Representative_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(ncts_Representative_ContactPerson_EMailAddress,String) End If If (ncts_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(154).Value = CType(ncts_AdditionalSupplyChainActor_1_Role,String) End If If (ncts_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(155).Value = CType(ncts_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(156).Value = CType(ncts_AdditionalSupplyChainActor_2_Role,String) End If If (ncts_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(ncts_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(158).Value = CType(ncts_AdditionalSupplyChainActor_3_Role,String) End If If (ncts_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(159).Value = CType(ncts_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(160).Value = CType(ncts_AdditionalSupplyChainActor_4_Role,String) End If If (ncts_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(161).Value = CType(ncts_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(162).Value = CType(ncts_AdditionalSupplyChainActor_5_Role,String) End If If (ncts_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(ncts_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(164).Value = CType(ncts_AdditionalSupplyChainActor_6_Role,String) End If If (ncts_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(ncts_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(166).Value = CType(ncts_AdditionalSupplyChainActor_7_Role,String) End If If (ncts_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(167).Value = CType(ncts_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(168).Value = CType(ncts_AdditionalSupplyChainActor_8_Role,String) End If If (ncts_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(169).Value = CType(ncts_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (ncts_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(170).Value = CType(ncts_AdditionalSupplyChainActor_9_Role,String) End If If (ncts_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(171).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(ncts_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (ncts_Security Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(172).Value = CType(ncts_Security,String) End If If (ncts_ReferenceNumberUCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(173).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(173).Value = CType(ncts_ReferenceNumberUCR,String) End If If (ncts_SpecificCircomstanceIndicator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(174).Value = CType(ncts_SpecificCircomstanceIndicator,String) End If If (ncts_PlaceOfLoading_Location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(175).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(ncts_PlaceOfLoading_Location,String) End If If (ncts_PlaceOfLoading_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(176).Value = CType(ncts_PlaceOfLoading_Country,String) End If If (ncts_PlaceOfUnLoading_Location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(177).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(ncts_PlaceOfUnLoading_Location,String) End If If (ncts_PlaceOfUnLoading_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(178).Value = CType(ncts_PlaceOfUnLoading_Country,String) End If If (ncts_TransportCharges Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(179).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(ncts_TransportCharges,String) End If If (ncts_CountryOfRoutingOfConsignment_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(180).Value = CType(ncts_CountryOfRoutingOfConsignment_1,String) End If If (ncts_CountryOfRoutingOfConsignment_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(ncts_CountryOfRoutingOfConsignment_2,String) End If If (ncts_CountryOfRoutingOfConsignment_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(182).Value = CType(ncts_CountryOfRoutingOfConsignment_3,String) End If If (ncts_CountryOfRoutingOfConsignment_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(183).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(ncts_CountryOfRoutingOfConsignment_4,String) End If If (ncts_CountryOfRoutingOfConsignment_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(184).Value = CType(ncts_CountryOfRoutingOfConsignment_5,String) End If If (ncts_CountryOfRoutingOfConsignment_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(185).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(ncts_CountryOfRoutingOfConsignment_6,String) End If If (ncts_CountryOfRoutingOfConsignment_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(186).Value = CType(ncts_CountryOfRoutingOfConsignment_7,String) End If If (ncts_CountryOfRoutingOfConsignment_8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(ncts_CountryOfRoutingOfConsignment_8,String) End If If (ncts_CountryOfRoutingOfConsignment_9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(188).Value = CType(ncts_CountryOfRoutingOfConsignment_9,String) End If If (ncts_CountryOfRoutingOfConsignment_10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(ncts_CountryOfRoutingOfConsignment_10,String) End If If (ncts_CountryOfRoutingOfConsignment_11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(190).Value = CType(ncts_CountryOfRoutingOfConsignment_11,String) End If If (ncts_CountryOfRoutingOfConsignment_12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(191).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(ncts_CountryOfRoutingOfConsignment_12,String) End If If (ncts_CountryOfRoutingOfConsignment_13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(192).Value = CType(ncts_CountryOfRoutingOfConsignment_13,String) End If If (ncts_CountryOfRoutingOfConsignment_14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(ncts_CountryOfRoutingOfConsignment_14,String) End If If (ncts_CountryOfRoutingOfConsignment_15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(194).Value = CType(ncts_CountryOfRoutingOfConsignment_15,String) End If If (ncts_Carrier_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(195).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(ncts_Carrier_AdressCode,String) End If If (ncts_Carrier_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(196).Value = CType(ncts_Carrier_IdentificationNumber,String) End If If (ncts_Carrier_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(197).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(ncts_Carrier_SubsidiaryNumber,String) End If If (ncts_Carrier_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(198).Value = CType(ncts_Carrier_ContactPerson_Name,String) End If If (ncts_Carrier_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(ncts_Carrier_ContactPerson_PhoneNumber,String) End If If (ncts_Carrier_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(200).Value = CType(ncts_Carrier_ContactPerson_EMailAddress,String) End If If (ncts_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(201).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(201).Value = CType(ncts_SupportingDocument_1_Type,String) End If If (ncts_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(202).Value = CType(ncts_SupportingDocument_1_ReferenceNumber,String) End If If (ncts_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(203).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(203).Value = CType(ncts_SupportingDocument_1_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(204).Value = CType(ncts_SupportingDocument_1_ComplementOfInformation,String) End If If (ncts_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(205).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(205).Value = CType(ncts_SupportingDocument_2_Type,String) End If If (ncts_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(206).Value = CType(ncts_SupportingDocument_2_ReferenceNumber,String) End If If (ncts_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(207).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(207).Value = CType(ncts_SupportingDocument_2_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(208).Value = CType(ncts_SupportingDocument_2_ComplementOfInformation,String) End If If (ncts_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(209).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(209).Value = CType(ncts_SupportingDocument_3_Type,String) End If If (ncts_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(210).Value = CType(ncts_SupportingDocument_3_ReferenceNumber,String) End If If (ncts_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(211).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(211).Value = CType(ncts_SupportingDocument_3_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(212).Value = CType(ncts_SupportingDocument_3_ComplementOfInformation,String) End If If (ncts_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(213).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(213).Value = CType(ncts_SupportingDocument_4_Type,String) End If If (ncts_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(214).Value = CType(ncts_SupportingDocument_4_ReferenceNumber,String) End If If (ncts_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(215).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(215).Value = CType(ncts_SupportingDocument_4_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(216).Value = CType(ncts_SupportingDocument_4_ComplementOfInformation,String) End If If (ncts_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(217).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(217).Value = CType(ncts_SupportingDocument_5_Type,String) End If If (ncts_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(218).Value = CType(ncts_SupportingDocument_5_ReferenceNumber,String) End If If (ncts_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(219).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(219).Value = CType(ncts_SupportingDocument_5_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(220).Value = CType(ncts_SupportingDocument_5_ComplementOfInformation,String) End If If (ncts_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(221).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(221).Value = CType(ncts_SupportingDocument_6_Type,String) End If If (ncts_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(222).Value = CType(ncts_SupportingDocument_6_ReferenceNumber,String) End If If (ncts_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(223).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(223).Value = CType(ncts_SupportingDocument_6_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(224).Value = CType(ncts_SupportingDocument_6_ComplementOfInformation,String) End If If (ncts_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(225).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(225).Value = CType(ncts_SupportingDocument_7_Type,String) End If If (ncts_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(226).Value = CType(ncts_SupportingDocument_7_ReferenceNumber,String) End If If (ncts_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(227).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(227).Value = CType(ncts_SupportingDocument_7_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(228).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(228).Value = CType(ncts_SupportingDocument_7_ComplementOfInformation,String) End If If (ncts_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(229).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(229).Value = CType(ncts_SupportingDocument_8_Type,String) End If If (ncts_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(230).Value = CType(ncts_SupportingDocument_8_ReferenceNumber,String) End If If (ncts_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(231).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(231).Value = CType(ncts_SupportingDocument_8_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(232).Value = CType(ncts_SupportingDocument_8_ComplementOfInformation,String) End If If (ncts_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(233).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(233).Value = CType(ncts_SupportingDocument_9_Type,String) End If If (ncts_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(234).Value = CType(ncts_SupportingDocument_9_ReferenceNumber,String) End If If (ncts_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(235).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(235).Value = CType(ncts_SupportingDocument_9_DocumentLineItemNumber,String) End If If (ncts_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(236).Value = CType(ncts_SupportingDocument_9_ComplementOfInformation,String) End If If (ncts_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(237).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(237).Value = CType(ncts_PreviousDocument_1_Type,String) End If If (ncts_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(238).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(238).Value = CType(ncts_PreviousDocument_1_ReferenceNumber,String) End If If (ncts_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(239).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(239).Value = CType(ncts_PreviousDocument_1_ComplementOfInformation,String) End If If (ncts_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(240).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(240).Value = CType(ncts_PreviousDocument_2_Type,String) End If If (ncts_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(241).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(241).Value = CType(ncts_PreviousDocument_2_ReferenceNumber,String) End If If (ncts_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(242).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(242).Value = CType(ncts_PreviousDocument_2_ComplementOfInformation,String) End If If (ncts_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(243).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(243).Value = CType(ncts_PreviousDocument_3_Type,String) End If If (ncts_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(244).Value = CType(ncts_PreviousDocument_3_ReferenceNumber,String) End If If (ncts_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(245).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(245).Value = CType(ncts_PreviousDocument_3_ComplementOfInformation,String) End If If (ncts_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(246).Value = CType(ncts_PreviousDocument_4_Type,String) End If If (ncts_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(247).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(247).Value = CType(ncts_PreviousDocument_4_ReferenceNumber,String) End If If (ncts_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(248).Value = CType(ncts_PreviousDocument_4_ComplementOfInformation,String) End If If (ncts_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(249).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(249).Value = CType(ncts_PreviousDocument_5_Type,String) End If If (ncts_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(250).Value = CType(ncts_PreviousDocument_5_ReferenceNumber,String) End If If (ncts_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(251).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(251).Value = CType(ncts_PreviousDocument_5_ComplementOfInformation,String) End If If (ncts_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(252).Value = CType(ncts_PreviousDocument_6_Type,String) End If If (ncts_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(253).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(253).Value = CType(ncts_PreviousDocument_6_ReferenceNumber,String) End If If (ncts_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(254).Value = CType(ncts_PreviousDocument_6_ComplementOfInformation,String) End If If (ncts_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(255).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(255).Value = CType(ncts_PreviousDocument_7_Type,String) End If If (ncts_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(256).Value = CType(ncts_PreviousDocument_7_ReferenceNumber,String) End If If (ncts_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(257).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(257).Value = CType(ncts_PreviousDocument_7_ComplementOfInformation,String) End If If (ncts_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(258).Value = CType(ncts_PreviousDocument_8_Type,String) End If If (ncts_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(259).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(259).Value = CType(ncts_PreviousDocument_8_ReferenceNumber,String) End If If (ncts_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(260).Value = CType(ncts_PreviousDocument_8_ComplementOfInformation,String) End If If (ncts_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(261).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(261).Value = CType(ncts_PreviousDocument_9_Type,String) End If If (ncts_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(262).Value = CType(ncts_PreviousDocument_9_ReferenceNumber,String) End If If (ncts_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(263).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(263).Value = CType(ncts_PreviousDocument_9_ComplementOfInformation,String) End If If (ncts_TransportDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(264).Value = CType(ncts_TransportDocument_1_Type,String) End If If (ncts_TransportDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(265).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(265).Value = CType(ncts_TransportDocument_1_ReferenceNumber,String) End If If (ncts_TransportDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(266).Value = CType(ncts_TransportDocument_2_Type,String) End If If (ncts_TransportDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(267).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(267).Value = CType(ncts_TransportDocument_2_ReferenceNumber,String) End If If (ncts_TransportDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(268).Value = CType(ncts_TransportDocument_3_Type,String) End If If (ncts_TransportDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(269).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(269).Value = CType(ncts_TransportDocument_3_ReferenceNumber,String) End If If (ncts_TransportDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(270).Value = CType(ncts_TransportDocument_4_Type,String) End If If (ncts_TransportDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(271).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(271).Value = CType(ncts_TransportDocument_4_ReferenceNumber,String) End If If (ncts_TransportDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(272).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(272).Value = CType(ncts_TransportDocument_5_Type,String) End If If (ncts_TransportDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(273).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(273).Value = CType(ncts_TransportDocument_5_ReferenceNumber,String) End If If (ncts_TransportDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(274).Value = CType(ncts_TransportDocument_6_Type,String) End If If (ncts_TransportDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(275).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(275).Value = CType(ncts_TransportDocument_6_ReferenceNumber,String) End If If (ncts_TransportDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(276).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(276).Value = CType(ncts_TransportDocument_7_Type,String) End If If (ncts_TransportDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(277).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(277).Value = CType(ncts_TransportDocument_7_ReferenceNumber,String) End If If (ncts_TransportDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(278).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(278).Value = CType(ncts_TransportDocument_8_Type,String) End If If (ncts_TransportDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(279).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(279).Value = CType(ncts_TransportDocument_8_ReferenceNumber,String) End If If (ncts_TransportDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(280).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(280).Value = CType(ncts_TransportDocument_9_Type,String) End If If (ncts_TransportDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(281).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(281).Value = CType(ncts_TransportDocument_9_ReferenceNumber,String) End If If (ncts_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(282).Value = CType(ncts_AdditionalReference_1_Type,String) End If If (ncts_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(283).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(283).Value = CType(ncts_AdditionalReference_1_ReferenceNumber,String) End If If (ncts_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(284).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(284).Value = CType(ncts_AdditionalReference_2_Type,String) End If If (ncts_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(285).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(285).Value = CType(ncts_AdditionalReference_2_ReferenceNumber,String) End If If (ncts_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(286).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(286).Value = CType(ncts_AdditionalReference_3_Type,String) End If If (ncts_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(287).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(287).Value = CType(ncts_AdditionalReference_3_ReferenceNumber,String) End If If (ncts_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(288).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(288).Value = CType(ncts_AdditionalReference_4_Type,String) End If If (ncts_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(289).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(289).Value = CType(ncts_AdditionalReference_4_ReferenceNumber,String) End If If (ncts_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(290).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(290).Value = CType(ncts_AdditionalReference_5_Type,String) End If If (ncts_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(291).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(291).Value = CType(ncts_AdditionalReference_5_ReferenceNumber,String) End If If (ncts_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(292).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(292).Value = CType(ncts_AdditionalReference_6_Type,String) End If If (ncts_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(293).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(293).Value = CType(ncts_AdditionalReference_6_ReferenceNumber,String) End If If (ncts_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(294).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(294).Value = CType(ncts_AdditionalReference_7_Type,String) End If If (ncts_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(295).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(295).Value = CType(ncts_AdditionalReference_7_ReferenceNumber,String) End If If (ncts_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(296).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(296).Value = CType(ncts_AdditionalReference_8_Type,String) End If If (ncts_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(297).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(297).Value = CType(ncts_AdditionalReference_8_ReferenceNumber,String) End If If (ncts_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(298).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(298).Value = CType(ncts_AdditionalReference_9_Type,String) End If If (ncts_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(299).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(299).Value = CType(ncts_AdditionalReference_9_ReferenceNumber,String) End If If (ncts_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(300).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(300).Value = CType(ncts_AdditionalInformation_1_Code,String) End If If (ncts_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(301).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(301).Value = CType(ncts_AdditionalInformation_1_Text,String) End If If (ncts_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(302).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(302).Value = CType(ncts_AdditionalInformation_2_Code,String) End If If (ncts_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(303).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(303).Value = CType(ncts_AdditionalInformation_2_Text,String) End If If (ncts_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(304).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(304).Value = CType(ncts_AdditionalInformation_3_Code,String) End If If (ncts_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(305).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(305).Value = CType(ncts_AdditionalInformation_3_Text,String) End If If (ncts_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(306).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(306).Value = CType(ncts_AdditionalInformation_4_Code,String) End If If (ncts_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(307).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(307).Value = CType(ncts_AdditionalInformation_4_Text,String) End If If (ncts_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(308).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(308).Value = CType(ncts_AdditionalInformation_5_Code,String) End If If (ncts_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(309).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(309).Value = CType(ncts_AdditionalInformation_5_Text,String) End If If (ncts_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(310).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(310).Value = CType(ncts_AdditionalInformation_6_Code,String) End If If (ncts_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(311).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(311).Value = CType(ncts_AdditionalInformation_6_Text,String) End If If (ncts_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(312).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(312).Value = CType(ncts_AdditionalInformation_7_Code,String) End If If (ncts_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(313).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(313).Value = CType(ncts_AdditionalInformation_7_Text,String) End If If (ncts_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(314).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(314).Value = CType(ncts_AdditionalInformation_8_Code,String) End If If (ncts_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(315).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(315).Value = CType(ncts_AdditionalInformation_8_Text,String) End If If (ncts_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(316).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(316).Value = CType(ncts_AdditionalInformation_9_Code,String) End If If (ncts_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(317).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(317).Value = CType(ncts_AdditionalInformation_9_Text,String) End If If (ncts_AUTOIMPIndicator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(318).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(318).Value = CType(ncts_AUTOIMPIndicator,String) End If If (ncts_Stammreferenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(319).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(319).Value = CType(ncts_Stammreferenz,String) End If If (ncts_ModeOfTransportAtTheBorder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(320).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(320).Value = CType(ncts_ModeOfTransportAtTheBorder,String) End If If (ncts_Eroeffnung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(321).Value = CType(ncts_Eroeffnung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(321).Value = Global.System.DBNull.Value End If If (ncts_Ankunft.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(322).Value = CType(ncts_Ankunft.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(322).Value = Global.System.DBNull.Value End If If (ncts_Erledigung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(323).Value = CType(ncts_Erledigung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(323).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(324).Value = CType(Original_ncts_Id,Integer) Me.Adapter.UpdateCommand.Parameters(325).Value = CType(Original_ncts_Status,Integer) Me.Adapter.UpdateCommand.Parameters(326).Value = CType(Original_ncts_Status_KEWILL_Equivalent,Integer) If (Original_ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ncts_dyaArt") Else Me.Adapter.UpdateCommand.Parameters(327).Value = CType(Original_ncts_dyaArt,String) End If Me.Adapter.UpdateCommand.Parameters(328).Value = CType(Original_ncts_dyaAnmID,Integer) If (Original_ncts_ANR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(329).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(329).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = CType(Original_ncts_ANR,String) End If If (Original_ncts_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(331).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(331).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = CType(Original_ncts_MRN,String) End If Me.Adapter.UpdateCommand.Parameters(333).Value = CType(Original_ncts_Erstellung,Date) If (Original_ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(334).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(335).Value = CType(Original_ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(334).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(335).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(336).Value = CType(Original_ncts_LetzteBearbeitung,Date) If (Original_ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(337).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = CType(Original_ncts_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(337).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = Global.System.DBNull.Value End If If (Original_ncts_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(339).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(339).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = CType(Original_ncts_firma,String) End If If (Original_ncts_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(341).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(341).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = CType(Original_ncts_niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(343).Value = CType(Original_ncts_Gestellt,Boolean) If (Original_ncts_GestelltAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(344).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(345).Value = CType(Original_ncts_GestelltAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(344).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(345).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Partner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(346).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(347).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(346).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(347).Value = CType(Original_ncts_Trans_Partner,String) End If If (Original_ncts_Trans_Div1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(348).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(349).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(348).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(349).Value = CType(Original_ncts_Trans_Div1,String) End If If (Original_ncts_Trans_Div2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(350).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(351).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(350).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(351).Value = CType(Original_ncts_Trans_Div2,String) End If If (Original_ncts_Trans_Div3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(352).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(353).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(352).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(353).Value = CType(Original_ncts_Trans_Div3,String) End If If (Original_ncts_Trans_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(354).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(355).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(354).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(355).Value = CType(Original_ncts_Trans_Referenz,String) End If If (Original_ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(356).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(357).Value = CType(Original_ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(356).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(357).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(358).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(359).Value = CType(Original_ncts_Trans_Version.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(358).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(359).Value = Global.System.DBNull.Value End If If (Original_ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(360).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(361).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(360).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(361).Value = CType(Original_ncts_NachrichtenSenderTIN,String) End If If (Original_ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(362).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(363).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(362).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(363).Value = CType(Original_ncts_NachrichtenSenderNLNR,String) End If If (Original_ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(364).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(365).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(364).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(365).Value = CType(Original_ncts_NachrichtenempfaengerDST,String) End If If (Original_ncts_ObjectName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(366).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(367).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(366).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(367).Value = CType(Original_ncts_ObjectName,String) End If If (Original_ncts_ObjectAlias Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(368).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(369).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(368).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(369).Value = CType(Original_ncts_ObjectAlias,String) End If If (Original_ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(370).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(371).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(370).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(371).Value = CType(Original_ncts_BezugsnummerVorblendung,String) End If If (Original_ncts_Bearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(372).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(373).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(372).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(373).Value = CType(Original_ncts_Bearbeiter,String) End If If (Original_ncts_CountryOfDispatch Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(374).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(375).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(374).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(375).Value = CType(Original_ncts_CountryOfDispatch,String) End If If (Original_ncts_CountryOfDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(376).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(377).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(376).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(377).Value = CType(Original_ncts_CountryOfDestination,String) End If If (Original_ncts_Declarationtype Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(378).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(379).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(378).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(379).Value = CType(Original_ncts_Declarationtype,String) End If If (Original_ncts_TIRCarnetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(380).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(381).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(380).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(381).Value = CType(Original_ncts_TIRCarnetNumber,String) End If If (Original_ncts_ReductedDatasetIndicator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(382).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(383).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(382).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(383).Value = CType(Original_ncts_ReductedDatasetIndicator,String) End If If (Original_ncts_LocationOfGoods_TypeofLocation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(384).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(385).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(384).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(385).Value = CType(Original_ncts_LocationOfGoods_TypeofLocation,String) End If If (Original_ncts_LocationOfGoods_QualifierIdenfitication Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(386).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(387).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(386).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(387).Value = CType(Original_ncts_LocationOfGoods_QualifierIdenfitication,String) End If If (Original_ncts_LocationOfGoods_AdditionalIdentifier Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(388).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(389).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(388).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(389).Value = CType(Original_ncts_LocationOfGoods_AdditionalIdentifier,String) End If If (Original_ncts_LocationOfGoods_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(390).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(391).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(390).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(391).Value = CType(Original_ncts_LocationOfGoods_ContactPerson_Name,String) End If If (Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(392).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(393).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(392).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(393).Value = CType(Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber,String) End If If (Original_ncts_LocationOfGoods_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(394).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(395).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(394).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(395).Value = CType(Original_ncts_LocationOfGoods_ContactPerson_EMailAddress,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(396).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(397).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(396).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(397).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(398).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(399).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(398).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(399).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(400).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(401).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(400).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(401).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(402).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(403).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(402).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(403).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(404).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(405).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(404).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(405).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(406).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(407).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(406).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(407).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(408).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(409).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(408).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(409).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(410).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(411).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(410).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(411).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(412).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(413).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(412).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(413).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber,String) End If If (Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(414).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(415).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(414).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(415).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(416).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(417).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(416).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(417).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(418).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(419).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(418).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(419).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(420).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(421).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(420).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(421).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(422).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(423).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(422).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(423).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(424).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(425).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(424).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(425).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(426).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(427).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(426).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(427).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(428).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(429).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(428).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(429).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(430).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(431).Value = CType(Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(430).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(431).Value = Global.System.DBNull.Value End If If (Original_ncts_CustomsOfficeOfDestinationDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(432).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(433).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(432).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(433).Value = CType(Original_ncts_CustomsOfficeOfDestinationDeclared,String) End If If (Original_ncts_CustomsOfficeOfDeparture Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(434).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(435).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(434).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(435).Value = CType(Original_ncts_CustomsOfficeOfDeparture,String) End If If (Original_ncts_CustomsOfficeOfExitForTransitDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(436).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(437).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(436).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(437).Value = CType(Original_ncts_CustomsOfficeOfExitForTransitDeclared,String) End If If (Original_ncts_LimitDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(438).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(439).Value = CType(Original_ncts_LimitDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(438).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(439).Value = Global.System.DBNull.Value End If If (Original_ncts_TransitDeclarationType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(440).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(441).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(440).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(441).Value = CType(Original_ncts_TransitDeclarationType,String) End If If (Original_ncts_GrossMass.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(442).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(443).Value = CType(Original_ncts_GrossMass.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(442).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(443).Value = Global.System.DBNull.Value End If If (Original_ncts_BindingItinerary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(444).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(445).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(444).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(445).Value = CType(Original_ncts_BindingItinerary,String) End If If (Original_ncts_ContainerIndicator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(446).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(447).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(446).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(447).Value = CType(Original_ncts_ContainerIndicator,String) End If If (Original_ncts_InlandModeOfTransport Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(448).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(449).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(448).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(449).Value = CType(Original_ncts_InlandModeOfTransport,String) End If If (Original_ncts_DepartureTransportMeans_1_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(450).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(451).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(450).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(451).Value = CType(Original_ncts_DepartureTransportMeans_1_TypeOfIdentification,String) End If If (Original_ncts_DepartureTransportMeans_1_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(452).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(453).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(452).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(453).Value = CType(Original_ncts_DepartureTransportMeans_1_IdentificationNumber,String) End If If (Original_ncts_DepartureTransportMeans_1_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(454).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(455).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(454).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(455).Value = CType(Original_ncts_DepartureTransportMeans_1_Nationality,String) End If If (Original_ncts_DepartureTransportMeans_2_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(456).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(457).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(456).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(457).Value = CType(Original_ncts_DepartureTransportMeans_2_TypeOfIdentification,String) End If If (Original_ncts_DepartureTransportMeans_2_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(458).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(459).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(458).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(459).Value = CType(Original_ncts_DepartureTransportMeans_2_IdentificationNumber,String) End If If (Original_ncts_DepartureTransportMeans_2_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(460).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(461).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(460).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(461).Value = CType(Original_ncts_DepartureTransportMeans_2_Nationality,String) End If If (Original_ncts_DepartureTransportMeans_3_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(462).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(463).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(462).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(463).Value = CType(Original_ncts_DepartureTransportMeans_3_TypeOfIdentification,String) End If If (Original_ncts_DepartureTransportMeans_3_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(464).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(465).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(464).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(465).Value = CType(Original_ncts_DepartureTransportMeans_3_IdentificationNumber,String) End If If (Original_ncts_DepartureTransportMeans_3_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(466).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(467).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(466).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(467).Value = CType(Original_ncts_DepartureTransportMeans_3_Nationality,String) End If If (Original_ncts_DepartureTransportMeans_4_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(468).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(469).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(468).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(469).Value = CType(Original_ncts_DepartureTransportMeans_4_TypeOfIdentification,String) End If If (Original_ncts_DepartureTransportMeans_4_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(470).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(471).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(470).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(471).Value = CType(Original_ncts_DepartureTransportMeans_4_IdentificationNumber,String) End If If (Original_ncts_DepartureTransportMeans_4_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(472).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(473).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(472).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(473).Value = CType(Original_ncts_DepartureTransportMeans_4_Nationality,String) End If If (Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(474).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(475).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(474).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(475).Value = CType(Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification,String) End If If (Original_ncts_ActiveBorderTransportMeans_1_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(476).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(477).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(476).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(477).Value = CType(Original_ncts_ActiveBorderTransportMeans_1_IdentificationNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_1_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(478).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(479).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(478).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(479).Value = CType(Original_ncts_ActiveBorderTransportMeans_1_Nationality,String) End If If (Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(480).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(481).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(480).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(481).Value = CType(Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(482).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(483).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(482).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(483).Value = CType(Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared,String) End If If (Original_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(484).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(485).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(484).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(485).Value = CType(Original_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification,String) End If If (Original_ncts_ActiveBorderTransportMeans_2_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(486).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(487).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(486).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(487).Value = CType(Original_ncts_ActiveBorderTransportMeans_2_IdentificationNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_2_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(488).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(489).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(488).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(489).Value = CType(Original_ncts_ActiveBorderTransportMeans_2_Nationality,String) End If If (Original_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(490).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(491).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(490).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(491).Value = CType(Original_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(492).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(493).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(492).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(493).Value = CType(Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared,String) End If If (Original_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(494).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(495).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(494).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(495).Value = CType(Original_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification,String) End If If (Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(496).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(497).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(496).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(497).Value = CType(Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_3_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(498).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(499).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(498).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(499).Value = CType(Original_ncts_ActiveBorderTransportMeans_3_Nationality,String) End If If (Original_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(500).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(501).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(500).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(501).Value = CType(Original_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(502).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(503).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(502).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(503).Value = CType(Original_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared,String) End If If (Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(504).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(505).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(504).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(505).Value = CType(Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification,String) End If If (Original_ncts_ActiveBorderTransportMeans_4_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(506).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(507).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(506).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(507).Value = CType(Original_ncts_ActiveBorderTransportMeans_4_IdentificationNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_4_Nationality Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(508).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(509).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(508).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(509).Value = CType(Original_ncts_ActiveBorderTransportMeans_4_Nationality,String) End If If (Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(510).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(511).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(510).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(511).Value = CType(Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber,String) End If If (Original_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(512).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(513).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(512).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(513).Value = CType(Original_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared,String) End If If (Original_ncts_Authorisation_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(514).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(515).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(514).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(515).Value = CType(Original_ncts_Authorisation_1_Type,String) End If If (Original_ncts_Authorisation_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(516).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(517).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(516).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(517).Value = CType(Original_ncts_Authorisation_1_ReferenceNumber,String) End If If (Original_ncts_Authorisation_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(518).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(519).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(518).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(519).Value = CType(Original_ncts_Authorisation_2_Type,String) End If If (Original_ncts_Authorisation_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(520).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(521).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(520).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(521).Value = CType(Original_ncts_Authorisation_2_ReferenceNumber,String) End If If (Original_ncts_Authorisation_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(522).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(523).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(522).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(523).Value = CType(Original_ncts_Authorisation_3_Type,String) End If If (Original_ncts_Authorisation_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(524).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(525).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(524).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(525).Value = CType(Original_ncts_Authorisation_3_ReferenceNumber,String) End If If (Original_ncts_Authorisation_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(526).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(527).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(526).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(527).Value = CType(Original_ncts_Authorisation_4_Type,String) End If If (Original_ncts_Authorisation_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(528).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(529).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(528).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(529).Value = CType(Original_ncts_Authorisation_4_ReferenceNumber,String) End If If (Original_ncts_Authorisation_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(530).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(531).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(530).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(531).Value = CType(Original_ncts_Authorisation_5_Type,String) End If If (Original_ncts_Authorisation_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(532).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(533).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(532).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(533).Value = CType(Original_ncts_Authorisation_5_ReferenceNumber,String) End If If (Original_ncts_Authorisation_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(534).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(535).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(534).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(535).Value = CType(Original_ncts_Authorisation_6_Type,String) End If If (Original_ncts_Authorisation_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(536).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(537).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(536).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(537).Value = CType(Original_ncts_Authorisation_6_ReferenceNumber,String) End If If (Original_ncts_Authorisation_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(538).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(539).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(538).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(539).Value = CType(Original_ncts_Authorisation_7_Type,String) End If If (Original_ncts_Authorisation_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(540).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(541).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(540).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(541).Value = CType(Original_ncts_Authorisation_7_ReferenceNumber,String) End If If (Original_ncts_Authorisation_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(542).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(543).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(542).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(543).Value = CType(Original_ncts_Authorisation_8_Type,String) End If If (Original_ncts_Authorisation_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(544).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(545).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(544).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(545).Value = CType(Original_ncts_Authorisation_8_ReferenceNumber,String) End If If (Original_ncts_Authorisation_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(546).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(547).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(546).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(547).Value = CType(Original_ncts_Authorisation_9_Type,String) End If If (Original_ncts_Authorisation_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(548).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(549).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(548).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(549).Value = CType(Original_ncts_Authorisation_9_ReferenceNumber,String) End If If (Original_ncts_Consignor_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(550).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(551).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(550).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(551).Value = CType(Original_ncts_Consignor_AdressCode,String) End If If (Original_ncts_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(552).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(553).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(552).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(553).Value = CType(Original_ncts_Consignor_IdentificationNumber,String) End If If (Original_ncts_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(554).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(555).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(554).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(555).Value = CType(Original_ncts_Consignor_SubsidiaryNumber,String) End If If (Original_ncts_Consignor_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(556).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(557).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(556).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(557).Value = CType(Original_ncts_Consignor_Name,String) End If If (Original_ncts_Consignor_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(558).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(559).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(558).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(559).Value = CType(Original_ncts_Consignor_StreetNumber,String) End If If (Original_ncts_Consignor_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(560).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(561).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(560).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(561).Value = CType(Original_ncts_Consignor_City,String) End If If (Original_ncts_Consignor_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(562).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(563).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(562).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(563).Value = CType(Original_ncts_Consignor_Postcode,String) End If If (Original_ncts_Consignor_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(564).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(565).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(564).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(565).Value = CType(Original_ncts_Consignor_Country,String) End If If (Original_ncts_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(566).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(567).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(566).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(567).Value = CType(Original_ncts_Consignor_ContactPerson_Name,String) End If If (Original_ncts_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(568).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(569).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(568).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(569).Value = CType(Original_ncts_Consignor_ContactPerson_PhoneNumber,String) End If If (Original_ncts_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(570).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(571).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(570).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(571).Value = CType(Original_ncts_Consignor_ContactPerson_EMailAddress,String) End If If (Original_ncts_Consignee_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(572).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(573).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(572).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(573).Value = CType(Original_ncts_Consignee_AdressCode,String) End If If (Original_ncts_Consignee_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(574).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(575).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(574).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(575).Value = CType(Original_ncts_Consignee_IdentificationNumber,String) End If If (Original_ncts_Consignee_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(576).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(577).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(576).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(577).Value = CType(Original_ncts_Consignee_SubsidiaryNumber,String) End If If (Original_ncts_Consignee_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(578).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(579).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(578).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(579).Value = CType(Original_ncts_Consignee_Name,String) End If If (Original_ncts_Consignee_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(580).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(581).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(580).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(581).Value = CType(Original_ncts_Consignee_StreetNumber,String) End If If (Original_ncts_Consignee_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(582).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(583).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(582).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(583).Value = CType(Original_ncts_Consignee_City,String) End If If (Original_ncts_Consignee_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(584).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(585).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(584).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(585).Value = CType(Original_ncts_Consignee_Postcode,String) End If If (Original_ncts_Consignee_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(586).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(587).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(586).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(587).Value = CType(Original_ncts_Consignee_Country,String) End If If (Original_ncts_Consignee_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(588).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(589).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(588).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(589).Value = CType(Original_ncts_Consignee_ContactPerson_Name,String) End If If (Original_ncts_Consignee_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(590).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(591).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(590).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(591).Value = CType(Original_ncts_Consignee_ContactPerson_PhoneNumber,String) End If If (Original_ncts_Consignee_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(592).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(593).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(592).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(593).Value = CType(Original_ncts_Consignee_ContactPerson_EMailAddress,String) End If If (Original_ncts_HolderOfTheTransitProcedure_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(594).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(595).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(594).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(595).Value = CType(Original_ncts_HolderOfTheTransitProcedure_AdressCode,String) End If If (Original_ncts_HolderOfTheTransitProcedure_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(596).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(597).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(596).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(597).Value = CType(Original_ncts_HolderOfTheTransitProcedure_IdentificationNumber,String) End If If (Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(598).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(599).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(598).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(599).Value = CType(Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber,String) End If If (Original_ncts_HolderOfTheTransitProcedure_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(600).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(601).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(600).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(601).Value = CType(Original_ncts_HolderOfTheTransitProcedure_Name,String) End If If (Original_ncts_HolderOfTheTransitProcedure_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(602).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(603).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(602).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(603).Value = CType(Original_ncts_HolderOfTheTransitProcedure_StreetNumber,String) End If If (Original_ncts_HolderOfTheTransitProcedure_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(604).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(605).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(604).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(605).Value = CType(Original_ncts_HolderOfTheTransitProcedure_City,String) End If If (Original_ncts_HolderOfTheTransitProcedure_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(606).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(607).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(606).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(607).Value = CType(Original_ncts_HolderOfTheTransitProcedure_Postcode,String) End If If (Original_ncts_HolderOfTheTransitProcedure_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(608).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(609).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(608).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(609).Value = CType(Original_ncts_HolderOfTheTransitProcedure_Country,String) End If If (Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(610).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(611).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(610).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(611).Value = CType(Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name,String) End If If (Original_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(612).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(613).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(612).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(613).Value = CType(Original_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber,String) End If If (Original_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(614).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(615).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(614).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(615).Value = CType(Original_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress,String) End If If (Original_ncts_Representative_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(616).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(617).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(616).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(617).Value = CType(Original_ncts_Representative_AdressCode,String) End If If (Original_ncts_Representative_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(618).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(619).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(618).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(619).Value = CType(Original_ncts_Representative_IdentificationNumber,String) End If If (Original_ncts_Representative_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(620).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(621).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(620).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(621).Value = CType(Original_ncts_Representative_ContactPerson_Name,String) End If If (Original_ncts_Representative_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(622).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(623).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(622).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(623).Value = CType(Original_ncts_Representative_ContactPerson_PhoneNumber,String) End If If (Original_ncts_Representative_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(624).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(625).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(624).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(625).Value = CType(Original_ncts_Representative_ContactPerson_EMailAddress,String) End If If (Original_ncts_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(626).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(627).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(626).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(627).Value = CType(Original_ncts_AdditionalSupplyChainActor_1_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(628).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(629).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(628).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(629).Value = CType(Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(630).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(631).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(630).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(631).Value = CType(Original_ncts_AdditionalSupplyChainActor_2_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(632).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(633).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(632).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(633).Value = CType(Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(634).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(635).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(634).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(635).Value = CType(Original_ncts_AdditionalSupplyChainActor_3_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(636).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(637).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(636).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(637).Value = CType(Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(638).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(639).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(638).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(639).Value = CType(Original_ncts_AdditionalSupplyChainActor_4_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(640).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(641).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(640).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(641).Value = CType(Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(642).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(643).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(642).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(643).Value = CType(Original_ncts_AdditionalSupplyChainActor_5_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(644).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(645).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(644).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(645).Value = CType(Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(646).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(647).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(646).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(647).Value = CType(Original_ncts_AdditionalSupplyChainActor_6_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(648).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(649).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(648).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(649).Value = CType(Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(650).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(651).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(650).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(651).Value = CType(Original_ncts_AdditionalSupplyChainActor_7_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(652).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(653).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(652).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(653).Value = CType(Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(654).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(655).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(654).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(655).Value = CType(Original_ncts_AdditionalSupplyChainActor_8_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(656).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(657).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(656).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(657).Value = CType(Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (Original_ncts_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(658).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(659).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(658).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(659).Value = CType(Original_ncts_AdditionalSupplyChainActor_9_Role,String) End If If (Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(660).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(661).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(660).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(661).Value = CType(Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (Original_ncts_Security Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(662).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(663).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(662).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(663).Value = CType(Original_ncts_Security,String) End If If (Original_ncts_ReferenceNumberUCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(664).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(665).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(664).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(665).Value = CType(Original_ncts_ReferenceNumberUCR,String) End If If (Original_ncts_SpecificCircomstanceIndicator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(666).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(667).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(666).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(667).Value = CType(Original_ncts_SpecificCircomstanceIndicator,String) End If If (Original_ncts_PlaceOfLoading_Location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(668).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(669).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(668).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(669).Value = CType(Original_ncts_PlaceOfLoading_Location,String) End If If (Original_ncts_PlaceOfLoading_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(670).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(671).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(670).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(671).Value = CType(Original_ncts_PlaceOfLoading_Country,String) End If If (Original_ncts_PlaceOfUnLoading_Location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(672).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(673).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(672).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(673).Value = CType(Original_ncts_PlaceOfUnLoading_Location,String) End If If (Original_ncts_PlaceOfUnLoading_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(674).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(675).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(674).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(675).Value = CType(Original_ncts_PlaceOfUnLoading_Country,String) End If If (Original_ncts_TransportCharges Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(676).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(677).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(676).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(677).Value = CType(Original_ncts_TransportCharges,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(678).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(679).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(678).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(679).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_1,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(680).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(681).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(680).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(681).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_2,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(682).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(683).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(682).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(683).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_3,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(684).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(685).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(684).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(685).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_4,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(686).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(687).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(686).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(687).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_5,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(688).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(689).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(688).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(689).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_6,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(690).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(691).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(690).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(691).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_7,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(692).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(693).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(692).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(693).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_8,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(694).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(695).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(694).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(695).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_9,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(696).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(697).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(696).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(697).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_10,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(698).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(699).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(698).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(699).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_11,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(700).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(701).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(700).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(701).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_12,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(702).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(703).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(702).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(703).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_13,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(704).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(705).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(704).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(705).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_14,String) End If If (Original_ncts_CountryOfRoutingOfConsignment_15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(706).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(707).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(706).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(707).Value = CType(Original_ncts_CountryOfRoutingOfConsignment_15,String) End If If (Original_ncts_Carrier_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(708).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(709).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(708).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(709).Value = CType(Original_ncts_Carrier_AdressCode,String) End If If (Original_ncts_Carrier_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(710).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(711).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(710).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(711).Value = CType(Original_ncts_Carrier_IdentificationNumber,String) End If If (Original_ncts_Carrier_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(712).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(713).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(712).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(713).Value = CType(Original_ncts_Carrier_SubsidiaryNumber,String) End If If (Original_ncts_Carrier_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(714).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(715).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(714).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(715).Value = CType(Original_ncts_Carrier_ContactPerson_Name,String) End If If (Original_ncts_Carrier_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(716).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(717).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(716).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(717).Value = CType(Original_ncts_Carrier_ContactPerson_PhoneNumber,String) End If If (Original_ncts_Carrier_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(718).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(719).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(718).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(719).Value = CType(Original_ncts_Carrier_ContactPerson_EMailAddress,String) End If If (Original_ncts_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(720).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(721).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(720).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(721).Value = CType(Original_ncts_SupportingDocument_1_Type,String) End If If (Original_ncts_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(722).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(723).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(722).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(723).Value = CType(Original_ncts_SupportingDocument_1_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(724).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(725).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(724).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(725).Value = CType(Original_ncts_SupportingDocument_1_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(726).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(727).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(726).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(727).Value = CType(Original_ncts_SupportingDocument_1_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(728).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(729).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(728).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(729).Value = CType(Original_ncts_SupportingDocument_2_Type,String) End If If (Original_ncts_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(730).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(731).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(730).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(731).Value = CType(Original_ncts_SupportingDocument_2_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(732).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(733).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(732).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(733).Value = CType(Original_ncts_SupportingDocument_2_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(734).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(735).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(734).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(735).Value = CType(Original_ncts_SupportingDocument_2_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(736).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(737).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(736).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(737).Value = CType(Original_ncts_SupportingDocument_3_Type,String) End If If (Original_ncts_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(738).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(739).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(738).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(739).Value = CType(Original_ncts_SupportingDocument_3_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(740).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(741).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(740).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(741).Value = CType(Original_ncts_SupportingDocument_3_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(742).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(743).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(742).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(743).Value = CType(Original_ncts_SupportingDocument_3_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(744).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(745).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(744).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(745).Value = CType(Original_ncts_SupportingDocument_4_Type,String) End If If (Original_ncts_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(746).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(747).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(746).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(747).Value = CType(Original_ncts_SupportingDocument_4_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(748).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(749).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(748).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(749).Value = CType(Original_ncts_SupportingDocument_4_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(750).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(751).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(750).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(751).Value = CType(Original_ncts_SupportingDocument_4_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(752).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(753).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(752).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(753).Value = CType(Original_ncts_SupportingDocument_5_Type,String) End If If (Original_ncts_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(754).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(755).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(754).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(755).Value = CType(Original_ncts_SupportingDocument_5_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(756).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(757).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(756).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(757).Value = CType(Original_ncts_SupportingDocument_5_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(758).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(759).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(758).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(759).Value = CType(Original_ncts_SupportingDocument_5_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(760).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(761).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(760).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(761).Value = CType(Original_ncts_SupportingDocument_6_Type,String) End If If (Original_ncts_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(762).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(763).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(762).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(763).Value = CType(Original_ncts_SupportingDocument_6_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(764).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(765).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(764).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(765).Value = CType(Original_ncts_SupportingDocument_6_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(766).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(767).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(766).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(767).Value = CType(Original_ncts_SupportingDocument_6_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(768).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(769).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(768).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(769).Value = CType(Original_ncts_SupportingDocument_7_Type,String) End If If (Original_ncts_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(770).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(771).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(770).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(771).Value = CType(Original_ncts_SupportingDocument_7_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(772).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(773).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(772).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(773).Value = CType(Original_ncts_SupportingDocument_7_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(774).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(775).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(774).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(775).Value = CType(Original_ncts_SupportingDocument_7_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(776).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(777).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(776).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(777).Value = CType(Original_ncts_SupportingDocument_8_Type,String) End If If (Original_ncts_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(778).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(779).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(778).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(779).Value = CType(Original_ncts_SupportingDocument_8_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(780).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(781).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(780).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(781).Value = CType(Original_ncts_SupportingDocument_8_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(782).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(783).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(782).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(783).Value = CType(Original_ncts_SupportingDocument_8_ComplementOfInformation,String) End If If (Original_ncts_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(784).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(785).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(784).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(785).Value = CType(Original_ncts_SupportingDocument_9_Type,String) End If If (Original_ncts_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(786).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(787).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(786).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(787).Value = CType(Original_ncts_SupportingDocument_9_ReferenceNumber,String) End If If (Original_ncts_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(788).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(789).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(788).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(789).Value = CType(Original_ncts_SupportingDocument_9_DocumentLineItemNumber,String) End If If (Original_ncts_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(790).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(791).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(790).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(791).Value = CType(Original_ncts_SupportingDocument_9_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(792).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(793).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(792).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(793).Value = CType(Original_ncts_PreviousDocument_1_Type,String) End If If (Original_ncts_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(794).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(795).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(794).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(795).Value = CType(Original_ncts_PreviousDocument_1_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(796).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(797).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(796).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(797).Value = CType(Original_ncts_PreviousDocument_1_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(798).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(799).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(798).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(799).Value = CType(Original_ncts_PreviousDocument_2_Type,String) End If If (Original_ncts_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(800).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(801).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(800).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(801).Value = CType(Original_ncts_PreviousDocument_2_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(802).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(803).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(802).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(803).Value = CType(Original_ncts_PreviousDocument_2_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(804).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(805).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(804).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(805).Value = CType(Original_ncts_PreviousDocument_3_Type,String) End If If (Original_ncts_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(806).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(807).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(806).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(807).Value = CType(Original_ncts_PreviousDocument_3_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(808).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(809).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(808).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(809).Value = CType(Original_ncts_PreviousDocument_3_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(810).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(811).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(810).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(811).Value = CType(Original_ncts_PreviousDocument_4_Type,String) End If If (Original_ncts_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(812).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(813).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(812).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(813).Value = CType(Original_ncts_PreviousDocument_4_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(814).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(815).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(814).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(815).Value = CType(Original_ncts_PreviousDocument_4_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(816).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(817).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(816).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(817).Value = CType(Original_ncts_PreviousDocument_5_Type,String) End If If (Original_ncts_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(818).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(819).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(818).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(819).Value = CType(Original_ncts_PreviousDocument_5_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(820).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(821).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(820).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(821).Value = CType(Original_ncts_PreviousDocument_5_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(822).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(823).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(822).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(823).Value = CType(Original_ncts_PreviousDocument_6_Type,String) End If If (Original_ncts_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(824).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(825).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(824).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(825).Value = CType(Original_ncts_PreviousDocument_6_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(826).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(827).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(826).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(827).Value = CType(Original_ncts_PreviousDocument_6_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(828).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(829).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(828).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(829).Value = CType(Original_ncts_PreviousDocument_7_Type,String) End If If (Original_ncts_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(830).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(831).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(830).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(831).Value = CType(Original_ncts_PreviousDocument_7_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(832).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(833).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(832).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(833).Value = CType(Original_ncts_PreviousDocument_7_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(834).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(835).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(834).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(835).Value = CType(Original_ncts_PreviousDocument_8_Type,String) End If If (Original_ncts_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(836).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(837).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(836).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(837).Value = CType(Original_ncts_PreviousDocument_8_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(838).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(839).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(838).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(839).Value = CType(Original_ncts_PreviousDocument_8_ComplementOfInformation,String) End If If (Original_ncts_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(840).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(841).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(840).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(841).Value = CType(Original_ncts_PreviousDocument_9_Type,String) End If If (Original_ncts_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(842).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(843).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(842).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(843).Value = CType(Original_ncts_PreviousDocument_9_ReferenceNumber,String) End If If (Original_ncts_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(844).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(845).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(844).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(845).Value = CType(Original_ncts_PreviousDocument_9_ComplementOfInformation,String) End If If (Original_ncts_TransportDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(846).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(847).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(846).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(847).Value = CType(Original_ncts_TransportDocument_1_Type,String) End If If (Original_ncts_TransportDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(848).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(849).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(848).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(849).Value = CType(Original_ncts_TransportDocument_1_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(850).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(851).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(850).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(851).Value = CType(Original_ncts_TransportDocument_2_Type,String) End If If (Original_ncts_TransportDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(852).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(853).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(852).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(853).Value = CType(Original_ncts_TransportDocument_2_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(854).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(855).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(854).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(855).Value = CType(Original_ncts_TransportDocument_3_Type,String) End If If (Original_ncts_TransportDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(856).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(857).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(856).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(857).Value = CType(Original_ncts_TransportDocument_3_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(858).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(859).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(858).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(859).Value = CType(Original_ncts_TransportDocument_4_Type,String) End If If (Original_ncts_TransportDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(860).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(861).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(860).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(861).Value = CType(Original_ncts_TransportDocument_4_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(862).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(863).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(862).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(863).Value = CType(Original_ncts_TransportDocument_5_Type,String) End If If (Original_ncts_TransportDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(864).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(865).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(864).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(865).Value = CType(Original_ncts_TransportDocument_5_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(866).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(867).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(866).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(867).Value = CType(Original_ncts_TransportDocument_6_Type,String) End If If (Original_ncts_TransportDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(868).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(869).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(868).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(869).Value = CType(Original_ncts_TransportDocument_6_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(870).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(871).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(870).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(871).Value = CType(Original_ncts_TransportDocument_7_Type,String) End If If (Original_ncts_TransportDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(872).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(873).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(872).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(873).Value = CType(Original_ncts_TransportDocument_7_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(874).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(875).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(874).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(875).Value = CType(Original_ncts_TransportDocument_8_Type,String) End If If (Original_ncts_TransportDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(876).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(877).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(876).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(877).Value = CType(Original_ncts_TransportDocument_8_ReferenceNumber,String) End If If (Original_ncts_TransportDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(878).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(879).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(878).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(879).Value = CType(Original_ncts_TransportDocument_9_Type,String) End If If (Original_ncts_TransportDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(880).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(881).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(880).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(881).Value = CType(Original_ncts_TransportDocument_9_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(882).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(883).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(882).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(883).Value = CType(Original_ncts_AdditionalReference_1_Type,String) End If If (Original_ncts_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(884).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(885).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(884).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(885).Value = CType(Original_ncts_AdditionalReference_1_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(886).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(887).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(886).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(887).Value = CType(Original_ncts_AdditionalReference_2_Type,String) End If If (Original_ncts_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(888).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(889).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(888).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(889).Value = CType(Original_ncts_AdditionalReference_2_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(890).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(891).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(890).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(891).Value = CType(Original_ncts_AdditionalReference_3_Type,String) End If If (Original_ncts_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(892).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(893).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(892).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(893).Value = CType(Original_ncts_AdditionalReference_3_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(894).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(895).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(894).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(895).Value = CType(Original_ncts_AdditionalReference_4_Type,String) End If If (Original_ncts_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(896).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(897).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(896).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(897).Value = CType(Original_ncts_AdditionalReference_4_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(898).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(899).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(898).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(899).Value = CType(Original_ncts_AdditionalReference_5_Type,String) End If If (Original_ncts_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(900).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(901).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(900).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(901).Value = CType(Original_ncts_AdditionalReference_5_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(902).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(903).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(902).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(903).Value = CType(Original_ncts_AdditionalReference_6_Type,String) End If If (Original_ncts_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(904).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(905).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(904).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(905).Value = CType(Original_ncts_AdditionalReference_6_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(906).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(907).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(906).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(907).Value = CType(Original_ncts_AdditionalReference_7_Type,String) End If If (Original_ncts_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(908).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(909).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(908).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(909).Value = CType(Original_ncts_AdditionalReference_7_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(910).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(911).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(910).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(911).Value = CType(Original_ncts_AdditionalReference_8_Type,String) End If If (Original_ncts_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(912).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(913).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(912).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(913).Value = CType(Original_ncts_AdditionalReference_8_ReferenceNumber,String) End If If (Original_ncts_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(914).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(915).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(914).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(915).Value = CType(Original_ncts_AdditionalReference_9_Type,String) End If If (Original_ncts_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(916).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(917).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(916).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(917).Value = CType(Original_ncts_AdditionalReference_9_ReferenceNumber,String) End If If (Original_ncts_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(918).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(919).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(918).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(919).Value = CType(Original_ncts_AdditionalInformation_1_Code,String) End If If (Original_ncts_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(920).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(921).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(920).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(921).Value = CType(Original_ncts_AdditionalInformation_1_Text,String) End If If (Original_ncts_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(922).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(923).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(922).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(923).Value = CType(Original_ncts_AdditionalInformation_2_Code,String) End If If (Original_ncts_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(924).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(925).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(924).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(925).Value = CType(Original_ncts_AdditionalInformation_2_Text,String) End If If (Original_ncts_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(926).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(927).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(926).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(927).Value = CType(Original_ncts_AdditionalInformation_3_Code,String) End If If (Original_ncts_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(928).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(929).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(928).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(929).Value = CType(Original_ncts_AdditionalInformation_3_Text,String) End If If (Original_ncts_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(930).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(931).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(930).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(931).Value = CType(Original_ncts_AdditionalInformation_4_Code,String) End If If (Original_ncts_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(932).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(933).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(932).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(933).Value = CType(Original_ncts_AdditionalInformation_4_Text,String) End If If (Original_ncts_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(934).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(935).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(934).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(935).Value = CType(Original_ncts_AdditionalInformation_5_Code,String) End If If (Original_ncts_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(936).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(937).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(936).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(937).Value = CType(Original_ncts_AdditionalInformation_5_Text,String) End If If (Original_ncts_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(938).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(939).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(938).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(939).Value = CType(Original_ncts_AdditionalInformation_6_Code,String) End If If (Original_ncts_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(940).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(941).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(940).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(941).Value = CType(Original_ncts_AdditionalInformation_6_Text,String) End If If (Original_ncts_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(942).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(943).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(942).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(943).Value = CType(Original_ncts_AdditionalInformation_7_Code,String) End If If (Original_ncts_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(944).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(945).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(944).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(945).Value = CType(Original_ncts_AdditionalInformation_7_Text,String) End If If (Original_ncts_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(946).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(947).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(946).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(947).Value = CType(Original_ncts_AdditionalInformation_8_Code,String) End If If (Original_ncts_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(948).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(949).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(948).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(949).Value = CType(Original_ncts_AdditionalInformation_8_Text,String) End If If (Original_ncts_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(950).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(951).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(950).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(951).Value = CType(Original_ncts_AdditionalInformation_9_Code,String) End If If (Original_ncts_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(952).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(953).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(952).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(953).Value = CType(Original_ncts_AdditionalInformation_9_Text,String) End If If (Original_ncts_AUTOIMPIndicator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(954).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(955).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(954).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(955).Value = CType(Original_ncts_AUTOIMPIndicator,String) End If If (Original_ncts_Stammreferenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(956).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(957).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(956).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(957).Value = CType(Original_ncts_Stammreferenz,String) End If If (Original_ncts_ModeOfTransportAtTheBorder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(958).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(959).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(958).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(959).Value = CType(Original_ncts_ModeOfTransportAtTheBorder,String) End If If (Original_ncts_Eroeffnung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(960).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(961).Value = CType(Original_ncts_Eroeffnung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(960).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(961).Value = Global.System.DBNull.Value End If If (Original_ncts_Ankunft.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(962).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(963).Value = CType(Original_ncts_Ankunft.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(962).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(963).Value = Global.System.DBNull.Value End If If (Original_ncts_Erledigung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(964).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(965).Value = CType(Original_ncts_Erledigung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(964).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(965).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(966).Value = CType(ncts_Id,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 ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_CountryOfDispatch As String, _ ByVal ncts_CountryOfDestination As String, _ ByVal ncts_Declarationtype As String, _ ByVal ncts_TIRCarnetNumber As String, _ ByVal ncts_ReductedDatasetIndicator As String, _ ByVal ncts_LocationOfGoods_TypeofLocation As String, _ ByVal ncts_LocationOfGoods_QualifierIdenfitication As String, _ ByVal ncts_LocationOfGoods_AdditionalIdentifier As String, _ ByVal ncts_LocationOfGoods_ContactPerson_Name As String, _ ByVal ncts_LocationOfGoods_ContactPerson_PhoneNumber As String, _ ByVal ncts_LocationOfGoods_ContactPerson_EMailAddress As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As String, _ ByVal ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal ncts_CustomsOfficeOfDestinationDeclared As String, _ ByVal ncts_CustomsOfficeOfDeparture As String, _ ByVal ncts_CustomsOfficeOfExitForTransitDeclared As String, _ ByVal ncts_LimitDate As Global.System.Nullable(Of Date), _ ByVal ncts_TransitDeclarationType As String, _ ByVal ncts_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal ncts_BindingItinerary As String, _ ByVal ncts_ContainerIndicator As String, _ ByVal ncts_InlandModeOfTransport As String, _ ByVal ncts_DepartureTransportMeans_1_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_1_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_1_Nationality As String, _ ByVal ncts_DepartureTransportMeans_2_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_2_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_2_Nationality As String, _ ByVal ncts_DepartureTransportMeans_3_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_3_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_3_Nationality As String, _ ByVal ncts_DepartureTransportMeans_4_TypeOfIdentification As String, _ ByVal ncts_DepartureTransportMeans_4_IdentificationNumber As String, _ ByVal ncts_DepartureTransportMeans_4_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_1_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_1_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_2_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_2_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_3_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_3_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As String, _ ByVal ncts_ActiveBorderTransportMeans_4_IdentificationNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_4_Nationality As String, _ ByVal ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As String, _ ByVal ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As String, _ ByVal ncts_Authorisation_1_Type As String, _ ByVal ncts_Authorisation_1_ReferenceNumber As String, _ ByVal ncts_Authorisation_2_Type As String, _ ByVal ncts_Authorisation_2_ReferenceNumber As String, _ ByVal ncts_Authorisation_3_Type As String, _ ByVal ncts_Authorisation_3_ReferenceNumber As String, _ ByVal ncts_Authorisation_4_Type As String, _ ByVal ncts_Authorisation_4_ReferenceNumber As String, _ ByVal ncts_Authorisation_5_Type As String, _ ByVal ncts_Authorisation_5_ReferenceNumber As String, _ ByVal ncts_Authorisation_6_Type As String, _ ByVal ncts_Authorisation_6_ReferenceNumber As String, _ ByVal ncts_Authorisation_7_Type As String, _ ByVal ncts_Authorisation_7_ReferenceNumber As String, _ ByVal ncts_Authorisation_8_Type As String, _ ByVal ncts_Authorisation_8_ReferenceNumber As String, _ ByVal ncts_Authorisation_9_Type As String, _ ByVal ncts_Authorisation_9_ReferenceNumber As String, _ ByVal ncts_Consignor_AdressCode As String, _ ByVal ncts_Consignor_IdentificationNumber As String, _ ByVal ncts_Consignor_SubsidiaryNumber As String, _ ByVal ncts_Consignor_Name As String, _ ByVal ncts_Consignor_StreetNumber As String, _ ByVal ncts_Consignor_City As String, _ ByVal ncts_Consignor_Postcode As String, _ ByVal ncts_Consignor_Country As String, _ ByVal ncts_Consignor_ContactPerson_Name As String, _ ByVal ncts_Consignor_ContactPerson_PhoneNumber As String, _ ByVal ncts_Consignor_ContactPerson_EMailAddress As String, _ ByVal ncts_Consignee_AdressCode As String, _ ByVal ncts_Consignee_IdentificationNumber As String, _ ByVal ncts_Consignee_SubsidiaryNumber As String, _ ByVal ncts_Consignee_Name As String, _ ByVal ncts_Consignee_StreetNumber As String, _ ByVal ncts_Consignee_City As String, _ ByVal ncts_Consignee_Postcode As String, _ ByVal ncts_Consignee_Country As String, _ ByVal ncts_Consignee_ContactPerson_Name As String, _ ByVal ncts_Consignee_ContactPerson_PhoneNumber As String, _ ByVal ncts_Consignee_ContactPerson_EMailAddress As String, _ ByVal ncts_HolderOfTheTransitProcedure_AdressCode As String, _ ByVal ncts_HolderOfTheTransitProcedure_IdentificationNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_Name As String, _ ByVal ncts_HolderOfTheTransitProcedure_StreetNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_City As String, _ ByVal ncts_HolderOfTheTransitProcedure_Postcode As String, _ ByVal ncts_HolderOfTheTransitProcedure_Country As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_Name As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As String, _ ByVal ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As String, _ ByVal ncts_Representative_AdressCode As String, _ ByVal ncts_Representative_IdentificationNumber As String, _ ByVal ncts_Representative_ContactPerson_Name As String, _ ByVal ncts_Representative_ContactPerson_PhoneNumber As String, _ ByVal ncts_Representative_ContactPerson_EMailAddress As String, _ ByVal ncts_AdditionalSupplyChainActor_1_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_2_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_3_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_4_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_5_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_6_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_7_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_8_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal ncts_AdditionalSupplyChainActor_9_Role As String, _ ByVal ncts_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal ncts_Security As String, _ ByVal ncts_ReferenceNumberUCR As String, _ ByVal ncts_SpecificCircomstanceIndicator As String, _ ByVal ncts_PlaceOfLoading_Location As String, _ ByVal ncts_PlaceOfLoading_Country As String, _ ByVal ncts_PlaceOfUnLoading_Location As String, _ ByVal ncts_PlaceOfUnLoading_Country As String, _ ByVal ncts_TransportCharges As String, _ ByVal ncts_CountryOfRoutingOfConsignment_1 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_2 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_3 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_4 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_5 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_6 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_7 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_8 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_9 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_10 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_11 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_12 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_13 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_14 As String, _ ByVal ncts_CountryOfRoutingOfConsignment_15 As String, _ ByVal ncts_Carrier_AdressCode As String, _ ByVal ncts_Carrier_IdentificationNumber As String, _ ByVal ncts_Carrier_SubsidiaryNumber As String, _ ByVal ncts_Carrier_ContactPerson_Name As String, _ ByVal ncts_Carrier_ContactPerson_PhoneNumber As String, _ ByVal ncts_Carrier_ContactPerson_EMailAddress As String, _ ByVal ncts_SupportingDocument_1_Type As String, _ ByVal ncts_SupportingDocument_1_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_1_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_2_Type As String, _ ByVal ncts_SupportingDocument_2_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_2_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_3_Type As String, _ ByVal ncts_SupportingDocument_3_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_3_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_4_Type As String, _ ByVal ncts_SupportingDocument_4_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_4_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_5_Type As String, _ ByVal ncts_SupportingDocument_5_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_5_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_6_Type As String, _ ByVal ncts_SupportingDocument_6_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_6_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_7_Type As String, _ ByVal ncts_SupportingDocument_7_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_7_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_8_Type As String, _ ByVal ncts_SupportingDocument_8_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_8_ComplementOfInformation As String, _ ByVal ncts_SupportingDocument_9_Type As String, _ ByVal ncts_SupportingDocument_9_ReferenceNumber As String, _ ByVal ncts_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal ncts_SupportingDocument_9_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_1_Type As String, _ ByVal ncts_PreviousDocument_1_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_1_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_2_Type As String, _ ByVal ncts_PreviousDocument_2_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_2_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_3_Type As String, _ ByVal ncts_PreviousDocument_3_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_3_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_4_Type As String, _ ByVal ncts_PreviousDocument_4_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_4_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_5_Type As String, _ ByVal ncts_PreviousDocument_5_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_5_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_6_Type As String, _ ByVal ncts_PreviousDocument_6_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_6_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_7_Type As String, _ ByVal ncts_PreviousDocument_7_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_7_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_8_Type As String, _ ByVal ncts_PreviousDocument_8_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_8_ComplementOfInformation As String, _ ByVal ncts_PreviousDocument_9_Type As String, _ ByVal ncts_PreviousDocument_9_ReferenceNumber As String, _ ByVal ncts_PreviousDocument_9_ComplementOfInformation As String, _ ByVal ncts_TransportDocument_1_Type As String, _ ByVal ncts_TransportDocument_1_ReferenceNumber As String, _ ByVal ncts_TransportDocument_2_Type As String, _ ByVal ncts_TransportDocument_2_ReferenceNumber As String, _ ByVal ncts_TransportDocument_3_Type As String, _ ByVal ncts_TransportDocument_3_ReferenceNumber As String, _ ByVal ncts_TransportDocument_4_Type As String, _ ByVal ncts_TransportDocument_4_ReferenceNumber As String, _ ByVal ncts_TransportDocument_5_Type As String, _ ByVal ncts_TransportDocument_5_ReferenceNumber As String, _ ByVal ncts_TransportDocument_6_Type As String, _ ByVal ncts_TransportDocument_6_ReferenceNumber As String, _ ByVal ncts_TransportDocument_7_Type As String, _ ByVal ncts_TransportDocument_7_ReferenceNumber As String, _ ByVal ncts_TransportDocument_8_Type As String, _ ByVal ncts_TransportDocument_8_ReferenceNumber As String, _ ByVal ncts_TransportDocument_9_Type As String, _ ByVal ncts_TransportDocument_9_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_1_Type As String, _ ByVal ncts_AdditionalReference_1_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_2_Type As String, _ ByVal ncts_AdditionalReference_2_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_3_Type As String, _ ByVal ncts_AdditionalReference_3_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_4_Type As String, _ ByVal ncts_AdditionalReference_4_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_5_Type As String, _ ByVal ncts_AdditionalReference_5_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_6_Type As String, _ ByVal ncts_AdditionalReference_6_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_7_Type As String, _ ByVal ncts_AdditionalReference_7_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_8_Type As String, _ ByVal ncts_AdditionalReference_8_ReferenceNumber As String, _ ByVal ncts_AdditionalReference_9_Type As String, _ ByVal ncts_AdditionalReference_9_ReferenceNumber As String, _ ByVal ncts_AdditionalInformation_1_Code As String, _ ByVal ncts_AdditionalInformation_1_Text As String, _ ByVal ncts_AdditionalInformation_2_Code As String, _ ByVal ncts_AdditionalInformation_2_Text As String, _ ByVal ncts_AdditionalInformation_3_Code As String, _ ByVal ncts_AdditionalInformation_3_Text As String, _ ByVal ncts_AdditionalInformation_4_Code As String, _ ByVal ncts_AdditionalInformation_4_Text As String, _ ByVal ncts_AdditionalInformation_5_Code As String, _ ByVal ncts_AdditionalInformation_5_Text As String, _ ByVal ncts_AdditionalInformation_6_Code As String, _ ByVal ncts_AdditionalInformation_6_Text As String, _ ByVal ncts_AdditionalInformation_7_Code As String, _ ByVal ncts_AdditionalInformation_7_Text As String, _ ByVal ncts_AdditionalInformation_8_Code As String, _ ByVal ncts_AdditionalInformation_8_Text As String, _ ByVal ncts_AdditionalInformation_9_Code As String, _ ByVal ncts_AdditionalInformation_9_Text As String, _ ByVal ncts_AUTOIMPIndicator As String, _ ByVal ncts_Stammreferenz As String, _ ByVal ncts_ModeOfTransportAtTheBorder As String, _ ByVal ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal ncts_Erledigung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Id As Integer, _ ByVal Original_ncts_Status As Integer, _ ByVal Original_ncts_Status_KEWILL_Equivalent As Integer, _ ByVal Original_ncts_dyaArt As String, _ ByVal Original_ncts_dyaAnmID As Integer, _ ByVal Original_ncts_ANR As String, _ ByVal Original_ncts_MRN As String, _ ByVal Original_ncts_Erstellung As Date, _ ByVal Original_ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_LetzteBearbeitung As Date, _ ByVal Original_ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_firma As String, _ ByVal Original_ncts_niederlassung As String, _ ByVal Original_ncts_Gestellt As Boolean, _ ByVal Original_ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Partner As String, _ ByVal Original_ncts_Trans_Div1 As String, _ ByVal Original_ncts_Trans_Div2 As String, _ ByVal Original_ncts_Trans_Div3 As String, _ ByVal Original_ncts_Trans_Referenz As String, _ ByVal Original_ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_NachrichtenSenderTIN As String, _ ByVal Original_ncts_NachrichtenSenderNLNR As String, _ ByVal Original_ncts_NachrichtenempfaengerDST As String, _ ByVal Original_ncts_ObjectName As String, _ ByVal Original_ncts_ObjectAlias As String, _ ByVal Original_ncts_BezugsnummerVorblendung As String, _ ByVal Original_ncts_Bearbeiter As String, _ ByVal Original_ncts_CountryOfDispatch As String, _ ByVal Original_ncts_CountryOfDestination As String, _ ByVal Original_ncts_Declarationtype As String, _ ByVal Original_ncts_TIRCarnetNumber As String, _ ByVal Original_ncts_ReductedDatasetIndicator As String, _ ByVal Original_ncts_LocationOfGoods_TypeofLocation As String, _ ByVal Original_ncts_LocationOfGoods_QualifierIdenfitication As String, _ ByVal Original_ncts_LocationOfGoods_AdditionalIdentifier As String, _ ByVal Original_ncts_LocationOfGoods_ContactPerson_Name As String, _ ByVal Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_LocationOfGoods_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As String, _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Global.System.Nullable(Of Date), _ ByVal Original_ncts_CustomsOfficeOfDestinationDeclared As String, _ ByVal Original_ncts_CustomsOfficeOfDeparture As String, _ ByVal Original_ncts_CustomsOfficeOfExitForTransitDeclared As String, _ ByVal Original_ncts_LimitDate As Global.System.Nullable(Of Date), _ ByVal Original_ncts_TransitDeclarationType As String, _ ByVal Original_ncts_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_BindingItinerary As String, _ ByVal Original_ncts_ContainerIndicator As String, _ ByVal Original_ncts_InlandModeOfTransport As String, _ ByVal Original_ncts_DepartureTransportMeans_1_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_1_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_1_Nationality As String, _ ByVal Original_ncts_DepartureTransportMeans_2_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_2_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_2_Nationality As String, _ ByVal Original_ncts_DepartureTransportMeans_3_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_3_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_3_Nationality As String, _ ByVal Original_ncts_DepartureTransportMeans_4_TypeOfIdentification As String, _ ByVal Original_ncts_DepartureTransportMeans_4_IdentificationNumber As String, _ ByVal Original_ncts_DepartureTransportMeans_4_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_IdentificationNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_Nationality As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As String, _ ByVal Original_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As String, _ ByVal Original_ncts_Authorisation_1_Type As String, _ ByVal Original_ncts_Authorisation_1_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_2_Type As String, _ ByVal Original_ncts_Authorisation_2_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_3_Type As String, _ ByVal Original_ncts_Authorisation_3_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_4_Type As String, _ ByVal Original_ncts_Authorisation_4_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_5_Type As String, _ ByVal Original_ncts_Authorisation_5_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_6_Type As String, _ ByVal Original_ncts_Authorisation_6_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_7_Type As String, _ ByVal Original_ncts_Authorisation_7_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_8_Type As String, _ ByVal Original_ncts_Authorisation_8_ReferenceNumber As String, _ ByVal Original_ncts_Authorisation_9_Type As String, _ ByVal Original_ncts_Authorisation_9_ReferenceNumber As String, _ ByVal Original_ncts_Consignor_AdressCode As String, _ ByVal Original_ncts_Consignor_IdentificationNumber As String, _ ByVal Original_ncts_Consignor_SubsidiaryNumber As String, _ ByVal Original_ncts_Consignor_Name As String, _ ByVal Original_ncts_Consignor_StreetNumber As String, _ ByVal Original_ncts_Consignor_City As String, _ ByVal Original_ncts_Consignor_Postcode As String, _ ByVal Original_ncts_Consignor_Country As String, _ ByVal Original_ncts_Consignor_ContactPerson_Name As String, _ ByVal Original_ncts_Consignor_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Consignor_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_Consignee_AdressCode As String, _ ByVal Original_ncts_Consignee_IdentificationNumber As String, _ ByVal Original_ncts_Consignee_SubsidiaryNumber As String, _ ByVal Original_ncts_Consignee_Name As String, _ ByVal Original_ncts_Consignee_StreetNumber As String, _ ByVal Original_ncts_Consignee_City As String, _ ByVal Original_ncts_Consignee_Postcode As String, _ ByVal Original_ncts_Consignee_Country As String, _ ByVal Original_ncts_Consignee_ContactPerson_Name As String, _ ByVal Original_ncts_Consignee_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Consignee_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_AdressCode As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_IdentificationNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_Name As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_StreetNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_City As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_Postcode As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_Country As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_Representative_AdressCode As String, _ ByVal Original_ncts_Representative_IdentificationNumber As String, _ ByVal Original_ncts_Representative_ContactPerson_Name As String, _ ByVal Original_ncts_Representative_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Representative_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_1_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_2_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_3_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_4_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_5_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_6_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_7_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_8_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_9_Role As String, _ ByVal Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal Original_ncts_Security As String, _ ByVal Original_ncts_ReferenceNumberUCR As String, _ ByVal Original_ncts_SpecificCircomstanceIndicator As String, _ ByVal Original_ncts_PlaceOfLoading_Location As String, _ ByVal Original_ncts_PlaceOfLoading_Country As String, _ ByVal Original_ncts_PlaceOfUnLoading_Location As String, _ ByVal Original_ncts_PlaceOfUnLoading_Country As String, _ ByVal Original_ncts_TransportCharges As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_1 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_2 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_3 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_4 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_5 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_6 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_7 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_8 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_9 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_10 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_11 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_12 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_13 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_14 As String, _ ByVal Original_ncts_CountryOfRoutingOfConsignment_15 As String, _ ByVal Original_ncts_Carrier_AdressCode As String, _ ByVal Original_ncts_Carrier_IdentificationNumber As String, _ ByVal Original_ncts_Carrier_SubsidiaryNumber As String, _ ByVal Original_ncts_Carrier_ContactPerson_Name As String, _ ByVal Original_ncts_Carrier_ContactPerson_PhoneNumber As String, _ ByVal Original_ncts_Carrier_ContactPerson_EMailAddress As String, _ ByVal Original_ncts_SupportingDocument_1_Type As String, _ ByVal Original_ncts_SupportingDocument_1_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_1_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_2_Type As String, _ ByVal Original_ncts_SupportingDocument_2_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_2_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_3_Type As String, _ ByVal Original_ncts_SupportingDocument_3_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_3_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_4_Type As String, _ ByVal Original_ncts_SupportingDocument_4_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_4_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_5_Type As String, _ ByVal Original_ncts_SupportingDocument_5_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_5_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_6_Type As String, _ ByVal Original_ncts_SupportingDocument_6_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_6_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_7_Type As String, _ ByVal Original_ncts_SupportingDocument_7_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_7_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_8_Type As String, _ ByVal Original_ncts_SupportingDocument_8_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_8_ComplementOfInformation As String, _ ByVal Original_ncts_SupportingDocument_9_Type As String, _ ByVal Original_ncts_SupportingDocument_9_ReferenceNumber As String, _ ByVal Original_ncts_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal Original_ncts_SupportingDocument_9_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_1_Type As String, _ ByVal Original_ncts_PreviousDocument_1_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_1_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_2_Type As String, _ ByVal Original_ncts_PreviousDocument_2_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_2_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_3_Type As String, _ ByVal Original_ncts_PreviousDocument_3_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_3_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_4_Type As String, _ ByVal Original_ncts_PreviousDocument_4_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_4_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_5_Type As String, _ ByVal Original_ncts_PreviousDocument_5_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_5_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_6_Type As String, _ ByVal Original_ncts_PreviousDocument_6_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_6_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_7_Type As String, _ ByVal Original_ncts_PreviousDocument_7_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_7_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_8_Type As String, _ ByVal Original_ncts_PreviousDocument_8_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_8_ComplementOfInformation As String, _ ByVal Original_ncts_PreviousDocument_9_Type As String, _ ByVal Original_ncts_PreviousDocument_9_ReferenceNumber As String, _ ByVal Original_ncts_PreviousDocument_9_ComplementOfInformation As String, _ ByVal Original_ncts_TransportDocument_1_Type As String, _ ByVal Original_ncts_TransportDocument_1_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_2_Type As String, _ ByVal Original_ncts_TransportDocument_2_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_3_Type As String, _ ByVal Original_ncts_TransportDocument_3_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_4_Type As String, _ ByVal Original_ncts_TransportDocument_4_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_5_Type As String, _ ByVal Original_ncts_TransportDocument_5_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_6_Type As String, _ ByVal Original_ncts_TransportDocument_6_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_7_Type As String, _ ByVal Original_ncts_TransportDocument_7_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_8_Type As String, _ ByVal Original_ncts_TransportDocument_8_ReferenceNumber As String, _ ByVal Original_ncts_TransportDocument_9_Type As String, _ ByVal Original_ncts_TransportDocument_9_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_1_Type As String, _ ByVal Original_ncts_AdditionalReference_1_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_2_Type As String, _ ByVal Original_ncts_AdditionalReference_2_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_3_Type As String, _ ByVal Original_ncts_AdditionalReference_3_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_4_Type As String, _ ByVal Original_ncts_AdditionalReference_4_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_5_Type As String, _ ByVal Original_ncts_AdditionalReference_5_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_6_Type As String, _ ByVal Original_ncts_AdditionalReference_6_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_7_Type As String, _ ByVal Original_ncts_AdditionalReference_7_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_8_Type As String, _ ByVal Original_ncts_AdditionalReference_8_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalReference_9_Type As String, _ ByVal Original_ncts_AdditionalReference_9_ReferenceNumber As String, _ ByVal Original_ncts_AdditionalInformation_1_Code As String, _ ByVal Original_ncts_AdditionalInformation_1_Text As String, _ ByVal Original_ncts_AdditionalInformation_2_Code As String, _ ByVal Original_ncts_AdditionalInformation_2_Text As String, _ ByVal Original_ncts_AdditionalInformation_3_Code As String, _ ByVal Original_ncts_AdditionalInformation_3_Text As String, _ ByVal Original_ncts_AdditionalInformation_4_Code As String, _ ByVal Original_ncts_AdditionalInformation_4_Text As String, _ ByVal Original_ncts_AdditionalInformation_5_Code As String, _ ByVal Original_ncts_AdditionalInformation_5_Text As String, _ ByVal Original_ncts_AdditionalInformation_6_Code As String, _ ByVal Original_ncts_AdditionalInformation_6_Text As String, _ ByVal Original_ncts_AdditionalInformation_7_Code As String, _ ByVal Original_ncts_AdditionalInformation_7_Text As String, _ ByVal Original_ncts_AdditionalInformation_8_Code As String, _ ByVal Original_ncts_AdditionalInformation_8_Text As String, _ ByVal Original_ncts_AdditionalInformation_9_Code As String, _ ByVal Original_ncts_AdditionalInformation_9_Text As String, _ ByVal Original_ncts_AUTOIMPIndicator As String, _ ByVal Original_ncts_Stammreferenz As String, _ ByVal Original_ncts_ModeOfTransportAtTheBorder As String, _ ByVal Original_ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Erledigung As Global.System.Nullable(Of Date)) As Integer Return Me.Update(ncts_Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR, ncts_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_LetzteBearbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_GestelltAm, ncts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_Trans_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenSenderTIN, ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, ncts_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_CountryOfDispatch, ncts_CountryOfDestination, ncts_Declarationtype, ncts_TIRCarnetNumber, ncts_ReductedDatasetIndicator, ncts_LocationOfGoods_TypeofLocation, ncts_LocationOfGoods_QualifierIdenfitication, ncts_LocationOfGoods_AdditionalIdentifier, ncts_LocationOfGoods_ContactPerson_Name, ncts_LocationOfGoods_ContactPerson_PhoneNumber, ncts_LocationOfGoods_ContactPerson_EMailAddress, ncts_CustomsOfficeOfTransitDeclared_1_RefNumber, ncts_CustomsOfficeOfTransitDeclared_2_RefNumber, ncts_CustomsOfficeOfTransitDeclared_3_RefNumber, ncts_CustomsOfficeOfTransitDeclared_4_RefNumber, ncts_CustomsOfficeOfTransitDeclared_5_RefNumber, ncts_CustomsOfficeOfTransitDeclared_6_RefNumber, ncts_CustomsOfficeOfTransitDeclared_7_RefNumber, ncts_CustomsOfficeOfTransitDeclared_8_RefNumber, ncts_CustomsOfficeOfTransitDeclared_9_RefNumber, ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime, ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime, ncts_CustomsOfficeOfDestinationDeclared, ncts_CustomsOfficeOfDeparture, ncts_CustomsOfficeOfExitForTransitDeclared, ncts_LimitDate, ncts_TransitDeclarationType, ncts_GrossMass, ncts_BindingItinerary, ncts_ContainerIndicator, ncts_InlandModeOfTransport, ncts_DepartureTransportMeans_1_TypeOfIdentification, ncts_DepartureTransportMeans_1_IdentificationNumber, ncts_DepartureTransportMeans_1_Nationality, ncts_DepartureTransportMeans_2_TypeOfIdentification, ncts_DepartureTransportMeans_2_IdentificationNumber, ncts_DepartureTransportMeans_2_Nationality, ncts_DepartureTransportMeans_3_TypeOfIdentification, ncts_DepartureTransportMeans_3_IdentificationNumber, ncts_DepartureTransportMeans_3_Nationality, ncts_DepartureTransportMeans_4_TypeOfIdentification, ncts_DepartureTransportMeans_4_IdentificationNumber, ncts_DepartureTransportMeans_4_Nationality, ncts_ActiveBorderTransportMeans_1_TypeOfIdentification, ncts_ActiveBorderTransportMeans_1_IdentificationNumber, ncts_ActiveBorderTransportMeans_1_Nationality, ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared, ncts_ActiveBorderTransportMeans_2_TypeOfIdentification, ncts_ActiveBorderTransportMeans_2_IdentificationNumber, ncts_ActiveBorderTransportMeans_2_Nationality, ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared, ncts_ActiveBorderTransportMeans_3_TypeOfIdentification, ncts_ActiveBorderTransportMeans_3_IdentificationNumber, ncts_ActiveBorderTransportMeans_3_Nationality, ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared, ncts_ActiveBorderTransportMeans_4_TypeOfIdentification, ncts_ActiveBorderTransportMeans_4_IdentificationNumber, ncts_ActiveBorderTransportMeans_4_Nationality, ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber, ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared, ncts_Authorisation_1_Type, ncts_Authorisation_1_ReferenceNumber, ncts_Authorisation_2_Type, ncts_Authorisation_2_ReferenceNumber, ncts_Authorisation_3_Type, ncts_Authorisation_3_ReferenceNumber, ncts_Authorisation_4_Type, ncts_Authorisation_4_ReferenceNumber, ncts_Authorisation_5_Type, ncts_Authorisation_5_ReferenceNumber, ncts_Authorisation_6_Type, ncts_Authorisation_6_ReferenceNumber, ncts_Authorisation_7_Type, ncts_Authorisation_7_ReferenceNumber, ncts_Authorisation_8_Type, ncts_Authorisation_8_ReferenceNumber, ncts_Authorisation_9_Type, ncts_Authorisation_9_ReferenceNumber, ncts_Consignor_AdressCode, ncts_Consignor_IdentificationNumber, ncts_Consignor_SubsidiaryNumber, ncts_Consignor_Name, ncts_Consignor_StreetNumber, ncts_Consignor_City, ncts_Consignor_Postcode, ncts_Consignor_Country, ncts_Consignor_ContactPerson_Name, ncts_Consignor_ContactPerson_PhoneNumber, ncts_Consignor_ContactPerson_EMailAddress, ncts_Consignee_AdressCode, ncts_Consignee_IdentificationNumber, ncts_Consignee_SubsidiaryNumber, ncts_Consignee_Name, ncts_Consignee_StreetNumber, ncts_Consignee_City, ncts_Consignee_Postcode, ncts_Consignee_Country, ncts_Consignee_ContactPerson_Name, ncts_Consignee_ContactPerson_PhoneNumber, ncts_Consignee_ContactPerson_EMailAddress, ncts_HolderOfTheTransitProcedure_AdressCode, ncts_HolderOfTheTransitProcedure_IdentificationNumber, ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber, ncts_HolderOfTheTransitProcedure_Name, ncts_HolderOfTheTransitProcedure_StreetNumber, ncts_HolderOfTheTransitProcedure_City, ncts_HolderOfTheTransitProcedure_Postcode, ncts_HolderOfTheTransitProcedure_Country, ncts_HolderOfTheTransitProcedure_ContactPerson_Name, ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber, ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress, ncts_Representative_AdressCode, ncts_Representative_IdentificationNumber, ncts_Representative_ContactPerson_Name, ncts_Representative_ContactPerson_PhoneNumber, ncts_Representative_ContactPerson_EMailAddress, ncts_AdditionalSupplyChainActor_1_Role, ncts_AdditionalSupplyChainActor_1_IdentificationNumber, ncts_AdditionalSupplyChainActor_2_Role, ncts_AdditionalSupplyChainActor_2_IdentificationNumber, ncts_AdditionalSupplyChainActor_3_Role, ncts_AdditionalSupplyChainActor_3_IdentificationNumber, ncts_AdditionalSupplyChainActor_4_Role, ncts_AdditionalSupplyChainActor_4_IdentificationNumber, ncts_AdditionalSupplyChainActor_5_Role, ncts_AdditionalSupplyChainActor_5_IdentificationNumber, ncts_AdditionalSupplyChainActor_6_Role, ncts_AdditionalSupplyChainActor_6_IdentificationNumber, ncts_AdditionalSupplyChainActor_7_Role, ncts_AdditionalSupplyChainActor_7_IdentificationNumber, ncts_AdditionalSupplyChainActor_8_Role, ncts_AdditionalSupplyChainActor_8_IdentificationNumber, ncts_AdditionalSupplyChainActor_9_Role, ncts_AdditionalSupplyChainActor_9_IdentificationNumber, ncts_Security, ncts_ReferenceNumberUCR, ncts_SpecificCircomstanceIndicator, ncts_PlaceOfLoading_Location, ncts_PlaceOfLoading_Country, ncts_PlaceOfUnLoading_Location, ncts_PlaceOfUnLoading_Country, ncts_TransportCharges, ncts_CountryOfRoutingOfConsignment_1, ncts_CountryOfRoutingOfConsignment_2, ncts_CountryOfRoutingOfConsignment_3, ncts_CountryOfRoutingOfConsignment_4, ncts_CountryOfRoutingOfConsignment_5, ncts_CountryOfRoutingOfConsignment_6, ncts_CountryOfRoutingOfConsignment_7, ncts_CountryOfRoutingOfConsignment_8, ncts_CountryOfRoutingOfConsignment_9, ncts_CountryOfRoutingOfConsignment_10, ncts_CountryOfRoutingOfConsignment_11, ncts_CountryOfRoutingOfConsignment_12, ncts_CountryOfRoutingOfConsignment_13, ncts_CountryOfRoutingOfConsignment_14, ncts_CountryOfRoutingOfConsignment_15, ncts_Carrier_AdressCode, ncts_Carrier_IdentificationNumber, ncts_Carrier_SubsidiaryNumber, ncts_Carrier_ContactPerson_Name, ncts_Carrier_ContactPerson_PhoneNumber, ncts_Carrier_ContactPerson_EMailAddress, ncts_SupportingDocument_1_Type, ncts_SupportingDocument_1_ReferenceNumber, ncts_SupportingDocument_1_DocumentLineItemNumber, ncts_SupportingDocument_1_ComplementOfInformation, ncts_SupportingDocument_2_Type, ncts_SupportingDocument_2_ReferenceNumber, ncts_SupportingDocument_2_DocumentLineItemNumber, ncts_SupportingDocument_2_ComplementOfInformation, ncts_SupportingDocument_3_Type, ncts_SupportingDocument_3_ReferenceNumber, ncts_SupportingDocument_3_DocumentLineItemNumber, ncts_SupportingDocument_3_ComplementOfInformation, ncts_SupportingDocument_4_Type, ncts_SupportingDocument_4_ReferenceNumber, ncts_SupportingDocument_4_DocumentLineItemNumber, ncts_SupportingDocument_4_ComplementOfInformation, ncts_SupportingDocument_5_Type, ncts_SupportingDocument_5_ReferenceNumber, ncts_SupportingDocument_5_DocumentLineItemNumber, ncts_SupportingDocument_5_ComplementOfInformation, ncts_SupportingDocument_6_Type, ncts_SupportingDocument_6_ReferenceNumber, ncts_SupportingDocument_6_DocumentLineItemNumber, ncts_SupportingDocument_6_ComplementOfInformation, ncts_SupportingDocument_7_Type, ncts_SupportingDocument_7_ReferenceNumber, ncts_SupportingDocument_7_DocumentLineItemNumber, ncts_SupportingDocument_7_ComplementOfInformation, ncts_SupportingDocument_8_Type, ncts_SupportingDocument_8_ReferenceNumber, ncts_SupportingDocument_8_DocumentLineItemNumber, ncts_SupportingDocument_8_ComplementOfInformation, ncts_SupportingDocument_9_Type, ncts_SupportingDocument_9_ReferenceNumber, ncts_SupportingDocument_9_DocumentLineItemNumber, ncts_SupportingDocument_9_ComplementOfInformation, ncts_PreviousDocument_1_Type, ncts_PreviousDocument_1_ReferenceNumber, ncts_PreviousDocument_1_ComplementOfInformation, ncts_PreviousDocument_2_Type, ncts_PreviousDocument_2_ReferenceNumber, ncts_PreviousDocument_2_ComplementOfInformation, ncts_PreviousDocument_3_Type, ncts_PreviousDocument_3_ReferenceNumber, ncts_PreviousDocument_3_ComplementOfInformation, ncts_PreviousDocument_4_Type, ncts_PreviousDocument_4_ReferenceNumber, ncts_PreviousDocument_4_ComplementOfInformation, ncts_PreviousDocument_5_Type, ncts_PreviousDocument_5_ReferenceNumber, ncts_PreviousDocument_5_ComplementOfInformation, ncts_PreviousDocument_6_Type, ncts_PreviousDocument_6_ReferenceNumber, ncts_PreviousDocument_6_ComplementOfInformation, ncts_PreviousDocument_7_Type, ncts_PreviousDocument_7_ReferenceNumber, ncts_PreviousDocument_7_ComplementOfInformation, ncts_PreviousDocument_8_Type, ncts_PreviousDocument_8_ReferenceNumber, ncts_PreviousDocument_8_ComplementOfInformation, ncts_PreviousDocument_9_Type, ncts_PreviousDocument_9_ReferenceNumber, ncts_PreviousDocument_9_ComplementOfInformation, ncts_TransportDocument_1_Type, ncts_TransportDocument_1_ReferenceNumber, ncts_TransportDocument_2_Type, ncts_TransportDocument_2_ReferenceNumber, ncts_TransportDocument_3_Type, ncts_TransportDocument_3_ReferenceNumber, ncts_TransportDocument_4_Type, ncts_TransportDocument_4_ReferenceNumber, ncts_TransportDocument_5_Type, ncts_TransportDocument_5_ReferenceNumber, ncts_TransportDocument_6_Type, ncts_TransportDocument_6_ReferenceNumber, ncts_TransportDocument_7_Type, ncts_TransportDocument_7_ReferenceNumber, ncts_TransportDocument_8_Type, ncts_TransportDocument_8_ReferenceNumber, ncts_TransportDocument_9_Type, ncts_TransportDocument_9_ReferenceNumber, ncts_AdditionalReference_1_Type, ncts_AdditionalReference_1_ReferenceNumber, ncts_AdditionalReference_2_Type, ncts_AdditionalReference_2_ReferenceNumber, ncts_AdditionalReference_3_Type, ncts_AdditionalReference_3_ReferenceNumber, ncts_AdditionalReference_4_Type, ncts_AdditionalReference_4_ReferenceNumber, ncts_AdditionalReference_5_Type, ncts_AdditionalReference_5_ReferenceNumber, ncts_AdditionalReference_6_Type, ncts_AdditionalReference_6_ReferenceNumber, ncts_AdditionalReference_7_Type, ncts_AdditionalReference_7_ReferenceNumber, ncts_AdditionalReference_8_Type, ncts_AdditionalReference_8_ReferenceNumber, ncts_AdditionalReference_9_Type, ncts_AdditionalReference_9_ReferenceNumber, ncts_AdditionalInformation_1_Code, ncts_AdditionalInformation_1_Text, ncts_AdditionalInformation_2_Code, ncts_AdditionalInformation_2_Text, ncts_AdditionalInformation_3_Code, ncts_AdditionalInformation_3_Text, ncts_AdditionalInformation_4_Code, ncts_AdditionalInformation_4_Text, ncts_AdditionalInformation_5_Code, ncts_AdditionalInformation_5_Text, ncts_AdditionalInformation_6_Code, ncts_AdditionalInformation_6_Text, ncts_AdditionalInformation_7_Code, ncts_AdditionalInformation_7_Text, ncts_AdditionalInformation_8_Code, ncts_AdditionalInformation_8_Text, ncts_AdditionalInformation_9_Code, ncts_AdditionalInformation_9_Text, ncts_AUTOIMPIndicator, ncts_Stammreferenz, ncts_ModeOfTransportAtTheBorder, ncts_Eroeffnung, ncts_Ankunft, ncts_Erledigung, Original_ncts_Id, Original_ncts_Status, Original_ncts_Status_KEWILL_Equivalent, Original_ncts_dyaArt, Original_ncts_dyaAnmID, Original_ncts_ANR, Original_ncts_MRN, Original_ncts_Erstellung, Original_ncts_Erstellung_SB, Original_ncts_LetzteBearbeitung, Original_ncts_LetzteBearbeitung_SB, Original_ncts_firma, Original_ncts_niederlassung, Original_ncts_Gestellt, Original_ncts_GestelltAm, Original_ncts_Trans_Partner, Original_ncts_Trans_Div1, Original_ncts_Trans_Div2, Original_ncts_Trans_Div3, Original_ncts_Trans_Referenz, Original_ncts_Trans_DatumZeit, Original_ncts_Trans_Version, Original_ncts_NachrichtenSenderTIN, Original_ncts_NachrichtenSenderNLNR, Original_ncts_NachrichtenempfaengerDST, Original_ncts_ObjectName, Original_ncts_ObjectAlias, Original_ncts_BezugsnummerVorblendung, Original_ncts_Bearbeiter, Original_ncts_CountryOfDispatch, Original_ncts_CountryOfDestination, Original_ncts_Declarationtype, Original_ncts_TIRCarnetNumber, Original_ncts_ReductedDatasetIndicator, Original_ncts_LocationOfGoods_TypeofLocation, Original_ncts_LocationOfGoods_QualifierIdenfitication, Original_ncts_LocationOfGoods_AdditionalIdentifier, Original_ncts_LocationOfGoods_ContactPerson_Name, Original_ncts_LocationOfGoods_ContactPerson_PhoneNumber, Original_ncts_LocationOfGoods_ContactPerson_EMailAddress, Original_ncts_CustomsOfficeOfTransitDeclared_1_RefNumber, Original_ncts_CustomsOfficeOfTransitDeclared_2_RefNumber, Original_ncts_CustomsOfficeOfTransitDeclared_3_RefNumber, Original_ncts_CustomsOfficeOfTransitDeclared_4_RefNumber, Original_ncts_CustomsOfficeOfTransitDeclared_5_RefNumber, Original_ncts_CustomsOfficeOfTransitDeclared_6_RefNumber, Original_ncts_CustomsOfficeOfTransitDeclared_7_RefNumber, Original_ncts_CustomsOfficeOfTransitDeclared_8_RefNumber, Original_ncts_CustomsOfficeOfTransitDeclared_9_RefNumber, Original_ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime, Original_ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime, Original_ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime, Original_ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime, Original_ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime, Original_ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime, Original_ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime, Original_ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime, Original_ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime, Original_ncts_CustomsOfficeOfDestinationDeclared, Original_ncts_CustomsOfficeOfDeparture, Original_ncts_CustomsOfficeOfExitForTransitDeclared, Original_ncts_LimitDate, Original_ncts_TransitDeclarationType, Original_ncts_GrossMass, Original_ncts_BindingItinerary, Original_ncts_ContainerIndicator, Original_ncts_InlandModeOfTransport, Original_ncts_DepartureTransportMeans_1_TypeOfIdentification, Original_ncts_DepartureTransportMeans_1_IdentificationNumber, Original_ncts_DepartureTransportMeans_1_Nationality, Original_ncts_DepartureTransportMeans_2_TypeOfIdentification, Original_ncts_DepartureTransportMeans_2_IdentificationNumber, Original_ncts_DepartureTransportMeans_2_Nationality, Original_ncts_DepartureTransportMeans_3_TypeOfIdentification, Original_ncts_DepartureTransportMeans_3_IdentificationNumber, Original_ncts_DepartureTransportMeans_3_Nationality, Original_ncts_DepartureTransportMeans_4_TypeOfIdentification, Original_ncts_DepartureTransportMeans_4_IdentificationNumber, Original_ncts_DepartureTransportMeans_4_Nationality, Original_ncts_ActiveBorderTransportMeans_1_TypeOfIdentification, Original_ncts_ActiveBorderTransportMeans_1_IdentificationNumber, Original_ncts_ActiveBorderTransportMeans_1_Nationality, Original_ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber, Original_ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared, Original_ncts_ActiveBorderTransportMeans_2_TypeOfIdentification, Original_ncts_ActiveBorderTransportMeans_2_IdentificationNumber, Original_ncts_ActiveBorderTransportMeans_2_Nationality, Original_ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber, Original_ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared, Original_ncts_ActiveBorderTransportMeans_3_TypeOfIdentification, Original_ncts_ActiveBorderTransportMeans_3_IdentificationNumber, Original_ncts_ActiveBorderTransportMeans_3_Nationality, Original_ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber, Original_ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared, Original_ncts_ActiveBorderTransportMeans_4_TypeOfIdentification, Original_ncts_ActiveBorderTransportMeans_4_IdentificationNumber, Original_ncts_ActiveBorderTransportMeans_4_Nationality, Original_ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber, Original_ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared, Original_ncts_Authorisation_1_Type, Original_ncts_Authorisation_1_ReferenceNumber, Original_ncts_Authorisation_2_Type, Original_ncts_Authorisation_2_ReferenceNumber, Original_ncts_Authorisation_3_Type, Original_ncts_Authorisation_3_ReferenceNumber, Original_ncts_Authorisation_4_Type, Original_ncts_Authorisation_4_ReferenceNumber, Original_ncts_Authorisation_5_Type, Original_ncts_Authorisation_5_ReferenceNumber, Original_ncts_Authorisation_6_Type, Original_ncts_Authorisation_6_ReferenceNumber, Original_ncts_Authorisation_7_Type, Original_ncts_Authorisation_7_ReferenceNumber, Original_ncts_Authorisation_8_Type, Original_ncts_Authorisation_8_ReferenceNumber, Original_ncts_Authorisation_9_Type, Original_ncts_Authorisation_9_ReferenceNumber, Original_ncts_Consignor_AdressCode, Original_ncts_Consignor_IdentificationNumber, Original_ncts_Consignor_SubsidiaryNumber, Original_ncts_Consignor_Name, Original_ncts_Consignor_StreetNumber, Original_ncts_Consignor_City, Original_ncts_Consignor_Postcode, Original_ncts_Consignor_Country, Original_ncts_Consignor_ContactPerson_Name, Original_ncts_Consignor_ContactPerson_PhoneNumber, Original_ncts_Consignor_ContactPerson_EMailAddress, Original_ncts_Consignee_AdressCode, Original_ncts_Consignee_IdentificationNumber, Original_ncts_Consignee_SubsidiaryNumber, Original_ncts_Consignee_Name, Original_ncts_Consignee_StreetNumber, Original_ncts_Consignee_City, Original_ncts_Consignee_Postcode, Original_ncts_Consignee_Country, Original_ncts_Consignee_ContactPerson_Name, Original_ncts_Consignee_ContactPerson_PhoneNumber, Original_ncts_Consignee_ContactPerson_EMailAddress, Original_ncts_HolderOfTheTransitProcedure_AdressCode, Original_ncts_HolderOfTheTransitProcedure_IdentificationNumber, Original_ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber, Original_ncts_HolderOfTheTransitProcedure_Name, Original_ncts_HolderOfTheTransitProcedure_StreetNumber, Original_ncts_HolderOfTheTransitProcedure_City, Original_ncts_HolderOfTheTransitProcedure_Postcode, Original_ncts_HolderOfTheTransitProcedure_Country, Original_ncts_HolderOfTheTransitProcedure_ContactPerson_Name, Original_ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber, Original_ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress, Original_ncts_Representative_AdressCode, Original_ncts_Representative_IdentificationNumber, Original_ncts_Representative_ContactPerson_Name, Original_ncts_Representative_ContactPerson_PhoneNumber, Original_ncts_Representative_ContactPerson_EMailAddress, Original_ncts_AdditionalSupplyChainActor_1_Role, Original_ncts_AdditionalSupplyChainActor_1_IdentificationNumber, Original_ncts_AdditionalSupplyChainActor_2_Role, Original_ncts_AdditionalSupplyChainActor_2_IdentificationNumber, Original_ncts_AdditionalSupplyChainActor_3_Role, Original_ncts_AdditionalSupplyChainActor_3_IdentificationNumber, Original_ncts_AdditionalSupplyChainActor_4_Role, Original_ncts_AdditionalSupplyChainActor_4_IdentificationNumber, Original_ncts_AdditionalSupplyChainActor_5_Role, Original_ncts_AdditionalSupplyChainActor_5_IdentificationNumber, Original_ncts_AdditionalSupplyChainActor_6_Role, Original_ncts_AdditionalSupplyChainActor_6_IdentificationNumber, Original_ncts_AdditionalSupplyChainActor_7_Role, Original_ncts_AdditionalSupplyChainActor_7_IdentificationNumber, Original_ncts_AdditionalSupplyChainActor_8_Role, Original_ncts_AdditionalSupplyChainActor_8_IdentificationNumber, Original_ncts_AdditionalSupplyChainActor_9_Role, Original_ncts_AdditionalSupplyChainActor_9_IdentificationNumber, Original_ncts_Security, Original_ncts_ReferenceNumberUCR, Original_ncts_SpecificCircomstanceIndicator, Original_ncts_PlaceOfLoading_Location, Original_ncts_PlaceOfLoading_Country, Original_ncts_PlaceOfUnLoading_Location, Original_ncts_PlaceOfUnLoading_Country, Original_ncts_TransportCharges, Original_ncts_CountryOfRoutingOfConsignment_1, Original_ncts_CountryOfRoutingOfConsignment_2, Original_ncts_CountryOfRoutingOfConsignment_3, Original_ncts_CountryOfRoutingOfConsignment_4, Original_ncts_CountryOfRoutingOfConsignment_5, Original_ncts_CountryOfRoutingOfConsignment_6, Original_ncts_CountryOfRoutingOfConsignment_7, Original_ncts_CountryOfRoutingOfConsignment_8, Original_ncts_CountryOfRoutingOfConsignment_9, Original_ncts_CountryOfRoutingOfConsignment_10, Original_ncts_CountryOfRoutingOfConsignment_11, Original_ncts_CountryOfRoutingOfConsignment_12, Original_ncts_CountryOfRoutingOfConsignment_13, Original_ncts_CountryOfRoutingOfConsignment_14, Original_ncts_CountryOfRoutingOfConsignment_15, Original_ncts_Carrier_AdressCode, Original_ncts_Carrier_IdentificationNumber, Original_ncts_Carrier_SubsidiaryNumber, Original_ncts_Carrier_ContactPerson_Name, Original_ncts_Carrier_ContactPerson_PhoneNumber, Original_ncts_Carrier_ContactPerson_EMailAddress, Original_ncts_SupportingDocument_1_Type, Original_ncts_SupportingDocument_1_ReferenceNumber, Original_ncts_SupportingDocument_1_DocumentLineItemNumber, Original_ncts_SupportingDocument_1_ComplementOfInformation, Original_ncts_SupportingDocument_2_Type, Original_ncts_SupportingDocument_2_ReferenceNumber, Original_ncts_SupportingDocument_2_DocumentLineItemNumber, Original_ncts_SupportingDocument_2_ComplementOfInformation, Original_ncts_SupportingDocument_3_Type, Original_ncts_SupportingDocument_3_ReferenceNumber, Original_ncts_SupportingDocument_3_DocumentLineItemNumber, Original_ncts_SupportingDocument_3_ComplementOfInformation, Original_ncts_SupportingDocument_4_Type, Original_ncts_SupportingDocument_4_ReferenceNumber, Original_ncts_SupportingDocument_4_DocumentLineItemNumber, Original_ncts_SupportingDocument_4_ComplementOfInformation, Original_ncts_SupportingDocument_5_Type, Original_ncts_SupportingDocument_5_ReferenceNumber, Original_ncts_SupportingDocument_5_DocumentLineItemNumber, Original_ncts_SupportingDocument_5_ComplementOfInformation, Original_ncts_SupportingDocument_6_Type, Original_ncts_SupportingDocument_6_ReferenceNumber, Original_ncts_SupportingDocument_6_DocumentLineItemNumber, Original_ncts_SupportingDocument_6_ComplementOfInformation, Original_ncts_SupportingDocument_7_Type, Original_ncts_SupportingDocument_7_ReferenceNumber, Original_ncts_SupportingDocument_7_DocumentLineItemNumber, Original_ncts_SupportingDocument_7_ComplementOfInformation, Original_ncts_SupportingDocument_8_Type, Original_ncts_SupportingDocument_8_ReferenceNumber, Original_ncts_SupportingDocument_8_DocumentLineItemNumber, Original_ncts_SupportingDocument_8_ComplementOfInformation, Original_ncts_SupportingDocument_9_Type, Original_ncts_SupportingDocument_9_ReferenceNumber, Original_ncts_SupportingDocument_9_DocumentLineItemNumber, Original_ncts_SupportingDocument_9_ComplementOfInformation, Original_ncts_PreviousDocument_1_Type, Original_ncts_PreviousDocument_1_ReferenceNumber, Original_ncts_PreviousDocument_1_ComplementOfInformation, Original_ncts_PreviousDocument_2_Type, Original_ncts_PreviousDocument_2_ReferenceNumber, Original_ncts_PreviousDocument_2_ComplementOfInformation, Original_ncts_PreviousDocument_3_Type, Original_ncts_PreviousDocument_3_ReferenceNumber, Original_ncts_PreviousDocument_3_ComplementOfInformation, Original_ncts_PreviousDocument_4_Type, Original_ncts_PreviousDocument_4_ReferenceNumber, Original_ncts_PreviousDocument_4_ComplementOfInformation, Original_ncts_PreviousDocument_5_Type, Original_ncts_PreviousDocument_5_ReferenceNumber, Original_ncts_PreviousDocument_5_ComplementOfInformation, Original_ncts_PreviousDocument_6_Type, Original_ncts_PreviousDocument_6_ReferenceNumber, Original_ncts_PreviousDocument_6_ComplementOfInformation, Original_ncts_PreviousDocument_7_Type, Original_ncts_PreviousDocument_7_ReferenceNumber, Original_ncts_PreviousDocument_7_ComplementOfInformation, Original_ncts_PreviousDocument_8_Type, Original_ncts_PreviousDocument_8_ReferenceNumber, Original_ncts_PreviousDocument_8_ComplementOfInformation, Original_ncts_PreviousDocument_9_Type, Original_ncts_PreviousDocument_9_ReferenceNumber, Original_ncts_PreviousDocument_9_ComplementOfInformation, Original_ncts_TransportDocument_1_Type, Original_ncts_TransportDocument_1_ReferenceNumber, Original_ncts_TransportDocument_2_Type, Original_ncts_TransportDocument_2_ReferenceNumber, Original_ncts_TransportDocument_3_Type, Original_ncts_TransportDocument_3_ReferenceNumber, Original_ncts_TransportDocument_4_Type, Original_ncts_TransportDocument_4_ReferenceNumber, Original_ncts_TransportDocument_5_Type, Original_ncts_TransportDocument_5_ReferenceNumber, Original_ncts_TransportDocument_6_Type, Original_ncts_TransportDocument_6_ReferenceNumber, Original_ncts_TransportDocument_7_Type, Original_ncts_TransportDocument_7_ReferenceNumber, Original_ncts_TransportDocument_8_Type, Original_ncts_TransportDocument_8_ReferenceNumber, Original_ncts_TransportDocument_9_Type, Original_ncts_TransportDocument_9_ReferenceNumber, Original_ncts_AdditionalReference_1_Type, Original_ncts_AdditionalReference_1_ReferenceNumber, Original_ncts_AdditionalReference_2_Type, Original_ncts_AdditionalReference_2_ReferenceNumber, Original_ncts_AdditionalReference_3_Type, Original_ncts_AdditionalReference_3_ReferenceNumber, Original_ncts_AdditionalReference_4_Type, Original_ncts_AdditionalReference_4_ReferenceNumber, Original_ncts_AdditionalReference_5_Type, Original_ncts_AdditionalReference_5_ReferenceNumber, Original_ncts_AdditionalReference_6_Type, Original_ncts_AdditionalReference_6_ReferenceNumber, Original_ncts_AdditionalReference_7_Type, Original_ncts_AdditionalReference_7_ReferenceNumber, Original_ncts_AdditionalReference_8_Type, Original_ncts_AdditionalReference_8_ReferenceNumber, Original_ncts_AdditionalReference_9_Type, Original_ncts_AdditionalReference_9_ReferenceNumber, Original_ncts_AdditionalInformation_1_Code, Original_ncts_AdditionalInformation_1_Text, Original_ncts_AdditionalInformation_2_Code, Original_ncts_AdditionalInformation_2_Text, Original_ncts_AdditionalInformation_3_Code, Original_ncts_AdditionalInformation_3_Text, Original_ncts_AdditionalInformation_4_Code, Original_ncts_AdditionalInformation_4_Text, Original_ncts_AdditionalInformation_5_Code, Original_ncts_AdditionalInformation_5_Text, Original_ncts_AdditionalInformation_6_Code, Original_ncts_AdditionalInformation_6_Text, Original_ncts_AdditionalInformation_7_Code, Original_ncts_AdditionalInformation_7_Text, Original_ncts_AdditionalInformation_8_Code, Original_ncts_AdditionalInformation_8_Text, Original_ncts_AdditionalInformation_9_Code, Original_ncts_AdditionalInformation_9_Text, Original_ncts_AUTOIMPIndicator, Original_ncts_Stammreferenz, Original_ncts_ModeOfTransportAtTheBorder, Original_ncts_Eroeffnung, Original_ncts_Ankunft, Original_ncts_Erledigung, Original_ncts_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOut004_GuaranteeTableAdapter 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 = "tblDakosy_NCTSOut004_Guarantee" tableMapping.ColumnMappings.Add("nctsGRT_Id", "nctsGRT_Id") tableMapping.ColumnMappings.Add("nctsGRT_NctsId", "nctsGRT_NctsId") tableMapping.ColumnMappings.Add("nctsGRT_Type", "nctsGRT_Type") tableMapping.ColumnMappings.Add("nctsGRT_OtherGuaranteeReference", "nctsGRT_OtherGuaranteeReference") tableMapping.ColumnMappings.Add("nctsGRT_Currency", "nctsGRT_Currency") tableMapping.ColumnMappings.Add("nctsGRT_AmountToBeCovered", "nctsGRT_AmountToBeCovered") tableMapping.ColumnMappings.Add("nctsGRT_GRN", "nctsGRT_GRN") tableMapping.ColumnMappings.Add("nctsGRT_AccessCode", "nctsGRT_AccessCode") tableMapping.ColumnMappings.Add("nctsGRT_AccountName", "nctsGRT_AccountName") tableMapping.ColumnMappings.Add("nctsGRT_GoodsValue", "nctsGRT_GoodsValue") tableMapping.ColumnMappings.Add("nctsGRT_CurrencyOfGoodsValue", "nctsGRT_CurrencyOfGoodsValue") tableMapping.ColumnMappings.Add("nctsGRT_FractionOfGoodsValue", "nctsGRT_FractionOfGoodsValue") tableMapping.ColumnMappings.Add("nctsGRT_CurrencyExchangeRateCustoms", "nctsGRT_CurrencyExchangeRateCustoms") tableMapping.ColumnMappings.Add("nctsGRT_CurrencyExchangeRateAccount", "nctsGRT_CurrencyExchangeRateAccount") tableMapping.ColumnMappings.Add("nctsGRT_ExchangeDateCustoms", "nctsGRT_ExchangeDateCustoms") tableMapping.ColumnMappings.Add("nctsGRT_ExchangeDateAccount", "nctsGRT_ExchangeDateAccount") tableMapping.ColumnMappings.Add("nctsGRT_CurrencyExchangeRateTypeCustoms", "nctsGRT_CurrencyExchangeRateTypeCustoms") tableMapping.ColumnMappings.Add("nctsGRT_CurrencyExchangeRateTypeAccount", "nctsGRT_CurrencyExchangeRateTypeAccount") tableMapping.ColumnMappings.Add("nctsGRT_CalculateGoodsValueFromGoodsItems", "nctsGRT_CalculateGoodsValueFromGoodsItems") tableMapping.ColumnMappings.Add("nctsGRT_Commentary", "nctsGRT_Commentary") 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].[tblDakosy_NCTSOut004_Guarantee] WHERE (([nctsGRT_Id] = @Origin"& _ "al_nctsGRT_Id) AND ([nctsGRT_NctsId] = @Original_nctsGRT_NctsId) AND ((@IsNull_n"& _ "ctsGRT_Type = 1 AND [nctsGRT_Type] IS NULL) OR ([nctsGRT_Type] = @Original_nctsG"& _ "RT_Type)) AND ((@IsNull_nctsGRT_OtherGuaranteeReference = 1 AND [nctsGRT_OtherGu"& _ "aranteeReference] IS NULL) OR ([nctsGRT_OtherGuaranteeReference] = @Original_nct"& _ "sGRT_OtherGuaranteeReference)) AND ((@IsNull_nctsGRT_Currency = 1 AND [nctsGRT_C"& _ "urrency] IS NULL) OR ([nctsGRT_Currency] = @Original_nctsGRT_Currency)) AND ((@I"& _ "sNull_nctsGRT_AmountToBeCovered = 1 AND [nctsGRT_AmountToBeCovered] IS NULL) OR "& _ "([nctsGRT_AmountToBeCovered] = @Original_nctsGRT_AmountToBeCovered)) AND ((@IsNu"& _ "ll_nctsGRT_GRN = 1 AND [nctsGRT_GRN] IS NULL) OR ([nctsGRT_GRN] = @Original_ncts"& _ "GRT_GRN)) AND ((@IsNull_nctsGRT_AccessCode = 1 AND [nctsGRT_AccessCode] IS NULL)"& _ " OR ([nctsGRT_AccessCode] = @Original_nctsGRT_AccessCode)) AND ((@IsNull_nctsGRT"& _ "_AccountName = 1 AND [nctsGRT_AccountName] IS NULL) OR ([nctsGRT_AccountName] = "& _ "@Original_nctsGRT_AccountName)) AND ((@IsNull_nctsGRT_GoodsValue = 1 AND [nctsGR"& _ "T_GoodsValue] IS NULL) OR ([nctsGRT_GoodsValue] = @Original_nctsGRT_GoodsValue))"& _ " AND ((@IsNull_nctsGRT_CurrencyOfGoodsValue = 1 AND [nctsGRT_CurrencyOfGoodsValu"& _ "e] IS NULL) OR ([nctsGRT_CurrencyOfGoodsValue] = @Original_nctsGRT_CurrencyOfGoo"& _ "dsValue)) AND ((@IsNull_nctsGRT_FractionOfGoodsValue = 1 AND [nctsGRT_FractionOf"& _ "GoodsValue] IS NULL) OR ([nctsGRT_FractionOfGoodsValue] = @Original_nctsGRT_Frac"& _ "tionOfGoodsValue)) AND ((@IsNull_nctsGRT_CurrencyExchangeRateCustoms = 1 AND [nc"& _ "tsGRT_CurrencyExchangeRateCustoms] IS NULL) OR ([nctsGRT_CurrencyExchangeRateCus"& _ "toms] = @Original_nctsGRT_CurrencyExchangeRateCustoms)) AND ((@IsNull_nctsGRT_Cu"& _ "rrencyExchangeRateAccount = 1 AND [nctsGRT_CurrencyExchangeRateAccount] IS NULL)"& _ " OR ([nctsGRT_CurrencyExchangeRateAccount] = @Original_nctsGRT_CurrencyExchangeR"& _ "ateAccount)) AND ((@IsNull_nctsGRT_ExchangeDateCustoms = 1 AND [nctsGRT_Exchange"& _ "DateCustoms] IS NULL) OR ([nctsGRT_ExchangeDateCustoms] = @Original_nctsGRT_Exch"& _ "angeDateCustoms)) AND ((@IsNull_nctsGRT_ExchangeDateAccount = 1 AND [nctsGRT_Exc"& _ "hangeDateAccount] IS NULL) OR ([nctsGRT_ExchangeDateAccount] = @Original_nctsGRT"& _ "_ExchangeDateAccount)) AND ((@IsNull_nctsGRT_CurrencyExchangeRateTypeCustoms = 1"& _ " AND [nctsGRT_CurrencyExchangeRateTypeCustoms] IS NULL) OR ([nctsGRT_CurrencyExc"& _ "hangeRateTypeCustoms] = @Original_nctsGRT_CurrencyExchangeRateTypeCustoms)) AND "& _ "((@IsNull_nctsGRT_CurrencyExchangeRateTypeAccount = 1 AND [nctsGRT_CurrencyExcha"& _ "ngeRateTypeAccount] IS NULL) OR ([nctsGRT_CurrencyExchangeRateTypeAccount] = @Or"& _ "iginal_nctsGRT_CurrencyExchangeRateTypeAccount)) AND ((@IsNull_nctsGRT_Calculate"& _ "GoodsValueFromGoodsItems = 1 AND [nctsGRT_CalculateGoodsValueFromGoodsItems] IS "& _ "NULL) OR ([nctsGRT_CalculateGoodsValueFromGoodsItems] = @Original_nctsGRT_Calcul"& _ "ateGoodsValueFromGoodsItems)) AND ((@IsNull_nctsGRT_Commentary = 1 AND [nctsGRT_"& _ "Commentary] IS NULL) OR ([nctsGRT_Commentary] = @Original_nctsGRT_Commentary)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_OtherGuaranteeReference", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_OtherGuaranteeReference", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_OtherGuaranteeReference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_OtherGuaranteeReference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_Currency", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Currency", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_Currency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Currency", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_AmountToBeCovered", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AmountToBeCovered", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_AmountToBeCovered", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsGRT_AmountToBeCovered", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_GRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_GRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_GRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_AccessCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccessCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_AccessCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccessCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_AccountName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccountName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_AccountName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccountName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_GoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_GoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_GoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsGRT_GoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_FractionOfGoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_FractionOfGoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "nctsGRT_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 5, "nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 5, "nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_ExchangeDateCustoms", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateCustoms", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_ExchangeDateCustoms", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateCustoms", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_ExchangeDateAccount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateAccount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_ExchangeDateAccount", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_Commentary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Commentary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_Commentary", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Commentary", 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].[tblDakosy_NCTSOut004_Guarantee] ([nctsGRT_NctsId], [nctsGRT_Ty"& _ "pe], [nctsGRT_OtherGuaranteeReference], [nctsGRT_Currency], [nctsGRT_AmountToBeC"& _ "overed], [nctsGRT_GRN], [nctsGRT_AccessCode], [nctsGRT_AccountName], [nctsGRT_Go"& _ "odsValue], [nctsGRT_CurrencyOfGoodsValue], [nctsGRT_FractionOfGoodsValue], [ncts"& _ "GRT_CurrencyExchangeRateCustoms], [nctsGRT_CurrencyExchangeRateAccount], [nctsGR"& _ "T_ExchangeDateCustoms], [nctsGRT_ExchangeDateAccount], [nctsGRT_CurrencyExchange"& _ "RateTypeCustoms], [nctsGRT_CurrencyExchangeRateTypeAccount], [nctsGRT_CalculateG"& _ "oodsValueFromGoodsItems], [nctsGRT_Commentary]) VALUES (@nctsGRT_NctsId, @nctsGR"& _ "T_Type, @nctsGRT_OtherGuaranteeReference, @nctsGRT_Currency, @nctsGRT_AmountToBe"& _ "Covered, @nctsGRT_GRN, @nctsGRT_AccessCode, @nctsGRT_AccountName, @nctsGRT_Goods"& _ "Value, @nctsGRT_CurrencyOfGoodsValue, @nctsGRT_FractionOfGoodsValue, @nctsGRT_Cu"& _ "rrencyExchangeRateCustoms, @nctsGRT_CurrencyExchangeRateAccount, @nctsGRT_Exchan"& _ "geDateCustoms, @nctsGRT_ExchangeDateAccount, @nctsGRT_CurrencyExchangeRateTypeCu"& _ "stoms, @nctsGRT_CurrencyExchangeRateTypeAccount, @nctsGRT_CalculateGoodsValueFro"& _ "mGoodsItems, @nctsGRT_Commentary);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsGRT_Id, nctsGRT_NctsId, nctsGRT_T"& _ "ype, nctsGRT_OtherGuaranteeReference, nctsGRT_Currency, nctsGRT_AmountToBeCovere"& _ "d, nctsGRT_GRN, nctsGRT_AccessCode, nctsGRT_AccountName, nctsGRT_GoodsValue, nct"& _ "sGRT_CurrencyOfGoodsValue, nctsGRT_FractionOfGoodsValue, nctsGRT_CurrencyExchang"& _ "eRateCustoms, nctsGRT_CurrencyExchangeRateAccount, nctsGRT_ExchangeDateCustoms, "& _ "nctsGRT_ExchangeDateAccount, nctsGRT_CurrencyExchangeRateTypeCustoms, nctsGRT_Cu"& _ "rrencyExchangeRateTypeAccount, nctsGRT_CalculateGoodsValueFromGoodsItems, nctsGR"& _ "T_Commentary FROM tblDakosy_NCTSOut004_Guarantee WHERE (nctsGRT_Id = SCOPE_IDENT"& _ "ITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_OtherGuaranteeReference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_OtherGuaranteeReference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_Currency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Currency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_AmountToBeCovered", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsGRT_AmountToBeCovered", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_AccessCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccessCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_AccountName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccountName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_GoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsGRT_GoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_FractionOfGoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "nctsGRT_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 5, "nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 5, "nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_ExchangeDateCustoms", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateCustoms", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_ExchangeDateAccount", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_Commentary", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Commentary", 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].[tblDakosy_NCTSOut004_Guarantee] SET [nctsGRT_NctsId] = @nctsGRT_Nct"& _ "sId, [nctsGRT_Type] = @nctsGRT_Type, [nctsGRT_OtherGuaranteeReference] = @nctsGR"& _ "T_OtherGuaranteeReference, [nctsGRT_Currency] = @nctsGRT_Currency, [nctsGRT_Amou"& _ "ntToBeCovered] = @nctsGRT_AmountToBeCovered, [nctsGRT_GRN] = @nctsGRT_GRN, [ncts"& _ "GRT_AccessCode] = @nctsGRT_AccessCode, [nctsGRT_AccountName] = @nctsGRT_AccountN"& _ "ame, [nctsGRT_GoodsValue] = @nctsGRT_GoodsValue, [nctsGRT_CurrencyOfGoodsValue] "& _ "= @nctsGRT_CurrencyOfGoodsValue, [nctsGRT_FractionOfGoodsValue] = @nctsGRT_Fract"& _ "ionOfGoodsValue, [nctsGRT_CurrencyExchangeRateCustoms] = @nctsGRT_CurrencyExchan"& _ "geRateCustoms, [nctsGRT_CurrencyExchangeRateAccount] = @nctsGRT_CurrencyExchange"& _ "RateAccount, [nctsGRT_ExchangeDateCustoms] = @nctsGRT_ExchangeDateCustoms, [ncts"& _ "GRT_ExchangeDateAccount] = @nctsGRT_ExchangeDateAccount, [nctsGRT_CurrencyExchan"& _ "geRateTypeCustoms] = @nctsGRT_CurrencyExchangeRateTypeCustoms, [nctsGRT_Currency"& _ "ExchangeRateTypeAccount] = @nctsGRT_CurrencyExchangeRateTypeAccount, [nctsGRT_Ca"& _ "lculateGoodsValueFromGoodsItems] = @nctsGRT_CalculateGoodsValueFromGoodsItems, ["& _ "nctsGRT_Commentary] = @nctsGRT_Commentary WHERE (([nctsGRT_Id] = @Original_nctsG"& _ "RT_Id) AND ([nctsGRT_NctsId] = @Original_nctsGRT_NctsId) AND ((@IsNull_nctsGRT_T"& _ "ype = 1 AND [nctsGRT_Type] IS NULL) OR ([nctsGRT_Type] = @Original_nctsGRT_Type)"& _ ") AND ((@IsNull_nctsGRT_OtherGuaranteeReference = 1 AND [nctsGRT_OtherGuaranteeR"& _ "eference] IS NULL) OR ([nctsGRT_OtherGuaranteeReference] = @Original_nctsGRT_Oth"& _ "erGuaranteeReference)) AND ((@IsNull_nctsGRT_Currency = 1 AND [nctsGRT_Currency]"& _ " IS NULL) OR ([nctsGRT_Currency] = @Original_nctsGRT_Currency)) AND ((@IsNull_nc"& _ "tsGRT_AmountToBeCovered = 1 AND [nctsGRT_AmountToBeCovered] IS NULL) OR ([nctsGR"& _ "T_AmountToBeCovered] = @Original_nctsGRT_AmountToBeCovered)) AND ((@IsNull_nctsG"& _ "RT_GRN = 1 AND [nctsGRT_GRN] IS NULL) OR ([nctsGRT_GRN] = @Original_nctsGRT_GRN)"& _ ") AND ((@IsNull_nctsGRT_AccessCode = 1 AND [nctsGRT_AccessCode] IS NULL) OR ([nc"& _ "tsGRT_AccessCode] = @Original_nctsGRT_AccessCode)) AND ((@IsNull_nctsGRT_Account"& _ "Name = 1 AND [nctsGRT_AccountName] IS NULL) OR ([nctsGRT_AccountName] = @Origina"& _ "l_nctsGRT_AccountName)) AND ((@IsNull_nctsGRT_GoodsValue = 1 AND [nctsGRT_GoodsV"& _ "alue] IS NULL) OR ([nctsGRT_GoodsValue] = @Original_nctsGRT_GoodsValue)) AND ((@"& _ "IsNull_nctsGRT_CurrencyOfGoodsValue = 1 AND [nctsGRT_CurrencyOfGoodsValue] IS NU"& _ "LL) OR ([nctsGRT_CurrencyOfGoodsValue] = @Original_nctsGRT_CurrencyOfGoodsValue)"& _ ") AND ((@IsNull_nctsGRT_FractionOfGoodsValue = 1 AND [nctsGRT_FractionOfGoodsVal"& _ "ue] IS NULL) OR ([nctsGRT_FractionOfGoodsValue] = @Original_nctsGRT_FractionOfGo"& _ "odsValue)) AND ((@IsNull_nctsGRT_CurrencyExchangeRateCustoms = 1 AND [nctsGRT_Cu"& _ "rrencyExchangeRateCustoms] IS NULL) OR ([nctsGRT_CurrencyExchangeRateCustoms] = "& _ "@Original_nctsGRT_CurrencyExchangeRateCustoms)) AND ((@IsNull_nctsGRT_CurrencyEx"& _ "changeRateAccount = 1 AND [nctsGRT_CurrencyExchangeRateAccount] IS NULL) OR ([nc"& _ "tsGRT_CurrencyExchangeRateAccount] = @Original_nctsGRT_CurrencyExchangeRateAccou"& _ "nt)) AND ((@IsNull_nctsGRT_ExchangeDateCustoms = 1 AND [nctsGRT_ExchangeDateCust"& _ "oms] IS NULL) OR ([nctsGRT_ExchangeDateCustoms] = @Original_nctsGRT_ExchangeDate"& _ "Customs)) AND ((@IsNull_nctsGRT_ExchangeDateAccount = 1 AND [nctsGRT_ExchangeDat"& _ "eAccount] IS NULL) OR ([nctsGRT_ExchangeDateAccount] = @Original_nctsGRT_Exchang"& _ "eDateAccount)) AND ((@IsNull_nctsGRT_CurrencyExchangeRateTypeCustoms = 1 AND [nc"& _ "tsGRT_CurrencyExchangeRateTypeCustoms] IS NULL) OR ([nctsGRT_CurrencyExchangeRat"& _ "eTypeCustoms] = @Original_nctsGRT_CurrencyExchangeRateTypeCustoms)) AND ((@IsNul"& _ "l_nctsGRT_CurrencyExchangeRateTypeAccount = 1 AND [nctsGRT_CurrencyExchangeRateT"& _ "ypeAccount] IS NULL) OR ([nctsGRT_CurrencyExchangeRateTypeAccount] = @Original_n"& _ "ctsGRT_CurrencyExchangeRateTypeAccount)) AND ((@IsNull_nctsGRT_CalculateGoodsVal"& _ "ueFromGoodsItems = 1 AND [nctsGRT_CalculateGoodsValueFromGoodsItems] IS NULL) OR"& _ " ([nctsGRT_CalculateGoodsValueFromGoodsItems] = @Original_nctsGRT_CalculateGoods"& _ "ValueFromGoodsItems)) AND ((@IsNull_nctsGRT_Commentary = 1 AND [nctsGRT_Commenta"& _ "ry] IS NULL) OR ([nctsGRT_Commentary] = @Original_nctsGRT_Commentary)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ " nctsGRT_Id, nctsGRT_NctsId, nctsGRT_Type, nctsGRT_OtherGuaranteeReference, ncts"& _ "GRT_Currency, nctsGRT_AmountToBeCovered, nctsGRT_GRN, nctsGRT_AccessCode, nctsGR"& _ "T_AccountName, nctsGRT_GoodsValue, nctsGRT_CurrencyOfGoodsValue, nctsGRT_Fractio"& _ "nOfGoodsValue, nctsGRT_CurrencyExchangeRateCustoms, nctsGRT_CurrencyExchangeRate"& _ "Account, nctsGRT_ExchangeDateCustoms, nctsGRT_ExchangeDateAccount, nctsGRT_Curre"& _ "ncyExchangeRateTypeCustoms, nctsGRT_CurrencyExchangeRateTypeAccount, nctsGRT_Cal"& _ "culateGoodsValueFromGoodsItems, nctsGRT_Commentary FROM tblDakosy_NCTSOut004_Gua"& _ "rantee WHERE (nctsGRT_Id = @nctsGRT_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_OtherGuaranteeReference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_OtherGuaranteeReference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_Currency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Currency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_AmountToBeCovered", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsGRT_AmountToBeCovered", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_AccessCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccessCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_AccountName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccountName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_GoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsGRT_GoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_FractionOfGoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "nctsGRT_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 5, "nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 5, "nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_ExchangeDateCustoms", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateCustoms", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_ExchangeDateAccount", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_Commentary", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Commentary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_OtherGuaranteeReference", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_OtherGuaranteeReference", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_OtherGuaranteeReference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_OtherGuaranteeReference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_Currency", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Currency", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_Currency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Currency", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_AmountToBeCovered", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AmountToBeCovered", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_AmountToBeCovered", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsGRT_AmountToBeCovered", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_GRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_GRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_GRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_AccessCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccessCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_AccessCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccessCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_AccountName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccountName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_AccountName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_AccountName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_GoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_GoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_GoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsGRT_GoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_FractionOfGoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_FractionOfGoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "nctsGRT_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 5, "nctsGRT_CurrencyExchangeRateCustoms", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 5, "nctsGRT_CurrencyExchangeRateAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_ExchangeDateCustoms", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateCustoms", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_ExchangeDateCustoms", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateCustoms", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_ExchangeDateAccount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateAccount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_ExchangeDateAccount", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_ExchangeDateAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeCustoms", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CurrencyExchangeRateTypeAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_CalculateGoodsValueFromGoodsItems", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsGRT_Commentary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Commentary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsGRT_Commentary", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Commentary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsGRT_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsGRT_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsGRT_Id, nctsGRT_NctsId, nctsGRT_Type, nctsGRT_OtherGuaranteeReference,"& _ " nctsGRT_Currency, nctsGRT_AmountToBeCovered, nctsGRT_GRN, nctsGRT_AccessCode, n"& _ "ctsGRT_AccountName, nctsGRT_GoodsValue, nctsGRT_CurrencyOfGoodsValue, nctsGRT_Fr"& _ "actionOfGoodsValue, nctsGRT_CurrencyExchangeRateCustoms, nctsGRT_CurrencyExchang"& _ "eRateAccount, nctsGRT_ExchangeDateCustoms, nctsGRT_ExchangeDateAccount, nctsGRT_"& _ "CurrencyExchangeRateTypeCustoms, nctsGRT_CurrencyExchangeRateTypeAccount, nctsGR"& _ "T_CalculateGoodsValueFromGoodsItems, nctsGRT_Commentary FROM dbo.tblDakosy_NCTSO"& _ "ut004_Guarantee" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004_GuaranteeDataTable) 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 VERAGDataSet.tblDakosy_NCTSOut004_GuaranteeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOut004_GuaranteeDataTable = New VERAGDataSet.tblDakosy_NCTSOut004_GuaranteeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004_GuaranteeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut004_Guarantee") 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_nctsGRT_Id As Integer, _ ByVal Original_nctsGRT_NctsId As Integer, _ ByVal Original_nctsGRT_Type As String, _ ByVal Original_nctsGRT_OtherGuaranteeReference As String, _ ByVal Original_nctsGRT_Currency As String, _ ByVal Original_nctsGRT_AmountToBeCovered As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_GRN As String, _ ByVal Original_nctsGRT_AccessCode As String, _ ByVal Original_nctsGRT_AccountName As String, _ ByVal Original_nctsGRT_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_CurrencyOfGoodsValue As String, _ ByVal Original_nctsGRT_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_CurrencyExchangeRateCustoms As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_CurrencyExchangeRateAccount As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_ExchangeDateCustoms As Global.System.Nullable(Of Date), _ ByVal Original_nctsGRT_ExchangeDateAccount As Global.System.Nullable(Of Date), _ ByVal Original_nctsGRT_CurrencyExchangeRateTypeCustoms As String, _ ByVal Original_nctsGRT_CurrencyExchangeRateTypeAccount As String, _ ByVal Original_nctsGRT_CalculateGoodsValueFromGoodsItems As String, _ ByVal Original_nctsGRT_Commentary As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsGRT_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsGRT_NctsId,Integer) If (Original_nctsGRT_Type 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_nctsGRT_Type,String) End If If (Original_nctsGRT_OtherGuaranteeReference 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_nctsGRT_OtherGuaranteeReference,String) End If If (Original_nctsGRT_Currency 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_nctsGRT_Currency,String) End If If (Original_nctsGRT_AmountToBeCovered.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_nctsGRT_AmountToBeCovered.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_GRN 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_nctsGRT_GRN,String) End If If (Original_nctsGRT_AccessCode 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_nctsGRT_AccessCode,String) End If If (Original_nctsGRT_AccountName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_nctsGRT_AccountName,String) End If If (Original_nctsGRT_GoodsValue.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_nctsGRT_GoodsValue.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_CurrencyOfGoodsValue 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_nctsGRT_CurrencyOfGoodsValue,String) End If If (Original_nctsGRT_FractionOfGoodsValue.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_nctsGRT_FractionOfGoodsValue.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_CurrencyExchangeRateCustoms.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_nctsGRT_CurrencyExchangeRateCustoms.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_CurrencyExchangeRateAccount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_nctsGRT_CurrencyExchangeRateAccount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_ExchangeDateCustoms.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_nctsGRT_ExchangeDateCustoms.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_ExchangeDateAccount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_nctsGRT_ExchangeDateAccount.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_CurrencyExchangeRateTypeCustoms Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_nctsGRT_CurrencyExchangeRateTypeCustoms,String) End If If (Original_nctsGRT_CurrencyExchangeRateTypeAccount Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_nctsGRT_CurrencyExchangeRateTypeAccount,String) End If If (Original_nctsGRT_CalculateGoodsValueFromGoodsItems Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_nctsGRT_CalculateGoodsValueFromGoodsItems,String) End If If (Original_nctsGRT_Commentary Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_nctsGRT_Commentary,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 nctsGRT_NctsId As Integer, _ ByVal nctsGRT_Type As String, _ ByVal nctsGRT_OtherGuaranteeReference As String, _ ByVal nctsGRT_Currency As String, _ ByVal nctsGRT_AmountToBeCovered As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_GRN As String, _ ByVal nctsGRT_AccessCode As String, _ ByVal nctsGRT_AccountName As String, _ ByVal nctsGRT_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_CurrencyOfGoodsValue As String, _ ByVal nctsGRT_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_CurrencyExchangeRateCustoms As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_CurrencyExchangeRateAccount As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_ExchangeDateCustoms As Global.System.Nullable(Of Date), _ ByVal nctsGRT_ExchangeDateAccount As Global.System.Nullable(Of Date), _ ByVal nctsGRT_CurrencyExchangeRateTypeCustoms As String, _ ByVal nctsGRT_CurrencyExchangeRateTypeAccount As String, _ ByVal nctsGRT_CalculateGoodsValueFromGoodsItems As String, _ ByVal nctsGRT_Commentary As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsGRT_NctsId,Integer) If (nctsGRT_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsGRT_Type,String) End If If (nctsGRT_OtherGuaranteeReference Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsGRT_OtherGuaranteeReference,String) End If If (nctsGRT_Currency Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsGRT_Currency,String) End If If (nctsGRT_AmountToBeCovered.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsGRT_AmountToBeCovered.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (nctsGRT_GRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsGRT_GRN,String) End If If (nctsGRT_AccessCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(nctsGRT_AccessCode,String) End If If (nctsGRT_AccountName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(nctsGRT_AccountName,String) End If If (nctsGRT_GoodsValue.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(nctsGRT_GoodsValue.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (nctsGRT_CurrencyOfGoodsValue Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(nctsGRT_CurrencyOfGoodsValue,String) End If If (nctsGRT_FractionOfGoodsValue.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(nctsGRT_FractionOfGoodsValue.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (nctsGRT_CurrencyExchangeRateCustoms.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(nctsGRT_CurrencyExchangeRateCustoms.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (nctsGRT_CurrencyExchangeRateAccount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(nctsGRT_CurrencyExchangeRateAccount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (nctsGRT_ExchangeDateCustoms.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(nctsGRT_ExchangeDateCustoms.Value,Date) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (nctsGRT_ExchangeDateAccount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(nctsGRT_ExchangeDateAccount.Value,Date) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (nctsGRT_CurrencyExchangeRateTypeCustoms Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(nctsGRT_CurrencyExchangeRateTypeCustoms,String) End If If (nctsGRT_CurrencyExchangeRateTypeAccount Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(nctsGRT_CurrencyExchangeRateTypeAccount,String) End If If (nctsGRT_CalculateGoodsValueFromGoodsItems Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(nctsGRT_CalculateGoodsValueFromGoodsItems,String) End If If (nctsGRT_Commentary Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(nctsGRT_Commentary,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 nctsGRT_NctsId As Integer, _ ByVal nctsGRT_Type As String, _ ByVal nctsGRT_OtherGuaranteeReference As String, _ ByVal nctsGRT_Currency As String, _ ByVal nctsGRT_AmountToBeCovered As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_GRN As String, _ ByVal nctsGRT_AccessCode As String, _ ByVal nctsGRT_AccountName As String, _ ByVal nctsGRT_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_CurrencyOfGoodsValue As String, _ ByVal nctsGRT_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_CurrencyExchangeRateCustoms As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_CurrencyExchangeRateAccount As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_ExchangeDateCustoms As Global.System.Nullable(Of Date), _ ByVal nctsGRT_ExchangeDateAccount As Global.System.Nullable(Of Date), _ ByVal nctsGRT_CurrencyExchangeRateTypeCustoms As String, _ ByVal nctsGRT_CurrencyExchangeRateTypeAccount As String, _ ByVal nctsGRT_CalculateGoodsValueFromGoodsItems As String, _ ByVal nctsGRT_Commentary As String, _ ByVal Original_nctsGRT_Id As Integer, _ ByVal Original_nctsGRT_NctsId As Integer, _ ByVal Original_nctsGRT_Type As String, _ ByVal Original_nctsGRT_OtherGuaranteeReference As String, _ ByVal Original_nctsGRT_Currency As String, _ ByVal Original_nctsGRT_AmountToBeCovered As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_GRN As String, _ ByVal Original_nctsGRT_AccessCode As String, _ ByVal Original_nctsGRT_AccountName As String, _ ByVal Original_nctsGRT_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_CurrencyOfGoodsValue As String, _ ByVal Original_nctsGRT_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_CurrencyExchangeRateCustoms As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_CurrencyExchangeRateAccount As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_ExchangeDateCustoms As Global.System.Nullable(Of Date), _ ByVal Original_nctsGRT_ExchangeDateAccount As Global.System.Nullable(Of Date), _ ByVal Original_nctsGRT_CurrencyExchangeRateTypeCustoms As String, _ ByVal Original_nctsGRT_CurrencyExchangeRateTypeAccount As String, _ ByVal Original_nctsGRT_CalculateGoodsValueFromGoodsItems As String, _ ByVal Original_nctsGRT_Commentary As String, _ ByVal nctsGRT_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsGRT_NctsId,Integer) If (nctsGRT_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsGRT_Type,String) End If If (nctsGRT_OtherGuaranteeReference Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsGRT_OtherGuaranteeReference,String) End If If (nctsGRT_Currency Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsGRT_Currency,String) End If If (nctsGRT_AmountToBeCovered.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsGRT_AmountToBeCovered.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (nctsGRT_GRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsGRT_GRN,String) End If If (nctsGRT_AccessCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nctsGRT_AccessCode,String) End If If (nctsGRT_AccountName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(nctsGRT_AccountName,String) End If If (nctsGRT_GoodsValue.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(nctsGRT_GoodsValue.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (nctsGRT_CurrencyOfGoodsValue Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(nctsGRT_CurrencyOfGoodsValue,String) End If If (nctsGRT_FractionOfGoodsValue.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(nctsGRT_FractionOfGoodsValue.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (nctsGRT_CurrencyExchangeRateCustoms.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(nctsGRT_CurrencyExchangeRateCustoms.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (nctsGRT_CurrencyExchangeRateAccount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(nctsGRT_CurrencyExchangeRateAccount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (nctsGRT_ExchangeDateCustoms.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(nctsGRT_ExchangeDateCustoms.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (nctsGRT_ExchangeDateAccount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(nctsGRT_ExchangeDateAccount.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (nctsGRT_CurrencyExchangeRateTypeCustoms Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(nctsGRT_CurrencyExchangeRateTypeCustoms,String) End If If (nctsGRT_CurrencyExchangeRateTypeAccount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(nctsGRT_CurrencyExchangeRateTypeAccount,String) End If If (nctsGRT_CalculateGoodsValueFromGoodsItems Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(nctsGRT_CalculateGoodsValueFromGoodsItems,String) End If If (nctsGRT_Commentary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(nctsGRT_Commentary,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_nctsGRT_Id,Integer) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_nctsGRT_NctsId,Integer) If (Original_nctsGRT_Type 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_nctsGRT_Type,String) End If If (Original_nctsGRT_OtherGuaranteeReference 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_nctsGRT_OtherGuaranteeReference,String) End If If (Original_nctsGRT_Currency 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_nctsGRT_Currency,String) End If If (Original_nctsGRT_AmountToBeCovered.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_nctsGRT_AmountToBeCovered.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_GRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_nctsGRT_GRN,String) End If If (Original_nctsGRT_AccessCode 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_nctsGRT_AccessCode,String) End If If (Original_nctsGRT_AccountName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_nctsGRT_AccountName,String) End If If (Original_nctsGRT_GoodsValue.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_nctsGRT_GoodsValue.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_CurrencyOfGoodsValue 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_nctsGRT_CurrencyOfGoodsValue,String) End If If (Original_nctsGRT_FractionOfGoodsValue.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_nctsGRT_FractionOfGoodsValue.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_CurrencyExchangeRateCustoms.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_nctsGRT_CurrencyExchangeRateCustoms.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_CurrencyExchangeRateAccount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_nctsGRT_CurrencyExchangeRateAccount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_ExchangeDateCustoms.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_nctsGRT_ExchangeDateCustoms.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_ExchangeDateAccount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_nctsGRT_ExchangeDateAccount.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Original_nctsGRT_CurrencyExchangeRateTypeCustoms Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_nctsGRT_CurrencyExchangeRateTypeCustoms,String) End If If (Original_nctsGRT_CurrencyExchangeRateTypeAccount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_nctsGRT_CurrencyExchangeRateTypeAccount,String) End If If (Original_nctsGRT_CalculateGoodsValueFromGoodsItems Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_nctsGRT_CalculateGoodsValueFromGoodsItems,String) End If If (Original_nctsGRT_Commentary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_nctsGRT_Commentary,String) End If Me.Adapter.UpdateCommand.Parameters(57).Value = CType(nctsGRT_Id,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 nctsGRT_NctsId As Integer, _ ByVal nctsGRT_Type As String, _ ByVal nctsGRT_OtherGuaranteeReference As String, _ ByVal nctsGRT_Currency As String, _ ByVal nctsGRT_AmountToBeCovered As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_GRN As String, _ ByVal nctsGRT_AccessCode As String, _ ByVal nctsGRT_AccountName As String, _ ByVal nctsGRT_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_CurrencyOfGoodsValue As String, _ ByVal nctsGRT_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_CurrencyExchangeRateCustoms As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_CurrencyExchangeRateAccount As Global.System.Nullable(Of Decimal), _ ByVal nctsGRT_ExchangeDateCustoms As Global.System.Nullable(Of Date), _ ByVal nctsGRT_ExchangeDateAccount As Global.System.Nullable(Of Date), _ ByVal nctsGRT_CurrencyExchangeRateTypeCustoms As String, _ ByVal nctsGRT_CurrencyExchangeRateTypeAccount As String, _ ByVal nctsGRT_CalculateGoodsValueFromGoodsItems As String, _ ByVal nctsGRT_Commentary As String, _ ByVal Original_nctsGRT_Id As Integer, _ ByVal Original_nctsGRT_NctsId As Integer, _ ByVal Original_nctsGRT_Type As String, _ ByVal Original_nctsGRT_OtherGuaranteeReference As String, _ ByVal Original_nctsGRT_Currency As String, _ ByVal Original_nctsGRT_AmountToBeCovered As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_GRN As String, _ ByVal Original_nctsGRT_AccessCode As String, _ ByVal Original_nctsGRT_AccountName As String, _ ByVal Original_nctsGRT_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_CurrencyOfGoodsValue As String, _ ByVal Original_nctsGRT_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_CurrencyExchangeRateCustoms As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_CurrencyExchangeRateAccount As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsGRT_ExchangeDateCustoms As Global.System.Nullable(Of Date), _ ByVal Original_nctsGRT_ExchangeDateAccount As Global.System.Nullable(Of Date), _ ByVal Original_nctsGRT_CurrencyExchangeRateTypeCustoms As String, _ ByVal Original_nctsGRT_CurrencyExchangeRateTypeAccount As String, _ ByVal Original_nctsGRT_CalculateGoodsValueFromGoodsItems As String, _ ByVal Original_nctsGRT_Commentary As String) As Integer Return Me.Update(nctsGRT_NctsId, nctsGRT_Type, nctsGRT_OtherGuaranteeReference, nctsGRT_Currency, nctsGRT_AmountToBeCovered, nctsGRT_GRN, nctsGRT_AccessCode, nctsGRT_AccountName, nctsGRT_GoodsValue, nctsGRT_CurrencyOfGoodsValue, nctsGRT_FractionOfGoodsValue, nctsGRT_CurrencyExchangeRateCustoms, nctsGRT_CurrencyExchangeRateAccount, nctsGRT_ExchangeDateCustoms, nctsGRT_ExchangeDateAccount, nctsGRT_CurrencyExchangeRateTypeCustoms, nctsGRT_CurrencyExchangeRateTypeAccount, nctsGRT_CalculateGoodsValueFromGoodsItems, nctsGRT_Commentary, Original_nctsGRT_Id, Original_nctsGRT_NctsId, Original_nctsGRT_Type, Original_nctsGRT_OtherGuaranteeReference, Original_nctsGRT_Currency, Original_nctsGRT_AmountToBeCovered, Original_nctsGRT_GRN, Original_nctsGRT_AccessCode, Original_nctsGRT_AccountName, Original_nctsGRT_GoodsValue, Original_nctsGRT_CurrencyOfGoodsValue, Original_nctsGRT_FractionOfGoodsValue, Original_nctsGRT_CurrencyExchangeRateCustoms, Original_nctsGRT_CurrencyExchangeRateAccount, Original_nctsGRT_ExchangeDateCustoms, Original_nctsGRT_ExchangeDateAccount, Original_nctsGRT_CurrencyExchangeRateTypeCustoms, Original_nctsGRT_CurrencyExchangeRateTypeAccount, Original_nctsGRT_CalculateGoodsValueFromGoodsItems, Original_nctsGRT_Commentary, Original_nctsGRT_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOut004_HouseConsignmentTableAdapter 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 = "tblDakosy_NCTSOut004_HouseConsignment" tableMapping.ColumnMappings.Add("nctsHC_Id", "nctsHC_Id") tableMapping.ColumnMappings.Add("nctsHC_NctsId", "nctsHC_NctsId") tableMapping.ColumnMappings.Add("nctsHC_HouseConsignMentReference", "nctsHC_HouseConsignMentReference") tableMapping.ColumnMappings.Add("nctsHC_CountryOfDispatch", "nctsHC_CountryOfDispatch") tableMapping.ColumnMappings.Add("nctsHC_CountryOfDestination", "nctsHC_CountryOfDestination") tableMapping.ColumnMappings.Add("nctsHC_GrossMass", "nctsHC_GrossMass") tableMapping.ColumnMappings.Add("nctsHC_ReferenceNumberUCR", "nctsHC_ReferenceNumberUCR") tableMapping.ColumnMappings.Add("nctsHC_Consignor_AdressCode", "nctsHC_Consignor_AdressCode") tableMapping.ColumnMappings.Add("nctsHC_Consignor_IdentificationNumber", "nctsHC_Consignor_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_Consignor_SubsidiaryNumber", "nctsHC_Consignor_SubsidiaryNumber") tableMapping.ColumnMappings.Add("nctsHC_Consignor_Name", "nctsHC_Consignor_Name") tableMapping.ColumnMappings.Add("nctsHC_Consignor_StreetNumber", "nctsHC_Consignor_StreetNumber") tableMapping.ColumnMappings.Add("nctsHC_Consignor_City", "nctsHC_Consignor_City") tableMapping.ColumnMappings.Add("nctsHC_Consignor_Postcode", "nctsHC_Consignor_Postcode") tableMapping.ColumnMappings.Add("nctsHC_Consignor_Country", "nctsHC_Consignor_Country") tableMapping.ColumnMappings.Add("nctsHC_Consignor_ContactPerson_Name", "nctsHC_Consignor_ContactPerson_Name") tableMapping.ColumnMappings.Add("nctsHC_Consignor_ContactPerson_PhoneNumber", "nctsHC_Consignor_ContactPerson_PhoneNumber") tableMapping.ColumnMappings.Add("nctsHC_Consignor_ContactPerson_EMailAddress", "nctsHC_Consignor_ContactPerson_EMailAddress") tableMapping.ColumnMappings.Add("nctsHC_Consignee_AdressCode", "nctsHC_Consignee_AdressCode") tableMapping.ColumnMappings.Add("nctsHC_Consignee_IdentificationNumber", "nctsHC_Consignee_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_Consignee_SubsidiaryNumber", "nctsHC_Consignee_SubsidiaryNumber") tableMapping.ColumnMappings.Add("nctsHC_Consignee_Name", "nctsHC_Consignee_Name") tableMapping.ColumnMappings.Add("nctsHC_Consignee_StreetNumber", "nctsHC_Consignee_StreetNumber") tableMapping.ColumnMappings.Add("nctsHC_Consignee_City", "nctsHC_Consignee_City") tableMapping.ColumnMappings.Add("nctsHC_Consignee_Postcode", "nctsHC_Consignee_Postcode") tableMapping.ColumnMappings.Add("nctsHC_Consignee_Country", "nctsHC_Consignee_Country") tableMapping.ColumnMappings.Add("nctsHC_Consignee_ContactPerson_Name", "nctsHC_Consignee_ContactPerson_Name") tableMapping.ColumnMappings.Add("nctsHC_Consignee_ContactPerson_PhoneNumber", "nctsHC_Consignee_ContactPerson_PhoneNumber") tableMapping.ColumnMappings.Add("nctsHC_Consignee_ContactPerson_EMailAddress", "nctsHC_Consignee_ContactPerson_EMailAddress") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_1_Role", "nctsHC_AdditionalSupplyChainActor_1_Role") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", "nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_2_Role", "nctsHC_AdditionalSupplyChainActor_2_Role") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", "nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_3_Role", "nctsHC_AdditionalSupplyChainActor_3_Role") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", "nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_4_Role", "nctsHC_AdditionalSupplyChainActor_4_Role") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", "nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_5_Role", "nctsHC_AdditionalSupplyChainActor_5_Role") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", "nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_6_Role", "nctsHC_AdditionalSupplyChainActor_6_Role") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", "nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_7_Role", "nctsHC_AdditionalSupplyChainActor_7_Role") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", "nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_8_Role", "nctsHC_AdditionalSupplyChainActor_8_Role") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", "nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_9_Role", "nctsHC_AdditionalSupplyChainActor_9_Role") tableMapping.ColumnMappings.Add("nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", "nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_1_Type", "nctsHC_SupportingDocument_1_Type") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_1_ReferenceNumber", "nctsHC_SupportingDocument_1_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_1_DocumentLineItemNumber", "nctsHC_SupportingDocument_1_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_1_ComplementOfInformation", "nctsHC_SupportingDocument_1_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_2_Type", "nctsHC_SupportingDocument_2_Type") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_2_ReferenceNumber", "nctsHC_SupportingDocument_2_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_2_DocumentLineItemNumber", "nctsHC_SupportingDocument_2_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_2_ComplementOfInformation", "nctsHC_SupportingDocument_2_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_3_Type", "nctsHC_SupportingDocument_3_Type") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_3_ReferenceNumber", "nctsHC_SupportingDocument_3_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_3_DocumentLineItemNumber", "nctsHC_SupportingDocument_3_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_3_ComplementOfInformation", "nctsHC_SupportingDocument_3_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_4_Type", "nctsHC_SupportingDocument_4_Type") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_4_ReferenceNumber", "nctsHC_SupportingDocument_4_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_4_DocumentLineItemNumber", "nctsHC_SupportingDocument_4_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_4_ComplementOfInformation", "nctsHC_SupportingDocument_4_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_5_Type", "nctsHC_SupportingDocument_5_Type") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_5_ReferenceNumber", "nctsHC_SupportingDocument_5_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_5_DocumentLineItemNumber", "nctsHC_SupportingDocument_5_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_5_ComplementOfInformation", "nctsHC_SupportingDocument_5_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_6_Type", "nctsHC_SupportingDocument_6_Type") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_6_ReferenceNumber", "nctsHC_SupportingDocument_6_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_6_DocumentLineItemNumber", "nctsHC_SupportingDocument_6_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_6_ComplementOfInformation", "nctsHC_SupportingDocument_6_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_7_Type", "nctsHC_SupportingDocument_7_Type") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_7_ReferenceNumber", "nctsHC_SupportingDocument_7_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_7_DocumentLineItemNumber", "nctsHC_SupportingDocument_7_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_7_ComplementOfInformation", "nctsHC_SupportingDocument_7_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_8_Type", "nctsHC_SupportingDocument_8_Type") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_8_ReferenceNumber", "nctsHC_SupportingDocument_8_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_8_DocumentLineItemNumber", "nctsHC_SupportingDocument_8_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_8_ComplementOfInformation", "nctsHC_SupportingDocument_8_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_9_Type", "nctsHC_SupportingDocument_9_Type") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_9_ReferenceNumber", "nctsHC_SupportingDocument_9_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_9_DocumentLineItemNumber", "nctsHC_SupportingDocument_9_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHC_SupportingDocument_9_ComplementOfInformation", "nctsHC_SupportingDocument_9_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_1_Type", "nctsHC_PreviousDocument_1_Type") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_1_ReferenceNumber", "nctsHC_PreviousDocument_1_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_1_ComplementOfInformation", "nctsHC_PreviousDocument_1_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_2_Type", "nctsHC_PreviousDocument_2_Type") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_2_ReferenceNumber", "nctsHC_PreviousDocument_2_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_2_ComplementOfInformation", "nctsHC_PreviousDocument_2_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_3_Type", "nctsHC_PreviousDocument_3_Type") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_3_ReferenceNumber", "nctsHC_PreviousDocument_3_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_3_ComplementOfInformation", "nctsHC_PreviousDocument_3_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_4_Type", "nctsHC_PreviousDocument_4_Type") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_4_ReferenceNumber", "nctsHC_PreviousDocument_4_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_4_ComplementOfInformation", "nctsHC_PreviousDocument_4_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_5_Type", "nctsHC_PreviousDocument_5_Type") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_5_ReferenceNumber", "nctsHC_PreviousDocument_5_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_5_ComplementOfInformation", "nctsHC_PreviousDocument_5_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_6_Type", "nctsHC_PreviousDocument_6_Type") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_6_ReferenceNumber", "nctsHC_PreviousDocument_6_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_6_ComplementOfInformation", "nctsHC_PreviousDocument_6_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_7_Type", "nctsHC_PreviousDocument_7_Type") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_7_ReferenceNumber", "nctsHC_PreviousDocument_7_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_7_ComplementOfInformation", "nctsHC_PreviousDocument_7_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_8_Type", "nctsHC_PreviousDocument_8_Type") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_8_ReferenceNumber", "nctsHC_PreviousDocument_8_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_8_ComplementOfInformation", "nctsHC_PreviousDocument_8_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_9_Type", "nctsHC_PreviousDocument_9_Type") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_9_ReferenceNumber", "nctsHC_PreviousDocument_9_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_PreviousDocument_9_ComplementOfInformation", "nctsHC_PreviousDocument_9_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_1_Type", "nctsHC_TransportDocument_1_Type") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_1_ReferenceNumber", "nctsHC_TransportDocument_1_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_2_Type", "nctsHC_TransportDocument_2_Type") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_2_ReferenceNumber", "nctsHC_TransportDocument_2_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_3_Type", "nctsHC_TransportDocument_3_Type") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_3_ReferenceNumber", "nctsHC_TransportDocument_3_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_4_Type", "nctsHC_TransportDocument_4_Type") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_4_ReferenceNumber", "nctsHC_TransportDocument_4_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_5_Type", "nctsHC_TransportDocument_5_Type") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_5_ReferenceNumber", "nctsHC_TransportDocument_5_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_6_Type", "nctsHC_TransportDocument_6_Type") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_6_ReferenceNumber", "nctsHC_TransportDocument_6_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_7_Type", "nctsHC_TransportDocument_7_Type") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_7_ReferenceNumber", "nctsHC_TransportDocument_7_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_8_Type", "nctsHC_TransportDocument_8_Type") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_8_ReferenceNumber", "nctsHC_TransportDocument_8_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_9_Type", "nctsHC_TransportDocument_9_Type") tableMapping.ColumnMappings.Add("nctsHC_TransportDocument_9_ReferenceNumber", "nctsHC_TransportDocument_9_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_1_Type", "nctsHC_AdditionalReference_1_Type") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_1_ReferenceNumber", "nctsHC_AdditionalReference_1_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_2_Type", "nctsHC_AdditionalReference_2_Type") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_2_ReferenceNumber", "nctsHC_AdditionalReference_2_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_3_Type", "nctsHC_AdditionalReference_3_Type") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_3_ReferenceNumber", "nctsHC_AdditionalReference_3_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_4_Type", "nctsHC_AdditionalReference_4_Type") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_4_ReferenceNumber", "nctsHC_AdditionalReference_4_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_5_Type", "nctsHC_AdditionalReference_5_Type") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_5_ReferenceNumber", "nctsHC_AdditionalReference_5_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_6_Type", "nctsHC_AdditionalReference_6_Type") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_6_ReferenceNumber", "nctsHC_AdditionalReference_6_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_7_Type", "nctsHC_AdditionalReference_7_Type") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_7_ReferenceNumber", "nctsHC_AdditionalReference_7_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_8_Type", "nctsHC_AdditionalReference_8_Type") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_8_ReferenceNumber", "nctsHC_AdditionalReference_8_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_9_Type", "nctsHC_AdditionalReference_9_Type") tableMapping.ColumnMappings.Add("nctsHC_AdditionalReference_9_ReferenceNumber", "nctsHC_AdditionalReference_9_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_1_Code", "nctsHC_AdditionalInformation_1_Code") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_1_Text", "nctsHC_AdditionalInformation_1_Text") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_2_Code", "nctsHC_AdditionalInformation_2_Code") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_2_Text", "nctsHC_AdditionalInformation_2_Text") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_3_Code", "nctsHC_AdditionalInformation_3_Code") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_3_Text", "nctsHC_AdditionalInformation_3_Text") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_4_Code", "nctsHC_AdditionalInformation_4_Code") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_4_Text", "nctsHC_AdditionalInformation_4_Text") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_5_Code", "nctsHC_AdditionalInformation_5_Code") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_5_Text", "nctsHC_AdditionalInformation_5_Text") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_6_Code", "nctsHC_AdditionalInformation_6_Code") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_6_Text", "nctsHC_AdditionalInformation_6_Text") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_7_Code", "nctsHC_AdditionalInformation_7_Code") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_7_Text", "nctsHC_AdditionalInformation_7_Text") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_8_Code", "nctsHC_AdditionalInformation_8_Code") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_8_Text", "nctsHC_AdditionalInformation_8_Text") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_9_Code", "nctsHC_AdditionalInformation_9_Code") tableMapping.ColumnMappings.Add("nctsHC_AdditionalInformation_9_Text", "nctsHC_AdditionalInformation_9_Text") tableMapping.ColumnMappings.Add("nctsHC_TransportCharges", "nctsHC_TransportCharges") 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].[tblDakosy_NCTSOut004_HouseConsignment] WHERE (([nctsHC_Id] = @"& _ "Original_nctsHC_Id) AND ([nctsHC_NctsId] = @Original_nctsHC_NctsId) AND ((@IsNul"& _ "l_nctsHC_HouseConsignMentReference = 1 AND [nctsHC_HouseConsignMentReference] IS"& _ " NULL) OR ([nctsHC_HouseConsignMentReference] = @Original_nctsHC_HouseConsignMen"& _ "tReference)) AND ((@IsNull_nctsHC_CountryOfDispatch = 1 AND [nctsHC_CountryOfDis"& _ "patch] IS NULL) OR ([nctsHC_CountryOfDispatch] = @Original_nctsHC_CountryOfDispa"& _ "tch)) AND ((@IsNull_nctsHC_CountryOfDestination = 1 AND [nctsHC_CountryOfDestina"& _ "tion] IS NULL) OR ([nctsHC_CountryOfDestination] = @Original_nctsHC_CountryOfDes"& _ "tination)) AND ((@IsNull_nctsHC_GrossMass = 1 AND [nctsHC_GrossMass] IS NULL) OR"& _ " ([nctsHC_GrossMass] = @Original_nctsHC_GrossMass)) AND ((@IsNull_nctsHC_Referen"& _ "ceNumberUCR = 1 AND [nctsHC_ReferenceNumberUCR] IS NULL) OR ([nctsHC_ReferenceNu"& _ "mberUCR] = @Original_nctsHC_ReferenceNumberUCR)) AND ((@IsNull_nctsHC_Consignor_"& _ "AdressCode = 1 AND [nctsHC_Consignor_AdressCode] IS NULL) OR ([nctsHC_Consignor_"& _ "AdressCode] = @Original_nctsHC_Consignor_AdressCode)) AND ((@IsNull_nctsHC_Consi"& _ "gnor_IdentificationNumber = 1 AND [nctsHC_Consignor_IdentificationNumber] IS NUL"& _ "L) OR ([nctsHC_Consignor_IdentificationNumber] = @Original_nctsHC_Consignor_Iden"& _ "tificationNumber)) AND ((@IsNull_nctsHC_Consignor_SubsidiaryNumber = 1 AND [ncts"& _ "HC_Consignor_SubsidiaryNumber] IS NULL) OR ([nctsHC_Consignor_SubsidiaryNumber] "& _ "= @Original_nctsHC_Consignor_SubsidiaryNumber)) AND ((@IsNull_nctsHC_Consignor_N"& _ "ame = 1 AND [nctsHC_Consignor_Name] IS NULL) OR ([nctsHC_Consignor_Name] = @Orig"& _ "inal_nctsHC_Consignor_Name)) AND ((@IsNull_nctsHC_Consignor_StreetNumber = 1 AND"& _ " [nctsHC_Consignor_StreetNumber] IS NULL) OR ([nctsHC_Consignor_StreetNumber] = "& _ "@Original_nctsHC_Consignor_StreetNumber)) AND ((@IsNull_nctsHC_Consignor_City = "& _ "1 AND [nctsHC_Consignor_City] IS NULL) OR ([nctsHC_Consignor_City] = @Original_n"& _ "ctsHC_Consignor_City)) AND ((@IsNull_nctsHC_Consignor_Postcode = 1 AND [nctsHC_C"& _ "onsignor_Postcode] IS NULL) OR ([nctsHC_Consignor_Postcode] = @Original_nctsHC_C"& _ "onsignor_Postcode)) AND ((@IsNull_nctsHC_Consignor_Country = 1 AND [nctsHC_Consi"& _ "gnor_Country] IS NULL) OR ([nctsHC_Consignor_Country] = @Original_nctsHC_Consign"& _ "or_Country)) AND ((@IsNull_nctsHC_Consignor_ContactPerson_Name = 1 AND [nctsHC_C"& _ "onsignor_ContactPerson_Name] IS NULL) OR ([nctsHC_Consignor_ContactPerson_Name] "& _ "= @Original_nctsHC_Consignor_ContactPerson_Name)) AND ((@IsNull_nctsHC_Consignor"& _ "_ContactPerson_PhoneNumber = 1 AND [nctsHC_Consignor_ContactPerson_PhoneNumber] "& _ "IS NULL) OR ([nctsHC_Consignor_ContactPerson_PhoneNumber] = @Original_nctsHC_Con"& _ "signor_ContactPerson_PhoneNumber)) AND ((@IsNull_nctsHC_Consignor_ContactPerson_"& _ "EMailAddress = 1 AND [nctsHC_Consignor_ContactPerson_EMailAddress] IS NULL) OR ("& _ "[nctsHC_Consignor_ContactPerson_EMailAddress] = @Original_nctsHC_Consignor_Conta"& _ "ctPerson_EMailAddress)) AND ((@IsNull_nctsHC_Consignee_AdressCode = 1 AND [nctsH"& _ "C_Consignee_AdressCode] IS NULL) OR ([nctsHC_Consignee_AdressCode] = @Original_n"& _ "ctsHC_Consignee_AdressCode)) AND ((@IsNull_nctsHC_Consignee_IdentificationNumber"& _ " = 1 AND [nctsHC_Consignee_IdentificationNumber] IS NULL) OR ([nctsHC_Consignee_"& _ "IdentificationNumber] = @Original_nctsHC_Consignee_IdentificationNumber)) AND (("& _ "@IsNull_nctsHC_Consignee_SubsidiaryNumber = 1 AND [nctsHC_Consignee_SubsidiaryNu"& _ "mber] IS NULL) OR ([nctsHC_Consignee_SubsidiaryNumber] = @Original_nctsHC_Consig"& _ "nee_SubsidiaryNumber)) AND ((@IsNull_nctsHC_Consignee_Name = 1 AND [nctsHC_Consi"& _ "gnee_Name] IS NULL) OR ([nctsHC_Consignee_Name] = @Original_nctsHC_Consignee_Nam"& _ "e)) AND ((@IsNull_nctsHC_Consignee_StreetNumber = 1 AND [nctsHC_Consignee_Street"& _ "Number] IS NULL) OR ([nctsHC_Consignee_StreetNumber] = @Original_nctsHC_Consigne"& _ "e_StreetNumber)) AND ((@IsNull_nctsHC_Consignee_City = 1 AND [nctsHC_Consignee_C"& _ "ity] IS NULL) OR ([nctsHC_Consignee_City] = @Original_nctsHC_Consignee_City)) AN"& _ "D ((@IsNull_nctsHC_Consignee_Postcode = 1 AND [nctsHC_Consignee_Postcode] IS NUL"& _ "L) OR ([nctsHC_Consignee_Postcode] = @Original_nctsHC_Consignee_Postcode)) AND ("& _ "(@IsNull_nctsHC_Consignee_Country = 1 AND [nctsHC_Consignee_Country] IS NULL) OR"& _ " ([nctsHC_Consignee_Country] = @Original_nctsHC_Consignee_Country)) AND ((@IsNul"& _ "l_nctsHC_Consignee_ContactPerson_Name = 1 AND [nctsHC_Consignee_ContactPerson_Na"& _ "me] IS NULL) OR ([nctsHC_Consignee_ContactPerson_Name] = @Original_nctsHC_Consig"& _ "nee_ContactPerson_Name)) AND ((@IsNull_nctsHC_Consignee_ContactPerson_PhoneNumbe"& _ "r = 1 AND [nctsHC_Consignee_ContactPerson_PhoneNumber] IS NULL) OR ([nctsHC_Cons"& _ "ignee_ContactPerson_PhoneNumber] = @Original_nctsHC_Consignee_ContactPerson_Phon"& _ "eNumber)) AND ((@IsNull_nctsHC_Consignee_ContactPerson_EMailAddress = 1 AND [nct"& _ "sHC_Consignee_ContactPerson_EMailAddress] IS NULL) OR ([nctsHC_Consignee_Contact"& _ "Person_EMailAddress] = @Original_nctsHC_Consignee_ContactPerson_EMailAddress)) A"& _ "ND ((@IsNull_nctsHC_AdditionalSupplyChainActor_1_Role = 1 AND [nctsHC_Additional"& _ "SupplyChainActor_1_Role] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_1_Role]"& _ " = @Original_nctsHC_AdditionalSupplyChainActor_1_Role)) AND ((@IsNull_nctsHC_Add"& _ "itionalSupplyChainActor_1_IdentificationNumber = 1 AND [nctsHC_AdditionalSupplyC"& _ "hainActor_1_IdentificationNumber] IS NULL) OR ([nctsHC_AdditionalSupplyChainActo"& _ "r_1_IdentificationNumber] = @Original_nctsHC_AdditionalSupplyChainActor_1_Identi"& _ "ficationNumber)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_2_Role = 1 AND "& _ "[nctsHC_AdditionalSupplyChainActor_2_Role] IS NULL) OR ([nctsHC_AdditionalSupply"& _ "ChainActor_2_Role] = @Original_nctsHC_AdditionalSupplyChainActor_2_Role)) AND (("& _ "@IsNull_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber = 1 AND [nctsHC"& _ "_AdditionalSupplyChainActor_2_IdentificationNumber] IS NULL) OR ([nctsHC_Additio"& _ "nalSupplyChainActor_2_IdentificationNumber] = @Original_nctsHC_AdditionalSupplyC"& _ "hainActor_2_IdentificationNumber)) AND ((@IsNull_nctsHC_AdditionalSupplyChainAct"& _ "or_3_Role = 1 AND [nctsHC_AdditionalSupplyChainActor_3_Role] IS NULL) OR ([nctsH"& _ "C_AdditionalSupplyChainActor_3_Role] = @Original_nctsHC_AdditionalSupplyChainAct"& _ "or_3_Role)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumb"& _ "er = 1 AND [nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber] IS NULL) O"& _ "R ([nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber] = @Original_nctsHC"& _ "_AdditionalSupplyChainActor_3_IdentificationNumber)) AND ((@IsNull_nctsHC_Additi"& _ "onalSupplyChainActor_4_Role = 1 AND [nctsHC_AdditionalSupplyChainActor_4_Role] I"& _ "S NULL) OR ([nctsHC_AdditionalSupplyChainActor_4_Role] = @Original_nctsHC_Additi"& _ "onalSupplyChainActor_4_Role)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_4_"& _ "IdentificationNumber = 1 AND [nctsHC_AdditionalSupplyChainActor_4_Identification"& _ "Number] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber] "& _ "= @Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber)) AND ((@Is"& _ "Null_nctsHC_AdditionalSupplyChainActor_5_Role = 1 AND [nctsHC_AdditionalSupplyCh"& _ "ainActor_5_Role] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_5_Role] = @Orig"& _ "inal_nctsHC_AdditionalSupplyChainActor_5_Role)) AND ((@IsNull_nctsHC_AdditionalS"& _ "upplyChainActor_5_IdentificationNumber = 1 AND [nctsHC_AdditionalSupplyChainActo"& _ "r_5_IdentificationNumber] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_5_Iden"& _ "tificationNumber] = @Original_nctsHC_AdditionalSupplyChainActor_5_Identification"& _ "Number)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_6_Role = 1 AND [nctsHC_"& _ "AdditionalSupplyChainActor_6_Role] IS NULL) OR ([nctsHC_AdditionalSupplyChainAct"& _ "or_6_Role] = @Original_nctsHC_AdditionalSupplyChainActor_6_Role)) AND ((@IsNull_"& _ "nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber = 1 AND [nctsHC_Additio"& _ "nalSupplyChainActor_6_IdentificationNumber] IS NULL) OR ([nctsHC_AdditionalSuppl"& _ "yChainActor_6_IdentificationNumber] = @Original_nctsHC_AdditionalSupplyChainActo"& _ "r_6_IdentificationNumber)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_7_Rol"& _ "e = 1 AND [nctsHC_AdditionalSupplyChainActor_7_Role] IS NULL) OR ([nctsHC_Additi"& _ "onalSupplyChainActor_7_Role] = @Original_nctsHC_AdditionalSupplyChainActor_7_Rol"& _ "e)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber = 1 A"& _ "ND [nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber] IS NULL) OR ([ncts"& _ "HC_AdditionalSupplyChainActor_7_IdentificationNumber] = @Original_nctsHC_Additio"& _ "nalSupplyChainActor_7_IdentificationNumber)) AND ((@IsNull_nctsHC_AdditionalSupp"& _ "lyChainActor_8_Role = 1 AND [nctsHC_AdditionalSupplyChainActor_8_Role] IS NULL) "& _ "OR ([nctsHC_AdditionalSupplyChainActor_8_Role] = @Original_nctsHC_AdditionalSupp"& _ "lyChainActor_8_Role)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_8_Identifi"& _ "cationNumber = 1 AND [nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber] "& _ "IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber] = @Origi"& _ "nal_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber)) AND ((@IsNull_nct"& _ "sHC_AdditionalSupplyChainActor_9_Role = 1 AND [nctsHC_AdditionalSupplyChainActor"& _ "_9_Role] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_9_Role] = @Original_nct"& _ "sHC_AdditionalSupplyChainActor_9_Role)) AND ((@IsNull_nctsHC_AdditionalSupplyCha"& _ "inActor_9_IdentificationNumber = 1 AND [nctsHC_AdditionalSupplyChainActor_9_Iden"& _ "tificationNumber] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_9_Identificati"& _ "onNumber] = @Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber))"& _ " AND ((@IsNull_nctsHC_SupportingDocument_1_Type = 1 AND [nctsHC_SupportingDocume"& _ "nt_1_Type] IS NULL) OR ([nctsHC_SupportingDocument_1_Type] = @Original_nctsHC_Su"& _ "pportingDocument_1_Type)) AND ((@IsNull_nctsHC_SupportingDocument_1_ReferenceNum"& _ "ber = 1 AND [nctsHC_SupportingDocument_1_ReferenceNumber] IS NULL) OR ([nctsHC_S"& _ "upportingDocument_1_ReferenceNumber] = @Original_nctsHC_SupportingDocument_1_Ref"& _ "erenceNumber)) AND ((@IsNull_nctsHC_SupportingDocument_1_DocumentLineItemNumber "& _ "= 1 AND [nctsHC_SupportingDocument_1_DocumentLineItemNumber] IS NULL) OR ([nctsH"& _ "C_SupportingDocument_1_DocumentLineItemNumber] = @Original_nctsHC_SupportingDocu"& _ "ment_1_DocumentLineItemNumber)) AND ((@IsNull_nctsHC_SupportingDocument_1_Comple"& _ "mentOfInformation = 1 AND [nctsHC_SupportingDocument_1_ComplementOfInformation] "& _ "IS NULL) OR ([nctsHC_SupportingDocument_1_ComplementOfInformation] = @Original_n"& _ "ctsHC_SupportingDocument_1_ComplementOfInformation)) AND ((@IsNull_nctsHC_Suppor"& _ "tingDocument_2_Type = 1 AND [nctsHC_SupportingDocument_2_Type] IS NULL) OR ([nct"& _ "sHC_SupportingDocument_2_Type] = @Original_nctsHC_SupportingDocument_2_Type)) AN"& _ "D ((@IsNull_nctsHC_SupportingDocument_2_ReferenceNumber = 1 AND [nctsHC_Supporti"& _ "ngDocument_2_ReferenceNumber] IS NULL) OR ([nctsHC_SupportingDocument_2_Referenc"& _ "eNumber] = @Original_nctsHC_SupportingDocument_2_ReferenceNumber)) AND ((@IsNull"& _ "_nctsHC_SupportingDocument_2_DocumentLineItemNumber = 1 AND [nctsHC_SupportingDo"& _ "cument_2_DocumentLineItemNumber] IS NULL) OR ([nctsHC_SupportingDocument_2_Docum"& _ "entLineItemNumber] = @Original_nctsHC_SupportingDocument_2_DocumentLineItemNumbe"& _ "r)) AND ((@IsNull_nctsHC_SupportingDocument_2_ComplementOfInformation = 1 AND [n"& _ "ctsHC_SupportingDocument_2_ComplementOfInformation] IS NULL) OR ([nctsHC_Support"& _ "ingDocument_2_ComplementOfInformation] = @Original_nctsHC_SupportingDocument_2_C"& _ "omplementOfInformation)) AND ((@IsNull_nctsHC_SupportingDocument_3_Type = 1 AND "& _ "[nctsHC_SupportingDocument_3_Type] IS NULL) OR ([nctsHC_SupportingDocument_3_Typ"& _ "e] = @Original_nctsHC_SupportingDocument_3_Type)) AND ((@IsNull_nctsHC_Supportin"& _ "gDocument_3_ReferenceNumber = 1 AND [nctsHC_SupportingDocument_3_ReferenceNumber"& _ "] IS NULL) OR ([nctsHC_SupportingDocument_3_ReferenceNumber] = @Original_nctsHC_"& _ "SupportingDocument_3_ReferenceNumber)) AND ((@IsNull_nctsHC_SupportingDocument_3"& _ "_DocumentLineItemNumber = 1 AND [nctsHC_SupportingDocument_3_DocumentLineItemNum"& _ "ber] IS NULL) OR ([nctsHC_SupportingDocument_3_DocumentLineItemNumber] = @Origin"& _ "al_nctsHC_SupportingDocument_3_DocumentLineItemNumber)) AND ((@IsNull_nctsHC_Sup"& _ "portingDocument_3_ComplementOfInformation = 1 AND [nctsHC_SupportingDocument_3_C"& _ "omplementOfInformation] IS NULL) OR ([nctsHC_SupportingDocument_3_ComplementOfIn"& _ "formation] = @Original_nctsHC_SupportingDocument_3_ComplementOfInformation)) AND"& _ " ((@IsNull_nctsHC_SupportingDocument_4_Type = 1 AND [nctsHC_SupportingDocument_4"& _ "_Type] IS NULL) OR ([nctsHC_SupportingDocument_4_Type] = @Original_nctsHC_Suppor"& _ "tingDocument_4_Type)) AND ((@IsNull_nctsHC_SupportingDocument_4_ReferenceNumber "& _ "= 1 AND [nctsHC_SupportingDocument_4_ReferenceNumber] IS NULL) OR ([nctsHC_Suppo"& _ "rtingDocument_4_ReferenceNumber] = @Original_nctsHC_SupportingDocument_4_Referen"& _ "ceNumber)) AND ((@IsNull_nctsHC_SupportingDocument_4_DocumentLineItemNumber = 1 "& _ "AND [nctsHC_SupportingDocument_4_DocumentLineItemNumber] IS NULL) OR ([nctsHC_Su"& _ "pportingDocument_4_DocumentLineItemNumber] = @Original_nctsHC_SupportingDocument"& _ "_4_DocumentLineItemNumber)) AND ((@IsNull_nctsHC_SupportingDocument_4_Complement"& _ "OfInformation = 1 AND [nctsHC_SupportingDocument_4_ComplementOfInformation] IS N"& _ "ULL) OR ([nctsHC_SupportingDocument_4_ComplementOfInformation] = @Original_nctsH"& _ "C_SupportingDocument_4_ComplementOfInformation)) AND ((@IsNull_nctsHC_Supporting"& _ "Document_5_Type = 1 AND [nctsHC_SupportingDocument_5_Type] IS NULL) OR ([nctsHC_"& _ "SupportingDocument_5_Type] = @Original_nctsHC_SupportingDocument_5_Type)) AND (("& _ "@IsNull_nctsHC_SupportingDocument_5_ReferenceNumber = 1 AND [nctsHC_SupportingDo"& _ "cument_5_ReferenceNumber] IS NULL) OR ([nctsHC_SupportingDocument_5_ReferenceNum"& _ "ber] = @Original_nctsHC_SupportingDocument_5_ReferenceNumber)) AND ((@IsNull_nct"& _ "sHC_SupportingDocument_5_DocumentLineItemNumber = 1 AND [nctsHC_SupportingDocume"& _ "nt_5_DocumentLineItemNumber] IS NULL) OR ([nctsHC_SupportingDocument_5_DocumentL"& _ "ineItemNumber] = @Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber)) "& _ "AND ((@IsNull_nctsHC_SupportingDocument_5_ComplementOfInformation = 1 AND [nctsH"& _ "C_SupportingDocument_5_ComplementOfInformation] IS NULL) OR ([nctsHC_SupportingD"& _ "ocument_5_ComplementOfInformation] = @Original_nctsHC_SupportingDocument_5_Compl"& _ "ementOfInformation)) AND ((@IsNull_nctsHC_SupportingDocument_6_Type = 1 AND [nct"& _ "sHC_SupportingDocument_6_Type] IS NULL) OR ([nctsHC_SupportingDocument_6_Type] ="& _ " @Original_nctsHC_SupportingDocument_6_Type)) AND ((@IsNull_nctsHC_SupportingDoc"& _ "ument_6_ReferenceNumber = 1 AND [nctsHC_SupportingDocument_6_ReferenceNumber] IS"& _ " NULL) OR ([nctsHC_SupportingDocument_6_ReferenceNumber] = @Original_nctsHC_Supp"& _ "ortingDocument_6_ReferenceNumber)) AND ((@IsNull_nctsHC_SupportingDocument_6_Doc"& _ "umentLineItemNumber = 1 AND [nctsHC_SupportingDocument_6_DocumentLineItemNumber]"& _ " IS NULL) OR ([nctsHC_SupportingDocument_6_DocumentLineItemNumber] = @Original_n"& _ "ctsHC_SupportingDocument_6_DocumentLineItemNumber)) AND ((@IsNull_nctsHC_Support"& _ "ingDocument_6_ComplementOfInformation = 1 AND [nctsHC_SupportingDocument_6_Compl"& _ "ementOfInformation] IS NULL) OR ([nctsHC_SupportingDocument_6_ComplementOfInform"& _ "ation] = @Original_nctsHC_SupportingDocument_6_ComplementOfInformation)) AND ((@"& _ "IsNull_nctsHC_SupportingDocument_7_Type = 1 AND [nctsHC_SupportingDocument_7_Typ"& _ "e] IS NULL) OR ([nctsHC_SupportingDocument_7_Type] = @Original_nctsHC_Supporting"& _ "Document_7_Type)) AND ((@IsNull_nctsHC_SupportingDocument_7_ReferenceNumber = 1 "& _ "AND [nctsHC_SupportingDocument_7_ReferenceNumber] IS NULL) OR ([nctsHC_Supportin"& _ "gDocument_7_ReferenceNumber] = @Original_nctsHC_SupportingDocument_7_ReferenceNu"& _ "mber)) AND ((@IsNull_nctsHC_SupportingDocument_7_DocumentLineItemNumber = 1 AND "& _ "[nctsHC_SupportingDocument_7_DocumentLineItemNumber] IS NULL) OR ([nctsHC_Suppor"& _ "tingDocument_7_DocumentLineItemNumber] = @Original_nctsHC_SupportingDocument_7_D"& _ "ocumentLineItemNumber)) AND ((@IsNull_nctsHC_SupportingDocument_7_ComplementOfIn"& _ "formation = 1 AND [nctsHC_SupportingDocument_7_ComplementOfInformation] IS NULL)"& _ " OR ([nctsHC_SupportingDocument_7_ComplementOfInformation] = @Original_nctsHC_Su"& _ "pportingDocument_7_ComplementOfInformation)) AND ((@IsNull_nctsHC_SupportingDocu"& _ "ment_8_Type = 1 AND [nctsHC_SupportingDocument_8_Type] IS NULL) OR ([nctsHC_Supp"& _ "ortingDocument_8_Type] = @Original_nctsHC_SupportingDocument_8_Type)) AND ((@IsN"& _ "ull_nctsHC_SupportingDocument_8_ReferenceNumber = 1 AND [nctsHC_SupportingDocume"& _ "nt_8_ReferenceNumber] IS NULL) OR ([nctsHC_SupportingDocument_8_ReferenceNumber]"& _ " = @Original_nctsHC_SupportingDocument_8_ReferenceNumber)) AND ((@IsNull_nctsHC_"& _ "SupportingDocument_8_DocumentLineItemNumber = 1 AND [nctsHC_SupportingDocument_8"& _ "_DocumentLineItemNumber] IS NULL) OR ([nctsHC_SupportingDocument_8_DocumentLineI"& _ "temNumber] = @Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber)) AND "& _ "((@IsNull_nctsHC_SupportingDocument_8_ComplementOfInformation = 1 AND [nctsHC_Su"& _ "pportingDocument_8_ComplementOfInformation] IS NULL) OR ([nctsHC_SupportingDocum"& _ "ent_8_ComplementOfInformation] = @Original_nctsHC_SupportingDocument_8_Complemen"& _ "tOfInformation)) AND ((@IsNull_nctsHC_SupportingDocument_9_Type = 1 AND [nctsHC_"& _ "SupportingDocument_9_Type] IS NULL) OR ([nctsHC_SupportingDocument_9_Type] = @Or"& _ "iginal_nctsHC_SupportingDocument_9_Type)) AND ((@IsNull_nctsHC_SupportingDocumen"& _ "t_9_ReferenceNumber = 1 AND [nctsHC_SupportingDocument_9_ReferenceNumber] IS NUL"& _ "L) OR ([nctsHC_SupportingDocument_9_ReferenceNumber] = @Original_nctsHC_Supporti"& _ "ngDocument_9_ReferenceNumber)) AND ((@IsNull_nctsHC_SupportingDocument_9_Documen"& _ "tLineItemNumber = 1 AND [nctsHC_SupportingDocument_9_DocumentLineItemNumber] IS "& _ "NULL) OR ([nctsHC_SupportingDocument_9_DocumentLineItemNumber] = @Original_nctsH"& _ "C_SupportingDocument_9_DocumentLineItemNumber)) AND ((@IsNull_nctsHC_SupportingD"& _ "ocument_9_ComplementOfInformation = 1 AND [nctsHC_SupportingDocument_9_Complemen"& _ "tOfInformation] IS NULL) OR ([nctsHC_SupportingDocument_9_ComplementOfInformatio"& _ "n] = @Original_nctsHC_SupportingDocument_9_ComplementOfInformation)) AND ((@IsNu"& _ "ll_nctsHC_PreviousDocument_1_Type = 1 AND [nctsHC_PreviousDocument_1_Type] IS NU"& _ "LL) OR ([nctsHC_PreviousDocument_1_Type] = @Original_nctsHC_PreviousDocument_1_T"& _ "ype)) AND ((@IsNull_nctsHC_PreviousDocument_1_ReferenceNumber = 1 AND [nctsHC_Pr"& _ "eviousDocument_1_ReferenceNumber] IS NULL) OR ([nctsHC_PreviousDocument_1_Refere"& _ "nceNumber] = @Original_nctsHC_PreviousDocument_1_ReferenceNumber)) AND ((@IsNull"& _ "_nctsHC_PreviousDocument_1_ComplementOfInformation = 1 AND [nctsHC_PreviousDocum"& _ "ent_1_ComplementOfInformation] IS NULL) OR ([nctsHC_PreviousDocument_1_Complemen"& _ "tOfInformation] = @Original_nctsHC_PreviousDocument_1_ComplementOfInformation)) "& _ "AND ((@IsNull_nctsHC_PreviousDocument_2_Type = 1 AND [nctsHC_PreviousDocument_2_"& _ "Type] IS NULL) OR ([nctsHC_PreviousDocument_2_Type] = @Original_nctsHC_PreviousD"& _ "ocument_2_Type)) AND ((@IsNull_nctsHC_PreviousDocument_2_ReferenceNumber = 1 AND"& _ " [nctsHC_PreviousDocument_2_ReferenceNumber] IS NULL) OR ([nctsHC_PreviousDocume"& _ "nt_2_ReferenceNumber] = @Original_nctsHC_PreviousDocument_2_ReferenceNumber)) AN"& _ "D ((@IsNull_nctsHC_PreviousDocument_2_ComplementOfInformation = 1 AND [nctsHC_Pr"& _ "eviousDocument_2_ComplementOfInformation] IS NULL) OR ([nctsHC_PreviousDocument_"& _ "2_ComplementOfInformation] = @Original_nctsHC_PreviousDocument_2_ComplementOfInf"& _ "ormation)) AND ((@IsNull_nctsHC_PreviousDocument_3_Type = 1 AND [nctsHC_Previous"& _ "Document_3_Type] IS NULL) OR ([nctsHC_PreviousDocument_3_Type] = @Original_nctsH"& _ "C_PreviousDocument_3_Type)) AND ((@IsNull_nctsHC_PreviousDocument_3_ReferenceNum"& _ "ber = 1 AND [nctsHC_PreviousDocument_3_ReferenceNumber] IS NULL) OR ([nctsHC_Pre"& _ "viousDocument_3_ReferenceNumber] = @Original_nctsHC_PreviousDocument_3_Reference"& _ "Number)) AND ((@IsNull_nctsHC_PreviousDocument_3_ComplementOfInformation = 1 AND"& _ " [nctsHC_PreviousDocument_3_ComplementOfInformation] IS NULL) OR ([nctsHC_Previo"& _ "usDocument_3_ComplementOfInformation] = @Original_nctsHC_PreviousDocument_3_Comp"& _ "lementOfInformation)) AND ((@IsNull_nctsHC_PreviousDocument_4_Type = 1 AND [ncts"& _ "HC_PreviousDocument_4_Type] IS NULL) OR ([nctsHC_PreviousDocument_4_Type] = @Ori"& _ "ginal_nctsHC_PreviousDocument_4_Type)) AND ((@IsNull_nctsHC_PreviousDocument_4_R"& _ "eferenceNumber = 1 AND [nctsHC_PreviousDocument_4_ReferenceNumber] IS NULL) OR ("& _ "[nctsHC_PreviousDocument_4_ReferenceNumber] = @Original_nctsHC_PreviousDocument_"& _ "4_ReferenceNumber)) AND ((@IsNull_nctsHC_PreviousDocument_4_ComplementOfInformat"& _ "ion = 1 AND [nctsHC_PreviousDocument_4_ComplementOfInformation] IS NULL) OR ([nc"& _ "tsHC_PreviousDocument_4_ComplementOfInformation] = @Original_nctsHC_PreviousDocu"& _ "ment_4_ComplementOfInformation)) AND ((@IsNull_nctsHC_PreviousDocument_5_Type = "& _ "1 AND [nctsHC_PreviousDocument_5_Type] IS NULL) OR ([nctsHC_PreviousDocument_5_T"& _ "ype] = @Original_nctsHC_PreviousDocument_5_Type)) AND ((@IsNull_nctsHC_PreviousD"& _ "ocument_5_ReferenceNumber = 1 AND [nctsHC_PreviousDocument_5_ReferenceNumber] IS"& _ " NULL) OR ([nctsHC_PreviousDocument_5_ReferenceNumber] = @Original_nctsHC_Previo"& _ "usDocument_5_ReferenceNumber)) AND ((@IsNull_nctsHC_PreviousDocument_5_Complemen"& _ "tOfInformation = 1 AND [nctsHC_PreviousDocument_5_ComplementOfInformation] IS NU"& _ "LL) OR ([nctsHC_PreviousDocument_5_ComplementOfInformation] = @Original_nctsHC_P"& _ "reviousDocument_5_ComplementOfInformation)) AND ((@IsNull_nctsHC_PreviousDocumen"& _ "t_6_Type = 1 AND [nctsHC_PreviousDocument_6_Type] IS NULL) OR ([nctsHC_PreviousD"& _ "ocument_6_Type] = @Original_nctsHC_PreviousDocument_6_Type)) AND ((@IsNull_nctsH"& _ "C_PreviousDocument_6_ReferenceNumber = 1 AND [nctsHC_PreviousDocument_6_Referenc"& _ "eNumber] IS NULL) OR ([nctsHC_PreviousDocument_6_ReferenceNumber] = @Original_nc"& _ "tsHC_PreviousDocument_6_ReferenceNumber)) AND ((@IsNull_nctsHC_PreviousDocument_"& _ "6_ComplementOfInformation = 1 AND [nctsHC_PreviousDocument_6_ComplementOfInforma"& _ "tion] IS NULL) OR ([nctsHC_PreviousDocument_6_ComplementOfInformation] = @Origin"& _ "al_nctsHC_PreviousDocument_6_ComplementOfInformation)) AND ((@IsNull_nctsHC_Prev"& _ "iousDocument_7_Type = 1 AND [nctsHC_PreviousDocument_7_Type] IS NULL) OR ([nctsH"& _ "C_PreviousDocument_7_Type] = @Original_nctsHC_PreviousDocument_7_Type)) AND ((@I"& _ "sNull_nctsHC_PreviousDocument_7_ReferenceNumber = 1 AND [nctsHC_PreviousDocument"& _ "_7_ReferenceNumber] IS NULL) OR ([nctsHC_PreviousDocument_7_ReferenceNumber] = @"& _ "Original_nctsHC_PreviousDocument_7_ReferenceNumber)) AND ((@IsNull_nctsHC_Previo"& _ "usDocument_7_ComplementOfInformation = 1 AND [nctsHC_PreviousDocument_7_Compleme"& _ "ntOfInformation] IS NULL) OR ([nctsHC_PreviousDocument_7_ComplementOfInformation"& _ "] = @Original_nctsHC_PreviousDocument_7_ComplementOfInformation)) AND ((@IsNull_"& _ "nctsHC_PreviousDocument_8_Type = 1 AND [nctsHC_PreviousDocument_8_Type] IS NULL)"& _ " OR ([nctsHC_PreviousDocument_8_Type] = @Original_nctsHC_PreviousDocument_8_Type"& _ ")) AND ((@IsNull_nctsHC_PreviousDocument_8_ReferenceNumber = 1 AND [nctsHC_Previ"& _ "ousDocument_8_ReferenceNumber] IS NULL) OR ([nctsHC_PreviousDocument_8_Reference"& _ "Number] = @Original_nctsHC_PreviousDocument_8_ReferenceNumber)) AND ((@IsNull_nc"& _ "tsHC_PreviousDocument_8_ComplementOfInformation = 1 AND [nctsHC_PreviousDocument"& _ "_8_ComplementOfInformation] IS NULL) OR ([nctsHC_PreviousDocument_8_ComplementOf"& _ "Information] = @Original_nctsHC_PreviousDocument_8_ComplementOfInformation)) AND"& _ " ((@IsNull_nctsHC_PreviousDocument_9_Type = 1 AND [nctsHC_PreviousDocument_9_Typ"& _ "e] IS NULL) OR ([nctsHC_PreviousDocument_9_Type] = @Original_nctsHC_PreviousDocu"& _ "ment_9_Type)) AND ((@IsNull_nctsHC_PreviousDocument_9_ReferenceNumber = 1 AND [n"& _ "ctsHC_PreviousDocument_9_ReferenceNumber] IS NULL) OR ([nctsHC_PreviousDocument_"& _ "9_ReferenceNumber] = @Original_nctsHC_PreviousDocument_9_ReferenceNumber)) AND ("& _ "(@IsNull_nctsHC_PreviousDocument_9_ComplementOfInformation = 1 AND [nctsHC_Previ"& _ "ousDocument_9_ComplementOfInformation] IS NULL) OR ([nctsHC_PreviousDocument_9_C"& _ "omplementOfInformation] = @Original_nctsHC_PreviousDocument_9_ComplementOfInform"& _ "ation)) AND ((@IsNull_nctsHC_TransportDocument_1_Type = 1 AND [nctsHC_TransportD"& _ "ocument_1_Type] IS NULL) OR ([nctsHC_TransportDocument_1_Type] = @Original_nctsH"& _ "C_TransportDocument_1_Type)) AND ((@IsNull_nctsHC_TransportDocument_1_ReferenceN"& _ "umber = 1 AND [nctsHC_TransportDocument_1_ReferenceNumber] IS NULL) OR ([nctsHC_"& _ "TransportDocument_1_ReferenceNumber] = @Original_nctsHC_TransportDocument_1_Refe"& _ "renceNumber)) AND ((@IsNull_nctsHC_TransportDocument_2_Type = 1 AND [nctsHC_Tran"& _ "sportDocument_2_Type] IS NULL) OR ([nctsHC_TransportDocument_2_Type] = @Original"& _ "_nctsHC_TransportDocument_2_Type)) AND ((@IsNull_nctsHC_TransportDocument_2_Refe"& _ "renceNumber = 1 AND [nctsHC_TransportDocument_2_ReferenceNumber] IS NULL) OR ([n"& _ "ctsHC_TransportDocument_2_ReferenceNumber] = @Original_nctsHC_TransportDocument_"& _ "2_ReferenceNumber)) AND ((@IsNull_nctsHC_TransportDocument_3_Type = 1 AND [nctsH"& _ "C_TransportDocument_3_Type] IS NULL) OR ([nctsHC_TransportDocument_3_Type] = @Or"& _ "iginal_nctsHC_TransportDocument_3_Type)) AND ((@IsNull_nctsHC_TransportDocument_"& _ "3_ReferenceNumber = 1 AND [nctsHC_TransportDocument_3_ReferenceNumber] IS NULL) "& _ "OR ([nctsHC_TransportDocument_3_ReferenceNumber] = @Original_nctsHC_TransportDoc"& _ "ument_3_ReferenceNumber)) AND ((@IsNull_nctsHC_TransportDocument_4_Type = 1 AND "& _ "[nctsHC_TransportDocument_4_Type] IS NULL) OR ([nctsHC_TransportDocument_4_Type]"& _ " = @Original_nctsHC_TransportDocument_4_Type)) AND ((@IsNull_nctsHC_TransportDoc"& _ "ument_4_ReferenceNumber = 1 AND [nctsHC_TransportDocument_4_ReferenceNumber] IS "& _ "NULL) OR ([nctsHC_TransportDocument_4_ReferenceNumber] = @Original_nctsHC_Transp"& _ "ortDocument_4_ReferenceNumber)) AND ((@IsNull_nctsHC_TransportDocument_5_Type = "& _ "1 AND [nctsHC_TransportDocument_5_Type] IS NULL) OR ([nctsHC_TransportDocument_5"& _ "_Type] = @Original_nctsHC_TransportDocument_5_Type)) AND ((@IsNull_nctsHC_Transp"& _ "ortDocument_5_ReferenceNumber = 1 AND [nctsHC_TransportDocument_5_ReferenceNumbe"& _ "r] IS NULL) OR ([nctsHC_TransportDocument_5_ReferenceNumber] = @Original_nctsHC_"& _ "TransportDocument_5_ReferenceNumber)) AND ((@IsNull_nctsHC_TransportDocument_6_T"& _ "ype = 1 AND [nctsHC_TransportDocument_6_Type] IS NULL) OR ([nctsHC_TransportDocu"& _ "ment_6_Type] = @Original_nctsHC_TransportDocument_6_Type)) AND ((@IsNull_nctsHC_"& _ "TransportDocument_6_ReferenceNumber = 1 AND [nctsHC_TransportDocument_6_Referenc"& _ "eNumber] IS NULL) OR ([nctsHC_TransportDocument_6_ReferenceNumber] = @Original_n"& _ "ctsHC_TransportDocument_6_ReferenceNumber)) AND ((@IsNull_nctsHC_TransportDocume"& _ "nt_7_Type = 1 AND [nctsHC_TransportDocument_7_Type] IS NULL) OR ([nctsHC_Transpo"& _ "rtDocument_7_Type] = @Original_nctsHC_TransportDocument_7_Type)) AND ((@IsNull_n"& _ "ctsHC_TransportDocument_7_ReferenceNumber = 1 AND [nctsHC_TransportDocument_7_Re"& _ "ferenceNumber] IS NULL) OR ([nctsHC_TransportDocument_7_ReferenceNumber] = @Orig"& _ "inal_nctsHC_TransportDocument_7_ReferenceNumber)) AND ((@IsNull_nctsHC_Transport"& _ "Document_8_Type = 1 AND [nctsHC_TransportDocument_8_Type] IS NULL) OR ([nctsHC_T"& _ "ransportDocument_8_Type] = @Original_nctsHC_TransportDocument_8_Type)) AND ((@Is"& _ "Null_nctsHC_TransportDocument_8_ReferenceNumber = 1 AND [nctsHC_TransportDocumen"& _ "t_8_ReferenceNumber] IS NULL) OR ([nctsHC_TransportDocument_8_ReferenceNumber] ="& _ " @Original_nctsHC_TransportDocument_8_ReferenceNumber)) AND ((@IsNull_nctsHC_Tra"& _ "nsportDocument_9_Type = 1 AND [nctsHC_TransportDocument_9_Type] IS NULL) OR ([nc"& _ "tsHC_TransportDocument_9_Type] = @Original_nctsHC_TransportDocument_9_Type)) AND"& _ " ((@IsNull_nctsHC_TransportDocument_9_ReferenceNumber = 1 AND [nctsHC_TransportD"& _ "ocument_9_ReferenceNumber] IS NULL) OR ([nctsHC_TransportDocument_9_ReferenceNum"& _ "ber] = @Original_nctsHC_TransportDocument_9_ReferenceNumber)) AND ((@IsNull_ncts"& _ "HC_AdditionalReference_1_Type = 1 AND [nctsHC_AdditionalReference_1_Type] IS NUL"& _ "L) OR ([nctsHC_AdditionalReference_1_Type] = @Original_nctsHC_AdditionalReferenc"& _ "e_1_Type)) AND ((@IsNull_nctsHC_AdditionalReference_1_ReferenceNumber = 1 AND [n"& _ "ctsHC_AdditionalReference_1_ReferenceNumber] IS NULL) OR ([nctsHC_AdditionalRefe"& _ "rence_1_ReferenceNumber] = @Original_nctsHC_AdditionalReference_1_ReferenceNumbe"& _ "r)) AND ((@IsNull_nctsHC_AdditionalReference_2_Type = 1 AND [nctsHC_AdditionalRe"& _ "ference_2_Type] IS NULL) OR ([nctsHC_AdditionalReference_2_Type] = @Original_nct"& _ "sHC_AdditionalReference_2_Type)) AND ((@IsNull_nctsHC_AdditionalReference_2_Refe"& _ "renceNumber = 1 AND [nctsHC_AdditionalReference_2_ReferenceNumber] IS NULL) OR ("& _ "[nctsHC_AdditionalReference_2_ReferenceNumber] = @Original_nctsHC_AdditionalRefe"& _ "rence_2_ReferenceNumber)) AND ((@IsNull_nctsHC_AdditionalReference_3_Type = 1 AN"& _ "D [nctsHC_AdditionalReference_3_Type] IS NULL) OR ([nctsHC_AdditionalReference_3"& _ "_Type] = @Original_nctsHC_AdditionalReference_3_Type)) AND ((@IsNull_nctsHC_Addi"& _ "tionalReference_3_ReferenceNumber = 1 AND [nctsHC_AdditionalReference_3_Referenc"& _ "eNumber] IS NULL) OR ([nctsHC_AdditionalReference_3_ReferenceNumber] = @Original"& _ "_nctsHC_AdditionalReference_3_ReferenceNumber)) AND ((@IsNull_nctsHC_AdditionalR"& _ "eference_4_Type = 1 AND [nctsHC_AdditionalReference_4_Type] IS NULL) OR ([nctsHC"& _ "_AdditionalReference_4_Type] = @Original_nctsHC_AdditionalReference_4_Type)) AND"& _ " ((@IsNull_nctsHC_AdditionalReference_4_ReferenceNumber = 1 AND [nctsHC_Addition"& _ "alReference_4_ReferenceNumber] IS NULL) OR ([nctsHC_AdditionalReference_4_Refere"& _ "nceNumber] = @Original_nctsHC_AdditionalReference_4_ReferenceNumber)) AND ((@IsN"& _ "ull_nctsHC_AdditionalReference_5_Type = 1 AND [nctsHC_AdditionalReference_5_Type"& _ "] IS NULL) OR ([nctsHC_AdditionalReference_5_Type] = @Original_nctsHC_Additional"& _ "Reference_5_Type)) AND ((@IsNull_nctsHC_AdditionalReference_5_ReferenceNumber = "& _ "1 AND [nctsHC_AdditionalReference_5_ReferenceNumber] IS NULL) OR ([nctsHC_Additi"& _ "onalReference_5_ReferenceNumber] = @Original_nctsHC_AdditionalReference_5_Refere"& _ "nceNumber)) AND ((@IsNull_nctsHC_AdditionalReference_6_Type = 1 AND [nctsHC_Addi"& _ "tionalReference_6_Type] IS NULL) OR ([nctsHC_AdditionalReference_6_Type] = @Orig"& _ "inal_nctsHC_AdditionalReference_6_Type)) AND ((@IsNull_nctsHC_AdditionalReferenc"& _ "e_6_ReferenceNumber = 1 AND [nctsHC_AdditionalReference_6_ReferenceNumber] IS NU"& _ "LL) OR ([nctsHC_AdditionalReference_6_ReferenceNumber] = @Original_nctsHC_Additi"& _ "onalReference_6_ReferenceNumber)) AND ((@IsNull_nctsHC_AdditionalReference_7_Typ"& _ "e = 1 AND [nctsHC_AdditionalReference_7_Type] IS NULL) OR ([nctsHC_AdditionalRef"& _ "erence_7_Type] = @Original_nctsHC_AdditionalReference_7_Type)) AND ((@IsNull_nct"& _ "sHC_AdditionalReference_7_ReferenceNumber = 1 AND [nctsHC_AdditionalReference_7_"& _ "ReferenceNumber] IS NULL) OR ([nctsHC_AdditionalReference_7_ReferenceNumber] = @"& _ "Original_nctsHC_AdditionalReference_7_ReferenceNumber)) AND ((@IsNull_nctsHC_Add"& _ "itionalReference_8_Type = 1 AND [nctsHC_AdditionalReference_8_Type] IS NULL) OR "& _ "([nctsHC_AdditionalReference_8_Type] = @Original_nctsHC_AdditionalReference_8_Ty"& _ "pe)) AND ((@IsNull_nctsHC_AdditionalReference_8_ReferenceNumber = 1 AND [nctsHC_"& _ "AdditionalReference_8_ReferenceNumber] IS NULL) OR ([nctsHC_AdditionalReference_"& _ "8_ReferenceNumber] = @Original_nctsHC_AdditionalReference_8_ReferenceNumber)) AN"& _ "D ((@IsNull_nctsHC_AdditionalReference_9_Type = 1 AND [nctsHC_AdditionalReferenc"& _ "e_9_Type] IS NULL) OR ([nctsHC_AdditionalReference_9_Type] = @Original_nctsHC_Ad"& _ "ditionalReference_9_Type)) AND ((@IsNull_nctsHC_AdditionalReference_9_ReferenceN"& _ "umber = 1 AND [nctsHC_AdditionalReference_9_ReferenceNumber] IS NULL) OR ([nctsH"& _ "C_AdditionalReference_9_ReferenceNumber] = @Original_nctsHC_AdditionalReference_"& _ "9_ReferenceNumber)) AND ((@IsNull_nctsHC_AdditionalInformation_1_Code = 1 AND [n"& _ "ctsHC_AdditionalInformation_1_Code] IS NULL) OR ([nctsHC_AdditionalInformation_1"& _ "_Code] = @Original_nctsHC_AdditionalInformation_1_Code)) AND ((@IsNull_nctsHC_Ad"& _ "ditionalInformation_1_Text = 1 AND [nctsHC_AdditionalInformation_1_Text] IS NULL"& _ ") OR ([nctsHC_AdditionalInformation_1_Text] = @Original_nctsHC_AdditionalInforma"& _ "tion_1_Text)) AND ((@IsNull_nctsHC_AdditionalInformation_2_Code = 1 AND [nctsHC_"& _ "AdditionalInformation_2_Code] IS NULL) OR ([nctsHC_AdditionalInformation_2_Code]"& _ " = @Original_nctsHC_AdditionalInformation_2_Code)) AND ((@IsNull_nctsHC_Addition"& _ "alInformation_2_Text = 1 AND [nctsHC_AdditionalInformation_2_Text] IS NULL) OR ("& _ "[nctsHC_AdditionalInformation_2_Text] = @Original_nctsHC_AdditionalInformation_2"& _ "_Text)) AND ((@IsNull_nctsHC_AdditionalInformation_3_Code = 1 AND [nctsHC_Additi"& _ "onalInformation_3_Code] IS NULL) OR ([nctsHC_AdditionalInformation_3_Code] = @Or"& _ "iginal_nctsHC_AdditionalInformation_3_Code)) AND ((@IsNull_nctsHC_AdditionalInfo"& _ "rmation_3_Text = 1 AND [nctsHC_AdditionalInformation_3_Text] IS NULL) OR ([nctsH"& _ "C_AdditionalInformation_3_Text] = @Original_nctsHC_AdditionalInformation_3_Text)"& _ ") AND ((@IsNull_nctsHC_AdditionalInformation_4_Code = 1 AND [nctsHC_AdditionalIn"& _ "formation_4_Code] IS NULL) OR ([nctsHC_AdditionalInformation_4_Code] = @Original"& _ "_nctsHC_AdditionalInformation_4_Code)) AND ((@IsNull_nctsHC_AdditionalInformatio"& _ "n_4_Text = 1 AND [nctsHC_AdditionalInformation_4_Text] IS NULL) OR ([nctsHC_Addi"& _ "tionalInformation_4_Text] = @Original_nctsHC_AdditionalInformation_4_Text)) AND "& _ "((@IsNull_nctsHC_AdditionalInformation_5_Code = 1 AND [nctsHC_AdditionalInformat"& _ "ion_5_Code] IS NULL) OR ([nctsHC_AdditionalInformation_5_Code] = @Original_nctsH"& _ "C_AdditionalInformation_5_Code)) AND ((@IsNull_nctsHC_AdditionalInformation_5_Te"& _ "xt = 1 AND [nctsHC_AdditionalInformation_5_Text] IS NULL) OR ([nctsHC_Additional"& _ "Information_5_Text] = @Original_nctsHC_AdditionalInformation_5_Text)) AND ((@IsN"& _ "ull_nctsHC_AdditionalInformation_6_Code = 1 AND [nctsHC_AdditionalInformation_6_"& _ "Code] IS NULL) OR ([nctsHC_AdditionalInformation_6_Code] = @Original_nctsHC_Addi"& _ "tionalInformation_6_Code)) AND ((@IsNull_nctsHC_AdditionalInformation_6_Text = 1"& _ " AND [nctsHC_AdditionalInformation_6_Text] IS NULL) OR ([nctsHC_AdditionalInform"& _ "ation_6_Text] = @Original_nctsHC_AdditionalInformation_6_Text)) AND ((@IsNull_nc"& _ "tsHC_AdditionalInformation_7_Code = 1 AND [nctsHC_AdditionalInformation_7_Code] "& _ "IS NULL) OR ([nctsHC_AdditionalInformation_7_Code] = @Original_nctsHC_Additional"& _ "Information_7_Code)) AND ((@IsNull_nctsHC_AdditionalInformation_7_Text = 1 AND ["& _ "nctsHC_AdditionalInformation_7_Text] IS NULL) OR ([nctsHC_AdditionalInformation_"& _ "7_Text] = @Original_nctsHC_AdditionalInformation_7_Text)) AND ((@IsNull_nctsHC_A"& _ "dditionalInformation_8_Code = 1 AND [nctsHC_AdditionalInformation_8_Code] IS NUL"& _ "L) OR ([nctsHC_AdditionalInformation_8_Code] = @Original_nctsHC_AdditionalInform"& _ "ation_8_Code)) AND ((@IsNull_nctsHC_AdditionalInformation_8_Text = 1 AND [nctsHC"& _ "_AdditionalInformation_8_Text] IS NULL) OR ([nctsHC_AdditionalInformation_8_Text"& _ "] = @Original_nctsHC_AdditionalInformation_8_Text)) AND ((@IsNull_nctsHC_Additio"& _ "nalInformation_9_Code = 1 AND [nctsHC_AdditionalInformation_9_Code] IS NULL) OR "& _ "([nctsHC_AdditionalInformation_9_Code] = @Original_nctsHC_AdditionalInformation_"& _ "9_Code)) AND ((@IsNull_nctsHC_AdditionalInformation_9_Text = 1 AND [nctsHC_Addit"& _ "ionalInformation_9_Text] IS NULL) OR ([nctsHC_AdditionalInformation_9_Text] = @O"& _ "riginal_nctsHC_AdditionalInformation_9_Text)) AND ((@IsNull_nctsHC_TransportChar"& _ "ges = 1 AND [nctsHC_TransportCharges] IS NULL) OR ([nctsHC_TransportCharges] = @"& _ "Original_nctsHC_TransportCharges)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_HouseConsignMentReference", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_HouseConsignMentReference", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_HouseConsignMentReference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_HouseConsignMentReference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_CountryOfDispatch", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_CountryOfDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_GrossMass", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_GrossMass", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "nctsHC_GrossMass", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_ReferenceNumberUCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportCharges", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportCharges", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportCharges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportCharges", 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].[tblDakosy_NCTSOut004_HouseConsignment] ([nctsHC_NctsId], [ncts"& _ "HC_HouseConsignMentReference], [nctsHC_CountryOfDispatch], [nctsHC_CountryOfDest"& _ "ination], [nctsHC_GrossMass], [nctsHC_ReferenceNumberUCR], [nctsHC_Consignor_Adr"& _ "essCode], [nctsHC_Consignor_IdentificationNumber], [nctsHC_Consignor_SubsidiaryN"& _ "umber], [nctsHC_Consignor_Name], [nctsHC_Consignor_StreetNumber], [nctsHC_Consig"& _ "nor_City], [nctsHC_Consignor_Postcode], [nctsHC_Consignor_Country], [nctsHC_Cons"& _ "ignor_ContactPerson_Name], [nctsHC_Consignor_ContactPerson_PhoneNumber], [nctsHC"& _ "_Consignor_ContactPerson_EMailAddress], [nctsHC_Consignee_AdressCode], [nctsHC_C"& _ "onsignee_IdentificationNumber], [nctsHC_Consignee_SubsidiaryNumber], [nctsHC_Con"& _ "signee_Name], [nctsHC_Consignee_StreetNumber], [nctsHC_Consignee_City], [nctsHC_"& _ "Consignee_Postcode], [nctsHC_Consignee_Country], [nctsHC_Consignee_ContactPerson"& _ "_Name], [nctsHC_Consignee_ContactPerson_PhoneNumber], [nctsHC_Consignee_ContactP"& _ "erson_EMailAddress], [nctsHC_AdditionalSupplyChainActor_1_Role], [nctsHC_Additio"& _ "nalSupplyChainActor_1_IdentificationNumber], [nctsHC_AdditionalSupplyChainActor_"& _ "2_Role], [nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber], [nctsHC_Add"& _ "itionalSupplyChainActor_3_Role], [nctsHC_AdditionalSupplyChainActor_3_Identifica"& _ "tionNumber], [nctsHC_AdditionalSupplyChainActor_4_Role], [nctsHC_AdditionalSuppl"& _ "yChainActor_4_IdentificationNumber], [nctsHC_AdditionalSupplyChainActor_5_Role],"& _ " [nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber], [nctsHC_AdditionalS"& _ "upplyChainActor_6_Role], [nctsHC_AdditionalSupplyChainActor_6_IdentificationNumb"& _ "er], [nctsHC_AdditionalSupplyChainActor_7_Role], [nctsHC_AdditionalSupplyChainAc"& _ "tor_7_IdentificationNumber], [nctsHC_AdditionalSupplyChainActor_8_Role], [nctsHC"& _ "_AdditionalSupplyChainActor_8_IdentificationNumber], [nctsHC_AdditionalSupplyCha"& _ "inActor_9_Role], [nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber], [nc"& _ "tsHC_SupportingDocument_1_Type], [nctsHC_SupportingDocument_1_ReferenceNumber], "& _ "[nctsHC_SupportingDocument_1_DocumentLineItemNumber], [nctsHC_SupportingDocument"& _ "_1_ComplementOfInformation], [nctsHC_SupportingDocument_2_Type], [nctsHC_Support"& _ "ingDocument_2_ReferenceNumber], [nctsHC_SupportingDocument_2_DocumentLineItemNum"& _ "ber], [nctsHC_SupportingDocument_2_ComplementOfInformation], [nctsHC_SupportingD"& _ "ocument_3_Type], [nctsHC_SupportingDocument_3_ReferenceNumber], [nctsHC_Supporti"& _ "ngDocument_3_DocumentLineItemNumber], [nctsHC_SupportingDocument_3_ComplementOfI"& _ "nformation], [nctsHC_SupportingDocument_4_Type], [nctsHC_SupportingDocument_4_Re"& _ "ferenceNumber], [nctsHC_SupportingDocument_4_DocumentLineItemNumber], [nctsHC_Su"& _ "pportingDocument_4_ComplementOfInformation], [nctsHC_SupportingDocument_5_Type],"& _ " [nctsHC_SupportingDocument_5_ReferenceNumber], [nctsHC_SupportingDocument_5_Doc"& _ "umentLineItemNumber], [nctsHC_SupportingDocument_5_ComplementOfInformation], [nc"& _ "tsHC_SupportingDocument_6_Type], [nctsHC_SupportingDocument_6_ReferenceNumber], "& _ "[nctsHC_SupportingDocument_6_DocumentLineItemNumber], [nctsHC_SupportingDocument"& _ "_6_ComplementOfInformation], [nctsHC_SupportingDocument_7_Type], [nctsHC_Support"& _ "ingDocument_7_ReferenceNumber], [nctsHC_SupportingDocument_7_DocumentLineItemNum"& _ "ber], [nctsHC_SupportingDocument_7_ComplementOfInformation], [nctsHC_SupportingD"& _ "ocument_8_Type], [nctsHC_SupportingDocument_8_ReferenceNumber], [nctsHC_Supporti"& _ "ngDocument_8_DocumentLineItemNumber], [nctsHC_SupportingDocument_8_ComplementOfI"& _ "nformation], [nctsHC_SupportingDocument_9_Type], [nctsHC_SupportingDocument_9_Re"& _ "ferenceNumber], [nctsHC_SupportingDocument_9_DocumentLineItemNumber], [nctsHC_Su"& _ "pportingDocument_9_ComplementOfInformation], [nctsHC_PreviousDocument_1_Type], ["& _ "nctsHC_PreviousDocument_1_ReferenceNumber], [nctsHC_PreviousDocument_1_Complemen"& _ "tOfInformation], [nctsHC_PreviousDocument_2_Type], [nctsHC_PreviousDocument_2_Re"& _ "ferenceNumber], [nctsHC_PreviousDocument_2_ComplementOfInformation], [nctsHC_Pre"& _ "viousDocument_3_Type], [nctsHC_PreviousDocument_3_ReferenceNumber], [nctsHC_Prev"& _ "iousDocument_3_ComplementOfInformation], [nctsHC_PreviousDocument_4_Type], [ncts"& _ "HC_PreviousDocument_4_ReferenceNumber], [nctsHC_PreviousDocument_4_ComplementOfI"& _ "nformation], [nctsHC_PreviousDocument_5_Type], [nctsHC_PreviousDocument_5_Refere"& _ "nceNumber], [nctsHC_PreviousDocument_5_ComplementOfInformation], [nctsHC_Previou"& _ "sDocument_6_Type], [nctsHC_PreviousDocument_6_ReferenceNumber], [nctsHC_Previous"& _ "Document_6_ComplementOfInformation], [nctsHC_PreviousDocument_7_Type], [nctsHC_P"& _ "reviousDocument_7_ReferenceNumber], [nctsHC_PreviousDocument_7_ComplementOfInfor"& _ "mation], [nctsHC_PreviousDocument_8_Type], [nctsHC_PreviousDocument_8_ReferenceN"& _ "umber], [nctsHC_PreviousDocument_8_ComplementOfInformation], [nctsHC_PreviousDoc"& _ "ument_9_Type], [nctsHC_PreviousDocument_9_ReferenceNumber], [nctsHC_PreviousDocu"& _ "ment_9_ComplementOfInformation], [nctsHC_TransportDocument_1_Type], [nctsHC_Tran"& _ "sportDocument_1_ReferenceNumber], [nctsHC_TransportDocument_2_Type], [nctsHC_Tra"& _ "nsportDocument_2_ReferenceNumber], [nctsHC_TransportDocument_3_Type], [nctsHC_Tr"& _ "ansportDocument_3_ReferenceNumber], [nctsHC_TransportDocument_4_Type], [nctsHC_T"& _ "ransportDocument_4_ReferenceNumber], [nctsHC_TransportDocument_5_Type], [nctsHC_"& _ "TransportDocument_5_ReferenceNumber], [nctsHC_TransportDocument_6_Type], [nctsHC"& _ "_TransportDocument_6_ReferenceNumber], [nctsHC_TransportDocument_7_Type], [nctsH"& _ "C_TransportDocument_7_ReferenceNumber], [nctsHC_TransportDocument_8_Type], [ncts"& _ "HC_TransportDocument_8_ReferenceNumber], [nctsHC_TransportDocument_9_Type], [nct"& _ "sHC_TransportDocument_9_ReferenceNumber], [nctsHC_AdditionalReference_1_Type], ["& _ "nctsHC_AdditionalReference_1_ReferenceNumber], [nctsHC_AdditionalReference_2_Typ"& _ "e], [nctsHC_AdditionalReference_2_ReferenceNumber], [nctsHC_AdditionalReference_"& _ "3_Type], [nctsHC_AdditionalReference_3_ReferenceNumber], [nctsHC_AdditionalRefer"& _ "ence_4_Type], [nctsHC_AdditionalReference_4_ReferenceNumber], [nctsHC_Additional"& _ "Reference_5_Type], [nctsHC_AdditionalReference_5_ReferenceNumber], [nctsHC_Addit"& _ "ionalReference_6_Type], [nctsHC_AdditionalReference_6_ReferenceNumber], [nctsHC_"& _ "AdditionalReference_7_Type], [nctsHC_AdditionalReference_7_ReferenceNumber], [nc"& _ "tsHC_AdditionalReference_8_Type], [nctsHC_AdditionalReference_8_ReferenceNumber]"& _ ", [nctsHC_AdditionalReference_9_Type], [nctsHC_AdditionalReference_9_ReferenceNu"& _ "mber], [nctsHC_AdditionalInformation_1_Code], [nctsHC_AdditionalInformation_1_Te"& _ "xt], [nctsHC_AdditionalInformation_2_Code], [nctsHC_AdditionalInformation_2_Text"& _ "], [nctsHC_AdditionalInformation_3_Code], [nctsHC_AdditionalInformation_3_Text],"& _ " [nctsHC_AdditionalInformation_4_Code], [nctsHC_AdditionalInformation_4_Text], ["& _ "nctsHC_AdditionalInformation_5_Code], [nctsHC_AdditionalInformation_5_Text], [nc"& _ "tsHC_AdditionalInformation_6_Code], [nctsHC_AdditionalInformation_6_Text], [ncts"& _ "HC_AdditionalInformation_7_Code], [nctsHC_AdditionalInformation_7_Text], [nctsHC"& _ "_AdditionalInformation_8_Code], [nctsHC_AdditionalInformation_8_Text], [nctsHC_A"& _ "dditionalInformation_9_Code], [nctsHC_AdditionalInformation_9_Text], [nctsHC_Tra"& _ "nsportCharges]) VALUES (@nctsHC_NctsId, @nctsHC_HouseConsignMentReference, @ncts"& _ "HC_CountryOfDispatch, @nctsHC_CountryOfDestination, @nctsHC_GrossMass, @nctsHC_R"& _ "eferenceNumberUCR, @nctsHC_Consignor_AdressCode, @nctsHC_Consignor_Identificatio"& _ "nNumber, @nctsHC_Consignor_SubsidiaryNumber, @nctsHC_Consignor_Name, @nctsHC_Con"& _ "signor_StreetNumber, @nctsHC_Consignor_City, @nctsHC_Consignor_Postcode, @nctsHC"& _ "_Consignor_Country, @nctsHC_Consignor_ContactPerson_Name, @nctsHC_Consignor_Cont"& _ "actPerson_PhoneNumber, @nctsHC_Consignor_ContactPerson_EMailAddress, @nctsHC_Con"& _ "signee_AdressCode, @nctsHC_Consignee_IdentificationNumber, @nctsHC_Consignee_Sub"& _ "sidiaryNumber, @nctsHC_Consignee_Name, @nctsHC_Consignee_StreetNumber, @nctsHC_C"& _ "onsignee_City, @nctsHC_Consignee_Postcode, @nctsHC_Consignee_Country, @nctsHC_Co"& _ "nsignee_ContactPerson_Name, @nctsHC_Consignee_ContactPerson_PhoneNumber, @nctsHC"& _ "_Consignee_ContactPerson_EMailAddress, @nctsHC_AdditionalSupplyChainActor_1_Role"& _ ", @nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber, @nctsHC_AdditionalS"& _ "upplyChainActor_2_Role, @nctsHC_AdditionalSupplyChainActor_2_IdentificationNumbe"& _ "r, @nctsHC_AdditionalSupplyChainActor_3_Role, @nctsHC_AdditionalSupplyChainActor"& _ "_3_IdentificationNumber, @nctsHC_AdditionalSupplyChainActor_4_Role, @nctsHC_Addi"& _ "tionalSupplyChainActor_4_IdentificationNumber, @nctsHC_AdditionalSupplyChainActo"& _ "r_5_Role, @nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber, @nctsHC_Add"& _ "itionalSupplyChainActor_6_Role, @nctsHC_AdditionalSupplyChainActor_6_Identificat"& _ "ionNumber, @nctsHC_AdditionalSupplyChainActor_7_Role, @nctsHC_AdditionalSupplyCh"& _ "ainActor_7_IdentificationNumber, @nctsHC_AdditionalSupplyChainActor_8_Role, @nct"& _ "sHC_AdditionalSupplyChainActor_8_IdentificationNumber, @nctsHC_AdditionalSupplyC"& _ "hainActor_9_Role, @nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber, @nc"& _ "tsHC_SupportingDocument_1_Type, @nctsHC_SupportingDocument_1_ReferenceNumber, @n"& _ "ctsHC_SupportingDocument_1_DocumentLineItemNumber, @nctsHC_SupportingDocument_1_"& _ "ComplementOfInformation, @nctsHC_SupportingDocument_2_Type, @nctsHC_SupportingDo"& _ "cument_2_ReferenceNumber, @nctsHC_SupportingDocument_2_DocumentLineItemNumber, @"& _ "nctsHC_SupportingDocument_2_ComplementOfInformation, @nctsHC_SupportingDocument_"& _ "3_Type, @nctsHC_SupportingDocument_3_ReferenceNumber, @nctsHC_SupportingDocument"& _ "_3_DocumentLineItemNumber, @nctsHC_SupportingDocument_3_ComplementOfInformation,"& _ " @nctsHC_SupportingDocument_4_Type, @nctsHC_SupportingDocument_4_ReferenceNumber"& _ ", @nctsHC_SupportingDocument_4_DocumentLineItemNumber, @nctsHC_SupportingDocumen"& _ "t_4_ComplementOfInformation, @nctsHC_SupportingDocument_5_Type, @nctsHC_Supporti"& _ "ngDocument_5_ReferenceNumber, @nctsHC_SupportingDocument_5_DocumentLineItemNumbe"& _ "r, @nctsHC_SupportingDocument_5_ComplementOfInformation, @nctsHC_SupportingDocum"& _ "ent_6_Type, @nctsHC_SupportingDocument_6_ReferenceNumber, @nctsHC_SupportingDocu"& _ "ment_6_DocumentLineItemNumber, @nctsHC_SupportingDocument_6_ComplementOfInformat"& _ "ion, @nctsHC_SupportingDocument_7_Type, @nctsHC_SupportingDocument_7_ReferenceNu"& _ "mber, @nctsHC_SupportingDocument_7_DocumentLineItemNumber, @nctsHC_SupportingDoc"& _ "ument_7_ComplementOfInformation, @nctsHC_SupportingDocument_8_Type, @nctsHC_Supp"& _ "ortingDocument_8_ReferenceNumber, @nctsHC_SupportingDocument_8_DocumentLineItemN"& _ "umber, @nctsHC_SupportingDocument_8_ComplementOfInformation, @nctsHC_SupportingD"& _ "ocument_9_Type, @nctsHC_SupportingDocument_9_ReferenceNumber, @nctsHC_Supporting"& _ "Document_9_DocumentLineItemNumber, @nctsHC_SupportingDocument_9_ComplementOfInfo"& _ "rmation, @nctsHC_PreviousDocument_1_Type, @nctsHC_PreviousDocument_1_ReferenceNu"& _ "mber, @nctsHC_PreviousDocument_1_ComplementOfInformation, @nctsHC_PreviousDocume"& _ "nt_2_Type, @nctsHC_PreviousDocument_2_ReferenceNumber, @nctsHC_PreviousDocument_"& _ "2_ComplementOfInformation, @nctsHC_PreviousDocument_3_Type, @nctsHC_PreviousDocu"& _ "ment_3_ReferenceNumber, @nctsHC_PreviousDocument_3_ComplementOfInformation, @nct"& _ "sHC_PreviousDocument_4_Type, @nctsHC_PreviousDocument_4_ReferenceNumber, @nctsHC"& _ "_PreviousDocument_4_ComplementOfInformation, @nctsHC_PreviousDocument_5_Type, @n"& _ "ctsHC_PreviousDocument_5_ReferenceNumber, @nctsHC_PreviousDocument_5_ComplementO"& _ "fInformation, @nctsHC_PreviousDocument_6_Type, @nctsHC_PreviousDocument_6_Refere"& _ "nceNumber, @nctsHC_PreviousDocument_6_ComplementOfInformation, @nctsHC_PreviousD"& _ "ocument_7_Type, @nctsHC_PreviousDocument_7_ReferenceNumber, @nctsHC_PreviousDocu"& _ "ment_7_ComplementOfInformation, @nctsHC_PreviousDocument_8_Type, @nctsHC_Previou"& _ "sDocument_8_ReferenceNumber, @nctsHC_PreviousDocument_8_ComplementOfInformation,"& _ " @nctsHC_PreviousDocument_9_Type, @nctsHC_PreviousDocument_9_ReferenceNumber, @n"& _ "ctsHC_PreviousDocument_9_ComplementOfInformation, @nctsHC_TransportDocument_1_Ty"& _ "pe, @nctsHC_TransportDocument_1_ReferenceNumber, @nctsHC_TransportDocument_2_Typ"& _ "e, @nctsHC_TransportDocument_2_ReferenceNumber, @nctsHC_TransportDocument_3_Type"& _ ", @nctsHC_TransportDocument_3_ReferenceNumber, @nctsHC_TransportDocument_4_Type,"& _ " @nctsHC_TransportDocument_4_ReferenceNumber, @nctsHC_TransportDocument_5_Type, "& _ "@nctsHC_TransportDocument_5_ReferenceNumber, @nctsHC_TransportDocument_6_Type, @"& _ "nctsHC_TransportDocument_6_ReferenceNumber, @nctsHC_TransportDocument_7_Type, @n"& _ "ctsHC_TransportDocument_7_ReferenceNumber, @nctsHC_TransportDocument_8_Type, @nc"& _ "tsHC_TransportDocument_8_ReferenceNumber, @nctsHC_TransportDocument_9_Type, @nct"& _ "sHC_TransportDocument_9_ReferenceNumber, @nctsHC_AdditionalReference_1_Type, @nc"& _ "tsHC_AdditionalReference_1_ReferenceNumber, @nctsHC_AdditionalReference_2_Type, "& _ "@nctsHC_AdditionalReference_2_ReferenceNumber, @nctsHC_AdditionalReference_3_Typ"& _ "e, @nctsHC_AdditionalReference_3_ReferenceNumber, @nctsHC_AdditionalReference_4_"& _ "Type, @nctsHC_AdditionalReference_4_ReferenceNumber, @nctsHC_AdditionalReference"& _ "_5_Type, @nctsHC_AdditionalReference_5_ReferenceNumber, @nctsHC_AdditionalRefere"& _ "nce_6_Type, @nctsHC_AdditionalReference_6_ReferenceNumber, @nctsHC_AdditionalRef"& _ "erence_7_Type, @nctsHC_AdditionalReference_7_ReferenceNumber, @nctsHC_Additional"& _ "Reference_8_Type, @nctsHC_AdditionalReference_8_ReferenceNumber, @nctsHC_Additio"& _ "nalReference_9_Type, @nctsHC_AdditionalReference_9_ReferenceNumber, @nctsHC_Addi"& _ "tionalInformation_1_Code, @nctsHC_AdditionalInformation_1_Text, @nctsHC_Addition"& _ "alInformation_2_Code, @nctsHC_AdditionalInformation_2_Text, @nctsHC_AdditionalIn"& _ "formation_3_Code, @nctsHC_AdditionalInformation_3_Text, @nctsHC_AdditionalInform"& _ "ation_4_Code, @nctsHC_AdditionalInformation_4_Text, @nctsHC_AdditionalInformatio"& _ "n_5_Code, @nctsHC_AdditionalInformation_5_Text, @nctsHC_AdditionalInformation_6_"& _ "Code, @nctsHC_AdditionalInformation_6_Text, @nctsHC_AdditionalInformation_7_Code"& _ ", @nctsHC_AdditionalInformation_7_Text, @nctsHC_AdditionalInformation_8_Code, @n"& _ "ctsHC_AdditionalInformation_8_Text, @nctsHC_AdditionalInformation_9_Code, @nctsH"& _ "C_AdditionalInformation_9_Text, @nctsHC_TransportCharges);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsHC_Id, nc"& _ "tsHC_NctsId, nctsHC_HouseConsignMentReference, nctsHC_CountryOfDispatch, nctsHC_"& _ "CountryOfDestination, nctsHC_GrossMass, nctsHC_ReferenceNumberUCR, nctsHC_Consig"& _ "nor_AdressCode, nctsHC_Consignor_IdentificationNumber, nctsHC_Consignor_Subsidia"& _ "ryNumber, nctsHC_Consignor_Name, nctsHC_Consignor_StreetNumber, nctsHC_Consignor"& _ "_City, nctsHC_Consignor_Postcode, nctsHC_Consignor_Country, nctsHC_Consignor_Con"& _ "tactPerson_Name, nctsHC_Consignor_ContactPerson_PhoneNumber, nctsHC_Consignor_Co"& _ "ntactPerson_EMailAddress, nctsHC_Consignee_AdressCode, nctsHC_Consignee_Identifi"& _ "cationNumber, nctsHC_Consignee_SubsidiaryNumber, nctsHC_Consignee_Name, nctsHC_C"& _ "onsignee_StreetNumber, nctsHC_Consignee_City, nctsHC_Consignee_Postcode, nctsHC_"& _ "Consignee_Country, nctsHC_Consignee_ContactPerson_Name, nctsHC_Consignee_Contact"& _ "Person_PhoneNumber, nctsHC_Consignee_ContactPerson_EMailAddress, nctsHC_Addition"& _ "alSupplyChainActor_1_Role, nctsHC_AdditionalSupplyChainActor_1_IdentificationNum"& _ "ber, nctsHC_AdditionalSupplyChainActor_2_Role, nctsHC_AdditionalSupplyChainActor"& _ "_2_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_3_Role, nctsHC_Additi"& _ "onalSupplyChainActor_3_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_4"& _ "_Role, nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber, nctsHC_Addition"& _ "alSupplyChainActor_5_Role, nctsHC_AdditionalSupplyChainActor_5_IdentificationNum"& _ "ber, nctsHC_AdditionalSupplyChainActor_6_Role, nctsHC_AdditionalSupplyChainActor"& _ "_6_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_7_Role, nctsHC_Additi"& _ "onalSupplyChainActor_7_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_8"& _ "_Role, nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber, nctsHC_Addition"& _ "alSupplyChainActor_9_Role, nctsHC_AdditionalSupplyChainActor_9_IdentificationNum"& _ "ber, nctsHC_SupportingDocument_1_Type, nctsHC_SupportingDocument_1_ReferenceNumb"& _ "er, nctsHC_SupportingDocument_1_DocumentLineItemNumber, nctsHC_SupportingDocumen"& _ "t_1_ComplementOfInformation, nctsHC_SupportingDocument_2_Type, nctsHC_Supporting"& _ "Document_2_ReferenceNumber, nctsHC_SupportingDocument_2_DocumentLineItemNumber, "& _ "nctsHC_SupportingDocument_2_ComplementOfInformation, nctsHC_SupportingDocument_3"& _ "_Type, nctsHC_SupportingDocument_3_ReferenceNumber, nctsHC_SupportingDocument_3_"& _ "DocumentLineItemNumber, nctsHC_SupportingDocument_3_ComplementOfInformation, nct"& _ "sHC_SupportingDocument_4_Type, nctsHC_SupportingDocument_4_ReferenceNumber, ncts"& _ "HC_SupportingDocument_4_DocumentLineItemNumber, nctsHC_SupportingDocument_4_Comp"& _ "lementOfInformation, nctsHC_SupportingDocument_5_Type, nctsHC_SupportingDocument"& _ "_5_ReferenceNumber, nctsHC_SupportingDocument_5_DocumentLineItemNumber, nctsHC_S"& _ "upportingDocument_5_ComplementOfInformation, nctsHC_SupportingDocument_6_Type, n"& _ "ctsHC_SupportingDocument_6_ReferenceNumber, nctsHC_SupportingDocument_6_Document"& _ "LineItemNumber, nctsHC_SupportingDocument_6_ComplementOfInformation, nctsHC_Supp"& _ "ortingDocument_7_Type, nctsHC_SupportingDocument_7_ReferenceNumber, nctsHC_Suppo"& _ "rtingDocument_7_DocumentLineItemNumber, nctsHC_SupportingDocument_7_ComplementOf"& _ "Information, nctsHC_SupportingDocument_8_Type, nctsHC_SupportingDocument_8_Refer"& _ "enceNumber, nctsHC_SupportingDocument_8_DocumentLineItemNumber, nctsHC_Supportin"& _ "gDocument_8_ComplementOfInformation, nctsHC_SupportingDocument_9_Type, nctsHC_Su"& _ "pportingDocument_9_ReferenceNumber, nctsHC_SupportingDocument_9_DocumentLineItem"& _ "Number, nctsHC_SupportingDocument_9_ComplementOfInformation, nctsHC_PreviousDocu"& _ "ment_1_Type, nctsHC_PreviousDocument_1_ReferenceNumber, nctsHC_PreviousDocument_"& _ "1_ComplementOfInformation, nctsHC_PreviousDocument_2_Type, nctsHC_PreviousDocume"& _ "nt_2_ReferenceNumber, nctsHC_PreviousDocument_2_ComplementOfInformation, nctsHC_"& _ "PreviousDocument_3_Type, nctsHC_PreviousDocument_3_ReferenceNumber, nctsHC_Previ"& _ "ousDocument_3_ComplementOfInformation, nctsHC_PreviousDocument_4_Type, nctsHC_Pr"& _ "eviousDocument_4_ReferenceNumber, nctsHC_PreviousDocument_4_ComplementOfInformat"& _ "ion, nctsHC_PreviousDocument_5_Type, nctsHC_PreviousDocument_5_ReferenceNumber, "& _ "nctsHC_PreviousDocument_5_ComplementOfInformation, nctsHC_PreviousDocument_6_Typ"& _ "e, nctsHC_PreviousDocument_6_ReferenceNumber, nctsHC_PreviousDocument_6_Compleme"& _ "ntOfInformation, nctsHC_PreviousDocument_7_Type, nctsHC_PreviousDocument_7_Refer"& _ "enceNumber, nctsHC_PreviousDocument_7_ComplementOfInformation, nctsHC_PreviousDo"& _ "cument_8_Type, nctsHC_PreviousDocument_8_ReferenceNumber, nctsHC_PreviousDocumen"& _ "t_8_ComplementOfInformation, nctsHC_PreviousDocument_9_Type, nctsHC_PreviousDocu"& _ "ment_9_ReferenceNumber, nctsHC_PreviousDocument_9_ComplementOfInformation, nctsH"& _ "C_TransportDocument_1_Type, nctsHC_TransportDocument_1_ReferenceNumber, nctsHC_T"& _ "ransportDocument_2_Type, nctsHC_TransportDocument_2_ReferenceNumber, nctsHC_Tran"& _ "sportDocument_3_Type, nctsHC_TransportDocument_3_ReferenceNumber, nctsHC_Transpo"& _ "rtDocument_4_Type, nctsHC_TransportDocument_4_ReferenceNumber, nctsHC_TransportD"& _ "ocument_5_Type, nctsHC_TransportDocument_5_ReferenceNumber, nctsHC_TransportDocu"& _ "ment_6_Type, nctsHC_TransportDocument_6_ReferenceNumber, nctsHC_TransportDocumen"& _ "t_7_Type, nctsHC_TransportDocument_7_ReferenceNumber, nctsHC_TransportDocument_8"& _ "_Type, nctsHC_TransportDocument_8_ReferenceNumber, nctsHC_TransportDocument_9_Ty"& _ "pe, nctsHC_TransportDocument_9_ReferenceNumber, nctsHC_AdditionalReference_1_Typ"& _ "e, nctsHC_AdditionalReference_1_ReferenceNumber, nctsHC_AdditionalReference_2_Ty"& _ "pe, nctsHC_AdditionalReference_2_ReferenceNumber, nctsHC_AdditionalReference_3_T"& _ "ype, nctsHC_AdditionalReference_3_ReferenceNumber, nctsHC_AdditionalReference_4_"& _ "Type, nctsHC_AdditionalReference_4_ReferenceNumber, nctsHC_AdditionalReference_5"& _ "_Type, nctsHC_AdditionalReference_5_ReferenceNumber, nctsHC_AdditionalReference_"& _ "6_Type, nctsHC_AdditionalReference_6_ReferenceNumber, nctsHC_AdditionalReference"& _ "_7_Type, nctsHC_AdditionalReference_7_ReferenceNumber, nctsHC_AdditionalReferenc"& _ "e_8_Type, nctsHC_AdditionalReference_8_ReferenceNumber, nctsHC_AdditionalReferen"& _ "ce_9_Type, nctsHC_AdditionalReference_9_ReferenceNumber, nctsHC_AdditionalInform"& _ "ation_1_Code, nctsHC_AdditionalInformation_1_Text, nctsHC_AdditionalInformation_"& _ "2_Code, nctsHC_AdditionalInformation_2_Text, nctsHC_AdditionalInformation_3_Code"& _ ", nctsHC_AdditionalInformation_3_Text, nctsHC_AdditionalInformation_4_Code, ncts"& _ "HC_AdditionalInformation_4_Text, nctsHC_AdditionalInformation_5_Code, nctsHC_Add"& _ "itionalInformation_5_Text, nctsHC_AdditionalInformation_6_Code, nctsHC_Additiona"& _ "lInformation_6_Text, nctsHC_AdditionalInformation_7_Code, nctsHC_AdditionalInfor"& _ "mation_7_Text, nctsHC_AdditionalInformation_8_Code, nctsHC_AdditionalInformation"& _ "_8_Text, nctsHC_AdditionalInformation_9_Code, nctsHC_AdditionalInformation_9_Tex"& _ "t, nctsHC_TransportCharges FROM tblDakosy_NCTSOut004_HouseConsignment WHERE (nct"& _ "sHC_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_HouseConsignMentReference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_HouseConsignMentReference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDispatch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "nctsHC_GrossMass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportCharges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportCharges", 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].[tblDakosy_NCTSOut004_HouseConsignment] SET [nctsHC_NctsId] = @nctsH"& _ "C_NctsId, [nctsHC_HouseConsignMentReference] = @nctsHC_HouseConsignMentReference"& _ ", [nctsHC_CountryOfDispatch] = @nctsHC_CountryOfDispatch, [nctsHC_CountryOfDesti"& _ "nation] = @nctsHC_CountryOfDestination, [nctsHC_GrossMass] = @nctsHC_GrossMass, "& _ "[nctsHC_ReferenceNumberUCR] = @nctsHC_ReferenceNumberUCR, [nctsHC_Consignor_Adre"& _ "ssCode] = @nctsHC_Consignor_AdressCode, [nctsHC_Consignor_IdentificationNumber] "& _ "= @nctsHC_Consignor_IdentificationNumber, [nctsHC_Consignor_SubsidiaryNumber] = "& _ "@nctsHC_Consignor_SubsidiaryNumber, [nctsHC_Consignor_Name] = @nctsHC_Consignor_"& _ "Name, [nctsHC_Consignor_StreetNumber] = @nctsHC_Consignor_StreetNumber, [nctsHC_"& _ "Consignor_City] = @nctsHC_Consignor_City, [nctsHC_Consignor_Postcode] = @nctsHC_"& _ "Consignor_Postcode, [nctsHC_Consignor_Country] = @nctsHC_Consignor_Country, [nct"& _ "sHC_Consignor_ContactPerson_Name] = @nctsHC_Consignor_ContactPerson_Name, [nctsH"& _ "C_Consignor_ContactPerson_PhoneNumber] = @nctsHC_Consignor_ContactPerson_PhoneNu"& _ "mber, [nctsHC_Consignor_ContactPerson_EMailAddress] = @nctsHC_Consignor_ContactP"& _ "erson_EMailAddress, [nctsHC_Consignee_AdressCode] = @nctsHC_Consignee_AdressCode"& _ ", [nctsHC_Consignee_IdentificationNumber] = @nctsHC_Consignee_IdentificationNumb"& _ "er, [nctsHC_Consignee_SubsidiaryNumber] = @nctsHC_Consignee_SubsidiaryNumber, [n"& _ "ctsHC_Consignee_Name] = @nctsHC_Consignee_Name, [nctsHC_Consignee_StreetNumber] "& _ "= @nctsHC_Consignee_StreetNumber, [nctsHC_Consignee_City] = @nctsHC_Consignee_Ci"& _ "ty, [nctsHC_Consignee_Postcode] = @nctsHC_Consignee_Postcode, [nctsHC_Consignee_"& _ "Country] = @nctsHC_Consignee_Country, [nctsHC_Consignee_ContactPerson_Name] = @n"& _ "ctsHC_Consignee_ContactPerson_Name, [nctsHC_Consignee_ContactPerson_PhoneNumber]"& _ " = @nctsHC_Consignee_ContactPerson_PhoneNumber, [nctsHC_Consignee_ContactPerson_"& _ "EMailAddress] = @nctsHC_Consignee_ContactPerson_EMailAddress, [nctsHC_Additional"& _ "SupplyChainActor_1_Role] = @nctsHC_AdditionalSupplyChainActor_1_Role, [nctsHC_Ad"& _ "ditionalSupplyChainActor_1_IdentificationNumber] = @nctsHC_AdditionalSupplyChain"& _ "Actor_1_IdentificationNumber, [nctsHC_AdditionalSupplyChainActor_2_Role] = @ncts"& _ "HC_AdditionalSupplyChainActor_2_Role, [nctsHC_AdditionalSupplyChainActor_2_Ident"& _ "ificationNumber] = @nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber, [n"& _ "ctsHC_AdditionalSupplyChainActor_3_Role] = @nctsHC_AdditionalSupplyChainActor_3_"& _ "Role, [nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber] = @nctsHC_Addit"& _ "ionalSupplyChainActor_3_IdentificationNumber, [nctsHC_AdditionalSupplyChainActor"& _ "_4_Role] = @nctsHC_AdditionalSupplyChainActor_4_Role, [nctsHC_AdditionalSupplyCh"& _ "ainActor_4_IdentificationNumber] = @nctsHC_AdditionalSupplyChainActor_4_Identifi"& _ "cationNumber, [nctsHC_AdditionalSupplyChainActor_5_Role] = @nctsHC_AdditionalSup"& _ "plyChainActor_5_Role, [nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber]"& _ " = @nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber, [nctsHC_Additional"& _ "SupplyChainActor_6_Role] = @nctsHC_AdditionalSupplyChainActor_6_Role, [nctsHC_Ad"& _ "ditionalSupplyChainActor_6_IdentificationNumber] = @nctsHC_AdditionalSupplyChain"& _ "Actor_6_IdentificationNumber, [nctsHC_AdditionalSupplyChainActor_7_Role] = @ncts"& _ "HC_AdditionalSupplyChainActor_7_Role, [nctsHC_AdditionalSupplyChainActor_7_Ident"& _ "ificationNumber] = @nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber, [n"& _ "ctsHC_AdditionalSupplyChainActor_8_Role] = @nctsHC_AdditionalSupplyChainActor_8_"& _ "Role, [nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber] = @nctsHC_Addit"& _ "ionalSupplyChainActor_8_IdentificationNumber, [nctsHC_AdditionalSupplyChainActor"& _ "_9_Role] = @nctsHC_AdditionalSupplyChainActor_9_Role, [nctsHC_AdditionalSupplyCh"& _ "ainActor_9_IdentificationNumber] = @nctsHC_AdditionalSupplyChainActor_9_Identifi"& _ "cationNumber, [nctsHC_SupportingDocument_1_Type] = @nctsHC_SupportingDocument_1_"& _ "Type, [nctsHC_SupportingDocument_1_ReferenceNumber] = @nctsHC_SupportingDocument"& _ "_1_ReferenceNumber, [nctsHC_SupportingDocument_1_DocumentLineItemNumber] = @ncts"& _ "HC_SupportingDocument_1_DocumentLineItemNumber, [nctsHC_SupportingDocument_1_Com"& _ "plementOfInformation] = @nctsHC_SupportingDocument_1_ComplementOfInformation, [n"& _ "ctsHC_SupportingDocument_2_Type] = @nctsHC_SupportingDocument_2_Type, [nctsHC_Su"& _ "pportingDocument_2_ReferenceNumber] = @nctsHC_SupportingDocument_2_ReferenceNumb"& _ "er, [nctsHC_SupportingDocument_2_DocumentLineItemNumber] = @nctsHC_SupportingDoc"& _ "ument_2_DocumentLineItemNumber, [nctsHC_SupportingDocument_2_ComplementOfInforma"& _ "tion] = @nctsHC_SupportingDocument_2_ComplementOfInformation, [nctsHC_Supporting"& _ "Document_3_Type] = @nctsHC_SupportingDocument_3_Type, [nctsHC_SupportingDocument"& _ "_3_ReferenceNumber] = @nctsHC_SupportingDocument_3_ReferenceNumber, [nctsHC_Supp"& _ "ortingDocument_3_DocumentLineItemNumber] = @nctsHC_SupportingDocument_3_Document"& _ "LineItemNumber, [nctsHC_SupportingDocument_3_ComplementOfInformation] = @nctsHC_"& _ "SupportingDocument_3_ComplementOfInformation, [nctsHC_SupportingDocument_4_Type]"& _ " = @nctsHC_SupportingDocument_4_Type, [nctsHC_SupportingDocument_4_ReferenceNumb"& _ "er] = @nctsHC_SupportingDocument_4_ReferenceNumber, [nctsHC_SupportingDocument_4"& _ "_DocumentLineItemNumber] = @nctsHC_SupportingDocument_4_DocumentLineItemNumber, "& _ "[nctsHC_SupportingDocument_4_ComplementOfInformation] = @nctsHC_SupportingDocume"& _ "nt_4_ComplementOfInformation, [nctsHC_SupportingDocument_5_Type] = @nctsHC_Suppo"& _ "rtingDocument_5_Type, [nctsHC_SupportingDocument_5_ReferenceNumber] = @nctsHC_Su"& _ "pportingDocument_5_ReferenceNumber, [nctsHC_SupportingDocument_5_DocumentLineIte"& _ "mNumber] = @nctsHC_SupportingDocument_5_DocumentLineItemNumber, [nctsHC_Supporti"& _ "ngDocument_5_ComplementOfInformation] = @nctsHC_SupportingDocument_5_ComplementO"& _ "fInformation, [nctsHC_SupportingDocument_6_Type] = @nctsHC_SupportingDocument_6_"& _ "Type, [nctsHC_SupportingDocument_6_ReferenceNumber] = @nctsHC_SupportingDocument"& _ "_6_ReferenceNumber, [nctsHC_SupportingDocument_6_DocumentLineItemNumber] = @ncts"& _ "HC_SupportingDocument_6_DocumentLineItemNumber, [nctsHC_SupportingDocument_6_Com"& _ "plementOfInformation] = @nctsHC_SupportingDocument_6_ComplementOfInformation, [n"& _ "ctsHC_SupportingDocument_7_Type] = @nctsHC_SupportingDocument_7_Type, [nctsHC_Su"& _ "pportingDocument_7_ReferenceNumber] = @nctsHC_SupportingDocument_7_ReferenceNumb"& _ "er, [nctsHC_SupportingDocument_7_DocumentLineItemNumber] = @nctsHC_SupportingDoc"& _ "ument_7_DocumentLineItemNumber, [nctsHC_SupportingDocument_7_ComplementOfInforma"& _ "tion] = @nctsHC_SupportingDocument_7_ComplementOfInformation, [nctsHC_Supporting"& _ "Document_8_Type] = @nctsHC_SupportingDocument_8_Type, [nctsHC_SupportingDocument"& _ "_8_ReferenceNumber] = @nctsHC_SupportingDocument_8_ReferenceNumber, [nctsHC_Supp"& _ "ortingDocument_8_DocumentLineItemNumber] = @nctsHC_SupportingDocument_8_Document"& _ "LineItemNumber, [nctsHC_SupportingDocument_8_ComplementOfInformation] = @nctsHC_"& _ "SupportingDocument_8_ComplementOfInformation, [nctsHC_SupportingDocument_9_Type]"& _ " = @nctsHC_SupportingDocument_9_Type, [nctsHC_SupportingDocument_9_ReferenceNumb"& _ "er] = @nctsHC_SupportingDocument_9_ReferenceNumber, [nctsHC_SupportingDocument_9"& _ "_DocumentLineItemNumber] = @nctsHC_SupportingDocument_9_DocumentLineItemNumber, "& _ "[nctsHC_SupportingDocument_9_ComplementOfInformation] = @nctsHC_SupportingDocume"& _ "nt_9_ComplementOfInformation, [nctsHC_PreviousDocument_1_Type] = @nctsHC_Previou"& _ "sDocument_1_Type, [nctsHC_PreviousDocument_1_ReferenceNumber] = @nctsHC_Previous"& _ "Document_1_ReferenceNumber, [nctsHC_PreviousDocument_1_ComplementOfInformation] "& _ "= @nctsHC_PreviousDocument_1_ComplementOfInformation, [nctsHC_PreviousDocument_2"& _ "_Type] = @nctsHC_PreviousDocument_2_Type, [nctsHC_PreviousDocument_2_ReferenceNu"& _ "mber] = @nctsHC_PreviousDocument_2_ReferenceNumber, [nctsHC_PreviousDocument_2_C"& _ "omplementOfInformation] = @nctsHC_PreviousDocument_2_ComplementOfInformation, [n"& _ "ctsHC_PreviousDocument_3_Type] = @nctsHC_PreviousDocument_3_Type, [nctsHC_Previo"& _ "usDocument_3_ReferenceNumber] = @nctsHC_PreviousDocument_3_ReferenceNumber, [nct"& _ "sHC_PreviousDocument_3_ComplementOfInformation] = @nctsHC_PreviousDocument_3_Com"& _ "plementOfInformation, [nctsHC_PreviousDocument_4_Type] = @nctsHC_PreviousDocumen"& _ "t_4_Type, [nctsHC_PreviousDocument_4_ReferenceNumber] = @nctsHC_PreviousDocument"& _ "_4_ReferenceNumber, [nctsHC_PreviousDocument_4_ComplementOfInformation] = @nctsH"& _ "C_PreviousDocument_4_ComplementOfInformation, [nctsHC_PreviousDocument_5_Type] ="& _ " @nctsHC_PreviousDocument_5_Type, [nctsHC_PreviousDocument_5_ReferenceNumber] = "& _ "@nctsHC_PreviousDocument_5_ReferenceNumber, [nctsHC_PreviousDocument_5_Complemen"& _ "tOfInformation] = @nctsHC_PreviousDocument_5_ComplementOfInformation, [nctsHC_Pr"& _ "eviousDocument_6_Type] = @nctsHC_PreviousDocument_6_Type, [nctsHC_PreviousDocume"& _ "nt_6_ReferenceNumber] = @nctsHC_PreviousDocument_6_ReferenceNumber, [nctsHC_Prev"& _ "iousDocument_6_ComplementOfInformation] = @nctsHC_PreviousDocument_6_ComplementO"& _ "fInformation, [nctsHC_PreviousDocument_7_Type] = @nctsHC_PreviousDocument_7_Type"& _ ", [nctsHC_PreviousDocument_7_ReferenceNumber] = @nctsHC_PreviousDocument_7_Refer"& _ "enceNumber, [nctsHC_PreviousDocument_7_ComplementOfInformation] = @nctsHC_Previo"& _ "usDocument_7_ComplementOfInformation, [nctsHC_PreviousDocument_8_Type] = @nctsHC"& _ "_PreviousDocument_8_Type, [nctsHC_PreviousDocument_8_ReferenceNumber] = @nctsHC_"& _ "PreviousDocument_8_ReferenceNumber, [nctsHC_PreviousDocument_8_ComplementOfInfor"& _ "mation] = @nctsHC_PreviousDocument_8_ComplementOfInformation, [nctsHC_PreviousDo"& _ "cument_9_Type] = @nctsHC_PreviousDocument_9_Type, [nctsHC_PreviousDocument_9_Ref"& _ "erenceNumber] = @nctsHC_PreviousDocument_9_ReferenceNumber, [nctsHC_PreviousDocu"& _ "ment_9_ComplementOfInformation] = @nctsHC_PreviousDocument_9_ComplementOfInforma"& _ "tion, [nctsHC_TransportDocument_1_Type] = @nctsHC_TransportDocument_1_Type, [nct"& _ "sHC_TransportDocument_1_ReferenceNumber] = @nctsHC_TransportDocument_1_Reference"& _ "Number, [nctsHC_TransportDocument_2_Type] = @nctsHC_TransportDocument_2_Type, [n"& _ "ctsHC_TransportDocument_2_ReferenceNumber] = @nctsHC_TransportDocument_2_Referen"& _ "ceNumber, [nctsHC_TransportDocument_3_Type] = @nctsHC_TransportDocument_3_Type, "& _ "[nctsHC_TransportDocument_3_ReferenceNumber] = @nctsHC_TransportDocument_3_Refer"& _ "enceNumber, [nctsHC_TransportDocument_4_Type] = @nctsHC_TransportDocument_4_Type"& _ ", [nctsHC_TransportDocument_4_ReferenceNumber] = @nctsHC_TransportDocument_4_Ref"& _ "erenceNumber, [nctsHC_TransportDocument_5_Type] = @nctsHC_TransportDocument_5_Ty"& _ "pe, [nctsHC_TransportDocument_5_ReferenceNumber] = @nctsHC_TransportDocument_5_R"& _ "eferenceNumber, [nctsHC_TransportDocument_6_Type] = @nctsHC_TransportDocument_6_"& _ "Type, [nctsHC_TransportDocument_6_ReferenceNumber] = @nctsHC_TransportDocument_6"& _ "_ReferenceNumber, [nctsHC_TransportDocument_7_Type] = @nctsHC_TransportDocument_"& _ "7_Type, [nctsHC_TransportDocument_7_ReferenceNumber] = @nctsHC_TransportDocument"& _ "_7_ReferenceNumber, [nctsHC_TransportDocument_8_Type] = @nctsHC_TransportDocumen"& _ "t_8_Type, [nctsHC_TransportDocument_8_ReferenceNumber] = @nctsHC_TransportDocume"& _ "nt_8_ReferenceNumber, [nctsHC_TransportDocument_9_Type] = @nctsHC_TransportDocum"& _ "ent_9_Type, [nctsHC_TransportDocument_9_ReferenceNumber] = @nctsHC_TransportDocu"& _ "ment_9_ReferenceNumber, [nctsHC_AdditionalReference_1_Type] = @nctsHC_Additional"& _ "Reference_1_Type, [nctsHC_AdditionalReference_1_ReferenceNumber] = @nctsHC_Addit"& _ "ionalReference_1_ReferenceNumber, [nctsHC_AdditionalReference_2_Type] = @nctsHC_"& _ "AdditionalReference_2_Type, [nctsHC_AdditionalReference_2_ReferenceNumber] = @nc"& _ "tsHC_AdditionalReference_2_ReferenceNumber, [nctsHC_AdditionalReference_3_Type] "& _ "= @nctsHC_AdditionalReference_3_Type, [nctsHC_AdditionalReference_3_ReferenceNum"& _ "ber] = @nctsHC_AdditionalReference_3_ReferenceNumber, [nctsHC_AdditionalReferenc"& _ "e_4_Type] = @nctsHC_AdditionalReference_4_Type, [nctsHC_AdditionalReference_4_Re"& _ "ferenceNumber] = @nctsHC_AdditionalReference_4_ReferenceNumber, [nctsHC_Addition"& _ "alReference_5_Type] = @nctsHC_AdditionalReference_5_Type, [nctsHC_AdditionalRefe"& _ "rence_5_ReferenceNumber] = @nctsHC_AdditionalReference_5_ReferenceNumber, [nctsH"& _ "C_AdditionalReference_6_Type] = @nctsHC_AdditionalReference_6_Type, [nctsHC_Addi"& _ "tionalReference_6_ReferenceNumber] = @nctsHC_AdditionalReference_6_ReferenceNumb"& _ "er, [nctsHC_AdditionalReference_7_Type] = @nctsHC_AdditionalReference_7_Type, [n"& _ "ctsHC_AdditionalReference_7_ReferenceNumber] = @nctsHC_AdditionalReference_7_Ref"& _ "erenceNumber, [nctsHC_AdditionalReference_8_Type] = @nctsHC_AdditionalReference_"& _ "8_Type, [nctsHC_AdditionalReference_8_ReferenceNumber] = @nctsHC_AdditionalRefer"& _ "ence_8_ReferenceNumber, [nctsHC_AdditionalReference_9_Type] = @nctsHC_Additional"& _ "Reference_9_Type, [nctsHC_AdditionalReference_9_ReferenceNumber] = @nctsHC_Addit"& _ "ionalReference_9_ReferenceNumber, [nctsHC_AdditionalInformation_1_Code] = @nctsH"& _ "C_AdditionalInformation_1_Code, [nctsHC_AdditionalInformation_1_Text] = @nctsHC_"& _ "AdditionalInformation_1_Text, [nctsHC_AdditionalInformation_2_Code] = @nctsHC_Ad"& _ "ditionalInformation_2_Code, [nctsHC_AdditionalInformation_2_Text] = @nctsHC_Addi"& _ "tionalInformation_2_Text, [nctsHC_AdditionalInformation_3_Code] = @nctsHC_Additi"& _ "onalInformation_3_Code, [nctsHC_AdditionalInformation_3_Text] = @nctsHC_Addition"& _ "alInformation_3_Text, [nctsHC_AdditionalInformation_4_Code] = @nctsHC_Additional"& _ "Information_4_Code, [nctsHC_AdditionalInformation_4_Text] = @nctsHC_AdditionalIn"& _ "formation_4_Text, [nctsHC_AdditionalInformation_5_Code] = @nctsHC_AdditionalInfo"& _ "rmation_5_Code, [nctsHC_AdditionalInformation_5_Text] = @nctsHC_AdditionalInform"& _ "ation_5_Text, [nctsHC_AdditionalInformation_6_Code] = @nctsHC_AdditionalInformat"& _ "ion_6_Code, [nctsHC_AdditionalInformation_6_Text] = @nctsHC_AdditionalInformatio"& _ "n_6_Text, [nctsHC_AdditionalInformation_7_Code] = @nctsHC_AdditionalInformation_"& _ "7_Code, [nctsHC_AdditionalInformation_7_Text] = @nctsHC_AdditionalInformation_7_"& _ "Text, [nctsHC_AdditionalInformation_8_Code] = @nctsHC_AdditionalInformation_8_Co"& _ "de, [nctsHC_AdditionalInformation_8_Text] = @nctsHC_AdditionalInformation_8_Text"& _ ", [nctsHC_AdditionalInformation_9_Code] = @nctsHC_AdditionalInformation_9_Code, "& _ "[nctsHC_AdditionalInformation_9_Text] = @nctsHC_AdditionalInformation_9_Text, [n"& _ "ctsHC_TransportCharges] = @nctsHC_TransportCharges WHERE (([nctsHC_Id] = @Origin"& _ "al_nctsHC_Id) AND ([nctsHC_NctsId] = @Original_nctsHC_NctsId) AND ((@IsNull_ncts"& _ "HC_HouseConsignMentReference = 1 AND [nctsHC_HouseConsignMentReference] IS NULL)"& _ " OR ([nctsHC_HouseConsignMentReference] = @Original_nctsHC_HouseConsignMentRefer"& _ "ence)) AND ((@IsNull_nctsHC_CountryOfDispatch = 1 AND [nctsHC_CountryOfDispatch]"& _ " IS NULL) OR ([nctsHC_CountryOfDispatch] = @Original_nctsHC_CountryOfDispatch)) "& _ "AND ((@IsNull_nctsHC_CountryOfDestination = 1 AND [nctsHC_CountryOfDestination] "& _ "IS NULL) OR ([nctsHC_CountryOfDestination] = @Original_nctsHC_CountryOfDestinati"& _ "on)) AND ((@IsNull_nctsHC_GrossMass = 1 AND [nctsHC_GrossMass] IS NULL) OR ([nct"& _ "sHC_GrossMass] = @Original_nctsHC_GrossMass)) AND ((@IsNull_nctsHC_ReferenceNumb"& _ "erUCR = 1 AND [nctsHC_ReferenceNumberUCR] IS NULL) OR ([nctsHC_ReferenceNumberUC"& _ "R] = @Original_nctsHC_ReferenceNumberUCR)) AND ((@IsNull_nctsHC_Consignor_Adress"& _ "Code = 1 AND [nctsHC_Consignor_AdressCode] IS NULL) OR ([nctsHC_Consignor_Adress"& _ "Code] = @Original_nctsHC_Consignor_AdressCode)) AND ((@IsNull_nctsHC_Consignor_I"& _ "dentificationNumber = 1 AND [nctsHC_Consignor_IdentificationNumber] IS NULL) OR "& _ "([nctsHC_Consignor_IdentificationNumber] = @Original_nctsHC_Consignor_Identifica"& _ "tionNumber)) AND ((@IsNull_nctsHC_Consignor_SubsidiaryNumber = 1 AND [nctsHC_Con"& _ "signor_SubsidiaryNumber] IS NULL) OR ([nctsHC_Consignor_SubsidiaryNumber] = @Ori"& _ "ginal_nctsHC_Consignor_SubsidiaryNumber)) AND ((@IsNull_nctsHC_Consignor_Name = "& _ "1 AND [nctsHC_Consignor_Name] IS NULL) OR ([nctsHC_Consignor_Name] = @Original_n"& _ "ctsHC_Consignor_Name)) AND ((@IsNull_nctsHC_Consignor_StreetNumber = 1 AND [ncts"& _ "HC_Consignor_StreetNumber] IS NULL) OR ([nctsHC_Consignor_StreetNumber] = @Origi"& _ "nal_nctsHC_Consignor_StreetNumber)) AND ((@IsNull_nctsHC_Consignor_City = 1 AND "& _ "[nctsHC_Consignor_City] IS NULL) OR ([nctsHC_Consignor_City] = @Original_nctsHC_"& _ "Consignor_City)) AND ((@IsNull_nctsHC_Consignor_Postcode = 1 AND [nctsHC_Consign"& _ "or_Postcode] IS NULL) OR ([nctsHC_Consignor_Postcode] = @Original_nctsHC_Consign"& _ "or_Postcode)) AND ((@IsNull_nctsHC_Consignor_Country = 1 AND [nctsHC_Consignor_C"& _ "ountry] IS NULL) OR ([nctsHC_Consignor_Country] = @Original_nctsHC_Consignor_Cou"& _ "ntry)) AND ((@IsNull_nctsHC_Consignor_ContactPerson_Name = 1 AND [nctsHC_Consign"& _ "or_ContactPerson_Name] IS NULL) OR ([nctsHC_Consignor_ContactPerson_Name] = @Ori"& _ "ginal_nctsHC_Consignor_ContactPerson_Name)) AND ((@IsNull_nctsHC_Consignor_Conta"& _ "ctPerson_PhoneNumber = 1 AND [nctsHC_Consignor_ContactPerson_PhoneNumber] IS NUL"& _ "L) OR ([nctsHC_Consignor_ContactPerson_PhoneNumber] = @Original_nctsHC_Consignor"& _ "_ContactPerson_PhoneNumber)) AND ((@IsNull_nctsHC_Consignor_ContactPerson_EMailA"& _ "ddress = 1 AND [nctsHC_Consignor_ContactPerson_EMailAddress] IS NULL) OR ([nctsH"& _ "C_Consignor_ContactPerson_EMailAddress] = @Original_nctsHC_Consignor_ContactPers"& _ "on_EMailAddress)) AND ((@IsNull_nctsHC_Consignee_AdressCode = 1 AND [nctsHC_Cons"& _ "ignee_AdressCode] IS NULL) OR ([nctsHC_Consignee_AdressCode] = @Original_nctsHC_"& _ "Consignee_AdressCode)) AND ((@IsNull_nctsHC_Consignee_IdentificationNumber = 1 A"& _ "ND [nctsHC_Consignee_IdentificationNumber] IS NULL) OR ([nctsHC_Consignee_Identi"& _ "ficationNumber] = @Original_nctsHC_Consignee_IdentificationNumber)) AND ((@IsNul"& _ "l_nctsHC_Consignee_SubsidiaryNumber = 1 AND [nctsHC_Consignee_SubsidiaryNumber] "& _ "IS NULL) OR ([nctsHC_Consignee_SubsidiaryNumber] = @Original_nctsHC_Consignee_Su"& _ "bsidiaryNumber)) AND ((@IsNull_nctsHC_Consignee_Name = 1 AND [nctsHC_Consignee_N"& _ "ame] IS NULL) OR ([nctsHC_Consignee_Name] = @Original_nctsHC_Consignee_Name)) AN"& _ "D ((@IsNull_nctsHC_Consignee_StreetNumber = 1 AND [nctsHC_Consignee_StreetNumber"& _ "] IS NULL) OR ([nctsHC_Consignee_StreetNumber] = @Original_nctsHC_Consignee_Stre"& _ "etNumber)) AND ((@IsNull_nctsHC_Consignee_City = 1 AND [nctsHC_Consignee_City] I"& _ "S NULL) OR ([nctsHC_Consignee_City] = @Original_nctsHC_Consignee_City)) AND ((@I"& _ "sNull_nctsHC_Consignee_Postcode = 1 AND [nctsHC_Consignee_Postcode] IS NULL) OR "& _ "([nctsHC_Consignee_Postcode] = @Original_nctsHC_Consignee_Postcode)) AND ((@IsNu"& _ "ll_nctsHC_Consignee_Country = 1 AND [nctsHC_Consignee_Country] IS NULL) OR ([nct"& _ "sHC_Consignee_Country] = @Original_nctsHC_Consignee_Country)) AND ((@IsNull_ncts"& _ "HC_Consignee_ContactPerson_Name = 1 AND [nctsHC_Consignee_ContactPerson_Name] IS"& _ " NULL) OR ([nctsHC_Consignee_ContactPerson_Name] = @Original_nctsHC_Consignee_Co"& _ "ntactPerson_Name)) AND ((@IsNull_nctsHC_Consignee_ContactPerson_PhoneNumber = 1 "& _ "AND [nctsHC_Consignee_ContactPerson_PhoneNumber] IS NULL) OR ([nctsHC_Consignee_"& _ "ContactPerson_PhoneNumber] = @Original_nctsHC_Consignee_ContactPerson_PhoneNumbe"& _ "r)) AND ((@IsNull_nctsHC_Consignee_ContactPerson_EMailAddress = 1 AND [nctsHC_Co"& _ "nsignee_ContactPerson_EMailAddress] IS NULL) OR ([nctsHC_Consignee_ContactPerson"& _ "_EMailAddress] = @Original_nctsHC_Consignee_ContactPerson_EMailAddress)) AND ((@"& _ "IsNull_nctsHC_AdditionalSupplyChainActor_1_Role = 1 AND [nctsHC_AdditionalSupply"& _ "ChainActor_1_Role] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_1_Role] = @Or"& _ "iginal_nctsHC_AdditionalSupplyChainActor_1_Role)) AND ((@IsNull_nctsHC_Additiona"& _ "lSupplyChainActor_1_IdentificationNumber = 1 AND [nctsHC_AdditionalSupplyChainAc"& _ "tor_1_IdentificationNumber] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_1_Id"& _ "entificationNumber] = @Original_nctsHC_AdditionalSupplyChainActor_1_Identificati"& _ "onNumber)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_2_Role = 1 AND [nctsH"& _ "C_AdditionalSupplyChainActor_2_Role] IS NULL) OR ([nctsHC_AdditionalSupplyChainA"& _ "ctor_2_Role] = @Original_nctsHC_AdditionalSupplyChainActor_2_Role)) AND ((@IsNul"& _ "l_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber = 1 AND [nctsHC_Addit"& _ "ionalSupplyChainActor_2_IdentificationNumber] IS NULL) OR ([nctsHC_AdditionalSup"& _ "plyChainActor_2_IdentificationNumber] = @Original_nctsHC_AdditionalSupplyChainAc"& _ "tor_2_IdentificationNumber)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_3_R"& _ "ole = 1 AND [nctsHC_AdditionalSupplyChainActor_3_Role] IS NULL) OR ([nctsHC_Addi"& _ "tionalSupplyChainActor_3_Role] = @Original_nctsHC_AdditionalSupplyChainActor_3_R"& _ "ole)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber = 1"& _ " AND [nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber] IS NULL) OR ([nc"& _ "tsHC_AdditionalSupplyChainActor_3_IdentificationNumber] = @Original_nctsHC_Addit"& _ "ionalSupplyChainActor_3_IdentificationNumber)) AND ((@IsNull_nctsHC_AdditionalSu"& _ "pplyChainActor_4_Role = 1 AND [nctsHC_AdditionalSupplyChainActor_4_Role] IS NULL"& _ ") OR ([nctsHC_AdditionalSupplyChainActor_4_Role] = @Original_nctsHC_AdditionalSu"& _ "pplyChainActor_4_Role)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_4_Identi"& _ "ficationNumber = 1 AND [nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber"& _ "] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber] = @Ori"& _ "ginal_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber)) AND ((@IsNull_n"& _ "ctsHC_AdditionalSupplyChainActor_5_Role = 1 AND [nctsHC_AdditionalSupplyChainAct"& _ "or_5_Role] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_5_Role] = @Original_n"& _ "ctsHC_AdditionalSupplyChainActor_5_Role)) AND ((@IsNull_nctsHC_AdditionalSupplyC"& _ "hainActor_5_IdentificationNumber = 1 AND [nctsHC_AdditionalSupplyChainActor_5_Id"& _ "entificationNumber] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_5_Identifica"& _ "tionNumber] = @Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber"& _ ")) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_6_Role = 1 AND [nctsHC_Additi"& _ "onalSupplyChainActor_6_Role] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_6_R"& _ "ole] = @Original_nctsHC_AdditionalSupplyChainActor_6_Role)) AND ((@IsNull_nctsHC"& _ "_AdditionalSupplyChainActor_6_IdentificationNumber = 1 AND [nctsHC_AdditionalSup"& _ "plyChainActor_6_IdentificationNumber] IS NULL) OR ([nctsHC_AdditionalSupplyChain"& _ "Actor_6_IdentificationNumber] = @Original_nctsHC_AdditionalSupplyChainActor_6_Id"& _ "entificationNumber)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_7_Role = 1 "& _ "AND [nctsHC_AdditionalSupplyChainActor_7_Role] IS NULL) OR ([nctsHC_AdditionalSu"& _ "pplyChainActor_7_Role] = @Original_nctsHC_AdditionalSupplyChainActor_7_Role)) AN"& _ "D ((@IsNull_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber = 1 AND [nc"& _ "tsHC_AdditionalSupplyChainActor_7_IdentificationNumber] IS NULL) OR ([nctsHC_Add"& _ "itionalSupplyChainActor_7_IdentificationNumber] = @Original_nctsHC_AdditionalSup"& _ "plyChainActor_7_IdentificationNumber)) AND ((@IsNull_nctsHC_AdditionalSupplyChai"& _ "nActor_8_Role = 1 AND [nctsHC_AdditionalSupplyChainActor_8_Role] IS NULL) OR ([n"& _ "ctsHC_AdditionalSupplyChainActor_8_Role] = @Original_nctsHC_AdditionalSupplyChai"& _ "nActor_8_Role)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActor_8_Identification"& _ "Number = 1 AND [nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber] IS NUL"& _ "L) OR ([nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber] = @Original_nc"& _ "tsHC_AdditionalSupplyChainActor_8_IdentificationNumber)) AND ((@IsNull_nctsHC_Ad"& _ "ditionalSupplyChainActor_9_Role = 1 AND [nctsHC_AdditionalSupplyChainActor_9_Rol"& _ "e] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_9_Role] = @Original_nctsHC_Ad"& _ "ditionalSupplyChainActor_9_Role)) AND ((@IsNull_nctsHC_AdditionalSupplyChainActo"& _ "r_9_IdentificationNumber = 1 AND [nctsHC_AdditionalSupplyChainActor_9_Identifica"& _ "tionNumber] IS NULL) OR ([nctsHC_AdditionalSupplyChainActor_9_IdentificationNumb"& _ "er] = @Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber)) AND ("& _ "(@IsNull_nctsHC_SupportingDocument_1_Type = 1 AND [nctsHC_SupportingDocument_1_T"& _ "ype] IS NULL) OR ([nctsHC_SupportingDocument_1_Type] = @Original_nctsHC_Supporti"& _ "ngDocument_1_Type)) AND ((@IsNull_nctsHC_SupportingDocument_1_ReferenceNumber = "& _ "1 AND [nctsHC_SupportingDocument_1_ReferenceNumber] IS NULL) OR ([nctsHC_Support"& _ "ingDocument_1_ReferenceNumber] = @Original_nctsHC_SupportingDocument_1_Reference"& _ "Number)) AND ((@IsNull_nctsHC_SupportingDocument_1_DocumentLineItemNumber = 1 AN"& _ "D [nctsHC_SupportingDocument_1_DocumentLineItemNumber] IS NULL) OR ([nctsHC_Supp"& _ "ortingDocument_1_DocumentLineItemNumber] = @Original_nctsHC_SupportingDocument_1"& _ "_DocumentLineItemNumber)) AND ((@IsNull_nctsHC_SupportingDocument_1_ComplementOf"& _ "Information = 1 AND [nctsHC_SupportingDocument_1_ComplementOfInformation] IS NUL"& _ "L) OR ([nctsHC_SupportingDocument_1_ComplementOfInformation] = @Original_nctsHC_"& _ "SupportingDocument_1_ComplementOfInformation)) AND ((@IsNull_nctsHC_SupportingDo"& _ "cument_2_Type = 1 AND [nctsHC_SupportingDocument_2_Type] IS NULL) OR ([nctsHC_Su"& _ "pportingDocument_2_Type] = @Original_nctsHC_SupportingDocument_2_Type)) AND ((@I"& _ "sNull_nctsHC_SupportingDocument_2_ReferenceNumber = 1 AND [nctsHC_SupportingDocu"& _ "ment_2_ReferenceNumber] IS NULL) OR ([nctsHC_SupportingDocument_2_ReferenceNumbe"& _ "r] = @Original_nctsHC_SupportingDocument_2_ReferenceNumber)) AND ((@IsNull_nctsH"& _ "C_SupportingDocument_2_DocumentLineItemNumber = 1 AND [nctsHC_SupportingDocument"& _ "_2_DocumentLineItemNumber] IS NULL) OR ([nctsHC_SupportingDocument_2_DocumentLin"& _ "eItemNumber] = @Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber)) AN"& _ "D ((@IsNull_nctsHC_SupportingDocument_2_ComplementOfInformation = 1 AND [nctsHC_"& _ "SupportingDocument_2_ComplementOfInformation] IS NULL) OR ([nctsHC_SupportingDoc"& _ "ument_2_ComplementOfInformation] = @Original_nctsHC_SupportingDocument_2_Complem"& _ "entOfInformation)) AND ((@IsNull_nctsHC_SupportingDocument_3_Type = 1 AND [nctsH"& _ "C_SupportingDocument_3_Type] IS NULL) OR ([nctsHC_SupportingDocument_3_Type] = @"& _ "Original_nctsHC_SupportingDocument_3_Type)) AND ((@IsNull_nctsHC_SupportingDocum"& _ "ent_3_ReferenceNumber = 1 AND [nctsHC_SupportingDocument_3_ReferenceNumber] IS N"& _ "ULL) OR ([nctsHC_SupportingDocument_3_ReferenceNumber] = @Original_nctsHC_Suppor"& _ "tingDocument_3_ReferenceNumber)) AND ((@IsNull_nctsHC_SupportingDocument_3_Docum"& _ "entLineItemNumber = 1 AND [nctsHC_SupportingDocument_3_DocumentLineItemNumber] I"& _ "S NULL) OR ([nctsHC_SupportingDocument_3_DocumentLineItemNumber] = @Original_nct"& _ "sHC_SupportingDocument_3_DocumentLineItemNumber)) AND ((@IsNull_nctsHC_Supportin"& _ "gDocument_3_ComplementOfInformation = 1 AND [nctsHC_SupportingDocument_3_Complem"& _ "entOfInformation] IS NULL) OR ([nctsHC_SupportingDocument_3_ComplementOfInformat"& _ "ion] = @Original_nctsHC_SupportingDocument_3_ComplementOfInformation)) AND ((@Is"& _ "Null_nctsHC_SupportingDocument_4_Type = 1 AND [nctsHC_SupportingDocument_4_Type]"& _ " IS NULL) OR ([nctsHC_SupportingDocument_4_Type] = @Original_nctsHC_SupportingDo"& _ "cument_4_Type)) AND ((@IsNull_nctsHC_SupportingDocument_4_ReferenceNumber = 1 AN"& _ "D [nctsHC_SupportingDocument_4_ReferenceNumber] IS NULL) OR ([nctsHC_SupportingD"& _ "ocument_4_ReferenceNumber] = @Original_nctsHC_SupportingDocument_4_ReferenceNumb"& _ "er)) AND ((@IsNull_nctsHC_SupportingDocument_4_DocumentLineItemNumber = 1 AND [n"& _ "ctsHC_SupportingDocument_4_DocumentLineItemNumber] IS NULL) OR ([nctsHC_Supporti"& _ "ngDocument_4_DocumentLineItemNumber] = @Original_nctsHC_SupportingDocument_4_Doc"& _ "umentLineItemNumber)) AND ((@IsNull_nctsHC_SupportingDocument_4_ComplementOfInfo"& _ "rmation = 1 AND [nctsHC_SupportingDocument_4_ComplementOfInformation] IS NULL) O"& _ "R ([nctsHC_SupportingDocument_4_ComplementOfInformation] = @Original_nctsHC_Supp"& _ "ortingDocument_4_ComplementOfInformation)) AND ((@IsNull_nctsHC_SupportingDocume"& _ "nt_5_Type = 1 AND [nctsHC_SupportingDocument_5_Type] IS NULL) OR ([nctsHC_Suppor"& _ "tingDocument_5_Type] = @Original_nctsHC_SupportingDocument_5_Type)) AND ((@IsNul"& _ "l_nctsHC_SupportingDocument_5_ReferenceNumber = 1 AND [nctsHC_SupportingDocument"& _ "_5_ReferenceNumber] IS NULL) OR ([nctsHC_SupportingDocument_5_ReferenceNumber] ="& _ " @Original_nctsHC_SupportingDocument_5_ReferenceNumber)) AND ((@IsNull_nctsHC_Su"& _ "pportingDocument_5_DocumentLineItemNumber = 1 AND [nctsHC_SupportingDocument_5_D"& _ "ocumentLineItemNumber] IS NULL) OR ([nctsHC_SupportingDocument_5_DocumentLineIte"& _ "mNumber] = @Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber)) AND (("& _ "@IsNull_nctsHC_SupportingDocument_5_ComplementOfInformation = 1 AND [nctsHC_Supp"& _ "ortingDocument_5_ComplementOfInformation] IS NULL) OR ([nctsHC_SupportingDocumen"& _ "t_5_ComplementOfInformation] = @Original_nctsHC_SupportingDocument_5_ComplementO"& _ "fInformation)) AND ((@IsNull_nctsHC_SupportingDocument_6_Type = 1 AND [nctsHC_Su"& _ "pportingDocument_6_Type] IS NULL) OR ([nctsHC_SupportingDocument_6_Type] = @Orig"& _ "inal_nctsHC_SupportingDocument_6_Type)) AND ((@IsNull_nctsHC_SupportingDocument_"& _ "6_ReferenceNumber = 1 AND [nctsHC_SupportingDocument_6_ReferenceNumber] IS NULL)"& _ " OR ([nctsHC_SupportingDocument_6_ReferenceNumber] = @Original_nctsHC_Supporting"& _ "Document_6_ReferenceNumber)) AND ((@IsNull_nctsHC_SupportingDocument_6_DocumentL"& _ "ineItemNumber = 1 AND [nctsHC_SupportingDocument_6_DocumentLineItemNumber] IS NU"& _ "LL) OR ([nctsHC_SupportingDocument_6_DocumentLineItemNumber] = @Original_nctsHC_"& _ "SupportingDocument_6_DocumentLineItemNumber)) AND ((@IsNull_nctsHC_SupportingDoc"& _ "ument_6_ComplementOfInformation = 1 AND [nctsHC_SupportingDocument_6_ComplementO"& _ "fInformation] IS NULL) OR ([nctsHC_SupportingDocument_6_ComplementOfInformation]"& _ " = @Original_nctsHC_SupportingDocument_6_ComplementOfInformation)) AND ((@IsNull"& _ "_nctsHC_SupportingDocument_7_Type = 1 AND [nctsHC_SupportingDocument_7_Type] IS "& _ "NULL) OR ([nctsHC_SupportingDocument_7_Type] = @Original_nctsHC_SupportingDocume"& _ "nt_7_Type)) AND ((@IsNull_nctsHC_SupportingDocument_7_ReferenceNumber = 1 AND [n"& _ "ctsHC_SupportingDocument_7_ReferenceNumber] IS NULL) OR ([nctsHC_SupportingDocum"& _ "ent_7_ReferenceNumber] = @Original_nctsHC_SupportingDocument_7_ReferenceNumber))"& _ " AND ((@IsNull_nctsHC_SupportingDocument_7_DocumentLineItemNumber = 1 AND [nctsH"& _ "C_SupportingDocument_7_DocumentLineItemNumber] IS NULL) OR ([nctsHC_SupportingDo"& _ "cument_7_DocumentLineItemNumber] = @Original_nctsHC_SupportingDocument_7_Documen"& _ "tLineItemNumber)) AND ((@IsNull_nctsHC_SupportingDocument_7_ComplementOfInformat"& _ "ion = 1 AND [nctsHC_SupportingDocument_7_ComplementOfInformation] IS NULL) OR (["& _ "nctsHC_SupportingDocument_7_ComplementOfInformation] = @Original_nctsHC_Supporti"& _ "ngDocument_7_ComplementOfInformation)) AND ((@IsNull_nctsHC_SupportingDocument_8"& _ "_Type = 1 AND [nctsHC_SupportingDocument_8_Type] IS NULL) OR ([nctsHC_Supporting"& _ "Document_8_Type] = @Original_nctsHC_SupportingDocument_8_Type)) AND ((@IsNull_nc"& _ "tsHC_SupportingDocument_8_ReferenceNumber = 1 AND [nctsHC_SupportingDocument_8_R"& _ "eferenceNumber] IS NULL) OR ([nctsHC_SupportingDocument_8_ReferenceNumber] = @Or"& _ "iginal_nctsHC_SupportingDocument_8_ReferenceNumber)) AND ((@IsNull_nctsHC_Suppor"& _ "tingDocument_8_DocumentLineItemNumber = 1 AND [nctsHC_SupportingDocument_8_Docum"& _ "entLineItemNumber] IS NULL) OR ([nctsHC_SupportingDocument_8_DocumentLineItemNum"& _ "ber] = @Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber)) AND ((@IsN"& _ "ull_nctsHC_SupportingDocument_8_ComplementOfInformation = 1 AND [nctsHC_Supporti"& _ "ngDocument_8_ComplementOfInformation] IS NULL) OR ([nctsHC_SupportingDocument_8_"& _ "ComplementOfInformation] = @Original_nctsHC_SupportingDocument_8_ComplementOfInf"& _ "ormation)) AND ((@IsNull_nctsHC_SupportingDocument_9_Type = 1 AND [nctsHC_Suppor"& _ "tingDocument_9_Type] IS NULL) OR ([nctsHC_SupportingDocument_9_Type] = @Original"& _ "_nctsHC_SupportingDocument_9_Type)) AND ((@IsNull_nctsHC_SupportingDocument_9_Re"& _ "ferenceNumber = 1 AND [nctsHC_SupportingDocument_9_ReferenceNumber] IS NULL) OR "& _ "([nctsHC_SupportingDocument_9_ReferenceNumber] = @Original_nctsHC_SupportingDocu"& _ "ment_9_ReferenceNumber)) AND ((@IsNull_nctsHC_SupportingDocument_9_DocumentLineI"& _ "temNumber = 1 AND [nctsHC_SupportingDocument_9_DocumentLineItemNumber] IS NULL) "& _ "OR ([nctsHC_SupportingDocument_9_DocumentLineItemNumber] = @Original_nctsHC_Supp"& _ "ortingDocument_9_DocumentLineItemNumber)) AND ((@IsNull_nctsHC_SupportingDocumen"& _ "t_9_ComplementOfInformation = 1 AND [nctsHC_SupportingDocument_9_ComplementOfInf"& _ "ormation] IS NULL) OR ([nctsHC_SupportingDocument_9_ComplementOfInformation] = @"& _ "Original_nctsHC_SupportingDocument_9_ComplementOfInformation)) AND ((@IsNull_nct"& _ "sHC_PreviousDocument_1_Type = 1 AND [nctsHC_PreviousDocument_1_Type] IS NULL) OR"& _ " ([nctsHC_PreviousDocument_1_Type] = @Original_nctsHC_PreviousDocument_1_Type)) "& _ "AND ((@IsNull_nctsHC_PreviousDocument_1_ReferenceNumber = 1 AND [nctsHC_Previous"& _ "Document_1_ReferenceNumber] IS NULL) OR ([nctsHC_PreviousDocument_1_ReferenceNum"& _ "ber] = @Original_nctsHC_PreviousDocument_1_ReferenceNumber)) AND ((@IsNull_nctsH"& _ "C_PreviousDocument_1_ComplementOfInformation = 1 AND [nctsHC_PreviousDocument_1_"& _ "ComplementOfInformation] IS NULL) OR ([nctsHC_PreviousDocument_1_ComplementOfInf"& _ "ormation] = @Original_nctsHC_PreviousDocument_1_ComplementOfInformation)) AND (("& _ "@IsNull_nctsHC_PreviousDocument_2_Type = 1 AND [nctsHC_PreviousDocument_2_Type] "& _ "IS NULL) OR ([nctsHC_PreviousDocument_2_Type] = @Original_nctsHC_PreviousDocumen"& _ "t_2_Type)) AND ((@IsNull_nctsHC_PreviousDocument_2_ReferenceNumber = 1 AND [ncts"& _ "HC_PreviousDocument_2_ReferenceNumber] IS NULL) OR ([nctsHC_PreviousDocument_2_R"& _ "eferenceNumber] = @Original_nctsHC_PreviousDocument_2_ReferenceNumber)) AND ((@I"& _ "sNull_nctsHC_PreviousDocument_2_ComplementOfInformation = 1 AND [nctsHC_Previous"& _ "Document_2_ComplementOfInformation] IS NULL) OR ([nctsHC_PreviousDocument_2_Comp"& _ "lementOfInformation] = @Original_nctsHC_PreviousDocument_2_ComplementOfInformati"& _ "on)) AND ((@IsNull_nctsHC_PreviousDocument_3_Type = 1 AND [nctsHC_PreviousDocume"& _ "nt_3_Type] IS NULL) OR ([nctsHC_PreviousDocument_3_Type] = @Original_nctsHC_Prev"& _ "iousDocument_3_Type)) AND ((@IsNull_nctsHC_PreviousDocument_3_ReferenceNumber = "& _ "1 AND [nctsHC_PreviousDocument_3_ReferenceNumber] IS NULL) OR ([nctsHC_PreviousD"& _ "ocument_3_ReferenceNumber] = @Original_nctsHC_PreviousDocument_3_ReferenceNumber"& _ ")) AND ((@IsNull_nctsHC_PreviousDocument_3_ComplementOfInformation = 1 AND [ncts"& _ "HC_PreviousDocument_3_ComplementOfInformation] IS NULL) OR ([nctsHC_PreviousDocu"& _ "ment_3_ComplementOfInformation] = @Original_nctsHC_PreviousDocument_3_Complement"& _ "OfInformation)) AND ((@IsNull_nctsHC_PreviousDocument_4_Type = 1 AND [nctsHC_Pre"& _ "viousDocument_4_Type] IS NULL) OR ([nctsHC_PreviousDocument_4_Type] = @Original_"& _ "nctsHC_PreviousDocument_4_Type)) AND ((@IsNull_nctsHC_PreviousDocument_4_Referen"& _ "ceNumber = 1 AND [nctsHC_PreviousDocument_4_ReferenceNumber] IS NULL) OR ([nctsH"& _ "C_PreviousDocument_4_ReferenceNumber] = @Original_nctsHC_PreviousDocument_4_Refe"& _ "renceNumber)) AND ((@IsNull_nctsHC_PreviousDocument_4_ComplementOfInformation = "& _ "1 AND [nctsHC_PreviousDocument_4_ComplementOfInformation] IS NULL) OR ([nctsHC_P"& _ "reviousDocument_4_ComplementOfInformation] = @Original_nctsHC_PreviousDocument_4"& _ "_ComplementOfInformation)) AND ((@IsNull_nctsHC_PreviousDocument_5_Type = 1 AND "& _ "[nctsHC_PreviousDocument_5_Type] IS NULL) OR ([nctsHC_PreviousDocument_5_Type] ="& _ " @Original_nctsHC_PreviousDocument_5_Type)) AND ((@IsNull_nctsHC_PreviousDocumen"& _ "t_5_ReferenceNumber = 1 AND [nctsHC_PreviousDocument_5_ReferenceNumber] IS NULL)"& _ " OR ([nctsHC_PreviousDocument_5_ReferenceNumber] = @Original_nctsHC_PreviousDocu"& _ "ment_5_ReferenceNumber)) AND ((@IsNull_nctsHC_PreviousDocument_5_ComplementOfInf"& _ "ormation = 1 AND [nctsHC_PreviousDocument_5_ComplementOfInformation] IS NULL) OR"& _ " ([nctsHC_PreviousDocument_5_ComplementOfInformation] = @Original_nctsHC_Previou"& _ "sDocument_5_ComplementOfInformation)) AND ((@IsNull_nctsHC_PreviousDocument_6_Ty"& _ "pe = 1 AND [nctsHC_PreviousDocument_6_Type] IS NULL) OR ([nctsHC_PreviousDocumen"& _ "t_6_Type] = @Original_nctsHC_PreviousDocument_6_Type)) AND ((@IsNull_nctsHC_Prev"& _ "iousDocument_6_ReferenceNumber = 1 AND [nctsHC_PreviousDocument_6_ReferenceNumbe"& _ "r] IS NULL) OR ([nctsHC_PreviousDocument_6_ReferenceNumber] = @Original_nctsHC_P"& _ "reviousDocument_6_ReferenceNumber)) AND ((@IsNull_nctsHC_PreviousDocument_6_Comp"& _ "lementOfInformation = 1 AND [nctsHC_PreviousDocument_6_ComplementOfInformation] "& _ "IS NULL) OR ([nctsHC_PreviousDocument_6_ComplementOfInformation] = @Original_nct"& _ "sHC_PreviousDocument_6_ComplementOfInformation)) AND ((@IsNull_nctsHC_PreviousDo"& _ "cument_7_Type = 1 AND [nctsHC_PreviousDocument_7_Type] IS NULL) OR ([nctsHC_Prev"& _ "iousDocument_7_Type] = @Original_nctsHC_PreviousDocument_7_Type)) AND ((@IsNull_"& _ "nctsHC_PreviousDocument_7_ReferenceNumber = 1 AND [nctsHC_PreviousDocument_7_Ref"& _ "erenceNumber] IS NULL) OR ([nctsHC_PreviousDocument_7_ReferenceNumber] = @Origin"& _ "al_nctsHC_PreviousDocument_7_ReferenceNumber)) AND ((@IsNull_nctsHC_PreviousDocu"& _ "ment_7_ComplementOfInformation = 1 AND [nctsHC_PreviousDocument_7_ComplementOfIn"& _ "formation] IS NULL) OR ([nctsHC_PreviousDocument_7_ComplementOfInformation] = @O"& _ "riginal_nctsHC_PreviousDocument_7_ComplementOfInformation)) AND ((@IsNull_nctsHC"& _ "_PreviousDocument_8_Type = 1 AND [nctsHC_PreviousDocument_8_Type] IS NULL) OR (["& _ "nctsHC_PreviousDocument_8_Type] = @Original_nctsHC_PreviousDocument_8_Type)) AND"& _ " ((@IsNull_nctsHC_PreviousDocument_8_ReferenceNumber = 1 AND [nctsHC_PreviousDoc"& _ "ument_8_ReferenceNumber] IS NULL) OR ([nctsHC_PreviousDocument_8_ReferenceNumber"& _ "] = @Original_nctsHC_PreviousDocument_8_ReferenceNumber)) AND ((@IsNull_nctsHC_P"& _ "reviousDocument_8_ComplementOfInformation = 1 AND [nctsHC_PreviousDocument_8_Com"& _ "plementOfInformation] IS NULL) OR ([nctsHC_PreviousDocument_8_ComplementOfInform"& _ "ation] = @Original_nctsHC_PreviousDocument_8_ComplementOfInformation)) AND ((@Is"& _ "Null_nctsHC_PreviousDocument_9_Type = 1 AND [nctsHC_PreviousDocument_9_Type] IS "& _ "NULL) OR ([nctsHC_PreviousDocument_9_Type] = @Original_nctsHC_PreviousDocument_9"& _ "_Type)) AND ((@IsNull_nctsHC_PreviousDocument_9_ReferenceNumber = 1 AND [nctsHC_"& _ "PreviousDocument_9_ReferenceNumber] IS NULL) OR ([nctsHC_PreviousDocument_9_Refe"& _ "renceNumber] = @Original_nctsHC_PreviousDocument_9_ReferenceNumber)) AND ((@IsNu"& _ "ll_nctsHC_PreviousDocument_9_ComplementOfInformation = 1 AND [nctsHC_PreviousDoc"& _ "ument_9_ComplementOfInformation] IS NULL) OR ([nctsHC_PreviousDocument_9_Complem"& _ "entOfInformation] = @Original_nctsHC_PreviousDocument_9_ComplementOfInformation)"& _ ") AND ((@IsNull_nctsHC_TransportDocument_1_Type = 1 AND [nctsHC_TransportDocumen"& _ "t_1_Type] IS NULL) OR ([nctsHC_TransportDocument_1_Type] = @Original_nctsHC_Tran"& _ "sportDocument_1_Type)) AND ((@IsNull_nctsHC_TransportDocument_1_ReferenceNumber "& _ "= 1 AND [nctsHC_TransportDocument_1_ReferenceNumber] IS NULL) OR ([nctsHC_Transp"& _ "ortDocument_1_ReferenceNumber] = @Original_nctsHC_TransportDocument_1_ReferenceN"& _ "umber)) AND ((@IsNull_nctsHC_TransportDocument_2_Type = 1 AND [nctsHC_TransportD"& _ "ocument_2_Type] IS NULL) OR ([nctsHC_TransportDocument_2_Type] = @Original_nctsH"& _ "C_TransportDocument_2_Type)) AND ((@IsNull_nctsHC_TransportDocument_2_ReferenceN"& _ "umber = 1 AND [nctsHC_TransportDocument_2_ReferenceNumber] IS NULL) OR ([nctsHC_"& _ "TransportDocument_2_ReferenceNumber] = @Original_nctsHC_TransportDocument_2_Refe"& _ "renceNumber)) AND ((@IsNull_nctsHC_TransportDocument_3_Type = 1 AND [nctsHC_Tran"& _ "sportDocument_3_Type] IS NULL) OR ([nctsHC_TransportDocument_3_Type] = @Original"& _ "_nctsHC_TransportDocument_3_Type)) AND ((@IsNull_nctsHC_TransportDocument_3_Refe"& _ "renceNumber = 1 AND [nctsHC_TransportDocument_3_ReferenceNumber] IS NULL) OR ([n"& _ "ctsHC_TransportDocument_3_ReferenceNumber] = @Original_nctsHC_TransportDocument_"& _ "3_ReferenceNumber)) AND ((@IsNull_nctsHC_TransportDocument_4_Type = 1 AND [nctsH"& _ "C_TransportDocument_4_Type] IS NULL) OR ([nctsHC_TransportDocument_4_Type] = @Or"& _ "iginal_nctsHC_TransportDocument_4_Type)) AND ((@IsNull_nctsHC_TransportDocument_"& _ "4_ReferenceNumber = 1 AND [nctsHC_TransportDocument_4_ReferenceNumber] IS NULL) "& _ "OR ([nctsHC_TransportDocument_4_ReferenceNumber] = @Original_nctsHC_TransportDoc"& _ "ument_4_ReferenceNumber)) AND ((@IsNull_nctsHC_TransportDocument_5_Type = 1 AND "& _ "[nctsHC_TransportDocument_5_Type] IS NULL) OR ([nctsHC_TransportDocument_5_Type]"& _ " = @Original_nctsHC_TransportDocument_5_Type)) AND ((@IsNull_nctsHC_TransportDoc"& _ "ument_5_ReferenceNumber = 1 AND [nctsHC_TransportDocument_5_ReferenceNumber] IS "& _ "NULL) OR ([nctsHC_TransportDocument_5_ReferenceNumber] = @Original_nctsHC_Transp"& _ "ortDocument_5_ReferenceNumber)) AND ((@IsNull_nctsHC_TransportDocument_6_Type = "& _ "1 AND [nctsHC_TransportDocument_6_Type] IS NULL) OR ([nctsHC_TransportDocument_6"& _ "_Type] = @Original_nctsHC_TransportDocument_6_Type)) AND ((@IsNull_nctsHC_Transp"& _ "ortDocument_6_ReferenceNumber = 1 AND [nctsHC_TransportDocument_6_ReferenceNumbe"& _ "r] IS NULL) OR ([nctsHC_TransportDocument_6_ReferenceNumber] = @Original_nctsHC_"& _ "TransportDocument_6_ReferenceNumber)) AND ((@IsNull_nctsHC_TransportDocument_7_T"& _ "ype = 1 AND [nctsHC_TransportDocument_7_Type] IS NULL) OR ([nctsHC_TransportDocu"& _ "ment_7_Type] = @Original_nctsHC_TransportDocument_7_Type)) AND ((@IsNull_nctsHC_"& _ "TransportDocument_7_ReferenceNumber = 1 AND [nctsHC_TransportDocument_7_Referenc"& _ "eNumber] IS NULL) OR ([nctsHC_TransportDocument_7_ReferenceNumber] = @Original_n"& _ "ctsHC_TransportDocument_7_ReferenceNumber)) AND ((@IsNull_nctsHC_TransportDocume"& _ "nt_8_Type = 1 AND [nctsHC_TransportDocument_8_Type] IS NULL) OR ([nctsHC_Transpo"& _ "rtDocument_8_Type] = @Original_nctsHC_TransportDocument_8_Type)) AND ((@IsNull_n"& _ "ctsHC_TransportDocument_8_ReferenceNumber = 1 AND [nctsHC_TransportDocument_8_Re"& _ "ferenceNumber] IS NULL) OR ([nctsHC_TransportDocument_8_ReferenceNumber] = @Orig"& _ "inal_nctsHC_TransportDocument_8_ReferenceNumber)) AND ((@IsNull_nctsHC_Transport"& _ "Document_9_Type = 1 AND [nctsHC_TransportDocument_9_Type] IS NULL) OR ([nctsHC_T"& _ "ransportDocument_9_Type] = @Original_nctsHC_TransportDocument_9_Type)) AND ((@Is"& _ "Null_nctsHC_TransportDocument_9_ReferenceNumber = 1 AND [nctsHC_TransportDocumen"& _ "t_9_ReferenceNumber] IS NULL) OR ([nctsHC_TransportDocument_9_ReferenceNumber] ="& _ " @Original_nctsHC_TransportDocument_9_ReferenceNumber)) AND ((@IsNull_nctsHC_Add"& _ "itionalReference_1_Type = 1 AND [nctsHC_AdditionalReference_1_Type] IS NULL) OR "& _ "([nctsHC_AdditionalReference_1_Type] = @Original_nctsHC_AdditionalReference_1_Ty"& _ "pe)) AND ((@IsNull_nctsHC_AdditionalReference_1_ReferenceNumber = 1 AND [nctsHC_"& _ "AdditionalReference_1_ReferenceNumber] IS NULL) OR ([nctsHC_AdditionalReference_"& _ "1_ReferenceNumber] = @Original_nctsHC_AdditionalReference_1_ReferenceNumber)) AN"& _ "D ((@IsNull_nctsHC_AdditionalReference_2_Type = 1 AND [nctsHC_AdditionalReferenc"& _ "e_2_Type] IS NULL) OR ([nctsHC_AdditionalReference_2_Type] = @Original_nctsHC_Ad"& _ "ditionalReference_2_Type)) AND ((@IsNull_nctsHC_AdditionalReference_2_ReferenceN"& _ "umber = 1 AND [nctsHC_AdditionalReference_2_ReferenceNumber] IS NULL) OR ([nctsH"& _ "C_AdditionalReference_2_ReferenceNumber] = @Original_nctsHC_AdditionalReference_"& _ "2_ReferenceNumber)) AND ((@IsNull_nctsHC_AdditionalReference_3_Type = 1 AND [nct"& _ "sHC_AdditionalReference_3_Type] IS NULL) OR ([nctsHC_AdditionalReference_3_Type]"& _ " = @Original_nctsHC_AdditionalReference_3_Type)) AND ((@IsNull_nctsHC_Additional"& _ "Reference_3_ReferenceNumber = 1 AND [nctsHC_AdditionalReference_3_ReferenceNumbe"& _ "r] IS NULL) OR ([nctsHC_AdditionalReference_3_ReferenceNumber] = @Original_nctsH"& _ "C_AdditionalReference_3_ReferenceNumber)) AND ((@IsNull_nctsHC_AdditionalReferen"& _ "ce_4_Type = 1 AND [nctsHC_AdditionalReference_4_Type] IS NULL) OR ([nctsHC_Addit"& _ "ionalReference_4_Type] = @Original_nctsHC_AdditionalReference_4_Type)) AND ((@Is"& _ "Null_nctsHC_AdditionalReference_4_ReferenceNumber = 1 AND [nctsHC_AdditionalRefe"& _ "rence_4_ReferenceNumber] IS NULL) OR ([nctsHC_AdditionalReference_4_ReferenceNum"& _ "ber] = @Original_nctsHC_AdditionalReference_4_ReferenceNumber)) AND ((@IsNull_nc"& _ "tsHC_AdditionalReference_5_Type = 1 AND [nctsHC_AdditionalReference_5_Type] IS N"& _ "ULL) OR ([nctsHC_AdditionalReference_5_Type] = @Original_nctsHC_AdditionalRefere"& _ "nce_5_Type)) AND ((@IsNull_nctsHC_AdditionalReference_5_ReferenceNumber = 1 AND "& _ "[nctsHC_AdditionalReference_5_ReferenceNumber] IS NULL) OR ([nctsHC_AdditionalRe"& _ "ference_5_ReferenceNumber] = @Original_nctsHC_AdditionalReference_5_ReferenceNum"& _ "ber)) AND ((@IsNull_nctsHC_AdditionalReference_6_Type = 1 AND [nctsHC_Additional"& _ "Reference_6_Type] IS NULL) OR ([nctsHC_AdditionalReference_6_Type] = @Original_n"& _ "ctsHC_AdditionalReference_6_Type)) AND ((@IsNull_nctsHC_AdditionalReference_6_Re"& _ "ferenceNumber = 1 AND [nctsHC_AdditionalReference_6_ReferenceNumber] IS NULL) OR"& _ " ([nctsHC_AdditionalReference_6_ReferenceNumber] = @Original_nctsHC_AdditionalRe"& _ "ference_6_ReferenceNumber)) AND ((@IsNull_nctsHC_AdditionalReference_7_Type = 1 "& _ "AND [nctsHC_AdditionalReference_7_Type] IS NULL) OR ([nctsHC_AdditionalReference"& _ "_7_Type] = @Original_nctsHC_AdditionalReference_7_Type)) AND ((@IsNull_nctsHC_Ad"& _ "ditionalReference_7_ReferenceNumber = 1 AND [nctsHC_AdditionalReference_7_Refere"& _ "nceNumber] IS NULL) OR ([nctsHC_AdditionalReference_7_ReferenceNumber] = @Origin"& _ "al_nctsHC_AdditionalReference_7_ReferenceNumber)) AND ((@IsNull_nctsHC_Additiona"& _ "lReference_8_Type = 1 AND [nctsHC_AdditionalReference_8_Type] IS NULL) OR ([ncts"& _ "HC_AdditionalReference_8_Type] = @Original_nctsHC_AdditionalReference_8_Type)) A"& _ "ND ((@IsNull_nctsHC_AdditionalReference_8_ReferenceNumber = 1 AND [nctsHC_Additi"& _ "onalReference_8_ReferenceNumber] IS NULL) OR ([nctsHC_AdditionalReference_8_Refe"& _ "renceNumber] = @Original_nctsHC_AdditionalReference_8_ReferenceNumber)) AND ((@I"& _ "sNull_nctsHC_AdditionalReference_9_Type = 1 AND [nctsHC_AdditionalReference_9_Ty"& _ "pe] IS NULL) OR ([nctsHC_AdditionalReference_9_Type] = @Original_nctsHC_Addition"& _ "alReference_9_Type)) AND ((@IsNull_nctsHC_AdditionalReference_9_ReferenceNumber "& _ "= 1 AND [nctsHC_AdditionalReference_9_ReferenceNumber] IS NULL) OR ([nctsHC_Addi"& _ "tionalReference_9_ReferenceNumber] = @Original_nctsHC_AdditionalReference_9_Refe"& _ "renceNumber)) AND ((@IsNull_nctsHC_AdditionalInformation_1_Code = 1 AND [nctsHC_"& _ "AdditionalInformation_1_Code] IS NULL) OR ([nctsHC_AdditionalInformation_1_Code]"& _ " = @Original_nctsHC_AdditionalInformation_1_Code)) AND ((@IsNull_nctsHC_Addition"& _ "alInformation_1_Text = 1 AND [nctsHC_AdditionalInformation_1_Text] IS NULL) OR ("& _ "[nctsHC_AdditionalInformation_1_Text] = @Original_nctsHC_AdditionalInformation_1"& _ "_Text)) AND ((@IsNull_nctsHC_AdditionalInformation_2_Code = 1 AND [nctsHC_Additi"& _ "onalInformation_2_Code] IS NULL) OR ([nctsHC_AdditionalInformation_2_Code] = @Or"& _ "iginal_nctsHC_AdditionalInformation_2_Code)) AND ((@IsNull_nctsHC_AdditionalInfo"& _ "rmation_2_Text = 1 AND [nctsHC_AdditionalInformation_2_Text] IS NULL) OR ([nctsH"& _ "C_AdditionalInformation_2_Text] = @Original_nctsHC_AdditionalInformation_2_Text)"& _ ") AND ((@IsNull_nctsHC_AdditionalInformation_3_Code = 1 AND [nctsHC_AdditionalIn"& _ "formation_3_Code] IS NULL) OR ([nctsHC_AdditionalInformation_3_Code] = @Original"& _ "_nctsHC_AdditionalInformation_3_Code)) AND ((@IsNull_nctsHC_AdditionalInformatio"& _ "n_3_Text = 1 AND [nctsHC_AdditionalInformation_3_Text] IS NULL) OR ([nctsHC_Addi"& _ "tionalInformation_3_Text] = @Original_nctsHC_AdditionalInformation_3_Text)) AND "& _ "((@IsNull_nctsHC_AdditionalInformation_4_Code = 1 AND [nctsHC_AdditionalInformat"& _ "ion_4_Code] IS NULL) OR ([nctsHC_AdditionalInformation_4_Code] = @Original_nctsH"& _ "C_AdditionalInformation_4_Code)) AND ((@IsNull_nctsHC_AdditionalInformation_4_Te"& _ "xt = 1 AND [nctsHC_AdditionalInformation_4_Text] IS NULL) OR ([nctsHC_Additional"& _ "Information_4_Text] = @Original_nctsHC_AdditionalInformation_4_Text)) AND ((@IsN"& _ "ull_nctsHC_AdditionalInformation_5_Code = 1 AND [nctsHC_AdditionalInformation_5_"& _ "Code] IS NULL) OR ([nctsHC_AdditionalInformation_5_Code] = @Original_nctsHC_Addi"& _ "tionalInformation_5_Code)) AND ((@IsNull_nctsHC_AdditionalInformation_5_Text = 1"& _ " AND [nctsHC_AdditionalInformation_5_Text] IS NULL) OR ([nctsHC_AdditionalInform"& _ "ation_5_Text] = @Original_nctsHC_AdditionalInformation_5_Text)) AND ((@IsNull_nc"& _ "tsHC_AdditionalInformation_6_Code = 1 AND [nctsHC_AdditionalInformation_6_Code] "& _ "IS NULL) OR ([nctsHC_AdditionalInformation_6_Code] = @Original_nctsHC_Additional"& _ "Information_6_Code)) AND ((@IsNull_nctsHC_AdditionalInformation_6_Text = 1 AND ["& _ "nctsHC_AdditionalInformation_6_Text] IS NULL) OR ([nctsHC_AdditionalInformation_"& _ "6_Text] = @Original_nctsHC_AdditionalInformation_6_Text)) AND ((@IsNull_nctsHC_A"& _ "dditionalInformation_7_Code = 1 AND [nctsHC_AdditionalInformation_7_Code] IS NUL"& _ "L) OR ([nctsHC_AdditionalInformation_7_Code] = @Original_nctsHC_AdditionalInform"& _ "ation_7_Code)) AND ((@IsNull_nctsHC_AdditionalInformation_7_Text = 1 AND [nctsHC"& _ "_AdditionalInformation_7_Text] IS NULL) OR ([nctsHC_AdditionalInformation_7_Text"& _ "] = @Original_nctsHC_AdditionalInformation_7_Text)) AND ((@IsNull_nctsHC_Additio"& _ "nalInformation_8_Code = 1 AND [nctsHC_AdditionalInformation_8_Code] IS NULL) OR "& _ "([nctsHC_AdditionalInformation_8_Code] = @Original_nctsHC_AdditionalInformation_"& _ "8_Code)) AND ((@IsNull_nctsHC_AdditionalInformation_8_Text = 1 AND [nctsHC_Addit"& _ "ionalInformation_8_Text] IS NULL) OR ([nctsHC_AdditionalInformation_8_Text] = @O"& _ "riginal_nctsHC_AdditionalInformation_8_Text)) AND ((@IsNull_nctsHC_AdditionalInf"& _ "ormation_9_Code = 1 AND [nctsHC_AdditionalInformation_9_Code] IS NULL) OR ([ncts"& _ "HC_AdditionalInformation_9_Code] = @Original_nctsHC_AdditionalInformation_9_Code"& _ ")) AND ((@IsNull_nctsHC_AdditionalInformation_9_Text = 1 AND [nctsHC_AdditionalI"& _ "nformation_9_Text] IS NULL) OR ([nctsHC_AdditionalInformation_9_Text] = @Origina"& _ "l_nctsHC_AdditionalInformation_9_Text)) AND ((@IsNull_nctsHC_TransportCharges = "& _ "1 AND [nctsHC_TransportCharges] IS NULL) OR ([nctsHC_TransportCharges] = @Origin"& _ "al_nctsHC_TransportCharges)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsHC_Id, nctsHC_NctsId, nctsHC_HouseCon"& _ "signMentReference, nctsHC_CountryOfDispatch, nctsHC_CountryOfDestination, nctsHC"& _ "_GrossMass, nctsHC_ReferenceNumberUCR, nctsHC_Consignor_AdressCode, nctsHC_Consi"& _ "gnor_IdentificationNumber, nctsHC_Consignor_SubsidiaryNumber, nctsHC_Consignor_N"& _ "ame, nctsHC_Consignor_StreetNumber, nctsHC_Consignor_City, nctsHC_Consignor_Post"& _ "code, nctsHC_Consignor_Country, nctsHC_Consignor_ContactPerson_Name, nctsHC_Cons"& _ "ignor_ContactPerson_PhoneNumber, nctsHC_Consignor_ContactPerson_EMailAddress, nc"& _ "tsHC_Consignee_AdressCode, nctsHC_Consignee_IdentificationNumber, nctsHC_Consign"& _ "ee_SubsidiaryNumber, nctsHC_Consignee_Name, nctsHC_Consignee_StreetNumber, nctsH"& _ "C_Consignee_City, nctsHC_Consignee_Postcode, nctsHC_Consignee_Country, nctsHC_Co"& _ "nsignee_ContactPerson_Name, nctsHC_Consignee_ContactPerson_PhoneNumber, nctsHC_C"& _ "onsignee_ContactPerson_EMailAddress, nctsHC_AdditionalSupplyChainActor_1_Role, n"& _ "ctsHC_AdditionalSupplyChainActor_1_IdentificationNumber, nctsHC_AdditionalSupply"& _ "ChainActor_2_Role, nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber, nct"& _ "sHC_AdditionalSupplyChainActor_3_Role, nctsHC_AdditionalSupplyChainActor_3_Ident"& _ "ificationNumber, nctsHC_AdditionalSupplyChainActor_4_Role, nctsHC_AdditionalSupp"& _ "lyChainActor_4_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_5_Role, n"& _ "ctsHC_AdditionalSupplyChainActor_5_IdentificationNumber, nctsHC_AdditionalSupply"& _ "ChainActor_6_Role, nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber, nct"& _ "sHC_AdditionalSupplyChainActor_7_Role, nctsHC_AdditionalSupplyChainActor_7_Ident"& _ "ificationNumber, nctsHC_AdditionalSupplyChainActor_8_Role, nctsHC_AdditionalSupp"& _ "lyChainActor_8_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_9_Role, n"& _ "ctsHC_AdditionalSupplyChainActor_9_IdentificationNumber, nctsHC_SupportingDocume"& _ "nt_1_Type, nctsHC_SupportingDocument_1_ReferenceNumber, nctsHC_SupportingDocumen"& _ "t_1_DocumentLineItemNumber, nctsHC_SupportingDocument_1_ComplementOfInformation,"& _ " nctsHC_SupportingDocument_2_Type, nctsHC_SupportingDocument_2_ReferenceNumber, "& _ "nctsHC_SupportingDocument_2_DocumentLineItemNumber, nctsHC_SupportingDocument_2_"& _ "ComplementOfInformation, nctsHC_SupportingDocument_3_Type, nctsHC_SupportingDocu"& _ "ment_3_ReferenceNumber, nctsHC_SupportingDocument_3_DocumentLineItemNumber, ncts"& _ "HC_SupportingDocument_3_ComplementOfInformation, nctsHC_SupportingDocument_4_Typ"& _ "e, nctsHC_SupportingDocument_4_ReferenceNumber, nctsHC_SupportingDocument_4_Docu"& _ "mentLineItemNumber, nctsHC_SupportingDocument_4_ComplementOfInformation, nctsHC_"& _ "SupportingDocument_5_Type, nctsHC_SupportingDocument_5_ReferenceNumber, nctsHC_S"& _ "upportingDocument_5_DocumentLineItemNumber, nctsHC_SupportingDocument_5_Compleme"& _ "ntOfInformation, nctsHC_SupportingDocument_6_Type, nctsHC_SupportingDocument_6_R"& _ "eferenceNumber, nctsHC_SupportingDocument_6_DocumentLineItemNumber, nctsHC_Suppo"& _ "rtingDocument_6_ComplementOfInformation, nctsHC_SupportingDocument_7_Type, nctsH"& _ "C_SupportingDocument_7_ReferenceNumber, nctsHC_SupportingDocument_7_DocumentLine"& _ "ItemNumber, nctsHC_SupportingDocument_7_ComplementOfInformation, nctsHC_Supporti"& _ "ngDocument_8_Type, nctsHC_SupportingDocument_8_ReferenceNumber, nctsHC_Supportin"& _ "gDocument_8_DocumentLineItemNumber, nctsHC_SupportingDocument_8_ComplementOfInfo"& _ "rmation, nctsHC_SupportingDocument_9_Type, nctsHC_SupportingDocument_9_Reference"& _ "Number, nctsHC_SupportingDocument_9_DocumentLineItemNumber, nctsHC_SupportingDoc"& _ "ument_9_ComplementOfInformation, nctsHC_PreviousDocument_1_Type, nctsHC_Previous"& _ "Document_1_ReferenceNumber, nctsHC_PreviousDocument_1_ComplementOfInformation, n"& _ "ctsHC_PreviousDocument_2_Type, nctsHC_PreviousDocument_2_ReferenceNumber, nctsHC"& _ "_PreviousDocument_2_ComplementOfInformation, nctsHC_PreviousDocument_3_Type, nct"& _ "sHC_PreviousDocument_3_ReferenceNumber, nctsHC_PreviousDocument_3_ComplementOfIn"& _ "formation, nctsHC_PreviousDocument_4_Type, nctsHC_PreviousDocument_4_ReferenceNu"& _ "mber, nctsHC_PreviousDocument_4_ComplementOfInformation, nctsHC_PreviousDocument"& _ "_5_Type, nctsHC_PreviousDocument_5_ReferenceNumber, nctsHC_PreviousDocument_5_Co"& _ "mplementOfInformation, nctsHC_PreviousDocument_6_Type, nctsHC_PreviousDocument_6"& _ "_ReferenceNumber, nctsHC_PreviousDocument_6_ComplementOfInformation, nctsHC_Prev"& _ "iousDocument_7_Type, nctsHC_PreviousDocument_7_ReferenceNumber, nctsHC_PreviousD"& _ "ocument_7_ComplementOfInformation, nctsHC_PreviousDocument_8_Type, nctsHC_Previo"& _ "usDocument_8_ReferenceNumber, nctsHC_PreviousDocument_8_ComplementOfInformation,"& _ " nctsHC_PreviousDocument_9_Type, nctsHC_PreviousDocument_9_ReferenceNumber, ncts"& _ "HC_PreviousDocument_9_ComplementOfInformation, nctsHC_TransportDocument_1_Type, "& _ "nctsHC_TransportDocument_1_ReferenceNumber, nctsHC_TransportDocument_2_Type, nct"& _ "sHC_TransportDocument_2_ReferenceNumber, nctsHC_TransportDocument_3_Type, nctsHC"& _ "_TransportDocument_3_ReferenceNumber, nctsHC_TransportDocument_4_Type, nctsHC_Tr"& _ "ansportDocument_4_ReferenceNumber, nctsHC_TransportDocument_5_Type, nctsHC_Trans"& _ "portDocument_5_ReferenceNumber, nctsHC_TransportDocument_6_Type, nctsHC_Transpor"& _ "tDocument_6_ReferenceNumber, nctsHC_TransportDocument_7_Type, nctsHC_TransportDo"& _ "cument_7_ReferenceNumber, nctsHC_TransportDocument_8_Type, nctsHC_TransportDocum"& _ "ent_8_ReferenceNumber, nctsHC_TransportDocument_9_Type, nctsHC_TransportDocument"& _ "_9_ReferenceNumber, nctsHC_AdditionalReference_1_Type, nctsHC_AdditionalReferenc"& _ "e_1_ReferenceNumber, nctsHC_AdditionalReference_2_Type, nctsHC_AdditionalReferen"& _ "ce_2_ReferenceNumber, nctsHC_AdditionalReference_3_Type, nctsHC_AdditionalRefere"& _ "nce_3_ReferenceNumber, nctsHC_AdditionalReference_4_Type, nctsHC_AdditionalRefer"& _ "ence_4_ReferenceNumber, nctsHC_AdditionalReference_5_Type, nctsHC_AdditionalRefe"& _ "rence_5_ReferenceNumber, nctsHC_AdditionalReference_6_Type, nctsHC_AdditionalRef"& _ "erence_6_ReferenceNumber, nctsHC_AdditionalReference_7_Type, nctsHC_AdditionalRe"& _ "ference_7_ReferenceNumber, nctsHC_AdditionalReference_8_Type, nctsHC_AdditionalR"& _ "eference_8_ReferenceNumber, nctsHC_AdditionalReference_9_Type, nctsHC_Additional"& _ "Reference_9_ReferenceNumber, nctsHC_AdditionalInformation_1_Code, nctsHC_Additio"& _ "nalInformation_1_Text, nctsHC_AdditionalInformation_2_Code, nctsHC_AdditionalInf"& _ "ormation_2_Text, nctsHC_AdditionalInformation_3_Code, nctsHC_AdditionalInformati"& _ "on_3_Text, nctsHC_AdditionalInformation_4_Code, nctsHC_AdditionalInformation_4_T"& _ "ext, nctsHC_AdditionalInformation_5_Code, nctsHC_AdditionalInformation_5_Text, n"& _ "ctsHC_AdditionalInformation_6_Code, nctsHC_AdditionalInformation_6_Text, nctsHC_"& _ "AdditionalInformation_7_Code, nctsHC_AdditionalInformation_7_Text, nctsHC_Additi"& _ "onalInformation_8_Code, nctsHC_AdditionalInformation_8_Text, nctsHC_AdditionalIn"& _ "formation_9_Code, nctsHC_AdditionalInformation_9_Text, nctsHC_TransportCharges F"& _ "ROM tblDakosy_NCTSOut004_HouseConsignment WHERE (nctsHC_Id = @nctsHC_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_HouseConsignMentReference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_HouseConsignMentReference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDispatch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "nctsHC_GrossMass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_TransportCharges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_HouseConsignMentReference", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_HouseConsignMentReference", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_HouseConsignMentReference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_HouseConsignMentReference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_CountryOfDispatch", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_CountryOfDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_CountryOfDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_GrossMass", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_GrossMass", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "nctsHC_GrossMass", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_ReferenceNumberUCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Consignee_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHC_TransportCharges", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportCharges", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHC_TransportCharges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_TransportCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHC_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHC_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsHC_Id, nctsHC_NctsId, nctsHC_HouseConsignMentReference, nctsHC_Country"& _ "OfDispatch, nctsHC_CountryOfDestination, nctsHC_GrossMass, nctsHC_ReferenceNumbe"& _ "rUCR, nctsHC_Consignor_AdressCode, nctsHC_Consignor_IdentificationNumber, nctsHC"& _ "_Consignor_SubsidiaryNumber, nctsHC_Consignor_Name, nctsHC_Consignor_StreetNumbe"& _ "r, nctsHC_Consignor_City, nctsHC_Consignor_Postcode, nctsHC_Consignor_Country, n"& _ "ctsHC_Consignor_ContactPerson_Name, nctsHC_Consignor_ContactPerson_PhoneNumber, "& _ "nctsHC_Consignor_ContactPerson_EMailAddress, nctsHC_Consignee_AdressCode, nctsHC"& _ "_Consignee_IdentificationNumber, nctsHC_Consignee_SubsidiaryNumber, nctsHC_Consi"& _ "gnee_Name, nctsHC_Consignee_StreetNumber, nctsHC_Consignee_City, nctsHC_Consigne"& _ "e_Postcode, nctsHC_Consignee_Country, nctsHC_Consignee_ContactPerson_Name, nctsH"& _ "C_Consignee_ContactPerson_PhoneNumber, nctsHC_Consignee_ContactPerson_EMailAddre"& _ "ss, nctsHC_AdditionalSupplyChainActor_1_Role, nctsHC_AdditionalSupplyChainActor_"& _ "1_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_2_Role, nctsHC_Additio"& _ "nalSupplyChainActor_2_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_3_"& _ "Role, nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber, nctsHC_Additiona"& _ "lSupplyChainActor_4_Role, nctsHC_AdditionalSupplyChainActor_4_IdentificationNumb"& _ "er, nctsHC_AdditionalSupplyChainActor_5_Role, nctsHC_AdditionalSupplyChainActor_"& _ "5_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_6_Role, nctsHC_Additio"& _ "nalSupplyChainActor_6_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_7_"& _ "Role, nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber, nctsHC_Additiona"& _ "lSupplyChainActor_8_Role, nctsHC_AdditionalSupplyChainActor_8_IdentificationNumb"& _ "er, nctsHC_AdditionalSupplyChainActor_9_Role, nctsHC_AdditionalSupplyChainActor_"& _ "9_IdentificationNumber, nctsHC_SupportingDocument_1_Type, nctsHC_SupportingDocum"& _ "ent_1_ReferenceNumber, nctsHC_SupportingDocument_1_DocumentLineItemNumber, nctsH"& _ "C_SupportingDocument_1_ComplementOfInformation, nctsHC_SupportingDocument_2_Type"& _ ", nctsHC_SupportingDocument_2_ReferenceNumber, nctsHC_SupportingDocument_2_Docum"& _ "entLineItemNumber, nctsHC_SupportingDocument_2_ComplementOfInformation, nctsHC_S"& _ "upportingDocument_3_Type, nctsHC_SupportingDocument_3_ReferenceNumber, nctsHC_Su"& _ "pportingDocument_3_DocumentLineItemNumber, nctsHC_SupportingDocument_3_Complemen"& _ "tOfInformation, nctsHC_SupportingDocument_4_Type, nctsHC_SupportingDocument_4_Re"& _ "ferenceNumber, nctsHC_SupportingDocument_4_DocumentLineItemNumber, nctsHC_Suppor"& _ "tingDocument_4_ComplementOfInformation, nctsHC_SupportingDocument_5_Type, nctsHC"& _ "_SupportingDocument_5_ReferenceNumber, nctsHC_SupportingDocument_5_DocumentLineI"& _ "temNumber, nctsHC_SupportingDocument_5_ComplementOfInformation, nctsHC_Supportin"& _ "gDocument_6_Type, nctsHC_SupportingDocument_6_ReferenceNumber, nctsHC_Supporting"& _ "Document_6_DocumentLineItemNumber, nctsHC_SupportingDocument_6_ComplementOfInfor"& _ "mation, nctsHC_SupportingDocument_7_Type, nctsHC_SupportingDocument_7_ReferenceN"& _ "umber, nctsHC_SupportingDocument_7_DocumentLineItemNumber, nctsHC_SupportingDocu"& _ "ment_7_ComplementOfInformation, nctsHC_SupportingDocument_8_Type, nctsHC_Support"& _ "ingDocument_8_ReferenceNumber, nctsHC_SupportingDocument_8_DocumentLineItemNumbe"& _ "r, nctsHC_SupportingDocument_8_ComplementOfInformation, nctsHC_SupportingDocumen"& _ "t_9_Type, nctsHC_SupportingDocument_9_ReferenceNumber, nctsHC_SupportingDocument"& _ "_9_DocumentLineItemNumber, nctsHC_SupportingDocument_9_ComplementOfInformation, "& _ "nctsHC_PreviousDocument_1_Type, nctsHC_PreviousDocument_1_ReferenceNumber, nctsH"& _ "C_PreviousDocument_1_ComplementOfInformation, nctsHC_PreviousDocument_2_Type, nc"& _ "tsHC_PreviousDocument_2_ReferenceNumber, nctsHC_PreviousDocument_2_ComplementOfI"& _ "nformation, nctsHC_PreviousDocument_3_Type, nctsHC_PreviousDocument_3_ReferenceN"& _ "umber, nctsHC_PreviousDocument_3_ComplementOfInformation, nctsHC_PreviousDocumen"& _ "t_4_Type, nctsHC_PreviousDocument_4_ReferenceNumber, nctsHC_PreviousDocument_4_C"& _ "omplementOfInformation, nctsHC_PreviousDocument_5_Type, nctsHC_PreviousDocument_"& _ "5_ReferenceNumber, nctsHC_PreviousDocument_5_ComplementOfInformation, nctsHC_Pre"& _ "viousDocument_6_Type, nctsHC_PreviousDocument_6_ReferenceNumber, nctsHC_Previous"& _ "Document_6_ComplementOfInformation, nctsHC_PreviousDocument_7_Type, nctsHC_Previ"& _ "ousDocument_7_ReferenceNumber, nctsHC_PreviousDocument_7_ComplementOfInformation"& _ ", nctsHC_PreviousDocument_8_Type, nctsHC_PreviousDocument_8_ReferenceNumber, nct"& _ "sHC_PreviousDocument_8_ComplementOfInformation, nctsHC_PreviousDocument_9_Type, "& _ "nctsHC_PreviousDocument_9_ReferenceNumber, nctsHC_PreviousDocument_9_ComplementO"& _ "fInformation, nctsHC_TransportDocument_1_Type, nctsHC_TransportDocument_1_Refere"& _ "nceNumber, nctsHC_TransportDocument_2_Type, nctsHC_TransportDocument_2_Reference"& _ "Number, nctsHC_TransportDocument_3_Type, nctsHC_TransportDocument_3_ReferenceNum"& _ "ber, nctsHC_TransportDocument_4_Type, nctsHC_TransportDocument_4_ReferenceNumber"& _ ", nctsHC_TransportDocument_5_Type, nctsHC_TransportDocument_5_ReferenceNumber, n"& _ "ctsHC_TransportDocument_6_Type, nctsHC_TransportDocument_6_ReferenceNumber, ncts"& _ "HC_TransportDocument_7_Type, nctsHC_TransportDocument_7_ReferenceNumber, nctsHC_"& _ "TransportDocument_8_Type, nctsHC_TransportDocument_8_ReferenceNumber, nctsHC_Tra"& _ "nsportDocument_9_Type, nctsHC_TransportDocument_9_ReferenceNumber, nctsHC_Additi"& _ "onalReference_1_Type, nctsHC_AdditionalReference_1_ReferenceNumber, nctsHC_Addit"& _ "ionalReference_2_Type, nctsHC_AdditionalReference_2_ReferenceNumber, nctsHC_Addi"& _ "tionalReference_3_Type, nctsHC_AdditionalReference_3_ReferenceNumber, nctsHC_Add"& _ "itionalReference_4_Type, nctsHC_AdditionalReference_4_ReferenceNumber, nctsHC_Ad"& _ "ditionalReference_5_Type, nctsHC_AdditionalReference_5_ReferenceNumber, nctsHC_A"& _ "dditionalReference_6_Type, nctsHC_AdditionalReference_6_ReferenceNumber, nctsHC_"& _ "AdditionalReference_7_Type, nctsHC_AdditionalReference_7_ReferenceNumber, nctsHC"& _ "_AdditionalReference_8_Type, nctsHC_AdditionalReference_8_ReferenceNumber, nctsH"& _ "C_AdditionalReference_9_Type, nctsHC_AdditionalReference_9_ReferenceNumber, ncts"& _ "HC_AdditionalInformation_1_Code, nctsHC_AdditionalInformation_1_Text, nctsHC_Add"& _ "itionalInformation_2_Code, nctsHC_AdditionalInformation_2_Text, nctsHC_Additiona"& _ "lInformation_3_Code, nctsHC_AdditionalInformation_3_Text, nctsHC_AdditionalInfor"& _ "mation_4_Code, nctsHC_AdditionalInformation_4_Text, nctsHC_AdditionalInformation"& _ "_5_Code, nctsHC_AdditionalInformation_5_Text, nctsHC_AdditionalInformation_6_Cod"& _ "e, nctsHC_AdditionalInformation_6_Text, nctsHC_AdditionalInformation_7_Code, nct"& _ "sHC_AdditionalInformation_7_Text, nctsHC_AdditionalInformation_8_Code, nctsHC_Ad"& _ "ditionalInformation_8_Text, nctsHC_AdditionalInformation_9_Code, nctsHC_Addition"& _ "alInformation_9_Text, nctsHC_TransportCharges FROM dbo.tblDakosy_NCTSOut004_Hous"& _ "eConsignment" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignmentDataTable) 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 VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignmentDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignmentDataTable = New VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignmentDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignmentDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut004_HouseConsignment") 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_nctsHC_Id As Integer, _ ByVal Original_nctsHC_NctsId As Integer, _ ByVal Original_nctsHC_HouseConsignMentReference As String, _ ByVal Original_nctsHC_CountryOfDispatch As String, _ ByVal Original_nctsHC_CountryOfDestination As String, _ ByVal Original_nctsHC_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHC_ReferenceNumberUCR As String, _ ByVal Original_nctsHC_Consignor_AdressCode As String, _ ByVal Original_nctsHC_Consignor_IdentificationNumber As String, _ ByVal Original_nctsHC_Consignor_SubsidiaryNumber As String, _ ByVal Original_nctsHC_Consignor_Name As String, _ ByVal Original_nctsHC_Consignor_StreetNumber As String, _ ByVal Original_nctsHC_Consignor_City As String, _ ByVal Original_nctsHC_Consignor_Postcode As String, _ ByVal Original_nctsHC_Consignor_Country As String, _ ByVal Original_nctsHC_Consignor_ContactPerson_Name As String, _ ByVal Original_nctsHC_Consignor_ContactPerson_PhoneNumber As String, _ ByVal Original_nctsHC_Consignor_ContactPerson_EMailAddress As String, _ ByVal Original_nctsHC_Consignee_AdressCode As String, _ ByVal Original_nctsHC_Consignee_IdentificationNumber As String, _ ByVal Original_nctsHC_Consignee_SubsidiaryNumber As String, _ ByVal Original_nctsHC_Consignee_Name As String, _ ByVal Original_nctsHC_Consignee_StreetNumber As String, _ ByVal Original_nctsHC_Consignee_City As String, _ ByVal Original_nctsHC_Consignee_Postcode As String, _ ByVal Original_nctsHC_Consignee_Country As String, _ ByVal Original_nctsHC_Consignee_ContactPerson_Name As String, _ ByVal Original_nctsHC_Consignee_ContactPerson_PhoneNumber As String, _ ByVal Original_nctsHC_Consignee_ContactPerson_EMailAddress As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_1_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_2_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_3_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_4_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_5_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_6_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_7_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_8_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_9_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal Original_nctsHC_SupportingDocument_1_Type As String, _ ByVal Original_nctsHC_SupportingDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_2_Type As String, _ ByVal Original_nctsHC_SupportingDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_3_Type As String, _ ByVal Original_nctsHC_SupportingDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_4_Type As String, _ ByVal Original_nctsHC_SupportingDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_5_Type As String, _ ByVal Original_nctsHC_SupportingDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_6_Type As String, _ ByVal Original_nctsHC_SupportingDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_7_Type As String, _ ByVal Original_nctsHC_SupportingDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_8_Type As String, _ ByVal Original_nctsHC_SupportingDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_9_Type As String, _ ByVal Original_nctsHC_SupportingDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_1_Type As String, _ ByVal Original_nctsHC_PreviousDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_2_Type As String, _ ByVal Original_nctsHC_PreviousDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_3_Type As String, _ ByVal Original_nctsHC_PreviousDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_4_Type As String, _ ByVal Original_nctsHC_PreviousDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_5_Type As String, _ ByVal Original_nctsHC_PreviousDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_6_Type As String, _ ByVal Original_nctsHC_PreviousDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_7_Type As String, _ ByVal Original_nctsHC_PreviousDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_8_Type As String, _ ByVal Original_nctsHC_PreviousDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_9_Type As String, _ ByVal Original_nctsHC_PreviousDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHC_TransportDocument_1_Type As String, _ ByVal Original_nctsHC_TransportDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_2_Type As String, _ ByVal Original_nctsHC_TransportDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_3_Type As String, _ ByVal Original_nctsHC_TransportDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_4_Type As String, _ ByVal Original_nctsHC_TransportDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_5_Type As String, _ ByVal Original_nctsHC_TransportDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_6_Type As String, _ ByVal Original_nctsHC_TransportDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_7_Type As String, _ ByVal Original_nctsHC_TransportDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_8_Type As String, _ ByVal Original_nctsHC_TransportDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_9_Type As String, _ ByVal Original_nctsHC_TransportDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_1_Type As String, _ ByVal Original_nctsHC_AdditionalReference_1_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_2_Type As String, _ ByVal Original_nctsHC_AdditionalReference_2_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_3_Type As String, _ ByVal Original_nctsHC_AdditionalReference_3_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_4_Type As String, _ ByVal Original_nctsHC_AdditionalReference_4_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_5_Type As String, _ ByVal Original_nctsHC_AdditionalReference_5_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_6_Type As String, _ ByVal Original_nctsHC_AdditionalReference_6_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_7_Type As String, _ ByVal Original_nctsHC_AdditionalReference_7_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_8_Type As String, _ ByVal Original_nctsHC_AdditionalReference_8_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_9_Type As String, _ ByVal Original_nctsHC_AdditionalReference_9_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalInformation_1_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_1_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_2_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_2_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_3_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_3_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_4_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_4_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_5_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_5_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_6_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_6_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_7_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_7_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_8_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_8_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_9_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_9_Text As String, _ ByVal Original_nctsHC_TransportCharges As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsHC_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsHC_NctsId,Integer) If (Original_nctsHC_HouseConsignMentReference 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_nctsHC_HouseConsignMentReference,String) End If If (Original_nctsHC_CountryOfDispatch 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_nctsHC_CountryOfDispatch,String) End If If (Original_nctsHC_CountryOfDestination 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_nctsHC_CountryOfDestination,String) End If If (Original_nctsHC_GrossMass.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_nctsHC_GrossMass.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_nctsHC_ReferenceNumberUCR 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_nctsHC_ReferenceNumberUCR,String) End If If (Original_nctsHC_Consignor_AdressCode 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_nctsHC_Consignor_AdressCode,String) End If If (Original_nctsHC_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_nctsHC_Consignor_IdentificationNumber,String) End If If (Original_nctsHC_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_nctsHC_Consignor_SubsidiaryNumber,String) End If If (Original_nctsHC_Consignor_Name 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_nctsHC_Consignor_Name,String) End If If (Original_nctsHC_Consignor_StreetNumber 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_nctsHC_Consignor_StreetNumber,String) End If If (Original_nctsHC_Consignor_City 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_nctsHC_Consignor_City,String) End If If (Original_nctsHC_Consignor_Postcode 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_nctsHC_Consignor_Postcode,String) End If If (Original_nctsHC_Consignor_Country 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_nctsHC_Consignor_Country,String) End If If (Original_nctsHC_Consignor_ContactPerson_Name 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_nctsHC_Consignor_ContactPerson_Name,String) End If If (Original_nctsHC_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_nctsHC_Consignor_ContactPerson_PhoneNumber,String) End If If (Original_nctsHC_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_nctsHC_Consignor_ContactPerson_EMailAddress,String) End If If (Original_nctsHC_Consignee_AdressCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_nctsHC_Consignee_AdressCode,String) End If If (Original_nctsHC_Consignee_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_nctsHC_Consignee_IdentificationNumber,String) End If If (Original_nctsHC_Consignee_SubsidiaryNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_nctsHC_Consignee_SubsidiaryNumber,String) End If If (Original_nctsHC_Consignee_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_nctsHC_Consignee_Name,String) End If If (Original_nctsHC_Consignee_StreetNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_nctsHC_Consignee_StreetNumber,String) End If If (Original_nctsHC_Consignee_City Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_nctsHC_Consignee_City,String) End If If (Original_nctsHC_Consignee_Postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_nctsHC_Consignee_Postcode,String) End If If (Original_nctsHC_Consignee_Country Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_nctsHC_Consignee_Country,String) End If If (Original_nctsHC_Consignee_ContactPerson_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_nctsHC_Consignee_ContactPerson_Name,String) End If If (Original_nctsHC_Consignee_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_nctsHC_Consignee_ContactPerson_PhoneNumber,String) End If If (Original_nctsHC_Consignee_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = CType(Original_nctsHC_Consignee_ContactPerson_EMailAddress,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_1_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_2_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_3_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_4_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_5_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_6_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_7_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_8_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_9_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (Original_nctsHC_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = CType(Original_nctsHC_SupportingDocument_1_Type,String) End If If (Original_nctsHC_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = CType(Original_nctsHC_SupportingDocument_1_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = CType(Original_nctsHC_SupportingDocument_1_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = CType(Original_nctsHC_SupportingDocument_1_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = CType(Original_nctsHC_SupportingDocument_2_Type,String) End If If (Original_nctsHC_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = CType(Original_nctsHC_SupportingDocument_2_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = CType(Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = CType(Original_nctsHC_SupportingDocument_2_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = CType(Original_nctsHC_SupportingDocument_3_Type,String) End If If (Original_nctsHC_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = CType(Original_nctsHC_SupportingDocument_3_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = CType(Original_nctsHC_SupportingDocument_3_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = CType(Original_nctsHC_SupportingDocument_3_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = CType(Original_nctsHC_SupportingDocument_4_Type,String) End If If (Original_nctsHC_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = CType(Original_nctsHC_SupportingDocument_4_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = CType(Original_nctsHC_SupportingDocument_4_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = CType(Original_nctsHC_SupportingDocument_4_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = CType(Original_nctsHC_SupportingDocument_5_Type,String) End If If (Original_nctsHC_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = CType(Original_nctsHC_SupportingDocument_5_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = CType(Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = CType(Original_nctsHC_SupportingDocument_5_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = CType(Original_nctsHC_SupportingDocument_6_Type,String) End If If (Original_nctsHC_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = CType(Original_nctsHC_SupportingDocument_6_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(136).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(136).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = CType(Original_nctsHC_SupportingDocument_6_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(138).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(138).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = CType(Original_nctsHC_SupportingDocument_6_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(140).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(140).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = CType(Original_nctsHC_SupportingDocument_7_Type,String) End If If (Original_nctsHC_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(142).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(142).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = CType(Original_nctsHC_SupportingDocument_7_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(144).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(144).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = CType(Original_nctsHC_SupportingDocument_7_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(146).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(146).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = CType(Original_nctsHC_SupportingDocument_7_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(148).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(148).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = CType(Original_nctsHC_SupportingDocument_8_Type,String) End If If (Original_nctsHC_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(150).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(150).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(151).Value = CType(Original_nctsHC_SupportingDocument_8_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(152).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(152).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(153).Value = CType(Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(154).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(154).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(155).Value = CType(Original_nctsHC_SupportingDocument_8_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(156).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(156).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(157).Value = CType(Original_nctsHC_SupportingDocument_9_Type,String) End If If (Original_nctsHC_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(158).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(158).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(159).Value = CType(Original_nctsHC_SupportingDocument_9_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(160).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(160).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(161).Value = CType(Original_nctsHC_SupportingDocument_9_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(162).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(162).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(163).Value = CType(Original_nctsHC_SupportingDocument_9_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(164).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(164).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(165).Value = CType(Original_nctsHC_PreviousDocument_1_Type,String) End If If (Original_nctsHC_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(166).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(166).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(167).Value = CType(Original_nctsHC_PreviousDocument_1_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(168).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(168).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(169).Value = CType(Original_nctsHC_PreviousDocument_1_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(170).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(171).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(170).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(171).Value = CType(Original_nctsHC_PreviousDocument_2_Type,String) End If If (Original_nctsHC_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(172).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(173).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(172).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(173).Value = CType(Original_nctsHC_PreviousDocument_2_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(174).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(175).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(174).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(175).Value = CType(Original_nctsHC_PreviousDocument_2_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(176).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(177).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(176).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(177).Value = CType(Original_nctsHC_PreviousDocument_3_Type,String) End If If (Original_nctsHC_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(178).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(179).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(178).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(179).Value = CType(Original_nctsHC_PreviousDocument_3_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(180).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(181).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(180).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(181).Value = CType(Original_nctsHC_PreviousDocument_3_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(182).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(183).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(182).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(183).Value = CType(Original_nctsHC_PreviousDocument_4_Type,String) End If If (Original_nctsHC_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(184).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(185).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(184).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(185).Value = CType(Original_nctsHC_PreviousDocument_4_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(186).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(187).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(186).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(187).Value = CType(Original_nctsHC_PreviousDocument_4_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(188).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(189).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(188).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(189).Value = CType(Original_nctsHC_PreviousDocument_5_Type,String) End If If (Original_nctsHC_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(190).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(191).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(190).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(191).Value = CType(Original_nctsHC_PreviousDocument_5_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(192).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(193).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(192).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(193).Value = CType(Original_nctsHC_PreviousDocument_5_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(194).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(195).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(194).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(195).Value = CType(Original_nctsHC_PreviousDocument_6_Type,String) End If If (Original_nctsHC_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(196).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(197).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(196).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(197).Value = CType(Original_nctsHC_PreviousDocument_6_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(198).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(199).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(198).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(199).Value = CType(Original_nctsHC_PreviousDocument_6_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(200).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(201).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(200).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(201).Value = CType(Original_nctsHC_PreviousDocument_7_Type,String) End If If (Original_nctsHC_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(202).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(203).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(202).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(203).Value = CType(Original_nctsHC_PreviousDocument_7_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(204).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(205).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(204).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(205).Value = CType(Original_nctsHC_PreviousDocument_7_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(206).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(207).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(206).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(207).Value = CType(Original_nctsHC_PreviousDocument_8_Type,String) End If If (Original_nctsHC_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(208).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(209).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(208).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(209).Value = CType(Original_nctsHC_PreviousDocument_8_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(210).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(211).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(210).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(211).Value = CType(Original_nctsHC_PreviousDocument_8_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(212).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(213).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(212).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(213).Value = CType(Original_nctsHC_PreviousDocument_9_Type,String) End If If (Original_nctsHC_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(214).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(215).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(214).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(215).Value = CType(Original_nctsHC_PreviousDocument_9_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(216).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(217).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(216).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(217).Value = CType(Original_nctsHC_PreviousDocument_9_ComplementOfInformation,String) End If If (Original_nctsHC_TransportDocument_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(218).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(219).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(218).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(219).Value = CType(Original_nctsHC_TransportDocument_1_Type,String) End If If (Original_nctsHC_TransportDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(220).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(221).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(220).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(221).Value = CType(Original_nctsHC_TransportDocument_1_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(222).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(223).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(222).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(223).Value = CType(Original_nctsHC_TransportDocument_2_Type,String) End If If (Original_nctsHC_TransportDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(224).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(225).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(224).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(225).Value = CType(Original_nctsHC_TransportDocument_2_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(226).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(227).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(226).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(227).Value = CType(Original_nctsHC_TransportDocument_3_Type,String) End If If (Original_nctsHC_TransportDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(228).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(229).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(228).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(229).Value = CType(Original_nctsHC_TransportDocument_3_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(230).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(231).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(230).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(231).Value = CType(Original_nctsHC_TransportDocument_4_Type,String) End If If (Original_nctsHC_TransportDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(232).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(233).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(232).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(233).Value = CType(Original_nctsHC_TransportDocument_4_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(234).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(235).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(234).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(235).Value = CType(Original_nctsHC_TransportDocument_5_Type,String) End If If (Original_nctsHC_TransportDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(236).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(237).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(236).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(237).Value = CType(Original_nctsHC_TransportDocument_5_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(238).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(239).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(238).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(239).Value = CType(Original_nctsHC_TransportDocument_6_Type,String) End If If (Original_nctsHC_TransportDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(240).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(241).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(240).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(241).Value = CType(Original_nctsHC_TransportDocument_6_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(242).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(243).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(242).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(243).Value = CType(Original_nctsHC_TransportDocument_7_Type,String) End If If (Original_nctsHC_TransportDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(244).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(245).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(244).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(245).Value = CType(Original_nctsHC_TransportDocument_7_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(246).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(247).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(246).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(247).Value = CType(Original_nctsHC_TransportDocument_8_Type,String) End If If (Original_nctsHC_TransportDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(248).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(249).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(248).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(249).Value = CType(Original_nctsHC_TransportDocument_8_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(250).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(251).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(250).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(251).Value = CType(Original_nctsHC_TransportDocument_9_Type,String) End If If (Original_nctsHC_TransportDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(252).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(253).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(252).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(253).Value = CType(Original_nctsHC_TransportDocument_9_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(254).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(255).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(254).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(255).Value = CType(Original_nctsHC_AdditionalReference_1_Type,String) End If If (Original_nctsHC_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(256).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(257).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(256).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(257).Value = CType(Original_nctsHC_AdditionalReference_1_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(258).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(259).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(258).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(259).Value = CType(Original_nctsHC_AdditionalReference_2_Type,String) End If If (Original_nctsHC_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(260).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(261).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(260).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(261).Value = CType(Original_nctsHC_AdditionalReference_2_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(262).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(263).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(262).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(263).Value = CType(Original_nctsHC_AdditionalReference_3_Type,String) End If If (Original_nctsHC_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(264).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(265).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(264).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(265).Value = CType(Original_nctsHC_AdditionalReference_3_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(266).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(267).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(266).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(267).Value = CType(Original_nctsHC_AdditionalReference_4_Type,String) End If If (Original_nctsHC_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(268).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(269).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(268).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(269).Value = CType(Original_nctsHC_AdditionalReference_4_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(270).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(271).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(270).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(271).Value = CType(Original_nctsHC_AdditionalReference_5_Type,String) End If If (Original_nctsHC_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(272).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(273).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(272).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(273).Value = CType(Original_nctsHC_AdditionalReference_5_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(274).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(275).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(274).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(275).Value = CType(Original_nctsHC_AdditionalReference_6_Type,String) End If If (Original_nctsHC_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(276).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(277).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(276).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(277).Value = CType(Original_nctsHC_AdditionalReference_6_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(278).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(279).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(278).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(279).Value = CType(Original_nctsHC_AdditionalReference_7_Type,String) End If If (Original_nctsHC_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(280).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(281).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(280).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(281).Value = CType(Original_nctsHC_AdditionalReference_7_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(282).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(283).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(282).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(283).Value = CType(Original_nctsHC_AdditionalReference_8_Type,String) End If If (Original_nctsHC_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(284).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(285).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(284).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(285).Value = CType(Original_nctsHC_AdditionalReference_8_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(286).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(287).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(286).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(287).Value = CType(Original_nctsHC_AdditionalReference_9_Type,String) End If If (Original_nctsHC_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(288).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(289).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(288).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(289).Value = CType(Original_nctsHC_AdditionalReference_9_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(290).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(291).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(290).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(291).Value = CType(Original_nctsHC_AdditionalInformation_1_Code,String) End If If (Original_nctsHC_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(292).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(293).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(292).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(293).Value = CType(Original_nctsHC_AdditionalInformation_1_Text,String) End If If (Original_nctsHC_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(294).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(295).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(294).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(295).Value = CType(Original_nctsHC_AdditionalInformation_2_Code,String) End If If (Original_nctsHC_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(296).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(297).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(296).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(297).Value = CType(Original_nctsHC_AdditionalInformation_2_Text,String) End If If (Original_nctsHC_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(298).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(299).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(298).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(299).Value = CType(Original_nctsHC_AdditionalInformation_3_Code,String) End If If (Original_nctsHC_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(300).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(301).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(300).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(301).Value = CType(Original_nctsHC_AdditionalInformation_3_Text,String) End If If (Original_nctsHC_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(302).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(303).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(302).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(303).Value = CType(Original_nctsHC_AdditionalInformation_4_Code,String) End If If (Original_nctsHC_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(304).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(305).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(304).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(305).Value = CType(Original_nctsHC_AdditionalInformation_4_Text,String) End If If (Original_nctsHC_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(306).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(307).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(306).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(307).Value = CType(Original_nctsHC_AdditionalInformation_5_Code,String) End If If (Original_nctsHC_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(308).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(309).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(308).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(309).Value = CType(Original_nctsHC_AdditionalInformation_5_Text,String) End If If (Original_nctsHC_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(310).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(311).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(310).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(311).Value = CType(Original_nctsHC_AdditionalInformation_6_Code,String) End If If (Original_nctsHC_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(312).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(313).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(312).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(313).Value = CType(Original_nctsHC_AdditionalInformation_6_Text,String) End If If (Original_nctsHC_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(314).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(315).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(314).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(315).Value = CType(Original_nctsHC_AdditionalInformation_7_Code,String) End If If (Original_nctsHC_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(316).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(317).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(316).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(317).Value = CType(Original_nctsHC_AdditionalInformation_7_Text,String) End If If (Original_nctsHC_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(318).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(319).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(318).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(319).Value = CType(Original_nctsHC_AdditionalInformation_8_Code,String) End If If (Original_nctsHC_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(320).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(321).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(320).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(321).Value = CType(Original_nctsHC_AdditionalInformation_8_Text,String) End If If (Original_nctsHC_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(322).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(323).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(322).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(323).Value = CType(Original_nctsHC_AdditionalInformation_9_Code,String) End If If (Original_nctsHC_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(324).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(325).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(324).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(325).Value = CType(Original_nctsHC_AdditionalInformation_9_Text,String) End If If (Original_nctsHC_TransportCharges Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(326).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(327).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(326).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(327).Value = CType(Original_nctsHC_TransportCharges,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 nctsHC_NctsId As Integer, _ ByVal nctsHC_HouseConsignMentReference As String, _ ByVal nctsHC_CountryOfDispatch As String, _ ByVal nctsHC_CountryOfDestination As String, _ ByVal nctsHC_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal nctsHC_ReferenceNumberUCR As String, _ ByVal nctsHC_Consignor_AdressCode As String, _ ByVal nctsHC_Consignor_IdentificationNumber As String, _ ByVal nctsHC_Consignor_SubsidiaryNumber As String, _ ByVal nctsHC_Consignor_Name As String, _ ByVal nctsHC_Consignor_StreetNumber As String, _ ByVal nctsHC_Consignor_City As String, _ ByVal nctsHC_Consignor_Postcode As String, _ ByVal nctsHC_Consignor_Country As String, _ ByVal nctsHC_Consignor_ContactPerson_Name As String, _ ByVal nctsHC_Consignor_ContactPerson_PhoneNumber As String, _ ByVal nctsHC_Consignor_ContactPerson_EMailAddress As String, _ ByVal nctsHC_Consignee_AdressCode As String, _ ByVal nctsHC_Consignee_IdentificationNumber As String, _ ByVal nctsHC_Consignee_SubsidiaryNumber As String, _ ByVal nctsHC_Consignee_Name As String, _ ByVal nctsHC_Consignee_StreetNumber As String, _ ByVal nctsHC_Consignee_City As String, _ ByVal nctsHC_Consignee_Postcode As String, _ ByVal nctsHC_Consignee_Country As String, _ ByVal nctsHC_Consignee_ContactPerson_Name As String, _ ByVal nctsHC_Consignee_ContactPerson_PhoneNumber As String, _ ByVal nctsHC_Consignee_ContactPerson_EMailAddress As String, _ ByVal nctsHC_AdditionalSupplyChainActor_1_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_2_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_3_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_4_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_5_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_6_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_7_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_8_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_9_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal nctsHC_SupportingDocument_1_Type As String, _ ByVal nctsHC_SupportingDocument_1_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_1_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_2_Type As String, _ ByVal nctsHC_SupportingDocument_2_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_2_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_3_Type As String, _ ByVal nctsHC_SupportingDocument_3_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_3_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_4_Type As String, _ ByVal nctsHC_SupportingDocument_4_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_4_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_5_Type As String, _ ByVal nctsHC_SupportingDocument_5_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_5_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_6_Type As String, _ ByVal nctsHC_SupportingDocument_6_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_6_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_7_Type As String, _ ByVal nctsHC_SupportingDocument_7_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_7_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_8_Type As String, _ ByVal nctsHC_SupportingDocument_8_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_8_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_9_Type As String, _ ByVal nctsHC_SupportingDocument_9_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_9_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_1_Type As String, _ ByVal nctsHC_PreviousDocument_1_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_1_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_2_Type As String, _ ByVal nctsHC_PreviousDocument_2_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_2_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_3_Type As String, _ ByVal nctsHC_PreviousDocument_3_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_3_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_4_Type As String, _ ByVal nctsHC_PreviousDocument_4_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_4_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_5_Type As String, _ ByVal nctsHC_PreviousDocument_5_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_5_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_6_Type As String, _ ByVal nctsHC_PreviousDocument_6_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_6_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_7_Type As String, _ ByVal nctsHC_PreviousDocument_7_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_7_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_8_Type As String, _ ByVal nctsHC_PreviousDocument_8_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_8_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_9_Type As String, _ ByVal nctsHC_PreviousDocument_9_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_9_ComplementOfInformation As String, _ ByVal nctsHC_TransportDocument_1_Type As String, _ ByVal nctsHC_TransportDocument_1_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_2_Type As String, _ ByVal nctsHC_TransportDocument_2_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_3_Type As String, _ ByVal nctsHC_TransportDocument_3_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_4_Type As String, _ ByVal nctsHC_TransportDocument_4_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_5_Type As String, _ ByVal nctsHC_TransportDocument_5_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_6_Type As String, _ ByVal nctsHC_TransportDocument_6_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_7_Type As String, _ ByVal nctsHC_TransportDocument_7_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_8_Type As String, _ ByVal nctsHC_TransportDocument_8_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_9_Type As String, _ ByVal nctsHC_TransportDocument_9_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_1_Type As String, _ ByVal nctsHC_AdditionalReference_1_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_2_Type As String, _ ByVal nctsHC_AdditionalReference_2_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_3_Type As String, _ ByVal nctsHC_AdditionalReference_3_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_4_Type As String, _ ByVal nctsHC_AdditionalReference_4_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_5_Type As String, _ ByVal nctsHC_AdditionalReference_5_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_6_Type As String, _ ByVal nctsHC_AdditionalReference_6_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_7_Type As String, _ ByVal nctsHC_AdditionalReference_7_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_8_Type As String, _ ByVal nctsHC_AdditionalReference_8_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_9_Type As String, _ ByVal nctsHC_AdditionalReference_9_ReferenceNumber As String, _ ByVal nctsHC_AdditionalInformation_1_Code As String, _ ByVal nctsHC_AdditionalInformation_1_Text As String, _ ByVal nctsHC_AdditionalInformation_2_Code As String, _ ByVal nctsHC_AdditionalInformation_2_Text As String, _ ByVal nctsHC_AdditionalInformation_3_Code As String, _ ByVal nctsHC_AdditionalInformation_3_Text As String, _ ByVal nctsHC_AdditionalInformation_4_Code As String, _ ByVal nctsHC_AdditionalInformation_4_Text As String, _ ByVal nctsHC_AdditionalInformation_5_Code As String, _ ByVal nctsHC_AdditionalInformation_5_Text As String, _ ByVal nctsHC_AdditionalInformation_6_Code As String, _ ByVal nctsHC_AdditionalInformation_6_Text As String, _ ByVal nctsHC_AdditionalInformation_7_Code As String, _ ByVal nctsHC_AdditionalInformation_7_Text As String, _ ByVal nctsHC_AdditionalInformation_8_Code As String, _ ByVal nctsHC_AdditionalInformation_8_Text As String, _ ByVal nctsHC_AdditionalInformation_9_Code As String, _ ByVal nctsHC_AdditionalInformation_9_Text As String, _ ByVal nctsHC_TransportCharges As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsHC_NctsId,Integer) If (nctsHC_HouseConsignMentReference Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsHC_HouseConsignMentReference,String) End If If (nctsHC_CountryOfDispatch Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsHC_CountryOfDispatch,String) End If If (nctsHC_CountryOfDestination Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsHC_CountryOfDestination,String) End If If (nctsHC_GrossMass.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsHC_GrossMass.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (nctsHC_ReferenceNumberUCR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsHC_ReferenceNumberUCR,String) End If If (nctsHC_Consignor_AdressCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(nctsHC_Consignor_AdressCode,String) End If If (nctsHC_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(nctsHC_Consignor_IdentificationNumber,String) End If If (nctsHC_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(nctsHC_Consignor_SubsidiaryNumber,String) End If If (nctsHC_Consignor_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(nctsHC_Consignor_Name,String) End If If (nctsHC_Consignor_StreetNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(nctsHC_Consignor_StreetNumber,String) End If If (nctsHC_Consignor_City Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(nctsHC_Consignor_City,String) End If If (nctsHC_Consignor_Postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(nctsHC_Consignor_Postcode,String) End If If (nctsHC_Consignor_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(nctsHC_Consignor_Country,String) End If If (nctsHC_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(nctsHC_Consignor_ContactPerson_Name,String) End If If (nctsHC_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(nctsHC_Consignor_ContactPerson_PhoneNumber,String) End If If (nctsHC_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(nctsHC_Consignor_ContactPerson_EMailAddress,String) End If If (nctsHC_Consignee_AdressCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(nctsHC_Consignee_AdressCode,String) End If If (nctsHC_Consignee_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(nctsHC_Consignee_IdentificationNumber,String) End If If (nctsHC_Consignee_SubsidiaryNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(nctsHC_Consignee_SubsidiaryNumber,String) End If If (nctsHC_Consignee_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(nctsHC_Consignee_Name,String) End If If (nctsHC_Consignee_StreetNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(nctsHC_Consignee_StreetNumber,String) End If If (nctsHC_Consignee_City Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(nctsHC_Consignee_City,String) End If If (nctsHC_Consignee_Postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(nctsHC_Consignee_Postcode,String) End If If (nctsHC_Consignee_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(nctsHC_Consignee_Country,String) End If If (nctsHC_Consignee_ContactPerson_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(nctsHC_Consignee_ContactPerson_Name,String) End If If (nctsHC_Consignee_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(nctsHC_Consignee_ContactPerson_PhoneNumber,String) End If If (nctsHC_Consignee_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(nctsHC_Consignee_ContactPerson_EMailAddress,String) End If If (nctsHC_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(nctsHC_AdditionalSupplyChainActor_1_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(nctsHC_AdditionalSupplyChainActor_2_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(nctsHC_AdditionalSupplyChainActor_3_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(nctsHC_AdditionalSupplyChainActor_4_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(nctsHC_AdditionalSupplyChainActor_5_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(nctsHC_AdditionalSupplyChainActor_6_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(nctsHC_AdditionalSupplyChainActor_7_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(nctsHC_AdditionalSupplyChainActor_8_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(nctsHC_AdditionalSupplyChainActor_9_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (nctsHC_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(nctsHC_SupportingDocument_1_Type,String) End If If (nctsHC_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(nctsHC_SupportingDocument_1_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(nctsHC_SupportingDocument_1_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(nctsHC_SupportingDocument_1_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(nctsHC_SupportingDocument_2_Type,String) End If If (nctsHC_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(nctsHC_SupportingDocument_2_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(nctsHC_SupportingDocument_2_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(nctsHC_SupportingDocument_2_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(nctsHC_SupportingDocument_3_Type,String) End If If (nctsHC_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(nctsHC_SupportingDocument_3_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(nctsHC_SupportingDocument_3_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(nctsHC_SupportingDocument_3_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(nctsHC_SupportingDocument_4_Type,String) End If If (nctsHC_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(nctsHC_SupportingDocument_4_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(nctsHC_SupportingDocument_4_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(nctsHC_SupportingDocument_4_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(nctsHC_SupportingDocument_5_Type,String) End If If (nctsHC_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(nctsHC_SupportingDocument_5_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(nctsHC_SupportingDocument_5_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(nctsHC_SupportingDocument_5_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(nctsHC_SupportingDocument_6_Type,String) End If If (nctsHC_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(nctsHC_SupportingDocument_6_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(nctsHC_SupportingDocument_6_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(nctsHC_SupportingDocument_6_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(nctsHC_SupportingDocument_7_Type,String) End If If (nctsHC_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(nctsHC_SupportingDocument_7_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(nctsHC_SupportingDocument_7_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(nctsHC_SupportingDocument_7_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(nctsHC_SupportingDocument_8_Type,String) End If If (nctsHC_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(nctsHC_SupportingDocument_8_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(nctsHC_SupportingDocument_8_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(nctsHC_SupportingDocument_8_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(78).Value = CType(nctsHC_SupportingDocument_9_Type,String) End If If (nctsHC_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(nctsHC_SupportingDocument_9_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(nctsHC_SupportingDocument_9_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(nctsHC_SupportingDocument_9_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(nctsHC_PreviousDocument_1_Type,String) End If If (nctsHC_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(nctsHC_PreviousDocument_1_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(nctsHC_PreviousDocument_1_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(nctsHC_PreviousDocument_2_Type,String) End If If (nctsHC_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(nctsHC_PreviousDocument_2_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(nctsHC_PreviousDocument_2_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(88).Value = CType(nctsHC_PreviousDocument_3_Type,String) End If If (nctsHC_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(nctsHC_PreviousDocument_3_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(nctsHC_PreviousDocument_3_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(nctsHC_PreviousDocument_4_Type,String) End If If (nctsHC_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(nctsHC_PreviousDocument_4_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(93).Value = CType(nctsHC_PreviousDocument_4_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(nctsHC_PreviousDocument_5_Type,String) End If If (nctsHC_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(nctsHC_PreviousDocument_5_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(nctsHC_PreviousDocument_5_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(nctsHC_PreviousDocument_6_Type,String) End If If (nctsHC_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(nctsHC_PreviousDocument_6_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(nctsHC_PreviousDocument_6_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(100).Value = CType(nctsHC_PreviousDocument_7_Type,String) End If If (nctsHC_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(101).Value = CType(nctsHC_PreviousDocument_7_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(102).Value = CType(nctsHC_PreviousDocument_7_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(103).Value = CType(nctsHC_PreviousDocument_8_Type,String) End If If (nctsHC_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(104).Value = CType(nctsHC_PreviousDocument_8_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(105).Value = CType(nctsHC_PreviousDocument_8_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(106).Value = CType(nctsHC_PreviousDocument_9_Type,String) End If If (nctsHC_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(107).Value = CType(nctsHC_PreviousDocument_9_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(108).Value = CType(nctsHC_PreviousDocument_9_ComplementOfInformation,String) End If If (nctsHC_TransportDocument_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(109).Value = CType(nctsHC_TransportDocument_1_Type,String) End If If (nctsHC_TransportDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(110).Value = CType(nctsHC_TransportDocument_1_ReferenceNumber,String) End If If (nctsHC_TransportDocument_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(111).Value = CType(nctsHC_TransportDocument_2_Type,String) End If If (nctsHC_TransportDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(112).Value = CType(nctsHC_TransportDocument_2_ReferenceNumber,String) End If If (nctsHC_TransportDocument_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(113).Value = CType(nctsHC_TransportDocument_3_Type,String) End If If (nctsHC_TransportDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(114).Value = CType(nctsHC_TransportDocument_3_ReferenceNumber,String) End If If (nctsHC_TransportDocument_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(115).Value = CType(nctsHC_TransportDocument_4_Type,String) End If If (nctsHC_TransportDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(116).Value = CType(nctsHC_TransportDocument_4_ReferenceNumber,String) End If If (nctsHC_TransportDocument_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(117).Value = CType(nctsHC_TransportDocument_5_Type,String) End If If (nctsHC_TransportDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(118).Value = CType(nctsHC_TransportDocument_5_ReferenceNumber,String) End If If (nctsHC_TransportDocument_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(119).Value = CType(nctsHC_TransportDocument_6_Type,String) End If If (nctsHC_TransportDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(120).Value = CType(nctsHC_TransportDocument_6_ReferenceNumber,String) End If If (nctsHC_TransportDocument_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(121).Value = CType(nctsHC_TransportDocument_7_Type,String) End If If (nctsHC_TransportDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(122).Value = CType(nctsHC_TransportDocument_7_ReferenceNumber,String) End If If (nctsHC_TransportDocument_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(123).Value = CType(nctsHC_TransportDocument_8_Type,String) End If If (nctsHC_TransportDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(124).Value = CType(nctsHC_TransportDocument_8_ReferenceNumber,String) End If If (nctsHC_TransportDocument_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(125).Value = CType(nctsHC_TransportDocument_9_Type,String) End If If (nctsHC_TransportDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(126).Value = CType(nctsHC_TransportDocument_9_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(127).Value = CType(nctsHC_AdditionalReference_1_Type,String) End If If (nctsHC_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(128).Value = CType(nctsHC_AdditionalReference_1_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(129).Value = CType(nctsHC_AdditionalReference_2_Type,String) End If If (nctsHC_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(130).Value = CType(nctsHC_AdditionalReference_2_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(131).Value = CType(nctsHC_AdditionalReference_3_Type,String) End If If (nctsHC_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(132).Value = CType(nctsHC_AdditionalReference_3_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(133).Value = CType(nctsHC_AdditionalReference_4_Type,String) End If If (nctsHC_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(134).Value = CType(nctsHC_AdditionalReference_4_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(135).Value = CType(nctsHC_AdditionalReference_5_Type,String) End If If (nctsHC_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(136).Value = CType(nctsHC_AdditionalReference_5_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(137).Value = CType(nctsHC_AdditionalReference_6_Type,String) End If If (nctsHC_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(138).Value = CType(nctsHC_AdditionalReference_6_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(139).Value = CType(nctsHC_AdditionalReference_7_Type,String) End If If (nctsHC_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(140).Value = CType(nctsHC_AdditionalReference_7_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(141).Value = CType(nctsHC_AdditionalReference_8_Type,String) End If If (nctsHC_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(142).Value = CType(nctsHC_AdditionalReference_8_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(143).Value = CType(nctsHC_AdditionalReference_9_Type,String) End If If (nctsHC_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(144).Value = CType(nctsHC_AdditionalReference_9_ReferenceNumber,String) End If If (nctsHC_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(145).Value = CType(nctsHC_AdditionalInformation_1_Code,String) End If If (nctsHC_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(146).Value = CType(nctsHC_AdditionalInformation_1_Text,String) End If If (nctsHC_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(147).Value = CType(nctsHC_AdditionalInformation_2_Code,String) End If If (nctsHC_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(148).Value = CType(nctsHC_AdditionalInformation_2_Text,String) End If If (nctsHC_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(149).Value = CType(nctsHC_AdditionalInformation_3_Code,String) End If If (nctsHC_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(150).Value = CType(nctsHC_AdditionalInformation_3_Text,String) End If If (nctsHC_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(151).Value = CType(nctsHC_AdditionalInformation_4_Code,String) End If If (nctsHC_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(152).Value = CType(nctsHC_AdditionalInformation_4_Text,String) End If If (nctsHC_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(153).Value = CType(nctsHC_AdditionalInformation_5_Code,String) End If If (nctsHC_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(154).Value = CType(nctsHC_AdditionalInformation_5_Text,String) End If If (nctsHC_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(155).Value = CType(nctsHC_AdditionalInformation_6_Code,String) End If If (nctsHC_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(156).Value = CType(nctsHC_AdditionalInformation_6_Text,String) End If If (nctsHC_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(157).Value = CType(nctsHC_AdditionalInformation_7_Code,String) End If If (nctsHC_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(158).Value = CType(nctsHC_AdditionalInformation_7_Text,String) End If If (nctsHC_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(159).Value = CType(nctsHC_AdditionalInformation_8_Code,String) End If If (nctsHC_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(160).Value = CType(nctsHC_AdditionalInformation_8_Text,String) End If If (nctsHC_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(161).Value = CType(nctsHC_AdditionalInformation_9_Code,String) End If If (nctsHC_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(162).Value = CType(nctsHC_AdditionalInformation_9_Text,String) End If If (nctsHC_TransportCharges Is Nothing) Then Me.Adapter.InsertCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(163).Value = CType(nctsHC_TransportCharges,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 nctsHC_NctsId As Integer, _ ByVal nctsHC_HouseConsignMentReference As String, _ ByVal nctsHC_CountryOfDispatch As String, _ ByVal nctsHC_CountryOfDestination As String, _ ByVal nctsHC_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal nctsHC_ReferenceNumberUCR As String, _ ByVal nctsHC_Consignor_AdressCode As String, _ ByVal nctsHC_Consignor_IdentificationNumber As String, _ ByVal nctsHC_Consignor_SubsidiaryNumber As String, _ ByVal nctsHC_Consignor_Name As String, _ ByVal nctsHC_Consignor_StreetNumber As String, _ ByVal nctsHC_Consignor_City As String, _ ByVal nctsHC_Consignor_Postcode As String, _ ByVal nctsHC_Consignor_Country As String, _ ByVal nctsHC_Consignor_ContactPerson_Name As String, _ ByVal nctsHC_Consignor_ContactPerson_PhoneNumber As String, _ ByVal nctsHC_Consignor_ContactPerson_EMailAddress As String, _ ByVal nctsHC_Consignee_AdressCode As String, _ ByVal nctsHC_Consignee_IdentificationNumber As String, _ ByVal nctsHC_Consignee_SubsidiaryNumber As String, _ ByVal nctsHC_Consignee_Name As String, _ ByVal nctsHC_Consignee_StreetNumber As String, _ ByVal nctsHC_Consignee_City As String, _ ByVal nctsHC_Consignee_Postcode As String, _ ByVal nctsHC_Consignee_Country As String, _ ByVal nctsHC_Consignee_ContactPerson_Name As String, _ ByVal nctsHC_Consignee_ContactPerson_PhoneNumber As String, _ ByVal nctsHC_Consignee_ContactPerson_EMailAddress As String, _ ByVal nctsHC_AdditionalSupplyChainActor_1_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_2_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_3_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_4_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_5_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_6_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_7_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_8_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_9_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal nctsHC_SupportingDocument_1_Type As String, _ ByVal nctsHC_SupportingDocument_1_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_1_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_2_Type As String, _ ByVal nctsHC_SupportingDocument_2_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_2_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_3_Type As String, _ ByVal nctsHC_SupportingDocument_3_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_3_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_4_Type As String, _ ByVal nctsHC_SupportingDocument_4_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_4_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_5_Type As String, _ ByVal nctsHC_SupportingDocument_5_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_5_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_6_Type As String, _ ByVal nctsHC_SupportingDocument_6_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_6_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_7_Type As String, _ ByVal nctsHC_SupportingDocument_7_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_7_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_8_Type As String, _ ByVal nctsHC_SupportingDocument_8_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_8_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_9_Type As String, _ ByVal nctsHC_SupportingDocument_9_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_9_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_1_Type As String, _ ByVal nctsHC_PreviousDocument_1_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_1_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_2_Type As String, _ ByVal nctsHC_PreviousDocument_2_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_2_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_3_Type As String, _ ByVal nctsHC_PreviousDocument_3_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_3_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_4_Type As String, _ ByVal nctsHC_PreviousDocument_4_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_4_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_5_Type As String, _ ByVal nctsHC_PreviousDocument_5_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_5_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_6_Type As String, _ ByVal nctsHC_PreviousDocument_6_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_6_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_7_Type As String, _ ByVal nctsHC_PreviousDocument_7_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_7_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_8_Type As String, _ ByVal nctsHC_PreviousDocument_8_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_8_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_9_Type As String, _ ByVal nctsHC_PreviousDocument_9_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_9_ComplementOfInformation As String, _ ByVal nctsHC_TransportDocument_1_Type As String, _ ByVal nctsHC_TransportDocument_1_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_2_Type As String, _ ByVal nctsHC_TransportDocument_2_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_3_Type As String, _ ByVal nctsHC_TransportDocument_3_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_4_Type As String, _ ByVal nctsHC_TransportDocument_4_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_5_Type As String, _ ByVal nctsHC_TransportDocument_5_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_6_Type As String, _ ByVal nctsHC_TransportDocument_6_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_7_Type As String, _ ByVal nctsHC_TransportDocument_7_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_8_Type As String, _ ByVal nctsHC_TransportDocument_8_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_9_Type As String, _ ByVal nctsHC_TransportDocument_9_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_1_Type As String, _ ByVal nctsHC_AdditionalReference_1_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_2_Type As String, _ ByVal nctsHC_AdditionalReference_2_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_3_Type As String, _ ByVal nctsHC_AdditionalReference_3_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_4_Type As String, _ ByVal nctsHC_AdditionalReference_4_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_5_Type As String, _ ByVal nctsHC_AdditionalReference_5_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_6_Type As String, _ ByVal nctsHC_AdditionalReference_6_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_7_Type As String, _ ByVal nctsHC_AdditionalReference_7_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_8_Type As String, _ ByVal nctsHC_AdditionalReference_8_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_9_Type As String, _ ByVal nctsHC_AdditionalReference_9_ReferenceNumber As String, _ ByVal nctsHC_AdditionalInformation_1_Code As String, _ ByVal nctsHC_AdditionalInformation_1_Text As String, _ ByVal nctsHC_AdditionalInformation_2_Code As String, _ ByVal nctsHC_AdditionalInformation_2_Text As String, _ ByVal nctsHC_AdditionalInformation_3_Code As String, _ ByVal nctsHC_AdditionalInformation_3_Text As String, _ ByVal nctsHC_AdditionalInformation_4_Code As String, _ ByVal nctsHC_AdditionalInformation_4_Text As String, _ ByVal nctsHC_AdditionalInformation_5_Code As String, _ ByVal nctsHC_AdditionalInformation_5_Text As String, _ ByVal nctsHC_AdditionalInformation_6_Code As String, _ ByVal nctsHC_AdditionalInformation_6_Text As String, _ ByVal nctsHC_AdditionalInformation_7_Code As String, _ ByVal nctsHC_AdditionalInformation_7_Text As String, _ ByVal nctsHC_AdditionalInformation_8_Code As String, _ ByVal nctsHC_AdditionalInformation_8_Text As String, _ ByVal nctsHC_AdditionalInformation_9_Code As String, _ ByVal nctsHC_AdditionalInformation_9_Text As String, _ ByVal nctsHC_TransportCharges As String, _ ByVal Original_nctsHC_Id As Integer, _ ByVal Original_nctsHC_NctsId As Integer, _ ByVal Original_nctsHC_HouseConsignMentReference As String, _ ByVal Original_nctsHC_CountryOfDispatch As String, _ ByVal Original_nctsHC_CountryOfDestination As String, _ ByVal Original_nctsHC_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHC_ReferenceNumberUCR As String, _ ByVal Original_nctsHC_Consignor_AdressCode As String, _ ByVal Original_nctsHC_Consignor_IdentificationNumber As String, _ ByVal Original_nctsHC_Consignor_SubsidiaryNumber As String, _ ByVal Original_nctsHC_Consignor_Name As String, _ ByVal Original_nctsHC_Consignor_StreetNumber As String, _ ByVal Original_nctsHC_Consignor_City As String, _ ByVal Original_nctsHC_Consignor_Postcode As String, _ ByVal Original_nctsHC_Consignor_Country As String, _ ByVal Original_nctsHC_Consignor_ContactPerson_Name As String, _ ByVal Original_nctsHC_Consignor_ContactPerson_PhoneNumber As String, _ ByVal Original_nctsHC_Consignor_ContactPerson_EMailAddress As String, _ ByVal Original_nctsHC_Consignee_AdressCode As String, _ ByVal Original_nctsHC_Consignee_IdentificationNumber As String, _ ByVal Original_nctsHC_Consignee_SubsidiaryNumber As String, _ ByVal Original_nctsHC_Consignee_Name As String, _ ByVal Original_nctsHC_Consignee_StreetNumber As String, _ ByVal Original_nctsHC_Consignee_City As String, _ ByVal Original_nctsHC_Consignee_Postcode As String, _ ByVal Original_nctsHC_Consignee_Country As String, _ ByVal Original_nctsHC_Consignee_ContactPerson_Name As String, _ ByVal Original_nctsHC_Consignee_ContactPerson_PhoneNumber As String, _ ByVal Original_nctsHC_Consignee_ContactPerson_EMailAddress As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_1_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_2_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_3_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_4_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_5_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_6_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_7_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_8_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_9_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal Original_nctsHC_SupportingDocument_1_Type As String, _ ByVal Original_nctsHC_SupportingDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_2_Type As String, _ ByVal Original_nctsHC_SupportingDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_3_Type As String, _ ByVal Original_nctsHC_SupportingDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_4_Type As String, _ ByVal Original_nctsHC_SupportingDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_5_Type As String, _ ByVal Original_nctsHC_SupportingDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_6_Type As String, _ ByVal Original_nctsHC_SupportingDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_7_Type As String, _ ByVal Original_nctsHC_SupportingDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_8_Type As String, _ ByVal Original_nctsHC_SupportingDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_9_Type As String, _ ByVal Original_nctsHC_SupportingDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_1_Type As String, _ ByVal Original_nctsHC_PreviousDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_2_Type As String, _ ByVal Original_nctsHC_PreviousDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_3_Type As String, _ ByVal Original_nctsHC_PreviousDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_4_Type As String, _ ByVal Original_nctsHC_PreviousDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_5_Type As String, _ ByVal Original_nctsHC_PreviousDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_6_Type As String, _ ByVal Original_nctsHC_PreviousDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_7_Type As String, _ ByVal Original_nctsHC_PreviousDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_8_Type As String, _ ByVal Original_nctsHC_PreviousDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_9_Type As String, _ ByVal Original_nctsHC_PreviousDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHC_TransportDocument_1_Type As String, _ ByVal Original_nctsHC_TransportDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_2_Type As String, _ ByVal Original_nctsHC_TransportDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_3_Type As String, _ ByVal Original_nctsHC_TransportDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_4_Type As String, _ ByVal Original_nctsHC_TransportDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_5_Type As String, _ ByVal Original_nctsHC_TransportDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_6_Type As String, _ ByVal Original_nctsHC_TransportDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_7_Type As String, _ ByVal Original_nctsHC_TransportDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_8_Type As String, _ ByVal Original_nctsHC_TransportDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_9_Type As String, _ ByVal Original_nctsHC_TransportDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_1_Type As String, _ ByVal Original_nctsHC_AdditionalReference_1_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_2_Type As String, _ ByVal Original_nctsHC_AdditionalReference_2_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_3_Type As String, _ ByVal Original_nctsHC_AdditionalReference_3_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_4_Type As String, _ ByVal Original_nctsHC_AdditionalReference_4_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_5_Type As String, _ ByVal Original_nctsHC_AdditionalReference_5_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_6_Type As String, _ ByVal Original_nctsHC_AdditionalReference_6_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_7_Type As String, _ ByVal Original_nctsHC_AdditionalReference_7_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_8_Type As String, _ ByVal Original_nctsHC_AdditionalReference_8_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_9_Type As String, _ ByVal Original_nctsHC_AdditionalReference_9_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalInformation_1_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_1_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_2_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_2_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_3_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_3_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_4_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_4_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_5_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_5_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_6_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_6_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_7_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_7_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_8_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_8_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_9_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_9_Text As String, _ ByVal Original_nctsHC_TransportCharges As String, _ ByVal nctsHC_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsHC_NctsId,Integer) If (nctsHC_HouseConsignMentReference Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsHC_HouseConsignMentReference,String) End If If (nctsHC_CountryOfDispatch Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsHC_CountryOfDispatch,String) End If If (nctsHC_CountryOfDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsHC_CountryOfDestination,String) End If If (nctsHC_GrossMass.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsHC_GrossMass.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (nctsHC_ReferenceNumberUCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsHC_ReferenceNumberUCR,String) End If If (nctsHC_Consignor_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nctsHC_Consignor_AdressCode,String) End If If (nctsHC_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(nctsHC_Consignor_IdentificationNumber,String) End If If (nctsHC_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(nctsHC_Consignor_SubsidiaryNumber,String) End If If (nctsHC_Consignor_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(nctsHC_Consignor_Name,String) End If If (nctsHC_Consignor_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(nctsHC_Consignor_StreetNumber,String) End If If (nctsHC_Consignor_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(nctsHC_Consignor_City,String) End If If (nctsHC_Consignor_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(nctsHC_Consignor_Postcode,String) End If If (nctsHC_Consignor_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(nctsHC_Consignor_Country,String) End If If (nctsHC_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(nctsHC_Consignor_ContactPerson_Name,String) End If If (nctsHC_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(nctsHC_Consignor_ContactPerson_PhoneNumber,String) End If If (nctsHC_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(nctsHC_Consignor_ContactPerson_EMailAddress,String) End If If (nctsHC_Consignee_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(nctsHC_Consignee_AdressCode,String) End If If (nctsHC_Consignee_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(nctsHC_Consignee_IdentificationNumber,String) End If If (nctsHC_Consignee_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(nctsHC_Consignee_SubsidiaryNumber,String) End If If (nctsHC_Consignee_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(nctsHC_Consignee_Name,String) End If If (nctsHC_Consignee_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(nctsHC_Consignee_StreetNumber,String) End If If (nctsHC_Consignee_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(nctsHC_Consignee_City,String) End If If (nctsHC_Consignee_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(nctsHC_Consignee_Postcode,String) End If If (nctsHC_Consignee_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(nctsHC_Consignee_Country,String) End If If (nctsHC_Consignee_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(nctsHC_Consignee_ContactPerson_Name,String) End If If (nctsHC_Consignee_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(nctsHC_Consignee_ContactPerson_PhoneNumber,String) End If If (nctsHC_Consignee_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(nctsHC_Consignee_ContactPerson_EMailAddress,String) End If If (nctsHC_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(nctsHC_AdditionalSupplyChainActor_1_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(nctsHC_AdditionalSupplyChainActor_2_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(nctsHC_AdditionalSupplyChainActor_3_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(nctsHC_AdditionalSupplyChainActor_4_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(nctsHC_AdditionalSupplyChainActor_5_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(nctsHC_AdditionalSupplyChainActor_6_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(nctsHC_AdditionalSupplyChainActor_7_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(nctsHC_AdditionalSupplyChainActor_8_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (nctsHC_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(nctsHC_AdditionalSupplyChainActor_9_Role,String) End If If (nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (nctsHC_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(nctsHC_SupportingDocument_1_Type,String) End If If (nctsHC_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(nctsHC_SupportingDocument_1_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(nctsHC_SupportingDocument_1_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(nctsHC_SupportingDocument_1_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(nctsHC_SupportingDocument_2_Type,String) End If If (nctsHC_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(nctsHC_SupportingDocument_2_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(nctsHC_SupportingDocument_2_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(nctsHC_SupportingDocument_2_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(nctsHC_SupportingDocument_3_Type,String) End If If (nctsHC_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(nctsHC_SupportingDocument_3_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(nctsHC_SupportingDocument_3_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(nctsHC_SupportingDocument_3_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(nctsHC_SupportingDocument_4_Type,String) End If If (nctsHC_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(nctsHC_SupportingDocument_4_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(nctsHC_SupportingDocument_4_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(nctsHC_SupportingDocument_4_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(nctsHC_SupportingDocument_5_Type,String) End If If (nctsHC_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(nctsHC_SupportingDocument_5_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(nctsHC_SupportingDocument_5_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(nctsHC_SupportingDocument_5_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(nctsHC_SupportingDocument_6_Type,String) End If If (nctsHC_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(nctsHC_SupportingDocument_6_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(nctsHC_SupportingDocument_6_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(nctsHC_SupportingDocument_6_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(nctsHC_SupportingDocument_7_Type,String) End If If (nctsHC_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(nctsHC_SupportingDocument_7_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(nctsHC_SupportingDocument_7_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(nctsHC_SupportingDocument_7_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(nctsHC_SupportingDocument_8_Type,String) End If If (nctsHC_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(nctsHC_SupportingDocument_8_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(nctsHC_SupportingDocument_8_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(nctsHC_SupportingDocument_8_ComplementOfInformation,String) End If If (nctsHC_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(nctsHC_SupportingDocument_9_Type,String) End If If (nctsHC_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(nctsHC_SupportingDocument_9_ReferenceNumber,String) End If If (nctsHC_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(nctsHC_SupportingDocument_9_DocumentLineItemNumber,String) End If If (nctsHC_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(nctsHC_SupportingDocument_9_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(nctsHC_PreviousDocument_1_Type,String) End If If (nctsHC_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(nctsHC_PreviousDocument_1_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(nctsHC_PreviousDocument_1_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(nctsHC_PreviousDocument_2_Type,String) End If If (nctsHC_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(nctsHC_PreviousDocument_2_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(nctsHC_PreviousDocument_2_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(nctsHC_PreviousDocument_3_Type,String) End If If (nctsHC_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(nctsHC_PreviousDocument_3_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(nctsHC_PreviousDocument_3_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(nctsHC_PreviousDocument_4_Type,String) End If If (nctsHC_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(nctsHC_PreviousDocument_4_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(nctsHC_PreviousDocument_4_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(nctsHC_PreviousDocument_5_Type,String) End If If (nctsHC_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(nctsHC_PreviousDocument_5_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(nctsHC_PreviousDocument_5_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(nctsHC_PreviousDocument_6_Type,String) End If If (nctsHC_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(nctsHC_PreviousDocument_6_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(nctsHC_PreviousDocument_6_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(nctsHC_PreviousDocument_7_Type,String) End If If (nctsHC_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(nctsHC_PreviousDocument_7_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(nctsHC_PreviousDocument_7_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(nctsHC_PreviousDocument_8_Type,String) End If If (nctsHC_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(nctsHC_PreviousDocument_8_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(nctsHC_PreviousDocument_8_ComplementOfInformation,String) End If If (nctsHC_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(nctsHC_PreviousDocument_9_Type,String) End If If (nctsHC_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(nctsHC_PreviousDocument_9_ReferenceNumber,String) End If If (nctsHC_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(nctsHC_PreviousDocument_9_ComplementOfInformation,String) End If If (nctsHC_TransportDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(nctsHC_TransportDocument_1_Type,String) End If If (nctsHC_TransportDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(nctsHC_TransportDocument_1_ReferenceNumber,String) End If If (nctsHC_TransportDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(nctsHC_TransportDocument_2_Type,String) End If If (nctsHC_TransportDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(nctsHC_TransportDocument_2_ReferenceNumber,String) End If If (nctsHC_TransportDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(nctsHC_TransportDocument_3_Type,String) End If If (nctsHC_TransportDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(nctsHC_TransportDocument_3_ReferenceNumber,String) End If If (nctsHC_TransportDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(nctsHC_TransportDocument_4_Type,String) End If If (nctsHC_TransportDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(nctsHC_TransportDocument_4_ReferenceNumber,String) End If If (nctsHC_TransportDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(nctsHC_TransportDocument_5_Type,String) End If If (nctsHC_TransportDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(nctsHC_TransportDocument_5_ReferenceNumber,String) End If If (nctsHC_TransportDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(nctsHC_TransportDocument_6_Type,String) End If If (nctsHC_TransportDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(nctsHC_TransportDocument_6_ReferenceNumber,String) End If If (nctsHC_TransportDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(nctsHC_TransportDocument_7_Type,String) End If If (nctsHC_TransportDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(nctsHC_TransportDocument_7_ReferenceNumber,String) End If If (nctsHC_TransportDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(nctsHC_TransportDocument_8_Type,String) End If If (nctsHC_TransportDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(nctsHC_TransportDocument_8_ReferenceNumber,String) End If If (nctsHC_TransportDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(nctsHC_TransportDocument_9_Type,String) End If If (nctsHC_TransportDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(nctsHC_TransportDocument_9_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(nctsHC_AdditionalReference_1_Type,String) End If If (nctsHC_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(128).Value = CType(nctsHC_AdditionalReference_1_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(nctsHC_AdditionalReference_2_Type,String) End If If (nctsHC_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(nctsHC_AdditionalReference_2_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(nctsHC_AdditionalReference_3_Type,String) End If If (nctsHC_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(nctsHC_AdditionalReference_3_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(nctsHC_AdditionalReference_4_Type,String) End If If (nctsHC_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(nctsHC_AdditionalReference_4_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(nctsHC_AdditionalReference_5_Type,String) End If If (nctsHC_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(nctsHC_AdditionalReference_5_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(nctsHC_AdditionalReference_6_Type,String) End If If (nctsHC_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(138).Value = CType(nctsHC_AdditionalReference_6_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(nctsHC_AdditionalReference_7_Type,String) End If If (nctsHC_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(140).Value = CType(nctsHC_AdditionalReference_7_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(nctsHC_AdditionalReference_8_Type,String) End If If (nctsHC_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(142).Value = CType(nctsHC_AdditionalReference_8_ReferenceNumber,String) End If If (nctsHC_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(nctsHC_AdditionalReference_9_Type,String) End If If (nctsHC_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(144).Value = CType(nctsHC_AdditionalReference_9_ReferenceNumber,String) End If If (nctsHC_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(nctsHC_AdditionalInformation_1_Code,String) End If If (nctsHC_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(146).Value = CType(nctsHC_AdditionalInformation_1_Text,String) End If If (nctsHC_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(nctsHC_AdditionalInformation_2_Code,String) End If If (nctsHC_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(148).Value = CType(nctsHC_AdditionalInformation_2_Text,String) End If If (nctsHC_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(nctsHC_AdditionalInformation_3_Code,String) End If If (nctsHC_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(150).Value = CType(nctsHC_AdditionalInformation_3_Text,String) End If If (nctsHC_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(nctsHC_AdditionalInformation_4_Code,String) End If If (nctsHC_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(152).Value = CType(nctsHC_AdditionalInformation_4_Text,String) End If If (nctsHC_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(nctsHC_AdditionalInformation_5_Code,String) End If If (nctsHC_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(154).Value = CType(nctsHC_AdditionalInformation_5_Text,String) End If If (nctsHC_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(155).Value = CType(nctsHC_AdditionalInformation_6_Code,String) End If If (nctsHC_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(156).Value = CType(nctsHC_AdditionalInformation_6_Text,String) End If If (nctsHC_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(nctsHC_AdditionalInformation_7_Code,String) End If If (nctsHC_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(158).Value = CType(nctsHC_AdditionalInformation_7_Text,String) End If If (nctsHC_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(159).Value = CType(nctsHC_AdditionalInformation_8_Code,String) End If If (nctsHC_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(160).Value = CType(nctsHC_AdditionalInformation_8_Text,String) End If If (nctsHC_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(161).Value = CType(nctsHC_AdditionalInformation_9_Code,String) End If If (nctsHC_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(162).Value = CType(nctsHC_AdditionalInformation_9_Text,String) End If If (nctsHC_TransportCharges Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(nctsHC_TransportCharges,String) End If Me.Adapter.UpdateCommand.Parameters(164).Value = CType(Original_nctsHC_Id,Integer) Me.Adapter.UpdateCommand.Parameters(165).Value = CType(Original_nctsHC_NctsId,Integer) If (Original_nctsHC_HouseConsignMentReference Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(166).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(166).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(167).Value = CType(Original_nctsHC_HouseConsignMentReference,String) End If If (Original_nctsHC_CountryOfDispatch Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(168).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(168).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(169).Value = CType(Original_nctsHC_CountryOfDispatch,String) End If If (Original_nctsHC_CountryOfDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(170).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(171).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(170).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(171).Value = CType(Original_nctsHC_CountryOfDestination,String) End If If (Original_nctsHC_GrossMass.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(172).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(173).Value = CType(Original_nctsHC_GrossMass.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(172).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(173).Value = Global.System.DBNull.Value End If If (Original_nctsHC_ReferenceNumberUCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(174).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(175).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(174).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(175).Value = CType(Original_nctsHC_ReferenceNumberUCR,String) End If If (Original_nctsHC_Consignor_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(176).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(177).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(176).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(177).Value = CType(Original_nctsHC_Consignor_AdressCode,String) End If If (Original_nctsHC_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(178).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(179).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(178).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(179).Value = CType(Original_nctsHC_Consignor_IdentificationNumber,String) End If If (Original_nctsHC_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(180).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(181).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(180).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(181).Value = CType(Original_nctsHC_Consignor_SubsidiaryNumber,String) End If If (Original_nctsHC_Consignor_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(182).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(183).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(182).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(183).Value = CType(Original_nctsHC_Consignor_Name,String) End If If (Original_nctsHC_Consignor_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(184).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(185).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(184).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(185).Value = CType(Original_nctsHC_Consignor_StreetNumber,String) End If If (Original_nctsHC_Consignor_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(186).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(187).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(186).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(187).Value = CType(Original_nctsHC_Consignor_City,String) End If If (Original_nctsHC_Consignor_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(188).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(189).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(188).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(189).Value = CType(Original_nctsHC_Consignor_Postcode,String) End If If (Original_nctsHC_Consignor_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(190).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(191).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(190).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(191).Value = CType(Original_nctsHC_Consignor_Country,String) End If If (Original_nctsHC_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(192).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(193).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(192).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(193).Value = CType(Original_nctsHC_Consignor_ContactPerson_Name,String) End If If (Original_nctsHC_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(194).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(195).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(194).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(195).Value = CType(Original_nctsHC_Consignor_ContactPerson_PhoneNumber,String) End If If (Original_nctsHC_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(196).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(197).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(196).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(197).Value = CType(Original_nctsHC_Consignor_ContactPerson_EMailAddress,String) End If If (Original_nctsHC_Consignee_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(198).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(199).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(198).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(199).Value = CType(Original_nctsHC_Consignee_AdressCode,String) End If If (Original_nctsHC_Consignee_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(200).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(201).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(200).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(201).Value = CType(Original_nctsHC_Consignee_IdentificationNumber,String) End If If (Original_nctsHC_Consignee_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(202).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(203).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(202).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(203).Value = CType(Original_nctsHC_Consignee_SubsidiaryNumber,String) End If If (Original_nctsHC_Consignee_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(204).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(205).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(204).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(205).Value = CType(Original_nctsHC_Consignee_Name,String) End If If (Original_nctsHC_Consignee_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(206).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(207).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(206).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(207).Value = CType(Original_nctsHC_Consignee_StreetNumber,String) End If If (Original_nctsHC_Consignee_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(208).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(209).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(208).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(209).Value = CType(Original_nctsHC_Consignee_City,String) End If If (Original_nctsHC_Consignee_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(210).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(211).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(210).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(211).Value = CType(Original_nctsHC_Consignee_Postcode,String) End If If (Original_nctsHC_Consignee_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(212).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(213).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(212).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(213).Value = CType(Original_nctsHC_Consignee_Country,String) End If If (Original_nctsHC_Consignee_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(214).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(215).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(214).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(215).Value = CType(Original_nctsHC_Consignee_ContactPerson_Name,String) End If If (Original_nctsHC_Consignee_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(216).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(217).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(216).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(217).Value = CType(Original_nctsHC_Consignee_ContactPerson_PhoneNumber,String) End If If (Original_nctsHC_Consignee_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(218).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(219).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(218).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(219).Value = CType(Original_nctsHC_Consignee_ContactPerson_EMailAddress,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(220).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(221).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(220).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(221).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_1_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(222).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(223).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(222).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(223).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(224).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(225).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(224).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(225).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_2_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(226).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(227).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(226).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(227).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(228).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(229).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(228).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(229).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_3_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(230).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(231).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(230).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(231).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(232).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(233).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(232).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(233).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_4_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(234).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(235).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(234).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(235).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(236).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(237).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(236).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(237).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_5_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(238).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(239).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(238).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(239).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(240).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(241).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(240).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(241).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_6_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(242).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(243).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(242).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(243).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(244).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(245).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(244).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(245).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_7_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(246).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(247).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(246).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(247).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(248).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(249).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(248).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(249).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_8_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(250).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(251).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(250).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(251).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(252).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(253).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(252).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(253).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_9_Role,String) End If If (Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(254).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(255).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(254).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(255).Value = CType(Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (Original_nctsHC_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(256).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(257).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(256).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(257).Value = CType(Original_nctsHC_SupportingDocument_1_Type,String) End If If (Original_nctsHC_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(258).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(259).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(258).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(259).Value = CType(Original_nctsHC_SupportingDocument_1_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(260).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(261).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(260).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(261).Value = CType(Original_nctsHC_SupportingDocument_1_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(262).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(263).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(262).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(263).Value = CType(Original_nctsHC_SupportingDocument_1_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(264).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(265).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(264).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(265).Value = CType(Original_nctsHC_SupportingDocument_2_Type,String) End If If (Original_nctsHC_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(266).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(267).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(266).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(267).Value = CType(Original_nctsHC_SupportingDocument_2_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(268).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(269).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(268).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(269).Value = CType(Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(270).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(271).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(270).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(271).Value = CType(Original_nctsHC_SupportingDocument_2_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(272).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(273).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(272).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(273).Value = CType(Original_nctsHC_SupportingDocument_3_Type,String) End If If (Original_nctsHC_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(274).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(275).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(274).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(275).Value = CType(Original_nctsHC_SupportingDocument_3_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(276).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(277).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(276).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(277).Value = CType(Original_nctsHC_SupportingDocument_3_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(278).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(279).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(278).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(279).Value = CType(Original_nctsHC_SupportingDocument_3_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(280).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(281).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(280).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(281).Value = CType(Original_nctsHC_SupportingDocument_4_Type,String) End If If (Original_nctsHC_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(282).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(283).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(282).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(283).Value = CType(Original_nctsHC_SupportingDocument_4_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(284).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(285).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(284).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(285).Value = CType(Original_nctsHC_SupportingDocument_4_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(286).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(287).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(286).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(287).Value = CType(Original_nctsHC_SupportingDocument_4_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(288).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(289).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(288).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(289).Value = CType(Original_nctsHC_SupportingDocument_5_Type,String) End If If (Original_nctsHC_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(290).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(291).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(290).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(291).Value = CType(Original_nctsHC_SupportingDocument_5_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(292).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(293).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(292).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(293).Value = CType(Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(294).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(295).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(294).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(295).Value = CType(Original_nctsHC_SupportingDocument_5_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(296).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(297).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(296).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(297).Value = CType(Original_nctsHC_SupportingDocument_6_Type,String) End If If (Original_nctsHC_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(298).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(299).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(298).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(299).Value = CType(Original_nctsHC_SupportingDocument_6_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(300).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(301).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(300).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(301).Value = CType(Original_nctsHC_SupportingDocument_6_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(302).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(303).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(302).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(303).Value = CType(Original_nctsHC_SupportingDocument_6_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(304).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(305).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(304).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(305).Value = CType(Original_nctsHC_SupportingDocument_7_Type,String) End If If (Original_nctsHC_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(306).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(307).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(306).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(307).Value = CType(Original_nctsHC_SupportingDocument_7_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(308).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(309).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(308).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(309).Value = CType(Original_nctsHC_SupportingDocument_7_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(310).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(311).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(310).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(311).Value = CType(Original_nctsHC_SupportingDocument_7_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(312).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(313).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(312).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(313).Value = CType(Original_nctsHC_SupportingDocument_8_Type,String) End If If (Original_nctsHC_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(314).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(315).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(314).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(315).Value = CType(Original_nctsHC_SupportingDocument_8_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(316).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(317).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(316).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(317).Value = CType(Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(318).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(319).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(318).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(319).Value = CType(Original_nctsHC_SupportingDocument_8_ComplementOfInformation,String) End If If (Original_nctsHC_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(320).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(321).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(320).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(321).Value = CType(Original_nctsHC_SupportingDocument_9_Type,String) End If If (Original_nctsHC_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(322).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(323).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(322).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(323).Value = CType(Original_nctsHC_SupportingDocument_9_ReferenceNumber,String) End If If (Original_nctsHC_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(324).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(325).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(324).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(325).Value = CType(Original_nctsHC_SupportingDocument_9_DocumentLineItemNumber,String) End If If (Original_nctsHC_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(326).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(327).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(326).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(327).Value = CType(Original_nctsHC_SupportingDocument_9_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(328).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(329).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(328).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(329).Value = CType(Original_nctsHC_PreviousDocument_1_Type,String) End If If (Original_nctsHC_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(330).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(331).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(330).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(331).Value = CType(Original_nctsHC_PreviousDocument_1_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(332).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(333).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(332).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(333).Value = CType(Original_nctsHC_PreviousDocument_1_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(334).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(335).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(334).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(335).Value = CType(Original_nctsHC_PreviousDocument_2_Type,String) End If If (Original_nctsHC_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(336).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(337).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(336).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(337).Value = CType(Original_nctsHC_PreviousDocument_2_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(338).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(339).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(338).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(339).Value = CType(Original_nctsHC_PreviousDocument_2_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(340).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(341).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(340).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(341).Value = CType(Original_nctsHC_PreviousDocument_3_Type,String) End If If (Original_nctsHC_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(342).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(343).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(342).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(343).Value = CType(Original_nctsHC_PreviousDocument_3_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(344).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(345).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(344).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(345).Value = CType(Original_nctsHC_PreviousDocument_3_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(346).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(347).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(346).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(347).Value = CType(Original_nctsHC_PreviousDocument_4_Type,String) End If If (Original_nctsHC_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(348).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(349).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(348).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(349).Value = CType(Original_nctsHC_PreviousDocument_4_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(350).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(351).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(350).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(351).Value = CType(Original_nctsHC_PreviousDocument_4_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(352).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(353).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(352).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(353).Value = CType(Original_nctsHC_PreviousDocument_5_Type,String) End If If (Original_nctsHC_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(354).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(355).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(354).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(355).Value = CType(Original_nctsHC_PreviousDocument_5_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(356).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(357).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(356).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(357).Value = CType(Original_nctsHC_PreviousDocument_5_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(358).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(359).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(358).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(359).Value = CType(Original_nctsHC_PreviousDocument_6_Type,String) End If If (Original_nctsHC_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(360).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(361).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(360).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(361).Value = CType(Original_nctsHC_PreviousDocument_6_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(362).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(363).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(362).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(363).Value = CType(Original_nctsHC_PreviousDocument_6_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(364).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(365).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(364).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(365).Value = CType(Original_nctsHC_PreviousDocument_7_Type,String) End If If (Original_nctsHC_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(366).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(367).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(366).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(367).Value = CType(Original_nctsHC_PreviousDocument_7_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(368).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(369).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(368).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(369).Value = CType(Original_nctsHC_PreviousDocument_7_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(370).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(371).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(370).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(371).Value = CType(Original_nctsHC_PreviousDocument_8_Type,String) End If If (Original_nctsHC_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(372).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(373).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(372).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(373).Value = CType(Original_nctsHC_PreviousDocument_8_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(374).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(375).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(374).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(375).Value = CType(Original_nctsHC_PreviousDocument_8_ComplementOfInformation,String) End If If (Original_nctsHC_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(376).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(377).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(376).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(377).Value = CType(Original_nctsHC_PreviousDocument_9_Type,String) End If If (Original_nctsHC_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(378).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(379).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(378).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(379).Value = CType(Original_nctsHC_PreviousDocument_9_ReferenceNumber,String) End If If (Original_nctsHC_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(380).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(381).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(380).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(381).Value = CType(Original_nctsHC_PreviousDocument_9_ComplementOfInformation,String) End If If (Original_nctsHC_TransportDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(382).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(383).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(382).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(383).Value = CType(Original_nctsHC_TransportDocument_1_Type,String) End If If (Original_nctsHC_TransportDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(384).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(385).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(384).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(385).Value = CType(Original_nctsHC_TransportDocument_1_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(386).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(387).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(386).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(387).Value = CType(Original_nctsHC_TransportDocument_2_Type,String) End If If (Original_nctsHC_TransportDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(388).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(389).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(388).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(389).Value = CType(Original_nctsHC_TransportDocument_2_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(390).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(391).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(390).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(391).Value = CType(Original_nctsHC_TransportDocument_3_Type,String) End If If (Original_nctsHC_TransportDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(392).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(393).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(392).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(393).Value = CType(Original_nctsHC_TransportDocument_3_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(394).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(395).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(394).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(395).Value = CType(Original_nctsHC_TransportDocument_4_Type,String) End If If (Original_nctsHC_TransportDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(396).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(397).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(396).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(397).Value = CType(Original_nctsHC_TransportDocument_4_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(398).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(399).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(398).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(399).Value = CType(Original_nctsHC_TransportDocument_5_Type,String) End If If (Original_nctsHC_TransportDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(400).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(401).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(400).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(401).Value = CType(Original_nctsHC_TransportDocument_5_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(402).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(403).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(402).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(403).Value = CType(Original_nctsHC_TransportDocument_6_Type,String) End If If (Original_nctsHC_TransportDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(404).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(405).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(404).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(405).Value = CType(Original_nctsHC_TransportDocument_6_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(406).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(407).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(406).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(407).Value = CType(Original_nctsHC_TransportDocument_7_Type,String) End If If (Original_nctsHC_TransportDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(408).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(409).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(408).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(409).Value = CType(Original_nctsHC_TransportDocument_7_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(410).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(411).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(410).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(411).Value = CType(Original_nctsHC_TransportDocument_8_Type,String) End If If (Original_nctsHC_TransportDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(412).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(413).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(412).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(413).Value = CType(Original_nctsHC_TransportDocument_8_ReferenceNumber,String) End If If (Original_nctsHC_TransportDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(414).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(415).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(414).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(415).Value = CType(Original_nctsHC_TransportDocument_9_Type,String) End If If (Original_nctsHC_TransportDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(416).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(417).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(416).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(417).Value = CType(Original_nctsHC_TransportDocument_9_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(418).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(419).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(418).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(419).Value = CType(Original_nctsHC_AdditionalReference_1_Type,String) End If If (Original_nctsHC_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(420).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(421).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(420).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(421).Value = CType(Original_nctsHC_AdditionalReference_1_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(422).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(423).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(422).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(423).Value = CType(Original_nctsHC_AdditionalReference_2_Type,String) End If If (Original_nctsHC_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(424).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(425).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(424).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(425).Value = CType(Original_nctsHC_AdditionalReference_2_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(426).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(427).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(426).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(427).Value = CType(Original_nctsHC_AdditionalReference_3_Type,String) End If If (Original_nctsHC_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(428).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(429).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(428).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(429).Value = CType(Original_nctsHC_AdditionalReference_3_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(430).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(431).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(430).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(431).Value = CType(Original_nctsHC_AdditionalReference_4_Type,String) End If If (Original_nctsHC_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(432).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(433).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(432).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(433).Value = CType(Original_nctsHC_AdditionalReference_4_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(434).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(435).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(434).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(435).Value = CType(Original_nctsHC_AdditionalReference_5_Type,String) End If If (Original_nctsHC_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(436).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(437).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(436).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(437).Value = CType(Original_nctsHC_AdditionalReference_5_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(438).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(439).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(438).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(439).Value = CType(Original_nctsHC_AdditionalReference_6_Type,String) End If If (Original_nctsHC_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(440).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(441).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(440).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(441).Value = CType(Original_nctsHC_AdditionalReference_6_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(442).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(443).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(442).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(443).Value = CType(Original_nctsHC_AdditionalReference_7_Type,String) End If If (Original_nctsHC_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(444).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(445).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(444).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(445).Value = CType(Original_nctsHC_AdditionalReference_7_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(446).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(447).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(446).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(447).Value = CType(Original_nctsHC_AdditionalReference_8_Type,String) End If If (Original_nctsHC_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(448).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(449).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(448).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(449).Value = CType(Original_nctsHC_AdditionalReference_8_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(450).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(451).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(450).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(451).Value = CType(Original_nctsHC_AdditionalReference_9_Type,String) End If If (Original_nctsHC_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(452).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(453).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(452).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(453).Value = CType(Original_nctsHC_AdditionalReference_9_ReferenceNumber,String) End If If (Original_nctsHC_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(454).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(455).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(454).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(455).Value = CType(Original_nctsHC_AdditionalInformation_1_Code,String) End If If (Original_nctsHC_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(456).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(457).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(456).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(457).Value = CType(Original_nctsHC_AdditionalInformation_1_Text,String) End If If (Original_nctsHC_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(458).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(459).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(458).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(459).Value = CType(Original_nctsHC_AdditionalInformation_2_Code,String) End If If (Original_nctsHC_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(460).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(461).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(460).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(461).Value = CType(Original_nctsHC_AdditionalInformation_2_Text,String) End If If (Original_nctsHC_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(462).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(463).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(462).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(463).Value = CType(Original_nctsHC_AdditionalInformation_3_Code,String) End If If (Original_nctsHC_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(464).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(465).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(464).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(465).Value = CType(Original_nctsHC_AdditionalInformation_3_Text,String) End If If (Original_nctsHC_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(466).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(467).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(466).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(467).Value = CType(Original_nctsHC_AdditionalInformation_4_Code,String) End If If (Original_nctsHC_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(468).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(469).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(468).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(469).Value = CType(Original_nctsHC_AdditionalInformation_4_Text,String) End If If (Original_nctsHC_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(470).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(471).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(470).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(471).Value = CType(Original_nctsHC_AdditionalInformation_5_Code,String) End If If (Original_nctsHC_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(472).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(473).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(472).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(473).Value = CType(Original_nctsHC_AdditionalInformation_5_Text,String) End If If (Original_nctsHC_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(474).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(475).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(474).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(475).Value = CType(Original_nctsHC_AdditionalInformation_6_Code,String) End If If (Original_nctsHC_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(476).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(477).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(476).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(477).Value = CType(Original_nctsHC_AdditionalInformation_6_Text,String) End If If (Original_nctsHC_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(478).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(479).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(478).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(479).Value = CType(Original_nctsHC_AdditionalInformation_7_Code,String) End If If (Original_nctsHC_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(480).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(481).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(480).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(481).Value = CType(Original_nctsHC_AdditionalInformation_7_Text,String) End If If (Original_nctsHC_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(482).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(483).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(482).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(483).Value = CType(Original_nctsHC_AdditionalInformation_8_Code,String) End If If (Original_nctsHC_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(484).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(485).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(484).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(485).Value = CType(Original_nctsHC_AdditionalInformation_8_Text,String) End If If (Original_nctsHC_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(486).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(487).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(486).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(487).Value = CType(Original_nctsHC_AdditionalInformation_9_Code,String) End If If (Original_nctsHC_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(488).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(489).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(488).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(489).Value = CType(Original_nctsHC_AdditionalInformation_9_Text,String) End If If (Original_nctsHC_TransportCharges Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(490).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(491).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(490).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(491).Value = CType(Original_nctsHC_TransportCharges,String) End If Me.Adapter.UpdateCommand.Parameters(492).Value = CType(nctsHC_Id,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 nctsHC_NctsId As Integer, _ ByVal nctsHC_HouseConsignMentReference As String, _ ByVal nctsHC_CountryOfDispatch As String, _ ByVal nctsHC_CountryOfDestination As String, _ ByVal nctsHC_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal nctsHC_ReferenceNumberUCR As String, _ ByVal nctsHC_Consignor_AdressCode As String, _ ByVal nctsHC_Consignor_IdentificationNumber As String, _ ByVal nctsHC_Consignor_SubsidiaryNumber As String, _ ByVal nctsHC_Consignor_Name As String, _ ByVal nctsHC_Consignor_StreetNumber As String, _ ByVal nctsHC_Consignor_City As String, _ ByVal nctsHC_Consignor_Postcode As String, _ ByVal nctsHC_Consignor_Country As String, _ ByVal nctsHC_Consignor_ContactPerson_Name As String, _ ByVal nctsHC_Consignor_ContactPerson_PhoneNumber As String, _ ByVal nctsHC_Consignor_ContactPerson_EMailAddress As String, _ ByVal nctsHC_Consignee_AdressCode As String, _ ByVal nctsHC_Consignee_IdentificationNumber As String, _ ByVal nctsHC_Consignee_SubsidiaryNumber As String, _ ByVal nctsHC_Consignee_Name As String, _ ByVal nctsHC_Consignee_StreetNumber As String, _ ByVal nctsHC_Consignee_City As String, _ ByVal nctsHC_Consignee_Postcode As String, _ ByVal nctsHC_Consignee_Country As String, _ ByVal nctsHC_Consignee_ContactPerson_Name As String, _ ByVal nctsHC_Consignee_ContactPerson_PhoneNumber As String, _ ByVal nctsHC_Consignee_ContactPerson_EMailAddress As String, _ ByVal nctsHC_AdditionalSupplyChainActor_1_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_2_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_3_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_4_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_5_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_6_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_7_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_8_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal nctsHC_AdditionalSupplyChainActor_9_Role As String, _ ByVal nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal nctsHC_SupportingDocument_1_Type As String, _ ByVal nctsHC_SupportingDocument_1_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_1_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_2_Type As String, _ ByVal nctsHC_SupportingDocument_2_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_2_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_3_Type As String, _ ByVal nctsHC_SupportingDocument_3_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_3_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_4_Type As String, _ ByVal nctsHC_SupportingDocument_4_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_4_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_5_Type As String, _ ByVal nctsHC_SupportingDocument_5_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_5_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_6_Type As String, _ ByVal nctsHC_SupportingDocument_6_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_6_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_7_Type As String, _ ByVal nctsHC_SupportingDocument_7_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_7_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_8_Type As String, _ ByVal nctsHC_SupportingDocument_8_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_8_ComplementOfInformation As String, _ ByVal nctsHC_SupportingDocument_9_Type As String, _ ByVal nctsHC_SupportingDocument_9_ReferenceNumber As String, _ ByVal nctsHC_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHC_SupportingDocument_9_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_1_Type As String, _ ByVal nctsHC_PreviousDocument_1_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_1_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_2_Type As String, _ ByVal nctsHC_PreviousDocument_2_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_2_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_3_Type As String, _ ByVal nctsHC_PreviousDocument_3_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_3_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_4_Type As String, _ ByVal nctsHC_PreviousDocument_4_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_4_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_5_Type As String, _ ByVal nctsHC_PreviousDocument_5_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_5_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_6_Type As String, _ ByVal nctsHC_PreviousDocument_6_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_6_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_7_Type As String, _ ByVal nctsHC_PreviousDocument_7_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_7_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_8_Type As String, _ ByVal nctsHC_PreviousDocument_8_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_8_ComplementOfInformation As String, _ ByVal nctsHC_PreviousDocument_9_Type As String, _ ByVal nctsHC_PreviousDocument_9_ReferenceNumber As String, _ ByVal nctsHC_PreviousDocument_9_ComplementOfInformation As String, _ ByVal nctsHC_TransportDocument_1_Type As String, _ ByVal nctsHC_TransportDocument_1_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_2_Type As String, _ ByVal nctsHC_TransportDocument_2_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_3_Type As String, _ ByVal nctsHC_TransportDocument_3_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_4_Type As String, _ ByVal nctsHC_TransportDocument_4_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_5_Type As String, _ ByVal nctsHC_TransportDocument_5_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_6_Type As String, _ ByVal nctsHC_TransportDocument_6_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_7_Type As String, _ ByVal nctsHC_TransportDocument_7_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_8_Type As String, _ ByVal nctsHC_TransportDocument_8_ReferenceNumber As String, _ ByVal nctsHC_TransportDocument_9_Type As String, _ ByVal nctsHC_TransportDocument_9_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_1_Type As String, _ ByVal nctsHC_AdditionalReference_1_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_2_Type As String, _ ByVal nctsHC_AdditionalReference_2_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_3_Type As String, _ ByVal nctsHC_AdditionalReference_3_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_4_Type As String, _ ByVal nctsHC_AdditionalReference_4_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_5_Type As String, _ ByVal nctsHC_AdditionalReference_5_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_6_Type As String, _ ByVal nctsHC_AdditionalReference_6_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_7_Type As String, _ ByVal nctsHC_AdditionalReference_7_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_8_Type As String, _ ByVal nctsHC_AdditionalReference_8_ReferenceNumber As String, _ ByVal nctsHC_AdditionalReference_9_Type As String, _ ByVal nctsHC_AdditionalReference_9_ReferenceNumber As String, _ ByVal nctsHC_AdditionalInformation_1_Code As String, _ ByVal nctsHC_AdditionalInformation_1_Text As String, _ ByVal nctsHC_AdditionalInformation_2_Code As String, _ ByVal nctsHC_AdditionalInformation_2_Text As String, _ ByVal nctsHC_AdditionalInformation_3_Code As String, _ ByVal nctsHC_AdditionalInformation_3_Text As String, _ ByVal nctsHC_AdditionalInformation_4_Code As String, _ ByVal nctsHC_AdditionalInformation_4_Text As String, _ ByVal nctsHC_AdditionalInformation_5_Code As String, _ ByVal nctsHC_AdditionalInformation_5_Text As String, _ ByVal nctsHC_AdditionalInformation_6_Code As String, _ ByVal nctsHC_AdditionalInformation_6_Text As String, _ ByVal nctsHC_AdditionalInformation_7_Code As String, _ ByVal nctsHC_AdditionalInformation_7_Text As String, _ ByVal nctsHC_AdditionalInformation_8_Code As String, _ ByVal nctsHC_AdditionalInformation_8_Text As String, _ ByVal nctsHC_AdditionalInformation_9_Code As String, _ ByVal nctsHC_AdditionalInformation_9_Text As String, _ ByVal nctsHC_TransportCharges As String, _ ByVal Original_nctsHC_Id As Integer, _ ByVal Original_nctsHC_NctsId As Integer, _ ByVal Original_nctsHC_HouseConsignMentReference As String, _ ByVal Original_nctsHC_CountryOfDispatch As String, _ ByVal Original_nctsHC_CountryOfDestination As String, _ ByVal Original_nctsHC_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHC_ReferenceNumberUCR As String, _ ByVal Original_nctsHC_Consignor_AdressCode As String, _ ByVal Original_nctsHC_Consignor_IdentificationNumber As String, _ ByVal Original_nctsHC_Consignor_SubsidiaryNumber As String, _ ByVal Original_nctsHC_Consignor_Name As String, _ ByVal Original_nctsHC_Consignor_StreetNumber As String, _ ByVal Original_nctsHC_Consignor_City As String, _ ByVal Original_nctsHC_Consignor_Postcode As String, _ ByVal Original_nctsHC_Consignor_Country As String, _ ByVal Original_nctsHC_Consignor_ContactPerson_Name As String, _ ByVal Original_nctsHC_Consignor_ContactPerson_PhoneNumber As String, _ ByVal Original_nctsHC_Consignor_ContactPerson_EMailAddress As String, _ ByVal Original_nctsHC_Consignee_AdressCode As String, _ ByVal Original_nctsHC_Consignee_IdentificationNumber As String, _ ByVal Original_nctsHC_Consignee_SubsidiaryNumber As String, _ ByVal Original_nctsHC_Consignee_Name As String, _ ByVal Original_nctsHC_Consignee_StreetNumber As String, _ ByVal Original_nctsHC_Consignee_City As String, _ ByVal Original_nctsHC_Consignee_Postcode As String, _ ByVal Original_nctsHC_Consignee_Country As String, _ ByVal Original_nctsHC_Consignee_ContactPerson_Name As String, _ ByVal Original_nctsHC_Consignee_ContactPerson_PhoneNumber As String, _ ByVal Original_nctsHC_Consignee_ContactPerson_EMailAddress As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_1_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_2_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_3_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_4_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_5_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_6_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_7_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_8_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_9_Role As String, _ ByVal Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal Original_nctsHC_SupportingDocument_1_Type As String, _ ByVal Original_nctsHC_SupportingDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_2_Type As String, _ ByVal Original_nctsHC_SupportingDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_3_Type As String, _ ByVal Original_nctsHC_SupportingDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_4_Type As String, _ ByVal Original_nctsHC_SupportingDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_5_Type As String, _ ByVal Original_nctsHC_SupportingDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_6_Type As String, _ ByVal Original_nctsHC_SupportingDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_7_Type As String, _ ByVal Original_nctsHC_SupportingDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_8_Type As String, _ ByVal Original_nctsHC_SupportingDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHC_SupportingDocument_9_Type As String, _ ByVal Original_nctsHC_SupportingDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHC_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal Original_nctsHC_SupportingDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_1_Type As String, _ ByVal Original_nctsHC_PreviousDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_2_Type As String, _ ByVal Original_nctsHC_PreviousDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_3_Type As String, _ ByVal Original_nctsHC_PreviousDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_4_Type As String, _ ByVal Original_nctsHC_PreviousDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_5_Type As String, _ ByVal Original_nctsHC_PreviousDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_6_Type As String, _ ByVal Original_nctsHC_PreviousDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_7_Type As String, _ ByVal Original_nctsHC_PreviousDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_8_Type As String, _ ByVal Original_nctsHC_PreviousDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHC_PreviousDocument_9_Type As String, _ ByVal Original_nctsHC_PreviousDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHC_PreviousDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHC_TransportDocument_1_Type As String, _ ByVal Original_nctsHC_TransportDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_2_Type As String, _ ByVal Original_nctsHC_TransportDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_3_Type As String, _ ByVal Original_nctsHC_TransportDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_4_Type As String, _ ByVal Original_nctsHC_TransportDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_5_Type As String, _ ByVal Original_nctsHC_TransportDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_6_Type As String, _ ByVal Original_nctsHC_TransportDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_7_Type As String, _ ByVal Original_nctsHC_TransportDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_8_Type As String, _ ByVal Original_nctsHC_TransportDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHC_TransportDocument_9_Type As String, _ ByVal Original_nctsHC_TransportDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_1_Type As String, _ ByVal Original_nctsHC_AdditionalReference_1_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_2_Type As String, _ ByVal Original_nctsHC_AdditionalReference_2_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_3_Type As String, _ ByVal Original_nctsHC_AdditionalReference_3_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_4_Type As String, _ ByVal Original_nctsHC_AdditionalReference_4_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_5_Type As String, _ ByVal Original_nctsHC_AdditionalReference_5_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_6_Type As String, _ ByVal Original_nctsHC_AdditionalReference_6_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_7_Type As String, _ ByVal Original_nctsHC_AdditionalReference_7_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_8_Type As String, _ ByVal Original_nctsHC_AdditionalReference_8_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalReference_9_Type As String, _ ByVal Original_nctsHC_AdditionalReference_9_ReferenceNumber As String, _ ByVal Original_nctsHC_AdditionalInformation_1_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_1_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_2_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_2_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_3_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_3_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_4_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_4_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_5_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_5_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_6_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_6_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_7_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_7_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_8_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_8_Text As String, _ ByVal Original_nctsHC_AdditionalInformation_9_Code As String, _ ByVal Original_nctsHC_AdditionalInformation_9_Text As String, _ ByVal Original_nctsHC_TransportCharges As String) As Integer Return Me.Update(nctsHC_NctsId, nctsHC_HouseConsignMentReference, nctsHC_CountryOfDispatch, nctsHC_CountryOfDestination, nctsHC_GrossMass, nctsHC_ReferenceNumberUCR, nctsHC_Consignor_AdressCode, nctsHC_Consignor_IdentificationNumber, nctsHC_Consignor_SubsidiaryNumber, nctsHC_Consignor_Name, nctsHC_Consignor_StreetNumber, nctsHC_Consignor_City, nctsHC_Consignor_Postcode, nctsHC_Consignor_Country, nctsHC_Consignor_ContactPerson_Name, nctsHC_Consignor_ContactPerson_PhoneNumber, nctsHC_Consignor_ContactPerson_EMailAddress, nctsHC_Consignee_AdressCode, nctsHC_Consignee_IdentificationNumber, nctsHC_Consignee_SubsidiaryNumber, nctsHC_Consignee_Name, nctsHC_Consignee_StreetNumber, nctsHC_Consignee_City, nctsHC_Consignee_Postcode, nctsHC_Consignee_Country, nctsHC_Consignee_ContactPerson_Name, nctsHC_Consignee_ContactPerson_PhoneNumber, nctsHC_Consignee_ContactPerson_EMailAddress, nctsHC_AdditionalSupplyChainActor_1_Role, nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_2_Role, nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_3_Role, nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_4_Role, nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_5_Role, nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_6_Role, nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_7_Role, nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_8_Role, nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber, nctsHC_AdditionalSupplyChainActor_9_Role, nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber, nctsHC_SupportingDocument_1_Type, nctsHC_SupportingDocument_1_ReferenceNumber, nctsHC_SupportingDocument_1_DocumentLineItemNumber, nctsHC_SupportingDocument_1_ComplementOfInformation, nctsHC_SupportingDocument_2_Type, nctsHC_SupportingDocument_2_ReferenceNumber, nctsHC_SupportingDocument_2_DocumentLineItemNumber, nctsHC_SupportingDocument_2_ComplementOfInformation, nctsHC_SupportingDocument_3_Type, nctsHC_SupportingDocument_3_ReferenceNumber, nctsHC_SupportingDocument_3_DocumentLineItemNumber, nctsHC_SupportingDocument_3_ComplementOfInformation, nctsHC_SupportingDocument_4_Type, nctsHC_SupportingDocument_4_ReferenceNumber, nctsHC_SupportingDocument_4_DocumentLineItemNumber, nctsHC_SupportingDocument_4_ComplementOfInformation, nctsHC_SupportingDocument_5_Type, nctsHC_SupportingDocument_5_ReferenceNumber, nctsHC_SupportingDocument_5_DocumentLineItemNumber, nctsHC_SupportingDocument_5_ComplementOfInformation, nctsHC_SupportingDocument_6_Type, nctsHC_SupportingDocument_6_ReferenceNumber, nctsHC_SupportingDocument_6_DocumentLineItemNumber, nctsHC_SupportingDocument_6_ComplementOfInformation, nctsHC_SupportingDocument_7_Type, nctsHC_SupportingDocument_7_ReferenceNumber, nctsHC_SupportingDocument_7_DocumentLineItemNumber, nctsHC_SupportingDocument_7_ComplementOfInformation, nctsHC_SupportingDocument_8_Type, nctsHC_SupportingDocument_8_ReferenceNumber, nctsHC_SupportingDocument_8_DocumentLineItemNumber, nctsHC_SupportingDocument_8_ComplementOfInformation, nctsHC_SupportingDocument_9_Type, nctsHC_SupportingDocument_9_ReferenceNumber, nctsHC_SupportingDocument_9_DocumentLineItemNumber, nctsHC_SupportingDocument_9_ComplementOfInformation, nctsHC_PreviousDocument_1_Type, nctsHC_PreviousDocument_1_ReferenceNumber, nctsHC_PreviousDocument_1_ComplementOfInformation, nctsHC_PreviousDocument_2_Type, nctsHC_PreviousDocument_2_ReferenceNumber, nctsHC_PreviousDocument_2_ComplementOfInformation, nctsHC_PreviousDocument_3_Type, nctsHC_PreviousDocument_3_ReferenceNumber, nctsHC_PreviousDocument_3_ComplementOfInformation, nctsHC_PreviousDocument_4_Type, nctsHC_PreviousDocument_4_ReferenceNumber, nctsHC_PreviousDocument_4_ComplementOfInformation, nctsHC_PreviousDocument_5_Type, nctsHC_PreviousDocument_5_ReferenceNumber, nctsHC_PreviousDocument_5_ComplementOfInformation, nctsHC_PreviousDocument_6_Type, nctsHC_PreviousDocument_6_ReferenceNumber, nctsHC_PreviousDocument_6_ComplementOfInformation, nctsHC_PreviousDocument_7_Type, nctsHC_PreviousDocument_7_ReferenceNumber, nctsHC_PreviousDocument_7_ComplementOfInformation, nctsHC_PreviousDocument_8_Type, nctsHC_PreviousDocument_8_ReferenceNumber, nctsHC_PreviousDocument_8_ComplementOfInformation, nctsHC_PreviousDocument_9_Type, nctsHC_PreviousDocument_9_ReferenceNumber, nctsHC_PreviousDocument_9_ComplementOfInformation, nctsHC_TransportDocument_1_Type, nctsHC_TransportDocument_1_ReferenceNumber, nctsHC_TransportDocument_2_Type, nctsHC_TransportDocument_2_ReferenceNumber, nctsHC_TransportDocument_3_Type, nctsHC_TransportDocument_3_ReferenceNumber, nctsHC_TransportDocument_4_Type, nctsHC_TransportDocument_4_ReferenceNumber, nctsHC_TransportDocument_5_Type, nctsHC_TransportDocument_5_ReferenceNumber, nctsHC_TransportDocument_6_Type, nctsHC_TransportDocument_6_ReferenceNumber, nctsHC_TransportDocument_7_Type, nctsHC_TransportDocument_7_ReferenceNumber, nctsHC_TransportDocument_8_Type, nctsHC_TransportDocument_8_ReferenceNumber, nctsHC_TransportDocument_9_Type, nctsHC_TransportDocument_9_ReferenceNumber, nctsHC_AdditionalReference_1_Type, nctsHC_AdditionalReference_1_ReferenceNumber, nctsHC_AdditionalReference_2_Type, nctsHC_AdditionalReference_2_ReferenceNumber, nctsHC_AdditionalReference_3_Type, nctsHC_AdditionalReference_3_ReferenceNumber, nctsHC_AdditionalReference_4_Type, nctsHC_AdditionalReference_4_ReferenceNumber, nctsHC_AdditionalReference_5_Type, nctsHC_AdditionalReference_5_ReferenceNumber, nctsHC_AdditionalReference_6_Type, nctsHC_AdditionalReference_6_ReferenceNumber, nctsHC_AdditionalReference_7_Type, nctsHC_AdditionalReference_7_ReferenceNumber, nctsHC_AdditionalReference_8_Type, nctsHC_AdditionalReference_8_ReferenceNumber, nctsHC_AdditionalReference_9_Type, nctsHC_AdditionalReference_9_ReferenceNumber, nctsHC_AdditionalInformation_1_Code, nctsHC_AdditionalInformation_1_Text, nctsHC_AdditionalInformation_2_Code, nctsHC_AdditionalInformation_2_Text, nctsHC_AdditionalInformation_3_Code, nctsHC_AdditionalInformation_3_Text, nctsHC_AdditionalInformation_4_Code, nctsHC_AdditionalInformation_4_Text, nctsHC_AdditionalInformation_5_Code, nctsHC_AdditionalInformation_5_Text, nctsHC_AdditionalInformation_6_Code, nctsHC_AdditionalInformation_6_Text, nctsHC_AdditionalInformation_7_Code, nctsHC_AdditionalInformation_7_Text, nctsHC_AdditionalInformation_8_Code, nctsHC_AdditionalInformation_8_Text, nctsHC_AdditionalInformation_9_Code, nctsHC_AdditionalInformation_9_Text, nctsHC_TransportCharges, Original_nctsHC_Id, Original_nctsHC_NctsId, Original_nctsHC_HouseConsignMentReference, Original_nctsHC_CountryOfDispatch, Original_nctsHC_CountryOfDestination, Original_nctsHC_GrossMass, Original_nctsHC_ReferenceNumberUCR, Original_nctsHC_Consignor_AdressCode, Original_nctsHC_Consignor_IdentificationNumber, Original_nctsHC_Consignor_SubsidiaryNumber, Original_nctsHC_Consignor_Name, Original_nctsHC_Consignor_StreetNumber, Original_nctsHC_Consignor_City, Original_nctsHC_Consignor_Postcode, Original_nctsHC_Consignor_Country, Original_nctsHC_Consignor_ContactPerson_Name, Original_nctsHC_Consignor_ContactPerson_PhoneNumber, Original_nctsHC_Consignor_ContactPerson_EMailAddress, Original_nctsHC_Consignee_AdressCode, Original_nctsHC_Consignee_IdentificationNumber, Original_nctsHC_Consignee_SubsidiaryNumber, Original_nctsHC_Consignee_Name, Original_nctsHC_Consignee_StreetNumber, Original_nctsHC_Consignee_City, Original_nctsHC_Consignee_Postcode, Original_nctsHC_Consignee_Country, Original_nctsHC_Consignee_ContactPerson_Name, Original_nctsHC_Consignee_ContactPerson_PhoneNumber, Original_nctsHC_Consignee_ContactPerson_EMailAddress, Original_nctsHC_AdditionalSupplyChainActor_1_Role, Original_nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber, Original_nctsHC_AdditionalSupplyChainActor_2_Role, Original_nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber, Original_nctsHC_AdditionalSupplyChainActor_3_Role, Original_nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber, Original_nctsHC_AdditionalSupplyChainActor_4_Role, Original_nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber, Original_nctsHC_AdditionalSupplyChainActor_5_Role, Original_nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber, Original_nctsHC_AdditionalSupplyChainActor_6_Role, Original_nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber, Original_nctsHC_AdditionalSupplyChainActor_7_Role, Original_nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber, Original_nctsHC_AdditionalSupplyChainActor_8_Role, Original_nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber, Original_nctsHC_AdditionalSupplyChainActor_9_Role, Original_nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber, Original_nctsHC_SupportingDocument_1_Type, Original_nctsHC_SupportingDocument_1_ReferenceNumber, Original_nctsHC_SupportingDocument_1_DocumentLineItemNumber, Original_nctsHC_SupportingDocument_1_ComplementOfInformation, Original_nctsHC_SupportingDocument_2_Type, Original_nctsHC_SupportingDocument_2_ReferenceNumber, Original_nctsHC_SupportingDocument_2_DocumentLineItemNumber, Original_nctsHC_SupportingDocument_2_ComplementOfInformation, Original_nctsHC_SupportingDocument_3_Type, Original_nctsHC_SupportingDocument_3_ReferenceNumber, Original_nctsHC_SupportingDocument_3_DocumentLineItemNumber, Original_nctsHC_SupportingDocument_3_ComplementOfInformation, Original_nctsHC_SupportingDocument_4_Type, Original_nctsHC_SupportingDocument_4_ReferenceNumber, Original_nctsHC_SupportingDocument_4_DocumentLineItemNumber, Original_nctsHC_SupportingDocument_4_ComplementOfInformation, Original_nctsHC_SupportingDocument_5_Type, Original_nctsHC_SupportingDocument_5_ReferenceNumber, Original_nctsHC_SupportingDocument_5_DocumentLineItemNumber, Original_nctsHC_SupportingDocument_5_ComplementOfInformation, Original_nctsHC_SupportingDocument_6_Type, Original_nctsHC_SupportingDocument_6_ReferenceNumber, Original_nctsHC_SupportingDocument_6_DocumentLineItemNumber, Original_nctsHC_SupportingDocument_6_ComplementOfInformation, Original_nctsHC_SupportingDocument_7_Type, Original_nctsHC_SupportingDocument_7_ReferenceNumber, Original_nctsHC_SupportingDocument_7_DocumentLineItemNumber, Original_nctsHC_SupportingDocument_7_ComplementOfInformation, Original_nctsHC_SupportingDocument_8_Type, Original_nctsHC_SupportingDocument_8_ReferenceNumber, Original_nctsHC_SupportingDocument_8_DocumentLineItemNumber, Original_nctsHC_SupportingDocument_8_ComplementOfInformation, Original_nctsHC_SupportingDocument_9_Type, Original_nctsHC_SupportingDocument_9_ReferenceNumber, Original_nctsHC_SupportingDocument_9_DocumentLineItemNumber, Original_nctsHC_SupportingDocument_9_ComplementOfInformation, Original_nctsHC_PreviousDocument_1_Type, Original_nctsHC_PreviousDocument_1_ReferenceNumber, Original_nctsHC_PreviousDocument_1_ComplementOfInformation, Original_nctsHC_PreviousDocument_2_Type, Original_nctsHC_PreviousDocument_2_ReferenceNumber, Original_nctsHC_PreviousDocument_2_ComplementOfInformation, Original_nctsHC_PreviousDocument_3_Type, Original_nctsHC_PreviousDocument_3_ReferenceNumber, Original_nctsHC_PreviousDocument_3_ComplementOfInformation, Original_nctsHC_PreviousDocument_4_Type, Original_nctsHC_PreviousDocument_4_ReferenceNumber, Original_nctsHC_PreviousDocument_4_ComplementOfInformation, Original_nctsHC_PreviousDocument_5_Type, Original_nctsHC_PreviousDocument_5_ReferenceNumber, Original_nctsHC_PreviousDocument_5_ComplementOfInformation, Original_nctsHC_PreviousDocument_6_Type, Original_nctsHC_PreviousDocument_6_ReferenceNumber, Original_nctsHC_PreviousDocument_6_ComplementOfInformation, Original_nctsHC_PreviousDocument_7_Type, Original_nctsHC_PreviousDocument_7_ReferenceNumber, Original_nctsHC_PreviousDocument_7_ComplementOfInformation, Original_nctsHC_PreviousDocument_8_Type, Original_nctsHC_PreviousDocument_8_ReferenceNumber, Original_nctsHC_PreviousDocument_8_ComplementOfInformation, Original_nctsHC_PreviousDocument_9_Type, Original_nctsHC_PreviousDocument_9_ReferenceNumber, Original_nctsHC_PreviousDocument_9_ComplementOfInformation, Original_nctsHC_TransportDocument_1_Type, Original_nctsHC_TransportDocument_1_ReferenceNumber, Original_nctsHC_TransportDocument_2_Type, Original_nctsHC_TransportDocument_2_ReferenceNumber, Original_nctsHC_TransportDocument_3_Type, Original_nctsHC_TransportDocument_3_ReferenceNumber, Original_nctsHC_TransportDocument_4_Type, Original_nctsHC_TransportDocument_4_ReferenceNumber, Original_nctsHC_TransportDocument_5_Type, Original_nctsHC_TransportDocument_5_ReferenceNumber, Original_nctsHC_TransportDocument_6_Type, Original_nctsHC_TransportDocument_6_ReferenceNumber, Original_nctsHC_TransportDocument_7_Type, Original_nctsHC_TransportDocument_7_ReferenceNumber, Original_nctsHC_TransportDocument_8_Type, Original_nctsHC_TransportDocument_8_ReferenceNumber, Original_nctsHC_TransportDocument_9_Type, Original_nctsHC_TransportDocument_9_ReferenceNumber, Original_nctsHC_AdditionalReference_1_Type, Original_nctsHC_AdditionalReference_1_ReferenceNumber, Original_nctsHC_AdditionalReference_2_Type, Original_nctsHC_AdditionalReference_2_ReferenceNumber, Original_nctsHC_AdditionalReference_3_Type, Original_nctsHC_AdditionalReference_3_ReferenceNumber, Original_nctsHC_AdditionalReference_4_Type, Original_nctsHC_AdditionalReference_4_ReferenceNumber, Original_nctsHC_AdditionalReference_5_Type, Original_nctsHC_AdditionalReference_5_ReferenceNumber, Original_nctsHC_AdditionalReference_6_Type, Original_nctsHC_AdditionalReference_6_ReferenceNumber, Original_nctsHC_AdditionalReference_7_Type, Original_nctsHC_AdditionalReference_7_ReferenceNumber, Original_nctsHC_AdditionalReference_8_Type, Original_nctsHC_AdditionalReference_8_ReferenceNumber, Original_nctsHC_AdditionalReference_9_Type, Original_nctsHC_AdditionalReference_9_ReferenceNumber, Original_nctsHC_AdditionalInformation_1_Code, Original_nctsHC_AdditionalInformation_1_Text, Original_nctsHC_AdditionalInformation_2_Code, Original_nctsHC_AdditionalInformation_2_Text, Original_nctsHC_AdditionalInformation_3_Code, Original_nctsHC_AdditionalInformation_3_Text, Original_nctsHC_AdditionalInformation_4_Code, Original_nctsHC_AdditionalInformation_4_Text, Original_nctsHC_AdditionalInformation_5_Code, Original_nctsHC_AdditionalInformation_5_Text, Original_nctsHC_AdditionalInformation_6_Code, Original_nctsHC_AdditionalInformation_6_Text, Original_nctsHC_AdditionalInformation_7_Code, Original_nctsHC_AdditionalInformation_7_Text, Original_nctsHC_AdditionalInformation_8_Code, Original_nctsHC_AdditionalInformation_8_Text, Original_nctsHC_AdditionalInformation_9_Code, Original_nctsHC_AdditionalInformation_9_Text, Original_nctsHC_TransportCharges, Original_nctsHC_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter 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 = "tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem" tableMapping.ColumnMappings.Add("nctsHCCI_Id", "nctsHCCI_Id") tableMapping.ColumnMappings.Add("nctsHCCI_NctsId", "nctsHCCI_NctsId") tableMapping.ColumnMappings.Add("nctsHCCI_NctsHCId", "nctsHCCI_NctsHCId") tableMapping.ColumnMappings.Add("nctsHCCI_GoodsItemNumber", "nctsHCCI_GoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_DeclarationGoodsItemNumber", "nctsHCCI_DeclarationGoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_CommodityCode", "nctsHCCI_CommodityCode") tableMapping.ColumnMappings.Add("nctsHCCI_MethodeOfPayment", "nctsHCCI_MethodeOfPayment") tableMapping.ColumnMappings.Add("nctsHCCI_UNNumber_1", "nctsHCCI_UNNumber_1") tableMapping.ColumnMappings.Add("nctsHCCI_UNNumber_2", "nctsHCCI_UNNumber_2") tableMapping.ColumnMappings.Add("nctsHCCI_UNNumber_3", "nctsHCCI_UNNumber_3") tableMapping.ColumnMappings.Add("nctsHCCI_UNNumber_4", "nctsHCCI_UNNumber_4") tableMapping.ColumnMappings.Add("nctsHCCI_DeclarationType", "nctsHCCI_DeclarationType") tableMapping.ColumnMappings.Add("nctsHCCI_ArticleCode", "nctsHCCI_ArticleCode") tableMapping.ColumnMappings.Add("nctsHCCI_DescriptionOfGoods", "nctsHCCI_DescriptionOfGoods") tableMapping.ColumnMappings.Add("nctsHCCI_CusCode", "nctsHCCI_CusCode") tableMapping.ColumnMappings.Add("nctsHCCI_CountryOfDispatch", "nctsHCCI_CountryOfDispatch") tableMapping.ColumnMappings.Add("nctsHCCI_CountryOfDestination", "nctsHCCI_CountryOfDestination") tableMapping.ColumnMappings.Add("nctsHCCI_GrossMass", "nctsHCCI_GrossMass") tableMapping.ColumnMappings.Add("nctsHCCI_NetMass", "nctsHCCI_NetMass") tableMapping.ColumnMappings.Add("nctsHCCI_ReferenceNumberUCR", "nctsHCCI_ReferenceNumberUCR") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_AdressCode", "nctsHCCI_Consignor_AdressCode") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_IdentificationNumber", "nctsHCCI_Consignor_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_SubsidiaryNumber", "nctsHCCI_Consignor_SubsidiaryNumber") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_Name", "nctsHCCI_Consignor_Name") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_StreetNumber", "nctsHCCI_Consignor_StreetNumber") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_City", "nctsHCCI_Consignor_City") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_Postcode", "nctsHCCI_Consignor_Postcode") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_Country", "nctsHCCI_Consignor_Country") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_ContactPerson_Name", "nctsHCCI_Consignor_ContactPerson_Name") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_ContactPerson_PhoneNumber", "nctsHCCI_Consignor_ContactPerson_PhoneNumber") tableMapping.ColumnMappings.Add("nctsHCCI_Consignor_ContactPerson_EMailAddress", "nctsHCCI_Consignor_ContactPerson_EMailAddress") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_1_Role", "nctsHCCI_AdditionalSupplyChainActor_1_Role") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", "nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_2_Role", "nctsHCCI_AdditionalSupplyChainActor_2_Role") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", "nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_3_Role", "nctsHCCI_AdditionalSupplyChainActor_3_Role") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", "nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_4_Role", "nctsHCCI_AdditionalSupplyChainActor_4_Role") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", "nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_5_Role", "nctsHCCI_AdditionalSupplyChainActor_5_Role") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", "nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_6_Role", "nctsHCCI_AdditionalSupplyChainActor_6_Role") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", "nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_7_Role", "nctsHCCI_AdditionalSupplyChainActor_7_Role") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", "nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_8_Role", "nctsHCCI_AdditionalSupplyChainActor_8_Role") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", "nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_9_Role", "nctsHCCI_AdditionalSupplyChainActor_9_Role") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", "nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber") tableMapping.ColumnMappings.Add("nctsHCCI_GoodsValue", "nctsHCCI_GoodsValue") tableMapping.ColumnMappings.Add("nctsHCCI_CurrencyOfGoodsValue", "nctsHCCI_CurrencyOfGoodsValue") tableMapping.ColumnMappings.Add("nctsHCCI_ExchangeRate", "nctsHCCI_ExchangeRate") tableMapping.ColumnMappings.Add("nctsHCCI_ExchangeDate", "nctsHCCI_ExchangeDate") tableMapping.ColumnMappings.Add("nctsHCCI_CurrencyExchangeRateType", "nctsHCCI_CurrencyExchangeRateType") tableMapping.ColumnMappings.Add("nctsHCCI_FractionOfGoodsValue", "nctsHCCI_FractionOfGoodsValue") tableMapping.ColumnMappings.Add("nctsHCCI_GuaranteeAmount", "nctsHCCI_GuaranteeAmount") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_1_Type", "nctsHCCI_PreviousDocument_1_Type") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_1_ReferenceNumber", "nctsHCCI_PreviousDocument_1_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", "nctsHCCI_PreviousDocument_1_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_1_ComplementOfInformation", "nctsHCCI_PreviousDocument_1_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_1_GoodsItemNumber", "nctsHCCI_PreviousDocument_1_GoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_2_Type", "nctsHCCI_PreviousDocument_2_Type") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_2_ReferenceNumber", "nctsHCCI_PreviousDocument_2_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", "nctsHCCI_PreviousDocument_2_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_2_ComplementOfInformation", "nctsHCCI_PreviousDocument_2_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_2_GoodsItemNumber", "nctsHCCI_PreviousDocument_2_GoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_3_Type", "nctsHCCI_PreviousDocument_3_Type") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_3_ReferenceNumber", "nctsHCCI_PreviousDocument_3_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", "nctsHCCI_PreviousDocument_3_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_3_ComplementOfInformation", "nctsHCCI_PreviousDocument_3_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_3_GoodsItemNumber", "nctsHCCI_PreviousDocument_3_GoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_4_Type", "nctsHCCI_PreviousDocument_4_Type") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_4_ReferenceNumber", "nctsHCCI_PreviousDocument_4_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", "nctsHCCI_PreviousDocument_4_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_4_ComplementOfInformation", "nctsHCCI_PreviousDocument_4_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_4_GoodsItemNumber", "nctsHCCI_PreviousDocument_4_GoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_5_Type", "nctsHCCI_PreviousDocument_5_Type") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_5_ReferenceNumber", "nctsHCCI_PreviousDocument_5_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", "nctsHCCI_PreviousDocument_5_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_5_ComplementOfInformation", "nctsHCCI_PreviousDocument_5_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_5_GoodsItemNumber", "nctsHCCI_PreviousDocument_5_GoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_6_Type", "nctsHCCI_PreviousDocument_6_Type") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_6_ReferenceNumber", "nctsHCCI_PreviousDocument_6_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", "nctsHCCI_PreviousDocument_6_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_6_ComplementOfInformation", "nctsHCCI_PreviousDocument_6_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_6_GoodsItemNumber", "nctsHCCI_PreviousDocument_6_GoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_7_Type", "nctsHCCI_PreviousDocument_7_Type") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_7_ReferenceNumber", "nctsHCCI_PreviousDocument_7_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", "nctsHCCI_PreviousDocument_7_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_7_ComplementOfInformation", "nctsHCCI_PreviousDocument_7_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_7_GoodsItemNumber", "nctsHCCI_PreviousDocument_7_GoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_8_Type", "nctsHCCI_PreviousDocument_8_Type") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_8_ReferenceNumber", "nctsHCCI_PreviousDocument_8_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", "nctsHCCI_PreviousDocument_8_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_8_ComplementOfInformation", "nctsHCCI_PreviousDocument_8_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_8_GoodsItemNumber", "nctsHCCI_PreviousDocument_8_GoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_9_Type", "nctsHCCI_PreviousDocument_9_Type") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_9_ReferenceNumber", "nctsHCCI_PreviousDocument_9_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", "nctsHCCI_PreviousDocument_9_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_9_ComplementOfInformation", "nctsHCCI_PreviousDocument_9_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_PreviousDocument_9_GoodsItemNumber", "nctsHCCI_PreviousDocument_9_GoodsItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_1_Type", "nctsHCCI_SupportingDocument_1_Type") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_1_ReferenceNumber", "nctsHCCI_SupportingDocument_1_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", "nctsHCCI_SupportingDocument_1_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_1_ComplementOfInformation", "nctsHCCI_SupportingDocument_1_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_2_Type", "nctsHCCI_SupportingDocument_2_Type") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_2_ReferenceNumber", "nctsHCCI_SupportingDocument_2_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", "nctsHCCI_SupportingDocument_2_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_2_ComplementOfInformation", "nctsHCCI_SupportingDocument_2_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_3_Type", "nctsHCCI_SupportingDocument_3_Type") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_3_ReferenceNumber", "nctsHCCI_SupportingDocument_3_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", "nctsHCCI_SupportingDocument_3_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_3_ComplementOfInformation", "nctsHCCI_SupportingDocument_3_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_4_Type", "nctsHCCI_SupportingDocument_4_Type") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_4_ReferenceNumber", "nctsHCCI_SupportingDocument_4_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", "nctsHCCI_SupportingDocument_4_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_4_ComplementOfInformation", "nctsHCCI_SupportingDocument_4_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_5_Type", "nctsHCCI_SupportingDocument_5_Type") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_5_ReferenceNumber", "nctsHCCI_SupportingDocument_5_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", "nctsHCCI_SupportingDocument_5_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_5_ComplementOfInformation", "nctsHCCI_SupportingDocument_5_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_6_Type", "nctsHCCI_SupportingDocument_6_Type") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_6_ReferenceNumber", "nctsHCCI_SupportingDocument_6_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", "nctsHCCI_SupportingDocument_6_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_6_ComplementOfInformation", "nctsHCCI_SupportingDocument_6_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_7_Type", "nctsHCCI_SupportingDocument_7_Type") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_7_ReferenceNumber", "nctsHCCI_SupportingDocument_7_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", "nctsHCCI_SupportingDocument_7_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_7_ComplementOfInformation", "nctsHCCI_SupportingDocument_7_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_8_Type", "nctsHCCI_SupportingDocument_8_Type") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_8_ReferenceNumber", "nctsHCCI_SupportingDocument_8_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", "nctsHCCI_SupportingDocument_8_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_8_ComplementOfInformation", "nctsHCCI_SupportingDocument_8_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_9_Type", "nctsHCCI_SupportingDocument_9_Type") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_9_ReferenceNumber", "nctsHCCI_SupportingDocument_9_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", "nctsHCCI_SupportingDocument_9_DocumentLineItemNumber") tableMapping.ColumnMappings.Add("nctsHCCI_SupportingDocument_9_ComplementOfInformation", "nctsHCCI_SupportingDocument_9_ComplementOfInformation") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_1_Type", "nctsHCCI_AdditionalReference_1_Type") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_1_ReferenceNumber", "nctsHCCI_AdditionalReference_1_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_2_Type", "nctsHCCI_AdditionalReference_2_Type") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_2_ReferenceNumber", "nctsHCCI_AdditionalReference_2_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_3_Type", "nctsHCCI_AdditionalReference_3_Type") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_3_ReferenceNumber", "nctsHCCI_AdditionalReference_3_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_4_Type", "nctsHCCI_AdditionalReference_4_Type") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_4_ReferenceNumber", "nctsHCCI_AdditionalReference_4_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_5_Type", "nctsHCCI_AdditionalReference_5_Type") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_5_ReferenceNumber", "nctsHCCI_AdditionalReference_5_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_6_Type", "nctsHCCI_AdditionalReference_6_Type") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_6_ReferenceNumber", "nctsHCCI_AdditionalReference_6_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_7_Type", "nctsHCCI_AdditionalReference_7_Type") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_7_ReferenceNumber", "nctsHCCI_AdditionalReference_7_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_8_Type", "nctsHCCI_AdditionalReference_8_Type") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_8_ReferenceNumber", "nctsHCCI_AdditionalReference_8_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_9_Type", "nctsHCCI_AdditionalReference_9_Type") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalReference_9_ReferenceNumber", "nctsHCCI_AdditionalReference_9_ReferenceNumber") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_1_Code", "nctsHCCI_AdditionalInformation_1_Code") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_1_Text", "nctsHCCI_AdditionalInformation_1_Text") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_2_Code", "nctsHCCI_AdditionalInformation_2_Code") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_2_Text", "nctsHCCI_AdditionalInformation_2_Text") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_3_Code", "nctsHCCI_AdditionalInformation_3_Code") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_3_Text", "nctsHCCI_AdditionalInformation_3_Text") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_4_Code", "nctsHCCI_AdditionalInformation_4_Code") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_4_Text", "nctsHCCI_AdditionalInformation_4_Text") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_5_Code", "nctsHCCI_AdditionalInformation_5_Code") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_5_Text", "nctsHCCI_AdditionalInformation_5_Text") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_6_Code", "nctsHCCI_AdditionalInformation_6_Code") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_6_Text", "nctsHCCI_AdditionalInformation_6_Text") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_7_Code", "nctsHCCI_AdditionalInformation_7_Code") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_7_Text", "nctsHCCI_AdditionalInformation_7_Text") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_8_Code", "nctsHCCI_AdditionalInformation_8_Code") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_8_Text", "nctsHCCI_AdditionalInformation_8_Text") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_9_Code", "nctsHCCI_AdditionalInformation_9_Code") tableMapping.ColumnMappings.Add("nctsHCCI_AdditionalInformation_9_Text", "nctsHCCI_AdditionalInformation_9_Text") 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].[tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem] WHERE ("& _ "([nctsHCCI_Id] = @Original_nctsHCCI_Id) AND ([nctsHCCI_NctsId] = @Original_nctsH"& _ "CCI_NctsId) AND ([nctsHCCI_NctsHCId] = @Original_nctsHCCI_NctsHCId) AND ((@IsNul"& _ "l_nctsHCCI_GoodsItemNumber = 1 AND [nctsHCCI_GoodsItemNumber] IS NULL) OR ([ncts"& _ "HCCI_GoodsItemNumber] = @Original_nctsHCCI_GoodsItemNumber)) AND ((@IsNull_nctsH"& _ "CCI_DeclarationGoodsItemNumber = 1 AND [nctsHCCI_DeclarationGoodsItemNumber] IS "& _ "NULL) OR ([nctsHCCI_DeclarationGoodsItemNumber] = @Original_nctsHCCI_Declaration"& _ "GoodsItemNumber)) AND ((@IsNull_nctsHCCI_CommodityCode = 1 AND [nctsHCCI_Commodi"& _ "tyCode] IS NULL) OR ([nctsHCCI_CommodityCode] = @Original_nctsHCCI_CommodityCode"& _ ")) AND ((@IsNull_nctsHCCI_MethodeOfPayment = 1 AND [nctsHCCI_MethodeOfPayment] I"& _ "S NULL) OR ([nctsHCCI_MethodeOfPayment] = @Original_nctsHCCI_MethodeOfPayment)) "& _ "AND ((@IsNull_nctsHCCI_UNNumber_1 = 1 AND [nctsHCCI_UNNumber_1] IS NULL) OR ([nc"& _ "tsHCCI_UNNumber_1] = @Original_nctsHCCI_UNNumber_1)) AND ((@IsNull_nctsHCCI_UNNu"& _ "mber_2 = 1 AND [nctsHCCI_UNNumber_2] IS NULL) OR ([nctsHCCI_UNNumber_2] = @Origi"& _ "nal_nctsHCCI_UNNumber_2)) AND ((@IsNull_nctsHCCI_UNNumber_3 = 1 AND [nctsHCCI_UN"& _ "Number_3] IS NULL) OR ([nctsHCCI_UNNumber_3] = @Original_nctsHCCI_UNNumber_3)) A"& _ "ND ((@IsNull_nctsHCCI_UNNumber_4 = 1 AND [nctsHCCI_UNNumber_4] IS NULL) OR ([nct"& _ "sHCCI_UNNumber_4] = @Original_nctsHCCI_UNNumber_4)) AND ((@IsNull_nctsHCCI_Decla"& _ "rationType = 1 AND [nctsHCCI_DeclarationType] IS NULL) OR ([nctsHCCI_Declaration"& _ "Type] = @Original_nctsHCCI_DeclarationType)) AND ((@IsNull_nctsHCCI_ArticleCode "& _ "= 1 AND [nctsHCCI_ArticleCode] IS NULL) OR ([nctsHCCI_ArticleCode] = @Original_n"& _ "ctsHCCI_ArticleCode)) AND ((@IsNull_nctsHCCI_DescriptionOfGoods = 1 AND [nctsHCC"& _ "I_DescriptionOfGoods] IS NULL) OR ([nctsHCCI_DescriptionOfGoods] = @Original_nct"& _ "sHCCI_DescriptionOfGoods)) AND ((@IsNull_nctsHCCI_CusCode = 1 AND [nctsHCCI_CusC"& _ "ode] IS NULL) OR ([nctsHCCI_CusCode] = @Original_nctsHCCI_CusCode)) AND ((@IsNul"& _ "l_nctsHCCI_CountryOfDispatch = 1 AND [nctsHCCI_CountryOfDispatch] IS NULL) OR (["& _ "nctsHCCI_CountryOfDispatch] = @Original_nctsHCCI_CountryOfDispatch)) AND ((@IsNu"& _ "ll_nctsHCCI_CountryOfDestination = 1 AND [nctsHCCI_CountryOfDestination] IS NULL"& _ ") OR ([nctsHCCI_CountryOfDestination] = @Original_nctsHCCI_CountryOfDestination)"& _ ") AND ((@IsNull_nctsHCCI_GrossMass = 1 AND [nctsHCCI_GrossMass] IS NULL) OR ([nc"& _ "tsHCCI_GrossMass] = @Original_nctsHCCI_GrossMass)) AND ((@IsNull_nctsHCCI_NetMas"& _ "s = 1 AND [nctsHCCI_NetMass] IS NULL) OR ([nctsHCCI_NetMass] = @Original_nctsHCC"& _ "I_NetMass)) AND ((@IsNull_nctsHCCI_ReferenceNumberUCR = 1 AND [nctsHCCI_Referenc"& _ "eNumberUCR] IS NULL) OR ([nctsHCCI_ReferenceNumberUCR] = @Original_nctsHCCI_Refe"& _ "renceNumberUCR)) AND ((@IsNull_nctsHCCI_Consignor_AdressCode = 1 AND [nctsHCCI_C"& _ "onsignor_AdressCode] IS NULL) OR ([nctsHCCI_Consignor_AdressCode] = @Original_nc"& _ "tsHCCI_Consignor_AdressCode)) AND ((@IsNull_nctsHCCI_Consignor_IdentificationNum"& _ "ber = 1 AND [nctsHCCI_Consignor_IdentificationNumber] IS NULL) OR ([nctsHCCI_Con"& _ "signor_IdentificationNumber] = @Original_nctsHCCI_Consignor_IdentificationNumber"& _ ")) AND ((@IsNull_nctsHCCI_Consignor_SubsidiaryNumber = 1 AND [nctsHCCI_Consignor"& _ "_SubsidiaryNumber] IS NULL) OR ([nctsHCCI_Consignor_SubsidiaryNumber] = @Origina"& _ "l_nctsHCCI_Consignor_SubsidiaryNumber)) AND ((@IsNull_nctsHCCI_Consignor_Name = "& _ "1 AND [nctsHCCI_Consignor_Name] IS NULL) OR ([nctsHCCI_Consignor_Name] = @Origin"& _ "al_nctsHCCI_Consignor_Name)) AND ((@IsNull_nctsHCCI_Consignor_StreetNumber = 1 A"& _ "ND [nctsHCCI_Consignor_StreetNumber] IS NULL) OR ([nctsHCCI_Consignor_StreetNumb"& _ "er] = @Original_nctsHCCI_Consignor_StreetNumber)) AND ((@IsNull_nctsHCCI_Consign"& _ "or_City = 1 AND [nctsHCCI_Consignor_City] IS NULL) OR ([nctsHCCI_Consignor_City]"& _ " = @Original_nctsHCCI_Consignor_City)) AND ((@IsNull_nctsHCCI_Consignor_Postcode"& _ " = 1 AND [nctsHCCI_Consignor_Postcode] IS NULL) OR ([nctsHCCI_Consignor_Postcode"& _ "] = @Original_nctsHCCI_Consignor_Postcode)) AND ((@IsNull_nctsHCCI_Consignor_Cou"& _ "ntry = 1 AND [nctsHCCI_Consignor_Country] IS NULL) OR ([nctsHCCI_Consignor_Count"& _ "ry] = @Original_nctsHCCI_Consignor_Country)) AND ((@IsNull_nctsHCCI_Consignor_Co"& _ "ntactPerson_Name = 1 AND [nctsHCCI_Consignor_ContactPerson_Name] IS NULL) OR ([n"& _ "ctsHCCI_Consignor_ContactPerson_Name] = @Original_nctsHCCI_Consignor_ContactPers"& _ "on_Name)) AND ((@IsNull_nctsHCCI_Consignor_ContactPerson_PhoneNumber = 1 AND [nc"& _ "tsHCCI_Consignor_ContactPerson_PhoneNumber] IS NULL) OR ([nctsHCCI_Consignor_Con"& _ "tactPerson_PhoneNumber] = @Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber"& _ ")) AND ((@IsNull_nctsHCCI_Consignor_ContactPerson_EMailAddress = 1 AND [nctsHCCI"& _ "_Consignor_ContactPerson_EMailAddress] IS NULL) OR ([nctsHCCI_Consignor_ContactP"& _ "erson_EMailAddress] = @Original_nctsHCCI_Consignor_ContactPerson_EMailAddress)) "& _ "AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_1_Role = 1 AND [nctsHCCI_Addit"& _ "ionalSupplyChainActor_1_Role] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_"& _ "1_Role] = @Original_nctsHCCI_AdditionalSupplyChainActor_1_Role)) AND ((@IsNull_n"& _ "ctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber = 1 AND [nctsHCCI_Addi"& _ "tionalSupplyChainActor_1_IdentificationNumber] IS NULL) OR ([nctsHCCI_Additional"& _ "SupplyChainActor_1_IdentificationNumber] = @Original_nctsHCCI_AdditionalSupplyCh"& _ "ainActor_1_IdentificationNumber)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainAc"& _ "tor_2_Role = 1 AND [nctsHCCI_AdditionalSupplyChainActor_2_Role] IS NULL) OR ([nc"& _ "tsHCCI_AdditionalSupplyChainActor_2_Role] = @Original_nctsHCCI_AdditionalSupplyC"& _ "hainActor_2_Role)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_2_Identific"& _ "ationNumber = 1 AND [nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber]"& _ " IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber] = @Or"& _ "iginal_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber)) AND ((@IsNul"& _ "l_nctsHCCI_AdditionalSupplyChainActor_3_Role = 1 AND [nctsHCCI_AdditionalSupplyC"& _ "hainActor_3_Role] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_3_Role] = @O"& _ "riginal_nctsHCCI_AdditionalSupplyChainActor_3_Role)) AND ((@IsNull_nctsHCCI_Addi"& _ "tionalSupplyChainActor_3_IdentificationNumber = 1 AND [nctsHCCI_AdditionalSupply"& _ "ChainActor_3_IdentificationNumber] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainA"& _ "ctor_3_IdentificationNumber] = @Original_nctsHCCI_AdditionalSupplyChainActor_3_I"& _ "dentificationNumber)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_4_Role ="& _ " 1 AND [nctsHCCI_AdditionalSupplyChainActor_4_Role] IS NULL) OR ([nctsHCCI_Addit"& _ "ionalSupplyChainActor_4_Role] = @Original_nctsHCCI_AdditionalSupplyChainActor_4_"& _ "Role)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber "& _ "= 1 AND [nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber] IS NULL) OR"& _ " ([nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber] = @Original_nctsH"& _ "CCI_AdditionalSupplyChainActor_4_IdentificationNumber)) AND ((@IsNull_nctsHCCI_A"& _ "dditionalSupplyChainActor_5_Role = 1 AND [nctsHCCI_AdditionalSupplyChainActor_5_"& _ "Role] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_5_Role] = @Original_ncts"& _ "HCCI_AdditionalSupplyChainActor_5_Role)) AND ((@IsNull_nctsHCCI_AdditionalSupply"& _ "ChainActor_5_IdentificationNumber = 1 AND [nctsHCCI_AdditionalSupplyChainActor_5"& _ "_IdentificationNumber] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_5_Ident"& _ "ificationNumber] = @Original_nctsHCCI_AdditionalSupplyChainActor_5_Identificatio"& _ "nNumber)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_6_Role = 1 AND [ncts"& _ "HCCI_AdditionalSupplyChainActor_6_Role] IS NULL) OR ([nctsHCCI_AdditionalSupplyC"& _ "hainActor_6_Role] = @Original_nctsHCCI_AdditionalSupplyChainActor_6_Role)) AND ("& _ "(@IsNull_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber = 1 AND [nct"& _ "sHCCI_AdditionalSupplyChainActor_6_IdentificationNumber] IS NULL) OR ([nctsHCCI_"& _ "AdditionalSupplyChainActor_6_IdentificationNumber] = @Original_nctsHCCI_Addition"& _ "alSupplyChainActor_6_IdentificationNumber)) AND ((@IsNull_nctsHCCI_AdditionalSup"& _ "plyChainActor_7_Role = 1 AND [nctsHCCI_AdditionalSupplyChainActor_7_Role] IS NUL"& _ "L) OR ([nctsHCCI_AdditionalSupplyChainActor_7_Role] = @Original_nctsHCCI_Additio"& _ "nalSupplyChainActor_7_Role)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_7"& _ "_IdentificationNumber = 1 AND [nctsHCCI_AdditionalSupplyChainActor_7_Identificat"& _ "ionNumber] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNum"& _ "ber] = @Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber)) AN"& _ "D ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_8_Role = 1 AND [nctsHCCI_Additio"& _ "nalSupplyChainActor_8_Role] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_8_"& _ "Role] = @Original_nctsHCCI_AdditionalSupplyChainActor_8_Role)) AND ((@IsNull_nct"& _ "sHCCI_AdditionalSupplyChainActor_8_IdentificationNumber = 1 AND [nctsHCCI_Additi"& _ "onalSupplyChainActor_8_IdentificationNumber] IS NULL) OR ([nctsHCCI_AdditionalSu"& _ "pplyChainActor_8_IdentificationNumber] = @Original_nctsHCCI_AdditionalSupplyChai"& _ "nActor_8_IdentificationNumber)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActo"& _ "r_9_Role = 1 AND [nctsHCCI_AdditionalSupplyChainActor_9_Role] IS NULL) OR ([ncts"& _ "HCCI_AdditionalSupplyChainActor_9_Role] = @Original_nctsHCCI_AdditionalSupplyCha"& _ "inActor_9_Role)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_9_Identificat"& _ "ionNumber = 1 AND [nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber] I"& _ "S NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber] = @Orig"& _ "inal_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber)) AND ((@IsNull_"& _ "nctsHCCI_GoodsValue = 1 AND [nctsHCCI_GoodsValue] IS NULL) OR ([nctsHCCI_GoodsVa"& _ "lue] = @Original_nctsHCCI_GoodsValue)) AND ((@IsNull_nctsHCCI_CurrencyOfGoodsVal"& _ "ue = 1 AND [nctsHCCI_CurrencyOfGoodsValue] IS NULL) OR ([nctsHCCI_CurrencyOfGood"& _ "sValue] = @Original_nctsHCCI_CurrencyOfGoodsValue)) AND ((@IsNull_nctsHCCI_Excha"& _ "ngeRate = 1 AND [nctsHCCI_ExchangeRate] IS NULL) OR ([nctsHCCI_ExchangeRate] = @"& _ "Original_nctsHCCI_ExchangeRate)) AND ((@IsNull_nctsHCCI_ExchangeDate = 1 AND [nc"& _ "tsHCCI_ExchangeDate] IS NULL) OR ([nctsHCCI_ExchangeDate] = @Original_nctsHCCI_E"& _ "xchangeDate)) AND ((@IsNull_nctsHCCI_CurrencyExchangeRateType = 1 AND [nctsHCCI_"& _ "CurrencyExchangeRateType] IS NULL) OR ([nctsHCCI_CurrencyExchangeRateType] = @Or"& _ "iginal_nctsHCCI_CurrencyExchangeRateType)) AND ((@IsNull_nctsHCCI_FractionOfGood"& _ "sValue = 1 AND [nctsHCCI_FractionOfGoodsValue] IS NULL) OR ([nctsHCCI_FractionOf"& _ "GoodsValue] = @Original_nctsHCCI_FractionOfGoodsValue)) AND ((@IsNull_nctsHCCI_G"& _ "uaranteeAmount = 1 AND [nctsHCCI_GuaranteeAmount] IS NULL) OR ([nctsHCCI_Guarant"& _ "eeAmount] = @Original_nctsHCCI_GuaranteeAmount)) AND ((@IsNull_nctsHCCI_Previous"& _ "Document_1_Type = 1 AND [nctsHCCI_PreviousDocument_1_Type] IS NULL) OR ([nctsHCC"& _ "I_PreviousDocument_1_Type] = @Original_nctsHCCI_PreviousDocument_1_Type)) AND (("& _ "@IsNull_nctsHCCI_PreviousDocument_1_ReferenceNumber = 1 AND [nctsHCCI_PreviousDo"& _ "cument_1_ReferenceNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_1_ReferenceNum"& _ "ber] = @Original_nctsHCCI_PreviousDocument_1_ReferenceNumber)) AND ((@IsNull_nct"& _ "sHCCI_PreviousDocument_1_DocumentLineItemNumber = 1 AND [nctsHCCI_PreviousDocume"& _ "nt_1_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_1_DocumentL"& _ "ineItemNumber] = @Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber)) "& _ "AND ((@IsNull_nctsHCCI_PreviousDocument_1_ComplementOfInformation = 1 AND [nctsH"& _ "CCI_PreviousDocument_1_ComplementOfInformation] IS NULL) OR ([nctsHCCI_PreviousD"& _ "ocument_1_ComplementOfInformation] = @Original_nctsHCCI_PreviousDocument_1_Compl"& _ "ementOfInformation)) AND ((@IsNull_nctsHCCI_PreviousDocument_1_GoodsItemNumber ="& _ " 1 AND [nctsHCCI_PreviousDocument_1_GoodsItemNumber] IS NULL) OR ([nctsHCCI_Prev"& _ "iousDocument_1_GoodsItemNumber] = @Original_nctsHCCI_PreviousDocument_1_GoodsIte"& _ "mNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_2_Type = 1 AND [nctsHCCI_Previ"& _ "ousDocument_2_Type] IS NULL) OR ([nctsHCCI_PreviousDocument_2_Type] = @Original_"& _ "nctsHCCI_PreviousDocument_2_Type)) AND ((@IsNull_nctsHCCI_PreviousDocument_2_Ref"& _ "erenceNumber = 1 AND [nctsHCCI_PreviousDocument_2_ReferenceNumber] IS NULL) OR ("& _ "[nctsHCCI_PreviousDocument_2_ReferenceNumber] = @Original_nctsHCCI_PreviousDocum"& _ "ent_2_ReferenceNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_2_DocumentLineIt"& _ "emNumber = 1 AND [nctsHCCI_PreviousDocument_2_DocumentLineItemNumber] IS NULL) O"& _ "R ([nctsHCCI_PreviousDocument_2_DocumentLineItemNumber] = @Original_nctsHCCI_Pre"& _ "viousDocument_2_DocumentLineItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument"& _ "_2_ComplementOfInformation = 1 AND [nctsHCCI_PreviousDocument_2_ComplementOfInfo"& _ "rmation] IS NULL) OR ([nctsHCCI_PreviousDocument_2_ComplementOfInformation] = @O"& _ "riginal_nctsHCCI_PreviousDocument_2_ComplementOfInformation)) AND ((@IsNull_ncts"& _ "HCCI_PreviousDocument_2_GoodsItemNumber = 1 AND [nctsHCCI_PreviousDocument_2_Goo"& _ "dsItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_2_GoodsItemNumber] = @Orig"& _ "inal_nctsHCCI_PreviousDocument_2_GoodsItemNumber)) AND ((@IsNull_nctsHCCI_Previo"& _ "usDocument_3_Type = 1 AND [nctsHCCI_PreviousDocument_3_Type] IS NULL) OR ([nctsH"& _ "CCI_PreviousDocument_3_Type] = @Original_nctsHCCI_PreviousDocument_3_Type)) AND "& _ "((@IsNull_nctsHCCI_PreviousDocument_3_ReferenceNumber = 1 AND [nctsHCCI_Previous"& _ "Document_3_ReferenceNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_3_ReferenceN"& _ "umber] = @Original_nctsHCCI_PreviousDocument_3_ReferenceNumber)) AND ((@IsNull_n"& _ "ctsHCCI_PreviousDocument_3_DocumentLineItemNumber = 1 AND [nctsHCCI_PreviousDocu"& _ "ment_3_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_3_Documen"& _ "tLineItemNumber] = @Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber)"& _ ") AND ((@IsNull_nctsHCCI_PreviousDocument_3_ComplementOfInformation = 1 AND [nct"& _ "sHCCI_PreviousDocument_3_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Previou"& _ "sDocument_3_ComplementOfInformation] = @Original_nctsHCCI_PreviousDocument_3_Com"& _ "plementOfInformation)) AND ((@IsNull_nctsHCCI_PreviousDocument_3_GoodsItemNumber"& _ " = 1 AND [nctsHCCI_PreviousDocument_3_GoodsItemNumber] IS NULL) OR ([nctsHCCI_Pr"& _ "eviousDocument_3_GoodsItemNumber] = @Original_nctsHCCI_PreviousDocument_3_GoodsI"& _ "temNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_4_Type = 1 AND [nctsHCCI_Pre"& _ "viousDocument_4_Type] IS NULL) OR ([nctsHCCI_PreviousDocument_4_Type] = @Origina"& _ "l_nctsHCCI_PreviousDocument_4_Type)) AND ((@IsNull_nctsHCCI_PreviousDocument_4_R"& _ "eferenceNumber = 1 AND [nctsHCCI_PreviousDocument_4_ReferenceNumber] IS NULL) OR"& _ " ([nctsHCCI_PreviousDocument_4_ReferenceNumber] = @Original_nctsHCCI_PreviousDoc"& _ "ument_4_ReferenceNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_4_DocumentLine"& _ "ItemNumber = 1 AND [nctsHCCI_PreviousDocument_4_DocumentLineItemNumber] IS NULL)"& _ " OR ([nctsHCCI_PreviousDocument_4_DocumentLineItemNumber] = @Original_nctsHCCI_P"& _ "reviousDocument_4_DocumentLineItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDocume"& _ "nt_4_ComplementOfInformation = 1 AND [nctsHCCI_PreviousDocument_4_ComplementOfIn"& _ "formation] IS NULL) OR ([nctsHCCI_PreviousDocument_4_ComplementOfInformation] = "& _ "@Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation)) AND ((@IsNull_nc"& _ "tsHCCI_PreviousDocument_4_GoodsItemNumber = 1 AND [nctsHCCI_PreviousDocument_4_G"& _ "oodsItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_4_GoodsItemNumber] = @Or"& _ "iginal_nctsHCCI_PreviousDocument_4_GoodsItemNumber)) AND ((@IsNull_nctsHCCI_Prev"& _ "iousDocument_5_Type = 1 AND [nctsHCCI_PreviousDocument_5_Type] IS NULL) OR ([nct"& _ "sHCCI_PreviousDocument_5_Type] = @Original_nctsHCCI_PreviousDocument_5_Type)) AN"& _ "D ((@IsNull_nctsHCCI_PreviousDocument_5_ReferenceNumber = 1 AND [nctsHCCI_Previo"& _ "usDocument_5_ReferenceNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_5_Referenc"& _ "eNumber] = @Original_nctsHCCI_PreviousDocument_5_ReferenceNumber)) AND ((@IsNull"& _ "_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber = 1 AND [nctsHCCI_PreviousDo"& _ "cument_5_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_5_Docum"& _ "entLineItemNumber] = @Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumbe"& _ "r)) AND ((@IsNull_nctsHCCI_PreviousDocument_5_ComplementOfInformation = 1 AND [n"& _ "ctsHCCI_PreviousDocument_5_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Previ"& _ "ousDocument_5_ComplementOfInformation] = @Original_nctsHCCI_PreviousDocument_5_C"& _ "omplementOfInformation)) AND ((@IsNull_nctsHCCI_PreviousDocument_5_GoodsItemNumb"& _ "er = 1 AND [nctsHCCI_PreviousDocument_5_GoodsItemNumber] IS NULL) OR ([nctsHCCI_"& _ "PreviousDocument_5_GoodsItemNumber] = @Original_nctsHCCI_PreviousDocument_5_Good"& _ "sItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_6_Type = 1 AND [nctsHCCI_P"& _ "reviousDocument_6_Type] IS NULL) OR ([nctsHCCI_PreviousDocument_6_Type] = @Origi"& _ "nal_nctsHCCI_PreviousDocument_6_Type)) AND ((@IsNull_nctsHCCI_PreviousDocument_6"& _ "_ReferenceNumber = 1 AND [nctsHCCI_PreviousDocument_6_ReferenceNumber] IS NULL) "& _ "OR ([nctsHCCI_PreviousDocument_6_ReferenceNumber] = @Original_nctsHCCI_PreviousD"& _ "ocument_6_ReferenceNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_6_DocumentLi"& _ "neItemNumber = 1 AND [nctsHCCI_PreviousDocument_6_DocumentLineItemNumber] IS NUL"& _ "L) OR ([nctsHCCI_PreviousDocument_6_DocumentLineItemNumber] = @Original_nctsHCCI"& _ "_PreviousDocument_6_DocumentLineItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDocu"& _ "ment_6_ComplementOfInformation = 1 AND [nctsHCCI_PreviousDocument_6_ComplementOf"& _ "Information] IS NULL) OR ([nctsHCCI_PreviousDocument_6_ComplementOfInformation] "& _ "= @Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation)) AND ((@IsNull_"& _ "nctsHCCI_PreviousDocument_6_GoodsItemNumber = 1 AND [nctsHCCI_PreviousDocument_6"& _ "_GoodsItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_6_GoodsItemNumber] = @"& _ "Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber)) AND ((@IsNull_nctsHCCI_Pr"& _ "eviousDocument_7_Type = 1 AND [nctsHCCI_PreviousDocument_7_Type] IS NULL) OR ([n"& _ "ctsHCCI_PreviousDocument_7_Type] = @Original_nctsHCCI_PreviousDocument_7_Type)) "& _ "AND ((@IsNull_nctsHCCI_PreviousDocument_7_ReferenceNumber = 1 AND [nctsHCCI_Prev"& _ "iousDocument_7_ReferenceNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_7_Refere"& _ "nceNumber] = @Original_nctsHCCI_PreviousDocument_7_ReferenceNumber)) AND ((@IsNu"& _ "ll_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber = 1 AND [nctsHCCI_Previous"& _ "Document_7_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_7_Doc"& _ "umentLineItemNumber] = @Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNum"& _ "ber)) AND ((@IsNull_nctsHCCI_PreviousDocument_7_ComplementOfInformation = 1 AND "& _ "[nctsHCCI_PreviousDocument_7_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Pre"& _ "viousDocument_7_ComplementOfInformation] = @Original_nctsHCCI_PreviousDocument_7"& _ "_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_PreviousDocument_7_GoodsItemNu"& _ "mber = 1 AND [nctsHCCI_PreviousDocument_7_GoodsItemNumber] IS NULL) OR ([nctsHCC"& _ "I_PreviousDocument_7_GoodsItemNumber] = @Original_nctsHCCI_PreviousDocument_7_Go"& _ "odsItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_8_Type = 1 AND [nctsHCCI"& _ "_PreviousDocument_8_Type] IS NULL) OR ([nctsHCCI_PreviousDocument_8_Type] = @Ori"& _ "ginal_nctsHCCI_PreviousDocument_8_Type)) AND ((@IsNull_nctsHCCI_PreviousDocument"& _ "_8_ReferenceNumber = 1 AND [nctsHCCI_PreviousDocument_8_ReferenceNumber] IS NULL"& _ ") OR ([nctsHCCI_PreviousDocument_8_ReferenceNumber] = @Original_nctsHCCI_Previou"& _ "sDocument_8_ReferenceNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_8_Document"& _ "LineItemNumber = 1 AND [nctsHCCI_PreviousDocument_8_DocumentLineItemNumber] IS N"& _ "ULL) OR ([nctsHCCI_PreviousDocument_8_DocumentLineItemNumber] = @Original_nctsHC"& _ "CI_PreviousDocument_8_DocumentLineItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDo"& _ "cument_8_ComplementOfInformation = 1 AND [nctsHCCI_PreviousDocument_8_Complement"& _ "OfInformation] IS NULL) OR ([nctsHCCI_PreviousDocument_8_ComplementOfInformation"& _ "] = @Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation)) AND ((@IsNul"& _ "l_nctsHCCI_PreviousDocument_8_GoodsItemNumber = 1 AND [nctsHCCI_PreviousDocument"& _ "_8_GoodsItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_8_GoodsItemNumber] ="& _ " @Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber)) AND ((@IsNull_nctsHCCI_"& _ "PreviousDocument_9_Type = 1 AND [nctsHCCI_PreviousDocument_9_Type] IS NULL) OR ("& _ "[nctsHCCI_PreviousDocument_9_Type] = @Original_nctsHCCI_PreviousDocument_9_Type)"& _ ") AND ((@IsNull_nctsHCCI_PreviousDocument_9_ReferenceNumber = 1 AND [nctsHCCI_Pr"& _ "eviousDocument_9_ReferenceNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_9_Refe"& _ "renceNumber] = @Original_nctsHCCI_PreviousDocument_9_ReferenceNumber)) AND ((@Is"& _ "Null_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber = 1 AND [nctsHCCI_Previo"& _ "usDocument_9_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_9_D"& _ "ocumentLineItemNumber] = @Original_nctsHCCI_PreviousDocument_9_DocumentLineItemN"& _ "umber)) AND ((@IsNull_nctsHCCI_PreviousDocument_9_ComplementOfInformation = 1 AN"& _ "D [nctsHCCI_PreviousDocument_9_ComplementOfInformation] IS NULL) OR ([nctsHCCI_P"& _ "reviousDocument_9_ComplementOfInformation] = @Original_nctsHCCI_PreviousDocument"& _ "_9_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_PreviousDocument_9_GoodsItem"& _ "Number = 1 AND [nctsHCCI_PreviousDocument_9_GoodsItemNumber] IS NULL) OR ([nctsH"& _ "CCI_PreviousDocument_9_GoodsItemNumber] = @Original_nctsHCCI_PreviousDocument_9_"& _ "GoodsItemNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_1_Type = 1 AND [ncts"& _ "HCCI_SupportingDocument_1_Type] IS NULL) OR ([nctsHCCI_SupportingDocument_1_Type"& _ "] = @Original_nctsHCCI_SupportingDocument_1_Type)) AND ((@IsNull_nctsHCCI_Suppor"& _ "tingDocument_1_ReferenceNumber = 1 AND [nctsHCCI_SupportingDocument_1_ReferenceN"& _ "umber] IS NULL) OR ([nctsHCCI_SupportingDocument_1_ReferenceNumber] = @Original_"& _ "nctsHCCI_SupportingDocument_1_ReferenceNumber)) AND ((@IsNull_nctsHCCI_Supportin"& _ "gDocument_1_DocumentLineItemNumber = 1 AND [nctsHCCI_SupportingDocument_1_Docume"& _ "ntLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_1_DocumentLineItemNu"& _ "mber] = @Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber)) AND ((@"& _ "IsNull_nctsHCCI_SupportingDocument_1_ComplementOfInformation = 1 AND [nctsHCCI_S"& _ "upportingDocument_1_ComplementOfInformation] IS NULL) OR ([nctsHCCI_SupportingDo"& _ "cument_1_ComplementOfInformation] = @Original_nctsHCCI_SupportingDocument_1_Comp"& _ "lementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocument_2_Type = 1 AND ["& _ "nctsHCCI_SupportingDocument_2_Type] IS NULL) OR ([nctsHCCI_SupportingDocument_2_"& _ "Type] = @Original_nctsHCCI_SupportingDocument_2_Type)) AND ((@IsNull_nctsHCCI_Su"& _ "pportingDocument_2_ReferenceNumber = 1 AND [nctsHCCI_SupportingDocument_2_Refere"& _ "nceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_2_ReferenceNumber] = @Origi"& _ "nal_nctsHCCI_SupportingDocument_2_ReferenceNumber)) AND ((@IsNull_nctsHCCI_Suppo"& _ "rtingDocument_2_DocumentLineItemNumber = 1 AND [nctsHCCI_SupportingDocument_2_Do"& _ "cumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_2_DocumentLineIt"& _ "emNumber] = @Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber)) AND"& _ " ((@IsNull_nctsHCCI_SupportingDocument_2_ComplementOfInformation = 1 AND [nctsHC"& _ "CI_SupportingDocument_2_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Supporti"& _ "ngDocument_2_ComplementOfInformation] = @Original_nctsHCCI_SupportingDocument_2_"& _ "ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocument_3_Type = 1 A"& _ "ND [nctsHCCI_SupportingDocument_3_Type] IS NULL) OR ([nctsHCCI_SupportingDocumen"& _ "t_3_Type] = @Original_nctsHCCI_SupportingDocument_3_Type)) AND ((@IsNull_nctsHCC"& _ "I_SupportingDocument_3_ReferenceNumber = 1 AND [nctsHCCI_SupportingDocument_3_Re"& _ "ferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_3_ReferenceNumber] = @O"& _ "riginal_nctsHCCI_SupportingDocument_3_ReferenceNumber)) AND ((@IsNull_nctsHCCI_S"& _ "upportingDocument_3_DocumentLineItemNumber = 1 AND [nctsHCCI_SupportingDocument_"& _ "3_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_3_DocumentLi"& _ "neItemNumber] = @Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber))"& _ " AND ((@IsNull_nctsHCCI_SupportingDocument_3_ComplementOfInformation = 1 AND [nc"& _ "tsHCCI_SupportingDocument_3_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Supp"& _ "ortingDocument_3_ComplementOfInformation] = @Original_nctsHCCI_SupportingDocumen"& _ "t_3_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocument_4_Type ="& _ " 1 AND [nctsHCCI_SupportingDocument_4_Type] IS NULL) OR ([nctsHCCI_SupportingDoc"& _ "ument_4_Type] = @Original_nctsHCCI_SupportingDocument_4_Type)) AND ((@IsNull_nct"& _ "sHCCI_SupportingDocument_4_ReferenceNumber = 1 AND [nctsHCCI_SupportingDocument_"& _ "4_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_4_ReferenceNumber] "& _ "= @Original_nctsHCCI_SupportingDocument_4_ReferenceNumber)) AND ((@IsNull_nctsHC"& _ "CI_SupportingDocument_4_DocumentLineItemNumber = 1 AND [nctsHCCI_SupportingDocum"& _ "ent_4_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_4_Docume"& _ "ntLineItemNumber] = @Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumb"& _ "er)) AND ((@IsNull_nctsHCCI_SupportingDocument_4_ComplementOfInformation = 1 AND"& _ " [nctsHCCI_SupportingDocument_4_ComplementOfInformation] IS NULL) OR ([nctsHCCI_"& _ "SupportingDocument_4_ComplementOfInformation] = @Original_nctsHCCI_SupportingDoc"& _ "ument_4_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocument_5_Ty"& _ "pe = 1 AND [nctsHCCI_SupportingDocument_5_Type] IS NULL) OR ([nctsHCCI_Supportin"& _ "gDocument_5_Type] = @Original_nctsHCCI_SupportingDocument_5_Type)) AND ((@IsNull"& _ "_nctsHCCI_SupportingDocument_5_ReferenceNumber = 1 AND [nctsHCCI_SupportingDocum"& _ "ent_5_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_5_ReferenceNumb"& _ "er] = @Original_nctsHCCI_SupportingDocument_5_ReferenceNumber)) AND ((@IsNull_nc"& _ "tsHCCI_SupportingDocument_5_DocumentLineItemNumber = 1 AND [nctsHCCI_SupportingD"& _ "ocument_5_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_5_Do"& _ "cumentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_5_DocumentLineItem"& _ "Number)) AND ((@IsNull_nctsHCCI_SupportingDocument_5_ComplementOfInformation = 1"& _ " AND [nctsHCCI_SupportingDocument_5_ComplementOfInformation] IS NULL) OR ([nctsH"& _ "CCI_SupportingDocument_5_ComplementOfInformation] = @Original_nctsHCCI_Supportin"& _ "gDocument_5_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocument_"& _ "6_Type = 1 AND [nctsHCCI_SupportingDocument_6_Type] IS NULL) OR ([nctsHCCI_Suppo"& _ "rtingDocument_6_Type] = @Original_nctsHCCI_SupportingDocument_6_Type)) AND ((@Is"& _ "Null_nctsHCCI_SupportingDocument_6_ReferenceNumber = 1 AND [nctsHCCI_SupportingD"& _ "ocument_6_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_6_Reference"& _ "Number] = @Original_nctsHCCI_SupportingDocument_6_ReferenceNumber)) AND ((@IsNul"& _ "l_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber = 1 AND [nctsHCCI_Support"& _ "ingDocument_6_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_"& _ "6_DocumentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_6_DocumentLine"& _ "ItemNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_6_ComplementOfInformation"& _ " = 1 AND [nctsHCCI_SupportingDocument_6_ComplementOfInformation] IS NULL) OR ([n"& _ "ctsHCCI_SupportingDocument_6_ComplementOfInformation] = @Original_nctsHCCI_Suppo"& _ "rtingDocument_6_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocum"& _ "ent_7_Type = 1 AND [nctsHCCI_SupportingDocument_7_Type] IS NULL) OR ([nctsHCCI_S"& _ "upportingDocument_7_Type] = @Original_nctsHCCI_SupportingDocument_7_Type)) AND ("& _ "(@IsNull_nctsHCCI_SupportingDocument_7_ReferenceNumber = 1 AND [nctsHCCI_Support"& _ "ingDocument_7_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_7_Refer"& _ "enceNumber] = @Original_nctsHCCI_SupportingDocument_7_ReferenceNumber)) AND ((@I"& _ "sNull_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber = 1 AND [nctsHCCI_Sup"& _ "portingDocument_7_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocum"& _ "ent_7_DocumentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_7_Document"& _ "LineItemNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_7_ComplementOfInforma"& _ "tion = 1 AND [nctsHCCI_SupportingDocument_7_ComplementOfInformation] IS NULL) OR"& _ " ([nctsHCCI_SupportingDocument_7_ComplementOfInformation] = @Original_nctsHCCI_S"& _ "upportingDocument_7_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingD"& _ "ocument_8_Type = 1 AND [nctsHCCI_SupportingDocument_8_Type] IS NULL) OR ([nctsHC"& _ "CI_SupportingDocument_8_Type] = @Original_nctsHCCI_SupportingDocument_8_Type)) A"& _ "ND ((@IsNull_nctsHCCI_SupportingDocument_8_ReferenceNumber = 1 AND [nctsHCCI_Sup"& _ "portingDocument_8_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_8_R"& _ "eferenceNumber] = @Original_nctsHCCI_SupportingDocument_8_ReferenceNumber)) AND "& _ "((@IsNull_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber = 1 AND [nctsHCCI"& _ "_SupportingDocument_8_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingD"& _ "ocument_8_DocumentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_8_Docu"& _ "mentLineItemNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_8_ComplementOfInf"& _ "ormation = 1 AND [nctsHCCI_SupportingDocument_8_ComplementOfInformation] IS NULL"& _ ") OR ([nctsHCCI_SupportingDocument_8_ComplementOfInformation] = @Original_nctsHC"& _ "CI_SupportingDocument_8_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_Support"& _ "ingDocument_9_Type = 1 AND [nctsHCCI_SupportingDocument_9_Type] IS NULL) OR ([nc"& _ "tsHCCI_SupportingDocument_9_Type] = @Original_nctsHCCI_SupportingDocument_9_Type"& _ ")) AND ((@IsNull_nctsHCCI_SupportingDocument_9_ReferenceNumber = 1 AND [nctsHCCI"& _ "_SupportingDocument_9_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument"& _ "_9_ReferenceNumber] = @Original_nctsHCCI_SupportingDocument_9_ReferenceNumber)) "& _ "AND ((@IsNull_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber = 1 AND [ncts"& _ "HCCI_SupportingDocument_9_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_Support"& _ "ingDocument_9_DocumentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_9_"& _ "DocumentLineItemNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_9_ComplementO"& _ "fInformation = 1 AND [nctsHCCI_SupportingDocument_9_ComplementOfInformation] IS "& _ "NULL) OR ([nctsHCCI_SupportingDocument_9_ComplementOfInformation] = @Original_nc"& _ "tsHCCI_SupportingDocument_9_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_Add"& _ "itionalReference_1_Type = 1 AND [nctsHCCI_AdditionalReference_1_Type] IS NULL) O"& _ "R ([nctsHCCI_AdditionalReference_1_Type] = @Original_nctsHCCI_AdditionalReferenc"& _ "e_1_Type)) AND ((@IsNull_nctsHCCI_AdditionalReference_1_ReferenceNumber = 1 AND "& _ "[nctsHCCI_AdditionalReference_1_ReferenceNumber] IS NULL) OR ([nctsHCCI_Addition"& _ "alReference_1_ReferenceNumber] = @Original_nctsHCCI_AdditionalReference_1_Refere"& _ "nceNumber)) AND ((@IsNull_nctsHCCI_AdditionalReference_2_Type = 1 AND [nctsHCCI_"& _ "AdditionalReference_2_Type] IS NULL) OR ([nctsHCCI_AdditionalReference_2_Type] ="& _ " @Original_nctsHCCI_AdditionalReference_2_Type)) AND ((@IsNull_nctsHCCI_Addition"& _ "alReference_2_ReferenceNumber = 1 AND [nctsHCCI_AdditionalReference_2_ReferenceN"& _ "umber] IS NULL) OR ([nctsHCCI_AdditionalReference_2_ReferenceNumber] = @Original"& _ "_nctsHCCI_AdditionalReference_2_ReferenceNumber)) AND ((@IsNull_nctsHCCI_Additio"& _ "nalReference_3_Type = 1 AND [nctsHCCI_AdditionalReference_3_Type] IS NULL) OR (["& _ "nctsHCCI_AdditionalReference_3_Type] = @Original_nctsHCCI_AdditionalReference_3_"& _ "Type)) AND ((@IsNull_nctsHCCI_AdditionalReference_3_ReferenceNumber = 1 AND [nct"& _ "sHCCI_AdditionalReference_3_ReferenceNumber] IS NULL) OR ([nctsHCCI_AdditionalRe"& _ "ference_3_ReferenceNumber] = @Original_nctsHCCI_AdditionalReference_3_ReferenceN"& _ "umber)) AND ((@IsNull_nctsHCCI_AdditionalReference_4_Type = 1 AND [nctsHCCI_Addi"& _ "tionalReference_4_Type] IS NULL) OR ([nctsHCCI_AdditionalReference_4_Type] = @Or"& _ "iginal_nctsHCCI_AdditionalReference_4_Type)) AND ((@IsNull_nctsHCCI_AdditionalRe"& _ "ference_4_ReferenceNumber = 1 AND [nctsHCCI_AdditionalReference_4_ReferenceNumbe"& _ "r] IS NULL) OR ([nctsHCCI_AdditionalReference_4_ReferenceNumber] = @Original_nct"& _ "sHCCI_AdditionalReference_4_ReferenceNumber)) AND ((@IsNull_nctsHCCI_AdditionalR"& _ "eference_5_Type = 1 AND [nctsHCCI_AdditionalReference_5_Type] IS NULL) OR ([ncts"& _ "HCCI_AdditionalReference_5_Type] = @Original_nctsHCCI_AdditionalReference_5_Type"& _ ")) AND ((@IsNull_nctsHCCI_AdditionalReference_5_ReferenceNumber = 1 AND [nctsHCC"& _ "I_AdditionalReference_5_ReferenceNumber] IS NULL) OR ([nctsHCCI_AdditionalRefere"& _ "nce_5_ReferenceNumber] = @Original_nctsHCCI_AdditionalReference_5_ReferenceNumbe"& _ "r)) AND ((@IsNull_nctsHCCI_AdditionalReference_6_Type = 1 AND [nctsHCCI_Addition"& _ "alReference_6_Type] IS NULL) OR ([nctsHCCI_AdditionalReference_6_Type] = @Origin"& _ "al_nctsHCCI_AdditionalReference_6_Type)) AND ((@IsNull_nctsHCCI_AdditionalRefere"& _ "nce_6_ReferenceNumber = 1 AND [nctsHCCI_AdditionalReference_6_ReferenceNumber] I"& _ "S NULL) OR ([nctsHCCI_AdditionalReference_6_ReferenceNumber] = @Original_nctsHCC"& _ "I_AdditionalReference_6_ReferenceNumber)) AND ((@IsNull_nctsHCCI_AdditionalRefer"& _ "ence_7_Type = 1 AND [nctsHCCI_AdditionalReference_7_Type] IS NULL) OR ([nctsHCCI"& _ "_AdditionalReference_7_Type] = @Original_nctsHCCI_AdditionalReference_7_Type)) A"& _ "ND ((@IsNull_nctsHCCI_AdditionalReference_7_ReferenceNumber = 1 AND [nctsHCCI_Ad"& _ "ditionalReference_7_ReferenceNumber] IS NULL) OR ([nctsHCCI_AdditionalReference_"& _ "7_ReferenceNumber] = @Original_nctsHCCI_AdditionalReference_7_ReferenceNumber)) "& _ "AND ((@IsNull_nctsHCCI_AdditionalReference_8_Type = 1 AND [nctsHCCI_AdditionalRe"& _ "ference_8_Type] IS NULL) OR ([nctsHCCI_AdditionalReference_8_Type] = @Original_n"& _ "ctsHCCI_AdditionalReference_8_Type)) AND ((@IsNull_nctsHCCI_AdditionalReference_"& _ "8_ReferenceNumber = 1 AND [nctsHCCI_AdditionalReference_8_ReferenceNumber] IS NU"& _ "LL) OR ([nctsHCCI_AdditionalReference_8_ReferenceNumber] = @Original_nctsHCCI_Ad"& _ "ditionalReference_8_ReferenceNumber)) AND ((@IsNull_nctsHCCI_AdditionalReference"& _ "_9_Type = 1 AND [nctsHCCI_AdditionalReference_9_Type] IS NULL) OR ([nctsHCCI_Add"& _ "itionalReference_9_Type] = @Original_nctsHCCI_AdditionalReference_9_Type)) AND ("& _ "(@IsNull_nctsHCCI_AdditionalReference_9_ReferenceNumber = 1 AND [nctsHCCI_Additi"& _ "onalReference_9_ReferenceNumber] IS NULL) OR ([nctsHCCI_AdditionalReference_9_Re"& _ "ferenceNumber] = @Original_nctsHCCI_AdditionalReference_9_ReferenceNumber)) AND "& _ "((@IsNull_nctsHCCI_AdditionalInformation_1_Code = 1 AND [nctsHCCI_AdditionalInfo"& _ "rmation_1_Code] IS NULL) OR ([nctsHCCI_AdditionalInformation_1_Code] = @Original"& _ "_nctsHCCI_AdditionalInformation_1_Code)) AND ((@IsNull_nctsHCCI_AdditionalInform"& _ "ation_1_Text = 1 AND [nctsHCCI_AdditionalInformation_1_Text] IS NULL) OR ([nctsH"& _ "CCI_AdditionalInformation_1_Text] = @Original_nctsHCCI_AdditionalInformation_1_T"& _ "ext)) AND ((@IsNull_nctsHCCI_AdditionalInformation_2_Code = 1 AND [nctsHCCI_Addi"& _ "tionalInformation_2_Code] IS NULL) OR ([nctsHCCI_AdditionalInformation_2_Code] ="& _ " @Original_nctsHCCI_AdditionalInformation_2_Code)) AND ((@IsNull_nctsHCCI_Additi"& _ "onalInformation_2_Text = 1 AND [nctsHCCI_AdditionalInformation_2_Text] IS NULL) "& _ "OR ([nctsHCCI_AdditionalInformation_2_Text] = @Original_nctsHCCI_AdditionalInfor"& _ "mation_2_Text)) AND ((@IsNull_nctsHCCI_AdditionalInformation_3_Code = 1 AND [nct"& _ "sHCCI_AdditionalInformation_3_Code] IS NULL) OR ([nctsHCCI_AdditionalInformation"& _ "_3_Code] = @Original_nctsHCCI_AdditionalInformation_3_Code)) AND ((@IsNull_nctsH"& _ "CCI_AdditionalInformation_3_Text = 1 AND [nctsHCCI_AdditionalInformation_3_Text]"& _ " IS NULL) OR ([nctsHCCI_AdditionalInformation_3_Text] = @Original_nctsHCCI_Addit"& _ "ionalInformation_3_Text)) AND ((@IsNull_nctsHCCI_AdditionalInformation_4_Code = "& _ "1 AND [nctsHCCI_AdditionalInformation_4_Code] IS NULL) OR ([nctsHCCI_AdditionalI"& _ "nformation_4_Code] = @Original_nctsHCCI_AdditionalInformation_4_Code)) AND ((@Is"& _ "Null_nctsHCCI_AdditionalInformation_4_Text = 1 AND [nctsHCCI_AdditionalInformati"& _ "on_4_Text] IS NULL) OR ([nctsHCCI_AdditionalInformation_4_Text] = @Original_ncts"& _ "HCCI_AdditionalInformation_4_Text)) AND ((@IsNull_nctsHCCI_AdditionalInformation"& _ "_5_Code = 1 AND [nctsHCCI_AdditionalInformation_5_Code] IS NULL) OR ([nctsHCCI_A"& _ "dditionalInformation_5_Code] = @Original_nctsHCCI_AdditionalInformation_5_Code))"& _ " AND ((@IsNull_nctsHCCI_AdditionalInformation_5_Text = 1 AND [nctsHCCI_Additiona"& _ "lInformation_5_Text] IS NULL) OR ([nctsHCCI_AdditionalInformation_5_Text] = @Ori"& _ "ginal_nctsHCCI_AdditionalInformation_5_Text)) AND ((@IsNull_nctsHCCI_AdditionalI"& _ "nformation_6_Code = 1 AND [nctsHCCI_AdditionalInformation_6_Code] IS NULL) OR (["& _ "nctsHCCI_AdditionalInformation_6_Code] = @Original_nctsHCCI_AdditionalInformatio"& _ "n_6_Code)) AND ((@IsNull_nctsHCCI_AdditionalInformation_6_Text = 1 AND [nctsHCCI"& _ "_AdditionalInformation_6_Text] IS NULL) OR ([nctsHCCI_AdditionalInformation_6_Te"& _ "xt] = @Original_nctsHCCI_AdditionalInformation_6_Text)) AND ((@IsNull_nctsHCCI_A"& _ "dditionalInformation_7_Code = 1 AND [nctsHCCI_AdditionalInformation_7_Code] IS N"& _ "ULL) OR ([nctsHCCI_AdditionalInformation_7_Code] = @Original_nctsHCCI_Additional"& _ "Information_7_Code)) AND ((@IsNull_nctsHCCI_AdditionalInformation_7_Text = 1 AND"& _ " [nctsHCCI_AdditionalInformation_7_Text] IS NULL) OR ([nctsHCCI_AdditionalInform"& _ "ation_7_Text] = @Original_nctsHCCI_AdditionalInformation_7_Text)) AND ((@IsNull_"& _ "nctsHCCI_AdditionalInformation_8_Code = 1 AND [nctsHCCI_AdditionalInformation_8_"& _ "Code] IS NULL) OR ([nctsHCCI_AdditionalInformation_8_Code] = @Original_nctsHCCI_"& _ "AdditionalInformation_8_Code)) AND ((@IsNull_nctsHCCI_AdditionalInformation_8_Te"& _ "xt = 1 AND [nctsHCCI_AdditionalInformation_8_Text] IS NULL) OR ([nctsHCCI_Additi"& _ "onalInformation_8_Text] = @Original_nctsHCCI_AdditionalInformation_8_Text)) AND "& _ "((@IsNull_nctsHCCI_AdditionalInformation_9_Code = 1 AND [nctsHCCI_AdditionalInfo"& _ "rmation_9_Code] IS NULL) OR ([nctsHCCI_AdditionalInformation_9_Code] = @Original"& _ "_nctsHCCI_AdditionalInformation_9_Code)) AND ((@IsNull_nctsHCCI_AdditionalInform"& _ "ation_9_Text = 1 AND [nctsHCCI_AdditionalInformation_9_Text] IS NULL) OR ([nctsH"& _ "CCI_AdditionalInformation_9_Text] = @Original_nctsHCCI_AdditionalInformation_9_T"& _ "ext)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_NctsHCId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_NctsHCId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CommodityCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CommodityCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CommodityCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CommodityCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_MethodeOfPayment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_MethodeOfPayment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_MethodeOfPayment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_MethodeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_UNNumber_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_UNNumber_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_UNNumber_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_UNNumber_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_UNNumber_3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_UNNumber_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_UNNumber_4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_UNNumber_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_DeclarationType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_DeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_ArticleCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ArticleCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_ArticleCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ArticleCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_DescriptionOfGoods", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DescriptionOfGoods", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_DescriptionOfGoods", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DescriptionOfGoods", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CusCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CusCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CusCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CusCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CountryOfDispatch", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CountryOfDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_GrossMass", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GrossMass", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "nctsHCCI_GrossMass", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_NetMass", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_NetMass", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_NetMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 22, 6, "nctsHCCI_NetMass", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_ReferenceNumberUCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_GoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_GoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 6, "nctsHCCI_GoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_ExchangeRate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ExchangeRate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_ExchangeRate", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 4, "nctsHCCI_ExchangeRate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_ExchangeDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ExchangeDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_ExchangeDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ExchangeDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CurrencyExchangeRateType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyExchangeRateType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CurrencyExchangeRateType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyExchangeRateType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_FractionOfGoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_FractionOfGoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 2, "nctsHCCI_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_GuaranteeAmount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GuaranteeAmount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_GuaranteeAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsHCCI_GuaranteeAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Text", 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].[tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem] ([nctsH"& _ "CCI_NctsId], [nctsHCCI_NctsHCId], [nctsHCCI_GoodsItemNumber], [nctsHCCI_Declarat"& _ "ionGoodsItemNumber], [nctsHCCI_CommodityCode], [nctsHCCI_MethodeOfPayment], [nct"& _ "sHCCI_UNNumber_1], [nctsHCCI_UNNumber_2], [nctsHCCI_UNNumber_3], [nctsHCCI_UNNum"& _ "ber_4], [nctsHCCI_DeclarationType], [nctsHCCI_ArticleCode], [nctsHCCI_Descriptio"& _ "nOfGoods], [nctsHCCI_CusCode], [nctsHCCI_CountryOfDispatch], [nctsHCCI_CountryOf"& _ "Destination], [nctsHCCI_GrossMass], [nctsHCCI_NetMass], [nctsHCCI_ReferenceNumbe"& _ "rUCR], [nctsHCCI_Consignor_AdressCode], [nctsHCCI_Consignor_IdentificationNumber"& _ "], [nctsHCCI_Consignor_SubsidiaryNumber], [nctsHCCI_Consignor_Name], [nctsHCCI_C"& _ "onsignor_StreetNumber], [nctsHCCI_Consignor_City], [nctsHCCI_Consignor_Postcode]"& _ ", [nctsHCCI_Consignor_Country], [nctsHCCI_Consignor_ContactPerson_Name], [nctsHC"& _ "CI_Consignor_ContactPerson_PhoneNumber], [nctsHCCI_Consignor_ContactPerson_EMail"& _ "Address], [nctsHCCI_AdditionalSupplyChainActor_1_Role], [nctsHCCI_AdditionalSupp"& _ "lyChainActor_1_IdentificationNumber], [nctsHCCI_AdditionalSupplyChainActor_2_Rol"& _ "e], [nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber], [nctsHCCI_Addi"& _ "tionalSupplyChainActor_3_Role], [nctsHCCI_AdditionalSupplyChainActor_3_Identific"& _ "ationNumber], [nctsHCCI_AdditionalSupplyChainActor_4_Role], [nctsHCCI_Additional"& _ "SupplyChainActor_4_IdentificationNumber], [nctsHCCI_AdditionalSupplyChainActor_5"& _ "_Role], [nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber], [nctsHCCI_"& _ "AdditionalSupplyChainActor_6_Role], [nctsHCCI_AdditionalSupplyChainActor_6_Ident"& _ "ificationNumber], [nctsHCCI_AdditionalSupplyChainActor_7_Role], [nctsHCCI_Additi"& _ "onalSupplyChainActor_7_IdentificationNumber], [nctsHCCI_AdditionalSupplyChainAct"& _ "or_8_Role], [nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber], [nctsH"& _ "CCI_AdditionalSupplyChainActor_9_Role], [nctsHCCI_AdditionalSupplyChainActor_9_I"& _ "dentificationNumber], [nctsHCCI_GoodsValue], [nctsHCCI_CurrencyOfGoodsValue], [n"& _ "ctsHCCI_ExchangeRate], [nctsHCCI_ExchangeDate], [nctsHCCI_CurrencyExchangeRateTy"& _ "pe], [nctsHCCI_FractionOfGoodsValue], [nctsHCCI_GuaranteeAmount], [nctsHCCI_Prev"& _ "iousDocument_1_Type], [nctsHCCI_PreviousDocument_1_ReferenceNumber], [nctsHCCI_P"& _ "reviousDocument_1_DocumentLineItemNumber], [nctsHCCI_PreviousDocument_1_Compleme"& _ "ntOfInformation], [nctsHCCI_PreviousDocument_1_GoodsItemNumber], [nctsHCCI_Previ"& _ "ousDocument_2_Type], [nctsHCCI_PreviousDocument_2_ReferenceNumber], [nctsHCCI_Pr"& _ "eviousDocument_2_DocumentLineItemNumber], [nctsHCCI_PreviousDocument_2_Complemen"& _ "tOfInformation], [nctsHCCI_PreviousDocument_2_GoodsItemNumber], [nctsHCCI_Previo"& _ "usDocument_3_Type], [nctsHCCI_PreviousDocument_3_ReferenceNumber], [nctsHCCI_Pre"& _ "viousDocument_3_DocumentLineItemNumber], [nctsHCCI_PreviousDocument_3_Complement"& _ "OfInformation], [nctsHCCI_PreviousDocument_3_GoodsItemNumber], [nctsHCCI_Previou"& _ "sDocument_4_Type], [nctsHCCI_PreviousDocument_4_ReferenceNumber], [nctsHCCI_Prev"& _ "iousDocument_4_DocumentLineItemNumber], [nctsHCCI_PreviousDocument_4_ComplementO"& _ "fInformation], [nctsHCCI_PreviousDocument_4_GoodsItemNumber], [nctsHCCI_Previous"& _ "Document_5_Type], [nctsHCCI_PreviousDocument_5_ReferenceNumber], [nctsHCCI_Previ"& _ "ousDocument_5_DocumentLineItemNumber], [nctsHCCI_PreviousDocument_5_ComplementOf"& _ "Information], [nctsHCCI_PreviousDocument_5_GoodsItemNumber], [nctsHCCI_PreviousD"& _ "ocument_6_Type], [nctsHCCI_PreviousDocument_6_ReferenceNumber], [nctsHCCI_Previo"& _ "usDocument_6_DocumentLineItemNumber], [nctsHCCI_PreviousDocument_6_ComplementOfI"& _ "nformation], [nctsHCCI_PreviousDocument_6_GoodsItemNumber], [nctsHCCI_PreviousDo"& _ "cument_7_Type], [nctsHCCI_PreviousDocument_7_ReferenceNumber], [nctsHCCI_Previou"& _ "sDocument_7_DocumentLineItemNumber], [nctsHCCI_PreviousDocument_7_ComplementOfIn"& _ "formation], [nctsHCCI_PreviousDocument_7_GoodsItemNumber], [nctsHCCI_PreviousDoc"& _ "ument_8_Type], [nctsHCCI_PreviousDocument_8_ReferenceNumber], [nctsHCCI_Previous"& _ "Document_8_DocumentLineItemNumber], [nctsHCCI_PreviousDocument_8_ComplementOfInf"& _ "ormation], [nctsHCCI_PreviousDocument_8_GoodsItemNumber], [nctsHCCI_PreviousDocu"& _ "ment_9_Type], [nctsHCCI_PreviousDocument_9_ReferenceNumber], [nctsHCCI_PreviousD"& _ "ocument_9_DocumentLineItemNumber], [nctsHCCI_PreviousDocument_9_ComplementOfInfo"& _ "rmation], [nctsHCCI_PreviousDocument_9_GoodsItemNumber], [nctsHCCI_SupportingDoc"& _ "ument_1_Type], [nctsHCCI_SupportingDocument_1_ReferenceNumber], [nctsHCCI_Suppor"& _ "tingDocument_1_DocumentLineItemNumber], [nctsHCCI_SupportingDocument_1_Complemen"& _ "tOfInformation], [nctsHCCI_SupportingDocument_2_Type], [nctsHCCI_SupportingDocum"& _ "ent_2_ReferenceNumber], [nctsHCCI_SupportingDocument_2_DocumentLineItemNumber], "& _ "[nctsHCCI_SupportingDocument_2_ComplementOfInformation], [nctsHCCI_SupportingDoc"& _ "ument_3_Type], [nctsHCCI_SupportingDocument_3_ReferenceNumber], [nctsHCCI_Suppor"& _ "tingDocument_3_DocumentLineItemNumber], [nctsHCCI_SupportingDocument_3_Complemen"& _ "tOfInformation], [nctsHCCI_SupportingDocument_4_Type], [nctsHCCI_SupportingDocum"& _ "ent_4_ReferenceNumber], [nctsHCCI_SupportingDocument_4_DocumentLineItemNumber], "& _ "[nctsHCCI_SupportingDocument_4_ComplementOfInformation], [nctsHCCI_SupportingDoc"& _ "ument_5_Type], [nctsHCCI_SupportingDocument_5_ReferenceNumber], [nctsHCCI_Suppor"& _ "tingDocument_5_DocumentLineItemNumber], [nctsHCCI_SupportingDocument_5_Complemen"& _ "tOfInformation], [nctsHCCI_SupportingDocument_6_Type], [nctsHCCI_SupportingDocum"& _ "ent_6_ReferenceNumber], [nctsHCCI_SupportingDocument_6_DocumentLineItemNumber], "& _ "[nctsHCCI_SupportingDocument_6_ComplementOfInformation], [nctsHCCI_SupportingDoc"& _ "ument_7_Type], [nctsHCCI_SupportingDocument_7_ReferenceNumber], [nctsHCCI_Suppor"& _ "tingDocument_7_DocumentLineItemNumber], [nctsHCCI_SupportingDocument_7_Complemen"& _ "tOfInformation], [nctsHCCI_SupportingDocument_8_Type], [nctsHCCI_SupportingDocum"& _ "ent_8_ReferenceNumber], [nctsHCCI_SupportingDocument_8_DocumentLineItemNumber], "& _ "[nctsHCCI_SupportingDocument_8_ComplementOfInformation], [nctsHCCI_SupportingDoc"& _ "ument_9_Type], [nctsHCCI_SupportingDocument_9_ReferenceNumber], [nctsHCCI_Suppor"& _ "tingDocument_9_DocumentLineItemNumber], [nctsHCCI_SupportingDocument_9_Complemen"& _ "tOfInformation], [nctsHCCI_AdditionalReference_1_Type], [nctsHCCI_AdditionalRefe"& _ "rence_1_ReferenceNumber], [nctsHCCI_AdditionalReference_2_Type], [nctsHCCI_Addit"& _ "ionalReference_2_ReferenceNumber], [nctsHCCI_AdditionalReference_3_Type], [nctsH"& _ "CCI_AdditionalReference_3_ReferenceNumber], [nctsHCCI_AdditionalReference_4_Type"& _ "], [nctsHCCI_AdditionalReference_4_ReferenceNumber], [nctsHCCI_AdditionalReferen"& _ "ce_5_Type], [nctsHCCI_AdditionalReference_5_ReferenceNumber], [nctsHCCI_Addition"& _ "alReference_6_Type], [nctsHCCI_AdditionalReference_6_ReferenceNumber], [nctsHCCI"& _ "_AdditionalReference_7_Type], [nctsHCCI_AdditionalReference_7_ReferenceNumber], "& _ "[nctsHCCI_AdditionalReference_8_Type], [nctsHCCI_AdditionalReference_8_Reference"& _ "Number], [nctsHCCI_AdditionalReference_9_Type], [nctsHCCI_AdditionalReference_9_"& _ "ReferenceNumber], [nctsHCCI_AdditionalInformation_1_Code], [nctsHCCI_AdditionalI"& _ "nformation_1_Text], [nctsHCCI_AdditionalInformation_2_Code], [nctsHCCI_Additiona"& _ "lInformation_2_Text], [nctsHCCI_AdditionalInformation_3_Code], [nctsHCCI_Additio"& _ "nalInformation_3_Text], [nctsHCCI_AdditionalInformation_4_Code], [nctsHCCI_Addit"& _ "ionalInformation_4_Text], [nctsHCCI_AdditionalInformation_5_Code], [nctsHCCI_Add"& _ "itionalInformation_5_Text], [nctsHCCI_AdditionalInformation_6_Code], [nctsHCCI_A"& _ "dditionalInformation_6_Text], [nctsHCCI_AdditionalInformation_7_Code], [nctsHCCI"& _ "_AdditionalInformation_7_Text], [nctsHCCI_AdditionalInformation_8_Code], [nctsHC"& _ "CI_AdditionalInformation_8_Text], [nctsHCCI_AdditionalInformation_9_Code], [ncts"& _ "HCCI_AdditionalInformation_9_Text]) VALUES (@nctsHCCI_NctsId, @nctsHCCI_NctsHCId"& _ ", @nctsHCCI_GoodsItemNumber, @nctsHCCI_DeclarationGoodsItemNumber, @nctsHCCI_Com"& _ "modityCode, @nctsHCCI_MethodeOfPayment, @nctsHCCI_UNNumber_1, @nctsHCCI_UNNumber"& _ "_2, @nctsHCCI_UNNumber_3, @nctsHCCI_UNNumber_4, @nctsHCCI_DeclarationType, @ncts"& _ "HCCI_ArticleCode, @nctsHCCI_DescriptionOfGoods, @nctsHCCI_CusCode, @nctsHCCI_Cou"& _ "ntryOfDispatch, @nctsHCCI_CountryOfDestination, @nctsHCCI_GrossMass, @nctsHCCI_N"& _ "etMass, @nctsHCCI_ReferenceNumberUCR, @nctsHCCI_Consignor_AdressCode, @nctsHCCI_"& _ "Consignor_IdentificationNumber, @nctsHCCI_Consignor_SubsidiaryNumber, @nctsHCCI_"& _ "Consignor_Name, @nctsHCCI_Consignor_StreetNumber, @nctsHCCI_Consignor_City, @nct"& _ "sHCCI_Consignor_Postcode, @nctsHCCI_Consignor_Country, @nctsHCCI_Consignor_Conta"& _ "ctPerson_Name, @nctsHCCI_Consignor_ContactPerson_PhoneNumber, @nctsHCCI_Consigno"& _ "r_ContactPerson_EMailAddress, @nctsHCCI_AdditionalSupplyChainActor_1_Role, @ncts"& _ "HCCI_AdditionalSupplyChainActor_1_IdentificationNumber, @nctsHCCI_AdditionalSupp"& _ "lyChainActor_2_Role, @nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber"& _ ", @nctsHCCI_AdditionalSupplyChainActor_3_Role, @nctsHCCI_AdditionalSupplyChainAc"& _ "tor_3_IdentificationNumber, @nctsHCCI_AdditionalSupplyChainActor_4_Role, @nctsHC"& _ "CI_AdditionalSupplyChainActor_4_IdentificationNumber, @nctsHCCI_AdditionalSupply"& _ "ChainActor_5_Role, @nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber, "& _ "@nctsHCCI_AdditionalSupplyChainActor_6_Role, @nctsHCCI_AdditionalSupplyChainActo"& _ "r_6_IdentificationNumber, @nctsHCCI_AdditionalSupplyChainActor_7_Role, @nctsHCCI"& _ "_AdditionalSupplyChainActor_7_IdentificationNumber, @nctsHCCI_AdditionalSupplyCh"& _ "ainActor_8_Role, @nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber, @n"& _ "ctsHCCI_AdditionalSupplyChainActor_9_Role, @nctsHCCI_AdditionalSupplyChainActor_"& _ "9_IdentificationNumber, @nctsHCCI_GoodsValue, @nctsHCCI_CurrencyOfGoodsValue, @n"& _ "ctsHCCI_ExchangeRate, @nctsHCCI_ExchangeDate, @nctsHCCI_CurrencyExchangeRateType"& _ ", @nctsHCCI_FractionOfGoodsValue, @nctsHCCI_GuaranteeAmount, @nctsHCCI_PreviousD"& _ "ocument_1_Type, @nctsHCCI_PreviousDocument_1_ReferenceNumber, @nctsHCCI_Previous"& _ "Document_1_DocumentLineItemNumber, @nctsHCCI_PreviousDocument_1_ComplementOfInfo"& _ "rmation, @nctsHCCI_PreviousDocument_1_GoodsItemNumber, @nctsHCCI_PreviousDocumen"& _ "t_2_Type, @nctsHCCI_PreviousDocument_2_ReferenceNumber, @nctsHCCI_PreviousDocume"& _ "nt_2_DocumentLineItemNumber, @nctsHCCI_PreviousDocument_2_ComplementOfInformatio"& _ "n, @nctsHCCI_PreviousDocument_2_GoodsItemNumber, @nctsHCCI_PreviousDocument_3_Ty"& _ "pe, @nctsHCCI_PreviousDocument_3_ReferenceNumber, @nctsHCCI_PreviousDocument_3_D"& _ "ocumentLineItemNumber, @nctsHCCI_PreviousDocument_3_ComplementOfInformation, @nc"& _ "tsHCCI_PreviousDocument_3_GoodsItemNumber, @nctsHCCI_PreviousDocument_4_Type, @n"& _ "ctsHCCI_PreviousDocument_4_ReferenceNumber, @nctsHCCI_PreviousDocument_4_Documen"& _ "tLineItemNumber, @nctsHCCI_PreviousDocument_4_ComplementOfInformation, @nctsHCCI"& _ "_PreviousDocument_4_GoodsItemNumber, @nctsHCCI_PreviousDocument_5_Type, @nctsHCC"& _ "I_PreviousDocument_5_ReferenceNumber, @nctsHCCI_PreviousDocument_5_DocumentLineI"& _ "temNumber, @nctsHCCI_PreviousDocument_5_ComplementOfInformation, @nctsHCCI_Previ"& _ "ousDocument_5_GoodsItemNumber, @nctsHCCI_PreviousDocument_6_Type, @nctsHCCI_Prev"& _ "iousDocument_6_ReferenceNumber, @nctsHCCI_PreviousDocument_6_DocumentLineItemNum"& _ "ber, @nctsHCCI_PreviousDocument_6_ComplementOfInformation, @nctsHCCI_PreviousDoc"& _ "ument_6_GoodsItemNumber, @nctsHCCI_PreviousDocument_7_Type, @nctsHCCI_PreviousDo"& _ "cument_7_ReferenceNumber, @nctsHCCI_PreviousDocument_7_DocumentLineItemNumber, @"& _ "nctsHCCI_PreviousDocument_7_ComplementOfInformation, @nctsHCCI_PreviousDocument_"& _ "7_GoodsItemNumber, @nctsHCCI_PreviousDocument_8_Type, @nctsHCCI_PreviousDocument"& _ "_8_ReferenceNumber, @nctsHCCI_PreviousDocument_8_DocumentLineItemNumber, @nctsHC"& _ "CI_PreviousDocument_8_ComplementOfInformation, @nctsHCCI_PreviousDocument_8_Good"& _ "sItemNumber, @nctsHCCI_PreviousDocument_9_Type, @nctsHCCI_PreviousDocument_9_Ref"& _ "erenceNumber, @nctsHCCI_PreviousDocument_9_DocumentLineItemNumber, @nctsHCCI_Pre"& _ "viousDocument_9_ComplementOfInformation, @nctsHCCI_PreviousDocument_9_GoodsItemN"& _ "umber, @nctsHCCI_SupportingDocument_1_Type, @nctsHCCI_SupportingDocument_1_Refer"& _ "enceNumber, @nctsHCCI_SupportingDocument_1_DocumentLineItemNumber, @nctsHCCI_Sup"& _ "portingDocument_1_ComplementOfInformation, @nctsHCCI_SupportingDocument_2_Type, "& _ "@nctsHCCI_SupportingDocument_2_ReferenceNumber, @nctsHCCI_SupportingDocument_2_D"& _ "ocumentLineItemNumber, @nctsHCCI_SupportingDocument_2_ComplementOfInformation, @"& _ "nctsHCCI_SupportingDocument_3_Type, @nctsHCCI_SupportingDocument_3_ReferenceNumb"& _ "er, @nctsHCCI_SupportingDocument_3_DocumentLineItemNumber, @nctsHCCI_SupportingD"& _ "ocument_3_ComplementOfInformation, @nctsHCCI_SupportingDocument_4_Type, @nctsHCC"& _ "I_SupportingDocument_4_ReferenceNumber, @nctsHCCI_SupportingDocument_4_DocumentL"& _ "ineItemNumber, @nctsHCCI_SupportingDocument_4_ComplementOfInformation, @nctsHCCI"& _ "_SupportingDocument_5_Type, @nctsHCCI_SupportingDocument_5_ReferenceNumber, @nct"& _ "sHCCI_SupportingDocument_5_DocumentLineItemNumber, @nctsHCCI_SupportingDocument_"& _ "5_ComplementOfInformation, @nctsHCCI_SupportingDocument_6_Type, @nctsHCCI_Suppor"& _ "tingDocument_6_ReferenceNumber, @nctsHCCI_SupportingDocument_6_DocumentLineItemN"& _ "umber, @nctsHCCI_SupportingDocument_6_ComplementOfInformation, @nctsHCCI_Support"& _ "ingDocument_7_Type, @nctsHCCI_SupportingDocument_7_ReferenceNumber, @nctsHCCI_Su"& _ "pportingDocument_7_DocumentLineItemNumber, @nctsHCCI_SupportingDocument_7_Comple"& _ "mentOfInformation, @nctsHCCI_SupportingDocument_8_Type, @nctsHCCI_SupportingDocu"& _ "ment_8_ReferenceNumber, @nctsHCCI_SupportingDocument_8_DocumentLineItemNumber, @"& _ "nctsHCCI_SupportingDocument_8_ComplementOfInformation, @nctsHCCI_SupportingDocum"& _ "ent_9_Type, @nctsHCCI_SupportingDocument_9_ReferenceNumber, @nctsHCCI_Supporting"& _ "Document_9_DocumentLineItemNumber, @nctsHCCI_SupportingDocument_9_ComplementOfIn"& _ "formation, @nctsHCCI_AdditionalReference_1_Type, @nctsHCCI_AdditionalReference_1"& _ "_ReferenceNumber, @nctsHCCI_AdditionalReference_2_Type, @nctsHCCI_AdditionalRefe"& _ "rence_2_ReferenceNumber, @nctsHCCI_AdditionalReference_3_Type, @nctsHCCI_Additio"& _ "nalReference_3_ReferenceNumber, @nctsHCCI_AdditionalReference_4_Type, @nctsHCCI_"& _ "AdditionalReference_4_ReferenceNumber, @nctsHCCI_AdditionalReference_5_Type, @nc"& _ "tsHCCI_AdditionalReference_5_ReferenceNumber, @nctsHCCI_AdditionalReference_6_Ty"& _ "pe, @nctsHCCI_AdditionalReference_6_ReferenceNumber, @nctsHCCI_AdditionalReferen"& _ "ce_7_Type, @nctsHCCI_AdditionalReference_7_ReferenceNumber, @nctsHCCI_Additional"& _ "Reference_8_Type, @nctsHCCI_AdditionalReference_8_ReferenceNumber, @nctsHCCI_Add"& _ "itionalReference_9_Type, @nctsHCCI_AdditionalReference_9_ReferenceNumber, @nctsH"& _ "CCI_AdditionalInformation_1_Code, @nctsHCCI_AdditionalInformation_1_Text, @nctsH"& _ "CCI_AdditionalInformation_2_Code, @nctsHCCI_AdditionalInformation_2_Text, @nctsH"& _ "CCI_AdditionalInformation_3_Code, @nctsHCCI_AdditionalInformation_3_Text, @nctsH"& _ "CCI_AdditionalInformation_4_Code, @nctsHCCI_AdditionalInformation_4_Text, @nctsH"& _ "CCI_AdditionalInformation_5_Code, @nctsHCCI_AdditionalInformation_5_Text, @nctsH"& _ "CCI_AdditionalInformation_6_Code, @nctsHCCI_AdditionalInformation_6_Text, @nctsH"& _ "CCI_AdditionalInformation_7_Code, @nctsHCCI_AdditionalInformation_7_Text, @nctsH"& _ "CCI_AdditionalInformation_8_Code, @nctsHCCI_AdditionalInformation_8_Text, @nctsH"& _ "CCI_AdditionalInformation_9_Code, @nctsHCCI_AdditionalInformation_9_Text);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ "CT nctsHCCI_Id, nctsHCCI_NctsId, nctsHCCI_NctsHCId, nctsHCCI_GoodsItemNumber, nc"& _ "tsHCCI_DeclarationGoodsItemNumber, nctsHCCI_CommodityCode, nctsHCCI_MethodeOfPay"& _ "ment, nctsHCCI_UNNumber_1, nctsHCCI_UNNumber_2, nctsHCCI_UNNumber_3, nctsHCCI_UN"& _ "Number_4, nctsHCCI_DeclarationType, nctsHCCI_ArticleCode, nctsHCCI_DescriptionOf"& _ "Goods, nctsHCCI_CusCode, nctsHCCI_CountryOfDispatch, nctsHCCI_CountryOfDestinati"& _ "on, nctsHCCI_GrossMass, nctsHCCI_NetMass, nctsHCCI_ReferenceNumberUCR, nctsHCCI_"& _ "Consignor_AdressCode, nctsHCCI_Consignor_IdentificationNumber, nctsHCCI_Consigno"& _ "r_SubsidiaryNumber, nctsHCCI_Consignor_Name, nctsHCCI_Consignor_StreetNumber, nc"& _ "tsHCCI_Consignor_City, nctsHCCI_Consignor_Postcode, nctsHCCI_Consignor_Country, "& _ "nctsHCCI_Consignor_ContactPerson_Name, nctsHCCI_Consignor_ContactPerson_PhoneNum"& _ "ber, nctsHCCI_Consignor_ContactPerson_EMailAddress, nctsHCCI_AdditionalSupplyCha"& _ "inActor_1_Role, nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber, ncts"& _ "HCCI_AdditionalSupplyChainActor_2_Role, nctsHCCI_AdditionalSupplyChainActor_2_Id"& _ "entificationNumber, nctsHCCI_AdditionalSupplyChainActor_3_Role, nctsHCCI_Additio"& _ "nalSupplyChainActor_3_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_"& _ "4_Role, nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber, nctsHCCI_Add"& _ "itionalSupplyChainActor_5_Role, nctsHCCI_AdditionalSupplyChainActor_5_Identifica"& _ "tionNumber, nctsHCCI_AdditionalSupplyChainActor_6_Role, nctsHCCI_AdditionalSuppl"& _ "yChainActor_6_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_7_Role, "& _ "nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber, nctsHCCI_AdditionalS"& _ "upplyChainActor_8_Role, nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumb"& _ "er, nctsHCCI_AdditionalSupplyChainActor_9_Role, nctsHCCI_AdditionalSupplyChainAc"& _ "tor_9_IdentificationNumber, nctsHCCI_GoodsValue, nctsHCCI_CurrencyOfGoodsValue, "& _ "nctsHCCI_ExchangeRate, nctsHCCI_ExchangeDate, nctsHCCI_CurrencyExchangeRateType,"& _ " nctsHCCI_FractionOfGoodsValue, nctsHCCI_GuaranteeAmount, nctsHCCI_PreviousDocum"& _ "ent_1_Type, nctsHCCI_PreviousDocument_1_ReferenceNumber, nctsHCCI_PreviousDocume"& _ "nt_1_DocumentLineItemNumber, nctsHCCI_PreviousDocument_1_ComplementOfInformation"& _ ", nctsHCCI_PreviousDocument_1_GoodsItemNumber, nctsHCCI_PreviousDocument_2_Type,"& _ " nctsHCCI_PreviousDocument_2_ReferenceNumber, nctsHCCI_PreviousDocument_2_Docume"& _ "ntLineItemNumber, nctsHCCI_PreviousDocument_2_ComplementOfInformation, nctsHCCI_"& _ "PreviousDocument_2_GoodsItemNumber, nctsHCCI_PreviousDocument_3_Type, nctsHCCI_P"& _ "reviousDocument_3_ReferenceNumber, nctsHCCI_PreviousDocument_3_DocumentLineItemN"& _ "umber, nctsHCCI_PreviousDocument_3_ComplementOfInformation, nctsHCCI_PreviousDoc"& _ "ument_3_GoodsItemNumber, nctsHCCI_PreviousDocument_4_Type, nctsHCCI_PreviousDocu"& _ "ment_4_ReferenceNumber, nctsHCCI_PreviousDocument_4_DocumentLineItemNumber, ncts"& _ "HCCI_PreviousDocument_4_ComplementOfInformation, nctsHCCI_PreviousDocument_4_Goo"& _ "dsItemNumber, nctsHCCI_PreviousDocument_5_Type, nctsHCCI_PreviousDocument_5_Refe"& _ "renceNumber, nctsHCCI_PreviousDocument_5_DocumentLineItemNumber, nctsHCCI_Previo"& _ "usDocument_5_ComplementOfInformation, nctsHCCI_PreviousDocument_5_GoodsItemNumbe"& _ "r, nctsHCCI_PreviousDocument_6_Type, nctsHCCI_PreviousDocument_6_ReferenceNumber"& _ ", nctsHCCI_PreviousDocument_6_DocumentLineItemNumber, nctsHCCI_PreviousDocument_"& _ "6_ComplementOfInformation, nctsHCCI_PreviousDocument_6_GoodsItemNumber, nctsHCCI"& _ "_PreviousDocument_7_Type, nctsHCCI_PreviousDocument_7_ReferenceNumber, nctsHCCI_"& _ "PreviousDocument_7_DocumentLineItemNumber, nctsHCCI_PreviousDocument_7_Complemen"& _ "tOfInformation, nctsHCCI_PreviousDocument_7_GoodsItemNumber, nctsHCCI_PreviousDo"& _ "cument_8_Type, nctsHCCI_PreviousDocument_8_ReferenceNumber, nctsHCCI_PreviousDoc"& _ "ument_8_DocumentLineItemNumber, nctsHCCI_PreviousDocument_8_ComplementOfInformat"& _ "ion, nctsHCCI_PreviousDocument_8_GoodsItemNumber, nctsHCCI_PreviousDocument_9_Ty"& _ "pe, nctsHCCI_PreviousDocument_9_ReferenceNumber, nctsHCCI_PreviousDocument_9_Doc"& _ "umentLineItemNumber, nctsHCCI_PreviousDocument_9_ComplementOfInformation, nctsHC"& _ "CI_PreviousDocument_9_GoodsItemNumber, nctsHCCI_SupportingDocument_1_Type, nctsH"& _ "CCI_SupportingDocument_1_ReferenceNumber, nctsHCCI_SupportingDocument_1_Document"& _ "LineItemNumber, nctsHCCI_SupportingDocument_1_ComplementOfInformation, nctsHCCI_"& _ "SupportingDocument_2_Type, nctsHCCI_SupportingDocument_2_ReferenceNumber, nctsHC"& _ "CI_SupportingDocument_2_DocumentLineItemNumber, nctsHCCI_SupportingDocument_2_Co"& _ "mplementOfInformation, nctsHCCI_SupportingDocument_3_Type, nctsHCCI_SupportingDo"& _ "cument_3_ReferenceNumber, nctsHCCI_SupportingDocument_3_DocumentLineItemNumber, "& _ "nctsHCCI_SupportingDocument_3_ComplementOfInformation, nctsHCCI_SupportingDocume"& _ "nt_4_Type, nctsHCCI_SupportingDocument_4_ReferenceNumber, nctsHCCI_SupportingDoc"& _ "ument_4_DocumentLineItemNumber, nctsHCCI_SupportingDocument_4_ComplementOfInform"& _ "ation, nctsHCCI_SupportingDocument_5_Type, nctsHCCI_SupportingDocument_5_Referen"& _ "ceNumber, nctsHCCI_SupportingDocument_5_DocumentLineItemNumber, nctsHCCI_Support"& _ "ingDocument_5_ComplementOfInformation, nctsHCCI_SupportingDocument_6_Type, nctsH"& _ "CCI_SupportingDocument_6_ReferenceNumber, nctsHCCI_SupportingDocument_6_Document"& _ "LineItemNumber, nctsHCCI_SupportingDocument_6_ComplementOfInformation, nctsHCCI_"& _ "SupportingDocument_7_Type, nctsHCCI_SupportingDocument_7_ReferenceNumber, nctsHC"& _ "CI_SupportingDocument_7_DocumentLineItemNumber, nctsHCCI_SupportingDocument_7_Co"& _ "mplementOfInformation, nctsHCCI_SupportingDocument_8_Type, nctsHCCI_SupportingDo"& _ "cument_8_ReferenceNumber, nctsHCCI_SupportingDocument_8_DocumentLineItemNumber, "& _ "nctsHCCI_SupportingDocument_8_ComplementOfInformation, nctsHCCI_SupportingDocume"& _ "nt_9_Type, nctsHCCI_SupportingDocument_9_ReferenceNumber, nctsHCCI_SupportingDoc"& _ "ument_9_DocumentLineItemNumber, nctsHCCI_SupportingDocument_9_ComplementOfInform"& _ "ation, nctsHCCI_AdditionalReference_1_Type, nctsHCCI_AdditionalReference_1_Refer"& _ "enceNumber, nctsHCCI_AdditionalReference_2_Type, nctsHCCI_AdditionalReference_2_"& _ "ReferenceNumber, nctsHCCI_AdditionalReference_3_Type, nctsHCCI_AdditionalReferen"& _ "ce_3_ReferenceNumber, nctsHCCI_AdditionalReference_4_Type, nctsHCCI_AdditionalRe"& _ "ference_4_ReferenceNumber, nctsHCCI_AdditionalReference_5_Type, nctsHCCI_Additio"& _ "nalReference_5_ReferenceNumber, nctsHCCI_AdditionalReference_6_Type, nctsHCCI_Ad"& _ "ditionalReference_6_ReferenceNumber, nctsHCCI_AdditionalReference_7_Type, nctsHC"& _ "CI_AdditionalReference_7_ReferenceNumber, nctsHCCI_AdditionalReference_8_Type, n"& _ "ctsHCCI_AdditionalReference_8_ReferenceNumber, nctsHCCI_AdditionalReference_9_Ty"& _ "pe, nctsHCCI_AdditionalReference_9_ReferenceNumber, nctsHCCI_AdditionalInformati"& _ "on_1_Code, nctsHCCI_AdditionalInformation_1_Text, nctsHCCI_AdditionalInformation"& _ "_2_Code, nctsHCCI_AdditionalInformation_2_Text, nctsHCCI_AdditionalInformation_3"& _ "_Code, nctsHCCI_AdditionalInformation_3_Text, nctsHCCI_AdditionalInformation_4_C"& _ "ode, nctsHCCI_AdditionalInformation_4_Text, nctsHCCI_AdditionalInformation_5_Cod"& _ "e, nctsHCCI_AdditionalInformation_5_Text, nctsHCCI_AdditionalInformation_6_Code,"& _ " nctsHCCI_AdditionalInformation_6_Text, nctsHCCI_AdditionalInformation_7_Code, n"& _ "ctsHCCI_AdditionalInformation_7_Text, nctsHCCI_AdditionalInformation_8_Code, nct"& _ "sHCCI_AdditionalInformation_8_Text, nctsHCCI_AdditionalInformation_9_Code, nctsH"& _ "CCI_AdditionalInformation_9_Text FROM tblDakosy_NCTSOut004_HouseConsignment_Cons"& _ "ignmentItem WHERE (nctsHCCI_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_NctsHCId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_NctsHCId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CommodityCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CommodityCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_MethodeOfPayment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_MethodeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_UNNumber_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_UNNumber_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_UNNumber_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_UNNumber_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_DeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_ArticleCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ArticleCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_DescriptionOfGoods", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DescriptionOfGoods", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CusCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CusCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDispatch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "nctsHCCI_GrossMass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_NetMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 22, 6, "nctsHCCI_NetMass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_GoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 6, "nctsHCCI_GoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_ExchangeRate", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 4, "nctsHCCI_ExchangeRate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_ExchangeDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ExchangeDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CurrencyExchangeRateType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyExchangeRateType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_FractionOfGoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 2, "nctsHCCI_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_GuaranteeAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsHCCI_GuaranteeAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Text", 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].[tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem] SET [nctsHCC"& _ "I_NctsId] = @nctsHCCI_NctsId, [nctsHCCI_NctsHCId] = @nctsHCCI_NctsHCId, [nctsHCC"& _ "I_GoodsItemNumber] = @nctsHCCI_GoodsItemNumber, [nctsHCCI_DeclarationGoodsItemNu"& _ "mber] = @nctsHCCI_DeclarationGoodsItemNumber, [nctsHCCI_CommodityCode] = @nctsHC"& _ "CI_CommodityCode, [nctsHCCI_MethodeOfPayment] = @nctsHCCI_MethodeOfPayment, [nct"& _ "sHCCI_UNNumber_1] = @nctsHCCI_UNNumber_1, [nctsHCCI_UNNumber_2] = @nctsHCCI_UNNu"& _ "mber_2, [nctsHCCI_UNNumber_3] = @nctsHCCI_UNNumber_3, [nctsHCCI_UNNumber_4] = @n"& _ "ctsHCCI_UNNumber_4, [nctsHCCI_DeclarationType] = @nctsHCCI_DeclarationType, [nct"& _ "sHCCI_ArticleCode] = @nctsHCCI_ArticleCode, [nctsHCCI_DescriptionOfGoods] = @nct"& _ "sHCCI_DescriptionOfGoods, [nctsHCCI_CusCode] = @nctsHCCI_CusCode, [nctsHCCI_Coun"& _ "tryOfDispatch] = @nctsHCCI_CountryOfDispatch, [nctsHCCI_CountryOfDestination] = "& _ "@nctsHCCI_CountryOfDestination, [nctsHCCI_GrossMass] = @nctsHCCI_GrossMass, [nct"& _ "sHCCI_NetMass] = @nctsHCCI_NetMass, [nctsHCCI_ReferenceNumberUCR] = @nctsHCCI_Re"& _ "ferenceNumberUCR, [nctsHCCI_Consignor_AdressCode] = @nctsHCCI_Consignor_AdressCo"& _ "de, [nctsHCCI_Consignor_IdentificationNumber] = @nctsHCCI_Consignor_Identificati"& _ "onNumber, [nctsHCCI_Consignor_SubsidiaryNumber] = @nctsHCCI_Consignor_Subsidiary"& _ "Number, [nctsHCCI_Consignor_Name] = @nctsHCCI_Consignor_Name, [nctsHCCI_Consigno"& _ "r_StreetNumber] = @nctsHCCI_Consignor_StreetNumber, [nctsHCCI_Consignor_City] = "& _ "@nctsHCCI_Consignor_City, [nctsHCCI_Consignor_Postcode] = @nctsHCCI_Consignor_Po"& _ "stcode, [nctsHCCI_Consignor_Country] = @nctsHCCI_Consignor_Country, [nctsHCCI_Co"& _ "nsignor_ContactPerson_Name] = @nctsHCCI_Consignor_ContactPerson_Name, [nctsHCCI_"& _ "Consignor_ContactPerson_PhoneNumber] = @nctsHCCI_Consignor_ContactPerson_PhoneNu"& _ "mber, [nctsHCCI_Consignor_ContactPerson_EMailAddress] = @nctsHCCI_Consignor_Cont"& _ "actPerson_EMailAddress, [nctsHCCI_AdditionalSupplyChainActor_1_Role] = @nctsHCCI"& _ "_AdditionalSupplyChainActor_1_Role, [nctsHCCI_AdditionalSupplyChainActor_1_Ident"& _ "ificationNumber] = @nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber, "& _ "[nctsHCCI_AdditionalSupplyChainActor_2_Role] = @nctsHCCI_AdditionalSupplyChainAc"& _ "tor_2_Role, [nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber] = @ncts"& _ "HCCI_AdditionalSupplyChainActor_2_IdentificationNumber, [nctsHCCI_AdditionalSupp"& _ "lyChainActor_3_Role] = @nctsHCCI_AdditionalSupplyChainActor_3_Role, [nctsHCCI_Ad"& _ "ditionalSupplyChainActor_3_IdentificationNumber] = @nctsHCCI_AdditionalSupplyCha"& _ "inActor_3_IdentificationNumber, [nctsHCCI_AdditionalSupplyChainActor_4_Role] = @"& _ "nctsHCCI_AdditionalSupplyChainActor_4_Role, [nctsHCCI_AdditionalSupplyChainActor"& _ "_4_IdentificationNumber] = @nctsHCCI_AdditionalSupplyChainActor_4_Identification"& _ "Number, [nctsHCCI_AdditionalSupplyChainActor_5_Role] = @nctsHCCI_AdditionalSuppl"& _ "yChainActor_5_Role, [nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber]"& _ " = @nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber, [nctsHCCI_Additi"& _ "onalSupplyChainActor_6_Role] = @nctsHCCI_AdditionalSupplyChainActor_6_Role, [nct"& _ "sHCCI_AdditionalSupplyChainActor_6_IdentificationNumber] = @nctsHCCI_AdditionalS"& _ "upplyChainActor_6_IdentificationNumber, [nctsHCCI_AdditionalSupplyChainActor_7_R"& _ "ole] = @nctsHCCI_AdditionalSupplyChainActor_7_Role, [nctsHCCI_AdditionalSupplyCh"& _ "ainActor_7_IdentificationNumber] = @nctsHCCI_AdditionalSupplyChainActor_7_Identi"& _ "ficationNumber, [nctsHCCI_AdditionalSupplyChainActor_8_Role] = @nctsHCCI_Additio"& _ "nalSupplyChainActor_8_Role, [nctsHCCI_AdditionalSupplyChainActor_8_Identificatio"& _ "nNumber] = @nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber, [nctsHCC"& _ "I_AdditionalSupplyChainActor_9_Role] = @nctsHCCI_AdditionalSupplyChainActor_9_Ro"& _ "le, [nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber] = @nctsHCCI_Add"& _ "itionalSupplyChainActor_9_IdentificationNumber, [nctsHCCI_GoodsValue] = @nctsHCC"& _ "I_GoodsValue, [nctsHCCI_CurrencyOfGoodsValue] = @nctsHCCI_CurrencyOfGoodsValue, "& _ "[nctsHCCI_ExchangeRate] = @nctsHCCI_ExchangeRate, [nctsHCCI_ExchangeDate] = @nct"& _ "sHCCI_ExchangeDate, [nctsHCCI_CurrencyExchangeRateType] = @nctsHCCI_CurrencyExch"& _ "angeRateType, [nctsHCCI_FractionOfGoodsValue] = @nctsHCCI_FractionOfGoodsValue, "& _ "[nctsHCCI_GuaranteeAmount] = @nctsHCCI_GuaranteeAmount, [nctsHCCI_PreviousDocume"& _ "nt_1_Type] = @nctsHCCI_PreviousDocument_1_Type, [nctsHCCI_PreviousDocument_1_Ref"& _ "erenceNumber] = @nctsHCCI_PreviousDocument_1_ReferenceNumber, [nctsHCCI_Previous"& _ "Document_1_DocumentLineItemNumber] = @nctsHCCI_PreviousDocument_1_DocumentLineIt"& _ "emNumber, [nctsHCCI_PreviousDocument_1_ComplementOfInformation] = @nctsHCCI_Prev"& _ "iousDocument_1_ComplementOfInformation, [nctsHCCI_PreviousDocument_1_GoodsItemNu"& _ "mber] = @nctsHCCI_PreviousDocument_1_GoodsItemNumber, [nctsHCCI_PreviousDocument"& _ "_2_Type] = @nctsHCCI_PreviousDocument_2_Type, [nctsHCCI_PreviousDocument_2_Refer"& _ "enceNumber] = @nctsHCCI_PreviousDocument_2_ReferenceNumber, [nctsHCCI_PreviousDo"& _ "cument_2_DocumentLineItemNumber] = @nctsHCCI_PreviousDocument_2_DocumentLineItem"& _ "Number, [nctsHCCI_PreviousDocument_2_ComplementOfInformation] = @nctsHCCI_Previo"& _ "usDocument_2_ComplementOfInformation, [nctsHCCI_PreviousDocument_2_GoodsItemNumb"& _ "er] = @nctsHCCI_PreviousDocument_2_GoodsItemNumber, [nctsHCCI_PreviousDocument_3"& _ "_Type] = @nctsHCCI_PreviousDocument_3_Type, [nctsHCCI_PreviousDocument_3_Referen"& _ "ceNumber] = @nctsHCCI_PreviousDocument_3_ReferenceNumber, [nctsHCCI_PreviousDocu"& _ "ment_3_DocumentLineItemNumber] = @nctsHCCI_PreviousDocument_3_DocumentLineItemNu"& _ "mber, [nctsHCCI_PreviousDocument_3_ComplementOfInformation] = @nctsHCCI_Previous"& _ "Document_3_ComplementOfInformation, [nctsHCCI_PreviousDocument_3_GoodsItemNumber"& _ "] = @nctsHCCI_PreviousDocument_3_GoodsItemNumber, [nctsHCCI_PreviousDocument_4_T"& _ "ype] = @nctsHCCI_PreviousDocument_4_Type, [nctsHCCI_PreviousDocument_4_Reference"& _ "Number] = @nctsHCCI_PreviousDocument_4_ReferenceNumber, [nctsHCCI_PreviousDocume"& _ "nt_4_DocumentLineItemNumber] = @nctsHCCI_PreviousDocument_4_DocumentLineItemNumb"& _ "er, [nctsHCCI_PreviousDocument_4_ComplementOfInformation] = @nctsHCCI_PreviousDo"& _ "cument_4_ComplementOfInformation, [nctsHCCI_PreviousDocument_4_GoodsItemNumber] "& _ "= @nctsHCCI_PreviousDocument_4_GoodsItemNumber, [nctsHCCI_PreviousDocument_5_Typ"& _ "e] = @nctsHCCI_PreviousDocument_5_Type, [nctsHCCI_PreviousDocument_5_ReferenceNu"& _ "mber] = @nctsHCCI_PreviousDocument_5_ReferenceNumber, [nctsHCCI_PreviousDocument"& _ "_5_DocumentLineItemNumber] = @nctsHCCI_PreviousDocument_5_DocumentLineItemNumber"& _ ", [nctsHCCI_PreviousDocument_5_ComplementOfInformation] = @nctsHCCI_PreviousDocu"& _ "ment_5_ComplementOfInformation, [nctsHCCI_PreviousDocument_5_GoodsItemNumber] = "& _ "@nctsHCCI_PreviousDocument_5_GoodsItemNumber, [nctsHCCI_PreviousDocument_6_Type]"& _ " = @nctsHCCI_PreviousDocument_6_Type, [nctsHCCI_PreviousDocument_6_ReferenceNumb"& _ "er] = @nctsHCCI_PreviousDocument_6_ReferenceNumber, [nctsHCCI_PreviousDocument_6"& _ "_DocumentLineItemNumber] = @nctsHCCI_PreviousDocument_6_DocumentLineItemNumber, "& _ "[nctsHCCI_PreviousDocument_6_ComplementOfInformation] = @nctsHCCI_PreviousDocume"& _ "nt_6_ComplementOfInformation, [nctsHCCI_PreviousDocument_6_GoodsItemNumber] = @n"& _ "ctsHCCI_PreviousDocument_6_GoodsItemNumber, [nctsHCCI_PreviousDocument_7_Type] ="& _ " @nctsHCCI_PreviousDocument_7_Type, [nctsHCCI_PreviousDocument_7_ReferenceNumber"& _ "] = @nctsHCCI_PreviousDocument_7_ReferenceNumber, [nctsHCCI_PreviousDocument_7_D"& _ "ocumentLineItemNumber] = @nctsHCCI_PreviousDocument_7_DocumentLineItemNumber, [n"& _ "ctsHCCI_PreviousDocument_7_ComplementOfInformation] = @nctsHCCI_PreviousDocument"& _ "_7_ComplementOfInformation, [nctsHCCI_PreviousDocument_7_GoodsItemNumber] = @nct"& _ "sHCCI_PreviousDocument_7_GoodsItemNumber, [nctsHCCI_PreviousDocument_8_Type] = @"& _ "nctsHCCI_PreviousDocument_8_Type, [nctsHCCI_PreviousDocument_8_ReferenceNumber] "& _ "= @nctsHCCI_PreviousDocument_8_ReferenceNumber, [nctsHCCI_PreviousDocument_8_Doc"& _ "umentLineItemNumber] = @nctsHCCI_PreviousDocument_8_DocumentLineItemNumber, [nct"& _ "sHCCI_PreviousDocument_8_ComplementOfInformation] = @nctsHCCI_PreviousDocument_8"& _ "_ComplementOfInformation, [nctsHCCI_PreviousDocument_8_GoodsItemNumber] = @nctsH"& _ "CCI_PreviousDocument_8_GoodsItemNumber, [nctsHCCI_PreviousDocument_9_Type] = @nc"& _ "tsHCCI_PreviousDocument_9_Type, [nctsHCCI_PreviousDocument_9_ReferenceNumber] = "& _ "@nctsHCCI_PreviousDocument_9_ReferenceNumber, [nctsHCCI_PreviousDocument_9_Docum"& _ "entLineItemNumber] = @nctsHCCI_PreviousDocument_9_DocumentLineItemNumber, [nctsH"& _ "CCI_PreviousDocument_9_ComplementOfInformation] = @nctsHCCI_PreviousDocument_9_C"& _ "omplementOfInformation, [nctsHCCI_PreviousDocument_9_GoodsItemNumber] = @nctsHCC"& _ "I_PreviousDocument_9_GoodsItemNumber, [nctsHCCI_SupportingDocument_1_Type] = @nc"& _ "tsHCCI_SupportingDocument_1_Type, [nctsHCCI_SupportingDocument_1_ReferenceNumber"& _ "] = @nctsHCCI_SupportingDocument_1_ReferenceNumber, [nctsHCCI_SupportingDocument"& _ "_1_DocumentLineItemNumber] = @nctsHCCI_SupportingDocument_1_DocumentLineItemNumb"& _ "er, [nctsHCCI_SupportingDocument_1_ComplementOfInformation] = @nctsHCCI_Supporti"& _ "ngDocument_1_ComplementOfInformation, [nctsHCCI_SupportingDocument_2_Type] = @nc"& _ "tsHCCI_SupportingDocument_2_Type, [nctsHCCI_SupportingDocument_2_ReferenceNumber"& _ "] = @nctsHCCI_SupportingDocument_2_ReferenceNumber, [nctsHCCI_SupportingDocument"& _ "_2_DocumentLineItemNumber] = @nctsHCCI_SupportingDocument_2_DocumentLineItemNumb"& _ "er, [nctsHCCI_SupportingDocument_2_ComplementOfInformation] = @nctsHCCI_Supporti"& _ "ngDocument_2_ComplementOfInformation, [nctsHCCI_SupportingDocument_3_Type] = @nc"& _ "tsHCCI_SupportingDocument_3_Type, [nctsHCCI_SupportingDocument_3_ReferenceNumber"& _ "] = @nctsHCCI_SupportingDocument_3_ReferenceNumber, [nctsHCCI_SupportingDocument"& _ "_3_DocumentLineItemNumber] = @nctsHCCI_SupportingDocument_3_DocumentLineItemNumb"& _ "er, [nctsHCCI_SupportingDocument_3_ComplementOfInformation] = @nctsHCCI_Supporti"& _ "ngDocument_3_ComplementOfInformation, [nctsHCCI_SupportingDocument_4_Type] = @nc"& _ "tsHCCI_SupportingDocument_4_Type, [nctsHCCI_SupportingDocument_4_ReferenceNumber"& _ "] = @nctsHCCI_SupportingDocument_4_ReferenceNumber, [nctsHCCI_SupportingDocument"& _ "_4_DocumentLineItemNumber] = @nctsHCCI_SupportingDocument_4_DocumentLineItemNumb"& _ "er, [nctsHCCI_SupportingDocument_4_ComplementOfInformation] = @nctsHCCI_Supporti"& _ "ngDocument_4_ComplementOfInformation, [nctsHCCI_SupportingDocument_5_Type] = @nc"& _ "tsHCCI_SupportingDocument_5_Type, [nctsHCCI_SupportingDocument_5_ReferenceNumber"& _ "] = @nctsHCCI_SupportingDocument_5_ReferenceNumber, [nctsHCCI_SupportingDocument"& _ "_5_DocumentLineItemNumber] = @nctsHCCI_SupportingDocument_5_DocumentLineItemNumb"& _ "er, [nctsHCCI_SupportingDocument_5_ComplementOfInformation] = @nctsHCCI_Supporti"& _ "ngDocument_5_ComplementOfInformation, [nctsHCCI_SupportingDocument_6_Type] = @nc"& _ "tsHCCI_SupportingDocument_6_Type, [nctsHCCI_SupportingDocument_6_ReferenceNumber"& _ "] = @nctsHCCI_SupportingDocument_6_ReferenceNumber, [nctsHCCI_SupportingDocument"& _ "_6_DocumentLineItemNumber] = @nctsHCCI_SupportingDocument_6_DocumentLineItemNumb"& _ "er, [nctsHCCI_SupportingDocument_6_ComplementOfInformation] = @nctsHCCI_Supporti"& _ "ngDocument_6_ComplementOfInformation, [nctsHCCI_SupportingDocument_7_Type] = @nc"& _ "tsHCCI_SupportingDocument_7_Type, [nctsHCCI_SupportingDocument_7_ReferenceNumber"& _ "] = @nctsHCCI_SupportingDocument_7_ReferenceNumber, [nctsHCCI_SupportingDocument"& _ "_7_DocumentLineItemNumber] = @nctsHCCI_SupportingDocument_7_DocumentLineItemNumb"& _ "er, [nctsHCCI_SupportingDocument_7_ComplementOfInformation] = @nctsHCCI_Supporti"& _ "ngDocument_7_ComplementOfInformation, [nctsHCCI_SupportingDocument_8_Type] = @nc"& _ "tsHCCI_SupportingDocument_8_Type, [nctsHCCI_SupportingDocument_8_ReferenceNumber"& _ "] = @nctsHCCI_SupportingDocument_8_ReferenceNumber, [nctsHCCI_SupportingDocument"& _ "_8_DocumentLineItemNumber] = @nctsHCCI_SupportingDocument_8_DocumentLineItemNumb"& _ "er, [nctsHCCI_SupportingDocument_8_ComplementOfInformation] = @nctsHCCI_Supporti"& _ "ngDocument_8_ComplementOfInformation, [nctsHCCI_SupportingDocument_9_Type] = @nc"& _ "tsHCCI_SupportingDocument_9_Type, [nctsHCCI_SupportingDocument_9_ReferenceNumber"& _ "] = @nctsHCCI_SupportingDocument_9_ReferenceNumber, [nctsHCCI_SupportingDocument"& _ "_9_DocumentLineItemNumber] = @nctsHCCI_SupportingDocument_9_DocumentLineItemNumb"& _ "er, [nctsHCCI_SupportingDocument_9_ComplementOfInformation] = @nctsHCCI_Supporti"& _ "ngDocument_9_ComplementOfInformation, [nctsHCCI_AdditionalReference_1_Type] = @n"& _ "ctsHCCI_AdditionalReference_1_Type, [nctsHCCI_AdditionalReference_1_ReferenceNum"& _ "ber] = @nctsHCCI_AdditionalReference_1_ReferenceNumber, [nctsHCCI_AdditionalRefe"& _ "rence_2_Type] = @nctsHCCI_AdditionalReference_2_Type, [nctsHCCI_AdditionalRefere"& _ "nce_2_ReferenceNumber] = @nctsHCCI_AdditionalReference_2_ReferenceNumber, [nctsH"& _ "CCI_AdditionalReference_3_Type] = @nctsHCCI_AdditionalReference_3_Type, [nctsHCC"& _ "I_AdditionalReference_3_ReferenceNumber] = @nctsHCCI_AdditionalReference_3_Refer"& _ "enceNumber, [nctsHCCI_AdditionalReference_4_Type] = @nctsHCCI_AdditionalReferenc"& _ "e_4_Type, [nctsHCCI_AdditionalReference_4_ReferenceNumber] = @nctsHCCI_Additiona"& _ "lReference_4_ReferenceNumber, [nctsHCCI_AdditionalReference_5_Type] = @nctsHCCI_"& _ "AdditionalReference_5_Type, [nctsHCCI_AdditionalReference_5_ReferenceNumber] = @"& _ "nctsHCCI_AdditionalReference_5_ReferenceNumber, [nctsHCCI_AdditionalReference_6_"& _ "Type] = @nctsHCCI_AdditionalReference_6_Type, [nctsHCCI_AdditionalReference_6_Re"& _ "ferenceNumber] = @nctsHCCI_AdditionalReference_6_ReferenceNumber, [nctsHCCI_Addi"& _ "tionalReference_7_Type] = @nctsHCCI_AdditionalReference_7_Type, [nctsHCCI_Additi"& _ "onalReference_7_ReferenceNumber] = @nctsHCCI_AdditionalReference_7_ReferenceNumb"& _ "er, [nctsHCCI_AdditionalReference_8_Type] = @nctsHCCI_AdditionalReference_8_Type"& _ ", [nctsHCCI_AdditionalReference_8_ReferenceNumber] = @nctsHCCI_AdditionalReferen"& _ "ce_8_ReferenceNumber, [nctsHCCI_AdditionalReference_9_Type] = @nctsHCCI_Addition"& _ "alReference_9_Type, [nctsHCCI_AdditionalReference_9_ReferenceNumber] = @nctsHCCI"& _ "_AdditionalReference_9_ReferenceNumber, [nctsHCCI_AdditionalInformation_1_Code] "& _ "= @nctsHCCI_AdditionalInformation_1_Code, [nctsHCCI_AdditionalInformation_1_Text"& _ "] = @nctsHCCI_AdditionalInformation_1_Text, [nctsHCCI_AdditionalInformation_2_Co"& _ "de] = @nctsHCCI_AdditionalInformation_2_Code, [nctsHCCI_AdditionalInformation_2_"& _ "Text] = @nctsHCCI_AdditionalInformation_2_Text, [nctsHCCI_AdditionalInformation_"& _ "3_Code] = @nctsHCCI_AdditionalInformation_3_Code, [nctsHCCI_AdditionalInformatio"& _ "n_3_Text] = @nctsHCCI_AdditionalInformation_3_Text, [nctsHCCI_AdditionalInformat"& _ "ion_4_Code] = @nctsHCCI_AdditionalInformation_4_Code, [nctsHCCI_AdditionalInform"& _ "ation_4_Text] = @nctsHCCI_AdditionalInformation_4_Text, [nctsHCCI_AdditionalInfo"& _ "rmation_5_Code] = @nctsHCCI_AdditionalInformation_5_Code, [nctsHCCI_AdditionalIn"& _ "formation_5_Text] = @nctsHCCI_AdditionalInformation_5_Text, [nctsHCCI_Additional"& _ "Information_6_Code] = @nctsHCCI_AdditionalInformation_6_Code, [nctsHCCI_Addition"& _ "alInformation_6_Text] = @nctsHCCI_AdditionalInformation_6_Text, [nctsHCCI_Additi"& _ "onalInformation_7_Code] = @nctsHCCI_AdditionalInformation_7_Code, [nctsHCCI_Addi"& _ "tionalInformation_7_Text] = @nctsHCCI_AdditionalInformation_7_Text, [nctsHCCI_Ad"& _ "ditionalInformation_8_Code] = @nctsHCCI_AdditionalInformation_8_Code, [nctsHCCI_"& _ "AdditionalInformation_8_Text] = @nctsHCCI_AdditionalInformation_8_Text, [nctsHCC"& _ "I_AdditionalInformation_9_Code] = @nctsHCCI_AdditionalInformation_9_Code, [nctsH"& _ "CCI_AdditionalInformation_9_Text] = @nctsHCCI_AdditionalInformation_9_Text WHERE"& _ " (([nctsHCCI_Id] = @Original_nctsHCCI_Id) AND ([nctsHCCI_NctsId] = @Original_nct"& _ "sHCCI_NctsId) AND ([nctsHCCI_NctsHCId] = @Original_nctsHCCI_NctsHCId) AND ((@IsN"& _ "ull_nctsHCCI_GoodsItemNumber = 1 AND [nctsHCCI_GoodsItemNumber] IS NULL) OR ([nc"& _ "tsHCCI_GoodsItemNumber] = @Original_nctsHCCI_GoodsItemNumber)) AND ((@IsNull_nct"& _ "sHCCI_DeclarationGoodsItemNumber = 1 AND [nctsHCCI_DeclarationGoodsItemNumber] I"& _ "S NULL) OR ([nctsHCCI_DeclarationGoodsItemNumber] = @Original_nctsHCCI_Declarati"& _ "onGoodsItemNumber)) AND ((@IsNull_nctsHCCI_CommodityCode = 1 AND [nctsHCCI_Commo"& _ "dityCode] IS NULL) OR ([nctsHCCI_CommodityCode] = @Original_nctsHCCI_CommodityCo"& _ "de)) AND ((@IsNull_nctsHCCI_MethodeOfPayment = 1 AND [nctsHCCI_MethodeOfPayment]"& _ " IS NULL) OR ([nctsHCCI_MethodeOfPayment] = @Original_nctsHCCI_MethodeOfPayment)"& _ ") AND ((@IsNull_nctsHCCI_UNNumber_1 = 1 AND [nctsHCCI_UNNumber_1] IS NULL) OR (["& _ "nctsHCCI_UNNumber_1] = @Original_nctsHCCI_UNNumber_1)) AND ((@IsNull_nctsHCCI_UN"& _ "Number_2 = 1 AND [nctsHCCI_UNNumber_2] IS NULL) OR ([nctsHCCI_UNNumber_2] = @Ori"& _ "ginal_nctsHCCI_UNNumber_2)) AND ((@IsNull_nctsHCCI_UNNumber_3 = 1 AND [nctsHCCI_"& _ "UNNumber_3] IS NULL) OR ([nctsHCCI_UNNumber_3] = @Original_nctsHCCI_UNNumber_3))"& _ " AND ((@IsNull_nctsHCCI_UNNumber_4 = 1 AND [nctsHCCI_UNNumber_4] IS NULL) OR ([n"& _ "ctsHCCI_UNNumber_4] = @Original_nctsHCCI_UNNumber_4)) AND ((@IsNull_nctsHCCI_Dec"& _ "larationType = 1 AND [nctsHCCI_DeclarationType] IS NULL) OR ([nctsHCCI_Declarati"& _ "onType] = @Original_nctsHCCI_DeclarationType)) AND ((@IsNull_nctsHCCI_ArticleCod"& _ "e = 1 AND [nctsHCCI_ArticleCode] IS NULL) OR ([nctsHCCI_ArticleCode] = @Original"& _ "_nctsHCCI_ArticleCode)) AND ((@IsNull_nctsHCCI_DescriptionOfGoods = 1 AND [nctsH"& _ "CCI_DescriptionOfGoods] IS NULL) OR ([nctsHCCI_DescriptionOfGoods] = @Original_n"& _ "ctsHCCI_DescriptionOfGoods)) AND ((@IsNull_nctsHCCI_CusCode = 1 AND [nctsHCCI_Cu"& _ "sCode] IS NULL) OR ([nctsHCCI_CusCode] = @Original_nctsHCCI_CusCode)) AND ((@IsN"& _ "ull_nctsHCCI_CountryOfDispatch = 1 AND [nctsHCCI_CountryOfDispatch] IS NULL) OR "& _ "([nctsHCCI_CountryOfDispatch] = @Original_nctsHCCI_CountryOfDispatch)) AND ((@Is"& _ "Null_nctsHCCI_CountryOfDestination = 1 AND [nctsHCCI_CountryOfDestination] IS NU"& _ "LL) OR ([nctsHCCI_CountryOfDestination] = @Original_nctsHCCI_CountryOfDestinatio"& _ "n)) AND ((@IsNull_nctsHCCI_GrossMass = 1 AND [nctsHCCI_GrossMass] IS NULL) OR (["& _ "nctsHCCI_GrossMass] = @Original_nctsHCCI_GrossMass)) AND ((@IsNull_nctsHCCI_NetM"& _ "ass = 1 AND [nctsHCCI_NetMass] IS NULL) OR ([nctsHCCI_NetMass] = @Original_nctsH"& _ "CCI_NetMass)) AND ((@IsNull_nctsHCCI_ReferenceNumberUCR = 1 AND [nctsHCCI_Refere"& _ "nceNumberUCR] IS NULL) OR ([nctsHCCI_ReferenceNumberUCR] = @Original_nctsHCCI_Re"& _ "ferenceNumberUCR)) AND ((@IsNull_nctsHCCI_Consignor_AdressCode = 1 AND [nctsHCCI"& _ "_Consignor_AdressCode] IS NULL) OR ([nctsHCCI_Consignor_AdressCode] = @Original_"& _ "nctsHCCI_Consignor_AdressCode)) AND ((@IsNull_nctsHCCI_Consignor_IdentificationN"& _ "umber = 1 AND [nctsHCCI_Consignor_IdentificationNumber] IS NULL) OR ([nctsHCCI_C"& _ "onsignor_IdentificationNumber] = @Original_nctsHCCI_Consignor_IdentificationNumb"& _ "er)) AND ((@IsNull_nctsHCCI_Consignor_SubsidiaryNumber = 1 AND [nctsHCCI_Consign"& _ "or_SubsidiaryNumber] IS NULL) OR ([nctsHCCI_Consignor_SubsidiaryNumber] = @Origi"& _ "nal_nctsHCCI_Consignor_SubsidiaryNumber)) AND ((@IsNull_nctsHCCI_Consignor_Name "& _ "= 1 AND [nctsHCCI_Consignor_Name] IS NULL) OR ([nctsHCCI_Consignor_Name] = @Orig"& _ "inal_nctsHCCI_Consignor_Name)) AND ((@IsNull_nctsHCCI_Consignor_StreetNumber = 1"& _ " AND [nctsHCCI_Consignor_StreetNumber] IS NULL) OR ([nctsHCCI_Consignor_StreetNu"& _ "mber] = @Original_nctsHCCI_Consignor_StreetNumber)) AND ((@IsNull_nctsHCCI_Consi"& _ "gnor_City = 1 AND [nctsHCCI_Consignor_City] IS NULL) OR ([nctsHCCI_Consignor_Cit"& _ "y] = @Original_nctsHCCI_Consignor_City)) AND ((@IsNull_nctsHCCI_Consignor_Postco"& _ "de = 1 AND [nctsHCCI_Consignor_Postcode] IS NULL) OR ([nctsHCCI_Consignor_Postco"& _ "de] = @Original_nctsHCCI_Consignor_Postcode)) AND ((@IsNull_nctsHCCI_Consignor_C"& _ "ountry = 1 AND [nctsHCCI_Consignor_Country] IS NULL) OR ([nctsHCCI_Consignor_Cou"& _ "ntry] = @Original_nctsHCCI_Consignor_Country)) AND ((@IsNull_nctsHCCI_Consignor_"& _ "ContactPerson_Name = 1 AND [nctsHCCI_Consignor_ContactPerson_Name] IS NULL) OR ("& _ "[nctsHCCI_Consignor_ContactPerson_Name] = @Original_nctsHCCI_Consignor_ContactPe"& _ "rson_Name)) AND ((@IsNull_nctsHCCI_Consignor_ContactPerson_PhoneNumber = 1 AND ["& _ "nctsHCCI_Consignor_ContactPerson_PhoneNumber] IS NULL) OR ([nctsHCCI_Consignor_C"& _ "ontactPerson_PhoneNumber] = @Original_nctsHCCI_Consignor_ContactPerson_PhoneNumb"& _ "er)) AND ((@IsNull_nctsHCCI_Consignor_ContactPerson_EMailAddress = 1 AND [nctsHC"& _ "CI_Consignor_ContactPerson_EMailAddress] IS NULL) OR ([nctsHCCI_Consignor_Contac"& _ "tPerson_EMailAddress] = @Original_nctsHCCI_Consignor_ContactPerson_EMailAddress)"& _ ") AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_1_Role = 1 AND [nctsHCCI_Add"& _ "itionalSupplyChainActor_1_Role] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActo"& _ "r_1_Role] = @Original_nctsHCCI_AdditionalSupplyChainActor_1_Role)) AND ((@IsNull"& _ "_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber = 1 AND [nctsHCCI_Ad"& _ "ditionalSupplyChainActor_1_IdentificationNumber] IS NULL) OR ([nctsHCCI_Addition"& _ "alSupplyChainActor_1_IdentificationNumber] = @Original_nctsHCCI_AdditionalSupply"& _ "ChainActor_1_IdentificationNumber)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChain"& _ "Actor_2_Role = 1 AND [nctsHCCI_AdditionalSupplyChainActor_2_Role] IS NULL) OR (["& _ "nctsHCCI_AdditionalSupplyChainActor_2_Role] = @Original_nctsHCCI_AdditionalSuppl"& _ "yChainActor_2_Role)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_2_Identif"& _ "icationNumber = 1 AND [nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumbe"& _ "r] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber] = @"& _ "Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber)) AND ((@IsN"& _ "ull_nctsHCCI_AdditionalSupplyChainActor_3_Role = 1 AND [nctsHCCI_AdditionalSuppl"& _ "yChainActor_3_Role] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_3_Role] = "& _ "@Original_nctsHCCI_AdditionalSupplyChainActor_3_Role)) AND ((@IsNull_nctsHCCI_Ad"& _ "ditionalSupplyChainActor_3_IdentificationNumber = 1 AND [nctsHCCI_AdditionalSupp"& _ "lyChainActor_3_IdentificationNumber] IS NULL) OR ([nctsHCCI_AdditionalSupplyChai"& _ "nActor_3_IdentificationNumber] = @Original_nctsHCCI_AdditionalSupplyChainActor_3"& _ "_IdentificationNumber)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_4_Role"& _ " = 1 AND [nctsHCCI_AdditionalSupplyChainActor_4_Role] IS NULL) OR ([nctsHCCI_Add"& _ "itionalSupplyChainActor_4_Role] = @Original_nctsHCCI_AdditionalSupplyChainActor_"& _ "4_Role)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumbe"& _ "r = 1 AND [nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber] IS NULL) "& _ "OR ([nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber] = @Original_nct"& _ "sHCCI_AdditionalSupplyChainActor_4_IdentificationNumber)) AND ((@IsNull_nctsHCCI"& _ "_AdditionalSupplyChainActor_5_Role = 1 AND [nctsHCCI_AdditionalSupplyChainActor_"& _ "5_Role] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_5_Role] = @Original_nc"& _ "tsHCCI_AdditionalSupplyChainActor_5_Role)) AND ((@IsNull_nctsHCCI_AdditionalSupp"& _ "lyChainActor_5_IdentificationNumber = 1 AND [nctsHCCI_AdditionalSupplyChainActor"& _ "_5_IdentificationNumber] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_5_Ide"& _ "ntificationNumber] = @Original_nctsHCCI_AdditionalSupplyChainActor_5_Identificat"& _ "ionNumber)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_6_Role = 1 AND [nc"& _ "tsHCCI_AdditionalSupplyChainActor_6_Role] IS NULL) OR ([nctsHCCI_AdditionalSuppl"& _ "yChainActor_6_Role] = @Original_nctsHCCI_AdditionalSupplyChainActor_6_Role)) AND"& _ " ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber = 1 AND [n"& _ "ctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber] IS NULL) OR ([nctsHCC"& _ "I_AdditionalSupplyChainActor_6_IdentificationNumber] = @Original_nctsHCCI_Additi"& _ "onalSupplyChainActor_6_IdentificationNumber)) AND ((@IsNull_nctsHCCI_AdditionalS"& _ "upplyChainActor_7_Role = 1 AND [nctsHCCI_AdditionalSupplyChainActor_7_Role] IS N"& _ "ULL) OR ([nctsHCCI_AdditionalSupplyChainActor_7_Role] = @Original_nctsHCCI_Addit"& _ "ionalSupplyChainActor_7_Role)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor"& _ "_7_IdentificationNumber = 1 AND [nctsHCCI_AdditionalSupplyChainActor_7_Identific"& _ "ationNumber] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_7_IdentificationN"& _ "umber] = @Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber)) "& _ "AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_8_Role = 1 AND [nctsHCCI_Addit"& _ "ionalSupplyChainActor_8_Role] IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_"& _ "8_Role] = @Original_nctsHCCI_AdditionalSupplyChainActor_8_Role)) AND ((@IsNull_n"& _ "ctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber = 1 AND [nctsHCCI_Addi"& _ "tionalSupplyChainActor_8_IdentificationNumber] IS NULL) OR ([nctsHCCI_Additional"& _ "SupplyChainActor_8_IdentificationNumber] = @Original_nctsHCCI_AdditionalSupplyCh"& _ "ainActor_8_IdentificationNumber)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainAc"& _ "tor_9_Role = 1 AND [nctsHCCI_AdditionalSupplyChainActor_9_Role] IS NULL) OR ([nc"& _ "tsHCCI_AdditionalSupplyChainActor_9_Role] = @Original_nctsHCCI_AdditionalSupplyC"& _ "hainActor_9_Role)) AND ((@IsNull_nctsHCCI_AdditionalSupplyChainActor_9_Identific"& _ "ationNumber = 1 AND [nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber]"& _ " IS NULL) OR ([nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber] = @Or"& _ "iginal_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber)) AND ((@IsNul"& _ "l_nctsHCCI_GoodsValue = 1 AND [nctsHCCI_GoodsValue] IS NULL) OR ([nctsHCCI_Goods"& _ "Value] = @Original_nctsHCCI_GoodsValue)) AND ((@IsNull_nctsHCCI_CurrencyOfGoodsV"& _ "alue = 1 AND [nctsHCCI_CurrencyOfGoodsValue] IS NULL) OR ([nctsHCCI_CurrencyOfGo"& _ "odsValue] = @Original_nctsHCCI_CurrencyOfGoodsValue)) AND ((@IsNull_nctsHCCI_Exc"& _ "hangeRate = 1 AND [nctsHCCI_ExchangeRate] IS NULL) OR ([nctsHCCI_ExchangeRate] ="& _ " @Original_nctsHCCI_ExchangeRate)) AND ((@IsNull_nctsHCCI_ExchangeDate = 1 AND ["& _ "nctsHCCI_ExchangeDate] IS NULL) OR ([nctsHCCI_ExchangeDate] = @Original_nctsHCCI"& _ "_ExchangeDate)) AND ((@IsNull_nctsHCCI_CurrencyExchangeRateType = 1 AND [nctsHCC"& _ "I_CurrencyExchangeRateType] IS NULL) OR ([nctsHCCI_CurrencyExchangeRateType] = @"& _ "Original_nctsHCCI_CurrencyExchangeRateType)) AND ((@IsNull_nctsHCCI_FractionOfGo"& _ "odsValue = 1 AND [nctsHCCI_FractionOfGoodsValue] IS NULL) OR ([nctsHCCI_Fraction"& _ "OfGoodsValue] = @Original_nctsHCCI_FractionOfGoodsValue)) AND ((@IsNull_nctsHCCI"& _ "_GuaranteeAmount = 1 AND [nctsHCCI_GuaranteeAmount] IS NULL) OR ([nctsHCCI_Guara"& _ "nteeAmount] = @Original_nctsHCCI_GuaranteeAmount)) AND ((@IsNull_nctsHCCI_Previo"& _ "usDocument_1_Type = 1 AND [nctsHCCI_PreviousDocument_1_Type] IS NULL) OR ([nctsH"& _ "CCI_PreviousDocument_1_Type] = @Original_nctsHCCI_PreviousDocument_1_Type)) AND "& _ "((@IsNull_nctsHCCI_PreviousDocument_1_ReferenceNumber = 1 AND [nctsHCCI_Previous"& _ "Document_1_ReferenceNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_1_ReferenceN"& _ "umber] = @Original_nctsHCCI_PreviousDocument_1_ReferenceNumber)) AND ((@IsNull_n"& _ "ctsHCCI_PreviousDocument_1_DocumentLineItemNumber = 1 AND [nctsHCCI_PreviousDocu"& _ "ment_1_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_1_Documen"& _ "tLineItemNumber] = @Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber)"& _ ") AND ((@IsNull_nctsHCCI_PreviousDocument_1_ComplementOfInformation = 1 AND [nct"& _ "sHCCI_PreviousDocument_1_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Previou"& _ "sDocument_1_ComplementOfInformation] = @Original_nctsHCCI_PreviousDocument_1_Com"& _ "plementOfInformation)) AND ((@IsNull_nctsHCCI_PreviousDocument_1_GoodsItemNumber"& _ " = 1 AND [nctsHCCI_PreviousDocument_1_GoodsItemNumber] IS NULL) OR ([nctsHCCI_Pr"& _ "eviousDocument_1_GoodsItemNumber] = @Original_nctsHCCI_PreviousDocument_1_GoodsI"& _ "temNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_2_Type = 1 AND [nctsHCCI_Pre"& _ "viousDocument_2_Type] IS NULL) OR ([nctsHCCI_PreviousDocument_2_Type] = @Origina"& _ "l_nctsHCCI_PreviousDocument_2_Type)) AND ((@IsNull_nctsHCCI_PreviousDocument_2_R"& _ "eferenceNumber = 1 AND [nctsHCCI_PreviousDocument_2_ReferenceNumber] IS NULL) OR"& _ " ([nctsHCCI_PreviousDocument_2_ReferenceNumber] = @Original_nctsHCCI_PreviousDoc"& _ "ument_2_ReferenceNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_2_DocumentLine"& _ "ItemNumber = 1 AND [nctsHCCI_PreviousDocument_2_DocumentLineItemNumber] IS NULL)"& _ " OR ([nctsHCCI_PreviousDocument_2_DocumentLineItemNumber] = @Original_nctsHCCI_P"& _ "reviousDocument_2_DocumentLineItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDocume"& _ "nt_2_ComplementOfInformation = 1 AND [nctsHCCI_PreviousDocument_2_ComplementOfIn"& _ "formation] IS NULL) OR ([nctsHCCI_PreviousDocument_2_ComplementOfInformation] = "& _ "@Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation)) AND ((@IsNull_nc"& _ "tsHCCI_PreviousDocument_2_GoodsItemNumber = 1 AND [nctsHCCI_PreviousDocument_2_G"& _ "oodsItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_2_GoodsItemNumber] = @Or"& _ "iginal_nctsHCCI_PreviousDocument_2_GoodsItemNumber)) AND ((@IsNull_nctsHCCI_Prev"& _ "iousDocument_3_Type = 1 AND [nctsHCCI_PreviousDocument_3_Type] IS NULL) OR ([nct"& _ "sHCCI_PreviousDocument_3_Type] = @Original_nctsHCCI_PreviousDocument_3_Type)) AN"& _ "D ((@IsNull_nctsHCCI_PreviousDocument_3_ReferenceNumber = 1 AND [nctsHCCI_Previo"& _ "usDocument_3_ReferenceNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_3_Referenc"& _ "eNumber] = @Original_nctsHCCI_PreviousDocument_3_ReferenceNumber)) AND ((@IsNull"& _ "_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber = 1 AND [nctsHCCI_PreviousDo"& _ "cument_3_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_3_Docum"& _ "entLineItemNumber] = @Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumbe"& _ "r)) AND ((@IsNull_nctsHCCI_PreviousDocument_3_ComplementOfInformation = 1 AND [n"& _ "ctsHCCI_PreviousDocument_3_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Previ"& _ "ousDocument_3_ComplementOfInformation] = @Original_nctsHCCI_PreviousDocument_3_C"& _ "omplementOfInformation)) AND ((@IsNull_nctsHCCI_PreviousDocument_3_GoodsItemNumb"& _ "er = 1 AND [nctsHCCI_PreviousDocument_3_GoodsItemNumber] IS NULL) OR ([nctsHCCI_"& _ "PreviousDocument_3_GoodsItemNumber] = @Original_nctsHCCI_PreviousDocument_3_Good"& _ "sItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_4_Type = 1 AND [nctsHCCI_P"& _ "reviousDocument_4_Type] IS NULL) OR ([nctsHCCI_PreviousDocument_4_Type] = @Origi"& _ "nal_nctsHCCI_PreviousDocument_4_Type)) AND ((@IsNull_nctsHCCI_PreviousDocument_4"& _ "_ReferenceNumber = 1 AND [nctsHCCI_PreviousDocument_4_ReferenceNumber] IS NULL) "& _ "OR ([nctsHCCI_PreviousDocument_4_ReferenceNumber] = @Original_nctsHCCI_PreviousD"& _ "ocument_4_ReferenceNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_4_DocumentLi"& _ "neItemNumber = 1 AND [nctsHCCI_PreviousDocument_4_DocumentLineItemNumber] IS NUL"& _ "L) OR ([nctsHCCI_PreviousDocument_4_DocumentLineItemNumber] = @Original_nctsHCCI"& _ "_PreviousDocument_4_DocumentLineItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDocu"& _ "ment_4_ComplementOfInformation = 1 AND [nctsHCCI_PreviousDocument_4_ComplementOf"& _ "Information] IS NULL) OR ([nctsHCCI_PreviousDocument_4_ComplementOfInformation] "& _ "= @Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation)) AND ((@IsNull_"& _ "nctsHCCI_PreviousDocument_4_GoodsItemNumber = 1 AND [nctsHCCI_PreviousDocument_4"& _ "_GoodsItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_4_GoodsItemNumber] = @"& _ "Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber)) AND ((@IsNull_nctsHCCI_Pr"& _ "eviousDocument_5_Type = 1 AND [nctsHCCI_PreviousDocument_5_Type] IS NULL) OR ([n"& _ "ctsHCCI_PreviousDocument_5_Type] = @Original_nctsHCCI_PreviousDocument_5_Type)) "& _ "AND ((@IsNull_nctsHCCI_PreviousDocument_5_ReferenceNumber = 1 AND [nctsHCCI_Prev"& _ "iousDocument_5_ReferenceNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_5_Refere"& _ "nceNumber] = @Original_nctsHCCI_PreviousDocument_5_ReferenceNumber)) AND ((@IsNu"& _ "ll_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber = 1 AND [nctsHCCI_Previous"& _ "Document_5_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_5_Doc"& _ "umentLineItemNumber] = @Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNum"& _ "ber)) AND ((@IsNull_nctsHCCI_PreviousDocument_5_ComplementOfInformation = 1 AND "& _ "[nctsHCCI_PreviousDocument_5_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Pre"& _ "viousDocument_5_ComplementOfInformation] = @Original_nctsHCCI_PreviousDocument_5"& _ "_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_PreviousDocument_5_GoodsItemNu"& _ "mber = 1 AND [nctsHCCI_PreviousDocument_5_GoodsItemNumber] IS NULL) OR ([nctsHCC"& _ "I_PreviousDocument_5_GoodsItemNumber] = @Original_nctsHCCI_PreviousDocument_5_Go"& _ "odsItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_6_Type = 1 AND [nctsHCCI"& _ "_PreviousDocument_6_Type] IS NULL) OR ([nctsHCCI_PreviousDocument_6_Type] = @Ori"& _ "ginal_nctsHCCI_PreviousDocument_6_Type)) AND ((@IsNull_nctsHCCI_PreviousDocument"& _ "_6_ReferenceNumber = 1 AND [nctsHCCI_PreviousDocument_6_ReferenceNumber] IS NULL"& _ ") OR ([nctsHCCI_PreviousDocument_6_ReferenceNumber] = @Original_nctsHCCI_Previou"& _ "sDocument_6_ReferenceNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_6_Document"& _ "LineItemNumber = 1 AND [nctsHCCI_PreviousDocument_6_DocumentLineItemNumber] IS N"& _ "ULL) OR ([nctsHCCI_PreviousDocument_6_DocumentLineItemNumber] = @Original_nctsHC"& _ "CI_PreviousDocument_6_DocumentLineItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDo"& _ "cument_6_ComplementOfInformation = 1 AND [nctsHCCI_PreviousDocument_6_Complement"& _ "OfInformation] IS NULL) OR ([nctsHCCI_PreviousDocument_6_ComplementOfInformation"& _ "] = @Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation)) AND ((@IsNul"& _ "l_nctsHCCI_PreviousDocument_6_GoodsItemNumber = 1 AND [nctsHCCI_PreviousDocument"& _ "_6_GoodsItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_6_GoodsItemNumber] ="& _ " @Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber)) AND ((@IsNull_nctsHCCI_"& _ "PreviousDocument_7_Type = 1 AND [nctsHCCI_PreviousDocument_7_Type] IS NULL) OR ("& _ "[nctsHCCI_PreviousDocument_7_Type] = @Original_nctsHCCI_PreviousDocument_7_Type)"& _ ") AND ((@IsNull_nctsHCCI_PreviousDocument_7_ReferenceNumber = 1 AND [nctsHCCI_Pr"& _ "eviousDocument_7_ReferenceNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_7_Refe"& _ "renceNumber] = @Original_nctsHCCI_PreviousDocument_7_ReferenceNumber)) AND ((@Is"& _ "Null_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber = 1 AND [nctsHCCI_Previo"& _ "usDocument_7_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_7_D"& _ "ocumentLineItemNumber] = @Original_nctsHCCI_PreviousDocument_7_DocumentLineItemN"& _ "umber)) AND ((@IsNull_nctsHCCI_PreviousDocument_7_ComplementOfInformation = 1 AN"& _ "D [nctsHCCI_PreviousDocument_7_ComplementOfInformation] IS NULL) OR ([nctsHCCI_P"& _ "reviousDocument_7_ComplementOfInformation] = @Original_nctsHCCI_PreviousDocument"& _ "_7_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_PreviousDocument_7_GoodsItem"& _ "Number = 1 AND [nctsHCCI_PreviousDocument_7_GoodsItemNumber] IS NULL) OR ([nctsH"& _ "CCI_PreviousDocument_7_GoodsItemNumber] = @Original_nctsHCCI_PreviousDocument_7_"& _ "GoodsItemNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_8_Type = 1 AND [nctsHC"& _ "CI_PreviousDocument_8_Type] IS NULL) OR ([nctsHCCI_PreviousDocument_8_Type] = @O"& _ "riginal_nctsHCCI_PreviousDocument_8_Type)) AND ((@IsNull_nctsHCCI_PreviousDocume"& _ "nt_8_ReferenceNumber = 1 AND [nctsHCCI_PreviousDocument_8_ReferenceNumber] IS NU"& _ "LL) OR ([nctsHCCI_PreviousDocument_8_ReferenceNumber] = @Original_nctsHCCI_Previ"& _ "ousDocument_8_ReferenceNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_8_Docume"& _ "ntLineItemNumber = 1 AND [nctsHCCI_PreviousDocument_8_DocumentLineItemNumber] IS"& _ " NULL) OR ([nctsHCCI_PreviousDocument_8_DocumentLineItemNumber] = @Original_ncts"& _ "HCCI_PreviousDocument_8_DocumentLineItemNumber)) AND ((@IsNull_nctsHCCI_Previous"& _ "Document_8_ComplementOfInformation = 1 AND [nctsHCCI_PreviousDocument_8_Compleme"& _ "ntOfInformation] IS NULL) OR ([nctsHCCI_PreviousDocument_8_ComplementOfInformati"& _ "on] = @Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation)) AND ((@IsN"& _ "ull_nctsHCCI_PreviousDocument_8_GoodsItemNumber = 1 AND [nctsHCCI_PreviousDocume"& _ "nt_8_GoodsItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_8_GoodsItemNumber]"& _ " = @Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber)) AND ((@IsNull_nctsHCC"& _ "I_PreviousDocument_9_Type = 1 AND [nctsHCCI_PreviousDocument_9_Type] IS NULL) OR"& _ " ([nctsHCCI_PreviousDocument_9_Type] = @Original_nctsHCCI_PreviousDocument_9_Typ"& _ "e)) AND ((@IsNull_nctsHCCI_PreviousDocument_9_ReferenceNumber = 1 AND [nctsHCCI_"& _ "PreviousDocument_9_ReferenceNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_9_Re"& _ "ferenceNumber] = @Original_nctsHCCI_PreviousDocument_9_ReferenceNumber)) AND ((@"& _ "IsNull_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber = 1 AND [nctsHCCI_Prev"& _ "iousDocument_9_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_PreviousDocument_9"& _ "_DocumentLineItemNumber] = @Original_nctsHCCI_PreviousDocument_9_DocumentLineIte"& _ "mNumber)) AND ((@IsNull_nctsHCCI_PreviousDocument_9_ComplementOfInformation = 1 "& _ "AND [nctsHCCI_PreviousDocument_9_ComplementOfInformation] IS NULL) OR ([nctsHCCI"& _ "_PreviousDocument_9_ComplementOfInformation] = @Original_nctsHCCI_PreviousDocume"& _ "nt_9_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_PreviousDocument_9_GoodsIt"& _ "emNumber = 1 AND [nctsHCCI_PreviousDocument_9_GoodsItemNumber] IS NULL) OR ([nct"& _ "sHCCI_PreviousDocument_9_GoodsItemNumber] = @Original_nctsHCCI_PreviousDocument_"& _ "9_GoodsItemNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_1_Type = 1 AND [nc"& _ "tsHCCI_SupportingDocument_1_Type] IS NULL) OR ([nctsHCCI_SupportingDocument_1_Ty"& _ "pe] = @Original_nctsHCCI_SupportingDocument_1_Type)) AND ((@IsNull_nctsHCCI_Supp"& _ "ortingDocument_1_ReferenceNumber = 1 AND [nctsHCCI_SupportingDocument_1_Referenc"& _ "eNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_1_ReferenceNumber] = @Origina"& _ "l_nctsHCCI_SupportingDocument_1_ReferenceNumber)) AND ((@IsNull_nctsHCCI_Support"& _ "ingDocument_1_DocumentLineItemNumber = 1 AND [nctsHCCI_SupportingDocument_1_Docu"& _ "mentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_1_DocumentLineItem"& _ "Number] = @Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber)) AND ("& _ "(@IsNull_nctsHCCI_SupportingDocument_1_ComplementOfInformation = 1 AND [nctsHCCI"& _ "_SupportingDocument_1_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Supporting"& _ "Document_1_ComplementOfInformation] = @Original_nctsHCCI_SupportingDocument_1_Co"& _ "mplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocument_2_Type = 1 AND"& _ " [nctsHCCI_SupportingDocument_2_Type] IS NULL) OR ([nctsHCCI_SupportingDocument_"& _ "2_Type] = @Original_nctsHCCI_SupportingDocument_2_Type)) AND ((@IsNull_nctsHCCI_"& _ "SupportingDocument_2_ReferenceNumber = 1 AND [nctsHCCI_SupportingDocument_2_Refe"& _ "renceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_2_ReferenceNumber] = @Ori"& _ "ginal_nctsHCCI_SupportingDocument_2_ReferenceNumber)) AND ((@IsNull_nctsHCCI_Sup"& _ "portingDocument_2_DocumentLineItemNumber = 1 AND [nctsHCCI_SupportingDocument_2_"& _ "DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_2_DocumentLine"& _ "ItemNumber] = @Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber)) A"& _ "ND ((@IsNull_nctsHCCI_SupportingDocument_2_ComplementOfInformation = 1 AND [ncts"& _ "HCCI_SupportingDocument_2_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Suppor"& _ "tingDocument_2_ComplementOfInformation] = @Original_nctsHCCI_SupportingDocument_"& _ "2_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocument_3_Type = 1"& _ " AND [nctsHCCI_SupportingDocument_3_Type] IS NULL) OR ([nctsHCCI_SupportingDocum"& _ "ent_3_Type] = @Original_nctsHCCI_SupportingDocument_3_Type)) AND ((@IsNull_nctsH"& _ "CCI_SupportingDocument_3_ReferenceNumber = 1 AND [nctsHCCI_SupportingDocument_3_"& _ "ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_3_ReferenceNumber] = "& _ "@Original_nctsHCCI_SupportingDocument_3_ReferenceNumber)) AND ((@IsNull_nctsHCCI"& _ "_SupportingDocument_3_DocumentLineItemNumber = 1 AND [nctsHCCI_SupportingDocumen"& _ "t_3_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_3_Document"& _ "LineItemNumber] = @Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber"& _ ")) AND ((@IsNull_nctsHCCI_SupportingDocument_3_ComplementOfInformation = 1 AND ["& _ "nctsHCCI_SupportingDocument_3_ComplementOfInformation] IS NULL) OR ([nctsHCCI_Su"& _ "pportingDocument_3_ComplementOfInformation] = @Original_nctsHCCI_SupportingDocum"& _ "ent_3_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocument_4_Type"& _ " = 1 AND [nctsHCCI_SupportingDocument_4_Type] IS NULL) OR ([nctsHCCI_SupportingD"& _ "ocument_4_Type] = @Original_nctsHCCI_SupportingDocument_4_Type)) AND ((@IsNull_n"& _ "ctsHCCI_SupportingDocument_4_ReferenceNumber = 1 AND [nctsHCCI_SupportingDocumen"& _ "t_4_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_4_ReferenceNumber"& _ "] = @Original_nctsHCCI_SupportingDocument_4_ReferenceNumber)) AND ((@IsNull_ncts"& _ "HCCI_SupportingDocument_4_DocumentLineItemNumber = 1 AND [nctsHCCI_SupportingDoc"& _ "ument_4_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_4_Docu"& _ "mentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNu"& _ "mber)) AND ((@IsNull_nctsHCCI_SupportingDocument_4_ComplementOfInformation = 1 A"& _ "ND [nctsHCCI_SupportingDocument_4_ComplementOfInformation] IS NULL) OR ([nctsHCC"& _ "I_SupportingDocument_4_ComplementOfInformation] = @Original_nctsHCCI_SupportingD"& _ "ocument_4_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocument_5_"& _ "Type = 1 AND [nctsHCCI_SupportingDocument_5_Type] IS NULL) OR ([nctsHCCI_Support"& _ "ingDocument_5_Type] = @Original_nctsHCCI_SupportingDocument_5_Type)) AND ((@IsNu"& _ "ll_nctsHCCI_SupportingDocument_5_ReferenceNumber = 1 AND [nctsHCCI_SupportingDoc"& _ "ument_5_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_5_ReferenceNu"& _ "mber] = @Original_nctsHCCI_SupportingDocument_5_ReferenceNumber)) AND ((@IsNull_"& _ "nctsHCCI_SupportingDocument_5_DocumentLineItemNumber = 1 AND [nctsHCCI_Supportin"& _ "gDocument_5_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_5_"& _ "DocumentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_5_DocumentLineIt"& _ "emNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_5_ComplementOfInformation ="& _ " 1 AND [nctsHCCI_SupportingDocument_5_ComplementOfInformation] IS NULL) OR ([nct"& _ "sHCCI_SupportingDocument_5_ComplementOfInformation] = @Original_nctsHCCI_Support"& _ "ingDocument_5_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDocumen"& _ "t_6_Type = 1 AND [nctsHCCI_SupportingDocument_6_Type] IS NULL) OR ([nctsHCCI_Sup"& _ "portingDocument_6_Type] = @Original_nctsHCCI_SupportingDocument_6_Type)) AND ((@"& _ "IsNull_nctsHCCI_SupportingDocument_6_ReferenceNumber = 1 AND [nctsHCCI_Supportin"& _ "gDocument_6_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_6_Referen"& _ "ceNumber] = @Original_nctsHCCI_SupportingDocument_6_ReferenceNumber)) AND ((@IsN"& _ "ull_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber = 1 AND [nctsHCCI_Suppo"& _ "rtingDocument_6_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDocumen"& _ "t_6_DocumentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_6_DocumentLi"& _ "neItemNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_6_ComplementOfInformati"& _ "on = 1 AND [nctsHCCI_SupportingDocument_6_ComplementOfInformation] IS NULL) OR ("& _ "[nctsHCCI_SupportingDocument_6_ComplementOfInformation] = @Original_nctsHCCI_Sup"& _ "portingDocument_6_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_SupportingDoc"& _ "ument_7_Type = 1 AND [nctsHCCI_SupportingDocument_7_Type] IS NULL) OR ([nctsHCCI"& _ "_SupportingDocument_7_Type] = @Original_nctsHCCI_SupportingDocument_7_Type)) AND"& _ " ((@IsNull_nctsHCCI_SupportingDocument_7_ReferenceNumber = 1 AND [nctsHCCI_Suppo"& _ "rtingDocument_7_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_7_Ref"& _ "erenceNumber] = @Original_nctsHCCI_SupportingDocument_7_ReferenceNumber)) AND (("& _ "@IsNull_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber = 1 AND [nctsHCCI_S"& _ "upportingDocument_7_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_SupportingDoc"& _ "ument_7_DocumentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_7_Docume"& _ "ntLineItemNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_7_ComplementOfInfor"& _ "mation = 1 AND [nctsHCCI_SupportingDocument_7_ComplementOfInformation] IS NULL) "& _ "OR ([nctsHCCI_SupportingDocument_7_ComplementOfInformation] = @Original_nctsHCCI"& _ "_SupportingDocument_7_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_Supportin"& _ "gDocument_8_Type = 1 AND [nctsHCCI_SupportingDocument_8_Type] IS NULL) OR ([ncts"& _ "HCCI_SupportingDocument_8_Type] = @Original_nctsHCCI_SupportingDocument_8_Type))"& _ " AND ((@IsNull_nctsHCCI_SupportingDocument_8_ReferenceNumber = 1 AND [nctsHCCI_S"& _ "upportingDocument_8_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocument_8"& _ "_ReferenceNumber] = @Original_nctsHCCI_SupportingDocument_8_ReferenceNumber)) AN"& _ "D ((@IsNull_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber = 1 AND [nctsHC"& _ "CI_SupportingDocument_8_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_Supportin"& _ "gDocument_8_DocumentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_8_Do"& _ "cumentLineItemNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_8_ComplementOfI"& _ "nformation = 1 AND [nctsHCCI_SupportingDocument_8_ComplementOfInformation] IS NU"& _ "LL) OR ([nctsHCCI_SupportingDocument_8_ComplementOfInformation] = @Original_ncts"& _ "HCCI_SupportingDocument_8_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_Suppo"& _ "rtingDocument_9_Type = 1 AND [nctsHCCI_SupportingDocument_9_Type] IS NULL) OR (["& _ "nctsHCCI_SupportingDocument_9_Type] = @Original_nctsHCCI_SupportingDocument_9_Ty"& _ "pe)) AND ((@IsNull_nctsHCCI_SupportingDocument_9_ReferenceNumber = 1 AND [nctsHC"& _ "CI_SupportingDocument_9_ReferenceNumber] IS NULL) OR ([nctsHCCI_SupportingDocume"& _ "nt_9_ReferenceNumber] = @Original_nctsHCCI_SupportingDocument_9_ReferenceNumber)"& _ ") AND ((@IsNull_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber = 1 AND [nc"& _ "tsHCCI_SupportingDocument_9_DocumentLineItemNumber] IS NULL) OR ([nctsHCCI_Suppo"& _ "rtingDocument_9_DocumentLineItemNumber] = @Original_nctsHCCI_SupportingDocument_"& _ "9_DocumentLineItemNumber)) AND ((@IsNull_nctsHCCI_SupportingDocument_9_Complemen"& _ "tOfInformation = 1 AND [nctsHCCI_SupportingDocument_9_ComplementOfInformation] I"& _ "S NULL) OR ([nctsHCCI_SupportingDocument_9_ComplementOfInformation] = @Original_"& _ "nctsHCCI_SupportingDocument_9_ComplementOfInformation)) AND ((@IsNull_nctsHCCI_A"& _ "dditionalReference_1_Type = 1 AND [nctsHCCI_AdditionalReference_1_Type] IS NULL)"& _ " OR ([nctsHCCI_AdditionalReference_1_Type] = @Original_nctsHCCI_AdditionalRefere"& _ "nce_1_Type)) AND ((@IsNull_nctsHCCI_AdditionalReference_1_ReferenceNumber = 1 AN"& _ "D [nctsHCCI_AdditionalReference_1_ReferenceNumber] IS NULL) OR ([nctsHCCI_Additi"& _ "onalReference_1_ReferenceNumber] = @Original_nctsHCCI_AdditionalReference_1_Refe"& _ "renceNumber)) AND ((@IsNull_nctsHCCI_AdditionalReference_2_Type = 1 AND [nctsHCC"& _ "I_AdditionalReference_2_Type] IS NULL) OR ([nctsHCCI_AdditionalReference_2_Type]"& _ " = @Original_nctsHCCI_AdditionalReference_2_Type)) AND ((@IsNull_nctsHCCI_Additi"& _ "onalReference_2_ReferenceNumber = 1 AND [nctsHCCI_AdditionalReference_2_Referenc"& _ "eNumber] IS NULL) OR ([nctsHCCI_AdditionalReference_2_ReferenceNumber] = @Origin"& _ "al_nctsHCCI_AdditionalReference_2_ReferenceNumber)) AND ((@IsNull_nctsHCCI_Addit"& _ "ionalReference_3_Type = 1 AND [nctsHCCI_AdditionalReference_3_Type] IS NULL) OR "& _ "([nctsHCCI_AdditionalReference_3_Type] = @Original_nctsHCCI_AdditionalReference_"& _ "3_Type)) AND ((@IsNull_nctsHCCI_AdditionalReference_3_ReferenceNumber = 1 AND [n"& _ "ctsHCCI_AdditionalReference_3_ReferenceNumber] IS NULL) OR ([nctsHCCI_Additional"& _ "Reference_3_ReferenceNumber] = @Original_nctsHCCI_AdditionalReference_3_Referenc"& _ "eNumber)) AND ((@IsNull_nctsHCCI_AdditionalReference_4_Type = 1 AND [nctsHCCI_Ad"& _ "ditionalReference_4_Type] IS NULL) OR ([nctsHCCI_AdditionalReference_4_Type] = @"& _ "Original_nctsHCCI_AdditionalReference_4_Type)) AND ((@IsNull_nctsHCCI_Additional"& _ "Reference_4_ReferenceNumber = 1 AND [nctsHCCI_AdditionalReference_4_ReferenceNum"& _ "ber] IS NULL) OR ([nctsHCCI_AdditionalReference_4_ReferenceNumber] = @Original_n"& _ "ctsHCCI_AdditionalReference_4_ReferenceNumber)) AND ((@IsNull_nctsHCCI_Additiona"& _ "lReference_5_Type = 1 AND [nctsHCCI_AdditionalReference_5_Type] IS NULL) OR ([nc"& _ "tsHCCI_AdditionalReference_5_Type] = @Original_nctsHCCI_AdditionalReference_5_Ty"& _ "pe)) AND ((@IsNull_nctsHCCI_AdditionalReference_5_ReferenceNumber = 1 AND [nctsH"& _ "CCI_AdditionalReference_5_ReferenceNumber] IS NULL) OR ([nctsHCCI_AdditionalRefe"& _ "rence_5_ReferenceNumber] = @Original_nctsHCCI_AdditionalReference_5_ReferenceNum"& _ "ber)) AND ((@IsNull_nctsHCCI_AdditionalReference_6_Type = 1 AND [nctsHCCI_Additi"& _ "onalReference_6_Type] IS NULL) OR ([nctsHCCI_AdditionalReference_6_Type] = @Orig"& _ "inal_nctsHCCI_AdditionalReference_6_Type)) AND ((@IsNull_nctsHCCI_AdditionalRefe"& _ "rence_6_ReferenceNumber = 1 AND [nctsHCCI_AdditionalReference_6_ReferenceNumber]"& _ " IS NULL) OR ([nctsHCCI_AdditionalReference_6_ReferenceNumber] = @Original_nctsH"& _ "CCI_AdditionalReference_6_ReferenceNumber)) AND ((@IsNull_nctsHCCI_AdditionalRef"& _ "erence_7_Type = 1 AND [nctsHCCI_AdditionalReference_7_Type] IS NULL) OR ([nctsHC"& _ "CI_AdditionalReference_7_Type] = @Original_nctsHCCI_AdditionalReference_7_Type))"& _ " AND ((@IsNull_nctsHCCI_AdditionalReference_7_ReferenceNumber = 1 AND [nctsHCCI_"& _ "AdditionalReference_7_ReferenceNumber] IS NULL) OR ([nctsHCCI_AdditionalReferenc"& _ "e_7_ReferenceNumber] = @Original_nctsHCCI_AdditionalReference_7_ReferenceNumber)"& _ ") AND ((@IsNull_nctsHCCI_AdditionalReference_8_Type = 1 AND [nctsHCCI_Additional"& _ "Reference_8_Type] IS NULL) OR ([nctsHCCI_AdditionalReference_8_Type] = @Original"& _ "_nctsHCCI_AdditionalReference_8_Type)) AND ((@IsNull_nctsHCCI_AdditionalReferenc"& _ "e_8_ReferenceNumber = 1 AND [nctsHCCI_AdditionalReference_8_ReferenceNumber] IS "& _ "NULL) OR ([nctsHCCI_AdditionalReference_8_ReferenceNumber] = @Original_nctsHCCI_"& _ "AdditionalReference_8_ReferenceNumber)) AND ((@IsNull_nctsHCCI_AdditionalReferen"& _ "ce_9_Type = 1 AND [nctsHCCI_AdditionalReference_9_Type] IS NULL) OR ([nctsHCCI_A"& _ "dditionalReference_9_Type] = @Original_nctsHCCI_AdditionalReference_9_Type)) AND"& _ " ((@IsNull_nctsHCCI_AdditionalReference_9_ReferenceNumber = 1 AND [nctsHCCI_Addi"& _ "tionalReference_9_ReferenceNumber] IS NULL) OR ([nctsHCCI_AdditionalReference_9_"& _ "ReferenceNumber] = @Original_nctsHCCI_AdditionalReference_9_ReferenceNumber)) AN"& _ "D ((@IsNull_nctsHCCI_AdditionalInformation_1_Code = 1 AND [nctsHCCI_AdditionalIn"& _ "formation_1_Code] IS NULL) OR ([nctsHCCI_AdditionalInformation_1_Code] = @Origin"& _ "al_nctsHCCI_AdditionalInformation_1_Code)) AND ((@IsNull_nctsHCCI_AdditionalInfo"& _ "rmation_1_Text = 1 AND [nctsHCCI_AdditionalInformation_1_Text] IS NULL) OR ([nct"& _ "sHCCI_AdditionalInformation_1_Text] = @Original_nctsHCCI_AdditionalInformation_1"& _ "_Text)) AND ((@IsNull_nctsHCCI_AdditionalInformation_2_Code = 1 AND [nctsHCCI_Ad"& _ "ditionalInformation_2_Code] IS NULL) OR ([nctsHCCI_AdditionalInformation_2_Code]"& _ " = @Original_nctsHCCI_AdditionalInformation_2_Code)) AND ((@IsNull_nctsHCCI_Addi"& _ "tionalInformation_2_Text = 1 AND [nctsHCCI_AdditionalInformation_2_Text] IS NULL"& _ ") OR ([nctsHCCI_AdditionalInformation_2_Text] = @Original_nctsHCCI_AdditionalInf"& _ "ormation_2_Text)) AND ((@IsNull_nctsHCCI_AdditionalInformation_3_Code = 1 AND [n"& _ "ctsHCCI_AdditionalInformation_3_Code] IS NULL) OR ([nctsHCCI_AdditionalInformati"& _ "on_3_Code] = @Original_nctsHCCI_AdditionalInformation_3_Code)) AND ((@IsNull_nct"& _ "sHCCI_AdditionalInformation_3_Text = 1 AND [nctsHCCI_AdditionalInformation_3_Tex"& _ "t] IS NULL) OR ([nctsHCCI_AdditionalInformation_3_Text] = @Original_nctsHCCI_Add"& _ "itionalInformation_3_Text)) AND ((@IsNull_nctsHCCI_AdditionalInformation_4_Code "& _ "= 1 AND [nctsHCCI_AdditionalInformation_4_Code] IS NULL) OR ([nctsHCCI_Additiona"& _ "lInformation_4_Code] = @Original_nctsHCCI_AdditionalInformation_4_Code)) AND ((@"& _ "IsNull_nctsHCCI_AdditionalInformation_4_Text = 1 AND [nctsHCCI_AdditionalInforma"& _ "tion_4_Text] IS NULL) OR ([nctsHCCI_AdditionalInformation_4_Text] = @Original_nc"& _ "tsHCCI_AdditionalInformation_4_Text)) AND ((@IsNull_nctsHCCI_AdditionalInformati"& _ "on_5_Code = 1 AND [nctsHCCI_AdditionalInformation_5_Code] IS NULL) OR ([nctsHCCI"& _ "_AdditionalInformation_5_Code] = @Original_nctsHCCI_AdditionalInformation_5_Code"& _ ")) AND ((@IsNull_nctsHCCI_AdditionalInformation_5_Text = 1 AND [nctsHCCI_Additio"& _ "nalInformation_5_Text] IS NULL) OR ([nctsHCCI_AdditionalInformation_5_Text] = @O"& _ "riginal_nctsHCCI_AdditionalInformation_5_Text)) AND ((@IsNull_nctsHCCI_Additiona"& _ "lInformation_6_Code = 1 AND [nctsHCCI_AdditionalInformation_6_Code] IS NULL) OR "& _ "([nctsHCCI_AdditionalInformation_6_Code] = @Original_nctsHCCI_AdditionalInformat"& _ "ion_6_Code)) AND ((@IsNull_nctsHCCI_AdditionalInformation_6_Text = 1 AND [nctsHC"& _ "CI_AdditionalInformation_6_Text] IS NULL) OR ([nctsHCCI_AdditionalInformation_6_"& _ "Text] = @Original_nctsHCCI_AdditionalInformation_6_Text)) AND ((@IsNull_nctsHCCI"& _ "_AdditionalInformation_7_Code = 1 AND [nctsHCCI_AdditionalInformation_7_Code] IS"& _ " NULL) OR ([nctsHCCI_AdditionalInformation_7_Code] = @Original_nctsHCCI_Addition"& _ "alInformation_7_Code)) AND ((@IsNull_nctsHCCI_AdditionalInformation_7_Text = 1 A"& _ "ND [nctsHCCI_AdditionalInformation_7_Text] IS NULL) OR ([nctsHCCI_AdditionalInfo"& _ "rmation_7_Text] = @Original_nctsHCCI_AdditionalInformation_7_Text)) AND ((@IsNul"& _ "l_nctsHCCI_AdditionalInformation_8_Code = 1 AND [nctsHCCI_AdditionalInformation_"& _ "8_Code] IS NULL) OR ([nctsHCCI_AdditionalInformation_8_Code] = @Original_nctsHCC"& _ "I_AdditionalInformation_8_Code)) AND ((@IsNull_nctsHCCI_AdditionalInformation_8_"& _ "Text = 1 AND [nctsHCCI_AdditionalInformation_8_Text] IS NULL) OR ([nctsHCCI_Addi"& _ "tionalInformation_8_Text] = @Original_nctsHCCI_AdditionalInformation_8_Text)) AN"& _ "D ((@IsNull_nctsHCCI_AdditionalInformation_9_Code = 1 AND [nctsHCCI_AdditionalIn"& _ "formation_9_Code] IS NULL) OR ([nctsHCCI_AdditionalInformation_9_Code] = @Origin"& _ "al_nctsHCCI_AdditionalInformation_9_Code)) AND ((@IsNull_nctsHCCI_AdditionalInfo"& _ "rmation_9_Text = 1 AND [nctsHCCI_AdditionalInformation_9_Text] IS NULL) OR ([nct"& _ "sHCCI_AdditionalInformation_9_Text] = @Original_nctsHCCI_AdditionalInformation_9"& _ "_Text)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsHCCI_Id, nctsHCCI_NctsId, nctsHCCI_NctsHCId, nctsHCCI_Good"& _ "sItemNumber, nctsHCCI_DeclarationGoodsItemNumber, nctsHCCI_CommodityCode, nctsHC"& _ "CI_MethodeOfPayment, nctsHCCI_UNNumber_1, nctsHCCI_UNNumber_2, nctsHCCI_UNNumber"& _ "_3, nctsHCCI_UNNumber_4, nctsHCCI_DeclarationType, nctsHCCI_ArticleCode, nctsHCC"& _ "I_DescriptionOfGoods, nctsHCCI_CusCode, nctsHCCI_CountryOfDispatch, nctsHCCI_Cou"& _ "ntryOfDestination, nctsHCCI_GrossMass, nctsHCCI_NetMass, nctsHCCI_ReferenceNumbe"& _ "rUCR, nctsHCCI_Consignor_AdressCode, nctsHCCI_Consignor_IdentificationNumber, nc"& _ "tsHCCI_Consignor_SubsidiaryNumber, nctsHCCI_Consignor_Name, nctsHCCI_Consignor_S"& _ "treetNumber, nctsHCCI_Consignor_City, nctsHCCI_Consignor_Postcode, nctsHCCI_Cons"& _ "ignor_Country, nctsHCCI_Consignor_ContactPerson_Name, nctsHCCI_Consignor_Contact"& _ "Person_PhoneNumber, nctsHCCI_Consignor_ContactPerson_EMailAddress, nctsHCCI_Addi"& _ "tionalSupplyChainActor_1_Role, nctsHCCI_AdditionalSupplyChainActor_1_Identificat"& _ "ionNumber, nctsHCCI_AdditionalSupplyChainActor_2_Role, nctsHCCI_AdditionalSupply"& _ "ChainActor_2_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_3_Role, n"& _ "ctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber, nctsHCCI_AdditionalSu"& _ "pplyChainActor_4_Role, nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumbe"& _ "r, nctsHCCI_AdditionalSupplyChainActor_5_Role, nctsHCCI_AdditionalSupplyChainAct"& _ "or_5_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_6_Role, nctsHCCI_"& _ "AdditionalSupplyChainActor_6_IdentificationNumber, nctsHCCI_AdditionalSupplyChai"& _ "nActor_7_Role, nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber, nctsH"& _ "CCI_AdditionalSupplyChainActor_8_Role, nctsHCCI_AdditionalSupplyChainActor_8_Ide"& _ "ntificationNumber, nctsHCCI_AdditionalSupplyChainActor_9_Role, nctsHCCI_Addition"& _ "alSupplyChainActor_9_IdentificationNumber, nctsHCCI_GoodsValue, nctsHCCI_Currenc"& _ "yOfGoodsValue, nctsHCCI_ExchangeRate, nctsHCCI_ExchangeDate, nctsHCCI_CurrencyEx"& _ "changeRateType, nctsHCCI_FractionOfGoodsValue, nctsHCCI_GuaranteeAmount, nctsHCC"& _ "I_PreviousDocument_1_Type, nctsHCCI_PreviousDocument_1_ReferenceNumber, nctsHCCI"& _ "_PreviousDocument_1_DocumentLineItemNumber, nctsHCCI_PreviousDocument_1_Compleme"& _ "ntOfInformation, nctsHCCI_PreviousDocument_1_GoodsItemNumber, nctsHCCI_PreviousD"& _ "ocument_2_Type, nctsHCCI_PreviousDocument_2_ReferenceNumber, nctsHCCI_PreviousDo"& _ "cument_2_DocumentLineItemNumber, nctsHCCI_PreviousDocument_2_ComplementOfInforma"& _ "tion, nctsHCCI_PreviousDocument_2_GoodsItemNumber, nctsHCCI_PreviousDocument_3_T"& _ "ype, nctsHCCI_PreviousDocument_3_ReferenceNumber, nctsHCCI_PreviousDocument_3_Do"& _ "cumentLineItemNumber, nctsHCCI_PreviousDocument_3_ComplementOfInformation, nctsH"& _ "CCI_PreviousDocument_3_GoodsItemNumber, nctsHCCI_PreviousDocument_4_Type, nctsHC"& _ "CI_PreviousDocument_4_ReferenceNumber, nctsHCCI_PreviousDocument_4_DocumentLineI"& _ "temNumber, nctsHCCI_PreviousDocument_4_ComplementOfInformation, nctsHCCI_Previou"& _ "sDocument_4_GoodsItemNumber, nctsHCCI_PreviousDocument_5_Type, nctsHCCI_Previous"& _ "Document_5_ReferenceNumber, nctsHCCI_PreviousDocument_5_DocumentLineItemNumber, "& _ "nctsHCCI_PreviousDocument_5_ComplementOfInformation, nctsHCCI_PreviousDocument_5"& _ "_GoodsItemNumber, nctsHCCI_PreviousDocument_6_Type, nctsHCCI_PreviousDocument_6_"& _ "ReferenceNumber, nctsHCCI_PreviousDocument_6_DocumentLineItemNumber, nctsHCCI_Pr"& _ "eviousDocument_6_ComplementOfInformation, nctsHCCI_PreviousDocument_6_GoodsItemN"& _ "umber, nctsHCCI_PreviousDocument_7_Type, nctsHCCI_PreviousDocument_7_ReferenceNu"& _ "mber, nctsHCCI_PreviousDocument_7_DocumentLineItemNumber, nctsHCCI_PreviousDocum"& _ "ent_7_ComplementOfInformation, nctsHCCI_PreviousDocument_7_GoodsItemNumber, ncts"& _ "HCCI_PreviousDocument_8_Type, nctsHCCI_PreviousDocument_8_ReferenceNumber, nctsH"& _ "CCI_PreviousDocument_8_DocumentLineItemNumber, nctsHCCI_PreviousDocument_8_Compl"& _ "ementOfInformation, nctsHCCI_PreviousDocument_8_GoodsItemNumber, nctsHCCI_Previo"& _ "usDocument_9_Type, nctsHCCI_PreviousDocument_9_ReferenceNumber, nctsHCCI_Previou"& _ "sDocument_9_DocumentLineItemNumber, nctsHCCI_PreviousDocument_9_ComplementOfInfo"& _ "rmation, nctsHCCI_PreviousDocument_9_GoodsItemNumber, nctsHCCI_SupportingDocumen"& _ "t_1_Type, nctsHCCI_SupportingDocument_1_ReferenceNumber, nctsHCCI_SupportingDocu"& _ "ment_1_DocumentLineItemNumber, nctsHCCI_SupportingDocument_1_ComplementOfInforma"& _ "tion, nctsHCCI_SupportingDocument_2_Type, nctsHCCI_SupportingDocument_2_Referenc"& _ "eNumber, nctsHCCI_SupportingDocument_2_DocumentLineItemNumber, nctsHCCI_Supporti"& _ "ngDocument_2_ComplementOfInformation, nctsHCCI_SupportingDocument_3_Type, nctsHC"& _ "CI_SupportingDocument_3_ReferenceNumber, nctsHCCI_SupportingDocument_3_DocumentL"& _ "ineItemNumber, nctsHCCI_SupportingDocument_3_ComplementOfInformation, nctsHCCI_S"& _ "upportingDocument_4_Type, nctsHCCI_SupportingDocument_4_ReferenceNumber, nctsHCC"& _ "I_SupportingDocument_4_DocumentLineItemNumber, nctsHCCI_SupportingDocument_4_Com"& _ "plementOfInformation, nctsHCCI_SupportingDocument_5_Type, nctsHCCI_SupportingDoc"& _ "ument_5_ReferenceNumber, nctsHCCI_SupportingDocument_5_DocumentLineItemNumber, n"& _ "ctsHCCI_SupportingDocument_5_ComplementOfInformation, nctsHCCI_SupportingDocumen"& _ "t_6_Type, nctsHCCI_SupportingDocument_6_ReferenceNumber, nctsHCCI_SupportingDocu"& _ "ment_6_DocumentLineItemNumber, nctsHCCI_SupportingDocument_6_ComplementOfInforma"& _ "tion, nctsHCCI_SupportingDocument_7_Type, nctsHCCI_SupportingDocument_7_Referenc"& _ "eNumber, nctsHCCI_SupportingDocument_7_DocumentLineItemNumber, nctsHCCI_Supporti"& _ "ngDocument_7_ComplementOfInformation, nctsHCCI_SupportingDocument_8_Type, nctsHC"& _ "CI_SupportingDocument_8_ReferenceNumber, nctsHCCI_SupportingDocument_8_DocumentL"& _ "ineItemNumber, nctsHCCI_SupportingDocument_8_ComplementOfInformation, nctsHCCI_S"& _ "upportingDocument_9_Type, nctsHCCI_SupportingDocument_9_ReferenceNumber, nctsHCC"& _ "I_SupportingDocument_9_DocumentLineItemNumber, nctsHCCI_SupportingDocument_9_Com"& _ "plementOfInformation, nctsHCCI_AdditionalReference_1_Type, nctsHCCI_AdditionalRe"& _ "ference_1_ReferenceNumber, nctsHCCI_AdditionalReference_2_Type, nctsHCCI_Additio"& _ "nalReference_2_ReferenceNumber, nctsHCCI_AdditionalReference_3_Type, nctsHCCI_Ad"& _ "ditionalReference_3_ReferenceNumber, nctsHCCI_AdditionalReference_4_Type, nctsHC"& _ "CI_AdditionalReference_4_ReferenceNumber, nctsHCCI_AdditionalReference_5_Type, n"& _ "ctsHCCI_AdditionalReference_5_ReferenceNumber, nctsHCCI_AdditionalReference_6_Ty"& _ "pe, nctsHCCI_AdditionalReference_6_ReferenceNumber, nctsHCCI_AdditionalReference"& _ "_7_Type, nctsHCCI_AdditionalReference_7_ReferenceNumber, nctsHCCI_AdditionalRefe"& _ "rence_8_Type, nctsHCCI_AdditionalReference_8_ReferenceNumber, nctsHCCI_Additiona"& _ "lReference_9_Type, nctsHCCI_AdditionalReference_9_ReferenceNumber, nctsHCCI_Addi"& _ "tionalInformation_1_Code, nctsHCCI_AdditionalInformation_1_Text, nctsHCCI_Additi"& _ "onalInformation_2_Code, nctsHCCI_AdditionalInformation_2_Text, nctsHCCI_Addition"& _ "alInformation_3_Code, nctsHCCI_AdditionalInformation_3_Text, nctsHCCI_Additional"& _ "Information_4_Code, nctsHCCI_AdditionalInformation_4_Text, nctsHCCI_AdditionalIn"& _ "formation_5_Code, nctsHCCI_AdditionalInformation_5_Text, nctsHCCI_AdditionalInfo"& _ "rmation_6_Code, nctsHCCI_AdditionalInformation_6_Text, nctsHCCI_AdditionalInform"& _ "ation_7_Code, nctsHCCI_AdditionalInformation_7_Text, nctsHCCI_AdditionalInformat"& _ "ion_8_Code, nctsHCCI_AdditionalInformation_8_Text, nctsHCCI_AdditionalInformatio"& _ "n_9_Code, nctsHCCI_AdditionalInformation_9_Text FROM tblDakosy_NCTSOut004_HouseC"& _ "onsignment_ConsignmentItem WHERE (nctsHCCI_Id = @nctsHCCI_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_NctsHCId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_NctsHCId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CommodityCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CommodityCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_MethodeOfPayment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_MethodeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_UNNumber_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_UNNumber_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_UNNumber_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_UNNumber_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_DeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_ArticleCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ArticleCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_DescriptionOfGoods", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DescriptionOfGoods", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CusCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CusCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDispatch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "nctsHCCI_GrossMass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_NetMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 22, 6, "nctsHCCI_NetMass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_AdressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_GoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 6, "nctsHCCI_GoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_ExchangeRate", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 4, "nctsHCCI_ExchangeRate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_ExchangeDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ExchangeDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_CurrencyExchangeRateType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyExchangeRateType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_FractionOfGoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 2, "nctsHCCI_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_GuaranteeAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsHCCI_GuaranteeAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_NctsHCId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_NctsHCId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationGoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CommodityCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CommodityCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CommodityCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CommodityCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_MethodeOfPayment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_MethodeOfPayment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_MethodeOfPayment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_MethodeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_UNNumber_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_UNNumber_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_UNNumber_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_UNNumber_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_UNNumber_3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_UNNumber_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_UNNumber_4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_UNNumber_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_UNNumber_4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_DeclarationType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_DeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DeclarationType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_ArticleCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ArticleCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_ArticleCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ArticleCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_DescriptionOfGoods", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DescriptionOfGoods", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_DescriptionOfGoods", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_DescriptionOfGoods", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CusCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CusCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CusCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CusCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CountryOfDispatch", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CountryOfDispatch", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDispatch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CountryOfDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CountryOfDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CountryOfDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_GrossMass", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GrossMass", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_GrossMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 19, 3, "nctsHCCI_GrossMass", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_NetMass", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_NetMass", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_NetMass", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 22, 6, "nctsHCCI_NetMass", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_ReferenceNumberUCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_ReferenceNumberUCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ReferenceNumberUCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_AdressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_AdressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_AdressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_SubsidiaryNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_StreetNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_StreetNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_StreetNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_City", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_Postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_Postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_Country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_Country", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_PhoneNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Consignor_ContactPerson_EMailAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_Role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_GoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_GoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 6, "nctsHCCI_GoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyOfGoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_ExchangeRate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ExchangeRate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_ExchangeRate", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 4, "nctsHCCI_ExchangeRate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_ExchangeDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ExchangeDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_ExchangeDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_ExchangeDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_CurrencyExchangeRateType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyExchangeRateType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_CurrencyExchangeRateType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_CurrencyExchangeRateType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_FractionOfGoodsValue", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_FractionOfGoodsValue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 2, "nctsHCCI_FractionOfGoodsValue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_GuaranteeAmount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_GuaranteeAmount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_GuaranteeAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "nctsHCCI_GuaranteeAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_1_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_2_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_3_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_4_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_5_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_6_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_7_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_8_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_PreviousDocument_9_GoodsItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_1_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_2_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_3_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_4_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_5_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_6_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_7_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_8_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_SupportingDocument_9_ComplementOfInformation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_1_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_1_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_1_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_2_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_2_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_2_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_3_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_3_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_3_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_4_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_4_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_4_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_5_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_5_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_5_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_6_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_6_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_6_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_7_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_7_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_7_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_8_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_8_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_8_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_9_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_9_Type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalReference_9_ReferenceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_1_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_2_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_3_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_4_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_5_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_6_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_7_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_8_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCI_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCI_AdditionalInformation_9_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_AdditionalInformation_9_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCI_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCI_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsHCCI_Id, nctsHCCI_NctsId, nctsHCCI_NctsHCId, nctsHCCI_GoodsItemNumber,"& _ " nctsHCCI_DeclarationGoodsItemNumber, nctsHCCI_CommodityCode, nctsHCCI_MethodeOf"& _ "Payment, nctsHCCI_UNNumber_1, nctsHCCI_UNNumber_2, nctsHCCI_UNNumber_3, nctsHCCI"& _ "_UNNumber_4, nctsHCCI_DeclarationType, nctsHCCI_ArticleCode, nctsHCCI_Descriptio"& _ "nOfGoods, nctsHCCI_CusCode, nctsHCCI_CountryOfDispatch, nctsHCCI_CountryOfDestin"& _ "ation, nctsHCCI_GrossMass, nctsHCCI_NetMass, nctsHCCI_ReferenceNumberUCR, nctsHC"& _ "CI_Consignor_AdressCode, nctsHCCI_Consignor_IdentificationNumber, nctsHCCI_Consi"& _ "gnor_SubsidiaryNumber, nctsHCCI_Consignor_Name, nctsHCCI_Consignor_StreetNumber,"& _ " nctsHCCI_Consignor_City, nctsHCCI_Consignor_Postcode, nctsHCCI_Consignor_Countr"& _ "y, nctsHCCI_Consignor_ContactPerson_Name, nctsHCCI_Consignor_ContactPerson_Phone"& _ "Number, nctsHCCI_Consignor_ContactPerson_EMailAddress, nctsHCCI_AdditionalSupply"& _ "ChainActor_1_Role, nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber, n"& _ "ctsHCCI_AdditionalSupplyChainActor_2_Role, nctsHCCI_AdditionalSupplyChainActor_2"& _ "_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_3_Role, nctsHCCI_Addi"& _ "tionalSupplyChainActor_3_IdentificationNumber, nctsHCCI_AdditionalSupplyChainAct"& _ "or_4_Role, nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber, nctsHCCI_"& _ "AdditionalSupplyChainActor_5_Role, nctsHCCI_AdditionalSupplyChainActor_5_Identif"& _ "icationNumber, nctsHCCI_AdditionalSupplyChainActor_6_Role, nctsHCCI_AdditionalSu"& _ "pplyChainActor_6_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_7_Rol"& _ "e, nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber, nctsHCCI_Addition"& _ "alSupplyChainActor_8_Role, nctsHCCI_AdditionalSupplyChainActor_8_IdentificationN"& _ "umber, nctsHCCI_AdditionalSupplyChainActor_9_Role, nctsHCCI_AdditionalSupplyChai"& _ "nActor_9_IdentificationNumber, nctsHCCI_GoodsValue, nctsHCCI_CurrencyOfGoodsValu"& _ "e, nctsHCCI_ExchangeRate, nctsHCCI_ExchangeDate, nctsHCCI_CurrencyExchangeRateTy"& _ "pe, nctsHCCI_FractionOfGoodsValue, nctsHCCI_GuaranteeAmount, nctsHCCI_PreviousDo"& _ "cument_1_Type, nctsHCCI_PreviousDocument_1_ReferenceNumber, nctsHCCI_PreviousDoc"& _ "ument_1_DocumentLineItemNumber, nctsHCCI_PreviousDocument_1_ComplementOfInformat"& _ "ion, nctsHCCI_PreviousDocument_1_GoodsItemNumber, nctsHCCI_PreviousDocument_2_Ty"& _ "pe, nctsHCCI_PreviousDocument_2_ReferenceNumber, nctsHCCI_PreviousDocument_2_Doc"& _ "umentLineItemNumber, nctsHCCI_PreviousDocument_2_ComplementOfInformation, nctsHC"& _ "CI_PreviousDocument_2_GoodsItemNumber, nctsHCCI_PreviousDocument_3_Type, nctsHCC"& _ "I_PreviousDocument_3_ReferenceNumber, nctsHCCI_PreviousDocument_3_DocumentLineIt"& _ "emNumber, nctsHCCI_PreviousDocument_3_ComplementOfInformation, nctsHCCI_Previous"& _ "Document_3_GoodsItemNumber, nctsHCCI_PreviousDocument_4_Type, nctsHCCI_PreviousD"& _ "ocument_4_ReferenceNumber, nctsHCCI_PreviousDocument_4_DocumentLineItemNumber, n"& _ "ctsHCCI_PreviousDocument_4_ComplementOfInformation, nctsHCCI_PreviousDocument_4_"& _ "GoodsItemNumber, nctsHCCI_PreviousDocument_5_Type, nctsHCCI_PreviousDocument_5_R"& _ "eferenceNumber, nctsHCCI_PreviousDocument_5_DocumentLineItemNumber, nctsHCCI_Pre"& _ "viousDocument_5_ComplementOfInformation, nctsHCCI_PreviousDocument_5_GoodsItemNu"& _ "mber, nctsHCCI_PreviousDocument_6_Type, nctsHCCI_PreviousDocument_6_ReferenceNum"& _ "ber, nctsHCCI_PreviousDocument_6_DocumentLineItemNumber, nctsHCCI_PreviousDocume"& _ "nt_6_ComplementOfInformation, nctsHCCI_PreviousDocument_6_GoodsItemNumber, nctsH"& _ "CCI_PreviousDocument_7_Type, nctsHCCI_PreviousDocument_7_ReferenceNumber, nctsHC"& _ "CI_PreviousDocument_7_DocumentLineItemNumber, nctsHCCI_PreviousDocument_7_Comple"& _ "mentOfInformation, nctsHCCI_PreviousDocument_7_GoodsItemNumber, nctsHCCI_Previou"& _ "sDocument_8_Type, nctsHCCI_PreviousDocument_8_ReferenceNumber, nctsHCCI_Previous"& _ "Document_8_DocumentLineItemNumber, nctsHCCI_PreviousDocument_8_ComplementOfInfor"& _ "mation, nctsHCCI_PreviousDocument_8_GoodsItemNumber, nctsHCCI_PreviousDocument_9"& _ "_Type, nctsHCCI_PreviousDocument_9_ReferenceNumber, nctsHCCI_PreviousDocument_9_"& _ "DocumentLineItemNumber, nctsHCCI_PreviousDocument_9_ComplementOfInformation, nct"& _ "sHCCI_PreviousDocument_9_GoodsItemNumber, nctsHCCI_SupportingDocument_1_Type, nc"& _ "tsHCCI_SupportingDocument_1_ReferenceNumber, nctsHCCI_SupportingDocument_1_Docum"& _ "entLineItemNumber, nctsHCCI_SupportingDocument_1_ComplementOfInformation, nctsHC"& _ "CI_SupportingDocument_2_Type, nctsHCCI_SupportingDocument_2_ReferenceNumber, nct"& _ "sHCCI_SupportingDocument_2_DocumentLineItemNumber, nctsHCCI_SupportingDocument_2"& _ "_ComplementOfInformation, nctsHCCI_SupportingDocument_3_Type, nctsHCCI_Supportin"& _ "gDocument_3_ReferenceNumber, nctsHCCI_SupportingDocument_3_DocumentLineItemNumbe"& _ "r, nctsHCCI_SupportingDocument_3_ComplementOfInformation, nctsHCCI_SupportingDoc"& _ "ument_4_Type, nctsHCCI_SupportingDocument_4_ReferenceNumber, nctsHCCI_Supporting"& _ "Document_4_DocumentLineItemNumber, nctsHCCI_SupportingDocument_4_ComplementOfInf"& _ "ormation, nctsHCCI_SupportingDocument_5_Type, nctsHCCI_SupportingDocument_5_Refe"& _ "renceNumber, nctsHCCI_SupportingDocument_5_DocumentLineItemNumber, nctsHCCI_Supp"& _ "ortingDocument_5_ComplementOfInformation, nctsHCCI_SupportingDocument_6_Type, nc"& _ "tsHCCI_SupportingDocument_6_ReferenceNumber, nctsHCCI_SupportingDocument_6_Docum"& _ "entLineItemNumber, nctsHCCI_SupportingDocument_6_ComplementOfInformation, nctsHC"& _ "CI_SupportingDocument_7_Type, nctsHCCI_SupportingDocument_7_ReferenceNumber, nct"& _ "sHCCI_SupportingDocument_7_DocumentLineItemNumber, nctsHCCI_SupportingDocument_7"& _ "_ComplementOfInformation, nctsHCCI_SupportingDocument_8_Type, nctsHCCI_Supportin"& _ "gDocument_8_ReferenceNumber, nctsHCCI_SupportingDocument_8_DocumentLineItemNumbe"& _ "r, nctsHCCI_SupportingDocument_8_ComplementOfInformation, nctsHCCI_SupportingDoc"& _ "ument_9_Type, nctsHCCI_SupportingDocument_9_ReferenceNumber, nctsHCCI_Supporting"& _ "Document_9_DocumentLineItemNumber, nctsHCCI_SupportingDocument_9_ComplementOfInf"& _ "ormation, nctsHCCI_AdditionalReference_1_Type, nctsHCCI_AdditionalReference_1_Re"& _ "ferenceNumber, nctsHCCI_AdditionalReference_2_Type, nctsHCCI_AdditionalReference"& _ "_2_ReferenceNumber, nctsHCCI_AdditionalReference_3_Type, nctsHCCI_AdditionalRefe"& _ "rence_3_ReferenceNumber, nctsHCCI_AdditionalReference_4_Type, nctsHCCI_Additiona"& _ "lReference_4_ReferenceNumber, nctsHCCI_AdditionalReference_5_Type, nctsHCCI_Addi"& _ "tionalReference_5_ReferenceNumber, nctsHCCI_AdditionalReference_6_Type, nctsHCCI"& _ "_AdditionalReference_6_ReferenceNumber, nctsHCCI_AdditionalReference_7_Type, nct"& _ "sHCCI_AdditionalReference_7_ReferenceNumber, nctsHCCI_AdditionalReference_8_Type"& _ ", nctsHCCI_AdditionalReference_8_ReferenceNumber, nctsHCCI_AdditionalReference_9"& _ "_Type, nctsHCCI_AdditionalReference_9_ReferenceNumber, nctsHCCI_AdditionalInform"& _ "ation_1_Code, nctsHCCI_AdditionalInformation_1_Text, nctsHCCI_AdditionalInformat"& _ "ion_2_Code, nctsHCCI_AdditionalInformation_2_Text, nctsHCCI_AdditionalInformatio"& _ "n_3_Code, nctsHCCI_AdditionalInformation_3_Text, nctsHCCI_AdditionalInformation_"& _ "4_Code, nctsHCCI_AdditionalInformation_4_Text, nctsHCCI_AdditionalInformation_5_"& _ "Code, nctsHCCI_AdditionalInformation_5_Text, nctsHCCI_AdditionalInformation_6_Co"& _ "de, nctsHCCI_AdditionalInformation_6_Text, nctsHCCI_AdditionalInformation_7_Code"& _ ", nctsHCCI_AdditionalInformation_7_Text, nctsHCCI_AdditionalInformation_8_Code, "& _ "nctsHCCI_AdditionalInformation_8_Text, nctsHCCI_AdditionalInformation_9_Code, nc"& _ "tsHCCI_AdditionalInformation_9_Text FROM dbo.tblDakosy_NCTSOut004_HouseConsignme"& _ "nt_ConsignmentItem" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable) 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 VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable = New VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem") 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_nctsHCCI_Id As Integer, _ ByVal Original_nctsHCCI_NctsId As Integer, _ ByVal Original_nctsHCCI_NctsHCId As Integer, _ ByVal Original_nctsHCCI_GoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal Original_nctsHCCI_DeclarationGoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal Original_nctsHCCI_CommodityCode As String, _ ByVal Original_nctsHCCI_MethodeOfPayment As String, _ ByVal Original_nctsHCCI_UNNumber_1 As String, _ ByVal Original_nctsHCCI_UNNumber_2 As String, _ ByVal Original_nctsHCCI_UNNumber_3 As String, _ ByVal Original_nctsHCCI_UNNumber_4 As String, _ ByVal Original_nctsHCCI_DeclarationType As String, _ ByVal Original_nctsHCCI_ArticleCode As String, _ ByVal Original_nctsHCCI_DescriptionOfGoods As String, _ ByVal Original_nctsHCCI_CusCode As String, _ ByVal Original_nctsHCCI_CountryOfDispatch As String, _ ByVal Original_nctsHCCI_CountryOfDestination As String, _ ByVal Original_nctsHCCI_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_NetMass As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_ReferenceNumberUCR As String, _ ByVal Original_nctsHCCI_Consignor_AdressCode As String, _ ByVal Original_nctsHCCI_Consignor_IdentificationNumber As String, _ ByVal Original_nctsHCCI_Consignor_SubsidiaryNumber As String, _ ByVal Original_nctsHCCI_Consignor_Name As String, _ ByVal Original_nctsHCCI_Consignor_StreetNumber As String, _ ByVal Original_nctsHCCI_Consignor_City As String, _ ByVal Original_nctsHCCI_Consignor_Postcode As String, _ ByVal Original_nctsHCCI_Consignor_Country As String, _ ByVal Original_nctsHCCI_Consignor_ContactPerson_Name As String, _ ByVal Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber As String, _ ByVal Original_nctsHCCI_Consignor_ContactPerson_EMailAddress As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_1_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_2_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_3_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_4_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_5_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_6_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_7_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_8_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_9_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal Original_nctsHCCI_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_CurrencyOfGoodsValue As String, _ ByVal Original_nctsHCCI_ExchangeRate As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_ExchangeDate As Global.System.Nullable(Of Date), _ ByVal Original_nctsHCCI_CurrencyExchangeRateType As String, _ ByVal Original_nctsHCCI_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_GuaranteeAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_PreviousDocument_1_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_AdditionalReference_1_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_1_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_2_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_2_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_3_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_3_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_4_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_4_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_5_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_5_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_6_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_6_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_7_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_7_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_8_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_8_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_9_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_9_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalInformation_1_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_1_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_2_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_2_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_3_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_3_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_4_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_4_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_5_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_5_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_6_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_6_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_7_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_7_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_8_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_8_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_9_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_9_Text As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsHCCI_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsHCCI_NctsId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nctsHCCI_NctsHCId,Integer) If (Original_nctsHCCI_GoodsItemNumber.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_nctsHCCI_GoodsItemNumber.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_DeclarationGoodsItemNumber.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_nctsHCCI_DeclarationGoodsItemNumber.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_CommodityCode 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_nctsHCCI_CommodityCode,String) End If If (Original_nctsHCCI_MethodeOfPayment 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_nctsHCCI_MethodeOfPayment,String) End If If (Original_nctsHCCI_UNNumber_1 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_nctsHCCI_UNNumber_1,String) End If If (Original_nctsHCCI_UNNumber_2 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_nctsHCCI_UNNumber_2,String) End If If (Original_nctsHCCI_UNNumber_3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_nctsHCCI_UNNumber_3,String) End If If (Original_nctsHCCI_UNNumber_4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_nctsHCCI_UNNumber_4,String) End If If (Original_nctsHCCI_DeclarationType Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_nctsHCCI_DeclarationType,String) End If If (Original_nctsHCCI_ArticleCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_nctsHCCI_ArticleCode,String) End If If (Original_nctsHCCI_DescriptionOfGoods Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_nctsHCCI_DescriptionOfGoods,String) End If If (Original_nctsHCCI_CusCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_nctsHCCI_CusCode,String) End If If (Original_nctsHCCI_CountryOfDispatch Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_nctsHCCI_CountryOfDispatch,String) End If If (Original_nctsHCCI_CountryOfDestination Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_nctsHCCI_CountryOfDestination,String) End If If (Original_nctsHCCI_GrossMass.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_nctsHCCI_GrossMass.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_NetMass.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_nctsHCCI_NetMass.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_ReferenceNumberUCR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_nctsHCCI_ReferenceNumberUCR,String) End If If (Original_nctsHCCI_Consignor_AdressCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_nctsHCCI_Consignor_AdressCode,String) End If If (Original_nctsHCCI_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_nctsHCCI_Consignor_IdentificationNumber,String) End If If (Original_nctsHCCI_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_nctsHCCI_Consignor_SubsidiaryNumber,String) End If If (Original_nctsHCCI_Consignor_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_nctsHCCI_Consignor_Name,String) End If If (Original_nctsHCCI_Consignor_StreetNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_nctsHCCI_Consignor_StreetNumber,String) End If If (Original_nctsHCCI_Consignor_City Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_nctsHCCI_Consignor_City,String) End If If (Original_nctsHCCI_Consignor_Postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_nctsHCCI_Consignor_Postcode,String) End If If (Original_nctsHCCI_Consignor_Country Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_nctsHCCI_Consignor_Country,String) End If If (Original_nctsHCCI_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_nctsHCCI_Consignor_ContactPerson_Name,String) End If If (Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber,String) End If If (Original_nctsHCCI_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_nctsHCCI_Consignor_ContactPerson_EMailAddress,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_1_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_2_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_3_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_4_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_5_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_6_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_7_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_8_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_9_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (Original_nctsHCCI_GoodsValue.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = CType(Original_nctsHCCI_GoodsValue.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_CurrencyOfGoodsValue Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = CType(Original_nctsHCCI_CurrencyOfGoodsValue,String) End If If (Original_nctsHCCI_ExchangeRate.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = CType(Original_nctsHCCI_ExchangeRate.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_ExchangeDate.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(102).Value = CType(Original_nctsHCCI_ExchangeDate.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(102).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_CurrencyExchangeRateType Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(104).Value = CType(Original_nctsHCCI_CurrencyExchangeRateType,String) End If If (Original_nctsHCCI_FractionOfGoodsValue.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(106).Value = CType(Original_nctsHCCI_FractionOfGoodsValue.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(106).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_GuaranteeAmount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(108).Value = CType(Original_nctsHCCI_GuaranteeAmount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(108).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(110).Value = CType(Original_nctsHCCI_PreviousDocument_1_Type,String) End If If (Original_nctsHCCI_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(112).Value = CType(Original_nctsHCCI_PreviousDocument_1_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(114).Value = CType(Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(116).Value = CType(Original_nctsHCCI_PreviousDocument_1_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_1_GoodsItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(118).Value = CType(Original_nctsHCCI_PreviousDocument_1_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(120).Value = CType(Original_nctsHCCI_PreviousDocument_2_Type,String) End If If (Original_nctsHCCI_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(122).Value = CType(Original_nctsHCCI_PreviousDocument_2_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(123).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(123).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(124).Value = CType(Original_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(125).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(125).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(126).Value = CType(Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_2_GoodsItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(127).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(127).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(128).Value = CType(Original_nctsHCCI_PreviousDocument_2_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(129).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(129).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(130).Value = CType(Original_nctsHCCI_PreviousDocument_3_Type,String) End If If (Original_nctsHCCI_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(131).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(131).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(132).Value = CType(Original_nctsHCCI_PreviousDocument_3_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(133).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(133).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(134).Value = CType(Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(135).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(135).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(136).Value = CType(Original_nctsHCCI_PreviousDocument_3_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_3_GoodsItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(137).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(137).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(138).Value = CType(Original_nctsHCCI_PreviousDocument_3_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(140).Value = CType(Original_nctsHCCI_PreviousDocument_4_Type,String) End If If (Original_nctsHCCI_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = CType(Original_nctsHCCI_PreviousDocument_4_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(144).Value = CType(Original_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(146).Value = CType(Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(148).Value = CType(Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(150).Value = CType(Original_nctsHCCI_PreviousDocument_5_Type,String) End If If (Original_nctsHCCI_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(152).Value = CType(Original_nctsHCCI_PreviousDocument_5_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(154).Value = CType(Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(156).Value = CType(Original_nctsHCCI_PreviousDocument_5_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_5_GoodsItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(158).Value = CType(Original_nctsHCCI_PreviousDocument_5_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(159).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(159).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(160).Value = CType(Original_nctsHCCI_PreviousDocument_6_Type,String) End If If (Original_nctsHCCI_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(162).Value = CType(Original_nctsHCCI_PreviousDocument_6_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(164).Value = CType(Original_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(166).Value = CType(Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(168).Value = CType(Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(170).Value = CType(Original_nctsHCCI_PreviousDocument_7_Type,String) End If If (Original_nctsHCCI_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(172).Value = CType(Original_nctsHCCI_PreviousDocument_7_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(174).Value = CType(Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(176).Value = CType(Original_nctsHCCI_PreviousDocument_7_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_7_GoodsItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(178).Value = CType(Original_nctsHCCI_PreviousDocument_7_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(180).Value = CType(Original_nctsHCCI_PreviousDocument_8_Type,String) End If If (Original_nctsHCCI_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(182).Value = CType(Original_nctsHCCI_PreviousDocument_8_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(184).Value = CType(Original_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(186).Value = CType(Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(188).Value = CType(Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(190).Value = CType(Original_nctsHCCI_PreviousDocument_9_Type,String) End If If (Original_nctsHCCI_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(192).Value = CType(Original_nctsHCCI_PreviousDocument_9_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(194).Value = CType(Original_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(196).Value = CType(Original_nctsHCCI_PreviousDocument_9_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_9_GoodsItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(198).Value = CType(Original_nctsHCCI_PreviousDocument_9_GoodsItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(200).Value = CType(Original_nctsHCCI_SupportingDocument_1_Type,String) End If If (Original_nctsHCCI_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(202).Value = CType(Original_nctsHCCI_SupportingDocument_1_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(204).Value = CType(Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(206).Value = CType(Original_nctsHCCI_SupportingDocument_1_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(208).Value = CType(Original_nctsHCCI_SupportingDocument_2_Type,String) End If If (Original_nctsHCCI_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(210).Value = CType(Original_nctsHCCI_SupportingDocument_2_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(212).Value = CType(Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(214).Value = CType(Original_nctsHCCI_SupportingDocument_2_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(216).Value = CType(Original_nctsHCCI_SupportingDocument_3_Type,String) End If If (Original_nctsHCCI_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(218).Value = CType(Original_nctsHCCI_SupportingDocument_3_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(220).Value = CType(Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(222).Value = CType(Original_nctsHCCI_SupportingDocument_3_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(224).Value = CType(Original_nctsHCCI_SupportingDocument_4_Type,String) End If If (Original_nctsHCCI_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(225).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(225).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(226).Value = CType(Original_nctsHCCI_SupportingDocument_4_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(227).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(228).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(227).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(228).Value = CType(Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(229).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(229).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(230).Value = CType(Original_nctsHCCI_SupportingDocument_4_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(231).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(231).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(232).Value = CType(Original_nctsHCCI_SupportingDocument_5_Type,String) End If If (Original_nctsHCCI_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(234).Value = CType(Original_nctsHCCI_SupportingDocument_5_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(236).Value = CType(Original_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(238).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(238).Value = CType(Original_nctsHCCI_SupportingDocument_5_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(240).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(240).Value = CType(Original_nctsHCCI_SupportingDocument_6_Type,String) End If If (Original_nctsHCCI_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(241).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(242).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(241).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(242).Value = CType(Original_nctsHCCI_SupportingDocument_6_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(244).Value = CType(Original_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(246).Value = CType(Original_nctsHCCI_SupportingDocument_6_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(248).Value = CType(Original_nctsHCCI_SupportingDocument_7_Type,String) End If If (Original_nctsHCCI_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(250).Value = CType(Original_nctsHCCI_SupportingDocument_7_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(252).Value = CType(Original_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(254).Value = CType(Original_nctsHCCI_SupportingDocument_7_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(256).Value = CType(Original_nctsHCCI_SupportingDocument_8_Type,String) End If If (Original_nctsHCCI_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(258).Value = CType(Original_nctsHCCI_SupportingDocument_8_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(260).Value = CType(Original_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(261).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(261).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(262).Value = CType(Original_nctsHCCI_SupportingDocument_8_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(263).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(263).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(264).Value = CType(Original_nctsHCCI_SupportingDocument_9_Type,String) End If If (Original_nctsHCCI_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(265).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(265).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(266).Value = CType(Original_nctsHCCI_SupportingDocument_9_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(267).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(267).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(268).Value = CType(Original_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(269).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(269).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(270).Value = CType(Original_nctsHCCI_SupportingDocument_9_ComplementOfInformation,String) End If If (Original_nctsHCCI_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(271).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(272).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(271).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(272).Value = CType(Original_nctsHCCI_AdditionalReference_1_Type,String) End If If (Original_nctsHCCI_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(273).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(273).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(274).Value = CType(Original_nctsHCCI_AdditionalReference_1_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(275).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(276).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(275).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(276).Value = CType(Original_nctsHCCI_AdditionalReference_2_Type,String) End If If (Original_nctsHCCI_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(277).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(278).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(277).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(278).Value = CType(Original_nctsHCCI_AdditionalReference_2_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(279).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(280).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(279).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(280).Value = CType(Original_nctsHCCI_AdditionalReference_3_Type,String) End If If (Original_nctsHCCI_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(281).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(281).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(282).Value = CType(Original_nctsHCCI_AdditionalReference_3_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(283).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(284).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(283).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(284).Value = CType(Original_nctsHCCI_AdditionalReference_4_Type,String) End If If (Original_nctsHCCI_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(285).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(286).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(285).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(286).Value = CType(Original_nctsHCCI_AdditionalReference_4_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(287).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(288).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(287).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(288).Value = CType(Original_nctsHCCI_AdditionalReference_5_Type,String) End If If (Original_nctsHCCI_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(289).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(290).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(289).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(290).Value = CType(Original_nctsHCCI_AdditionalReference_5_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(291).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(292).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(291).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(292).Value = CType(Original_nctsHCCI_AdditionalReference_6_Type,String) End If If (Original_nctsHCCI_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(293).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(294).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(293).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(294).Value = CType(Original_nctsHCCI_AdditionalReference_6_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(295).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(296).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(295).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(296).Value = CType(Original_nctsHCCI_AdditionalReference_7_Type,String) End If If (Original_nctsHCCI_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(297).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(298).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(297).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(298).Value = CType(Original_nctsHCCI_AdditionalReference_7_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(299).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(300).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(299).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(300).Value = CType(Original_nctsHCCI_AdditionalReference_8_Type,String) End If If (Original_nctsHCCI_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(301).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(302).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(301).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(302).Value = CType(Original_nctsHCCI_AdditionalReference_8_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(303).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(304).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(303).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(304).Value = CType(Original_nctsHCCI_AdditionalReference_9_Type,String) End If If (Original_nctsHCCI_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(305).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(306).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(305).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(306).Value = CType(Original_nctsHCCI_AdditionalReference_9_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(307).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(308).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(307).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(308).Value = CType(Original_nctsHCCI_AdditionalInformation_1_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(309).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(310).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(309).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(310).Value = CType(Original_nctsHCCI_AdditionalInformation_1_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(311).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(312).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(311).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(312).Value = CType(Original_nctsHCCI_AdditionalInformation_2_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(313).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(314).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(313).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(314).Value = CType(Original_nctsHCCI_AdditionalInformation_2_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(315).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(316).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(315).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(316).Value = CType(Original_nctsHCCI_AdditionalInformation_3_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(317).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(318).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(317).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(318).Value = CType(Original_nctsHCCI_AdditionalInformation_3_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(319).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(320).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(319).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(320).Value = CType(Original_nctsHCCI_AdditionalInformation_4_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(321).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(322).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(321).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(322).Value = CType(Original_nctsHCCI_AdditionalInformation_4_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(323).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(324).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(323).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(324).Value = CType(Original_nctsHCCI_AdditionalInformation_5_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(325).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(326).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(325).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(326).Value = CType(Original_nctsHCCI_AdditionalInformation_5_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(327).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(328).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(327).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(328).Value = CType(Original_nctsHCCI_AdditionalInformation_6_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(329).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(330).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(329).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(330).Value = CType(Original_nctsHCCI_AdditionalInformation_6_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(331).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(332).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(331).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(332).Value = CType(Original_nctsHCCI_AdditionalInformation_7_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(333).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(334).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(333).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(334).Value = CType(Original_nctsHCCI_AdditionalInformation_7_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(335).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(336).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(335).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(336).Value = CType(Original_nctsHCCI_AdditionalInformation_8_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(337).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(338).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(337).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(338).Value = CType(Original_nctsHCCI_AdditionalInformation_8_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(339).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(340).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(339).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(340).Value = CType(Original_nctsHCCI_AdditionalInformation_9_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(341).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(342).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(341).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(342).Value = CType(Original_nctsHCCI_AdditionalInformation_9_Text,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 nctsHCCI_NctsId As Integer, _ ByVal nctsHCCI_NctsHCId As Integer, _ ByVal nctsHCCI_GoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal nctsHCCI_DeclarationGoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal nctsHCCI_CommodityCode As String, _ ByVal nctsHCCI_MethodeOfPayment As String, _ ByVal nctsHCCI_UNNumber_1 As String, _ ByVal nctsHCCI_UNNumber_2 As String, _ ByVal nctsHCCI_UNNumber_3 As String, _ ByVal nctsHCCI_UNNumber_4 As String, _ ByVal nctsHCCI_DeclarationType As String, _ ByVal nctsHCCI_ArticleCode As String, _ ByVal nctsHCCI_DescriptionOfGoods As String, _ ByVal nctsHCCI_CusCode As String, _ ByVal nctsHCCI_CountryOfDispatch As String, _ ByVal nctsHCCI_CountryOfDestination As String, _ ByVal nctsHCCI_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_NetMass As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_ReferenceNumberUCR As String, _ ByVal nctsHCCI_Consignor_AdressCode As String, _ ByVal nctsHCCI_Consignor_IdentificationNumber As String, _ ByVal nctsHCCI_Consignor_SubsidiaryNumber As String, _ ByVal nctsHCCI_Consignor_Name As String, _ ByVal nctsHCCI_Consignor_StreetNumber As String, _ ByVal nctsHCCI_Consignor_City As String, _ ByVal nctsHCCI_Consignor_Postcode As String, _ ByVal nctsHCCI_Consignor_Country As String, _ ByVal nctsHCCI_Consignor_ContactPerson_Name As String, _ ByVal nctsHCCI_Consignor_ContactPerson_PhoneNumber As String, _ ByVal nctsHCCI_Consignor_ContactPerson_EMailAddress As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_1_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_2_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_3_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_4_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_5_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_6_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_7_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_8_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_9_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal nctsHCCI_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_CurrencyOfGoodsValue As String, _ ByVal nctsHCCI_ExchangeRate As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_ExchangeDate As Global.System.Nullable(Of Date), _ ByVal nctsHCCI_CurrencyExchangeRateType As String, _ ByVal nctsHCCI_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_GuaranteeAmount As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_PreviousDocument_1_Type As String, _ ByVal nctsHCCI_PreviousDocument_1_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_1_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_1_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_Type As String, _ ByVal nctsHCCI_PreviousDocument_2_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_2_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_Type As String, _ ByVal nctsHCCI_PreviousDocument_3_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_3_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_Type As String, _ ByVal nctsHCCI_PreviousDocument_4_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_4_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_Type As String, _ ByVal nctsHCCI_PreviousDocument_5_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_5_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_Type As String, _ ByVal nctsHCCI_PreviousDocument_6_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_6_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_Type As String, _ ByVal nctsHCCI_PreviousDocument_7_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_7_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_Type As String, _ ByVal nctsHCCI_PreviousDocument_8_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_8_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_Type As String, _ ByVal nctsHCCI_PreviousDocument_9_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_9_GoodsItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_Type As String, _ ByVal nctsHCCI_SupportingDocument_1_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_2_Type As String, _ ByVal nctsHCCI_SupportingDocument_2_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_2_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_3_Type As String, _ ByVal nctsHCCI_SupportingDocument_3_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_3_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_4_Type As String, _ ByVal nctsHCCI_SupportingDocument_4_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_4_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_5_Type As String, _ ByVal nctsHCCI_SupportingDocument_5_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_5_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_6_Type As String, _ ByVal nctsHCCI_SupportingDocument_6_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_6_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_7_Type As String, _ ByVal nctsHCCI_SupportingDocument_7_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_7_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_8_Type As String, _ ByVal nctsHCCI_SupportingDocument_8_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_8_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_9_Type As String, _ ByVal nctsHCCI_SupportingDocument_9_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_9_ComplementOfInformation As String, _ ByVal nctsHCCI_AdditionalReference_1_Type As String, _ ByVal nctsHCCI_AdditionalReference_1_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_2_Type As String, _ ByVal nctsHCCI_AdditionalReference_2_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_3_Type As String, _ ByVal nctsHCCI_AdditionalReference_3_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_4_Type As String, _ ByVal nctsHCCI_AdditionalReference_4_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_5_Type As String, _ ByVal nctsHCCI_AdditionalReference_5_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_6_Type As String, _ ByVal nctsHCCI_AdditionalReference_6_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_7_Type As String, _ ByVal nctsHCCI_AdditionalReference_7_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_8_Type As String, _ ByVal nctsHCCI_AdditionalReference_8_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_9_Type As String, _ ByVal nctsHCCI_AdditionalReference_9_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalInformation_1_Code As String, _ ByVal nctsHCCI_AdditionalInformation_1_Text As String, _ ByVal nctsHCCI_AdditionalInformation_2_Code As String, _ ByVal nctsHCCI_AdditionalInformation_2_Text As String, _ ByVal nctsHCCI_AdditionalInformation_3_Code As String, _ ByVal nctsHCCI_AdditionalInformation_3_Text As String, _ ByVal nctsHCCI_AdditionalInformation_4_Code As String, _ ByVal nctsHCCI_AdditionalInformation_4_Text As String, _ ByVal nctsHCCI_AdditionalInformation_5_Code As String, _ ByVal nctsHCCI_AdditionalInformation_5_Text As String, _ ByVal nctsHCCI_AdditionalInformation_6_Code As String, _ ByVal nctsHCCI_AdditionalInformation_6_Text As String, _ ByVal nctsHCCI_AdditionalInformation_7_Code As String, _ ByVal nctsHCCI_AdditionalInformation_7_Text As String, _ ByVal nctsHCCI_AdditionalInformation_8_Code As String, _ ByVal nctsHCCI_AdditionalInformation_8_Text As String, _ ByVal nctsHCCI_AdditionalInformation_9_Code As String, _ ByVal nctsHCCI_AdditionalInformation_9_Text As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsHCCI_NctsId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsHCCI_NctsHCId,Integer) If (nctsHCCI_GoodsItemNumber.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsHCCI_GoodsItemNumber.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (nctsHCCI_DeclarationGoodsItemNumber.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsHCCI_DeclarationGoodsItemNumber.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (nctsHCCI_CommodityCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsHCCI_CommodityCode,String) End If If (nctsHCCI_MethodeOfPayment Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsHCCI_MethodeOfPayment,String) End If If (nctsHCCI_UNNumber_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(nctsHCCI_UNNumber_1,String) End If If (nctsHCCI_UNNumber_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(nctsHCCI_UNNumber_2,String) End If If (nctsHCCI_UNNumber_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(nctsHCCI_UNNumber_3,String) End If If (nctsHCCI_UNNumber_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(nctsHCCI_UNNumber_4,String) End If If (nctsHCCI_DeclarationType Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(nctsHCCI_DeclarationType,String) End If If (nctsHCCI_ArticleCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(nctsHCCI_ArticleCode,String) End If If (nctsHCCI_DescriptionOfGoods Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(nctsHCCI_DescriptionOfGoods,String) End If If (nctsHCCI_CusCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(nctsHCCI_CusCode,String) End If If (nctsHCCI_CountryOfDispatch Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(nctsHCCI_CountryOfDispatch,String) End If If (nctsHCCI_CountryOfDestination Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(nctsHCCI_CountryOfDestination,String) End If If (nctsHCCI_GrossMass.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(nctsHCCI_GrossMass.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (nctsHCCI_NetMass.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(nctsHCCI_NetMass.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (nctsHCCI_ReferenceNumberUCR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(nctsHCCI_ReferenceNumberUCR,String) End If If (nctsHCCI_Consignor_AdressCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(nctsHCCI_Consignor_AdressCode,String) End If If (nctsHCCI_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(nctsHCCI_Consignor_IdentificationNumber,String) End If If (nctsHCCI_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(nctsHCCI_Consignor_SubsidiaryNumber,String) End If If (nctsHCCI_Consignor_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(nctsHCCI_Consignor_Name,String) End If If (nctsHCCI_Consignor_StreetNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(nctsHCCI_Consignor_StreetNumber,String) End If If (nctsHCCI_Consignor_City Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(nctsHCCI_Consignor_City,String) End If If (nctsHCCI_Consignor_Postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(nctsHCCI_Consignor_Postcode,String) End If If (nctsHCCI_Consignor_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(nctsHCCI_Consignor_Country,String) End If If (nctsHCCI_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(nctsHCCI_Consignor_ContactPerson_Name,String) End If If (nctsHCCI_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(nctsHCCI_Consignor_ContactPerson_PhoneNumber,String) End If If (nctsHCCI_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(nctsHCCI_Consignor_ContactPerson_EMailAddress,String) End If If (nctsHCCI_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(nctsHCCI_AdditionalSupplyChainActor_1_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(nctsHCCI_AdditionalSupplyChainActor_2_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(nctsHCCI_AdditionalSupplyChainActor_3_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(nctsHCCI_AdditionalSupplyChainActor_4_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(nctsHCCI_AdditionalSupplyChainActor_5_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(nctsHCCI_AdditionalSupplyChainActor_6_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(nctsHCCI_AdditionalSupplyChainActor_7_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(nctsHCCI_AdditionalSupplyChainActor_8_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(nctsHCCI_AdditionalSupplyChainActor_9_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (nctsHCCI_GoodsValue.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(nctsHCCI_GoodsValue.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (nctsHCCI_CurrencyOfGoodsValue Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(nctsHCCI_CurrencyOfGoodsValue,String) End If If (nctsHCCI_ExchangeRate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(50).Value = CType(nctsHCCI_ExchangeRate.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (nctsHCCI_ExchangeDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(nctsHCCI_ExchangeDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (nctsHCCI_CurrencyExchangeRateType Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(nctsHCCI_CurrencyExchangeRateType,String) End If If (nctsHCCI_FractionOfGoodsValue.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(53).Value = CType(nctsHCCI_FractionOfGoodsValue.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (nctsHCCI_GuaranteeAmount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(nctsHCCI_GuaranteeAmount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (nctsHCCI_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(nctsHCCI_PreviousDocument_1_Type,String) End If If (nctsHCCI_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(nctsHCCI_PreviousDocument_1_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(nctsHCCI_PreviousDocument_1_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(nctsHCCI_PreviousDocument_1_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_1_GoodsItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(nctsHCCI_PreviousDocument_1_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(nctsHCCI_PreviousDocument_2_Type,String) End If If (nctsHCCI_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(nctsHCCI_PreviousDocument_2_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(nctsHCCI_PreviousDocument_2_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(nctsHCCI_PreviousDocument_2_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_2_GoodsItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(nctsHCCI_PreviousDocument_2_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(nctsHCCI_PreviousDocument_3_Type,String) End If If (nctsHCCI_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(nctsHCCI_PreviousDocument_3_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(nctsHCCI_PreviousDocument_3_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(nctsHCCI_PreviousDocument_3_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_3_GoodsItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(nctsHCCI_PreviousDocument_3_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(nctsHCCI_PreviousDocument_4_Type,String) End If If (nctsHCCI_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(nctsHCCI_PreviousDocument_4_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(nctsHCCI_PreviousDocument_4_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(nctsHCCI_PreviousDocument_4_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_4_GoodsItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(nctsHCCI_PreviousDocument_4_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(nctsHCCI_PreviousDocument_5_Type,String) End If If (nctsHCCI_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(nctsHCCI_PreviousDocument_5_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(nctsHCCI_PreviousDocument_5_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(78).Value = CType(nctsHCCI_PreviousDocument_5_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_5_GoodsItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(nctsHCCI_PreviousDocument_5_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(nctsHCCI_PreviousDocument_6_Type,String) End If If (nctsHCCI_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(nctsHCCI_PreviousDocument_6_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(nctsHCCI_PreviousDocument_6_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(nctsHCCI_PreviousDocument_6_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_6_GoodsItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(nctsHCCI_PreviousDocument_6_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(nctsHCCI_PreviousDocument_7_Type,String) End If If (nctsHCCI_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(nctsHCCI_PreviousDocument_7_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(nctsHCCI_PreviousDocument_7_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(88).Value = CType(nctsHCCI_PreviousDocument_7_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_7_GoodsItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(nctsHCCI_PreviousDocument_7_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(nctsHCCI_PreviousDocument_8_Type,String) End If If (nctsHCCI_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(nctsHCCI_PreviousDocument_8_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(nctsHCCI_PreviousDocument_8_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(93).Value = CType(nctsHCCI_PreviousDocument_8_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_8_GoodsItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(nctsHCCI_PreviousDocument_8_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(nctsHCCI_PreviousDocument_9_Type,String) End If If (nctsHCCI_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(nctsHCCI_PreviousDocument_9_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(nctsHCCI_PreviousDocument_9_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(nctsHCCI_PreviousDocument_9_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_9_GoodsItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(nctsHCCI_PreviousDocument_9_GoodsItemNumber,String) End If If (nctsHCCI_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(100).Value = CType(nctsHCCI_SupportingDocument_1_Type,String) End If If (nctsHCCI_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(101).Value = CType(nctsHCCI_SupportingDocument_1_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(102).Value = CType(nctsHCCI_SupportingDocument_1_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(103).Value = CType(nctsHCCI_SupportingDocument_1_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(104).Value = CType(nctsHCCI_SupportingDocument_2_Type,String) End If If (nctsHCCI_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(105).Value = CType(nctsHCCI_SupportingDocument_2_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(106).Value = CType(nctsHCCI_SupportingDocument_2_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(107).Value = CType(nctsHCCI_SupportingDocument_2_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(108).Value = CType(nctsHCCI_SupportingDocument_3_Type,String) End If If (nctsHCCI_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(109).Value = CType(nctsHCCI_SupportingDocument_3_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(110).Value = CType(nctsHCCI_SupportingDocument_3_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(111).Value = CType(nctsHCCI_SupportingDocument_3_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(112).Value = CType(nctsHCCI_SupportingDocument_4_Type,String) End If If (nctsHCCI_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(113).Value = CType(nctsHCCI_SupportingDocument_4_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(114).Value = CType(nctsHCCI_SupportingDocument_4_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(115).Value = CType(nctsHCCI_SupportingDocument_4_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(116).Value = CType(nctsHCCI_SupportingDocument_5_Type,String) End If If (nctsHCCI_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(117).Value = CType(nctsHCCI_SupportingDocument_5_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(118).Value = CType(nctsHCCI_SupportingDocument_5_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(119).Value = CType(nctsHCCI_SupportingDocument_5_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(120).Value = CType(nctsHCCI_SupportingDocument_6_Type,String) End If If (nctsHCCI_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(121).Value = CType(nctsHCCI_SupportingDocument_6_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(122).Value = CType(nctsHCCI_SupportingDocument_6_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(123).Value = CType(nctsHCCI_SupportingDocument_6_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(124).Value = CType(nctsHCCI_SupportingDocument_7_Type,String) End If If (nctsHCCI_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(125).Value = CType(nctsHCCI_SupportingDocument_7_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(126).Value = CType(nctsHCCI_SupportingDocument_7_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(127).Value = CType(nctsHCCI_SupportingDocument_7_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(128).Value = CType(nctsHCCI_SupportingDocument_8_Type,String) End If If (nctsHCCI_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(129).Value = CType(nctsHCCI_SupportingDocument_8_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(130).Value = CType(nctsHCCI_SupportingDocument_8_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(131).Value = CType(nctsHCCI_SupportingDocument_8_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(132).Value = CType(nctsHCCI_SupportingDocument_9_Type,String) End If If (nctsHCCI_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(133).Value = CType(nctsHCCI_SupportingDocument_9_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(134).Value = CType(nctsHCCI_SupportingDocument_9_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(135).Value = CType(nctsHCCI_SupportingDocument_9_ComplementOfInformation,String) End If If (nctsHCCI_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(136).Value = CType(nctsHCCI_AdditionalReference_1_Type,String) End If If (nctsHCCI_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(137).Value = CType(nctsHCCI_AdditionalReference_1_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(138).Value = CType(nctsHCCI_AdditionalReference_2_Type,String) End If If (nctsHCCI_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(139).Value = CType(nctsHCCI_AdditionalReference_2_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(140).Value = CType(nctsHCCI_AdditionalReference_3_Type,String) End If If (nctsHCCI_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(141).Value = CType(nctsHCCI_AdditionalReference_3_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(142).Value = CType(nctsHCCI_AdditionalReference_4_Type,String) End If If (nctsHCCI_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(143).Value = CType(nctsHCCI_AdditionalReference_4_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(144).Value = CType(nctsHCCI_AdditionalReference_5_Type,String) End If If (nctsHCCI_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(145).Value = CType(nctsHCCI_AdditionalReference_5_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(146).Value = CType(nctsHCCI_AdditionalReference_6_Type,String) End If If (nctsHCCI_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(147).Value = CType(nctsHCCI_AdditionalReference_6_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(148).Value = CType(nctsHCCI_AdditionalReference_7_Type,String) End If If (nctsHCCI_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(149).Value = CType(nctsHCCI_AdditionalReference_7_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(150).Value = CType(nctsHCCI_AdditionalReference_8_Type,String) End If If (nctsHCCI_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(151).Value = CType(nctsHCCI_AdditionalReference_8_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(152).Value = CType(nctsHCCI_AdditionalReference_9_Type,String) End If If (nctsHCCI_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(153).Value = CType(nctsHCCI_AdditionalReference_9_ReferenceNumber,String) End If If (nctsHCCI_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(154).Value = CType(nctsHCCI_AdditionalInformation_1_Code,String) End If If (nctsHCCI_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(155).Value = CType(nctsHCCI_AdditionalInformation_1_Text,String) End If If (nctsHCCI_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(156).Value = CType(nctsHCCI_AdditionalInformation_2_Code,String) End If If (nctsHCCI_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(157).Value = CType(nctsHCCI_AdditionalInformation_2_Text,String) End If If (nctsHCCI_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(158).Value = CType(nctsHCCI_AdditionalInformation_3_Code,String) End If If (nctsHCCI_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(159).Value = CType(nctsHCCI_AdditionalInformation_3_Text,String) End If If (nctsHCCI_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(160).Value = CType(nctsHCCI_AdditionalInformation_4_Code,String) End If If (nctsHCCI_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(161).Value = CType(nctsHCCI_AdditionalInformation_4_Text,String) End If If (nctsHCCI_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(162).Value = CType(nctsHCCI_AdditionalInformation_5_Code,String) End If If (nctsHCCI_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(163).Value = CType(nctsHCCI_AdditionalInformation_5_Text,String) End If If (nctsHCCI_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(164).Value = CType(nctsHCCI_AdditionalInformation_6_Code,String) End If If (nctsHCCI_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(165).Value = CType(nctsHCCI_AdditionalInformation_6_Text,String) End If If (nctsHCCI_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(166).Value = CType(nctsHCCI_AdditionalInformation_7_Code,String) End If If (nctsHCCI_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(167).Value = CType(nctsHCCI_AdditionalInformation_7_Text,String) End If If (nctsHCCI_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(168).Value = CType(nctsHCCI_AdditionalInformation_8_Code,String) End If If (nctsHCCI_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(169).Value = CType(nctsHCCI_AdditionalInformation_8_Text,String) End If If (nctsHCCI_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(170).Value = CType(nctsHCCI_AdditionalInformation_9_Code,String) End If If (nctsHCCI_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(171).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(171).Value = CType(nctsHCCI_AdditionalInformation_9_Text,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 nctsHCCI_NctsId As Integer, _ ByVal nctsHCCI_NctsHCId As Integer, _ ByVal nctsHCCI_GoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal nctsHCCI_DeclarationGoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal nctsHCCI_CommodityCode As String, _ ByVal nctsHCCI_MethodeOfPayment As String, _ ByVal nctsHCCI_UNNumber_1 As String, _ ByVal nctsHCCI_UNNumber_2 As String, _ ByVal nctsHCCI_UNNumber_3 As String, _ ByVal nctsHCCI_UNNumber_4 As String, _ ByVal nctsHCCI_DeclarationType As String, _ ByVal nctsHCCI_ArticleCode As String, _ ByVal nctsHCCI_DescriptionOfGoods As String, _ ByVal nctsHCCI_CusCode As String, _ ByVal nctsHCCI_CountryOfDispatch As String, _ ByVal nctsHCCI_CountryOfDestination As String, _ ByVal nctsHCCI_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_NetMass As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_ReferenceNumberUCR As String, _ ByVal nctsHCCI_Consignor_AdressCode As String, _ ByVal nctsHCCI_Consignor_IdentificationNumber As String, _ ByVal nctsHCCI_Consignor_SubsidiaryNumber As String, _ ByVal nctsHCCI_Consignor_Name As String, _ ByVal nctsHCCI_Consignor_StreetNumber As String, _ ByVal nctsHCCI_Consignor_City As String, _ ByVal nctsHCCI_Consignor_Postcode As String, _ ByVal nctsHCCI_Consignor_Country As String, _ ByVal nctsHCCI_Consignor_ContactPerson_Name As String, _ ByVal nctsHCCI_Consignor_ContactPerson_PhoneNumber As String, _ ByVal nctsHCCI_Consignor_ContactPerson_EMailAddress As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_1_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_2_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_3_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_4_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_5_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_6_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_7_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_8_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_9_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal nctsHCCI_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_CurrencyOfGoodsValue As String, _ ByVal nctsHCCI_ExchangeRate As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_ExchangeDate As Global.System.Nullable(Of Date), _ ByVal nctsHCCI_CurrencyExchangeRateType As String, _ ByVal nctsHCCI_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_GuaranteeAmount As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_PreviousDocument_1_Type As String, _ ByVal nctsHCCI_PreviousDocument_1_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_1_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_1_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_Type As String, _ ByVal nctsHCCI_PreviousDocument_2_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_2_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_Type As String, _ ByVal nctsHCCI_PreviousDocument_3_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_3_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_Type As String, _ ByVal nctsHCCI_PreviousDocument_4_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_4_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_Type As String, _ ByVal nctsHCCI_PreviousDocument_5_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_5_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_Type As String, _ ByVal nctsHCCI_PreviousDocument_6_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_6_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_Type As String, _ ByVal nctsHCCI_PreviousDocument_7_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_7_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_Type As String, _ ByVal nctsHCCI_PreviousDocument_8_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_8_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_Type As String, _ ByVal nctsHCCI_PreviousDocument_9_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_9_GoodsItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_Type As String, _ ByVal nctsHCCI_SupportingDocument_1_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_2_Type As String, _ ByVal nctsHCCI_SupportingDocument_2_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_2_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_3_Type As String, _ ByVal nctsHCCI_SupportingDocument_3_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_3_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_4_Type As String, _ ByVal nctsHCCI_SupportingDocument_4_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_4_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_5_Type As String, _ ByVal nctsHCCI_SupportingDocument_5_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_5_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_6_Type As String, _ ByVal nctsHCCI_SupportingDocument_6_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_6_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_7_Type As String, _ ByVal nctsHCCI_SupportingDocument_7_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_7_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_8_Type As String, _ ByVal nctsHCCI_SupportingDocument_8_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_8_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_9_Type As String, _ ByVal nctsHCCI_SupportingDocument_9_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_9_ComplementOfInformation As String, _ ByVal nctsHCCI_AdditionalReference_1_Type As String, _ ByVal nctsHCCI_AdditionalReference_1_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_2_Type As String, _ ByVal nctsHCCI_AdditionalReference_2_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_3_Type As String, _ ByVal nctsHCCI_AdditionalReference_3_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_4_Type As String, _ ByVal nctsHCCI_AdditionalReference_4_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_5_Type As String, _ ByVal nctsHCCI_AdditionalReference_5_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_6_Type As String, _ ByVal nctsHCCI_AdditionalReference_6_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_7_Type As String, _ ByVal nctsHCCI_AdditionalReference_7_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_8_Type As String, _ ByVal nctsHCCI_AdditionalReference_8_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_9_Type As String, _ ByVal nctsHCCI_AdditionalReference_9_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalInformation_1_Code As String, _ ByVal nctsHCCI_AdditionalInformation_1_Text As String, _ ByVal nctsHCCI_AdditionalInformation_2_Code As String, _ ByVal nctsHCCI_AdditionalInformation_2_Text As String, _ ByVal nctsHCCI_AdditionalInformation_3_Code As String, _ ByVal nctsHCCI_AdditionalInformation_3_Text As String, _ ByVal nctsHCCI_AdditionalInformation_4_Code As String, _ ByVal nctsHCCI_AdditionalInformation_4_Text As String, _ ByVal nctsHCCI_AdditionalInformation_5_Code As String, _ ByVal nctsHCCI_AdditionalInformation_5_Text As String, _ ByVal nctsHCCI_AdditionalInformation_6_Code As String, _ ByVal nctsHCCI_AdditionalInformation_6_Text As String, _ ByVal nctsHCCI_AdditionalInformation_7_Code As String, _ ByVal nctsHCCI_AdditionalInformation_7_Text As String, _ ByVal nctsHCCI_AdditionalInformation_8_Code As String, _ ByVal nctsHCCI_AdditionalInformation_8_Text As String, _ ByVal nctsHCCI_AdditionalInformation_9_Code As String, _ ByVal nctsHCCI_AdditionalInformation_9_Text As String, _ ByVal Original_nctsHCCI_Id As Integer, _ ByVal Original_nctsHCCI_NctsId As Integer, _ ByVal Original_nctsHCCI_NctsHCId As Integer, _ ByVal Original_nctsHCCI_GoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal Original_nctsHCCI_DeclarationGoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal Original_nctsHCCI_CommodityCode As String, _ ByVal Original_nctsHCCI_MethodeOfPayment As String, _ ByVal Original_nctsHCCI_UNNumber_1 As String, _ ByVal Original_nctsHCCI_UNNumber_2 As String, _ ByVal Original_nctsHCCI_UNNumber_3 As String, _ ByVal Original_nctsHCCI_UNNumber_4 As String, _ ByVal Original_nctsHCCI_DeclarationType As String, _ ByVal Original_nctsHCCI_ArticleCode As String, _ ByVal Original_nctsHCCI_DescriptionOfGoods As String, _ ByVal Original_nctsHCCI_CusCode As String, _ ByVal Original_nctsHCCI_CountryOfDispatch As String, _ ByVal Original_nctsHCCI_CountryOfDestination As String, _ ByVal Original_nctsHCCI_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_NetMass As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_ReferenceNumberUCR As String, _ ByVal Original_nctsHCCI_Consignor_AdressCode As String, _ ByVal Original_nctsHCCI_Consignor_IdentificationNumber As String, _ ByVal Original_nctsHCCI_Consignor_SubsidiaryNumber As String, _ ByVal Original_nctsHCCI_Consignor_Name As String, _ ByVal Original_nctsHCCI_Consignor_StreetNumber As String, _ ByVal Original_nctsHCCI_Consignor_City As String, _ ByVal Original_nctsHCCI_Consignor_Postcode As String, _ ByVal Original_nctsHCCI_Consignor_Country As String, _ ByVal Original_nctsHCCI_Consignor_ContactPerson_Name As String, _ ByVal Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber As String, _ ByVal Original_nctsHCCI_Consignor_ContactPerson_EMailAddress As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_1_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_2_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_3_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_4_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_5_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_6_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_7_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_8_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_9_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal Original_nctsHCCI_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_CurrencyOfGoodsValue As String, _ ByVal Original_nctsHCCI_ExchangeRate As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_ExchangeDate As Global.System.Nullable(Of Date), _ ByVal Original_nctsHCCI_CurrencyExchangeRateType As String, _ ByVal Original_nctsHCCI_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_GuaranteeAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_PreviousDocument_1_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_AdditionalReference_1_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_1_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_2_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_2_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_3_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_3_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_4_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_4_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_5_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_5_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_6_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_6_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_7_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_7_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_8_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_8_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_9_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_9_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalInformation_1_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_1_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_2_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_2_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_3_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_3_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_4_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_4_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_5_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_5_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_6_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_6_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_7_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_7_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_8_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_8_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_9_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_9_Text As String, _ ByVal nctsHCCI_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsHCCI_NctsId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsHCCI_NctsHCId,Integer) If (nctsHCCI_GoodsItemNumber.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsHCCI_GoodsItemNumber.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (nctsHCCI_DeclarationGoodsItemNumber.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsHCCI_DeclarationGoodsItemNumber.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (nctsHCCI_CommodityCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsHCCI_CommodityCode,String) End If If (nctsHCCI_MethodeOfPayment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsHCCI_MethodeOfPayment,String) End If If (nctsHCCI_UNNumber_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nctsHCCI_UNNumber_1,String) End If If (nctsHCCI_UNNumber_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(nctsHCCI_UNNumber_2,String) End If If (nctsHCCI_UNNumber_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(nctsHCCI_UNNumber_3,String) End If If (nctsHCCI_UNNumber_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(nctsHCCI_UNNumber_4,String) End If If (nctsHCCI_DeclarationType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(nctsHCCI_DeclarationType,String) End If If (nctsHCCI_ArticleCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(nctsHCCI_ArticleCode,String) End If If (nctsHCCI_DescriptionOfGoods Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(nctsHCCI_DescriptionOfGoods,String) End If If (nctsHCCI_CusCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(nctsHCCI_CusCode,String) End If If (nctsHCCI_CountryOfDispatch Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(nctsHCCI_CountryOfDispatch,String) End If If (nctsHCCI_CountryOfDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(nctsHCCI_CountryOfDestination,String) End If If (nctsHCCI_GrossMass.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(nctsHCCI_GrossMass.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (nctsHCCI_NetMass.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(nctsHCCI_NetMass.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (nctsHCCI_ReferenceNumberUCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(nctsHCCI_ReferenceNumberUCR,String) End If If (nctsHCCI_Consignor_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(nctsHCCI_Consignor_AdressCode,String) End If If (nctsHCCI_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(nctsHCCI_Consignor_IdentificationNumber,String) End If If (nctsHCCI_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(nctsHCCI_Consignor_SubsidiaryNumber,String) End If If (nctsHCCI_Consignor_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(nctsHCCI_Consignor_Name,String) End If If (nctsHCCI_Consignor_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(nctsHCCI_Consignor_StreetNumber,String) End If If (nctsHCCI_Consignor_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(nctsHCCI_Consignor_City,String) End If If (nctsHCCI_Consignor_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(nctsHCCI_Consignor_Postcode,String) End If If (nctsHCCI_Consignor_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(nctsHCCI_Consignor_Country,String) End If If (nctsHCCI_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(nctsHCCI_Consignor_ContactPerson_Name,String) End If If (nctsHCCI_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(nctsHCCI_Consignor_ContactPerson_PhoneNumber,String) End If If (nctsHCCI_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(nctsHCCI_Consignor_ContactPerson_EMailAddress,String) End If If (nctsHCCI_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(nctsHCCI_AdditionalSupplyChainActor_1_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(nctsHCCI_AdditionalSupplyChainActor_2_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(nctsHCCI_AdditionalSupplyChainActor_3_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(nctsHCCI_AdditionalSupplyChainActor_4_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(nctsHCCI_AdditionalSupplyChainActor_5_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(nctsHCCI_AdditionalSupplyChainActor_6_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(nctsHCCI_AdditionalSupplyChainActor_7_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(nctsHCCI_AdditionalSupplyChainActor_8_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (nctsHCCI_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(nctsHCCI_AdditionalSupplyChainActor_9_Role,String) End If If (nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (nctsHCCI_GoodsValue.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(nctsHCCI_GoodsValue.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (nctsHCCI_CurrencyOfGoodsValue Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(nctsHCCI_CurrencyOfGoodsValue,String) End If If (nctsHCCI_ExchangeRate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(nctsHCCI_ExchangeRate.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (nctsHCCI_ExchangeDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(nctsHCCI_ExchangeDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (nctsHCCI_CurrencyExchangeRateType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(nctsHCCI_CurrencyExchangeRateType,String) End If If (nctsHCCI_FractionOfGoodsValue.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(nctsHCCI_FractionOfGoodsValue.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (nctsHCCI_GuaranteeAmount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(nctsHCCI_GuaranteeAmount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (nctsHCCI_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(nctsHCCI_PreviousDocument_1_Type,String) End If If (nctsHCCI_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(nctsHCCI_PreviousDocument_1_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(nctsHCCI_PreviousDocument_1_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(nctsHCCI_PreviousDocument_1_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_1_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(nctsHCCI_PreviousDocument_1_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(nctsHCCI_PreviousDocument_2_Type,String) End If If (nctsHCCI_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(nctsHCCI_PreviousDocument_2_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(nctsHCCI_PreviousDocument_2_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(nctsHCCI_PreviousDocument_2_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_2_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(nctsHCCI_PreviousDocument_2_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(nctsHCCI_PreviousDocument_3_Type,String) End If If (nctsHCCI_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(nctsHCCI_PreviousDocument_3_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(nctsHCCI_PreviousDocument_3_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(nctsHCCI_PreviousDocument_3_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_3_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(nctsHCCI_PreviousDocument_3_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(nctsHCCI_PreviousDocument_4_Type,String) End If If (nctsHCCI_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(nctsHCCI_PreviousDocument_4_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(nctsHCCI_PreviousDocument_4_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(nctsHCCI_PreviousDocument_4_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_4_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(nctsHCCI_PreviousDocument_4_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(nctsHCCI_PreviousDocument_5_Type,String) End If If (nctsHCCI_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(nctsHCCI_PreviousDocument_5_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(nctsHCCI_PreviousDocument_5_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(nctsHCCI_PreviousDocument_5_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_5_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(nctsHCCI_PreviousDocument_5_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(nctsHCCI_PreviousDocument_6_Type,String) End If If (nctsHCCI_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(nctsHCCI_PreviousDocument_6_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(nctsHCCI_PreviousDocument_6_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(nctsHCCI_PreviousDocument_6_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_6_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(nctsHCCI_PreviousDocument_6_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(nctsHCCI_PreviousDocument_7_Type,String) End If If (nctsHCCI_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(nctsHCCI_PreviousDocument_7_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(nctsHCCI_PreviousDocument_7_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(nctsHCCI_PreviousDocument_7_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_7_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(nctsHCCI_PreviousDocument_7_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(nctsHCCI_PreviousDocument_8_Type,String) End If If (nctsHCCI_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(nctsHCCI_PreviousDocument_8_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(nctsHCCI_PreviousDocument_8_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(nctsHCCI_PreviousDocument_8_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_8_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(nctsHCCI_PreviousDocument_8_GoodsItemNumber,String) End If If (nctsHCCI_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(nctsHCCI_PreviousDocument_9_Type,String) End If If (nctsHCCI_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(nctsHCCI_PreviousDocument_9_ReferenceNumber,String) End If If (nctsHCCI_PreviousDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(nctsHCCI_PreviousDocument_9_DocumentLineItemNumber,String) End If If (nctsHCCI_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(nctsHCCI_PreviousDocument_9_ComplementOfInformation,String) End If If (nctsHCCI_PreviousDocument_9_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(nctsHCCI_PreviousDocument_9_GoodsItemNumber,String) End If If (nctsHCCI_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(nctsHCCI_SupportingDocument_1_Type,String) End If If (nctsHCCI_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(nctsHCCI_SupportingDocument_1_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(nctsHCCI_SupportingDocument_1_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(nctsHCCI_SupportingDocument_1_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(nctsHCCI_SupportingDocument_2_Type,String) End If If (nctsHCCI_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(nctsHCCI_SupportingDocument_2_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(nctsHCCI_SupportingDocument_2_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(nctsHCCI_SupportingDocument_2_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(nctsHCCI_SupportingDocument_3_Type,String) End If If (nctsHCCI_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(nctsHCCI_SupportingDocument_3_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(nctsHCCI_SupportingDocument_3_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(nctsHCCI_SupportingDocument_3_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(nctsHCCI_SupportingDocument_4_Type,String) End If If (nctsHCCI_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(nctsHCCI_SupportingDocument_4_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(nctsHCCI_SupportingDocument_4_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(nctsHCCI_SupportingDocument_4_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(nctsHCCI_SupportingDocument_5_Type,String) End If If (nctsHCCI_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(nctsHCCI_SupportingDocument_5_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(nctsHCCI_SupportingDocument_5_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(nctsHCCI_SupportingDocument_5_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(nctsHCCI_SupportingDocument_6_Type,String) End If If (nctsHCCI_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(nctsHCCI_SupportingDocument_6_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(nctsHCCI_SupportingDocument_6_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(nctsHCCI_SupportingDocument_6_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(nctsHCCI_SupportingDocument_7_Type,String) End If If (nctsHCCI_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(nctsHCCI_SupportingDocument_7_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(nctsHCCI_SupportingDocument_7_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(nctsHCCI_SupportingDocument_7_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(128).Value = CType(nctsHCCI_SupportingDocument_8_Type,String) End If If (nctsHCCI_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(nctsHCCI_SupportingDocument_8_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(nctsHCCI_SupportingDocument_8_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(nctsHCCI_SupportingDocument_8_ComplementOfInformation,String) End If If (nctsHCCI_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(nctsHCCI_SupportingDocument_9_Type,String) End If If (nctsHCCI_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(nctsHCCI_SupportingDocument_9_ReferenceNumber,String) End If If (nctsHCCI_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(nctsHCCI_SupportingDocument_9_DocumentLineItemNumber,String) End If If (nctsHCCI_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(nctsHCCI_SupportingDocument_9_ComplementOfInformation,String) End If If (nctsHCCI_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(nctsHCCI_AdditionalReference_1_Type,String) End If If (nctsHCCI_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(nctsHCCI_AdditionalReference_1_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(138).Value = CType(nctsHCCI_AdditionalReference_2_Type,String) End If If (nctsHCCI_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(nctsHCCI_AdditionalReference_2_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(140).Value = CType(nctsHCCI_AdditionalReference_3_Type,String) End If If (nctsHCCI_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(nctsHCCI_AdditionalReference_3_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(142).Value = CType(nctsHCCI_AdditionalReference_4_Type,String) End If If (nctsHCCI_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(nctsHCCI_AdditionalReference_4_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(144).Value = CType(nctsHCCI_AdditionalReference_5_Type,String) End If If (nctsHCCI_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(nctsHCCI_AdditionalReference_5_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(146).Value = CType(nctsHCCI_AdditionalReference_6_Type,String) End If If (nctsHCCI_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(nctsHCCI_AdditionalReference_6_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(148).Value = CType(nctsHCCI_AdditionalReference_7_Type,String) End If If (nctsHCCI_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(nctsHCCI_AdditionalReference_7_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(150).Value = CType(nctsHCCI_AdditionalReference_8_Type,String) End If If (nctsHCCI_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(nctsHCCI_AdditionalReference_8_ReferenceNumber,String) End If If (nctsHCCI_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(152).Value = CType(nctsHCCI_AdditionalReference_9_Type,String) End If If (nctsHCCI_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(153).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(nctsHCCI_AdditionalReference_9_ReferenceNumber,String) End If If (nctsHCCI_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(154).Value = CType(nctsHCCI_AdditionalInformation_1_Code,String) End If If (nctsHCCI_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(155).Value = CType(nctsHCCI_AdditionalInformation_1_Text,String) End If If (nctsHCCI_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(156).Value = CType(nctsHCCI_AdditionalInformation_2_Code,String) End If If (nctsHCCI_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(nctsHCCI_AdditionalInformation_2_Text,String) End If If (nctsHCCI_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(158).Value = CType(nctsHCCI_AdditionalInformation_3_Code,String) End If If (nctsHCCI_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(159).Value = CType(nctsHCCI_AdditionalInformation_3_Text,String) End If If (nctsHCCI_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(160).Value = CType(nctsHCCI_AdditionalInformation_4_Code,String) End If If (nctsHCCI_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(161).Value = CType(nctsHCCI_AdditionalInformation_4_Text,String) End If If (nctsHCCI_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(162).Value = CType(nctsHCCI_AdditionalInformation_5_Code,String) End If If (nctsHCCI_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(nctsHCCI_AdditionalInformation_5_Text,String) End If If (nctsHCCI_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(164).Value = CType(nctsHCCI_AdditionalInformation_6_Code,String) End If If (nctsHCCI_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(nctsHCCI_AdditionalInformation_6_Text,String) End If If (nctsHCCI_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(166).Value = CType(nctsHCCI_AdditionalInformation_7_Code,String) End If If (nctsHCCI_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(167).Value = CType(nctsHCCI_AdditionalInformation_7_Text,String) End If If (nctsHCCI_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(168).Value = CType(nctsHCCI_AdditionalInformation_8_Code,String) End If If (nctsHCCI_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(169).Value = CType(nctsHCCI_AdditionalInformation_8_Text,String) End If If (nctsHCCI_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(170).Value = CType(nctsHCCI_AdditionalInformation_9_Code,String) End If If (nctsHCCI_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(171).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(nctsHCCI_AdditionalInformation_9_Text,String) End If Me.Adapter.UpdateCommand.Parameters(172).Value = CType(Original_nctsHCCI_Id,Integer) Me.Adapter.UpdateCommand.Parameters(173).Value = CType(Original_nctsHCCI_NctsId,Integer) Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_nctsHCCI_NctsHCId,Integer) If (Original_nctsHCCI_GoodsItemNumber.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_nctsHCCI_GoodsItemNumber.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_DeclarationGoodsItemNumber.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = CType(Original_nctsHCCI_DeclarationGoodsItemNumber.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_CommodityCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = CType(Original_nctsHCCI_CommodityCode,String) End If If (Original_nctsHCCI_MethodeOfPayment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = CType(Original_nctsHCCI_MethodeOfPayment,String) End If If (Original_nctsHCCI_UNNumber_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = CType(Original_nctsHCCI_UNNumber_1,String) End If If (Original_nctsHCCI_UNNumber_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_nctsHCCI_UNNumber_2,String) End If If (Original_nctsHCCI_UNNumber_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_nctsHCCI_UNNumber_3,String) End If If (Original_nctsHCCI_UNNumber_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_nctsHCCI_UNNumber_4,String) End If If (Original_nctsHCCI_DeclarationType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_nctsHCCI_DeclarationType,String) End If If (Original_nctsHCCI_ArticleCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_nctsHCCI_ArticleCode,String) End If If (Original_nctsHCCI_DescriptionOfGoods Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_nctsHCCI_DescriptionOfGoods,String) End If If (Original_nctsHCCI_CusCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_nctsHCCI_CusCode,String) End If If (Original_nctsHCCI_CountryOfDispatch Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_nctsHCCI_CountryOfDispatch,String) End If If (Original_nctsHCCI_CountryOfDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = CType(Original_nctsHCCI_CountryOfDestination,String) End If If (Original_nctsHCCI_GrossMass.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = CType(Original_nctsHCCI_GrossMass.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_NetMass.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = CType(Original_nctsHCCI_NetMass.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_ReferenceNumberUCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = CType(Original_nctsHCCI_ReferenceNumberUCR,String) End If If (Original_nctsHCCI_Consignor_AdressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = CType(Original_nctsHCCI_Consignor_AdressCode,String) End If If (Original_nctsHCCI_Consignor_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = CType(Original_nctsHCCI_Consignor_IdentificationNumber,String) End If If (Original_nctsHCCI_Consignor_SubsidiaryNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = CType(Original_nctsHCCI_Consignor_SubsidiaryNumber,String) End If If (Original_nctsHCCI_Consignor_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = CType(Original_nctsHCCI_Consignor_Name,String) End If If (Original_nctsHCCI_Consignor_StreetNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = CType(Original_nctsHCCI_Consignor_StreetNumber,String) End If If (Original_nctsHCCI_Consignor_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = CType(Original_nctsHCCI_Consignor_City,String) End If If (Original_nctsHCCI_Consignor_Postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = CType(Original_nctsHCCI_Consignor_Postcode,String) End If If (Original_nctsHCCI_Consignor_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = CType(Original_nctsHCCI_Consignor_Country,String) End If If (Original_nctsHCCI_Consignor_ContactPerson_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(225).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(225).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = CType(Original_nctsHCCI_Consignor_ContactPerson_Name,String) End If If (Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(227).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(227).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = CType(Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber,String) End If If (Original_nctsHCCI_Consignor_ContactPerson_EMailAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(229).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(229).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = CType(Original_nctsHCCI_Consignor_ContactPerson_EMailAddress,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_1_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(231).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(231).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_1_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_2_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_2_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_3_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_3_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(241).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(241).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_4_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_4_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_5_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_5_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_6_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_6_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_7_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_7_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_8_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_8_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(261).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(261).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_9_Role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(263).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(263).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_9_Role,String) End If If (Original_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(265).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(265).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = CType(Original_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber,String) End If If (Original_nctsHCCI_GoodsValue.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(267).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = CType(Original_nctsHCCI_GoodsValue.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(267).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_CurrencyOfGoodsValue Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(269).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(269).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = CType(Original_nctsHCCI_CurrencyOfGoodsValue,String) End If If (Original_nctsHCCI_ExchangeRate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(271).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = CType(Original_nctsHCCI_ExchangeRate.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(271).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_ExchangeDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(273).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = CType(Original_nctsHCCI_ExchangeDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(273).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_CurrencyExchangeRateType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(275).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(275).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = CType(Original_nctsHCCI_CurrencyExchangeRateType,String) End If If (Original_nctsHCCI_FractionOfGoodsValue.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(277).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = CType(Original_nctsHCCI_FractionOfGoodsValue.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(277).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_GuaranteeAmount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(279).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = CType(Original_nctsHCCI_GuaranteeAmount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(279).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = Global.System.DBNull.Value End If If (Original_nctsHCCI_PreviousDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(281).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(281).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = CType(Original_nctsHCCI_PreviousDocument_1_Type,String) End If If (Original_nctsHCCI_PreviousDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(283).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(283).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = CType(Original_nctsHCCI_PreviousDocument_1_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(285).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(285).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = CType(Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(287).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(287).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = CType(Original_nctsHCCI_PreviousDocument_1_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_1_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(289).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(289).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = CType(Original_nctsHCCI_PreviousDocument_1_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(291).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(291).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = CType(Original_nctsHCCI_PreviousDocument_2_Type,String) End If If (Original_nctsHCCI_PreviousDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(293).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(293).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = CType(Original_nctsHCCI_PreviousDocument_2_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(295).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(295).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = CType(Original_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(297).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(297).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = CType(Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_2_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(299).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(299).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = CType(Original_nctsHCCI_PreviousDocument_2_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(301).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(301).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = CType(Original_nctsHCCI_PreviousDocument_3_Type,String) End If If (Original_nctsHCCI_PreviousDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(303).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(303).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = CType(Original_nctsHCCI_PreviousDocument_3_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(305).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(305).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = CType(Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(307).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(307).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = CType(Original_nctsHCCI_PreviousDocument_3_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_3_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(309).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(309).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = CType(Original_nctsHCCI_PreviousDocument_3_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(311).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(311).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = CType(Original_nctsHCCI_PreviousDocument_4_Type,String) End If If (Original_nctsHCCI_PreviousDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(313).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(313).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = CType(Original_nctsHCCI_PreviousDocument_4_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(315).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(315).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = CType(Original_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(317).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(317).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = CType(Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(319).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(319).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = CType(Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(321).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(321).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = CType(Original_nctsHCCI_PreviousDocument_5_Type,String) End If If (Original_nctsHCCI_PreviousDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(323).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(323).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = CType(Original_nctsHCCI_PreviousDocument_5_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(325).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(325).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = CType(Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(327).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(327).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = CType(Original_nctsHCCI_PreviousDocument_5_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_5_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(329).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(329).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = CType(Original_nctsHCCI_PreviousDocument_5_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(331).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(331).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = CType(Original_nctsHCCI_PreviousDocument_6_Type,String) End If If (Original_nctsHCCI_PreviousDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(333).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(333).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = CType(Original_nctsHCCI_PreviousDocument_6_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(335).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(335).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = CType(Original_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(337).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(337).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = CType(Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(339).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(339).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = CType(Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(341).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(341).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = CType(Original_nctsHCCI_PreviousDocument_7_Type,String) End If If (Original_nctsHCCI_PreviousDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(343).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(343).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = CType(Original_nctsHCCI_PreviousDocument_7_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(345).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(345).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = CType(Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(347).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(347).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = CType(Original_nctsHCCI_PreviousDocument_7_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_7_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(349).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(349).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = CType(Original_nctsHCCI_PreviousDocument_7_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(351).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(352).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(351).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(352).Value = CType(Original_nctsHCCI_PreviousDocument_8_Type,String) End If If (Original_nctsHCCI_PreviousDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(353).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(354).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(353).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(354).Value = CType(Original_nctsHCCI_PreviousDocument_8_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(355).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(356).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(355).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(356).Value = CType(Original_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(357).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(358).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(357).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(358).Value = CType(Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(359).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(360).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(359).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(360).Value = CType(Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(361).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(362).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(361).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(362).Value = CType(Original_nctsHCCI_PreviousDocument_9_Type,String) End If If (Original_nctsHCCI_PreviousDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(363).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(364).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(363).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(364).Value = CType(Original_nctsHCCI_PreviousDocument_9_ReferenceNumber,String) End If If (Original_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(365).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(366).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(365).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(366).Value = CType(Original_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_PreviousDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(367).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(368).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(367).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(368).Value = CType(Original_nctsHCCI_PreviousDocument_9_ComplementOfInformation,String) End If If (Original_nctsHCCI_PreviousDocument_9_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(369).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(370).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(369).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(370).Value = CType(Original_nctsHCCI_PreviousDocument_9_GoodsItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(371).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(372).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(371).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(372).Value = CType(Original_nctsHCCI_SupportingDocument_1_Type,String) End If If (Original_nctsHCCI_SupportingDocument_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(373).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(374).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(373).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(374).Value = CType(Original_nctsHCCI_SupportingDocument_1_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(375).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(376).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(375).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(376).Value = CType(Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_1_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(377).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(378).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(377).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(378).Value = CType(Original_nctsHCCI_SupportingDocument_1_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(379).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(380).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(379).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(380).Value = CType(Original_nctsHCCI_SupportingDocument_2_Type,String) End If If (Original_nctsHCCI_SupportingDocument_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(381).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(382).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(381).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(382).Value = CType(Original_nctsHCCI_SupportingDocument_2_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(383).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(384).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(383).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(384).Value = CType(Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_2_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(385).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(386).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(385).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(386).Value = CType(Original_nctsHCCI_SupportingDocument_2_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(387).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(388).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(387).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(388).Value = CType(Original_nctsHCCI_SupportingDocument_3_Type,String) End If If (Original_nctsHCCI_SupportingDocument_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(389).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(390).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(389).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(390).Value = CType(Original_nctsHCCI_SupportingDocument_3_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(391).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(392).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(391).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(392).Value = CType(Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_3_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(393).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(394).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(393).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(394).Value = CType(Original_nctsHCCI_SupportingDocument_3_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(395).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(396).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(395).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(396).Value = CType(Original_nctsHCCI_SupportingDocument_4_Type,String) End If If (Original_nctsHCCI_SupportingDocument_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(397).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(398).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(397).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(398).Value = CType(Original_nctsHCCI_SupportingDocument_4_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(399).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(400).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(399).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(400).Value = CType(Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_4_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(401).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(402).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(401).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(402).Value = CType(Original_nctsHCCI_SupportingDocument_4_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(403).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(404).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(403).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(404).Value = CType(Original_nctsHCCI_SupportingDocument_5_Type,String) End If If (Original_nctsHCCI_SupportingDocument_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(405).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(406).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(405).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(406).Value = CType(Original_nctsHCCI_SupportingDocument_5_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(407).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(408).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(407).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(408).Value = CType(Original_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_5_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(409).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(410).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(409).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(410).Value = CType(Original_nctsHCCI_SupportingDocument_5_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(411).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(412).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(411).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(412).Value = CType(Original_nctsHCCI_SupportingDocument_6_Type,String) End If If (Original_nctsHCCI_SupportingDocument_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(413).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(414).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(413).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(414).Value = CType(Original_nctsHCCI_SupportingDocument_6_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(415).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(416).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(415).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(416).Value = CType(Original_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_6_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(417).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(418).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(417).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(418).Value = CType(Original_nctsHCCI_SupportingDocument_6_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(419).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(420).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(419).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(420).Value = CType(Original_nctsHCCI_SupportingDocument_7_Type,String) End If If (Original_nctsHCCI_SupportingDocument_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(421).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(422).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(421).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(422).Value = CType(Original_nctsHCCI_SupportingDocument_7_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(423).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(424).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(423).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(424).Value = CType(Original_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_7_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(425).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(426).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(425).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(426).Value = CType(Original_nctsHCCI_SupportingDocument_7_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(427).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(428).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(427).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(428).Value = CType(Original_nctsHCCI_SupportingDocument_8_Type,String) End If If (Original_nctsHCCI_SupportingDocument_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(429).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(430).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(429).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(430).Value = CType(Original_nctsHCCI_SupportingDocument_8_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(431).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(432).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(431).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(432).Value = CType(Original_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_8_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(433).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(434).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(433).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(434).Value = CType(Original_nctsHCCI_SupportingDocument_8_ComplementOfInformation,String) End If If (Original_nctsHCCI_SupportingDocument_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(435).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(436).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(435).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(436).Value = CType(Original_nctsHCCI_SupportingDocument_9_Type,String) End If If (Original_nctsHCCI_SupportingDocument_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(437).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(438).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(437).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(438).Value = CType(Original_nctsHCCI_SupportingDocument_9_ReferenceNumber,String) End If If (Original_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(439).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(440).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(439).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(440).Value = CType(Original_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber,String) End If If (Original_nctsHCCI_SupportingDocument_9_ComplementOfInformation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(441).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(442).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(441).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(442).Value = CType(Original_nctsHCCI_SupportingDocument_9_ComplementOfInformation,String) End If If (Original_nctsHCCI_AdditionalReference_1_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(443).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(444).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(443).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(444).Value = CType(Original_nctsHCCI_AdditionalReference_1_Type,String) End If If (Original_nctsHCCI_AdditionalReference_1_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(445).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(446).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(445).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(446).Value = CType(Original_nctsHCCI_AdditionalReference_1_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_2_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(447).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(448).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(447).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(448).Value = CType(Original_nctsHCCI_AdditionalReference_2_Type,String) End If If (Original_nctsHCCI_AdditionalReference_2_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(449).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(450).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(449).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(450).Value = CType(Original_nctsHCCI_AdditionalReference_2_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_3_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(451).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(452).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(451).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(452).Value = CType(Original_nctsHCCI_AdditionalReference_3_Type,String) End If If (Original_nctsHCCI_AdditionalReference_3_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(453).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(454).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(453).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(454).Value = CType(Original_nctsHCCI_AdditionalReference_3_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_4_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(455).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(456).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(455).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(456).Value = CType(Original_nctsHCCI_AdditionalReference_4_Type,String) End If If (Original_nctsHCCI_AdditionalReference_4_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(457).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(458).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(457).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(458).Value = CType(Original_nctsHCCI_AdditionalReference_4_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_5_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(459).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(460).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(459).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(460).Value = CType(Original_nctsHCCI_AdditionalReference_5_Type,String) End If If (Original_nctsHCCI_AdditionalReference_5_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(461).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(462).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(461).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(462).Value = CType(Original_nctsHCCI_AdditionalReference_5_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_6_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(463).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(464).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(463).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(464).Value = CType(Original_nctsHCCI_AdditionalReference_6_Type,String) End If If (Original_nctsHCCI_AdditionalReference_6_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(465).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(466).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(465).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(466).Value = CType(Original_nctsHCCI_AdditionalReference_6_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_7_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(467).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(468).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(467).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(468).Value = CType(Original_nctsHCCI_AdditionalReference_7_Type,String) End If If (Original_nctsHCCI_AdditionalReference_7_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(469).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(470).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(469).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(470).Value = CType(Original_nctsHCCI_AdditionalReference_7_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_8_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(471).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(472).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(471).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(472).Value = CType(Original_nctsHCCI_AdditionalReference_8_Type,String) End If If (Original_nctsHCCI_AdditionalReference_8_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(473).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(474).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(473).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(474).Value = CType(Original_nctsHCCI_AdditionalReference_8_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalReference_9_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(475).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(476).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(475).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(476).Value = CType(Original_nctsHCCI_AdditionalReference_9_Type,String) End If If (Original_nctsHCCI_AdditionalReference_9_ReferenceNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(477).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(478).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(477).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(478).Value = CType(Original_nctsHCCI_AdditionalReference_9_ReferenceNumber,String) End If If (Original_nctsHCCI_AdditionalInformation_1_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(479).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(480).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(479).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(480).Value = CType(Original_nctsHCCI_AdditionalInformation_1_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_1_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(481).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(482).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(481).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(482).Value = CType(Original_nctsHCCI_AdditionalInformation_1_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_2_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(483).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(484).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(483).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(484).Value = CType(Original_nctsHCCI_AdditionalInformation_2_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_2_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(485).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(486).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(485).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(486).Value = CType(Original_nctsHCCI_AdditionalInformation_2_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_3_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(487).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(488).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(487).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(488).Value = CType(Original_nctsHCCI_AdditionalInformation_3_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_3_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(489).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(490).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(489).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(490).Value = CType(Original_nctsHCCI_AdditionalInformation_3_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_4_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(491).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(492).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(491).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(492).Value = CType(Original_nctsHCCI_AdditionalInformation_4_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_4_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(493).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(494).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(493).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(494).Value = CType(Original_nctsHCCI_AdditionalInformation_4_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_5_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(495).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(496).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(495).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(496).Value = CType(Original_nctsHCCI_AdditionalInformation_5_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_5_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(497).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(498).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(497).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(498).Value = CType(Original_nctsHCCI_AdditionalInformation_5_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_6_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(499).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(500).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(499).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(500).Value = CType(Original_nctsHCCI_AdditionalInformation_6_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_6_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(501).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(502).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(501).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(502).Value = CType(Original_nctsHCCI_AdditionalInformation_6_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_7_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(503).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(504).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(503).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(504).Value = CType(Original_nctsHCCI_AdditionalInformation_7_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_7_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(505).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(506).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(505).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(506).Value = CType(Original_nctsHCCI_AdditionalInformation_7_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_8_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(507).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(508).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(507).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(508).Value = CType(Original_nctsHCCI_AdditionalInformation_8_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_8_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(509).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(510).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(509).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(510).Value = CType(Original_nctsHCCI_AdditionalInformation_8_Text,String) End If If (Original_nctsHCCI_AdditionalInformation_9_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(511).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(512).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(511).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(512).Value = CType(Original_nctsHCCI_AdditionalInformation_9_Code,String) End If If (Original_nctsHCCI_AdditionalInformation_9_Text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(513).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(514).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(513).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(514).Value = CType(Original_nctsHCCI_AdditionalInformation_9_Text,String) End If Me.Adapter.UpdateCommand.Parameters(515).Value = CType(nctsHCCI_Id,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 nctsHCCI_NctsId As Integer, _ ByVal nctsHCCI_NctsHCId As Integer, _ ByVal nctsHCCI_GoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal nctsHCCI_DeclarationGoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal nctsHCCI_CommodityCode As String, _ ByVal nctsHCCI_MethodeOfPayment As String, _ ByVal nctsHCCI_UNNumber_1 As String, _ ByVal nctsHCCI_UNNumber_2 As String, _ ByVal nctsHCCI_UNNumber_3 As String, _ ByVal nctsHCCI_UNNumber_4 As String, _ ByVal nctsHCCI_DeclarationType As String, _ ByVal nctsHCCI_ArticleCode As String, _ ByVal nctsHCCI_DescriptionOfGoods As String, _ ByVal nctsHCCI_CusCode As String, _ ByVal nctsHCCI_CountryOfDispatch As String, _ ByVal nctsHCCI_CountryOfDestination As String, _ ByVal nctsHCCI_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_NetMass As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_ReferenceNumberUCR As String, _ ByVal nctsHCCI_Consignor_AdressCode As String, _ ByVal nctsHCCI_Consignor_IdentificationNumber As String, _ ByVal nctsHCCI_Consignor_SubsidiaryNumber As String, _ ByVal nctsHCCI_Consignor_Name As String, _ ByVal nctsHCCI_Consignor_StreetNumber As String, _ ByVal nctsHCCI_Consignor_City As String, _ ByVal nctsHCCI_Consignor_Postcode As String, _ ByVal nctsHCCI_Consignor_Country As String, _ ByVal nctsHCCI_Consignor_ContactPerson_Name As String, _ ByVal nctsHCCI_Consignor_ContactPerson_PhoneNumber As String, _ ByVal nctsHCCI_Consignor_ContactPerson_EMailAddress As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_1_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_2_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_3_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_4_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_5_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_6_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_7_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_8_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_9_Role As String, _ ByVal nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal nctsHCCI_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_CurrencyOfGoodsValue As String, _ ByVal nctsHCCI_ExchangeRate As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_ExchangeDate As Global.System.Nullable(Of Date), _ ByVal nctsHCCI_CurrencyExchangeRateType As String, _ ByVal nctsHCCI_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_GuaranteeAmount As Global.System.Nullable(Of Decimal), _ ByVal nctsHCCI_PreviousDocument_1_Type As String, _ ByVal nctsHCCI_PreviousDocument_1_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_1_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_1_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_Type As String, _ ByVal nctsHCCI_PreviousDocument_2_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_2_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_2_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_Type As String, _ ByVal nctsHCCI_PreviousDocument_3_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_3_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_3_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_Type As String, _ ByVal nctsHCCI_PreviousDocument_4_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_4_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_4_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_Type As String, _ ByVal nctsHCCI_PreviousDocument_5_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_5_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_5_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_Type As String, _ ByVal nctsHCCI_PreviousDocument_6_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_6_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_6_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_Type As String, _ ByVal nctsHCCI_PreviousDocument_7_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_7_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_7_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_Type As String, _ ByVal nctsHCCI_PreviousDocument_8_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_8_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_8_GoodsItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_Type As String, _ ByVal nctsHCCI_PreviousDocument_9_ReferenceNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHCCI_PreviousDocument_9_ComplementOfInformation As String, _ ByVal nctsHCCI_PreviousDocument_9_GoodsItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_Type As String, _ ByVal nctsHCCI_SupportingDocument_1_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_1_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_2_Type As String, _ ByVal nctsHCCI_SupportingDocument_2_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_2_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_3_Type As String, _ ByVal nctsHCCI_SupportingDocument_3_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_3_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_4_Type As String, _ ByVal nctsHCCI_SupportingDocument_4_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_4_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_5_Type As String, _ ByVal nctsHCCI_SupportingDocument_5_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_5_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_6_Type As String, _ ByVal nctsHCCI_SupportingDocument_6_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_6_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_7_Type As String, _ ByVal nctsHCCI_SupportingDocument_7_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_7_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_8_Type As String, _ ByVal nctsHCCI_SupportingDocument_8_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_8_ComplementOfInformation As String, _ ByVal nctsHCCI_SupportingDocument_9_Type As String, _ ByVal nctsHCCI_SupportingDocument_9_ReferenceNumber As String, _ ByVal nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal nctsHCCI_SupportingDocument_9_ComplementOfInformation As String, _ ByVal nctsHCCI_AdditionalReference_1_Type As String, _ ByVal nctsHCCI_AdditionalReference_1_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_2_Type As String, _ ByVal nctsHCCI_AdditionalReference_2_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_3_Type As String, _ ByVal nctsHCCI_AdditionalReference_3_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_4_Type As String, _ ByVal nctsHCCI_AdditionalReference_4_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_5_Type As String, _ ByVal nctsHCCI_AdditionalReference_5_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_6_Type As String, _ ByVal nctsHCCI_AdditionalReference_6_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_7_Type As String, _ ByVal nctsHCCI_AdditionalReference_7_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_8_Type As String, _ ByVal nctsHCCI_AdditionalReference_8_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalReference_9_Type As String, _ ByVal nctsHCCI_AdditionalReference_9_ReferenceNumber As String, _ ByVal nctsHCCI_AdditionalInformation_1_Code As String, _ ByVal nctsHCCI_AdditionalInformation_1_Text As String, _ ByVal nctsHCCI_AdditionalInformation_2_Code As String, _ ByVal nctsHCCI_AdditionalInformation_2_Text As String, _ ByVal nctsHCCI_AdditionalInformation_3_Code As String, _ ByVal nctsHCCI_AdditionalInformation_3_Text As String, _ ByVal nctsHCCI_AdditionalInformation_4_Code As String, _ ByVal nctsHCCI_AdditionalInformation_4_Text As String, _ ByVal nctsHCCI_AdditionalInformation_5_Code As String, _ ByVal nctsHCCI_AdditionalInformation_5_Text As String, _ ByVal nctsHCCI_AdditionalInformation_6_Code As String, _ ByVal nctsHCCI_AdditionalInformation_6_Text As String, _ ByVal nctsHCCI_AdditionalInformation_7_Code As String, _ ByVal nctsHCCI_AdditionalInformation_7_Text As String, _ ByVal nctsHCCI_AdditionalInformation_8_Code As String, _ ByVal nctsHCCI_AdditionalInformation_8_Text As String, _ ByVal nctsHCCI_AdditionalInformation_9_Code As String, _ ByVal nctsHCCI_AdditionalInformation_9_Text As String, _ ByVal Original_nctsHCCI_Id As Integer, _ ByVal Original_nctsHCCI_NctsId As Integer, _ ByVal Original_nctsHCCI_NctsHCId As Integer, _ ByVal Original_nctsHCCI_GoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal Original_nctsHCCI_DeclarationGoodsItemNumber As Global.System.Nullable(Of Integer), _ ByVal Original_nctsHCCI_CommodityCode As String, _ ByVal Original_nctsHCCI_MethodeOfPayment As String, _ ByVal Original_nctsHCCI_UNNumber_1 As String, _ ByVal Original_nctsHCCI_UNNumber_2 As String, _ ByVal Original_nctsHCCI_UNNumber_3 As String, _ ByVal Original_nctsHCCI_UNNumber_4 As String, _ ByVal Original_nctsHCCI_DeclarationType As String, _ ByVal Original_nctsHCCI_ArticleCode As String, _ ByVal Original_nctsHCCI_DescriptionOfGoods As String, _ ByVal Original_nctsHCCI_CusCode As String, _ ByVal Original_nctsHCCI_CountryOfDispatch As String, _ ByVal Original_nctsHCCI_CountryOfDestination As String, _ ByVal Original_nctsHCCI_GrossMass As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_NetMass As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_ReferenceNumberUCR As String, _ ByVal Original_nctsHCCI_Consignor_AdressCode As String, _ ByVal Original_nctsHCCI_Consignor_IdentificationNumber As String, _ ByVal Original_nctsHCCI_Consignor_SubsidiaryNumber As String, _ ByVal Original_nctsHCCI_Consignor_Name As String, _ ByVal Original_nctsHCCI_Consignor_StreetNumber As String, _ ByVal Original_nctsHCCI_Consignor_City As String, _ ByVal Original_nctsHCCI_Consignor_Postcode As String, _ ByVal Original_nctsHCCI_Consignor_Country As String, _ ByVal Original_nctsHCCI_Consignor_ContactPerson_Name As String, _ ByVal Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber As String, _ ByVal Original_nctsHCCI_Consignor_ContactPerson_EMailAddress As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_1_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_2_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_3_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_4_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_5_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_6_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_7_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_8_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_9_Role As String, _ ByVal Original_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As String, _ ByVal Original_nctsHCCI_GoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_CurrencyOfGoodsValue As String, _ ByVal Original_nctsHCCI_ExchangeRate As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_ExchangeDate As Global.System.Nullable(Of Date), _ ByVal Original_nctsHCCI_CurrencyExchangeRateType As String, _ ByVal Original_nctsHCCI_FractionOfGoodsValue As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_GuaranteeAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsHCCI_PreviousDocument_1_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_1_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_2_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_3_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_5_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_7_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_Type As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_PreviousDocument_9_GoodsItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_1_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_2_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_3_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_4_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_5_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_6_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_7_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_8_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_Type As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_ReferenceNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As String, _ ByVal Original_nctsHCCI_SupportingDocument_9_ComplementOfInformation As String, _ ByVal Original_nctsHCCI_AdditionalReference_1_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_1_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_2_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_2_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_3_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_3_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_4_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_4_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_5_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_5_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_6_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_6_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_7_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_7_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_8_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_8_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalReference_9_Type As String, _ ByVal Original_nctsHCCI_AdditionalReference_9_ReferenceNumber As String, _ ByVal Original_nctsHCCI_AdditionalInformation_1_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_1_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_2_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_2_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_3_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_3_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_4_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_4_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_5_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_5_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_6_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_6_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_7_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_7_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_8_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_8_Text As String, _ ByVal Original_nctsHCCI_AdditionalInformation_9_Code As String, _ ByVal Original_nctsHCCI_AdditionalInformation_9_Text As String) As Integer Return Me.Update(nctsHCCI_NctsId, nctsHCCI_NctsHCId, nctsHCCI_GoodsItemNumber, nctsHCCI_DeclarationGoodsItemNumber, nctsHCCI_CommodityCode, nctsHCCI_MethodeOfPayment, nctsHCCI_UNNumber_1, nctsHCCI_UNNumber_2, nctsHCCI_UNNumber_3, nctsHCCI_UNNumber_4, nctsHCCI_DeclarationType, nctsHCCI_ArticleCode, nctsHCCI_DescriptionOfGoods, nctsHCCI_CusCode, nctsHCCI_CountryOfDispatch, nctsHCCI_CountryOfDestination, nctsHCCI_GrossMass, nctsHCCI_NetMass, nctsHCCI_ReferenceNumberUCR, nctsHCCI_Consignor_AdressCode, nctsHCCI_Consignor_IdentificationNumber, nctsHCCI_Consignor_SubsidiaryNumber, nctsHCCI_Consignor_Name, nctsHCCI_Consignor_StreetNumber, nctsHCCI_Consignor_City, nctsHCCI_Consignor_Postcode, nctsHCCI_Consignor_Country, nctsHCCI_Consignor_ContactPerson_Name, nctsHCCI_Consignor_ContactPerson_PhoneNumber, nctsHCCI_Consignor_ContactPerson_EMailAddress, nctsHCCI_AdditionalSupplyChainActor_1_Role, nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_2_Role, nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_3_Role, nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_4_Role, nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_5_Role, nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_6_Role, nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_7_Role, nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_8_Role, nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber, nctsHCCI_AdditionalSupplyChainActor_9_Role, nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber, nctsHCCI_GoodsValue, nctsHCCI_CurrencyOfGoodsValue, nctsHCCI_ExchangeRate, nctsHCCI_ExchangeDate, nctsHCCI_CurrencyExchangeRateType, nctsHCCI_FractionOfGoodsValue, nctsHCCI_GuaranteeAmount, nctsHCCI_PreviousDocument_1_Type, nctsHCCI_PreviousDocument_1_ReferenceNumber, nctsHCCI_PreviousDocument_1_DocumentLineItemNumber, nctsHCCI_PreviousDocument_1_ComplementOfInformation, nctsHCCI_PreviousDocument_1_GoodsItemNumber, nctsHCCI_PreviousDocument_2_Type, nctsHCCI_PreviousDocument_2_ReferenceNumber, nctsHCCI_PreviousDocument_2_DocumentLineItemNumber, nctsHCCI_PreviousDocument_2_ComplementOfInformation, nctsHCCI_PreviousDocument_2_GoodsItemNumber, nctsHCCI_PreviousDocument_3_Type, nctsHCCI_PreviousDocument_3_ReferenceNumber, nctsHCCI_PreviousDocument_3_DocumentLineItemNumber, nctsHCCI_PreviousDocument_3_ComplementOfInformation, nctsHCCI_PreviousDocument_3_GoodsItemNumber, nctsHCCI_PreviousDocument_4_Type, nctsHCCI_PreviousDocument_4_ReferenceNumber, nctsHCCI_PreviousDocument_4_DocumentLineItemNumber, nctsHCCI_PreviousDocument_4_ComplementOfInformation, nctsHCCI_PreviousDocument_4_GoodsItemNumber, nctsHCCI_PreviousDocument_5_Type, nctsHCCI_PreviousDocument_5_ReferenceNumber, nctsHCCI_PreviousDocument_5_DocumentLineItemNumber, nctsHCCI_PreviousDocument_5_ComplementOfInformation, nctsHCCI_PreviousDocument_5_GoodsItemNumber, nctsHCCI_PreviousDocument_6_Type, nctsHCCI_PreviousDocument_6_ReferenceNumber, nctsHCCI_PreviousDocument_6_DocumentLineItemNumber, nctsHCCI_PreviousDocument_6_ComplementOfInformation, nctsHCCI_PreviousDocument_6_GoodsItemNumber, nctsHCCI_PreviousDocument_7_Type, nctsHCCI_PreviousDocument_7_ReferenceNumber, nctsHCCI_PreviousDocument_7_DocumentLineItemNumber, nctsHCCI_PreviousDocument_7_ComplementOfInformation, nctsHCCI_PreviousDocument_7_GoodsItemNumber, nctsHCCI_PreviousDocument_8_Type, nctsHCCI_PreviousDocument_8_ReferenceNumber, nctsHCCI_PreviousDocument_8_DocumentLineItemNumber, nctsHCCI_PreviousDocument_8_ComplementOfInformation, nctsHCCI_PreviousDocument_8_GoodsItemNumber, nctsHCCI_PreviousDocument_9_Type, nctsHCCI_PreviousDocument_9_ReferenceNumber, nctsHCCI_PreviousDocument_9_DocumentLineItemNumber, nctsHCCI_PreviousDocument_9_ComplementOfInformation, nctsHCCI_PreviousDocument_9_GoodsItemNumber, nctsHCCI_SupportingDocument_1_Type, nctsHCCI_SupportingDocument_1_ReferenceNumber, nctsHCCI_SupportingDocument_1_DocumentLineItemNumber, nctsHCCI_SupportingDocument_1_ComplementOfInformation, nctsHCCI_SupportingDocument_2_Type, nctsHCCI_SupportingDocument_2_ReferenceNumber, nctsHCCI_SupportingDocument_2_DocumentLineItemNumber, nctsHCCI_SupportingDocument_2_ComplementOfInformation, nctsHCCI_SupportingDocument_3_Type, nctsHCCI_SupportingDocument_3_ReferenceNumber, nctsHCCI_SupportingDocument_3_DocumentLineItemNumber, nctsHCCI_SupportingDocument_3_ComplementOfInformation, nctsHCCI_SupportingDocument_4_Type, nctsHCCI_SupportingDocument_4_ReferenceNumber, nctsHCCI_SupportingDocument_4_DocumentLineItemNumber, nctsHCCI_SupportingDocument_4_ComplementOfInformation, nctsHCCI_SupportingDocument_5_Type, nctsHCCI_SupportingDocument_5_ReferenceNumber, nctsHCCI_SupportingDocument_5_DocumentLineItemNumber, nctsHCCI_SupportingDocument_5_ComplementOfInformation, nctsHCCI_SupportingDocument_6_Type, nctsHCCI_SupportingDocument_6_ReferenceNumber, nctsHCCI_SupportingDocument_6_DocumentLineItemNumber, nctsHCCI_SupportingDocument_6_ComplementOfInformation, nctsHCCI_SupportingDocument_7_Type, nctsHCCI_SupportingDocument_7_ReferenceNumber, nctsHCCI_SupportingDocument_7_DocumentLineItemNumber, nctsHCCI_SupportingDocument_7_ComplementOfInformation, nctsHCCI_SupportingDocument_8_Type, nctsHCCI_SupportingDocument_8_ReferenceNumber, nctsHCCI_SupportingDocument_8_DocumentLineItemNumber, nctsHCCI_SupportingDocument_8_ComplementOfInformation, nctsHCCI_SupportingDocument_9_Type, nctsHCCI_SupportingDocument_9_ReferenceNumber, nctsHCCI_SupportingDocument_9_DocumentLineItemNumber, nctsHCCI_SupportingDocument_9_ComplementOfInformation, nctsHCCI_AdditionalReference_1_Type, nctsHCCI_AdditionalReference_1_ReferenceNumber, nctsHCCI_AdditionalReference_2_Type, nctsHCCI_AdditionalReference_2_ReferenceNumber, nctsHCCI_AdditionalReference_3_Type, nctsHCCI_AdditionalReference_3_ReferenceNumber, nctsHCCI_AdditionalReference_4_Type, nctsHCCI_AdditionalReference_4_ReferenceNumber, nctsHCCI_AdditionalReference_5_Type, nctsHCCI_AdditionalReference_5_ReferenceNumber, nctsHCCI_AdditionalReference_6_Type, nctsHCCI_AdditionalReference_6_ReferenceNumber, nctsHCCI_AdditionalReference_7_Type, nctsHCCI_AdditionalReference_7_ReferenceNumber, nctsHCCI_AdditionalReference_8_Type, nctsHCCI_AdditionalReference_8_ReferenceNumber, nctsHCCI_AdditionalReference_9_Type, nctsHCCI_AdditionalReference_9_ReferenceNumber, nctsHCCI_AdditionalInformation_1_Code, nctsHCCI_AdditionalInformation_1_Text, nctsHCCI_AdditionalInformation_2_Code, nctsHCCI_AdditionalInformation_2_Text, nctsHCCI_AdditionalInformation_3_Code, nctsHCCI_AdditionalInformation_3_Text, nctsHCCI_AdditionalInformation_4_Code, nctsHCCI_AdditionalInformation_4_Text, nctsHCCI_AdditionalInformation_5_Code, nctsHCCI_AdditionalInformation_5_Text, nctsHCCI_AdditionalInformation_6_Code, nctsHCCI_AdditionalInformation_6_Text, nctsHCCI_AdditionalInformation_7_Code, nctsHCCI_AdditionalInformation_7_Text, nctsHCCI_AdditionalInformation_8_Code, nctsHCCI_AdditionalInformation_8_Text, nctsHCCI_AdditionalInformation_9_Code, nctsHCCI_AdditionalInformation_9_Text, Original_nctsHCCI_Id, Original_nctsHCCI_NctsId, Original_nctsHCCI_NctsHCId, Original_nctsHCCI_GoodsItemNumber, Original_nctsHCCI_DeclarationGoodsItemNumber, Original_nctsHCCI_CommodityCode, Original_nctsHCCI_MethodeOfPayment, Original_nctsHCCI_UNNumber_1, Original_nctsHCCI_UNNumber_2, Original_nctsHCCI_UNNumber_3, Original_nctsHCCI_UNNumber_4, Original_nctsHCCI_DeclarationType, Original_nctsHCCI_ArticleCode, Original_nctsHCCI_DescriptionOfGoods, Original_nctsHCCI_CusCode, Original_nctsHCCI_CountryOfDispatch, Original_nctsHCCI_CountryOfDestination, Original_nctsHCCI_GrossMass, Original_nctsHCCI_NetMass, Original_nctsHCCI_ReferenceNumberUCR, Original_nctsHCCI_Consignor_AdressCode, Original_nctsHCCI_Consignor_IdentificationNumber, Original_nctsHCCI_Consignor_SubsidiaryNumber, Original_nctsHCCI_Consignor_Name, Original_nctsHCCI_Consignor_StreetNumber, Original_nctsHCCI_Consignor_City, Original_nctsHCCI_Consignor_Postcode, Original_nctsHCCI_Consignor_Country, Original_nctsHCCI_Consignor_ContactPerson_Name, Original_nctsHCCI_Consignor_ContactPerson_PhoneNumber, Original_nctsHCCI_Consignor_ContactPerson_EMailAddress, Original_nctsHCCI_AdditionalSupplyChainActor_1_Role, Original_nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber, Original_nctsHCCI_AdditionalSupplyChainActor_2_Role, Original_nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber, Original_nctsHCCI_AdditionalSupplyChainActor_3_Role, Original_nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber, Original_nctsHCCI_AdditionalSupplyChainActor_4_Role, Original_nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber, Original_nctsHCCI_AdditionalSupplyChainActor_5_Role, Original_nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber, Original_nctsHCCI_AdditionalSupplyChainActor_6_Role, Original_nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber, Original_nctsHCCI_AdditionalSupplyChainActor_7_Role, Original_nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber, Original_nctsHCCI_AdditionalSupplyChainActor_8_Role, Original_nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber, Original_nctsHCCI_AdditionalSupplyChainActor_9_Role, Original_nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber, Original_nctsHCCI_GoodsValue, Original_nctsHCCI_CurrencyOfGoodsValue, Original_nctsHCCI_ExchangeRate, Original_nctsHCCI_ExchangeDate, Original_nctsHCCI_CurrencyExchangeRateType, Original_nctsHCCI_FractionOfGoodsValue, Original_nctsHCCI_GuaranteeAmount, Original_nctsHCCI_PreviousDocument_1_Type, Original_nctsHCCI_PreviousDocument_1_ReferenceNumber, Original_nctsHCCI_PreviousDocument_1_DocumentLineItemNumber, Original_nctsHCCI_PreviousDocument_1_ComplementOfInformation, Original_nctsHCCI_PreviousDocument_1_GoodsItemNumber, Original_nctsHCCI_PreviousDocument_2_Type, Original_nctsHCCI_PreviousDocument_2_ReferenceNumber, Original_nctsHCCI_PreviousDocument_2_DocumentLineItemNumber, Original_nctsHCCI_PreviousDocument_2_ComplementOfInformation, Original_nctsHCCI_PreviousDocument_2_GoodsItemNumber, Original_nctsHCCI_PreviousDocument_3_Type, Original_nctsHCCI_PreviousDocument_3_ReferenceNumber, Original_nctsHCCI_PreviousDocument_3_DocumentLineItemNumber, Original_nctsHCCI_PreviousDocument_3_ComplementOfInformation, Original_nctsHCCI_PreviousDocument_3_GoodsItemNumber, Original_nctsHCCI_PreviousDocument_4_Type, Original_nctsHCCI_PreviousDocument_4_ReferenceNumber, Original_nctsHCCI_PreviousDocument_4_DocumentLineItemNumber, Original_nctsHCCI_PreviousDocument_4_ComplementOfInformation, Original_nctsHCCI_PreviousDocument_4_GoodsItemNumber, Original_nctsHCCI_PreviousDocument_5_Type, Original_nctsHCCI_PreviousDocument_5_ReferenceNumber, Original_nctsHCCI_PreviousDocument_5_DocumentLineItemNumber, Original_nctsHCCI_PreviousDocument_5_ComplementOfInformation, Original_nctsHCCI_PreviousDocument_5_GoodsItemNumber, Original_nctsHCCI_PreviousDocument_6_Type, Original_nctsHCCI_PreviousDocument_6_ReferenceNumber, Original_nctsHCCI_PreviousDocument_6_DocumentLineItemNumber, Original_nctsHCCI_PreviousDocument_6_ComplementOfInformation, Original_nctsHCCI_PreviousDocument_6_GoodsItemNumber, Original_nctsHCCI_PreviousDocument_7_Type, Original_nctsHCCI_PreviousDocument_7_ReferenceNumber, Original_nctsHCCI_PreviousDocument_7_DocumentLineItemNumber, Original_nctsHCCI_PreviousDocument_7_ComplementOfInformation, Original_nctsHCCI_PreviousDocument_7_GoodsItemNumber, Original_nctsHCCI_PreviousDocument_8_Type, Original_nctsHCCI_PreviousDocument_8_ReferenceNumber, Original_nctsHCCI_PreviousDocument_8_DocumentLineItemNumber, Original_nctsHCCI_PreviousDocument_8_ComplementOfInformation, Original_nctsHCCI_PreviousDocument_8_GoodsItemNumber, Original_nctsHCCI_PreviousDocument_9_Type, Original_nctsHCCI_PreviousDocument_9_ReferenceNumber, Original_nctsHCCI_PreviousDocument_9_DocumentLineItemNumber, Original_nctsHCCI_PreviousDocument_9_ComplementOfInformation, Original_nctsHCCI_PreviousDocument_9_GoodsItemNumber, Original_nctsHCCI_SupportingDocument_1_Type, Original_nctsHCCI_SupportingDocument_1_ReferenceNumber, Original_nctsHCCI_SupportingDocument_1_DocumentLineItemNumber, Original_nctsHCCI_SupportingDocument_1_ComplementOfInformation, Original_nctsHCCI_SupportingDocument_2_Type, Original_nctsHCCI_SupportingDocument_2_ReferenceNumber, Original_nctsHCCI_SupportingDocument_2_DocumentLineItemNumber, Original_nctsHCCI_SupportingDocument_2_ComplementOfInformation, Original_nctsHCCI_SupportingDocument_3_Type, Original_nctsHCCI_SupportingDocument_3_ReferenceNumber, Original_nctsHCCI_SupportingDocument_3_DocumentLineItemNumber, Original_nctsHCCI_SupportingDocument_3_ComplementOfInformation, Original_nctsHCCI_SupportingDocument_4_Type, Original_nctsHCCI_SupportingDocument_4_ReferenceNumber, Original_nctsHCCI_SupportingDocument_4_DocumentLineItemNumber, Original_nctsHCCI_SupportingDocument_4_ComplementOfInformation, Original_nctsHCCI_SupportingDocument_5_Type, Original_nctsHCCI_SupportingDocument_5_ReferenceNumber, Original_nctsHCCI_SupportingDocument_5_DocumentLineItemNumber, Original_nctsHCCI_SupportingDocument_5_ComplementOfInformation, Original_nctsHCCI_SupportingDocument_6_Type, Original_nctsHCCI_SupportingDocument_6_ReferenceNumber, Original_nctsHCCI_SupportingDocument_6_DocumentLineItemNumber, Original_nctsHCCI_SupportingDocument_6_ComplementOfInformation, Original_nctsHCCI_SupportingDocument_7_Type, Original_nctsHCCI_SupportingDocument_7_ReferenceNumber, Original_nctsHCCI_SupportingDocument_7_DocumentLineItemNumber, Original_nctsHCCI_SupportingDocument_7_ComplementOfInformation, Original_nctsHCCI_SupportingDocument_8_Type, Original_nctsHCCI_SupportingDocument_8_ReferenceNumber, Original_nctsHCCI_SupportingDocument_8_DocumentLineItemNumber, Original_nctsHCCI_SupportingDocument_8_ComplementOfInformation, Original_nctsHCCI_SupportingDocument_9_Type, Original_nctsHCCI_SupportingDocument_9_ReferenceNumber, Original_nctsHCCI_SupportingDocument_9_DocumentLineItemNumber, Original_nctsHCCI_SupportingDocument_9_ComplementOfInformation, Original_nctsHCCI_AdditionalReference_1_Type, Original_nctsHCCI_AdditionalReference_1_ReferenceNumber, Original_nctsHCCI_AdditionalReference_2_Type, Original_nctsHCCI_AdditionalReference_2_ReferenceNumber, Original_nctsHCCI_AdditionalReference_3_Type, Original_nctsHCCI_AdditionalReference_3_ReferenceNumber, Original_nctsHCCI_AdditionalReference_4_Type, Original_nctsHCCI_AdditionalReference_4_ReferenceNumber, Original_nctsHCCI_AdditionalReference_5_Type, Original_nctsHCCI_AdditionalReference_5_ReferenceNumber, Original_nctsHCCI_AdditionalReference_6_Type, Original_nctsHCCI_AdditionalReference_6_ReferenceNumber, Original_nctsHCCI_AdditionalReference_7_Type, Original_nctsHCCI_AdditionalReference_7_ReferenceNumber, Original_nctsHCCI_AdditionalReference_8_Type, Original_nctsHCCI_AdditionalReference_8_ReferenceNumber, Original_nctsHCCI_AdditionalReference_9_Type, Original_nctsHCCI_AdditionalReference_9_ReferenceNumber, Original_nctsHCCI_AdditionalInformation_1_Code, Original_nctsHCCI_AdditionalInformation_1_Text, Original_nctsHCCI_AdditionalInformation_2_Code, Original_nctsHCCI_AdditionalInformation_2_Text, Original_nctsHCCI_AdditionalInformation_3_Code, Original_nctsHCCI_AdditionalInformation_3_Text, Original_nctsHCCI_AdditionalInformation_4_Code, Original_nctsHCCI_AdditionalInformation_4_Text, Original_nctsHCCI_AdditionalInformation_5_Code, Original_nctsHCCI_AdditionalInformation_5_Text, Original_nctsHCCI_AdditionalInformation_6_Code, Original_nctsHCCI_AdditionalInformation_6_Text, Original_nctsHCCI_AdditionalInformation_7_Code, Original_nctsHCCI_AdditionalInformation_7_Text, Original_nctsHCCI_AdditionalInformation_8_Code, Original_nctsHCCI_AdditionalInformation_8_Text, Original_nctsHCCI_AdditionalInformation_9_Code, Original_nctsHCCI_AdditionalInformation_9_Text, Original_nctsHCCI_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter 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 = "tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging" tableMapping.ColumnMappings.Add("nctsHCCIPK_Id", "nctsHCCIPK_Id") tableMapping.ColumnMappings.Add("nctsHCCIPK_NctsId", "nctsHCCIPK_NctsId") tableMapping.ColumnMappings.Add("nctsHCCIPK_NctsHCId", "nctsHCCIPK_NctsHCId") tableMapping.ColumnMappings.Add("nctsHCCIPK_NctsHCCIId", "nctsHCCIPK_NctsHCCIId") tableMapping.ColumnMappings.Add("nctsHCCIPK_NumberOfPackages", "nctsHCCIPK_NumberOfPackages") tableMapping.ColumnMappings.Add("nctsHCCIPK_TypeOfPackages", "nctsHCCIPK_TypeOfPackages") tableMapping.ColumnMappings.Add("nctsHCCIPK_ShippingMarks", "nctsHCCIPK_ShippingMarks") tableMapping.ColumnMappings.Add("nctsHCCIPK_GoodsItemNumber", "nctsHCCIPK_GoodsItemNumber") 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].[tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packagin"& _ "g] WHERE (([nctsHCCIPK_Id] = @Original_nctsHCCIPK_Id) AND ([nctsHCCIPK_NctsId] ="& _ " @Original_nctsHCCIPK_NctsId) AND ([nctsHCCIPK_NctsHCId] = @Original_nctsHCCIPK_"& _ "NctsHCId) AND ([nctsHCCIPK_NctsHCCIId] = @Original_nctsHCCIPK_NctsHCCIId) AND (["& _ "nctsHCCIPK_NumberOfPackages] = @Original_nctsHCCIPK_NumberOfPackages) AND ([ncts"& _ "HCCIPK_TypeOfPackages] = @Original_nctsHCCIPK_TypeOfPackages) AND ((@IsNull_ncts"& _ "HCCIPK_ShippingMarks = 1 AND [nctsHCCIPK_ShippingMarks] IS NULL) OR ([nctsHCCIPK"& _ "_ShippingMarks] = @Original_nctsHCCIPK_ShippingMarks)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_NctsHCId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsHCId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_NctsHCCIId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsHCCIId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_NumberOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NumberOfPackages", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_TypeOfPackages", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_TypeOfPackages", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCIPK_ShippingMarks", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_ShippingMarks", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_ShippingMarks", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_ShippingMarks", 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].[tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packagin"& _ "g] ([nctsHCCIPK_NctsId], [nctsHCCIPK_NctsHCId], [nctsHCCIPK_NctsHCCIId], [nctsHC"& _ "CIPK_NumberOfPackages], [nctsHCCIPK_TypeOfPackages], [nctsHCCIPK_ShippingMarks],"& _ " [nctsHCCIPK_GoodsItemNumber]) VALUES (@nctsHCCIPK_NctsId, @nctsHCCIPK_NctsHCId,"& _ " @nctsHCCIPK_NctsHCCIId, @nctsHCCIPK_NumberOfPackages, @nctsHCCIPK_TypeOfPackage"& _ "s, @nctsHCCIPK_ShippingMarks, @nctsHCCIPK_GoodsItemNumber);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsHCCIPK_I"& _ "d, nctsHCCIPK_NctsId, nctsHCCIPK_NctsHCId, nctsHCCIPK_NctsHCCIId, nctsHCCIPK_Num"& _ "berOfPackages, nctsHCCIPK_TypeOfPackages, nctsHCCIPK_ShippingMarks, nctsHCCIPK_G"& _ "oodsItemNumber FROM tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packag"& _ "ing WHERE (nctsHCCIPK_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_NctsHCId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsHCId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_NctsHCCIId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsHCCIId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_NumberOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NumberOfPackages", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_TypeOfPackages", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_TypeOfPackages", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_ShippingMarks", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_ShippingMarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_GoodsItemNumber", 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].[tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging] SE"& _ "T [nctsHCCIPK_NctsId] = @nctsHCCIPK_NctsId, [nctsHCCIPK_NctsHCId] = @nctsHCCIPK_"& _ "NctsHCId, [nctsHCCIPK_NctsHCCIId] = @nctsHCCIPK_NctsHCCIId, [nctsHCCIPK_NumberOf"& _ "Packages] = @nctsHCCIPK_NumberOfPackages, [nctsHCCIPK_TypeOfPackages] = @nctsHCC"& _ "IPK_TypeOfPackages, [nctsHCCIPK_ShippingMarks] = @nctsHCCIPK_ShippingMarks, [nct"& _ "sHCCIPK_GoodsItemNumber] = @nctsHCCIPK_GoodsItemNumber WHERE (([nctsHCCIPK_Id] ="& _ " @Original_nctsHCCIPK_Id) AND ([nctsHCCIPK_NctsId] = @Original_nctsHCCIPK_NctsId"& _ ") AND ([nctsHCCIPK_NctsHCId] = @Original_nctsHCCIPK_NctsHCId) AND ([nctsHCCIPK_N"& _ "ctsHCCIId] = @Original_nctsHCCIPK_NctsHCCIId) AND ([nctsHCCIPK_NumberOfPackages]"& _ " = @Original_nctsHCCIPK_NumberOfPackages) AND ([nctsHCCIPK_TypeOfPackages] = @Or"& _ "iginal_nctsHCCIPK_TypeOfPackages) AND ((@IsNull_nctsHCCIPK_ShippingMarks = 1 AND"& _ " [nctsHCCIPK_ShippingMarks] IS NULL) OR ([nctsHCCIPK_ShippingMarks] = @Original_"& _ "nctsHCCIPK_ShippingMarks)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsHCCIPK_Id, nctsHCCIPK_NctsId, nctsHCCIP"& _ "K_NctsHCId, nctsHCCIPK_NctsHCCIId, nctsHCCIPK_NumberOfPackages, nctsHCCIPK_TypeO"& _ "fPackages, nctsHCCIPK_ShippingMarks, nctsHCCIPK_GoodsItemNumber FROM tblDakosy_N"& _ "CTSOut004_HouseConsignment_ConsignmentItem_Packaging WHERE (nctsHCCIPK_Id = @nct"& _ "sHCCIPK_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_NctsHCId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsHCId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_NctsHCCIId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsHCCIId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_NumberOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NumberOfPackages", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_TypeOfPackages", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_TypeOfPackages", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_ShippingMarks", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_ShippingMarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_GoodsItemNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_GoodsItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_NctsHCId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsHCId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_NctsHCCIId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NctsHCCIId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_NumberOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_NumberOfPackages", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_TypeOfPackages", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_TypeOfPackages", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsHCCIPK_ShippingMarks", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_ShippingMarks", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsHCCIPK_ShippingMarks", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_ShippingMarks", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsHCCIPK_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsHCCIPK_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsHCCIPK_Id, nctsHCCIPK_NctsId, nctsHCCIPK_NctsHCId, nctsHCCIPK_NctsHCCI"& _ "Id, nctsHCCIPK_NumberOfPackages, nctsHCCIPK_TypeOfPackages, nctsHCCIPK_ShippingM"& _ "arks, nctsHCCIPK_GoodsItemNumber FROM dbo.tblDakosy_NCTSOut004_HouseConsignment_"& _ "ConsignmentItem_Packaging" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable) 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 VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable = New VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging") 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_nctsHCCIPK_Id As Integer, ByVal Original_nctsHCCIPK_NctsId As Integer, ByVal Original_nctsHCCIPK_NctsHCId As Integer, ByVal Original_nctsHCCIPK_NctsHCCIId As Integer, ByVal Original_nctsHCCIPK_NumberOfPackages As Integer, ByVal Original_nctsHCCIPK_TypeOfPackages As String, ByVal Original_nctsHCCIPK_ShippingMarks As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsHCCIPK_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsHCCIPK_NctsId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nctsHCCIPK_NctsHCId,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_nctsHCCIPK_NctsHCCIId,Integer) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_nctsHCCIPK_NumberOfPackages,Integer) If (Original_nctsHCCIPK_TypeOfPackages Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsHCCIPK_TypeOfPackages") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_nctsHCCIPK_TypeOfPackages,String) End If If (Original_nctsHCCIPK_ShippingMarks 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_nctsHCCIPK_ShippingMarks,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 nctsHCCIPK_NctsId As Integer, ByVal nctsHCCIPK_NctsHCId As Integer, ByVal nctsHCCIPK_NctsHCCIId As Integer, ByVal nctsHCCIPK_NumberOfPackages As Integer, ByVal nctsHCCIPK_TypeOfPackages As String, ByVal nctsHCCIPK_ShippingMarks As String, ByVal nctsHCCIPK_GoodsItemNumber As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsHCCIPK_NctsId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsHCCIPK_NctsHCId,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsHCCIPK_NctsHCCIId,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsHCCIPK_NumberOfPackages,Integer) If (nctsHCCIPK_TypeOfPackages Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsHCCIPK_TypeOfPackages") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsHCCIPK_TypeOfPackages,String) End If If (nctsHCCIPK_ShippingMarks Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsHCCIPK_ShippingMarks,String) End If If (nctsHCCIPK_GoodsItemNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(nctsHCCIPK_GoodsItemNumber,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 nctsHCCIPK_NctsId As Integer, ByVal nctsHCCIPK_NctsHCId As Integer, ByVal nctsHCCIPK_NctsHCCIId As Integer, ByVal nctsHCCIPK_NumberOfPackages As Integer, ByVal nctsHCCIPK_TypeOfPackages As String, ByVal nctsHCCIPK_ShippingMarks As String, ByVal nctsHCCIPK_GoodsItemNumber As String, ByVal Original_nctsHCCIPK_Id As Integer, ByVal Original_nctsHCCIPK_NctsId As Integer, ByVal Original_nctsHCCIPK_NctsHCId As Integer, ByVal Original_nctsHCCIPK_NctsHCCIId As Integer, ByVal Original_nctsHCCIPK_NumberOfPackages As Integer, ByVal Original_nctsHCCIPK_TypeOfPackages As String, ByVal Original_nctsHCCIPK_ShippingMarks As String, ByVal nctsHCCIPK_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsHCCIPK_NctsId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsHCCIPK_NctsHCId,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsHCCIPK_NctsHCCIId,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsHCCIPK_NumberOfPackages,Integer) If (nctsHCCIPK_TypeOfPackages Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsHCCIPK_TypeOfPackages") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsHCCIPK_TypeOfPackages,String) End If If (nctsHCCIPK_ShippingMarks Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsHCCIPK_ShippingMarks,String) End If If (nctsHCCIPK_GoodsItemNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nctsHCCIPK_GoodsItemNumber,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_nctsHCCIPK_Id,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_nctsHCCIPK_NctsId,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_nctsHCCIPK_NctsHCId,Integer) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_nctsHCCIPK_NctsHCCIId,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_nctsHCCIPK_NumberOfPackages,Integer) If (Original_nctsHCCIPK_TypeOfPackages Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsHCCIPK_TypeOfPackages") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_nctsHCCIPK_TypeOfPackages,String) End If If (Original_nctsHCCIPK_ShippingMarks 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_nctsHCCIPK_ShippingMarks,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(nctsHCCIPK_Id,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 nctsHCCIPK_NctsId As Integer, ByVal nctsHCCIPK_NctsHCId As Integer, ByVal nctsHCCIPK_NctsHCCIId As Integer, ByVal nctsHCCIPK_NumberOfPackages As Integer, ByVal nctsHCCIPK_TypeOfPackages As String, ByVal nctsHCCIPK_ShippingMarks As String, ByVal nctsHCCIPK_GoodsItemNumber As String, ByVal Original_nctsHCCIPK_Id As Integer, ByVal Original_nctsHCCIPK_NctsId As Integer, ByVal Original_nctsHCCIPK_NctsHCId As Integer, ByVal Original_nctsHCCIPK_NctsHCCIId As Integer, ByVal Original_nctsHCCIPK_NumberOfPackages As Integer, ByVal Original_nctsHCCIPK_TypeOfPackages As String, ByVal Original_nctsHCCIPK_ShippingMarks As String) As Integer Return Me.Update(nctsHCCIPK_NctsId, nctsHCCIPK_NctsHCId, nctsHCCIPK_NctsHCCIId, nctsHCCIPK_NumberOfPackages, nctsHCCIPK_TypeOfPackages, nctsHCCIPK_ShippingMarks, nctsHCCIPK_GoodsItemNumber, Original_nctsHCCIPK_Id, Original_nctsHCCIPK_NctsId, Original_nctsHCCIPK_NctsHCId, Original_nctsHCCIPK_NctsHCCIId, Original_nctsHCCIPK_NumberOfPackages, Original_nctsHCCIPK_TypeOfPackages, Original_nctsHCCIPK_ShippingMarks, Original_nctsHCCIPK_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_NCTSOut004_TransportEquipmentTableAdapter 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 = "tblDakosy_NCTSOut004_TransportEquipment" tableMapping.ColumnMappings.Add("nctsTE_Id", "nctsTE_Id") tableMapping.ColumnMappings.Add("nctsTE_NctsId", "nctsTE_NctsId") tableMapping.ColumnMappings.Add("nctsTE_NumberOfSeals", "nctsTE_NumberOfSeals") tableMapping.ColumnMappings.Add("nctsTE_Seal_1", "nctsTE_Seal_1") tableMapping.ColumnMappings.Add("nctsTE_Seal_2", "nctsTE_Seal_2") tableMapping.ColumnMappings.Add("nctsTE_Seal_3", "nctsTE_Seal_3") tableMapping.ColumnMappings.Add("nctsTE_Seal_4", "nctsTE_Seal_4") tableMapping.ColumnMappings.Add("nctsTE_Seal_5", "nctsTE_Seal_5") tableMapping.ColumnMappings.Add("nctsTE_Seal_6", "nctsTE_Seal_6") tableMapping.ColumnMappings.Add("nctsTE_Seal_7", "nctsTE_Seal_7") tableMapping.ColumnMappings.Add("nctsTE_Seal_8", "nctsTE_Seal_8") tableMapping.ColumnMappings.Add("nctsTE_Seal_9", "nctsTE_Seal_9") tableMapping.ColumnMappings.Add("nctsTE_Seal_10", "nctsTE_Seal_10") tableMapping.ColumnMappings.Add("nctsTE_Seal_11", "nctsTE_Seal_11") tableMapping.ColumnMappings.Add("nctsTE_Seal_12", "nctsTE_Seal_12") tableMapping.ColumnMappings.Add("nctsTE_Seal_13", "nctsTE_Seal_13") tableMapping.ColumnMappings.Add("nctsTE_Seal_14", "nctsTE_Seal_14") tableMapping.ColumnMappings.Add("nctsTE_Seal_15", "nctsTE_Seal_15") tableMapping.ColumnMappings.Add("nctsTE_ContainerIdentificationNumber", "nctsTE_ContainerIdentificationNumber") tableMapping.ColumnMappings.Add("nctsTE_GoodsReference", "nctsTE_GoodsReference") 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].[tblDakosy_NCTSOut004_TransportEquipment] WHERE (([nctsTE_Id] ="& _ " @Original_nctsTE_Id) AND ([nctsTE_NctsId] = @Original_nctsTE_NctsId) AND ((@IsN"& _ "ull_nctsTE_NumberOfSeals = 1 AND [nctsTE_NumberOfSeals] IS NULL) OR ([nctsTE_Num"& _ "berOfSeals] = @Original_nctsTE_NumberOfSeals)) AND ((@IsNull_nctsTE_Seal_1 = 1 A"& _ "ND [nctsTE_Seal_1] IS NULL) OR ([nctsTE_Seal_1] = @Original_nctsTE_Seal_1)) AND "& _ "((@IsNull_nctsTE_Seal_2 = 1 AND [nctsTE_Seal_2] IS NULL) OR ([nctsTE_Seal_2] = @"& _ "Original_nctsTE_Seal_2)) AND ((@IsNull_nctsTE_Seal_3 = 1 AND [nctsTE_Seal_3] IS "& _ "NULL) OR ([nctsTE_Seal_3] = @Original_nctsTE_Seal_3)) AND ((@IsNull_nctsTE_Seal_"& _ "4 = 1 AND [nctsTE_Seal_4] IS NULL) OR ([nctsTE_Seal_4] = @Original_nctsTE_Seal_4"& _ ")) AND ((@IsNull_nctsTE_Seal_5 = 1 AND [nctsTE_Seal_5] IS NULL) OR ([nctsTE_Seal"& _ "_5] = @Original_nctsTE_Seal_5)) AND ((@IsNull_nctsTE_Seal_6 = 1 AND [nctsTE_Seal"& _ "_6] IS NULL) OR ([nctsTE_Seal_6] = @Original_nctsTE_Seal_6)) AND ((@IsNull_nctsT"& _ "E_Seal_7 = 1 AND [nctsTE_Seal_7] IS NULL) OR ([nctsTE_Seal_7] = @Original_nctsTE"& _ "_Seal_7)) AND ((@IsNull_nctsTE_Seal_8 = 1 AND [nctsTE_Seal_8] IS NULL) OR ([ncts"& _ "TE_Seal_8] = @Original_nctsTE_Seal_8)) AND ((@IsNull_nctsTE_Seal_9 = 1 AND [ncts"& _ "TE_Seal_9] IS NULL) OR ([nctsTE_Seal_9] = @Original_nctsTE_Seal_9)) AND ((@IsNul"& _ "l_nctsTE_Seal_10 = 1 AND [nctsTE_Seal_10] IS NULL) OR ([nctsTE_Seal_10] = @Origi"& _ "nal_nctsTE_Seal_10)) AND ((@IsNull_nctsTE_Seal_11 = 1 AND [nctsTE_Seal_11] IS NU"& _ "LL) OR ([nctsTE_Seal_11] = @Original_nctsTE_Seal_11)) AND ((@IsNull_nctsTE_Seal_"& _ "12 = 1 AND [nctsTE_Seal_12] IS NULL) OR ([nctsTE_Seal_12] = @Original_nctsTE_Sea"& _ "l_12)) AND ((@IsNull_nctsTE_Seal_13 = 1 AND [nctsTE_Seal_13] IS NULL) OR ([nctsT"& _ "E_Seal_13] = @Original_nctsTE_Seal_13)) AND ((@IsNull_nctsTE_Seal_14 = 1 AND [nc"& _ "tsTE_Seal_14] IS NULL) OR ([nctsTE_Seal_14] = @Original_nctsTE_Seal_14)) AND ((@"& _ "IsNull_nctsTE_Seal_15 = 1 AND [nctsTE_Seal_15] IS NULL) OR ([nctsTE_Seal_15] = @"& _ "Original_nctsTE_Seal_15)) AND ((@IsNull_nctsTE_ContainerIdentificationNumber = 1"& _ " AND [nctsTE_ContainerIdentificationNumber] IS NULL) OR ([nctsTE_ContainerIdenti"& _ "ficationNumber] = @Original_nctsTE_ContainerIdentificationNumber)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_NumberOfSeals", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_NumberOfSeals", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_NumberOfSeals", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_NumberOfSeals", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_ContainerIdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_ContainerIdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_ContainerIdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_ContainerIdentificationNumber", 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].[tblDakosy_NCTSOut004_TransportEquipment] ([nctsTE_NctsId], [nc"& _ "tsTE_NumberOfSeals], [nctsTE_Seal_1], [nctsTE_Seal_2], [nctsTE_Seal_3], [nctsTE_"& _ "Seal_4], [nctsTE_Seal_5], [nctsTE_Seal_6], [nctsTE_Seal_7], [nctsTE_Seal_8], [nc"& _ "tsTE_Seal_9], [nctsTE_Seal_10], [nctsTE_Seal_11], [nctsTE_Seal_12], [nctsTE_Seal"& _ "_13], [nctsTE_Seal_14], [nctsTE_Seal_15], [nctsTE_ContainerIdentificationNumber]"& _ ", [nctsTE_GoodsReference]) VALUES (@nctsTE_NctsId, @nctsTE_NumberOfSeals, @nctsT"& _ "E_Seal_1, @nctsTE_Seal_2, @nctsTE_Seal_3, @nctsTE_Seal_4, @nctsTE_Seal_5, @nctsT"& _ "E_Seal_6, @nctsTE_Seal_7, @nctsTE_Seal_8, @nctsTE_Seal_9, @nctsTE_Seal_10, @ncts"& _ "TE_Seal_11, @nctsTE_Seal_12, @nctsTE_Seal_13, @nctsTE_Seal_14, @nctsTE_Seal_15, "& _ "@nctsTE_ContainerIdentificationNumber, @nctsTE_GoodsReference);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsTE_I"& _ "d, nctsTE_NctsId, nctsTE_NumberOfSeals, nctsTE_Seal_1, nctsTE_Seal_2, nctsTE_Sea"& _ "l_3, nctsTE_Seal_4, nctsTE_Seal_5, nctsTE_Seal_6, nctsTE_Seal_7, nctsTE_Seal_8, "& _ "nctsTE_Seal_9, nctsTE_Seal_10, nctsTE_Seal_11, nctsTE_Seal_12, nctsTE_Seal_13, n"& _ "ctsTE_Seal_14, nctsTE_Seal_15, nctsTE_ContainerIdentificationNumber, nctsTE_Good"& _ "sReference FROM tblDakosy_NCTSOut004_TransportEquipment WHERE (nctsTE_Id = SCOPE"& _ "_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_NumberOfSeals", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_NumberOfSeals", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_ContainerIdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_ContainerIdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_GoodsReference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_GoodsReference", 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].[tblDakosy_NCTSOut004_TransportEquipment] SET [nctsTE_NctsId] = @nct"& _ "sTE_NctsId, [nctsTE_NumberOfSeals] = @nctsTE_NumberOfSeals, [nctsTE_Seal_1] = @n"& _ "ctsTE_Seal_1, [nctsTE_Seal_2] = @nctsTE_Seal_2, [nctsTE_Seal_3] = @nctsTE_Seal_3"& _ ", [nctsTE_Seal_4] = @nctsTE_Seal_4, [nctsTE_Seal_5] = @nctsTE_Seal_5, [nctsTE_Se"& _ "al_6] = @nctsTE_Seal_6, [nctsTE_Seal_7] = @nctsTE_Seal_7, [nctsTE_Seal_8] = @nct"& _ "sTE_Seal_8, [nctsTE_Seal_9] = @nctsTE_Seal_9, [nctsTE_Seal_10] = @nctsTE_Seal_10"& _ ", [nctsTE_Seal_11] = @nctsTE_Seal_11, [nctsTE_Seal_12] = @nctsTE_Seal_12, [nctsT"& _ "E_Seal_13] = @nctsTE_Seal_13, [nctsTE_Seal_14] = @nctsTE_Seal_14, [nctsTE_Seal_1"& _ "5] = @nctsTE_Seal_15, [nctsTE_ContainerIdentificationNumber] = @nctsTE_Container"& _ "IdentificationNumber, [nctsTE_GoodsReference] = @nctsTE_GoodsReference WHERE ((["& _ "nctsTE_Id] = @Original_nctsTE_Id) AND ([nctsTE_NctsId] = @Original_nctsTE_NctsId"& _ ") AND ((@IsNull_nctsTE_NumberOfSeals = 1 AND [nctsTE_NumberOfSeals] IS NULL) OR "& _ "([nctsTE_NumberOfSeals] = @Original_nctsTE_NumberOfSeals)) AND ((@IsNull_nctsTE_"& _ "Seal_1 = 1 AND [nctsTE_Seal_1] IS NULL) OR ([nctsTE_Seal_1] = @Original_nctsTE_S"& _ "eal_1)) AND ((@IsNull_nctsTE_Seal_2 = 1 AND [nctsTE_Seal_2] IS NULL) OR ([nctsTE"& _ "_Seal_2] = @Original_nctsTE_Seal_2)) AND ((@IsNull_nctsTE_Seal_3 = 1 AND [nctsTE"& _ "_Seal_3] IS NULL) OR ([nctsTE_Seal_3] = @Original_nctsTE_Seal_3)) AND ((@IsNull_"& _ "nctsTE_Seal_4 = 1 AND [nctsTE_Seal_4] IS NULL) OR ([nctsTE_Seal_4] = @Original_n"& _ "ctsTE_Seal_4)) AND ((@IsNull_nctsTE_Seal_5 = 1 AND [nctsTE_Seal_5] IS NULL) OR ("& _ "[nctsTE_Seal_5] = @Original_nctsTE_Seal_5)) AND ((@IsNull_nctsTE_Seal_6 = 1 AND "& _ "[nctsTE_Seal_6] IS NULL) OR ([nctsTE_Seal_6] = @Original_nctsTE_Seal_6)) AND ((@"& _ "IsNull_nctsTE_Seal_7 = 1 AND [nctsTE_Seal_7] IS NULL) OR ([nctsTE_Seal_7] = @Ori"& _ "ginal_nctsTE_Seal_7)) AND ((@IsNull_nctsTE_Seal_8 = 1 AND [nctsTE_Seal_8] IS NUL"& _ "L) OR ([nctsTE_Seal_8] = @Original_nctsTE_Seal_8)) AND ((@IsNull_nctsTE_Seal_9 ="& _ " 1 AND [nctsTE_Seal_9] IS NULL) OR ([nctsTE_Seal_9] = @Original_nctsTE_Seal_9)) "& _ "AND ((@IsNull_nctsTE_Seal_10 = 1 AND [nctsTE_Seal_10] IS NULL) OR ([nctsTE_Seal_"& _ "10] = @Original_nctsTE_Seal_10)) AND ((@IsNull_nctsTE_Seal_11 = 1 AND [nctsTE_Se"& _ "al_11] IS NULL) OR ([nctsTE_Seal_11] = @Original_nctsTE_Seal_11)) AND ((@IsNull_"& _ "nctsTE_Seal_12 = 1 AND [nctsTE_Seal_12] IS NULL) OR ([nctsTE_Seal_12] = @Origina"& _ "l_nctsTE_Seal_12)) AND ((@IsNull_nctsTE_Seal_13 = 1 AND [nctsTE_Seal_13] IS NULL"& _ ") OR ([nctsTE_Seal_13] = @Original_nctsTE_Seal_13)) AND ((@IsNull_nctsTE_Seal_14"& _ " = 1 AND [nctsTE_Seal_14] IS NULL) OR ([nctsTE_Seal_14] = @Original_nctsTE_Seal_"& _ "14)) AND ((@IsNull_nctsTE_Seal_15 = 1 AND [nctsTE_Seal_15] IS NULL) OR ([nctsTE_"& _ "Seal_15] = @Original_nctsTE_Seal_15)) AND ((@IsNull_nctsTE_ContainerIdentificati"& _ "onNumber = 1 AND [nctsTE_ContainerIdentificationNumber] IS NULL) OR ([nctsTE_Con"& _ "tainerIdentificationNumber] = @Original_nctsTE_ContainerIdentificationNumber)));"& _ ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsTE_Id, nctsTE_NctsId, nctsTE_NumberOfSeals, nctsTE_Seal_1, nctsTE_S"& _ "eal_2, nctsTE_Seal_3, nctsTE_Seal_4, nctsTE_Seal_5, nctsTE_Seal_6, nctsTE_Seal_7"& _ ", nctsTE_Seal_8, nctsTE_Seal_9, nctsTE_Seal_10, nctsTE_Seal_11, nctsTE_Seal_12, "& _ "nctsTE_Seal_13, nctsTE_Seal_14, nctsTE_Seal_15, nctsTE_ContainerIdentificationNu"& _ "mber, nctsTE_GoodsReference FROM tblDakosy_NCTSOut004_TransportEquipment WHERE ("& _ "nctsTE_Id = @nctsTE_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_NumberOfSeals", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_NumberOfSeals", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Seal_15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_ContainerIdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_ContainerIdentificationNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_GoodsReference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_GoodsReference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_NumberOfSeals", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_NumberOfSeals", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_NumberOfSeals", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_NumberOfSeals", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_Seal_15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_Seal_15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Seal_15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsTE_ContainerIdentificationNumber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_ContainerIdentificationNumber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsTE_ContainerIdentificationNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_ContainerIdentificationNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsTE_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsTE_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsTE_Id, nctsTE_NctsId, nctsTE_NumberOfSeals, nctsTE_Seal_1, nctsTE_Seal"& _ "_2, nctsTE_Seal_3, nctsTE_Seal_4, nctsTE_Seal_5, nctsTE_Seal_6, nctsTE_Seal_7, n"& _ "ctsTE_Seal_8, nctsTE_Seal_9, nctsTE_Seal_10, nctsTE_Seal_11, nctsTE_Seal_12, nct"& _ "sTE_Seal_13, nctsTE_Seal_14, nctsTE_Seal_15, nctsTE_ContainerIdentificationNumbe"& _ "r, nctsTE_GoodsReference FROM dbo.tblDakosy_NCTSOut004_TransportEquipment" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004_TransportEquipmentDataTable) 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 VERAGDataSet.tblDakosy_NCTSOut004_TransportEquipmentDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_NCTSOut004_TransportEquipmentDataTable = New VERAGDataSet.tblDakosy_NCTSOut004_TransportEquipmentDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_NCTSOut004_TransportEquipmentDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_NCTSOut004_TransportEquipment") 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_nctsTE_Id As Integer, _ ByVal Original_nctsTE_NctsId As Integer, _ ByVal Original_nctsTE_NumberOfSeals As String, _ ByVal Original_nctsTE_Seal_1 As String, _ ByVal Original_nctsTE_Seal_2 As String, _ ByVal Original_nctsTE_Seal_3 As String, _ ByVal Original_nctsTE_Seal_4 As String, _ ByVal Original_nctsTE_Seal_5 As String, _ ByVal Original_nctsTE_Seal_6 As String, _ ByVal Original_nctsTE_Seal_7 As String, _ ByVal Original_nctsTE_Seal_8 As String, _ ByVal Original_nctsTE_Seal_9 As String, _ ByVal Original_nctsTE_Seal_10 As String, _ ByVal Original_nctsTE_Seal_11 As String, _ ByVal Original_nctsTE_Seal_12 As String, _ ByVal Original_nctsTE_Seal_13 As String, _ ByVal Original_nctsTE_Seal_14 As String, _ ByVal Original_nctsTE_Seal_15 As String, _ ByVal Original_nctsTE_ContainerIdentificationNumber As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsTE_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsTE_NctsId,Integer) If (Original_nctsTE_NumberOfSeals 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_nctsTE_NumberOfSeals,String) End If If (Original_nctsTE_Seal_1 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_nctsTE_Seal_1,String) End If If (Original_nctsTE_Seal_2 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_nctsTE_Seal_2,String) End If If (Original_nctsTE_Seal_3 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_nctsTE_Seal_3,String) End If If (Original_nctsTE_Seal_4 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_nctsTE_Seal_4,String) End If If (Original_nctsTE_Seal_5 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_nctsTE_Seal_5,String) End If If (Original_nctsTE_Seal_6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_nctsTE_Seal_6,String) End If If (Original_nctsTE_Seal_7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_nctsTE_Seal_7,String) End If If (Original_nctsTE_Seal_8 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_nctsTE_Seal_8,String) End If If (Original_nctsTE_Seal_9 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_nctsTE_Seal_9,String) End If If (Original_nctsTE_Seal_10 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_nctsTE_Seal_10,String) End If If (Original_nctsTE_Seal_11 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_nctsTE_Seal_11,String) End If If (Original_nctsTE_Seal_12 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_nctsTE_Seal_12,String) End If If (Original_nctsTE_Seal_13 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_nctsTE_Seal_13,String) End If If (Original_nctsTE_Seal_14 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_nctsTE_Seal_14,String) End If If (Original_nctsTE_Seal_15 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_nctsTE_Seal_15,String) End If If (Original_nctsTE_ContainerIdentificationNumber Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_nctsTE_ContainerIdentificationNumber,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 nctsTE_NctsId As Integer, _ ByVal nctsTE_NumberOfSeals As String, _ ByVal nctsTE_Seal_1 As String, _ ByVal nctsTE_Seal_2 As String, _ ByVal nctsTE_Seal_3 As String, _ ByVal nctsTE_Seal_4 As String, _ ByVal nctsTE_Seal_5 As String, _ ByVal nctsTE_Seal_6 As String, _ ByVal nctsTE_Seal_7 As String, _ ByVal nctsTE_Seal_8 As String, _ ByVal nctsTE_Seal_9 As String, _ ByVal nctsTE_Seal_10 As String, _ ByVal nctsTE_Seal_11 As String, _ ByVal nctsTE_Seal_12 As String, _ ByVal nctsTE_Seal_13 As String, _ ByVal nctsTE_Seal_14 As String, _ ByVal nctsTE_Seal_15 As String, _ ByVal nctsTE_ContainerIdentificationNumber As String, _ ByVal nctsTE_GoodsReference As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsTE_NctsId,Integer) If (nctsTE_NumberOfSeals Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsTE_NumberOfSeals,String) End If If (nctsTE_Seal_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsTE_Seal_1,String) End If If (nctsTE_Seal_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsTE_Seal_2,String) End If If (nctsTE_Seal_3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsTE_Seal_3,String) End If If (nctsTE_Seal_4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsTE_Seal_4,String) End If If (nctsTE_Seal_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(nctsTE_Seal_5,String) End If If (nctsTE_Seal_6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(nctsTE_Seal_6,String) End If If (nctsTE_Seal_7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(nctsTE_Seal_7,String) End If If (nctsTE_Seal_8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(nctsTE_Seal_8,String) End If If (nctsTE_Seal_9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(nctsTE_Seal_9,String) End If If (nctsTE_Seal_10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(nctsTE_Seal_10,String) End If If (nctsTE_Seal_11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(nctsTE_Seal_11,String) End If If (nctsTE_Seal_12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(nctsTE_Seal_12,String) End If If (nctsTE_Seal_13 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(nctsTE_Seal_13,String) End If If (nctsTE_Seal_14 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(nctsTE_Seal_14,String) End If If (nctsTE_Seal_15 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(nctsTE_Seal_15,String) End If If (nctsTE_ContainerIdentificationNumber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(nctsTE_ContainerIdentificationNumber,String) End If If (nctsTE_GoodsReference Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(nctsTE_GoodsReference,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 nctsTE_NctsId As Integer, _ ByVal nctsTE_NumberOfSeals As String, _ ByVal nctsTE_Seal_1 As String, _ ByVal nctsTE_Seal_2 As String, _ ByVal nctsTE_Seal_3 As String, _ ByVal nctsTE_Seal_4 As String, _ ByVal nctsTE_Seal_5 As String, _ ByVal nctsTE_Seal_6 As String, _ ByVal nctsTE_Seal_7 As String, _ ByVal nctsTE_Seal_8 As String, _ ByVal nctsTE_Seal_9 As String, _ ByVal nctsTE_Seal_10 As String, _ ByVal nctsTE_Seal_11 As String, _ ByVal nctsTE_Seal_12 As String, _ ByVal nctsTE_Seal_13 As String, _ ByVal nctsTE_Seal_14 As String, _ ByVal nctsTE_Seal_15 As String, _ ByVal nctsTE_ContainerIdentificationNumber As String, _ ByVal nctsTE_GoodsReference As String, _ ByVal Original_nctsTE_Id As Integer, _ ByVal Original_nctsTE_NctsId As Integer, _ ByVal Original_nctsTE_NumberOfSeals As String, _ ByVal Original_nctsTE_Seal_1 As String, _ ByVal Original_nctsTE_Seal_2 As String, _ ByVal Original_nctsTE_Seal_3 As String, _ ByVal Original_nctsTE_Seal_4 As String, _ ByVal Original_nctsTE_Seal_5 As String, _ ByVal Original_nctsTE_Seal_6 As String, _ ByVal Original_nctsTE_Seal_7 As String, _ ByVal Original_nctsTE_Seal_8 As String, _ ByVal Original_nctsTE_Seal_9 As String, _ ByVal Original_nctsTE_Seal_10 As String, _ ByVal Original_nctsTE_Seal_11 As String, _ ByVal Original_nctsTE_Seal_12 As String, _ ByVal Original_nctsTE_Seal_13 As String, _ ByVal Original_nctsTE_Seal_14 As String, _ ByVal Original_nctsTE_Seal_15 As String, _ ByVal Original_nctsTE_ContainerIdentificationNumber As String, _ ByVal nctsTE_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsTE_NctsId,Integer) If (nctsTE_NumberOfSeals Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsTE_NumberOfSeals,String) End If If (nctsTE_Seal_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsTE_Seal_1,String) End If If (nctsTE_Seal_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsTE_Seal_2,String) End If If (nctsTE_Seal_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsTE_Seal_3,String) End If If (nctsTE_Seal_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsTE_Seal_4,String) End If If (nctsTE_Seal_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nctsTE_Seal_5,String) End If If (nctsTE_Seal_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(nctsTE_Seal_6,String) End If If (nctsTE_Seal_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(nctsTE_Seal_7,String) End If If (nctsTE_Seal_8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(nctsTE_Seal_8,String) End If If (nctsTE_Seal_9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(nctsTE_Seal_9,String) End If If (nctsTE_Seal_10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(nctsTE_Seal_10,String) End If If (nctsTE_Seal_11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(nctsTE_Seal_11,String) End If If (nctsTE_Seal_12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(nctsTE_Seal_12,String) End If If (nctsTE_Seal_13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(nctsTE_Seal_13,String) End If If (nctsTE_Seal_14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(nctsTE_Seal_14,String) End If If (nctsTE_Seal_15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(nctsTE_Seal_15,String) End If If (nctsTE_ContainerIdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(nctsTE_ContainerIdentificationNumber,String) End If If (nctsTE_GoodsReference Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(nctsTE_GoodsReference,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_nctsTE_Id,Integer) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_nctsTE_NctsId,Integer) If (Original_nctsTE_NumberOfSeals 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_nctsTE_NumberOfSeals,String) End If If (Original_nctsTE_Seal_1 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_nctsTE_Seal_1,String) End If If (Original_nctsTE_Seal_2 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_nctsTE_Seal_2,String) End If If (Original_nctsTE_Seal_3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_nctsTE_Seal_3,String) End If If (Original_nctsTE_Seal_4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_nctsTE_Seal_4,String) End If If (Original_nctsTE_Seal_5 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_nctsTE_Seal_5,String) End If If (Original_nctsTE_Seal_6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_nctsTE_Seal_6,String) End If If (Original_nctsTE_Seal_7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_nctsTE_Seal_7,String) End If If (Original_nctsTE_Seal_8 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_nctsTE_Seal_8,String) End If If (Original_nctsTE_Seal_9 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_nctsTE_Seal_9,String) End If If (Original_nctsTE_Seal_10 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_nctsTE_Seal_10,String) End If If (Original_nctsTE_Seal_11 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_nctsTE_Seal_11,String) End If If (Original_nctsTE_Seal_12 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_nctsTE_Seal_12,String) End If If (Original_nctsTE_Seal_13 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_nctsTE_Seal_13,String) End If If (Original_nctsTE_Seal_14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_nctsTE_Seal_14,String) End If If (Original_nctsTE_Seal_15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_nctsTE_Seal_15,String) End If If (Original_nctsTE_ContainerIdentificationNumber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_nctsTE_ContainerIdentificationNumber,String) End If Me.Adapter.UpdateCommand.Parameters(55).Value = CType(nctsTE_Id,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 nctsTE_NctsId As Integer, _ ByVal nctsTE_NumberOfSeals As String, _ ByVal nctsTE_Seal_1 As String, _ ByVal nctsTE_Seal_2 As String, _ ByVal nctsTE_Seal_3 As String, _ ByVal nctsTE_Seal_4 As String, _ ByVal nctsTE_Seal_5 As String, _ ByVal nctsTE_Seal_6 As String, _ ByVal nctsTE_Seal_7 As String, _ ByVal nctsTE_Seal_8 As String, _ ByVal nctsTE_Seal_9 As String, _ ByVal nctsTE_Seal_10 As String, _ ByVal nctsTE_Seal_11 As String, _ ByVal nctsTE_Seal_12 As String, _ ByVal nctsTE_Seal_13 As String, _ ByVal nctsTE_Seal_14 As String, _ ByVal nctsTE_Seal_15 As String, _ ByVal nctsTE_ContainerIdentificationNumber As String, _ ByVal nctsTE_GoodsReference As String, _ ByVal Original_nctsTE_Id As Integer, _ ByVal Original_nctsTE_NctsId As Integer, _ ByVal Original_nctsTE_NumberOfSeals As String, _ ByVal Original_nctsTE_Seal_1 As String, _ ByVal Original_nctsTE_Seal_2 As String, _ ByVal Original_nctsTE_Seal_3 As String, _ ByVal Original_nctsTE_Seal_4 As String, _ ByVal Original_nctsTE_Seal_5 As String, _ ByVal Original_nctsTE_Seal_6 As String, _ ByVal Original_nctsTE_Seal_7 As String, _ ByVal Original_nctsTE_Seal_8 As String, _ ByVal Original_nctsTE_Seal_9 As String, _ ByVal Original_nctsTE_Seal_10 As String, _ ByVal Original_nctsTE_Seal_11 As String, _ ByVal Original_nctsTE_Seal_12 As String, _ ByVal Original_nctsTE_Seal_13 As String, _ ByVal Original_nctsTE_Seal_14 As String, _ ByVal Original_nctsTE_Seal_15 As String, _ ByVal Original_nctsTE_ContainerIdentificationNumber As String) As Integer Return Me.Update(nctsTE_NctsId, nctsTE_NumberOfSeals, nctsTE_Seal_1, nctsTE_Seal_2, nctsTE_Seal_3, nctsTE_Seal_4, nctsTE_Seal_5, nctsTE_Seal_6, nctsTE_Seal_7, nctsTE_Seal_8, nctsTE_Seal_9, nctsTE_Seal_10, nctsTE_Seal_11, nctsTE_Seal_12, nctsTE_Seal_13, nctsTE_Seal_14, nctsTE_Seal_15, nctsTE_ContainerIdentificationNumber, nctsTE_GoodsReference, Original_nctsTE_Id, Original_nctsTE_NctsId, Original_nctsTE_NumberOfSeals, Original_nctsTE_Seal_1, Original_nctsTE_Seal_2, Original_nctsTE_Seal_3, Original_nctsTE_Seal_4, Original_nctsTE_Seal_5, Original_nctsTE_Seal_6, Original_nctsTE_Seal_7, Original_nctsTE_Seal_8, Original_nctsTE_Seal_9, Original_nctsTE_Seal_10, Original_nctsTE_Seal_11, Original_nctsTE_Seal_12, Original_nctsTE_Seal_13, Original_nctsTE_Seal_14, Original_nctsTE_Seal_15, Original_nctsTE_ContainerIdentificationNumber, Original_nctsTE_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_StammreferenzenTableAdapter 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 = "tblDakosy_Stammreferenzen" tableMapping.ColumnMappings.Add("dySr_Id", "dySr_Id") tableMapping.ColumnMappings.Add("dySr_Land", "dySr_Land") tableMapping.ColumnMappings.Add("dySr_Verfahren", "dySr_Verfahren") tableMapping.ColumnMappings.Add("dySr_Stammreferenz", "dySr_Stammreferenz") tableMapping.ColumnMappings.Add("dySr_Bezeichnung", "dySr_Bezeichnung") tableMapping.ColumnMappings.Add("dySr_dyId", "dySr_dyId") tableMapping.ColumnMappings.Add("dySr_dy_Mandant", "dySr_dy_Mandant") tableMapping.ColumnMappings.Add("dySr_dy_Niederlassung", "dySr_dy_Niederlassung") tableMapping.ColumnMappings.Add("dySr_dy_Standard", "dySr_dy_Standard") tableMapping.ColumnMappings.Add("dySr_visible", "dySr_visible") tableMapping.ColumnMappings.Add("dyStr_KdNr", "dyStr_KdNr") 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].[tblDakosy_Stammreferenzen] WHERE (([dySr_Id] = @Original_dySr_"& _ "Id) AND ([dySr_Land] = @Original_dySr_Land) AND ([dySr_Verfahren] = @Original_dy"& _ "Sr_Verfahren) AND ([dySr_Stammreferenz] = @Original_dySr_Stammreferenz) AND ([dy"& _ "Sr_Bezeichnung] = @Original_dySr_Bezeichnung) AND ((@IsNull_dySr_dyId = 1 AND [d"& _ "ySr_dyId] IS NULL) OR ([dySr_dyId] = @Original_dySr_dyId)) AND ([dySr_dy_Mandant"& _ "] = @Original_dySr_dy_Mandant) AND ([dySr_dy_Niederlassung] = @Original_dySr_dy_"& _ "Niederlassung) AND ([dySr_dy_Standard] = @Original_dySr_dy_Standard) AND ([dySr_"& _ "visible] = @Original_dySr_visible) AND ((@IsNull_dyStr_KdNr = 1 AND [dyStr_KdNr]"& _ " IS NULL) OR ([dyStr_KdNr] = @Original_dyStr_KdNr)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_Verfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Verfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Stammreferenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySr_dyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dyId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_dyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dyId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_dy_Mandant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_dy_Niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_dy_Standard", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Standard", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_visible", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dyStr_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dyStr_KdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dyStr_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dyStr_KdNr", 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].[tblDakosy_Stammreferenzen] ([dySr_Land], [dySr_Verfahren], [dy"& _ "Sr_Stammreferenz], [dySr_Bezeichnung], [dySr_dyId], [dySr_dy_Mandant], [dySr_dy_"& _ "Niederlassung], [dySr_dy_Standard], [dySr_visible], [dyStr_KdNr]) VALUES (@dySr_"& _ "Land, @dySr_Verfahren, @dySr_Stammreferenz, @dySr_Bezeichnung, @dySr_dyId, @dySr"& _ "_dy_Mandant, @dySr_dy_Niederlassung, @dySr_dy_Standard, @dySr_visible, @dyStr_Kd"& _ "Nr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT dySr_Id, dySr_Land, dySr_Verfahren, dySr_Stammreferenz, dySr_Bezeic"& _ "hnung, dySr_dyId, dySr_dy_Mandant, dySr_dy_Niederlassung, dySr_dy_Standard, dySr"& _ "_visible, dyStr_KdNr FROM tblDakosy_Stammreferenzen WHERE (dySr_Id = SCOPE_IDENT"& _ "ITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_Verfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Verfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Stammreferenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_dyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dyId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_dy_Mandant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_dy_Niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_dy_Standard", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Standard", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_visible", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dyStr_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dyStr_KdNr", 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].[tblDakosy_Stammreferenzen] SET [dySr_Land] = @dySr_Land, [dySr_Verf"& _ "ahren] = @dySr_Verfahren, [dySr_Stammreferenz] = @dySr_Stammreferenz, [dySr_Beze"& _ "ichnung] = @dySr_Bezeichnung, [dySr_dyId] = @dySr_dyId, [dySr_dy_Mandant] = @dyS"& _ "r_dy_Mandant, [dySr_dy_Niederlassung] = @dySr_dy_Niederlassung, [dySr_dy_Standar"& _ "d] = @dySr_dy_Standard, [dySr_visible] = @dySr_visible, [dyStr_KdNr] = @dyStr_Kd"& _ "Nr WHERE (([dySr_Id] = @Original_dySr_Id) AND ([dySr_Land] = @Original_dySr_Land"& _ ") AND ([dySr_Verfahren] = @Original_dySr_Verfahren) AND ([dySr_Stammreferenz] = "& _ "@Original_dySr_Stammreferenz) AND ([dySr_Bezeichnung] = @Original_dySr_Bezeichnu"& _ "ng) AND ((@IsNull_dySr_dyId = 1 AND [dySr_dyId] IS NULL) OR ([dySr_dyId] = @Orig"& _ "inal_dySr_dyId)) AND ([dySr_dy_Mandant] = @Original_dySr_dy_Mandant) AND ([dySr_"& _ "dy_Niederlassung] = @Original_dySr_dy_Niederlassung) AND ([dySr_dy_Standard] = @"& _ "Original_dySr_dy_Standard) AND ([dySr_visible] = @Original_dySr_visible) AND ((@"& _ "IsNull_dyStr_KdNr = 1 AND [dyStr_KdNr] IS NULL) OR ([dyStr_KdNr] = @Original_dyS"& _ "tr_KdNr)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT dySr_Id, dySr_Land, dySr_Verfahren, dySr_Stammreferenz, dySr"& _ "_Bezeichnung, dySr_dyId, dySr_dy_Mandant, dySr_dy_Niederlassung, dySr_dy_Standar"& _ "d, dySr_visible, dyStr_KdNr FROM tblDakosy_Stammreferenzen WHERE (dySr_Id = @dyS"& _ "r_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_Verfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Verfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Stammreferenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_dyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dyId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_dy_Mandant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_dy_Niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_dy_Standard", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Standard", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_visible", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dyStr_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dyStr_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_Verfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Verfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Stammreferenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySr_dyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dyId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_dyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dyId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_dy_Mandant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_dy_Niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_dy_Standard", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_dy_Standard", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySr_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_visible", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dyStr_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dyStr_KdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dyStr_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dyStr_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySr_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "dySr_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 dySr_Id, dySr_Land, dySr_Verfahren, dySr_Stammreferenz, dySr_Bezeichnung, "& _ "dySr_dyId, dySr_dy_Mandant, dySr_dy_Niederlassung, dySr_dy_Standard, dySr_visibl"& _ "e, dyStr_KdNr FROM dbo.tblDakosy_Stammreferenzen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_StammreferenzenDataTable) 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 VERAGDataSet.tblDakosy_StammreferenzenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_StammreferenzenDataTable = New VERAGDataSet.tblDakosy_StammreferenzenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_StammreferenzenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_Stammreferenzen") 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_dySr_Id As Integer, ByVal Original_dySr_Land As String, ByVal Original_dySr_Verfahren As String, ByVal Original_dySr_Stammreferenz As String, ByVal Original_dySr_Bezeichnung As String, ByVal Original_dySr_dyId As Global.System.Nullable(Of Integer), ByVal Original_dySr_dy_Mandant As String, ByVal Original_dySr_dy_Niederlassung As String, ByVal Original_dySr_dy_Standard As Boolean, ByVal Original_dySr_visible As Boolean, ByVal Original_dyStr_KdNr As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_dySr_Id,Integer) If (Original_dySr_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_Land") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_dySr_Land,String) End If If (Original_dySr_Verfahren Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_Verfahren") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_dySr_Verfahren,String) End If If (Original_dySr_Stammreferenz Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_Stammreferenz") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_dySr_Stammreferenz,String) End If If (Original_dySr_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_Bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_dySr_Bezeichnung,String) End If If (Original_dySr_dyId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_dySr_dyId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_dySr_dy_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_dy_Mandant") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_dySr_dy_Mandant,String) End If If (Original_dySr_dy_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_dy_Niederlassung") Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_dySr_dy_Niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_dySr_dy_Standard,Boolean) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_dySr_visible,Boolean) If (Original_dyStr_KdNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_dyStr_KdNr.Value,Integer) 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 dySr_Land As String, ByVal dySr_Verfahren As String, ByVal dySr_Stammreferenz As String, ByVal dySr_Bezeichnung As String, ByVal dySr_dyId As Global.System.Nullable(Of Integer), ByVal dySr_dy_Mandant As String, ByVal dySr_dy_Niederlassung As String, ByVal dySr_dy_Standard As Boolean, ByVal dySr_visible As Boolean, ByVal dyStr_KdNr As Global.System.Nullable(Of Integer)) As Integer If (dySr_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_Land") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(dySr_Land,String) End If If (dySr_Verfahren Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_Verfahren") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(dySr_Verfahren,String) End If If (dySr_Stammreferenz Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_Stammreferenz") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(dySr_Stammreferenz,String) End If If (dySr_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_Bezeichnung") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(dySr_Bezeichnung,String) End If If (dySr_dyId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(dySr_dyId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (dySr_dy_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_dy_Mandant") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(dySr_dy_Mandant,String) End If If (dySr_dy_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_dy_Niederlassung") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(dySr_dy_Niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(dySr_dy_Standard,Boolean) Me.Adapter.InsertCommand.Parameters(8).Value = CType(dySr_visible,Boolean) If (dyStr_KdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(dyStr_KdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).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 dySr_Land As String, _ ByVal dySr_Verfahren As String, _ ByVal dySr_Stammreferenz As String, _ ByVal dySr_Bezeichnung As String, _ ByVal dySr_dyId As Global.System.Nullable(Of Integer), _ ByVal dySr_dy_Mandant As String, _ ByVal dySr_dy_Niederlassung As String, _ ByVal dySr_dy_Standard As Boolean, _ ByVal dySr_visible As Boolean, _ ByVal dyStr_KdNr As Global.System.Nullable(Of Integer), _ ByVal Original_dySr_Id As Integer, _ ByVal Original_dySr_Land As String, _ ByVal Original_dySr_Verfahren As String, _ ByVal Original_dySr_Stammreferenz As String, _ ByVal Original_dySr_Bezeichnung As String, _ ByVal Original_dySr_dyId As Global.System.Nullable(Of Integer), _ ByVal Original_dySr_dy_Mandant As String, _ ByVal Original_dySr_dy_Niederlassung As String, _ ByVal Original_dySr_dy_Standard As Boolean, _ ByVal Original_dySr_visible As Boolean, _ ByVal Original_dyStr_KdNr As Global.System.Nullable(Of Integer), _ ByVal dySr_Id As Integer) As Integer If (dySr_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_Land") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(dySr_Land,String) End If If (dySr_Verfahren Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_Verfahren") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(dySr_Verfahren,String) End If If (dySr_Stammreferenz Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_Stammreferenz") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(dySr_Stammreferenz,String) End If If (dySr_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(dySr_Bezeichnung,String) End If If (dySr_dyId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(dySr_dyId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (dySr_dy_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_dy_Mandant") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(dySr_dy_Mandant,String) End If If (dySr_dy_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("dySr_dy_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(dySr_dy_Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(dySr_dy_Standard,Boolean) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(dySr_visible,Boolean) If (dyStr_KdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(dyStr_KdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_dySr_Id,Integer) If (Original_dySr_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_Land") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_dySr_Land,String) End If If (Original_dySr_Verfahren Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_Verfahren") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_dySr_Verfahren,String) End If If (Original_dySr_Stammreferenz Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_Stammreferenz") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_dySr_Stammreferenz,String) End If If (Original_dySr_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_dySr_Bezeichnung,String) End If If (Original_dySr_dyId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_dySr_dyId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_dySr_dy_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_dy_Mandant") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_dySr_dy_Mandant,String) End If If (Original_dySr_dy_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySr_dy_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_dySr_dy_Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_dySr_dy_Standard,Boolean) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_dySr_visible,Boolean) If (Original_dyStr_KdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_dyStr_KdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(23).Value = CType(dySr_Id,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 dySr_Land As String, _ ByVal dySr_Verfahren As String, _ ByVal dySr_Stammreferenz As String, _ ByVal dySr_Bezeichnung As String, _ ByVal dySr_dyId As Global.System.Nullable(Of Integer), _ ByVal dySr_dy_Mandant As String, _ ByVal dySr_dy_Niederlassung As String, _ ByVal dySr_dy_Standard As Boolean, _ ByVal dySr_visible As Boolean, _ ByVal dyStr_KdNr As Global.System.Nullable(Of Integer), _ ByVal Original_dySr_Id As Integer, _ ByVal Original_dySr_Land As String, _ ByVal Original_dySr_Verfahren As String, _ ByVal Original_dySr_Stammreferenz As String, _ ByVal Original_dySr_Bezeichnung As String, _ ByVal Original_dySr_dyId As Global.System.Nullable(Of Integer), _ ByVal Original_dySr_dy_Mandant As String, _ ByVal Original_dySr_dy_Niederlassung As String, _ ByVal Original_dySr_dy_Standard As Boolean, _ ByVal Original_dySr_visible As Boolean, _ ByVal Original_dyStr_KdNr As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(dySr_Land, dySr_Verfahren, dySr_Stammreferenz, dySr_Bezeichnung, dySr_dyId, dySr_dy_Mandant, dySr_dy_Niederlassung, dySr_dy_Standard, dySr_visible, dyStr_KdNr, Original_dySr_Id, Original_dySr_Land, Original_dySr_Verfahren, Original_dySr_Stammreferenz, Original_dySr_Bezeichnung, Original_dySr_dyId, Original_dySr_dy_Mandant, Original_dySr_dy_Niederlassung, Original_dySr_dy_Standard, Original_dySr_visible, Original_dyStr_KdNr, Original_dySr_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_StatusmeldungenTableAdapter 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 = "tblDakosy_Statusmeldungen" tableMapping.ColumnMappings.Add("dySt_id", "dySt_id") tableMapping.ColumnMappings.Add("dySt_dyId", "dySt_dyId") tableMapping.ColumnMappings.Add("dySt_dyArt", "dySt_dyArt") tableMapping.ColumnMappings.Add("dySt_BezugsNr", "dySt_BezugsNr") tableMapping.ColumnMappings.Add("dySt_status", "dySt_status") tableMapping.ColumnMappings.Add("dySt_artMitteilung", "dySt_artMitteilung") tableMapping.ColumnMappings.Add("dySt_ergCode", "dySt_ergCode") tableMapping.ColumnMappings.Add("dySt_ergMitteilung", "dySt_ergMitteilung") tableMapping.ColumnMappings.Add("dySt_ergZeitpunkt", "dySt_ergZeitpunkt") tableMapping.ColumnMappings.Add("dySt_DakosyTransaktionsID", "dySt_DakosyTransaktionsID") tableMapping.ColumnMappings.Add("dySt_DakosyTransaktionsDatum", "dySt_DakosyTransaktionsDatum") tableMapping.ColumnMappings.Add("dySt_ts", "dySt_ts") tableMapping.ColumnMappings.Add("dySt_ergDetails", "dySt_ergDetails") tableMapping.ColumnMappings.Add("dySt_ergZoellner", "dySt_ergZoellner") tableMapping.ColumnMappings.Add("dySt_pfad", "dySt_pfad") 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].[tblDakosy_Statusmeldungen] WHERE (([dySt_id] = @Original_dySt_"& _ "id) AND ([dySt_dyId] = @Original_dySt_dyId) AND ([dySt_dyArt] = @Original_dySt_d"& _ "yArt) AND ([dySt_BezugsNr] = @Original_dySt_BezugsNr) AND ([dySt_status] = @Orig"& _ "inal_dySt_status) AND ([dySt_artMitteilung] = @Original_dySt_artMitteilung) AND "& _ "([dySt_ergCode] = @Original_dySt_ergCode) AND ([dySt_ergMitteilung] = @Original_"& _ "dySt_ergMitteilung) AND ((@IsNull_dySt_ergZeitpunkt = 1 AND [dySt_ergZeitpunkt] "& _ "IS NULL) OR ([dySt_ergZeitpunkt] = @Original_dySt_ergZeitpunkt)) AND ((@IsNull_d"& _ "ySt_DakosyTransaktionsID = 1 AND [dySt_DakosyTransaktionsID] IS NULL) OR ([dySt_"& _ "DakosyTransaktionsID] = @Original_dySt_DakosyTransaktionsID)) AND ((@IsNull_dySt"& _ "_DakosyTransaktionsDatum = 1 AND [dySt_DakosyTransaktionsDatum] IS NULL) OR ([dy"& _ "St_DakosyTransaktionsDatum] = @Original_dySt_DakosyTransaktionsDatum)) AND ([dyS"& _ "t_ts] = @Original_dySt_ts) AND ((@IsNull_dySt_ergZoellner = 1 AND [dySt_ergZoell"& _ "ner] IS NULL) OR ([dySt_ergZoellner] = @Original_dySt_ergZoellner)) AND ((@IsNul"& _ "l_dySt_pfad = 1 AND [dySt_pfad] IS NULL) OR ([dySt_pfad] = @Original_dySt_pfad))"& _ ")" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_dyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_dyId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_dyArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_dyArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_BezugsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_artMitteilung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_artMitteilung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_ergCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_ergMitteilung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergMitteilung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_ergZeitpunkt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZeitpunkt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_ergZeitpunkt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZeitpunkt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_DakosyTransaktionsID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_DakosyTransaktionsID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_DakosyTransaktionsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_DakosyTransaktionsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_ts", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_ergZoellner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZoellner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_ergZoellner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZoellner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_pfad", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", 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].[tblDakosy_Statusmeldungen] ([dySt_dyId], [dySt_dyArt], [dySt_B"& _ "ezugsNr], [dySt_status], [dySt_artMitteilung], [dySt_ergCode], [dySt_ergMitteilu"& _ "ng], [dySt_ergZeitpunkt], [dySt_DakosyTransaktionsID], [dySt_DakosyTransaktionsD"& _ "atum], [dySt_ts], [dySt_ergDetails], [dySt_ergZoellner], [dySt_pfad]) VALUES (@d"& _ "ySt_dyId, @dySt_dyArt, @dySt_BezugsNr, @dySt_status, @dySt_artMitteilung, @dySt_"& _ "ergCode, @dySt_ergMitteilung, @dySt_ergZeitpunkt, @dySt_DakosyTransaktionsID, @d"& _ "ySt_DakosyTransaktionsDatum, @dySt_ts, @dySt_ergDetails, @dySt_ergZoellner, @dyS"& _ "t_pfad);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT dySt_id, dySt_dyId, dySt_dyArt, dySt_BezugsNr, dySt_status, dyS"& _ "t_artMitteilung, dySt_ergCode, dySt_ergMitteilung, dySt_ergZeitpunkt, dySt_Dakos"& _ "yTransaktionsID, dySt_DakosyTransaktionsDatum, dySt_ts, dySt_ergDetails, dySt_er"& _ "gZoellner, dySt_pfad FROM tblDakosy_Statusmeldungen WHERE (dySt_id = SCOPE_IDENT"& _ "ITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_dyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_dyId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_dyArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_dyArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_artMitteilung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_artMitteilung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ergCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ergMitteilung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergMitteilung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ergZeitpunkt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZeitpunkt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_DakosyTransaktionsID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_DakosyTransaktionsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ts", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ts", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ergDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ergZoellner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZoellner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", 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].[tblDakosy_Statusmeldungen] SET [dySt_dyId] = @dySt_dyId, [dySt_dyAr"& _ "t] = @dySt_dyArt, [dySt_BezugsNr] = @dySt_BezugsNr, [dySt_status] = @dySt_status"& _ ", [dySt_artMitteilung] = @dySt_artMitteilung, [dySt_ergCode] = @dySt_ergCode, [d"& _ "ySt_ergMitteilung] = @dySt_ergMitteilung, [dySt_ergZeitpunkt] = @dySt_ergZeitpun"& _ "kt, [dySt_DakosyTransaktionsID] = @dySt_DakosyTransaktionsID, [dySt_DakosyTransa"& _ "ktionsDatum] = @dySt_DakosyTransaktionsDatum, [dySt_ts] = @dySt_ts, [dySt_ergDet"& _ "ails] = @dySt_ergDetails, [dySt_ergZoellner] = @dySt_ergZoellner, [dySt_pfad] = "& _ "@dySt_pfad WHERE (([dySt_id] = @Original_dySt_id) AND ([dySt_dyId] = @Original_d"& _ "ySt_dyId) AND ([dySt_dyArt] = @Original_dySt_dyArt) AND ([dySt_BezugsNr] = @Orig"& _ "inal_dySt_BezugsNr) AND ([dySt_status] = @Original_dySt_status) AND ([dySt_artMi"& _ "tteilung] = @Original_dySt_artMitteilung) AND ([dySt_ergCode] = @Original_dySt_e"& _ "rgCode) AND ([dySt_ergMitteilung] = @Original_dySt_ergMitteilung) AND ((@IsNull_"& _ "dySt_ergZeitpunkt = 1 AND [dySt_ergZeitpunkt] IS NULL) OR ([dySt_ergZeitpunkt] ="& _ " @Original_dySt_ergZeitpunkt)) AND ((@IsNull_dySt_DakosyTransaktionsID = 1 AND ["& _ "dySt_DakosyTransaktionsID] IS NULL) OR ([dySt_DakosyTransaktionsID] = @Original_"& _ "dySt_DakosyTransaktionsID)) AND ((@IsNull_dySt_DakosyTransaktionsDatum = 1 AND ["& _ "dySt_DakosyTransaktionsDatum] IS NULL) OR ([dySt_DakosyTransaktionsDatum] = @Ori"& _ "ginal_dySt_DakosyTransaktionsDatum)) AND ([dySt_ts] = @Original_dySt_ts) AND ((@"& _ "IsNull_dySt_ergZoellner = 1 AND [dySt_ergZoellner] IS NULL) OR ([dySt_ergZoellne"& _ "r] = @Original_dySt_ergZoellner)) AND ((@IsNull_dySt_pfad = 1 AND [dySt_pfad] IS"& _ " NULL) OR ([dySt_pfad] = @Original_dySt_pfad)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT dySt_id, dySt_dyId, dyS"& _ "t_dyArt, dySt_BezugsNr, dySt_status, dySt_artMitteilung, dySt_ergCode, dySt_ergM"& _ "itteilung, dySt_ergZeitpunkt, dySt_DakosyTransaktionsID, dySt_DakosyTransaktions"& _ "Datum, dySt_ts, dySt_ergDetails, dySt_ergZoellner, dySt_pfad FROM tblDakosy_Stat"& _ "usmeldungen WHERE (dySt_id = @dySt_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_dyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_dyId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_dyArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_dyArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_artMitteilung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_artMitteilung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ergCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ergMitteilung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergMitteilung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ergZeitpunkt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZeitpunkt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_DakosyTransaktionsID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_DakosyTransaktionsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ts", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ts", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ergDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_ergZoellner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZoellner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_dyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_dyId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_dyArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_dyArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_BezugsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_artMitteilung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_artMitteilung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_ergCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_ergMitteilung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergMitteilung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_ergZeitpunkt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZeitpunkt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_ergZeitpunkt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZeitpunkt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_DakosyTransaktionsID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_DakosyTransaktionsID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_DakosyTransaktionsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_DakosyTransaktionsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_DakosyTransaktionsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_ts", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_ergZoellner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZoellner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_ergZoellner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_ergZoellner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_pfad", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 dySt_id, dySt_dyId, dySt_dyArt, dySt_BezugsNr, dySt_status, dySt_artMittei"& _ "lung, dySt_ergCode, dySt_ergMitteilung, dySt_ergZeitpunkt, dySt_DakosyTransaktio"& _ "nsID, dySt_DakosyTransaktionsDatum, dySt_ts, dySt_ergDetails, dySt_ergZoellner, "& _ "dySt_pfad FROM dbo.tblDakosy_Statusmeldungen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_StatusmeldungenDataTable) 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 VERAGDataSet.tblDakosy_StatusmeldungenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_StatusmeldungenDataTable = New VERAGDataSet.tblDakosy_StatusmeldungenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_StatusmeldungenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_Statusmeldungen") 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_dySt_id As Integer, ByVal Original_dySt_dyId As Integer, ByVal Original_dySt_dyArt As String, ByVal Original_dySt_BezugsNr As String, ByVal Original_dySt_status As Integer, ByVal Original_dySt_artMitteilung As String, ByVal Original_dySt_ergCode As String, ByVal Original_dySt_ergMitteilung As String, ByVal Original_dySt_ergZeitpunkt As Global.System.Nullable(Of Date), ByVal Original_dySt_DakosyTransaktionsID As String, ByVal Original_dySt_DakosyTransaktionsDatum As Global.System.Nullable(Of Date), ByVal Original_dySt_ts As Date, ByVal Original_dySt_ergZoellner As String, ByVal Original_dySt_pfad As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_dySt_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_dySt_dyId,Integer) If (Original_dySt_dyArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySt_dyArt") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_dySt_dyArt,String) End If If (Original_dySt_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySt_BezugsNr") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_dySt_BezugsNr,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_dySt_status,Integer) If (Original_dySt_artMitteilung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySt_artMitteilung") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_dySt_artMitteilung,String) End If If (Original_dySt_ergCode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySt_ergCode") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_dySt_ergCode,String) End If If (Original_dySt_ergMitteilung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySt_ergMitteilung") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_dySt_ergMitteilung,String) End If If (Original_dySt_ergZeitpunkt.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_dySt_ergZeitpunkt.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_dySt_DakosyTransaktionsID 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_dySt_DakosyTransaktionsID,String) End If If (Original_dySt_DakosyTransaktionsDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_dySt_DakosyTransaktionsDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_dySt_ts,Date) If (Original_dySt_ergZoellner Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_dySt_ergZoellner,String) End If If (Original_dySt_pfad Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_dySt_pfad,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 dySt_dyId As Integer, ByVal dySt_dyArt As String, ByVal dySt_BezugsNr As String, ByVal dySt_status As Integer, ByVal dySt_artMitteilung As String, ByVal dySt_ergCode As String, ByVal dySt_ergMitteilung As String, ByVal dySt_ergZeitpunkt As Global.System.Nullable(Of Date), ByVal dySt_DakosyTransaktionsID As String, ByVal dySt_DakosyTransaktionsDatum As Global.System.Nullable(Of Date), ByVal dySt_ts As Date, ByVal dySt_ergDetails As String, ByVal dySt_ergZoellner As String, ByVal dySt_pfad As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(dySt_dyId,Integer) If (dySt_dyArt Is Nothing) Then Throw New Global.System.ArgumentNullException("dySt_dyArt") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(dySt_dyArt,String) End If If (dySt_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("dySt_BezugsNr") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(dySt_BezugsNr,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(dySt_status,Integer) If (dySt_artMitteilung Is Nothing) Then Throw New Global.System.ArgumentNullException("dySt_artMitteilung") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(dySt_artMitteilung,String) End If If (dySt_ergCode Is Nothing) Then Throw New Global.System.ArgumentNullException("dySt_ergCode") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(dySt_ergCode,String) End If If (dySt_ergMitteilung Is Nothing) Then Throw New Global.System.ArgumentNullException("dySt_ergMitteilung") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(dySt_ergMitteilung,String) End If If (dySt_ergZeitpunkt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(dySt_ergZeitpunkt.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (dySt_DakosyTransaktionsID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(dySt_DakosyTransaktionsID,String) End If If (dySt_DakosyTransaktionsDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(dySt_DakosyTransaktionsDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(dySt_ts,Date) If (dySt_ergDetails Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(dySt_ergDetails,String) End If If (dySt_ergZoellner Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(dySt_ergZoellner,String) End If If (dySt_pfad Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(dySt_pfad,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 dySt_dyId As Integer, _ ByVal dySt_dyArt As String, _ ByVal dySt_BezugsNr As String, _ ByVal dySt_status As Integer, _ ByVal dySt_artMitteilung As String, _ ByVal dySt_ergCode As String, _ ByVal dySt_ergMitteilung As String, _ ByVal dySt_ergZeitpunkt As Global.System.Nullable(Of Date), _ ByVal dySt_DakosyTransaktionsID As String, _ ByVal dySt_DakosyTransaktionsDatum As Global.System.Nullable(Of Date), _ ByVal dySt_ts As Date, _ ByVal dySt_ergDetails As String, _ ByVal dySt_ergZoellner As String, _ ByVal dySt_pfad As String, _ ByVal Original_dySt_id As Integer, _ ByVal Original_dySt_dyId As Integer, _ ByVal Original_dySt_dyArt As String, _ ByVal Original_dySt_BezugsNr As String, _ ByVal Original_dySt_status As Integer, _ ByVal Original_dySt_artMitteilung As String, _ ByVal Original_dySt_ergCode As String, _ ByVal Original_dySt_ergMitteilung As String, _ ByVal Original_dySt_ergZeitpunkt As Global.System.Nullable(Of Date), _ ByVal Original_dySt_DakosyTransaktionsID As String, _ ByVal Original_dySt_DakosyTransaktionsDatum As Global.System.Nullable(Of Date), _ ByVal Original_dySt_ts As Date, _ ByVal Original_dySt_ergZoellner As String, _ ByVal Original_dySt_pfad As String, _ ByVal dySt_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(dySt_dyId,Integer) If (dySt_dyArt Is Nothing) Then Throw New Global.System.ArgumentNullException("dySt_dyArt") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(dySt_dyArt,String) End If If (dySt_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("dySt_BezugsNr") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(dySt_BezugsNr,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(dySt_status,Integer) If (dySt_artMitteilung Is Nothing) Then Throw New Global.System.ArgumentNullException("dySt_artMitteilung") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(dySt_artMitteilung,String) End If If (dySt_ergCode Is Nothing) Then Throw New Global.System.ArgumentNullException("dySt_ergCode") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(dySt_ergCode,String) End If If (dySt_ergMitteilung Is Nothing) Then Throw New Global.System.ArgumentNullException("dySt_ergMitteilung") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(dySt_ergMitteilung,String) End If If (dySt_ergZeitpunkt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(dySt_ergZeitpunkt.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (dySt_DakosyTransaktionsID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(dySt_DakosyTransaktionsID,String) End If If (dySt_DakosyTransaktionsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(dySt_DakosyTransaktionsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(dySt_ts,Date) If (dySt_ergDetails Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(dySt_ergDetails,String) End If If (dySt_ergZoellner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(dySt_ergZoellner,String) End If If (dySt_pfad Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(dySt_pfad,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_dySt_id,Integer) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_dySt_dyId,Integer) If (Original_dySt_dyArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySt_dyArt") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_dySt_dyArt,String) End If If (Original_dySt_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySt_BezugsNr") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_dySt_BezugsNr,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_dySt_status,Integer) If (Original_dySt_artMitteilung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySt_artMitteilung") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_dySt_artMitteilung,String) End If If (Original_dySt_ergCode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySt_ergCode") Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_dySt_ergCode,String) End If If (Original_dySt_ergMitteilung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dySt_ergMitteilung") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_dySt_ergMitteilung,String) End If If (Original_dySt_ergZeitpunkt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_dySt_ergZeitpunkt.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_dySt_DakosyTransaktionsID 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_dySt_DakosyTransaktionsID,String) End If If (Original_dySt_DakosyTransaktionsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_dySt_DakosyTransaktionsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_dySt_ts,Date) If (Original_dySt_ergZoellner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_dySt_ergZoellner,String) End If If (Original_dySt_pfad 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_dySt_pfad,String) End If Me.Adapter.UpdateCommand.Parameters(33).Value = CType(dySt_id,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 dySt_dyId As Integer, _ ByVal dySt_dyArt As String, _ ByVal dySt_BezugsNr As String, _ ByVal dySt_status As Integer, _ ByVal dySt_artMitteilung As String, _ ByVal dySt_ergCode As String, _ ByVal dySt_ergMitteilung As String, _ ByVal dySt_ergZeitpunkt As Global.System.Nullable(Of Date), _ ByVal dySt_DakosyTransaktionsID As String, _ ByVal dySt_DakosyTransaktionsDatum As Global.System.Nullable(Of Date), _ ByVal dySt_ts As Date, _ ByVal dySt_ergDetails As String, _ ByVal dySt_ergZoellner As String, _ ByVal dySt_pfad As String, _ ByVal Original_dySt_id As Integer, _ ByVal Original_dySt_dyId As Integer, _ ByVal Original_dySt_dyArt As String, _ ByVal Original_dySt_BezugsNr As String, _ ByVal Original_dySt_status As Integer, _ ByVal Original_dySt_artMitteilung As String, _ ByVal Original_dySt_ergCode As String, _ ByVal Original_dySt_ergMitteilung As String, _ ByVal Original_dySt_ergZeitpunkt As Global.System.Nullable(Of Date), _ ByVal Original_dySt_DakosyTransaktionsID As String, _ ByVal Original_dySt_DakosyTransaktionsDatum As Global.System.Nullable(Of Date), _ ByVal Original_dySt_ts As Date, _ ByVal Original_dySt_ergZoellner As String, _ ByVal Original_dySt_pfad As String) As Integer Return Me.Update(dySt_dyId, dySt_dyArt, dySt_BezugsNr, dySt_status, dySt_artMitteilung, dySt_ergCode, dySt_ergMitteilung, dySt_ergZeitpunkt, dySt_DakosyTransaktionsID, dySt_DakosyTransaktionsDatum, dySt_ts, dySt_ergDetails, dySt_ergZoellner, dySt_pfad, Original_dySt_id, Original_dySt_dyId, Original_dySt_dyArt, Original_dySt_BezugsNr, Original_dySt_status, Original_dySt_artMitteilung, Original_dySt_ergCode, Original_dySt_ergMitteilung, Original_dySt_ergZeitpunkt, Original_dySt_DakosyTransaktionsID, Original_dySt_DakosyTransaktionsDatum, Original_dySt_ts, Original_dySt_ergZoellner, Original_dySt_pfad, Original_dySt_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_ZollanmeldungenTableAdapter 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 = "tblDakosy_Zollanmeldungen" tableMapping.ColumnMappings.Add("dy_Id", "dy_Id") tableMapping.ColumnMappings.Add("dy_ART", "dy_ART") tableMapping.ColumnMappings.Add("dy_BezugsNr", "dy_BezugsNr") tableMapping.ColumnMappings.Add("dy_Status", "dy_Status") tableMapping.ColumnMappings.Add("dy_Status_KEWILL_Equivalent", "dy_Status_KEWILL_Equivalent") tableMapping.ColumnMappings.Add("dy_AvisoId", "dy_AvisoId") tableMapping.ColumnMappings.Add("dy_SendungsId", "dy_SendungsId") tableMapping.ColumnMappings.Add("dy_Erstellung", "dy_Erstellung") tableMapping.ColumnMappings.Add("dy_Erstellung_SB", "dy_Erstellung_SB") tableMapping.ColumnMappings.Add("dy_LetzteBearbeitung", "dy_LetzteBearbeitung") tableMapping.ColumnMappings.Add("dy_LetzteBearbeitung_SB", "dy_LetzteBearbeitung_SB") tableMapping.ColumnMappings.Add("dy_Steuerbescheid_dsId", "dy_Steuerbescheid_dsId") tableMapping.ColumnMappings.Add("dy_VBD_dsId", "dy_VBD_dsId") tableMapping.ColumnMappings.Add("dy_ABD_dsId", "dy_ABD_dsId") tableMapping.ColumnMappings.Add("dy_AVM_dsId", "dy_AVM_dsId") tableMapping.ColumnMappings.Add("dySt_pfad", "dySt_pfad") 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].[tblDakosy_Zollanmeldungen] WHERE (([dy_Id] = @Original_dy_Id) "& _ "AND ([dy_ART] = @Original_dy_ART) AND ([dy_BezugsNr] = @Original_dy_BezugsNr) AN"& _ "D ([dy_Status] = @Original_dy_Status) AND ([dy_Status_KEWILL_Equivalent] = @Orig"& _ "inal_dy_Status_KEWILL_Equivalent) AND ((@IsNull_dy_AvisoId = 1 AND [dy_AvisoId] "& _ "IS NULL) OR ([dy_AvisoId] = @Original_dy_AvisoId)) AND ((@IsNull_dy_SendungsId ="& _ " 1 AND [dy_SendungsId] IS NULL) OR ([dy_SendungsId] = @Original_dy_SendungsId)) "& _ "AND ([dy_Erstellung] = @Original_dy_Erstellung) AND ((@IsNull_dy_Erstellung_SB ="& _ " 1 AND [dy_Erstellung_SB] IS NULL) OR ([dy_Erstellung_SB] = @Original_dy_Erstell"& _ "ung_SB)) AND ([dy_LetzteBearbeitung] = @Original_dy_LetzteBearbeitung) AND ((@Is"& _ "Null_dy_LetzteBearbeitung_SB = 1 AND [dy_LetzteBearbeitung_SB] IS NULL) OR ([dy_"& _ "LetzteBearbeitung_SB] = @Original_dy_LetzteBearbeitung_SB)) AND ((@IsNull_dy_Ste"& _ "uerbescheid_dsId = 1 AND [dy_Steuerbescheid_dsId] IS NULL) OR ([dy_Steuerbeschei"& _ "d_dsId] = @Original_dy_Steuerbescheid_dsId)) AND ((@IsNull_dy_VBD_dsId = 1 AND ["& _ "dy_VBD_dsId] IS NULL) OR ([dy_VBD_dsId] = @Original_dy_VBD_dsId)) AND ((@IsNull_"& _ "dy_ABD_dsId = 1 AND [dy_ABD_dsId] IS NULL) OR ([dy_ABD_dsId] = @Original_dy_ABD_"& _ "dsId)) AND ((@IsNull_dy_AVM_dsId = 1 AND [dy_AVM_dsId] IS NULL) OR ([dy_AVM_dsId"& _ "] = @Original_dy_AVM_dsId)) AND ((@IsNull_dySt_pfad = 1 AND [dySt_pfad] IS NULL)"& _ " OR ([dySt_pfad] = @Original_dySt_pfad)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_ART", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_ART", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_BezugsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_SendungsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_SendungsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_VBD_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_VBD_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_ABD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_ABD_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_ABD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_ABD_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_AVM_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AVM_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_AVM_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AVM_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_pfad", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", 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].[tblDakosy_Zollanmeldungen] ([dy_ART], [dy_BezugsNr], [dy_Statu"& _ "s], [dy_Status_KEWILL_Equivalent], [dy_AvisoId], [dy_SendungsId], [dy_Erstellung"& _ "], [dy_Erstellung_SB], [dy_LetzteBearbeitung], [dy_LetzteBearbeitung_SB], [dy_St"& _ "euerbescheid_dsId], [dy_VBD_dsId], [dy_ABD_dsId], [dy_AVM_dsId], [dySt_pfad]) VA"& _ "LUES (@dy_ART, @dy_BezugsNr, @dy_Status, @dy_Status_KEWILL_Equivalent, @dy_Aviso"& _ "Id, @dy_SendungsId, @dy_Erstellung, @dy_Erstellung_SB, @dy_LetzteBearbeitung, @d"& _ "y_LetzteBearbeitung_SB, @dy_Steuerbescheid_dsId, @dy_VBD_dsId, @dy_ABD_dsId, @dy"& _ "_AVM_dsId, @dySt_pfad);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT dy_Id, dy_ART, dy_BezugsNr, dy_Status, dy_Status"& _ "_KEWILL_Equivalent, dy_AvisoId, dy_SendungsId, dy_Erstellung, dy_Erstellung_SB, "& _ "dy_LetzteBearbeitung, dy_LetzteBearbeitung_SB, dy_Steuerbescheid_dsId, dy_VBD_ds"& _ "Id, dy_ABD_dsId, dy_AVM_dsId, dySt_pfad FROM tblDakosy_Zollanmeldungen WHERE (dy"& _ "_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_ART", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_ART", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_SendungsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_VBD_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_ABD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_ABD_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_AVM_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AVM_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", 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].[tblDakosy_Zollanmeldungen] SET [dy_ART] = @dy_ART, [dy_BezugsNr] = "& _ "@dy_BezugsNr, [dy_Status] = @dy_Status, [dy_Status_KEWILL_Equivalent] = @dy_Stat"& _ "us_KEWILL_Equivalent, [dy_AvisoId] = @dy_AvisoId, [dy_SendungsId] = @dy_Sendungs"& _ "Id, [dy_Erstellung] = @dy_Erstellung, [dy_Erstellung_SB] = @dy_Erstellung_SB, [d"& _ "y_LetzteBearbeitung] = @dy_LetzteBearbeitung, [dy_LetzteBearbeitung_SB] = @dy_Le"& _ "tzteBearbeitung_SB, [dy_Steuerbescheid_dsId] = @dy_Steuerbescheid_dsId, [dy_VBD_"& _ "dsId] = @dy_VBD_dsId, [dy_ABD_dsId] = @dy_ABD_dsId, [dy_AVM_dsId] = @dy_AVM_dsId"& _ ", [dySt_pfad] = @dySt_pfad WHERE (([dy_Id] = @Original_dy_Id) AND ([dy_ART] = @O"& _ "riginal_dy_ART) AND ([dy_BezugsNr] = @Original_dy_BezugsNr) AND ([dy_Status] = @"& _ "Original_dy_Status) AND ([dy_Status_KEWILL_Equivalent] = @Original_dy_Status_KEW"& _ "ILL_Equivalent) AND ((@IsNull_dy_AvisoId = 1 AND [dy_AvisoId] IS NULL) OR ([dy_A"& _ "visoId] = @Original_dy_AvisoId)) AND ((@IsNull_dy_SendungsId = 1 AND [dy_Sendung"& _ "sId] IS NULL) OR ([dy_SendungsId] = @Original_dy_SendungsId)) AND ([dy_Erstellun"& _ "g] = @Original_dy_Erstellung) AND ((@IsNull_dy_Erstellung_SB = 1 AND [dy_Erstell"& _ "ung_SB] IS NULL) OR ([dy_Erstellung_SB] = @Original_dy_Erstellung_SB)) AND ([dy_"& _ "LetzteBearbeitung] = @Original_dy_LetzteBearbeitung) AND ((@IsNull_dy_LetzteBear"& _ "beitung_SB = 1 AND [dy_LetzteBearbeitung_SB] IS NULL) OR ([dy_LetzteBearbeitung_"& _ "SB] = @Original_dy_LetzteBearbeitung_SB)) AND ((@IsNull_dy_Steuerbescheid_dsId ="& _ " 1 AND [dy_Steuerbescheid_dsId] IS NULL) OR ([dy_Steuerbescheid_dsId] = @Origina"& _ "l_dy_Steuerbescheid_dsId)) AND ((@IsNull_dy_VBD_dsId = 1 AND [dy_VBD_dsId] IS NU"& _ "LL) OR ([dy_VBD_dsId] = @Original_dy_VBD_dsId)) AND ((@IsNull_dy_ABD_dsId = 1 AN"& _ "D [dy_ABD_dsId] IS NULL) OR ([dy_ABD_dsId] = @Original_dy_ABD_dsId)) AND ((@IsNu"& _ "ll_dy_AVM_dsId = 1 AND [dy_AVM_dsId] IS NULL) OR ([dy_AVM_dsId] = @Original_dy_A"& _ "VM_dsId)) AND ((@IsNull_dySt_pfad = 1 AND [dySt_pfad] IS NULL) OR ([dySt_pfad] ="& _ " @Original_dySt_pfad)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT dy_Id, dy_ART, dy_BezugsNr, dy_Status, dy_Statu"& _ "s_KEWILL_Equivalent, dy_AvisoId, dy_SendungsId, dy_Erstellung, dy_Erstellung_SB,"& _ " dy_LetzteBearbeitung, dy_LetzteBearbeitung_SB, dy_Steuerbescheid_dsId, dy_VBD_d"& _ "sId, dy_ABD_dsId, dy_AVM_dsId, dySt_pfad FROM tblDakosy_Zollanmeldungen WHERE (d"& _ "y_Id = @dy_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_ART", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_ART", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_SendungsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_VBD_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_ABD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_ABD_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_AVM_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AVM_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dySt_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_ART", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_ART", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_BezugsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_SendungsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_SendungsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_VBD_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_VBD_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_ABD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_ABD_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_ABD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_ABD_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dy_AVM_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AVM_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dy_AVM_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_AVM_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dySt_pfad", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dySt_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dySt_pfad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dy_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "dy_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 dy_Id, dy_ART, dy_BezugsNr, dy_Status, dy_Status_KEWILL_Equivalent, dy_Avi"& _ "soId, dy_SendungsId, dy_Erstellung, dy_Erstellung_SB, dy_LetzteBearbeitung, dy_L"& _ "etzteBearbeitung_SB, dy_Steuerbescheid_dsId, dy_VBD_dsId, dy_ABD_dsId, dy_AVM_ds"& _ "Id, dySt_pfad FROM dbo.tblDakosy_Zollanmeldungen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_ZollanmeldungenDataTable) 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 VERAGDataSet.tblDakosy_ZollanmeldungenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_ZollanmeldungenDataTable = New VERAGDataSet.tblDakosy_ZollanmeldungenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_ZollanmeldungenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_Zollanmeldungen") 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_dy_Id As Integer, _ ByVal Original_dy_ART As String, _ ByVal Original_dy_BezugsNr As String, _ ByVal Original_dy_Status As Integer, _ ByVal Original_dy_Status_KEWILL_Equivalent As Integer, _ ByVal Original_dy_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_Erstellung As Date, _ ByVal Original_dy_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_dy_LetzteBearbeitung As Date, _ ByVal Original_dy_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_dy_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_ABD_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_AVM_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dySt_pfad As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_dy_Id,Integer) If (Original_dy_ART Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dy_ART") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_dy_ART,String) End If If (Original_dy_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dy_BezugsNr") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_dy_BezugsNr,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_dy_Status,Integer) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_dy_Status_KEWILL_Equivalent,Integer) If (Original_dy_AvisoId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_dy_AvisoId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_dy_SendungsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_dy_SendungsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_dy_Erstellung,Date) If (Original_dy_Erstellung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_dy_Erstellung_SB.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_dy_LetzteBearbeitung,Date) If (Original_dy_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_dy_LetzteBearbeitung_SB.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_dy_Steuerbescheid_dsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_dy_Steuerbescheid_dsId.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_dy_VBD_dsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_dy_VBD_dsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Original_dy_ABD_dsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_dy_ABD_dsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_dy_AVM_dsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_dy_AVM_dsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Original_dySt_pfad Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_dySt_pfad,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 dy_ART As String, ByVal dy_BezugsNr As String, ByVal dy_Status As Integer, ByVal dy_Status_KEWILL_Equivalent As Integer, ByVal dy_AvisoId As Global.System.Nullable(Of Integer), ByVal dy_SendungsId As Global.System.Nullable(Of Integer), ByVal dy_Erstellung As Date, ByVal dy_Erstellung_SB As Global.System.Nullable(Of Integer), ByVal dy_LetzteBearbeitung As Date, ByVal dy_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), ByVal dy_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), ByVal dy_VBD_dsId As Global.System.Nullable(Of Integer), ByVal dy_ABD_dsId As Global.System.Nullable(Of Integer), ByVal dy_AVM_dsId As Global.System.Nullable(Of Integer), ByVal dySt_pfad As String) As Integer If (dy_ART Is Nothing) Then Throw New Global.System.ArgumentNullException("dy_ART") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(dy_ART,String) End If If (dy_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("dy_BezugsNr") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(dy_BezugsNr,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(dy_Status,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(dy_Status_KEWILL_Equivalent,Integer) If (dy_AvisoId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(dy_AvisoId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (dy_SendungsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(dy_SendungsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(dy_Erstellung,Date) If (dy_Erstellung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(dy_Erstellung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(dy_LetzteBearbeitung,Date) If (dy_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(dy_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (dy_Steuerbescheid_dsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(dy_Steuerbescheid_dsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (dy_VBD_dsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(dy_VBD_dsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (dy_ABD_dsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(dy_ABD_dsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (dy_AVM_dsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(dy_AVM_dsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (dySt_pfad Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(dySt_pfad,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 dy_ART As String, _ ByVal dy_BezugsNr As String, _ ByVal dy_Status As Integer, _ ByVal dy_Status_KEWILL_Equivalent As Integer, _ ByVal dy_AvisoId As Global.System.Nullable(Of Integer), _ ByVal dy_SendungsId As Global.System.Nullable(Of Integer), _ ByVal dy_Erstellung As Date, _ ByVal dy_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal dy_LetzteBearbeitung As Date, _ ByVal dy_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal dy_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal dy_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal dy_ABD_dsId As Global.System.Nullable(Of Integer), _ ByVal dy_AVM_dsId As Global.System.Nullable(Of Integer), _ ByVal dySt_pfad As String, _ ByVal Original_dy_Id As Integer, _ ByVal Original_dy_ART As String, _ ByVal Original_dy_BezugsNr As String, _ ByVal Original_dy_Status As Integer, _ ByVal Original_dy_Status_KEWILL_Equivalent As Integer, _ ByVal Original_dy_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_Erstellung As Date, _ ByVal Original_dy_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_dy_LetzteBearbeitung As Date, _ ByVal Original_dy_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_dy_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_ABD_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_AVM_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dySt_pfad As String, _ ByVal dy_Id As Integer) As Integer If (dy_ART Is Nothing) Then Throw New Global.System.ArgumentNullException("dy_ART") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(dy_ART,String) End If If (dy_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("dy_BezugsNr") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(dy_BezugsNr,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(dy_Status,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(dy_Status_KEWILL_Equivalent,Integer) If (dy_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(dy_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (dy_SendungsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(dy_SendungsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(dy_Erstellung,Date) If (dy_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(dy_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(dy_LetzteBearbeitung,Date) If (dy_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(dy_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (dy_Steuerbescheid_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(dy_Steuerbescheid_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (dy_VBD_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(dy_VBD_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (dy_ABD_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(dy_ABD_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (dy_AVM_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(dy_AVM_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (dySt_pfad Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(dySt_pfad,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_dy_Id,Integer) If (Original_dy_ART Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dy_ART") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_dy_ART,String) End If If (Original_dy_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dy_BezugsNr") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_dy_BezugsNr,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_dy_Status,Integer) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_dy_Status_KEWILL_Equivalent,Integer) If (Original_dy_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_dy_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_dy_SendungsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_dy_SendungsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_dy_Erstellung,Date) If (Original_dy_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_dy_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_dy_LetzteBearbeitung,Date) If (Original_dy_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_dy_LetzteBearbeitung_SB.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_dy_Steuerbescheid_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_dy_Steuerbescheid_dsId.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_dy_VBD_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_dy_VBD_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_dy_ABD_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_dy_ABD_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_dy_AVM_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_dy_AVM_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Original_dySt_pfad Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_dySt_pfad,String) End If Me.Adapter.UpdateCommand.Parameters(40).Value = CType(dy_Id,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 dy_ART As String, _ ByVal dy_BezugsNr As String, _ ByVal dy_Status As Integer, _ ByVal dy_Status_KEWILL_Equivalent As Integer, _ ByVal dy_AvisoId As Global.System.Nullable(Of Integer), _ ByVal dy_SendungsId As Global.System.Nullable(Of Integer), _ ByVal dy_Erstellung As Date, _ ByVal dy_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal dy_LetzteBearbeitung As Date, _ ByVal dy_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal dy_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal dy_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal dy_ABD_dsId As Global.System.Nullable(Of Integer), _ ByVal dy_AVM_dsId As Global.System.Nullable(Of Integer), _ ByVal dySt_pfad As String, _ ByVal Original_dy_Id As Integer, _ ByVal Original_dy_ART As String, _ ByVal Original_dy_BezugsNr As String, _ ByVal Original_dy_Status As Integer, _ ByVal Original_dy_Status_KEWILL_Equivalent As Integer, _ ByVal Original_dy_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_Erstellung As Date, _ ByVal Original_dy_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_dy_LetzteBearbeitung As Date, _ ByVal Original_dy_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_dy_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_ABD_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dy_AVM_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_dySt_pfad As String) As Integer Return Me.Update(dy_ART, dy_BezugsNr, dy_Status, dy_Status_KEWILL_Equivalent, dy_AvisoId, dy_SendungsId, dy_Erstellung, dy_Erstellung_SB, dy_LetzteBearbeitung, dy_LetzteBearbeitung_SB, dy_Steuerbescheid_dsId, dy_VBD_dsId, dy_ABD_dsId, dy_AVM_dsId, dySt_pfad, Original_dy_Id, Original_dy_ART, Original_dy_BezugsNr, Original_dy_Status, Original_dy_Status_KEWILL_Equivalent, Original_dy_AvisoId, Original_dy_SendungsId, Original_dy_Erstellung, Original_dy_Erstellung_SB, Original_dy_LetzteBearbeitung, Original_dy_LetzteBearbeitung_SB, Original_dy_Steuerbescheid_dsId, Original_dy_VBD_dsId, Original_dy_ABD_dsId, Original_dy_AVM_dsId, Original_dySt_pfad, Original_dy_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDakosy_ZollanmeldungenArtenTableAdapter 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 = "tblDakosy_ZollanmeldungenArten" tableMapping.ColumnMappings.Add("dya_ART", "dya_ART") tableMapping.ColumnMappings.Add("dya_Bezeichnung", "dya_Bezeichnung") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblDakosy_ZollanmeldungenArten] ([dya_ART], [dya_Bezeichnung])"& _ " VALUES (@dya_ART, @dya_Bezeichnung)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dya_ART", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dya_ART", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dya_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dya_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 dya_ART, dya_Bezeichnung FROM dbo.tblDakosy_ZollanmeldungenArten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDakosy_ZollanmeldungenArtenDataTable) 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 VERAGDataSet.tblDakosy_ZollanmeldungenArtenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDakosy_ZollanmeldungenArtenDataTable = New VERAGDataSet.tblDakosy_ZollanmeldungenArtenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDakosy_ZollanmeldungenArtenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDakosy_ZollanmeldungenArten") 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 Insert(ByVal dya_ART As String, ByVal dya_Bezeichnung As String) As Integer If (dya_ART Is Nothing) Then Throw New Global.System.ArgumentNullException("dya_ART") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(dya_ART,String) End If If (dya_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("dya_Bezeichnung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(dya_Bezeichnung,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDatenarchivTableAdapter 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 = "tblDatenarchiv" tableMapping.ColumnMappings.Add("da_id", "da_id") tableMapping.ColumnMappings.Add("da_KundenNr", "da_KundenNr") tableMapping.ColumnMappings.Add("da_vorlage", "da_vorlage") tableMapping.ColumnMappings.Add("da_kategorie", "da_kategorie") tableMapping.ColumnMappings.Add("da_ordner", "da_ordner") tableMapping.ColumnMappings.Add("da_uOrdner1", "da_uOrdner1") tableMapping.ColumnMappings.Add("da_uOrdner2", "da_uOrdner2") tableMapping.ColumnMappings.Add("da_uOrdner3", "da_uOrdner3") tableMapping.ColumnMappings.Add("da_name", "da_name") tableMapping.ColumnMappings.Add("da_pfad", "da_pfad") tableMapping.ColumnMappings.Add("da_info", "da_info") tableMapping.ColumnMappings.Add("da_multifiles", "da_multifiles") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblDatenarchiv] ([da_KundenNr], [da_vorlage], [da_kategorie], "& _ "[da_ordner], [da_uOrdner1], [da_uOrdner2], [da_uOrdner3], [da_name], [da_pfad], "& _ "[da_info], [da_multifiles]) VALUES (@da_KundenNr, @da_vorlage, @da_kategorie, @d"& _ "a_ordner, @da_uOrdner1, @da_uOrdner2, @da_uOrdner3, @da_name, @da_pfad, @da_info"& _ ", @da_multifiles)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_vorlage", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_vorlage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_kategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_kategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_ordner", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_ordner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_uOrdner1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_uOrdner1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_uOrdner2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_uOrdner2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_uOrdner3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_uOrdner3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_pfad", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_pfad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_info", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@da_multifiles", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "da_multifiles", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 da_id, da_KundenNr, da_vorlage, da_kategorie, da_ordner, da_uOrdner1, da_u"& _ "Ordner2, da_uOrdner3, da_name, da_pfad, da_info, da_multifiles FROM dbo.tblDaten"& _ "archiv" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDatenarchivDataTable) 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 VERAGDataSet.tblDatenarchivDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDatenarchivDataTable = New VERAGDataSet.tblDatenarchivDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDatenarchivDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDatenarchiv") 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 Insert(ByVal da_KundenNr As Global.System.Nullable(Of Integer), ByVal da_vorlage As Boolean, ByVal da_kategorie As String, ByVal da_ordner As String, ByVal da_uOrdner1 As String, ByVal da_uOrdner2 As String, ByVal da_uOrdner3 As String, ByVal da_name As String, ByVal da_pfad As String, ByVal da_info As String, ByVal da_multifiles As Boolean) As Integer If (da_KundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(da_KundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(da_vorlage,Boolean) If (da_kategorie Is Nothing) Then Throw New Global.System.ArgumentNullException("da_kategorie") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(da_kategorie,String) End If If (da_ordner Is Nothing) Then Throw New Global.System.ArgumentNullException("da_ordner") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(da_ordner,String) End If If (da_uOrdner1 Is Nothing) Then Throw New Global.System.ArgumentNullException("da_uOrdner1") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(da_uOrdner1,String) End If If (da_uOrdner2 Is Nothing) Then Throw New Global.System.ArgumentNullException("da_uOrdner2") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(da_uOrdner2,String) End If If (da_uOrdner3 Is Nothing) Then Throw New Global.System.ArgumentNullException("da_uOrdner3") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(da_uOrdner3,String) End If If (da_name Is Nothing) Then Throw New Global.System.ArgumentNullException("da_name") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(da_name,String) End If If (da_pfad Is Nothing) Then Throw New Global.System.ArgumentNullException("da_pfad") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(da_pfad,String) End If If (da_info Is Nothing) Then Throw New Global.System.ArgumentNullException("da_info") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(da_info,String) End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(da_multifiles,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDatenarchiv_CollectionTableAdapter 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 = "tblDatenarchiv_Collection" tableMapping.ColumnMappings.Add("coll_id", "coll_id") tableMapping.ColumnMappings.Add("coll_daId", "coll_daId") tableMapping.ColumnMappings.Add("coll_bezeichnung", "coll_bezeichnung") tableMapping.ColumnMappings.Add("coll_pfad", "coll_pfad") tableMapping.ColumnMappings.Add("coll_info", "coll_info") tableMapping.ColumnMappings.Add("coll_date", "coll_date") tableMapping.ColumnMappings.Add("coll_archiv", "coll_archiv") 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].[tblDatenarchiv_Collection] WHERE (([coll_id] = @Original_coll_"& _ "id) AND ([coll_daId] = @Original_coll_daId) AND ([coll_bezeichnung] = @Original_"& _ "coll_bezeichnung) AND ([coll_pfad] = @Original_coll_pfad) AND ([coll_info] = @Or"& _ "iginal_coll_info) AND ([coll_date] = @Original_coll_date) AND ([coll_archiv] = @"& _ "Original_coll_archiv))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_daId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_pfad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_info", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_info", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_archiv", 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].[tblDatenarchiv_Collection] ([coll_daId], [coll_bezeichnung], ["& _ "coll_pfad], [coll_info], [coll_date], [coll_archiv]) VALUES (@coll_daId, @coll_b"& _ "ezeichnung, @coll_pfad, @coll_info, @coll_date, @coll_archiv);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT coll_id, "& _ "coll_daId, coll_bezeichnung, coll_pfad, coll_info, coll_date, coll_archiv FROM t"& _ "blDatenarchiv_Collection WHERE (coll_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_daId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_pfad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_info", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_archiv", 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].[tblDatenarchiv_Collection] SET [coll_daId] = @coll_daId, [coll_beze"& _ "ichnung] = @coll_bezeichnung, [coll_pfad] = @coll_pfad, [coll_info] = @coll_info"& _ ", [coll_date] = @coll_date, [coll_archiv] = @coll_archiv WHERE (([coll_id] = @Or"& _ "iginal_coll_id) AND ([coll_daId] = @Original_coll_daId) AND ([coll_bezeichnung] "& _ "= @Original_coll_bezeichnung) AND ([coll_pfad] = @Original_coll_pfad) AND ([coll"& _ "_info] = @Original_coll_info) AND ([coll_date] = @Original_coll_date) AND ([coll"& _ "_archiv] = @Original_coll_archiv));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT coll_id, coll_daId, coll_bezeichnung"& _ ", coll_pfad, coll_info, coll_date, coll_archiv FROM tblDatenarchiv_Collection WH"& _ "ERE (coll_id = @coll_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_daId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_pfad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_info", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_archiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_daId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_pfad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_info", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_info", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coll_archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_archiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coll_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "coll_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 coll_id, coll_daId, coll_bezeichnung, coll_pfad, coll_info, coll_date, col"& _ "l_archiv FROM dbo.tblDatenarchiv_Collection" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDatenarchiv_CollectionDataTable) 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 VERAGDataSet.tblDatenarchiv_CollectionDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDatenarchiv_CollectionDataTable = New VERAGDataSet.tblDatenarchiv_CollectionDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDatenarchiv_CollectionDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDatenarchiv_Collection") 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_coll_id As Integer, ByVal Original_coll_daId As Integer, ByVal Original_coll_bezeichnung As String, ByVal Original_coll_pfad As String, ByVal Original_coll_info As String, ByVal Original_coll_date As Date, ByVal Original_coll_archiv As Boolean) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_coll_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_coll_daId,Integer) If (Original_coll_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_coll_bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_coll_bezeichnung,String) End If If (Original_coll_pfad Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_coll_pfad") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_coll_pfad,String) End If If (Original_coll_info Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_coll_info") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_coll_info,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_coll_date,Date) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_coll_archiv,Boolean) 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 coll_daId As Integer, ByVal coll_bezeichnung As String, ByVal coll_pfad As String, ByVal coll_info As String, ByVal coll_date As Date, ByVal coll_archiv As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(coll_daId,Integer) If (coll_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("coll_bezeichnung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(coll_bezeichnung,String) End If If (coll_pfad Is Nothing) Then Throw New Global.System.ArgumentNullException("coll_pfad") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(coll_pfad,String) End If If (coll_info Is Nothing) Then Throw New Global.System.ArgumentNullException("coll_info") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(coll_info,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(coll_date,Date) Me.Adapter.InsertCommand.Parameters(5).Value = CType(coll_archiv,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 coll_daId As Integer, ByVal coll_bezeichnung As String, ByVal coll_pfad As String, ByVal coll_info As String, ByVal coll_date As Date, ByVal coll_archiv As Boolean, ByVal Original_coll_id As Integer, ByVal Original_coll_daId As Integer, ByVal Original_coll_bezeichnung As String, ByVal Original_coll_pfad As String, ByVal Original_coll_info As String, ByVal Original_coll_date As Date, ByVal Original_coll_archiv As Boolean, ByVal coll_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(coll_daId,Integer) If (coll_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("coll_bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(coll_bezeichnung,String) End If If (coll_pfad Is Nothing) Then Throw New Global.System.ArgumentNullException("coll_pfad") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(coll_pfad,String) End If If (coll_info Is Nothing) Then Throw New Global.System.ArgumentNullException("coll_info") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(coll_info,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(coll_date,Date) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(coll_archiv,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_coll_id,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_coll_daId,Integer) If (Original_coll_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_coll_bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_coll_bezeichnung,String) End If If (Original_coll_pfad Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_coll_pfad") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_coll_pfad,String) End If If (Original_coll_info Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_coll_info") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_coll_info,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_coll_date,Date) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_coll_archiv,Boolean) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(coll_id,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 coll_daId As Integer, ByVal coll_bezeichnung As String, ByVal coll_pfad As String, ByVal coll_info As String, ByVal coll_date As Date, ByVal coll_archiv As Boolean, ByVal Original_coll_id As Integer, ByVal Original_coll_daId As Integer, ByVal Original_coll_bezeichnung As String, ByVal Original_coll_pfad As String, ByVal Original_coll_info As String, ByVal Original_coll_date As Date, ByVal Original_coll_archiv As Boolean) As Integer Return Me.Update(coll_daId, coll_bezeichnung, coll_pfad, coll_info, coll_date, coll_archiv, Original_coll_id, Original_coll_daId, Original_coll_bezeichnung, Original_coll_pfad, Original_coll_info, Original_coll_date, Original_coll_archiv, Original_coll_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDEBundeslaenderPLZTableAdapter 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 = "tblDEBundeslaenderPLZ" tableMapping.ColumnMappings.Add("PLZ", "PLZ") tableMapping.ColumnMappings.Add("Bundesland", "Bundesland") tableMapping.ColumnMappings.Add("Kreis", "Kreis") tableMapping.ColumnMappings.Add("Typ", "Typ") tableMapping.ColumnMappings.Add("Code", "Code") 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].[tblDEBundeslaenderPLZ] WHERE (([PLZ] = @Original_PLZ) AND ([Bu"& _ "ndesland] = @Original_Bundesland) AND ([Kreis] = @Original_Kreis) AND ([Typ] = @"& _ "Original_Typ) AND ([Code] = @Original_Code))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bundesland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Kreis", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", 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].[tblDEBundeslaenderPLZ] ([PLZ], [Bundesland], [Kreis], [Typ], ["& _ "Code]) VALUES (@PLZ, @Bundesland, @Kreis, @Typ, @Code);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PLZ, Bundesland,"& _ " Kreis, Typ, Code FROM tblDEBundeslaenderPLZ WHERE (PLZ = @PLZ)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bundesland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kreis", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", 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].[tblDEBundeslaenderPLZ] SET [PLZ] = @PLZ, [Bundesland] = @Bundesland"& _ ", [Kreis] = @Kreis, [Typ] = @Typ, [Code] = @Code WHERE (([PLZ] = @Original_PLZ) "& _ "AND ([Bundesland] = @Original_Bundesland) AND ([Kreis] = @Original_Kreis) AND (["& _ "Typ] = @Original_Typ) AND ([Code] = @Original_Code));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PLZ, Bundesland, K"& _ "reis, Typ, Code FROM tblDEBundeslaenderPLZ WHERE (PLZ = @PLZ)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bundesland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kreis", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bundesland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bundesland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Kreis", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kreis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 PLZ, Bundesland, Kreis, Typ, Code FROM dbo.tblDEBundeslaenderPLZ" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDEBundeslaenderPLZDataTable) 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 VERAGDataSet.tblDEBundeslaenderPLZDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDEBundeslaenderPLZDataTable = New VERAGDataSet.tblDEBundeslaenderPLZDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDEBundeslaenderPLZDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDEBundeslaenderPLZ") 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_PLZ As Integer, ByVal Original_Bundesland As String, ByVal Original_Kreis As String, ByVal Original_Typ As String, ByVal Original_Code As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PLZ,Integer) If (Original_Bundesland Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bundesland") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Bundesland,String) End If If (Original_Kreis Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Kreis") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Kreis,String) End If If (Original_Typ Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Typ") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Typ,String) End If If (Original_Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Code") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Code,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 PLZ As Integer, ByVal Bundesland As String, ByVal Kreis As String, ByVal Typ As String, ByVal Code As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PLZ,Integer) If (Bundesland Is Nothing) Then Throw New Global.System.ArgumentNullException("Bundesland") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bundesland,String) End If If (Kreis Is Nothing) Then Throw New Global.System.ArgumentNullException("Kreis") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Kreis,String) End If If (Typ Is Nothing) Then Throw New Global.System.ArgumentNullException("Typ") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Typ,String) End If If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Code,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 PLZ As Integer, ByVal Bundesland As String, ByVal Kreis As String, ByVal Typ As String, ByVal Code As String, ByVal Original_PLZ As Integer, ByVal Original_Bundesland As String, ByVal Original_Kreis As String, ByVal Original_Typ As String, ByVal Original_Code As String) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PLZ,Integer) If (Bundesland Is Nothing) Then Throw New Global.System.ArgumentNullException("Bundesland") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bundesland,String) End If If (Kreis Is Nothing) Then Throw New Global.System.ArgumentNullException("Kreis") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Kreis,String) End If If (Typ Is Nothing) Then Throw New Global.System.ArgumentNullException("Typ") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Typ,String) End If If (Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Code") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Code,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_PLZ,Integer) If (Original_Bundesland Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bundesland") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Bundesland,String) End If If (Original_Kreis Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Kreis") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Kreis,String) End If If (Original_Typ Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Typ") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Typ,String) End If If (Original_Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Code") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Code,String) End If 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 Bundesland As String, ByVal Kreis As String, ByVal Typ As String, ByVal Code As String, ByVal Original_PLZ As Integer, ByVal Original_Bundesland As String, ByVal Original_Kreis As String, ByVal Original_Typ As String, ByVal Original_Code As String) As Integer Return Me.Update(Original_PLZ, Bundesland, Kreis, Typ, Code, Original_PLZ, Original_Bundesland, Original_Kreis, Original_Typ, Original_Code) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDHF_AnhaengeTableAdapter 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 = "tblDHF_Anhaenge" tableMapping.ColumnMappings.Add("dhfanh_id", "dhfanh_id") tableMapping.ColumnMappings.Add("LizenzNr", "LizenzNr") tableMapping.ColumnMappings.Add("Operatorid", "Operatorid") tableMapping.ColumnMappings.Add("AnmID", "AnmID") tableMapping.ColumnMappings.Add("MsgTyp", "MsgTyp") tableMapping.ColumnMappings.Add("ErstelltAm", "ErstelltAm") tableMapping.ColumnMappings.Add("pfad", "pfad") tableMapping.ColumnMappings.Add("LRN", "LRN") tableMapping.ColumnMappings.Add("CRN", "CRN") tableMapping.ColumnMappings.Add("docID", "docID") 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].[tblDHF_Anhaenge] WHERE (([dhfanh_id] = @Original_dhfanh_id) AN"& _ "D ([LizenzNr] = @Original_LizenzNr) AND ([Operatorid] = @Original_Operatorid) AN"& _ "D ([AnmID] = @Original_AnmID) AND ([MsgTyp] = @Original_MsgTyp) AND ([ErstelltAm"& _ "] = @Original_ErstelltAm) AND ([pfad] = @Original_pfad) AND ([LRN] = @Original_L"& _ "RN) AND ([CRN] = @Original_CRN) AND ((@IsNull_docID = 1 AND [docID] IS NULL) OR "& _ "([docID] = @Original_docID)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dhfanh_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dhfanh_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LizenzNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LizenzNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Operatorid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operatorid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MsgTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MsgTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstelltAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstelltAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pfad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "docID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "docID", 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].[tblDHF_Anhaenge] ([LizenzNr], [Operatorid], [AnmID], [MsgTyp],"& _ " [ErstelltAm], [pfad], [LRN], [CRN], [docID]) VALUES (@LizenzNr, @Operatorid, @A"& _ "nmID, @MsgTyp, @ErstelltAm, @pfad, @LRN, @CRN, @docID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT dhfanh_id, Lizen"& _ "zNr, Operatorid, AnmID, MsgTyp, ErstelltAm, pfad, LRN, CRN, docID FROM tblDHF_An"& _ "haenge WHERE (dhfanh_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LizenzNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LizenzNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Operatorid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operatorid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MsgTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MsgTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstelltAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pfad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "docID", 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].[tblDHF_Anhaenge] SET [LizenzNr] = @LizenzNr, [Operatorid] = @Operat"& _ "orid, [AnmID] = @AnmID, [MsgTyp] = @MsgTyp, [ErstelltAm] = @ErstelltAm, [pfad] ="& _ " @pfad, [LRN] = @LRN, [CRN] = @CRN, [docID] = @docID WHERE (([dhfanh_id] = @Orig"& _ "inal_dhfanh_id) AND ([LizenzNr] = @Original_LizenzNr) AND ([Operatorid] = @Origi"& _ "nal_Operatorid) AND ([AnmID] = @Original_AnmID) AND ([MsgTyp] = @Original_MsgTyp"& _ ") AND ([ErstelltAm] = @Original_ErstelltAm) AND ([pfad] = @Original_pfad) AND (["& _ "LRN] = @Original_LRN) AND ([CRN] = @Original_CRN) AND ((@IsNull_docID = 1 AND [d"& _ "ocID] IS NULL) OR ([docID] = @Original_docID)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT dhfanh_id, LizenzNr, Op"& _ "eratorid, AnmID, MsgTyp, ErstelltAm, pfad, LRN, CRN, docID FROM tblDHF_Anhaenge "& _ "WHERE (dhfanh_id = @dhfanh_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LizenzNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LizenzNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Operatorid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operatorid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MsgTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MsgTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstelltAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pfad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "docID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dhfanh_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dhfanh_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LizenzNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LizenzNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Operatorid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operatorid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MsgTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MsgTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstelltAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstelltAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pfad", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pfad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "docID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "docID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dhfanh_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "dhfanh_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 dhfanh_id, LizenzNr, Operatorid, AnmID, MsgTyp, ErstelltAm, pfad, LRN, CRN"& _ ", docID FROM dbo.tblDHF_Anhaenge" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDHF_AnhaengeDataTable) 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 VERAGDataSet.tblDHF_AnhaengeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDHF_AnhaengeDataTable = New VERAGDataSet.tblDHF_AnhaengeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDHF_AnhaengeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDHF_Anhaenge") 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_dhfanh_id As Integer, ByVal Original_LizenzNr As String, ByVal Original_Operatorid As Integer, ByVal Original_AnmID As Integer, ByVal Original_MsgTyp As String, ByVal Original_ErstelltAm As Date, ByVal Original_pfad As String, ByVal Original_LRN As String, ByVal Original_CRN As String, ByVal Original_docID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_dhfanh_id,Integer) If (Original_LizenzNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LizenzNr") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LizenzNr,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Operatorid,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_AnmID,Integer) If (Original_MsgTyp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_MsgTyp") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_MsgTyp,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ErstelltAm,Date) If (Original_pfad Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pfad") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_pfad,String) End If If (Original_LRN Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LRN") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_LRN,String) End If If (Original_CRN Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_CRN") Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CRN,String) End If If (Original_docID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_docID.Value,Integer) 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 LizenzNr As String, ByVal Operatorid As Integer, ByVal AnmID As Integer, ByVal MsgTyp As String, ByVal ErstelltAm As Date, ByVal pfad As String, ByVal LRN As String, ByVal CRN As String, ByVal docID As Global.System.Nullable(Of Integer)) As Integer If (LizenzNr Is Nothing) Then Throw New Global.System.ArgumentNullException("LizenzNr") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(LizenzNr,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(Operatorid,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(AnmID,Integer) If (MsgTyp Is Nothing) Then Throw New Global.System.ArgumentNullException("MsgTyp") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(MsgTyp,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(ErstelltAm,Date) If (pfad Is Nothing) Then Throw New Global.System.ArgumentNullException("pfad") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(pfad,String) End If If (LRN Is Nothing) Then Throw New Global.System.ArgumentNullException("LRN") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(LRN,String) End If If (CRN Is Nothing) Then Throw New Global.System.ArgumentNullException("CRN") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(CRN,String) End If If (docID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(docID.Value,Integer) 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 LizenzNr As String, _ ByVal Operatorid As Integer, _ ByVal AnmID As Integer, _ ByVal MsgTyp As String, _ ByVal ErstelltAm As Date, _ ByVal pfad As String, _ ByVal LRN As String, _ ByVal CRN As String, _ ByVal docID As Global.System.Nullable(Of Integer), _ ByVal Original_dhfanh_id As Integer, _ ByVal Original_LizenzNr As String, _ ByVal Original_Operatorid As Integer, _ ByVal Original_AnmID As Integer, _ ByVal Original_MsgTyp As String, _ ByVal Original_ErstelltAm As Date, _ ByVal Original_pfad As String, _ ByVal Original_LRN As String, _ ByVal Original_CRN As String, _ ByVal Original_docID As Global.System.Nullable(Of Integer), _ ByVal dhfanh_id As Integer) As Integer If (LizenzNr Is Nothing) Then Throw New Global.System.ArgumentNullException("LizenzNr") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LizenzNr,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Operatorid,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AnmID,Integer) If (MsgTyp Is Nothing) Then Throw New Global.System.ArgumentNullException("MsgTyp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MsgTyp,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ErstelltAm,Date) If (pfad Is Nothing) Then Throw New Global.System.ArgumentNullException("pfad") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(pfad,String) End If If (LRN Is Nothing) Then Throw New Global.System.ArgumentNullException("LRN") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LRN,String) End If If (CRN Is Nothing) Then Throw New Global.System.ArgumentNullException("CRN") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CRN,String) End If If (docID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(docID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_dhfanh_id,Integer) If (Original_LizenzNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LizenzNr") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_LizenzNr,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Operatorid,Integer) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_AnmID,Integer) If (Original_MsgTyp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_MsgTyp") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_MsgTyp,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ErstelltAm,Date) If (Original_pfad Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pfad") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_pfad,String) End If If (Original_LRN Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LRN") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_LRN,String) End If If (Original_CRN Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_CRN") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CRN,String) End If If (Original_docID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_docID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(dhfanh_id,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 LizenzNr As String, _ ByVal Operatorid As Integer, _ ByVal AnmID As Integer, _ ByVal MsgTyp As String, _ ByVal ErstelltAm As Date, _ ByVal pfad As String, _ ByVal LRN As String, _ ByVal CRN As String, _ ByVal docID As Global.System.Nullable(Of Integer), _ ByVal Original_dhfanh_id As Integer, _ ByVal Original_LizenzNr As String, _ ByVal Original_Operatorid As Integer, _ ByVal Original_AnmID As Integer, _ ByVal Original_MsgTyp As String, _ ByVal Original_ErstelltAm As Date, _ ByVal Original_pfad As String, _ ByVal Original_LRN As String, _ ByVal Original_CRN As String, _ ByVal Original_docID As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(LizenzNr, Operatorid, AnmID, MsgTyp, ErstelltAm, pfad, LRN, CRN, docID, Original_dhfanh_id, Original_LizenzNr, Original_Operatorid, Original_AnmID, Original_MsgTyp, Original_ErstelltAm, Original_pfad, Original_LRN, Original_CRN, Original_docID, Original_dhfanh_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDieselArchivTableAdapter 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 = "tblDieselArchiv" tableMapping.ColumnMappings.Add("Year Month Day", "Year Month Day") tableMapping.ColumnMappings.Add("Payment summary number", "Payment summary number") tableMapping.ColumnMappings.Add("Customer Code", "Customer Code") tableMapping.ColumnMappings.Add("Customer Name", "Customer Name") tableMapping.ColumnMappings.Add("Outlet Country Code", "Outlet Country Code") tableMapping.ColumnMappings.Add("Outlet Country", "Outlet Country") tableMapping.ColumnMappings.Add("Outlet Code", "Outlet Code") tableMapping.ColumnMappings.Add("Outlet Name", "Outlet Name") tableMapping.ColumnMappings.Add("Product Type Code", "Product Type Code") tableMapping.ColumnMappings.Add("Transaction Volume", "Transaction Volume") tableMapping.ColumnMappings.Add("AmminclVAT", "AmminclVAT") tableMapping.ColumnMappings.Add("Total Net Amount", "Total Net Amount") tableMapping.ColumnMappings.Add("VAT Amount", "VAT Amount") tableMapping.ColumnMappings.Add("av price excl VAT", "av price excl VAT") tableMapping.ColumnMappings.Add("Rechenwert", "Rechenwert") tableMapping.ColumnMappings.Add("Kz", "Kz") tableMapping.ColumnMappings.Add("Rabattbetrag", "Rabattbetrag") tableMapping.ColumnMappings.Add("RabattbetragProLiter", "RabattbetragProLiter") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("KdNrVERAG", "KdNrVERAG") tableMapping.ColumnMappings.Add("Card Number", "Card Number") tableMapping.ColumnMappings.Add("Emission Number", "Emission Number") tableMapping.ColumnMappings.Add("Card Comments", "Card Comments") tableMapping.ColumnMappings.Add("CalendarDate", "CalendarDate") tableMapping.ColumnMappings.Add("Transaction HHMM", "Transaction HHMM") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("VR Number", "VR Number") tableMapping.ColumnMappings.Add("OBO Number", "OBO Number") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblDieselArchiv] WHERE (([Year Month Day] = @Original_Year_Mon"& _ "th_Day) AND ([Payment summary number] = @Original_Payment_summary_number) AND (["& _ "Customer Code] = @Original_Customer_Code) AND ([Outlet Country Code] = @Original"& _ "_Outlet_Country_Code) AND ([Outlet Code] = @Original_Outlet_Code) AND ([Product "& _ "Type Code] = @Original_Product_Type_Code) AND ([SSMA_TimeStamp] = @Original_SSMA"& _ "_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Year_Month_Day", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year Month Day", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Payment_summary_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Payment summary number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Customer_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Outlet_Country_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Country Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Outlet_Code", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Product_Type_Code", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Product Type Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblDieselArchiv] ([Year Month Day], [Payment summary number], "& _ "[Customer Code], [Customer Name], [Outlet Country Code], [Outlet Country], [Outl"& _ "et Code], [Outlet Name], [Product Type Code], [Transaction Volume], [AmminclVAT]"& _ ", [Total Net Amount], [VAT Amount], [av price excl VAT], [Rechenwert], [Kz], [Ra"& _ "battbetrag], [RabattbetragProLiter], [Zeitstempel], [Sachbearbeiter], [KdNrVERAG"& _ "], [Card Number], [Emission Number], [Card Comments], [CalendarDate], [Transacti"& _ "on HHMM], [UStVAn_ID], [VR Number], [OBO Number]) VALUES (@Year_Month_Day, @Paym"& _ "ent_summary_number, @Customer_Code, @Customer_Name, @Outlet_Country_Code, @Outle"& _ "t_Country, @Outlet_Code, @Outlet_Name, @Product_Type_Code, @Transaction_Volume, "& _ "@AmminclVAT, @Total_Net_Amount, @VAT_Amount, @av_price_excl_VAT, @Rechenwert, @K"& _ "z, @Rabattbetrag, @RabattbetragProLiter, @Zeitstempel, @Sachbearbeiter, @KdNrVER"& _ "AG, @Card_Number, @Emission_Number, @Card_Comments, @CalendarDate, @Transaction_"& _ "HHMM, @UStVAn_ID, @VR_Number, @OBO_Number);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT [Year Month Day], [Payment s"& _ "ummary number], [Customer Code], [Customer Name], [Outlet Country Code], [Outlet"& _ " Country], [Outlet Code], [Outlet Name], [Product Type Code], [Transaction Volum"& _ "e], AmminclVAT, [Total Net Amount], [VAT Amount], [av price excl VAT], Rechenwer"& _ "t, Kz, Rabattbetrag, RabattbetragProLiter, Zeitstempel, Sachbearbeiter, KdNrVERA"& _ "G, [Card Number], [Emission Number], [Card Comments], CalendarDate, [Transaction"& _ " HHMM], UStVAn_ID, [VR Number], [OBO Number], SSMA_TimeStamp FROM tblDieselArchi"& _ "v WHERE ([Customer Code] = @Customer_Code) AND ([Outlet Code] = @Outlet_Code) AN"& _ "D ([Outlet Country Code] = @Outlet_Country_Code) AND ([Payment summary number] ="& _ " @Payment_summary_number) AND ([Product Type Code] = @Product_Type_Code) AND ([Y"& _ "ear Month Day] = @Year_Month_Day)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Year_Month_Day", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year Month Day", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Payment_summary_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Payment summary number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Outlet_Country_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Country Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Outlet_Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Outlet_Code", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Outlet_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Product_Type_Code", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Product Type Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_Volume", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Volume", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AmminclVAT", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AmminclVAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Total_Net_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Net Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VAT Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@av_price_excl_VAT", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "av price excl VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechenwert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechenwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rabattbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rabattbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RabattbetragProLiter", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RabattbetragProLiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdNrVERAG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdNrVERAG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Number", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Emission_Number", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Emission Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Comments", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Comments", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CalendarDate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CalendarDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_HHMM", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction HHMM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VR_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VR Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBO_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBO Number", 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].[tblDieselArchiv] SET [Year Month Day] = @Year_Month_Day, [Payment s"& _ "ummary number] = @Payment_summary_number, [Customer Code] = @Customer_Code, [Cus"& _ "tomer Name] = @Customer_Name, [Outlet Country Code] = @Outlet_Country_Code, [Out"& _ "let Country] = @Outlet_Country, [Outlet Code] = @Outlet_Code, [Outlet Name] = @O"& _ "utlet_Name, [Product Type Code] = @Product_Type_Code, [Transaction Volume] = @Tr"& _ "ansaction_Volume, [AmminclVAT] = @AmminclVAT, [Total Net Amount] = @Total_Net_Am"& _ "ount, [VAT Amount] = @VAT_Amount, [av price excl VAT] = @av_price_excl_VAT, [Rec"& _ "henwert] = @Rechenwert, [Kz] = @Kz, [Rabattbetrag] = @Rabattbetrag, [Rabattbetra"& _ "gProLiter] = @RabattbetragProLiter, [Zeitstempel] = @Zeitstempel, [Sachbearbeite"& _ "r] = @Sachbearbeiter, [KdNrVERAG] = @KdNrVERAG, [Card Number] = @Card_Number, [E"& _ "mission Number] = @Emission_Number, [Card Comments] = @Card_Comments, [CalendarD"& _ "ate] = @CalendarDate, [Transaction HHMM] = @Transaction_HHMM, [UStVAn_ID] = @USt"& _ "VAn_ID, [VR Number] = @VR_Number, [OBO Number] = @OBO_Number WHERE (([Year Month"& _ " Day] = @Original_Year_Month_Day) AND ([Payment summary number] = @Original_Paym"& _ "ent_summary_number) AND ([Customer Code] = @Original_Customer_Code) AND ([Outlet"& _ " Country Code] = @Original_Outlet_Country_Code) AND ([Outlet Code] = @Original_O"& _ "utlet_Code) AND ([Product Type Code] = @Original_Product_Type_Code) AND ([SSMA_T"& _ "imeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT [Year Month Day], [Payment summa"& _ "ry number], [Customer Code], [Customer Name], [Outlet Country Code], [Outlet Cou"& _ "ntry], [Outlet Code], [Outlet Name], [Product Type Code], [Transaction Volume], "& _ "AmminclVAT, [Total Net Amount], [VAT Amount], [av price excl VAT], Rechenwert, K"& _ "z, Rabattbetrag, RabattbetragProLiter, Zeitstempel, Sachbearbeiter, KdNrVERAG, ["& _ "Card Number], [Emission Number], [Card Comments], CalendarDate, [Transaction HHM"& _ "M], UStVAn_ID, [VR Number], [OBO Number], SSMA_TimeStamp FROM tblDieselArchiv WH"& _ "ERE ([Customer Code] = @Customer_Code) AND ([Outlet Code] = @Outlet_Code) AND (["& _ "Outlet Country Code] = @Outlet_Country_Code) AND ([Payment summary number] = @Pa"& _ "yment_summary_number) AND ([Product Type Code] = @Product_Type_Code) AND ([Year "& _ "Month Day] = @Year_Month_Day)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Year_Month_Day", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year Month Day", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Payment_summary_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Payment summary number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Outlet_Country_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Country Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Outlet_Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Outlet_Code", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Outlet_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Product_Type_Code", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Product Type Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_Volume", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Volume", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AmminclVAT", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AmminclVAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Total_Net_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Net Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VAT Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@av_price_excl_VAT", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "av price excl VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechenwert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechenwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rabattbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rabattbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RabattbetragProLiter", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RabattbetragProLiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdNrVERAG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdNrVERAG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Number", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Emission_Number", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Emission Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Comments", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Comments", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CalendarDate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CalendarDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_HHMM", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction HHMM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VR_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VR Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBO_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBO Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Year_Month_Day", Global.System.Data.SqlDbType.DateTime2, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year Month Day", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Payment_summary_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Payment summary number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Customer_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Outlet_Country_Code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Country Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Outlet_Code", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Outlet Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Product_Type_Code", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Product Type Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 [Year Month Day], [Payment summary number], [Customer Code], [Customer Nam"& _ "e], [Outlet Country Code], [Outlet Country], [Outlet Code], [Outlet Name], [Prod"& _ "uct Type Code], [Transaction Volume], AmminclVAT, [Total Net Amount], [VAT Amoun"& _ "t], [av price excl VAT], Rechenwert, Kz, Rabattbetrag, RabattbetragProLiter, Zei"& _ "tstempel, Sachbearbeiter, KdNrVERAG, [Card Number], [Emission Number], [Card Com"& _ "ments], CalendarDate, [Transaction HHMM], UStVAn_ID, [VR Number], [OBO Number], "& _ "SSMA_TimeStamp FROM dbo.tblDieselArchiv" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDieselArchivDataTable) 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 VERAGDataSet.tblDieselArchivDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDieselArchivDataTable = New VERAGDataSet.tblDieselArchivDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDieselArchivDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDieselArchiv") 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_Year_Month_Day As Date, ByVal Original_Payment_summary_number As String, ByVal Original_Customer_Code As Integer, ByVal Original_Outlet_Country_Code As Integer, ByVal Original_Outlet_Code As Short, ByVal Original_Product_Type_Code As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Year_Month_Day,Date) If (Original_Payment_summary_number Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Payment_summary_number") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Payment_summary_number,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Customer_Code,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Outlet_Country_Code,Integer) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Outlet_Code,Short) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Product_Type_Code,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Year_Month_Day As Date, _ ByVal Payment_summary_number As String, _ ByVal Customer_Code As Integer, _ ByVal Customer_Name As String, _ ByVal Outlet_Country_Code As Integer, _ ByVal Outlet_Country As String, _ ByVal Outlet_Code As Short, _ ByVal Outlet_Name As String, _ ByVal Product_Type_Code As Short, _ ByVal Transaction_Volume As Global.System.Nullable(Of Decimal), _ ByVal AmminclVAT As Global.System.Nullable(Of Decimal), _ ByVal Total_Net_Amount As Global.System.Nullable(Of Decimal), _ ByVal VAT_Amount As Global.System.Nullable(Of Decimal), _ ByVal av_price_excl_VAT As Global.System.Nullable(Of Decimal), _ ByVal Rechenwert As Global.System.Nullable(Of Decimal), _ ByVal Kz As String, _ ByVal Rabattbetrag As Global.System.Nullable(Of Decimal), _ ByVal RabattbetragProLiter As Global.System.Nullable(Of Decimal), _ ByVal Zeitstempel As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal KdNrVERAG As Global.System.Nullable(Of Integer), _ ByVal Card_Number As Short, _ ByVal Emission_Number As Short, _ ByVal Card_Comments As String, _ ByVal CalendarDate As String, _ ByVal Transaction_HHMM As String, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal VR_Number As String, _ ByVal OBO_Number As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Year_Month_Day,Date) If (Payment_summary_number Is Nothing) Then Throw New Global.System.ArgumentNullException("Payment_summary_number") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Payment_summary_number,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Customer_Code,Integer) If (Customer_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Customer_Name,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(Outlet_Country_Code,Integer) If (Outlet_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Outlet_Country,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(Outlet_Code,Short) If (Outlet_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Outlet_Name,String) End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(Product_Type_Code,Short) If (Transaction_Volume.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Transaction_Volume.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (AmminclVAT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(AmminclVAT.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Total_Net_Amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Total_Net_Amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (VAT_Amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(VAT_Amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (av_price_excl_VAT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(av_price_excl_VAT.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Rechenwert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(Rechenwert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Kz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Kz,String) End If If (Rabattbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(Rabattbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (RabattbetragProLiter.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(RabattbetragProLiter.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Sachbearbeiter,String) End If If (KdNrVERAG.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(KdNrVERAG.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(21).Value = CType(Card_Number,Short) Me.Adapter.InsertCommand.Parameters(22).Value = CType(Emission_Number,Short) If (Card_Comments Is Nothing) Then Throw New Global.System.ArgumentNullException("Card_Comments") Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(Card_Comments,String) End If If (CalendarDate Is Nothing) Then Throw New Global.System.ArgumentNullException("CalendarDate") Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(CalendarDate,String) End If If (Transaction_HHMM Is Nothing) Then Throw New Global.System.ArgumentNullException("Transaction_HHMM") Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(Transaction_HHMM,String) End If If (UStVAn_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (VR_Number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(VR_Number,String) End If If (OBO_Number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(OBO_Number,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 Year_Month_Day As Date, _ ByVal Payment_summary_number As String, _ ByVal Customer_Code As Integer, _ ByVal Customer_Name As String, _ ByVal Outlet_Country_Code As Integer, _ ByVal Outlet_Country As String, _ ByVal Outlet_Code As Short, _ ByVal Outlet_Name As String, _ ByVal Product_Type_Code As Short, _ ByVal Transaction_Volume As Global.System.Nullable(Of Decimal), _ ByVal AmminclVAT As Global.System.Nullable(Of Decimal), _ ByVal Total_Net_Amount As Global.System.Nullable(Of Decimal), _ ByVal VAT_Amount As Global.System.Nullable(Of Decimal), _ ByVal av_price_excl_VAT As Global.System.Nullable(Of Decimal), _ ByVal Rechenwert As Global.System.Nullable(Of Decimal), _ ByVal Kz As String, _ ByVal Rabattbetrag As Global.System.Nullable(Of Decimal), _ ByVal RabattbetragProLiter As Global.System.Nullable(Of Decimal), _ ByVal Zeitstempel As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal KdNrVERAG As Global.System.Nullable(Of Integer), _ ByVal Card_Number As Short, _ ByVal Emission_Number As Short, _ ByVal Card_Comments As String, _ ByVal CalendarDate As String, _ ByVal Transaction_HHMM As String, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal VR_Number As String, _ ByVal OBO_Number As String, _ ByVal Original_Year_Month_Day As Date, _ ByVal Original_Payment_summary_number As String, _ ByVal Original_Customer_Code As Integer, _ ByVal Original_Outlet_Country_Code As Integer, _ ByVal Original_Outlet_Code As Short, _ ByVal Original_Product_Type_Code As Short, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Year_Month_Day,Date) If (Payment_summary_number Is Nothing) Then Throw New Global.System.ArgumentNullException("Payment_summary_number") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Payment_summary_number,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Customer_Code,Integer) If (Customer_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Customer_Name,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Outlet_Country_Code,Integer) If (Outlet_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Outlet_Country,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Outlet_Code,Short) If (Outlet_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Outlet_Name,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Product_Type_Code,Short) If (Transaction_Volume.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Transaction_Volume.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (AmminclVAT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(AmminclVAT.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Total_Net_Amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Total_Net_Amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (VAT_Amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(VAT_Amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (av_price_excl_VAT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(av_price_excl_VAT.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Rechenwert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Rechenwert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Kz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Kz,String) End If If (Rabattbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Rabattbetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (RabattbetragProLiter.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(RabattbetragProLiter.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Sachbearbeiter,String) End If If (KdNrVERAG.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(KdNrVERAG.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Card_Number,Short) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Emission_Number,Short) If (Card_Comments Is Nothing) Then Throw New Global.System.ArgumentNullException("Card_Comments") Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Card_Comments,String) End If If (CalendarDate Is Nothing) Then Throw New Global.System.ArgumentNullException("CalendarDate") Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(CalendarDate,String) End If If (Transaction_HHMM Is Nothing) Then Throw New Global.System.ArgumentNullException("Transaction_HHMM") Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Transaction_HHMM,String) End If If (UStVAn_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (VR_Number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(VR_Number,String) End If If (OBO_Number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(OBO_Number,String) End If Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Year_Month_Day,Date) If (Original_Payment_summary_number Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Payment_summary_number") Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Payment_summary_number,String) End If Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_Customer_Code,Integer) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_Outlet_Country_Code,Integer) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_Outlet_Code,Short) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_Product_Type_Code,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Customer_Name As String, _ ByVal Outlet_Country As String, _ ByVal Outlet_Name As String, _ ByVal Transaction_Volume As Global.System.Nullable(Of Decimal), _ ByVal AmminclVAT As Global.System.Nullable(Of Decimal), _ ByVal Total_Net_Amount As Global.System.Nullable(Of Decimal), _ ByVal VAT_Amount As Global.System.Nullable(Of Decimal), _ ByVal av_price_excl_VAT As Global.System.Nullable(Of Decimal), _ ByVal Rechenwert As Global.System.Nullable(Of Decimal), _ ByVal Kz As String, _ ByVal Rabattbetrag As Global.System.Nullable(Of Decimal), _ ByVal RabattbetragProLiter As Global.System.Nullable(Of Decimal), _ ByVal Zeitstempel As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal KdNrVERAG As Global.System.Nullable(Of Integer), _ ByVal Card_Number As Short, _ ByVal Emission_Number As Short, _ ByVal Card_Comments As String, _ ByVal CalendarDate As String, _ ByVal Transaction_HHMM As String, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal VR_Number As String, _ ByVal OBO_Number As String, _ ByVal Original_Year_Month_Day As Date, _ ByVal Original_Payment_summary_number As String, _ ByVal Original_Customer_Code As Integer, _ ByVal Original_Outlet_Country_Code As Integer, _ ByVal Original_Outlet_Code As Short, _ ByVal Original_Product_Type_Code As Short, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Year_Month_Day, Original_Payment_summary_number, Original_Customer_Code, Customer_Name, Original_Outlet_Country_Code, Outlet_Country, Original_Outlet_Code, Outlet_Name, Original_Product_Type_Code, Transaction_Volume, AmminclVAT, Total_Net_Amount, VAT_Amount, av_price_excl_VAT, Rechenwert, Kz, Rabattbetrag, RabattbetragProLiter, Zeitstempel, Sachbearbeiter, KdNrVERAG, Card_Number, Emission_Number, Card_Comments, CalendarDate, Transaction_HHMM, UStVAn_ID, VR_Number, OBO_Number, Original_Year_Month_Day, Original_Payment_summary_number, Original_Customer_Code, Original_Outlet_Country_Code, Original_Outlet_Code, Original_Product_Type_Code, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDigicust_SendungenTableAdapter 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 = "tblDigicust_Sendungen" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("AvisoId", "AvisoId") tableMapping.ColumnMappings.Add("reference", "reference") tableMapping.ColumnMappings.Add("status", "status") tableMapping.ColumnMappings.Add("digicustId", "digicustId") tableMapping.ColumnMappings.Add("createdAt", "createdAt") tableMapping.ColumnMappings.Add("modifiedAt", "modifiedAt") tableMapping.ColumnMappings.Add("uploadedDocuments", "uploadedDocuments") tableMapping.ColumnMappings.Add("companyId", "companyId") tableMapping.ColumnMappings.Add("projectId", "projectId") tableMapping.ColumnMappings.Add("licencePlate", "licencePlate") tableMapping.ColumnMappings.Add("consignor_eori", "consignor_eori") tableMapping.ColumnMappings.Add("consignor_name", "consignor_name") tableMapping.ColumnMappings.Add("consignor_address", "consignor_address") tableMapping.ColumnMappings.Add("consignor_city_name", "consignor_city_name") tableMapping.ColumnMappings.Add("consignor_country_id", "consignor_country_id") tableMapping.ColumnMappings.Add("consignor_postcode", "consignor_postcode") tableMapping.ColumnMappings.Add("consignee_eori", "consignee_eori") tableMapping.ColumnMappings.Add("consignee_name", "consignee_name") tableMapping.ColumnMappings.Add("consignee_address", "consignee_address") tableMapping.ColumnMappings.Add("consignee_city_name", "consignee_city_name") tableMapping.ColumnMappings.Add("consignee_country_id", "consignee_country_id") tableMapping.ColumnMappings.Add("consignee_postcode", "consignee_postcode") tableMapping.ColumnMappings.Add("prepaper", "prepaper") tableMapping.ColumnMappings.Add("prepaper_code", "prepaper_code") tableMapping.ColumnMappings.Add("lkwCountryId", "lkwCountryId") tableMapping.ColumnMappings.Add("customsOfficeNr", "customsOfficeNr") tableMapping.ColumnMappings.Add("settingsId", "settingsId") tableMapping.ColumnMappings.Add("type", "type") 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].[tblDigicust_Sendungen] WHERE (([Id] = @Original_Id) AND ((@IsN"& _ "ull_AvisoId = 1 AND [AvisoId] IS NULL) OR ([AvisoId] = @Original_AvisoId)) AND ("& _ "(@IsNull_reference = 1 AND [reference] IS NULL) OR ([reference] = @Original_refe"& _ "rence)) AND ((@IsNull_status = 1 AND [status] IS NULL) OR ([status] = @Original_"& _ "status)) AND ((@IsNull_createdAt = 1 AND [createdAt] IS NULL) OR ([createdAt] = "& _ "@Original_createdAt)) AND ((@IsNull_modifiedAt = 1 AND [modifiedAt] IS NULL) OR "& _ "([modifiedAt] = @Original_modifiedAt)) AND ((@IsNull_uploadedDocuments = 1 AND ["& _ "uploadedDocuments] IS NULL) OR ([uploadedDocuments] = @Original_uploadedDocument"& _ "s)) AND ((@IsNull_licencePlate = 1 AND [licencePlate] IS NULL) OR ([licencePlate"& _ "] = @Original_licencePlate)) AND ((@IsNull_consignor_eori = 1 AND [consignor_eor"& _ "i] IS NULL) OR ([consignor_eori] = @Original_consignor_eori)) AND ((@IsNull_cons"& _ "ignor_name = 1 AND [consignor_name] IS NULL) OR ([consignor_name] = @Original_co"& _ "nsignor_name)) AND ((@IsNull_consignor_address = 1 AND [consignor_address] IS NU"& _ "LL) OR ([consignor_address] = @Original_consignor_address)) AND ((@IsNull_consig"& _ "nor_city_name = 1 AND [consignor_city_name] IS NULL) OR ([consignor_city_name] ="& _ " @Original_consignor_city_name)) AND ((@IsNull_consignor_country_id = 1 AND [con"& _ "signor_country_id] IS NULL) OR ([consignor_country_id] = @Original_consignor_cou"& _ "ntry_id)) AND ((@IsNull_consignor_postcode = 1 AND [consignor_postcode] IS NULL)"& _ " OR ([consignor_postcode] = @Original_consignor_postcode)) AND ((@IsNull_consign"& _ "ee_eori = 1 AND [consignee_eori] IS NULL) OR ([consignee_eori] = @Original_consi"& _ "gnee_eori)) AND ((@IsNull_consignee_name = 1 AND [consignee_name] IS NULL) OR (["& _ "consignee_name] = @Original_consignee_name)) AND ((@IsNull_consignee_address = 1"& _ " AND [consignee_address] IS NULL) OR ([consignee_address] = @Original_consignee_"& _ "address)) AND ((@IsNull_consignee_city_name = 1 AND [consignee_city_name] IS NUL"& _ "L) OR ([consignee_city_name] = @Original_consignee_city_name)) AND ((@IsNull_con"& _ "signee_country_id = 1 AND [consignee_country_id] IS NULL) OR ([consignee_country"& _ "_id] = @Original_consignee_country_id)) AND ((@IsNull_consignee_postcode = 1 AND"& _ " [consignee_postcode] IS NULL) OR ([consignee_postcode] = @Original_consignee_po"& _ "stcode)) AND ((@IsNull_prepaper = 1 AND [prepaper] IS NULL) OR ([prepaper] = @Or"& _ "iginal_prepaper)) AND ((@IsNull_prepaper_code = 1 AND [prepaper_code] IS NULL) O"& _ "R ([prepaper_code] = @Original_prepaper_code)) AND ((@IsNull_lkwCountryId = 1 AN"& _ "D [lkwCountryId] IS NULL) OR ([lkwCountryId] = @Original_lkwCountryId)) AND ((@I"& _ "sNull_customsOfficeNr = 1 AND [customsOfficeNr] IS NULL) OR ([customsOfficeNr] ="& _ " @Original_customsOfficeNr)) AND ((@IsNull_settingsId = 1 AND [settingsId] IS NU"& _ "LL) OR ([settingsId] = @Original_settingsId)) AND ((@IsNull_type = 1 AND [type] "& _ "IS NULL) OR ([type] = @Original_type)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_reference", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "reference", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_reference", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "reference", 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.NVarChar, 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_createdAt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "createdAt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_createdAt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "createdAt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_modifiedAt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "modifiedAt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_modifiedAt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "modifiedAt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uploadedDocuments", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uploadedDocuments", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uploadedDocuments", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uploadedDocuments", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_licencePlate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "licencePlate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_licencePlate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "licencePlate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_prepaper", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_prepaper", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_prepaper_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_prepaper_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_lkwCountryId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "lkwCountryId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_lkwCountryId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "lkwCountryId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_customsOfficeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customsOfficeNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_customsOfficeNr", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customsOfficeNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_settingsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "settingsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_settingsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "settingsId", 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.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "type", 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].[tblDigicust_Sendungen] ([AvisoId], [reference], [status], [dig"& _ "icustId], [createdAt], [modifiedAt], [uploadedDocuments], [companyId], [projectI"& _ "d], [licencePlate], [consignor_eori], [consignor_name], [consignor_address], [co"& _ "nsignor_city_name], [consignor_country_id], [consignor_postcode], [consignee_eor"& _ "i], [consignee_name], [consignee_address], [consignee_city_name], [consignee_cou"& _ "ntry_id], [consignee_postcode], [prepaper], [prepaper_code], [lkwCountryId], [cu"& _ "stomsOfficeNr], [settingsId], [type]) VALUES (@AvisoId, @reference, @status, @di"& _ "gicustId, @createdAt, @modifiedAt, @uploadedDocuments, @companyId, @projectId, @"& _ "licencePlate, @consignor_eori, @consignor_name, @consignor_address, @consignor_c"& _ "ity_name, @consignor_country_id, @consignor_postcode, @consignee_eori, @consigne"& _ "e_name, @consignee_address, @consignee_city_name, @consignee_country_id, @consig"& _ "nee_postcode, @prepaper, @prepaper_code, @lkwCountryId, @customsOfficeNr, @setti"& _ "ngsId, @type);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, AvisoId, reference, status, digicustId, createdAt, mo"& _ "difiedAt, uploadedDocuments, companyId, projectId, licencePlate, consignor_eori,"& _ " consignor_name, consignor_address, consignor_city_name, consignor_country_id, c"& _ "onsignor_postcode, consignee_eori, consignee_name, consignee_address, consignee_"& _ "city_name, consignee_country_id, consignee_postcode, prepaper, prepaper_code, lk"& _ "wCountryId, customsOfficeNr, settingsId, type FROM tblDigicust_Sendungen WHERE ("& _ "Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@reference", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "reference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@status", Global.System.Data.SqlDbType.NVarChar, 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("@digicustId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "digicustId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@createdAt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "createdAt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@modifiedAt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "modifiedAt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uploadedDocuments", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uploadedDocuments", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@companyId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@projectId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "projectId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@licencePlate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "licencePlate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@prepaper", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@prepaper_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@lkwCountryId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "lkwCountryId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customsOfficeNr", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customsOfficeNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@settingsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "settingsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@type", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "type", 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].[tblDigicust_Sendungen] SET [AvisoId] = @AvisoId, [reference] = @ref"& _ "erence, [status] = @status, [digicustId] = @digicustId, [createdAt] = @createdAt"& _ ", [modifiedAt] = @modifiedAt, [uploadedDocuments] = @uploadedDocuments, [company"& _ "Id] = @companyId, [projectId] = @projectId, [licencePlate] = @licencePlate, [con"& _ "signor_eori] = @consignor_eori, [consignor_name] = @consignor_name, [consignor_a"& _ "ddress] = @consignor_address, [consignor_city_name] = @consignor_city_name, [con"& _ "signor_country_id] = @consignor_country_id, [consignor_postcode] = @consignor_po"& _ "stcode, [consignee_eori] = @consignee_eori, [consignee_name] = @consignee_name, "& _ "[consignee_address] = @consignee_address, [consignee_city_name] = @consignee_cit"& _ "y_name, [consignee_country_id] = @consignee_country_id, [consignee_postcode] = @"& _ "consignee_postcode, [prepaper] = @prepaper, [prepaper_code] = @prepaper_code, [l"& _ "kwCountryId] = @lkwCountryId, [customsOfficeNr] = @customsOfficeNr, [settingsId]"& _ " = @settingsId, [type] = @type WHERE (([Id] = @Original_Id) AND ((@IsNull_AvisoI"& _ "d = 1 AND [AvisoId] IS NULL) OR ([AvisoId] = @Original_AvisoId)) AND ((@IsNull_r"& _ "eference = 1 AND [reference] IS NULL) OR ([reference] = @Original_reference)) AN"& _ "D ((@IsNull_status = 1 AND [status] IS NULL) OR ([status] = @Original_status)) A"& _ "ND ((@IsNull_createdAt = 1 AND [createdAt] IS NULL) OR ([createdAt] = @Original_"& _ "createdAt)) AND ((@IsNull_modifiedAt = 1 AND [modifiedAt] IS NULL) OR ([modified"& _ "At] = @Original_modifiedAt)) AND ((@IsNull_uploadedDocuments = 1 AND [uploadedDo"& _ "cuments] IS NULL) OR ([uploadedDocuments] = @Original_uploadedDocuments)) AND (("& _ "@IsNull_licencePlate = 1 AND [licencePlate] IS NULL) OR ([licencePlate] = @Origi"& _ "nal_licencePlate)) AND ((@IsNull_consignor_eori = 1 AND [consignor_eori] IS NULL"& _ ") OR ([consignor_eori] = @Original_consignor_eori)) AND ((@IsNull_consignor_name"& _ " = 1 AND [consignor_name] IS NULL) OR ([consignor_name] = @Original_consignor_na"& _ "me)) AND ((@IsNull_consignor_address = 1 AND [consignor_address] IS NULL) OR ([c"& _ "onsignor_address] = @Original_consignor_address)) AND ((@IsNull_consignor_city_n"& _ "ame = 1 AND [consignor_city_name] IS NULL) OR ([consignor_city_name] = @Original"& _ "_consignor_city_name)) AND ((@IsNull_consignor_country_id = 1 AND [consignor_cou"& _ "ntry_id] IS NULL) OR ([consignor_country_id] = @Original_consignor_country_id)) "& _ "AND ((@IsNull_consignor_postcode = 1 AND [consignor_postcode] IS NULL) OR ([cons"& _ "ignor_postcode] = @Original_consignor_postcode)) AND ((@IsNull_consignee_eori = "& _ "1 AND [consignee_eori] IS NULL) OR ([consignee_eori] = @Original_consignee_eori)"& _ ") AND ((@IsNull_consignee_name = 1 AND [consignee_name] IS NULL) OR ([consignee_"& _ "name] = @Original_consignee_name)) AND ((@IsNull_consignee_address = 1 AND [cons"& _ "ignee_address] IS NULL) OR ([consignee_address] = @Original_consignee_address)) "& _ "AND ((@IsNull_consignee_city_name = 1 AND [consignee_city_name] IS NULL) OR ([co"& _ "nsignee_city_name] = @Original_consignee_city_name)) AND ((@IsNull_consignee_cou"& _ "ntry_id = 1 AND [consignee_country_id] IS NULL) OR ([consignee_country_id] = @Or"& _ "iginal_consignee_country_id)) AND ((@IsNull_consignee_postcode = 1 AND [consigne"& _ "e_postcode] IS NULL) OR ([consignee_postcode] = @Original_consignee_postcode)) A"& _ "ND ((@IsNull_prepaper = 1 AND [prepaper] IS NULL) OR ([prepaper] = @Original_pre"& _ "paper)) AND ((@IsNull_prepaper_code = 1 AND [prepaper_code] IS NULL) OR ([prepap"& _ "er_code] = @Original_prepaper_code)) AND ((@IsNull_lkwCountryId = 1 AND [lkwCoun"& _ "tryId] IS NULL) OR ([lkwCountryId] = @Original_lkwCountryId)) AND ((@IsNull_cust"& _ "omsOfficeNr = 1 AND [customsOfficeNr] IS NULL) OR ([customsOfficeNr] = @Original"& _ "_customsOfficeNr)) AND ((@IsNull_settingsId = 1 AND [settingsId] IS NULL) OR ([s"& _ "ettingsId] = @Original_settingsId)) AND ((@IsNull_type = 1 AND [type] IS NULL) O"& _ "R ([type] = @Original_type)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, AvisoId, reference, status, digicustI"& _ "d, createdAt, modifiedAt, uploadedDocuments, companyId, projectId, licencePlate,"& _ " consignor_eori, consignor_name, consignor_address, consignor_city_name, consign"& _ "or_country_id, consignor_postcode, consignee_eori, consignee_name, consignee_add"& _ "ress, consignee_city_name, consignee_country_id, consignee_postcode, prepaper, p"& _ "repaper_code, lkwCountryId, customsOfficeNr, settingsId, type FROM tblDigicust_S"& _ "endungen WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@reference", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "reference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@status", Global.System.Data.SqlDbType.NVarChar, 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("@digicustId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "digicustId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@createdAt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "createdAt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@modifiedAt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "modifiedAt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uploadedDocuments", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uploadedDocuments", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@companyId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@projectId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "projectId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@licencePlate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "licencePlate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@prepaper", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@prepaper_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@lkwCountryId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "lkwCountryId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customsOfficeNr", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customsOfficeNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@settingsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "settingsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@type", Global.System.Data.SqlDbType.NChar, 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("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_reference", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "reference", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_reference", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "reference", 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.NVarChar, 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_createdAt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "createdAt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_createdAt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "createdAt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_modifiedAt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "modifiedAt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_modifiedAt", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "modifiedAt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uploadedDocuments", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uploadedDocuments", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uploadedDocuments", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uploadedDocuments", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_licencePlate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "licencePlate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_licencePlate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "licencePlate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_prepaper", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_prepaper", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_prepaper_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_prepaper_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "prepaper_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_lkwCountryId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "lkwCountryId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_lkwCountryId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "lkwCountryId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_customsOfficeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customsOfficeNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_customsOfficeNr", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customsOfficeNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_settingsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "settingsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_settingsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "settingsId", 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.NChar, 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("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, AvisoId, reference, status, digicustId, createdAt, modifiedAt, uploade"& _ "dDocuments, companyId, projectId, licencePlate, consignor_eori, consignor_name, "& _ "consignor_address, consignor_city_name, consignor_country_id, consignor_postcode"& _ ", consignee_eori, consignee_name, consignee_address, consignee_city_name, consig"& _ "nee_country_id, consignee_postcode, prepaper, prepaper_code, lkwCountryId, custo"& _ "msOfficeNr, settingsId, type FROM dbo.tblDigicust_Sendungen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDigicust_SendungenDataTable) 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 VERAGDataSet.tblDigicust_SendungenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDigicust_SendungenDataTable = New VERAGDataSet.tblDigicust_SendungenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDigicust_SendungenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDigicust_Sendungen") 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_Id As Integer, _ ByVal Original_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_reference As String, _ ByVal Original_status As String, _ ByVal Original_createdAt As Global.System.Nullable(Of Date), _ ByVal Original_modifiedAt As Global.System.Nullable(Of Date), _ ByVal Original_uploadedDocuments As Global.System.Nullable(Of Integer), _ ByVal Original_licencePlate As String, _ ByVal Original_consignor_eori As String, _ ByVal Original_consignor_name As String, _ ByVal Original_consignor_address As String, _ ByVal Original_consignor_city_name As String, _ ByVal Original_consignor_country_id As String, _ ByVal Original_consignor_postcode As String, _ ByVal Original_consignee_eori As String, _ ByVal Original_consignee_name As String, _ ByVal Original_consignee_address As String, _ ByVal Original_consignee_city_name As String, _ ByVal Original_consignee_country_id As String, _ ByVal Original_consignee_postcode As String, _ ByVal Original_prepaper As String, _ ByVal Original_prepaper_code As String, _ ByVal Original_lkwCountryId As String, _ ByVal Original_customsOfficeNr As String, _ ByVal Original_settingsId As Global.System.Nullable(Of Integer), _ ByVal Original_type As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) If (Original_AvisoId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_AvisoId.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_reference 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_reference,String) End If If (Original_status 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_status,String) End If If (Original_createdAt.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_createdAt.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_modifiedAt.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_modifiedAt.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_uploadedDocuments.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_uploadedDocuments.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_licencePlate 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_licencePlate,String) End If If (Original_consignor_eori Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_consignor_eori,String) End If If (Original_consignor_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_consignor_name,String) End If If (Original_consignor_address Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_consignor_address,String) End If If (Original_consignor_city_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_consignor_city_name,String) End If If (Original_consignor_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_consignor_country_id,String) End If If (Original_consignor_postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_consignor_postcode,String) End If If (Original_consignee_eori Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_consignee_eori,String) End If If (Original_consignee_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_consignee_name,String) End If If (Original_consignee_address Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_consignee_address,String) End If If (Original_consignee_city_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_consignee_city_name,String) End If If (Original_consignee_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_consignee_country_id,String) End If If (Original_consignee_postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_consignee_postcode,String) End If If (Original_prepaper Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_prepaper,String) End If If (Original_prepaper_code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_prepaper_code,String) End If If (Original_lkwCountryId Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_lkwCountryId,String) End If If (Original_customsOfficeNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_customsOfficeNr,String) End If If (Original_settingsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_settingsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Original_type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_type,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 AvisoId As Global.System.Nullable(Of Integer), _ ByVal reference As String, _ ByVal status As String, _ ByVal digicustId As String, _ ByVal createdAt As Global.System.Nullable(Of Date), _ ByVal modifiedAt As Global.System.Nullable(Of Date), _ ByVal uploadedDocuments As Global.System.Nullable(Of Integer), _ ByVal companyId As String, _ ByVal projectId As String, _ ByVal licencePlate As String, _ ByVal consignor_eori As String, _ ByVal consignor_name As String, _ ByVal consignor_address As String, _ ByVal consignor_city_name As String, _ ByVal consignor_country_id As String, _ ByVal consignor_postcode As String, _ ByVal consignee_eori As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal prepaper As String, _ ByVal prepaper_code As String, _ ByVal lkwCountryId As String, _ ByVal customsOfficeNr As String, _ ByVal settingsId As Global.System.Nullable(Of Integer), _ ByVal type As String) As Integer If (AvisoId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(AvisoId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (reference Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(reference,String) End If If (status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(status,String) End If If (digicustId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(digicustId,String) End If If (createdAt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(createdAt.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (modifiedAt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(modifiedAt.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (uploadedDocuments.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(uploadedDocuments.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (companyId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(companyId,String) End If If (projectId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(projectId,String) End If If (licencePlate Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(licencePlate,String) End If If (consignor_eori Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(consignor_eori,String) End If If (consignor_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(consignor_name,String) End If If (consignor_address Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(consignor_address,String) End If If (consignor_city_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(consignor_city_name,String) End If If (consignor_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(consignor_country_id,String) End If If (consignor_postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(consignor_postcode,String) End If If (consignee_eori Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(consignee_eori,String) End If If (consignee_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(consignee_name,String) End If If (consignee_address Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(consignee_address,String) End If If (consignee_city_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(consignee_city_name,String) End If If (consignee_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(consignee_country_id,String) End If If (consignee_postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(consignee_postcode,String) End If If (prepaper Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(prepaper,String) End If If (prepaper_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(prepaper_code,String) End If If (lkwCountryId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(lkwCountryId,String) End If If (customsOfficeNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(customsOfficeNr,String) End If If (settingsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(settingsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(type,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 AvisoId As Global.System.Nullable(Of Integer), _ ByVal reference As String, _ ByVal status As String, _ ByVal digicustId As String, _ ByVal createdAt As Global.System.Nullable(Of Date), _ ByVal modifiedAt As Global.System.Nullable(Of Date), _ ByVal uploadedDocuments As Global.System.Nullable(Of Integer), _ ByVal companyId As String, _ ByVal projectId As String, _ ByVal licencePlate As String, _ ByVal consignor_eori As String, _ ByVal consignor_name As String, _ ByVal consignor_address As String, _ ByVal consignor_city_name As String, _ ByVal consignor_country_id As String, _ ByVal consignor_postcode As String, _ ByVal consignee_eori As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal prepaper As String, _ ByVal prepaper_code As String, _ ByVal lkwCountryId As String, _ ByVal customsOfficeNr As String, _ ByVal settingsId As Global.System.Nullable(Of Integer), _ ByVal type As String, _ ByVal Original_Id As Integer, _ ByVal Original_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_reference As String, _ ByVal Original_status As String, _ ByVal Original_createdAt As Global.System.Nullable(Of Date), _ ByVal Original_modifiedAt As Global.System.Nullable(Of Date), _ ByVal Original_uploadedDocuments As Global.System.Nullable(Of Integer), _ ByVal Original_licencePlate As String, _ ByVal Original_consignor_eori As String, _ ByVal Original_consignor_name As String, _ ByVal Original_consignor_address As String, _ ByVal Original_consignor_city_name As String, _ ByVal Original_consignor_country_id As String, _ ByVal Original_consignor_postcode As String, _ ByVal Original_consignee_eori As String, _ ByVal Original_consignee_name As String, _ ByVal Original_consignee_address As String, _ ByVal Original_consignee_city_name As String, _ ByVal Original_consignee_country_id As String, _ ByVal Original_consignee_postcode As String, _ ByVal Original_prepaper As String, _ ByVal Original_prepaper_code As String, _ ByVal Original_lkwCountryId As String, _ ByVal Original_customsOfficeNr As String, _ ByVal Original_settingsId As Global.System.Nullable(Of Integer), _ ByVal Original_type As String, _ ByVal Id As Integer) As Integer If (AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (reference Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(reference,String) End If If (status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(status,String) End If If (digicustId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(digicustId,String) End If If (createdAt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(createdAt.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (modifiedAt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(modifiedAt.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (uploadedDocuments.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(uploadedDocuments.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (companyId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(companyId,String) End If If (projectId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(projectId,String) End If If (licencePlate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(licencePlate,String) End If If (consignor_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(consignor_eori,String) End If If (consignor_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(consignor_name,String) End If If (consignor_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(consignor_address,String) End If If (consignor_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(consignor_city_name,String) End If If (consignor_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(consignor_country_id,String) End If If (consignor_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(consignor_postcode,String) End If If (consignee_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(consignee_eori,String) End If If (consignee_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(consignee_name,String) End If If (consignee_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(consignee_address,String) End If If (consignee_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(consignee_city_name,String) End If If (consignee_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(consignee_country_id,String) End If If (consignee_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(consignee_postcode,String) End If If (prepaper Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(prepaper,String) End If If (prepaper_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(prepaper_code,String) End If If (lkwCountryId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(lkwCountryId,String) End If If (customsOfficeNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(customsOfficeNr,String) End If If (settingsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(settingsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(type,String) End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_Id,Integer) If (Original_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_reference 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_reference,String) End If If (Original_status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_status,String) End If If (Original_createdAt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_createdAt.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Original_modifiedAt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_modifiedAt.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (Original_uploadedDocuments.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_uploadedDocuments.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (Original_licencePlate 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_licencePlate,String) End If If (Original_consignor_eori 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_consignor_eori,String) End If If (Original_consignor_name 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_consignor_name,String) End If If (Original_consignor_address 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_consignor_address,String) End If If (Original_consignor_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_consignor_city_name,String) End If If (Original_consignor_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_consignor_country_id,String) End If If (Original_consignor_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_consignor_postcode,String) End If If (Original_consignee_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_consignee_eori,String) End If If (Original_consignee_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_consignee_name,String) End If If (Original_consignee_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_consignee_address,String) End If If (Original_consignee_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_consignee_city_name,String) End If If (Original_consignee_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_consignee_country_id,String) End If If (Original_consignee_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_consignee_postcode,String) End If If (Original_prepaper Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_prepaper,String) End If If (Original_prepaper_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_prepaper_code,String) End If If (Original_lkwCountryId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_lkwCountryId,String) End If If (Original_customsOfficeNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_customsOfficeNr,String) End If If (Original_settingsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_settingsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (Original_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_type,String) End If Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Id,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 AvisoId As Global.System.Nullable(Of Integer), _ ByVal reference As String, _ ByVal status As String, _ ByVal digicustId As String, _ ByVal createdAt As Global.System.Nullable(Of Date), _ ByVal modifiedAt As Global.System.Nullable(Of Date), _ ByVal uploadedDocuments As Global.System.Nullable(Of Integer), _ ByVal companyId As String, _ ByVal projectId As String, _ ByVal licencePlate As String, _ ByVal consignor_eori As String, _ ByVal consignor_name As String, _ ByVal consignor_address As String, _ ByVal consignor_city_name As String, _ ByVal consignor_country_id As String, _ ByVal consignor_postcode As String, _ ByVal consignee_eori As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal prepaper As String, _ ByVal prepaper_code As String, _ ByVal lkwCountryId As String, _ ByVal customsOfficeNr As String, _ ByVal settingsId As Global.System.Nullable(Of Integer), _ ByVal type As String, _ ByVal Original_Id As Integer, _ ByVal Original_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_reference As String, _ ByVal Original_status As String, _ ByVal Original_createdAt As Global.System.Nullable(Of Date), _ ByVal Original_modifiedAt As Global.System.Nullable(Of Date), _ ByVal Original_uploadedDocuments As Global.System.Nullable(Of Integer), _ ByVal Original_licencePlate As String, _ ByVal Original_consignor_eori As String, _ ByVal Original_consignor_name As String, _ ByVal Original_consignor_address As String, _ ByVal Original_consignor_city_name As String, _ ByVal Original_consignor_country_id As String, _ ByVal Original_consignor_postcode As String, _ ByVal Original_consignee_eori As String, _ ByVal Original_consignee_name As String, _ ByVal Original_consignee_address As String, _ ByVal Original_consignee_city_name As String, _ ByVal Original_consignee_country_id As String, _ ByVal Original_consignee_postcode As String, _ ByVal Original_prepaper As String, _ ByVal Original_prepaper_code As String, _ ByVal Original_lkwCountryId As String, _ ByVal Original_customsOfficeNr As String, _ ByVal Original_settingsId As Global.System.Nullable(Of Integer), _ ByVal Original_type As String) As Integer Return Me.Update(AvisoId, reference, status, digicustId, createdAt, modifiedAt, uploadedDocuments, companyId, projectId, licencePlate, consignor_eori, consignor_name, consignor_address, consignor_city_name, consignor_country_id, consignor_postcode, consignee_eori, consignee_name, consignee_address, consignee_city_name, consignee_country_id, consignee_postcode, prepaper, prepaper_code, lkwCountryId, customsOfficeNr, settingsId, type, Original_Id, Original_AvisoId, Original_reference, Original_status, Original_createdAt, Original_modifiedAt, Original_uploadedDocuments, Original_licencePlate, Original_consignor_eori, Original_consignor_name, Original_consignor_address, Original_consignor_city_name, Original_consignor_country_id, Original_consignor_postcode, Original_consignee_eori, Original_consignee_name, Original_consignee_address, Original_consignee_city_name, Original_consignee_country_id, Original_consignee_postcode, Original_prepaper, Original_prepaper_code, Original_lkwCountryId, Original_customsOfficeNr, Original_settingsId, Original_type, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDigicust_SessionsTableAdapter 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 = "tblDigicust_Sessions" tableMapping.ColumnMappings.Add("session_Id", "session_Id") tableMapping.ColumnMappings.Add("token", "token") tableMapping.ColumnMappings.Add("datetime", "datetime") tableMapping.ColumnMappings.Add("refresh_token", "refresh_token") tableMapping.ColumnMappings.Add("token_validuntil", "token_validuntil") 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].[tblDigicust_Sessions] WHERE (([session_Id] = @Original_session"& _ "_Id) AND ([datetime] = @Original_datetime) AND ((@IsNull_token_validuntil = 1 AN"& _ "D [token_validuntil] IS NULL) OR ([token_validuntil] = @Original_token_validunti"& _ "l)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_session_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "session_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_token_validuntil", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_token_validuntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", 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].[tblDigicust_Sessions] ([token], [datetime], [refresh_token], ["& _ "token_validuntil]) VALUES (@token, @datetime, @refresh_token, @token_validuntil)"& _ ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT session_Id, token, datetime, refresh_token, token_validuntil FROM tblD"& _ "igicust_Sessions WHERE (session_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@token", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refresh_token", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refresh_token", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@token_validuntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", 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].[tblDigicust_Sessions] SET [token] = @token, [datetime] = @datetime,"& _ " [refresh_token] = @refresh_token, [token_validuntil] = @token_validuntil WHERE "& _ "(([session_Id] = @Original_session_Id) AND ([datetime] = @Original_datetime) AND"& _ " ((@IsNull_token_validuntil = 1 AND [token_validuntil] IS NULL) OR ([token_valid"& _ "until] = @Original_token_validuntil)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT session_Id, token, datetime, ref"& _ "resh_token, token_validuntil FROM tblDigicust_Sessions WHERE (session_Id = @sess"& _ "ion_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@token", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refresh_token", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refresh_token", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@token_validuntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_session_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "session_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_token_validuntil", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_token_validuntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "token_validuntil", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@session_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "session_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 session_Id, token, datetime, refresh_token, token_validuntil FROM dbo.tblD"& _ "igicust_Sessions" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDigicust_SessionsDataTable) 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 VERAGDataSet.tblDigicust_SessionsDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDigicust_SessionsDataTable = New VERAGDataSet.tblDigicust_SessionsDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDigicust_SessionsDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDigicust_Sessions") 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_session_Id As Integer, ByVal Original_datetime As Date, ByVal Original_token_validuntil As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_session_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_datetime,Date) If (Original_token_validuntil.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_token_validuntil.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).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 token As String, ByVal datetime As Date, ByVal refresh_token As String, ByVal token_validuntil As Global.System.Nullable(Of Date)) As Integer If (token Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(token,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(datetime,Date) If (refresh_token Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(refresh_token,String) End If If (token_validuntil.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(token_validuntil.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 token As String, ByVal datetime As Date, ByVal refresh_token As String, ByVal token_validuntil As Global.System.Nullable(Of Date), ByVal Original_session_Id As Integer, ByVal Original_datetime As Date, ByVal Original_token_validuntil As Global.System.Nullable(Of Date), ByVal session_Id As Integer) As Integer If (token Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(token,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(datetime,Date) If (refresh_token Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(refresh_token,String) End If If (token_validuntil.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(token_validuntil.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_session_Id,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_datetime,Date) If (Original_token_validuntil.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_token_validuntil.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(session_Id,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 token As String, ByVal datetime As Date, ByVal refresh_token As String, ByVal token_validuntil As Global.System.Nullable(Of Date), ByVal Original_session_Id As Integer, ByVal Original_datetime As Date, ByVal Original_token_validuntil As Global.System.Nullable(Of Date)) As Integer Return Me.Update(token, datetime, refresh_token, token_validuntil, Original_session_Id, Original_datetime, Original_token_validuntil, Original_session_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblDigicust_SettingsTableAdapter 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 = "tblDigicust_Settings" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("customerId", "customerId") tableMapping.ColumnMappings.Add("projectId", "projectId") tableMapping.ColumnMappings.Add("executionStrategyId", "executionStrategyId") tableMapping.ColumnMappings.Add("validUntil", "validUntil") tableMapping.ColumnMappings.Add("valid", "valid") tableMapping.ColumnMappings.Add("companyId", "companyId") tableMapping.ColumnMappings.Add("description", "description") tableMapping.ColumnMappings.Add("companyGroup", "companyGroup") tableMapping.ColumnMappings.Add("type", "type") 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].[tblDigicust_Settings] WHERE (([Id] = @Original_Id) AND ((@IsNu"& _ "ll_validUntil = 1 AND [validUntil] IS NULL) OR ([validUntil] = @Original_validUn"& _ "til)) AND ((@IsNull_valid = 1 AND [valid] IS NULL) OR ([valid] = @Original_valid"& _ ")) AND ((@IsNull_companyId = 1 AND [companyId] IS NULL) OR ([companyId] = @Origi"& _ "nal_companyId)) AND ((@IsNull_description = 1 AND [description] IS NULL) OR ([de"& _ "scription] = @Original_description)) AND ((@IsNull_companyGroup = 1 AND [company"& _ "Group] IS NULL) OR ([companyGroup] = @Original_companyGroup)) AND ((@IsNull_type"& _ " = 1 AND [type] IS NULL) OR ([type] = @Original_type)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_validUntil", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "validUntil", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_validUntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "validUntil", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_valid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valid", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_companyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_companyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyId", 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.NVarChar, 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_companyGroup", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyGroup", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_companyGroup", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyGroup", 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.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "type", 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].[tblDigicust_Settings] ([customerId], [projectId], [executionSt"& _ "rategyId], [validUntil], [valid], [companyId], [description], [companyGroup], [t"& _ "ype]) VALUES (@customerId, @projectId, @executionStrategyId, @validUntil, @valid"& _ ", @companyId, @description, @companyGroup, @type);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, customerId, proje"& _ "ctId, executionStrategyId, validUntil, valid, companyId, description, companyGro"& _ "up, type FROM tblDigicust_Settings WHERE (Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customerId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customerId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@projectId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "projectId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@executionStrategyId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "executionStrategyId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@validUntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "validUntil", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@companyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyId", 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("@companyGroup", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyGroup", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@type", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "type", 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].[tblDigicust_Settings] SET [customerId] = @customerId, [projectId] ="& _ " @projectId, [executionStrategyId] = @executionStrategyId, [validUntil] = @valid"& _ "Until, [valid] = @valid, [companyId] = @companyId, [description] = @description,"& _ " [companyGroup] = @companyGroup, [type] = @type WHERE (([Id] = @Original_Id) AND"& _ " ((@IsNull_validUntil = 1 AND [validUntil] IS NULL) OR ([validUntil] = @Original"& _ "_validUntil)) AND ((@IsNull_valid = 1 AND [valid] IS NULL) OR ([valid] = @Origin"& _ "al_valid)) AND ((@IsNull_companyId = 1 AND [companyId] IS NULL) OR ([companyId] "& _ "= @Original_companyId)) AND ((@IsNull_description = 1 AND [description] IS NULL)"& _ " OR ([description] = @Original_description)) AND ((@IsNull_companyGroup = 1 AND "& _ "[companyGroup] IS NULL) OR ([companyGroup] = @Original_companyGroup)) AND ((@IsN"& _ "ull_type = 1 AND [type] IS NULL) OR ([type] = @Original_type)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, cus"& _ "tomerId, projectId, executionStrategyId, validUntil, valid, companyId, descripti"& _ "on, companyGroup, type FROM tblDigicust_Settings WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customerId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customerId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@projectId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "projectId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@executionStrategyId", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "executionStrategyId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@validUntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "validUntil", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@companyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyId", 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("@companyGroup", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyGroup", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@type", Global.System.Data.SqlDbType.NChar, 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("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_validUntil", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "validUntil", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_validUntil", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "validUntil", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_valid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valid", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_companyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_companyId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyId", 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.NVarChar, 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_companyGroup", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyGroup", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_companyGroup", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "companyGroup", 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.NChar, 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("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, customerId, projectId, executionStrategyId, validUntil, valid, company"& _ "Id, description, companyGroup, type FROM dbo.tblDigicust_Settings" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblDigicust_SettingsDataTable) 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 VERAGDataSet.tblDigicust_SettingsDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblDigicust_SettingsDataTable = New VERAGDataSet.tblDigicust_SettingsDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblDigicust_SettingsDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblDigicust_Settings") 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_Id As Integer, ByVal Original_validUntil As Global.System.Nullable(Of Date), ByVal Original_valid As Global.System.Nullable(Of Boolean), ByVal Original_companyId As Global.System.Nullable(Of Integer), ByVal Original_description As String, ByVal Original_companyGroup As String, ByVal Original_type As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) If (Original_validUntil.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_validUntil.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Original_valid.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_valid.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_companyId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_companyId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_description 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_description,String) End If If (Original_companyGroup 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_companyGroup,String) End If If (Original_type 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_type,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 customerId As String, ByVal projectId As String, ByVal executionStrategyId As String, ByVal validUntil As Global.System.Nullable(Of Date), ByVal valid As Global.System.Nullable(Of Boolean), ByVal companyId As Global.System.Nullable(Of Integer), ByVal description As String, ByVal companyGroup As String, ByVal type As String) As Integer If (customerId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(customerId,String) End If If (projectId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(projectId,String) End If If (executionStrategyId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(executionStrategyId,String) End If If (validUntil.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(validUntil.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (valid.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(valid.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (companyId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(companyId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value 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 (companyGroup Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(companyGroup,String) End If If (type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(type,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 customerId As String, _ ByVal projectId As String, _ ByVal executionStrategyId As String, _ ByVal validUntil As Global.System.Nullable(Of Date), _ ByVal valid As Global.System.Nullable(Of Boolean), _ ByVal companyId As Global.System.Nullable(Of Integer), _ ByVal description As String, _ ByVal companyGroup As String, _ ByVal type As String, _ ByVal Original_Id As Integer, _ ByVal Original_validUntil As Global.System.Nullable(Of Date), _ ByVal Original_valid As Global.System.Nullable(Of Boolean), _ ByVal Original_companyId As Global.System.Nullable(Of Integer), _ ByVal Original_description As String, _ ByVal Original_companyGroup As String, _ ByVal Original_type As String, _ ByVal Id As Integer) As Integer If (customerId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(customerId,String) End If If (projectId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(projectId,String) End If If (executionStrategyId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(executionStrategyId,String) End If If (validUntil.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(validUntil.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (valid.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(valid.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (companyId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(companyId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value 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 (companyGroup Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(companyGroup,String) End If If (type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(type,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Id,Integer) If (Original_validUntil.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_validUntil.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_valid.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_valid.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_companyId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_companyId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_description Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_description,String) End If If (Original_companyGroup 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_companyGroup,String) End If If (Original_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_type,String) End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Id,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 customerId As String, _ ByVal projectId As String, _ ByVal executionStrategyId As String, _ ByVal validUntil As Global.System.Nullable(Of Date), _ ByVal valid As Global.System.Nullable(Of Boolean), _ ByVal companyId As Global.System.Nullable(Of Integer), _ ByVal description As String, _ ByVal companyGroup As String, _ ByVal type As String, _ ByVal Original_Id As Integer, _ ByVal Original_validUntil As Global.System.Nullable(Of Date), _ ByVal Original_valid As Global.System.Nullable(Of Boolean), _ ByVal Original_companyId As Global.System.Nullable(Of Integer), _ ByVal Original_description As String, _ ByVal Original_companyGroup As String, _ ByVal Original_type As String) As Integer Return Me.Update(customerId, projectId, executionStrategyId, validUntil, valid, companyId, description, companyGroup, type, Original_Id, Original_validUntil, Original_valid, Original_companyId, Original_description, Original_companyGroup, Original_type, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblEABelegnummerTableAdapter 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 = "tblEABelegnummer" tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("Benutzer", "Benutzer") tableMapping.ColumnMappings.Add("BelegDat", "BelegDat") tableMapping.ColumnMappings.Add("BelegNr", "BelegNr") tableMapping.ColumnMappings.Add("Belegart", "Belegart") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("Ordnungsbegriff", "Ordnungsbegriff") tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("Name1", "Name1") tableMapping.ColumnMappings.Add("Name2", "Name2") tableMapping.ColumnMappings.Add("Straße", "Straße") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("PLZ", "PLZ") tableMapping.ColumnMappings.Add("Ort", "Ort") tableMapping.ColumnMappings.Add("UstIdKz", "UstIdKz") tableMapping.ColumnMappings.Add("UstIdNr", "UstIdNr") tableMapping.ColumnMappings.Add("Frachtführer", "Frachtführer") tableMapping.ColumnMappings.Add("FrachtführerKundenNr", "FrachtführerKundenNr") tableMapping.ColumnMappings.Add("LKW Kennzeichen", "LKW Kennzeichen") tableMapping.ColumnMappings.Add("Fahrer", "Fahrer") tableMapping.ColumnMappings.Add("Passnummer", "Passnummer") tableMapping.ColumnMappings.Add("PreislistenNr", "PreislistenNr") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("DruckDatumUhrzeit", "DruckDatumUhrzeit") tableMapping.ColumnMappings.Add("storniert", "storniert") tableMapping.ColumnMappings.Add("Stornogrund", "Stornogrund") tableMapping.ColumnMappings.Add("gebucht", "gebucht") tableMapping.ColumnMappings.Add("gebuchtStorno", "gebuchtStorno") tableMapping.ColumnMappings.Add("SgutKompl", "SgutKompl") tableMapping.ColumnMappings.Add("EABNr_Zeitstempel", "EABNr_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("rksv_id", "rksv_id") tableMapping.ColumnMappings.Add("rksv_BelegId", "rksv_BelegId") tableMapping.ColumnMappings.Add("rksv_BelegIdStorno", "rksv_BelegIdStorno") tableMapping.ColumnMappings.Add("rksv_jws", "rksv_jws") tableMapping.ColumnMappings.Add("rksv_qr", "rksv_qr") tableMapping.ColumnMappings.Add("rksv_umsatz", "rksv_umsatz") tableMapping.ColumnMappings.Add("rksv_aktiv", "rksv_aktiv") tableMapping.ColumnMappings.Add("Beleg_TYP", "Beleg_TYP") tableMapping.ColumnMappings.Add("Auftraggeber_KdAuftragsnummer", "Auftraggeber_KdAuftragsnummer") tableMapping.ColumnMappings.Add("Auftraggeber_Provision", "Auftraggeber_Provision") tableMapping.ColumnMappings.Add("LKW_Id", "LKW_Id") tableMapping.ColumnMappings.Add("LKW_Beleg", "LKW_Beleg") tableMapping.ColumnMappings.Add("Benutzer_LG", "Benutzer_LG") 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].[tblEABelegnummer] WHERE (([Mandant] = @Original_Mandant) AND ("& _ "[Niederlassung] = @Original_Niederlassung) AND ([Benutzer] = @Original_Benutzer)"& _ " AND ([BelegDat] = @Original_BelegDat) AND ([BelegNr] = @Original_BelegNr) AND ("& _ "(@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsi"& _ "ze_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegDat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblEABelegnummer] ([Mandant], [Niederlassung], [Benutzer], [Be"& _ "legDat], [BelegNr], [Belegart], [FilialenNr], [AbfertigungsNr], [Ordnungsbegriff"& _ "], [KundenNr], [Name1], [Name2], [Straße], [LandKz], [PLZ], [Ort], [UstIdKz], [U"& _ "stIdNr], [Frachtführer], [FrachtführerKundenNr], [LKW Kennzeichen], [Fahrer], [P"& _ "assnummer], [PreislistenNr], [Steuerschlüssel], [DruckDatumUhrzeit], [storniert]"& _ ", [Stornogrund], [gebucht], [gebuchtStorno], [SgutKompl], [EABNr_Zeitstempel], ["& _ "rksv_id], [rksv_BelegId], [rksv_BelegIdStorno], [rksv_jws], [rksv_qr], [rksv_ums"& _ "atz], [rksv_aktiv], [Beleg_TYP], [Auftraggeber_KdAuftragsnummer], [Auftraggeber_"& _ "Provision], [LKW_Id], [LKW_Beleg], [Benutzer_LG]) VALUES (@Mandant, @Niederlassu"& _ "ng, @Benutzer, @BelegDat, @BelegNr, @Belegart, @FilialenNr, @AbfertigungsNr, @Or"& _ "dnungsbegriff, @KundenNr, @Name1, @Name2, @Straße, @LandKz, @PLZ, @Ort, @UstIdKz"& _ ", @UstIdNr, @Frachtführer, @FrachtführerKundenNr, @LKW_Kennzeichen, @Fahrer, @Pa"& _ "ssnummer, @PreislistenNr, @Steuerschlüssel, @DruckDatumUhrzeit, @storniert, @Sto"& _ "rnogrund, @gebucht, @gebuchtStorno, @SgutKompl, @EABNr_Zeitstempel, @rksv_id, @r"& _ "ksv_BelegId, @rksv_BelegIdStorno, @rksv_jws, @rksv_qr, @rksv_umsatz, @rksv_aktiv"& _ ", @Beleg_TYP, @Auftraggeber_KdAuftragsnummer, @Auftraggeber_Provision, @LKW_Id, "& _ "@LKW_Beleg, @Benutzer_LG);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Niederlassung, Benutzer, BelegDat, B"& _ "elegNr, Belegart, FilialenNr, AbfertigungsNr, Ordnungsbegriff, KundenNr, Name1, "& _ "Name2, Straße, LandKz, PLZ, Ort, UstIdKz, UstIdNr, Frachtführer, FrachtführerKun"& _ "denNr, [LKW Kennzeichen], Fahrer, Passnummer, PreislistenNr, Steuerschlüssel, Dr"& _ "uckDatumUhrzeit, storniert, Stornogrund, gebucht, gebuchtStorno, SgutKompl, EABN"& _ "r_Zeitstempel, upsize_ts, rksv_id, rksv_BelegId, rksv_BelegIdStorno, rksv_jws, r"& _ "ksv_qr, rksv_umsatz, rksv_aktiv, Beleg_TYP, Auftraggeber_KdAuftragsnummer, Auftr"& _ "aggeber_Provision, LKW_Id, LKW_Beleg, Benutzer_LG FROM tblEABelegnummer WHERE (B"& _ "elegDat = @BelegDat) AND (BelegNr = @BelegNr) AND (Benutzer = @Benutzer) AND (Ma"& _ "ndant = @Mandant) AND (Niederlassung = @Niederlassung)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ordnungsbegriff", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ordnungsbegriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Frachtführer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Frachtführer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FrachtführerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FrachtführerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fahrer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fahrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Passnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Passnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DruckDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DruckDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@storniert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "storniert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Stornogrund", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stornogrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gebucht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gebucht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gebuchtStorno", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gebuchtStorno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SgutKompl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SgutKompl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EABNr_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EABNr_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_BelegId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_BelegId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_BelegIdStorno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_BelegIdStorno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_jws", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_jws", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_qr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_qr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_umsatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_umsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Beleg_TYP", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Beleg_TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Auftraggeber_KdAuftragsnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Auftraggeber_KdAuftragsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Auftraggeber_Provision", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "Auftraggeber_Provision", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Beleg", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW_Beleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer_LG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer_LG", 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].[tblEABelegnummer] SET [Mandant] = @Mandant, [Niederlassung] = @Nied"& _ "erlassung, [Benutzer] = @Benutzer, [BelegDat] = @BelegDat, [BelegNr] = @BelegNr,"& _ " [Belegart] = @Belegart, [FilialenNr] = @FilialenNr, [AbfertigungsNr] = @Abferti"& _ "gungsNr, [Ordnungsbegriff] = @Ordnungsbegriff, [KundenNr] = @KundenNr, [Name1] ="& _ " @Name1, [Name2] = @Name2, [Straße] = @Straße, [LandKz] = @LandKz, [PLZ] = @PLZ,"& _ " [Ort] = @Ort, [UstIdKz] = @UstIdKz, [UstIdNr] = @UstIdNr, [Frachtführer] = @Fra"& _ "chtführer, [FrachtführerKundenNr] = @FrachtführerKundenNr, [LKW Kennzeichen] = @"& _ "LKW_Kennzeichen, [Fahrer] = @Fahrer, [Passnummer] = @Passnummer, [PreislistenNr]"& _ " = @PreislistenNr, [Steuerschlüssel] = @Steuerschlüssel, [DruckDatumUhrzeit] = @"& _ "DruckDatumUhrzeit, [storniert] = @storniert, [Stornogrund] = @Stornogrund, [gebu"& _ "cht] = @gebucht, [gebuchtStorno] = @gebuchtStorno, [SgutKompl] = @SgutKompl, [EA"& _ "BNr_Zeitstempel] = @EABNr_Zeitstempel, [rksv_id] = @rksv_id, [rksv_BelegId] = @r"& _ "ksv_BelegId, [rksv_BelegIdStorno] = @rksv_BelegIdStorno, [rksv_jws] = @rksv_jws,"& _ " [rksv_qr] = @rksv_qr, [rksv_umsatz] = @rksv_umsatz, [rksv_aktiv] = @rksv_aktiv,"& _ " [Beleg_TYP] = @Beleg_TYP, [Auftraggeber_KdAuftragsnummer] = @Auftraggeber_KdAuf"& _ "tragsnummer, [Auftraggeber_Provision] = @Auftraggeber_Provision, [LKW_Id] = @LKW"& _ "_Id, [LKW_Beleg] = @LKW_Beleg, [Benutzer_LG] = @Benutzer_LG WHERE (([Mandant] = "& _ "@Original_Mandant) AND ([Niederlassung] = @Original_Niederlassung) AND ([Benutze"& _ "r] = @Original_Benutzer) AND ([BelegDat] = @Original_BelegDat) AND ([BelegNr] = "& _ "@Original_BelegNr) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([ups"& _ "ize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Niederlassung, Benutzer, Bele"& _ "gDat, BelegNr, Belegart, FilialenNr, AbfertigungsNr, Ordnungsbegriff, KundenNr, "& _ "Name1, Name2, Straße, LandKz, PLZ, Ort, UstIdKz, UstIdNr, Frachtführer, Frachtfü"& _ "hrerKundenNr, [LKW Kennzeichen], Fahrer, Passnummer, PreislistenNr, Steuerschlüs"& _ "sel, DruckDatumUhrzeit, storniert, Stornogrund, gebucht, gebuchtStorno, SgutKomp"& _ "l, EABNr_Zeitstempel, upsize_ts, rksv_id, rksv_BelegId, rksv_BelegIdStorno, rksv"& _ "_jws, rksv_qr, rksv_umsatz, rksv_aktiv, Beleg_TYP, Auftraggeber_KdAuftragsnummer"& _ ", Auftraggeber_Provision, LKW_Id, LKW_Beleg, Benutzer_LG FROM tblEABelegnummer W"& _ "HERE (BelegDat = @BelegDat) AND (BelegNr = @BelegNr) AND (Benutzer = @Benutzer) "& _ "AND (Mandant = @Mandant) AND (Niederlassung = @Niederlassung)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ordnungsbegriff", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ordnungsbegriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Frachtführer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Frachtführer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FrachtführerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FrachtführerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fahrer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fahrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Passnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Passnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DruckDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DruckDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@storniert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "storniert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Stornogrund", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stornogrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gebucht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gebucht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gebuchtStorno", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gebuchtStorno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SgutKompl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SgutKompl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EABNr_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EABNr_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_BelegId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_BelegId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_BelegIdStorno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_BelegIdStorno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_jws", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_jws", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_qr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_qr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_umsatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_umsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Beleg_TYP", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Beleg_TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Auftraggeber_KdAuftragsnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Auftraggeber_KdAuftragsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Auftraggeber_Provision", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "Auftraggeber_Provision", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Beleg", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW_Beleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer_LG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer_LG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegDat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Mandant, Niederlassung, Benutzer, BelegDat, BelegNr, Belegart, FilialenNr,"& _ " AbfertigungsNr, Ordnungsbegriff, KundenNr, Name1, Name2, Straße, LandKz, PLZ, O"& _ "rt, UstIdKz, UstIdNr, Frachtführer, FrachtführerKundenNr, [LKW Kennzeichen], Fah"& _ "rer, Passnummer, PreislistenNr, Steuerschlüssel, DruckDatumUhrzeit, storniert, S"& _ "tornogrund, gebucht, gebuchtStorno, SgutKompl, EABNr_Zeitstempel, upsize_ts, rks"& _ "v_id, rksv_BelegId, rksv_BelegIdStorno, rksv_jws, rksv_qr, rksv_umsatz, rksv_akt"& _ "iv, Beleg_TYP, Auftraggeber_KdAuftragsnummer, Auftraggeber_Provision, LKW_Id, LK"& _ "W_Beleg, Benutzer_LG FROM dbo.tblEABelegnummer" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblEABelegnummerDataTable) 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 VERAGDataSet.tblEABelegnummerDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblEABelegnummerDataTable = New VERAGDataSet.tblEABelegnummerDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblEABelegnummerDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblEABelegnummer") 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_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_BelegDat As Date, ByVal Original_BelegNr As Integer, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Benutzer,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_BelegDat,Date) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_BelegNr,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Mandant As String, _ ByVal Niederlassung As String, _ ByVal Benutzer As Integer, _ ByVal BelegDat As Date, _ ByVal BelegNr As Integer, _ ByVal Belegart As Short, _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Ordnungsbegriff As String, _ ByVal KundenNr As Global.System.Nullable(Of Integer), _ ByVal Name1 As String, _ ByVal Name2 As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal Frachtführer As String, _ ByVal FrachtführerKundenNr As Global.System.Nullable(Of Integer), _ ByVal LKW_Kennzeichen As String, _ ByVal Fahrer As String, _ ByVal Passnummer As String, _ ByVal PreislistenNr As Global.System.Nullable(Of Short), _ ByVal Steuerschlüssel As Integer, _ ByVal DruckDatumUhrzeit As Global.System.Nullable(Of Date), _ ByVal storniert As Boolean, _ ByVal Stornogrund As String, _ ByVal gebucht As Boolean, _ ByVal gebuchtStorno As Boolean, _ ByVal SgutKompl As String, _ ByVal EABNr_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal rksv_id As Global.System.Nullable(Of Integer), _ ByVal rksv_BelegId As Global.System.Nullable(Of Integer), _ ByVal rksv_BelegIdStorno As Global.System.Nullable(Of Integer), _ ByVal rksv_jws As String, _ ByVal rksv_qr As String, _ ByVal rksv_umsatz As Global.System.Nullable(Of Double), _ ByVal rksv_aktiv As Boolean, _ ByVal Beleg_TYP As String, _ ByVal Auftraggeber_KdAuftragsnummer As String, _ ByVal Auftraggeber_Provision As Global.System.Nullable(Of Decimal), _ ByVal LKW_Id As Global.System.Nullable(Of Integer), _ ByVal LKW_Beleg As Global.System.Nullable(Of Boolean), _ ByVal Benutzer_LG As Global.System.Nullable(Of Integer)) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(BelegDat,Date) Me.Adapter.InsertCommand.Parameters(4).Value = CType(BelegNr,Integer) Me.Adapter.InsertCommand.Parameters(5).Value = CType(Belegart,Short) If (FilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Ordnungsbegriff Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Ordnungsbegriff,String) End If If (KundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(KundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Name1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Name1,String) End If If (Name2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Name2,String) End If If (Straße Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Straße,String) End If If (LandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(LandKz,String) End If If (PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(PLZ,String) End If If (Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Ort,String) End If If (UstIdKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(UstIdKz,String) End If If (UstIdNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(UstIdNr,String) End If If (Frachtführer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Frachtführer,String) End If If (FrachtführerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(FrachtführerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (LKW_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(LKW_Kennzeichen,String) End If If (Fahrer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(Fahrer,String) End If If (Passnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(Passnummer,String) End If If (PreislistenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(PreislistenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(24).Value = CType(Steuerschlüssel,Integer) If (DruckDatumUhrzeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(DruckDatumUhrzeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(26).Value = CType(storniert,Boolean) If (Stornogrund Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(Stornogrund,String) End If Me.Adapter.InsertCommand.Parameters(28).Value = CType(gebucht,Boolean) Me.Adapter.InsertCommand.Parameters(29).Value = CType(gebuchtStorno,Boolean) If (SgutKompl Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(SgutKompl,String) End If If (EABNr_Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(EABNr_Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (rksv_id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(rksv_id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (rksv_BelegId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(rksv_BelegId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (rksv_BelegIdStorno.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(rksv_BelegIdStorno.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (rksv_jws Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(rksv_jws,String) End If If (rksv_qr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(rksv_qr,String) End If If (rksv_umsatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(37).Value = CType(rksv_umsatz.Value,Double) Else Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(38).Value = CType(rksv_aktiv,Boolean) If (Beleg_TYP Is Nothing) Then Throw New Global.System.ArgumentNullException("Beleg_TYP") Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(Beleg_TYP,String) End If If (Auftraggeber_KdAuftragsnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(Auftraggeber_KdAuftragsnummer,String) End If If (Auftraggeber_Provision.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(41).Value = CType(Auftraggeber_Provision.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (LKW_Id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(42).Value = CType(LKW_Id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (LKW_Beleg.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(LKW_Beleg.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Benutzer_LG.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(44).Value = CType(Benutzer_LG.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(44).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 Mandant As String, _ ByVal Niederlassung As String, _ ByVal Benutzer As Integer, _ ByVal BelegDat As Date, _ ByVal BelegNr As Integer, _ ByVal Belegart As Short, _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Ordnungsbegriff As String, _ ByVal KundenNr As Global.System.Nullable(Of Integer), _ ByVal Name1 As String, _ ByVal Name2 As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal Frachtführer As String, _ ByVal FrachtführerKundenNr As Global.System.Nullable(Of Integer), _ ByVal LKW_Kennzeichen As String, _ ByVal Fahrer As String, _ ByVal Passnummer As String, _ ByVal PreislistenNr As Global.System.Nullable(Of Short), _ ByVal Steuerschlüssel As Integer, _ ByVal DruckDatumUhrzeit As Global.System.Nullable(Of Date), _ ByVal storniert As Boolean, _ ByVal Stornogrund As String, _ ByVal gebucht As Boolean, _ ByVal gebuchtStorno As Boolean, _ ByVal SgutKompl As String, _ ByVal EABNr_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal rksv_id As Global.System.Nullable(Of Integer), _ ByVal rksv_BelegId As Global.System.Nullable(Of Integer), _ ByVal rksv_BelegIdStorno As Global.System.Nullable(Of Integer), _ ByVal rksv_jws As String, _ ByVal rksv_qr As String, _ ByVal rksv_umsatz As Global.System.Nullable(Of Double), _ ByVal rksv_aktiv As Boolean, _ ByVal Beleg_TYP As String, _ ByVal Auftraggeber_KdAuftragsnummer As String, _ ByVal Auftraggeber_Provision As Global.System.Nullable(Of Decimal), _ ByVal LKW_Id As Global.System.Nullable(Of Integer), _ ByVal LKW_Beleg As Global.System.Nullable(Of Boolean), _ ByVal Benutzer_LG As Global.System.Nullable(Of Integer), _ ByVal Original_Mandant As String, _ ByVal Original_Niederlassung As String, _ ByVal Original_Benutzer As Integer, _ ByVal Original_BelegDat As Date, _ ByVal Original_BelegNr As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BelegDat,Date) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BelegNr,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Belegart,Short) If (FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Ordnungsbegriff Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Ordnungsbegriff,String) End If If (KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Name1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Name1,String) End If If (Name2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Name2,String) End If If (Straße Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Straße,String) End If If (LandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(LandKz,String) End If If (PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PLZ,String) End If If (Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Ort,String) End If If (UstIdKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(UstIdKz,String) End If If (UstIdNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(UstIdNr,String) End If If (Frachtführer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Frachtführer,String) End If If (FrachtführerKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(FrachtführerKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (LKW_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(LKW_Kennzeichen,String) End If If (Fahrer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Fahrer,String) End If If (Passnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Passnummer,String) End If If (PreislistenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(PreislistenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Steuerschlüssel,Integer) If (DruckDatumUhrzeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(DruckDatumUhrzeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(26).Value = CType(storniert,Boolean) If (Stornogrund Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Stornogrund,String) End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(gebucht,Boolean) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(gebuchtStorno,Boolean) If (SgutKompl Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(SgutKompl,String) End If If (EABNr_Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(EABNr_Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (rksv_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(rksv_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (rksv_BelegId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(rksv_BelegId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (rksv_BelegIdStorno.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(rksv_BelegIdStorno.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (rksv_jws Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(rksv_jws,String) End If If (rksv_qr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(rksv_qr,String) End If If (rksv_umsatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(rksv_umsatz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(38).Value = CType(rksv_aktiv,Boolean) If (Beleg_TYP Is Nothing) Then Throw New Global.System.ArgumentNullException("Beleg_TYP") Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Beleg_TYP,String) End If If (Auftraggeber_KdAuftragsnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Auftraggeber_KdAuftragsnummer,String) End If If (Auftraggeber_Provision.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Auftraggeber_Provision.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (LKW_Id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(LKW_Id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (LKW_Beleg.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(LKW_Beleg.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Benutzer_LG.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Benutzer_LG.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_BelegDat,Date) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_BelegNr,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_upsize_ts,Byte()) End If 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 Belegart As Short, _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Ordnungsbegriff As String, _ ByVal KundenNr As Global.System.Nullable(Of Integer), _ ByVal Name1 As String, _ ByVal Name2 As String, _ ByVal Straße As String, _ ByVal LandKz As String, _ ByVal PLZ As String, _ ByVal Ort As String, _ ByVal UstIdKz As String, _ ByVal UstIdNr As String, _ ByVal Frachtführer As String, _ ByVal FrachtführerKundenNr As Global.System.Nullable(Of Integer), _ ByVal LKW_Kennzeichen As String, _ ByVal Fahrer As String, _ ByVal Passnummer As String, _ ByVal PreislistenNr As Global.System.Nullable(Of Short), _ ByVal Steuerschlüssel As Integer, _ ByVal DruckDatumUhrzeit As Global.System.Nullable(Of Date), _ ByVal storniert As Boolean, _ ByVal Stornogrund As String, _ ByVal gebucht As Boolean, _ ByVal gebuchtStorno As Boolean, _ ByVal SgutKompl As String, _ ByVal EABNr_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal rksv_id As Global.System.Nullable(Of Integer), _ ByVal rksv_BelegId As Global.System.Nullable(Of Integer), _ ByVal rksv_BelegIdStorno As Global.System.Nullable(Of Integer), _ ByVal rksv_jws As String, _ ByVal rksv_qr As String, _ ByVal rksv_umsatz As Global.System.Nullable(Of Double), _ ByVal rksv_aktiv As Boolean, _ ByVal Beleg_TYP As String, _ ByVal Auftraggeber_KdAuftragsnummer As String, _ ByVal Auftraggeber_Provision As Global.System.Nullable(Of Decimal), _ ByVal LKW_Id As Global.System.Nullable(Of Integer), _ ByVal LKW_Beleg As Global.System.Nullable(Of Boolean), _ ByVal Benutzer_LG As Global.System.Nullable(Of Integer), _ ByVal Original_Mandant As String, _ ByVal Original_Niederlassung As String, _ ByVal Original_Benutzer As Integer, _ ByVal Original_BelegDat As Date, _ ByVal Original_BelegNr As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_BelegDat, Original_BelegNr, Belegart, FilialenNr, AbfertigungsNr, Ordnungsbegriff, KundenNr, Name1, Name2, Straße, LandKz, PLZ, Ort, UstIdKz, UstIdNr, Frachtführer, FrachtführerKundenNr, LKW_Kennzeichen, Fahrer, Passnummer, PreislistenNr, Steuerschlüssel, DruckDatumUhrzeit, storniert, Stornogrund, gebucht, gebuchtStorno, SgutKompl, EABNr_Zeitstempel, rksv_id, rksv_BelegId, rksv_BelegIdStorno, rksv_jws, rksv_qr, rksv_umsatz, rksv_aktiv, Beleg_TYP, Auftraggeber_KdAuftragsnummer, Auftraggeber_Provision, LKW_Id, LKW_Beleg, Benutzer_LG, Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_BelegDat, Original_BelegNr, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblEABelegpositionTableAdapter 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 = "tblEABelegposition" tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("Benutzer", "Benutzer") tableMapping.ColumnMappings.Add("BelegDat", "BelegDat") tableMapping.ColumnMappings.Add("BelegNr", "BelegNr") tableMapping.ColumnMappings.Add("PreislistenPos", "PreislistenPos") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("Leistungsbeschreibung", "Leistungsbeschreibung") tableMapping.ColumnMappings.Add("Abfertigungsart", "Abfertigungsart") tableMapping.ColumnMappings.Add("PreislistenNr", "PreislistenNr") tableMapping.ColumnMappings.Add("PreistabellenNr", "PreistabellenNr") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("TW1", "TW1") tableMapping.ColumnMappings.Add("TW2", "TW2") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") tableMapping.ColumnMappings.Add("Anzahlmultiplikator", "Anzahlmultiplikator") tableMapping.ColumnMappings.Add("Betrag", "Betrag") tableMapping.ColumnMappings.Add("Preisbindung", "Preisbindung") tableMapping.ColumnMappings.Add("EABPo_Zeitstempel", "EABPo_Zeitstempel") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblEABelegposition] WHERE (([Mandant] = @Original_Mandant) AND"& _ " ([Niederlassung] = @Original_Niederlassung) AND ([Benutzer] = @Original_Benutze"& _ "r) AND ([BelegDat] = @Original_BelegDat) AND ([BelegNr] = @Original_BelegNr) AND"& _ " ([PreislistenPos] = @Original_PreislistenPos) AND ([LeistungsNr] = @Original_Le"& _ "istungsNr) AND ([LeistungsBez] = @Original_LeistungsBez) AND ([Leistungsbeschrei"& _ "bung] = @Original_Leistungsbeschreibung) AND ([FilialenNr] = @Original_FilialenN"& _ "r) AND ([AbfertigungsNr] = @Original_AbfertigungsNr) AND ((@IsNull_upsize_ts = 1"& _ " AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegDat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreislistenPos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenPos", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Leistungsbeschreibung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsbeschreibung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblEABelegposition] ([Mandant], [Niederlassung], [Benutzer], ["& _ "BelegDat], [BelegNr], [PreislistenPos], [LeistungsNr], [LeistungsBez], [Leistung"& _ "sbeschreibung], [Abfertigungsart], [PreislistenNr], [PreistabellenNr], [Preis], "& _ "[TW1], [TW2], [Anzahl], [Anzahlmultiplikator], [Betrag], [Preisbindung], [EABPo_"& _ "Zeitstempel], [FilialenNr], [AbfertigungsNr]) VALUES (@Mandant, @Niederlassung, "& _ "@Benutzer, @BelegDat, @BelegNr, @PreislistenPos, @LeistungsNr, @LeistungsBez, @L"& _ "eistungsbeschreibung, @Abfertigungsart, @PreislistenNr, @PreistabellenNr, @Preis"& _ ", @TW1, @TW2, @Anzahl, @Anzahlmultiplikator, @Betrag, @Preisbindung, @EABPo_Zeit"& _ "stempel, @FilialenNr, @AbfertigungsNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Niederlassung, Benutzer"& _ ", BelegDat, BelegNr, PreislistenPos, LeistungsNr, LeistungsBez, Leistungsbeschre"& _ "ibung, Abfertigungsart, PreislistenNr, PreistabellenNr, Preis, TW1, TW2, Anzahl,"& _ " Anzahlmultiplikator, Betrag, Preisbindung, EABPo_Zeitstempel, FilialenNr, Abfer"& _ "tigungsNr, upsize_ts FROM tblEABelegposition WHERE (AbfertigungsNr = @Abfertigun"& _ "gsNr) AND (BelegDat = @BelegDat) AND (BelegNr = @BelegNr) AND (Benutzer = @Benut"& _ "zer) AND (FilialenNr = @FilialenNr) AND (LeistungsBez = @LeistungsBez) AND (Leis"& _ "tungsNr = @LeistungsNr) AND (Leistungsbeschreibung = @Leistungsbeschreibung) AND"& _ " (Mandant = @Mandant) AND (Niederlassung = @Niederlassung) AND (PreislistenPos ="& _ " @PreislistenPos)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenPos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenPos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsbeschreibung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TW1", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TW2", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahlmultiplikator", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahlmultiplikator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preisbindung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preisbindung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EABPo_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EABPo_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", 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].[tblEABelegposition] SET [Mandant] = @Mandant, [Niederlassung] = @Ni"& _ "ederlassung, [Benutzer] = @Benutzer, [BelegDat] = @BelegDat, [BelegNr] = @BelegN"& _ "r, [PreislistenPos] = @PreislistenPos, [LeistungsNr] = @LeistungsNr, [LeistungsB"& _ "ez] = @LeistungsBez, [Leistungsbeschreibung] = @Leistungsbeschreibung, [Abfertig"& _ "ungsart] = @Abfertigungsart, [PreislistenNr] = @PreislistenNr, [PreistabellenNr]"& _ " = @PreistabellenNr, [Preis] = @Preis, [TW1] = @TW1, [TW2] = @TW2, [Anzahl] = @A"& _ "nzahl, [Anzahlmultiplikator] = @Anzahlmultiplikator, [Betrag] = @Betrag, [Preisb"& _ "indung] = @Preisbindung, [EABPo_Zeitstempel] = @EABPo_Zeitstempel, [FilialenNr] "& _ "= @FilialenNr, [AbfertigungsNr] = @AbfertigungsNr WHERE (([Mandant] = @Original_"& _ "Mandant) AND ([Niederlassung] = @Original_Niederlassung) AND ([Benutzer] = @Orig"& _ "inal_Benutzer) AND ([BelegDat] = @Original_BelegDat) AND ([BelegNr] = @Original_"& _ "BelegNr) AND ([PreislistenPos] = @Original_PreislistenPos) AND ([LeistungsNr] = "& _ "@Original_LeistungsNr) AND ([LeistungsBez] = @Original_LeistungsBez) AND ([Leist"& _ "ungsbeschreibung] = @Original_Leistungsbeschreibung) AND ([FilialenNr] = @Origin"& _ "al_FilialenNr) AND ([AbfertigungsNr] = @Original_AbfertigungsNr) AND ((@IsNull_u"& _ "psize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Niederlassung, Benutzer, BelegDat, BelegNr, PreislistenPos, Lei"& _ "stungsNr, LeistungsBez, Leistungsbeschreibung, Abfertigungsart, PreislistenNr, P"& _ "reistabellenNr, Preis, TW1, TW2, Anzahl, Anzahlmultiplikator, Betrag, Preisbindu"& _ "ng, EABPo_Zeitstempel, FilialenNr, AbfertigungsNr, upsize_ts FROM tblEABelegposi"& _ "tion WHERE (AbfertigungsNr = @AbfertigungsNr) AND (BelegDat = @BelegDat) AND (Be"& _ "legNr = @BelegNr) AND (Benutzer = @Benutzer) AND (FilialenNr = @FilialenNr) AND "& _ "(LeistungsBez = @LeistungsBez) AND (LeistungsNr = @LeistungsNr) AND (Leistungsbe"& _ "schreibung = @Leistungsbeschreibung) AND (Mandant = @Mandant) AND (Niederlassung"& _ " = @Niederlassung) AND (PreislistenPos = @PreislistenPos)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenPos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenPos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsbeschreibung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TW1", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TW2", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahlmultiplikator", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahlmultiplikator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preisbindung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preisbindung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EABPo_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EABPo_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegDat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreislistenPos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenPos", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Leistungsbeschreibung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsbeschreibung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Mandant, Niederlassung, Benutzer, BelegDat, BelegNr, PreislistenPos, Leist"& _ "ungsNr, LeistungsBez, Leistungsbeschreibung, Abfertigungsart, PreislistenNr, Pre"& _ "istabellenNr, Preis, TW1, TW2, Anzahl, Anzahlmultiplikator, Betrag, Preisbindung"& _ ", EABPo_Zeitstempel, FilialenNr, AbfertigungsNr, upsize_ts FROM dbo.tblEABelegpo"& _ "sition" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblEABelegpositionDataTable) 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 VERAGDataSet.tblEABelegpositionDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblEABelegpositionDataTable = New VERAGDataSet.tblEABelegpositionDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblEABelegpositionDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblEABelegposition") 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_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_BelegDat As Date, ByVal Original_BelegNr As Integer, ByVal Original_PreislistenPos As Short, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_Leistungsbeschreibung As String, ByVal Original_FilialenNr As Integer, ByVal Original_AbfertigungsNr As Integer, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Benutzer,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_BelegDat,Date) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_BelegNr,Integer) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_PreislistenPos,Short) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_LeistungsBez,String) End If If (Original_Leistungsbeschreibung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Leistungsbeschreibung") Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Leistungsbeschreibung,String) End If Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_FilialenNr,Integer) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_AbfertigungsNr,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Mandant As String, _ ByVal Niederlassung As String, _ ByVal Benutzer As Integer, _ ByVal BelegDat As Date, _ ByVal BelegNr As Integer, _ ByVal PreislistenPos As Short, _ ByVal LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal Leistungsbeschreibung As String, _ ByVal Abfertigungsart As Global.System.Nullable(Of Short), _ ByVal PreislistenNr As Global.System.Nullable(Of Short), _ ByVal PreistabellenNr As Global.System.Nullable(Of Short), _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal TW1 As Global.System.Nullable(Of Short), _ ByVal TW2 As Global.System.Nullable(Of Short), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal Anzahlmultiplikator As Short, _ ByVal Betrag As Global.System.Nullable(Of Decimal), _ ByVal Preisbindung As Boolean, _ ByVal EABPo_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal FilialenNr As Integer, _ ByVal AbfertigungsNr As Integer) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(BelegDat,Date) Me.Adapter.InsertCommand.Parameters(4).Value = CType(BelegNr,Integer) Me.Adapter.InsertCommand.Parameters(5).Value = CType(PreislistenPos,Short) Me.Adapter.InsertCommand.Parameters(6).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(LeistungsBez,String) End If If (Leistungsbeschreibung Is Nothing) Then Throw New Global.System.ArgumentNullException("Leistungsbeschreibung") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Leistungsbeschreibung,String) End If If (Abfertigungsart.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Abfertigungsart.Value,Short) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (PreislistenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(PreislistenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (PreistabellenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(PreistabellenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Preis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(Preis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (TW1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(TW1.Value,Short) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (TW2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(TW2.Value,Short) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(Anzahl.Value,Short) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(16).Value = CType(Anzahlmultiplikator,Short) If (Betrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(Betrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(18).Value = CType(Preisbindung,Boolean) If (EABPo_Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(EABPo_Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(20).Value = CType(FilialenNr,Integer) Me.Adapter.InsertCommand.Parameters(21).Value = CType(AbfertigungsNr,Integer) 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 Mandant As String, _ ByVal Niederlassung As String, _ ByVal Benutzer As Integer, _ ByVal BelegDat As Date, _ ByVal BelegNr As Integer, _ ByVal PreislistenPos As Short, _ ByVal LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal Leistungsbeschreibung As String, _ ByVal Abfertigungsart As Global.System.Nullable(Of Short), _ ByVal PreislistenNr As Global.System.Nullable(Of Short), _ ByVal PreistabellenNr As Global.System.Nullable(Of Short), _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal TW1 As Global.System.Nullable(Of Short), _ ByVal TW2 As Global.System.Nullable(Of Short), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal Anzahlmultiplikator As Short, _ ByVal Betrag As Global.System.Nullable(Of Decimal), _ ByVal Preisbindung As Boolean, _ ByVal EABPo_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal FilialenNr As Integer, _ ByVal AbfertigungsNr As Integer, _ ByVal Original_Mandant As String, _ ByVal Original_Niederlassung As String, _ ByVal Original_Benutzer As Integer, _ ByVal Original_BelegDat As Date, _ ByVal Original_BelegNr As Integer, _ ByVal Original_PreislistenPos As Short, _ ByVal Original_LeistungsNr As Short, _ ByVal Original_LeistungsBez As String, _ ByVal Original_Leistungsbeschreibung As String, _ ByVal Original_FilialenNr As Integer, _ ByVal Original_AbfertigungsNr As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BelegDat,Date) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BelegNr,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PreislistenPos,Short) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(LeistungsBez,String) End If If (Leistungsbeschreibung Is Nothing) Then Throw New Global.System.ArgumentNullException("Leistungsbeschreibung") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Leistungsbeschreibung,String) End If If (Abfertigungsart.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Abfertigungsart.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (PreislistenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(PreislistenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (PreistabellenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(PreistabellenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Preis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Preis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (TW1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(TW1.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (TW2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(TW2.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Anzahl.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Anzahlmultiplikator,Short) If (Betrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Betrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Preisbindung,Boolean) If (EABPo_Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(EABPo_Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FilialenNr,Integer) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(AbfertigungsNr,Integer) If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_BelegDat,Date) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_BelegNr,Integer) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_PreislistenPos,Short) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_LeistungsBez,String) End If If (Original_Leistungsbeschreibung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Leistungsbeschreibung") Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Leistungsbeschreibung,String) End If Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_FilialenNr,Integer) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_AbfertigungsNr,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_upsize_ts,Byte()) End If 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 Abfertigungsart As Global.System.Nullable(Of Short), _ ByVal PreislistenNr As Global.System.Nullable(Of Short), _ ByVal PreistabellenNr As Global.System.Nullable(Of Short), _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal TW1 As Global.System.Nullable(Of Short), _ ByVal TW2 As Global.System.Nullable(Of Short), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal Anzahlmultiplikator As Short, _ ByVal Betrag As Global.System.Nullable(Of Decimal), _ ByVal Preisbindung As Boolean, _ ByVal EABPo_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal Original_Mandant As String, _ ByVal Original_Niederlassung As String, _ ByVal Original_Benutzer As Integer, _ ByVal Original_BelegDat As Date, _ ByVal Original_BelegNr As Integer, _ ByVal Original_PreislistenPos As Short, _ ByVal Original_LeistungsNr As Short, _ ByVal Original_LeistungsBez As String, _ ByVal Original_Leistungsbeschreibung As String, _ ByVal Original_FilialenNr As Integer, _ ByVal Original_AbfertigungsNr As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_BelegDat, Original_BelegNr, Original_PreislistenPos, Original_LeistungsNr, Original_LeistungsBez, Original_Leistungsbeschreibung, Abfertigungsart, PreislistenNr, PreistabellenNr, Preis, TW1, TW2, Anzahl, Anzahlmultiplikator, Betrag, Preisbindung, EABPo_Zeitstempel, Original_FilialenNr, Original_AbfertigungsNr, Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_BelegDat, Original_BelegNr, Original_PreislistenPos, Original_LeistungsNr, Original_LeistungsBez, Original_Leistungsbeschreibung, Original_FilialenNr, Original_AbfertigungsNr, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblEmailBenachrichtigungTableAdapter 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 = "tblEmailBenachrichtigung" tableMapping.ColumnMappings.Add("eb_KundenNr", "eb_KundenNr") tableMapping.ColumnMappings.Add("eb_ebartId", "eb_ebartId") tableMapping.ColumnMappings.Add("eb_EMail", "eb_EMail") tableMapping.ColumnMappings.Add("eb_cc", "eb_cc") tableMapping.ColumnMappings.Add("eb_bcc", "eb_bcc") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblEmailBenachrichtigung] ([eb_KundenNr], [eb_ebartId], [eb_EM"& _ "ail], [eb_cc], [eb_bcc]) VALUES (@eb_KundenNr, @eb_ebartId, @eb_EMail, @eb_cc, @"& _ "eb_bcc)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eb_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eb_ebartId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eb_ebartId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eb_EMail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eb_EMail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eb_cc", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eb_cc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eb_bcc", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eb_bcc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 eb_KundenNr, eb_ebartId, eb_EMail, eb_cc, eb_bcc FROM dbo.tblEmailBenachri"& _ "chtigung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblEmailBenachrichtigungDataTable) 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 VERAGDataSet.tblEmailBenachrichtigungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblEmailBenachrichtigungDataTable = New VERAGDataSet.tblEmailBenachrichtigungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblEmailBenachrichtigungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblEmailBenachrichtigung") 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 Insert(ByVal eb_KundenNr As Integer, ByVal eb_ebartId As Integer, ByVal eb_EMail As String, ByVal eb_cc As Boolean, ByVal eb_bcc As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(eb_KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(eb_ebartId,Integer) If (eb_EMail Is Nothing) Then Throw New Global.System.ArgumentNullException("eb_EMail") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(eb_EMail,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(eb_cc,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(eb_bcc,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblEmailBenachrichtigungArtenTableAdapter 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 = "tblEmailBenachrichtigungArten" tableMapping.ColumnMappings.Add("ebart_id", "ebart_id") tableMapping.ColumnMappings.Add("ebart_bezeichnung", "ebart_bezeichnung") tableMapping.ColumnMappings.Add("ebart_betreff", "ebart_betreff") tableMapping.ColumnMappings.Add("ebart_text", "ebart_text") 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].[tblEmailBenachrichtigungArten] WHERE (([ebart_id] = @Original_"& _ "ebart_id) AND ([ebart_bezeichnung] = @Original_ebart_bezeichnung) AND ((@IsNull_"& _ "ebart_betreff = 1 AND [ebart_betreff] IS NULL) OR ([ebart_betreff] = @Original_e"& _ "bart_betreff)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ebart_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ebart_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ebart_betreff", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_betreff", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ebart_betreff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_betreff", 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].[tblEmailBenachrichtigungArten] ([ebart_bezeichnung], [ebart_be"& _ "treff], [ebart_text]) VALUES (@ebart_bezeichnung, @ebart_betreff, @ebart_text);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ebart_id, ebart_bezeichnung, ebart_betreff, ebart_text FROM tblEmailBena"& _ "chrichtigungArten WHERE (ebart_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ebart_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ebart_betreff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_betreff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ebart_text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_text", 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].[tblEmailBenachrichtigungArten] SET [ebart_bezeichnung] = @ebart_bez"& _ "eichnung, [ebart_betreff] = @ebart_betreff, [ebart_text] = @ebart_text WHERE ((["& _ "ebart_id] = @Original_ebart_id) AND ([ebart_bezeichnung] = @Original_ebart_bezei"& _ "chnung) AND ((@IsNull_ebart_betreff = 1 AND [ebart_betreff] IS NULL) OR ([ebart_"& _ "betreff] = @Original_ebart_betreff)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ebart_id, ebart_bezeichnung, ebar"& _ "t_betreff, ebart_text FROM tblEmailBenachrichtigungArten WHERE (ebart_id = @ebar"& _ "t_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ebart_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ebart_betreff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_betreff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ebart_text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ebart_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ebart_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ebart_betreff", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_betreff", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ebart_betreff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_betreff", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ebart_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ebart_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ebart_id, ebart_bezeichnung, ebart_betreff, ebart_text FROM dbo.tblEmailBe"& _ "nachrichtigungArten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblEmailBenachrichtigungArtenDataTable) 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 VERAGDataSet.tblEmailBenachrichtigungArtenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblEmailBenachrichtigungArtenDataTable = New VERAGDataSet.tblEmailBenachrichtigungArtenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblEmailBenachrichtigungArtenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblEmailBenachrichtigungArten") 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_ebart_id As Integer, ByVal Original_ebart_bezeichnung As String, ByVal Original_ebart_betreff As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ebart_id,Integer) If (Original_ebart_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ebart_bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ebart_bezeichnung,String) End If If (Original_ebart_betreff 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_ebart_betreff,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 ebart_bezeichnung As String, ByVal ebart_betreff As String, ByVal ebart_text As String) As Integer If (ebart_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("ebart_bezeichnung") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(ebart_bezeichnung,String) End If If (ebart_betreff Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ebart_betreff,String) End If If (ebart_text Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ebart_text,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 ebart_bezeichnung As String, ByVal ebart_betreff As String, ByVal ebart_text As String, ByVal Original_ebart_id As Integer, ByVal Original_ebart_bezeichnung As String, ByVal Original_ebart_betreff As String, ByVal ebart_id As Integer) As Integer If (ebart_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("ebart_bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ebart_bezeichnung,String) End If If (ebart_betreff Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ebart_betreff,String) End If If (ebart_text Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ebart_text,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ebart_id,Integer) If (Original_ebart_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ebart_bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_ebart_bezeichnung,String) End If If (Original_ebart_betreff Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ebart_betreff,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ebart_id,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 ebart_bezeichnung As String, ByVal ebart_betreff As String, ByVal ebart_text As String, ByVal Original_ebart_id As Integer, ByVal Original_ebart_bezeichnung As String, ByVal Original_ebart_betreff As String) As Integer Return Me.Update(ebart_bezeichnung, ebart_betreff, ebart_text, Original_ebart_id, Original_ebart_bezeichnung, Original_ebart_betreff, Original_ebart_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblEORIPruefungTableAdapter 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 = "tblEORIPruefung" tableMapping.ColumnMappings.Add("eori_id", "eori_id") tableMapping.ColumnMappings.Add("eori_KdNr", "eori_KdNr") tableMapping.ColumnMappings.Add("eori_valid", "eori_valid") tableMapping.ColumnMappings.Add("eori_Datum", "eori_Datum") tableMapping.ColumnMappings.Add("eori_Maid", "eori_Maid") tableMapping.ColumnMappings.Add("eori_SendungsID", "eori_SendungsID") tableMapping.ColumnMappings.Add("eori_AvisoID", "eori_AvisoID") tableMapping.ColumnMappings.Add("eori_firma", "eori_firma") tableMapping.ColumnMappings.Add("eori_Sachbearbeiter", "eori_Sachbearbeiter") tableMapping.ColumnMappings.Add("eori_sessionID", "eori_sessionID") tableMapping.ColumnMappings.Add("eori_Nr", "eori_Nr") 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].[tblEORIPruefung] WHERE (([eori_id] = @Original_eori_id) AND (["& _ "eori_KdNr] = @Original_eori_KdNr) AND ([eori_valid] = @Original_eori_valid) AND "& _ "([eori_Datum] = @Original_eori_Datum) AND ([eori_Maid] = @Original_eori_Maid) AN"& _ "D ((@IsNull_eori_SendungsID = 1 AND [eori_SendungsID] IS NULL) OR ([eori_Sendung"& _ "sID] = @Original_eori_SendungsID)) AND ((@IsNull_eori_AvisoID = 1 AND [eori_Avis"& _ "oID] IS NULL) OR ([eori_AvisoID] = @Original_eori_AvisoID)) AND ((@IsNull_eori_N"& _ "r = 1 AND [eori_Nr] IS NULL) OR ([eori_Nr] = @Original_eori_Nr)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_valid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_Maid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Maid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eori_SendungsID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_SendungsID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_SendungsID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_SendungsID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eori_AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_AvisoID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_AvisoID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eori_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Nr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_Nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Nr", 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].[tblEORIPruefung] ([eori_KdNr], [eori_valid], [eori_Datum], [eo"& _ "ri_Maid], [eori_SendungsID], [eori_AvisoID], [eori_firma], [eori_Sachbearbeiter]"& _ ", [eori_sessionID], [eori_Nr]) VALUES (@eori_KdNr, @eori_valid, @eori_Datum, @eo"& _ "ri_Maid, @eori_SendungsID, @eori_AvisoID, @eori_firma, @eori_Sachbearbeiter, @eo"& _ "ri_sessionID, @eori_Nr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT eori_id, eori_KdNr, eori_valid, eori_Datum, eor"& _ "i_Maid, eori_SendungsID, eori_AvisoID, eori_firma, eori_Sachbearbeiter, eori_ses"& _ "sionID, eori_Nr FROM tblEORIPruefung WHERE (eori_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_valid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_Maid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Maid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_SendungsID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_SendungsID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_AvisoID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_sessionID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_sessionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_Nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Nr", 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].[tblEORIPruefung] SET [eori_KdNr] = @eori_KdNr, [eori_valid] = @eori"& _ "_valid, [eori_Datum] = @eori_Datum, [eori_Maid] = @eori_Maid, [eori_SendungsID] "& _ "= @eori_SendungsID, [eori_AvisoID] = @eori_AvisoID, [eori_firma] = @eori_firma, "& _ "[eori_Sachbearbeiter] = @eori_Sachbearbeiter, [eori_sessionID] = @eori_sessionID"& _ ", [eori_Nr] = @eori_Nr WHERE (([eori_id] = @Original_eori_id) AND ([eori_KdNr] ="& _ " @Original_eori_KdNr) AND ([eori_valid] = @Original_eori_valid) AND ([eori_Datum"& _ "] = @Original_eori_Datum) AND ([eori_Maid] = @Original_eori_Maid) AND ((@IsNull_"& _ "eori_SendungsID = 1 AND [eori_SendungsID] IS NULL) OR ([eori_SendungsID] = @Orig"& _ "inal_eori_SendungsID)) AND ((@IsNull_eori_AvisoID = 1 AND [eori_AvisoID] IS NULL"& _ ") OR ([eori_AvisoID] = @Original_eori_AvisoID)) AND ((@IsNull_eori_Nr = 1 AND [e"& _ "ori_Nr] IS NULL) OR ([eori_Nr] = @Original_eori_Nr)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT eori_id, eori_KdN"& _ "r, eori_valid, eori_Datum, eori_Maid, eori_SendungsID, eori_AvisoID, eori_firma,"& _ " eori_Sachbearbeiter, eori_sessionID, eori_Nr FROM tblEORIPruefung WHERE (eori_i"& _ "d = @eori_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_valid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_Maid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Maid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_SendungsID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_SendungsID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_AvisoID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_sessionID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_sessionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_Nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_valid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_Maid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Maid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eori_SendungsID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_SendungsID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_SendungsID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_SendungsID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eori_AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_AvisoID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_AvisoID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eori_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Nr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_Nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 eori_id, eori_KdNr, eori_valid, eori_Datum, eori_Maid, eori_SendungsID, eo"& _ "ri_AvisoID, eori_firma, eori_Sachbearbeiter, eori_sessionID, eori_Nr FROM dbo.tb"& _ "lEORIPruefung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblEORIPruefungDataTable) 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 VERAGDataSet.tblEORIPruefungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblEORIPruefungDataTable = New VERAGDataSet.tblEORIPruefungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblEORIPruefungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblEORIPruefung") 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_eori_id As Integer, ByVal Original_eori_KdNr As Integer, ByVal Original_eori_valid As Boolean, ByVal Original_eori_Datum As Date, ByVal Original_eori_Maid As Integer, ByVal Original_eori_SendungsID As Global.System.Nullable(Of Integer), ByVal Original_eori_AvisoID As Global.System.Nullable(Of Integer), ByVal Original_eori_Nr As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_eori_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_eori_KdNr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_eori_valid,Boolean) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_eori_Datum,Date) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_eori_Maid,Integer) If (Original_eori_SendungsID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_eori_SendungsID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_eori_AvisoID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_eori_AvisoID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_eori_Nr 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_eori_Nr,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 eori_KdNr As Integer, ByVal eori_valid As Boolean, ByVal eori_Datum As Date, ByVal eori_Maid As Integer, ByVal eori_SendungsID As Global.System.Nullable(Of Integer), ByVal eori_AvisoID As Global.System.Nullable(Of Integer), ByVal eori_firma As String, ByVal eori_Sachbearbeiter As String, ByVal eori_sessionID As String, ByVal eori_Nr As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(eori_KdNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(eori_valid,Boolean) Me.Adapter.InsertCommand.Parameters(2).Value = CType(eori_Datum,Date) Me.Adapter.InsertCommand.Parameters(3).Value = CType(eori_Maid,Integer) If (eori_SendungsID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(eori_SendungsID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (eori_AvisoID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(eori_AvisoID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (eori_firma Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(eori_firma,String) End If If (eori_Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(eori_Sachbearbeiter,String) End If If (eori_sessionID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(eori_sessionID,String) End If If (eori_Nr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(eori_Nr,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 eori_KdNr As Integer, _ ByVal eori_valid As Boolean, _ ByVal eori_Datum As Date, _ ByVal eori_Maid As Integer, _ ByVal eori_SendungsID As Global.System.Nullable(Of Integer), _ ByVal eori_AvisoID As Global.System.Nullable(Of Integer), _ ByVal eori_firma As String, _ ByVal eori_Sachbearbeiter As String, _ ByVal eori_sessionID As String, _ ByVal eori_Nr As String, _ ByVal Original_eori_id As Integer, _ ByVal Original_eori_KdNr As Integer, _ ByVal Original_eori_valid As Boolean, _ ByVal Original_eori_Datum As Date, _ ByVal Original_eori_Maid As Integer, _ ByVal Original_eori_SendungsID As Global.System.Nullable(Of Integer), _ ByVal Original_eori_AvisoID As Global.System.Nullable(Of Integer), _ ByVal Original_eori_Nr As String, _ ByVal eori_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(eori_KdNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(eori_valid,Boolean) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(eori_Datum,Date) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(eori_Maid,Integer) If (eori_SendungsID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(eori_SendungsID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (eori_AvisoID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(eori_AvisoID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (eori_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(eori_firma,String) End If If (eori_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(eori_Sachbearbeiter,String) End If If (eori_sessionID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(eori_sessionID,String) End If If (eori_Nr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(eori_Nr,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_eori_id,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_eori_KdNr,Integer) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_eori_valid,Boolean) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_eori_Datum,Date) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_eori_Maid,Integer) If (Original_eori_SendungsID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_eori_SendungsID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_eori_AvisoID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_eori_AvisoID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Original_eori_Nr 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_eori_Nr,String) End If Me.Adapter.UpdateCommand.Parameters(21).Value = CType(eori_id,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 eori_KdNr As Integer, _ ByVal eori_valid As Boolean, _ ByVal eori_Datum As Date, _ ByVal eori_Maid As Integer, _ ByVal eori_SendungsID As Global.System.Nullable(Of Integer), _ ByVal eori_AvisoID As Global.System.Nullable(Of Integer), _ ByVal eori_firma As String, _ ByVal eori_Sachbearbeiter As String, _ ByVal eori_sessionID As String, _ ByVal eori_Nr As String, _ ByVal Original_eori_id As Integer, _ ByVal Original_eori_KdNr As Integer, _ ByVal Original_eori_valid As Boolean, _ ByVal Original_eori_Datum As Date, _ ByVal Original_eori_Maid As Integer, _ ByVal Original_eori_SendungsID As Global.System.Nullable(Of Integer), _ ByVal Original_eori_AvisoID As Global.System.Nullable(Of Integer), _ ByVal Original_eori_Nr As String) As Integer Return Me.Update(eori_KdNr, eori_valid, eori_Datum, eori_Maid, eori_SendungsID, eori_AvisoID, eori_firma, eori_Sachbearbeiter, eori_sessionID, eori_Nr, Original_eori_id, Original_eori_KdNr, Original_eori_valid, Original_eori_Datum, Original_eori_Maid, Original_eori_SendungsID, Original_eori_AvisoID, Original_eori_Nr, Original_eori_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblEZB_WaehrungskurseTableAdapter 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 = "tblEZB_Waehrungskurse" tableMapping.ColumnMappings.Add("ezb_waehrungscode", "ezb_waehrungscode") tableMapping.ColumnMappings.Add("ezb_datum", "ezb_datum") tableMapping.ColumnMappings.Add("ezb_waehrungsschluessel", "ezb_waehrungsschluessel") tableMapping.ColumnMappings.Add("ezb_kurs", "ezb_kurs") 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].[tblEZB_Waehrungskurse] WHERE (([ezb_waehrungscode] = @Original"& _ "_ezb_waehrungscode) AND ([ezb_datum] = @Original_ezb_datum) AND ([ezb_waehrungss"& _ "chluessel] = @Original_ezb_waehrungsschluessel) AND ([ezb_kurs] = @Original_ezb_"& _ "kurs))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezb_waehrungscode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_waehrungscode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezb_datum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezb_waehrungsschluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_waehrungsschluessel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezb_kurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_kurs", 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].[tblEZB_Waehrungskurse] ([ezb_waehrungscode], [ezb_datum], [ezb"& _ "_waehrungsschluessel], [ezb_kurs]) VALUES (@ezb_waehrungscode, @ezb_datum, @ezb_"& _ "waehrungsschluessel, @ezb_kurs);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezb_waehrungscode, ezb_datum, ezb_waehr"& _ "ungsschluessel, ezb_kurs FROM tblEZB_Waehrungskurse WHERE (ezb_datum = @ezb_datu"& _ "m) AND (ezb_waehrungscode = @ezb_waehrungscode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezb_waehrungscode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_waehrungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezb_datum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezb_waehrungsschluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_waehrungsschluessel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezb_kurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_kurs", 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].[tblEZB_Waehrungskurse] SET [ezb_waehrungscode] = @ezb_waehrungscode"& _ ", [ezb_datum] = @ezb_datum, [ezb_waehrungsschluessel] = @ezb_waehrungsschluessel"& _ ", [ezb_kurs] = @ezb_kurs WHERE (([ezb_waehrungscode] = @Original_ezb_waehrungsco"& _ "de) AND ([ezb_datum] = @Original_ezb_datum) AND ([ezb_waehrungsschluessel] = @Or"& _ "iginal_ezb_waehrungsschluessel) AND ([ezb_kurs] = @Original_ezb_kurs));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ "ezb_waehrungscode, ezb_datum, ezb_waehrungsschluessel, ezb_kurs FROM tblEZB_Waeh"& _ "rungskurse WHERE (ezb_datum = @ezb_datum) AND (ezb_waehrungscode = @ezb_waehrung"& _ "scode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezb_waehrungscode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_waehrungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezb_datum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezb_waehrungsschluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_waehrungsschluessel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezb_kurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_kurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezb_waehrungscode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_waehrungscode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezb_datum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezb_waehrungsschluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_waehrungsschluessel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezb_kurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezb_kurs", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezb_waehrungscode, ezb_datum, ezb_waehrungsschluessel, ezb_kurs FROM dbo.t"& _ "blEZB_Waehrungskurse" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblEZB_WaehrungskurseDataTable) 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 VERAGDataSet.tblEZB_WaehrungskurseDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblEZB_WaehrungskurseDataTable = New VERAGDataSet.tblEZB_WaehrungskurseDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblEZB_WaehrungskurseDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblEZB_Waehrungskurse") 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_ezb_waehrungscode As String, ByVal Original_ezb_datum As Date, ByVal Original_ezb_waehrungsschluessel As String, ByVal Original_ezb_kurs As Double) As Integer If (Original_ezb_waehrungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezb_waehrungscode") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezb_waehrungscode,String) End If Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezb_datum,Date) If (Original_ezb_waehrungsschluessel Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezb_waehrungsschluessel") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ezb_waehrungsschluessel,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ezb_kurs,Double) 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 ezb_waehrungscode As String, ByVal ezb_datum As Date, ByVal ezb_waehrungsschluessel As String, ByVal ezb_kurs As Double) As Integer If (ezb_waehrungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("ezb_waehrungscode") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezb_waehrungscode,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezb_datum,Date) If (ezb_waehrungsschluessel Is Nothing) Then Throw New Global.System.ArgumentNullException("ezb_waehrungsschluessel") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezb_waehrungsschluessel,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezb_kurs,Double) 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 ezb_waehrungscode As String, ByVal ezb_datum As Date, ByVal ezb_waehrungsschluessel As String, ByVal ezb_kurs As Double, ByVal Original_ezb_waehrungscode As String, ByVal Original_ezb_datum As Date, ByVal Original_ezb_waehrungsschluessel As String, ByVal Original_ezb_kurs As Double) As Integer If (ezb_waehrungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("ezb_waehrungscode") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezb_waehrungscode,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezb_datum,Date) If (ezb_waehrungsschluessel Is Nothing) Then Throw New Global.System.ArgumentNullException("ezb_waehrungsschluessel") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezb_waehrungsschluessel,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezb_kurs,Double) If (Original_ezb_waehrungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezb_waehrungscode") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_ezb_waehrungscode,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_ezb_datum,Date) If (Original_ezb_waehrungsschluessel Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezb_waehrungsschluessel") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ezb_waehrungsschluessel,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ezb_kurs,Double) 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 ezb_waehrungsschluessel As String, ByVal ezb_kurs As Double, ByVal Original_ezb_waehrungscode As String, ByVal Original_ezb_datum As Date, ByVal Original_ezb_waehrungsschluessel As String, ByVal Original_ezb_kurs As Double) As Integer Return Me.Update(Original_ezb_waehrungscode, Original_ezb_datum, ezb_waehrungsschluessel, ezb_kurs, Original_ezb_waehrungscode, Original_ezb_datum, Original_ezb_waehrungsschluessel, Original_ezb_kurs) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblEZT_ImportcodenummernTableAdapter 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 = "tblEZT_Importcodenummern" tableMapping.ColumnMappings.Add("ezt_id", "ezt_id") tableMapping.ColumnMappings.Add("ezt_Land", "ezt_Land") tableMapping.ColumnMappings.Add("ezt_Codenummer", "ezt_Codenummer") tableMapping.ColumnMappings.Add("ezt_BesMasseinheit", "ezt_BesMasseinheit") tableMapping.ColumnMappings.Add("ezt_BesMasseinheit2", "ezt_BesMasseinheit2") tableMapping.ColumnMappings.Add("ezt_Start", "ezt_Start") tableMapping.ColumnMappings.Add("ezt_Ende", "ezt_Ende") tableMapping.ColumnMappings.Add("ezt_Sprache", "ezt_Sprache") tableMapping.ColumnMappings.Add("ezt_Text", "ezt_Text") 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].[tblEZT_Importcodenummern] WHERE (([ezt_id] = @Original_ezt_id)"& _ " AND ([ezt_Land] = @Original_ezt_Land) AND ([ezt_Codenummer] = @Original_ezt_Cod"& _ "enummer) AND ([ezt_BesMasseinheit] = @Original_ezt_BesMasseinheit) AND ([ezt_Bes"& _ "Masseinheit2] = @Original_ezt_BesMasseinheit2) AND ([ezt_Start] = @Original_ezt_"& _ "Start) AND ([ezt_Ende] = @Original_ezt_Ende) AND ([ezt_Sprache] = @Original_ezt_"& _ "Sprache) AND ([ezt_Text] = @Original_ezt_Text))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Codenummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Codenummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_BesMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_BesMasseinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_BesMasseinheit2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_BesMasseinheit2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Start", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Start", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Ende", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Ende", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Sprache", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Text", 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].[tblEZT_Importcodenummern] ([ezt_Land], [ezt_Codenummer], [ezt_"& _ "BesMasseinheit], [ezt_BesMasseinheit2], [ezt_Start], [ezt_Ende], [ezt_Sprache], "& _ "[ezt_Text]) VALUES (@ezt_Land, @ezt_Codenummer, @ezt_BesMasseinheit, @ezt_BesMas"& _ "seinheit2, @ezt_Start, @ezt_Ende, @ezt_Sprache, @ezt_Text);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezt_id, ezt_"& _ "Land, ezt_Codenummer, ezt_BesMasseinheit, ezt_BesMasseinheit2, ezt_Start, ezt_En"& _ "de, ezt_Sprache, ezt_Text FROM tblEZT_Importcodenummern WHERE (ezt_id = SCOPE_ID"& _ "ENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Codenummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Codenummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_BesMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_BesMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_BesMasseinheit2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_BesMasseinheit2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Start", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Start", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Ende", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Ende", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Sprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Text", 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].[tblEZT_Importcodenummern] SET [ezt_Land] = @ezt_Land, [ezt_Codenumm"& _ "er] = @ezt_Codenummer, [ezt_BesMasseinheit] = @ezt_BesMasseinheit, [ezt_BesMasse"& _ "inheit2] = @ezt_BesMasseinheit2, [ezt_Start] = @ezt_Start, [ezt_Ende] = @ezt_End"& _ "e, [ezt_Sprache] = @ezt_Sprache, [ezt_Text] = @ezt_Text WHERE (([ezt_id] = @Orig"& _ "inal_ezt_id) AND ([ezt_Land] = @Original_ezt_Land) AND ([ezt_Codenummer] = @Orig"& _ "inal_ezt_Codenummer) AND ([ezt_BesMasseinheit] = @Original_ezt_BesMasseinheit) A"& _ "ND ([ezt_BesMasseinheit2] = @Original_ezt_BesMasseinheit2) AND ([ezt_Start] = @O"& _ "riginal_ezt_Start) AND ([ezt_Ende] = @Original_ezt_Ende) AND ([ezt_Sprache] = @O"& _ "riginal_ezt_Sprache) AND ([ezt_Text] = @Original_ezt_Text));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ezt_id, ezt"& _ "_Land, ezt_Codenummer, ezt_BesMasseinheit, ezt_BesMasseinheit2, ezt_Start, ezt_E"& _ "nde, ezt_Sprache, ezt_Text FROM tblEZT_Importcodenummern WHERE (ezt_id = @ezt_id"& _ ")" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Codenummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Codenummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_BesMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_BesMasseinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_BesMasseinheit2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_BesMasseinheit2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Start", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Start", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Ende", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Ende", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Sprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Codenummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Codenummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_BesMasseinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_BesMasseinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_BesMasseinheit2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_BesMasseinheit2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Start", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Start", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Ende", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Ende", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Sprache", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ezt_Text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ezt_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ezt_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ezt_id, ezt_Land, ezt_Codenummer, ezt_BesMasseinheit, ezt_BesMasseinheit2,"& _ " ezt_Start, ezt_Ende, ezt_Sprache, ezt_Text FROM dbo.tblEZT_Importcodenummern" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblEZT_ImportcodenummernDataTable) 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 VERAGDataSet.tblEZT_ImportcodenummernDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblEZT_ImportcodenummernDataTable = New VERAGDataSet.tblEZT_ImportcodenummernDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblEZT_ImportcodenummernDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblEZT_Importcodenummern") 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_ezt_id As Integer, ByVal Original_ezt_Land As String, ByVal Original_ezt_Codenummer As String, ByVal Original_ezt_BesMasseinheit As String, ByVal Original_ezt_BesMasseinheit2 As String, ByVal Original_ezt_Start As Date, ByVal Original_ezt_Ende As Date, ByVal Original_ezt_Sprache As String, ByVal Original_ezt_Text As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ezt_id,Integer) If (Original_ezt_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_Land") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ezt_Land,String) End If If (Original_ezt_Codenummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_Codenummer") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ezt_Codenummer,String) End If If (Original_ezt_BesMasseinheit Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_BesMasseinheit") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ezt_BesMasseinheit,String) End If If (Original_ezt_BesMasseinheit2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_BesMasseinheit2") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ezt_BesMasseinheit2,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ezt_Start,Date) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ezt_Ende,Date) If (Original_ezt_Sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_Sprache") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ezt_Sprache,String) End If If (Original_ezt_Text Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_Text") Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ezt_Text,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 ezt_Land As String, ByVal ezt_Codenummer As String, ByVal ezt_BesMasseinheit As String, ByVal ezt_BesMasseinheit2 As String, ByVal ezt_Start As Date, ByVal ezt_Ende As Date, ByVal ezt_Sprache As String, ByVal ezt_Text As String) As Integer If (ezt_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_Land") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(ezt_Land,String) End If If (ezt_Codenummer Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_Codenummer") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ezt_Codenummer,String) End If If (ezt_BesMasseinheit Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_BesMasseinheit") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ezt_BesMasseinheit,String) End If If (ezt_BesMasseinheit2 Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_BesMasseinheit2") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ezt_BesMasseinheit2,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(ezt_Start,Date) Me.Adapter.InsertCommand.Parameters(5).Value = CType(ezt_Ende,Date) If (ezt_Sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_Sprache") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ezt_Sprache,String) End If If (ezt_Text Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_Text") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ezt_Text,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 ezt_Land As String, _ ByVal ezt_Codenummer As String, _ ByVal ezt_BesMasseinheit As String, _ ByVal ezt_BesMasseinheit2 As String, _ ByVal ezt_Start As Date, _ ByVal ezt_Ende As Date, _ ByVal ezt_Sprache As String, _ ByVal ezt_Text As String, _ ByVal Original_ezt_id As Integer, _ ByVal Original_ezt_Land As String, _ ByVal Original_ezt_Codenummer As String, _ ByVal Original_ezt_BesMasseinheit As String, _ ByVal Original_ezt_BesMasseinheit2 As String, _ ByVal Original_ezt_Start As Date, _ ByVal Original_ezt_Ende As Date, _ ByVal Original_ezt_Sprache As String, _ ByVal Original_ezt_Text As String, _ ByVal ezt_id As Integer) As Integer If (ezt_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_Land") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ezt_Land,String) End If If (ezt_Codenummer Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_Codenummer") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ezt_Codenummer,String) End If If (ezt_BesMasseinheit Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_BesMasseinheit") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ezt_BesMasseinheit,String) End If If (ezt_BesMasseinheit2 Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_BesMasseinheit2") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ezt_BesMasseinheit2,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ezt_Start,Date) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ezt_Ende,Date) If (ezt_Sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_Sprache") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ezt_Sprache,String) End If If (ezt_Text Is Nothing) Then Throw New Global.System.ArgumentNullException("ezt_Text") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ezt_Text,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ezt_id,Integer) If (Original_ezt_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_Land") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ezt_Land,String) End If If (Original_ezt_Codenummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_Codenummer") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ezt_Codenummer,String) End If If (Original_ezt_BesMasseinheit Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_BesMasseinheit") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ezt_BesMasseinheit,String) End If If (Original_ezt_BesMasseinheit2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_BesMasseinheit2") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ezt_BesMasseinheit2,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ezt_Start,Date) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ezt_Ende,Date) If (Original_ezt_Sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_Sprache") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ezt_Sprache,String) End If If (Original_ezt_Text Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ezt_Text") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ezt_Text,String) End If Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ezt_id,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 ezt_Land As String, _ ByVal ezt_Codenummer As String, _ ByVal ezt_BesMasseinheit As String, _ ByVal ezt_BesMasseinheit2 As String, _ ByVal ezt_Start As Date, _ ByVal ezt_Ende As Date, _ ByVal ezt_Sprache As String, _ ByVal ezt_Text As String, _ ByVal Original_ezt_id As Integer, _ ByVal Original_ezt_Land As String, _ ByVal Original_ezt_Codenummer As String, _ ByVal Original_ezt_BesMasseinheit As String, _ ByVal Original_ezt_BesMasseinheit2 As String, _ ByVal Original_ezt_Start As Date, _ ByVal Original_ezt_Ende As Date, _ ByVal Original_ezt_Sprache As String, _ ByVal Original_ezt_Text As String) As Integer Return Me.Update(ezt_Land, ezt_Codenummer, ezt_BesMasseinheit, ezt_BesMasseinheit2, ezt_Start, ezt_Ende, ezt_Sprache, ezt_Text, Original_ezt_id, Original_ezt_Land, Original_ezt_Codenummer, Original_ezt_BesMasseinheit, Original_ezt_BesMasseinheit2, Original_ezt_Start, Original_ezt_Ende, Original_ezt_Sprache, Original_ezt_Text, Original_ezt_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblFahrerDatenTableAdapter 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 = "tblFahrerDaten" tableMapping.ColumnMappings.Add("fd_id", "fd_id") tableMapping.ColumnMappings.Add("fd_fraechter", "fd_fraechter") tableMapping.ColumnMappings.Add("fd_lkw", "fd_lkw") tableMapping.ColumnMappings.Add("fd_fahrerName", "fd_fahrerName") tableMapping.ColumnMappings.Add("fd_tel", "fd_tel") tableMapping.ColumnMappings.Add("fd_passNummer", "fd_passNummer") tableMapping.ColumnMappings.Add("fd_wohnAdresse", "fd_wohnAdresse") tableMapping.ColumnMappings.Add("fd_datum", "fd_datum") tableMapping.ColumnMappings.Add("fd_dsId", "fd_dsId") 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].[tblFahrerDaten] WHERE (([fd_id] = @Original_fd_id) AND ((@IsNu"& _ "ll_fd_fraechter = 1 AND [fd_fraechter] IS NULL) OR ([fd_fraechter] = @Original_f"& _ "d_fraechter)) AND ((@IsNull_fd_lkw = 1 AND [fd_lkw] IS NULL) OR ([fd_lkw] = @Ori"& _ "ginal_fd_lkw)) AND ((@IsNull_fd_fahrerName = 1 AND [fd_fahrerName] IS NULL) OR ("& _ "[fd_fahrerName] = @Original_fd_fahrerName)) AND ((@IsNull_fd_tel = 1 AND [fd_tel"& _ "] IS NULL) OR ([fd_tel] = @Original_fd_tel)) AND ((@IsNull_fd_passNummer = 1 AND"& _ " [fd_passNummer] IS NULL) OR ([fd_passNummer] = @Original_fd_passNummer)) AND (("& _ "@IsNull_fd_wohnAdresse = 1 AND [fd_wohnAdresse] IS NULL) OR ([fd_wohnAdresse] = "& _ "@Original_fd_wohnAdresse)) AND ([fd_datum] = @Original_fd_datum) AND ((@IsNull_f"& _ "d_dsId = 1 AND [fd_dsId] IS NULL) OR ([fd_dsId] = @Original_fd_dsId)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_fraechter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fraechter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fraechter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_lkw", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_lkw", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_lkw", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_lkw", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_fahrerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fahrerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_fahrerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fahrerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_tel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_tel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_tel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_passNummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_passNummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_passNummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_passNummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_wohnAdresse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_wohnAdresse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_wohnAdresse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_wohnAdresse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_dsId", 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].[tblFahrerDaten] ([fd_fraechter], [fd_lkw], [fd_fahrerName], [f"& _ "d_tel], [fd_passNummer], [fd_wohnAdresse], [fd_datum], [fd_dsId]) VALUES (@fd_fr"& _ "aechter, @fd_lkw, @fd_fahrerName, @fd_tel, @fd_passNummer, @fd_wohnAdresse, @fd_"& _ "datum, @fd_dsId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT fd_id, fd_fraechter, fd_lkw, fd_fahrerName, fd_tel, fd"& _ "_passNummer, fd_wohnAdresse, fd_datum, fd_dsId FROM tblFahrerDaten WHERE (fd_id "& _ "= SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fraechter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_lkw", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_lkw", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_fahrerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fahrerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_tel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_passNummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_passNummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_wohnAdresse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_wohnAdresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_dsId", 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].[tblFahrerDaten] SET [fd_fraechter] = @fd_fraechter, [fd_lkw] = @fd_"& _ "lkw, [fd_fahrerName] = @fd_fahrerName, [fd_tel] = @fd_tel, [fd_passNummer] = @fd"& _ "_passNummer, [fd_wohnAdresse] = @fd_wohnAdresse, [fd_datum] = @fd_datum, [fd_dsI"& _ "d] = @fd_dsId WHERE (([fd_id] = @Original_fd_id) AND ((@IsNull_fd_fraechter = 1 "& _ "AND [fd_fraechter] IS NULL) OR ([fd_fraechter] = @Original_fd_fraechter)) AND (("& _ "@IsNull_fd_lkw = 1 AND [fd_lkw] IS NULL) OR ([fd_lkw] = @Original_fd_lkw)) AND ("& _ "(@IsNull_fd_fahrerName = 1 AND [fd_fahrerName] IS NULL) OR ([fd_fahrerName] = @O"& _ "riginal_fd_fahrerName)) AND ((@IsNull_fd_tel = 1 AND [fd_tel] IS NULL) OR ([fd_t"& _ "el] = @Original_fd_tel)) AND ((@IsNull_fd_passNummer = 1 AND [fd_passNummer] IS "& _ "NULL) OR ([fd_passNummer] = @Original_fd_passNummer)) AND ((@IsNull_fd_wohnAdres"& _ "se = 1 AND [fd_wohnAdresse] IS NULL) OR ([fd_wohnAdresse] = @Original_fd_wohnAdr"& _ "esse)) AND ([fd_datum] = @Original_fd_datum) AND ((@IsNull_fd_dsId = 1 AND [fd_d"& _ "sId] IS NULL) OR ([fd_dsId] = @Original_fd_dsId)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT fd_id, fd_fraechter,"& _ " fd_lkw, fd_fahrerName, fd_tel, fd_passNummer, fd_wohnAdresse, fd_datum, fd_dsId"& _ " FROM tblFahrerDaten WHERE (fd_id = @fd_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fraechter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_lkw", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_lkw", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_fahrerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fahrerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_tel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_passNummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_passNummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_wohnAdresse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_wohnAdresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_fraechter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fraechter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fraechter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_lkw", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_lkw", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_lkw", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_lkw", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_fahrerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fahrerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_fahrerName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_fahrerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_tel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_tel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_tel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_passNummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_passNummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_passNummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_passNummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_wohnAdresse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_wohnAdresse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_wohnAdresse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_wohnAdresse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fd_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fd_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fd_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "fd_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 fd_id, fd_fraechter, fd_lkw, fd_fahrerName, fd_tel, fd_passNummer, fd_wohn"& _ "Adresse, fd_datum, fd_dsId FROM dbo.tblFahrerDaten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblFahrerDatenDataTable) 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 VERAGDataSet.tblFahrerDatenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblFahrerDatenDataTable = New VERAGDataSet.tblFahrerDatenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblFahrerDatenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblFahrerDaten") 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_fd_id As Integer, ByVal Original_fd_fraechter As String, ByVal Original_fd_lkw As String, ByVal Original_fd_fahrerName As String, ByVal Original_fd_tel As String, ByVal Original_fd_passNummer As String, ByVal Original_fd_wohnAdresse As String, ByVal Original_fd_datum As Date, ByVal Original_fd_dsId As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_fd_id,Integer) If (Original_fd_fraechter 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_fd_fraechter,String) End If If (Original_fd_lkw 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_fd_lkw,String) End If If (Original_fd_fahrerName 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_fd_fahrerName,String) End If If (Original_fd_tel 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_fd_tel,String) End If If (Original_fd_passNummer 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_fd_passNummer,String) End If If (Original_fd_wohnAdresse 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_fd_wohnAdresse,String) End If Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_fd_datum,Date) If (Original_fd_dsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_fd_dsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).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 fd_fraechter As String, ByVal fd_lkw As String, ByVal fd_fahrerName As String, ByVal fd_tel As String, ByVal fd_passNummer As String, ByVal fd_wohnAdresse As String, ByVal fd_datum As Date, ByVal fd_dsId As Global.System.Nullable(Of Integer)) As Integer If (fd_fraechter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(fd_fraechter,String) End If If (fd_lkw Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(fd_lkw,String) End If If (fd_fahrerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(fd_fahrerName,String) End If If (fd_tel Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(fd_tel,String) End If If (fd_passNummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(fd_passNummer,String) End If If (fd_wohnAdresse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(fd_wohnAdresse,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(fd_datum,Date) If (fd_dsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(fd_dsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).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 fd_fraechter As String, _ ByVal fd_lkw As String, _ ByVal fd_fahrerName As String, _ ByVal fd_tel As String, _ ByVal fd_passNummer As String, _ ByVal fd_wohnAdresse As String, _ ByVal fd_datum As Date, _ ByVal fd_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_fd_id As Integer, _ ByVal Original_fd_fraechter As String, _ ByVal Original_fd_lkw As String, _ ByVal Original_fd_fahrerName As String, _ ByVal Original_fd_tel As String, _ ByVal Original_fd_passNummer As String, _ ByVal Original_fd_wohnAdresse As String, _ ByVal Original_fd_datum As Date, _ ByVal Original_fd_dsId As Global.System.Nullable(Of Integer), _ ByVal fd_id As Integer) As Integer If (fd_fraechter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(fd_fraechter,String) End If If (fd_lkw Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(fd_lkw,String) End If If (fd_fahrerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(fd_fahrerName,String) End If If (fd_tel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(fd_tel,String) End If If (fd_passNummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(fd_passNummer,String) End If If (fd_wohnAdresse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(fd_wohnAdresse,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(fd_datum,Date) If (fd_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(fd_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_fd_id,Integer) If (Original_fd_fraechter 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_fd_fraechter,String) End If If (Original_fd_lkw Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_fd_lkw,String) End If If (Original_fd_fahrerName 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_fd_fahrerName,String) End If If (Original_fd_tel 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_fd_tel,String) End If If (Original_fd_passNummer 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_fd_passNummer,String) End If If (Original_fd_wohnAdresse 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_fd_wohnAdresse,String) End If Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_fd_datum,Date) If (Original_fd_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_fd_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(fd_id,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 fd_fraechter As String, _ ByVal fd_lkw As String, _ ByVal fd_fahrerName As String, _ ByVal fd_tel As String, _ ByVal fd_passNummer As String, _ ByVal fd_wohnAdresse As String, _ ByVal fd_datum As Date, _ ByVal fd_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_fd_id As Integer, _ ByVal Original_fd_fraechter As String, _ ByVal Original_fd_lkw As String, _ ByVal Original_fd_fahrerName As String, _ ByVal Original_fd_tel As String, _ ByVal Original_fd_passNummer As String, _ ByVal Original_fd_wohnAdresse As String, _ ByVal Original_fd_datum As Date, _ ByVal Original_fd_dsId As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(fd_fraechter, fd_lkw, fd_fahrerName, fd_tel, fd_passNummer, fd_wohnAdresse, fd_datum, fd_dsId, Original_fd_id, Original_fd_fraechter, Original_fd_lkw, Original_fd_fahrerName, Original_fd_tel, Original_fd_passNummer, Original_fd_wohnAdresse, Original_fd_datum, Original_fd_dsId, Original_fd_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblFirmaTableAdapter 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 = "tblFirma" tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("Firma_Bez", "Firma_Bez") tableMapping.ColumnMappings.Add("Firma_BackColor", "Firma_BackColor") tableMapping.ColumnMappings.Add("Firma_Logo", "Firma_Logo") tableMapping.ColumnMappings.Add("Firma_Firmenbuch", "Firma_Firmenbuch") tableMapping.ColumnMappings.Add("Firma_UID", "Firma_UID") tableMapping.ColumnMappings.Add("Firma_EORI", "Firma_EORI") tableMapping.ColumnMappings.Add("Firma_Bankverbindung1", "Firma_Bankverbindung1") tableMapping.ColumnMappings.Add("Firma_BLZ1", "Firma_BLZ1") tableMapping.ColumnMappings.Add("Firma_KTO1", "Firma_KTO1") tableMapping.ColumnMappings.Add("Firma_IBAN1", "Firma_IBAN1") tableMapping.ColumnMappings.Add("Firma_BIC1", "Firma_BIC1") tableMapping.ColumnMappings.Add("Firma_Bankverbindung2", "Firma_Bankverbindung2") tableMapping.ColumnMappings.Add("Firma_BLZ2", "Firma_BLZ2") tableMapping.ColumnMappings.Add("Firma_KTO2", "Firma_KTO2") tableMapping.ColumnMappings.Add("Firma_IBAN2", "Firma_IBAN2") tableMapping.ColumnMappings.Add("Firma_BIC2", "Firma_BIC2") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("Firma_Ort", "Firma_Ort") tableMapping.ColumnMappings.Add("Firma_Straße", "Firma_Straße") tableMapping.ColumnMappings.Add("Firma_Telefon", "Firma_Telefon") tableMapping.ColumnMappings.Add("Firma_Telefax", "Firma_Telefax") tableMapping.ColumnMappings.Add("Firma_E-Mail", "Firma_E-Mail") tableMapping.ColumnMappings.Add("Firma_Webadresse", "Firma_Webadresse") tableMapping.ColumnMappings.Add("Firma_LandKz", "Firma_LandKz") tableMapping.ColumnMappings.Add("Firmengruppe", "Firmengruppe") tableMapping.ColumnMappings.Add("Firma_Warenort", "Firma_Warenort") tableMapping.ColumnMappings.Add("Firma_E_Mail_Mahnungen", "Firma_E_Mail_Mahnungen") 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].[tblFirma] WHERE (([Firma_ID] = @Original_Firma_ID) AND ([SSMA_"& _ "TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblFirma] ([Firma_ID], [Firma_Bez], [Firma_BackColor], [Firma_"& _ "Logo], [Firma_Firmenbuch], [Firma_UID], [Firma_EORI], [Firma_Bankverbindung1], ["& _ "Firma_BLZ1], [Firma_KTO1], [Firma_IBAN1], [Firma_BIC1], [Firma_Bankverbindung2],"& _ " [Firma_BLZ2], [Firma_KTO2], [Firma_IBAN2], [Firma_BIC2], [Firma_Ort], [Firma_St"& _ "raße], [Firma_Telefon], [Firma_Telefax], [Firma_E-Mail], [Firma_Webadresse], [Fi"& _ "rma_LandKz], [Firmengruppe], [Firma_Warenort], [Firma_E_Mail_Mahnungen]) VALUES "& _ "(@Firma_ID, @Firma_Bez, @Firma_BackColor, @Firma_Logo, @Firma_Firmenbuch, @Firma"& _ "_UID, @Firma_EORI, @Firma_Bankverbindung1, @Firma_BLZ1, @Firma_KTO1, @Firma_IBAN"& _ "1, @Firma_BIC1, @Firma_Bankverbindung2, @Firma_BLZ2, @Firma_KTO2, @Firma_IBAN2, "& _ "@Firma_BIC2, @Firma_Ort, @Firma_Straße, @Firma_Telefon, @Firma_Telefax, @p1, @Fi"& _ "rma_Webadresse, @Firma_LandKz, @Firmengruppe, @Firma_Warenort, @Firma_E_Mail_Mah"& _ "nungen);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Firma_ID, Firma_Bez, Firma_BackColor, Firma_Logo, Firma_Firmenb"& _ "uch, Firma_UID, Firma_EORI, Firma_Bankverbindung1, Firma_BLZ1, Firma_KTO1, Firma"& _ "_IBAN1, Firma_BIC1, Firma_Bankverbindung2, Firma_BLZ2, Firma_KTO2, Firma_IBAN2, "& _ "Firma_BIC2, SSMA_TimeStamp, Firma_Ort, Firma_Straße, Firma_Telefon, Firma_Telefa"& _ "x, [Firma_E-Mail], Firma_Webadresse, Firma_LandKz, Firmengruppe, Firma_Warenort,"& _ " Firma_E_Mail_Mahnungen FROM tblFirma WHERE (Firma_ID = @Firma_ID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Bez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_BackColor", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_BackColor", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Logo", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Firmenbuch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Firmenbuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_UID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_EORI", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Bankverbindung1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Bankverbindung1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_BLZ1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_BLZ1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_KTO1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_KTO1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_IBAN1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_IBAN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_BIC1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_BIC1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Bankverbindung2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Bankverbindung2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_BLZ2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_BLZ2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_KTO2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_KTO2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_IBAN2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_IBAN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_BIC2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_BIC2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Telefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Telefax", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Telefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_E-Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Webadresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Webadresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firmengruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firmengruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Warenort", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Warenort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_E_Mail_Mahnungen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_E_Mail_Mahnungen", 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].[tblFirma] SET [Firma_ID] = @Firma_ID, [Firma_Bez] = @Firma_Bez, [Fi"& _ "rma_BackColor] = @Firma_BackColor, [Firma_Logo] = @Firma_Logo, [Firma_Firmenbuch"& _ "] = @Firma_Firmenbuch, [Firma_UID] = @Firma_UID, [Firma_EORI] = @Firma_EORI, [Fi"& _ "rma_Bankverbindung1] = @Firma_Bankverbindung1, [Firma_BLZ1] = @Firma_BLZ1, [Firm"& _ "a_KTO1] = @Firma_KTO1, [Firma_IBAN1] = @Firma_IBAN1, [Firma_BIC1] = @Firma_BIC1,"& _ " [Firma_Bankverbindung2] = @Firma_Bankverbindung2, [Firma_BLZ2] = @Firma_BLZ2, ["& _ "Firma_KTO2] = @Firma_KTO2, [Firma_IBAN2] = @Firma_IBAN2, [Firma_BIC2] = @Firma_B"& _ "IC2, [Firma_Ort] = @Firma_Ort, [Firma_Straße] = @Firma_Straße, [Firma_Telefon] ="& _ " @Firma_Telefon, [Firma_Telefax] = @Firma_Telefax, [Firma_E-Mail] = @p1, [Firma_"& _ "Webadresse] = @Firma_Webadresse, [Firma_LandKz] = @Firma_LandKz, [Firmengruppe] "& _ "= @Firmengruppe, [Firma_Warenort] = @Firma_Warenort, [Firma_E_Mail_Mahnungen] = "& _ "@Firma_E_Mail_Mahnungen WHERE (([Firma_ID] = @Original_Firma_ID) AND ([SSMA_Time"& _ "Stamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Firma_ID, Firma_Bez, Firma_BackColo"& _ "r, Firma_Logo, Firma_Firmenbuch, Firma_UID, Firma_EORI, Firma_Bankverbindung1, F"& _ "irma_BLZ1, Firma_KTO1, Firma_IBAN1, Firma_BIC1, Firma_Bankverbindung2, Firma_BLZ"& _ "2, Firma_KTO2, Firma_IBAN2, Firma_BIC2, SSMA_TimeStamp, Firma_Ort, Firma_Straße,"& _ " Firma_Telefon, Firma_Telefax, [Firma_E-Mail], Firma_Webadresse, Firma_LandKz, F"& _ "irmengruppe, Firma_Warenort, Firma_E_Mail_Mahnungen FROM tblFirma WHERE (Firma_I"& _ "D = @Firma_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Bez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_BackColor", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_BackColor", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Logo", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Firmenbuch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Firmenbuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_UID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_EORI", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Bankverbindung1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Bankverbindung1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_BLZ1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_BLZ1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_KTO1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_KTO1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_IBAN1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_IBAN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_BIC1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_BIC1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Bankverbindung2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Bankverbindung2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_BLZ2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_BLZ2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_KTO2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_KTO2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_IBAN2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_IBAN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_BIC2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_BIC2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Telefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Telefax", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Telefax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_E-Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Webadresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Webadresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firmengruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firmengruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_Warenort", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_Warenort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_E_Mail_Mahnungen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_E_Mail_Mahnungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Firma_ID, Firma_Bez, Firma_BackColor, Firma_Logo, Firma_Firmenbuch, Firma_"& _ "UID, Firma_EORI, Firma_Bankverbindung1, Firma_BLZ1, Firma_KTO1, Firma_IBAN1, Fir"& _ "ma_BIC1, Firma_Bankverbindung2, Firma_BLZ2, Firma_KTO2, Firma_IBAN2, Firma_BIC2,"& _ " SSMA_TimeStamp, Firma_Ort, Firma_Straße, Firma_Telefon, Firma_Telefax, [Firma_E"& _ "-Mail], Firma_Webadresse, Firma_LandKz, Firmengruppe, Firma_Warenort, Firma_E_Ma"& _ "il_Mahnungen FROM dbo.tblFirma" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblFirmaDataTable) 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 VERAGDataSet.tblFirmaDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblFirmaDataTable = New VERAGDataSet.tblFirmaDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblFirmaDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblFirma") 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_Firma_ID As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Firma_ID,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Firma_ID As Short, _ ByVal Firma_Bez As String, _ ByVal Firma_BackColor As Integer, _ ByVal Firma_Logo() As Byte, _ ByVal Firma_Firmenbuch As String, _ ByVal Firma_UID As String, _ ByVal Firma_EORI As String, _ ByVal Firma_Bankverbindung1 As String, _ ByVal Firma_BLZ1 As String, _ ByVal Firma_KTO1 As String, _ ByVal Firma_IBAN1 As String, _ ByVal Firma_BIC1 As String, _ ByVal Firma_Bankverbindung2 As String, _ ByVal Firma_BLZ2 As String, _ ByVal Firma_KTO2 As String, _ ByVal Firma_IBAN2 As String, _ ByVal Firma_BIC2 As String, _ ByVal Firma_Ort As String, _ ByVal Firma_Straße As String, _ ByVal Firma_Telefon As String, _ ByVal Firma_Telefax As String, _ ByVal p1 As String, _ ByVal Firma_Webadresse As String, _ ByVal Firma_LandKz As String, _ ByVal Firmengruppe As String, _ ByVal Firma_Warenort As Global.System.Nullable(Of Boolean), _ ByVal Firma_E_Mail_Mahnungen As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Firma_ID,Short) If (Firma_Bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma_Bez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Firma_Bez,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Firma_BackColor,Integer) If (Firma_Logo Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Firma_Logo,Byte()) End If If (Firma_Firmenbuch Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Firma_Firmenbuch,String) End If If (Firma_UID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Firma_UID,String) End If If (Firma_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Firma_EORI,String) End If If (Firma_Bankverbindung1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Firma_Bankverbindung1,String) End If If (Firma_BLZ1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Firma_BLZ1,String) End If If (Firma_KTO1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Firma_KTO1,String) End If If (Firma_IBAN1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Firma_IBAN1,String) End If If (Firma_BIC1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Firma_BIC1,String) End If If (Firma_Bankverbindung2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Firma_Bankverbindung2,String) End If If (Firma_BLZ2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Firma_BLZ2,String) End If If (Firma_KTO2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Firma_KTO2,String) End If If (Firma_IBAN2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Firma_IBAN2,String) End If If (Firma_BIC2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Firma_BIC2,String) End If If (Firma_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Firma_Ort,String) End If If (Firma_Straße Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Firma_Straße,String) End If If (Firma_Telefon Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Firma_Telefon,String) End If If (Firma_Telefax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(Firma_Telefax,String) End If If (p1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(p1,String) End If If (Firma_Webadresse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(Firma_Webadresse,String) End If If (Firma_LandKz Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma_LandKz") Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(Firma_LandKz,String) End If If (Firmengruppe Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(Firmengruppe,String) End If If (Firma_Warenort.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(Firma_Warenort.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Firma_E_Mail_Mahnungen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(Firma_E_Mail_Mahnungen,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 Firma_ID As Short, _ ByVal Firma_Bez As String, _ ByVal Firma_BackColor As Integer, _ ByVal Firma_Logo() As Byte, _ ByVal Firma_Firmenbuch As String, _ ByVal Firma_UID As String, _ ByVal Firma_EORI As String, _ ByVal Firma_Bankverbindung1 As String, _ ByVal Firma_BLZ1 As String, _ ByVal Firma_KTO1 As String, _ ByVal Firma_IBAN1 As String, _ ByVal Firma_BIC1 As String, _ ByVal Firma_Bankverbindung2 As String, _ ByVal Firma_BLZ2 As String, _ ByVal Firma_KTO2 As String, _ ByVal Firma_IBAN2 As String, _ ByVal Firma_BIC2 As String, _ ByVal Firma_Ort As String, _ ByVal Firma_Straße As String, _ ByVal Firma_Telefon As String, _ ByVal Firma_Telefax As String, _ ByVal p1 As String, _ ByVal Firma_Webadresse As String, _ ByVal Firma_LandKz As String, _ ByVal Firmengruppe As String, _ ByVal Firma_Warenort As Global.System.Nullable(Of Boolean), _ ByVal Firma_E_Mail_Mahnungen As String, _ ByVal Original_Firma_ID As Short, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Firma_ID,Short) If (Firma_Bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma_Bez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Firma_Bez,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Firma_BackColor,Integer) If (Firma_Logo Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Firma_Logo,Byte()) End If If (Firma_Firmenbuch Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Firma_Firmenbuch,String) End If If (Firma_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Firma_UID,String) End If If (Firma_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Firma_EORI,String) End If If (Firma_Bankverbindung1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Firma_Bankverbindung1,String) End If If (Firma_BLZ1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Firma_BLZ1,String) End If If (Firma_KTO1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Firma_KTO1,String) End If If (Firma_IBAN1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Firma_IBAN1,String) End If If (Firma_BIC1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Firma_BIC1,String) End If If (Firma_Bankverbindung2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Firma_Bankverbindung2,String) End If If (Firma_BLZ2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Firma_BLZ2,String) End If If (Firma_KTO2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Firma_KTO2,String) End If If (Firma_IBAN2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Firma_IBAN2,String) End If If (Firma_BIC2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Firma_BIC2,String) End If If (Firma_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Firma_Ort,String) End If If (Firma_Straße Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Firma_Straße,String) End If If (Firma_Telefon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Firma_Telefon,String) End If If (Firma_Telefax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Firma_Telefax,String) End If If (p1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(p1,String) End If If (Firma_Webadresse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Firma_Webadresse,String) End If If (Firma_LandKz Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma_LandKz") Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Firma_LandKz,String) End If If (Firmengruppe Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Firmengruppe,String) End If If (Firma_Warenort.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Firma_Warenort.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Firma_E_Mail_Mahnungen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Firma_E_Mail_Mahnungen,String) End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Firma_ID,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Firma_Bez As String, _ ByVal Firma_BackColor As Integer, _ ByVal Firma_Logo() As Byte, _ ByVal Firma_Firmenbuch As String, _ ByVal Firma_UID As String, _ ByVal Firma_EORI As String, _ ByVal Firma_Bankverbindung1 As String, _ ByVal Firma_BLZ1 As String, _ ByVal Firma_KTO1 As String, _ ByVal Firma_IBAN1 As String, _ ByVal Firma_BIC1 As String, _ ByVal Firma_Bankverbindung2 As String, _ ByVal Firma_BLZ2 As String, _ ByVal Firma_KTO2 As String, _ ByVal Firma_IBAN2 As String, _ ByVal Firma_BIC2 As String, _ ByVal Firma_Ort As String, _ ByVal Firma_Straße As String, _ ByVal Firma_Telefon As String, _ ByVal Firma_Telefax As String, _ ByVal p1 As String, _ ByVal Firma_Webadresse As String, _ ByVal Firma_LandKz As String, _ ByVal Firmengruppe As String, _ ByVal Firma_Warenort As Global.System.Nullable(Of Boolean), _ ByVal Firma_E_Mail_Mahnungen As String, _ ByVal Original_Firma_ID As Short, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Firma_ID, Firma_Bez, Firma_BackColor, Firma_Logo, Firma_Firmenbuch, Firma_UID, Firma_EORI, Firma_Bankverbindung1, Firma_BLZ1, Firma_KTO1, Firma_IBAN1, Firma_BIC1, Firma_Bankverbindung2, Firma_BLZ2, Firma_KTO2, Firma_IBAN2, Firma_BIC2, Firma_Ort, Firma_Straße, Firma_Telefon, Firma_Telefax, p1, Firma_Webadresse, Firma_LandKz, Firmengruppe, Firma_Warenort, Firma_E_Mail_Mahnungen, Original_Firma_ID, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblFiskal_DatenTableAdapter 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 = "tblFiskal_Daten" tableMapping.ColumnMappings.Add("fisk_KundenNr", "fisk_KundenNr") tableMapping.ColumnMappings.Add("fisk_schreibenFA", "fisk_schreibenFA") tableMapping.ColumnMappings.Add("fisk_schreibenSB", "fisk_schreibenSB") tableMapping.ColumnMappings.Add("fisk_schreibenCMR", "fisk_schreibenCMR") tableMapping.ColumnMappings.Add("fisk_schreibenFA_Adr", "fisk_schreibenFA_Adr") tableMapping.ColumnMappings.Add("fisk_schreibenSB_Adr", "fisk_schreibenSB_Adr") tableMapping.ColumnMappings.Add("fisk_schreibenSB_Mail", "fisk_schreibenSB_Mail") tableMapping.ColumnMappings.Add("fisk_schreibenFA_Mail", "fisk_schreibenFA_Mail") 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].[tblFiskal_Daten] WHERE (([fisk_KundenNr] = @Original_fisk_Kund"& _ "enNr) AND ([fisk_schreibenFA] = @Original_fisk_schreibenFA) AND ([fisk_schreiben"& _ "SB] = @Original_fisk_schreibenSB) AND ([fisk_schreibenCMR] = @Original_fisk_schr"& _ "eibenCMR) AND ((@IsNull_fisk_schreibenSB_Mail = 1 AND [fisk_schreibenSB_Mail] IS"& _ " NULL) OR ([fisk_schreibenSB_Mail] = @Original_fisk_schreibenSB_Mail)) AND ((@Is"& _ "Null_fisk_schreibenFA_Mail = 1 AND [fisk_schreibenFA_Mail] IS NULL) OR ([fisk_sc"& _ "hreibenFA_Mail] = @Original_fisk_schreibenFA_Mail)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_schreibenFA", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_schreibenSB", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_schreibenCMR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenCMR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fisk_schreibenSB_Mail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB_Mail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_schreibenSB_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB_Mail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fisk_schreibenFA_Mail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA_Mail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_schreibenFA_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA_Mail", 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].[tblFiskal_Daten] ([fisk_KundenNr], [fisk_schreibenFA], [fisk_s"& _ "chreibenSB], [fisk_schreibenCMR], [fisk_schreibenFA_Adr], [fisk_schreibenSB_Adr]"& _ ", [fisk_schreibenSB_Mail], [fisk_schreibenFA_Mail]) VALUES (@fisk_KundenNr, @fis"& _ "k_schreibenFA, @fisk_schreibenSB, @fisk_schreibenCMR, @fisk_schreibenFA_Adr, @fi"& _ "sk_schreibenSB_Adr, @fisk_schreibenSB_Mail, @fisk_schreibenFA_Mail);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT fis"& _ "k_KundenNr, fisk_schreibenFA, fisk_schreibenSB, fisk_schreibenCMR, fisk_schreibe"& _ "nFA_Adr, fisk_schreibenSB_Adr, fisk_schreibenSB_Mail, fisk_schreibenFA_Mail FROM"& _ " tblFiskal_Daten WHERE (fisk_KundenNr = @fisk_KundenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenFA", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenSB", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenCMR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenCMR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenFA_Adr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA_Adr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenSB_Adr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB_Adr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenSB_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB_Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenFA_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA_Mail", 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].[tblFiskal_Daten] SET [fisk_KundenNr] = @fisk_KundenNr, [fisk_schrei"& _ "benFA] = @fisk_schreibenFA, [fisk_schreibenSB] = @fisk_schreibenSB, [fisk_schrei"& _ "benCMR] = @fisk_schreibenCMR, [fisk_schreibenFA_Adr] = @fisk_schreibenFA_Adr, [f"& _ "isk_schreibenSB_Adr] = @fisk_schreibenSB_Adr, [fisk_schreibenSB_Mail] = @fisk_sc"& _ "hreibenSB_Mail, [fisk_schreibenFA_Mail] = @fisk_schreibenFA_Mail WHERE (([fisk_K"& _ "undenNr] = @Original_fisk_KundenNr) AND ([fisk_schreibenFA] = @Original_fisk_sch"& _ "reibenFA) AND ([fisk_schreibenSB] = @Original_fisk_schreibenSB) AND ([fisk_schre"& _ "ibenCMR] = @Original_fisk_schreibenCMR) AND ((@IsNull_fisk_schreibenSB_Mail = 1 "& _ "AND [fisk_schreibenSB_Mail] IS NULL) OR ([fisk_schreibenSB_Mail] = @Original_fis"& _ "k_schreibenSB_Mail)) AND ((@IsNull_fisk_schreibenFA_Mail = 1 AND [fisk_schreiben"& _ "FA_Mail] IS NULL) OR ([fisk_schreibenFA_Mail] = @Original_fisk_schreibenFA_Mail)"& _ "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT fisk_KundenNr, fisk_schreibenFA, fisk_schreibenSB, fisk_schreibenCMR"& _ ", fisk_schreibenFA_Adr, fisk_schreibenSB_Adr, fisk_schreibenSB_Mail, fisk_schrei"& _ "benFA_Mail FROM tblFiskal_Daten WHERE (fisk_KundenNr = @fisk_KundenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenFA", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenSB", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenCMR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenCMR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenFA_Adr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA_Adr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenSB_Adr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB_Adr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenSB_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB_Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fisk_schreibenFA_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA_Mail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_schreibenFA", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_schreibenSB", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_schreibenCMR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenCMR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fisk_schreibenSB_Mail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB_Mail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_schreibenSB_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenSB_Mail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fisk_schreibenFA_Mail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA_Mail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fisk_schreibenFA_Mail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fisk_schreibenFA_Mail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 fisk_KundenNr, fisk_schreibenFA, fisk_schreibenSB, fisk_schreibenCMR, fisk"& _ "_schreibenFA_Adr, fisk_schreibenSB_Adr, fisk_schreibenSB_Mail, fisk_schreibenFA_"& _ "Mail FROM dbo.tblFiskal_Daten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblFiskal_DatenDataTable) 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 VERAGDataSet.tblFiskal_DatenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblFiskal_DatenDataTable = New VERAGDataSet.tblFiskal_DatenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblFiskal_DatenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblFiskal_Daten") 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_fisk_KundenNr As Integer, ByVal Original_fisk_schreibenFA As Boolean, ByVal Original_fisk_schreibenSB As Boolean, ByVal Original_fisk_schreibenCMR As Boolean, ByVal Original_fisk_schreibenSB_Mail As String, ByVal Original_fisk_schreibenFA_Mail As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_fisk_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_fisk_schreibenFA,Boolean) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_fisk_schreibenSB,Boolean) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_fisk_schreibenCMR,Boolean) If (Original_fisk_schreibenSB_Mail 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_fisk_schreibenSB_Mail,String) End If If (Original_fisk_schreibenFA_Mail 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_fisk_schreibenFA_Mail,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 fisk_KundenNr As Integer, ByVal fisk_schreibenFA As Boolean, ByVal fisk_schreibenSB As Boolean, ByVal fisk_schreibenCMR As Boolean, ByVal fisk_schreibenFA_Adr As String, ByVal fisk_schreibenSB_Adr As String, ByVal fisk_schreibenSB_Mail As String, ByVal fisk_schreibenFA_Mail As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(fisk_KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(fisk_schreibenFA,Boolean) Me.Adapter.InsertCommand.Parameters(2).Value = CType(fisk_schreibenSB,Boolean) Me.Adapter.InsertCommand.Parameters(3).Value = CType(fisk_schreibenCMR,Boolean) If (fisk_schreibenFA_Adr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(fisk_schreibenFA_Adr,String) End If If (fisk_schreibenSB_Adr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(fisk_schreibenSB_Adr,String) End If If (fisk_schreibenSB_Mail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(fisk_schreibenSB_Mail,String) End If If (fisk_schreibenFA_Mail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(fisk_schreibenFA_Mail,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 fisk_KundenNr As Integer, ByVal fisk_schreibenFA As Boolean, ByVal fisk_schreibenSB As Boolean, ByVal fisk_schreibenCMR As Boolean, ByVal fisk_schreibenFA_Adr As String, ByVal fisk_schreibenSB_Adr As String, ByVal fisk_schreibenSB_Mail As String, ByVal fisk_schreibenFA_Mail As String, ByVal Original_fisk_KundenNr As Integer, ByVal Original_fisk_schreibenFA As Boolean, ByVal Original_fisk_schreibenSB As Boolean, ByVal Original_fisk_schreibenCMR As Boolean, ByVal Original_fisk_schreibenSB_Mail As String, ByVal Original_fisk_schreibenFA_Mail As String) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(fisk_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(fisk_schreibenFA,Boolean) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(fisk_schreibenSB,Boolean) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(fisk_schreibenCMR,Boolean) If (fisk_schreibenFA_Adr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(fisk_schreibenFA_Adr,String) End If If (fisk_schreibenSB_Adr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(fisk_schreibenSB_Adr,String) End If If (fisk_schreibenSB_Mail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(fisk_schreibenSB_Mail,String) End If If (fisk_schreibenFA_Mail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(fisk_schreibenFA_Mail,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_fisk_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_fisk_schreibenFA,Boolean) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_fisk_schreibenSB,Boolean) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_fisk_schreibenCMR,Boolean) If (Original_fisk_schreibenSB_Mail 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_fisk_schreibenSB_Mail,String) End If If (Original_fisk_schreibenFA_Mail 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_fisk_schreibenFA_Mail,String) End If 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 fisk_schreibenFA As Boolean, ByVal fisk_schreibenSB As Boolean, ByVal fisk_schreibenCMR As Boolean, ByVal fisk_schreibenFA_Adr As String, ByVal fisk_schreibenSB_Adr As String, ByVal fisk_schreibenSB_Mail As String, ByVal fisk_schreibenFA_Mail As String, ByVal Original_fisk_KundenNr As Integer, ByVal Original_fisk_schreibenFA As Boolean, ByVal Original_fisk_schreibenSB As Boolean, ByVal Original_fisk_schreibenCMR As Boolean, ByVal Original_fisk_schreibenSB_Mail As String, ByVal Original_fisk_schreibenFA_Mail As String) As Integer Return Me.Update(Original_fisk_KundenNr, fisk_schreibenFA, fisk_schreibenSB, fisk_schreibenCMR, fisk_schreibenFA_Adr, fisk_schreibenSB_Adr, fisk_schreibenSB_Mail, fisk_schreibenFA_Mail, Original_fisk_KundenNr, Original_fisk_schreibenFA, Original_fisk_schreibenSB, Original_fisk_schreibenCMR, Original_fisk_schreibenSB_Mail, Original_fisk_schreibenFA_Mail) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblFiskalkundenTableAdapter 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 = "tblFiskalkunden" tableMapping.ColumnMappings.Add("FK_Id", "FK_Id") tableMapping.ColumnMappings.Add("FK_Kdnr", "FK_Kdnr") tableMapping.ColumnMappings.Add("FK_Datum", "FK_Datum") tableMapping.ColumnMappings.Add("FK_Art", "FK_Art") tableMapping.ColumnMappings.Add("FK_locked", "FK_locked") tableMapping.ColumnMappings.Add("FK_WebsiteSt_URL", "FK_WebsiteSt_URL") tableMapping.ColumnMappings.Add("FK_Bonitaet", "FK_Bonitaet") tableMapping.ColumnMappings.Add("FK_Vollmacht", "FK_Vollmacht") tableMapping.ColumnMappings.Add("FK_Untervollmacht", "FK_Untervollmacht") tableMapping.ColumnMappings.Add("FK_UID", "FK_UID") tableMapping.ColumnMappings.Add("FK_EORI", "FK_EORI") tableMapping.ColumnMappings.Add("FK_VollmachtOriginal", "FK_VollmachtOriginal") tableMapping.ColumnMappings.Add("FK_Website_URL", "FK_Website_URL") tableMapping.ColumnMappings.Add("FK_Anmerkung", "FK_Anmerkung") tableMapping.ColumnMappings.Add("FK_Abschlussdatum", "FK_Abschlussdatum") tableMapping.ColumnMappings.Add("FK_MaId", "FK_MaId") tableMapping.ColumnMappings.Add("FK_Lieferanten", "FK_Lieferanten") tableMapping.ColumnMappings.Add("FK_Empfaenger", "FK_Empfaenger") tableMapping.ColumnMappings.Add("FK_Waren", "FK_Waren") tableMapping.ColumnMappings.Add("FK_Zwischenhaendler", "FK_Zwischenhaendler") tableMapping.ColumnMappings.Add("FK_Gruendungsdatum", "FK_Gruendungsdatum") tableMapping.ColumnMappings.Add("FK_AnzahlMitarbeiter", "FK_AnzahlMitarbeiter") tableMapping.ColumnMappings.Add("FK_Geschaeftszweck", "FK_Geschaeftszweck") tableMapping.ColumnMappings.Add("FK_KreditMax", "FK_KreditMax") tableMapping.ColumnMappings.Add("FK_Umsatz", "FK_Umsatz") tableMapping.ColumnMappings.Add("FK_Geschaeftsfuehrer", "FK_Geschaeftsfuehrer") tableMapping.ColumnMappings.Add("FK_Steuerberater", "FK_Steuerberater") 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].[tblFiskalkunden] WHERE (([FK_Id] = @Original_FK_Id) AND ([FK_K"& _ "dnr] = @Original_FK_Kdnr) AND ([FK_Datum] = @Original_FK_Datum) AND ([FK_Art] = "& _ "@Original_FK_Art) AND ((@IsNull_FK_locked = 1 AND [FK_locked] IS NULL) OR ([FK_l"& _ "ocked] = @Original_FK_locked)) AND ((@IsNull_FK_Bonitaet = 1 AND [FK_Bonitaet] I"& _ "S NULL) OR ([FK_Bonitaet] = @Original_FK_Bonitaet)) AND ((@IsNull_FK_Vollmacht ="& _ " 1 AND [FK_Vollmacht] IS NULL) OR ([FK_Vollmacht] = @Original_FK_Vollmacht)) AND"& _ " ((@IsNull_FK_Untervollmacht = 1 AND [FK_Untervollmacht] IS NULL) OR ([FK_Unterv"& _ "ollmacht] = @Original_FK_Untervollmacht)) AND ((@IsNull_FK_UID = 1 AND [FK_UID] "& _ "IS NULL) OR ([FK_UID] = @Original_FK_UID)) AND ((@IsNull_FK_EORI = 1 AND [FK_EOR"& _ "I] IS NULL) OR ([FK_EORI] = @Original_FK_EORI)) AND ((@IsNull_FK_VollmachtOrigin"& _ "al = 1 AND [FK_VollmachtOriginal] IS NULL) OR ([FK_VollmachtOriginal] = @Origina"& _ "l_FK_VollmachtOriginal)) AND ((@IsNull_FK_Abschlussdatum = 1 AND [FK_Abschlussda"& _ "tum] IS NULL) OR ([FK_Abschlussdatum] = @Original_FK_Abschlussdatum)) AND ((@IsN"& _ "ull_FK_MaId = 1 AND [FK_MaId] IS NULL) OR ([FK_MaId] = @Original_FK_MaId)) AND ("& _ "(@IsNull_FK_Gruendungsdatum = 1 AND [FK_Gruendungsdatum] IS NULL) OR ([FK_Gruend"& _ "ungsdatum] = @Original_FK_Gruendungsdatum)) AND ((@IsNull_FK_AnzahlMitarbeiter ="& _ " 1 AND [FK_AnzahlMitarbeiter] IS NULL) OR ([FK_AnzahlMitarbeiter] = @Original_FK"& _ "_AnzahlMitarbeiter)) AND ((@IsNull_FK_KreditMax = 1 AND [FK_KreditMax] IS NULL) "& _ "OR ([FK_KreditMax] = @Original_FK_KreditMax)) AND ((@IsNull_FK_Umsatz = 1 AND [F"& _ "K_Umsatz] IS NULL) OR ([FK_Umsatz] = @Original_FK_Umsatz)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Kdnr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Kdnr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Datum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Art", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_locked", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_locked", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_locked", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_locked", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Bonitaet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Bonitaet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Bonitaet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Bonitaet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Vollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Vollmacht", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Vollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Vollmacht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Untervollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Untervollmacht", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Untervollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Untervollmacht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_VollmachtOriginal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_VollmachtOriginal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_VollmachtOriginal", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_VollmachtOriginal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Abschlussdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Abschlussdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Abschlussdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Abschlussdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_MaId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_MaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Gruendungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Gruendungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Gruendungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Gruendungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_AnzahlMitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_AnzahlMitarbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_AnzahlMitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_AnzahlMitarbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_KreditMax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_KreditMax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_KreditMax", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_KreditMax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Umsatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Umsatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Umsatz", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Umsatz", 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].[tblFiskalkunden] ([FK_Kdnr], [FK_Datum], [FK_Art], [FK_locked]"& _ ", [FK_WebsiteSt_URL], [FK_Bonitaet], [FK_Vollmacht], [FK_Untervollmacht], [FK_UI"& _ "D], [FK_EORI], [FK_VollmachtOriginal], [FK_Website_URL], [FK_Anmerkung], [FK_Abs"& _ "chlussdatum], [FK_MaId], [FK_Lieferanten], [FK_Empfaenger], [FK_Waren], [FK_Zwis"& _ "chenhaendler], [FK_Gruendungsdatum], [FK_AnzahlMitarbeiter], [FK_Geschaeftszweck"& _ "], [FK_KreditMax], [FK_Umsatz], [FK_Geschaeftsfuehrer], [FK_Steuerberater]) VALU"& _ "ES (@FK_Kdnr, @FK_Datum, @FK_Art, @FK_locked, @FK_WebsiteSt_URL, @FK_Bonitaet, @"& _ "FK_Vollmacht, @FK_Untervollmacht, @FK_UID, @FK_EORI, @FK_VollmachtOriginal, @FK_"& _ "Website_URL, @FK_Anmerkung, @FK_Abschlussdatum, @FK_MaId, @FK_Lieferanten, @FK_E"& _ "mpfaenger, @FK_Waren, @FK_Zwischenhaendler, @FK_Gruendungsdatum, @FK_AnzahlMitar"& _ "beiter, @FK_Geschaeftszweck, @FK_KreditMax, @FK_Umsatz, @FK_Geschaeftsfuehrer, @"& _ "FK_Steuerberater);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FK_Id, FK_Kdnr, FK_Datum, FK_Art, FK_locked, FK_Websi"& _ "teSt_URL, FK_Bonitaet, FK_Vollmacht, FK_Untervollmacht, FK_UID, FK_EORI, FK_Voll"& _ "machtOriginal, FK_Website_URL, FK_Anmerkung, FK_Abschlussdatum, FK_MaId, FK_Lief"& _ "eranten, FK_Empfaenger, FK_Waren, FK_Zwischenhaendler, FK_Gruendungsdatum, FK_An"& _ "zahlMitarbeiter, FK_Geschaeftszweck, FK_KreditMax, FK_Umsatz, FK_Geschaeftsfuehr"& _ "er, FK_Steuerberater FROM tblFiskalkunden WHERE (FK_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Kdnr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Kdnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Datum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Art", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_locked", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_locked", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_WebsiteSt_URL", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_WebsiteSt_URL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Bonitaet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Bonitaet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Vollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Vollmacht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Untervollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Untervollmacht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_VollmachtOriginal", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_VollmachtOriginal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Website_URL", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Website_URL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Anmerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Anmerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Abschlussdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Abschlussdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_MaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Lieferanten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Lieferanten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Empfaenger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Empfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Waren", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Waren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Zwischenhaendler", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Zwischenhaendler", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Gruendungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Gruendungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_AnzahlMitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_AnzahlMitarbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Geschaeftszweck", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Geschaeftszweck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_KreditMax", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_KreditMax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Umsatz", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Umsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Geschaeftsfuehrer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Geschaeftsfuehrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Steuerberater", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Steuerberater", 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].[tblFiskalkunden] SET [FK_Kdnr] = @FK_Kdnr, [FK_Datum] = @FK_Datum, "& _ "[FK_Art] = @FK_Art, [FK_locked] = @FK_locked, [FK_WebsiteSt_URL] = @FK_WebsiteSt"& _ "_URL, [FK_Bonitaet] = @FK_Bonitaet, [FK_Vollmacht] = @FK_Vollmacht, [FK_Untervol"& _ "lmacht] = @FK_Untervollmacht, [FK_UID] = @FK_UID, [FK_EORI] = @FK_EORI, [FK_Voll"& _ "machtOriginal] = @FK_VollmachtOriginal, [FK_Website_URL] = @FK_Website_URL, [FK_"& _ "Anmerkung] = @FK_Anmerkung, [FK_Abschlussdatum] = @FK_Abschlussdatum, [FK_MaId] "& _ "= @FK_MaId, [FK_Lieferanten] = @FK_Lieferanten, [FK_Empfaenger] = @FK_Empfaenger"& _ ", [FK_Waren] = @FK_Waren, [FK_Zwischenhaendler] = @FK_Zwischenhaendler, [FK_Grue"& _ "ndungsdatum] = @FK_Gruendungsdatum, [FK_AnzahlMitarbeiter] = @FK_AnzahlMitarbeit"& _ "er, [FK_Geschaeftszweck] = @FK_Geschaeftszweck, [FK_KreditMax] = @FK_KreditMax, "& _ "[FK_Umsatz] = @FK_Umsatz, [FK_Geschaeftsfuehrer] = @FK_Geschaeftsfuehrer, [FK_St"& _ "euerberater] = @FK_Steuerberater WHERE (([FK_Id] = @Original_FK_Id) AND ([FK_Kdn"& _ "r] = @Original_FK_Kdnr) AND ([FK_Datum] = @Original_FK_Datum) AND ([FK_Art] = @O"& _ "riginal_FK_Art) AND ((@IsNull_FK_locked = 1 AND [FK_locked] IS NULL) OR ([FK_loc"& _ "ked] = @Original_FK_locked)) AND ((@IsNull_FK_Bonitaet = 1 AND [FK_Bonitaet] IS "& _ "NULL) OR ([FK_Bonitaet] = @Original_FK_Bonitaet)) AND ((@IsNull_FK_Vollmacht = 1"& _ " AND [FK_Vollmacht] IS NULL) OR ([FK_Vollmacht] = @Original_FK_Vollmacht)) AND ("& _ "(@IsNull_FK_Untervollmacht = 1 AND [FK_Untervollmacht] IS NULL) OR ([FK_Untervol"& _ "lmacht] = @Original_FK_Untervollmacht)) AND ((@IsNull_FK_UID = 1 AND [FK_UID] IS"& _ " NULL) OR ([FK_UID] = @Original_FK_UID)) AND ((@IsNull_FK_EORI = 1 AND [FK_EORI]"& _ " IS NULL) OR ([FK_EORI] = @Original_FK_EORI)) AND ((@IsNull_FK_VollmachtOriginal"& _ " = 1 AND [FK_VollmachtOriginal] IS NULL) OR ([FK_VollmachtOriginal] = @Original_"& _ "FK_VollmachtOriginal)) AND ((@IsNull_FK_Abschlussdatum = 1 AND [FK_Abschlussdatu"& _ "m] IS NULL) OR ([FK_Abschlussdatum] = @Original_FK_Abschlussdatum)) AND ((@IsNul"& _ "l_FK_MaId = 1 AND [FK_MaId] IS NULL) OR ([FK_MaId] = @Original_FK_MaId)) AND ((@"& _ "IsNull_FK_Gruendungsdatum = 1 AND [FK_Gruendungsdatum] IS NULL) OR ([FK_Gruendun"& _ "gsdatum] = @Original_FK_Gruendungsdatum)) AND ((@IsNull_FK_AnzahlMitarbeiter = 1"& _ " AND [FK_AnzahlMitarbeiter] IS NULL) OR ([FK_AnzahlMitarbeiter] = @Original_FK_A"& _ "nzahlMitarbeiter)) AND ((@IsNull_FK_KreditMax = 1 AND [FK_KreditMax] IS NULL) OR"& _ " ([FK_KreditMax] = @Original_FK_KreditMax)) AND ((@IsNull_FK_Umsatz = 1 AND [FK_"& _ "Umsatz] IS NULL) OR ([FK_Umsatz] = @Original_FK_Umsatz)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FK_Id, FK_Kdn"& _ "r, FK_Datum, FK_Art, FK_locked, FK_WebsiteSt_URL, FK_Bonitaet, FK_Vollmacht, FK_"& _ "Untervollmacht, FK_UID, FK_EORI, FK_VollmachtOriginal, FK_Website_URL, FK_Anmerk"& _ "ung, FK_Abschlussdatum, FK_MaId, FK_Lieferanten, FK_Empfaenger, FK_Waren, FK_Zwi"& _ "schenhaendler, FK_Gruendungsdatum, FK_AnzahlMitarbeiter, FK_Geschaeftszweck, FK_"& _ "KreditMax, FK_Umsatz, FK_Geschaeftsfuehrer, FK_Steuerberater FROM tblFiskalkunde"& _ "n WHERE (FK_Id = @FK_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Kdnr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Kdnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Datum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Art", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_locked", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_locked", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_WebsiteSt_URL", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_WebsiteSt_URL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Bonitaet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Bonitaet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Vollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Vollmacht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Untervollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Untervollmacht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_VollmachtOriginal", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_VollmachtOriginal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Website_URL", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Website_URL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Anmerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Anmerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Abschlussdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Abschlussdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_MaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Lieferanten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Lieferanten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Empfaenger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Empfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Waren", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Waren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Zwischenhaendler", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Zwischenhaendler", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Gruendungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Gruendungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_AnzahlMitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_AnzahlMitarbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Geschaeftszweck", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Geschaeftszweck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_KreditMax", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_KreditMax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Umsatz", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Umsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Geschaeftsfuehrer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Geschaeftsfuehrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Steuerberater", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Steuerberater", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Kdnr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Kdnr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Datum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Art", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_locked", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_locked", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_locked", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_locked", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Bonitaet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Bonitaet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Bonitaet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Bonitaet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Vollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Vollmacht", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Vollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Vollmacht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Untervollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Untervollmacht", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Untervollmacht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Untervollmacht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_VollmachtOriginal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_VollmachtOriginal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_VollmachtOriginal", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_VollmachtOriginal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Abschlussdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Abschlussdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Abschlussdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Abschlussdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_MaId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_MaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Gruendungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Gruendungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Gruendungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Gruendungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_AnzahlMitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_AnzahlMitarbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_AnzahlMitarbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_AnzahlMitarbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_KreditMax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_KreditMax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_KreditMax", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_KreditMax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_Umsatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Umsatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_Umsatz", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Umsatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 FK_Id, FK_Kdnr, FK_Datum, FK_Art, FK_locked, FK_WebsiteSt_URL, FK_Bonitaet"& _ ", FK_Vollmacht, FK_Untervollmacht, FK_UID, FK_EORI, FK_VollmachtOriginal, FK_Web"& _ "site_URL, FK_Anmerkung, FK_Abschlussdatum, FK_MaId, FK_Lieferanten, FK_Empfaenge"& _ "r, FK_Waren, FK_Zwischenhaendler, FK_Gruendungsdatum, FK_AnzahlMitarbeiter, FK_G"& _ "eschaeftszweck, FK_KreditMax, FK_Umsatz, FK_Geschaeftsfuehrer, FK_Steuerberater "& _ "FROM dbo.tblFiskalkunden" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblFiskalkundenDataTable) 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 VERAGDataSet.tblFiskalkundenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblFiskalkundenDataTable = New VERAGDataSet.tblFiskalkundenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblFiskalkundenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblFiskalkunden") 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_FK_Id As Integer, _ ByVal Original_FK_Kdnr As Integer, _ ByVal Original_FK_Datum As Date, _ ByVal Original_FK_Art As String, _ ByVal Original_FK_locked As Global.System.Nullable(Of Boolean), _ ByVal Original_FK_Bonitaet As Global.System.Nullable(Of Integer), _ ByVal Original_FK_Vollmacht As Global.System.Nullable(Of Integer), _ ByVal Original_FK_Untervollmacht As Global.System.Nullable(Of Integer), _ ByVal Original_FK_UID As Global.System.Nullable(Of Integer), _ ByVal Original_FK_EORI As Global.System.Nullable(Of Integer), _ ByVal Original_FK_VollmachtOriginal As Global.System.Nullable(Of Boolean), _ ByVal Original_FK_Abschlussdatum As Global.System.Nullable(Of Date), _ ByVal Original_FK_MaId As Global.System.Nullable(Of Integer), _ ByVal Original_FK_Gruendungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_FK_AnzahlMitarbeiter As Global.System.Nullable(Of Integer), _ ByVal Original_FK_KreditMax As Global.System.Nullable(Of Decimal), _ ByVal Original_FK_Umsatz As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_FK_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FK_Kdnr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FK_Datum,Date) If (Original_FK_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_FK_Art") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_FK_Art,String) End If If (Original_FK_locked.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_FK_locked.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Original_FK_Bonitaet.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_FK_Bonitaet.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_FK_Vollmacht.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_FK_Vollmacht.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_FK_Untervollmacht.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_FK_Untervollmacht.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Original_FK_UID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_FK_UID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_FK_EORI.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_FK_EORI.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_FK_VollmachtOriginal.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_FK_VollmachtOriginal.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_FK_Abschlussdatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_FK_Abschlussdatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_FK_MaId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_FK_MaId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_FK_Gruendungsdatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_FK_Gruendungsdatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_FK_AnzahlMitarbeiter.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_FK_AnzahlMitarbeiter.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_FK_KreditMax.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_FK_KreditMax.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_FK_Umsatz.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_FK_Umsatz.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(29).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 FK_Kdnr As Integer, _ ByVal FK_Datum As Date, _ ByVal FK_Art As String, _ ByVal FK_locked As Global.System.Nullable(Of Boolean), _ ByVal FK_WebsiteSt_URL As String, _ ByVal FK_Bonitaet As Global.System.Nullable(Of Integer), _ ByVal FK_Vollmacht As Global.System.Nullable(Of Integer), _ ByVal FK_Untervollmacht As Global.System.Nullable(Of Integer), _ ByVal FK_UID As Global.System.Nullable(Of Integer), _ ByVal FK_EORI As Global.System.Nullable(Of Integer), _ ByVal FK_VollmachtOriginal As Global.System.Nullable(Of Boolean), _ ByVal FK_Website_URL As String, _ ByVal FK_Anmerkung As String, _ ByVal FK_Abschlussdatum As Global.System.Nullable(Of Date), _ ByVal FK_MaId As Global.System.Nullable(Of Integer), _ ByVal FK_Lieferanten As String, _ ByVal FK_Empfaenger As String, _ ByVal FK_Waren As String, _ ByVal FK_Zwischenhaendler As String, _ ByVal FK_Gruendungsdatum As Global.System.Nullable(Of Date), _ ByVal FK_AnzahlMitarbeiter As Global.System.Nullable(Of Integer), _ ByVal FK_Geschaeftszweck As String, _ ByVal FK_KreditMax As Global.System.Nullable(Of Decimal), _ ByVal FK_Umsatz As Global.System.Nullable(Of Decimal), _ ByVal FK_Geschaeftsfuehrer As String, _ ByVal FK_Steuerberater As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(FK_Kdnr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(FK_Datum,Date) If (FK_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("FK_Art") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(FK_Art,String) End If If (FK_locked.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(FK_locked.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (FK_WebsiteSt_URL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(FK_WebsiteSt_URL,String) End If If (FK_Bonitaet.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(FK_Bonitaet.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (FK_Vollmacht.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(FK_Vollmacht.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (FK_Untervollmacht.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(FK_Untervollmacht.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (FK_UID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(FK_UID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (FK_EORI.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(FK_EORI.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (FK_VollmachtOriginal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(FK_VollmachtOriginal.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (FK_Website_URL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(FK_Website_URL,String) End If If (FK_Anmerkung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(FK_Anmerkung,String) End If If (FK_Abschlussdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(FK_Abschlussdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (FK_MaId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(FK_MaId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (FK_Lieferanten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(FK_Lieferanten,String) End If If (FK_Empfaenger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(FK_Empfaenger,String) End If If (FK_Waren Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(FK_Waren,String) End If If (FK_Zwischenhaendler Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(FK_Zwischenhaendler,String) End If If (FK_Gruendungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(FK_Gruendungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (FK_AnzahlMitarbeiter.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(FK_AnzahlMitarbeiter.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (FK_Geschaeftszweck Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(FK_Geschaeftszweck,String) End If If (FK_KreditMax.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(FK_KreditMax.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (FK_Umsatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(FK_Umsatz.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (FK_Geschaeftsfuehrer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(FK_Geschaeftsfuehrer,String) End If If (FK_Steuerberater Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(FK_Steuerberater,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 FK_Kdnr As Integer, _ ByVal FK_Datum As Date, _ ByVal FK_Art As String, _ ByVal FK_locked As Global.System.Nullable(Of Boolean), _ ByVal FK_WebsiteSt_URL As String, _ ByVal FK_Bonitaet As Global.System.Nullable(Of Integer), _ ByVal FK_Vollmacht As Global.System.Nullable(Of Integer), _ ByVal FK_Untervollmacht As Global.System.Nullable(Of Integer), _ ByVal FK_UID As Global.System.Nullable(Of Integer), _ ByVal FK_EORI As Global.System.Nullable(Of Integer), _ ByVal FK_VollmachtOriginal As Global.System.Nullable(Of Boolean), _ ByVal FK_Website_URL As String, _ ByVal FK_Anmerkung As String, _ ByVal FK_Abschlussdatum As Global.System.Nullable(Of Date), _ ByVal FK_MaId As Global.System.Nullable(Of Integer), _ ByVal FK_Lieferanten As String, _ ByVal FK_Empfaenger As String, _ ByVal FK_Waren As String, _ ByVal FK_Zwischenhaendler As String, _ ByVal FK_Gruendungsdatum As Global.System.Nullable(Of Date), _ ByVal FK_AnzahlMitarbeiter As Global.System.Nullable(Of Integer), _ ByVal FK_Geschaeftszweck As String, _ ByVal FK_KreditMax As Global.System.Nullable(Of Decimal), _ ByVal FK_Umsatz As Global.System.Nullable(Of Decimal), _ ByVal FK_Geschaeftsfuehrer As String, _ ByVal FK_Steuerberater As String, _ ByVal Original_FK_Id As Integer, _ ByVal Original_FK_Kdnr As Integer, _ ByVal Original_FK_Datum As Date, _ ByVal Original_FK_Art As String, _ ByVal Original_FK_locked As Global.System.Nullable(Of Boolean), _ ByVal Original_FK_Bonitaet As Global.System.Nullable(Of Integer), _ ByVal Original_FK_Vollmacht As Global.System.Nullable(Of Integer), _ ByVal Original_FK_Untervollmacht As Global.System.Nullable(Of Integer), _ ByVal Original_FK_UID As Global.System.Nullable(Of Integer), _ ByVal Original_FK_EORI As Global.System.Nullable(Of Integer), _ ByVal Original_FK_VollmachtOriginal As Global.System.Nullable(Of Boolean), _ ByVal Original_FK_Abschlussdatum As Global.System.Nullable(Of Date), _ ByVal Original_FK_MaId As Global.System.Nullable(Of Integer), _ ByVal Original_FK_Gruendungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_FK_AnzahlMitarbeiter As Global.System.Nullable(Of Integer), _ ByVal Original_FK_KreditMax As Global.System.Nullable(Of Decimal), _ ByVal Original_FK_Umsatz As Global.System.Nullable(Of Decimal), _ ByVal FK_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FK_Kdnr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FK_Datum,Date) If (FK_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("FK_Art") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FK_Art,String) End If If (FK_locked.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FK_locked.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (FK_WebsiteSt_URL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(FK_WebsiteSt_URL,String) End If If (FK_Bonitaet.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FK_Bonitaet.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (FK_Vollmacht.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(FK_Vollmacht.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (FK_Untervollmacht.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(FK_Untervollmacht.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (FK_UID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(FK_UID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (FK_EORI.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(FK_EORI.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (FK_VollmachtOriginal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FK_VollmachtOriginal.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (FK_Website_URL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(FK_Website_URL,String) End If If (FK_Anmerkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(FK_Anmerkung,String) End If If (FK_Abschlussdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(FK_Abschlussdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (FK_MaId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(FK_MaId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (FK_Lieferanten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(FK_Lieferanten,String) End If If (FK_Empfaenger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(FK_Empfaenger,String) End If If (FK_Waren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(FK_Waren,String) End If If (FK_Zwischenhaendler Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(FK_Zwischenhaendler,String) End If If (FK_Gruendungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(FK_Gruendungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (FK_AnzahlMitarbeiter.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FK_AnzahlMitarbeiter.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (FK_Geschaeftszweck Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(FK_Geschaeftszweck,String) End If If (FK_KreditMax.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(FK_KreditMax.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (FK_Umsatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(FK_Umsatz.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (FK_Geschaeftsfuehrer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(FK_Geschaeftsfuehrer,String) End If If (FK_Steuerberater Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(FK_Steuerberater,String) End If Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_FK_Id,Integer) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_FK_Kdnr,Integer) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_FK_Datum,Date) If (Original_FK_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_FK_Art") Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_FK_Art,String) End If If (Original_FK_locked.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_FK_locked.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Original_FK_Bonitaet.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_FK_Bonitaet.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_FK_Vollmacht.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_FK_Vollmacht.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_FK_Untervollmacht.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_FK_Untervollmacht.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Original_FK_UID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_FK_UID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_FK_EORI.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_FK_EORI.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Original_FK_VollmachtOriginal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_FK_VollmachtOriginal.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Original_FK_Abschlussdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_FK_Abschlussdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Original_FK_MaId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_FK_MaId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (Original_FK_Gruendungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_FK_Gruendungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Original_FK_AnzahlMitarbeiter.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_FK_AnzahlMitarbeiter.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_FK_KreditMax.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_FK_KreditMax.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_FK_Umsatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_FK_Umsatz.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(56).Value = CType(FK_Id,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 FK_Kdnr As Integer, _ ByVal FK_Datum As Date, _ ByVal FK_Art As String, _ ByVal FK_locked As Global.System.Nullable(Of Boolean), _ ByVal FK_WebsiteSt_URL As String, _ ByVal FK_Bonitaet As Global.System.Nullable(Of Integer), _ ByVal FK_Vollmacht As Global.System.Nullable(Of Integer), _ ByVal FK_Untervollmacht As Global.System.Nullable(Of Integer), _ ByVal FK_UID As Global.System.Nullable(Of Integer), _ ByVal FK_EORI As Global.System.Nullable(Of Integer), _ ByVal FK_VollmachtOriginal As Global.System.Nullable(Of Boolean), _ ByVal FK_Website_URL As String, _ ByVal FK_Anmerkung As String, _ ByVal FK_Abschlussdatum As Global.System.Nullable(Of Date), _ ByVal FK_MaId As Global.System.Nullable(Of Integer), _ ByVal FK_Lieferanten As String, _ ByVal FK_Empfaenger As String, _ ByVal FK_Waren As String, _ ByVal FK_Zwischenhaendler As String, _ ByVal FK_Gruendungsdatum As Global.System.Nullable(Of Date), _ ByVal FK_AnzahlMitarbeiter As Global.System.Nullable(Of Integer), _ ByVal FK_Geschaeftszweck As String, _ ByVal FK_KreditMax As Global.System.Nullable(Of Decimal), _ ByVal FK_Umsatz As Global.System.Nullable(Of Decimal), _ ByVal FK_Geschaeftsfuehrer As String, _ ByVal FK_Steuerberater As String, _ ByVal Original_FK_Id As Integer, _ ByVal Original_FK_Kdnr As Integer, _ ByVal Original_FK_Datum As Date, _ ByVal Original_FK_Art As String, _ ByVal Original_FK_locked As Global.System.Nullable(Of Boolean), _ ByVal Original_FK_Bonitaet As Global.System.Nullable(Of Integer), _ ByVal Original_FK_Vollmacht As Global.System.Nullable(Of Integer), _ ByVal Original_FK_Untervollmacht As Global.System.Nullable(Of Integer), _ ByVal Original_FK_UID As Global.System.Nullable(Of Integer), _ ByVal Original_FK_EORI As Global.System.Nullable(Of Integer), _ ByVal Original_FK_VollmachtOriginal As Global.System.Nullable(Of Boolean), _ ByVal Original_FK_Abschlussdatum As Global.System.Nullable(Of Date), _ ByVal Original_FK_MaId As Global.System.Nullable(Of Integer), _ ByVal Original_FK_Gruendungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_FK_AnzahlMitarbeiter As Global.System.Nullable(Of Integer), _ ByVal Original_FK_KreditMax As Global.System.Nullable(Of Decimal), _ ByVal Original_FK_Umsatz As Global.System.Nullable(Of Decimal)) As Integer Return Me.Update(FK_Kdnr, FK_Datum, FK_Art, FK_locked, FK_WebsiteSt_URL, FK_Bonitaet, FK_Vollmacht, FK_Untervollmacht, FK_UID, FK_EORI, FK_VollmachtOriginal, FK_Website_URL, FK_Anmerkung, FK_Abschlussdatum, FK_MaId, FK_Lieferanten, FK_Empfaenger, FK_Waren, FK_Zwischenhaendler, FK_Gruendungsdatum, FK_AnzahlMitarbeiter, FK_Geschaeftszweck, FK_KreditMax, FK_Umsatz, FK_Geschaeftsfuehrer, FK_Steuerberater, Original_FK_Id, Original_FK_Kdnr, Original_FK_Datum, Original_FK_Art, Original_FK_locked, Original_FK_Bonitaet, Original_FK_Vollmacht, Original_FK_Untervollmacht, Original_FK_UID, Original_FK_EORI, Original_FK_VollmachtOriginal, Original_FK_Abschlussdatum, Original_FK_MaId, Original_FK_Gruendungsdatum, Original_FK_AnzahlMitarbeiter, Original_FK_KreditMax, Original_FK_Umsatz, Original_FK_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblFormulardatenTableAdapter 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 = "tblFormulardaten" tableMapping.ColumnMappings.Add("Computername", "Computername") tableMapping.ColumnMappings.Add("Benutzername", "Benutzername") tableMapping.ColumnMappings.Add("Formularname", "Formularname") tableMapping.ColumnMappings.Add("Feldname", "Feldname") tableMapping.ColumnMappings.Add("Feldwert", "Feldwert") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblFormulardaten] WHERE (([Computername] = @Original_Computern"& _ "ame) AND ([Benutzername] = @Original_Benutzername) AND ([Formularname] = @Origin"& _ "al_Formularname) AND ([Feldname] = @Original_Feldname) AND ((@IsNull_upsize_ts ="& _ " 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Formularname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Formularname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Feldname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feldname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblFormulardaten] ([Computername], [Benutzername], [Formularna"& _ "me], [Feldname], [Feldwert]) VALUES (@Computername, @Benutzername, @Formularname"& _ ", @Feldname, @Feldwert);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Computername, Benutzername, Formularname, Feldn"& _ "ame, Feldwert, upsize_ts FROM tblFormulardaten WHERE (Benutzername = @Benutzerna"& _ "me) AND (Computername = @Computername) AND (Feldname = @Feldname) AND (Formularn"& _ "ame = @Formularname)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Formularname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Formularname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Feldname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feldname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Feldwert", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feldwert", 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].[tblFormulardaten] SET [Computername] = @Computername, [Benutzername"& _ "] = @Benutzername, [Formularname] = @Formularname, [Feldname] = @Feldname, [Feld"& _ "wert] = @Feldwert WHERE (([Computername] = @Original_Computername) AND ([Benutze"& _ "rname] = @Original_Benutzername) AND ([Formularname] = @Original_Formularname) A"& _ "ND ([Feldname] = @Original_Feldname) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts]"& _ " IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Computername, Benutz"& _ "ername, Formularname, Feldname, Feldwert, upsize_ts FROM tblFormulardaten WHERE "& _ "(Benutzername = @Benutzername) AND (Computername = @Computername) AND (Feldname "& _ "= @Feldname) AND (Formularname = @Formularname)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Formularname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Formularname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Feldname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feldname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Feldwert", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feldwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Formularname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Formularname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Feldname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feldname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Computername, Benutzername, Formularname, Feldname, Feldwert, upsize_ts FR"& _ "OM dbo.tblFormulardaten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblFormulardatenDataTable) 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 VERAGDataSet.tblFormulardatenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblFormulardatenDataTable = New VERAGDataSet.tblFormulardatenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblFormulardatenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblFormulardaten") 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_Computername As String, ByVal Original_Benutzername As String, ByVal Original_Formularname As String, ByVal Original_Feldname As String, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Computername") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Computername,String) End If If (Original_Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Benutzername") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Benutzername,String) End If If (Original_Formularname Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Formularname") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Formularname,String) End If If (Original_Feldname Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Feldname") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Feldname,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Computername As String, ByVal Benutzername As String, ByVal Formularname As String, ByVal Feldname As String, ByVal Feldwert As String) As Integer If (Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Computername") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Benutzername,String) End If If (Formularname Is Nothing) Then Throw New Global.System.ArgumentNullException("Formularname") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Formularname,String) End If If (Feldname Is Nothing) Then Throw New Global.System.ArgumentNullException("Feldname") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Feldname,String) End If If (Feldwert Is Nothing) Then Throw New Global.System.ArgumentNullException("Feldwert") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Feldwert,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 Computername As String, ByVal Benutzername As String, ByVal Formularname As String, ByVal Feldname As String, ByVal Feldwert As String, ByVal Original_Computername As String, ByVal Original_Benutzername As String, ByVal Original_Formularname As String, ByVal Original_Feldname As String, ByVal Original_upsize_ts() As Byte) As Integer If (Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Computername") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Benutzername,String) End If If (Formularname Is Nothing) Then Throw New Global.System.ArgumentNullException("Formularname") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Formularname,String) End If If (Feldname Is Nothing) Then Throw New Global.System.ArgumentNullException("Feldname") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Feldname,String) End If If (Feldwert Is Nothing) Then Throw New Global.System.ArgumentNullException("Feldwert") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Feldwert,String) End If If (Original_Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Computername") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Computername,String) End If If (Original_Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Benutzername") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Benutzername,String) End If If (Original_Formularname Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Formularname") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Formularname,String) End If If (Original_Feldname Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Feldname") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Feldname,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 Feldwert As String, ByVal Original_Computername As String, ByVal Original_Benutzername As String, ByVal Original_Formularname As String, ByVal Original_Feldname As String, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Computername, Original_Benutzername, Original_Formularname, Original_Feldname, Feldwert, Original_Computername, Original_Benutzername, Original_Formularname, Original_Feldname, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblFormulareVorlagenTableAdapter 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 = "tblFormulareVorlagen" tableMapping.ColumnMappings.Add("tblform_id", "tblform_id") tableMapping.ColumnMappings.Add("tblform_KundenNr", "tblform_KundenNr") tableMapping.ColumnMappings.Add("tblform_art", "tblform_art") tableMapping.ColumnMappings.Add("tblform_begriff", "tblform_begriff") tableMapping.ColumnMappings.Add("tblform_Sachbearbeiter", "tblform_Sachbearbeiter") tableMapping.ColumnMappings.Add("tblform_letzeAenderung", "tblform_letzeAenderung") 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].[tblFormulareVorlagen] WHERE (([tblform_id] = @Original_tblform"& _ "_id) AND ((@IsNull_tblform_KundenNr = 1 AND [tblform_KundenNr] IS NULL) OR ([tbl"& _ "form_KundenNr] = @Original_tblform_KundenNr)) AND ([tblform_art] = @Original_tbl"& _ "form_art) AND ([tblform_begriff] = @Original_tblform_begriff) AND ((@IsNull_tblf"& _ "orm_Sachbearbeiter = 1 AND [tblform_Sachbearbeiter] IS NULL) OR ([tblform_Sachbe"& _ "arbeiter] = @Original_tblform_Sachbearbeiter)) AND ([tblform_letzeAenderung] = @"& _ "Original_tblform_letzeAenderung))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_tblform_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_begriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_begriff", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_tblform_Sachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_letzeAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_letzeAenderung", 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].[tblFormulareVorlagen] ([tblform_KundenNr], [tblform_art], [tbl"& _ "form_begriff], [tblform_Sachbearbeiter], [tblform_letzeAenderung]) VALUES (@tblf"& _ "orm_KundenNr, @tblform_art, @tblform_begriff, @tblform_Sachbearbeiter, @tblform_"& _ "letzeAenderung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT tblform_id, tblform_KundenNr, tblform_art, tblform_begr"& _ "iff, tblform_Sachbearbeiter, tblform_letzeAenderung FROM tblFormulareVorlagen WH"& _ "ERE (tblform_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_begriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_begriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_letzeAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_letzeAenderung", 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].[tblFormulareVorlagen] SET [tblform_KundenNr] = @tblform_KundenNr, ["& _ "tblform_art] = @tblform_art, [tblform_begriff] = @tblform_begriff, [tblform_Sach"& _ "bearbeiter] = @tblform_Sachbearbeiter, [tblform_letzeAenderung] = @tblform_letze"& _ "Aenderung WHERE (([tblform_id] = @Original_tblform_id) AND ((@IsNull_tblform_Kun"& _ "denNr = 1 AND [tblform_KundenNr] IS NULL) OR ([tblform_KundenNr] = @Original_tbl"& _ "form_KundenNr)) AND ([tblform_art] = @Original_tblform_art) AND ([tblform_begrif"& _ "f] = @Original_tblform_begriff) AND ((@IsNull_tblform_Sachbearbeiter = 1 AND [tb"& _ "lform_Sachbearbeiter] IS NULL) OR ([tblform_Sachbearbeiter] = @Original_tblform_"& _ "Sachbearbeiter)) AND ([tblform_letzeAenderung] = @Original_tblform_letzeAenderun"& _ "g));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT tblform_id, tblform_KundenNr, tblform_art, tblform_begriff, tblform"& _ "_Sachbearbeiter, tblform_letzeAenderung FROM tblFormulareVorlagen WHERE (tblform"& _ "_id = @tblform_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_begriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_begriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_letzeAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_letzeAenderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_tblform_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_begriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_begriff", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_tblform_Sachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tblform_letzeAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_letzeAenderung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblform_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "tblform_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 tblform_id, tblform_KundenNr, tblform_art, tblform_begriff, tblform_Sachbe"& _ "arbeiter, tblform_letzeAenderung FROM dbo.tblFormulareVorlagen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblFormulareVorlagenDataTable) 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 VERAGDataSet.tblFormulareVorlagenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblFormulareVorlagenDataTable = New VERAGDataSet.tblFormulareVorlagenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblFormulareVorlagenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblFormulareVorlagen") 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_tblform_id As Integer, ByVal Original_tblform_KundenNr As Global.System.Nullable(Of Integer), ByVal Original_tblform_art As String, ByVal Original_tblform_begriff As String, ByVal Original_tblform_Sachbearbeiter As String, ByVal Original_tblform_letzeAenderung As Date) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_tblform_id,Integer) If (Original_tblform_KundenNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_tblform_KundenNr.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_tblform_art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_tblform_art") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_tblform_art,String) End If If (Original_tblform_begriff Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_tblform_begriff") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_tblform_begriff,String) End If If (Original_tblform_Sachbearbeiter 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_tblform_Sachbearbeiter,String) End If Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_tblform_letzeAenderung,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 tblform_KundenNr As Global.System.Nullable(Of Integer), ByVal tblform_art As String, ByVal tblform_begriff As String, ByVal tblform_Sachbearbeiter As String, ByVal tblform_letzeAenderung As Date) As Integer If (tblform_KundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(tblform_KundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (tblform_art Is Nothing) Then Throw New Global.System.ArgumentNullException("tblform_art") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(tblform_art,String) End If If (tblform_begriff Is Nothing) Then Throw New Global.System.ArgumentNullException("tblform_begriff") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(tblform_begriff,String) End If If (tblform_Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(tblform_Sachbearbeiter,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(tblform_letzeAenderung,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 tblform_KundenNr As Global.System.Nullable(Of Integer), ByVal tblform_art As String, ByVal tblform_begriff As String, ByVal tblform_Sachbearbeiter As String, ByVal tblform_letzeAenderung As Date, ByVal Original_tblform_id As Integer, ByVal Original_tblform_KundenNr As Global.System.Nullable(Of Integer), ByVal Original_tblform_art As String, ByVal Original_tblform_begriff As String, ByVal Original_tblform_Sachbearbeiter As String, ByVal Original_tblform_letzeAenderung As Date, ByVal tblform_id As Integer) As Integer If (tblform_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(tblform_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (tblform_art Is Nothing) Then Throw New Global.System.ArgumentNullException("tblform_art") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(tblform_art,String) End If If (tblform_begriff Is Nothing) Then Throw New Global.System.ArgumentNullException("tblform_begriff") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(tblform_begriff,String) End If If (tblform_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(tblform_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(tblform_letzeAenderung,Date) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_tblform_id,Integer) If (Original_tblform_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_tblform_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_tblform_art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_tblform_art") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_tblform_art,String) End If If (Original_tblform_begriff Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_tblform_begriff") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_tblform_begriff,String) End If If (Original_tblform_Sachbearbeiter 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_tblform_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_tblform_letzeAenderung,Date) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(tblform_id,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 tblform_KundenNr As Global.System.Nullable(Of Integer), ByVal tblform_art As String, ByVal tblform_begriff As String, ByVal tblform_Sachbearbeiter As String, ByVal tblform_letzeAenderung As Date, ByVal Original_tblform_id As Integer, ByVal Original_tblform_KundenNr As Global.System.Nullable(Of Integer), ByVal Original_tblform_art As String, ByVal Original_tblform_begriff As String, ByVal Original_tblform_Sachbearbeiter As String, ByVal Original_tblform_letzeAenderung As Date) As Integer Return Me.Update(tblform_KundenNr, tblform_art, tblform_begriff, tblform_Sachbearbeiter, tblform_letzeAenderung, Original_tblform_id, Original_tblform_KundenNr, Original_tblform_art, Original_tblform_begriff, Original_tblform_Sachbearbeiter, Original_tblform_letzeAenderung, Original_tblform_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblFormulareVorlagenValuesTableAdapter 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 = "tblFormulareVorlagenValues" tableMapping.ColumnMappings.Add("tblfv_tblformId", "tblfv_tblformId") tableMapping.ColumnMappings.Add("tblfv_name", "tblfv_name") tableMapping.ColumnMappings.Add("tblfv_wert", "tblfv_wert") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblFormulareVorlagenValues] ([tblfv_tblformId], [tblfv_name], "& _ "[tblfv_wert]) VALUES (@tblfv_tblformId, @tblfv_name, @tblfv_wert)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblfv_tblformId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblfv_tblformId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblfv_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblfv_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tblfv_wert", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tblfv_wert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 tblfv_tblformId, tblfv_name, tblfv_wert FROM dbo.tblFormulareVorlagenValue"& _ "s" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblFormulareVorlagenValuesDataTable) 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 VERAGDataSet.tblFormulareVorlagenValuesDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblFormulareVorlagenValuesDataTable = New VERAGDataSet.tblFormulareVorlagenValuesDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblFormulareVorlagenValuesDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblFormulareVorlagenValues") 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 Insert(ByVal tblfv_tblformId As Integer, ByVal tblfv_name As String, ByVal tblfv_wert As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(tblfv_tblformId,Integer) If (tblfv_name Is Nothing) Then Throw New Global.System.ArgumentNullException("tblfv_name") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(tblfv_name,String) End If If (tblfv_wert Is Nothing) Then Throw New Global.System.ArgumentNullException("tblfv_wert") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(tblfv_wert,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblFremdSpeditionenZuordnungTableAdapter 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 = "tblFremdSpeditionenZuordnung" tableMapping.ColumnMappings.Add("fremdz_Id", "fremdz_Id") tableMapping.ColumnMappings.Add("fremdz_firma", "fremdz_firma") tableMapping.ColumnMappings.Add("fremdz_KundenNr", "fremdz_KundenNr") tableMapping.ColumnMappings.Add("fremdz_plz", "fremdz_plz") tableMapping.ColumnMappings.Add("fremdz_ort", "fremdz_ort") tableMapping.ColumnMappings.Add("fremdz_SpeditionKundenNr", "fremdz_SpeditionKundenNr") tableMapping.ColumnMappings.Add("fremdz_verzolltBei", "fremdz_verzolltBei") tableMapping.ColumnMappings.Add("fremdz_bemerkung", "fremdz_bemerkung") tableMapping.ColumnMappings.Add("fremdz_Sachbearbeiter", "fremdz_Sachbearbeiter") tableMapping.ColumnMappings.Add("fremdz_Datum", "fremdz_Datum") 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].[tblFremdSpeditionenZuordnung] WHERE (([fremdz_Id] = @Original_"& _ "fremdz_Id) AND ([fremdz_firma] = @Original_fremdz_firma) AND ((@IsNull_fremdz_Ku"& _ "ndenNr = 1 AND [fremdz_KundenNr] IS NULL) OR ([fremdz_KundenNr] = @Original_frem"& _ "dz_KundenNr)) AND ([fremdz_plz] = @Original_fremdz_plz) AND ([fremdz_ort] = @Ori"& _ "ginal_fremdz_ort) AND ((@IsNull_fremdz_SpeditionKundenNr = 1 AND [fremdz_Spediti"& _ "onKundenNr] IS NULL) OR ([fremdz_SpeditionKundenNr] = @Original_fremdz_Spedition"& _ "KundenNr)) AND ([fremdz_verzolltBei] = @Original_fremdz_verzolltBei) AND ([fremd"& _ "z_bemerkung] = @Original_fremdz_bemerkung) AND ((@IsNull_fremdz_Sachbearbeiter ="& _ " 1 AND [fremdz_Sachbearbeiter] IS NULL) OR ([fremdz_Sachbearbeiter] = @Original_"& _ "fremdz_Sachbearbeiter)) AND ((@IsNull_fremdz_Datum = 1 AND [fremdz_Datum] IS NUL"& _ "L) OR ([fremdz_Datum] = @Original_fremdz_Datum)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fremdz_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_plz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_plz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fremdz_SpeditionKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_SpeditionKundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_SpeditionKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_SpeditionKundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_verzolltBei", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_verzolltBei", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_bemerkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fremdz_Sachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fremdz_Datum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Datum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Datum", 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].[tblFremdSpeditionenZuordnung] ([fremdz_firma], [fremdz_KundenN"& _ "r], [fremdz_plz], [fremdz_ort], [fremdz_SpeditionKundenNr], [fremdz_verzolltBei]"& _ ", [fremdz_bemerkung], [fremdz_Sachbearbeiter], [fremdz_Datum]) VALUES (@fremdz_f"& _ "irma, @fremdz_KundenNr, @fremdz_plz, @fremdz_ort, @fremdz_SpeditionKundenNr, @fr"& _ "emdz_verzolltBei, @fremdz_bemerkung, @fremdz_Sachbearbeiter, @fremdz_Datum);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ "LECT fremdz_Id, fremdz_firma, fremdz_KundenNr, fremdz_plz, fremdz_ort, fremdz_Sp"& _ "editionKundenNr, fremdz_verzolltBei, fremdz_bemerkung, fremdz_Sachbearbeiter, fr"& _ "emdz_Datum FROM tblFremdSpeditionenZuordnung WHERE (fremdz_Id = SCOPE_IDENTITY()"& _ ")" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_plz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_plz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_SpeditionKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_SpeditionKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_verzolltBei", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_verzolltBei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Datum", 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].[tblFremdSpeditionenZuordnung] SET [fremdz_firma] = @fremdz_firma, ["& _ "fremdz_KundenNr] = @fremdz_KundenNr, [fremdz_plz] = @fremdz_plz, [fremdz_ort] = "& _ "@fremdz_ort, [fremdz_SpeditionKundenNr] = @fremdz_SpeditionKundenNr, [fremdz_ver"& _ "zolltBei] = @fremdz_verzolltBei, [fremdz_bemerkung] = @fremdz_bemerkung, [fremdz"& _ "_Sachbearbeiter] = @fremdz_Sachbearbeiter, [fremdz_Datum] = @fremdz_Datum WHERE "& _ "(([fremdz_Id] = @Original_fremdz_Id) AND ([fremdz_firma] = @Original_fremdz_firm"& _ "a) AND ((@IsNull_fremdz_KundenNr = 1 AND [fremdz_KundenNr] IS NULL) OR ([fremdz_"& _ "KundenNr] = @Original_fremdz_KundenNr)) AND ([fremdz_plz] = @Original_fremdz_plz"& _ ") AND ([fremdz_ort] = @Original_fremdz_ort) AND ((@IsNull_fremdz_SpeditionKunden"& _ "Nr = 1 AND [fremdz_SpeditionKundenNr] IS NULL) OR ([fremdz_SpeditionKundenNr] = "& _ "@Original_fremdz_SpeditionKundenNr)) AND ([fremdz_verzolltBei] = @Original_fremd"& _ "z_verzolltBei) AND ([fremdz_bemerkung] = @Original_fremdz_bemerkung) AND ((@IsNu"& _ "ll_fremdz_Sachbearbeiter = 1 AND [fremdz_Sachbearbeiter] IS NULL) OR ([fremdz_Sa"& _ "chbearbeiter] = @Original_fremdz_Sachbearbeiter)) AND ((@IsNull_fremdz_Datum = 1"& _ " AND [fremdz_Datum] IS NULL) OR ([fremdz_Datum] = @Original_fremdz_Datum)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ "LECT fremdz_Id, fremdz_firma, fremdz_KundenNr, fremdz_plz, fremdz_ort, fremdz_Sp"& _ "editionKundenNr, fremdz_verzolltBei, fremdz_bemerkung, fremdz_Sachbearbeiter, fr"& _ "emdz_Datum FROM tblFremdSpeditionenZuordnung WHERE (fremdz_Id = @fremdz_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_plz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_plz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_SpeditionKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_SpeditionKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_verzolltBei", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_verzolltBei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fremdz_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_plz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_plz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fremdz_SpeditionKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_SpeditionKundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_SpeditionKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_SpeditionKundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_verzolltBei", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_verzolltBei", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_bemerkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fremdz_Sachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_fremdz_Datum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Datum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_fremdz_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fremdz_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "fremdz_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 fremdz_Id, fremdz_firma, fremdz_KundenNr, fremdz_plz, fremdz_ort, fremdz_S"& _ "peditionKundenNr, fremdz_verzolltBei, fremdz_bemerkung, fremdz_Sachbearbeiter, f"& _ "remdz_Datum FROM dbo.tblFremdSpeditionenZuordnung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblFremdSpeditionenZuordnungDataTable) 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 VERAGDataSet.tblFremdSpeditionenZuordnungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblFremdSpeditionenZuordnungDataTable = New VERAGDataSet.tblFremdSpeditionenZuordnungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblFremdSpeditionenZuordnungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblFremdSpeditionenZuordnung") 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_fremdz_Id As Integer, ByVal Original_fremdz_firma As String, ByVal Original_fremdz_KundenNr As Global.System.Nullable(Of Integer), ByVal Original_fremdz_plz As String, ByVal Original_fremdz_ort As String, ByVal Original_fremdz_SpeditionKundenNr As Global.System.Nullable(Of Integer), ByVal Original_fremdz_verzolltBei As String, ByVal Original_fremdz_bemerkung As String, ByVal Original_fremdz_Sachbearbeiter As String, ByVal Original_fremdz_Datum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_fremdz_Id,Integer) If (Original_fremdz_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_fremdz_firma") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_fremdz_firma,String) End If If (Original_fremdz_KundenNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_fremdz_KundenNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_fremdz_plz Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_fremdz_plz") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_fremdz_plz,String) End If If (Original_fremdz_ort Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_fremdz_ort") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_fremdz_ort,String) End If If (Original_fremdz_SpeditionKundenNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_fremdz_SpeditionKundenNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_fremdz_verzolltBei Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_fremdz_verzolltBei") Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_fremdz_verzolltBei,String) End If If (Original_fremdz_bemerkung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_fremdz_bemerkung") Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_fremdz_bemerkung,String) End If If (Original_fremdz_Sachbearbeiter 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_fremdz_Sachbearbeiter,String) End If If (Original_fremdz_Datum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_fremdz_Datum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).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 fremdz_firma As String, ByVal fremdz_KundenNr As Global.System.Nullable(Of Integer), ByVal fremdz_plz As String, ByVal fremdz_ort As String, ByVal fremdz_SpeditionKundenNr As Global.System.Nullable(Of Integer), ByVal fremdz_verzolltBei As String, ByVal fremdz_bemerkung As String, ByVal fremdz_Sachbearbeiter As String, ByVal fremdz_Datum As Global.System.Nullable(Of Date)) As Integer If (fremdz_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("fremdz_firma") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(fremdz_firma,String) End If If (fremdz_KundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(fremdz_KundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (fremdz_plz Is Nothing) Then Throw New Global.System.ArgumentNullException("fremdz_plz") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(fremdz_plz,String) End If If (fremdz_ort Is Nothing) Then Throw New Global.System.ArgumentNullException("fremdz_ort") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(fremdz_ort,String) End If If (fremdz_SpeditionKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(fremdz_SpeditionKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (fremdz_verzolltBei Is Nothing) Then Throw New Global.System.ArgumentNullException("fremdz_verzolltBei") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(fremdz_verzolltBei,String) End If If (fremdz_bemerkung Is Nothing) Then Throw New Global.System.ArgumentNullException("fremdz_bemerkung") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(fremdz_bemerkung,String) End If If (fremdz_Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(fremdz_Sachbearbeiter,String) End If If (fremdz_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(fremdz_Datum.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 fremdz_firma As String, _ ByVal fremdz_KundenNr As Global.System.Nullable(Of Integer), _ ByVal fremdz_plz As String, _ ByVal fremdz_ort As String, _ ByVal fremdz_SpeditionKundenNr As Global.System.Nullable(Of Integer), _ ByVal fremdz_verzolltBei As String, _ ByVal fremdz_bemerkung As String, _ ByVal fremdz_Sachbearbeiter As String, _ ByVal fremdz_Datum As Global.System.Nullable(Of Date), _ ByVal Original_fremdz_Id As Integer, _ ByVal Original_fremdz_firma As String, _ ByVal Original_fremdz_KundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_fremdz_plz As String, _ ByVal Original_fremdz_ort As String, _ ByVal Original_fremdz_SpeditionKundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_fremdz_verzolltBei As String, _ ByVal Original_fremdz_bemerkung As String, _ ByVal Original_fremdz_Sachbearbeiter As String, _ ByVal Original_fremdz_Datum As Global.System.Nullable(Of Date), _ ByVal fremdz_Id As Integer) As Integer If (fremdz_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("fremdz_firma") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(fremdz_firma,String) End If If (fremdz_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(fremdz_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (fremdz_plz Is Nothing) Then Throw New Global.System.ArgumentNullException("fremdz_plz") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(fremdz_plz,String) End If If (fremdz_ort Is Nothing) Then Throw New Global.System.ArgumentNullException("fremdz_ort") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(fremdz_ort,String) End If If (fremdz_SpeditionKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(fremdz_SpeditionKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (fremdz_verzolltBei Is Nothing) Then Throw New Global.System.ArgumentNullException("fremdz_verzolltBei") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(fremdz_verzolltBei,String) End If If (fremdz_bemerkung Is Nothing) Then Throw New Global.System.ArgumentNullException("fremdz_bemerkung") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(fremdz_bemerkung,String) End If If (fremdz_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(fremdz_Sachbearbeiter,String) End If If (fremdz_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(fremdz_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_fremdz_Id,Integer) If (Original_fremdz_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_fremdz_firma") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_fremdz_firma,String) End If If (Original_fremdz_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_fremdz_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_fremdz_plz Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_fremdz_plz") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_fremdz_plz,String) End If If (Original_fremdz_ort Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_fremdz_ort") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_fremdz_ort,String) End If If (Original_fremdz_SpeditionKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_fremdz_SpeditionKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_fremdz_verzolltBei Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_fremdz_verzolltBei") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_fremdz_verzolltBei,String) End If If (Original_fremdz_bemerkung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_fremdz_bemerkung") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_fremdz_bemerkung,String) End If If (Original_fremdz_Sachbearbeiter 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_fremdz_Sachbearbeiter,String) End If If (Original_fremdz_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_fremdz_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(23).Value = CType(fremdz_Id,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 fremdz_firma As String, _ ByVal fremdz_KundenNr As Global.System.Nullable(Of Integer), _ ByVal fremdz_plz As String, _ ByVal fremdz_ort As String, _ ByVal fremdz_SpeditionKundenNr As Global.System.Nullable(Of Integer), _ ByVal fremdz_verzolltBei As String, _ ByVal fremdz_bemerkung As String, _ ByVal fremdz_Sachbearbeiter As String, _ ByVal fremdz_Datum As Global.System.Nullable(Of Date), _ ByVal Original_fremdz_Id As Integer, _ ByVal Original_fremdz_firma As String, _ ByVal Original_fremdz_KundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_fremdz_plz As String, _ ByVal Original_fremdz_ort As String, _ ByVal Original_fremdz_SpeditionKundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_fremdz_verzolltBei As String, _ ByVal Original_fremdz_bemerkung As String, _ ByVal Original_fremdz_Sachbearbeiter As String, _ ByVal Original_fremdz_Datum As Global.System.Nullable(Of Date)) As Integer Return Me.Update(fremdz_firma, fremdz_KundenNr, fremdz_plz, fremdz_ort, fremdz_SpeditionKundenNr, fremdz_verzolltBei, fremdz_bemerkung, fremdz_Sachbearbeiter, fremdz_Datum, Original_fremdz_Id, Original_fremdz_firma, Original_fremdz_KundenNr, Original_fremdz_plz, Original_fremdz_ort, Original_fremdz_SpeditionKundenNr, Original_fremdz_verzolltBei, Original_fremdz_bemerkung, Original_fremdz_Sachbearbeiter, Original_fremdz_Datum, Original_fremdz_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblFTP_LogTableAdapter 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 = "tblFTP_Log" tableMapping.ColumnMappings.Add("ftp_id", "ftp_id") tableMapping.ColumnMappings.Add("ftp_filepath", "ftp_filepath") tableMapping.ColumnMappings.Add("ftp_BezugsNr", "ftp_BezugsNr") tableMapping.ColumnMappings.Add("ftp_art", "ftp_art") tableMapping.ColumnMappings.Add("ftp_status", "ftp_status") tableMapping.ColumnMappings.Add("ftp_vorsystem", "ftp_vorsystem") tableMapping.ColumnMappings.Add("ftp_CooName", "ftp_CooName") tableMapping.ColumnMappings.Add("ftp_timestamp", "ftp_timestamp") tableMapping.ColumnMappings.Add("ftp_user", "ftp_user") tableMapping.ColumnMappings.Add("ftp_datetime", "ftp_datetime") 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].[tblFTP_Log] WHERE (([ftp_id] = @Original_ftp_id) AND ([ftp_tim"& _ "estamp] = @Original_ftp_timestamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ftp_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ftp_timestamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_timestamp", 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].[tblFTP_Log] ([ftp_filepath], [ftp_BezugsNr], [ftp_art], [ftp_s"& _ "tatus], [ftp_vorsystem], [ftp_CooName], [ftp_user], [ftp_datetime]) VALUES (@ftp"& _ "_filepath, @ftp_BezugsNr, @ftp_art, @ftp_status, @ftp_vorsystem, @ftp_CooName, @"& _ "ftp_user, @ftp_datetime);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ftp_id, ftp_filepath, ftp_BezugsNr, ftp_art, f"& _ "tp_status, ftp_vorsystem, ftp_CooName, ftp_timestamp, ftp_user, ftp_datetime FRO"& _ "M tblFTP_Log WHERE (ftp_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_filepath", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_filepath", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_BezugsNr", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_art", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_vorsystem", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_vorsystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_CooName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_CooName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_user", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_user", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_datetime", 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].[tblFTP_Log] SET [ftp_filepath] = @ftp_filepath, [ftp_BezugsNr] = @f"& _ "tp_BezugsNr, [ftp_art] = @ftp_art, [ftp_status] = @ftp_status, [ftp_vorsystem] ="& _ " @ftp_vorsystem, [ftp_CooName] = @ftp_CooName, [ftp_user] = @ftp_user, [ftp_date"& _ "time] = @ftp_datetime WHERE (([ftp_id] = @Original_ftp_id) AND ([ftp_timestamp] "& _ "= @Original_ftp_timestamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ftp_id, ftp_filepath, ftp_BezugsNr, ftp_art"& _ ", ftp_status, ftp_vorsystem, ftp_CooName, ftp_timestamp, ftp_user, ftp_datetime "& _ "FROM tblFTP_Log WHERE (ftp_id = @ftp_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_filepath", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_filepath", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_BezugsNr", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_art", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_vorsystem", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_vorsystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_CooName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_CooName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_user", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_user", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ftp_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ftp_timestamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_timestamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ftp_id, ftp_filepath, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem, ft"& _ "p_CooName, ftp_timestamp, ftp_user, ftp_datetime FROM dbo.tblFTP_Log" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblFTP_LogDataTable) 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 VERAGDataSet.tblFTP_LogDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblFTP_LogDataTable = New VERAGDataSet.tblFTP_LogDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblFTP_LogDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblFTP_Log") 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_ftp_id As Integer, ByVal Original_ftp_timestamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ftp_id,Integer) If (Original_ftp_timestamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ftp_timestamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ftp_timestamp,Byte()) 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 ftp_filepath As String, ByVal ftp_BezugsNr As String, ByVal ftp_art As String, ByVal ftp_status As String, ByVal ftp_vorsystem As String, ByVal ftp_CooName As String, ByVal ftp_user As String, ByVal ftp_datetime As Global.System.Nullable(Of Date)) As Integer If (ftp_filepath Is Nothing) Then Throw New Global.System.ArgumentNullException("ftp_filepath") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(ftp_filepath,String) End If If (ftp_BezugsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ftp_BezugsNr,String) End If If (ftp_art Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ftp_art,String) End If If (ftp_status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ftp_status,String) End If If (ftp_vorsystem Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ftp_vorsystem,String) End If If (ftp_CooName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ftp_CooName,String) End If If (ftp_user Is Nothing) Then Throw New Global.System.ArgumentNullException("ftp_user") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ftp_user,String) End If If (ftp_datetime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ftp_datetime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).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 ftp_filepath As String, ByVal ftp_BezugsNr As String, ByVal ftp_art As String, ByVal ftp_status As String, ByVal ftp_vorsystem As String, ByVal ftp_CooName As String, ByVal ftp_user As String, ByVal ftp_datetime As Global.System.Nullable(Of Date), ByVal Original_ftp_id As Integer, ByVal Original_ftp_timestamp() As Byte, ByVal ftp_id As Integer) As Integer If (ftp_filepath Is Nothing) Then Throw New Global.System.ArgumentNullException("ftp_filepath") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ftp_filepath,String) End If If (ftp_BezugsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ftp_BezugsNr,String) End If If (ftp_art Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ftp_art,String) End If If (ftp_status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ftp_status,String) End If If (ftp_vorsystem Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ftp_vorsystem,String) End If If (ftp_CooName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ftp_CooName,String) End If If (ftp_user Is Nothing) Then Throw New Global.System.ArgumentNullException("ftp_user") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ftp_user,String) End If If (ftp_datetime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ftp_datetime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ftp_id,Integer) If (Original_ftp_timestamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ftp_timestamp") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ftp_timestamp,Byte()) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ftp_id,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 ftp_filepath As String, ByVal ftp_BezugsNr As String, ByVal ftp_art As String, ByVal ftp_status As String, ByVal ftp_vorsystem As String, ByVal ftp_CooName As String, ByVal ftp_user As String, ByVal ftp_datetime As Global.System.Nullable(Of Date), ByVal Original_ftp_id As Integer, ByVal Original_ftp_timestamp() As Byte) As Integer Return Me.Update(ftp_filepath, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem, ftp_CooName, ftp_user, ftp_datetime, Original_ftp_id, Original_ftp_timestamp, Original_ftp_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblFTP_Log_Backup2TableAdapter 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 = "tblFTP_Log_Backup2" tableMapping.ColumnMappings.Add("ftp_id", "ftp_id") tableMapping.ColumnMappings.Add("ftp_filepath", "ftp_filepath") tableMapping.ColumnMappings.Add("ftp_BezugsNr", "ftp_BezugsNr") tableMapping.ColumnMappings.Add("ftp_art", "ftp_art") tableMapping.ColumnMappings.Add("ftp_status", "ftp_status") tableMapping.ColumnMappings.Add("ftp_vorsystem", "ftp_vorsystem") tableMapping.ColumnMappings.Add("ftp_CooName", "ftp_CooName") tableMapping.ColumnMappings.Add("ftp_timestamp", "ftp_timestamp") tableMapping.ColumnMappings.Add("ftp_user", "ftp_user") tableMapping.ColumnMappings.Add("ftp_datetime", "ftp_datetime") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblFTP_Log_Backup2] ([ftp_filepath], [ftp_BezugsNr], [ftp_art]"& _ ", [ftp_status], [ftp_vorsystem], [ftp_CooName], [ftp_user], [ftp_datetime]) VALU"& _ "ES (@ftp_filepath, @ftp_BezugsNr, @ftp_art, @ftp_status, @ftp_vorsystem, @ftp_Co"& _ "oName, @ftp_user, @ftp_datetime)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_filepath", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_filepath", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_BezugsNr", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_art", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_vorsystem", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_vorsystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_CooName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_CooName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_user", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_user", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ftp_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ftp_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ftp_id, ftp_filepath, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem, ft"& _ "p_CooName, ftp_timestamp, ftp_user, ftp_datetime FROM dbo.tblFTP_Log_Backup2" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblFTP_Log_Backup2DataTable) 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 VERAGDataSet.tblFTP_Log_Backup2DataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblFTP_Log_Backup2DataTable = New VERAGDataSet.tblFTP_Log_Backup2DataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblFTP_Log_Backup2DataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblFTP_Log_Backup2") 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 Insert(ByVal ftp_filepath As String, ByVal ftp_BezugsNr As String, ByVal ftp_art As String, ByVal ftp_status As String, ByVal ftp_vorsystem As String, ByVal ftp_CooName As String, ByVal ftp_user As String, ByVal ftp_datetime As Global.System.Nullable(Of Date)) As Integer If (ftp_filepath Is Nothing) Then Throw New Global.System.ArgumentNullException("ftp_filepath") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(ftp_filepath,String) End If If (ftp_BezugsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ftp_BezugsNr,String) End If If (ftp_art Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ftp_art,String) End If If (ftp_status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ftp_status,String) End If If (ftp_vorsystem Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ftp_vorsystem,String) End If If (ftp_CooName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ftp_CooName,String) End If If (ftp_user Is Nothing) Then Throw New Global.System.ArgumentNullException("ftp_user") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ftp_user,String) End If If (ftp_datetime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ftp_datetime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGebuehrenvermarktungsnormenTableAdapter 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 = "tblGebuehrenvermarktungsnormen" tableMapping.ColumnMappings.Add("gueltigAb", "gueltigAb") tableMapping.ColumnMappings.Add("betrag", "betrag") tableMapping.ColumnMappings.Add("speziell", "speziell") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblGebuehrenvermarktungsnormen] ([gueltigAb], [betrag], [spezi"& _ "ell]) VALUES (@gueltigAb, @betrag, @speziell)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gueltigAb", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gueltigAb", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@betrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 2, "betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@speziell", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "speziell", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 gueltigAb, betrag, speziell FROM dbo.tblGebuehrenvermarktungsnormen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGebuehrenvermarktungsnormenDataTable) 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 VERAGDataSet.tblGebuehrenvermarktungsnormenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGebuehrenvermarktungsnormenDataTable = New VERAGDataSet.tblGebuehrenvermarktungsnormenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGebuehrenvermarktungsnormenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGebuehrenvermarktungsnormen") 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 Insert(ByVal gueltigAb As Date, ByVal betrag As Decimal, ByVal speziell As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(gueltigAb,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(betrag,Decimal) Me.Adapter.InsertCommand.Parameters(2).Value = CType(speziell,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGelangensbestaetigungTableAdapter 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 = "tblGelangensbestaetigung" tableMapping.ColumnMappings.Add("gb_nr", "gb_nr") tableMapping.ColumnMappings.Add("gb_firma", "gb_firma") tableMapping.ColumnMappings.Add("gb_KdNr", "gb_KdNr") tableMapping.ColumnMappings.Add("gb_datetime", "gb_datetime") tableMapping.ColumnMappings.Add("gb_sachbearbeiter", "gb_sachbearbeiter") tableMapping.ColumnMappings.Add("gb_sachbearbeiterId", "gb_sachbearbeiterId") 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].[tblGelangensbestaetigung] WHERE (([gb_nr] = @Original_gb_nr) A"& _ "ND ((@IsNull_gb_firma = 1 AND [gb_firma] IS NULL) OR ([gb_firma] = @Original_gb_"& _ "firma)) AND ((@IsNull_gb_KdNr = 1 AND [gb_KdNr] IS NULL) OR ([gb_KdNr] = @Origin"& _ "al_gb_KdNr)) AND ([gb_datetime] = @Original_gb_datetime) AND ([gb_sachbearbeiter"& _ "] = @Original_gb_sachbearbeiter) AND ([gb_sachbearbeiterId] = @Original_gb_sachb"& _ "earbeiterId))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_firma", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_KdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_sachbearbeiter", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_sachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_sachbearbeiterId", 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].[tblGelangensbestaetigung] ([gb_nr], [gb_firma], [gb_KdNr], [gb"& _ "_datetime], [gb_sachbearbeiter], [gb_sachbearbeiterId]) VALUES (@gb_nr, @gb_firm"& _ "a, @gb_KdNr, @gb_datetime, @gb_sachbearbeiter, @gb_sachbearbeiterId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gb"& _ "_nr, gb_firma, gb_KdNr, gb_datetime, gb_sachbearbeiter, gb_sachbearbeiterId FROM"& _ " tblGelangensbestaetigung WHERE (gb_nr = @gb_nr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_firma", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_sachbearbeiter", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_sachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_sachbearbeiterId", 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].[tblGelangensbestaetigung] SET [gb_nr] = @gb_nr, [gb_firma] = @gb_fi"& _ "rma, [gb_KdNr] = @gb_KdNr, [gb_datetime] = @gb_datetime, [gb_sachbearbeiter] = @"& _ "gb_sachbearbeiter, [gb_sachbearbeiterId] = @gb_sachbearbeiterId WHERE (([gb_nr] "& _ "= @Original_gb_nr) AND ((@IsNull_gb_firma = 1 AND [gb_firma] IS NULL) OR ([gb_fi"& _ "rma] = @Original_gb_firma)) AND ((@IsNull_gb_KdNr = 1 AND [gb_KdNr] IS NULL) OR "& _ "([gb_KdNr] = @Original_gb_KdNr)) AND ([gb_datetime] = @Original_gb_datetime) AND"& _ " ([gb_sachbearbeiter] = @Original_gb_sachbearbeiter) AND ([gb_sachbearbeiterId] "& _ "= @Original_gb_sachbearbeiterId));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gb_nr, gb_firma, gb_KdNr, gb_datetime"& _ ", gb_sachbearbeiter, gb_sachbearbeiterId FROM tblGelangensbestaetigung WHERE (gb"& _ "_nr = @gb_nr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_firma", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_sachbearbeiter", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_sachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_sachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_firma", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_KdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_sachbearbeiter", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_sachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_sachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 gb_nr, gb_firma, gb_KdNr, gb_datetime, gb_sachbearbeiter, gb_sachbearbeite"& _ "rId FROM dbo.tblGelangensbestaetigung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGelangensbestaetigungDataTable) 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 VERAGDataSet.tblGelangensbestaetigungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGelangensbestaetigungDataTable = New VERAGDataSet.tblGelangensbestaetigungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGelangensbestaetigungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGelangensbestaetigung") 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_gb_nr As Integer, ByVal Original_gb_firma As String, ByVal Original_gb_KdNr As Global.System.Nullable(Of Integer), ByVal Original_gb_datetime As Date, ByVal Original_gb_sachbearbeiter As String, ByVal Original_gb_sachbearbeiterId As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_gb_nr,Integer) If (Original_gb_firma 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_gb_firma,String) End If If (Original_gb_KdNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_gb_KdNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_gb_datetime,Date) If (Original_gb_sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gb_sachbearbeiter") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_gb_sachbearbeiter,String) End If Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_gb_sachbearbeiterId,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 gb_nr As Integer, ByVal gb_firma As String, ByVal gb_KdNr As Global.System.Nullable(Of Integer), ByVal gb_datetime As Date, ByVal gb_sachbearbeiter As String, ByVal gb_sachbearbeiterId As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(gb_nr,Integer) If (gb_firma Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(gb_firma,String) End If If (gb_KdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(gb_KdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(gb_datetime,Date) If (gb_sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("gb_sachbearbeiter") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(gb_sachbearbeiter,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(gb_sachbearbeiterId,Integer) 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 gb_nr As Integer, ByVal gb_firma As String, ByVal gb_KdNr As Global.System.Nullable(Of Integer), ByVal gb_datetime As Date, ByVal gb_sachbearbeiter As String, ByVal gb_sachbearbeiterId As Integer, ByVal Original_gb_nr As Integer, ByVal Original_gb_firma As String, ByVal Original_gb_KdNr As Global.System.Nullable(Of Integer), ByVal Original_gb_datetime As Date, ByVal Original_gb_sachbearbeiter As String, ByVal Original_gb_sachbearbeiterId As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(gb_nr,Integer) If (gb_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(gb_firma,String) End If If (gb_KdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(gb_KdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(gb_datetime,Date) If (gb_sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("gb_sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(gb_sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(gb_sachbearbeiterId,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_gb_nr,Integer) If (Original_gb_firma 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_gb_firma,String) End If If (Original_gb_KdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_gb_KdNr.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(Original_gb_datetime,Date) If (Original_gb_sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gb_sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_gb_sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_gb_sachbearbeiterId,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 gb_firma As String, ByVal gb_KdNr As Global.System.Nullable(Of Integer), ByVal gb_datetime As Date, ByVal gb_sachbearbeiter As String, ByVal gb_sachbearbeiterId As Integer, ByVal Original_gb_nr As Integer, ByVal Original_gb_firma As String, ByVal Original_gb_KdNr As Global.System.Nullable(Of Integer), ByVal Original_gb_datetime As Date, ByVal Original_gb_sachbearbeiter As String, ByVal Original_gb_sachbearbeiterId As Integer) As Integer Return Me.Update(Original_gb_nr, gb_firma, gb_KdNr, gb_datetime, gb_sachbearbeiter, gb_sachbearbeiterId, Original_gb_nr, Original_gb_firma, Original_gb_KdNr, Original_gb_datetime, Original_gb_sachbearbeiter, Original_gb_sachbearbeiterId) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGeschäftsjahrTableAdapter 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 = "tblGeschäftsjahr" tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("Benutzer", "Benutzer") tableMapping.ColumnMappings.Add("Geschäftsjahr", "Geschäftsjahr") tableMapping.ColumnMappings.Add("LfdBelegNr", "LfdBelegNr") tableMapping.ColumnMappings.Add("LfdJournalNr", "LfdJournalNr") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblGeschäftsjahr] WHERE (([Mandant] = @Original_Mandant) AND ("& _ "[Niederlassung] = @Original_Niederlassung) AND ([Benutzer] = @Original_Benutzer)"& _ " AND ([Geschäftsjahr] = @Original_Geschäftsjahr) AND ((@IsNull_upsize_ts = 1 AND"& _ " [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblGeschäftsjahr] ([Mandant], [Niederlassung], [Benutzer], [Ge"& _ "schäftsjahr], [LfdBelegNr], [LfdJournalNr]) VALUES (@Mandant, @Niederlassung, @B"& _ "enutzer, @Geschäftsjahr, @LfdBelegNr, @LfdJournalNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Niederlas"& _ "sung, Benutzer, Geschäftsjahr, LfdBelegNr, LfdJournalNr, upsize_ts FROM tblGesch"& _ "äftsjahr WHERE (Benutzer = @Benutzer) AND (Geschäftsjahr = @Geschäftsjahr) AND ("& _ "Mandant = @Mandant) AND (Niederlassung = @Niederlassung)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdBelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdBelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdJournalNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdJournalNr", 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].[tblGeschäftsjahr] SET [Mandant] = @Mandant, [Niederlassung] = @Nied"& _ "erlassung, [Benutzer] = @Benutzer, [Geschäftsjahr] = @Geschäftsjahr, [LfdBelegNr"& _ "] = @LfdBelegNr, [LfdJournalNr] = @LfdJournalNr WHERE (([Mandant] = @Original_Ma"& _ "ndant) AND ([Niederlassung] = @Original_Niederlassung) AND ([Benutzer] = @Origin"& _ "al_Benutzer) AND ([Geschäftsjahr] = @Original_Geschäftsjahr) AND ((@IsNull_upsiz"& _ "e_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ "ECT Mandant, Niederlassung, Benutzer, Geschäftsjahr, LfdBelegNr, LfdJournalNr, u"& _ "psize_ts FROM tblGeschäftsjahr WHERE (Benutzer = @Benutzer) AND (Geschäftsjahr ="& _ " @Geschäftsjahr) AND (Mandant = @Mandant) AND (Niederlassung = @Niederlassung)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdBelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdBelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdJournalNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdJournalNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Mandant, Niederlassung, Benutzer, Geschäftsjahr, LfdBelegNr, LfdJournalNr,"& _ " upsize_ts FROM dbo.tblGeschäftsjahr" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGeschäftsjahrDataTable) 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 VERAGDataSet.tblGeschäftsjahrDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGeschäftsjahrDataTable = New VERAGDataSet.tblGeschäftsjahrDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGeschäftsjahrDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGeschäftsjahr") 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_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_Geschäftsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Benutzer,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Geschäftsjahr,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short, ByVal LfdBelegNr As Integer, ByVal LfdJournalNr As Integer) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(Geschäftsjahr,Short) Me.Adapter.InsertCommand.Parameters(4).Value = CType(LfdBelegNr,Integer) Me.Adapter.InsertCommand.Parameters(5).Value = CType(LfdJournalNr,Integer) 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 Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short, ByVal LfdBelegNr As Integer, ByVal LfdJournalNr As Integer, ByVal Original_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_Geschäftsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Geschäftsjahr,Short) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LfdBelegNr,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LfdJournalNr,Integer) If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Geschäftsjahr,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 LfdBelegNr As Integer, ByVal LfdJournalNr As Integer, ByVal Original_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_Geschäftsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_Geschäftsjahr, LfdBelegNr, LfdJournalNr, Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_Geschäftsjahr, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGeschäftsjahrBelegNrTableAdapter 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 = "tblGeschäftsjahrBelegNr" tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("Benutzer", "Benutzer") tableMapping.ColumnMappings.Add("Geschäftsjahr", "Geschäftsjahr") tableMapping.ColumnMappings.Add("LfdBelegNr", "LfdBelegNr") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblGeschäftsjahrBelegNr] WHERE (([Mandant] = @Original_Mandant"& _ ") AND ([Niederlassung] = @Original_Niederlassung) AND ([Benutzer] = @Original_Be"& _ "nutzer) AND ([Geschäftsjahr] = @Original_Geschäftsjahr) AND ((@IsNull_upsize_ts "& _ "= 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblGeschäftsjahrBelegNr] ([Mandant], [Niederlassung], [Benutze"& _ "r], [Geschäftsjahr], [LfdBelegNr]) VALUES (@Mandant, @Niederlassung, @Benutzer, "& _ "@Geschäftsjahr, @LfdBelegNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Niederlassung, Benutzer, Geschäft"& _ "sjahr, LfdBelegNr, upsize_ts FROM tblGeschäftsjahrBelegNr WHERE (Benutzer = @Ben"& _ "utzer) AND (Geschäftsjahr = @Geschäftsjahr) AND (Mandant = @Mandant) AND (Nieder"& _ "lassung = @Niederlassung)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdBelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdBelegNr", 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].[tblGeschäftsjahrBelegNr] SET [Mandant] = @Mandant, [Niederlassung] "& _ "= @Niederlassung, [Benutzer] = @Benutzer, [Geschäftsjahr] = @Geschäftsjahr, [Lfd"& _ "BelegNr] = @LfdBelegNr WHERE (([Mandant] = @Original_Mandant) AND ([Niederlassun"& _ "g] = @Original_Niederlassung) AND ([Benutzer] = @Original_Benutzer) AND ([Geschä"& _ "ftsjahr] = @Original_Geschäftsjahr) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] "& _ "IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Niederlassun"& _ "g, Benutzer, Geschäftsjahr, LfdBelegNr, upsize_ts FROM tblGeschäftsjahrBelegNr W"& _ "HERE (Benutzer = @Benutzer) AND (Geschäftsjahr = @Geschäftsjahr) AND (Mandant = "& _ "@Mandant) AND (Niederlassung = @Niederlassung)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdBelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdBelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Mandant, Niederlassung, Benutzer, Geschäftsjahr, LfdBelegNr, upsize_ts FRO"& _ "M dbo.tblGeschäftsjahrBelegNr" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGeschäftsjahrBelegNrDataTable) 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 VERAGDataSet.tblGeschäftsjahrBelegNrDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGeschäftsjahrBelegNrDataTable = New VERAGDataSet.tblGeschäftsjahrBelegNrDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGeschäftsjahrBelegNrDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGeschäftsjahrBelegNr") 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_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_Geschäftsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Benutzer,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Geschäftsjahr,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short, ByVal LfdBelegNr As Integer) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(Geschäftsjahr,Short) Me.Adapter.InsertCommand.Parameters(4).Value = CType(LfdBelegNr,Integer) 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 Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short, ByVal LfdBelegNr As Integer, ByVal Original_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_Geschäftsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Geschäftsjahr,Short) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LfdBelegNr,Integer) If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Geschäftsjahr,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 LfdBelegNr As Integer, ByVal Original_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_Geschäftsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_Geschäftsjahr, LfdBelegNr, Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_Geschäftsjahr, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGeschäftsjahrJournalNrTableAdapter 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 = "tblGeschäftsjahrJournalNr" tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("Benutzer", "Benutzer") tableMapping.ColumnMappings.Add("Geschäftsjahr", "Geschäftsjahr") tableMapping.ColumnMappings.Add("LfdJournalNr", "LfdJournalNr") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblGeschäftsjahrJournalNr] WHERE (([Mandant] = @Original_Manda"& _ "nt) AND ([Niederlassung] = @Original_Niederlassung) AND ([Benutzer] = @Original_"& _ "Benutzer) AND ([Geschäftsjahr] = @Original_Geschäftsjahr) AND ((@IsNull_upsize_t"& _ "s = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblGeschäftsjahrJournalNr] ([Mandant], [Niederlassung], [Benut"& _ "zer], [Geschäftsjahr], [LfdJournalNr]) VALUES (@Mandant, @Niederlassung, @Benutz"& _ "er, @Geschäftsjahr, @LfdJournalNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Niederlassung, Benutzer, Ge"& _ "schäftsjahr, LfdJournalNr, upsize_ts FROM tblGeschäftsjahrJournalNr WHERE (Benut"& _ "zer = @Benutzer) AND (Geschäftsjahr = @Geschäftsjahr) AND (Mandant = @Mandant) A"& _ "ND (Niederlassung = @Niederlassung)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdJournalNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdJournalNr", 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].[tblGeschäftsjahrJournalNr] SET [Mandant] = @Mandant, [Niederlassung"& _ "] = @Niederlassung, [Benutzer] = @Benutzer, [Geschäftsjahr] = @Geschäftsjahr, [L"& _ "fdJournalNr] = @LfdJournalNr WHERE (([Mandant] = @Original_Mandant) AND ([Nieder"& _ "lassung] = @Original_Niederlassung) AND ([Benutzer] = @Original_Benutzer) AND (["& _ "Geschäftsjahr] = @Original_Geschäftsjahr) AND ((@IsNull_upsize_ts = 1 AND [upsiz"& _ "e_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Nieder"& _ "lassung, Benutzer, Geschäftsjahr, LfdJournalNr, upsize_ts FROM tblGeschäftsjahrJ"& _ "ournalNr WHERE (Benutzer = @Benutzer) AND (Geschäftsjahr = @Geschäftsjahr) AND ("& _ "Mandant = @Mandant) AND (Niederlassung = @Niederlassung)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdJournalNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdJournalNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Mandant, Niederlassung, Benutzer, Geschäftsjahr, LfdJournalNr, upsize_ts F"& _ "ROM dbo.tblGeschäftsjahrJournalNr" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGeschäftsjahrJournalNrDataTable) 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 VERAGDataSet.tblGeschäftsjahrJournalNrDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGeschäftsjahrJournalNrDataTable = New VERAGDataSet.tblGeschäftsjahrJournalNrDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGeschäftsjahrJournalNrDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGeschäftsjahrJournalNr") 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_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_Geschäftsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Benutzer,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Geschäftsjahr,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short, ByVal LfdJournalNr As Integer) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(Geschäftsjahr,Short) Me.Adapter.InsertCommand.Parameters(4).Value = CType(LfdJournalNr,Integer) 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 Mandant As String, ByVal Niederlassung As String, ByVal Benutzer As Integer, ByVal Geschäftsjahr As Short, ByVal LfdJournalNr As Integer, ByVal Original_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_Geschäftsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Geschäftsjahr,Short) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LfdJournalNr,Integer) If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Geschäftsjahr,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 LfdJournalNr As Integer, ByVal Original_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_Geschäftsjahr As Short, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_Geschäftsjahr, LfdJournalNr, Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_Geschäftsjahr, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGestellungsgarantienTableAdapter 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 = "tblGestellungsgarantien" tableMapping.ColumnMappings.Add("gg_Id", "gg_Id") tableMapping.ColumnMappings.Add("gg_KundenNr", "gg_KundenNr") tableMapping.ColumnMappings.Add("gg_erhalten_Datum", "gg_erhalten_Datum") tableMapping.ColumnMappings.Add("gg_Zollamt", "gg_Zollamt") tableMapping.ColumnMappings.Add("gg_Info", "gg_Info") tableMapping.ColumnMappings.Add("gg_datenarchivId", "gg_datenarchivId") 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].[tblGestellungsgarantien] WHERE (([gg_Id] = @Original_gg_Id) AN"& _ "D ((@IsNull_gg_KundenNr = 1 AND [gg_KundenNr] IS NULL) OR ([gg_KundenNr] = @Orig"& _ "inal_gg_KundenNr)) AND ([gg_erhalten_Datum] = @Original_gg_erhalten_Datum) AND ("& _ "[gg_Zollamt] = @Original_gg_Zollamt) AND ((@IsNull_gg_datenarchivId = 1 AND [gg_"& _ "datenarchivId] IS NULL) OR ([gg_datenarchivId] = @Original_gg_datenarchivId)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gg_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gg_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gg_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gg_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_erhalten_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gg_Zollamt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_Zollamt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gg_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_datenarchivId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gg_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_datenarchivId", 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].[tblGestellungsgarantien] ([gg_KundenNr], [gg_erhalten_Datum], "& _ "[gg_Zollamt], [gg_Info], [gg_datenarchivId]) VALUES (@gg_KundenNr, @gg_erhalten_"& _ "Datum, @gg_Zollamt, @gg_Info, @gg_datenarchivId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gg_Id, gg_KundenNr, gg"& _ "_erhalten_Datum, gg_Zollamt, gg_Info, gg_datenarchivId FROM tblGestellungsgarant"& _ "ien WHERE (gg_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_erhalten_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_Zollamt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_Zollamt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_Info", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_datenarchivId", 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].[tblGestellungsgarantien] SET [gg_KundenNr] = @gg_KundenNr, [gg_erha"& _ "lten_Datum] = @gg_erhalten_Datum, [gg_Zollamt] = @gg_Zollamt, [gg_Info] = @gg_In"& _ "fo, [gg_datenarchivId] = @gg_datenarchivId WHERE (([gg_Id] = @Original_gg_Id) AN"& _ "D ((@IsNull_gg_KundenNr = 1 AND [gg_KundenNr] IS NULL) OR ([gg_KundenNr] = @Orig"& _ "inal_gg_KundenNr)) AND ([gg_erhalten_Datum] = @Original_gg_erhalten_Datum) AND ("& _ "[gg_Zollamt] = @Original_gg_Zollamt) AND ((@IsNull_gg_datenarchivId = 1 AND [gg_"& _ "datenarchivId] IS NULL) OR ([gg_datenarchivId] = @Original_gg_datenarchivId)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gg_Id, gg_KundenNr, gg_erhalten_Datum, gg_Zollamt, gg_Info, gg_datenarch"& _ "ivId FROM tblGestellungsgarantien WHERE (gg_Id = @gg_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_erhalten_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_Zollamt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_Zollamt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_Info", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_datenarchivId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gg_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gg_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gg_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gg_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_erhalten_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gg_Zollamt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_Zollamt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gg_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_datenarchivId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gg_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_datenarchivId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gg_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "gg_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 gg_Id, gg_KundenNr, gg_erhalten_Datum, gg_Zollamt, gg_Info, gg_datenarchiv"& _ "Id FROM dbo.tblGestellungsgarantien" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGestellungsgarantienDataTable) 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 VERAGDataSet.tblGestellungsgarantienDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGestellungsgarantienDataTable = New VERAGDataSet.tblGestellungsgarantienDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGestellungsgarantienDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGestellungsgarantien") 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_gg_Id As Integer, ByVal Original_gg_KundenNr As Global.System.Nullable(Of Integer), ByVal Original_gg_erhalten_Datum As Date, ByVal Original_gg_Zollamt As String, ByVal Original_gg_datenarchivId As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_gg_Id,Integer) If (Original_gg_KundenNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_gg_KundenNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_gg_erhalten_Datum,Date) If (Original_gg_Zollamt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gg_Zollamt") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_gg_Zollamt,String) End If If (Original_gg_datenarchivId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_gg_datenarchivId.Value,Integer) 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 gg_KundenNr As Global.System.Nullable(Of Integer), ByVal gg_erhalten_Datum As Date, ByVal gg_Zollamt As String, ByVal gg_Info As String, ByVal gg_datenarchivId As Global.System.Nullable(Of Integer)) As Integer If (gg_KundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(gg_KundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(gg_erhalten_Datum,Date) If (gg_Zollamt Is Nothing) Then Throw New Global.System.ArgumentNullException("gg_Zollamt") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(gg_Zollamt,String) End If If (gg_Info Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(gg_Info,String) End If If (gg_datenarchivId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(gg_datenarchivId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).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 gg_KundenNr As Global.System.Nullable(Of Integer), ByVal gg_erhalten_Datum As Date, ByVal gg_Zollamt As String, ByVal gg_Info As String, ByVal gg_datenarchivId As Global.System.Nullable(Of Integer), ByVal Original_gg_Id As Integer, ByVal Original_gg_KundenNr As Global.System.Nullable(Of Integer), ByVal Original_gg_erhalten_Datum As Date, ByVal Original_gg_Zollamt As String, ByVal Original_gg_datenarchivId As Global.System.Nullable(Of Integer), ByVal gg_Id As Integer) As Integer If (gg_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(gg_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(gg_erhalten_Datum,Date) If (gg_Zollamt Is Nothing) Then Throw New Global.System.ArgumentNullException("gg_Zollamt") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(gg_Zollamt,String) End If If (gg_Info Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(gg_Info,String) End If If (gg_datenarchivId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(gg_datenarchivId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_gg_Id,Integer) If (Original_gg_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_gg_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_gg_erhalten_Datum,Date) If (Original_gg_Zollamt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gg_Zollamt") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_gg_Zollamt,String) End If If (Original_gg_datenarchivId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_gg_datenarchivId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(gg_Id,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 gg_KundenNr As Global.System.Nullable(Of Integer), ByVal gg_erhalten_Datum As Date, ByVal gg_Zollamt As String, ByVal gg_Info As String, ByVal gg_datenarchivId As Global.System.Nullable(Of Integer), ByVal Original_gg_Id As Integer, ByVal Original_gg_KundenNr As Global.System.Nullable(Of Integer), ByVal Original_gg_erhalten_Datum As Date, ByVal Original_gg_Zollamt As String, ByVal Original_gg_datenarchivId As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(gg_KundenNr, gg_erhalten_Datum, gg_Zollamt, gg_Info, gg_datenarchivId, Original_gg_Id, Original_gg_KundenNr, Original_gg_erhalten_Datum, Original_gg_Zollamt, Original_gg_datenarchivId, Original_gg_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGestellungsmitteilungTableAdapter 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 = "tblGestellungsmitteilung" tableMapping.ColumnMappings.Add("gstm_id", "gstm_id") tableMapping.ColumnMappings.Add("gstm_AvisoId", "gstm_AvisoId") tableMapping.ColumnMappings.Add("gstm_T1Gestellung_ATB", "gstm_T1Gestellung_ATB") tableMapping.ColumnMappings.Add("gstm_BezugsNrSumA", "gstm_BezugsNrSumA") tableMapping.ColumnMappings.Add("gstm_LKWKennzeichen", "gstm_LKWKennzeichen") tableMapping.ColumnMappings.Add("gstm_GesamtColli", "gstm_GesamtColli") tableMapping.ColumnMappings.Add("gstm_GesamtGewicht", "gstm_GesamtGewicht") 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].[tblGestellungsmitteilung] WHERE (([gstm_id] = @Original_gstm_i"& _ "d) AND ([gstm_AvisoId] = @Original_gstm_AvisoId) AND ((@IsNull_gstm_T1Gestellung"& _ "_ATB = 1 AND [gstm_T1Gestellung_ATB] IS NULL) OR ([gstm_T1Gestellung_ATB] = @Ori"& _ "ginal_gstm_T1Gestellung_ATB)) AND ([gstm_BezugsNrSumA] = @Original_gstm_BezugsNr"& _ "SumA) AND ([gstm_LKWKennzeichen] = @Original_gstm_LKWKennzeichen) AND ([gstm_Ges"& _ "amtColli] = @Original_gstm_GesamtColli) AND ([gstm_GesamtGewicht] = @Original_gs"& _ "tm_GesamtGewicht))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstm_T1Gestellung_ATB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_T1Gestellung_ATB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_T1Gestellung_ATB", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_T1Gestellung_ATB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_BezugsNrSumA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_BezugsNrSumA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_LKWKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_LKWKennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_GesamtColli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_GesamtColli", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_GesamtGewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_GesamtGewicht", 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].[tblGestellungsmitteilung] ([gstm_AvisoId], [gstm_T1Gestellung_"& _ "ATB], [gstm_BezugsNrSumA], [gstm_LKWKennzeichen], [gstm_GesamtColli], [gstm_Gesa"& _ "mtGewicht]) VALUES (@gstm_AvisoId, @gstm_T1Gestellung_ATB, @gstm_BezugsNrSumA, @"& _ "gstm_LKWKennzeichen, @gstm_GesamtColli, @gstm_GesamtGewicht);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gstm_id, g"& _ "stm_AvisoId, gstm_T1Gestellung_ATB, gstm_BezugsNrSumA, gstm_LKWKennzeichen, gstm"& _ "_GesamtColli, gstm_GesamtGewicht FROM tblGestellungsmitteilung WHERE (gstm_id = "& _ "SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_T1Gestellung_ATB", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_T1Gestellung_ATB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_BezugsNrSumA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_BezugsNrSumA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_LKWKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_LKWKennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_GesamtColli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_GesamtColli", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_GesamtGewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_GesamtGewicht", 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].[tblGestellungsmitteilung] SET [gstm_AvisoId] = @gstm_AvisoId, [gstm"& _ "_T1Gestellung_ATB] = @gstm_T1Gestellung_ATB, [gstm_BezugsNrSumA] = @gstm_BezugsN"& _ "rSumA, [gstm_LKWKennzeichen] = @gstm_LKWKennzeichen, [gstm_GesamtColli] = @gstm_"& _ "GesamtColli, [gstm_GesamtGewicht] = @gstm_GesamtGewicht WHERE (([gstm_id] = @Ori"& _ "ginal_gstm_id) AND ([gstm_AvisoId] = @Original_gstm_AvisoId) AND ((@IsNull_gstm_"& _ "T1Gestellung_ATB = 1 AND [gstm_T1Gestellung_ATB] IS NULL) OR ([gstm_T1Gestellung"& _ "_ATB] = @Original_gstm_T1Gestellung_ATB)) AND ([gstm_BezugsNrSumA] = @Original_g"& _ "stm_BezugsNrSumA) AND ([gstm_LKWKennzeichen] = @Original_gstm_LKWKennzeichen) AN"& _ "D ([gstm_GesamtColli] = @Original_gstm_GesamtColli) AND ([gstm_GesamtGewicht] = "& _ "@Original_gstm_GesamtGewicht));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gstm_id, gstm_AvisoId, gstm_T1Gestellung"& _ "_ATB, gstm_BezugsNrSumA, gstm_LKWKennzeichen, gstm_GesamtColli, gstm_GesamtGewic"& _ "ht FROM tblGestellungsmitteilung WHERE (gstm_id = @gstm_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_T1Gestellung_ATB", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_T1Gestellung_ATB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_BezugsNrSumA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_BezugsNrSumA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_LKWKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_LKWKennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_GesamtColli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_GesamtColli", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_GesamtGewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_GesamtGewicht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstm_T1Gestellung_ATB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_T1Gestellung_ATB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_T1Gestellung_ATB", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_T1Gestellung_ATB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_BezugsNrSumA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_BezugsNrSumA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_LKWKennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_LKWKennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_GesamtColli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_GesamtColli", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstm_GesamtGewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_GesamtGewicht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstm_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "gstm_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 gstm_id, gstm_AvisoId, gstm_T1Gestellung_ATB, gstm_BezugsNrSumA, gstm_LKWK"& _ "ennzeichen, gstm_GesamtColli, gstm_GesamtGewicht FROM dbo.tblGestellungsmitteilu"& _ "ng" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGestellungsmitteilungDataTable) 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 VERAGDataSet.tblGestellungsmitteilungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGestellungsmitteilungDataTable = New VERAGDataSet.tblGestellungsmitteilungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGestellungsmitteilungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGestellungsmitteilung") 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_gstm_id As Integer, ByVal Original_gstm_AvisoId As Integer, ByVal Original_gstm_T1Gestellung_ATB As String, ByVal Original_gstm_BezugsNrSumA As String, ByVal Original_gstm_LKWKennzeichen As String, ByVal Original_gstm_GesamtColli As String, ByVal Original_gstm_GesamtGewicht As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_gstm_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_gstm_AvisoId,Integer) If (Original_gstm_T1Gestellung_ATB 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_gstm_T1Gestellung_ATB,String) End If If (Original_gstm_BezugsNrSumA Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstm_BezugsNrSumA") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_gstm_BezugsNrSumA,String) End If If (Original_gstm_LKWKennzeichen Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstm_LKWKennzeichen") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_gstm_LKWKennzeichen,String) End If If (Original_gstm_GesamtColli Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstm_GesamtColli") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_gstm_GesamtColli,String) End If If (Original_gstm_GesamtGewicht Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstm_GesamtGewicht") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_gstm_GesamtGewicht,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 gstm_AvisoId As Integer, ByVal gstm_T1Gestellung_ATB As String, ByVal gstm_BezugsNrSumA As String, ByVal gstm_LKWKennzeichen As String, ByVal gstm_GesamtColli As String, ByVal gstm_GesamtGewicht As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(gstm_AvisoId,Integer) If (gstm_T1Gestellung_ATB Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(gstm_T1Gestellung_ATB,String) End If If (gstm_BezugsNrSumA Is Nothing) Then Throw New Global.System.ArgumentNullException("gstm_BezugsNrSumA") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(gstm_BezugsNrSumA,String) End If If (gstm_LKWKennzeichen Is Nothing) Then Throw New Global.System.ArgumentNullException("gstm_LKWKennzeichen") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(gstm_LKWKennzeichen,String) End If If (gstm_GesamtColli Is Nothing) Then Throw New Global.System.ArgumentNullException("gstm_GesamtColli") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(gstm_GesamtColli,String) End If If (gstm_GesamtGewicht Is Nothing) Then Throw New Global.System.ArgumentNullException("gstm_GesamtGewicht") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(gstm_GesamtGewicht,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 gstm_AvisoId As Integer, ByVal gstm_T1Gestellung_ATB As String, ByVal gstm_BezugsNrSumA As String, ByVal gstm_LKWKennzeichen As String, ByVal gstm_GesamtColli As String, ByVal gstm_GesamtGewicht As String, ByVal Original_gstm_id As Integer, ByVal Original_gstm_AvisoId As Integer, ByVal Original_gstm_T1Gestellung_ATB As String, ByVal Original_gstm_BezugsNrSumA As String, ByVal Original_gstm_LKWKennzeichen As String, ByVal Original_gstm_GesamtColli As String, ByVal Original_gstm_GesamtGewicht As String, ByVal gstm_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(gstm_AvisoId,Integer) If (gstm_T1Gestellung_ATB Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(gstm_T1Gestellung_ATB,String) End If If (gstm_BezugsNrSumA Is Nothing) Then Throw New Global.System.ArgumentNullException("gstm_BezugsNrSumA") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(gstm_BezugsNrSumA,String) End If If (gstm_LKWKennzeichen Is Nothing) Then Throw New Global.System.ArgumentNullException("gstm_LKWKennzeichen") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(gstm_LKWKennzeichen,String) End If If (gstm_GesamtColli Is Nothing) Then Throw New Global.System.ArgumentNullException("gstm_GesamtColli") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(gstm_GesamtColli,String) End If If (gstm_GesamtGewicht Is Nothing) Then Throw New Global.System.ArgumentNullException("gstm_GesamtGewicht") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(gstm_GesamtGewicht,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_gstm_id,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_gstm_AvisoId,Integer) If (Original_gstm_T1Gestellung_ATB 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_gstm_T1Gestellung_ATB,String) End If If (Original_gstm_BezugsNrSumA Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstm_BezugsNrSumA") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_gstm_BezugsNrSumA,String) End If If (Original_gstm_LKWKennzeichen Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstm_LKWKennzeichen") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_gstm_LKWKennzeichen,String) End If If (Original_gstm_GesamtColli Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstm_GesamtColli") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_gstm_GesamtColli,String) End If If (Original_gstm_GesamtGewicht Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstm_GesamtGewicht") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_gstm_GesamtGewicht,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(gstm_id,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 gstm_AvisoId As Integer, ByVal gstm_T1Gestellung_ATB As String, ByVal gstm_BezugsNrSumA As String, ByVal gstm_LKWKennzeichen As String, ByVal gstm_GesamtColli As String, ByVal gstm_GesamtGewicht As String, ByVal Original_gstm_id As Integer, ByVal Original_gstm_AvisoId As Integer, ByVal Original_gstm_T1Gestellung_ATB As String, ByVal Original_gstm_BezugsNrSumA As String, ByVal Original_gstm_LKWKennzeichen As String, ByVal Original_gstm_GesamtColli As String, ByVal Original_gstm_GesamtGewicht As String) As Integer Return Me.Update(gstm_AvisoId, gstm_T1Gestellung_ATB, gstm_BezugsNrSumA, gstm_LKWKennzeichen, gstm_GesamtColli, gstm_GesamtGewicht, Original_gstm_id, Original_gstm_AvisoId, Original_gstm_T1Gestellung_ATB, Original_gstm_BezugsNrSumA, Original_gstm_LKWKennzeichen, Original_gstm_GesamtColli, Original_gstm_GesamtGewicht, Original_gstm_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGestellungsmitteilung_PositionenTableAdapter 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 = "tblGestellungsmitteilung_Positionen" tableMapping.ColumnMappings.Add("gstmp_id", "gstmp_id") tableMapping.ColumnMappings.Add("gstmp_GstmID", "gstmp_GstmID") tableMapping.ColumnMappings.Add("gstmp_SendungID", "gstmp_SendungID") tableMapping.ColumnMappings.Add("gstmp_T1Nr", "gstmp_T1Nr") tableMapping.ColumnMappings.Add("gstmp_AvisoID", "gstmp_AvisoID") tableMapping.ColumnMappings.Add("gstmp_Abfertigungsart", "gstmp_Abfertigungsart") tableMapping.ColumnMappings.Add("gstmp_Abfertigungsart_ID", "gstmp_Abfertigungsart_ID") tableMapping.ColumnMappings.Add("gstmp_Empfaenger", "gstmp_Empfaenger") tableMapping.ColumnMappings.Add("gstmp_Bemerkung", "gstmp_Bemerkung") tableMapping.ColumnMappings.Add("gstmp_FilialenNr", "gstmp_FilialenNr") tableMapping.ColumnMappings.Add("gstmp_AbfertigungsNr", "gstmp_AbfertigungsNr") tableMapping.ColumnMappings.Add("gstmp_UnterNr", "gstmp_UnterNr") tableMapping.ColumnMappings.Add("gstmp_Colli", "gstmp_Colli") tableMapping.ColumnMappings.Add("gstmp_Gewicht", "gstmp_Gewicht") tableMapping.ColumnMappings.Add("gstmp_Warenbezeichnung", "gstmp_Warenbezeichnung") tableMapping.ColumnMappings.Add("gstmp_Absender", "gstmp_Absender") tableMapping.ColumnMappings.Add("gstmp_ATANr", "gstmp_ATANr") 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].[tblGestellungsmitteilung_Positionen] WHERE (([gstmp_id] = @Ori"& _ "ginal_gstmp_id) AND ([gstmp_GstmID] = @Original_gstmp_GstmID) AND ((@IsNull_gstm"& _ "p_SendungID = 1 AND [gstmp_SendungID] IS NULL) OR ([gstmp_SendungID] = @Original"& _ "_gstmp_SendungID)) AND ((@IsNull_gstmp_T1Nr = 1 AND [gstmp_T1Nr] IS NULL) OR ([g"& _ "stmp_T1Nr] = @Original_gstmp_T1Nr)) AND ([gstmp_AvisoID] = @Original_gstmp_Aviso"& _ "ID) AND ([gstmp_Abfertigungsart] = @Original_gstmp_Abfertigungsart) AND ((@IsNul"& _ "l_gstmp_Abfertigungsart_ID = 1 AND [gstmp_Abfertigungsart_ID] IS NULL) OR ([gstm"& _ "p_Abfertigungsart_ID] = @Original_gstmp_Abfertigungsart_ID)) AND ([gstmp_Empfaen"& _ "ger] = @Original_gstmp_Empfaenger) AND ([gstmp_Bemerkung] = @Original_gstmp_Beme"& _ "rkung) AND ((@IsNull_gstmp_FilialenNr = 1 AND [gstmp_FilialenNr] IS NULL) OR ([g"& _ "stmp_FilialenNr] = @Original_gstmp_FilialenNr)) AND ((@IsNull_gstmp_Abfertigungs"& _ "Nr = 1 AND [gstmp_AbfertigungsNr] IS NULL) OR ([gstmp_AbfertigungsNr] = @Origina"& _ "l_gstmp_AbfertigungsNr)) AND ((@IsNull_gstmp_UnterNr = 1 AND [gstmp_UnterNr] IS "& _ "NULL) OR ([gstmp_UnterNr] = @Original_gstmp_UnterNr)) AND ([gstmp_Colli] = @Orig"& _ "inal_gstmp_Colli) AND ([gstmp_Gewicht] = @Original_gstmp_Gewicht) AND ([gstmp_Wa"& _ "renbezeichnung] = @Original_gstmp_Warenbezeichnung) AND ([gstmp_Absender] = @Ori"& _ "ginal_gstmp_Absender) AND ([gstmp_ATANr] = @Original_gstmp_ATANr))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_GstmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_GstmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_SendungID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_SendungID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_SendungID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_SendungID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_T1Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_T1Nr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_T1Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_T1Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_AvisoID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Abfertigungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Empfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Empfaenger", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Bemerkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_FilialenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_UnterNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_UnterNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_UnterNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Colli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Colli", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Gewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Gewicht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Absender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_ATANr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_ATANr", 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].[tblGestellungsmitteilung_Positionen] ([gstmp_GstmID], [gstmp_S"& _ "endungID], [gstmp_T1Nr], [gstmp_AvisoID], [gstmp_Abfertigungsart], [gstmp_Abfert"& _ "igungsart_ID], [gstmp_Empfaenger], [gstmp_Bemerkung], [gstmp_FilialenNr], [gstmp"& _ "_AbfertigungsNr], [gstmp_UnterNr], [gstmp_Colli], [gstmp_Gewicht], [gstmp_Warenb"& _ "ezeichnung], [gstmp_Absender], [gstmp_ATANr]) VALUES (@gstmp_GstmID, @gstmp_Send"& _ "ungID, @gstmp_T1Nr, @gstmp_AvisoID, @gstmp_Abfertigungsart, @gstmp_Abfertigungsa"& _ "rt_ID, @gstmp_Empfaenger, @gstmp_Bemerkung, @gstmp_FilialenNr, @gstmp_Abfertigun"& _ "gsNr, @gstmp_UnterNr, @gstmp_Colli, @gstmp_Gewicht, @gstmp_Warenbezeichnung, @gs"& _ "tmp_Absender, @gstmp_ATANr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gstmp_id, gstmp_GstmID, gstmp_SendungID, gs"& _ "tmp_T1Nr, gstmp_AvisoID, gstmp_Abfertigungsart, gstmp_Abfertigungsart_ID, gstmp_"& _ "Empfaenger, gstmp_Bemerkung, gstmp_FilialenNr, gstmp_AbfertigungsNr, gstmp_Unter"& _ "Nr, gstmp_Colli, gstmp_Gewicht, gstmp_Warenbezeichnung, gstmp_Absender, gstmp_AT"& _ "ANr FROM tblGestellungsmitteilung_Positionen WHERE (gstmp_id = SCOPE_IDENTITY())"& _ "" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_GstmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_GstmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_SendungID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_SendungID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_T1Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_T1Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_AvisoID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Abfertigungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Empfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Empfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Colli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Colli", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Gewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Gewicht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_ATANr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_ATANr", 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].[tblGestellungsmitteilung_Positionen] SET [gstmp_GstmID] = @gstmp_Gs"& _ "tmID, [gstmp_SendungID] = @gstmp_SendungID, [gstmp_T1Nr] = @gstmp_T1Nr, [gstmp_A"& _ "visoID] = @gstmp_AvisoID, [gstmp_Abfertigungsart] = @gstmp_Abfertigungsart, [gst"& _ "mp_Abfertigungsart_ID] = @gstmp_Abfertigungsart_ID, [gstmp_Empfaenger] = @gstmp_"& _ "Empfaenger, [gstmp_Bemerkung] = @gstmp_Bemerkung, [gstmp_FilialenNr] = @gstmp_Fi"& _ "lialenNr, [gstmp_AbfertigungsNr] = @gstmp_AbfertigungsNr, [gstmp_UnterNr] = @gst"& _ "mp_UnterNr, [gstmp_Colli] = @gstmp_Colli, [gstmp_Gewicht] = @gstmp_Gewicht, [gst"& _ "mp_Warenbezeichnung] = @gstmp_Warenbezeichnung, [gstmp_Absender] = @gstmp_Absend"& _ "er, [gstmp_ATANr] = @gstmp_ATANr WHERE (([gstmp_id] = @Original_gstmp_id) AND (["& _ "gstmp_GstmID] = @Original_gstmp_GstmID) AND ((@IsNull_gstmp_SendungID = 1 AND [g"& _ "stmp_SendungID] IS NULL) OR ([gstmp_SendungID] = @Original_gstmp_SendungID)) AND"& _ " ((@IsNull_gstmp_T1Nr = 1 AND [gstmp_T1Nr] IS NULL) OR ([gstmp_T1Nr] = @Original"& _ "_gstmp_T1Nr)) AND ([gstmp_AvisoID] = @Original_gstmp_AvisoID) AND ([gstmp_Abfert"& _ "igungsart] = @Original_gstmp_Abfertigungsart) AND ((@IsNull_gstmp_Abfertigungsar"& _ "t_ID = 1 AND [gstmp_Abfertigungsart_ID] IS NULL) OR ([gstmp_Abfertigungsart_ID] "& _ "= @Original_gstmp_Abfertigungsart_ID)) AND ([gstmp_Empfaenger] = @Original_gstmp"& _ "_Empfaenger) AND ([gstmp_Bemerkung] = @Original_gstmp_Bemerkung) AND ((@IsNull_g"& _ "stmp_FilialenNr = 1 AND [gstmp_FilialenNr] IS NULL) OR ([gstmp_FilialenNr] = @Or"& _ "iginal_gstmp_FilialenNr)) AND ((@IsNull_gstmp_AbfertigungsNr = 1 AND [gstmp_Abfe"& _ "rtigungsNr] IS NULL) OR ([gstmp_AbfertigungsNr] = @Original_gstmp_AbfertigungsNr"& _ ")) AND ((@IsNull_gstmp_UnterNr = 1 AND [gstmp_UnterNr] IS NULL) OR ([gstmp_Unter"& _ "Nr] = @Original_gstmp_UnterNr)) AND ([gstmp_Colli] = @Original_gstmp_Colli) AND "& _ "([gstmp_Gewicht] = @Original_gstmp_Gewicht) AND ([gstmp_Warenbezeichnung] = @Ori"& _ "ginal_gstmp_Warenbezeichnung) AND ([gstmp_Absender] = @Original_gstmp_Absender) "& _ "AND ([gstmp_ATANr] = @Original_gstmp_ATANr));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gstmp_id, gstmp_GstmID, gs"& _ "tmp_SendungID, gstmp_T1Nr, gstmp_AvisoID, gstmp_Abfertigungsart, gstmp_Abfertigu"& _ "ngsart_ID, gstmp_Empfaenger, gstmp_Bemerkung, gstmp_FilialenNr, gstmp_Abfertigun"& _ "gsNr, gstmp_UnterNr, gstmp_Colli, gstmp_Gewicht, gstmp_Warenbezeichnung, gstmp_A"& _ "bsender, gstmp_ATANr FROM tblGestellungsmitteilung_Positionen WHERE (gstmp_id = "& _ "@gstmp_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_GstmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_GstmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_SendungID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_SendungID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_T1Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_T1Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_AvisoID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Abfertigungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Empfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Empfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Colli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Colli", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Gewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Gewicht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_Absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_ATANr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_ATANr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_GstmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_GstmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_SendungID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_SendungID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_SendungID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_SendungID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_T1Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_T1Nr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_T1Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_T1Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_AvisoID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Abfertigungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Empfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Empfaenger", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Bemerkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_FilialenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gstmp_UnterNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_UnterNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_UnterNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Colli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Colli", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Gewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Gewicht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_Absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_Absender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gstmp_ATANr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_ATANr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gstmp_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "gstmp_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 gstmp_id, gstmp_GstmID, gstmp_SendungID, gstmp_T1Nr, gstmp_AvisoID, gstmp_"& _ "Abfertigungsart, gstmp_Abfertigungsart_ID, gstmp_Empfaenger, gstmp_Bemerkung, gs"& _ "tmp_FilialenNr, gstmp_AbfertigungsNr, gstmp_UnterNr, gstmp_Colli, gstmp_Gewicht,"& _ " gstmp_Warenbezeichnung, gstmp_Absender, gstmp_ATANr FROM dbo.tblGestellungsmitt"& _ "eilung_Positionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGestellungsmitteilung_PositionenDataTable) 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 VERAGDataSet.tblGestellungsmitteilung_PositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGestellungsmitteilung_PositionenDataTable = New VERAGDataSet.tblGestellungsmitteilung_PositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGestellungsmitteilung_PositionenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGestellungsmitteilung_Positionen") 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_gstmp_id As Integer, _ ByVal Original_gstmp_GstmID As Integer, _ ByVal Original_gstmp_SendungID As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_T1Nr As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_AvisoID As Integer, _ ByVal Original_gstmp_Abfertigungsart As String, _ ByVal Original_gstmp_Abfertigungsart_ID As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_Empfaenger As String, _ ByVal Original_gstmp_Bemerkung As String, _ ByVal Original_gstmp_FilialenNr As Global.System.Nullable(Of Short), _ ByVal Original_gstmp_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_UnterNr As Global.System.Nullable(Of Short), _ ByVal Original_gstmp_Colli As String, _ ByVal Original_gstmp_Gewicht As String, _ ByVal Original_gstmp_Warenbezeichnung As String, _ ByVal Original_gstmp_Absender As String, _ ByVal Original_gstmp_ATANr As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_gstmp_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_gstmp_GstmID,Integer) If (Original_gstmp_SendungID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_gstmp_SendungID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_gstmp_T1Nr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_gstmp_T1Nr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_gstmp_AvisoID,Integer) If (Original_gstmp_Abfertigungsart Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Abfertigungsart") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_gstmp_Abfertigungsart,String) End If If (Original_gstmp_Abfertigungsart_ID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_gstmp_Abfertigungsart_ID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_gstmp_Empfaenger Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Empfaenger") Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_gstmp_Empfaenger,String) End If If (Original_gstmp_Bemerkung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Bemerkung") Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_gstmp_Bemerkung,String) End If If (Original_gstmp_FilialenNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_gstmp_FilialenNr.Value,Short) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_gstmp_AbfertigungsNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_gstmp_AbfertigungsNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_gstmp_UnterNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_gstmp_UnterNr.Value,Short) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_gstmp_Colli Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Colli") Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_gstmp_Colli,String) End If If (Original_gstmp_Gewicht Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Gewicht") Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_gstmp_Gewicht,String) End If If (Original_gstmp_Warenbezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Warenbezeichnung") Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_gstmp_Warenbezeichnung,String) End If If (Original_gstmp_Absender Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Absender") Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_gstmp_Absender,String) End If If (Original_gstmp_ATANr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_ATANr") Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_gstmp_ATANr,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 gstmp_GstmID As Integer, _ ByVal gstmp_SendungID As Global.System.Nullable(Of Integer), _ ByVal gstmp_T1Nr As Global.System.Nullable(Of Integer), _ ByVal gstmp_AvisoID As Integer, _ ByVal gstmp_Abfertigungsart As String, _ ByVal gstmp_Abfertigungsart_ID As Global.System.Nullable(Of Integer), _ ByVal gstmp_Empfaenger As String, _ ByVal gstmp_Bemerkung As String, _ ByVal gstmp_FilialenNr As Global.System.Nullable(Of Short), _ ByVal gstmp_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal gstmp_UnterNr As Global.System.Nullable(Of Short), _ ByVal gstmp_Colli As String, _ ByVal gstmp_Gewicht As String, _ ByVal gstmp_Warenbezeichnung As String, _ ByVal gstmp_Absender As String, _ ByVal gstmp_ATANr As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(gstmp_GstmID,Integer) If (gstmp_SendungID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(gstmp_SendungID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (gstmp_T1Nr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(gstmp_T1Nr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(gstmp_AvisoID,Integer) If (gstmp_Abfertigungsart Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Abfertigungsart") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(gstmp_Abfertigungsart,String) End If If (gstmp_Abfertigungsart_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(gstmp_Abfertigungsart_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (gstmp_Empfaenger Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Empfaenger") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(gstmp_Empfaenger,String) End If If (gstmp_Bemerkung Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Bemerkung") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(gstmp_Bemerkung,String) End If If (gstmp_FilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(gstmp_FilialenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (gstmp_AbfertigungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(gstmp_AbfertigungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (gstmp_UnterNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(gstmp_UnterNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (gstmp_Colli Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Colli") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(gstmp_Colli,String) End If If (gstmp_Gewicht Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Gewicht") Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(gstmp_Gewicht,String) End If If (gstmp_Warenbezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Warenbezeichnung") Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(gstmp_Warenbezeichnung,String) End If If (gstmp_Absender Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Absender") Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(gstmp_Absender,String) End If If (gstmp_ATANr Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_ATANr") Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(gstmp_ATANr,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 gstmp_GstmID As Integer, _ ByVal gstmp_SendungID As Global.System.Nullable(Of Integer), _ ByVal gstmp_T1Nr As Global.System.Nullable(Of Integer), _ ByVal gstmp_AvisoID As Integer, _ ByVal gstmp_Abfertigungsart As String, _ ByVal gstmp_Abfertigungsart_ID As Global.System.Nullable(Of Integer), _ ByVal gstmp_Empfaenger As String, _ ByVal gstmp_Bemerkung As String, _ ByVal gstmp_FilialenNr As Global.System.Nullable(Of Short), _ ByVal gstmp_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal gstmp_UnterNr As Global.System.Nullable(Of Short), _ ByVal gstmp_Colli As String, _ ByVal gstmp_Gewicht As String, _ ByVal gstmp_Warenbezeichnung As String, _ ByVal gstmp_Absender As String, _ ByVal gstmp_ATANr As String, _ ByVal Original_gstmp_id As Integer, _ ByVal Original_gstmp_GstmID As Integer, _ ByVal Original_gstmp_SendungID As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_T1Nr As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_AvisoID As Integer, _ ByVal Original_gstmp_Abfertigungsart As String, _ ByVal Original_gstmp_Abfertigungsart_ID As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_Empfaenger As String, _ ByVal Original_gstmp_Bemerkung As String, _ ByVal Original_gstmp_FilialenNr As Global.System.Nullable(Of Short), _ ByVal Original_gstmp_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_UnterNr As Global.System.Nullable(Of Short), _ ByVal Original_gstmp_Colli As String, _ ByVal Original_gstmp_Gewicht As String, _ ByVal Original_gstmp_Warenbezeichnung As String, _ ByVal Original_gstmp_Absender As String, _ ByVal Original_gstmp_ATANr As String, _ ByVal gstmp_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(gstmp_GstmID,Integer) If (gstmp_SendungID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(gstmp_SendungID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (gstmp_T1Nr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(gstmp_T1Nr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(gstmp_AvisoID,Integer) If (gstmp_Abfertigungsart Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Abfertigungsart") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(gstmp_Abfertigungsart,String) End If If (gstmp_Abfertigungsart_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(gstmp_Abfertigungsart_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (gstmp_Empfaenger Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Empfaenger") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(gstmp_Empfaenger,String) End If If (gstmp_Bemerkung Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Bemerkung") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(gstmp_Bemerkung,String) End If If (gstmp_FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(gstmp_FilialenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (gstmp_AbfertigungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(gstmp_AbfertigungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (gstmp_UnterNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(gstmp_UnterNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (gstmp_Colli Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Colli") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(gstmp_Colli,String) End If If (gstmp_Gewicht Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Gewicht") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(gstmp_Gewicht,String) End If If (gstmp_Warenbezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Warenbezeichnung") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(gstmp_Warenbezeichnung,String) End If If (gstmp_Absender Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_Absender") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(gstmp_Absender,String) End If If (gstmp_ATANr Is Nothing) Then Throw New Global.System.ArgumentNullException("gstmp_ATANr") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(gstmp_ATANr,String) End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_gstmp_id,Integer) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_gstmp_GstmID,Integer) If (Original_gstmp_SendungID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_gstmp_SendungID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_gstmp_T1Nr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_gstmp_T1Nr.Value,Integer) 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(Original_gstmp_AvisoID,Integer) If (Original_gstmp_Abfertigungsart Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Abfertigungsart") Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_gstmp_Abfertigungsart,String) End If If (Original_gstmp_Abfertigungsart_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_gstmp_Abfertigungsart_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_gstmp_Empfaenger Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Empfaenger") Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_gstmp_Empfaenger,String) End If If (Original_gstmp_Bemerkung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Bemerkung") Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_gstmp_Bemerkung,String) End If If (Original_gstmp_FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_gstmp_FilialenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Original_gstmp_AbfertigungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_gstmp_AbfertigungsNr.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_gstmp_UnterNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_gstmp_UnterNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_gstmp_Colli Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Colli") Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_gstmp_Colli,String) End If If (Original_gstmp_Gewicht Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Gewicht") Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_gstmp_Gewicht,String) End If If (Original_gstmp_Warenbezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Warenbezeichnung") Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_gstmp_Warenbezeichnung,String) End If If (Original_gstmp_Absender Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_Absender") Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_gstmp_Absender,String) End If If (Original_gstmp_ATANr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gstmp_ATANr") Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_gstmp_ATANr,String) End If Me.Adapter.UpdateCommand.Parameters(39).Value = CType(gstmp_id,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 gstmp_GstmID As Integer, _ ByVal gstmp_SendungID As Global.System.Nullable(Of Integer), _ ByVal gstmp_T1Nr As Global.System.Nullable(Of Integer), _ ByVal gstmp_AvisoID As Integer, _ ByVal gstmp_Abfertigungsart As String, _ ByVal gstmp_Abfertigungsart_ID As Global.System.Nullable(Of Integer), _ ByVal gstmp_Empfaenger As String, _ ByVal gstmp_Bemerkung As String, _ ByVal gstmp_FilialenNr As Global.System.Nullable(Of Short), _ ByVal gstmp_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal gstmp_UnterNr As Global.System.Nullable(Of Short), _ ByVal gstmp_Colli As String, _ ByVal gstmp_Gewicht As String, _ ByVal gstmp_Warenbezeichnung As String, _ ByVal gstmp_Absender As String, _ ByVal gstmp_ATANr As String, _ ByVal Original_gstmp_id As Integer, _ ByVal Original_gstmp_GstmID As Integer, _ ByVal Original_gstmp_SendungID As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_T1Nr As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_AvisoID As Integer, _ ByVal Original_gstmp_Abfertigungsart As String, _ ByVal Original_gstmp_Abfertigungsart_ID As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_Empfaenger As String, _ ByVal Original_gstmp_Bemerkung As String, _ ByVal Original_gstmp_FilialenNr As Global.System.Nullable(Of Short), _ ByVal Original_gstmp_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_gstmp_UnterNr As Global.System.Nullable(Of Short), _ ByVal Original_gstmp_Colli As String, _ ByVal Original_gstmp_Gewicht As String, _ ByVal Original_gstmp_Warenbezeichnung As String, _ ByVal Original_gstmp_Absender As String, _ ByVal Original_gstmp_ATANr As String) As Integer Return Me.Update(gstmp_GstmID, gstmp_SendungID, gstmp_T1Nr, gstmp_AvisoID, gstmp_Abfertigungsart, gstmp_Abfertigungsart_ID, gstmp_Empfaenger, gstmp_Bemerkung, gstmp_FilialenNr, gstmp_AbfertigungsNr, gstmp_UnterNr, gstmp_Colli, gstmp_Gewicht, gstmp_Warenbezeichnung, gstmp_Absender, gstmp_ATANr, Original_gstmp_id, Original_gstmp_GstmID, Original_gstmp_SendungID, Original_gstmp_T1Nr, Original_gstmp_AvisoID, Original_gstmp_Abfertigungsart, Original_gstmp_Abfertigungsart_ID, Original_gstmp_Empfaenger, Original_gstmp_Bemerkung, Original_gstmp_FilialenNr, Original_gstmp_AbfertigungsNr, Original_gstmp_UnterNr, Original_gstmp_Colli, Original_gstmp_Gewicht, Original_gstmp_Warenbezeichnung, Original_gstmp_Absender, Original_gstmp_ATANr, Original_gstmp_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGOBOXBestellungenTableAdapter 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 = "tblGOBOXBestellungen" tableMapping.ColumnMappings.Add("gb_ID", "gb_ID") tableMapping.ColumnMappings.Add("gb_bestelldatum", "gb_bestelldatum") tableMapping.ColumnMappings.Add("gb_bestellNr", "gb_bestellNr") tableMapping.ColumnMappings.Add("gb_adressNr", "gb_adressNr") tableMapping.ColumnMappings.Add("gb_transactionTyp", "gb_transactionTyp") tableMapping.ColumnMappings.Add("gb_company1", "gb_company1") tableMapping.ColumnMappings.Add("gb_company2", "gb_company2") tableMapping.ColumnMappings.Add("gb_companyStreet", "gb_companyStreet") tableMapping.ColumnMappings.Add("gb_companyStreetNr", "gb_companyStreetNr") tableMapping.ColumnMappings.Add("gb_companyPostalcode", "gb_companyPostalcode") tableMapping.ColumnMappings.Add("gb_companyCity", "gb_companyCity") tableMapping.ColumnMappings.Add("gb_companyCountry", "gb_companyCountry") tableMapping.ColumnMappings.Add("gb_companyCountryISO", "gb_companyCountryISO") tableMapping.ColumnMappings.Add("gb_companyTel", "gb_companyTel") tableMapping.ColumnMappings.Add("gb_companyFax", "gb_companyFax") tableMapping.ColumnMappings.Add("gb_salutation", "gb_salutation") tableMapping.ColumnMappings.Add("gb_title", "gb_title") tableMapping.ColumnMappings.Add("gb_firstname", "gb_firstname") tableMapping.ColumnMappings.Add("gb_lastname", "gb_lastname") tableMapping.ColumnMappings.Add("gb_email", "gb_email") tableMapping.ColumnMappings.Add("gb_personLanguage", "gb_personLanguage") tableMapping.ColumnMappings.Add("gb_licensePlate", "gb_licensePlate") tableMapping.ColumnMappings.Add("gb_licensePlateNat", "gb_licensePlateNat") tableMapping.ColumnMappings.Add("gb_vehicleTyp", "gb_vehicleTyp") tableMapping.ColumnMappings.Add("gb_Axles", "gb_Axles") tableMapping.ColumnMappings.Add("gb_CardNum", "gb_CardNum") tableMapping.ColumnMappings.Add("gb_CardValidMonth", "gb_CardValidMonth") tableMapping.ColumnMappings.Add("gb_CardValidYear", "gb_CardValidYear") 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].[tblGOBOXBestellungen] WHERE (([gb_ID] = @Original_gb_ID) AND ("& _ "(@IsNull_gb_bestelldatum = 1 AND [gb_bestelldatum] IS NULL) OR ([gb_bestelldatum"& _ "] = @Original_gb_bestelldatum)) AND ((@IsNull_gb_bestellNr = 1 AND [gb_bestellNr"& _ "] IS NULL) OR ([gb_bestellNr] = @Original_gb_bestellNr)) AND ((@IsNull_gb_adress"& _ "Nr = 1 AND [gb_adressNr] IS NULL) OR ([gb_adressNr] = @Original_gb_adressNr)) AN"& _ "D ((@IsNull_gb_transactionTyp = 1 AND [gb_transactionTyp] IS NULL) OR ([gb_trans"& _ "actionTyp] = @Original_gb_transactionTyp)) AND ((@IsNull_gb_company1 = 1 AND [gb"& _ "_company1] IS NULL) OR ([gb_company1] = @Original_gb_company1)) AND ((@IsNull_gb"& _ "_company2 = 1 AND [gb_company2] IS NULL) OR ([gb_company2] = @Original_gb_compan"& _ "y2)) AND ((@IsNull_gb_companyStreet = 1 AND [gb_companyStreet] IS NULL) OR ([gb_"& _ "companyStreet] = @Original_gb_companyStreet)) AND ((@IsNull_gb_companyStreetNr ="& _ " 1 AND [gb_companyStreetNr] IS NULL) OR ([gb_companyStreetNr] = @Original_gb_com"& _ "panyStreetNr)) AND ((@IsNull_gb_companyPostalcode = 1 AND [gb_companyPostalcode]"& _ " IS NULL) OR ([gb_companyPostalcode] = @Original_gb_companyPostalcode)) AND ((@I"& _ "sNull_gb_companyCity = 1 AND [gb_companyCity] IS NULL) OR ([gb_companyCity] = @O"& _ "riginal_gb_companyCity)) AND ((@IsNull_gb_companyCountry = 1 AND [gb_companyCoun"& _ "try] IS NULL) OR ([gb_companyCountry] = @Original_gb_companyCountry)) AND ((@IsN"& _ "ull_gb_companyCountryISO = 1 AND [gb_companyCountryISO] IS NULL) OR ([gb_company"& _ "CountryISO] = @Original_gb_companyCountryISO)) AND ((@IsNull_gb_companyTel = 1 A"& _ "ND [gb_companyTel] IS NULL) OR ([gb_companyTel] = @Original_gb_companyTel)) AND "& _ "((@IsNull_gb_companyFax = 1 AND [gb_companyFax] IS NULL) OR ([gb_companyFax] = @"& _ "Original_gb_companyFax)) AND ((@IsNull_gb_salutation = 1 AND [gb_salutation] IS "& _ "NULL) OR ([gb_salutation] = @Original_gb_salutation)) AND ((@IsNull_gb_title = 1"& _ " AND [gb_title] IS NULL) OR ([gb_title] = @Original_gb_title)) AND ((@IsNull_gb_"& _ "firstname = 1 AND [gb_firstname] IS NULL) OR ([gb_firstname] = @Original_gb_firs"& _ "tname)) AND ((@IsNull_gb_lastname = 1 AND [gb_lastname] IS NULL) OR ([gb_lastnam"& _ "e] = @Original_gb_lastname)) AND ((@IsNull_gb_email = 1 AND [gb_email] IS NULL) "& _ "OR ([gb_email] = @Original_gb_email)) AND ((@IsNull_gb_personLanguage = 1 AND [g"& _ "b_personLanguage] IS NULL) OR ([gb_personLanguage] = @Original_gb_personLanguage"& _ ")) AND ((@IsNull_gb_licensePlate = 1 AND [gb_licensePlate] IS NULL) OR ([gb_lice"& _ "nsePlate] = @Original_gb_licensePlate)) AND ((@IsNull_gb_licensePlateNat = 1 AND"& _ " [gb_licensePlateNat] IS NULL) OR ([gb_licensePlateNat] = @Original_gb_licensePl"& _ "ateNat)) AND ((@IsNull_gb_vehicleTyp = 1 AND [gb_vehicleTyp] IS NULL) OR ([gb_ve"& _ "hicleTyp] = @Original_gb_vehicleTyp)) AND ((@IsNull_gb_Axles = 1 AND [gb_Axles] "& _ "IS NULL) OR ([gb_Axles] = @Original_gb_Axles)) AND ((@IsNull_gb_CardNum = 1 AND "& _ "[gb_CardNum] IS NULL) OR ([gb_CardNum] = @Original_gb_CardNum)) AND ((@IsNull_gb"& _ "_CardValidMonth = 1 AND [gb_CardValidMonth] IS NULL) OR ([gb_CardValidMonth] = @"& _ "Original_gb_CardValidMonth)) AND ((@IsNull_gb_CardValidYear = 1 AND [gb_CardVali"& _ "dYear] IS NULL) OR ([gb_CardValidYear] = @Original_gb_CardValidYear)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_bestelldatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestelldatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_bestelldatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestelldatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_bestellNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestellNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_bestellNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestellNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_adressNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_adressNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_adressNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_adressNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_transactionTyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_transactionTyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_transactionTyp", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_transactionTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_company1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_company1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_company2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_company2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyStreet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyStreet", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyStreetNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreetNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyStreetNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreetNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyPostalcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyPostalcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyPostalcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyPostalcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyCity", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCity", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyCity", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCity", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyCountry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyCountry", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyCountryISO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountryISO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyCountryISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountryISO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyTel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyTel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyTel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyTel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyFax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyFax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyFax", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyFax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_salutation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_salutation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_salutation", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_salutation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_title", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_title", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_title", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_title", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_firstname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firstname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_firstname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firstname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_lastname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_lastname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_lastname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_lastname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_email", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_email", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_email", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_personLanguage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_personLanguage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_personLanguage", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_personLanguage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_licensePlate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_licensePlate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_licensePlateNat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlateNat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_licensePlateNat", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlateNat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_vehicleTyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_vehicleTyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_vehicleTyp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_vehicleTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_Axles", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_Axles", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_Axles", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_Axles", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_CardNum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardNum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_CardNum", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardNum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_CardValidMonth", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidMonth", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_CardValidMonth", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidMonth", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_CardValidYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidYear", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_CardValidYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidYear", 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].[tblGOBOXBestellungen] ([gb_ID], [gb_bestelldatum], [gb_bestell"& _ "Nr], [gb_adressNr], [gb_transactionTyp], [gb_company1], [gb_company2], [gb_compa"& _ "nyStreet], [gb_companyStreetNr], [gb_companyPostalcode], [gb_companyCity], [gb_c"& _ "ompanyCountry], [gb_companyCountryISO], [gb_companyTel], [gb_companyFax], [gb_sa"& _ "lutation], [gb_title], [gb_firstname], [gb_lastname], [gb_email], [gb_personLang"& _ "uage], [gb_licensePlate], [gb_licensePlateNat], [gb_vehicleTyp], [gb_Axles], [gb"& _ "_CardNum], [gb_CardValidMonth], [gb_CardValidYear]) VALUES (@gb_ID, @gb_bestelld"& _ "atum, @gb_bestellNr, @gb_adressNr, @gb_transactionTyp, @gb_company1, @gb_company"& _ "2, @gb_companyStreet, @gb_companyStreetNr, @gb_companyPostalcode, @gb_companyCit"& _ "y, @gb_companyCountry, @gb_companyCountryISO, @gb_companyTel, @gb_companyFax, @g"& _ "b_salutation, @gb_title, @gb_firstname, @gb_lastname, @gb_email, @gb_personLangu"& _ "age, @gb_licensePlate, @gb_licensePlateNat, @gb_vehicleTyp, @gb_Axles, @gb_CardN"& _ "um, @gb_CardValidMonth, @gb_CardValidYear);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gb_ID, gb_bestelldatum, gb_b"& _ "estellNr, gb_adressNr, gb_transactionTyp, gb_company1, gb_company2, gb_companySt"& _ "reet, gb_companyStreetNr, gb_companyPostalcode, gb_companyCity, gb_companyCountr"& _ "y, gb_companyCountryISO, gb_companyTel, gb_companyFax, gb_salutation, gb_title, "& _ "gb_firstname, gb_lastname, gb_email, gb_personLanguage, gb_licensePlate, gb_lice"& _ "nsePlateNat, gb_vehicleTyp, gb_Axles, gb_CardNum, gb_CardValidMonth, gb_CardVali"& _ "dYear FROM tblGOBOXBestellungen WHERE (gb_ID = @gb_ID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_bestelldatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestelldatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_bestellNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestellNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_adressNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_adressNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_transactionTyp", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_transactionTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_company1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_company2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyStreet", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyStreetNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreetNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyPostalcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyPostalcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyCity", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCity", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyCountry", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyCountryISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountryISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyTel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyTel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyFax", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyFax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_salutation", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_salutation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_title", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_title", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_firstname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firstname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_lastname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_lastname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_email", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_personLanguage", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_personLanguage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_licensePlate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_licensePlateNat", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlateNat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_vehicleTyp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_vehicleTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_Axles", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_Axles", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_CardNum", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardNum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_CardValidMonth", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidMonth", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_CardValidYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidYear", 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].[tblGOBOXBestellungen] SET [gb_ID] = @gb_ID, [gb_bestelldatum] = @gb"& _ "_bestelldatum, [gb_bestellNr] = @gb_bestellNr, [gb_adressNr] = @gb_adressNr, [gb"& _ "_transactionTyp] = @gb_transactionTyp, [gb_company1] = @gb_company1, [gb_company"& _ "2] = @gb_company2, [gb_companyStreet] = @gb_companyStreet, [gb_companyStreetNr] "& _ "= @gb_companyStreetNr, [gb_companyPostalcode] = @gb_companyPostalcode, [gb_compa"& _ "nyCity] = @gb_companyCity, [gb_companyCountry] = @gb_companyCountry, [gb_company"& _ "CountryISO] = @gb_companyCountryISO, [gb_companyTel] = @gb_companyTel, [gb_compa"& _ "nyFax] = @gb_companyFax, [gb_salutation] = @gb_salutation, [gb_title] = @gb_titl"& _ "e, [gb_firstname] = @gb_firstname, [gb_lastname] = @gb_lastname, [gb_email] = @g"& _ "b_email, [gb_personLanguage] = @gb_personLanguage, [gb_licensePlate] = @gb_licen"& _ "sePlate, [gb_licensePlateNat] = @gb_licensePlateNat, [gb_vehicleTyp] = @gb_vehic"& _ "leTyp, [gb_Axles] = @gb_Axles, [gb_CardNum] = @gb_CardNum, [gb_CardValidMonth] ="& _ " @gb_CardValidMonth, [gb_CardValidYear] = @gb_CardValidYear WHERE (([gb_ID] = @O"& _ "riginal_gb_ID) AND ((@IsNull_gb_bestelldatum = 1 AND [gb_bestelldatum] IS NULL) "& _ "OR ([gb_bestelldatum] = @Original_gb_bestelldatum)) AND ((@IsNull_gb_bestellNr ="& _ " 1 AND [gb_bestellNr] IS NULL) OR ([gb_bestellNr] = @Original_gb_bestellNr)) AND"& _ " ((@IsNull_gb_adressNr = 1 AND [gb_adressNr] IS NULL) OR ([gb_adressNr] = @Origi"& _ "nal_gb_adressNr)) AND ((@IsNull_gb_transactionTyp = 1 AND [gb_transactionTyp] IS"& _ " NULL) OR ([gb_transactionTyp] = @Original_gb_transactionTyp)) AND ((@IsNull_gb_"& _ "company1 = 1 AND [gb_company1] IS NULL) OR ([gb_company1] = @Original_gb_company"& _ "1)) AND ((@IsNull_gb_company2 = 1 AND [gb_company2] IS NULL) OR ([gb_company2] ="& _ " @Original_gb_company2)) AND ((@IsNull_gb_companyStreet = 1 AND [gb_companyStree"& _ "t] IS NULL) OR ([gb_companyStreet] = @Original_gb_companyStreet)) AND ((@IsNull_"& _ "gb_companyStreetNr = 1 AND [gb_companyStreetNr] IS NULL) OR ([gb_companyStreetNr"& _ "] = @Original_gb_companyStreetNr)) AND ((@IsNull_gb_companyPostalcode = 1 AND [g"& _ "b_companyPostalcode] IS NULL) OR ([gb_companyPostalcode] = @Original_gb_companyP"& _ "ostalcode)) AND ((@IsNull_gb_companyCity = 1 AND [gb_companyCity] IS NULL) OR (["& _ "gb_companyCity] = @Original_gb_companyCity)) AND ((@IsNull_gb_companyCountry = 1"& _ " AND [gb_companyCountry] IS NULL) OR ([gb_companyCountry] = @Original_gb_company"& _ "Country)) AND ((@IsNull_gb_companyCountryISO = 1 AND [gb_companyCountryISO] IS N"& _ "ULL) OR ([gb_companyCountryISO] = @Original_gb_companyCountryISO)) AND ((@IsNull"& _ "_gb_companyTel = 1 AND [gb_companyTel] IS NULL) OR ([gb_companyTel] = @Original_"& _ "gb_companyTel)) AND ((@IsNull_gb_companyFax = 1 AND [gb_companyFax] IS NULL) OR "& _ "([gb_companyFax] = @Original_gb_companyFax)) AND ((@IsNull_gb_salutation = 1 AND"& _ " [gb_salutation] IS NULL) OR ([gb_salutation] = @Original_gb_salutation)) AND (("& _ "@IsNull_gb_title = 1 AND [gb_title] IS NULL) OR ([gb_title] = @Original_gb_title"& _ ")) AND ((@IsNull_gb_firstname = 1 AND [gb_firstname] IS NULL) OR ([gb_firstname]"& _ " = @Original_gb_firstname)) AND ((@IsNull_gb_lastname = 1 AND [gb_lastname] IS N"& _ "ULL) OR ([gb_lastname] = @Original_gb_lastname)) AND ((@IsNull_gb_email = 1 AND "& _ "[gb_email] IS NULL) OR ([gb_email] = @Original_gb_email)) AND ((@IsNull_gb_perso"& _ "nLanguage = 1 AND [gb_personLanguage] IS NULL) OR ([gb_personLanguage] = @Origin"& _ "al_gb_personLanguage)) AND ((@IsNull_gb_licensePlate = 1 AND [gb_licensePlate] I"& _ "S NULL) OR ([gb_licensePlate] = @Original_gb_licensePlate)) AND ((@IsNull_gb_lic"& _ "ensePlateNat = 1 AND [gb_licensePlateNat] IS NULL) OR ([gb_licensePlateNat] = @O"& _ "riginal_gb_licensePlateNat)) AND ((@IsNull_gb_vehicleTyp = 1 AND [gb_vehicleTyp]"& _ " IS NULL) OR ([gb_vehicleTyp] = @Original_gb_vehicleTyp)) AND ((@IsNull_gb_Axles"& _ " = 1 AND [gb_Axles] IS NULL) OR ([gb_Axles] = @Original_gb_Axles)) AND ((@IsNull"& _ "_gb_CardNum = 1 AND [gb_CardNum] IS NULL) OR ([gb_CardNum] = @Original_gb_CardNu"& _ "m)) AND ((@IsNull_gb_CardValidMonth = 1 AND [gb_CardValidMonth] IS NULL) OR ([gb"& _ "_CardValidMonth] = @Original_gb_CardValidMonth)) AND ((@IsNull_gb_CardValidYear "& _ "= 1 AND [gb_CardValidYear] IS NULL) OR ([gb_CardValidYear] = @Original_gb_CardVa"& _ "lidYear)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gb_ID, gb_bestelldatum, gb_bestellNr, gb_adressNr, gb_transa"& _ "ctionTyp, gb_company1, gb_company2, gb_companyStreet, gb_companyStreetNr, gb_com"& _ "panyPostalcode, gb_companyCity, gb_companyCountry, gb_companyCountryISO, gb_comp"& _ "anyTel, gb_companyFax, gb_salutation, gb_title, gb_firstname, gb_lastname, gb_em"& _ "ail, gb_personLanguage, gb_licensePlate, gb_licensePlateNat, gb_vehicleTyp, gb_A"& _ "xles, gb_CardNum, gb_CardValidMonth, gb_CardValidYear FROM tblGOBOXBestellungen "& _ "WHERE (gb_ID = @gb_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_bestelldatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestelldatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_bestellNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestellNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_adressNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_adressNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_transactionTyp", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_transactionTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_company1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_company2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyStreet", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyStreetNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreetNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyPostalcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyPostalcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyCity", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCity", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyCountry", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyCountryISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountryISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyTel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyTel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_companyFax", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyFax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_salutation", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_salutation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_title", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_title", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_firstname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firstname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_lastname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_lastname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_email", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_personLanguage", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_personLanguage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_licensePlate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_licensePlateNat", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlateNat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_vehicleTyp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_vehicleTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_Axles", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_Axles", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_CardNum", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardNum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_CardValidMonth", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidMonth", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gb_CardValidYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidYear", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_bestelldatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestelldatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_bestelldatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestelldatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_bestellNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestellNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_bestellNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_bestellNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_adressNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_adressNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_adressNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_adressNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_transactionTyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_transactionTyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_transactionTyp", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_transactionTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_company1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_company1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_company2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_company2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_company2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyStreet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyStreet", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyStreetNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreetNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyStreetNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyStreetNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyPostalcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyPostalcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyPostalcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyPostalcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyCity", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCity", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyCity", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCity", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyCountry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyCountry", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyCountryISO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountryISO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyCountryISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyCountryISO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyTel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyTel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyTel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyTel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_companyFax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyFax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_companyFax", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_companyFax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_salutation", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_salutation", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_salutation", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_salutation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_title", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_title", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_title", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_title", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_firstname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firstname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_firstname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_firstname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_lastname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_lastname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_lastname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_lastname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_email", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_email", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_email", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_personLanguage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_personLanguage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_personLanguage", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_personLanguage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_licensePlate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_licensePlate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_licensePlateNat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlateNat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_licensePlateNat", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_licensePlateNat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_vehicleTyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_vehicleTyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_vehicleTyp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_vehicleTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_Axles", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_Axles", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_Axles", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_Axles", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_CardNum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardNum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_CardNum", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardNum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_CardValidMonth", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidMonth", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_CardValidMonth", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidMonth", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gb_CardValidYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidYear", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gb_CardValidYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gb_CardValidYear", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 gb_ID, gb_bestelldatum, gb_bestellNr, gb_adressNr, gb_transactionTyp, gb_c"& _ "ompany1, gb_company2, gb_companyStreet, gb_companyStreetNr, gb_companyPostalcode"& _ ", gb_companyCity, gb_companyCountry, gb_companyCountryISO, gb_companyTel, gb_com"& _ "panyFax, gb_salutation, gb_title, gb_firstname, gb_lastname, gb_email, gb_person"& _ "Language, gb_licensePlate, gb_licensePlateNat, gb_vehicleTyp, gb_Axles, gb_CardN"& _ "um, gb_CardValidMonth, gb_CardValidYear FROM dbo.tblGOBOXBestellungen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGOBOXBestellungenDataTable) 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 VERAGDataSet.tblGOBOXBestellungenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGOBOXBestellungenDataTable = New VERAGDataSet.tblGOBOXBestellungenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGOBOXBestellungenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGOBOXBestellungen") 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_gb_ID As Integer, _ ByVal Original_gb_bestelldatum As Global.System.Nullable(Of Date), _ ByVal Original_gb_bestellNr As Global.System.Nullable(Of Integer), _ ByVal Original_gb_adressNr As Global.System.Nullable(Of Integer), _ ByVal Original_gb_transactionTyp As String, _ ByVal Original_gb_company1 As String, _ ByVal Original_gb_company2 As String, _ ByVal Original_gb_companyStreet As String, _ ByVal Original_gb_companyStreetNr As String, _ ByVal Original_gb_companyPostalcode As String, _ ByVal Original_gb_companyCity As String, _ ByVal Original_gb_companyCountry As String, _ ByVal Original_gb_companyCountryISO As String, _ ByVal Original_gb_companyTel As String, _ ByVal Original_gb_companyFax As String, _ ByVal Original_gb_salutation As String, _ ByVal Original_gb_title As String, _ ByVal Original_gb_firstname As String, _ ByVal Original_gb_lastname As String, _ ByVal Original_gb_email As String, _ ByVal Original_gb_personLanguage As String, _ ByVal Original_gb_licensePlate As String, _ ByVal Original_gb_licensePlateNat As String, _ ByVal Original_gb_vehicleTyp As String, _ ByVal Original_gb_Axles As Global.System.Nullable(Of Integer), _ ByVal Original_gb_CardNum As String, _ ByVal Original_gb_CardValidMonth As Global.System.Nullable(Of Integer), _ ByVal Original_gb_CardValidYear As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_gb_ID,Integer) If (Original_gb_bestelldatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_gb_bestelldatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Original_gb_bestellNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_gb_bestellNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_gb_adressNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_gb_adressNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_gb_transactionTyp 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_gb_transactionTyp,String) End If If (Original_gb_company1 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_gb_company1,String) End If If (Original_gb_company2 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_gb_company2,String) End If If (Original_gb_companyStreet 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_gb_companyStreet,String) End If If (Original_gb_companyStreetNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_gb_companyStreetNr,String) End If If (Original_gb_companyPostalcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_gb_companyPostalcode,String) End If If (Original_gb_companyCity Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_gb_companyCity,String) End If If (Original_gb_companyCountry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_gb_companyCountry,String) End If If (Original_gb_companyCountryISO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_gb_companyCountryISO,String) End If If (Original_gb_companyTel Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_gb_companyTel,String) End If If (Original_gb_companyFax Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_gb_companyFax,String) End If If (Original_gb_salutation Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_gb_salutation,String) End If If (Original_gb_title Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_gb_title,String) End If If (Original_gb_firstname Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_gb_firstname,String) End If If (Original_gb_lastname Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_gb_lastname,String) End If If (Original_gb_email Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_gb_email,String) End If If (Original_gb_personLanguage Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_gb_personLanguage,String) End If If (Original_gb_licensePlate Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_gb_licensePlate,String) End If If (Original_gb_licensePlateNat Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_gb_licensePlateNat,String) End If If (Original_gb_vehicleTyp Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_gb_vehicleTyp,String) End If If (Original_gb_Axles.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_gb_Axles.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Original_gb_CardNum Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_gb_CardNum,String) End If If (Original_gb_CardValidMonth.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_gb_CardValidMonth.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Original_gb_CardValidYear.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_gb_CardValidYear.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).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 gb_ID As Integer, _ ByVal gb_bestelldatum As Global.System.Nullable(Of Date), _ ByVal gb_bestellNr As Global.System.Nullable(Of Integer), _ ByVal gb_adressNr As Global.System.Nullable(Of Integer), _ ByVal gb_transactionTyp As String, _ ByVal gb_company1 As String, _ ByVal gb_company2 As String, _ ByVal gb_companyStreet As String, _ ByVal gb_companyStreetNr As String, _ ByVal gb_companyPostalcode As String, _ ByVal gb_companyCity As String, _ ByVal gb_companyCountry As String, _ ByVal gb_companyCountryISO As String, _ ByVal gb_companyTel As String, _ ByVal gb_companyFax As String, _ ByVal gb_salutation As String, _ ByVal gb_title As String, _ ByVal gb_firstname As String, _ ByVal gb_lastname As String, _ ByVal gb_email As String, _ ByVal gb_personLanguage As String, _ ByVal gb_licensePlate As String, _ ByVal gb_licensePlateNat As String, _ ByVal gb_vehicleTyp As String, _ ByVal gb_Axles As Global.System.Nullable(Of Integer), _ ByVal gb_CardNum As String, _ ByVal gb_CardValidMonth As Global.System.Nullable(Of Integer), _ ByVal gb_CardValidYear As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(gb_ID,Integer) If (gb_bestelldatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(gb_bestelldatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (gb_bestellNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(gb_bestellNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (gb_adressNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(gb_adressNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (gb_transactionTyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(gb_transactionTyp,String) End If If (gb_company1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(gb_company1,String) End If If (gb_company2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(gb_company2,String) End If If (gb_companyStreet Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(gb_companyStreet,String) End If If (gb_companyStreetNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(gb_companyStreetNr,String) End If If (gb_companyPostalcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(gb_companyPostalcode,String) End If If (gb_companyCity Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(gb_companyCity,String) End If If (gb_companyCountry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(gb_companyCountry,String) End If If (gb_companyCountryISO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(gb_companyCountryISO,String) End If If (gb_companyTel Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(gb_companyTel,String) End If If (gb_companyFax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(gb_companyFax,String) End If If (gb_salutation Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(gb_salutation,String) End If If (gb_title Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(gb_title,String) End If If (gb_firstname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(gb_firstname,String) End If If (gb_lastname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(gb_lastname,String) End If If (gb_email Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(gb_email,String) End If If (gb_personLanguage Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(gb_personLanguage,String) End If If (gb_licensePlate Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(gb_licensePlate,String) End If If (gb_licensePlateNat Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(gb_licensePlateNat,String) End If If (gb_vehicleTyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(gb_vehicleTyp,String) End If If (gb_Axles.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(gb_Axles.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (gb_CardNum Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(gb_CardNum,String) End If If (gb_CardValidMonth.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(gb_CardValidMonth.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (gb_CardValidYear.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(gb_CardValidYear.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(27).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 gb_ID As Integer, _ ByVal gb_bestelldatum As Global.System.Nullable(Of Date), _ ByVal gb_bestellNr As Global.System.Nullable(Of Integer), _ ByVal gb_adressNr As Global.System.Nullable(Of Integer), _ ByVal gb_transactionTyp As String, _ ByVal gb_company1 As String, _ ByVal gb_company2 As String, _ ByVal gb_companyStreet As String, _ ByVal gb_companyStreetNr As String, _ ByVal gb_companyPostalcode As String, _ ByVal gb_companyCity As String, _ ByVal gb_companyCountry As String, _ ByVal gb_companyCountryISO As String, _ ByVal gb_companyTel As String, _ ByVal gb_companyFax As String, _ ByVal gb_salutation As String, _ ByVal gb_title As String, _ ByVal gb_firstname As String, _ ByVal gb_lastname As String, _ ByVal gb_email As String, _ ByVal gb_personLanguage As String, _ ByVal gb_licensePlate As String, _ ByVal gb_licensePlateNat As String, _ ByVal gb_vehicleTyp As String, _ ByVal gb_Axles As Global.System.Nullable(Of Integer), _ ByVal gb_CardNum As String, _ ByVal gb_CardValidMonth As Global.System.Nullable(Of Integer), _ ByVal gb_CardValidYear As Global.System.Nullable(Of Integer), _ ByVal Original_gb_ID As Integer, _ ByVal Original_gb_bestelldatum As Global.System.Nullable(Of Date), _ ByVal Original_gb_bestellNr As Global.System.Nullable(Of Integer), _ ByVal Original_gb_adressNr As Global.System.Nullable(Of Integer), _ ByVal Original_gb_transactionTyp As String, _ ByVal Original_gb_company1 As String, _ ByVal Original_gb_company2 As String, _ ByVal Original_gb_companyStreet As String, _ ByVal Original_gb_companyStreetNr As String, _ ByVal Original_gb_companyPostalcode As String, _ ByVal Original_gb_companyCity As String, _ ByVal Original_gb_companyCountry As String, _ ByVal Original_gb_companyCountryISO As String, _ ByVal Original_gb_companyTel As String, _ ByVal Original_gb_companyFax As String, _ ByVal Original_gb_salutation As String, _ ByVal Original_gb_title As String, _ ByVal Original_gb_firstname As String, _ ByVal Original_gb_lastname As String, _ ByVal Original_gb_email As String, _ ByVal Original_gb_personLanguage As String, _ ByVal Original_gb_licensePlate As String, _ ByVal Original_gb_licensePlateNat As String, _ ByVal Original_gb_vehicleTyp As String, _ ByVal Original_gb_Axles As Global.System.Nullable(Of Integer), _ ByVal Original_gb_CardNum As String, _ ByVal Original_gb_CardValidMonth As Global.System.Nullable(Of Integer), _ ByVal Original_gb_CardValidYear As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(gb_ID,Integer) If (gb_bestelldatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(gb_bestelldatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (gb_bestellNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(gb_bestellNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (gb_adressNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(gb_adressNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (gb_transactionTyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(gb_transactionTyp,String) End If If (gb_company1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(gb_company1,String) End If If (gb_company2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(gb_company2,String) End If If (gb_companyStreet Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(gb_companyStreet,String) End If If (gb_companyStreetNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(gb_companyStreetNr,String) End If If (gb_companyPostalcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(gb_companyPostalcode,String) End If If (gb_companyCity Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(gb_companyCity,String) End If If (gb_companyCountry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(gb_companyCountry,String) End If If (gb_companyCountryISO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(gb_companyCountryISO,String) End If If (gb_companyTel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(gb_companyTel,String) End If If (gb_companyFax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(gb_companyFax,String) End If If (gb_salutation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(gb_salutation,String) End If If (gb_title Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(gb_title,String) End If If (gb_firstname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(gb_firstname,String) End If If (gb_lastname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(gb_lastname,String) End If If (gb_email Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(gb_email,String) End If If (gb_personLanguage Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(gb_personLanguage,String) End If If (gb_licensePlate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(gb_licensePlate,String) End If If (gb_licensePlateNat Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(gb_licensePlateNat,String) End If If (gb_vehicleTyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(gb_vehicleTyp,String) End If If (gb_Axles.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(gb_Axles.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (gb_CardNum Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(gb_CardNum,String) End If If (gb_CardValidMonth.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(gb_CardValidMonth.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (gb_CardValidYear.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(gb_CardValidYear.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_gb_ID,Integer) If (Original_gb_bestelldatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_gb_bestelldatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_gb_bestellNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_gb_bestellNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_gb_adressNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_gb_adressNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_gb_transactionTyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_gb_transactionTyp,String) End If If (Original_gb_company1 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_gb_company1,String) End If If (Original_gb_company2 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_gb_company2,String) End If If (Original_gb_companyStreet 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_gb_companyStreet,String) End If If (Original_gb_companyStreetNr 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_gb_companyStreetNr,String) End If If (Original_gb_companyPostalcode 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_gb_companyPostalcode,String) End If If (Original_gb_companyCity 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_gb_companyCity,String) End If If (Original_gb_companyCountry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_gb_companyCountry,String) End If If (Original_gb_companyCountryISO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_gb_companyCountryISO,String) End If If (Original_gb_companyTel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_gb_companyTel,String) End If If (Original_gb_companyFax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_gb_companyFax,String) End If If (Original_gb_salutation Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_gb_salutation,String) End If If (Original_gb_title Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_gb_title,String) End If If (Original_gb_firstname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_gb_firstname,String) End If If (Original_gb_lastname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_gb_lastname,String) End If If (Original_gb_email Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_gb_email,String) End If If (Original_gb_personLanguage Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_gb_personLanguage,String) End If If (Original_gb_licensePlate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_gb_licensePlate,String) End If If (Original_gb_licensePlateNat Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_gb_licensePlateNat,String) End If If (Original_gb_vehicleTyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_gb_vehicleTyp,String) End If If (Original_gb_Axles.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_gb_Axles.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (Original_gb_CardNum Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_gb_CardNum,String) End If If (Original_gb_CardValidMonth.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_gb_CardValidMonth.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value End If If (Original_gb_CardValidYear.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_gb_CardValidYear.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value End If 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 gb_bestelldatum As Global.System.Nullable(Of Date), _ ByVal gb_bestellNr As Global.System.Nullable(Of Integer), _ ByVal gb_adressNr As Global.System.Nullable(Of Integer), _ ByVal gb_transactionTyp As String, _ ByVal gb_company1 As String, _ ByVal gb_company2 As String, _ ByVal gb_companyStreet As String, _ ByVal gb_companyStreetNr As String, _ ByVal gb_companyPostalcode As String, _ ByVal gb_companyCity As String, _ ByVal gb_companyCountry As String, _ ByVal gb_companyCountryISO As String, _ ByVal gb_companyTel As String, _ ByVal gb_companyFax As String, _ ByVal gb_salutation As String, _ ByVal gb_title As String, _ ByVal gb_firstname As String, _ ByVal gb_lastname As String, _ ByVal gb_email As String, _ ByVal gb_personLanguage As String, _ ByVal gb_licensePlate As String, _ ByVal gb_licensePlateNat As String, _ ByVal gb_vehicleTyp As String, _ ByVal gb_Axles As Global.System.Nullable(Of Integer), _ ByVal gb_CardNum As String, _ ByVal gb_CardValidMonth As Global.System.Nullable(Of Integer), _ ByVal gb_CardValidYear As Global.System.Nullable(Of Integer), _ ByVal Original_gb_ID As Integer, _ ByVal Original_gb_bestelldatum As Global.System.Nullable(Of Date), _ ByVal Original_gb_bestellNr As Global.System.Nullable(Of Integer), _ ByVal Original_gb_adressNr As Global.System.Nullable(Of Integer), _ ByVal Original_gb_transactionTyp As String, _ ByVal Original_gb_company1 As String, _ ByVal Original_gb_company2 As String, _ ByVal Original_gb_companyStreet As String, _ ByVal Original_gb_companyStreetNr As String, _ ByVal Original_gb_companyPostalcode As String, _ ByVal Original_gb_companyCity As String, _ ByVal Original_gb_companyCountry As String, _ ByVal Original_gb_companyCountryISO As String, _ ByVal Original_gb_companyTel As String, _ ByVal Original_gb_companyFax As String, _ ByVal Original_gb_salutation As String, _ ByVal Original_gb_title As String, _ ByVal Original_gb_firstname As String, _ ByVal Original_gb_lastname As String, _ ByVal Original_gb_email As String, _ ByVal Original_gb_personLanguage As String, _ ByVal Original_gb_licensePlate As String, _ ByVal Original_gb_licensePlateNat As String, _ ByVal Original_gb_vehicleTyp As String, _ ByVal Original_gb_Axles As Global.System.Nullable(Of Integer), _ ByVal Original_gb_CardNum As String, _ ByVal Original_gb_CardValidMonth As Global.System.Nullable(Of Integer), _ ByVal Original_gb_CardValidYear As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(Original_gb_ID, gb_bestelldatum, gb_bestellNr, gb_adressNr, gb_transactionTyp, gb_company1, gb_company2, gb_companyStreet, gb_companyStreetNr, gb_companyPostalcode, gb_companyCity, gb_companyCountry, gb_companyCountryISO, gb_companyTel, gb_companyFax, gb_salutation, gb_title, gb_firstname, gb_lastname, gb_email, gb_personLanguage, gb_licensePlate, gb_licensePlateNat, gb_vehicleTyp, gb_Axles, gb_CardNum, gb_CardValidMonth, gb_CardValidYear, Original_gb_ID, Original_gb_bestelldatum, Original_gb_bestellNr, Original_gb_adressNr, Original_gb_transactionTyp, Original_gb_company1, Original_gb_company2, Original_gb_companyStreet, Original_gb_companyStreetNr, Original_gb_companyPostalcode, Original_gb_companyCity, Original_gb_companyCountry, Original_gb_companyCountryISO, Original_gb_companyTel, Original_gb_companyFax, Original_gb_salutation, Original_gb_title, Original_gb_firstname, Original_gb_lastname, Original_gb_email, Original_gb_personLanguage, Original_gb_licensePlate, Original_gb_licensePlateNat, Original_gb_vehicleTyp, Original_gb_Axles, Original_gb_CardNum, Original_gb_CardValidMonth, Original_gb_CardValidYear) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGVMSTableAdapter 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 = "tblGVMS" tableMapping.ColumnMappings.Add("gvms_id", "gvms_id") tableMapping.ColumnMappings.Add("gvms_datetime", "gvms_datetime") tableMapping.ColumnMappings.Add("gvms_firma", "gvms_firma") tableMapping.ColumnMappings.Add("gvms_notification_id", "gvms_notification_id") tableMapping.ColumnMappings.Add("gvms_notification_boxid", "gvms_notification_boxid") tableMapping.ColumnMappings.Add("gvms_status", "gvms_status") tableMapping.ColumnMappings.Add("gvms_GMR", "gvms_GMR") tableMapping.ColumnMappings.Add("gvms_gmr_creationDate", "gvms_gmr_creationDate") tableMapping.ColumnMappings.Add("gvms_gmr_statusVersion", "gvms_gmr_statusVersion") tableMapping.ColumnMappings.Add("gvms_routeId", "gvms_routeId") tableMapping.ColumnMappings.Add("gvms_direction", "gvms_direction") tableMapping.ColumnMappings.Add("gvms_vehicleRegNum", "gvms_vehicleRegNum") tableMapping.ColumnMappings.Add("gvms_trailorRegNum", "gvms_trailorRegNum") tableMapping.ColumnMappings.Add("gvms_isUnaccompanied", "gvms_isUnaccompanied") tableMapping.ColumnMappings.Add("gvms_empty", "gvms_empty") tableMapping.ColumnMappings.Add("gvms_emptyisOwn", "gvms_emptyisOwn") tableMapping.ColumnMappings.Add("gvms_locateDateTimeOfDeparture", "gvms_locateDateTimeOfDeparture") tableMapping.ColumnMappings.Add("gvms_SS", "gvms_SS") 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].[tblGVMS] WHERE (([gvms_id] = @Original_gvms_id) AND ([gvms_dat"& _ "etime] = @Original_gvms_datetime) AND ([gvms_firma] = @Original_gvms_firma) AND "& _ "((@IsNull_gvms_notification_id = 1 AND [gvms_notification_id] IS NULL) OR ([gvms"& _ "_notification_id] = @Original_gvms_notification_id)) AND ((@IsNull_gvms_notifica"& _ "tion_boxid = 1 AND [gvms_notification_boxid] IS NULL) OR ([gvms_notification_box"& _ "id] = @Original_gvms_notification_boxid)) AND ((@IsNull_gvms_status = 1 AND [gvm"& _ "s_status] IS NULL) OR ([gvms_status] = @Original_gvms_status)) AND ((@IsNull_gvm"& _ "s_GMR = 1 AND [gvms_GMR] IS NULL) OR ([gvms_GMR] = @Original_gvms_GMR)) AND ((@I"& _ "sNull_gvms_gmr_creationDate = 1 AND [gvms_gmr_creationDate] IS NULL) OR ([gvms_g"& _ "mr_creationDate] = @Original_gvms_gmr_creationDate)) AND ((@IsNull_gvms_gmr_stat"& _ "usVersion = 1 AND [gvms_gmr_statusVersion] IS NULL) OR ([gvms_gmr_statusVersion]"& _ " = @Original_gvms_gmr_statusVersion)) AND ([gvms_routeId] = @Original_gvms_route"& _ "Id) AND ([gvms_direction] = @Original_gvms_direction) AND ((@IsNull_gvms_vehicle"& _ "RegNum = 1 AND [gvms_vehicleRegNum] IS NULL) OR ([gvms_vehicleRegNum] = @Origina"& _ "l_gvms_vehicleRegNum)) AND ((@IsNull_gvms_trailorRegNum = 1 AND [gvms_trailorReg"& _ "Num] IS NULL) OR ([gvms_trailorRegNum] = @Original_gvms_trailorRegNum)) AND ((@I"& _ "sNull_gvms_isUnaccompanied = 1 AND [gvms_isUnaccompanied] IS NULL) OR ([gvms_isU"& _ "naccompanied] = @Original_gvms_isUnaccompanied)) AND ((@IsNull_gvms_empty = 1 AN"& _ "D [gvms_empty] IS NULL) OR ([gvms_empty] = @Original_gvms_empty)) AND ((@IsNull_"& _ "gvms_emptyisOwn = 1 AND [gvms_emptyisOwn] IS NULL) OR ([gvms_emptyisOwn] = @Orig"& _ "inal_gvms_emptyisOwn)) AND ((@IsNull_gvms_locateDateTimeOfDeparture = 1 AND [gvm"& _ "s_locateDateTimeOfDeparture] IS NULL) OR ([gvms_locateDateTimeOfDeparture] = @Or"& _ "iginal_gvms_locateDateTimeOfDeparture)) AND ((@IsNull_gvms_SS = 1 AND [gvms_SS] "& _ "IS NULL) OR ([gvms_SS] = @Original_gvms_SS)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_notification_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_notification_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_notification_boxid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_boxid", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_notification_boxid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_boxid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_GMR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_GMR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_GMR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_GMR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_gmr_creationDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_creationDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_gmr_creationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_creationDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_gmr_statusVersion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_statusVersion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_gmr_statusVersion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_statusVersion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_routeId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_routeId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_direction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_direction", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_vehicleRegNum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_vehicleRegNum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_vehicleRegNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_vehicleRegNum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_trailorRegNum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_trailorRegNum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_trailorRegNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_trailorRegNum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_isUnaccompanied", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_isUnaccompanied", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_isUnaccompanied", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_isUnaccompanied", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_empty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_empty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_empty", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_empty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_emptyisOwn", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_emptyisOwn", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_emptyisOwn", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_emptyisOwn", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_locateDateTimeOfDeparture", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_locateDateTimeOfDeparture", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_locateDateTimeOfDeparture", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_locateDateTimeOfDeparture", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_SS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_SS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", 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].[tblGVMS] ([gvms_datetime], [gvms_firma], [gvms_notification_id"& _ "], [gvms_notification_boxid], [gvms_status], [gvms_GMR], [gvms_gmr_creationDate]"& _ ", [gvms_gmr_statusVersion], [gvms_routeId], [gvms_direction], [gvms_vehicleRegNu"& _ "m], [gvms_trailorRegNum], [gvms_isUnaccompanied], [gvms_empty], [gvms_emptyisOwn"& _ "], [gvms_locateDateTimeOfDeparture], [gvms_SS]) VALUES (@gvms_datetime, @gvms_fi"& _ "rma, @gvms_notification_id, @gvms_notification_boxid, @gvms_status, @gvms_GMR, @"& _ "gvms_gmr_creationDate, @gvms_gmr_statusVersion, @gvms_routeId, @gvms_direction, "& _ "@gvms_vehicleRegNum, @gvms_trailorRegNum, @gvms_isUnaccompanied, @gvms_empty, @g"& _ "vms_emptyisOwn, @gvms_locateDateTimeOfDeparture, @gvms_SS);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gvms_id, gvm"& _ "s_datetime, gvms_firma, gvms_notification_id, gvms_notification_boxid, gvms_stat"& _ "us, gvms_GMR, gvms_gmr_creationDate, gvms_gmr_statusVersion, gvms_routeId, gvms_"& _ "direction, gvms_vehicleRegNum, gvms_trailorRegNum, gvms_isUnaccompanied, gvms_em"& _ "pty, gvms_emptyisOwn, gvms_locateDateTimeOfDeparture, gvms_SS FROM tblGVMS WHERE"& _ " (gvms_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_notification_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_notification_boxid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_boxid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_GMR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_GMR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_gmr_creationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_creationDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_gmr_statusVersion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_statusVersion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_routeId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_routeId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_direction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_direction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_vehicleRegNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_vehicleRegNum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_trailorRegNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_trailorRegNum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_isUnaccompanied", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_isUnaccompanied", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_empty", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_empty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_emptyisOwn", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_emptyisOwn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_locateDateTimeOfDeparture", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_locateDateTimeOfDeparture", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_SS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", 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].[tblGVMS] SET [gvms_datetime] = @gvms_datetime, [gvms_firma] = @gvms"& _ "_firma, [gvms_notification_id] = @gvms_notification_id, [gvms_notification_boxid"& _ "] = @gvms_notification_boxid, [gvms_status] = @gvms_status, [gvms_GMR] = @gvms_G"& _ "MR, [gvms_gmr_creationDate] = @gvms_gmr_creationDate, [gvms_gmr_statusVersion] ="& _ " @gvms_gmr_statusVersion, [gvms_routeId] = @gvms_routeId, [gvms_direction] = @gv"& _ "ms_direction, [gvms_vehicleRegNum] = @gvms_vehicleRegNum, [gvms_trailorRegNum] ="& _ " @gvms_trailorRegNum, [gvms_isUnaccompanied] = @gvms_isUnaccompanied, [gvms_empt"& _ "y] = @gvms_empty, [gvms_emptyisOwn] = @gvms_emptyisOwn, [gvms_locateDateTimeOfDe"& _ "parture] = @gvms_locateDateTimeOfDeparture, [gvms_SS] = @gvms_SS WHERE (([gvms_i"& _ "d] = @Original_gvms_id) AND ([gvms_datetime] = @Original_gvms_datetime) AND ([gv"& _ "ms_firma] = @Original_gvms_firma) AND ((@IsNull_gvms_notification_id = 1 AND [gv"& _ "ms_notification_id] IS NULL) OR ([gvms_notification_id] = @Original_gvms_notific"& _ "ation_id)) AND ((@IsNull_gvms_notification_boxid = 1 AND [gvms_notification_boxi"& _ "d] IS NULL) OR ([gvms_notification_boxid] = @Original_gvms_notification_boxid)) "& _ "AND ((@IsNull_gvms_status = 1 AND [gvms_status] IS NULL) OR ([gvms_status] = @Or"& _ "iginal_gvms_status)) AND ((@IsNull_gvms_GMR = 1 AND [gvms_GMR] IS NULL) OR ([gvm"& _ "s_GMR] = @Original_gvms_GMR)) AND ((@IsNull_gvms_gmr_creationDate = 1 AND [gvms_"& _ "gmr_creationDate] IS NULL) OR ([gvms_gmr_creationDate] = @Original_gvms_gmr_crea"& _ "tionDate)) AND ((@IsNull_gvms_gmr_statusVersion = 1 AND [gvms_gmr_statusVersion]"& _ " IS NULL) OR ([gvms_gmr_statusVersion] = @Original_gvms_gmr_statusVersion)) AND "& _ "([gvms_routeId] = @Original_gvms_routeId) AND ([gvms_direction] = @Original_gvms"& _ "_direction) AND ((@IsNull_gvms_vehicleRegNum = 1 AND [gvms_vehicleRegNum] IS NUL"& _ "L) OR ([gvms_vehicleRegNum] = @Original_gvms_vehicleRegNum)) AND ((@IsNull_gvms_"& _ "trailorRegNum = 1 AND [gvms_trailorRegNum] IS NULL) OR ([gvms_trailorRegNum] = @"& _ "Original_gvms_trailorRegNum)) AND ((@IsNull_gvms_isUnaccompanied = 1 AND [gvms_i"& _ "sUnaccompanied] IS NULL) OR ([gvms_isUnaccompanied] = @Original_gvms_isUnaccompa"& _ "nied)) AND ((@IsNull_gvms_empty = 1 AND [gvms_empty] IS NULL) OR ([gvms_empty] ="& _ " @Original_gvms_empty)) AND ((@IsNull_gvms_emptyisOwn = 1 AND [gvms_emptyisOwn] "& _ "IS NULL) OR ([gvms_emptyisOwn] = @Original_gvms_emptyisOwn)) AND ((@IsNull_gvms_"& _ "locateDateTimeOfDeparture = 1 AND [gvms_locateDateTimeOfDeparture] IS NULL) OR ("& _ "[gvms_locateDateTimeOfDeparture] = @Original_gvms_locateDateTimeOfDeparture)) AN"& _ "D ((@IsNull_gvms_SS = 1 AND [gvms_SS] IS NULL) OR ([gvms_SS] = @Original_gvms_SS"& _ ")));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gvms_id, gvms_datetime, gvms_firma, gvms_notification_id, gvms_noti"& _ "fication_boxid, gvms_status, gvms_GMR, gvms_gmr_creationDate, gvms_gmr_statusVer"& _ "sion, gvms_routeId, gvms_direction, gvms_vehicleRegNum, gvms_trailorRegNum, gvms"& _ "_isUnaccompanied, gvms_empty, gvms_emptyisOwn, gvms_locateDateTimeOfDeparture, g"& _ "vms_SS FROM tblGVMS WHERE (gvms_id = @gvms_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_notification_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_notification_boxid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_boxid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_GMR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_GMR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_gmr_creationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_creationDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_gmr_statusVersion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_statusVersion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_routeId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_routeId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_direction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_direction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_vehicleRegNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_vehicleRegNum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_trailorRegNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_trailorRegNum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_isUnaccompanied", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_isUnaccompanied", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_empty", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_empty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_emptyisOwn", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_emptyisOwn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_locateDateTimeOfDeparture", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_locateDateTimeOfDeparture", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_SS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_notification_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_notification_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_notification_boxid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_boxid", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_notification_boxid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_notification_boxid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_GMR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_GMR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_GMR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_GMR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_gmr_creationDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_creationDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_gmr_creationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_creationDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_gmr_statusVersion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_statusVersion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_gmr_statusVersion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_gmr_statusVersion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_routeId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_routeId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_direction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_direction", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_vehicleRegNum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_vehicleRegNum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_vehicleRegNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_vehicleRegNum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_trailorRegNum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_trailorRegNum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_trailorRegNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_trailorRegNum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_isUnaccompanied", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_isUnaccompanied", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_isUnaccompanied", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_isUnaccompanied", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_empty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_empty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_empty", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_empty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_emptyisOwn", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_emptyisOwn", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_emptyisOwn", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_emptyisOwn", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_locateDateTimeOfDeparture", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_locateDateTimeOfDeparture", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_locateDateTimeOfDeparture", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_locateDateTimeOfDeparture", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_SS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_SS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 gvms_id, gvms_datetime, gvms_firma, gvms_notification_id, gvms_notificatio"& _ "n_boxid, gvms_status, gvms_GMR, gvms_gmr_creationDate, gvms_gmr_statusVersion, g"& _ "vms_routeId, gvms_direction, gvms_vehicleRegNum, gvms_trailorRegNum, gvms_isUnac"& _ "companied, gvms_empty, gvms_emptyisOwn, gvms_locateDateTimeOfDeparture, gvms_SS "& _ "FROM dbo.tblGVMS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGVMSDataTable) 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 VERAGDataSet.tblGVMSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGVMSDataTable = New VERAGDataSet.tblGVMSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGVMSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGVMS") 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_gvms_id As Integer, _ ByVal Original_gvms_datetime As Date, _ ByVal Original_gvms_firma As String, _ ByVal Original_gvms_notification_id As String, _ ByVal Original_gvms_notification_boxid As String, _ ByVal Original_gvms_status As String, _ ByVal Original_gvms_GMR As String, _ ByVal Original_gvms_gmr_creationDate As Global.System.Nullable(Of Date), _ ByVal Original_gvms_gmr_statusVersion As String, _ ByVal Original_gvms_routeId As Integer, _ ByVal Original_gvms_direction As String, _ ByVal Original_gvms_vehicleRegNum As String, _ ByVal Original_gvms_trailorRegNum As String, _ ByVal Original_gvms_isUnaccompanied As Global.System.Nullable(Of Boolean), _ ByVal Original_gvms_empty As Global.System.Nullable(Of Boolean), _ ByVal Original_gvms_emptyisOwn As Global.System.Nullable(Of Boolean), _ ByVal Original_gvms_locateDateTimeOfDeparture As Global.System.Nullable(Of Date), _ ByVal Original_gvms_SS As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_gvms_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_gvms_datetime,Date) If (Original_gvms_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gvms_firma") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_gvms_firma,String) End If If (Original_gvms_notification_id 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_gvms_notification_id,String) End If If (Original_gvms_notification_boxid 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_gvms_notification_boxid,String) End If If (Original_gvms_status 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_gvms_status,String) End If If (Original_gvms_GMR 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_gvms_GMR,String) End If If (Original_gvms_gmr_creationDate.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_gvms_gmr_creationDate.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_gvms_gmr_statusVersion 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_gvms_gmr_statusVersion,String) End If Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_gvms_routeId,Integer) If (Original_gvms_direction Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gvms_direction") Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_gvms_direction,String) End If If (Original_gvms_vehicleRegNum Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_gvms_vehicleRegNum,String) End If If (Original_gvms_trailorRegNum Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_gvms_trailorRegNum,String) End If If (Original_gvms_isUnaccompanied.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_gvms_isUnaccompanied.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Original_gvms_empty.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_gvms_empty.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_gvms_emptyisOwn.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_gvms_emptyisOwn.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_gvms_locateDateTimeOfDeparture.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_gvms_locateDateTimeOfDeparture.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_gvms_SS Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_gvms_SS,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 gvms_datetime As Date, _ ByVal gvms_firma As String, _ ByVal gvms_notification_id As String, _ ByVal gvms_notification_boxid As String, _ ByVal gvms_status As String, _ ByVal gvms_GMR As String, _ ByVal gvms_gmr_creationDate As Global.System.Nullable(Of Date), _ ByVal gvms_gmr_statusVersion As String, _ ByVal gvms_routeId As Integer, _ ByVal gvms_direction As String, _ ByVal gvms_vehicleRegNum As String, _ ByVal gvms_trailorRegNum As String, _ ByVal gvms_isUnaccompanied As Global.System.Nullable(Of Boolean), _ ByVal gvms_empty As Global.System.Nullable(Of Boolean), _ ByVal gvms_emptyisOwn As Global.System.Nullable(Of Boolean), _ ByVal gvms_locateDateTimeOfDeparture As Global.System.Nullable(Of Date), _ ByVal gvms_SS As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(gvms_datetime,Date) If (gvms_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("gvms_firma") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(gvms_firma,String) End If If (gvms_notification_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(gvms_notification_id,String) End If If (gvms_notification_boxid Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(gvms_notification_boxid,String) End If If (gvms_status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(gvms_status,String) End If If (gvms_GMR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(gvms_GMR,String) End If If (gvms_gmr_creationDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(gvms_gmr_creationDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (gvms_gmr_statusVersion Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(gvms_gmr_statusVersion,String) End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(gvms_routeId,Integer) If (gvms_direction Is Nothing) Then Throw New Global.System.ArgumentNullException("gvms_direction") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(gvms_direction,String) End If If (gvms_vehicleRegNum Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(gvms_vehicleRegNum,String) End If If (gvms_trailorRegNum Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(gvms_trailorRegNum,String) End If If (gvms_isUnaccompanied.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(gvms_isUnaccompanied.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (gvms_empty.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(gvms_empty.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (gvms_emptyisOwn.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(gvms_emptyisOwn.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (gvms_locateDateTimeOfDeparture.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(gvms_locateDateTimeOfDeparture.Value,Date) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (gvms_SS Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(gvms_SS,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 gvms_datetime As Date, _ ByVal gvms_firma As String, _ ByVal gvms_notification_id As String, _ ByVal gvms_notification_boxid As String, _ ByVal gvms_status As String, _ ByVal gvms_GMR As String, _ ByVal gvms_gmr_creationDate As Global.System.Nullable(Of Date), _ ByVal gvms_gmr_statusVersion As String, _ ByVal gvms_routeId As Integer, _ ByVal gvms_direction As String, _ ByVal gvms_vehicleRegNum As String, _ ByVal gvms_trailorRegNum As String, _ ByVal gvms_isUnaccompanied As Global.System.Nullable(Of Boolean), _ ByVal gvms_empty As Global.System.Nullable(Of Boolean), _ ByVal gvms_emptyisOwn As Global.System.Nullable(Of Boolean), _ ByVal gvms_locateDateTimeOfDeparture As Global.System.Nullable(Of Date), _ ByVal gvms_SS As String, _ ByVal Original_gvms_id As Integer, _ ByVal Original_gvms_datetime As Date, _ ByVal Original_gvms_firma As String, _ ByVal Original_gvms_notification_id As String, _ ByVal Original_gvms_notification_boxid As String, _ ByVal Original_gvms_status As String, _ ByVal Original_gvms_GMR As String, _ ByVal Original_gvms_gmr_creationDate As Global.System.Nullable(Of Date), _ ByVal Original_gvms_gmr_statusVersion As String, _ ByVal Original_gvms_routeId As Integer, _ ByVal Original_gvms_direction As String, _ ByVal Original_gvms_vehicleRegNum As String, _ ByVal Original_gvms_trailorRegNum As String, _ ByVal Original_gvms_isUnaccompanied As Global.System.Nullable(Of Boolean), _ ByVal Original_gvms_empty As Global.System.Nullable(Of Boolean), _ ByVal Original_gvms_emptyisOwn As Global.System.Nullable(Of Boolean), _ ByVal Original_gvms_locateDateTimeOfDeparture As Global.System.Nullable(Of Date), _ ByVal Original_gvms_SS As String, _ ByVal gvms_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(gvms_datetime,Date) If (gvms_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("gvms_firma") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(gvms_firma,String) End If If (gvms_notification_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(gvms_notification_id,String) End If If (gvms_notification_boxid Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(gvms_notification_boxid,String) End If If (gvms_status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(gvms_status,String) End If If (gvms_GMR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(gvms_GMR,String) End If If (gvms_gmr_creationDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(gvms_gmr_creationDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (gvms_gmr_statusVersion Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(gvms_gmr_statusVersion,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(gvms_routeId,Integer) If (gvms_direction Is Nothing) Then Throw New Global.System.ArgumentNullException("gvms_direction") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(gvms_direction,String) End If If (gvms_vehicleRegNum Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(gvms_vehicleRegNum,String) End If If (gvms_trailorRegNum Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(gvms_trailorRegNum,String) End If If (gvms_isUnaccompanied.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(gvms_isUnaccompanied.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (gvms_empty.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(gvms_empty.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (gvms_emptyisOwn.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(gvms_emptyisOwn.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (gvms_locateDateTimeOfDeparture.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(gvms_locateDateTimeOfDeparture.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (gvms_SS Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(gvms_SS,String) End If Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_gvms_id,Integer) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_gvms_datetime,Date) If (Original_gvms_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gvms_firma") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_gvms_firma,String) End If If (Original_gvms_notification_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_gvms_notification_id,String) End If If (Original_gvms_notification_boxid Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_gvms_notification_boxid,String) End If If (Original_gvms_status 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_gvms_status,String) End If If (Original_gvms_GMR 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_gvms_GMR,String) End If If (Original_gvms_gmr_creationDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_gvms_gmr_creationDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Original_gvms_gmr_statusVersion 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_gvms_gmr_statusVersion,String) End If Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_gvms_routeId,Integer) If (Original_gvms_direction Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gvms_direction") Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_gvms_direction,String) End If If (Original_gvms_vehicleRegNum Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_gvms_vehicleRegNum,String) End If If (Original_gvms_trailorRegNum Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_gvms_trailorRegNum,String) End If If (Original_gvms_isUnaccompanied.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_gvms_isUnaccompanied.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_gvms_empty.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_gvms_empty.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Original_gvms_emptyisOwn.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_gvms_emptyisOwn.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Original_gvms_locateDateTimeOfDeparture.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_gvms_locateDateTimeOfDeparture.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Original_gvms_SS Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_gvms_SS,String) End If Me.Adapter.UpdateCommand.Parameters(48).Value = CType(gvms_id,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 gvms_datetime As Date, _ ByVal gvms_firma As String, _ ByVal gvms_notification_id As String, _ ByVal gvms_notification_boxid As String, _ ByVal gvms_status As String, _ ByVal gvms_GMR As String, _ ByVal gvms_gmr_creationDate As Global.System.Nullable(Of Date), _ ByVal gvms_gmr_statusVersion As String, _ ByVal gvms_routeId As Integer, _ ByVal gvms_direction As String, _ ByVal gvms_vehicleRegNum As String, _ ByVal gvms_trailorRegNum As String, _ ByVal gvms_isUnaccompanied As Global.System.Nullable(Of Boolean), _ ByVal gvms_empty As Global.System.Nullable(Of Boolean), _ ByVal gvms_emptyisOwn As Global.System.Nullable(Of Boolean), _ ByVal gvms_locateDateTimeOfDeparture As Global.System.Nullable(Of Date), _ ByVal gvms_SS As String, _ ByVal Original_gvms_id As Integer, _ ByVal Original_gvms_datetime As Date, _ ByVal Original_gvms_firma As String, _ ByVal Original_gvms_notification_id As String, _ ByVal Original_gvms_notification_boxid As String, _ ByVal Original_gvms_status As String, _ ByVal Original_gvms_GMR As String, _ ByVal Original_gvms_gmr_creationDate As Global.System.Nullable(Of Date), _ ByVal Original_gvms_gmr_statusVersion As String, _ ByVal Original_gvms_routeId As Integer, _ ByVal Original_gvms_direction As String, _ ByVal Original_gvms_vehicleRegNum As String, _ ByVal Original_gvms_trailorRegNum As String, _ ByVal Original_gvms_isUnaccompanied As Global.System.Nullable(Of Boolean), _ ByVal Original_gvms_empty As Global.System.Nullable(Of Boolean), _ ByVal Original_gvms_emptyisOwn As Global.System.Nullable(Of Boolean), _ ByVal Original_gvms_locateDateTimeOfDeparture As Global.System.Nullable(Of Date), _ ByVal Original_gvms_SS As String) As Integer Return Me.Update(gvms_datetime, gvms_firma, gvms_notification_id, gvms_notification_boxid, gvms_status, gvms_GMR, gvms_gmr_creationDate, gvms_gmr_statusVersion, gvms_routeId, gvms_direction, gvms_vehicleRegNum, gvms_trailorRegNum, gvms_isUnaccompanied, gvms_empty, gvms_emptyisOwn, gvms_locateDateTimeOfDeparture, gvms_SS, Original_gvms_id, Original_gvms_datetime, Original_gvms_firma, Original_gvms_notification_id, Original_gvms_notification_boxid, Original_gvms_status, Original_gvms_GMR, Original_gvms_gmr_creationDate, Original_gvms_gmr_statusVersion, Original_gvms_routeId, Original_gvms_direction, Original_gvms_vehicleRegNum, Original_gvms_trailorRegNum, Original_gvms_isUnaccompanied, Original_gvms_empty, Original_gvms_emptyisOwn, Original_gvms_locateDateTimeOfDeparture, Original_gvms_SS, Original_gvms_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGVMS_CarriersTableAdapter 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 = "tblGVMS_Carriers" tableMapping.ColumnMappings.Add("carrierId", "carrierId") tableMapping.ColumnMappings.Add("carrierName", "carrierName") tableMapping.ColumnMappings.Add("countryCode", "countryCode") 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].[tblGVMS_Carriers] WHERE (([carrierId] = @Original_carrierId) A"& _ "ND ([carrierName] = @Original_carrierName) AND ([countryCode] = @Original_countr"& _ "yCode))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrierId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrierName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_countryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "countryCode", 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].[tblGVMS_Carriers] ([carrierId], [carrierName], [countryCode]) "& _ "VALUES (@carrierId, @carrierName, @countryCode);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT carrierId, carrierName,"& _ " countryCode FROM tblGVMS_Carriers WHERE (carrierId = @carrierId)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrierId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrierName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@countryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "countryCode", 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].[tblGVMS_Carriers] SET [carrierId] = @carrierId, [carrierName] = @ca"& _ "rrierName, [countryCode] = @countryCode WHERE (([carrierId] = @Original_carrierI"& _ "d) AND ([carrierName] = @Original_carrierName) AND ([countryCode] = @Original_co"& _ "untryCode));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT carrierId, carrierName, countryCode FROM tblGVMS_Carriers W"& _ "HERE (carrierId = @carrierId)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrierId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrierName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@countryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "countryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrierId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrierName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_countryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "countryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 carrierId, carrierName, countryCode FROM dbo.tblGVMS_Carriers" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGVMS_CarriersDataTable) 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 VERAGDataSet.tblGVMS_CarriersDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGVMS_CarriersDataTable = New VERAGDataSet.tblGVMS_CarriersDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGVMS_CarriersDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGVMS_Carriers") 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_carrierId As Integer, ByVal Original_carrierName As String, ByVal Original_countryCode As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_carrierId,Integer) If (Original_carrierName Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_carrierName") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_carrierName,String) End If If (Original_countryCode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_countryCode") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_countryCode,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 carrierId As Integer, ByVal carrierName As String, ByVal countryCode As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(carrierId,Integer) If (carrierName Is Nothing) Then Throw New Global.System.ArgumentNullException("carrierName") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(carrierName,String) End If If (countryCode Is Nothing) Then Throw New Global.System.ArgumentNullException("countryCode") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(countryCode,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 carrierId As Integer, ByVal carrierName As String, ByVal countryCode As String, ByVal Original_carrierId As Integer, ByVal Original_carrierName As String, ByVal Original_countryCode As String) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(carrierId,Integer) If (carrierName Is Nothing) Then Throw New Global.System.ArgumentNullException("carrierName") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(carrierName,String) End If If (countryCode Is Nothing) Then Throw New Global.System.ArgumentNullException("countryCode") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(countryCode,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_carrierId,Integer) If (Original_carrierName Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_carrierName") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_carrierName,String) End If If (Original_countryCode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_countryCode") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_countryCode,String) End If 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 carrierName As String, ByVal countryCode As String, ByVal Original_carrierId As Integer, ByVal Original_carrierName As String, ByVal Original_countryCode As String) As Integer Return Me.Update(Original_carrierId, carrierName, countryCode, Original_carrierId, Original_carrierName, Original_countryCode) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGVMS_PortsTableAdapter 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 = "tblGVMS_Ports" tableMapping.ColumnMappings.Add("portId", "portId") tableMapping.ColumnMappings.Add("portDescription", "portDescription") tableMapping.ColumnMappings.Add("portRegion", "portRegion") tableMapping.ColumnMappings.Add("portEffectiveFrom", "portEffectiveFrom") tableMapping.ColumnMappings.Add("chiefPortCode", "chiefPortCode") tableMapping.ColumnMappings.Add("cdsPortCode", "cdsPortCode") tableMapping.ColumnMappings.Add("officeOfTransitCustomsOfficeCode", "officeOfTransitCustomsOfficeCode") tableMapping.ColumnMappings.Add("portEffectiveTo", "portEffectiveTo") tableMapping.ColumnMappings.Add("portCountryCode", "portCountryCode") tableMapping.ColumnMappings.Add("isOperatingArrivedExportsProcess", "isOperatingArrivedExportsProcess") 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].[tblGVMS_Ports] WHERE (([portId] = @Original_portId) AND ([port"& _ "Description] = @Original_portDescription) AND ((@IsNull_portRegion = 1 AND [port"& _ "Region] IS NULL) OR ([portRegion] = @Original_portRegion)) AND ((@IsNull_portEff"& _ "ectiveFrom = 1 AND [portEffectiveFrom] IS NULL) OR ([portEffectiveFrom] = @Origi"& _ "nal_portEffectiveFrom)) AND ((@IsNull_chiefPortCode = 1 AND [chiefPortCode] IS N"& _ "ULL) OR ([chiefPortCode] = @Original_chiefPortCode)) AND ((@IsNull_cdsPortCode ="& _ " 1 AND [cdsPortCode] IS NULL) OR ([cdsPortCode] = @Original_cdsPortCode)) AND (("& _ "@IsNull_officeOfTransitCustomsOfficeCode = 1 AND [officeOfTransitCustomsOfficeCo"& _ "de] IS NULL) OR ([officeOfTransitCustomsOfficeCode] = @Original_officeOfTransitC"& _ "ustomsOfficeCode)) AND ((@IsNull_portEffectiveTo = 1 AND [portEffectiveTo] IS NU"& _ "LL) OR ([portEffectiveTo] = @Original_portEffectiveTo)) AND ((@IsNull_portCountr"& _ "yCode = 1 AND [portCountryCode] IS NULL) OR ([portCountryCode] = @Original_portC"& _ "ountryCode)) AND ((@IsNull_isOperatingArrivedExportsProcess = 1 AND [isOperating"& _ "ArrivedExportsProcess] IS NULL) OR ([isOperatingArrivedExportsProcess] = @Origin"& _ "al_isOperatingArrivedExportsProcess)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portDescription", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portDescription", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_portRegion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portRegion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portRegion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_portEffectiveFrom", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveFrom", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portEffectiveFrom", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveFrom", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_chiefPortCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chiefPortCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_chiefPortCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chiefPortCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_cdsPortCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cdsPortCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_cdsPortCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cdsPortCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_officeOfTransitCustomsOfficeCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "officeOfTransitCustomsOfficeCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_officeOfTransitCustomsOfficeCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "officeOfTransitCustomsOfficeCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_portEffectiveTo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveTo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portEffectiveTo", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveTo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_portCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portCountryCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portCountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_isOperatingArrivedExportsProcess", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "isOperatingArrivedExportsProcess", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_isOperatingArrivedExportsProcess", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "isOperatingArrivedExportsProcess", 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].[tblGVMS_Ports] ([portId], [portDescription], [portRegion], [po"& _ "rtEffectiveFrom], [chiefPortCode], [cdsPortCode], [officeOfTransitCustomsOfficeC"& _ "ode], [portEffectiveTo], [portCountryCode], [isOperatingArrivedExportsProcess]) "& _ "VALUES (@portId, @portDescription, @portRegion, @portEffectiveFrom, @chiefPortCo"& _ "de, @cdsPortCode, @officeOfTransitCustomsOfficeCode, @portEffectiveTo, @portCoun"& _ "tryCode, @isOperatingArrivedExportsProcess);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT portId, portDescription, po"& _ "rtRegion, portEffectiveFrom, chiefPortCode, cdsPortCode, officeOfTransitCustomsO"& _ "fficeCode, portEffectiveTo, portCountryCode, isOperatingArrivedExportsProcess FR"& _ "OM tblGVMS_Ports WHERE (portId = @portId)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portDescription", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portRegion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portEffectiveFrom", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveFrom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@chiefPortCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chiefPortCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@cdsPortCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cdsPortCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@officeOfTransitCustomsOfficeCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "officeOfTransitCustomsOfficeCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portEffectiveTo", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveTo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@isOperatingArrivedExportsProcess", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "isOperatingArrivedExportsProcess", 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].[tblGVMS_Ports] SET [portId] = @portId, [portDescription] = @portDes"& _ "cription, [portRegion] = @portRegion, [portEffectiveFrom] = @portEffectiveFrom, "& _ "[chiefPortCode] = @chiefPortCode, [cdsPortCode] = @cdsPortCode, [officeOfTransit"& _ "CustomsOfficeCode] = @officeOfTransitCustomsOfficeCode, [portEffectiveTo] = @por"& _ "tEffectiveTo, [portCountryCode] = @portCountryCode, [isOperatingArrivedExportsPr"& _ "ocess] = @isOperatingArrivedExportsProcess WHERE (([portId] = @Original_portId) "& _ "AND ([portDescription] = @Original_portDescription) AND ((@IsNull_portRegion = 1"& _ " AND [portRegion] IS NULL) OR ([portRegion] = @Original_portRegion)) AND ((@IsNu"& _ "ll_portEffectiveFrom = 1 AND [portEffectiveFrom] IS NULL) OR ([portEffectiveFrom"& _ "] = @Original_portEffectiveFrom)) AND ((@IsNull_chiefPortCode = 1 AND [chiefPort"& _ "Code] IS NULL) OR ([chiefPortCode] = @Original_chiefPortCode)) AND ((@IsNull_cds"& _ "PortCode = 1 AND [cdsPortCode] IS NULL) OR ([cdsPortCode] = @Original_cdsPortCod"& _ "e)) AND ((@IsNull_officeOfTransitCustomsOfficeCode = 1 AND [officeOfTransitCusto"& _ "msOfficeCode] IS NULL) OR ([officeOfTransitCustomsOfficeCode] = @Original_office"& _ "OfTransitCustomsOfficeCode)) AND ((@IsNull_portEffectiveTo = 1 AND [portEffectiv"& _ "eTo] IS NULL) OR ([portEffectiveTo] = @Original_portEffectiveTo)) AND ((@IsNull_"& _ "portCountryCode = 1 AND [portCountryCode] IS NULL) OR ([portCountryCode] = @Orig"& _ "inal_portCountryCode)) AND ((@IsNull_isOperatingArrivedExportsProcess = 1 AND [i"& _ "sOperatingArrivedExportsProcess] IS NULL) OR ([isOperatingArrivedExportsProcess]"& _ " = @Original_isOperatingArrivedExportsProcess)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT portId, portDescriptio"& _ "n, portRegion, portEffectiveFrom, chiefPortCode, cdsPortCode, officeOfTransitCus"& _ "tomsOfficeCode, portEffectiveTo, portCountryCode, isOperatingArrivedExportsProce"& _ "ss FROM tblGVMS_Ports WHERE (portId = @portId)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portDescription", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portRegion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portEffectiveFrom", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveFrom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@chiefPortCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chiefPortCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@cdsPortCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cdsPortCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@officeOfTransitCustomsOfficeCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "officeOfTransitCustomsOfficeCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portEffectiveTo", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveTo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@portCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@isOperatingArrivedExportsProcess", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "isOperatingArrivedExportsProcess", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portDescription", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portDescription", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_portRegion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portRegion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portRegion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_portEffectiveFrom", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveFrom", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portEffectiveFrom", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveFrom", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_chiefPortCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chiefPortCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_chiefPortCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chiefPortCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_cdsPortCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cdsPortCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_cdsPortCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cdsPortCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_officeOfTransitCustomsOfficeCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "officeOfTransitCustomsOfficeCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_officeOfTransitCustomsOfficeCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "officeOfTransitCustomsOfficeCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_portEffectiveTo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveTo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portEffectiveTo", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portEffectiveTo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_portCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portCountryCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_portCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "portCountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_isOperatingArrivedExportsProcess", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "isOperatingArrivedExportsProcess", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_isOperatingArrivedExportsProcess", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "isOperatingArrivedExportsProcess", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 portId, portDescription, portRegion, portEffectiveFrom, chiefPortCode, cds"& _ "PortCode, officeOfTransitCustomsOfficeCode, portEffectiveTo, portCountryCode, is"& _ "OperatingArrivedExportsProcess FROM dbo.tblGVMS_Ports" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGVMS_PortsDataTable) 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 VERAGDataSet.tblGVMS_PortsDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGVMS_PortsDataTable = New VERAGDataSet.tblGVMS_PortsDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGVMS_PortsDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGVMS_Ports") 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_portId As Integer, ByVal Original_portDescription As String, ByVal Original_portRegion As String, ByVal Original_portEffectiveFrom As Global.System.Nullable(Of Date), ByVal Original_chiefPortCode As String, ByVal Original_cdsPortCode As String, ByVal Original_officeOfTransitCustomsOfficeCode As String, ByVal Original_portEffectiveTo As Global.System.Nullable(Of Date), ByVal Original_portCountryCode As String, ByVal Original_isOperatingArrivedExportsProcess As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_portId,Integer) If (Original_portDescription Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_portDescription") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_portDescription,String) End If If (Original_portRegion 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_portRegion,String) End If If (Original_portEffectiveFrom.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_portEffectiveFrom.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_chiefPortCode 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_chiefPortCode,String) End If If (Original_cdsPortCode 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_cdsPortCode,String) End If If (Original_officeOfTransitCustomsOfficeCode 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_officeOfTransitCustomsOfficeCode,String) End If If (Original_portEffectiveTo.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_portEffectiveTo.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_portCountryCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_portCountryCode,String) End If If (Original_isOperatingArrivedExportsProcess.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_isOperatingArrivedExportsProcess.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).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 portId As Integer, ByVal portDescription As String, ByVal portRegion As String, ByVal portEffectiveFrom As Global.System.Nullable(Of Date), ByVal chiefPortCode As String, ByVal cdsPortCode As String, ByVal officeOfTransitCustomsOfficeCode As String, ByVal portEffectiveTo As Global.System.Nullable(Of Date), ByVal portCountryCode As String, ByVal isOperatingArrivedExportsProcess As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(portId,Integer) If (portDescription Is Nothing) Then Throw New Global.System.ArgumentNullException("portDescription") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(portDescription,String) End If If (portRegion Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(portRegion,String) End If If (portEffectiveFrom.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(portEffectiveFrom.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (chiefPortCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(chiefPortCode,String) End If If (cdsPortCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(cdsPortCode,String) End If If (officeOfTransitCustomsOfficeCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(officeOfTransitCustomsOfficeCode,String) End If If (portEffectiveTo.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(portEffectiveTo.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (portCountryCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(portCountryCode,String) End If If (isOperatingArrivedExportsProcess.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(isOperatingArrivedExportsProcess.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(9).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 portId As Integer, _ ByVal portDescription As String, _ ByVal portRegion As String, _ ByVal portEffectiveFrom As Global.System.Nullable(Of Date), _ ByVal chiefPortCode As String, _ ByVal cdsPortCode As String, _ ByVal officeOfTransitCustomsOfficeCode As String, _ ByVal portEffectiveTo As Global.System.Nullable(Of Date), _ ByVal portCountryCode As String, _ ByVal isOperatingArrivedExportsProcess As Global.System.Nullable(Of Boolean), _ ByVal Original_portId As Integer, _ ByVal Original_portDescription As String, _ ByVal Original_portRegion As String, _ ByVal Original_portEffectiveFrom As Global.System.Nullable(Of Date), _ ByVal Original_chiefPortCode As String, _ ByVal Original_cdsPortCode As String, _ ByVal Original_officeOfTransitCustomsOfficeCode As String, _ ByVal Original_portEffectiveTo As Global.System.Nullable(Of Date), _ ByVal Original_portCountryCode As String, _ ByVal Original_isOperatingArrivedExportsProcess As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(portId,Integer) If (portDescription Is Nothing) Then Throw New Global.System.ArgumentNullException("portDescription") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(portDescription,String) End If If (portRegion Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(portRegion,String) End If If (portEffectiveFrom.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(portEffectiveFrom.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (chiefPortCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(chiefPortCode,String) End If If (cdsPortCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(cdsPortCode,String) End If If (officeOfTransitCustomsOfficeCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(officeOfTransitCustomsOfficeCode,String) End If If (portEffectiveTo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(portEffectiveTo.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (portCountryCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(portCountryCode,String) End If If (isOperatingArrivedExportsProcess.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(isOperatingArrivedExportsProcess.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_portId,Integer) If (Original_portDescription Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_portDescription") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_portDescription,String) End If If (Original_portRegion 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_portRegion,String) End If If (Original_portEffectiveFrom.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_portEffectiveFrom.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_chiefPortCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_chiefPortCode,String) End If If (Original_cdsPortCode 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_cdsPortCode,String) End If If (Original_officeOfTransitCustomsOfficeCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_officeOfTransitCustomsOfficeCode,String) End If If (Original_portEffectiveTo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_portEffectiveTo.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_portCountryCode 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_portCountryCode,String) End If If (Original_isOperatingArrivedExportsProcess.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_isOperatingArrivedExportsProcess.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If 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 portDescription As String, _ ByVal portRegion As String, _ ByVal portEffectiveFrom As Global.System.Nullable(Of Date), _ ByVal chiefPortCode As String, _ ByVal cdsPortCode As String, _ ByVal officeOfTransitCustomsOfficeCode As String, _ ByVal portEffectiveTo As Global.System.Nullable(Of Date), _ ByVal portCountryCode As String, _ ByVal isOperatingArrivedExportsProcess As Global.System.Nullable(Of Boolean), _ ByVal Original_portId As Integer, _ ByVal Original_portDescription As String, _ ByVal Original_portRegion As String, _ ByVal Original_portEffectiveFrom As Global.System.Nullable(Of Date), _ ByVal Original_chiefPortCode As String, _ ByVal Original_cdsPortCode As String, _ ByVal Original_officeOfTransitCustomsOfficeCode As String, _ ByVal Original_portEffectiveTo As Global.System.Nullable(Of Date), _ ByVal Original_portCountryCode As String, _ ByVal Original_isOperatingArrivedExportsProcess As Global.System.Nullable(Of Boolean)) As Integer Return Me.Update(Original_portId, portDescription, portRegion, portEffectiveFrom, chiefPortCode, cdsPortCode, officeOfTransitCustomsOfficeCode, portEffectiveTo, portCountryCode, isOperatingArrivedExportsProcess, Original_portId, Original_portDescription, Original_portRegion, Original_portEffectiveFrom, Original_chiefPortCode, Original_cdsPortCode, Original_officeOfTransitCustomsOfficeCode, Original_portEffectiveTo, Original_portCountryCode, Original_isOperatingArrivedExportsProcess) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGVMS_PosTableAdapter 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 = "tblGVMS_Pos" tableMapping.ColumnMappings.Add("gvmsPos_id", "gvmsPos_id") tableMapping.ColumnMappings.Add("gvmsPos_gvmsId", "gvmsPos_gvmsId") tableMapping.ColumnMappings.Add("gvms_art", "gvms_art") tableMapping.ColumnMappings.Add("gvms_RefNum", "gvms_RefNum") tableMapping.ColumnMappings.Add("gvms_SS", "gvms_SS") 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].[tblGVMS_Pos] WHERE (([gvmsPos_id] = @Original_gvmsPos_id) AND "& _ "([gvmsPos_gvmsId] = @Original_gvmsPos_gvmsId) AND ([gvms_art] = @Original_gvms_a"& _ "rt) AND ([gvms_RefNum] = @Original_gvms_RefNum) AND ((@IsNull_gvms_SS = 1 AND [g"& _ "vms_SS] IS NULL) OR ([gvms_SS] = @Original_gvms_SS)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvmsPos_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvmsPos_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvmsPos_gvmsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvmsPos_gvmsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_RefNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_RefNum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_SS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_SS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", 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].[tblGVMS_Pos] ([gvmsPos_gvmsId], [gvms_art], [gvms_RefNum], [gv"& _ "ms_SS]) VALUES (@gvmsPos_gvmsId, @gvms_art, @gvms_RefNum, @gvms_SS);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gvm"& _ "sPos_id, gvmsPos_gvmsId, gvms_art, gvms_RefNum, gvms_SS FROM tblGVMS_Pos WHERE ("& _ "gvmsPos_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvmsPos_gvmsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvmsPos_gvmsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_RefNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_RefNum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_SS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", 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].[tblGVMS_Pos] SET [gvmsPos_gvmsId] = @gvmsPos_gvmsId, [gvms_art] = @"& _ "gvms_art, [gvms_RefNum] = @gvms_RefNum, [gvms_SS] = @gvms_SS WHERE (([gvmsPos_id"& _ "] = @Original_gvmsPos_id) AND ([gvmsPos_gvmsId] = @Original_gvmsPos_gvmsId) AND "& _ "([gvms_art] = @Original_gvms_art) AND ([gvms_RefNum] = @Original_gvms_RefNum) AN"& _ "D ((@IsNull_gvms_SS = 1 AND [gvms_SS] IS NULL) OR ([gvms_SS] = @Original_gvms_SS"& _ ")));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gvmsPos_id, gvmsPos_gvmsId, gvms_art, gvms_RefNum, gvms_SS FROM tbl"& _ "GVMS_Pos WHERE (gvmsPos_id = @gvmsPos_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvmsPos_gvmsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvmsPos_gvmsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_RefNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_RefNum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_SS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvmsPos_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvmsPos_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvmsPos_gvmsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvmsPos_gvmsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_RefNum", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_RefNum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gvms_SS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_SS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_SS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvmsPos_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "gvmsPos_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 gvmsPos_id, gvmsPos_gvmsId, gvms_art, gvms_RefNum, gvms_SS FROM dbo.tblGVM"& _ "S_Pos" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGVMS_PosDataTable) 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 VERAGDataSet.tblGVMS_PosDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGVMS_PosDataTable = New VERAGDataSet.tblGVMS_PosDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGVMS_PosDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGVMS_Pos") 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_gvmsPos_id As Integer, ByVal Original_gvmsPos_gvmsId As Integer, ByVal Original_gvms_art As String, ByVal Original_gvms_RefNum As String, ByVal Original_gvms_SS As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_gvmsPos_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_gvmsPos_gvmsId,Integer) If (Original_gvms_art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gvms_art") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_gvms_art,String) End If If (Original_gvms_RefNum Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gvms_RefNum") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_gvms_RefNum,String) End If If (Original_gvms_SS 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_gvms_SS,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 gvmsPos_gvmsId As Integer, ByVal gvms_art As String, ByVal gvms_RefNum As String, ByVal gvms_SS As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(gvmsPos_gvmsId,Integer) If (gvms_art Is Nothing) Then Throw New Global.System.ArgumentNullException("gvms_art") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(gvms_art,String) End If If (gvms_RefNum Is Nothing) Then Throw New Global.System.ArgumentNullException("gvms_RefNum") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(gvms_RefNum,String) End If If (gvms_SS Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(gvms_SS,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 gvmsPos_gvmsId As Integer, ByVal gvms_art As String, ByVal gvms_RefNum As String, ByVal gvms_SS As String, ByVal Original_gvmsPos_id As Integer, ByVal Original_gvmsPos_gvmsId As Integer, ByVal Original_gvms_art As String, ByVal Original_gvms_RefNum As String, ByVal Original_gvms_SS As String, ByVal gvmsPos_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(gvmsPos_gvmsId,Integer) If (gvms_art Is Nothing) Then Throw New Global.System.ArgumentNullException("gvms_art") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(gvms_art,String) End If If (gvms_RefNum Is Nothing) Then Throw New Global.System.ArgumentNullException("gvms_RefNum") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(gvms_RefNum,String) End If If (gvms_SS Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(gvms_SS,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_gvmsPos_id,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_gvmsPos_gvmsId,Integer) If (Original_gvms_art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gvms_art") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_gvms_art,String) End If If (Original_gvms_RefNum Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gvms_RefNum") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_gvms_RefNum,String) End If If (Original_gvms_SS 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_gvms_SS,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(gvmsPos_id,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 gvmsPos_gvmsId As Integer, ByVal gvms_art As String, ByVal gvms_RefNum As String, ByVal gvms_SS As String, ByVal Original_gvmsPos_id As Integer, ByVal Original_gvmsPos_gvmsId As Integer, ByVal Original_gvms_art As String, ByVal Original_gvms_RefNum As String, ByVal Original_gvms_SS As String) As Integer Return Me.Update(gvmsPos_gvmsId, gvms_art, gvms_RefNum, gvms_SS, Original_gvmsPos_id, Original_gvmsPos_gvmsId, Original_gvms_art, Original_gvms_RefNum, Original_gvms_SS, Original_gvmsPos_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblGVMS_RoutesTableAdapter 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 = "tblGVMS_Routes" tableMapping.ColumnMappings.Add("routeId", "routeId") tableMapping.ColumnMappings.Add("routeDirection", "routeDirection") tableMapping.ColumnMappings.Add("routeEffectiveFrom", "routeEffectiveFrom") tableMapping.ColumnMappings.Add("departurePortId", "departurePortId") tableMapping.ColumnMappings.Add("arrivalPortId", "arrivalPortId") tableMapping.ColumnMappings.Add("carrierId", "carrierId") tableMapping.ColumnMappings.Add("routeEffectiveTo", "routeEffectiveTo") 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].[tblGVMS_Routes] WHERE (([routeId] = @Original_routeId) AND ([r"& _ "outeDirection] = @Original_routeDirection) AND ((@IsNull_routeEffectiveFrom = 1 "& _ "AND [routeEffectiveFrom] IS NULL) OR ([routeEffectiveFrom] = @Original_routeEffe"& _ "ctiveFrom)) AND ((@IsNull_departurePortId = 1 AND [departurePortId] IS NULL) OR "& _ "([departurePortId] = @Original_departurePortId)) AND ((@IsNull_arrivalPortId = 1"& _ " AND [arrivalPortId] IS NULL) OR ([arrivalPortId] = @Original_arrivalPortId)) AN"& _ "D ((@IsNull_carrierId = 1 AND [carrierId] IS NULL) OR ([carrierId] = @Original_c"& _ "arrierId)) AND ((@IsNull_routeEffectiveTo = 1 AND [routeEffectiveTo] IS NULL) OR"& _ " ([routeEffectiveTo] = @Original_routeEffectiveTo)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_routeId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_routeDirection", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeDirection", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_routeEffectiveFrom", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveFrom", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_routeEffectiveFrom", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveFrom", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_departurePortId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "departurePortId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_departurePortId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "departurePortId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_arrivalPortId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrivalPortId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_arrivalPortId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrivalPortId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrierId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrierId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_routeEffectiveTo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveTo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_routeEffectiveTo", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveTo", 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].[tblGVMS_Routes] ([routeId], [routeDirection], [routeEffectiveF"& _ "rom], [departurePortId], [arrivalPortId], [carrierId], [routeEffectiveTo]) VALUE"& _ "S (@routeId, @routeDirection, @routeEffectiveFrom, @departurePortId, @arrivalPor"& _ "tId, @carrierId, @routeEffectiveTo);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT routeId, routeDirection, routeEffec"& _ "tiveFrom, departurePortId, arrivalPortId, carrierId, routeEffectiveTo FROM tblGV"& _ "MS_Routes WHERE (routeId = @routeId)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@routeId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@routeDirection", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeDirection", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@routeEffectiveFrom", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveFrom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@departurePortId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "departurePortId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@arrivalPortId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrivalPortId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrierId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@routeEffectiveTo", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveTo", 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].[tblGVMS_Routes] SET [routeId] = @routeId, [routeDirection] = @route"& _ "Direction, [routeEffectiveFrom] = @routeEffectiveFrom, [departurePortId] = @depa"& _ "rturePortId, [arrivalPortId] = @arrivalPortId, [carrierId] = @carrierId, [routeE"& _ "ffectiveTo] = @routeEffectiveTo WHERE (([routeId] = @Original_routeId) AND ([rou"& _ "teDirection] = @Original_routeDirection) AND ((@IsNull_routeEffectiveFrom = 1 AN"& _ "D [routeEffectiveFrom] IS NULL) OR ([routeEffectiveFrom] = @Original_routeEffect"& _ "iveFrom)) AND ((@IsNull_departurePortId = 1 AND [departurePortId] IS NULL) OR (["& _ "departurePortId] = @Original_departurePortId)) AND ((@IsNull_arrivalPortId = 1 A"& _ "ND [arrivalPortId] IS NULL) OR ([arrivalPortId] = @Original_arrivalPortId)) AND "& _ "((@IsNull_carrierId = 1 AND [carrierId] IS NULL) OR ([carrierId] = @Original_car"& _ "rierId)) AND ((@IsNull_routeEffectiveTo = 1 AND [routeEffectiveTo] IS NULL) OR ("& _ "[routeEffectiveTo] = @Original_routeEffectiveTo)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT routeId, routeDirect"& _ "ion, routeEffectiveFrom, departurePortId, arrivalPortId, carrierId, routeEffecti"& _ "veTo FROM tblGVMS_Routes WHERE (routeId = @routeId)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@routeId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@routeDirection", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeDirection", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@routeEffectiveFrom", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveFrom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@departurePortId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "departurePortId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@arrivalPortId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrivalPortId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrierId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@routeEffectiveTo", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveTo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_routeId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_routeDirection", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeDirection", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_routeEffectiveFrom", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveFrom", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_routeEffectiveFrom", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveFrom", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_departurePortId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "departurePortId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_departurePortId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "departurePortId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_arrivalPortId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrivalPortId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_arrivalPortId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrivalPortId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrierId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrierId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrierId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_routeEffectiveTo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveTo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_routeEffectiveTo", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "routeEffectiveTo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 routeId, routeDirection, routeEffectiveFrom, departurePortId, arrivalPortI"& _ "d, carrierId, routeEffectiveTo FROM dbo.tblGVMS_Routes" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblGVMS_RoutesDataTable) 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 VERAGDataSet.tblGVMS_RoutesDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblGVMS_RoutesDataTable = New VERAGDataSet.tblGVMS_RoutesDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblGVMS_RoutesDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblGVMS_Routes") 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_routeId As Integer, ByVal Original_routeDirection As String, ByVal Original_routeEffectiveFrom As Global.System.Nullable(Of Date), ByVal Original_departurePortId As String, ByVal Original_arrivalPortId As String, ByVal Original_carrierId As String, ByVal Original_routeEffectiveTo As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_routeId,Integer) If (Original_routeDirection Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_routeDirection") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_routeDirection,String) End If If (Original_routeEffectiveFrom.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_routeEffectiveFrom.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_departurePortId 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_departurePortId,String) End If If (Original_arrivalPortId 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_arrivalPortId,String) End If If (Original_carrierId 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_carrierId,String) End If If (Original_routeEffectiveTo.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_routeEffectiveTo.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).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 routeId As Integer, ByVal routeDirection As String, ByVal routeEffectiveFrom As Global.System.Nullable(Of Date), ByVal departurePortId As String, ByVal arrivalPortId As String, ByVal carrierId As String, ByVal routeEffectiveTo As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(routeId,Integer) If (routeDirection Is Nothing) Then Throw New Global.System.ArgumentNullException("routeDirection") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(routeDirection,String) End If If (routeEffectiveFrom.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(routeEffectiveFrom.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (departurePortId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(departurePortId,String) End If If (arrivalPortId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(arrivalPortId,String) End If If (carrierId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(carrierId,String) End If If (routeEffectiveTo.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(routeEffectiveTo.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 routeId As Integer, ByVal routeDirection As String, ByVal routeEffectiveFrom As Global.System.Nullable(Of Date), ByVal departurePortId As String, ByVal arrivalPortId As String, ByVal carrierId As String, ByVal routeEffectiveTo As Global.System.Nullable(Of Date), ByVal Original_routeId As Integer, ByVal Original_routeDirection As String, ByVal Original_routeEffectiveFrom As Global.System.Nullable(Of Date), ByVal Original_departurePortId As String, ByVal Original_arrivalPortId As String, ByVal Original_carrierId As String, ByVal Original_routeEffectiveTo As Global.System.Nullable(Of Date)) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(routeId,Integer) If (routeDirection Is Nothing) Then Throw New Global.System.ArgumentNullException("routeDirection") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(routeDirection,String) End If If (routeEffectiveFrom.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(routeEffectiveFrom.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (departurePortId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(departurePortId,String) End If If (arrivalPortId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(arrivalPortId,String) End If If (carrierId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(carrierId,String) End If If (routeEffectiveTo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(routeEffectiveTo.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_routeId,Integer) If (Original_routeDirection Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_routeDirection") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_routeDirection,String) End If If (Original_routeEffectiveFrom.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_routeEffectiveFrom.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_departurePortId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_departurePortId,String) End If If (Original_arrivalPortId 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_arrivalPortId,String) End If If (Original_carrierId 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_carrierId,String) End If If (Original_routeEffectiveTo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_routeEffectiveTo.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If 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 routeDirection As String, ByVal routeEffectiveFrom As Global.System.Nullable(Of Date), ByVal departurePortId As String, ByVal arrivalPortId As String, ByVal carrierId As String, ByVal routeEffectiveTo As Global.System.Nullable(Of Date), ByVal Original_routeId As Integer, ByVal Original_routeDirection As String, ByVal Original_routeEffectiveFrom As Global.System.Nullable(Of Date), ByVal Original_departurePortId As String, ByVal Original_arrivalPortId As String, ByVal Original_carrierId As String, ByVal Original_routeEffectiveTo As Global.System.Nullable(Of Date)) As Integer Return Me.Update(Original_routeId, routeDirection, routeEffectiveFrom, departurePortId, arrivalPortId, carrierId, routeEffectiveTo, Original_routeId, Original_routeDirection, Original_routeEffectiveFrom, Original_departurePortId, Original_arrivalPortId, Original_carrierId, Original_routeEffectiveTo) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblHandlingssaetzeInternTableAdapter 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 = "tblHandlingssaetzeIntern" tableMapping.ColumnMappings.Add("hs_Bezeichnung", "hs_Bezeichnung") tableMapping.ColumnMappings.Add("hs_RgVon", "hs_RgVon") tableMapping.ColumnMappings.Add("hs_RgAn", "hs_RgAn") tableMapping.ColumnMappings.Add("hs_Abfertigungsart", "hs_Abfertigungsart") tableMapping.ColumnMappings.Add("hs_Preis", "hs_Preis") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblHandlingssaetzeIntern] ([hs_Bezeichnung], [hs_RgVon], [hs_R"& _ "gAn], [hs_Abfertigungsart], [hs_Preis]) VALUES (@hs_Bezeichnung, @hs_RgVon, @hs_"& _ "RgAn, @hs_Abfertigungsart, @hs_Preis)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@hs_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "hs_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@hs_RgVon", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "hs_RgVon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@hs_RgAn", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "hs_RgAn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@hs_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "hs_Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@hs_Preis", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "hs_Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 hs_Bezeichnung, hs_RgVon, hs_RgAn, hs_Abfertigungsart, hs_Preis FROM dbo.t"& _ "blHandlingssaetzeIntern" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblHandlingssaetzeInternDataTable) 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 VERAGDataSet.tblHandlingssaetzeInternDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblHandlingssaetzeInternDataTable = New VERAGDataSet.tblHandlingssaetzeInternDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblHandlingssaetzeInternDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblHandlingssaetzeIntern") 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 Insert(ByVal hs_Bezeichnung As String, ByVal hs_RgVon As String, ByVal hs_RgAn As String, ByVal hs_Abfertigungsart As Global.System.Nullable(Of Integer), ByVal hs_Preis As Double) As Integer If (hs_Bezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(hs_Bezeichnung,String) End If If (hs_RgVon Is Nothing) Then Throw New Global.System.ArgumentNullException("hs_RgVon") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(hs_RgVon,String) End If If (hs_RgAn Is Nothing) Then Throw New Global.System.ArgumentNullException("hs_RgAn") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(hs_RgAn,String) End If If (hs_Abfertigungsart.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(hs_Abfertigungsart.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(hs_Preis,Double) 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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblHistorieTableAdapter 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 = "tblHistorie" tableMapping.ColumnMappings.Add("Computername", "Computername") tableMapping.ColumnMappings.Add("Benutzername", "Benutzername") tableMapping.ColumnMappings.Add("Login", "Login") tableMapping.ColumnMappings.Add("Logout", "Logout") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblHistorie] WHERE (([Computername] = @Original_Computername) "& _ "AND ([Benutzername] = @Original_Benutzername) AND ([Login] = @Original_Login) AN"& _ "D ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_u"& _ "psize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Login", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Login", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblHistorie] ([Computername], [Benutzername], [Login], [Logout"& _ "]) VALUES (@Computername, @Benutzername, @Login, @Logout);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Computername,"& _ " Benutzername, Login, Logout, upsize_ts FROM tblHistorie WHERE (Benutzername = @"& _ "Benutzername) AND (Computername = @Computername) AND (Login = @Login)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Login", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Login", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logout", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logout", 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].[tblHistorie] SET [Computername] = @Computername, [Benutzername] = @"& _ "Benutzername, [Login] = @Login, [Logout] = @Logout WHERE (([Computername] = @Ori"& _ "ginal_Computername) AND ([Benutzername] = @Original_Benutzername) AND ([Login] ="& _ " @Original_Login) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsi"& _ "ze_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Computername, Benutzername, Login, Logo"& _ "ut, upsize_ts FROM tblHistorie WHERE (Benutzername = @Benutzername) AND (Compute"& _ "rname = @Computername) AND (Login = @Login)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Login", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Login", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logout", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logout", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Login", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Login", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Computername, Benutzername, Login, Logout, upsize_ts FROM dbo.tblHistorie" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblHistorieDataTable) 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 VERAGDataSet.tblHistorieDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblHistorieDataTable = New VERAGDataSet.tblHistorieDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblHistorieDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblHistorie") 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_Computername As String, ByVal Original_Benutzername As String, ByVal Original_Login As Date, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Computername") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Computername,String) End If If (Original_Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Benutzername") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Benutzername,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Login,Date) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Computername As String, ByVal Benutzername As String, ByVal Login As Date, ByVal Logout As Global.System.Nullable(Of Date)) As Integer If (Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Computername") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Benutzername,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Login,Date) If (Logout.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Logout.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 Computername As String, ByVal Benutzername As String, ByVal Login As Date, ByVal Logout As Global.System.Nullable(Of Date), ByVal Original_Computername As String, ByVal Original_Benutzername As String, ByVal Original_Login As Date, ByVal Original_upsize_ts() As Byte) As Integer If (Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Computername") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Benutzername,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Login,Date) If (Logout.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Logout.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Computername") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Computername,String) End If If (Original_Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Benutzername") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Benutzername,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Login,Date) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 Logout As Global.System.Nullable(Of Date), ByVal Original_Computername As String, ByVal Original_Benutzername As String, ByVal Original_Login As Date, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Computername, Original_Benutzername, Original_Login, Logout, Original_Computername, Original_Benutzername, Original_Login, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblIDS_TransaktionenTableAdapter 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 = "tblIDS_Transaktionen" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("BC_ID", "BC_ID") tableMapping.ColumnMappings.Add("BC_DESCR", "BC_DESCR") tableMapping.ColumnMappings.Add("CLUB_ID", "CLUB_ID") tableMapping.ColumnMappings.Add("COU_ISO_COD", "COU_ISO_COD") tableMapping.ColumnMappings.Add("COU_DESCR", "COU_DESCR") tableMapping.ColumnMappings.Add("CUST_COD", "CUST_COD") tableMapping.ColumnMappings.Add("CUST_LEVEL", "CUST_LEVEL") tableMapping.ColumnMappings.Add("CUST_NAME1", "CUST_NAME1") tableMapping.ColumnMappings.Add("CARD_SER_NUM", "CARD_SER_NUM") tableMapping.ColumnMappings.Add("SOU_ISO_COD", "SOU_ISO_COD") tableMapping.ColumnMappings.Add("SOU_DESCR", "SOU_DESCR") tableMapping.ColumnMappings.Add("TRS_NUM", "TRS_NUM") tableMapping.ColumnMappings.Add("TRS_VERS_NUM", "TRS_VERS_NUM") tableMapping.ColumnMappings.Add("OUT_COD", "OUT_COD") tableMapping.ColumnMappings.Add("OUT_DESCR", "OUT_DESCR") tableMapping.ColumnMappings.Add("OUT_GRP_COD", "OUT_GRP_COD") tableMapping.ColumnMappings.Add("TRS_DATE", "TRS_DATE") tableMapping.ColumnMappings.Add("TOT_QTY", "TOT_QTY") tableMapping.ColumnMappings.Add("PROD_NUM", "PROD_NUM") tableMapping.ColumnMappings.Add("PROD_DESCR", "PROD_DESCR") tableMapping.ColumnMappings.Add("SERVICE_PROD_NUM", "SERVICE_PROD_NUM") tableMapping.ColumnMappings.Add("SERVICE_PROD_DESCR", "SERVICE_PROD_DESCR") tableMapping.ColumnMappings.Add("SOU_CURR", "SOU_CURR") tableMapping.ColumnMappings.Add("ORIG_LIST_PRICE", "ORIG_LIST_PRICE") tableMapping.ColumnMappings.Add("ORIG_REBATE", "ORIG_REBATE") tableMapping.ColumnMappings.Add("ORIG_PRICE", "ORIG_PRICE") tableMapping.ColumnMappings.Add("PLATTS_PRICE", "PLATTS_PRICE") tableMapping.ColumnMappings.Add("SC_BC_RATE", "SC_BC_RATE") tableMapping.ColumnMappings.Add("SC_IV_BC_AMNT", "SC_IV_BC_AMNT") tableMapping.ColumnMappings.Add("COU_BENEFICIARY_CURR", "COU_BENEFICIARY_CURR") tableMapping.ColumnMappings.Add("CO_IV_BC_AMNT", "CO_IV_BC_AMNT") tableMapping.ColumnMappings.Add("EUR_IV_BC_AMNT", "EUR_IV_BC_AMNT") tableMapping.ColumnMappings.Add("SC_CO_EXCHRATE", "SC_CO_EXCHRATE") tableMapping.ColumnMappings.Add("SC_EUR_EXCHRATE", "SC_EUR_EXCHRATE") tableMapping.ColumnMappings.Add("BC_INVO_DATE", "BC_INVO_DATE") tableMapping.ColumnMappings.Add("INVO_NUM", "INVO_NUM") tableMapping.ColumnMappings.Add("FIXED_OR_TOTAL", "FIXED_OR_TOTAL") tableMapping.ColumnMappings.Add("BC_TYPE", "BC_TYPE") tableMapping.ColumnMappings.Add("COU_BENEFICIARY", "COU_BENEFICIARY") tableMapping.ColumnMappings.Add("CUST_BENEFICIARY", "CUST_BENEFICIARY") tableMapping.ColumnMappings.Add("LEVEL_BENEFICIARY", "LEVEL_BENEFICIARY") tableMapping.ColumnMappings.Add("CUST_GRP_BENEFICIARY", "CUST_GRP_BENEFICIARY") tableMapping.ColumnMappings.Add("Importiert", "Importiert") 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].[tblIDS_Transaktionen] WHERE (([Id] = @Original_Id) AND ((@IsNu"& _ "ll_BC_ID = 1 AND [BC_ID] IS NULL) OR ([BC_ID] = @Original_BC_ID)) AND ((@IsNull_"& _ "BC_DESCR = 1 AND [BC_DESCR] IS NULL) OR ([BC_DESCR] = @Original_BC_DESCR)) AND ("& _ "(@IsNull_CLUB_ID = 1 AND [CLUB_ID] IS NULL) OR ([CLUB_ID] = @Original_CLUB_ID)) "& _ "AND ((@IsNull_COU_ISO_COD = 1 AND [COU_ISO_COD] IS NULL) OR ([COU_ISO_COD] = @Or"& _ "iginal_COU_ISO_COD)) AND ((@IsNull_COU_DESCR = 1 AND [COU_DESCR] IS NULL) OR ([C"& _ "OU_DESCR] = @Original_COU_DESCR)) AND ((@IsNull_CUST_COD = 1 AND [CUST_COD] IS N"& _ "ULL) OR ([CUST_COD] = @Original_CUST_COD)) AND ((@IsNull_CUST_LEVEL = 1 AND [CUS"& _ "T_LEVEL] IS NULL) OR ([CUST_LEVEL] = @Original_CUST_LEVEL)) AND ((@IsNull_CUST_N"& _ "AME1 = 1 AND [CUST_NAME1] IS NULL) OR ([CUST_NAME1] = @Original_CUST_NAME1)) AND"& _ " ((@IsNull_CARD_SER_NUM = 1 AND [CARD_SER_NUM] IS NULL) OR ([CARD_SER_NUM] = @Or"& _ "iginal_CARD_SER_NUM)) AND ((@IsNull_SOU_ISO_COD = 1 AND [SOU_ISO_COD] IS NULL) O"& _ "R ([SOU_ISO_COD] = @Original_SOU_ISO_COD)) AND ((@IsNull_SOU_DESCR = 1 AND [SOU_"& _ "DESCR] IS NULL) OR ([SOU_DESCR] = @Original_SOU_DESCR)) AND ((@IsNull_TRS_NUM = "& _ "1 AND [TRS_NUM] IS NULL) OR ([TRS_NUM] = @Original_TRS_NUM)) AND ((@IsNull_TRS_V"& _ "ERS_NUM = 1 AND [TRS_VERS_NUM] IS NULL) OR ([TRS_VERS_NUM] = @Original_TRS_VERS_"& _ "NUM)) AND ((@IsNull_OUT_COD = 1 AND [OUT_COD] IS NULL) OR ([OUT_COD] = @Original"& _ "_OUT_COD)) AND ((@IsNull_OUT_DESCR = 1 AND [OUT_DESCR] IS NULL) OR ([OUT_DESCR] "& _ "= @Original_OUT_DESCR)) AND ((@IsNull_OUT_GRP_COD = 1 AND [OUT_GRP_COD] IS NULL)"& _ " OR ([OUT_GRP_COD] = @Original_OUT_GRP_COD)) AND ((@IsNull_TRS_DATE = 1 AND [TRS"& _ "_DATE] IS NULL) OR ([TRS_DATE] = @Original_TRS_DATE)) AND ((@IsNull_TOT_QTY = 1 "& _ "AND [TOT_QTY] IS NULL) OR ([TOT_QTY] = @Original_TOT_QTY)) AND ((@IsNull_PROD_NU"& _ "M = 1 AND [PROD_NUM] IS NULL) OR ([PROD_NUM] = @Original_PROD_NUM)) AND ((@IsNul"& _ "l_PROD_DESCR = 1 AND [PROD_DESCR] IS NULL) OR ([PROD_DESCR] = @Original_PROD_DES"& _ "CR)) AND ((@IsNull_SERVICE_PROD_NUM = 1 AND [SERVICE_PROD_NUM] IS NULL) OR ([SER"& _ "VICE_PROD_NUM] = @Original_SERVICE_PROD_NUM)) AND ((@IsNull_SERVICE_PROD_DESCR ="& _ " 1 AND [SERVICE_PROD_DESCR] IS NULL) OR ([SERVICE_PROD_DESCR] = @Original_SERVIC"& _ "E_PROD_DESCR)) AND ((@IsNull_SOU_CURR = 1 AND [SOU_CURR] IS NULL) OR ([SOU_CURR]"& _ " = @Original_SOU_CURR)) AND ((@IsNull_ORIG_LIST_PRICE = 1 AND [ORIG_LIST_PRICE] "& _ "IS NULL) OR ([ORIG_LIST_PRICE] = @Original_ORIG_LIST_PRICE)) AND ((@IsNull_ORIG_"& _ "REBATE = 1 AND [ORIG_REBATE] IS NULL) OR ([ORIG_REBATE] = @Original_ORIG_REBATE)"& _ ") AND ((@IsNull_ORIG_PRICE = 1 AND [ORIG_PRICE] IS NULL) OR ([ORIG_PRICE] = @Ori"& _ "ginal_ORIG_PRICE)) AND ((@IsNull_PLATTS_PRICE = 1 AND [PLATTS_PRICE] IS NULL) OR"& _ " ([PLATTS_PRICE] = @Original_PLATTS_PRICE)) AND ((@IsNull_SC_BC_RATE = 1 AND [SC"& _ "_BC_RATE] IS NULL) OR ([SC_BC_RATE] = @Original_SC_BC_RATE)) AND ((@IsNull_SC_IV"& _ "_BC_AMNT = 1 AND [SC_IV_BC_AMNT] IS NULL) OR ([SC_IV_BC_AMNT] = @Original_SC_IV_"& _ "BC_AMNT)) AND ((@IsNull_COU_BENEFICIARY_CURR = 1 AND [COU_BENEFICIARY_CURR] IS N"& _ "ULL) OR ([COU_BENEFICIARY_CURR] = @Original_COU_BENEFICIARY_CURR)) AND ((@IsNull"& _ "_CO_IV_BC_AMNT = 1 AND [CO_IV_BC_AMNT] IS NULL) OR ([CO_IV_BC_AMNT] = @Original_"& _ "CO_IV_BC_AMNT)) AND ((@IsNull_EUR_IV_BC_AMNT = 1 AND [EUR_IV_BC_AMNT] IS NULL) O"& _ "R ([EUR_IV_BC_AMNT] = @Original_EUR_IV_BC_AMNT)) AND ((@IsNull_SC_CO_EXCHRATE = "& _ "1 AND [SC_CO_EXCHRATE] IS NULL) OR ([SC_CO_EXCHRATE] = @Original_SC_CO_EXCHRATE)"& _ ") AND ((@IsNull_SC_EUR_EXCHRATE = 1 AND [SC_EUR_EXCHRATE] IS NULL) OR ([SC_EUR_E"& _ "XCHRATE] = @Original_SC_EUR_EXCHRATE)) AND ((@IsNull_BC_INVO_DATE = 1 AND [BC_IN"& _ "VO_DATE] IS NULL) OR ([BC_INVO_DATE] = @Original_BC_INVO_DATE)) AND ((@IsNull_IN"& _ "VO_NUM = 1 AND [INVO_NUM] IS NULL) OR ([INVO_NUM] = @Original_INVO_NUM)) AND ((@"& _ "IsNull_FIXED_OR_TOTAL = 1 AND [FIXED_OR_TOTAL] IS NULL) OR ([FIXED_OR_TOTAL] = @"& _ "Original_FIXED_OR_TOTAL)) AND ((@IsNull_BC_TYPE = 1 AND [BC_TYPE] IS NULL) OR (["& _ "BC_TYPE] = @Original_BC_TYPE)) AND ((@IsNull_COU_BENEFICIARY = 1 AND [COU_BENEFI"& _ "CIARY] IS NULL) OR ([COU_BENEFICIARY] = @Original_COU_BENEFICIARY)) AND ((@IsNul"& _ "l_CUST_BENEFICIARY = 1 AND [CUST_BENEFICIARY] IS NULL) OR ([CUST_BENEFICIARY] = "& _ "@Original_CUST_BENEFICIARY)) AND ((@IsNull_LEVEL_BENEFICIARY = 1 AND [LEVEL_BENE"& _ "FICIARY] IS NULL) OR ([LEVEL_BENEFICIARY] = @Original_LEVEL_BENEFICIARY)) AND (("& _ "@IsNull_CUST_GRP_BENEFICIARY = 1 AND [CUST_GRP_BENEFICIARY] IS NULL) OR ([CUST_G"& _ "RP_BENEFICIARY] = @Original_CUST_GRP_BENEFICIARY)) AND ([Importiert] = @Original"& _ "_Importiert))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BC_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BC_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BC_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BC_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CLUB_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLUB_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLUB_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLUB_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COU_ISO_COD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_ISO_COD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COU_ISO_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_ISO_COD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COU_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COU_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CUST_COD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_COD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CUST_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_COD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CUST_LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_LEVEL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CUST_LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_LEVEL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CUST_NAME1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_NAME1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CUST_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CARD_SER_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CARD_SER_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CARD_SER_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CARD_SER_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SOU_ISO_COD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_ISO_COD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SOU_ISO_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_ISO_COD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SOU_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SOU_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TRS_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TRS_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TRS_VERS_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_VERS_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TRS_VERS_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_VERS_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OUT_COD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_COD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OUT_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_COD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OUT_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OUT_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OUT_GRP_COD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_GRP_COD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OUT_GRP_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_GRP_COD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TRS_DATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_DATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TRS_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_DATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TOT_QTY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOT_QTY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOT_QTY", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "TOT_QTY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PROD_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROD_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PROD_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROD_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVICE_PROD_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVICE_PROD_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVICE_PROD_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVICE_PROD_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SOU_CURR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_CURR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SOU_CURR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_CURR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ORIG_LIST_PRICE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ORIG_LIST_PRICE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ORIG_LIST_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "ORIG_LIST_PRICE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ORIG_REBATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ORIG_REBATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ORIG_REBATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 4, "ORIG_REBATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ORIG_PRICE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ORIG_PRICE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ORIG_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 4, "ORIG_PRICE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PLATTS_PRICE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLATTS_PRICE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PLATTS_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "PLATTS_PRICE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SC_BC_RATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SC_BC_RATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SC_BC_RATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "SC_BC_RATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SC_IV_BC_AMNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SC_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SC_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "SC_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COU_BENEFICIARY_CURR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY_CURR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COU_BENEFICIARY_CURR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY_CURR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CO_IV_BC_AMNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CO_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CO_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "CO_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EUR_IV_BC_AMNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EUR_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EUR_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "EUR_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SC_CO_EXCHRATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SC_CO_EXCHRATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SC_CO_EXCHRATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 8, "SC_CO_EXCHRATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SC_EUR_EXCHRATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SC_EUR_EXCHRATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SC_EUR_EXCHRATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 8, "SC_EUR_EXCHRATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BC_INVO_DATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_INVO_DATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BC_INVO_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_INVO_DATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_INVO_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INVO_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INVO_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INVO_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FIXED_OR_TOTAL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_OR_TOTAL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FIXED_OR_TOTAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_OR_TOTAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BC_TYPE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_TYPE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BC_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COU_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COU_BENEFICIARY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CUST_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_BENEFICIARY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CUST_BENEFICIARY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_BENEFICIARY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LEVEL_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL_BENEFICIARY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL_BENEFICIARY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CUST_GRP_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_GRP_BENEFICIARY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CUST_GRP_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_GRP_BENEFICIARY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Importiert", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Importiert", 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].[tblIDS_Transaktionen] ([BC_ID], [BC_DESCR], [CLUB_ID], [COU_IS"& _ "O_COD], [COU_DESCR], [CUST_COD], [CUST_LEVEL], [CUST_NAME1], [CARD_SER_NUM], [SO"& _ "U_ISO_COD], [SOU_DESCR], [TRS_NUM], [TRS_VERS_NUM], [OUT_COD], [OUT_DESCR], [OUT"& _ "_GRP_COD], [TRS_DATE], [TOT_QTY], [PROD_NUM], [PROD_DESCR], [SERVICE_PROD_NUM], "& _ "[SERVICE_PROD_DESCR], [SOU_CURR], [ORIG_LIST_PRICE], [ORIG_REBATE], [ORIG_PRICE]"& _ ", [PLATTS_PRICE], [SC_BC_RATE], [SC_IV_BC_AMNT], [COU_BENEFICIARY_CURR], [CO_IV_"& _ "BC_AMNT], [EUR_IV_BC_AMNT], [SC_CO_EXCHRATE], [SC_EUR_EXCHRATE], [BC_INVO_DATE],"& _ " [INVO_NUM], [FIXED_OR_TOTAL], [BC_TYPE], [COU_BENEFICIARY], [CUST_BENEFICIARY],"& _ " [LEVEL_BENEFICIARY], [CUST_GRP_BENEFICIARY], [Importiert]) VALUES (@BC_ID, @BC_"& _ "DESCR, @CLUB_ID, @COU_ISO_COD, @COU_DESCR, @CUST_COD, @CUST_LEVEL, @CUST_NAME1, "& _ "@CARD_SER_NUM, @SOU_ISO_COD, @SOU_DESCR, @TRS_NUM, @TRS_VERS_NUM, @OUT_COD, @OUT"& _ "_DESCR, @OUT_GRP_COD, @TRS_DATE, @TOT_QTY, @PROD_NUM, @PROD_DESCR, @SERVICE_PROD"& _ "_NUM, @SERVICE_PROD_DESCR, @SOU_CURR, @ORIG_LIST_PRICE, @ORIG_REBATE, @ORIG_PRIC"& _ "E, @PLATTS_PRICE, @SC_BC_RATE, @SC_IV_BC_AMNT, @COU_BENEFICIARY_CURR, @CO_IV_BC_"& _ "AMNT, @EUR_IV_BC_AMNT, @SC_CO_EXCHRATE, @SC_EUR_EXCHRATE, @BC_INVO_DATE, @INVO_N"& _ "UM, @FIXED_OR_TOTAL, @BC_TYPE, @COU_BENEFICIARY, @CUST_BENEFICIARY, @LEVEL_BENEF"& _ "ICIARY, @CUST_GRP_BENEFICIARY, @Importiert);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, BC_ID, BC_DESCR, CLUB_I"& _ "D, COU_ISO_COD, COU_DESCR, CUST_COD, CUST_LEVEL, CUST_NAME1, CARD_SER_NUM, SOU_I"& _ "SO_COD, SOU_DESCR, TRS_NUM, TRS_VERS_NUM, OUT_COD, OUT_DESCR, OUT_GRP_COD, TRS_D"& _ "ATE, TOT_QTY, PROD_NUM, PROD_DESCR, SERVICE_PROD_NUM, SERVICE_PROD_DESCR, SOU_CU"& _ "RR, ORIG_LIST_PRICE, ORIG_REBATE, ORIG_PRICE, PLATTS_PRICE, SC_BC_RATE, SC_IV_BC"& _ "_AMNT, COU_BENEFICIARY_CURR, CO_IV_BC_AMNT, EUR_IV_BC_AMNT, SC_CO_EXCHRATE, SC_E"& _ "UR_EXCHRATE, BC_INVO_DATE, INVO_NUM, FIXED_OR_TOTAL, BC_TYPE, COU_BENEFICIARY, C"& _ "UST_BENEFICIARY, LEVEL_BENEFICIARY, CUST_GRP_BENEFICIARY, Importiert FROM tblIDS"& _ "_Transaktionen WHERE (Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BC_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BC_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLUB_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLUB_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COU_ISO_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_ISO_COD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COU_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CUST_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_COD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CUST_LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_LEVEL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CUST_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CARD_SER_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CARD_SER_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SOU_ISO_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_ISO_COD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SOU_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TRS_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TRS_VERS_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_VERS_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OUT_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_COD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OUT_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OUT_GRP_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_GRP_COD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TRS_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOT_QTY", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "TOT_QTY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROD_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROD_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVICE_PROD_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVICE_PROD_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SOU_CURR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_CURR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ORIG_LIST_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "ORIG_LIST_PRICE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ORIG_REBATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 4, "ORIG_REBATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ORIG_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 4, "ORIG_PRICE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLATTS_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "PLATTS_PRICE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SC_BC_RATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "SC_BC_RATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SC_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "SC_IV_BC_AMNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COU_BENEFICIARY_CURR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY_CURR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CO_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "CO_IV_BC_AMNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EUR_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "EUR_IV_BC_AMNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SC_CO_EXCHRATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 8, "SC_CO_EXCHRATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SC_EUR_EXCHRATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 8, "SC_EUR_EXCHRATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BC_INVO_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_INVO_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INVO_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INVO_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FIXED_OR_TOTAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_OR_TOTAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BC_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COU_BENEFICIARY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CUST_BENEFICIARY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_BENEFICIARY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL_BENEFICIARY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CUST_GRP_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_GRP_BENEFICIARY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Importiert", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Importiert", 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].[tblIDS_Transaktionen] SET [BC_ID] = @BC_ID, [BC_DESCR] = @BC_DESCR,"& _ " [CLUB_ID] = @CLUB_ID, [COU_ISO_COD] = @COU_ISO_COD, [COU_DESCR] = @COU_DESCR, ["& _ "CUST_COD] = @CUST_COD, [CUST_LEVEL] = @CUST_LEVEL, [CUST_NAME1] = @CUST_NAME1, ["& _ "CARD_SER_NUM] = @CARD_SER_NUM, [SOU_ISO_COD] = @SOU_ISO_COD, [SOU_DESCR] = @SOU_"& _ "DESCR, [TRS_NUM] = @TRS_NUM, [TRS_VERS_NUM] = @TRS_VERS_NUM, [OUT_COD] = @OUT_CO"& _ "D, [OUT_DESCR] = @OUT_DESCR, [OUT_GRP_COD] = @OUT_GRP_COD, [TRS_DATE] = @TRS_DAT"& _ "E, [TOT_QTY] = @TOT_QTY, [PROD_NUM] = @PROD_NUM, [PROD_DESCR] = @PROD_DESCR, [SE"& _ "RVICE_PROD_NUM] = @SERVICE_PROD_NUM, [SERVICE_PROD_DESCR] = @SERVICE_PROD_DESCR,"& _ " [SOU_CURR] = @SOU_CURR, [ORIG_LIST_PRICE] = @ORIG_LIST_PRICE, [ORIG_REBATE] = @"& _ "ORIG_REBATE, [ORIG_PRICE] = @ORIG_PRICE, [PLATTS_PRICE] = @PLATTS_PRICE, [SC_BC_"& _ "RATE] = @SC_BC_RATE, [SC_IV_BC_AMNT] = @SC_IV_BC_AMNT, [COU_BENEFICIARY_CURR] = "& _ "@COU_BENEFICIARY_CURR, [CO_IV_BC_AMNT] = @CO_IV_BC_AMNT, [EUR_IV_BC_AMNT] = @EUR"& _ "_IV_BC_AMNT, [SC_CO_EXCHRATE] = @SC_CO_EXCHRATE, [SC_EUR_EXCHRATE] = @SC_EUR_EXC"& _ "HRATE, [BC_INVO_DATE] = @BC_INVO_DATE, [INVO_NUM] = @INVO_NUM, [FIXED_OR_TOTAL] "& _ "= @FIXED_OR_TOTAL, [BC_TYPE] = @BC_TYPE, [COU_BENEFICIARY] = @COU_BENEFICIARY, ["& _ "CUST_BENEFICIARY] = @CUST_BENEFICIARY, [LEVEL_BENEFICIARY] = @LEVEL_BENEFICIARY,"& _ " [CUST_GRP_BENEFICIARY] = @CUST_GRP_BENEFICIARY, [Importiert] = @Importiert WHER"& _ "E (([Id] = @Original_Id) AND ((@IsNull_BC_ID = 1 AND [BC_ID] IS NULL) OR ([BC_ID"& _ "] = @Original_BC_ID)) AND ((@IsNull_BC_DESCR = 1 AND [BC_DESCR] IS NULL) OR ([BC"& _ "_DESCR] = @Original_BC_DESCR)) AND ((@IsNull_CLUB_ID = 1 AND [CLUB_ID] IS NULL) "& _ "OR ([CLUB_ID] = @Original_CLUB_ID)) AND ((@IsNull_COU_ISO_COD = 1 AND [COU_ISO_C"& _ "OD] IS NULL) OR ([COU_ISO_COD] = @Original_COU_ISO_COD)) AND ((@IsNull_COU_DESCR"& _ " = 1 AND [COU_DESCR] IS NULL) OR ([COU_DESCR] = @Original_COU_DESCR)) AND ((@IsN"& _ "ull_CUST_COD = 1 AND [CUST_COD] IS NULL) OR ([CUST_COD] = @Original_CUST_COD)) A"& _ "ND ((@IsNull_CUST_LEVEL = 1 AND [CUST_LEVEL] IS NULL) OR ([CUST_LEVEL] = @Origin"& _ "al_CUST_LEVEL)) AND ((@IsNull_CUST_NAME1 = 1 AND [CUST_NAME1] IS NULL) OR ([CUST"& _ "_NAME1] = @Original_CUST_NAME1)) AND ((@IsNull_CARD_SER_NUM = 1 AND [CARD_SER_NU"& _ "M] IS NULL) OR ([CARD_SER_NUM] = @Original_CARD_SER_NUM)) AND ((@IsNull_SOU_ISO_"& _ "COD = 1 AND [SOU_ISO_COD] IS NULL) OR ([SOU_ISO_COD] = @Original_SOU_ISO_COD)) A"& _ "ND ((@IsNull_SOU_DESCR = 1 AND [SOU_DESCR] IS NULL) OR ([SOU_DESCR] = @Original_"& _ "SOU_DESCR)) AND ((@IsNull_TRS_NUM = 1 AND [TRS_NUM] IS NULL) OR ([TRS_NUM] = @Or"& _ "iginal_TRS_NUM)) AND ((@IsNull_TRS_VERS_NUM = 1 AND [TRS_VERS_NUM] IS NULL) OR ("& _ "[TRS_VERS_NUM] = @Original_TRS_VERS_NUM)) AND ((@IsNull_OUT_COD = 1 AND [OUT_COD"& _ "] IS NULL) OR ([OUT_COD] = @Original_OUT_COD)) AND ((@IsNull_OUT_DESCR = 1 AND ["& _ "OUT_DESCR] IS NULL) OR ([OUT_DESCR] = @Original_OUT_DESCR)) AND ((@IsNull_OUT_GR"& _ "P_COD = 1 AND [OUT_GRP_COD] IS NULL) OR ([OUT_GRP_COD] = @Original_OUT_GRP_COD))"& _ " AND ((@IsNull_TRS_DATE = 1 AND [TRS_DATE] IS NULL) OR ([TRS_DATE] = @Original_T"& _ "RS_DATE)) AND ((@IsNull_TOT_QTY = 1 AND [TOT_QTY] IS NULL) OR ([TOT_QTY] = @Orig"& _ "inal_TOT_QTY)) AND ((@IsNull_PROD_NUM = 1 AND [PROD_NUM] IS NULL) OR ([PROD_NUM]"& _ " = @Original_PROD_NUM)) AND ((@IsNull_PROD_DESCR = 1 AND [PROD_DESCR] IS NULL) O"& _ "R ([PROD_DESCR] = @Original_PROD_DESCR)) AND ((@IsNull_SERVICE_PROD_NUM = 1 AND "& _ "[SERVICE_PROD_NUM] IS NULL) OR ([SERVICE_PROD_NUM] = @Original_SERVICE_PROD_NUM)"& _ ") AND ((@IsNull_SERVICE_PROD_DESCR = 1 AND [SERVICE_PROD_DESCR] IS NULL) OR ([SE"& _ "RVICE_PROD_DESCR] = @Original_SERVICE_PROD_DESCR)) AND ((@IsNull_SOU_CURR = 1 AN"& _ "D [SOU_CURR] IS NULL) OR ([SOU_CURR] = @Original_SOU_CURR)) AND ((@IsNull_ORIG_L"& _ "IST_PRICE = 1 AND [ORIG_LIST_PRICE] IS NULL) OR ([ORIG_LIST_PRICE] = @Original_O"& _ "RIG_LIST_PRICE)) AND ((@IsNull_ORIG_REBATE = 1 AND [ORIG_REBATE] IS NULL) OR ([O"& _ "RIG_REBATE] = @Original_ORIG_REBATE)) AND ((@IsNull_ORIG_PRICE = 1 AND [ORIG_PRI"& _ "CE] IS NULL) OR ([ORIG_PRICE] = @Original_ORIG_PRICE)) AND ((@IsNull_PLATTS_PRIC"& _ "E = 1 AND [PLATTS_PRICE] IS NULL) OR ([PLATTS_PRICE] = @Original_PLATTS_PRICE)) "& _ "AND ((@IsNull_SC_BC_RATE = 1 AND [SC_BC_RATE] IS NULL) OR ([SC_BC_RATE] = @Origi"& _ "nal_SC_BC_RATE)) AND ((@IsNull_SC_IV_BC_AMNT = 1 AND [SC_IV_BC_AMNT] IS NULL) OR"& _ " ([SC_IV_BC_AMNT] = @Original_SC_IV_BC_AMNT)) AND ((@IsNull_COU_BENEFICIARY_CURR"& _ " = 1 AND [COU_BENEFICIARY_CURR] IS NULL) OR ([COU_BENEFICIARY_CURR] = @Original_"& _ "COU_BENEFICIARY_CURR)) AND ((@IsNull_CO_IV_BC_AMNT = 1 AND [CO_IV_BC_AMNT] IS NU"& _ "LL) OR ([CO_IV_BC_AMNT] = @Original_CO_IV_BC_AMNT)) AND ((@IsNull_EUR_IV_BC_AMNT"& _ " = 1 AND [EUR_IV_BC_AMNT] IS NULL) OR ([EUR_IV_BC_AMNT] = @Original_EUR_IV_BC_AM"& _ "NT)) AND ((@IsNull_SC_CO_EXCHRATE = 1 AND [SC_CO_EXCHRATE] IS NULL) OR ([SC_CO_E"& _ "XCHRATE] = @Original_SC_CO_EXCHRATE)) AND ((@IsNull_SC_EUR_EXCHRATE = 1 AND [SC_"& _ "EUR_EXCHRATE] IS NULL) OR ([SC_EUR_EXCHRATE] = @Original_SC_EUR_EXCHRATE)) AND ("& _ "(@IsNull_BC_INVO_DATE = 1 AND [BC_INVO_DATE] IS NULL) OR ([BC_INVO_DATE] = @Orig"& _ "inal_BC_INVO_DATE)) AND ((@IsNull_INVO_NUM = 1 AND [INVO_NUM] IS NULL) OR ([INVO"& _ "_NUM] = @Original_INVO_NUM)) AND ((@IsNull_FIXED_OR_TOTAL = 1 AND [FIXED_OR_TOTA"& _ "L] IS NULL) OR ([FIXED_OR_TOTAL] = @Original_FIXED_OR_TOTAL)) AND ((@IsNull_BC_T"& _ "YPE = 1 AND [BC_TYPE] IS NULL) OR ([BC_TYPE] = @Original_BC_TYPE)) AND ((@IsNull"& _ "_COU_BENEFICIARY = 1 AND [COU_BENEFICIARY] IS NULL) OR ([COU_BENEFICIARY] = @Ori"& _ "ginal_COU_BENEFICIARY)) AND ((@IsNull_CUST_BENEFICIARY = 1 AND [CUST_BENEFICIARY"& _ "] IS NULL) OR ([CUST_BENEFICIARY] = @Original_CUST_BENEFICIARY)) AND ((@IsNull_L"& _ "EVEL_BENEFICIARY = 1 AND [LEVEL_BENEFICIARY] IS NULL) OR ([LEVEL_BENEFICIARY] = "& _ "@Original_LEVEL_BENEFICIARY)) AND ((@IsNull_CUST_GRP_BENEFICIARY = 1 AND [CUST_G"& _ "RP_BENEFICIARY] IS NULL) OR ([CUST_GRP_BENEFICIARY] = @Original_CUST_GRP_BENEFIC"& _ "IARY)) AND ([Importiert] = @Original_Importiert));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, BC_ID, BC_DESCR, "& _ "CLUB_ID, COU_ISO_COD, COU_DESCR, CUST_COD, CUST_LEVEL, CUST_NAME1, CARD_SER_NUM,"& _ " SOU_ISO_COD, SOU_DESCR, TRS_NUM, TRS_VERS_NUM, OUT_COD, OUT_DESCR, OUT_GRP_COD,"& _ " TRS_DATE, TOT_QTY, PROD_NUM, PROD_DESCR, SERVICE_PROD_NUM, SERVICE_PROD_DESCR, "& _ "SOU_CURR, ORIG_LIST_PRICE, ORIG_REBATE, ORIG_PRICE, PLATTS_PRICE, SC_BC_RATE, SC"& _ "_IV_BC_AMNT, COU_BENEFICIARY_CURR, CO_IV_BC_AMNT, EUR_IV_BC_AMNT, SC_CO_EXCHRATE"& _ ", SC_EUR_EXCHRATE, BC_INVO_DATE, INVO_NUM, FIXED_OR_TOTAL, BC_TYPE, COU_BENEFICI"& _ "ARY, CUST_BENEFICIARY, LEVEL_BENEFICIARY, CUST_GRP_BENEFICIARY, Importiert FROM "& _ "tblIDS_Transaktionen WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BC_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BC_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLUB_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLUB_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COU_ISO_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_ISO_COD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COU_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CUST_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_COD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CUST_LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_LEVEL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CUST_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CARD_SER_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CARD_SER_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SOU_ISO_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_ISO_COD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SOU_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TRS_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TRS_VERS_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_VERS_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OUT_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_COD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OUT_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OUT_GRP_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_GRP_COD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TRS_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOT_QTY", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "TOT_QTY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROD_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROD_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVICE_PROD_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVICE_PROD_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_DESCR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SOU_CURR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_CURR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ORIG_LIST_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "ORIG_LIST_PRICE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ORIG_REBATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 4, "ORIG_REBATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ORIG_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 4, "ORIG_PRICE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PLATTS_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "PLATTS_PRICE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SC_BC_RATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "SC_BC_RATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SC_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "SC_IV_BC_AMNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COU_BENEFICIARY_CURR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY_CURR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CO_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "CO_IV_BC_AMNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EUR_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "EUR_IV_BC_AMNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SC_CO_EXCHRATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 8, "SC_CO_EXCHRATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SC_EUR_EXCHRATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 8, "SC_EUR_EXCHRATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BC_INVO_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_INVO_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INVO_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INVO_NUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FIXED_OR_TOTAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_OR_TOTAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BC_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COU_BENEFICIARY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CUST_BENEFICIARY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_BENEFICIARY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL_BENEFICIARY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CUST_GRP_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_GRP_BENEFICIARY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Importiert", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Importiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BC_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BC_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BC_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BC_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CLUB_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLUB_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLUB_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLUB_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COU_ISO_COD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_ISO_COD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COU_ISO_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_ISO_COD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COU_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COU_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CUST_COD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_COD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CUST_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_COD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CUST_LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_LEVEL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CUST_LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_LEVEL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CUST_NAME1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_NAME1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CUST_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CARD_SER_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CARD_SER_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CARD_SER_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CARD_SER_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SOU_ISO_COD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_ISO_COD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SOU_ISO_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_ISO_COD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SOU_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SOU_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TRS_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TRS_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TRS_VERS_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_VERS_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TRS_VERS_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_VERS_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OUT_COD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_COD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OUT_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_COD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OUT_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OUT_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OUT_GRP_COD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_GRP_COD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OUT_GRP_COD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OUT_GRP_COD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TRS_DATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_DATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TRS_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRS_DATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TOT_QTY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOT_QTY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOT_QTY", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "TOT_QTY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PROD_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROD_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PROD_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROD_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROD_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVICE_PROD_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVICE_PROD_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVICE_PROD_DESCR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_DESCR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVICE_PROD_DESCR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVICE_PROD_DESCR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SOU_CURR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_CURR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SOU_CURR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SOU_CURR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ORIG_LIST_PRICE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ORIG_LIST_PRICE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ORIG_LIST_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "ORIG_LIST_PRICE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ORIG_REBATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ORIG_REBATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ORIG_REBATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 4, "ORIG_REBATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ORIG_PRICE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ORIG_PRICE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ORIG_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 4, "ORIG_PRICE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PLATTS_PRICE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PLATTS_PRICE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PLATTS_PRICE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 6, "PLATTS_PRICE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SC_BC_RATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SC_BC_RATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SC_BC_RATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "SC_BC_RATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SC_IV_BC_AMNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SC_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SC_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "SC_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COU_BENEFICIARY_CURR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY_CURR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COU_BENEFICIARY_CURR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY_CURR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CO_IV_BC_AMNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CO_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CO_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "CO_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EUR_IV_BC_AMNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EUR_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EUR_IV_BC_AMNT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 4, "EUR_IV_BC_AMNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SC_CO_EXCHRATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SC_CO_EXCHRATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SC_CO_EXCHRATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 8, "SC_CO_EXCHRATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SC_EUR_EXCHRATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SC_EUR_EXCHRATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SC_EUR_EXCHRATE", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 8, "SC_EUR_EXCHRATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BC_INVO_DATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_INVO_DATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BC_INVO_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_INVO_DATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_INVO_NUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INVO_NUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INVO_NUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INVO_NUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FIXED_OR_TOTAL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_OR_TOTAL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FIXED_OR_TOTAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_OR_TOTAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BC_TYPE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_TYPE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BC_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BC_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COU_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COU_BENEFICIARY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COU_BENEFICIARY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CUST_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_BENEFICIARY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CUST_BENEFICIARY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_BENEFICIARY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LEVEL_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL_BENEFICIARY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL_BENEFICIARY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CUST_GRP_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_GRP_BENEFICIARY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CUST_GRP_BENEFICIARY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CUST_GRP_BENEFICIARY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Importiert", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Importiert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, BC_ID, BC_DESCR, CLUB_ID, COU_ISO_COD, COU_DESCR, CUST_COD, CUST_LEVEL"& _ ", CUST_NAME1, CARD_SER_NUM, SOU_ISO_COD, SOU_DESCR, TRS_NUM, TRS_VERS_NUM, OUT_C"& _ "OD, OUT_DESCR, OUT_GRP_COD, TRS_DATE, TOT_QTY, PROD_NUM, PROD_DESCR, SERVICE_PRO"& _ "D_NUM, SERVICE_PROD_DESCR, SOU_CURR, ORIG_LIST_PRICE, ORIG_REBATE, ORIG_PRICE, P"& _ "LATTS_PRICE, SC_BC_RATE, SC_IV_BC_AMNT, COU_BENEFICIARY_CURR, CO_IV_BC_AMNT, EUR"& _ "_IV_BC_AMNT, SC_CO_EXCHRATE, SC_EUR_EXCHRATE, BC_INVO_DATE, INVO_NUM, FIXED_OR_T"& _ "OTAL, BC_TYPE, COU_BENEFICIARY, CUST_BENEFICIARY, LEVEL_BENEFICIARY, CUST_GRP_BE"& _ "NEFICIARY, Importiert FROM dbo.tblIDS_Transaktionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblIDS_TransaktionenDataTable) 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 VERAGDataSet.tblIDS_TransaktionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblIDS_TransaktionenDataTable = New VERAGDataSet.tblIDS_TransaktionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblIDS_TransaktionenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblIDS_Transaktionen") 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_Id As Integer, _ ByVal Original_BC_ID As Global.System.Nullable(Of Integer), _ ByVal Original_BC_DESCR As String, _ ByVal Original_CLUB_ID As Global.System.Nullable(Of Integer), _ ByVal Original_COU_ISO_COD As String, _ ByVal Original_COU_DESCR As String, _ ByVal Original_CUST_COD As String, _ ByVal Original_CUST_LEVEL As Global.System.Nullable(Of Integer), _ ByVal Original_CUST_NAME1 As String, _ ByVal Original_CARD_SER_NUM As String, _ ByVal Original_SOU_ISO_COD As String, _ ByVal Original_SOU_DESCR As String, _ ByVal Original_TRS_NUM As String, _ ByVal Original_TRS_VERS_NUM As String, _ ByVal Original_OUT_COD As String, _ ByVal Original_OUT_DESCR As String, _ ByVal Original_OUT_GRP_COD As String, _ ByVal Original_TRS_DATE As Global.System.Nullable(Of Date), _ ByVal Original_TOT_QTY As Global.System.Nullable(Of Decimal), _ ByVal Original_PROD_NUM As String, _ ByVal Original_PROD_DESCR As String, _ ByVal Original_SERVICE_PROD_NUM As String, _ ByVal Original_SERVICE_PROD_DESCR As String, _ ByVal Original_SOU_CURR As String, _ ByVal Original_ORIG_LIST_PRICE As Global.System.Nullable(Of Decimal), _ ByVal Original_ORIG_REBATE As Global.System.Nullable(Of Decimal), _ ByVal Original_ORIG_PRICE As Global.System.Nullable(Of Decimal), _ ByVal Original_PLATTS_PRICE As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_BC_RATE As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal Original_COU_BENEFICIARY_CURR As String, _ ByVal Original_CO_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal Original_EUR_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_CO_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_EUR_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal Original_BC_INVO_DATE As Global.System.Nullable(Of Date), _ ByVal Original_INVO_NUM As String, _ ByVal Original_FIXED_OR_TOTAL As String, _ ByVal Original_BC_TYPE As String, _ ByVal Original_COU_BENEFICIARY As String, _ ByVal Original_CUST_BENEFICIARY As String, _ ByVal Original_LEVEL_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal Original_CUST_GRP_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal Original_Importiert As Date) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) If (Original_BC_ID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_BC_ID.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_BC_DESCR 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_BC_DESCR,String) End If If (Original_CLUB_ID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CLUB_ID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_COU_ISO_COD 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_COU_ISO_COD,String) End If If (Original_COU_DESCR 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_COU_DESCR,String) End If If (Original_CUST_COD 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_CUST_COD,String) End If If (Original_CUST_LEVEL.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CUST_LEVEL.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_CUST_NAME1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CUST_NAME1,String) End If If (Original_CARD_SER_NUM Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CARD_SER_NUM,String) End If If (Original_SOU_ISO_COD Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_SOU_ISO_COD,String) End If If (Original_SOU_DESCR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_SOU_DESCR,String) End If If (Original_TRS_NUM Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_TRS_NUM,String) End If If (Original_TRS_VERS_NUM Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_TRS_VERS_NUM,String) End If If (Original_OUT_COD Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_OUT_COD,String) End If If (Original_OUT_DESCR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_OUT_DESCR,String) End If If (Original_OUT_GRP_COD Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_OUT_GRP_COD,String) End If If (Original_TRS_DATE.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_TRS_DATE.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_TOT_QTY.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_TOT_QTY.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Original_PROD_NUM Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_PROD_NUM,String) End If If (Original_PROD_DESCR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_PROD_DESCR,String) End If If (Original_SERVICE_PROD_NUM Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_SERVICE_PROD_NUM,String) End If If (Original_SERVICE_PROD_DESCR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_SERVICE_PROD_DESCR,String) End If If (Original_SOU_CURR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_SOU_CURR,String) End If If (Original_ORIG_LIST_PRICE.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_ORIG_LIST_PRICE.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Original_ORIG_REBATE.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_ORIG_REBATE.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Original_ORIG_PRICE.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_ORIG_PRICE.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Original_PLATTS_PRICE.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_PLATTS_PRICE.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Original_SC_BC_RATE.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_SC_BC_RATE.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Original_SC_IV_BC_AMNT.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_SC_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value End If If (Original_COU_BENEFICIARY_CURR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_COU_BENEFICIARY_CURR,String) End If If (Original_CO_IV_BC_AMNT.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_CO_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (Original_EUR_IV_BC_AMNT.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_EUR_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Original_SC_CO_EXCHRATE.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_SC_CO_EXCHRATE.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (Original_SC_EUR_EXCHRATE.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_SC_EUR_EXCHRATE.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (Original_BC_INVO_DATE.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_BC_INVO_DATE.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Original_INVO_NUM Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_INVO_NUM,String) End If If (Original_FIXED_OR_TOTAL Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_FIXED_OR_TOTAL,String) End If If (Original_BC_TYPE Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_BC_TYPE,String) End If If (Original_COU_BENEFICIARY Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_COU_BENEFICIARY,String) End If If (Original_CUST_BENEFICIARY Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_CUST_BENEFICIARY,String) End If If (Original_LEVEL_BENEFICIARY.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_LEVEL_BENEFICIARY.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (Original_CUST_GRP_BENEFICIARY.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_CUST_GRP_BENEFICIARY.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(85).Value = CType(Original_Importiert,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 BC_ID As Global.System.Nullable(Of Integer), _ ByVal BC_DESCR As String, _ ByVal CLUB_ID As Global.System.Nullable(Of Integer), _ ByVal COU_ISO_COD As String, _ ByVal COU_DESCR As String, _ ByVal CUST_COD As String, _ ByVal CUST_LEVEL As Global.System.Nullable(Of Integer), _ ByVal CUST_NAME1 As String, _ ByVal CARD_SER_NUM As String, _ ByVal SOU_ISO_COD As String, _ ByVal SOU_DESCR As String, _ ByVal TRS_NUM As String, _ ByVal TRS_VERS_NUM As String, _ ByVal OUT_COD As String, _ ByVal OUT_DESCR As String, _ ByVal OUT_GRP_COD As String, _ ByVal TRS_DATE As Global.System.Nullable(Of Date), _ ByVal TOT_QTY As Global.System.Nullable(Of Decimal), _ ByVal PROD_NUM As String, _ ByVal PROD_DESCR As String, _ ByVal SERVICE_PROD_NUM As String, _ ByVal SERVICE_PROD_DESCR As String, _ ByVal SOU_CURR As String, _ ByVal ORIG_LIST_PRICE As Global.System.Nullable(Of Decimal), _ ByVal ORIG_REBATE As Global.System.Nullable(Of Decimal), _ ByVal ORIG_PRICE As Global.System.Nullable(Of Decimal), _ ByVal PLATTS_PRICE As Global.System.Nullable(Of Decimal), _ ByVal SC_BC_RATE As Global.System.Nullable(Of Decimal), _ ByVal SC_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal COU_BENEFICIARY_CURR As String, _ ByVal CO_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal EUR_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal SC_CO_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal SC_EUR_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal BC_INVO_DATE As Global.System.Nullable(Of Date), _ ByVal INVO_NUM As String, _ ByVal FIXED_OR_TOTAL As String, _ ByVal BC_TYPE As String, _ ByVal COU_BENEFICIARY As String, _ ByVal CUST_BENEFICIARY As String, _ ByVal LEVEL_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal CUST_GRP_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal Importiert As Date) As Integer If (BC_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(BC_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (BC_DESCR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(BC_DESCR,String) End If If (CLUB_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(CLUB_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (COU_ISO_COD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(COU_ISO_COD,String) End If If (COU_DESCR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(COU_DESCR,String) End If If (CUST_COD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(CUST_COD,String) End If If (CUST_LEVEL.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(CUST_LEVEL.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (CUST_NAME1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(CUST_NAME1,String) End If If (CARD_SER_NUM Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(CARD_SER_NUM,String) End If If (SOU_ISO_COD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(SOU_ISO_COD,String) End If If (SOU_DESCR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(SOU_DESCR,String) End If If (TRS_NUM Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(TRS_NUM,String) End If If (TRS_VERS_NUM Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(TRS_VERS_NUM,String) End If If (OUT_COD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(OUT_COD,String) End If If (OUT_DESCR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(OUT_DESCR,String) End If If (OUT_GRP_COD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(OUT_GRP_COD,String) End If If (TRS_DATE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(TRS_DATE.Value,Date) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (TOT_QTY.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(TOT_QTY.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (PROD_NUM Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(PROD_NUM,String) End If If (PROD_DESCR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(PROD_DESCR,String) End If If (SERVICE_PROD_NUM Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(SERVICE_PROD_NUM,String) End If If (SERVICE_PROD_DESCR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(SERVICE_PROD_DESCR,String) End If If (SOU_CURR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(SOU_CURR,String) End If If (ORIG_LIST_PRICE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(ORIG_LIST_PRICE.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (ORIG_REBATE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(ORIG_REBATE.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (ORIG_PRICE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(ORIG_PRICE.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (PLATTS_PRICE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(PLATTS_PRICE.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (SC_BC_RATE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(SC_BC_RATE.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (SC_IV_BC_AMNT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(SC_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (COU_BENEFICIARY_CURR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(COU_BENEFICIARY_CURR,String) End If If (CO_IV_BC_AMNT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(CO_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (EUR_IV_BC_AMNT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(EUR_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (SC_CO_EXCHRATE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(SC_CO_EXCHRATE.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (SC_EUR_EXCHRATE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(SC_EUR_EXCHRATE.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (BC_INVO_DATE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(BC_INVO_DATE.Value,Date) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (INVO_NUM Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(INVO_NUM,String) End If If (FIXED_OR_TOTAL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(FIXED_OR_TOTAL,String) End If If (BC_TYPE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(BC_TYPE,String) End If If (COU_BENEFICIARY Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(COU_BENEFICIARY,String) End If If (CUST_BENEFICIARY Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(CUST_BENEFICIARY,String) End If If (LEVEL_BENEFICIARY.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(LEVEL_BENEFICIARY.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (CUST_GRP_BENEFICIARY.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(41).Value = CType(CUST_GRP_BENEFICIARY.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(42).Value = CType(Importiert,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 BC_ID As Global.System.Nullable(Of Integer), _ ByVal BC_DESCR As String, _ ByVal CLUB_ID As Global.System.Nullable(Of Integer), _ ByVal COU_ISO_COD As String, _ ByVal COU_DESCR As String, _ ByVal CUST_COD As String, _ ByVal CUST_LEVEL As Global.System.Nullable(Of Integer), _ ByVal CUST_NAME1 As String, _ ByVal CARD_SER_NUM As String, _ ByVal SOU_ISO_COD As String, _ ByVal SOU_DESCR As String, _ ByVal TRS_NUM As String, _ ByVal TRS_VERS_NUM As String, _ ByVal OUT_COD As String, _ ByVal OUT_DESCR As String, _ ByVal OUT_GRP_COD As String, _ ByVal TRS_DATE As Global.System.Nullable(Of Date), _ ByVal TOT_QTY As Global.System.Nullable(Of Decimal), _ ByVal PROD_NUM As String, _ ByVal PROD_DESCR As String, _ ByVal SERVICE_PROD_NUM As String, _ ByVal SERVICE_PROD_DESCR As String, _ ByVal SOU_CURR As String, _ ByVal ORIG_LIST_PRICE As Global.System.Nullable(Of Decimal), _ ByVal ORIG_REBATE As Global.System.Nullable(Of Decimal), _ ByVal ORIG_PRICE As Global.System.Nullable(Of Decimal), _ ByVal PLATTS_PRICE As Global.System.Nullable(Of Decimal), _ ByVal SC_BC_RATE As Global.System.Nullable(Of Decimal), _ ByVal SC_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal COU_BENEFICIARY_CURR As String, _ ByVal CO_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal EUR_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal SC_CO_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal SC_EUR_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal BC_INVO_DATE As Global.System.Nullable(Of Date), _ ByVal INVO_NUM As String, _ ByVal FIXED_OR_TOTAL As String, _ ByVal BC_TYPE As String, _ ByVal COU_BENEFICIARY As String, _ ByVal CUST_BENEFICIARY As String, _ ByVal LEVEL_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal CUST_GRP_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal Importiert As Date, _ ByVal Original_Id As Integer, _ ByVal Original_BC_ID As Global.System.Nullable(Of Integer), _ ByVal Original_BC_DESCR As String, _ ByVal Original_CLUB_ID As Global.System.Nullable(Of Integer), _ ByVal Original_COU_ISO_COD As String, _ ByVal Original_COU_DESCR As String, _ ByVal Original_CUST_COD As String, _ ByVal Original_CUST_LEVEL As Global.System.Nullable(Of Integer), _ ByVal Original_CUST_NAME1 As String, _ ByVal Original_CARD_SER_NUM As String, _ ByVal Original_SOU_ISO_COD As String, _ ByVal Original_SOU_DESCR As String, _ ByVal Original_TRS_NUM As String, _ ByVal Original_TRS_VERS_NUM As String, _ ByVal Original_OUT_COD As String, _ ByVal Original_OUT_DESCR As String, _ ByVal Original_OUT_GRP_COD As String, _ ByVal Original_TRS_DATE As Global.System.Nullable(Of Date), _ ByVal Original_TOT_QTY As Global.System.Nullable(Of Decimal), _ ByVal Original_PROD_NUM As String, _ ByVal Original_PROD_DESCR As String, _ ByVal Original_SERVICE_PROD_NUM As String, _ ByVal Original_SERVICE_PROD_DESCR As String, _ ByVal Original_SOU_CURR As String, _ ByVal Original_ORIG_LIST_PRICE As Global.System.Nullable(Of Decimal), _ ByVal Original_ORIG_REBATE As Global.System.Nullable(Of Decimal), _ ByVal Original_ORIG_PRICE As Global.System.Nullable(Of Decimal), _ ByVal Original_PLATTS_PRICE As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_BC_RATE As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal Original_COU_BENEFICIARY_CURR As String, _ ByVal Original_CO_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal Original_EUR_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_CO_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_EUR_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal Original_BC_INVO_DATE As Global.System.Nullable(Of Date), _ ByVal Original_INVO_NUM As String, _ ByVal Original_FIXED_OR_TOTAL As String, _ ByVal Original_BC_TYPE As String, _ ByVal Original_COU_BENEFICIARY As String, _ ByVal Original_CUST_BENEFICIARY As String, _ ByVal Original_LEVEL_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal Original_CUST_GRP_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal Original_Importiert As Date, _ ByVal Id As Integer) As Integer If (BC_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BC_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (BC_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BC_DESCR,String) End If If (CLUB_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CLUB_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (COU_ISO_COD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COU_ISO_COD,String) End If If (COU_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COU_DESCR,String) End If If (CUST_COD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CUST_COD,String) End If If (CUST_LEVEL.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CUST_LEVEL.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (CUST_NAME1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CUST_NAME1,String) End If If (CARD_SER_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CARD_SER_NUM,String) End If If (SOU_ISO_COD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SOU_ISO_COD,String) End If If (SOU_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SOU_DESCR,String) End If If (TRS_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TRS_NUM,String) End If If (TRS_VERS_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TRS_VERS_NUM,String) End If If (OUT_COD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(OUT_COD,String) End If If (OUT_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(OUT_DESCR,String) End If If (OUT_GRP_COD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(OUT_GRP_COD,String) End If If (TRS_DATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(TRS_DATE.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (TOT_QTY.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(TOT_QTY.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (PROD_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PROD_NUM,String) End If If (PROD_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(PROD_DESCR,String) End If If (SERVICE_PROD_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(SERVICE_PROD_NUM,String) End If If (SERVICE_PROD_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(SERVICE_PROD_DESCR,String) End If If (SOU_CURR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(SOU_CURR,String) End If If (ORIG_LIST_PRICE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(ORIG_LIST_PRICE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (ORIG_REBATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(ORIG_REBATE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (ORIG_PRICE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(ORIG_PRICE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (PLATTS_PRICE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(PLATTS_PRICE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (SC_BC_RATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(SC_BC_RATE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (SC_IV_BC_AMNT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(SC_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (COU_BENEFICIARY_CURR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(COU_BENEFICIARY_CURR,String) End If If (CO_IV_BC_AMNT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(CO_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (EUR_IV_BC_AMNT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(EUR_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (SC_CO_EXCHRATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(SC_CO_EXCHRATE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (SC_EUR_EXCHRATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(SC_EUR_EXCHRATE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (BC_INVO_DATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(BC_INVO_DATE.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (INVO_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(INVO_NUM,String) End If If (FIXED_OR_TOTAL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(FIXED_OR_TOTAL,String) End If If (BC_TYPE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(BC_TYPE,String) End If If (COU_BENEFICIARY Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(COU_BENEFICIARY,String) End If If (CUST_BENEFICIARY Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(CUST_BENEFICIARY,String) End If If (LEVEL_BENEFICIARY.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(LEVEL_BENEFICIARY.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (CUST_GRP_BENEFICIARY.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(CUST_GRP_BENEFICIARY.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Importiert,Date) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_Id,Integer) If (Original_BC_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_BC_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Original_BC_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_BC_DESCR,String) End If If (Original_CLUB_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_CLUB_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Original_COU_ISO_COD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_COU_ISO_COD,String) End If If (Original_COU_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_COU_DESCR,String) End If If (Original_CUST_COD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_CUST_COD,String) End If If (Original_CUST_LEVEL.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_CUST_LEVEL.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (Original_CUST_NAME1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_CUST_NAME1,String) End If If (Original_CARD_SER_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_CARD_SER_NUM,String) End If If (Original_SOU_ISO_COD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_SOU_ISO_COD,String) End If If (Original_SOU_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_SOU_DESCR,String) End If If (Original_TRS_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_TRS_NUM,String) End If If (Original_TRS_VERS_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_TRS_VERS_NUM,String) End If If (Original_OUT_COD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_OUT_COD,String) End If If (Original_OUT_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_OUT_DESCR,String) End If If (Original_OUT_GRP_COD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_OUT_GRP_COD,String) End If If (Original_TRS_DATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_TRS_DATE.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (Original_TOT_QTY.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_TOT_QTY.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (Original_PROD_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_PROD_NUM,String) End If If (Original_PROD_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_PROD_DESCR,String) End If If (Original_SERVICE_PROD_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_SERVICE_PROD_NUM,String) End If If (Original_SERVICE_PROD_DESCR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_SERVICE_PROD_DESCR,String) End If If (Original_SOU_CURR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_SOU_CURR,String) End If If (Original_ORIG_LIST_PRICE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_ORIG_LIST_PRICE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value End If If (Original_ORIG_REBATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_ORIG_REBATE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value End If If (Original_ORIG_PRICE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_ORIG_PRICE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value End If If (Original_PLATTS_PRICE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_PLATTS_PRICE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value End If If (Original_SC_BC_RATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_SC_BC_RATE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value End If If (Original_SC_IV_BC_AMNT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = CType(Original_SC_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value End If If (Original_COU_BENEFICIARY_CURR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(103).Value = CType(Original_COU_BENEFICIARY_CURR,String) End If If (Original_CO_IV_BC_AMNT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_CO_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value End If If (Original_EUR_IV_BC_AMNT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(107).Value = CType(Original_EUR_IV_BC_AMNT.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value End If If (Original_SC_CO_EXCHRATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(109).Value = CType(Original_SC_CO_EXCHRATE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value End If If (Original_SC_EUR_EXCHRATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(111).Value = CType(Original_SC_EUR_EXCHRATE.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value End If If (Original_BC_INVO_DATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(113).Value = CType(Original_BC_INVO_DATE.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value End If If (Original_INVO_NUM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(115).Value = CType(Original_INVO_NUM,String) End If If (Original_FIXED_OR_TOTAL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(117).Value = CType(Original_FIXED_OR_TOTAL,String) End If If (Original_BC_TYPE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(119).Value = CType(Original_BC_TYPE,String) End If If (Original_COU_BENEFICIARY Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(121).Value = CType(Original_COU_BENEFICIARY,String) End If If (Original_CUST_BENEFICIARY Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(123).Value = CType(Original_CUST_BENEFICIARY,String) End If If (Original_LEVEL_BENEFICIARY.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(125).Value = CType(Original_LEVEL_BENEFICIARY.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value End If If (Original_CUST_GRP_BENEFICIARY.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(127).Value = CType(Original_CUST_GRP_BENEFICIARY.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(128).Value = CType(Original_Importiert,Date) Me.Adapter.UpdateCommand.Parameters(129).Value = CType(Id,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 BC_ID As Global.System.Nullable(Of Integer), _ ByVal BC_DESCR As String, _ ByVal CLUB_ID As Global.System.Nullable(Of Integer), _ ByVal COU_ISO_COD As String, _ ByVal COU_DESCR As String, _ ByVal CUST_COD As String, _ ByVal CUST_LEVEL As Global.System.Nullable(Of Integer), _ ByVal CUST_NAME1 As String, _ ByVal CARD_SER_NUM As String, _ ByVal SOU_ISO_COD As String, _ ByVal SOU_DESCR As String, _ ByVal TRS_NUM As String, _ ByVal TRS_VERS_NUM As String, _ ByVal OUT_COD As String, _ ByVal OUT_DESCR As String, _ ByVal OUT_GRP_COD As String, _ ByVal TRS_DATE As Global.System.Nullable(Of Date), _ ByVal TOT_QTY As Global.System.Nullable(Of Decimal), _ ByVal PROD_NUM As String, _ ByVal PROD_DESCR As String, _ ByVal SERVICE_PROD_NUM As String, _ ByVal SERVICE_PROD_DESCR As String, _ ByVal SOU_CURR As String, _ ByVal ORIG_LIST_PRICE As Global.System.Nullable(Of Decimal), _ ByVal ORIG_REBATE As Global.System.Nullable(Of Decimal), _ ByVal ORIG_PRICE As Global.System.Nullable(Of Decimal), _ ByVal PLATTS_PRICE As Global.System.Nullable(Of Decimal), _ ByVal SC_BC_RATE As Global.System.Nullable(Of Decimal), _ ByVal SC_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal COU_BENEFICIARY_CURR As String, _ ByVal CO_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal EUR_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal SC_CO_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal SC_EUR_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal BC_INVO_DATE As Global.System.Nullable(Of Date), _ ByVal INVO_NUM As String, _ ByVal FIXED_OR_TOTAL As String, _ ByVal BC_TYPE As String, _ ByVal COU_BENEFICIARY As String, _ ByVal CUST_BENEFICIARY As String, _ ByVal LEVEL_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal CUST_GRP_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal Importiert As Date, _ ByVal Original_Id As Integer, _ ByVal Original_BC_ID As Global.System.Nullable(Of Integer), _ ByVal Original_BC_DESCR As String, _ ByVal Original_CLUB_ID As Global.System.Nullable(Of Integer), _ ByVal Original_COU_ISO_COD As String, _ ByVal Original_COU_DESCR As String, _ ByVal Original_CUST_COD As String, _ ByVal Original_CUST_LEVEL As Global.System.Nullable(Of Integer), _ ByVal Original_CUST_NAME1 As String, _ ByVal Original_CARD_SER_NUM As String, _ ByVal Original_SOU_ISO_COD As String, _ ByVal Original_SOU_DESCR As String, _ ByVal Original_TRS_NUM As String, _ ByVal Original_TRS_VERS_NUM As String, _ ByVal Original_OUT_COD As String, _ ByVal Original_OUT_DESCR As String, _ ByVal Original_OUT_GRP_COD As String, _ ByVal Original_TRS_DATE As Global.System.Nullable(Of Date), _ ByVal Original_TOT_QTY As Global.System.Nullable(Of Decimal), _ ByVal Original_PROD_NUM As String, _ ByVal Original_PROD_DESCR As String, _ ByVal Original_SERVICE_PROD_NUM As String, _ ByVal Original_SERVICE_PROD_DESCR As String, _ ByVal Original_SOU_CURR As String, _ ByVal Original_ORIG_LIST_PRICE As Global.System.Nullable(Of Decimal), _ ByVal Original_ORIG_REBATE As Global.System.Nullable(Of Decimal), _ ByVal Original_ORIG_PRICE As Global.System.Nullable(Of Decimal), _ ByVal Original_PLATTS_PRICE As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_BC_RATE As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal Original_COU_BENEFICIARY_CURR As String, _ ByVal Original_CO_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal Original_EUR_IV_BC_AMNT As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_CO_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal Original_SC_EUR_EXCHRATE As Global.System.Nullable(Of Decimal), _ ByVal Original_BC_INVO_DATE As Global.System.Nullable(Of Date), _ ByVal Original_INVO_NUM As String, _ ByVal Original_FIXED_OR_TOTAL As String, _ ByVal Original_BC_TYPE As String, _ ByVal Original_COU_BENEFICIARY As String, _ ByVal Original_CUST_BENEFICIARY As String, _ ByVal Original_LEVEL_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal Original_CUST_GRP_BENEFICIARY As Global.System.Nullable(Of Integer), _ ByVal Original_Importiert As Date) As Integer Return Me.Update(BC_ID, BC_DESCR, CLUB_ID, COU_ISO_COD, COU_DESCR, CUST_COD, CUST_LEVEL, CUST_NAME1, CARD_SER_NUM, SOU_ISO_COD, SOU_DESCR, TRS_NUM, TRS_VERS_NUM, OUT_COD, OUT_DESCR, OUT_GRP_COD, TRS_DATE, TOT_QTY, PROD_NUM, PROD_DESCR, SERVICE_PROD_NUM, SERVICE_PROD_DESCR, SOU_CURR, ORIG_LIST_PRICE, ORIG_REBATE, ORIG_PRICE, PLATTS_PRICE, SC_BC_RATE, SC_IV_BC_AMNT, COU_BENEFICIARY_CURR, CO_IV_BC_AMNT, EUR_IV_BC_AMNT, SC_CO_EXCHRATE, SC_EUR_EXCHRATE, BC_INVO_DATE, INVO_NUM, FIXED_OR_TOTAL, BC_TYPE, COU_BENEFICIARY, CUST_BENEFICIARY, LEVEL_BENEFICIARY, CUST_GRP_BENEFICIARY, Importiert, Original_Id, Original_BC_ID, Original_BC_DESCR, Original_CLUB_ID, Original_COU_ISO_COD, Original_COU_DESCR, Original_CUST_COD, Original_CUST_LEVEL, Original_CUST_NAME1, Original_CARD_SER_NUM, Original_SOU_ISO_COD, Original_SOU_DESCR, Original_TRS_NUM, Original_TRS_VERS_NUM, Original_OUT_COD, Original_OUT_DESCR, Original_OUT_GRP_COD, Original_TRS_DATE, Original_TOT_QTY, Original_PROD_NUM, Original_PROD_DESCR, Original_SERVICE_PROD_NUM, Original_SERVICE_PROD_DESCR, Original_SOU_CURR, Original_ORIG_LIST_PRICE, Original_ORIG_REBATE, Original_ORIG_PRICE, Original_PLATTS_PRICE, Original_SC_BC_RATE, Original_SC_IV_BC_AMNT, Original_COU_BENEFICIARY_CURR, Original_CO_IV_BC_AMNT, Original_EUR_IV_BC_AMNT, Original_SC_CO_EXCHRATE, Original_SC_EUR_EXCHRATE, Original_BC_INVO_DATE, Original_INVO_NUM, Original_FIXED_OR_TOTAL, Original_BC_TYPE, Original_COU_BENEFICIARY, Original_CUST_BENEFICIARY, Original_LEVEL_BENEFICIARY, Original_CUST_GRP_BENEFICIARY, Original_Importiert, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKassenbuchTableAdapter 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 = "tblKassenbuch" tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("Benutzer", "Benutzer") tableMapping.ColumnMappings.Add("Geschäftsjahr", "Geschäftsjahr") tableMapping.ColumnMappings.Add("JournalNr", "JournalNr") tableMapping.ColumnMappings.Add("Buchungsdatum", "Buchungsdatum") tableMapping.ColumnMappings.Add("BelegDat", "BelegDat") tableMapping.ColumnMappings.Add("BelegNr", "BelegNr") tableMapping.ColumnMappings.Add("Belegart", "Belegart") tableMapping.ColumnMappings.Add("Buchungstext", "Buchungstext") tableMapping.ColumnMappings.Add("Betrag", "Betrag") tableMapping.ColumnMappings.Add("Währung", "Währung") tableMapping.ColumnMappings.Add("Kurs", "Kurs") tableMapping.ColumnMappings.Add("Eingabeart", "Eingabeart") tableMapping.ColumnMappings.Add("Konto", "Konto") tableMapping.ColumnMappings.Add("Soll", "Soll") tableMapping.ColumnMappings.Add("Haben", "Haben") tableMapping.ColumnMappings.Add("Steuer", "Steuer") tableMapping.ColumnMappings.Add("Steuerbetrag", "Steuerbetrag") tableMapping.ColumnMappings.Add("Referenz", "Referenz") tableMapping.ColumnMappings.Add("Belegverbuchung", "Belegverbuchung") tableMapping.ColumnMappings.Add("gebucht", "gebucht") tableMapping.ColumnMappings.Add("KB_Zeitstempel", "KB_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("rksv_id", "rksv_id") tableMapping.ColumnMappings.Add("rksv_BelegId", "rksv_BelegId") tableMapping.ColumnMappings.Add("rksv_aktiv", "rksv_aktiv") tableMapping.ColumnMappings.Add("Finanzwege", "Finanzwege") 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].[tblKassenbuch] WHERE (([Mandant] = @Original_Mandant) AND ([Ni"& _ "ederlassung] = @Original_Niederlassung) AND ([Benutzer] = @Original_Benutzer) AN"& _ "D ([Geschäftsjahr] = @Original_Geschäftsjahr) AND ([JournalNr] = @Original_Journ"& _ "alNr) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Or"& _ "iginal_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JournalNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JournalNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblKassenbuch] ([Mandant], [Niederlassung], [Benutzer], [Gesch"& _ "äftsjahr], [JournalNr], [Buchungsdatum], [BelegDat], [BelegNr], [Belegart], [Buc"& _ "hungstext], [Betrag], [Währung], [Kurs], [Eingabeart], [Konto], [Soll], [Haben],"& _ " [Steuer], [Steuerbetrag], [Referenz], [Belegverbuchung], [gebucht], [KB_Zeitste"& _ "mpel], [rksv_id], [rksv_BelegId], [rksv_aktiv], [Finanzwege]) VALUES (@Mandant, "& _ "@Niederlassung, @Benutzer, @Geschäftsjahr, @JournalNr, @Buchungsdatum, @BelegDat"& _ ", @BelegNr, @Belegart, @Buchungstext, @Betrag, @Währung, @Kurs, @Eingabeart, @Ko"& _ "nto, @Soll, @Haben, @Steuer, @Steuerbetrag, @Referenz, @Belegverbuchung, @gebuch"& _ "t, @KB_Zeitstempel, @rksv_id, @rksv_BelegId, @rksv_aktiv, @Finanzwege);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ "Mandant, Niederlassung, Benutzer, Geschäftsjahr, JournalNr, Buchungsdatum, Beleg"& _ "Dat, BelegNr, Belegart, Buchungstext, Betrag, Währung, Kurs, Eingabeart, Konto, "& _ "Soll, Haben, Steuer, Steuerbetrag, Referenz, Belegverbuchung, gebucht, KB_Zeitst"& _ "empel, upsize_ts, rksv_id, rksv_BelegId, rksv_aktiv, Finanzwege FROM tblKassenbu"& _ "ch WHERE (Benutzer = @Benutzer) AND (Geschäftsjahr = @Geschäftsjahr) AND (Journa"& _ "lNr = @JournalNr) AND (Mandant = @Mandant) AND (Niederlassung = @Niederlassung)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JournalNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JournalNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingabeart", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingabeart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Konto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Konto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Soll", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Soll", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Haben", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Haben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegverbuchung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegverbuchung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gebucht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gebucht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KB_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KB_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_BelegId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_BelegId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Finanzwege", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Finanzwege", 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].[tblKassenbuch] SET [Mandant] = @Mandant, [Niederlassung] = @Niederl"& _ "assung, [Benutzer] = @Benutzer, [Geschäftsjahr] = @Geschäftsjahr, [JournalNr] = "& _ "@JournalNr, [Buchungsdatum] = @Buchungsdatum, [BelegDat] = @BelegDat, [BelegNr] "& _ "= @BelegNr, [Belegart] = @Belegart, [Buchungstext] = @Buchungstext, [Betrag] = @"& _ "Betrag, [Währung] = @Währung, [Kurs] = @Kurs, [Eingabeart] = @Eingabeart, [Konto"& _ "] = @Konto, [Soll] = @Soll, [Haben] = @Haben, [Steuer] = @Steuer, [Steuerbetrag]"& _ " = @Steuerbetrag, [Referenz] = @Referenz, [Belegverbuchung] = @Belegverbuchung, "& _ "[gebucht] = @gebucht, [KB_Zeitstempel] = @KB_Zeitstempel, [rksv_id] = @rksv_id, "& _ "[rksv_BelegId] = @rksv_BelegId, [rksv_aktiv] = @rksv_aktiv, [Finanzwege] = @Fina"& _ "nzwege WHERE (([Mandant] = @Original_Mandant) AND ([Niederlassung] = @Original_N"& _ "iederlassung) AND ([Benutzer] = @Original_Benutzer) AND ([Geschäftsjahr] = @Orig"& _ "inal_Geschäftsjahr) AND ([JournalNr] = @Original_JournalNr) AND ((@IsNull_upsize"& _ "_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ "CT Mandant, Niederlassung, Benutzer, Geschäftsjahr, JournalNr, Buchungsdatum, Be"& _ "legDat, BelegNr, Belegart, Buchungstext, Betrag, Währung, Kurs, Eingabeart, Kont"& _ "o, Soll, Haben, Steuer, Steuerbetrag, Referenz, Belegverbuchung, gebucht, KB_Zei"& _ "tstempel, upsize_ts, rksv_id, rksv_BelegId, rksv_aktiv, Finanzwege FROM tblKasse"& _ "nbuch WHERE (Benutzer = @Benutzer) AND (Geschäftsjahr = @Geschäftsjahr) AND (Jou"& _ "rnalNr = @JournalNr) AND (Mandant = @Mandant) AND (Niederlassung = @Niederlassun"& _ "g)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JournalNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JournalNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingabeart", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingabeart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Konto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Konto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Soll", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Soll", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Haben", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Haben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegverbuchung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegverbuchung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gebucht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gebucht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KB_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KB_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_BelegId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_BelegId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Finanzwege", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Finanzwege", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Benutzer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Geschäftsjahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geschäftsjahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JournalNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JournalNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Mandant, Niederlassung, Benutzer, Geschäftsjahr, JournalNr, Buchungsdatum,"& _ " BelegDat, BelegNr, Belegart, Buchungstext, Betrag, Währung, Kurs, Eingabeart, K"& _ "onto, Soll, Haben, Steuer, Steuerbetrag, Referenz, Belegverbuchung, gebucht, KB_"& _ "Zeitstempel, upsize_ts, rksv_id, rksv_BelegId, rksv_aktiv, Finanzwege FROM dbo.t"& _ "blKassenbuch" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKassenbuchDataTable) 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 VERAGDataSet.tblKassenbuchDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKassenbuchDataTable = New VERAGDataSet.tblKassenbuchDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKassenbuchDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKassenbuch") 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_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_Benutzer As Integer, ByVal Original_Geschäftsjahr As Short, ByVal Original_JournalNr As Integer, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Benutzer,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Geschäftsjahr,Short) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_JournalNr,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Mandant As String, _ ByVal Niederlassung As String, _ ByVal Benutzer As Integer, _ ByVal Geschäftsjahr As Short, _ ByVal JournalNr As Integer, _ ByVal Buchungsdatum As Date, _ ByVal BelegDat As Date, _ ByVal BelegNr As Integer, _ ByVal Belegart As Short, _ ByVal Buchungstext As String, _ ByVal Betrag As Global.System.Nullable(Of Decimal), _ ByVal Währung As String, _ ByVal Kurs As Double, _ ByVal Eingabeart As Boolean, _ ByVal Konto As Integer, _ ByVal Soll As Decimal, _ ByVal Haben As Decimal, _ ByVal Steuer As Integer, _ ByVal Steuerbetrag As Decimal, _ ByVal Referenz As String, _ ByVal Belegverbuchung As Boolean, _ ByVal gebucht As Boolean, _ ByVal KB_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal rksv_id As Global.System.Nullable(Of Integer), _ ByVal rksv_BelegId As Global.System.Nullable(Of Integer), _ ByVal rksv_aktiv As Boolean, _ ByVal Finanzwege As String) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(Geschäftsjahr,Short) Me.Adapter.InsertCommand.Parameters(4).Value = CType(JournalNr,Integer) Me.Adapter.InsertCommand.Parameters(5).Value = CType(Buchungsdatum,Date) Me.Adapter.InsertCommand.Parameters(6).Value = CType(BelegDat,Date) Me.Adapter.InsertCommand.Parameters(7).Value = CType(BelegNr,Integer) Me.Adapter.InsertCommand.Parameters(8).Value = CType(Belegart,Short) If (Buchungstext Is Nothing) Then Throw New Global.System.ArgumentNullException("Buchungstext") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Buchungstext,String) End If If (Betrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Betrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Währung Is Nothing) Then Throw New Global.System.ArgumentNullException("Währung") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Währung,String) End If Me.Adapter.InsertCommand.Parameters(12).Value = CType(Kurs,Double) Me.Adapter.InsertCommand.Parameters(13).Value = CType(Eingabeart,Boolean) Me.Adapter.InsertCommand.Parameters(14).Value = CType(Konto,Integer) Me.Adapter.InsertCommand.Parameters(15).Value = CType(Soll,Decimal) Me.Adapter.InsertCommand.Parameters(16).Value = CType(Haben,Decimal) Me.Adapter.InsertCommand.Parameters(17).Value = CType(Steuer,Integer) Me.Adapter.InsertCommand.Parameters(18).Value = CType(Steuerbetrag,Decimal) If (Referenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Referenz,String) End If Me.Adapter.InsertCommand.Parameters(20).Value = CType(Belegverbuchung,Boolean) Me.Adapter.InsertCommand.Parameters(21).Value = CType(gebucht,Boolean) If (KB_Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(KB_Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (rksv_id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(rksv_id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (rksv_BelegId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(rksv_BelegId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(25).Value = CType(rksv_aktiv,Boolean) If (Finanzwege Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(Finanzwege,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 Mandant As String, _ ByVal Niederlassung As String, _ ByVal Benutzer As Integer, _ ByVal Geschäftsjahr As Short, _ ByVal JournalNr As Integer, _ ByVal Buchungsdatum As Date, _ ByVal BelegDat As Date, _ ByVal BelegNr As Integer, _ ByVal Belegart As Short, _ ByVal Buchungstext As String, _ ByVal Betrag As Global.System.Nullable(Of Decimal), _ ByVal Währung As String, _ ByVal Kurs As Double, _ ByVal Eingabeart As Boolean, _ ByVal Konto As Integer, _ ByVal Soll As Decimal, _ ByVal Haben As Decimal, _ ByVal Steuer As Integer, _ ByVal Steuerbetrag As Decimal, _ ByVal Referenz As String, _ ByVal Belegverbuchung As Boolean, _ ByVal gebucht As Boolean, _ ByVal KB_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal rksv_id As Global.System.Nullable(Of Integer), _ ByVal rksv_BelegId As Global.System.Nullable(Of Integer), _ ByVal rksv_aktiv As Boolean, _ ByVal Finanzwege As String, _ ByVal Original_Mandant As String, _ ByVal Original_Niederlassung As String, _ ByVal Original_Benutzer As Integer, _ ByVal Original_Geschäftsjahr As Short, _ ByVal Original_JournalNr As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Geschäftsjahr,Short) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(JournalNr,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Buchungsdatum,Date) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BelegDat,Date) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(BelegNr,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Belegart,Short) If (Buchungstext Is Nothing) Then Throw New Global.System.ArgumentNullException("Buchungstext") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Buchungstext,String) End If If (Betrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Betrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Währung Is Nothing) Then Throw New Global.System.ArgumentNullException("Währung") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Währung,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Kurs,Double) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Eingabeart,Boolean) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Konto,Integer) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Soll,Decimal) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Haben,Decimal) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Steuer,Integer) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Steuerbetrag,Decimal) If (Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Referenz,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Belegverbuchung,Boolean) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(gebucht,Boolean) If (KB_Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(KB_Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (rksv_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(rksv_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (rksv_BelegId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(rksv_BelegId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(25).Value = CType(rksv_aktiv,Boolean) If (Finanzwege Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Finanzwege,String) End If If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Benutzer,Integer) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Geschäftsjahr,Short) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_JournalNr,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_upsize_ts,Byte()) End If 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 Buchungsdatum As Date, _ ByVal BelegDat As Date, _ ByVal BelegNr As Integer, _ ByVal Belegart As Short, _ ByVal Buchungstext As String, _ ByVal Betrag As Global.System.Nullable(Of Decimal), _ ByVal Währung As String, _ ByVal Kurs As Double, _ ByVal Eingabeart As Boolean, _ ByVal Konto As Integer, _ ByVal Soll As Decimal, _ ByVal Haben As Decimal, _ ByVal Steuer As Integer, _ ByVal Steuerbetrag As Decimal, _ ByVal Referenz As String, _ ByVal Belegverbuchung As Boolean, _ ByVal gebucht As Boolean, _ ByVal KB_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal rksv_id As Global.System.Nullable(Of Integer), _ ByVal rksv_BelegId As Global.System.Nullable(Of Integer), _ ByVal rksv_aktiv As Boolean, _ ByVal Finanzwege As String, _ ByVal Original_Mandant As String, _ ByVal Original_Niederlassung As String, _ ByVal Original_Benutzer As Integer, _ ByVal Original_Geschäftsjahr As Short, _ ByVal Original_JournalNr As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_Geschäftsjahr, Original_JournalNr, Buchungsdatum, BelegDat, BelegNr, Belegart, Buchungstext, Betrag, Währung, Kurs, Eingabeart, Konto, Soll, Haben, Steuer, Steuerbetrag, Referenz, Belegverbuchung, gebucht, KB_Zeitstempel, rksv_id, rksv_BelegId, rksv_aktiv, Finanzwege, Original_Mandant, Original_Niederlassung, Original_Benutzer, Original_Geschäftsjahr, Original_JournalNr, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKontoTableAdapter 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 = "tblKonto" tableMapping.ColumnMappings.Add("KontoNr", "KontoNr") tableMapping.ColumnMappings.Add("Bez", "Bez") tableMapping.ColumnMappings.Add("Steuer", "Steuer") tableMapping.ColumnMappings.Add("Gruppe", "Gruppe") tableMapping.ColumnMappings.Add("USTKonto", "USTKonto") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblKonto] WHERE (([KontoNr] = @Original_KontoNr) AND ([SSMA_Ti"& _ "meStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KontoNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KontoNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblKonto] ([KontoNr], [Bez], [Steuer], [Gruppe], [USTKonto]) V"& _ "ALUES (@KontoNr, @Bez, @Steuer, @Gruppe, @USTKonto);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KontoNr, Bez, Steue"& _ "r, Gruppe, USTKonto, SSMA_TimeStamp FROM tblKonto WHERE (KontoNr = @KontoNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KontoNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gruppe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USTKonto", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USTKonto", 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].[tblKonto] SET [KontoNr] = @KontoNr, [Bez] = @Bez, [Steuer] = @Steue"& _ "r, [Gruppe] = @Gruppe, [USTKonto] = @USTKonto WHERE (([KontoNr] = @Original_Kont"& _ "oNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KontoNr, Bez, S"& _ "teuer, Gruppe, USTKonto, SSMA_TimeStamp FROM tblKonto WHERE (KontoNr = @KontoNr)"& _ "" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KontoNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KontoNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gruppe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USTKonto", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USTKonto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KontoNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KontoNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KontoNr, Bez, Steuer, Gruppe, USTKonto, SSMA_TimeStamp FROM dbo.tblKonto" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKontoDataTable) 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 VERAGDataSet.tblKontoDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKontoDataTable = New VERAGDataSet.tblKontoDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKontoDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKonto") 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_KontoNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KontoNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 KontoNr As Integer, ByVal Bez As String, ByVal Steuer As Integer, ByVal Gruppe As Global.System.Nullable(Of Integer), ByVal USTKonto As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KontoNr,Integer) If (Bez Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bez,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Steuer,Integer) If (Gruppe.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Gruppe.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (USTKonto Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(USTKonto,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 KontoNr As Integer, ByVal Bez As String, ByVal Steuer As Integer, ByVal Gruppe As Global.System.Nullable(Of Integer), ByVal USTKonto As String, ByVal Original_KontoNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KontoNr,Integer) If (Bez Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bez,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Steuer,Integer) If (Gruppe.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Gruppe.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (USTKonto Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USTKonto,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_KontoNr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Bez As String, ByVal Steuer As Integer, ByVal Gruppe As Global.System.Nullable(Of Integer), ByVal USTKonto As String, ByVal Original_KontoNr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_KontoNr, Bez, Steuer, Gruppe, USTKonto, Original_KontoNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenAufschubkontenTableAdapter 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 = "tblKundenAufschubkonten" tableMapping.ColumnMappings.Add("kdAkto_id", "kdAkto_id") tableMapping.ColumnMappings.Add("kdAkto_KundenNr", "kdAkto_KundenNr") tableMapping.ColumnMappings.Add("kdAkto_art", "kdAkto_art") tableMapping.ColumnMappings.Add("kdAkto_hauptzollamt", "kdAkto_hauptzollamt") tableMapping.ColumnMappings.Add("kdAkto_kontonummer", "kdAkto_kontonummer") tableMapping.ColumnMappings.Add("kdAkto_bin", "kdAkto_bin") tableMapping.ColumnMappings.Add("kdAkto_eori", "kdAkto_eori") tableMapping.ColumnMappings.Add("kdAkto_eoriNL", "kdAkto_eoriNL") 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].[tblKundenAufschubkonten] WHERE (([kdAkto_id] = @Original_kdAkt"& _ "o_id) AND ([kdAkto_KundenNr] = @Original_kdAkto_KundenNr) AND ([kdAkto_art] = @O"& _ "riginal_kdAkto_art) AND ((@IsNull_kdAkto_hauptzollamt = 1 AND [kdAkto_hauptzolla"& _ "mt] IS NULL) OR ([kdAkto_hauptzollamt] = @Original_kdAkto_hauptzollamt)) AND ((@"& _ "IsNull_kdAkto_kontonummer = 1 AND [kdAkto_kontonummer] IS NULL) OR ([kdAkto_kont"& _ "onummer] = @Original_kdAkto_kontonummer)) AND ((@IsNull_kdAkto_bin = 1 AND [kdAk"& _ "to_bin] IS NULL) OR ([kdAkto_bin] = @Original_kdAkto_bin)) AND ((@IsNull_kdAkto_"& _ "eori = 1 AND [kdAkto_eori] IS NULL) OR ([kdAkto_eori] = @Original_kdAkto_eori)) "& _ "AND ((@IsNull_kdAkto_eoriNL = 1 AND [kdAkto_eoriNL] IS NULL) OR ([kdAkto_eoriNL]"& _ " = @Original_kdAkto_eoriNL)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdAkto_hauptzollamt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_hauptzollamt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_hauptzollamt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_hauptzollamt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdAkto_kontonummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_kontonummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_kontonummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_kontonummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdAkto_bin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_bin", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_bin", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_bin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdAkto_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdAkto_eoriNL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eoriNL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_eoriNL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eoriNL", 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].[tblKundenAufschubkonten] ([kdAkto_KundenNr], [kdAkto_art], [kd"& _ "Akto_hauptzollamt], [kdAkto_kontonummer], [kdAkto_bin], [kdAkto_eori], [kdAkto_e"& _ "oriNL]) VALUES (@kdAkto_KundenNr, @kdAkto_art, @kdAkto_hauptzollamt, @kdAkto_kon"& _ "tonummer, @kdAkto_bin, @kdAkto_eori, @kdAkto_eoriNL);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kdAkto_id, kdAkto_"& _ "KundenNr, kdAkto_art, kdAkto_hauptzollamt, kdAkto_kontonummer, kdAkto_bin, kdAkt"& _ "o_eori, kdAkto_eoriNL FROM tblKundenAufschubkonten WHERE (kdAkto_id = SCOPE_IDEN"& _ "TITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_hauptzollamt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_hauptzollamt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_kontonummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_kontonummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_bin", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_bin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_eoriNL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eoriNL", 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].[tblKundenAufschubkonten] SET [kdAkto_KundenNr] = @kdAkto_KundenNr, "& _ "[kdAkto_art] = @kdAkto_art, [kdAkto_hauptzollamt] = @kdAkto_hauptzollamt, [kdAkt"& _ "o_kontonummer] = @kdAkto_kontonummer, [kdAkto_bin] = @kdAkto_bin, [kdAkto_eori] "& _ "= @kdAkto_eori, [kdAkto_eoriNL] = @kdAkto_eoriNL WHERE (([kdAkto_id] = @Original"& _ "_kdAkto_id) AND ([kdAkto_KundenNr] = @Original_kdAkto_KundenNr) AND ([kdAkto_art"& _ "] = @Original_kdAkto_art) AND ((@IsNull_kdAkto_hauptzollamt = 1 AND [kdAkto_haup"& _ "tzollamt] IS NULL) OR ([kdAkto_hauptzollamt] = @Original_kdAkto_hauptzollamt)) A"& _ "ND ((@IsNull_kdAkto_kontonummer = 1 AND [kdAkto_kontonummer] IS NULL) OR ([kdAkt"& _ "o_kontonummer] = @Original_kdAkto_kontonummer)) AND ((@IsNull_kdAkto_bin = 1 AND"& _ " [kdAkto_bin] IS NULL) OR ([kdAkto_bin] = @Original_kdAkto_bin)) AND ((@IsNull_k"& _ "dAkto_eori = 1 AND [kdAkto_eori] IS NULL) OR ([kdAkto_eori] = @Original_kdAkto_e"& _ "ori)) AND ((@IsNull_kdAkto_eoriNL = 1 AND [kdAkto_eoriNL] IS NULL) OR ([kdAkto_e"& _ "oriNL] = @Original_kdAkto_eoriNL)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kdAkto_id, kdAkto_KundenNr, kdAkto_"& _ "art, kdAkto_hauptzollamt, kdAkto_kontonummer, kdAkto_bin, kdAkto_eori, kdAkto_eo"& _ "riNL FROM tblKundenAufschubkonten WHERE (kdAkto_id = @kdAkto_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_hauptzollamt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_hauptzollamt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_kontonummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_kontonummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_bin", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_bin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_eoriNL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eoriNL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdAkto_hauptzollamt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_hauptzollamt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_hauptzollamt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_hauptzollamt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdAkto_kontonummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_kontonummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_kontonummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_kontonummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdAkto_bin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_bin", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_bin", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_bin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdAkto_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdAkto_eoriNL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eoriNL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdAkto_eoriNL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_eoriNL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdAkto_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "kdAkto_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kdAkto_id, kdAkto_KundenNr, kdAkto_art, kdAkto_hauptzollamt, kdAkto_konton"& _ "ummer, kdAkto_bin, kdAkto_eori, kdAkto_eoriNL FROM dbo.tblKundenAufschubkonten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenAufschubkontenDataTable) 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 VERAGDataSet.tblKundenAufschubkontenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenAufschubkontenDataTable = New VERAGDataSet.tblKundenAufschubkontenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenAufschubkontenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenAufschubkonten") 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_kdAkto_id As Integer, ByVal Original_kdAkto_KundenNr As Integer, ByVal Original_kdAkto_art As Integer, ByVal Original_kdAkto_hauptzollamt As String, ByVal Original_kdAkto_kontonummer As String, ByVal Original_kdAkto_bin As String, ByVal Original_kdAkto_eori As String, ByVal Original_kdAkto_eoriNL As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kdAkto_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_kdAkto_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_kdAkto_art,Integer) If (Original_kdAkto_hauptzollamt 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_kdAkto_hauptzollamt,String) End If If (Original_kdAkto_kontonummer 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_kdAkto_kontonummer,String) End If If (Original_kdAkto_bin 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_kdAkto_bin,String) End If If (Original_kdAkto_eori 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_kdAkto_eori,String) End If If (Original_kdAkto_eoriNL 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_kdAkto_eoriNL,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 kdAkto_KundenNr As Integer, ByVal kdAkto_art As Integer, ByVal kdAkto_hauptzollamt As String, ByVal kdAkto_kontonummer As String, ByVal kdAkto_bin As String, ByVal kdAkto_eori As String, ByVal kdAkto_eoriNL As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(kdAkto_KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(kdAkto_art,Integer) If (kdAkto_hauptzollamt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(kdAkto_hauptzollamt,String) End If If (kdAkto_kontonummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(kdAkto_kontonummer,String) End If If (kdAkto_bin Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(kdAkto_bin,String) End If If (kdAkto_eori Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(kdAkto_eori,String) End If If (kdAkto_eoriNL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(kdAkto_eoriNL,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 kdAkto_KundenNr As Integer, _ ByVal kdAkto_art As Integer, _ ByVal kdAkto_hauptzollamt As String, _ ByVal kdAkto_kontonummer As String, _ ByVal kdAkto_bin As String, _ ByVal kdAkto_eori As String, _ ByVal kdAkto_eoriNL As String, _ ByVal Original_kdAkto_id As Integer, _ ByVal Original_kdAkto_KundenNr As Integer, _ ByVal Original_kdAkto_art As Integer, _ ByVal Original_kdAkto_hauptzollamt As String, _ ByVal Original_kdAkto_kontonummer As String, _ ByVal Original_kdAkto_bin As String, _ ByVal Original_kdAkto_eori As String, _ ByVal Original_kdAkto_eoriNL As String, _ ByVal kdAkto_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kdAkto_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(kdAkto_art,Integer) If (kdAkto_hauptzollamt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(kdAkto_hauptzollamt,String) End If If (kdAkto_kontonummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(kdAkto_kontonummer,String) End If If (kdAkto_bin Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(kdAkto_bin,String) End If If (kdAkto_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(kdAkto_eori,String) End If If (kdAkto_eoriNL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(kdAkto_eoriNL,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_kdAkto_id,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_kdAkto_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_kdAkto_art,Integer) If (Original_kdAkto_hauptzollamt 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_kdAkto_hauptzollamt,String) End If If (Original_kdAkto_kontonummer 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_kdAkto_kontonummer,String) End If If (Original_kdAkto_bin 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_kdAkto_bin,String) End If If (Original_kdAkto_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_kdAkto_eori,String) End If If (Original_kdAkto_eoriNL 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_kdAkto_eoriNL,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(kdAkto_id,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 kdAkto_KundenNr As Integer, ByVal kdAkto_art As Integer, ByVal kdAkto_hauptzollamt As String, ByVal kdAkto_kontonummer As String, ByVal kdAkto_bin As String, ByVal kdAkto_eori As String, ByVal kdAkto_eoriNL As String, ByVal Original_kdAkto_id As Integer, ByVal Original_kdAkto_KundenNr As Integer, ByVal Original_kdAkto_art As Integer, ByVal Original_kdAkto_hauptzollamt As String, ByVal Original_kdAkto_kontonummer As String, ByVal Original_kdAkto_bin As String, ByVal Original_kdAkto_eori As String, ByVal Original_kdAkto_eoriNL As String) As Integer Return Me.Update(kdAkto_KundenNr, kdAkto_art, kdAkto_hauptzollamt, kdAkto_kontonummer, kdAkto_bin, kdAkto_eori, kdAkto_eoriNL, Original_kdAkto_id, Original_kdAkto_KundenNr, Original_kdAkto_art, Original_kdAkto_hauptzollamt, Original_kdAkto_kontonummer, Original_kdAkto_bin, Original_kdAkto_eori, Original_kdAkto_eoriNL, Original_kdAkto_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenBesonderheitenTableAdapter 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 = "tblKundenBesonderheiten" tableMapping.ColumnMappings.Add("kdb_id", "kdb_id") tableMapping.ColumnMappings.Add("kdb_KundenNr", "kdb_KundenNr") tableMapping.ColumnMappings.Add("kdb_kategorie", "kdb_kategorie") tableMapping.ColumnMappings.Add("kdb_text", "kdb_text") tableMapping.ColumnMappings.Add("kdb_mitId", "kdb_mitId") tableMapping.ColumnMappings.Add("kdb_mitName", "kdb_mitName") tableMapping.ColumnMappings.Add("kdb_EingetragenAm", "kdb_EingetragenAm") tableMapping.ColumnMappings.Add("kdb_AenderungAm", "kdb_AenderungAm") tableMapping.ColumnMappings.Add("kdb_visible", "kdb_visible") tableMapping.ColumnMappings.Add("kdb_hervorheben", "kdb_hervorheben") tableMapping.ColumnMappings.Add("kdb_history", "kdb_history") 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].[tblKundenBesonderheiten] WHERE (([kdb_id] = @Original_kdb_id) "& _ "AND ([kdb_KundenNr] = @Original_kdb_KundenNr) AND ([kdb_kategorie] = @Original_k"& _ "db_kategorie) AND ([kdb_mitId] = @Original_kdb_mitId) AND ([kdb_mitName] = @Orig"& _ "inal_kdb_mitName) AND ([kdb_EingetragenAm] = @Original_kdb_EingetragenAm) AND (["& _ "kdb_AenderungAm] = @Original_kdb_AenderungAm) AND ([kdb_visible] = @Original_kdb"& _ "_visible) AND ([kdb_hervorheben] = @Original_kdb_hervorheben) AND ([kdb_history]"& _ " = @Original_kdb_history))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_kategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_kategorie", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_mitId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_mitId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_mitName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_mitName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_EingetragenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_EingetragenAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_AenderungAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_AenderungAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_visible", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_hervorheben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_hervorheben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_history", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_history", 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].[tblKundenBesonderheiten] ([kdb_KundenNr], [kdb_kategorie], [kd"& _ "b_text], [kdb_mitId], [kdb_mitName], [kdb_EingetragenAm], [kdb_AenderungAm], [kd"& _ "b_visible], [kdb_hervorheben], [kdb_history]) VALUES (@kdb_KundenNr, @kdb_katego"& _ "rie, @kdb_text, @kdb_mitId, @kdb_mitName, @kdb_EingetragenAm, @kdb_AenderungAm, "& _ "@kdb_visible, @kdb_hervorheben, @kdb_history);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kdb_id, kdb_KundenNr, kdb"& _ "_kategorie, kdb_text, kdb_mitId, kdb_mitName, kdb_EingetragenAm, kdb_AenderungAm"& _ ", kdb_visible, kdb_hervorheben, kdb_history FROM tblKundenBesonderheiten WHERE ("& _ "kdb_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_kategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_kategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_mitId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_mitId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_mitName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_mitName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_EingetragenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_EingetragenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_AenderungAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_AenderungAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_visible", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_hervorheben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_hervorheben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_history", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_history", 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].[tblKundenBesonderheiten] SET [kdb_KundenNr] = @kdb_KundenNr, [kdb_k"& _ "ategorie] = @kdb_kategorie, [kdb_text] = @kdb_text, [kdb_mitId] = @kdb_mitId, [k"& _ "db_mitName] = @kdb_mitName, [kdb_EingetragenAm] = @kdb_EingetragenAm, [kdb_Aende"& _ "rungAm] = @kdb_AenderungAm, [kdb_visible] = @kdb_visible, [kdb_hervorheben] = @k"& _ "db_hervorheben, [kdb_history] = @kdb_history WHERE (([kdb_id] = @Original_kdb_id"& _ ") AND ([kdb_KundenNr] = @Original_kdb_KundenNr) AND ([kdb_kategorie] = @Original"& _ "_kdb_kategorie) AND ([kdb_mitId] = @Original_kdb_mitId) AND ([kdb_mitName] = @Or"& _ "iginal_kdb_mitName) AND ([kdb_EingetragenAm] = @Original_kdb_EingetragenAm) AND "& _ "([kdb_AenderungAm] = @Original_kdb_AenderungAm) AND ([kdb_visible] = @Original_k"& _ "db_visible) AND ([kdb_hervorheben] = @Original_kdb_hervorheben) AND ([kdb_histor"& _ "y] = @Original_kdb_history));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kdb_id, kdb_KundenNr, kdb_kategorie, kdb_t"& _ "ext, kdb_mitId, kdb_mitName, kdb_EingetragenAm, kdb_AenderungAm, kdb_visible, kd"& _ "b_hervorheben, kdb_history FROM tblKundenBesonderheiten WHERE (kdb_id = @kdb_id)"& _ "" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_kategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_kategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_mitId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_mitId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_mitName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_mitName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_EingetragenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_EingetragenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_AenderungAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_AenderungAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_visible", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_hervorheben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_hervorheben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_history", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_history", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_kategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_kategorie", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_mitId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_mitId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_mitName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_mitName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_EingetragenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_EingetragenAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_AenderungAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_AenderungAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_visible", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_hervorheben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_hervorheben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_history", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_history", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kdb_id, kdb_KundenNr, kdb_kategorie, kdb_text, kdb_mitId, kdb_mitName, kdb"& _ "_EingetragenAm, kdb_AenderungAm, kdb_visible, kdb_hervorheben, kdb_history FROM "& _ "dbo.tblKundenBesonderheiten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenBesonderheitenDataTable) 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 VERAGDataSet.tblKundenBesonderheitenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenBesonderheitenDataTable = New VERAGDataSet.tblKundenBesonderheitenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenBesonderheitenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenBesonderheiten") 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_kdb_id As Integer, ByVal Original_kdb_KundenNr As Integer, ByVal Original_kdb_kategorie As String, ByVal Original_kdb_mitId As Integer, ByVal Original_kdb_mitName As String, ByVal Original_kdb_EingetragenAm As Date, ByVal Original_kdb_AenderungAm As Date, ByVal Original_kdb_visible As Boolean, ByVal Original_kdb_hervorheben As Boolean, ByVal Original_kdb_history As Boolean) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kdb_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_kdb_KundenNr,Integer) If (Original_kdb_kategorie Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kdb_kategorie") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_kdb_kategorie,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_kdb_mitId,Integer) If (Original_kdb_mitName Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kdb_mitName") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_kdb_mitName,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_kdb_EingetragenAm,Date) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_kdb_AenderungAm,Date) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_kdb_visible,Boolean) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_kdb_hervorheben,Boolean) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_kdb_history,Boolean) 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 kdb_KundenNr As Integer, ByVal kdb_kategorie As String, ByVal kdb_text As String, ByVal kdb_mitId As Integer, ByVal kdb_mitName As String, ByVal kdb_EingetragenAm As Date, ByVal kdb_AenderungAm As Date, ByVal kdb_visible As Boolean, ByVal kdb_hervorheben As Boolean, ByVal kdb_history As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(kdb_KundenNr,Integer) If (kdb_kategorie Is Nothing) Then Throw New Global.System.ArgumentNullException("kdb_kategorie") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(kdb_kategorie,String) End If If (kdb_text Is Nothing) Then Throw New Global.System.ArgumentNullException("kdb_text") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(kdb_text,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(kdb_mitId,Integer) If (kdb_mitName Is Nothing) Then Throw New Global.System.ArgumentNullException("kdb_mitName") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(kdb_mitName,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(kdb_EingetragenAm,Date) Me.Adapter.InsertCommand.Parameters(6).Value = CType(kdb_AenderungAm,Date) Me.Adapter.InsertCommand.Parameters(7).Value = CType(kdb_visible,Boolean) Me.Adapter.InsertCommand.Parameters(8).Value = CType(kdb_hervorheben,Boolean) Me.Adapter.InsertCommand.Parameters(9).Value = CType(kdb_history,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 kdb_KundenNr As Integer, _ ByVal kdb_kategorie As String, _ ByVal kdb_text As String, _ ByVal kdb_mitId As Integer, _ ByVal kdb_mitName As String, _ ByVal kdb_EingetragenAm As Date, _ ByVal kdb_AenderungAm As Date, _ ByVal kdb_visible As Boolean, _ ByVal kdb_hervorheben As Boolean, _ ByVal kdb_history As Boolean, _ ByVal Original_kdb_id As Integer, _ ByVal Original_kdb_KundenNr As Integer, _ ByVal Original_kdb_kategorie As String, _ ByVal Original_kdb_mitId As Integer, _ ByVal Original_kdb_mitName As String, _ ByVal Original_kdb_EingetragenAm As Date, _ ByVal Original_kdb_AenderungAm As Date, _ ByVal Original_kdb_visible As Boolean, _ ByVal Original_kdb_hervorheben As Boolean, _ ByVal Original_kdb_history As Boolean, _ ByVal kdb_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kdb_KundenNr,Integer) If (kdb_kategorie Is Nothing) Then Throw New Global.System.ArgumentNullException("kdb_kategorie") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(kdb_kategorie,String) End If If (kdb_text Is Nothing) Then Throw New Global.System.ArgumentNullException("kdb_text") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(kdb_text,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(kdb_mitId,Integer) If (kdb_mitName Is Nothing) Then Throw New Global.System.ArgumentNullException("kdb_mitName") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(kdb_mitName,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(kdb_EingetragenAm,Date) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(kdb_AenderungAm,Date) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(kdb_visible,Boolean) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(kdb_hervorheben,Boolean) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(kdb_history,Boolean) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_kdb_id,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_kdb_KundenNr,Integer) If (Original_kdb_kategorie Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kdb_kategorie") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_kdb_kategorie,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_kdb_mitId,Integer) If (Original_kdb_mitName Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kdb_mitName") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_kdb_mitName,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_kdb_EingetragenAm,Date) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_kdb_AenderungAm,Date) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_kdb_visible,Boolean) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_kdb_hervorheben,Boolean) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_kdb_history,Boolean) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(kdb_id,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 kdb_KundenNr As Integer, _ ByVal kdb_kategorie As String, _ ByVal kdb_text As String, _ ByVal kdb_mitId As Integer, _ ByVal kdb_mitName As String, _ ByVal kdb_EingetragenAm As Date, _ ByVal kdb_AenderungAm As Date, _ ByVal kdb_visible As Boolean, _ ByVal kdb_hervorheben As Boolean, _ ByVal kdb_history As Boolean, _ ByVal Original_kdb_id As Integer, _ ByVal Original_kdb_KundenNr As Integer, _ ByVal Original_kdb_kategorie As String, _ ByVal Original_kdb_mitId As Integer, _ ByVal Original_kdb_mitName As String, _ ByVal Original_kdb_EingetragenAm As Date, _ ByVal Original_kdb_AenderungAm As Date, _ ByVal Original_kdb_visible As Boolean, _ ByVal Original_kdb_hervorheben As Boolean, _ ByVal Original_kdb_history As Boolean) As Integer Return Me.Update(kdb_KundenNr, kdb_kategorie, kdb_text, kdb_mitId, kdb_mitName, kdb_EingetragenAm, kdb_AenderungAm, kdb_visible, kdb_hervorheben, kdb_history, Original_kdb_id, Original_kdb_KundenNr, Original_kdb_kategorie, Original_kdb_mitId, Original_kdb_mitName, Original_kdb_EingetragenAm, Original_kdb_AenderungAm, Original_kdb_visible, Original_kdb_hervorheben, Original_kdb_history, Original_kdb_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenBesonderheiten_KategorienTableAdapter 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 = "tblKundenBesonderheiten_Kategorien" tableMapping.ColumnMappings.Add("kdbkat_kategorie", "kdbkat_kategorie") tableMapping.ColumnMappings.Add("kdbkat_bezeichnung", "kdbkat_bezeichnung") tableMapping.ColumnMappings.Add("kdbkat_Firma", "kdbkat_Firma") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblKundenBesonderheiten_Kategorien] ([kdbkat_kategorie], [kdbk"& _ "at_bezeichnung], [kdbkat_Firma]) VALUES (@kdbkat_kategorie, @kdbkat_bezeichnung,"& _ " @kdbkat_Firma)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdbkat_kategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdbkat_kategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdbkat_bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdbkat_bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdbkat_Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdbkat_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kdbkat_kategorie, kdbkat_bezeichnung, kdbkat_Firma FROM dbo.tblKundenBeson"& _ "derheiten_Kategorien" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenBesonderheiten_KategorienDataTable) 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 VERAGDataSet.tblKundenBesonderheiten_KategorienDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenBesonderheiten_KategorienDataTable = New VERAGDataSet.tblKundenBesonderheiten_KategorienDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenBesonderheiten_KategorienDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenBesonderheiten_Kategorien") 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 Insert(ByVal kdbkat_kategorie As String, ByVal kdbkat_bezeichnung As String, ByVal kdbkat_Firma As String) As Integer If (kdbkat_kategorie Is Nothing) Then Throw New Global.System.ArgumentNullException("kdbkat_kategorie") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(kdbkat_kategorie,String) End If If (kdbkat_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("kdbkat_bezeichnung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(kdbkat_bezeichnung,String) End If If (kdbkat_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("kdbkat_Firma") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(kdbkat_Firma,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenDatenblattTableAdapter 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 = "tblKundenDatenblatt" tableMapping.ColumnMappings.Add("kdb_KundenNr", "kdb_KundenNr") tableMapping.ColumnMappings.Add("kdb_route", "kdb_route") tableMapping.ColumnMappings.Add("kdb_buergschaftsgeber", "kdb_buergschaftsgeber") tableMapping.ColumnMappings.Add("kdb_anzahlLKW", "kdb_anzahlLKW") tableMapping.ColumnMappings.Add("kdb_anzahlMA", "kdb_anzahlMA") tableMapping.ColumnMappings.Add("kdb_bestimmungslandEU", "kdb_bestimmungslandEU") tableMapping.ColumnMappings.Add("kdb_grosskunden", "kdb_grosskunden") tableMapping.ColumnMappings.Add("kdb_gueter", "kdb_gueter") tableMapping.ColumnMappings.Add("kdb_grenzen", "kdb_grenzen") tableMapping.ColumnMappings.Add("kdb_verhaltenAvisierung", "kdb_verhaltenAvisierung") tableMapping.ColumnMappings.Add("kdb_sonstiges", "kdb_sonstiges") 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].[tblKundenDatenblatt] WHERE (([kdb_KundenNr] = @Original_kdb_Ku"& _ "ndenNr) AND ((@IsNull_kdb_route = 1 AND [kdb_route] IS NULL) OR ([kdb_route] = @"& _ "Original_kdb_route)) AND ((@IsNull_kdb_buergschaftsgeber = 1 AND [kdb_buergschaf"& _ "tsgeber] IS NULL) OR ([kdb_buergschaftsgeber] = @Original_kdb_buergschaftsgeber)"& _ ") AND ((@IsNull_kdb_anzahlLKW = 1 AND [kdb_anzahlLKW] IS NULL) OR ([kdb_anzahlLK"& _ "W] = @Original_kdb_anzahlLKW)) AND ((@IsNull_kdb_anzahlMA = 1 AND [kdb_anzahlMA]"& _ " IS NULL) OR ([kdb_anzahlMA] = @Original_kdb_anzahlMA)) AND ((@IsNull_kdb_bestim"& _ "mungslandEU = 1 AND [kdb_bestimmungslandEU] IS NULL) OR ([kdb_bestimmungslandEU]"& _ " = @Original_kdb_bestimmungslandEU)) AND ((@IsNull_kdb_grosskunden = 1 AND [kdb_"& _ "grosskunden] IS NULL) OR ([kdb_grosskunden] = @Original_kdb_grosskunden)) AND (("& _ "@IsNull_kdb_gueter = 1 AND [kdb_gueter] IS NULL) OR ([kdb_gueter] = @Original_kd"& _ "b_gueter)) AND ((@IsNull_kdb_grenzen = 1 AND [kdb_grenzen] IS NULL) OR ([kdb_gre"& _ "nzen] = @Original_kdb_grenzen)) AND ((@IsNull_kdb_verhaltenAvisierung = 1 AND [k"& _ "db_verhaltenAvisierung] IS NULL) OR ([kdb_verhaltenAvisierung] = @Original_kdb_v"& _ "erhaltenAvisierung)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_route", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_route", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_route", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_route", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_buergschaftsgeber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_buergschaftsgeber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_buergschaftsgeber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_buergschaftsgeber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_anzahlLKW", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlLKW", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_anzahlLKW", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlLKW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_anzahlMA", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlMA", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_anzahlMA", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlMA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_bestimmungslandEU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_bestimmungslandEU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_bestimmungslandEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_bestimmungslandEU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_grosskunden", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grosskunden", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_grosskunden", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grosskunden", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_gueter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_gueter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_gueter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_gueter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_grenzen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grenzen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_grenzen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grenzen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_verhaltenAvisierung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_verhaltenAvisierung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_verhaltenAvisierung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_verhaltenAvisierung", 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].[tblKundenDatenblatt] ([kdb_KundenNr], [kdb_route], [kdb_buergs"& _ "chaftsgeber], [kdb_anzahlLKW], [kdb_anzahlMA], [kdb_bestimmungslandEU], [kdb_gro"& _ "sskunden], [kdb_gueter], [kdb_grenzen], [kdb_verhaltenAvisierung], [kdb_sonstige"& _ "s]) VALUES (@kdb_KundenNr, @kdb_route, @kdb_buergschaftsgeber, @kdb_anzahlLKW, @"& _ "kdb_anzahlMA, @kdb_bestimmungslandEU, @kdb_grosskunden, @kdb_gueter, @kdb_grenze"& _ "n, @kdb_verhaltenAvisierung, @kdb_sonstiges);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kdb_KundenNr, kdb_route, k"& _ "db_buergschaftsgeber, kdb_anzahlLKW, kdb_anzahlMA, kdb_bestimmungslandEU, kdb_gr"& _ "osskunden, kdb_gueter, kdb_grenzen, kdb_verhaltenAvisierung, kdb_sonstiges FROM "& _ "tblKundenDatenblatt WHERE (kdb_KundenNr = @kdb_KundenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_route", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_route", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_buergschaftsgeber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_buergschaftsgeber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_anzahlLKW", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlLKW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_anzahlMA", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlMA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_bestimmungslandEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_bestimmungslandEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_grosskunden", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grosskunden", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_gueter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_gueter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_grenzen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grenzen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_verhaltenAvisierung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_verhaltenAvisierung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_sonstiges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_sonstiges", 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].[tblKundenDatenblatt] SET [kdb_KundenNr] = @kdb_KundenNr, [kdb_route"& _ "] = @kdb_route, [kdb_buergschaftsgeber] = @kdb_buergschaftsgeber, [kdb_anzahlLKW"& _ "] = @kdb_anzahlLKW, [kdb_anzahlMA] = @kdb_anzahlMA, [kdb_bestimmungslandEU] = @k"& _ "db_bestimmungslandEU, [kdb_grosskunden] = @kdb_grosskunden, [kdb_gueter] = @kdb_"& _ "gueter, [kdb_grenzen] = @kdb_grenzen, [kdb_verhaltenAvisierung] = @kdb_verhalten"& _ "Avisierung, [kdb_sonstiges] = @kdb_sonstiges WHERE (([kdb_KundenNr] = @Original_"& _ "kdb_KundenNr) AND ((@IsNull_kdb_route = 1 AND [kdb_route] IS NULL) OR ([kdb_rout"& _ "e] = @Original_kdb_route)) AND ((@IsNull_kdb_buergschaftsgeber = 1 AND [kdb_buer"& _ "gschaftsgeber] IS NULL) OR ([kdb_buergschaftsgeber] = @Original_kdb_buergschafts"& _ "geber)) AND ((@IsNull_kdb_anzahlLKW = 1 AND [kdb_anzahlLKW] IS NULL) OR ([kdb_an"& _ "zahlLKW] = @Original_kdb_anzahlLKW)) AND ((@IsNull_kdb_anzahlMA = 1 AND [kdb_anz"& _ "ahlMA] IS NULL) OR ([kdb_anzahlMA] = @Original_kdb_anzahlMA)) AND ((@IsNull_kdb_"& _ "bestimmungslandEU = 1 AND [kdb_bestimmungslandEU] IS NULL) OR ([kdb_bestimmungsl"& _ "andEU] = @Original_kdb_bestimmungslandEU)) AND ((@IsNull_kdb_grosskunden = 1 AND"& _ " [kdb_grosskunden] IS NULL) OR ([kdb_grosskunden] = @Original_kdb_grosskunden)) "& _ "AND ((@IsNull_kdb_gueter = 1 AND [kdb_gueter] IS NULL) OR ([kdb_gueter] = @Origi"& _ "nal_kdb_gueter)) AND ((@IsNull_kdb_grenzen = 1 AND [kdb_grenzen] IS NULL) OR ([k"& _ "db_grenzen] = @Original_kdb_grenzen)) AND ((@IsNull_kdb_verhaltenAvisierung = 1 "& _ "AND [kdb_verhaltenAvisierung] IS NULL) OR ([kdb_verhaltenAvisierung] = @Original"& _ "_kdb_verhaltenAvisierung)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kdb_KundenNr, kdb_route, kdb_buergschaftsge"& _ "ber, kdb_anzahlLKW, kdb_anzahlMA, kdb_bestimmungslandEU, kdb_grosskunden, kdb_gu"& _ "eter, kdb_grenzen, kdb_verhaltenAvisierung, kdb_sonstiges FROM tblKundenDatenbla"& _ "tt WHERE (kdb_KundenNr = @kdb_KundenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_route", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_route", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_buergschaftsgeber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_buergschaftsgeber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_anzahlLKW", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlLKW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_anzahlMA", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlMA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_bestimmungslandEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_bestimmungslandEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_grosskunden", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grosskunden", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_gueter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_gueter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_grenzen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grenzen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_verhaltenAvisierung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_verhaltenAvisierung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdb_sonstiges", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_sonstiges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_route", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_route", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_route", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_route", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_buergschaftsgeber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_buergschaftsgeber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_buergschaftsgeber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_buergschaftsgeber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_anzahlLKW", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlLKW", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_anzahlLKW", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlLKW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_anzahlMA", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlMA", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_anzahlMA", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_anzahlMA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_bestimmungslandEU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_bestimmungslandEU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_bestimmungslandEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_bestimmungslandEU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_grosskunden", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grosskunden", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_grosskunden", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grosskunden", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_gueter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_gueter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_gueter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_gueter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_grenzen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grenzen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_grenzen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_grenzen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdb_verhaltenAvisierung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_verhaltenAvisierung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdb_verhaltenAvisierung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdb_verhaltenAvisierung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kdb_KundenNr, kdb_route, kdb_buergschaftsgeber, kdb_anzahlLKW, kdb_anzahlM"& _ "A, kdb_bestimmungslandEU, kdb_grosskunden, kdb_gueter, kdb_grenzen, kdb_verhalte"& _ "nAvisierung, kdb_sonstiges FROM dbo.tblKundenDatenblatt" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenDatenblattDataTable) 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 VERAGDataSet.tblKundenDatenblattDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenDatenblattDataTable = New VERAGDataSet.tblKundenDatenblattDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenDatenblattDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenDatenblatt") 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_kdb_KundenNr As Integer, ByVal Original_kdb_route As String, ByVal Original_kdb_buergschaftsgeber As String, ByVal Original_kdb_anzahlLKW As Global.System.Nullable(Of Integer), ByVal Original_kdb_anzahlMA As Global.System.Nullable(Of Integer), ByVal Original_kdb_bestimmungslandEU As String, ByVal Original_kdb_grosskunden As String, ByVal Original_kdb_gueter As String, ByVal Original_kdb_grenzen As String, ByVal Original_kdb_verhaltenAvisierung As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kdb_KundenNr,Integer) If (Original_kdb_route 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_kdb_route,String) End If If (Original_kdb_buergschaftsgeber 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_kdb_buergschaftsgeber,String) End If If (Original_kdb_anzahlLKW.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_kdb_anzahlLKW.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_kdb_anzahlMA.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_kdb_anzahlMA.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_kdb_bestimmungslandEU 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_kdb_bestimmungslandEU,String) End If If (Original_kdb_grosskunden 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_kdb_grosskunden,String) End If If (Original_kdb_gueter 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_kdb_gueter,String) End If If (Original_kdb_grenzen Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_kdb_grenzen,String) End If If (Original_kdb_verhaltenAvisierung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_kdb_verhaltenAvisierung,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 kdb_KundenNr As Integer, ByVal kdb_route As String, ByVal kdb_buergschaftsgeber As String, ByVal kdb_anzahlLKW As Global.System.Nullable(Of Integer), ByVal kdb_anzahlMA As Global.System.Nullable(Of Integer), ByVal kdb_bestimmungslandEU As String, ByVal kdb_grosskunden As String, ByVal kdb_gueter As String, ByVal kdb_grenzen As String, ByVal kdb_verhaltenAvisierung As String, ByVal kdb_sonstiges As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(kdb_KundenNr,Integer) If (kdb_route Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(kdb_route,String) End If If (kdb_buergschaftsgeber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(kdb_buergschaftsgeber,String) End If If (kdb_anzahlLKW.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(kdb_anzahlLKW.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (kdb_anzahlMA.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(kdb_anzahlMA.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (kdb_bestimmungslandEU Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(kdb_bestimmungslandEU,String) End If If (kdb_grosskunden Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(kdb_grosskunden,String) End If If (kdb_gueter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(kdb_gueter,String) End If If (kdb_grenzen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(kdb_grenzen,String) End If If (kdb_verhaltenAvisierung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(kdb_verhaltenAvisierung,String) End If If (kdb_sonstiges Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(kdb_sonstiges,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 kdb_KundenNr As Integer, _ ByVal kdb_route As String, _ ByVal kdb_buergschaftsgeber As String, _ ByVal kdb_anzahlLKW As Global.System.Nullable(Of Integer), _ ByVal kdb_anzahlMA As Global.System.Nullable(Of Integer), _ ByVal kdb_bestimmungslandEU As String, _ ByVal kdb_grosskunden As String, _ ByVal kdb_gueter As String, _ ByVal kdb_grenzen As String, _ ByVal kdb_verhaltenAvisierung As String, _ ByVal kdb_sonstiges As String, _ ByVal Original_kdb_KundenNr As Integer, _ ByVal Original_kdb_route As String, _ ByVal Original_kdb_buergschaftsgeber As String, _ ByVal Original_kdb_anzahlLKW As Global.System.Nullable(Of Integer), _ ByVal Original_kdb_anzahlMA As Global.System.Nullable(Of Integer), _ ByVal Original_kdb_bestimmungslandEU As String, _ ByVal Original_kdb_grosskunden As String, _ ByVal Original_kdb_gueter As String, _ ByVal Original_kdb_grenzen As String, _ ByVal Original_kdb_verhaltenAvisierung As String) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kdb_KundenNr,Integer) If (kdb_route Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(kdb_route,String) End If If (kdb_buergschaftsgeber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(kdb_buergschaftsgeber,String) End If If (kdb_anzahlLKW.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(kdb_anzahlLKW.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (kdb_anzahlMA.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(kdb_anzahlMA.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (kdb_bestimmungslandEU Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(kdb_bestimmungslandEU,String) End If If (kdb_grosskunden Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(kdb_grosskunden,String) End If If (kdb_gueter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(kdb_gueter,String) End If If (kdb_grenzen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(kdb_grenzen,String) End If If (kdb_verhaltenAvisierung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(kdb_verhaltenAvisierung,String) End If If (kdb_sonstiges Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(kdb_sonstiges,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_kdb_KundenNr,Integer) If (Original_kdb_route 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_kdb_route,String) End If If (Original_kdb_buergschaftsgeber 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_kdb_buergschaftsgeber,String) End If If (Original_kdb_anzahlLKW.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_kdb_anzahlLKW.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_kdb_anzahlMA.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_kdb_anzahlMA.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_kdb_bestimmungslandEU Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_kdb_bestimmungslandEU,String) End If If (Original_kdb_grosskunden Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_kdb_grosskunden,String) End If If (Original_kdb_gueter 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_kdb_gueter,String) End If If (Original_kdb_grenzen 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_kdb_grenzen,String) End If If (Original_kdb_verhaltenAvisierung 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_kdb_verhaltenAvisierung,String) End If 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 kdb_route As String, _ ByVal kdb_buergschaftsgeber As String, _ ByVal kdb_anzahlLKW As Global.System.Nullable(Of Integer), _ ByVal kdb_anzahlMA As Global.System.Nullable(Of Integer), _ ByVal kdb_bestimmungslandEU As String, _ ByVal kdb_grosskunden As String, _ ByVal kdb_gueter As String, _ ByVal kdb_grenzen As String, _ ByVal kdb_verhaltenAvisierung As String, _ ByVal kdb_sonstiges As String, _ ByVal Original_kdb_KundenNr As Integer, _ ByVal Original_kdb_route As String, _ ByVal Original_kdb_buergschaftsgeber As String, _ ByVal Original_kdb_anzahlLKW As Global.System.Nullable(Of Integer), _ ByVal Original_kdb_anzahlMA As Global.System.Nullable(Of Integer), _ ByVal Original_kdb_bestimmungslandEU As String, _ ByVal Original_kdb_grosskunden As String, _ ByVal Original_kdb_gueter As String, _ ByVal Original_kdb_grenzen As String, _ ByVal Original_kdb_verhaltenAvisierung As String) As Integer Return Me.Update(Original_kdb_KundenNr, kdb_route, kdb_buergschaftsgeber, kdb_anzahlLKW, kdb_anzahlMA, kdb_bestimmungslandEU, kdb_grosskunden, kdb_gueter, kdb_grenzen, kdb_verhaltenAvisierung, kdb_sonstiges, Original_kdb_KundenNr, Original_kdb_route, Original_kdb_buergschaftsgeber, Original_kdb_anzahlLKW, Original_kdb_anzahlMA, Original_kdb_bestimmungslandEU, Original_kdb_grosskunden, Original_kdb_gueter, Original_kdb_grenzen, Original_kdb_verhaltenAvisierung) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenErweitertTableAdapter 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 = "tblKundenErweitert" tableMapping.ColumnMappings.Add("kde_KundenNr", "kde_KundenNr") tableMapping.ColumnMappings.Add("kde_FirmenwortlautFiskal", "kde_FirmenwortlautFiskal") tableMapping.ColumnMappings.Add("kde_VerwendetAuftragsNr", "kde_VerwendetAuftragsNr") tableMapping.ColumnMappings.Add("kde_FixeAuftragsNr", "kde_FixeAuftragsNr") tableMapping.ColumnMappings.Add("kde_qsTeamId", "kde_qsTeamId") tableMapping.ColumnMappings.Add("kde_qsTeamMAId", "kde_qsTeamMAId") tableMapping.ColumnMappings.Add("kde_TeamId", "kde_TeamId") tableMapping.ColumnMappings.Add("kde_TeamMAId", "kde_TeamMAId") tableMapping.ColumnMappings.Add("kde_qsTeamMAName", "kde_qsTeamMAName") tableMapping.ColumnMappings.Add("kde_qsTeamName", "kde_qsTeamName") tableMapping.ColumnMappings.Add("kde_Hoechstkredit", "kde_Hoechstkredit") tableMapping.ColumnMappings.Add("kde_Versicherung_Deckungsstopp", "kde_Versicherung_Deckungsstopp") tableMapping.ColumnMappings.Add("kde_Versicherung_DeckungsstoppDatum", "kde_Versicherung_DeckungsstoppDatum") tableMapping.ColumnMappings.Add("kde_Versicherung_Uebergeben", "kde_Versicherung_Uebergeben") tableMapping.ColumnMappings.Add("kde_Versicherung_UebergebenAm", "kde_Versicherung_UebergebenAm") tableMapping.ColumnMappings.Add("kde_Versicherung_AnerkennungVersicherungsfall", "kde_Versicherung_AnerkennungVersicherungsfall") tableMapping.ColumnMappings.Add("kde_Versicherung_AnerkennungVersicherungsfallAm", "kde_Versicherung_AnerkennungVersicherungsfallAm") tableMapping.ColumnMappings.Add("kde_Versicherung_AnerkennungVersicherungsfallAb", "kde_Versicherung_AnerkennungVersicherungsfallAb") tableMapping.ColumnMappings.Add("kde_txtVersicherungDeckungsquote", "kde_txtVersicherungDeckungsquote") tableMapping.ColumnMappings.Add("kde_txtVersicherungNichtVersicherbar", "kde_txtVersicherungNichtVersicherbar") tableMapping.ColumnMappings.Add("kde_Versicherung_GemeldeterBetrag", "kde_Versicherung_GemeldeterBetrag") tableMapping.ColumnMappings.Add("kde_txtVersicherungEHNr", "kde_txtVersicherungEHNr") tableMapping.ColumnMappings.Add("kde_Leihgeld_Provision", "kde_Leihgeld_Provision") tableMapping.ColumnMappings.Add("kde_Leihgeld_ProvisionPreisstaffel", "kde_Leihgeld_ProvisionPreisstaffel") tableMapping.ColumnMappings.Add("kde_Leihgeld_ProvisionAuftraggeber", "kde_Leihgeld_ProvisionAuftraggeber") tableMapping.ColumnMappings.Add("EmailFreigabeSendungsListe", "EmailFreigabeSendungsListe") tableMapping.ColumnMappings.Add("EmailFreigabe_SteuerbescheidPDF", "EmailFreigabe_SteuerbescheidPDF") tableMapping.ColumnMappings.Add("EmailFreigabe_SteuerbescheidPDF_Bedingung", "EmailFreigabe_SteuerbescheidPDF_Bedingung") tableMapping.ColumnMappings.Add("EmailFreigabe_Art", "EmailFreigabe_Art") tableMapping.ColumnMappings.Add("EmailFreigabe_VBDPDF", "EmailFreigabe_VBDPDF") tableMapping.ColumnMappings.Add("EmailFreigabe_ABDPDF", "EmailFreigabe_ABDPDF") tableMapping.ColumnMappings.Add("Email_AVM", "Email_AVM") tableMapping.ColumnMappings.Add("Depot_Kunde", "Depot_Kunde") tableMapping.ColumnMappings.Add("FiBuSchnittstelleLG", "FiBuSchnittstelleLG") tableMapping.ColumnMappings.Add("Zahlungsziel2", "Zahlungsziel2") tableMapping.ColumnMappings.Add("Zahlungsziel3", "Zahlungsziel3") tableMapping.ColumnMappings.Add("EmailAnkunft_Export", "EmailAnkunft_Export") tableMapping.ColumnMappings.Add("EmailFreigabe_Export", "EmailFreigabe_Export") tableMapping.ColumnMappings.Add("EmailFreigabe_Export_Art", "EmailFreigabe_Export_Art") tableMapping.ColumnMappings.Add("kde_BonitaetsStufe", "kde_BonitaetsStufe") tableMapping.ColumnMappings.Add("kde_Inkasso_Uebergeben", "kde_Inkasso_Uebergeben") tableMapping.ColumnMappings.Add("kde_Inkasso_UebergebenAm", "kde_Inkasso_UebergebenAm") tableMapping.ColumnMappings.Add("kde_Inkasso_GemeldeterBetrag", "kde_Inkasso_GemeldeterBetrag") tableMapping.ColumnMappings.Add("AutoFakturierung", "AutoFakturierung") tableMapping.ColumnMappings.Add("Anmerkungen_Warnhinweis", "Anmerkungen_Warnhinweis") tableMapping.ColumnMappings.Add("kde_VERAG_INTERFACE_ID", "kde_VERAG_INTERFACE_ID") tableMapping.ColumnMappings.Add("kde_BesonderheitenNeu", "kde_BesonderheitenNeu") tableMapping.ColumnMappings.Add("kde_InfoAuftragsNr", "kde_InfoAuftragsNr") tableMapping.ColumnMappings.Add("kde_KundeFremdspedition", "kde_KundeFremdspedition") tableMapping.ColumnMappings.Add("kde_verzolltBei", "kde_verzolltBei") tableMapping.ColumnMappings.Add("kde_KundeFremdspeditionExport", "kde_KundeFremdspeditionExport") tableMapping.ColumnMappings.Add("kde_verzolltBeiExport", "kde_verzolltBeiExport") tableMapping.ColumnMappings.Add("Veranlagungskunde", "Veranlagungskunde") tableMapping.ColumnMappings.Add("kde_API_Tradeshift", "kde_API_Tradeshift") tableMapping.ColumnMappings.Add("kde_FakturierungSR_Details", "kde_FakturierungSR_Details") tableMapping.ColumnMappings.Add("kde_Fakturierung_Sprache", "kde_Fakturierung_Sprache") tableMapping.ColumnMappings.Add("kde_TOBB_KundenNr", "kde_TOBB_KundenNr") tableMapping.ColumnMappings.Add("kde_CreditSaveBonitaetsklasse", "kde_CreditSaveBonitaetsklasse") tableMapping.ColumnMappings.Add("kde_CreditSaveBonitaetsIndex", "kde_CreditSaveBonitaetsIndex") tableMapping.ColumnMappings.Add("kde_CreditSaveBonitaetsScore", "kde_CreditSaveBonitaetsScore") tableMapping.ColumnMappings.Add("kde_CreditSaveId", "kde_CreditSaveId") tableMapping.ColumnMappings.Add("kde_CreditSaveNo", "kde_CreditSaveNo") tableMapping.ColumnMappings.Add("kde_Abrechnung_SendungsdatenAusSTB", "kde_Abrechnung_SendungsdatenAusSTB") tableMapping.ColumnMappings.Add("kde_UIDMehrfachverwendung", "kde_UIDMehrfachverwendung") tableMapping.ColumnMappings.Add("kde_EORIgeprueftAm", "kde_EORIgeprueftAm") tableMapping.ColumnMappings.Add("kde_AdressZusatz", "kde_AdressZusatz") tableMapping.ColumnMappings.Add("kde_abweichendesZZVL", "kde_abweichendesZZVL") tableMapping.ColumnMappings.Add("kde_HRNr", "kde_HRNr") tableMapping.ColumnMappings.Add("kde_Kapital", "kde_Kapital") tableMapping.ColumnMappings.Add("kde_KapitalWaehrung", "kde_KapitalWaehrung") tableMapping.ColumnMappings.Add("kde_GruendungsDatum", "kde_GruendungsDatum") tableMapping.ColumnMappings.Add("kde_WechselBetrag", "kde_WechselBetrag") tableMapping.ColumnMappings.Add("kde_WechselGueltigBis", "kde_WechselGueltigBis") tableMapping.ColumnMappings.Add("kde_WechselErhaltenAm", "kde_WechselErhaltenAm") tableMapping.ColumnMappings.Add("kde_BankgarantielErhaltenAm", "kde_BankgarantielErhaltenAm") tableMapping.ColumnMappings.Add("kde_WechselBlanko", "kde_WechselBlanko") 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].[tblKundenErweitert] WHERE (([kde_KundenNr] = @Original_kde_Kun"& _ "denNr) AND ((@IsNull_kde_FirmenwortlautFiskal = 1 AND [kde_FirmenwortlautFiskal]"& _ " IS NULL) OR ([kde_FirmenwortlautFiskal] = @Original_kde_FirmenwortlautFiskal)) "& _ "AND ([kde_VerwendetAuftragsNr] = @Original_kde_VerwendetAuftragsNr) AND ((@IsNul"& _ "l_kde_FixeAuftragsNr = 1 AND [kde_FixeAuftragsNr] IS NULL) OR ([kde_FixeAuftrags"& _ "Nr] = @Original_kde_FixeAuftragsNr)) AND ((@IsNull_kde_qsTeamId = 1 AND [kde_qsT"& _ "eamId] IS NULL) OR ([kde_qsTeamId] = @Original_kde_qsTeamId)) AND ((@IsNull_kde_"& _ "qsTeamMAId = 1 AND [kde_qsTeamMAId] IS NULL) OR ([kde_qsTeamMAId] = @Original_kd"& _ "e_qsTeamMAId)) AND ((@IsNull_kde_TeamId = 1 AND [kde_TeamId] IS NULL) OR ([kde_T"& _ "eamId] = @Original_kde_TeamId)) AND ((@IsNull_kde_TeamMAId = 1 AND [kde_TeamMAId"& _ "] IS NULL) OR ([kde_TeamMAId] = @Original_kde_TeamMAId)) AND ((@IsNull_kde_qsTea"& _ "mMAName = 1 AND [kde_qsTeamMAName] IS NULL) OR ([kde_qsTeamMAName] = @Original_k"& _ "de_qsTeamMAName)) AND ((@IsNull_kde_qsTeamName = 1 AND [kde_qsTeamName] IS NULL)"& _ " OR ([kde_qsTeamName] = @Original_kde_qsTeamName)) AND ((@IsNull_kde_Hoechstkred"& _ "it = 1 AND [kde_Hoechstkredit] IS NULL) OR ([kde_Hoechstkredit] = @Original_kde_"& _ "Hoechstkredit)) AND ([kde_Versicherung_Deckungsstopp] = @Original_kde_Versicheru"& _ "ng_Deckungsstopp) AND ((@IsNull_kde_Versicherung_DeckungsstoppDatum = 1 AND [kde"& _ "_Versicherung_DeckungsstoppDatum] IS NULL) OR ([kde_Versicherung_DeckungsstoppDa"& _ "tum] = @Original_kde_Versicherung_DeckungsstoppDatum)) AND ((@IsNull_kde_Versich"& _ "erung_Uebergeben = 1 AND [kde_Versicherung_Uebergeben] IS NULL) OR ([kde_Versich"& _ "erung_Uebergeben] = @Original_kde_Versicherung_Uebergeben)) AND ((@IsNull_kde_Ve"& _ "rsicherung_UebergebenAm = 1 AND [kde_Versicherung_UebergebenAm] IS NULL) OR ([kd"& _ "e_Versicherung_UebergebenAm] = @Original_kde_Versicherung_UebergebenAm)) AND ((@"& _ "IsNull_kde_Versicherung_AnerkennungVersicherungsfall = 1 AND [kde_Versicherung_A"& _ "nerkennungVersicherungsfall] IS NULL) OR ([kde_Versicherung_AnerkennungVersicher"& _ "ungsfall] = @Original_kde_Versicherung_AnerkennungVersicherungsfall)) AND ((@IsN"& _ "ull_kde_Versicherung_AnerkennungVersicherungsfallAm = 1 AND [kde_Versicherung_An"& _ "erkennungVersicherungsfallAm] IS NULL) OR ([kde_Versicherung_AnerkennungVersiche"& _ "rungsfallAm] = @Original_kde_Versicherung_AnerkennungVersicherungsfallAm)) AND ("& _ "(@IsNull_kde_Versicherung_AnerkennungVersicherungsfallAb = 1 AND [kde_Versicheru"& _ "ng_AnerkennungVersicherungsfallAb] IS NULL) OR ([kde_Versicherung_AnerkennungVer"& _ "sicherungsfallAb] = @Original_kde_Versicherung_AnerkennungVersicherungsfallAb)) "& _ "AND ((@IsNull_kde_txtVersicherungDeckungsquote = 1 AND [kde_txtVersicherungDecku"& _ "ngsquote] IS NULL) OR ([kde_txtVersicherungDeckungsquote] = @Original_kde_txtVer"& _ "sicherungDeckungsquote)) AND ((@IsNull_kde_txtVersicherungNichtVersicherbar = 1 "& _ "AND [kde_txtVersicherungNichtVersicherbar] IS NULL) OR ([kde_txtVersicherungNich"& _ "tVersicherbar] = @Original_kde_txtVersicherungNichtVersicherbar)) AND ((@IsNull_"& _ "kde_Versicherung_GemeldeterBetrag = 1 AND [kde_Versicherung_GemeldeterBetrag] IS"& _ " NULL) OR ([kde_Versicherung_GemeldeterBetrag] = @Original_kde_Versicherung_Geme"& _ "ldeterBetrag)) AND ((@IsNull_kde_txtVersicherungEHNr = 1 AND [kde_txtVersicherun"& _ "gEHNr] IS NULL) OR ([kde_txtVersicherungEHNr] = @Original_kde_txtVersicherungEHN"& _ "r)) AND ((@IsNull_kde_Leihgeld_Provision = 1 AND [kde_Leihgeld_Provision] IS NUL"& _ "L) OR ([kde_Leihgeld_Provision] = @Original_kde_Leihgeld_Provision)) AND ((@IsNu"& _ "ll_kde_Leihgeld_ProvisionPreisstaffel = 1 AND [kde_Leihgeld_ProvisionPreisstaffe"& _ "l] IS NULL) OR ([kde_Leihgeld_ProvisionPreisstaffel] = @Original_kde_Leihgeld_Pr"& _ "ovisionPreisstaffel)) AND ((@IsNull_kde_Leihgeld_ProvisionAuftraggeber = 1 AND ["& _ "kde_Leihgeld_ProvisionAuftraggeber] IS NULL) OR ([kde_Leihgeld_ProvisionAuftragg"& _ "eber] = @Original_kde_Leihgeld_ProvisionAuftraggeber)) AND ([EmailFreigabeSendun"& _ "gsListe] = @Original_EmailFreigabeSendungsListe) AND ([EmailFreigabe_Steuerbesch"& _ "eidPDF] = @Original_EmailFreigabe_SteuerbescheidPDF) AND ([EmailFreigabe_Steuerb"& _ "escheidPDF_Bedingung] = @Original_EmailFreigabe_SteuerbescheidPDF_Bedingung) AND"& _ " ([EmailFreigabe_Art] = @Original_EmailFreigabe_Art) AND ([EmailFreigabe_VBDPDF]"& _ " = @Original_EmailFreigabe_VBDPDF) AND ([EmailFreigabe_ABDPDF] = @Original_Email"& _ "Freigabe_ABDPDF) AND ([Email_AVM] = @Original_Email_AVM) AND ([Depot_Kunde] = @O"& _ "riginal_Depot_Kunde) AND ([FiBuSchnittstelleLG] = @Original_FiBuSchnittstelleLG)"& _ " AND ((@IsNull_Zahlungsziel2 = 1 AND [Zahlungsziel2] IS NULL) OR ([Zahlungsziel2"& _ "] = @Original_Zahlungsziel2)) AND ((@IsNull_Zahlungsziel3 = 1 AND [Zahlungsziel3"& _ "] IS NULL) OR ([Zahlungsziel3] = @Original_Zahlungsziel3)) AND ([EmailAnkunft_Ex"& _ "port] = @Original_EmailAnkunft_Export) AND ([EmailFreigabe_Export] = @Original_E"& _ "mailFreigabe_Export) AND ([EmailFreigabe_Export_Art] = @Original_EmailFreigabe_E"& _ "xport_Art) AND ((@IsNull_kde_BonitaetsStufe = 1 AND [kde_BonitaetsStufe] IS NULL"& _ ") OR ([kde_BonitaetsStufe] = @Original_kde_BonitaetsStufe)) AND ((@IsNull_kde_In"& _ "kasso_Uebergeben = 1 AND [kde_Inkasso_Uebergeben] IS NULL) OR ([kde_Inkasso_Uebe"& _ "rgeben] = @Original_kde_Inkasso_Uebergeben)) AND ((@IsNull_kde_Inkasso_Uebergebe"& _ "nAm = 1 AND [kde_Inkasso_UebergebenAm] IS NULL) OR ([kde_Inkasso_UebergebenAm] ="& _ " @Original_kde_Inkasso_UebergebenAm)) AND ((@IsNull_kde_Inkasso_GemeldeterBetrag"& _ " = 1 AND [kde_Inkasso_GemeldeterBetrag] IS NULL) OR ([kde_Inkasso_GemeldeterBetr"& _ "ag] = @Original_kde_Inkasso_GemeldeterBetrag)) AND ([AutoFakturierung] = @Origin"& _ "al_AutoFakturierung) AND ((@IsNull_kde_VERAG_INTERFACE_ID = 1 AND [kde_VERAG_INT"& _ "ERFACE_ID] IS NULL) OR ([kde_VERAG_INTERFACE_ID] = @Original_kde_VERAG_INTERFACE"& _ "_ID)) AND ([kde_BesonderheitenNeu] = @Original_kde_BesonderheitenNeu) AND ((@IsN"& _ "ull_kde_InfoAuftragsNr = 1 AND [kde_InfoAuftragsNr] IS NULL) OR ([kde_InfoAuftra"& _ "gsNr] = @Original_kde_InfoAuftragsNr)) AND ([kde_KundeFremdspedition] = @Origina"& _ "l_kde_KundeFremdspedition) AND ((@IsNull_kde_verzolltBei = 1 AND [kde_verzolltBe"& _ "i] IS NULL) OR ([kde_verzolltBei] = @Original_kde_verzolltBei)) AND ([kde_KundeF"& _ "remdspeditionExport] = @Original_kde_KundeFremdspeditionExport) AND ((@IsNull_kd"& _ "e_verzolltBeiExport = 1 AND [kde_verzolltBeiExport] IS NULL) OR ([kde_verzolltBe"& _ "iExport] = @Original_kde_verzolltBeiExport)) AND ([Veranlagungskunde] = @Origina"& _ "l_Veranlagungskunde) AND ([kde_API_Tradeshift] = @Original_kde_API_Tradeshift) A"& _ "ND ([kde_FakturierungSR_Details] = @Original_kde_FakturierungSR_Details) AND ((@"& _ "IsNull_kde_Fakturierung_Sprache = 1 AND [kde_Fakturierung_Sprache] IS NULL) OR ("& _ "[kde_Fakturierung_Sprache] = @Original_kde_Fakturierung_Sprache)) AND ((@IsNull_"& _ "kde_TOBB_KundenNr = 1 AND [kde_TOBB_KundenNr] IS NULL) OR ([kde_TOBB_KundenNr] ="& _ " @Original_kde_TOBB_KundenNr)) AND ((@IsNull_kde_CreditSaveBonitaetsklasse = 1 A"& _ "ND [kde_CreditSaveBonitaetsklasse] IS NULL) OR ([kde_CreditSaveBonitaetsklasse] "& _ "= @Original_kde_CreditSaveBonitaetsklasse)) AND ((@IsNull_kde_CreditSaveBonitaet"& _ "sIndex = 1 AND [kde_CreditSaveBonitaetsIndex] IS NULL) OR ([kde_CreditSaveBonita"& _ "etsIndex] = @Original_kde_CreditSaveBonitaetsIndex)) AND ((@IsNull_kde_CreditSav"& _ "eBonitaetsScore = 1 AND [kde_CreditSaveBonitaetsScore] IS NULL) OR ([kde_CreditS"& _ "aveBonitaetsScore] = @Original_kde_CreditSaveBonitaetsScore)) AND ((@IsNull_kde_"& _ "CreditSaveId = 1 AND [kde_CreditSaveId] IS NULL) OR ([kde_CreditSaveId] = @Origi"& _ "nal_kde_CreditSaveId)) AND ((@IsNull_kde_CreditSaveNo = 1 AND [kde_CreditSaveNo]"& _ " IS NULL) OR ([kde_CreditSaveNo] = @Original_kde_CreditSaveNo)) AND ([kde_Abrech"& _ "nung_SendungsdatenAusSTB] = @Original_kde_Abrechnung_SendungsdatenAusSTB) AND (["& _ "kde_UIDMehrfachverwendung] = @Original_kde_UIDMehrfachverwendung) AND ((@IsNull_"& _ "kde_EORIgeprueftAm = 1 AND [kde_EORIgeprueftAm] IS NULL) OR ([kde_EORIgeprueftAm"& _ "] = @Original_kde_EORIgeprueftAm)) AND ((@IsNull_kde_AdressZusatz = 1 AND [kde_A"& _ "dressZusatz] IS NULL) OR ([kde_AdressZusatz] = @Original_kde_AdressZusatz)) AND "& _ "((@IsNull_kde_abweichendesZZVL = 1 AND [kde_abweichendesZZVL] IS NULL) OR ([kde_"& _ "abweichendesZZVL] = @Original_kde_abweichendesZZVL)) AND ((@IsNull_kde_HRNr = 1 "& _ "AND [kde_HRNr] IS NULL) OR ([kde_HRNr] = @Original_kde_HRNr)) AND ((@IsNull_kde_"& _ "Kapital = 1 AND [kde_Kapital] IS NULL) OR ([kde_Kapital] = @Original_kde_Kapital"& _ ")) AND ((@IsNull_kde_KapitalWaehrung = 1 AND [kde_KapitalWaehrung] IS NULL) OR ("& _ "[kde_KapitalWaehrung] = @Original_kde_KapitalWaehrung)) AND ((@IsNull_kde_Gruend"& _ "ungsDatum = 1 AND [kde_GruendungsDatum] IS NULL) OR ([kde_GruendungsDatum] = @Or"& _ "iginal_kde_GruendungsDatum)) AND ((@IsNull_kde_WechselBetrag = 1 AND [kde_Wechse"& _ "lBetrag] IS NULL) OR ([kde_WechselBetrag] = @Original_kde_WechselBetrag)) AND (("& _ "@IsNull_kde_WechselGueltigBis = 1 AND [kde_WechselGueltigBis] IS NULL) OR ([kde_"& _ "WechselGueltigBis] = @Original_kde_WechselGueltigBis)) AND ((@IsNull_kde_Wechsel"& _ "ErhaltenAm = 1 AND [kde_WechselErhaltenAm] IS NULL) OR ([kde_WechselErhaltenAm] "& _ "= @Original_kde_WechselErhaltenAm)) AND ((@IsNull_kde_BankgarantielErhaltenAm = "& _ "1 AND [kde_BankgarantielErhaltenAm] IS NULL) OR ([kde_BankgarantielErhaltenAm] ="& _ " @Original_kde_BankgarantielErhaltenAm)) AND ([kde_WechselBlanko] = @Original_kd"& _ "e_WechselBlanko))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_FirmenwortlautFiskal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FirmenwortlautFiskal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_FirmenwortlautFiskal", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FirmenwortlautFiskal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_VerwendetAuftragsNr", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_VerwendetAuftragsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_FixeAuftragsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FixeAuftragsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_FixeAuftragsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FixeAuftragsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_qsTeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_qsTeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_qsTeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_qsTeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_TeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_TeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_TeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamMAId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_TeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamMAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_qsTeamMAName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_qsTeamMAName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_qsTeamName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_qsTeamName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Hoechstkredit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Hoechstkredit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Hoechstkredit", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Hoechstkredit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_Deckungsstopp", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_Deckungsstopp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_DeckungsstoppDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_DeckungsstoppDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_DeckungsstoppDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_DeckungsstoppDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_Uebergeben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_Uebergeben", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_Uebergeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_Uebergeben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_UebergebenAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_UebergebenAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_UebergebenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_UebergebenAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_txtVersicherungDeckungsquote", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungDeckungsquote", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_txtVersicherungDeckungsquote", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungDeckungsquote", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_txtVersicherungNichtVersicherbar", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungNichtVersicherbar", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_txtVersicherungNichtVersicherbar", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungNichtVersicherbar", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_GemeldeterBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_GemeldeterBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_GemeldeterBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Versicherung_GemeldeterBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_txtVersicherungEHNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungEHNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_txtVersicherungEHNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungEHNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Leihgeld_Provision", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_Provision", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Leihgeld_Provision", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_Provision", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabeSendungsListe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabeSendungsListe", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_SteuerbescheidPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_SteuerbescheidPDF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_SteuerbescheidPDF_Bedingung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_SteuerbescheidPDF_Bedingung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_VBDPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_VBDPDF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_ABDPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_ABDPDF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Email_AVM", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email_AVM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Depot_Kunde", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Depot_Kunde", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FiBuSchnittstelleLG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FiBuSchnittstelleLG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Zahlungsziel2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Zahlungsziel2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Zahlungsziel3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Zahlungsziel3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailAnkunft_Export", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailAnkunft_Export", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_Export", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Export", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_Export_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Export_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_BonitaetsStufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BonitaetsStufe", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_BonitaetsStufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BonitaetsStufe", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Inkasso_Uebergeben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_Uebergeben", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Inkasso_Uebergeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_Uebergeben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Inkasso_UebergebenAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_UebergebenAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Inkasso_UebergebenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_UebergebenAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Inkasso_GemeldeterBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_GemeldeterBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Inkasso_GemeldeterBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Inkasso_GemeldeterBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AutoFakturierung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutoFakturierung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_VERAG_INTERFACE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_VERAG_INTERFACE_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_VERAG_INTERFACE_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_VERAG_INTERFACE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_BesonderheitenNeu", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BesonderheitenNeu", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_InfoAuftragsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_InfoAuftragsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_InfoAuftragsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_InfoAuftragsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_KundeFremdspedition", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundeFremdspedition", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_verzolltBei", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBei", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_verzolltBei", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBei", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_KundeFremdspeditionExport", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundeFremdspeditionExport", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_verzolltBeiExport", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBeiExport", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_verzolltBeiExport", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBeiExport", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Veranlagungskunde", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Veranlagungskunde", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_API_Tradeshift", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_API_Tradeshift", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_FakturierungSR_Details", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FakturierungSR_Details", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Fakturierung_Sprache", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Fakturierung_Sprache", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Fakturierung_Sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Fakturierung_Sprache", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_TOBB_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TOBB_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_TOBB_KundenNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TOBB_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_CreditSaveBonitaetsklasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsklasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_CreditSaveBonitaetsklasse", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsklasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_CreditSaveId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_CreditSaveId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_CreditSaveNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_CreditSaveNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Abrechnung_SendungsdatenAusSTB", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Abrechnung_SendungsdatenAusSTB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_UIDMehrfachverwendung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_UIDMehrfachverwendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_EORIgeprueftAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_EORIgeprueftAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_EORIgeprueftAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_EORIgeprueftAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_AdressZusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_AdressZusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_AdressZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_AdressZusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_abweichendesZZVL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_abweichendesZZVL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_abweichendesZZVL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_abweichendesZZVL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_HRNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_HRNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_HRNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_HRNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Kapital", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Kapital", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Kapital", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Kapital", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_KapitalWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KapitalWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_KapitalWaehrung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KapitalWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_GruendungsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_GruendungsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_GruendungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_GruendungsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_WechselBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_WechselBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_WechselBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_WechselGueltigBis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselGueltigBis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_WechselGueltigBis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselGueltigBis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_WechselErhaltenAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselErhaltenAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_WechselErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselErhaltenAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_BankgarantielErhaltenAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BankgarantielErhaltenAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_BankgarantielErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BankgarantielErhaltenAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_WechselBlanko", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselBlanko", 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].[tblKundenErweitert] ([kde_KundenNr], [kde_FirmenwortlautFiskal"& _ "], [kde_VerwendetAuftragsNr], [kde_FixeAuftragsNr], [kde_qsTeamId], [kde_qsTeamM"& _ "AId], [kde_TeamId], [kde_TeamMAId], [kde_qsTeamMAName], [kde_qsTeamName], [kde_H"& _ "oechstkredit], [kde_Versicherung_Deckungsstopp], [kde_Versicherung_Deckungsstopp"& _ "Datum], [kde_Versicherung_Uebergeben], [kde_Versicherung_UebergebenAm], [kde_Ver"& _ "sicherung_AnerkennungVersicherungsfall], [kde_Versicherung_AnerkennungVersicheru"& _ "ngsfallAm], [kde_Versicherung_AnerkennungVersicherungsfallAb], [kde_txtVersicher"& _ "ungDeckungsquote], [kde_txtVersicherungNichtVersicherbar], [kde_Versicherung_Gem"& _ "eldeterBetrag], [kde_txtVersicherungEHNr], [kde_Leihgeld_Provision], [kde_Leihge"& _ "ld_ProvisionPreisstaffel], [kde_Leihgeld_ProvisionAuftraggeber], [EmailFreigabeS"& _ "endungsListe], [EmailFreigabe_SteuerbescheidPDF], [EmailFreigabe_SteuerbescheidP"& _ "DF_Bedingung], [EmailFreigabe_Art], [EmailFreigabe_VBDPDF], [EmailFreigabe_ABDPD"& _ "F], [Email_AVM], [Depot_Kunde], [FiBuSchnittstelleLG], [Zahlungsziel2], [Zahlung"& _ "sziel3], [EmailAnkunft_Export], [EmailFreigabe_Export], [EmailFreigabe_Export_Ar"& _ "t], [kde_BonitaetsStufe], [kde_Inkasso_Uebergeben], [kde_Inkasso_UebergebenAm], "& _ "[kde_Inkasso_GemeldeterBetrag], [AutoFakturierung], [Anmerkungen_Warnhinweis], ["& _ "kde_VERAG_INTERFACE_ID], [kde_BesonderheitenNeu], [kde_InfoAuftragsNr], [kde_Kun"& _ "deFremdspedition], [kde_verzolltBei], [kde_KundeFremdspeditionExport], [kde_verz"& _ "olltBeiExport], [Veranlagungskunde], [kde_API_Tradeshift], [kde_FakturierungSR_D"& _ "etails], [kde_Fakturierung_Sprache], [kde_TOBB_KundenNr], [kde_CreditSaveBonitae"& _ "tsklasse], [kde_CreditSaveBonitaetsIndex], [kde_CreditSaveBonitaetsScore], [kde_"& _ "CreditSaveId], [kde_CreditSaveNo], [kde_Abrechnung_SendungsdatenAusSTB], [kde_UI"& _ "DMehrfachverwendung], [kde_EORIgeprueftAm], [kde_AdressZusatz], [kde_abweichende"& _ "sZZVL], [kde_HRNr], [kde_Kapital], [kde_KapitalWaehrung], [kde_GruendungsDatum],"& _ " [kde_WechselBetrag], [kde_WechselGueltigBis], [kde_WechselErhaltenAm], [kde_Ban"& _ "kgarantielErhaltenAm], [kde_WechselBlanko]) VALUES (@kde_KundenNr, @kde_Firmenwo"& _ "rtlautFiskal, @kde_VerwendetAuftragsNr, @kde_FixeAuftragsNr, @kde_qsTeamId, @kde"& _ "_qsTeamMAId, @kde_TeamId, @kde_TeamMAId, @kde_qsTeamMAName, @kde_qsTeamName, @kd"& _ "e_Hoechstkredit, @kde_Versicherung_Deckungsstopp, @kde_Versicherung_Deckungsstop"& _ "pDatum, @kde_Versicherung_Uebergeben, @kde_Versicherung_UebergebenAm, @kde_Versi"& _ "cherung_AnerkennungVersicherungsfall, @kde_Versicherung_AnerkennungVersicherungs"& _ "fallAm, @kde_Versicherung_AnerkennungVersicherungsfallAb, @kde_txtVersicherungDe"& _ "ckungsquote, @kde_txtVersicherungNichtVersicherbar, @kde_Versicherung_Gemeldeter"& _ "Betrag, @kde_txtVersicherungEHNr, @kde_Leihgeld_Provision, @kde_Leihgeld_Provisi"& _ "onPreisstaffel, @kde_Leihgeld_ProvisionAuftraggeber, @EmailFreigabeSendungsListe"& _ ", @EmailFreigabe_SteuerbescheidPDF, @EmailFreigabe_SteuerbescheidPDF_Bedingung, "& _ "@EmailFreigabe_Art, @EmailFreigabe_VBDPDF, @EmailFreigabe_ABDPDF, @Email_AVM, @D"& _ "epot_Kunde, @FiBuSchnittstelleLG, @Zahlungsziel2, @Zahlungsziel3, @EmailAnkunft_"& _ "Export, @EmailFreigabe_Export, @EmailFreigabe_Export_Art, @kde_BonitaetsStufe, @"& _ "kde_Inkasso_Uebergeben, @kde_Inkasso_UebergebenAm, @kde_Inkasso_GemeldeterBetrag"& _ ", @AutoFakturierung, @Anmerkungen_Warnhinweis, @kde_VERAG_INTERFACE_ID, @kde_Bes"& _ "onderheitenNeu, @kde_InfoAuftragsNr, @kde_KundeFremdspedition, @kde_verzolltBei,"& _ " @kde_KundeFremdspeditionExport, @kde_verzolltBeiExport, @Veranlagungskunde, @kd"& _ "e_API_Tradeshift, @kde_FakturierungSR_Details, @kde_Fakturierung_Sprache, @kde_T"& _ "OBB_KundenNr, @kde_CreditSaveBonitaetsklasse, @kde_CreditSaveBonitaetsIndex, @kd"& _ "e_CreditSaveBonitaetsScore, @kde_CreditSaveId, @kde_CreditSaveNo, @kde_Abrechnun"& _ "g_SendungsdatenAusSTB, @kde_UIDMehrfachverwendung, @kde_EORIgeprueftAm, @kde_Adr"& _ "essZusatz, @kde_abweichendesZZVL, @kde_HRNr, @kde_Kapital, @kde_KapitalWaehrung,"& _ " @kde_GruendungsDatum, @kde_WechselBetrag, @kde_WechselGueltigBis, @kde_WechselE"& _ "rhaltenAm, @kde_BankgarantielErhaltenAm, @kde_WechselBlanko);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kde_Kunden"& _ "Nr, kde_FirmenwortlautFiskal, kde_VerwendetAuftragsNr, kde_FixeAuftragsNr, kde_q"& _ "sTeamId, kde_qsTeamMAId, kde_TeamId, kde_TeamMAId, kde_qsTeamMAName, kde_qsTeamN"& _ "ame, kde_Hoechstkredit, kde_Versicherung_Deckungsstopp, kde_Versicherung_Deckung"& _ "sstoppDatum, kde_Versicherung_Uebergeben, kde_Versicherung_UebergebenAm, kde_Ver"& _ "sicherung_AnerkennungVersicherungsfall, kde_Versicherung_AnerkennungVersicherung"& _ "sfallAm, kde_Versicherung_AnerkennungVersicherungsfallAb, kde_txtVersicherungDec"& _ "kungsquote, kde_txtVersicherungNichtVersicherbar, kde_Versicherung_GemeldeterBet"& _ "rag, kde_txtVersicherungEHNr, kde_Leihgeld_Provision, kde_Leihgeld_ProvisionPrei"& _ "sstaffel, kde_Leihgeld_ProvisionAuftraggeber, EmailFreigabeSendungsListe, EmailF"& _ "reigabe_SteuerbescheidPDF, EmailFreigabe_SteuerbescheidPDF_Bedingung, EmailFreig"& _ "abe_Art, EmailFreigabe_VBDPDF, EmailFreigabe_ABDPDF, Email_AVM, Depot_Kunde, FiB"& _ "uSchnittstelleLG, Zahlungsziel2, Zahlungsziel3, EmailAnkunft_Export, EmailFreiga"& _ "be_Export, EmailFreigabe_Export_Art, kde_BonitaetsStufe, kde_Inkasso_Uebergeben,"& _ " kde_Inkasso_UebergebenAm, kde_Inkasso_GemeldeterBetrag, AutoFakturierung, Anmer"& _ "kungen_Warnhinweis, kde_VERAG_INTERFACE_ID, kde_BesonderheitenNeu, kde_InfoAuftr"& _ "agsNr, kde_KundeFremdspedition, kde_verzolltBei, kde_KundeFremdspeditionExport, "& _ "kde_verzolltBeiExport, Veranlagungskunde, kde_API_Tradeshift, kde_FakturierungSR"& _ "_Details, kde_Fakturierung_Sprache, kde_TOBB_KundenNr, kde_CreditSaveBonitaetskl"& _ "asse, kde_CreditSaveBonitaetsIndex, kde_CreditSaveBonitaetsScore, kde_CreditSave"& _ "Id, kde_CreditSaveNo, kde_Abrechnung_SendungsdatenAusSTB, kde_UIDMehrfachverwend"& _ "ung, kde_EORIgeprueftAm, kde_AdressZusatz, kde_abweichendesZZVL, kde_HRNr, kde_K"& _ "apital, kde_KapitalWaehrung, kde_GruendungsDatum, kde_WechselBetrag, kde_Wechsel"& _ "GueltigBis, kde_WechselErhaltenAm, kde_BankgarantielErhaltenAm, kde_WechselBlank"& _ "o FROM tblKundenErweitert WHERE (kde_KundenNr = @kde_KundenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_FirmenwortlautFiskal", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FirmenwortlautFiskal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_VerwendetAuftragsNr", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_VerwendetAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_FixeAuftragsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FixeAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_qsTeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_qsTeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_TeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_TeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamMAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_qsTeamMAName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_qsTeamName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Hoechstkredit", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Hoechstkredit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_Deckungsstopp", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_Deckungsstopp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_DeckungsstoppDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_DeckungsstoppDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_Uebergeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_Uebergeben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_UebergebenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_UebergebenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_txtVersicherungDeckungsquote", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungDeckungsquote", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_txtVersicherungNichtVersicherbar", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungNichtVersicherbar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_GemeldeterBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Versicherung_GemeldeterBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_txtVersicherungEHNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungEHNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Leihgeld_Provision", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_Provision", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabeSendungsListe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabeSendungsListe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_SteuerbescheidPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_SteuerbescheidPDF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_SteuerbescheidPDF_Bedingung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_SteuerbescheidPDF_Bedingung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_VBDPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_VBDPDF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_ABDPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_ABDPDF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Email_AVM", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email_AVM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Depot_Kunde", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Depot_Kunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FiBuSchnittstelleLG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FiBuSchnittstelleLG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailAnkunft_Export", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailAnkunft_Export", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_Export", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Export", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_Export_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Export_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_BonitaetsStufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BonitaetsStufe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Inkasso_Uebergeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_Uebergeben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Inkasso_UebergebenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_UebergebenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Inkasso_GemeldeterBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Inkasso_GemeldeterBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AutoFakturierung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutoFakturierung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anmerkungen_Warnhinweis", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anmerkungen_Warnhinweis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_VERAG_INTERFACE_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_VERAG_INTERFACE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_BesonderheitenNeu", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BesonderheitenNeu", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_InfoAuftragsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_InfoAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_KundeFremdspedition", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundeFremdspedition", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_verzolltBei", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_KundeFremdspeditionExport", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundeFremdspeditionExport", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_verzolltBeiExport", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBeiExport", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Veranlagungskunde", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Veranlagungskunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_API_Tradeshift", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_API_Tradeshift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_FakturierungSR_Details", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FakturierungSR_Details", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Fakturierung_Sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Fakturierung_Sprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_TOBB_KundenNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TOBB_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_CreditSaveBonitaetsklasse", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsklasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_CreditSaveId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_CreditSaveNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Abrechnung_SendungsdatenAusSTB", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Abrechnung_SendungsdatenAusSTB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_UIDMehrfachverwendung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_UIDMehrfachverwendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_EORIgeprueftAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_EORIgeprueftAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_AdressZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_AdressZusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_abweichendesZZVL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_abweichendesZZVL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_HRNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_HRNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Kapital", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Kapital", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_KapitalWaehrung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KapitalWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_GruendungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_GruendungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_WechselBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_WechselBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_WechselGueltigBis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselGueltigBis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_WechselErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselErhaltenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_BankgarantielErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BankgarantielErhaltenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_WechselBlanko", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselBlanko", 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].[tblKundenErweitert] SET [kde_KundenNr] = @kde_KundenNr, [kde_Firmen"& _ "wortlautFiskal] = @kde_FirmenwortlautFiskal, [kde_VerwendetAuftragsNr] = @kde_Ve"& _ "rwendetAuftragsNr, [kde_FixeAuftragsNr] = @kde_FixeAuftragsNr, [kde_qsTeamId] = "& _ "@kde_qsTeamId, [kde_qsTeamMAId] = @kde_qsTeamMAId, [kde_TeamId] = @kde_TeamId, ["& _ "kde_TeamMAId] = @kde_TeamMAId, [kde_qsTeamMAName] = @kde_qsTeamMAName, [kde_qsTe"& _ "amName] = @kde_qsTeamName, [kde_Hoechstkredit] = @kde_Hoechstkredit, [kde_Versic"& _ "herung_Deckungsstopp] = @kde_Versicherung_Deckungsstopp, [kde_Versicherung_Decku"& _ "ngsstoppDatum] = @kde_Versicherung_DeckungsstoppDatum, [kde_Versicherung_Ueberge"& _ "ben] = @kde_Versicherung_Uebergeben, [kde_Versicherung_UebergebenAm] = @kde_Vers"& _ "icherung_UebergebenAm, [kde_Versicherung_AnerkennungVersicherungsfall] = @kde_Ve"& _ "rsicherung_AnerkennungVersicherungsfall, [kde_Versicherung_AnerkennungVersicheru"& _ "ngsfallAm] = @kde_Versicherung_AnerkennungVersicherungsfallAm, [kde_Versicherung"& _ "_AnerkennungVersicherungsfallAb] = @kde_Versicherung_AnerkennungVersicherungsfal"& _ "lAb, [kde_txtVersicherungDeckungsquote] = @kde_txtVersicherungDeckungsquote, [kd"& _ "e_txtVersicherungNichtVersicherbar] = @kde_txtVersicherungNichtVersicherbar, [kd"& _ "e_Versicherung_GemeldeterBetrag] = @kde_Versicherung_GemeldeterBetrag, [kde_txtV"& _ "ersicherungEHNr] = @kde_txtVersicherungEHNr, [kde_Leihgeld_Provision] = @kde_Lei"& _ "hgeld_Provision, [kde_Leihgeld_ProvisionPreisstaffel] = @kde_Leihgeld_ProvisionP"& _ "reisstaffel, [kde_Leihgeld_ProvisionAuftraggeber] = @kde_Leihgeld_ProvisionAuftr"& _ "aggeber, [EmailFreigabeSendungsListe] = @EmailFreigabeSendungsListe, [EmailFreig"& _ "abe_SteuerbescheidPDF] = @EmailFreigabe_SteuerbescheidPDF, [EmailFreigabe_Steuer"& _ "bescheidPDF_Bedingung] = @EmailFreigabe_SteuerbescheidPDF_Bedingung, [EmailFreig"& _ "abe_Art] = @EmailFreigabe_Art, [EmailFreigabe_VBDPDF] = @EmailFreigabe_VBDPDF, ["& _ "EmailFreigabe_ABDPDF] = @EmailFreigabe_ABDPDF, [Email_AVM] = @Email_AVM, [Depot_"& _ "Kunde] = @Depot_Kunde, [FiBuSchnittstelleLG] = @FiBuSchnittstelleLG, [Zahlungszi"& _ "el2] = @Zahlungsziel2, [Zahlungsziel3] = @Zahlungsziel3, [EmailAnkunft_Export] ="& _ " @EmailAnkunft_Export, [EmailFreigabe_Export] = @EmailFreigabe_Export, [EmailFre"& _ "igabe_Export_Art] = @EmailFreigabe_Export_Art, [kde_BonitaetsStufe] = @kde_Bonit"& _ "aetsStufe, [kde_Inkasso_Uebergeben] = @kde_Inkasso_Uebergeben, [kde_Inkasso_Uebe"& _ "rgebenAm] = @kde_Inkasso_UebergebenAm, [kde_Inkasso_GemeldeterBetrag] = @kde_Ink"& _ "asso_GemeldeterBetrag, [AutoFakturierung] = @AutoFakturierung, [Anmerkungen_Warn"& _ "hinweis] = @Anmerkungen_Warnhinweis, [kde_VERAG_INTERFACE_ID] = @kde_VERAG_INTER"& _ "FACE_ID, [kde_BesonderheitenNeu] = @kde_BesonderheitenNeu, [kde_InfoAuftragsNr] "& _ "= @kde_InfoAuftragsNr, [kde_KundeFremdspedition] = @kde_KundeFremdspedition, [kd"& _ "e_verzolltBei] = @kde_verzolltBei, [kde_KundeFremdspeditionExport] = @kde_KundeF"& _ "remdspeditionExport, [kde_verzolltBeiExport] = @kde_verzolltBeiExport, [Veranlag"& _ "ungskunde] = @Veranlagungskunde, [kde_API_Tradeshift] = @kde_API_Tradeshift, [kd"& _ "e_FakturierungSR_Details] = @kde_FakturierungSR_Details, [kde_Fakturierung_Sprac"& _ "he] = @kde_Fakturierung_Sprache, [kde_TOBB_KundenNr] = @kde_TOBB_KundenNr, [kde_"& _ "CreditSaveBonitaetsklasse] = @kde_CreditSaveBonitaetsklasse, [kde_CreditSaveBoni"& _ "taetsIndex] = @kde_CreditSaveBonitaetsIndex, [kde_CreditSaveBonitaetsScore] = @k"& _ "de_CreditSaveBonitaetsScore, [kde_CreditSaveId] = @kde_CreditSaveId, [kde_Credit"& _ "SaveNo] = @kde_CreditSaveNo, [kde_Abrechnung_SendungsdatenAusSTB] = @kde_Abrechn"& _ "ung_SendungsdatenAusSTB, [kde_UIDMehrfachverwendung] = @kde_UIDMehrfachverwendun"& _ "g, [kde_EORIgeprueftAm] = @kde_EORIgeprueftAm, [kde_AdressZusatz] = @kde_AdressZ"& _ "usatz, [kde_abweichendesZZVL] = @kde_abweichendesZZVL, [kde_HRNr] = @kde_HRNr, ["& _ "kde_Kapital] = @kde_Kapital, [kde_KapitalWaehrung] = @kde_KapitalWaehrung, [kde_"& _ "GruendungsDatum] = @kde_GruendungsDatum, [kde_WechselBetrag] = @kde_WechselBetra"& _ "g, [kde_WechselGueltigBis] = @kde_WechselGueltigBis, [kde_WechselErhaltenAm] = @"& _ "kde_WechselErhaltenAm, [kde_BankgarantielErhaltenAm] = @kde_BankgarantielErhalte"& _ "nAm, [kde_WechselBlanko] = @kde_WechselBlanko WHERE (([kde_KundenNr] = @Original"& _ "_kde_KundenNr) AND ((@IsNull_kde_FirmenwortlautFiskal = 1 AND [kde_Firmenwortlau"& _ "tFiskal] IS NULL) OR ([kde_FirmenwortlautFiskal] = @Original_kde_FirmenwortlautF"& _ "iskal)) AND ([kde_VerwendetAuftragsNr] = @Original_kde_VerwendetAuftragsNr) AND "& _ "((@IsNull_kde_FixeAuftragsNr = 1 AND [kde_FixeAuftragsNr] IS NULL) OR ([kde_Fixe"& _ "AuftragsNr] = @Original_kde_FixeAuftragsNr)) AND ((@IsNull_kde_qsTeamId = 1 AND "& _ "[kde_qsTeamId] IS NULL) OR ([kde_qsTeamId] = @Original_kde_qsTeamId)) AND ((@IsN"& _ "ull_kde_qsTeamMAId = 1 AND [kde_qsTeamMAId] IS NULL) OR ([kde_qsTeamMAId] = @Ori"& _ "ginal_kde_qsTeamMAId)) AND ((@IsNull_kde_TeamId = 1 AND [kde_TeamId] IS NULL) OR"& _ " ([kde_TeamId] = @Original_kde_TeamId)) AND ((@IsNull_kde_TeamMAId = 1 AND [kde_"& _ "TeamMAId] IS NULL) OR ([kde_TeamMAId] = @Original_kde_TeamMAId)) AND ((@IsNull_k"& _ "de_qsTeamMAName = 1 AND [kde_qsTeamMAName] IS NULL) OR ([kde_qsTeamMAName] = @Or"& _ "iginal_kde_qsTeamMAName)) AND ((@IsNull_kde_qsTeamName = 1 AND [kde_qsTeamName] "& _ "IS NULL) OR ([kde_qsTeamName] = @Original_kde_qsTeamName)) AND ((@IsNull_kde_Hoe"& _ "chstkredit = 1 AND [kde_Hoechstkredit] IS NULL) OR ([kde_Hoechstkredit] = @Origi"& _ "nal_kde_Hoechstkredit)) AND ([kde_Versicherung_Deckungsstopp] = @Original_kde_Ve"& _ "rsicherung_Deckungsstopp) AND ((@IsNull_kde_Versicherung_DeckungsstoppDatum = 1 "& _ "AND [kde_Versicherung_DeckungsstoppDatum] IS NULL) OR ([kde_Versicherung_Deckung"& _ "sstoppDatum] = @Original_kde_Versicherung_DeckungsstoppDatum)) AND ((@IsNull_kde"& _ "_Versicherung_Uebergeben = 1 AND [kde_Versicherung_Uebergeben] IS NULL) OR ([kde"& _ "_Versicherung_Uebergeben] = @Original_kde_Versicherung_Uebergeben)) AND ((@IsNul"& _ "l_kde_Versicherung_UebergebenAm = 1 AND [kde_Versicherung_UebergebenAm] IS NULL)"& _ " OR ([kde_Versicherung_UebergebenAm] = @Original_kde_Versicherung_UebergebenAm))"& _ " AND ((@IsNull_kde_Versicherung_AnerkennungVersicherungsfall = 1 AND [kde_Versic"& _ "herung_AnerkennungVersicherungsfall] IS NULL) OR ([kde_Versicherung_AnerkennungV"& _ "ersicherungsfall] = @Original_kde_Versicherung_AnerkennungVersicherungsfall)) AN"& _ "D ((@IsNull_kde_Versicherung_AnerkennungVersicherungsfallAm = 1 AND [kde_Versich"& _ "erung_AnerkennungVersicherungsfallAm] IS NULL) OR ([kde_Versicherung_Anerkennung"& _ "VersicherungsfallAm] = @Original_kde_Versicherung_AnerkennungVersicherungsfallAm"& _ ")) AND ((@IsNull_kde_Versicherung_AnerkennungVersicherungsfallAb = 1 AND [kde_Ve"& _ "rsicherung_AnerkennungVersicherungsfallAb] IS NULL) OR ([kde_Versicherung_Anerke"& _ "nnungVersicherungsfallAb] = @Original_kde_Versicherung_AnerkennungVersicherungsf"& _ "allAb)) AND ((@IsNull_kde_txtVersicherungDeckungsquote = 1 AND [kde_txtVersicher"& _ "ungDeckungsquote] IS NULL) OR ([kde_txtVersicherungDeckungsquote] = @Original_kd"& _ "e_txtVersicherungDeckungsquote)) AND ((@IsNull_kde_txtVersicherungNichtVersicher"& _ "bar = 1 AND [kde_txtVersicherungNichtVersicherbar] IS NULL) OR ([kde_txtVersiche"& _ "rungNichtVersicherbar] = @Original_kde_txtVersicherungNichtVersicherbar)) AND (("& _ "@IsNull_kde_Versicherung_GemeldeterBetrag = 1 AND [kde_Versicherung_GemeldeterBe"& _ "trag] IS NULL) OR ([kde_Versicherung_GemeldeterBetrag] = @Original_kde_Versicher"& _ "ung_GemeldeterBetrag)) AND ((@IsNull_kde_txtVersicherungEHNr = 1 AND [kde_txtVer"& _ "sicherungEHNr] IS NULL) OR ([kde_txtVersicherungEHNr] = @Original_kde_txtVersich"& _ "erungEHNr)) AND ((@IsNull_kde_Leihgeld_Provision = 1 AND [kde_Leihgeld_Provision"& _ "] IS NULL) OR ([kde_Leihgeld_Provision] = @Original_kde_Leihgeld_Provision)) AND"& _ " ((@IsNull_kde_Leihgeld_ProvisionPreisstaffel = 1 AND [kde_Leihgeld_ProvisionPre"& _ "isstaffel] IS NULL) OR ([kde_Leihgeld_ProvisionPreisstaffel] = @Original_kde_Lei"& _ "hgeld_ProvisionPreisstaffel)) AND ((@IsNull_kde_Leihgeld_ProvisionAuftraggeber ="& _ " 1 AND [kde_Leihgeld_ProvisionAuftraggeber] IS NULL) OR ([kde_Leihgeld_Provision"& _ "Auftraggeber] = @Original_kde_Leihgeld_ProvisionAuftraggeber)) AND ([EmailFreiga"& _ "beSendungsListe] = @Original_EmailFreigabeSendungsListe) AND ([EmailFreigabe_Ste"& _ "uerbescheidPDF] = @Original_EmailFreigabe_SteuerbescheidPDF) AND ([EmailFreigabe"& _ "_SteuerbescheidPDF_Bedingung] = @Original_EmailFreigabe_SteuerbescheidPDF_Beding"& _ "ung) AND ([EmailFreigabe_Art] = @Original_EmailFreigabe_Art) AND ([EmailFreigabe"& _ "_VBDPDF] = @Original_EmailFreigabe_VBDPDF) AND ([EmailFreigabe_ABDPDF] = @Origin"& _ "al_EmailFreigabe_ABDPDF) AND ([Email_AVM] = @Original_Email_AVM) AND ([Depot_Kun"& _ "de] = @Original_Depot_Kunde) AND ([FiBuSchnittstelleLG] = @Original_FiBuSchnitts"& _ "telleLG) AND ((@IsNull_Zahlungsziel2 = 1 AND [Zahlungsziel2] IS NULL) OR ([Zahlu"& _ "ngsziel2] = @Original_Zahlungsziel2)) AND ((@IsNull_Zahlungsziel3 = 1 AND [Zahlu"& _ "ngsziel3] IS NULL) OR ([Zahlungsziel3] = @Original_Zahlungsziel3)) AND ([EmailAn"& _ "kunft_Export] = @Original_EmailAnkunft_Export) AND ([EmailFreigabe_Export] = @Or"& _ "iginal_EmailFreigabe_Export) AND ([EmailFreigabe_Export_Art] = @Original_EmailFr"& _ "eigabe_Export_Art) AND ((@IsNull_kde_BonitaetsStufe = 1 AND [kde_BonitaetsStufe]"& _ " IS NULL) OR ([kde_BonitaetsStufe] = @Original_kde_BonitaetsStufe)) AND ((@IsNul"& _ "l_kde_Inkasso_Uebergeben = 1 AND [kde_Inkasso_Uebergeben] IS NULL) OR ([kde_Inka"& _ "sso_Uebergeben] = @Original_kde_Inkasso_Uebergeben)) AND ((@IsNull_kde_Inkasso_U"& _ "ebergebenAm = 1 AND [kde_Inkasso_UebergebenAm] IS NULL) OR ([kde_Inkasso_Ueberge"& _ "benAm] = @Original_kde_Inkasso_UebergebenAm)) AND ((@IsNull_kde_Inkasso_Gemeldet"& _ "erBetrag = 1 AND [kde_Inkasso_GemeldeterBetrag] IS NULL) OR ([kde_Inkasso_Gemeld"& _ "eterBetrag] = @Original_kde_Inkasso_GemeldeterBetrag)) AND ([AutoFakturierung] ="& _ " @Original_AutoFakturierung) AND ((@IsNull_kde_VERAG_INTERFACE_ID = 1 AND [kde_V"& _ "ERAG_INTERFACE_ID] IS NULL) OR ([kde_VERAG_INTERFACE_ID] = @Original_kde_VERAG_I"& _ "NTERFACE_ID)) AND ([kde_BesonderheitenNeu] = @Original_kde_BesonderheitenNeu) AN"& _ "D ((@IsNull_kde_InfoAuftragsNr = 1 AND [kde_InfoAuftragsNr] IS NULL) OR ([kde_In"& _ "foAuftragsNr] = @Original_kde_InfoAuftragsNr)) AND ([kde_KundeFremdspedition] = "& _ "@Original_kde_KundeFremdspedition) AND ((@IsNull_kde_verzolltBei = 1 AND [kde_ve"& _ "rzolltBei] IS NULL) OR ([kde_verzolltBei] = @Original_kde_verzolltBei)) AND ([kd"& _ "e_KundeFremdspeditionExport] = @Original_kde_KundeFremdspeditionExport) AND ((@I"& _ "sNull_kde_verzolltBeiExport = 1 AND [kde_verzolltBeiExport] IS NULL) OR ([kde_ve"& _ "rzolltBeiExport] = @Original_kde_verzolltBeiExport)) AND ([Veranlagungskunde] = "& _ "@Original_Veranlagungskunde) AND ([kde_API_Tradeshift] = @Original_kde_API_Trade"& _ "shift) AND ([kde_FakturierungSR_Details] = @Original_kde_FakturierungSR_Details)"& _ " AND ((@IsNull_kde_Fakturierung_Sprache = 1 AND [kde_Fakturierung_Sprache] IS NU"& _ "LL) OR ([kde_Fakturierung_Sprache] = @Original_kde_Fakturierung_Sprache)) AND (("& _ "@IsNull_kde_TOBB_KundenNr = 1 AND [kde_TOBB_KundenNr] IS NULL) OR ([kde_TOBB_Kun"& _ "denNr] = @Original_kde_TOBB_KundenNr)) AND ((@IsNull_kde_CreditSaveBonitaetsklas"& _ "se = 1 AND [kde_CreditSaveBonitaetsklasse] IS NULL) OR ([kde_CreditSaveBonitaets"& _ "klasse] = @Original_kde_CreditSaveBonitaetsklasse)) AND ((@IsNull_kde_CreditSave"& _ "BonitaetsIndex = 1 AND [kde_CreditSaveBonitaetsIndex] IS NULL) OR ([kde_CreditSa"& _ "veBonitaetsIndex] = @Original_kde_CreditSaveBonitaetsIndex)) AND ((@IsNull_kde_C"& _ "reditSaveBonitaetsScore = 1 AND [kde_CreditSaveBonitaetsScore] IS NULL) OR ([kde"& _ "_CreditSaveBonitaetsScore] = @Original_kde_CreditSaveBonitaetsScore)) AND ((@IsN"& _ "ull_kde_CreditSaveId = 1 AND [kde_CreditSaveId] IS NULL) OR ([kde_CreditSaveId] "& _ "= @Original_kde_CreditSaveId)) AND ((@IsNull_kde_CreditSaveNo = 1 AND [kde_Credi"& _ "tSaveNo] IS NULL) OR ([kde_CreditSaveNo] = @Original_kde_CreditSaveNo)) AND ([kd"& _ "e_Abrechnung_SendungsdatenAusSTB] = @Original_kde_Abrechnung_SendungsdatenAusSTB"& _ ") AND ([kde_UIDMehrfachverwendung] = @Original_kde_UIDMehrfachverwendung) AND (("& _ "@IsNull_kde_EORIgeprueftAm = 1 AND [kde_EORIgeprueftAm] IS NULL) OR ([kde_EORIge"& _ "prueftAm] = @Original_kde_EORIgeprueftAm)) AND ((@IsNull_kde_AdressZusatz = 1 AN"& _ "D [kde_AdressZusatz] IS NULL) OR ([kde_AdressZusatz] = @Original_kde_AdressZusat"& _ "z)) AND ((@IsNull_kde_abweichendesZZVL = 1 AND [kde_abweichendesZZVL] IS NULL) O"& _ "R ([kde_abweichendesZZVL] = @Original_kde_abweichendesZZVL)) AND ((@IsNull_kde_H"& _ "RNr = 1 AND [kde_HRNr] IS NULL) OR ([kde_HRNr] = @Original_kde_HRNr)) AND ((@IsN"& _ "ull_kde_Kapital = 1 AND [kde_Kapital] IS NULL) OR ([kde_Kapital] = @Original_kde"& _ "_Kapital)) AND ((@IsNull_kde_KapitalWaehrung = 1 AND [kde_KapitalWaehrung] IS NU"& _ "LL) OR ([kde_KapitalWaehrung] = @Original_kde_KapitalWaehrung)) AND ((@IsNull_kd"& _ "e_GruendungsDatum = 1 AND [kde_GruendungsDatum] IS NULL) OR ([kde_GruendungsDatu"& _ "m] = @Original_kde_GruendungsDatum)) AND ((@IsNull_kde_WechselBetrag = 1 AND [kd"& _ "e_WechselBetrag] IS NULL) OR ([kde_WechselBetrag] = @Original_kde_WechselBetrag)"& _ ") AND ((@IsNull_kde_WechselGueltigBis = 1 AND [kde_WechselGueltigBis] IS NULL) O"& _ "R ([kde_WechselGueltigBis] = @Original_kde_WechselGueltigBis)) AND ((@IsNull_kde"& _ "_WechselErhaltenAm = 1 AND [kde_WechselErhaltenAm] IS NULL) OR ([kde_WechselErha"& _ "ltenAm] = @Original_kde_WechselErhaltenAm)) AND ((@IsNull_kde_BankgarantielErhal"& _ "tenAm = 1 AND [kde_BankgarantielErhaltenAm] IS NULL) OR ([kde_BankgarantielErhal"& _ "tenAm] = @Original_kde_BankgarantielErhaltenAm)) AND ([kde_WechselBlanko] = @Ori"& _ "ginal_kde_WechselBlanko));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kde_KundenNr, kde_FirmenwortlautFiskal, kde_V"& _ "erwendetAuftragsNr, kde_FixeAuftragsNr, kde_qsTeamId, kde_qsTeamMAId, kde_TeamId"& _ ", kde_TeamMAId, kde_qsTeamMAName, kde_qsTeamName, kde_Hoechstkredit, kde_Versich"& _ "erung_Deckungsstopp, kde_Versicherung_DeckungsstoppDatum, kde_Versicherung_Ueber"& _ "geben, kde_Versicherung_UebergebenAm, kde_Versicherung_AnerkennungVersicherungsf"& _ "all, kde_Versicherung_AnerkennungVersicherungsfallAm, kde_Versicherung_Anerkennu"& _ "ngVersicherungsfallAb, kde_txtVersicherungDeckungsquote, kde_txtVersicherungNich"& _ "tVersicherbar, kde_Versicherung_GemeldeterBetrag, kde_txtVersicherungEHNr, kde_L"& _ "eihgeld_Provision, kde_Leihgeld_ProvisionPreisstaffel, kde_Leihgeld_ProvisionAuf"& _ "traggeber, EmailFreigabeSendungsListe, EmailFreigabe_SteuerbescheidPDF, EmailFre"& _ "igabe_SteuerbescheidPDF_Bedingung, EmailFreigabe_Art, EmailFreigabe_VBDPDF, Emai"& _ "lFreigabe_ABDPDF, Email_AVM, Depot_Kunde, FiBuSchnittstelleLG, Zahlungsziel2, Za"& _ "hlungsziel3, EmailAnkunft_Export, EmailFreigabe_Export, EmailFreigabe_Export_Art"& _ ", kde_BonitaetsStufe, kde_Inkasso_Uebergeben, kde_Inkasso_UebergebenAm, kde_Inka"& _ "sso_GemeldeterBetrag, AutoFakturierung, Anmerkungen_Warnhinweis, kde_VERAG_INTER"& _ "FACE_ID, kde_BesonderheitenNeu, kde_InfoAuftragsNr, kde_KundeFremdspedition, kde"& _ "_verzolltBei, kde_KundeFremdspeditionExport, kde_verzolltBeiExport, Veranlagungs"& _ "kunde, kde_API_Tradeshift, kde_FakturierungSR_Details, kde_Fakturierung_Sprache,"& _ " kde_TOBB_KundenNr, kde_CreditSaveBonitaetsklasse, kde_CreditSaveBonitaetsIndex,"& _ " kde_CreditSaveBonitaetsScore, kde_CreditSaveId, kde_CreditSaveNo, kde_Abrechnun"& _ "g_SendungsdatenAusSTB, kde_UIDMehrfachverwendung, kde_EORIgeprueftAm, kde_Adress"& _ "Zusatz, kde_abweichendesZZVL, kde_HRNr, kde_Kapital, kde_KapitalWaehrung, kde_Gr"& _ "uendungsDatum, kde_WechselBetrag, kde_WechselGueltigBis, kde_WechselErhaltenAm, "& _ "kde_BankgarantielErhaltenAm, kde_WechselBlanko FROM tblKundenErweitert WHERE (kd"& _ "e_KundenNr = @kde_KundenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_FirmenwortlautFiskal", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FirmenwortlautFiskal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_VerwendetAuftragsNr", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_VerwendetAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_FixeAuftragsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FixeAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_qsTeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_qsTeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_TeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_TeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamMAId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_qsTeamMAName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_qsTeamName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Hoechstkredit", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Hoechstkredit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_Deckungsstopp", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_Deckungsstopp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_DeckungsstoppDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_DeckungsstoppDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_Uebergeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_Uebergeben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_UebergebenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_UebergebenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_txtVersicherungDeckungsquote", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungDeckungsquote", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_txtVersicherungNichtVersicherbar", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungNichtVersicherbar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Versicherung_GemeldeterBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Versicherung_GemeldeterBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_txtVersicherungEHNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungEHNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Leihgeld_Provision", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_Provision", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabeSendungsListe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabeSendungsListe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_SteuerbescheidPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_SteuerbescheidPDF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_SteuerbescheidPDF_Bedingung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_SteuerbescheidPDF_Bedingung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_VBDPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_VBDPDF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_ABDPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_ABDPDF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Email_AVM", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email_AVM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Depot_Kunde", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Depot_Kunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FiBuSchnittstelleLG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FiBuSchnittstelleLG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailAnkunft_Export", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailAnkunft_Export", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_Export", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Export", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailFreigabe_Export_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Export_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_BonitaetsStufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BonitaetsStufe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Inkasso_Uebergeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_Uebergeben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Inkasso_UebergebenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_UebergebenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Inkasso_GemeldeterBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Inkasso_GemeldeterBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AutoFakturierung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutoFakturierung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anmerkungen_Warnhinweis", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anmerkungen_Warnhinweis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_VERAG_INTERFACE_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_VERAG_INTERFACE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_BesonderheitenNeu", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BesonderheitenNeu", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_InfoAuftragsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_InfoAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_KundeFremdspedition", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundeFremdspedition", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_verzolltBei", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_KundeFremdspeditionExport", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundeFremdspeditionExport", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_verzolltBeiExport", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBeiExport", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Veranlagungskunde", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Veranlagungskunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_API_Tradeshift", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_API_Tradeshift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_FakturierungSR_Details", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FakturierungSR_Details", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Fakturierung_Sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Fakturierung_Sprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_TOBB_KundenNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TOBB_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_CreditSaveBonitaetsklasse", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsklasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_CreditSaveId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_CreditSaveNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Abrechnung_SendungsdatenAusSTB", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Abrechnung_SendungsdatenAusSTB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_UIDMehrfachverwendung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_UIDMehrfachverwendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_EORIgeprueftAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_EORIgeprueftAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_AdressZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_AdressZusatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_abweichendesZZVL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_abweichendesZZVL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_HRNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_HRNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_Kapital", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Kapital", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_KapitalWaehrung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KapitalWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_GruendungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_GruendungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_WechselBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_WechselBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_WechselGueltigBis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselGueltigBis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_WechselErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselErhaltenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_BankgarantielErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BankgarantielErhaltenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kde_WechselBlanko", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselBlanko", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_FirmenwortlautFiskal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FirmenwortlautFiskal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_FirmenwortlautFiskal", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FirmenwortlautFiskal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_VerwendetAuftragsNr", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_VerwendetAuftragsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_FixeAuftragsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FixeAuftragsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_FixeAuftragsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FixeAuftragsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_qsTeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_qsTeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_qsTeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_qsTeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_TeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_TeamId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_TeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamMAId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_TeamMAId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TeamMAId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_qsTeamMAName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_qsTeamMAName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamMAName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_qsTeamName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_qsTeamName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_qsTeamName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Hoechstkredit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Hoechstkredit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Hoechstkredit", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Hoechstkredit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_Deckungsstopp", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_Deckungsstopp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_DeckungsstoppDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_DeckungsstoppDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_DeckungsstoppDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_DeckungsstoppDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_Uebergeben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_Uebergeben", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_Uebergeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_Uebergeben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_UebergebenAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_UebergebenAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_UebergebenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_UebergebenAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfall", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_AnerkennungVersicherungsfallAb", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_txtVersicherungDeckungsquote", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungDeckungsquote", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_txtVersicherungDeckungsquote", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungDeckungsquote", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_txtVersicherungNichtVersicherbar", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungNichtVersicherbar", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_txtVersicherungNichtVersicherbar", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungNichtVersicherbar", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Versicherung_GemeldeterBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Versicherung_GemeldeterBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Versicherung_GemeldeterBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Versicherung_GemeldeterBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_txtVersicherungEHNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungEHNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_txtVersicherungEHNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_txtVersicherungEHNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Leihgeld_Provision", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_Provision", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Leihgeld_Provision", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_Provision", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_ProvisionPreisstaffel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Leihgeld_ProvisionAuftraggeber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabeSendungsListe", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabeSendungsListe", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_SteuerbescheidPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_SteuerbescheidPDF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_SteuerbescheidPDF_Bedingung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_SteuerbescheidPDF_Bedingung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_VBDPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_VBDPDF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_ABDPDF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_ABDPDF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Email_AVM", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email_AVM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Depot_Kunde", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Depot_Kunde", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FiBuSchnittstelleLG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FiBuSchnittstelleLG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Zahlungsziel2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Zahlungsziel2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Zahlungsziel3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Zahlungsziel3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailAnkunft_Export", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailAnkunft_Export", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_Export", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Export", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailFreigabe_Export_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailFreigabe_Export_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_BonitaetsStufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BonitaetsStufe", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_BonitaetsStufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BonitaetsStufe", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Inkasso_Uebergeben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_Uebergeben", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Inkasso_Uebergeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_Uebergeben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Inkasso_UebergebenAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_UebergebenAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Inkasso_UebergebenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_UebergebenAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Inkasso_GemeldeterBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Inkasso_GemeldeterBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Inkasso_GemeldeterBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Inkasso_GemeldeterBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AutoFakturierung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AutoFakturierung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_VERAG_INTERFACE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_VERAG_INTERFACE_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_VERAG_INTERFACE_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_VERAG_INTERFACE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_BesonderheitenNeu", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BesonderheitenNeu", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_InfoAuftragsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_InfoAuftragsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_InfoAuftragsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_InfoAuftragsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_KundeFremdspedition", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundeFremdspedition", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_verzolltBei", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBei", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_verzolltBei", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBei", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_KundeFremdspeditionExport", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KundeFremdspeditionExport", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_verzolltBeiExport", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBeiExport", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_verzolltBeiExport", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_verzolltBeiExport", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Veranlagungskunde", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Veranlagungskunde", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_API_Tradeshift", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_API_Tradeshift", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_FakturierungSR_Details", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_FakturierungSR_Details", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Fakturierung_Sprache", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Fakturierung_Sprache", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Fakturierung_Sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Fakturierung_Sprache", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_TOBB_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TOBB_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_TOBB_KundenNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_TOBB_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_CreditSaveBonitaetsklasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsklasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_CreditSaveBonitaetsklasse", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsklasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_CreditSaveBonitaetsIndex", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsIndex", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_CreditSaveBonitaetsScore", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveBonitaetsScore", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_CreditSaveId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_CreditSaveId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_CreditSaveNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_CreditSaveNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_CreditSaveNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Abrechnung_SendungsdatenAusSTB", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Abrechnung_SendungsdatenAusSTB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_UIDMehrfachverwendung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_UIDMehrfachverwendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_EORIgeprueftAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_EORIgeprueftAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_EORIgeprueftAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_EORIgeprueftAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_AdressZusatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_AdressZusatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_AdressZusatz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_AdressZusatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_abweichendesZZVL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_abweichendesZZVL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_abweichendesZZVL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_abweichendesZZVL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_HRNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_HRNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_HRNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_HRNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_Kapital", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_Kapital", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_Kapital", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_Kapital", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_KapitalWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KapitalWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_KapitalWaehrung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_KapitalWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_GruendungsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_GruendungsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_GruendungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_GruendungsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_WechselBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_WechselBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "kde_WechselBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_WechselGueltigBis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselGueltigBis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_WechselGueltigBis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselGueltigBis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_WechselErhaltenAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselErhaltenAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_WechselErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselErhaltenAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kde_BankgarantielErhaltenAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BankgarantielErhaltenAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_BankgarantielErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_BankgarantielErhaltenAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kde_WechselBlanko", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kde_WechselBlanko", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kde_KundenNr, kde_FirmenwortlautFiskal, kde_VerwendetAuftragsNr, kde_FixeA"& _ "uftragsNr, kde_qsTeamId, kde_qsTeamMAId, kde_TeamId, kde_TeamMAId, kde_qsTeamMAN"& _ "ame, kde_qsTeamName, kde_Hoechstkredit, kde_Versicherung_Deckungsstopp, kde_Vers"& _ "icherung_DeckungsstoppDatum, kde_Versicherung_Uebergeben, kde_Versicherung_Ueber"& _ "gebenAm, kde_Versicherung_AnerkennungVersicherungsfall, kde_Versicherung_Anerken"& _ "nungVersicherungsfallAm, kde_Versicherung_AnerkennungVersicherungsfallAb, kde_tx"& _ "tVersicherungDeckungsquote, kde_txtVersicherungNichtVersicherbar, kde_Versicheru"& _ "ng_GemeldeterBetrag, kde_txtVersicherungEHNr, kde_Leihgeld_Provision, kde_Leihge"& _ "ld_ProvisionPreisstaffel, kde_Leihgeld_ProvisionAuftraggeber, EmailFreigabeSendu"& _ "ngsListe, EmailFreigabe_SteuerbescheidPDF, EmailFreigabe_SteuerbescheidPDF_Bedin"& _ "gung, EmailFreigabe_Art, EmailFreigabe_VBDPDF, EmailFreigabe_ABDPDF, Email_AVM, "& _ "Depot_Kunde, FiBuSchnittstelleLG, Zahlungsziel2, Zahlungsziel3, EmailAnkunft_Exp"& _ "ort, EmailFreigabe_Export, EmailFreigabe_Export_Art, kde_BonitaetsStufe, kde_Ink"& _ "asso_Uebergeben, kde_Inkasso_UebergebenAm, kde_Inkasso_GemeldeterBetrag, AutoFak"& _ "turierung, Anmerkungen_Warnhinweis, kde_VERAG_INTERFACE_ID, kde_BesonderheitenNe"& _ "u, kde_InfoAuftragsNr, kde_KundeFremdspedition, kde_verzolltBei, kde_KundeFremds"& _ "peditionExport, kde_verzolltBeiExport, Veranlagungskunde, kde_API_Tradeshift, kd"& _ "e_FakturierungSR_Details, kde_Fakturierung_Sprache, kde_TOBB_KundenNr, kde_Credi"& _ "tSaveBonitaetsklasse, kde_CreditSaveBonitaetsIndex, kde_CreditSaveBonitaetsScore"& _ ", kde_CreditSaveId, kde_CreditSaveNo, kde_Abrechnung_SendungsdatenAusSTB, kde_UI"& _ "DMehrfachverwendung, kde_EORIgeprueftAm, kde_AdressZusatz, kde_abweichendesZZVL,"& _ " kde_HRNr, kde_Kapital, kde_KapitalWaehrung, kde_GruendungsDatum, kde_WechselBet"& _ "rag, kde_WechselGueltigBis, kde_WechselErhaltenAm, kde_BankgarantielErhaltenAm, "& _ "kde_WechselBlanko FROM dbo.tblKundenErweitert" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenErweitertDataTable) 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 VERAGDataSet.tblKundenErweitertDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenErweitertDataTable = New VERAGDataSet.tblKundenErweitertDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenErweitertDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenErweitert") 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_kde_KundenNr As Integer, _ ByVal Original_kde_FirmenwortlautFiskal As String, _ ByVal Original_kde_VerwendetAuftragsNr As Boolean, _ ByVal Original_kde_FixeAuftragsNr As String, _ ByVal Original_kde_qsTeamId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_qsTeamMAId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_TeamId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_TeamMAId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_qsTeamMAName As String, _ ByVal Original_kde_qsTeamName As String, _ ByVal Original_kde_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal Original_kde_Versicherung_Deckungsstopp As Boolean, _ ByVal Original_kde_Versicherung_DeckungsstoppDatum As Global.System.Nullable(Of Date), _ ByVal Original_kde_Versicherung_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Versicherung_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_Versicherung_AnerkennungVersicherungsfall As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Versicherung_AnerkennungVersicherungsfallAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_Versicherung_AnerkennungVersicherungsfallAb As Global.System.Nullable(Of Date), _ ByVal Original_kde_txtVersicherungDeckungsquote As Global.System.Nullable(Of Double), _ ByVal Original_kde_txtVersicherungNichtVersicherbar As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Versicherung_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_kde_txtVersicherungEHNr As String, _ ByVal Original_kde_Leihgeld_Provision As Global.System.Nullable(Of Integer), _ ByVal Original_kde_Leihgeld_ProvisionPreisstaffel As Global.System.Nullable(Of Integer), _ ByVal Original_kde_Leihgeld_ProvisionAuftraggeber As Global.System.Nullable(Of Decimal), _ ByVal Original_EmailFreigabeSendungsListe As Boolean, _ ByVal Original_EmailFreigabe_SteuerbescheidPDF As Boolean, _ ByVal Original_EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer, _ ByVal Original_EmailFreigabe_Art As String, _ ByVal Original_EmailFreigabe_VBDPDF As Boolean, _ ByVal Original_EmailFreigabe_ABDPDF As Boolean, _ ByVal Original_Email_AVM As Boolean, _ ByVal Original_Depot_Kunde As Boolean, _ ByVal Original_FiBuSchnittstelleLG As Boolean, _ ByVal Original_Zahlungsziel2 As Global.System.Nullable(Of Integer), _ ByVal Original_Zahlungsziel3 As Global.System.Nullable(Of Integer), _ ByVal Original_EmailAnkunft_Export As Boolean, _ ByVal Original_EmailFreigabe_Export As Boolean, _ ByVal Original_EmailFreigabe_Export_Art As String, _ ByVal Original_kde_BonitaetsStufe As Global.System.Nullable(Of Integer), _ ByVal Original_kde_Inkasso_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Inkasso_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_Inkasso_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_AutoFakturierung As Boolean, _ ByVal Original_kde_VERAG_INTERFACE_ID As String, _ ByVal Original_kde_BesonderheitenNeu As Boolean, _ ByVal Original_kde_InfoAuftragsNr As String, _ ByVal Original_kde_KundeFremdspedition As Boolean, _ ByVal Original_kde_verzolltBei As String, _ ByVal Original_kde_KundeFremdspeditionExport As Boolean, _ ByVal Original_kde_verzolltBeiExport As String, _ ByVal Original_Veranlagungskunde As Boolean, _ ByVal Original_kde_API_Tradeshift As Boolean, _ ByVal Original_kde_FakturierungSR_Details As Boolean, _ ByVal Original_kde_Fakturierung_Sprache As String, _ ByVal Original_kde_TOBB_KundenNr As String, _ ByVal Original_kde_CreditSaveBonitaetsklasse As String, _ ByVal Original_kde_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal Original_kde_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal Original_kde_CreditSaveId As String, _ ByVal Original_kde_CreditSaveNo As String, _ ByVal Original_kde_Abrechnung_SendungsdatenAusSTB As Boolean, _ ByVal Original_kde_UIDMehrfachverwendung As Boolean, _ ByVal Original_kde_EORIgeprueftAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_AdressZusatz As String, _ ByVal Original_kde_abweichendesZZVL As Global.System.Nullable(Of Integer), _ ByVal Original_kde_HRNr As String, _ ByVal Original_kde_Kapital As Global.System.Nullable(Of Decimal), _ ByVal Original_kde_KapitalWaehrung As String, _ ByVal Original_kde_GruendungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_kde_WechselBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_kde_WechselGueltigBis As Global.System.Nullable(Of Date), _ ByVal Original_kde_WechselErhaltenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_BankgarantielErhaltenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_WechselBlanko As Boolean) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kde_KundenNr,Integer) If (Original_kde_FirmenwortlautFiskal 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_kde_FirmenwortlautFiskal,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_kde_VerwendetAuftragsNr,Boolean) If (Original_kde_FixeAuftragsNr 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_kde_FixeAuftragsNr,String) End If If (Original_kde_qsTeamId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_kde_qsTeamId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_kde_qsTeamMAId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_kde_qsTeamMAId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_kde_TeamId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_kde_TeamId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Original_kde_TeamMAId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_kde_TeamMAId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_kde_qsTeamMAName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_kde_qsTeamMAName,String) End If If (Original_kde_qsTeamName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_kde_qsTeamName,String) End If If (Original_kde_Hoechstkredit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_kde_Hoechstkredit.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_kde_Versicherung_Deckungsstopp,Boolean) If (Original_kde_Versicherung_DeckungsstoppDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_kde_Versicherung_DeckungsstoppDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_Uebergeben.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_kde_Versicherung_Uebergeben.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_UebergebenAm.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_kde_Versicherung_UebergebenAm.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_AnerkennungVersicherungsfall.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_kde_Versicherung_AnerkennungVersicherungsfall.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_AnerkennungVersicherungsfallAm.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_kde_Versicherung_AnerkennungVersicherungsfallAm.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_AnerkennungVersicherungsfallAb.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_kde_Versicherung_AnerkennungVersicherungsfallAb.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_kde_txtVersicherungDeckungsquote.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_kde_txtVersicherungDeckungsquote.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_kde_txtVersicherungNichtVersicherbar.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_kde_txtVersicherungNichtVersicherbar.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_GemeldeterBetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_kde_Versicherung_GemeldeterBetrag.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (Original_kde_txtVersicherungEHNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_kde_txtVersicherungEHNr,String) End If If (Original_kde_Leihgeld_Provision.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_kde_Leihgeld_Provision.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (Original_kde_Leihgeld_ProvisionPreisstaffel.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_kde_Leihgeld_ProvisionPreisstaffel.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Original_kde_Leihgeld_ProvisionAuftraggeber.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_kde_Leihgeld_ProvisionAuftraggeber.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_EmailFreigabeSendungsListe,Boolean) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_EmailFreigabe_SteuerbescheidPDF,Boolean) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_EmailFreigabe_SteuerbescheidPDF_Bedingung,Integer) If (Original_EmailFreigabe_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_EmailFreigabe_Art") Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_EmailFreigabe_Art,String) End If Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_EmailFreigabe_VBDPDF,Boolean) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_EmailFreigabe_ABDPDF,Boolean) Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_Email_AVM,Boolean) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_Depot_Kunde,Boolean) Me.Adapter.DeleteCommand.Parameters(55).Value = CType(Original_FiBuSchnittstelleLG,Boolean) If (Original_Zahlungsziel2.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = CType(Original_Zahlungsziel2.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (Original_Zahlungsziel3.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_Zahlungsziel3.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_EmailAnkunft_Export,Boolean) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_EmailFreigabe_Export,Boolean) If (Original_EmailFreigabe_Export_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_EmailFreigabe_Export_Art") Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_EmailFreigabe_Export_Art,String) End If If (Original_kde_BonitaetsStufe.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_kde_BonitaetsStufe.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Original_kde_Inkasso_Uebergeben.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_kde_Inkasso_Uebergeben.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (Original_kde_Inkasso_UebergebenAm.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_kde_Inkasso_UebergebenAm.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (Original_kde_Inkasso_GemeldeterBetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_kde_Inkasso_GemeldeterBetrag.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(71).Value = CType(Original_AutoFakturierung,Boolean) If (Original_kde_VERAG_INTERFACE_ID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = CType(Original_kde_VERAG_INTERFACE_ID,String) End If Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_kde_BesonderheitenNeu,Boolean) If (Original_kde_InfoAuftragsNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_kde_InfoAuftragsNr,String) End If Me.Adapter.DeleteCommand.Parameters(77).Value = CType(Original_kde_KundeFremdspedition,Boolean) If (Original_kde_verzolltBei Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = CType(Original_kde_verzolltBei,String) End If Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_kde_KundeFremdspeditionExport,Boolean) If (Original_kde_verzolltBeiExport Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_kde_verzolltBeiExport,String) End If Me.Adapter.DeleteCommand.Parameters(83).Value = CType(Original_Veranlagungskunde,Boolean) Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_kde_API_Tradeshift,Boolean) Me.Adapter.DeleteCommand.Parameters(85).Value = CType(Original_kde_FakturierungSR_Details,Boolean) If (Original_kde_Fakturierung_Sprache Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = CType(Original_kde_Fakturierung_Sprache,String) End If If (Original_kde_TOBB_KundenNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = CType(Original_kde_TOBB_KundenNr,String) End If If (Original_kde_CreditSaveBonitaetsklasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = CType(Original_kde_CreditSaveBonitaetsklasse,String) End If If (Original_kde_CreditSaveBonitaetsIndex.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = CType(Original_kde_CreditSaveBonitaetsIndex.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = Global.System.DBNull.Value End If If (Original_kde_CreditSaveBonitaetsScore.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = CType(Original_kde_CreditSaveBonitaetsScore.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = Global.System.DBNull.Value End If If (Original_kde_CreditSaveId Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = CType(Original_kde_CreditSaveId,String) End If If (Original_kde_CreditSaveNo Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = CType(Original_kde_CreditSaveNo,String) End If Me.Adapter.DeleteCommand.Parameters(100).Value = CType(Original_kde_Abrechnung_SendungsdatenAusSTB,Boolean) Me.Adapter.DeleteCommand.Parameters(101).Value = CType(Original_kde_UIDMehrfachverwendung,Boolean) If (Original_kde_EORIgeprueftAm.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = CType(Original_kde_EORIgeprueftAm.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = Global.System.DBNull.Value End If If (Original_kde_AdressZusatz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = CType(Original_kde_AdressZusatz,String) End If If (Original_kde_abweichendesZZVL.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = CType(Original_kde_abweichendesZZVL.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = Global.System.DBNull.Value End If If (Original_kde_HRNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = CType(Original_kde_HRNr,String) End If If (Original_kde_Kapital.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = CType(Original_kde_Kapital.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = Global.System.DBNull.Value End If If (Original_kde_KapitalWaehrung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = CType(Original_kde_KapitalWaehrung,String) End If If (Original_kde_GruendungsDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = CType(Original_kde_GruendungsDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = Global.System.DBNull.Value End If If (Original_kde_WechselBetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = CType(Original_kde_WechselBetrag.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = Global.System.DBNull.Value End If If (Original_kde_WechselGueltigBis.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = CType(Original_kde_WechselGueltigBis.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = Global.System.DBNull.Value End If If (Original_kde_WechselErhaltenAm.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = CType(Original_kde_WechselErhaltenAm.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = Global.System.DBNull.Value End If If (Original_kde_BankgarantielErhaltenAm.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = CType(Original_kde_BankgarantielErhaltenAm.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(124).Value = CType(Original_kde_WechselBlanko,Boolean) 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 kde_KundenNr As Integer, _ ByVal kde_FirmenwortlautFiskal As String, _ ByVal kde_VerwendetAuftragsNr As Boolean, _ ByVal kde_FixeAuftragsNr As String, _ ByVal kde_qsTeamId As Global.System.Nullable(Of Integer), _ ByVal kde_qsTeamMAId As Global.System.Nullable(Of Integer), _ ByVal kde_TeamId As Global.System.Nullable(Of Integer), _ ByVal kde_TeamMAId As Global.System.Nullable(Of Integer), _ ByVal kde_qsTeamMAName As String, _ ByVal kde_qsTeamName As String, _ ByVal kde_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal kde_Versicherung_Deckungsstopp As Boolean, _ ByVal kde_Versicherung_DeckungsstoppDatum As Global.System.Nullable(Of Date), _ ByVal kde_Versicherung_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal kde_Versicherung_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal kde_Versicherung_AnerkennungVersicherungsfall As Global.System.Nullable(Of Boolean), _ ByVal kde_Versicherung_AnerkennungVersicherungsfallAm As Global.System.Nullable(Of Date), _ ByVal kde_Versicherung_AnerkennungVersicherungsfallAb As Global.System.Nullable(Of Date), _ ByVal kde_txtVersicherungDeckungsquote As Global.System.Nullable(Of Double), _ ByVal kde_txtVersicherungNichtVersicherbar As Global.System.Nullable(Of Boolean), _ ByVal kde_Versicherung_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal kde_txtVersicherungEHNr As String, _ ByVal kde_Leihgeld_Provision As Global.System.Nullable(Of Integer), _ ByVal kde_Leihgeld_ProvisionPreisstaffel As Global.System.Nullable(Of Integer), _ ByVal kde_Leihgeld_ProvisionAuftraggeber As Global.System.Nullable(Of Decimal), _ ByVal EmailFreigabeSendungsListe As Boolean, _ ByVal EmailFreigabe_SteuerbescheidPDF As Boolean, _ ByVal EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer, _ ByVal EmailFreigabe_Art As String, _ ByVal EmailFreigabe_VBDPDF As Boolean, _ ByVal EmailFreigabe_ABDPDF As Boolean, _ ByVal Email_AVM As Boolean, _ ByVal Depot_Kunde As Boolean, _ ByVal FiBuSchnittstelleLG As Boolean, _ ByVal Zahlungsziel2 As Global.System.Nullable(Of Integer), _ ByVal Zahlungsziel3 As Global.System.Nullable(Of Integer), _ ByVal EmailAnkunft_Export As Boolean, _ ByVal EmailFreigabe_Export As Boolean, _ ByVal EmailFreigabe_Export_Art As String, _ ByVal kde_BonitaetsStufe As Global.System.Nullable(Of Integer), _ ByVal kde_Inkasso_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal kde_Inkasso_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal kde_Inkasso_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal AutoFakturierung As Boolean, _ ByVal Anmerkungen_Warnhinweis As String, _ ByVal kde_VERAG_INTERFACE_ID As String, _ ByVal kde_BesonderheitenNeu As Boolean, _ ByVal kde_InfoAuftragsNr As String, _ ByVal kde_KundeFremdspedition As Boolean, _ ByVal kde_verzolltBei As String, _ ByVal kde_KundeFremdspeditionExport As Boolean, _ ByVal kde_verzolltBeiExport As String, _ ByVal Veranlagungskunde As Boolean, _ ByVal kde_API_Tradeshift As Boolean, _ ByVal kde_FakturierungSR_Details As Boolean, _ ByVal kde_Fakturierung_Sprache As String, _ ByVal kde_TOBB_KundenNr As String, _ ByVal kde_CreditSaveBonitaetsklasse As String, _ ByVal kde_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal kde_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal kde_CreditSaveId As String, _ ByVal kde_CreditSaveNo As String, _ ByVal kde_Abrechnung_SendungsdatenAusSTB As Boolean, _ ByVal kde_UIDMehrfachverwendung As Boolean, _ ByVal kde_EORIgeprueftAm As Global.System.Nullable(Of Date), _ ByVal kde_AdressZusatz As String, _ ByVal kde_abweichendesZZVL As Global.System.Nullable(Of Integer), _ ByVal kde_HRNr As String, _ ByVal kde_Kapital As Global.System.Nullable(Of Decimal), _ ByVal kde_KapitalWaehrung As String, _ ByVal kde_GruendungsDatum As Global.System.Nullable(Of Date), _ ByVal kde_WechselBetrag As Global.System.Nullable(Of Decimal), _ ByVal kde_WechselGueltigBis As Global.System.Nullable(Of Date), _ ByVal kde_WechselErhaltenAm As Global.System.Nullable(Of Date), _ ByVal kde_BankgarantielErhaltenAm As Global.System.Nullable(Of Date), _ ByVal kde_WechselBlanko As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(kde_KundenNr,Integer) If (kde_FirmenwortlautFiskal Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(kde_FirmenwortlautFiskal,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(kde_VerwendetAuftragsNr,Boolean) If (kde_FixeAuftragsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(kde_FixeAuftragsNr,String) End If If (kde_qsTeamId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(kde_qsTeamId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (kde_qsTeamMAId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(kde_qsTeamMAId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (kde_TeamId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(kde_TeamId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (kde_TeamMAId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(kde_TeamMAId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (kde_qsTeamMAName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(kde_qsTeamMAName,String) End If If (kde_qsTeamName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(kde_qsTeamName,String) End If If (kde_Hoechstkredit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(kde_Hoechstkredit.Value,Double) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(11).Value = CType(kde_Versicherung_Deckungsstopp,Boolean) If (kde_Versicherung_DeckungsstoppDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(kde_Versicherung_DeckungsstoppDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (kde_Versicherung_Uebergeben.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(kde_Versicherung_Uebergeben.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (kde_Versicherung_UebergebenAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(kde_Versicherung_UebergebenAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (kde_Versicherung_AnerkennungVersicherungsfall.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(kde_Versicherung_AnerkennungVersicherungsfall.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (kde_Versicherung_AnerkennungVersicherungsfallAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(kde_Versicherung_AnerkennungVersicherungsfallAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (kde_Versicherung_AnerkennungVersicherungsfallAb.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(kde_Versicherung_AnerkennungVersicherungsfallAb.Value,Date) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (kde_txtVersicherungDeckungsquote.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(kde_txtVersicherungDeckungsquote.Value,Double) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (kde_txtVersicherungNichtVersicherbar.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(kde_txtVersicherungNichtVersicherbar.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (kde_Versicherung_GemeldeterBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(kde_Versicherung_GemeldeterBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (kde_txtVersicherungEHNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(kde_txtVersicherungEHNr,String) End If If (kde_Leihgeld_Provision.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(kde_Leihgeld_Provision.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (kde_Leihgeld_ProvisionPreisstaffel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(kde_Leihgeld_ProvisionPreisstaffel.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (kde_Leihgeld_ProvisionAuftraggeber.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(kde_Leihgeld_ProvisionAuftraggeber.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(25).Value = CType(EmailFreigabeSendungsListe,Boolean) Me.Adapter.InsertCommand.Parameters(26).Value = CType(EmailFreigabe_SteuerbescheidPDF,Boolean) Me.Adapter.InsertCommand.Parameters(27).Value = CType(EmailFreigabe_SteuerbescheidPDF_Bedingung,Integer) If (EmailFreigabe_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("EmailFreigabe_Art") Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(EmailFreigabe_Art,String) End If Me.Adapter.InsertCommand.Parameters(29).Value = CType(EmailFreigabe_VBDPDF,Boolean) Me.Adapter.InsertCommand.Parameters(30).Value = CType(EmailFreigabe_ABDPDF,Boolean) Me.Adapter.InsertCommand.Parameters(31).Value = CType(Email_AVM,Boolean) Me.Adapter.InsertCommand.Parameters(32).Value = CType(Depot_Kunde,Boolean) Me.Adapter.InsertCommand.Parameters(33).Value = CType(FiBuSchnittstelleLG,Boolean) If (Zahlungsziel2.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(Zahlungsziel2.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Zahlungsziel3.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(Zahlungsziel3.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(36).Value = CType(EmailAnkunft_Export,Boolean) Me.Adapter.InsertCommand.Parameters(37).Value = CType(EmailFreigabe_Export,Boolean) If (EmailFreigabe_Export_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("EmailFreigabe_Export_Art") Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(EmailFreigabe_Export_Art,String) End If If (kde_BonitaetsStufe.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(39).Value = CType(kde_BonitaetsStufe.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (kde_Inkasso_Uebergeben.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(kde_Inkasso_Uebergeben.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (kde_Inkasso_UebergebenAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(41).Value = CType(kde_Inkasso_UebergebenAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (kde_Inkasso_GemeldeterBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(42).Value = CType(kde_Inkasso_GemeldeterBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(43).Value = CType(AutoFakturierung,Boolean) If (Anmerkungen_Warnhinweis Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(Anmerkungen_Warnhinweis,String) End If If (kde_VERAG_INTERFACE_ID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(kde_VERAG_INTERFACE_ID,String) End If Me.Adapter.InsertCommand.Parameters(46).Value = CType(kde_BesonderheitenNeu,Boolean) If (kde_InfoAuftragsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(kde_InfoAuftragsNr,String) End If Me.Adapter.InsertCommand.Parameters(48).Value = CType(kde_KundeFremdspedition,Boolean) If (kde_verzolltBei Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(kde_verzolltBei,String) End If Me.Adapter.InsertCommand.Parameters(50).Value = CType(kde_KundeFremdspeditionExport,Boolean) If (kde_verzolltBeiExport Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(kde_verzolltBeiExport,String) End If Me.Adapter.InsertCommand.Parameters(52).Value = CType(Veranlagungskunde,Boolean) Me.Adapter.InsertCommand.Parameters(53).Value = CType(kde_API_Tradeshift,Boolean) Me.Adapter.InsertCommand.Parameters(54).Value = CType(kde_FakturierungSR_Details,Boolean) If (kde_Fakturierung_Sprache Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(kde_Fakturierung_Sprache,String) End If If (kde_TOBB_KundenNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(kde_TOBB_KundenNr,String) End If If (kde_CreditSaveBonitaetsklasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(kde_CreditSaveBonitaetsklasse,String) End If If (kde_CreditSaveBonitaetsIndex.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(58).Value = CType(kde_CreditSaveBonitaetsIndex.Value,Double) Else Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value End If If (kde_CreditSaveBonitaetsScore.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(59).Value = CType(kde_CreditSaveBonitaetsScore.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (kde_CreditSaveId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(kde_CreditSaveId,String) End If If (kde_CreditSaveNo Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(kde_CreditSaveNo,String) End If Me.Adapter.InsertCommand.Parameters(62).Value = CType(kde_Abrechnung_SendungsdatenAusSTB,Boolean) Me.Adapter.InsertCommand.Parameters(63).Value = CType(kde_UIDMehrfachverwendung,Boolean) If (kde_EORIgeprueftAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(64).Value = CType(kde_EORIgeprueftAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (kde_AdressZusatz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(kde_AdressZusatz,String) End If If (kde_abweichendesZZVL.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(66).Value = CType(kde_abweichendesZZVL.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (kde_HRNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(kde_HRNr,String) End If If (kde_Kapital.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(68).Value = CType(kde_Kapital.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (kde_KapitalWaehrung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(kde_KapitalWaehrung,String) End If If (kde_GruendungsDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(70).Value = CType(kde_GruendungsDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (kde_WechselBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(71).Value = CType(kde_WechselBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (kde_WechselGueltigBis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(72).Value = CType(kde_WechselGueltigBis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value End If If (kde_WechselErhaltenAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(73).Value = CType(kde_WechselErhaltenAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value End If If (kde_BankgarantielErhaltenAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(74).Value = CType(kde_BankgarantielErhaltenAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(75).Value = CType(kde_WechselBlanko,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 kde_KundenNr As Integer, _ ByVal kde_FirmenwortlautFiskal As String, _ ByVal kde_VerwendetAuftragsNr As Boolean, _ ByVal kde_FixeAuftragsNr As String, _ ByVal kde_qsTeamId As Global.System.Nullable(Of Integer), _ ByVal kde_qsTeamMAId As Global.System.Nullable(Of Integer), _ ByVal kde_TeamId As Global.System.Nullable(Of Integer), _ ByVal kde_TeamMAId As Global.System.Nullable(Of Integer), _ ByVal kde_qsTeamMAName As String, _ ByVal kde_qsTeamName As String, _ ByVal kde_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal kde_Versicherung_Deckungsstopp As Boolean, _ ByVal kde_Versicherung_DeckungsstoppDatum As Global.System.Nullable(Of Date), _ ByVal kde_Versicherung_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal kde_Versicherung_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal kde_Versicherung_AnerkennungVersicherungsfall As Global.System.Nullable(Of Boolean), _ ByVal kde_Versicherung_AnerkennungVersicherungsfallAm As Global.System.Nullable(Of Date), _ ByVal kde_Versicherung_AnerkennungVersicherungsfallAb As Global.System.Nullable(Of Date), _ ByVal kde_txtVersicherungDeckungsquote As Global.System.Nullable(Of Double), _ ByVal kde_txtVersicherungNichtVersicherbar As Global.System.Nullable(Of Boolean), _ ByVal kde_Versicherung_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal kde_txtVersicherungEHNr As String, _ ByVal kde_Leihgeld_Provision As Global.System.Nullable(Of Integer), _ ByVal kde_Leihgeld_ProvisionPreisstaffel As Global.System.Nullable(Of Integer), _ ByVal kde_Leihgeld_ProvisionAuftraggeber As Global.System.Nullable(Of Decimal), _ ByVal EmailFreigabeSendungsListe As Boolean, _ ByVal EmailFreigabe_SteuerbescheidPDF As Boolean, _ ByVal EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer, _ ByVal EmailFreigabe_Art As String, _ ByVal EmailFreigabe_VBDPDF As Boolean, _ ByVal EmailFreigabe_ABDPDF As Boolean, _ ByVal Email_AVM As Boolean, _ ByVal Depot_Kunde As Boolean, _ ByVal FiBuSchnittstelleLG As Boolean, _ ByVal Zahlungsziel2 As Global.System.Nullable(Of Integer), _ ByVal Zahlungsziel3 As Global.System.Nullable(Of Integer), _ ByVal EmailAnkunft_Export As Boolean, _ ByVal EmailFreigabe_Export As Boolean, _ ByVal EmailFreigabe_Export_Art As String, _ ByVal kde_BonitaetsStufe As Global.System.Nullable(Of Integer), _ ByVal kde_Inkasso_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal kde_Inkasso_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal kde_Inkasso_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal AutoFakturierung As Boolean, _ ByVal Anmerkungen_Warnhinweis As String, _ ByVal kde_VERAG_INTERFACE_ID As String, _ ByVal kde_BesonderheitenNeu As Boolean, _ ByVal kde_InfoAuftragsNr As String, _ ByVal kde_KundeFremdspedition As Boolean, _ ByVal kde_verzolltBei As String, _ ByVal kde_KundeFremdspeditionExport As Boolean, _ ByVal kde_verzolltBeiExport As String, _ ByVal Veranlagungskunde As Boolean, _ ByVal kde_API_Tradeshift As Boolean, _ ByVal kde_FakturierungSR_Details As Boolean, _ ByVal kde_Fakturierung_Sprache As String, _ ByVal kde_TOBB_KundenNr As String, _ ByVal kde_CreditSaveBonitaetsklasse As String, _ ByVal kde_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal kde_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal kde_CreditSaveId As String, _ ByVal kde_CreditSaveNo As String, _ ByVal kde_Abrechnung_SendungsdatenAusSTB As Boolean, _ ByVal kde_UIDMehrfachverwendung As Boolean, _ ByVal kde_EORIgeprueftAm As Global.System.Nullable(Of Date), _ ByVal kde_AdressZusatz As String, _ ByVal kde_abweichendesZZVL As Global.System.Nullable(Of Integer), _ ByVal kde_HRNr As String, _ ByVal kde_Kapital As Global.System.Nullable(Of Decimal), _ ByVal kde_KapitalWaehrung As String, _ ByVal kde_GruendungsDatum As Global.System.Nullable(Of Date), _ ByVal kde_WechselBetrag As Global.System.Nullable(Of Decimal), _ ByVal kde_WechselGueltigBis As Global.System.Nullable(Of Date), _ ByVal kde_WechselErhaltenAm As Global.System.Nullable(Of Date), _ ByVal kde_BankgarantielErhaltenAm As Global.System.Nullable(Of Date), _ ByVal kde_WechselBlanko As Boolean, _ ByVal Original_kde_KundenNr As Integer, _ ByVal Original_kde_FirmenwortlautFiskal As String, _ ByVal Original_kde_VerwendetAuftragsNr As Boolean, _ ByVal Original_kde_FixeAuftragsNr As String, _ ByVal Original_kde_qsTeamId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_qsTeamMAId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_TeamId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_TeamMAId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_qsTeamMAName As String, _ ByVal Original_kde_qsTeamName As String, _ ByVal Original_kde_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal Original_kde_Versicherung_Deckungsstopp As Boolean, _ ByVal Original_kde_Versicherung_DeckungsstoppDatum As Global.System.Nullable(Of Date), _ ByVal Original_kde_Versicherung_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Versicherung_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_Versicherung_AnerkennungVersicherungsfall As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Versicherung_AnerkennungVersicherungsfallAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_Versicherung_AnerkennungVersicherungsfallAb As Global.System.Nullable(Of Date), _ ByVal Original_kde_txtVersicherungDeckungsquote As Global.System.Nullable(Of Double), _ ByVal Original_kde_txtVersicherungNichtVersicherbar As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Versicherung_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_kde_txtVersicherungEHNr As String, _ ByVal Original_kde_Leihgeld_Provision As Global.System.Nullable(Of Integer), _ ByVal Original_kde_Leihgeld_ProvisionPreisstaffel As Global.System.Nullable(Of Integer), _ ByVal Original_kde_Leihgeld_ProvisionAuftraggeber As Global.System.Nullable(Of Decimal), _ ByVal Original_EmailFreigabeSendungsListe As Boolean, _ ByVal Original_EmailFreigabe_SteuerbescheidPDF As Boolean, _ ByVal Original_EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer, _ ByVal Original_EmailFreigabe_Art As String, _ ByVal Original_EmailFreigabe_VBDPDF As Boolean, _ ByVal Original_EmailFreigabe_ABDPDF As Boolean, _ ByVal Original_Email_AVM As Boolean, _ ByVal Original_Depot_Kunde As Boolean, _ ByVal Original_FiBuSchnittstelleLG As Boolean, _ ByVal Original_Zahlungsziel2 As Global.System.Nullable(Of Integer), _ ByVal Original_Zahlungsziel3 As Global.System.Nullable(Of Integer), _ ByVal Original_EmailAnkunft_Export As Boolean, _ ByVal Original_EmailFreigabe_Export As Boolean, _ ByVal Original_EmailFreigabe_Export_Art As String, _ ByVal Original_kde_BonitaetsStufe As Global.System.Nullable(Of Integer), _ ByVal Original_kde_Inkasso_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Inkasso_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_Inkasso_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_AutoFakturierung As Boolean, _ ByVal Original_kde_VERAG_INTERFACE_ID As String, _ ByVal Original_kde_BesonderheitenNeu As Boolean, _ ByVal Original_kde_InfoAuftragsNr As String, _ ByVal Original_kde_KundeFremdspedition As Boolean, _ ByVal Original_kde_verzolltBei As String, _ ByVal Original_kde_KundeFremdspeditionExport As Boolean, _ ByVal Original_kde_verzolltBeiExport As String, _ ByVal Original_Veranlagungskunde As Boolean, _ ByVal Original_kde_API_Tradeshift As Boolean, _ ByVal Original_kde_FakturierungSR_Details As Boolean, _ ByVal Original_kde_Fakturierung_Sprache As String, _ ByVal Original_kde_TOBB_KundenNr As String, _ ByVal Original_kde_CreditSaveBonitaetsklasse As String, _ ByVal Original_kde_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal Original_kde_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal Original_kde_CreditSaveId As String, _ ByVal Original_kde_CreditSaveNo As String, _ ByVal Original_kde_Abrechnung_SendungsdatenAusSTB As Boolean, _ ByVal Original_kde_UIDMehrfachverwendung As Boolean, _ ByVal Original_kde_EORIgeprueftAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_AdressZusatz As String, _ ByVal Original_kde_abweichendesZZVL As Global.System.Nullable(Of Integer), _ ByVal Original_kde_HRNr As String, _ ByVal Original_kde_Kapital As Global.System.Nullable(Of Decimal), _ ByVal Original_kde_KapitalWaehrung As String, _ ByVal Original_kde_GruendungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_kde_WechselBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_kde_WechselGueltigBis As Global.System.Nullable(Of Date), _ ByVal Original_kde_WechselErhaltenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_BankgarantielErhaltenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_WechselBlanko As Boolean) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kde_KundenNr,Integer) If (kde_FirmenwortlautFiskal Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(kde_FirmenwortlautFiskal,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(kde_VerwendetAuftragsNr,Boolean) If (kde_FixeAuftragsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(kde_FixeAuftragsNr,String) End If If (kde_qsTeamId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(kde_qsTeamId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (kde_qsTeamMAId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(kde_qsTeamMAId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (kde_TeamId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(kde_TeamId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (kde_TeamMAId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(kde_TeamMAId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (kde_qsTeamMAName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(kde_qsTeamMAName,String) End If If (kde_qsTeamName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(kde_qsTeamName,String) End If If (kde_Hoechstkredit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(kde_Hoechstkredit.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(kde_Versicherung_Deckungsstopp,Boolean) If (kde_Versicherung_DeckungsstoppDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(kde_Versicherung_DeckungsstoppDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (kde_Versicherung_Uebergeben.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(kde_Versicherung_Uebergeben.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (kde_Versicherung_UebergebenAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(kde_Versicherung_UebergebenAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (kde_Versicherung_AnerkennungVersicherungsfall.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(kde_Versicherung_AnerkennungVersicherungsfall.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (kde_Versicherung_AnerkennungVersicherungsfallAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(kde_Versicherung_AnerkennungVersicherungsfallAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (kde_Versicherung_AnerkennungVersicherungsfallAb.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(kde_Versicherung_AnerkennungVersicherungsfallAb.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (kde_txtVersicherungDeckungsquote.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(kde_txtVersicherungDeckungsquote.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (kde_txtVersicherungNichtVersicherbar.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(kde_txtVersicherungNichtVersicherbar.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (kde_Versicherung_GemeldeterBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(kde_Versicherung_GemeldeterBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (kde_txtVersicherungEHNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(kde_txtVersicherungEHNr,String) End If If (kde_Leihgeld_Provision.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(kde_Leihgeld_Provision.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (kde_Leihgeld_ProvisionPreisstaffel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(kde_Leihgeld_ProvisionPreisstaffel.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (kde_Leihgeld_ProvisionAuftraggeber.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(kde_Leihgeld_ProvisionAuftraggeber.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(25).Value = CType(EmailFreigabeSendungsListe,Boolean) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(EmailFreigabe_SteuerbescheidPDF,Boolean) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(EmailFreigabe_SteuerbescheidPDF_Bedingung,Integer) If (EmailFreigabe_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("EmailFreigabe_Art") Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(EmailFreigabe_Art,String) End If Me.Adapter.UpdateCommand.Parameters(29).Value = CType(EmailFreigabe_VBDPDF,Boolean) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(EmailFreigabe_ABDPDF,Boolean) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Email_AVM,Boolean) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Depot_Kunde,Boolean) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(FiBuSchnittstelleLG,Boolean) If (Zahlungsziel2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Zahlungsziel2.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Zahlungsziel3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Zahlungsziel3.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(36).Value = CType(EmailAnkunft_Export,Boolean) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(EmailFreigabe_Export,Boolean) If (EmailFreigabe_Export_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("EmailFreigabe_Export_Art") Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(EmailFreigabe_Export_Art,String) End If If (kde_BonitaetsStufe.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(kde_BonitaetsStufe.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (kde_Inkasso_Uebergeben.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(kde_Inkasso_Uebergeben.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (kde_Inkasso_UebergebenAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(kde_Inkasso_UebergebenAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (kde_Inkasso_GemeldeterBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(kde_Inkasso_GemeldeterBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(43).Value = CType(AutoFakturierung,Boolean) If (Anmerkungen_Warnhinweis Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Anmerkungen_Warnhinweis,String) End If If (kde_VERAG_INTERFACE_ID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(kde_VERAG_INTERFACE_ID,String) End If Me.Adapter.UpdateCommand.Parameters(46).Value = CType(kde_BesonderheitenNeu,Boolean) If (kde_InfoAuftragsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(kde_InfoAuftragsNr,String) End If Me.Adapter.UpdateCommand.Parameters(48).Value = CType(kde_KundeFremdspedition,Boolean) If (kde_verzolltBei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(kde_verzolltBei,String) End If Me.Adapter.UpdateCommand.Parameters(50).Value = CType(kde_KundeFremdspeditionExport,Boolean) If (kde_verzolltBeiExport Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(kde_verzolltBeiExport,String) End If Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Veranlagungskunde,Boolean) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(kde_API_Tradeshift,Boolean) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(kde_FakturierungSR_Details,Boolean) If (kde_Fakturierung_Sprache Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(kde_Fakturierung_Sprache,String) End If If (kde_TOBB_KundenNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(kde_TOBB_KundenNr,String) End If If (kde_CreditSaveBonitaetsklasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(kde_CreditSaveBonitaetsklasse,String) End If If (kde_CreditSaveBonitaetsIndex.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(kde_CreditSaveBonitaetsIndex.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value End If If (kde_CreditSaveBonitaetsScore.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(kde_CreditSaveBonitaetsScore.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (kde_CreditSaveId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(kde_CreditSaveId,String) End If If (kde_CreditSaveNo Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(kde_CreditSaveNo,String) End If Me.Adapter.UpdateCommand.Parameters(62).Value = CType(kde_Abrechnung_SendungsdatenAusSTB,Boolean) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(kde_UIDMehrfachverwendung,Boolean) If (kde_EORIgeprueftAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(kde_EORIgeprueftAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (kde_AdressZusatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(kde_AdressZusatz,String) End If If (kde_abweichendesZZVL.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(kde_abweichendesZZVL.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (kde_HRNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(kde_HRNr,String) End If If (kde_Kapital.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(kde_Kapital.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (kde_KapitalWaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(kde_KapitalWaehrung,String) End If If (kde_GruendungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(kde_GruendungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (kde_WechselBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(kde_WechselBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (kde_WechselGueltigBis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(kde_WechselGueltigBis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value End If If (kde_WechselErhaltenAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(73).Value = CType(kde_WechselErhaltenAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value End If If (kde_BankgarantielErhaltenAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(kde_BankgarantielErhaltenAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(75).Value = CType(kde_WechselBlanko,Boolean) Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_kde_KundenNr,Integer) If (Original_kde_FirmenwortlautFiskal Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_kde_FirmenwortlautFiskal,String) End If Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_kde_VerwendetAuftragsNr,Boolean) If (Original_kde_FixeAuftragsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_kde_FixeAuftragsNr,String) End If If (Original_kde_qsTeamId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_kde_qsTeamId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (Original_kde_qsTeamMAId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_kde_qsTeamMAId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Original_kde_TeamId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_kde_TeamId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (Original_kde_TeamMAId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_kde_TeamMAId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value End If If (Original_kde_qsTeamMAName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_kde_qsTeamMAName,String) End If If (Original_kde_qsTeamName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_kde_qsTeamName,String) End If If (Original_kde_Hoechstkredit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_kde_Hoechstkredit.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(96).Value = CType(Original_kde_Versicherung_Deckungsstopp,Boolean) If (Original_kde_Versicherung_DeckungsstoppDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = CType(Original_kde_Versicherung_DeckungsstoppDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_Uebergeben.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = CType(Original_kde_Versicherung_Uebergeben.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_UebergebenAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = CType(Original_kde_Versicherung_UebergebenAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_AnerkennungVersicherungsfall.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = CType(Original_kde_Versicherung_AnerkennungVersicherungsfall.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_AnerkennungVersicherungsfallAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = CType(Original_kde_Versicherung_AnerkennungVersicherungsfallAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_AnerkennungVersicherungsfallAb.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = CType(Original_kde_Versicherung_AnerkennungVersicherungsfallAb.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value End If If (Original_kde_txtVersicherungDeckungsquote.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = CType(Original_kde_txtVersicherungDeckungsquote.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value End If If (Original_kde_txtVersicherungNichtVersicherbar.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = CType(Original_kde_txtVersicherungNichtVersicherbar.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value End If If (Original_kde_Versicherung_GemeldeterBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = CType(Original_kde_Versicherung_GemeldeterBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value End If If (Original_kde_txtVersicherungEHNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = CType(Original_kde_txtVersicherungEHNr,String) End If If (Original_kde_Leihgeld_Provision.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = CType(Original_kde_Leihgeld_Provision.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value End If If (Original_kde_Leihgeld_ProvisionPreisstaffel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = CType(Original_kde_Leihgeld_ProvisionPreisstaffel.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value End If If (Original_kde_Leihgeld_ProvisionAuftraggeber.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = CType(Original_kde_Leihgeld_ProvisionAuftraggeber.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(123).Value = CType(Original_EmailFreigabeSendungsListe,Boolean) Me.Adapter.UpdateCommand.Parameters(124).Value = CType(Original_EmailFreigabe_SteuerbescheidPDF,Boolean) Me.Adapter.UpdateCommand.Parameters(125).Value = CType(Original_EmailFreigabe_SteuerbescheidPDF_Bedingung,Integer) If (Original_EmailFreigabe_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_EmailFreigabe_Art") Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(Original_EmailFreigabe_Art,String) End If Me.Adapter.UpdateCommand.Parameters(127).Value = CType(Original_EmailFreigabe_VBDPDF,Boolean) Me.Adapter.UpdateCommand.Parameters(128).Value = CType(Original_EmailFreigabe_ABDPDF,Boolean) Me.Adapter.UpdateCommand.Parameters(129).Value = CType(Original_Email_AVM,Boolean) Me.Adapter.UpdateCommand.Parameters(130).Value = CType(Original_Depot_Kunde,Boolean) Me.Adapter.UpdateCommand.Parameters(131).Value = CType(Original_FiBuSchnittstelleLG,Boolean) If (Original_Zahlungsziel2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(133).Value = CType(Original_Zahlungsziel2.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value End If If (Original_Zahlungsziel3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(135).Value = CType(Original_Zahlungsziel3.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(136).Value = CType(Original_EmailAnkunft_Export,Boolean) Me.Adapter.UpdateCommand.Parameters(137).Value = CType(Original_EmailFreigabe_Export,Boolean) If (Original_EmailFreigabe_Export_Art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_EmailFreigabe_Export_Art") Else Me.Adapter.UpdateCommand.Parameters(138).Value = CType(Original_EmailFreigabe_Export_Art,String) End If If (Original_kde_BonitaetsStufe.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = CType(Original_kde_BonitaetsStufe.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value End If If (Original_kde_Inkasso_Uebergeben.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = CType(Original_kde_Inkasso_Uebergeben.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value End If If (Original_kde_Inkasso_UebergebenAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = CType(Original_kde_Inkasso_UebergebenAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value End If If (Original_kde_Inkasso_GemeldeterBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = CType(Original_kde_Inkasso_GemeldeterBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(147).Value = CType(Original_AutoFakturierung,Boolean) If (Original_kde_VERAG_INTERFACE_ID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(148).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(148).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(149).Value = CType(Original_kde_VERAG_INTERFACE_ID,String) End If Me.Adapter.UpdateCommand.Parameters(150).Value = CType(Original_kde_BesonderheitenNeu,Boolean) If (Original_kde_InfoAuftragsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = CType(Original_kde_InfoAuftragsNr,String) End If Me.Adapter.UpdateCommand.Parameters(153).Value = CType(Original_kde_KundeFremdspedition,Boolean) If (Original_kde_verzolltBei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(154).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(155).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(154).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(155).Value = CType(Original_kde_verzolltBei,String) End If Me.Adapter.UpdateCommand.Parameters(156).Value = CType(Original_kde_KundeFremdspeditionExport,Boolean) If (Original_kde_verzolltBeiExport Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = CType(Original_kde_verzolltBeiExport,String) End If Me.Adapter.UpdateCommand.Parameters(159).Value = CType(Original_Veranlagungskunde,Boolean) Me.Adapter.UpdateCommand.Parameters(160).Value = CType(Original_kde_API_Tradeshift,Boolean) Me.Adapter.UpdateCommand.Parameters(161).Value = CType(Original_kde_FakturierungSR_Details,Boolean) If (Original_kde_Fakturierung_Sprache Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(162).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(162).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(163).Value = CType(Original_kde_Fakturierung_Sprache,String) End If If (Original_kde_TOBB_KundenNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(164).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(164).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(165).Value = CType(Original_kde_TOBB_KundenNr,String) End If If (Original_kde_CreditSaveBonitaetsklasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(166).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(166).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(167).Value = CType(Original_kde_CreditSaveBonitaetsklasse,String) End If If (Original_kde_CreditSaveBonitaetsIndex.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(168).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(169).Value = CType(Original_kde_CreditSaveBonitaetsIndex.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(168).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(169).Value = Global.System.DBNull.Value End If If (Original_kde_CreditSaveBonitaetsScore.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(170).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(171).Value = CType(Original_kde_CreditSaveBonitaetsScore.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(170).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(171).Value = Global.System.DBNull.Value End If If (Original_kde_CreditSaveId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(172).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(173).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(172).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(173).Value = CType(Original_kde_CreditSaveId,String) End If If (Original_kde_CreditSaveNo Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(174).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(175).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(174).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(175).Value = CType(Original_kde_CreditSaveNo,String) End If Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_kde_Abrechnung_SendungsdatenAusSTB,Boolean) Me.Adapter.UpdateCommand.Parameters(177).Value = CType(Original_kde_UIDMehrfachverwendung,Boolean) If (Original_kde_EORIgeprueftAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(178).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(179).Value = CType(Original_kde_EORIgeprueftAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(178).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(179).Value = Global.System.DBNull.Value End If If (Original_kde_AdressZusatz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(180).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(181).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(180).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(181).Value = CType(Original_kde_AdressZusatz,String) End If If (Original_kde_abweichendesZZVL.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(182).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(183).Value = CType(Original_kde_abweichendesZZVL.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(182).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(183).Value = Global.System.DBNull.Value End If If (Original_kde_HRNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(184).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(185).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(184).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(185).Value = CType(Original_kde_HRNr,String) End If If (Original_kde_Kapital.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(186).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(187).Value = CType(Original_kde_Kapital.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(186).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(187).Value = Global.System.DBNull.Value End If If (Original_kde_KapitalWaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(188).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(189).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(188).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(189).Value = CType(Original_kde_KapitalWaehrung,String) End If If (Original_kde_GruendungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(190).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(191).Value = CType(Original_kde_GruendungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(190).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(191).Value = Global.System.DBNull.Value End If If (Original_kde_WechselBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(192).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(193).Value = CType(Original_kde_WechselBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(192).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(193).Value = Global.System.DBNull.Value End If If (Original_kde_WechselGueltigBis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(194).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(195).Value = CType(Original_kde_WechselGueltigBis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(194).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(195).Value = Global.System.DBNull.Value End If If (Original_kde_WechselErhaltenAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(196).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(197).Value = CType(Original_kde_WechselErhaltenAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(196).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(197).Value = Global.System.DBNull.Value End If If (Original_kde_BankgarantielErhaltenAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(198).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(199).Value = CType(Original_kde_BankgarantielErhaltenAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(198).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(199).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_kde_WechselBlanko,Boolean) 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 kde_FirmenwortlautFiskal As String, _ ByVal kde_VerwendetAuftragsNr As Boolean, _ ByVal kde_FixeAuftragsNr As String, _ ByVal kde_qsTeamId As Global.System.Nullable(Of Integer), _ ByVal kde_qsTeamMAId As Global.System.Nullable(Of Integer), _ ByVal kde_TeamId As Global.System.Nullable(Of Integer), _ ByVal kde_TeamMAId As Global.System.Nullable(Of Integer), _ ByVal kde_qsTeamMAName As String, _ ByVal kde_qsTeamName As String, _ ByVal kde_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal kde_Versicherung_Deckungsstopp As Boolean, _ ByVal kde_Versicherung_DeckungsstoppDatum As Global.System.Nullable(Of Date), _ ByVal kde_Versicherung_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal kde_Versicherung_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal kde_Versicherung_AnerkennungVersicherungsfall As Global.System.Nullable(Of Boolean), _ ByVal kde_Versicherung_AnerkennungVersicherungsfallAm As Global.System.Nullable(Of Date), _ ByVal kde_Versicherung_AnerkennungVersicherungsfallAb As Global.System.Nullable(Of Date), _ ByVal kde_txtVersicherungDeckungsquote As Global.System.Nullable(Of Double), _ ByVal kde_txtVersicherungNichtVersicherbar As Global.System.Nullable(Of Boolean), _ ByVal kde_Versicherung_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal kde_txtVersicherungEHNr As String, _ ByVal kde_Leihgeld_Provision As Global.System.Nullable(Of Integer), _ ByVal kde_Leihgeld_ProvisionPreisstaffel As Global.System.Nullable(Of Integer), _ ByVal kde_Leihgeld_ProvisionAuftraggeber As Global.System.Nullable(Of Decimal), _ ByVal EmailFreigabeSendungsListe As Boolean, _ ByVal EmailFreigabe_SteuerbescheidPDF As Boolean, _ ByVal EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer, _ ByVal EmailFreigabe_Art As String, _ ByVal EmailFreigabe_VBDPDF As Boolean, _ ByVal EmailFreigabe_ABDPDF As Boolean, _ ByVal Email_AVM As Boolean, _ ByVal Depot_Kunde As Boolean, _ ByVal FiBuSchnittstelleLG As Boolean, _ ByVal Zahlungsziel2 As Global.System.Nullable(Of Integer), _ ByVal Zahlungsziel3 As Global.System.Nullable(Of Integer), _ ByVal EmailAnkunft_Export As Boolean, _ ByVal EmailFreigabe_Export As Boolean, _ ByVal EmailFreigabe_Export_Art As String, _ ByVal kde_BonitaetsStufe As Global.System.Nullable(Of Integer), _ ByVal kde_Inkasso_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal kde_Inkasso_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal kde_Inkasso_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal AutoFakturierung As Boolean, _ ByVal Anmerkungen_Warnhinweis As String, _ ByVal kde_VERAG_INTERFACE_ID As String, _ ByVal kde_BesonderheitenNeu As Boolean, _ ByVal kde_InfoAuftragsNr As String, _ ByVal kde_KundeFremdspedition As Boolean, _ ByVal kde_verzolltBei As String, _ ByVal kde_KundeFremdspeditionExport As Boolean, _ ByVal kde_verzolltBeiExport As String, _ ByVal Veranlagungskunde As Boolean, _ ByVal kde_API_Tradeshift As Boolean, _ ByVal kde_FakturierungSR_Details As Boolean, _ ByVal kde_Fakturierung_Sprache As String, _ ByVal kde_TOBB_KundenNr As String, _ ByVal kde_CreditSaveBonitaetsklasse As String, _ ByVal kde_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal kde_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal kde_CreditSaveId As String, _ ByVal kde_CreditSaveNo As String, _ ByVal kde_Abrechnung_SendungsdatenAusSTB As Boolean, _ ByVal kde_UIDMehrfachverwendung As Boolean, _ ByVal kde_EORIgeprueftAm As Global.System.Nullable(Of Date), _ ByVal kde_AdressZusatz As String, _ ByVal kde_abweichendesZZVL As Global.System.Nullable(Of Integer), _ ByVal kde_HRNr As String, _ ByVal kde_Kapital As Global.System.Nullable(Of Decimal), _ ByVal kde_KapitalWaehrung As String, _ ByVal kde_GruendungsDatum As Global.System.Nullable(Of Date), _ ByVal kde_WechselBetrag As Global.System.Nullable(Of Decimal), _ ByVal kde_WechselGueltigBis As Global.System.Nullable(Of Date), _ ByVal kde_WechselErhaltenAm As Global.System.Nullable(Of Date), _ ByVal kde_BankgarantielErhaltenAm As Global.System.Nullable(Of Date), _ ByVal kde_WechselBlanko As Boolean, _ ByVal Original_kde_KundenNr As Integer, _ ByVal Original_kde_FirmenwortlautFiskal As String, _ ByVal Original_kde_VerwendetAuftragsNr As Boolean, _ ByVal Original_kde_FixeAuftragsNr As String, _ ByVal Original_kde_qsTeamId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_qsTeamMAId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_TeamId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_TeamMAId As Global.System.Nullable(Of Integer), _ ByVal Original_kde_qsTeamMAName As String, _ ByVal Original_kde_qsTeamName As String, _ ByVal Original_kde_Hoechstkredit As Global.System.Nullable(Of Double), _ ByVal Original_kde_Versicherung_Deckungsstopp As Boolean, _ ByVal Original_kde_Versicherung_DeckungsstoppDatum As Global.System.Nullable(Of Date), _ ByVal Original_kde_Versicherung_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Versicherung_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_Versicherung_AnerkennungVersicherungsfall As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Versicherung_AnerkennungVersicherungsfallAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_Versicherung_AnerkennungVersicherungsfallAb As Global.System.Nullable(Of Date), _ ByVal Original_kde_txtVersicherungDeckungsquote As Global.System.Nullable(Of Double), _ ByVal Original_kde_txtVersicherungNichtVersicherbar As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Versicherung_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_kde_txtVersicherungEHNr As String, _ ByVal Original_kde_Leihgeld_Provision As Global.System.Nullable(Of Integer), _ ByVal Original_kde_Leihgeld_ProvisionPreisstaffel As Global.System.Nullable(Of Integer), _ ByVal Original_kde_Leihgeld_ProvisionAuftraggeber As Global.System.Nullable(Of Decimal), _ ByVal Original_EmailFreigabeSendungsListe As Boolean, _ ByVal Original_EmailFreigabe_SteuerbescheidPDF As Boolean, _ ByVal Original_EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer, _ ByVal Original_EmailFreigabe_Art As String, _ ByVal Original_EmailFreigabe_VBDPDF As Boolean, _ ByVal Original_EmailFreigabe_ABDPDF As Boolean, _ ByVal Original_Email_AVM As Boolean, _ ByVal Original_Depot_Kunde As Boolean, _ ByVal Original_FiBuSchnittstelleLG As Boolean, _ ByVal Original_Zahlungsziel2 As Global.System.Nullable(Of Integer), _ ByVal Original_Zahlungsziel3 As Global.System.Nullable(Of Integer), _ ByVal Original_EmailAnkunft_Export As Boolean, _ ByVal Original_EmailFreigabe_Export As Boolean, _ ByVal Original_EmailFreigabe_Export_Art As String, _ ByVal Original_kde_BonitaetsStufe As Global.System.Nullable(Of Integer), _ ByVal Original_kde_Inkasso_Uebergeben As Global.System.Nullable(Of Boolean), _ ByVal Original_kde_Inkasso_UebergebenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_Inkasso_GemeldeterBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_AutoFakturierung As Boolean, _ ByVal Original_kde_VERAG_INTERFACE_ID As String, _ ByVal Original_kde_BesonderheitenNeu As Boolean, _ ByVal Original_kde_InfoAuftragsNr As String, _ ByVal Original_kde_KundeFremdspedition As Boolean, _ ByVal Original_kde_verzolltBei As String, _ ByVal Original_kde_KundeFremdspeditionExport As Boolean, _ ByVal Original_kde_verzolltBeiExport As String, _ ByVal Original_Veranlagungskunde As Boolean, _ ByVal Original_kde_API_Tradeshift As Boolean, _ ByVal Original_kde_FakturierungSR_Details As Boolean, _ ByVal Original_kde_Fakturierung_Sprache As String, _ ByVal Original_kde_TOBB_KundenNr As String, _ ByVal Original_kde_CreditSaveBonitaetsklasse As String, _ ByVal Original_kde_CreditSaveBonitaetsIndex As Global.System.Nullable(Of Double), _ ByVal Original_kde_CreditSaveBonitaetsScore As Global.System.Nullable(Of Integer), _ ByVal Original_kde_CreditSaveId As String, _ ByVal Original_kde_CreditSaveNo As String, _ ByVal Original_kde_Abrechnung_SendungsdatenAusSTB As Boolean, _ ByVal Original_kde_UIDMehrfachverwendung As Boolean, _ ByVal Original_kde_EORIgeprueftAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_AdressZusatz As String, _ ByVal Original_kde_abweichendesZZVL As Global.System.Nullable(Of Integer), _ ByVal Original_kde_HRNr As String, _ ByVal Original_kde_Kapital As Global.System.Nullable(Of Decimal), _ ByVal Original_kde_KapitalWaehrung As String, _ ByVal Original_kde_GruendungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_kde_WechselBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_kde_WechselGueltigBis As Global.System.Nullable(Of Date), _ ByVal Original_kde_WechselErhaltenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_BankgarantielErhaltenAm As Global.System.Nullable(Of Date), _ ByVal Original_kde_WechselBlanko As Boolean) As Integer Return Me.Update(Original_kde_KundenNr, kde_FirmenwortlautFiskal, kde_VerwendetAuftragsNr, kde_FixeAuftragsNr, kde_qsTeamId, kde_qsTeamMAId, kde_TeamId, kde_TeamMAId, kde_qsTeamMAName, kde_qsTeamName, kde_Hoechstkredit, kde_Versicherung_Deckungsstopp, kde_Versicherung_DeckungsstoppDatum, kde_Versicherung_Uebergeben, kde_Versicherung_UebergebenAm, kde_Versicherung_AnerkennungVersicherungsfall, kde_Versicherung_AnerkennungVersicherungsfallAm, kde_Versicherung_AnerkennungVersicherungsfallAb, kde_txtVersicherungDeckungsquote, kde_txtVersicherungNichtVersicherbar, kde_Versicherung_GemeldeterBetrag, kde_txtVersicherungEHNr, kde_Leihgeld_Provision, kde_Leihgeld_ProvisionPreisstaffel, kde_Leihgeld_ProvisionAuftraggeber, EmailFreigabeSendungsListe, EmailFreigabe_SteuerbescheidPDF, EmailFreigabe_SteuerbescheidPDF_Bedingung, EmailFreigabe_Art, EmailFreigabe_VBDPDF, EmailFreigabe_ABDPDF, Email_AVM, Depot_Kunde, FiBuSchnittstelleLG, Zahlungsziel2, Zahlungsziel3, EmailAnkunft_Export, EmailFreigabe_Export, EmailFreigabe_Export_Art, kde_BonitaetsStufe, kde_Inkasso_Uebergeben, kde_Inkasso_UebergebenAm, kde_Inkasso_GemeldeterBetrag, AutoFakturierung, Anmerkungen_Warnhinweis, kde_VERAG_INTERFACE_ID, kde_BesonderheitenNeu, kde_InfoAuftragsNr, kde_KundeFremdspedition, kde_verzolltBei, kde_KundeFremdspeditionExport, kde_verzolltBeiExport, Veranlagungskunde, kde_API_Tradeshift, kde_FakturierungSR_Details, kde_Fakturierung_Sprache, kde_TOBB_KundenNr, kde_CreditSaveBonitaetsklasse, kde_CreditSaveBonitaetsIndex, kde_CreditSaveBonitaetsScore, kde_CreditSaveId, kde_CreditSaveNo, kde_Abrechnung_SendungsdatenAusSTB, kde_UIDMehrfachverwendung, kde_EORIgeprueftAm, kde_AdressZusatz, kde_abweichendesZZVL, kde_HRNr, kde_Kapital, kde_KapitalWaehrung, kde_GruendungsDatum, kde_WechselBetrag, kde_WechselGueltigBis, kde_WechselErhaltenAm, kde_BankgarantielErhaltenAm, kde_WechselBlanko, Original_kde_KundenNr, Original_kde_FirmenwortlautFiskal, Original_kde_VerwendetAuftragsNr, Original_kde_FixeAuftragsNr, Original_kde_qsTeamId, Original_kde_qsTeamMAId, Original_kde_TeamId, Original_kde_TeamMAId, Original_kde_qsTeamMAName, Original_kde_qsTeamName, Original_kde_Hoechstkredit, Original_kde_Versicherung_Deckungsstopp, Original_kde_Versicherung_DeckungsstoppDatum, Original_kde_Versicherung_Uebergeben, Original_kde_Versicherung_UebergebenAm, Original_kde_Versicherung_AnerkennungVersicherungsfall, Original_kde_Versicherung_AnerkennungVersicherungsfallAm, Original_kde_Versicherung_AnerkennungVersicherungsfallAb, Original_kde_txtVersicherungDeckungsquote, Original_kde_txtVersicherungNichtVersicherbar, Original_kde_Versicherung_GemeldeterBetrag, Original_kde_txtVersicherungEHNr, Original_kde_Leihgeld_Provision, Original_kde_Leihgeld_ProvisionPreisstaffel, Original_kde_Leihgeld_ProvisionAuftraggeber, Original_EmailFreigabeSendungsListe, Original_EmailFreigabe_SteuerbescheidPDF, Original_EmailFreigabe_SteuerbescheidPDF_Bedingung, Original_EmailFreigabe_Art, Original_EmailFreigabe_VBDPDF, Original_EmailFreigabe_ABDPDF, Original_Email_AVM, Original_Depot_Kunde, Original_FiBuSchnittstelleLG, Original_Zahlungsziel2, Original_Zahlungsziel3, Original_EmailAnkunft_Export, Original_EmailFreigabe_Export, Original_EmailFreigabe_Export_Art, Original_kde_BonitaetsStufe, Original_kde_Inkasso_Uebergeben, Original_kde_Inkasso_UebergebenAm, Original_kde_Inkasso_GemeldeterBetrag, Original_AutoFakturierung, Original_kde_VERAG_INTERFACE_ID, Original_kde_BesonderheitenNeu, Original_kde_InfoAuftragsNr, Original_kde_KundeFremdspedition, Original_kde_verzolltBei, Original_kde_KundeFremdspeditionExport, Original_kde_verzolltBeiExport, Original_Veranlagungskunde, Original_kde_API_Tradeshift, Original_kde_FakturierungSR_Details, Original_kde_Fakturierung_Sprache, Original_kde_TOBB_KundenNr, Original_kde_CreditSaveBonitaetsklasse, Original_kde_CreditSaveBonitaetsIndex, Original_kde_CreditSaveBonitaetsScore, Original_kde_CreditSaveId, Original_kde_CreditSaveNo, Original_kde_Abrechnung_SendungsdatenAusSTB, Original_kde_UIDMehrfachverwendung, Original_kde_EORIgeprueftAm, Original_kde_AdressZusatz, Original_kde_abweichendesZZVL, Original_kde_HRNr, Original_kde_Kapital, Original_kde_KapitalWaehrung, Original_kde_GruendungsDatum, Original_kde_WechselBetrag, Original_kde_WechselGueltigBis, Original_kde_WechselErhaltenAm, Original_kde_BankgarantielErhaltenAm, Original_kde_WechselBlanko) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenKontaktTableAdapter 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 = "tblKundenKontakt" tableMapping.ColumnMappings.Add("kkd_id", "kkd_id") tableMapping.ColumnMappings.Add("kkd_KundenNr", "kkd_KundenNr") tableMapping.ColumnMappings.Add("kkd_kkaId", "kkd_kkaId") tableMapping.ColumnMappings.Add("kkd_kkaBez", "kkd_kkaBez") tableMapping.ColumnMappings.Add("kkd_Tel", "kkd_Tel") tableMapping.ColumnMappings.Add("kkd_Email", "kkd_Email") tableMapping.ColumnMappings.Add("kkd_EmailCC", "kkd_EmailCC") tableMapping.ColumnMappings.Add("kkd_EmailBCC", "kkd_EmailBCC") tableMapping.ColumnMappings.Add("kkd_Fax", "kkd_Fax") tableMapping.ColumnMappings.Add("kkd_Homepage", "kkd_Homepage") tableMapping.ColumnMappings.Add("kkd_Mobil", "kkd_Mobil") tableMapping.ColumnMappings.Add("kkd_AnsprechpartnerAnrede", "kkd_AnsprechpartnerAnrede") tableMapping.ColumnMappings.Add("kkd_AnsprechpartnerVorname", "kkd_AnsprechpartnerVorname") tableMapping.ColumnMappings.Add("kkd_AnsprechpartnerNachname", "kkd_AnsprechpartnerNachname") tableMapping.ColumnMappings.Add("kkd_Adresse", "kkd_Adresse") tableMapping.ColumnMappings.Add("kkd_Ort", "kkd_Ort") tableMapping.ColumnMappings.Add("kkd_Land", "kkd_Land") tableMapping.ColumnMappings.Add("kkd_PLZ", "kkd_PLZ") tableMapping.ColumnMappings.Add("kkd_GebDatum", "kkd_GebDatum") tableMapping.ColumnMappings.Add("kkd_Passgueltigbis", "kkd_Passgueltigbis") tableMapping.ColumnMappings.Add("kkd_Firmenname", "kkd_Firmenname") tableMapping.ColumnMappings.Add("kkd_Geburtsland", "kkd_Geburtsland") tableMapping.ColumnMappings.Add("kkd_Geburtsort", "kkd_Geburtsort") 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].[tblKundenKontakt] WHERE (([kkd_id] = @Original_kkd_id) AND ([k"& _ "kd_KundenNr] = @Original_kkd_KundenNr) AND ([kkd_kkaId] = @Original_kkd_kkaId) A"& _ "ND ((@IsNull_kkd_kkaBez = 1 AND [kkd_kkaBez] IS NULL) OR ([kkd_kkaBez] = @Origin"& _ "al_kkd_kkaBez)) AND ((@IsNull_kkd_Tel = 1 AND [kkd_Tel] IS NULL) OR ([kkd_Tel] ="& _ " @Original_kkd_Tel)) AND ((@IsNull_kkd_Fax = 1 AND [kkd_Fax] IS NULL) OR ([kkd_F"& _ "ax] = @Original_kkd_Fax)) AND ((@IsNull_kkd_Homepage = 1 AND [kkd_Homepage] IS N"& _ "ULL) OR ([kkd_Homepage] = @Original_kkd_Homepage)) AND ((@IsNull_kkd_Mobil = 1 A"& _ "ND [kkd_Mobil] IS NULL) OR ([kkd_Mobil] = @Original_kkd_Mobil)) AND ((@IsNull_kk"& _ "d_AnsprechpartnerAnrede = 1 AND [kkd_AnsprechpartnerAnrede] IS NULL) OR ([kkd_An"& _ "sprechpartnerAnrede] = @Original_kkd_AnsprechpartnerAnrede)) AND ((@IsNull_kkd_A"& _ "nsprechpartnerVorname = 1 AND [kkd_AnsprechpartnerVorname] IS NULL) OR ([kkd_Ans"& _ "prechpartnerVorname] = @Original_kkd_AnsprechpartnerVorname)) AND ((@IsNull_kkd_"& _ "AnsprechpartnerNachname = 1 AND [kkd_AnsprechpartnerNachname] IS NULL) OR ([kkd_"& _ "AnsprechpartnerNachname] = @Original_kkd_AnsprechpartnerNachname)) AND ((@IsNull"& _ "_kkd_Ort = 1 AND [kkd_Ort] IS NULL) OR ([kkd_Ort] = @Original_kkd_Ort)) AND ((@I"& _ "sNull_kkd_Land = 1 AND [kkd_Land] IS NULL) OR ([kkd_Land] = @Original_kkd_Land))"& _ " AND ((@IsNull_kkd_PLZ = 1 AND [kkd_PLZ] IS NULL) OR ([kkd_PLZ] = @Original_kkd_"& _ "PLZ)) AND ((@IsNull_kkd_GebDatum = 1 AND [kkd_GebDatum] IS NULL) OR ([kkd_GebDat"& _ "um] = @Original_kkd_GebDatum)) AND ((@IsNull_kkd_Passgueltigbis = 1 AND [kkd_Pas"& _ "sgueltigbis] IS NULL) OR ([kkd_Passgueltigbis] = @Original_kkd_Passgueltigbis)) "& _ "AND ((@IsNull_kkd_Firmenname = 1 AND [kkd_Firmenname] IS NULL) OR ([kkd_Firmenna"& _ "me] = @Original_kkd_Firmenname)) AND ((@IsNull_kkd_Geburtsland = 1 AND [kkd_Gebu"& _ "rtsland] IS NULL) OR ([kkd_Geburtsland] = @Original_kkd_Geburtsland)) AND ((@IsN"& _ "ull_kkd_Geburtsort = 1 AND [kkd_Geburtsort] IS NULL) OR ([kkd_Geburtsort] = @Ori"& _ "ginal_kkd_Geburtsort)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_kkaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_kkaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_kkaBez", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_kkaBez", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_kkaBez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_kkaBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Tel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Tel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Tel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Fax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Fax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Fax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Fax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Homepage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Homepage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Homepage", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Homepage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Mobil", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Mobil", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Mobil", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Mobil", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_AnsprechpartnerAnrede", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerAnrede", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_AnsprechpartnerAnrede", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerAnrede", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_AnsprechpartnerVorname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerVorname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_AnsprechpartnerVorname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerVorname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_AnsprechpartnerNachname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerNachname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_AnsprechpartnerNachname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerNachname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_GebDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_GebDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_GebDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_GebDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Passgueltigbis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Passgueltigbis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Passgueltigbis", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Passgueltigbis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Firmenname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Firmenname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Firmenname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Geburtsland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Geburtsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Geburtsort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Geburtsort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsort", 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].[tblKundenKontakt] ([kkd_KundenNr], [kkd_kkaId], [kkd_kkaBez], "& _ "[kkd_Tel], [kkd_Email], [kkd_EmailCC], [kkd_EmailBCC], [kkd_Fax], [kkd_Homepage]"& _ ", [kkd_Mobil], [kkd_AnsprechpartnerAnrede], [kkd_AnsprechpartnerVorname], [kkd_A"& _ "nsprechpartnerNachname], [kkd_Adresse], [kkd_Ort], [kkd_Land], [kkd_PLZ], [kkd_G"& _ "ebDatum], [kkd_Passgueltigbis], [kkd_Firmenname], [kkd_Geburtsland], [kkd_Geburt"& _ "sort]) VALUES (@kkd_KundenNr, @kkd_kkaId, @kkd_kkaBez, @kkd_Tel, @kkd_Email, @kk"& _ "d_EmailCC, @kkd_EmailBCC, @kkd_Fax, @kkd_Homepage, @kkd_Mobil, @kkd_Ansprechpart"& _ "nerAnrede, @kkd_AnsprechpartnerVorname, @kkd_AnsprechpartnerNachname, @kkd_Adres"& _ "se, @kkd_Ort, @kkd_Land, @kkd_PLZ, @kkd_GebDatum, @kkd_Passgueltigbis, @kkd_Firm"& _ "enname, @kkd_Geburtsland, @kkd_Geburtsort);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kkd_id, kkd_KundenNr, kkd_kk"& _ "aId, kkd_kkaBez, kkd_Tel, kkd_Email, kkd_EmailCC, kkd_EmailBCC, kkd_Fax, kkd_Hom"& _ "epage, kkd_Mobil, kkd_AnsprechpartnerAnrede, kkd_AnsprechpartnerVorname, kkd_Ans"& _ "prechpartnerNachname, kkd_Adresse, kkd_Ort, kkd_Land, kkd_PLZ, kkd_GebDatum, kkd"& _ "_Passgueltigbis, kkd_Firmenname, kkd_Geburtsland, kkd_Geburtsort FROM tblKundenK"& _ "ontakt WHERE (kkd_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_kkaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_kkaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_kkaBez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_kkaBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Tel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_EmailCC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_EmailCC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_EmailBCC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_EmailBCC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Fax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Fax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Homepage", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Homepage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Mobil", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Mobil", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_AnsprechpartnerAnrede", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerAnrede", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_AnsprechpartnerVorname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerVorname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_AnsprechpartnerNachname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerNachname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Adresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Adresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_GebDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_GebDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Passgueltigbis", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Passgueltigbis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Firmenname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Geburtsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Geburtsort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsort", 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].[tblKundenKontakt] SET [kkd_KundenNr] = @kkd_KundenNr, [kkd_kkaId] ="& _ " @kkd_kkaId, [kkd_kkaBez] = @kkd_kkaBez, [kkd_Tel] = @kkd_Tel, [kkd_Email] = @kk"& _ "d_Email, [kkd_EmailCC] = @kkd_EmailCC, [kkd_EmailBCC] = @kkd_EmailBCC, [kkd_Fax]"& _ " = @kkd_Fax, [kkd_Homepage] = @kkd_Homepage, [kkd_Mobil] = @kkd_Mobil, [kkd_Ansp"& _ "rechpartnerAnrede] = @kkd_AnsprechpartnerAnrede, [kkd_AnsprechpartnerVorname] = "& _ "@kkd_AnsprechpartnerVorname, [kkd_AnsprechpartnerNachname] = @kkd_Ansprechpartne"& _ "rNachname, [kkd_Adresse] = @kkd_Adresse, [kkd_Ort] = @kkd_Ort, [kkd_Land] = @kkd"& _ "_Land, [kkd_PLZ] = @kkd_PLZ, [kkd_GebDatum] = @kkd_GebDatum, [kkd_Passgueltigbis"& _ "] = @kkd_Passgueltigbis, [kkd_Firmenname] = @kkd_Firmenname, [kkd_Geburtsland] ="& _ " @kkd_Geburtsland, [kkd_Geburtsort] = @kkd_Geburtsort WHERE (([kkd_id] = @Origin"& _ "al_kkd_id) AND ([kkd_KundenNr] = @Original_kkd_KundenNr) AND ([kkd_kkaId] = @Ori"& _ "ginal_kkd_kkaId) AND ((@IsNull_kkd_kkaBez = 1 AND [kkd_kkaBez] IS NULL) OR ([kkd"& _ "_kkaBez] = @Original_kkd_kkaBez)) AND ((@IsNull_kkd_Tel = 1 AND [kkd_Tel] IS NUL"& _ "L) OR ([kkd_Tel] = @Original_kkd_Tel)) AND ((@IsNull_kkd_Fax = 1 AND [kkd_Fax] I"& _ "S NULL) OR ([kkd_Fax] = @Original_kkd_Fax)) AND ((@IsNull_kkd_Homepage = 1 AND ["& _ "kkd_Homepage] IS NULL) OR ([kkd_Homepage] = @Original_kkd_Homepage)) AND ((@IsNu"& _ "ll_kkd_Mobil = 1 AND [kkd_Mobil] IS NULL) OR ([kkd_Mobil] = @Original_kkd_Mobil)"& _ ") AND ((@IsNull_kkd_AnsprechpartnerAnrede = 1 AND [kkd_AnsprechpartnerAnrede] IS"& _ " NULL) OR ([kkd_AnsprechpartnerAnrede] = @Original_kkd_AnsprechpartnerAnrede)) A"& _ "ND ((@IsNull_kkd_AnsprechpartnerVorname = 1 AND [kkd_AnsprechpartnerVorname] IS "& _ "NULL) OR ([kkd_AnsprechpartnerVorname] = @Original_kkd_AnsprechpartnerVorname)) "& _ "AND ((@IsNull_kkd_AnsprechpartnerNachname = 1 AND [kkd_AnsprechpartnerNachname] "& _ "IS NULL) OR ([kkd_AnsprechpartnerNachname] = @Original_kkd_AnsprechpartnerNachna"& _ "me)) AND ((@IsNull_kkd_Ort = 1 AND [kkd_Ort] IS NULL) OR ([kkd_Ort] = @Original_"& _ "kkd_Ort)) AND ((@IsNull_kkd_Land = 1 AND [kkd_Land] IS NULL) OR ([kkd_Land] = @O"& _ "riginal_kkd_Land)) AND ((@IsNull_kkd_PLZ = 1 AND [kkd_PLZ] IS NULL) OR ([kkd_PLZ"& _ "] = @Original_kkd_PLZ)) AND ((@IsNull_kkd_GebDatum = 1 AND [kkd_GebDatum] IS NUL"& _ "L) OR ([kkd_GebDatum] = @Original_kkd_GebDatum)) AND ((@IsNull_kkd_Passgueltigbi"& _ "s = 1 AND [kkd_Passgueltigbis] IS NULL) OR ([kkd_Passgueltigbis] = @Original_kkd"& _ "_Passgueltigbis)) AND ((@IsNull_kkd_Firmenname = 1 AND [kkd_Firmenname] IS NULL)"& _ " OR ([kkd_Firmenname] = @Original_kkd_Firmenname)) AND ((@IsNull_kkd_Geburtsland"& _ " = 1 AND [kkd_Geburtsland] IS NULL) OR ([kkd_Geburtsland] = @Original_kkd_Geburt"& _ "sland)) AND ((@IsNull_kkd_Geburtsort = 1 AND [kkd_Geburtsort] IS NULL) OR ([kkd_"& _ "Geburtsort] = @Original_kkd_Geburtsort)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kkd_id, kkd_KundenNr, kkd_kka"& _ "Id, kkd_kkaBez, kkd_Tel, kkd_Email, kkd_EmailCC, kkd_EmailBCC, kkd_Fax, kkd_Home"& _ "page, kkd_Mobil, kkd_AnsprechpartnerAnrede, kkd_AnsprechpartnerVorname, kkd_Ansp"& _ "rechpartnerNachname, kkd_Adresse, kkd_Ort, kkd_Land, kkd_PLZ, kkd_GebDatum, kkd_"& _ "Passgueltigbis, kkd_Firmenname, kkd_Geburtsland, kkd_Geburtsort FROM tblKundenKo"& _ "ntakt WHERE (kkd_id = @kkd_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_kkaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_kkaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_kkaBez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_kkaBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Tel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_EmailCC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_EmailCC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_EmailBCC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_EmailBCC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Fax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Fax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Homepage", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Homepage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Mobil", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Mobil", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_AnsprechpartnerAnrede", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerAnrede", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_AnsprechpartnerVorname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerVorname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_AnsprechpartnerNachname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerNachname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Adresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Adresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_GebDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_GebDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Passgueltigbis", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Passgueltigbis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Firmenname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Geburtsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_Geburtsort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_kkaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_kkaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_kkaBez", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_kkaBez", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_kkaBez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_kkaBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Tel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Tel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Tel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Fax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Fax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Fax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Fax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Homepage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Homepage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Homepage", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Homepage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Mobil", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Mobil", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Mobil", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Mobil", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_AnsprechpartnerAnrede", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerAnrede", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_AnsprechpartnerAnrede", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerAnrede", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_AnsprechpartnerVorname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerVorname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_AnsprechpartnerVorname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerVorname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_AnsprechpartnerNachname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerNachname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_AnsprechpartnerNachname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_AnsprechpartnerNachname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_GebDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_GebDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_GebDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_GebDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Passgueltigbis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Passgueltigbis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Passgueltigbis", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Passgueltigbis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Firmenname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Firmenname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Firmenname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Geburtsland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Geburtsland", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kkd_Geburtsort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kkd_Geburtsort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_Geburtsort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kkd_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "kkd_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kkd_id, kkd_KundenNr, kkd_kkaId, kkd_kkaBez, kkd_Tel, kkd_Email, kkd_Email"& _ "CC, kkd_EmailBCC, kkd_Fax, kkd_Homepage, kkd_Mobil, kkd_AnsprechpartnerAnrede, k"& _ "kd_AnsprechpartnerVorname, kkd_AnsprechpartnerNachname, kkd_Adresse, kkd_Ort, kk"& _ "d_Land, kkd_PLZ, kkd_GebDatum, kkd_Passgueltigbis, kkd_Firmenname, kkd_Geburtsla"& _ "nd, kkd_Geburtsort FROM dbo.tblKundenKontakt" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenKontaktDataTable) 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 VERAGDataSet.tblKundenKontaktDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenKontaktDataTable = New VERAGDataSet.tblKundenKontaktDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenKontaktDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenKontakt") 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_kkd_id As Integer, _ ByVal Original_kkd_KundenNr As Integer, _ ByVal Original_kkd_kkaId As Integer, _ ByVal Original_kkd_kkaBez As String, _ ByVal Original_kkd_Tel As String, _ ByVal Original_kkd_Fax As String, _ ByVal Original_kkd_Homepage As String, _ ByVal Original_kkd_Mobil As String, _ ByVal Original_kkd_AnsprechpartnerAnrede As String, _ ByVal Original_kkd_AnsprechpartnerVorname As String, _ ByVal Original_kkd_AnsprechpartnerNachname As String, _ ByVal Original_kkd_Ort As String, _ ByVal Original_kkd_Land As String, _ ByVal Original_kkd_PLZ As String, _ ByVal Original_kkd_GebDatum As Global.System.Nullable(Of Date), _ ByVal Original_kkd_Passgueltigbis As Global.System.Nullable(Of Date), _ ByVal Original_kkd_Firmenname As String, _ ByVal Original_kkd_Geburtsland As String, _ ByVal Original_kkd_Geburtsort As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kkd_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_kkd_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_kkd_kkaId,Integer) If (Original_kkd_kkaBez 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_kkd_kkaBez,String) End If If (Original_kkd_Tel 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_kkd_Tel,String) End If If (Original_kkd_Fax 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_kkd_Fax,String) End If If (Original_kkd_Homepage 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_kkd_Homepage,String) End If If (Original_kkd_Mobil 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_kkd_Mobil,String) End If If (Original_kkd_AnsprechpartnerAnrede 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_kkd_AnsprechpartnerAnrede,String) End If If (Original_kkd_AnsprechpartnerVorname Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_kkd_AnsprechpartnerVorname,String) End If If (Original_kkd_AnsprechpartnerNachname Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_kkd_AnsprechpartnerNachname,String) End If If (Original_kkd_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_kkd_Ort,String) End If If (Original_kkd_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_kkd_Land,String) End If If (Original_kkd_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_kkd_PLZ,String) End If If (Original_kkd_GebDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_kkd_GebDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_kkd_Passgueltigbis.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_kkd_Passgueltigbis.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_kkd_Firmenname Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_kkd_Firmenname,String) End If If (Original_kkd_Geburtsland Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_kkd_Geburtsland,String) End If If (Original_kkd_Geburtsort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_kkd_Geburtsort,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 kkd_KundenNr As Integer, _ ByVal kkd_kkaId As Integer, _ ByVal kkd_kkaBez As String, _ ByVal kkd_Tel As String, _ ByVal kkd_Email As String, _ ByVal kkd_EmailCC As String, _ ByVal kkd_EmailBCC As String, _ ByVal kkd_Fax As String, _ ByVal kkd_Homepage As String, _ ByVal kkd_Mobil As String, _ ByVal kkd_AnsprechpartnerAnrede As String, _ ByVal kkd_AnsprechpartnerVorname As String, _ ByVal kkd_AnsprechpartnerNachname As String, _ ByVal kkd_Adresse As String, _ ByVal kkd_Ort As String, _ ByVal kkd_Land As String, _ ByVal kkd_PLZ As String, _ ByVal kkd_GebDatum As Global.System.Nullable(Of Date), _ ByVal kkd_Passgueltigbis As Global.System.Nullable(Of Date), _ ByVal kkd_Firmenname As String, _ ByVal kkd_Geburtsland As String, _ ByVal kkd_Geburtsort As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(kkd_KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(kkd_kkaId,Integer) If (kkd_kkaBez Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(kkd_kkaBez,String) End If If (kkd_Tel Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(kkd_Tel,String) End If If (kkd_Email Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(kkd_Email,String) End If If (kkd_EmailCC Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(kkd_EmailCC,String) End If If (kkd_EmailBCC Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(kkd_EmailBCC,String) End If If (kkd_Fax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(kkd_Fax,String) End If If (kkd_Homepage Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(kkd_Homepage,String) End If If (kkd_Mobil Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(kkd_Mobil,String) End If If (kkd_AnsprechpartnerAnrede Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(kkd_AnsprechpartnerAnrede,String) End If If (kkd_AnsprechpartnerVorname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(kkd_AnsprechpartnerVorname,String) End If If (kkd_AnsprechpartnerNachname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(kkd_AnsprechpartnerNachname,String) End If If (kkd_Adresse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(kkd_Adresse,String) End If If (kkd_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(kkd_Ort,String) End If If (kkd_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(kkd_Land,String) End If If (kkd_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(kkd_PLZ,String) End If If (kkd_GebDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(kkd_GebDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (kkd_Passgueltigbis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(kkd_Passgueltigbis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (kkd_Firmenname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(kkd_Firmenname,String) End If If (kkd_Geburtsland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(kkd_Geburtsland,String) End If If (kkd_Geburtsort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(kkd_Geburtsort,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 kkd_KundenNr As Integer, _ ByVal kkd_kkaId As Integer, _ ByVal kkd_kkaBez As String, _ ByVal kkd_Tel As String, _ ByVal kkd_Email As String, _ ByVal kkd_EmailCC As String, _ ByVal kkd_EmailBCC As String, _ ByVal kkd_Fax As String, _ ByVal kkd_Homepage As String, _ ByVal kkd_Mobil As String, _ ByVal kkd_AnsprechpartnerAnrede As String, _ ByVal kkd_AnsprechpartnerVorname As String, _ ByVal kkd_AnsprechpartnerNachname As String, _ ByVal kkd_Adresse As String, _ ByVal kkd_Ort As String, _ ByVal kkd_Land As String, _ ByVal kkd_PLZ As String, _ ByVal kkd_GebDatum As Global.System.Nullable(Of Date), _ ByVal kkd_Passgueltigbis As Global.System.Nullable(Of Date), _ ByVal kkd_Firmenname As String, _ ByVal kkd_Geburtsland As String, _ ByVal kkd_Geburtsort As String, _ ByVal Original_kkd_id As Integer, _ ByVal Original_kkd_KundenNr As Integer, _ ByVal Original_kkd_kkaId As Integer, _ ByVal Original_kkd_kkaBez As String, _ ByVal Original_kkd_Tel As String, _ ByVal Original_kkd_Fax As String, _ ByVal Original_kkd_Homepage As String, _ ByVal Original_kkd_Mobil As String, _ ByVal Original_kkd_AnsprechpartnerAnrede As String, _ ByVal Original_kkd_AnsprechpartnerVorname As String, _ ByVal Original_kkd_AnsprechpartnerNachname As String, _ ByVal Original_kkd_Ort As String, _ ByVal Original_kkd_Land As String, _ ByVal Original_kkd_PLZ As String, _ ByVal Original_kkd_GebDatum As Global.System.Nullable(Of Date), _ ByVal Original_kkd_Passgueltigbis As Global.System.Nullable(Of Date), _ ByVal Original_kkd_Firmenname As String, _ ByVal Original_kkd_Geburtsland As String, _ ByVal Original_kkd_Geburtsort As String, _ ByVal kkd_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kkd_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(kkd_kkaId,Integer) If (kkd_kkaBez Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(kkd_kkaBez,String) End If If (kkd_Tel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(kkd_Tel,String) End If If (kkd_Email Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(kkd_Email,String) End If If (kkd_EmailCC Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(kkd_EmailCC,String) End If If (kkd_EmailBCC Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(kkd_EmailBCC,String) End If If (kkd_Fax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(kkd_Fax,String) End If If (kkd_Homepage Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(kkd_Homepage,String) End If If (kkd_Mobil Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(kkd_Mobil,String) End If If (kkd_AnsprechpartnerAnrede Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(kkd_AnsprechpartnerAnrede,String) End If If (kkd_AnsprechpartnerVorname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(kkd_AnsprechpartnerVorname,String) End If If (kkd_AnsprechpartnerNachname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(kkd_AnsprechpartnerNachname,String) End If If (kkd_Adresse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(kkd_Adresse,String) End If If (kkd_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(kkd_Ort,String) End If If (kkd_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(kkd_Land,String) End If If (kkd_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(kkd_PLZ,String) End If If (kkd_GebDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(kkd_GebDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (kkd_Passgueltigbis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(kkd_Passgueltigbis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (kkd_Firmenname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(kkd_Firmenname,String) End If If (kkd_Geburtsland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(kkd_Geburtsland,String) End If If (kkd_Geburtsort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(kkd_Geburtsort,String) End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_kkd_id,Integer) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_kkd_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_kkd_kkaId,Integer) If (Original_kkd_kkaBez 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_kkd_kkaBez,String) End If If (Original_kkd_Tel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_kkd_Tel,String) End If If (Original_kkd_Fax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_kkd_Fax,String) End If If (Original_kkd_Homepage 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_kkd_Homepage,String) End If If (Original_kkd_Mobil Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_kkd_Mobil,String) End If If (Original_kkd_AnsprechpartnerAnrede Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_kkd_AnsprechpartnerAnrede,String) End If If (Original_kkd_AnsprechpartnerVorname 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_kkd_AnsprechpartnerVorname,String) End If If (Original_kkd_AnsprechpartnerNachname 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_kkd_AnsprechpartnerNachname,String) End If If (Original_kkd_Ort 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_kkd_Ort,String) End If If (Original_kkd_Land 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_kkd_Land,String) End If If (Original_kkd_PLZ 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_kkd_PLZ,String) End If If (Original_kkd_GebDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_kkd_GebDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Original_kkd_Passgueltigbis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_kkd_Passgueltigbis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Original_kkd_Firmenname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_kkd_Firmenname,String) End If If (Original_kkd_Geburtsland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_kkd_Geburtsland,String) End If If (Original_kkd_Geburtsort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_kkd_Geburtsort,String) End If Me.Adapter.UpdateCommand.Parameters(57).Value = CType(kkd_id,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 kkd_KundenNr As Integer, _ ByVal kkd_kkaId As Integer, _ ByVal kkd_kkaBez As String, _ ByVal kkd_Tel As String, _ ByVal kkd_Email As String, _ ByVal kkd_EmailCC As String, _ ByVal kkd_EmailBCC As String, _ ByVal kkd_Fax As String, _ ByVal kkd_Homepage As String, _ ByVal kkd_Mobil As String, _ ByVal kkd_AnsprechpartnerAnrede As String, _ ByVal kkd_AnsprechpartnerVorname As String, _ ByVal kkd_AnsprechpartnerNachname As String, _ ByVal kkd_Adresse As String, _ ByVal kkd_Ort As String, _ ByVal kkd_Land As String, _ ByVal kkd_PLZ As String, _ ByVal kkd_GebDatum As Global.System.Nullable(Of Date), _ ByVal kkd_Passgueltigbis As Global.System.Nullable(Of Date), _ ByVal kkd_Firmenname As String, _ ByVal kkd_Geburtsland As String, _ ByVal kkd_Geburtsort As String, _ ByVal Original_kkd_id As Integer, _ ByVal Original_kkd_KundenNr As Integer, _ ByVal Original_kkd_kkaId As Integer, _ ByVal Original_kkd_kkaBez As String, _ ByVal Original_kkd_Tel As String, _ ByVal Original_kkd_Fax As String, _ ByVal Original_kkd_Homepage As String, _ ByVal Original_kkd_Mobil As String, _ ByVal Original_kkd_AnsprechpartnerAnrede As String, _ ByVal Original_kkd_AnsprechpartnerVorname As String, _ ByVal Original_kkd_AnsprechpartnerNachname As String, _ ByVal Original_kkd_Ort As String, _ ByVal Original_kkd_Land As String, _ ByVal Original_kkd_PLZ As String, _ ByVal Original_kkd_GebDatum As Global.System.Nullable(Of Date), _ ByVal Original_kkd_Passgueltigbis As Global.System.Nullable(Of Date), _ ByVal Original_kkd_Firmenname As String, _ ByVal Original_kkd_Geburtsland As String, _ ByVal Original_kkd_Geburtsort As String) As Integer Return Me.Update(kkd_KundenNr, kkd_kkaId, kkd_kkaBez, kkd_Tel, kkd_Email, kkd_EmailCC, kkd_EmailBCC, kkd_Fax, kkd_Homepage, kkd_Mobil, kkd_AnsprechpartnerAnrede, kkd_AnsprechpartnerVorname, kkd_AnsprechpartnerNachname, kkd_Adresse, kkd_Ort, kkd_Land, kkd_PLZ, kkd_GebDatum, kkd_Passgueltigbis, kkd_Firmenname, kkd_Geburtsland, kkd_Geburtsort, Original_kkd_id, Original_kkd_KundenNr, Original_kkd_kkaId, Original_kkd_kkaBez, Original_kkd_Tel, Original_kkd_Fax, Original_kkd_Homepage, Original_kkd_Mobil, Original_kkd_AnsprechpartnerAnrede, Original_kkd_AnsprechpartnerVorname, Original_kkd_AnsprechpartnerNachname, Original_kkd_Ort, Original_kkd_Land, Original_kkd_PLZ, Original_kkd_GebDatum, Original_kkd_Passgueltigbis, Original_kkd_Firmenname, Original_kkd_Geburtsland, Original_kkd_Geburtsort, Original_kkd_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenKontaktArtenTableAdapter 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 = "tblKundenKontaktArten" tableMapping.ColumnMappings.Add("kka_id", "kka_id") tableMapping.ColumnMappings.Add("kka_Bezeichnung", "kka_Bezeichnung") 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].[tblKundenKontaktArten] WHERE (([kka_id] = @Original_kka_id) AN"& _ "D ([kka_Bezeichnung] = @Original_kka_Bezeichnung))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kka_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kka_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kka_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kka_Bezeichnung", 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].[tblKundenKontaktArten] ([kka_Bezeichnung]) VALUES (@kka_Bezeic"& _ "hnung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kka_id, kka_Bezeichnung FROM tblKundenKontaktArten WHERE (kka_id"& _ " = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kka_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kka_Bezeichnung", 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].[tblKundenKontaktArten] SET [kka_Bezeichnung] = @kka_Bezeichnung WHE"& _ "RE (([kka_id] = @Original_kka_id) AND ([kka_Bezeichnung] = @Original_kka_Bezeich"& _ "nung));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kka_id, kka_Bezeichnung FROM tblKundenKontaktArten WHERE (kka_id"& _ " = @kka_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kka_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kka_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kka_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kka_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kka_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kka_Bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kka_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "kka_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kka_id, kka_Bezeichnung FROM dbo.tblKundenKontaktArten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenKontaktArtenDataTable) 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 VERAGDataSet.tblKundenKontaktArtenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenKontaktArtenDataTable = New VERAGDataSet.tblKundenKontaktArtenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenKontaktArtenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenKontaktArten") 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_kka_id As Integer, ByVal Original_kka_Bezeichnung As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kka_id,Integer) If (Original_kka_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kka_Bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_kka_Bezeichnung,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 kka_Bezeichnung As String) As Integer If (kka_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("kka_Bezeichnung") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(kka_Bezeichnung,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 kka_Bezeichnung As String, ByVal Original_kka_id As Integer, ByVal Original_kka_Bezeichnung As String, ByVal kka_id As Integer) As Integer If (kka_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("kka_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kka_Bezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_kka_id,Integer) If (Original_kka_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kka_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_kka_Bezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(kka_id,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 kka_Bezeichnung As String, ByVal Original_kka_id As Integer, ByVal Original_kka_Bezeichnung As String) As Integer Return Me.Update(kka_Bezeichnung, Original_kka_id, Original_kka_Bezeichnung, Original_kka_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenumsatzTableAdapter 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 = "tblKundenumsatz" tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("Jahr", "Jahr") tableMapping.ColumnMappings.Add("steuerpflichtig", "steuerpflichtig") tableMapping.ColumnMappings.Add("steuerfrei", "steuerfrei") tableMapping.ColumnMappings.Add("Nettoumsatz", "Nettoumsatz") tableMapping.ColumnMappings.Add("MwSt", "MwSt") tableMapping.ColumnMappings.Add("Bruttoumsatz", "Bruttoumsatz") tableMapping.ColumnMappings.Add("Währung", "Währung") tableMapping.ColumnMappings.Add("Rechnungen", "Rechnungen") tableMapping.ColumnMappings.Add("Gutschriften", "Gutschriften") tableMapping.ColumnMappings.Add("Datum", "Datum") tableMapping.ColumnMappings.Add("Nummer", "Nummer") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblKundenumsatz] WHERE (([KundenNr] = @Original_KundenNr) AND "& _ "([Firma_ID] = @Original_Firma_ID) AND ([Jahr] = @Original_Jahr) AND ([Währung] ="& _ " @Original_Währung) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Jahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Jahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Währung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblKundenumsatz] ([KundenNr], [Firma_ID], [Jahr], [steuerpflic"& _ "htig], [steuerfrei], [Nettoumsatz], [MwSt], [Bruttoumsatz], [Währung], [Rechnung"& _ "en], [Gutschriften], [Datum], [Nummer]) VALUES (@KundenNr, @Firma_ID, @Jahr, @st"& _ "euerpflichtig, @steuerfrei, @Nettoumsatz, @MwSt, @Bruttoumsatz, @Währung, @Rechn"& _ "ungen, @Gutschriften, @Datum, @Nummer);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT KundenNr, Firma_ID, Jahr, steuer"& _ "pflichtig, steuerfrei, Nettoumsatz, MwSt, Bruttoumsatz, Währung, Rechnungen, Gut"& _ "schriften, Datum, Nummer, SSMA_TimeStamp FROM tblKundenumsatz WHERE (Firma_ID = "& _ "@Firma_ID) AND (Jahr = @Jahr) AND (KundenNr = @KundenNr) AND (Währung = @Währung"& _ ")" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Jahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Jahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@steuerpflichtig", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "steuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@steuerfrei", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "steuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nettoumsatz", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nettoumsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MwSt", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MwSt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bruttoumsatz", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bruttoumsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungen", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gutschriften", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gutschriften", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer", 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].[tblKundenumsatz] SET [KundenNr] = @KundenNr, [Firma_ID] = @Firma_ID"& _ ", [Jahr] = @Jahr, [steuerpflichtig] = @steuerpflichtig, [steuerfrei] = @steuerfr"& _ "ei, [Nettoumsatz] = @Nettoumsatz, [MwSt] = @MwSt, [Bruttoumsatz] = @Bruttoumsatz"& _ ", [Währung] = @Währung, [Rechnungen] = @Rechnungen, [Gutschriften] = @Gutschrift"& _ "en, [Datum] = @Datum, [Nummer] = @Nummer WHERE (([KundenNr] = @Original_KundenNr"& _ ") AND ([Firma_ID] = @Original_Firma_ID) AND ([Jahr] = @Original_Jahr) AND ([Währ"& _ "ung] = @Original_Währung) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT KundenNr, Firma_ID, Jahr, steuerpflichtig, steuerfrei, Nettoumsatz, MwSt, "& _ "Bruttoumsatz, Währung, Rechnungen, Gutschriften, Datum, Nummer, SSMA_TimeStamp F"& _ "ROM tblKundenumsatz WHERE (Firma_ID = @Firma_ID) AND (Jahr = @Jahr) AND (KundenN"& _ "r = @KundenNr) AND (Währung = @Währung)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Jahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Jahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@steuerpflichtig", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "steuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@steuerfrei", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "steuerfrei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nettoumsatz", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nettoumsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MwSt", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MwSt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bruttoumsatz", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bruttoumsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungen", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gutschriften", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gutschriften", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Jahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Jahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Währung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KundenNr, Firma_ID, Jahr, steuerpflichtig, steuerfrei, Nettoumsatz, MwSt, "& _ "Bruttoumsatz, Währung, Rechnungen, Gutschriften, Datum, Nummer, SSMA_TimeStamp F"& _ "ROM dbo.tblKundenumsatz" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenumsatzDataTable) 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 VERAGDataSet.tblKundenumsatzDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenumsatzDataTable = New VERAGDataSet.tblKundenumsatzDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenumsatzDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenumsatz") 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_KundenNr As Integer, ByVal Original_Firma_ID As Short, ByVal Original_Jahr As Short, ByVal Original_Währung As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Firma_ID,Short) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Jahr,Short) If (Original_Währung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Währung") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Währung,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 KundenNr As Integer, ByVal Firma_ID As Short, ByVal Jahr As Short, ByVal steuerpflichtig As Global.System.Nullable(Of Decimal), ByVal steuerfrei As Global.System.Nullable(Of Decimal), ByVal Nettoumsatz As Global.System.Nullable(Of Decimal), ByVal MwSt As Global.System.Nullable(Of Decimal), ByVal Bruttoumsatz As Global.System.Nullable(Of Decimal), ByVal Währung As String, ByVal Rechnungen As Global.System.Nullable(Of Double), ByVal Gutschriften As Global.System.Nullable(Of Double), ByVal Datum As Global.System.Nullable(Of Date), ByVal Nummer As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Firma_ID,Short) Me.Adapter.InsertCommand.Parameters(2).Value = CType(Jahr,Short) If (steuerpflichtig.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(steuerpflichtig.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (steuerfrei.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(steuerfrei.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Nettoumsatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Nettoumsatz.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (MwSt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(MwSt.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Bruttoumsatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Bruttoumsatz.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Währung Is Nothing) Then Throw New Global.System.ArgumentNullException("Währung") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Währung,String) End If If (Rechnungen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Rechnungen.Value,Double) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Gutschriften.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Gutschriften.Value,Double) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Nummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(Nummer.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).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 KundenNr As Integer, _ ByVal Firma_ID As Short, _ ByVal Jahr As Short, _ ByVal steuerpflichtig As Global.System.Nullable(Of Decimal), _ ByVal steuerfrei As Global.System.Nullable(Of Decimal), _ ByVal Nettoumsatz As Global.System.Nullable(Of Decimal), _ ByVal MwSt As Global.System.Nullable(Of Decimal), _ ByVal Bruttoumsatz As Global.System.Nullable(Of Decimal), _ ByVal Währung As String, _ ByVal Rechnungen As Global.System.Nullable(Of Double), _ ByVal Gutschriften As Global.System.Nullable(Of Double), _ ByVal Datum As Global.System.Nullable(Of Date), _ ByVal Nummer As Global.System.Nullable(Of Integer), _ ByVal Original_KundenNr As Integer, _ ByVal Original_Firma_ID As Short, _ ByVal Original_Jahr As Short, _ ByVal Original_Währung As String, _ ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Firma_ID,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Jahr,Short) If (steuerpflichtig.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(steuerpflichtig.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (steuerfrei.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(steuerfrei.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Nettoumsatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Nettoumsatz.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (MwSt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(MwSt.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Bruttoumsatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Bruttoumsatz.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Währung Is Nothing) Then Throw New Global.System.ArgumentNullException("Währung") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Währung,String) End If If (Rechnungen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Rechnungen.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Gutschriften.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Gutschriften.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Nummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Nummer.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Firma_ID,Short) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Jahr,Short) If (Original_Währung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Währung") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Währung,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 steuerpflichtig As Global.System.Nullable(Of Decimal), ByVal steuerfrei As Global.System.Nullable(Of Decimal), ByVal Nettoumsatz As Global.System.Nullable(Of Decimal), ByVal MwSt As Global.System.Nullable(Of Decimal), ByVal Bruttoumsatz As Global.System.Nullable(Of Decimal), ByVal Rechnungen As Global.System.Nullable(Of Double), ByVal Gutschriften As Global.System.Nullable(Of Double), ByVal Datum As Global.System.Nullable(Of Date), ByVal Nummer As Global.System.Nullable(Of Integer), ByVal Original_KundenNr As Integer, ByVal Original_Firma_ID As Short, ByVal Original_Jahr As Short, ByVal Original_Währung As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_KundenNr, Original_Firma_ID, Original_Jahr, steuerpflichtig, steuerfrei, Nettoumsatz, MwSt, Bruttoumsatz, Original_Währung, Rechnungen, Gutschriften, Datum, Nummer, Original_KundenNr, Original_Firma_ID, Original_Jahr, Original_Währung, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenVermerkeTableAdapter 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 = "tblKundenVermerke" tableMapping.ColumnMappings.Add("kvm_id", "kvm_id") tableMapping.ColumnMappings.Add("kvm_KundenNr", "kvm_KundenNr") tableMapping.ColumnMappings.Add("kvm_art", "kvm_art") tableMapping.ColumnMappings.Add("kvm_datum", "kvm_datum") tableMapping.ColumnMappings.Add("kvm_text", "kvm_text") tableMapping.ColumnMappings.Add("kvm_sbId", "kvm_sbId") tableMapping.ColumnMappings.Add("kvm_sb", "kvm_sb") 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].[tblKundenVermerke] WHERE (([kvm_id] = @Original_kvm_id) AND (["& _ "kvm_KundenNr] = @Original_kvm_KundenNr) AND ([kvm_art] = @Original_kvm_art) AND "& _ "([kvm_datum] = @Original_kvm_datum) AND ([kvm_text] = @Original_kvm_text) AND (["& _ "kvm_sbId] = @Original_kvm_sbId) AND ([kvm_sb] = @Original_kvm_sb))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_sbId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_sbId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_sb", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_sb", 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].[tblKundenVermerke] ([kvm_KundenNr], [kvm_art], [kvm_datum], [k"& _ "vm_text], [kvm_sbId], [kvm_sb]) VALUES (@kvm_KundenNr, @kvm_art, @kvm_datum, @kv"& _ "m_text, @kvm_sbId, @kvm_sb);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kvm_id, kvm_KundenNr, kvm_art, kvm_datum, k"& _ "vm_text, kvm_sbId, kvm_sb FROM tblKundenVermerke WHERE (kvm_id = SCOPE_IDENTITY("& _ "))" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_sbId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_sbId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_sb", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_sb", 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].[tblKundenVermerke] SET [kvm_KundenNr] = @kvm_KundenNr, [kvm_art] = "& _ "@kvm_art, [kvm_datum] = @kvm_datum, [kvm_text] = @kvm_text, [kvm_sbId] = @kvm_sb"& _ "Id, [kvm_sb] = @kvm_sb WHERE (([kvm_id] = @Original_kvm_id) AND ([kvm_KundenNr] "& _ "= @Original_kvm_KundenNr) AND ([kvm_art] = @Original_kvm_art) AND ([kvm_datum] ="& _ " @Original_kvm_datum) AND ([kvm_text] = @Original_kvm_text) AND ([kvm_sbId] = @O"& _ "riginal_kvm_sbId) AND ([kvm_sb] = @Original_kvm_sb));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kvm_id, kvm_Kunden"& _ "Nr, kvm_art, kvm_datum, kvm_text, kvm_sbId, kvm_sb FROM tblKundenVermerke WHERE "& _ "(kvm_id = @kvm_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_sbId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_sbId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_sb", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_sb", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_text", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_sbId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_sbId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kvm_sb", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_sb", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kvm_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "kvm_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kvm_id, kvm_KundenNr, kvm_art, kvm_datum, kvm_text, kvm_sbId, kvm_sb FROM "& _ "dbo.tblKundenVermerke" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenVermerkeDataTable) 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 VERAGDataSet.tblKundenVermerkeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenVermerkeDataTable = New VERAGDataSet.tblKundenVermerkeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenVermerkeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenVermerke") 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_kvm_id As Integer, ByVal Original_kvm_KundenNr As Integer, ByVal Original_kvm_art As String, ByVal Original_kvm_datum As Date, ByVal Original_kvm_text As String, ByVal Original_kvm_sbId As Integer, ByVal Original_kvm_sb As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kvm_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_kvm_KundenNr,Integer) If (Original_kvm_art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kvm_art") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_kvm_art,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_kvm_datum,Date) If (Original_kvm_text Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kvm_text") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_kvm_text,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_kvm_sbId,Integer) If (Original_kvm_sb Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kvm_sb") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_kvm_sb,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 kvm_KundenNr As Integer, ByVal kvm_art As String, ByVal kvm_datum As Date, ByVal kvm_text As String, ByVal kvm_sbId As Integer, ByVal kvm_sb As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(kvm_KundenNr,Integer) If (kvm_art Is Nothing) Then Throw New Global.System.ArgumentNullException("kvm_art") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(kvm_art,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(kvm_datum,Date) If (kvm_text Is Nothing) Then Throw New Global.System.ArgumentNullException("kvm_text") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(kvm_text,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(kvm_sbId,Integer) If (kvm_sb Is Nothing) Then Throw New Global.System.ArgumentNullException("kvm_sb") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(kvm_sb,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 kvm_KundenNr As Integer, ByVal kvm_art As String, ByVal kvm_datum As Date, ByVal kvm_text As String, ByVal kvm_sbId As Integer, ByVal kvm_sb As String, ByVal Original_kvm_id As Integer, ByVal Original_kvm_KundenNr As Integer, ByVal Original_kvm_art As String, ByVal Original_kvm_datum As Date, ByVal Original_kvm_text As String, ByVal Original_kvm_sbId As Integer, ByVal Original_kvm_sb As String, ByVal kvm_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kvm_KundenNr,Integer) If (kvm_art Is Nothing) Then Throw New Global.System.ArgumentNullException("kvm_art") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(kvm_art,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(kvm_datum,Date) If (kvm_text Is Nothing) Then Throw New Global.System.ArgumentNullException("kvm_text") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(kvm_text,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(kvm_sbId,Integer) If (kvm_sb Is Nothing) Then Throw New Global.System.ArgumentNullException("kvm_sb") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(kvm_sb,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_kvm_id,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_kvm_KundenNr,Integer) If (Original_kvm_art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kvm_art") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_kvm_art,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_kvm_datum,Date) If (Original_kvm_text Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kvm_text") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_kvm_text,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_kvm_sbId,Integer) If (Original_kvm_sb Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kvm_sb") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_kvm_sb,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(kvm_id,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 kvm_KundenNr As Integer, ByVal kvm_art As String, ByVal kvm_datum As Date, ByVal kvm_text As String, ByVal kvm_sbId As Integer, ByVal kvm_sb As String, ByVal Original_kvm_id As Integer, ByVal Original_kvm_KundenNr As Integer, ByVal Original_kvm_art As String, ByVal Original_kvm_datum As Date, ByVal Original_kvm_text As String, ByVal Original_kvm_sbId As Integer, ByVal Original_kvm_sb As String) As Integer Return Me.Update(kvm_KundenNr, kvm_art, kvm_datum, kvm_text, kvm_sbId, kvm_sb, Original_kvm_id, Original_kvm_KundenNr, Original_kvm_art, Original_kvm_datum, Original_kvm_text, Original_kvm_sbId, Original_kvm_sb, Original_kvm_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenVertraegeTableAdapter 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 = "tblKundenVertraege" tableMapping.ColumnMappings.Add("kv_Id", "kv_Id") tableMapping.ColumnMappings.Add("kv_KundenNr", "kv_KundenNr") tableMapping.ColumnMappings.Add("kv_erhalten_Datum", "kv_erhalten_Datum") tableMapping.ColumnMappings.Add("kv_vertragArtId", "kv_vertragArtId") tableMapping.ColumnMappings.Add("kv_Info", "kv_Info") tableMapping.ColumnMappings.Add("kv_datenarchivId", "kv_datenarchivId") tableMapping.ColumnMappings.Add("kv_gueltig", "kv_gueltig") 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].[tblKundenVertraege] WHERE (([kv_Id] = @Original_kv_Id) AND ([k"& _ "v_KundenNr] = @Original_kv_KundenNr) AND ([kv_erhalten_Datum] = @Original_kv_erh"& _ "alten_Datum) AND ([kv_vertragArtId] = @Original_kv_vertragArtId) AND ((@IsNull_k"& _ "v_datenarchivId = 1 AND [kv_datenarchivId] IS NULL) OR ([kv_datenarchivId] = @Or"& _ "iginal_kv_datenarchivId)) AND ([kv_gueltig] = @Original_kv_gueltig))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_erhalten_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_vertragArtId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_vertragArtId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kv_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_datenarchivId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_datenarchivId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_gueltig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_gueltig", 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].[tblKundenVertraege] ([kv_KundenNr], [kv_erhalten_Datum], [kv_v"& _ "ertragArtId], [kv_Info], [kv_datenarchivId], [kv_gueltig]) VALUES (@kv_KundenNr,"& _ " @kv_erhalten_Datum, @kv_vertragArtId, @kv_Info, @kv_datenarchivId, @kv_gueltig)"& _ ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kv_Id, kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId, kv_Info, kv_da"& _ "tenarchivId, kv_gueltig FROM tblKundenVertraege WHERE (kv_Id = SCOPE_IDENTITY())"& _ "" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_erhalten_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_vertragArtId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_vertragArtId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_Info", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_datenarchivId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_gueltig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_gueltig", 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].[tblKundenVertraege] SET [kv_KundenNr] = @kv_KundenNr, [kv_erhalten_"& _ "Datum] = @kv_erhalten_Datum, [kv_vertragArtId] = @kv_vertragArtId, [kv_Info] = @"& _ "kv_Info, [kv_datenarchivId] = @kv_datenarchivId, [kv_gueltig] = @kv_gueltig WHER"& _ "E (([kv_Id] = @Original_kv_Id) AND ([kv_KundenNr] = @Original_kv_KundenNr) AND ("& _ "[kv_erhalten_Datum] = @Original_kv_erhalten_Datum) AND ([kv_vertragArtId] = @Ori"& _ "ginal_kv_vertragArtId) AND ((@IsNull_kv_datenarchivId = 1 AND [kv_datenarchivId]"& _ " IS NULL) OR ([kv_datenarchivId] = @Original_kv_datenarchivId)) AND ([kv_gueltig"& _ "] = @Original_kv_gueltig));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kv_Id, kv_KundenNr, kv_erhalten_Datum, kv_ve"& _ "rtragArtId, kv_Info, kv_datenarchivId, kv_gueltig FROM tblKundenVertraege WHERE "& _ "(kv_Id = @kv_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_erhalten_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_vertragArtId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_vertragArtId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_Info", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_datenarchivId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_gueltig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_gueltig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_erhalten_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_vertragArtId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_vertragArtId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kv_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_datenarchivId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_datenarchivId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kv_gueltig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_gueltig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kv_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "kv_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kv_Id, kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId, kv_Info, kv_datena"& _ "rchivId, kv_gueltig FROM dbo.tblKundenVertraege" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenVertraegeDataTable) 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 VERAGDataSet.tblKundenVertraegeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenVertraegeDataTable = New VERAGDataSet.tblKundenVertraegeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenVertraegeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenVertraege") 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_kv_Id As Integer, ByVal Original_kv_KundenNr As Integer, ByVal Original_kv_erhalten_Datum As Date, ByVal Original_kv_vertragArtId As Integer, ByVal Original_kv_datenarchivId As Global.System.Nullable(Of Integer), ByVal Original_kv_gueltig As Boolean) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kv_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_kv_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_kv_erhalten_Datum,Date) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_kv_vertragArtId,Integer) If (Original_kv_datenarchivId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_kv_datenarchivId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_kv_gueltig,Boolean) 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 kv_KundenNr As Integer, ByVal kv_erhalten_Datum As Date, ByVal kv_vertragArtId As Integer, ByVal kv_Info As String, ByVal kv_datenarchivId As Global.System.Nullable(Of Integer), ByVal kv_gueltig As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(kv_KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(kv_erhalten_Datum,Date) Me.Adapter.InsertCommand.Parameters(2).Value = CType(kv_vertragArtId,Integer) If (kv_Info Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(kv_Info,String) End If If (kv_datenarchivId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(kv_datenarchivId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(kv_gueltig,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 kv_KundenNr As Integer, ByVal kv_erhalten_Datum As Date, ByVal kv_vertragArtId As Integer, ByVal kv_Info As String, ByVal kv_datenarchivId As Global.System.Nullable(Of Integer), ByVal kv_gueltig As Boolean, ByVal Original_kv_Id As Integer, ByVal Original_kv_KundenNr As Integer, ByVal Original_kv_erhalten_Datum As Date, ByVal Original_kv_vertragArtId As Integer, ByVal Original_kv_datenarchivId As Global.System.Nullable(Of Integer), ByVal Original_kv_gueltig As Boolean, ByVal kv_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kv_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(kv_erhalten_Datum,Date) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(kv_vertragArtId,Integer) If (kv_Info Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(kv_Info,String) End If If (kv_datenarchivId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(kv_datenarchivId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(kv_gueltig,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_kv_Id,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_kv_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_kv_erhalten_Datum,Date) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_kv_vertragArtId,Integer) If (Original_kv_datenarchivId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_kv_datenarchivId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_kv_gueltig,Boolean) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(kv_Id,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 kv_KundenNr As Integer, ByVal kv_erhalten_Datum As Date, ByVal kv_vertragArtId As Integer, ByVal kv_Info As String, ByVal kv_datenarchivId As Global.System.Nullable(Of Integer), ByVal kv_gueltig As Boolean, ByVal Original_kv_Id As Integer, ByVal Original_kv_KundenNr As Integer, ByVal Original_kv_erhalten_Datum As Date, ByVal Original_kv_vertragArtId As Integer, ByVal Original_kv_datenarchivId As Global.System.Nullable(Of Integer), ByVal Original_kv_gueltig As Boolean) As Integer Return Me.Update(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId, kv_Info, kv_datenarchivId, kv_gueltig, Original_kv_Id, Original_kv_KundenNr, Original_kv_erhalten_Datum, Original_kv_vertragArtId, Original_kv_datenarchivId, Original_kv_gueltig, Original_kv_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenVertraegeArtenTableAdapter 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 = "tblKundenVertraegeArten" tableMapping.ColumnMappings.Add("kva_Id", "kva_Id") tableMapping.ColumnMappings.Add("kva_Bezeichnung", "kva_Bezeichnung") 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].[tblKundenVertraegeArten] WHERE (([kva_Id] = @Original_kva_Id) "& _ "AND ([kva_Bezeichnung] = @Original_kva_Bezeichnung))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kva_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kva_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kva_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kva_Bezeichnung", 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].[tblKundenVertraegeArten] ([kva_Bezeichnung]) VALUES (@kva_Beze"& _ "ichnung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kva_Id, kva_Bezeichnung FROM tblKundenVertraegeArten WHERE (kv"& _ "a_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kva_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kva_Bezeichnung", 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].[tblKundenVertraegeArten] SET [kva_Bezeichnung] = @kva_Bezeichnung W"& _ "HERE (([kva_Id] = @Original_kva_Id) AND ([kva_Bezeichnung] = @Original_kva_Bezei"& _ "chnung));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kva_Id, kva_Bezeichnung FROM tblKundenVertraegeArten WHERE (kv"& _ "a_Id = @kva_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kva_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kva_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kva_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kva_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kva_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kva_Bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kva_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "kva_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kva_Id, kva_Bezeichnung FROM dbo.tblKundenVertraegeArten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenVertraegeArtenDataTable) 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 VERAGDataSet.tblKundenVertraegeArtenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenVertraegeArtenDataTable = New VERAGDataSet.tblKundenVertraegeArtenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenVertraegeArtenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenVertraegeArten") 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_kva_Id As Integer, ByVal Original_kva_Bezeichnung As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kva_Id,Integer) If (Original_kva_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kva_Bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_kva_Bezeichnung,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 kva_Bezeichnung As String) As Integer If (kva_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("kva_Bezeichnung") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(kva_Bezeichnung,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 kva_Bezeichnung As String, ByVal Original_kva_Id As Integer, ByVal Original_kva_Bezeichnung As String, ByVal kva_Id As Integer) As Integer If (kva_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("kva_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kva_Bezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_kva_Id,Integer) If (Original_kva_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kva_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_kva_Bezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(kva_Id,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 kva_Bezeichnung As String, ByVal Original_kva_Id As Integer, ByVal Original_kva_Bezeichnung As String) As Integer Return Me.Update(kva_Bezeichnung, Original_kva_Id, Original_kva_Bezeichnung, Original_kva_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenVollmachtenTableAdapter 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 = "tblKundenVollmachten" tableMapping.ColumnMappings.Add("kdvm_Id", "kdvm_Id") tableMapping.ColumnMappings.Add("kdvm_KundenNr", "kdvm_KundenNr") tableMapping.ColumnMappings.Add("kdvm_kdvmaId", "kdvm_kdvmaId") tableMapping.ColumnMappings.Add("kdvm_erhalten", "kdvm_erhalten") tableMapping.ColumnMappings.Add("kdvm_erhalten_Datum", "kdvm_erhalten_Datum") tableMapping.ColumnMappings.Add("kdvm_Info", "kdvm_Info") tableMapping.ColumnMappings.Add("kdvm_datenarchivId", "kdvm_datenarchivId") tableMapping.ColumnMappings.Add("kdvm_archiviert", "kdvm_archiviert") tableMapping.ColumnMappings.Add("kdvm_gueltig_bis", "kdvm_gueltig_bis") tableMapping.ColumnMappings.Add("kdvm_gueltig_ab", "kdvm_gueltig_ab") tableMapping.ColumnMappings.Add("kdvm_vermerk", "kdvm_vermerk") tableMapping.ColumnMappings.Add("kdvm_geloescht", "kdvm_geloescht") tableMapping.ColumnMappings.Add("kdvm_emailId", "kdvm_emailId") 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].[tblKundenVollmachten] WHERE (([kdvm_Id] = @Original_kdvm_Id) A"& _ "ND ((@IsNull_kdvm_KundenNr = 1 AND [kdvm_KundenNr] IS NULL) OR ([kdvm_KundenNr] "& _ "= @Original_kdvm_KundenNr)) AND ((@IsNull_kdvm_kdvmaId = 1 AND [kdvm_kdvmaId] IS"& _ " NULL) OR ([kdvm_kdvmaId] = @Original_kdvm_kdvmaId)) AND ([kdvm_erhalten] = @Ori"& _ "ginal_kdvm_erhalten) AND ((@IsNull_kdvm_erhalten_Datum = 1 AND [kdvm_erhalten_Da"& _ "tum] IS NULL) OR ([kdvm_erhalten_Datum] = @Original_kdvm_erhalten_Datum)) AND (("& _ "@IsNull_kdvm_datenarchivId = 1 AND [kdvm_datenarchivId] IS NULL) OR ([kdvm_daten"& _ "archivId] = @Original_kdvm_datenarchivId)) AND ([kdvm_archiviert] = @Original_kd"& _ "vm_archiviert) AND ((@IsNull_kdvm_gueltig_bis = 1 AND [kdvm_gueltig_bis] IS NULL"& _ ") OR ([kdvm_gueltig_bis] = @Original_kdvm_gueltig_bis)) AND ((@IsNull_kdvm_guelt"& _ "ig_ab = 1 AND [kdvm_gueltig_ab] IS NULL) OR ([kdvm_gueltig_ab] = @Original_kdvm_"& _ "gueltig_ab)) AND ([kdvm_geloescht] = @Original_kdvm_geloescht) AND ((@IsNull_kdv"& _ "m_emailId = 1 AND [kdvm_emailId] IS NULL) OR ([kdvm_emailId] = @Original_kdvm_em"& _ "ailId)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_kdvmaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_kdvmaId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_kdvmaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_kdvmaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_erhalten", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_erhalten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_erhalten_Datum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_erhalten_Datum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_erhalten_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_datenarchivId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_datenarchivId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_archiviert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_archiviert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_gueltig_bis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_bis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_gueltig_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_bis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_gueltig_ab", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_ab", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_gueltig_ab", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_ab", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_geloescht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_geloescht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_emailId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_emailId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_emailId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_emailId", 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].[tblKundenVollmachten] ([kdvm_KundenNr], [kdvm_kdvmaId], [kdvm_"& _ "erhalten], [kdvm_erhalten_Datum], [kdvm_Info], [kdvm_datenarchivId], [kdvm_archi"& _ "viert], [kdvm_gueltig_bis], [kdvm_gueltig_ab], [kdvm_vermerk], [kdvm_geloescht],"& _ " [kdvm_emailId]) VALUES (@kdvm_KundenNr, @kdvm_kdvmaId, @kdvm_erhalten, @kdvm_er"& _ "halten_Datum, @kdvm_Info, @kdvm_datenarchivId, @kdvm_archiviert, @kdvm_gueltig_b"& _ "is, @kdvm_gueltig_ab, @kdvm_vermerk, @kdvm_geloescht, @kdvm_emailId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kd"& _ "vm_Id, kdvm_KundenNr, kdvm_kdvmaId, kdvm_erhalten, kdvm_erhalten_Datum, kdvm_Inf"& _ "o, kdvm_datenarchivId, kdvm_archiviert, kdvm_gueltig_bis, kdvm_gueltig_ab, kdvm_"& _ "vermerk, kdvm_geloescht, kdvm_emailId FROM tblKundenVollmachten WHERE (kdvm_Id ="& _ " SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_kdvmaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_kdvmaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_erhalten", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_erhalten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_erhalten_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_Info", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_datenarchivId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_archiviert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_archiviert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_gueltig_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_gueltig_ab", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_ab", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_geloescht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_geloescht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_emailId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_emailId", 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].[tblKundenVollmachten] SET [kdvm_KundenNr] = @kdvm_KundenNr, [kdvm_k"& _ "dvmaId] = @kdvm_kdvmaId, [kdvm_erhalten] = @kdvm_erhalten, [kdvm_erhalten_Datum]"& _ " = @kdvm_erhalten_Datum, [kdvm_Info] = @kdvm_Info, [kdvm_datenarchivId] = @kdvm_"& _ "datenarchivId, [kdvm_archiviert] = @kdvm_archiviert, [kdvm_gueltig_bis] = @kdvm_"& _ "gueltig_bis, [kdvm_gueltig_ab] = @kdvm_gueltig_ab, [kdvm_vermerk] = @kdvm_vermer"& _ "k, [kdvm_geloescht] = @kdvm_geloescht, [kdvm_emailId] = @kdvm_emailId WHERE (([k"& _ "dvm_Id] = @Original_kdvm_Id) AND ((@IsNull_kdvm_KundenNr = 1 AND [kdvm_KundenNr]"& _ " IS NULL) OR ([kdvm_KundenNr] = @Original_kdvm_KundenNr)) AND ((@IsNull_kdvm_kdv"& _ "maId = 1 AND [kdvm_kdvmaId] IS NULL) OR ([kdvm_kdvmaId] = @Original_kdvm_kdvmaId"& _ ")) AND ([kdvm_erhalten] = @Original_kdvm_erhalten) AND ((@IsNull_kdvm_erhalten_D"& _ "atum = 1 AND [kdvm_erhalten_Datum] IS NULL) OR ([kdvm_erhalten_Datum] = @Origina"& _ "l_kdvm_erhalten_Datum)) AND ((@IsNull_kdvm_datenarchivId = 1 AND [kdvm_datenarch"& _ "ivId] IS NULL) OR ([kdvm_datenarchivId] = @Original_kdvm_datenarchivId)) AND ([k"& _ "dvm_archiviert] = @Original_kdvm_archiviert) AND ((@IsNull_kdvm_gueltig_bis = 1 "& _ "AND [kdvm_gueltig_bis] IS NULL) OR ([kdvm_gueltig_bis] = @Original_kdvm_gueltig_"& _ "bis)) AND ((@IsNull_kdvm_gueltig_ab = 1 AND [kdvm_gueltig_ab] IS NULL) OR ([kdvm"& _ "_gueltig_ab] = @Original_kdvm_gueltig_ab)) AND ([kdvm_geloescht] = @Original_kdv"& _ "m_geloescht) AND ((@IsNull_kdvm_emailId = 1 AND [kdvm_emailId] IS NULL) OR ([kdv"& _ "m_emailId] = @Original_kdvm_emailId)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kdvm_Id, kdvm_KundenNr, kdvm_kdv"& _ "maId, kdvm_erhalten, kdvm_erhalten_Datum, kdvm_Info, kdvm_datenarchivId, kdvm_ar"& _ "chiviert, kdvm_gueltig_bis, kdvm_gueltig_ab, kdvm_vermerk, kdvm_geloescht, kdvm_"& _ "emailId FROM tblKundenVollmachten WHERE (kdvm_Id = @kdvm_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_kdvmaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_kdvmaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_erhalten", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_erhalten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_erhalten_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_Info", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_datenarchivId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_archiviert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_archiviert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_gueltig_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_gueltig_ab", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_ab", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_geloescht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_geloescht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_emailId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_emailId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_kdvmaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_kdvmaId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_kdvmaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_kdvmaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_erhalten", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_erhalten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_erhalten_Datum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_erhalten_Datum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_erhalten_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_erhalten_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_datenarchivId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_datenarchivId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_datenarchivId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_archiviert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_archiviert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_gueltig_bis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_bis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_gueltig_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_bis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_gueltig_ab", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_ab", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_gueltig_ab", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_gueltig_ab", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_geloescht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_geloescht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdvm_emailId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_emailId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvm_emailId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_emailId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvm_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvm_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kdvm_Id, kdvm_KundenNr, kdvm_kdvmaId, kdvm_erhalten, kdvm_erhalten_Datum, "& _ "kdvm_Info, kdvm_datenarchivId, kdvm_archiviert, kdvm_gueltig_bis, kdvm_gueltig_a"& _ "b, kdvm_vermerk, kdvm_geloescht, kdvm_emailId FROM dbo.tblKundenVollmachten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenVollmachtenDataTable) 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 VERAGDataSet.tblKundenVollmachtenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenVollmachtenDataTable = New VERAGDataSet.tblKundenVollmachtenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenVollmachtenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenVollmachten") 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_kdvm_Id As Integer, ByVal Original_kdvm_KundenNr As Global.System.Nullable(Of Integer), ByVal Original_kdvm_kdvmaId As Global.System.Nullable(Of Integer), ByVal Original_kdvm_erhalten As Boolean, ByVal Original_kdvm_erhalten_Datum As Global.System.Nullable(Of Date), ByVal Original_kdvm_datenarchivId As Global.System.Nullable(Of Integer), ByVal Original_kdvm_archiviert As Boolean, ByVal Original_kdvm_gueltig_bis As Global.System.Nullable(Of Date), ByVal Original_kdvm_gueltig_ab As Global.System.Nullable(Of Date), ByVal Original_kdvm_geloescht As Boolean, ByVal Original_kdvm_emailId As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kdvm_Id,Integer) If (Original_kdvm_KundenNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_kdvm_KundenNr.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_kdvm_kdvmaId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_kdvm_kdvmaId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_kdvm_erhalten,Boolean) If (Original_kdvm_erhalten_Datum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_kdvm_erhalten_Datum.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_kdvm_datenarchivId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_kdvm_datenarchivId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_kdvm_archiviert,Boolean) If (Original_kdvm_gueltig_bis.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_kdvm_gueltig_bis.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_kdvm_gueltig_ab.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_kdvm_gueltig_ab.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_kdvm_geloescht,Boolean) If (Original_kdvm_emailId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_kdvm_emailId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).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 kdvm_KundenNr As Global.System.Nullable(Of Integer), ByVal kdvm_kdvmaId As Global.System.Nullable(Of Integer), ByVal kdvm_erhalten As Boolean, ByVal kdvm_erhalten_Datum As Global.System.Nullable(Of Date), ByVal kdvm_Info As String, ByVal kdvm_datenarchivId As Global.System.Nullable(Of Integer), ByVal kdvm_archiviert As Boolean, ByVal kdvm_gueltig_bis As Global.System.Nullable(Of Date), ByVal kdvm_gueltig_ab As Global.System.Nullable(Of Date), ByVal kdvm_vermerk As String, ByVal kdvm_geloescht As Boolean, ByVal kdvm_emailId As Global.System.Nullable(Of Integer)) As Integer If (kdvm_KundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(kdvm_KundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (kdvm_kdvmaId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(kdvm_kdvmaId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(kdvm_erhalten,Boolean) If (kdvm_erhalten_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(kdvm_erhalten_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (kdvm_Info Is Nothing) Then Throw New Global.System.ArgumentNullException("kdvm_Info") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(kdvm_Info,String) End If If (kdvm_datenarchivId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(kdvm_datenarchivId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(kdvm_archiviert,Boolean) If (kdvm_gueltig_bis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(kdvm_gueltig_bis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (kdvm_gueltig_ab.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(kdvm_gueltig_ab.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (kdvm_vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(kdvm_vermerk,String) End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(kdvm_geloescht,Boolean) If (kdvm_emailId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(kdvm_emailId.Value,Integer) 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 kdvm_KundenNr As Global.System.Nullable(Of Integer), _ ByVal kdvm_kdvmaId As Global.System.Nullable(Of Integer), _ ByVal kdvm_erhalten As Boolean, _ ByVal kdvm_erhalten_Datum As Global.System.Nullable(Of Date), _ ByVal kdvm_Info As String, _ ByVal kdvm_datenarchivId As Global.System.Nullable(Of Integer), _ ByVal kdvm_archiviert As Boolean, _ ByVal kdvm_gueltig_bis As Global.System.Nullable(Of Date), _ ByVal kdvm_gueltig_ab As Global.System.Nullable(Of Date), _ ByVal kdvm_vermerk As String, _ ByVal kdvm_geloescht As Boolean, _ ByVal kdvm_emailId As Global.System.Nullable(Of Integer), _ ByVal Original_kdvm_Id As Integer, _ ByVal Original_kdvm_KundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_kdvm_kdvmaId As Global.System.Nullable(Of Integer), _ ByVal Original_kdvm_erhalten As Boolean, _ ByVal Original_kdvm_erhalten_Datum As Global.System.Nullable(Of Date), _ ByVal Original_kdvm_datenarchivId As Global.System.Nullable(Of Integer), _ ByVal Original_kdvm_archiviert As Boolean, _ ByVal Original_kdvm_gueltig_bis As Global.System.Nullable(Of Date), _ ByVal Original_kdvm_gueltig_ab As Global.System.Nullable(Of Date), _ ByVal Original_kdvm_geloescht As Boolean, _ ByVal Original_kdvm_emailId As Global.System.Nullable(Of Integer), _ ByVal kdvm_Id As Integer) As Integer If (kdvm_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kdvm_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (kdvm_kdvmaId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(kdvm_kdvmaId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(kdvm_erhalten,Boolean) If (kdvm_erhalten_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(kdvm_erhalten_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (kdvm_Info Is Nothing) Then Throw New Global.System.ArgumentNullException("kdvm_Info") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(kdvm_Info,String) End If If (kdvm_datenarchivId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(kdvm_datenarchivId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(kdvm_archiviert,Boolean) If (kdvm_gueltig_bis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(kdvm_gueltig_bis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (kdvm_gueltig_ab.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(kdvm_gueltig_ab.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (kdvm_vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(kdvm_vermerk,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(kdvm_geloescht,Boolean) If (kdvm_emailId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(kdvm_emailId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_kdvm_Id,Integer) If (Original_kdvm_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_kdvm_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_kdvm_kdvmaId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_kdvm_kdvmaId.Value,Integer) 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(Original_kdvm_erhalten,Boolean) If (Original_kdvm_erhalten_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_kdvm_erhalten_Datum.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_kdvm_datenarchivId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_kdvm_datenarchivId.Value,Integer) 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(Original_kdvm_archiviert,Boolean) If (Original_kdvm_gueltig_bis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_kdvm_gueltig_bis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_kdvm_gueltig_ab.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_kdvm_gueltig_ab.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_kdvm_geloescht,Boolean) If (Original_kdvm_emailId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_kdvm_emailId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(30).Value = CType(kdvm_Id,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 kdvm_KundenNr As Global.System.Nullable(Of Integer), _ ByVal kdvm_kdvmaId As Global.System.Nullable(Of Integer), _ ByVal kdvm_erhalten As Boolean, _ ByVal kdvm_erhalten_Datum As Global.System.Nullable(Of Date), _ ByVal kdvm_Info As String, _ ByVal kdvm_datenarchivId As Global.System.Nullable(Of Integer), _ ByVal kdvm_archiviert As Boolean, _ ByVal kdvm_gueltig_bis As Global.System.Nullable(Of Date), _ ByVal kdvm_gueltig_ab As Global.System.Nullable(Of Date), _ ByVal kdvm_vermerk As String, _ ByVal kdvm_geloescht As Boolean, _ ByVal kdvm_emailId As Global.System.Nullable(Of Integer), _ ByVal Original_kdvm_Id As Integer, _ ByVal Original_kdvm_KundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_kdvm_kdvmaId As Global.System.Nullable(Of Integer), _ ByVal Original_kdvm_erhalten As Boolean, _ ByVal Original_kdvm_erhalten_Datum As Global.System.Nullable(Of Date), _ ByVal Original_kdvm_datenarchivId As Global.System.Nullable(Of Integer), _ ByVal Original_kdvm_archiviert As Boolean, _ ByVal Original_kdvm_gueltig_bis As Global.System.Nullable(Of Date), _ ByVal Original_kdvm_gueltig_ab As Global.System.Nullable(Of Date), _ ByVal Original_kdvm_geloescht As Boolean, _ ByVal Original_kdvm_emailId As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(kdvm_KundenNr, kdvm_kdvmaId, kdvm_erhalten, kdvm_erhalten_Datum, kdvm_Info, kdvm_datenarchivId, kdvm_archiviert, kdvm_gueltig_bis, kdvm_gueltig_ab, kdvm_vermerk, kdvm_geloescht, kdvm_emailId, Original_kdvm_Id, Original_kdvm_KundenNr, Original_kdvm_kdvmaId, Original_kdvm_erhalten, Original_kdvm_erhalten_Datum, Original_kdvm_datenarchivId, Original_kdvm_archiviert, Original_kdvm_gueltig_bis, Original_kdvm_gueltig_ab, Original_kdvm_geloescht, Original_kdvm_emailId, Original_kdvm_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblKundenVollmachtenArtTableAdapter 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 = "tblKundenVollmachtenArt" tableMapping.ColumnMappings.Add("kdvma_Id", "kdvma_Id") tableMapping.ColumnMappings.Add("kdvma_Bezeichnung", "kdvma_Bezeichnung") tableMapping.ColumnMappings.Add("kdvma_Firma", "kdvma_Firma") tableMapping.ColumnMappings.Add("kdvma_visible", "kdvma_visible") 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].[tblKundenVollmachtenArt] WHERE (([kdvma_Id] = @Original_kdvma_"& _ "Id) AND ([kdvma_Firma] = @Original_kdvma_Firma) AND ([kdvma_visible] = @Original"& _ "_kdvma_visible))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvma_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvma_Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvma_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_visible", 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].[tblKundenVollmachtenArt] ([kdvma_Bezeichnung], [kdvma_Firma], "& _ "[kdvma_visible]) VALUES (@kdvma_Bezeichnung, @kdvma_Firma, @kdvma_visible);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ "ECT kdvma_Id, kdvma_Bezeichnung, kdvma_Firma, kdvma_visible FROM tblKundenVollma"& _ "chtenArt WHERE (kdvma_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvma_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvma_Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvma_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_visible", 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].[tblKundenVollmachtenArt] SET [kdvma_Bezeichnung] = @kdvma_Bezeichnu"& _ "ng, [kdvma_Firma] = @kdvma_Firma, [kdvma_visible] = @kdvma_visible WHERE (([kdvm"& _ "a_Id] = @Original_kdvma_Id) AND ([kdvma_Firma] = @Original_kdvma_Firma) AND ([kd"& _ "vma_visible] = @Original_kdvma_visible));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kdvma_Id, kdvma_Bezeichnung, k"& _ "dvma_Firma, kdvma_visible FROM tblKundenVollmachtenArt WHERE (kdvma_Id = @kdvma_"& _ "Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvma_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvma_Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvma_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_visible", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvma_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvma_Firma", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdvma_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_visible", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdvma_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "kdvma_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kdvma_Id, kdvma_Bezeichnung, kdvma_Firma, kdvma_visible FROM dbo.tblKunden"& _ "VollmachtenArt" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblKundenVollmachtenArtDataTable) 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 VERAGDataSet.tblKundenVollmachtenArtDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblKundenVollmachtenArtDataTable = New VERAGDataSet.tblKundenVollmachtenArtDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblKundenVollmachtenArtDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblKundenVollmachtenArt") 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_kdvma_Id As Integer, ByVal Original_kdvma_Firma As String, ByVal Original_kdvma_visible As Boolean) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kdvma_Id,Integer) If (Original_kdvma_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kdvma_Firma") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_kdvma_Firma,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_kdvma_visible,Boolean) 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 kdvma_Bezeichnung As String, ByVal kdvma_Firma As String, ByVal kdvma_visible As Boolean) As Integer If (kdvma_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("kdvma_Bezeichnung") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(kdvma_Bezeichnung,String) End If If (kdvma_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("kdvma_Firma") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(kdvma_Firma,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(kdvma_visible,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 kdvma_Bezeichnung As String, ByVal kdvma_Firma As String, ByVal kdvma_visible As Boolean, ByVal Original_kdvma_Id As Integer, ByVal Original_kdvma_Firma As String, ByVal Original_kdvma_visible As Boolean, ByVal kdvma_Id As Integer) As Integer If (kdvma_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("kdvma_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kdvma_Bezeichnung,String) End If If (kdvma_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("kdvma_Firma") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(kdvma_Firma,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(kdvma_visible,Boolean) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_kdvma_Id,Integer) If (Original_kdvma_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kdvma_Firma") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_kdvma_Firma,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_kdvma_visible,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(kdvma_Id,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 kdvma_Bezeichnung As String, ByVal kdvma_Firma As String, ByVal kdvma_visible As Boolean, ByVal Original_kdvma_Id As Integer, ByVal Original_kdvma_Firma As String, ByVal Original_kdvma_visible As Boolean) As Integer Return Me.Update(kdvma_Bezeichnung, kdvma_Firma, kdvma_visible, Original_kdvma_Id, Original_kdvma_Firma, Original_kdvma_visible, Original_kdvma_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblLogbuchTableAdapter 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 = "tblLogbuch" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("Computername", "Computername") tableMapping.ColumnMappings.Add("Benutzername", "Benutzername") tableMapping.ColumnMappings.Add("SwitchboardID", "SwitchboardID") tableMapping.ColumnMappings.Add("ItemNumber", "ItemNumber") tableMapping.ColumnMappings.Add("ItemText", "ItemText") tableMapping.ColumnMappings.Add("Command", "Command") tableMapping.ColumnMappings.Add("Argument", "Argument") tableMapping.ColumnMappings.Add("Programmversion", "Programmversion") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblLogbuch] WHERE (([ID] = @Original_ID) AND ((@IsNull_upsize_"& _ "ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblLogbuch] ([Zeitstempel], [Computername], [Benutzername], [S"& _ "witchboardID], [ItemNumber], [ItemText], [Command], [Argument], [Programmversion"& _ "]) VALUES (@Zeitstempel, @Computername, @Benutzername, @SwitchboardID, @ItemNumb"& _ "er, @ItemText, @Command, @Argument, @Programmversion);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Zeitstempel, "& _ "Computername, Benutzername, SwitchboardID, ItemNumber, ItemText, Command, Argume"& _ "nt, Programmversion, upsize_ts FROM tblLogbuch WHERE (ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SwitchboardID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SwitchboardID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemNumber", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemText", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Command", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Command", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Argument", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Argument", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Programmversion", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Programmversion", 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].[tblLogbuch] SET [Zeitstempel] = @Zeitstempel, [Computername] = @Com"& _ "putername, [Benutzername] = @Benutzername, [SwitchboardID] = @SwitchboardID, [It"& _ "emNumber] = @ItemNumber, [ItemText] = @ItemText, [Command] = @Command, [Argument"& _ "] = @Argument, [Programmversion] = @Programmversion WHERE (([ID] = @Original_ID)"& _ " AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Origina"& _ "l_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Zeitstempel, Computername, Benutzername, Switchboard"& _ "ID, ItemNumber, ItemText, Command, Argument, Programmversion, upsize_ts FROM tbl"& _ "Logbuch WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Benutzername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SwitchboardID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SwitchboardID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemNumber", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemText", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Command", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Command", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Argument", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Argument", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Programmversion", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Programmversion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, Zeitstempel, Computername, Benutzername, SwitchboardID, ItemNumber, It"& _ "emText, Command, Argument, Programmversion, upsize_ts FROM dbo.tblLogbuch" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblLogbuchDataTable) 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 VERAGDataSet.tblLogbuchDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblLogbuchDataTable = New VERAGDataSet.tblLogbuchDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblLogbuchDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblLogbuch") 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_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Zeitstempel As Date, ByVal Computername As String, ByVal Benutzername As String, ByVal SwitchboardID As Global.System.Nullable(Of Integer), ByVal ItemNumber As Global.System.Nullable(Of Short), ByVal ItemText As String, ByVal Command1 As Global.System.Nullable(Of Short), ByVal Argument As String, ByVal Programmversion As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Zeitstempel,Date) If (Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Computername") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Benutzername,String) End If If (SwitchboardID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(SwitchboardID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (ItemNumber.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(ItemNumber.Value,Short) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (ItemText Is Nothing) Then Throw New Global.System.ArgumentNullException("ItemText") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ItemText,String) End If If (Command1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Command1.Value,Short) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Argument Is Nothing) Then Throw New Global.System.ArgumentNullException("Argument") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Argument,String) End If If (Programmversion Is Nothing) Then Throw New Global.System.ArgumentNullException("Programmversion") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Programmversion,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 Zeitstempel As Date, ByVal Computername As String, ByVal Benutzername As String, ByVal SwitchboardID As Global.System.Nullable(Of Integer), ByVal ItemNumber As Global.System.Nullable(Of Short), ByVal ItemText As String, ByVal Command1 As Global.System.Nullable(Of Short), ByVal Argument As String, ByVal Programmversion As String, ByVal Original_ID As Integer, ByVal Original_upsize_ts() As Byte, ByVal ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Zeitstempel,Date) If (Computername Is Nothing) Then Throw New Global.System.ArgumentNullException("Computername") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Throw New Global.System.ArgumentNullException("Benutzername") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Benutzername,String) End If If (SwitchboardID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SwitchboardID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (ItemNumber.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ItemNumber.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (ItemText Is Nothing) Then Throw New Global.System.ArgumentNullException("ItemText") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ItemText,String) End If If (Command1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Command1.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Argument Is Nothing) Then Throw New Global.System.ArgumentNullException("Argument") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Argument,String) End If If (Programmversion Is Nothing) Then Throw New Global.System.ArgumentNullException("Programmversion") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Programmversion,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ID,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 Zeitstempel As Date, ByVal Computername As String, ByVal Benutzername As String, ByVal SwitchboardID As Global.System.Nullable(Of Integer), ByVal ItemNumber As Global.System.Nullable(Of Short), ByVal ItemText As String, ByVal Command1 As Global.System.Nullable(Of Short), ByVal Argument As String, ByVal Programmversion As String, ByVal Original_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Zeitstempel, Computername, Benutzername, SwitchboardID, ItemNumber, ItemText, Command1, Argument, Programmversion, Original_ID, Original_upsize_ts, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMandantTableAdapter 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 = "tblMandant" tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("MonatGJB", "MonatGJB") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblMandant] WHERE (([Mandant] = @Original_Mandant) AND ([Niede"& _ "rlassung] = @Original_Niederlassung) AND ([SSMA_TimeStamp] = @Original_SSMA_Time"& _ "Stamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblMandant] ([Mandant], [Niederlassung], [KundenNr], [MonatGJB"& _ "]) VALUES (@Mandant, @Niederlassung, @KundenNr, @MonatGJB);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Nie"& _ "derlassung, KundenNr, MonatGJB, SSMA_TimeStamp FROM tblMandant WHERE (Mandant = "& _ "@Mandant) AND (Niederlassung = @Niederlassung)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MonatGJB", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MonatGJB", 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].[tblMandant] SET [Mandant] = @Mandant, [Niederlassung] = @Niederlass"& _ "ung, [KundenNr] = @KundenNr, [MonatGJB] = @MonatGJB WHERE (([Mandant] = @Origina"& _ "l_Mandant) AND ([Niederlassung] = @Original_Niederlassung) AND ([SSMA_TimeStamp]"& _ " = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Mandant, Niederlassung, KundenNr, MonatGJ"& _ "B, SSMA_TimeStamp FROM tblMandant WHERE (Mandant = @Mandant) AND (Niederlassung "& _ "= @Niederlassung)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MonatGJB", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MonatGJB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Mandant, Niederlassung, KundenNr, MonatGJB, SSMA_TimeStamp FROM dbo.tblMan"& _ "dant" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMandantDataTable) 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 VERAGDataSet.tblMandantDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMandantDataTable = New VERAGDataSet.tblMandantDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMandantDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMandant") 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_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Niederlassung,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Mandant As String, ByVal Niederlassung As String, ByVal KundenNr As Integer, ByVal MonatGJB As Short) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(MonatGJB,Short) 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 Mandant As String, ByVal Niederlassung As String, ByVal KundenNr As Integer, ByVal MonatGJB As Short, ByVal Original_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MonatGJB,Short) If (Original_Mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Mandant,String) End If If (Original_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Niederlassung,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 KundenNr As Integer, ByVal MonatGJB As Short, ByVal Original_Mandant As String, ByVal Original_Niederlassung As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Mandant, Original_Niederlassung, KundenNr, MonatGJB, Original_Mandant, Original_Niederlassung, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMautIT_BelegartenTableAdapter 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 = "tblMautIT_Belegarten" tableMapping.ColumnMappings.Add("BelegartID", "BelegartID") tableMapping.ColumnMappings.Add("BelegartBez", "BelegartBez") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblMautIT_Belegarten] WHERE (([BelegartID] = @Original_Belegar"& _ "tID) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegartID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblMautIT_Belegarten] ([BelegartID], [BelegartBez]) VALUES (@B"& _ "elegartID, @BelegartBez);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BelegartID, BelegartBez, SSMA_TimeStamp FROM t"& _ "blMautIT_Belegarten WHERE (BelegartID = @BelegartID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartBez", 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].[tblMautIT_Belegarten] SET [BelegartID] = @BelegartID, [BelegartBez]"& _ " = @BelegartBez WHERE (([BelegartID] = @Original_BelegartID) AND ([SSMA_TimeStam"& _ "p] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BelegartID, BelegartBez, SSMA_TimeStamp"& _ " FROM tblMautIT_Belegarten WHERE (BelegartID = @BelegartID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BelegartID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 BelegartID, BelegartBez, SSMA_TimeStamp FROM dbo.tblMautIT_Belegarten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMautIT_BelegartenDataTable) 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 VERAGDataSet.tblMautIT_BelegartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMautIT_BelegartenDataTable = New VERAGDataSet.tblMautIT_BelegartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMautIT_BelegartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMautIT_Belegarten") 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_BelegartID As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_BelegartID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_BelegartID") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_BelegartID,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 BelegartID As String, ByVal BelegartBez As String) As Integer If (BelegartID Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartID") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(BelegartID,String) End If If (BelegartBez Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(BelegartBez,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 BelegartID As String, ByVal BelegartBez As String, ByVal Original_BelegartID As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (BelegartID Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartID") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BelegartID,String) End If If (BelegartBez Is Nothing) Then Throw New Global.System.ArgumentNullException("BelegartBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BelegartBez,String) End If If (Original_BelegartID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_BelegartID") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_BelegartID,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 BelegartBez As String, ByVal Original_BelegartID As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_BelegartID, BelegartBez, Original_BelegartID, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMautITArchivTableAdapter 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 = "tblMautITArchiv" tableMapping.ColumnMappings.Add("Dateiname", "Dateiname") tableMapping.ColumnMappings.Add("LfdNr", "LfdNr") tableMapping.ColumnMappings.Add("Code_Adressat_der_Rechnung", "Code_Adressat_der_Rechnung") tableMapping.ColumnMappings.Add("Code_Adressat_des_Kontoauszugs", "Code_Adressat_des_Kontoauszugs") tableMapping.ColumnMappings.Add("Art_der_Bewegung", "Art_der_Bewegung") tableMapping.ColumnMappings.Add("Datum_der_Bewegung", "Datum_der_Bewegung") tableMapping.ColumnMappings.Add("Uhrzeit_der_Bewegung", "Uhrzeit_der_Bewegung") tableMapping.ColumnMappings.Add("Ursprünglicher_Betrag_der_Bewegung", "Ursprünglicher_Betrag_der_Bewegung") tableMapping.ColumnMappings.Add("Nicht_mehrwertsteuerpflichtiger_Betrag", "Nicht_mehrwertsteuerpflichtiger_Betrag") tableMapping.ColumnMappings.Add("Betrag_mit_Preisnachlass_oder_Preisnachlass", "Betrag_mit_Preisnachlass_oder_Preisnachlass") tableMapping.ColumnMappings.Add("Form_des_Mediums", "Form_des_Mediums") tableMapping.ColumnMappings.Add("Beschreibung_Form_des_Mediums", "Beschreibung_Form_des_Mediums") tableMapping.ColumnMappings.Add("Kodierung_Medium", "Kodierung_Medium") tableMapping.ColumnMappings.Add("Beschreibung_der_Bewegung", "Beschreibung_der_Bewegung") tableMapping.ColumnMappings.Add("Gebührenklasse", "Gebührenklasse") tableMapping.ColumnMappings.Add("Verrechnungsdatum", "Verrechnungsdatum") tableMapping.ColumnMappings.Add("Zeichen_Betrag", "Zeichen_Betrag") tableMapping.ColumnMappings.Add("KfzKennzeichen", "KfzKennzeichen") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblMautITArchiv] WHERE (([Dateiname] = @Original_Dateiname) AN"& _ "D ([LfdNr] = @Original_LfdNr) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NUL"& _ "L) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LfdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblMautITArchiv] ([Dateiname], [LfdNr], [Code_Adressat_der_Rec"& _ "hnung], [Code_Adressat_des_Kontoauszugs], [Art_der_Bewegung], [Datum_der_Bewegun"& _ "g], [Uhrzeit_der_Bewegung], [Ursprünglicher_Betrag_der_Bewegung], [Nicht_mehrwer"& _ "tsteuerpflichtiger_Betrag], [Betrag_mit_Preisnachlass_oder_Preisnachlass], [Form"& _ "_des_Mediums], [Beschreibung_Form_des_Mediums], [Kodierung_Medium], [Beschreibun"& _ "g_der_Bewegung], [Gebührenklasse], [Verrechnungsdatum], [Zeichen_Betrag], [KfzKe"& _ "nnzeichen], [UStVAn_ID]) VALUES (@Dateiname, @LfdNr, @Code_Adressat_der_Rechnung"& _ ", @Code_Adressat_des_Kontoauszugs, @Art_der_Bewegung, @Datum_der_Bewegung, @Uhrz"& _ "eit_der_Bewegung, @Ursprünglicher_Betrag_der_Bewegung, @Nicht_mehrwertsteuerpfli"& _ "chtiger_Betrag, @Betrag_mit_Preisnachlass_oder_Preisnachlass, @Form_des_Mediums,"& _ " @Beschreibung_Form_des_Mediums, @Kodierung_Medium, @Beschreibung_der_Bewegung, "& _ "@Gebührenklasse, @Verrechnungsdatum, @Zeichen_Betrag, @KfzKennzeichen, @UStVAn_I"& _ "D);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Dateiname, LfdNr, Code_Adressat_der_Rechnung, Code_Adressat_des_Kont"& _ "oauszugs, Art_der_Bewegung, Datum_der_Bewegung, Uhrzeit_der_Bewegung, Ursprüngli"& _ "cher_Betrag_der_Bewegung, Nicht_mehrwertsteuerpflichtiger_Betrag, Betrag_mit_Pre"& _ "isnachlass_oder_Preisnachlass, Form_des_Mediums, Beschreibung_Form_des_Mediums, "& _ "Kodierung_Medium, Beschreibung_der_Bewegung, Gebührenklasse, Verrechnungsdatum, "& _ "Zeichen_Betrag, KfzKennzeichen, UStVAn_ID, upsize_ts FROM tblMautITArchiv WHERE "& _ "(Dateiname = @Dateiname) AND (LfdNr = @LfdNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Adressat_der_Rechnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Adressat_der_Rechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Adressat_des_Kontoauszugs", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Adressat_des_Kontoauszugs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art_der_Bewegung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum_der_Bewegung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Uhrzeit_der_Bewegung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Uhrzeit_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ursprünglicher_Betrag_der_Bewegung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ursprünglicher_Betrag_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nicht_mehrwertsteuerpflichtiger_Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nicht_mehrwertsteuerpflichtiger_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_mit_Preisnachlass_oder_Preisnachlass", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_mit_Preisnachlass_oder_Preisnachlass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Form_des_Mediums", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Form_des_Mediums", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Beschreibung_Form_des_Mediums", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Beschreibung_Form_des_Mediums", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kodierung_Medium", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kodierung_Medium", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Beschreibung_der_Bewegung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Beschreibung_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebührenklasse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebührenklasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verrechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verrechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeichen_Betrag", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeichen_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KfzKennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KfzKennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_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 [dbo].[tblMautITArchiv] SET [Dateiname] = @Dateiname, [LfdNr] = @LfdNr, [C"& _ "ode_Adressat_der_Rechnung] = @Code_Adressat_der_Rechnung, [Code_Adressat_des_Kon"& _ "toauszugs] = @Code_Adressat_des_Kontoauszugs, [Art_der_Bewegung] = @Art_der_Bewe"& _ "gung, [Datum_der_Bewegung] = @Datum_der_Bewegung, [Uhrzeit_der_Bewegung] = @Uhrz"& _ "eit_der_Bewegung, [Ursprünglicher_Betrag_der_Bewegung] = @Ursprünglicher_Betrag_"& _ "der_Bewegung, [Nicht_mehrwertsteuerpflichtiger_Betrag] = @Nicht_mehrwertsteuerpf"& _ "lichtiger_Betrag, [Betrag_mit_Preisnachlass_oder_Preisnachlass] = @Betrag_mit_Pr"& _ "eisnachlass_oder_Preisnachlass, [Form_des_Mediums] = @Form_des_Mediums, [Beschre"& _ "ibung_Form_des_Mediums] = @Beschreibung_Form_des_Mediums, [Kodierung_Medium] = @"& _ "Kodierung_Medium, [Beschreibung_der_Bewegung] = @Beschreibung_der_Bewegung, [Geb"& _ "ührenklasse] = @Gebührenklasse, [Verrechnungsdatum] = @Verrechnungsdatum, [Zeich"& _ "en_Betrag] = @Zeichen_Betrag, [KfzKennzeichen] = @KfzKennzeichen, [UStVAn_ID] = "& _ "@UStVAn_ID WHERE (([Dateiname] = @Original_Dateiname) AND ([LfdNr] = @Original_L"& _ "fdNr) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Or"& _ "iginal_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Dateiname, LfdNr, Code_Adressat_der_Rechnung, Code_"& _ "Adressat_des_Kontoauszugs, Art_der_Bewegung, Datum_der_Bewegung, Uhrzeit_der_Bew"& _ "egung, Ursprünglicher_Betrag_der_Bewegung, Nicht_mehrwertsteuerpflichtiger_Betra"& _ "g, Betrag_mit_Preisnachlass_oder_Preisnachlass, Form_des_Mediums, Beschreibung_F"& _ "orm_des_Mediums, Kodierung_Medium, Beschreibung_der_Bewegung, Gebührenklasse, Ve"& _ "rrechnungsdatum, Zeichen_Betrag, KfzKennzeichen, UStVAn_ID, upsize_ts FROM tblMa"& _ "utITArchiv WHERE (Dateiname = @Dateiname) AND (LfdNr = @LfdNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Adressat_der_Rechnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Adressat_der_Rechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Adressat_des_Kontoauszugs", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Adressat_des_Kontoauszugs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art_der_Bewegung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum_der_Bewegung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Uhrzeit_der_Bewegung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Uhrzeit_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ursprünglicher_Betrag_der_Bewegung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ursprünglicher_Betrag_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nicht_mehrwertsteuerpflichtiger_Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nicht_mehrwertsteuerpflichtiger_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_mit_Preisnachlass_oder_Preisnachlass", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_mit_Preisnachlass_oder_Preisnachlass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Form_des_Mediums", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Form_des_Mediums", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Beschreibung_Form_des_Mediums", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Beschreibung_Form_des_Mediums", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kodierung_Medium", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kodierung_Medium", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Beschreibung_der_Bewegung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Beschreibung_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebührenklasse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebührenklasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verrechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verrechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeichen_Betrag", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeichen_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KfzKennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KfzKennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LfdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Dateiname, LfdNr, Code_Adressat_der_Rechnung, Code_Adressat_des_Kontoauszu"& _ "gs, Art_der_Bewegung, Datum_der_Bewegung, Uhrzeit_der_Bewegung, Ursprünglicher_B"& _ "etrag_der_Bewegung, Nicht_mehrwertsteuerpflichtiger_Betrag, Betrag_mit_Preisnach"& _ "lass_oder_Preisnachlass, Form_des_Mediums, Beschreibung_Form_des_Mediums, Kodier"& _ "ung_Medium, Beschreibung_der_Bewegung, Gebührenklasse, Verrechnungsdatum, Zeiche"& _ "n_Betrag, KfzKennzeichen, UStVAn_ID, upsize_ts FROM dbo.tblMautITArchiv" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMautITArchivDataTable) 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 VERAGDataSet.tblMautITArchivDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMautITArchivDataTable = New VERAGDataSet.tblMautITArchivDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMautITArchivDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMautITArchiv") 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_Dateiname As String, ByVal Original_LfdNr As Integer, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Dateiname Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Dateiname") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Dateiname,String) End If Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LfdNr,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Dateiname As String, _ ByVal LfdNr As Integer, _ ByVal Code_Adressat_der_Rechnung As Global.System.Nullable(Of Integer), _ ByVal Code_Adressat_des_Kontoauszugs As Global.System.Nullable(Of Integer), _ ByVal Art_der_Bewegung As String, _ ByVal Datum_der_Bewegung As Global.System.Nullable(Of Date), _ ByVal Uhrzeit_der_Bewegung As Global.System.Nullable(Of Date), _ ByVal Ursprünglicher_Betrag_der_Bewegung As Global.System.Nullable(Of Decimal), _ ByVal Nicht_mehrwertsteuerpflichtiger_Betrag As Global.System.Nullable(Of Decimal), _ ByVal Betrag_mit_Preisnachlass_oder_Preisnachlass As Global.System.Nullable(Of Decimal), _ ByVal Form_des_Mediums As String, _ ByVal Beschreibung_Form_des_Mediums As String, _ ByVal Kodierung_Medium As String, _ ByVal Beschreibung_der_Bewegung As String, _ ByVal Gebührenklasse As String, _ ByVal Verrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zeichen_Betrag As String, _ ByVal KfzKennzeichen As String, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer)) As Integer If (Dateiname Is Nothing) Then Throw New Global.System.ArgumentNullException("Dateiname") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Dateiname,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(LfdNr,Integer) If (Code_Adressat_der_Rechnung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Code_Adressat_der_Rechnung.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Code_Adressat_des_Kontoauszugs.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Code_Adressat_des_Kontoauszugs.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Art_der_Bewegung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Art_der_Bewegung,String) End If If (Datum_der_Bewegung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Datum_der_Bewegung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Uhrzeit_der_Bewegung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Uhrzeit_der_Bewegung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Ursprünglicher_Betrag_der_Bewegung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Ursprünglicher_Betrag_der_Bewegung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Nicht_mehrwertsteuerpflichtiger_Betrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(Nicht_mehrwertsteuerpflichtiger_Betrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Betrag_mit_Preisnachlass_oder_Preisnachlass.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Betrag_mit_Preisnachlass_oder_Preisnachlass.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Form_des_Mediums Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Form_des_Mediums,String) End If If (Beschreibung_Form_des_Mediums Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Beschreibung_Form_des_Mediums,String) End If If (Kodierung_Medium Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Kodierung_Medium,String) End If If (Beschreibung_der_Bewegung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Beschreibung_der_Bewegung,String) End If If (Gebührenklasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Gebührenklasse,String) End If If (Verrechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(Verrechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Zeichen_Betrag Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Zeichen_Betrag,String) End If If (KfzKennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(KfzKennzeichen,String) End If If (UStVAn_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(18).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 Dateiname As String, _ ByVal LfdNr As Integer, _ ByVal Code_Adressat_der_Rechnung As Global.System.Nullable(Of Integer), _ ByVal Code_Adressat_des_Kontoauszugs As Global.System.Nullable(Of Integer), _ ByVal Art_der_Bewegung As String, _ ByVal Datum_der_Bewegung As Global.System.Nullable(Of Date), _ ByVal Uhrzeit_der_Bewegung As Global.System.Nullable(Of Date), _ ByVal Ursprünglicher_Betrag_der_Bewegung As Global.System.Nullable(Of Decimal), _ ByVal Nicht_mehrwertsteuerpflichtiger_Betrag As Global.System.Nullable(Of Decimal), _ ByVal Betrag_mit_Preisnachlass_oder_Preisnachlass As Global.System.Nullable(Of Decimal), _ ByVal Form_des_Mediums As String, _ ByVal Beschreibung_Form_des_Mediums As String, _ ByVal Kodierung_Medium As String, _ ByVal Beschreibung_der_Bewegung As String, _ ByVal Gebührenklasse As String, _ ByVal Verrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zeichen_Betrag As String, _ ByVal KfzKennzeichen As String, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal Original_Dateiname As String, _ ByVal Original_LfdNr As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer If (Dateiname Is Nothing) Then Throw New Global.System.ArgumentNullException("Dateiname") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Dateiname,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LfdNr,Integer) If (Code_Adressat_der_Rechnung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Code_Adressat_der_Rechnung.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Code_Adressat_des_Kontoauszugs.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Code_Adressat_des_Kontoauszugs.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Art_der_Bewegung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Art_der_Bewegung,String) End If If (Datum_der_Bewegung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Datum_der_Bewegung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Uhrzeit_der_Bewegung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Uhrzeit_der_Bewegung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Ursprünglicher_Betrag_der_Bewegung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Ursprünglicher_Betrag_der_Bewegung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Nicht_mehrwertsteuerpflichtiger_Betrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Nicht_mehrwertsteuerpflichtiger_Betrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Betrag_mit_Preisnachlass_oder_Preisnachlass.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Betrag_mit_Preisnachlass_oder_Preisnachlass.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Form_des_Mediums Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Form_des_Mediums,String) End If If (Beschreibung_Form_des_Mediums Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Beschreibung_Form_des_Mediums,String) End If If (Kodierung_Medium Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Kodierung_Medium,String) End If If (Beschreibung_der_Bewegung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Beschreibung_der_Bewegung,String) End If If (Gebührenklasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Gebührenklasse,String) End If If (Verrechnungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Verrechnungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Zeichen_Betrag Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Zeichen_Betrag,String) End If If (KfzKennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(KfzKennzeichen,String) End If If (UStVAn_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Original_Dateiname Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Dateiname") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Dateiname,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_LfdNr,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 Code_Adressat_der_Rechnung As Global.System.Nullable(Of Integer), _ ByVal Code_Adressat_des_Kontoauszugs As Global.System.Nullable(Of Integer), _ ByVal Art_der_Bewegung As String, _ ByVal Datum_der_Bewegung As Global.System.Nullable(Of Date), _ ByVal Uhrzeit_der_Bewegung As Global.System.Nullable(Of Date), _ ByVal Ursprünglicher_Betrag_der_Bewegung As Global.System.Nullable(Of Decimal), _ ByVal Nicht_mehrwertsteuerpflichtiger_Betrag As Global.System.Nullable(Of Decimal), _ ByVal Betrag_mit_Preisnachlass_oder_Preisnachlass As Global.System.Nullable(Of Decimal), _ ByVal Form_des_Mediums As String, _ ByVal Beschreibung_Form_des_Mediums As String, _ ByVal Kodierung_Medium As String, _ ByVal Beschreibung_der_Bewegung As String, _ ByVal Gebührenklasse As String, _ ByVal Verrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zeichen_Betrag As String, _ ByVal KfzKennzeichen As String, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal Original_Dateiname As String, _ ByVal Original_LfdNr As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Dateiname, Original_LfdNr, Code_Adressat_der_Rechnung, Code_Adressat_des_Kontoauszugs, Art_der_Bewegung, Datum_der_Bewegung, Uhrzeit_der_Bewegung, Ursprünglicher_Betrag_der_Bewegung, Nicht_mehrwertsteuerpflichtiger_Betrag, Betrag_mit_Preisnachlass_oder_Preisnachlass, Form_des_Mediums, Beschreibung_Form_des_Mediums, Kodierung_Medium, Beschreibung_der_Bewegung, Gebührenklasse, Verrechnungsdatum, Zeichen_Betrag, KfzKennzeichen, UStVAn_ID, Original_Dateiname, Original_LfdNr, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMDM_ParamterTableAdapter 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 = "tblMDM_Paramter" tableMapping.ColumnMappings.Add("Param_name", "Param_name") tableMapping.ColumnMappings.Add("Param_value", "Param_value") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblMDM_Paramter] ([Param_name], [Param_value]) VALUES (@Param_"& _ "name, @Param_value)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Param_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Param_value", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_value", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Param_name, Param_value FROM dbo.tblMDM_Paramter" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMDM_ParamterDataTable) 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 VERAGDataSet.tblMDM_ParamterDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMDM_ParamterDataTable = New VERAGDataSet.tblMDM_ParamterDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMDM_ParamterDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMDM_Paramter") 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 Insert(ByVal Param_name As String, ByVal Param_value As String) As Integer If (Param_name Is Nothing) Then Throw New Global.System.ArgumentNullException("Param_name") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Param_name,String) End If If (Param_value Is Nothing) Then Throw New Global.System.ArgumentNullException("Param_value") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Param_value,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMSECustomersTableAdapter 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 = "tblMSECustomers" tableMapping.ColumnMappings.Add("customer_id", "customer_id") tableMapping.ColumnMappings.Add("partner_customer_number", "partner_customer_number") tableMapping.ColumnMappings.Add("customer_name", "customer_name") tableMapping.ColumnMappings.Add("vat_number", "vat_number") tableMapping.ColumnMappings.Add("alternative_vat_number", "alternative_vat_number") tableMapping.ColumnMappings.Add("coc_number", "coc_number") tableMapping.ColumnMappings.Add("partner_fleet_card_number", "partner_fleet_card_number") tableMapping.ColumnMappings.Add("tstmp", "tstmp") 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].[tblMSECustomers] WHERE (([customer_id] = @Original_customer_id"& _ ") AND ((@IsNull_partner_customer_number = 1 AND [partner_customer_number] IS NUL"& _ "L) OR ([partner_customer_number] = @Original_partner_customer_number)) AND ((@Is"& _ "Null_customer_name = 1 AND [customer_name] IS NULL) OR ([customer_name] = @Origi"& _ "nal_customer_name)) AND ((@IsNull_vat_number = 1 AND [vat_number] IS NULL) OR (["& _ "vat_number] = @Original_vat_number)) AND ((@IsNull_alternative_vat_number = 1 AN"& _ "D [alternative_vat_number] IS NULL) OR ([alternative_vat_number] = @Original_alt"& _ "ernative_vat_number)) AND ((@IsNull_coc_number = 1 AND [coc_number] IS NULL) OR "& _ "([coc_number] = @Original_coc_number)) AND ((@IsNull_partner_fleet_card_number ="& _ " 1 AND [partner_fleet_card_number] IS NULL) OR ([partner_fleet_card_number] = @O"& _ "riginal_partner_fleet_card_number)) AND ((@IsNull_tstmp = 1 AND [tstmp] IS NULL)"& _ " OR ([tstmp] = @Original_tstmp)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_customer_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_partner_customer_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_customer_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_partner_customer_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_customer_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_customer_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_customer_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vat_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vat_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_alternative_vat_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "alternative_vat_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_alternative_vat_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "alternative_vat_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_coc_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coc_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coc_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coc_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_partner_fleet_card_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_fleet_card_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_partner_fleet_card_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_fleet_card_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_tstmp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", 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].[tblMSECustomers] ([customer_id], [partner_customer_number], [c"& _ "ustomer_name], [vat_number], [alternative_vat_number], [coc_number], [partner_fl"& _ "eet_card_number], [tstmp]) VALUES (@customer_id, @partner_customer_number, @cust"& _ "omer_name, @vat_number, @alternative_vat_number, @coc_number, @partner_fleet_car"& _ "d_number, @tstmp);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT customer_id, partner_customer_number, customer_name, "& _ "vat_number, alternative_vat_number, coc_number, partner_fleet_card_number, tstmp"& _ " FROM tblMSECustomers WHERE (customer_id = @customer_id)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customer_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@partner_customer_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_customer_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customer_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vat_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@alternative_vat_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "alternative_vat_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coc_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coc_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@partner_fleet_card_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_fleet_card_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", 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].[tblMSECustomers] SET [customer_id] = @customer_id, [partner_custome"& _ "r_number] = @partner_customer_number, [customer_name] = @customer_name, [vat_num"& _ "ber] = @vat_number, [alternative_vat_number] = @alternative_vat_number, [coc_num"& _ "ber] = @coc_number, [partner_fleet_card_number] = @partner_fleet_card_number, [t"& _ "stmp] = @tstmp WHERE (([customer_id] = @Original_customer_id) AND ((@IsNull_part"& _ "ner_customer_number = 1 AND [partner_customer_number] IS NULL) OR ([partner_cust"& _ "omer_number] = @Original_partner_customer_number)) AND ((@IsNull_customer_name ="& _ " 1 AND [customer_name] IS NULL) OR ([customer_name] = @Original_customer_name)) "& _ "AND ((@IsNull_vat_number = 1 AND [vat_number] IS NULL) OR ([vat_number] = @Origi"& _ "nal_vat_number)) AND ((@IsNull_alternative_vat_number = 1 AND [alternative_vat_n"& _ "umber] IS NULL) OR ([alternative_vat_number] = @Original_alternative_vat_number)"& _ ") AND ((@IsNull_coc_number = 1 AND [coc_number] IS NULL) OR ([coc_number] = @Ori"& _ "ginal_coc_number)) AND ((@IsNull_partner_fleet_card_number = 1 AND [partner_flee"& _ "t_card_number] IS NULL) OR ([partner_fleet_card_number] = @Original_partner_flee"& _ "t_card_number)) AND ((@IsNull_tstmp = 1 AND [tstmp] IS NULL) OR ([tstmp] = @Orig"& _ "inal_tstmp)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT customer_id, partner_customer_number, customer_name, vat_"& _ "number, alternative_vat_number, coc_number, partner_fleet_card_number, tstmp FRO"& _ "M tblMSECustomers WHERE (customer_id = @customer_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customer_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@partner_customer_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_customer_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customer_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vat_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@alternative_vat_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "alternative_vat_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@coc_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coc_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@partner_fleet_card_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_fleet_card_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_customer_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_partner_customer_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_customer_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_partner_customer_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_customer_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_customer_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_customer_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vat_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vat_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_alternative_vat_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "alternative_vat_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_alternative_vat_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "alternative_vat_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_coc_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coc_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_coc_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "coc_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_partner_fleet_card_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_fleet_card_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_partner_fleet_card_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_fleet_card_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_tstmp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 customer_id, partner_customer_number, customer_name, vat_number, alternati"& _ "ve_vat_number, coc_number, partner_fleet_card_number, tstmp FROM dbo.tblMSECusto"& _ "mers" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMSECustomersDataTable) 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 VERAGDataSet.tblMSECustomersDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMSECustomersDataTable = New VERAGDataSet.tblMSECustomersDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMSECustomersDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMSECustomers") 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_customer_id As Integer, ByVal Original_partner_customer_number As String, ByVal Original_customer_name As String, ByVal Original_vat_number As String, ByVal Original_alternative_vat_number As String, ByVal Original_coc_number As String, ByVal Original_partner_fleet_card_number As String, ByVal Original_tstmp As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_customer_id,Integer) If (Original_partner_customer_number 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_partner_customer_number,String) End If If (Original_customer_name 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_customer_name,String) End If If (Original_vat_number 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_vat_number,String) End If If (Original_alternative_vat_number 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_alternative_vat_number,String) End If If (Original_coc_number 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_coc_number,String) End If If (Original_partner_fleet_card_number 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_partner_fleet_card_number,String) End If If (Original_tstmp.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_tstmp.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 customer_id As Integer, ByVal partner_customer_number As String, ByVal customer_name As String, ByVal vat_number As String, ByVal alternative_vat_number As String, ByVal coc_number As String, ByVal partner_fleet_card_number As String, ByVal tstmp As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(customer_id,Integer) If (partner_customer_number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(partner_customer_number,String) End If If (customer_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(customer_name,String) End If If (vat_number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(vat_number,String) End If If (alternative_vat_number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(alternative_vat_number,String) End If If (coc_number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(coc_number,String) End If If (partner_fleet_card_number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(partner_fleet_card_number,String) End If If (tstmp.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(tstmp.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).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 customer_id As Integer, _ ByVal partner_customer_number As String, _ ByVal customer_name As String, _ ByVal vat_number As String, _ ByVal alternative_vat_number As String, _ ByVal coc_number As String, _ ByVal partner_fleet_card_number As String, _ ByVal tstmp As Global.System.Nullable(Of Date), _ ByVal Original_customer_id As Integer, _ ByVal Original_partner_customer_number As String, _ ByVal Original_customer_name As String, _ ByVal Original_vat_number As String, _ ByVal Original_alternative_vat_number As String, _ ByVal Original_coc_number As String, _ ByVal Original_partner_fleet_card_number As String, _ ByVal Original_tstmp As Global.System.Nullable(Of Date)) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(customer_id,Integer) If (partner_customer_number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(partner_customer_number,String) End If If (customer_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(customer_name,String) End If If (vat_number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(vat_number,String) End If If (alternative_vat_number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(alternative_vat_number,String) End If If (coc_number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(coc_number,String) End If If (partner_fleet_card_number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(partner_fleet_card_number,String) End If If (tstmp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(tstmp.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_customer_id,Integer) If (Original_partner_customer_number 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_partner_customer_number,String) End If If (Original_customer_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_customer_name,String) End If If (Original_vat_number 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_vat_number,String) End If If (Original_alternative_vat_number 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_alternative_vat_number,String) End If If (Original_coc_number 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_coc_number,String) End If If (Original_partner_fleet_card_number 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_partner_fleet_card_number,String) End If If (Original_tstmp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_tstmp.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If 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 partner_customer_number As String, ByVal customer_name As String, ByVal vat_number As String, ByVal alternative_vat_number As String, ByVal coc_number As String, ByVal partner_fleet_card_number As String, ByVal tstmp As Global.System.Nullable(Of Date), ByVal Original_customer_id As Integer, ByVal Original_partner_customer_number As String, ByVal Original_customer_name As String, ByVal Original_vat_number As String, ByVal Original_alternative_vat_number As String, ByVal Original_coc_number As String, ByVal Original_partner_fleet_card_number As String, ByVal Original_tstmp As Global.System.Nullable(Of Date)) As Integer Return Me.Update(Original_customer_id, partner_customer_number, customer_name, vat_number, alternative_vat_number, coc_number, partner_fleet_card_number, tstmp, Original_customer_id, Original_partner_customer_number, Original_customer_name, Original_vat_number, Original_alternative_vat_number, Original_coc_number, Original_partner_fleet_card_number, Original_tstmp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMSEImportTableAdapter 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 = "tblMSEImport" tableMapping.ColumnMappings.Add("mse_id", "mse_id") tableMapping.ColumnMappings.Add("mse_kdNr", "mse_kdNr") tableMapping.ColumnMappings.Add("mse_kdName", "mse_kdName") tableMapping.ColumnMappings.Add("mse_UID", "mse_UID") tableMapping.ColumnMappings.Add("mse_landKZ", "mse_landKZ") tableMapping.ColumnMappings.Add("mse_landBezeichnung", "mse_landBezeichnung") tableMapping.ColumnMappings.Add("mse_reDatum", "mse_reDatum") tableMapping.ColumnMappings.Add("mse_reNr", "mse_reNr") tableMapping.ColumnMappings.Add("mse_betragNetto", "mse_betragNetto") tableMapping.ColumnMappings.Add("mse_betrag_Brutto", "mse_betrag_Brutto") tableMapping.ColumnMappings.Add("mse_waehrung", "mse_waehrung") tableMapping.ColumnMappings.Add("mse_euroBrutto", "mse_euroBrutto") tableMapping.ColumnMappings.Add("mse_file", "mse_file") tableMapping.ColumnMappings.Add("mse_importDatum", "mse_importDatum") tableMapping.ColumnMappings.Add("mse_version", "mse_version") 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].[tblMSEImport] WHERE (([mse_id] = @Original_mse_id) AND ((@IsNu"& _ "ll_mse_kdNr = 1 AND [mse_kdNr] IS NULL) OR ([mse_kdNr] = @Original_mse_kdNr)) AN"& _ "D ((@IsNull_mse_UID = 1 AND [mse_UID] IS NULL) OR ([mse_UID] = @Original_mse_UID"& _ ")) AND ((@IsNull_mse_landKZ = 1 AND [mse_landKZ] IS NULL) OR ([mse_landKZ] = @Or"& _ "iginal_mse_landKZ)) AND ((@IsNull_mse_landBezeichnung = 1 AND [mse_landBezeichnu"& _ "ng] IS NULL) OR ([mse_landBezeichnung] = @Original_mse_landBezeichnung)) AND ((@"& _ "IsNull_mse_reDatum = 1 AND [mse_reDatum] IS NULL) OR ([mse_reDatum] = @Original_"& _ "mse_reDatum)) AND ((@IsNull_mse_reNr = 1 AND [mse_reNr] IS NULL) OR ([mse_reNr] "& _ "= @Original_mse_reNr)) AND ((@IsNull_mse_betragNetto = 1 AND [mse_betragNetto] I"& _ "S NULL) OR ([mse_betragNetto] = @Original_mse_betragNetto)) AND ((@IsNull_mse_be"& _ "trag_Brutto = 1 AND [mse_betrag_Brutto] IS NULL) OR ([mse_betrag_Brutto] = @Orig"& _ "inal_mse_betrag_Brutto)) AND ((@IsNull_mse_waehrung = 1 AND [mse_waehrung] IS NU"& _ "LL) OR ([mse_waehrung] = @Original_mse_waehrung)) AND ((@IsNull_mse_euroBrutto ="& _ " 1 AND [mse_euroBrutto] IS NULL) OR ([mse_euroBrutto] = @Original_mse_euroBrutto"& _ ")) AND ((@IsNull_mse_file = 1 AND [mse_file] IS NULL) OR ([mse_file] = @Original"& _ "_mse_file)) AND ((@IsNull_mse_importDatum = 1 AND [mse_importDatum] IS NULL) OR "& _ "([mse_importDatum] = @Original_mse_importDatum)) AND ((@IsNull_mse_version = 1 A"& _ "ND [mse_version] IS NULL) OR ([mse_version] = @Original_mse_version)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_kdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_kdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_UID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_landKZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landKZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_landKZ", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landKZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_landBezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landBezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_landBezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landBezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_reDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_reDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_reNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_reNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_betragNetto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betragNetto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_betragNetto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betragNetto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_betrag_Brutto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betrag_Brutto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_betrag_Brutto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betrag_Brutto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_waehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_waehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_waehrung", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_waehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_euroBrutto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_euroBrutto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_euroBrutto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_euroBrutto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_file", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_file", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_file", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_file", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_importDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_importDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_importDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_importDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_version", 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].[tblMSEImport] ([mse_id], [mse_kdNr], [mse_kdName], [mse_UID], "& _ "[mse_landKZ], [mse_landBezeichnung], [mse_reDatum], [mse_reNr], [mse_betragNetto"& _ "], [mse_betrag_Brutto], [mse_waehrung], [mse_euroBrutto], [mse_file], [mse_impor"& _ "tDatum], [mse_version]) VALUES (@mse_id, @mse_kdNr, @mse_kdName, @mse_UID, @mse_"& _ "landKZ, @mse_landBezeichnung, @mse_reDatum, @mse_reNr, @mse_betragNetto, @mse_be"& _ "trag_Brutto, @mse_waehrung, @mse_euroBrutto, @mse_file, @mse_importDatum, @mse_v"& _ "ersion);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT mse_id, mse_kdNr, mse_kdName, mse_UID, mse_landKZ, mse_landBeze"& _ "ichnung, mse_reDatum, mse_reNr, mse_betragNetto, mse_betrag_Brutto, mse_waehrung"& _ ", mse_euroBrutto, mse_file, mse_importDatum, mse_version FROM tblMSEImport WHERE"& _ " (mse_id = @mse_id)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_kdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_kdName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_kdName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_UID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_landKZ", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landKZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_landBezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landBezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_reDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_reNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_betragNetto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betragNetto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_betrag_Brutto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betrag_Brutto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_waehrung", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_waehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_euroBrutto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_euroBrutto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_file", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_file", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_importDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_importDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_version", 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].[tblMSEImport] SET [mse_id] = @mse_id, [mse_kdNr] = @mse_kdNr, [mse_"& _ "kdName] = @mse_kdName, [mse_UID] = @mse_UID, [mse_landKZ] = @mse_landKZ, [mse_la"& _ "ndBezeichnung] = @mse_landBezeichnung, [mse_reDatum] = @mse_reDatum, [mse_reNr] "& _ "= @mse_reNr, [mse_betragNetto] = @mse_betragNetto, [mse_betrag_Brutto] = @mse_be"& _ "trag_Brutto, [mse_waehrung] = @mse_waehrung, [mse_euroBrutto] = @mse_euroBrutto,"& _ " [mse_file] = @mse_file, [mse_importDatum] = @mse_importDatum, [mse_version] = @"& _ "mse_version WHERE (([mse_id] = @Original_mse_id) AND ((@IsNull_mse_kdNr = 1 AND "& _ "[mse_kdNr] IS NULL) OR ([mse_kdNr] = @Original_mse_kdNr)) AND ((@IsNull_mse_UID "& _ "= 1 AND [mse_UID] IS NULL) OR ([mse_UID] = @Original_mse_UID)) AND ((@IsNull_mse"& _ "_landKZ = 1 AND [mse_landKZ] IS NULL) OR ([mse_landKZ] = @Original_mse_landKZ)) "& _ "AND ((@IsNull_mse_landBezeichnung = 1 AND [mse_landBezeichnung] IS NULL) OR ([ms"& _ "e_landBezeichnung] = @Original_mse_landBezeichnung)) AND ((@IsNull_mse_reDatum ="& _ " 1 AND [mse_reDatum] IS NULL) OR ([mse_reDatum] = @Original_mse_reDatum)) AND (("& _ "@IsNull_mse_reNr = 1 AND [mse_reNr] IS NULL) OR ([mse_reNr] = @Original_mse_reNr"& _ ")) AND ((@IsNull_mse_betragNetto = 1 AND [mse_betragNetto] IS NULL) OR ([mse_bet"& _ "ragNetto] = @Original_mse_betragNetto)) AND ((@IsNull_mse_betrag_Brutto = 1 AND "& _ "[mse_betrag_Brutto] IS NULL) OR ([mse_betrag_Brutto] = @Original_mse_betrag_Brut"& _ "to)) AND ((@IsNull_mse_waehrung = 1 AND [mse_waehrung] IS NULL) OR ([mse_waehrun"& _ "g] = @Original_mse_waehrung)) AND ((@IsNull_mse_euroBrutto = 1 AND [mse_euroBrut"& _ "to] IS NULL) OR ([mse_euroBrutto] = @Original_mse_euroBrutto)) AND ((@IsNull_mse"& _ "_file = 1 AND [mse_file] IS NULL) OR ([mse_file] = @Original_mse_file)) AND ((@I"& _ "sNull_mse_importDatum = 1 AND [mse_importDatum] IS NULL) OR ([mse_importDatum] ="& _ " @Original_mse_importDatum)) AND ((@IsNull_mse_version = 1 AND [mse_version] IS "& _ "NULL) OR ([mse_version] = @Original_mse_version)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT mse_id, mse_kdNr, ms"& _ "e_kdName, mse_UID, mse_landKZ, mse_landBezeichnung, mse_reDatum, mse_reNr, mse_b"& _ "etragNetto, mse_betrag_Brutto, mse_waehrung, mse_euroBrutto, mse_file, mse_impor"& _ "tDatum, mse_version FROM tblMSEImport WHERE (mse_id = @mse_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_kdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_kdName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_kdName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_UID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_landKZ", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landKZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_landBezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landBezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_reDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_reNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_betragNetto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betragNetto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_betrag_Brutto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betrag_Brutto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_waehrung", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_waehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_euroBrutto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_euroBrutto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_file", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_file", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_importDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_importDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mse_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_kdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_kdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_UID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_landKZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landKZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_landKZ", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landKZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_landBezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landBezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_landBezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_landBezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_reDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_reDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_reNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_reNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_reNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_betragNetto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betragNetto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_betragNetto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betragNetto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_betrag_Brutto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betrag_Brutto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_betrag_Brutto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_betrag_Brutto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_waehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_waehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_waehrung", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_waehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_euroBrutto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_euroBrutto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_euroBrutto", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_euroBrutto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_file", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_file", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_file", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_file", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_importDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_importDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_importDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_importDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mse_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mse_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mse_version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 mse_id, mse_kdNr, mse_kdName, mse_UID, mse_landKZ, mse_landBezeichnung, ms"& _ "e_reDatum, mse_reNr, mse_betragNetto, mse_betrag_Brutto, mse_waehrung, mse_euroB"& _ "rutto, mse_file, mse_importDatum, mse_version FROM dbo.tblMSEImport" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMSEImportDataTable) 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 VERAGDataSet.tblMSEImportDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMSEImportDataTable = New VERAGDataSet.tblMSEImportDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMSEImportDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMSEImport") 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_mse_id As Integer, ByVal Original_mse_kdNr As Global.System.Nullable(Of Integer), ByVal Original_mse_UID As String, ByVal Original_mse_landKZ As String, ByVal Original_mse_landBezeichnung As String, ByVal Original_mse_reDatum As Global.System.Nullable(Of Date), ByVal Original_mse_reNr As Global.System.Nullable(Of Integer), ByVal Original_mse_betragNetto As Global.System.Nullable(Of Decimal), ByVal Original_mse_betrag_Brutto As Global.System.Nullable(Of Decimal), ByVal Original_mse_waehrung As String, ByVal Original_mse_euroBrutto As Global.System.Nullable(Of Decimal), ByVal Original_mse_file As String, ByVal Original_mse_importDatum As Global.System.Nullable(Of Date), ByVal Original_mse_version As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_mse_id,Integer) If (Original_mse_kdNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_mse_kdNr.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_mse_UID 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_mse_UID,String) End If If (Original_mse_landKZ 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_mse_landKZ,String) End If If (Original_mse_landBezeichnung 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_mse_landBezeichnung,String) End If If (Original_mse_reDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_mse_reDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_mse_reNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_mse_reNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_mse_betragNetto.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_mse_betragNetto.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_mse_betrag_Brutto.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_mse_betrag_Brutto.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_mse_waehrung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_mse_waehrung,String) End If If (Original_mse_euroBrutto.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_mse_euroBrutto.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_mse_file Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_mse_file,String) End If If (Original_mse_importDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_mse_importDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_mse_version.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_mse_version.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).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 mse_id As Integer, ByVal mse_kdNr As Global.System.Nullable(Of Integer), ByVal mse_kdName As String, ByVal mse_UID As String, ByVal mse_landKZ As String, ByVal mse_landBezeichnung As String, ByVal mse_reDatum As Global.System.Nullable(Of Date), ByVal mse_reNr As Global.System.Nullable(Of Integer), ByVal mse_betragNetto As Global.System.Nullable(Of Decimal), ByVal mse_betrag_Brutto As Global.System.Nullable(Of Decimal), ByVal mse_waehrung As String, ByVal mse_euroBrutto As Global.System.Nullable(Of Decimal), ByVal mse_file As String, ByVal mse_importDatum As Global.System.Nullable(Of Date), ByVal mse_version As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(mse_id,Integer) If (mse_kdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(mse_kdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (mse_kdName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(mse_kdName,String) End If If (mse_UID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(mse_UID,String) End If If (mse_landKZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(mse_landKZ,String) End If If (mse_landBezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(mse_landBezeichnung,String) End If If (mse_reDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(mse_reDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (mse_reNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(mse_reNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (mse_betragNetto.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(mse_betragNetto.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (mse_betrag_Brutto.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(mse_betrag_Brutto.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (mse_waehrung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(mse_waehrung,String) End If If (mse_euroBrutto.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(mse_euroBrutto.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (mse_file Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(mse_file,String) End If If (mse_importDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(mse_importDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (mse_version.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(mse_version.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(14).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 mse_id As Integer, _ ByVal mse_kdNr As Global.System.Nullable(Of Integer), _ ByVal mse_kdName As String, _ ByVal mse_UID As String, _ ByVal mse_landKZ As String, _ ByVal mse_landBezeichnung As String, _ ByVal mse_reDatum As Global.System.Nullable(Of Date), _ ByVal mse_reNr As Global.System.Nullable(Of Integer), _ ByVal mse_betragNetto As Global.System.Nullable(Of Decimal), _ ByVal mse_betrag_Brutto As Global.System.Nullable(Of Decimal), _ ByVal mse_waehrung As String, _ ByVal mse_euroBrutto As Global.System.Nullable(Of Decimal), _ ByVal mse_file As String, _ ByVal mse_importDatum As Global.System.Nullable(Of Date), _ ByVal mse_version As Global.System.Nullable(Of Integer), _ ByVal Original_mse_id As Integer, _ ByVal Original_mse_kdNr As Global.System.Nullable(Of Integer), _ ByVal Original_mse_UID As String, _ ByVal Original_mse_landKZ As String, _ ByVal Original_mse_landBezeichnung As String, _ ByVal Original_mse_reDatum As Global.System.Nullable(Of Date), _ ByVal Original_mse_reNr As Global.System.Nullable(Of Integer), _ ByVal Original_mse_betragNetto As Global.System.Nullable(Of Decimal), _ ByVal Original_mse_betrag_Brutto As Global.System.Nullable(Of Decimal), _ ByVal Original_mse_waehrung As String, _ ByVal Original_mse_euroBrutto As Global.System.Nullable(Of Decimal), _ ByVal Original_mse_file As String, _ ByVal Original_mse_importDatum As Global.System.Nullable(Of Date), _ ByVal Original_mse_version As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(mse_id,Integer) If (mse_kdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(mse_kdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (mse_kdName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(mse_kdName,String) End If If (mse_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(mse_UID,String) End If If (mse_landKZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(mse_landKZ,String) End If If (mse_landBezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(mse_landBezeichnung,String) End If If (mse_reDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(mse_reDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (mse_reNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(mse_reNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (mse_betragNetto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(mse_betragNetto.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (mse_betrag_Brutto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(mse_betrag_Brutto.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (mse_waehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(mse_waehrung,String) End If If (mse_euroBrutto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(mse_euroBrutto.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (mse_file Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(mse_file,String) End If If (mse_importDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(mse_importDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (mse_version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(mse_version.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_mse_id,Integer) If (Original_mse_kdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_mse_kdNr.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_mse_UID 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_mse_UID,String) End If If (Original_mse_landKZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_mse_landKZ,String) End If If (Original_mse_landBezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_mse_landBezeichnung,String) End If If (Original_mse_reDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_mse_reDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_mse_reNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_mse_reNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_mse_betragNetto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_mse_betragNetto.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Original_mse_betrag_Brutto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_mse_betrag_Brutto.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Original_mse_waehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_mse_waehrung,String) End If If (Original_mse_euroBrutto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_mse_euroBrutto.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_mse_file Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_mse_file,String) End If If (Original_mse_importDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_mse_importDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_mse_version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_mse_version.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If 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 mse_kdNr As Global.System.Nullable(Of Integer), _ ByVal mse_kdName As String, _ ByVal mse_UID As String, _ ByVal mse_landKZ As String, _ ByVal mse_landBezeichnung As String, _ ByVal mse_reDatum As Global.System.Nullable(Of Date), _ ByVal mse_reNr As Global.System.Nullable(Of Integer), _ ByVal mse_betragNetto As Global.System.Nullable(Of Decimal), _ ByVal mse_betrag_Brutto As Global.System.Nullable(Of Decimal), _ ByVal mse_waehrung As String, _ ByVal mse_euroBrutto As Global.System.Nullable(Of Decimal), _ ByVal mse_file As String, _ ByVal mse_importDatum As Global.System.Nullable(Of Date), _ ByVal mse_version As Global.System.Nullable(Of Integer), _ ByVal Original_mse_id As Integer, _ ByVal Original_mse_kdNr As Global.System.Nullable(Of Integer), _ ByVal Original_mse_UID As String, _ ByVal Original_mse_landKZ As String, _ ByVal Original_mse_landBezeichnung As String, _ ByVal Original_mse_reDatum As Global.System.Nullable(Of Date), _ ByVal Original_mse_reNr As Global.System.Nullable(Of Integer), _ ByVal Original_mse_betragNetto As Global.System.Nullable(Of Decimal), _ ByVal Original_mse_betrag_Brutto As Global.System.Nullable(Of Decimal), _ ByVal Original_mse_waehrung As String, _ ByVal Original_mse_euroBrutto As Global.System.Nullable(Of Decimal), _ ByVal Original_mse_file As String, _ ByVal Original_mse_importDatum As Global.System.Nullable(Of Date), _ ByVal Original_mse_version As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(Original_mse_id, mse_kdNr, mse_kdName, mse_UID, mse_landKZ, mse_landBezeichnung, mse_reDatum, mse_reNr, mse_betragNetto, mse_betrag_Brutto, mse_waehrung, mse_euroBrutto, mse_file, mse_importDatum, mse_version, Original_mse_id, Original_mse_kdNr, Original_mse_UID, Original_mse_landKZ, Original_mse_landBezeichnung, Original_mse_reDatum, Original_mse_reNr, Original_mse_betragNetto, Original_mse_betrag_Brutto, Original_mse_waehrung, Original_mse_euroBrutto, Original_mse_file, Original_mse_importDatum, Original_mse_version) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMSEInvoicesTableAdapter 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 = "tblMSEInvoices" tableMapping.ColumnMappings.Add("name", "name") tableMapping.ColumnMappings.Add("total_amount_euro", "total_amount_euro") tableMapping.ColumnMappings.Add("total_vat_amount_euro", "total_vat_amount_euro") tableMapping.ColumnMappings.Add("msts_vat_number", "msts_vat_number") tableMapping.ColumnMappings.Add("invoice_id", "invoice_id") tableMapping.ColumnMappings.Add("invoice_date", "invoice_date") tableMapping.ColumnMappings.Add("customer_number", "customer_number") tableMapping.ColumnMappings.Add("imported", "imported") tableMapping.ColumnMappings.Add("tstmp", "tstmp") tableMapping.ColumnMappings.Add("country", "country") tableMapping.ColumnMappings.Add("daId", "daId") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblMSEInvoices] ([name], [total_amount_euro], [total_vat_amoun"& _ "t_euro], [msts_vat_number], [invoice_id], [invoice_date], [customer_number], [im"& _ "ported], [tstmp], [country], [daId]) VALUES (@name, @total_amount_euro, @total_v"& _ "at_amount_euro, @msts_vat_number, @invoice_id, @invoice_date, @customer_number, "& _ "@imported, @tstmp, @country, @daId)" 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.NVarChar, 0, 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("@total_amount_euro", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 4, "total_amount_euro", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@total_vat_amount_euro", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 4, "total_vat_amount_euro", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@msts_vat_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "msts_vat_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customer_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@imported", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "imported", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "daId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 name, total_amount_euro, total_vat_amount_euro, msts_vat_number, invoice_i"& _ "d, invoice_date, customer_number, imported, tstmp, country, daId FROM dbo.tblMSE"& _ "Invoices" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMSEInvoicesDataTable) 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 VERAGDataSet.tblMSEInvoicesDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMSEInvoicesDataTable = New VERAGDataSet.tblMSEInvoicesDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMSEInvoicesDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMSEInvoices") 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 Insert(ByVal name As String, ByVal total_amount_euro As Decimal, ByVal total_vat_amount_euro As Decimal, ByVal msts_vat_number As String, ByVal invoice_id As Integer, ByVal invoice_date As Date, ByVal customer_number As Global.System.Nullable(Of Integer), ByVal imported As Boolean, ByVal tstmp As Global.System.Nullable(Of Date), ByVal country As String, ByVal daId As Global.System.Nullable(Of Integer)) As Integer If (name Is Nothing) Then Throw New Global.System.ArgumentNullException("name") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(name,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(total_amount_euro,Decimal) Me.Adapter.InsertCommand.Parameters(2).Value = CType(total_vat_amount_euro,Decimal) If (msts_vat_number Is Nothing) Then Throw New Global.System.ArgumentNullException("msts_vat_number") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(msts_vat_number,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(invoice_id,Integer) Me.Adapter.InsertCommand.Parameters(5).Value = CType(invoice_date,Date) If (customer_number.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(customer_number.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(imported,Boolean) If (tstmp.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(tstmp.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(country,String) End If If (daId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(daId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(10).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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMSELeistungenTableAdapter 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 = "tblMSELeistungen" tableMapping.ColumnMappings.Add("Card Type", "Card Type") tableMapping.ColumnMappings.Add("Transaction Country", "Transaction Country") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblMSELeistungen] WHERE (([Card Type] = @Original_Card_Type) A"& _ "ND ([Transaction Country] = @Original_Transaction_Country) AND ([SSMA_TimeStamp]"& _ " = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Card_Type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transaction_Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblMSELeistungen] ([Card Type], [Transaction Country], [Leistu"& _ "ngsNr]) VALUES (@Card_Type, @Transaction_Country, @LeistungsNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT [Card T"& _ "ype], [Transaction Country], LeistungsNr, SSMA_TimeStamp FROM tblMSELeistungen W"& _ "HERE ([Card Type] = @Card_Type) AND ([Transaction Country] = @Transaction_Countr"& _ "y)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", 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].[tblMSELeistungen] SET [Card Type] = @Card_Type, [Transaction Countr"& _ "y] = @Transaction_Country, [LeistungsNr] = @LeistungsNr WHERE (([Card Type] = @O"& _ "riginal_Card_Type) AND ([Transaction Country] = @Original_Transaction_Country) A"& _ "ND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT [Card Type], [Transac"& _ "tion Country], LeistungsNr, SSMA_TimeStamp FROM tblMSELeistungen WHERE ([Card Ty"& _ "pe] = @Card_Type) AND ([Transaction Country] = @Transaction_Country)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Card_Type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transaction_Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 [Card Type], [Transaction Country], LeistungsNr, SSMA_TimeStamp FROM dbo.t"& _ "blMSELeistungen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMSELeistungenDataTable) 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 VERAGDataSet.tblMSELeistungenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMSELeistungenDataTable = New VERAGDataSet.tblMSELeistungenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMSELeistungenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMSELeistungen") 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_Card_Type As String, ByVal Original_Transaction_Country As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_Card_Type Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Card_Type") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Card_Type,String) End If If (Original_Transaction_Country Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Transaction_Country") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Transaction_Country,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Card_Type As String, ByVal Transaction_Country As String, ByVal LeistungsNr As Short) As Integer If (Card_Type Is Nothing) Then Throw New Global.System.ArgumentNullException("Card_Type") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Card_Type,String) End If If (Transaction_Country Is Nothing) Then Throw New Global.System.ArgumentNullException("Transaction_Country") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Transaction_Country,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(LeistungsNr,Short) 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 Card_Type As String, ByVal Transaction_Country As String, ByVal LeistungsNr As Short, ByVal Original_Card_Type As String, ByVal Original_Transaction_Country As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Card_Type Is Nothing) Then Throw New Global.System.ArgumentNullException("Card_Type") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Card_Type,String) End If If (Transaction_Country Is Nothing) Then Throw New Global.System.ArgumentNullException("Transaction_Country") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Transaction_Country,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (Original_Card_Type Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Card_Type") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Card_Type,String) End If If (Original_Transaction_Country Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Transaction_Country") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Transaction_Country,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 LeistungsNr As Short, ByVal Original_Card_Type As String, ByVal Original_Transaction_Country As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Card_Type, Original_Transaction_Country, LeistungsNr, Original_Card_Type, Original_Transaction_Country, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMSESettlementsTableAdapter 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 = "tblMSESettlements" tableMapping.ColumnMappings.Add("transaction_id", "transaction_id") tableMapping.ColumnMappings.Add("invoice_number", "invoice_number") tableMapping.ColumnMappings.Add("invoice_date", "invoice_date") tableMapping.ColumnMappings.Add("specification_page_id", "specification_page_id") tableMapping.ColumnMappings.Add("specification_page_name", "specification_page_name") tableMapping.ColumnMappings.Add("transaction_debit_or_credit", "transaction_debit_or_credit") tableMapping.ColumnMappings.Add("original_transaction_id", "original_transaction_id") tableMapping.ColumnMappings.Add("original_invoice_number", "original_invoice_number") tableMapping.ColumnMappings.Add("original_invoice_date", "original_invoice_date") tableMapping.ColumnMappings.Add("credit_comment", "credit_comment") tableMapping.ColumnMappings.Add("tstmp", "tstmp") 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].[tblMSESettlements] WHERE (([transaction_id] = @Original_transa"& _ "ction_id) AND ((@IsNull_invoice_number = 1 AND [invoice_number] IS NULL) OR ([in"& _ "voice_number] = @Original_invoice_number)) AND ((@IsNull_invoice_date = 1 AND [i"& _ "nvoice_date] IS NULL) OR ([invoice_date] = @Original_invoice_date)) AND ((@IsNul"& _ "l_specification_page_id = 1 AND [specification_page_id] IS NULL) OR ([specificat"& _ "ion_page_id] = @Original_specification_page_id)) AND ((@IsNull_specification_pag"& _ "e_name = 1 AND [specification_page_name] IS NULL) OR ([specification_page_name] "& _ "= @Original_specification_page_name)) AND ((@IsNull_transaction_debit_or_credit "& _ "= 1 AND [transaction_debit_or_credit] IS NULL) OR ([transaction_debit_or_credit]"& _ " = @Original_transaction_debit_or_credit)) AND ((@p3 = 1 AND [original_transacti"& _ "on_id] IS NULL) OR ([original_transaction_id] = @p2)) AND ((@p6 = 1 AND [origina"& _ "l_invoice_number] IS NULL) OR ([original_invoice_number] = @p5)) AND ((@p9 = 1 A"& _ "ND [original_invoice_date] IS NULL) OR ([original_invoice_date] = @p8)) AND ((@I"& _ "sNull_tstmp = 1 AND [tstmp] IS NULL) OR ([tstmp] = @Original_tstmp)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_date", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_specification_page_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_specification_page_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_specification_page_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_specification_page_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_debit_or_credit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_debit_or_credit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_debit_or_credit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_debit_or_credit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_transaction_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_transaction_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_date", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p8", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_tstmp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", 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].[tblMSESettlements] ([transaction_id], [invoice_number], [invoi"& _ "ce_date], [specification_page_id], [specification_page_name], [transaction_debit"& _ "_or_credit], [original_transaction_id], [original_invoice_number], [original_inv"& _ "oice_date], [credit_comment], [tstmp]) VALUES (@transaction_id, @invoice_number,"& _ " @invoice_date, @specification_page_id, @specification_page_name, @transaction_d"& _ "ebit_or_credit, @p1, @p4, @p7, @credit_comment, @tstmp);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT transaction_id,"& _ " invoice_number, invoice_date, specification_page_id, specification_page_name, t"& _ "ransaction_debit_or_credit, original_transaction_id, original_invoice_number, or"& _ "iginal_invoice_date, credit_comment, tstmp FROM tblMSESettlements WHERE (transac"& _ "tion_id = @transaction_id)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@specification_page_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@specification_page_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_debit_or_credit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_debit_or_credit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_transaction_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p7", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@credit_comment", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "credit_comment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", 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].[tblMSESettlements] SET [transaction_id] = @transaction_id, [invoice"& _ "_number] = @invoice_number, [invoice_date] = @invoice_date, [specification_page_"& _ "id] = @specification_page_id, [specification_page_name] = @specification_page_na"& _ "me, [transaction_debit_or_credit] = @transaction_debit_or_credit, [original_tran"& _ "saction_id] = @p1, [original_invoice_number] = @p4, [original_invoice_date] = @p"& _ "7, [credit_comment] = @credit_comment, [tstmp] = @tstmp WHERE (([transaction_id]"& _ " = @Original_transaction_id) AND ((@IsNull_invoice_number = 1 AND [invoice_numbe"& _ "r] IS NULL) OR ([invoice_number] = @Original_invoice_number)) AND ((@IsNull_invo"& _ "ice_date = 1 AND [invoice_date] IS NULL) OR ([invoice_date] = @Original_invoice_"& _ "date)) AND ((@IsNull_specification_page_id = 1 AND [specification_page_id] IS NU"& _ "LL) OR ([specification_page_id] = @Original_specification_page_id)) AND ((@IsNul"& _ "l_specification_page_name = 1 AND [specification_page_name] IS NULL) OR ([specif"& _ "ication_page_name] = @Original_specification_page_name)) AND ((@IsNull_transacti"& _ "on_debit_or_credit = 1 AND [transaction_debit_or_credit] IS NULL) OR ([transacti"& _ "on_debit_or_credit] = @Original_transaction_debit_or_credit)) AND ((@p3 = 1 AND "& _ "[original_transaction_id] IS NULL) OR ([original_transaction_id] = @p2)) AND ((@"& _ "p6 = 1 AND [original_invoice_number] IS NULL) OR ([original_invoice_number] = @p"& _ "5)) AND ((@p9 = 1 AND [original_invoice_date] IS NULL) OR ([original_invoice_dat"& _ "e] = @p8)) AND ((@IsNull_tstmp = 1 AND [tstmp] IS NULL) OR ([tstmp] = @Original_"& _ "tstmp)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT transaction_id, invoice_number, invoice_date, specification_pa"& _ "ge_id, specification_page_name, transaction_debit_or_credit, original_transactio"& _ "n_id, original_invoice_number, original_invoice_date, credit_comment, tstmp FROM"& _ " tblMSESettlements WHERE (transaction_id = @transaction_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@specification_page_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@specification_page_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_debit_or_credit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_debit_or_credit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_transaction_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p7", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@credit_comment", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "credit_comment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_date", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_specification_page_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_specification_page_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_specification_page_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_specification_page_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "specification_page_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_debit_or_credit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_debit_or_credit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_debit_or_credit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_debit_or_credit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_transaction_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_transaction_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_date", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p8", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_invoice_date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_tstmp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 transaction_id, invoice_number, invoice_date, specification_page_id, speci"& _ "fication_page_name, transaction_debit_or_credit, original_transaction_id, origin"& _ "al_invoice_number, original_invoice_date, credit_comment, tstmp FROM dbo.tblMSES"& _ "ettlements" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMSESettlementsDataTable) 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 VERAGDataSet.tblMSESettlementsDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMSESettlementsDataTable = New VERAGDataSet.tblMSESettlementsDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMSESettlementsDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMSESettlements") 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_transaction_id As Integer, ByVal Original_invoice_number As Global.System.Nullable(Of Integer), ByVal Original_invoice_date As Global.System.Nullable(Of Date), ByVal Original_specification_page_id As Global.System.Nullable(Of Integer), ByVal Original_specification_page_name As String, ByVal Original_transaction_debit_or_credit As String, ByVal p2 As Global.System.Nullable(Of Integer), ByVal p5 As Global.System.Nullable(Of Integer), ByVal p8 As Global.System.Nullable(Of Date), ByVal Original_tstmp As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_transaction_id,Integer) If (Original_invoice_number.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_invoice_number.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_invoice_date.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_invoice_date.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_specification_page_id.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_specification_page_id.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_specification_page_name 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_specification_page_name,String) End If If (Original_transaction_debit_or_credit 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_transaction_debit_or_credit,String) End If If (p2.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(p2.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (p5.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(p5.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 (p8.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(p8.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_tstmp.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_tstmp.Value,Date) 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 Overloads Overridable Function Insert(ByVal transaction_id As Integer, ByVal invoice_number As Global.System.Nullable(Of Integer), ByVal invoice_date As Global.System.Nullable(Of Date), ByVal specification_page_id As Global.System.Nullable(Of Integer), ByVal specification_page_name As String, ByVal transaction_debit_or_credit As String, ByVal p1 As Global.System.Nullable(Of Integer), ByVal p4 As Global.System.Nullable(Of Integer), ByVal p7 As Global.System.Nullable(Of Date), ByVal credit_comment As String, ByVal tstmp As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(transaction_id,Integer) If (invoice_number.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(invoice_number.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (invoice_date.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(invoice_date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (specification_page_id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(specification_page_id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (specification_page_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(specification_page_name,String) End If If (transaction_debit_or_credit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(transaction_debit_or_credit,String) End If If (p1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(p1.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (p4.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(p4.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (p7.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(p7.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (credit_comment Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(credit_comment,String) End If If (tstmp.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(tstmp.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).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 transaction_id As Integer, _ ByVal invoice_number As Global.System.Nullable(Of Integer), _ ByVal invoice_date As Global.System.Nullable(Of Date), _ ByVal specification_page_id As Global.System.Nullable(Of Integer), _ ByVal specification_page_name As String, _ ByVal transaction_debit_or_credit As String, _ ByVal p1 As Global.System.Nullable(Of Integer), _ ByVal p4 As Global.System.Nullable(Of Integer), _ ByVal p7 As Global.System.Nullable(Of Date), _ ByVal credit_comment As String, _ ByVal tstmp As Global.System.Nullable(Of Date), _ ByVal Original_transaction_id As Integer, _ ByVal Original_invoice_number As Global.System.Nullable(Of Integer), _ ByVal Original_invoice_date As Global.System.Nullable(Of Date), _ ByVal Original_specification_page_id As Global.System.Nullable(Of Integer), _ ByVal Original_specification_page_name As String, _ ByVal Original_transaction_debit_or_credit As String, _ ByVal p2 As Global.System.Nullable(Of Integer), _ ByVal p5 As Global.System.Nullable(Of Integer), _ ByVal p8 As Global.System.Nullable(Of Date), _ ByVal Original_tstmp As Global.System.Nullable(Of Date)) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(transaction_id,Integer) If (invoice_number.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(invoice_number.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (invoice_date.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(invoice_date.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (specification_page_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(specification_page_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (specification_page_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(specification_page_name,String) End If If (transaction_debit_or_credit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(transaction_debit_or_credit,String) End If If (p1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(p1.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (p4.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(p4.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (p7.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(p7.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (credit_comment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(credit_comment,String) End If If (tstmp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(tstmp.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_transaction_id,Integer) If (Original_invoice_number.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_invoice_number.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_invoice_date.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_invoice_date.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_specification_page_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_specification_page_id.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_specification_page_name 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_specification_page_name,String) End If If (Original_transaction_debit_or_credit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_transaction_debit_or_credit,String) End If If (p2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(p2.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (p5.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(p5.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (p8.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(p8.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_tstmp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_tstmp.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If 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 invoice_number As Global.System.Nullable(Of Integer), _ ByVal invoice_date As Global.System.Nullable(Of Date), _ ByVal specification_page_id As Global.System.Nullable(Of Integer), _ ByVal specification_page_name As String, _ ByVal transaction_debit_or_credit As String, _ ByVal p1 As Global.System.Nullable(Of Integer), _ ByVal p4 As Global.System.Nullable(Of Integer), _ ByVal p7 As Global.System.Nullable(Of Date), _ ByVal credit_comment As String, _ ByVal tstmp As Global.System.Nullable(Of Date), _ ByVal Original_transaction_id As Integer, _ ByVal Original_invoice_number As Global.System.Nullable(Of Integer), _ ByVal Original_invoice_date As Global.System.Nullable(Of Date), _ ByVal Original_specification_page_id As Global.System.Nullable(Of Integer), _ ByVal Original_specification_page_name As String, _ ByVal Original_transaction_debit_or_credit As String, _ ByVal p2 As Global.System.Nullable(Of Integer), _ ByVal p5 As Global.System.Nullable(Of Integer), _ ByVal p8 As Global.System.Nullable(Of Date), _ ByVal Original_tstmp As Global.System.Nullable(Of Date)) As Integer Return Me.Update(Original_transaction_id, invoice_number, invoice_date, specification_page_id, specification_page_name, transaction_debit_or_credit, p1, p4, p7, credit_comment, tstmp, Original_transaction_id, Original_invoice_number, Original_invoice_date, Original_specification_page_id, Original_specification_page_name, Original_transaction_debit_or_credit, p2, p5, p8, Original_tstmp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMSETransactionsTableAdapter 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 = "tblMSETransactions" tableMapping.ColumnMappings.Add("transaction_id", "transaction_id") tableMapping.ColumnMappings.Add("controller_id", "controller_id") tableMapping.ColumnMappings.Add("partner_haulier_id", "partner_haulier_id") tableMapping.ColumnMappings.Add("supplier_name", "supplier_name") tableMapping.ColumnMappings.Add("transaction_country", "transaction_country") tableMapping.ColumnMappings.Add("transaction_domain", "transaction_domain") tableMapping.ColumnMappings.Add("purchase_datetime", "purchase_datetime") tableMapping.ColumnMappings.Add("entry_point_name", "entry_point_name") tableMapping.ColumnMappings.Add("entry_datetime", "entry_datetime") tableMapping.ColumnMappings.Add("exit_point_name", "exit_point_name") tableMapping.ColumnMappings.Add("exit_datetime", "exit_datetime") tableMapping.ColumnMappings.Add("device_product_type", "device_product_type") tableMapping.ColumnMappings.Add("device_product_number", "device_product_number") tableMapping.ColumnMappings.Add("transaction_product_id", "transaction_product_id") tableMapping.ColumnMappings.Add("transaction_product_name", "transaction_product_name") tableMapping.ColumnMappings.Add("license_plate_number", "license_plate_number") tableMapping.ColumnMappings.Add("vehicle_country", "vehicle_country") tableMapping.ColumnMappings.Add("original_currency", "original_currency") tableMapping.ColumnMappings.Add("original_net_amount", "original_net_amount") tableMapping.ColumnMappings.Add("original_gross_amount", "original_gross_amount") tableMapping.ColumnMappings.Add("original_vat_percentage", "original_vat_percentage") tableMapping.ColumnMappings.Add("customer_currency", "customer_currency") tableMapping.ColumnMappings.Add("transaction_net_amount", "transaction_net_amount") tableMapping.ColumnMappings.Add("transaction_gross_amount", "transaction_gross_amount") tableMapping.ColumnMappings.Add("exempt_amount", "exempt_amount") tableMapping.ColumnMappings.Add("msts_fee_amount", "msts_fee_amount") tableMapping.ColumnMappings.Add("msts_vat_amount", "msts_vat_amount") tableMapping.ColumnMappings.Add("msts_vat_percentage", "msts_vat_percentage") tableMapping.ColumnMappings.Add("total_gross_amount", "total_gross_amount") tableMapping.ColumnMappings.Add("transaction_status", "transaction_status") tableMapping.ColumnMappings.Add("loading_date", "loading_date") tableMapping.ColumnMappings.Add("batch_seq_nr", "batch_seq_nr") tableMapping.ColumnMappings.Add("distance_km", "distance_km") tableMapping.ColumnMappings.Add("credit_comment", "credit_comment") tableMapping.ColumnMappings.Add("tstmp", "tstmp") tableMapping.ColumnMappings.Add("original_vat_amount", "original_vat_amount") tableMapping.ColumnMappings.Add("USteuer_EUR", "USteuer_EUR") tableMapping.ColumnMappings.Add("charged", "charged") tableMapping.ColumnMappings.Add("chargedDatetime", "chargedDatetime") 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].[tblMSETransactions] WHERE (([transaction_id] = @Original_trans"& _ "action_id) AND ((@IsNull_controller_id = 1 AND [controller_id] IS NULL) OR ([con"& _ "troller_id] = @Original_controller_id)) AND ((@IsNull_partner_haulier_id = 1 AND"& _ " [partner_haulier_id] IS NULL) OR ([partner_haulier_id] = @Original_partner_haul"& _ "ier_id)) AND ((@IsNull_supplier_name = 1 AND [supplier_name] IS NULL) OR ([suppl"& _ "ier_name] = @Original_supplier_name)) AND ((@IsNull_transaction_country = 1 AND "& _ "[transaction_country] IS NULL) OR ([transaction_country] = @Original_transaction"& _ "_country)) AND ((@IsNull_transaction_domain = 1 AND [transaction_domain] IS NULL"& _ ") OR ([transaction_domain] = @Original_transaction_domain)) AND ((@IsNull_purcha"& _ "se_datetime = 1 AND [purchase_datetime] IS NULL) OR ([purchase_datetime] = @Orig"& _ "inal_purchase_datetime)) AND ((@IsNull_entry_point_name = 1 AND [entry_point_nam"& _ "e] IS NULL) OR ([entry_point_name] = @Original_entry_point_name)) AND ((@IsNull_"& _ "entry_datetime = 1 AND [entry_datetime] IS NULL) OR ([entry_datetime] = @Origina"& _ "l_entry_datetime)) AND ((@IsNull_exit_point_name = 1 AND [exit_point_name] IS NU"& _ "LL) OR ([exit_point_name] = @Original_exit_point_name)) AND ((@IsNull_exit_datet"& _ "ime = 1 AND [exit_datetime] IS NULL) OR ([exit_datetime] = @Original_exit_dateti"& _ "me)) AND ((@IsNull_device_product_type = 1 AND [device_product_type] IS NULL) OR"& _ " ([device_product_type] = @Original_device_product_type)) AND ((@IsNull_transact"& _ "ion_product_id = 1 AND [transaction_product_id] IS NULL) OR ([transaction_produc"& _ "t_id] = @Original_transaction_product_id)) AND ((@IsNull_license_plate_number = "& _ "1 AND [license_plate_number] IS NULL) OR ([license_plate_number] = @Original_lic"& _ "ense_plate_number)) AND ((@IsNull_vehicle_country = 1 AND [vehicle_country] IS N"& _ "ULL) OR ([vehicle_country] = @Original_vehicle_country)) AND ((@p3 = 1 AND [orig"& _ "inal_currency] IS NULL) OR ([original_currency] = @p2)) AND ((@p6 = 1 AND [origi"& _ "nal_net_amount] IS NULL) OR ([original_net_amount] = @p5)) AND ((@p9 = 1 AND [or"& _ "iginal_gross_amount] IS NULL) OR ([original_gross_amount] = @p8)) AND ((@p12 = 1"& _ " AND [original_vat_percentage] IS NULL) OR ([original_vat_percentage] = @p11)) A"& _ "ND ((@IsNull_customer_currency = 1 AND [customer_currency] IS NULL) OR ([custome"& _ "r_currency] = @Original_customer_currency)) AND ((@IsNull_transaction_net_amount"& _ " = 1 AND [transaction_net_amount] IS NULL) OR ([transaction_net_amount] = @Origi"& _ "nal_transaction_net_amount)) AND ((@IsNull_transaction_gross_amount = 1 AND [tra"& _ "nsaction_gross_amount] IS NULL) OR ([transaction_gross_amount] = @Original_trans"& _ "action_gross_amount)) AND ((@IsNull_exempt_amount = 1 AND [exempt_amount] IS NUL"& _ "L) OR ([exempt_amount] = @Original_exempt_amount)) AND ((@IsNull_msts_fee_amount"& _ " = 1 AND [msts_fee_amount] IS NULL) OR ([msts_fee_amount] = @Original_msts_fee_a"& _ "mount)) AND ((@IsNull_msts_vat_amount = 1 AND [msts_vat_amount] IS NULL) OR ([ms"& _ "ts_vat_amount] = @Original_msts_vat_amount)) AND ((@IsNull_msts_vat_percentage ="& _ " 1 AND [msts_vat_percentage] IS NULL) OR ([msts_vat_percentage] = @Original_msts"& _ "_vat_percentage)) AND ((@IsNull_total_gross_amount = 1 AND [total_gross_amount] "& _ "IS NULL) OR ([total_gross_amount] = @Original_total_gross_amount)) AND ((@IsNull"& _ "_transaction_status = 1 AND [transaction_status] IS NULL) OR ([transaction_statu"& _ "s] = @Original_transaction_status)) AND ((@IsNull_loading_date = 1 AND [loading_"& _ "date] IS NULL) OR ([loading_date] = @Original_loading_date)) AND ((@IsNull_batch"& _ "_seq_nr = 1 AND [batch_seq_nr] IS NULL) OR ([batch_seq_nr] = @Original_batch_seq"& _ "_nr)) AND ((@IsNull_distance_km = 1 AND [distance_km] IS NULL) OR ([distance_km]"& _ " = @Original_distance_km)) AND ((@IsNull_tstmp = 1 AND [tstmp] IS NULL) OR ([tst"& _ "mp] = @Original_tstmp)) AND ((@p15 = 1 AND [original_vat_amount] IS NULL) OR ([o"& _ "riginal_vat_amount] = @p14)) AND ((@IsNull_USteuer_EUR = 1 AND [USteuer_EUR] IS "& _ "NULL) OR ([USteuer_EUR] = @Original_USteuer_EUR)) AND ([charged] = @Original_cha"& _ "rged) AND ((@IsNull_chargedDatetime = 1 AND [chargedDatetime] IS NULL) OR ([char"& _ "gedDatetime] = @Original_chargedDatetime)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_controller_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "controller_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_controller_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "controller_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_partner_haulier_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_haulier_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_partner_haulier_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_haulier_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_supplier_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplier_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_supplier_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplier_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_country", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_domain", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_domain", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_domain", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_domain", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_purchase_datetime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "purchase_datetime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_purchase_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "purchase_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_entry_point_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_point_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_entry_point_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_point_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_entry_datetime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_datetime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_entry_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_exit_point_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_point_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_exit_point_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_point_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_exit_datetime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_datetime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_exit_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_device_product_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "device_product_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_device_product_type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "device_product_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_product_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_product_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_product_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_product_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_license_plate_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "license_plate_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_license_plate_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "license_plate_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vehicle_country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vehicle_country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vehicle_country", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vehicle_country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_currency", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p2", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_currency", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_net_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p5", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_net_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_gross_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p8", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_gross_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_vat_percentage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p11", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_vat_percentage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_customer_currency", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_currency", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_customer_currency", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_currency", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_net_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_net_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_net_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "transaction_net_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_gross_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_gross_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_gross_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "transaction_gross_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_exempt_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exempt_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_exempt_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "exempt_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_msts_fee_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "msts_fee_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_msts_fee_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_fee_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_msts_vat_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "msts_vat_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_msts_vat_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_vat_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_msts_vat_percentage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "msts_vat_percentage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_msts_vat_percentage", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_vat_percentage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_total_gross_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_gross_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_total_gross_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "total_gross_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_status", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_loading_date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "loading_date", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_loading_date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "loading_date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_batch_seq_nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "batch_seq_nr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_batch_seq_nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "batch_seq_nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_distance_km", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "distance_km", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_distance_km", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "distance_km", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_tstmp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_vat_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p14", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_vat_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USteuer_EUR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USteuer_EUR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USteuer_EUR", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "USteuer_EUR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_charged", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "charged", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_chargedDatetime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chargedDatetime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_chargedDatetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chargedDatetime", 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].[tblMSETransactions] ([transaction_id], [controller_id], [partn"& _ "er_haulier_id], [supplier_name], [transaction_country], [transaction_domain], [p"& _ "urchase_datetime], [entry_point_name], [entry_datetime], [exit_point_name], [exi"& _ "t_datetime], [device_product_type], [device_product_number], [transaction_produc"& _ "t_id], [transaction_product_name], [license_plate_number], [vehicle_country], [o"& _ "riginal_currency], [original_net_amount], [original_gross_amount], [original_vat"& _ "_percentage], [customer_currency], [transaction_net_amount], [transaction_gross_"& _ "amount], [exempt_amount], [msts_fee_amount], [msts_vat_amount], [msts_vat_percen"& _ "tage], [total_gross_amount], [transaction_status], [loading_date], [batch_seq_nr"& _ "], [distance_km], [credit_comment], [tstmp], [original_vat_amount], [USteuer_EUR"& _ "], [charged], [chargedDatetime]) VALUES (@transaction_id, @controller_id, @partn"& _ "er_haulier_id, @supplier_name, @transaction_country, @transaction_domain, @purch"& _ "ase_datetime, @entry_point_name, @entry_datetime, @exit_point_name, @exit_dateti"& _ "me, @device_product_type, @device_product_number, @transaction_product_id, @tran"& _ "saction_product_name, @license_plate_number, @vehicle_country, @p1, @p4, @p7, @p"& _ "10, @customer_currency, @transaction_net_amount, @transaction_gross_amount, @exe"& _ "mpt_amount, @msts_fee_amount, @msts_vat_amount, @msts_vat_percentage, @total_gro"& _ "ss_amount, @transaction_status, @loading_date, @batch_seq_nr, @distance_km, @cre"& _ "dit_comment, @tstmp, @p13, @USteuer_EUR, @charged, @chargedDatetime);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT tr"& _ "ansaction_id, controller_id, partner_haulier_id, supplier_name, transaction_coun"& _ "try, transaction_domain, purchase_datetime, entry_point_name, entry_datetime, ex"& _ "it_point_name, exit_datetime, device_product_type, device_product_number, transa"& _ "ction_product_id, transaction_product_name, license_plate_number, vehicle_countr"& _ "y, original_currency, original_net_amount, original_gross_amount, original_vat_p"& _ "ercentage, customer_currency, transaction_net_amount, transaction_gross_amount, "& _ "exempt_amount, msts_fee_amount, msts_vat_amount, msts_vat_percentage, total_gros"& _ "s_amount, transaction_status, loading_date, batch_seq_nr, distance_km, credit_co"& _ "mment, tstmp, original_vat_amount, USteuer_EUR, charged, chargedDatetime FROM tb"& _ "lMSETransactions WHERE (transaction_id = @transaction_id)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@controller_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "controller_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@partner_haulier_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_haulier_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@supplier_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplier_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_country", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_domain", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_domain", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@purchase_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "purchase_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@entry_point_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_point_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@entry_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@exit_point_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_point_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@exit_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@device_product_type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "device_product_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@device_product_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "device_product_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_product_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_product_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_product_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_product_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@license_plate_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "license_plate_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vehicle_country", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vehicle_country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_currency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p4", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_net_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p7", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_gross_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p10", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_vat_percentage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customer_currency", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_currency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_net_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "transaction_net_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_gross_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "transaction_gross_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@exempt_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "exempt_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@msts_fee_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_fee_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@msts_vat_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_vat_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@msts_vat_percentage", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_vat_percentage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@total_gross_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "total_gross_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_status", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@loading_date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "loading_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@batch_seq_nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "batch_seq_nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@distance_km", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "distance_km", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@credit_comment", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "credit_comment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p13", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_vat_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USteuer_EUR", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "USteuer_EUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@charged", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "charged", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@chargedDatetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chargedDatetime", 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].[tblMSETransactions] SET [transaction_id] = @transaction_id, [contro"& _ "ller_id] = @controller_id, [partner_haulier_id] = @partner_haulier_id, [supplier"& _ "_name] = @supplier_name, [transaction_country] = @transaction_country, [transact"& _ "ion_domain] = @transaction_domain, [purchase_datetime] = @purchase_datetime, [en"& _ "try_point_name] = @entry_point_name, [entry_datetime] = @entry_datetime, [exit_p"& _ "oint_name] = @exit_point_name, [exit_datetime] = @exit_datetime, [device_product"& _ "_type] = @device_product_type, [device_product_number] = @device_product_number,"& _ " [transaction_product_id] = @transaction_product_id, [transaction_product_name] "& _ "= @transaction_product_name, [license_plate_number] = @license_plate_number, [ve"& _ "hicle_country] = @vehicle_country, [original_currency] = @p1, [original_net_amou"& _ "nt] = @p4, [original_gross_amount] = @p7, [original_vat_percentage] = @p10, [cus"& _ "tomer_currency] = @customer_currency, [transaction_net_amount] = @transaction_ne"& _ "t_amount, [transaction_gross_amount] = @transaction_gross_amount, [exempt_amount"& _ "] = @exempt_amount, [msts_fee_amount] = @msts_fee_amount, [msts_vat_amount] = @m"& _ "sts_vat_amount, [msts_vat_percentage] = @msts_vat_percentage, [total_gross_amoun"& _ "t] = @total_gross_amount, [transaction_status] = @transaction_status, [loading_d"& _ "ate] = @loading_date, [batch_seq_nr] = @batch_seq_nr, [distance_km] = @distance_"& _ "km, [credit_comment] = @credit_comment, [tstmp] = @tstmp, [original_vat_amount] "& _ "= @p13, [USteuer_EUR] = @USteuer_EUR, [charged] = @charged, [chargedDatetime] = "& _ "@chargedDatetime WHERE (([transaction_id] = @Original_transaction_id) AND ((@IsN"& _ "ull_controller_id = 1 AND [controller_id] IS NULL) OR ([controller_id] = @Origin"& _ "al_controller_id)) AND ((@IsNull_partner_haulier_id = 1 AND [partner_haulier_id]"& _ " IS NULL) OR ([partner_haulier_id] = @Original_partner_haulier_id)) AND ((@IsNul"& _ "l_supplier_name = 1 AND [supplier_name] IS NULL) OR ([supplier_name] = @Original"& _ "_supplier_name)) AND ((@IsNull_transaction_country = 1 AND [transaction_country]"& _ " IS NULL) OR ([transaction_country] = @Original_transaction_country)) AND ((@IsN"& _ "ull_transaction_domain = 1 AND [transaction_domain] IS NULL) OR ([transaction_do"& _ "main] = @Original_transaction_domain)) AND ((@IsNull_purchase_datetime = 1 AND ["& _ "purchase_datetime] IS NULL) OR ([purchase_datetime] = @Original_purchase_datetim"& _ "e)) AND ((@IsNull_entry_point_name = 1 AND [entry_point_name] IS NULL) OR ([entr"& _ "y_point_name] = @Original_entry_point_name)) AND ((@IsNull_entry_datetime = 1 AN"& _ "D [entry_datetime] IS NULL) OR ([entry_datetime] = @Original_entry_datetime)) AN"& _ "D ((@IsNull_exit_point_name = 1 AND [exit_point_name] IS NULL) OR ([exit_point_n"& _ "ame] = @Original_exit_point_name)) AND ((@IsNull_exit_datetime = 1 AND [exit_dat"& _ "etime] IS NULL) OR ([exit_datetime] = @Original_exit_datetime)) AND ((@IsNull_de"& _ "vice_product_type = 1 AND [device_product_type] IS NULL) OR ([device_product_typ"& _ "e] = @Original_device_product_type)) AND ((@IsNull_transaction_product_id = 1 AN"& _ "D [transaction_product_id] IS NULL) OR ([transaction_product_id] = @Original_tra"& _ "nsaction_product_id)) AND ((@IsNull_license_plate_number = 1 AND [license_plate_"& _ "number] IS NULL) OR ([license_plate_number] = @Original_license_plate_number)) A"& _ "ND ((@IsNull_vehicle_country = 1 AND [vehicle_country] IS NULL) OR ([vehicle_cou"& _ "ntry] = @Original_vehicle_country)) AND ((@p3 = 1 AND [original_currency] IS NUL"& _ "L) OR ([original_currency] = @p2)) AND ((@p6 = 1 AND [original_net_amount] IS NU"& _ "LL) OR ([original_net_amount] = @p5)) AND ((@p9 = 1 AND [original_gross_amount] "& _ "IS NULL) OR ([original_gross_amount] = @p8)) AND ((@p12 = 1 AND [original_vat_pe"& _ "rcentage] IS NULL) OR ([original_vat_percentage] = @p11)) AND ((@IsNull_customer"& _ "_currency = 1 AND [customer_currency] IS NULL) OR ([customer_currency] = @Origin"& _ "al_customer_currency)) AND ((@IsNull_transaction_net_amount = 1 AND [transaction"& _ "_net_amount] IS NULL) OR ([transaction_net_amount] = @Original_transaction_net_a"& _ "mount)) AND ((@IsNull_transaction_gross_amount = 1 AND [transaction_gross_amount"& _ "] IS NULL) OR ([transaction_gross_amount] = @Original_transaction_gross_amount))"& _ " AND ((@IsNull_exempt_amount = 1 AND [exempt_amount] IS NULL) OR ([exempt_amount"& _ "] = @Original_exempt_amount)) AND ((@IsNull_msts_fee_amount = 1 AND [msts_fee_am"& _ "ount] IS NULL) OR ([msts_fee_amount] = @Original_msts_fee_amount)) AND ((@IsNull"& _ "_msts_vat_amount = 1 AND [msts_vat_amount] IS NULL) OR ([msts_vat_amount] = @Ori"& _ "ginal_msts_vat_amount)) AND ((@IsNull_msts_vat_percentage = 1 AND [msts_vat_perc"& _ "entage] IS NULL) OR ([msts_vat_percentage] = @Original_msts_vat_percentage)) AND"& _ " ((@IsNull_total_gross_amount = 1 AND [total_gross_amount] IS NULL) OR ([total_g"& _ "ross_amount] = @Original_total_gross_amount)) AND ((@IsNull_transaction_status ="& _ " 1 AND [transaction_status] IS NULL) OR ([transaction_status] = @Original_transa"& _ "ction_status)) AND ((@IsNull_loading_date = 1 AND [loading_date] IS NULL) OR ([l"& _ "oading_date] = @Original_loading_date)) AND ((@IsNull_batch_seq_nr = 1 AND [batc"& _ "h_seq_nr] IS NULL) OR ([batch_seq_nr] = @Original_batch_seq_nr)) AND ((@IsNull_d"& _ "istance_km = 1 AND [distance_km] IS NULL) OR ([distance_km] = @Original_distance"& _ "_km)) AND ((@IsNull_tstmp = 1 AND [tstmp] IS NULL) OR ([tstmp] = @Original_tstmp"& _ ")) AND ((@p15 = 1 AND [original_vat_amount] IS NULL) OR ([original_vat_amount] ="& _ " @p14)) AND ((@IsNull_USteuer_EUR = 1 AND [USteuer_EUR] IS NULL) OR ([USteuer_EU"& _ "R] = @Original_USteuer_EUR)) AND ([charged] = @Original_charged) AND ((@IsNull_c"& _ "hargedDatetime = 1 AND [chargedDatetime] IS NULL) OR ([chargedDatetime] = @Origi"& _ "nal_chargedDatetime)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT transaction_id, controller_id, partner_haulier_i"& _ "d, supplier_name, transaction_country, transaction_domain, purchase_datetime, en"& _ "try_point_name, entry_datetime, exit_point_name, exit_datetime, device_product_t"& _ "ype, device_product_number, transaction_product_id, transaction_product_name, li"& _ "cense_plate_number, vehicle_country, original_currency, original_net_amount, ori"& _ "ginal_gross_amount, original_vat_percentage, customer_currency, transaction_net_"& _ "amount, transaction_gross_amount, exempt_amount, msts_fee_amount, msts_vat_amoun"& _ "t, msts_vat_percentage, total_gross_amount, transaction_status, loading_date, ba"& _ "tch_seq_nr, distance_km, credit_comment, tstmp, original_vat_amount, USteuer_EUR"& _ ", charged, chargedDatetime FROM tblMSETransactions WHERE (transaction_id = @tran"& _ "saction_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@controller_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "controller_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@partner_haulier_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_haulier_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@supplier_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplier_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_country", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_domain", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_domain", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@purchase_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "purchase_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@entry_point_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_point_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@entry_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@exit_point_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_point_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@exit_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@device_product_type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "device_product_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@device_product_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "device_product_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_product_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_product_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_product_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_product_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@license_plate_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "license_plate_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vehicle_country", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vehicle_country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_currency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p4", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_net_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p7", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_gross_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p10", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_vat_percentage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@customer_currency", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_currency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_net_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "transaction_net_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_gross_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "transaction_gross_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@exempt_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "exempt_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@msts_fee_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_fee_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@msts_vat_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_vat_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@msts_vat_percentage", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_vat_percentage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@total_gross_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "total_gross_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@transaction_status", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@loading_date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "loading_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@batch_seq_nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "batch_seq_nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@distance_km", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "distance_km", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@credit_comment", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "credit_comment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p13", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_vat_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USteuer_EUR", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "USteuer_EUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@charged", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "charged", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@chargedDatetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chargedDatetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_controller_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "controller_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_controller_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "controller_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_partner_haulier_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_haulier_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_partner_haulier_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "partner_haulier_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_supplier_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplier_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_supplier_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplier_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_country", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_domain", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_domain", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_domain", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_domain", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_purchase_datetime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "purchase_datetime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_purchase_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "purchase_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_entry_point_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_point_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_entry_point_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_point_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_entry_datetime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_datetime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_entry_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "entry_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_exit_point_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_point_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_exit_point_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_point_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_exit_datetime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_datetime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_exit_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exit_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_device_product_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "device_product_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_device_product_type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "device_product_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_product_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_product_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_product_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_product_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_license_plate_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "license_plate_number", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_license_plate_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "license_plate_number", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vehicle_country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vehicle_country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vehicle_country", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vehicle_country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_currency", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p2", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_currency", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_net_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p5", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_net_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_gross_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p8", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_gross_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_vat_percentage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p11", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_vat_percentage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_customer_currency", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_currency", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_customer_currency", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "customer_currency", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_net_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_net_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_net_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "transaction_net_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_gross_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_gross_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_gross_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "transaction_gross_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_exempt_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "exempt_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_exempt_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "exempt_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_msts_fee_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "msts_fee_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_msts_fee_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_fee_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_msts_vat_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "msts_vat_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_msts_vat_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_vat_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_msts_vat_percentage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "msts_vat_percentage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_msts_vat_percentage", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "msts_vat_percentage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_total_gross_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_gross_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_total_gross_amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "total_gross_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_transaction_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_transaction_status", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "transaction_status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_loading_date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "loading_date", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_loading_date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "loading_date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_batch_seq_nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "batch_seq_nr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_batch_seq_nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "batch_seq_nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_distance_km", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "distance_km", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_distance_km", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "distance_km", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_tstmp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tstmp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "original_vat_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p14", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "original_vat_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USteuer_EUR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USteuer_EUR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USteuer_EUR", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "USteuer_EUR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_charged", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "charged", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_chargedDatetime", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chargedDatetime", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_chargedDatetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "chargedDatetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 transaction_id, controller_id, partner_haulier_id, supplier_name, transact"& _ "ion_country, transaction_domain, purchase_datetime, entry_point_name, entry_date"& _ "time, exit_point_name, exit_datetime, device_product_type, device_product_number"& _ ", transaction_product_id, transaction_product_name, license_plate_number, vehicl"& _ "e_country, original_currency, original_net_amount, original_gross_amount, origin"& _ "al_vat_percentage, customer_currency, transaction_net_amount, transaction_gross_"& _ "amount, exempt_amount, msts_fee_amount, msts_vat_amount, msts_vat_percentage, to"& _ "tal_gross_amount, transaction_status, loading_date, batch_seq_nr, distance_km, c"& _ "redit_comment, tstmp, original_vat_amount, USteuer_EUR, charged, chargedDatetime"& _ " FROM dbo.tblMSETransactions" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMSETransactionsDataTable) 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 VERAGDataSet.tblMSETransactionsDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMSETransactionsDataTable = New VERAGDataSet.tblMSETransactionsDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMSETransactionsDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMSETransactions") 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_transaction_id As Integer, _ ByVal Original_controller_id As Global.System.Nullable(Of Integer), _ ByVal Original_partner_haulier_id As Global.System.Nullable(Of Integer), _ ByVal Original_supplier_name As String, _ ByVal Original_transaction_country As String, _ ByVal Original_transaction_domain As String, _ ByVal Original_purchase_datetime As Global.System.Nullable(Of Date), _ ByVal Original_entry_point_name As String, _ ByVal Original_entry_datetime As Global.System.Nullable(Of Date), _ ByVal Original_exit_point_name As String, _ ByVal Original_exit_datetime As Global.System.Nullable(Of Date), _ ByVal Original_device_product_type As String, _ ByVal Original_transaction_product_id As Global.System.Nullable(Of Integer), _ ByVal Original_license_plate_number As String, _ ByVal Original_vehicle_country As String, _ ByVal p2 As String, _ ByVal p5 As Global.System.Nullable(Of Decimal), _ ByVal p8 As Global.System.Nullable(Of Decimal), _ ByVal p11 As Global.System.Nullable(Of Decimal), _ ByVal Original_customer_currency As String, _ ByVal Original_transaction_net_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_transaction_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_exempt_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_msts_fee_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_msts_vat_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_msts_vat_percentage As Global.System.Nullable(Of Decimal), _ ByVal Original_total_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_transaction_status As String, _ ByVal Original_loading_date As Global.System.Nullable(Of Date), _ ByVal Original_batch_seq_nr As Global.System.Nullable(Of Integer), _ ByVal Original_distance_km As Global.System.Nullable(Of Decimal), _ ByVal Original_tstmp As Global.System.Nullable(Of Date), _ ByVal p14 As Global.System.Nullable(Of Decimal), _ ByVal Original_USteuer_EUR As Global.System.Nullable(Of Decimal), _ ByVal Original_charged As Boolean, _ ByVal Original_chargedDatetime As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_transaction_id,Integer) If (Original_controller_id.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_controller_id.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_partner_haulier_id.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_partner_haulier_id.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_supplier_name 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_supplier_name,String) End If If (Original_transaction_country 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_transaction_country,String) End If If (Original_transaction_domain 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_transaction_domain,String) End If If (Original_purchase_datetime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_purchase_datetime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_entry_point_name 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_entry_point_name,String) End If If (Original_entry_datetime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_entry_datetime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_exit_point_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_exit_point_name,String) End If If (Original_exit_datetime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_exit_datetime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_device_product_type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_device_product_type,String) End If If (Original_transaction_product_id.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_transaction_product_id.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_license_plate_number Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_license_plate_number,String) End If If (Original_vehicle_country Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_vehicle_country,String) End If If (p2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(p2,String) End If If (p5.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(p5.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (p8.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(p8.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (p11.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(p11.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Original_customer_currency Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_customer_currency,String) End If If (Original_transaction_net_amount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_transaction_net_amount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (Original_transaction_gross_amount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_transaction_gross_amount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (Original_exempt_amount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_exempt_amount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Original_msts_fee_amount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_msts_fee_amount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (Original_msts_vat_amount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_msts_vat_amount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Original_msts_vat_percentage.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_msts_vat_percentage.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Original_total_gross_amount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_total_gross_amount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Original_transaction_status Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_transaction_status,String) End If If (Original_loading_date.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_loading_date.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Original_batch_seq_nr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_batch_seq_nr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value End If If (Original_distance_km.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_distance_km.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (Original_tstmp.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_tstmp.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (p14.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(p14.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Original_USteuer_EUR.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_USteuer_EUR.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_charged,Boolean) If (Original_chargedDatetime.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = CType(Original_chargedDatetime.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(69).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 transaction_id As Integer, _ ByVal controller_id As Global.System.Nullable(Of Integer), _ ByVal partner_haulier_id As Global.System.Nullable(Of Integer), _ ByVal supplier_name As String, _ ByVal transaction_country As String, _ ByVal transaction_domain As String, _ ByVal purchase_datetime As Global.System.Nullable(Of Date), _ ByVal entry_point_name As String, _ ByVal entry_datetime As Global.System.Nullable(Of Date), _ ByVal exit_point_name As String, _ ByVal exit_datetime As Global.System.Nullable(Of Date), _ ByVal device_product_type As String, _ ByVal device_product_number As String, _ ByVal transaction_product_id As Global.System.Nullable(Of Integer), _ ByVal transaction_product_name As String, _ ByVal license_plate_number As String, _ ByVal vehicle_country As String, _ ByVal p1 As String, _ ByVal p4 As Global.System.Nullable(Of Decimal), _ ByVal p7 As Global.System.Nullable(Of Decimal), _ ByVal p10 As Global.System.Nullable(Of Decimal), _ ByVal customer_currency As String, _ ByVal transaction_net_amount As Global.System.Nullable(Of Decimal), _ ByVal transaction_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal exempt_amount As Global.System.Nullable(Of Decimal), _ ByVal msts_fee_amount As Global.System.Nullable(Of Decimal), _ ByVal msts_vat_amount As Global.System.Nullable(Of Decimal), _ ByVal msts_vat_percentage As Global.System.Nullable(Of Decimal), _ ByVal total_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal transaction_status As String, _ ByVal loading_date As Global.System.Nullable(Of Date), _ ByVal batch_seq_nr As Global.System.Nullable(Of Integer), _ ByVal distance_km As Global.System.Nullable(Of Decimal), _ ByVal credit_comment As String, _ ByVal tstmp As Global.System.Nullable(Of Date), _ ByVal p13 As Global.System.Nullable(Of Decimal), _ ByVal USteuer_EUR As Global.System.Nullable(Of Decimal), _ ByVal charged As Boolean, _ ByVal chargedDatetime As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(transaction_id,Integer) If (controller_id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(controller_id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (partner_haulier_id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(partner_haulier_id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (supplier_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(supplier_name,String) End If If (transaction_country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(transaction_country,String) End If If (transaction_domain Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(transaction_domain,String) End If If (purchase_datetime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(purchase_datetime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (entry_point_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(entry_point_name,String) End If If (entry_datetime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(entry_datetime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (exit_point_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(exit_point_name,String) End If If (exit_datetime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(exit_datetime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (device_product_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(device_product_type,String) End If If (device_product_number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(device_product_number,String) End If If (transaction_product_id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(transaction_product_id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (transaction_product_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(transaction_product_name,String) End If If (license_plate_number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(license_plate_number,String) End If If (vehicle_country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(vehicle_country,String) End If If (p1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(p1,String) End If If (p4.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(p4.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (p7.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(p7.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (p10.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(p10.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (customer_currency Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(customer_currency,String) End If If (transaction_net_amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(transaction_net_amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (transaction_gross_amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(transaction_gross_amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (exempt_amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(exempt_amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (msts_fee_amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(msts_fee_amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (msts_vat_amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(msts_vat_amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (msts_vat_percentage.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(msts_vat_percentage.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (total_gross_amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(total_gross_amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (transaction_status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(transaction_status,String) End If If (loading_date.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(loading_date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (batch_seq_nr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(batch_seq_nr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (distance_km.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(distance_km.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (credit_comment Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(credit_comment,String) End If If (tstmp.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(tstmp.Value,Date) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (p13.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(p13.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (USteuer_EUR.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(36).Value = CType(USteuer_EUR.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(37).Value = CType(charged,Boolean) If (chargedDatetime.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(38).Value = CType(chargedDatetime.Value,Date) Else Me.Adapter.InsertCommand.Parameters(38).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 transaction_id As Integer, _ ByVal controller_id As Global.System.Nullable(Of Integer), _ ByVal partner_haulier_id As Global.System.Nullable(Of Integer), _ ByVal supplier_name As String, _ ByVal transaction_country As String, _ ByVal transaction_domain As String, _ ByVal purchase_datetime As Global.System.Nullable(Of Date), _ ByVal entry_point_name As String, _ ByVal entry_datetime As Global.System.Nullable(Of Date), _ ByVal exit_point_name As String, _ ByVal exit_datetime As Global.System.Nullable(Of Date), _ ByVal device_product_type As String, _ ByVal device_product_number As String, _ ByVal transaction_product_id As Global.System.Nullable(Of Integer), _ ByVal transaction_product_name As String, _ ByVal license_plate_number As String, _ ByVal vehicle_country As String, _ ByVal p1 As String, _ ByVal p4 As Global.System.Nullable(Of Decimal), _ ByVal p7 As Global.System.Nullable(Of Decimal), _ ByVal p10 As Global.System.Nullable(Of Decimal), _ ByVal customer_currency As String, _ ByVal transaction_net_amount As Global.System.Nullable(Of Decimal), _ ByVal transaction_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal exempt_amount As Global.System.Nullable(Of Decimal), _ ByVal msts_fee_amount As Global.System.Nullable(Of Decimal), _ ByVal msts_vat_amount As Global.System.Nullable(Of Decimal), _ ByVal msts_vat_percentage As Global.System.Nullable(Of Decimal), _ ByVal total_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal transaction_status As String, _ ByVal loading_date As Global.System.Nullable(Of Date), _ ByVal batch_seq_nr As Global.System.Nullable(Of Integer), _ ByVal distance_km As Global.System.Nullable(Of Decimal), _ ByVal credit_comment As String, _ ByVal tstmp As Global.System.Nullable(Of Date), _ ByVal p13 As Global.System.Nullable(Of Decimal), _ ByVal USteuer_EUR As Global.System.Nullable(Of Decimal), _ ByVal charged As Boolean, _ ByVal chargedDatetime As Global.System.Nullable(Of Date), _ ByVal Original_transaction_id As Integer, _ ByVal Original_controller_id As Global.System.Nullable(Of Integer), _ ByVal Original_partner_haulier_id As Global.System.Nullable(Of Integer), _ ByVal Original_supplier_name As String, _ ByVal Original_transaction_country As String, _ ByVal Original_transaction_domain As String, _ ByVal Original_purchase_datetime As Global.System.Nullable(Of Date), _ ByVal Original_entry_point_name As String, _ ByVal Original_entry_datetime As Global.System.Nullable(Of Date), _ ByVal Original_exit_point_name As String, _ ByVal Original_exit_datetime As Global.System.Nullable(Of Date), _ ByVal Original_device_product_type As String, _ ByVal Original_transaction_product_id As Global.System.Nullable(Of Integer), _ ByVal Original_license_plate_number As String, _ ByVal Original_vehicle_country As String, _ ByVal p2 As String, _ ByVal p5 As Global.System.Nullable(Of Decimal), _ ByVal p8 As Global.System.Nullable(Of Decimal), _ ByVal p11 As Global.System.Nullable(Of Decimal), _ ByVal Original_customer_currency As String, _ ByVal Original_transaction_net_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_transaction_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_exempt_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_msts_fee_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_msts_vat_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_msts_vat_percentage As Global.System.Nullable(Of Decimal), _ ByVal Original_total_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_transaction_status As String, _ ByVal Original_loading_date As Global.System.Nullable(Of Date), _ ByVal Original_batch_seq_nr As Global.System.Nullable(Of Integer), _ ByVal Original_distance_km As Global.System.Nullable(Of Decimal), _ ByVal Original_tstmp As Global.System.Nullable(Of Date), _ ByVal p14 As Global.System.Nullable(Of Decimal), _ ByVal Original_USteuer_EUR As Global.System.Nullable(Of Decimal), _ ByVal Original_charged As Boolean, _ ByVal Original_chargedDatetime As Global.System.Nullable(Of Date)) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(transaction_id,Integer) If (controller_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(controller_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (partner_haulier_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(partner_haulier_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (supplier_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(supplier_name,String) End If If (transaction_country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(transaction_country,String) End If If (transaction_domain Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(transaction_domain,String) End If If (purchase_datetime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(purchase_datetime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (entry_point_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(entry_point_name,String) End If If (entry_datetime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(entry_datetime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (exit_point_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(exit_point_name,String) End If If (exit_datetime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(exit_datetime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (device_product_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(device_product_type,String) End If If (device_product_number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(device_product_number,String) End If If (transaction_product_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(transaction_product_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (transaction_product_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(transaction_product_name,String) End If If (license_plate_number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(license_plate_number,String) End If If (vehicle_country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(vehicle_country,String) End If If (p1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(p1,String) End If If (p4.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(p4.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (p7.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(p7.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (p10.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(p10.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (customer_currency Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(customer_currency,String) End If If (transaction_net_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(transaction_net_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (transaction_gross_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(transaction_gross_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (exempt_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(exempt_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (msts_fee_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(msts_fee_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (msts_vat_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(msts_vat_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (msts_vat_percentage.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(msts_vat_percentage.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (total_gross_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(total_gross_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (transaction_status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(transaction_status,String) End If If (loading_date.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(loading_date.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (batch_seq_nr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(batch_seq_nr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (distance_km.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(distance_km.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (credit_comment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(credit_comment,String) End If If (tstmp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(tstmp.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (p13.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(p13.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (USteuer_EUR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(USteuer_EUR.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(37).Value = CType(charged,Boolean) If (chargedDatetime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(chargedDatetime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_transaction_id,Integer) If (Original_controller_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_controller_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Original_partner_haulier_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_partner_haulier_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Original_supplier_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_supplier_name,String) End If If (Original_transaction_country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_transaction_country,String) End If If (Original_transaction_domain Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_transaction_domain,String) End If If (Original_purchase_datetime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_purchase_datetime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_entry_point_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_entry_point_name,String) End If If (Original_entry_datetime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_entry_datetime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Original_exit_point_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_exit_point_name,String) End If If (Original_exit_datetime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_exit_datetime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Original_device_product_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_device_product_type,String) End If If (Original_transaction_product_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_transaction_product_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Original_license_plate_number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_license_plate_number,String) End If If (Original_vehicle_country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_vehicle_country,String) End If If (p2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = CType(p2,String) End If If (p5.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = CType(p5.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (p8.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(p8.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value End If If (p11.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = CType(p11.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value End If If (Original_customer_currency Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_customer_currency,String) End If If (Original_transaction_net_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_transaction_net_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (Original_transaction_gross_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_transaction_gross_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value End If If (Original_exempt_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_exempt_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (Original_msts_fee_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_msts_fee_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Original_msts_vat_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_msts_vat_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (Original_msts_vat_percentage.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_msts_vat_percentage.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value End If If (Original_total_gross_amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_total_gross_amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value End If If (Original_transaction_status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_transaction_status,String) End If If (Original_loading_date.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_loading_date.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value End If If (Original_batch_seq_nr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_batch_seq_nr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value End If If (Original_distance_km.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_distance_km.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value End If If (Original_tstmp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = CType(Original_tstmp.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value End If If (p14.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(103).Value = CType(p14.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value End If If (Original_USteuer_EUR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_USteuer_EUR.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(106).Value = CType(Original_charged,Boolean) If (Original_chargedDatetime.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = CType(Original_chargedDatetime.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value End If 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 controller_id As Global.System.Nullable(Of Integer), _ ByVal partner_haulier_id As Global.System.Nullable(Of Integer), _ ByVal supplier_name As String, _ ByVal transaction_country As String, _ ByVal transaction_domain As String, _ ByVal purchase_datetime As Global.System.Nullable(Of Date), _ ByVal entry_point_name As String, _ ByVal entry_datetime As Global.System.Nullable(Of Date), _ ByVal exit_point_name As String, _ ByVal exit_datetime As Global.System.Nullable(Of Date), _ ByVal device_product_type As String, _ ByVal device_product_number As String, _ ByVal transaction_product_id As Global.System.Nullable(Of Integer), _ ByVal transaction_product_name As String, _ ByVal license_plate_number As String, _ ByVal vehicle_country As String, _ ByVal p1 As String, _ ByVal p4 As Global.System.Nullable(Of Decimal), _ ByVal p7 As Global.System.Nullable(Of Decimal), _ ByVal p10 As Global.System.Nullable(Of Decimal), _ ByVal customer_currency As String, _ ByVal transaction_net_amount As Global.System.Nullable(Of Decimal), _ ByVal transaction_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal exempt_amount As Global.System.Nullable(Of Decimal), _ ByVal msts_fee_amount As Global.System.Nullable(Of Decimal), _ ByVal msts_vat_amount As Global.System.Nullable(Of Decimal), _ ByVal msts_vat_percentage As Global.System.Nullable(Of Decimal), _ ByVal total_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal transaction_status As String, _ ByVal loading_date As Global.System.Nullable(Of Date), _ ByVal batch_seq_nr As Global.System.Nullable(Of Integer), _ ByVal distance_km As Global.System.Nullable(Of Decimal), _ ByVal credit_comment As String, _ ByVal tstmp As Global.System.Nullable(Of Date), _ ByVal p13 As Global.System.Nullable(Of Decimal), _ ByVal USteuer_EUR As Global.System.Nullable(Of Decimal), _ ByVal charged As Boolean, _ ByVal chargedDatetime As Global.System.Nullable(Of Date), _ ByVal Original_transaction_id As Integer, _ ByVal Original_controller_id As Global.System.Nullable(Of Integer), _ ByVal Original_partner_haulier_id As Global.System.Nullable(Of Integer), _ ByVal Original_supplier_name As String, _ ByVal Original_transaction_country As String, _ ByVal Original_transaction_domain As String, _ ByVal Original_purchase_datetime As Global.System.Nullable(Of Date), _ ByVal Original_entry_point_name As String, _ ByVal Original_entry_datetime As Global.System.Nullable(Of Date), _ ByVal Original_exit_point_name As String, _ ByVal Original_exit_datetime As Global.System.Nullable(Of Date), _ ByVal Original_device_product_type As String, _ ByVal Original_transaction_product_id As Global.System.Nullable(Of Integer), _ ByVal Original_license_plate_number As String, _ ByVal Original_vehicle_country As String, _ ByVal p2 As String, _ ByVal p5 As Global.System.Nullable(Of Decimal), _ ByVal p8 As Global.System.Nullable(Of Decimal), _ ByVal p11 As Global.System.Nullable(Of Decimal), _ ByVal Original_customer_currency As String, _ ByVal Original_transaction_net_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_transaction_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_exempt_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_msts_fee_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_msts_vat_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_msts_vat_percentage As Global.System.Nullable(Of Decimal), _ ByVal Original_total_gross_amount As Global.System.Nullable(Of Decimal), _ ByVal Original_transaction_status As String, _ ByVal Original_loading_date As Global.System.Nullable(Of Date), _ ByVal Original_batch_seq_nr As Global.System.Nullable(Of Integer), _ ByVal Original_distance_km As Global.System.Nullable(Of Decimal), _ ByVal Original_tstmp As Global.System.Nullable(Of Date), _ ByVal p14 As Global.System.Nullable(Of Decimal), _ ByVal Original_USteuer_EUR As Global.System.Nullable(Of Decimal), _ ByVal Original_charged As Boolean, _ ByVal Original_chargedDatetime As Global.System.Nullable(Of Date)) As Integer Return Me.Update(Original_transaction_id, controller_id, partner_haulier_id, supplier_name, transaction_country, transaction_domain, purchase_datetime, entry_point_name, entry_datetime, exit_point_name, exit_datetime, device_product_type, device_product_number, transaction_product_id, transaction_product_name, license_plate_number, vehicle_country, p1, p4, p7, p10, customer_currency, transaction_net_amount, transaction_gross_amount, exempt_amount, msts_fee_amount, msts_vat_amount, msts_vat_percentage, total_gross_amount, transaction_status, loading_date, batch_seq_nr, distance_km, credit_comment, tstmp, p13, USteuer_EUR, charged, chargedDatetime, Original_transaction_id, Original_controller_id, Original_partner_haulier_id, Original_supplier_name, Original_transaction_country, Original_transaction_domain, Original_purchase_datetime, Original_entry_point_name, Original_entry_datetime, Original_exit_point_name, Original_exit_datetime, Original_device_product_type, Original_transaction_product_id, Original_license_plate_number, Original_vehicle_country, p2, p5, p8, p11, Original_customer_currency, Original_transaction_net_amount, Original_transaction_gross_amount, Original_exempt_amount, Original_msts_fee_amount, Original_msts_vat_amount, Original_msts_vat_percentage, Original_total_gross_amount, Original_transaction_status, Original_loading_date, Original_batch_seq_nr, Original_distance_km, Original_tstmp, p14, Original_USteuer_EUR, Original_charged, Original_chargedDatetime) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMSETransactionsArchivTableAdapter 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 = "tblMSETransactionsArchiv" tableMapping.ColumnMappings.Add("Controller ID", "Controller ID") tableMapping.ColumnMappings.Add("Controller Name", "Controller Name") tableMapping.ColumnMappings.Add("Invoice ID", "Invoice ID") tableMapping.ColumnMappings.Add("Invoice Date", "Invoice Date") tableMapping.ColumnMappings.Add("Customer ID", "Customer ID") tableMapping.ColumnMappings.Add("Customer No", "Customer No") tableMapping.ColumnMappings.Add("Customer name", "Customer name") tableMapping.ColumnMappings.Add("Specification Page", "Specification Page") tableMapping.ColumnMappings.Add("Specification ID", "Specification ID") tableMapping.ColumnMappings.Add("Transaction date", "Transaction date") tableMapping.ColumnMappings.Add("Transaction Month", "Transaction Month") tableMapping.ColumnMappings.Add("Transaction ID", "Transaction ID") tableMapping.ColumnMappings.Add("Transaction Supplier/Terminal", "Transaction Supplier/Terminal") tableMapping.ColumnMappings.Add("Transaction Country", "Transaction Country") tableMapping.ColumnMappings.Add("Product description", "Product description") tableMapping.ColumnMappings.Add("Product Description ID", "Product Description ID") tableMapping.ColumnMappings.Add("Card Type", "Card Type") tableMapping.ColumnMappings.Add("Card number", "Card number") tableMapping.ColumnMappings.Add("Load File Licence Plate Number", "Load File Licence Plate Number") tableMapping.ColumnMappings.Add("Card Licence Plate Number", "Card Licence Plate Number") tableMapping.ColumnMappings.Add("Truck Licence Plate Number", "Truck Licence Plate Number") tableMapping.ColumnMappings.Add("Truck Fleet Code", "Truck Fleet Code") tableMapping.ColumnMappings.Add("Truck Driver Name", "Truck Driver Name") tableMapping.ColumnMappings.Add("Entry Terminal/Direction", "Entry Terminal/Direction") tableMapping.ColumnMappings.Add("Start date", "Start date") tableMapping.ColumnMappings.Add("Start Time", "Start Time") tableMapping.ColumnMappings.Add("Exit Terminal Description", "Exit Terminal Description") tableMapping.ColumnMappings.Add("End Date", "End Date") tableMapping.ColumnMappings.Add("End Time", "End Time") tableMapping.ColumnMappings.Add("Eurovignet K-Number", "Eurovignet K-Number") tableMapping.ColumnMappings.Add("LKW-Kostenstelle", "LKW-Kostenstelle") tableMapping.ColumnMappings.Add("Original Nett Amount", "Original Nett Amount") tableMapping.ColumnMappings.Add("Original VAT Amount", "Original VAT Amount") tableMapping.ColumnMappings.Add("Original Amount", "Original Amount") tableMapping.ColumnMappings.Add("Original Currency", "Original Currency") tableMapping.ColumnMappings.Add("Transaction Amount ( EUR )", "Transaction Amount ( EUR )") tableMapping.ColumnMappings.Add("Admin Fee Amount ( EUR )", "Admin Fee Amount ( EUR )") tableMapping.ColumnMappings.Add("Fees and Costs Amount ( EUR )", "Fees and Costs Amount ( EUR )") tableMapping.ColumnMappings.Add("VAT Amount ( EUR )", "VAT Amount ( EUR )") tableMapping.ColumnMappings.Add("Total Amount ( EUR )", "Total Amount ( EUR )") tableMapping.ColumnMappings.Add("Total Dutch VAT ( EUR )", "Total Dutch VAT ( EUR )") tableMapping.ColumnMappings.Add("Total Foreign VAT ( EUR )", "Total Foreign VAT ( EUR )") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("Dateiname", "Dateiname") tableMapping.ColumnMappings.Add("LfdNr", "LfdNr") 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].[tblMSETransactionsArchiv] WHERE (((@IsNull_upsize_ts = 1 AND ["& _ "upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)) AND ([Dateiname] = @"& _ "Original_Dateiname) AND ([LfdNr] = @Original_LfdNr))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LfdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdNr", 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].[tblMSETransactionsArchiv] ([Controller ID], [Controller Name],"& _ " [Invoice ID], [Invoice Date], [Customer ID], [Customer No], [Customer name], [S"& _ "pecification Page], [Specification ID], [Transaction date], [Transaction Month],"& _ " [Transaction ID], [Transaction Supplier/Terminal], [Transaction Country], [Prod"& _ "uct description], [Product Description ID], [Card Type], [Card number], [Load Fi"& _ "le Licence Plate Number], [Card Licence Plate Number], [Truck Licence Plate Numb"& _ "er], [Truck Fleet Code], [Truck Driver Name], [Entry Terminal/Direction], [Start"& _ " date], [Start Time], [Exit Terminal Description], [End Date], [End Time], [Euro"& _ "vignet K-Number], [LKW-Kostenstelle], [Original Nett Amount], [Original VAT Amou"& _ "nt], [Original Amount], [Original Currency], [Transaction Amount ( EUR )], [Admi"& _ "n Fee Amount ( EUR )], [Fees and Costs Amount ( EUR )], [VAT Amount ( EUR )], [T"& _ "otal Amount ( EUR )], [Total Dutch VAT ( EUR )], [Total Foreign VAT ( EUR )], [U"& _ "StVAn_ID], [Dateiname], [LfdNr]) VALUES (@Controller_ID, @Controller_Name, @Invo"& _ "ice_ID, @Invoice_Date, @Customer_ID, @Customer_No, @Customer_name, @Specificatio"& _ "n_Page, @Specification_ID, @Transaction_date, @Transaction_Month, @Transaction_I"& _ "D, @p1, @Transaction_Country, @Product_description, @Product_Description_ID, @Ca"& _ "rd_Type, @Card_number, @Load_File_Licence_Plate_Number, @Card_Licence_Plate_Numb"& _ "er, @Truck_Licence_Plate_Number, @Truck_Fleet_Code, @Truck_Driver_Name, @p4, @St"& _ "art_date, @Start_Time, @Exit_Terminal_Description, @End_Date, @End_Time, @p7, @p"& _ "10, @Original_Nett_Amount, @Original_VAT_Amount, @Original_Amount, @Original_Cur"& _ "rency, @p13, @p16, @p19, @p22, @p25, @p28, @p31, @UStVAn_ID, @Dateiname, @LfdNr)"& _ ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT [Controller ID], [Controller Name], [Invoice ID], [Invoice Date], [Cus"& _ "tomer ID], [Customer No], [Customer name], [Specification Page], [Specification "& _ "ID], [Transaction date], [Transaction Month], [Transaction ID], [Transaction Sup"& _ "plier/Terminal], [Transaction Country], [Product description], [Product Descript"& _ "ion ID], [Card Type], [Card number], [Load File Licence Plate Number], [Card Lic"& _ "ence Plate Number], [Truck Licence Plate Number], [Truck Fleet Code], [Truck Dri"& _ "ver Name], [Entry Terminal/Direction], [Start date], [Start Time], [Exit Termina"& _ "l Description], [End Date], [End Time], [Eurovignet K-Number], [LKW-Kostenstelle"& _ "], [Original Nett Amount], [Original VAT Amount], [Original Amount], [Original C"& _ "urrency], [Transaction Amount ( EUR )], [Admin Fee Amount ( EUR )], [Fees and Co"& _ "sts Amount ( EUR )], [VAT Amount ( EUR )], [Total Amount ( EUR )], [Total Dutch "& _ "VAT ( EUR )], [Total Foreign VAT ( EUR )], UStVAn_ID, upsize_ts, Dateiname, LfdN"& _ "r FROM tblMSETransactionsArchiv WHERE (Dateiname = @Dateiname) AND (LfdNr = @Lfd"& _ "Nr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Controller_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Controller ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Controller_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Controller Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Invoice_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Invoice ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Invoice_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Invoice Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_No", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer No", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Specification_Page", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Specification Page", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Specification_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Specification ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_Month", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Month", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Supplier/Terminal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Product_description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Product description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Product_Description_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Product Description ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Load_File_Licence_Plate_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Load File Licence Plate Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Licence_Plate_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Licence Plate Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Truck_Licence_Plate_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Truck Licence Plate Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Truck_Fleet_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Truck Fleet Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Truck_Driver_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Truck Driver Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Entry Terminal/Direction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Start_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Start date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Start_Time", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Start Time", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Exit_Terminal_Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Exit Terminal Description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@End_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "End Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@End_Time", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "End Time", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p7", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eurovignet K-Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p10", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW-Kostenstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nett_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original Nett Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original VAT Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Currency", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original Currency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p13", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p16", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Admin Fee Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p19", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fees and Costs Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p22", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VAT Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p25", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p28", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Dutch VAT ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p31", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Foreign VAT ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdNr", 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].[tblMSETransactionsArchiv] SET [Controller ID] = @Controller_ID, [Co"& _ "ntroller Name] = @Controller_Name, [Invoice ID] = @Invoice_ID, [Invoice Date] = "& _ "@Invoice_Date, [Customer ID] = @Customer_ID, [Customer No] = @Customer_No, [Cust"& _ "omer name] = @Customer_name, [Specification Page] = @Specification_Page, [Specif"& _ "ication ID] = @Specification_ID, [Transaction date] = @Transaction_date, [Transa"& _ "ction Month] = @Transaction_Month, [Transaction ID] = @Transaction_ID, [Transact"& _ "ion Supplier/Terminal] = @p1, [Transaction Country] = @Transaction_Country, [Pro"& _ "duct description] = @Product_description, [Product Description ID] = @Product_De"& _ "scription_ID, [Card Type] = @Card_Type, [Card number] = @Card_number, [Load File"& _ " Licence Plate Number] = @Load_File_Licence_Plate_Number, [Card Licence Plate Nu"& _ "mber] = @Card_Licence_Plate_Number, [Truck Licence Plate Number] = @Truck_Licenc"& _ "e_Plate_Number, [Truck Fleet Code] = @Truck_Fleet_Code, [Truck Driver Name] = @T"& _ "ruck_Driver_Name, [Entry Terminal/Direction] = @p4, [Start date] = @Start_date, "& _ "[Start Time] = @Start_Time, [Exit Terminal Description] = @Exit_Terminal_Descrip"& _ "tion, [End Date] = @End_Date, [End Time] = @End_Time, [Eurovignet K-Number] = @p"& _ "7, [LKW-Kostenstelle] = @p10, [Original Nett Amount] = @Original_Nett_Amount, [O"& _ "riginal VAT Amount] = @Original_VAT_Amount, [Original Amount] = @Original_Amount"& _ ", [Original Currency] = @Original_Currency, [Transaction Amount ( EUR )] = @p13,"& _ " [Admin Fee Amount ( EUR )] = @p16, [Fees and Costs Amount ( EUR )] = @p19, [VAT"& _ " Amount ( EUR )] = @p22, [Total Amount ( EUR )] = @p25, [Total Dutch VAT ( EUR )"& _ "] = @p28, [Total Foreign VAT ( EUR )] = @p31, [UStVAn_ID] = @UStVAn_ID, [Dateina"& _ "me] = @Dateiname, [LfdNr] = @LfdNr WHERE (((@IsNull_upsize_ts = 1 AND [upsize_ts"& _ "] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)) AND ([Dateiname] = @Original_"& _ "Dateiname) AND ([LfdNr] = @Original_LfdNr));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT [Controller ID], [Controlle"& _ "r Name], [Invoice ID], [Invoice Date], [Customer ID], [Customer No], [Customer n"& _ "ame], [Specification Page], [Specification ID], [Transaction date], [Transaction"& _ " Month], [Transaction ID], [Transaction Supplier/Terminal], [Transaction Country"& _ "], [Product description], [Product Description ID], [Card Type], [Card number], "& _ "[Load File Licence Plate Number], [Card Licence Plate Number], [Truck Licence Pl"& _ "ate Number], [Truck Fleet Code], [Truck Driver Name], [Entry Terminal/Direction]"& _ ", [Start date], [Start Time], [Exit Terminal Description], [End Date], [End Time"& _ "], [Eurovignet K-Number], [LKW-Kostenstelle], [Original Nett Amount], [Original "& _ "VAT Amount], [Original Amount], [Original Currency], [Transaction Amount ( EUR )"& _ "], [Admin Fee Amount ( EUR )], [Fees and Costs Amount ( EUR )], [VAT Amount ( EU"& _ "R )], [Total Amount ( EUR )], [Total Dutch VAT ( EUR )], [Total Foreign VAT ( EU"& _ "R )], UStVAn_ID, upsize_ts, Dateiname, LfdNr FROM tblMSETransactionsArchiv WHERE"& _ " (Dateiname = @Dateiname) AND (LfdNr = @LfdNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Controller_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Controller ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Controller_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Controller Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Invoice_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Invoice ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Invoice_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Invoice Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_No", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer No", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Specification_Page", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Specification Page", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Specification_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Specification ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_Month", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Month", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Supplier/Terminal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Product_description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Product description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Product_Description_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Product Description ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Load_File_Licence_Plate_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Load File Licence Plate Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Licence_Plate_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Licence Plate Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Truck_Licence_Plate_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Truck Licence Plate Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Truck_Fleet_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Truck Fleet Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Truck_Driver_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Truck Driver Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Entry Terminal/Direction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Start_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Start date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Start_Time", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Start Time", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Exit_Terminal_Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Exit Terminal Description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@End_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "End Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@End_Time", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "End Time", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p7", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eurovignet K-Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p10", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW-Kostenstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nett_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original Nett Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original VAT Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Currency", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original Currency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p13", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p16", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Admin Fee Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p19", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fees and Costs Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p22", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VAT Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p25", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p28", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Dutch VAT ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p31", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Foreign VAT ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LfdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 [Controller ID], [Controller Name], [Invoice ID], [Invoice Date], [Custome"& _ "r ID], [Customer No], [Customer name], [Specification Page], [Specification ID],"& _ " [Transaction date], [Transaction Month], [Transaction ID], [Transaction Supplie"& _ "r/Terminal], [Transaction Country], [Product description], [Product Description "& _ "ID], [Card Type], [Card number], [Load File Licence Plate Number], [Card Licence"& _ " Plate Number], [Truck Licence Plate Number], [Truck Fleet Code], [Truck Driver "& _ "Name], [Entry Terminal/Direction], [Start date], [Start Time], [Exit Terminal De"& _ "scription], [End Date], [End Time], [Eurovignet K-Number], [LKW-Kostenstelle], ["& _ "Original Nett Amount], [Original VAT Amount], [Original Amount], [Original Curre"& _ "ncy], [Transaction Amount ( EUR )], [Admin Fee Amount ( EUR )], [Fees and Costs "& _ "Amount ( EUR )], [VAT Amount ( EUR )], [Total Amount ( EUR )], [Total Dutch VAT "& _ "( EUR )], [Total Foreign VAT ( EUR )], UStVAn_ID, upsize_ts, Dateiname, LfdNr FR"& _ "OM dbo.tblMSETransactionsArchiv" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMSETransactionsArchivDataTable) 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 VERAGDataSet.tblMSETransactionsArchivDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMSETransactionsArchivDataTable = New VERAGDataSet.tblMSETransactionsArchivDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMSETransactionsArchivDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMSETransactionsArchiv") 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_upsize_ts() As Byte, ByVal Original_Dateiname As String, ByVal Original_LfdNr As Integer) As Integer If (Original_upsize_ts Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(0).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_upsize_ts,Byte()) End If If (Original_Dateiname Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Dateiname") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Dateiname,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_LfdNr,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 Controller_ID As Global.System.Nullable(Of Integer), _ ByVal Controller_Name As String, _ ByVal Invoice_ID As String, _ ByVal Invoice_Date As Global.System.Nullable(Of Date), _ ByVal Customer_ID As Global.System.Nullable(Of Integer), _ ByVal Customer_No As Global.System.Nullable(Of Integer), _ ByVal Customer_name As String, _ ByVal Specification_Page As String, _ ByVal Specification_ID As Global.System.Nullable(Of Short), _ ByVal Transaction_date As Date, _ ByVal Transaction_Month As Global.System.Nullable(Of Date), _ ByVal Transaction_ID As Integer, _ ByVal p1 As String, _ ByVal Transaction_Country As String, _ ByVal Product_description As String, _ ByVal Product_Description_ID As Global.System.Nullable(Of Integer), _ ByVal Card_Type As String, _ ByVal Card_number As String, _ ByVal Load_File_Licence_Plate_Number As String, _ ByVal Card_Licence_Plate_Number As String, _ ByVal Truck_Licence_Plate_Number As String, _ ByVal Truck_Fleet_Code As String, _ ByVal Truck_Driver_Name As String, _ ByVal p4 As String, _ ByVal Start_date As Global.System.Nullable(Of Date), _ ByVal Start_Time As Global.System.Nullable(Of Date), _ ByVal Exit_Terminal_Description As String, _ ByVal End_Date As Global.System.Nullable(Of Date), _ ByVal End_Time As Global.System.Nullable(Of Date), _ ByVal p7 As String, _ ByVal p10 As String, _ ByVal Original_Nett_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_VAT_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_Currency As String, _ ByVal p13 As Global.System.Nullable(Of Decimal), _ ByVal p16 As Global.System.Nullable(Of Decimal), _ ByVal p19 As Global.System.Nullable(Of Decimal), _ ByVal p22 As Global.System.Nullable(Of Decimal), _ ByVal p25 As Global.System.Nullable(Of Decimal), _ ByVal p28 As Global.System.Nullable(Of Decimal), _ ByVal p31 As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal Dateiname As String, _ ByVal LfdNr As Integer) As Integer If (Controller_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(Controller_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Controller_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Controller_Name,String) End If If (Invoice_ID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Invoice_ID,String) End If If (Invoice_Date.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Invoice_Date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Customer_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Customer_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Customer_No.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Customer_No.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Customer_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Customer_name,String) End If If (Specification_Page Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Specification_Page,String) End If If (Specification_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(Specification_ID.Value,Short) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(Transaction_date,Date) If (Transaction_Month.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Transaction_Month.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(11).Value = CType(Transaction_ID,Integer) If (p1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(p1,String) End If If (Transaction_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Transaction_Country,String) End If If (Product_description Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Product_description,String) End If If (Product_Description_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(Product_Description_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Card_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Card_Type,String) End If If (Card_number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Card_number,String) End If If (Load_File_Licence_Plate_Number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Load_File_Licence_Plate_Number,String) End If If (Card_Licence_Plate_Number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Card_Licence_Plate_Number,String) End If If (Truck_Licence_Plate_Number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(Truck_Licence_Plate_Number,String) End If If (Truck_Fleet_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(Truck_Fleet_Code,String) End If If (Truck_Driver_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(Truck_Driver_Name,String) End If If (p4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(p4,String) End If If (Start_date.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(Start_date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Start_Time.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(Start_Time.Value,Date) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Exit_Terminal_Description Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(Exit_Terminal_Description,String) End If If (End_Date.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(End_Date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (End_Time.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(End_Time.Value,Date) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (p7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(p7,String) End If If (p10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(p10,String) End If If (Original_Nett_Amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(Original_Nett_Amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Original_VAT_Amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(Original_VAT_Amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_Amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(Original_Amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_Currency Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(Original_Currency,String) End If If (p13.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(p13.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (p16.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(36).Value = CType(p16.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (p19.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(37).Value = CType(p19.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (p22.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(38).Value = CType(p22.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (p25.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(39).Value = CType(p25.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (p28.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(p28.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (p31.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(41).Value = CType(p31.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (UStVAn_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(42).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (Dateiname Is Nothing) Then Throw New Global.System.ArgumentNullException("Dateiname") Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(Dateiname,String) End If Me.Adapter.InsertCommand.Parameters(44).Value = CType(LfdNr,Integer) 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 Controller_ID As Global.System.Nullable(Of Integer), _ ByVal Controller_Name As String, _ ByVal Invoice_ID As String, _ ByVal Invoice_Date As Global.System.Nullable(Of Date), _ ByVal Customer_ID As Global.System.Nullable(Of Integer), _ ByVal Customer_No As Global.System.Nullable(Of Integer), _ ByVal Customer_name As String, _ ByVal Specification_Page As String, _ ByVal Specification_ID As Global.System.Nullable(Of Short), _ ByVal Transaction_date As Date, _ ByVal Transaction_Month As Global.System.Nullable(Of Date), _ ByVal Transaction_ID As Integer, _ ByVal p1 As String, _ ByVal Transaction_Country As String, _ ByVal Product_description As String, _ ByVal Product_Description_ID As Global.System.Nullable(Of Integer), _ ByVal Card_Type As String, _ ByVal Card_number As String, _ ByVal Load_File_Licence_Plate_Number As String, _ ByVal Card_Licence_Plate_Number As String, _ ByVal Truck_Licence_Plate_Number As String, _ ByVal Truck_Fleet_Code As String, _ ByVal Truck_Driver_Name As String, _ ByVal p4 As String, _ ByVal Start_date As Global.System.Nullable(Of Date), _ ByVal Start_Time As Global.System.Nullable(Of Date), _ ByVal Exit_Terminal_Description As String, _ ByVal End_Date As Global.System.Nullable(Of Date), _ ByVal End_Time As Global.System.Nullable(Of Date), _ ByVal p7 As String, _ ByVal p10 As String, _ ByVal Original_Nett_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_VAT_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_Currency As String, _ ByVal p13 As Global.System.Nullable(Of Decimal), _ ByVal p16 As Global.System.Nullable(Of Decimal), _ ByVal p19 As Global.System.Nullable(Of Decimal), _ ByVal p22 As Global.System.Nullable(Of Decimal), _ ByVal p25 As Global.System.Nullable(Of Decimal), _ ByVal p28 As Global.System.Nullable(Of Decimal), _ ByVal p31 As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal Dateiname As String, _ ByVal LfdNr As Integer, _ ByVal Original_upsize_ts() As Byte, _ ByVal Original_Dateiname As String, _ ByVal Original_LfdNr As Integer) As Integer If (Controller_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Controller_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Controller_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Controller_Name,String) End If If (Invoice_ID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Invoice_ID,String) End If If (Invoice_Date.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Invoice_Date.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Customer_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Customer_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Customer_No.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Customer_No.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Customer_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Customer_name,String) End If If (Specification_Page Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Specification_Page,String) End If If (Specification_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Specification_ID.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Transaction_date,Date) If (Transaction_Month.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Transaction_Month.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Transaction_ID,Integer) If (p1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(p1,String) End If If (Transaction_Country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Transaction_Country,String) End If If (Product_description Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Product_description,String) End If If (Product_Description_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Product_Description_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Card_Type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Card_Type,String) End If If (Card_number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Card_number,String) End If If (Load_File_Licence_Plate_Number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Load_File_Licence_Plate_Number,String) End If If (Card_Licence_Plate_Number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Card_Licence_Plate_Number,String) End If If (Truck_Licence_Plate_Number Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Truck_Licence_Plate_Number,String) End If If (Truck_Fleet_Code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Truck_Fleet_Code,String) End If If (Truck_Driver_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Truck_Driver_Name,String) End If If (p4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(p4,String) End If If (Start_date.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Start_date.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Start_Time.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Start_Time.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Exit_Terminal_Description Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Exit_Terminal_Description,String) End If If (End_Date.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(End_Date.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (End_Time.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(End_Time.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (p7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(p7,String) End If If (p10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(p10,String) End If If (Original_Nett_Amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_Nett_Amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Original_VAT_Amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_VAT_Amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_Amount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_Amount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_Currency Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_Currency,String) End If If (p13.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(p13.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (p16.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(p16.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (p19.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(p19.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (p22.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(p22.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (p25.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(p25.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (p28.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(p28.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (p31.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(p31.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (UStVAn_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (Dateiname Is Nothing) Then Throw New Global.System.ArgumentNullException("Dateiname") Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Dateiname,String) End If Me.Adapter.UpdateCommand.Parameters(44).Value = CType(LfdNr,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If If (Original_Dateiname Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Dateiname") Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_Dateiname,String) End If Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_LfdNr,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 Controller_ID As Global.System.Nullable(Of Integer), _ ByVal Controller_Name As String, _ ByVal Invoice_ID As String, _ ByVal Invoice_Date As Global.System.Nullable(Of Date), _ ByVal Customer_ID As Global.System.Nullable(Of Integer), _ ByVal Customer_No As Global.System.Nullable(Of Integer), _ ByVal Customer_name As String, _ ByVal Specification_Page As String, _ ByVal Specification_ID As Global.System.Nullable(Of Short), _ ByVal Transaction_date As Date, _ ByVal Transaction_Month As Global.System.Nullable(Of Date), _ ByVal Transaction_ID As Integer, _ ByVal p1 As String, _ ByVal Transaction_Country As String, _ ByVal Product_description As String, _ ByVal Product_Description_ID As Global.System.Nullable(Of Integer), _ ByVal Card_Type As String, _ ByVal Card_number As String, _ ByVal Load_File_Licence_Plate_Number As String, _ ByVal Card_Licence_Plate_Number As String, _ ByVal Truck_Licence_Plate_Number As String, _ ByVal Truck_Fleet_Code As String, _ ByVal Truck_Driver_Name As String, _ ByVal p4 As String, _ ByVal Start_date As Global.System.Nullable(Of Date), _ ByVal Start_Time As Global.System.Nullable(Of Date), _ ByVal Exit_Terminal_Description As String, _ ByVal End_Date As Global.System.Nullable(Of Date), _ ByVal End_Time As Global.System.Nullable(Of Date), _ ByVal p7 As String, _ ByVal p10 As String, _ ByVal Original_Nett_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_VAT_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_Currency As String, _ ByVal p13 As Global.System.Nullable(Of Decimal), _ ByVal p16 As Global.System.Nullable(Of Decimal), _ ByVal p19 As Global.System.Nullable(Of Decimal), _ ByVal p22 As Global.System.Nullable(Of Decimal), _ ByVal p25 As Global.System.Nullable(Of Decimal), _ ByVal p28 As Global.System.Nullable(Of Decimal), _ ByVal p31 As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal Original_upsize_ts() As Byte, _ ByVal Original_Dateiname As String, _ ByVal Original_LfdNr As Integer) As Integer Return Me.Update(Controller_ID, Controller_Name, Invoice_ID, Invoice_Date, Customer_ID, Customer_No, Customer_name, Specification_Page, Specification_ID, Transaction_date, Transaction_Month, Transaction_ID, p1, Transaction_Country, Product_description, Product_Description_ID, Card_Type, Card_number, Load_File_Licence_Plate_Number, Card_Licence_Plate_Number, Truck_Licence_Plate_Number, Truck_Fleet_Code, Truck_Driver_Name, p4, Start_date, Start_Time, Exit_Terminal_Description, End_Date, End_Time, p7, p10, Original_Nett_Amount, Original_VAT_Amount, Original_Amount, Original_Currency, p13, p16, p19, p22, p25, p28, p31, UStVAn_ID, Original_Dateiname, Original_LfdNr, Original_upsize_ts, Original_Dateiname, Original_LfdNr) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblMSETransactionsArchivOLDTableAdapter 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 = "tblMSETransactionsArchivOLD" tableMapping.ColumnMappings.Add("Controller ID", "Controller ID") tableMapping.ColumnMappings.Add("Controller Name", "Controller Name") tableMapping.ColumnMappings.Add("Invoice ID", "Invoice ID") tableMapping.ColumnMappings.Add("Invoice Date", "Invoice Date") tableMapping.ColumnMappings.Add("Customer ID", "Customer ID") tableMapping.ColumnMappings.Add("Customer No", "Customer No") tableMapping.ColumnMappings.Add("Customer name", "Customer name") tableMapping.ColumnMappings.Add("Specification Page", "Specification Page") tableMapping.ColumnMappings.Add("Specification ID", "Specification ID") tableMapping.ColumnMappings.Add("Transaction date", "Transaction date") tableMapping.ColumnMappings.Add("Transaction Month", "Transaction Month") tableMapping.ColumnMappings.Add("Transaction ID", "Transaction ID") tableMapping.ColumnMappings.Add("Transaction Supplier/Terminal", "Transaction Supplier/Terminal") tableMapping.ColumnMappings.Add("Transaction Country", "Transaction Country") tableMapping.ColumnMappings.Add("Product description", "Product description") tableMapping.ColumnMappings.Add("Product Description ID", "Product Description ID") tableMapping.ColumnMappings.Add("Card Type", "Card Type") tableMapping.ColumnMappings.Add("Card number", "Card number") tableMapping.ColumnMappings.Add("Load File Licence Plate Number", "Load File Licence Plate Number") tableMapping.ColumnMappings.Add("Card Licence Plate Number", "Card Licence Plate Number") tableMapping.ColumnMappings.Add("Truck Licence Plate Number", "Truck Licence Plate Number") tableMapping.ColumnMappings.Add("Truck Fleet Code", "Truck Fleet Code") tableMapping.ColumnMappings.Add("Truck Driver Name", "Truck Driver Name") tableMapping.ColumnMappings.Add("Entry Terminal/Direction", "Entry Terminal/Direction") tableMapping.ColumnMappings.Add("Start date", "Start date") tableMapping.ColumnMappings.Add("Start Time", "Start Time") tableMapping.ColumnMappings.Add("Exit Terminal Description", "Exit Terminal Description") tableMapping.ColumnMappings.Add("End Date", "End Date") tableMapping.ColumnMappings.Add("End Time", "End Time") tableMapping.ColumnMappings.Add("Eurovignet K-Number", "Eurovignet K-Number") tableMapping.ColumnMappings.Add("LKW-Kostenstelle", "LKW-Kostenstelle") tableMapping.ColumnMappings.Add("Original Nett Amount", "Original Nett Amount") tableMapping.ColumnMappings.Add("Original VAT Amount", "Original VAT Amount") tableMapping.ColumnMappings.Add("Original Amount", "Original Amount") tableMapping.ColumnMappings.Add("Original Currency", "Original Currency") tableMapping.ColumnMappings.Add("Transaction Amount ( EUR )", "Transaction Amount ( EUR )") tableMapping.ColumnMappings.Add("Admin Fee Amount ( EUR )", "Admin Fee Amount ( EUR )") tableMapping.ColumnMappings.Add("Fees and Costs Amount ( EUR )", "Fees and Costs Amount ( EUR )") tableMapping.ColumnMappings.Add("VAT Amount ( EUR )", "VAT Amount ( EUR )") tableMapping.ColumnMappings.Add("Total Amount ( EUR )", "Total Amount ( EUR )") tableMapping.ColumnMappings.Add("Total Dutch VAT ( EUR )", "Total Dutch VAT ( EUR )") tableMapping.ColumnMappings.Add("Total Foreign VAT ( EUR )", "Total Foreign VAT ( EUR )") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("Dateiname", "Dateiname") tableMapping.ColumnMappings.Add("LfdNr", "LfdNr") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblMSETransactionsArchivOLD] ([Controller ID], [Controller Nam"& _ "e], [Invoice ID], [Invoice Date], [Customer ID], [Customer No], [Customer name],"& _ " [Specification Page], [Specification ID], [Transaction date], [Transaction Mont"& _ "h], [Transaction ID], [Transaction Supplier/Terminal], [Transaction Country], [P"& _ "roduct description], [Product Description ID], [Card Type], [Card number], [Load"& _ " File Licence Plate Number], [Card Licence Plate Number], [Truck Licence Plate N"& _ "umber], [Truck Fleet Code], [Truck Driver Name], [Entry Terminal/Direction], [St"& _ "art date], [Start Time], [Exit Terminal Description], [End Date], [End Time], [E"& _ "urovignet K-Number], [LKW-Kostenstelle], [Original Nett Amount], [Original VAT A"& _ "mount], [Original Amount], [Original Currency], [Transaction Amount ( EUR )], [A"& _ "dmin Fee Amount ( EUR )], [Fees and Costs Amount ( EUR )], [VAT Amount ( EUR )],"& _ " [Total Amount ( EUR )], [Total Dutch VAT ( EUR )], [Total Foreign VAT ( EUR )],"& _ " [UStVAn_ID], [Dateiname], [LfdNr]) VALUES (@Controller_ID, @Controller_Name, @I"& _ "nvoice_ID, @Invoice_Date, @Customer_ID, @Customer_No, @Customer_name, @Specifica"& _ "tion_Page, @Specification_ID, @Transaction_date, @Transaction_Month, @Transactio"& _ "n_ID, @p1, @Transaction_Country, @Product_description, @Product_Description_ID, "& _ "@Card_Type, @Card_number, @Load_File_Licence_Plate_Number, @Card_Licence_Plate_N"& _ "umber, @Truck_Licence_Plate_Number, @Truck_Fleet_Code, @Truck_Driver_Name, @p4, "& _ "@Start_date, @Start_Time, @Exit_Terminal_Description, @End_Date, @End_Time, @p7,"& _ " @p10, @Original_Nett_Amount, @Original_VAT_Amount, @Original_Amount, @Original_"& _ "Currency, @p13, @p16, @p19, @p22, @p25, @p28, @p31, @UStVAn_ID, @Dateiname, @Lfd"& _ "Nr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Controller_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Controller ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Controller_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Controller Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Invoice_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Invoice ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Invoice_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Invoice Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_No", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer No", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Customer_name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Customer name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Specification_Page", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Specification Page", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Specification_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Specification ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_Month", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Month", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Supplier/Terminal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transaction_Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Product_description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Product description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Product_Description_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Product Description ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Load_File_Licence_Plate_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Load File Licence Plate Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Card_Licence_Plate_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Card Licence Plate Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Truck_Licence_Plate_Number", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Truck Licence Plate Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Truck_Fleet_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Truck Fleet Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Truck_Driver_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Truck Driver Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p4", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Entry Terminal/Direction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Start_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Start date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Start_Time", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Start Time", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Exit_Terminal_Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Exit Terminal Description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@End_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "End Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@End_Time", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "End Time", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p7", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eurovignet K-Number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p10", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW-Kostenstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nett_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original Nett Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original VAT Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Currency", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Original Currency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p13", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transaction Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p16", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Admin Fee Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p19", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fees and Costs Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p22", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VAT Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p25", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Amount ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p28", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Dutch VAT ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p31", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Total Foreign VAT ( EUR )", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 [Controller ID], [Controller Name], [Invoice ID], [Invoice Date], [Custome"& _ "r ID], [Customer No], [Customer name], [Specification Page], [Specification ID],"& _ " [Transaction date], [Transaction Month], [Transaction ID], [Transaction Supplie"& _ "r/Terminal], [Transaction Country], [Product description], [Product Description "& _ "ID], [Card Type], [Card number], [Load File Licence Plate Number], [Card Licence"& _ " Plate Number], [Truck Licence Plate Number], [Truck Fleet Code], [Truck Driver "& _ "Name], [Entry Terminal/Direction], [Start date], [Start Time], [Exit Terminal De"& _ "scription], [End Date], [End Time], [Eurovignet K-Number], [LKW-Kostenstelle], ["& _ "Original Nett Amount], [Original VAT Amount], [Original Amount], [Original Curre"& _ "ncy], [Transaction Amount ( EUR )], [Admin Fee Amount ( EUR )], [Fees and Costs "& _ "Amount ( EUR )], [VAT Amount ( EUR )], [Total Amount ( EUR )], [Total Dutch VAT "& _ "( EUR )], [Total Foreign VAT ( EUR )], UStVAn_ID, upsize_ts, Dateiname, LfdNr FR"& _ "OM dbo.tblMSETransactionsArchivOLD" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblMSETransactionsArchivOLDDataTable) 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 VERAGDataSet.tblMSETransactionsArchivOLDDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblMSETransactionsArchivOLDDataTable = New VERAGDataSet.tblMSETransactionsArchivOLDDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblMSETransactionsArchivOLDDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblMSETransactionsArchivOLD") 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 Insert( _ ByVal Controller_ID As Global.System.Nullable(Of Integer), _ ByVal Controller_Name As String, _ ByVal Invoice_ID As String, _ ByVal Invoice_Date As Global.System.Nullable(Of Date), _ ByVal Customer_ID As Global.System.Nullable(Of Integer), _ ByVal Customer_No As Global.System.Nullable(Of Integer), _ ByVal Customer_name As String, _ ByVal Specification_Page As String, _ ByVal Specification_ID As Global.System.Nullable(Of Short), _ ByVal Transaction_date As Date, _ ByVal Transaction_Month As Global.System.Nullable(Of Date), _ ByVal Transaction_ID As Integer, _ ByVal p1 As String, _ ByVal Transaction_Country As String, _ ByVal Product_description As String, _ ByVal Product_Description_ID As Global.System.Nullable(Of Integer), _ ByVal Card_Type As String, _ ByVal Card_number As String, _ ByVal Load_File_Licence_Plate_Number As String, _ ByVal Card_Licence_Plate_Number As String, _ ByVal Truck_Licence_Plate_Number As String, _ ByVal Truck_Fleet_Code As String, _ ByVal Truck_Driver_Name As String, _ ByVal p4 As String, _ ByVal Start_date As Global.System.Nullable(Of Date), _ ByVal Start_Time As Global.System.Nullable(Of Date), _ ByVal Exit_Terminal_Description As String, _ ByVal End_Date As Global.System.Nullable(Of Date), _ ByVal End_Time As Global.System.Nullable(Of Date), _ ByVal p7 As String, _ ByVal p10 As String, _ ByVal Original_Nett_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_VAT_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_Amount As Global.System.Nullable(Of Decimal), _ ByVal Original_Currency As String, _ ByVal p13 As Global.System.Nullable(Of Decimal), _ ByVal p16 As Global.System.Nullable(Of Decimal), _ ByVal p19 As Global.System.Nullable(Of Decimal), _ ByVal p22 As Global.System.Nullable(Of Decimal), _ ByVal p25 As Global.System.Nullable(Of Decimal), _ ByVal p28 As Global.System.Nullable(Of Decimal), _ ByVal p31 As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal Dateiname As String, _ ByVal LfdNr As Integer) As Integer If (Controller_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(Controller_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Controller_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Controller_Name,String) End If If (Invoice_ID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Invoice_ID,String) End If If (Invoice_Date.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Invoice_Date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Customer_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Customer_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Customer_No.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Customer_No.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Customer_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Customer_name,String) End If If (Specification_Page Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Specification_Page,String) End If If (Specification_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(Specification_ID.Value,Short) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(Transaction_date,Date) If (Transaction_Month.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Transaction_Month.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(11).Value = CType(Transaction_ID,Integer) If (p1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(p1,String) End If If (Transaction_Country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Transaction_Country,String) End If If (Product_description Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Product_description,String) End If If (Product_Description_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(Product_Description_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Card_Type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Card_Type,String) End If If (Card_number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Card_number,String) End If If (Load_File_Licence_Plate_Number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Load_File_Licence_Plate_Number,String) End If If (Card_Licence_Plate_Number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Card_Licence_Plate_Number,String) End If If (Truck_Licence_Plate_Number Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(Truck_Licence_Plate_Number,String) End If If (Truck_Fleet_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(Truck_Fleet_Code,String) End If If (Truck_Driver_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(Truck_Driver_Name,String) End If If (p4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(p4,String) End If If (Start_date.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(Start_date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Start_Time.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(Start_Time.Value,Date) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Exit_Terminal_Description Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(Exit_Terminal_Description,String) End If If (End_Date.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(End_Date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (End_Time.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(End_Time.Value,Date) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (p7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(p7,String) End If If (p10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(p10,String) End If If (Original_Nett_Amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(Original_Nett_Amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Original_VAT_Amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(Original_VAT_Amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_Amount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(Original_Amount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_Currency Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(Original_Currency,String) End If If (p13.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(p13.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (p16.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(36).Value = CType(p16.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (p19.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(37).Value = CType(p19.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (p22.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(38).Value = CType(p22.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (p25.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(39).Value = CType(p25.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (p28.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(p28.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (p31.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(41).Value = CType(p31.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (UStVAn_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(42).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (Dateiname Is Nothing) Then Throw New Global.System.ArgumentNullException("Dateiname") Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(Dateiname,String) End If Me.Adapter.InsertCommand.Parameters(44).Value = CType(LfdNr,Integer) 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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblNCTS_TRTableAdapter 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 = "tblNCTS_TR" tableMapping.ColumnMappings.Add("ncts_Id", "ncts_Id") tableMapping.ColumnMappings.Add("ncts_Partnersystem", "ncts_Partnersystem") tableMapping.ColumnMappings.Add("ncts_Status", "ncts_Status") tableMapping.ColumnMappings.Add("ncts_Status_KEWILL_Equivalent", "ncts_Status_KEWILL_Equivalent") tableMapping.ColumnMappings.Add("ncts_dyaArt", "ncts_dyaArt") tableMapping.ColumnMappings.Add("ncts_dyaAnmID", "ncts_dyaAnmID") tableMapping.ColumnMappings.Add("ncts_ANR", "ncts_ANR") tableMapping.ColumnMappings.Add("ncts_MRN", "ncts_MRN") tableMapping.ColumnMappings.Add("ncts_Erstellung", "ncts_Erstellung") tableMapping.ColumnMappings.Add("ncts_Erstellung_SB", "ncts_Erstellung_SB") tableMapping.ColumnMappings.Add("ncts_LetzteBearbeitung", "ncts_LetzteBearbeitung") tableMapping.ColumnMappings.Add("ncts_LetzteBearbeitung_SB", "ncts_LetzteBearbeitung_SB") tableMapping.ColumnMappings.Add("ncts_firma", "ncts_firma") tableMapping.ColumnMappings.Add("ncts_niederlassung", "ncts_niederlassung") tableMapping.ColumnMappings.Add("ncts_Gestellt", "ncts_Gestellt") tableMapping.ColumnMappings.Add("ncts_GestelltAm", "ncts_GestelltAm") tableMapping.ColumnMappings.Add("ncts_Trans_Partner", "ncts_Trans_Partner") tableMapping.ColumnMappings.Add("ncts_Trans_Div1", "ncts_Trans_Div1") tableMapping.ColumnMappings.Add("ncts_Trans_Div2", "ncts_Trans_Div2") tableMapping.ColumnMappings.Add("ncts_Trans_Div3", "ncts_Trans_Div3") tableMapping.ColumnMappings.Add("ncts_Trans_Referenz", "ncts_Trans_Referenz") tableMapping.ColumnMappings.Add("ncts_Trans_DatumZeit", "ncts_Trans_DatumZeit") tableMapping.ColumnMappings.Add("ncts_Trans_Version", "ncts_Trans_Version") tableMapping.ColumnMappings.Add("ncts_NachrichtenSenderTIN", "ncts_NachrichtenSenderTIN") tableMapping.ColumnMappings.Add("ncts_NachrichtenSenderNLNR", "ncts_NachrichtenSenderNLNR") tableMapping.ColumnMappings.Add("ncts_NachrichtenempfaengerDST", "ncts_NachrichtenempfaengerDST") tableMapping.ColumnMappings.Add("ncts_ObjectName", "ncts_ObjectName") tableMapping.ColumnMappings.Add("ncts_ObjectAlias", "ncts_ObjectAlias") tableMapping.ColumnMappings.Add("ncts_BezugsnummerVorblendung", "ncts_BezugsnummerVorblendung") tableMapping.ColumnMappings.Add("ncts_Bearbeiter", "ncts_Bearbeiter") tableMapping.ColumnMappings.Add("ncts_VersendungsLandCode", "ncts_VersendungsLandCode") tableMapping.ColumnMappings.Add("ncts_BestimmungslandCode", "ncts_BestimmungslandCode") tableMapping.ColumnMappings.Add("ncts_ArtAnmeldung", "ncts_ArtAnmeldung") tableMapping.ColumnMappings.Add("ncts_BeladungsOrt", "ncts_BeladungsOrt") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer1", "ncts_DurchgangszollstelleDienststellnummer1") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer2", "ncts_DurchgangszollstelleDienststellnummer2") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer3", "ncts_DurchgangszollstelleDienststellnummer3") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer4", "ncts_DurchgangszollstelleDienststellnummer4") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer5", "ncts_DurchgangszollstelleDienststellnummer5") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer6", "ncts_DurchgangszollstelleDienststellnummer6") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer7", "ncts_DurchgangszollstelleDienststellnummer7") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer8", "ncts_DurchgangszollstelleDienststellnummer8") tableMapping.ColumnMappings.Add("ncts_DurchgangszollstelleDienststellnummer9", "ncts_DurchgangszollstelleDienststellnummer9") tableMapping.ColumnMappings.Add("ncts_BestimmungsstelleDienststellennummer", "ncts_BestimmungsstelleDienststellennummer") tableMapping.ColumnMappings.Add("ncts_AbgangsDienststellennummer", "ncts_AbgangsDienststellennummer") tableMapping.ColumnMappings.Add("ncts_Wiedergestellungsdatum", "ncts_Wiedergestellungsdatum") tableMapping.ColumnMappings.Add("ncts_KzVereinfachtesVerfahren", "ncts_KzVereinfachtesVerfahren") tableMapping.ColumnMappings.Add("ncts_GesamtRohmasse", "ncts_GesamtRohmasse") tableMapping.ColumnMappings.Add("ncts_GesamtAnzahlPackstuecke", "ncts_GesamtAnzahlPackstuecke") tableMapping.ColumnMappings.Add("ncts_Verschluss_ArtCode", "ncts_Verschluss_ArtCode") tableMapping.ColumnMappings.Add("ncts_Verschluss_Anzahl", "ncts_Verschluss_Anzahl") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen1", "ncts_Verschluss_Zeichen1") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen2", "ncts_Verschluss_Zeichen2") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen3", "ncts_Verschluss_Zeichen3") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen4", "ncts_Verschluss_Zeichen4") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen5", "ncts_Verschluss_Zeichen5") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen6", "ncts_Verschluss_Zeichen6") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen7", "ncts_Verschluss_Zeichen7") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen8", "ncts_Verschluss_Zeichen8") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen9", "ncts_Verschluss_Zeichen9") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen10", "ncts_Verschluss_Zeichen10") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen11", "ncts_Verschluss_Zeichen11") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen12", "ncts_Verschluss_Zeichen12") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen13", "ncts_Verschluss_Zeichen13") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen14", "ncts_Verschluss_Zeichen14") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen15", "ncts_Verschluss_Zeichen15") tableMapping.ColumnMappings.Add("ncts_Verschluss_Zeichen16", "ncts_Verschluss_Zeichen16") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_KennzeichenAbgang", "ncts_Befoerderungsmittel_KennzeichenAbgang") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_ArtGrenzueberschreitung", "ncts_Befoerderungsmittel_ArtGrenzueberschreitung") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend") tableMapping.ColumnMappings.Add("ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode") tableMapping.ColumnMappings.Add("ncts_Versender_EORI", "ncts_Versender_EORI") tableMapping.ColumnMappings.Add("ncts_Versender_NLNR", "ncts_Versender_NLNR") tableMapping.ColumnMappings.Add("ncts_Versender_TIN", "ncts_Versender_TIN") tableMapping.ColumnMappings.Add("ncts_Versender_Name", "ncts_Versender_Name") tableMapping.ColumnMappings.Add("ncts_Versender_StrasseHausnummer", "ncts_Versender_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_Versender_Ort", "ncts_Versender_Ort") tableMapping.ColumnMappings.Add("ncts_Versender_PLZ", "ncts_Versender_PLZ") tableMapping.ColumnMappings.Add("ncts_Versender_Land", "ncts_Versender_Land") tableMapping.ColumnMappings.Add("ncts_Empfaenger_EORI", "ncts_Empfaenger_EORI") tableMapping.ColumnMappings.Add("ncts_Empfaenger_NLNR", "ncts_Empfaenger_NLNR") tableMapping.ColumnMappings.Add("ncts_Empfaenger_TIN", "ncts_Empfaenger_TIN") tableMapping.ColumnMappings.Add("ncts_Empfaenger_Name", "ncts_Empfaenger_Name") tableMapping.ColumnMappings.Add("ncts_Empfaenger_StrasseHausnummer", "ncts_Empfaenger_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_Empfaenger_Ort", "ncts_Empfaenger_Ort") tableMapping.ColumnMappings.Add("ncts_Empfaenger_PLZ", "ncts_Empfaenger_PLZ") tableMapping.ColumnMappings.Add("ncts_Empfaenger_Land", "ncts_Empfaenger_Land") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_EORI", "ncts_Hauptverpflichteter_EORI") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_NLNR", "ncts_Hauptverpflichteter_NLNR") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_TIN", "ncts_Hauptverpflichteter_TIN") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_Name", "ncts_Hauptverpflichteter_Name") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_StrasseHausnummer", "ncts_Hauptverpflichteter_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_Ort", "ncts_Hauptverpflichteter_Ort") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_PLZ", "ncts_Hauptverpflichteter_PLZ") tableMapping.ColumnMappings.Add("ncts_Hauptverpflichteter_Land", "ncts_Hauptverpflichteter_Land") tableMapping.ColumnMappings.Add("ncts_ZugelassenerEmpfaenger_EORI", "ncts_ZugelassenerEmpfaenger_EORI") tableMapping.ColumnMappings.Add("ncts_ZugelassenerEmpfaenger_TIN", "ncts_ZugelassenerEmpfaenger_TIN") tableMapping.ColumnMappings.Add("ncts_ZugelassenerEmpfaenger_IDCarnet", "ncts_ZugelassenerEmpfaenger_IDCarnet") tableMapping.ColumnMappings.Add("ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender") tableMapping.ColumnMappings.Add("ncts_SumA_KzSumASicherheit", "ncts_SumA_KzSumASicherheit") tableMapping.ColumnMappings.Add("ncts_SumA_KennnummerSendung", "ncts_SumA_KennnummerSendung") tableMapping.ColumnMappings.Add("ncts_SumA_NummerBefoerderung", "ncts_SumA_NummerBefoerderung") tableMapping.ColumnMappings.Add("ncts_SumA_BesondereUmstaende", "ncts_SumA_BesondereUmstaende") tableMapping.ColumnMappings.Add("ncts_SumA_Ladeort", "ncts_SumA_Ladeort") tableMapping.ColumnMappings.Add("ncts_SumA_Entladeort", "ncts_SumA_Entladeort") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungskostenZahlungsweise", "ncts_SumA_BefoerderungskostenZahlungsweise") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand1", "ncts_SumA_BefoerderungsrouteLand1") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand2", "ncts_SumA_BefoerderungsrouteLand2") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand3", "ncts_SumA_BefoerderungsrouteLand3") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand4", "ncts_SumA_BefoerderungsrouteLand4") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand5", "ncts_SumA_BefoerderungsrouteLand5") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand6", "ncts_SumA_BefoerderungsrouteLand6") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand7", "ncts_SumA_BefoerderungsrouteLand7") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand8", "ncts_SumA_BefoerderungsrouteLand8") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand9", "ncts_SumA_BefoerderungsrouteLand9") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand10", "ncts_SumA_BefoerderungsrouteLand10") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand11", "ncts_SumA_BefoerderungsrouteLand11") tableMapping.ColumnMappings.Add("ncts_SumA_BefoerderungsrouteLand12", "ncts_SumA_BefoerderungsrouteLand12") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_EORI", "ncts_SumA_Versender_EORI") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_NLNR", "ncts_SumA_Versender_NLNR") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_TIN", "ncts_SumA_Versender_TIN") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_Name", "ncts_SumA_Versender_Name") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_StrasseHausnummer", "ncts_SumA_Versender_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_Land", "ncts_SumA_Versender_Land") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_PLZ", "ncts_SumA_Versender_PLZ") tableMapping.ColumnMappings.Add("ncts_SumA_Versender_Ort", "ncts_SumA_Versender_Ort") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_EORI", "ncts_SumA_Empfaenger_EORI") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_NLNR", "ncts_SumA_Empfaenger_NLNR") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_TIN", "ncts_SumA_Empfaenger_TIN") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_Name", "ncts_SumA_Empfaenger_Name") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_StrasseHausnummer", "ncts_SumA_Empfaenger_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_Land", "ncts_SumA_Empfaenger_Land") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_PLZ", "ncts_SumA_Empfaenger_PLZ") tableMapping.ColumnMappings.Add("ncts_SumA_Empfaenger_Ort", "ncts_SumA_Empfaenger_Ort") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_EORI", "ncts_SumA_Befoerderer_EORI") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_NLNR", "ncts_SumA_Befoerderer_NLNR") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_TIN", "ncts_SumA_Befoerderer_TIN") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_Name", "ncts_SumA_Befoerderer_Name") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_StrasseHausnummer", "ncts_SumA_Befoerderer_StrasseHausnummer") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_Land", "ncts_SumA_Befoerderer_Land") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_PLZ", "ncts_SumA_Befoerderer_PLZ") tableMapping.ColumnMappings.Add("ncts_SumA_Befoerderer_Ort", "ncts_SumA_Befoerderer_Ort") tableMapping.ColumnMappings.Add("ncts_Stammreferenz", "ncts_Stammreferenz") tableMapping.ColumnMappings.Add("ncts_GUID", "ncts_GUID") tableMapping.ColumnMappings.Add("ncts_Eroeffnung", "ncts_Eroeffnung") tableMapping.ColumnMappings.Add("ncts_Ankunft", "ncts_Ankunft") tableMapping.ColumnMappings.Add("ncts_Erledigung", "ncts_Erledigung") tableMapping.ColumnMappings.Add("ncts_AVISO_einarbeitet", "ncts_AVISO_einarbeitet") tableMapping.ColumnMappings.Add("ncts_VERAG_WeiterverrechungSatz", "ncts_VERAG_WeiterverrechungSatz") 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].[tblNCTS_TR] WHERE (([ncts_Id] = @Original_ncts_Id) AND ([ncts_"& _ "Partnersystem] = @Original_ncts_Partnersystem) AND ([ncts_Status] = @Original_nc"& _ "ts_Status) AND ([ncts_Status_KEWILL_Equivalent] = @Original_ncts_Status_KEWILL_E"& _ "quivalent) AND ([ncts_dyaArt] = @Original_ncts_dyaArt) AND ([ncts_dyaAnmID] = @O"& _ "riginal_ncts_dyaAnmID) AND ((@IsNull_ncts_ANR = 1 AND [ncts_ANR] IS NULL) OR ([n"& _ "cts_ANR] = @Original_ncts_ANR)) AND ((@IsNull_ncts_MRN = 1 AND [ncts_MRN] IS NUL"& _ "L) OR ([ncts_MRN] = @Original_ncts_MRN)) AND ([ncts_Erstellung] = @Original_ncts"& _ "_Erstellung) AND ((@IsNull_ncts_Erstellung_SB = 1 AND [ncts_Erstellung_SB] IS NU"& _ "LL) OR ([ncts_Erstellung_SB] = @Original_ncts_Erstellung_SB)) AND ([ncts_LetzteB"& _ "earbeitung] = @Original_ncts_LetzteBearbeitung) AND ((@IsNull_ncts_LetzteBearbei"& _ "tung_SB = 1 AND [ncts_LetzteBearbeitung_SB] IS NULL) OR ([ncts_LetzteBearbeitung"& _ "_SB] = @Original_ncts_LetzteBearbeitung_SB)) AND ((@IsNull_ncts_firma = 1 AND [n"& _ "cts_firma] IS NULL) OR ([ncts_firma] = @Original_ncts_firma)) AND ((@IsNull_ncts"& _ "_niederlassung = 1 AND [ncts_niederlassung] IS NULL) OR ([ncts_niederlassung] = "& _ "@Original_ncts_niederlassung)) AND ([ncts_Gestellt] = @Original_ncts_Gestellt) A"& _ "ND ((@IsNull_ncts_GestelltAm = 1 AND [ncts_GestelltAm] IS NULL) OR ([ncts_Gestel"& _ "ltAm] = @Original_ncts_GestelltAm)) AND ((@IsNull_ncts_Trans_Partner = 1 AND [nc"& _ "ts_Trans_Partner] IS NULL) OR ([ncts_Trans_Partner] = @Original_ncts_Trans_Partn"& _ "er)) AND ((@IsNull_ncts_Trans_Div1 = 1 AND [ncts_Trans_Div1] IS NULL) OR ([ncts_"& _ "Trans_Div1] = @Original_ncts_Trans_Div1)) AND ((@IsNull_ncts_Trans_Div2 = 1 AND "& _ "[ncts_Trans_Div2] IS NULL) OR ([ncts_Trans_Div2] = @Original_ncts_Trans_Div2)) A"& _ "ND ((@IsNull_ncts_Trans_Div3 = 1 AND [ncts_Trans_Div3] IS NULL) OR ([ncts_Trans_"& _ "Div3] = @Original_ncts_Trans_Div3)) AND ((@IsNull_ncts_Trans_Referenz = 1 AND [n"& _ "cts_Trans_Referenz] IS NULL) OR ([ncts_Trans_Referenz] = @Original_ncts_Trans_Re"& _ "ferenz)) AND ((@IsNull_ncts_Trans_DatumZeit = 1 AND [ncts_Trans_DatumZeit] IS NU"& _ "LL) OR ([ncts_Trans_DatumZeit] = @Original_ncts_Trans_DatumZeit)) AND ((@IsNull_"& _ "ncts_Trans_Version = 1 AND [ncts_Trans_Version] IS NULL) OR ([ncts_Trans_Version"& _ "] = @Original_ncts_Trans_Version)) AND ((@IsNull_ncts_NachrichtenSenderTIN = 1 A"& _ "ND [ncts_NachrichtenSenderTIN] IS NULL) OR ([ncts_NachrichtenSenderTIN] = @Origi"& _ "nal_ncts_NachrichtenSenderTIN)) AND ((@IsNull_ncts_NachrichtenSenderNLNR = 1 AND"& _ " [ncts_NachrichtenSenderNLNR] IS NULL) OR ([ncts_NachrichtenSenderNLNR] = @Origi"& _ "nal_ncts_NachrichtenSenderNLNR)) AND ((@IsNull_ncts_NachrichtenempfaengerDST = 1"& _ " AND [ncts_NachrichtenempfaengerDST] IS NULL) OR ([ncts_NachrichtenempfaengerDST"& _ "] = @Original_ncts_NachrichtenempfaengerDST)) AND ((@IsNull_ncts_ObjectName = 1 "& _ "AND [ncts_ObjectName] IS NULL) OR ([ncts_ObjectName] = @Original_ncts_ObjectName"& _ ")) AND ((@IsNull_ncts_ObjectAlias = 1 AND [ncts_ObjectAlias] IS NULL) OR ([ncts_"& _ "ObjectAlias] = @Original_ncts_ObjectAlias)) AND ((@IsNull_ncts_BezugsnummerVorbl"& _ "endung = 1 AND [ncts_BezugsnummerVorblendung] IS NULL) OR ([ncts_BezugsnummerVor"& _ "blendung] = @Original_ncts_BezugsnummerVorblendung)) AND ((@IsNull_ncts_Bearbeit"& _ "er = 1 AND [ncts_Bearbeiter] IS NULL) OR ([ncts_Bearbeiter] = @Original_ncts_Bea"& _ "rbeiter)) AND ((@IsNull_ncts_VersendungsLandCode = 1 AND [ncts_VersendungsLandCo"& _ "de] IS NULL) OR ([ncts_VersendungsLandCode] = @Original_ncts_VersendungsLandCode"& _ ")) AND ((@IsNull_ncts_BestimmungslandCode = 1 AND [ncts_BestimmungslandCode] IS "& _ "NULL) OR ([ncts_BestimmungslandCode] = @Original_ncts_BestimmungslandCode)) AND "& _ "((@IsNull_ncts_ArtAnmeldung = 1 AND [ncts_ArtAnmeldung] IS NULL) OR ([ncts_ArtAn"& _ "meldung] = @Original_ncts_ArtAnmeldung)) AND ((@IsNull_ncts_BeladungsOrt = 1 AND"& _ " [ncts_BeladungsOrt] IS NULL) OR ([ncts_BeladungsOrt] = @Original_ncts_Beladungs"& _ "Ort)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer1 = 1 AND [ncts_Du"& _ "rchgangszollstelleDienststellnummer1] IS NULL) OR ([ncts_DurchgangszollstelleDie"& _ "nststellnummer1] = @Original_ncts_DurchgangszollstelleDienststellnummer1)) AND ("& _ "(@IsNull_ncts_DurchgangszollstelleDienststellnummer2 = 1 AND [ncts_Durchgangszol"& _ "lstelleDienststellnummer2] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnum"& _ "mer2] = @Original_ncts_DurchgangszollstelleDienststellnummer2)) AND ((@IsNull_nc"& _ "ts_DurchgangszollstelleDienststellnummer3 = 1 AND [ncts_DurchgangszollstelleDien"& _ "ststellnummer3] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnummer3] = @Or"& _ "iginal_ncts_DurchgangszollstelleDienststellnummer3)) AND ((@IsNull_ncts_Durchgan"& _ "gszollstelleDienststellnummer4 = 1 AND [ncts_DurchgangszollstelleDienststellnumm"& _ "er4] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnummer4] = @Original_ncts"& _ "_DurchgangszollstelleDienststellnummer4)) AND ((@IsNull_ncts_Durchgangszollstell"& _ "eDienststellnummer5 = 1 AND [ncts_DurchgangszollstelleDienststellnummer5] IS NUL"& _ "L) OR ([ncts_DurchgangszollstelleDienststellnummer5] = @Original_ncts_Durchgangs"& _ "zollstelleDienststellnummer5)) AND ((@IsNull_ncts_DurchgangszollstelleDienststel"& _ "lnummer6 = 1 AND [ncts_DurchgangszollstelleDienststellnummer6] IS NULL) OR ([nct"& _ "s_DurchgangszollstelleDienststellnummer6] = @Original_ncts_DurchgangszollstelleD"& _ "ienststellnummer6)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer7 = "& _ "1 AND [ncts_DurchgangszollstelleDienststellnummer7] IS NULL) OR ([ncts_Durchgang"& _ "szollstelleDienststellnummer7] = @Original_ncts_DurchgangszollstelleDienststelln"& _ "ummer7)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer8 = 1 AND [ncts"& _ "_DurchgangszollstelleDienststellnummer8] IS NULL) OR ([ncts_Durchgangszollstelle"& _ "Dienststellnummer8] = @Original_ncts_DurchgangszollstelleDienststellnummer8)) AN"& _ "D ((@IsNull_ncts_DurchgangszollstelleDienststellnummer9 = 1 AND [ncts_Durchgangs"& _ "zollstelleDienststellnummer9] IS NULL) OR ([ncts_DurchgangszollstelleDienststell"& _ "nummer9] = @Original_ncts_DurchgangszollstelleDienststellnummer9)) AND ((@IsNull"& _ "_ncts_BestimmungsstelleDienststellennummer = 1 AND [ncts_BestimmungsstelleDienst"& _ "stellennummer] IS NULL) OR ([ncts_BestimmungsstelleDienststellennummer] = @Origi"& _ "nal_ncts_BestimmungsstelleDienststellennummer)) AND ((@IsNull_ncts_AbgangsDienst"& _ "stellennummer = 1 AND [ncts_AbgangsDienststellennummer] IS NULL) OR ([ncts_Abgan"& _ "gsDienststellennummer] = @Original_ncts_AbgangsDienststellennummer)) AND ((@IsNu"& _ "ll_ncts_Wiedergestellungsdatum = 1 AND [ncts_Wiedergestellungsdatum] IS NULL) OR"& _ " ([ncts_Wiedergestellungsdatum] = @Original_ncts_Wiedergestellungsdatum)) AND (("& _ "@IsNull_ncts_KzVereinfachtesVerfahren = 1 AND [ncts_KzVereinfachtesVerfahren] IS"& _ " NULL) OR ([ncts_KzVereinfachtesVerfahren] = @Original_ncts_KzVereinfachtesVerfa"& _ "hren)) AND ((@IsNull_ncts_GesamtRohmasse = 1 AND [ncts_GesamtRohmasse] IS NULL) "& _ "OR ([ncts_GesamtRohmasse] = @Original_ncts_GesamtRohmasse)) AND ((@IsNull_ncts_G"& _ "esamtAnzahlPackstuecke = 1 AND [ncts_GesamtAnzahlPackstuecke] IS NULL) OR ([ncts"& _ "_GesamtAnzahlPackstuecke] = @Original_ncts_GesamtAnzahlPackstuecke)) AND ((@IsNu"& _ "ll_ncts_Verschluss_ArtCode = 1 AND [ncts_Verschluss_ArtCode] IS NULL) OR ([ncts_"& _ "Verschluss_ArtCode] = @Original_ncts_Verschluss_ArtCode)) AND ((@IsNull_ncts_Ver"& _ "schluss_Anzahl = 1 AND [ncts_Verschluss_Anzahl] IS NULL) OR ([ncts_Verschluss_An"& _ "zahl] = @Original_ncts_Verschluss_Anzahl)) AND ((@IsNull_ncts_Verschluss_Zeichen"& _ "1 = 1 AND [ncts_Verschluss_Zeichen1] IS NULL) OR ([ncts_Verschluss_Zeichen1] = @"& _ "Original_ncts_Verschluss_Zeichen1)) AND ((@IsNull_ncts_Verschluss_Zeichen2 = 1 A"& _ "ND [ncts_Verschluss_Zeichen2] IS NULL) OR ([ncts_Verschluss_Zeichen2] = @Origina"& _ "l_ncts_Verschluss_Zeichen2)) AND ((@IsNull_ncts_Verschluss_Zeichen3 = 1 AND [nct"& _ "s_Verschluss_Zeichen3] IS NULL) OR ([ncts_Verschluss_Zeichen3] = @Original_ncts_"& _ "Verschluss_Zeichen3)) AND ((@IsNull_ncts_Verschluss_Zeichen4 = 1 AND [ncts_Versc"& _ "hluss_Zeichen4] IS NULL) OR ([ncts_Verschluss_Zeichen4] = @Original_ncts_Verschl"& _ "uss_Zeichen4)) AND ((@IsNull_ncts_Verschluss_Zeichen5 = 1 AND [ncts_Verschluss_Z"& _ "eichen5] IS NULL) OR ([ncts_Verschluss_Zeichen5] = @Original_ncts_Verschluss_Zei"& _ "chen5)) AND ((@IsNull_ncts_Verschluss_Zeichen6 = 1 AND [ncts_Verschluss_Zeichen6"& _ "] IS NULL) OR ([ncts_Verschluss_Zeichen6] = @Original_ncts_Verschluss_Zeichen6))"& _ " AND ((@IsNull_ncts_Verschluss_Zeichen7 = 1 AND [ncts_Verschluss_Zeichen7] IS NU"& _ "LL) OR ([ncts_Verschluss_Zeichen7] = @Original_ncts_Verschluss_Zeichen7)) AND (("& _ "@IsNull_ncts_Verschluss_Zeichen8 = 1 AND [ncts_Verschluss_Zeichen8] IS NULL) OR "& _ "([ncts_Verschluss_Zeichen8] = @Original_ncts_Verschluss_Zeichen8)) AND ((@IsNull"& _ "_ncts_Verschluss_Zeichen9 = 1 AND [ncts_Verschluss_Zeichen9] IS NULL) OR ([ncts_"& _ "Verschluss_Zeichen9] = @Original_ncts_Verschluss_Zeichen9)) AND ((@IsNull_ncts_V"& _ "erschluss_Zeichen10 = 1 AND [ncts_Verschluss_Zeichen10] IS NULL) OR ([ncts_Versc"& _ "hluss_Zeichen10] = @Original_ncts_Verschluss_Zeichen10)) AND ((@IsNull_ncts_Vers"& _ "chluss_Zeichen11 = 1 AND [ncts_Verschluss_Zeichen11] IS NULL) OR ([ncts_Verschlu"& _ "ss_Zeichen11] = @Original_ncts_Verschluss_Zeichen11)) AND ((@IsNull_ncts_Verschl"& _ "uss_Zeichen12 = 1 AND [ncts_Verschluss_Zeichen12] IS NULL) OR ([ncts_Verschluss_"& _ "Zeichen12] = @Original_ncts_Verschluss_Zeichen12)) AND ((@IsNull_ncts_Verschluss"& _ "_Zeichen13 = 1 AND [ncts_Verschluss_Zeichen13] IS NULL) OR ([ncts_Verschluss_Zei"& _ "chen13] = @Original_ncts_Verschluss_Zeichen13)) AND ((@IsNull_ncts_Verschluss_Ze"& _ "ichen14 = 1 AND [ncts_Verschluss_Zeichen14] IS NULL) OR ([ncts_Verschluss_Zeiche"& _ "n14] = @Original_ncts_Verschluss_Zeichen14)) AND ((@IsNull_ncts_Verschluss_Zeich"& _ "en15 = 1 AND [ncts_Verschluss_Zeichen15] IS NULL) OR ([ncts_Verschluss_Zeichen15"& _ "] = @Original_ncts_Verschluss_Zeichen15)) AND ((@IsNull_ncts_Verschluss_Zeichen1"& _ "6 = 1 AND [ncts_Verschluss_Zeichen16] IS NULL) OR ([ncts_Verschluss_Zeichen16] ="& _ " @Original_ncts_Verschluss_Zeichen16)) AND ((@IsNull_ncts_Befoerderungsmittel_Ke"& _ "nnzeichenAbgang = 1 AND [ncts_Befoerderungsmittel_KennzeichenAbgang] IS NULL) OR"& _ " ([ncts_Befoerderungsmittel_KennzeichenAbgang] = @Original_ncts_Befoerderungsmit"& _ "tel_KennzeichenAbgang)) AND ((@IsNull_ncts_Befoerderungsmittel_Sttaszugehoerigke"& _ "itAbgangCode = 1 AND [ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode] IS"& _ " NULL) OR ([ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode] = @Original_"& _ "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode)) AND ((@IsNull_ncts_Befo"& _ "erderungsmittel_VerkehrszweigGrenzueberschreitent = 1 AND [ncts_Befoerderungsmit"& _ "tel_VerkehrszweigGrenzueberschreitent] IS NULL) OR ([ncts_Befoerderungsmittel_Ve"& _ "rkehrszweigGrenzueberschreitent] = @Original_ncts_Befoerderungsmittel_Verkehrszw"& _ "eigGrenzueberschreitent)) AND ((@IsNull_ncts_Befoerderungsmittel_ArtGrenzuebersc"& _ "hreitung = 1 AND [ncts_Befoerderungsmittel_ArtGrenzueberschreitung] IS NULL) OR "& _ "([ncts_Befoerderungsmittel_ArtGrenzueberschreitung] = @Original_ncts_Befoerderun"& _ "gsmittel_ArtGrenzueberschreitung)) AND ((@IsNull_ncts_Befoerderungsmittel_Kennze"& _ "ichenGrenzueberschreitend = 1 AND [ncts_Befoerderungsmittel_KennzeichenGrenzuebe"& _ "rschreitend] IS NULL) OR ([ncts_Befoerderungsmittel_KennzeichenGrenzueberschreit"& _ "end] = @Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend)) AND "& _ "((@IsNull_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode "& _ "= 1 AND [ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode] "& _ "IS NULL) OR ([ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendC"& _ "ode] = @Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreite"& _ "ndCode)) AND ((@IsNull_ncts_Versender_EORI = 1 AND [ncts_Versender_EORI] IS NULL"& _ ") OR ([ncts_Versender_EORI] = @Original_ncts_Versender_EORI)) AND ((@IsNull_ncts"& _ "_Versender_NLNR = 1 AND [ncts_Versender_NLNR] IS NULL) OR ([ncts_Versender_NLNR]"& _ " = @Original_ncts_Versender_NLNR)) AND ((@IsNull_ncts_Versender_TIN = 1 AND [nct"& _ "s_Versender_TIN] IS NULL) OR ([ncts_Versender_TIN] = @Original_ncts_Versender_TI"& _ "N)) AND ((@IsNull_ncts_Versender_Name = 1 AND [ncts_Versender_Name] IS NULL) OR "& _ "([ncts_Versender_Name] = @Original_ncts_Versender_Name)) AND ((@IsNull_ncts_Vers"& _ "ender_StrasseHausnummer = 1 AND [ncts_Versender_StrasseHausnummer] IS NULL) OR ("& _ "[ncts_Versender_StrasseHausnummer] = @Original_ncts_Versender_StrasseHausnummer)"& _ ") AND ((@IsNull_ncts_Versender_Ort = 1 AND [ncts_Versender_Ort] IS NULL) OR ([nc"& _ "ts_Versender_Ort] = @Original_ncts_Versender_Ort)) AND ((@IsNull_ncts_Versender_"& _ "PLZ = 1 AND [ncts_Versender_PLZ] IS NULL) OR ([ncts_Versender_PLZ] = @Original_n"& _ "cts_Versender_PLZ)) AND ((@IsNull_ncts_Versender_Land = 1 AND [ncts_Versender_La"& _ "nd] IS NULL) OR ([ncts_Versender_Land] = @Original_ncts_Versender_Land)) AND ((@"& _ "IsNull_ncts_Empfaenger_EORI = 1 AND [ncts_Empfaenger_EORI] IS NULL) OR ([ncts_Em"& _ "pfaenger_EORI] = @Original_ncts_Empfaenger_EORI)) AND ((@IsNull_ncts_Empfaenger_"& _ "NLNR = 1 AND [ncts_Empfaenger_NLNR] IS NULL) OR ([ncts_Empfaenger_NLNR] = @Origi"& _ "nal_ncts_Empfaenger_NLNR)) AND ((@IsNull_ncts_Empfaenger_TIN = 1 AND [ncts_Empfa"& _ "enger_TIN] IS NULL) OR ([ncts_Empfaenger_TIN] = @Original_ncts_Empfaenger_TIN)) "& _ "AND ((@IsNull_ncts_Empfaenger_Name = 1 AND [ncts_Empfaenger_Name] IS NULL) OR (["& _ "ncts_Empfaenger_Name] = @Original_ncts_Empfaenger_Name)) AND ((@IsNull_ncts_Empf"& _ "aenger_StrasseHausnummer = 1 AND [ncts_Empfaenger_StrasseHausnummer] IS NULL) OR"& _ " ([ncts_Empfaenger_StrasseHausnummer] = @Original_ncts_Empfaenger_StrasseHausnum"& _ "mer)) AND ((@IsNull_ncts_Empfaenger_Ort = 1 AND [ncts_Empfaenger_Ort] IS NULL) O"& _ "R ([ncts_Empfaenger_Ort] = @Original_ncts_Empfaenger_Ort)) AND ((@IsNull_ncts_Em"& _ "pfaenger_PLZ = 1 AND [ncts_Empfaenger_PLZ] IS NULL) OR ([ncts_Empfaenger_PLZ] = "& _ "@Original_ncts_Empfaenger_PLZ)) AND ((@IsNull_ncts_Empfaenger_Land = 1 AND [ncts"& _ "_Empfaenger_Land] IS NULL) OR ([ncts_Empfaenger_Land] = @Original_ncts_Empfaenge"& _ "r_Land)) AND ((@IsNull_ncts_Hauptverpflichteter_EORI = 1 AND [ncts_Hauptverpflic"& _ "hteter_EORI] IS NULL) OR ([ncts_Hauptverpflichteter_EORI] = @Original_ncts_Haupt"& _ "verpflichteter_EORI)) AND ((@IsNull_ncts_Hauptverpflichteter_NLNR = 1 AND [ncts_"& _ "Hauptverpflichteter_NLNR] IS NULL) OR ([ncts_Hauptverpflichteter_NLNR] = @Origin"& _ "al_ncts_Hauptverpflichteter_NLNR)) AND ((@IsNull_ncts_Hauptverpflichteter_TIN = "& _ "1 AND [ncts_Hauptverpflichteter_TIN] IS NULL) OR ([ncts_Hauptverpflichteter_TIN]"& _ " = @Original_ncts_Hauptverpflichteter_TIN)) AND ((@IsNull_ncts_Hauptverpflichtet"& _ "er_Name = 1 AND [ncts_Hauptverpflichteter_Name] IS NULL) OR ([ncts_Hauptverpflic"& _ "hteter_Name] = @Original_ncts_Hauptverpflichteter_Name)) AND ((@IsNull_ncts_Haup"& _ "tverpflichteter_StrasseHausnummer = 1 AND [ncts_Hauptverpflichteter_StrasseHausn"& _ "ummer] IS NULL) OR ([ncts_Hauptverpflichteter_StrasseHausnummer] = @Original_nct"& _ "s_Hauptverpflichteter_StrasseHausnummer)) AND ((@IsNull_ncts_Hauptverpflichteter"& _ "_Ort = 1 AND [ncts_Hauptverpflichteter_Ort] IS NULL) OR ([ncts_Hauptverpflichtet"& _ "er_Ort] = @Original_ncts_Hauptverpflichteter_Ort)) AND ((@IsNull_ncts_Hauptverpf"& _ "lichteter_PLZ = 1 AND [ncts_Hauptverpflichteter_PLZ] IS NULL) OR ([ncts_Hauptver"& _ "pflichteter_PLZ] = @Original_ncts_Hauptverpflichteter_PLZ)) AND ((@IsNull_ncts_H"& _ "auptverpflichteter_Land = 1 AND [ncts_Hauptverpflichteter_Land] IS NULL) OR ([nc"& _ "ts_Hauptverpflichteter_Land] = @Original_ncts_Hauptverpflichteter_Land)) AND ((@"& _ "IsNull_ncts_ZugelassenerEmpfaenger_EORI = 1 AND [ncts_ZugelassenerEmpfaenger_EOR"& _ "I] IS NULL) OR ([ncts_ZugelassenerEmpfaenger_EORI] = @Original_ncts_Zugelassener"& _ "Empfaenger_EORI)) AND ((@IsNull_ncts_ZugelassenerEmpfaenger_TIN = 1 AND [ncts_Zu"& _ "gelassenerEmpfaenger_TIN] IS NULL) OR ([ncts_ZugelassenerEmpfaenger_TIN] = @Orig"& _ "inal_ncts_ZugelassenerEmpfaenger_TIN)) AND ((@IsNull_ncts_ZugelassenerEmpfaenger"& _ "_IDCarnet = 1 AND [ncts_ZugelassenerEmpfaenger_IDCarnet] IS NULL) OR ([ncts_Zuge"& _ "lassenerEmpfaenger_IDCarnet] = @Original_ncts_ZugelassenerEmpfaenger_IDCarnet)) "& _ "AND ((@IsNull_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender = 1 AND [n"& _ "cts_ZugelassenerEmpfaenger_BewilligungsnummerVersender] IS NULL) OR ([ncts_Zugel"& _ "assenerEmpfaenger_BewilligungsnummerVersender] = @Original_ncts_ZugelassenerEmpf"& _ "aenger_BewilligungsnummerVersender)) AND ((@IsNull_ncts_SumA_KzSumASicherheit = "& _ "1 AND [ncts_SumA_KzSumASicherheit] IS NULL) OR ([ncts_SumA_KzSumASicherheit] = @"& _ "Original_ncts_SumA_KzSumASicherheit)) AND ((@IsNull_ncts_SumA_KennnummerSendung "& _ "= 1 AND [ncts_SumA_KennnummerSendung] IS NULL) OR ([ncts_SumA_KennnummerSendung]"& _ " = @Original_ncts_SumA_KennnummerSendung)) AND ((@IsNull_ncts_SumA_NummerBefoerd"& _ "erung = 1 AND [ncts_SumA_NummerBefoerderung] IS NULL) OR ([ncts_SumA_NummerBefoe"& _ "rderung] = @Original_ncts_SumA_NummerBefoerderung)) AND ((@IsNull_ncts_SumA_Beso"& _ "ndereUmstaende = 1 AND [ncts_SumA_BesondereUmstaende] IS NULL) OR ([ncts_SumA_Be"& _ "sondereUmstaende] = @Original_ncts_SumA_BesondereUmstaende)) AND ((@IsNull_ncts_"& _ "SumA_Ladeort = 1 AND [ncts_SumA_Ladeort] IS NULL) OR ([ncts_SumA_Ladeort] = @Ori"& _ "ginal_ncts_SumA_Ladeort)) AND ((@IsNull_ncts_SumA_Entladeort = 1 AND [ncts_SumA_"& _ "Entladeort] IS NULL) OR ([ncts_SumA_Entladeort] = @Original_ncts_SumA_Entladeort"& _ ")) AND ((@IsNull_ncts_SumA_BefoerderungskostenZahlungsweise = 1 AND [ncts_SumA_B"& _ "efoerderungskostenZahlungsweise] IS NULL) OR ([ncts_SumA_BefoerderungskostenZahl"& _ "ungsweise] = @Original_ncts_SumA_BefoerderungskostenZahlungsweise)) AND ((@IsNul"& _ "l_ncts_SumA_BefoerderungsrouteLand1 = 1 AND [ncts_SumA_BefoerderungsrouteLand1] "& _ "IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand1] = @Original_ncts_SumA_Befoerder"& _ "ungsrouteLand1)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand2 = 1 AND [ncts_S"& _ "umA_BefoerderungsrouteLand2] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand2] = "& _ "@Original_ncts_SumA_BefoerderungsrouteLand2)) AND ((@IsNull_ncts_SumA_Befoerderu"& _ "ngsrouteLand3 = 1 AND [ncts_SumA_BefoerderungsrouteLand3] IS NULL) OR ([ncts_Sum"& _ "A_BefoerderungsrouteLand3] = @Original_ncts_SumA_BefoerderungsrouteLand3)) AND ("& _ "(@IsNull_ncts_SumA_BefoerderungsrouteLand4 = 1 AND [ncts_SumA_Befoerderungsroute"& _ "Land4] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand4] = @Original_ncts_SumA_Be"& _ "foerderungsrouteLand4)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand5 = 1 AND "& _ "[ncts_SumA_BefoerderungsrouteLand5] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLa"& _ "nd5] = @Original_ncts_SumA_BefoerderungsrouteLand5)) AND ((@IsNull_ncts_SumA_Bef"& _ "oerderungsrouteLand6 = 1 AND [ncts_SumA_BefoerderungsrouteLand6] IS NULL) OR ([n"& _ "cts_SumA_BefoerderungsrouteLand6] = @Original_ncts_SumA_BefoerderungsrouteLand6)"& _ ") AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand7 = 1 AND [ncts_SumA_Befoerderun"& _ "gsrouteLand7] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand7] = @Original_ncts_"& _ "SumA_BefoerderungsrouteLand7)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand8 ="& _ " 1 AND [ncts_SumA_BefoerderungsrouteLand8] IS NULL) OR ([ncts_SumA_Befoerderungs"& _ "routeLand8] = @Original_ncts_SumA_BefoerderungsrouteLand8)) AND ((@IsNull_ncts_S"& _ "umA_BefoerderungsrouteLand9 = 1 AND [ncts_SumA_BefoerderungsrouteLand9] IS NULL)"& _ " OR ([ncts_SumA_BefoerderungsrouteLand9] = @Original_ncts_SumA_Befoerderungsrout"& _ "eLand9)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand10 = 1 AND [ncts_SumA_Bef"& _ "oerderungsrouteLand10] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand10] = @Orig"& _ "inal_ncts_SumA_BefoerderungsrouteLand10)) AND ((@IsNull_ncts_SumA_Befoerderungsr"& _ "outeLand11 = 1 AND [ncts_SumA_BefoerderungsrouteLand11] IS NULL) OR ([ncts_SumA_"& _ "BefoerderungsrouteLand11] = @Original_ncts_SumA_BefoerderungsrouteLand11)) AND ("& _ "(@IsNull_ncts_SumA_BefoerderungsrouteLand12 = 1 AND [ncts_SumA_Befoerderungsrout"& _ "eLand12] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand12] = @Original_ncts_SumA"& _ "_BefoerderungsrouteLand12)) AND ((@IsNull_ncts_SumA_Versender_EORI = 1 AND [ncts"& _ "_SumA_Versender_EORI] IS NULL) OR ([ncts_SumA_Versender_EORI] = @Original_ncts_S"& _ "umA_Versender_EORI)) AND ((@IsNull_ncts_SumA_Versender_NLNR = 1 AND [ncts_SumA_V"& _ "ersender_NLNR] IS NULL) OR ([ncts_SumA_Versender_NLNR] = @Original_ncts_SumA_Ver"& _ "sender_NLNR)) AND ((@IsNull_ncts_SumA_Versender_TIN = 1 AND [ncts_SumA_Versender"& _ "_TIN] IS NULL) OR ([ncts_SumA_Versender_TIN] = @Original_ncts_SumA_Versender_TIN"& _ ")) AND ((@IsNull_ncts_SumA_Versender_Name = 1 AND [ncts_SumA_Versender_Name] IS "& _ "NULL) OR ([ncts_SumA_Versender_Name] = @Original_ncts_SumA_Versender_Name)) AND "& _ "((@IsNull_ncts_SumA_Versender_StrasseHausnummer = 1 AND [ncts_SumA_Versender_Str"& _ "asseHausnummer] IS NULL) OR ([ncts_SumA_Versender_StrasseHausnummer] = @Original"& _ "_ncts_SumA_Versender_StrasseHausnummer)) AND ((@IsNull_ncts_SumA_Versender_Land "& _ "= 1 AND [ncts_SumA_Versender_Land] IS NULL) OR ([ncts_SumA_Versender_Land] = @Or"& _ "iginal_ncts_SumA_Versender_Land)) AND ((@IsNull_ncts_SumA_Versender_PLZ = 1 AND "& _ "[ncts_SumA_Versender_PLZ] IS NULL) OR ([ncts_SumA_Versender_PLZ] = @Original_nct"& _ "s_SumA_Versender_PLZ)) AND ((@IsNull_ncts_SumA_Versender_Ort = 1 AND [ncts_SumA_"& _ "Versender_Ort] IS NULL) OR ([ncts_SumA_Versender_Ort] = @Original_ncts_SumA_Vers"& _ "ender_Ort)) AND ((@IsNull_ncts_SumA_Empfaenger_EORI = 1 AND [ncts_SumA_Empfaenge"& _ "r_EORI] IS NULL) OR ([ncts_SumA_Empfaenger_EORI] = @Original_ncts_SumA_Empfaenge"& _ "r_EORI)) AND ((@IsNull_ncts_SumA_Empfaenger_NLNR = 1 AND [ncts_SumA_Empfaenger_N"& _ "LNR] IS NULL) OR ([ncts_SumA_Empfaenger_NLNR] = @Original_ncts_SumA_Empfaenger_N"& _ "LNR)) AND ((@IsNull_ncts_SumA_Empfaenger_TIN = 1 AND [ncts_SumA_Empfaenger_TIN] "& _ "IS NULL) OR ([ncts_SumA_Empfaenger_TIN] = @Original_ncts_SumA_Empfaenger_TIN)) A"& _ "ND ((@IsNull_ncts_SumA_Empfaenger_Name = 1 AND [ncts_SumA_Empfaenger_Name] IS NU"& _ "LL) OR ([ncts_SumA_Empfaenger_Name] = @Original_ncts_SumA_Empfaenger_Name)) AND "& _ "((@IsNull_ncts_SumA_Empfaenger_StrasseHausnummer = 1 AND [ncts_SumA_Empfaenger_S"& _ "trasseHausnummer] IS NULL) OR ([ncts_SumA_Empfaenger_StrasseHausnummer] = @Origi"& _ "nal_ncts_SumA_Empfaenger_StrasseHausnummer)) AND ((@IsNull_ncts_SumA_Empfaenger_"& _ "Land = 1 AND [ncts_SumA_Empfaenger_Land] IS NULL) OR ([ncts_SumA_Empfaenger_Land"& _ "] = @Original_ncts_SumA_Empfaenger_Land)) AND ((@IsNull_ncts_SumA_Empfaenger_PLZ"& _ " = 1 AND [ncts_SumA_Empfaenger_PLZ] IS NULL) OR ([ncts_SumA_Empfaenger_PLZ] = @O"& _ "riginal_ncts_SumA_Empfaenger_PLZ)) AND ((@IsNull_ncts_SumA_Empfaenger_Ort = 1 AN"& _ "D [ncts_SumA_Empfaenger_Ort] IS NULL) OR ([ncts_SumA_Empfaenger_Ort] = @Original"& _ "_ncts_SumA_Empfaenger_Ort)) AND ((@IsNull_ncts_SumA_Befoerderer_EORI = 1 AND [nc"& _ "ts_SumA_Befoerderer_EORI] IS NULL) OR ([ncts_SumA_Befoerderer_EORI] = @Original_"& _ "ncts_SumA_Befoerderer_EORI)) AND ((@IsNull_ncts_SumA_Befoerderer_NLNR = 1 AND [n"& _ "cts_SumA_Befoerderer_NLNR] IS NULL) OR ([ncts_SumA_Befoerderer_NLNR] = @Original"& _ "_ncts_SumA_Befoerderer_NLNR)) AND ((@IsNull_ncts_SumA_Befoerderer_TIN = 1 AND [n"& _ "cts_SumA_Befoerderer_TIN] IS NULL) OR ([ncts_SumA_Befoerderer_TIN] = @Original_n"& _ "cts_SumA_Befoerderer_TIN)) AND ((@IsNull_ncts_SumA_Befoerderer_Name = 1 AND [nct"& _ "s_SumA_Befoerderer_Name] IS NULL) OR ([ncts_SumA_Befoerderer_Name] = @Original_n"& _ "cts_SumA_Befoerderer_Name)) AND ((@IsNull_ncts_SumA_Befoerderer_StrasseHausnumme"& _ "r = 1 AND [ncts_SumA_Befoerderer_StrasseHausnummer] IS NULL) OR ([ncts_SumA_Befo"& _ "erderer_StrasseHausnummer] = @Original_ncts_SumA_Befoerderer_StrasseHausnummer))"& _ " AND ((@IsNull_ncts_SumA_Befoerderer_Land = 1 AND [ncts_SumA_Befoerderer_Land] I"& _ "S NULL) OR ([ncts_SumA_Befoerderer_Land] = @Original_ncts_SumA_Befoerderer_Land)"& _ ") AND ((@IsNull_ncts_SumA_Befoerderer_PLZ = 1 AND [ncts_SumA_Befoerderer_PLZ] IS"& _ " NULL) OR ([ncts_SumA_Befoerderer_PLZ] = @Original_ncts_SumA_Befoerderer_PLZ)) A"& _ "ND ((@IsNull_ncts_SumA_Befoerderer_Ort = 1 AND [ncts_SumA_Befoerderer_Ort] IS NU"& _ "LL) OR ([ncts_SumA_Befoerderer_Ort] = @Original_ncts_SumA_Befoerderer_Ort)) AND "& _ "((@IsNull_ncts_Stammreferenz = 1 AND [ncts_Stammreferenz] IS NULL) OR ([ncts_Sta"& _ "mmreferenz] = @Original_ncts_Stammreferenz)) AND ((@IsNull_ncts_GUID = 1 AND [nc"& _ "ts_GUID] IS NULL) OR ([ncts_GUID] = @Original_ncts_GUID)) AND ((@IsNull_ncts_Ero"& _ "effnung = 1 AND [ncts_Eroeffnung] IS NULL) OR ([ncts_Eroeffnung] = @Original_nct"& _ "s_Eroeffnung)) AND ((@IsNull_ncts_Ankunft = 1 AND [ncts_Ankunft] IS NULL) OR ([n"& _ "cts_Ankunft] = @Original_ncts_Ankunft)) AND ((@IsNull_ncts_Erledigung = 1 AND [n"& _ "cts_Erledigung] IS NULL) OR ([ncts_Erledigung] = @Original_ncts_Erledigung)) AND"& _ " ([ncts_AVISO_einarbeitet] = @Original_ncts_AVISO_einarbeitet) AND ((@IsNull_nct"& _ "s_VERAG_WeiterverrechungSatz = 1 AND [ncts_VERAG_WeiterverrechungSatz] IS NULL) "& _ "OR ([ncts_VERAG_WeiterverrechungSatz] = @Original_ncts_VERAG_WeiterverrechungSat"& _ "z)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Partnersystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Partnersystem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ANR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GestelltAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Partner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectAlias", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Bearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_VersendungsLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BestimmungslandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ArtAnmeldung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ArtAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BeladungsOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BeladungsOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GesamtRohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Ladeort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Ladeort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Entladeort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Entladeort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Stammreferenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GUID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Eroeffnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Eroeffnung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Ankunft", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Ankunft", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Erledigung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erledigung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AVISO_einarbeitet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AVISO_einarbeitet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_VERAG_WeiterverrechungSatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VERAG_WeiterverrechungSatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_VERAG_WeiterverrechungSatz", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ncts_VERAG_WeiterverrechungSatz", 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].[tblNCTS_TR] ([ncts_Partnersystem], [ncts_Status], [ncts_Status"& _ "_KEWILL_Equivalent], [ncts_dyaArt], [ncts_dyaAnmID], [ncts_ANR], [ncts_MRN], [nc"& _ "ts_Erstellung], [ncts_Erstellung_SB], [ncts_LetzteBearbeitung], [ncts_LetzteBear"& _ "beitung_SB], [ncts_firma], [ncts_niederlassung], [ncts_Gestellt], [ncts_Gestellt"& _ "Am], [ncts_Trans_Partner], [ncts_Trans_Div1], [ncts_Trans_Div2], [ncts_Trans_Div"& _ "3], [ncts_Trans_Referenz], [ncts_Trans_DatumZeit], [ncts_Trans_Version], [ncts_N"& _ "achrichtenSenderTIN], [ncts_NachrichtenSenderNLNR], [ncts_NachrichtenempfaengerD"& _ "ST], [ncts_ObjectName], [ncts_ObjectAlias], [ncts_BezugsnummerVorblendung], [nct"& _ "s_Bearbeiter], [ncts_VersendungsLandCode], [ncts_BestimmungslandCode], [ncts_Art"& _ "Anmeldung], [ncts_BeladungsOrt], [ncts_DurchgangszollstelleDienststellnummer1], "& _ "[ncts_DurchgangszollstelleDienststellnummer2], [ncts_DurchgangszollstelleDiensts"& _ "tellnummer3], [ncts_DurchgangszollstelleDienststellnummer4], [ncts_Durchgangszol"& _ "lstelleDienststellnummer5], [ncts_DurchgangszollstelleDienststellnummer6], [ncts"& _ "_DurchgangszollstelleDienststellnummer7], [ncts_DurchgangszollstelleDienststelln"& _ "ummer8], [ncts_DurchgangszollstelleDienststellnummer9], [ncts_BestimmungsstelleD"& _ "ienststellennummer], [ncts_AbgangsDienststellennummer], [ncts_Wiedergestellungsd"& _ "atum], [ncts_KzVereinfachtesVerfahren], [ncts_GesamtRohmasse], [ncts_GesamtAnzah"& _ "lPackstuecke], [ncts_Verschluss_ArtCode], [ncts_Verschluss_Anzahl], [ncts_Versch"& _ "luss_Zeichen1], [ncts_Verschluss_Zeichen2], [ncts_Verschluss_Zeichen3], [ncts_Ve"& _ "rschluss_Zeichen4], [ncts_Verschluss_Zeichen5], [ncts_Verschluss_Zeichen6], [nct"& _ "s_Verschluss_Zeichen7], [ncts_Verschluss_Zeichen8], [ncts_Verschluss_Zeichen9], "& _ "[ncts_Verschluss_Zeichen10], [ncts_Verschluss_Zeichen11], [ncts_Verschluss_Zeich"& _ "en12], [ncts_Verschluss_Zeichen13], [ncts_Verschluss_Zeichen14], [ncts_Verschlus"& _ "s_Zeichen15], [ncts_Verschluss_Zeichen16], [ncts_Befoerderungsmittel_Kennzeichen"& _ "Abgang], [ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode], [ncts_Befoerd"& _ "erungsmittel_VerkehrszweigGrenzueberschreitent], [ncts_Befoerderungsmittel_ArtGr"& _ "enzueberschreitung], [ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend],"& _ " [ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode], [ncts_"& _ "Versender_EORI], [ncts_Versender_NLNR], [ncts_Versender_TIN], [ncts_Versender_Na"& _ "me], [ncts_Versender_StrasseHausnummer], [ncts_Versender_Ort], [ncts_Versender_P"& _ "LZ], [ncts_Versender_Land], [ncts_Empfaenger_EORI], [ncts_Empfaenger_NLNR], [nct"& _ "s_Empfaenger_TIN], [ncts_Empfaenger_Name], [ncts_Empfaenger_StrasseHausnummer], "& _ "[ncts_Empfaenger_Ort], [ncts_Empfaenger_PLZ], [ncts_Empfaenger_Land], [ncts_Haup"& _ "tverpflichteter_EORI], [ncts_Hauptverpflichteter_NLNR], [ncts_Hauptverpflichtete"& _ "r_TIN], [ncts_Hauptverpflichteter_Name], [ncts_Hauptverpflichteter_StrasseHausnu"& _ "mmer], [ncts_Hauptverpflichteter_Ort], [ncts_Hauptverpflichteter_PLZ], [ncts_Hau"& _ "ptverpflichteter_Land], [ncts_ZugelassenerEmpfaenger_EORI], [ncts_ZugelassenerEm"& _ "pfaenger_TIN], [ncts_ZugelassenerEmpfaenger_IDCarnet], [ncts_ZugelassenerEmpfaen"& _ "ger_BewilligungsnummerVersender], [ncts_SumA_KzSumASicherheit], [ncts_SumA_Kennn"& _ "ummerSendung], [ncts_SumA_NummerBefoerderung], [ncts_SumA_BesondereUmstaende], ["& _ "ncts_SumA_Ladeort], [ncts_SumA_Entladeort], [ncts_SumA_BefoerderungskostenZahlun"& _ "gsweise], [ncts_SumA_BefoerderungsrouteLand1], [ncts_SumA_BefoerderungsrouteLand"& _ "2], [ncts_SumA_BefoerderungsrouteLand3], [ncts_SumA_BefoerderungsrouteLand4], [n"& _ "cts_SumA_BefoerderungsrouteLand5], [ncts_SumA_BefoerderungsrouteLand6], [ncts_Su"& _ "mA_BefoerderungsrouteLand7], [ncts_SumA_BefoerderungsrouteLand8], [ncts_SumA_Bef"& _ "oerderungsrouteLand9], [ncts_SumA_BefoerderungsrouteLand10], [ncts_SumA_Befoerde"& _ "rungsrouteLand11], [ncts_SumA_BefoerderungsrouteLand12], [ncts_SumA_Versender_EO"& _ "RI], [ncts_SumA_Versender_NLNR], [ncts_SumA_Versender_TIN], [ncts_SumA_Versender"& _ "_Name], [ncts_SumA_Versender_StrasseHausnummer], [ncts_SumA_Versender_Land], [nc"& _ "ts_SumA_Versender_PLZ], [ncts_SumA_Versender_Ort], [ncts_SumA_Empfaenger_EORI], "& _ "[ncts_SumA_Empfaenger_NLNR], [ncts_SumA_Empfaenger_TIN], [ncts_SumA_Empfaenger_N"& _ "ame], [ncts_SumA_Empfaenger_StrasseHausnummer], [ncts_SumA_Empfaenger_Land], [nc"& _ "ts_SumA_Empfaenger_PLZ], [ncts_SumA_Empfaenger_Ort], [ncts_SumA_Befoerderer_EORI"& _ "], [ncts_SumA_Befoerderer_NLNR], [ncts_SumA_Befoerderer_TIN], [ncts_SumA_Befoerd"& _ "erer_Name], [ncts_SumA_Befoerderer_StrasseHausnummer], [ncts_SumA_Befoerderer_La"& _ "nd], [ncts_SumA_Befoerderer_PLZ], [ncts_SumA_Befoerderer_Ort], [ncts_Stammrefere"& _ "nz], [ncts_GUID], [ncts_Eroeffnung], [ncts_Ankunft], [ncts_Erledigung], [ncts_AV"& _ "ISO_einarbeitet], [ncts_VERAG_WeiterverrechungSatz]) VALUES (@ncts_Partnersystem"& _ ", @ncts_Status, @ncts_Status_KEWILL_Equivalent, @ncts_dyaArt, @ncts_dyaAnmID, @n"& _ "cts_ANR, @ncts_MRN, @ncts_Erstellung, @ncts_Erstellung_SB, @ncts_LetzteBearbeitu"& _ "ng, @ncts_LetzteBearbeitung_SB, @ncts_firma, @ncts_niederlassung, @ncts_Gestellt"& _ ", @ncts_GestelltAm, @ncts_Trans_Partner, @ncts_Trans_Div1, @ncts_Trans_Div2, @nc"& _ "ts_Trans_Div3, @ncts_Trans_Referenz, @ncts_Trans_DatumZeit, @ncts_Trans_Version,"& _ " @ncts_NachrichtenSenderTIN, @ncts_NachrichtenSenderNLNR, @ncts_Nachrichtenempfa"& _ "engerDST, @ncts_ObjectName, @ncts_ObjectAlias, @ncts_BezugsnummerVorblendung, @n"& _ "cts_Bearbeiter, @ncts_VersendungsLandCode, @ncts_BestimmungslandCode, @ncts_ArtA"& _ "nmeldung, @ncts_BeladungsOrt, @ncts_DurchgangszollstelleDienststellnummer1, @nct"& _ "s_DurchgangszollstelleDienststellnummer2, @ncts_DurchgangszollstelleDienststelln"& _ "ummer3, @ncts_DurchgangszollstelleDienststellnummer4, @ncts_Durchgangszollstelle"& _ "Dienststellnummer5, @ncts_DurchgangszollstelleDienststellnummer6, @ncts_Durchgan"& _ "gszollstelleDienststellnummer7, @ncts_DurchgangszollstelleDienststellnummer8, @n"& _ "cts_DurchgangszollstelleDienststellnummer9, @ncts_BestimmungsstelleDienststellen"& _ "nummer, @ncts_AbgangsDienststellennummer, @ncts_Wiedergestellungsdatum, @ncts_Kz"& _ "VereinfachtesVerfahren, @ncts_GesamtRohmasse, @ncts_GesamtAnzahlPackstuecke, @nc"& _ "ts_Verschluss_ArtCode, @ncts_Verschluss_Anzahl, @ncts_Verschluss_Zeichen1, @ncts"& _ "_Verschluss_Zeichen2, @ncts_Verschluss_Zeichen3, @ncts_Verschluss_Zeichen4, @nct"& _ "s_Verschluss_Zeichen5, @ncts_Verschluss_Zeichen6, @ncts_Verschluss_Zeichen7, @nc"& _ "ts_Verschluss_Zeichen8, @ncts_Verschluss_Zeichen9, @ncts_Verschluss_Zeichen10, @"& _ "ncts_Verschluss_Zeichen11, @ncts_Verschluss_Zeichen12, @ncts_Verschluss_Zeichen1"& _ "3, @ncts_Verschluss_Zeichen14, @ncts_Verschluss_Zeichen15, @ncts_Verschluss_Zeic"& _ "hen16, @ncts_Befoerderungsmittel_KennzeichenAbgang, @ncts_Befoerderungsmittel_St"& _ "taszugehoerigkeitAbgangCode, @ncts_Befoerderungsmittel_VerkehrszweigGrenzuebersc"& _ "hreitent, @ncts_Befoerderungsmittel_ArtGrenzueberschreitung, @ncts_Befoerderungs"& _ "mittel_KennzeichenGrenzueberschreitend, @ncts_Befoerderungsmittel_Staatszugehoer"& _ "igkeitGrenzueberschreitendCode, @ncts_Versender_EORI, @ncts_Versender_NLNR, @nct"& _ "s_Versender_TIN, @ncts_Versender_Name, @ncts_Versender_StrasseHausnummer, @ncts_"& _ "Versender_Ort, @ncts_Versender_PLZ, @ncts_Versender_Land, @ncts_Empfaenger_EORI,"& _ " @ncts_Empfaenger_NLNR, @ncts_Empfaenger_TIN, @ncts_Empfaenger_Name, @ncts_Empfa"& _ "enger_StrasseHausnummer, @ncts_Empfaenger_Ort, @ncts_Empfaenger_PLZ, @ncts_Empfa"& _ "enger_Land, @ncts_Hauptverpflichteter_EORI, @ncts_Hauptverpflichteter_NLNR, @nct"& _ "s_Hauptverpflichteter_TIN, @ncts_Hauptverpflichteter_Name, @ncts_Hauptverpflicht"& _ "eter_StrasseHausnummer, @ncts_Hauptverpflichteter_Ort, @ncts_Hauptverpflichteter"& _ "_PLZ, @ncts_Hauptverpflichteter_Land, @ncts_ZugelassenerEmpfaenger_EORI, @ncts_Z"& _ "ugelassenerEmpfaenger_TIN, @ncts_ZugelassenerEmpfaenger_IDCarnet, @ncts_Zugelass"& _ "enerEmpfaenger_BewilligungsnummerVersender, @ncts_SumA_KzSumASicherheit, @ncts_S"& _ "umA_KennnummerSendung, @ncts_SumA_NummerBefoerderung, @ncts_SumA_BesondereUmstae"& _ "nde, @ncts_SumA_Ladeort, @ncts_SumA_Entladeort, @ncts_SumA_BefoerderungskostenZa"& _ "hlungsweise, @ncts_SumA_BefoerderungsrouteLand1, @ncts_SumA_BefoerderungsrouteLa"& _ "nd2, @ncts_SumA_BefoerderungsrouteLand3, @ncts_SumA_BefoerderungsrouteLand4, @nc"& _ "ts_SumA_BefoerderungsrouteLand5, @ncts_SumA_BefoerderungsrouteLand6, @ncts_SumA_"& _ "BefoerderungsrouteLand7, @ncts_SumA_BefoerderungsrouteLand8, @ncts_SumA_Befoerde"& _ "rungsrouteLand9, @ncts_SumA_BefoerderungsrouteLand10, @ncts_SumA_Befoerderungsro"& _ "uteLand11, @ncts_SumA_BefoerderungsrouteLand12, @ncts_SumA_Versender_EORI, @ncts"& _ "_SumA_Versender_NLNR, @ncts_SumA_Versender_TIN, @ncts_SumA_Versender_Name, @ncts"& _ "_SumA_Versender_StrasseHausnummer, @ncts_SumA_Versender_Land, @ncts_SumA_Versend"& _ "er_PLZ, @ncts_SumA_Versender_Ort, @ncts_SumA_Empfaenger_EORI, @ncts_SumA_Empfaen"& _ "ger_NLNR, @ncts_SumA_Empfaenger_TIN, @ncts_SumA_Empfaenger_Name, @ncts_SumA_Empf"& _ "aenger_StrasseHausnummer, @ncts_SumA_Empfaenger_Land, @ncts_SumA_Empfaenger_PLZ,"& _ " @ncts_SumA_Empfaenger_Ort, @ncts_SumA_Befoerderer_EORI, @ncts_SumA_Befoerderer_"& _ "NLNR, @ncts_SumA_Befoerderer_TIN, @ncts_SumA_Befoerderer_Name, @ncts_SumA_Befoer"& _ "derer_StrasseHausnummer, @ncts_SumA_Befoerderer_Land, @ncts_SumA_Befoerderer_PLZ"& _ ", @ncts_SumA_Befoerderer_Ort, @ncts_Stammreferenz, @ncts_GUID, @ncts_Eroeffnung,"& _ " @ncts_Ankunft, @ncts_Erledigung, @ncts_AVISO_einarbeitet, @ncts_VERAG_Weiterver"& _ "rechungSatz);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ncts_Id, ncts_Partnersystem, ncts_Status, ncts_Status_KEWI"& _ "LL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR, ncts_MRN, ncts_Erstellung, "& _ "ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_LetzteBearbeitung_SB, ncts_firm"& _ "a, ncts_niederlassung, ncts_Gestellt, ncts_GestelltAm, ncts_Trans_Partner, ncts_"& _ "Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_Trans_Referenz, ncts_Trans_Da"& _ "tumZeit, ncts_Trans_Version, ncts_NachrichtenSenderTIN, ncts_NachrichtenSenderNL"& _ "NR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, ncts_ObjectAlias, ncts_Bezug"& _ "snummerVorblendung, ncts_Bearbeiter, ncts_VersendungsLandCode, ncts_Bestimmungsl"& _ "andCode, ncts_ArtAnmeldung, ncts_BeladungsOrt, ncts_DurchgangszollstelleDienstst"& _ "ellnummer1, ncts_DurchgangszollstelleDienststellnummer2, ncts_Durchgangszollstel"& _ "leDienststellnummer3, ncts_DurchgangszollstelleDienststellnummer4, ncts_Durchgan"& _ "gszollstelleDienststellnummer5, ncts_DurchgangszollstelleDienststellnummer6, nct"& _ "s_DurchgangszollstelleDienststellnummer7, ncts_DurchgangszollstelleDienststellnu"& _ "mmer8, ncts_DurchgangszollstelleDienststellnummer9, ncts_BestimmungsstelleDienst"& _ "stellennummer, ncts_AbgangsDienststellennummer, ncts_Wiedergestellungsdatum, nct"& _ "s_KzVereinfachtesVerfahren, ncts_GesamtRohmasse, ncts_GesamtAnzahlPackstuecke, n"& _ "cts_Verschluss_ArtCode, ncts_Verschluss_Anzahl, ncts_Verschluss_Zeichen1, ncts_V"& _ "erschluss_Zeichen2, ncts_Verschluss_Zeichen3, ncts_Verschluss_Zeichen4, ncts_Ver"& _ "schluss_Zeichen5, ncts_Verschluss_Zeichen6, ncts_Verschluss_Zeichen7, ncts_Versc"& _ "hluss_Zeichen8, ncts_Verschluss_Zeichen9, ncts_Verschluss_Zeichen10, ncts_Versch"& _ "luss_Zeichen11, ncts_Verschluss_Zeichen12, ncts_Verschluss_Zeichen13, ncts_Versc"& _ "hluss_Zeichen14, ncts_Verschluss_Zeichen15, ncts_Verschluss_Zeichen16, ncts_Befo"& _ "erderungsmittel_KennzeichenAbgang, ncts_Befoerderungsmittel_SttaszugehoerigkeitA"& _ "bgangCode, ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent, ncts_Befo"& _ "erderungsmittel_ArtGrenzueberschreitung, ncts_Befoerderungsmittel_KennzeichenGre"& _ "nzueberschreitend, ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschrei"& _ "tendCode, ncts_Versender_EORI, ncts_Versender_NLNR, ncts_Versender_TIN, ncts_Ver"& _ "sender_Name, ncts_Versender_StrasseHausnummer, ncts_Versender_Ort, ncts_Versende"& _ "r_PLZ, ncts_Versender_Land, ncts_Empfaenger_EORI, ncts_Empfaenger_NLNR, ncts_Emp"& _ "faenger_TIN, ncts_Empfaenger_Name, ncts_Empfaenger_StrasseHausnummer, ncts_Empfa"& _ "enger_Ort, ncts_Empfaenger_PLZ, ncts_Empfaenger_Land, ncts_Hauptverpflichteter_E"& _ "ORI, ncts_Hauptverpflichteter_NLNR, ncts_Hauptverpflichteter_TIN, ncts_Hauptverp"& _ "flichteter_Name, ncts_Hauptverpflichteter_StrasseHausnummer, ncts_Hauptverpflich"& _ "teter_Ort, ncts_Hauptverpflichteter_PLZ, ncts_Hauptverpflichteter_Land, ncts_Zug"& _ "elassenerEmpfaenger_EORI, ncts_ZugelassenerEmpfaenger_TIN, ncts_ZugelassenerEmpf"& _ "aenger_IDCarnet, ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender, ncts_S"& _ "umA_KzSumASicherheit, ncts_SumA_KennnummerSendung, ncts_SumA_NummerBefoerderung,"& _ " ncts_SumA_BesondereUmstaende, ncts_SumA_Ladeort, ncts_SumA_Entladeort, ncts_Sum"& _ "A_BefoerderungskostenZahlungsweise, ncts_SumA_BefoerderungsrouteLand1, ncts_SumA"& _ "_BefoerderungsrouteLand2, ncts_SumA_BefoerderungsrouteLand3, ncts_SumA_Befoerder"& _ "ungsrouteLand4, ncts_SumA_BefoerderungsrouteLand5, ncts_SumA_BefoerderungsrouteL"& _ "and6, ncts_SumA_BefoerderungsrouteLand7, ncts_SumA_BefoerderungsrouteLand8, ncts"& _ "_SumA_BefoerderungsrouteLand9, ncts_SumA_BefoerderungsrouteLand10, ncts_SumA_Bef"& _ "oerderungsrouteLand11, ncts_SumA_BefoerderungsrouteLand12, ncts_SumA_Versender_E"& _ "ORI, ncts_SumA_Versender_NLNR, ncts_SumA_Versender_TIN, ncts_SumA_Versender_Name"& _ ", ncts_SumA_Versender_StrasseHausnummer, ncts_SumA_Versender_Land, ncts_SumA_Ver"& _ "sender_PLZ, ncts_SumA_Versender_Ort, ncts_SumA_Empfaenger_EORI, ncts_SumA_Empfae"& _ "nger_NLNR, ncts_SumA_Empfaenger_TIN, ncts_SumA_Empfaenger_Name, ncts_SumA_Empfae"& _ "nger_StrasseHausnummer, ncts_SumA_Empfaenger_Land, ncts_SumA_Empfaenger_PLZ, nct"& _ "s_SumA_Empfaenger_Ort, ncts_SumA_Befoerderer_EORI, ncts_SumA_Befoerderer_NLNR, n"& _ "cts_SumA_Befoerderer_TIN, ncts_SumA_Befoerderer_Name, ncts_SumA_Befoerderer_Stra"& _ "sseHausnummer, ncts_SumA_Befoerderer_Land, ncts_SumA_Befoerderer_PLZ, ncts_SumA_"& _ "Befoerderer_Ort, ncts_Stammreferenz, ncts_GUID, ncts_Eroeffnung, ncts_Ankunft, n"& _ "cts_Erledigung, ncts_AVISO_einarbeitet, ncts_VERAG_WeiterverrechungSatz FROM tbl"& _ "NCTS_TR WHERE (ncts_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Partnersystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Partnersystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ArtAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BeladungsOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Ladeort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Entladeort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Eroeffnung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Ankunft", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erledigung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AVISO_einarbeitet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AVISO_einarbeitet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_VERAG_WeiterverrechungSatz", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ncts_VERAG_WeiterverrechungSatz", 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].[tblNCTS_TR] SET [ncts_Partnersystem] = @ncts_Partnersystem, [ncts_S"& _ "tatus] = @ncts_Status, [ncts_Status_KEWILL_Equivalent] = @ncts_Status_KEWILL_Equ"& _ "ivalent, [ncts_dyaArt] = @ncts_dyaArt, [ncts_dyaAnmID] = @ncts_dyaAnmID, [ncts_A"& _ "NR] = @ncts_ANR, [ncts_MRN] = @ncts_MRN, [ncts_Erstellung] = @ncts_Erstellung, ["& _ "ncts_Erstellung_SB] = @ncts_Erstellung_SB, [ncts_LetzteBearbeitung] = @ncts_Letz"& _ "teBearbeitung, [ncts_LetzteBearbeitung_SB] = @ncts_LetzteBearbeitung_SB, [ncts_f"& _ "irma] = @ncts_firma, [ncts_niederlassung] = @ncts_niederlassung, [ncts_Gestellt]"& _ " = @ncts_Gestellt, [ncts_GestelltAm] = @ncts_GestelltAm, [ncts_Trans_Partner] = "& _ "@ncts_Trans_Partner, [ncts_Trans_Div1] = @ncts_Trans_Div1, [ncts_Trans_Div2] = @"& _ "ncts_Trans_Div2, [ncts_Trans_Div3] = @ncts_Trans_Div3, [ncts_Trans_Referenz] = @"& _ "ncts_Trans_Referenz, [ncts_Trans_DatumZeit] = @ncts_Trans_DatumZeit, [ncts_Trans"& _ "_Version] = @ncts_Trans_Version, [ncts_NachrichtenSenderTIN] = @ncts_Nachrichten"& _ "SenderTIN, [ncts_NachrichtenSenderNLNR] = @ncts_NachrichtenSenderNLNR, [ncts_Nac"& _ "hrichtenempfaengerDST] = @ncts_NachrichtenempfaengerDST, [ncts_ObjectName] = @nc"& _ "ts_ObjectName, [ncts_ObjectAlias] = @ncts_ObjectAlias, [ncts_BezugsnummerVorblen"& _ "dung] = @ncts_BezugsnummerVorblendung, [ncts_Bearbeiter] = @ncts_Bearbeiter, [nc"& _ "ts_VersendungsLandCode] = @ncts_VersendungsLandCode, [ncts_BestimmungslandCode] "& _ "= @ncts_BestimmungslandCode, [ncts_ArtAnmeldung] = @ncts_ArtAnmeldung, [ncts_Bel"& _ "adungsOrt] = @ncts_BeladungsOrt, [ncts_DurchgangszollstelleDienststellnummer1] ="& _ " @ncts_DurchgangszollstelleDienststellnummer1, [ncts_DurchgangszollstelleDiensts"& _ "tellnummer2] = @ncts_DurchgangszollstelleDienststellnummer2, [ncts_Durchgangszol"& _ "lstelleDienststellnummer3] = @ncts_DurchgangszollstelleDienststellnummer3, [ncts"& _ "_DurchgangszollstelleDienststellnummer4] = @ncts_DurchgangszollstelleDienststell"& _ "nummer4, [ncts_DurchgangszollstelleDienststellnummer5] = @ncts_Durchgangszollste"& _ "lleDienststellnummer5, [ncts_DurchgangszollstelleDienststellnummer6] = @ncts_Dur"& _ "chgangszollstelleDienststellnummer6, [ncts_DurchgangszollstelleDienststellnummer"& _ "7] = @ncts_DurchgangszollstelleDienststellnummer7, [ncts_DurchgangszollstelleDie"& _ "nststellnummer8] = @ncts_DurchgangszollstelleDienststellnummer8, [ncts_Durchgang"& _ "szollstelleDienststellnummer9] = @ncts_DurchgangszollstelleDienststellnummer9, ["& _ "ncts_BestimmungsstelleDienststellennummer] = @ncts_BestimmungsstelleDienststelle"& _ "nnummer, [ncts_AbgangsDienststellennummer] = @ncts_AbgangsDienststellennummer, ["& _ "ncts_Wiedergestellungsdatum] = @ncts_Wiedergestellungsdatum, [ncts_KzVereinfacht"& _ "esVerfahren] = @ncts_KzVereinfachtesVerfahren, [ncts_GesamtRohmasse] = @ncts_Ges"& _ "amtRohmasse, [ncts_GesamtAnzahlPackstuecke] = @ncts_GesamtAnzahlPackstuecke, [nc"& _ "ts_Verschluss_ArtCode] = @ncts_Verschluss_ArtCode, [ncts_Verschluss_Anzahl] = @n"& _ "cts_Verschluss_Anzahl, [ncts_Verschluss_Zeichen1] = @ncts_Verschluss_Zeichen1, ["& _ "ncts_Verschluss_Zeichen2] = @ncts_Verschluss_Zeichen2, [ncts_Verschluss_Zeichen3"& _ "] = @ncts_Verschluss_Zeichen3, [ncts_Verschluss_Zeichen4] = @ncts_Verschluss_Zei"& _ "chen4, [ncts_Verschluss_Zeichen5] = @ncts_Verschluss_Zeichen5, [ncts_Verschluss_"& _ "Zeichen6] = @ncts_Verschluss_Zeichen6, [ncts_Verschluss_Zeichen7] = @ncts_Versch"& _ "luss_Zeichen7, [ncts_Verschluss_Zeichen8] = @ncts_Verschluss_Zeichen8, [ncts_Ver"& _ "schluss_Zeichen9] = @ncts_Verschluss_Zeichen9, [ncts_Verschluss_Zeichen10] = @nc"& _ "ts_Verschluss_Zeichen10, [ncts_Verschluss_Zeichen11] = @ncts_Verschluss_Zeichen1"& _ "1, [ncts_Verschluss_Zeichen12] = @ncts_Verschluss_Zeichen12, [ncts_Verschluss_Ze"& _ "ichen13] = @ncts_Verschluss_Zeichen13, [ncts_Verschluss_Zeichen14] = @ncts_Versc"& _ "hluss_Zeichen14, [ncts_Verschluss_Zeichen15] = @ncts_Verschluss_Zeichen15, [ncts"& _ "_Verschluss_Zeichen16] = @ncts_Verschluss_Zeichen16, [ncts_Befoerderungsmittel_K"& _ "ennzeichenAbgang] = @ncts_Befoerderungsmittel_KennzeichenAbgang, [ncts_Befoerder"& _ "ungsmittel_SttaszugehoerigkeitAbgangCode] = @ncts_Befoerderungsmittel_Sttaszugeh"& _ "oerigkeitAbgangCode, [ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent"& _ "] = @ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent, [ncts_Befoerder"& _ "ungsmittel_ArtGrenzueberschreitung] = @ncts_Befoerderungsmittel_ArtGrenzuebersch"& _ "reitung, [ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend] = @ncts_Befo"& _ "erderungsmittel_KennzeichenGrenzueberschreitend, [ncts_Befoerderungsmittel_Staat"& _ "szugehoerigkeitGrenzueberschreitendCode] = @ncts_Befoerderungsmittel_Staatszugeh"& _ "oerigkeitGrenzueberschreitendCode, [ncts_Versender_EORI] = @ncts_Versender_EORI,"& _ " [ncts_Versender_NLNR] = @ncts_Versender_NLNR, [ncts_Versender_TIN] = @ncts_Vers"& _ "ender_TIN, [ncts_Versender_Name] = @ncts_Versender_Name, [ncts_Versender_Strasse"& _ "Hausnummer] = @ncts_Versender_StrasseHausnummer, [ncts_Versender_Ort] = @ncts_Ve"& _ "rsender_Ort, [ncts_Versender_PLZ] = @ncts_Versender_PLZ, [ncts_Versender_Land] ="& _ " @ncts_Versender_Land, [ncts_Empfaenger_EORI] = @ncts_Empfaenger_EORI, [ncts_Emp"& _ "faenger_NLNR] = @ncts_Empfaenger_NLNR, [ncts_Empfaenger_TIN] = @ncts_Empfaenger_"& _ "TIN, [ncts_Empfaenger_Name] = @ncts_Empfaenger_Name, [ncts_Empfaenger_StrasseHau"& _ "snummer] = @ncts_Empfaenger_StrasseHausnummer, [ncts_Empfaenger_Ort] = @ncts_Emp"& _ "faenger_Ort, [ncts_Empfaenger_PLZ] = @ncts_Empfaenger_PLZ, [ncts_Empfaenger_Land"& _ "] = @ncts_Empfaenger_Land, [ncts_Hauptverpflichteter_EORI] = @ncts_Hauptverpflic"& _ "hteter_EORI, [ncts_Hauptverpflichteter_NLNR] = @ncts_Hauptverpflichteter_NLNR, ["& _ "ncts_Hauptverpflichteter_TIN] = @ncts_Hauptverpflichteter_TIN, [ncts_Hauptverpfl"& _ "ichteter_Name] = @ncts_Hauptverpflichteter_Name, [ncts_Hauptverpflichteter_Stras"& _ "seHausnummer] = @ncts_Hauptverpflichteter_StrasseHausnummer, [ncts_Hauptverpflic"& _ "hteter_Ort] = @ncts_Hauptverpflichteter_Ort, [ncts_Hauptverpflichteter_PLZ] = @n"& _ "cts_Hauptverpflichteter_PLZ, [ncts_Hauptverpflichteter_Land] = @ncts_Hauptverpfl"& _ "ichteter_Land, [ncts_ZugelassenerEmpfaenger_EORI] = @ncts_ZugelassenerEmpfaenger"& _ "_EORI, [ncts_ZugelassenerEmpfaenger_TIN] = @ncts_ZugelassenerEmpfaenger_TIN, [nc"& _ "ts_ZugelassenerEmpfaenger_IDCarnet] = @ncts_ZugelassenerEmpfaenger_IDCarnet, [nc"& _ "ts_ZugelassenerEmpfaenger_BewilligungsnummerVersender] = @ncts_ZugelassenerEmpfa"& _ "enger_BewilligungsnummerVersender, [ncts_SumA_KzSumASicherheit] = @ncts_SumA_KzS"& _ "umASicherheit, [ncts_SumA_KennnummerSendung] = @ncts_SumA_KennnummerSendung, [nc"& _ "ts_SumA_NummerBefoerderung] = @ncts_SumA_NummerBefoerderung, [ncts_SumA_Besonder"& _ "eUmstaende] = @ncts_SumA_BesondereUmstaende, [ncts_SumA_Ladeort] = @ncts_SumA_La"& _ "deort, [ncts_SumA_Entladeort] = @ncts_SumA_Entladeort, [ncts_SumA_Befoerderungsk"& _ "ostenZahlungsweise] = @ncts_SumA_BefoerderungskostenZahlungsweise, [ncts_SumA_Be"& _ "foerderungsrouteLand1] = @ncts_SumA_BefoerderungsrouteLand1, [ncts_SumA_Befoerde"& _ "rungsrouteLand2] = @ncts_SumA_BefoerderungsrouteLand2, [ncts_SumA_Befoerderungsr"& _ "outeLand3] = @ncts_SumA_BefoerderungsrouteLand3, [ncts_SumA_BefoerderungsrouteLa"& _ "nd4] = @ncts_SumA_BefoerderungsrouteLand4, [ncts_SumA_BefoerderungsrouteLand5] ="& _ " @ncts_SumA_BefoerderungsrouteLand5, [ncts_SumA_BefoerderungsrouteLand6] = @ncts"& _ "_SumA_BefoerderungsrouteLand6, [ncts_SumA_BefoerderungsrouteLand7] = @ncts_SumA_"& _ "BefoerderungsrouteLand7, [ncts_SumA_BefoerderungsrouteLand8] = @ncts_SumA_Befoer"& _ "derungsrouteLand8, [ncts_SumA_BefoerderungsrouteLand9] = @ncts_SumA_Befoerderung"& _ "srouteLand9, [ncts_SumA_BefoerderungsrouteLand10] = @ncts_SumA_Befoerderungsrout"& _ "eLand10, [ncts_SumA_BefoerderungsrouteLand11] = @ncts_SumA_BefoerderungsrouteLan"& _ "d11, [ncts_SumA_BefoerderungsrouteLand12] = @ncts_SumA_BefoerderungsrouteLand12,"& _ " [ncts_SumA_Versender_EORI] = @ncts_SumA_Versender_EORI, [ncts_SumA_Versender_NL"& _ "NR] = @ncts_SumA_Versender_NLNR, [ncts_SumA_Versender_TIN] = @ncts_SumA_Versende"& _ "r_TIN, [ncts_SumA_Versender_Name] = @ncts_SumA_Versender_Name, [ncts_SumA_Versen"& _ "der_StrasseHausnummer] = @ncts_SumA_Versender_StrasseHausnummer, [ncts_SumA_Vers"& _ "ender_Land] = @ncts_SumA_Versender_Land, [ncts_SumA_Versender_PLZ] = @ncts_SumA_"& _ "Versender_PLZ, [ncts_SumA_Versender_Ort] = @ncts_SumA_Versender_Ort, [ncts_SumA_"& _ "Empfaenger_EORI] = @ncts_SumA_Empfaenger_EORI, [ncts_SumA_Empfaenger_NLNR] = @nc"& _ "ts_SumA_Empfaenger_NLNR, [ncts_SumA_Empfaenger_TIN] = @ncts_SumA_Empfaenger_TIN,"& _ " [ncts_SumA_Empfaenger_Name] = @ncts_SumA_Empfaenger_Name, [ncts_SumA_Empfaenger"& _ "_StrasseHausnummer] = @ncts_SumA_Empfaenger_StrasseHausnummer, [ncts_SumA_Empfae"& _ "nger_Land] = @ncts_SumA_Empfaenger_Land, [ncts_SumA_Empfaenger_PLZ] = @ncts_SumA"& _ "_Empfaenger_PLZ, [ncts_SumA_Empfaenger_Ort] = @ncts_SumA_Empfaenger_Ort, [ncts_S"& _ "umA_Befoerderer_EORI] = @ncts_SumA_Befoerderer_EORI, [ncts_SumA_Befoerderer_NLNR"& _ "] = @ncts_SumA_Befoerderer_NLNR, [ncts_SumA_Befoerderer_TIN] = @ncts_SumA_Befoer"& _ "derer_TIN, [ncts_SumA_Befoerderer_Name] = @ncts_SumA_Befoerderer_Name, [ncts_Sum"& _ "A_Befoerderer_StrasseHausnummer] = @ncts_SumA_Befoerderer_StrasseHausnummer, [nc"& _ "ts_SumA_Befoerderer_Land] = @ncts_SumA_Befoerderer_Land, [ncts_SumA_Befoerderer_"& _ "PLZ] = @ncts_SumA_Befoerderer_PLZ, [ncts_SumA_Befoerderer_Ort] = @ncts_SumA_Befo"& _ "erderer_Ort, [ncts_Stammreferenz] = @ncts_Stammreferenz, [ncts_GUID] = @ncts_GUI"& _ "D, [ncts_Eroeffnung] = @ncts_Eroeffnung, [ncts_Ankunft] = @ncts_Ankunft, [ncts_E"& _ "rledigung] = @ncts_Erledigung, [ncts_AVISO_einarbeitet] = @ncts_AVISO_einarbeite"& _ "t, [ncts_VERAG_WeiterverrechungSatz] = @ncts_VERAG_WeiterverrechungSatz WHERE (("& _ "[ncts_Id] = @Original_ncts_Id) AND ([ncts_Partnersystem] = @Original_ncts_Partne"& _ "rsystem) AND ([ncts_Status] = @Original_ncts_Status) AND ([ncts_Status_KEWILL_Eq"& _ "uivalent] = @Original_ncts_Status_KEWILL_Equivalent) AND ([ncts_dyaArt] = @Origi"& _ "nal_ncts_dyaArt) AND ([ncts_dyaAnmID] = @Original_ncts_dyaAnmID) AND ((@IsNull_n"& _ "cts_ANR = 1 AND [ncts_ANR] IS NULL) OR ([ncts_ANR] = @Original_ncts_ANR)) AND (("& _ "@IsNull_ncts_MRN = 1 AND [ncts_MRN] IS NULL) OR ([ncts_MRN] = @Original_ncts_MRN"& _ ")) AND ([ncts_Erstellung] = @Original_ncts_Erstellung) AND ((@IsNull_ncts_Erstel"& _ "lung_SB = 1 AND [ncts_Erstellung_SB] IS NULL) OR ([ncts_Erstellung_SB] = @Origin"& _ "al_ncts_Erstellung_SB)) AND ([ncts_LetzteBearbeitung] = @Original_ncts_LetzteBea"& _ "rbeitung) AND ((@IsNull_ncts_LetzteBearbeitung_SB = 1 AND [ncts_LetzteBearbeitun"& _ "g_SB] IS NULL) OR ([ncts_LetzteBearbeitung_SB] = @Original_ncts_LetzteBearbeitun"& _ "g_SB)) AND ((@IsNull_ncts_firma = 1 AND [ncts_firma] IS NULL) OR ([ncts_firma] ="& _ " @Original_ncts_firma)) AND ((@IsNull_ncts_niederlassung = 1 AND [ncts_niederlas"& _ "sung] IS NULL) OR ([ncts_niederlassung] = @Original_ncts_niederlassung)) AND ([n"& _ "cts_Gestellt] = @Original_ncts_Gestellt) AND ((@IsNull_ncts_GestelltAm = 1 AND ["& _ "ncts_GestelltAm] IS NULL) OR ([ncts_GestelltAm] = @Original_ncts_GestelltAm)) AN"& _ "D ((@IsNull_ncts_Trans_Partner = 1 AND [ncts_Trans_Partner] IS NULL) OR ([ncts_T"& _ "rans_Partner] = @Original_ncts_Trans_Partner)) AND ((@IsNull_ncts_Trans_Div1 = 1"& _ " AND [ncts_Trans_Div1] IS NULL) OR ([ncts_Trans_Div1] = @Original_ncts_Trans_Div"& _ "1)) AND ((@IsNull_ncts_Trans_Div2 = 1 AND [ncts_Trans_Div2] IS NULL) OR ([ncts_T"& _ "rans_Div2] = @Original_ncts_Trans_Div2)) AND ((@IsNull_ncts_Trans_Div3 = 1 AND ["& _ "ncts_Trans_Div3] IS NULL) OR ([ncts_Trans_Div3] = @Original_ncts_Trans_Div3)) AN"& _ "D ((@IsNull_ncts_Trans_Referenz = 1 AND [ncts_Trans_Referenz] IS NULL) OR ([ncts"& _ "_Trans_Referenz] = @Original_ncts_Trans_Referenz)) AND ((@IsNull_ncts_Trans_Datu"& _ "mZeit = 1 AND [ncts_Trans_DatumZeit] IS NULL) OR ([ncts_Trans_DatumZeit] = @Orig"& _ "inal_ncts_Trans_DatumZeit)) AND ((@IsNull_ncts_Trans_Version = 1 AND [ncts_Trans"& _ "_Version] IS NULL) OR ([ncts_Trans_Version] = @Original_ncts_Trans_Version)) AND"& _ " ((@IsNull_ncts_NachrichtenSenderTIN = 1 AND [ncts_NachrichtenSenderTIN] IS NULL"& _ ") OR ([ncts_NachrichtenSenderTIN] = @Original_ncts_NachrichtenSenderTIN)) AND (("& _ "@IsNull_ncts_NachrichtenSenderNLNR = 1 AND [ncts_NachrichtenSenderNLNR] IS NULL)"& _ " OR ([ncts_NachrichtenSenderNLNR] = @Original_ncts_NachrichtenSenderNLNR)) AND ("& _ "(@IsNull_ncts_NachrichtenempfaengerDST = 1 AND [ncts_NachrichtenempfaengerDST] I"& _ "S NULL) OR ([ncts_NachrichtenempfaengerDST] = @Original_ncts_Nachrichtenempfaeng"& _ "erDST)) AND ((@IsNull_ncts_ObjectName = 1 AND [ncts_ObjectName] IS NULL) OR ([nc"& _ "ts_ObjectName] = @Original_ncts_ObjectName)) AND ((@IsNull_ncts_ObjectAlias = 1 "& _ "AND [ncts_ObjectAlias] IS NULL) OR ([ncts_ObjectAlias] = @Original_ncts_ObjectAl"& _ "ias)) AND ((@IsNull_ncts_BezugsnummerVorblendung = 1 AND [ncts_BezugsnummerVorbl"& _ "endung] IS NULL) OR ([ncts_BezugsnummerVorblendung] = @Original_ncts_Bezugsnumme"& _ "rVorblendung)) AND ((@IsNull_ncts_Bearbeiter = 1 AND [ncts_Bearbeiter] IS NULL) "& _ "OR ([ncts_Bearbeiter] = @Original_ncts_Bearbeiter)) AND ((@IsNull_ncts_Versendun"& _ "gsLandCode = 1 AND [ncts_VersendungsLandCode] IS NULL) OR ([ncts_VersendungsLand"& _ "Code] = @Original_ncts_VersendungsLandCode)) AND ((@IsNull_ncts_BestimmungslandC"& _ "ode = 1 AND [ncts_BestimmungslandCode] IS NULL) OR ([ncts_BestimmungslandCode] ="& _ " @Original_ncts_BestimmungslandCode)) AND ((@IsNull_ncts_ArtAnmeldung = 1 AND [n"& _ "cts_ArtAnmeldung] IS NULL) OR ([ncts_ArtAnmeldung] = @Original_ncts_ArtAnmeldung"& _ ")) AND ((@IsNull_ncts_BeladungsOrt = 1 AND [ncts_BeladungsOrt] IS NULL) OR ([nct"& _ "s_BeladungsOrt] = @Original_ncts_BeladungsOrt)) AND ((@IsNull_ncts_Durchgangszol"& _ "lstelleDienststellnummer1 = 1 AND [ncts_DurchgangszollstelleDienststellnummer1] "& _ "IS NULL) OR ([ncts_DurchgangszollstelleDienststellnummer1] = @Original_ncts_Durc"& _ "hgangszollstelleDienststellnummer1)) AND ((@IsNull_ncts_DurchgangszollstelleDien"& _ "ststellnummer2 = 1 AND [ncts_DurchgangszollstelleDienststellnummer2] IS NULL) OR"& _ " ([ncts_DurchgangszollstelleDienststellnummer2] = @Original_ncts_Durchgangszolls"& _ "telleDienststellnummer2)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnumm"& _ "er3 = 1 AND [ncts_DurchgangszollstelleDienststellnummer3] IS NULL) OR ([ncts_Dur"& _ "chgangszollstelleDienststellnummer3] = @Original_ncts_DurchgangszollstelleDienst"& _ "stellnummer3)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer4 = 1 AND"& _ " [ncts_DurchgangszollstelleDienststellnummer4] IS NULL) OR ([ncts_Durchgangszoll"& _ "stelleDienststellnummer4] = @Original_ncts_DurchgangszollstelleDienststellnummer"& _ "4)) AND ((@IsNull_ncts_DurchgangszollstelleDienststellnummer5 = 1 AND [ncts_Durc"& _ "hgangszollstelleDienststellnummer5] IS NULL) OR ([ncts_DurchgangszollstelleDiens"& _ "tstellnummer5] = @Original_ncts_DurchgangszollstelleDienststellnummer5)) AND ((@"& _ "IsNull_ncts_DurchgangszollstelleDienststellnummer6 = 1 AND [ncts_Durchgangszolls"& _ "telleDienststellnummer6] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnumme"& _ "r6] = @Original_ncts_DurchgangszollstelleDienststellnummer6)) AND ((@IsNull_ncts"& _ "_DurchgangszollstelleDienststellnummer7 = 1 AND [ncts_DurchgangszollstelleDienst"& _ "stellnummer7] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnummer7] = @Orig"& _ "inal_ncts_DurchgangszollstelleDienststellnummer7)) AND ((@IsNull_ncts_Durchgangs"& _ "zollstelleDienststellnummer8 = 1 AND [ncts_DurchgangszollstelleDienststellnummer"& _ "8] IS NULL) OR ([ncts_DurchgangszollstelleDienststellnummer8] = @Original_ncts_D"& _ "urchgangszollstelleDienststellnummer8)) AND ((@IsNull_ncts_DurchgangszollstelleD"& _ "ienststellnummer9 = 1 AND [ncts_DurchgangszollstelleDienststellnummer9] IS NULL)"& _ " OR ([ncts_DurchgangszollstelleDienststellnummer9] = @Original_ncts_Durchgangszo"& _ "llstelleDienststellnummer9)) AND ((@IsNull_ncts_BestimmungsstelleDienststellennu"& _ "mmer = 1 AND [ncts_BestimmungsstelleDienststellennummer] IS NULL) OR ([ncts_Best"& _ "immungsstelleDienststellennummer] = @Original_ncts_BestimmungsstelleDienststelle"& _ "nnummer)) AND ((@IsNull_ncts_AbgangsDienststellennummer = 1 AND [ncts_AbgangsDie"& _ "nststellennummer] IS NULL) OR ([ncts_AbgangsDienststellennummer] = @Original_nct"& _ "s_AbgangsDienststellennummer)) AND ((@IsNull_ncts_Wiedergestellungsdatum = 1 AND"& _ " [ncts_Wiedergestellungsdatum] IS NULL) OR ([ncts_Wiedergestellungsdatum] = @Ori"& _ "ginal_ncts_Wiedergestellungsdatum)) AND ((@IsNull_ncts_KzVereinfachtesVerfahren "& _ "= 1 AND [ncts_KzVereinfachtesVerfahren] IS NULL) OR ([ncts_KzVereinfachtesVerfah"& _ "ren] = @Original_ncts_KzVereinfachtesVerfahren)) AND ((@IsNull_ncts_GesamtRohmas"& _ "se = 1 AND [ncts_GesamtRohmasse] IS NULL) OR ([ncts_GesamtRohmasse] = @Original_"& _ "ncts_GesamtRohmasse)) AND ((@IsNull_ncts_GesamtAnzahlPackstuecke = 1 AND [ncts_G"& _ "esamtAnzahlPackstuecke] IS NULL) OR ([ncts_GesamtAnzahlPackstuecke] = @Original_"& _ "ncts_GesamtAnzahlPackstuecke)) AND ((@IsNull_ncts_Verschluss_ArtCode = 1 AND [nc"& _ "ts_Verschluss_ArtCode] IS NULL) OR ([ncts_Verschluss_ArtCode] = @Original_ncts_V"& _ "erschluss_ArtCode)) AND ((@IsNull_ncts_Verschluss_Anzahl = 1 AND [ncts_Verschlus"& _ "s_Anzahl] IS NULL) OR ([ncts_Verschluss_Anzahl] = @Original_ncts_Verschluss_Anza"& _ "hl)) AND ((@IsNull_ncts_Verschluss_Zeichen1 = 1 AND [ncts_Verschluss_Zeichen1] I"& _ "S NULL) OR ([ncts_Verschluss_Zeichen1] = @Original_ncts_Verschluss_Zeichen1)) AN"& _ "D ((@IsNull_ncts_Verschluss_Zeichen2 = 1 AND [ncts_Verschluss_Zeichen2] IS NULL)"& _ " OR ([ncts_Verschluss_Zeichen2] = @Original_ncts_Verschluss_Zeichen2)) AND ((@Is"& _ "Null_ncts_Verschluss_Zeichen3 = 1 AND [ncts_Verschluss_Zeichen3] IS NULL) OR ([n"& _ "cts_Verschluss_Zeichen3] = @Original_ncts_Verschluss_Zeichen3)) AND ((@IsNull_nc"& _ "ts_Verschluss_Zeichen4 = 1 AND [ncts_Verschluss_Zeichen4] IS NULL) OR ([ncts_Ver"& _ "schluss_Zeichen4] = @Original_ncts_Verschluss_Zeichen4)) AND ((@IsNull_ncts_Vers"& _ "chluss_Zeichen5 = 1 AND [ncts_Verschluss_Zeichen5] IS NULL) OR ([ncts_Verschluss"& _ "_Zeichen5] = @Original_ncts_Verschluss_Zeichen5)) AND ((@IsNull_ncts_Verschluss_"& _ "Zeichen6 = 1 AND [ncts_Verschluss_Zeichen6] IS NULL) OR ([ncts_Verschluss_Zeiche"& _ "n6] = @Original_ncts_Verschluss_Zeichen6)) AND ((@IsNull_ncts_Verschluss_Zeichen"& _ "7 = 1 AND [ncts_Verschluss_Zeichen7] IS NULL) OR ([ncts_Verschluss_Zeichen7] = @"& _ "Original_ncts_Verschluss_Zeichen7)) AND ((@IsNull_ncts_Verschluss_Zeichen8 = 1 A"& _ "ND [ncts_Verschluss_Zeichen8] IS NULL) OR ([ncts_Verschluss_Zeichen8] = @Origina"& _ "l_ncts_Verschluss_Zeichen8)) AND ((@IsNull_ncts_Verschluss_Zeichen9 = 1 AND [nct"& _ "s_Verschluss_Zeichen9] IS NULL) OR ([ncts_Verschluss_Zeichen9] = @Original_ncts_"& _ "Verschluss_Zeichen9)) AND ((@IsNull_ncts_Verschluss_Zeichen10 = 1 AND [ncts_Vers"& _ "chluss_Zeichen10] IS NULL) OR ([ncts_Verschluss_Zeichen10] = @Original_ncts_Vers"& _ "chluss_Zeichen10)) AND ((@IsNull_ncts_Verschluss_Zeichen11 = 1 AND [ncts_Verschl"& _ "uss_Zeichen11] IS NULL) OR ([ncts_Verschluss_Zeichen11] = @Original_ncts_Verschl"& _ "uss_Zeichen11)) AND ((@IsNull_ncts_Verschluss_Zeichen12 = 1 AND [ncts_Verschluss"& _ "_Zeichen12] IS NULL) OR ([ncts_Verschluss_Zeichen12] = @Original_ncts_Verschluss"& _ "_Zeichen12)) AND ((@IsNull_ncts_Verschluss_Zeichen13 = 1 AND [ncts_Verschluss_Ze"& _ "ichen13] IS NULL) OR ([ncts_Verschluss_Zeichen13] = @Original_ncts_Verschluss_Ze"& _ "ichen13)) AND ((@IsNull_ncts_Verschluss_Zeichen14 = 1 AND [ncts_Verschluss_Zeich"& _ "en14] IS NULL) OR ([ncts_Verschluss_Zeichen14] = @Original_ncts_Verschluss_Zeich"& _ "en14)) AND ((@IsNull_ncts_Verschluss_Zeichen15 = 1 AND [ncts_Verschluss_Zeichen1"& _ "5] IS NULL) OR ([ncts_Verschluss_Zeichen15] = @Original_ncts_Verschluss_Zeichen1"& _ "5)) AND ((@IsNull_ncts_Verschluss_Zeichen16 = 1 AND [ncts_Verschluss_Zeichen16] "& _ "IS NULL) OR ([ncts_Verschluss_Zeichen16] = @Original_ncts_Verschluss_Zeichen16))"& _ " AND ((@IsNull_ncts_Befoerderungsmittel_KennzeichenAbgang = 1 AND [ncts_Befoerde"& _ "rungsmittel_KennzeichenAbgang] IS NULL) OR ([ncts_Befoerderungsmittel_Kennzeiche"& _ "nAbgang] = @Original_ncts_Befoerderungsmittel_KennzeichenAbgang)) AND ((@IsNull_"& _ "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = 1 AND [ncts_Befoerderun"& _ "gsmittel_SttaszugehoerigkeitAbgangCode] IS NULL) OR ([ncts_Befoerderungsmittel_S"& _ "ttaszugehoerigkeitAbgangCode] = @Original_ncts_Befoerderungsmittel_Sttaszugehoer"& _ "igkeitAbgangCode)) AND ((@IsNull_ncts_Befoerderungsmittel_VerkehrszweigGrenzuebe"& _ "rschreitent = 1 AND [ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent]"& _ " IS NULL) OR ([ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent] = @Or"& _ "iginal_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)) AND ((@IsNul"& _ "l_ncts_Befoerderungsmittel_ArtGrenzueberschreitung = 1 AND [ncts_Befoerderungsmi"& _ "ttel_ArtGrenzueberschreitung] IS NULL) OR ([ncts_Befoerderungsmittel_ArtGrenzueb"& _ "erschreitung] = @Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung)) AND"& _ " ((@IsNull_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = 1 AND [nct"& _ "s_Befoerderungsmittel_KennzeichenGrenzueberschreitend] IS NULL) OR ([ncts_Befoer"& _ "derungsmittel_KennzeichenGrenzueberschreitend] = @Original_ncts_Befoerderungsmit"& _ "tel_KennzeichenGrenzueberschreitend)) AND ((@IsNull_ncts_Befoerderungsmittel_Sta"& _ "atszugehoerigkeitGrenzueberschreitendCode = 1 AND [ncts_Befoerderungsmittel_Staa"& _ "tszugehoerigkeitGrenzueberschreitendCode] IS NULL) OR ([ncts_Befoerderungsmittel"& _ "_StaatszugehoerigkeitGrenzueberschreitendCode] = @Original_ncts_Befoerderungsmit"& _ "tel_StaatszugehoerigkeitGrenzueberschreitendCode)) AND ((@IsNull_ncts_Versender_"& _ "EORI = 1 AND [ncts_Versender_EORI] IS NULL) OR ([ncts_Versender_EORI] = @Origina"& _ "l_ncts_Versender_EORI)) AND ((@IsNull_ncts_Versender_NLNR = 1 AND [ncts_Versende"& _ "r_NLNR] IS NULL) OR ([ncts_Versender_NLNR] = @Original_ncts_Versender_NLNR)) AND"& _ " ((@IsNull_ncts_Versender_TIN = 1 AND [ncts_Versender_TIN] IS NULL) OR ([ncts_Ve"& _ "rsender_TIN] = @Original_ncts_Versender_TIN)) AND ((@IsNull_ncts_Versender_Name "& _ "= 1 AND [ncts_Versender_Name] IS NULL) OR ([ncts_Versender_Name] = @Original_nct"& _ "s_Versender_Name)) AND ((@IsNull_ncts_Versender_StrasseHausnummer = 1 AND [ncts_"& _ "Versender_StrasseHausnummer] IS NULL) OR ([ncts_Versender_StrasseHausnummer] = @"& _ "Original_ncts_Versender_StrasseHausnummer)) AND ((@IsNull_ncts_Versender_Ort = 1"& _ " AND [ncts_Versender_Ort] IS NULL) OR ([ncts_Versender_Ort] = @Original_ncts_Ver"& _ "sender_Ort)) AND ((@IsNull_ncts_Versender_PLZ = 1 AND [ncts_Versender_PLZ] IS NU"& _ "LL) OR ([ncts_Versender_PLZ] = @Original_ncts_Versender_PLZ)) AND ((@IsNull_ncts"& _ "_Versender_Land = 1 AND [ncts_Versender_Land] IS NULL) OR ([ncts_Versender_Land]"& _ " = @Original_ncts_Versender_Land)) AND ((@IsNull_ncts_Empfaenger_EORI = 1 AND [n"& _ "cts_Empfaenger_EORI] IS NULL) OR ([ncts_Empfaenger_EORI] = @Original_ncts_Empfae"& _ "nger_EORI)) AND ((@IsNull_ncts_Empfaenger_NLNR = 1 AND [ncts_Empfaenger_NLNR] IS"& _ " NULL) OR ([ncts_Empfaenger_NLNR] = @Original_ncts_Empfaenger_NLNR)) AND ((@IsNu"& _ "ll_ncts_Empfaenger_TIN = 1 AND [ncts_Empfaenger_TIN] IS NULL) OR ([ncts_Empfaeng"& _ "er_TIN] = @Original_ncts_Empfaenger_TIN)) AND ((@IsNull_ncts_Empfaenger_Name = 1"& _ " AND [ncts_Empfaenger_Name] IS NULL) OR ([ncts_Empfaenger_Name] = @Original_ncts"& _ "_Empfaenger_Name)) AND ((@IsNull_ncts_Empfaenger_StrasseHausnummer = 1 AND [ncts"& _ "_Empfaenger_StrasseHausnummer] IS NULL) OR ([ncts_Empfaenger_StrasseHausnummer] "& _ "= @Original_ncts_Empfaenger_StrasseHausnummer)) AND ((@IsNull_ncts_Empfaenger_Or"& _ "t = 1 AND [ncts_Empfaenger_Ort] IS NULL) OR ([ncts_Empfaenger_Ort] = @Original_n"& _ "cts_Empfaenger_Ort)) AND ((@IsNull_ncts_Empfaenger_PLZ = 1 AND [ncts_Empfaenger_"& _ "PLZ] IS NULL) OR ([ncts_Empfaenger_PLZ] = @Original_ncts_Empfaenger_PLZ)) AND (("& _ "@IsNull_ncts_Empfaenger_Land = 1 AND [ncts_Empfaenger_Land] IS NULL) OR ([ncts_E"& _ "mpfaenger_Land] = @Original_ncts_Empfaenger_Land)) AND ((@IsNull_ncts_Hauptverpf"& _ "lichteter_EORI = 1 AND [ncts_Hauptverpflichteter_EORI] IS NULL) OR ([ncts_Hauptv"& _ "erpflichteter_EORI] = @Original_ncts_Hauptverpflichteter_EORI)) AND ((@IsNull_nc"& _ "ts_Hauptverpflichteter_NLNR = 1 AND [ncts_Hauptverpflichteter_NLNR] IS NULL) OR "& _ "([ncts_Hauptverpflichteter_NLNR] = @Original_ncts_Hauptverpflichteter_NLNR)) AND"& _ " ((@IsNull_ncts_Hauptverpflichteter_TIN = 1 AND [ncts_Hauptverpflichteter_TIN] I"& _ "S NULL) OR ([ncts_Hauptverpflichteter_TIN] = @Original_ncts_Hauptverpflichteter_"& _ "TIN)) AND ((@IsNull_ncts_Hauptverpflichteter_Name = 1 AND [ncts_Hauptverpflichte"& _ "ter_Name] IS NULL) OR ([ncts_Hauptverpflichteter_Name] = @Original_ncts_Hauptver"& _ "pflichteter_Name)) AND ((@IsNull_ncts_Hauptverpflichteter_StrasseHausnummer = 1 "& _ "AND [ncts_Hauptverpflichteter_StrasseHausnummer] IS NULL) OR ([ncts_Hauptverpfli"& _ "chteter_StrasseHausnummer] = @Original_ncts_Hauptverpflichteter_StrasseHausnumme"& _ "r)) AND ((@IsNull_ncts_Hauptverpflichteter_Ort = 1 AND [ncts_Hauptverpflichteter"& _ "_Ort] IS NULL) OR ([ncts_Hauptverpflichteter_Ort] = @Original_ncts_Hauptverpflic"& _ "hteter_Ort)) AND ((@IsNull_ncts_Hauptverpflichteter_PLZ = 1 AND [ncts_Hauptverpf"& _ "lichteter_PLZ] IS NULL) OR ([ncts_Hauptverpflichteter_PLZ] = @Original_ncts_Haup"& _ "tverpflichteter_PLZ)) AND ((@IsNull_ncts_Hauptverpflichteter_Land = 1 AND [ncts_"& _ "Hauptverpflichteter_Land] IS NULL) OR ([ncts_Hauptverpflichteter_Land] = @Origin"& _ "al_ncts_Hauptverpflichteter_Land)) AND ((@IsNull_ncts_ZugelassenerEmpfaenger_EOR"& _ "I = 1 AND [ncts_ZugelassenerEmpfaenger_EORI] IS NULL) OR ([ncts_ZugelassenerEmpf"& _ "aenger_EORI] = @Original_ncts_ZugelassenerEmpfaenger_EORI)) AND ((@IsNull_ncts_Z"& _ "ugelassenerEmpfaenger_TIN = 1 AND [ncts_ZugelassenerEmpfaenger_TIN] IS NULL) OR "& _ "([ncts_ZugelassenerEmpfaenger_TIN] = @Original_ncts_ZugelassenerEmpfaenger_TIN))"& _ " AND ((@IsNull_ncts_ZugelassenerEmpfaenger_IDCarnet = 1 AND [ncts_ZugelassenerEm"& _ "pfaenger_IDCarnet] IS NULL) OR ([ncts_ZugelassenerEmpfaenger_IDCarnet] = @Origin"& _ "al_ncts_ZugelassenerEmpfaenger_IDCarnet)) AND ((@IsNull_ncts_ZugelassenerEmpfaen"& _ "ger_BewilligungsnummerVersender = 1 AND [ncts_ZugelassenerEmpfaenger_Bewilligung"& _ "snummerVersender] IS NULL) OR ([ncts_ZugelassenerEmpfaenger_BewilligungsnummerVe"& _ "rsender] = @Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender)) A"& _ "ND ((@IsNull_ncts_SumA_KzSumASicherheit = 1 AND [ncts_SumA_KzSumASicherheit] IS "& _ "NULL) OR ([ncts_SumA_KzSumASicherheit] = @Original_ncts_SumA_KzSumASicherheit)) "& _ "AND ((@IsNull_ncts_SumA_KennnummerSendung = 1 AND [ncts_SumA_KennnummerSendung] "& _ "IS NULL) OR ([ncts_SumA_KennnummerSendung] = @Original_ncts_SumA_KennnummerSendu"& _ "ng)) AND ((@IsNull_ncts_SumA_NummerBefoerderung = 1 AND [ncts_SumA_NummerBefoerd"& _ "erung] IS NULL) OR ([ncts_SumA_NummerBefoerderung] = @Original_ncts_SumA_NummerB"& _ "efoerderung)) AND ((@IsNull_ncts_SumA_BesondereUmstaende = 1 AND [ncts_SumA_Beso"& _ "ndereUmstaende] IS NULL) OR ([ncts_SumA_BesondereUmstaende] = @Original_ncts_Sum"& _ "A_BesondereUmstaende)) AND ((@IsNull_ncts_SumA_Ladeort = 1 AND [ncts_SumA_Ladeor"& _ "t] IS NULL) OR ([ncts_SumA_Ladeort] = @Original_ncts_SumA_Ladeort)) AND ((@IsNul"& _ "l_ncts_SumA_Entladeort = 1 AND [ncts_SumA_Entladeort] IS NULL) OR ([ncts_SumA_En"& _ "tladeort] = @Original_ncts_SumA_Entladeort)) AND ((@IsNull_ncts_SumA_Befoerderun"& _ "gskostenZahlungsweise = 1 AND [ncts_SumA_BefoerderungskostenZahlungsweise] IS NU"& _ "LL) OR ([ncts_SumA_BefoerderungskostenZahlungsweise] = @Original_ncts_SumA_Befoe"& _ "rderungskostenZahlungsweise)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand1 = "& _ "1 AND [ncts_SumA_BefoerderungsrouteLand1] IS NULL) OR ([ncts_SumA_Befoerderungsr"& _ "outeLand1] = @Original_ncts_SumA_BefoerderungsrouteLand1)) AND ((@IsNull_ncts_Su"& _ "mA_BefoerderungsrouteLand2 = 1 AND [ncts_SumA_BefoerderungsrouteLand2] IS NULL) "& _ "OR ([ncts_SumA_BefoerderungsrouteLand2] = @Original_ncts_SumA_Befoerderungsroute"& _ "Land2)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand3 = 1 AND [ncts_SumA_Befoe"& _ "rderungsrouteLand3] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand3] = @Original"& _ "_ncts_SumA_BefoerderungsrouteLand3)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteL"& _ "and4 = 1 AND [ncts_SumA_BefoerderungsrouteLand4] IS NULL) OR ([ncts_SumA_Befoerd"& _ "erungsrouteLand4] = @Original_ncts_SumA_BefoerderungsrouteLand4)) AND ((@IsNull_"& _ "ncts_SumA_BefoerderungsrouteLand5 = 1 AND [ncts_SumA_BefoerderungsrouteLand5] IS"& _ " NULL) OR ([ncts_SumA_BefoerderungsrouteLand5] = @Original_ncts_SumA_Befoerderun"& _ "gsrouteLand5)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand6 = 1 AND [ncts_Sum"& _ "A_BefoerderungsrouteLand6] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand6] = @O"& _ "riginal_ncts_SumA_BefoerderungsrouteLand6)) AND ((@IsNull_ncts_SumA_Befoerderung"& _ "srouteLand7 = 1 AND [ncts_SumA_BefoerderungsrouteLand7] IS NULL) OR ([ncts_SumA_"& _ "BefoerderungsrouteLand7] = @Original_ncts_SumA_BefoerderungsrouteLand7)) AND ((@"& _ "IsNull_ncts_SumA_BefoerderungsrouteLand8 = 1 AND [ncts_SumA_BefoerderungsrouteLa"& _ "nd8] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand8] = @Original_ncts_SumA_Befo"& _ "erderungsrouteLand8)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand9 = 1 AND [n"& _ "cts_SumA_BefoerderungsrouteLand9] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand"& _ "9] = @Original_ncts_SumA_BefoerderungsrouteLand9)) AND ((@IsNull_ncts_SumA_Befoe"& _ "rderungsrouteLand10 = 1 AND [ncts_SumA_BefoerderungsrouteLand10] IS NULL) OR ([n"& _ "cts_SumA_BefoerderungsrouteLand10] = @Original_ncts_SumA_BefoerderungsrouteLand1"& _ "0)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteLand11 = 1 AND [ncts_SumA_Befoerde"& _ "rungsrouteLand11] IS NULL) OR ([ncts_SumA_BefoerderungsrouteLand11] = @Original_"& _ "ncts_SumA_BefoerderungsrouteLand11)) AND ((@IsNull_ncts_SumA_BefoerderungsrouteL"& _ "and12 = 1 AND [ncts_SumA_BefoerderungsrouteLand12] IS NULL) OR ([ncts_SumA_Befoe"& _ "rderungsrouteLand12] = @Original_ncts_SumA_BefoerderungsrouteLand12)) AND ((@IsN"& _ "ull_ncts_SumA_Versender_EORI = 1 AND [ncts_SumA_Versender_EORI] IS NULL) OR ([nc"& _ "ts_SumA_Versender_EORI] = @Original_ncts_SumA_Versender_EORI)) AND ((@IsNull_nct"& _ "s_SumA_Versender_NLNR = 1 AND [ncts_SumA_Versender_NLNR] IS NULL) OR ([ncts_SumA"& _ "_Versender_NLNR] = @Original_ncts_SumA_Versender_NLNR)) AND ((@IsNull_ncts_SumA_"& _ "Versender_TIN = 1 AND [ncts_SumA_Versender_TIN] IS NULL) OR ([ncts_SumA_Versende"& _ "r_TIN] = @Original_ncts_SumA_Versender_TIN)) AND ((@IsNull_ncts_SumA_Versender_N"& _ "ame = 1 AND [ncts_SumA_Versender_Name] IS NULL) OR ([ncts_SumA_Versender_Name] ="& _ " @Original_ncts_SumA_Versender_Name)) AND ((@IsNull_ncts_SumA_Versender_StrasseH"& _ "ausnummer = 1 AND [ncts_SumA_Versender_StrasseHausnummer] IS NULL) OR ([ncts_Sum"& _ "A_Versender_StrasseHausnummer] = @Original_ncts_SumA_Versender_StrasseHausnummer"& _ ")) AND ((@IsNull_ncts_SumA_Versender_Land = 1 AND [ncts_SumA_Versender_Land] IS "& _ "NULL) OR ([ncts_SumA_Versender_Land] = @Original_ncts_SumA_Versender_Land)) AND "& _ "((@IsNull_ncts_SumA_Versender_PLZ = 1 AND [ncts_SumA_Versender_PLZ] IS NULL) OR "& _ "([ncts_SumA_Versender_PLZ] = @Original_ncts_SumA_Versender_PLZ)) AND ((@IsNull_n"& _ "cts_SumA_Versender_Ort = 1 AND [ncts_SumA_Versender_Ort] IS NULL) OR ([ncts_SumA"& _ "_Versender_Ort] = @Original_ncts_SumA_Versender_Ort)) AND ((@IsNull_ncts_SumA_Em"& _ "pfaenger_EORI = 1 AND [ncts_SumA_Empfaenger_EORI] IS NULL) OR ([ncts_SumA_Empfae"& _ "nger_EORI] = @Original_ncts_SumA_Empfaenger_EORI)) AND ((@IsNull_ncts_SumA_Empfa"& _ "enger_NLNR = 1 AND [ncts_SumA_Empfaenger_NLNR] IS NULL) OR ([ncts_SumA_Empfaenge"& _ "r_NLNR] = @Original_ncts_SumA_Empfaenger_NLNR)) AND ((@IsNull_ncts_SumA_Empfaeng"& _ "er_TIN = 1 AND [ncts_SumA_Empfaenger_TIN] IS NULL) OR ([ncts_SumA_Empfaenger_TIN"& _ "] = @Original_ncts_SumA_Empfaenger_TIN)) AND ((@IsNull_ncts_SumA_Empfaenger_Name"& _ " = 1 AND [ncts_SumA_Empfaenger_Name] IS NULL) OR ([ncts_SumA_Empfaenger_Name] = "& _ "@Original_ncts_SumA_Empfaenger_Name)) AND ((@IsNull_ncts_SumA_Empfaenger_Strasse"& _ "Hausnummer = 1 AND [ncts_SumA_Empfaenger_StrasseHausnummer] IS NULL) OR ([ncts_S"& _ "umA_Empfaenger_StrasseHausnummer] = @Original_ncts_SumA_Empfaenger_StrasseHausnu"& _ "mmer)) AND ((@IsNull_ncts_SumA_Empfaenger_Land = 1 AND [ncts_SumA_Empfaenger_Lan"& _ "d] IS NULL) OR ([ncts_SumA_Empfaenger_Land] = @Original_ncts_SumA_Empfaenger_Lan"& _ "d)) AND ((@IsNull_ncts_SumA_Empfaenger_PLZ = 1 AND [ncts_SumA_Empfaenger_PLZ] IS"& _ " NULL) OR ([ncts_SumA_Empfaenger_PLZ] = @Original_ncts_SumA_Empfaenger_PLZ)) AND"& _ " ((@IsNull_ncts_SumA_Empfaenger_Ort = 1 AND [ncts_SumA_Empfaenger_Ort] IS NULL) "& _ "OR ([ncts_SumA_Empfaenger_Ort] = @Original_ncts_SumA_Empfaenger_Ort)) AND ((@IsN"& _ "ull_ncts_SumA_Befoerderer_EORI = 1 AND [ncts_SumA_Befoerderer_EORI] IS NULL) OR "& _ "([ncts_SumA_Befoerderer_EORI] = @Original_ncts_SumA_Befoerderer_EORI)) AND ((@Is"& _ "Null_ncts_SumA_Befoerderer_NLNR = 1 AND [ncts_SumA_Befoerderer_NLNR] IS NULL) OR"& _ " ([ncts_SumA_Befoerderer_NLNR] = @Original_ncts_SumA_Befoerderer_NLNR)) AND ((@I"& _ "sNull_ncts_SumA_Befoerderer_TIN = 1 AND [ncts_SumA_Befoerderer_TIN] IS NULL) OR "& _ "([ncts_SumA_Befoerderer_TIN] = @Original_ncts_SumA_Befoerderer_TIN)) AND ((@IsNu"& _ "ll_ncts_SumA_Befoerderer_Name = 1 AND [ncts_SumA_Befoerderer_Name] IS NULL) OR ("& _ "[ncts_SumA_Befoerderer_Name] = @Original_ncts_SumA_Befoerderer_Name)) AND ((@IsN"& _ "ull_ncts_SumA_Befoerderer_StrasseHausnummer = 1 AND [ncts_SumA_Befoerderer_Stras"& _ "seHausnummer] IS NULL) OR ([ncts_SumA_Befoerderer_StrasseHausnummer] = @Original"& _ "_ncts_SumA_Befoerderer_StrasseHausnummer)) AND ((@IsNull_ncts_SumA_Befoerderer_L"& _ "and = 1 AND [ncts_SumA_Befoerderer_Land] IS NULL) OR ([ncts_SumA_Befoerderer_Lan"& _ "d] = @Original_ncts_SumA_Befoerderer_Land)) AND ((@IsNull_ncts_SumA_Befoerderer_"& _ "PLZ = 1 AND [ncts_SumA_Befoerderer_PLZ] IS NULL) OR ([ncts_SumA_Befoerderer_PLZ]"& _ " = @Original_ncts_SumA_Befoerderer_PLZ)) AND ((@IsNull_ncts_SumA_Befoerderer_Ort"& _ " = 1 AND [ncts_SumA_Befoerderer_Ort] IS NULL) OR ([ncts_SumA_Befoerderer_Ort] = "& _ "@Original_ncts_SumA_Befoerderer_Ort)) AND ((@IsNull_ncts_Stammreferenz = 1 AND ["& _ "ncts_Stammreferenz] IS NULL) OR ([ncts_Stammreferenz] = @Original_ncts_Stammrefe"& _ "renz)) AND ((@IsNull_ncts_GUID = 1 AND [ncts_GUID] IS NULL) OR ([ncts_GUID] = @O"& _ "riginal_ncts_GUID)) AND ((@IsNull_ncts_Eroeffnung = 1 AND [ncts_Eroeffnung] IS N"& _ "ULL) OR ([ncts_Eroeffnung] = @Original_ncts_Eroeffnung)) AND ((@IsNull_ncts_Anku"& _ "nft = 1 AND [ncts_Ankunft] IS NULL) OR ([ncts_Ankunft] = @Original_ncts_Ankunft)"& _ ") AND ((@IsNull_ncts_Erledigung = 1 AND [ncts_Erledigung] IS NULL) OR ([ncts_Erl"& _ "edigung] = @Original_ncts_Erledigung)) AND ([ncts_AVISO_einarbeitet] = @Original"& _ "_ncts_AVISO_einarbeitet) AND ((@IsNull_ncts_VERAG_WeiterverrechungSatz = 1 AND ["& _ "ncts_VERAG_WeiterverrechungSatz] IS NULL) OR ([ncts_VERAG_WeiterverrechungSatz] "& _ "= @Original_ncts_VERAG_WeiterverrechungSatz)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ncts_Id, ncts_Partnersys"& _ "tem, ncts_Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, nct"& _ "s_ANR, ncts_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, nc"& _ "ts_LetzteBearbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_Ges"& _ "telltAm, ncts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, "& _ "ncts_Trans_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenS"& _ "enderTIN, ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_Object"& _ "Name, ncts_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_Vers"& _ "endungsLandCode, ncts_BestimmungslandCode, ncts_ArtAnmeldung, ncts_BeladungsOrt,"& _ " ncts_DurchgangszollstelleDienststellnummer1, ncts_DurchgangszollstelleDienstste"& _ "llnummer2, ncts_DurchgangszollstelleDienststellnummer3, ncts_Durchgangszollstell"& _ "eDienststellnummer4, ncts_DurchgangszollstelleDienststellnummer5, ncts_Durchgang"& _ "szollstelleDienststellnummer6, ncts_DurchgangszollstelleDienststellnummer7, ncts"& _ "_DurchgangszollstelleDienststellnummer8, ncts_DurchgangszollstelleDienststellnum"& _ "mer9, ncts_BestimmungsstelleDienststellennummer, ncts_AbgangsDienststellennummer"& _ ", ncts_Wiedergestellungsdatum, ncts_KzVereinfachtesVerfahren, ncts_GesamtRohmass"& _ "e, ncts_GesamtAnzahlPackstuecke, ncts_Verschluss_ArtCode, ncts_Verschluss_Anzahl"& _ ", ncts_Verschluss_Zeichen1, ncts_Verschluss_Zeichen2, ncts_Verschluss_Zeichen3, "& _ "ncts_Verschluss_Zeichen4, ncts_Verschluss_Zeichen5, ncts_Verschluss_Zeichen6, nc"& _ "ts_Verschluss_Zeichen7, ncts_Verschluss_Zeichen8, ncts_Verschluss_Zeichen9, ncts"& _ "_Verschluss_Zeichen10, ncts_Verschluss_Zeichen11, ncts_Verschluss_Zeichen12, nct"& _ "s_Verschluss_Zeichen13, ncts_Verschluss_Zeichen14, ncts_Verschluss_Zeichen15, nc"& _ "ts_Verschluss_Zeichen16, ncts_Befoerderungsmittel_KennzeichenAbgang, ncts_Befoer"& _ "derungsmittel_SttaszugehoerigkeitAbgangCode, ncts_Befoerderungsmittel_Verkehrszw"& _ "eigGrenzueberschreitent, ncts_Befoerderungsmittel_ArtGrenzueberschreitung, ncts_"& _ "Befoerderungsmittel_KennzeichenGrenzueberschreitend, ncts_Befoerderungsmittel_St"& _ "aatszugehoerigkeitGrenzueberschreitendCode, ncts_Versender_EORI, ncts_Versender_"& _ "NLNR, ncts_Versender_TIN, ncts_Versender_Name, ncts_Versender_StrasseHausnummer,"& _ " ncts_Versender_Ort, ncts_Versender_PLZ, ncts_Versender_Land, ncts_Empfaenger_EO"& _ "RI, ncts_Empfaenger_NLNR, ncts_Empfaenger_TIN, ncts_Empfaenger_Name, ncts_Empfae"& _ "nger_StrasseHausnummer, ncts_Empfaenger_Ort, ncts_Empfaenger_PLZ, ncts_Empfaenge"& _ "r_Land, ncts_Hauptverpflichteter_EORI, ncts_Hauptverpflichteter_NLNR, ncts_Haupt"& _ "verpflichteter_TIN, ncts_Hauptverpflichteter_Name, ncts_Hauptverpflichteter_Stra"& _ "sseHausnummer, ncts_Hauptverpflichteter_Ort, ncts_Hauptverpflichteter_PLZ, ncts_"& _ "Hauptverpflichteter_Land, ncts_ZugelassenerEmpfaenger_EORI, ncts_ZugelassenerEmp"& _ "faenger_TIN, ncts_ZugelassenerEmpfaenger_IDCarnet, ncts_ZugelassenerEmpfaenger_B"& _ "ewilligungsnummerVersender, ncts_SumA_KzSumASicherheit, ncts_SumA_KennnummerSend"& _ "ung, ncts_SumA_NummerBefoerderung, ncts_SumA_BesondereUmstaende, ncts_SumA_Ladeo"& _ "rt, ncts_SumA_Entladeort, ncts_SumA_BefoerderungskostenZahlungsweise, ncts_SumA_"& _ "BefoerderungsrouteLand1, ncts_SumA_BefoerderungsrouteLand2, ncts_SumA_Befoerderu"& _ "ngsrouteLand3, ncts_SumA_BefoerderungsrouteLand4, ncts_SumA_BefoerderungsrouteLa"& _ "nd5, ncts_SumA_BefoerderungsrouteLand6, ncts_SumA_BefoerderungsrouteLand7, ncts_"& _ "SumA_BefoerderungsrouteLand8, ncts_SumA_BefoerderungsrouteLand9, ncts_SumA_Befoe"& _ "rderungsrouteLand10, ncts_SumA_BefoerderungsrouteLand11, ncts_SumA_Befoerderungs"& _ "routeLand12, ncts_SumA_Versender_EORI, ncts_SumA_Versender_NLNR, ncts_SumA_Verse"& _ "nder_TIN, ncts_SumA_Versender_Name, ncts_SumA_Versender_StrasseHausnummer, ncts_"& _ "SumA_Versender_Land, ncts_SumA_Versender_PLZ, ncts_SumA_Versender_Ort, ncts_SumA"& _ "_Empfaenger_EORI, ncts_SumA_Empfaenger_NLNR, ncts_SumA_Empfaenger_TIN, ncts_SumA"& _ "_Empfaenger_Name, ncts_SumA_Empfaenger_StrasseHausnummer, ncts_SumA_Empfaenger_L"& _ "and, ncts_SumA_Empfaenger_PLZ, ncts_SumA_Empfaenger_Ort, ncts_SumA_Befoerderer_E"& _ "ORI, ncts_SumA_Befoerderer_NLNR, ncts_SumA_Befoerderer_TIN, ncts_SumA_Befoerdere"& _ "r_Name, ncts_SumA_Befoerderer_StrasseHausnummer, ncts_SumA_Befoerderer_Land, nct"& _ "s_SumA_Befoerderer_PLZ, ncts_SumA_Befoerderer_Ort, ncts_Stammreferenz, ncts_GUID"& _ ", ncts_Eroeffnung, ncts_Ankunft, ncts_Erledigung, ncts_AVISO_einarbeitet, ncts_V"& _ "ERAG_WeiterverrechungSatz FROM tblNCTS_TR WHERE (ncts_Id = @ncts_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Partnersystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Partnersystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ArtAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BeladungsOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Ladeort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Entladeort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_GUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Eroeffnung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Ankunft", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Erledigung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_AVISO_einarbeitet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AVISO_einarbeitet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_VERAG_WeiterverrechungSatz", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ncts_VERAG_WeiterverrechungSatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Partnersystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Partnersystem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_dyaAnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_dyaAnmID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ANR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ANR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ANR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Gestellt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Gestellt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GestelltAm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GestelltAm", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GestelltAm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Partner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Partner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Partner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Div3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Div3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Div3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Referenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Referenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Referenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_DatumZeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_DatumZeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Trans_Version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Trans_Version", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "ncts_Trans_Version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenSenderNLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenSenderNLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_NachrichtenempfaengerDST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_NachrichtenempfaengerDST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ObjectAlias", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ObjectAlias", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ObjectAlias", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BezugsnummerVorblendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BezugsnummerVorblendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Bearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Bearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Bearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_VersendungsLandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_VersendungsLandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VersendungsLandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BestimmungslandCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BestimmungslandCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungslandCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ArtAnmeldung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ArtAnmeldung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ArtAnmeldung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BeladungsOrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BeladungsOrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BeladungsOrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_DurchgangszollstelleDienststellnummer9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_BestimmungsstelleDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_BestimmungsstelleDienststellennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AbgangsDienststellennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AbgangsDienststellennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Wiedergestellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Wiedergestellungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_KzVereinfachtesVerfahren", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_KzVereinfachtesVerfahren", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GesamtRohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GesamtRohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "ncts_GesamtRohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GesamtAnzahlPackstuecke", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 0, "ncts_GesamtAnzahlPackstuecke", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_ArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Anzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 4, 0, "ncts_Verschluss_Anzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Verschluss_Zeichen16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Verschluss_Zeichen16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenAbgang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_ArtGrenzueberschreitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Hauptverpflichteter_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Hauptverpflichteter_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_IDCarnet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_KzSumASicherheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KzSumASicherheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_KennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_KennnummerSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_NummerBefoerderung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_NummerBefoerderung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BesondereUmstaende", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BesondereUmstaende", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Ladeort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Ladeort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Ladeort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Entladeort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Entladeort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Entladeort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_BefoerderungsrouteLand12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Versender_Ort", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_SumA_Befoerderer_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_SumA_Befoerderer_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Stammreferenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Stammreferenz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Stammreferenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GUID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_GUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Eroeffnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Eroeffnung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Eroeffnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Ankunft", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Ankunft", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Ankunft", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_Erledigung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_Erledigung", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Erledigung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_AVISO_einarbeitet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_AVISO_einarbeitet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ncts_VERAG_WeiterverrechungSatz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_VERAG_WeiterverrechungSatz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ncts_VERAG_WeiterverrechungSatz", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ncts_VERAG_WeiterverrechungSatz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ncts_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ncts_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ncts_Id, ncts_Partnersystem, ncts_Status, ncts_Status_KEWILL_Equivalent, n"& _ "cts_dyaArt, ncts_dyaAnmID, ncts_ANR, ncts_MRN, ncts_Erstellung, ncts_Erstellung_"& _ "SB, ncts_LetzteBearbeitung, ncts_LetzteBearbeitung_SB, ncts_firma, ncts_niederla"& _ "ssung, ncts_Gestellt, ncts_GestelltAm, ncts_Trans_Partner, ncts_Trans_Div1, ncts"& _ "_Trans_Div2, ncts_Trans_Div3, ncts_Trans_Referenz, ncts_Trans_DatumZeit, ncts_Tr"& _ "ans_Version, ncts_NachrichtenSenderTIN, ncts_NachrichtenSenderNLNR, ncts_Nachric"& _ "htenempfaengerDST, ncts_ObjectName, ncts_ObjectAlias, ncts_BezugsnummerVorblendu"& _ "ng, ncts_Bearbeiter, ncts_VersendungsLandCode, ncts_BestimmungslandCode, ncts_Ar"& _ "tAnmeldung, ncts_BeladungsOrt, ncts_DurchgangszollstelleDienststellnummer1, ncts"& _ "_DurchgangszollstelleDienststellnummer2, ncts_DurchgangszollstelleDienststellnum"& _ "mer3, ncts_DurchgangszollstelleDienststellnummer4, ncts_DurchgangszollstelleDien"& _ "ststellnummer5, ncts_DurchgangszollstelleDienststellnummer6, ncts_Durchgangszoll"& _ "stelleDienststellnummer7, ncts_DurchgangszollstelleDienststellnummer8, ncts_Durc"& _ "hgangszollstelleDienststellnummer9, ncts_BestimmungsstelleDienststellennummer, n"& _ "cts_AbgangsDienststellennummer, ncts_Wiedergestellungsdatum, ncts_KzVereinfachte"& _ "sVerfahren, ncts_GesamtRohmasse, ncts_GesamtAnzahlPackstuecke, ncts_Verschluss_A"& _ "rtCode, ncts_Verschluss_Anzahl, ncts_Verschluss_Zeichen1, ncts_Verschluss_Zeiche"& _ "n2, ncts_Verschluss_Zeichen3, ncts_Verschluss_Zeichen4, ncts_Verschluss_Zeichen5"& _ ", ncts_Verschluss_Zeichen6, ncts_Verschluss_Zeichen7, ncts_Verschluss_Zeichen8, "& _ "ncts_Verschluss_Zeichen9, ncts_Verschluss_Zeichen10, ncts_Verschluss_Zeichen11, "& _ "ncts_Verschluss_Zeichen12, ncts_Verschluss_Zeichen13, ncts_Verschluss_Zeichen14,"& _ " ncts_Verschluss_Zeichen15, ncts_Verschluss_Zeichen16, ncts_Befoerderungsmittel_"& _ "KennzeichenAbgang, ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, ncts_"& _ "Befoerderungsmittel_VerkehrszweigGrenzueberschreitent, ncts_Befoerderungsmittel_"& _ "ArtGrenzueberschreitung, ncts_Befoerderungsmittel_KennzeichenGrenzueberschreiten"& _ "d, ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, ncts_V"& _ "ersender_EORI, ncts_Versender_NLNR, ncts_Versender_TIN, ncts_Versender_Name, nct"& _ "s_Versender_StrasseHausnummer, ncts_Versender_Ort, ncts_Versender_PLZ, ncts_Vers"& _ "ender_Land, ncts_Empfaenger_EORI, ncts_Empfaenger_NLNR, ncts_Empfaenger_TIN, nct"& _ "s_Empfaenger_Name, ncts_Empfaenger_StrasseHausnummer, ncts_Empfaenger_Ort, ncts_"& _ "Empfaenger_PLZ, ncts_Empfaenger_Land, ncts_Hauptverpflichteter_EORI, ncts_Hauptv"& _ "erpflichteter_NLNR, ncts_Hauptverpflichteter_TIN, ncts_Hauptverpflichteter_Name,"& _ " ncts_Hauptverpflichteter_StrasseHausnummer, ncts_Hauptverpflichteter_Ort, ncts_"& _ "Hauptverpflichteter_PLZ, ncts_Hauptverpflichteter_Land, ncts_ZugelassenerEmpfaen"& _ "ger_EORI, ncts_ZugelassenerEmpfaenger_TIN, ncts_ZugelassenerEmpfaenger_IDCarnet,"& _ " ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender, ncts_SumA_KzSumASicher"& _ "heit, ncts_SumA_KennnummerSendung, ncts_SumA_NummerBefoerderung, ncts_SumA_Beson"& _ "dereUmstaende, ncts_SumA_Ladeort, ncts_SumA_Entladeort, ncts_SumA_Befoerderungsk"& _ "ostenZahlungsweise, ncts_SumA_BefoerderungsrouteLand1, ncts_SumA_Befoerderungsro"& _ "uteLand2, ncts_SumA_BefoerderungsrouteLand3, ncts_SumA_BefoerderungsrouteLand4, "& _ "ncts_SumA_BefoerderungsrouteLand5, ncts_SumA_BefoerderungsrouteLand6, ncts_SumA_"& _ "BefoerderungsrouteLand7, ncts_SumA_BefoerderungsrouteLand8, ncts_SumA_Befoerderu"& _ "ngsrouteLand9, ncts_SumA_BefoerderungsrouteLand10, ncts_SumA_BefoerderungsrouteL"& _ "and11, ncts_SumA_BefoerderungsrouteLand12, ncts_SumA_Versender_EORI, ncts_SumA_V"& _ "ersender_NLNR, ncts_SumA_Versender_TIN, ncts_SumA_Versender_Name, ncts_SumA_Vers"& _ "ender_StrasseHausnummer, ncts_SumA_Versender_Land, ncts_SumA_Versender_PLZ, ncts"& _ "_SumA_Versender_Ort, ncts_SumA_Empfaenger_EORI, ncts_SumA_Empfaenger_NLNR, ncts_"& _ "SumA_Empfaenger_TIN, ncts_SumA_Empfaenger_Name, ncts_SumA_Empfaenger_StrasseHaus"& _ "nummer, ncts_SumA_Empfaenger_Land, ncts_SumA_Empfaenger_PLZ, ncts_SumA_Empfaenge"& _ "r_Ort, ncts_SumA_Befoerderer_EORI, ncts_SumA_Befoerderer_NLNR, ncts_SumA_Befoerd"& _ "erer_TIN, ncts_SumA_Befoerderer_Name, ncts_SumA_Befoerderer_StrasseHausnummer, n"& _ "cts_SumA_Befoerderer_Land, ncts_SumA_Befoerderer_PLZ, ncts_SumA_Befoerderer_Ort,"& _ " ncts_Stammreferenz, ncts_GUID, ncts_Eroeffnung, ncts_Ankunft, ncts_Erledigung, "& _ "ncts_AVISO_einarbeitet, ncts_VERAG_WeiterverrechungSatz FROM dbo.tblNCTS_TR" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblNCTS_TRDataTable) 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 VERAGDataSet.tblNCTS_TRDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblNCTS_TRDataTable = New VERAGDataSet.tblNCTS_TRDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblNCTS_TRDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblNCTS_TR") 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_ncts_Id As Integer, _ ByVal Original_ncts_Partnersystem As String, _ ByVal Original_ncts_Status As Integer, _ ByVal Original_ncts_Status_KEWILL_Equivalent As Integer, _ ByVal Original_ncts_dyaArt As String, _ ByVal Original_ncts_dyaAnmID As Integer, _ ByVal Original_ncts_ANR As String, _ ByVal Original_ncts_MRN As String, _ ByVal Original_ncts_Erstellung As Date, _ ByVal Original_ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_LetzteBearbeitung As Date, _ ByVal Original_ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_firma As String, _ ByVal Original_ncts_niederlassung As String, _ ByVal Original_ncts_Gestellt As Boolean, _ ByVal Original_ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Partner As String, _ ByVal Original_ncts_Trans_Div1 As String, _ ByVal Original_ncts_Trans_Div2 As String, _ ByVal Original_ncts_Trans_Div3 As String, _ ByVal Original_ncts_Trans_Referenz As String, _ ByVal Original_ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_NachrichtenSenderTIN As String, _ ByVal Original_ncts_NachrichtenSenderNLNR As String, _ ByVal Original_ncts_NachrichtenempfaengerDST As String, _ ByVal Original_ncts_ObjectName As String, _ ByVal Original_ncts_ObjectAlias As String, _ ByVal Original_ncts_BezugsnummerVorblendung As String, _ ByVal Original_ncts_Bearbeiter As String, _ ByVal Original_ncts_VersendungsLandCode As String, _ ByVal Original_ncts_BestimmungslandCode As String, _ ByVal Original_ncts_ArtAnmeldung As String, _ ByVal Original_ncts_BeladungsOrt As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal Original_ncts_BestimmungsstelleDienststellennummer As String, _ ByVal Original_ncts_AbgangsDienststellennummer As String, _ ByVal Original_ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_ncts_KzVereinfachtesVerfahren As String, _ ByVal Original_ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_ArtCode As String, _ ByVal Original_ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_Zeichen1 As String, _ ByVal Original_ncts_Verschluss_Zeichen2 As String, _ ByVal Original_ncts_Verschluss_Zeichen3 As String, _ ByVal Original_ncts_Verschluss_Zeichen4 As String, _ ByVal Original_ncts_Verschluss_Zeichen5 As String, _ ByVal Original_ncts_Verschluss_Zeichen6 As String, _ ByVal Original_ncts_Verschluss_Zeichen7 As String, _ ByVal Original_ncts_Verschluss_Zeichen8 As String, _ ByVal Original_ncts_Verschluss_Zeichen9 As String, _ ByVal Original_ncts_Verschluss_Zeichen10 As String, _ ByVal Original_ncts_Verschluss_Zeichen11 As String, _ ByVal Original_ncts_Verschluss_Zeichen12 As String, _ ByVal Original_ncts_Verschluss_Zeichen13 As String, _ ByVal Original_ncts_Verschluss_Zeichen14 As String, _ ByVal Original_ncts_Verschluss_Zeichen15 As String, _ ByVal Original_ncts_Verschluss_Zeichen16 As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal Original_ncts_Versender_EORI As String, _ ByVal Original_ncts_Versender_NLNR As String, _ ByVal Original_ncts_Versender_TIN As String, _ ByVal Original_ncts_Versender_Name As String, _ ByVal Original_ncts_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_Versender_Ort As String, _ ByVal Original_ncts_Versender_PLZ As String, _ ByVal Original_ncts_Versender_Land As String, _ ByVal Original_ncts_Empfaenger_EORI As String, _ ByVal Original_ncts_Empfaenger_NLNR As String, _ ByVal Original_ncts_Empfaenger_TIN As String, _ ByVal Original_ncts_Empfaenger_Name As String, _ ByVal Original_ncts_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_Empfaenger_Ort As String, _ ByVal Original_ncts_Empfaenger_PLZ As String, _ ByVal Original_ncts_Empfaenger_Land As String, _ ByVal Original_ncts_Hauptverpflichteter_EORI As String, _ ByVal Original_ncts_Hauptverpflichteter_NLNR As String, _ ByVal Original_ncts_Hauptverpflichteter_TIN As String, _ ByVal Original_ncts_Hauptverpflichteter_Name As String, _ ByVal Original_ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal Original_ncts_Hauptverpflichteter_Ort As String, _ ByVal Original_ncts_Hauptverpflichteter_PLZ As String, _ ByVal Original_ncts_Hauptverpflichteter_Land As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal Original_ncts_SumA_KzSumASicherheit As String, _ ByVal Original_ncts_SumA_KennnummerSendung As String, _ ByVal Original_ncts_SumA_NummerBefoerderung As String, _ ByVal Original_ncts_SumA_BesondereUmstaende As String, _ ByVal Original_ncts_SumA_Ladeort As String, _ ByVal Original_ncts_SumA_Entladeort As String, _ ByVal Original_ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal Original_ncts_SumA_Versender_EORI As String, _ ByVal Original_ncts_SumA_Versender_NLNR As String, _ ByVal Original_ncts_SumA_Versender_TIN As String, _ ByVal Original_ncts_SumA_Versender_Name As String, _ ByVal Original_ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Versender_Land As String, _ ByVal Original_ncts_SumA_Versender_PLZ As String, _ ByVal Original_ncts_SumA_Versender_Ort As String, _ ByVal Original_ncts_SumA_Empfaenger_EORI As String, _ ByVal Original_ncts_SumA_Empfaenger_NLNR As String, _ ByVal Original_ncts_SumA_Empfaenger_TIN As String, _ ByVal Original_ncts_SumA_Empfaenger_Name As String, _ ByVal Original_ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Empfaenger_Land As String, _ ByVal Original_ncts_SumA_Empfaenger_PLZ As String, _ ByVal Original_ncts_SumA_Empfaenger_Ort As String, _ ByVal Original_ncts_SumA_Befoerderer_EORI As String, _ ByVal Original_ncts_SumA_Befoerderer_NLNR As String, _ ByVal Original_ncts_SumA_Befoerderer_TIN As String, _ ByVal Original_ncts_SumA_Befoerderer_Name As String, _ ByVal Original_ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Befoerderer_Land As String, _ ByVal Original_ncts_SumA_Befoerderer_PLZ As String, _ ByVal Original_ncts_SumA_Befoerderer_Ort As String, _ ByVal Original_ncts_Stammreferenz As String, _ ByVal Original_ncts_GUID As String, _ ByVal Original_ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Erledigung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_AVISO_einarbeitet As Boolean, _ ByVal Original_ncts_VERAG_WeiterverrechungSatz As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ncts_Id,Integer) If (Original_ncts_Partnersystem Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ncts_Partnersystem") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ncts_Partnersystem,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ncts_Status,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ncts_Status_KEWILL_Equivalent,Integer) If (Original_ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ncts_dyaArt") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ncts_dyaArt,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ncts_dyaAnmID,Integer) If (Original_ncts_ANR 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_ncts_ANR,String) End If If (Original_ncts_MRN 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_ncts_MRN,String) End If Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ncts_Erstellung,Date) If (Original_ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_ncts_LetzteBearbeitung,Date) If (Original_ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_ncts_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_ncts_firma Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ncts_firma,String) End If If (Original_ncts_niederlassung 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_ncts_niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_ncts_Gestellt,Boolean) If (Original_ncts_GestelltAm.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_ncts_GestelltAm.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Partner Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_ncts_Trans_Partner,String) End If If (Original_ncts_Trans_Div1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_ncts_Trans_Div1,String) End If If (Original_ncts_Trans_Div2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_ncts_Trans_Div2,String) End If If (Original_ncts_Trans_Div3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_ncts_Trans_Div3,String) End If If (Original_ncts_Trans_Referenz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_ncts_Trans_Referenz,String) End If If (Original_ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Version.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_ncts_Trans_Version.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Original_ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_ncts_NachrichtenSenderTIN,String) End If If (Original_ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_ncts_NachrichtenSenderNLNR,String) End If If (Original_ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_ncts_NachrichtenempfaengerDST,String) End If If (Original_ncts_ObjectName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_ncts_ObjectName,String) End If If (Original_ncts_ObjectAlias Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_ncts_ObjectAlias,String) End If If (Original_ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_ncts_BezugsnummerVorblendung,String) End If If (Original_ncts_Bearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_ncts_Bearbeiter,String) End If If (Original_ncts_VersendungsLandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_ncts_VersendungsLandCode,String) End If If (Original_ncts_BestimmungslandCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_ncts_BestimmungslandCode,String) End If If (Original_ncts_ArtAnmeldung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_ncts_ArtAnmeldung,String) End If If (Original_ncts_BeladungsOrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_ncts_BeladungsOrt,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer1,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer2,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer3,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer4,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer5,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer6,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer7,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer8,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer9,String) End If If (Original_ncts_BestimmungsstelleDienststellennummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_ncts_BestimmungsstelleDienststellennummer,String) End If If (Original_ncts_AbgangsDienststellennummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_ncts_AbgangsDienststellennummer,String) End If If (Original_ncts_Wiedergestellungsdatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_ncts_Wiedergestellungsdatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (Original_ncts_KzVereinfachtesVerfahren Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_ncts_KzVereinfachtesVerfahren,String) End If If (Original_ncts_GesamtRohmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_ncts_GesamtRohmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value End If If (Original_ncts_GesamtAnzahlPackstuecke.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_ncts_GesamtAnzahlPackstuecke.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (Original_ncts_Verschluss_ArtCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_ncts_Verschluss_ArtCode,String) End If If (Original_ncts_Verschluss_Anzahl.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_ncts_Verschluss_Anzahl.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value End If If (Original_ncts_Verschluss_Zeichen1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = CType(Original_ncts_Verschluss_Zeichen1,String) End If If (Original_ncts_Verschluss_Zeichen2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = CType(Original_ncts_Verschluss_Zeichen2,String) End If If (Original_ncts_Verschluss_Zeichen3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = CType(Original_ncts_Verschluss_Zeichen3,String) End If If (Original_ncts_Verschluss_Zeichen4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = CType(Original_ncts_Verschluss_Zeichen4,String) End If If (Original_ncts_Verschluss_Zeichen5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(102).Value = CType(Original_ncts_Verschluss_Zeichen5,String) End If If (Original_ncts_Verschluss_Zeichen6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(104).Value = CType(Original_ncts_Verschluss_Zeichen6,String) End If If (Original_ncts_Verschluss_Zeichen7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(106).Value = CType(Original_ncts_Verschluss_Zeichen7,String) End If If (Original_ncts_Verschluss_Zeichen8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(108).Value = CType(Original_ncts_Verschluss_Zeichen8,String) End If If (Original_ncts_Verschluss_Zeichen9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(110).Value = CType(Original_ncts_Verschluss_Zeichen9,String) End If If (Original_ncts_Verschluss_Zeichen10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(112).Value = CType(Original_ncts_Verschluss_Zeichen10,String) End If If (Original_ncts_Verschluss_Zeichen11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(114).Value = CType(Original_ncts_Verschluss_Zeichen11,String) End If If (Original_ncts_Verschluss_Zeichen12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(116).Value = CType(Original_ncts_Verschluss_Zeichen12,String) End If If (Original_ncts_Verschluss_Zeichen13 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(118).Value = CType(Original_ncts_Verschluss_Zeichen13,String) End If If (Original_ncts_Verschluss_Zeichen14 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(120).Value = CType(Original_ncts_Verschluss_Zeichen14,String) End If If (Original_ncts_Verschluss_Zeichen15 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(122).Value = CType(Original_ncts_Verschluss_Zeichen15,String) End If If (Original_ncts_Verschluss_Zeichen16 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(123).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(123).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(124).Value = CType(Original_ncts_Verschluss_Zeichen16,String) End If If (Original_ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(125).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(125).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(126).Value = CType(Original_ncts_Befoerderungsmittel_KennzeichenAbgang,String) End If If (Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(127).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(127).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(128).Value = CType(Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode,String) End If If (Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(129).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(129).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(130).Value = CType(Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent,String) End If If (Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(131).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(131).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(132).Value = CType(Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung,String) End If If (Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(133).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(133).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(134).Value = CType(Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend,String) End If If (Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(135).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(135).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(136).Value = CType(Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode,String) End If If (Original_ncts_Versender_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(137).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(137).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(138).Value = CType(Original_ncts_Versender_EORI,String) End If If (Original_ncts_Versender_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(140).Value = CType(Original_ncts_Versender_NLNR,String) End If If (Original_ncts_Versender_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = CType(Original_ncts_Versender_TIN,String) End If If (Original_ncts_Versender_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(144).Value = CType(Original_ncts_Versender_Name,String) End If If (Original_ncts_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(146).Value = CType(Original_ncts_Versender_StrasseHausnummer,String) End If If (Original_ncts_Versender_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(148).Value = CType(Original_ncts_Versender_Ort,String) End If If (Original_ncts_Versender_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(150).Value = CType(Original_ncts_Versender_PLZ,String) End If If (Original_ncts_Versender_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(152).Value = CType(Original_ncts_Versender_Land,String) End If If (Original_ncts_Empfaenger_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(154).Value = CType(Original_ncts_Empfaenger_EORI,String) End If If (Original_ncts_Empfaenger_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(156).Value = CType(Original_ncts_Empfaenger_NLNR,String) End If If (Original_ncts_Empfaenger_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(158).Value = CType(Original_ncts_Empfaenger_TIN,String) End If If (Original_ncts_Empfaenger_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(159).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(159).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(160).Value = CType(Original_ncts_Empfaenger_Name,String) End If If (Original_ncts_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(162).Value = CType(Original_ncts_Empfaenger_StrasseHausnummer,String) End If If (Original_ncts_Empfaenger_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(164).Value = CType(Original_ncts_Empfaenger_Ort,String) End If If (Original_ncts_Empfaenger_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(166).Value = CType(Original_ncts_Empfaenger_PLZ,String) End If If (Original_ncts_Empfaenger_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(168).Value = CType(Original_ncts_Empfaenger_Land,String) End If If (Original_ncts_Hauptverpflichteter_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(170).Value = CType(Original_ncts_Hauptverpflichteter_EORI,String) End If If (Original_ncts_Hauptverpflichteter_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(172).Value = CType(Original_ncts_Hauptverpflichteter_NLNR,String) End If If (Original_ncts_Hauptverpflichteter_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(174).Value = CType(Original_ncts_Hauptverpflichteter_TIN,String) End If If (Original_ncts_Hauptverpflichteter_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(176).Value = CType(Original_ncts_Hauptverpflichteter_Name,String) End If If (Original_ncts_Hauptverpflichteter_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(178).Value = CType(Original_ncts_Hauptverpflichteter_StrasseHausnummer,String) End If If (Original_ncts_Hauptverpflichteter_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(180).Value = CType(Original_ncts_Hauptverpflichteter_Ort,String) End If If (Original_ncts_Hauptverpflichteter_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(182).Value = CType(Original_ncts_Hauptverpflichteter_PLZ,String) End If If (Original_ncts_Hauptverpflichteter_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(184).Value = CType(Original_ncts_Hauptverpflichteter_Land,String) End If If (Original_ncts_ZugelassenerEmpfaenger_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(186).Value = CType(Original_ncts_ZugelassenerEmpfaenger_EORI,String) End If If (Original_ncts_ZugelassenerEmpfaenger_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(188).Value = CType(Original_ncts_ZugelassenerEmpfaenger_TIN,String) End If If (Original_ncts_ZugelassenerEmpfaenger_IDCarnet Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(190).Value = CType(Original_ncts_ZugelassenerEmpfaenger_IDCarnet,String) End If If (Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(192).Value = CType(Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender,String) End If If (Original_ncts_SumA_KzSumASicherheit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(194).Value = CType(Original_ncts_SumA_KzSumASicherheit,String) End If If (Original_ncts_SumA_KennnummerSendung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(196).Value = CType(Original_ncts_SumA_KennnummerSendung,String) End If If (Original_ncts_SumA_NummerBefoerderung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(198).Value = CType(Original_ncts_SumA_NummerBefoerderung,String) End If If (Original_ncts_SumA_BesondereUmstaende Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(200).Value = CType(Original_ncts_SumA_BesondereUmstaende,String) End If If (Original_ncts_SumA_Ladeort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(202).Value = CType(Original_ncts_SumA_Ladeort,String) End If If (Original_ncts_SumA_Entladeort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(204).Value = CType(Original_ncts_SumA_Entladeort,String) End If If (Original_ncts_SumA_BefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(206).Value = CType(Original_ncts_SumA_BefoerderungskostenZahlungsweise,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(208).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand1,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(210).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand2,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(212).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand3,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(214).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand4,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(216).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand5,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(218).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand6,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(220).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand7,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(222).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand8,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(224).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand9,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(225).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(225).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(226).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand10,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(227).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(228).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(227).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(228).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand11,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(229).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(229).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(230).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand12,String) End If If (Original_ncts_SumA_Versender_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(231).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(231).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(232).Value = CType(Original_ncts_SumA_Versender_EORI,String) End If If (Original_ncts_SumA_Versender_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(234).Value = CType(Original_ncts_SumA_Versender_NLNR,String) End If If (Original_ncts_SumA_Versender_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(236).Value = CType(Original_ncts_SumA_Versender_TIN,String) End If If (Original_ncts_SumA_Versender_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(238).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(238).Value = CType(Original_ncts_SumA_Versender_Name,String) End If If (Original_ncts_SumA_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(240).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(240).Value = CType(Original_ncts_SumA_Versender_StrasseHausnummer,String) End If If (Original_ncts_SumA_Versender_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(241).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(242).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(241).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(242).Value = CType(Original_ncts_SumA_Versender_Land,String) End If If (Original_ncts_SumA_Versender_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(244).Value = CType(Original_ncts_SumA_Versender_PLZ,String) End If If (Original_ncts_SumA_Versender_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(246).Value = CType(Original_ncts_SumA_Versender_Ort,String) End If If (Original_ncts_SumA_Empfaenger_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(248).Value = CType(Original_ncts_SumA_Empfaenger_EORI,String) End If If (Original_ncts_SumA_Empfaenger_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(250).Value = CType(Original_ncts_SumA_Empfaenger_NLNR,String) End If If (Original_ncts_SumA_Empfaenger_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(252).Value = CType(Original_ncts_SumA_Empfaenger_TIN,String) End If If (Original_ncts_SumA_Empfaenger_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(254).Value = CType(Original_ncts_SumA_Empfaenger_Name,String) End If If (Original_ncts_SumA_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(256).Value = CType(Original_ncts_SumA_Empfaenger_StrasseHausnummer,String) End If If (Original_ncts_SumA_Empfaenger_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(258).Value = CType(Original_ncts_SumA_Empfaenger_Land,String) End If If (Original_ncts_SumA_Empfaenger_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(260).Value = CType(Original_ncts_SumA_Empfaenger_PLZ,String) End If If (Original_ncts_SumA_Empfaenger_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(261).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(261).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(262).Value = CType(Original_ncts_SumA_Empfaenger_Ort,String) End If If (Original_ncts_SumA_Befoerderer_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(263).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(263).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(264).Value = CType(Original_ncts_SumA_Befoerderer_EORI,String) End If If (Original_ncts_SumA_Befoerderer_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(265).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(265).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(266).Value = CType(Original_ncts_SumA_Befoerderer_NLNR,String) End If If (Original_ncts_SumA_Befoerderer_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(267).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(267).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(268).Value = CType(Original_ncts_SumA_Befoerderer_TIN,String) End If If (Original_ncts_SumA_Befoerderer_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(269).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(269).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(270).Value = CType(Original_ncts_SumA_Befoerderer_Name,String) End If If (Original_ncts_SumA_Befoerderer_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(271).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(272).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(271).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(272).Value = CType(Original_ncts_SumA_Befoerderer_StrasseHausnummer,String) End If If (Original_ncts_SumA_Befoerderer_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(273).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(273).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(274).Value = CType(Original_ncts_SumA_Befoerderer_Land,String) End If If (Original_ncts_SumA_Befoerderer_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(275).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(276).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(275).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(276).Value = CType(Original_ncts_SumA_Befoerderer_PLZ,String) End If If (Original_ncts_SumA_Befoerderer_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(277).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(278).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(277).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(278).Value = CType(Original_ncts_SumA_Befoerderer_Ort,String) End If If (Original_ncts_Stammreferenz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(279).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(280).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(279).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(280).Value = CType(Original_ncts_Stammreferenz,String) End If If (Original_ncts_GUID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(281).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(281).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(282).Value = CType(Original_ncts_GUID,String) End If If (Original_ncts_Eroeffnung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(283).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(284).Value = CType(Original_ncts_Eroeffnung.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(283).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(284).Value = Global.System.DBNull.Value End If If (Original_ncts_Ankunft.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(285).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(286).Value = CType(Original_ncts_Ankunft.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(285).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(286).Value = Global.System.DBNull.Value End If If (Original_ncts_Erledigung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(287).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(288).Value = CType(Original_ncts_Erledigung.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(287).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(288).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(289).Value = CType(Original_ncts_AVISO_einarbeitet,Boolean) If (Original_ncts_VERAG_WeiterverrechungSatz.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(290).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(291).Value = CType(Original_ncts_VERAG_WeiterverrechungSatz.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(290).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(291).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 ncts_Partnersystem As String, _ ByVal ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_VersendungsLandCode As String, _ ByVal ncts_BestimmungslandCode As String, _ ByVal ncts_ArtAnmeldung As String, _ ByVal ncts_BeladungsOrt As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal ncts_BestimmungsstelleDienststellennummer As String, _ ByVal ncts_AbgangsDienststellennummer As String, _ ByVal ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal ncts_KzVereinfachtesVerfahren As String, _ ByVal ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_ArtCode As String, _ ByVal ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_Zeichen1 As String, _ ByVal ncts_Verschluss_Zeichen2 As String, _ ByVal ncts_Verschluss_Zeichen3 As String, _ ByVal ncts_Verschluss_Zeichen4 As String, _ ByVal ncts_Verschluss_Zeichen5 As String, _ ByVal ncts_Verschluss_Zeichen6 As String, _ ByVal ncts_Verschluss_Zeichen7 As String, _ ByVal ncts_Verschluss_Zeichen8 As String, _ ByVal ncts_Verschluss_Zeichen9 As String, _ ByVal ncts_Verschluss_Zeichen10 As String, _ ByVal ncts_Verschluss_Zeichen11 As String, _ ByVal ncts_Verschluss_Zeichen12 As String, _ ByVal ncts_Verschluss_Zeichen13 As String, _ ByVal ncts_Verschluss_Zeichen14 As String, _ ByVal ncts_Verschluss_Zeichen15 As String, _ ByVal ncts_Verschluss_Zeichen16 As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal ncts_Versender_EORI As String, _ ByVal ncts_Versender_NLNR As String, _ ByVal ncts_Versender_TIN As String, _ ByVal ncts_Versender_Name As String, _ ByVal ncts_Versender_StrasseHausnummer As String, _ ByVal ncts_Versender_Ort As String, _ ByVal ncts_Versender_PLZ As String, _ ByVal ncts_Versender_Land As String, _ ByVal ncts_Empfaenger_EORI As String, _ ByVal ncts_Empfaenger_NLNR As String, _ ByVal ncts_Empfaenger_TIN As String, _ ByVal ncts_Empfaenger_Name As String, _ ByVal ncts_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_Empfaenger_Ort As String, _ ByVal ncts_Empfaenger_PLZ As String, _ ByVal ncts_Empfaenger_Land As String, _ ByVal ncts_Hauptverpflichteter_EORI As String, _ ByVal ncts_Hauptverpflichteter_NLNR As String, _ ByVal ncts_Hauptverpflichteter_TIN As String, _ ByVal ncts_Hauptverpflichteter_Name As String, _ ByVal ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal ncts_Hauptverpflichteter_Ort As String, _ ByVal ncts_Hauptverpflichteter_PLZ As String, _ ByVal ncts_Hauptverpflichteter_Land As String, _ ByVal ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal ncts_SumA_KzSumASicherheit As String, _ ByVal ncts_SumA_KennnummerSendung As String, _ ByVal ncts_SumA_NummerBefoerderung As String, _ ByVal ncts_SumA_BesondereUmstaende As String, _ ByVal ncts_SumA_Ladeort As String, _ ByVal ncts_SumA_Entladeort As String, _ ByVal ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal ncts_SumA_Versender_EORI As String, _ ByVal ncts_SumA_Versender_NLNR As String, _ ByVal ncts_SumA_Versender_TIN As String, _ ByVal ncts_SumA_Versender_Name As String, _ ByVal ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal ncts_SumA_Versender_Land As String, _ ByVal ncts_SumA_Versender_PLZ As String, _ ByVal ncts_SumA_Versender_Ort As String, _ ByVal ncts_SumA_Empfaenger_EORI As String, _ ByVal ncts_SumA_Empfaenger_NLNR As String, _ ByVal ncts_SumA_Empfaenger_TIN As String, _ ByVal ncts_SumA_Empfaenger_Name As String, _ ByVal ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_SumA_Empfaenger_Land As String, _ ByVal ncts_SumA_Empfaenger_PLZ As String, _ ByVal ncts_SumA_Empfaenger_Ort As String, _ ByVal ncts_SumA_Befoerderer_EORI As String, _ ByVal ncts_SumA_Befoerderer_NLNR As String, _ ByVal ncts_SumA_Befoerderer_TIN As String, _ ByVal ncts_SumA_Befoerderer_Name As String, _ ByVal ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal ncts_SumA_Befoerderer_Land As String, _ ByVal ncts_SumA_Befoerderer_PLZ As String, _ ByVal ncts_SumA_Befoerderer_Ort As String, _ ByVal ncts_Stammreferenz As String, _ ByVal ncts_GUID As String, _ ByVal ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal ncts_Erledigung As Global.System.Nullable(Of Date), _ ByVal ncts_AVISO_einarbeitet As Boolean, _ ByVal ncts_VERAG_WeiterverrechungSatz As Global.System.Nullable(Of Decimal)) As Integer If (ncts_Partnersystem Is Nothing) Then Throw New Global.System.ArgumentNullException("ncts_Partnersystem") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(ncts_Partnersystem,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(ncts_Status,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(ncts_Status_KEWILL_Equivalent,Integer) If (ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("ncts_dyaArt") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ncts_dyaArt,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(ncts_dyaAnmID,Integer) If (ncts_ANR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ncts_ANR,String) End If If (ncts_MRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ncts_MRN,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(ncts_Erstellung,Date) If (ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(ncts_LetzteBearbeitung,Date) If (ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(ncts_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (ncts_firma Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(ncts_firma,String) End If If (ncts_niederlassung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(ncts_niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(13).Value = CType(ncts_Gestellt,Boolean) If (ncts_GestelltAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(ncts_GestelltAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (ncts_Trans_Partner Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(ncts_Trans_Partner,String) End If If (ncts_Trans_Div1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(ncts_Trans_Div1,String) End If If (ncts_Trans_Div2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(ncts_Trans_Div2,String) End If If (ncts_Trans_Div3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(ncts_Trans_Div3,String) End If If (ncts_Trans_Referenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(ncts_Trans_Referenz,String) End If If (ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (ncts_Trans_Version.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(ncts_Trans_Version.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(ncts_NachrichtenSenderTIN,String) End If If (ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(ncts_NachrichtenSenderNLNR,String) End If If (ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(ncts_NachrichtenempfaengerDST,String) End If If (ncts_ObjectName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(ncts_ObjectName,String) End If If (ncts_ObjectAlias Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(ncts_ObjectAlias,String) End If If (ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(ncts_BezugsnummerVorblendung,String) End If If (ncts_Bearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(ncts_Bearbeiter,String) End If If (ncts_VersendungsLandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(ncts_VersendungsLandCode,String) End If If (ncts_BestimmungslandCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(ncts_BestimmungslandCode,String) End If If (ncts_ArtAnmeldung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(ncts_ArtAnmeldung,String) End If If (ncts_BeladungsOrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(ncts_BeladungsOrt,String) End If If (ncts_DurchgangszollstelleDienststellnummer1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(ncts_DurchgangszollstelleDienststellnummer1,String) End If If (ncts_DurchgangszollstelleDienststellnummer2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(ncts_DurchgangszollstelleDienststellnummer2,String) End If If (ncts_DurchgangszollstelleDienststellnummer3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(ncts_DurchgangszollstelleDienststellnummer3,String) End If If (ncts_DurchgangszollstelleDienststellnummer4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(ncts_DurchgangszollstelleDienststellnummer4,String) End If If (ncts_DurchgangszollstelleDienststellnummer5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(ncts_DurchgangszollstelleDienststellnummer5,String) End If If (ncts_DurchgangszollstelleDienststellnummer6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(ncts_DurchgangszollstelleDienststellnummer6,String) End If If (ncts_DurchgangszollstelleDienststellnummer7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(ncts_DurchgangszollstelleDienststellnummer7,String) End If If (ncts_DurchgangszollstelleDienststellnummer8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(ncts_DurchgangszollstelleDienststellnummer8,String) End If If (ncts_DurchgangszollstelleDienststellnummer9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(ncts_DurchgangszollstelleDienststellnummer9,String) End If If (ncts_BestimmungsstelleDienststellennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(ncts_BestimmungsstelleDienststellennummer,String) End If If (ncts_AbgangsDienststellennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(ncts_AbgangsDienststellennummer,String) End If If (ncts_Wiedergestellungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(44).Value = CType(ncts_Wiedergestellungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (ncts_KzVereinfachtesVerfahren Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(ncts_KzVereinfachtesVerfahren,String) End If If (ncts_GesamtRohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(46).Value = CType(ncts_GesamtRohmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (ncts_GesamtAnzahlPackstuecke.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(47).Value = CType(ncts_GesamtAnzahlPackstuecke.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (ncts_Verschluss_ArtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(ncts_Verschluss_ArtCode,String) End If If (ncts_Verschluss_Anzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(49).Value = CType(ncts_Verschluss_Anzahl.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (ncts_Verschluss_Zeichen1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(ncts_Verschluss_Zeichen1,String) End If If (ncts_Verschluss_Zeichen2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(ncts_Verschluss_Zeichen2,String) End If If (ncts_Verschluss_Zeichen3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(ncts_Verschluss_Zeichen3,String) End If If (ncts_Verschluss_Zeichen4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(ncts_Verschluss_Zeichen4,String) End If If (ncts_Verschluss_Zeichen5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(ncts_Verschluss_Zeichen5,String) End If If (ncts_Verschluss_Zeichen6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(ncts_Verschluss_Zeichen6,String) End If If (ncts_Verschluss_Zeichen7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(ncts_Verschluss_Zeichen7,String) End If If (ncts_Verschluss_Zeichen8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(ncts_Verschluss_Zeichen8,String) End If If (ncts_Verschluss_Zeichen9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(ncts_Verschluss_Zeichen9,String) End If If (ncts_Verschluss_Zeichen10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(ncts_Verschluss_Zeichen10,String) End If If (ncts_Verschluss_Zeichen11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(ncts_Verschluss_Zeichen11,String) End If If (ncts_Verschluss_Zeichen12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(ncts_Verschluss_Zeichen12,String) End If If (ncts_Verschluss_Zeichen13 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(ncts_Verschluss_Zeichen13,String) End If If (ncts_Verschluss_Zeichen14 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(ncts_Verschluss_Zeichen14,String) End If If (ncts_Verschluss_Zeichen15 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(ncts_Verschluss_Zeichen15,String) End If If (ncts_Verschluss_Zeichen16 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(ncts_Verschluss_Zeichen16,String) End If If (ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(ncts_Befoerderungsmittel_KennzeichenAbgang,String) End If If (ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode,String) End If If (ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent,String) End If If (ncts_Befoerderungsmittel_ArtGrenzueberschreitung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(ncts_Befoerderungsmittel_ArtGrenzueberschreitung,String) End If If (ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend,String) End If If (ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode,String) End If If (ncts_Versender_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(ncts_Versender_EORI,String) End If If (ncts_Versender_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(ncts_Versender_NLNR,String) End If If (ncts_Versender_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(ncts_Versender_TIN,String) End If If (ncts_Versender_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(ncts_Versender_Name,String) End If If (ncts_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(ncts_Versender_StrasseHausnummer,String) End If If (ncts_Versender_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(ncts_Versender_Ort,String) End If If (ncts_Versender_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(78).Value = CType(ncts_Versender_PLZ,String) End If If (ncts_Versender_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(ncts_Versender_Land,String) End If If (ncts_Empfaenger_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(ncts_Empfaenger_EORI,String) End If If (ncts_Empfaenger_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(ncts_Empfaenger_NLNR,String) End If If (ncts_Empfaenger_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(ncts_Empfaenger_TIN,String) End If If (ncts_Empfaenger_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(ncts_Empfaenger_Name,String) End If If (ncts_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(ncts_Empfaenger_StrasseHausnummer,String) End If If (ncts_Empfaenger_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(ncts_Empfaenger_Ort,String) End If If (ncts_Empfaenger_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(ncts_Empfaenger_PLZ,String) End If If (ncts_Empfaenger_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(ncts_Empfaenger_Land,String) End If If (ncts_Hauptverpflichteter_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(88).Value = CType(ncts_Hauptverpflichteter_EORI,String) End If If (ncts_Hauptverpflichteter_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(ncts_Hauptverpflichteter_NLNR,String) End If If (ncts_Hauptverpflichteter_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(ncts_Hauptverpflichteter_TIN,String) End If If (ncts_Hauptverpflichteter_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(ncts_Hauptverpflichteter_Name,String) End If If (ncts_Hauptverpflichteter_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(ncts_Hauptverpflichteter_StrasseHausnummer,String) End If If (ncts_Hauptverpflichteter_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(93).Value = CType(ncts_Hauptverpflichteter_Ort,String) End If If (ncts_Hauptverpflichteter_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(ncts_Hauptverpflichteter_PLZ,String) End If If (ncts_Hauptverpflichteter_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(ncts_Hauptverpflichteter_Land,String) End If If (ncts_ZugelassenerEmpfaenger_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(ncts_ZugelassenerEmpfaenger_EORI,String) End If If (ncts_ZugelassenerEmpfaenger_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(ncts_ZugelassenerEmpfaenger_TIN,String) End If If (ncts_ZugelassenerEmpfaenger_IDCarnet Is Nothing) Then Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(ncts_ZugelassenerEmpfaenger_IDCarnet,String) End If If (ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender,String) End If If (ncts_SumA_KzSumASicherheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(100).Value = CType(ncts_SumA_KzSumASicherheit,String) End If If (ncts_SumA_KennnummerSendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(101).Value = CType(ncts_SumA_KennnummerSendung,String) End If If (ncts_SumA_NummerBefoerderung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(102).Value = CType(ncts_SumA_NummerBefoerderung,String) End If If (ncts_SumA_BesondereUmstaende Is Nothing) Then Me.Adapter.InsertCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(103).Value = CType(ncts_SumA_BesondereUmstaende,String) End If If (ncts_SumA_Ladeort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(104).Value = CType(ncts_SumA_Ladeort,String) End If If (ncts_SumA_Entladeort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(105).Value = CType(ncts_SumA_Entladeort,String) End If If (ncts_SumA_BefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.InsertCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(106).Value = CType(ncts_SumA_BefoerderungskostenZahlungsweise,String) End If If (ncts_SumA_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(107).Value = CType(ncts_SumA_BefoerderungsrouteLand1,String) End If If (ncts_SumA_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(108).Value = CType(ncts_SumA_BefoerderungsrouteLand2,String) End If If (ncts_SumA_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(109).Value = CType(ncts_SumA_BefoerderungsrouteLand3,String) End If If (ncts_SumA_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(110).Value = CType(ncts_SumA_BefoerderungsrouteLand4,String) End If If (ncts_SumA_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(111).Value = CType(ncts_SumA_BefoerderungsrouteLand5,String) End If If (ncts_SumA_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(112).Value = CType(ncts_SumA_BefoerderungsrouteLand6,String) End If If (ncts_SumA_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(113).Value = CType(ncts_SumA_BefoerderungsrouteLand7,String) End If If (ncts_SumA_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(114).Value = CType(ncts_SumA_BefoerderungsrouteLand8,String) End If If (ncts_SumA_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(115).Value = CType(ncts_SumA_BefoerderungsrouteLand9,String) End If If (ncts_SumA_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(116).Value = CType(ncts_SumA_BefoerderungsrouteLand10,String) End If If (ncts_SumA_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(117).Value = CType(ncts_SumA_BefoerderungsrouteLand11,String) End If If (ncts_SumA_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(118).Value = CType(ncts_SumA_BefoerderungsrouteLand12,String) End If If (ncts_SumA_Versender_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(119).Value = CType(ncts_SumA_Versender_EORI,String) End If If (ncts_SumA_Versender_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(120).Value = CType(ncts_SumA_Versender_NLNR,String) End If If (ncts_SumA_Versender_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(121).Value = CType(ncts_SumA_Versender_TIN,String) End If If (ncts_SumA_Versender_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(122).Value = CType(ncts_SumA_Versender_Name,String) End If If (ncts_SumA_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(123).Value = CType(ncts_SumA_Versender_StrasseHausnummer,String) End If If (ncts_SumA_Versender_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(124).Value = CType(ncts_SumA_Versender_Land,String) End If If (ncts_SumA_Versender_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(125).Value = CType(ncts_SumA_Versender_PLZ,String) End If If (ncts_SumA_Versender_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(126).Value = CType(ncts_SumA_Versender_Ort,String) End If If (ncts_SumA_Empfaenger_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(127).Value = CType(ncts_SumA_Empfaenger_EORI,String) End If If (ncts_SumA_Empfaenger_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(128).Value = CType(ncts_SumA_Empfaenger_NLNR,String) End If If (ncts_SumA_Empfaenger_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(129).Value = CType(ncts_SumA_Empfaenger_TIN,String) End If If (ncts_SumA_Empfaenger_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(130).Value = CType(ncts_SumA_Empfaenger_Name,String) End If If (ncts_SumA_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(131).Value = CType(ncts_SumA_Empfaenger_StrasseHausnummer,String) End If If (ncts_SumA_Empfaenger_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(132).Value = CType(ncts_SumA_Empfaenger_Land,String) End If If (ncts_SumA_Empfaenger_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(133).Value = CType(ncts_SumA_Empfaenger_PLZ,String) End If If (ncts_SumA_Empfaenger_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(134).Value = CType(ncts_SumA_Empfaenger_Ort,String) End If If (ncts_SumA_Befoerderer_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(135).Value = CType(ncts_SumA_Befoerderer_EORI,String) End If If (ncts_SumA_Befoerderer_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(136).Value = CType(ncts_SumA_Befoerderer_NLNR,String) End If If (ncts_SumA_Befoerderer_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(137).Value = CType(ncts_SumA_Befoerderer_TIN,String) End If If (ncts_SumA_Befoerderer_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(138).Value = CType(ncts_SumA_Befoerderer_Name,String) End If If (ncts_SumA_Befoerderer_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(139).Value = CType(ncts_SumA_Befoerderer_StrasseHausnummer,String) End If If (ncts_SumA_Befoerderer_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(140).Value = CType(ncts_SumA_Befoerderer_Land,String) End If If (ncts_SumA_Befoerderer_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(141).Value = CType(ncts_SumA_Befoerderer_PLZ,String) End If If (ncts_SumA_Befoerderer_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(142).Value = CType(ncts_SumA_Befoerderer_Ort,String) End If If (ncts_Stammreferenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(143).Value = CType(ncts_Stammreferenz,String) End If If (ncts_GUID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(144).Value = CType(ncts_GUID,String) End If If (ncts_Eroeffnung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(145).Value = CType(ncts_Eroeffnung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(145).Value = Global.System.DBNull.Value End If If (ncts_Ankunft.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(146).Value = CType(ncts_Ankunft.Value,Date) Else Me.Adapter.InsertCommand.Parameters(146).Value = Global.System.DBNull.Value End If If (ncts_Erledigung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(147).Value = CType(ncts_Erledigung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(147).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(148).Value = CType(ncts_AVISO_einarbeitet,Boolean) If (ncts_VERAG_WeiterverrechungSatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(149).Value = CType(ncts_VERAG_WeiterverrechungSatz.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(149).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 ncts_Partnersystem As String, _ ByVal ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_VersendungsLandCode As String, _ ByVal ncts_BestimmungslandCode As String, _ ByVal ncts_ArtAnmeldung As String, _ ByVal ncts_BeladungsOrt As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal ncts_BestimmungsstelleDienststellennummer As String, _ ByVal ncts_AbgangsDienststellennummer As String, _ ByVal ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal ncts_KzVereinfachtesVerfahren As String, _ ByVal ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_ArtCode As String, _ ByVal ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_Zeichen1 As String, _ ByVal ncts_Verschluss_Zeichen2 As String, _ ByVal ncts_Verschluss_Zeichen3 As String, _ ByVal ncts_Verschluss_Zeichen4 As String, _ ByVal ncts_Verschluss_Zeichen5 As String, _ ByVal ncts_Verschluss_Zeichen6 As String, _ ByVal ncts_Verschluss_Zeichen7 As String, _ ByVal ncts_Verschluss_Zeichen8 As String, _ ByVal ncts_Verschluss_Zeichen9 As String, _ ByVal ncts_Verschluss_Zeichen10 As String, _ ByVal ncts_Verschluss_Zeichen11 As String, _ ByVal ncts_Verschluss_Zeichen12 As String, _ ByVal ncts_Verschluss_Zeichen13 As String, _ ByVal ncts_Verschluss_Zeichen14 As String, _ ByVal ncts_Verschluss_Zeichen15 As String, _ ByVal ncts_Verschluss_Zeichen16 As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal ncts_Versender_EORI As String, _ ByVal ncts_Versender_NLNR As String, _ ByVal ncts_Versender_TIN As String, _ ByVal ncts_Versender_Name As String, _ ByVal ncts_Versender_StrasseHausnummer As String, _ ByVal ncts_Versender_Ort As String, _ ByVal ncts_Versender_PLZ As String, _ ByVal ncts_Versender_Land As String, _ ByVal ncts_Empfaenger_EORI As String, _ ByVal ncts_Empfaenger_NLNR As String, _ ByVal ncts_Empfaenger_TIN As String, _ ByVal ncts_Empfaenger_Name As String, _ ByVal ncts_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_Empfaenger_Ort As String, _ ByVal ncts_Empfaenger_PLZ As String, _ ByVal ncts_Empfaenger_Land As String, _ ByVal ncts_Hauptverpflichteter_EORI As String, _ ByVal ncts_Hauptverpflichteter_NLNR As String, _ ByVal ncts_Hauptverpflichteter_TIN As String, _ ByVal ncts_Hauptverpflichteter_Name As String, _ ByVal ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal ncts_Hauptverpflichteter_Ort As String, _ ByVal ncts_Hauptverpflichteter_PLZ As String, _ ByVal ncts_Hauptverpflichteter_Land As String, _ ByVal ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal ncts_SumA_KzSumASicherheit As String, _ ByVal ncts_SumA_KennnummerSendung As String, _ ByVal ncts_SumA_NummerBefoerderung As String, _ ByVal ncts_SumA_BesondereUmstaende As String, _ ByVal ncts_SumA_Ladeort As String, _ ByVal ncts_SumA_Entladeort As String, _ ByVal ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal ncts_SumA_Versender_EORI As String, _ ByVal ncts_SumA_Versender_NLNR As String, _ ByVal ncts_SumA_Versender_TIN As String, _ ByVal ncts_SumA_Versender_Name As String, _ ByVal ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal ncts_SumA_Versender_Land As String, _ ByVal ncts_SumA_Versender_PLZ As String, _ ByVal ncts_SumA_Versender_Ort As String, _ ByVal ncts_SumA_Empfaenger_EORI As String, _ ByVal ncts_SumA_Empfaenger_NLNR As String, _ ByVal ncts_SumA_Empfaenger_TIN As String, _ ByVal ncts_SumA_Empfaenger_Name As String, _ ByVal ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_SumA_Empfaenger_Land As String, _ ByVal ncts_SumA_Empfaenger_PLZ As String, _ ByVal ncts_SumA_Empfaenger_Ort As String, _ ByVal ncts_SumA_Befoerderer_EORI As String, _ ByVal ncts_SumA_Befoerderer_NLNR As String, _ ByVal ncts_SumA_Befoerderer_TIN As String, _ ByVal ncts_SumA_Befoerderer_Name As String, _ ByVal ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal ncts_SumA_Befoerderer_Land As String, _ ByVal ncts_SumA_Befoerderer_PLZ As String, _ ByVal ncts_SumA_Befoerderer_Ort As String, _ ByVal ncts_Stammreferenz As String, _ ByVal ncts_GUID As String, _ ByVal ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal ncts_Erledigung As Global.System.Nullable(Of Date), _ ByVal ncts_AVISO_einarbeitet As Boolean, _ ByVal ncts_VERAG_WeiterverrechungSatz As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Id As Integer, _ ByVal Original_ncts_Partnersystem As String, _ ByVal Original_ncts_Status As Integer, _ ByVal Original_ncts_Status_KEWILL_Equivalent As Integer, _ ByVal Original_ncts_dyaArt As String, _ ByVal Original_ncts_dyaAnmID As Integer, _ ByVal Original_ncts_ANR As String, _ ByVal Original_ncts_MRN As String, _ ByVal Original_ncts_Erstellung As Date, _ ByVal Original_ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_LetzteBearbeitung As Date, _ ByVal Original_ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_firma As String, _ ByVal Original_ncts_niederlassung As String, _ ByVal Original_ncts_Gestellt As Boolean, _ ByVal Original_ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Partner As String, _ ByVal Original_ncts_Trans_Div1 As String, _ ByVal Original_ncts_Trans_Div2 As String, _ ByVal Original_ncts_Trans_Div3 As String, _ ByVal Original_ncts_Trans_Referenz As String, _ ByVal Original_ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_NachrichtenSenderTIN As String, _ ByVal Original_ncts_NachrichtenSenderNLNR As String, _ ByVal Original_ncts_NachrichtenempfaengerDST As String, _ ByVal Original_ncts_ObjectName As String, _ ByVal Original_ncts_ObjectAlias As String, _ ByVal Original_ncts_BezugsnummerVorblendung As String, _ ByVal Original_ncts_Bearbeiter As String, _ ByVal Original_ncts_VersendungsLandCode As String, _ ByVal Original_ncts_BestimmungslandCode As String, _ ByVal Original_ncts_ArtAnmeldung As String, _ ByVal Original_ncts_BeladungsOrt As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal Original_ncts_BestimmungsstelleDienststellennummer As String, _ ByVal Original_ncts_AbgangsDienststellennummer As String, _ ByVal Original_ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_ncts_KzVereinfachtesVerfahren As String, _ ByVal Original_ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_ArtCode As String, _ ByVal Original_ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_Zeichen1 As String, _ ByVal Original_ncts_Verschluss_Zeichen2 As String, _ ByVal Original_ncts_Verschluss_Zeichen3 As String, _ ByVal Original_ncts_Verschluss_Zeichen4 As String, _ ByVal Original_ncts_Verschluss_Zeichen5 As String, _ ByVal Original_ncts_Verschluss_Zeichen6 As String, _ ByVal Original_ncts_Verschluss_Zeichen7 As String, _ ByVal Original_ncts_Verschluss_Zeichen8 As String, _ ByVal Original_ncts_Verschluss_Zeichen9 As String, _ ByVal Original_ncts_Verschluss_Zeichen10 As String, _ ByVal Original_ncts_Verschluss_Zeichen11 As String, _ ByVal Original_ncts_Verschluss_Zeichen12 As String, _ ByVal Original_ncts_Verschluss_Zeichen13 As String, _ ByVal Original_ncts_Verschluss_Zeichen14 As String, _ ByVal Original_ncts_Verschluss_Zeichen15 As String, _ ByVal Original_ncts_Verschluss_Zeichen16 As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal Original_ncts_Versender_EORI As String, _ ByVal Original_ncts_Versender_NLNR As String, _ ByVal Original_ncts_Versender_TIN As String, _ ByVal Original_ncts_Versender_Name As String, _ ByVal Original_ncts_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_Versender_Ort As String, _ ByVal Original_ncts_Versender_PLZ As String, _ ByVal Original_ncts_Versender_Land As String, _ ByVal Original_ncts_Empfaenger_EORI As String, _ ByVal Original_ncts_Empfaenger_NLNR As String, _ ByVal Original_ncts_Empfaenger_TIN As String, _ ByVal Original_ncts_Empfaenger_Name As String, _ ByVal Original_ncts_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_Empfaenger_Ort As String, _ ByVal Original_ncts_Empfaenger_PLZ As String, _ ByVal Original_ncts_Empfaenger_Land As String, _ ByVal Original_ncts_Hauptverpflichteter_EORI As String, _ ByVal Original_ncts_Hauptverpflichteter_NLNR As String, _ ByVal Original_ncts_Hauptverpflichteter_TIN As String, _ ByVal Original_ncts_Hauptverpflichteter_Name As String, _ ByVal Original_ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal Original_ncts_Hauptverpflichteter_Ort As String, _ ByVal Original_ncts_Hauptverpflichteter_PLZ As String, _ ByVal Original_ncts_Hauptverpflichteter_Land As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal Original_ncts_SumA_KzSumASicherheit As String, _ ByVal Original_ncts_SumA_KennnummerSendung As String, _ ByVal Original_ncts_SumA_NummerBefoerderung As String, _ ByVal Original_ncts_SumA_BesondereUmstaende As String, _ ByVal Original_ncts_SumA_Ladeort As String, _ ByVal Original_ncts_SumA_Entladeort As String, _ ByVal Original_ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal Original_ncts_SumA_Versender_EORI As String, _ ByVal Original_ncts_SumA_Versender_NLNR As String, _ ByVal Original_ncts_SumA_Versender_TIN As String, _ ByVal Original_ncts_SumA_Versender_Name As String, _ ByVal Original_ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Versender_Land As String, _ ByVal Original_ncts_SumA_Versender_PLZ As String, _ ByVal Original_ncts_SumA_Versender_Ort As String, _ ByVal Original_ncts_SumA_Empfaenger_EORI As String, _ ByVal Original_ncts_SumA_Empfaenger_NLNR As String, _ ByVal Original_ncts_SumA_Empfaenger_TIN As String, _ ByVal Original_ncts_SumA_Empfaenger_Name As String, _ ByVal Original_ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Empfaenger_Land As String, _ ByVal Original_ncts_SumA_Empfaenger_PLZ As String, _ ByVal Original_ncts_SumA_Empfaenger_Ort As String, _ ByVal Original_ncts_SumA_Befoerderer_EORI As String, _ ByVal Original_ncts_SumA_Befoerderer_NLNR As String, _ ByVal Original_ncts_SumA_Befoerderer_TIN As String, _ ByVal Original_ncts_SumA_Befoerderer_Name As String, _ ByVal Original_ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Befoerderer_Land As String, _ ByVal Original_ncts_SumA_Befoerderer_PLZ As String, _ ByVal Original_ncts_SumA_Befoerderer_Ort As String, _ ByVal Original_ncts_Stammreferenz As String, _ ByVal Original_ncts_GUID As String, _ ByVal Original_ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Erledigung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_AVISO_einarbeitet As Boolean, _ ByVal Original_ncts_VERAG_WeiterverrechungSatz As Global.System.Nullable(Of Decimal), _ ByVal ncts_Id As Integer) As Integer If (ncts_Partnersystem Is Nothing) Then Throw New Global.System.ArgumentNullException("ncts_Partnersystem") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ncts_Partnersystem,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ncts_Status,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ncts_Status_KEWILL_Equivalent,Integer) If (ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("ncts_dyaArt") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ncts_dyaArt,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ncts_dyaAnmID,Integer) If (ncts_ANR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ncts_ANR,String) End If If (ncts_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ncts_MRN,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ncts_Erstellung,Date) If (ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ncts_LetzteBearbeitung,Date) If (ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ncts_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (ncts_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ncts_firma,String) End If If (ncts_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ncts_niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ncts_Gestellt,Boolean) If (ncts_GestelltAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ncts_GestelltAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (ncts_Trans_Partner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ncts_Trans_Partner,String) End If If (ncts_Trans_Div1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ncts_Trans_Div1,String) End If If (ncts_Trans_Div2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ncts_Trans_Div2,String) End If If (ncts_Trans_Div3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ncts_Trans_Div3,String) End If If (ncts_Trans_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ncts_Trans_Referenz,String) End If If (ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (ncts_Trans_Version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(ncts_Trans_Version.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(ncts_NachrichtenSenderTIN,String) End If If (ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(ncts_NachrichtenSenderNLNR,String) End If If (ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(ncts_NachrichtenempfaengerDST,String) End If If (ncts_ObjectName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(ncts_ObjectName,String) End If If (ncts_ObjectAlias Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(ncts_ObjectAlias,String) End If If (ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(ncts_BezugsnummerVorblendung,String) End If If (ncts_Bearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(ncts_Bearbeiter,String) End If If (ncts_VersendungsLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(ncts_VersendungsLandCode,String) End If If (ncts_BestimmungslandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(ncts_BestimmungslandCode,String) End If If (ncts_ArtAnmeldung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(ncts_ArtAnmeldung,String) End If If (ncts_BeladungsOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(ncts_BeladungsOrt,String) End If If (ncts_DurchgangszollstelleDienststellnummer1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(ncts_DurchgangszollstelleDienststellnummer1,String) End If If (ncts_DurchgangszollstelleDienststellnummer2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(ncts_DurchgangszollstelleDienststellnummer2,String) End If If (ncts_DurchgangszollstelleDienststellnummer3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(ncts_DurchgangszollstelleDienststellnummer3,String) End If If (ncts_DurchgangszollstelleDienststellnummer4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(ncts_DurchgangszollstelleDienststellnummer4,String) End If If (ncts_DurchgangszollstelleDienststellnummer5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(ncts_DurchgangszollstelleDienststellnummer5,String) End If If (ncts_DurchgangszollstelleDienststellnummer6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(ncts_DurchgangszollstelleDienststellnummer6,String) End If If (ncts_DurchgangszollstelleDienststellnummer7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(ncts_DurchgangszollstelleDienststellnummer7,String) End If If (ncts_DurchgangszollstelleDienststellnummer8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(ncts_DurchgangszollstelleDienststellnummer8,String) End If If (ncts_DurchgangszollstelleDienststellnummer9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(ncts_DurchgangszollstelleDienststellnummer9,String) End If If (ncts_BestimmungsstelleDienststellennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(ncts_BestimmungsstelleDienststellennummer,String) End If If (ncts_AbgangsDienststellennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(ncts_AbgangsDienststellennummer,String) End If If (ncts_Wiedergestellungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(ncts_Wiedergestellungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (ncts_KzVereinfachtesVerfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(ncts_KzVereinfachtesVerfahren,String) End If If (ncts_GesamtRohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(ncts_GesamtRohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (ncts_GesamtAnzahlPackstuecke.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(ncts_GesamtAnzahlPackstuecke.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (ncts_Verschluss_ArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(ncts_Verschluss_ArtCode,String) End If If (ncts_Verschluss_Anzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(ncts_Verschluss_Anzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (ncts_Verschluss_Zeichen1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(ncts_Verschluss_Zeichen1,String) End If If (ncts_Verschluss_Zeichen2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(ncts_Verschluss_Zeichen2,String) End If If (ncts_Verschluss_Zeichen3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(ncts_Verschluss_Zeichen3,String) End If If (ncts_Verschluss_Zeichen4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(ncts_Verschluss_Zeichen4,String) End If If (ncts_Verschluss_Zeichen5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(ncts_Verschluss_Zeichen5,String) End If If (ncts_Verschluss_Zeichen6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(ncts_Verschluss_Zeichen6,String) End If If (ncts_Verschluss_Zeichen7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(ncts_Verschluss_Zeichen7,String) End If If (ncts_Verschluss_Zeichen8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(ncts_Verschluss_Zeichen8,String) End If If (ncts_Verschluss_Zeichen9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(ncts_Verschluss_Zeichen9,String) End If If (ncts_Verschluss_Zeichen10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(ncts_Verschluss_Zeichen10,String) End If If (ncts_Verschluss_Zeichen11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(ncts_Verschluss_Zeichen11,String) End If If (ncts_Verschluss_Zeichen12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(ncts_Verschluss_Zeichen12,String) End If If (ncts_Verschluss_Zeichen13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(ncts_Verschluss_Zeichen13,String) End If If (ncts_Verschluss_Zeichen14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(ncts_Verschluss_Zeichen14,String) End If If (ncts_Verschluss_Zeichen15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(ncts_Verschluss_Zeichen15,String) End If If (ncts_Verschluss_Zeichen16 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(ncts_Verschluss_Zeichen16,String) End If If (ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(ncts_Befoerderungsmittel_KennzeichenAbgang,String) End If If (ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode,String) End If If (ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent,String) End If If (ncts_Befoerderungsmittel_ArtGrenzueberschreitung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(ncts_Befoerderungsmittel_ArtGrenzueberschreitung,String) End If If (ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend,String) End If If (ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode,String) End If If (ncts_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(ncts_Versender_EORI,String) End If If (ncts_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(ncts_Versender_NLNR,String) End If If (ncts_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(ncts_Versender_TIN,String) End If If (ncts_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(ncts_Versender_Name,String) End If If (ncts_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(ncts_Versender_StrasseHausnummer,String) End If If (ncts_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(ncts_Versender_Ort,String) End If If (ncts_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(ncts_Versender_PLZ,String) End If If (ncts_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(ncts_Versender_Land,String) End If If (ncts_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(ncts_Empfaenger_EORI,String) End If If (ncts_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(ncts_Empfaenger_NLNR,String) End If If (ncts_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(ncts_Empfaenger_TIN,String) End If If (ncts_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(ncts_Empfaenger_Name,String) End If If (ncts_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(ncts_Empfaenger_StrasseHausnummer,String) End If If (ncts_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(ncts_Empfaenger_Ort,String) End If If (ncts_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(ncts_Empfaenger_PLZ,String) End If If (ncts_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(ncts_Empfaenger_Land,String) End If If (ncts_Hauptverpflichteter_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(ncts_Hauptverpflichteter_EORI,String) End If If (ncts_Hauptverpflichteter_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(ncts_Hauptverpflichteter_NLNR,String) End If If (ncts_Hauptverpflichteter_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(ncts_Hauptverpflichteter_TIN,String) End If If (ncts_Hauptverpflichteter_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(ncts_Hauptverpflichteter_Name,String) End If If (ncts_Hauptverpflichteter_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(ncts_Hauptverpflichteter_StrasseHausnummer,String) End If If (ncts_Hauptverpflichteter_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(ncts_Hauptverpflichteter_Ort,String) End If If (ncts_Hauptverpflichteter_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(ncts_Hauptverpflichteter_PLZ,String) End If If (ncts_Hauptverpflichteter_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(ncts_Hauptverpflichteter_Land,String) End If If (ncts_ZugelassenerEmpfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(ncts_ZugelassenerEmpfaenger_EORI,String) End If If (ncts_ZugelassenerEmpfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(ncts_ZugelassenerEmpfaenger_TIN,String) End If If (ncts_ZugelassenerEmpfaenger_IDCarnet Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(ncts_ZugelassenerEmpfaenger_IDCarnet,String) End If If (ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender,String) End If If (ncts_SumA_KzSumASicherheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(ncts_SumA_KzSumASicherheit,String) End If If (ncts_SumA_KennnummerSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(ncts_SumA_KennnummerSendung,String) End If If (ncts_SumA_NummerBefoerderung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(ncts_SumA_NummerBefoerderung,String) End If If (ncts_SumA_BesondereUmstaende Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(ncts_SumA_BesondereUmstaende,String) End If If (ncts_SumA_Ladeort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(ncts_SumA_Ladeort,String) End If If (ncts_SumA_Entladeort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(ncts_SumA_Entladeort,String) End If If (ncts_SumA_BefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(ncts_SumA_BefoerderungskostenZahlungsweise,String) End If If (ncts_SumA_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(ncts_SumA_BefoerderungsrouteLand1,String) End If If (ncts_SumA_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(ncts_SumA_BefoerderungsrouteLand2,String) End If If (ncts_SumA_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(ncts_SumA_BefoerderungsrouteLand3,String) End If If (ncts_SumA_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(ncts_SumA_BefoerderungsrouteLand4,String) End If If (ncts_SumA_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(ncts_SumA_BefoerderungsrouteLand5,String) End If If (ncts_SumA_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(ncts_SumA_BefoerderungsrouteLand6,String) End If If (ncts_SumA_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(ncts_SumA_BefoerderungsrouteLand7,String) End If If (ncts_SumA_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(ncts_SumA_BefoerderungsrouteLand8,String) End If If (ncts_SumA_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(ncts_SumA_BefoerderungsrouteLand9,String) End If If (ncts_SumA_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(ncts_SumA_BefoerderungsrouteLand10,String) End If If (ncts_SumA_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(ncts_SumA_BefoerderungsrouteLand11,String) End If If (ncts_SumA_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(ncts_SumA_BefoerderungsrouteLand12,String) End If If (ncts_SumA_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(ncts_SumA_Versender_EORI,String) End If If (ncts_SumA_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(ncts_SumA_Versender_NLNR,String) End If If (ncts_SumA_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(ncts_SumA_Versender_TIN,String) End If If (ncts_SumA_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(ncts_SumA_Versender_Name,String) End If If (ncts_SumA_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(ncts_SumA_Versender_StrasseHausnummer,String) End If If (ncts_SumA_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(ncts_SumA_Versender_Land,String) End If If (ncts_SumA_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(ncts_SumA_Versender_PLZ,String) End If If (ncts_SumA_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(ncts_SumA_Versender_Ort,String) End If If (ncts_SumA_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(ncts_SumA_Empfaenger_EORI,String) End If If (ncts_SumA_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(128).Value = CType(ncts_SumA_Empfaenger_NLNR,String) End If If (ncts_SumA_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(ncts_SumA_Empfaenger_TIN,String) End If If (ncts_SumA_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(ncts_SumA_Empfaenger_Name,String) End If If (ncts_SumA_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(ncts_SumA_Empfaenger_StrasseHausnummer,String) End If If (ncts_SumA_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(ncts_SumA_Empfaenger_Land,String) End If If (ncts_SumA_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(ncts_SumA_Empfaenger_PLZ,String) End If If (ncts_SumA_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(ncts_SumA_Empfaenger_Ort,String) End If If (ncts_SumA_Befoerderer_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(ncts_SumA_Befoerderer_EORI,String) End If If (ncts_SumA_Befoerderer_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(ncts_SumA_Befoerderer_NLNR,String) End If If (ncts_SumA_Befoerderer_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(ncts_SumA_Befoerderer_TIN,String) End If If (ncts_SumA_Befoerderer_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(138).Value = CType(ncts_SumA_Befoerderer_Name,String) End If If (ncts_SumA_Befoerderer_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(ncts_SumA_Befoerderer_StrasseHausnummer,String) End If If (ncts_SumA_Befoerderer_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(140).Value = CType(ncts_SumA_Befoerderer_Land,String) End If If (ncts_SumA_Befoerderer_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(ncts_SumA_Befoerderer_PLZ,String) End If If (ncts_SumA_Befoerderer_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(142).Value = CType(ncts_SumA_Befoerderer_Ort,String) End If If (ncts_Stammreferenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(ncts_Stammreferenz,String) End If If (ncts_GUID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(144).Value = CType(ncts_GUID,String) End If If (ncts_Eroeffnung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(145).Value = CType(ncts_Eroeffnung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(145).Value = Global.System.DBNull.Value End If If (ncts_Ankunft.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(146).Value = CType(ncts_Ankunft.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value End If If (ncts_Erledigung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(147).Value = CType(ncts_Erledigung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(147).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(148).Value = CType(ncts_AVISO_einarbeitet,Boolean) If (ncts_VERAG_WeiterverrechungSatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(149).Value = CType(ncts_VERAG_WeiterverrechungSatz.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(149).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(150).Value = CType(Original_ncts_Id,Integer) If (Original_ncts_Partnersystem Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ncts_Partnersystem") Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(Original_ncts_Partnersystem,String) End If Me.Adapter.UpdateCommand.Parameters(152).Value = CType(Original_ncts_Status,Integer) Me.Adapter.UpdateCommand.Parameters(153).Value = CType(Original_ncts_Status_KEWILL_Equivalent,Integer) If (Original_ncts_dyaArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ncts_dyaArt") Else Me.Adapter.UpdateCommand.Parameters(154).Value = CType(Original_ncts_dyaArt,String) End If Me.Adapter.UpdateCommand.Parameters(155).Value = CType(Original_ncts_dyaAnmID,Integer) If (Original_ncts_ANR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(156).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(156).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(157).Value = CType(Original_ncts_ANR,String) End If If (Original_ncts_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(158).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(158).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(159).Value = CType(Original_ncts_MRN,String) End If Me.Adapter.UpdateCommand.Parameters(160).Value = CType(Original_ncts_Erstellung,Date) If (Original_ncts_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = CType(Original_ncts_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(163).Value = CType(Original_ncts_LetzteBearbeitung,Date) If (Original_ncts_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(164).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(165).Value = CType(Original_ncts_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(164).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(165).Value = Global.System.DBNull.Value End If If (Original_ncts_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(166).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(166).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(167).Value = CType(Original_ncts_firma,String) End If If (Original_ncts_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(168).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(168).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(169).Value = CType(Original_ncts_niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(170).Value = CType(Original_ncts_Gestellt,Boolean) If (Original_ncts_GestelltAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = CType(Original_ncts_GestelltAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Partner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_ncts_Trans_Partner,String) End If If (Original_ncts_Trans_Div1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_ncts_Trans_Div1,String) End If If (Original_ncts_Trans_Div2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = CType(Original_ncts_Trans_Div2,String) End If If (Original_ncts_Trans_Div3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = CType(Original_ncts_Trans_Div3,String) End If If (Original_ncts_Trans_Referenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = CType(Original_ncts_Trans_Referenz,String) End If If (Original_ncts_Trans_DatumZeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = CType(Original_ncts_Trans_DatumZeit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value End If If (Original_ncts_Trans_Version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_ncts_Trans_Version.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value End If If (Original_ncts_NachrichtenSenderTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_ncts_NachrichtenSenderTIN,String) End If If (Original_ncts_NachrichtenSenderNLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_ncts_NachrichtenSenderNLNR,String) End If If (Original_ncts_NachrichtenempfaengerDST Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_ncts_NachrichtenempfaengerDST,String) End If If (Original_ncts_ObjectName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_ncts_ObjectName,String) End If If (Original_ncts_ObjectAlias Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_ncts_ObjectAlias,String) End If If (Original_ncts_BezugsnummerVorblendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_ncts_BezugsnummerVorblendung,String) End If If (Original_ncts_Bearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_ncts_Bearbeiter,String) End If If (Original_ncts_VersendungsLandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = CType(Original_ncts_VersendungsLandCode,String) End If If (Original_ncts_BestimmungslandCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = CType(Original_ncts_BestimmungslandCode,String) End If If (Original_ncts_ArtAnmeldung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = CType(Original_ncts_ArtAnmeldung,String) End If If (Original_ncts_BeladungsOrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = CType(Original_ncts_BeladungsOrt,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer1,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer2,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer3,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer4,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer5,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer6,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer7,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer8,String) End If If (Original_ncts_DurchgangszollstelleDienststellnummer9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(225).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(225).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(226).Value = CType(Original_ncts_DurchgangszollstelleDienststellnummer9,String) End If If (Original_ncts_BestimmungsstelleDienststellennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(227).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(227).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(228).Value = CType(Original_ncts_BestimmungsstelleDienststellennummer,String) End If If (Original_ncts_AbgangsDienststellennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(229).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(229).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(230).Value = CType(Original_ncts_AbgangsDienststellennummer,String) End If If (Original_ncts_Wiedergestellungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(231).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = CType(Original_ncts_Wiedergestellungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(231).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(232).Value = Global.System.DBNull.Value End If If (Original_ncts_KzVereinfachtesVerfahren Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = CType(Original_ncts_KzVereinfachtesVerfahren,String) End If If (Original_ncts_GesamtRohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = CType(Original_ncts_GesamtRohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = Global.System.DBNull.Value End If If (Original_ncts_GesamtAnzahlPackstuecke.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = CType(Original_ncts_GesamtAnzahlPackstuecke.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = Global.System.DBNull.Value End If If (Original_ncts_Verschluss_ArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = CType(Original_ncts_Verschluss_ArtCode,String) End If If (Original_ncts_Verschluss_Anzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(241).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = CType(Original_ncts_Verschluss_Anzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(241).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(242).Value = Global.System.DBNull.Value End If If (Original_ncts_Verschluss_Zeichen1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = CType(Original_ncts_Verschluss_Zeichen1,String) End If If (Original_ncts_Verschluss_Zeichen2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = CType(Original_ncts_Verschluss_Zeichen2,String) End If If (Original_ncts_Verschluss_Zeichen3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = CType(Original_ncts_Verschluss_Zeichen3,String) End If If (Original_ncts_Verschluss_Zeichen4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = CType(Original_ncts_Verschluss_Zeichen4,String) End If If (Original_ncts_Verschluss_Zeichen5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = CType(Original_ncts_Verschluss_Zeichen5,String) End If If (Original_ncts_Verschluss_Zeichen6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = CType(Original_ncts_Verschluss_Zeichen6,String) End If If (Original_ncts_Verschluss_Zeichen7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = CType(Original_ncts_Verschluss_Zeichen7,String) End If If (Original_ncts_Verschluss_Zeichen8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = CType(Original_ncts_Verschluss_Zeichen8,String) End If If (Original_ncts_Verschluss_Zeichen9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = CType(Original_ncts_Verschluss_Zeichen9,String) End If If (Original_ncts_Verschluss_Zeichen10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(261).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(261).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = CType(Original_ncts_Verschluss_Zeichen10,String) End If If (Original_ncts_Verschluss_Zeichen11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(263).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(263).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = CType(Original_ncts_Verschluss_Zeichen11,String) End If If (Original_ncts_Verschluss_Zeichen12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(265).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(265).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = CType(Original_ncts_Verschluss_Zeichen12,String) End If If (Original_ncts_Verschluss_Zeichen13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(267).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(267).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = CType(Original_ncts_Verschluss_Zeichen13,String) End If If (Original_ncts_Verschluss_Zeichen14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(269).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(269).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = CType(Original_ncts_Verschluss_Zeichen14,String) End If If (Original_ncts_Verschluss_Zeichen15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(271).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(271).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = CType(Original_ncts_Verschluss_Zeichen15,String) End If If (Original_ncts_Verschluss_Zeichen16 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(273).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(273).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = CType(Original_ncts_Verschluss_Zeichen16,String) End If If (Original_ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(275).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(275).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = CType(Original_ncts_Befoerderungsmittel_KennzeichenAbgang,String) End If If (Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(277).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(277).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = CType(Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode,String) End If If (Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(279).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(279).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = CType(Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent,String) End If If (Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(281).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(281).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = CType(Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung,String) End If If (Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(283).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(283).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = CType(Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend,String) End If If (Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(285).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(285).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = CType(Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode,String) End If If (Original_ncts_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(287).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(287).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = CType(Original_ncts_Versender_EORI,String) End If If (Original_ncts_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(289).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(289).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = CType(Original_ncts_Versender_NLNR,String) End If If (Original_ncts_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(291).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(291).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = CType(Original_ncts_Versender_TIN,String) End If If (Original_ncts_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(293).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(293).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = CType(Original_ncts_Versender_Name,String) End If If (Original_ncts_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(295).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(295).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = CType(Original_ncts_Versender_StrasseHausnummer,String) End If If (Original_ncts_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(297).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(297).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = CType(Original_ncts_Versender_Ort,String) End If If (Original_ncts_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(299).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(299).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = CType(Original_ncts_Versender_PLZ,String) End If If (Original_ncts_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(301).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(301).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = CType(Original_ncts_Versender_Land,String) End If If (Original_ncts_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(303).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(303).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = CType(Original_ncts_Empfaenger_EORI,String) End If If (Original_ncts_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(305).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(305).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = CType(Original_ncts_Empfaenger_NLNR,String) End If If (Original_ncts_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(307).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(307).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = CType(Original_ncts_Empfaenger_TIN,String) End If If (Original_ncts_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(309).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(309).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = CType(Original_ncts_Empfaenger_Name,String) End If If (Original_ncts_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(311).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(311).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = CType(Original_ncts_Empfaenger_StrasseHausnummer,String) End If If (Original_ncts_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(313).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(313).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = CType(Original_ncts_Empfaenger_Ort,String) End If If (Original_ncts_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(315).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(315).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = CType(Original_ncts_Empfaenger_PLZ,String) End If If (Original_ncts_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(317).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(317).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = CType(Original_ncts_Empfaenger_Land,String) End If If (Original_ncts_Hauptverpflichteter_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(319).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(319).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = CType(Original_ncts_Hauptverpflichteter_EORI,String) End If If (Original_ncts_Hauptverpflichteter_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(321).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(321).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = CType(Original_ncts_Hauptverpflichteter_NLNR,String) End If If (Original_ncts_Hauptverpflichteter_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(323).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(323).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = CType(Original_ncts_Hauptverpflichteter_TIN,String) End If If (Original_ncts_Hauptverpflichteter_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(325).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(325).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = CType(Original_ncts_Hauptverpflichteter_Name,String) End If If (Original_ncts_Hauptverpflichteter_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(327).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(327).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = CType(Original_ncts_Hauptverpflichteter_StrasseHausnummer,String) End If If (Original_ncts_Hauptverpflichteter_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(329).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(329).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = CType(Original_ncts_Hauptverpflichteter_Ort,String) End If If (Original_ncts_Hauptverpflichteter_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(331).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(331).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = CType(Original_ncts_Hauptverpflichteter_PLZ,String) End If If (Original_ncts_Hauptverpflichteter_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(333).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(333).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = CType(Original_ncts_Hauptverpflichteter_Land,String) End If If (Original_ncts_ZugelassenerEmpfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(335).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(335).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = CType(Original_ncts_ZugelassenerEmpfaenger_EORI,String) End If If (Original_ncts_ZugelassenerEmpfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(337).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(337).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = CType(Original_ncts_ZugelassenerEmpfaenger_TIN,String) End If If (Original_ncts_ZugelassenerEmpfaenger_IDCarnet Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(339).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(339).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = CType(Original_ncts_ZugelassenerEmpfaenger_IDCarnet,String) End If If (Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(341).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(341).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = CType(Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender,String) End If If (Original_ncts_SumA_KzSumASicherheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(343).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(343).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = CType(Original_ncts_SumA_KzSumASicherheit,String) End If If (Original_ncts_SumA_KennnummerSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(345).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(345).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = CType(Original_ncts_SumA_KennnummerSendung,String) End If If (Original_ncts_SumA_NummerBefoerderung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(347).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(347).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = CType(Original_ncts_SumA_NummerBefoerderung,String) End If If (Original_ncts_SumA_BesondereUmstaende Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(349).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(349).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = CType(Original_ncts_SumA_BesondereUmstaende,String) End If If (Original_ncts_SumA_Ladeort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(351).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(352).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(351).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(352).Value = CType(Original_ncts_SumA_Ladeort,String) End If If (Original_ncts_SumA_Entladeort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(353).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(354).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(353).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(354).Value = CType(Original_ncts_SumA_Entladeort,String) End If If (Original_ncts_SumA_BefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(355).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(356).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(355).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(356).Value = CType(Original_ncts_SumA_BefoerderungskostenZahlungsweise,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(357).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(358).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(357).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(358).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand1,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(359).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(360).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(359).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(360).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand2,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(361).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(362).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(361).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(362).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand3,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(363).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(364).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(363).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(364).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand4,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(365).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(366).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(365).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(366).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand5,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(367).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(368).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(367).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(368).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand6,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(369).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(370).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(369).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(370).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand7,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(371).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(372).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(371).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(372).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand8,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(373).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(374).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(373).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(374).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand9,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(375).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(376).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(375).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(376).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand10,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(377).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(378).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(377).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(378).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand11,String) End If If (Original_ncts_SumA_BefoerderungsrouteLand12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(379).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(380).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(379).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(380).Value = CType(Original_ncts_SumA_BefoerderungsrouteLand12,String) End If If (Original_ncts_SumA_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(381).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(382).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(381).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(382).Value = CType(Original_ncts_SumA_Versender_EORI,String) End If If (Original_ncts_SumA_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(383).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(384).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(383).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(384).Value = CType(Original_ncts_SumA_Versender_NLNR,String) End If If (Original_ncts_SumA_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(385).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(386).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(385).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(386).Value = CType(Original_ncts_SumA_Versender_TIN,String) End If If (Original_ncts_SumA_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(387).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(388).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(387).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(388).Value = CType(Original_ncts_SumA_Versender_Name,String) End If If (Original_ncts_SumA_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(389).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(390).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(389).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(390).Value = CType(Original_ncts_SumA_Versender_StrasseHausnummer,String) End If If (Original_ncts_SumA_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(391).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(392).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(391).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(392).Value = CType(Original_ncts_SumA_Versender_Land,String) End If If (Original_ncts_SumA_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(393).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(394).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(393).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(394).Value = CType(Original_ncts_SumA_Versender_PLZ,String) End If If (Original_ncts_SumA_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(395).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(396).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(395).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(396).Value = CType(Original_ncts_SumA_Versender_Ort,String) End If If (Original_ncts_SumA_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(397).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(398).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(397).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(398).Value = CType(Original_ncts_SumA_Empfaenger_EORI,String) End If If (Original_ncts_SumA_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(399).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(400).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(399).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(400).Value = CType(Original_ncts_SumA_Empfaenger_NLNR,String) End If If (Original_ncts_SumA_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(401).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(402).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(401).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(402).Value = CType(Original_ncts_SumA_Empfaenger_TIN,String) End If If (Original_ncts_SumA_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(403).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(404).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(403).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(404).Value = CType(Original_ncts_SumA_Empfaenger_Name,String) End If If (Original_ncts_SumA_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(405).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(406).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(405).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(406).Value = CType(Original_ncts_SumA_Empfaenger_StrasseHausnummer,String) End If If (Original_ncts_SumA_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(407).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(408).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(407).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(408).Value = CType(Original_ncts_SumA_Empfaenger_Land,String) End If If (Original_ncts_SumA_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(409).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(410).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(409).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(410).Value = CType(Original_ncts_SumA_Empfaenger_PLZ,String) End If If (Original_ncts_SumA_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(411).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(412).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(411).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(412).Value = CType(Original_ncts_SumA_Empfaenger_Ort,String) End If If (Original_ncts_SumA_Befoerderer_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(413).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(414).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(413).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(414).Value = CType(Original_ncts_SumA_Befoerderer_EORI,String) End If If (Original_ncts_SumA_Befoerderer_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(415).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(416).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(415).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(416).Value = CType(Original_ncts_SumA_Befoerderer_NLNR,String) End If If (Original_ncts_SumA_Befoerderer_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(417).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(418).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(417).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(418).Value = CType(Original_ncts_SumA_Befoerderer_TIN,String) End If If (Original_ncts_SumA_Befoerderer_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(419).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(420).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(419).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(420).Value = CType(Original_ncts_SumA_Befoerderer_Name,String) End If If (Original_ncts_SumA_Befoerderer_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(421).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(422).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(421).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(422).Value = CType(Original_ncts_SumA_Befoerderer_StrasseHausnummer,String) End If If (Original_ncts_SumA_Befoerderer_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(423).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(424).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(423).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(424).Value = CType(Original_ncts_SumA_Befoerderer_Land,String) End If If (Original_ncts_SumA_Befoerderer_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(425).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(426).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(425).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(426).Value = CType(Original_ncts_SumA_Befoerderer_PLZ,String) End If If (Original_ncts_SumA_Befoerderer_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(427).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(428).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(427).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(428).Value = CType(Original_ncts_SumA_Befoerderer_Ort,String) End If If (Original_ncts_Stammreferenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(429).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(430).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(429).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(430).Value = CType(Original_ncts_Stammreferenz,String) End If If (Original_ncts_GUID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(431).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(432).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(431).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(432).Value = CType(Original_ncts_GUID,String) End If If (Original_ncts_Eroeffnung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(433).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(434).Value = CType(Original_ncts_Eroeffnung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(433).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(434).Value = Global.System.DBNull.Value End If If (Original_ncts_Ankunft.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(435).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(436).Value = CType(Original_ncts_Ankunft.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(435).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(436).Value = Global.System.DBNull.Value End If If (Original_ncts_Erledigung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(437).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(438).Value = CType(Original_ncts_Erledigung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(437).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(438).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(439).Value = CType(Original_ncts_AVISO_einarbeitet,Boolean) If (Original_ncts_VERAG_WeiterverrechungSatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(440).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(441).Value = CType(Original_ncts_VERAG_WeiterverrechungSatz.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(440).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(441).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(442).Value = CType(ncts_Id,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 ncts_Partnersystem As String, _ ByVal ncts_Status As Integer, _ ByVal ncts_Status_KEWILL_Equivalent As Integer, _ ByVal ncts_dyaArt As String, _ ByVal ncts_dyaAnmID As Integer, _ ByVal ncts_ANR As String, _ ByVal ncts_MRN As String, _ ByVal ncts_Erstellung As Date, _ ByVal ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_LetzteBearbeitung As Date, _ ByVal ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal ncts_firma As String, _ ByVal ncts_niederlassung As String, _ ByVal ncts_Gestellt As Boolean, _ ByVal ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Partner As String, _ ByVal ncts_Trans_Div1 As String, _ ByVal ncts_Trans_Div2 As String, _ ByVal ncts_Trans_Div3 As String, _ ByVal ncts_Trans_Referenz As String, _ ByVal ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal ncts_NachrichtenSenderTIN As String, _ ByVal ncts_NachrichtenSenderNLNR As String, _ ByVal ncts_NachrichtenempfaengerDST As String, _ ByVal ncts_ObjectName As String, _ ByVal ncts_ObjectAlias As String, _ ByVal ncts_BezugsnummerVorblendung As String, _ ByVal ncts_Bearbeiter As String, _ ByVal ncts_VersendungsLandCode As String, _ ByVal ncts_BestimmungslandCode As String, _ ByVal ncts_ArtAnmeldung As String, _ ByVal ncts_BeladungsOrt As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal ncts_BestimmungsstelleDienststellennummer As String, _ ByVal ncts_AbgangsDienststellennummer As String, _ ByVal ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal ncts_KzVereinfachtesVerfahren As String, _ ByVal ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_ArtCode As String, _ ByVal ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal ncts_Verschluss_Zeichen1 As String, _ ByVal ncts_Verschluss_Zeichen2 As String, _ ByVal ncts_Verschluss_Zeichen3 As String, _ ByVal ncts_Verschluss_Zeichen4 As String, _ ByVal ncts_Verschluss_Zeichen5 As String, _ ByVal ncts_Verschluss_Zeichen6 As String, _ ByVal ncts_Verschluss_Zeichen7 As String, _ ByVal ncts_Verschluss_Zeichen8 As String, _ ByVal ncts_Verschluss_Zeichen9 As String, _ ByVal ncts_Verschluss_Zeichen10 As String, _ ByVal ncts_Verschluss_Zeichen11 As String, _ ByVal ncts_Verschluss_Zeichen12 As String, _ ByVal ncts_Verschluss_Zeichen13 As String, _ ByVal ncts_Verschluss_Zeichen14 As String, _ ByVal ncts_Verschluss_Zeichen15 As String, _ ByVal ncts_Verschluss_Zeichen16 As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal ncts_Versender_EORI As String, _ ByVal ncts_Versender_NLNR As String, _ ByVal ncts_Versender_TIN As String, _ ByVal ncts_Versender_Name As String, _ ByVal ncts_Versender_StrasseHausnummer As String, _ ByVal ncts_Versender_Ort As String, _ ByVal ncts_Versender_PLZ As String, _ ByVal ncts_Versender_Land As String, _ ByVal ncts_Empfaenger_EORI As String, _ ByVal ncts_Empfaenger_NLNR As String, _ ByVal ncts_Empfaenger_TIN As String, _ ByVal ncts_Empfaenger_Name As String, _ ByVal ncts_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_Empfaenger_Ort As String, _ ByVal ncts_Empfaenger_PLZ As String, _ ByVal ncts_Empfaenger_Land As String, _ ByVal ncts_Hauptverpflichteter_EORI As String, _ ByVal ncts_Hauptverpflichteter_NLNR As String, _ ByVal ncts_Hauptverpflichteter_TIN As String, _ ByVal ncts_Hauptverpflichteter_Name As String, _ ByVal ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal ncts_Hauptverpflichteter_Ort As String, _ ByVal ncts_Hauptverpflichteter_PLZ As String, _ ByVal ncts_Hauptverpflichteter_Land As String, _ ByVal ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal ncts_SumA_KzSumASicherheit As String, _ ByVal ncts_SumA_KennnummerSendung As String, _ ByVal ncts_SumA_NummerBefoerderung As String, _ ByVal ncts_SumA_BesondereUmstaende As String, _ ByVal ncts_SumA_Ladeort As String, _ ByVal ncts_SumA_Entladeort As String, _ ByVal ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal ncts_SumA_Versender_EORI As String, _ ByVal ncts_SumA_Versender_NLNR As String, _ ByVal ncts_SumA_Versender_TIN As String, _ ByVal ncts_SumA_Versender_Name As String, _ ByVal ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal ncts_SumA_Versender_Land As String, _ ByVal ncts_SumA_Versender_PLZ As String, _ ByVal ncts_SumA_Versender_Ort As String, _ ByVal ncts_SumA_Empfaenger_EORI As String, _ ByVal ncts_SumA_Empfaenger_NLNR As String, _ ByVal ncts_SumA_Empfaenger_TIN As String, _ ByVal ncts_SumA_Empfaenger_Name As String, _ ByVal ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal ncts_SumA_Empfaenger_Land As String, _ ByVal ncts_SumA_Empfaenger_PLZ As String, _ ByVal ncts_SumA_Empfaenger_Ort As String, _ ByVal ncts_SumA_Befoerderer_EORI As String, _ ByVal ncts_SumA_Befoerderer_NLNR As String, _ ByVal ncts_SumA_Befoerderer_TIN As String, _ ByVal ncts_SumA_Befoerderer_Name As String, _ ByVal ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal ncts_SumA_Befoerderer_Land As String, _ ByVal ncts_SumA_Befoerderer_PLZ As String, _ ByVal ncts_SumA_Befoerderer_Ort As String, _ ByVal ncts_Stammreferenz As String, _ ByVal ncts_GUID As String, _ ByVal ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal ncts_Erledigung As Global.System.Nullable(Of Date), _ ByVal ncts_AVISO_einarbeitet As Boolean, _ ByVal ncts_VERAG_WeiterverrechungSatz As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Id As Integer, _ ByVal Original_ncts_Partnersystem As String, _ ByVal Original_ncts_Status As Integer, _ ByVal Original_ncts_Status_KEWILL_Equivalent As Integer, _ ByVal Original_ncts_dyaArt As String, _ ByVal Original_ncts_dyaAnmID As Integer, _ ByVal Original_ncts_ANR As String, _ ByVal Original_ncts_MRN As String, _ ByVal Original_ncts_Erstellung As Date, _ ByVal Original_ncts_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_LetzteBearbeitung As Date, _ ByVal Original_ncts_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_ncts_firma As String, _ ByVal Original_ncts_niederlassung As String, _ ByVal Original_ncts_Gestellt As Boolean, _ ByVal Original_ncts_GestelltAm As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Partner As String, _ ByVal Original_ncts_Trans_Div1 As String, _ ByVal Original_ncts_Trans_Div2 As String, _ ByVal Original_ncts_Trans_Div3 As String, _ ByVal Original_ncts_Trans_Referenz As String, _ ByVal Original_ncts_Trans_DatumZeit As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Trans_Version As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_NachrichtenSenderTIN As String, _ ByVal Original_ncts_NachrichtenSenderNLNR As String, _ ByVal Original_ncts_NachrichtenempfaengerDST As String, _ ByVal Original_ncts_ObjectName As String, _ ByVal Original_ncts_ObjectAlias As String, _ ByVal Original_ncts_BezugsnummerVorblendung As String, _ ByVal Original_ncts_Bearbeiter As String, _ ByVal Original_ncts_VersendungsLandCode As String, _ ByVal Original_ncts_BestimmungslandCode As String, _ ByVal Original_ncts_ArtAnmeldung As String, _ ByVal Original_ncts_BeladungsOrt As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer1 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer2 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer3 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer4 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer5 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer6 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer7 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer8 As String, _ ByVal Original_ncts_DurchgangszollstelleDienststellnummer9 As String, _ ByVal Original_ncts_BestimmungsstelleDienststellennummer As String, _ ByVal Original_ncts_AbgangsDienststellennummer As String, _ ByVal Original_ncts_Wiedergestellungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_ncts_KzVereinfachtesVerfahren As String, _ ByVal Original_ncts_GesamtRohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_GesamtAnzahlPackstuecke As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_ArtCode As String, _ ByVal Original_ncts_Verschluss_Anzahl As Global.System.Nullable(Of Decimal), _ ByVal Original_ncts_Verschluss_Zeichen1 As String, _ ByVal Original_ncts_Verschluss_Zeichen2 As String, _ ByVal Original_ncts_Verschluss_Zeichen3 As String, _ ByVal Original_ncts_Verschluss_Zeichen4 As String, _ ByVal Original_ncts_Verschluss_Zeichen5 As String, _ ByVal Original_ncts_Verschluss_Zeichen6 As String, _ ByVal Original_ncts_Verschluss_Zeichen7 As String, _ ByVal Original_ncts_Verschluss_Zeichen8 As String, _ ByVal Original_ncts_Verschluss_Zeichen9 As String, _ ByVal Original_ncts_Verschluss_Zeichen10 As String, _ ByVal Original_ncts_Verschluss_Zeichen11 As String, _ ByVal Original_ncts_Verschluss_Zeichen12 As String, _ ByVal Original_ncts_Verschluss_Zeichen13 As String, _ ByVal Original_ncts_Verschluss_Zeichen14 As String, _ ByVal Original_ncts_Verschluss_Zeichen15 As String, _ ByVal Original_ncts_Verschluss_Zeichen16 As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenAbgang As String, _ ByVal Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As String, _ ByVal Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As String, _ ByVal Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung As String, _ ByVal Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As String, _ ByVal Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As String, _ ByVal Original_ncts_Versender_EORI As String, _ ByVal Original_ncts_Versender_NLNR As String, _ ByVal Original_ncts_Versender_TIN As String, _ ByVal Original_ncts_Versender_Name As String, _ ByVal Original_ncts_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_Versender_Ort As String, _ ByVal Original_ncts_Versender_PLZ As String, _ ByVal Original_ncts_Versender_Land As String, _ ByVal Original_ncts_Empfaenger_EORI As String, _ ByVal Original_ncts_Empfaenger_NLNR As String, _ ByVal Original_ncts_Empfaenger_TIN As String, _ ByVal Original_ncts_Empfaenger_Name As String, _ ByVal Original_ncts_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_Empfaenger_Ort As String, _ ByVal Original_ncts_Empfaenger_PLZ As String, _ ByVal Original_ncts_Empfaenger_Land As String, _ ByVal Original_ncts_Hauptverpflichteter_EORI As String, _ ByVal Original_ncts_Hauptverpflichteter_NLNR As String, _ ByVal Original_ncts_Hauptverpflichteter_TIN As String, _ ByVal Original_ncts_Hauptverpflichteter_Name As String, _ ByVal Original_ncts_Hauptverpflichteter_StrasseHausnummer As String, _ ByVal Original_ncts_Hauptverpflichteter_Ort As String, _ ByVal Original_ncts_Hauptverpflichteter_PLZ As String, _ ByVal Original_ncts_Hauptverpflichteter_Land As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_EORI As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_TIN As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_IDCarnet As String, _ ByVal Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As String, _ ByVal Original_ncts_SumA_KzSumASicherheit As String, _ ByVal Original_ncts_SumA_KennnummerSendung As String, _ ByVal Original_ncts_SumA_NummerBefoerderung As String, _ ByVal Original_ncts_SumA_BesondereUmstaende As String, _ ByVal Original_ncts_SumA_Ladeort As String, _ ByVal Original_ncts_SumA_Entladeort As String, _ ByVal Original_ncts_SumA_BefoerderungskostenZahlungsweise As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand1 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand2 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand3 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand4 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand5 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand6 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand7 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand8 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand9 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand10 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand11 As String, _ ByVal Original_ncts_SumA_BefoerderungsrouteLand12 As String, _ ByVal Original_ncts_SumA_Versender_EORI As String, _ ByVal Original_ncts_SumA_Versender_NLNR As String, _ ByVal Original_ncts_SumA_Versender_TIN As String, _ ByVal Original_ncts_SumA_Versender_Name As String, _ ByVal Original_ncts_SumA_Versender_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Versender_Land As String, _ ByVal Original_ncts_SumA_Versender_PLZ As String, _ ByVal Original_ncts_SumA_Versender_Ort As String, _ ByVal Original_ncts_SumA_Empfaenger_EORI As String, _ ByVal Original_ncts_SumA_Empfaenger_NLNR As String, _ ByVal Original_ncts_SumA_Empfaenger_TIN As String, _ ByVal Original_ncts_SumA_Empfaenger_Name As String, _ ByVal Original_ncts_SumA_Empfaenger_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Empfaenger_Land As String, _ ByVal Original_ncts_SumA_Empfaenger_PLZ As String, _ ByVal Original_ncts_SumA_Empfaenger_Ort As String, _ ByVal Original_ncts_SumA_Befoerderer_EORI As String, _ ByVal Original_ncts_SumA_Befoerderer_NLNR As String, _ ByVal Original_ncts_SumA_Befoerderer_TIN As String, _ ByVal Original_ncts_SumA_Befoerderer_Name As String, _ ByVal Original_ncts_SumA_Befoerderer_StrasseHausnummer As String, _ ByVal Original_ncts_SumA_Befoerderer_Land As String, _ ByVal Original_ncts_SumA_Befoerderer_PLZ As String, _ ByVal Original_ncts_SumA_Befoerderer_Ort As String, _ ByVal Original_ncts_Stammreferenz As String, _ ByVal Original_ncts_GUID As String, _ ByVal Original_ncts_Eroeffnung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Ankunft As Global.System.Nullable(Of Date), _ ByVal Original_ncts_Erledigung As Global.System.Nullable(Of Date), _ ByVal Original_ncts_AVISO_einarbeitet As Boolean, _ ByVal Original_ncts_VERAG_WeiterverrechungSatz As Global.System.Nullable(Of Decimal)) As Integer Return Me.Update(ncts_Partnersystem, ncts_Status, ncts_Status_KEWILL_Equivalent, ncts_dyaArt, ncts_dyaAnmID, ncts_ANR, ncts_MRN, ncts_Erstellung, ncts_Erstellung_SB, ncts_LetzteBearbeitung, ncts_LetzteBearbeitung_SB, ncts_firma, ncts_niederlassung, ncts_Gestellt, ncts_GestelltAm, ncts_Trans_Partner, ncts_Trans_Div1, ncts_Trans_Div2, ncts_Trans_Div3, ncts_Trans_Referenz, ncts_Trans_DatumZeit, ncts_Trans_Version, ncts_NachrichtenSenderTIN, ncts_NachrichtenSenderNLNR, ncts_NachrichtenempfaengerDST, ncts_ObjectName, ncts_ObjectAlias, ncts_BezugsnummerVorblendung, ncts_Bearbeiter, ncts_VersendungsLandCode, ncts_BestimmungslandCode, ncts_ArtAnmeldung, ncts_BeladungsOrt, ncts_DurchgangszollstelleDienststellnummer1, ncts_DurchgangszollstelleDienststellnummer2, ncts_DurchgangszollstelleDienststellnummer3, ncts_DurchgangszollstelleDienststellnummer4, ncts_DurchgangszollstelleDienststellnummer5, ncts_DurchgangszollstelleDienststellnummer6, ncts_DurchgangszollstelleDienststellnummer7, ncts_DurchgangszollstelleDienststellnummer8, ncts_DurchgangszollstelleDienststellnummer9, ncts_BestimmungsstelleDienststellennummer, ncts_AbgangsDienststellennummer, ncts_Wiedergestellungsdatum, ncts_KzVereinfachtesVerfahren, ncts_GesamtRohmasse, ncts_GesamtAnzahlPackstuecke, ncts_Verschluss_ArtCode, ncts_Verschluss_Anzahl, ncts_Verschluss_Zeichen1, ncts_Verschluss_Zeichen2, ncts_Verschluss_Zeichen3, ncts_Verschluss_Zeichen4, ncts_Verschluss_Zeichen5, ncts_Verschluss_Zeichen6, ncts_Verschluss_Zeichen7, ncts_Verschluss_Zeichen8, ncts_Verschluss_Zeichen9, ncts_Verschluss_Zeichen10, ncts_Verschluss_Zeichen11, ncts_Verschluss_Zeichen12, ncts_Verschluss_Zeichen13, ncts_Verschluss_Zeichen14, ncts_Verschluss_Zeichen15, ncts_Verschluss_Zeichen16, ncts_Befoerderungsmittel_KennzeichenAbgang, ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent, ncts_Befoerderungsmittel_ArtGrenzueberschreitung, ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, ncts_Versender_EORI, ncts_Versender_NLNR, ncts_Versender_TIN, ncts_Versender_Name, ncts_Versender_StrasseHausnummer, ncts_Versender_Ort, ncts_Versender_PLZ, ncts_Versender_Land, ncts_Empfaenger_EORI, ncts_Empfaenger_NLNR, ncts_Empfaenger_TIN, ncts_Empfaenger_Name, ncts_Empfaenger_StrasseHausnummer, ncts_Empfaenger_Ort, ncts_Empfaenger_PLZ, ncts_Empfaenger_Land, ncts_Hauptverpflichteter_EORI, ncts_Hauptverpflichteter_NLNR, ncts_Hauptverpflichteter_TIN, ncts_Hauptverpflichteter_Name, ncts_Hauptverpflichteter_StrasseHausnummer, ncts_Hauptverpflichteter_Ort, ncts_Hauptverpflichteter_PLZ, ncts_Hauptverpflichteter_Land, ncts_ZugelassenerEmpfaenger_EORI, ncts_ZugelassenerEmpfaenger_TIN, ncts_ZugelassenerEmpfaenger_IDCarnet, ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender, ncts_SumA_KzSumASicherheit, ncts_SumA_KennnummerSendung, ncts_SumA_NummerBefoerderung, ncts_SumA_BesondereUmstaende, ncts_SumA_Ladeort, ncts_SumA_Entladeort, ncts_SumA_BefoerderungskostenZahlungsweise, ncts_SumA_BefoerderungsrouteLand1, ncts_SumA_BefoerderungsrouteLand2, ncts_SumA_BefoerderungsrouteLand3, ncts_SumA_BefoerderungsrouteLand4, ncts_SumA_BefoerderungsrouteLand5, ncts_SumA_BefoerderungsrouteLand6, ncts_SumA_BefoerderungsrouteLand7, ncts_SumA_BefoerderungsrouteLand8, ncts_SumA_BefoerderungsrouteLand9, ncts_SumA_BefoerderungsrouteLand10, ncts_SumA_BefoerderungsrouteLand11, ncts_SumA_BefoerderungsrouteLand12, ncts_SumA_Versender_EORI, ncts_SumA_Versender_NLNR, ncts_SumA_Versender_TIN, ncts_SumA_Versender_Name, ncts_SumA_Versender_StrasseHausnummer, ncts_SumA_Versender_Land, ncts_SumA_Versender_PLZ, ncts_SumA_Versender_Ort, ncts_SumA_Empfaenger_EORI, ncts_SumA_Empfaenger_NLNR, ncts_SumA_Empfaenger_TIN, ncts_SumA_Empfaenger_Name, ncts_SumA_Empfaenger_StrasseHausnummer, ncts_SumA_Empfaenger_Land, ncts_SumA_Empfaenger_PLZ, ncts_SumA_Empfaenger_Ort, ncts_SumA_Befoerderer_EORI, ncts_SumA_Befoerderer_NLNR, ncts_SumA_Befoerderer_TIN, ncts_SumA_Befoerderer_Name, ncts_SumA_Befoerderer_StrasseHausnummer, ncts_SumA_Befoerderer_Land, ncts_SumA_Befoerderer_PLZ, ncts_SumA_Befoerderer_Ort, ncts_Stammreferenz, ncts_GUID, ncts_Eroeffnung, ncts_Ankunft, ncts_Erledigung, ncts_AVISO_einarbeitet, ncts_VERAG_WeiterverrechungSatz, Original_ncts_Id, Original_ncts_Partnersystem, Original_ncts_Status, Original_ncts_Status_KEWILL_Equivalent, Original_ncts_dyaArt, Original_ncts_dyaAnmID, Original_ncts_ANR, Original_ncts_MRN, Original_ncts_Erstellung, Original_ncts_Erstellung_SB, Original_ncts_LetzteBearbeitung, Original_ncts_LetzteBearbeitung_SB, Original_ncts_firma, Original_ncts_niederlassung, Original_ncts_Gestellt, Original_ncts_GestelltAm, Original_ncts_Trans_Partner, Original_ncts_Trans_Div1, Original_ncts_Trans_Div2, Original_ncts_Trans_Div3, Original_ncts_Trans_Referenz, Original_ncts_Trans_DatumZeit, Original_ncts_Trans_Version, Original_ncts_NachrichtenSenderTIN, Original_ncts_NachrichtenSenderNLNR, Original_ncts_NachrichtenempfaengerDST, Original_ncts_ObjectName, Original_ncts_ObjectAlias, Original_ncts_BezugsnummerVorblendung, Original_ncts_Bearbeiter, Original_ncts_VersendungsLandCode, Original_ncts_BestimmungslandCode, Original_ncts_ArtAnmeldung, Original_ncts_BeladungsOrt, Original_ncts_DurchgangszollstelleDienststellnummer1, Original_ncts_DurchgangszollstelleDienststellnummer2, Original_ncts_DurchgangszollstelleDienststellnummer3, Original_ncts_DurchgangszollstelleDienststellnummer4, Original_ncts_DurchgangszollstelleDienststellnummer5, Original_ncts_DurchgangszollstelleDienststellnummer6, Original_ncts_DurchgangszollstelleDienststellnummer7, Original_ncts_DurchgangszollstelleDienststellnummer8, Original_ncts_DurchgangszollstelleDienststellnummer9, Original_ncts_BestimmungsstelleDienststellennummer, Original_ncts_AbgangsDienststellennummer, Original_ncts_Wiedergestellungsdatum, Original_ncts_KzVereinfachtesVerfahren, Original_ncts_GesamtRohmasse, Original_ncts_GesamtAnzahlPackstuecke, Original_ncts_Verschluss_ArtCode, Original_ncts_Verschluss_Anzahl, Original_ncts_Verschluss_Zeichen1, Original_ncts_Verschluss_Zeichen2, Original_ncts_Verschluss_Zeichen3, Original_ncts_Verschluss_Zeichen4, Original_ncts_Verschluss_Zeichen5, Original_ncts_Verschluss_Zeichen6, Original_ncts_Verschluss_Zeichen7, Original_ncts_Verschluss_Zeichen8, Original_ncts_Verschluss_Zeichen9, Original_ncts_Verschluss_Zeichen10, Original_ncts_Verschluss_Zeichen11, Original_ncts_Verschluss_Zeichen12, Original_ncts_Verschluss_Zeichen13, Original_ncts_Verschluss_Zeichen14, Original_ncts_Verschluss_Zeichen15, Original_ncts_Verschluss_Zeichen16, Original_ncts_Befoerderungsmittel_KennzeichenAbgang, Original_ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, Original_ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent, Original_ncts_Befoerderungsmittel_ArtGrenzueberschreitung, Original_ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, Original_ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, Original_ncts_Versender_EORI, Original_ncts_Versender_NLNR, Original_ncts_Versender_TIN, Original_ncts_Versender_Name, Original_ncts_Versender_StrasseHausnummer, Original_ncts_Versender_Ort, Original_ncts_Versender_PLZ, Original_ncts_Versender_Land, Original_ncts_Empfaenger_EORI, Original_ncts_Empfaenger_NLNR, Original_ncts_Empfaenger_TIN, Original_ncts_Empfaenger_Name, Original_ncts_Empfaenger_StrasseHausnummer, Original_ncts_Empfaenger_Ort, Original_ncts_Empfaenger_PLZ, Original_ncts_Empfaenger_Land, Original_ncts_Hauptverpflichteter_EORI, Original_ncts_Hauptverpflichteter_NLNR, Original_ncts_Hauptverpflichteter_TIN, Original_ncts_Hauptverpflichteter_Name, Original_ncts_Hauptverpflichteter_StrasseHausnummer, Original_ncts_Hauptverpflichteter_Ort, Original_ncts_Hauptverpflichteter_PLZ, Original_ncts_Hauptverpflichteter_Land, Original_ncts_ZugelassenerEmpfaenger_EORI, Original_ncts_ZugelassenerEmpfaenger_TIN, Original_ncts_ZugelassenerEmpfaenger_IDCarnet, Original_ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender, Original_ncts_SumA_KzSumASicherheit, Original_ncts_SumA_KennnummerSendung, Original_ncts_SumA_NummerBefoerderung, Original_ncts_SumA_BesondereUmstaende, Original_ncts_SumA_Ladeort, Original_ncts_SumA_Entladeort, Original_ncts_SumA_BefoerderungskostenZahlungsweise, Original_ncts_SumA_BefoerderungsrouteLand1, Original_ncts_SumA_BefoerderungsrouteLand2, Original_ncts_SumA_BefoerderungsrouteLand3, Original_ncts_SumA_BefoerderungsrouteLand4, Original_ncts_SumA_BefoerderungsrouteLand5, Original_ncts_SumA_BefoerderungsrouteLand6, Original_ncts_SumA_BefoerderungsrouteLand7, Original_ncts_SumA_BefoerderungsrouteLand8, Original_ncts_SumA_BefoerderungsrouteLand9, Original_ncts_SumA_BefoerderungsrouteLand10, Original_ncts_SumA_BefoerderungsrouteLand11, Original_ncts_SumA_BefoerderungsrouteLand12, Original_ncts_SumA_Versender_EORI, Original_ncts_SumA_Versender_NLNR, Original_ncts_SumA_Versender_TIN, Original_ncts_SumA_Versender_Name, Original_ncts_SumA_Versender_StrasseHausnummer, Original_ncts_SumA_Versender_Land, Original_ncts_SumA_Versender_PLZ, Original_ncts_SumA_Versender_Ort, Original_ncts_SumA_Empfaenger_EORI, Original_ncts_SumA_Empfaenger_NLNR, Original_ncts_SumA_Empfaenger_TIN, Original_ncts_SumA_Empfaenger_Name, Original_ncts_SumA_Empfaenger_StrasseHausnummer, Original_ncts_SumA_Empfaenger_Land, Original_ncts_SumA_Empfaenger_PLZ, Original_ncts_SumA_Empfaenger_Ort, Original_ncts_SumA_Befoerderer_EORI, Original_ncts_SumA_Befoerderer_NLNR, Original_ncts_SumA_Befoerderer_TIN, Original_ncts_SumA_Befoerderer_Name, Original_ncts_SumA_Befoerderer_StrasseHausnummer, Original_ncts_SumA_Befoerderer_Land, Original_ncts_SumA_Befoerderer_PLZ, Original_ncts_SumA_Befoerderer_Ort, Original_ncts_Stammreferenz, Original_ncts_GUID, Original_ncts_Eroeffnung, Original_ncts_Ankunft, Original_ncts_Erledigung, Original_ncts_AVISO_einarbeitet, Original_ncts_VERAG_WeiterverrechungSatz, Original_ncts_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblNCTS_TR_NachrichtenTableAdapter 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 = "tblNCTS_TR_Nachrichten" tableMapping.ColumnMappings.Add("nctsNr_id", "nctsNr_id") tableMapping.ColumnMappings.Add("nctsNr_nctsId", "nctsNr_nctsId") tableMapping.ColumnMappings.Add("nctsNr_typ", "nctsNr_typ") tableMapping.ColumnMappings.Add("nctsNr_GUID", "nctsNr_GUID") tableMapping.ColumnMappings.Add("nctsNr_MRN", "nctsNr_MRN") tableMapping.ColumnMappings.Add("nctsNr_LRN", "nctsNr_LRN") tableMapping.ColumnMappings.Add("nctsNr_path", "nctsNr_path") tableMapping.ColumnMappings.Add("nctsNr_tstmp", "nctsNr_tstmp") 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].[tblNCTS_TR_Nachrichten] WHERE (([nctsNr_id] = @Original_nctsNr"& _ "_id) AND ([nctsNr_nctsId] = @Original_nctsNr_nctsId) AND ([nctsNr_typ] = @Origin"& _ "al_nctsNr_typ) AND ((@IsNull_nctsNr_GUID = 1 AND [nctsNr_GUID] IS NULL) OR ([nct"& _ "sNr_GUID] = @Original_nctsNr_GUID)) AND ((@IsNull_nctsNr_MRN = 1 AND [nctsNr_MRN"& _ "] IS NULL) OR ([nctsNr_MRN] = @Original_nctsNr_MRN)) AND ((@IsNull_nctsNr_LRN = "& _ "1 AND [nctsNr_LRN] IS NULL) OR ([nctsNr_LRN] = @Original_nctsNr_LRN)) AND ([ncts"& _ "Nr_path] = @Original_nctsNr_path) AND ([nctsNr_tstmp] = @Original_nctsNr_tstmp))"& _ "" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_nctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_nctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsNr_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_GUID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_GUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsNr_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsNr_LRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_LRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_LRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_path", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_path", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_tstmp", 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].[tblNCTS_TR_Nachrichten] ([nctsNr_nctsId], [nctsNr_typ], [nctsN"& _ "r_GUID], [nctsNr_MRN], [nctsNr_LRN], [nctsNr_path], [nctsNr_tstmp]) VALUES (@nct"& _ "sNr_nctsId, @nctsNr_typ, @nctsNr_GUID, @nctsNr_MRN, @nctsNr_LRN, @nctsNr_path, @"& _ "nctsNr_tstmp);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsNr_id, nctsNr_nctsId, nctsNr_typ, nctsNr_GUID, nctsNr"& _ "_MRN, nctsNr_LRN, nctsNr_path, nctsNr_tstmp FROM tblNCTS_TR_Nachrichten WHERE (n"& _ "ctsNr_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_nctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_nctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_GUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_LRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_path", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_path", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_tstmp", 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].[tblNCTS_TR_Nachrichten] SET [nctsNr_nctsId] = @nctsNr_nctsId, [ncts"& _ "Nr_typ] = @nctsNr_typ, [nctsNr_GUID] = @nctsNr_GUID, [nctsNr_MRN] = @nctsNr_MRN,"& _ " [nctsNr_LRN] = @nctsNr_LRN, [nctsNr_path] = @nctsNr_path, [nctsNr_tstmp] = @nct"& _ "sNr_tstmp WHERE (([nctsNr_id] = @Original_nctsNr_id) AND ([nctsNr_nctsId] = @Ori"& _ "ginal_nctsNr_nctsId) AND ([nctsNr_typ] = @Original_nctsNr_typ) AND ((@IsNull_nct"& _ "sNr_GUID = 1 AND [nctsNr_GUID] IS NULL) OR ([nctsNr_GUID] = @Original_nctsNr_GUI"& _ "D)) AND ((@IsNull_nctsNr_MRN = 1 AND [nctsNr_MRN] IS NULL) OR ([nctsNr_MRN] = @O"& _ "riginal_nctsNr_MRN)) AND ((@IsNull_nctsNr_LRN = 1 AND [nctsNr_LRN] IS NULL) OR ("& _ "[nctsNr_LRN] = @Original_nctsNr_LRN)) AND ([nctsNr_path] = @Original_nctsNr_path"& _ ") AND ([nctsNr_tstmp] = @Original_nctsNr_tstmp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsNr_id, nctsNr_ncts"& _ "Id, nctsNr_typ, nctsNr_GUID, nctsNr_MRN, nctsNr_LRN, nctsNr_path, nctsNr_tstmp F"& _ "ROM tblNCTS_TR_Nachrichten WHERE (nctsNr_id = @nctsNr_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_nctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_nctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_GUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_MRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_LRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_path", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_path", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_tstmp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_nctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_nctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_typ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsNr_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_GUID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_GUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsNr_MRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_MRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_MRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_MRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsNr_LRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_LRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_LRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_path", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_path", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsNr_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_tstmp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsNr_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsNr_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsNr_id, nctsNr_nctsId, nctsNr_typ, nctsNr_GUID, nctsNr_MRN, nctsNr_LRN,"& _ " nctsNr_path, nctsNr_tstmp FROM dbo.tblNCTS_TR_Nachrichten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblNCTS_TR_NachrichtenDataTable) 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 VERAGDataSet.tblNCTS_TR_NachrichtenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblNCTS_TR_NachrichtenDataTable = New VERAGDataSet.tblNCTS_TR_NachrichtenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblNCTS_TR_NachrichtenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblNCTS_TR_Nachrichten") 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_nctsNr_id As Integer, ByVal Original_nctsNr_nctsId As Integer, ByVal Original_nctsNr_typ As String, ByVal Original_nctsNr_GUID As String, ByVal Original_nctsNr_MRN As String, ByVal Original_nctsNr_LRN As String, ByVal Original_nctsNr_path As String, ByVal Original_nctsNr_tstmp As Date) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsNr_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsNr_nctsId,Integer) If (Original_nctsNr_typ Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsNr_typ") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nctsNr_typ,String) End If If (Original_nctsNr_GUID 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_nctsNr_GUID,String) End If If (Original_nctsNr_MRN 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_nctsNr_MRN,String) End If If (Original_nctsNr_LRN 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_nctsNr_LRN,String) End If If (Original_nctsNr_path Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsNr_path") Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_nctsNr_path,String) End If Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_nctsNr_tstmp,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 nctsNr_nctsId As Integer, ByVal nctsNr_typ As String, ByVal nctsNr_GUID As String, ByVal nctsNr_MRN As String, ByVal nctsNr_LRN As String, ByVal nctsNr_path As String, ByVal nctsNr_tstmp As Date) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsNr_nctsId,Integer) If (nctsNr_typ Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsNr_typ") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsNr_typ,String) End If If (nctsNr_GUID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsNr_GUID,String) End If If (nctsNr_MRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsNr_MRN,String) End If If (nctsNr_LRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsNr_LRN,String) End If If (nctsNr_path Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsNr_path") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsNr_path,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(nctsNr_tstmp,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 nctsNr_nctsId As Integer, _ ByVal nctsNr_typ As String, _ ByVal nctsNr_GUID As String, _ ByVal nctsNr_MRN As String, _ ByVal nctsNr_LRN As String, _ ByVal nctsNr_path As String, _ ByVal nctsNr_tstmp As Date, _ ByVal Original_nctsNr_id As Integer, _ ByVal Original_nctsNr_nctsId As Integer, _ ByVal Original_nctsNr_typ As String, _ ByVal Original_nctsNr_GUID As String, _ ByVal Original_nctsNr_MRN As String, _ ByVal Original_nctsNr_LRN As String, _ ByVal Original_nctsNr_path As String, _ ByVal Original_nctsNr_tstmp As Date, _ ByVal nctsNr_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsNr_nctsId,Integer) If (nctsNr_typ Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsNr_typ") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsNr_typ,String) End If If (nctsNr_GUID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsNr_GUID,String) End If If (nctsNr_MRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsNr_MRN,String) End If If (nctsNr_LRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsNr_LRN,String) End If If (nctsNr_path Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsNr_path") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsNr_path,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nctsNr_tstmp,Date) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_nctsNr_id,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_nctsNr_nctsId,Integer) If (Original_nctsNr_typ Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsNr_typ") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_nctsNr_typ,String) End If If (Original_nctsNr_GUID 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_nctsNr_GUID,String) End If If (Original_nctsNr_MRN 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_nctsNr_MRN,String) End If If (Original_nctsNr_LRN 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_nctsNr_LRN,String) End If If (Original_nctsNr_path Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsNr_path") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_nctsNr_path,String) End If Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_nctsNr_tstmp,Date) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(nctsNr_id,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 nctsNr_nctsId As Integer, ByVal nctsNr_typ As String, ByVal nctsNr_GUID As String, ByVal nctsNr_MRN As String, ByVal nctsNr_LRN As String, ByVal nctsNr_path As String, ByVal nctsNr_tstmp As Date, ByVal Original_nctsNr_id As Integer, ByVal Original_nctsNr_nctsId As Integer, ByVal Original_nctsNr_typ As String, ByVal Original_nctsNr_GUID As String, ByVal Original_nctsNr_MRN As String, ByVal Original_nctsNr_LRN As String, ByVal Original_nctsNr_path As String, ByVal Original_nctsNr_tstmp As Date) As Integer Return Me.Update(nctsNr_nctsId, nctsNr_typ, nctsNr_GUID, nctsNr_MRN, nctsNr_LRN, nctsNr_path, nctsNr_tstmp, Original_nctsNr_id, Original_nctsNr_nctsId, Original_nctsNr_typ, Original_nctsNr_GUID, Original_nctsNr_MRN, Original_nctsNr_LRN, Original_nctsNr_path, Original_nctsNr_tstmp, Original_nctsNr_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblNCTS_TR_SicherheitsangabenTableAdapter 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 = "tblNCTS_TR_Sicherheitsangaben" tableMapping.ColumnMappings.Add("nctsSA_Id", "nctsSA_Id") tableMapping.ColumnMappings.Add("nctsSA_NctsId", "nctsSA_NctsId") tableMapping.ColumnMappings.Add("nctsSA_ArtCode", "nctsSA_ArtCode") tableMapping.ColumnMappings.Add("nctsSA_BezeichnungBescheinigun", "nctsSA_BezeichnungBescheinigun") tableMapping.ColumnMappings.Add("nctsSA_AbgabenBetrag", "nctsSA_AbgabenBetrag") tableMapping.ColumnMappings.Add("nctsSA_GRN", "nctsSA_GRN") tableMapping.ColumnMappings.Add("nctsSA_Zugriffcode", "nctsSA_Zugriffcode") tableMapping.ColumnMappings.Add("nctsSA_TIN", "nctsSA_TIN") tableMapping.ColumnMappings.Add("nctsSA_AbgabenBetragFremdWaehrung", "nctsSA_AbgabenBetragFremdWaehrung") tableMapping.ColumnMappings.Add("nctsSA_Waerung", "nctsSA_Waerung") 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].[tblNCTS_TR_Sicherheitsangaben] WHERE (([nctsSA_Id] = @Original"& _ "_nctsSA_Id) AND ([nctsSA_NctsId] = @Original_nctsSA_NctsId) AND ((@IsNull_nctsSA"& _ "_ArtCode = 1 AND [nctsSA_ArtCode] IS NULL) OR ([nctsSA_ArtCode] = @Original_ncts"& _ "SA_ArtCode)) AND ((@IsNull_nctsSA_BezeichnungBescheinigun = 1 AND [nctsSA_Bezeic"& _ "hnungBescheinigun] IS NULL) OR ([nctsSA_BezeichnungBescheinigun] = @Original_nct"& _ "sSA_BezeichnungBescheinigun)) AND ((@IsNull_nctsSA_AbgabenBetrag = 1 AND [nctsSA"& _ "_AbgabenBetrag] IS NULL) OR ([nctsSA_AbgabenBetrag] = @Original_nctsSA_AbgabenBe"& _ "trag)) AND ((@IsNull_nctsSA_GRN = 1 AND [nctsSA_GRN] IS NULL) OR ([nctsSA_GRN] ="& _ " @Original_nctsSA_GRN)) AND ((@IsNull_nctsSA_Zugriffcode = 1 AND [nctsSA_Zugriff"& _ "code] IS NULL) OR ([nctsSA_Zugriffcode] = @Original_nctsSA_Zugriffcode)) AND ((@"& _ "IsNull_nctsSA_TIN = 1 AND [nctsSA_TIN] IS NULL) OR ([nctsSA_TIN] = @Original_nct"& _ "sSA_TIN)) AND ((@IsNull_nctsSA_AbgabenBetragFremdWaehrung = 1 AND [nctsSA_Abgabe"& _ "nBetragFremdWaehrung] IS NULL) OR ([nctsSA_AbgabenBetragFremdWaehrung] = @Origin"& _ "al_nctsSA_AbgabenBetragFremdWaehrung)) AND ((@IsNull_nctsSA_Waerung = 1 AND [nct"& _ "sSA_Waerung] IS NULL) OR ([nctsSA_Waerung] = @Original_nctsSA_Waerung)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_ArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_GRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_Zugriffcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_Zugriffcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_Waerung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Waerung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_Waerung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Waerung", 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].[tblNCTS_TR_Sicherheitsangaben] ([nctsSA_NctsId], [nctsSA_ArtCo"& _ "de], [nctsSA_BezeichnungBescheinigun], [nctsSA_AbgabenBetrag], [nctsSA_GRN], [nc"& _ "tsSA_Zugriffcode], [nctsSA_TIN], [nctsSA_AbgabenBetragFremdWaehrung], [nctsSA_Wa"& _ "erung]) VALUES (@nctsSA_NctsId, @nctsSA_ArtCode, @nctsSA_BezeichnungBescheinigun"& _ ", @nctsSA_AbgabenBetrag, @nctsSA_GRN, @nctsSA_Zugriffcode, @nctsSA_TIN, @nctsSA_"& _ "AbgabenBetragFremdWaehrung, @nctsSA_Waerung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsSA_Id, nctsSA_NctsId, "& _ "nctsSA_ArtCode, nctsSA_BezeichnungBescheinigun, nctsSA_AbgabenBetrag, nctsSA_GRN"& _ ", nctsSA_Zugriffcode, nctsSA_TIN, nctsSA_AbgabenBetragFremdWaehrung, nctsSA_Waer"& _ "ung FROM tblNCTS_TR_Sicherheitsangaben WHERE (nctsSA_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_Zugriffcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_Waerung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Waerung", 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].[tblNCTS_TR_Sicherheitsangaben] SET [nctsSA_NctsId] = @nctsSA_NctsId"& _ ", [nctsSA_ArtCode] = @nctsSA_ArtCode, [nctsSA_BezeichnungBescheinigun] = @nctsSA"& _ "_BezeichnungBescheinigun, [nctsSA_AbgabenBetrag] = @nctsSA_AbgabenBetrag, [nctsS"& _ "A_GRN] = @nctsSA_GRN, [nctsSA_Zugriffcode] = @nctsSA_Zugriffcode, [nctsSA_TIN] ="& _ " @nctsSA_TIN, [nctsSA_AbgabenBetragFremdWaehrung] = @nctsSA_AbgabenBetragFremdWa"& _ "ehrung, [nctsSA_Waerung] = @nctsSA_Waerung WHERE (([nctsSA_Id] = @Original_nctsS"& _ "A_Id) AND ([nctsSA_NctsId] = @Original_nctsSA_NctsId) AND ((@IsNull_nctsSA_ArtCo"& _ "de = 1 AND [nctsSA_ArtCode] IS NULL) OR ([nctsSA_ArtCode] = @Original_nctsSA_Art"& _ "Code)) AND ((@IsNull_nctsSA_BezeichnungBescheinigun = 1 AND [nctsSA_BezeichnungB"& _ "escheinigun] IS NULL) OR ([nctsSA_BezeichnungBescheinigun] = @Original_nctsSA_Be"& _ "zeichnungBescheinigun)) AND ((@IsNull_nctsSA_AbgabenBetrag = 1 AND [nctsSA_Abgab"& _ "enBetrag] IS NULL) OR ([nctsSA_AbgabenBetrag] = @Original_nctsSA_AbgabenBetrag))"& _ " AND ((@IsNull_nctsSA_GRN = 1 AND [nctsSA_GRN] IS NULL) OR ([nctsSA_GRN] = @Orig"& _ "inal_nctsSA_GRN)) AND ((@IsNull_nctsSA_Zugriffcode = 1 AND [nctsSA_Zugriffcode] "& _ "IS NULL) OR ([nctsSA_Zugriffcode] = @Original_nctsSA_Zugriffcode)) AND ((@IsNull"& _ "_nctsSA_TIN = 1 AND [nctsSA_TIN] IS NULL) OR ([nctsSA_TIN] = @Original_nctsSA_TI"& _ "N)) AND ((@IsNull_nctsSA_AbgabenBetragFremdWaehrung = 1 AND [nctsSA_AbgabenBetra"& _ "gFremdWaehrung] IS NULL) OR ([nctsSA_AbgabenBetragFremdWaehrung] = @Original_nct"& _ "sSA_AbgabenBetragFremdWaehrung)) AND ((@IsNull_nctsSA_Waerung = 1 AND [nctsSA_Wa"& _ "erung] IS NULL) OR ([nctsSA_Waerung] = @Original_nctsSA_Waerung)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ncts"& _ "SA_Id, nctsSA_NctsId, nctsSA_ArtCode, nctsSA_BezeichnungBescheinigun, nctsSA_Abg"& _ "abenBetrag, nctsSA_GRN, nctsSA_Zugriffcode, nctsSA_TIN, nctsSA_AbgabenBetragFrem"& _ "dWaehrung, nctsSA_Waerung FROM tblNCTS_TR_Sicherheitsangaben WHERE (nctsSA_Id = "& _ "@nctsSA_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_Zugriffcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_Waerung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Waerung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_ArtCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_ArtCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_ArtCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_BezeichnungBescheinigun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_BezeichnungBescheinigun", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_AbgabenBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_GRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_GRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_Zugriffcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_Zugriffcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Zugriffcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "nctsSA_AbgabenBetragFremdWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsSA_Waerung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Waerung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsSA_Waerung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Waerung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsSA_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsSA_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsSA_Id, nctsSA_NctsId, nctsSA_ArtCode, nctsSA_BezeichnungBescheinigun, "& _ "nctsSA_AbgabenBetrag, nctsSA_GRN, nctsSA_Zugriffcode, nctsSA_TIN, nctsSA_Abgaben"& _ "BetragFremdWaehrung, nctsSA_Waerung FROM dbo.tblNCTS_TR_Sicherheitsangaben" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblNCTS_TR_SicherheitsangabenDataTable) 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 VERAGDataSet.tblNCTS_TR_SicherheitsangabenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblNCTS_TR_SicherheitsangabenDataTable = New VERAGDataSet.tblNCTS_TR_SicherheitsangabenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblNCTS_TR_SicherheitsangabenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblNCTS_TR_Sicherheitsangaben") 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_nctsSA_Id As Integer, ByVal Original_nctsSA_NctsId As Integer, ByVal Original_nctsSA_ArtCode As String, ByVal Original_nctsSA_BezeichnungBescheinigun As String, ByVal Original_nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), ByVal Original_nctsSA_GRN As String, ByVal Original_nctsSA_Zugriffcode As String, ByVal Original_nctsSA_TIN As String, ByVal Original_nctsSA_AbgabenBetragFremdWaehrung As Global.System.Nullable(Of Decimal), ByVal Original_nctsSA_Waerung As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsSA_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsSA_NctsId,Integer) If (Original_nctsSA_ArtCode 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_nctsSA_ArtCode,String) End If If (Original_nctsSA_BezeichnungBescheinigun 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_nctsSA_BezeichnungBescheinigun,String) End If If (Original_nctsSA_AbgabenBetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_nctsSA_AbgabenBetrag.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_nctsSA_GRN 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_nctsSA_GRN,String) End If If (Original_nctsSA_Zugriffcode 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_nctsSA_Zugriffcode,String) End If If (Original_nctsSA_TIN 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_nctsSA_TIN,String) End If If (Original_nctsSA_AbgabenBetragFremdWaehrung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_nctsSA_AbgabenBetragFremdWaehrung.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_nctsSA_Waerung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_nctsSA_Waerung,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 nctsSA_NctsId As Integer, ByVal nctsSA_ArtCode As String, ByVal nctsSA_BezeichnungBescheinigun As String, ByVal nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), ByVal nctsSA_GRN As String, ByVal nctsSA_Zugriffcode As String, ByVal nctsSA_TIN As String, ByVal nctsSA_AbgabenBetragFremdWaehrung As Global.System.Nullable(Of Decimal), ByVal nctsSA_Waerung As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsSA_NctsId,Integer) If (nctsSA_ArtCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsSA_ArtCode,String) End If If (nctsSA_BezeichnungBescheinigun Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsSA_BezeichnungBescheinigun,String) End If If (nctsSA_AbgabenBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsSA_AbgabenBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (nctsSA_GRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsSA_GRN,String) End If If (nctsSA_Zugriffcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsSA_Zugriffcode,String) End If If (nctsSA_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(nctsSA_TIN,String) End If If (nctsSA_AbgabenBetragFremdWaehrung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(nctsSA_AbgabenBetragFremdWaehrung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (nctsSA_Waerung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(nctsSA_Waerung,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 nctsSA_NctsId As Integer, _ ByVal nctsSA_ArtCode As String, _ ByVal nctsSA_BezeichnungBescheinigun As String, _ ByVal nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), _ ByVal nctsSA_GRN As String, _ ByVal nctsSA_Zugriffcode As String, _ ByVal nctsSA_TIN As String, _ ByVal nctsSA_AbgabenBetragFremdWaehrung As Global.System.Nullable(Of Decimal), _ ByVal nctsSA_Waerung As String, _ ByVal Original_nctsSA_Id As Integer, _ ByVal Original_nctsSA_NctsId As Integer, _ ByVal Original_nctsSA_ArtCode As String, _ ByVal Original_nctsSA_BezeichnungBescheinigun As String, _ ByVal Original_nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsSA_GRN As String, _ ByVal Original_nctsSA_Zugriffcode As String, _ ByVal Original_nctsSA_TIN As String, _ ByVal Original_nctsSA_AbgabenBetragFremdWaehrung As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsSA_Waerung As String, _ ByVal nctsSA_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsSA_NctsId,Integer) If (nctsSA_ArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsSA_ArtCode,String) End If If (nctsSA_BezeichnungBescheinigun Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsSA_BezeichnungBescheinigun,String) End If If (nctsSA_AbgabenBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsSA_AbgabenBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (nctsSA_GRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsSA_GRN,String) End If If (nctsSA_Zugriffcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsSA_Zugriffcode,String) End If If (nctsSA_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nctsSA_TIN,String) End If If (nctsSA_AbgabenBetragFremdWaehrung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(nctsSA_AbgabenBetragFremdWaehrung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (nctsSA_Waerung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(nctsSA_Waerung,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_nctsSA_Id,Integer) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_nctsSA_NctsId,Integer) If (Original_nctsSA_ArtCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_nctsSA_ArtCode,String) End If If (Original_nctsSA_BezeichnungBescheinigun 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_nctsSA_BezeichnungBescheinigun,String) End If If (Original_nctsSA_AbgabenBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_nctsSA_AbgabenBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_nctsSA_GRN 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_nctsSA_GRN,String) End If If (Original_nctsSA_Zugriffcode 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_nctsSA_Zugriffcode,String) End If If (Original_nctsSA_TIN 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_nctsSA_TIN,String) End If If (Original_nctsSA_AbgabenBetragFremdWaehrung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_nctsSA_AbgabenBetragFremdWaehrung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_nctsSA_Waerung 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_nctsSA_Waerung,String) End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(nctsSA_Id,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 nctsSA_NctsId As Integer, _ ByVal nctsSA_ArtCode As String, _ ByVal nctsSA_BezeichnungBescheinigun As String, _ ByVal nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), _ ByVal nctsSA_GRN As String, _ ByVal nctsSA_Zugriffcode As String, _ ByVal nctsSA_TIN As String, _ ByVal nctsSA_AbgabenBetragFremdWaehrung As Global.System.Nullable(Of Decimal), _ ByVal nctsSA_Waerung As String, _ ByVal Original_nctsSA_Id As Integer, _ ByVal Original_nctsSA_NctsId As Integer, _ ByVal Original_nctsSA_ArtCode As String, _ ByVal Original_nctsSA_BezeichnungBescheinigun As String, _ ByVal Original_nctsSA_AbgabenBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsSA_GRN As String, _ ByVal Original_nctsSA_Zugriffcode As String, _ ByVal Original_nctsSA_TIN As String, _ ByVal Original_nctsSA_AbgabenBetragFremdWaehrung As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsSA_Waerung As String) As Integer Return Me.Update(nctsSA_NctsId, nctsSA_ArtCode, nctsSA_BezeichnungBescheinigun, nctsSA_AbgabenBetrag, nctsSA_GRN, nctsSA_Zugriffcode, nctsSA_TIN, nctsSA_AbgabenBetragFremdWaehrung, nctsSA_Waerung, Original_nctsSA_Id, Original_nctsSA_NctsId, Original_nctsSA_ArtCode, Original_nctsSA_BezeichnungBescheinigun, Original_nctsSA_AbgabenBetrag, Original_nctsSA_GRN, Original_nctsSA_Zugriffcode, Original_nctsSA_TIN, Original_nctsSA_AbgabenBetragFremdWaehrung, Original_nctsSA_Waerung, Original_nctsSA_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblNCTS_TR_WarenpositionTableAdapter 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 = "tblNCTS_TR_Warenposition" tableMapping.ColumnMappings.Add("nctsWP_Id", "nctsWP_Id") tableMapping.ColumnMappings.Add("nctsWP_NctsId", "nctsWP_NctsId") tableMapping.ColumnMappings.Add("nctsWP_PositionsNummer", "nctsWP_PositionsNummer") tableMapping.ColumnMappings.Add("nctsWP_Warennummer", "nctsWP_Warennummer") tableMapping.ColumnMappings.Add("nctsWP_ArtAnmeldungPositionCode", "nctsWP_ArtAnmeldungPositionCode") tableMapping.ColumnMappings.Add("nctsWP_Warenbezeichnung", "nctsWP_Warenbezeichnung") tableMapping.ColumnMappings.Add("nctsWP_Warenwert", "nctsWP_Warenwert") tableMapping.ColumnMappings.Add("nctsWP_WarenwertWaehrung", "nctsWP_WarenwertWaehrung") tableMapping.ColumnMappings.Add("nctsWP_SchaetzKz", "nctsWP_SchaetzKz") tableMapping.ColumnMappings.Add("nctsWP_WarenwertProzent", "nctsWP_WarenwertProzent") tableMapping.ColumnMappings.Add("nctsWP_VersendungslandPositionCode", "nctsWP_VersendungslandPositionCode") tableMapping.ColumnMappings.Add("nctsWP_BestimmungslandPositionCode", "nctsWP_BestimmungslandPositionCode") tableMapping.ColumnMappings.Add("nctsWP_Rohmasse", "nctsWP_Rohmasse") tableMapping.ColumnMappings.Add("nctsWP_Eigenmasse", "nctsWP_Eigenmasse") tableMapping.ColumnMappings.Add("nctsWP_VorpapierTyp", "nctsWP_VorpapierTyp") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz1", "nctsWP_VorpapierReferenz1") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz1", "nctsWP_VorpapierZusatz1") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz2", "nctsWP_VorpapierReferenz2") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz2", "nctsWP_VorpapierZusatz2") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz3", "nctsWP_VorpapierReferenz3") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz3", "nctsWP_VorpapierZusatz3") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz4", "nctsWP_VorpapierReferenz4") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz4", "nctsWP_VorpapierZusatz4") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz5", "nctsWP_VorpapierReferenz5") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz5", "nctsWP_VorpapierZusatz5") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz6", "nctsWP_VorpapierReferenz6") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz6", "nctsWP_VorpapierZusatz6") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz7", "nctsWP_VorpapierReferenz7") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz7", "nctsWP_VorpapierZusatz7") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz8", "nctsWP_VorpapierReferenz8") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz8", "nctsWP_VorpapierZusatz8") tableMapping.ColumnMappings.Add("nctsWP_VorpapierReferenz9", "nctsWP_VorpapierReferenz9") tableMapping.ColumnMappings.Add("nctsWP_VorpapierZusatz9", "nctsWP_VorpapierZusatz9") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_ExportAusEU", "nctsWP_BesondereVermeke_ExportAusEU") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_ExportAusLand", "nctsWP_BesondereVermeke_ExportAusLand") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_Export", "nctsWP_BesondereVermeke_Export") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_ExportBeschraenkung", "nctsWP_BesondereVermeke_ExportBeschraenkung") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_ExportAbgaben", "nctsWP_BesondereVermeke_ExportAbgaben") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_Vermerk", "nctsWP_BesondereVermeke_Vermerk") tableMapping.ColumnMappings.Add("nctsWP_BesondereVermeke_Kz10600", "nctsWP_BesondereVermeke_Kz10600") tableMapping.ColumnMappings.Add("nctsWP_Versender_EORI", "nctsWP_Versender_EORI") tableMapping.ColumnMappings.Add("nctsWP_Versender_NLNR", "nctsWP_Versender_NLNR") tableMapping.ColumnMappings.Add("nctsWP_Versender_TIN", "nctsWP_Versender_TIN") tableMapping.ColumnMappings.Add("nctsWP_Versender_Name", "nctsWP_Versender_Name") tableMapping.ColumnMappings.Add("nctsWP_Versender_StrasseHausnummer", "nctsWP_Versender_StrasseHausnummer") tableMapping.ColumnMappings.Add("nctsWP_Versender_Ort", "nctsWP_Versender_Ort") tableMapping.ColumnMappings.Add("nctsWP_Versender_PLZ", "nctsWP_Versender_PLZ") tableMapping.ColumnMappings.Add("nctsWP_Versender_Land", "nctsWP_Versender_Land") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_EORI", "nctsWP_Empfaenger_EORI") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_NLNR", "nctsWP_Empfaenger_NLNR") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_TIN", "nctsWP_Empfaenger_TIN") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_Name", "nctsWP_Empfaenger_Name") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_StrasseHausnummer", "nctsWP_Empfaenger_StrasseHausnummer") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_Ort", "nctsWP_Empfaenger_Ort") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_PLZ", "nctsWP_Empfaenger_PLZ") tableMapping.ColumnMappings.Add("nctsWP_Empfaenger_Land", "nctsWP_Empfaenger_Land") tableMapping.ColumnMappings.Add("nctsWP_SumAKennnummerSendung", "nctsWP_SumAKennnummerSendung") tableMapping.ColumnMappings.Add("nctsWP_SumABefoerderungskostenZahlungsweise", "nctsWP_SumABefoerderungskostenZahlungsweise") tableMapping.ColumnMappings.Add("nctsWP_SumAUNGefahrgutnummer", "nctsWP_SumAUNGefahrgutnummer") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_EORI", "nctsWP_SumAVersender_EORI") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_NLNR", "nctsWP_SumAVersender_NLNR") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_TIN", "nctsWP_SumAVersender_TIN") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_Name", "nctsWP_SumAVersender_Name") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_StrasseHausnummer", "nctsWP_SumAVersender_StrasseHausnummer") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_Ort", "nctsWP_SumAVersender_Ort") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_PLZ", "nctsWP_SumAVersender_PLZ") tableMapping.ColumnMappings.Add("nctsWP_SumAVersender_Land", "nctsWP_SumAVersender_Land") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_EORI", "nctsWP_SumAEmpfaenger_EORI") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_NLNR", "nctsWP_SumAEmpfaenger_NLNR") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_TIN", "nctsWP_SumAEmpfaenger_TIN") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_Name", "nctsWP_SumAEmpfaenger_Name") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_StrasseHausnummer", "nctsWP_SumAEmpfaenger_StrasseHausnummer") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_Ort", "nctsWP_SumAEmpfaenger_Ort") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_PLZ", "nctsWP_SumAEmpfaenger_PLZ") tableMapping.ColumnMappings.Add("nctsWP_SumAEmpfaenger_Land", "nctsWP_SumAEmpfaenger_Land") tableMapping.ColumnMappings.Add("nctsWP_KdRefNr", "nctsWP_KdRefNr") 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].[tblNCTS_TR_Warenposition] WHERE (([nctsWP_Id] = @Original_ncts"& _ "WP_Id) AND ([nctsWP_NctsId] = @Original_nctsWP_NctsId) AND ((@IsNull_nctsWP_Posi"& _ "tionsNummer = 1 AND [nctsWP_PositionsNummer] IS NULL) OR ([nctsWP_PositionsNumme"& _ "r] = @Original_nctsWP_PositionsNummer)) AND ((@IsNull_nctsWP_Warennummer = 1 AND"& _ " [nctsWP_Warennummer] IS NULL) OR ([nctsWP_Warennummer] = @Original_nctsWP_Waren"& _ "nummer)) AND ((@IsNull_nctsWP_ArtAnmeldungPositionCode = 1 AND [nctsWP_ArtAnmeld"& _ "ungPositionCode] IS NULL) OR ([nctsWP_ArtAnmeldungPositionCode] = @Original_ncts"& _ "WP_ArtAnmeldungPositionCode)) AND ((@IsNull_nctsWP_Warenbezeichnung = 1 AND [nct"& _ "sWP_Warenbezeichnung] IS NULL) OR ([nctsWP_Warenbezeichnung] = @Original_nctsWP_"& _ "Warenbezeichnung)) AND ((@IsNull_nctsWP_Warenwert = 1 AND [nctsWP_Warenwert] IS "& _ "NULL) OR ([nctsWP_Warenwert] = @Original_nctsWP_Warenwert)) AND ((@IsNull_nctsWP"& _ "_WarenwertWaehrung = 1 AND [nctsWP_WarenwertWaehrung] IS NULL) OR ([nctsWP_Waren"& _ "wertWaehrung] = @Original_nctsWP_WarenwertWaehrung)) AND ((@IsNull_nctsWP_Schaet"& _ "zKz = 1 AND [nctsWP_SchaetzKz] IS NULL) OR ([nctsWP_SchaetzKz] = @Original_nctsW"& _ "P_SchaetzKz)) AND ((@IsNull_nctsWP_WarenwertProzent = 1 AND [nctsWP_WarenwertPro"& _ "zent] IS NULL) OR ([nctsWP_WarenwertProzent] = @Original_nctsWP_WarenwertProzent"& _ ")) AND ((@IsNull_nctsWP_VersendungslandPositionCode = 1 AND [nctsWP_Versendungsl"& _ "andPositionCode] IS NULL) OR ([nctsWP_VersendungslandPositionCode] = @Original_n"& _ "ctsWP_VersendungslandPositionCode)) AND ((@IsNull_nctsWP_BestimmungslandPosition"& _ "Code = 1 AND [nctsWP_BestimmungslandPositionCode] IS NULL) OR ([nctsWP_Bestimmun"& _ "gslandPositionCode] = @Original_nctsWP_BestimmungslandPositionCode)) AND ((@IsNu"& _ "ll_nctsWP_Rohmasse = 1 AND [nctsWP_Rohmasse] IS NULL) OR ([nctsWP_Rohmasse] = @O"& _ "riginal_nctsWP_Rohmasse)) AND ((@IsNull_nctsWP_Eigenmasse = 1 AND [nctsWP_Eigenm"& _ "asse] IS NULL) OR ([nctsWP_Eigenmasse] = @Original_nctsWP_Eigenmasse)) AND ((@Is"& _ "Null_nctsWP_VorpapierTyp = 1 AND [nctsWP_VorpapierTyp] IS NULL) OR ([nctsWP_Vorp"& _ "apierTyp] = @Original_nctsWP_VorpapierTyp)) AND ((@IsNull_nctsWP_VorpapierRefere"& _ "nz1 = 1 AND [nctsWP_VorpapierReferenz1] IS NULL) OR ([nctsWP_VorpapierReferenz1]"& _ " = @Original_nctsWP_VorpapierReferenz1)) AND ((@IsNull_nctsWP_VorpapierZusatz1 ="& _ " 1 AND [nctsWP_VorpapierZusatz1] IS NULL) OR ([nctsWP_VorpapierZusatz1] = @Origi"& _ "nal_nctsWP_VorpapierZusatz1)) AND ((@IsNull_nctsWP_VorpapierReferenz2 = 1 AND [n"& _ "ctsWP_VorpapierReferenz2] IS NULL) OR ([nctsWP_VorpapierReferenz2] = @Original_n"& _ "ctsWP_VorpapierReferenz2)) AND ((@IsNull_nctsWP_VorpapierZusatz2 = 1 AND [nctsWP"& _ "_VorpapierZusatz2] IS NULL) OR ([nctsWP_VorpapierZusatz2] = @Original_nctsWP_Vor"& _ "papierZusatz2)) AND ((@IsNull_nctsWP_VorpapierReferenz3 = 1 AND [nctsWP_Vorpapie"& _ "rReferenz3] IS NULL) OR ([nctsWP_VorpapierReferenz3] = @Original_nctsWP_Vorpapie"& _ "rReferenz3)) AND ((@IsNull_nctsWP_VorpapierZusatz3 = 1 AND [nctsWP_VorpapierZusa"& _ "tz3] IS NULL) OR ([nctsWP_VorpapierZusatz3] = @Original_nctsWP_VorpapierZusatz3)"& _ ") AND ((@IsNull_nctsWP_VorpapierReferenz4 = 1 AND [nctsWP_VorpapierReferenz4] IS"& _ " NULL) OR ([nctsWP_VorpapierReferenz4] = @Original_nctsWP_VorpapierReferenz4)) A"& _ "ND ((@IsNull_nctsWP_VorpapierZusatz4 = 1 AND [nctsWP_VorpapierZusatz4] IS NULL) "& _ "OR ([nctsWP_VorpapierZusatz4] = @Original_nctsWP_VorpapierZusatz4)) AND ((@IsNul"& _ "l_nctsWP_VorpapierReferenz5 = 1 AND [nctsWP_VorpapierReferenz5] IS NULL) OR ([nc"& _ "tsWP_VorpapierReferenz5] = @Original_nctsWP_VorpapierReferenz5)) AND ((@IsNull_n"& _ "ctsWP_VorpapierZusatz5 = 1 AND [nctsWP_VorpapierZusatz5] IS NULL) OR ([nctsWP_Vo"& _ "rpapierZusatz5] = @Original_nctsWP_VorpapierZusatz5)) AND ((@IsNull_nctsWP_Vorpa"& _ "pierReferenz6 = 1 AND [nctsWP_VorpapierReferenz6] IS NULL) OR ([nctsWP_Vorpapier"& _ "Referenz6] = @Original_nctsWP_VorpapierReferenz6)) AND ((@IsNull_nctsWP_Vorpapie"& _ "rZusatz6 = 1 AND [nctsWP_VorpapierZusatz6] IS NULL) OR ([nctsWP_VorpapierZusatz6"& _ "] = @Original_nctsWP_VorpapierZusatz6)) AND ((@IsNull_nctsWP_VorpapierReferenz7 "& _ "= 1 AND [nctsWP_VorpapierReferenz7] IS NULL) OR ([nctsWP_VorpapierReferenz7] = @"& _ "Original_nctsWP_VorpapierReferenz7)) AND ((@IsNull_nctsWP_VorpapierZusatz7 = 1 A"& _ "ND [nctsWP_VorpapierZusatz7] IS NULL) OR ([nctsWP_VorpapierZusatz7] = @Original_"& _ "nctsWP_VorpapierZusatz7)) AND ((@IsNull_nctsWP_VorpapierReferenz8 = 1 AND [nctsW"& _ "P_VorpapierReferenz8] IS NULL) OR ([nctsWP_VorpapierReferenz8] = @Original_nctsW"& _ "P_VorpapierReferenz8)) AND ((@IsNull_nctsWP_VorpapierZusatz8 = 1 AND [nctsWP_Vor"& _ "papierZusatz8] IS NULL) OR ([nctsWP_VorpapierZusatz8] = @Original_nctsWP_Vorpapi"& _ "erZusatz8)) AND ((@IsNull_nctsWP_VorpapierReferenz9 = 1 AND [nctsWP_VorpapierRef"& _ "erenz9] IS NULL) OR ([nctsWP_VorpapierReferenz9] = @Original_nctsWP_VorpapierRef"& _ "erenz9)) AND ((@IsNull_nctsWP_VorpapierZusatz9 = 1 AND [nctsWP_VorpapierZusatz9]"& _ " IS NULL) OR ([nctsWP_VorpapierZusatz9] = @Original_nctsWP_VorpapierZusatz9)) AN"& _ "D ((@IsNull_nctsWP_BesondereVermeke_ExportAusEU = 1 AND [nctsWP_BesondereVermeke"& _ "_ExportAusEU] IS NULL) OR ([nctsWP_BesondereVermeke_ExportAusEU] = @Original_nct"& _ "sWP_BesondereVermeke_ExportAusEU)) AND ((@IsNull_nctsWP_BesondereVermeke_ExportA"& _ "usLand = 1 AND [nctsWP_BesondereVermeke_ExportAusLand] IS NULL) OR ([nctsWP_Beso"& _ "ndereVermeke_ExportAusLand] = @Original_nctsWP_BesondereVermeke_ExportAusLand)) "& _ "AND ((@IsNull_nctsWP_BesondereVermeke_Export = 1 AND [nctsWP_BesondereVermeke_Ex"& _ "port] IS NULL) OR ([nctsWP_BesondereVermeke_Export] = @Original_nctsWP_Besondere"& _ "Vermeke_Export)) AND ((@IsNull_nctsWP_BesondereVermeke_ExportBeschraenkung = 1 A"& _ "ND [nctsWP_BesondereVermeke_ExportBeschraenkung] IS NULL) OR ([nctsWP_BesondereV"& _ "ermeke_ExportBeschraenkung] = @Original_nctsWP_BesondereVermeke_ExportBeschraenk"& _ "ung)) AND ((@IsNull_nctsWP_BesondereVermeke_ExportAbgaben = 1 AND [nctsWP_Besond"& _ "ereVermeke_ExportAbgaben] IS NULL) OR ([nctsWP_BesondereVermeke_ExportAbgaben] ="& _ " @Original_nctsWP_BesondereVermeke_ExportAbgaben)) AND ((@IsNull_nctsWP_Besonder"& _ "eVermeke_Vermerk = 1 AND [nctsWP_BesondereVermeke_Vermerk] IS NULL) OR ([nctsWP_"& _ "BesondereVermeke_Vermerk] = @Original_nctsWP_BesondereVermeke_Vermerk)) AND ((@I"& _ "sNull_nctsWP_BesondereVermeke_Kz10600 = 1 AND [nctsWP_BesondereVermeke_Kz10600] "& _ "IS NULL) OR ([nctsWP_BesondereVermeke_Kz10600] = @Original_nctsWP_BesondereVerme"& _ "ke_Kz10600)) AND ((@IsNull_nctsWP_Versender_EORI = 1 AND [nctsWP_Versender_EORI]"& _ " IS NULL) OR ([nctsWP_Versender_EORI] = @Original_nctsWP_Versender_EORI)) AND (("& _ "@IsNull_nctsWP_Versender_NLNR = 1 AND [nctsWP_Versender_NLNR] IS NULL) OR ([ncts"& _ "WP_Versender_NLNR] = @Original_nctsWP_Versender_NLNR)) AND ((@IsNull_nctsWP_Vers"& _ "ender_TIN = 1 AND [nctsWP_Versender_TIN] IS NULL) OR ([nctsWP_Versender_TIN] = @"& _ "Original_nctsWP_Versender_TIN)) AND ((@IsNull_nctsWP_Versender_Name = 1 AND [nct"& _ "sWP_Versender_Name] IS NULL) OR ([nctsWP_Versender_Name] = @Original_nctsWP_Vers"& _ "ender_Name)) AND ((@IsNull_nctsWP_Versender_StrasseHausnummer = 1 AND [nctsWP_Ve"& _ "rsender_StrasseHausnummer] IS NULL) OR ([nctsWP_Versender_StrasseHausnummer] = @"& _ "Original_nctsWP_Versender_StrasseHausnummer)) AND ((@IsNull_nctsWP_Versender_Ort"& _ " = 1 AND [nctsWP_Versender_Ort] IS NULL) OR ([nctsWP_Versender_Ort] = @Original_"& _ "nctsWP_Versender_Ort)) AND ((@IsNull_nctsWP_Versender_PLZ = 1 AND [nctsWP_Versen"& _ "der_PLZ] IS NULL) OR ([nctsWP_Versender_PLZ] = @Original_nctsWP_Versender_PLZ)) "& _ "AND ((@IsNull_nctsWP_Versender_Land = 1 AND [nctsWP_Versender_Land] IS NULL) OR "& _ "([nctsWP_Versender_Land] = @Original_nctsWP_Versender_Land)) AND ((@IsNull_nctsW"& _ "P_Empfaenger_EORI = 1 AND [nctsWP_Empfaenger_EORI] IS NULL) OR ([nctsWP_Empfaeng"& _ "er_EORI] = @Original_nctsWP_Empfaenger_EORI)) AND ((@IsNull_nctsWP_Empfaenger_NL"& _ "NR = 1 AND [nctsWP_Empfaenger_NLNR] IS NULL) OR ([nctsWP_Empfaenger_NLNR] = @Ori"& _ "ginal_nctsWP_Empfaenger_NLNR)) AND ((@IsNull_nctsWP_Empfaenger_TIN = 1 AND [ncts"& _ "WP_Empfaenger_TIN] IS NULL) OR ([nctsWP_Empfaenger_TIN] = @Original_nctsWP_Empfa"& _ "enger_TIN)) AND ((@IsNull_nctsWP_Empfaenger_Name = 1 AND [nctsWP_Empfaenger_Name"& _ "] IS NULL) OR ([nctsWP_Empfaenger_Name] = @Original_nctsWP_Empfaenger_Name)) AND"& _ " ((@IsNull_nctsWP_Empfaenger_StrasseHausnummer = 1 AND [nctsWP_Empfaenger_Strass"& _ "eHausnummer] IS NULL) OR ([nctsWP_Empfaenger_StrasseHausnummer] = @Original_ncts"& _ "WP_Empfaenger_StrasseHausnummer)) AND ((@IsNull_nctsWP_Empfaenger_Ort = 1 AND [n"& _ "ctsWP_Empfaenger_Ort] IS NULL) OR ([nctsWP_Empfaenger_Ort] = @Original_nctsWP_Em"& _ "pfaenger_Ort)) AND ((@IsNull_nctsWP_Empfaenger_PLZ = 1 AND [nctsWP_Empfaenger_PL"& _ "Z] IS NULL) OR ([nctsWP_Empfaenger_PLZ] = @Original_nctsWP_Empfaenger_PLZ)) AND "& _ "((@IsNull_nctsWP_Empfaenger_Land = 1 AND [nctsWP_Empfaenger_Land] IS NULL) OR (["& _ "nctsWP_Empfaenger_Land] = @Original_nctsWP_Empfaenger_Land)) AND ((@IsNull_nctsW"& _ "P_SumAKennnummerSendung = 1 AND [nctsWP_SumAKennnummerSendung] IS NULL) OR ([nct"& _ "sWP_SumAKennnummerSendung] = @Original_nctsWP_SumAKennnummerSendung)) AND ((@IsN"& _ "ull_nctsWP_SumABefoerderungskostenZahlungsweise = 1 AND [nctsWP_SumABefoerderung"& _ "skostenZahlungsweise] IS NULL) OR ([nctsWP_SumABefoerderungskostenZahlungsweise]"& _ " = @Original_nctsWP_SumABefoerderungskostenZahlungsweise)) AND ((@IsNull_nctsWP_"& _ "SumAUNGefahrgutnummer = 1 AND [nctsWP_SumAUNGefahrgutnummer] IS NULL) OR ([nctsW"& _ "P_SumAUNGefahrgutnummer] = @Original_nctsWP_SumAUNGefahrgutnummer)) AND ((@IsNul"& _ "l_nctsWP_SumAVersender_EORI = 1 AND [nctsWP_SumAVersender_EORI] IS NULL) OR ([nc"& _ "tsWP_SumAVersender_EORI] = @Original_nctsWP_SumAVersender_EORI)) AND ((@IsNull_n"& _ "ctsWP_SumAVersender_NLNR = 1 AND [nctsWP_SumAVersender_NLNR] IS NULL) OR ([nctsW"& _ "P_SumAVersender_NLNR] = @Original_nctsWP_SumAVersender_NLNR)) AND ((@IsNull_ncts"& _ "WP_SumAVersender_TIN = 1 AND [nctsWP_SumAVersender_TIN] IS NULL) OR ([nctsWP_Sum"& _ "AVersender_TIN] = @Original_nctsWP_SumAVersender_TIN)) AND ((@IsNull_nctsWP_SumA"& _ "Versender_Name = 1 AND [nctsWP_SumAVersender_Name] IS NULL) OR ([nctsWP_SumAVers"& _ "ender_Name] = @Original_nctsWP_SumAVersender_Name)) AND ((@IsNull_nctsWP_SumAVer"& _ "sender_StrasseHausnummer = 1 AND [nctsWP_SumAVersender_StrasseHausnummer] IS NUL"& _ "L) OR ([nctsWP_SumAVersender_StrasseHausnummer] = @Original_nctsWP_SumAVersender"& _ "_StrasseHausnummer)) AND ((@IsNull_nctsWP_SumAVersender_Ort = 1 AND [nctsWP_SumA"& _ "Versender_Ort] IS NULL) OR ([nctsWP_SumAVersender_Ort] = @Original_nctsWP_SumAVe"& _ "rsender_Ort)) AND ((@IsNull_nctsWP_SumAVersender_PLZ = 1 AND [nctsWP_SumAVersend"& _ "er_PLZ] IS NULL) OR ([nctsWP_SumAVersender_PLZ] = @Original_nctsWP_SumAVersender"& _ "_PLZ)) AND ((@IsNull_nctsWP_SumAVersender_Land = 1 AND [nctsWP_SumAVersender_Lan"& _ "d] IS NULL) OR ([nctsWP_SumAVersender_Land] = @Original_nctsWP_SumAVersender_Lan"& _ "d)) AND ((@IsNull_nctsWP_SumAEmpfaenger_EORI = 1 AND [nctsWP_SumAEmpfaenger_EORI"& _ "] IS NULL) OR ([nctsWP_SumAEmpfaenger_EORI] = @Original_nctsWP_SumAEmpfaenger_EO"& _ "RI)) AND ((@IsNull_nctsWP_SumAEmpfaenger_NLNR = 1 AND [nctsWP_SumAEmpfaenger_NLN"& _ "R] IS NULL) OR ([nctsWP_SumAEmpfaenger_NLNR] = @Original_nctsWP_SumAEmpfaenger_N"& _ "LNR)) AND ((@IsNull_nctsWP_SumAEmpfaenger_TIN = 1 AND [nctsWP_SumAEmpfaenger_TIN"& _ "] IS NULL) OR ([nctsWP_SumAEmpfaenger_TIN] = @Original_nctsWP_SumAEmpfaenger_TIN"& _ ")) AND ((@IsNull_nctsWP_SumAEmpfaenger_Name = 1 AND [nctsWP_SumAEmpfaenger_Name]"& _ " IS NULL) OR ([nctsWP_SumAEmpfaenger_Name] = @Original_nctsWP_SumAEmpfaenger_Nam"& _ "e)) AND ((@IsNull_nctsWP_SumAEmpfaenger_StrasseHausnummer = 1 AND [nctsWP_SumAEm"& _ "pfaenger_StrasseHausnummer] IS NULL) OR ([nctsWP_SumAEmpfaenger_StrasseHausnumme"& _ "r] = @Original_nctsWP_SumAEmpfaenger_StrasseHausnummer)) AND ((@IsNull_nctsWP_Su"& _ "mAEmpfaenger_Ort = 1 AND [nctsWP_SumAEmpfaenger_Ort] IS NULL) OR ([nctsWP_SumAEm"& _ "pfaenger_Ort] = @Original_nctsWP_SumAEmpfaenger_Ort)) AND ((@IsNull_nctsWP_SumAE"& _ "mpfaenger_PLZ = 1 AND [nctsWP_SumAEmpfaenger_PLZ] IS NULL) OR ([nctsWP_SumAEmpfa"& _ "enger_PLZ] = @Original_nctsWP_SumAEmpfaenger_PLZ)) AND ((@IsNull_nctsWP_SumAEmpf"& _ "aenger_Land = 1 AND [nctsWP_SumAEmpfaenger_Land] IS NULL) OR ([nctsWP_SumAEmpfae"& _ "nger_Land] = @Original_nctsWP_SumAEmpfaenger_Land)) AND ((@IsNull_nctsWP_KdRefNr"& _ " = 1 AND [nctsWP_KdRefNr] IS NULL) OR ([nctsWP_KdRefNr] = @Original_nctsWP_KdRef"& _ "Nr)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_PositionsNummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warenwert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warenwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SchaetzKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SchaetzKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Eigenmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_KdRefNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_KdRefNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", 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].[tblNCTS_TR_Warenposition] ([nctsWP_NctsId], [nctsWP_PositionsN"& _ "ummer], [nctsWP_Warennummer], [nctsWP_ArtAnmeldungPositionCode], [nctsWP_Warenbe"& _ "zeichnung], [nctsWP_Warenwert], [nctsWP_WarenwertWaehrung], [nctsWP_SchaetzKz], "& _ "[nctsWP_WarenwertProzent], [nctsWP_VersendungslandPositionCode], [nctsWP_Bestimm"& _ "ungslandPositionCode], [nctsWP_Rohmasse], [nctsWP_Eigenmasse], [nctsWP_Vorpapier"& _ "Typ], [nctsWP_VorpapierReferenz1], [nctsWP_VorpapierZusatz1], [nctsWP_VorpapierR"& _ "eferenz2], [nctsWP_VorpapierZusatz2], [nctsWP_VorpapierReferenz3], [nctsWP_Vorpa"& _ "pierZusatz3], [nctsWP_VorpapierReferenz4], [nctsWP_VorpapierZusatz4], [nctsWP_Vo"& _ "rpapierReferenz5], [nctsWP_VorpapierZusatz5], [nctsWP_VorpapierReferenz6], [ncts"& _ "WP_VorpapierZusatz6], [nctsWP_VorpapierReferenz7], [nctsWP_VorpapierZusatz7], [n"& _ "ctsWP_VorpapierReferenz8], [nctsWP_VorpapierZusatz8], [nctsWP_VorpapierReferenz9"& _ "], [nctsWP_VorpapierZusatz9], [nctsWP_BesondereVermeke_ExportAusEU], [nctsWP_Bes"& _ "ondereVermeke_ExportAusLand], [nctsWP_BesondereVermeke_Export], [nctsWP_Besonder"& _ "eVermeke_ExportBeschraenkung], [nctsWP_BesondereVermeke_ExportAbgaben], [nctsWP_"& _ "BesondereVermeke_Vermerk], [nctsWP_BesondereVermeke_Kz10600], [nctsWP_Versender_"& _ "EORI], [nctsWP_Versender_NLNR], [nctsWP_Versender_TIN], [nctsWP_Versender_Name],"& _ " [nctsWP_Versender_StrasseHausnummer], [nctsWP_Versender_Ort], [nctsWP_Versender"& _ "_PLZ], [nctsWP_Versender_Land], [nctsWP_Empfaenger_EORI], [nctsWP_Empfaenger_NLN"& _ "R], [nctsWP_Empfaenger_TIN], [nctsWP_Empfaenger_Name], [nctsWP_Empfaenger_Strass"& _ "eHausnummer], [nctsWP_Empfaenger_Ort], [nctsWP_Empfaenger_PLZ], [nctsWP_Empfaeng"& _ "er_Land], [nctsWP_SumAKennnummerSendung], [nctsWP_SumABefoerderungskostenZahlung"& _ "sweise], [nctsWP_SumAUNGefahrgutnummer], [nctsWP_SumAVersender_EORI], [nctsWP_Su"& _ "mAVersender_NLNR], [nctsWP_SumAVersender_TIN], [nctsWP_SumAVersender_Name], [nct"& _ "sWP_SumAVersender_StrasseHausnummer], [nctsWP_SumAVersender_Ort], [nctsWP_SumAVe"& _ "rsender_PLZ], [nctsWP_SumAVersender_Land], [nctsWP_SumAEmpfaenger_EORI], [nctsWP"& _ "_SumAEmpfaenger_NLNR], [nctsWP_SumAEmpfaenger_TIN], [nctsWP_SumAEmpfaenger_Name]"& _ ", [nctsWP_SumAEmpfaenger_StrasseHausnummer], [nctsWP_SumAEmpfaenger_Ort], [nctsW"& _ "P_SumAEmpfaenger_PLZ], [nctsWP_SumAEmpfaenger_Land], [nctsWP_KdRefNr]) VALUES (@"& _ "nctsWP_NctsId, @nctsWP_PositionsNummer, @nctsWP_Warennummer, @nctsWP_ArtAnmeldun"& _ "gPositionCode, @nctsWP_Warenbezeichnung, @nctsWP_Warenwert, @nctsWP_WarenwertWae"& _ "hrung, @nctsWP_SchaetzKz, @nctsWP_WarenwertProzent, @nctsWP_VersendungslandPosit"& _ "ionCode, @nctsWP_BestimmungslandPositionCode, @nctsWP_Rohmasse, @nctsWP_Eigenmas"& _ "se, @nctsWP_VorpapierTyp, @nctsWP_VorpapierReferenz1, @nctsWP_VorpapierZusatz1, "& _ "@nctsWP_VorpapierReferenz2, @nctsWP_VorpapierZusatz2, @nctsWP_VorpapierReferenz3"& _ ", @nctsWP_VorpapierZusatz3, @nctsWP_VorpapierReferenz4, @nctsWP_VorpapierZusatz4"& _ ", @nctsWP_VorpapierReferenz5, @nctsWP_VorpapierZusatz5, @nctsWP_VorpapierReferen"& _ "z6, @nctsWP_VorpapierZusatz6, @nctsWP_VorpapierReferenz7, @nctsWP_VorpapierZusat"& _ "z7, @nctsWP_VorpapierReferenz8, @nctsWP_VorpapierZusatz8, @nctsWP_VorpapierRefer"& _ "enz9, @nctsWP_VorpapierZusatz9, @nctsWP_BesondereVermeke_ExportAusEU, @nctsWP_Be"& _ "sondereVermeke_ExportAusLand, @nctsWP_BesondereVermeke_Export, @nctsWP_Besondere"& _ "Vermeke_ExportBeschraenkung, @nctsWP_BesondereVermeke_ExportAbgaben, @nctsWP_Bes"& _ "ondereVermeke_Vermerk, @nctsWP_BesondereVermeke_Kz10600, @nctsWP_Versender_EORI,"& _ " @nctsWP_Versender_NLNR, @nctsWP_Versender_TIN, @nctsWP_Versender_Name, @nctsWP_"& _ "Versender_StrasseHausnummer, @nctsWP_Versender_Ort, @nctsWP_Versender_PLZ, @ncts"& _ "WP_Versender_Land, @nctsWP_Empfaenger_EORI, @nctsWP_Empfaenger_NLNR, @nctsWP_Emp"& _ "faenger_TIN, @nctsWP_Empfaenger_Name, @nctsWP_Empfaenger_StrasseHausnummer, @nct"& _ "sWP_Empfaenger_Ort, @nctsWP_Empfaenger_PLZ, @nctsWP_Empfaenger_Land, @nctsWP_Sum"& _ "AKennnummerSendung, @nctsWP_SumABefoerderungskostenZahlungsweise, @nctsWP_SumAUN"& _ "Gefahrgutnummer, @nctsWP_SumAVersender_EORI, @nctsWP_SumAVersender_NLNR, @nctsWP"& _ "_SumAVersender_TIN, @nctsWP_SumAVersender_Name, @nctsWP_SumAVersender_StrasseHau"& _ "snummer, @nctsWP_SumAVersender_Ort, @nctsWP_SumAVersender_PLZ, @nctsWP_SumAVerse"& _ "nder_Land, @nctsWP_SumAEmpfaenger_EORI, @nctsWP_SumAEmpfaenger_NLNR, @nctsWP_Sum"& _ "AEmpfaenger_TIN, @nctsWP_SumAEmpfaenger_Name, @nctsWP_SumAEmpfaenger_StrasseHaus"& _ "nummer, @nctsWP_SumAEmpfaenger_Ort, @nctsWP_SumAEmpfaenger_PLZ, @nctsWP_SumAEmpf"& _ "aenger_Land, @nctsWP_KdRefNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsWP_Id, nctsWP_NctsId, nctsWP_Position"& _ "sNummer, nctsWP_Warennummer, nctsWP_ArtAnmeldungPositionCode, nctsWP_Warenbezeic"& _ "hnung, nctsWP_Warenwert, nctsWP_WarenwertWaehrung, nctsWP_SchaetzKz, nctsWP_Ware"& _ "nwertProzent, nctsWP_VersendungslandPositionCode, nctsWP_BestimmungslandPosition"& _ "Code, nctsWP_Rohmasse, nctsWP_Eigenmasse, nctsWP_VorpapierTyp, nctsWP_VorpapierR"& _ "eferenz1, nctsWP_VorpapierZusatz1, nctsWP_VorpapierReferenz2, nctsWP_VorpapierZu"& _ "satz2, nctsWP_VorpapierReferenz3, nctsWP_VorpapierZusatz3, nctsWP_VorpapierRefer"& _ "enz4, nctsWP_VorpapierZusatz4, nctsWP_VorpapierReferenz5, nctsWP_VorpapierZusatz"& _ "5, nctsWP_VorpapierReferenz6, nctsWP_VorpapierZusatz6, nctsWP_VorpapierReferenz7"& _ ", nctsWP_VorpapierZusatz7, nctsWP_VorpapierReferenz8, nctsWP_VorpapierZusatz8, n"& _ "ctsWP_VorpapierReferenz9, nctsWP_VorpapierZusatz9, nctsWP_BesondereVermeke_Expor"& _ "tAusEU, nctsWP_BesondereVermeke_ExportAusLand, nctsWP_BesondereVermeke_Export, n"& _ "ctsWP_BesondereVermeke_ExportBeschraenkung, nctsWP_BesondereVermeke_ExportAbgabe"& _ "n, nctsWP_BesondereVermeke_Vermerk, nctsWP_BesondereVermeke_Kz10600, nctsWP_Vers"& _ "ender_EORI, nctsWP_Versender_NLNR, nctsWP_Versender_TIN, nctsWP_Versender_Name, "& _ "nctsWP_Versender_StrasseHausnummer, nctsWP_Versender_Ort, nctsWP_Versender_PLZ, "& _ "nctsWP_Versender_Land, nctsWP_Empfaenger_EORI, nctsWP_Empfaenger_NLNR, nctsWP_Em"& _ "pfaenger_TIN, nctsWP_Empfaenger_Name, nctsWP_Empfaenger_StrasseHausnummer, nctsW"& _ "P_Empfaenger_Ort, nctsWP_Empfaenger_PLZ, nctsWP_Empfaenger_Land, nctsWP_SumAKenn"& _ "nummerSendung, nctsWP_SumABefoerderungskostenZahlungsweise, nctsWP_SumAUNGefahrg"& _ "utnummer, nctsWP_SumAVersender_EORI, nctsWP_SumAVersender_NLNR, nctsWP_SumAVerse"& _ "nder_TIN, nctsWP_SumAVersender_Name, nctsWP_SumAVersender_StrasseHausnummer, nct"& _ "sWP_SumAVersender_Ort, nctsWP_SumAVersender_PLZ, nctsWP_SumAVersender_Land, ncts"& _ "WP_SumAEmpfaenger_EORI, nctsWP_SumAEmpfaenger_NLNR, nctsWP_SumAEmpfaenger_TIN, n"& _ "ctsWP_SumAEmpfaenger_Name, nctsWP_SumAEmpfaenger_StrasseHausnummer, nctsWP_SumAE"& _ "mpfaenger_Ort, nctsWP_SumAEmpfaenger_PLZ, nctsWP_SumAEmpfaenger_Land, nctsWP_KdR"& _ "efNr FROM tblNCTS_TR_Warenposition WHERE (nctsWP_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warenwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SchaetzKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_KdRefNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", 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].[tblNCTS_TR_Warenposition] SET [nctsWP_NctsId] = @nctsWP_NctsId, [nc"& _ "tsWP_PositionsNummer] = @nctsWP_PositionsNummer, [nctsWP_Warennummer] = @nctsWP_"& _ "Warennummer, [nctsWP_ArtAnmeldungPositionCode] = @nctsWP_ArtAnmeldungPositionCod"& _ "e, [nctsWP_Warenbezeichnung] = @nctsWP_Warenbezeichnung, [nctsWP_Warenwert] = @n"& _ "ctsWP_Warenwert, [nctsWP_WarenwertWaehrung] = @nctsWP_WarenwertWaehrung, [nctsWP"& _ "_SchaetzKz] = @nctsWP_SchaetzKz, [nctsWP_WarenwertProzent] = @nctsWP_WarenwertPr"& _ "ozent, [nctsWP_VersendungslandPositionCode] = @nctsWP_VersendungslandPositionCod"& _ "e, [nctsWP_BestimmungslandPositionCode] = @nctsWP_BestimmungslandPositionCode, ["& _ "nctsWP_Rohmasse] = @nctsWP_Rohmasse, [nctsWP_Eigenmasse] = @nctsWP_Eigenmasse, ["& _ "nctsWP_VorpapierTyp] = @nctsWP_VorpapierTyp, [nctsWP_VorpapierReferenz1] = @ncts"& _ "WP_VorpapierReferenz1, [nctsWP_VorpapierZusatz1] = @nctsWP_VorpapierZusatz1, [nc"& _ "tsWP_VorpapierReferenz2] = @nctsWP_VorpapierReferenz2, [nctsWP_VorpapierZusatz2]"& _ " = @nctsWP_VorpapierZusatz2, [nctsWP_VorpapierReferenz3] = @nctsWP_VorpapierRefe"& _ "renz3, [nctsWP_VorpapierZusatz3] = @nctsWP_VorpapierZusatz3, [nctsWP_VorpapierRe"& _ "ferenz4] = @nctsWP_VorpapierReferenz4, [nctsWP_VorpapierZusatz4] = @nctsWP_Vorpa"& _ "pierZusatz4, [nctsWP_VorpapierReferenz5] = @nctsWP_VorpapierReferenz5, [nctsWP_V"& _ "orpapierZusatz5] = @nctsWP_VorpapierZusatz5, [nctsWP_VorpapierReferenz6] = @ncts"& _ "WP_VorpapierReferenz6, [nctsWP_VorpapierZusatz6] = @nctsWP_VorpapierZusatz6, [nc"& _ "tsWP_VorpapierReferenz7] = @nctsWP_VorpapierReferenz7, [nctsWP_VorpapierZusatz7]"& _ " = @nctsWP_VorpapierZusatz7, [nctsWP_VorpapierReferenz8] = @nctsWP_VorpapierRefe"& _ "renz8, [nctsWP_VorpapierZusatz8] = @nctsWP_VorpapierZusatz8, [nctsWP_VorpapierRe"& _ "ferenz9] = @nctsWP_VorpapierReferenz9, [nctsWP_VorpapierZusatz9] = @nctsWP_Vorpa"& _ "pierZusatz9, [nctsWP_BesondereVermeke_ExportAusEU] = @nctsWP_BesondereVermeke_Ex"& _ "portAusEU, [nctsWP_BesondereVermeke_ExportAusLand] = @nctsWP_BesondereVermeke_Ex"& _ "portAusLand, [nctsWP_BesondereVermeke_Export] = @nctsWP_BesondereVermeke_Export,"& _ " [nctsWP_BesondereVermeke_ExportBeschraenkung] = @nctsWP_BesondereVermeke_Export"& _ "Beschraenkung, [nctsWP_BesondereVermeke_ExportAbgaben] = @nctsWP_BesondereVermek"& _ "e_ExportAbgaben, [nctsWP_BesondereVermeke_Vermerk] = @nctsWP_BesondereVermeke_Ve"& _ "rmerk, [nctsWP_BesondereVermeke_Kz10600] = @nctsWP_BesondereVermeke_Kz10600, [nc"& _ "tsWP_Versender_EORI] = @nctsWP_Versender_EORI, [nctsWP_Versender_NLNR] = @nctsWP"& _ "_Versender_NLNR, [nctsWP_Versender_TIN] = @nctsWP_Versender_TIN, [nctsWP_Versend"& _ "er_Name] = @nctsWP_Versender_Name, [nctsWP_Versender_StrasseHausnummer] = @nctsW"& _ "P_Versender_StrasseHausnummer, [nctsWP_Versender_Ort] = @nctsWP_Versender_Ort, ["& _ "nctsWP_Versender_PLZ] = @nctsWP_Versender_PLZ, [nctsWP_Versender_Land] = @nctsWP"& _ "_Versender_Land, [nctsWP_Empfaenger_EORI] = @nctsWP_Empfaenger_EORI, [nctsWP_Emp"& _ "faenger_NLNR] = @nctsWP_Empfaenger_NLNR, [nctsWP_Empfaenger_TIN] = @nctsWP_Empfa"& _ "enger_TIN, [nctsWP_Empfaenger_Name] = @nctsWP_Empfaenger_Name, [nctsWP_Empfaenge"& _ "r_StrasseHausnummer] = @nctsWP_Empfaenger_StrasseHausnummer, [nctsWP_Empfaenger_"& _ "Ort] = @nctsWP_Empfaenger_Ort, [nctsWP_Empfaenger_PLZ] = @nctsWP_Empfaenger_PLZ,"& _ " [nctsWP_Empfaenger_Land] = @nctsWP_Empfaenger_Land, [nctsWP_SumAKennnummerSendu"& _ "ng] = @nctsWP_SumAKennnummerSendung, [nctsWP_SumABefoerderungskostenZahlungsweis"& _ "e] = @nctsWP_SumABefoerderungskostenZahlungsweise, [nctsWP_SumAUNGefahrgutnummer"& _ "] = @nctsWP_SumAUNGefahrgutnummer, [nctsWP_SumAVersender_EORI] = @nctsWP_SumAVer"& _ "sender_EORI, [nctsWP_SumAVersender_NLNR] = @nctsWP_SumAVersender_NLNR, [nctsWP_S"& _ "umAVersender_TIN] = @nctsWP_SumAVersender_TIN, [nctsWP_SumAVersender_Name] = @nc"& _ "tsWP_SumAVersender_Name, [nctsWP_SumAVersender_StrasseHausnummer] = @nctsWP_SumA"& _ "Versender_StrasseHausnummer, [nctsWP_SumAVersender_Ort] = @nctsWP_SumAVersender_"& _ "Ort, [nctsWP_SumAVersender_PLZ] = @nctsWP_SumAVersender_PLZ, [nctsWP_SumAVersend"& _ "er_Land] = @nctsWP_SumAVersender_Land, [nctsWP_SumAEmpfaenger_EORI] = @nctsWP_Su"& _ "mAEmpfaenger_EORI, [nctsWP_SumAEmpfaenger_NLNR] = @nctsWP_SumAEmpfaenger_NLNR, ["& _ "nctsWP_SumAEmpfaenger_TIN] = @nctsWP_SumAEmpfaenger_TIN, [nctsWP_SumAEmpfaenger_"& _ "Name] = @nctsWP_SumAEmpfaenger_Name, [nctsWP_SumAEmpfaenger_StrasseHausnummer] ="& _ " @nctsWP_SumAEmpfaenger_StrasseHausnummer, [nctsWP_SumAEmpfaenger_Ort] = @nctsWP"& _ "_SumAEmpfaenger_Ort, [nctsWP_SumAEmpfaenger_PLZ] = @nctsWP_SumAEmpfaenger_PLZ, ["& _ "nctsWP_SumAEmpfaenger_Land] = @nctsWP_SumAEmpfaenger_Land, [nctsWP_KdRefNr] = @n"& _ "ctsWP_KdRefNr WHERE (([nctsWP_Id] = @Original_nctsWP_Id) AND ([nctsWP_NctsId] = "& _ "@Original_nctsWP_NctsId) AND ((@IsNull_nctsWP_PositionsNummer = 1 AND [nctsWP_Po"& _ "sitionsNummer] IS NULL) OR ([nctsWP_PositionsNummer] = @Original_nctsWP_Position"& _ "sNummer)) AND ((@IsNull_nctsWP_Warennummer = 1 AND [nctsWP_Warennummer] IS NULL)"& _ " OR ([nctsWP_Warennummer] = @Original_nctsWP_Warennummer)) AND ((@IsNull_nctsWP_"& _ "ArtAnmeldungPositionCode = 1 AND [nctsWP_ArtAnmeldungPositionCode] IS NULL) OR ("& _ "[nctsWP_ArtAnmeldungPositionCode] = @Original_nctsWP_ArtAnmeldungPositionCode)) "& _ "AND ((@IsNull_nctsWP_Warenbezeichnung = 1 AND [nctsWP_Warenbezeichnung] IS NULL)"& _ " OR ([nctsWP_Warenbezeichnung] = @Original_nctsWP_Warenbezeichnung)) AND ((@IsNu"& _ "ll_nctsWP_Warenwert = 1 AND [nctsWP_Warenwert] IS NULL) OR ([nctsWP_Warenwert] ="& _ " @Original_nctsWP_Warenwert)) AND ((@IsNull_nctsWP_WarenwertWaehrung = 1 AND [nc"& _ "tsWP_WarenwertWaehrung] IS NULL) OR ([nctsWP_WarenwertWaehrung] = @Original_ncts"& _ "WP_WarenwertWaehrung)) AND ((@IsNull_nctsWP_SchaetzKz = 1 AND [nctsWP_SchaetzKz]"& _ " IS NULL) OR ([nctsWP_SchaetzKz] = @Original_nctsWP_SchaetzKz)) AND ((@IsNull_nc"& _ "tsWP_WarenwertProzent = 1 AND [nctsWP_WarenwertProzent] IS NULL) OR ([nctsWP_War"& _ "enwertProzent] = @Original_nctsWP_WarenwertProzent)) AND ((@IsNull_nctsWP_Versen"& _ "dungslandPositionCode = 1 AND [nctsWP_VersendungslandPositionCode] IS NULL) OR ("& _ "[nctsWP_VersendungslandPositionCode] = @Original_nctsWP_VersendungslandPositionC"& _ "ode)) AND ((@IsNull_nctsWP_BestimmungslandPositionCode = 1 AND [nctsWP_Bestimmun"& _ "gslandPositionCode] IS NULL) OR ([nctsWP_BestimmungslandPositionCode] = @Origina"& _ "l_nctsWP_BestimmungslandPositionCode)) AND ((@IsNull_nctsWP_Rohmasse = 1 AND [nc"& _ "tsWP_Rohmasse] IS NULL) OR ([nctsWP_Rohmasse] = @Original_nctsWP_Rohmasse)) AND "& _ "((@IsNull_nctsWP_Eigenmasse = 1 AND [nctsWP_Eigenmasse] IS NULL) OR ([nctsWP_Eig"& _ "enmasse] = @Original_nctsWP_Eigenmasse)) AND ((@IsNull_nctsWP_VorpapierTyp = 1 A"& _ "ND [nctsWP_VorpapierTyp] IS NULL) OR ([nctsWP_VorpapierTyp] = @Original_nctsWP_V"& _ "orpapierTyp)) AND ((@IsNull_nctsWP_VorpapierReferenz1 = 1 AND [nctsWP_VorpapierR"& _ "eferenz1] IS NULL) OR ([nctsWP_VorpapierReferenz1] = @Original_nctsWP_VorpapierR"& _ "eferenz1)) AND ((@IsNull_nctsWP_VorpapierZusatz1 = 1 AND [nctsWP_VorpapierZusatz"& _ "1] IS NULL) OR ([nctsWP_VorpapierZusatz1] = @Original_nctsWP_VorpapierZusatz1)) "& _ "AND ((@IsNull_nctsWP_VorpapierReferenz2 = 1 AND [nctsWP_VorpapierReferenz2] IS N"& _ "ULL) OR ([nctsWP_VorpapierReferenz2] = @Original_nctsWP_VorpapierReferenz2)) AND"& _ " ((@IsNull_nctsWP_VorpapierZusatz2 = 1 AND [nctsWP_VorpapierZusatz2] IS NULL) OR"& _ " ([nctsWP_VorpapierZusatz2] = @Original_nctsWP_VorpapierZusatz2)) AND ((@IsNull_"& _ "nctsWP_VorpapierReferenz3 = 1 AND [nctsWP_VorpapierReferenz3] IS NULL) OR ([ncts"& _ "WP_VorpapierReferenz3] = @Original_nctsWP_VorpapierReferenz3)) AND ((@IsNull_nct"& _ "sWP_VorpapierZusatz3 = 1 AND [nctsWP_VorpapierZusatz3] IS NULL) OR ([nctsWP_Vorp"& _ "apierZusatz3] = @Original_nctsWP_VorpapierZusatz3)) AND ((@IsNull_nctsWP_Vorpapi"& _ "erReferenz4 = 1 AND [nctsWP_VorpapierReferenz4] IS NULL) OR ([nctsWP_VorpapierRe"& _ "ferenz4] = @Original_nctsWP_VorpapierReferenz4)) AND ((@IsNull_nctsWP_VorpapierZ"& _ "usatz4 = 1 AND [nctsWP_VorpapierZusatz4] IS NULL) OR ([nctsWP_VorpapierZusatz4] "& _ "= @Original_nctsWP_VorpapierZusatz4)) AND ((@IsNull_nctsWP_VorpapierReferenz5 = "& _ "1 AND [nctsWP_VorpapierReferenz5] IS NULL) OR ([nctsWP_VorpapierReferenz5] = @Or"& _ "iginal_nctsWP_VorpapierReferenz5)) AND ((@IsNull_nctsWP_VorpapierZusatz5 = 1 AND"& _ " [nctsWP_VorpapierZusatz5] IS NULL) OR ([nctsWP_VorpapierZusatz5] = @Original_nc"& _ "tsWP_VorpapierZusatz5)) AND ((@IsNull_nctsWP_VorpapierReferenz6 = 1 AND [nctsWP_"& _ "VorpapierReferenz6] IS NULL) OR ([nctsWP_VorpapierReferenz6] = @Original_nctsWP_"& _ "VorpapierReferenz6)) AND ((@IsNull_nctsWP_VorpapierZusatz6 = 1 AND [nctsWP_Vorpa"& _ "pierZusatz6] IS NULL) OR ([nctsWP_VorpapierZusatz6] = @Original_nctsWP_Vorpapier"& _ "Zusatz6)) AND ((@IsNull_nctsWP_VorpapierReferenz7 = 1 AND [nctsWP_VorpapierRefer"& _ "enz7] IS NULL) OR ([nctsWP_VorpapierReferenz7] = @Original_nctsWP_VorpapierRefer"& _ "enz7)) AND ((@IsNull_nctsWP_VorpapierZusatz7 = 1 AND [nctsWP_VorpapierZusatz7] I"& _ "S NULL) OR ([nctsWP_VorpapierZusatz7] = @Original_nctsWP_VorpapierZusatz7)) AND "& _ "((@IsNull_nctsWP_VorpapierReferenz8 = 1 AND [nctsWP_VorpapierReferenz8] IS NULL)"& _ " OR ([nctsWP_VorpapierReferenz8] = @Original_nctsWP_VorpapierReferenz8)) AND ((@"& _ "IsNull_nctsWP_VorpapierZusatz8 = 1 AND [nctsWP_VorpapierZusatz8] IS NULL) OR ([n"& _ "ctsWP_VorpapierZusatz8] = @Original_nctsWP_VorpapierZusatz8)) AND ((@IsNull_ncts"& _ "WP_VorpapierReferenz9 = 1 AND [nctsWP_VorpapierReferenz9] IS NULL) OR ([nctsWP_V"& _ "orpapierReferenz9] = @Original_nctsWP_VorpapierReferenz9)) AND ((@IsNull_nctsWP_"& _ "VorpapierZusatz9 = 1 AND [nctsWP_VorpapierZusatz9] IS NULL) OR ([nctsWP_Vorpapie"& _ "rZusatz9] = @Original_nctsWP_VorpapierZusatz9)) AND ((@IsNull_nctsWP_BesondereVe"& _ "rmeke_ExportAusEU = 1 AND [nctsWP_BesondereVermeke_ExportAusEU] IS NULL) OR ([nc"& _ "tsWP_BesondereVermeke_ExportAusEU] = @Original_nctsWP_BesondereVermeke_ExportAus"& _ "EU)) AND ((@IsNull_nctsWP_BesondereVermeke_ExportAusLand = 1 AND [nctsWP_Besonde"& _ "reVermeke_ExportAusLand] IS NULL) OR ([nctsWP_BesondereVermeke_ExportAusLand] = "& _ "@Original_nctsWP_BesondereVermeke_ExportAusLand)) AND ((@IsNull_nctsWP_Besondere"& _ "Vermeke_Export = 1 AND [nctsWP_BesondereVermeke_Export] IS NULL) OR ([nctsWP_Bes"& _ "ondereVermeke_Export] = @Original_nctsWP_BesondereVermeke_Export)) AND ((@IsNull"& _ "_nctsWP_BesondereVermeke_ExportBeschraenkung = 1 AND [nctsWP_BesondereVermeke_Ex"& _ "portBeschraenkung] IS NULL) OR ([nctsWP_BesondereVermeke_ExportBeschraenkung] = "& _ "@Original_nctsWP_BesondereVermeke_ExportBeschraenkung)) AND ((@IsNull_nctsWP_Bes"& _ "ondereVermeke_ExportAbgaben = 1 AND [nctsWP_BesondereVermeke_ExportAbgaben] IS N"& _ "ULL) OR ([nctsWP_BesondereVermeke_ExportAbgaben] = @Original_nctsWP_BesondereVer"& _ "meke_ExportAbgaben)) AND ((@IsNull_nctsWP_BesondereVermeke_Vermerk = 1 AND [ncts"& _ "WP_BesondereVermeke_Vermerk] IS NULL) OR ([nctsWP_BesondereVermeke_Vermerk] = @O"& _ "riginal_nctsWP_BesondereVermeke_Vermerk)) AND ((@IsNull_nctsWP_BesondereVermeke_"& _ "Kz10600 = 1 AND [nctsWP_BesondereVermeke_Kz10600] IS NULL) OR ([nctsWP_Besondere"& _ "Vermeke_Kz10600] = @Original_nctsWP_BesondereVermeke_Kz10600)) AND ((@IsNull_nct"& _ "sWP_Versender_EORI = 1 AND [nctsWP_Versender_EORI] IS NULL) OR ([nctsWP_Versende"& _ "r_EORI] = @Original_nctsWP_Versender_EORI)) AND ((@IsNull_nctsWP_Versender_NLNR "& _ "= 1 AND [nctsWP_Versender_NLNR] IS NULL) OR ([nctsWP_Versender_NLNR] = @Original"& _ "_nctsWP_Versender_NLNR)) AND ((@IsNull_nctsWP_Versender_TIN = 1 AND [nctsWP_Vers"& _ "ender_TIN] IS NULL) OR ([nctsWP_Versender_TIN] = @Original_nctsWP_Versender_TIN)"& _ ") AND ((@IsNull_nctsWP_Versender_Name = 1 AND [nctsWP_Versender_Name] IS NULL) O"& _ "R ([nctsWP_Versender_Name] = @Original_nctsWP_Versender_Name)) AND ((@IsNull_nct"& _ "sWP_Versender_StrasseHausnummer = 1 AND [nctsWP_Versender_StrasseHausnummer] IS "& _ "NULL) OR ([nctsWP_Versender_StrasseHausnummer] = @Original_nctsWP_Versender_Stra"& _ "sseHausnummer)) AND ((@IsNull_nctsWP_Versender_Ort = 1 AND [nctsWP_Versender_Ort"& _ "] IS NULL) OR ([nctsWP_Versender_Ort] = @Original_nctsWP_Versender_Ort)) AND ((@"& _ "IsNull_nctsWP_Versender_PLZ = 1 AND [nctsWP_Versender_PLZ] IS NULL) OR ([nctsWP_"& _ "Versender_PLZ] = @Original_nctsWP_Versender_PLZ)) AND ((@IsNull_nctsWP_Versender"& _ "_Land = 1 AND [nctsWP_Versender_Land] IS NULL) OR ([nctsWP_Versender_Land] = @Or"& _ "iginal_nctsWP_Versender_Land)) AND ((@IsNull_nctsWP_Empfaenger_EORI = 1 AND [nct"& _ "sWP_Empfaenger_EORI] IS NULL) OR ([nctsWP_Empfaenger_EORI] = @Original_nctsWP_Em"& _ "pfaenger_EORI)) AND ((@IsNull_nctsWP_Empfaenger_NLNR = 1 AND [nctsWP_Empfaenger_"& _ "NLNR] IS NULL) OR ([nctsWP_Empfaenger_NLNR] = @Original_nctsWP_Empfaenger_NLNR))"& _ " AND ((@IsNull_nctsWP_Empfaenger_TIN = 1 AND [nctsWP_Empfaenger_TIN] IS NULL) OR"& _ " ([nctsWP_Empfaenger_TIN] = @Original_nctsWP_Empfaenger_TIN)) AND ((@IsNull_ncts"& _ "WP_Empfaenger_Name = 1 AND [nctsWP_Empfaenger_Name] IS NULL) OR ([nctsWP_Empfaen"& _ "ger_Name] = @Original_nctsWP_Empfaenger_Name)) AND ((@IsNull_nctsWP_Empfaenger_S"& _ "trasseHausnummer = 1 AND [nctsWP_Empfaenger_StrasseHausnummer] IS NULL) OR ([nct"& _ "sWP_Empfaenger_StrasseHausnummer] = @Original_nctsWP_Empfaenger_StrasseHausnumme"& _ "r)) AND ((@IsNull_nctsWP_Empfaenger_Ort = 1 AND [nctsWP_Empfaenger_Ort] IS NULL)"& _ " OR ([nctsWP_Empfaenger_Ort] = @Original_nctsWP_Empfaenger_Ort)) AND ((@IsNull_n"& _ "ctsWP_Empfaenger_PLZ = 1 AND [nctsWP_Empfaenger_PLZ] IS NULL) OR ([nctsWP_Empfae"& _ "nger_PLZ] = @Original_nctsWP_Empfaenger_PLZ)) AND ((@IsNull_nctsWP_Empfaenger_La"& _ "nd = 1 AND [nctsWP_Empfaenger_Land] IS NULL) OR ([nctsWP_Empfaenger_Land] = @Ori"& _ "ginal_nctsWP_Empfaenger_Land)) AND ((@IsNull_nctsWP_SumAKennnummerSendung = 1 AN"& _ "D [nctsWP_SumAKennnummerSendung] IS NULL) OR ([nctsWP_SumAKennnummerSendung] = @"& _ "Original_nctsWP_SumAKennnummerSendung)) AND ((@IsNull_nctsWP_SumABefoerderungsko"& _ "stenZahlungsweise = 1 AND [nctsWP_SumABefoerderungskostenZahlungsweise] IS NULL)"& _ " OR ([nctsWP_SumABefoerderungskostenZahlungsweise] = @Original_nctsWP_SumABefoer"& _ "derungskostenZahlungsweise)) AND ((@IsNull_nctsWP_SumAUNGefahrgutnummer = 1 AND "& _ "[nctsWP_SumAUNGefahrgutnummer] IS NULL) OR ([nctsWP_SumAUNGefahrgutnummer] = @Or"& _ "iginal_nctsWP_SumAUNGefahrgutnummer)) AND ((@IsNull_nctsWP_SumAVersender_EORI = "& _ "1 AND [nctsWP_SumAVersender_EORI] IS NULL) OR ([nctsWP_SumAVersender_EORI] = @Or"& _ "iginal_nctsWP_SumAVersender_EORI)) AND ((@IsNull_nctsWP_SumAVersender_NLNR = 1 A"& _ "ND [nctsWP_SumAVersender_NLNR] IS NULL) OR ([nctsWP_SumAVersender_NLNR] = @Origi"& _ "nal_nctsWP_SumAVersender_NLNR)) AND ((@IsNull_nctsWP_SumAVersender_TIN = 1 AND ["& _ "nctsWP_SumAVersender_TIN] IS NULL) OR ([nctsWP_SumAVersender_TIN] = @Original_nc"& _ "tsWP_SumAVersender_TIN)) AND ((@IsNull_nctsWP_SumAVersender_Name = 1 AND [nctsWP"& _ "_SumAVersender_Name] IS NULL) OR ([nctsWP_SumAVersender_Name] = @Original_nctsWP"& _ "_SumAVersender_Name)) AND ((@IsNull_nctsWP_SumAVersender_StrasseHausnummer = 1 A"& _ "ND [nctsWP_SumAVersender_StrasseHausnummer] IS NULL) OR ([nctsWP_SumAVersender_S"& _ "trasseHausnummer] = @Original_nctsWP_SumAVersender_StrasseHausnummer)) AND ((@Is"& _ "Null_nctsWP_SumAVersender_Ort = 1 AND [nctsWP_SumAVersender_Ort] IS NULL) OR ([n"& _ "ctsWP_SumAVersender_Ort] = @Original_nctsWP_SumAVersender_Ort)) AND ((@IsNull_nc"& _ "tsWP_SumAVersender_PLZ = 1 AND [nctsWP_SumAVersender_PLZ] IS NULL) OR ([nctsWP_S"& _ "umAVersender_PLZ] = @Original_nctsWP_SumAVersender_PLZ)) AND ((@IsNull_nctsWP_Su"& _ "mAVersender_Land = 1 AND [nctsWP_SumAVersender_Land] IS NULL) OR ([nctsWP_SumAVe"& _ "rsender_Land] = @Original_nctsWP_SumAVersender_Land)) AND ((@IsNull_nctsWP_SumAE"& _ "mpfaenger_EORI = 1 AND [nctsWP_SumAEmpfaenger_EORI] IS NULL) OR ([nctsWP_SumAEmp"& _ "faenger_EORI] = @Original_nctsWP_SumAEmpfaenger_EORI)) AND ((@IsNull_nctsWP_SumA"& _ "Empfaenger_NLNR = 1 AND [nctsWP_SumAEmpfaenger_NLNR] IS NULL) OR ([nctsWP_SumAEm"& _ "pfaenger_NLNR] = @Original_nctsWP_SumAEmpfaenger_NLNR)) AND ((@IsNull_nctsWP_Sum"& _ "AEmpfaenger_TIN = 1 AND [nctsWP_SumAEmpfaenger_TIN] IS NULL) OR ([nctsWP_SumAEmp"& _ "faenger_TIN] = @Original_nctsWP_SumAEmpfaenger_TIN)) AND ((@IsNull_nctsWP_SumAEm"& _ "pfaenger_Name = 1 AND [nctsWP_SumAEmpfaenger_Name] IS NULL) OR ([nctsWP_SumAEmpf"& _ "aenger_Name] = @Original_nctsWP_SumAEmpfaenger_Name)) AND ((@IsNull_nctsWP_SumAE"& _ "mpfaenger_StrasseHausnummer = 1 AND [nctsWP_SumAEmpfaenger_StrasseHausnummer] IS"& _ " NULL) OR ([nctsWP_SumAEmpfaenger_StrasseHausnummer] = @Original_nctsWP_SumAEmpf"& _ "aenger_StrasseHausnummer)) AND ((@IsNull_nctsWP_SumAEmpfaenger_Ort = 1 AND [ncts"& _ "WP_SumAEmpfaenger_Ort] IS NULL) OR ([nctsWP_SumAEmpfaenger_Ort] = @Original_ncts"& _ "WP_SumAEmpfaenger_Ort)) AND ((@IsNull_nctsWP_SumAEmpfaenger_PLZ = 1 AND [nctsWP_"& _ "SumAEmpfaenger_PLZ] IS NULL) OR ([nctsWP_SumAEmpfaenger_PLZ] = @Original_nctsWP_"& _ "SumAEmpfaenger_PLZ)) AND ((@IsNull_nctsWP_SumAEmpfaenger_Land = 1 AND [nctsWP_Su"& _ "mAEmpfaenger_Land] IS NULL) OR ([nctsWP_SumAEmpfaenger_Land] = @Original_nctsWP_"& _ "SumAEmpfaenger_Land)) AND ((@IsNull_nctsWP_KdRefNr = 1 AND [nctsWP_KdRefNr] IS N"& _ "ULL) OR ([nctsWP_KdRefNr] = @Original_nctsWP_KdRefNr)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsWP_Id, ncts"& _ "WP_NctsId, nctsWP_PositionsNummer, nctsWP_Warennummer, nctsWP_ArtAnmeldungPositi"& _ "onCode, nctsWP_Warenbezeichnung, nctsWP_Warenwert, nctsWP_WarenwertWaehrung, nct"& _ "sWP_SchaetzKz, nctsWP_WarenwertProzent, nctsWP_VersendungslandPositionCode, ncts"& _ "WP_BestimmungslandPositionCode, nctsWP_Rohmasse, nctsWP_Eigenmasse, nctsWP_Vorpa"& _ "pierTyp, nctsWP_VorpapierReferenz1, nctsWP_VorpapierZusatz1, nctsWP_VorpapierRef"& _ "erenz2, nctsWP_VorpapierZusatz2, nctsWP_VorpapierReferenz3, nctsWP_VorpapierZusa"& _ "tz3, nctsWP_VorpapierReferenz4, nctsWP_VorpapierZusatz4, nctsWP_VorpapierReferen"& _ "z5, nctsWP_VorpapierZusatz5, nctsWP_VorpapierReferenz6, nctsWP_VorpapierZusatz6,"& _ " nctsWP_VorpapierReferenz7, nctsWP_VorpapierZusatz7, nctsWP_VorpapierReferenz8, "& _ "nctsWP_VorpapierZusatz8, nctsWP_VorpapierReferenz9, nctsWP_VorpapierZusatz9, nct"& _ "sWP_BesondereVermeke_ExportAusEU, nctsWP_BesondereVermeke_ExportAusLand, nctsWP_"& _ "BesondereVermeke_Export, nctsWP_BesondereVermeke_ExportBeschraenkung, nctsWP_Bes"& _ "ondereVermeke_ExportAbgaben, nctsWP_BesondereVermeke_Vermerk, nctsWP_BesondereVe"& _ "rmeke_Kz10600, nctsWP_Versender_EORI, nctsWP_Versender_NLNR, nctsWP_Versender_TI"& _ "N, nctsWP_Versender_Name, nctsWP_Versender_StrasseHausnummer, nctsWP_Versender_O"& _ "rt, nctsWP_Versender_PLZ, nctsWP_Versender_Land, nctsWP_Empfaenger_EORI, nctsWP_"& _ "Empfaenger_NLNR, nctsWP_Empfaenger_TIN, nctsWP_Empfaenger_Name, nctsWP_Empfaenge"& _ "r_StrasseHausnummer, nctsWP_Empfaenger_Ort, nctsWP_Empfaenger_PLZ, nctsWP_Empfae"& _ "nger_Land, nctsWP_SumAKennnummerSendung, nctsWP_SumABefoerderungskostenZahlungsw"& _ "eise, nctsWP_SumAUNGefahrgutnummer, nctsWP_SumAVersender_EORI, nctsWP_SumAVersen"& _ "der_NLNR, nctsWP_SumAVersender_TIN, nctsWP_SumAVersender_Name, nctsWP_SumAVersen"& _ "der_StrasseHausnummer, nctsWP_SumAVersender_Ort, nctsWP_SumAVersender_PLZ, nctsW"& _ "P_SumAVersender_Land, nctsWP_SumAEmpfaenger_EORI, nctsWP_SumAEmpfaenger_NLNR, nc"& _ "tsWP_SumAEmpfaenger_TIN, nctsWP_SumAEmpfaenger_Name, nctsWP_SumAEmpfaenger_Stras"& _ "seHausnummer, nctsWP_SumAEmpfaenger_Ort, nctsWP_SumAEmpfaenger_PLZ, nctsWP_SumAE"& _ "mpfaenger_Land, nctsWP_KdRefNr FROM tblNCTS_TR_Warenposition WHERE (nctsWP_Id = "& _ "@nctsWP_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Warenwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SchaetzKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_KdRefNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_PositionsNummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_PositionsNummer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 0, "nctsWP_PositionsNummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_ArtAnmeldungPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_ArtAnmeldungPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Warenwert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Warenwert", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "nctsWP_Warenwert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_WarenwertWaehrung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertWaehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SchaetzKz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SchaetzKz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SchaetzKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_WarenwertProzent", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 7, 2, "nctsWP_WarenwertProzent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VersendungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VersendungslandPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BestimmungslandPositionCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BestimmungslandPositionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Rohmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Rohmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Eigenmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Eigenmasse", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 3, "nctsWP_Eigenmasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierTyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierTyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierReferenz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierReferenz9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_VorpapierZusatz9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_VorpapierZusatz9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusEU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAusLand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Export", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Export", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportBeschraenkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_ExportAbgaben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Vermerk", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Vermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_BesondereVermeke_Kz10600", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_BesondereVermeke_Kz10600", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Versender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Versender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Versender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_Empfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Empfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAKennnummerSendung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAKennnummerSendung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumABefoerderungskostenZahlungsweise", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAUNGefahrgutnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAUNGefahrgutnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAVersender_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAVersender_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_StrasseHausnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_PLZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_SumAEmpfaenger_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_SumAEmpfaenger_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWP_KdRefNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWP_KdRefNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_KdRefNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWP_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWP_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsWP_Id, nctsWP_NctsId, nctsWP_PositionsNummer, nctsWP_Warennummer, ncts"& _ "WP_ArtAnmeldungPositionCode, nctsWP_Warenbezeichnung, nctsWP_Warenwert, nctsWP_W"& _ "arenwertWaehrung, nctsWP_SchaetzKz, nctsWP_WarenwertProzent, nctsWP_Versendungsl"& _ "andPositionCode, nctsWP_BestimmungslandPositionCode, nctsWP_Rohmasse, nctsWP_Eig"& _ "enmasse, nctsWP_VorpapierTyp, nctsWP_VorpapierReferenz1, nctsWP_VorpapierZusatz1"& _ ", nctsWP_VorpapierReferenz2, nctsWP_VorpapierZusatz2, nctsWP_VorpapierReferenz3,"& _ " nctsWP_VorpapierZusatz3, nctsWP_VorpapierReferenz4, nctsWP_VorpapierZusatz4, nc"& _ "tsWP_VorpapierReferenz5, nctsWP_VorpapierZusatz5, nctsWP_VorpapierReferenz6, nct"& _ "sWP_VorpapierZusatz6, nctsWP_VorpapierReferenz7, nctsWP_VorpapierZusatz7, nctsWP"& _ "_VorpapierReferenz8, nctsWP_VorpapierZusatz8, nctsWP_VorpapierReferenz9, nctsWP_"& _ "VorpapierZusatz9, nctsWP_BesondereVermeke_ExportAusEU, nctsWP_BesondereVermeke_E"& _ "xportAusLand, nctsWP_BesondereVermeke_Export, nctsWP_BesondereVermeke_ExportBesc"& _ "hraenkung, nctsWP_BesondereVermeke_ExportAbgaben, nctsWP_BesondereVermeke_Vermer"& _ "k, nctsWP_BesondereVermeke_Kz10600, nctsWP_Versender_EORI, nctsWP_Versender_NLNR"& _ ", nctsWP_Versender_TIN, nctsWP_Versender_Name, nctsWP_Versender_StrasseHausnumme"& _ "r, nctsWP_Versender_Ort, nctsWP_Versender_PLZ, nctsWP_Versender_Land, nctsWP_Emp"& _ "faenger_EORI, nctsWP_Empfaenger_NLNR, nctsWP_Empfaenger_TIN, nctsWP_Empfaenger_N"& _ "ame, nctsWP_Empfaenger_StrasseHausnummer, nctsWP_Empfaenger_Ort, nctsWP_Empfaeng"& _ "er_PLZ, nctsWP_Empfaenger_Land, nctsWP_SumAKennnummerSendung, nctsWP_SumABefoerd"& _ "erungskostenZahlungsweise, nctsWP_SumAUNGefahrgutnummer, nctsWP_SumAVersender_EO"& _ "RI, nctsWP_SumAVersender_NLNR, nctsWP_SumAVersender_TIN, nctsWP_SumAVersender_Na"& _ "me, nctsWP_SumAVersender_StrasseHausnummer, nctsWP_SumAVersender_Ort, nctsWP_Sum"& _ "AVersender_PLZ, nctsWP_SumAVersender_Land, nctsWP_SumAEmpfaenger_EORI, nctsWP_Su"& _ "mAEmpfaenger_NLNR, nctsWP_SumAEmpfaenger_TIN, nctsWP_SumAEmpfaenger_Name, nctsWP"& _ "_SumAEmpfaenger_StrasseHausnummer, nctsWP_SumAEmpfaenger_Ort, nctsWP_SumAEmpfaen"& _ "ger_PLZ, nctsWP_SumAEmpfaenger_Land, nctsWP_KdRefNr FROM dbo.tblNCTS_TR_Warenpos"& _ "ition" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblNCTS_TR_WarenpositionDataTable) 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 VERAGDataSet.tblNCTS_TR_WarenpositionDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblNCTS_TR_WarenpositionDataTable = New VERAGDataSet.tblNCTS_TR_WarenpositionDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblNCTS_TR_WarenpositionDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblNCTS_TR_Warenposition") 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_nctsWP_Id As Integer, _ ByVal Original_nctsWP_NctsId As Integer, _ ByVal Original_nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Warennummer As String, _ ByVal Original_nctsWP_ArtAnmeldungPositionCode As String, _ ByVal Original_nctsWP_Warenbezeichnung As String, _ ByVal Original_nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_WarenwertWaehrung As String, _ ByVal Original_nctsWP_SchaetzKz As String, _ ByVal Original_nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VersendungslandPositionCode As String, _ ByVal Original_nctsWP_BestimmungslandPositionCode As String, _ ByVal Original_nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VorpapierTyp As String, _ ByVal Original_nctsWP_VorpapierReferenz1 As String, _ ByVal Original_nctsWP_VorpapierZusatz1 As String, _ ByVal Original_nctsWP_VorpapierReferenz2 As String, _ ByVal Original_nctsWP_VorpapierZusatz2 As String, _ ByVal Original_nctsWP_VorpapierReferenz3 As String, _ ByVal Original_nctsWP_VorpapierZusatz3 As String, _ ByVal Original_nctsWP_VorpapierReferenz4 As String, _ ByVal Original_nctsWP_VorpapierZusatz4 As String, _ ByVal Original_nctsWP_VorpapierReferenz5 As String, _ ByVal Original_nctsWP_VorpapierZusatz5 As String, _ ByVal Original_nctsWP_VorpapierReferenz6 As String, _ ByVal Original_nctsWP_VorpapierZusatz6 As String, _ ByVal Original_nctsWP_VorpapierReferenz7 As String, _ ByVal Original_nctsWP_VorpapierZusatz7 As String, _ ByVal Original_nctsWP_VorpapierReferenz8 As String, _ ByVal Original_nctsWP_VorpapierZusatz8 As String, _ ByVal Original_nctsWP_VorpapierReferenz9 As String, _ ByVal Original_nctsWP_VorpapierZusatz9 As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal Original_nctsWP_BesondereVermeke_Export As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal Original_nctsWP_BesondereVermeke_Vermerk As String, _ ByVal Original_nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal Original_nctsWP_Versender_EORI As String, _ ByVal Original_nctsWP_Versender_NLNR As String, _ ByVal Original_nctsWP_Versender_TIN As String, _ ByVal Original_nctsWP_Versender_Name As String, _ ByVal Original_nctsWP_Versender_StrasseHausnummer As String, _ ByVal Original_nctsWP_Versender_Ort As String, _ ByVal Original_nctsWP_Versender_PLZ As String, _ ByVal Original_nctsWP_Versender_Land As String, _ ByVal Original_nctsWP_Empfaenger_EORI As String, _ ByVal Original_nctsWP_Empfaenger_NLNR As String, _ ByVal Original_nctsWP_Empfaenger_TIN As String, _ ByVal Original_nctsWP_Empfaenger_Name As String, _ ByVal Original_nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_Empfaenger_Ort As String, _ ByVal Original_nctsWP_Empfaenger_PLZ As String, _ ByVal Original_nctsWP_Empfaenger_Land As String, _ ByVal Original_nctsWP_SumAKennnummerSendung As String, _ ByVal Original_nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal Original_nctsWP_SumAUNGefahrgutnummer As String, _ ByVal Original_nctsWP_SumAVersender_EORI As String, _ ByVal Original_nctsWP_SumAVersender_NLNR As String, _ ByVal Original_nctsWP_SumAVersender_TIN As String, _ ByVal Original_nctsWP_SumAVersender_Name As String, _ ByVal Original_nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAVersender_Ort As String, _ ByVal Original_nctsWP_SumAVersender_PLZ As String, _ ByVal Original_nctsWP_SumAVersender_Land As String, _ ByVal Original_nctsWP_SumAEmpfaenger_EORI As String, _ ByVal Original_nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal Original_nctsWP_SumAEmpfaenger_TIN As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Name As String, _ ByVal Original_nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Ort As String, _ ByVal Original_nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Land As String, _ ByVal Original_nctsWP_KdRefNr As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsWP_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsWP_NctsId,Integer) If (Original_nctsWP_PositionsNummer.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_nctsWP_PositionsNummer.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_nctsWP_Warennummer 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_nctsWP_Warennummer,String) End If If (Original_nctsWP_ArtAnmeldungPositionCode 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_nctsWP_ArtAnmeldungPositionCode,String) End If If (Original_nctsWP_Warenbezeichnung 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_nctsWP_Warenbezeichnung,String) End If If (Original_nctsWP_Warenwert.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_nctsWP_Warenwert.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Original_nctsWP_WarenwertWaehrung 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_nctsWP_WarenwertWaehrung,String) End If If (Original_nctsWP_SchaetzKz Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_nctsWP_SchaetzKz,String) End If If (Original_nctsWP_WarenwertProzent.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_nctsWP_WarenwertProzent.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_nctsWP_VersendungslandPositionCode 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_nctsWP_VersendungslandPositionCode,String) End If If (Original_nctsWP_BestimmungslandPositionCode 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_nctsWP_BestimmungslandPositionCode,String) End If If (Original_nctsWP_Rohmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_nctsWP_Rohmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_nctsWP_Eigenmasse.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_nctsWP_Eigenmasse.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_nctsWP_VorpapierTyp 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_nctsWP_VorpapierTyp,String) End If If (Original_nctsWP_VorpapierReferenz1 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_nctsWP_VorpapierReferenz1,String) End If If (Original_nctsWP_VorpapierZusatz1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_nctsWP_VorpapierZusatz1,String) End If If (Original_nctsWP_VorpapierReferenz2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_nctsWP_VorpapierReferenz2,String) End If If (Original_nctsWP_VorpapierZusatz2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_nctsWP_VorpapierZusatz2,String) End If If (Original_nctsWP_VorpapierReferenz3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_nctsWP_VorpapierReferenz3,String) End If If (Original_nctsWP_VorpapierZusatz3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_nctsWP_VorpapierZusatz3,String) End If If (Original_nctsWP_VorpapierReferenz4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_nctsWP_VorpapierReferenz4,String) End If If (Original_nctsWP_VorpapierZusatz4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_nctsWP_VorpapierZusatz4,String) End If If (Original_nctsWP_VorpapierReferenz5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_nctsWP_VorpapierReferenz5,String) End If If (Original_nctsWP_VorpapierZusatz5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_nctsWP_VorpapierZusatz5,String) End If If (Original_nctsWP_VorpapierReferenz6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_nctsWP_VorpapierReferenz6,String) End If If (Original_nctsWP_VorpapierZusatz6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_nctsWP_VorpapierZusatz6,String) End If If (Original_nctsWP_VorpapierReferenz7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_nctsWP_VorpapierReferenz7,String) End If If (Original_nctsWP_VorpapierZusatz7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = CType(Original_nctsWP_VorpapierZusatz7,String) End If If (Original_nctsWP_VorpapierReferenz8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = CType(Original_nctsWP_VorpapierReferenz8,String) End If If (Original_nctsWP_VorpapierZusatz8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_nctsWP_VorpapierZusatz8,String) End If If (Original_nctsWP_VorpapierReferenz9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_nctsWP_VorpapierReferenz9,String) End If If (Original_nctsWP_VorpapierZusatz9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_nctsWP_VorpapierZusatz9,String) End If If (Original_nctsWP_BesondereVermeke_ExportAusEU Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_nctsWP_BesondereVermeke_ExportAusEU,String) End If If (Original_nctsWP_BesondereVermeke_ExportAusLand Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_nctsWP_BesondereVermeke_ExportAusLand,String) End If If (Original_nctsWP_BesondereVermeke_Export Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = CType(Original_nctsWP_BesondereVermeke_Export,String) End If If (Original_nctsWP_BesondereVermeke_ExportBeschraenkung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = CType(Original_nctsWP_BesondereVermeke_ExportBeschraenkung,String) End If If (Original_nctsWP_BesondereVermeke_ExportAbgaben Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = CType(Original_nctsWP_BesondereVermeke_ExportAbgaben,String) End If If (Original_nctsWP_BesondereVermeke_Vermerk Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = CType(Original_nctsWP_BesondereVermeke_Vermerk,String) End If If (Original_nctsWP_BesondereVermeke_Kz10600 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = CType(Original_nctsWP_BesondereVermeke_Kz10600,String) End If If (Original_nctsWP_Versender_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = CType(Original_nctsWP_Versender_EORI,String) End If If (Original_nctsWP_Versender_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = CType(Original_nctsWP_Versender_NLNR,String) End If If (Original_nctsWP_Versender_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = CType(Original_nctsWP_Versender_TIN,String) End If If (Original_nctsWP_Versender_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = CType(Original_nctsWP_Versender_Name,String) End If If (Original_nctsWP_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = CType(Original_nctsWP_Versender_StrasseHausnummer,String) End If If (Original_nctsWP_Versender_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = CType(Original_nctsWP_Versender_Ort,String) End If If (Original_nctsWP_Versender_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = CType(Original_nctsWP_Versender_PLZ,String) End If If (Original_nctsWP_Versender_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(93).Value = CType(Original_nctsWP_Versender_Land,String) End If If (Original_nctsWP_Empfaenger_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = CType(Original_nctsWP_Empfaenger_EORI,String) End If If (Original_nctsWP_Empfaenger_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(97).Value = CType(Original_nctsWP_Empfaenger_NLNR,String) End If If (Original_nctsWP_Empfaenger_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = CType(Original_nctsWP_Empfaenger_TIN,String) End If If (Original_nctsWP_Empfaenger_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = CType(Original_nctsWP_Empfaenger_Name,String) End If If (Original_nctsWP_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = CType(Original_nctsWP_Empfaenger_StrasseHausnummer,String) End If If (Original_nctsWP_Empfaenger_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = CType(Original_nctsWP_Empfaenger_Ort,String) End If If (Original_nctsWP_Empfaenger_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = CType(Original_nctsWP_Empfaenger_PLZ,String) End If If (Original_nctsWP_Empfaenger_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = CType(Original_nctsWP_Empfaenger_Land,String) End If If (Original_nctsWP_SumAKennnummerSendung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = CType(Original_nctsWP_SumAKennnummerSendung,String) End If If (Original_nctsWP_SumABefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = CType(Original_nctsWP_SumABefoerderungskostenZahlungsweise,String) End If If (Original_nctsWP_SumAUNGefahrgutnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = CType(Original_nctsWP_SumAUNGefahrgutnummer,String) End If If (Original_nctsWP_SumAVersender_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = CType(Original_nctsWP_SumAVersender_EORI,String) End If If (Original_nctsWP_SumAVersender_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = CType(Original_nctsWP_SumAVersender_NLNR,String) End If If (Original_nctsWP_SumAVersender_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = CType(Original_nctsWP_SumAVersender_TIN,String) End If If (Original_nctsWP_SumAVersender_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = CType(Original_nctsWP_SumAVersender_Name,String) End If If (Original_nctsWP_SumAVersender_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = CType(Original_nctsWP_SumAVersender_StrasseHausnummer,String) End If If (Original_nctsWP_SumAVersender_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = CType(Original_nctsWP_SumAVersender_Ort,String) End If If (Original_nctsWP_SumAVersender_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = CType(Original_nctsWP_SumAVersender_PLZ,String) End If If (Original_nctsWP_SumAVersender_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = CType(Original_nctsWP_SumAVersender_Land,String) End If If (Original_nctsWP_SumAEmpfaenger_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = CType(Original_nctsWP_SumAEmpfaenger_EORI,String) End If If (Original_nctsWP_SumAEmpfaenger_NLNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = CType(Original_nctsWP_SumAEmpfaenger_NLNR,String) End If If (Original_nctsWP_SumAEmpfaenger_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(136).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(136).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = CType(Original_nctsWP_SumAEmpfaenger_TIN,String) End If If (Original_nctsWP_SumAEmpfaenger_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(138).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(138).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = CType(Original_nctsWP_SumAEmpfaenger_Name,String) End If If (Original_nctsWP_SumAEmpfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(140).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(140).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(141).Value = CType(Original_nctsWP_SumAEmpfaenger_StrasseHausnummer,String) End If If (Original_nctsWP_SumAEmpfaenger_Ort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(142).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(142).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(143).Value = CType(Original_nctsWP_SumAEmpfaenger_Ort,String) End If If (Original_nctsWP_SumAEmpfaenger_PLZ Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(144).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(144).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = CType(Original_nctsWP_SumAEmpfaenger_PLZ,String) End If If (Original_nctsWP_SumAEmpfaenger_Land Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(146).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(146).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = CType(Original_nctsWP_SumAEmpfaenger_Land,String) End If If (Original_nctsWP_KdRefNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(148).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(148).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(149).Value = CType(Original_nctsWP_KdRefNr,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 nctsWP_NctsId As Integer, _ ByVal nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Warennummer As String, _ ByVal nctsWP_ArtAnmeldungPositionCode As String, _ ByVal nctsWP_Warenbezeichnung As String, _ ByVal nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_WarenwertWaehrung As String, _ ByVal nctsWP_SchaetzKz As String, _ ByVal nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VersendungslandPositionCode As String, _ ByVal nctsWP_BestimmungslandPositionCode As String, _ ByVal nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VorpapierTyp As String, _ ByVal nctsWP_VorpapierReferenz1 As String, _ ByVal nctsWP_VorpapierZusatz1 As String, _ ByVal nctsWP_VorpapierReferenz2 As String, _ ByVal nctsWP_VorpapierZusatz2 As String, _ ByVal nctsWP_VorpapierReferenz3 As String, _ ByVal nctsWP_VorpapierZusatz3 As String, _ ByVal nctsWP_VorpapierReferenz4 As String, _ ByVal nctsWP_VorpapierZusatz4 As String, _ ByVal nctsWP_VorpapierReferenz5 As String, _ ByVal nctsWP_VorpapierZusatz5 As String, _ ByVal nctsWP_VorpapierReferenz6 As String, _ ByVal nctsWP_VorpapierZusatz6 As String, _ ByVal nctsWP_VorpapierReferenz7 As String, _ ByVal nctsWP_VorpapierZusatz7 As String, _ ByVal nctsWP_VorpapierReferenz8 As String, _ ByVal nctsWP_VorpapierZusatz8 As String, _ ByVal nctsWP_VorpapierReferenz9 As String, _ ByVal nctsWP_VorpapierZusatz9 As String, _ ByVal nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal nctsWP_BesondereVermeke_Export As String, _ ByVal nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal nctsWP_BesondereVermeke_Vermerk As String, _ ByVal nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal nctsWP_Versender_EORI As String, _ ByVal nctsWP_Versender_NLNR As String, _ ByVal nctsWP_Versender_TIN As String, _ ByVal nctsWP_Versender_Name As String, _ ByVal nctsWP_Versender_StrasseHausnummer As String, _ ByVal nctsWP_Versender_Ort As String, _ ByVal nctsWP_Versender_PLZ As String, _ ByVal nctsWP_Versender_Land As String, _ ByVal nctsWP_Empfaenger_EORI As String, _ ByVal nctsWP_Empfaenger_NLNR As String, _ ByVal nctsWP_Empfaenger_TIN As String, _ ByVal nctsWP_Empfaenger_Name As String, _ ByVal nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal nctsWP_Empfaenger_Ort As String, _ ByVal nctsWP_Empfaenger_PLZ As String, _ ByVal nctsWP_Empfaenger_Land As String, _ ByVal nctsWP_SumAKennnummerSendung As String, _ ByVal nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal nctsWP_SumAUNGefahrgutnummer As String, _ ByVal nctsWP_SumAVersender_EORI As String, _ ByVal nctsWP_SumAVersender_NLNR As String, _ ByVal nctsWP_SumAVersender_TIN As String, _ ByVal nctsWP_SumAVersender_Name As String, _ ByVal nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal nctsWP_SumAVersender_Ort As String, _ ByVal nctsWP_SumAVersender_PLZ As String, _ ByVal nctsWP_SumAVersender_Land As String, _ ByVal nctsWP_SumAEmpfaenger_EORI As String, _ ByVal nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal nctsWP_SumAEmpfaenger_TIN As String, _ ByVal nctsWP_SumAEmpfaenger_Name As String, _ ByVal nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal nctsWP_SumAEmpfaenger_Ort As String, _ ByVal nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal nctsWP_SumAEmpfaenger_Land As String, _ ByVal nctsWP_KdRefNr As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsWP_NctsId,Integer) If (nctsWP_PositionsNummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsWP_PositionsNummer.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (nctsWP_Warennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsWP_Warennummer,String) End If If (nctsWP_ArtAnmeldungPositionCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsWP_ArtAnmeldungPositionCode,String) End If If (nctsWP_Warenbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsWP_Warenbezeichnung,String) End If If (nctsWP_Warenwert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsWP_Warenwert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (nctsWP_WarenwertWaehrung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(nctsWP_WarenwertWaehrung,String) End If If (nctsWP_SchaetzKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(nctsWP_SchaetzKz,String) End If If (nctsWP_WarenwertProzent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(nctsWP_WarenwertProzent.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (nctsWP_VersendungslandPositionCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(nctsWP_VersendungslandPositionCode,String) End If If (nctsWP_BestimmungslandPositionCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(nctsWP_BestimmungslandPositionCode,String) End If If (nctsWP_Rohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(nctsWP_Rohmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (nctsWP_Eigenmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(nctsWP_Eigenmasse.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (nctsWP_VorpapierTyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(nctsWP_VorpapierTyp,String) End If If (nctsWP_VorpapierReferenz1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(nctsWP_VorpapierReferenz1,String) End If If (nctsWP_VorpapierZusatz1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(nctsWP_VorpapierZusatz1,String) End If If (nctsWP_VorpapierReferenz2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(nctsWP_VorpapierReferenz2,String) End If If (nctsWP_VorpapierZusatz2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(nctsWP_VorpapierZusatz2,String) End If If (nctsWP_VorpapierReferenz3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(nctsWP_VorpapierReferenz3,String) End If If (nctsWP_VorpapierZusatz3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(nctsWP_VorpapierZusatz3,String) End If If (nctsWP_VorpapierReferenz4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(nctsWP_VorpapierReferenz4,String) End If If (nctsWP_VorpapierZusatz4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(nctsWP_VorpapierZusatz4,String) End If If (nctsWP_VorpapierReferenz5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(nctsWP_VorpapierReferenz5,String) End If If (nctsWP_VorpapierZusatz5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(nctsWP_VorpapierZusatz5,String) End If If (nctsWP_VorpapierReferenz6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(nctsWP_VorpapierReferenz6,String) End If If (nctsWP_VorpapierZusatz6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(nctsWP_VorpapierZusatz6,String) End If If (nctsWP_VorpapierReferenz7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(nctsWP_VorpapierReferenz7,String) End If If (nctsWP_VorpapierZusatz7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(nctsWP_VorpapierZusatz7,String) End If If (nctsWP_VorpapierReferenz8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(nctsWP_VorpapierReferenz8,String) End If If (nctsWP_VorpapierZusatz8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(nctsWP_VorpapierZusatz8,String) End If If (nctsWP_VorpapierReferenz9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(nctsWP_VorpapierReferenz9,String) End If If (nctsWP_VorpapierZusatz9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(nctsWP_VorpapierZusatz9,String) End If If (nctsWP_BesondereVermeke_ExportAusEU Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(nctsWP_BesondereVermeke_ExportAusEU,String) End If If (nctsWP_BesondereVermeke_ExportAusLand Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(nctsWP_BesondereVermeke_ExportAusLand,String) End If If (nctsWP_BesondereVermeke_Export Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(nctsWP_BesondereVermeke_Export,String) End If If (nctsWP_BesondereVermeke_ExportBeschraenkung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(nctsWP_BesondereVermeke_ExportBeschraenkung,String) End If If (nctsWP_BesondereVermeke_ExportAbgaben Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(nctsWP_BesondereVermeke_ExportAbgaben,String) End If If (nctsWP_BesondereVermeke_Vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(nctsWP_BesondereVermeke_Vermerk,String) End If If (nctsWP_BesondereVermeke_Kz10600 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(nctsWP_BesondereVermeke_Kz10600,String) End If If (nctsWP_Versender_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(nctsWP_Versender_EORI,String) End If If (nctsWP_Versender_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(nctsWP_Versender_NLNR,String) End If If (nctsWP_Versender_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(nctsWP_Versender_TIN,String) End If If (nctsWP_Versender_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(nctsWP_Versender_Name,String) End If If (nctsWP_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(nctsWP_Versender_StrasseHausnummer,String) End If If (nctsWP_Versender_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(nctsWP_Versender_Ort,String) End If If (nctsWP_Versender_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(nctsWP_Versender_PLZ,String) End If If (nctsWP_Versender_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(nctsWP_Versender_Land,String) End If If (nctsWP_Empfaenger_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(nctsWP_Empfaenger_EORI,String) End If If (nctsWP_Empfaenger_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(nctsWP_Empfaenger_NLNR,String) End If If (nctsWP_Empfaenger_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(nctsWP_Empfaenger_TIN,String) End If If (nctsWP_Empfaenger_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(nctsWP_Empfaenger_Name,String) End If If (nctsWP_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(nctsWP_Empfaenger_StrasseHausnummer,String) End If If (nctsWP_Empfaenger_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(nctsWP_Empfaenger_Ort,String) End If If (nctsWP_Empfaenger_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(nctsWP_Empfaenger_PLZ,String) End If If (nctsWP_Empfaenger_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(nctsWP_Empfaenger_Land,String) End If If (nctsWP_SumAKennnummerSendung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(nctsWP_SumAKennnummerSendung,String) End If If (nctsWP_SumABefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(nctsWP_SumABefoerderungskostenZahlungsweise,String) End If If (nctsWP_SumAUNGefahrgutnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(nctsWP_SumAUNGefahrgutnummer,String) End If If (nctsWP_SumAVersender_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(nctsWP_SumAVersender_EORI,String) End If If (nctsWP_SumAVersender_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(nctsWP_SumAVersender_NLNR,String) End If If (nctsWP_SumAVersender_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(nctsWP_SumAVersender_TIN,String) End If If (nctsWP_SumAVersender_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(nctsWP_SumAVersender_Name,String) End If If (nctsWP_SumAVersender_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(nctsWP_SumAVersender_StrasseHausnummer,String) End If If (nctsWP_SumAVersender_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(nctsWP_SumAVersender_Ort,String) End If If (nctsWP_SumAVersender_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(nctsWP_SumAVersender_PLZ,String) End If If (nctsWP_SumAVersender_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(nctsWP_SumAVersender_Land,String) End If If (nctsWP_SumAEmpfaenger_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(nctsWP_SumAEmpfaenger_EORI,String) End If If (nctsWP_SumAEmpfaenger_NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(nctsWP_SumAEmpfaenger_NLNR,String) End If If (nctsWP_SumAEmpfaenger_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(nctsWP_SumAEmpfaenger_TIN,String) End If If (nctsWP_SumAEmpfaenger_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(nctsWP_SumAEmpfaenger_Name,String) End If If (nctsWP_SumAEmpfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(nctsWP_SumAEmpfaenger_StrasseHausnummer,String) End If If (nctsWP_SumAEmpfaenger_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(nctsWP_SumAEmpfaenger_Ort,String) End If If (nctsWP_SumAEmpfaenger_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(nctsWP_SumAEmpfaenger_PLZ,String) End If If (nctsWP_SumAEmpfaenger_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(nctsWP_SumAEmpfaenger_Land,String) End If If (nctsWP_KdRefNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(nctsWP_KdRefNr,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 nctsWP_NctsId As Integer, _ ByVal nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Warennummer As String, _ ByVal nctsWP_ArtAnmeldungPositionCode As String, _ ByVal nctsWP_Warenbezeichnung As String, _ ByVal nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_WarenwertWaehrung As String, _ ByVal nctsWP_SchaetzKz As String, _ ByVal nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VersendungslandPositionCode As String, _ ByVal nctsWP_BestimmungslandPositionCode As String, _ ByVal nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VorpapierTyp As String, _ ByVal nctsWP_VorpapierReferenz1 As String, _ ByVal nctsWP_VorpapierZusatz1 As String, _ ByVal nctsWP_VorpapierReferenz2 As String, _ ByVal nctsWP_VorpapierZusatz2 As String, _ ByVal nctsWP_VorpapierReferenz3 As String, _ ByVal nctsWP_VorpapierZusatz3 As String, _ ByVal nctsWP_VorpapierReferenz4 As String, _ ByVal nctsWP_VorpapierZusatz4 As String, _ ByVal nctsWP_VorpapierReferenz5 As String, _ ByVal nctsWP_VorpapierZusatz5 As String, _ ByVal nctsWP_VorpapierReferenz6 As String, _ ByVal nctsWP_VorpapierZusatz6 As String, _ ByVal nctsWP_VorpapierReferenz7 As String, _ ByVal nctsWP_VorpapierZusatz7 As String, _ ByVal nctsWP_VorpapierReferenz8 As String, _ ByVal nctsWP_VorpapierZusatz8 As String, _ ByVal nctsWP_VorpapierReferenz9 As String, _ ByVal nctsWP_VorpapierZusatz9 As String, _ ByVal nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal nctsWP_BesondereVermeke_Export As String, _ ByVal nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal nctsWP_BesondereVermeke_Vermerk As String, _ ByVal nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal nctsWP_Versender_EORI As String, _ ByVal nctsWP_Versender_NLNR As String, _ ByVal nctsWP_Versender_TIN As String, _ ByVal nctsWP_Versender_Name As String, _ ByVal nctsWP_Versender_StrasseHausnummer As String, _ ByVal nctsWP_Versender_Ort As String, _ ByVal nctsWP_Versender_PLZ As String, _ ByVal nctsWP_Versender_Land As String, _ ByVal nctsWP_Empfaenger_EORI As String, _ ByVal nctsWP_Empfaenger_NLNR As String, _ ByVal nctsWP_Empfaenger_TIN As String, _ ByVal nctsWP_Empfaenger_Name As String, _ ByVal nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal nctsWP_Empfaenger_Ort As String, _ ByVal nctsWP_Empfaenger_PLZ As String, _ ByVal nctsWP_Empfaenger_Land As String, _ ByVal nctsWP_SumAKennnummerSendung As String, _ ByVal nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal nctsWP_SumAUNGefahrgutnummer As String, _ ByVal nctsWP_SumAVersender_EORI As String, _ ByVal nctsWP_SumAVersender_NLNR As String, _ ByVal nctsWP_SumAVersender_TIN As String, _ ByVal nctsWP_SumAVersender_Name As String, _ ByVal nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal nctsWP_SumAVersender_Ort As String, _ ByVal nctsWP_SumAVersender_PLZ As String, _ ByVal nctsWP_SumAVersender_Land As String, _ ByVal nctsWP_SumAEmpfaenger_EORI As String, _ ByVal nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal nctsWP_SumAEmpfaenger_TIN As String, _ ByVal nctsWP_SumAEmpfaenger_Name As String, _ ByVal nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal nctsWP_SumAEmpfaenger_Ort As String, _ ByVal nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal nctsWP_SumAEmpfaenger_Land As String, _ ByVal nctsWP_KdRefNr As String, _ ByVal Original_nctsWP_Id As Integer, _ ByVal Original_nctsWP_NctsId As Integer, _ ByVal Original_nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Warennummer As String, _ ByVal Original_nctsWP_ArtAnmeldungPositionCode As String, _ ByVal Original_nctsWP_Warenbezeichnung As String, _ ByVal Original_nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_WarenwertWaehrung As String, _ ByVal Original_nctsWP_SchaetzKz As String, _ ByVal Original_nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VersendungslandPositionCode As String, _ ByVal Original_nctsWP_BestimmungslandPositionCode As String, _ ByVal Original_nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VorpapierTyp As String, _ ByVal Original_nctsWP_VorpapierReferenz1 As String, _ ByVal Original_nctsWP_VorpapierZusatz1 As String, _ ByVal Original_nctsWP_VorpapierReferenz2 As String, _ ByVal Original_nctsWP_VorpapierZusatz2 As String, _ ByVal Original_nctsWP_VorpapierReferenz3 As String, _ ByVal Original_nctsWP_VorpapierZusatz3 As String, _ ByVal Original_nctsWP_VorpapierReferenz4 As String, _ ByVal Original_nctsWP_VorpapierZusatz4 As String, _ ByVal Original_nctsWP_VorpapierReferenz5 As String, _ ByVal Original_nctsWP_VorpapierZusatz5 As String, _ ByVal Original_nctsWP_VorpapierReferenz6 As String, _ ByVal Original_nctsWP_VorpapierZusatz6 As String, _ ByVal Original_nctsWP_VorpapierReferenz7 As String, _ ByVal Original_nctsWP_VorpapierZusatz7 As String, _ ByVal Original_nctsWP_VorpapierReferenz8 As String, _ ByVal Original_nctsWP_VorpapierZusatz8 As String, _ ByVal Original_nctsWP_VorpapierReferenz9 As String, _ ByVal Original_nctsWP_VorpapierZusatz9 As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal Original_nctsWP_BesondereVermeke_Export As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal Original_nctsWP_BesondereVermeke_Vermerk As String, _ ByVal Original_nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal Original_nctsWP_Versender_EORI As String, _ ByVal Original_nctsWP_Versender_NLNR As String, _ ByVal Original_nctsWP_Versender_TIN As String, _ ByVal Original_nctsWP_Versender_Name As String, _ ByVal Original_nctsWP_Versender_StrasseHausnummer As String, _ ByVal Original_nctsWP_Versender_Ort As String, _ ByVal Original_nctsWP_Versender_PLZ As String, _ ByVal Original_nctsWP_Versender_Land As String, _ ByVal Original_nctsWP_Empfaenger_EORI As String, _ ByVal Original_nctsWP_Empfaenger_NLNR As String, _ ByVal Original_nctsWP_Empfaenger_TIN As String, _ ByVal Original_nctsWP_Empfaenger_Name As String, _ ByVal Original_nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_Empfaenger_Ort As String, _ ByVal Original_nctsWP_Empfaenger_PLZ As String, _ ByVal Original_nctsWP_Empfaenger_Land As String, _ ByVal Original_nctsWP_SumAKennnummerSendung As String, _ ByVal Original_nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal Original_nctsWP_SumAUNGefahrgutnummer As String, _ ByVal Original_nctsWP_SumAVersender_EORI As String, _ ByVal Original_nctsWP_SumAVersender_NLNR As String, _ ByVal Original_nctsWP_SumAVersender_TIN As String, _ ByVal Original_nctsWP_SumAVersender_Name As String, _ ByVal Original_nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAVersender_Ort As String, _ ByVal Original_nctsWP_SumAVersender_PLZ As String, _ ByVal Original_nctsWP_SumAVersender_Land As String, _ ByVal Original_nctsWP_SumAEmpfaenger_EORI As String, _ ByVal Original_nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal Original_nctsWP_SumAEmpfaenger_TIN As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Name As String, _ ByVal Original_nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Ort As String, _ ByVal Original_nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Land As String, _ ByVal Original_nctsWP_KdRefNr As String, _ ByVal nctsWP_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsWP_NctsId,Integer) If (nctsWP_PositionsNummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsWP_PositionsNummer.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (nctsWP_Warennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsWP_Warennummer,String) End If If (nctsWP_ArtAnmeldungPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsWP_ArtAnmeldungPositionCode,String) End If If (nctsWP_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsWP_Warenbezeichnung,String) End If If (nctsWP_Warenwert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsWP_Warenwert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (nctsWP_WarenwertWaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nctsWP_WarenwertWaehrung,String) End If If (nctsWP_SchaetzKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(nctsWP_SchaetzKz,String) End If If (nctsWP_WarenwertProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(nctsWP_WarenwertProzent.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (nctsWP_VersendungslandPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(nctsWP_VersendungslandPositionCode,String) End If If (nctsWP_BestimmungslandPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(nctsWP_BestimmungslandPositionCode,String) End If If (nctsWP_Rohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(nctsWP_Rohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (nctsWP_Eigenmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(nctsWP_Eigenmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (nctsWP_VorpapierTyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(nctsWP_VorpapierTyp,String) End If If (nctsWP_VorpapierReferenz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(nctsWP_VorpapierReferenz1,String) End If If (nctsWP_VorpapierZusatz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(nctsWP_VorpapierZusatz1,String) End If If (nctsWP_VorpapierReferenz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(nctsWP_VorpapierReferenz2,String) End If If (nctsWP_VorpapierZusatz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(nctsWP_VorpapierZusatz2,String) End If If (nctsWP_VorpapierReferenz3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(nctsWP_VorpapierReferenz3,String) End If If (nctsWP_VorpapierZusatz3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(nctsWP_VorpapierZusatz3,String) End If If (nctsWP_VorpapierReferenz4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(nctsWP_VorpapierReferenz4,String) End If If (nctsWP_VorpapierZusatz4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(nctsWP_VorpapierZusatz4,String) End If If (nctsWP_VorpapierReferenz5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(nctsWP_VorpapierReferenz5,String) End If If (nctsWP_VorpapierZusatz5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(nctsWP_VorpapierZusatz5,String) End If If (nctsWP_VorpapierReferenz6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(nctsWP_VorpapierReferenz6,String) End If If (nctsWP_VorpapierZusatz6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(nctsWP_VorpapierZusatz6,String) End If If (nctsWP_VorpapierReferenz7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(nctsWP_VorpapierReferenz7,String) End If If (nctsWP_VorpapierZusatz7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(nctsWP_VorpapierZusatz7,String) End If If (nctsWP_VorpapierReferenz8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(nctsWP_VorpapierReferenz8,String) End If If (nctsWP_VorpapierZusatz8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(nctsWP_VorpapierZusatz8,String) End If If (nctsWP_VorpapierReferenz9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(nctsWP_VorpapierReferenz9,String) End If If (nctsWP_VorpapierZusatz9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(nctsWP_VorpapierZusatz9,String) End If If (nctsWP_BesondereVermeke_ExportAusEU Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(nctsWP_BesondereVermeke_ExportAusEU,String) End If If (nctsWP_BesondereVermeke_ExportAusLand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(nctsWP_BesondereVermeke_ExportAusLand,String) End If If (nctsWP_BesondereVermeke_Export Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(nctsWP_BesondereVermeke_Export,String) End If If (nctsWP_BesondereVermeke_ExportBeschraenkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(nctsWP_BesondereVermeke_ExportBeschraenkung,String) End If If (nctsWP_BesondereVermeke_ExportAbgaben Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(nctsWP_BesondereVermeke_ExportAbgaben,String) End If If (nctsWP_BesondereVermeke_Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(nctsWP_BesondereVermeke_Vermerk,String) End If If (nctsWP_BesondereVermeke_Kz10600 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(nctsWP_BesondereVermeke_Kz10600,String) End If If (nctsWP_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(nctsWP_Versender_EORI,String) End If If (nctsWP_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(nctsWP_Versender_NLNR,String) End If If (nctsWP_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(nctsWP_Versender_TIN,String) End If If (nctsWP_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(nctsWP_Versender_Name,String) End If If (nctsWP_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(nctsWP_Versender_StrasseHausnummer,String) End If If (nctsWP_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(nctsWP_Versender_Ort,String) End If If (nctsWP_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(nctsWP_Versender_PLZ,String) End If If (nctsWP_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(nctsWP_Versender_Land,String) End If If (nctsWP_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(nctsWP_Empfaenger_EORI,String) End If If (nctsWP_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(nctsWP_Empfaenger_NLNR,String) End If If (nctsWP_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(nctsWP_Empfaenger_TIN,String) End If If (nctsWP_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(nctsWP_Empfaenger_Name,String) End If If (nctsWP_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(nctsWP_Empfaenger_StrasseHausnummer,String) End If If (nctsWP_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(nctsWP_Empfaenger_Ort,String) End If If (nctsWP_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(nctsWP_Empfaenger_PLZ,String) End If If (nctsWP_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(nctsWP_Empfaenger_Land,String) End If If (nctsWP_SumAKennnummerSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(nctsWP_SumAKennnummerSendung,String) End If If (nctsWP_SumABefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(nctsWP_SumABefoerderungskostenZahlungsweise,String) End If If (nctsWP_SumAUNGefahrgutnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(nctsWP_SumAUNGefahrgutnummer,String) End If If (nctsWP_SumAVersender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(nctsWP_SumAVersender_EORI,String) End If If (nctsWP_SumAVersender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(nctsWP_SumAVersender_NLNR,String) End If If (nctsWP_SumAVersender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(nctsWP_SumAVersender_TIN,String) End If If (nctsWP_SumAVersender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(nctsWP_SumAVersender_Name,String) End If If (nctsWP_SumAVersender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(nctsWP_SumAVersender_StrasseHausnummer,String) End If If (nctsWP_SumAVersender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(nctsWP_SumAVersender_Ort,String) End If If (nctsWP_SumAVersender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(nctsWP_SumAVersender_PLZ,String) End If If (nctsWP_SumAVersender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(nctsWP_SumAVersender_Land,String) End If If (nctsWP_SumAEmpfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(nctsWP_SumAEmpfaenger_EORI,String) End If If (nctsWP_SumAEmpfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(nctsWP_SumAEmpfaenger_NLNR,String) End If If (nctsWP_SumAEmpfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(nctsWP_SumAEmpfaenger_TIN,String) End If If (nctsWP_SumAEmpfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(nctsWP_SumAEmpfaenger_Name,String) End If If (nctsWP_SumAEmpfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(nctsWP_SumAEmpfaenger_StrasseHausnummer,String) End If If (nctsWP_SumAEmpfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(nctsWP_SumAEmpfaenger_Ort,String) End If If (nctsWP_SumAEmpfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(nctsWP_SumAEmpfaenger_PLZ,String) End If If (nctsWP_SumAEmpfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(nctsWP_SumAEmpfaenger_Land,String) End If If (nctsWP_KdRefNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(nctsWP_KdRefNr,String) End If Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_nctsWP_Id,Integer) Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_nctsWP_NctsId,Integer) If (Original_nctsWP_PositionsNummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_nctsWP_PositionsNummer.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (Original_nctsWP_Warennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_nctsWP_Warennummer,String) End If If (Original_nctsWP_ArtAnmeldungPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_nctsWP_ArtAnmeldungPositionCode,String) End If If (Original_nctsWP_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Original_nctsWP_Warenbezeichnung,String) End If If (Original_nctsWP_Warenwert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Original_nctsWP_Warenwert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value End If If (Original_nctsWP_WarenwertWaehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(88).Value = CType(Original_nctsWP_WarenwertWaehrung,String) End If If (Original_nctsWP_SchaetzKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_nctsWP_SchaetzKz,String) End If If (Original_nctsWP_WarenwertProzent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_nctsWP_WarenwertProzent.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value End If If (Original_nctsWP_VersendungslandPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_nctsWP_VersendungslandPositionCode,String) End If If (Original_nctsWP_BestimmungslandPositionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(96).Value = CType(Original_nctsWP_BestimmungslandPositionCode,String) End If If (Original_nctsWP_Rohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = CType(Original_nctsWP_Rohmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value End If If (Original_nctsWP_Eigenmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = CType(Original_nctsWP_Eigenmasse.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value End If If (Original_nctsWP_VorpapierTyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = CType(Original_nctsWP_VorpapierTyp,String) End If If (Original_nctsWP_VorpapierReferenz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = CType(Original_nctsWP_VorpapierReferenz1,String) End If If (Original_nctsWP_VorpapierZusatz1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = CType(Original_nctsWP_VorpapierZusatz1,String) End If If (Original_nctsWP_VorpapierReferenz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = CType(Original_nctsWP_VorpapierReferenz2,String) End If If (Original_nctsWP_VorpapierZusatz2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = CType(Original_nctsWP_VorpapierZusatz2,String) End If If (Original_nctsWP_VorpapierReferenz3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = CType(Original_nctsWP_VorpapierReferenz3,String) End If If (Original_nctsWP_VorpapierZusatz3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = CType(Original_nctsWP_VorpapierZusatz3,String) End If If (Original_nctsWP_VorpapierReferenz4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = CType(Original_nctsWP_VorpapierReferenz4,String) End If If (Original_nctsWP_VorpapierZusatz4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = CType(Original_nctsWP_VorpapierZusatz4,String) End If If (Original_nctsWP_VorpapierReferenz5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = CType(Original_nctsWP_VorpapierReferenz5,String) End If If (Original_nctsWP_VorpapierZusatz5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = CType(Original_nctsWP_VorpapierZusatz5,String) End If If (Original_nctsWP_VorpapierReferenz6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(124).Value = CType(Original_nctsWP_VorpapierReferenz6,String) End If If (Original_nctsWP_VorpapierZusatz6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(126).Value = CType(Original_nctsWP_VorpapierZusatz6,String) End If If (Original_nctsWP_VorpapierReferenz7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(128).Value = CType(Original_nctsWP_VorpapierReferenz7,String) End If If (Original_nctsWP_VorpapierZusatz7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(130).Value = CType(Original_nctsWP_VorpapierZusatz7,String) End If If (Original_nctsWP_VorpapierReferenz8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(132).Value = CType(Original_nctsWP_VorpapierReferenz8,String) End If If (Original_nctsWP_VorpapierZusatz8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(134).Value = CType(Original_nctsWP_VorpapierZusatz8,String) End If If (Original_nctsWP_VorpapierReferenz9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(136).Value = CType(Original_nctsWP_VorpapierReferenz9,String) End If If (Original_nctsWP_VorpapierZusatz9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(138).Value = CType(Original_nctsWP_VorpapierZusatz9,String) End If If (Original_nctsWP_BesondereVermeke_ExportAusEU Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = CType(Original_nctsWP_BesondereVermeke_ExportAusEU,String) End If If (Original_nctsWP_BesondereVermeke_ExportAusLand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = CType(Original_nctsWP_BesondereVermeke_ExportAusLand,String) End If If (Original_nctsWP_BesondereVermeke_Export Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = CType(Original_nctsWP_BesondereVermeke_Export,String) End If If (Original_nctsWP_BesondereVermeke_ExportBeschraenkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = CType(Original_nctsWP_BesondereVermeke_ExportBeschraenkung,String) End If If (Original_nctsWP_BesondereVermeke_ExportAbgaben Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = CType(Original_nctsWP_BesondereVermeke_ExportAbgaben,String) End If If (Original_nctsWP_BesondereVermeke_Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = CType(Original_nctsWP_BesondereVermeke_Vermerk,String) End If If (Original_nctsWP_BesondereVermeke_Kz10600 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = CType(Original_nctsWP_BesondereVermeke_Kz10600,String) End If If (Original_nctsWP_Versender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = CType(Original_nctsWP_Versender_EORI,String) End If If (Original_nctsWP_Versender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = CType(Original_nctsWP_Versender_NLNR,String) End If If (Original_nctsWP_Versender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = CType(Original_nctsWP_Versender_TIN,String) End If If (Original_nctsWP_Versender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(159).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(160).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(159).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(160).Value = CType(Original_nctsWP_Versender_Name,String) End If If (Original_nctsWP_Versender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(162).Value = CType(Original_nctsWP_Versender_StrasseHausnummer,String) End If If (Original_nctsWP_Versender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = CType(Original_nctsWP_Versender_Ort,String) End If If (Original_nctsWP_Versender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = CType(Original_nctsWP_Versender_PLZ,String) End If If (Original_nctsWP_Versender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = CType(Original_nctsWP_Versender_Land,String) End If If (Original_nctsWP_Empfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(170).Value = CType(Original_nctsWP_Empfaenger_EORI,String) End If If (Original_nctsWP_Empfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(172).Value = CType(Original_nctsWP_Empfaenger_NLNR,String) End If If (Original_nctsWP_Empfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_nctsWP_Empfaenger_TIN,String) End If If (Original_nctsWP_Empfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_nctsWP_Empfaenger_Name,String) End If If (Original_nctsWP_Empfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = CType(Original_nctsWP_Empfaenger_StrasseHausnummer,String) End If If (Original_nctsWP_Empfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = CType(Original_nctsWP_Empfaenger_Ort,String) End If If (Original_nctsWP_Empfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = CType(Original_nctsWP_Empfaenger_PLZ,String) End If If (Original_nctsWP_Empfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = CType(Original_nctsWP_Empfaenger_Land,String) End If If (Original_nctsWP_SumAKennnummerSendung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_nctsWP_SumAKennnummerSendung,String) End If If (Original_nctsWP_SumABefoerderungskostenZahlungsweise Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_nctsWP_SumABefoerderungskostenZahlungsweise,String) End If If (Original_nctsWP_SumAUNGefahrgutnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_nctsWP_SumAUNGefahrgutnummer,String) End If If (Original_nctsWP_SumAVersender_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_nctsWP_SumAVersender_EORI,String) End If If (Original_nctsWP_SumAVersender_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_nctsWP_SumAVersender_NLNR,String) End If If (Original_nctsWP_SumAVersender_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_nctsWP_SumAVersender_TIN,String) End If If (Original_nctsWP_SumAVersender_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_nctsWP_SumAVersender_Name,String) End If If (Original_nctsWP_SumAVersender_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_nctsWP_SumAVersender_StrasseHausnummer,String) End If If (Original_nctsWP_SumAVersender_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = CType(Original_nctsWP_SumAVersender_Ort,String) End If If (Original_nctsWP_SumAVersender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = CType(Original_nctsWP_SumAVersender_PLZ,String) End If If (Original_nctsWP_SumAVersender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = CType(Original_nctsWP_SumAVersender_Land,String) End If If (Original_nctsWP_SumAEmpfaenger_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = CType(Original_nctsWP_SumAEmpfaenger_EORI,String) End If If (Original_nctsWP_SumAEmpfaenger_NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = CType(Original_nctsWP_SumAEmpfaenger_NLNR,String) End If If (Original_nctsWP_SumAEmpfaenger_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = CType(Original_nctsWP_SumAEmpfaenger_TIN,String) End If If (Original_nctsWP_SumAEmpfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = CType(Original_nctsWP_SumAEmpfaenger_Name,String) End If If (Original_nctsWP_SumAEmpfaenger_StrasseHausnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = CType(Original_nctsWP_SumAEmpfaenger_StrasseHausnummer,String) End If If (Original_nctsWP_SumAEmpfaenger_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(218).Value = CType(Original_nctsWP_SumAEmpfaenger_Ort,String) End If If (Original_nctsWP_SumAEmpfaenger_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(220).Value = CType(Original_nctsWP_SumAEmpfaenger_PLZ,String) End If If (Original_nctsWP_SumAEmpfaenger_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = CType(Original_nctsWP_SumAEmpfaenger_Land,String) End If If (Original_nctsWP_KdRefNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = CType(Original_nctsWP_KdRefNr,String) End If Me.Adapter.UpdateCommand.Parameters(225).Value = CType(nctsWP_Id,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 nctsWP_NctsId As Integer, _ ByVal nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Warennummer As String, _ ByVal nctsWP_ArtAnmeldungPositionCode As String, _ ByVal nctsWP_Warenbezeichnung As String, _ ByVal nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_WarenwertWaehrung As String, _ ByVal nctsWP_SchaetzKz As String, _ ByVal nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VersendungslandPositionCode As String, _ ByVal nctsWP_BestimmungslandPositionCode As String, _ ByVal nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal nctsWP_VorpapierTyp As String, _ ByVal nctsWP_VorpapierReferenz1 As String, _ ByVal nctsWP_VorpapierZusatz1 As String, _ ByVal nctsWP_VorpapierReferenz2 As String, _ ByVal nctsWP_VorpapierZusatz2 As String, _ ByVal nctsWP_VorpapierReferenz3 As String, _ ByVal nctsWP_VorpapierZusatz3 As String, _ ByVal nctsWP_VorpapierReferenz4 As String, _ ByVal nctsWP_VorpapierZusatz4 As String, _ ByVal nctsWP_VorpapierReferenz5 As String, _ ByVal nctsWP_VorpapierZusatz5 As String, _ ByVal nctsWP_VorpapierReferenz6 As String, _ ByVal nctsWP_VorpapierZusatz6 As String, _ ByVal nctsWP_VorpapierReferenz7 As String, _ ByVal nctsWP_VorpapierZusatz7 As String, _ ByVal nctsWP_VorpapierReferenz8 As String, _ ByVal nctsWP_VorpapierZusatz8 As String, _ ByVal nctsWP_VorpapierReferenz9 As String, _ ByVal nctsWP_VorpapierZusatz9 As String, _ ByVal nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal nctsWP_BesondereVermeke_Export As String, _ ByVal nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal nctsWP_BesondereVermeke_Vermerk As String, _ ByVal nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal nctsWP_Versender_EORI As String, _ ByVal nctsWP_Versender_NLNR As String, _ ByVal nctsWP_Versender_TIN As String, _ ByVal nctsWP_Versender_Name As String, _ ByVal nctsWP_Versender_StrasseHausnummer As String, _ ByVal nctsWP_Versender_Ort As String, _ ByVal nctsWP_Versender_PLZ As String, _ ByVal nctsWP_Versender_Land As String, _ ByVal nctsWP_Empfaenger_EORI As String, _ ByVal nctsWP_Empfaenger_NLNR As String, _ ByVal nctsWP_Empfaenger_TIN As String, _ ByVal nctsWP_Empfaenger_Name As String, _ ByVal nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal nctsWP_Empfaenger_Ort As String, _ ByVal nctsWP_Empfaenger_PLZ As String, _ ByVal nctsWP_Empfaenger_Land As String, _ ByVal nctsWP_SumAKennnummerSendung As String, _ ByVal nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal nctsWP_SumAUNGefahrgutnummer As String, _ ByVal nctsWP_SumAVersender_EORI As String, _ ByVal nctsWP_SumAVersender_NLNR As String, _ ByVal nctsWP_SumAVersender_TIN As String, _ ByVal nctsWP_SumAVersender_Name As String, _ ByVal nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal nctsWP_SumAVersender_Ort As String, _ ByVal nctsWP_SumAVersender_PLZ As String, _ ByVal nctsWP_SumAVersender_Land As String, _ ByVal nctsWP_SumAEmpfaenger_EORI As String, _ ByVal nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal nctsWP_SumAEmpfaenger_TIN As String, _ ByVal nctsWP_SumAEmpfaenger_Name As String, _ ByVal nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal nctsWP_SumAEmpfaenger_Ort As String, _ ByVal nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal nctsWP_SumAEmpfaenger_Land As String, _ ByVal nctsWP_KdRefNr As String, _ ByVal Original_nctsWP_Id As Integer, _ ByVal Original_nctsWP_NctsId As Integer, _ ByVal Original_nctsWP_PositionsNummer As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Warennummer As String, _ ByVal Original_nctsWP_ArtAnmeldungPositionCode As String, _ ByVal Original_nctsWP_Warenbezeichnung As String, _ ByVal Original_nctsWP_Warenwert As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_WarenwertWaehrung As String, _ ByVal Original_nctsWP_SchaetzKz As String, _ ByVal Original_nctsWP_WarenwertProzent As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VersendungslandPositionCode As String, _ ByVal Original_nctsWP_BestimmungslandPositionCode As String, _ ByVal Original_nctsWP_Rohmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_Eigenmasse As Global.System.Nullable(Of Decimal), _ ByVal Original_nctsWP_VorpapierTyp As String, _ ByVal Original_nctsWP_VorpapierReferenz1 As String, _ ByVal Original_nctsWP_VorpapierZusatz1 As String, _ ByVal Original_nctsWP_VorpapierReferenz2 As String, _ ByVal Original_nctsWP_VorpapierZusatz2 As String, _ ByVal Original_nctsWP_VorpapierReferenz3 As String, _ ByVal Original_nctsWP_VorpapierZusatz3 As String, _ ByVal Original_nctsWP_VorpapierReferenz4 As String, _ ByVal Original_nctsWP_VorpapierZusatz4 As String, _ ByVal Original_nctsWP_VorpapierReferenz5 As String, _ ByVal Original_nctsWP_VorpapierZusatz5 As String, _ ByVal Original_nctsWP_VorpapierReferenz6 As String, _ ByVal Original_nctsWP_VorpapierZusatz6 As String, _ ByVal Original_nctsWP_VorpapierReferenz7 As String, _ ByVal Original_nctsWP_VorpapierZusatz7 As String, _ ByVal Original_nctsWP_VorpapierReferenz8 As String, _ ByVal Original_nctsWP_VorpapierZusatz8 As String, _ ByVal Original_nctsWP_VorpapierReferenz9 As String, _ ByVal Original_nctsWP_VorpapierZusatz9 As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusEU As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAusLand As String, _ ByVal Original_nctsWP_BesondereVermeke_Export As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportBeschraenkung As String, _ ByVal Original_nctsWP_BesondereVermeke_ExportAbgaben As String, _ ByVal Original_nctsWP_BesondereVermeke_Vermerk As String, _ ByVal Original_nctsWP_BesondereVermeke_Kz10600 As String, _ ByVal Original_nctsWP_Versender_EORI As String, _ ByVal Original_nctsWP_Versender_NLNR As String, _ ByVal Original_nctsWP_Versender_TIN As String, _ ByVal Original_nctsWP_Versender_Name As String, _ ByVal Original_nctsWP_Versender_StrasseHausnummer As String, _ ByVal Original_nctsWP_Versender_Ort As String, _ ByVal Original_nctsWP_Versender_PLZ As String, _ ByVal Original_nctsWP_Versender_Land As String, _ ByVal Original_nctsWP_Empfaenger_EORI As String, _ ByVal Original_nctsWP_Empfaenger_NLNR As String, _ ByVal Original_nctsWP_Empfaenger_TIN As String, _ ByVal Original_nctsWP_Empfaenger_Name As String, _ ByVal Original_nctsWP_Empfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_Empfaenger_Ort As String, _ ByVal Original_nctsWP_Empfaenger_PLZ As String, _ ByVal Original_nctsWP_Empfaenger_Land As String, _ ByVal Original_nctsWP_SumAKennnummerSendung As String, _ ByVal Original_nctsWP_SumABefoerderungskostenZahlungsweise As String, _ ByVal Original_nctsWP_SumAUNGefahrgutnummer As String, _ ByVal Original_nctsWP_SumAVersender_EORI As String, _ ByVal Original_nctsWP_SumAVersender_NLNR As String, _ ByVal Original_nctsWP_SumAVersender_TIN As String, _ ByVal Original_nctsWP_SumAVersender_Name As String, _ ByVal Original_nctsWP_SumAVersender_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAVersender_Ort As String, _ ByVal Original_nctsWP_SumAVersender_PLZ As String, _ ByVal Original_nctsWP_SumAVersender_Land As String, _ ByVal Original_nctsWP_SumAEmpfaenger_EORI As String, _ ByVal Original_nctsWP_SumAEmpfaenger_NLNR As String, _ ByVal Original_nctsWP_SumAEmpfaenger_TIN As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Name As String, _ ByVal Original_nctsWP_SumAEmpfaenger_StrasseHausnummer As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Ort As String, _ ByVal Original_nctsWP_SumAEmpfaenger_PLZ As String, _ ByVal Original_nctsWP_SumAEmpfaenger_Land As String, _ ByVal Original_nctsWP_KdRefNr As String) As Integer Return Me.Update(nctsWP_NctsId, nctsWP_PositionsNummer, nctsWP_Warennummer, nctsWP_ArtAnmeldungPositionCode, nctsWP_Warenbezeichnung, nctsWP_Warenwert, nctsWP_WarenwertWaehrung, nctsWP_SchaetzKz, nctsWP_WarenwertProzent, nctsWP_VersendungslandPositionCode, nctsWP_BestimmungslandPositionCode, nctsWP_Rohmasse, nctsWP_Eigenmasse, nctsWP_VorpapierTyp, nctsWP_VorpapierReferenz1, nctsWP_VorpapierZusatz1, nctsWP_VorpapierReferenz2, nctsWP_VorpapierZusatz2, nctsWP_VorpapierReferenz3, nctsWP_VorpapierZusatz3, nctsWP_VorpapierReferenz4, nctsWP_VorpapierZusatz4, nctsWP_VorpapierReferenz5, nctsWP_VorpapierZusatz5, nctsWP_VorpapierReferenz6, nctsWP_VorpapierZusatz6, nctsWP_VorpapierReferenz7, nctsWP_VorpapierZusatz7, nctsWP_VorpapierReferenz8, nctsWP_VorpapierZusatz8, nctsWP_VorpapierReferenz9, nctsWP_VorpapierZusatz9, nctsWP_BesondereVermeke_ExportAusEU, nctsWP_BesondereVermeke_ExportAusLand, nctsWP_BesondereVermeke_Export, nctsWP_BesondereVermeke_ExportBeschraenkung, nctsWP_BesondereVermeke_ExportAbgaben, nctsWP_BesondereVermeke_Vermerk, nctsWP_BesondereVermeke_Kz10600, nctsWP_Versender_EORI, nctsWP_Versender_NLNR, nctsWP_Versender_TIN, nctsWP_Versender_Name, nctsWP_Versender_StrasseHausnummer, nctsWP_Versender_Ort, nctsWP_Versender_PLZ, nctsWP_Versender_Land, nctsWP_Empfaenger_EORI, nctsWP_Empfaenger_NLNR, nctsWP_Empfaenger_TIN, nctsWP_Empfaenger_Name, nctsWP_Empfaenger_StrasseHausnummer, nctsWP_Empfaenger_Ort, nctsWP_Empfaenger_PLZ, nctsWP_Empfaenger_Land, nctsWP_SumAKennnummerSendung, nctsWP_SumABefoerderungskostenZahlungsweise, nctsWP_SumAUNGefahrgutnummer, nctsWP_SumAVersender_EORI, nctsWP_SumAVersender_NLNR, nctsWP_SumAVersender_TIN, nctsWP_SumAVersender_Name, nctsWP_SumAVersender_StrasseHausnummer, nctsWP_SumAVersender_Ort, nctsWP_SumAVersender_PLZ, nctsWP_SumAVersender_Land, nctsWP_SumAEmpfaenger_EORI, nctsWP_SumAEmpfaenger_NLNR, nctsWP_SumAEmpfaenger_TIN, nctsWP_SumAEmpfaenger_Name, nctsWP_SumAEmpfaenger_StrasseHausnummer, nctsWP_SumAEmpfaenger_Ort, nctsWP_SumAEmpfaenger_PLZ, nctsWP_SumAEmpfaenger_Land, nctsWP_KdRefNr, Original_nctsWP_Id, Original_nctsWP_NctsId, Original_nctsWP_PositionsNummer, Original_nctsWP_Warennummer, Original_nctsWP_ArtAnmeldungPositionCode, Original_nctsWP_Warenbezeichnung, Original_nctsWP_Warenwert, Original_nctsWP_WarenwertWaehrung, Original_nctsWP_SchaetzKz, Original_nctsWP_WarenwertProzent, Original_nctsWP_VersendungslandPositionCode, Original_nctsWP_BestimmungslandPositionCode, Original_nctsWP_Rohmasse, Original_nctsWP_Eigenmasse, Original_nctsWP_VorpapierTyp, Original_nctsWP_VorpapierReferenz1, Original_nctsWP_VorpapierZusatz1, Original_nctsWP_VorpapierReferenz2, Original_nctsWP_VorpapierZusatz2, Original_nctsWP_VorpapierReferenz3, Original_nctsWP_VorpapierZusatz3, Original_nctsWP_VorpapierReferenz4, Original_nctsWP_VorpapierZusatz4, Original_nctsWP_VorpapierReferenz5, Original_nctsWP_VorpapierZusatz5, Original_nctsWP_VorpapierReferenz6, Original_nctsWP_VorpapierZusatz6, Original_nctsWP_VorpapierReferenz7, Original_nctsWP_VorpapierZusatz7, Original_nctsWP_VorpapierReferenz8, Original_nctsWP_VorpapierZusatz8, Original_nctsWP_VorpapierReferenz9, Original_nctsWP_VorpapierZusatz9, Original_nctsWP_BesondereVermeke_ExportAusEU, Original_nctsWP_BesondereVermeke_ExportAusLand, Original_nctsWP_BesondereVermeke_Export, Original_nctsWP_BesondereVermeke_ExportBeschraenkung, Original_nctsWP_BesondereVermeke_ExportAbgaben, Original_nctsWP_BesondereVermeke_Vermerk, Original_nctsWP_BesondereVermeke_Kz10600, Original_nctsWP_Versender_EORI, Original_nctsWP_Versender_NLNR, Original_nctsWP_Versender_TIN, Original_nctsWP_Versender_Name, Original_nctsWP_Versender_StrasseHausnummer, Original_nctsWP_Versender_Ort, Original_nctsWP_Versender_PLZ, Original_nctsWP_Versender_Land, Original_nctsWP_Empfaenger_EORI, Original_nctsWP_Empfaenger_NLNR, Original_nctsWP_Empfaenger_TIN, Original_nctsWP_Empfaenger_Name, Original_nctsWP_Empfaenger_StrasseHausnummer, Original_nctsWP_Empfaenger_Ort, Original_nctsWP_Empfaenger_PLZ, Original_nctsWP_Empfaenger_Land, Original_nctsWP_SumAKennnummerSendung, Original_nctsWP_SumABefoerderungskostenZahlungsweise, Original_nctsWP_SumAUNGefahrgutnummer, Original_nctsWP_SumAVersender_EORI, Original_nctsWP_SumAVersender_NLNR, Original_nctsWP_SumAVersender_TIN, Original_nctsWP_SumAVersender_Name, Original_nctsWP_SumAVersender_StrasseHausnummer, Original_nctsWP_SumAVersender_Ort, Original_nctsWP_SumAVersender_PLZ, Original_nctsWP_SumAVersender_Land, Original_nctsWP_SumAEmpfaenger_EORI, Original_nctsWP_SumAEmpfaenger_NLNR, Original_nctsWP_SumAEmpfaenger_TIN, Original_nctsWP_SumAEmpfaenger_Name, Original_nctsWP_SumAEmpfaenger_StrasseHausnummer, Original_nctsWP_SumAEmpfaenger_Ort, Original_nctsWP_SumAEmpfaenger_PLZ, Original_nctsWP_SumAEmpfaenger_Land, Original_nctsWP_KdRefNr, Original_nctsWP_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblNCTS_TR_WarenpositionPackstueckeTableAdapter 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 = "tblNCTS_TR_WarenpositionPackstuecke" tableMapping.ColumnMappings.Add("nctsWpPk_Id", "nctsWpPk_Id") tableMapping.ColumnMappings.Add("nctsWpPk_nctsWPId", "nctsWpPk_nctsWPId") tableMapping.ColumnMappings.Add("nctsWpPk_NctsId", "nctsWpPk_NctsId") tableMapping.ColumnMappings.Add("nctsWpPk_PackstueckeAnzahl", "nctsWpPk_PackstueckeAnzahl") tableMapping.ColumnMappings.Add("nctsWpPk_Verpackungsart", "nctsWpPk_Verpackungsart") tableMapping.ColumnMappings.Add("nctsWpPk_ZeichenNummern", "nctsWpPk_ZeichenNummern") 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].[tblNCTS_TR_WarenpositionPackstuecke] WHERE (([nctsWpPk_Id] = @"& _ "Original_nctsWpPk_Id) AND ([nctsWpPk_nctsWPId] = @Original_nctsWpPk_nctsWPId) AN"& _ "D ([nctsWpPk_NctsId] = @Original_nctsWpPk_NctsId) AND ((@IsNull_nctsWpPk_Packstu"& _ "eckeAnzahl = 1 AND [nctsWpPk_PackstueckeAnzahl] IS NULL) OR ([nctsWpPk_Packstuec"& _ "keAnzahl] = @Original_nctsWpPk_PackstueckeAnzahl)) AND ((@IsNull_nctsWpPk_Verpac"& _ "kungsart = 1 AND [nctsWpPk_Verpackungsart] IS NULL) OR ([nctsWpPk_Verpackungsart"& _ "] = @Original_nctsWpPk_Verpackungsart)) AND ((@IsNull_nctsWpPk_ZeichenNummern = "& _ "1 AND [nctsWpPk_ZeichenNummern] IS NULL) OR ([nctsWpPk_ZeichenNummern] = @Origin"& _ "al_nctsWpPk_ZeichenNummern)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_nctsWPId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", 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].[tblNCTS_TR_WarenpositionPackstuecke] ([nctsWpPk_nctsWPId], [nc"& _ "tsWpPk_NctsId], [nctsWpPk_PackstueckeAnzahl], [nctsWpPk_Verpackungsart], [nctsWp"& _ "Pk_ZeichenNummern]) VALUES (@nctsWpPk_nctsWPId, @nctsWpPk_NctsId, @nctsWpPk_Pack"& _ "stueckeAnzahl, @nctsWpPk_Verpackungsart, @nctsWpPk_ZeichenNummern);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ncts"& _ "WpPk_Id, nctsWpPk_nctsWPId, nctsWpPk_NctsId, nctsWpPk_PackstueckeAnzahl, nctsWpP"& _ "k_Verpackungsart, nctsWpPk_ZeichenNummern FROM tblNCTS_TR_WarenpositionPackstuec"& _ "ke WHERE (nctsWpPk_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_nctsWPId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", 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].[tblNCTS_TR_WarenpositionPackstuecke] SET [nctsWpPk_nctsWPId] = @nct"& _ "sWpPk_nctsWPId, [nctsWpPk_NctsId] = @nctsWpPk_NctsId, [nctsWpPk_PackstueckeAnzah"& _ "l] = @nctsWpPk_PackstueckeAnzahl, [nctsWpPk_Verpackungsart] = @nctsWpPk_Verpacku"& _ "ngsart, [nctsWpPk_ZeichenNummern] = @nctsWpPk_ZeichenNummern WHERE (([nctsWpPk_I"& _ "d] = @Original_nctsWpPk_Id) AND ([nctsWpPk_nctsWPId] = @Original_nctsWpPk_nctsWP"& _ "Id) AND ([nctsWpPk_NctsId] = @Original_nctsWpPk_NctsId) AND ((@IsNull_nctsWpPk_P"& _ "ackstueckeAnzahl = 1 AND [nctsWpPk_PackstueckeAnzahl] IS NULL) OR ([nctsWpPk_Pac"& _ "kstueckeAnzahl] = @Original_nctsWpPk_PackstueckeAnzahl)) AND ((@IsNull_nctsWpPk_"& _ "Verpackungsart = 1 AND [nctsWpPk_Verpackungsart] IS NULL) OR ([nctsWpPk_Verpacku"& _ "ngsart] = @Original_nctsWpPk_Verpackungsart)) AND ((@IsNull_nctsWpPk_ZeichenNumm"& _ "ern = 1 AND [nctsWpPk_ZeichenNummern] IS NULL) OR ([nctsWpPk_ZeichenNummern] = @"& _ "Original_nctsWpPk_ZeichenNummern)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsWpPk_Id, nctsWpPk_nctsWPId, nct"& _ "sWpPk_NctsId, nctsWpPk_PackstueckeAnzahl, nctsWpPk_Verpackungsart, nctsWpPk_Zeic"& _ "henNummern FROM tblNCTS_TR_WarenpositionPackstuecke WHERE (nctsWpPk_Id = @nctsWp"& _ "Pk_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_nctsWPId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_NctsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_nctsWPId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_nctsWPId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_NctsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_NctsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_PackstueckeAnzahl", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 0, "nctsWpPk_PackstueckeAnzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_Verpackungsart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Verpackungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsWpPk_ZeichenNummern", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_ZeichenNummern", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsWpPk_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsWpPk_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsWpPk_Id, nctsWpPk_nctsWPId, nctsWpPk_NctsId, nctsWpPk_PackstueckeAnzah"& _ "l, nctsWpPk_Verpackungsart, nctsWpPk_ZeichenNummern FROM dbo.tblNCTS_TR_Warenpos"& _ "itionPackstuecke" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblNCTS_TR_WarenpositionPackstueckeDataTable) 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 VERAGDataSet.tblNCTS_TR_WarenpositionPackstueckeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblNCTS_TR_WarenpositionPackstueckeDataTable = New VERAGDataSet.tblNCTS_TR_WarenpositionPackstueckeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblNCTS_TR_WarenpositionPackstueckeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblNCTS_TR_WarenpositionPackstuecke") 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_nctsWpPk_Id As Integer, ByVal Original_nctsWpPk_nctsWPId As Integer, ByVal Original_nctsWpPk_NctsId As Integer, ByVal Original_nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal Original_nctsWpPk_Verpackungsart As String, ByVal Original_nctsWpPk_ZeichenNummern As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsWpPk_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsWpPk_nctsWPId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nctsWpPk_NctsId,Integer) If (Original_nctsWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_nctsWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_nctsWpPk_Verpackungsart 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_nctsWpPk_Verpackungsart,String) End If If (Original_nctsWpPk_ZeichenNummern 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_nctsWpPk_ZeichenNummern,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 nctsWpPk_nctsWPId As Integer, ByVal nctsWpPk_NctsId As Integer, ByVal nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal nctsWpPk_Verpackungsart As String, ByVal nctsWpPk_ZeichenNummern As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsWpPk_nctsWPId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsWpPk_NctsId,Integer) If (nctsWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (nctsWpPk_Verpackungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsWpPk_Verpackungsart,String) End If If (nctsWpPk_ZeichenNummern Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsWpPk_ZeichenNummern,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 nctsWpPk_nctsWPId As Integer, ByVal nctsWpPk_NctsId As Integer, ByVal nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal nctsWpPk_Verpackungsart As String, ByVal nctsWpPk_ZeichenNummern As String, ByVal Original_nctsWpPk_Id As Integer, ByVal Original_nctsWpPk_nctsWPId As Integer, ByVal Original_nctsWpPk_NctsId As Integer, ByVal Original_nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal Original_nctsWpPk_Verpackungsart As String, ByVal Original_nctsWpPk_ZeichenNummern As String, ByVal nctsWpPk_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsWpPk_nctsWPId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsWpPk_NctsId,Integer) If (nctsWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (nctsWpPk_Verpackungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsWpPk_Verpackungsart,String) End If If (nctsWpPk_ZeichenNummern Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsWpPk_ZeichenNummern,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_nctsWpPk_Id,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_nctsWpPk_nctsWPId,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_nctsWpPk_NctsId,Integer) If (Original_nctsWpPk_PackstueckeAnzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_nctsWpPk_PackstueckeAnzahl.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_nctsWpPk_Verpackungsart 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_nctsWpPk_Verpackungsart,String) End If If (Original_nctsWpPk_ZeichenNummern 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_nctsWpPk_ZeichenNummern,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(nctsWpPk_Id,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 nctsWpPk_nctsWPId As Integer, ByVal nctsWpPk_NctsId As Integer, ByVal nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal nctsWpPk_Verpackungsart As String, ByVal nctsWpPk_ZeichenNummern As String, ByVal Original_nctsWpPk_Id As Integer, ByVal Original_nctsWpPk_nctsWPId As Integer, ByVal Original_nctsWpPk_NctsId As Integer, ByVal Original_nctsWpPk_PackstueckeAnzahl As Global.System.Nullable(Of Decimal), ByVal Original_nctsWpPk_Verpackungsart As String, ByVal Original_nctsWpPk_ZeichenNummern As String) As Integer Return Me.Update(nctsWpPk_nctsWPId, nctsWpPk_NctsId, nctsWpPk_PackstueckeAnzahl, nctsWpPk_Verpackungsart, nctsWpPk_ZeichenNummern, Original_nctsWpPk_Id, Original_nctsWpPk_nctsWPId, Original_nctsWpPk_NctsId, Original_nctsWpPk_PackstueckeAnzahl, Original_nctsWpPk_Verpackungsart, Original_nctsWpPk_ZeichenNummern, Original_nctsWpPk_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblNCTSGestellungsadressenTableAdapter 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 = "tblNCTSGestellungsadressen" tableMapping.ColumnMappings.Add("nga_id", "nga_id") tableMapping.ColumnMappings.Add("nga_name", "nga_name") tableMapping.ColumnMappings.Add("nga_strasse", "nga_strasse") tableMapping.ColumnMappings.Add("nga_land", "nga_land") tableMapping.ColumnMappings.Add("nga_plz", "nga_plz") tableMapping.ColumnMappings.Add("nga_ort", "nga_ort") tableMapping.ColumnMappings.Add("nga_EORI", "nga_EORI") tableMapping.ColumnMappings.Add("nga_EORI_NL", "nga_EORI_NL") tableMapping.ColumnMappings.Add("nga_Ansprechpartner", "nga_Ansprechpartner") tableMapping.ColumnMappings.Add("nga_bestZollst", "nga_bestZollst") tableMapping.ColumnMappings.Add("nga_firma", "nga_firma") tableMapping.ColumnMappings.Add("nga_SB", "nga_SB") tableMapping.ColumnMappings.Add("nga_Aenderungsdatum", "nga_Aenderungsdatum") tableMapping.ColumnMappings.Add("nga_ATANr", "nga_ATANr") tableMapping.ColumnMappings.Add("nga_gestellungsMail", "nga_gestellungsMail") 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].[tblNCTSGestellungsadressen] WHERE (([nga_id] = @Original_nga_i"& _ "d) AND ([nga_name] = @Original_nga_name) AND ((@IsNull_nga_strasse = 1 AND [nga_"& _ "strasse] IS NULL) OR ([nga_strasse] = @Original_nga_strasse)) AND ((@IsNull_nga_"& _ "land = 1 AND [nga_land] IS NULL) OR ([nga_land] = @Original_nga_land)) AND ((@Is"& _ "Null_nga_plz = 1 AND [nga_plz] IS NULL) OR ([nga_plz] = @Original_nga_plz)) AND "& _ "((@IsNull_nga_ort = 1 AND [nga_ort] IS NULL) OR ([nga_ort] = @Original_nga_ort))"& _ " AND ((@IsNull_nga_EORI = 1 AND [nga_EORI] IS NULL) OR ([nga_EORI] = @Original_n"& _ "ga_EORI)) AND ((@IsNull_nga_EORI_NL = 1 AND [nga_EORI_NL] IS NULL) OR ([nga_EORI"& _ "_NL] = @Original_nga_EORI_NL)) AND ((@IsNull_nga_Ansprechpartner = 1 AND [nga_An"& _ "sprechpartner] IS NULL) OR ([nga_Ansprechpartner] = @Original_nga_Ansprechpartne"& _ "r)) AND ((@IsNull_nga_bestZollst = 1 AND [nga_bestZollst] IS NULL) OR ([nga_best"& _ "Zollst] = @Original_nga_bestZollst)) AND ([nga_firma] = @Original_nga_firma) AND"& _ " ((@IsNull_nga_SB = 1 AND [nga_SB] IS NULL) OR ([nga_SB] = @Original_nga_SB)) AN"& _ "D ([nga_Aenderungsdatum] = @Original_nga_Aenderungsdatum) AND ((@IsNull_nga_gest"& _ "ellungsMail = 1 AND [nga_gestellungsMail] IS NULL) OR ([nga_gestellungsMail] = @"& _ "Original_nga_gestellungsMail)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_strasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_strasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_strasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_strasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_plz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_plz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_plz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_plz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_EORI_NL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI_NL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_EORI_NL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI_NL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_Ansprechpartner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_Ansprechpartner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_Ansprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_Ansprechpartner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_bestZollst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_bestZollst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_bestZollst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_bestZollst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_SB", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_Aenderungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_Aenderungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_gestellungsMail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_gestellungsMail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_gestellungsMail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_gestellungsMail", 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].[tblNCTSGestellungsadressen] ([nga_name], [nga_strasse], [nga_l"& _ "and], [nga_plz], [nga_ort], [nga_EORI], [nga_EORI_NL], [nga_Ansprechpartner], [n"& _ "ga_bestZollst], [nga_firma], [nga_SB], [nga_Aenderungsdatum], [nga_ATANr], [nga_"& _ "gestellungsMail]) VALUES (@nga_name, @nga_strasse, @nga_land, @nga_plz, @nga_ort"& _ ", @nga_EORI, @nga_EORI_NL, @nga_Ansprechpartner, @nga_bestZollst, @nga_firma, @n"& _ "ga_SB, @nga_Aenderungsdatum, @nga_ATANr, @nga_gestellungsMail);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nga_id, "& _ "nga_name, nga_strasse, nga_land, nga_plz, nga_ort, nga_EORI, nga_EORI_NL, nga_An"& _ "sprechpartner, nga_bestZollst, nga_firma, nga_SB, nga_Aenderungsdatum, nga_ATANr"& _ ", nga_gestellungsMail FROM tblNCTSGestellungsadressen WHERE (nga_id = SCOPE_IDEN"& _ "TITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_strasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_strasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_plz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_plz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_EORI_NL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI_NL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_Ansprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_Ansprechpartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_bestZollst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_bestZollst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_SB", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_Aenderungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_Aenderungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_ATANr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_ATANr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_gestellungsMail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_gestellungsMail", 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].[tblNCTSGestellungsadressen] SET [nga_name] = @nga_name, [nga_strass"& _ "e] = @nga_strasse, [nga_land] = @nga_land, [nga_plz] = @nga_plz, [nga_ort] = @ng"& _ "a_ort, [nga_EORI] = @nga_EORI, [nga_EORI_NL] = @nga_EORI_NL, [nga_Ansprechpartne"& _ "r] = @nga_Ansprechpartner, [nga_bestZollst] = @nga_bestZollst, [nga_firma] = @ng"& _ "a_firma, [nga_SB] = @nga_SB, [nga_Aenderungsdatum] = @nga_Aenderungsdatum, [nga_"& _ "ATANr] = @nga_ATANr, [nga_gestellungsMail] = @nga_gestellungsMail WHERE (([nga_i"& _ "d] = @Original_nga_id) AND ([nga_name] = @Original_nga_name) AND ((@IsNull_nga_s"& _ "trasse = 1 AND [nga_strasse] IS NULL) OR ([nga_strasse] = @Original_nga_strasse)"& _ ") AND ((@IsNull_nga_land = 1 AND [nga_land] IS NULL) OR ([nga_land] = @Original_"& _ "nga_land)) AND ((@IsNull_nga_plz = 1 AND [nga_plz] IS NULL) OR ([nga_plz] = @Ori"& _ "ginal_nga_plz)) AND ((@IsNull_nga_ort = 1 AND [nga_ort] IS NULL) OR ([nga_ort] ="& _ " @Original_nga_ort)) AND ((@IsNull_nga_EORI = 1 AND [nga_EORI] IS NULL) OR ([nga"& _ "_EORI] = @Original_nga_EORI)) AND ((@IsNull_nga_EORI_NL = 1 AND [nga_EORI_NL] IS"& _ " NULL) OR ([nga_EORI_NL] = @Original_nga_EORI_NL)) AND ((@IsNull_nga_Ansprechpar"& _ "tner = 1 AND [nga_Ansprechpartner] IS NULL) OR ([nga_Ansprechpartner] = @Origina"& _ "l_nga_Ansprechpartner)) AND ((@IsNull_nga_bestZollst = 1 AND [nga_bestZollst] IS"& _ " NULL) OR ([nga_bestZollst] = @Original_nga_bestZollst)) AND ([nga_firma] = @Ori"& _ "ginal_nga_firma) AND ((@IsNull_nga_SB = 1 AND [nga_SB] IS NULL) OR ([nga_SB] = @"& _ "Original_nga_SB)) AND ([nga_Aenderungsdatum] = @Original_nga_Aenderungsdatum) AN"& _ "D ((@IsNull_nga_gestellungsMail = 1 AND [nga_gestellungsMail] IS NULL) OR ([nga_"& _ "gestellungsMail] = @Original_nga_gestellungsMail)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nga_id, nga_name, n"& _ "ga_strasse, nga_land, nga_plz, nga_ort, nga_EORI, nga_EORI_NL, nga_Ansprechpartn"& _ "er, nga_bestZollst, nga_firma, nga_SB, nga_Aenderungsdatum, nga_ATANr, nga_geste"& _ "llungsMail FROM tblNCTSGestellungsadressen WHERE (nga_id = @nga_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_strasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_strasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_plz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_plz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_EORI_NL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI_NL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_Ansprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_Ansprechpartner", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_bestZollst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_bestZollst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_SB", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_Aenderungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_Aenderungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_ATANr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_ATANr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_gestellungsMail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_gestellungsMail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_strasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_strasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_strasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_strasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_land", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_land", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_plz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_plz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_plz", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_plz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_ort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_ort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_ort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_ort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_EORI_NL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI_NL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_EORI_NL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_EORI_NL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_Ansprechpartner", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_Ansprechpartner", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_Ansprechpartner", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_Ansprechpartner", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_bestZollst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_bestZollst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_bestZollst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_bestZollst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_SB", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_Aenderungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_Aenderungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nga_gestellungsMail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_gestellungsMail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nga_gestellungsMail", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_gestellungsMail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nga_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nga_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nga_id, nga_name, nga_strasse, nga_land, nga_plz, nga_ort, nga_EORI, nga_E"& _ "ORI_NL, nga_Ansprechpartner, nga_bestZollst, nga_firma, nga_SB, nga_Aenderungsda"& _ "tum, nga_ATANr, nga_gestellungsMail FROM dbo.tblNCTSGestellungsadressen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblNCTSGestellungsadressenDataTable) 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 VERAGDataSet.tblNCTSGestellungsadressenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblNCTSGestellungsadressenDataTable = New VERAGDataSet.tblNCTSGestellungsadressenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblNCTSGestellungsadressenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblNCTSGestellungsadressen") 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_nga_id As Integer, ByVal Original_nga_name As String, ByVal Original_nga_strasse As String, ByVal Original_nga_land As String, ByVal Original_nga_plz As String, ByVal Original_nga_ort As String, ByVal Original_nga_EORI As String, ByVal Original_nga_EORI_NL As String, ByVal Original_nga_Ansprechpartner As String, ByVal Original_nga_bestZollst As String, ByVal Original_nga_firma As String, ByVal Original_nga_SB As String, ByVal Original_nga_Aenderungsdatum As Date, ByVal Original_nga_gestellungsMail As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nga_id,Integer) If (Original_nga_name Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nga_name") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nga_name,String) End If If (Original_nga_strasse 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_nga_strasse,String) End If If (Original_nga_land 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_nga_land,String) End If If (Original_nga_plz 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_nga_plz,String) End If If (Original_nga_ort 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_nga_ort,String) End If If (Original_nga_EORI 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_nga_EORI,String) End If If (Original_nga_EORI_NL 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_nga_EORI_NL,String) End If If (Original_nga_Ansprechpartner Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_nga_Ansprechpartner,String) End If If (Original_nga_bestZollst Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_nga_bestZollst,String) End If If (Original_nga_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nga_firma") Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_nga_firma,String) End If If (Original_nga_SB Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_nga_SB,String) End If Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_nga_Aenderungsdatum,Date) If (Original_nga_gestellungsMail 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_nga_gestellungsMail,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 nga_name As String, ByVal nga_strasse As String, ByVal nga_land As String, ByVal nga_plz As String, ByVal nga_ort As String, ByVal nga_EORI As String, ByVal nga_EORI_NL As String, ByVal nga_Ansprechpartner As String, ByVal nga_bestZollst As String, ByVal nga_firma As String, ByVal nga_SB As String, ByVal nga_Aenderungsdatum As Date, ByVal nga_ATANr As String, ByVal nga_gestellungsMail As String) As Integer If (nga_name Is Nothing) Then Throw New Global.System.ArgumentNullException("nga_name") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(nga_name,String) End If If (nga_strasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(nga_strasse,String) End If If (nga_land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(nga_land,String) End If If (nga_plz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nga_plz,String) End If If (nga_ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nga_ort,String) End If If (nga_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(nga_EORI,String) End If If (nga_EORI_NL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(nga_EORI_NL,String) End If If (nga_Ansprechpartner Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(nga_Ansprechpartner,String) End If If (nga_bestZollst Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(nga_bestZollst,String) End If If (nga_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("nga_firma") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(nga_firma,String) End If If (nga_SB Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(nga_SB,String) End If Me.Adapter.InsertCommand.Parameters(11).Value = CType(nga_Aenderungsdatum,Date) If (nga_ATANr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(nga_ATANr,String) End If If (nga_gestellungsMail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(nga_gestellungsMail,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 nga_name As String, _ ByVal nga_strasse As String, _ ByVal nga_land As String, _ ByVal nga_plz As String, _ ByVal nga_ort As String, _ ByVal nga_EORI As String, _ ByVal nga_EORI_NL As String, _ ByVal nga_Ansprechpartner As String, _ ByVal nga_bestZollst As String, _ ByVal nga_firma As String, _ ByVal nga_SB As String, _ ByVal nga_Aenderungsdatum As Date, _ ByVal nga_ATANr As String, _ ByVal nga_gestellungsMail As String, _ ByVal Original_nga_id As Integer, _ ByVal Original_nga_name As String, _ ByVal Original_nga_strasse As String, _ ByVal Original_nga_land As String, _ ByVal Original_nga_plz As String, _ ByVal Original_nga_ort As String, _ ByVal Original_nga_EORI As String, _ ByVal Original_nga_EORI_NL As String, _ ByVal Original_nga_Ansprechpartner As String, _ ByVal Original_nga_bestZollst As String, _ ByVal Original_nga_firma As String, _ ByVal Original_nga_SB As String, _ ByVal Original_nga_Aenderungsdatum As Date, _ ByVal Original_nga_gestellungsMail As String, _ ByVal nga_id As Integer) As Integer If (nga_name Is Nothing) Then Throw New Global.System.ArgumentNullException("nga_name") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nga_name,String) End If If (nga_strasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nga_strasse,String) End If If (nga_land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nga_land,String) End If If (nga_plz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nga_plz,String) End If If (nga_ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nga_ort,String) End If If (nga_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nga_EORI,String) End If If (nga_EORI_NL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(nga_EORI_NL,String) End If If (nga_Ansprechpartner Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(nga_Ansprechpartner,String) End If If (nga_bestZollst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(nga_bestZollst,String) End If If (nga_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("nga_firma") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(nga_firma,String) End If If (nga_SB Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(nga_SB,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(nga_Aenderungsdatum,Date) If (nga_ATANr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(nga_ATANr,String) End If If (nga_gestellungsMail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(nga_gestellungsMail,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_nga_id,Integer) If (Original_nga_name Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nga_name") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_nga_name,String) End If If (Original_nga_strasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_nga_strasse,String) End If If (Original_nga_land 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_nga_land,String) End If If (Original_nga_plz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_nga_plz,String) End If If (Original_nga_ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_nga_ort,String) End If If (Original_nga_EORI 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_nga_EORI,String) End If If (Original_nga_EORI_NL 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_nga_EORI_NL,String) End If If (Original_nga_Ansprechpartner 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_nga_Ansprechpartner,String) End If If (Original_nga_bestZollst 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_nga_bestZollst,String) End If If (Original_nga_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nga_firma") Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_nga_firma,String) End If If (Original_nga_SB Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_nga_SB,String) End If Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_nga_Aenderungsdatum,Date) If (Original_nga_gestellungsMail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_nga_gestellungsMail,String) End If Me.Adapter.UpdateCommand.Parameters(38).Value = CType(nga_id,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 nga_name As String, _ ByVal nga_strasse As String, _ ByVal nga_land As String, _ ByVal nga_plz As String, _ ByVal nga_ort As String, _ ByVal nga_EORI As String, _ ByVal nga_EORI_NL As String, _ ByVal nga_Ansprechpartner As String, _ ByVal nga_bestZollst As String, _ ByVal nga_firma As String, _ ByVal nga_SB As String, _ ByVal nga_Aenderungsdatum As Date, _ ByVal nga_ATANr As String, _ ByVal nga_gestellungsMail As String, _ ByVal Original_nga_id As Integer, _ ByVal Original_nga_name As String, _ ByVal Original_nga_strasse As String, _ ByVal Original_nga_land As String, _ ByVal Original_nga_plz As String, _ ByVal Original_nga_ort As String, _ ByVal Original_nga_EORI As String, _ ByVal Original_nga_EORI_NL As String, _ ByVal Original_nga_Ansprechpartner As String, _ ByVal Original_nga_bestZollst As String, _ ByVal Original_nga_firma As String, _ ByVal Original_nga_SB As String, _ ByVal Original_nga_Aenderungsdatum As Date, _ ByVal Original_nga_gestellungsMail As String) As Integer Return Me.Update(nga_name, nga_strasse, nga_land, nga_plz, nga_ort, nga_EORI, nga_EORI_NL, nga_Ansprechpartner, nga_bestZollst, nga_firma, nga_SB, nga_Aenderungsdatum, nga_ATANr, nga_gestellungsMail, Original_nga_id, Original_nga_name, Original_nga_strasse, Original_nga_land, Original_nga_plz, Original_nga_ort, Original_nga_EORI, Original_nga_EORI_NL, Original_nga_Ansprechpartner, Original_nga_bestZollst, Original_nga_firma, Original_nga_SB, Original_nga_Aenderungsdatum, Original_nga_gestellungsMail, Original_nga_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblNTCSRoutenTableAdapter 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 = "tblNTCSRouten" tableMapping.ColumnMappings.Add("nctsr_id", "nctsr_id") tableMapping.ColumnMappings.Add("nctsr_von", "nctsr_von") tableMapping.ColumnMappings.Add("nctsr_nach", "nctsr_nach") tableMapping.ColumnMappings.Add("nctsr_dauer_in_tagen", "nctsr_dauer_in_tagen") tableMapping.ColumnMappings.Add("nctsr_route", "nctsr_route") tableMapping.ColumnMappings.Add("nctsr_transportmittel", "nctsr_transportmittel") tableMapping.ColumnMappings.Add("nctsr_von_region", "nctsr_von_region") 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].[tblNTCSRouten] WHERE (([nctsr_id] = @Original_nctsr_id) AND (["& _ "nctsr_von] = @Original_nctsr_von) AND ([nctsr_nach] = @Original_nctsr_nach) AND "& _ "([nctsr_dauer_in_tagen] = @Original_nctsr_dauer_in_tagen) AND ((@IsNull_nctsr_ro"& _ "ute = 1 AND [nctsr_route] IS NULL) OR ([nctsr_route] = @Original_nctsr_route)) A"& _ "ND ([nctsr_transportmittel] = @Original_nctsr_transportmittel) AND ([nctsr_von_r"& _ "egion] = @Original_nctsr_von_region))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_von", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_von", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_nach", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_nach", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_dauer_in_tagen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_dauer_in_tagen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsr_route", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_route", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_route", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_route", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_transportmittel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_transportmittel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_von_region", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_von_region", 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].[tblNTCSRouten] ([nctsr_von], [nctsr_nach], [nctsr_dauer_in_tag"& _ "en], [nctsr_route], [nctsr_transportmittel], [nctsr_von_region]) VALUES (@nctsr_"& _ "von, @nctsr_nach, @nctsr_dauer_in_tagen, @nctsr_route, @nctsr_transportmittel, @"& _ "nctsr_von_region);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsr_id, nctsr_von, nctsr_nach, nctsr_dauer_in_tagen"& _ ", nctsr_route, nctsr_transportmittel, nctsr_von_region FROM tblNTCSRouten WHERE "& _ "(nctsr_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_von", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_nach", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_nach", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_dauer_in_tagen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_dauer_in_tagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_route", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_route", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_transportmittel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_transportmittel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_von_region", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_von_region", 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].[tblNTCSRouten] SET [nctsr_von] = @nctsr_von, [nctsr_nach] = @nctsr_"& _ "nach, [nctsr_dauer_in_tagen] = @nctsr_dauer_in_tagen, [nctsr_route] = @nctsr_rou"& _ "te, [nctsr_transportmittel] = @nctsr_transportmittel, [nctsr_von_region] = @ncts"& _ "r_von_region WHERE (([nctsr_id] = @Original_nctsr_id) AND ([nctsr_von] = @Origin"& _ "al_nctsr_von) AND ([nctsr_nach] = @Original_nctsr_nach) AND ([nctsr_dauer_in_tag"& _ "en] = @Original_nctsr_dauer_in_tagen) AND ((@IsNull_nctsr_route = 1 AND [nctsr_r"& _ "oute] IS NULL) OR ([nctsr_route] = @Original_nctsr_route)) AND ([nctsr_transport"& _ "mittel] = @Original_nctsr_transportmittel) AND ([nctsr_von_region] = @Original_n"& _ "ctsr_von_region));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT nctsr_id, nctsr_von, nctsr_nach, nctsr_dauer_in_tagen"& _ ", nctsr_route, nctsr_transportmittel, nctsr_von_region FROM tblNTCSRouten WHERE "& _ "(nctsr_id = @nctsr_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_von", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_nach", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_nach", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_dauer_in_tagen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_dauer_in_tagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_route", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_route", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_transportmittel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_transportmittel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_von_region", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_von_region", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_von", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_von", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_nach", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_nach", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_dauer_in_tagen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_dauer_in_tagen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nctsr_route", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_route", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_route", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_route", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_transportmittel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_transportmittel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nctsr_von_region", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_von_region", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nctsr_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "nctsr_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 nctsr_id, nctsr_von, nctsr_nach, nctsr_dauer_in_tagen, nctsr_route, nctsr_"& _ "transportmittel, nctsr_von_region FROM dbo.tblNTCSRouten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblNTCSRoutenDataTable) 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 VERAGDataSet.tblNTCSRoutenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblNTCSRoutenDataTable = New VERAGDataSet.tblNTCSRoutenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblNTCSRoutenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblNTCSRouten") 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_nctsr_id As Integer, ByVal Original_nctsr_von As String, ByVal Original_nctsr_nach As String, ByVal Original_nctsr_dauer_in_tagen As Integer, ByVal Original_nctsr_route As String, ByVal Original_nctsr_transportmittel As String, ByVal Original_nctsr_von_region As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_nctsr_id,Integer) If (Original_nctsr_von Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsr_von") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nctsr_von,String) End If If (Original_nctsr_nach Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsr_nach") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nctsr_nach,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_nctsr_dauer_in_tagen,Integer) If (Original_nctsr_route 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_nctsr_route,String) End If If (Original_nctsr_transportmittel Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsr_transportmittel") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_nctsr_transportmittel,String) End If If (Original_nctsr_von_region Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsr_von_region") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_nctsr_von_region,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 nctsr_von As String, ByVal nctsr_nach As String, ByVal nctsr_dauer_in_tagen As Integer, ByVal nctsr_route As String, ByVal nctsr_transportmittel As String, ByVal nctsr_von_region As String) As Integer If (nctsr_von Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsr_von") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(nctsr_von,String) End If If (nctsr_nach Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsr_nach") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(nctsr_nach,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(nctsr_dauer_in_tagen,Integer) If (nctsr_route Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(nctsr_route,String) End If If (nctsr_transportmittel Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsr_transportmittel") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(nctsr_transportmittel,String) End If If (nctsr_von_region Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsr_von_region") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(nctsr_von_region,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 nctsr_von As String, ByVal nctsr_nach As String, ByVal nctsr_dauer_in_tagen As Integer, ByVal nctsr_route As String, ByVal nctsr_transportmittel As String, ByVal nctsr_von_region As String, ByVal Original_nctsr_id As Integer, ByVal Original_nctsr_von As String, ByVal Original_nctsr_nach As String, ByVal Original_nctsr_dauer_in_tagen As Integer, ByVal Original_nctsr_route As String, ByVal Original_nctsr_transportmittel As String, ByVal Original_nctsr_von_region As String, ByVal nctsr_id As Integer) As Integer If (nctsr_von Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsr_von") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nctsr_von,String) End If If (nctsr_nach Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsr_nach") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nctsr_nach,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nctsr_dauer_in_tagen,Integer) If (nctsr_route Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(nctsr_route,String) End If If (nctsr_transportmittel Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsr_transportmittel") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(nctsr_transportmittel,String) End If If (nctsr_von_region Is Nothing) Then Throw New Global.System.ArgumentNullException("nctsr_von_region") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(nctsr_von_region,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_nctsr_id,Integer) If (Original_nctsr_von Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsr_von") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_nctsr_von,String) End If If (Original_nctsr_nach Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsr_nach") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_nctsr_nach,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_nctsr_dauer_in_tagen,Integer) If (Original_nctsr_route 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_nctsr_route,String) End If If (Original_nctsr_transportmittel Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsr_transportmittel") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_nctsr_transportmittel,String) End If If (Original_nctsr_von_region Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_nctsr_von_region") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_nctsr_von_region,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(nctsr_id,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 nctsr_von As String, ByVal nctsr_nach As String, ByVal nctsr_dauer_in_tagen As Integer, ByVal nctsr_route As String, ByVal nctsr_transportmittel As String, ByVal nctsr_von_region As String, ByVal Original_nctsr_id As Integer, ByVal Original_nctsr_von As String, ByVal Original_nctsr_nach As String, ByVal Original_nctsr_dauer_in_tagen As Integer, ByVal Original_nctsr_route As String, ByVal Original_nctsr_transportmittel As String, ByVal Original_nctsr_von_region As String) As Integer Return Me.Update(nctsr_von, nctsr_nach, nctsr_dauer_in_tagen, nctsr_route, nctsr_transportmittel, nctsr_von_region, Original_nctsr_id, Original_nctsr_von, Original_nctsr_nach, Original_nctsr_dauer_in_tagen, Original_nctsr_route, Original_nctsr_transportmittel, Original_nctsr_von_region, Original_nctsr_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOffertenArchivTableAdapter 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 = "tblOffertenArchiv" tableMapping.ColumnMappings.Add("OfID", "OfID") tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("Pauschalpreis", "Pauschalpreis") tableMapping.ColumnMappings.Add("Standardofferte", "Standardofferte") tableMapping.ColumnMappings.Add("Besonderheiten", "Besonderheiten") tableMapping.ColumnMappings.Add("Eingegeben am", "Eingegeben am") tableMapping.ColumnMappings.Add("Geändert am", "Geändert am") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("Gesperrt", "Gesperrt") tableMapping.ColumnMappings.Add("Gesperrt_Datum", "Gesperrt_Datum") tableMapping.ColumnMappings.Add("Gesperrt_Grund", "Gesperrt_Grund") tableMapping.ColumnMappings.Add("Archiviert am", "Archiviert am") tableMapping.ColumnMappings.Add("Art", "Art") 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].[tblOffertenArchiv] WHERE (([OfID] = @Original_OfID) AND ([Kund"& _ "enNr] = @Original_KundenNr) AND ([OffertenNr] = @Original_OffertenNr) AND ((@IsN"& _ "ull_FilialenNr = 1 AND [FilialenNr] IS NULL) OR ([FilialenNr] = @Original_Filial"& _ "enNr)) AND ((@IsNull_Pauschalpreis = 1 AND [Pauschalpreis] IS NULL) OR ([Pauscha"& _ "lpreis] = @Original_Pauschalpreis)) AND ((@IsNull_Standardofferte = 1 AND [Stand"& _ "ardofferte] IS NULL) OR ([Standardofferte] = @Original_Standardofferte)) AND ([E"& _ "ingegeben am] = @Original_Eingegeben_am) AND ((@IsNull_Geändert_am = 1 AND [Geän"& _ "dert am] IS NULL) OR ([Geändert am] = @Original_Geändert_am)) AND ((@IsNull_Sach"& _ "bearbeiter = 1 AND [Sachbearbeiter] IS NULL) OR ([Sachbearbeiter] = @Original_Sa"& _ "chbearbeiter)) AND ((@IsNull_Gesperrt = 1 AND [Gesperrt] IS NULL) OR ([Gesperrt]"& _ " = @Original_Gesperrt)) AND ((@IsNull_Gesperrt_Datum = 1 AND [Gesperrt_Datum] IS"& _ " NULL) OR ([Gesperrt_Datum] = @Original_Gesperrt_Datum)) AND ((@IsNull_Gesperrt_"& _ "Grund = 1 AND [Gesperrt_Grund] IS NULL) OR ([Gesperrt_Grund] = @Original_Gesperr"& _ "t_Grund)) AND ([Archiviert am] = @Original_Archiviert_am) AND ((@IsNull_Art = 1 "& _ "AND [Art] IS NULL) OR ([Art] = @Original_Art)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OfID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OfID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Pauschalpreis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pauschalpreis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pauschalpreis", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pauschalpreis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Standardofferte", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standardofferte", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Standardofferte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standardofferte", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Geändert_am", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Gesperrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gesperrt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Gesperrt_Datum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Datum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gesperrt_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Gesperrt_Grund", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Grund", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gesperrt_Grund", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Grund", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Archiviert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Archiviert am", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Art", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", 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].[tblOffertenArchiv] ([KundenNr], [OffertenNr], [FilialenNr], [P"& _ "auschalpreis], [Standardofferte], [Besonderheiten], [Eingegeben am], [Geändert a"& _ "m], [Sachbearbeiter], [SSMA_TimeStamp], [Gesperrt], [Gesperrt_Datum], [Gesperrt_"& _ "Grund], [Archiviert am], [Art]) VALUES (@KundenNr, @OffertenNr, @FilialenNr, @Pa"& _ "uschalpreis, @Standardofferte, @Besonderheiten, @Eingegeben_am, @Geändert_am, @S"& _ "achbearbeiter, @SSMA_TimeStamp, @Gesperrt, @Gesperrt_Datum, @Gesperrt_Grund, @Ar"& _ "chiviert_am, @Art);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OfID, KundenNr, OffertenNr, FilialenNr, Pauschalprei"& _ "s, Standardofferte, Besonderheiten, [Eingegeben am], [Geändert am], Sachbearbeit"& _ "er, SSMA_TimeStamp, Gesperrt, Gesperrt_Datum, Gesperrt_Grund, [Archiviert am], A"& _ "rt FROM tblOffertenArchiv WHERE (OfID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pauschalpreis", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pauschalpreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standardofferte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standardofferte", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Besonderheiten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Besonderheiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SSMA_TimeStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt_Grund", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Grund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Archiviert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Archiviert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", 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].[tblOffertenArchiv] SET [KundenNr] = @KundenNr, [OffertenNr] = @Offe"& _ "rtenNr, [FilialenNr] = @FilialenNr, [Pauschalpreis] = @Pauschalpreis, [Standardo"& _ "fferte] = @Standardofferte, [Besonderheiten] = @Besonderheiten, [Eingegeben am] "& _ "= @Eingegeben_am, [Geändert am] = @Geändert_am, [Sachbearbeiter] = @Sachbearbeit"& _ "er, [SSMA_TimeStamp] = @SSMA_TimeStamp, [Gesperrt] = @Gesperrt, [Gesperrt_Datum]"& _ " = @Gesperrt_Datum, [Gesperrt_Grund] = @Gesperrt_Grund, [Archiviert am] = @Archi"& _ "viert_am, [Art] = @Art WHERE (([OfID] = @Original_OfID) AND ([KundenNr] = @Origi"& _ "nal_KundenNr) AND ([OffertenNr] = @Original_OffertenNr) AND ((@IsNull_FilialenNr"& _ " = 1 AND [FilialenNr] IS NULL) OR ([FilialenNr] = @Original_FilialenNr)) AND ((@"& _ "IsNull_Pauschalpreis = 1 AND [Pauschalpreis] IS NULL) OR ([Pauschalpreis] = @Ori"& _ "ginal_Pauschalpreis)) AND ((@IsNull_Standardofferte = 1 AND [Standardofferte] IS"& _ " NULL) OR ([Standardofferte] = @Original_Standardofferte)) AND ([Eingegeben am] "& _ "= @Original_Eingegeben_am) AND ((@IsNull_Geändert_am = 1 AND [Geändert am] IS NU"& _ "LL) OR ([Geändert am] = @Original_Geändert_am)) AND ((@IsNull_Sachbearbeiter = 1"& _ " AND [Sachbearbeiter] IS NULL) OR ([Sachbearbeiter] = @Original_Sachbearbeiter))"& _ " AND ((@IsNull_Gesperrt = 1 AND [Gesperrt] IS NULL) OR ([Gesperrt] = @Original_G"& _ "esperrt)) AND ((@IsNull_Gesperrt_Datum = 1 AND [Gesperrt_Datum] IS NULL) OR ([Ge"& _ "sperrt_Datum] = @Original_Gesperrt_Datum)) AND ((@IsNull_Gesperrt_Grund = 1 AND "& _ "[Gesperrt_Grund] IS NULL) OR ([Gesperrt_Grund] = @Original_Gesperrt_Grund)) AND "& _ "([Archiviert am] = @Original_Archiviert_am) AND ((@IsNull_Art = 1 AND [Art] IS N"& _ "ULL) OR ([Art] = @Original_Art)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT OfID, KundenNr, OffertenNr, FilialenN"& _ "r, Pauschalpreis, Standardofferte, Besonderheiten, [Eingegeben am], [Geändert am"& _ "], Sachbearbeiter, SSMA_TimeStamp, Gesperrt, Gesperrt_Datum, Gesperrt_Grund, [Ar"& _ "chiviert am], Art FROM tblOffertenArchiv WHERE (OfID = @OfID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pauschalpreis", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pauschalpreis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standardofferte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standardofferte", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Besonderheiten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Besonderheiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SSMA_TimeStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesperrt_Grund", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Grund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Archiviert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Archiviert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OfID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OfID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Pauschalpreis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pauschalpreis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pauschalpreis", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pauschalpreis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Standardofferte", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standardofferte", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Standardofferte", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standardofferte", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Geändert_am", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Gesperrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gesperrt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Gesperrt_Datum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Datum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gesperrt_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Gesperrt_Grund", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Grund", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gesperrt_Grund", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesperrt_Grund", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Archiviert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Archiviert am", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Art", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OfID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "OfID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 OfID, KundenNr, OffertenNr, FilialenNr, Pauschalpreis, Standardofferte, Be"& _ "sonderheiten, [Eingegeben am], [Geändert am], Sachbearbeiter, SSMA_TimeStamp, Ge"& _ "sperrt, Gesperrt_Datum, Gesperrt_Grund, [Archiviert am], Art FROM dbo.tblOfferte"& _ "nArchiv" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOffertenArchivDataTable) 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 VERAGDataSet.tblOffertenArchivDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOffertenArchivDataTable = New VERAGDataSet.tblOffertenArchivDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOffertenArchivDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOffertenArchiv") 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_OfID As Integer, ByVal Original_KundenNr As Integer, ByVal Original_OffertenNr As Integer, ByVal Original_FilialenNr As Global.System.Nullable(Of Short), ByVal Original_Pauschalpreis As Global.System.Nullable(Of Boolean), ByVal Original_Standardofferte As Global.System.Nullable(Of Boolean), ByVal Original_Eingegeben_am As Date, ByVal Original_Geändert_am As Global.System.Nullable(Of Date), ByVal Original_Sachbearbeiter As String, ByVal Original_Gesperrt As Global.System.Nullable(Of Boolean), ByVal Original_Gesperrt_Datum As Global.System.Nullable(Of Date), ByVal Original_Gesperrt_Grund As String, ByVal Original_Archiviert_am As Date, ByVal Original_Art As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_OfID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_OffertenNr,Integer) If (Original_FilialenNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_FilialenNr.Value,Short) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_Pauschalpreis.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Pauschalpreis.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_Standardofferte.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Standardofferte.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Eingegeben_am,Date) If (Original_Geändert_am.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_Geändert_am.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Original_Sachbearbeiter 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_Sachbearbeiter,String) End If If (Original_Gesperrt.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_Gesperrt.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_Gesperrt_Datum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_Gesperrt_Datum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_Gesperrt_Grund 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_Gesperrt_Grund,String) End If Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Archiviert_am,Date) If (Original_Art Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_Art,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 KundenNr As Integer, ByVal OffertenNr As Integer, ByVal FilialenNr As Global.System.Nullable(Of Short), ByVal Pauschalpreis As Global.System.Nullable(Of Boolean), ByVal Standardofferte As Global.System.Nullable(Of Boolean), ByVal Besonderheiten As String, ByVal Eingegeben_am As Date, ByVal Geändert_am As Global.System.Nullable(Of Date), ByVal Sachbearbeiter As String, ByVal SSMA_TimeStamp As String, ByVal Gesperrt As Global.System.Nullable(Of Boolean), ByVal Gesperrt_Datum As Global.System.Nullable(Of Date), ByVal Gesperrt_Grund As String, ByVal Archiviert_am As Date, ByVal Art As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(OffertenNr,Integer) If (FilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Pauschalpreis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Pauschalpreis.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Standardofferte.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Standardofferte.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Besonderheiten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Besonderheiten,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Sachbearbeiter,String) End If If (SSMA_TimeStamp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(SSMA_TimeStamp,String) End If If (Gesperrt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Gesperrt.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Gesperrt_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Gesperrt_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Gesperrt_Grund Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Gesperrt_Grund,String) End If Me.Adapter.InsertCommand.Parameters(13).Value = CType(Archiviert_am,Date) If (Art Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Art,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 KundenNr As Integer, _ ByVal OffertenNr As Integer, _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal Pauschalpreis As Global.System.Nullable(Of Boolean), _ ByVal Standardofferte As Global.System.Nullable(Of Boolean), _ ByVal Besonderheiten As String, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal SSMA_TimeStamp As String, _ ByVal Gesperrt As Global.System.Nullable(Of Boolean), _ ByVal Gesperrt_Datum As Global.System.Nullable(Of Date), _ ByVal Gesperrt_Grund As String, _ ByVal Archiviert_am As Date, _ ByVal Art As String, _ ByVal Original_OfID As Integer, _ ByVal Original_KundenNr As Integer, _ ByVal Original_OffertenNr As Integer, _ ByVal Original_FilialenNr As Global.System.Nullable(Of Short), _ ByVal Original_Pauschalpreis As Global.System.Nullable(Of Boolean), _ ByVal Original_Standardofferte As Global.System.Nullable(Of Boolean), _ ByVal Original_Eingegeben_am As Date, _ ByVal Original_Geändert_am As Global.System.Nullable(Of Date), _ ByVal Original_Sachbearbeiter As String, _ ByVal Original_Gesperrt As Global.System.Nullable(Of Boolean), _ ByVal Original_Gesperrt_Datum As Global.System.Nullable(Of Date), _ ByVal Original_Gesperrt_Grund As String, _ ByVal Original_Archiviert_am As Date, _ ByVal Original_Art As String, _ ByVal OfID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OffertenNr,Integer) If (FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Pauschalpreis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Pauschalpreis.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Standardofferte.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Standardofferte.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Besonderheiten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Besonderheiten,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Sachbearbeiter,String) End If If (SSMA_TimeStamp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SSMA_TimeStamp,String) End If If (Gesperrt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Gesperrt.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Gesperrt_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Gesperrt_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Gesperrt_Grund Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Gesperrt_Grund,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Archiviert_am,Date) If (Art Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Art,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_OfID,Integer) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_OffertenNr,Integer) If (Original_FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_FilialenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_Pauschalpreis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Pauschalpreis.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_Standardofferte.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Standardofferte.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Eingegeben_am,Date) If (Original_Geändert_am.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_Geändert_am.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_Sachbearbeiter,String) End If If (Original_Gesperrt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Gesperrt.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_Gesperrt_Datum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_Gesperrt_Datum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_Gesperrt_Grund Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_Gesperrt_Grund,String) End If Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_Archiviert_am,Date) If (Original_Art Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_Art,String) End If Me.Adapter.UpdateCommand.Parameters(38).Value = CType(OfID,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 KundenNr As Integer, _ ByVal OffertenNr As Integer, _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal Pauschalpreis As Global.System.Nullable(Of Boolean), _ ByVal Standardofferte As Global.System.Nullable(Of Boolean), _ ByVal Besonderheiten As String, _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal SSMA_TimeStamp As String, _ ByVal Gesperrt As Global.System.Nullable(Of Boolean), _ ByVal Gesperrt_Datum As Global.System.Nullable(Of Date), _ ByVal Gesperrt_Grund As String, _ ByVal Archiviert_am As Date, _ ByVal Art As String, _ ByVal Original_OfID As Integer, _ ByVal Original_KundenNr As Integer, _ ByVal Original_OffertenNr As Integer, _ ByVal Original_FilialenNr As Global.System.Nullable(Of Short), _ ByVal Original_Pauschalpreis As Global.System.Nullable(Of Boolean), _ ByVal Original_Standardofferte As Global.System.Nullable(Of Boolean), _ ByVal Original_Eingegeben_am As Date, _ ByVal Original_Geändert_am As Global.System.Nullable(Of Date), _ ByVal Original_Sachbearbeiter As String, _ ByVal Original_Gesperrt As Global.System.Nullable(Of Boolean), _ ByVal Original_Gesperrt_Datum As Global.System.Nullable(Of Date), _ ByVal Original_Gesperrt_Grund As String, _ ByVal Original_Archiviert_am As Date, _ ByVal Original_Art As String) As Integer Return Me.Update(KundenNr, OffertenNr, FilialenNr, Pauschalpreis, Standardofferte, Besonderheiten, Eingegeben_am, Geändert_am, Sachbearbeiter, SSMA_TimeStamp, Gesperrt, Gesperrt_Datum, Gesperrt_Grund, Archiviert_am, Art, Original_OfID, Original_KundenNr, Original_OffertenNr, Original_FilialenNr, Original_Pauschalpreis, Original_Standardofferte, Original_Eingegeben_am, Original_Geändert_am, Original_Sachbearbeiter, Original_Gesperrt, Original_Gesperrt_Datum, Original_Gesperrt_Grund, Original_Archiviert_am, Original_Art, Original_OfID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOffertenPositionenArchivTableAdapter 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 = "tblOffertenPositionenArchiv" tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") tableMapping.ColumnMappings.Add("BGebLeistungsNr", "BGebLeistungsNr") tableMapping.ColumnMappings.Add("BGebProzent", "BGebProzent") tableMapping.ColumnMappings.Add("BGebMinBetrag", "BGebMinBetrag") tableMapping.ColumnMappings.Add("Eingegeben am", "Eingegeben am") tableMapping.ColumnMappings.Add("Geändert am", "Geändert am") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Preisänderung", "Preisänderung") tableMapping.ColumnMappings.Add("PreisänderungProzent", "PreisänderungProzent") tableMapping.ColumnMappings.Add("PreisAlt", "PreisAlt") tableMapping.ColumnMappings.Add("BerechnungsartPosInkludiert", "BerechnungsartPosInkludiert") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("Archiviert am", "Archiviert am") tableMapping.ColumnMappings.Add("OfID", "OfID") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblOffertenPositionenArchiv] ([KundenNr], [OffertenNr], [Leist"& _ "ungsNr], [LeistungsBez], [BerechnungsartNr], [Preis], [Anzahl], [BGebLeistungsNr"& _ "], [BGebProzent], [BGebMinBetrag], [Eingegeben am], [Geändert am], [Sachbearbeit"& _ "er], [Preisänderung], [PreisänderungProzent], [PreisAlt], [BerechnungsartPosInkl"& _ "udiert], [SSMA_TimeStamp], [Archiviert am], [OfID]) VALUES (@KundenNr, @Offerten"& _ "Nr, @LeistungsNr, @LeistungsBez, @BerechnungsartNr, @Preis, @Anzahl, @BGebLeistu"& _ "ngsNr, @BGebProzent, @BGebMinBetrag, @Eingegeben_am, @Geändert_am, @Sachbearbeit"& _ "er, @Preisänderung, @PreisänderungProzent, @PreisAlt, @BerechnungsartPosInkludie"& _ "rt, @SSMA_TimeStamp, @Archiviert_am, @OfID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebLeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebMinBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BGebMinBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingegeben_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingegeben am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geändert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Geändert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preisänderung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preisänderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreisänderungProzent", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreisänderungProzent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreisAlt", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreisAlt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartPosInkludiert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BerechnungsartPosInkludiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SSMA_TimeStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Archiviert_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Archiviert am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OfID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OfID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 KundenNr, OffertenNr, LeistungsNr, LeistungsBez, BerechnungsartNr, Preis, "& _ "Anzahl, BGebLeistungsNr, BGebProzent, BGebMinBetrag, [Eingegeben am], [Geändert "& _ "am], Sachbearbeiter, Preisänderung, PreisänderungProzent, PreisAlt, Berechnungsa"& _ "rtPosInkludiert, SSMA_TimeStamp, [Archiviert am], OfID FROM dbo.tblOffertenPosit"& _ "ionenArchiv" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOffertenPositionenArchivDataTable) 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 VERAGDataSet.tblOffertenPositionenArchivDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOffertenPositionenArchivDataTable = New VERAGDataSet.tblOffertenPositionenArchivDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOffertenPositionenArchivDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOffertenPositionenArchiv") 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 Insert( _ ByVal KundenNr As Integer, _ ByVal OffertenNr As Integer, _ ByVal LeistungsNr As Short, _ ByVal LeistungsBez As String, _ ByVal BerechnungsartNr As Short, _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal Eingegeben_am As Date, _ ByVal Geändert_am As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal Preisänderung As Global.System.Nullable(Of Decimal), _ ByVal PreisänderungProzent As Global.System.Nullable(Of Single), _ ByVal PreisAlt As Global.System.Nullable(Of Decimal), _ ByVal BerechnungsartPosInkludiert As Global.System.Nullable(Of Integer), _ ByVal SSMA_TimeStamp As String, _ ByVal Archiviert_am As Date, _ ByVal OfID As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(OffertenNr,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(LeistungsBez,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(BerechnungsartNr,Short) If (Preis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Preis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Anzahl.Value,Short) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(Eingegeben_am,Date) If (Geändert_am.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Geändert_am.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Sachbearbeiter,String) End If If (Preisänderung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(Preisänderung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (PreisänderungProzent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(PreisänderungProzent.Value,Single) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (PreisAlt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(PreisAlt.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (BerechnungsartPosInkludiert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(BerechnungsartPosInkludiert.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (SSMA_TimeStamp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(SSMA_TimeStamp,String) End If Me.Adapter.InsertCommand.Parameters(18).Value = CType(Archiviert_am,Date) Me.Adapter.InsertCommand.Parameters(19).Value = CType(OfID,Integer) 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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOregonNCTS_DeclarationDataTableAdapter 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 = "tblOregonNCTS_DeclarationData" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("auto_send", "auto_send") tableMapping.ColumnMappings.Add("badge_code", "badge_code") tableMapping.ColumnMappings.Add("service_code", "service_code") tableMapping.ColumnMappings.Add("doc_type", "doc_type") tableMapping.ColumnMappings.Add("declaration_type", "declaration_type") tableMapping.ColumnMappings.Add("commercial_ref", "commercial_ref") tableMapping.ColumnMappings.Add("ducr", "ducr") tableMapping.ColumnMappings.Add("mucr", "mucr") tableMapping.ColumnMappings.Add("ducr_part", "ducr_part") tableMapping.ColumnMappings.Add("declarant_eori", "declarant_eori") tableMapping.ColumnMappings.Add("declarant_name", "declarant_name") tableMapping.ColumnMappings.Add("declarant_address", "declarant_address") tableMapping.ColumnMappings.Add("declarant_city_name", "declarant_city_name") tableMapping.ColumnMappings.Add("declarant_country_id", "declarant_country_id") tableMapping.ColumnMappings.Add("declarant_postcode", "declarant_postcode") tableMapping.ColumnMappings.Add("declarant_rep", "declarant_rep") tableMapping.ColumnMappings.Add("export_country_id", "export_country_id") tableMapping.ColumnMappings.Add("consignor_eori", "consignor_eori") tableMapping.ColumnMappings.Add("consignor_name", "consignor_name") tableMapping.ColumnMappings.Add("consignor_address", "consignor_address") tableMapping.ColumnMappings.Add("consignor_city_name", "consignor_city_name") tableMapping.ColumnMappings.Add("consignor_country_id", "consignor_country_id") tableMapping.ColumnMappings.Add("consignor_postcode", "consignor_postcode") tableMapping.ColumnMappings.Add("multiple_consignor", "multiple_consignor") tableMapping.ColumnMappings.Add("import_country_id", "import_country_id") tableMapping.ColumnMappings.Add("consignee_eori", "consignee_eori") tableMapping.ColumnMappings.Add("consignee_name", "consignee_name") tableMapping.ColumnMappings.Add("consignee_address", "consignee_address") tableMapping.ColumnMappings.Add("consignee_city_name", "consignee_city_name") tableMapping.ColumnMappings.Add("consignee_country_id", "consignee_country_id") tableMapping.ColumnMappings.Add("consignee_postcode", "consignee_postcode") tableMapping.ColumnMappings.Add("multiple_consignee", "multiple_consignee") tableMapping.ColumnMappings.Add("invoice_amount", "invoice_amount") tableMapping.ColumnMappings.Add("invoice_curr", "invoice_curr") tableMapping.ColumnMappings.Add("goods_location", "goods_location") tableMapping.ColumnMappings.Add("border_transport_type", "border_transport_type") tableMapping.ColumnMappings.Add("border_vehicle_code", "border_vehicle_code") tableMapping.ColumnMappings.Add("border_vehicle_coun", "border_vehicle_coun") tableMapping.ColumnMappings.Add("inland_transport_type", "inland_transport_type") tableMapping.ColumnMappings.Add("container_no", "container_no") tableMapping.ColumnMappings.Add("gvms_interested", "gvms_interested") tableMapping.ColumnMappings.Add("freight_amount", "freight_amount") tableMapping.ColumnMappings.Add("freight_curr", "freight_curr") tableMapping.ColumnMappings.Add("payment_method", "payment_method") tableMapping.ColumnMappings.Add("carrier_eori", "carrier_eori") tableMapping.ColumnMappings.Add("carrier_name", "carrier_name") tableMapping.ColumnMappings.Add("carrier_address", "carrier_address") tableMapping.ColumnMappings.Add("carrier_city_name", "carrier_city_name") tableMapping.ColumnMappings.Add("carrier_country_id", "carrier_country_id") tableMapping.ColumnMappings.Add("carrier_postcode", "carrier_postcode") tableMapping.ColumnMappings.Add("total_packages", "total_packages") tableMapping.ColumnMappings.Add("nature_of_transaction", "nature_of_transaction") tableMapping.ColumnMappings.Add("premises_code", "premises_code") tableMapping.ColumnMappings.Add("first_dan_no", "first_dan_no") tableMapping.ColumnMappings.Add("second_dan_no", "second_dan_no") tableMapping.ColumnMappings.Add("insurance_amount", "insurance_amount") tableMapping.ColumnMappings.Add("insurance_curr", "insurance_curr") tableMapping.ColumnMappings.Add("other_amounts", "other_amounts") tableMapping.ColumnMappings.Add("other_amounts_curr", "other_amounts_curr") tableMapping.ColumnMappings.Add("apportment_indicator", "apportment_indicator") tableMapping.ColumnMappings.Add("total_gross_weight", "total_gross_weight") tableMapping.ColumnMappings.Add("total_net_weight", "total_net_weight") tableMapping.ColumnMappings.Add("airfreight_cost", "airfreight_cost") tableMapping.ColumnMappings.Add("vat_adjustment", "vat_adjustment") tableMapping.ColumnMappings.Add("vat_adjustment_curr", "vat_adjustment_curr") tableMapping.ColumnMappings.Add("discount_amount", "discount_amount") tableMapping.ColumnMappings.Add("discount_curr", "discount_curr") tableMapping.ColumnMappings.Add("discount_rate", "discount_rate") tableMapping.ColumnMappings.Add("incoterm", "incoterm") tableMapping.ColumnMappings.Add("incoterm_location", "incoterm_location") tableMapping.ColumnMappings.Add("trader_ref", "trader_ref") tableMapping.ColumnMappings.Add("arrival_transport_type", "arrival_transport_type") tableMapping.ColumnMappings.Add("guarantee_code", "guarantee_code") tableMapping.ColumnMappings.Add("guarantee_reference", "guarantee_reference") tableMapping.ColumnMappings.Add("created", "created") tableMapping.ColumnMappings.Add("status", "status") tableMapping.ColumnMappings.Add("aviso_id", "aviso_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 [dbo].[tblOregonNCTS_DeclarationData] WHERE (([Id] = @Original_Id) AN"& _ "D ([auto_send] = @Original_auto_send) AND ((@IsNull_badge_code = 1 AND [badge_co"& _ "de] IS NULL) OR ([badge_code] = @Original_badge_code)) AND ((@IsNull_service_cod"& _ "e = 1 AND [service_code] IS NULL) OR ([service_code] = @Original_service_code)) "& _ "AND ((@IsNull_doc_type = 1 AND [doc_type] IS NULL) OR ([doc_type] = @Original_do"& _ "c_type)) AND ((@IsNull_declaration_type = 1 AND [declaration_type] IS NULL) OR ("& _ "[declaration_type] = @Original_declaration_type)) AND ((@IsNull_commercial_ref ="& _ " 1 AND [commercial_ref] IS NULL) OR ([commercial_ref] = @Original_commercial_ref"& _ ")) AND ((@IsNull_ducr = 1 AND [ducr] IS NULL) OR ([ducr] = @Original_ducr)) AND "& _ "((@IsNull_mucr = 1 AND [mucr] IS NULL) OR ([mucr] = @Original_mucr)) AND ((@IsNu"& _ "ll_ducr_part = 1 AND [ducr_part] IS NULL) OR ([ducr_part] = @Original_ducr_part)"& _ ") AND ((@IsNull_declarant_eori = 1 AND [declarant_eori] IS NULL) OR ([declarant_"& _ "eori] = @Original_declarant_eori)) AND ((@IsNull_declarant_name = 1 AND [declara"& _ "nt_name] IS NULL) OR ([declarant_name] = @Original_declarant_name)) AND ((@IsNul"& _ "l_declarant_address = 1 AND [declarant_address] IS NULL) OR ([declarant_address]"& _ " = @Original_declarant_address)) AND ((@IsNull_declarant_city_name = 1 AND [decl"& _ "arant_city_name] IS NULL) OR ([declarant_city_name] = @Original_declarant_city_n"& _ "ame)) AND ((@IsNull_declarant_country_id = 1 AND [declarant_country_id] IS NULL)"& _ " OR ([declarant_country_id] = @Original_declarant_country_id)) AND ((@IsNull_dec"& _ "larant_postcode = 1 AND [declarant_postcode] IS NULL) OR ([declarant_postcode] ="& _ " @Original_declarant_postcode)) AND ((@IsNull_declarant_rep = 1 AND [declarant_r"& _ "ep] IS NULL) OR ([declarant_rep] = @Original_declarant_rep)) AND ((@IsNull_expor"& _ "t_country_id = 1 AND [export_country_id] IS NULL) OR ([export_country_id] = @Ori"& _ "ginal_export_country_id)) AND ((@IsNull_consignor_eori = 1 AND [consignor_eori] "& _ "IS NULL) OR ([consignor_eori] = @Original_consignor_eori)) AND ((@IsNull_consign"& _ "or_name = 1 AND [consignor_name] IS NULL) OR ([consignor_name] = @Original_consi"& _ "gnor_name)) AND ((@IsNull_consignor_address = 1 AND [consignor_address] IS NULL)"& _ " OR ([consignor_address] = @Original_consignor_address)) AND ((@IsNull_consignor"& _ "_city_name = 1 AND [consignor_city_name] IS NULL) OR ([consignor_city_name] = @O"& _ "riginal_consignor_city_name)) AND ((@IsNull_consignor_country_id = 1 AND [consig"& _ "nor_country_id] IS NULL) OR ([consignor_country_id] = @Original_consignor_countr"& _ "y_id)) AND ((@IsNull_consignor_postcode = 1 AND [consignor_postcode] IS NULL) OR"& _ " ([consignor_postcode] = @Original_consignor_postcode)) AND ([multiple_consignor"& _ "] = @Original_multiple_consignor) AND ((@IsNull_import_country_id = 1 AND [impor"& _ "t_country_id] IS NULL) OR ([import_country_id] = @Original_import_country_id)) A"& _ "ND ((@IsNull_consignee_eori = 1 AND [consignee_eori] IS NULL) OR ([consignee_eor"& _ "i] = @Original_consignee_eori)) AND ((@IsNull_consignee_name = 1 AND [consignee_"& _ "name] IS NULL) OR ([consignee_name] = @Original_consignee_name)) AND ((@IsNull_c"& _ "onsignee_address = 1 AND [consignee_address] IS NULL) OR ([consignee_address] = "& _ "@Original_consignee_address)) AND ((@IsNull_consignee_city_name = 1 AND [consign"& _ "ee_city_name] IS NULL) OR ([consignee_city_name] = @Original_consignee_city_name"& _ ")) AND ((@IsNull_consignee_country_id = 1 AND [consignee_country_id] IS NULL) OR"& _ " ([consignee_country_id] = @Original_consignee_country_id)) AND ((@IsNull_consig"& _ "nee_postcode = 1 AND [consignee_postcode] IS NULL) OR ([consignee_postcode] = @O"& _ "riginal_consignee_postcode)) AND ([multiple_consignee] = @Original_multiple_cons"& _ "ignee) AND ((@IsNull_invoice_amount = 1 AND [invoice_amount] IS NULL) OR ([invoi"& _ "ce_amount] = @Original_invoice_amount)) AND ((@IsNull_invoice_curr = 1 AND [invo"& _ "ice_curr] IS NULL) OR ([invoice_curr] = @Original_invoice_curr)) AND ((@IsNull_g"& _ "oods_location = 1 AND [goods_location] IS NULL) OR ([goods_location] = @Original"& _ "_goods_location)) AND ((@IsNull_border_transport_type = 1 AND [border_transport_"& _ "type] IS NULL) OR ([border_transport_type] = @Original_border_transport_type)) A"& _ "ND ((@IsNull_border_vehicle_code = 1 AND [border_vehicle_code] IS NULL) OR ([bor"& _ "der_vehicle_code] = @Original_border_vehicle_code)) AND ((@IsNull_border_vehicle"& _ "_coun = 1 AND [border_vehicle_coun] IS NULL) OR ([border_vehicle_coun] = @Origin"& _ "al_border_vehicle_coun)) AND ((@IsNull_inland_transport_type = 1 AND [inland_tra"& _ "nsport_type] IS NULL) OR ([inland_transport_type] = @Original_inland_transport_t"& _ "ype)) AND ((@IsNull_container_no = 1 AND [container_no] IS NULL) OR ([container_"& _ "no] = @Original_container_no)) AND ([gvms_interested] = @Original_gvms_intereste"& _ "d) AND ((@IsNull_freight_amount = 1 AND [freight_amount] IS NULL) OR ([freight_a"& _ "mount] = @Original_freight_amount)) AND ((@IsNull_freight_curr = 1 AND [freight_"& _ "curr] IS NULL) OR ([freight_curr] = @Original_freight_curr)) AND ((@IsNull_payme"& _ "nt_method = 1 AND [payment_method] IS NULL) OR ([payment_method] = @Original_pay"& _ "ment_method)) AND ((@IsNull_carrier_eori = 1 AND [carrier_eori] IS NULL) OR ([ca"& _ "rrier_eori] = @Original_carrier_eori)) AND ((@IsNull_carrier_name = 1 AND [carri"& _ "er_name] IS NULL) OR ([carrier_name] = @Original_carrier_name)) AND ((@IsNull_ca"& _ "rrier_address = 1 AND [carrier_address] IS NULL) OR ([carrier_address] = @Origin"& _ "al_carrier_address)) AND ((@IsNull_carrier_city_name = 1 AND [carrier_city_name]"& _ " IS NULL) OR ([carrier_city_name] = @Original_carrier_city_name)) AND ((@IsNull_"& _ "carrier_country_id = 1 AND [carrier_country_id] IS NULL) OR ([carrier_country_id"& _ "] = @Original_carrier_country_id)) AND ((@IsNull_carrier_postcode = 1 AND [carri"& _ "er_postcode] IS NULL) OR ([carrier_postcode] = @Original_carrier_postcode)) AND "& _ "([total_packages] = @Original_total_packages) AND ((@IsNull_nature_of_transactio"& _ "n = 1 AND [nature_of_transaction] IS NULL) OR ([nature_of_transaction] = @Origin"& _ "al_nature_of_transaction)) AND ((@IsNull_premises_code = 1 AND [premises_code] I"& _ "S NULL) OR ([premises_code] = @Original_premises_code)) AND ((@IsNull_first_dan_"& _ "no = 1 AND [first_dan_no] IS NULL) OR ([first_dan_no] = @Original_first_dan_no))"& _ " AND ((@IsNull_second_dan_no = 1 AND [second_dan_no] IS NULL) OR ([second_dan_no"& _ "] = @Original_second_dan_no)) AND ((@IsNull_insurance_amount = 1 AND [insurance_"& _ "amount] IS NULL) OR ([insurance_amount] = @Original_insurance_amount)) AND ((@Is"& _ "Null_insurance_curr = 1 AND [insurance_curr] IS NULL) OR ([insurance_curr] = @Or"& _ "iginal_insurance_curr)) AND ((@IsNull_other_amounts = 1 AND [other_amounts] IS N"& _ "ULL) OR ([other_amounts] = @Original_other_amounts)) AND ((@IsNull_other_amounts"& _ "_curr = 1 AND [other_amounts_curr] IS NULL) OR ([other_amounts_curr] = @Original"& _ "_other_amounts_curr)) AND ((@IsNull_apportment_indicator = 1 AND [apportment_ind"& _ "icator] IS NULL) OR ([apportment_indicator] = @Original_apportment_indicator)) A"& _ "ND ((@IsNull_total_gross_weight = 1 AND [total_gross_weight] IS NULL) OR ([total"& _ "_gross_weight] = @Original_total_gross_weight)) AND ((@IsNull_total_net_weight ="& _ " 1 AND [total_net_weight] IS NULL) OR ([total_net_weight] = @Original_total_net_"& _ "weight)) AND ((@IsNull_airfreight_cost = 1 AND [airfreight_cost] IS NULL) OR ([a"& _ "irfreight_cost] = @Original_airfreight_cost)) AND ((@IsNull_vat_adjustment = 1 A"& _ "ND [vat_adjustment] IS NULL) OR ([vat_adjustment] = @Original_vat_adjustment)) A"& _ "ND ((@IsNull_vat_adjustment_curr = 1 AND [vat_adjustment_curr] IS NULL) OR ([vat"& _ "_adjustment_curr] = @Original_vat_adjustment_curr)) AND ((@IsNull_discount_amoun"& _ "t = 1 AND [discount_amount] IS NULL) OR ([discount_amount] = @Original_discount_"& _ "amount)) AND ((@IsNull_discount_curr = 1 AND [discount_curr] IS NULL) OR ([disco"& _ "unt_curr] = @Original_discount_curr)) AND ((@IsNull_discount_rate = 1 AND [disco"& _ "unt_rate] IS NULL) OR ([discount_rate] = @Original_discount_rate)) AND ((@IsNull"& _ "_incoterm = 1 AND [incoterm] IS NULL) OR ([incoterm] = @Original_incoterm)) AND "& _ "((@IsNull_incoterm_location = 1 AND [incoterm_location] IS NULL) OR ([incoterm_l"& _ "ocation] = @Original_incoterm_location)) AND ((@IsNull_trader_ref = 1 AND [trade"& _ "r_ref] IS NULL) OR ([trader_ref] = @Original_trader_ref)) AND ((@IsNull_arrival_"& _ "transport_type = 1 AND [arrival_transport_type] IS NULL) OR ([arrival_transport_"& _ "type] = @Original_arrival_transport_type)) AND ([guarantee_code] = @Original_gua"& _ "rantee_code) AND ((@IsNull_guarantee_reference = 1 AND [guarantee_reference] IS "& _ "NULL) OR ([guarantee_reference] = @Original_guarantee_reference)) AND ([created]"& _ " = @Original_created) AND ((@IsNull_status = 1 AND [status] IS NULL) OR ([status"& _ "] = @Original_status)) AND ((@IsNull_aviso_id = 1 AND [aviso_id] IS NULL) OR ([a"& _ "viso_id] = @Original_aviso_id)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_auto_send", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "auto_send", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_badge_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "badge_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_badge_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "badge_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_service_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "service_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_service_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "service_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_doc_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declaration_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declaration_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declaration_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declaration_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_commercial_ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commercial_ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_commercial_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commercial_ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ducr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ducr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mucr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mucr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mucr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mucr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ducr_part", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr_part", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ducr_part", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr_part", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_rep", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_rep", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_rep", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_rep", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_export_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "export_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_export_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "export_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_multiple_consignor", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "multiple_consignor", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_import_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "import_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_import_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "import_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_multiple_consignee", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "multiple_consignee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_goods_location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_goods_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_border_transport_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_transport_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_border_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_transport_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_border_vehicle_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_border_vehicle_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_border_vehicle_coun", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_coun", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_border_vehicle_coun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_coun", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_inland_transport_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "inland_transport_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_inland_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "inland_transport_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_container_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_container_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_interested", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_interested", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_freight_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_freight_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_freight_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_freight_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_payment_method", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "payment_method", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_payment_method", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "payment_method", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_total_packages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_packages", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nature_of_transaction", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nature_of_transaction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_premises_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "premises_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_premises_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "premises_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_first_dan_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "first_dan_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_first_dan_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "first_dan_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_second_dan_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "second_dan_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_second_dan_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "second_dan_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_insurance_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_insurance_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_insurance_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_insurance_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_other_amounts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_other_amounts", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_other_amounts_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_other_amounts_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_apportment_indicator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "apportment_indicator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_apportment_indicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "apportment_indicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_total_gross_weight", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_gross_weight", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_total_gross_weight", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_gross_weight", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_total_net_weight", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_net_weight", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_total_net_weight", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_net_weight", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_airfreight_cost", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "airfreight_cost", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_airfreight_cost", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "airfreight_cost", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vat_adjustment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vat_adjustment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vat_adjustment_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vat_adjustment_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_discount_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_discount_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_discount_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_discount_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_discount_rate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_rate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_discount_rate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_rate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_incoterm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_incoterm", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_incoterm_location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm_location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_incoterm_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm_location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trader_ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trader_ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trader_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trader_ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_arrival_transport_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrival_transport_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_arrival_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrival_transport_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_guarantee_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "guarantee_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_guarantee_reference", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "guarantee_reference", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_guarantee_reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "guarantee_reference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_created", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "created", 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.VarChar, 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_aviso_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aviso_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aviso_id", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aviso_id", 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].[tblOregonNCTS_DeclarationData] ([auto_send], [badge_code], [se"& _ "rvice_code], [doc_type], [declaration_type], [commercial_ref], [ducr], [mucr], ["& _ "ducr_part], [declarant_eori], [declarant_name], [declarant_address], [declarant_"& _ "city_name], [declarant_country_id], [declarant_postcode], [declarant_rep], [expo"& _ "rt_country_id], [consignor_eori], [consignor_name], [consignor_address], [consig"& _ "nor_city_name], [consignor_country_id], [consignor_postcode], [multiple_consigno"& _ "r], [import_country_id], [consignee_eori], [consignee_name], [consignee_address]"& _ ", [consignee_city_name], [consignee_country_id], [consignee_postcode], [multiple"& _ "_consignee], [invoice_amount], [invoice_curr], [goods_location], [border_transpo"& _ "rt_type], [border_vehicle_code], [border_vehicle_coun], [inland_transport_type],"& _ " [container_no], [gvms_interested], [freight_amount], [freight_curr], [payment_m"& _ "ethod], [carrier_eori], [carrier_name], [carrier_address], [carrier_city_name], "& _ "[carrier_country_id], [carrier_postcode], [total_packages], [nature_of_transacti"& _ "on], [premises_code], [first_dan_no], [second_dan_no], [insurance_amount], [insu"& _ "rance_curr], [other_amounts], [other_amounts_curr], [apportment_indicator], [tot"& _ "al_gross_weight], [total_net_weight], [airfreight_cost], [vat_adjustment], [vat_"& _ "adjustment_curr], [discount_amount], [discount_curr], [discount_rate], [incoterm"& _ "], [incoterm_location], [trader_ref], [arrival_transport_type], [guarantee_code]"& _ ", [guarantee_reference], [created], [status], [aviso_id]) VALUES (@auto_send, @b"& _ "adge_code, @service_code, @doc_type, @declaration_type, @commercial_ref, @ducr, "& _ "@mucr, @ducr_part, @declarant_eori, @declarant_name, @declarant_address, @declar"& _ "ant_city_name, @declarant_country_id, @declarant_postcode, @declarant_rep, @expo"& _ "rt_country_id, @consignor_eori, @consignor_name, @consignor_address, @consignor_"& _ "city_name, @consignor_country_id, @consignor_postcode, @multiple_consignor, @imp"& _ "ort_country_id, @consignee_eori, @consignee_name, @consignee_address, @consignee"& _ "_city_name, @consignee_country_id, @consignee_postcode, @multiple_consignee, @in"& _ "voice_amount, @invoice_curr, @goods_location, @border_transport_type, @border_ve"& _ "hicle_code, @border_vehicle_coun, @inland_transport_type, @container_no, @gvms_i"& _ "nterested, @freight_amount, @freight_curr, @payment_method, @carrier_eori, @carr"& _ "ier_name, @carrier_address, @carrier_city_name, @carrier_country_id, @carrier_po"& _ "stcode, @total_packages, @nature_of_transaction, @premises_code, @first_dan_no, "& _ "@second_dan_no, @insurance_amount, @insurance_curr, @other_amounts, @other_amoun"& _ "ts_curr, @apportment_indicator, @total_gross_weight, @total_net_weight, @airfrei"& _ "ght_cost, @vat_adjustment, @vat_adjustment_curr, @discount_amount, @discount_cur"& _ "r, @discount_rate, @incoterm, @incoterm_location, @trader_ref, @arrival_transpor"& _ "t_type, @guarantee_code, @guarantee_reference, @created, @status, @aviso_id);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT Id, auto_send, badge_code, service_code, doc_type, declaration_type, comme"& _ "rcial_ref, ducr, mucr, ducr_part, declarant_eori, declarant_name, declarant_addr"& _ "ess, declarant_city_name, declarant_country_id, declarant_postcode, declarant_re"& _ "p, export_country_id, consignor_eori, consignor_name, consignor_address, consign"& _ "or_city_name, consignor_country_id, consignor_postcode, multiple_consignor, impo"& _ "rt_country_id, consignee_eori, consignee_name, consignee_address, consignee_city"& _ "_name, consignee_country_id, consignee_postcode, multiple_consignee, invoice_amo"& _ "unt, invoice_curr, goods_location, border_transport_type, border_vehicle_code, b"& _ "order_vehicle_coun, inland_transport_type, container_no, gvms_interested, freigh"& _ "t_amount, freight_curr, payment_method, carrier_eori, carrier_name, carrier_addr"& _ "ess, carrier_city_name, carrier_country_id, carrier_postcode, total_packages, na"& _ "ture_of_transaction, premises_code, first_dan_no, second_dan_no, insurance_amoun"& _ "t, insurance_curr, other_amounts, other_amounts_curr, apportment_indicator, tota"& _ "l_gross_weight, total_net_weight, airfreight_cost, vat_adjustment, vat_adjustmen"& _ "t_curr, discount_amount, discount_curr, discount_rate, incoterm, incoterm_locati"& _ "on, trader_ref, arrival_transport_type, guarantee_code, guarantee_reference, cre"& _ "ated, status, aviso_id FROM tblOregonNCTS_DeclarationData WHERE (Id = SCOPE_IDEN"& _ "TITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@auto_send", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "auto_send", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@badge_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "badge_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@service_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "service_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declaration_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declaration_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@commercial_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commercial_ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ducr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mucr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mucr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ducr_part", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr_part", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_rep", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_rep", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@export_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "export_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@multiple_consignor", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "multiple_consignor", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@import_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "import_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@multiple_consignee", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "multiple_consignee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@goods_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@border_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_transport_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@border_vehicle_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@border_vehicle_coun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_coun", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@inland_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "inland_transport_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@container_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_interested", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_interested", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@freight_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@freight_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@payment_method", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "payment_method", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@total_packages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_packages", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nature_of_transaction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@premises_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "premises_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@first_dan_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "first_dan_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@second_dan_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "second_dan_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@insurance_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@insurance_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@other_amounts", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@other_amounts_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@apportment_indicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "apportment_indicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@total_gross_weight", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_gross_weight", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@total_net_weight", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_net_weight", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@airfreight_cost", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "airfreight_cost", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vat_adjustment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vat_adjustment_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@discount_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@discount_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@discount_rate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_rate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@incoterm", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@incoterm_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm_location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trader_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trader_ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@arrival_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrival_transport_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guarantee_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "guarantee_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guarantee_reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "guarantee_reference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@created", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "created", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@status", Global.System.Data.SqlDbType.VarChar, 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("@aviso_id", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aviso_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 [dbo].[tblOregonNCTS_DeclarationData] SET [auto_send] = @auto_send, [badge"& _ "_code] = @badge_code, [service_code] = @service_code, [doc_type] = @doc_type, [d"& _ "eclaration_type] = @declaration_type, [commercial_ref] = @commercial_ref, [ducr]"& _ " = @ducr, [mucr] = @mucr, [ducr_part] = @ducr_part, [declarant_eori] = @declaran"& _ "t_eori, [declarant_name] = @declarant_name, [declarant_address] = @declarant_add"& _ "ress, [declarant_city_name] = @declarant_city_name, [declarant_country_id] = @de"& _ "clarant_country_id, [declarant_postcode] = @declarant_postcode, [declarant_rep] "& _ "= @declarant_rep, [export_country_id] = @export_country_id, [consignor_eori] = @"& _ "consignor_eori, [consignor_name] = @consignor_name, [consignor_address] = @consi"& _ "gnor_address, [consignor_city_name] = @consignor_city_name, [consignor_country_i"& _ "d] = @consignor_country_id, [consignor_postcode] = @consignor_postcode, [multipl"& _ "e_consignor] = @multiple_consignor, [import_country_id] = @import_country_id, [c"& _ "onsignee_eori] = @consignee_eori, [consignee_name] = @consignee_name, [consignee"& _ "_address] = @consignee_address, [consignee_city_name] = @consignee_city_name, [c"& _ "onsignee_country_id] = @consignee_country_id, [consignee_postcode] = @consignee_"& _ "postcode, [multiple_consignee] = @multiple_consignee, [invoice_amount] = @invoic"& _ "e_amount, [invoice_curr] = @invoice_curr, [goods_location] = @goods_location, [b"& _ "order_transport_type] = @border_transport_type, [border_vehicle_code] = @border_"& _ "vehicle_code, [border_vehicle_coun] = @border_vehicle_coun, [inland_transport_ty"& _ "pe] = @inland_transport_type, [container_no] = @container_no, [gvms_interested] "& _ "= @gvms_interested, [freight_amount] = @freight_amount, [freight_curr] = @freigh"& _ "t_curr, [payment_method] = @payment_method, [carrier_eori] = @carrier_eori, [car"& _ "rier_name] = @carrier_name, [carrier_address] = @carrier_address, [carrier_city_"& _ "name] = @carrier_city_name, [carrier_country_id] = @carrier_country_id, [carrier"& _ "_postcode] = @carrier_postcode, [total_packages] = @total_packages, [nature_of_t"& _ "ransaction] = @nature_of_transaction, [premises_code] = @premises_code, [first_d"& _ "an_no] = @first_dan_no, [second_dan_no] = @second_dan_no, [insurance_amount] = @"& _ "insurance_amount, [insurance_curr] = @insurance_curr, [other_amounts] = @other_a"& _ "mounts, [other_amounts_curr] = @other_amounts_curr, [apportment_indicator] = @ap"& _ "portment_indicator, [total_gross_weight] = @total_gross_weight, [total_net_weigh"& _ "t] = @total_net_weight, [airfreight_cost] = @airfreight_cost, [vat_adjustment] ="& _ " @vat_adjustment, [vat_adjustment_curr] = @vat_adjustment_curr, [discount_amount"& _ "] = @discount_amount, [discount_curr] = @discount_curr, [discount_rate] = @disco"& _ "unt_rate, [incoterm] = @incoterm, [incoterm_location] = @incoterm_location, [tra"& _ "der_ref] = @trader_ref, [arrival_transport_type] = @arrival_transport_type, [gua"& _ "rantee_code] = @guarantee_code, [guarantee_reference] = @guarantee_reference, [c"& _ "reated] = @created, [status] = @status, [aviso_id] = @aviso_id WHERE (([Id] = @O"& _ "riginal_Id) AND ([auto_send] = @Original_auto_send) AND ((@IsNull_badge_code = 1"& _ " AND [badge_code] IS NULL) OR ([badge_code] = @Original_badge_code)) AND ((@IsNu"& _ "ll_service_code = 1 AND [service_code] IS NULL) OR ([service_code] = @Original_s"& _ "ervice_code)) AND ((@IsNull_doc_type = 1 AND [doc_type] IS NULL) OR ([doc_type] "& _ "= @Original_doc_type)) AND ((@IsNull_declaration_type = 1 AND [declaration_type]"& _ " IS NULL) OR ([declaration_type] = @Original_declaration_type)) AND ((@IsNull_co"& _ "mmercial_ref = 1 AND [commercial_ref] IS NULL) OR ([commercial_ref] = @Original_"& _ "commercial_ref)) AND ((@IsNull_ducr = 1 AND [ducr] IS NULL) OR ([ducr] = @Origin"& _ "al_ducr)) AND ((@IsNull_mucr = 1 AND [mucr] IS NULL) OR ([mucr] = @Original_mucr"& _ ")) AND ((@IsNull_ducr_part = 1 AND [ducr_part] IS NULL) OR ([ducr_part] = @Origi"& _ "nal_ducr_part)) AND ((@IsNull_declarant_eori = 1 AND [declarant_eori] IS NULL) O"& _ "R ([declarant_eori] = @Original_declarant_eori)) AND ((@IsNull_declarant_name = "& _ "1 AND [declarant_name] IS NULL) OR ([declarant_name] = @Original_declarant_name)"& _ ") AND ((@IsNull_declarant_address = 1 AND [declarant_address] IS NULL) OR ([decl"& _ "arant_address] = @Original_declarant_address)) AND ((@IsNull_declarant_city_name"& _ " = 1 AND [declarant_city_name] IS NULL) OR ([declarant_city_name] = @Original_de"& _ "clarant_city_name)) AND ((@IsNull_declarant_country_id = 1 AND [declarant_countr"& _ "y_id] IS NULL) OR ([declarant_country_id] = @Original_declarant_country_id)) AND"& _ " ((@IsNull_declarant_postcode = 1 AND [declarant_postcode] IS NULL) OR ([declara"& _ "nt_postcode] = @Original_declarant_postcode)) AND ((@IsNull_declarant_rep = 1 AN"& _ "D [declarant_rep] IS NULL) OR ([declarant_rep] = @Original_declarant_rep)) AND ("& _ "(@IsNull_export_country_id = 1 AND [export_country_id] IS NULL) OR ([export_coun"& _ "try_id] = @Original_export_country_id)) AND ((@IsNull_consignor_eori = 1 AND [co"& _ "nsignor_eori] IS NULL) OR ([consignor_eori] = @Original_consignor_eori)) AND ((@"& _ "IsNull_consignor_name = 1 AND [consignor_name] IS NULL) OR ([consignor_name] = @"& _ "Original_consignor_name)) AND ((@IsNull_consignor_address = 1 AND [consignor_add"& _ "ress] IS NULL) OR ([consignor_address] = @Original_consignor_address)) AND ((@Is"& _ "Null_consignor_city_name = 1 AND [consignor_city_name] IS NULL) OR ([consignor_c"& _ "ity_name] = @Original_consignor_city_name)) AND ((@IsNull_consignor_country_id ="& _ " 1 AND [consignor_country_id] IS NULL) OR ([consignor_country_id] = @Original_co"& _ "nsignor_country_id)) AND ((@IsNull_consignor_postcode = 1 AND [consignor_postcod"& _ "e] IS NULL) OR ([consignor_postcode] = @Original_consignor_postcode)) AND ([mult"& _ "iple_consignor] = @Original_multiple_consignor) AND ((@IsNull_import_country_id "& _ "= 1 AND [import_country_id] IS NULL) OR ([import_country_id] = @Original_import_"& _ "country_id)) AND ((@IsNull_consignee_eori = 1 AND [consignee_eori] IS NULL) OR ("& _ "[consignee_eori] = @Original_consignee_eori)) AND ((@IsNull_consignee_name = 1 A"& _ "ND [consignee_name] IS NULL) OR ([consignee_name] = @Original_consignee_name)) A"& _ "ND ((@IsNull_consignee_address = 1 AND [consignee_address] IS NULL) OR ([consign"& _ "ee_address] = @Original_consignee_address)) AND ((@IsNull_consignee_city_name = "& _ "1 AND [consignee_city_name] IS NULL) OR ([consignee_city_name] = @Original_consi"& _ "gnee_city_name)) AND ((@IsNull_consignee_country_id = 1 AND [consignee_country_i"& _ "d] IS NULL) OR ([consignee_country_id] = @Original_consignee_country_id)) AND (("& _ "@IsNull_consignee_postcode = 1 AND [consignee_postcode] IS NULL) OR ([consignee_"& _ "postcode] = @Original_consignee_postcode)) AND ([multiple_consignee] = @Original"& _ "_multiple_consignee) AND ((@IsNull_invoice_amount = 1 AND [invoice_amount] IS NU"& _ "LL) OR ([invoice_amount] = @Original_invoice_amount)) AND ((@IsNull_invoice_curr"& _ " = 1 AND [invoice_curr] IS NULL) OR ([invoice_curr] = @Original_invoice_curr)) A"& _ "ND ((@IsNull_goods_location = 1 AND [goods_location] IS NULL) OR ([goods_locatio"& _ "n] = @Original_goods_location)) AND ((@IsNull_border_transport_type = 1 AND [bor"& _ "der_transport_type] IS NULL) OR ([border_transport_type] = @Original_border_tran"& _ "sport_type)) AND ((@IsNull_border_vehicle_code = 1 AND [border_vehicle_code] IS "& _ "NULL) OR ([border_vehicle_code] = @Original_border_vehicle_code)) AND ((@IsNull_"& _ "border_vehicle_coun = 1 AND [border_vehicle_coun] IS NULL) OR ([border_vehicle_c"& _ "oun] = @Original_border_vehicle_coun)) AND ((@IsNull_inland_transport_type = 1 A"& _ "ND [inland_transport_type] IS NULL) OR ([inland_transport_type] = @Original_inla"& _ "nd_transport_type)) AND ((@IsNull_container_no = 1 AND [container_no] IS NULL) O"& _ "R ([container_no] = @Original_container_no)) AND ([gvms_interested] = @Original_"& _ "gvms_interested) AND ((@IsNull_freight_amount = 1 AND [freight_amount] IS NULL) "& _ "OR ([freight_amount] = @Original_freight_amount)) AND ((@IsNull_freight_curr = 1"& _ " AND [freight_curr] IS NULL) OR ([freight_curr] = @Original_freight_curr)) AND ("& _ "(@IsNull_payment_method = 1 AND [payment_method] IS NULL) OR ([payment_method] ="& _ " @Original_payment_method)) AND ((@IsNull_carrier_eori = 1 AND [carrier_eori] IS"& _ " NULL) OR ([carrier_eori] = @Original_carrier_eori)) AND ((@IsNull_carrier_name "& _ "= 1 AND [carrier_name] IS NULL) OR ([carrier_name] = @Original_carrier_name)) AN"& _ "D ((@IsNull_carrier_address = 1 AND [carrier_address] IS NULL) OR ([carrier_addr"& _ "ess] = @Original_carrier_address)) AND ((@IsNull_carrier_city_name = 1 AND [carr"& _ "ier_city_name] IS NULL) OR ([carrier_city_name] = @Original_carrier_city_name)) "& _ "AND ((@IsNull_carrier_country_id = 1 AND [carrier_country_id] IS NULL) OR ([carr"& _ "ier_country_id] = @Original_carrier_country_id)) AND ((@IsNull_carrier_postcode "& _ "= 1 AND [carrier_postcode] IS NULL) OR ([carrier_postcode] = @Original_carrier_p"& _ "ostcode)) AND ([total_packages] = @Original_total_packages) AND ((@IsNull_nature"& _ "_of_transaction = 1 AND [nature_of_transaction] IS NULL) OR ([nature_of_transact"& _ "ion] = @Original_nature_of_transaction)) AND ((@IsNull_premises_code = 1 AND [pr"& _ "emises_code] IS NULL) OR ([premises_code] = @Original_premises_code)) AND ((@IsN"& _ "ull_first_dan_no = 1 AND [first_dan_no] IS NULL) OR ([first_dan_no] = @Original_"& _ "first_dan_no)) AND ((@IsNull_second_dan_no = 1 AND [second_dan_no] IS NULL) OR ("& _ "[second_dan_no] = @Original_second_dan_no)) AND ((@IsNull_insurance_amount = 1 A"& _ "ND [insurance_amount] IS NULL) OR ([insurance_amount] = @Original_insurance_amou"& _ "nt)) AND ((@IsNull_insurance_curr = 1 AND [insurance_curr] IS NULL) OR ([insuran"& _ "ce_curr] = @Original_insurance_curr)) AND ((@IsNull_other_amounts = 1 AND [other"& _ "_amounts] IS NULL) OR ([other_amounts] = @Original_other_amounts)) AND ((@IsNull"& _ "_other_amounts_curr = 1 AND [other_amounts_curr] IS NULL) OR ([other_amounts_cur"& _ "r] = @Original_other_amounts_curr)) AND ((@IsNull_apportment_indicator = 1 AND ["& _ "apportment_indicator] IS NULL) OR ([apportment_indicator] = @Original_apportment"& _ "_indicator)) AND ((@IsNull_total_gross_weight = 1 AND [total_gross_weight] IS NU"& _ "LL) OR ([total_gross_weight] = @Original_total_gross_weight)) AND ((@IsNull_tota"& _ "l_net_weight = 1 AND [total_net_weight] IS NULL) OR ([total_net_weight] = @Origi"& _ "nal_total_net_weight)) AND ((@IsNull_airfreight_cost = 1 AND [airfreight_cost] I"& _ "S NULL) OR ([airfreight_cost] = @Original_airfreight_cost)) AND ((@IsNull_vat_ad"& _ "justment = 1 AND [vat_adjustment] IS NULL) OR ([vat_adjustment] = @Original_vat_"& _ "adjustment)) AND ((@IsNull_vat_adjustment_curr = 1 AND [vat_adjustment_curr] IS "& _ "NULL) OR ([vat_adjustment_curr] = @Original_vat_adjustment_curr)) AND ((@IsNull_"& _ "discount_amount = 1 AND [discount_amount] IS NULL) OR ([discount_amount] = @Orig"& _ "inal_discount_amount)) AND ((@IsNull_discount_curr = 1 AND [discount_curr] IS NU"& _ "LL) OR ([discount_curr] = @Original_discount_curr)) AND ((@IsNull_discount_rate "& _ "= 1 AND [discount_rate] IS NULL) OR ([discount_rate] = @Original_discount_rate))"& _ " AND ((@IsNull_incoterm = 1 AND [incoterm] IS NULL) OR ([incoterm] = @Original_i"& _ "ncoterm)) AND ((@IsNull_incoterm_location = 1 AND [incoterm_location] IS NULL) O"& _ "R ([incoterm_location] = @Original_incoterm_location)) AND ((@IsNull_trader_ref "& _ "= 1 AND [trader_ref] IS NULL) OR ([trader_ref] = @Original_trader_ref)) AND ((@I"& _ "sNull_arrival_transport_type = 1 AND [arrival_transport_type] IS NULL) OR ([arri"& _ "val_transport_type] = @Original_arrival_transport_type)) AND ([guarantee_code] ="& _ " @Original_guarantee_code) AND ((@IsNull_guarantee_reference = 1 AND [guarantee_"& _ "reference] IS NULL) OR ([guarantee_reference] = @Original_guarantee_reference)) "& _ "AND ([created] = @Original_created) AND ((@IsNull_status = 1 AND [status] IS NUL"& _ "L) OR ([status] = @Original_status)) AND ((@IsNull_aviso_id = 1 AND [aviso_id] I"& _ "S NULL) OR ([aviso_id] = @Original_aviso_id)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, auto_send, badge_cod"& _ "e, service_code, doc_type, declaration_type, commercial_ref, ducr, mucr, ducr_pa"& _ "rt, declarant_eori, declarant_name, declarant_address, declarant_city_name, decl"& _ "arant_country_id, declarant_postcode, declarant_rep, export_country_id, consigno"& _ "r_eori, consignor_name, consignor_address, consignor_city_name, consignor_countr"& _ "y_id, consignor_postcode, multiple_consignor, import_country_id, consignee_eori,"& _ " consignee_name, consignee_address, consignee_city_name, consignee_country_id, c"& _ "onsignee_postcode, multiple_consignee, invoice_amount, invoice_curr, goods_locat"& _ "ion, border_transport_type, border_vehicle_code, border_vehicle_coun, inland_tra"& _ "nsport_type, container_no, gvms_interested, freight_amount, freight_curr, paymen"& _ "t_method, carrier_eori, carrier_name, carrier_address, carrier_city_name, carrie"& _ "r_country_id, carrier_postcode, total_packages, nature_of_transaction, premises_"& _ "code, first_dan_no, second_dan_no, insurance_amount, insurance_curr, other_amoun"& _ "ts, other_amounts_curr, apportment_indicator, total_gross_weight, total_net_weig"& _ "ht, airfreight_cost, vat_adjustment, vat_adjustment_curr, discount_amount, disco"& _ "unt_curr, discount_rate, incoterm, incoterm_location, trader_ref, arrival_transp"& _ "ort_type, guarantee_code, guarantee_reference, created, status, aviso_id FROM tb"& _ "lOregonNCTS_DeclarationData WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@auto_send", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "auto_send", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@badge_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "badge_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@service_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "service_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declaration_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declaration_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@commercial_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commercial_ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ducr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mucr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mucr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ducr_part", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr_part", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarant_rep", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_rep", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@export_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "export_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignor_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@multiple_consignor", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "multiple_consignor", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@import_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "import_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@multiple_consignee", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "multiple_consignee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@goods_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@border_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_transport_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@border_vehicle_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@border_vehicle_coun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_coun", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@inland_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "inland_transport_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@container_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gvms_interested", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_interested", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@freight_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@freight_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@payment_method", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "payment_method", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_eori", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@carrier_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@total_packages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_packages", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nature_of_transaction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@premises_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "premises_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@first_dan_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "first_dan_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@second_dan_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "second_dan_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@insurance_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@insurance_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@other_amounts", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@other_amounts_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@apportment_indicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "apportment_indicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@total_gross_weight", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_gross_weight", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@total_net_weight", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_net_weight", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@airfreight_cost", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "airfreight_cost", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vat_adjustment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vat_adjustment_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@discount_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@discount_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@discount_rate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_rate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@incoterm", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@incoterm_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm_location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trader_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trader_ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@arrival_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrival_transport_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guarantee_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "guarantee_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guarantee_reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "guarantee_reference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@created", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "created", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@status", Global.System.Data.SqlDbType.VarChar, 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("@aviso_id", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aviso_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_auto_send", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "auto_send", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_badge_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "badge_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_badge_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "badge_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_service_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "service_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_service_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "service_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_doc_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declaration_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declaration_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declaration_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declaration_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_commercial_ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commercial_ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_commercial_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commercial_ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ducr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ducr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_mucr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mucr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mucr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mucr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ducr_part", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr_part", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ducr_part", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ducr_part", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarant_rep", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_rep", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarant_rep", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarant_rep", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_export_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "export_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_export_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "export_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignor_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignor_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignor_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_multiple_consignor", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "multiple_consignor", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_import_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "import_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_import_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "import_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_multiple_consignee", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "multiple_consignee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_goods_location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_goods_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_border_transport_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_transport_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_border_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_transport_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_border_vehicle_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_border_vehicle_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_border_vehicle_coun", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_coun", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_border_vehicle_coun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "border_vehicle_coun", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_inland_transport_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "inland_transport_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_inland_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "inland_transport_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_container_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_container_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gvms_interested", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gvms_interested", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_freight_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_freight_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_freight_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_freight_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "freight_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_payment_method", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "payment_method", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_payment_method", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "payment_method", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_eori", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_eori", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_eori", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_eori", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_carrier_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_carrier_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "carrier_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_total_packages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_packages", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nature_of_transaction", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nature_of_transaction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_premises_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "premises_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_premises_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "premises_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_first_dan_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "first_dan_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_first_dan_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "first_dan_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_second_dan_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "second_dan_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_second_dan_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "second_dan_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_insurance_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_insurance_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_insurance_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_insurance_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "insurance_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_other_amounts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_other_amounts", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_other_amounts_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_other_amounts_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "other_amounts_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_apportment_indicator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "apportment_indicator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_apportment_indicator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "apportment_indicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_total_gross_weight", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_gross_weight", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_total_gross_weight", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_gross_weight", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_total_net_weight", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_net_weight", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_total_net_weight", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "total_net_weight", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_airfreight_cost", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "airfreight_cost", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_airfreight_cost", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "airfreight_cost", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vat_adjustment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vat_adjustment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vat_adjustment_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vat_adjustment_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vat_adjustment_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_discount_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_discount_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_discount_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_discount_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_discount_rate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_rate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_discount_rate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "discount_rate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_incoterm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_incoterm", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_incoterm_location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm_location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_incoterm_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "incoterm_location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trader_ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trader_ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trader_ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trader_ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_arrival_transport_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrival_transport_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_arrival_transport_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "arrival_transport_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_guarantee_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "guarantee_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_guarantee_reference", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "guarantee_reference", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_guarantee_reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "guarantee_reference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_created", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "created", 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.VarChar, 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_aviso_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aviso_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_aviso_id", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "aviso_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, auto_send, badge_code, service_code, doc_type, declaration_type, comme"& _ "rcial_ref, ducr, mucr, ducr_part, declarant_eori, declarant_name, declarant_addr"& _ "ess, declarant_city_name, declarant_country_id, declarant_postcode, declarant_re"& _ "p, export_country_id, consignor_eori, consignor_name, consignor_address, consign"& _ "or_city_name, consignor_country_id, consignor_postcode, multiple_consignor, impo"& _ "rt_country_id, consignee_eori, consignee_name, consignee_address, consignee_city"& _ "_name, consignee_country_id, consignee_postcode, multiple_consignee, invoice_amo"& _ "unt, invoice_curr, goods_location, border_transport_type, border_vehicle_code, b"& _ "order_vehicle_coun, inland_transport_type, container_no, gvms_interested, freigh"& _ "t_amount, freight_curr, payment_method, carrier_eori, carrier_name, carrier_addr"& _ "ess, carrier_city_name, carrier_country_id, carrier_postcode, total_packages, na"& _ "ture_of_transaction, premises_code, first_dan_no, second_dan_no, insurance_amoun"& _ "t, insurance_curr, other_amounts, other_amounts_curr, apportment_indicator, tota"& _ "l_gross_weight, total_net_weight, airfreight_cost, vat_adjustment, vat_adjustmen"& _ "t_curr, discount_amount, discount_curr, discount_rate, incoterm, incoterm_locati"& _ "on, trader_ref, arrival_transport_type, guarantee_code, guarantee_reference, cre"& _ "ated, status, aviso_id FROM dbo.tblOregonNCTS_DeclarationData" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOregonNCTS_DeclarationDataDataTable) 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 VERAGDataSet.tblOregonNCTS_DeclarationDataDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOregonNCTS_DeclarationDataDataTable = New VERAGDataSet.tblOregonNCTS_DeclarationDataDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOregonNCTS_DeclarationDataDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOregonNCTS_DeclarationData") 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_Id As Integer, _ ByVal Original_auto_send As Boolean, _ ByVal Original_badge_code As String, _ ByVal Original_service_code As String, _ ByVal Original_doc_type As String, _ ByVal Original_declaration_type As String, _ ByVal Original_commercial_ref As String, _ ByVal Original_ducr As String, _ ByVal Original_mucr As String, _ ByVal Original_ducr_part As String, _ ByVal Original_declarant_eori As String, _ ByVal Original_declarant_name As String, _ ByVal Original_declarant_address As String, _ ByVal Original_declarant_city_name As String, _ ByVal Original_declarant_country_id As String, _ ByVal Original_declarant_postcode As String, _ ByVal Original_declarant_rep As String, _ ByVal Original_export_country_id As String, _ ByVal Original_consignor_eori As String, _ ByVal Original_consignor_name As String, _ ByVal Original_consignor_address As String, _ ByVal Original_consignor_city_name As String, _ ByVal Original_consignor_country_id As String, _ ByVal Original_consignor_postcode As String, _ ByVal Original_multiple_consignor As Boolean, _ ByVal Original_import_country_id As String, _ ByVal Original_consignee_eori As String, _ ByVal Original_consignee_name As String, _ ByVal Original_consignee_address As String, _ ByVal Original_consignee_city_name As String, _ ByVal Original_consignee_country_id As String, _ ByVal Original_consignee_postcode As String, _ ByVal Original_multiple_consignee As Boolean, _ ByVal Original_invoice_amount As String, _ ByVal Original_invoice_curr As String, _ ByVal Original_goods_location As String, _ ByVal Original_border_transport_type As String, _ ByVal Original_border_vehicle_code As String, _ ByVal Original_border_vehicle_coun As String, _ ByVal Original_inland_transport_type As String, _ ByVal Original_container_no As String, _ ByVal Original_gvms_interested As Boolean, _ ByVal Original_freight_amount As String, _ ByVal Original_freight_curr As String, _ ByVal Original_payment_method As String, _ ByVal Original_carrier_eori As String, _ ByVal Original_carrier_name As String, _ ByVal Original_carrier_address As String, _ ByVal Original_carrier_city_name As String, _ ByVal Original_carrier_country_id As String, _ ByVal Original_carrier_postcode As String, _ ByVal Original_total_packages As Integer, _ ByVal Original_nature_of_transaction As String, _ ByVal Original_premises_code As String, _ ByVal Original_first_dan_no As String, _ ByVal Original_second_dan_no As String, _ ByVal Original_insurance_amount As String, _ ByVal Original_insurance_curr As String, _ ByVal Original_other_amounts As String, _ ByVal Original_other_amounts_curr As String, _ ByVal Original_apportment_indicator As String, _ ByVal Original_total_gross_weight As String, _ ByVal Original_total_net_weight As String, _ ByVal Original_airfreight_cost As String, _ ByVal Original_vat_adjustment As String, _ ByVal Original_vat_adjustment_curr As String, _ ByVal Original_discount_amount As String, _ ByVal Original_discount_curr As String, _ ByVal Original_discount_rate As String, _ ByVal Original_incoterm As String, _ ByVal Original_incoterm_location As String, _ ByVal Original_trader_ref As String, _ ByVal Original_arrival_transport_type As String, _ ByVal Original_guarantee_code As Integer, _ ByVal Original_guarantee_reference As String, _ ByVal Original_created As Date, _ ByVal Original_status As String, _ ByVal Original_aviso_id As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_auto_send,Boolean) If (Original_badge_code 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_badge_code,String) End If If (Original_service_code 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_service_code,String) End If If (Original_doc_type 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_doc_type,String) End If If (Original_declaration_type 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_declaration_type,String) End If If (Original_commercial_ref 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_commercial_ref,String) End If If (Original_ducr 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_ducr,String) End If If (Original_mucr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_mucr,String) End If If (Original_ducr_part Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ducr_part,String) End If If (Original_declarant_eori 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_declarant_eori,String) End If If (Original_declarant_name 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_declarant_name,String) End If If (Original_declarant_address 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_declarant_address,String) End If If (Original_declarant_city_name 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_declarant_city_name,String) End If If (Original_declarant_country_id 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_declarant_country_id,String) End If If (Original_declarant_postcode 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_declarant_postcode,String) End If If (Original_declarant_rep Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_declarant_rep,String) End If If (Original_export_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_export_country_id,String) End If If (Original_consignor_eori Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_consignor_eori,String) End If If (Original_consignor_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_consignor_name,String) End If If (Original_consignor_address Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_consignor_address,String) End If If (Original_consignor_city_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_consignor_city_name,String) End If If (Original_consignor_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_consignor_country_id,String) End If If (Original_consignor_postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_consignor_postcode,String) End If Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_multiple_consignor,Boolean) If (Original_import_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_import_country_id,String) End If If (Original_consignee_eori Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_consignee_eori,String) End If If (Original_consignee_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_consignee_name,String) End If If (Original_consignee_address Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_consignee_address,String) End If If (Original_consignee_city_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_consignee_city_name,String) End If If (Original_consignee_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_consignee_country_id,String) End If If (Original_consignee_postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_consignee_postcode,String) End If Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_multiple_consignee,Boolean) If (Original_invoice_amount Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_invoice_amount,String) End If If (Original_invoice_curr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_invoice_curr,String) End If If (Original_goods_location Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_goods_location,String) End If If (Original_border_transport_type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = CType(Original_border_transport_type,String) End If If (Original_border_vehicle_code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(71).Value = CType(Original_border_vehicle_code,String) End If If (Original_border_vehicle_coun Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = CType(Original_border_vehicle_coun,String) End If If (Original_inland_transport_type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = CType(Original_inland_transport_type,String) End If If (Original_container_no Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = CType(Original_container_no,String) End If Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_gvms_interested,Boolean) If (Original_freight_amount Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_freight_amount,String) End If If (Original_freight_curr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_freight_curr,String) End If If (Original_payment_method Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_payment_method,String) End If If (Original_carrier_eori Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_carrier_eori,String) End If If (Original_carrier_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_carrier_name,String) End If If (Original_carrier_address Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_carrier_address,String) End If If (Original_carrier_city_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_carrier_city_name,String) End If If (Original_carrier_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = CType(Original_carrier_country_id,String) End If If (Original_carrier_postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = CType(Original_carrier_postcode,String) End If Me.Adapter.DeleteCommand.Parameters(97).Value = CType(Original_total_packages,Integer) If (Original_nature_of_transaction Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(99).Value = CType(Original_nature_of_transaction,String) End If If (Original_premises_code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(101).Value = CType(Original_premises_code,String) End If If (Original_first_dan_no Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(103).Value = CType(Original_first_dan_no,String) End If If (Original_second_dan_no Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = CType(Original_second_dan_no,String) End If If (Original_insurance_amount Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = CType(Original_insurance_amount,String) End If If (Original_insurance_curr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = CType(Original_insurance_curr,String) End If If (Original_other_amounts Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(111).Value = CType(Original_other_amounts,String) End If If (Original_other_amounts_curr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(113).Value = CType(Original_other_amounts_curr,String) End If If (Original_apportment_indicator Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(115).Value = CType(Original_apportment_indicator,String) End If If (Original_total_gross_weight Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(117).Value = CType(Original_total_gross_weight,String) End If If (Original_total_net_weight Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(119).Value = CType(Original_total_net_weight,String) End If If (Original_airfreight_cost Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(121).Value = CType(Original_airfreight_cost,String) End If If (Original_vat_adjustment Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(123).Value = CType(Original_vat_adjustment,String) End If If (Original_vat_adjustment_curr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(125).Value = CType(Original_vat_adjustment_curr,String) End If If (Original_discount_amount Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(127).Value = CType(Original_discount_amount,String) End If If (Original_discount_curr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(129).Value = CType(Original_discount_curr,String) End If If (Original_discount_rate Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(131).Value = CType(Original_discount_rate,String) End If If (Original_incoterm Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(133).Value = CType(Original_incoterm,String) End If If (Original_incoterm_location Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(135).Value = CType(Original_incoterm_location,String) End If If (Original_trader_ref Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(136).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(136).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(137).Value = CType(Original_trader_ref,String) End If If (Original_arrival_transport_type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(138).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(138).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(139).Value = CType(Original_arrival_transport_type,String) End If Me.Adapter.DeleteCommand.Parameters(140).Value = CType(Original_guarantee_code,Integer) If (Original_guarantee_reference Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = CType(Original_guarantee_reference,String) End If Me.Adapter.DeleteCommand.Parameters(143).Value = CType(Original_created,Date) If (Original_status Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(144).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(144).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(145).Value = CType(Original_status,String) End If If (Original_aviso_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(146).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(146).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(147).Value = CType(Original_aviso_id,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 auto_send As Boolean, _ ByVal badge_code As String, _ ByVal service_code As String, _ ByVal doc_type As String, _ ByVal declaration_type As String, _ ByVal commercial_ref As String, _ ByVal ducr As String, _ ByVal mucr As String, _ ByVal ducr_part As String, _ ByVal declarant_eori As String, _ ByVal declarant_name As String, _ ByVal declarant_address As String, _ ByVal declarant_city_name As String, _ ByVal declarant_country_id As String, _ ByVal declarant_postcode As String, _ ByVal declarant_rep As String, _ ByVal export_country_id As String, _ ByVal consignor_eori As String, _ ByVal consignor_name As String, _ ByVal consignor_address As String, _ ByVal consignor_city_name As String, _ ByVal consignor_country_id As String, _ ByVal consignor_postcode As String, _ ByVal multiple_consignor As Boolean, _ ByVal import_country_id As String, _ ByVal consignee_eori As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal multiple_consignee As Boolean, _ ByVal invoice_amount As String, _ ByVal invoice_curr As String, _ ByVal goods_location As String, _ ByVal border_transport_type As String, _ ByVal border_vehicle_code As String, _ ByVal border_vehicle_coun As String, _ ByVal inland_transport_type As String, _ ByVal container_no As String, _ ByVal gvms_interested As Boolean, _ ByVal freight_amount As String, _ ByVal freight_curr As String, _ ByVal payment_method As String, _ ByVal carrier_eori As String, _ ByVal carrier_name As String, _ ByVal carrier_address As String, _ ByVal carrier_city_name As String, _ ByVal carrier_country_id As String, _ ByVal carrier_postcode As String, _ ByVal total_packages As Integer, _ ByVal nature_of_transaction As String, _ ByVal premises_code As String, _ ByVal first_dan_no As String, _ ByVal second_dan_no As String, _ ByVal insurance_amount As String, _ ByVal insurance_curr As String, _ ByVal other_amounts As String, _ ByVal other_amounts_curr As String, _ ByVal apportment_indicator As String, _ ByVal total_gross_weight As String, _ ByVal total_net_weight As String, _ ByVal airfreight_cost As String, _ ByVal vat_adjustment As String, _ ByVal vat_adjustment_curr As String, _ ByVal discount_amount As String, _ ByVal discount_curr As String, _ ByVal discount_rate As String, _ ByVal incoterm As String, _ ByVal incoterm_location As String, _ ByVal trader_ref As String, _ ByVal arrival_transport_type As String, _ ByVal guarantee_code As Integer, _ ByVal guarantee_reference As String, _ ByVal created As Date, _ ByVal status As String, _ ByVal aviso_id As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(auto_send,Boolean) If (badge_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(badge_code,String) End If If (service_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(service_code,String) End If If (doc_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(doc_type,String) End If If (declaration_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(declaration_type,String) End If If (commercial_ref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(commercial_ref,String) End If If (ducr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ducr,String) End If If (mucr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(mucr,String) End If If (ducr_part Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ducr_part,String) End If If (declarant_eori Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(declarant_eori,String) End If If (declarant_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(declarant_name,String) End If If (declarant_address Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(declarant_address,String) End If If (declarant_city_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(declarant_city_name,String) End If If (declarant_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(declarant_country_id,String) End If If (declarant_postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(declarant_postcode,String) End If If (declarant_rep Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(declarant_rep,String) End If If (export_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(export_country_id,String) End If If (consignor_eori Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(consignor_eori,String) End If If (consignor_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(consignor_name,String) End If If (consignor_address Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(consignor_address,String) End If If (consignor_city_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(consignor_city_name,String) End If If (consignor_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(consignor_country_id,String) End If If (consignor_postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(consignor_postcode,String) End If Me.Adapter.InsertCommand.Parameters(23).Value = CType(multiple_consignor,Boolean) If (import_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(import_country_id,String) End If If (consignee_eori Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(consignee_eori,String) End If If (consignee_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(consignee_name,String) End If If (consignee_address Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(consignee_address,String) End If If (consignee_city_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(consignee_city_name,String) End If If (consignee_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(consignee_country_id,String) End If If (consignee_postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(consignee_postcode,String) End If Me.Adapter.InsertCommand.Parameters(31).Value = CType(multiple_consignee,Boolean) If (invoice_amount Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(invoice_amount,String) End If If (invoice_curr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(invoice_curr,String) End If If (goods_location Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(goods_location,String) End If If (border_transport_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(border_transport_type,String) End If If (border_vehicle_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(border_vehicle_code,String) End If If (border_vehicle_coun Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(border_vehicle_coun,String) End If If (inland_transport_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(inland_transport_type,String) End If If (container_no Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(container_no,String) End If Me.Adapter.InsertCommand.Parameters(40).Value = CType(gvms_interested,Boolean) If (freight_amount Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(freight_amount,String) End If If (freight_curr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(freight_curr,String) End If If (payment_method Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(payment_method,String) End If If (carrier_eori Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(carrier_eori,String) End If If (carrier_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(carrier_name,String) End If If (carrier_address Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(carrier_address,String) End If If (carrier_city_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(carrier_city_name,String) End If If (carrier_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(carrier_country_id,String) End If If (carrier_postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(carrier_postcode,String) End If Me.Adapter.InsertCommand.Parameters(50).Value = CType(total_packages,Integer) If (nature_of_transaction Is Nothing) Then Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(51).Value = CType(nature_of_transaction,String) End If If (premises_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(premises_code,String) End If If (first_dan_no Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(first_dan_no,String) End If If (second_dan_no Is Nothing) Then Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(54).Value = CType(second_dan_no,String) End If If (insurance_amount Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(insurance_amount,String) End If If (insurance_curr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(insurance_curr,String) End If If (other_amounts Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(other_amounts,String) End If If (other_amounts_curr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(other_amounts_curr,String) End If If (apportment_indicator Is Nothing) Then Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(apportment_indicator,String) End If If (total_gross_weight Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(total_gross_weight,String) End If If (total_net_weight Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(total_net_weight,String) End If If (airfreight_cost Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(airfreight_cost,String) End If If (vat_adjustment Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(vat_adjustment,String) End If If (vat_adjustment_curr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(vat_adjustment_curr,String) End If If (discount_amount Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(discount_amount,String) End If If (discount_curr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(discount_curr,String) End If If (discount_rate Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(discount_rate,String) End If If (incoterm Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(incoterm,String) End If If (incoterm_location Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(incoterm_location,String) End If If (trader_ref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(trader_ref,String) End If If (arrival_transport_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(arrival_transport_type,String) End If Me.Adapter.InsertCommand.Parameters(72).Value = CType(guarantee_code,Integer) If (guarantee_reference Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(guarantee_reference,String) End If Me.Adapter.InsertCommand.Parameters(74).Value = CType(created,Date) If (status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(status,String) End If If (aviso_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(aviso_id,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 auto_send As Boolean, _ ByVal badge_code As String, _ ByVal service_code As String, _ ByVal doc_type As String, _ ByVal declaration_type As String, _ ByVal commercial_ref As String, _ ByVal ducr As String, _ ByVal mucr As String, _ ByVal ducr_part As String, _ ByVal declarant_eori As String, _ ByVal declarant_name As String, _ ByVal declarant_address As String, _ ByVal declarant_city_name As String, _ ByVal declarant_country_id As String, _ ByVal declarant_postcode As String, _ ByVal declarant_rep As String, _ ByVal export_country_id As String, _ ByVal consignor_eori As String, _ ByVal consignor_name As String, _ ByVal consignor_address As String, _ ByVal consignor_city_name As String, _ ByVal consignor_country_id As String, _ ByVal consignor_postcode As String, _ ByVal multiple_consignor As Boolean, _ ByVal import_country_id As String, _ ByVal consignee_eori As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal multiple_consignee As Boolean, _ ByVal invoice_amount As String, _ ByVal invoice_curr As String, _ ByVal goods_location As String, _ ByVal border_transport_type As String, _ ByVal border_vehicle_code As String, _ ByVal border_vehicle_coun As String, _ ByVal inland_transport_type As String, _ ByVal container_no As String, _ ByVal gvms_interested As Boolean, _ ByVal freight_amount As String, _ ByVal freight_curr As String, _ ByVal payment_method As String, _ ByVal carrier_eori As String, _ ByVal carrier_name As String, _ ByVal carrier_address As String, _ ByVal carrier_city_name As String, _ ByVal carrier_country_id As String, _ ByVal carrier_postcode As String, _ ByVal total_packages As Integer, _ ByVal nature_of_transaction As String, _ ByVal premises_code As String, _ ByVal first_dan_no As String, _ ByVal second_dan_no As String, _ ByVal insurance_amount As String, _ ByVal insurance_curr As String, _ ByVal other_amounts As String, _ ByVal other_amounts_curr As String, _ ByVal apportment_indicator As String, _ ByVal total_gross_weight As String, _ ByVal total_net_weight As String, _ ByVal airfreight_cost As String, _ ByVal vat_adjustment As String, _ ByVal vat_adjustment_curr As String, _ ByVal discount_amount As String, _ ByVal discount_curr As String, _ ByVal discount_rate As String, _ ByVal incoterm As String, _ ByVal incoterm_location As String, _ ByVal trader_ref As String, _ ByVal arrival_transport_type As String, _ ByVal guarantee_code As Integer, _ ByVal guarantee_reference As String, _ ByVal created As Date, _ ByVal status As String, _ ByVal aviso_id As String, _ ByVal Original_Id As Integer, _ ByVal Original_auto_send As Boolean, _ ByVal Original_badge_code As String, _ ByVal Original_service_code As String, _ ByVal Original_doc_type As String, _ ByVal Original_declaration_type As String, _ ByVal Original_commercial_ref As String, _ ByVal Original_ducr As String, _ ByVal Original_mucr As String, _ ByVal Original_ducr_part As String, _ ByVal Original_declarant_eori As String, _ ByVal Original_declarant_name As String, _ ByVal Original_declarant_address As String, _ ByVal Original_declarant_city_name As String, _ ByVal Original_declarant_country_id As String, _ ByVal Original_declarant_postcode As String, _ ByVal Original_declarant_rep As String, _ ByVal Original_export_country_id As String, _ ByVal Original_consignor_eori As String, _ ByVal Original_consignor_name As String, _ ByVal Original_consignor_address As String, _ ByVal Original_consignor_city_name As String, _ ByVal Original_consignor_country_id As String, _ ByVal Original_consignor_postcode As String, _ ByVal Original_multiple_consignor As Boolean, _ ByVal Original_import_country_id As String, _ ByVal Original_consignee_eori As String, _ ByVal Original_consignee_name As String, _ ByVal Original_consignee_address As String, _ ByVal Original_consignee_city_name As String, _ ByVal Original_consignee_country_id As String, _ ByVal Original_consignee_postcode As String, _ ByVal Original_multiple_consignee As Boolean, _ ByVal Original_invoice_amount As String, _ ByVal Original_invoice_curr As String, _ ByVal Original_goods_location As String, _ ByVal Original_border_transport_type As String, _ ByVal Original_border_vehicle_code As String, _ ByVal Original_border_vehicle_coun As String, _ ByVal Original_inland_transport_type As String, _ ByVal Original_container_no As String, _ ByVal Original_gvms_interested As Boolean, _ ByVal Original_freight_amount As String, _ ByVal Original_freight_curr As String, _ ByVal Original_payment_method As String, _ ByVal Original_carrier_eori As String, _ ByVal Original_carrier_name As String, _ ByVal Original_carrier_address As String, _ ByVal Original_carrier_city_name As String, _ ByVal Original_carrier_country_id As String, _ ByVal Original_carrier_postcode As String, _ ByVal Original_total_packages As Integer, _ ByVal Original_nature_of_transaction As String, _ ByVal Original_premises_code As String, _ ByVal Original_first_dan_no As String, _ ByVal Original_second_dan_no As String, _ ByVal Original_insurance_amount As String, _ ByVal Original_insurance_curr As String, _ ByVal Original_other_amounts As String, _ ByVal Original_other_amounts_curr As String, _ ByVal Original_apportment_indicator As String, _ ByVal Original_total_gross_weight As String, _ ByVal Original_total_net_weight As String, _ ByVal Original_airfreight_cost As String, _ ByVal Original_vat_adjustment As String, _ ByVal Original_vat_adjustment_curr As String, _ ByVal Original_discount_amount As String, _ ByVal Original_discount_curr As String, _ ByVal Original_discount_rate As String, _ ByVal Original_incoterm As String, _ ByVal Original_incoterm_location As String, _ ByVal Original_trader_ref As String, _ ByVal Original_arrival_transport_type As String, _ ByVal Original_guarantee_code As Integer, _ ByVal Original_guarantee_reference As String, _ ByVal Original_created As Date, _ ByVal Original_status As String, _ ByVal Original_aviso_id As String, _ ByVal Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(auto_send,Boolean) If (badge_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(badge_code,String) End If If (service_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(service_code,String) End If If (doc_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(doc_type,String) End If If (declaration_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(declaration_type,String) End If If (commercial_ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(commercial_ref,String) End If If (ducr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ducr,String) End If If (mucr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(mucr,String) End If If (ducr_part Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ducr_part,String) End If If (declarant_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(declarant_eori,String) End If If (declarant_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(declarant_name,String) End If If (declarant_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(declarant_address,String) End If If (declarant_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(declarant_city_name,String) End If If (declarant_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(declarant_country_id,String) End If If (declarant_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(declarant_postcode,String) End If If (declarant_rep Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(declarant_rep,String) End If If (export_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(export_country_id,String) End If If (consignor_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(consignor_eori,String) End If If (consignor_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(consignor_name,String) End If If (consignor_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(consignor_address,String) End If If (consignor_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(consignor_city_name,String) End If If (consignor_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(consignor_country_id,String) End If If (consignor_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(consignor_postcode,String) End If Me.Adapter.UpdateCommand.Parameters(23).Value = CType(multiple_consignor,Boolean) If (import_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(import_country_id,String) End If If (consignee_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(consignee_eori,String) End If If (consignee_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(consignee_name,String) End If If (consignee_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(consignee_address,String) End If If (consignee_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(consignee_city_name,String) End If If (consignee_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(consignee_country_id,String) End If If (consignee_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(consignee_postcode,String) End If Me.Adapter.UpdateCommand.Parameters(31).Value = CType(multiple_consignee,Boolean) If (invoice_amount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(invoice_amount,String) End If If (invoice_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(invoice_curr,String) End If If (goods_location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(goods_location,String) End If If (border_transport_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(border_transport_type,String) End If If (border_vehicle_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(border_vehicle_code,String) End If If (border_vehicle_coun Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(border_vehicle_coun,String) End If If (inland_transport_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(inland_transport_type,String) End If If (container_no Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(container_no,String) End If Me.Adapter.UpdateCommand.Parameters(40).Value = CType(gvms_interested,Boolean) If (freight_amount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(freight_amount,String) End If If (freight_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(freight_curr,String) End If If (payment_method Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(payment_method,String) End If If (carrier_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(carrier_eori,String) End If If (carrier_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(carrier_name,String) End If If (carrier_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(carrier_address,String) End If If (carrier_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(carrier_city_name,String) End If If (carrier_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(carrier_country_id,String) End If If (carrier_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(carrier_postcode,String) End If Me.Adapter.UpdateCommand.Parameters(50).Value = CType(total_packages,Integer) If (nature_of_transaction Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(nature_of_transaction,String) End If If (premises_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(premises_code,String) End If If (first_dan_no Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(first_dan_no,String) End If If (second_dan_no Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(second_dan_no,String) End If If (insurance_amount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(insurance_amount,String) End If If (insurance_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(insurance_curr,String) End If If (other_amounts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(other_amounts,String) End If If (other_amounts_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(other_amounts_curr,String) End If If (apportment_indicator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(apportment_indicator,String) End If If (total_gross_weight Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(total_gross_weight,String) End If If (total_net_weight Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(total_net_weight,String) End If If (airfreight_cost Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(airfreight_cost,String) End If If (vat_adjustment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(vat_adjustment,String) End If If (vat_adjustment_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(vat_adjustment_curr,String) End If If (discount_amount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(discount_amount,String) End If If (discount_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(discount_curr,String) End If If (discount_rate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(discount_rate,String) End If If (incoterm Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(incoterm,String) End If If (incoterm_location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(incoterm_location,String) End If If (trader_ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(trader_ref,String) End If If (arrival_transport_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(arrival_transport_type,String) End If Me.Adapter.UpdateCommand.Parameters(72).Value = CType(guarantee_code,Integer) If (guarantee_reference Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(guarantee_reference,String) End If Me.Adapter.UpdateCommand.Parameters(74).Value = CType(created,Date) If (status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(status,String) End If If (aviso_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(aviso_id,String) End If Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_Id,Integer) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_auto_send,Boolean) If (Original_badge_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_badge_code,String) End If If (Original_service_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_service_code,String) End If If (Original_doc_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Original_doc_type,String) End If If (Original_declaration_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Original_declaration_type,String) End If If (Original_commercial_ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(88).Value = CType(Original_commercial_ref,String) End If If (Original_ducr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_ducr,String) End If If (Original_mucr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_mucr,String) End If If (Original_ducr_part Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_ducr_part,String) End If If (Original_declarant_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(96).Value = CType(Original_declarant_eori,String) End If If (Original_declarant_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = CType(Original_declarant_name,String) End If If (Original_declarant_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = CType(Original_declarant_address,String) End If If (Original_declarant_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = CType(Original_declarant_city_name,String) End If If (Original_declarant_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = CType(Original_declarant_country_id,String) End If If (Original_declarant_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = CType(Original_declarant_postcode,String) End If If (Original_declarant_rep Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(108).Value = CType(Original_declarant_rep,String) End If If (Original_export_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(110).Value = CType(Original_export_country_id,String) End If If (Original_consignor_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(112).Value = CType(Original_consignor_eori,String) End If If (Original_consignor_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(114).Value = CType(Original_consignor_name,String) End If If (Original_consignor_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(116).Value = CType(Original_consignor_address,String) End If If (Original_consignor_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(118).Value = CType(Original_consignor_city_name,String) End If If (Original_consignor_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(120).Value = CType(Original_consignor_country_id,String) End If If (Original_consignor_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(122).Value = CType(Original_consignor_postcode,String) End If Me.Adapter.UpdateCommand.Parameters(123).Value = CType(Original_multiple_consignor,Boolean) If (Original_import_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(125).Value = CType(Original_import_country_id,String) End If If (Original_consignee_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(127).Value = CType(Original_consignee_eori,String) End If If (Original_consignee_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(129).Value = CType(Original_consignee_name,String) End If If (Original_consignee_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(131).Value = CType(Original_consignee_address,String) End If If (Original_consignee_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(133).Value = CType(Original_consignee_city_name,String) End If If (Original_consignee_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(135).Value = CType(Original_consignee_country_id,String) End If If (Original_consignee_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(137).Value = CType(Original_consignee_postcode,String) End If Me.Adapter.UpdateCommand.Parameters(138).Value = CType(Original_multiple_consignee,Boolean) If (Original_invoice_amount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(140).Value = CType(Original_invoice_amount,String) End If If (Original_invoice_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(142).Value = CType(Original_invoice_curr,String) End If If (Original_goods_location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(144).Value = CType(Original_goods_location,String) End If If (Original_border_transport_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = CType(Original_border_transport_type,String) End If If (Original_border_vehicle_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = CType(Original_border_vehicle_code,String) End If If (Original_border_vehicle_coun Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = CType(Original_border_vehicle_coun,String) End If If (Original_inland_transport_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = CType(Original_inland_transport_type,String) End If If (Original_container_no Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = CType(Original_container_no,String) End If Me.Adapter.UpdateCommand.Parameters(155).Value = CType(Original_gvms_interested,Boolean) If (Original_freight_amount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(156).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(157).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(156).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(157).Value = CType(Original_freight_amount,String) End If If (Original_freight_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(158).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(158).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(159).Value = CType(Original_freight_curr,String) End If If (Original_payment_method Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(160).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(161).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(160).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(161).Value = CType(Original_payment_method,String) End If If (Original_carrier_eori Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(162).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(163).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(162).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(163).Value = CType(Original_carrier_eori,String) End If If (Original_carrier_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(164).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(165).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(164).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(165).Value = CType(Original_carrier_name,String) End If If (Original_carrier_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(166).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(167).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(166).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(167).Value = CType(Original_carrier_address,String) End If If (Original_carrier_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(168).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(169).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(168).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(169).Value = CType(Original_carrier_city_name,String) End If If (Original_carrier_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(170).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(171).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(170).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(171).Value = CType(Original_carrier_country_id,String) End If If (Original_carrier_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(172).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(173).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(172).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(173).Value = CType(Original_carrier_postcode,String) End If Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_total_packages,Integer) If (Original_nature_of_transaction Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_nature_of_transaction,String) End If If (Original_premises_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(178).Value = CType(Original_premises_code,String) End If If (Original_first_dan_no Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(180).Value = CType(Original_first_dan_no,String) End If If (Original_second_dan_no Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(182).Value = CType(Original_second_dan_no,String) End If If (Original_insurance_amount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(184).Value = CType(Original_insurance_amount,String) End If If (Original_insurance_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_insurance_curr,String) End If If (Original_other_amounts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_other_amounts,String) End If If (Original_other_amounts_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_other_amounts_curr,String) End If If (Original_apportment_indicator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_apportment_indicator,String) End If If (Original_total_gross_weight Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_total_gross_weight,String) End If If (Original_total_net_weight Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_total_net_weight,String) End If If (Original_airfreight_cost Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_airfreight_cost,String) End If If (Original_vat_adjustment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(200).Value = CType(Original_vat_adjustment,String) End If If (Original_vat_adjustment_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(202).Value = CType(Original_vat_adjustment_curr,String) End If If (Original_discount_amount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(204).Value = CType(Original_discount_amount,String) End If If (Original_discount_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(206).Value = CType(Original_discount_curr,String) End If If (Original_discount_rate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(208).Value = CType(Original_discount_rate,String) End If If (Original_incoterm Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(210).Value = CType(Original_incoterm,String) End If If (Original_incoterm_location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(212).Value = CType(Original_incoterm_location,String) End If If (Original_trader_ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(214).Value = CType(Original_trader_ref,String) End If If (Original_arrival_transport_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(216).Value = CType(Original_arrival_transport_type,String) End If Me.Adapter.UpdateCommand.Parameters(217).Value = CType(Original_guarantee_code,Integer) If (Original_guarantee_reference Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(218).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(219).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(218).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(219).Value = CType(Original_guarantee_reference,String) End If Me.Adapter.UpdateCommand.Parameters(220).Value = CType(Original_created,Date) If (Original_status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(222).Value = CType(Original_status,String) End If If (Original_aviso_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(224).Value = CType(Original_aviso_id,String) End If Me.Adapter.UpdateCommand.Parameters(225).Value = CType(Id,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 auto_send As Boolean, _ ByVal badge_code As String, _ ByVal service_code As String, _ ByVal doc_type As String, _ ByVal declaration_type As String, _ ByVal commercial_ref As String, _ ByVal ducr As String, _ ByVal mucr As String, _ ByVal ducr_part As String, _ ByVal declarant_eori As String, _ ByVal declarant_name As String, _ ByVal declarant_address As String, _ ByVal declarant_city_name As String, _ ByVal declarant_country_id As String, _ ByVal declarant_postcode As String, _ ByVal declarant_rep As String, _ ByVal export_country_id As String, _ ByVal consignor_eori As String, _ ByVal consignor_name As String, _ ByVal consignor_address As String, _ ByVal consignor_city_name As String, _ ByVal consignor_country_id As String, _ ByVal consignor_postcode As String, _ ByVal multiple_consignor As Boolean, _ ByVal import_country_id As String, _ ByVal consignee_eori As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal multiple_consignee As Boolean, _ ByVal invoice_amount As String, _ ByVal invoice_curr As String, _ ByVal goods_location As String, _ ByVal border_transport_type As String, _ ByVal border_vehicle_code As String, _ ByVal border_vehicle_coun As String, _ ByVal inland_transport_type As String, _ ByVal container_no As String, _ ByVal gvms_interested As Boolean, _ ByVal freight_amount As String, _ ByVal freight_curr As String, _ ByVal payment_method As String, _ ByVal carrier_eori As String, _ ByVal carrier_name As String, _ ByVal carrier_address As String, _ ByVal carrier_city_name As String, _ ByVal carrier_country_id As String, _ ByVal carrier_postcode As String, _ ByVal total_packages As Integer, _ ByVal nature_of_transaction As String, _ ByVal premises_code As String, _ ByVal first_dan_no As String, _ ByVal second_dan_no As String, _ ByVal insurance_amount As String, _ ByVal insurance_curr As String, _ ByVal other_amounts As String, _ ByVal other_amounts_curr As String, _ ByVal apportment_indicator As String, _ ByVal total_gross_weight As String, _ ByVal total_net_weight As String, _ ByVal airfreight_cost As String, _ ByVal vat_adjustment As String, _ ByVal vat_adjustment_curr As String, _ ByVal discount_amount As String, _ ByVal discount_curr As String, _ ByVal discount_rate As String, _ ByVal incoterm As String, _ ByVal incoterm_location As String, _ ByVal trader_ref As String, _ ByVal arrival_transport_type As String, _ ByVal guarantee_code As Integer, _ ByVal guarantee_reference As String, _ ByVal created As Date, _ ByVal status As String, _ ByVal aviso_id As String, _ ByVal Original_Id As Integer, _ ByVal Original_auto_send As Boolean, _ ByVal Original_badge_code As String, _ ByVal Original_service_code As String, _ ByVal Original_doc_type As String, _ ByVal Original_declaration_type As String, _ ByVal Original_commercial_ref As String, _ ByVal Original_ducr As String, _ ByVal Original_mucr As String, _ ByVal Original_ducr_part As String, _ ByVal Original_declarant_eori As String, _ ByVal Original_declarant_name As String, _ ByVal Original_declarant_address As String, _ ByVal Original_declarant_city_name As String, _ ByVal Original_declarant_country_id As String, _ ByVal Original_declarant_postcode As String, _ ByVal Original_declarant_rep As String, _ ByVal Original_export_country_id As String, _ ByVal Original_consignor_eori As String, _ ByVal Original_consignor_name As String, _ ByVal Original_consignor_address As String, _ ByVal Original_consignor_city_name As String, _ ByVal Original_consignor_country_id As String, _ ByVal Original_consignor_postcode As String, _ ByVal Original_multiple_consignor As Boolean, _ ByVal Original_import_country_id As String, _ ByVal Original_consignee_eori As String, _ ByVal Original_consignee_name As String, _ ByVal Original_consignee_address As String, _ ByVal Original_consignee_city_name As String, _ ByVal Original_consignee_country_id As String, _ ByVal Original_consignee_postcode As String, _ ByVal Original_multiple_consignee As Boolean, _ ByVal Original_invoice_amount As String, _ ByVal Original_invoice_curr As String, _ ByVal Original_goods_location As String, _ ByVal Original_border_transport_type As String, _ ByVal Original_border_vehicle_code As String, _ ByVal Original_border_vehicle_coun As String, _ ByVal Original_inland_transport_type As String, _ ByVal Original_container_no As String, _ ByVal Original_gvms_interested As Boolean, _ ByVal Original_freight_amount As String, _ ByVal Original_freight_curr As String, _ ByVal Original_payment_method As String, _ ByVal Original_carrier_eori As String, _ ByVal Original_carrier_name As String, _ ByVal Original_carrier_address As String, _ ByVal Original_carrier_city_name As String, _ ByVal Original_carrier_country_id As String, _ ByVal Original_carrier_postcode As String, _ ByVal Original_total_packages As Integer, _ ByVal Original_nature_of_transaction As String, _ ByVal Original_premises_code As String, _ ByVal Original_first_dan_no As String, _ ByVal Original_second_dan_no As String, _ ByVal Original_insurance_amount As String, _ ByVal Original_insurance_curr As String, _ ByVal Original_other_amounts As String, _ ByVal Original_other_amounts_curr As String, _ ByVal Original_apportment_indicator As String, _ ByVal Original_total_gross_weight As String, _ ByVal Original_total_net_weight As String, _ ByVal Original_airfreight_cost As String, _ ByVal Original_vat_adjustment As String, _ ByVal Original_vat_adjustment_curr As String, _ ByVal Original_discount_amount As String, _ ByVal Original_discount_curr As String, _ ByVal Original_discount_rate As String, _ ByVal Original_incoterm As String, _ ByVal Original_incoterm_location As String, _ ByVal Original_trader_ref As String, _ ByVal Original_arrival_transport_type As String, _ ByVal Original_guarantee_code As Integer, _ ByVal Original_guarantee_reference As String, _ ByVal Original_created As Date, _ ByVal Original_status As String, _ ByVal Original_aviso_id As String) As Integer Return Me.Update(auto_send, badge_code, service_code, doc_type, declaration_type, commercial_ref, ducr, mucr, ducr_part, declarant_eori, declarant_name, declarant_address, declarant_city_name, declarant_country_id, declarant_postcode, declarant_rep, export_country_id, consignor_eori, consignor_name, consignor_address, consignor_city_name, consignor_country_id, consignor_postcode, multiple_consignor, import_country_id, consignee_eori, consignee_name, consignee_address, consignee_city_name, consignee_country_id, consignee_postcode, multiple_consignee, invoice_amount, invoice_curr, goods_location, border_transport_type, border_vehicle_code, border_vehicle_coun, inland_transport_type, container_no, gvms_interested, freight_amount, freight_curr, payment_method, carrier_eori, carrier_name, carrier_address, carrier_city_name, carrier_country_id, carrier_postcode, total_packages, nature_of_transaction, premises_code, first_dan_no, second_dan_no, insurance_amount, insurance_curr, other_amounts, other_amounts_curr, apportment_indicator, total_gross_weight, total_net_weight, airfreight_cost, vat_adjustment, vat_adjustment_curr, discount_amount, discount_curr, discount_rate, incoterm, incoterm_location, trader_ref, arrival_transport_type, guarantee_code, guarantee_reference, created, status, aviso_id, Original_Id, Original_auto_send, Original_badge_code, Original_service_code, Original_doc_type, Original_declaration_type, Original_commercial_ref, Original_ducr, Original_mucr, Original_ducr_part, Original_declarant_eori, Original_declarant_name, Original_declarant_address, Original_declarant_city_name, Original_declarant_country_id, Original_declarant_postcode, Original_declarant_rep, Original_export_country_id, Original_consignor_eori, Original_consignor_name, Original_consignor_address, Original_consignor_city_name, Original_consignor_country_id, Original_consignor_postcode, Original_multiple_consignor, Original_import_country_id, Original_consignee_eori, Original_consignee_name, Original_consignee_address, Original_consignee_city_name, Original_consignee_country_id, Original_consignee_postcode, Original_multiple_consignee, Original_invoice_amount, Original_invoice_curr, Original_goods_location, Original_border_transport_type, Original_border_vehicle_code, Original_border_vehicle_coun, Original_inland_transport_type, Original_container_no, Original_gvms_interested, Original_freight_amount, Original_freight_curr, Original_payment_method, Original_carrier_eori, Original_carrier_name, Original_carrier_address, Original_carrier_city_name, Original_carrier_country_id, Original_carrier_postcode, Original_total_packages, Original_nature_of_transaction, Original_premises_code, Original_first_dan_no, Original_second_dan_no, Original_insurance_amount, Original_insurance_curr, Original_other_amounts, Original_other_amounts_curr, Original_apportment_indicator, Original_total_gross_weight, Original_total_net_weight, Original_airfreight_cost, Original_vat_adjustment, Original_vat_adjustment_curr, Original_discount_amount, Original_discount_curr, Original_discount_rate, Original_incoterm, Original_incoterm_location, Original_trader_ref, Original_arrival_transport_type, Original_guarantee_code, Original_guarantee_reference, Original_created, Original_status, Original_aviso_id, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter 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 = "tblOregonNCTS_Declarations_AdditionalCodesAttribute" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("code", "code") tableMapping.ColumnMappings.Add("notes", "notes") 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].[tblOregonNCTS_Declarations_AdditionalCodesAttribute] WHERE ((["& _ "Id] = @Original_Id) AND ((@IsNull_code = 1 AND [code] IS NULL) OR ([code] = @Ori"& _ "ginal_code)) AND ((@IsNull_notes = 1 AND [notes] IS NULL) OR ([notes] = @Origina"& _ "l_notes)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_notes", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_notes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", 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].[tblOregonNCTS_Declarations_AdditionalCodesAttribute] ([code], "& _ "[notes]) VALUES (@code, @notes);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, code, notes FROM tblOregonNCTS_Decl"& _ "arations_AdditionalCodesAttribute WHERE (Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@notes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", 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].[tblOregonNCTS_Declarations_AdditionalCodesAttribute] SET [code] = @"& _ "code, [notes] = @notes WHERE (([Id] = @Original_Id) AND ((@IsNull_code = 1 AND ["& _ "code] IS NULL) OR ([code] = @Original_code)) AND ((@IsNull_notes = 1 AND [notes]"& _ " IS NULL) OR ([notes] = @Original_notes)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, code, notes FROM tblOreg"& _ "onNCTS_Declarations_AdditionalCodesAttribute WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@notes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_notes", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_notes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, code, notes FROM dbo.tblOregonNCTS_Declarations_AdditionalCodesAttribu"& _ "te" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable) 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 VERAGDataSet.tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable = New VERAGDataSet.tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_AdditionalCodesAttributeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOregonNCTS_Declarations_AdditionalCodesAttribute") 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_Id As Integer, ByVal Original_code As String, ByVal Original_notes As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) If (Original_code 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_code,String) End If If (Original_notes 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_notes,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 code As String, ByVal notes As String) As Integer If (code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(code,String) End If If (notes Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(notes,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 code As String, ByVal notes As String, ByVal Original_Id As Integer, ByVal Original_code As String, ByVal Original_notes As String, ByVal Id As Integer) As Integer If (code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(code,String) End If If (notes Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(notes,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Id,Integer) If (Original_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_code,String) End If If (Original_notes Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_notes,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Id,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 code As String, ByVal notes As String, ByVal Original_Id As Integer, ByVal Original_code As String, ByVal Original_notes As String) As Integer Return Me.Update(code, notes, Original_Id, Original_code, Original_notes, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter 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 = "tblOregonNCTS_Declarations_DocumentsAttribute" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("goods_attribute_id", "goods_attribute_id") tableMapping.ColumnMappings.Add("doc_type", "doc_type") tableMapping.ColumnMappings.Add("doc_no", "doc_no") tableMapping.ColumnMappings.Add("pre_post", "pre_post") 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].[tblOregonNCTS_Declarations_DocumentsAttribute] WHERE (([Id] = "& _ "@Original_Id) AND ([goods_attribute_id] = @Original_goods_attribute_id) AND ((@I"& _ "sNull_doc_type = 1 AND [doc_type] IS NULL) OR ([doc_type] = @Original_doc_type))"& _ " AND ((@IsNull_doc_no = 1 AND [doc_no] IS NULL) OR ([doc_no] = @Original_doc_no)"& _ ") AND ((@IsNull_pre_post = 1 AND [pre_post] IS NULL) OR ([pre_post] = @Original_"& _ "pre_post)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_doc_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_doc_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_doc_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pre_post", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pre_post", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", 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].[tblOregonNCTS_Declarations_DocumentsAttribute] ([goods_attribu"& _ "te_id], [doc_type], [doc_no], [pre_post]) VALUES (@goods_attribute_id, @doc_type"& _ ", @doc_no, @pre_post);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, goods_attribute_id, doc_type, doc_no, pre_pos"& _ "t FROM tblOregonNCTS_Declarations_DocumentsAttribute WHERE (Id = SCOPE_IDENTITY("& _ "))" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@doc_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pre_post", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", 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].[tblOregonNCTS_Declarations_DocumentsAttribute] SET [goods_attribute"& _ "_id] = @goods_attribute_id, [doc_type] = @doc_type, [doc_no] = @doc_no, [pre_pos"& _ "t] = @pre_post WHERE (([Id] = @Original_Id) AND ([goods_attribute_id] = @Origina"& _ "l_goods_attribute_id) AND ((@IsNull_doc_type = 1 AND [doc_type] IS NULL) OR ([do"& _ "c_type] = @Original_doc_type)) AND ((@IsNull_doc_no = 1 AND [doc_no] IS NULL) OR"& _ " ([doc_no] = @Original_doc_no)) AND ((@IsNull_pre_post = 1 AND [pre_post] IS NUL"& _ "L) OR ([pre_post] = @Original_pre_post)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, goods_attribute_id, doc_t"& _ "ype, doc_no, pre_post FROM tblOregonNCTS_Declarations_DocumentsAttribute WHERE ("& _ "Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@doc_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pre_post", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_doc_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_doc_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_doc_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pre_post", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pre_post", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, goods_attribute_id, doc_type, doc_no, pre_post FROM dbo.tblOregonNCTS_"& _ "Declarations_DocumentsAttribute" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_DocumentsAttributeDataTable) 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 VERAGDataSet.tblOregonNCTS_Declarations_DocumentsAttributeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOregonNCTS_Declarations_DocumentsAttributeDataTable = New VERAGDataSet.tblOregonNCTS_Declarations_DocumentsAttributeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_DocumentsAttributeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOregonNCTS_Declarations_DocumentsAttribute") 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_Id As Integer, ByVal Original_goods_attribute_id As Integer, ByVal Original_doc_type As String, ByVal Original_doc_no As String, ByVal Original_pre_post As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_goods_attribute_id,Integer) If (Original_doc_type 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_doc_type,String) End If If (Original_doc_no 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_doc_no,String) End If If (Original_pre_post 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_pre_post,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 goods_attribute_id As Integer, ByVal doc_type As String, ByVal doc_no As String, ByVal pre_post As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(goods_attribute_id,Integer) If (doc_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(doc_type,String) End If If (doc_no Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(doc_no,String) End If If (pre_post Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(pre_post,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 goods_attribute_id As Integer, ByVal doc_type As String, ByVal doc_no As String, ByVal pre_post As String, ByVal Original_Id As Integer, ByVal Original_goods_attribute_id As Integer, ByVal Original_doc_type As String, ByVal Original_doc_no As String, ByVal Original_pre_post As String, ByVal Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(goods_attribute_id,Integer) If (doc_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(doc_type,String) End If If (doc_no Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(doc_no,String) End If If (pre_post Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(pre_post,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Id,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_goods_attribute_id,Integer) If (Original_doc_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_doc_type,String) End If If (Original_doc_no 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_doc_no,String) End If If (Original_pre_post 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_pre_post,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Id,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 goods_attribute_id As Integer, ByVal doc_type As String, ByVal doc_no As String, ByVal pre_post As String, ByVal Original_Id As Integer, ByVal Original_goods_attribute_id As Integer, ByVal Original_doc_type As String, ByVal Original_doc_no As String, ByVal Original_pre_post As String) As Integer Return Me.Update(goods_attribute_id, doc_type, doc_no, pre_post, Original_Id, Original_goods_attribute_id, Original_doc_type, Original_doc_no, Original_pre_post, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOregonNCTS_Declarations_GoodsAttributeTableAdapter 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 = "tblOregonNCTS_Declarations_GoodsAttribute" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("commodity", "commodity") tableMapping.ColumnMappings.Add("gtip_code", "gtip_code") tableMapping.ColumnMappings.Add("gtip_language", "gtip_language") tableMapping.ColumnMappings.Add("brut_wg", "brut_wg") tableMapping.ColumnMappings.Add("net_wg", "net_wg") tableMapping.ColumnMappings.Add("sender_name", "sender_name") tableMapping.ColumnMappings.Add("sender_address", "sender_address") tableMapping.ColumnMappings.Add("sender_city_name", "sender_city_name") tableMapping.ColumnMappings.Add("sender_country_id", "sender_country_id") tableMapping.ColumnMappings.Add("sender_postcode", "sender_postcode") tableMapping.ColumnMappings.Add("sender_eori_code", "sender_eori_code") tableMapping.ColumnMappings.Add("consignee_name", "consignee_name") tableMapping.ColumnMappings.Add("consignee_address", "consignee_address") tableMapping.ColumnMappings.Add("consignee_city_name", "consignee_city_name") tableMapping.ColumnMappings.Add("consignee_country_id", "consignee_country_id") tableMapping.ColumnMappings.Add("consignee_postcode", "consignee_postcode") tableMapping.ColumnMappings.Add("consignee_eori_code", "consignee_eori_code") tableMapping.ColumnMappings.Add("invoice_amount", "invoice_amount") tableMapping.ColumnMappings.Add("invoice_curr", "invoice_curr") tableMapping.ColumnMappings.Add("cpc_code", "cpc_code") tableMapping.ColumnMappings.Add("additional_cpc_code", "additional_cpc_code") tableMapping.ColumnMappings.Add("container_no", "container_no") tableMapping.ColumnMappings.Add("preferential_country_id", "preferential_country_id") tableMapping.ColumnMappings.Add("cus_code", "cus_code") tableMapping.ColumnMappings.Add("nature_of_transaction", "nature_of_transaction") tableMapping.ColumnMappings.Add("additional_commodity_codes", "additional_commodity_codes") tableMapping.ColumnMappings.Add("origin_country_id", "origin_country_id") tableMapping.ColumnMappings.Add("preference_request", "preference_request") tableMapping.ColumnMappings.Add("quota_desc", "quota_desc") tableMapping.ColumnMappings.Add("valuation_method", "valuation_method") tableMapping.ColumnMappings.Add("valuation_adjustment", "valuation_adjustment") tableMapping.ColumnMappings.Add("third_quantity_type", "third_quantity_type") tableMapping.ColumnMappings.Add("third_quantity", "third_quantity") tableMapping.ColumnMappings.Add("supplementary_unit", "supplementary_unit") tableMapping.ColumnMappings.Add("declarationdata_id", "declarationdata_id") tableMapping.ColumnMappings.Add("line_no", "line_no") 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].[tblOregonNCTS_Declarations_GoodsAttribute] WHERE (([Id] = @Ori"& _ "ginal_Id) AND ((@IsNull_commodity = 1 AND [commodity] IS NULL) OR ([commodity] ="& _ " @Original_commodity)) AND ((@IsNull_gtip_code = 1 AND [gtip_code] IS NULL) OR ("& _ "[gtip_code] = @Original_gtip_code)) AND ((@IsNull_gtip_language = 1 AND [gtip_la"& _ "nguage] IS NULL) OR ([gtip_language] = @Original_gtip_language)) AND ([brut_wg] "& _ "= @Original_brut_wg) AND ([net_wg] = @Original_net_wg) AND ((@IsNull_sender_name"& _ " = 1 AND [sender_name] IS NULL) OR ([sender_name] = @Original_sender_name)) AND "& _ "((@IsNull_sender_address = 1 AND [sender_address] IS NULL) OR ([sender_address] "& _ "= @Original_sender_address)) AND ((@IsNull_sender_city_name = 1 AND [sender_city"& _ "_name] IS NULL) OR ([sender_city_name] = @Original_sender_city_name)) AND ((@IsN"& _ "ull_sender_country_id = 1 AND [sender_country_id] IS NULL) OR ([sender_country_i"& _ "d] = @Original_sender_country_id)) AND ((@IsNull_sender_postcode = 1 AND [sender"& _ "_postcode] IS NULL) OR ([sender_postcode] = @Original_sender_postcode)) AND ((@I"& _ "sNull_sender_eori_code = 1 AND [sender_eori_code] IS NULL) OR ([sender_eori_code"& _ "] = @Original_sender_eori_code)) AND ((@IsNull_consignee_name = 1 AND [consignee"& _ "_name] IS NULL) OR ([consignee_name] = @Original_consignee_name)) AND ((@IsNull_"& _ "consignee_address = 1 AND [consignee_address] IS NULL) OR ([consignee_address] ="& _ " @Original_consignee_address)) AND ((@IsNull_consignee_city_name = 1 AND [consig"& _ "nee_city_name] IS NULL) OR ([consignee_city_name] = @Original_consignee_city_nam"& _ "e)) AND ((@IsNull_consignee_country_id = 1 AND [consignee_country_id] IS NULL) O"& _ "R ([consignee_country_id] = @Original_consignee_country_id)) AND ((@IsNull_consi"& _ "gnee_postcode = 1 AND [consignee_postcode] IS NULL) OR ([consignee_postcode] = @"& _ "Original_consignee_postcode)) AND ((@IsNull_consignee_eori_code = 1 AND [consign"& _ "ee_eori_code] IS NULL) OR ([consignee_eori_code] = @Original_consignee_eori_code"& _ ")) AND ((@IsNull_invoice_amount = 1 AND [invoice_amount] IS NULL) OR ([invoice_a"& _ "mount] = @Original_invoice_amount)) AND ((@IsNull_invoice_curr = 1 AND [invoice_"& _ "curr] IS NULL) OR ([invoice_curr] = @Original_invoice_curr)) AND ((@IsNull_cpc_c"& _ "ode = 1 AND [cpc_code] IS NULL) OR ([cpc_code] = @Original_cpc_code)) AND ((@IsN"& _ "ull_additional_cpc_code = 1 AND [additional_cpc_code] IS NULL) OR ([additional_c"& _ "pc_code] = @Original_additional_cpc_code)) AND ((@IsNull_container_no = 1 AND [c"& _ "ontainer_no] IS NULL) OR ([container_no] = @Original_container_no)) AND ((@IsNul"& _ "l_preferential_country_id = 1 AND [preferential_country_id] IS NULL) OR ([prefer"& _ "ential_country_id] = @Original_preferential_country_id)) AND ((@IsNull_cus_code "& _ "= 1 AND [cus_code] IS NULL) OR ([cus_code] = @Original_cus_code)) AND ((@IsNull_"& _ "nature_of_transaction = 1 AND [nature_of_transaction] IS NULL) OR ([nature_of_tr"& _ "ansaction] = @Original_nature_of_transaction)) AND ((@IsNull_additional_commodit"& _ "y_codes = 1 AND [additional_commodity_codes] IS NULL) OR ([additional_commodity_"& _ "codes] = @Original_additional_commodity_codes)) AND ((@IsNull_origin_country_id "& _ "= 1 AND [origin_country_id] IS NULL) OR ([origin_country_id] = @Original_origin_"& _ "country_id)) AND ((@IsNull_preference_request = 1 AND [preference_request] IS NU"& _ "LL) OR ([preference_request] = @Original_preference_request)) AND ((@IsNull_quot"& _ "a_desc = 1 AND [quota_desc] IS NULL) OR ([quota_desc] = @Original_quota_desc)) A"& _ "ND ((@IsNull_valuation_method = 1 AND [valuation_method] IS NULL) OR ([valuation"& _ "_method] = @Original_valuation_method)) AND ((@IsNull_valuation_adjustment = 1 A"& _ "ND [valuation_adjustment] IS NULL) OR ([valuation_adjustment] = @Original_valuat"& _ "ion_adjustment)) AND ((@IsNull_third_quantity_type = 1 AND [third_quantity_type]"& _ " IS NULL) OR ([third_quantity_type] = @Original_third_quantity_type)) AND ((@IsN"& _ "ull_third_quantity = 1 AND [third_quantity] IS NULL) OR ([third_quantity] = @Ori"& _ "ginal_third_quantity)) AND ((@IsNull_supplementary_unit = 1 AND [supplementary_u"& _ "nit] IS NULL) OR ([supplementary_unit] = @Original_supplementary_unit)) AND ((@I"& _ "sNull_declarationdata_id = 1 AND [declarationdata_id] IS NULL) OR ([declarationd"& _ "ata_id] = @Original_declarationdata_id)) AND ((@IsNull_line_no = 1 AND [line_no]"& _ " IS NULL) OR ([line_no] = @Original_line_no)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_commodity", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commodity", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_commodity", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commodity", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gtip_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gtip_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gtip_language", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_language", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gtip_language", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_language", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_brut_wg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "brut_wg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_net_wg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "net_wg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_eori_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_eori_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_eori_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_eori_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_cpc_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cpc_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_cpc_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cpc_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_additional_cpc_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_cpc_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_additional_cpc_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_cpc_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_container_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_container_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_preferential_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preferential_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_preferential_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preferential_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_cus_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cus_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_cus_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cus_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nature_of_transaction", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nature_of_transaction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_additional_commodity_codes", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_commodity_codes", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_additional_commodity_codes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_commodity_codes", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_origin_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "origin_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_origin_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "origin_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_preference_request", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preference_request", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_preference_request", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preference_request", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_quota_desc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "quota_desc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_quota_desc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "quota_desc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_valuation_method", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_method", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_valuation_method", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_method", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_valuation_adjustment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_adjustment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_valuation_adjustment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_adjustment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_third_quantity_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_third_quantity_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_third_quantity", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_third_quantity", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_supplementary_unit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplementary_unit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_supplementary_unit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplementary_unit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_line_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "line_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_line_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "line_no", 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].[tblOregonNCTS_Declarations_GoodsAttribute] ([commodity], [gtip"& _ "_code], [gtip_language], [brut_wg], [net_wg], [sender_name], [sender_address], ["& _ "sender_city_name], [sender_country_id], [sender_postcode], [sender_eori_code], ["& _ "consignee_name], [consignee_address], [consignee_city_name], [consignee_country_"& _ "id], [consignee_postcode], [consignee_eori_code], [invoice_amount], [invoice_cur"& _ "r], [cpc_code], [additional_cpc_code], [container_no], [preferential_country_id]"& _ ", [cus_code], [nature_of_transaction], [additional_commodity_codes], [origin_cou"& _ "ntry_id], [preference_request], [quota_desc], [valuation_method], [valuation_adj"& _ "ustment], [third_quantity_type], [third_quantity], [supplementary_unit], [declar"& _ "ationdata_id], [line_no]) VALUES (@commodity, @gtip_code, @gtip_language, @brut_"& _ "wg, @net_wg, @sender_name, @sender_address, @sender_city_name, @sender_country_i"& _ "d, @sender_postcode, @sender_eori_code, @consignee_name, @consignee_address, @co"& _ "nsignee_city_name, @consignee_country_id, @consignee_postcode, @consignee_eori_c"& _ "ode, @invoice_amount, @invoice_curr, @cpc_code, @additional_cpc_code, @container"& _ "_no, @preferential_country_id, @cus_code, @nature_of_transaction, @additional_co"& _ "mmodity_codes, @origin_country_id, @preference_request, @quota_desc, @valuation_"& _ "method, @valuation_adjustment, @third_quantity_type, @third_quantity, @supplemen"& _ "tary_unit, @declarationdata_id, @line_no);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, commodity, gtip_code, gti"& _ "p_language, brut_wg, net_wg, sender_name, sender_address, sender_city_name, send"& _ "er_country_id, sender_postcode, sender_eori_code, consignee_name, consignee_addr"& _ "ess, consignee_city_name, consignee_country_id, consignee_postcode, consignee_eo"& _ "ri_code, invoice_amount, invoice_curr, cpc_code, additional_cpc_code, container_"& _ "no, preferential_country_id, cus_code, nature_of_transaction, additional_commodi"& _ "ty_codes, origin_country_id, preference_request, quota_desc, valuation_method, v"& _ "aluation_adjustment, third_quantity_type, third_quantity, supplementary_unit, de"& _ "clarationdata_id, line_no FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE ("& _ "Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@commodity", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commodity", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gtip_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gtip_language", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_language", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@brut_wg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "brut_wg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@net_wg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "net_wg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_eori_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@cpc_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cpc_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@additional_cpc_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_cpc_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@container_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@preferential_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preferential_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@cus_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cus_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nature_of_transaction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@additional_commodity_codes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_commodity_codes", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@origin_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "origin_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@preference_request", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preference_request", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@quota_desc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "quota_desc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@valuation_method", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_method", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@valuation_adjustment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_adjustment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@third_quantity_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@third_quantity", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@supplementary_unit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplementary_unit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@line_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "line_no", 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].[tblOregonNCTS_Declarations_GoodsAttribute] SET [commodity] = @commo"& _ "dity, [gtip_code] = @gtip_code, [gtip_language] = @gtip_language, [brut_wg] = @b"& _ "rut_wg, [net_wg] = @net_wg, [sender_name] = @sender_name, [sender_address] = @se"& _ "nder_address, [sender_city_name] = @sender_city_name, [sender_country_id] = @sen"& _ "der_country_id, [sender_postcode] = @sender_postcode, [sender_eori_code] = @send"& _ "er_eori_code, [consignee_name] = @consignee_name, [consignee_address] = @consign"& _ "ee_address, [consignee_city_name] = @consignee_city_name, [consignee_country_id]"& _ " = @consignee_country_id, [consignee_postcode] = @consignee_postcode, [consignee"& _ "_eori_code] = @consignee_eori_code, [invoice_amount] = @invoice_amount, [invoice"& _ "_curr] = @invoice_curr, [cpc_code] = @cpc_code, [additional_cpc_code] = @additio"& _ "nal_cpc_code, [container_no] = @container_no, [preferential_country_id] = @prefe"& _ "rential_country_id, [cus_code] = @cus_code, [nature_of_transaction] = @nature_of"& _ "_transaction, [additional_commodity_codes] = @additional_commodity_codes, [origi"& _ "n_country_id] = @origin_country_id, [preference_request] = @preference_request, "& _ "[quota_desc] = @quota_desc, [valuation_method] = @valuation_method, [valuation_a"& _ "djustment] = @valuation_adjustment, [third_quantity_type] = @third_quantity_type"& _ ", [third_quantity] = @third_quantity, [supplementary_unit] = @supplementary_unit"& _ ", [declarationdata_id] = @declarationdata_id, [line_no] = @line_no WHERE (([Id] "& _ "= @Original_Id) AND ((@IsNull_commodity = 1 AND [commodity] IS NULL) OR ([commod"& _ "ity] = @Original_commodity)) AND ((@IsNull_gtip_code = 1 AND [gtip_code] IS NULL"& _ ") OR ([gtip_code] = @Original_gtip_code)) AND ((@IsNull_gtip_language = 1 AND [g"& _ "tip_language] IS NULL) OR ([gtip_language] = @Original_gtip_language)) AND ([bru"& _ "t_wg] = @Original_brut_wg) AND ([net_wg] = @Original_net_wg) AND ((@IsNull_sende"& _ "r_name = 1 AND [sender_name] IS NULL) OR ([sender_name] = @Original_sender_name)"& _ ") AND ((@IsNull_sender_address = 1 AND [sender_address] IS NULL) OR ([sender_add"& _ "ress] = @Original_sender_address)) AND ((@IsNull_sender_city_name = 1 AND [sende"& _ "r_city_name] IS NULL) OR ([sender_city_name] = @Original_sender_city_name)) AND "& _ "((@IsNull_sender_country_id = 1 AND [sender_country_id] IS NULL) OR ([sender_cou"& _ "ntry_id] = @Original_sender_country_id)) AND ((@IsNull_sender_postcode = 1 AND ["& _ "sender_postcode] IS NULL) OR ([sender_postcode] = @Original_sender_postcode)) AN"& _ "D ((@IsNull_sender_eori_code = 1 AND [sender_eori_code] IS NULL) OR ([sender_eor"& _ "i_code] = @Original_sender_eori_code)) AND ((@IsNull_consignee_name = 1 AND [con"& _ "signee_name] IS NULL) OR ([consignee_name] = @Original_consignee_name)) AND ((@I"& _ "sNull_consignee_address = 1 AND [consignee_address] IS NULL) OR ([consignee_addr"& _ "ess] = @Original_consignee_address)) AND ((@IsNull_consignee_city_name = 1 AND ["& _ "consignee_city_name] IS NULL) OR ([consignee_city_name] = @Original_consignee_ci"& _ "ty_name)) AND ((@IsNull_consignee_country_id = 1 AND [consignee_country_id] IS N"& _ "ULL) OR ([consignee_country_id] = @Original_consignee_country_id)) AND ((@IsNull"& _ "_consignee_postcode = 1 AND [consignee_postcode] IS NULL) OR ([consignee_postcod"& _ "e] = @Original_consignee_postcode)) AND ((@IsNull_consignee_eori_code = 1 AND [c"& _ "onsignee_eori_code] IS NULL) OR ([consignee_eori_code] = @Original_consignee_eor"& _ "i_code)) AND ((@IsNull_invoice_amount = 1 AND [invoice_amount] IS NULL) OR ([inv"& _ "oice_amount] = @Original_invoice_amount)) AND ((@IsNull_invoice_curr = 1 AND [in"& _ "voice_curr] IS NULL) OR ([invoice_curr] = @Original_invoice_curr)) AND ((@IsNull"& _ "_cpc_code = 1 AND [cpc_code] IS NULL) OR ([cpc_code] = @Original_cpc_code)) AND "& _ "((@IsNull_additional_cpc_code = 1 AND [additional_cpc_code] IS NULL) OR ([additi"& _ "onal_cpc_code] = @Original_additional_cpc_code)) AND ((@IsNull_container_no = 1 "& _ "AND [container_no] IS NULL) OR ([container_no] = @Original_container_no)) AND (("& _ "@IsNull_preferential_country_id = 1 AND [preferential_country_id] IS NULL) OR (["& _ "preferential_country_id] = @Original_preferential_country_id)) AND ((@IsNull_cus"& _ "_code = 1 AND [cus_code] IS NULL) OR ([cus_code] = @Original_cus_code)) AND ((@I"& _ "sNull_nature_of_transaction = 1 AND [nature_of_transaction] IS NULL) OR ([nature"& _ "_of_transaction] = @Original_nature_of_transaction)) AND ((@IsNull_additional_co"& _ "mmodity_codes = 1 AND [additional_commodity_codes] IS NULL) OR ([additional_comm"& _ "odity_codes] = @Original_additional_commodity_codes)) AND ((@IsNull_origin_count"& _ "ry_id = 1 AND [origin_country_id] IS NULL) OR ([origin_country_id] = @Original_o"& _ "rigin_country_id)) AND ((@IsNull_preference_request = 1 AND [preference_request]"& _ " IS NULL) OR ([preference_request] = @Original_preference_request)) AND ((@IsNul"& _ "l_quota_desc = 1 AND [quota_desc] IS NULL) OR ([quota_desc] = @Original_quota_de"& _ "sc)) AND ((@IsNull_valuation_method = 1 AND [valuation_method] IS NULL) OR ([val"& _ "uation_method] = @Original_valuation_method)) AND ((@IsNull_valuation_adjustment"& _ " = 1 AND [valuation_adjustment] IS NULL) OR ([valuation_adjustment] = @Original_"& _ "valuation_adjustment)) AND ((@IsNull_third_quantity_type = 1 AND [third_quantity"& _ "_type] IS NULL) OR ([third_quantity_type] = @Original_third_quantity_type)) AND "& _ "((@IsNull_third_quantity = 1 AND [third_quantity] IS NULL) OR ([third_quantity] "& _ "= @Original_third_quantity)) AND ((@IsNull_supplementary_unit = 1 AND [supplemen"& _ "tary_unit] IS NULL) OR ([supplementary_unit] = @Original_supplementary_unit)) AN"& _ "D ((@IsNull_declarationdata_id = 1 AND [declarationdata_id] IS NULL) OR ([declar"& _ "ationdata_id] = @Original_declarationdata_id)) AND ((@IsNull_line_no = 1 AND [li"& _ "ne_no] IS NULL) OR ([line_no] = @Original_line_no)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, commodity, gti"& _ "p_code, gtip_language, brut_wg, net_wg, sender_name, sender_address, sender_city"& _ "_name, sender_country_id, sender_postcode, sender_eori_code, consignee_name, con"& _ "signee_address, consignee_city_name, consignee_country_id, consignee_postcode, c"& _ "onsignee_eori_code, invoice_amount, invoice_curr, cpc_code, additional_cpc_code,"& _ " container_no, preferential_country_id, cus_code, nature_of_transaction, additio"& _ "nal_commodity_codes, origin_country_id, preference_request, quota_desc, valuatio"& _ "n_method, valuation_adjustment, third_quantity_type, third_quantity, supplementa"& _ "ry_unit, declarationdata_id, line_no FROM tblOregonNCTS_Declarations_GoodsAttrib"& _ "ute WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@commodity", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commodity", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gtip_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gtip_language", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_language", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@brut_wg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "brut_wg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@net_wg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "net_wg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sender_eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_eori_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@consignee_eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@invoice_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@cpc_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cpc_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@additional_cpc_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_cpc_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@container_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@preferential_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preferential_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@cus_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cus_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nature_of_transaction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@additional_commodity_codes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_commodity_codes", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@origin_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "origin_country_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@preference_request", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preference_request", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@quota_desc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "quota_desc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@valuation_method", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_method", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@valuation_adjustment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_adjustment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@third_quantity_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@third_quantity", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@supplementary_unit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplementary_unit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@line_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "line_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_commodity", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commodity", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_commodity", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "commodity", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gtip_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gtip_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_gtip_language", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_language", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gtip_language", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gtip_language", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_brut_wg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "brut_wg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_net_wg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "net_wg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sender_eori_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_eori_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sender_eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sender_eori_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_city_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_city_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_city_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_postcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_postcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_postcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_consignee_eori_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_consignee_eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "consignee_eori_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_amount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_invoice_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_invoice_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "invoice_curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_cpc_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cpc_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_cpc_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cpc_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_additional_cpc_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_cpc_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_additional_cpc_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_cpc_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_container_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_container_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "container_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_preferential_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preferential_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_preferential_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preferential_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_cus_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cus_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_cus_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cus_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_nature_of_transaction", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nature_of_transaction", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nature_of_transaction", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_additional_commodity_codes", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_commodity_codes", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_additional_commodity_codes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "additional_commodity_codes", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_origin_country_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "origin_country_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_origin_country_id", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "origin_country_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_preference_request", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preference_request", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_preference_request", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "preference_request", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_quota_desc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "quota_desc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_quota_desc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "quota_desc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_valuation_method", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_method", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_valuation_method", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_method", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_valuation_adjustment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_adjustment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_valuation_adjustment", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valuation_adjustment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_third_quantity_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_third_quantity_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_third_quantity", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_third_quantity", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "third_quantity", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_supplementary_unit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplementary_unit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_supplementary_unit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "supplementary_unit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_line_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "line_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_line_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "line_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, commodity, gtip_code, gtip_language, brut_wg, net_wg, sender_name, sen"& _ "der_address, sender_city_name, sender_country_id, sender_postcode, sender_eori_c"& _ "ode, consignee_name, consignee_address, consignee_city_name, consignee_country_i"& _ "d, consignee_postcode, consignee_eori_code, invoice_amount, invoice_curr, cpc_co"& _ "de, additional_cpc_code, container_no, preferential_country_id, cus_code, nature"& _ "_of_transaction, additional_commodity_codes, origin_country_id, preference_reque"& _ "st, quota_desc, valuation_method, valuation_adjustment, third_quantity_type, thi"& _ "rd_quantity, supplementary_unit, declarationdata_id, line_no FROM dbo.tblOregonN"& _ "CTS_Declarations_GoodsAttribute" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_GoodsAttributeDataTable) 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 VERAGDataSet.tblOregonNCTS_Declarations_GoodsAttributeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOregonNCTS_Declarations_GoodsAttributeDataTable = New VERAGDataSet.tblOregonNCTS_Declarations_GoodsAttributeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_GoodsAttributeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOregonNCTS_Declarations_GoodsAttribute") 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_Id As Integer, _ ByVal Original_commodity As String, _ ByVal Original_gtip_code As String, _ ByVal Original_gtip_language As String, _ ByVal Original_brut_wg As Decimal, _ ByVal Original_net_wg As Decimal, _ ByVal Original_sender_name As String, _ ByVal Original_sender_address As String, _ ByVal Original_sender_city_name As String, _ ByVal Original_sender_country_id As String, _ ByVal Original_sender_postcode As String, _ ByVal Original_sender_eori_code As String, _ ByVal Original_consignee_name As String, _ ByVal Original_consignee_address As String, _ ByVal Original_consignee_city_name As String, _ ByVal Original_consignee_country_id As String, _ ByVal Original_consignee_postcode As String, _ ByVal Original_consignee_eori_code As String, _ ByVal Original_invoice_amount As String, _ ByVal Original_invoice_curr As String, _ ByVal Original_cpc_code As String, _ ByVal Original_additional_cpc_code As String, _ ByVal Original_container_no As String, _ ByVal Original_preferential_country_id As String, _ ByVal Original_cus_code As String, _ ByVal Original_nature_of_transaction As String, _ ByVal Original_additional_commodity_codes As String, _ ByVal Original_origin_country_id As String, _ ByVal Original_preference_request As String, _ ByVal Original_quota_desc As String, _ ByVal Original_valuation_method As String, _ ByVal Original_valuation_adjustment As String, _ ByVal Original_third_quantity_type As String, _ ByVal Original_third_quantity As String, _ ByVal Original_supplementary_unit As String, _ ByVal Original_declarationdata_id As Global.System.Nullable(Of Integer), _ ByVal Original_line_no As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) If (Original_commodity 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_commodity,String) End If If (Original_gtip_code 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_gtip_code,String) End If If (Original_gtip_language 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_gtip_language,String) End If Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_brut_wg,Decimal) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_net_wg,Decimal) If (Original_sender_name 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_sender_name,String) End If If (Original_sender_address 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_sender_address,String) End If If (Original_sender_city_name 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_sender_city_name,String) End If If (Original_sender_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_sender_country_id,String) End If If (Original_sender_postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_sender_postcode,String) End If If (Original_sender_eori_code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_sender_eori_code,String) End If If (Original_consignee_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_consignee_name,String) End If If (Original_consignee_address Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_consignee_address,String) End If If (Original_consignee_city_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_consignee_city_name,String) End If If (Original_consignee_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_consignee_country_id,String) End If If (Original_consignee_postcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_consignee_postcode,String) End If If (Original_consignee_eori_code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_consignee_eori_code,String) End If If (Original_invoice_amount Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_invoice_amount,String) End If If (Original_invoice_curr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_invoice_curr,String) End If If (Original_cpc_code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_cpc_code,String) End If If (Original_additional_cpc_code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_additional_cpc_code,String) End If If (Original_container_no Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_container_no,String) End If If (Original_preferential_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_preferential_country_id,String) End If If (Original_cus_code Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_cus_code,String) End If If (Original_nature_of_transaction Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_nature_of_transaction,String) End If If (Original_additional_commodity_codes Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_additional_commodity_codes,String) End If If (Original_origin_country_id Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_origin_country_id,String) End If If (Original_preference_request Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_preference_request,String) End If If (Original_quota_desc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_quota_desc,String) End If If (Original_valuation_method Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_valuation_method,String) End If If (Original_valuation_adjustment Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_valuation_adjustment,String) End If If (Original_third_quantity_type Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_third_quantity_type,String) End If If (Original_third_quantity Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_third_quantity,String) End If If (Original_supplementary_unit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_supplementary_unit,String) End If If (Original_declarationdata_id.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_declarationdata_id.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (Original_line_no.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_line_no.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(70).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 commodity As String, _ ByVal gtip_code As String, _ ByVal gtip_language As String, _ ByVal brut_wg As Decimal, _ ByVal net_wg As Decimal, _ ByVal sender_name As String, _ ByVal sender_address As String, _ ByVal sender_city_name As String, _ ByVal sender_country_id As String, _ ByVal sender_postcode As String, _ ByVal sender_eori_code As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal consignee_eori_code As String, _ ByVal invoice_amount As String, _ ByVal invoice_curr As String, _ ByVal cpc_code As String, _ ByVal additional_cpc_code As String, _ ByVal container_no As String, _ ByVal preferential_country_id As String, _ ByVal cus_code As String, _ ByVal nature_of_transaction As String, _ ByVal additional_commodity_codes As String, _ ByVal origin_country_id As String, _ ByVal preference_request As String, _ ByVal quota_desc As String, _ ByVal valuation_method As String, _ ByVal valuation_adjustment As String, _ ByVal third_quantity_type As String, _ ByVal third_quantity As String, _ ByVal supplementary_unit As String, _ ByVal declarationdata_id As Global.System.Nullable(Of Integer), _ ByVal line_no As Global.System.Nullable(Of Integer)) As Integer If (commodity Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(commodity,String) End If If (gtip_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(gtip_code,String) End If If (gtip_language Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(gtip_language,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(brut_wg,Decimal) Me.Adapter.InsertCommand.Parameters(4).Value = CType(net_wg,Decimal) If (sender_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(sender_name,String) End If If (sender_address Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(sender_address,String) End If If (sender_city_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(sender_city_name,String) End If If (sender_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(sender_country_id,String) End If If (sender_postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(sender_postcode,String) End If If (sender_eori_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(sender_eori_code,String) End If If (consignee_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(consignee_name,String) End If If (consignee_address Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(consignee_address,String) End If If (consignee_city_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(consignee_city_name,String) End If If (consignee_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(consignee_country_id,String) End If If (consignee_postcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(consignee_postcode,String) End If If (consignee_eori_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(consignee_eori_code,String) End If If (invoice_amount Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(invoice_amount,String) End If If (invoice_curr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(invoice_curr,String) End If If (cpc_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(cpc_code,String) End If If (additional_cpc_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(additional_cpc_code,String) End If If (container_no Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(container_no,String) End If If (preferential_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(preferential_country_id,String) End If If (cus_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(cus_code,String) End If If (nature_of_transaction Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(nature_of_transaction,String) End If If (additional_commodity_codes Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(additional_commodity_codes,String) End If If (origin_country_id Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(origin_country_id,String) End If If (preference_request Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(preference_request,String) End If If (quota_desc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(quota_desc,String) End If If (valuation_method Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(valuation_method,String) End If If (valuation_adjustment Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(valuation_adjustment,String) End If If (third_quantity_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(third_quantity_type,String) End If If (third_quantity Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(third_quantity,String) End If If (supplementary_unit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(supplementary_unit,String) End If If (declarationdata_id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(declarationdata_id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (line_no.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(line_no.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(35).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 commodity As String, _ ByVal gtip_code As String, _ ByVal gtip_language As String, _ ByVal brut_wg As Decimal, _ ByVal net_wg As Decimal, _ ByVal sender_name As String, _ ByVal sender_address As String, _ ByVal sender_city_name As String, _ ByVal sender_country_id As String, _ ByVal sender_postcode As String, _ ByVal sender_eori_code As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal consignee_eori_code As String, _ ByVal invoice_amount As String, _ ByVal invoice_curr As String, _ ByVal cpc_code As String, _ ByVal additional_cpc_code As String, _ ByVal container_no As String, _ ByVal preferential_country_id As String, _ ByVal cus_code As String, _ ByVal nature_of_transaction As String, _ ByVal additional_commodity_codes As String, _ ByVal origin_country_id As String, _ ByVal preference_request As String, _ ByVal quota_desc As String, _ ByVal valuation_method As String, _ ByVal valuation_adjustment As String, _ ByVal third_quantity_type As String, _ ByVal third_quantity As String, _ ByVal supplementary_unit As String, _ ByVal declarationdata_id As Global.System.Nullable(Of Integer), _ ByVal line_no As Global.System.Nullable(Of Integer), _ ByVal Original_Id As Integer, _ ByVal Original_commodity As String, _ ByVal Original_gtip_code As String, _ ByVal Original_gtip_language As String, _ ByVal Original_brut_wg As Decimal, _ ByVal Original_net_wg As Decimal, _ ByVal Original_sender_name As String, _ ByVal Original_sender_address As String, _ ByVal Original_sender_city_name As String, _ ByVal Original_sender_country_id As String, _ ByVal Original_sender_postcode As String, _ ByVal Original_sender_eori_code As String, _ ByVal Original_consignee_name As String, _ ByVal Original_consignee_address As String, _ ByVal Original_consignee_city_name As String, _ ByVal Original_consignee_country_id As String, _ ByVal Original_consignee_postcode As String, _ ByVal Original_consignee_eori_code As String, _ ByVal Original_invoice_amount As String, _ ByVal Original_invoice_curr As String, _ ByVal Original_cpc_code As String, _ ByVal Original_additional_cpc_code As String, _ ByVal Original_container_no As String, _ ByVal Original_preferential_country_id As String, _ ByVal Original_cus_code As String, _ ByVal Original_nature_of_transaction As String, _ ByVal Original_additional_commodity_codes As String, _ ByVal Original_origin_country_id As String, _ ByVal Original_preference_request As String, _ ByVal Original_quota_desc As String, _ ByVal Original_valuation_method As String, _ ByVal Original_valuation_adjustment As String, _ ByVal Original_third_quantity_type As String, _ ByVal Original_third_quantity As String, _ ByVal Original_supplementary_unit As String, _ ByVal Original_declarationdata_id As Global.System.Nullable(Of Integer), _ ByVal Original_line_no As Global.System.Nullable(Of Integer), _ ByVal Id As Integer) As Integer If (commodity Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(commodity,String) End If If (gtip_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(gtip_code,String) End If If (gtip_language Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(gtip_language,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(brut_wg,Decimal) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(net_wg,Decimal) If (sender_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(sender_name,String) End If If (sender_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(sender_address,String) End If If (sender_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(sender_city_name,String) End If If (sender_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(sender_country_id,String) End If If (sender_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(sender_postcode,String) End If If (sender_eori_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(sender_eori_code,String) End If If (consignee_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(consignee_name,String) End If If (consignee_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(consignee_address,String) End If If (consignee_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(consignee_city_name,String) End If If (consignee_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(consignee_country_id,String) End If If (consignee_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(consignee_postcode,String) End If If (consignee_eori_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(consignee_eori_code,String) End If If (invoice_amount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(invoice_amount,String) End If If (invoice_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(invoice_curr,String) End If If (cpc_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(cpc_code,String) End If If (additional_cpc_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(additional_cpc_code,String) End If If (container_no Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(container_no,String) End If If (preferential_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(preferential_country_id,String) End If If (cus_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(cus_code,String) End If If (nature_of_transaction Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(nature_of_transaction,String) End If If (additional_commodity_codes Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(additional_commodity_codes,String) End If If (origin_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(origin_country_id,String) End If If (preference_request Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(preference_request,String) End If If (quota_desc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(quota_desc,String) End If If (valuation_method Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(valuation_method,String) End If If (valuation_adjustment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(valuation_adjustment,String) End If If (third_quantity_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(third_quantity_type,String) End If If (third_quantity Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(third_quantity,String) End If If (supplementary_unit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(supplementary_unit,String) End If If (declarationdata_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(declarationdata_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (line_no.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(line_no.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_Id,Integer) If (Original_commodity 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_commodity,String) End If If (Original_gtip_code 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_gtip_code,String) End If If (Original_gtip_language 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_gtip_language,String) End If Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_brut_wg,Decimal) Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_net_wg,Decimal) If (Original_sender_name 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_sender_name,String) End If If (Original_sender_address 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_sender_address,String) End If If (Original_sender_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_sender_city_name,String) End If If (Original_sender_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_sender_country_id,String) End If If (Original_sender_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_sender_postcode,String) End If If (Original_sender_eori_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_sender_eori_code,String) End If If (Original_consignee_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_consignee_name,String) End If If (Original_consignee_address Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_consignee_address,String) End If If (Original_consignee_city_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_consignee_city_name,String) End If If (Original_consignee_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_consignee_country_id,String) End If If (Original_consignee_postcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_consignee_postcode,String) End If If (Original_consignee_eori_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_consignee_eori_code,String) End If If (Original_invoice_amount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_invoice_amount,String) End If If (Original_invoice_curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_invoice_curr,String) End If If (Original_cpc_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_cpc_code,String) End If If (Original_additional_cpc_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_additional_cpc_code,String) End If If (Original_container_no Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_container_no,String) End If If (Original_preferential_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_preferential_country_id,String) End If If (Original_cus_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_cus_code,String) End If If (Original_nature_of_transaction Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Original_nature_of_transaction,String) End If If (Original_additional_commodity_codes Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Original_additional_commodity_codes,String) End If If (Original_origin_country_id Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(88).Value = CType(Original_origin_country_id,String) End If If (Original_preference_request Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_preference_request,String) End If If (Original_quota_desc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_quota_desc,String) End If If (Original_valuation_method Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_valuation_method,String) End If If (Original_valuation_adjustment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(96).Value = CType(Original_valuation_adjustment,String) End If If (Original_third_quantity_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(98).Value = CType(Original_third_quantity_type,String) End If If (Original_third_quantity Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(100).Value = CType(Original_third_quantity,String) End If If (Original_supplementary_unit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(102).Value = CType(Original_supplementary_unit,String) End If If (Original_declarationdata_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = CType(Original_declarationdata_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value End If If (Original_line_no.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = CType(Original_line_no.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(107).Value = CType(Id,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 commodity As String, _ ByVal gtip_code As String, _ ByVal gtip_language As String, _ ByVal brut_wg As Decimal, _ ByVal net_wg As Decimal, _ ByVal sender_name As String, _ ByVal sender_address As String, _ ByVal sender_city_name As String, _ ByVal sender_country_id As String, _ ByVal sender_postcode As String, _ ByVal sender_eori_code As String, _ ByVal consignee_name As String, _ ByVal consignee_address As String, _ ByVal consignee_city_name As String, _ ByVal consignee_country_id As String, _ ByVal consignee_postcode As String, _ ByVal consignee_eori_code As String, _ ByVal invoice_amount As String, _ ByVal invoice_curr As String, _ ByVal cpc_code As String, _ ByVal additional_cpc_code As String, _ ByVal container_no As String, _ ByVal preferential_country_id As String, _ ByVal cus_code As String, _ ByVal nature_of_transaction As String, _ ByVal additional_commodity_codes As String, _ ByVal origin_country_id As String, _ ByVal preference_request As String, _ ByVal quota_desc As String, _ ByVal valuation_method As String, _ ByVal valuation_adjustment As String, _ ByVal third_quantity_type As String, _ ByVal third_quantity As String, _ ByVal supplementary_unit As String, _ ByVal declarationdata_id As Global.System.Nullable(Of Integer), _ ByVal line_no As Global.System.Nullable(Of Integer), _ ByVal Original_Id As Integer, _ ByVal Original_commodity As String, _ ByVal Original_gtip_code As String, _ ByVal Original_gtip_language As String, _ ByVal Original_brut_wg As Decimal, _ ByVal Original_net_wg As Decimal, _ ByVal Original_sender_name As String, _ ByVal Original_sender_address As String, _ ByVal Original_sender_city_name As String, _ ByVal Original_sender_country_id As String, _ ByVal Original_sender_postcode As String, _ ByVal Original_sender_eori_code As String, _ ByVal Original_consignee_name As String, _ ByVal Original_consignee_address As String, _ ByVal Original_consignee_city_name As String, _ ByVal Original_consignee_country_id As String, _ ByVal Original_consignee_postcode As String, _ ByVal Original_consignee_eori_code As String, _ ByVal Original_invoice_amount As String, _ ByVal Original_invoice_curr As String, _ ByVal Original_cpc_code As String, _ ByVal Original_additional_cpc_code As String, _ ByVal Original_container_no As String, _ ByVal Original_preferential_country_id As String, _ ByVal Original_cus_code As String, _ ByVal Original_nature_of_transaction As String, _ ByVal Original_additional_commodity_codes As String, _ ByVal Original_origin_country_id As String, _ ByVal Original_preference_request As String, _ ByVal Original_quota_desc As String, _ ByVal Original_valuation_method As String, _ ByVal Original_valuation_adjustment As String, _ ByVal Original_third_quantity_type As String, _ ByVal Original_third_quantity As String, _ ByVal Original_supplementary_unit As String, _ ByVal Original_declarationdata_id As Global.System.Nullable(Of Integer), _ ByVal Original_line_no As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(commodity, gtip_code, gtip_language, brut_wg, net_wg, sender_name, sender_address, sender_city_name, sender_country_id, sender_postcode, sender_eori_code, consignee_name, consignee_address, consignee_city_name, consignee_country_id, consignee_postcode, consignee_eori_code, invoice_amount, invoice_curr, cpc_code, additional_cpc_code, container_no, preferential_country_id, cus_code, nature_of_transaction, additional_commodity_codes, origin_country_id, preference_request, quota_desc, valuation_method, valuation_adjustment, third_quantity_type, third_quantity, supplementary_unit, declarationdata_id, line_no, Original_Id, Original_commodity, Original_gtip_code, Original_gtip_language, Original_brut_wg, Original_net_wg, Original_sender_name, Original_sender_address, Original_sender_city_name, Original_sender_country_id, Original_sender_postcode, Original_sender_eori_code, Original_consignee_name, Original_consignee_address, Original_consignee_city_name, Original_consignee_country_id, Original_consignee_postcode, Original_consignee_eori_code, Original_invoice_amount, Original_invoice_curr, Original_cpc_code, Original_additional_cpc_code, Original_container_no, Original_preferential_country_id, Original_cus_code, Original_nature_of_transaction, Original_additional_commodity_codes, Original_origin_country_id, Original_preference_request, Original_quota_desc, Original_valuation_method, Original_valuation_adjustment, Original_third_quantity_type, Original_third_quantity, Original_supplementary_unit, Original_declarationdata_id, Original_line_no, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOregonNCTS_Declarations_PacksAttributeTableAdapter 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 = "tblOregonNCTS_Declarations_PacksAttribute" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("goods_attribute_id", "goods_attribute_id") tableMapping.ColumnMappings.Add("goods_attribute_Posid", "goods_attribute_Posid") tableMapping.ColumnMappings.Add("pack_count", "pack_count") tableMapping.ColumnMappings.Add("pack_type", "pack_type") tableMapping.ColumnMappings.Add("notes", "notes") 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].[tblOregonNCTS_Declarations_PacksAttribute] WHERE (([Id] = @Ori"& _ "ginal_Id) AND ([goods_attribute_id] = @Original_goods_attribute_id) AND ([goods_"& _ "attribute_Posid] = @Original_goods_attribute_Posid) AND ([pack_count] = @Origina"& _ "l_pack_count) AND ((@IsNull_pack_type = 1 AND [pack_type] IS NULL) OR ([pack_typ"& _ "e] = @Original_pack_type)) AND ((@IsNull_notes = 1 AND [notes] IS NULL) OR ([not"& _ "es] = @Original_notes)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_goods_attribute_Posid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_Posid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pack_count", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pack_count", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pack_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pack_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pack_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pack_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_notes", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_notes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", 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].[tblOregonNCTS_Declarations_PacksAttribute] ([goods_attribute_i"& _ "d], [goods_attribute_Posid], [pack_count], [pack_type], [notes]) VALUES (@goods_"& _ "attribute_id, @goods_attribute_Posid, @pack_count, @pack_type, @notes);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ "Id, goods_attribute_id, goods_attribute_Posid, pack_count, pack_type, notes FROM"& _ " tblOregonNCTS_Declarations_PacksAttribute WHERE (Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@goods_attribute_Posid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_Posid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pack_count", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pack_count", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pack_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pack_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@notes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", 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].[tblOregonNCTS_Declarations_PacksAttribute] SET [goods_attribute_id]"& _ " = @goods_attribute_id, [goods_attribute_Posid] = @goods_attribute_Posid, [pack_"& _ "count] = @pack_count, [pack_type] = @pack_type, [notes] = @notes WHERE (([Id] = "& _ "@Original_Id) AND ([goods_attribute_id] = @Original_goods_attribute_id) AND ([go"& _ "ods_attribute_Posid] = @Original_goods_attribute_Posid) AND ([pack_count] = @Ori"& _ "ginal_pack_count) AND ((@IsNull_pack_type = 1 AND [pack_type] IS NULL) OR ([pack"& _ "_type] = @Original_pack_type)) AND ((@IsNull_notes = 1 AND [notes] IS NULL) OR ("& _ "[notes] = @Original_notes)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, goods_attribute_id, goods_attribute_Po"& _ "sid, pack_count, pack_type, notes FROM tblOregonNCTS_Declarations_PacksAttribute"& _ " WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@goods_attribute_Posid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_Posid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pack_count", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pack_count", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pack_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pack_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@notes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_goods_attribute_Posid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_Posid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pack_count", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pack_count", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pack_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pack_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pack_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pack_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_notes", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_notes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "notes", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, goods_attribute_id, goods_attribute_Posid, pack_count, pack_type, note"& _ "s FROM dbo.tblOregonNCTS_Declarations_PacksAttribute" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_PacksAttributeDataTable) 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 VERAGDataSet.tblOregonNCTS_Declarations_PacksAttributeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOregonNCTS_Declarations_PacksAttributeDataTable = New VERAGDataSet.tblOregonNCTS_Declarations_PacksAttributeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_PacksAttributeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOregonNCTS_Declarations_PacksAttribute") 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_Id As Integer, ByVal Original_goods_attribute_id As Integer, ByVal Original_goods_attribute_Posid As Integer, ByVal Original_pack_count As Integer, ByVal Original_pack_type As String, ByVal Original_notes As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_goods_attribute_id,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_goods_attribute_Posid,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_pack_count,Integer) If (Original_pack_type 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_pack_type,String) End If If (Original_notes 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_notes,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 goods_attribute_id As Integer, ByVal goods_attribute_Posid As Integer, ByVal pack_count As Integer, ByVal pack_type As String, ByVal notes As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(goods_attribute_id,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(goods_attribute_Posid,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(pack_count,Integer) If (pack_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(pack_type,String) End If If (notes Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(notes,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 goods_attribute_id As Integer, ByVal goods_attribute_Posid As Integer, ByVal pack_count As Integer, ByVal pack_type As String, ByVal notes As String, ByVal Original_Id As Integer, ByVal Original_goods_attribute_id As Integer, ByVal Original_goods_attribute_Posid As Integer, ByVal Original_pack_count As Integer, ByVal Original_pack_type As String, ByVal Original_notes As String, ByVal Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(goods_attribute_id,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(goods_attribute_Posid,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(pack_count,Integer) If (pack_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(pack_type,String) End If If (notes Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(notes,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Id,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_goods_attribute_id,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_goods_attribute_Posid,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_pack_count,Integer) If (Original_pack_type 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_pack_type,String) End If If (Original_notes Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_notes,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Id,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 goods_attribute_id As Integer, ByVal goods_attribute_Posid As Integer, ByVal pack_count As Integer, ByVal pack_type As String, ByVal notes As String, ByVal Original_Id As Integer, ByVal Original_goods_attribute_id As Integer, ByVal Original_goods_attribute_Posid As Integer, ByVal Original_pack_count As Integer, ByVal Original_pack_type As String, ByVal Original_notes As String) As Integer Return Me.Update(goods_attribute_id, goods_attribute_Posid, pack_count, pack_type, notes, Original_Id, Original_goods_attribute_id, Original_goods_attribute_Posid, Original_pack_count, Original_pack_type, Original_notes, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOregonNCTS_Declarations_PartiesAttributeTableAdapter 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 = "tblOregonNCTS_Declarations_PartiesAttribute" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("declarationdata_id", "declarationdata_id") tableMapping.ColumnMappings.Add("party_role", "party_role") tableMapping.ColumnMappings.Add("party_code", "party_code") tableMapping.ColumnMappings.Add("eori_code", "eori_code") 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].[tblOregonNCTS_Declarations_PartiesAttribute] WHERE (([Id] = @O"& _ "riginal_Id) AND ([declarationdata_id] = @Original_declarationdata_id) AND ((@IsN"& _ "ull_party_role = 1 AND [party_role] IS NULL) OR ([party_role] = @Original_party_"& _ "role)) AND ((@IsNull_party_code = 1 AND [party_code] IS NULL) OR ([party_code] ="& _ " @Original_party_code)) AND ((@IsNull_eori_code = 1 AND [eori_code] IS NULL) OR "& _ "([eori_code] = @Original_eori_code)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_party_role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_party_role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_party_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_party_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eori_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_code", 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].[tblOregonNCTS_Declarations_PartiesAttribute] ([declarationdata"& _ "_id], [party_role], [party_code], [eori_code]) VALUES (@declarationdata_id, @par"& _ "ty_role, @party_code, @eori_code);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, declarationdata_id, party_role, p"& _ "arty_code, eori_code FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE (Id "& _ "= SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@party_role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@party_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_code", 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].[tblOregonNCTS_Declarations_PartiesAttribute] SET [declarationdata_i"& _ "d] = @declarationdata_id, [party_role] = @party_role, [party_code] = @party_code"& _ ", [eori_code] = @eori_code WHERE (([Id] = @Original_Id) AND ([declarationdata_id"& _ "] = @Original_declarationdata_id) AND ((@IsNull_party_role = 1 AND [party_role] "& _ "IS NULL) OR ([party_role] = @Original_party_role)) AND ((@IsNull_party_code = 1 "& _ "AND [party_code] IS NULL) OR ([party_code] = @Original_party_code)) AND ((@IsNul"& _ "l_eori_code = 1 AND [eori_code] IS NULL) OR ([eori_code] = @Original_eori_code))"& _ ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, declarationdata_id, party_role, party_code, eori_code FROM tblOre"& _ "gonNCTS_Declarations_PartiesAttribute WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@party_role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_role", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@party_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_party_role", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_role", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_party_role", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_role", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_party_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_party_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "party_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_eori_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_eori_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "eori_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, declarationdata_id, party_role, party_code, eori_code FROM dbo.tblOreg"& _ "onNCTS_Declarations_PartiesAttribute" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_PartiesAttributeDataTable) 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 VERAGDataSet.tblOregonNCTS_Declarations_PartiesAttributeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOregonNCTS_Declarations_PartiesAttributeDataTable = New VERAGDataSet.tblOregonNCTS_Declarations_PartiesAttributeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_PartiesAttributeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOregonNCTS_Declarations_PartiesAttribute") 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_Id As Integer, ByVal Original_declarationdata_id As Integer, ByVal Original_party_role As String, ByVal Original_party_code As String, ByVal Original_eori_code As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_declarationdata_id,Integer) If (Original_party_role 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_party_role,String) End If If (Original_party_code 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_party_code,String) End If If (Original_eori_code 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_eori_code,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 declarationdata_id As Integer, ByVal party_role As String, ByVal party_code As String, ByVal eori_code As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(declarationdata_id,Integer) If (party_role Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(party_role,String) End If If (party_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(party_code,String) End If If (eori_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(eori_code,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 declarationdata_id As Integer, ByVal party_role As String, ByVal party_code As String, ByVal eori_code As String, ByVal Original_Id As Integer, ByVal Original_declarationdata_id As Integer, ByVal Original_party_role As String, ByVal Original_party_code As String, ByVal Original_eori_code As String, ByVal Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(declarationdata_id,Integer) If (party_role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(party_role,String) End If If (party_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(party_code,String) End If If (eori_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(eori_code,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Id,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_declarationdata_id,Integer) If (Original_party_role Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_party_role,String) End If If (Original_party_code 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_party_code,String) End If If (Original_eori_code 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_eori_code,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Id,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 declarationdata_id As Integer, ByVal party_role As String, ByVal party_code As String, ByVal eori_code As String, ByVal Original_Id As Integer, ByVal Original_declarationdata_id As Integer, ByVal Original_party_role As String, ByVal Original_party_code As String, ByVal Original_eori_code As String) As Integer Return Me.Update(declarationdata_id, party_role, party_code, eori_code, Original_Id, Original_declarationdata_id, Original_party_role, Original_party_code, Original_eori_code, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter 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 = "tblOregonNCTS_Declarations_ProducedDocumentsAttribute" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("goods_attribute_id", "goods_attribute_id") tableMapping.ColumnMappings.Add("doc_type", "doc_type") tableMapping.ColumnMappings.Add("doc_no", "doc_no") tableMapping.ColumnMappings.Add("pre_post", "pre_post") 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].[tblOregonNCTS_Declarations_ProducedDocumentsAttribute] WHERE ("& _ "([Id] = @Original_Id) AND ([goods_attribute_id] = @Original_goods_attribute_id) "& _ "AND ((@IsNull_doc_type = 1 AND [doc_type] IS NULL) OR ([doc_type] = @Original_do"& _ "c_type)) AND ((@IsNull_doc_no = 1 AND [doc_no] IS NULL) OR ([doc_no] = @Original"& _ "_doc_no)) AND ((@IsNull_pre_post = 1 AND [pre_post] IS NULL) OR ([pre_post] = @O"& _ "riginal_pre_post)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_doc_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_doc_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_doc_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pre_post", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pre_post", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", 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].[tblOregonNCTS_Declarations_ProducedDocumentsAttribute] ([goods"& _ "_attribute_id], [doc_type], [doc_no], [pre_post]) VALUES (@goods_attribute_id, @"& _ "doc_type, @doc_no, @pre_post);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, goods_attribute_id, doc_type, doc_no,"& _ " pre_post FROM tblOregonNCTS_Declarations_ProducedDocumentsAttribute WHERE (Id ="& _ " SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@doc_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pre_post", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", 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].[tblOregonNCTS_Declarations_ProducedDocumentsAttribute] SET [goods_a"& _ "ttribute_id] = @goods_attribute_id, [doc_type] = @doc_type, [doc_no] = @doc_no, "& _ "[pre_post] = @pre_post WHERE (([Id] = @Original_Id) AND ([goods_attribute_id] = "& _ "@Original_goods_attribute_id) AND ((@IsNull_doc_type = 1 AND [doc_type] IS NULL)"& _ " OR ([doc_type] = @Original_doc_type)) AND ((@IsNull_doc_no = 1 AND [doc_no] IS "& _ "NULL) OR ([doc_no] = @Original_doc_no)) AND ((@IsNull_pre_post = 1 AND [pre_post"& _ "] IS NULL) OR ([pre_post] = @Original_pre_post)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, goods_attribute_i"& _ "d, doc_type, doc_no, pre_post FROM tblOregonNCTS_Declarations_ProducedDocumentsA"& _ "ttribute WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@doc_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pre_post", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_goods_attribute_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "goods_attribute_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_doc_type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_doc_type", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_doc_no", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_doc_no", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "doc_no", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pre_post", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pre_post", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pre_post", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, goods_attribute_id, doc_type, doc_no, pre_post FROM dbo.tblOregonNCTS_"& _ "Declarations_ProducedDocumentsAttribute" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable) 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 VERAGDataSet.tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable = New VERAGDataSet.tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_ProducedDocumentsAttributeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOregonNCTS_Declarations_ProducedDocumentsAttribute") 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_Id As Integer, ByVal Original_goods_attribute_id As Integer, ByVal Original_doc_type As String, ByVal Original_doc_no As String, ByVal Original_pre_post As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_goods_attribute_id,Integer) If (Original_doc_type 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_doc_type,String) End If If (Original_doc_no 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_doc_no,String) End If If (Original_pre_post 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_pre_post,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 goods_attribute_id As Integer, ByVal doc_type As String, ByVal doc_no As String, ByVal pre_post As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(goods_attribute_id,Integer) If (doc_type Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(doc_type,String) End If If (doc_no Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(doc_no,String) End If If (pre_post Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(pre_post,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 goods_attribute_id As Integer, ByVal doc_type As String, ByVal doc_no As String, ByVal pre_post As String, ByVal Original_Id As Integer, ByVal Original_goods_attribute_id As Integer, ByVal Original_doc_type As String, ByVal Original_doc_no As String, ByVal Original_pre_post As String, ByVal Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(goods_attribute_id,Integer) If (doc_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(doc_type,String) End If If (doc_no Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(doc_no,String) End If If (pre_post Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(pre_post,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Id,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_goods_attribute_id,Integer) If (Original_doc_type Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_doc_type,String) End If If (Original_doc_no 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_doc_no,String) End If If (Original_pre_post 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_pre_post,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Id,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 goods_attribute_id As Integer, ByVal doc_type As String, ByVal doc_no As String, ByVal pre_post As String, ByVal Original_Id As Integer, ByVal Original_goods_attribute_id As Integer, ByVal Original_doc_type As String, ByVal Original_doc_no As String, ByVal Original_pre_post As String) As Integer Return Me.Update(goods_attribute_id, doc_type, doc_no, pre_post, Original_Id, Original_goods_attribute_id, Original_doc_type, Original_doc_no, Original_pre_post, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter 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 = "tblOregonNCTS_Declarations_TraderAdditionsAttribute" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("declarationdata_id", "declarationdata_id") tableMapping.ColumnMappings.Add("code", "code") tableMapping.ColumnMappings.Add("amount", "amount") tableMapping.ColumnMappings.Add("curr", "curr") tableMapping.ColumnMappings.Add("rate_code", "rate_code") 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].[tblOregonNCTS_Declarations_TraderAdditionsAttribute] WHERE ((["& _ "Id] = @Original_Id) AND ([declarationdata_id] = @Original_declarationdata_id) AN"& _ "D ((@IsNull_code = 1 AND [code] IS NULL) OR ([code] = @Original_code)) AND ([amo"& _ "unt] = @Original_amount) AND ((@IsNull_curr = 1 AND [curr] IS NULL) OR ([curr] ="& _ " @Original_curr)) AND ([rate_code] = @Original_rate_code))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rate_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rate_code", 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].[tblOregonNCTS_Declarations_TraderAdditionsAttribute] ([declara"& _ "tiondata_id], [code], [amount], [curr], [rate_code]) VALUES (@declarationdata_id"& _ ", @code, @amount, @curr, @rate_code);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, declarationdata_id, code, amou"& _ "nt, curr, rate_code FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHE"& _ "RE (Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rate_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rate_code", 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].[tblOregonNCTS_Declarations_TraderAdditionsAttribute] SET [declarati"& _ "ondata_id] = @declarationdata_id, [code] = @code, [amount] = @amount, [curr] = @"& _ "curr, [rate_code] = @rate_code WHERE (([Id] = @Original_Id) AND ([declarationdat"& _ "a_id] = @Original_declarationdata_id) AND ((@IsNull_code = 1 AND [code] IS NULL)"& _ " OR ([code] = @Original_code)) AND ([amount] = @Original_amount) AND ((@IsNull_c"& _ "urr = 1 AND [curr] IS NULL) OR ([curr] = @Original_curr)) AND ([rate_code] = @Or"& _ "iginal_rate_code));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, declarationdata_id, code, amount, curr, rate_cod"& _ "e FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rate_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rate_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declarationdata_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declarationdata_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_amount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rate_code", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rate_code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, declarationdata_id, code, amount, curr, rate_code FROM dbo.tblOregonNC"& _ "TS_Declarations_TraderAdditionsAttribute" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable) 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 VERAGDataSet.tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable = New VERAGDataSet.tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOregonNCTS_Declarations_TraderAdditionsAttributeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOregonNCTS_Declarations_TraderAdditionsAttribute") 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_Id As Integer, ByVal Original_declarationdata_id As Integer, ByVal Original_code As String, ByVal Original_amount As Integer, ByVal Original_curr As String, ByVal Original_rate_code As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_declarationdata_id,Integer) If (Original_code 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_code,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_amount,Integer) If (Original_curr 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_curr,String) End If Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_rate_code,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 declarationdata_id As Integer, ByVal code As String, ByVal amount As Integer, ByVal curr As String, ByVal rate_code As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(declarationdata_id,Integer) If (code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(amount,Integer) If (curr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(curr,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(rate_code,Integer) 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 declarationdata_id As Integer, ByVal code As String, ByVal amount As Integer, ByVal curr As String, ByVal rate_code As Integer, ByVal Original_Id As Integer, ByVal Original_declarationdata_id As Integer, ByVal Original_code As String, ByVal Original_amount As Integer, ByVal Original_curr As String, ByVal Original_rate_code As Integer, ByVal Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(declarationdata_id,Integer) If (code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(amount,Integer) If (curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(curr,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(rate_code,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Id,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_declarationdata_id,Integer) If (Original_code 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_code,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_amount,Integer) If (Original_curr 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_curr,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_rate_code,Integer) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Id,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 declarationdata_id As Integer, ByVal code As String, ByVal amount As Integer, ByVal curr As String, ByVal rate_code As Integer, ByVal Original_Id As Integer, ByVal Original_declarationdata_id As Integer, ByVal Original_code As String, ByVal Original_amount As Integer, ByVal Original_curr As String, ByVal Original_rate_code As Integer) As Integer Return Me.Update(declarationdata_id, code, amount, curr, rate_code, Original_Id, Original_declarationdata_id, Original_code, Original_amount, Original_curr, Original_rate_code, Original_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOregonNCTS_ReferenceTemplateTableAdapter 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 = "tblOregonNCTS_ReferenceTemplate" tableMapping.ColumnMappings.Add("Id", "Id") tableMapping.ColumnMappings.Add("country", "country") tableMapping.ColumnMappings.Add("declaration", "declaration") tableMapping.ColumnMappings.Add("reference", "reference") tableMapping.ColumnMappings.Add("descr", "descr") tableMapping.ColumnMappings.Add("mandant", "mandant") tableMapping.ColumnMappings.Add("niederlassung", "niederlassung") tableMapping.ColumnMappings.Add("standard", "standard") tableMapping.ColumnMappings.Add("visible", "visible") tableMapping.ColumnMappings.Add("kdNr", "kdNr") 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].[tblOregonNCTS_ReferenceTemplate] WHERE (([Id] = @Original_Id) "& _ "AND ((@IsNull_country = 1 AND [country] IS NULL) OR ([country] = @Original_count"& _ "ry)) AND ([declaration] = @Original_declaration) AND ([reference] = @Original_re"& _ "ference) AND ([descr] = @Original_descr) AND ([mandant] = @Original_mandant) AND"& _ " ([niederlassung] = @Original_niederlassung) AND ([standard] = @Original_standar"& _ "d) AND ([visible] = @Original_visible) AND ((@IsNull_kdNr = 1 AND [kdNr] IS NULL"& _ ") OR ([kdNr] = @Original_kdNr)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_country", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declaration", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declaration", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "reference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_descr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "descr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mandant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_standard", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "standard", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "visible", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdNr", 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].[tblOregonNCTS_ReferenceTemplate] ([Id], [country], [declaratio"& _ "n], [reference], [descr], [mandant], [niederlassung], [standard], [visible], [kd"& _ "Nr]) VALUES (@Id, @country, @declaration, @reference, @descr, @mandant, @niederl"& _ "assung, @standard, @visible, @kdNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, country, declaration, reference"& _ ", descr, mandant, niederlassung, standard, visible, kdNr FROM tblOregonNCTS_Refe"& _ "renceTemplate WHERE (Id = @Id)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@country", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declaration", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declaration", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "reference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@descr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "descr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mandant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@standard", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "standard", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "visible", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdNr", 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].[tblOregonNCTS_ReferenceTemplate] SET [Id] = @Id, [country] = @count"& _ "ry, [declaration] = @declaration, [reference] = @reference, [descr] = @descr, [m"& _ "andant] = @mandant, [niederlassung] = @niederlassung, [standard] = @standard, [v"& _ "isible] = @visible, [kdNr] = @kdNr WHERE (([Id] = @Original_Id) AND ((@IsNull_co"& _ "untry = 1 AND [country] IS NULL) OR ([country] = @Original_country)) AND ([decla"& _ "ration] = @Original_declaration) AND ([reference] = @Original_reference) AND ([d"& _ "escr] = @Original_descr) AND ([mandant] = @Original_mandant) AND ([niederlassung"& _ "] = @Original_niederlassung) AND ([standard] = @Original_standard) AND ([visible"& _ "] = @Original_visible) AND ((@IsNull_kdNr = 1 AND [kdNr] IS NULL) OR ([kdNr] = @"& _ "Original_kdNr)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, country, declaration, reference, descr, mandant, n"& _ "iederlassung, standard, visible, kdNr FROM tblOregonNCTS_ReferenceTemplate WHERE"& _ " (Id = @Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@country", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@declaration", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declaration", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "reference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@descr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "descr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mandant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@standard", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "standard", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "visible", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_country", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "country", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_country", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "country", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_declaration", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "declaration", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "reference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_descr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "descr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_mandant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "mandant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_standard", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "standard", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_visible", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "visible", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, country, declaration, reference, descr, mandant, niederlassung, standa"& _ "rd, visible, kdNr FROM dbo.tblOregonNCTS_ReferenceTemplate" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOregonNCTS_ReferenceTemplateDataTable) 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 VERAGDataSet.tblOregonNCTS_ReferenceTemplateDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOregonNCTS_ReferenceTemplateDataTable = New VERAGDataSet.tblOregonNCTS_ReferenceTemplateDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOregonNCTS_ReferenceTemplateDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOregonNCTS_ReferenceTemplate") 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_Id As Integer, ByVal Original_country As String, ByVal Original_declaration As String, ByVal Original_reference As String, ByVal Original_descr As String, ByVal Original_mandant As String, ByVal Original_niederlassung As String, ByVal Original_standard As Boolean, ByVal Original_visible As Boolean, ByVal Original_kdNr As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer) If (Original_country 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_country,String) End If If (Original_declaration Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_declaration") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_declaration,String) End If If (Original_reference Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_reference") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_reference,String) End If If (Original_descr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_descr") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_descr,String) End If If (Original_mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_mandant") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_mandant,String) End If If (Original_niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_niederlassung") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_niederlassung,String) End If Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_standard,Boolean) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_visible,Boolean) If (Original_kdNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_kdNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).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 Id As Integer, ByVal country As String, ByVal declaration As String, ByVal reference As String, ByVal descr As String, ByVal mandant As String, ByVal niederlassung As String, ByVal standard As Boolean, ByVal visible As Boolean, ByVal kdNr As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Id,Integer) If (country Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(country,String) End If If (declaration Is Nothing) Then Throw New Global.System.ArgumentNullException("declaration") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(declaration,String) End If If (reference Is Nothing) Then Throw New Global.System.ArgumentNullException("reference") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(reference,String) End If If (descr Is Nothing) Then Throw New Global.System.ArgumentNullException("descr") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(descr,String) End If If (mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("mandant") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(mandant,String) End If If (niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("niederlassung") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(niederlassung,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(standard,Boolean) Me.Adapter.InsertCommand.Parameters(8).Value = CType(visible,Boolean) If (kdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(kdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).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 Id As Integer, _ ByVal country As String, _ ByVal declaration As String, _ ByVal reference As String, _ ByVal descr As String, _ ByVal mandant As String, _ ByVal niederlassung As String, _ ByVal standard As Boolean, _ ByVal visible As Boolean, _ ByVal kdNr As Global.System.Nullable(Of Integer), _ ByVal Original_Id As Integer, _ ByVal Original_country As String, _ ByVal Original_declaration As String, _ ByVal Original_reference As String, _ ByVal Original_descr As String, _ ByVal Original_mandant As String, _ ByVal Original_niederlassung As String, _ ByVal Original_standard As Boolean, _ ByVal Original_visible As Boolean, _ ByVal Original_kdNr As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Id,Integer) If (country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(country,String) End If If (declaration Is Nothing) Then Throw New Global.System.ArgumentNullException("declaration") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(declaration,String) End If If (reference Is Nothing) Then Throw New Global.System.ArgumentNullException("reference") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(reference,String) End If If (descr Is Nothing) Then Throw New Global.System.ArgumentNullException("descr") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(descr,String) End If If (mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("mandant") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(mandant,String) End If If (niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("niederlassung") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(standard,Boolean) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(visible,Boolean) If (kdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(kdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Id,Integer) If (Original_country Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_country,String) End If If (Original_declaration Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_declaration") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_declaration,String) End If If (Original_reference Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_reference") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_reference,String) End If If (Original_descr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_descr") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_descr,String) End If If (Original_mandant Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_mandant") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_mandant,String) End If If (Original_niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_niederlassung") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_niederlassung,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_standard,Boolean) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_visible,Boolean) If (Original_kdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_kdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If 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 country As String, _ ByVal declaration As String, _ ByVal reference As String, _ ByVal descr As String, _ ByVal mandant As String, _ ByVal niederlassung As String, _ ByVal standard As Boolean, _ ByVal visible As Boolean, _ ByVal kdNr As Global.System.Nullable(Of Integer), _ ByVal Original_Id As Integer, _ ByVal Original_country As String, _ ByVal Original_declaration As String, _ ByVal Original_reference As String, _ ByVal Original_descr As String, _ ByVal Original_mandant As String, _ ByVal Original_niederlassung As String, _ ByVal Original_standard As Boolean, _ ByVal Original_visible As Boolean, _ ByVal Original_kdNr As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(Original_Id, country, declaration, reference, descr, mandant, niederlassung, standard, visible, kdNr, Original_Id, Original_country, Original_declaration, Original_reference, Original_descr, Original_mandant, Original_niederlassung, Original_standard, Original_visible, Original_kdNr) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblOriginalATRTableAdapter 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 = "tblOriginalATR" tableMapping.ColumnMappings.Add("atr_id", "atr_id") tableMapping.ColumnMappings.Add("atr_documentNr", "atr_documentNr") tableMapping.ColumnMappings.Add("atr_erfassungsdatum", "atr_erfassungsdatum") tableMapping.ColumnMappings.Add("atr_Sachbearbeiter", "atr_Sachbearbeiter") tableMapping.ColumnMappings.Add("atr_mitId", "atr_mitId") tableMapping.ColumnMappings.Add("atr_absender", "atr_absender") tableMapping.ColumnMappings.Add("atr_absenderKdNr", "atr_absenderKdNr") tableMapping.ColumnMappings.Add("atr_empfaenger", "atr_empfaenger") tableMapping.ColumnMappings.Add("atr_empfaengerKdNr", "atr_empfaengerKdNr") tableMapping.ColumnMappings.Add("atr_austellungsdatum", "atr_austellungsdatum") tableMapping.ColumnMappings.Add("atr_AvisoId", "atr_AvisoId") tableMapping.ColumnMappings.Add("atr_SendungsId", "atr_SendungsId") tableMapping.ColumnMappings.Add("atr_LKW", "atr_LKW") tableMapping.ColumnMappings.Add("atr_dsId", "atr_dsId") tableMapping.ColumnMappings.Add("atr_DHL_ReferenzNr", "atr_DHL_ReferenzNr") tableMapping.ColumnMappings.Add("atr_location", "atr_location") tableMapping.ColumnMappings.Add("atr_info", "atr_info") tableMapping.ColumnMappings.Add("atr_erhalten_Art", "atr_erhalten_Art") tableMapping.ColumnMappings.Add("atr_erhalenDatum", "atr_erhalenDatum") tableMapping.ColumnMappings.Add("atr_FilialenNr", "atr_FilialenNr") tableMapping.ColumnMappings.Add("atr_AbfertigungsNr", "atr_AbfertigungsNr") tableMapping.ColumnMappings.Add("atr_anhID", "atr_anhID") 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].[tblOriginalATR] WHERE (([atr_id] = @Original_atr_id) AND ([atr"& _ "_documentNr] = @Original_atr_documentNr) AND ([atr_erfassungsdatum] = @Original_"& _ "atr_erfassungsdatum) AND ([atr_Sachbearbeiter] = @Original_atr_Sachbearbeiter) A"& _ "ND ([atr_mitId] = @Original_atr_mitId) AND ((@IsNull_atr_absender = 1 AND [atr_a"& _ "bsender] IS NULL) OR ([atr_absender] = @Original_atr_absender)) AND ([atr_absend"& _ "erKdNr] = @Original_atr_absenderKdNr) AND ((@IsNull_atr_empfaenger = 1 AND [atr_"& _ "empfaenger] IS NULL) OR ([atr_empfaenger] = @Original_atr_empfaenger)) AND ([atr"& _ "_empfaengerKdNr] = @Original_atr_empfaengerKdNr) AND ((@IsNull_atr_austellungsda"& _ "tum = 1 AND [atr_austellungsdatum] IS NULL) OR ([atr_austellungsdatum] = @Origin"& _ "al_atr_austellungsdatum)) AND ([atr_AvisoId] = @Original_atr_AvisoId) AND ([atr_"& _ "SendungsId] = @Original_atr_SendungsId) AND ((@IsNull_atr_LKW = 1 AND [atr_LKW] "& _ "IS NULL) OR ([atr_LKW] = @Original_atr_LKW)) AND ((@IsNull_atr_dsId = 1 AND [atr"& _ "_dsId] IS NULL) OR ([atr_dsId] = @Original_atr_dsId)) AND ((@IsNull_atr_DHL_Refe"& _ "renzNr = 1 AND [atr_DHL_ReferenzNr] IS NULL) OR ([atr_DHL_ReferenzNr] = @Origina"& _ "l_atr_DHL_ReferenzNr)) AND ((@IsNull_atr_location = 1 AND [atr_location] IS NULL"& _ ") OR ([atr_location] = @Original_atr_location)) AND ((@IsNull_atr_erhalten_Art ="& _ " 1 AND [atr_erhalten_Art] IS NULL) OR ([atr_erhalten_Art] = @Original_atr_erhalt"& _ "en_Art)) AND ((@IsNull_atr_erhalenDatum = 1 AND [atr_erhalenDatum] IS NULL) OR ("& _ "[atr_erhalenDatum] = @Original_atr_erhalenDatum)) AND ([atr_FilialenNr] = @Origi"& _ "nal_atr_FilialenNr) AND ([atr_AbfertigungsNr] = @Original_atr_AbfertigungsNr) AN"& _ "D ((@IsNull_atr_anhID = 1 AND [atr_anhID] IS NULL) OR ([atr_anhID] = @Original_a"& _ "tr_anhID)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_documentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_documentNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_erfassungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erfassungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_mitId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_mitId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_absender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_absender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_absender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_absenderKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_absenderKdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_empfaenger", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_empfaenger", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_empfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_empfaenger", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_empfaengerKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_empfaengerKdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_austellungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_austellungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_austellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_austellungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_SendungsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_LKW", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_LKW", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_LKW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_LKW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_DHL_ReferenzNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_DHL_ReferenzNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_DHL_ReferenzNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_DHL_ReferenzNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_erhalten_Art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalten_Art", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_erhalten_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalten_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_erhalenDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalenDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_erhalenDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalenDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_anhID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_anhID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_anhID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_anhID", 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].[tblOriginalATR] ([atr_documentNr], [atr_erfassungsdatum], [atr"& _ "_Sachbearbeiter], [atr_mitId], [atr_absender], [atr_absenderKdNr], [atr_empfaeng"& _ "er], [atr_empfaengerKdNr], [atr_austellungsdatum], [atr_AvisoId], [atr_SendungsI"& _ "d], [atr_LKW], [atr_dsId], [atr_DHL_ReferenzNr], [atr_location], [atr_info], [at"& _ "r_erhalten_Art], [atr_erhalenDatum], [atr_FilialenNr], [atr_AbfertigungsNr], [at"& _ "r_anhID]) VALUES (@atr_documentNr, @atr_erfassungsdatum, @atr_Sachbearbeiter, @a"& _ "tr_mitId, @atr_absender, @atr_absenderKdNr, @atr_empfaenger, @atr_empfaengerKdNr"& _ ", @atr_austellungsdatum, @atr_AvisoId, @atr_SendungsId, @atr_LKW, @atr_dsId, @at"& _ "r_DHL_ReferenzNr, @atr_location, @atr_info, @atr_erhalten_Art, @atr_erhalenDatum"& _ ", @atr_FilialenNr, @atr_AbfertigungsNr, @atr_anhID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT atr_id, atr_documen"& _ "tNr, atr_erfassungsdatum, atr_Sachbearbeiter, atr_mitId, atr_absender, atr_absen"& _ "derKdNr, atr_empfaenger, atr_empfaengerKdNr, atr_austellungsdatum, atr_AvisoId, "& _ "atr_SendungsId, atr_LKW, atr_dsId, atr_DHL_ReferenzNr, atr_location, atr_info, a"& _ "tr_erhalten_Art, atr_erhalenDatum, atr_FilialenNr, atr_AbfertigungsNr, atr_anhID"& _ " FROM tblOriginalATR WHERE (atr_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_documentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_documentNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_erfassungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erfassungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_mitId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_mitId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_absenderKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_absenderKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_empfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_empfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_empfaengerKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_empfaengerKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_austellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_austellungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_SendungsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_LKW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_LKW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_DHL_ReferenzNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_DHL_ReferenzNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_info", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_erhalten_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalten_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_erhalenDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalenDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_anhID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_anhID", 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].[tblOriginalATR] SET [atr_documentNr] = @atr_documentNr, [atr_erfass"& _ "ungsdatum] = @atr_erfassungsdatum, [atr_Sachbearbeiter] = @atr_Sachbearbeiter, ["& _ "atr_mitId] = @atr_mitId, [atr_absender] = @atr_absender, [atr_absenderKdNr] = @a"& _ "tr_absenderKdNr, [atr_empfaenger] = @atr_empfaenger, [atr_empfaengerKdNr] = @atr"& _ "_empfaengerKdNr, [atr_austellungsdatum] = @atr_austellungsdatum, [atr_AvisoId] ="& _ " @atr_AvisoId, [atr_SendungsId] = @atr_SendungsId, [atr_LKW] = @atr_LKW, [atr_ds"& _ "Id] = @atr_dsId, [atr_DHL_ReferenzNr] = @atr_DHL_ReferenzNr, [atr_location] = @a"& _ "tr_location, [atr_info] = @atr_info, [atr_erhalten_Art] = @atr_erhalten_Art, [at"& _ "r_erhalenDatum] = @atr_erhalenDatum, [atr_FilialenNr] = @atr_FilialenNr, [atr_Ab"& _ "fertigungsNr] = @atr_AbfertigungsNr, [atr_anhID] = @atr_anhID WHERE (([atr_id] ="& _ " @Original_atr_id) AND ([atr_documentNr] = @Original_atr_documentNr) AND ([atr_e"& _ "rfassungsdatum] = @Original_atr_erfassungsdatum) AND ([atr_Sachbearbeiter] = @Or"& _ "iginal_atr_Sachbearbeiter) AND ([atr_mitId] = @Original_atr_mitId) AND ((@IsNull"& _ "_atr_absender = 1 AND [atr_absender] IS NULL) OR ([atr_absender] = @Original_atr"& _ "_absender)) AND ([atr_absenderKdNr] = @Original_atr_absenderKdNr) AND ((@IsNull_"& _ "atr_empfaenger = 1 AND [atr_empfaenger] IS NULL) OR ([atr_empfaenger] = @Origina"& _ "l_atr_empfaenger)) AND ([atr_empfaengerKdNr] = @Original_atr_empfaengerKdNr) AND"& _ " ((@IsNull_atr_austellungsdatum = 1 AND [atr_austellungsdatum] IS NULL) OR ([atr"& _ "_austellungsdatum] = @Original_atr_austellungsdatum)) AND ([atr_AvisoId] = @Orig"& _ "inal_atr_AvisoId) AND ([atr_SendungsId] = @Original_atr_SendungsId) AND ((@IsNul"& _ "l_atr_LKW = 1 AND [atr_LKW] IS NULL) OR ([atr_LKW] = @Original_atr_LKW)) AND ((@"& _ "IsNull_atr_dsId = 1 AND [atr_dsId] IS NULL) OR ([atr_dsId] = @Original_atr_dsId)"& _ ") AND ((@IsNull_atr_DHL_ReferenzNr = 1 AND [atr_DHL_ReferenzNr] IS NULL) OR ([at"& _ "r_DHL_ReferenzNr] = @Original_atr_DHL_ReferenzNr)) AND ((@IsNull_atr_location = "& _ "1 AND [atr_location] IS NULL) OR ([atr_location] = @Original_atr_location)) AND "& _ "((@IsNull_atr_erhalten_Art = 1 AND [atr_erhalten_Art] IS NULL) OR ([atr_erhalten"& _ "_Art] = @Original_atr_erhalten_Art)) AND ((@IsNull_atr_erhalenDatum = 1 AND [atr"& _ "_erhalenDatum] IS NULL) OR ([atr_erhalenDatum] = @Original_atr_erhalenDatum)) AN"& _ "D ([atr_FilialenNr] = @Original_atr_FilialenNr) AND ([atr_AbfertigungsNr] = @Ori"& _ "ginal_atr_AbfertigungsNr) AND ((@IsNull_atr_anhID = 1 AND [atr_anhID] IS NULL) O"& _ "R ([atr_anhID] = @Original_atr_anhID)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT atr_id, atr_documentNr, atr_erf"& _ "assungsdatum, atr_Sachbearbeiter, atr_mitId, atr_absender, atr_absenderKdNr, atr"& _ "_empfaenger, atr_empfaengerKdNr, atr_austellungsdatum, atr_AvisoId, atr_Sendungs"& _ "Id, atr_LKW, atr_dsId, atr_DHL_ReferenzNr, atr_location, atr_info, atr_erhalten_"& _ "Art, atr_erhalenDatum, atr_FilialenNr, atr_AbfertigungsNr, atr_anhID FROM tblOri"& _ "ginalATR WHERE (atr_id = @atr_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_documentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_documentNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_erfassungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erfassungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_mitId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_mitId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_absenderKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_absenderKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_empfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_empfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_empfaengerKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_empfaengerKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_austellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_austellungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_SendungsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_LKW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_LKW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_DHL_ReferenzNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_DHL_ReferenzNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_info", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_erhalten_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalten_Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_erhalenDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalenDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_anhID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_anhID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_documentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_documentNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_erfassungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erfassungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_mitId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_mitId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_absender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_absender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_absender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_absenderKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_absenderKdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_empfaenger", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_empfaenger", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_empfaenger", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_empfaenger", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_empfaengerKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_empfaengerKdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_austellungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_austellungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_austellungsdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_austellungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_SendungsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_LKW", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_LKW", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_LKW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_LKW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_DHL_ReferenzNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_DHL_ReferenzNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_DHL_ReferenzNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_DHL_ReferenzNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_erhalten_Art", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalten_Art", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_erhalten_Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalten_Art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_erhalenDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalenDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_erhalenDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_erhalenDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_atr_anhID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_anhID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_atr_anhID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_anhID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@atr_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "atr_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 atr_id, atr_documentNr, atr_erfassungsdatum, atr_Sachbearbeiter, atr_mitId"& _ ", atr_absender, atr_absenderKdNr, atr_empfaenger, atr_empfaengerKdNr, atr_austel"& _ "lungsdatum, atr_AvisoId, atr_SendungsId, atr_LKW, atr_dsId, atr_DHL_ReferenzNr, "& _ "atr_location, atr_info, atr_erhalten_Art, atr_erhalenDatum, atr_FilialenNr, atr_"& _ "AbfertigungsNr, atr_anhID FROM dbo.tblOriginalATR" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblOriginalATRDataTable) 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 VERAGDataSet.tblOriginalATRDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblOriginalATRDataTable = New VERAGDataSet.tblOriginalATRDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblOriginalATRDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblOriginalATR") 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_atr_id As Integer, _ ByVal Original_atr_documentNr As String, _ ByVal Original_atr_erfassungsdatum As Date, _ ByVal Original_atr_Sachbearbeiter As String, _ ByVal Original_atr_mitId As Integer, _ ByVal Original_atr_absender As String, _ ByVal Original_atr_absenderKdNr As Integer, _ ByVal Original_atr_empfaenger As String, _ ByVal Original_atr_empfaengerKdNr As Integer, _ ByVal Original_atr_austellungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_atr_AvisoId As Integer, _ ByVal Original_atr_SendungsId As Integer, _ ByVal Original_atr_LKW As String, _ ByVal Original_atr_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_atr_DHL_ReferenzNr As String, _ ByVal Original_atr_location As String, _ ByVal Original_atr_erhalten_Art As String, _ ByVal Original_atr_erhalenDatum As Global.System.Nullable(Of Date), _ ByVal Original_atr_FilialenNr As Integer, _ ByVal Original_atr_AbfertigungsNr As Integer, _ ByVal Original_atr_anhID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_atr_id,Integer) If (Original_atr_documentNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_atr_documentNr") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_atr_documentNr,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_atr_erfassungsdatum,Date) If (Original_atr_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_atr_Sachbearbeiter") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_atr_Sachbearbeiter,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_atr_mitId,Integer) If (Original_atr_absender 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_atr_absender,String) End If Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_atr_absenderKdNr,Integer) If (Original_atr_empfaenger 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_atr_empfaenger,String) End If Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_atr_empfaengerKdNr,Integer) If (Original_atr_austellungsdatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_atr_austellungsdatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_atr_AvisoId,Integer) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_atr_SendungsId,Integer) If (Original_atr_LKW Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_atr_LKW,String) End If If (Original_atr_dsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_atr_dsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Original_atr_DHL_ReferenzNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_atr_DHL_ReferenzNr,String) End If If (Original_atr_location Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_atr_location,String) End If If (Original_atr_erhalten_Art Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_atr_erhalten_Art,String) End If If (Original_atr_erhalenDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_atr_erhalenDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_atr_FilialenNr,Integer) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_atr_AbfertigungsNr,Integer) If (Original_atr_anhID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_atr_anhID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).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 atr_documentNr As String, _ ByVal atr_erfassungsdatum As Date, _ ByVal atr_Sachbearbeiter As String, _ ByVal atr_mitId As Integer, _ ByVal atr_absender As String, _ ByVal atr_absenderKdNr As Integer, _ ByVal atr_empfaenger As String, _ ByVal atr_empfaengerKdNr As Integer, _ ByVal atr_austellungsdatum As Global.System.Nullable(Of Date), _ ByVal atr_AvisoId As Integer, _ ByVal atr_SendungsId As Integer, _ ByVal atr_LKW As String, _ ByVal atr_dsId As Global.System.Nullable(Of Integer), _ ByVal atr_DHL_ReferenzNr As String, _ ByVal atr_location As String, _ ByVal atr_info As String, _ ByVal atr_erhalten_Art As String, _ ByVal atr_erhalenDatum As Global.System.Nullable(Of Date), _ ByVal atr_FilialenNr As Integer, _ ByVal atr_AbfertigungsNr As Integer, _ ByVal atr_anhID As Global.System.Nullable(Of Integer)) As Integer If (atr_documentNr Is Nothing) Then Throw New Global.System.ArgumentNullException("atr_documentNr") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(atr_documentNr,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(atr_erfassungsdatum,Date) If (atr_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("atr_Sachbearbeiter") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(atr_Sachbearbeiter,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(atr_mitId,Integer) If (atr_absender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(atr_absender,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(atr_absenderKdNr,Integer) If (atr_empfaenger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(atr_empfaenger,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(atr_empfaengerKdNr,Integer) If (atr_austellungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(atr_austellungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(atr_AvisoId,Integer) Me.Adapter.InsertCommand.Parameters(10).Value = CType(atr_SendungsId,Integer) If (atr_LKW Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(atr_LKW,String) End If If (atr_dsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(atr_dsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (atr_DHL_ReferenzNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(atr_DHL_ReferenzNr,String) End If If (atr_location Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(atr_location,String) End If If (atr_info Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(atr_info,String) End If If (atr_erhalten_Art Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(atr_erhalten_Art,String) End If If (atr_erhalenDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(atr_erhalenDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(18).Value = CType(atr_FilialenNr,Integer) Me.Adapter.InsertCommand.Parameters(19).Value = CType(atr_AbfertigungsNr,Integer) If (atr_anhID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(atr_anhID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(20).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 atr_documentNr As String, _ ByVal atr_erfassungsdatum As Date, _ ByVal atr_Sachbearbeiter As String, _ ByVal atr_mitId As Integer, _ ByVal atr_absender As String, _ ByVal atr_absenderKdNr As Integer, _ ByVal atr_empfaenger As String, _ ByVal atr_empfaengerKdNr As Integer, _ ByVal atr_austellungsdatum As Global.System.Nullable(Of Date), _ ByVal atr_AvisoId As Integer, _ ByVal atr_SendungsId As Integer, _ ByVal atr_LKW As String, _ ByVal atr_dsId As Global.System.Nullable(Of Integer), _ ByVal atr_DHL_ReferenzNr As String, _ ByVal atr_location As String, _ ByVal atr_info As String, _ ByVal atr_erhalten_Art As String, _ ByVal atr_erhalenDatum As Global.System.Nullable(Of Date), _ ByVal atr_FilialenNr As Integer, _ ByVal atr_AbfertigungsNr As Integer, _ ByVal atr_anhID As Global.System.Nullable(Of Integer), _ ByVal Original_atr_id As Integer, _ ByVal Original_atr_documentNr As String, _ ByVal Original_atr_erfassungsdatum As Date, _ ByVal Original_atr_Sachbearbeiter As String, _ ByVal Original_atr_mitId As Integer, _ ByVal Original_atr_absender As String, _ ByVal Original_atr_absenderKdNr As Integer, _ ByVal Original_atr_empfaenger As String, _ ByVal Original_atr_empfaengerKdNr As Integer, _ ByVal Original_atr_austellungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_atr_AvisoId As Integer, _ ByVal Original_atr_SendungsId As Integer, _ ByVal Original_atr_LKW As String, _ ByVal Original_atr_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_atr_DHL_ReferenzNr As String, _ ByVal Original_atr_location As String, _ ByVal Original_atr_erhalten_Art As String, _ ByVal Original_atr_erhalenDatum As Global.System.Nullable(Of Date), _ ByVal Original_atr_FilialenNr As Integer, _ ByVal Original_atr_AbfertigungsNr As Integer, _ ByVal Original_atr_anhID As Global.System.Nullable(Of Integer), _ ByVal atr_id As Integer) As Integer If (atr_documentNr Is Nothing) Then Throw New Global.System.ArgumentNullException("atr_documentNr") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(atr_documentNr,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(atr_erfassungsdatum,Date) If (atr_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("atr_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(atr_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(atr_mitId,Integer) If (atr_absender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(atr_absender,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(atr_absenderKdNr,Integer) If (atr_empfaenger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(atr_empfaenger,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(atr_empfaengerKdNr,Integer) If (atr_austellungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(atr_austellungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(atr_AvisoId,Integer) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(atr_SendungsId,Integer) If (atr_LKW Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(atr_LKW,String) End If If (atr_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(atr_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (atr_DHL_ReferenzNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(atr_DHL_ReferenzNr,String) End If If (atr_location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(atr_location,String) End If If (atr_info Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(atr_info,String) End If If (atr_erhalten_Art Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(atr_erhalten_Art,String) End If If (atr_erhalenDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(atr_erhalenDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(atr_FilialenNr,Integer) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(atr_AbfertigungsNr,Integer) If (atr_anhID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(atr_anhID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_atr_id,Integer) If (Original_atr_documentNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_atr_documentNr") Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_atr_documentNr,String) End If Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_atr_erfassungsdatum,Date) If (Original_atr_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_atr_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_atr_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_atr_mitId,Integer) If (Original_atr_absender 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_atr_absender,String) End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_atr_absenderKdNr,Integer) If (Original_atr_empfaenger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_atr_empfaenger,String) End If Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_atr_empfaengerKdNr,Integer) If (Original_atr_austellungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_atr_austellungsdatum.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(Original_atr_AvisoId,Integer) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_atr_SendungsId,Integer) If (Original_atr_LKW Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_atr_LKW,String) End If If (Original_atr_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_atr_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_atr_DHL_ReferenzNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_atr_DHL_ReferenzNr,String) End If If (Original_atr_location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_atr_location,String) End If If (Original_atr_erhalten_Art Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_atr_erhalten_Art,String) End If If (Original_atr_erhalenDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_atr_erhalenDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_atr_FilialenNr,Integer) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_atr_AbfertigungsNr,Integer) If (Original_atr_anhID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_atr_anhID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(52).Value = CType(atr_id,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 atr_documentNr As String, _ ByVal atr_erfassungsdatum As Date, _ ByVal atr_Sachbearbeiter As String, _ ByVal atr_mitId As Integer, _ ByVal atr_absender As String, _ ByVal atr_absenderKdNr As Integer, _ ByVal atr_empfaenger As String, _ ByVal atr_empfaengerKdNr As Integer, _ ByVal atr_austellungsdatum As Global.System.Nullable(Of Date), _ ByVal atr_AvisoId As Integer, _ ByVal atr_SendungsId As Integer, _ ByVal atr_LKW As String, _ ByVal atr_dsId As Global.System.Nullable(Of Integer), _ ByVal atr_DHL_ReferenzNr As String, _ ByVal atr_location As String, _ ByVal atr_info As String, _ ByVal atr_erhalten_Art As String, _ ByVal atr_erhalenDatum As Global.System.Nullable(Of Date), _ ByVal atr_FilialenNr As Integer, _ ByVal atr_AbfertigungsNr As Integer, _ ByVal atr_anhID As Global.System.Nullable(Of Integer), _ ByVal Original_atr_id As Integer, _ ByVal Original_atr_documentNr As String, _ ByVal Original_atr_erfassungsdatum As Date, _ ByVal Original_atr_Sachbearbeiter As String, _ ByVal Original_atr_mitId As Integer, _ ByVal Original_atr_absender As String, _ ByVal Original_atr_absenderKdNr As Integer, _ ByVal Original_atr_empfaenger As String, _ ByVal Original_atr_empfaengerKdNr As Integer, _ ByVal Original_atr_austellungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_atr_AvisoId As Integer, _ ByVal Original_atr_SendungsId As Integer, _ ByVal Original_atr_LKW As String, _ ByVal Original_atr_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_atr_DHL_ReferenzNr As String, _ ByVal Original_atr_location As String, _ ByVal Original_atr_erhalten_Art As String, _ ByVal Original_atr_erhalenDatum As Global.System.Nullable(Of Date), _ ByVal Original_atr_FilialenNr As Integer, _ ByVal Original_atr_AbfertigungsNr As Integer, _ ByVal Original_atr_anhID As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(atr_documentNr, atr_erfassungsdatum, atr_Sachbearbeiter, atr_mitId, atr_absender, atr_absenderKdNr, atr_empfaenger, atr_empfaengerKdNr, atr_austellungsdatum, atr_AvisoId, atr_SendungsId, atr_LKW, atr_dsId, atr_DHL_ReferenzNr, atr_location, atr_info, atr_erhalten_Art, atr_erhalenDatum, atr_FilialenNr, atr_AbfertigungsNr, atr_anhID, Original_atr_id, Original_atr_documentNr, Original_atr_erfassungsdatum, Original_atr_Sachbearbeiter, Original_atr_mitId, Original_atr_absender, Original_atr_absenderKdNr, Original_atr_empfaenger, Original_atr_empfaengerKdNr, Original_atr_austellungsdatum, Original_atr_AvisoId, Original_atr_SendungsId, Original_atr_LKW, Original_atr_dsId, Original_atr_DHL_ReferenzNr, Original_atr_location, Original_atr_erhalten_Art, Original_atr_erhalenDatum, Original_atr_FilialenNr, Original_atr_AbfertigungsNr, Original_atr_anhID, Original_atr_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPartnersystem_ParamterTableAdapter 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 = "tblPartnersystem_Paramter" tableMapping.ColumnMappings.Add("Param_name", "Param_name") tableMapping.ColumnMappings.Add("Param_value", "Param_value") tableMapping.ColumnMappings.Add("Param_system", "Param_system") 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].[tblPartnersystem_Paramter] WHERE (([Param_name] = @Original_Pa"& _ "ram_name) AND ([Param_value] = @Original_Param_value) AND ([Param_system] = @Ori"& _ "ginal_Param_system))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Param_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Param_value", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_value", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Param_system", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_system", 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].[tblPartnersystem_Paramter] ([Param_name], [Param_value], [Para"& _ "m_system]) VALUES (@Param_name, @Param_value, @Param_system);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Param_name"& _ ", Param_value, Param_system FROM tblPartnersystem_Paramter WHERE (Param_name = @"& _ "Param_name) AND (Param_system = @Param_system) AND (Param_value = @Param_value)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Param_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Param_value", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_value", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Param_system", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_system", 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].[tblPartnersystem_Paramter] SET [Param_name] = @Param_name, [Param_v"& _ "alue] = @Param_value, [Param_system] = @Param_system WHERE (([Param_name] = @Ori"& _ "ginal_Param_name) AND ([Param_value] = @Original_Param_value) AND ([Param_system"& _ "] = @Original_Param_system));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Param_name, Param_value, Param_system FROM"& _ " tblPartnersystem_Paramter WHERE (Param_name = @Param_name) AND (Param_system = "& _ "@Param_system) AND (Param_value = @Param_value)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Param_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Param_value", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_value", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Param_system", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_system", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Param_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Param_value", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_value", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Param_system", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Param_system", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Param_name, Param_value, Param_system FROM dbo.tblPartnersystem_Paramter" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPartnersystem_ParamterDataTable) 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 VERAGDataSet.tblPartnersystem_ParamterDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPartnersystem_ParamterDataTable = New VERAGDataSet.tblPartnersystem_ParamterDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPartnersystem_ParamterDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPartnersystem_Paramter") 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_Param_name As String, ByVal Original_Param_value As String, ByVal Original_Param_system As String) As Integer If (Original_Param_name Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Param_name") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Param_name,String) End If If (Original_Param_value Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Param_value") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Param_value,String) End If If (Original_Param_system Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Param_system") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Param_system,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 Param_name As String, ByVal Param_value As String, ByVal Param_system As String) As Integer If (Param_name Is Nothing) Then Throw New Global.System.ArgumentNullException("Param_name") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Param_name,String) End If If (Param_value Is Nothing) Then Throw New Global.System.ArgumentNullException("Param_value") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Param_value,String) End If If (Param_system Is Nothing) Then Throw New Global.System.ArgumentNullException("Param_system") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Param_system,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 Param_name As String, ByVal Param_value As String, ByVal Param_system As String, ByVal Original_Param_name As String, ByVal Original_Param_value As String, ByVal Original_Param_system As String) As Integer If (Param_name Is Nothing) Then Throw New Global.System.ArgumentNullException("Param_name") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Param_name,String) End If If (Param_value Is Nothing) Then Throw New Global.System.ArgumentNullException("Param_value") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Param_value,String) End If If (Param_system Is Nothing) Then Throw New Global.System.ArgumentNullException("Param_system") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Param_system,String) End If If (Original_Param_name Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Param_name") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Param_name,String) End If If (Original_Param_value Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Param_value") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Param_value,String) End If If (Original_Param_system Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Param_system") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Param_system,String) End If 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 Original_Param_name As String, ByVal Original_Param_value As String, ByVal Original_Param_system As String) As Integer Return Me.Update(Original_Param_name, Original_Param_value, Original_Param_system, Original_Param_name, Original_Param_value, Original_Param_system) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPfadTableAdapter 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 = "tblPfad" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Verzeichnispfad", "Verzeichnispfad") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblPfad] WHERE (([ID] = @Original_ID) AND ([SSMA_TimeStamp] = "& _ "@Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblPfad] ([Verzeichnispfad]) VALUES (@Verzeichnispfad);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ "T ID, Verzeichnispfad, SSMA_TimeStamp FROM tblPfad WHERE (ID = SCOPE_IDENTITY())"& _ "" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verzeichnispfad", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verzeichnispfad", 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].[tblPfad] SET [Verzeichnispfad] = @Verzeichnispfad WHERE (([ID] = @O"& _ "riginal_ID) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Verz"& _ "eichnispfad, SSMA_TimeStamp FROM tblPfad WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verzeichnispfad", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verzeichnispfad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, Verzeichnispfad, SSMA_TimeStamp FROM dbo.tblPfad" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPfadDataTable) 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 VERAGDataSet.tblPfadDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPfadDataTable = New VERAGDataSet.tblPfadDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPfadDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPfad") 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_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Verzeichnispfad As String) As Integer If (Verzeichnispfad Is Nothing) Then Throw New Global.System.ArgumentNullException("Verzeichnispfad") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Verzeichnispfad,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 Verzeichnispfad As String, ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte, ByVal ID As Integer) As Integer If (Verzeichnispfad Is Nothing) Then Throw New Global.System.ArgumentNullException("Verzeichnispfad") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Verzeichnispfad,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_ID,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ID,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 Verzeichnispfad As String, ByVal Original_ID As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Verzeichnispfad, Original_ID, Original_SSMA_TimeStamp, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPLOSE_DetailsTableAdapter 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 = "tblPLOSE_Details" tableMapping.ColumnMappings.Add("plose_Id", "plose_Id") tableMapping.ColumnMappings.Add("plose_plInvId", "plose_plInvId") tableMapping.ColumnMappings.Add("plose_RechnungsDatum", "plose_RechnungsDatum") tableMapping.ColumnMappings.Add("plose_RechnungsNr", "plose_RechnungsNr") tableMapping.ColumnMappings.Add("plose_SupplierRechnungsDatum", "plose_SupplierRechnungsDatum") tableMapping.ColumnMappings.Add("plose_SupplierRechnungsNr", "plose_SupplierRechnungsNr") tableMapping.ColumnMappings.Add("plose_Lieferant", "plose_Lieferant") tableMapping.ColumnMappings.Add("plose_LieferantCode", "plose_LieferantCode") tableMapping.ColumnMappings.Add("plose_RechnungsJahr", "plose_RechnungsJahr") tableMapping.ColumnMappings.Add("plose_Dateiname", "plose_Dateiname") tableMapping.ColumnMappings.Add("plose_Einlesedatum", "plose_Einlesedatum") tableMapping.ColumnMappings.Add("plose_Datensatztyp", "plose_Datensatztyp") tableMapping.ColumnMappings.Add("plose_KodexMautTankstelle", "plose_KodexMautTankstelle") tableMapping.ColumnMappings.Add("plose_BeschreibungMautTankstelle", "plose_BeschreibungMautTankstelle") tableMapping.ColumnMappings.Add("plose_KodexEinfahrt", "plose_KodexEinfahrt") tableMapping.ColumnMappings.Add("plose_BeschreibungEinfahrt", "plose_BeschreibungEinfahrt") tableMapping.ColumnMappings.Add("plose_KodexAusfahrt", "plose_KodexAusfahrt") tableMapping.ColumnMappings.Add("plose_BeschreibungAusfahrt", "plose_BeschreibungAusfahrt") tableMapping.ColumnMappings.Add("plose_Kartenkodex", "plose_Kartenkodex") tableMapping.ColumnMappings.Add("plose_Kontonummer", "plose_Kontonummer") tableMapping.ColumnMappings.Add("plose_NummerKarteGeraet", "plose_NummerKarteGeraet") tableMapping.ColumnMappings.Add("plose_Kennzeichen", "plose_Kennzeichen") tableMapping.ColumnMappings.Add("plose_InterneNrFahrzeug", "plose_InterneNrFahrzeug") tableMapping.ColumnMappings.Add("plose_POLSEKundennummer", "plose_POLSEKundennummer") tableMapping.ColumnMappings.Add("plose_Firmenname", "plose_Firmenname") tableMapping.ColumnMappings.Add("plose_DatumTransaktion", "plose_DatumTransaktion") tableMapping.ColumnMappings.Add("plose_Produktbeschreibung", "plose_Produktbeschreibung") tableMapping.ColumnMappings.Add("plose_Menge", "plose_Menge") tableMapping.ColumnMappings.Add("plose_Preis", "plose_Preis") tableMapping.ColumnMappings.Add("Einheitsrabatt", "Einheitsrabatt") tableMapping.ColumnMappings.Add("plose_NettobetragTransaktion", "plose_NettobetragTransaktion") tableMapping.ColumnMappings.Add("plose_MWSTBetrag", "plose_MWSTBetrag") tableMapping.ColumnMappings.Add("plose_BruttobetragTransaktion", "plose_BruttobetragTransaktion") tableMapping.ColumnMappings.Add("plose_NettobetragWaehrungAbbuchung", "plose_NettobetragWaehrungAbbuchung") tableMapping.ColumnMappings.Add("plose_MWSTBetragWaehrungAbbuchung", "plose_MWSTBetragWaehrungAbbuchung") tableMapping.ColumnMappings.Add("plose_BruttobetragWaehrungAbbuchung", "plose_BruttobetragWaehrungAbbuchung") tableMapping.ColumnMappings.Add("plose_WaehrungLandDiesntleistung", "plose_WaehrungLandDiesntleistung") tableMapping.ColumnMappings.Add("plose_WaehrungAbbuchung", "plose_WaehrungAbbuchung") tableMapping.ColumnMappings.Add("plose_DokumentNrQuittungUhrzeit", "plose_DokumentNrQuittungUhrzeit") tableMapping.ColumnMappings.Add("plose_ArtTransaktion", "plose_ArtTransaktion") tableMapping.ColumnMappings.Add("plose_Fahrzeugklasse", "plose_Fahrzeugklasse") tableMapping.ColumnMappings.Add("plose_KlassenidentifikationEURO", "plose_KlassenidentifikationEURO") tableMapping.ColumnMappings.Add("plose_ProduktbeschreibungShort", "plose_ProduktbeschreibungShort") tableMapping.ColumnMappings.Add("plose_TransaktionUhrzeit", "plose_TransaktionUhrzeit") tableMapping.ColumnMappings.Add("plose_Geraetetyp", "plose_Geraetetyp") tableMapping.ColumnMappings.Add("plose_ProduktCode", "plose_ProduktCode") tableMapping.ColumnMappings.Add("plose_ReferenzenBuchungMaut", "plose_ReferenzenBuchungMaut") tableMapping.ColumnMappings.Add("plose_Fakturiert", "plose_Fakturiert") tableMapping.ColumnMappings.Add("plose_FakturiertDatum", "plose_FakturiertDatum") tableMapping.ColumnMappings.Add("plose_Archiv", "plose_Archiv") tableMapping.ColumnMappings.Add("plose_ArchiviertDatum", "plose_ArchiviertDatum") tableMapping.ColumnMappings.Add("plose_tstmp", "plose_tstmp") 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].[tblPLOSE_Details] WHERE (([plose_Id] = @Original_plose_Id) AND"& _ " ((@IsNull_plose_plInvId = 1 AND [plose_plInvId] IS NULL) OR ([plose_plInvId] = "& _ "@Original_plose_plInvId)) AND ((@IsNull_plose_RechnungsDatum = 1 AND [plose_Rech"& _ "nungsDatum] IS NULL) OR ([plose_RechnungsDatum] = @Original_plose_RechnungsDatum"& _ ")) AND ((@IsNull_plose_RechnungsNr = 1 AND [plose_RechnungsNr] IS NULL) OR ([plo"& _ "se_RechnungsNr] = @Original_plose_RechnungsNr)) AND ((@IsNull_plose_SupplierRech"& _ "nungsDatum = 1 AND [plose_SupplierRechnungsDatum] IS NULL) OR ([plose_SupplierRe"& _ "chnungsDatum] = @Original_plose_SupplierRechnungsDatum)) AND ((@IsNull_plose_Sup"& _ "plierRechnungsNr = 1 AND [plose_SupplierRechnungsNr] IS NULL) OR ([plose_Supplie"& _ "rRechnungsNr] = @Original_plose_SupplierRechnungsNr)) AND ((@IsNull_plose_Liefer"& _ "ant = 1 AND [plose_Lieferant] IS NULL) OR ([plose_Lieferant] = @Original_plose_L"& _ "ieferant)) AND ((@IsNull_plose_LieferantCode = 1 AND [plose_LieferantCode] IS NU"& _ "LL) OR ([plose_LieferantCode] = @Original_plose_LieferantCode)) AND ((@IsNull_pl"& _ "ose_RechnungsJahr = 1 AND [plose_RechnungsJahr] IS NULL) OR ([plose_RechnungsJah"& _ "r] = @Original_plose_RechnungsJahr)) AND ((@IsNull_plose_Dateiname = 1 AND [plos"& _ "e_Dateiname] IS NULL) OR ([plose_Dateiname] = @Original_plose_Dateiname)) AND (("& _ "@IsNull_plose_Einlesedatum = 1 AND [plose_Einlesedatum] IS NULL) OR ([plose_Einl"& _ "esedatum] = @Original_plose_Einlesedatum)) AND ((@IsNull_plose_Datensatztyp = 1 "& _ "AND [plose_Datensatztyp] IS NULL) OR ([plose_Datensatztyp] = @Original_plose_Dat"& _ "ensatztyp)) AND ((@IsNull_plose_KodexMautTankstelle = 1 AND [plose_KodexMautTank"& _ "stelle] IS NULL) OR ([plose_KodexMautTankstelle] = @Original_plose_KodexMautTank"& _ "stelle)) AND ((@IsNull_plose_BeschreibungMautTankstelle = 1 AND [plose_Beschreib"& _ "ungMautTankstelle] IS NULL) OR ([plose_BeschreibungMautTankstelle] = @Original_p"& _ "lose_BeschreibungMautTankstelle)) AND ((@IsNull_plose_KodexEinfahrt = 1 AND [plo"& _ "se_KodexEinfahrt] IS NULL) OR ([plose_KodexEinfahrt] = @Original_plose_KodexEinf"& _ "ahrt)) AND ((@IsNull_plose_BeschreibungEinfahrt = 1 AND [plose_BeschreibungEinfa"& _ "hrt] IS NULL) OR ([plose_BeschreibungEinfahrt] = @Original_plose_BeschreibungEin"& _ "fahrt)) AND ((@IsNull_plose_KodexAusfahrt = 1 AND [plose_KodexAusfahrt] IS NULL)"& _ " OR ([plose_KodexAusfahrt] = @Original_plose_KodexAusfahrt)) AND ((@IsNull_plose"& _ "_BeschreibungAusfahrt = 1 AND [plose_BeschreibungAusfahrt] IS NULL) OR ([plose_B"& _ "eschreibungAusfahrt] = @Original_plose_BeschreibungAusfahrt)) AND ((@IsNull_plos"& _ "e_Kartenkodex = 1 AND [plose_Kartenkodex] IS NULL) OR ([plose_Kartenkodex] = @Or"& _ "iginal_plose_Kartenkodex)) AND ((@IsNull_plose_Kontonummer = 1 AND [plose_Konton"& _ "ummer] IS NULL) OR ([plose_Kontonummer] = @Original_plose_Kontonummer)) AND ((@I"& _ "sNull_plose_NummerKarteGeraet = 1 AND [plose_NummerKarteGeraet] IS NULL) OR ([pl"& _ "ose_NummerKarteGeraet] = @Original_plose_NummerKarteGeraet)) AND ((@IsNull_plose"& _ "_Kennzeichen = 1 AND [plose_Kennzeichen] IS NULL) OR ([plose_Kennzeichen] = @Ori"& _ "ginal_plose_Kennzeichen)) AND ((@IsNull_plose_InterneNrFahrzeug = 1 AND [plose_I"& _ "nterneNrFahrzeug] IS NULL) OR ([plose_InterneNrFahrzeug] = @Original_plose_Inter"& _ "neNrFahrzeug)) AND ((@IsNull_plose_POLSEKundennummer = 1 AND [plose_POLSEKundenn"& _ "ummer] IS NULL) OR ([plose_POLSEKundennummer] = @Original_plose_POLSEKundennumme"& _ "r)) AND ((@IsNull_plose_Firmenname = 1 AND [plose_Firmenname] IS NULL) OR ([plos"& _ "e_Firmenname] = @Original_plose_Firmenname)) AND ((@IsNull_plose_DatumTransaktio"& _ "n = 1 AND [plose_DatumTransaktion] IS NULL) OR ([plose_DatumTransaktion] = @Orig"& _ "inal_plose_DatumTransaktion)) AND ((@IsNull_plose_Produktbeschreibung = 1 AND [p"& _ "lose_Produktbeschreibung] IS NULL) OR ([plose_Produktbeschreibung] = @Original_p"& _ "lose_Produktbeschreibung)) AND ((@IsNull_plose_Menge = 1 AND [plose_Menge] IS NU"& _ "LL) OR ([plose_Menge] = @Original_plose_Menge)) AND ((@IsNull_plose_Preis = 1 AN"& _ "D [plose_Preis] IS NULL) OR ([plose_Preis] = @Original_plose_Preis)) AND ((@IsNu"& _ "ll_Einheitsrabatt = 1 AND [Einheitsrabatt] IS NULL) OR ([Einheitsrabatt] = @Orig"& _ "inal_Einheitsrabatt)) AND ((@IsNull_plose_NettobetragTransaktion = 1 AND [plose_"& _ "NettobetragTransaktion] IS NULL) OR ([plose_NettobetragTransaktion] = @Original_"& _ "plose_NettobetragTransaktion)) AND ((@IsNull_plose_MWSTBetrag = 1 AND [plose_MWS"& _ "TBetrag] IS NULL) OR ([plose_MWSTBetrag] = @Original_plose_MWSTBetrag)) AND ((@I"& _ "sNull_plose_BruttobetragTransaktion = 1 AND [plose_BruttobetragTransaktion] IS N"& _ "ULL) OR ([plose_BruttobetragTransaktion] = @Original_plose_BruttobetragTransakti"& _ "on)) AND ((@IsNull_plose_NettobetragWaehrungAbbuchung = 1 AND [plose_Nettobetrag"& _ "WaehrungAbbuchung] IS NULL) OR ([plose_NettobetragWaehrungAbbuchung] = @Original"& _ "_plose_NettobetragWaehrungAbbuchung)) AND ((@IsNull_plose_MWSTBetragWaehrungAbbu"& _ "chung = 1 AND [plose_MWSTBetragWaehrungAbbuchung] IS NULL) OR ([plose_MWSTBetrag"& _ "WaehrungAbbuchung] = @Original_plose_MWSTBetragWaehrungAbbuchung)) AND ((@IsNull"& _ "_plose_BruttobetragWaehrungAbbuchung = 1 AND [plose_BruttobetragWaehrungAbbuchun"& _ "g] IS NULL) OR ([plose_BruttobetragWaehrungAbbuchung] = @Original_plose_Bruttobe"& _ "tragWaehrungAbbuchung)) AND ((@IsNull_plose_WaehrungLandDiesntleistung = 1 AND ["& _ "plose_WaehrungLandDiesntleistung] IS NULL) OR ([plose_WaehrungLandDiesntleistung"& _ "] = @Original_plose_WaehrungLandDiesntleistung)) AND ((@IsNull_plose_WaehrungAbb"& _ "uchung = 1 AND [plose_WaehrungAbbuchung] IS NULL) OR ([plose_WaehrungAbbuchung] "& _ "= @Original_plose_WaehrungAbbuchung)) AND ((@IsNull_plose_DokumentNrQuittungUhrz"& _ "eit = 1 AND [plose_DokumentNrQuittungUhrzeit] IS NULL) OR ([plose_DokumentNrQuit"& _ "tungUhrzeit] = @Original_plose_DokumentNrQuittungUhrzeit)) AND ((@IsNull_plose_A"& _ "rtTransaktion = 1 AND [plose_ArtTransaktion] IS NULL) OR ([plose_ArtTransaktion]"& _ " = @Original_plose_ArtTransaktion)) AND ((@IsNull_plose_Fahrzeugklasse = 1 AND ["& _ "plose_Fahrzeugklasse] IS NULL) OR ([plose_Fahrzeugklasse] = @Original_plose_Fahr"& _ "zeugklasse)) AND ((@IsNull_plose_KlassenidentifikationEURO = 1 AND [plose_Klasse"& _ "nidentifikationEURO] IS NULL) OR ([plose_KlassenidentifikationEURO] = @Original_"& _ "plose_KlassenidentifikationEURO)) AND ((@IsNull_plose_ProduktbeschreibungShort ="& _ " 1 AND [plose_ProduktbeschreibungShort] IS NULL) OR ([plose_ProduktbeschreibungS"& _ "hort] = @Original_plose_ProduktbeschreibungShort)) AND ((@IsNull_plose_Transakti"& _ "onUhrzeit = 1 AND [plose_TransaktionUhrzeit] IS NULL) OR ([plose_TransaktionUhrz"& _ "eit] = @Original_plose_TransaktionUhrzeit)) AND ((@IsNull_plose_Geraetetyp = 1 A"& _ "ND [plose_Geraetetyp] IS NULL) OR ([plose_Geraetetyp] = @Original_plose_Geraetet"& _ "yp)) AND ((@IsNull_plose_ProduktCode = 1 AND [plose_ProduktCode] IS NULL) OR ([p"& _ "lose_ProduktCode] = @Original_plose_ProduktCode)) AND ((@IsNull_plose_Referenzen"& _ "BuchungMaut = 1 AND [plose_ReferenzenBuchungMaut] IS NULL) OR ([plose_Referenzen"& _ "BuchungMaut] = @Original_plose_ReferenzenBuchungMaut)) AND ([plose_Fakturiert] ="& _ " @Original_plose_Fakturiert) AND ((@IsNull_plose_FakturiertDatum = 1 AND [plose_"& _ "FakturiertDatum] IS NULL) OR ([plose_FakturiertDatum] = @Original_plose_Fakturie"& _ "rtDatum)) AND ([plose_Archiv] = @Original_plose_Archiv) AND ((@IsNull_plose_Arch"& _ "iviertDatum = 1 AND [plose_ArchiviertDatum] IS NULL) OR ([plose_ArchiviertDatum]"& _ " = @Original_plose_ArchiviertDatum)) AND ((@IsNull_plose_tstmp = 1 AND [plose_ts"& _ "tmp] IS NULL) OR ([plose_tstmp] = @Original_plose_tstmp)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_plInvId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_plInvId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_plInvId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_plInvId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_RechnungsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_RechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_RechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_RechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_SupplierRechnungsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_SupplierRechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_SupplierRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_SupplierRechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Lieferant", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Lieferant", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Lieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Lieferant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_LieferantCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_LieferantCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_LieferantCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_LieferantCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsJahr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsJahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Dateiname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Dateiname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Dateiname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Dateiname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Einlesedatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Einlesedatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Einlesedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Einlesedatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Datensatztyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Datensatztyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Datensatztyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Datensatztyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_KodexMautTankstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexMautTankstelle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_KodexMautTankstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexMautTankstelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_BeschreibungMautTankstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungMautTankstelle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_BeschreibungMautTankstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungMautTankstelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_KodexEinfahrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexEinfahrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_KodexEinfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexEinfahrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_BeschreibungEinfahrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungEinfahrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_BeschreibungEinfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungEinfahrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_KodexAusfahrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexAusfahrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_KodexAusfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexAusfahrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_BeschreibungAusfahrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungAusfahrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_BeschreibungAusfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungAusfahrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Kartenkodex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kartenkodex", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Kartenkodex", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kartenkodex", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Kontonummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kontonummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Kontonummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kontonummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_NummerKarteGeraet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_NummerKarteGeraet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_NummerKarteGeraet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_NummerKarteGeraet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Kennzeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kennzeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Kennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_InterneNrFahrzeug", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_InterneNrFahrzeug", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_InterneNrFahrzeug", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_InterneNrFahrzeug", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_POLSEKundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_POLSEKundennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_POLSEKundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_POLSEKundennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Firmenname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Firmenname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Firmenname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_DatumTransaktion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DatumTransaktion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_DatumTransaktion", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DatumTransaktion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Produktbeschreibung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Produktbeschreibung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Produktbeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Produktbeschreibung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Menge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Menge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Menge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "plose_Menge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Preis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Preis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Preis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 3, "plose_Preis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Einheitsrabatt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einheitsrabatt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Einheitsrabatt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einheitsrabatt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_NettobetragTransaktion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_NettobetragTransaktion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_NettobetragTransaktion", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_NettobetragTransaktion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_MWSTBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_MWSTBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_MWSTBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_MWSTBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_BruttobetragTransaktion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BruttobetragTransaktion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_BruttobetragTransaktion", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_BruttobetragTransaktion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_NettobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_NettobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_NettobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_NettobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_BruttobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BruttobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_BruttobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_BruttobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_WaehrungLandDiesntleistung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungLandDiesntleistung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_WaehrungLandDiesntleistung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungLandDiesntleistung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_WaehrungAbbuchung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_WaehrungAbbuchung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_DokumentNrQuittungUhrzeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DokumentNrQuittungUhrzeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_DokumentNrQuittungUhrzeit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DokumentNrQuittungUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_ArtTransaktion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArtTransaktion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_ArtTransaktion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArtTransaktion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Fahrzeugklasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Fahrzeugklasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Fahrzeugklasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Fahrzeugklasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_KlassenidentifikationEURO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KlassenidentifikationEURO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_KlassenidentifikationEURO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KlassenidentifikationEURO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_ProduktbeschreibungShort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktbeschreibungShort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_ProduktbeschreibungShort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktbeschreibungShort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_TransaktionUhrzeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_TransaktionUhrzeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_TransaktionUhrzeit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_TransaktionUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Geraetetyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Geraetetyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Geraetetyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Geraetetyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_ProduktCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_ProduktCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_ReferenzenBuchungMaut", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ReferenzenBuchungMaut", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_ReferenzenBuchungMaut", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ReferenzenBuchungMaut", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Fakturiert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Fakturiert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_FakturiertDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_FakturiertDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_FakturiertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_FakturiertDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Archiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_ArchiviertDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArchiviertDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_ArchiviertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArchiviertDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_tstmp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_tstmp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_tstmp", 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].[tblPLOSE_Details] ([plose_plInvId], [plose_RechnungsDatum], [p"& _ "lose_RechnungsNr], [plose_SupplierRechnungsDatum], [plose_SupplierRechnungsNr], "& _ "[plose_Lieferant], [plose_LieferantCode], [plose_RechnungsJahr], [plose_Dateinam"& _ "e], [plose_Einlesedatum], [plose_Datensatztyp], [plose_KodexMautTankstelle], [pl"& _ "ose_BeschreibungMautTankstelle], [plose_KodexEinfahrt], [plose_BeschreibungEinfa"& _ "hrt], [plose_KodexAusfahrt], [plose_BeschreibungAusfahrt], [plose_Kartenkodex], "& _ "[plose_Kontonummer], [plose_NummerKarteGeraet], [plose_Kennzeichen], [plose_Inte"& _ "rneNrFahrzeug], [plose_POLSEKundennummer], [plose_Firmenname], [plose_DatumTrans"& _ "aktion], [plose_Produktbeschreibung], [plose_Menge], [plose_Preis], [Einheitsrab"& _ "att], [plose_NettobetragTransaktion], [plose_MWSTBetrag], [plose_BruttobetragTra"& _ "nsaktion], [plose_NettobetragWaehrungAbbuchung], [plose_MWSTBetragWaehrungAbbuch"& _ "ung], [plose_BruttobetragWaehrungAbbuchung], [plose_WaehrungLandDiesntleistung],"& _ " [plose_WaehrungAbbuchung], [plose_DokumentNrQuittungUhrzeit], [plose_ArtTransak"& _ "tion], [plose_Fahrzeugklasse], [plose_KlassenidentifikationEURO], [plose_Produkt"& _ "beschreibungShort], [plose_TransaktionUhrzeit], [plose_Geraetetyp], [plose_Produ"& _ "ktCode], [plose_ReferenzenBuchungMaut], [plose_Fakturiert], [plose_FakturiertDat"& _ "um], [plose_Archiv], [plose_ArchiviertDatum], [plose_tstmp]) VALUES (@plose_plIn"& _ "vId, @plose_RechnungsDatum, @plose_RechnungsNr, @plose_SupplierRechnungsDatum, @"& _ "plose_SupplierRechnungsNr, @plose_Lieferant, @plose_LieferantCode, @plose_Rechnu"& _ "ngsJahr, @plose_Dateiname, @plose_Einlesedatum, @plose_Datensatztyp, @plose_Kode"& _ "xMautTankstelle, @plose_BeschreibungMautTankstelle, @plose_KodexEinfahrt, @plose"& _ "_BeschreibungEinfahrt, @plose_KodexAusfahrt, @plose_BeschreibungAusfahrt, @plose"& _ "_Kartenkodex, @plose_Kontonummer, @plose_NummerKarteGeraet, @plose_Kennzeichen, "& _ "@plose_InterneNrFahrzeug, @plose_POLSEKundennummer, @plose_Firmenname, @plose_Da"& _ "tumTransaktion, @plose_Produktbeschreibung, @plose_Menge, @plose_Preis, @Einheit"& _ "srabatt, @plose_NettobetragTransaktion, @plose_MWSTBetrag, @plose_BruttobetragTr"& _ "ansaktion, @plose_NettobetragWaehrungAbbuchung, @plose_MWSTBetragWaehrungAbbuchu"& _ "ng, @plose_BruttobetragWaehrungAbbuchung, @plose_WaehrungLandDiesntleistung, @pl"& _ "ose_WaehrungAbbuchung, @plose_DokumentNrQuittungUhrzeit, @plose_ArtTransaktion, "& _ "@plose_Fahrzeugklasse, @plose_KlassenidentifikationEURO, @plose_Produktbeschreib"& _ "ungShort, @plose_TransaktionUhrzeit, @plose_Geraetetyp, @plose_ProduktCode, @plo"& _ "se_ReferenzenBuchungMaut, @plose_Fakturiert, @plose_FakturiertDatum, @plose_Arch"& _ "iv, @plose_ArchiviertDatum, @plose_tstmp);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT plose_Id, plose_plInvId, plos"& _ "e_RechnungsDatum, plose_RechnungsNr, plose_SupplierRechnungsDatum, plose_Supplie"& _ "rRechnungsNr, plose_Lieferant, plose_LieferantCode, plose_RechnungsJahr, plose_D"& _ "ateiname, plose_Einlesedatum, plose_Datensatztyp, plose_KodexMautTankstelle, plo"& _ "se_BeschreibungMautTankstelle, plose_KodexEinfahrt, plose_BeschreibungEinfahrt, "& _ "plose_KodexAusfahrt, plose_BeschreibungAusfahrt, plose_Kartenkodex, plose_Konton"& _ "ummer, plose_NummerKarteGeraet, plose_Kennzeichen, plose_InterneNrFahrzeug, plos"& _ "e_POLSEKundennummer, plose_Firmenname, plose_DatumTransaktion, plose_Produktbesc"& _ "hreibung, plose_Menge, plose_Preis, Einheitsrabatt, plose_NettobetragTransaktion"& _ ", plose_MWSTBetrag, plose_BruttobetragTransaktion, plose_NettobetragWaehrungAbbu"& _ "chung, plose_MWSTBetragWaehrungAbbuchung, plose_BruttobetragWaehrungAbbuchung, p"& _ "lose_WaehrungLandDiesntleistung, plose_WaehrungAbbuchung, plose_DokumentNrQuittu"& _ "ngUhrzeit, plose_ArtTransaktion, plose_Fahrzeugklasse, plose_Klassenidentifikati"& _ "onEURO, plose_ProduktbeschreibungShort, plose_TransaktionUhrzeit, plose_Geraetet"& _ "yp, plose_ProduktCode, plose_ReferenzenBuchungMaut, plose_Fakturiert, plose_Fakt"& _ "uriertDatum, plose_Archiv, plose_ArchiviertDatum, plose_tstmp FROM tblPLOSE_Deta"& _ "ils WHERE (plose_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_plInvId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_plInvId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_RechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_RechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_SupplierRechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_SupplierRechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Lieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Lieferant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_LieferantCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_LieferantCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsJahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Dateiname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Einlesedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Einlesedatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Datensatztyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Datensatztyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_KodexMautTankstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexMautTankstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_BeschreibungMautTankstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungMautTankstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_KodexEinfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexEinfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_BeschreibungEinfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungEinfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_KodexAusfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexAusfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_BeschreibungAusfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungAusfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Kartenkodex", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kartenkodex", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Kontonummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kontonummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_NummerKarteGeraet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_NummerKarteGeraet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Kennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_InterneNrFahrzeug", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_InterneNrFahrzeug", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_POLSEKundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_POLSEKundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Firmenname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_DatumTransaktion", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DatumTransaktion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Produktbeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Produktbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Menge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "plose_Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Preis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 3, "plose_Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einheitsrabatt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einheitsrabatt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_NettobetragTransaktion", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_NettobetragTransaktion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_MWSTBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_MWSTBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_BruttobetragTransaktion", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_BruttobetragTransaktion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_NettobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_NettobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_BruttobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_BruttobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_WaehrungLandDiesntleistung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungLandDiesntleistung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_WaehrungAbbuchung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungAbbuchung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_DokumentNrQuittungUhrzeit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DokumentNrQuittungUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_ArtTransaktion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArtTransaktion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Fahrzeugklasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Fahrzeugklasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_KlassenidentifikationEURO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KlassenidentifikationEURO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_ProduktbeschreibungShort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktbeschreibungShort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_TransaktionUhrzeit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_TransaktionUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Geraetetyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Geraetetyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_ProduktCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_ReferenzenBuchungMaut", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ReferenzenBuchungMaut", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Fakturiert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Fakturiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_FakturiertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_FakturiertDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Archiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_ArchiviertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArchiviertDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_tstmp", 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].[tblPLOSE_Details] SET [plose_plInvId] = @plose_plInvId, [plose_Rech"& _ "nungsDatum] = @plose_RechnungsDatum, [plose_RechnungsNr] = @plose_RechnungsNr, ["& _ "plose_SupplierRechnungsDatum] = @plose_SupplierRechnungsDatum, [plose_SupplierRe"& _ "chnungsNr] = @plose_SupplierRechnungsNr, [plose_Lieferant] = @plose_Lieferant, ["& _ "plose_LieferantCode] = @plose_LieferantCode, [plose_RechnungsJahr] = @plose_Rech"& _ "nungsJahr, [plose_Dateiname] = @plose_Dateiname, [plose_Einlesedatum] = @plose_E"& _ "inlesedatum, [plose_Datensatztyp] = @plose_Datensatztyp, [plose_KodexMautTankste"& _ "lle] = @plose_KodexMautTankstelle, [plose_BeschreibungMautTankstelle] = @plose_B"& _ "eschreibungMautTankstelle, [plose_KodexEinfahrt] = @plose_KodexEinfahrt, [plose_"& _ "BeschreibungEinfahrt] = @plose_BeschreibungEinfahrt, [plose_KodexAusfahrt] = @pl"& _ "ose_KodexAusfahrt, [plose_BeschreibungAusfahrt] = @plose_BeschreibungAusfahrt, ["& _ "plose_Kartenkodex] = @plose_Kartenkodex, [plose_Kontonummer] = @plose_Kontonumme"& _ "r, [plose_NummerKarteGeraet] = @plose_NummerKarteGeraet, [plose_Kennzeichen] = @"& _ "plose_Kennzeichen, [plose_InterneNrFahrzeug] = @plose_InterneNrFahrzeug, [plose_"& _ "POLSEKundennummer] = @plose_POLSEKundennummer, [plose_Firmenname] = @plose_Firme"& _ "nname, [plose_DatumTransaktion] = @plose_DatumTransaktion, [plose_Produktbeschre"& _ "ibung] = @plose_Produktbeschreibung, [plose_Menge] = @plose_Menge, [plose_Preis]"& _ " = @plose_Preis, [Einheitsrabatt] = @Einheitsrabatt, [plose_NettobetragTransakti"& _ "on] = @plose_NettobetragTransaktion, [plose_MWSTBetrag] = @plose_MWSTBetrag, [pl"& _ "ose_BruttobetragTransaktion] = @plose_BruttobetragTransaktion, [plose_Nettobetra"& _ "gWaehrungAbbuchung] = @plose_NettobetragWaehrungAbbuchung, [plose_MWSTBetragWaeh"& _ "rungAbbuchung] = @plose_MWSTBetragWaehrungAbbuchung, [plose_BruttobetragWaehrung"& _ "Abbuchung] = @plose_BruttobetragWaehrungAbbuchung, [plose_WaehrungLandDiesntleis"& _ "tung] = @plose_WaehrungLandDiesntleistung, [plose_WaehrungAbbuchung] = @plose_Wa"& _ "ehrungAbbuchung, [plose_DokumentNrQuittungUhrzeit] = @plose_DokumentNrQuittungUh"& _ "rzeit, [plose_ArtTransaktion] = @plose_ArtTransaktion, [plose_Fahrzeugklasse] = "& _ "@plose_Fahrzeugklasse, [plose_KlassenidentifikationEURO] = @plose_Klassenidentif"& _ "ikationEURO, [plose_ProduktbeschreibungShort] = @plose_ProduktbeschreibungShort,"& _ " [plose_TransaktionUhrzeit] = @plose_TransaktionUhrzeit, [plose_Geraetetyp] = @p"& _ "lose_Geraetetyp, [plose_ProduktCode] = @plose_ProduktCode, [plose_ReferenzenBuch"& _ "ungMaut] = @plose_ReferenzenBuchungMaut, [plose_Fakturiert] = @plose_Fakturiert,"& _ " [plose_FakturiertDatum] = @plose_FakturiertDatum, [plose_Archiv] = @plose_Archi"& _ "v, [plose_ArchiviertDatum] = @plose_ArchiviertDatum, [plose_tstmp] = @plose_tstm"& _ "p WHERE (([plose_Id] = @Original_plose_Id) AND ((@IsNull_plose_plInvId = 1 AND ["& _ "plose_plInvId] IS NULL) OR ([plose_plInvId] = @Original_plose_plInvId)) AND ((@I"& _ "sNull_plose_RechnungsDatum = 1 AND [plose_RechnungsDatum] IS NULL) OR ([plose_Re"& _ "chnungsDatum] = @Original_plose_RechnungsDatum)) AND ((@IsNull_plose_RechnungsNr"& _ " = 1 AND [plose_RechnungsNr] IS NULL) OR ([plose_RechnungsNr] = @Original_plose_"& _ "RechnungsNr)) AND ((@IsNull_plose_SupplierRechnungsDatum = 1 AND [plose_Supplier"& _ "RechnungsDatum] IS NULL) OR ([plose_SupplierRechnungsDatum] = @Original_plose_Su"& _ "pplierRechnungsDatum)) AND ((@IsNull_plose_SupplierRechnungsNr = 1 AND [plose_Su"& _ "pplierRechnungsNr] IS NULL) OR ([plose_SupplierRechnungsNr] = @Original_plose_Su"& _ "pplierRechnungsNr)) AND ((@IsNull_plose_Lieferant = 1 AND [plose_Lieferant] IS N"& _ "ULL) OR ([plose_Lieferant] = @Original_plose_Lieferant)) AND ((@IsNull_plose_Lie"& _ "ferantCode = 1 AND [plose_LieferantCode] IS NULL) OR ([plose_LieferantCode] = @O"& _ "riginal_plose_LieferantCode)) AND ((@IsNull_plose_RechnungsJahr = 1 AND [plose_R"& _ "echnungsJahr] IS NULL) OR ([plose_RechnungsJahr] = @Original_plose_RechnungsJahr"& _ ")) AND ((@IsNull_plose_Dateiname = 1 AND [plose_Dateiname] IS NULL) OR ([plose_D"& _ "ateiname] = @Original_plose_Dateiname)) AND ((@IsNull_plose_Einlesedatum = 1 AND"& _ " [plose_Einlesedatum] IS NULL) OR ([plose_Einlesedatum] = @Original_plose_Einles"& _ "edatum)) AND ((@IsNull_plose_Datensatztyp = 1 AND [plose_Datensatztyp] IS NULL) "& _ "OR ([plose_Datensatztyp] = @Original_plose_Datensatztyp)) AND ((@IsNull_plose_Ko"& _ "dexMautTankstelle = 1 AND [plose_KodexMautTankstelle] IS NULL) OR ([plose_KodexM"& _ "autTankstelle] = @Original_plose_KodexMautTankstelle)) AND ((@IsNull_plose_Besch"& _ "reibungMautTankstelle = 1 AND [plose_BeschreibungMautTankstelle] IS NULL) OR ([p"& _ "lose_BeschreibungMautTankstelle] = @Original_plose_BeschreibungMautTankstelle)) "& _ "AND ((@IsNull_plose_KodexEinfahrt = 1 AND [plose_KodexEinfahrt] IS NULL) OR ([pl"& _ "ose_KodexEinfahrt] = @Original_plose_KodexEinfahrt)) AND ((@IsNull_plose_Beschre"& _ "ibungEinfahrt = 1 AND [plose_BeschreibungEinfahrt] IS NULL) OR ([plose_Beschreib"& _ "ungEinfahrt] = @Original_plose_BeschreibungEinfahrt)) AND ((@IsNull_plose_KodexA"& _ "usfahrt = 1 AND [plose_KodexAusfahrt] IS NULL) OR ([plose_KodexAusfahrt] = @Orig"& _ "inal_plose_KodexAusfahrt)) AND ((@IsNull_plose_BeschreibungAusfahrt = 1 AND [plo"& _ "se_BeschreibungAusfahrt] IS NULL) OR ([plose_BeschreibungAusfahrt] = @Original_p"& _ "lose_BeschreibungAusfahrt)) AND ((@IsNull_plose_Kartenkodex = 1 AND [plose_Karte"& _ "nkodex] IS NULL) OR ([plose_Kartenkodex] = @Original_plose_Kartenkodex)) AND ((@"& _ "IsNull_plose_Kontonummer = 1 AND [plose_Kontonummer] IS NULL) OR ([plose_Kontonu"& _ "mmer] = @Original_plose_Kontonummer)) AND ((@IsNull_plose_NummerKarteGeraet = 1 "& _ "AND [plose_NummerKarteGeraet] IS NULL) OR ([plose_NummerKarteGeraet] = @Original"& _ "_plose_NummerKarteGeraet)) AND ((@IsNull_plose_Kennzeichen = 1 AND [plose_Kennze"& _ "ichen] IS NULL) OR ([plose_Kennzeichen] = @Original_plose_Kennzeichen)) AND ((@I"& _ "sNull_plose_InterneNrFahrzeug = 1 AND [plose_InterneNrFahrzeug] IS NULL) OR ([pl"& _ "ose_InterneNrFahrzeug] = @Original_plose_InterneNrFahrzeug)) AND ((@IsNull_plose"& _ "_POLSEKundennummer = 1 AND [plose_POLSEKundennummer] IS NULL) OR ([plose_POLSEKu"& _ "ndennummer] = @Original_plose_POLSEKundennummer)) AND ((@IsNull_plose_Firmenname"& _ " = 1 AND [plose_Firmenname] IS NULL) OR ([plose_Firmenname] = @Original_plose_Fi"& _ "rmenname)) AND ((@IsNull_plose_DatumTransaktion = 1 AND [plose_DatumTransaktion]"& _ " IS NULL) OR ([plose_DatumTransaktion] = @Original_plose_DatumTransaktion)) AND "& _ "((@IsNull_plose_Produktbeschreibung = 1 AND [plose_Produktbeschreibung] IS NULL)"& _ " OR ([plose_Produktbeschreibung] = @Original_plose_Produktbeschreibung)) AND ((@"& _ "IsNull_plose_Menge = 1 AND [plose_Menge] IS NULL) OR ([plose_Menge] = @Original_"& _ "plose_Menge)) AND ((@IsNull_plose_Preis = 1 AND [plose_Preis] IS NULL) OR ([plos"& _ "e_Preis] = @Original_plose_Preis)) AND ((@IsNull_Einheitsrabatt = 1 AND [Einheit"& _ "srabatt] IS NULL) OR ([Einheitsrabatt] = @Original_Einheitsrabatt)) AND ((@IsNul"& _ "l_plose_NettobetragTransaktion = 1 AND [plose_NettobetragTransaktion] IS NULL) O"& _ "R ([plose_NettobetragTransaktion] = @Original_plose_NettobetragTransaktion)) AND"& _ " ((@IsNull_plose_MWSTBetrag = 1 AND [plose_MWSTBetrag] IS NULL) OR ([plose_MWSTB"& _ "etrag] = @Original_plose_MWSTBetrag)) AND ((@IsNull_plose_BruttobetragTransaktio"& _ "n = 1 AND [plose_BruttobetragTransaktion] IS NULL) OR ([plose_BruttobetragTransa"& _ "ktion] = @Original_plose_BruttobetragTransaktion)) AND ((@IsNull_plose_Nettobetr"& _ "agWaehrungAbbuchung = 1 AND [plose_NettobetragWaehrungAbbuchung] IS NULL) OR ([p"& _ "lose_NettobetragWaehrungAbbuchung] = @Original_plose_NettobetragWaehrungAbbuchun"& _ "g)) AND ((@IsNull_plose_MWSTBetragWaehrungAbbuchung = 1 AND [plose_MWSTBetragWae"& _ "hrungAbbuchung] IS NULL) OR ([plose_MWSTBetragWaehrungAbbuchung] = @Original_plo"& _ "se_MWSTBetragWaehrungAbbuchung)) AND ((@IsNull_plose_BruttobetragWaehrungAbbuchu"& _ "ng = 1 AND [plose_BruttobetragWaehrungAbbuchung] IS NULL) OR ([plose_Bruttobetra"& _ "gWaehrungAbbuchung] = @Original_plose_BruttobetragWaehrungAbbuchung)) AND ((@IsN"& _ "ull_plose_WaehrungLandDiesntleistung = 1 AND [plose_WaehrungLandDiesntleistung] "& _ "IS NULL) OR ([plose_WaehrungLandDiesntleistung] = @Original_plose_WaehrungLandDi"& _ "esntleistung)) AND ((@IsNull_plose_WaehrungAbbuchung = 1 AND [plose_WaehrungAbbu"& _ "chung] IS NULL) OR ([plose_WaehrungAbbuchung] = @Original_plose_WaehrungAbbuchun"& _ "g)) AND ((@IsNull_plose_DokumentNrQuittungUhrzeit = 1 AND [plose_DokumentNrQuitt"& _ "ungUhrzeit] IS NULL) OR ([plose_DokumentNrQuittungUhrzeit] = @Original_plose_Dok"& _ "umentNrQuittungUhrzeit)) AND ((@IsNull_plose_ArtTransaktion = 1 AND [plose_ArtTr"& _ "ansaktion] IS NULL) OR ([plose_ArtTransaktion] = @Original_plose_ArtTransaktion)"& _ ") AND ((@IsNull_plose_Fahrzeugklasse = 1 AND [plose_Fahrzeugklasse] IS NULL) OR "& _ "([plose_Fahrzeugklasse] = @Original_plose_Fahrzeugklasse)) AND ((@IsNull_plose_K"& _ "lassenidentifikationEURO = 1 AND [plose_KlassenidentifikationEURO] IS NULL) OR ("& _ "[plose_KlassenidentifikationEURO] = @Original_plose_KlassenidentifikationEURO)) "& _ "AND ((@IsNull_plose_ProduktbeschreibungShort = 1 AND [plose_ProduktbeschreibungS"& _ "hort] IS NULL) OR ([plose_ProduktbeschreibungShort] = @Original_plose_Produktbes"& _ "chreibungShort)) AND ((@IsNull_plose_TransaktionUhrzeit = 1 AND [plose_Transakti"& _ "onUhrzeit] IS NULL) OR ([plose_TransaktionUhrzeit] = @Original_plose_Transaktion"& _ "Uhrzeit)) AND ((@IsNull_plose_Geraetetyp = 1 AND [plose_Geraetetyp] IS NULL) OR "& _ "([plose_Geraetetyp] = @Original_plose_Geraetetyp)) AND ((@IsNull_plose_ProduktCo"& _ "de = 1 AND [plose_ProduktCode] IS NULL) OR ([plose_ProduktCode] = @Original_plos"& _ "e_ProduktCode)) AND ((@IsNull_plose_ReferenzenBuchungMaut = 1 AND [plose_Referen"& _ "zenBuchungMaut] IS NULL) OR ([plose_ReferenzenBuchungMaut] = @Original_plose_Ref"& _ "erenzenBuchungMaut)) AND ([plose_Fakturiert] = @Original_plose_Fakturiert) AND ("& _ "(@IsNull_plose_FakturiertDatum = 1 AND [plose_FakturiertDatum] IS NULL) OR ([plo"& _ "se_FakturiertDatum] = @Original_plose_FakturiertDatum)) AND ([plose_Archiv] = @O"& _ "riginal_plose_Archiv) AND ((@IsNull_plose_ArchiviertDatum = 1 AND [plose_Archivi"& _ "ertDatum] IS NULL) OR ([plose_ArchiviertDatum] = @Original_plose_ArchiviertDatum"& _ ")) AND ((@IsNull_plose_tstmp = 1 AND [plose_tstmp] IS NULL) OR ([plose_tstmp] = "& _ "@Original_plose_tstmp)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT plose_Id, plose_plInvId, plose_RechnungsDatum,"& _ " plose_RechnungsNr, plose_SupplierRechnungsDatum, plose_SupplierRechnungsNr, plo"& _ "se_Lieferant, plose_LieferantCode, plose_RechnungsJahr, plose_Dateiname, plose_E"& _ "inlesedatum, plose_Datensatztyp, plose_KodexMautTankstelle, plose_BeschreibungMa"& _ "utTankstelle, plose_KodexEinfahrt, plose_BeschreibungEinfahrt, plose_KodexAusfah"& _ "rt, plose_BeschreibungAusfahrt, plose_Kartenkodex, plose_Kontonummer, plose_Numm"& _ "erKarteGeraet, plose_Kennzeichen, plose_InterneNrFahrzeug, plose_POLSEKundennumm"& _ "er, plose_Firmenname, plose_DatumTransaktion, plose_Produktbeschreibung, plose_M"& _ "enge, plose_Preis, Einheitsrabatt, plose_NettobetragTransaktion, plose_MWSTBetra"& _ "g, plose_BruttobetragTransaktion, plose_NettobetragWaehrungAbbuchung, plose_MWST"& _ "BetragWaehrungAbbuchung, plose_BruttobetragWaehrungAbbuchung, plose_WaehrungLand"& _ "Diesntleistung, plose_WaehrungAbbuchung, plose_DokumentNrQuittungUhrzeit, plose_"& _ "ArtTransaktion, plose_Fahrzeugklasse, plose_KlassenidentifikationEURO, plose_Pro"& _ "duktbeschreibungShort, plose_TransaktionUhrzeit, plose_Geraetetyp, plose_Produkt"& _ "Code, plose_ReferenzenBuchungMaut, plose_Fakturiert, plose_FakturiertDatum, plos"& _ "e_Archiv, plose_ArchiviertDatum, plose_tstmp FROM tblPLOSE_Details WHERE (plose_"& _ "Id = @plose_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_plInvId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_plInvId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_RechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_RechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_SupplierRechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_SupplierRechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Lieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Lieferant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_LieferantCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_LieferantCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsJahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Dateiname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Einlesedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Einlesedatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Datensatztyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Datensatztyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_KodexMautTankstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexMautTankstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_BeschreibungMautTankstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungMautTankstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_KodexEinfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexEinfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_BeschreibungEinfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungEinfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_KodexAusfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexAusfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_BeschreibungAusfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungAusfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Kartenkodex", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kartenkodex", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Kontonummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kontonummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_NummerKarteGeraet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_NummerKarteGeraet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Kennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_InterneNrFahrzeug", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_InterneNrFahrzeug", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_POLSEKundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_POLSEKundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Firmenname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_DatumTransaktion", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DatumTransaktion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Produktbeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Produktbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Menge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "plose_Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Preis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 3, "plose_Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einheitsrabatt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einheitsrabatt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_NettobetragTransaktion", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_NettobetragTransaktion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_MWSTBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_MWSTBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_BruttobetragTransaktion", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_BruttobetragTransaktion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_NettobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_NettobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_BruttobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_BruttobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_WaehrungLandDiesntleistung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungLandDiesntleistung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_WaehrungAbbuchung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungAbbuchung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_DokumentNrQuittungUhrzeit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DokumentNrQuittungUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_ArtTransaktion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArtTransaktion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Fahrzeugklasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Fahrzeugklasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_KlassenidentifikationEURO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KlassenidentifikationEURO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_ProduktbeschreibungShort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktbeschreibungShort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_TransaktionUhrzeit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_TransaktionUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Geraetetyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Geraetetyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_ProduktCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_ReferenzenBuchungMaut", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ReferenzenBuchungMaut", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Fakturiert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Fakturiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_FakturiertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_FakturiertDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Archiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_ArchiviertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArchiviertDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_tstmp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_plInvId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_plInvId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_plInvId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_plInvId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_RechnungsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_RechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_RechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_RechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_SupplierRechnungsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_SupplierRechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_SupplierRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_SupplierRechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Lieferant", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Lieferant", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Lieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Lieferant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_LieferantCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_LieferantCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_LieferantCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_LieferantCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsJahr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_RechnungsJahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Dateiname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Dateiname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Dateiname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Dateiname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Einlesedatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Einlesedatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Einlesedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Einlesedatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Datensatztyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Datensatztyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Datensatztyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Datensatztyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_KodexMautTankstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexMautTankstelle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_KodexMautTankstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexMautTankstelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_BeschreibungMautTankstelle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungMautTankstelle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_BeschreibungMautTankstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungMautTankstelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_KodexEinfahrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexEinfahrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_KodexEinfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexEinfahrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_BeschreibungEinfahrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungEinfahrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_BeschreibungEinfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungEinfahrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_KodexAusfahrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexAusfahrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_KodexAusfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KodexAusfahrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_BeschreibungAusfahrt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungAusfahrt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_BeschreibungAusfahrt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BeschreibungAusfahrt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Kartenkodex", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kartenkodex", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Kartenkodex", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kartenkodex", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Kontonummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kontonummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Kontonummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kontonummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_NummerKarteGeraet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_NummerKarteGeraet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_NummerKarteGeraet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_NummerKarteGeraet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Kennzeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kennzeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Kennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Kennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_InterneNrFahrzeug", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_InterneNrFahrzeug", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_InterneNrFahrzeug", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_InterneNrFahrzeug", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_POLSEKundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_POLSEKundennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_POLSEKundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_POLSEKundennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Firmenname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Firmenname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Firmenname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_DatumTransaktion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DatumTransaktion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_DatumTransaktion", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DatumTransaktion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Produktbeschreibung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Produktbeschreibung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Produktbeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Produktbeschreibung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Menge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Menge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Menge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 2, "plose_Menge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Preis", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Preis", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Preis", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 9, 3, "plose_Preis", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Einheitsrabatt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einheitsrabatt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Einheitsrabatt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einheitsrabatt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_NettobetragTransaktion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_NettobetragTransaktion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_NettobetragTransaktion", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_NettobetragTransaktion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_MWSTBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_MWSTBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_MWSTBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_MWSTBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_BruttobetragTransaktion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BruttobetragTransaktion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_BruttobetragTransaktion", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_BruttobetragTransaktion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_NettobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_NettobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_NettobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_NettobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_MWSTBetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_BruttobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_BruttobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_BruttobetragWaehrungAbbuchung", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plose_BruttobetragWaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_WaehrungLandDiesntleistung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungLandDiesntleistung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_WaehrungLandDiesntleistung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungLandDiesntleistung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_WaehrungAbbuchung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_WaehrungAbbuchung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_WaehrungAbbuchung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_DokumentNrQuittungUhrzeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DokumentNrQuittungUhrzeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_DokumentNrQuittungUhrzeit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_DokumentNrQuittungUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_ArtTransaktion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArtTransaktion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_ArtTransaktion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArtTransaktion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Fahrzeugklasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Fahrzeugklasse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Fahrzeugklasse", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Fahrzeugklasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_KlassenidentifikationEURO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KlassenidentifikationEURO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_KlassenidentifikationEURO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_KlassenidentifikationEURO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_ProduktbeschreibungShort", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktbeschreibungShort", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_ProduktbeschreibungShort", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktbeschreibungShort", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_TransaktionUhrzeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_TransaktionUhrzeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_TransaktionUhrzeit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_TransaktionUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_Geraetetyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Geraetetyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Geraetetyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Geraetetyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_ProduktCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_ProduktCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ProduktCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_ReferenzenBuchungMaut", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ReferenzenBuchungMaut", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_ReferenzenBuchungMaut", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ReferenzenBuchungMaut", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Fakturiert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Fakturiert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_FakturiertDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_FakturiertDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_FakturiertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_FakturiertDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_Archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Archiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_ArchiviertDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArchiviertDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_ArchiviertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_ArchiviertDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plose_tstmp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_tstmp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plose_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_tstmp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plose_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "plose_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 plose_Id, plose_plInvId, plose_RechnungsDatum, plose_RechnungsNr, plose_Su"& _ "pplierRechnungsDatum, plose_SupplierRechnungsNr, plose_Lieferant, plose_Lieferan"& _ "tCode, plose_RechnungsJahr, plose_Dateiname, plose_Einlesedatum, plose_Datensatz"& _ "typ, plose_KodexMautTankstelle, plose_BeschreibungMautTankstelle, plose_KodexEin"& _ "fahrt, plose_BeschreibungEinfahrt, plose_KodexAusfahrt, plose_BeschreibungAusfah"& _ "rt, plose_Kartenkodex, plose_Kontonummer, plose_NummerKarteGeraet, plose_Kennzei"& _ "chen, plose_InterneNrFahrzeug, plose_POLSEKundennummer, plose_Firmenname, plose_"& _ "DatumTransaktion, plose_Produktbeschreibung, plose_Menge, plose_Preis, Einheitsr"& _ "abatt, plose_NettobetragTransaktion, plose_MWSTBetrag, plose_BruttobetragTransak"& _ "tion, plose_NettobetragWaehrungAbbuchung, plose_MWSTBetragWaehrungAbbuchung, plo"& _ "se_BruttobetragWaehrungAbbuchung, plose_WaehrungLandDiesntleistung, plose_Waehru"& _ "ngAbbuchung, plose_DokumentNrQuittungUhrzeit, plose_ArtTransaktion, plose_Fahrze"& _ "ugklasse, plose_KlassenidentifikationEURO, plose_ProduktbeschreibungShort, plose"& _ "_TransaktionUhrzeit, plose_Geraetetyp, plose_ProduktCode, plose_ReferenzenBuchun"& _ "gMaut, plose_Fakturiert, plose_FakturiertDatum, plose_Archiv, plose_ArchiviertDa"& _ "tum, plose_tstmp FROM dbo.tblPLOSE_Details" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPLOSE_DetailsDataTable) 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 VERAGDataSet.tblPLOSE_DetailsDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPLOSE_DetailsDataTable = New VERAGDataSet.tblPLOSE_DetailsDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPLOSE_DetailsDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPLOSE_Details") 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_plose_Id As Integer, _ ByVal Original_plose_plInvId As Global.System.Nullable(Of Integer), _ ByVal Original_plose_RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_RechnungsNr As String, _ ByVal Original_plose_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_SupplierRechnungsNr As String, _ ByVal Original_plose_Lieferant As String, _ ByVal Original_plose_LieferantCode As String, _ ByVal Original_plose_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal Original_plose_Dateiname As String, _ ByVal Original_plose_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_Datensatztyp As String, _ ByVal Original_plose_KodexMautTankstelle As String, _ ByVal Original_plose_BeschreibungMautTankstelle As String, _ ByVal Original_plose_KodexEinfahrt As String, _ ByVal Original_plose_BeschreibungEinfahrt As String, _ ByVal Original_plose_KodexAusfahrt As String, _ ByVal Original_plose_BeschreibungAusfahrt As String, _ ByVal Original_plose_Kartenkodex As String, _ ByVal Original_plose_Kontonummer As String, _ ByVal Original_plose_NummerKarteGeraet As String, _ ByVal Original_plose_Kennzeichen As String, _ ByVal Original_plose_InterneNrFahrzeug As String, _ ByVal Original_plose_POLSEKundennummer As String, _ ByVal Original_plose_Firmenname As String, _ ByVal Original_plose_DatumTransaktion As Global.System.Nullable(Of Date), _ ByVal Original_plose_Produktbeschreibung As String, _ ByVal Original_plose_Menge As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_Preis As Global.System.Nullable(Of Decimal), _ ByVal Original_Einheitsrabatt As String, _ ByVal Original_plose_NettobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_BruttobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_NettobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_MWSTBetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_BruttobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_WaehrungLandDiesntleistung As String, _ ByVal Original_plose_WaehrungAbbuchung As String, _ ByVal Original_plose_DokumentNrQuittungUhrzeit As String, _ ByVal Original_plose_ArtTransaktion As String, _ ByVal Original_plose_Fahrzeugklasse As String, _ ByVal Original_plose_KlassenidentifikationEURO As String, _ ByVal Original_plose_ProduktbeschreibungShort As String, _ ByVal Original_plose_TransaktionUhrzeit As String, _ ByVal Original_plose_Geraetetyp As String, _ ByVal Original_plose_ProduktCode As String, _ ByVal Original_plose_ReferenzenBuchungMaut As String, _ ByVal Original_plose_Fakturiert As Boolean, _ ByVal Original_plose_FakturiertDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_Archiv As Boolean, _ ByVal Original_plose_ArchiviertDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_tstmp As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_plose_Id,Integer) If (Original_plose_plInvId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_plose_plInvId.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_plose_RechnungsDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_plose_RechnungsDatum.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_plose_RechnungsNr 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_plose_RechnungsNr,String) End If If (Original_plose_SupplierRechnungsDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_plose_SupplierRechnungsDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_plose_SupplierRechnungsNr 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_plose_SupplierRechnungsNr,String) End If If (Original_plose_Lieferant 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_plose_Lieferant,String) End If If (Original_plose_LieferantCode 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_plose_LieferantCode,String) End If If (Original_plose_RechnungsJahr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_plose_RechnungsJahr.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_plose_Dateiname Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_plose_Dateiname,String) End If If (Original_plose_Einlesedatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_plose_Einlesedatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_plose_Datensatztyp Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_plose_Datensatztyp,String) End If If (Original_plose_KodexMautTankstelle Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_plose_KodexMautTankstelle,String) End If If (Original_plose_BeschreibungMautTankstelle Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_plose_BeschreibungMautTankstelle,String) End If If (Original_plose_KodexEinfahrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_plose_KodexEinfahrt,String) End If If (Original_plose_BeschreibungEinfahrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_plose_BeschreibungEinfahrt,String) End If If (Original_plose_KodexAusfahrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_plose_KodexAusfahrt,String) End If If (Original_plose_BeschreibungAusfahrt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_plose_BeschreibungAusfahrt,String) End If If (Original_plose_Kartenkodex Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_plose_Kartenkodex,String) End If If (Original_plose_Kontonummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_plose_Kontonummer,String) End If If (Original_plose_NummerKarteGeraet Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_plose_NummerKarteGeraet,String) End If If (Original_plose_Kennzeichen Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_plose_Kennzeichen,String) End If If (Original_plose_InterneNrFahrzeug Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_plose_InterneNrFahrzeug,String) End If If (Original_plose_POLSEKundennummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_plose_POLSEKundennummer,String) End If If (Original_plose_Firmenname Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_plose_Firmenname,String) End If If (Original_plose_DatumTransaktion.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_plose_DatumTransaktion.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Original_plose_Produktbeschreibung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_plose_Produktbeschreibung,String) End If If (Original_plose_Menge.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_plose_Menge.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Original_plose_Preis.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_plose_Preis.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Original_Einheitsrabatt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_Einheitsrabatt,String) End If If (Original_plose_NettobetragTransaktion.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_plose_NettobetragTransaktion.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (Original_plose_MWSTBetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_plose_MWSTBetrag.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (Original_plose_BruttobetragTransaktion.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_plose_BruttobetragTransaktion.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Original_plose_NettobetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_plose_NettobetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (Original_plose_MWSTBetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_plose_MWSTBetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (Original_plose_BruttobetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_plose_BruttobetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Original_plose_WaehrungLandDiesntleistung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_plose_WaehrungLandDiesntleistung,String) End If If (Original_plose_WaehrungAbbuchung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_plose_WaehrungAbbuchung,String) End If If (Original_plose_DokumentNrQuittungUhrzeit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_plose_DokumentNrQuittungUhrzeit,String) End If If (Original_plose_ArtTransaktion Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_plose_ArtTransaktion,String) End If If (Original_plose_Fahrzeugklasse Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_plose_Fahrzeugklasse,String) End If If (Original_plose_KlassenidentifikationEURO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_plose_KlassenidentifikationEURO,String) End If If (Original_plose_ProduktbeschreibungShort Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_plose_ProduktbeschreibungShort,String) End If If (Original_plose_TransaktionUhrzeit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_plose_TransaktionUhrzeit,String) End If If (Original_plose_Geraetetyp Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_plose_Geraetetyp,String) End If If (Original_plose_ProduktCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_plose_ProduktCode,String) End If If (Original_plose_ReferenzenBuchungMaut Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_plose_ReferenzenBuchungMaut,String) End If Me.Adapter.DeleteCommand.Parameters(93).Value = CType(Original_plose_Fakturiert,Boolean) If (Original_plose_FakturiertDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = CType(Original_plose_FakturiertDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(95).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(96).Value = CType(Original_plose_Archiv,Boolean) If (Original_plose_ArchiviertDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = CType(Original_plose_ArchiviertDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = Global.System.DBNull.Value End If If (Original_plose_tstmp.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = CType(Original_plose_tstmp.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(100).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 plose_plInvId As Global.System.Nullable(Of Integer), _ ByVal plose_RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal plose_RechnungsNr As String, _ ByVal plose_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal plose_SupplierRechnungsNr As String, _ ByVal plose_Lieferant As String, _ ByVal plose_LieferantCode As String, _ ByVal plose_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal plose_Dateiname As String, _ ByVal plose_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal plose_Datensatztyp As String, _ ByVal plose_KodexMautTankstelle As String, _ ByVal plose_BeschreibungMautTankstelle As String, _ ByVal plose_KodexEinfahrt As String, _ ByVal plose_BeschreibungEinfahrt As String, _ ByVal plose_KodexAusfahrt As String, _ ByVal plose_BeschreibungAusfahrt As String, _ ByVal plose_Kartenkodex As String, _ ByVal plose_Kontonummer As String, _ ByVal plose_NummerKarteGeraet As String, _ ByVal plose_Kennzeichen As String, _ ByVal plose_InterneNrFahrzeug As String, _ ByVal plose_POLSEKundennummer As String, _ ByVal plose_Firmenname As String, _ ByVal plose_DatumTransaktion As Global.System.Nullable(Of Date), _ ByVal plose_Produktbeschreibung As String, _ ByVal plose_Menge As Global.System.Nullable(Of Decimal), _ ByVal plose_Preis As Global.System.Nullable(Of Decimal), _ ByVal Einheitsrabatt As String, _ ByVal plose_NettobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal plose_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal plose_BruttobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal plose_NettobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal plose_MWSTBetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal plose_BruttobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal plose_WaehrungLandDiesntleistung As String, _ ByVal plose_WaehrungAbbuchung As String, _ ByVal plose_DokumentNrQuittungUhrzeit As String, _ ByVal plose_ArtTransaktion As String, _ ByVal plose_Fahrzeugklasse As String, _ ByVal plose_KlassenidentifikationEURO As String, _ ByVal plose_ProduktbeschreibungShort As String, _ ByVal plose_TransaktionUhrzeit As String, _ ByVal plose_Geraetetyp As String, _ ByVal plose_ProduktCode As String, _ ByVal plose_ReferenzenBuchungMaut As String, _ ByVal plose_Fakturiert As Boolean, _ ByVal plose_FakturiertDatum As Global.System.Nullable(Of Date), _ ByVal plose_Archiv As Boolean, _ ByVal plose_ArchiviertDatum As Global.System.Nullable(Of Date), _ ByVal plose_tstmp As Global.System.Nullable(Of Date)) As Integer If (plose_plInvId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(plose_plInvId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (plose_RechnungsDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(plose_RechnungsDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (plose_RechnungsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(plose_RechnungsNr,String) End If If (plose_SupplierRechnungsDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(plose_SupplierRechnungsDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (plose_SupplierRechnungsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(plose_SupplierRechnungsNr,String) End If If (plose_Lieferant Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(plose_Lieferant,String) End If If (plose_LieferantCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(plose_LieferantCode,String) End If If (plose_RechnungsJahr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(plose_RechnungsJahr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (plose_Dateiname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(plose_Dateiname,String) End If If (plose_Einlesedatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(plose_Einlesedatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (plose_Datensatztyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(plose_Datensatztyp,String) End If If (plose_KodexMautTankstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(plose_KodexMautTankstelle,String) End If If (plose_BeschreibungMautTankstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(plose_BeschreibungMautTankstelle,String) End If If (plose_KodexEinfahrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(plose_KodexEinfahrt,String) End If If (plose_BeschreibungEinfahrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(plose_BeschreibungEinfahrt,String) End If If (plose_KodexAusfahrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(plose_KodexAusfahrt,String) End If If (plose_BeschreibungAusfahrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(plose_BeschreibungAusfahrt,String) End If If (plose_Kartenkodex Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(plose_Kartenkodex,String) End If If (plose_Kontonummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(plose_Kontonummer,String) End If If (plose_NummerKarteGeraet Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(plose_NummerKarteGeraet,String) End If If (plose_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(plose_Kennzeichen,String) End If If (plose_InterneNrFahrzeug Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(plose_InterneNrFahrzeug,String) End If If (plose_POLSEKundennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(plose_POLSEKundennummer,String) End If If (plose_Firmenname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(plose_Firmenname,String) End If If (plose_DatumTransaktion.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(plose_DatumTransaktion.Value,Date) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (plose_Produktbeschreibung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(plose_Produktbeschreibung,String) End If If (plose_Menge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(plose_Menge.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (plose_Preis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(plose_Preis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Einheitsrabatt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(Einheitsrabatt,String) End If If (plose_NettobetragTransaktion.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(29).Value = CType(plose_NettobetragTransaktion.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (plose_MWSTBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(plose_MWSTBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (plose_BruttobetragTransaktion.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(plose_BruttobetragTransaktion.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (plose_NettobetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(plose_NettobetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (plose_MWSTBetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(plose_MWSTBetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (plose_BruttobetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(plose_BruttobetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (plose_WaehrungLandDiesntleistung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(plose_WaehrungLandDiesntleistung,String) End If If (plose_WaehrungAbbuchung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(plose_WaehrungAbbuchung,String) End If If (plose_DokumentNrQuittungUhrzeit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(plose_DokumentNrQuittungUhrzeit,String) End If If (plose_ArtTransaktion Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(plose_ArtTransaktion,String) End If If (plose_Fahrzeugklasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(plose_Fahrzeugklasse,String) End If If (plose_KlassenidentifikationEURO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(plose_KlassenidentifikationEURO,String) End If If (plose_ProduktbeschreibungShort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(plose_ProduktbeschreibungShort,String) End If If (plose_TransaktionUhrzeit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(plose_TransaktionUhrzeit,String) End If If (plose_Geraetetyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(plose_Geraetetyp,String) End If If (plose_ProduktCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(plose_ProduktCode,String) End If If (plose_ReferenzenBuchungMaut Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(plose_ReferenzenBuchungMaut,String) End If Me.Adapter.InsertCommand.Parameters(46).Value = CType(plose_Fakturiert,Boolean) If (plose_FakturiertDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(47).Value = CType(plose_FakturiertDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(48).Value = CType(plose_Archiv,Boolean) If (plose_ArchiviertDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(49).Value = CType(plose_ArchiviertDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (plose_tstmp.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(50).Value = CType(plose_tstmp.Value,Date) Else Me.Adapter.InsertCommand.Parameters(50).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 plose_plInvId As Global.System.Nullable(Of Integer), _ ByVal plose_RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal plose_RechnungsNr As String, _ ByVal plose_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal plose_SupplierRechnungsNr As String, _ ByVal plose_Lieferant As String, _ ByVal plose_LieferantCode As String, _ ByVal plose_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal plose_Dateiname As String, _ ByVal plose_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal plose_Datensatztyp As String, _ ByVal plose_KodexMautTankstelle As String, _ ByVal plose_BeschreibungMautTankstelle As String, _ ByVal plose_KodexEinfahrt As String, _ ByVal plose_BeschreibungEinfahrt As String, _ ByVal plose_KodexAusfahrt As String, _ ByVal plose_BeschreibungAusfahrt As String, _ ByVal plose_Kartenkodex As String, _ ByVal plose_Kontonummer As String, _ ByVal plose_NummerKarteGeraet As String, _ ByVal plose_Kennzeichen As String, _ ByVal plose_InterneNrFahrzeug As String, _ ByVal plose_POLSEKundennummer As String, _ ByVal plose_Firmenname As String, _ ByVal plose_DatumTransaktion As Global.System.Nullable(Of Date), _ ByVal plose_Produktbeschreibung As String, _ ByVal plose_Menge As Global.System.Nullable(Of Decimal), _ ByVal plose_Preis As Global.System.Nullable(Of Decimal), _ ByVal Einheitsrabatt As String, _ ByVal plose_NettobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal plose_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal plose_BruttobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal plose_NettobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal plose_MWSTBetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal plose_BruttobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal plose_WaehrungLandDiesntleistung As String, _ ByVal plose_WaehrungAbbuchung As String, _ ByVal plose_DokumentNrQuittungUhrzeit As String, _ ByVal plose_ArtTransaktion As String, _ ByVal plose_Fahrzeugklasse As String, _ ByVal plose_KlassenidentifikationEURO As String, _ ByVal plose_ProduktbeschreibungShort As String, _ ByVal plose_TransaktionUhrzeit As String, _ ByVal plose_Geraetetyp As String, _ ByVal plose_ProduktCode As String, _ ByVal plose_ReferenzenBuchungMaut As String, _ ByVal plose_Fakturiert As Boolean, _ ByVal plose_FakturiertDatum As Global.System.Nullable(Of Date), _ ByVal plose_Archiv As Boolean, _ ByVal plose_ArchiviertDatum As Global.System.Nullable(Of Date), _ ByVal plose_tstmp As Global.System.Nullable(Of Date), _ ByVal Original_plose_Id As Integer, _ ByVal Original_plose_plInvId As Global.System.Nullable(Of Integer), _ ByVal Original_plose_RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_RechnungsNr As String, _ ByVal Original_plose_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_SupplierRechnungsNr As String, _ ByVal Original_plose_Lieferant As String, _ ByVal Original_plose_LieferantCode As String, _ ByVal Original_plose_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal Original_plose_Dateiname As String, _ ByVal Original_plose_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_Datensatztyp As String, _ ByVal Original_plose_KodexMautTankstelle As String, _ ByVal Original_plose_BeschreibungMautTankstelle As String, _ ByVal Original_plose_KodexEinfahrt As String, _ ByVal Original_plose_BeschreibungEinfahrt As String, _ ByVal Original_plose_KodexAusfahrt As String, _ ByVal Original_plose_BeschreibungAusfahrt As String, _ ByVal Original_plose_Kartenkodex As String, _ ByVal Original_plose_Kontonummer As String, _ ByVal Original_plose_NummerKarteGeraet As String, _ ByVal Original_plose_Kennzeichen As String, _ ByVal Original_plose_InterneNrFahrzeug As String, _ ByVal Original_plose_POLSEKundennummer As String, _ ByVal Original_plose_Firmenname As String, _ ByVal Original_plose_DatumTransaktion As Global.System.Nullable(Of Date), _ ByVal Original_plose_Produktbeschreibung As String, _ ByVal Original_plose_Menge As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_Preis As Global.System.Nullable(Of Decimal), _ ByVal Original_Einheitsrabatt As String, _ ByVal Original_plose_NettobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_BruttobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_NettobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_MWSTBetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_BruttobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_WaehrungLandDiesntleistung As String, _ ByVal Original_plose_WaehrungAbbuchung As String, _ ByVal Original_plose_DokumentNrQuittungUhrzeit As String, _ ByVal Original_plose_ArtTransaktion As String, _ ByVal Original_plose_Fahrzeugklasse As String, _ ByVal Original_plose_KlassenidentifikationEURO As String, _ ByVal Original_plose_ProduktbeschreibungShort As String, _ ByVal Original_plose_TransaktionUhrzeit As String, _ ByVal Original_plose_Geraetetyp As String, _ ByVal Original_plose_ProduktCode As String, _ ByVal Original_plose_ReferenzenBuchungMaut As String, _ ByVal Original_plose_Fakturiert As Boolean, _ ByVal Original_plose_FakturiertDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_Archiv As Boolean, _ ByVal Original_plose_ArchiviertDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_tstmp As Global.System.Nullable(Of Date), _ ByVal plose_Id As Integer) As Integer If (plose_plInvId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(plose_plInvId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (plose_RechnungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(plose_RechnungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (plose_RechnungsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(plose_RechnungsNr,String) End If If (plose_SupplierRechnungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(plose_SupplierRechnungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (plose_SupplierRechnungsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(plose_SupplierRechnungsNr,String) End If If (plose_Lieferant Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(plose_Lieferant,String) End If If (plose_LieferantCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(plose_LieferantCode,String) End If If (plose_RechnungsJahr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(plose_RechnungsJahr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (plose_Dateiname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(plose_Dateiname,String) End If If (plose_Einlesedatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(plose_Einlesedatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (plose_Datensatztyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(plose_Datensatztyp,String) End If If (plose_KodexMautTankstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(plose_KodexMautTankstelle,String) End If If (plose_BeschreibungMautTankstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(plose_BeschreibungMautTankstelle,String) End If If (plose_KodexEinfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(plose_KodexEinfahrt,String) End If If (plose_BeschreibungEinfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(plose_BeschreibungEinfahrt,String) End If If (plose_KodexAusfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(plose_KodexAusfahrt,String) End If If (plose_BeschreibungAusfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(plose_BeschreibungAusfahrt,String) End If If (plose_Kartenkodex Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(plose_Kartenkodex,String) End If If (plose_Kontonummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(plose_Kontonummer,String) End If If (plose_NummerKarteGeraet Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(plose_NummerKarteGeraet,String) End If If (plose_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(plose_Kennzeichen,String) End If If (plose_InterneNrFahrzeug Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(plose_InterneNrFahrzeug,String) End If If (plose_POLSEKundennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(plose_POLSEKundennummer,String) End If If (plose_Firmenname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(plose_Firmenname,String) End If If (plose_DatumTransaktion.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(plose_DatumTransaktion.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (plose_Produktbeschreibung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(plose_Produktbeschreibung,String) End If If (plose_Menge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(plose_Menge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (plose_Preis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(plose_Preis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Einheitsrabatt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Einheitsrabatt,String) End If If (plose_NettobetragTransaktion.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(plose_NettobetragTransaktion.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (plose_MWSTBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(plose_MWSTBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (plose_BruttobetragTransaktion.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(plose_BruttobetragTransaktion.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (plose_NettobetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(plose_NettobetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (plose_MWSTBetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(plose_MWSTBetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (plose_BruttobetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(plose_BruttobetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (plose_WaehrungLandDiesntleistung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(plose_WaehrungLandDiesntleistung,String) End If If (plose_WaehrungAbbuchung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(plose_WaehrungAbbuchung,String) End If If (plose_DokumentNrQuittungUhrzeit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(plose_DokumentNrQuittungUhrzeit,String) End If If (plose_ArtTransaktion Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(plose_ArtTransaktion,String) End If If (plose_Fahrzeugklasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(plose_Fahrzeugklasse,String) End If If (plose_KlassenidentifikationEURO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(plose_KlassenidentifikationEURO,String) End If If (plose_ProduktbeschreibungShort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(plose_ProduktbeschreibungShort,String) End If If (plose_TransaktionUhrzeit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(plose_TransaktionUhrzeit,String) End If If (plose_Geraetetyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(plose_Geraetetyp,String) End If If (plose_ProduktCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(plose_ProduktCode,String) End If If (plose_ReferenzenBuchungMaut Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(plose_ReferenzenBuchungMaut,String) End If Me.Adapter.UpdateCommand.Parameters(46).Value = CType(plose_Fakturiert,Boolean) If (plose_FakturiertDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(plose_FakturiertDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(48).Value = CType(plose_Archiv,Boolean) If (plose_ArchiviertDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(plose_ArchiviertDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (plose_tstmp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(plose_tstmp.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_plose_Id,Integer) If (Original_plose_plInvId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_plose_plInvId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_plose_RechnungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_plose_RechnungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Original_plose_RechnungsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_plose_RechnungsNr,String) End If If (Original_plose_SupplierRechnungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_plose_SupplierRechnungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Original_plose_SupplierRechnungsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_plose_SupplierRechnungsNr,String) End If If (Original_plose_Lieferant Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_plose_Lieferant,String) End If If (Original_plose_LieferantCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_plose_LieferantCode,String) End If If (Original_plose_RechnungsJahr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_plose_RechnungsJahr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Original_plose_Dateiname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_plose_Dateiname,String) End If If (Original_plose_Einlesedatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_plose_Einlesedatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Original_plose_Datensatztyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_plose_Datensatztyp,String) End If If (Original_plose_KodexMautTankstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_plose_KodexMautTankstelle,String) End If If (Original_plose_BeschreibungMautTankstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_plose_BeschreibungMautTankstelle,String) End If If (Original_plose_KodexEinfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_plose_KodexEinfahrt,String) End If If (Original_plose_BeschreibungEinfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_plose_BeschreibungEinfahrt,String) End If If (Original_plose_KodexAusfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_plose_KodexAusfahrt,String) End If If (Original_plose_BeschreibungAusfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_plose_BeschreibungAusfahrt,String) End If If (Original_plose_Kartenkodex Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_plose_Kartenkodex,String) End If If (Original_plose_Kontonummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_plose_Kontonummer,String) End If If (Original_plose_NummerKarteGeraet Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_plose_NummerKarteGeraet,String) End If If (Original_plose_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_plose_Kennzeichen,String) End If If (Original_plose_InterneNrFahrzeug Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_plose_InterneNrFahrzeug,String) End If If (Original_plose_POLSEKundennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_plose_POLSEKundennummer,String) End If If (Original_plose_Firmenname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_plose_Firmenname,String) End If If (Original_plose_DatumTransaktion.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = CType(Original_plose_DatumTransaktion.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value End If If (Original_plose_Produktbeschreibung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(103).Value = CType(Original_plose_Produktbeschreibung,String) End If If (Original_plose_Menge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_plose_Menge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value End If If (Original_plose_Preis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(107).Value = CType(Original_plose_Preis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value End If If (Original_Einheitsrabatt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(109).Value = CType(Original_Einheitsrabatt,String) End If If (Original_plose_NettobetragTransaktion.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(111).Value = CType(Original_plose_NettobetragTransaktion.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value End If If (Original_plose_MWSTBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(113).Value = CType(Original_plose_MWSTBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value End If If (Original_plose_BruttobetragTransaktion.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(115).Value = CType(Original_plose_BruttobetragTransaktion.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value End If If (Original_plose_NettobetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(117).Value = CType(Original_plose_NettobetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value End If If (Original_plose_MWSTBetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(119).Value = CType(Original_plose_MWSTBetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value End If If (Original_plose_BruttobetragWaehrungAbbuchung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(121).Value = CType(Original_plose_BruttobetragWaehrungAbbuchung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value End If If (Original_plose_WaehrungLandDiesntleistung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(123).Value = CType(Original_plose_WaehrungLandDiesntleistung,String) End If If (Original_plose_WaehrungAbbuchung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(125).Value = CType(Original_plose_WaehrungAbbuchung,String) End If If (Original_plose_DokumentNrQuittungUhrzeit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(127).Value = CType(Original_plose_DokumentNrQuittungUhrzeit,String) End If If (Original_plose_ArtTransaktion Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(129).Value = CType(Original_plose_ArtTransaktion,String) End If If (Original_plose_Fahrzeugklasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(131).Value = CType(Original_plose_Fahrzeugklasse,String) End If If (Original_plose_KlassenidentifikationEURO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(133).Value = CType(Original_plose_KlassenidentifikationEURO,String) End If If (Original_plose_ProduktbeschreibungShort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(135).Value = CType(Original_plose_ProduktbeschreibungShort,String) End If If (Original_plose_TransaktionUhrzeit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(137).Value = CType(Original_plose_TransaktionUhrzeit,String) End If If (Original_plose_Geraetetyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(138).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(138).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(139).Value = CType(Original_plose_Geraetetyp,String) End If If (Original_plose_ProduktCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(140).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(140).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(141).Value = CType(Original_plose_ProduktCode,String) End If If (Original_plose_ReferenzenBuchungMaut Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(142).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(143).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(142).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(143).Value = CType(Original_plose_ReferenzenBuchungMaut,String) End If Me.Adapter.UpdateCommand.Parameters(144).Value = CType(Original_plose_Fakturiert,Boolean) If (Original_plose_FakturiertDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = CType(Original_plose_FakturiertDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(147).Value = CType(Original_plose_Archiv,Boolean) If (Original_plose_ArchiviertDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(148).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(149).Value = CType(Original_plose_ArchiviertDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(148).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(149).Value = Global.System.DBNull.Value End If If (Original_plose_tstmp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(150).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(151).Value = CType(Original_plose_tstmp.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(150).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(151).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(152).Value = CType(plose_Id,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 plose_plInvId As Global.System.Nullable(Of Integer), _ ByVal plose_RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal plose_RechnungsNr As String, _ ByVal plose_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal plose_SupplierRechnungsNr As String, _ ByVal plose_Lieferant As String, _ ByVal plose_LieferantCode As String, _ ByVal plose_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal plose_Dateiname As String, _ ByVal plose_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal plose_Datensatztyp As String, _ ByVal plose_KodexMautTankstelle As String, _ ByVal plose_BeschreibungMautTankstelle As String, _ ByVal plose_KodexEinfahrt As String, _ ByVal plose_BeschreibungEinfahrt As String, _ ByVal plose_KodexAusfahrt As String, _ ByVal plose_BeschreibungAusfahrt As String, _ ByVal plose_Kartenkodex As String, _ ByVal plose_Kontonummer As String, _ ByVal plose_NummerKarteGeraet As String, _ ByVal plose_Kennzeichen As String, _ ByVal plose_InterneNrFahrzeug As String, _ ByVal plose_POLSEKundennummer As String, _ ByVal plose_Firmenname As String, _ ByVal plose_DatumTransaktion As Global.System.Nullable(Of Date), _ ByVal plose_Produktbeschreibung As String, _ ByVal plose_Menge As Global.System.Nullable(Of Decimal), _ ByVal plose_Preis As Global.System.Nullable(Of Decimal), _ ByVal Einheitsrabatt As String, _ ByVal plose_NettobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal plose_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal plose_BruttobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal plose_NettobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal plose_MWSTBetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal plose_BruttobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal plose_WaehrungLandDiesntleistung As String, _ ByVal plose_WaehrungAbbuchung As String, _ ByVal plose_DokumentNrQuittungUhrzeit As String, _ ByVal plose_ArtTransaktion As String, _ ByVal plose_Fahrzeugklasse As String, _ ByVal plose_KlassenidentifikationEURO As String, _ ByVal plose_ProduktbeschreibungShort As String, _ ByVal plose_TransaktionUhrzeit As String, _ ByVal plose_Geraetetyp As String, _ ByVal plose_ProduktCode As String, _ ByVal plose_ReferenzenBuchungMaut As String, _ ByVal plose_Fakturiert As Boolean, _ ByVal plose_FakturiertDatum As Global.System.Nullable(Of Date), _ ByVal plose_Archiv As Boolean, _ ByVal plose_ArchiviertDatum As Global.System.Nullable(Of Date), _ ByVal plose_tstmp As Global.System.Nullable(Of Date), _ ByVal Original_plose_Id As Integer, _ ByVal Original_plose_plInvId As Global.System.Nullable(Of Integer), _ ByVal Original_plose_RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_RechnungsNr As String, _ ByVal Original_plose_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_SupplierRechnungsNr As String, _ ByVal Original_plose_Lieferant As String, _ ByVal Original_plose_LieferantCode As String, _ ByVal Original_plose_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal Original_plose_Dateiname As String, _ ByVal Original_plose_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_Datensatztyp As String, _ ByVal Original_plose_KodexMautTankstelle As String, _ ByVal Original_plose_BeschreibungMautTankstelle As String, _ ByVal Original_plose_KodexEinfahrt As String, _ ByVal Original_plose_BeschreibungEinfahrt As String, _ ByVal Original_plose_KodexAusfahrt As String, _ ByVal Original_plose_BeschreibungAusfahrt As String, _ ByVal Original_plose_Kartenkodex As String, _ ByVal Original_plose_Kontonummer As String, _ ByVal Original_plose_NummerKarteGeraet As String, _ ByVal Original_plose_Kennzeichen As String, _ ByVal Original_plose_InterneNrFahrzeug As String, _ ByVal Original_plose_POLSEKundennummer As String, _ ByVal Original_plose_Firmenname As String, _ ByVal Original_plose_DatumTransaktion As Global.System.Nullable(Of Date), _ ByVal Original_plose_Produktbeschreibung As String, _ ByVal Original_plose_Menge As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_Preis As Global.System.Nullable(Of Decimal), _ ByVal Original_Einheitsrabatt As String, _ ByVal Original_plose_NettobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_BruttobetragTransaktion As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_NettobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_MWSTBetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_BruttobetragWaehrungAbbuchung As Global.System.Nullable(Of Decimal), _ ByVal Original_plose_WaehrungLandDiesntleistung As String, _ ByVal Original_plose_WaehrungAbbuchung As String, _ ByVal Original_plose_DokumentNrQuittungUhrzeit As String, _ ByVal Original_plose_ArtTransaktion As String, _ ByVal Original_plose_Fahrzeugklasse As String, _ ByVal Original_plose_KlassenidentifikationEURO As String, _ ByVal Original_plose_ProduktbeschreibungShort As String, _ ByVal Original_plose_TransaktionUhrzeit As String, _ ByVal Original_plose_Geraetetyp As String, _ ByVal Original_plose_ProduktCode As String, _ ByVal Original_plose_ReferenzenBuchungMaut As String, _ ByVal Original_plose_Fakturiert As Boolean, _ ByVal Original_plose_FakturiertDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_Archiv As Boolean, _ ByVal Original_plose_ArchiviertDatum As Global.System.Nullable(Of Date), _ ByVal Original_plose_tstmp As Global.System.Nullable(Of Date)) As Integer Return Me.Update(plose_plInvId, plose_RechnungsDatum, plose_RechnungsNr, plose_SupplierRechnungsDatum, plose_SupplierRechnungsNr, plose_Lieferant, plose_LieferantCode, plose_RechnungsJahr, plose_Dateiname, plose_Einlesedatum, plose_Datensatztyp, plose_KodexMautTankstelle, plose_BeschreibungMautTankstelle, plose_KodexEinfahrt, plose_BeschreibungEinfahrt, plose_KodexAusfahrt, plose_BeschreibungAusfahrt, plose_Kartenkodex, plose_Kontonummer, plose_NummerKarteGeraet, plose_Kennzeichen, plose_InterneNrFahrzeug, plose_POLSEKundennummer, plose_Firmenname, plose_DatumTransaktion, plose_Produktbeschreibung, plose_Menge, plose_Preis, Einheitsrabatt, plose_NettobetragTransaktion, plose_MWSTBetrag, plose_BruttobetragTransaktion, plose_NettobetragWaehrungAbbuchung, plose_MWSTBetragWaehrungAbbuchung, plose_BruttobetragWaehrungAbbuchung, plose_WaehrungLandDiesntleistung, plose_WaehrungAbbuchung, plose_DokumentNrQuittungUhrzeit, plose_ArtTransaktion, plose_Fahrzeugklasse, plose_KlassenidentifikationEURO, plose_ProduktbeschreibungShort, plose_TransaktionUhrzeit, plose_Geraetetyp, plose_ProduktCode, plose_ReferenzenBuchungMaut, plose_Fakturiert, plose_FakturiertDatum, plose_Archiv, plose_ArchiviertDatum, plose_tstmp, Original_plose_Id, Original_plose_plInvId, Original_plose_RechnungsDatum, Original_plose_RechnungsNr, Original_plose_SupplierRechnungsDatum, Original_plose_SupplierRechnungsNr, Original_plose_Lieferant, Original_plose_LieferantCode, Original_plose_RechnungsJahr, Original_plose_Dateiname, Original_plose_Einlesedatum, Original_plose_Datensatztyp, Original_plose_KodexMautTankstelle, Original_plose_BeschreibungMautTankstelle, Original_plose_KodexEinfahrt, Original_plose_BeschreibungEinfahrt, Original_plose_KodexAusfahrt, Original_plose_BeschreibungAusfahrt, Original_plose_Kartenkodex, Original_plose_Kontonummer, Original_plose_NummerKarteGeraet, Original_plose_Kennzeichen, Original_plose_InterneNrFahrzeug, Original_plose_POLSEKundennummer, Original_plose_Firmenname, Original_plose_DatumTransaktion, Original_plose_Produktbeschreibung, Original_plose_Menge, Original_plose_Preis, Original_Einheitsrabatt, Original_plose_NettobetragTransaktion, Original_plose_MWSTBetrag, Original_plose_BruttobetragTransaktion, Original_plose_NettobetragWaehrungAbbuchung, Original_plose_MWSTBetragWaehrungAbbuchung, Original_plose_BruttobetragWaehrungAbbuchung, Original_plose_WaehrungLandDiesntleistung, Original_plose_WaehrungAbbuchung, Original_plose_DokumentNrQuittungUhrzeit, Original_plose_ArtTransaktion, Original_plose_Fahrzeugklasse, Original_plose_KlassenidentifikationEURO, Original_plose_ProduktbeschreibungShort, Original_plose_TransaktionUhrzeit, Original_plose_Geraetetyp, Original_plose_ProduktCode, Original_plose_ReferenzenBuchungMaut, Original_plose_Fakturiert, Original_plose_FakturiertDatum, Original_plose_Archiv, Original_plose_ArchiviertDatum, Original_plose_tstmp, Original_plose_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPLOSE_Inv_DataTableAdapter 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 = "tblPLOSE_Inv_Data" tableMapping.ColumnMappings.Add("plInv_Id", "plInv_Id") tableMapping.ColumnMappings.Add("plInv_SupplierRechnungsDatum", "plInv_SupplierRechnungsDatum") tableMapping.ColumnMappings.Add("plInv_SupplierRechnungsNr", "plInv_SupplierRechnungsNr") tableMapping.ColumnMappings.Add("plInv_SupplierCountry", "plInv_SupplierCountry") tableMapping.ColumnMappings.Add("plInv_Lieferant", "plInv_Lieferant") tableMapping.ColumnMappings.Add("plInv_LieferantCode", "plInv_LieferantCode") tableMapping.ColumnMappings.Add("plInv_LieferantUID", "plInv_LieferantUID") tableMapping.ColumnMappings.Add("plInv_RechnungsJahr", "plInv_RechnungsJahr") tableMapping.ColumnMappings.Add("plInv_Dateiname", "plInv_Dateiname") tableMapping.ColumnMappings.Add("plInv_Einlesedatum", "plInv_Einlesedatum") tableMapping.ColumnMappings.Add("plInv_Datensatztyp", "plInv_Datensatztyp") tableMapping.ColumnMappings.Add("plInv_PLOSEKundennummer", "plInv_PLOSEKundennummer") tableMapping.ColumnMappings.Add("plInv_Firmenname", "plInv_Firmenname") tableMapping.ColumnMappings.Add("plInv_Nettobetrag", "plInv_Nettobetrag") tableMapping.ColumnMappings.Add("plInv_MWSTBetrag", "plInv_MWSTBetrag") tableMapping.ColumnMappings.Add("plInv_Bruttobetrag", "plInv_Bruttobetrag") tableMapping.ColumnMappings.Add("plInv_Services", "plInv_Services") tableMapping.ColumnMappings.Add("plInv_tstmp", "plInv_tstmp") tableMapping.ColumnMappings.Add("plInv_daId", "plInv_daId") tableMapping.ColumnMappings.Add("plInv_PdfFileName", "plInv_PdfFileName") 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].[tblPLOSE_Inv_Data] WHERE (([plInv_Id] = @Original_plInv_Id) AN"& _ "D ((@IsNull_plInv_SupplierRechnungsDatum = 1 AND [plInv_SupplierRechnungsDatum] "& _ "IS NULL) OR ([plInv_SupplierRechnungsDatum] = @Original_plInv_SupplierRechnungsD"& _ "atum)) AND ((@IsNull_plInv_SupplierRechnungsNr = 1 AND [plInv_SupplierRechnungsN"& _ "r] IS NULL) OR ([plInv_SupplierRechnungsNr] = @Original_plInv_SupplierRechnungsN"& _ "r)) AND ((@IsNull_plInv_SupplierCountry = 1 AND [plInv_SupplierCountry] IS NULL)"& _ " OR ([plInv_SupplierCountry] = @Original_plInv_SupplierCountry)) AND ((@IsNull_p"& _ "lInv_Lieferant = 1 AND [plInv_Lieferant] IS NULL) OR ([plInv_Lieferant] = @Origi"& _ "nal_plInv_Lieferant)) AND ((@IsNull_plInv_LieferantCode = 1 AND [plInv_Lieferant"& _ "Code] IS NULL) OR ([plInv_LieferantCode] = @Original_plInv_LieferantCode)) AND ("& _ "(@IsNull_plInv_LieferantUID = 1 AND [plInv_LieferantUID] IS NULL) OR ([plInv_Lie"& _ "ferantUID] = @Original_plInv_LieferantUID)) AND ((@IsNull_plInv_RechnungsJahr = "& _ "1 AND [plInv_RechnungsJahr] IS NULL) OR ([plInv_RechnungsJahr] = @Original_plInv"& _ "_RechnungsJahr)) AND ((@IsNull_plInv_Dateiname = 1 AND [plInv_Dateiname] IS NULL"& _ ") OR ([plInv_Dateiname] = @Original_plInv_Dateiname)) AND ((@IsNull_plInv_Einles"& _ "edatum = 1 AND [plInv_Einlesedatum] IS NULL) OR ([plInv_Einlesedatum] = @Origina"& _ "l_plInv_Einlesedatum)) AND ((@IsNull_plInv_Datensatztyp = 1 AND [plInv_Datensatz"& _ "typ] IS NULL) OR ([plInv_Datensatztyp] = @Original_plInv_Datensatztyp)) AND ((@I"& _ "sNull_plInv_PLOSEKundennummer = 1 AND [plInv_PLOSEKundennummer] IS NULL) OR ([pl"& _ "Inv_PLOSEKundennummer] = @Original_plInv_PLOSEKundennummer)) AND ((@IsNull_plInv"& _ "_Firmenname = 1 AND [plInv_Firmenname] IS NULL) OR ([plInv_Firmenname] = @Origin"& _ "al_plInv_Firmenname)) AND ((@IsNull_plInv_Nettobetrag = 1 AND [plInv_Nettobetrag"& _ "] IS NULL) OR ([plInv_Nettobetrag] = @Original_plInv_Nettobetrag)) AND ((@IsNull"& _ "_plInv_MWSTBetrag = 1 AND [plInv_MWSTBetrag] IS NULL) OR ([plInv_MWSTBetrag] = @"& _ "Original_plInv_MWSTBetrag)) AND ((@IsNull_plInv_Bruttobetrag = 1 AND [plInv_Brut"& _ "tobetrag] IS NULL) OR ([plInv_Bruttobetrag] = @Original_plInv_Bruttobetrag)) AND"& _ " ((@IsNull_plInv_Services = 1 AND [plInv_Services] IS NULL) OR ([plInv_Services]"& _ " = @Original_plInv_Services)) AND ((@IsNull_plInv_tstmp = 1 AND [plInv_tstmp] IS"& _ " NULL) OR ([plInv_tstmp] = @Original_plInv_tstmp)) AND ((@IsNull_plInv_daId = 1 "& _ "AND [plInv_daId] IS NULL) OR ([plInv_daId] = @Original_plInv_daId)) AND ((@IsNul"& _ "l_plInv_PdfFileName = 1 AND [plInv_PdfFileName] IS NULL) OR ([plInv_PdfFileName]"& _ " = @Original_plInv_PdfFileName)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_SupplierRechnungsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_SupplierRechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_SupplierRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_SupplierRechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_SupplierCountry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierCountry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_SupplierCountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierCountry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Lieferant", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Lieferant", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Lieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Lieferant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_LieferantCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_LieferantCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_LieferantUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantUID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_LieferantUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_RechnungsJahr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_RechnungsJahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Dateiname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Dateiname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Dateiname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Dateiname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Einlesedatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Einlesedatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Einlesedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Einlesedatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Datensatztyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Datensatztyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Datensatztyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Datensatztyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_PLOSEKundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PLOSEKundennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_PLOSEKundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PLOSEKundennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Firmenname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Firmenname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Firmenname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Nettobetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Nettobetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Nettobetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_Nettobetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_MWSTBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_MWSTBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_MWSTBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_MWSTBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Bruttobetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Bruttobetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Bruttobetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_Bruttobetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Services", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Services", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Services", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Services", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_tstmp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_tstmp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_tstmp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_daId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_daId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_PdfFileName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PdfFileName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_PdfFileName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PdfFileName", 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].[tblPLOSE_Inv_Data] ([plInv_SupplierRechnungsDatum], [plInv_Sup"& _ "plierRechnungsNr], [plInv_SupplierCountry], [plInv_Lieferant], [plInv_LieferantC"& _ "ode], [plInv_LieferantUID], [plInv_RechnungsJahr], [plInv_Dateiname], [plInv_Ein"& _ "lesedatum], [plInv_Datensatztyp], [plInv_PLOSEKundennummer], [plInv_Firmenname],"& _ " [plInv_Nettobetrag], [plInv_MWSTBetrag], [plInv_Bruttobetrag], [plInv_Services]"& _ ", [plInv_tstmp], [plInv_daId], [plInv_PdfFileName]) VALUES (@plInv_SupplierRechn"& _ "ungsDatum, @plInv_SupplierRechnungsNr, @plInv_SupplierCountry, @plInv_Lieferant,"& _ " @plInv_LieferantCode, @plInv_LieferantUID, @plInv_RechnungsJahr, @plInv_Dateina"& _ "me, @plInv_Einlesedatum, @plInv_Datensatztyp, @plInv_PLOSEKundennummer, @plInv_F"& _ "irmenname, @plInv_Nettobetrag, @plInv_MWSTBetrag, @plInv_Bruttobetrag, @plInv_Se"& _ "rvices, @plInv_tstmp, @plInv_daId, @plInv_PdfFileName);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT plInv_Id, plInv_"& _ "SupplierRechnungsDatum, plInv_SupplierRechnungsNr, plInv_SupplierCountry, plInv_"& _ "Lieferant, plInv_LieferantCode, plInv_LieferantUID, plInv_RechnungsJahr, plInv_D"& _ "ateiname, plInv_Einlesedatum, plInv_Datensatztyp, plInv_PLOSEKundennummer, plInv"& _ "_Firmenname, plInv_Nettobetrag, plInv_MWSTBetrag, plInv_Bruttobetrag, plInv_Serv"& _ "ices, plInv_tstmp, plInv_daId, plInv_PdfFileName FROM tblPLOSE_Inv_Data WHERE (p"& _ "lInv_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_SupplierRechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_SupplierRechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_SupplierCountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierCountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Lieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Lieferant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_LieferantCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_LieferantUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_RechnungsJahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Dateiname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Einlesedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Einlesedatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Datensatztyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Datensatztyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_PLOSEKundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PLOSEKundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Firmenname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Nettobetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_Nettobetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_MWSTBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_MWSTBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Bruttobetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_Bruttobetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Services", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Services", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_tstmp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_daId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_PdfFileName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PdfFileName", 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].[tblPLOSE_Inv_Data] SET [plInv_SupplierRechnungsDatum] = @plInv_Supp"& _ "lierRechnungsDatum, [plInv_SupplierRechnungsNr] = @plInv_SupplierRechnungsNr, [p"& _ "lInv_SupplierCountry] = @plInv_SupplierCountry, [plInv_Lieferant] = @plInv_Liefe"& _ "rant, [plInv_LieferantCode] = @plInv_LieferantCode, [plInv_LieferantUID] = @plIn"& _ "v_LieferantUID, [plInv_RechnungsJahr] = @plInv_RechnungsJahr, [plInv_Dateiname] "& _ "= @plInv_Dateiname, [plInv_Einlesedatum] = @plInv_Einlesedatum, [plInv_Datensatz"& _ "typ] = @plInv_Datensatztyp, [plInv_PLOSEKundennummer] = @plInv_PLOSEKundennummer"& _ ", [plInv_Firmenname] = @plInv_Firmenname, [plInv_Nettobetrag] = @plInv_Nettobetr"& _ "ag, [plInv_MWSTBetrag] = @plInv_MWSTBetrag, [plInv_Bruttobetrag] = @plInv_Brutto"& _ "betrag, [plInv_Services] = @plInv_Services, [plInv_tstmp] = @plInv_tstmp, [plInv"& _ "_daId] = @plInv_daId, [plInv_PdfFileName] = @plInv_PdfFileName WHERE (([plInv_Id"& _ "] = @Original_plInv_Id) AND ((@IsNull_plInv_SupplierRechnungsDatum = 1 AND [plIn"& _ "v_SupplierRechnungsDatum] IS NULL) OR ([plInv_SupplierRechnungsDatum] = @Origina"& _ "l_plInv_SupplierRechnungsDatum)) AND ((@IsNull_plInv_SupplierRechnungsNr = 1 AND"& _ " [plInv_SupplierRechnungsNr] IS NULL) OR ([plInv_SupplierRechnungsNr] = @Origina"& _ "l_plInv_SupplierRechnungsNr)) AND ((@IsNull_plInv_SupplierCountry = 1 AND [plInv"& _ "_SupplierCountry] IS NULL) OR ([plInv_SupplierCountry] = @Original_plInv_Supplie"& _ "rCountry)) AND ((@IsNull_plInv_Lieferant = 1 AND [plInv_Lieferant] IS NULL) OR ("& _ "[plInv_Lieferant] = @Original_plInv_Lieferant)) AND ((@IsNull_plInv_LieferantCod"& _ "e = 1 AND [plInv_LieferantCode] IS NULL) OR ([plInv_LieferantCode] = @Original_p"& _ "lInv_LieferantCode)) AND ((@IsNull_plInv_LieferantUID = 1 AND [plInv_LieferantUI"& _ "D] IS NULL) OR ([plInv_LieferantUID] = @Original_plInv_LieferantUID)) AND ((@IsN"& _ "ull_plInv_RechnungsJahr = 1 AND [plInv_RechnungsJahr] IS NULL) OR ([plInv_Rechnu"& _ "ngsJahr] = @Original_plInv_RechnungsJahr)) AND ((@IsNull_plInv_Dateiname = 1 AND"& _ " [plInv_Dateiname] IS NULL) OR ([plInv_Dateiname] = @Original_plInv_Dateiname)) "& _ "AND ((@IsNull_plInv_Einlesedatum = 1 AND [plInv_Einlesedatum] IS NULL) OR ([plIn"& _ "v_Einlesedatum] = @Original_plInv_Einlesedatum)) AND ((@IsNull_plInv_Datensatzty"& _ "p = 1 AND [plInv_Datensatztyp] IS NULL) OR ([plInv_Datensatztyp] = @Original_plI"& _ "nv_Datensatztyp)) AND ((@IsNull_plInv_PLOSEKundennummer = 1 AND [plInv_PLOSEKund"& _ "ennummer] IS NULL) OR ([plInv_PLOSEKundennummer] = @Original_plInv_PLOSEKundennu"& _ "mmer)) AND ((@IsNull_plInv_Firmenname = 1 AND [plInv_Firmenname] IS NULL) OR ([p"& _ "lInv_Firmenname] = @Original_plInv_Firmenname)) AND ((@IsNull_plInv_Nettobetrag "& _ "= 1 AND [plInv_Nettobetrag] IS NULL) OR ([plInv_Nettobetrag] = @Original_plInv_N"& _ "ettobetrag)) AND ((@IsNull_plInv_MWSTBetrag = 1 AND [plInv_MWSTBetrag] IS NULL) "& _ "OR ([plInv_MWSTBetrag] = @Original_plInv_MWSTBetrag)) AND ((@IsNull_plInv_Brutto"& _ "betrag = 1 AND [plInv_Bruttobetrag] IS NULL) OR ([plInv_Bruttobetrag] = @Origina"& _ "l_plInv_Bruttobetrag)) AND ((@IsNull_plInv_Services = 1 AND [plInv_Services] IS "& _ "NULL) OR ([plInv_Services] = @Original_plInv_Services)) AND ((@IsNull_plInv_tstm"& _ "p = 1 AND [plInv_tstmp] IS NULL) OR ([plInv_tstmp] = @Original_plInv_tstmp)) AND"& _ " ((@IsNull_plInv_daId = 1 AND [plInv_daId] IS NULL) OR ([plInv_daId] = @Original"& _ "_plInv_daId)) AND ((@IsNull_plInv_PdfFileName = 1 AND [plInv_PdfFileName] IS NUL"& _ "L) OR ([plInv_PdfFileName] = @Original_plInv_PdfFileName)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT plInv_Id, p"& _ "lInv_SupplierRechnungsDatum, plInv_SupplierRechnungsNr, plInv_SupplierCountry, p"& _ "lInv_Lieferant, plInv_LieferantCode, plInv_LieferantUID, plInv_RechnungsJahr, pl"& _ "Inv_Dateiname, plInv_Einlesedatum, plInv_Datensatztyp, plInv_PLOSEKundennummer, "& _ "plInv_Firmenname, plInv_Nettobetrag, plInv_MWSTBetrag, plInv_Bruttobetrag, plInv"& _ "_Services, plInv_tstmp, plInv_daId, plInv_PdfFileName FROM tblPLOSE_Inv_Data WHE"& _ "RE (plInv_Id = @plInv_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_SupplierRechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_SupplierRechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_SupplierCountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierCountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Lieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Lieferant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_LieferantCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_LieferantUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_RechnungsJahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Dateiname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Einlesedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Einlesedatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Datensatztyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Datensatztyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_PLOSEKundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PLOSEKundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Firmenname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Nettobetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_Nettobetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_MWSTBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_MWSTBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Bruttobetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_Bruttobetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Services", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Services", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_tstmp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_daId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_PdfFileName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PdfFileName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_SupplierRechnungsDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_SupplierRechnungsDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_SupplierRechnungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_SupplierRechnungsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierRechnungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_SupplierCountry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierCountry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_SupplierCountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_SupplierCountry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Lieferant", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Lieferant", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Lieferant", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Lieferant", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_LieferantCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_LieferantCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_LieferantUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantUID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_LieferantUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_LieferantUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_RechnungsJahr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_RechnungsJahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_RechnungsJahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Dateiname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Dateiname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Dateiname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Dateiname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Einlesedatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Einlesedatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Einlesedatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Einlesedatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Datensatztyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Datensatztyp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Datensatztyp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Datensatztyp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_PLOSEKundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PLOSEKundennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_PLOSEKundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PLOSEKundennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Firmenname", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Firmenname", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Firmenname", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Firmenname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Nettobetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Nettobetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Nettobetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_Nettobetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_MWSTBetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_MWSTBetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_MWSTBetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_MWSTBetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Bruttobetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Bruttobetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Bruttobetrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 12, 2, "plInv_Bruttobetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_Services", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Services", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_Services", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Services", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_tstmp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_tstmp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_tstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_tstmp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_daId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_daId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plInv_PdfFileName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PdfFileName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plInv_PdfFileName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_PdfFileName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plInv_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "plInv_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 plInv_Id, plInv_SupplierRechnungsDatum, plInv_SupplierRechnungsNr, plInv_S"& _ "upplierCountry, plInv_Lieferant, plInv_LieferantCode, plInv_LieferantUID, plInv_"& _ "RechnungsJahr, plInv_Dateiname, plInv_Einlesedatum, plInv_Datensatztyp, plInv_PL"& _ "OSEKundennummer, plInv_Firmenname, plInv_Nettobetrag, plInv_MWSTBetrag, plInv_Br"& _ "uttobetrag, plInv_Services, plInv_tstmp, plInv_daId, plInv_PdfFileName FROM dbo."& _ "tblPLOSE_Inv_Data" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPLOSE_Inv_DataDataTable) 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 VERAGDataSet.tblPLOSE_Inv_DataDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPLOSE_Inv_DataDataTable = New VERAGDataSet.tblPLOSE_Inv_DataDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPLOSE_Inv_DataDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPLOSE_Inv_Data") 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_plInv_Id As Integer, _ ByVal Original_plInv_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_plInv_SupplierRechnungsNr As String, _ ByVal Original_plInv_SupplierCountry As String, _ ByVal Original_plInv_Lieferant As String, _ ByVal Original_plInv_LieferantCode As String, _ ByVal Original_plInv_LieferantUID As String, _ ByVal Original_plInv_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal Original_plInv_Dateiname As String, _ ByVal Original_plInv_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal Original_plInv_Datensatztyp As String, _ ByVal Original_plInv_PLOSEKundennummer As String, _ ByVal Original_plInv_Firmenname As String, _ ByVal Original_plInv_Nettobetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plInv_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plInv_Bruttobetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plInv_Services As String, _ ByVal Original_plInv_tstmp As Global.System.Nullable(Of Date), _ ByVal Original_plInv_daId As Global.System.Nullable(Of Integer), _ ByVal Original_plInv_PdfFileName As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_plInv_Id,Integer) If (Original_plInv_SupplierRechnungsDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_plInv_SupplierRechnungsDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Original_plInv_SupplierRechnungsNr 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_plInv_SupplierRechnungsNr,String) End If If (Original_plInv_SupplierCountry 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_plInv_SupplierCountry,String) End If If (Original_plInv_Lieferant 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_plInv_Lieferant,String) End If If (Original_plInv_LieferantCode 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_plInv_LieferantCode,String) End If If (Original_plInv_LieferantUID 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_plInv_LieferantUID,String) End If If (Original_plInv_RechnungsJahr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_plInv_RechnungsJahr.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_plInv_Dateiname Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_plInv_Dateiname,String) End If If (Original_plInv_Einlesedatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_plInv_Einlesedatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Original_plInv_Datensatztyp Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_plInv_Datensatztyp,String) End If If (Original_plInv_PLOSEKundennummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_plInv_PLOSEKundennummer,String) End If If (Original_plInv_Firmenname Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_plInv_Firmenname,String) End If If (Original_plInv_Nettobetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_plInv_Nettobetrag.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_plInv_MWSTBetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_plInv_MWSTBetrag.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_plInv_Bruttobetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_plInv_Bruttobetrag.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_plInv_Services Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_plInv_Services,String) End If If (Original_plInv_tstmp.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_plInv_tstmp.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_plInv_daId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_plInv_daId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Original_plInv_PdfFileName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_plInv_PdfFileName,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 plInv_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal plInv_SupplierRechnungsNr As String, _ ByVal plInv_SupplierCountry As String, _ ByVal plInv_Lieferant As String, _ ByVal plInv_LieferantCode As String, _ ByVal plInv_LieferantUID As String, _ ByVal plInv_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal plInv_Dateiname As String, _ ByVal plInv_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal plInv_Datensatztyp As String, _ ByVal plInv_PLOSEKundennummer As String, _ ByVal plInv_Firmenname As String, _ ByVal plInv_Nettobetrag As Global.System.Nullable(Of Decimal), _ ByVal plInv_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal plInv_Bruttobetrag As Global.System.Nullable(Of Decimal), _ ByVal plInv_Services As String, _ ByVal plInv_tstmp As Global.System.Nullable(Of Date), _ ByVal plInv_daId As Global.System.Nullable(Of Integer), _ ByVal plInv_PdfFileName As String) As Integer If (plInv_SupplierRechnungsDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(plInv_SupplierRechnungsDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (plInv_SupplierRechnungsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(plInv_SupplierRechnungsNr,String) End If If (plInv_SupplierCountry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(plInv_SupplierCountry,String) End If If (plInv_Lieferant Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(plInv_Lieferant,String) End If If (plInv_LieferantCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(plInv_LieferantCode,String) End If If (plInv_LieferantUID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(plInv_LieferantUID,String) End If If (plInv_RechnungsJahr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(plInv_RechnungsJahr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (plInv_Dateiname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(plInv_Dateiname,String) End If If (plInv_Einlesedatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(plInv_Einlesedatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (plInv_Datensatztyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(plInv_Datensatztyp,String) End If If (plInv_PLOSEKundennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(plInv_PLOSEKundennummer,String) End If If (plInv_Firmenname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(plInv_Firmenname,String) End If If (plInv_Nettobetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(plInv_Nettobetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (plInv_MWSTBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(plInv_MWSTBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (plInv_Bruttobetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(plInv_Bruttobetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (plInv_Services Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(plInv_Services,String) End If If (plInv_tstmp.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(plInv_tstmp.Value,Date) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (plInv_daId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(plInv_daId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (plInv_PdfFileName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(plInv_PdfFileName,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 plInv_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal plInv_SupplierRechnungsNr As String, _ ByVal plInv_SupplierCountry As String, _ ByVal plInv_Lieferant As String, _ ByVal plInv_LieferantCode As String, _ ByVal plInv_LieferantUID As String, _ ByVal plInv_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal plInv_Dateiname As String, _ ByVal plInv_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal plInv_Datensatztyp As String, _ ByVal plInv_PLOSEKundennummer As String, _ ByVal plInv_Firmenname As String, _ ByVal plInv_Nettobetrag As Global.System.Nullable(Of Decimal), _ ByVal plInv_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal plInv_Bruttobetrag As Global.System.Nullable(Of Decimal), _ ByVal plInv_Services As String, _ ByVal plInv_tstmp As Global.System.Nullable(Of Date), _ ByVal plInv_daId As Global.System.Nullable(Of Integer), _ ByVal plInv_PdfFileName As String, _ ByVal Original_plInv_Id As Integer, _ ByVal Original_plInv_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_plInv_SupplierRechnungsNr As String, _ ByVal Original_plInv_SupplierCountry As String, _ ByVal Original_plInv_Lieferant As String, _ ByVal Original_plInv_LieferantCode As String, _ ByVal Original_plInv_LieferantUID As String, _ ByVal Original_plInv_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal Original_plInv_Dateiname As String, _ ByVal Original_plInv_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal Original_plInv_Datensatztyp As String, _ ByVal Original_plInv_PLOSEKundennummer As String, _ ByVal Original_plInv_Firmenname As String, _ ByVal Original_plInv_Nettobetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plInv_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plInv_Bruttobetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plInv_Services As String, _ ByVal Original_plInv_tstmp As Global.System.Nullable(Of Date), _ ByVal Original_plInv_daId As Global.System.Nullable(Of Integer), _ ByVal Original_plInv_PdfFileName As String, _ ByVal plInv_Id As Integer) As Integer If (plInv_SupplierRechnungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(plInv_SupplierRechnungsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (plInv_SupplierRechnungsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(plInv_SupplierRechnungsNr,String) End If If (plInv_SupplierCountry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(plInv_SupplierCountry,String) End If If (plInv_Lieferant Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(plInv_Lieferant,String) End If If (plInv_LieferantCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(plInv_LieferantCode,String) End If If (plInv_LieferantUID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(plInv_LieferantUID,String) End If If (plInv_RechnungsJahr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(plInv_RechnungsJahr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (plInv_Dateiname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(plInv_Dateiname,String) End If If (plInv_Einlesedatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(plInv_Einlesedatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (plInv_Datensatztyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(plInv_Datensatztyp,String) End If If (plInv_PLOSEKundennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(plInv_PLOSEKundennummer,String) End If If (plInv_Firmenname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(plInv_Firmenname,String) End If If (plInv_Nettobetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(plInv_Nettobetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (plInv_MWSTBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(plInv_MWSTBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (plInv_Bruttobetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(plInv_Bruttobetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (plInv_Services Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(plInv_Services,String) End If If (plInv_tstmp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(plInv_tstmp.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (plInv_daId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(plInv_daId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (plInv_PdfFileName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(plInv_PdfFileName,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_plInv_Id,Integer) If (Original_plInv_SupplierRechnungsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_plInv_SupplierRechnungsDatum.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_plInv_SupplierRechnungsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_plInv_SupplierRechnungsNr,String) End If If (Original_plInv_SupplierCountry 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_plInv_SupplierCountry,String) End If If (Original_plInv_Lieferant 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_plInv_Lieferant,String) End If If (Original_plInv_LieferantCode 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_plInv_LieferantCode,String) End If If (Original_plInv_LieferantUID 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_plInv_LieferantUID,String) End If If (Original_plInv_RechnungsJahr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_plInv_RechnungsJahr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_plInv_Dateiname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_plInv_Dateiname,String) End If If (Original_plInv_Einlesedatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_plInv_Einlesedatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Original_plInv_Datensatztyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_plInv_Datensatztyp,String) End If If (Original_plInv_PLOSEKundennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_plInv_PLOSEKundennummer,String) End If If (Original_plInv_Firmenname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_plInv_Firmenname,String) End If If (Original_plInv_Nettobetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_plInv_Nettobetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Original_plInv_MWSTBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_plInv_MWSTBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (Original_plInv_Bruttobetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_plInv_Bruttobetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Original_plInv_Services Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_plInv_Services,String) End If If (Original_plInv_tstmp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_plInv_tstmp.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_plInv_daId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_plInv_daId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Original_plInv_PdfFileName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_plInv_PdfFileName,String) End If Me.Adapter.UpdateCommand.Parameters(58).Value = CType(plInv_Id,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 plInv_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal plInv_SupplierRechnungsNr As String, _ ByVal plInv_SupplierCountry As String, _ ByVal plInv_Lieferant As String, _ ByVal plInv_LieferantCode As String, _ ByVal plInv_LieferantUID As String, _ ByVal plInv_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal plInv_Dateiname As String, _ ByVal plInv_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal plInv_Datensatztyp As String, _ ByVal plInv_PLOSEKundennummer As String, _ ByVal plInv_Firmenname As String, _ ByVal plInv_Nettobetrag As Global.System.Nullable(Of Decimal), _ ByVal plInv_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal plInv_Bruttobetrag As Global.System.Nullable(Of Decimal), _ ByVal plInv_Services As String, _ ByVal plInv_tstmp As Global.System.Nullable(Of Date), _ ByVal plInv_daId As Global.System.Nullable(Of Integer), _ ByVal plInv_PdfFileName As String, _ ByVal Original_plInv_Id As Integer, _ ByVal Original_plInv_SupplierRechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Original_plInv_SupplierRechnungsNr As String, _ ByVal Original_plInv_SupplierCountry As String, _ ByVal Original_plInv_Lieferant As String, _ ByVal Original_plInv_LieferantCode As String, _ ByVal Original_plInv_LieferantUID As String, _ ByVal Original_plInv_RechnungsJahr As Global.System.Nullable(Of Integer), _ ByVal Original_plInv_Dateiname As String, _ ByVal Original_plInv_Einlesedatum As Global.System.Nullable(Of Date), _ ByVal Original_plInv_Datensatztyp As String, _ ByVal Original_plInv_PLOSEKundennummer As String, _ ByVal Original_plInv_Firmenname As String, _ ByVal Original_plInv_Nettobetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plInv_MWSTBetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plInv_Bruttobetrag As Global.System.Nullable(Of Decimal), _ ByVal Original_plInv_Services As String, _ ByVal Original_plInv_tstmp As Global.System.Nullable(Of Date), _ ByVal Original_plInv_daId As Global.System.Nullable(Of Integer), _ ByVal Original_plInv_PdfFileName As String) As Integer Return Me.Update(plInv_SupplierRechnungsDatum, plInv_SupplierRechnungsNr, plInv_SupplierCountry, plInv_Lieferant, plInv_LieferantCode, plInv_LieferantUID, plInv_RechnungsJahr, plInv_Dateiname, plInv_Einlesedatum, plInv_Datensatztyp, plInv_PLOSEKundennummer, plInv_Firmenname, plInv_Nettobetrag, plInv_MWSTBetrag, plInv_Bruttobetrag, plInv_Services, plInv_tstmp, plInv_daId, plInv_PdfFileName, Original_plInv_Id, Original_plInv_SupplierRechnungsDatum, Original_plInv_SupplierRechnungsNr, Original_plInv_SupplierCountry, Original_plInv_Lieferant, Original_plInv_LieferantCode, Original_plInv_LieferantUID, Original_plInv_RechnungsJahr, Original_plInv_Dateiname, Original_plInv_Einlesedatum, Original_plInv_Datensatztyp, Original_plInv_PLOSEKundennummer, Original_plInv_Firmenname, Original_plInv_Nettobetrag, Original_plInv_MWSTBetrag, Original_plInv_Bruttobetrag, Original_plInv_Services, Original_plInv_tstmp, Original_plInv_daId, Original_plInv_PdfFileName, Original_plInv_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPLOSE_LieferantTableAdapter 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 = "tblPLOSE_Lieferant" tableMapping.ColumnMappings.Add("pl_LieferantCode", "pl_LieferantCode") tableMapping.ColumnMappings.Add("pl_Bezeichnung", "pl_Bezeichnung") tableMapping.ColumnMappings.Add("pl_Land", "pl_Land") tableMapping.ColumnMappings.Add("pl_SupplierCode", "pl_SupplierCode") 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].[tblPLOSE_Lieferant] WHERE (([pl_LieferantCode] = @Original_pl_"& _ "LieferantCode) AND ([pl_Bezeichnung] = @Original_pl_Bezeichnung) AND ([pl_Land] "& _ "= @Original_pl_Land) AND ((@IsNull_pl_SupplierCode = 1 AND [pl_SupplierCode] IS "& _ "NULL) OR ([pl_SupplierCode] = @Original_pl_SupplierCode)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pl_LieferantCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_LieferantCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pl_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_Bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pl_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pl_SupplierCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_SupplierCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pl_SupplierCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_SupplierCode", 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].[tblPLOSE_Lieferant] ([pl_LieferantCode], [pl_Bezeichnung], [pl"& _ "_Land], [pl_SupplierCode]) VALUES (@pl_LieferantCode, @pl_Bezeichnung, @pl_Land,"& _ " @pl_SupplierCode);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pl_LieferantCode, pl_Bezeichnung, pl_Land, pl_Suppli"& _ "erCode FROM tblPLOSE_Lieferant WHERE (pl_LieferantCode = @pl_LieferantCode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pl_LieferantCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_LieferantCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pl_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pl_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pl_SupplierCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_SupplierCode", 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].[tblPLOSE_Lieferant] SET [pl_LieferantCode] = @pl_LieferantCode, [pl"& _ "_Bezeichnung] = @pl_Bezeichnung, [pl_Land] = @pl_Land, [pl_SupplierCode] = @pl_S"& _ "upplierCode WHERE (([pl_LieferantCode] = @Original_pl_LieferantCode) AND ([pl_Be"& _ "zeichnung] = @Original_pl_Bezeichnung) AND ([pl_Land] = @Original_pl_Land) AND ("& _ "(@IsNull_pl_SupplierCode = 1 AND [pl_SupplierCode] IS NULL) OR ([pl_SupplierCode"& _ "] = @Original_pl_SupplierCode)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pl_LieferantCode, pl_Bezeichnung, pl_L"& _ "and, pl_SupplierCode FROM tblPLOSE_Lieferant WHERE (pl_LieferantCode = @pl_Liefe"& _ "rantCode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pl_LieferantCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_LieferantCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pl_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pl_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pl_SupplierCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_SupplierCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pl_LieferantCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_LieferantCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pl_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_Bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pl_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pl_SupplierCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_SupplierCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pl_SupplierCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pl_SupplierCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 pl_LieferantCode, pl_Bezeichnung, pl_Land, pl_SupplierCode FROM dbo.tblPLO"& _ "SE_Lieferant" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPLOSE_LieferantDataTable) 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 VERAGDataSet.tblPLOSE_LieferantDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPLOSE_LieferantDataTable = New VERAGDataSet.tblPLOSE_LieferantDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPLOSE_LieferantDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPLOSE_Lieferant") 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_pl_LieferantCode As Integer, ByVal Original_pl_Bezeichnung As String, ByVal Original_pl_Land As String, ByVal Original_pl_SupplierCode As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_pl_LieferantCode,Integer) If (Original_pl_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pl_Bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_pl_Bezeichnung,String) End If If (Original_pl_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pl_Land") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_pl_Land,String) End If If (Original_pl_SupplierCode 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_pl_SupplierCode,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 pl_LieferantCode As Integer, ByVal pl_Bezeichnung As String, ByVal pl_Land As String, ByVal pl_SupplierCode As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(pl_LieferantCode,Integer) If (pl_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("pl_Bezeichnung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(pl_Bezeichnung,String) End If If (pl_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("pl_Land") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(pl_Land,String) End If If (pl_SupplierCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(pl_SupplierCode,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 pl_LieferantCode As Integer, ByVal pl_Bezeichnung As String, ByVal pl_Land As String, ByVal pl_SupplierCode As String, ByVal Original_pl_LieferantCode As Integer, ByVal Original_pl_Bezeichnung As String, ByVal Original_pl_Land As String, ByVal Original_pl_SupplierCode As String) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(pl_LieferantCode,Integer) If (pl_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("pl_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(pl_Bezeichnung,String) End If If (pl_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("pl_Land") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(pl_Land,String) End If If (pl_SupplierCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(pl_SupplierCode,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_pl_LieferantCode,Integer) If (Original_pl_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pl_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_pl_Bezeichnung,String) End If If (Original_pl_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pl_Land") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_pl_Land,String) End If If (Original_pl_SupplierCode 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_pl_SupplierCode,String) End If 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 pl_Bezeichnung As String, ByVal pl_Land As String, ByVal pl_SupplierCode As String, ByVal Original_pl_LieferantCode As Integer, ByVal Original_pl_Bezeichnung As String, ByVal Original_pl_Land As String, ByVal Original_pl_SupplierCode As String) As Integer Return Me.Update(Original_pl_LieferantCode, pl_Bezeichnung, pl_Land, pl_SupplierCode, Original_pl_LieferantCode, Original_pl_Bezeichnung, Original_pl_Land, Original_pl_SupplierCode) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPLOSE_ProduktbeschreibungTableAdapter 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 = "tblPLOSE_Produktbeschreibung" tableMapping.ColumnMappings.Add("plp_ProductCode", "plp_ProductCode") tableMapping.ColumnMappings.Add("plp_Land", "plp_Land") tableMapping.ColumnMappings.Add("plp_Firma", "plp_Firma") tableMapping.ColumnMappings.Add("plp_Description_DE", "plp_Description_DE") tableMapping.ColumnMappings.Add("plp_Description_EN", "plp_Description_EN") tableMapping.ColumnMappings.Add("plp_Description_IT", "plp_Description_IT") tableMapping.ColumnMappings.Add("plp_LeistungsNr", "plp_LeistungsNr") tableMapping.ColumnMappings.Add("plp_Kategorie", "plp_Kategorie") tableMapping.ColumnMappings.Add("plp_einarbeiten", "plp_einarbeiten") 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].[tblPLOSE_Produktbeschreibung] WHERE (([plp_ProductCode] = @Ori"& _ "ginal_plp_ProductCode) AND ([plp_Land] = @Original_plp_Land) AND ([plp_Firma] = "& _ "@Original_plp_Firma) AND ((@IsNull_plp_Description_DE = 1 AND [plp_Description_D"& _ "E] IS NULL) OR ([plp_Description_DE] = @Original_plp_Description_DE)) AND ((@IsN"& _ "ull_plp_Description_EN = 1 AND [plp_Description_EN] IS NULL) OR ([plp_Descriptio"& _ "n_EN] = @Original_plp_Description_EN)) AND ((@IsNull_plp_Description_IT = 1 AND "& _ "[plp_Description_IT] IS NULL) OR ([plp_Description_IT] = @Original_plp_Descripti"& _ "on_IT)) AND ((@IsNull_plp_LeistungsNr = 1 AND [plp_LeistungsNr] IS NULL) OR ([pl"& _ "p_LeistungsNr] = @Original_plp_LeistungsNr)) AND ((@IsNull_plp_Kategorie = 1 AND"& _ " [plp_Kategorie] IS NULL) OR ([plp_Kategorie] = @Original_plp_Kategorie)) AND (("& _ "@IsNull_plp_einarbeiten = 1 AND [plp_einarbeiten] IS NULL) OR ([plp_einarbeiten]"& _ " = @Original_plp_einarbeiten)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_ProductCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_ProductCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_Description_DE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_DE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Description_DE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_DE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_Description_EN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_EN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Description_EN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_EN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_Description_IT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_IT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Description_IT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_IT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_LeistungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_LeistungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_LeistungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_Kategorie", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Kategorie", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Kategorie", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Kategorie", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_einarbeiten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_einarbeiten", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_einarbeiten", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_einarbeiten", 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].[tblPLOSE_Produktbeschreibung] ([plp_ProductCode], [plp_Land], "& _ "[plp_Firma], [plp_Description_DE], [plp_Description_EN], [plp_Description_IT], ["& _ "plp_LeistungsNr], [plp_Kategorie], [plp_einarbeiten]) VALUES (@plp_ProductCode, "& _ "@plp_Land, @plp_Firma, @plp_Description_DE, @plp_Description_EN, @plp_Descriptio"& _ "n_IT, @plp_LeistungsNr, @plp_Kategorie, @plp_einarbeiten);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT plp_ProductCo"& _ "de, plp_Land, plp_Firma, plp_Description_DE, plp_Description_EN, plp_Description"& _ "_IT, plp_LeistungsNr, plp_Kategorie, plp_einarbeiten FROM tblPLOSE_Produktbeschr"& _ "eibung WHERE (plp_Firma = @plp_Firma) AND (plp_ProductCode = @plp_ProductCode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_ProductCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_ProductCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Description_DE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_DE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Description_EN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_EN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Description_IT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_IT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_LeistungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Kategorie", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Kategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_einarbeiten", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_einarbeiten", 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].[tblPLOSE_Produktbeschreibung] SET [plp_ProductCode] = @plp_ProductC"& _ "ode, [plp_Land] = @plp_Land, [plp_Firma] = @plp_Firma, [plp_Description_DE] = @p"& _ "lp_Description_DE, [plp_Description_EN] = @plp_Description_EN, [plp_Description_"& _ "IT] = @plp_Description_IT, [plp_LeistungsNr] = @plp_LeistungsNr, [plp_Kategorie]"& _ " = @plp_Kategorie, [plp_einarbeiten] = @plp_einarbeiten WHERE (([plp_ProductCode"& _ "] = @Original_plp_ProductCode) AND ([plp_Land] = @Original_plp_Land) AND ([plp_F"& _ "irma] = @Original_plp_Firma) AND ((@IsNull_plp_Description_DE = 1 AND [plp_Descr"& _ "iption_DE] IS NULL) OR ([plp_Description_DE] = @Original_plp_Description_DE)) AN"& _ "D ((@IsNull_plp_Description_EN = 1 AND [plp_Description_EN] IS NULL) OR ([plp_De"& _ "scription_EN] = @Original_plp_Description_EN)) AND ((@IsNull_plp_Description_IT "& _ "= 1 AND [plp_Description_IT] IS NULL) OR ([plp_Description_IT] = @Original_plp_D"& _ "escription_IT)) AND ((@IsNull_plp_LeistungsNr = 1 AND [plp_LeistungsNr] IS NULL)"& _ " OR ([plp_LeistungsNr] = @Original_plp_LeistungsNr)) AND ((@IsNull_plp_Kategorie"& _ " = 1 AND [plp_Kategorie] IS NULL) OR ([plp_Kategorie] = @Original_plp_Kategorie)"& _ ") AND ((@IsNull_plp_einarbeiten = 1 AND [plp_einarbeiten] IS NULL) OR ([plp_eina"& _ "rbeiten] = @Original_plp_einarbeiten)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT plp_ProductCode, plp_Land, plp_"& _ "Firma, plp_Description_DE, plp_Description_EN, plp_Description_IT, plp_Leistungs"& _ "Nr, plp_Kategorie, plp_einarbeiten FROM tblPLOSE_Produktbeschreibung WHERE (plp_"& _ "Firma = @plp_Firma) AND (plp_ProductCode = @plp_ProductCode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_ProductCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_ProductCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Description_DE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_DE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Description_EN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_EN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Description_IT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_IT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_LeistungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_Kategorie", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Kategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@plp_einarbeiten", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_einarbeiten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_ProductCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_ProductCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Land", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_Description_DE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_DE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Description_DE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_DE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_Description_EN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_EN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Description_EN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_EN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_Description_IT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_IT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Description_IT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Description_IT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_LeistungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_LeistungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_LeistungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_Kategorie", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Kategorie", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_Kategorie", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_Kategorie", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_plp_einarbeiten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_einarbeiten", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_plp_einarbeiten", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "plp_einarbeiten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 plp_ProductCode, plp_Land, plp_Firma, plp_Description_DE, plp_Description_"& _ "EN, plp_Description_IT, plp_LeistungsNr, plp_Kategorie, plp_einarbeiten FROM dbo"& _ ".tblPLOSE_Produktbeschreibung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPLOSE_ProduktbeschreibungDataTable) 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 VERAGDataSet.tblPLOSE_ProduktbeschreibungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPLOSE_ProduktbeschreibungDataTable = New VERAGDataSet.tblPLOSE_ProduktbeschreibungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPLOSE_ProduktbeschreibungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPLOSE_Produktbeschreibung") 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_plp_ProductCode As Integer, ByVal Original_plp_Land As String, ByVal Original_plp_Firma As String, ByVal Original_plp_Description_DE As String, ByVal Original_plp_Description_EN As String, ByVal Original_plp_Description_IT As String, ByVal Original_plp_LeistungsNr As Global.System.Nullable(Of Integer), ByVal Original_plp_Kategorie As String, ByVal Original_plp_einarbeiten As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_plp_ProductCode,Integer) If (Original_plp_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_plp_Land") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_plp_Land,String) End If If (Original_plp_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_plp_Firma") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_plp_Firma,String) End If If (Original_plp_Description_DE 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_plp_Description_DE,String) End If If (Original_plp_Description_EN 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_plp_Description_EN,String) End If If (Original_plp_Description_IT 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_plp_Description_IT,String) End If If (Original_plp_LeistungsNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_plp_LeistungsNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_plp_Kategorie 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_plp_Kategorie,String) End If If (Original_plp_einarbeiten.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_plp_einarbeiten.Value,Boolean) 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 plp_ProductCode As Integer, ByVal plp_Land As String, ByVal plp_Firma As String, ByVal plp_Description_DE As String, ByVal plp_Description_EN As String, ByVal plp_Description_IT As String, ByVal plp_LeistungsNr As Global.System.Nullable(Of Integer), ByVal plp_Kategorie As String, ByVal plp_einarbeiten As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(plp_ProductCode,Integer) If (plp_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("plp_Land") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(plp_Land,String) End If If (plp_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("plp_Firma") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(plp_Firma,String) End If If (plp_Description_DE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(plp_Description_DE,String) End If If (plp_Description_EN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(plp_Description_EN,String) End If If (plp_Description_IT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(plp_Description_IT,String) End If If (plp_LeistungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(plp_LeistungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (plp_Kategorie Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(plp_Kategorie,String) End If If (plp_einarbeiten.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(plp_einarbeiten.Value,Boolean) 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 plp_ProductCode As Integer, _ ByVal plp_Land As String, _ ByVal plp_Firma As String, _ ByVal plp_Description_DE As String, _ ByVal plp_Description_EN As String, _ ByVal plp_Description_IT As String, _ ByVal plp_LeistungsNr As Global.System.Nullable(Of Integer), _ ByVal plp_Kategorie As String, _ ByVal plp_einarbeiten As Global.System.Nullable(Of Boolean), _ ByVal Original_plp_ProductCode As Integer, _ ByVal Original_plp_Land As String, _ ByVal Original_plp_Firma As String, _ ByVal Original_plp_Description_DE As String, _ ByVal Original_plp_Description_EN As String, _ ByVal Original_plp_Description_IT As String, _ ByVal Original_plp_LeistungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_plp_Kategorie As String, _ ByVal Original_plp_einarbeiten As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(plp_ProductCode,Integer) If (plp_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("plp_Land") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(plp_Land,String) End If If (plp_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("plp_Firma") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(plp_Firma,String) End If If (plp_Description_DE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(plp_Description_DE,String) End If If (plp_Description_EN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(plp_Description_EN,String) End If If (plp_Description_IT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(plp_Description_IT,String) End If If (plp_LeistungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(plp_LeistungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (plp_Kategorie Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(plp_Kategorie,String) End If If (plp_einarbeiten.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(plp_einarbeiten.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_plp_ProductCode,Integer) If (Original_plp_Land Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_plp_Land") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_plp_Land,String) End If If (Original_plp_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_plp_Firma") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_plp_Firma,String) End If If (Original_plp_Description_DE 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_plp_Description_DE,String) End If If (Original_plp_Description_EN 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_plp_Description_EN,String) End If If (Original_plp_Description_IT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_plp_Description_IT,String) End If If (Original_plp_LeistungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_plp_LeistungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_plp_Kategorie Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_plp_Kategorie,String) End If If (Original_plp_einarbeiten.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_plp_einarbeiten.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If 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 plp_Land As String, _ ByVal plp_Description_DE As String, _ ByVal plp_Description_EN As String, _ ByVal plp_Description_IT As String, _ ByVal plp_LeistungsNr As Global.System.Nullable(Of Integer), _ ByVal plp_Kategorie As String, _ ByVal plp_einarbeiten As Global.System.Nullable(Of Boolean), _ ByVal Original_plp_ProductCode As Integer, _ ByVal Original_plp_Land As String, _ ByVal Original_plp_Firma As String, _ ByVal Original_plp_Description_DE As String, _ ByVal Original_plp_Description_EN As String, _ ByVal Original_plp_Description_IT As String, _ ByVal Original_plp_LeistungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_plp_Kategorie As String, _ ByVal Original_plp_einarbeiten As Global.System.Nullable(Of Boolean)) As Integer Return Me.Update(Original_plp_ProductCode, plp_Land, Original_plp_Firma, plp_Description_DE, plp_Description_EN, plp_Description_IT, plp_LeistungsNr, plp_Kategorie, plp_einarbeiten, Original_plp_ProductCode, Original_plp_Land, Original_plp_Firma, Original_plp_Description_DE, Original_plp_Description_EN, Original_plp_Description_IT, Original_plp_LeistungsNr, Original_plp_Kategorie, Original_plp_einarbeiten) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPosNrTableAdapter 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 = "tblPosNr" tableMapping.ColumnMappings.Add("FilialeNr", "FilialeNr") tableMapping.ColumnMappings.Add("Jahr", "Jahr") tableMapping.ColumnMappings.Add("wert", "wert") 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].[tblPosNr] WHERE (([FilialeNr] = @Original_FilialeNr) AND ([Jah"& _ "r] = @Original_Jahr) AND ([wert] = @Original_wert))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialeNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Jahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Jahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wert", 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].[tblPosNr] ([FilialeNr], [Jahr], [wert]) VALUES (@FilialeNr, @J"& _ "ahr, @wert);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FilialeNr, Jahr, wert FROM tblPosNr WHERE (FilialeNr = @Fil"& _ "ialeNr) AND (Jahr = @Jahr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialeNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Jahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Jahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wert", 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].[tblPosNr] SET [FilialeNr] = @FilialeNr, [Jahr] = @Jahr, [wert] = @w"& _ "ert WHERE (([FilialeNr] = @Original_FilialeNr) AND ([Jahr] = @Original_Jahr) AND"& _ " ([wert] = @Original_wert));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FilialeNr, Jahr, wert FROM tblPosNr WHERE ("& _ "FilialeNr = @FilialeNr) AND (Jahr = @Jahr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialeNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Jahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Jahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialeNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Jahr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Jahr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wert", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wert", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 FilialeNr, Jahr, wert FROM dbo.tblPosNr" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPosNrDataTable) 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 VERAGDataSet.tblPosNrDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPosNrDataTable = New VERAGDataSet.tblPosNrDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPosNrDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPosNr") 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_FilialeNr As Integer, ByVal Original_Jahr As Integer, ByVal Original_wert As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_FilialeNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Jahr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_wert,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 FilialeNr As Integer, ByVal Jahr As Integer, ByVal wert As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(FilialeNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Jahr,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(wert,Integer) 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 FilialeNr As Integer, ByVal Jahr As Integer, ByVal wert As Integer, ByVal Original_FilialeNr As Integer, ByVal Original_Jahr As Integer, ByVal Original_wert As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FilialeNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Jahr,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(wert,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_FilialeNr,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Jahr,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_wert,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 wert As Integer, ByVal Original_FilialeNr As Integer, ByVal Original_Jahr As Integer, ByVal Original_wert As Integer) As Integer Return Me.Update(Original_FilialeNr, Original_Jahr, wert, Original_FilialeNr, Original_Jahr, Original_wert) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPostversandTableAdapter 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 = "tblPostversand" tableMapping.ColumnMappings.Add("post_id", "post_id") tableMapping.ColumnMappings.Add("post_AvisoId", "post_AvisoId") tableMapping.ColumnMappings.Add("post_SendungsId", "post_SendungsId") tableMapping.ColumnMappings.Add("post_FilialenNr", "post_FilialenNr") tableMapping.ColumnMappings.Add("post_AbfertigungsNr", "post_AbfertigungsNr") tableMapping.ColumnMappings.Add("post_art", "post_art") tableMapping.ColumnMappings.Add("post_Empfaenger_KdNr", "post_Empfaenger_KdNr") tableMapping.ColumnMappings.Add("post_Empfaenger_Name1", "post_Empfaenger_Name1") tableMapping.ColumnMappings.Add("post_Empfaenger_Name2", "post_Empfaenger_Name2") tableMapping.ColumnMappings.Add("post_Empfaenger_Adresse1", "post_Empfaenger_Adresse1") tableMapping.ColumnMappings.Add("post_Empfaenger_Adresse2", "post_Empfaenger_Adresse2") tableMapping.ColumnMappings.Add("post_Empfaenger_Adresse3", "post_Empfaenger_Adresse3") tableMapping.ColumnMappings.Add("post_ReferenzPaketdienst", "post_ReferenzPaketdienst") tableMapping.ColumnMappings.Add("post_ContainerLKWNr", "post_ContainerLKWNr") tableMapping.ColumnMappings.Add("post_Datum", "post_Datum") tableMapping.ColumnMappings.Add("post_Sachbearbeiter", "post_Sachbearbeiter") tableMapping.ColumnMappings.Add("post_SachbearbeiterId", "post_SachbearbeiterId") tableMapping.ColumnMappings.Add("post_FirmaInAuftragKdnr", "post_FirmaInAuftragKdnr") tableMapping.ColumnMappings.Add("post_FirmaInAuftrag", "post_FirmaInAuftrag") tableMapping.ColumnMappings.Add("post_Rolle", "post_Rolle") tableMapping.ColumnMappings.Add("post_KdAuftrNrAvisierer", "post_KdAuftrNrAvisierer") tableMapping.ColumnMappings.Add("post_RgEmpfaenger_KdNr", "post_RgEmpfaenger_KdNr") tableMapping.ColumnMappings.Add("post_RgEmpfaenger_Name", "post_RgEmpfaenger_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 [dbo].[tblPostversand] WHERE (([post_id] = @Original_post_id) AND ((@"& _ "IsNull_post_AvisoId = 1 AND [post_AvisoId] IS NULL) OR ([post_AvisoId] = @Origin"& _ "al_post_AvisoId)) AND ((@IsNull_post_SendungsId = 1 AND [post_SendungsId] IS NUL"& _ "L) OR ([post_SendungsId] = @Original_post_SendungsId)) AND ((@IsNull_post_Filial"& _ "enNr = 1 AND [post_FilialenNr] IS NULL) OR ([post_FilialenNr] = @Original_post_F"& _ "ilialenNr)) AND ((@IsNull_post_AbfertigungsNr = 1 AND [post_AbfertigungsNr] IS N"& _ "ULL) OR ([post_AbfertigungsNr] = @Original_post_AbfertigungsNr)) AND ([post_art]"& _ " = @Original_post_art) AND ([post_Empfaenger_KdNr] = @Original_post_Empfaenger_K"& _ "dNr) AND ([post_Empfaenger_Name1] = @Original_post_Empfaenger_Name1) AND ((@IsNu"& _ "ll_post_Empfaenger_Name2 = 1 AND [post_Empfaenger_Name2] IS NULL) OR ([post_Empf"& _ "aenger_Name2] = @Original_post_Empfaenger_Name2)) AND ([post_Empfaenger_Adresse1"& _ "] = @Original_post_Empfaenger_Adresse1) AND ([post_Empfaenger_Adresse2] = @Origi"& _ "nal_post_Empfaenger_Adresse2) AND ([post_Empfaenger_Adresse3] = @Original_post_E"& _ "mpfaenger_Adresse3) AND ((@IsNull_post_ReferenzPaketdienst = 1 AND [post_Referen"& _ "zPaketdienst] IS NULL) OR ([post_ReferenzPaketdienst] = @Original_post_ReferenzP"& _ "aketdienst)) AND ([post_ContainerLKWNr] = @Original_post_ContainerLKWNr) AND ([p"& _ "ost_Datum] = @Original_post_Datum) AND ([post_Sachbearbeiter] = @Original_post_S"& _ "achbearbeiter) AND ([post_SachbearbeiterId] = @Original_post_SachbearbeiterId) A"& _ "ND ((@IsNull_post_FirmaInAuftragKdnr = 1 AND [post_FirmaInAuftragKdnr] IS NULL) "& _ "OR ([post_FirmaInAuftragKdnr] = @Original_post_FirmaInAuftragKdnr)) AND ((@IsNul"& _ "l_post_FirmaInAuftrag = 1 AND [post_FirmaInAuftrag] IS NULL) OR ([post_FirmaInAu"& _ "ftrag] = @Original_post_FirmaInAuftrag)) AND ((@IsNull_post_Rolle = 1 AND [post_"& _ "Rolle] IS NULL) OR ([post_Rolle] = @Original_post_Rolle)) AND ((@IsNull_post_KdA"& _ "uftrNrAvisierer = 1 AND [post_KdAuftrNrAvisierer] IS NULL) OR ([post_KdAuftrNrAv"& _ "isierer] = @Original_post_KdAuftrNrAvisierer)) AND ((@IsNull_post_RgEmpfaenger_K"& _ "dNr = 1 AND [post_RgEmpfaenger_KdNr] IS NULL) OR ([post_RgEmpfaenger_KdNr] = @Or"& _ "iginal_post_RgEmpfaenger_KdNr)) AND ((@IsNull_post_RgEmpfaenger_Name = 1 AND [po"& _ "st_RgEmpfaenger_Name] IS NULL) OR ([post_RgEmpfaenger_Name] = @Original_post_RgE"& _ "mpfaenger_Name)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_SendungsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_SendungsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FilialenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_Name1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Name1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_Empfaenger_Name2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Name2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_Name2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Name2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_Adresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_Adresse3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_ReferenzPaketdienst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_ReferenzPaketdienst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_ReferenzPaketdienst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_ReferenzPaketdienst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_ContainerLKWNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_ContainerLKWNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_FirmaInAuftragKdnr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftragKdnr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_FirmaInAuftragKdnr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftragKdnr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_FirmaInAuftrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_FirmaInAuftrag", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_Rolle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Rolle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Rolle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Rolle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_KdAuftrNrAvisierer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_KdAuftrNrAvisierer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_KdAuftrNrAvisierer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_KdAuftrNrAvisierer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_RgEmpfaenger_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_KdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_RgEmpfaenger_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_RgEmpfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_RgEmpfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_Name", 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].[tblPostversand] ([post_AvisoId], [post_SendungsId], [post_Fili"& _ "alenNr], [post_AbfertigungsNr], [post_art], [post_Empfaenger_KdNr], [post_Empfae"& _ "nger_Name1], [post_Empfaenger_Name2], [post_Empfaenger_Adresse1], [post_Empfaeng"& _ "er_Adresse2], [post_Empfaenger_Adresse3], [post_ReferenzPaketdienst], [post_Cont"& _ "ainerLKWNr], [post_Datum], [post_Sachbearbeiter], [post_SachbearbeiterId], [post"& _ "_FirmaInAuftragKdnr], [post_FirmaInAuftrag], [post_Rolle], [post_KdAuftrNrAvisie"& _ "rer], [post_RgEmpfaenger_KdNr], [post_RgEmpfaenger_Name]) VALUES (@post_AvisoId,"& _ " @post_SendungsId, @post_FilialenNr, @post_AbfertigungsNr, @post_art, @post_Empf"& _ "aenger_KdNr, @post_Empfaenger_Name1, @post_Empfaenger_Name2, @post_Empfaenger_Ad"& _ "resse1, @post_Empfaenger_Adresse2, @post_Empfaenger_Adresse3, @post_ReferenzPake"& _ "tdienst, @post_ContainerLKWNr, @post_Datum, @post_Sachbearbeiter, @post_Sachbear"& _ "beiterId, @post_FirmaInAuftragKdnr, @post_FirmaInAuftrag, @post_Rolle, @post_KdA"& _ "uftrNrAvisierer, @post_RgEmpfaenger_KdNr, @post_RgEmpfaenger_Name);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT post"& _ "_id, post_AvisoId, post_SendungsId, post_FilialenNr, post_AbfertigungsNr, post_a"& _ "rt, post_Empfaenger_KdNr, post_Empfaenger_Name1, post_Empfaenger_Name2, post_Emp"& _ "faenger_Adresse1, post_Empfaenger_Adresse2, post_Empfaenger_Adresse3, post_Refer"& _ "enzPaketdienst, post_ContainerLKWNr, post_Datum, post_Sachbearbeiter, post_Sachb"& _ "earbeiterId, post_FirmaInAuftragKdnr, post_FirmaInAuftrag, post_Rolle, post_KdAu"& _ "ftrNrAvisierer, post_RgEmpfaenger_KdNr, post_RgEmpfaenger_Name FROM tblPostversa"& _ "nd WHERE (post_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_SendungsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_Name1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Name1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_Name2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Name2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_Adresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_Adresse3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_ReferenzPaketdienst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_ReferenzPaketdienst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_ContainerLKWNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_ContainerLKWNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_FirmaInAuftragKdnr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftragKdnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_FirmaInAuftrag", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Rolle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Rolle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_KdAuftrNrAvisierer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_KdAuftrNrAvisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_RgEmpfaenger_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_RgEmpfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_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 [dbo].[tblPostversand] SET [post_AvisoId] = @post_AvisoId, [post_SendungsI"& _ "d] = @post_SendungsId, [post_FilialenNr] = @post_FilialenNr, [post_AbfertigungsN"& _ "r] = @post_AbfertigungsNr, [post_art] = @post_art, [post_Empfaenger_KdNr] = @pos"& _ "t_Empfaenger_KdNr, [post_Empfaenger_Name1] = @post_Empfaenger_Name1, [post_Empfa"& _ "enger_Name2] = @post_Empfaenger_Name2, [post_Empfaenger_Adresse1] = @post_Empfae"& _ "nger_Adresse1, [post_Empfaenger_Adresse2] = @post_Empfaenger_Adresse2, [post_Emp"& _ "faenger_Adresse3] = @post_Empfaenger_Adresse3, [post_ReferenzPaketdienst] = @pos"& _ "t_ReferenzPaketdienst, [post_ContainerLKWNr] = @post_ContainerLKWNr, [post_Datum"& _ "] = @post_Datum, [post_Sachbearbeiter] = @post_Sachbearbeiter, [post_Sachbearbei"& _ "terId] = @post_SachbearbeiterId, [post_FirmaInAuftragKdnr] = @post_FirmaInAuftra"& _ "gKdnr, [post_FirmaInAuftrag] = @post_FirmaInAuftrag, [post_Rolle] = @post_Rolle,"& _ " [post_KdAuftrNrAvisierer] = @post_KdAuftrNrAvisierer, [post_RgEmpfaenger_KdNr] "& _ "= @post_RgEmpfaenger_KdNr, [post_RgEmpfaenger_Name] = @post_RgEmpfaenger_Name WH"& _ "ERE (([post_id] = @Original_post_id) AND ((@IsNull_post_AvisoId = 1 AND [post_Av"& _ "isoId] IS NULL) OR ([post_AvisoId] = @Original_post_AvisoId)) AND ((@IsNull_post"& _ "_SendungsId = 1 AND [post_SendungsId] IS NULL) OR ([post_SendungsId] = @Original"& _ "_post_SendungsId)) AND ((@IsNull_post_FilialenNr = 1 AND [post_FilialenNr] IS NU"& _ "LL) OR ([post_FilialenNr] = @Original_post_FilialenNr)) AND ((@IsNull_post_Abfer"& _ "tigungsNr = 1 AND [post_AbfertigungsNr] IS NULL) OR ([post_AbfertigungsNr] = @Or"& _ "iginal_post_AbfertigungsNr)) AND ([post_art] = @Original_post_art) AND ([post_Em"& _ "pfaenger_KdNr] = @Original_post_Empfaenger_KdNr) AND ([post_Empfaenger_Name1] = "& _ "@Original_post_Empfaenger_Name1) AND ((@IsNull_post_Empfaenger_Name2 = 1 AND [po"& _ "st_Empfaenger_Name2] IS NULL) OR ([post_Empfaenger_Name2] = @Original_post_Empfa"& _ "enger_Name2)) AND ([post_Empfaenger_Adresse1] = @Original_post_Empfaenger_Adress"& _ "e1) AND ([post_Empfaenger_Adresse2] = @Original_post_Empfaenger_Adresse2) AND (["& _ "post_Empfaenger_Adresse3] = @Original_post_Empfaenger_Adresse3) AND ((@IsNull_po"& _ "st_ReferenzPaketdienst = 1 AND [post_ReferenzPaketdienst] IS NULL) OR ([post_Ref"& _ "erenzPaketdienst] = @Original_post_ReferenzPaketdienst)) AND ([post_ContainerLKW"& _ "Nr] = @Original_post_ContainerLKWNr) AND ([post_Datum] = @Original_post_Datum) A"& _ "ND ([post_Sachbearbeiter] = @Original_post_Sachbearbeiter) AND ([post_Sachbearbe"& _ "iterId] = @Original_post_SachbearbeiterId) AND ((@IsNull_post_FirmaInAuftragKdnr"& _ " = 1 AND [post_FirmaInAuftragKdnr] IS NULL) OR ([post_FirmaInAuftragKdnr] = @Ori"& _ "ginal_post_FirmaInAuftragKdnr)) AND ((@IsNull_post_FirmaInAuftrag = 1 AND [post_"& _ "FirmaInAuftrag] IS NULL) OR ([post_FirmaInAuftrag] = @Original_post_FirmaInAuftr"& _ "ag)) AND ((@IsNull_post_Rolle = 1 AND [post_Rolle] IS NULL) OR ([post_Rolle] = @"& _ "Original_post_Rolle)) AND ((@IsNull_post_KdAuftrNrAvisierer = 1 AND [post_KdAuft"& _ "rNrAvisierer] IS NULL) OR ([post_KdAuftrNrAvisierer] = @Original_post_KdAuftrNrA"& _ "visierer)) AND ((@IsNull_post_RgEmpfaenger_KdNr = 1 AND [post_RgEmpfaenger_KdNr]"& _ " IS NULL) OR ([post_RgEmpfaenger_KdNr] = @Original_post_RgEmpfaenger_KdNr)) AND "& _ "((@IsNull_post_RgEmpfaenger_Name = 1 AND [post_RgEmpfaenger_Name] IS NULL) OR (["& _ "post_RgEmpfaenger_Name] = @Original_post_RgEmpfaenger_Name)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT post_id, "& _ "post_AvisoId, post_SendungsId, post_FilialenNr, post_AbfertigungsNr, post_art, p"& _ "ost_Empfaenger_KdNr, post_Empfaenger_Name1, post_Empfaenger_Name2, post_Empfaeng"& _ "er_Adresse1, post_Empfaenger_Adresse2, post_Empfaenger_Adresse3, post_ReferenzPa"& _ "ketdienst, post_ContainerLKWNr, post_Datum, post_Sachbearbeiter, post_Sachbearbe"& _ "iterId, post_FirmaInAuftragKdnr, post_FirmaInAuftrag, post_Rolle, post_KdAuftrNr"& _ "Avisierer, post_RgEmpfaenger_KdNr, post_RgEmpfaenger_Name FROM tblPostversand WH"& _ "ERE (post_id = @post_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_SendungsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_Name1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Name1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_Name2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Name2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_Adresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Empfaenger_Adresse3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_ReferenzPaketdienst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_ReferenzPaketdienst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_ContainerLKWNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_ContainerLKWNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_FirmaInAuftragKdnr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftragKdnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_FirmaInAuftrag", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_Rolle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Rolle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_KdAuftrNrAvisierer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_KdAuftrNrAvisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_RgEmpfaenger_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_RgEmpfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_SendungsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_SendungsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FilialenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_Name1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Name1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_Empfaenger_Name2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Name2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_Name2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Name2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_Adresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Empfaenger_Adresse3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Empfaenger_Adresse3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_ReferenzPaketdienst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_ReferenzPaketdienst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_ReferenzPaketdienst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_ReferenzPaketdienst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_ContainerLKWNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_ContainerLKWNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_FirmaInAuftragKdnr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftragKdnr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_FirmaInAuftragKdnr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftragKdnr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_FirmaInAuftrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_FirmaInAuftrag", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_FirmaInAuftrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_Rolle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Rolle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_Rolle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_Rolle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_KdAuftrNrAvisierer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_KdAuftrNrAvisierer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_KdAuftrNrAvisierer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_KdAuftrNrAvisierer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_RgEmpfaenger_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_KdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_RgEmpfaenger_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_post_RgEmpfaenger_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_post_RgEmpfaenger_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "post_RgEmpfaenger_Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@post_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "post_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 post_id, post_AvisoId, post_SendungsId, post_FilialenNr, post_Abfertigungs"& _ "Nr, post_art, post_Empfaenger_KdNr, post_Empfaenger_Name1, post_Empfaenger_Name2"& _ ", post_Empfaenger_Adresse1, post_Empfaenger_Adresse2, post_Empfaenger_Adresse3, "& _ "post_ReferenzPaketdienst, post_ContainerLKWNr, post_Datum, post_Sachbearbeiter, "& _ "post_SachbearbeiterId, post_FirmaInAuftragKdnr, post_FirmaInAuftrag, post_Rolle,"& _ " post_KdAuftrNrAvisierer, post_RgEmpfaenger_KdNr, post_RgEmpfaenger_Name FROM db"& _ "o.tblPostversand" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPostversandDataTable) 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 VERAGDataSet.tblPostversandDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPostversandDataTable = New VERAGDataSet.tblPostversandDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPostversandDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPostversand") 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_post_id As Integer, _ ByVal Original_post_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_post_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_post_FilialenNr As Global.System.Nullable(Of Integer), _ ByVal Original_post_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_post_art As String, _ ByVal Original_post_Empfaenger_KdNr As Integer, _ ByVal Original_post_Empfaenger_Name1 As String, _ ByVal Original_post_Empfaenger_Name2 As String, _ ByVal Original_post_Empfaenger_Adresse1 As String, _ ByVal Original_post_Empfaenger_Adresse2 As String, _ ByVal Original_post_Empfaenger_Adresse3 As String, _ ByVal Original_post_ReferenzPaketdienst As String, _ ByVal Original_post_ContainerLKWNr As String, _ ByVal Original_post_Datum As Date, _ ByVal Original_post_Sachbearbeiter As String, _ ByVal Original_post_SachbearbeiterId As Integer, _ ByVal Original_post_FirmaInAuftragKdnr As Global.System.Nullable(Of Integer), _ ByVal Original_post_FirmaInAuftrag As String, _ ByVal Original_post_Rolle As String, _ ByVal Original_post_KdAuftrNrAvisierer As String, _ ByVal Original_post_RgEmpfaenger_KdNr As Global.System.Nullable(Of Integer), _ ByVal Original_post_RgEmpfaenger_Name As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_post_id,Integer) If (Original_post_AvisoId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_post_AvisoId.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_post_SendungsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_post_SendungsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_post_FilialenNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_post_FilialenNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_post_AbfertigungsNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_post_AbfertigungsNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_post_art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_art") Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_post_art,String) End If Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_post_Empfaenger_KdNr,Integer) If (Original_post_Empfaenger_Name1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_Empfaenger_Name1") Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_post_Empfaenger_Name1,String) End If If (Original_post_Empfaenger_Name2 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_post_Empfaenger_Name2,String) End If If (Original_post_Empfaenger_Adresse1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_Empfaenger_Adresse1") Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_post_Empfaenger_Adresse1,String) End If If (Original_post_Empfaenger_Adresse2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_Empfaenger_Adresse2") Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_post_Empfaenger_Adresse2,String) End If If (Original_post_Empfaenger_Adresse3 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_Empfaenger_Adresse3") Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_post_Empfaenger_Adresse3,String) End If If (Original_post_ReferenzPaketdienst Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_post_ReferenzPaketdienst,String) End If If (Original_post_ContainerLKWNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_ContainerLKWNr") Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_post_ContainerLKWNr,String) End If Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_post_Datum,Date) If (Original_post_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_Sachbearbeiter") Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_post_Sachbearbeiter,String) End If Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_post_SachbearbeiterId,Integer) If (Original_post_FirmaInAuftragKdnr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_post_FirmaInAuftragKdnr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_post_FirmaInAuftrag Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_post_FirmaInAuftrag,String) End If If (Original_post_Rolle Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_post_Rolle,String) End If If (Original_post_KdAuftrNrAvisierer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_post_KdAuftrNrAvisierer,String) End If If (Original_post_RgEmpfaenger_KdNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_post_RgEmpfaenger_KdNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_post_RgEmpfaenger_Name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_post_RgEmpfaenger_Name,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 post_AvisoId As Global.System.Nullable(Of Integer), _ ByVal post_SendungsId As Global.System.Nullable(Of Integer), _ ByVal post_FilialenNr As Global.System.Nullable(Of Integer), _ ByVal post_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal post_art As String, _ ByVal post_Empfaenger_KdNr As Integer, _ ByVal post_Empfaenger_Name1 As String, _ ByVal post_Empfaenger_Name2 As String, _ ByVal post_Empfaenger_Adresse1 As String, _ ByVal post_Empfaenger_Adresse2 As String, _ ByVal post_Empfaenger_Adresse3 As String, _ ByVal post_ReferenzPaketdienst As String, _ ByVal post_ContainerLKWNr As String, _ ByVal post_Datum As Date, _ ByVal post_Sachbearbeiter As String, _ ByVal post_SachbearbeiterId As Integer, _ ByVal post_FirmaInAuftragKdnr As Global.System.Nullable(Of Integer), _ ByVal post_FirmaInAuftrag As String, _ ByVal post_Rolle As String, _ ByVal post_KdAuftrNrAvisierer As String, _ ByVal post_RgEmpfaenger_KdNr As Global.System.Nullable(Of Integer), _ ByVal post_RgEmpfaenger_Name As String) As Integer If (post_AvisoId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(post_AvisoId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (post_SendungsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(post_SendungsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (post_FilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(post_FilialenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (post_AbfertigungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(post_AbfertigungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (post_art Is Nothing) Then Throw New Global.System.ArgumentNullException("post_art") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(post_art,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(post_Empfaenger_KdNr,Integer) If (post_Empfaenger_Name1 Is Nothing) Then Throw New Global.System.ArgumentNullException("post_Empfaenger_Name1") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(post_Empfaenger_Name1,String) End If If (post_Empfaenger_Name2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(post_Empfaenger_Name2,String) End If If (post_Empfaenger_Adresse1 Is Nothing) Then Throw New Global.System.ArgumentNullException("post_Empfaenger_Adresse1") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(post_Empfaenger_Adresse1,String) End If If (post_Empfaenger_Adresse2 Is Nothing) Then Throw New Global.System.ArgumentNullException("post_Empfaenger_Adresse2") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(post_Empfaenger_Adresse2,String) End If If (post_Empfaenger_Adresse3 Is Nothing) Then Throw New Global.System.ArgumentNullException("post_Empfaenger_Adresse3") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(post_Empfaenger_Adresse3,String) End If If (post_ReferenzPaketdienst Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(post_ReferenzPaketdienst,String) End If If (post_ContainerLKWNr Is Nothing) Then Throw New Global.System.ArgumentNullException("post_ContainerLKWNr") Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(post_ContainerLKWNr,String) End If Me.Adapter.InsertCommand.Parameters(13).Value = CType(post_Datum,Date) If (post_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("post_Sachbearbeiter") Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(post_Sachbearbeiter,String) End If Me.Adapter.InsertCommand.Parameters(15).Value = CType(post_SachbearbeiterId,Integer) If (post_FirmaInAuftragKdnr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(post_FirmaInAuftragKdnr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (post_FirmaInAuftrag Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(post_FirmaInAuftrag,String) End If If (post_Rolle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(post_Rolle,String) End If If (post_KdAuftrNrAvisierer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(post_KdAuftrNrAvisierer,String) End If If (post_RgEmpfaenger_KdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(post_RgEmpfaenger_KdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (post_RgEmpfaenger_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(post_RgEmpfaenger_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 post_AvisoId As Global.System.Nullable(Of Integer), _ ByVal post_SendungsId As Global.System.Nullable(Of Integer), _ ByVal post_FilialenNr As Global.System.Nullable(Of Integer), _ ByVal post_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal post_art As String, _ ByVal post_Empfaenger_KdNr As Integer, _ ByVal post_Empfaenger_Name1 As String, _ ByVal post_Empfaenger_Name2 As String, _ ByVal post_Empfaenger_Adresse1 As String, _ ByVal post_Empfaenger_Adresse2 As String, _ ByVal post_Empfaenger_Adresse3 As String, _ ByVal post_ReferenzPaketdienst As String, _ ByVal post_ContainerLKWNr As String, _ ByVal post_Datum As Date, _ ByVal post_Sachbearbeiter As String, _ ByVal post_SachbearbeiterId As Integer, _ ByVal post_FirmaInAuftragKdnr As Global.System.Nullable(Of Integer), _ ByVal post_FirmaInAuftrag As String, _ ByVal post_Rolle As String, _ ByVal post_KdAuftrNrAvisierer As String, _ ByVal post_RgEmpfaenger_KdNr As Global.System.Nullable(Of Integer), _ ByVal post_RgEmpfaenger_Name As String, _ ByVal Original_post_id As Integer, _ ByVal Original_post_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_post_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_post_FilialenNr As Global.System.Nullable(Of Integer), _ ByVal Original_post_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_post_art As String, _ ByVal Original_post_Empfaenger_KdNr As Integer, _ ByVal Original_post_Empfaenger_Name1 As String, _ ByVal Original_post_Empfaenger_Name2 As String, _ ByVal Original_post_Empfaenger_Adresse1 As String, _ ByVal Original_post_Empfaenger_Adresse2 As String, _ ByVal Original_post_Empfaenger_Adresse3 As String, _ ByVal Original_post_ReferenzPaketdienst As String, _ ByVal Original_post_ContainerLKWNr As String, _ ByVal Original_post_Datum As Date, _ ByVal Original_post_Sachbearbeiter As String, _ ByVal Original_post_SachbearbeiterId As Integer, _ ByVal Original_post_FirmaInAuftragKdnr As Global.System.Nullable(Of Integer), _ ByVal Original_post_FirmaInAuftrag As String, _ ByVal Original_post_Rolle As String, _ ByVal Original_post_KdAuftrNrAvisierer As String, _ ByVal Original_post_RgEmpfaenger_KdNr As Global.System.Nullable(Of Integer), _ ByVal Original_post_RgEmpfaenger_Name As String, _ ByVal post_id As Integer) As Integer If (post_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(post_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (post_SendungsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(post_SendungsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (post_FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(post_FilialenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (post_AbfertigungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(post_AbfertigungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (post_art Is Nothing) Then Throw New Global.System.ArgumentNullException("post_art") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(post_art,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(post_Empfaenger_KdNr,Integer) If (post_Empfaenger_Name1 Is Nothing) Then Throw New Global.System.ArgumentNullException("post_Empfaenger_Name1") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(post_Empfaenger_Name1,String) End If If (post_Empfaenger_Name2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(post_Empfaenger_Name2,String) End If If (post_Empfaenger_Adresse1 Is Nothing) Then Throw New Global.System.ArgumentNullException("post_Empfaenger_Adresse1") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(post_Empfaenger_Adresse1,String) End If If (post_Empfaenger_Adresse2 Is Nothing) Then Throw New Global.System.ArgumentNullException("post_Empfaenger_Adresse2") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(post_Empfaenger_Adresse2,String) End If If (post_Empfaenger_Adresse3 Is Nothing) Then Throw New Global.System.ArgumentNullException("post_Empfaenger_Adresse3") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(post_Empfaenger_Adresse3,String) End If If (post_ReferenzPaketdienst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(post_ReferenzPaketdienst,String) End If If (post_ContainerLKWNr Is Nothing) Then Throw New Global.System.ArgumentNullException("post_ContainerLKWNr") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(post_ContainerLKWNr,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(post_Datum,Date) If (post_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("post_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(post_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(post_SachbearbeiterId,Integer) If (post_FirmaInAuftragKdnr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(post_FirmaInAuftragKdnr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (post_FirmaInAuftrag Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(post_FirmaInAuftrag,String) End If If (post_Rolle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(post_Rolle,String) End If If (post_KdAuftrNrAvisierer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(post_KdAuftrNrAvisierer,String) End If If (post_RgEmpfaenger_KdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(post_RgEmpfaenger_KdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (post_RgEmpfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(post_RgEmpfaenger_Name,String) End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_post_id,Integer) If (Original_post_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_post_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_post_SendungsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_post_SendungsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_post_FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_post_FilialenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_post_AbfertigungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_post_AbfertigungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_post_art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_art") Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_post_art,String) End If Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_post_Empfaenger_KdNr,Integer) If (Original_post_Empfaenger_Name1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_Empfaenger_Name1") Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_post_Empfaenger_Name1,String) End If If (Original_post_Empfaenger_Name2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_post_Empfaenger_Name2,String) End If If (Original_post_Empfaenger_Adresse1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_Empfaenger_Adresse1") Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_post_Empfaenger_Adresse1,String) End If If (Original_post_Empfaenger_Adresse2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_Empfaenger_Adresse2") Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_post_Empfaenger_Adresse2,String) End If If (Original_post_Empfaenger_Adresse3 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_Empfaenger_Adresse3") Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_post_Empfaenger_Adresse3,String) End If If (Original_post_ReferenzPaketdienst 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_post_ReferenzPaketdienst,String) End If If (Original_post_ContainerLKWNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_ContainerLKWNr") Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_post_ContainerLKWNr,String) End If Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_post_Datum,Date) If (Original_post_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_post_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_post_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_post_SachbearbeiterId,Integer) If (Original_post_FirmaInAuftragKdnr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_post_FirmaInAuftragKdnr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (Original_post_FirmaInAuftrag 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_post_FirmaInAuftrag,String) End If If (Original_post_Rolle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_post_Rolle,String) End If If (Original_post_KdAuftrNrAvisierer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_post_KdAuftrNrAvisierer,String) End If If (Original_post_RgEmpfaenger_KdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_post_RgEmpfaenger_KdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Original_post_RgEmpfaenger_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_post_RgEmpfaenger_Name,String) End If Me.Adapter.UpdateCommand.Parameters(57).Value = CType(post_id,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 post_AvisoId As Global.System.Nullable(Of Integer), _ ByVal post_SendungsId As Global.System.Nullable(Of Integer), _ ByVal post_FilialenNr As Global.System.Nullable(Of Integer), _ ByVal post_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal post_art As String, _ ByVal post_Empfaenger_KdNr As Integer, _ ByVal post_Empfaenger_Name1 As String, _ ByVal post_Empfaenger_Name2 As String, _ ByVal post_Empfaenger_Adresse1 As String, _ ByVal post_Empfaenger_Adresse2 As String, _ ByVal post_Empfaenger_Adresse3 As String, _ ByVal post_ReferenzPaketdienst As String, _ ByVal post_ContainerLKWNr As String, _ ByVal post_Datum As Date, _ ByVal post_Sachbearbeiter As String, _ ByVal post_SachbearbeiterId As Integer, _ ByVal post_FirmaInAuftragKdnr As Global.System.Nullable(Of Integer), _ ByVal post_FirmaInAuftrag As String, _ ByVal post_Rolle As String, _ ByVal post_KdAuftrNrAvisierer As String, _ ByVal post_RgEmpfaenger_KdNr As Global.System.Nullable(Of Integer), _ ByVal post_RgEmpfaenger_Name As String, _ ByVal Original_post_id As Integer, _ ByVal Original_post_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_post_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_post_FilialenNr As Global.System.Nullable(Of Integer), _ ByVal Original_post_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_post_art As String, _ ByVal Original_post_Empfaenger_KdNr As Integer, _ ByVal Original_post_Empfaenger_Name1 As String, _ ByVal Original_post_Empfaenger_Name2 As String, _ ByVal Original_post_Empfaenger_Adresse1 As String, _ ByVal Original_post_Empfaenger_Adresse2 As String, _ ByVal Original_post_Empfaenger_Adresse3 As String, _ ByVal Original_post_ReferenzPaketdienst As String, _ ByVal Original_post_ContainerLKWNr As String, _ ByVal Original_post_Datum As Date, _ ByVal Original_post_Sachbearbeiter As String, _ ByVal Original_post_SachbearbeiterId As Integer, _ ByVal Original_post_FirmaInAuftragKdnr As Global.System.Nullable(Of Integer), _ ByVal Original_post_FirmaInAuftrag As String, _ ByVal Original_post_Rolle As String, _ ByVal Original_post_KdAuftrNrAvisierer As String, _ ByVal Original_post_RgEmpfaenger_KdNr As Global.System.Nullable(Of Integer), _ ByVal Original_post_RgEmpfaenger_Name As String) As Integer Return Me.Update(post_AvisoId, post_SendungsId, post_FilialenNr, post_AbfertigungsNr, post_art, post_Empfaenger_KdNr, post_Empfaenger_Name1, post_Empfaenger_Name2, post_Empfaenger_Adresse1, post_Empfaenger_Adresse2, post_Empfaenger_Adresse3, post_ReferenzPaketdienst, post_ContainerLKWNr, post_Datum, post_Sachbearbeiter, post_SachbearbeiterId, post_FirmaInAuftragKdnr, post_FirmaInAuftrag, post_Rolle, post_KdAuftrNrAvisierer, post_RgEmpfaenger_KdNr, post_RgEmpfaenger_Name, Original_post_id, Original_post_AvisoId, Original_post_SendungsId, Original_post_FilialenNr, Original_post_AbfertigungsNr, Original_post_art, Original_post_Empfaenger_KdNr, Original_post_Empfaenger_Name1, Original_post_Empfaenger_Name2, Original_post_Empfaenger_Adresse1, Original_post_Empfaenger_Adresse2, Original_post_Empfaenger_Adresse3, Original_post_ReferenzPaketdienst, Original_post_ContainerLKWNr, Original_post_Datum, Original_post_Sachbearbeiter, Original_post_SachbearbeiterId, Original_post_FirmaInAuftragKdnr, Original_post_FirmaInAuftrag, Original_post_Rolle, Original_post_KdAuftrNrAvisierer, Original_post_RgEmpfaenger_KdNr, Original_post_RgEmpfaenger_Name, Original_post_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPreislistenTableAdapter 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 = "tblPreislisten" tableMapping.ColumnMappings.Add("PreislistenNr", "PreislistenNr") tableMapping.ColumnMappings.Add("PreislistenBez", "PreislistenBez") tableMapping.ColumnMappings.Add("PreislistenLand", "PreislistenLand") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("Preislisten_visibleSUB", "Preislisten_visibleSUB") tableMapping.ColumnMappings.Add("Preislisten_visibleATILLA", "Preislisten_visibleATILLA") tableMapping.ColumnMappings.Add("Preislisten_visibleSBG", "Preislisten_visibleSBG") tableMapping.ColumnMappings.Add("Preislisten_visibleWAI", "Preislisten_visibleWAI") tableMapping.ColumnMappings.Add("Preislisten_visibleNKD", "Preislisten_visibleNKD") tableMapping.ColumnMappings.Add("Preislisten_visibleIMEX", "Preislisten_visibleIMEX") tableMapping.ColumnMappings.Add("Preislisten_visibleFRONTOFFICE", "Preislisten_visibleFRONTOFFICE") tableMapping.ColumnMappings.Add("Art", "Art") tableMapping.ColumnMappings.Add("allowLGKasse", "allowLGKasse") 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].[tblPreislisten] WHERE (([PreislistenNr] = @Original_Preisliste"& _ "nNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblPreislisten] ([PreislistenNr], [PreislistenBez], [Preislist"& _ "enLand], [Preislisten_visibleSUB], [Preislisten_visibleATILLA], [Preislisten_vis"& _ "ibleSBG], [Preislisten_visibleWAI], [Preislisten_visibleNKD], [Preislisten_visib"& _ "leIMEX], [Preislisten_visibleFRONTOFFICE], [Art], [allowLGKasse]) VALUES (@Preis"& _ "listenNr, @PreislistenBez, @PreislistenLand, @Preislisten_visibleSUB, @Preislist"& _ "en_visibleATILLA, @Preislisten_visibleSBG, @Preislisten_visibleWAI, @Preislisten"& _ "_visibleNKD, @Preislisten_visibleIMEX, @Preislisten_visibleFRONTOFFICE, @Art, @a"& _ "llowLGKasse);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PreislistenNr, PreislistenBez, PreislistenLand, SSMA_TimeS"& _ "tamp, Preislisten_visibleSUB, Preislisten_visibleATILLA, Preislisten_visibleSBG,"& _ " Preislisten_visibleWAI, Preislisten_visibleNKD, Preislisten_visibleIMEX, Preisl"& _ "isten_visibleFRONTOFFICE, Art, allowLGKasse FROM tblPreislisten WHERE (Preislist"& _ "enNr = @PreislistenNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenLand", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenLand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleSUB", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleSUB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleATILLA", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleATILLA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleSBG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleSBG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleWAI", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleWAI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleNKD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleNKD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleIMEX", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleIMEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleFRONTOFFICE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleFRONTOFFICE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@allowLGKasse", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "allowLGKasse", 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].[tblPreislisten] SET [PreislistenNr] = @PreislistenNr, [PreislistenB"& _ "ez] = @PreislistenBez, [PreislistenLand] = @PreislistenLand, [Preislisten_visibl"& _ "eSUB] = @Preislisten_visibleSUB, [Preislisten_visibleATILLA] = @Preislisten_visi"& _ "bleATILLA, [Preislisten_visibleSBG] = @Preislisten_visibleSBG, [Preislisten_visi"& _ "bleWAI] = @Preislisten_visibleWAI, [Preislisten_visibleNKD] = @Preislisten_visib"& _ "leNKD, [Preislisten_visibleIMEX] = @Preislisten_visibleIMEX, [Preislisten_visibl"& _ "eFRONTOFFICE] = @Preislisten_visibleFRONTOFFICE, [Art] = @Art, [allowLGKasse] = "& _ "@allowLGKasse WHERE (([PreislistenNr] = @Original_PreislistenNr) AND ([SSMA_Time"& _ "Stamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PreislistenNr, PreislistenBez, Prei"& _ "slistenLand, SSMA_TimeStamp, Preislisten_visibleSUB, Preislisten_visibleATILLA, "& _ "Preislisten_visibleSBG, Preislisten_visibleWAI, Preislisten_visibleNKD, Preislis"& _ "ten_visibleIMEX, Preislisten_visibleFRONTOFFICE, Art, allowLGKasse FROM tblPreis"& _ "listen WHERE (PreislistenNr = @PreislistenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenLand", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenLand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleSUB", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleSUB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleATILLA", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleATILLA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleSBG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleSBG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleWAI", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleWAI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleNKD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleNKD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleIMEX", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleIMEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preislisten_visibleFRONTOFFICE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preislisten_visibleFRONTOFFICE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@allowLGKasse", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "allowLGKasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 PreislistenNr, PreislistenBez, PreislistenLand, SSMA_TimeStamp, Preisliste"& _ "n_visibleSUB, Preislisten_visibleATILLA, Preislisten_visibleSBG, Preislisten_vis"& _ "ibleWAI, Preislisten_visibleNKD, Preislisten_visibleIMEX, Preislisten_visibleFRO"& _ "NTOFFICE, Art, allowLGKasse FROM dbo.tblPreislisten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPreislistenDataTable) 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 VERAGDataSet.tblPreislistenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPreislistenDataTable = New VERAGDataSet.tblPreislistenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPreislistenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPreislisten") 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_PreislistenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PreislistenNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 PreislistenNr As Short, ByVal PreislistenBez As String, ByVal PreislistenLand As String, ByVal Preislisten_visibleSUB As Boolean, ByVal Preislisten_visibleATILLA As Boolean, ByVal Preislisten_visibleSBG As Boolean, ByVal Preislisten_visibleWAI As Boolean, ByVal Preislisten_visibleNKD As Boolean, ByVal Preislisten_visibleIMEX As Boolean, ByVal Preislisten_visibleFRONTOFFICE As Boolean, ByVal Art As String, ByVal allowLGKasse As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PreislistenNr,Short) If (PreislistenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("PreislistenBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(PreislistenBez,String) End If If (PreislistenLand Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(PreislistenLand,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(Preislisten_visibleSUB,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(Preislisten_visibleATILLA,Boolean) Me.Adapter.InsertCommand.Parameters(5).Value = CType(Preislisten_visibleSBG,Boolean) Me.Adapter.InsertCommand.Parameters(6).Value = CType(Preislisten_visibleWAI,Boolean) Me.Adapter.InsertCommand.Parameters(7).Value = CType(Preislisten_visibleNKD,Boolean) Me.Adapter.InsertCommand.Parameters(8).Value = CType(Preislisten_visibleIMEX,Boolean) Me.Adapter.InsertCommand.Parameters(9).Value = CType(Preislisten_visibleFRONTOFFICE,Boolean) If (Art Is Nothing) Then Throw New Global.System.ArgumentNullException("Art") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Art,String) End If Me.Adapter.InsertCommand.Parameters(11).Value = CType(allowLGKasse,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 PreislistenNr As Short, ByVal PreislistenBez As String, ByVal PreislistenLand As String, ByVal Preislisten_visibleSUB As Boolean, ByVal Preislisten_visibleATILLA As Boolean, ByVal Preislisten_visibleSBG As Boolean, ByVal Preislisten_visibleWAI As Boolean, ByVal Preislisten_visibleNKD As Boolean, ByVal Preislisten_visibleIMEX As Boolean, ByVal Preislisten_visibleFRONTOFFICE As Boolean, ByVal Art As String, ByVal allowLGKasse As Boolean, ByVal Original_PreislistenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PreislistenNr,Short) If (PreislistenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("PreislistenBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PreislistenBez,String) End If If (PreislistenLand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PreislistenLand,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Preislisten_visibleSUB,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Preislisten_visibleATILLA,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Preislisten_visibleSBG,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Preislisten_visibleWAI,Boolean) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Preislisten_visibleNKD,Boolean) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Preislisten_visibleIMEX,Boolean) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Preislisten_visibleFRONTOFFICE,Boolean) If (Art Is Nothing) Then Throw New Global.System.ArgumentNullException("Art") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Art,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(allowLGKasse,Boolean) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PreislistenNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 PreislistenBez As String, ByVal PreislistenLand As String, ByVal Preislisten_visibleSUB As Boolean, ByVal Preislisten_visibleATILLA As Boolean, ByVal Preislisten_visibleSBG As Boolean, ByVal Preislisten_visibleWAI As Boolean, ByVal Preislisten_visibleNKD As Boolean, ByVal Preislisten_visibleIMEX As Boolean, ByVal Preislisten_visibleFRONTOFFICE As Boolean, ByVal Art As String, ByVal allowLGKasse As Boolean, ByVal Original_PreislistenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_PreislistenNr, PreislistenBez, PreislistenLand, Preislisten_visibleSUB, Preislisten_visibleATILLA, Preislisten_visibleSBG, Preislisten_visibleWAI, Preislisten_visibleNKD, Preislisten_visibleIMEX, Preislisten_visibleFRONTOFFICE, Art, allowLGKasse, Original_PreislistenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPreislistenpositionenTableAdapter 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 = "tblPreislistenpositionen" tableMapping.ColumnMappings.Add("PreislistenNr", "PreislistenNr") tableMapping.ColumnMappings.Add("PreislistenPos", "PreislistenPos") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("Leistungsbeschreibung", "Leistungsbeschreibung") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("PreistabellenNr", "PreistabellenNr") tableMapping.ColumnMappings.Add("Abfertigungsart", "Abfertigungsart") tableMapping.ColumnMappings.Add("Anzahlmultiplikator", "Anzahlmultiplikator") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("Art", "Art") 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].[tblPreislistenpositionen] WHERE (([PreislistenNr] = @Original_"& _ "PreislistenNr) AND ([PreislistenPos] = @Original_PreislistenPos) AND ([SSMA_Time"& _ "Stamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreislistenPos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenPos", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblPreislistenpositionen] ([PreislistenNr], [PreislistenPos], "& _ "[LeistungsNr], [LeistungsBez], [Leistungsbeschreibung], [Preis], [PreistabellenN"& _ "r], [Abfertigungsart], [Anzahlmultiplikator], [Art]) VALUES (@PreislistenNr, @Pr"& _ "eislistenPos, @LeistungsNr, @LeistungsBez, @Leistungsbeschreibung, @Preis, @Prei"& _ "stabellenNr, @Abfertigungsart, @Anzahlmultiplikator, @Art);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PreislistenN"& _ "r, PreislistenPos, LeistungsNr, LeistungsBez, Leistungsbeschreibung, Preis, Prei"& _ "stabellenNr, Abfertigungsart, Anzahlmultiplikator, SSMA_TimeStamp, Art FROM tblP"& _ "reislistenpositionen WHERE (PreislistenNr = @PreislistenNr) AND (PreislistenPos "& _ "= @PreislistenPos)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenPos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenPos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsbeschreibung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahlmultiplikator", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahlmultiplikator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", 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].[tblPreislistenpositionen] SET [PreislistenNr] = @PreislistenNr, [Pr"& _ "eislistenPos] = @PreislistenPos, [LeistungsNr] = @LeistungsNr, [LeistungsBez] = "& _ "@LeistungsBez, [Leistungsbeschreibung] = @Leistungsbeschreibung, [Preis] = @Prei"& _ "s, [PreistabellenNr] = @PreistabellenNr, [Abfertigungsart] = @Abfertigungsart, ["& _ "Anzahlmultiplikator] = @Anzahlmultiplikator, [Art] = @Art WHERE (([PreislistenNr"& _ "] = @Original_PreislistenNr) AND ([PreislistenPos] = @Original_PreislistenPos) A"& _ "ND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PreislistenNr, Preisl"& _ "istenPos, LeistungsNr, LeistungsBez, Leistungsbeschreibung, Preis, Preistabellen"& _ "Nr, Abfertigungsart, Anzahlmultiplikator, SSMA_TimeStamp, Art FROM tblPreisliste"& _ "npositionen WHERE (PreislistenNr = @PreislistenNr) AND (PreislistenPos = @Preisl"& _ "istenPos)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreislistenPos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenPos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsbeschreibung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahlmultiplikator", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahlmultiplikator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreislistenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreislistenPos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreislistenPos", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 PreislistenNr, PreislistenPos, LeistungsNr, LeistungsBez, Leistungsbeschre"& _ "ibung, Preis, PreistabellenNr, Abfertigungsart, Anzahlmultiplikator, SSMA_TimeSt"& _ "amp, Art FROM dbo.tblPreislistenpositionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPreislistenpositionenDataTable) 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 VERAGDataSet.tblPreislistenpositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPreislistenpositionenDataTable = New VERAGDataSet.tblPreislistenpositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPreislistenpositionenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPreislistenpositionen") 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_PreislistenNr As Short, ByVal Original_PreislistenPos As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PreislistenNr,Short) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PreislistenPos,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 PreislistenNr As Short, ByVal PreislistenPos As Short, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Leistungsbeschreibung As String, ByVal Preis As Global.System.Nullable(Of Decimal), ByVal PreistabellenNr As Global.System.Nullable(Of Short), ByVal Abfertigungsart As Global.System.Nullable(Of Short), ByVal Anzahlmultiplikator As Short, ByVal Art As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PreislistenNr,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(PreislistenPos,Short) Me.Adapter.InsertCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(LeistungsBez,String) End If If (Leistungsbeschreibung Is Nothing) Then Throw New Global.System.ArgumentNullException("Leistungsbeschreibung") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Leistungsbeschreibung,String) End If If (Preis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Preis.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (PreistabellenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(PreistabellenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Abfertigungsart.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Abfertigungsart.Value,Short) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(Anzahlmultiplikator,Short) If (Art Is Nothing) Then Throw New Global.System.ArgumentNullException("Art") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Art,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 PreislistenNr As Short, ByVal PreislistenPos As Short, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Leistungsbeschreibung As String, ByVal Preis As Global.System.Nullable(Of Decimal), ByVal PreistabellenNr As Global.System.Nullable(Of Short), ByVal Abfertigungsart As Global.System.Nullable(Of Short), ByVal Anzahlmultiplikator As Short, ByVal Art As String, ByVal Original_PreislistenNr As Short, ByVal Original_PreislistenPos As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PreislistenNr,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PreislistenPos,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LeistungsBez,String) End If If (Leistungsbeschreibung Is Nothing) Then Throw New Global.System.ArgumentNullException("Leistungsbeschreibung") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Leistungsbeschreibung,String) End If If (Preis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Preis.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (PreistabellenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(PreistabellenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Abfertigungsart.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Abfertigungsart.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Anzahlmultiplikator,Short) If (Art Is Nothing) Then Throw New Global.System.ArgumentNullException("Art") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Art,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_PreislistenNr,Short) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_PreislistenPos,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Leistungsbeschreibung As String, ByVal Preis As Global.System.Nullable(Of Decimal), ByVal PreistabellenNr As Global.System.Nullable(Of Short), ByVal Abfertigungsart As Global.System.Nullable(Of Short), ByVal Anzahlmultiplikator As Short, ByVal Art As String, ByVal Original_PreislistenNr As Short, ByVal Original_PreislistenPos As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_PreislistenNr, Original_PreislistenPos, LeistungsNr, LeistungsBez, Leistungsbeschreibung, Preis, PreistabellenNr, Abfertigungsart, Anzahlmultiplikator, Art, Original_PreislistenNr, Original_PreislistenPos, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPreistabellenTableAdapter 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 = "tblPreistabellen" tableMapping.ColumnMappings.Add("PreistabellenNr", "PreistabellenNr") tableMapping.ColumnMappings.Add("PreistabellenBez", "PreistabellenBez") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblPreistabellen] WHERE (([PreistabellenNr] = @Original_Preist"& _ "abellenNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblPreistabellen] ([PreistabellenNr], [PreistabellenBez]) VALU"& _ "ES (@PreistabellenNr, @PreistabellenBez);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PreistabellenNr, Preistabellen"& _ "Bez, SSMA_TimeStamp FROM tblPreistabellen WHERE (PreistabellenNr = @Preistabelle"& _ "nNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreistabellenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenBez", 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].[tblPreistabellen] SET [PreistabellenNr] = @PreistabellenNr, [Preist"& _ "abellenBez] = @PreistabellenBez WHERE (([PreistabellenNr] = @Original_Preistabel"& _ "lenNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Preistabellen"& _ "Nr, PreistabellenBez, SSMA_TimeStamp FROM tblPreistabellen WHERE (PreistabellenN"& _ "r = @PreistabellenNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreistabellenBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 PreistabellenNr, PreistabellenBez, SSMA_TimeStamp FROM dbo.tblPreistabelle"& _ "n" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPreistabellenDataTable) 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 VERAGDataSet.tblPreistabellenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPreistabellenDataTable = New VERAGDataSet.tblPreistabellenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPreistabellenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPreistabellen") 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_PreistabellenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PreistabellenNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 PreistabellenNr As Short, ByVal PreistabellenBez As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PreistabellenNr,Short) If (PreistabellenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("PreistabellenBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(PreistabellenBez,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 PreistabellenNr As Short, ByVal PreistabellenBez As String, ByVal Original_PreistabellenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PreistabellenNr,Short) If (PreistabellenBez Is Nothing) Then Throw New Global.System.ArgumentNullException("PreistabellenBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PreistabellenBez,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_PreistabellenNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 PreistabellenBez As String, ByVal Original_PreistabellenNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_PreistabellenNr, PreistabellenBez, Original_PreistabellenNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblPreistabellenpositionenTableAdapter 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 = "tblPreistabellenpositionen" tableMapping.ColumnMappings.Add("PreistabellenNr", "PreistabellenNr") tableMapping.ColumnMappings.Add("TW1", "TW1") tableMapping.ColumnMappings.Add("TW2", "TW2") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblPreistabellenpositionen] WHERE (([PreistabellenNr] = @Origi"& _ "nal_PreistabellenNr) AND ([TW1] = @Original_TW1) AND ([TW2] = @Original_TW2) AND"& _ " ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TW1", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TW2", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblPreistabellenpositionen] ([PreistabellenNr], [TW1], [TW2], "& _ "[Preis]) VALUES (@PreistabellenNr, @TW1, @TW2, @Preis);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PreistabellenNr,"& _ " TW1, TW2, Preis, SSMA_TimeStamp FROM tblPreistabellenpositionen WHERE (Preistab"& _ "ellenNr = @PreistabellenNr) AND (TW1 = @TW1) AND (TW2 = @TW2)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TW1", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TW2", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", 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].[tblPreistabellenpositionen] SET [PreistabellenNr] = @PreistabellenN"& _ "r, [TW1] = @TW1, [TW2] = @TW2, [Preis] = @Preis WHERE (([PreistabellenNr] = @Ori"& _ "ginal_PreistabellenNr) AND ([TW1] = @Original_TW1) AND ([TW2] = @Original_TW2) A"& _ "ND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PreistabellenNr, TW1,"& _ " TW2, Preis, SSMA_TimeStamp FROM tblPreistabellenpositionen WHERE (Preistabellen"& _ "Nr = @PreistabellenNr) AND (TW1 = @TW1) AND (TW2 = @TW2)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TW1", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TW2", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreistabellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PreistabellenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TW1", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TW2", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TW2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 PreistabellenNr, TW1, TW2, Preis, SSMA_TimeStamp FROM dbo.tblPreistabellen"& _ "positionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblPreistabellenpositionenDataTable) 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 VERAGDataSet.tblPreistabellenpositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblPreistabellenpositionenDataTable = New VERAGDataSet.tblPreistabellenpositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblPreistabellenpositionenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblPreistabellenpositionen") 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_PreistabellenNr As Short, ByVal Original_TW1 As Short, ByVal Original_TW2 As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PreistabellenNr,Short) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TW1,Short) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TW2,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 PreistabellenNr As Short, ByVal TW1 As Short, ByVal TW2 As Short, ByVal Preis As Decimal) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PreistabellenNr,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(TW1,Short) Me.Adapter.InsertCommand.Parameters(2).Value = CType(TW2,Short) Me.Adapter.InsertCommand.Parameters(3).Value = CType(Preis,Decimal) 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 PreistabellenNr As Short, ByVal TW1 As Short, ByVal TW2 As Short, ByVal Preis As Decimal, ByVal Original_PreistabellenNr As Short, ByVal Original_TW1 As Short, ByVal Original_TW2 As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PreistabellenNr,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TW1,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TW2,Short) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Preis,Decimal) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_PreistabellenNr,Short) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_TW1,Short) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_TW2,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Preis As Decimal, ByVal Original_PreistabellenNr As Short, ByVal Original_TW1 As Short, ByVal Original_TW2 As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_PreistabellenNr, Original_TW1, Original_TW2, Preis, Original_PreistabellenNr, Original_TW1, Original_TW2, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblQS_AbfertigungsartenTableAdapter 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 = "tblQS_Abfertigungsarten" tableMapping.ColumnMappings.Add("QS_Abfertigungsart_ID", "QS_Abfertigungsart_ID") tableMapping.ColumnMappings.Add("QS_Abfertigungsart_Bezeichnung", "QS_Abfertigungsart_Bezeichnung") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblQS_Abfertigungsarten] WHERE (([QS_Abfertigungsart_ID] = @Or"& _ "iginal_QS_Abfertigungsart_ID) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NUL"& _ "L) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QS_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblQS_Abfertigungsarten] ([QS_Abfertigungsart_Bezeichnung]) VA"& _ "LUES (@QS_Abfertigungsart_Bezeichnung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QS_Abfertigungsart_ID, QS_Abfert"& _ "igungsart_Bezeichnung, upsize_ts FROM tblQS_Abfertigungsarten WHERE (QS_Abfertig"& _ "ungsart_ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Abfertigungsart_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_Bezeichnung", 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].[tblQS_Abfertigungsarten] SET [QS_Abfertigungsart_Bezeichnung] = @QS"& _ "_Abfertigungsart_Bezeichnung WHERE (([QS_Abfertigungsart_ID] = @Original_QS_Abfe"& _ "rtigungsart_ID) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize"& _ "_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QS_Abfertigungsart_ID, QS_Abfertigungsart"& _ "_Bezeichnung, upsize_ts FROM tblQS_Abfertigungsarten WHERE (QS_Abfertigungsart_I"& _ "D = @QS_Abfertigungsart_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Abfertigungsart_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QS_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 QS_Abfertigungsart_ID, QS_Abfertigungsart_Bezeichnung, upsize_ts FROM dbo."& _ "tblQS_Abfertigungsarten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblQS_AbfertigungsartenDataTable) 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 VERAGDataSet.tblQS_AbfertigungsartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblQS_AbfertigungsartenDataTable = New VERAGDataSet.tblQS_AbfertigungsartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblQS_AbfertigungsartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblQS_Abfertigungsarten") 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_QS_Abfertigungsart_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_QS_Abfertigungsart_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 QS_Abfertigungsart_Bezeichnung As String) As Integer If (QS_Abfertigungsart_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("QS_Abfertigungsart_Bezeichnung") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(QS_Abfertigungsart_Bezeichnung,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 QS_Abfertigungsart_Bezeichnung As String, ByVal Original_QS_Abfertigungsart_ID As Integer, ByVal Original_upsize_ts() As Byte, ByVal QS_Abfertigungsart_ID As Integer) As Integer If (QS_Abfertigungsart_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("QS_Abfertigungsart_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(QS_Abfertigungsart_Bezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_QS_Abfertigungsart_ID,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(QS_Abfertigungsart_ID,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 QS_Abfertigungsart_Bezeichnung As String, ByVal Original_QS_Abfertigungsart_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(QS_Abfertigungsart_Bezeichnung, Original_QS_Abfertigungsart_ID, Original_upsize_ts, Original_QS_Abfertigungsart_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblQS_AufträgeTableAdapter 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 = "tblQS_Aufträge" tableMapping.ColumnMappings.Add("QS_Auftrags_ID", "QS_Auftrags_ID") tableMapping.ColumnMappings.Add("QS_Auftrags_Datum", "QS_Auftrags_Datum") tableMapping.ColumnMappings.Add("QS_Sachbearbeiter_ID", "QS_Sachbearbeiter_ID") tableMapping.ColumnMappings.Add("QS_Frachtführer_ID", "QS_Frachtführer_ID") tableMapping.ColumnMappings.Add("QS_Kennzeichen_LKW", "QS_Kennzeichen_LKW") tableMapping.ColumnMappings.Add("QS_Sendungen_Gesamtanzahl", "QS_Sendungen_Gesamtanzahl") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblQS_Aufträge] WHERE (([QS_Auftrags_ID] = @Original_QS_Auftra"& _ "gs_ID) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @O"& _ "riginal_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QS_Auftrags_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Auftrags_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblQS_Aufträge] ([QS_Auftrags_Datum], [QS_Sachbearbeiter_ID], "& _ "[QS_Frachtführer_ID], [QS_Kennzeichen_LKW], [QS_Sendungen_Gesamtanzahl]) VALUES "& _ "(@QS_Auftrags_Datum, @QS_Sachbearbeiter_ID, @QS_Frachtführer_ID, @QS_Kennzeichen"& _ "_LKW, @QS_Sendungen_Gesamtanzahl);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QS_Auftrags_ID, QS_Auftrags_Datum, QS"& _ "_Sachbearbeiter_ID, QS_Frachtführer_ID, QS_Kennzeichen_LKW, QS_Sendungen_Gesamta"& _ "nzahl, upsize_ts FROM tblQS_Aufträge WHERE (QS_Auftrags_ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Auftrags_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Auftrags_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Sachbearbeiter_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Sachbearbeiter_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Frachtführer_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Frachtführer_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Kennzeichen_LKW", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Kennzeichen_LKW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Sendungen_Gesamtanzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Sendungen_Gesamtanzahl", 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].[tblQS_Aufträge] SET [QS_Auftrags_Datum] = @QS_Auftrags_Datum, [QS_S"& _ "achbearbeiter_ID] = @QS_Sachbearbeiter_ID, [QS_Frachtführer_ID] = @QS_Frachtführ"& _ "er_ID, [QS_Kennzeichen_LKW] = @QS_Kennzeichen_LKW, [QS_Sendungen_Gesamtanzahl] ="& _ " @QS_Sendungen_Gesamtanzahl WHERE (([QS_Auftrags_ID] = @Original_QS_Auftrags_ID)"& _ " AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Origina"& _ "l_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QS_Auftrags_ID, QS_Auftrags_Datum, QS_Sachbearbeiter_ID,"& _ " QS_Frachtführer_ID, QS_Kennzeichen_LKW, QS_Sendungen_Gesamtanzahl, upsize_ts FR"& _ "OM tblQS_Aufträge WHERE (QS_Auftrags_ID = @QS_Auftrags_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Auftrags_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Auftrags_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Sachbearbeiter_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Sachbearbeiter_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Frachtführer_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Frachtführer_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Kennzeichen_LKW", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Kennzeichen_LKW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Sendungen_Gesamtanzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Sendungen_Gesamtanzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QS_Auftrags_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Auftrags_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Auftrags_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Auftrags_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 QS_Auftrags_ID, QS_Auftrags_Datum, QS_Sachbearbeiter_ID, QS_Frachtführer_I"& _ "D, QS_Kennzeichen_LKW, QS_Sendungen_Gesamtanzahl, upsize_ts FROM dbo.tblQS_Auftr"& _ "äge" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblQS_AufträgeDataTable) 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 VERAGDataSet.tblQS_AufträgeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblQS_AufträgeDataTable = New VERAGDataSet.tblQS_AufträgeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblQS_AufträgeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblQS_Aufträge") 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_QS_Auftrags_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_QS_Auftrags_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 QS_Auftrags_Datum As Date, ByVal QS_Sachbearbeiter_ID As Integer, ByVal QS_Frachtführer_ID As Integer, ByVal QS_Kennzeichen_LKW As String, ByVal QS_Sendungen_Gesamtanzahl As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(QS_Auftrags_Datum,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(QS_Sachbearbeiter_ID,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(QS_Frachtführer_ID,Integer) If (QS_Kennzeichen_LKW Is Nothing) Then Throw New Global.System.ArgumentNullException("QS_Kennzeichen_LKW") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(QS_Kennzeichen_LKW,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(QS_Sendungen_Gesamtanzahl,Integer) 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 QS_Auftrags_Datum As Date, ByVal QS_Sachbearbeiter_ID As Integer, ByVal QS_Frachtführer_ID As Integer, ByVal QS_Kennzeichen_LKW As String, ByVal QS_Sendungen_Gesamtanzahl As Integer, ByVal Original_QS_Auftrags_ID As Integer, ByVal Original_upsize_ts() As Byte, ByVal QS_Auftrags_ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(QS_Auftrags_Datum,Date) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(QS_Sachbearbeiter_ID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(QS_Frachtführer_ID,Integer) If (QS_Kennzeichen_LKW Is Nothing) Then Throw New Global.System.ArgumentNullException("QS_Kennzeichen_LKW") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(QS_Kennzeichen_LKW,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(QS_Sendungen_Gesamtanzahl,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_QS_Auftrags_ID,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(QS_Auftrags_ID,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 QS_Auftrags_Datum As Date, ByVal QS_Sachbearbeiter_ID As Integer, ByVal QS_Frachtführer_ID As Integer, ByVal QS_Kennzeichen_LKW As String, ByVal QS_Sendungen_Gesamtanzahl As Integer, ByVal Original_QS_Auftrags_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(QS_Auftrags_Datum, QS_Sachbearbeiter_ID, QS_Frachtführer_ID, QS_Kennzeichen_LKW, QS_Sendungen_Gesamtanzahl, Original_QS_Auftrags_ID, Original_upsize_ts, Original_QS_Auftrags_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblQS_AuftragspositionenTableAdapter 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 = "tblQS_Auftragspositionen" tableMapping.ColumnMappings.Add("QS_Auftrags_ID", "QS_Auftrags_ID") tableMapping.ColumnMappings.Add("QS_Abfertigungsart_ID", "QS_Abfertigungsart_ID") tableMapping.ColumnMappings.Add("QS_Abfertigungsart_Anzahl", "QS_Abfertigungsart_Anzahl") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblQS_Auftragspositionen] WHERE (([QS_Auftrags_ID] = @Original"& _ "_QS_Auftrags_ID) AND ([QS_Abfertigungsart_ID] = @Original_QS_Abfertigungsart_ID)"& _ " AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Origina"& _ "l_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QS_Auftrags_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Auftrags_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QS_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblQS_Auftragspositionen] ([QS_Auftrags_ID], [QS_Abfertigungsa"& _ "rt_ID], [QS_Abfertigungsart_Anzahl]) VALUES (@QS_Auftrags_ID, @QS_Abfertigungsar"& _ "t_ID, @QS_Abfertigungsart_Anzahl);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QS_Auftrags_ID, QS_Abfertigungsart_ID"& _ ", QS_Abfertigungsart_Anzahl, upsize_ts FROM tblQS_Auftragspositionen WHERE (QS_A"& _ "bfertigungsart_ID = @QS_Abfertigungsart_ID) AND (QS_Auftrags_ID = @QS_Auftrags_I"& _ "D)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Auftrags_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Auftrags_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Abfertigungsart_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_Anzahl", 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].[tblQS_Auftragspositionen] SET [QS_Auftrags_ID] = @QS_Auftrags_ID, ["& _ "QS_Abfertigungsart_ID] = @QS_Abfertigungsart_ID, [QS_Abfertigungsart_Anzahl] = @"& _ "QS_Abfertigungsart_Anzahl WHERE (([QS_Auftrags_ID] = @Original_QS_Auftrags_ID) A"& _ "ND ([QS_Abfertigungsart_ID] = @Original_QS_Abfertigungsart_ID) AND ((@IsNull_ups"& _ "ize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT QS_Auftrags_ID, QS_Abfertigungsart_ID, QS_Abfertigungsart_Anzahl, upsize_t"& _ "s FROM tblQS_Auftragspositionen WHERE (QS_Abfertigungsart_ID = @QS_Abfertigungsa"& _ "rt_ID) AND (QS_Auftrags_ID = @QS_Auftrags_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Auftrags_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Auftrags_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QS_Abfertigungsart_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QS_Auftrags_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Auftrags_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QS_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QS_Abfertigungsart_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 QS_Auftrags_ID, QS_Abfertigungsart_ID, QS_Abfertigungsart_Anzahl, upsize_t"& _ "s FROM dbo.tblQS_Auftragspositionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblQS_AuftragspositionenDataTable) 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 VERAGDataSet.tblQS_AuftragspositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblQS_AuftragspositionenDataTable = New VERAGDataSet.tblQS_AuftragspositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblQS_AuftragspositionenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblQS_Auftragspositionen") 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_QS_Auftrags_ID As Integer, ByVal Original_QS_Abfertigungsart_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_QS_Auftrags_ID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_QS_Abfertigungsart_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 QS_Auftrags_ID As Integer, ByVal QS_Abfertigungsart_ID As Integer, ByVal QS_Abfertigungsart_Anzahl As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(QS_Auftrags_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(QS_Abfertigungsart_ID,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(QS_Abfertigungsart_Anzahl,Integer) 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 QS_Auftrags_ID As Integer, ByVal QS_Abfertigungsart_ID As Integer, ByVal QS_Abfertigungsart_Anzahl As Integer, ByVal Original_QS_Auftrags_ID As Integer, ByVal Original_QS_Abfertigungsart_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(QS_Auftrags_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(QS_Abfertigungsart_ID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(QS_Abfertigungsart_Anzahl,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_QS_Auftrags_ID,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_QS_Abfertigungsart_ID,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_upsize_ts,Byte()) End If 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 QS_Abfertigungsart_Anzahl As Integer, ByVal Original_QS_Auftrags_ID As Integer, ByVal Original_QS_Abfertigungsart_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_QS_Auftrags_ID, Original_QS_Abfertigungsart_ID, QS_Abfertigungsart_Anzahl, Original_QS_Auftrags_ID, Original_QS_Abfertigungsart_ID, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblQS_TeamsTableAdapter 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 = "tblQS_Teams" tableMapping.ColumnMappings.Add("qstm_Id", "qstm_Id") tableMapping.ColumnMappings.Add("qstm_bezeichnung", "qstm_bezeichnung") 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].[tblQS_Teams] WHERE (([qstm_Id] = @Original_qstm_Id) AND ([qstm"& _ "_bezeichnung] = @Original_qstm_bezeichnung))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qstm_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qstm_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qstm_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qstm_bezeichnung", 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].[tblQS_Teams] ([qstm_bezeichnung]) VALUES (@qstm_bezeichnung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT qstm_Id, qstm_bezeichnung FROM tblQS_Teams WHERE (qstm_Id = SCOPE_IDENTI"& _ "TY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qstm_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qstm_bezeichnung", 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].[tblQS_Teams] SET [qstm_bezeichnung] = @qstm_bezeichnung WHERE (([qs"& _ "tm_Id] = @Original_qstm_Id) AND ([qstm_bezeichnung] = @Original_qstm_bezeichnung"& _ "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT qstm_Id, qstm_bezeichnung FROM tblQS_Teams WHERE (qstm_Id = @qstm_Id"& _ ")" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qstm_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qstm_bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qstm_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qstm_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qstm_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qstm_bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qstm_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "qstm_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 qstm_Id, qstm_bezeichnung FROM dbo.tblQS_Teams" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblQS_TeamsDataTable) 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 VERAGDataSet.tblQS_TeamsDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblQS_TeamsDataTable = New VERAGDataSet.tblQS_TeamsDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblQS_TeamsDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblQS_Teams") 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_qstm_Id As Integer, ByVal Original_qstm_bezeichnung As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_qstm_Id,Integer) If (Original_qstm_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_qstm_bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_qstm_bezeichnung,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 qstm_bezeichnung As String) As Integer If (qstm_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("qstm_bezeichnung") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(qstm_bezeichnung,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 qstm_bezeichnung As String, ByVal Original_qstm_Id As Integer, ByVal Original_qstm_bezeichnung As String, ByVal qstm_Id As Integer) As Integer If (qstm_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("qstm_bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(qstm_bezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_qstm_Id,Integer) If (Original_qstm_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_qstm_bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_qstm_bezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(qstm_Id,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 qstm_bezeichnung As String, ByVal Original_qstm_Id As Integer, ByVal Original_qstm_bezeichnung As String) As Integer Return Me.Update(qstm_bezeichnung, Original_qstm_Id, Original_qstm_bezeichnung, Original_qstm_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblQS_TeamsMATableAdapter 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 = "tblQS_TeamsMA" tableMapping.ColumnMappings.Add("qtma_Id", "qtma_Id") tableMapping.ColumnMappings.Add("qtma_QstmId", "qtma_QstmId") tableMapping.ColumnMappings.Add("qtma_MaId", "qtma_MaId") tableMapping.ColumnMappings.Add("qtma_name", "qtma_name") tableMapping.ColumnMappings.Add("qtma_funktion", "qtma_funktion") 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].[tblQS_TeamsMA] WHERE (([qtma_Id] = @Original_qtma_Id) AND ([qt"& _ "ma_QstmId] = @Original_qtma_QstmId) AND ([qtma_MaId] = @Original_qtma_MaId) AND "& _ "([qtma_name] = @Original_qtma_name) AND ((@IsNull_qtma_funktion = 1 AND [qtma_fu"& _ "nktion] IS NULL) OR ([qtma_funktion] = @Original_qtma_funktion)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qtma_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qtma_QstmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_QstmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qtma_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_MaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qtma_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_qtma_funktion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_funktion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qtma_funktion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_funktion", 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].[tblQS_TeamsMA] ([qtma_QstmId], [qtma_MaId], [qtma_name], [qtma"& _ "_funktion]) VALUES (@qtma_QstmId, @qtma_MaId, @qtma_name, @qtma_funktion);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ "CT qtma_Id, qtma_QstmId, qtma_MaId, qtma_name, qtma_funktion FROM tblQS_TeamsMA "& _ "WHERE (qtma_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qtma_QstmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_QstmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qtma_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_MaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qtma_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qtma_funktion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_funktion", 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].[tblQS_TeamsMA] SET [qtma_QstmId] = @qtma_QstmId, [qtma_MaId] = @qtm"& _ "a_MaId, [qtma_name] = @qtma_name, [qtma_funktion] = @qtma_funktion WHERE (([qtma"& _ "_Id] = @Original_qtma_Id) AND ([qtma_QstmId] = @Original_qtma_QstmId) AND ([qtma"& _ "_MaId] = @Original_qtma_MaId) AND ([qtma_name] = @Original_qtma_name) AND ((@IsN"& _ "ull_qtma_funktion = 1 AND [qtma_funktion] IS NULL) OR ([qtma_funktion] = @Origin"& _ "al_qtma_funktion)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT qtma_Id, qtma_QstmId, qtma_MaId, qtma_name, qtma_fu"& _ "nktion FROM tblQS_TeamsMA WHERE (qtma_Id = @qtma_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qtma_QstmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_QstmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qtma_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_MaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qtma_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qtma_funktion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_funktion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qtma_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qtma_QstmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_QstmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qtma_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_MaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qtma_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_qtma_funktion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_funktion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_qtma_funktion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_funktion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@qtma_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "qtma_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 qtma_Id, qtma_QstmId, qtma_MaId, qtma_name, qtma_funktion FROM dbo.tblQS_T"& _ "eamsMA" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblQS_TeamsMADataTable) 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 VERAGDataSet.tblQS_TeamsMADataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblQS_TeamsMADataTable = New VERAGDataSet.tblQS_TeamsMADataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblQS_TeamsMADataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblQS_TeamsMA") 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_qtma_Id As Integer, ByVal Original_qtma_QstmId As Integer, ByVal Original_qtma_MaId As Integer, ByVal Original_qtma_name As String, ByVal Original_qtma_funktion As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_qtma_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_qtma_QstmId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_qtma_MaId,Integer) If (Original_qtma_name Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_qtma_name") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_qtma_name,String) End If If (Original_qtma_funktion 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_qtma_funktion,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 qtma_QstmId As Integer, ByVal qtma_MaId As Integer, ByVal qtma_name As String, ByVal qtma_funktion As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(qtma_QstmId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(qtma_MaId,Integer) If (qtma_name Is Nothing) Then Throw New Global.System.ArgumentNullException("qtma_name") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(qtma_name,String) End If If (qtma_funktion Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(qtma_funktion,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 qtma_QstmId As Integer, ByVal qtma_MaId As Integer, ByVal qtma_name As String, ByVal qtma_funktion As String, ByVal Original_qtma_Id As Integer, ByVal Original_qtma_QstmId As Integer, ByVal Original_qtma_MaId As Integer, ByVal Original_qtma_name As String, ByVal Original_qtma_funktion As String, ByVal qtma_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(qtma_QstmId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(qtma_MaId,Integer) If (qtma_name Is Nothing) Then Throw New Global.System.ArgumentNullException("qtma_name") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(qtma_name,String) End If If (qtma_funktion Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(qtma_funktion,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_qtma_Id,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_qtma_QstmId,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_qtma_MaId,Integer) If (Original_qtma_name Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_qtma_name") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_qtma_name,String) End If If (Original_qtma_funktion 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_qtma_funktion,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(qtma_Id,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 qtma_QstmId As Integer, ByVal qtma_MaId As Integer, ByVal qtma_name As String, ByVal qtma_funktion As String, ByVal Original_qtma_Id As Integer, ByVal Original_qtma_QstmId As Integer, ByVal Original_qtma_MaId As Integer, ByVal Original_qtma_name As String, ByVal Original_qtma_funktion As String) As Integer Return Me.Update(qtma_QstmId, qtma_MaId, qtma_name, qtma_funktion, Original_qtma_Id, Original_qtma_QstmId, Original_qtma_MaId, Original_qtma_name, Original_qtma_funktion, Original_qtma_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblRechnungsnotizenTableAdapter 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 = "tblRechnungsnotizen" tableMapping.ColumnMappings.Add("Notiz", "Notiz") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblRechnungsnotizen] WHERE (([Notiz] = @Original_Notiz) AND (["& _ "SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Notiz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Notiz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblRechnungsnotizen] ([Notiz]) VALUES (@Notiz);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Notiz,"& _ " SSMA_TimeStamp FROM tblRechnungsnotizen WHERE (Notiz = @Notiz)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Notiz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Notiz", 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].[tblRechnungsnotizen] SET [Notiz] = @Notiz WHERE (([Notiz] = @Origin"& _ "al_Notiz) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Notiz, SSM"& _ "A_TimeStamp FROM tblRechnungsnotizen WHERE (Notiz = @Notiz)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Notiz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Notiz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Notiz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Notiz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Notiz, SSMA_TimeStamp FROM dbo.tblRechnungsnotizen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblRechnungsnotizenDataTable) 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 VERAGDataSet.tblRechnungsnotizenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblRechnungsnotizenDataTable = New VERAGDataSet.tblRechnungsnotizenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblRechnungsnotizenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblRechnungsnotizen") 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_Notiz As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_Notiz Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Notiz") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Notiz,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Notiz As String) As Integer If (Notiz Is Nothing) Then Throw New Global.System.ArgumentNullException("Notiz") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Notiz,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 Notiz As String, ByVal Original_Notiz As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Notiz Is Nothing) Then Throw New Global.System.ArgumentNullException("Notiz") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Notiz,String) End If If (Original_Notiz Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Notiz") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Notiz,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Original_Notiz As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Notiz, Original_Notiz, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblRefTableAdapter 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 = "tblRef" tableMapping.ColumnMappings.Add("RefBenutzer", "RefBenutzer") tableMapping.ColumnMappings.Add("RefTabelle", "RefTabelle") tableMapping.ColumnMappings.Add("RefFeld", "RefFeld") tableMapping.ColumnMappings.Add("RefIntegrität", "RefIntegrität") tableMapping.ColumnMappings.Add("RefAktualisierung", "RefAktualisierung") tableMapping.ColumnMappings.Add("RefLöschung", "RefLöschung") tableMapping.ColumnMappings.Add("RefAnzahl", "RefAnzahl") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblRef] WHERE (([RefBenutzer] = @Original_RefBenutzer) AND ([R"& _ "efTabelle] = @Original_RefTabelle) AND ([RefFeld] = @Original_RefFeld) AND ([SSM"& _ "A_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RefBenutzer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefBenutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RefTabelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefTabelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RefFeld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefFeld", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblRef] ([RefBenutzer], [RefTabelle], [RefFeld], [RefIntegritä"& _ "t], [RefAktualisierung], [RefLöschung], [RefAnzahl]) VALUES (@RefBenutzer, @RefT"& _ "abelle, @RefFeld, @RefIntegrität, @RefAktualisierung, @RefLöschung, @RefAnzahl);"& _ ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RefBenutzer, RefTabelle, RefFeld, RefIntegrität, RefAktualisierung, Ref"& _ "Löschung, RefAnzahl, SSMA_TimeStamp FROM tblRef WHERE (RefBenutzer = @RefBenutze"& _ "r) AND (RefFeld = @RefFeld) AND (RefTabelle = @RefTabelle)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefBenutzer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefBenutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefTabelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefTabelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefFeld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefFeld", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefIntegrität", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefIntegrität", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefAktualisierung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefAktualisierung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefLöschung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefLöschung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefAnzahl", 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].[tblRef] SET [RefBenutzer] = @RefBenutzer, [RefTabelle] = @RefTabell"& _ "e, [RefFeld] = @RefFeld, [RefIntegrität] = @RefIntegrität, [RefAktualisierung] ="& _ " @RefAktualisierung, [RefLöschung] = @RefLöschung, [RefAnzahl] = @RefAnzahl WHER"& _ "E (([RefBenutzer] = @Original_RefBenutzer) AND ([RefTabelle] = @Original_RefTabe"& _ "lle) AND ([RefFeld] = @Original_RefFeld) AND ([SSMA_TimeStamp] = @Original_SSMA_"& _ "TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RefBenutzer, RefTabelle, RefFeld, RefIntegrität, RefAktuali"& _ "sierung, RefLöschung, RefAnzahl, SSMA_TimeStamp FROM tblRef WHERE (RefBenutzer ="& _ " @RefBenutzer) AND (RefFeld = @RefFeld) AND (RefTabelle = @RefTabelle)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefBenutzer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefBenutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefTabelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefTabelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefFeld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefFeld", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefIntegrität", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefIntegrität", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefAktualisierung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefAktualisierung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefLöschung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefLöschung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefAnzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefAnzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RefBenutzer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefBenutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RefTabelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefTabelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RefFeld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefFeld", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 RefBenutzer, RefTabelle, RefFeld, RefIntegrität, RefAktualisierung, RefLös"& _ "chung, RefAnzahl, SSMA_TimeStamp FROM dbo.tblRef" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblRefDataTable) 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 VERAGDataSet.tblRefDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblRefDataTable = New VERAGDataSet.tblRefDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblRefDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblRef") 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_RefBenutzer As String, ByVal Original_RefTabelle As String, ByVal Original_RefFeld As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_RefBenutzer Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_RefBenutzer") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_RefBenutzer,String) End If If (Original_RefTabelle Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_RefTabelle") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_RefTabelle,String) End If If (Original_RefFeld Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_RefFeld") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_RefFeld,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 RefBenutzer As String, ByVal RefTabelle As String, ByVal RefFeld As String, ByVal RefIntegrität As Global.System.Nullable(Of Boolean), ByVal RefAktualisierung As Global.System.Nullable(Of Boolean), ByVal RefLöschung As Global.System.Nullable(Of Boolean), ByVal RefAnzahl As Integer) As Integer If (RefBenutzer Is Nothing) Then Throw New Global.System.ArgumentNullException("RefBenutzer") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(RefBenutzer,String) End If If (RefTabelle Is Nothing) Then Throw New Global.System.ArgumentNullException("RefTabelle") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(RefTabelle,String) End If If (RefFeld Is Nothing) Then Throw New Global.System.ArgumentNullException("RefFeld") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(RefFeld,String) End If If (RefIntegrität.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(RefIntegrität.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (RefAktualisierung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(RefAktualisierung.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (RefLöschung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(RefLöschung.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(RefAnzahl,Integer) 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 RefBenutzer As String, ByVal RefTabelle As String, ByVal RefFeld As String, ByVal RefIntegrität As Global.System.Nullable(Of Boolean), ByVal RefAktualisierung As Global.System.Nullable(Of Boolean), ByVal RefLöschung As Global.System.Nullable(Of Boolean), ByVal RefAnzahl As Integer, ByVal Original_RefBenutzer As String, ByVal Original_RefTabelle As String, ByVal Original_RefFeld As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (RefBenutzer Is Nothing) Then Throw New Global.System.ArgumentNullException("RefBenutzer") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(RefBenutzer,String) End If If (RefTabelle Is Nothing) Then Throw New Global.System.ArgumentNullException("RefTabelle") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(RefTabelle,String) End If If (RefFeld Is Nothing) Then Throw New Global.System.ArgumentNullException("RefFeld") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(RefFeld,String) End If If (RefIntegrität.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(RefIntegrität.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (RefAktualisierung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RefAktualisierung.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (RefLöschung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(RefLöschung.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(RefAnzahl,Integer) If (Original_RefBenutzer Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_RefBenutzer") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_RefBenutzer,String) End If If (Original_RefTabelle Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_RefTabelle") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_RefTabelle,String) End If If (Original_RefFeld Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_RefFeld") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_RefFeld,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 RefIntegrität As Global.System.Nullable(Of Boolean), ByVal RefAktualisierung As Global.System.Nullable(Of Boolean), ByVal RefLöschung As Global.System.Nullable(Of Boolean), ByVal RefAnzahl As Integer, ByVal Original_RefBenutzer As String, ByVal Original_RefTabelle As String, ByVal Original_RefFeld As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_RefBenutzer, Original_RefTabelle, Original_RefFeld, RefIntegrität, RefAktualisierung, RefLöschung, RefAnzahl, Original_RefBenutzer, Original_RefTabelle, Original_RefFeld, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblRefBeziehungenTableAdapter 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 = "tblRefBeziehungen" tableMapping.ColumnMappings.Add("RefTabelle", "RefTabelle") tableMapping.ColumnMappings.Add("RefFeld", "RefFeld") tableMapping.ColumnMappings.Add("RefIntegrität", "RefIntegrität") tableMapping.ColumnMappings.Add("RefAktualisierung", "RefAktualisierung") tableMapping.ColumnMappings.Add("RefLöschung", "RefLöschung") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblRefBeziehungen] WHERE (([RefTabelle] = @Original_RefTabelle"& _ ") AND ([RefFeld] = @Original_RefFeld) AND ([SSMA_TimeStamp] = @Original_SSMA_Tim"& _ "eStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RefTabelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefTabelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RefFeld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefFeld", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblRefBeziehungen] ([RefTabelle], [RefFeld], [RefIntegrität], "& _ "[RefAktualisierung], [RefLöschung]) VALUES (@RefTabelle, @RefFeld, @RefIntegritä"& _ "t, @RefAktualisierung, @RefLöschung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RefTabelle, RefFeld, RefIntegrität"& _ ", RefAktualisierung, RefLöschung, SSMA_TimeStamp FROM tblRefBeziehungen WHERE (R"& _ "efFeld = @RefFeld) AND (RefTabelle = @RefTabelle)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefTabelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefTabelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefFeld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefFeld", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefIntegrität", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefIntegrität", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefAktualisierung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefAktualisierung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefLöschung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefLöschung", 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].[tblRefBeziehungen] SET [RefTabelle] = @RefTabelle, [RefFeld] = @Ref"& _ "Feld, [RefIntegrität] = @RefIntegrität, [RefAktualisierung] = @RefAktualisierung"& _ ", [RefLöschung] = @RefLöschung WHERE (([RefTabelle] = @Original_RefTabelle) AND "& _ "([RefFeld] = @Original_RefFeld) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp"& _ "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RefTabelle, RefFeld, RefIntegrität, RefAktualisierung, RefLöschung, "& _ "SSMA_TimeStamp FROM tblRefBeziehungen WHERE (RefFeld = @RefFeld) AND (RefTabelle"& _ " = @RefTabelle)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefTabelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefTabelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefFeld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefFeld", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefIntegrität", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefIntegrität", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefAktualisierung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefAktualisierung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefLöschung", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefLöschung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RefTabelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefTabelle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RefFeld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RefFeld", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 RefTabelle, RefFeld, RefIntegrität, RefAktualisierung, RefLöschung, SSMA_T"& _ "imeStamp FROM dbo.tblRefBeziehungen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblRefBeziehungenDataTable) 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 VERAGDataSet.tblRefBeziehungenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblRefBeziehungenDataTable = New VERAGDataSet.tblRefBeziehungenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblRefBeziehungenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblRefBeziehungen") 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_RefTabelle As String, ByVal Original_RefFeld As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_RefTabelle Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_RefTabelle") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_RefTabelle,String) End If If (Original_RefFeld Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_RefFeld") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_RefFeld,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 RefTabelle As String, ByVal RefFeld As String, ByVal RefIntegrität As Global.System.Nullable(Of Boolean), ByVal RefAktualisierung As Global.System.Nullable(Of Boolean), ByVal RefLöschung As Global.System.Nullable(Of Boolean)) As Integer If (RefTabelle Is Nothing) Then Throw New Global.System.ArgumentNullException("RefTabelle") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(RefTabelle,String) End If If (RefFeld Is Nothing) Then Throw New Global.System.ArgumentNullException("RefFeld") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(RefFeld,String) End If If (RefIntegrität.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(RefIntegrität.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (RefAktualisierung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(RefAktualisierung.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (RefLöschung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(RefLöschung.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(4).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 RefTabelle As String, ByVal RefFeld As String, ByVal RefIntegrität As Global.System.Nullable(Of Boolean), ByVal RefAktualisierung As Global.System.Nullable(Of Boolean), ByVal RefLöschung As Global.System.Nullable(Of Boolean), ByVal Original_RefTabelle As String, ByVal Original_RefFeld As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (RefTabelle Is Nothing) Then Throw New Global.System.ArgumentNullException("RefTabelle") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(RefTabelle,String) End If If (RefFeld Is Nothing) Then Throw New Global.System.ArgumentNullException("RefFeld") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(RefFeld,String) End If If (RefIntegrität.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(RefIntegrität.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (RefAktualisierung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(RefAktualisierung.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (RefLöschung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RefLöschung.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_RefTabelle Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_RefTabelle") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_RefTabelle,String) End If If (Original_RefFeld Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_RefFeld") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_RefFeld,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 RefIntegrität As Global.System.Nullable(Of Boolean), ByVal RefAktualisierung As Global.System.Nullable(Of Boolean), ByVal RefLöschung As Global.System.Nullable(Of Boolean), ByVal Original_RefTabelle As String, ByVal Original_RefFeld As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_RefTabelle, Original_RefFeld, RefIntegrität, RefAktualisierung, RefLöschung, Original_RefTabelle, Original_RefFeld, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblRKSV_KassenTableAdapter 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 = "tblRKSV_Kassen" tableMapping.ColumnMappings.Add("rksv_id", "rksv_id") tableMapping.ColumnMappings.Add("rksv_bez", "rksv_bez") tableMapping.ColumnMappings.Add("rksv_CompanyGUID", "rksv_CompanyGUID") tableMapping.ColumnMappings.Add("rksv_firma", "rksv_firma") tableMapping.ColumnMappings.Add("rksv_startdatum", "rksv_startdatum") tableMapping.ColumnMappings.Add("rksv_aktiv", "rksv_aktiv") tableMapping.ColumnMappings.Add("rksvDE_aktiv", "rksvDE_aktiv") tableMapping.ColumnMappings.Add("rksv_BelegIdZaehler", "rksv_BelegIdZaehler") tableMapping.ColumnMappings.Add("rksv_Umsatzzaehler", "rksv_Umsatzzaehler") tableMapping.ColumnMappings.Add("rksv_lastJWS", "rksv_lastJWS") tableMapping.ColumnMappings.Add("rksv_lastQR", "rksv_lastQR") tableMapping.ColumnMappings.Add("rksv_lastBeleg", "rksv_lastBeleg") tableMapping.ColumnMappings.Add("rksv_ITG_id", "rksv_ITG_id") tableMapping.ColumnMappings.Add("rksv_AesKey", "rksv_AesKey") tableMapping.ColumnMappings.Add("rksv_KassaGuid", "rksv_KassaGuid") tableMapping.ColumnMappings.Add("rksv_ipAdresse", "rksv_ipAdresse") tableMapping.ColumnMappings.Add("rksv_DE_TSE_Serial", "rksv_DE_TSE_Serial") tableMapping.ColumnMappings.Add("rksv_DE_user", "rksv_DE_user") tableMapping.ColumnMappings.Add("rksv_DE_pwd", "rksv_DE_pwd") tableMapping.ColumnMappings.Add("rksv_DE_apiToken", "rksv_DE_apiToken") tableMapping.ColumnMappings.Add("rksv_DE_license", "rksv_DE_license") tableMapping.ColumnMappings.Add("rksv_StornoIncreaseBelegCnt", "rksv_StornoIncreaseBelegCnt") 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].[tblRKSV_Kassen] WHERE (([rksv_id] = @Original_rksv_id) AND ([r"& _ "ksv_bez] = @Original_rksv_bez) AND ([rksv_CompanyGUID] = @Original_rksv_CompanyG"& _ "UID) AND ([rksv_firma] = @Original_rksv_firma) AND ((@IsNull_rksv_startdatum = 1"& _ " AND [rksv_startdatum] IS NULL) OR ([rksv_startdatum] = @Original_rksv_startdatu"& _ "m)) AND ([rksv_aktiv] = @Original_rksv_aktiv) AND ([rksvDE_aktiv] = @Original_rk"& _ "svDE_aktiv) AND ([rksv_BelegIdZaehler] = @Original_rksv_BelegIdZaehler) AND ([rk"& _ "sv_Umsatzzaehler] = @Original_rksv_Umsatzzaehler) AND ((@IsNull_rksv_lastBeleg ="& _ " 1 AND [rksv_lastBeleg] IS NULL) OR ([rksv_lastBeleg] = @Original_rksv_lastBeleg"& _ ")) AND ((@IsNull_rksv_ITG_id = 1 AND [rksv_ITG_id] IS NULL) OR ([rksv_ITG_id] = "& _ "@Original_rksv_ITG_id)) AND ((@IsNull_rksv_AesKey = 1 AND [rksv_AesKey] IS NULL)"& _ " OR ([rksv_AesKey] = @Original_rksv_AesKey)) AND ((@IsNull_rksv_KassaGuid = 1 AN"& _ "D [rksv_KassaGuid] IS NULL) OR ([rksv_KassaGuid] = @Original_rksv_KassaGuid)) AN"& _ "D ((@IsNull_rksv_ipAdresse = 1 AND [rksv_ipAdresse] IS NULL) OR ([rksv_ipAdresse"& _ "] = @Original_rksv_ipAdresse)) AND ((@IsNull_rksv_DE_TSE_Serial = 1 AND [rksv_DE"& _ "_TSE_Serial] IS NULL) OR ([rksv_DE_TSE_Serial] = @Original_rksv_DE_TSE_Serial)) "& _ "AND ((@IsNull_rksv_DE_user = 1 AND [rksv_DE_user] IS NULL) OR ([rksv_DE_user] = "& _ "@Original_rksv_DE_user)) AND ((@IsNull_rksv_DE_pwd = 1 AND [rksv_DE_pwd] IS NULL"& _ ") OR ([rksv_DE_pwd] = @Original_rksv_DE_pwd)) AND ((@IsNull_rksv_DE_apiToken = 1"& _ " AND [rksv_DE_apiToken] IS NULL) OR ([rksv_DE_apiToken] = @Original_rksv_DE_apiT"& _ "oken)) AND ((@IsNull_rksv_DE_license = 1 AND [rksv_DE_license] IS NULL) OR ([rks"& _ "v_DE_license] = @Original_rksv_DE_license)) AND ([rksv_StornoIncreaseBelegCnt] ="& _ " @Original_rksv_StornoIncreaseBelegCnt))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_bez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_CompanyGUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_CompanyGUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_startdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_startdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_startdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_startdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_aktiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksvDE_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksvDE_aktiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_BelegIdZaehler", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_BelegIdZaehler", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_Umsatzzaehler", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_Umsatzzaehler", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_lastBeleg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_lastBeleg", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_lastBeleg", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_lastBeleg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_ITG_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ITG_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_ITG_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ITG_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_AesKey", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_AesKey", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_AesKey", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_AesKey", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_KassaGuid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_KassaGuid", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_KassaGuid", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_KassaGuid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_ipAdresse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ipAdresse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_ipAdresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ipAdresse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_DE_TSE_Serial", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_TSE_Serial", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_DE_TSE_Serial", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_TSE_Serial", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_DE_user", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_user", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_DE_user", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_user", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_DE_pwd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_pwd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_DE_pwd", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_pwd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_DE_apiToken", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_apiToken", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_DE_apiToken", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_apiToken", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_DE_license", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_license", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_DE_license", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_license", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_StornoIncreaseBelegCnt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_StornoIncreaseBelegCnt", 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].[tblRKSV_Kassen] ([rksv_bez], [rksv_CompanyGUID], [rksv_firma],"& _ " [rksv_startdatum], [rksv_aktiv], [rksvDE_aktiv], [rksv_BelegIdZaehler], [rksv_U"& _ "msatzzaehler], [rksv_lastJWS], [rksv_lastQR], [rksv_lastBeleg], [rksv_ITG_id], ["& _ "rksv_AesKey], [rksv_KassaGuid], [rksv_ipAdresse], [rksv_DE_TSE_Serial], [rksv_DE"& _ "_user], [rksv_DE_pwd], [rksv_DE_apiToken], [rksv_DE_license], [rksv_StornoIncrea"& _ "seBelegCnt]) VALUES (@rksv_bez, @rksv_CompanyGUID, @rksv_firma, @rksv_startdatum"& _ ", @rksv_aktiv, @rksvDE_aktiv, @rksv_BelegIdZaehler, @rksv_Umsatzzaehler, @rksv_l"& _ "astJWS, @rksv_lastQR, @rksv_lastBeleg, @rksv_ITG_id, @rksv_AesKey, @rksv_KassaGu"& _ "id, @rksv_ipAdresse, @rksv_DE_TSE_Serial, @rksv_DE_user, @rksv_DE_pwd, @rksv_DE_"& _ "apiToken, @rksv_DE_license, @rksv_StornoIncreaseBelegCnt);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT rksv_id, rksv"& _ "_bez, rksv_CompanyGUID, rksv_firma, rksv_startdatum, rksv_aktiv, rksvDE_aktiv, r"& _ "ksv_BelegIdZaehler, rksv_Umsatzzaehler, rksv_lastJWS, rksv_lastQR, rksv_lastBele"& _ "g, rksv_ITG_id, rksv_AesKey, rksv_KassaGuid, rksv_ipAdresse, rksv_DE_TSE_Serial,"& _ " rksv_DE_user, rksv_DE_pwd, rksv_DE_apiToken, rksv_DE_license, rksv_StornoIncrea"& _ "seBelegCnt FROM tblRKSV_Kassen WHERE (rksv_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_CompanyGUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_CompanyGUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_startdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_startdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksvDE_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksvDE_aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_BelegIdZaehler", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_BelegIdZaehler", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_Umsatzzaehler", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_Umsatzzaehler", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_lastJWS", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_lastJWS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_lastQR", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_lastQR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_lastBeleg", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_lastBeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_ITG_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ITG_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_AesKey", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_AesKey", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_KassaGuid", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_KassaGuid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_ipAdresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ipAdresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_DE_TSE_Serial", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_TSE_Serial", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_DE_user", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_user", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_DE_pwd", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_pwd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_DE_apiToken", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_apiToken", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_DE_license", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_license", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_StornoIncreaseBelegCnt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_StornoIncreaseBelegCnt", 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].[tblRKSV_Kassen] SET [rksv_bez] = @rksv_bez, [rksv_CompanyGUID] = @r"& _ "ksv_CompanyGUID, [rksv_firma] = @rksv_firma, [rksv_startdatum] = @rksv_startdatu"& _ "m, [rksv_aktiv] = @rksv_aktiv, [rksvDE_aktiv] = @rksvDE_aktiv, [rksv_BelegIdZaeh"& _ "ler] = @rksv_BelegIdZaehler, [rksv_Umsatzzaehler] = @rksv_Umsatzzaehler, [rksv_l"& _ "astJWS] = @rksv_lastJWS, [rksv_lastQR] = @rksv_lastQR, [rksv_lastBeleg] = @rksv_"& _ "lastBeleg, [rksv_ITG_id] = @rksv_ITG_id, [rksv_AesKey] = @rksv_AesKey, [rksv_Kas"& _ "saGuid] = @rksv_KassaGuid, [rksv_ipAdresse] = @rksv_ipAdresse, [rksv_DE_TSE_Seri"& _ "al] = @rksv_DE_TSE_Serial, [rksv_DE_user] = @rksv_DE_user, [rksv_DE_pwd] = @rksv"& _ "_DE_pwd, [rksv_DE_apiToken] = @rksv_DE_apiToken, [rksv_DE_license] = @rksv_DE_li"& _ "cense, [rksv_StornoIncreaseBelegCnt] = @rksv_StornoIncreaseBelegCnt WHERE (([rks"& _ "v_id] = @Original_rksv_id) AND ([rksv_bez] = @Original_rksv_bez) AND ([rksv_Comp"& _ "anyGUID] = @Original_rksv_CompanyGUID) AND ([rksv_firma] = @Original_rksv_firma)"& _ " AND ((@IsNull_rksv_startdatum = 1 AND [rksv_startdatum] IS NULL) OR ([rksv_star"& _ "tdatum] = @Original_rksv_startdatum)) AND ([rksv_aktiv] = @Original_rksv_aktiv) "& _ "AND ([rksvDE_aktiv] = @Original_rksvDE_aktiv) AND ([rksv_BelegIdZaehler] = @Orig"& _ "inal_rksv_BelegIdZaehler) AND ([rksv_Umsatzzaehler] = @Original_rksv_Umsatzzaehl"& _ "er) AND ((@IsNull_rksv_lastBeleg = 1 AND [rksv_lastBeleg] IS NULL) OR ([rksv_las"& _ "tBeleg] = @Original_rksv_lastBeleg)) AND ((@IsNull_rksv_ITG_id = 1 AND [rksv_ITG"& _ "_id] IS NULL) OR ([rksv_ITG_id] = @Original_rksv_ITG_id)) AND ((@IsNull_rksv_Aes"& _ "Key = 1 AND [rksv_AesKey] IS NULL) OR ([rksv_AesKey] = @Original_rksv_AesKey)) A"& _ "ND ((@IsNull_rksv_KassaGuid = 1 AND [rksv_KassaGuid] IS NULL) OR ([rksv_KassaGui"& _ "d] = @Original_rksv_KassaGuid)) AND ((@IsNull_rksv_ipAdresse = 1 AND [rksv_ipAdr"& _ "esse] IS NULL) OR ([rksv_ipAdresse] = @Original_rksv_ipAdresse)) AND ((@IsNull_r"& _ "ksv_DE_TSE_Serial = 1 AND [rksv_DE_TSE_Serial] IS NULL) OR ([rksv_DE_TSE_Serial]"& _ " = @Original_rksv_DE_TSE_Serial)) AND ((@IsNull_rksv_DE_user = 1 AND [rksv_DE_us"& _ "er] IS NULL) OR ([rksv_DE_user] = @Original_rksv_DE_user)) AND ((@IsNull_rksv_DE"& _ "_pwd = 1 AND [rksv_DE_pwd] IS NULL) OR ([rksv_DE_pwd] = @Original_rksv_DE_pwd)) "& _ "AND ((@IsNull_rksv_DE_apiToken = 1 AND [rksv_DE_apiToken] IS NULL) OR ([rksv_DE_"& _ "apiToken] = @Original_rksv_DE_apiToken)) AND ((@IsNull_rksv_DE_license = 1 AND ["& _ "rksv_DE_license] IS NULL) OR ([rksv_DE_license] = @Original_rksv_DE_license)) AN"& _ "D ([rksv_StornoIncreaseBelegCnt] = @Original_rksv_StornoIncreaseBelegCnt));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ "ECT rksv_id, rksv_bez, rksv_CompanyGUID, rksv_firma, rksv_startdatum, rksv_aktiv"& _ ", rksvDE_aktiv, rksv_BelegIdZaehler, rksv_Umsatzzaehler, rksv_lastJWS, rksv_last"& _ "QR, rksv_lastBeleg, rksv_ITG_id, rksv_AesKey, rksv_KassaGuid, rksv_ipAdresse, rk"& _ "sv_DE_TSE_Serial, rksv_DE_user, rksv_DE_pwd, rksv_DE_apiToken, rksv_DE_license, "& _ "rksv_StornoIncreaseBelegCnt FROM tblRKSV_Kassen WHERE (rksv_id = @rksv_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_CompanyGUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_CompanyGUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_startdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_startdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksvDE_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksvDE_aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_BelegIdZaehler", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_BelegIdZaehler", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_Umsatzzaehler", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_Umsatzzaehler", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_lastJWS", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_lastJWS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_lastQR", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_lastQR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_lastBeleg", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_lastBeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_ITG_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ITG_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_AesKey", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_AesKey", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_KassaGuid", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_KassaGuid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_ipAdresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ipAdresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_DE_TSE_Serial", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_TSE_Serial", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_DE_user", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_user", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_DE_pwd", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_pwd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_DE_apiToken", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_apiToken", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_DE_license", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_license", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_StornoIncreaseBelegCnt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_StornoIncreaseBelegCnt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_bez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_CompanyGUID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_CompanyGUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_startdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_startdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_startdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_startdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_aktiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksvDE_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksvDE_aktiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_BelegIdZaehler", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_BelegIdZaehler", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_Umsatzzaehler", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_Umsatzzaehler", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_lastBeleg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_lastBeleg", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_lastBeleg", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_lastBeleg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_ITG_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ITG_id", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_ITG_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ITG_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_AesKey", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_AesKey", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_AesKey", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_AesKey", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_KassaGuid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_KassaGuid", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_KassaGuid", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_KassaGuid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_ipAdresse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ipAdresse", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_ipAdresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_ipAdresse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_DE_TSE_Serial", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_TSE_Serial", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_DE_TSE_Serial", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_TSE_Serial", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_DE_user", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_user", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_DE_user", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_user", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_DE_pwd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_pwd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_DE_pwd", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_pwd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_DE_apiToken", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_apiToken", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_DE_apiToken", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_apiToken", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rksv_DE_license", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_license", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_DE_license", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_DE_license", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rksv_StornoIncreaseBelegCnt", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_StornoIncreaseBelegCnt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rksv_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "rksv_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 rksv_id, rksv_bez, rksv_CompanyGUID, rksv_firma, rksv_startdatum, rksv_akt"& _ "iv, rksvDE_aktiv, rksv_BelegIdZaehler, rksv_Umsatzzaehler, rksv_lastJWS, rksv_la"& _ "stQR, rksv_lastBeleg, rksv_ITG_id, rksv_AesKey, rksv_KassaGuid, rksv_ipAdresse, "& _ "rksv_DE_TSE_Serial, rksv_DE_user, rksv_DE_pwd, rksv_DE_apiToken, rksv_DE_license"& _ ", rksv_StornoIncreaseBelegCnt FROM dbo.tblRKSV_Kassen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblRKSV_KassenDataTable) 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 VERAGDataSet.tblRKSV_KassenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblRKSV_KassenDataTable = New VERAGDataSet.tblRKSV_KassenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblRKSV_KassenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblRKSV_Kassen") 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_rksv_id As Integer, _ ByVal Original_rksv_bez As String, _ ByVal Original_rksv_CompanyGUID As String, _ ByVal Original_rksv_firma As String, _ ByVal Original_rksv_startdatum As Global.System.Nullable(Of Date), _ ByVal Original_rksv_aktiv As Boolean, _ ByVal Original_rksvDE_aktiv As Boolean, _ ByVal Original_rksv_BelegIdZaehler As Integer, _ ByVal Original_rksv_Umsatzzaehler As Double, _ ByVal Original_rksv_lastBeleg As Global.System.Nullable(Of Date), _ ByVal Original_rksv_ITG_id As Global.System.Nullable(Of Integer), _ ByVal Original_rksv_AesKey As String, _ ByVal Original_rksv_KassaGuid As String, _ ByVal Original_rksv_ipAdresse As String, _ ByVal Original_rksv_DE_TSE_Serial As String, _ ByVal Original_rksv_DE_user As String, _ ByVal Original_rksv_DE_pwd As String, _ ByVal Original_rksv_DE_apiToken As String, _ ByVal Original_rksv_DE_license As String, _ ByVal Original_rksv_StornoIncreaseBelegCnt As Boolean) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rksv_id,Integer) If (Original_rksv_bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_rksv_bez") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_rksv_bez,String) End If If (Original_rksv_CompanyGUID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_rksv_CompanyGUID") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_rksv_CompanyGUID,String) End If If (Original_rksv_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_rksv_firma") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_rksv_firma,String) End If If (Original_rksv_startdatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_rksv_startdatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_rksv_aktiv,Boolean) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_rksvDE_aktiv,Boolean) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_rksv_BelegIdZaehler,Integer) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_rksv_Umsatzzaehler,Double) If (Original_rksv_lastBeleg.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_rksv_lastBeleg.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Original_rksv_ITG_id.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_rksv_ITG_id.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_rksv_AesKey Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_rksv_AesKey,String) End If If (Original_rksv_KassaGuid Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_rksv_KassaGuid,String) End If If (Original_rksv_ipAdresse 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_rksv_ipAdresse,String) End If If (Original_rksv_DE_TSE_Serial 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_rksv_DE_TSE_Serial,String) End If If (Original_rksv_DE_user 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_rksv_DE_user,String) End If If (Original_rksv_DE_pwd 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_rksv_DE_pwd,String) End If If (Original_rksv_DE_apiToken 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_rksv_DE_apiToken,String) End If If (Original_rksv_DE_license 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_rksv_DE_license,String) End If Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_rksv_StornoIncreaseBelegCnt,Boolean) 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 rksv_bez As String, _ ByVal rksv_CompanyGUID As String, _ ByVal rksv_firma As String, _ ByVal rksv_startdatum As Global.System.Nullable(Of Date), _ ByVal rksv_aktiv As Boolean, _ ByVal rksvDE_aktiv As Boolean, _ ByVal rksv_BelegIdZaehler As Integer, _ ByVal rksv_Umsatzzaehler As Double, _ ByVal rksv_lastJWS As String, _ ByVal rksv_lastQR As String, _ ByVal rksv_lastBeleg As Global.System.Nullable(Of Date), _ ByVal rksv_ITG_id As Global.System.Nullable(Of Integer), _ ByVal rksv_AesKey As String, _ ByVal rksv_KassaGuid As String, _ ByVal rksv_ipAdresse As String, _ ByVal rksv_DE_TSE_Serial As String, _ ByVal rksv_DE_user As String, _ ByVal rksv_DE_pwd As String, _ ByVal rksv_DE_apiToken As String, _ ByVal rksv_DE_license As String, _ ByVal rksv_StornoIncreaseBelegCnt As Boolean) As Integer If (rksv_bez Is Nothing) Then Throw New Global.System.ArgumentNullException("rksv_bez") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(rksv_bez,String) End If If (rksv_CompanyGUID Is Nothing) Then Throw New Global.System.ArgumentNullException("rksv_CompanyGUID") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(rksv_CompanyGUID,String) End If If (rksv_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("rksv_firma") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(rksv_firma,String) End If If (rksv_startdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(rksv_startdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(rksv_aktiv,Boolean) Me.Adapter.InsertCommand.Parameters(5).Value = CType(rksvDE_aktiv,Boolean) Me.Adapter.InsertCommand.Parameters(6).Value = CType(rksv_BelegIdZaehler,Integer) Me.Adapter.InsertCommand.Parameters(7).Value = CType(rksv_Umsatzzaehler,Double) If (rksv_lastJWS Is Nothing) Then Throw New Global.System.ArgumentNullException("rksv_lastJWS") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(rksv_lastJWS,String) End If If (rksv_lastQR Is Nothing) Then Throw New Global.System.ArgumentNullException("rksv_lastQR") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(rksv_lastQR,String) End If If (rksv_lastBeleg.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(rksv_lastBeleg.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (rksv_ITG_id.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(rksv_ITG_id.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (rksv_AesKey Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(rksv_AesKey,String) End If If (rksv_KassaGuid Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(rksv_KassaGuid,String) End If If (rksv_ipAdresse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(rksv_ipAdresse,String) End If If (rksv_DE_TSE_Serial Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(rksv_DE_TSE_Serial,String) End If If (rksv_DE_user Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(rksv_DE_user,String) End If If (rksv_DE_pwd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(rksv_DE_pwd,String) End If If (rksv_DE_apiToken Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(rksv_DE_apiToken,String) End If If (rksv_DE_license Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(rksv_DE_license,String) End If Me.Adapter.InsertCommand.Parameters(20).Value = CType(rksv_StornoIncreaseBelegCnt,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 rksv_bez As String, _ ByVal rksv_CompanyGUID As String, _ ByVal rksv_firma As String, _ ByVal rksv_startdatum As Global.System.Nullable(Of Date), _ ByVal rksv_aktiv As Boolean, _ ByVal rksvDE_aktiv As Boolean, _ ByVal rksv_BelegIdZaehler As Integer, _ ByVal rksv_Umsatzzaehler As Double, _ ByVal rksv_lastJWS As String, _ ByVal rksv_lastQR As String, _ ByVal rksv_lastBeleg As Global.System.Nullable(Of Date), _ ByVal rksv_ITG_id As Global.System.Nullable(Of Integer), _ ByVal rksv_AesKey As String, _ ByVal rksv_KassaGuid As String, _ ByVal rksv_ipAdresse As String, _ ByVal rksv_DE_TSE_Serial As String, _ ByVal rksv_DE_user As String, _ ByVal rksv_DE_pwd As String, _ ByVal rksv_DE_apiToken As String, _ ByVal rksv_DE_license As String, _ ByVal rksv_StornoIncreaseBelegCnt As Boolean, _ ByVal Original_rksv_id As Integer, _ ByVal Original_rksv_bez As String, _ ByVal Original_rksv_CompanyGUID As String, _ ByVal Original_rksv_firma As String, _ ByVal Original_rksv_startdatum As Global.System.Nullable(Of Date), _ ByVal Original_rksv_aktiv As Boolean, _ ByVal Original_rksvDE_aktiv As Boolean, _ ByVal Original_rksv_BelegIdZaehler As Integer, _ ByVal Original_rksv_Umsatzzaehler As Double, _ ByVal Original_rksv_lastBeleg As Global.System.Nullable(Of Date), _ ByVal Original_rksv_ITG_id As Global.System.Nullable(Of Integer), _ ByVal Original_rksv_AesKey As String, _ ByVal Original_rksv_KassaGuid As String, _ ByVal Original_rksv_ipAdresse As String, _ ByVal Original_rksv_DE_TSE_Serial As String, _ ByVal Original_rksv_DE_user As String, _ ByVal Original_rksv_DE_pwd As String, _ ByVal Original_rksv_DE_apiToken As String, _ ByVal Original_rksv_DE_license As String, _ ByVal Original_rksv_StornoIncreaseBelegCnt As Boolean, _ ByVal rksv_id As Integer) As Integer If (rksv_bez Is Nothing) Then Throw New Global.System.ArgumentNullException("rksv_bez") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rksv_bez,String) End If If (rksv_CompanyGUID Is Nothing) Then Throw New Global.System.ArgumentNullException("rksv_CompanyGUID") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(rksv_CompanyGUID,String) End If If (rksv_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("rksv_firma") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(rksv_firma,String) End If If (rksv_startdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(rksv_startdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(rksv_aktiv,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(rksvDE_aktiv,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(rksv_BelegIdZaehler,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(rksv_Umsatzzaehler,Double) If (rksv_lastJWS Is Nothing) Then Throw New Global.System.ArgumentNullException("rksv_lastJWS") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(rksv_lastJWS,String) End If If (rksv_lastQR Is Nothing) Then Throw New Global.System.ArgumentNullException("rksv_lastQR") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(rksv_lastQR,String) End If If (rksv_lastBeleg.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(rksv_lastBeleg.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (rksv_ITG_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(rksv_ITG_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (rksv_AesKey Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(rksv_AesKey,String) End If If (rksv_KassaGuid Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(rksv_KassaGuid,String) End If If (rksv_ipAdresse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(rksv_ipAdresse,String) End If If (rksv_DE_TSE_Serial Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(rksv_DE_TSE_Serial,String) End If If (rksv_DE_user Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(rksv_DE_user,String) End If If (rksv_DE_pwd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(rksv_DE_pwd,String) End If If (rksv_DE_apiToken Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(rksv_DE_apiToken,String) End If If (rksv_DE_license Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(rksv_DE_license,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(rksv_StornoIncreaseBelegCnt,Boolean) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_rksv_id,Integer) If (Original_rksv_bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_rksv_bez") Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_rksv_bez,String) End If If (Original_rksv_CompanyGUID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_rksv_CompanyGUID") Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_rksv_CompanyGUID,String) End If If (Original_rksv_firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_rksv_firma") Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_rksv_firma,String) End If If (Original_rksv_startdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_rksv_startdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_rksv_aktiv,Boolean) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_rksvDE_aktiv,Boolean) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_rksv_BelegIdZaehler,Integer) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_rksv_Umsatzzaehler,Double) If (Original_rksv_lastBeleg.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_rksv_lastBeleg.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_rksv_ITG_id.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_rksv_ITG_id.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_rksv_AesKey Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_rksv_AesKey,String) End If If (Original_rksv_KassaGuid 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_rksv_KassaGuid,String) End If If (Original_rksv_ipAdresse 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_rksv_ipAdresse,String) End If If (Original_rksv_DE_TSE_Serial 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_rksv_DE_TSE_Serial,String) End If If (Original_rksv_DE_user 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_rksv_DE_user,String) End If If (Original_rksv_DE_pwd 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_rksv_DE_pwd,String) End If If (Original_rksv_DE_apiToken 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_rksv_DE_apiToken,String) End If If (Original_rksv_DE_license Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_rksv_DE_license,String) End If Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_rksv_StornoIncreaseBelegCnt,Boolean) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(rksv_id,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 rksv_bez As String, _ ByVal rksv_CompanyGUID As String, _ ByVal rksv_firma As String, _ ByVal rksv_startdatum As Global.System.Nullable(Of Date), _ ByVal rksv_aktiv As Boolean, _ ByVal rksvDE_aktiv As Boolean, _ ByVal rksv_BelegIdZaehler As Integer, _ ByVal rksv_Umsatzzaehler As Double, _ ByVal rksv_lastJWS As String, _ ByVal rksv_lastQR As String, _ ByVal rksv_lastBeleg As Global.System.Nullable(Of Date), _ ByVal rksv_ITG_id As Global.System.Nullable(Of Integer), _ ByVal rksv_AesKey As String, _ ByVal rksv_KassaGuid As String, _ ByVal rksv_ipAdresse As String, _ ByVal rksv_DE_TSE_Serial As String, _ ByVal rksv_DE_user As String, _ ByVal rksv_DE_pwd As String, _ ByVal rksv_DE_apiToken As String, _ ByVal rksv_DE_license As String, _ ByVal rksv_StornoIncreaseBelegCnt As Boolean, _ ByVal Original_rksv_id As Integer, _ ByVal Original_rksv_bez As String, _ ByVal Original_rksv_CompanyGUID As String, _ ByVal Original_rksv_firma As String, _ ByVal Original_rksv_startdatum As Global.System.Nullable(Of Date), _ ByVal Original_rksv_aktiv As Boolean, _ ByVal Original_rksvDE_aktiv As Boolean, _ ByVal Original_rksv_BelegIdZaehler As Integer, _ ByVal Original_rksv_Umsatzzaehler As Double, _ ByVal Original_rksv_lastBeleg As Global.System.Nullable(Of Date), _ ByVal Original_rksv_ITG_id As Global.System.Nullable(Of Integer), _ ByVal Original_rksv_AesKey As String, _ ByVal Original_rksv_KassaGuid As String, _ ByVal Original_rksv_ipAdresse As String, _ ByVal Original_rksv_DE_TSE_Serial As String, _ ByVal Original_rksv_DE_user As String, _ ByVal Original_rksv_DE_pwd As String, _ ByVal Original_rksv_DE_apiToken As String, _ ByVal Original_rksv_DE_license As String, _ ByVal Original_rksv_StornoIncreaseBelegCnt As Boolean) As Integer Return Me.Update(rksv_bez, rksv_CompanyGUID, rksv_firma, rksv_startdatum, rksv_aktiv, rksvDE_aktiv, rksv_BelegIdZaehler, rksv_Umsatzzaehler, rksv_lastJWS, rksv_lastQR, rksv_lastBeleg, rksv_ITG_id, rksv_AesKey, rksv_KassaGuid, rksv_ipAdresse, rksv_DE_TSE_Serial, rksv_DE_user, rksv_DE_pwd, rksv_DE_apiToken, rksv_DE_license, rksv_StornoIncreaseBelegCnt, Original_rksv_id, Original_rksv_bez, Original_rksv_CompanyGUID, Original_rksv_firma, Original_rksv_startdatum, Original_rksv_aktiv, Original_rksvDE_aktiv, Original_rksv_BelegIdZaehler, Original_rksv_Umsatzzaehler, Original_rksv_lastBeleg, Original_rksv_ITG_id, Original_rksv_AesKey, Original_rksv_KassaGuid, Original_rksv_ipAdresse, Original_rksv_DE_TSE_Serial, Original_rksv_DE_user, Original_rksv_DE_pwd, Original_rksv_DE_apiToken, Original_rksv_DE_license, Original_rksv_StornoIncreaseBelegCnt, Original_rksv_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblRKSV_POSTableAdapter 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 = "tblRKSV_POS" tableMapping.ColumnMappings.Add("pos_id", "pos_id") tableMapping.ColumnMappings.Add("pos_aktiv", "pos_aktiv") tableMapping.ColumnMappings.Add("pos_kasse", "pos_kasse") tableMapping.ColumnMappings.Add("pos_kassennr", "pos_kassennr") tableMapping.ColumnMappings.Add("pos_bezeichnung", "pos_bezeichnung") tableMapping.ColumnMappings.Add("pos_com", "pos_com") tableMapping.ColumnMappings.Add("pos_baudrate", "pos_baudrate") tableMapping.ColumnMappings.Add("pos_comspeed", "pos_comspeed") tableMapping.ColumnMappings.Add("pos_comstop", "pos_comstop") tableMapping.ColumnMappings.Add("pos_ip", "pos_ip") tableMapping.ColumnMappings.Add("pos_port", "pos_port") tableMapping.ColumnMappings.Add("pos_typ", "pos_typ") tableMapping.ColumnMappings.Add("pos_lizenz", "pos_lizenz") tableMapping.ColumnMappings.Add("pos_kassendruck", "pos_kassendruck") tableMapping.ColumnMappings.Add("pos_demoausdruck", "pos_demoausdruck") tableMapping.ColumnMappings.Add("pos_demodummyausdruck", "pos_demodummyausdruck") tableMapping.ColumnMappings.Add("pos_pin", "pos_pin") tableMapping.ColumnMappings.Add("pos_händerbeleg_drucken", "pos_händerbeleg_drucken") tableMapping.ColumnMappings.Add("pos_storno", "pos_storno") tableMapping.ColumnMappings.Add("pos_wartezeit", "pos_wartezeit") tableMapping.ColumnMappings.Add("pos_FIBU", "pos_FIBU") tableMapping.ColumnMappings.Add("pos_XML", "pos_XML") tableMapping.ColumnMappings.Add("pos_Protokollpfad", "pos_Protokollpfad") 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].[tblRKSV_POS] WHERE (([pos_id] = @Original_pos_id) AND ([pos_ak"& _ "tiv] = @Original_pos_aktiv) AND ([pos_kasse] = @Original_pos_kasse) AND ((@IsNul"& _ "l_pos_kassennr = 1 AND [pos_kassennr] IS NULL) OR ([pos_kassennr] = @Original_po"& _ "s_kassennr)) AND ([pos_bezeichnung] = @Original_pos_bezeichnung) AND ((@IsNull_p"& _ "os_com = 1 AND [pos_com] IS NULL) OR ([pos_com] = @Original_pos_com)) AND ((@IsN"& _ "ull_pos_baudrate = 1 AND [pos_baudrate] IS NULL) OR ([pos_baudrate] = @Original_"& _ "pos_baudrate)) AND ((@IsNull_pos_comspeed = 1 AND [pos_comspeed] IS NULL) OR ([p"& _ "os_comspeed] = @Original_pos_comspeed)) AND ((@IsNull_pos_comstop = 1 AND [pos_c"& _ "omstop] IS NULL) OR ([pos_comstop] = @Original_pos_comstop)) AND ((@IsNull_pos_i"& _ "p = 1 AND [pos_ip] IS NULL) OR ([pos_ip] = @Original_pos_ip)) AND ((@IsNull_pos_"& _ "port = 1 AND [pos_port] IS NULL) OR ([pos_port] = @Original_pos_port)) AND ((@Is"& _ "Null_pos_typ = 1 AND [pos_typ] IS NULL) OR ([pos_typ] = @Original_pos_typ)) AND "& _ "((@IsNull_pos_lizenz = 1 AND [pos_lizenz] IS NULL) OR ([pos_lizenz] = @Original_"& _ "pos_lizenz)) AND ((@IsNull_pos_kassendruck = 1 AND [pos_kassendruck] IS NULL) OR"& _ " ([pos_kassendruck] = @Original_pos_kassendruck)) AND ((@IsNull_pos_demoausdruck"& _ " = 1 AND [pos_demoausdruck] IS NULL) OR ([pos_demoausdruck] = @Original_pos_demo"& _ "ausdruck)) AND ((@IsNull_pos_demodummyausdruck = 1 AND [pos_demodummyausdruck] I"& _ "S NULL) OR ([pos_demodummyausdruck] = @Original_pos_demodummyausdruck)) AND ((@I"& _ "sNull_pos_pin = 1 AND [pos_pin] IS NULL) OR ([pos_pin] = @Original_pos_pin)) AND"& _ " ((@IsNull_pos_händerbeleg_drucken = 1 AND [pos_händerbeleg_drucken] IS NULL) OR"& _ " ([pos_händerbeleg_drucken] = @Original_pos_händerbeleg_drucken)) AND ((@IsNull_"& _ "pos_storno = 1 AND [pos_storno] IS NULL) OR ([pos_storno] = @Original_pos_storno"& _ ")) AND ((@IsNull_pos_wartezeit = 1 AND [pos_wartezeit] IS NULL) OR ([pos_warteze"& _ "it] = @Original_pos_wartezeit)) AND ((@IsNull_pos_FIBU = 1 AND [pos_FIBU] IS NUL"& _ "L) OR ([pos_FIBU] = @Original_pos_FIBU)) AND ((@IsNull_pos_XML = 1 AND [pos_XML]"& _ " IS NULL) OR ([pos_XML] = @Original_pos_XML)) AND ((@IsNull_pos_Protokollpfad = "& _ "1 AND [pos_Protokollpfad] IS NULL) OR ([pos_Protokollpfad] = @Original_pos_Proto"& _ "kollpfad)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_aktiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_kasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_kassennr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassennr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_kassennr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassennr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_com", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_com", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_com", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_com", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_baudrate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_baudrate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_baudrate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_baudrate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_comspeed", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comspeed", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_comspeed", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comspeed", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_comstop", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comstop", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_comstop", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comstop", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_ip", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_ip", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_ip", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_ip", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_port", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_port", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_port", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_port", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_typ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_typ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_lizenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_lizenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_lizenz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_lizenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_kassendruck", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassendruck", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_kassendruck", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassendruck", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_demoausdruck", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demoausdruck", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_demoausdruck", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demoausdruck", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_demodummyausdruck", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demodummyausdruck", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_demodummyausdruck", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demodummyausdruck", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_pin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_pin", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_pin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_pin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_händerbeleg_drucken", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_händerbeleg_drucken", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_händerbeleg_drucken", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_händerbeleg_drucken", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_storno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_storno", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_storno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_storno", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_wartezeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_wartezeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_wartezeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_wartezeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_FIBU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_FIBU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_FIBU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_FIBU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_XML", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_XML", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_XML", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_XML", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_Protokollpfad", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_Protokollpfad", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_Protokollpfad", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_Protokollpfad", 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].[tblRKSV_POS] ([pos_aktiv], [pos_kasse], [pos_kassennr], [pos_b"& _ "ezeichnung], [pos_com], [pos_baudrate], [pos_comspeed], [pos_comstop], [pos_ip],"& _ " [pos_port], [pos_typ], [pos_lizenz], [pos_kassendruck], [pos_demoausdruck], [po"& _ "s_demodummyausdruck], [pos_pin], [pos_händerbeleg_drucken], [pos_storno], [pos_w"& _ "artezeit], [pos_FIBU], [pos_XML], [pos_Protokollpfad]) VALUES (@pos_aktiv, @pos_"& _ "kasse, @pos_kassennr, @pos_bezeichnung, @pos_com, @pos_baudrate, @pos_comspeed, "& _ "@pos_comstop, @pos_ip, @pos_port, @pos_typ, @pos_lizenz, @pos_kassendruck, @pos_"& _ "demoausdruck, @pos_demodummyausdruck, @pos_pin, @pos_händerbeleg_drucken, @pos_s"& _ "torno, @pos_wartezeit, @pos_FIBU, @pos_XML, @pos_Protokollpfad);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pos_id,"& _ " pos_aktiv, pos_kasse, pos_kassennr, pos_bezeichnung, pos_com, pos_baudrate, pos"& _ "_comspeed, pos_comstop, pos_ip, pos_port, pos_typ, pos_lizenz, pos_kassendruck, "& _ "pos_demoausdruck, pos_demodummyausdruck, pos_pin, pos_händerbeleg_drucken, pos_s"& _ "torno, pos_wartezeit, pos_FIBU, pos_XML, pos_Protokollpfad FROM tblRKSV_POS WHER"& _ "E (pos_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_kasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_kassennr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassennr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_com", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_com", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_baudrate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_baudrate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_comspeed", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comspeed", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_comstop", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comstop", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_ip", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_ip", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_port", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_port", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_typ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_lizenz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_lizenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_kassendruck", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassendruck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_demoausdruck", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demoausdruck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_demodummyausdruck", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demodummyausdruck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_pin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_pin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_händerbeleg_drucken", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_händerbeleg_drucken", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_storno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_storno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_wartezeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_wartezeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_FIBU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_FIBU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_XML", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_XML", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_Protokollpfad", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_Protokollpfad", 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].[tblRKSV_POS] SET [pos_aktiv] = @pos_aktiv, [pos_kasse] = @pos_kasse"& _ ", [pos_kassennr] = @pos_kassennr, [pos_bezeichnung] = @pos_bezeichnung, [pos_com"& _ "] = @pos_com, [pos_baudrate] = @pos_baudrate, [pos_comspeed] = @pos_comspeed, [p"& _ "os_comstop] = @pos_comstop, [pos_ip] = @pos_ip, [pos_port] = @pos_port, [pos_typ"& _ "] = @pos_typ, [pos_lizenz] = @pos_lizenz, [pos_kassendruck] = @pos_kassendruck, "& _ "[pos_demoausdruck] = @pos_demoausdruck, [pos_demodummyausdruck] = @pos_demodummy"& _ "ausdruck, [pos_pin] = @pos_pin, [pos_händerbeleg_drucken] = @pos_händerbeleg_dru"& _ "cken, [pos_storno] = @pos_storno, [pos_wartezeit] = @pos_wartezeit, [pos_FIBU] ="& _ " @pos_FIBU, [pos_XML] = @pos_XML, [pos_Protokollpfad] = @pos_Protokollpfad WHERE"& _ " (([pos_id] = @Original_pos_id) AND ([pos_aktiv] = @Original_pos_aktiv) AND ([po"& _ "s_kasse] = @Original_pos_kasse) AND ((@IsNull_pos_kassennr = 1 AND [pos_kassennr"& _ "] IS NULL) OR ([pos_kassennr] = @Original_pos_kassennr)) AND ([pos_bezeichnung] "& _ "= @Original_pos_bezeichnung) AND ((@IsNull_pos_com = 1 AND [pos_com] IS NULL) OR"& _ " ([pos_com] = @Original_pos_com)) AND ((@IsNull_pos_baudrate = 1 AND [pos_baudra"& _ "te] IS NULL) OR ([pos_baudrate] = @Original_pos_baudrate)) AND ((@IsNull_pos_com"& _ "speed = 1 AND [pos_comspeed] IS NULL) OR ([pos_comspeed] = @Original_pos_comspee"& _ "d)) AND ((@IsNull_pos_comstop = 1 AND [pos_comstop] IS NULL) OR ([pos_comstop] ="& _ " @Original_pos_comstop)) AND ((@IsNull_pos_ip = 1 AND [pos_ip] IS NULL) OR ([pos"& _ "_ip] = @Original_pos_ip)) AND ((@IsNull_pos_port = 1 AND [pos_port] IS NULL) OR "& _ "([pos_port] = @Original_pos_port)) AND ((@IsNull_pos_typ = 1 AND [pos_typ] IS NU"& _ "LL) OR ([pos_typ] = @Original_pos_typ)) AND ((@IsNull_pos_lizenz = 1 AND [pos_li"& _ "zenz] IS NULL) OR ([pos_lizenz] = @Original_pos_lizenz)) AND ((@IsNull_pos_kasse"& _ "ndruck = 1 AND [pos_kassendruck] IS NULL) OR ([pos_kassendruck] = @Original_pos_"& _ "kassendruck)) AND ((@IsNull_pos_demoausdruck = 1 AND [pos_demoausdruck] IS NULL)"& _ " OR ([pos_demoausdruck] = @Original_pos_demoausdruck)) AND ((@IsNull_pos_demodum"& _ "myausdruck = 1 AND [pos_demodummyausdruck] IS NULL) OR ([pos_demodummyausdruck] "& _ "= @Original_pos_demodummyausdruck)) AND ((@IsNull_pos_pin = 1 AND [pos_pin] IS N"& _ "ULL) OR ([pos_pin] = @Original_pos_pin)) AND ((@IsNull_pos_händerbeleg_drucken ="& _ " 1 AND [pos_händerbeleg_drucken] IS NULL) OR ([pos_händerbeleg_drucken] = @Origi"& _ "nal_pos_händerbeleg_drucken)) AND ((@IsNull_pos_storno = 1 AND [pos_storno] IS N"& _ "ULL) OR ([pos_storno] = @Original_pos_storno)) AND ((@IsNull_pos_wartezeit = 1 A"& _ "ND [pos_wartezeit] IS NULL) OR ([pos_wartezeit] = @Original_pos_wartezeit)) AND "& _ "((@IsNull_pos_FIBU = 1 AND [pos_FIBU] IS NULL) OR ([pos_FIBU] = @Original_pos_FI"& _ "BU)) AND ((@IsNull_pos_XML = 1 AND [pos_XML] IS NULL) OR ([pos_XML] = @Original_"& _ "pos_XML)) AND ((@IsNull_pos_Protokollpfad = 1 AND [pos_Protokollpfad] IS NULL) O"& _ "R ([pos_Protokollpfad] = @Original_pos_Protokollpfad)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pos_id, pos_akt"& _ "iv, pos_kasse, pos_kassennr, pos_bezeichnung, pos_com, pos_baudrate, pos_comspee"& _ "d, pos_comstop, pos_ip, pos_port, pos_typ, pos_lizenz, pos_kassendruck, pos_demo"& _ "ausdruck, pos_demodummyausdruck, pos_pin, pos_händerbeleg_drucken, pos_storno, p"& _ "os_wartezeit, pos_FIBU, pos_XML, pos_Protokollpfad FROM tblRKSV_POS WHERE (pos_i"& _ "d = @pos_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_aktiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_kasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_kassennr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassennr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_com", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_com", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_baudrate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_baudrate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_comspeed", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comspeed", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_comstop", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comstop", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_ip", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_ip", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_port", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_port", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_typ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_lizenz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_lizenz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_kassendruck", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassendruck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_demoausdruck", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demoausdruck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_demodummyausdruck", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demodummyausdruck", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_pin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_pin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_händerbeleg_drucken", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_händerbeleg_drucken", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_storno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_storno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_wartezeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_wartezeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_FIBU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_FIBU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_XML", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_XML", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_Protokollpfad", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_Protokollpfad", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_aktiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_aktiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_kasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kasse", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_kassennr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassennr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_kassennr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassennr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_bezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_com", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_com", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_com", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_com", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_baudrate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_baudrate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_baudrate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_baudrate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_comspeed", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comspeed", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_comspeed", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comspeed", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_comstop", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comstop", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_comstop", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_comstop", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_ip", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_ip", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_ip", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_ip", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_port", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_port", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_port", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_port", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_typ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_typ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_lizenz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_lizenz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_lizenz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_lizenz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_kassendruck", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassendruck", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_kassendruck", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_kassendruck", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_demoausdruck", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demoausdruck", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_demoausdruck", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demoausdruck", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_demodummyausdruck", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demodummyausdruck", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_demodummyausdruck", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_demodummyausdruck", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_pin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_pin", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_pin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_pin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_händerbeleg_drucken", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_händerbeleg_drucken", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_händerbeleg_drucken", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_händerbeleg_drucken", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_storno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_storno", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_storno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_storno", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_wartezeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_wartezeit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_wartezeit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_wartezeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_FIBU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_FIBU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_FIBU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_FIBU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_XML", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_XML", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_XML", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_XML", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_pos_Protokollpfad", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_Protokollpfad", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pos_Protokollpfad", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_Protokollpfad", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pos_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "pos_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 pos_id, pos_aktiv, pos_kasse, pos_kassennr, pos_bezeichnung, pos_com, pos_"& _ "baudrate, pos_comspeed, pos_comstop, pos_ip, pos_port, pos_typ, pos_lizenz, pos_"& _ "kassendruck, pos_demoausdruck, pos_demodummyausdruck, pos_pin, pos_händerbeleg_d"& _ "rucken, pos_storno, pos_wartezeit, pos_FIBU, pos_XML, pos_Protokollpfad FROM dbo"& _ ".tblRKSV_POS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblRKSV_POSDataTable) 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 VERAGDataSet.tblRKSV_POSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblRKSV_POSDataTable = New VERAGDataSet.tblRKSV_POSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblRKSV_POSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblRKSV_POS") 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_pos_id As Integer, _ ByVal Original_pos_aktiv As Boolean, _ ByVal Original_pos_kasse As Integer, _ ByVal Original_pos_kassennr As Global.System.Nullable(Of Integer), _ ByVal Original_pos_bezeichnung As String, _ ByVal Original_pos_com As String, _ ByVal Original_pos_baudrate As Global.System.Nullable(Of Integer), _ ByVal Original_pos_comspeed As Global.System.Nullable(Of Integer), _ ByVal Original_pos_comstop As Global.System.Nullable(Of Integer), _ ByVal Original_pos_ip As String, _ ByVal Original_pos_port As Global.System.Nullable(Of Integer), _ ByVal Original_pos_typ As String, _ ByVal Original_pos_lizenz As String, _ ByVal Original_pos_kassendruck As Global.System.Nullable(Of Integer), _ ByVal Original_pos_demoausdruck As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_demodummyausdruck As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_pin As Global.System.Nullable(Of Integer), _ ByVal Original_pos_händerbeleg_drucken As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_storno As Global.System.Nullable(Of Integer), _ ByVal Original_pos_wartezeit As Global.System.Nullable(Of Integer), _ ByVal Original_pos_FIBU As Global.System.Nullable(Of Integer), _ ByVal Original_pos_XML As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_Protokollpfad As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_pos_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_pos_aktiv,Boolean) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_pos_kasse,Integer) If (Original_pos_kassennr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_pos_kassennr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_pos_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pos_bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_pos_bezeichnung,String) End If If (Original_pos_com 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_pos_com,String) End If If (Original_pos_baudrate.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_pos_baudrate.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_pos_comspeed.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_pos_comspeed.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Original_pos_comstop.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_pos_comstop.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_pos_ip Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_pos_ip,String) End If If (Original_pos_port.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_pos_port.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_pos_typ 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_pos_typ,String) End If If (Original_pos_lizenz 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_pos_lizenz,String) End If If (Original_pos_kassendruck.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_pos_kassendruck.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_pos_demoausdruck.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_pos_demoausdruck.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_pos_demodummyausdruck.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_pos_demodummyausdruck.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_pos_pin.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_pos_pin.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Original_pos_händerbeleg_drucken.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_pos_händerbeleg_drucken.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Original_pos_storno.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_pos_storno.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_pos_wartezeit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_pos_wartezeit.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_pos_FIBU.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_pos_FIBU.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Original_pos_XML.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_pos_XML.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_pos_Protokollpfad Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_pos_Protokollpfad,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 pos_aktiv As Boolean, _ ByVal pos_kasse As Integer, _ ByVal pos_kassennr As Global.System.Nullable(Of Integer), _ ByVal pos_bezeichnung As String, _ ByVal pos_com As String, _ ByVal pos_baudrate As Global.System.Nullable(Of Integer), _ ByVal pos_comspeed As Global.System.Nullable(Of Integer), _ ByVal pos_comstop As Global.System.Nullable(Of Integer), _ ByVal pos_ip As String, _ ByVal pos_port As Global.System.Nullable(Of Integer), _ ByVal pos_typ As String, _ ByVal pos_lizenz As String, _ ByVal pos_kassendruck As Global.System.Nullable(Of Integer), _ ByVal pos_demoausdruck As Global.System.Nullable(Of Boolean), _ ByVal pos_demodummyausdruck As Global.System.Nullable(Of Boolean), _ ByVal pos_pin As Global.System.Nullable(Of Integer), _ ByVal pos_händerbeleg_drucken As Global.System.Nullable(Of Boolean), _ ByVal pos_storno As Global.System.Nullable(Of Integer), _ ByVal pos_wartezeit As Global.System.Nullable(Of Integer), _ ByVal pos_FIBU As Global.System.Nullable(Of Integer), _ ByVal pos_XML As Global.System.Nullable(Of Boolean), _ ByVal pos_Protokollpfad As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(pos_aktiv,Boolean) Me.Adapter.InsertCommand.Parameters(1).Value = CType(pos_kasse,Integer) If (pos_kassennr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(pos_kassennr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (pos_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("pos_bezeichnung") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(pos_bezeichnung,String) End If If (pos_com Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(pos_com,String) End If If (pos_baudrate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(pos_baudrate.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (pos_comspeed.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(pos_comspeed.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (pos_comstop.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(pos_comstop.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (pos_ip Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(pos_ip,String) End If If (pos_port.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(pos_port.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (pos_typ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(pos_typ,String) End If If (pos_lizenz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(pos_lizenz,String) End If If (pos_kassendruck.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(pos_kassendruck.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (pos_demoausdruck.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(pos_demoausdruck.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (pos_demodummyausdruck.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(pos_demodummyausdruck.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (pos_pin.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(pos_pin.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (pos_händerbeleg_drucken.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(pos_händerbeleg_drucken.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (pos_storno.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(pos_storno.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (pos_wartezeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(pos_wartezeit.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (pos_FIBU.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(pos_FIBU.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (pos_XML.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(pos_XML.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (pos_Protokollpfad Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(pos_Protokollpfad,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 pos_aktiv As Boolean, _ ByVal pos_kasse As Integer, _ ByVal pos_kassennr As Global.System.Nullable(Of Integer), _ ByVal pos_bezeichnung As String, _ ByVal pos_com As String, _ ByVal pos_baudrate As Global.System.Nullable(Of Integer), _ ByVal pos_comspeed As Global.System.Nullable(Of Integer), _ ByVal pos_comstop As Global.System.Nullable(Of Integer), _ ByVal pos_ip As String, _ ByVal pos_port As Global.System.Nullable(Of Integer), _ ByVal pos_typ As String, _ ByVal pos_lizenz As String, _ ByVal pos_kassendruck As Global.System.Nullable(Of Integer), _ ByVal pos_demoausdruck As Global.System.Nullable(Of Boolean), _ ByVal pos_demodummyausdruck As Global.System.Nullable(Of Boolean), _ ByVal pos_pin As Global.System.Nullable(Of Integer), _ ByVal pos_händerbeleg_drucken As Global.System.Nullable(Of Boolean), _ ByVal pos_storno As Global.System.Nullable(Of Integer), _ ByVal pos_wartezeit As Global.System.Nullable(Of Integer), _ ByVal pos_FIBU As Global.System.Nullable(Of Integer), _ ByVal pos_XML As Global.System.Nullable(Of Boolean), _ ByVal pos_Protokollpfad As String, _ ByVal Original_pos_id As Integer, _ ByVal Original_pos_aktiv As Boolean, _ ByVal Original_pos_kasse As Integer, _ ByVal Original_pos_kassennr As Global.System.Nullable(Of Integer), _ ByVal Original_pos_bezeichnung As String, _ ByVal Original_pos_com As String, _ ByVal Original_pos_baudrate As Global.System.Nullable(Of Integer), _ ByVal Original_pos_comspeed As Global.System.Nullable(Of Integer), _ ByVal Original_pos_comstop As Global.System.Nullable(Of Integer), _ ByVal Original_pos_ip As String, _ ByVal Original_pos_port As Global.System.Nullable(Of Integer), _ ByVal Original_pos_typ As String, _ ByVal Original_pos_lizenz As String, _ ByVal Original_pos_kassendruck As Global.System.Nullable(Of Integer), _ ByVal Original_pos_demoausdruck As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_demodummyausdruck As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_pin As Global.System.Nullable(Of Integer), _ ByVal Original_pos_händerbeleg_drucken As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_storno As Global.System.Nullable(Of Integer), _ ByVal Original_pos_wartezeit As Global.System.Nullable(Of Integer), _ ByVal Original_pos_FIBU As Global.System.Nullable(Of Integer), _ ByVal Original_pos_XML As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_Protokollpfad As String, _ ByVal pos_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(pos_aktiv,Boolean) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(pos_kasse,Integer) If (pos_kassennr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(pos_kassennr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (pos_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("pos_bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(pos_bezeichnung,String) End If If (pos_com Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(pos_com,String) End If If (pos_baudrate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(pos_baudrate.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (pos_comspeed.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(pos_comspeed.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (pos_comstop.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(pos_comstop.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (pos_ip Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(pos_ip,String) End If If (pos_port.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(pos_port.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (pos_typ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(pos_typ,String) End If If (pos_lizenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(pos_lizenz,String) End If If (pos_kassendruck.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(pos_kassendruck.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (pos_demoausdruck.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(pos_demoausdruck.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (pos_demodummyausdruck.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(pos_demodummyausdruck.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (pos_pin.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(pos_pin.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (pos_händerbeleg_drucken.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(pos_händerbeleg_drucken.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (pos_storno.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(pos_storno.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (pos_wartezeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(pos_wartezeit.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (pos_FIBU.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(pos_FIBU.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (pos_XML.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(pos_XML.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (pos_Protokollpfad Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(pos_Protokollpfad,String) End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_pos_id,Integer) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_pos_aktiv,Boolean) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_pos_kasse,Integer) If (Original_pos_kassennr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_pos_kassennr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_pos_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pos_bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_pos_bezeichnung,String) End If If (Original_pos_com 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_pos_com,String) End If If (Original_pos_baudrate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_pos_baudrate.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_pos_comspeed.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_pos_comspeed.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_pos_comstop.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_pos_comstop.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_pos_ip Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_pos_ip,String) End If If (Original_pos_port.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_pos_port.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_pos_typ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_pos_typ,String) End If If (Original_pos_lizenz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_pos_lizenz,String) End If If (Original_pos_kassendruck.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_pos_kassendruck.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Original_pos_demoausdruck.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_pos_demoausdruck.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (Original_pos_demodummyausdruck.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_pos_demodummyausdruck.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Original_pos_pin.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_pos_pin.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_pos_händerbeleg_drucken.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_pos_händerbeleg_drucken.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_pos_storno.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_pos_storno.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Original_pos_wartezeit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_pos_wartezeit.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (Original_pos_FIBU.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_pos_FIBU.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Original_pos_XML.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_pos_XML.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value End If If (Original_pos_Protokollpfad Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_pos_Protokollpfad,String) End If Me.Adapter.UpdateCommand.Parameters(64).Value = CType(pos_id,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 pos_aktiv As Boolean, _ ByVal pos_kasse As Integer, _ ByVal pos_kassennr As Global.System.Nullable(Of Integer), _ ByVal pos_bezeichnung As String, _ ByVal pos_com As String, _ ByVal pos_baudrate As Global.System.Nullable(Of Integer), _ ByVal pos_comspeed As Global.System.Nullable(Of Integer), _ ByVal pos_comstop As Global.System.Nullable(Of Integer), _ ByVal pos_ip As String, _ ByVal pos_port As Global.System.Nullable(Of Integer), _ ByVal pos_typ As String, _ ByVal pos_lizenz As String, _ ByVal pos_kassendruck As Global.System.Nullable(Of Integer), _ ByVal pos_demoausdruck As Global.System.Nullable(Of Boolean), _ ByVal pos_demodummyausdruck As Global.System.Nullable(Of Boolean), _ ByVal pos_pin As Global.System.Nullable(Of Integer), _ ByVal pos_händerbeleg_drucken As Global.System.Nullable(Of Boolean), _ ByVal pos_storno As Global.System.Nullable(Of Integer), _ ByVal pos_wartezeit As Global.System.Nullable(Of Integer), _ ByVal pos_FIBU As Global.System.Nullable(Of Integer), _ ByVal pos_XML As Global.System.Nullable(Of Boolean), _ ByVal pos_Protokollpfad As String, _ ByVal Original_pos_id As Integer, _ ByVal Original_pos_aktiv As Boolean, _ ByVal Original_pos_kasse As Integer, _ ByVal Original_pos_kassennr As Global.System.Nullable(Of Integer), _ ByVal Original_pos_bezeichnung As String, _ ByVal Original_pos_com As String, _ ByVal Original_pos_baudrate As Global.System.Nullable(Of Integer), _ ByVal Original_pos_comspeed As Global.System.Nullable(Of Integer), _ ByVal Original_pos_comstop As Global.System.Nullable(Of Integer), _ ByVal Original_pos_ip As String, _ ByVal Original_pos_port As Global.System.Nullable(Of Integer), _ ByVal Original_pos_typ As String, _ ByVal Original_pos_lizenz As String, _ ByVal Original_pos_kassendruck As Global.System.Nullable(Of Integer), _ ByVal Original_pos_demoausdruck As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_demodummyausdruck As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_pin As Global.System.Nullable(Of Integer), _ ByVal Original_pos_händerbeleg_drucken As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_storno As Global.System.Nullable(Of Integer), _ ByVal Original_pos_wartezeit As Global.System.Nullable(Of Integer), _ ByVal Original_pos_FIBU As Global.System.Nullable(Of Integer), _ ByVal Original_pos_XML As Global.System.Nullable(Of Boolean), _ ByVal Original_pos_Protokollpfad As String) As Integer Return Me.Update(pos_aktiv, pos_kasse, pos_kassennr, pos_bezeichnung, pos_com, pos_baudrate, pos_comspeed, pos_comstop, pos_ip, pos_port, pos_typ, pos_lizenz, pos_kassendruck, pos_demoausdruck, pos_demodummyausdruck, pos_pin, pos_händerbeleg_drucken, pos_storno, pos_wartezeit, pos_FIBU, pos_XML, pos_Protokollpfad, Original_pos_id, Original_pos_aktiv, Original_pos_kasse, Original_pos_kassennr, Original_pos_bezeichnung, Original_pos_com, Original_pos_baudrate, Original_pos_comspeed, Original_pos_comstop, Original_pos_ip, Original_pos_port, Original_pos_typ, Original_pos_lizenz, Original_pos_kassendruck, Original_pos_demoausdruck, Original_pos_demodummyausdruck, Original_pos_pin, Original_pos_händerbeleg_drucken, Original_pos_storno, Original_pos_wartezeit, Original_pos_FIBU, Original_pos_XML, Original_pos_Protokollpfad, Original_pos_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblRMCImportTableAdapter 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 = "tblRMCImport" tableMapping.ColumnMappings.Add("rmc_id", "rmc_id") tableMapping.ColumnMappings.Add("rmc_kdNr", "rmc_kdNr") tableMapping.ColumnMappings.Add("rmc_kdName", "rmc_kdName") tableMapping.ColumnMappings.Add("rmc_UID", "rmc_UID") tableMapping.ColumnMappings.Add("rmc_landKZ", "rmc_landKZ") tableMapping.ColumnMappings.Add("rmc_landBezeichnung", "rmc_landBezeichnung") tableMapping.ColumnMappings.Add("rmc_reDatum", "rmc_reDatum") tableMapping.ColumnMappings.Add("rmc_reNr", "rmc_reNr") tableMapping.ColumnMappings.Add("rmc_betragNetto", "rmc_betragNetto") tableMapping.ColumnMappings.Add("rmc_betragBrutto", "rmc_betragBrutto") tableMapping.ColumnMappings.Add("rmc_waehrung", "rmc_waehrung") tableMapping.ColumnMappings.Add("rmc_euroBrutto", "rmc_euroBrutto") tableMapping.ColumnMappings.Add("rmc_file", "rmc_file") tableMapping.ColumnMappings.Add("rmc_fileNr", "rmc_fileNr") tableMapping.ColumnMappings.Add("rmc_importDatum", "rmc_importDatum") tableMapping.ColumnMappings.Add("rmc_version", "rmc_version") tableMapping.ColumnMappings.Add("rmc_daId", "rmc_daId") tableMapping.ColumnMappings.Add("rmc_pdfFileName", "rmc_pdfFileName") tableMapping.ColumnMappings.Add("rmc_archiv", "rmc_archiv") tableMapping.ColumnMappings.Add("rmc_archiviertDatum", "rmc_archiviertDatum") tableMapping.ColumnMappings.Add("rmc_fibuNr", "rmc_fibuNr") tableMapping.ColumnMappings.Add("rmc_sammelReNr", "rmc_sammelReNr") tableMapping.ColumnMappings.Add("rmc_betragMWST", "rmc_betragMWST") 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].[tblRMCImport] WHERE (([rmc_id] = @Original_rmc_id) AND ((@IsNu"& _ "ll_rmc_kdNr = 1 AND [rmc_kdNr] IS NULL) OR ([rmc_kdNr] = @Original_rmc_kdNr)) AN"& _ "D ((@IsNull_rmc_UID = 1 AND [rmc_UID] IS NULL) OR ([rmc_UID] = @Original_rmc_UID"& _ ")) AND ((@IsNull_rmc_landKZ = 1 AND [rmc_landKZ] IS NULL) OR ([rmc_landKZ] = @Or"& _ "iginal_rmc_landKZ)) AND ((@IsNull_rmc_landBezeichnung = 1 AND [rmc_landBezeichnu"& _ "ng] IS NULL) OR ([rmc_landBezeichnung] = @Original_rmc_landBezeichnung)) AND ((@"& _ "IsNull_rmc_reDatum = 1 AND [rmc_reDatum] IS NULL) OR ([rmc_reDatum] = @Original_"& _ "rmc_reDatum)) AND ((@IsNull_rmc_reNr = 1 AND [rmc_reNr] IS NULL) OR ([rmc_reNr] "& _ "= @Original_rmc_reNr)) AND ((@IsNull_rmc_betragNetto = 1 AND [rmc_betragNetto] I"& _ "S NULL) OR ([rmc_betragNetto] = @Original_rmc_betragNetto)) AND ((@IsNull_rmc_be"& _ "tragBrutto = 1 AND [rmc_betragBrutto] IS NULL) OR ([rmc_betragBrutto] = @Origina"& _ "l_rmc_betragBrutto)) AND ((@IsNull_rmc_waehrung = 1 AND [rmc_waehrung] IS NULL) "& _ "OR ([rmc_waehrung] = @Original_rmc_waehrung)) AND ((@IsNull_rmc_euroBrutto = 1 A"& _ "ND [rmc_euroBrutto] IS NULL) OR ([rmc_euroBrutto] = @Original_rmc_euroBrutto)) A"& _ "ND ((@IsNull_rmc_file = 1 AND [rmc_file] IS NULL) OR ([rmc_file] = @Original_rmc"& _ "_file)) AND ((@IsNull_rmc_fileNr = 1 AND [rmc_fileNr] IS NULL) OR ([rmc_fileNr] "& _ "= @Original_rmc_fileNr)) AND ((@IsNull_rmc_importDatum = 1 AND [rmc_importDatum]"& _ " IS NULL) OR ([rmc_importDatum] = @Original_rmc_importDatum)) AND ((@IsNull_rmc_"& _ "version = 1 AND [rmc_version] IS NULL) OR ([rmc_version] = @Original_rmc_version"& _ ")) AND ((@IsNull_rmc_daId = 1 AND [rmc_daId] IS NULL) OR ([rmc_daId] = @Original"& _ "_rmc_daId)) AND ((@IsNull_rmc_pdfFileName = 1 AND [rmc_pdfFileName] IS NULL) OR "& _ "([rmc_pdfFileName] = @Original_rmc_pdfFileName)) AND ([rmc_archiv] = @Original_r"& _ "mc_archiv) AND ((@IsNull_rmc_archiviertDatum = 1 AND [rmc_archiviertDatum] IS NU"& _ "LL) OR ([rmc_archiviertDatum] = @Original_rmc_archiviertDatum)) AND ((@IsNull_rm"& _ "c_fibuNr = 1 AND [rmc_fibuNr] IS NULL) OR ([rmc_fibuNr] = @Original_rmc_fibuNr))"& _ " AND ((@IsNull_rmc_sammelReNr = 1 AND [rmc_sammelReNr] IS NULL) OR ([rmc_sammelR"& _ "eNr] = @Original_rmc_sammelReNr)) AND ((@IsNull_rmc_betragMWST = 1 AND [rmc_betr"& _ "agMWST] IS NULL) OR ([rmc_betragMWST] = @Original_rmc_betragMWST)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_kdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_kdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_kdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_UID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_landKZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landKZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_landKZ", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landKZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_landBezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landBezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_landBezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landBezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_reDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_reDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_reNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_reNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_betragNetto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragNetto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_betragNetto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragNetto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_betragBrutto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragBrutto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_betragBrutto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragBrutto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_waehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_waehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_waehrung", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_waehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_euroBrutto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_euroBrutto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_euroBrutto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_euroBrutto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_file", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_file", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_file", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_file", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_fileNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fileNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_fileNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fileNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_importDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_importDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_importDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_importDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_daId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_daId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_pdfFileName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_pdfFileName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_pdfFileName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_pdfFileName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_archiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_archiviertDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_archiviertDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_archiviertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_archiviertDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_fibuNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fibuNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_fibuNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fibuNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_sammelReNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_sammelReNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_sammelReNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_sammelReNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_betragMWST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragMWST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_betragMWST", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragMWST", 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].[tblRMCImport] ([rmc_kdNr], [rmc_kdName], [rmc_UID], [rmc_landK"& _ "Z], [rmc_landBezeichnung], [rmc_reDatum], [rmc_reNr], [rmc_betragNetto], [rmc_be"& _ "tragBrutto], [rmc_waehrung], [rmc_euroBrutto], [rmc_file], [rmc_fileNr], [rmc_im"& _ "portDatum], [rmc_version], [rmc_daId], [rmc_pdfFileName], [rmc_archiv], [rmc_arc"& _ "hiviertDatum], [rmc_fibuNr], [rmc_sammelReNr], [rmc_betragMWST]) VALUES (@rmc_kd"& _ "Nr, @rmc_kdName, @rmc_UID, @rmc_landKZ, @rmc_landBezeichnung, @rmc_reDatum, @rmc"& _ "_reNr, @rmc_betragNetto, @rmc_betragBrutto, @rmc_waehrung, @rmc_euroBrutto, @rmc"& _ "_file, @rmc_fileNr, @rmc_importDatum, @rmc_version, @rmc_daId, @rmc_pdfFileName,"& _ " @rmc_archiv, @rmc_archiviertDatum, @rmc_fibuNr, @rmc_sammelReNr, @rmc_betragMWS"& _ "T);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT rmc_id, rmc_kdNr, rmc_kdName, rmc_UID, rmc_landKZ, rmc_landBezeichnu"& _ "ng, rmc_reDatum, rmc_reNr, rmc_betragNetto, rmc_betragBrutto, rmc_waehrung, rmc_"& _ "euroBrutto, rmc_file, rmc_fileNr, rmc_importDatum, rmc_version, rmc_daId, rmc_pd"& _ "fFileName, rmc_archiv, rmc_archiviertDatum, rmc_fibuNr, rmc_sammelReNr, rmc_betr"& _ "agMWST FROM tblRMCImport WHERE (rmc_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_kdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_kdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_kdName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_kdName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_UID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_landKZ", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landKZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_landBezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landBezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_reDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_reNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_betragNetto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragNetto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_betragBrutto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragBrutto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_waehrung", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_waehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_euroBrutto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_euroBrutto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_file", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_file", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_fileNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fileNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_importDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_importDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_daId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_pdfFileName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_pdfFileName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_archiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_archiviertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_archiviertDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_fibuNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fibuNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_sammelReNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_sammelReNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_betragMWST", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragMWST", 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].[tblRMCImport] SET [rmc_kdNr] = @rmc_kdNr, [rmc_kdName] = @rmc_kdNam"& _ "e, [rmc_UID] = @rmc_UID, [rmc_landKZ] = @rmc_landKZ, [rmc_landBezeichnung] = @rm"& _ "c_landBezeichnung, [rmc_reDatum] = @rmc_reDatum, [rmc_reNr] = @rmc_reNr, [rmc_be"& _ "tragNetto] = @rmc_betragNetto, [rmc_betragBrutto] = @rmc_betragBrutto, [rmc_waeh"& _ "rung] = @rmc_waehrung, [rmc_euroBrutto] = @rmc_euroBrutto, [rmc_file] = @rmc_fil"& _ "e, [rmc_fileNr] = @rmc_fileNr, [rmc_importDatum] = @rmc_importDatum, [rmc_versio"& _ "n] = @rmc_version, [rmc_daId] = @rmc_daId, [rmc_pdfFileName] = @rmc_pdfFileName,"& _ " [rmc_archiv] = @rmc_archiv, [rmc_archiviertDatum] = @rmc_archiviertDatum, [rmc_"& _ "fibuNr] = @rmc_fibuNr, [rmc_sammelReNr] = @rmc_sammelReNr, [rmc_betragMWST] = @r"& _ "mc_betragMWST WHERE (([rmc_id] = @Original_rmc_id) AND ((@IsNull_rmc_kdNr = 1 AN"& _ "D [rmc_kdNr] IS NULL) OR ([rmc_kdNr] = @Original_rmc_kdNr)) AND ((@IsNull_rmc_UI"& _ "D = 1 AND [rmc_UID] IS NULL) OR ([rmc_UID] = @Original_rmc_UID)) AND ((@IsNull_r"& _ "mc_landKZ = 1 AND [rmc_landKZ] IS NULL) OR ([rmc_landKZ] = @Original_rmc_landKZ)"& _ ") AND ((@IsNull_rmc_landBezeichnung = 1 AND [rmc_landBezeichnung] IS NULL) OR (["& _ "rmc_landBezeichnung] = @Original_rmc_landBezeichnung)) AND ((@IsNull_rmc_reDatum"& _ " = 1 AND [rmc_reDatum] IS NULL) OR ([rmc_reDatum] = @Original_rmc_reDatum)) AND "& _ "((@IsNull_rmc_reNr = 1 AND [rmc_reNr] IS NULL) OR ([rmc_reNr] = @Original_rmc_re"& _ "Nr)) AND ((@IsNull_rmc_betragNetto = 1 AND [rmc_betragNetto] IS NULL) OR ([rmc_b"& _ "etragNetto] = @Original_rmc_betragNetto)) AND ((@IsNull_rmc_betragBrutto = 1 AND"& _ " [rmc_betragBrutto] IS NULL) OR ([rmc_betragBrutto] = @Original_rmc_betragBrutto"& _ ")) AND ((@IsNull_rmc_waehrung = 1 AND [rmc_waehrung] IS NULL) OR ([rmc_waehrung]"& _ " = @Original_rmc_waehrung)) AND ((@IsNull_rmc_euroBrutto = 1 AND [rmc_euroBrutto"& _ "] IS NULL) OR ([rmc_euroBrutto] = @Original_rmc_euroBrutto)) AND ((@IsNull_rmc_f"& _ "ile = 1 AND [rmc_file] IS NULL) OR ([rmc_file] = @Original_rmc_file)) AND ((@IsN"& _ "ull_rmc_fileNr = 1 AND [rmc_fileNr] IS NULL) OR ([rmc_fileNr] = @Original_rmc_fi"& _ "leNr)) AND ((@IsNull_rmc_importDatum = 1 AND [rmc_importDatum] IS NULL) OR ([rmc"& _ "_importDatum] = @Original_rmc_importDatum)) AND ((@IsNull_rmc_version = 1 AND [r"& _ "mc_version] IS NULL) OR ([rmc_version] = @Original_rmc_version)) AND ((@IsNull_r"& _ "mc_daId = 1 AND [rmc_daId] IS NULL) OR ([rmc_daId] = @Original_rmc_daId)) AND (("& _ "@IsNull_rmc_pdfFileName = 1 AND [rmc_pdfFileName] IS NULL) OR ([rmc_pdfFileName]"& _ " = @Original_rmc_pdfFileName)) AND ([rmc_archiv] = @Original_rmc_archiv) AND ((@"& _ "IsNull_rmc_archiviertDatum = 1 AND [rmc_archiviertDatum] IS NULL) OR ([rmc_archi"& _ "viertDatum] = @Original_rmc_archiviertDatum)) AND ((@IsNull_rmc_fibuNr = 1 AND ["& _ "rmc_fibuNr] IS NULL) OR ([rmc_fibuNr] = @Original_rmc_fibuNr)) AND ((@IsNull_rmc"& _ "_sammelReNr = 1 AND [rmc_sammelReNr] IS NULL) OR ([rmc_sammelReNr] = @Original_r"& _ "mc_sammelReNr)) AND ((@IsNull_rmc_betragMWST = 1 AND [rmc_betragMWST] IS NULL) O"& _ "R ([rmc_betragMWST] = @Original_rmc_betragMWST)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT rmc_id, rmc_kdNr, rmc"& _ "_kdName, rmc_UID, rmc_landKZ, rmc_landBezeichnung, rmc_reDatum, rmc_reNr, rmc_be"& _ "tragNetto, rmc_betragBrutto, rmc_waehrung, rmc_euroBrutto, rmc_file, rmc_fileNr,"& _ " rmc_importDatum, rmc_version, rmc_daId, rmc_pdfFileName, rmc_archiv, rmc_archiv"& _ "iertDatum, rmc_fibuNr, rmc_sammelReNr, rmc_betragMWST FROM tblRMCImport WHERE (r"& _ "mc_id = @rmc_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_kdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_kdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_kdName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_kdName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_UID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_landKZ", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landKZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_landBezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landBezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_reDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_reNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_betragNetto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragNetto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_betragBrutto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragBrutto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_waehrung", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_waehrung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_euroBrutto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_euroBrutto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_file", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_file", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_fileNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fileNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_importDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_importDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_version", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_daId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_pdfFileName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_pdfFileName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_archiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_archiviertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_archiviertDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_fibuNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fibuNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_sammelReNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_sammelReNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_betragMWST", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragMWST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_kdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_kdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_kdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_kdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_UID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_landKZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landKZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_landKZ", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landKZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_landBezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landBezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_landBezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_landBezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_reDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_reDatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_reNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_reNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_reNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_betragNetto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragNetto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_betragNetto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragNetto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_betragBrutto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragBrutto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_betragBrutto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragBrutto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_waehrung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_waehrung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_waehrung", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_waehrung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_euroBrutto", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_euroBrutto", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_euroBrutto", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_euroBrutto", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_file", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_file", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_file", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_file", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_fileNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fileNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_fileNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fileNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_importDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_importDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_importDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_importDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_version", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_version", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_version", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_daId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_daId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_pdfFileName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_pdfFileName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_pdfFileName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_pdfFileName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_archiv", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_archiviertDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_archiviertDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_archiviertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_archiviertDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_fibuNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fibuNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_fibuNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_fibuNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_sammelReNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_sammelReNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_sammelReNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_sammelReNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_rmc_betragMWST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragMWST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_rmc_betragMWST", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_betragMWST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@rmc_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "rmc_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 rmc_id, rmc_kdNr, rmc_kdName, rmc_UID, rmc_landKZ, rmc_landBezeichnung, rm"& _ "c_reDatum, rmc_reNr, rmc_betragNetto, rmc_betragBrutto, rmc_waehrung, rmc_euroBr"& _ "utto, rmc_file, rmc_fileNr, rmc_importDatum, rmc_version, rmc_daId, rmc_pdfFileN"& _ "ame, rmc_archiv, rmc_archiviertDatum, rmc_fibuNr, rmc_sammelReNr, rmc_betragMWST"& _ " FROM dbo.tblRMCImport" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblRMCImportDataTable) 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 VERAGDataSet.tblRMCImportDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblRMCImportDataTable = New VERAGDataSet.tblRMCImportDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblRMCImportDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblRMCImport") 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_rmc_id As Integer, _ ByVal Original_rmc_kdNr As String, _ ByVal Original_rmc_UID As String, _ ByVal Original_rmc_landKZ As String, _ ByVal Original_rmc_landBezeichnung As String, _ ByVal Original_rmc_reDatum As Global.System.Nullable(Of Date), _ ByVal Original_rmc_reNr As String, _ ByVal Original_rmc_betragNetto As Global.System.Nullable(Of Double), _ ByVal Original_rmc_betragBrutto As Global.System.Nullable(Of Double), _ ByVal Original_rmc_waehrung As String, _ ByVal Original_rmc_euroBrutto As Global.System.Nullable(Of Double), _ ByVal Original_rmc_file As String, _ ByVal Original_rmc_fileNr As Global.System.Nullable(Of Integer), _ ByVal Original_rmc_importDatum As Global.System.Nullable(Of Date), _ ByVal Original_rmc_version As Global.System.Nullable(Of Integer), _ ByVal Original_rmc_daId As Global.System.Nullable(Of Integer), _ ByVal Original_rmc_pdfFileName As String, _ ByVal Original_rmc_archiv As Boolean, _ ByVal Original_rmc_archiviertDatum As Global.System.Nullable(Of Date), _ ByVal Original_rmc_fibuNr As String, _ ByVal Original_rmc_sammelReNr As String, _ ByVal Original_rmc_betragMWST As Global.System.Nullable(Of Double)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rmc_id,Integer) If (Original_rmc_kdNr 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_rmc_kdNr,String) End If If (Original_rmc_UID 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_rmc_UID,String) End If If (Original_rmc_landKZ 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_rmc_landKZ,String) End If If (Original_rmc_landBezeichnung 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_rmc_landBezeichnung,String) End If If (Original_rmc_reDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_rmc_reDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_rmc_reNr 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_rmc_reNr,String) End If If (Original_rmc_betragNetto.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_rmc_betragNetto.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_rmc_betragBrutto.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_rmc_betragBrutto.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_rmc_waehrung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_rmc_waehrung,String) End If If (Original_rmc_euroBrutto.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_rmc_euroBrutto.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_rmc_file Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_rmc_file,String) End If If (Original_rmc_fileNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_rmc_fileNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_rmc_importDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_rmc_importDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_rmc_version.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_rmc_version.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_rmc_daId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_rmc_daId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_rmc_pdfFileName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_rmc_pdfFileName,String) End If Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_rmc_archiv,Boolean) If (Original_rmc_archiviertDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_rmc_archiviertDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_rmc_fibuNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_rmc_fibuNr,String) End If If (Original_rmc_sammelReNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_rmc_sammelReNr,String) End If If (Original_rmc_betragMWST.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_rmc_betragMWST.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).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 rmc_kdNr As String, _ ByVal rmc_kdName As String, _ ByVal rmc_UID As String, _ ByVal rmc_landKZ As String, _ ByVal rmc_landBezeichnung As String, _ ByVal rmc_reDatum As Global.System.Nullable(Of Date), _ ByVal rmc_reNr As String, _ ByVal rmc_betragNetto As Global.System.Nullable(Of Double), _ ByVal rmc_betragBrutto As Global.System.Nullable(Of Double), _ ByVal rmc_waehrung As String, _ ByVal rmc_euroBrutto As Global.System.Nullable(Of Double), _ ByVal rmc_file As String, _ ByVal rmc_fileNr As Global.System.Nullable(Of Integer), _ ByVal rmc_importDatum As Global.System.Nullable(Of Date), _ ByVal rmc_version As Global.System.Nullable(Of Integer), _ ByVal rmc_daId As Global.System.Nullable(Of Integer), _ ByVal rmc_pdfFileName As String, _ ByVal rmc_archiv As Boolean, _ ByVal rmc_archiviertDatum As Global.System.Nullable(Of Date), _ ByVal rmc_fibuNr As String, _ ByVal rmc_sammelReNr As String, _ ByVal rmc_betragMWST As Global.System.Nullable(Of Double)) As Integer If (rmc_kdNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(rmc_kdNr,String) End If If (rmc_kdName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(rmc_kdName,String) End If If (rmc_UID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(rmc_UID,String) End If If (rmc_landKZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(rmc_landKZ,String) End If If (rmc_landBezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(rmc_landBezeichnung,String) End If If (rmc_reDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(rmc_reDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (rmc_reNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(rmc_reNr,String) End If If (rmc_betragNetto.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(rmc_betragNetto.Value,Double) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (rmc_betragBrutto.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(rmc_betragBrutto.Value,Double) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (rmc_waehrung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(rmc_waehrung,String) End If If (rmc_euroBrutto.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(rmc_euroBrutto.Value,Double) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (rmc_file Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(rmc_file,String) End If If (rmc_fileNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(rmc_fileNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (rmc_importDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(rmc_importDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (rmc_version.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(rmc_version.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (rmc_daId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(rmc_daId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (rmc_pdfFileName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(rmc_pdfFileName,String) End If Me.Adapter.InsertCommand.Parameters(17).Value = CType(rmc_archiv,Boolean) If (rmc_archiviertDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(rmc_archiviertDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (rmc_fibuNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(rmc_fibuNr,String) End If If (rmc_sammelReNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(rmc_sammelReNr,String) End If If (rmc_betragMWST.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(rmc_betragMWST.Value,Double) Else Me.Adapter.InsertCommand.Parameters(21).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 rmc_kdNr As String, _ ByVal rmc_kdName As String, _ ByVal rmc_UID As String, _ ByVal rmc_landKZ As String, _ ByVal rmc_landBezeichnung As String, _ ByVal rmc_reDatum As Global.System.Nullable(Of Date), _ ByVal rmc_reNr As String, _ ByVal rmc_betragNetto As Global.System.Nullable(Of Double), _ ByVal rmc_betragBrutto As Global.System.Nullable(Of Double), _ ByVal rmc_waehrung As String, _ ByVal rmc_euroBrutto As Global.System.Nullable(Of Double), _ ByVal rmc_file As String, _ ByVal rmc_fileNr As Global.System.Nullable(Of Integer), _ ByVal rmc_importDatum As Global.System.Nullable(Of Date), _ ByVal rmc_version As Global.System.Nullable(Of Integer), _ ByVal rmc_daId As Global.System.Nullable(Of Integer), _ ByVal rmc_pdfFileName As String, _ ByVal rmc_archiv As Boolean, _ ByVal rmc_archiviertDatum As Global.System.Nullable(Of Date), _ ByVal rmc_fibuNr As String, _ ByVal rmc_sammelReNr As String, _ ByVal rmc_betragMWST As Global.System.Nullable(Of Double), _ ByVal Original_rmc_id As Integer, _ ByVal Original_rmc_kdNr As String, _ ByVal Original_rmc_UID As String, _ ByVal Original_rmc_landKZ As String, _ ByVal Original_rmc_landBezeichnung As String, _ ByVal Original_rmc_reDatum As Global.System.Nullable(Of Date), _ ByVal Original_rmc_reNr As String, _ ByVal Original_rmc_betragNetto As Global.System.Nullable(Of Double), _ ByVal Original_rmc_betragBrutto As Global.System.Nullable(Of Double), _ ByVal Original_rmc_waehrung As String, _ ByVal Original_rmc_euroBrutto As Global.System.Nullable(Of Double), _ ByVal Original_rmc_file As String, _ ByVal Original_rmc_fileNr As Global.System.Nullable(Of Integer), _ ByVal Original_rmc_importDatum As Global.System.Nullable(Of Date), _ ByVal Original_rmc_version As Global.System.Nullable(Of Integer), _ ByVal Original_rmc_daId As Global.System.Nullable(Of Integer), _ ByVal Original_rmc_pdfFileName As String, _ ByVal Original_rmc_archiv As Boolean, _ ByVal Original_rmc_archiviertDatum As Global.System.Nullable(Of Date), _ ByVal Original_rmc_fibuNr As String, _ ByVal Original_rmc_sammelReNr As String, _ ByVal Original_rmc_betragMWST As Global.System.Nullable(Of Double), _ ByVal rmc_id As Integer) As Integer If (rmc_kdNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rmc_kdNr,String) End If If (rmc_kdName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(rmc_kdName,String) End If If (rmc_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(rmc_UID,String) End If If (rmc_landKZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(rmc_landKZ,String) End If If (rmc_landBezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(rmc_landBezeichnung,String) End If If (rmc_reDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(rmc_reDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (rmc_reNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(rmc_reNr,String) End If If (rmc_betragNetto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(rmc_betragNetto.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (rmc_betragBrutto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(rmc_betragBrutto.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (rmc_waehrung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(rmc_waehrung,String) End If If (rmc_euroBrutto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(rmc_euroBrutto.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (rmc_file Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(rmc_file,String) End If If (rmc_fileNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(rmc_fileNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (rmc_importDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(rmc_importDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (rmc_version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(rmc_version.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (rmc_daId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(rmc_daId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (rmc_pdfFileName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(rmc_pdfFileName,String) End If Me.Adapter.UpdateCommand.Parameters(17).Value = CType(rmc_archiv,Boolean) If (rmc_archiviertDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(rmc_archiviertDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (rmc_fibuNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(rmc_fibuNr,String) End If If (rmc_sammelReNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(rmc_sammelReNr,String) End If If (rmc_betragMWST.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(rmc_betragMWST.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_rmc_id,Integer) If (Original_rmc_kdNr 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_rmc_kdNr,String) End If If (Original_rmc_UID 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_rmc_UID,String) End If If (Original_rmc_landKZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_rmc_landKZ,String) End If If (Original_rmc_landBezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_rmc_landBezeichnung,String) End If If (Original_rmc_reDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_rmc_reDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_rmc_reNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_rmc_reNr,String) End If If (Original_rmc_betragNetto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_rmc_betragNetto.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Original_rmc_betragBrutto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_rmc_betragBrutto.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (Original_rmc_waehrung 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_rmc_waehrung,String) End If If (Original_rmc_euroBrutto.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_rmc_euroBrutto.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (Original_rmc_file 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_rmc_file,String) End If If (Original_rmc_fileNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_rmc_fileNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (Original_rmc_importDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_rmc_importDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Original_rmc_version.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_rmc_version.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Original_rmc_daId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_rmc_daId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Original_rmc_pdfFileName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_rmc_pdfFileName,String) End If Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_rmc_archiv,Boolean) If (Original_rmc_archiviertDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_rmc_archiviertDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (Original_rmc_fibuNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_rmc_fibuNr,String) End If If (Original_rmc_sammelReNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_rmc_sammelReNr,String) End If If (Original_rmc_betragMWST.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_rmc_betragMWST.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(64).Value = CType(rmc_id,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 rmc_kdNr As String, _ ByVal rmc_kdName As String, _ ByVal rmc_UID As String, _ ByVal rmc_landKZ As String, _ ByVal rmc_landBezeichnung As String, _ ByVal rmc_reDatum As Global.System.Nullable(Of Date), _ ByVal rmc_reNr As String, _ ByVal rmc_betragNetto As Global.System.Nullable(Of Double), _ ByVal rmc_betragBrutto As Global.System.Nullable(Of Double), _ ByVal rmc_waehrung As String, _ ByVal rmc_euroBrutto As Global.System.Nullable(Of Double), _ ByVal rmc_file As String, _ ByVal rmc_fileNr As Global.System.Nullable(Of Integer), _ ByVal rmc_importDatum As Global.System.Nullable(Of Date), _ ByVal rmc_version As Global.System.Nullable(Of Integer), _ ByVal rmc_daId As Global.System.Nullable(Of Integer), _ ByVal rmc_pdfFileName As String, _ ByVal rmc_archiv As Boolean, _ ByVal rmc_archiviertDatum As Global.System.Nullable(Of Date), _ ByVal rmc_fibuNr As String, _ ByVal rmc_sammelReNr As String, _ ByVal rmc_betragMWST As Global.System.Nullable(Of Double), _ ByVal Original_rmc_id As Integer, _ ByVal Original_rmc_kdNr As String, _ ByVal Original_rmc_UID As String, _ ByVal Original_rmc_landKZ As String, _ ByVal Original_rmc_landBezeichnung As String, _ ByVal Original_rmc_reDatum As Global.System.Nullable(Of Date), _ ByVal Original_rmc_reNr As String, _ ByVal Original_rmc_betragNetto As Global.System.Nullable(Of Double), _ ByVal Original_rmc_betragBrutto As Global.System.Nullable(Of Double), _ ByVal Original_rmc_waehrung As String, _ ByVal Original_rmc_euroBrutto As Global.System.Nullable(Of Double), _ ByVal Original_rmc_file As String, _ ByVal Original_rmc_fileNr As Global.System.Nullable(Of Integer), _ ByVal Original_rmc_importDatum As Global.System.Nullable(Of Date), _ ByVal Original_rmc_version As Global.System.Nullable(Of Integer), _ ByVal Original_rmc_daId As Global.System.Nullable(Of Integer), _ ByVal Original_rmc_pdfFileName As String, _ ByVal Original_rmc_archiv As Boolean, _ ByVal Original_rmc_archiviertDatum As Global.System.Nullable(Of Date), _ ByVal Original_rmc_fibuNr As String, _ ByVal Original_rmc_sammelReNr As String, _ ByVal Original_rmc_betragMWST As Global.System.Nullable(Of Double)) As Integer Return Me.Update(rmc_kdNr, rmc_kdName, rmc_UID, rmc_landKZ, rmc_landBezeichnung, rmc_reDatum, rmc_reNr, rmc_betragNetto, rmc_betragBrutto, rmc_waehrung, rmc_euroBrutto, rmc_file, rmc_fileNr, rmc_importDatum, rmc_version, rmc_daId, rmc_pdfFileName, rmc_archiv, rmc_archiviertDatum, rmc_fibuNr, rmc_sammelReNr, rmc_betragMWST, Original_rmc_id, Original_rmc_kdNr, Original_rmc_UID, Original_rmc_landKZ, Original_rmc_landBezeichnung, Original_rmc_reDatum, Original_rmc_reNr, Original_rmc_betragNetto, Original_rmc_betragBrutto, Original_rmc_waehrung, Original_rmc_euroBrutto, Original_rmc_file, Original_rmc_fileNr, Original_rmc_importDatum, Original_rmc_version, Original_rmc_daId, Original_rmc_pdfFileName, Original_rmc_archiv, Original_rmc_archiviertDatum, Original_rmc_fibuNr, Original_rmc_sammelReNr, Original_rmc_betragMWST, Original_rmc_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblSMSTableAdapter 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 = "tblSMS" tableMapping.ColumnMappings.Add("sms_id", "sms_id") tableMapping.ColumnMappings.Add("sms_Datum", "sms_Datum") tableMapping.ColumnMappings.Add("sms_Firma", "sms_Firma") tableMapping.ColumnMappings.Add("sms_Account", "sms_Account") tableMapping.ColumnMappings.Add("sms_Fahrername", "sms_Fahrername") tableMapping.ColumnMappings.Add("sms_KundenNr", "sms_KundenNr") tableMapping.ColumnMappings.Add("sms_Kunde", "sms_Kunde") tableMapping.ColumnMappings.Add("sms_Vorwahl", "sms_Vorwahl") tableMapping.ColumnMappings.Add("sms_Handynummer", "sms_Handynummer") tableMapping.ColumnMappings.Add("sms_Nachricht", "sms_Nachricht") tableMapping.ColumnMappings.Add("sms_templateID", "sms_templateID") tableMapping.ColumnMappings.Add("sms_BatchId", "sms_BatchId") tableMapping.ColumnMappings.Add("sms_MessageIds", "sms_MessageIds") tableMapping.ColumnMappings.Add("sms_Uris", "sms_Uris") tableMapping.ColumnMappings.Add("sms_Sachbearbeiter", "sms_Sachbearbeiter") tableMapping.ColumnMappings.Add("sms_SachbearbeiterId", "sms_SachbearbeiterId") tableMapping.ColumnMappings.Add("sms_AvisoId", "sms_AvisoId") tableMapping.ColumnMappings.Add("sms_Status", "sms_Status") tableMapping.ColumnMappings.Add("sms_Queued", "sms_Queued") tableMapping.ColumnMappings.Add("sms_Sent", "sms_Sent") tableMapping.ColumnMappings.Add("sms_Delivered", "sms_Delivered") tableMapping.ColumnMappings.Add("sms_Failure", "sms_Failure") tableMapping.ColumnMappings.Add("sms_art", "sms_art") tableMapping.ColumnMappings.Add("whatsApp_status", "whatsApp_status") tableMapping.ColumnMappings.Add("whatsApp_gatewayId", "whatsApp_gatewayId") tableMapping.ColumnMappings.Add("whatsApp_error", "whatsApp_error") tableMapping.ColumnMappings.Add("whatsApp_errorCode", "whatsApp_errorCode") 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].[tblSMS] WHERE (([sms_id] = @Original_sms_id) AND ([sms_Datum] "& _ "= @Original_sms_Datum) AND ([sms_Firma] = @Original_sms_Firma) AND ([sms_Account"& _ "] = @Original_sms_Account) AND ((@IsNull_sms_Fahrername = 1 AND [sms_Fahrername]"& _ " IS NULL) OR ([sms_Fahrername] = @Original_sms_Fahrername)) AND ((@IsNull_sms_Ku"& _ "ndenNr = 1 AND [sms_KundenNr] IS NULL) OR ([sms_KundenNr] = @Original_sms_Kunden"& _ "Nr)) AND ((@IsNull_sms_Kunde = 1 AND [sms_Kunde] IS NULL) OR ([sms_Kunde] = @Ori"& _ "ginal_sms_Kunde)) AND ((@IsNull_sms_Vorwahl = 1 AND [sms_Vorwahl] IS NULL) OR (["& _ "sms_Vorwahl] = @Original_sms_Vorwahl)) AND ([sms_Handynummer] = @Original_sms_Ha"& _ "ndynummer) AND ((@IsNull_sms_templateID = 1 AND [sms_templateID] IS NULL) OR ([s"& _ "ms_templateID] = @Original_sms_templateID)) AND ((@IsNull_sms_BatchId = 1 AND [s"& _ "ms_BatchId] IS NULL) OR ([sms_BatchId] = @Original_sms_BatchId)) AND ([sms_Sachb"& _ "earbeiter] = @Original_sms_Sachbearbeiter) AND ([sms_SachbearbeiterId] = @Origin"& _ "al_sms_SachbearbeiterId) AND ((@IsNull_sms_AvisoId = 1 AND [sms_AvisoId] IS NULL"& _ ") OR ([sms_AvisoId] = @Original_sms_AvisoId)) AND ([sms_Status] = @Original_sms_"& _ "Status) AND ((@IsNull_sms_Queued = 1 AND [sms_Queued] IS NULL) OR ([sms_Queued] "& _ "= @Original_sms_Queued)) AND ((@IsNull_sms_Sent = 1 AND [sms_Sent] IS NULL) OR ("& _ "[sms_Sent] = @Original_sms_Sent)) AND ((@IsNull_sms_Delivered = 1 AND [sms_Deliv"& _ "ered] IS NULL) OR ([sms_Delivered] = @Original_sms_Delivered)) AND ([sms_art] = "& _ "@Original_sms_art) AND ((@IsNull_whatsApp_status = 1 AND [whatsApp_status] IS NU"& _ "LL) OR ([whatsApp_status] = @Original_whatsApp_status)) AND ((@IsNull_whatsApp_g"& _ "atewayId = 1 AND [whatsApp_gatewayId] IS NULL) OR ([whatsApp_gatewayId] = @Origi"& _ "nal_whatsApp_gatewayId)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Account", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Account", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Fahrername", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Fahrername", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Fahrername", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Fahrername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Kunde", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Kunde", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Kunde", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Kunde", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Vorwahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Vorwahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Vorwahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Vorwahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Handynummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Handynummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_templateID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_templateID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_templateID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_templateID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_BatchId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_BatchId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_BatchId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_BatchId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Queued", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Queued", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Queued", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Queued", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Sent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Sent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Sent", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Sent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Delivered", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Delivered", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Delivered", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Delivered", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_whatsApp_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_whatsApp_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_whatsApp_gatewayId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_gatewayId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_whatsApp_gatewayId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_gatewayId", 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].[tblSMS] ([sms_Datum], [sms_Firma], [sms_Account], [sms_Fahrern"& _ "ame], [sms_KundenNr], [sms_Kunde], [sms_Vorwahl], [sms_Handynummer], [sms_Nachri"& _ "cht], [sms_templateID], [sms_BatchId], [sms_MessageIds], [sms_Uris], [sms_Sachbe"& _ "arbeiter], [sms_SachbearbeiterId], [sms_AvisoId], [sms_Status], [sms_Queued], [s"& _ "ms_Sent], [sms_Delivered], [sms_Failure], [sms_art], [whatsApp_status], [whatsAp"& _ "p_gatewayId], [whatsApp_error], [whatsApp_errorCode]) VALUES (@sms_Datum, @sms_F"& _ "irma, @sms_Account, @sms_Fahrername, @sms_KundenNr, @sms_Kunde, @sms_Vorwahl, @s"& _ "ms_Handynummer, @sms_Nachricht, @sms_templateID, @sms_BatchId, @sms_MessageIds, "& _ "@sms_Uris, @sms_Sachbearbeiter, @sms_SachbearbeiterId, @sms_AvisoId, @sms_Status"& _ ", @sms_Queued, @sms_Sent, @sms_Delivered, @sms_Failure, @sms_art, @whatsApp_stat"& _ "us, @whatsApp_gatewayId, @whatsApp_error, @whatsApp_errorCode);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT sms_id, "& _ "sms_Datum, sms_Firma, sms_Account, sms_Fahrername, sms_KundenNr, sms_Kunde, sms_"& _ "Vorwahl, sms_Handynummer, sms_Nachricht, sms_templateID, sms_BatchId, sms_Messag"& _ "eIds, sms_Uris, sms_Sachbearbeiter, sms_SachbearbeiterId, sms_AvisoId, sms_Statu"& _ "s, sms_Queued, sms_Sent, sms_Delivered, sms_Failure, sms_art, whatsApp_status, w"& _ "hatsApp_gatewayId, whatsApp_error, whatsApp_errorCode FROM tblSMS WHERE (sms_id "& _ "= SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Account", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Account", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Fahrername", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Fahrername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Kunde", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Kunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Vorwahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Vorwahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Handynummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Handynummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Nachricht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Nachricht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_templateID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_templateID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_BatchId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_BatchId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_MessageIds", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_MessageIds", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Uris", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Uris", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Queued", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Queued", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Sent", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Sent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Delivered", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Delivered", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Failure", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Failure", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@whatsApp_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@whatsApp_gatewayId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_gatewayId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@whatsApp_error", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_error", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@whatsApp_errorCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_errorCode", 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].[tblSMS] SET [sms_Datum] = @sms_Datum, [sms_Firma] = @sms_Firma, [sm"& _ "s_Account] = @sms_Account, [sms_Fahrername] = @sms_Fahrername, [sms_KundenNr] = "& _ "@sms_KundenNr, [sms_Kunde] = @sms_Kunde, [sms_Vorwahl] = @sms_Vorwahl, [sms_Hand"& _ "ynummer] = @sms_Handynummer, [sms_Nachricht] = @sms_Nachricht, [sms_templateID] "& _ "= @sms_templateID, [sms_BatchId] = @sms_BatchId, [sms_MessageIds] = @sms_Message"& _ "Ids, [sms_Uris] = @sms_Uris, [sms_Sachbearbeiter] = @sms_Sachbearbeiter, [sms_Sa"& _ "chbearbeiterId] = @sms_SachbearbeiterId, [sms_AvisoId] = @sms_AvisoId, [sms_Stat"& _ "us] = @sms_Status, [sms_Queued] = @sms_Queued, [sms_Sent] = @sms_Sent, [sms_Deli"& _ "vered] = @sms_Delivered, [sms_Failure] = @sms_Failure, [sms_art] = @sms_art, [wh"& _ "atsApp_status] = @whatsApp_status, [whatsApp_gatewayId] = @whatsApp_gatewayId, ["& _ "whatsApp_error] = @whatsApp_error, [whatsApp_errorCode] = @whatsApp_errorCode WH"& _ "ERE (([sms_id] = @Original_sms_id) AND ([sms_Datum] = @Original_sms_Datum) AND ("& _ "[sms_Firma] = @Original_sms_Firma) AND ([sms_Account] = @Original_sms_Account) A"& _ "ND ((@IsNull_sms_Fahrername = 1 AND [sms_Fahrername] IS NULL) OR ([sms_Fahrernam"& _ "e] = @Original_sms_Fahrername)) AND ((@IsNull_sms_KundenNr = 1 AND [sms_KundenNr"& _ "] IS NULL) OR ([sms_KundenNr] = @Original_sms_KundenNr)) AND ((@IsNull_sms_Kunde"& _ " = 1 AND [sms_Kunde] IS NULL) OR ([sms_Kunde] = @Original_sms_Kunde)) AND ((@IsN"& _ "ull_sms_Vorwahl = 1 AND [sms_Vorwahl] IS NULL) OR ([sms_Vorwahl] = @Original_sms"& _ "_Vorwahl)) AND ([sms_Handynummer] = @Original_sms_Handynummer) AND ((@IsNull_sms"& _ "_templateID = 1 AND [sms_templateID] IS NULL) OR ([sms_templateID] = @Original_s"& _ "ms_templateID)) AND ((@IsNull_sms_BatchId = 1 AND [sms_BatchId] IS NULL) OR ([sm"& _ "s_BatchId] = @Original_sms_BatchId)) AND ([sms_Sachbearbeiter] = @Original_sms_S"& _ "achbearbeiter) AND ([sms_SachbearbeiterId] = @Original_sms_SachbearbeiterId) AND"& _ " ((@IsNull_sms_AvisoId = 1 AND [sms_AvisoId] IS NULL) OR ([sms_AvisoId] = @Origi"& _ "nal_sms_AvisoId)) AND ([sms_Status] = @Original_sms_Status) AND ((@IsNull_sms_Qu"& _ "eued = 1 AND [sms_Queued] IS NULL) OR ([sms_Queued] = @Original_sms_Queued)) AND"& _ " ((@IsNull_sms_Sent = 1 AND [sms_Sent] IS NULL) OR ([sms_Sent] = @Original_sms_S"& _ "ent)) AND ((@IsNull_sms_Delivered = 1 AND [sms_Delivered] IS NULL) OR ([sms_Deli"& _ "vered] = @Original_sms_Delivered)) AND ([sms_art] = @Original_sms_art) AND ((@Is"& _ "Null_whatsApp_status = 1 AND [whatsApp_status] IS NULL) OR ([whatsApp_status] = "& _ "@Original_whatsApp_status)) AND ((@IsNull_whatsApp_gatewayId = 1 AND [whatsApp_g"& _ "atewayId] IS NULL) OR ([whatsApp_gatewayId] = @Original_whatsApp_gatewayId)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "SELECT sms_id, sms_Datum, sms_Firma, sms_Account, sms_Fahrername, sms_KundenNr, "& _ "sms_Kunde, sms_Vorwahl, sms_Handynummer, sms_Nachricht, sms_templateID, sms_Batc"& _ "hId, sms_MessageIds, sms_Uris, sms_Sachbearbeiter, sms_SachbearbeiterId, sms_Avi"& _ "soId, sms_Status, sms_Queued, sms_Sent, sms_Delivered, sms_Failure, sms_art, wha"& _ "tsApp_status, whatsApp_gatewayId, whatsApp_error, whatsApp_errorCode FROM tblSMS"& _ " WHERE (sms_id = @sms_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Account", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Account", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Fahrername", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Fahrername", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Kunde", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Kunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Vorwahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Vorwahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Handynummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Handynummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Nachricht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Nachricht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_templateID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_templateID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_BatchId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_BatchId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_MessageIds", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_MessageIds", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Uris", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Uris", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Queued", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Queued", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Sent", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Sent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Delivered", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Delivered", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_Failure", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Failure", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_art", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@whatsApp_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@whatsApp_gatewayId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_gatewayId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@whatsApp_error", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_error", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@whatsApp_errorCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_errorCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Account", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Account", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Fahrername", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Fahrername", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Fahrername", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Fahrername", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_KundenNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Kunde", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Kunde", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Kunde", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Kunde", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Vorwahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Vorwahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Vorwahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Vorwahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Handynummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Handynummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_templateID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_templateID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_templateID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_templateID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_BatchId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_BatchId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_BatchId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_BatchId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Queued", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Queued", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Queued", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Queued", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Sent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Sent", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Sent", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Sent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sms_Delivered", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Delivered", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_Delivered", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_Delivered", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sms_art", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_art", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_whatsApp_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_whatsApp_status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_whatsApp_gatewayId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_gatewayId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_whatsApp_gatewayId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "whatsApp_gatewayId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sms_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "sms_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 sms_id, sms_Datum, sms_Firma, sms_Account, sms_Fahrername, sms_KundenNr, s"& _ "ms_Kunde, sms_Vorwahl, sms_Handynummer, sms_Nachricht, sms_templateID, sms_Batch"& _ "Id, sms_MessageIds, sms_Uris, sms_Sachbearbeiter, sms_SachbearbeiterId, sms_Avis"& _ "oId, sms_Status, sms_Queued, sms_Sent, sms_Delivered, sms_Failure, sms_art, what"& _ "sApp_status, whatsApp_gatewayId, whatsApp_error, whatsApp_errorCode FROM dbo.tbl"& _ "SMS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblSMSDataTable) 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 VERAGDataSet.tblSMSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblSMSDataTable = New VERAGDataSet.tblSMSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblSMSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblSMS") 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_sms_id As Integer, _ ByVal Original_sms_Datum As Date, _ ByVal Original_sms_Firma As String, _ ByVal Original_sms_Account As String, _ ByVal Original_sms_Fahrername As String, _ ByVal Original_sms_KundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_sms_Kunde As String, _ ByVal Original_sms_Vorwahl As String, _ ByVal Original_sms_Handynummer As String, _ ByVal Original_sms_templateID As String, _ ByVal Original_sms_BatchId As String, _ ByVal Original_sms_Sachbearbeiter As String, _ ByVal Original_sms_SachbearbeiterId As Integer, _ ByVal Original_sms_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_sms_Status As Integer, _ ByVal Original_sms_Queued As Global.System.Nullable(Of Date), _ ByVal Original_sms_Sent As Global.System.Nullable(Of Date), _ ByVal Original_sms_Delivered As Global.System.Nullable(Of Date), _ ByVal Original_sms_art As String, _ ByVal Original_whatsApp_status As Global.System.Nullable(Of Integer), _ ByVal Original_whatsApp_gatewayId As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_sms_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_sms_Datum,Date) If (Original_sms_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sms_Firma") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_sms_Firma,String) End If If (Original_sms_Account Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sms_Account") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_sms_Account,String) End If If (Original_sms_Fahrername 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_sms_Fahrername,String) End If If (Original_sms_KundenNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_sms_KundenNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_sms_Kunde 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_sms_Kunde,String) End If If (Original_sms_Vorwahl 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_sms_Vorwahl,String) End If If (Original_sms_Handynummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sms_Handynummer") Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_sms_Handynummer,String) End If If (Original_sms_templateID 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_sms_templateID,String) End If If (Original_sms_BatchId Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_sms_BatchId,String) End If If (Original_sms_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sms_Sachbearbeiter") Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_sms_Sachbearbeiter,String) End If Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_sms_SachbearbeiterId,Integer) If (Original_sms_AvisoId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_sms_AvisoId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_sms_Status,Integer) If (Original_sms_Queued.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_sms_Queued.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_sms_Sent.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_sms_Sent.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_sms_Delivered.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_sms_Delivered.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_sms_art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sms_art") Else Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_sms_art,String) End If If (Original_whatsApp_status.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_whatsApp_status.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_whatsApp_gatewayId Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_whatsApp_gatewayId,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 sms_Datum As Date, _ ByVal sms_Firma As String, _ ByVal sms_Account As String, _ ByVal sms_Fahrername As String, _ ByVal sms_KundenNr As Global.System.Nullable(Of Integer), _ ByVal sms_Kunde As String, _ ByVal sms_Vorwahl As String, _ ByVal sms_Handynummer As String, _ ByVal sms_Nachricht As String, _ ByVal sms_templateID As String, _ ByVal sms_BatchId As String, _ ByVal sms_MessageIds As String, _ ByVal sms_Uris As String, _ ByVal sms_Sachbearbeiter As String, _ ByVal sms_SachbearbeiterId As Integer, _ ByVal sms_AvisoId As Global.System.Nullable(Of Integer), _ ByVal sms_Status As Integer, _ ByVal sms_Queued As Global.System.Nullable(Of Date), _ ByVal sms_Sent As Global.System.Nullable(Of Date), _ ByVal sms_Delivered As Global.System.Nullable(Of Date), _ ByVal sms_Failure As String, _ ByVal sms_art As String, _ ByVal whatsApp_status As Global.System.Nullable(Of Integer), _ ByVal whatsApp_gatewayId As String, _ ByVal whatsApp_error As String, _ ByVal whatsApp_errorCode As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(sms_Datum,Date) If (sms_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_Firma") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(sms_Firma,String) End If If (sms_Account Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_Account") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(sms_Account,String) End If If (sms_Fahrername Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(sms_Fahrername,String) End If If (sms_KundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(sms_KundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (sms_Kunde Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(sms_Kunde,String) End If If (sms_Vorwahl Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(sms_Vorwahl,String) End If If (sms_Handynummer Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_Handynummer") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(sms_Handynummer,String) End If If (sms_Nachricht Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_Nachricht") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(sms_Nachricht,String) End If If (sms_templateID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(sms_templateID,String) End If If (sms_BatchId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(sms_BatchId,String) End If If (sms_MessageIds Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(sms_MessageIds,String) End If If (sms_Uris Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(sms_Uris,String) End If If (sms_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_Sachbearbeiter") Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(sms_Sachbearbeiter,String) End If Me.Adapter.InsertCommand.Parameters(14).Value = CType(sms_SachbearbeiterId,Integer) If (sms_AvisoId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(sms_AvisoId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(16).Value = CType(sms_Status,Integer) If (sms_Queued.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(sms_Queued.Value,Date) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (sms_Sent.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(sms_Sent.Value,Date) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (sms_Delivered.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(sms_Delivered.Value,Date) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (sms_Failure Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(sms_Failure,String) End If If (sms_art Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_art") Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(sms_art,String) End If If (whatsApp_status.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(whatsApp_status.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (whatsApp_gatewayId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(whatsApp_gatewayId,String) End If If (whatsApp_error Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(whatsApp_error,String) End If If (whatsApp_errorCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(whatsApp_errorCode,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 sms_Datum As Date, _ ByVal sms_Firma As String, _ ByVal sms_Account As String, _ ByVal sms_Fahrername As String, _ ByVal sms_KundenNr As Global.System.Nullable(Of Integer), _ ByVal sms_Kunde As String, _ ByVal sms_Vorwahl As String, _ ByVal sms_Handynummer As String, _ ByVal sms_Nachricht As String, _ ByVal sms_templateID As String, _ ByVal sms_BatchId As String, _ ByVal sms_MessageIds As String, _ ByVal sms_Uris As String, _ ByVal sms_Sachbearbeiter As String, _ ByVal sms_SachbearbeiterId As Integer, _ ByVal sms_AvisoId As Global.System.Nullable(Of Integer), _ ByVal sms_Status As Integer, _ ByVal sms_Queued As Global.System.Nullable(Of Date), _ ByVal sms_Sent As Global.System.Nullable(Of Date), _ ByVal sms_Delivered As Global.System.Nullable(Of Date), _ ByVal sms_Failure As String, _ ByVal sms_art As String, _ ByVal whatsApp_status As Global.System.Nullable(Of Integer), _ ByVal whatsApp_gatewayId As String, _ ByVal whatsApp_error As String, _ ByVal whatsApp_errorCode As String, _ ByVal Original_sms_id As Integer, _ ByVal Original_sms_Datum As Date, _ ByVal Original_sms_Firma As String, _ ByVal Original_sms_Account As String, _ ByVal Original_sms_Fahrername As String, _ ByVal Original_sms_KundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_sms_Kunde As String, _ ByVal Original_sms_Vorwahl As String, _ ByVal Original_sms_Handynummer As String, _ ByVal Original_sms_templateID As String, _ ByVal Original_sms_BatchId As String, _ ByVal Original_sms_Sachbearbeiter As String, _ ByVal Original_sms_SachbearbeiterId As Integer, _ ByVal Original_sms_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_sms_Status As Integer, _ ByVal Original_sms_Queued As Global.System.Nullable(Of Date), _ ByVal Original_sms_Sent As Global.System.Nullable(Of Date), _ ByVal Original_sms_Delivered As Global.System.Nullable(Of Date), _ ByVal Original_sms_art As String, _ ByVal Original_whatsApp_status As Global.System.Nullable(Of Integer), _ ByVal Original_whatsApp_gatewayId As String, _ ByVal sms_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(sms_Datum,Date) If (sms_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_Firma") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(sms_Firma,String) End If If (sms_Account Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_Account") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(sms_Account,String) End If If (sms_Fahrername Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(sms_Fahrername,String) End If If (sms_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(sms_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (sms_Kunde Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(sms_Kunde,String) End If If (sms_Vorwahl Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(sms_Vorwahl,String) End If If (sms_Handynummer Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_Handynummer") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(sms_Handynummer,String) End If If (sms_Nachricht Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_Nachricht") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(sms_Nachricht,String) End If If (sms_templateID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(sms_templateID,String) End If If (sms_BatchId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(sms_BatchId,String) End If If (sms_MessageIds Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(sms_MessageIds,String) End If If (sms_Uris Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(sms_Uris,String) End If If (sms_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(sms_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(sms_SachbearbeiterId,Integer) If (sms_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(sms_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(sms_Status,Integer) If (sms_Queued.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(sms_Queued.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (sms_Sent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(sms_Sent.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (sms_Delivered.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(sms_Delivered.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (sms_Failure Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(sms_Failure,String) End If If (sms_art Is Nothing) Then Throw New Global.System.ArgumentNullException("sms_art") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(sms_art,String) End If If (whatsApp_status.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(whatsApp_status.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (whatsApp_gatewayId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(whatsApp_gatewayId,String) End If If (whatsApp_error Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(whatsApp_error,String) End If If (whatsApp_errorCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(whatsApp_errorCode,String) End If Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_sms_id,Integer) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_sms_Datum,Date) If (Original_sms_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sms_Firma") Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_sms_Firma,String) End If If (Original_sms_Account Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sms_Account") Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_sms_Account,String) End If If (Original_sms_Fahrername 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_sms_Fahrername,String) End If If (Original_sms_KundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_sms_KundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_sms_Kunde Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_sms_Kunde,String) End If If (Original_sms_Vorwahl Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_sms_Vorwahl,String) End If If (Original_sms_Handynummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sms_Handynummer") Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_sms_Handynummer,String) End If If (Original_sms_templateID 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_sms_templateID,String) End If If (Original_sms_BatchId 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_sms_BatchId,String) End If If (Original_sms_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sms_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_sms_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_sms_SachbearbeiterId,Integer) If (Original_sms_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_sms_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_sms_Status,Integer) If (Original_sms_Queued.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_sms_Queued.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Original_sms_Sent.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_sms_Sent.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_sms_Delivered.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_sms_Delivered.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_sms_art Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sms_art") Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_sms_art,String) End If If (Original_whatsApp_status.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_whatsApp_status.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Original_whatsApp_gatewayId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_whatsApp_gatewayId,String) End If Me.Adapter.UpdateCommand.Parameters(59).Value = CType(sms_id,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 sms_Datum As Date, _ ByVal sms_Firma As String, _ ByVal sms_Account As String, _ ByVal sms_Fahrername As String, _ ByVal sms_KundenNr As Global.System.Nullable(Of Integer), _ ByVal sms_Kunde As String, _ ByVal sms_Vorwahl As String, _ ByVal sms_Handynummer As String, _ ByVal sms_Nachricht As String, _ ByVal sms_templateID As String, _ ByVal sms_BatchId As String, _ ByVal sms_MessageIds As String, _ ByVal sms_Uris As String, _ ByVal sms_Sachbearbeiter As String, _ ByVal sms_SachbearbeiterId As Integer, _ ByVal sms_AvisoId As Global.System.Nullable(Of Integer), _ ByVal sms_Status As Integer, _ ByVal sms_Queued As Global.System.Nullable(Of Date), _ ByVal sms_Sent As Global.System.Nullable(Of Date), _ ByVal sms_Delivered As Global.System.Nullable(Of Date), _ ByVal sms_Failure As String, _ ByVal sms_art As String, _ ByVal whatsApp_status As Global.System.Nullable(Of Integer), _ ByVal whatsApp_gatewayId As String, _ ByVal whatsApp_error As String, _ ByVal whatsApp_errorCode As String, _ ByVal Original_sms_id As Integer, _ ByVal Original_sms_Datum As Date, _ ByVal Original_sms_Firma As String, _ ByVal Original_sms_Account As String, _ ByVal Original_sms_Fahrername As String, _ ByVal Original_sms_KundenNr As Global.System.Nullable(Of Integer), _ ByVal Original_sms_Kunde As String, _ ByVal Original_sms_Vorwahl As String, _ ByVal Original_sms_Handynummer As String, _ ByVal Original_sms_templateID As String, _ ByVal Original_sms_BatchId As String, _ ByVal Original_sms_Sachbearbeiter As String, _ ByVal Original_sms_SachbearbeiterId As Integer, _ ByVal Original_sms_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_sms_Status As Integer, _ ByVal Original_sms_Queued As Global.System.Nullable(Of Date), _ ByVal Original_sms_Sent As Global.System.Nullable(Of Date), _ ByVal Original_sms_Delivered As Global.System.Nullable(Of Date), _ ByVal Original_sms_art As String, _ ByVal Original_whatsApp_status As Global.System.Nullable(Of Integer), _ ByVal Original_whatsApp_gatewayId As String) As Integer Return Me.Update(sms_Datum, sms_Firma, sms_Account, sms_Fahrername, sms_KundenNr, sms_Kunde, sms_Vorwahl, sms_Handynummer, sms_Nachricht, sms_templateID, sms_BatchId, sms_MessageIds, sms_Uris, sms_Sachbearbeiter, sms_SachbearbeiterId, sms_AvisoId, sms_Status, sms_Queued, sms_Sent, sms_Delivered, sms_Failure, sms_art, whatsApp_status, whatsApp_gatewayId, whatsApp_error, whatsApp_errorCode, Original_sms_id, Original_sms_Datum, Original_sms_Firma, Original_sms_Account, Original_sms_Fahrername, Original_sms_KundenNr, Original_sms_Kunde, Original_sms_Vorwahl, Original_sms_Handynummer, Original_sms_templateID, Original_sms_BatchId, Original_sms_Sachbearbeiter, Original_sms_SachbearbeiterId, Original_sms_AvisoId, Original_sms_Status, Original_sms_Queued, Original_sms_Sent, Original_sms_Delivered, Original_sms_art, Original_whatsApp_status, Original_whatsApp_gatewayId, Original_sms_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblSpeditionsbucharchivTableAdapter 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 = "tblSpeditionsbucharchiv" tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("Bar", "Bar") tableMapping.ColumnMappings.Add("Fakturiert", "Fakturiert") tableMapping.ColumnMappings.Add("BelegNr", "BelegNr") tableMapping.ColumnMappings.Add("ErfassungsNr", "ErfassungsNr") tableMapping.ColumnMappings.Add("LKW Kennzeichen", "LKW Kennzeichen") tableMapping.ColumnMappings.Add("AbsenderKundenNr", "AbsenderKundenNr") tableMapping.ColumnMappings.Add("Absender", "Absender") tableMapping.ColumnMappings.Add("AbsenderOffertenNr", "AbsenderOffertenNr") tableMapping.ColumnMappings.Add("EmpfängerKundenNr", "EmpfängerKundenNr") tableMapping.ColumnMappings.Add("Empfänger", "Empfänger") tableMapping.ColumnMappings.Add("EmpfängerOffertenNr", "EmpfängerOffertenNr") tableMapping.ColumnMappings.Add("VermittlerKundenNr", "VermittlerKundenNr") tableMapping.ColumnMappings.Add("Vermittler", "Vermittler") tableMapping.ColumnMappings.Add("VermittlerOffertenNr", "VermittlerOffertenNr") tableMapping.ColumnMappings.Add("FrachtführerKundenNr", "FrachtführerKundenNr") tableMapping.ColumnMappings.Add("Frachtführer", "Frachtführer") tableMapping.ColumnMappings.Add("AnzahlZA", "AnzahlZA") tableMapping.ColumnMappings.Add("AnzahlZAFremd", "AnzahlZAFremd") tableMapping.ColumnMappings.Add("AnzahlZnV", "AnzahlZnV") tableMapping.ColumnMappings.Add("AnzahlZnVFremd", "AnzahlZnVFremd") tableMapping.ColumnMappings.Add("AnzahlT1", "AnzahlT1") tableMapping.ColumnMappings.Add("AnzahlT2", "AnzahlT2") tableMapping.ColumnMappings.Add("AnzahlAE", "AnzahlAE") tableMapping.ColumnMappings.Add("AnzahlCarnetTIR", "AnzahlCarnetTIR") tableMapping.ColumnMappings.Add("AnzahlBarvorlagen", "AnzahlBarvorlagen") tableMapping.ColumnMappings.Add("AnzahlSonstiges", "AnzahlSonstiges") tableMapping.ColumnMappings.Add("AnzahlGrenzgebühren", "AnzahlGrenzgebühren") tableMapping.ColumnMappings.Add("AvisUhrzeit", "AvisUhrzeit") tableMapping.ColumnMappings.Add("Vermerk", "Vermerk") tableMapping.ColumnMappings.Add("Bemerkungen", "Bemerkungen") tableMapping.ColumnMappings.Add("Währungsschlüssel", "Währungsschlüssel") tableMapping.ColumnMappings.Add("Rechnungsbetrag", "Rechnungsbetrag") tableMapping.ColumnMappings.Add("Umrechnungskurs", "Umrechnungskurs") tableMapping.ColumnMappings.Add("Packstücke", "Packstücke") tableMapping.ColumnMappings.Add("Rohmasse", "Rohmasse") tableMapping.ColumnMappings.Add("Zahlungsaufschub", "Zahlungsaufschub") tableMapping.ColumnMappings.Add("Löschen", "Löschen") tableMapping.ColumnMappings.Add("Abfertigungsart", "Abfertigungsart") tableMapping.ColumnMappings.Add("Abfertigungsanzahl", "Abfertigungsanzahl") tableMapping.ColumnMappings.Add("AbfertigungsanzahlPos", "AbfertigungsanzahlPos") tableMapping.ColumnMappings.Add("Barzahlungsbetrag", "Barzahlungsbetrag") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Personalnummer", "Personalnummer") tableMapping.ColumnMappings.Add("AtlasBezNrEZA", "AtlasBezNrEZA") tableMapping.ColumnMappings.Add("AtlasBezNrNCTS", "AtlasBezNrNCTS") tableMapping.ColumnMappings.Add("Versendungsland", "Versendungsland") tableMapping.ColumnMappings.Add("SB_CMR", "SB_CMR") tableMapping.ColumnMappings.Add("SB_CMRDatum", "SB_CMRDatum") tableMapping.ColumnMappings.Add("veoerz_basbtg", "veoerz_basbtg") tableMapping.ColumnMappings.Add("Zucker_MRN_Nr", "Zucker_MRN_Nr") tableMapping.ColumnMappings.Add("Zucker_MRN_Datum", "Zucker_MRN_Datum") tableMapping.ColumnMappings.Add("Zucker_Aufschub", "Zucker_Aufschub") tableMapping.ColumnMappings.Add("Zollsystem", "Zollsystem") tableMapping.ColumnMappings.Add("Bestimmungszollstelle", "Bestimmungszollstelle") tableMapping.ColumnMappings.Add("Bürgschaft", "Bürgschaft") tableMapping.ColumnMappings.Add("Sicherheitsbetrag", "Sicherheitsbetrag") tableMapping.ColumnMappings.Add("SgutKompl", "SgutKompl") tableMapping.ColumnMappings.Add("Bestimmungsland", "Bestimmungsland") tableMapping.ColumnMappings.Add("EuFiskalEmpfänger", "EuFiskalEmpfänger") tableMapping.ColumnMappings.Add("QKN", "QKN") tableMapping.ColumnMappings.Add("EndempfängerKundenNr", "EndempfängerKundenNr") tableMapping.ColumnMappings.Add("Endempfänger", "Endempfänger") tableMapping.ColumnMappings.Add("SB_Zeitstempel", "SB_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("AvisoID", "AvisoID") tableMapping.ColumnMappings.Add("SendungID", "SendungID") tableMapping.ColumnMappings.Add("PersonalnummerQS", "PersonalnummerQS") tableMapping.ColumnMappings.Add("AvisiererKundenNr", "AvisiererKundenNr") tableMapping.ColumnMappings.Add("Avisierer", "Avisierer") tableMapping.ColumnMappings.Add("KdAuftragsNr", "KdAuftragsNr") tableMapping.ColumnMappings.Add("Grenzstelle", "Grenzstelle") tableMapping.ColumnMappings.Add("NCTS_Verzollungsadresse", "NCTS_Verzollungsadresse") tableMapping.ColumnMappings.Add("NCTS_VerzollungsadresseKdNr", "NCTS_VerzollungsadresseKdNr") tableMapping.ColumnMappings.Add("NCTS_Verzollungsadresse_EORI", "NCTS_Verzollungsadresse_EORI") tableMapping.ColumnMappings.Add("NCTS_Bestimmungszollstelle", "NCTS_Bestimmungszollstelle") tableMapping.ColumnMappings.Add("AuftraggeberBetragKassiert", "AuftraggeberBetragKassiert") tableMapping.ColumnMappings.Add("KdAuftragsNrAvisierer", "KdAuftragsNrAvisierer") tableMapping.ColumnMappings.Add("KdAuftragsNrEmpfaenger", "KdAuftragsNrEmpfaenger") tableMapping.ColumnMappings.Add("KdAuftragsNrFrachtfuehrer", "KdAuftragsNrFrachtfuehrer") tableMapping.ColumnMappings.Add("Lieferantenrechnung", "Lieferantenrechnung") tableMapping.ColumnMappings.Add("DokumentId_Steuerbeleg", "DokumentId_Steuerbeleg") tableMapping.ColumnMappings.Add("DokumentId_Mitteilung", "DokumentId_Mitteilung") tableMapping.ColumnMappings.Add("DokumentId_VBD", "DokumentId_VBD") tableMapping.ColumnMappings.Add("DokumentId_ABD", "DokumentId_ABD") tableMapping.ColumnMappings.Add("DokumentId_AVM", "DokumentId_AVM") tableMapping.ColumnMappings.Add("FilialenNrHandling", "FilialenNrHandling") tableMapping.ColumnMappings.Add("FilialenNrAbklaerung", "FilialenNrAbklaerung") tableMapping.ColumnMappings.Add("HandlingZuKassieren", "HandlingZuKassieren") tableMapping.ColumnMappings.Add("SB_CMRNr", "SB_CMRNr") tableMapping.ColumnMappings.Add("PersonalnummerAbklTR", "PersonalnummerAbklTR") tableMapping.ColumnMappings.Add("UK_EIDR_ausstehend", "UK_EIDR_ausstehend") tableMapping.ColumnMappings.Add("Zollstelle", "Zollstelle") tableMapping.ColumnMappings.Add("AtlasBezNrAES", "AtlasBezNrAES") tableMapping.ColumnMappings.Add("Packstücke_Zoll", "Packstücke_Zoll") tableMapping.ColumnMappings.Add("Zollsystem_Land", "Zollsystem_Land") tableMapping.ColumnMappings.Add("geloescht_am", "geloescht_am") tableMapping.ColumnMappings.Add("geloescht_von", "geloescht_von") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblSpeditionsbucharchiv] ([FilialenNr], [AbfertigungsNr], [Unt"& _ "erNr], [Abfertigungsdatum], [Bar], [Fakturiert], [BelegNr], [ErfassungsNr], [LKW"& _ " Kennzeichen], [AbsenderKundenNr], [Absender], [AbsenderOffertenNr], [EmpfängerK"& _ "undenNr], [Empfänger], [EmpfängerOffertenNr], [VermittlerKundenNr], [Vermittler]"& _ ", [VermittlerOffertenNr], [FrachtführerKundenNr], [Frachtführer], [AnzahlZA], [A"& _ "nzahlZAFremd], [AnzahlZnV], [AnzahlZnVFremd], [AnzahlT1], [AnzahlT2], [AnzahlAE]"& _ ", [AnzahlCarnetTIR], [AnzahlBarvorlagen], [AnzahlSonstiges], [AnzahlGrenzgebühre"& _ "n], [AvisUhrzeit], [Vermerk], [Bemerkungen], [Währungsschlüssel], [Rechnungsbetr"& _ "ag], [Umrechnungskurs], [Packstücke], [Rohmasse], [Zahlungsaufschub], [Löschen],"& _ " [Abfertigungsart], [Abfertigungsanzahl], [AbfertigungsanzahlPos], [Barzahlungsb"& _ "etrag], [Sachbearbeiter], [Personalnummer], [AtlasBezNrEZA], [AtlasBezNrNCTS], ["& _ "Versendungsland], [SB_CMR], [SB_CMRDatum], [veoerz_basbtg], [Zucker_MRN_Nr], [Zu"& _ "cker_MRN_Datum], [Zucker_Aufschub], [Zollsystem], [Bestimmungszollstelle], [Bürg"& _ "schaft], [Sicherheitsbetrag], [SgutKompl], [Bestimmungsland], [EuFiskalEmpfänger"& _ "], [QKN], [EndempfängerKundenNr], [Endempfänger], [SB_Zeitstempel], [AvisoID], ["& _ "SendungID], [PersonalnummerQS], [AvisiererKundenNr], [Avisierer], [KdAuftragsNr]"& _ ", [Grenzstelle], [NCTS_Verzollungsadresse], [NCTS_VerzollungsadresseKdNr], [NCTS"& _ "_Verzollungsadresse_EORI], [NCTS_Bestimmungszollstelle], [AuftraggeberBetragKass"& _ "iert], [KdAuftragsNrAvisierer], [KdAuftragsNrEmpfaenger], [KdAuftragsNrFrachtfue"& _ "hrer], [Lieferantenrechnung], [DokumentId_Steuerbeleg], [DokumentId_Mitteilung],"& _ " [DokumentId_VBD], [DokumentId_ABD], [DokumentId_AVM], [FilialenNrHandling], [Fi"& _ "lialenNrAbklaerung], [HandlingZuKassieren], [SB_CMRNr], [PersonalnummerAbklTR], "& _ "[UK_EIDR_ausstehend], [Zollstelle], [AtlasBezNrAES], [Packstücke_Zoll], [Zollsys"& _ "tem_Land], [geloescht_am], [geloescht_von]) VALUES (@FilialenNr, @AbfertigungsNr"& _ ", @UnterNr, @Abfertigungsdatum, @Bar, @Fakturiert, @BelegNr, @ErfassungsNr, @LKW"& _ "_Kennzeichen, @AbsenderKundenNr, @Absender, @AbsenderOffertenNr, @EmpfängerKunde"& _ "nNr, @Empfänger, @EmpfängerOffertenNr, @VermittlerKundenNr, @Vermittler, @Vermit"& _ "tlerOffertenNr, @FrachtführerKundenNr, @Frachtführer, @AnzahlZA, @AnzahlZAFremd,"& _ " @AnzahlZnV, @AnzahlZnVFremd, @AnzahlT1, @AnzahlT2, @AnzahlAE, @AnzahlCarnetTIR,"& _ " @AnzahlBarvorlagen, @AnzahlSonstiges, @AnzahlGrenzgebühren, @AvisUhrzeit, @Verm"& _ "erk, @Bemerkungen, @Währungsschlüssel, @Rechnungsbetrag, @Umrechnungskurs, @Pack"& _ "stücke, @Rohmasse, @Zahlungsaufschub, @Löschen, @Abfertigungsart, @Abfertigungsa"& _ "nzahl, @AbfertigungsanzahlPos, @Barzahlungsbetrag, @Sachbearbeiter, @Personalnum"& _ "mer, @AtlasBezNrEZA, @AtlasBezNrNCTS, @Versendungsland, @SB_CMR, @SB_CMRDatum, @"& _ "veoerz_basbtg, @Zucker_MRN_Nr, @Zucker_MRN_Datum, @Zucker_Aufschub, @Zollsystem,"& _ " @Bestimmungszollstelle, @Bürgschaft, @Sicherheitsbetrag, @SgutKompl, @Bestimmun"& _ "gsland, @EuFiskalEmpfänger, @QKN, @EndempfängerKundenNr, @Endempfänger, @SB_Zeit"& _ "stempel, @AvisoID, @SendungID, @PersonalnummerQS, @AvisiererKundenNr, @Avisierer"& _ ", @KdAuftragsNr, @Grenzstelle, @NCTS_Verzollungsadresse, @NCTS_Verzollungsadress"& _ "eKdNr, @NCTS_Verzollungsadresse_EORI, @NCTS_Bestimmungszollstelle, @Auftraggeber"& _ "BetragKassiert, @KdAuftragsNrAvisierer, @KdAuftragsNrEmpfaenger, @KdAuftragsNrFr"& _ "achtfuehrer, @Lieferantenrechnung, @DokumentId_Steuerbeleg, @DokumentId_Mitteilu"& _ "ng, @DokumentId_VBD, @DokumentId_ABD, @DokumentId_AVM, @FilialenNrHandling, @Fil"& _ "ialenNrAbklaerung, @HandlingZuKassieren, @SB_CMRNr, @PersonalnummerAbklTR, @UK_E"& _ "IDR_ausstehend, @Zollstelle, @AtlasBezNrAES, @Packstücke_Zoll, @Zollsystem_Land,"& _ " @geloescht_am, @geloescht_von)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bar", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturiert", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErfassungsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErfassungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKW_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LKW Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbsenderOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Empfänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Empfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmpfängerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermittler", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermittler", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerOffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VermittlerOffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FrachtführerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FrachtführerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Frachtführer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Frachtführer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZA", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZAFremd", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZAFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZnV", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZnV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlZnVFremd", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlZnVFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlT1", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlT2", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlAE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlAE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlCarnetTIR", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlCarnetTIR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlBarvorlagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlBarvorlagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlSonstiges", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlSonstiges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnzahlGrenzgebühren", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnzahlGrenzgebühren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkungen", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umrechnungskurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umrechnungskurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Packstücke", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Packstücke", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rohmasse", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsaufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsaufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Löschen", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Löschen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsart", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsanzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsanzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsanzahlPos", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsanzahlPos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Barzahlungsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Barzahlungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Personalnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Personalnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtlasBezNrEZA", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtlasBezNrEZA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtlasBezNrNCTS", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtlasBezNrNCTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Versendungsland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Versendungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_CMR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_CMR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_CMRDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_CMRDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoerz_basbtg", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoerz_basbtg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_MRN_Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_MRN_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_Aufschub", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zucker_Aufschub", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollsystem", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollsystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bürgschaft", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bürgschaft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sicherheitsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sicherheitsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SgutKompl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SgutKompl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungsland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungsland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EuFiskalEmpfänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EuFiskalEmpfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QKN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QKN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EndempfängerKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndempfängerKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Endempfänger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Endempfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisoID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisoID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SendungID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SendungID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonalnummerQS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonalnummerQS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AvisiererKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AvisiererKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Avisierer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Avisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Grenzstelle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Grenzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_Verzollungsadresse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_Verzollungsadresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_VerzollungsadresseKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_VerzollungsadresseKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_Verzollungsadresse_EORI", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_Verzollungsadresse_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NCTS_Bestimmungszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NCTS_Bestimmungszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AuftraggeberBetragKassiert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AuftraggeberBetragKassiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNrAvisierer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNrAvisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNrEmpfaenger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNrEmpfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KdAuftragsNrFrachtfuehrer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KdAuftragsNrFrachtfuehrer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferantenrechnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferantenrechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_Steuerbeleg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_Steuerbeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_Mitteilung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_Mitteilung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_VBD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_VBD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_ABD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_ABD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokumentId_AVM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DokumentId_AVM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNrHandling", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNrHandling", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNrAbklaerung", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNrAbklaerung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HandlingZuKassieren", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HandlingZuKassieren", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_CMRNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_CMRNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonalnummerAbklTR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonalnummerAbklTR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UK_EIDR_ausstehend", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UK_EIDR_ausstehend", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AtlasBezNrAES", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AtlasBezNrAES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Packstücke_Zoll", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Packstücke_Zoll", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollsystem_Land", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollsystem_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@geloescht_am", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "geloescht_am", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@geloescht_von", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "geloescht_von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, Bar, Fakturiert, B"& _ "elegNr, ErfassungsNr, [LKW Kennzeichen], AbsenderKundenNr, Absender, AbsenderOff"& _ "ertenNr, EmpfängerKundenNr, Empfänger, EmpfängerOffertenNr, VermittlerKundenNr, "& _ "Vermittler, VermittlerOffertenNr, FrachtführerKundenNr, Frachtführer, AnzahlZA, "& _ "AnzahlZAFremd, AnzahlZnV, AnzahlZnVFremd, AnzahlT1, AnzahlT2, AnzahlAE, AnzahlCa"& _ "rnetTIR, AnzahlBarvorlagen, AnzahlSonstiges, AnzahlGrenzgebühren, AvisUhrzeit, V"& _ "ermerk, Bemerkungen, Währungsschlüssel, Rechnungsbetrag, Umrechnungskurs, Packst"& _ "ücke, Rohmasse, Zahlungsaufschub, Löschen, Abfertigungsart, Abfertigungsanzahl, "& _ "AbfertigungsanzahlPos, Barzahlungsbetrag, Sachbearbeiter, Personalnummer, AtlasB"& _ "ezNrEZA, AtlasBezNrNCTS, Versendungsland, SB_CMR, SB_CMRDatum, veoerz_basbtg, Zu"& _ "cker_MRN_Nr, Zucker_MRN_Datum, Zucker_Aufschub, Zollsystem, Bestimmungszollstell"& _ "e, Bürgschaft, Sicherheitsbetrag, SgutKompl, Bestimmungsland, EuFiskalEmpfänger,"& _ " QKN, EndempfängerKundenNr, Endempfänger, SB_Zeitstempel, upsize_ts, AvisoID, Se"& _ "ndungID, PersonalnummerQS, AvisiererKundenNr, Avisierer, KdAuftragsNr, Grenzstel"& _ "le, NCTS_Verzollungsadresse, NCTS_VerzollungsadresseKdNr, NCTS_Verzollungsadress"& _ "e_EORI, NCTS_Bestimmungszollstelle, AuftraggeberBetragKassiert, KdAuftragsNrAvis"& _ "ierer, KdAuftragsNrEmpfaenger, KdAuftragsNrFrachtfuehrer, Lieferantenrechnung, D"& _ "okumentId_Steuerbeleg, DokumentId_Mitteilung, DokumentId_VBD, DokumentId_ABD, Do"& _ "kumentId_AVM, FilialenNrHandling, FilialenNrAbklaerung, HandlingZuKassieren, SB_"& _ "CMRNr, PersonalnummerAbklTR, UK_EIDR_ausstehend, Zollstelle, AtlasBezNrAES, Pack"& _ "stücke_Zoll, Zollsystem_Land, geloescht_am, geloescht_von FROM dbo.tblSpeditions"& _ "bucharchiv" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblSpeditionsbucharchivDataTable) 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 VERAGDataSet.tblSpeditionsbucharchivDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblSpeditionsbucharchivDataTable = New VERAGDataSet.tblSpeditionsbucharchivDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblSpeditionsbucharchivDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblSpeditionsbucharchiv") 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 Insert( _ ByVal FilialenNr As Global.System.Nullable(Of Integer), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UnterNr As Global.System.Nullable(Of Short), _ ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal Bar As Global.System.Nullable(Of Boolean), _ ByVal Fakturiert As Global.System.Nullable(Of Boolean), _ ByVal BelegNr As String, _ ByVal ErfassungsNr As String, _ ByVal LKW_Kennzeichen As String, _ ByVal AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal Absender As String, _ ByVal AbsenderOffertenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Empfänger As String, _ ByVal EmpfängerOffertenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Vermittler As String, _ ByVal VermittlerOffertenNr As Global.System.Nullable(Of Integer), _ ByVal FrachtführerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Frachtführer As String, _ ByVal AnzahlZA As Short, _ ByVal AnzahlZAFremd As Short, _ ByVal AnzahlZnV As Short, _ ByVal AnzahlZnVFremd As Short, _ ByVal AnzahlT1 As Short, _ ByVal AnzahlT2 As Short, _ ByVal AnzahlAE As Short, _ ByVal AnzahlCarnetTIR As Short, _ ByVal AnzahlBarvorlagen As Short, _ ByVal AnzahlSonstiges As Short, _ ByVal AnzahlGrenzgebühren As Short, _ ByVal AvisUhrzeit As Global.System.Nullable(Of Date), _ ByVal Vermerk As String, _ ByVal Bemerkungen As String, _ ByVal Währungsschlüssel As Global.System.Nullable(Of Short), _ ByVal Rechnungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal Packstücke As String, _ ByVal Rohmasse As Global.System.Nullable(Of Integer), _ ByVal Zahlungsaufschub As String, _ ByVal Löschen As Global.System.Nullable(Of Date), _ ByVal Abfertigungsart As Global.System.Nullable(Of Short), _ ByVal Abfertigungsanzahl As Global.System.Nullable(Of Integer), _ ByVal AbfertigungsanzahlPos As Global.System.Nullable(Of Integer), _ ByVal Barzahlungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal Sachbearbeiter As String, _ ByVal Personalnummer As Global.System.Nullable(Of Integer), _ ByVal AtlasBezNrEZA As String, _ ByVal AtlasBezNrNCTS As String, _ ByVal Versendungsland As String, _ ByVal SB_CMR As Boolean, _ ByVal SB_CMRDatum As Global.System.Nullable(Of Date), _ ByVal veoerz_basbtg As Global.System.Nullable(Of Decimal), _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Global.System.Nullable(Of Date), _ ByVal Zucker_Aufschub As String, _ ByVal Zollsystem As String, _ ByVal Bestimmungszollstelle As String, _ ByVal Bürgschaft As String, _ ByVal Sicherheitsbetrag As Global.System.Nullable(Of Decimal), _ ByVal SgutKompl As String, _ ByVal Bestimmungsland As String, _ ByVal EuFiskalEmpfänger As String, _ ByVal QKN As String, _ ByVal EndempfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal Endempfänger As String, _ ByVal SB_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal AvisoID As Global.System.Nullable(Of Integer), _ ByVal SendungID As Global.System.Nullable(Of Integer), _ ByVal PersonalnummerQS As Global.System.Nullable(Of Integer), _ ByVal AvisiererKundenNr As Global.System.Nullable(Of Integer), _ ByVal Avisierer As String, _ ByVal KdAuftragsNr As String, _ ByVal Grenzstelle As String, _ ByVal NCTS_Verzollungsadresse As String, _ ByVal NCTS_VerzollungsadresseKdNr As Global.System.Nullable(Of Integer), _ ByVal NCTS_Verzollungsadresse_EORI As String, _ ByVal NCTS_Bestimmungszollstelle As String, _ ByVal AuftraggeberBetragKassiert As Global.System.Nullable(Of Decimal), _ ByVal KdAuftragsNrAvisierer As String, _ ByVal KdAuftragsNrEmpfaenger As String, _ ByVal KdAuftragsNrFrachtfuehrer As String, _ ByVal Lieferantenrechnung As String, _ ByVal DokumentId_Steuerbeleg As Global.System.Nullable(Of Integer), _ ByVal DokumentId_Mitteilung As Global.System.Nullable(Of Integer), _ ByVal DokumentId_VBD As Global.System.Nullable(Of Integer), _ ByVal DokumentId_ABD As Global.System.Nullable(Of Integer), _ ByVal DokumentId_AVM As Global.System.Nullable(Of Integer), _ ByVal FilialenNrHandling As Global.System.Nullable(Of Short), _ ByVal FilialenNrAbklaerung As Global.System.Nullable(Of Short), _ ByVal HandlingZuKassieren As Decimal, _ ByVal SB_CMRNr As String, _ ByVal PersonalnummerAbklTR As Global.System.Nullable(Of Integer), _ ByVal UK_EIDR_ausstehend As Boolean, _ ByVal Zollstelle As String, _ ByVal AtlasBezNrAES As String, _ ByVal Packstücke_Zoll As String, _ ByVal Zollsystem_Land As String, _ ByVal geloescht_am As Global.System.Nullable(Of Date), _ ByVal geloescht_von As String) As Integer If (FilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(FilialenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(UnterNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Abfertigungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Abfertigungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Bar.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Bar.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Fakturiert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Fakturiert.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (BelegNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(BelegNr,String) End If If (ErfassungsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ErfassungsNr,String) End If If (LKW_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(LKW_Kennzeichen,String) End If If (AbsenderKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(AbsenderKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Absender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Absender,String) End If If (AbsenderOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(AbsenderOffertenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (EmpfängerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(EmpfängerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Empfänger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Empfänger,String) End If If (EmpfängerOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(EmpfängerOffertenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (VermittlerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(VermittlerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Vermittler Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Vermittler,String) End If If (VermittlerOffertenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(VermittlerOffertenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (FrachtführerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(FrachtführerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Frachtführer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Frachtführer,String) End If Me.Adapter.InsertCommand.Parameters(20).Value = CType(AnzahlZA,Short) Me.Adapter.InsertCommand.Parameters(21).Value = CType(AnzahlZAFremd,Short) Me.Adapter.InsertCommand.Parameters(22).Value = CType(AnzahlZnV,Short) Me.Adapter.InsertCommand.Parameters(23).Value = CType(AnzahlZnVFremd,Short) Me.Adapter.InsertCommand.Parameters(24).Value = CType(AnzahlT1,Short) Me.Adapter.InsertCommand.Parameters(25).Value = CType(AnzahlT2,Short) Me.Adapter.InsertCommand.Parameters(26).Value = CType(AnzahlAE,Short) Me.Adapter.InsertCommand.Parameters(27).Value = CType(AnzahlCarnetTIR,Short) Me.Adapter.InsertCommand.Parameters(28).Value = CType(AnzahlBarvorlagen,Short) Me.Adapter.InsertCommand.Parameters(29).Value = CType(AnzahlSonstiges,Short) Me.Adapter.InsertCommand.Parameters(30).Value = CType(AnzahlGrenzgebühren,Short) If (AvisUhrzeit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(AvisUhrzeit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(Vermerk,String) End If If (Bemerkungen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(Bemerkungen,String) End If If (Währungsschlüssel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(34).Value = CType(Währungsschlüssel.Value,Short) Else Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Rechnungsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(Rechnungsbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Umrechnungskurs.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(36).Value = CType(Umrechnungskurs.Value,Double) Else Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Packstücke Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(Packstücke,String) End If If (Rohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(38).Value = CType(Rohmasse.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (Zahlungsaufschub Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(Zahlungsaufschub,String) End If If (Löschen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(Löschen.Value,Date) Else Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (Abfertigungsart.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(41).Value = CType(Abfertigungsart.Value,Short) Else Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Abfertigungsanzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(42).Value = CType(Abfertigungsanzahl.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (AbfertigungsanzahlPos.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(AbfertigungsanzahlPos.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Barzahlungsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(44).Value = CType(Barzahlungsbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(Sachbearbeiter,String) End If If (Personalnummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(46).Value = CType(Personalnummer.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (AtlasBezNrEZA Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(AtlasBezNrEZA,String) End If If (AtlasBezNrNCTS Is Nothing) Then Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(48).Value = CType(AtlasBezNrNCTS,String) End If If (Versendungsland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(Versendungsland,String) End If Me.Adapter.InsertCommand.Parameters(50).Value = CType(SB_CMR,Boolean) If (SB_CMRDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(SB_CMRDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (veoerz_basbtg.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(52).Value = CType(veoerz_basbtg.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Zucker_MRN_Nr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(Zucker_MRN_Nr,String) End If If (Zucker_MRN_Datum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(Zucker_MRN_Datum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Zucker_Aufschub Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(Zucker_Aufschub,String) End If If (Zollsystem Is Nothing) Then Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(56).Value = CType(Zollsystem,String) End If If (Bestimmungszollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(Bestimmungszollstelle,String) End If If (Bürgschaft Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(Bürgschaft,String) End If If (Sicherheitsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(59).Value = CType(Sicherheitsbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (SgutKompl Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(SgutKompl,String) End If If (Bestimmungsland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(Bestimmungsland,String) End If If (EuFiskalEmpfänger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(EuFiskalEmpfänger,String) End If If (QKN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(QKN,String) End If If (EndempfängerKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(64).Value = CType(EndempfängerKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Endempfänger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(Endempfänger,String) End If If (SB_Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(66).Value = CType(SB_Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (AvisoID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(67).Value = CType(AvisoID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (SendungID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(68).Value = CType(SendungID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (PersonalnummerQS.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(69).Value = CType(PersonalnummerQS.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (AvisiererKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(70).Value = CType(AvisiererKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Avisierer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(Avisierer,String) End If If (KdAuftragsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(KdAuftragsNr,String) End If If (Grenzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(Grenzstelle,String) End If If (NCTS_Verzollungsadresse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(NCTS_Verzollungsadresse,String) End If If (NCTS_VerzollungsadresseKdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(75).Value = CType(NCTS_VerzollungsadresseKdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value End If If (NCTS_Verzollungsadresse_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(NCTS_Verzollungsadresse_EORI,String) End If If (NCTS_Bestimmungszollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(NCTS_Bestimmungszollstelle,String) End If If (AuftraggeberBetragKassiert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(78).Value = CType(AuftraggeberBetragKassiert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (KdAuftragsNrAvisierer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(KdAuftragsNrAvisierer,String) End If If (KdAuftragsNrEmpfaenger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(KdAuftragsNrEmpfaenger,String) End If If (KdAuftragsNrFrachtfuehrer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(KdAuftragsNrFrachtfuehrer,String) End If If (Lieferantenrechnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(Lieferantenrechnung,String) End If If (DokumentId_Steuerbeleg.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(83).Value = CType(DokumentId_Steuerbeleg.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (DokumentId_Mitteilung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(84).Value = CType(DokumentId_Mitteilung.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value End If If (DokumentId_VBD.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(85).Value = CType(DokumentId_VBD.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (DokumentId_ABD.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(86).Value = CType(DokumentId_ABD.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value End If If (DokumentId_AVM.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(87).Value = CType(DokumentId_AVM.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (FilialenNrHandling.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(88).Value = CType(FilialenNrHandling.Value,Short) Else Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (FilialenNrAbklaerung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(89).Value = CType(FilialenNrAbklaerung.Value,Short) Else Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(90).Value = CType(HandlingZuKassieren,Decimal) If (SB_CMRNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(SB_CMRNr,String) End If If (PersonalnummerAbklTR.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(92).Value = CType(PersonalnummerAbklTR.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(93).Value = CType(UK_EIDR_ausstehend,Boolean) If (Zollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(94).Value = CType(Zollstelle,String) End If If (AtlasBezNrAES Is Nothing) Then Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(95).Value = CType(AtlasBezNrAES,String) End If If (Packstücke_Zoll Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(Packstücke_Zoll,String) End If If (Zollsystem_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(Zollsystem_Land,String) End If If (geloescht_am.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(98).Value = CType(geloescht_am.Value,Date) Else Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value End If If (geloescht_von Is Nothing) Then Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(geloescht_von,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblSpeditionsbuchEndEmpfaengerTableAdapter 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 = "tblSpeditionsbuchEndEmpfaenger" tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("EndEmpfaengerKdNr", "EndEmpfaengerKdNr") tableMapping.ColumnMappings.Add("EndEmpfaenger", "EndEmpfaenger") tableMapping.ColumnMappings.Add("UstIdKz", "UstIdKz") tableMapping.ColumnMappings.Add("UstIdNr", "UstIdNr") tableMapping.ColumnMappings.Add("Rechnungsbetrag", "Rechnungsbetrag") tableMapping.ColumnMappings.Add("RechnungsNr", "RechnungsNr") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblSpeditionsbuchEndEmpfaenger] ([FilialenNr], [AbfertigungsNr"& _ "], [UnterNr], [EndEmpfaengerKdNr], [EndEmpfaenger], [UstIdKz], [UstIdNr], [Rechn"& _ "ungsbetrag], [RechnungsNr]) VALUES (@FilialenNr, @AbfertigungsNr, @UnterNr, @End"& _ "EmpfaengerKdNr, @EndEmpfaenger, @UstIdKz, @UstIdNr, @Rechnungsbetrag, @Rechnungs"& _ "Nr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EndEmpfaengerKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndEmpfaengerKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EndEmpfaenger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndEmpfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 FilialenNr, AbfertigungsNr, UnterNr, EndEmpfaengerKdNr, EndEmpfaenger, Ust"& _ "IdKz, UstIdNr, Rechnungsbetrag, RechnungsNr FROM dbo.tblSpeditionsbuchEndEmpfaen"& _ "ger" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblSpeditionsbuchEndEmpfaengerDataTable) 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 VERAGDataSet.tblSpeditionsbuchEndEmpfaengerDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblSpeditionsbuchEndEmpfaengerDataTable = New VERAGDataSet.tblSpeditionsbuchEndEmpfaengerDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblSpeditionsbuchEndEmpfaengerDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblSpeditionsbuchEndEmpfaenger") 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 Insert(ByVal FilialenNr As Short, ByVal AbfertigungsNr As Integer, ByVal UnterNr As Short, ByVal EndEmpfaengerKdNr As Integer, ByVal EndEmpfaenger As String, ByVal UstIdKz As String, ByVal UstIdNr As String, ByVal Rechnungsbetrag As Global.System.Nullable(Of Decimal), ByVal RechnungsNr As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(FilialenNr,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(AbfertigungsNr,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(UnterNr,Short) Me.Adapter.InsertCommand.Parameters(3).Value = CType(EndEmpfaengerKdNr,Integer) If (EndEmpfaenger Is Nothing) Then Throw New Global.System.ArgumentNullException("EndEmpfaenger") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(EndEmpfaenger,String) End If If (UstIdKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(UstIdKz,String) End If If (UstIdNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(UstIdNr,String) End If If (Rechnungsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Rechnungsbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (RechnungsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(RechnungsNr,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblSpeditionsbuchUnterPosTableAdapter 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 = "tblSpeditionsbuchUnterPos" tableMapping.ColumnMappings.Add("sbup_id", "sbup_id") tableMapping.ColumnMappings.Add("sbup_Filiale", "sbup_Filiale") tableMapping.ColumnMappings.Add("sbup_AbfertigungsNr", "sbup_AbfertigungsNr") tableMapping.ColumnMappings.Add("sbup_UnterNr", "sbup_UnterNr") tableMapping.ColumnMappings.Add("sbup_UnterPosArt", "sbup_UnterPosArt") tableMapping.ColumnMappings.Add("sbup_Anzahl", "sbup_Anzahl") 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].[tblSpeditionsbuchUnterPos] WHERE (([sbup_id] = @Original_sbup_"& _ "id) AND ([sbup_Filiale] = @Original_sbup_Filiale) AND ([sbup_AbfertigungsNr] = @"& _ "Original_sbup_AbfertigungsNr) AND ([sbup_UnterNr] = @Original_sbup_UnterNr) AND "& _ "([sbup_UnterPosArt] = @Original_sbup_UnterPosArt) AND ([sbup_Anzahl] = @Original"& _ "_sbup_Anzahl))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_Filiale", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_Filiale", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_UnterNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_UnterNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_UnterPosArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_UnterPosArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_Anzahl", 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].[tblSpeditionsbuchUnterPos] ([sbup_Filiale], [sbup_Abfertigungs"& _ "Nr], [sbup_UnterNr], [sbup_UnterPosArt], [sbup_Anzahl]) VALUES (@sbup_Filiale, @"& _ "sbup_AbfertigungsNr, @sbup_UnterNr, @sbup_UnterPosArt, @sbup_Anzahl);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT sb"& _ "up_id, sbup_Filiale, sbup_AbfertigungsNr, sbup_UnterNr, sbup_UnterPosArt, sbup_A"& _ "nzahl FROM tblSpeditionsbuchUnterPos WHERE (sbup_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_Filiale", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_Filiale", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_UnterNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_UnterPosArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_UnterPosArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_Anzahl", 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].[tblSpeditionsbuchUnterPos] SET [sbup_Filiale] = @sbup_Filiale, [sbu"& _ "p_AbfertigungsNr] = @sbup_AbfertigungsNr, [sbup_UnterNr] = @sbup_UnterNr, [sbup_"& _ "UnterPosArt] = @sbup_UnterPosArt, [sbup_Anzahl] = @sbup_Anzahl WHERE (([sbup_id]"& _ " = @Original_sbup_id) AND ([sbup_Filiale] = @Original_sbup_Filiale) AND ([sbup_A"& _ "bfertigungsNr] = @Original_sbup_AbfertigungsNr) AND ([sbup_UnterNr] = @Original_"& _ "sbup_UnterNr) AND ([sbup_UnterPosArt] = @Original_sbup_UnterPosArt) AND ([sbup_A"& _ "nzahl] = @Original_sbup_Anzahl));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT sbup_id, sbup_Filiale, sbup_Abfertigun"& _ "gsNr, sbup_UnterNr, sbup_UnterPosArt, sbup_Anzahl FROM tblSpeditionsbuchUnterPos"& _ " WHERE (sbup_id = @sbup_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_Filiale", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_Filiale", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_UnterNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_UnterPosArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_UnterPosArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_Filiale", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_Filiale", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_UnterNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_UnterNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_UnterPosArt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_UnterPosArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbup_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_Anzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbup_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "sbup_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 sbup_id, sbup_Filiale, sbup_AbfertigungsNr, sbup_UnterNr, sbup_UnterPosArt"& _ ", sbup_Anzahl FROM dbo.tblSpeditionsbuchUnterPos" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblSpeditionsbuchUnterPosDataTable) 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 VERAGDataSet.tblSpeditionsbuchUnterPosDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblSpeditionsbuchUnterPosDataTable = New VERAGDataSet.tblSpeditionsbuchUnterPosDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblSpeditionsbuchUnterPosDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblSpeditionsbuchUnterPos") 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_sbup_id As Integer, ByVal Original_sbup_Filiale As Integer, ByVal Original_sbup_AbfertigungsNr As Integer, ByVal Original_sbup_UnterNr As Integer, ByVal Original_sbup_UnterPosArt As Integer, ByVal Original_sbup_Anzahl As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_sbup_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_sbup_Filiale,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_sbup_AbfertigungsNr,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_sbup_UnterNr,Integer) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_sbup_UnterPosArt,Integer) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_sbup_Anzahl,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 sbup_Filiale As Integer, ByVal sbup_AbfertigungsNr As Integer, ByVal sbup_UnterNr As Integer, ByVal sbup_UnterPosArt As Integer, ByVal sbup_Anzahl As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(sbup_Filiale,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(sbup_AbfertigungsNr,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(sbup_UnterNr,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(sbup_UnterPosArt,Integer) Me.Adapter.InsertCommand.Parameters(4).Value = CType(sbup_Anzahl,Integer) 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 sbup_Filiale As Integer, ByVal sbup_AbfertigungsNr As Integer, ByVal sbup_UnterNr As Integer, ByVal sbup_UnterPosArt As Integer, ByVal sbup_Anzahl As Integer, ByVal Original_sbup_id As Integer, ByVal Original_sbup_Filiale As Integer, ByVal Original_sbup_AbfertigungsNr As Integer, ByVal Original_sbup_UnterNr As Integer, ByVal Original_sbup_UnterPosArt As Integer, ByVal Original_sbup_Anzahl As Integer, ByVal sbup_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(sbup_Filiale,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(sbup_AbfertigungsNr,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(sbup_UnterNr,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(sbup_UnterPosArt,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(sbup_Anzahl,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_sbup_id,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_sbup_Filiale,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_sbup_AbfertigungsNr,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_sbup_UnterNr,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_sbup_UnterPosArt,Integer) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_sbup_Anzahl,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(sbup_id,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 sbup_Filiale As Integer, ByVal sbup_AbfertigungsNr As Integer, ByVal sbup_UnterNr As Integer, ByVal sbup_UnterPosArt As Integer, ByVal sbup_Anzahl As Integer, ByVal Original_sbup_id As Integer, ByVal Original_sbup_Filiale As Integer, ByVal Original_sbup_AbfertigungsNr As Integer, ByVal Original_sbup_UnterNr As Integer, ByVal Original_sbup_UnterPosArt As Integer, ByVal Original_sbup_Anzahl As Integer) As Integer Return Me.Update(sbup_Filiale, sbup_AbfertigungsNr, sbup_UnterNr, sbup_UnterPosArt, sbup_Anzahl, Original_sbup_id, Original_sbup_Filiale, Original_sbup_AbfertigungsNr, Original_sbup_UnterNr, Original_sbup_UnterPosArt, Original_sbup_Anzahl, Original_sbup_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblSpeditionsbuchUnterPosArtenTableAdapter 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 = "tblSpeditionsbuchUnterPosArten" tableMapping.ColumnMappings.Add("sbupa_id", "sbupa_id") tableMapping.ColumnMappings.Add("sbupa_bez", "sbupa_bez") tableMapping.ColumnMappings.Add("sbupa_Abfertigungsart", "sbupa_Abfertigungsart") 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].[tblSpeditionsbuchUnterPosArten] WHERE (([sbupa_id] = @Original"& _ "_sbupa_id) AND ([sbupa_bez] = @Original_sbupa_bez) AND ((@IsNull_sbupa_Abfertigu"& _ "ngsart = 1 AND [sbupa_Abfertigungsart] IS NULL) OR ([sbupa_Abfertigungsart] = @O"& _ "riginal_sbupa_Abfertigungsart)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbupa_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbupa_bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_bez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sbupa_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_Abfertigungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbupa_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_Abfertigungsart", 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].[tblSpeditionsbuchUnterPosArten] ([sbupa_bez], [sbupa_Abfertigu"& _ "ngsart]) VALUES (@sbupa_bez, @sbupa_Abfertigungsart);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT sbupa_id, sbupa_be"& _ "z, sbupa_Abfertigungsart FROM tblSpeditionsbuchUnterPosArten WHERE (sbupa_id = S"& _ "COPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbupa_bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbupa_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_Abfertigungsart", 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].[tblSpeditionsbuchUnterPosArten] SET [sbupa_bez] = @sbupa_bez, [sbup"& _ "a_Abfertigungsart] = @sbupa_Abfertigungsart WHERE (([sbupa_id] = @Original_sbupa"& _ "_id) AND ([sbupa_bez] = @Original_sbupa_bez) AND ((@IsNull_sbupa_Abfertigungsart"& _ " = 1 AND [sbupa_Abfertigungsart] IS NULL) OR ([sbupa_Abfertigungsart] = @Origina"& _ "l_sbupa_Abfertigungsart)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT sbupa_id, sbupa_bez, sbupa_Abfertigungsart F"& _ "ROM tblSpeditionsbuchUnterPosArten WHERE (sbupa_id = @sbupa_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbupa_bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbupa_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_Abfertigungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbupa_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbupa_bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_bez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_sbupa_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_Abfertigungsart", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_sbupa_Abfertigungsart", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_Abfertigungsart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@sbupa_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "sbupa_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 sbupa_id, sbupa_bez, sbupa_Abfertigungsart FROM dbo.tblSpeditionsbuchUnter"& _ "PosArten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblSpeditionsbuchUnterPosArtenDataTable) 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 VERAGDataSet.tblSpeditionsbuchUnterPosArtenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblSpeditionsbuchUnterPosArtenDataTable = New VERAGDataSet.tblSpeditionsbuchUnterPosArtenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblSpeditionsbuchUnterPosArtenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblSpeditionsbuchUnterPosArten") 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_sbupa_id As Integer, ByVal Original_sbupa_bez As String, ByVal Original_sbupa_Abfertigungsart As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_sbupa_id,Integer) If (Original_sbupa_bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sbupa_bez") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_sbupa_bez,String) End If If (Original_sbupa_Abfertigungsart.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_sbupa_Abfertigungsart.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).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 sbupa_bez As String, ByVal sbupa_Abfertigungsart As Global.System.Nullable(Of Integer)) As Integer If (sbupa_bez Is Nothing) Then Throw New Global.System.ArgumentNullException("sbupa_bez") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(sbupa_bez,String) End If If (sbupa_Abfertigungsart.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(sbupa_Abfertigungsart.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).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 sbupa_bez As String, ByVal sbupa_Abfertigungsart As Global.System.Nullable(Of Integer), ByVal Original_sbupa_id As Integer, ByVal Original_sbupa_bez As String, ByVal Original_sbupa_Abfertigungsart As Global.System.Nullable(Of Integer), ByVal sbupa_id As Integer) As Integer If (sbupa_bez Is Nothing) Then Throw New Global.System.ArgumentNullException("sbupa_bez") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(sbupa_bez,String) End If If (sbupa_Abfertigungsart.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(sbupa_Abfertigungsart.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_sbupa_id,Integer) If (Original_sbupa_bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_sbupa_bez") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_sbupa_bez,String) End If If (Original_sbupa_Abfertigungsart.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_sbupa_Abfertigungsart.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(sbupa_id,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 sbupa_bez As String, ByVal sbupa_Abfertigungsart As Global.System.Nullable(Of Integer), ByVal Original_sbupa_id As Integer, ByVal Original_sbupa_bez As String, ByVal Original_sbupa_Abfertigungsart As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(sbupa_bez, sbupa_Abfertigungsart, Original_sbupa_id, Original_sbupa_bez, Original_sbupa_Abfertigungsart, Original_sbupa_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblSteuernummernTableAdapter 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 = "tblSteuernummern" tableMapping.ColumnMappings.Add("AdressenNr", "AdressenNr") tableMapping.ColumnMappings.Add("LandNr", "LandNr") tableMapping.ColumnMappings.Add("StNrFürRückerstattungUSt", "StNrFürRückerstattungUSt") tableMapping.ColumnMappings.Add("StNrGültigkeitsdatum", "StNrGültigkeitsdatum") tableMapping.ColumnMappings.Add("UStV", "UStV") tableMapping.ColumnMappings.Add("VertretungsvollmachtAusgestelltAm", "VertretungsvollmachtAusgestelltAm") tableMapping.ColumnMappings.Add("VertretungsvollmachtErhaltenAm", "VertretungsvollmachtErhaltenAm") tableMapping.ColumnMappings.Add("AuszahlungsvollmachtAusgestelltAm", "AuszahlungsvollmachtAusgestelltAm") tableMapping.ColumnMappings.Add("AuszahlungsvollmachtErhaltenAm", "AuszahlungsvollmachtErhaltenAm") tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblSteuernummern] WHERE (([AdressenNr] = @Original_AdressenNr)"& _ " AND ([LandNr] = @Original_LandNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeSt"& _ "amp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdressenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdressenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblSteuernummern] ([AdressenNr], [LandNr], [StNrFürRückerstatt"& _ "ungUSt], [StNrGültigkeitsdatum], [UStV], [VertretungsvollmachtAusgestelltAm], [V"& _ "ertretungsvollmachtErhaltenAm], [AuszahlungsvollmachtAusgestelltAm], [Auszahlung"& _ "svollmachtErhaltenAm], [Bemerkung]) VALUES (@AdressenNr, @LandNr, @StNrFürRücker"& _ "stattungUSt, @StNrGültigkeitsdatum, @UStV, @VertretungsvollmachtAusgestelltAm, @"& _ "VertretungsvollmachtErhaltenAm, @AuszahlungsvollmachtAusgestelltAm, @Auszahlungs"& _ "vollmachtErhaltenAm, @Bemerkung);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdressenNr, LandNr, StNrFürRückerstatt"& _ "ungUSt, StNrGültigkeitsdatum, UStV, VertretungsvollmachtAusgestelltAm, Vertretun"& _ "gsvollmachtErhaltenAm, AuszahlungsvollmachtAusgestelltAm, AuszahlungsvollmachtEr"& _ "haltenAm, Bemerkung, SSMA_TimeStamp FROM tblSteuernummern WHERE (AdressenNr = @A"& _ "dressenNr) AND (LandNr = @LandNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdressenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdressenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StNrFürRückerstattungUSt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StNrFürRückerstattungUSt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StNrGültigkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StNrGültigkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VertretungsvollmachtAusgestelltAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VertretungsvollmachtAusgestelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VertretungsvollmachtErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VertretungsvollmachtErhaltenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AuszahlungsvollmachtAusgestelltAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AuszahlungsvollmachtAusgestelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AuszahlungsvollmachtErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AuszahlungsvollmachtErhaltenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkung", 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].[tblSteuernummern] SET [AdressenNr] = @AdressenNr, [LandNr] = @LandN"& _ "r, [StNrFürRückerstattungUSt] = @StNrFürRückerstattungUSt, [StNrGültigkeitsdatum"& _ "] = @StNrGültigkeitsdatum, [UStV] = @UStV, [VertretungsvollmachtAusgestelltAm] ="& _ " @VertretungsvollmachtAusgestelltAm, [VertretungsvollmachtErhaltenAm] = @Vertret"& _ "ungsvollmachtErhaltenAm, [AuszahlungsvollmachtAusgestelltAm] = @Auszahlungsvollm"& _ "achtAusgestelltAm, [AuszahlungsvollmachtErhaltenAm] = @AuszahlungsvollmachtErhal"& _ "tenAm, [Bemerkung] = @Bemerkung WHERE (([AdressenNr] = @Original_AdressenNr) AND"& _ " ([LandNr] = @Original_LandNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp)"& _ ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdressenNr, LandNr, StNrFürRückerstattungUSt, StNrGültigkeitsdatum, U"& _ "StV, VertretungsvollmachtAusgestelltAm, VertretungsvollmachtErhaltenAm, Auszahlu"& _ "ngsvollmachtAusgestelltAm, AuszahlungsvollmachtErhaltenAm, Bemerkung, SSMA_TimeS"& _ "tamp FROM tblSteuernummern WHERE (AdressenNr = @AdressenNr) AND (LandNr = @LandN"& _ "r)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdressenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdressenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StNrFürRückerstattungUSt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StNrFürRückerstattungUSt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StNrGültigkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StNrGültigkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VertretungsvollmachtAusgestelltAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VertretungsvollmachtAusgestelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VertretungsvollmachtErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VertretungsvollmachtErhaltenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AuszahlungsvollmachtAusgestelltAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AuszahlungsvollmachtAusgestelltAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AuszahlungsvollmachtErhaltenAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AuszahlungsvollmachtErhaltenAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdressenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdressenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 AdressenNr, LandNr, StNrFürRückerstattungUSt, StNrGültigkeitsdatum, UStV, "& _ "VertretungsvollmachtAusgestelltAm, VertretungsvollmachtErhaltenAm, Auszahlungsvo"& _ "llmachtAusgestelltAm, AuszahlungsvollmachtErhaltenAm, Bemerkung, SSMA_TimeStamp "& _ "FROM dbo.tblSteuernummern" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblSteuernummernDataTable) 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 VERAGDataSet.tblSteuernummernDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblSteuernummernDataTable = New VERAGDataSet.tblSteuernummernDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblSteuernummernDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblSteuernummern") 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_AdressenNr As Integer, ByVal Original_LandNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AdressenNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LandNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 AdressenNr As Integer, ByVal LandNr As Short, ByVal StNrFürRückerstattungUSt As String, ByVal StNrGültigkeitsdatum As Global.System.Nullable(Of Date), ByVal UStV As Boolean, ByVal VertretungsvollmachtAusgestelltAm As Global.System.Nullable(Of Date), ByVal VertretungsvollmachtErhaltenAm As Global.System.Nullable(Of Date), ByVal AuszahlungsvollmachtAusgestelltAm As Global.System.Nullable(Of Date), ByVal AuszahlungsvollmachtErhaltenAm As Global.System.Nullable(Of Date), ByVal Bemerkung As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(AdressenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(LandNr,Short) If (StNrFürRückerstattungUSt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(StNrFürRückerstattungUSt,String) End If If (StNrGültigkeitsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(StNrGültigkeitsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(UStV,Boolean) If (VertretungsvollmachtAusgestelltAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(VertretungsvollmachtAusgestelltAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (VertretungsvollmachtErhaltenAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(VertretungsvollmachtErhaltenAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (AuszahlungsvollmachtAusgestelltAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(AuszahlungsvollmachtAusgestelltAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (AuszahlungsvollmachtErhaltenAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(AuszahlungsvollmachtErhaltenAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Bemerkung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Bemerkung,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 AdressenNr As Integer, ByVal LandNr As Short, ByVal StNrFürRückerstattungUSt As String, ByVal StNrGültigkeitsdatum As Global.System.Nullable(Of Date), ByVal UStV As Boolean, ByVal VertretungsvollmachtAusgestelltAm As Global.System.Nullable(Of Date), ByVal VertretungsvollmachtErhaltenAm As Global.System.Nullable(Of Date), ByVal AuszahlungsvollmachtAusgestelltAm As Global.System.Nullable(Of Date), ByVal AuszahlungsvollmachtErhaltenAm As Global.System.Nullable(Of Date), ByVal Bemerkung As String, ByVal Original_AdressenNr As Integer, ByVal Original_LandNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AdressenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LandNr,Short) If (StNrFürRückerstattungUSt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(StNrFürRückerstattungUSt,String) End If If (StNrGültigkeitsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(StNrGültigkeitsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(UStV,Boolean) If (VertretungsvollmachtAusgestelltAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(VertretungsvollmachtAusgestelltAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (VertretungsvollmachtErhaltenAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(VertretungsvollmachtErhaltenAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (AuszahlungsvollmachtAusgestelltAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AuszahlungsvollmachtAusgestelltAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (AuszahlungsvollmachtErhaltenAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(AuszahlungsvollmachtErhaltenAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Bemerkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Bemerkung,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_AdressenNr,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_LandNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 StNrFürRückerstattungUSt As String, ByVal StNrGültigkeitsdatum As Global.System.Nullable(Of Date), ByVal UStV As Boolean, ByVal VertretungsvollmachtAusgestelltAm As Global.System.Nullable(Of Date), ByVal VertretungsvollmachtErhaltenAm As Global.System.Nullable(Of Date), ByVal AuszahlungsvollmachtAusgestelltAm As Global.System.Nullable(Of Date), ByVal AuszahlungsvollmachtErhaltenAm As Global.System.Nullable(Of Date), ByVal Bemerkung As String, ByVal Original_AdressenNr As Integer, ByVal Original_LandNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_AdressenNr, Original_LandNr, StNrFürRückerstattungUSt, StNrGültigkeitsdatum, UStV, VertretungsvollmachtAusgestelltAm, VertretungsvollmachtErhaltenAm, AuszahlungsvollmachtAusgestelltAm, AuszahlungsvollmachtErhaltenAm, Bemerkung, Original_AdressenNr, Original_LandNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblSteuersätzeTableAdapter 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 = "tblSteuersätze" tableMapping.ColumnMappings.Add("Nr", "Nr") tableMapping.ColumnMappings.Add("Bez", "Bez") tableMapping.ColumnMappings.Add("Beschreibung", "Beschreibung") tableMapping.ColumnMappings.Add("Steuersatz", "Steuersatz") tableMapping.ColumnMappings.Add("Berechnungsmethode", "Berechnungsmethode") tableMapping.ColumnMappings.Add("Steuertyp", "Steuertyp") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblSteuersätze] WHERE (([Nr] = @Original_Nr) AND ([SSMA_TimeSt"& _ "amp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblSteuersätze] ([Nr], [Bez], [Beschreibung], [Steuersatz], [B"& _ "erechnungsmethode], [Steuertyp]) VALUES (@Nr, @Bez, @Beschreibung, @Steuersatz, "& _ "@Berechnungsmethode, @Steuertyp);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Nr, Bez, Beschreibung, Steuersatz, Ber"& _ "echnungsmethode, Steuertyp, SSMA_TimeStamp FROM tblSteuersätze WHERE (Nr = @Nr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Beschreibung", Global.System.Data.SqlDbType.NVarChar, 0, 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("@Steuersatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Berechnungsmethode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berechnungsmethode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuertyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuertyp", 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].[tblSteuersätze] SET [Nr] = @Nr, [Bez] = @Bez, [Beschreibung] = @Bes"& _ "chreibung, [Steuersatz] = @Steuersatz, [Berechnungsmethode] = @Berechnungsmethod"& _ "e, [Steuertyp] = @Steuertyp WHERE (([Nr] = @Original_Nr) AND ([SSMA_TimeStamp] ="& _ " @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Nr, Bez, Beschreibung, Steuersatz, Berechnu"& _ "ngsmethode, Steuertyp, SSMA_TimeStamp FROM tblSteuersätze WHERE (Nr = @Nr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Beschreibung", Global.System.Data.SqlDbType.NVarChar, 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("@Steuersatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Berechnungsmethode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berechnungsmethode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuertyp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuertyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Nr, Bez, Beschreibung, Steuersatz, Berechnungsmethode, Steuertyp, SSMA_Tim"& _ "eStamp FROM dbo.tblSteuersätze" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblSteuersätzeDataTable) 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 VERAGDataSet.tblSteuersätzeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblSteuersätzeDataTable = New VERAGDataSet.tblSteuersätzeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblSteuersätzeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblSteuersätze") 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_Nr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Nr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Nr As Integer, ByVal Bez As String, ByVal Beschreibung As String, ByVal Steuersatz As Double, ByVal Berechnungsmethode As Global.System.Nullable(Of Integer), ByVal Steuertyp As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Nr,Integer) If (Bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Bez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bez,String) End If If (Beschreibung Is Nothing) Then Throw New Global.System.ArgumentNullException("Beschreibung") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Beschreibung,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(Steuersatz,Double) If (Berechnungsmethode.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Berechnungsmethode.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Steuertyp.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Steuertyp.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 Nr As Integer, ByVal Bez As String, ByVal Beschreibung As String, ByVal Steuersatz As Double, ByVal Berechnungsmethode As Global.System.Nullable(Of Integer), ByVal Steuertyp As Global.System.Nullable(Of Integer), ByVal Original_Nr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Nr,Integer) If (Bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Bez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bez,String) End If If (Beschreibung Is Nothing) Then Throw New Global.System.ArgumentNullException("Beschreibung") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Beschreibung,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Steuersatz,Double) If (Berechnungsmethode.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Berechnungsmethode.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Steuertyp.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Steuertyp.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Nr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Bez As String, ByVal Beschreibung As String, ByVal Steuersatz As Double, ByVal Berechnungsmethode As Global.System.Nullable(Of Integer), ByVal Steuertyp As Global.System.Nullable(Of Integer), ByVal Original_Nr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Nr, Bez, Beschreibung, Steuersatz, Berechnungsmethode, Steuertyp, Original_Nr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblSteuertypTableAdapter 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 = "tblSteuertyp" tableMapping.ColumnMappings.Add("Nr", "Nr") tableMapping.ColumnMappings.Add("Bez", "Bez") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblSteuertyp] WHERE (([Nr] = @Original_Nr) AND ([SSMA_TimeStam"& _ "p] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblSteuertyp] ([Nr], [Bez]) VALUES (@Nr, @Bez);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Nr, Be"& _ "z, SSMA_TimeStamp FROM tblSteuertyp WHERE (Nr = @Nr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bez", 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].[tblSteuertyp] SET [Nr] = @Nr, [Bez] = @Bez WHERE (([Nr] = @Original"& _ "_Nr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Nr, Bez, SSMA_T"& _ "imeStamp FROM tblSteuertyp WHERE (Nr = @Nr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Nr, Bez, SSMA_TimeStamp FROM dbo.tblSteuertyp" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblSteuertypDataTable) 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 VERAGDataSet.tblSteuertypDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblSteuertypDataTable = New VERAGDataSet.tblSteuertypDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblSteuertypDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblSteuertyp") 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_Nr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Nr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Nr As Integer, ByVal Bez As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Nr,Integer) If (Bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Bez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bez,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 Nr As Integer, ByVal Bez As String, ByVal Original_Nr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Nr,Integer) If (Bez Is Nothing) Then Throw New Global.System.ArgumentNullException("Bez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bez,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Nr,Integer) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Bez As String, ByVal Original_Nr As Integer, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Nr, Bez, Original_Nr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTelotec_AbgabenTableAdapter 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 = "tblTelotec_Abgaben" tableMapping.ColumnMappings.Add("telAbg_id", "telAbg_id") tableMapping.ColumnMappings.Add("telAbg_telanmId", "telAbg_telanmId") tableMapping.ColumnMappings.Add("Mandant_ID", "Mandant_ID") tableMapping.ColumnMappings.Add("Bereich_ID", "Bereich_ID") tableMapping.ColumnMappings.Add("Referenz_ID", "Referenz_ID") tableMapping.ColumnMappings.Add("ComIndicator", "ComIndicator") tableMapping.ColumnMappings.Add("TotDuties_ID", "TotDuties_ID") tableMapping.ColumnMappings.Add("Ty", "Ty") tableMapping.ColumnMappings.Add("Amnt", "Amnt") tableMapping.ColumnMappings.Add("TyInd", "TyInd") tableMapping.ColumnMappings.Add("Erstelldatum", "Erstelldatum") 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].[tblTelotec_Abgaben] WHERE (([telAbg_id] = @Original_telAbg_id)"& _ " AND ([telAbg_telanmId] = @Original_telAbg_telanmId) AND ([Mandant_ID] = @Origin"& _ "al_Mandant_ID) AND ([Bereich_ID] = @Original_Bereich_ID) AND ([Referenz_ID] = @O"& _ "riginal_Referenz_ID) AND ([ComIndicator] = @Original_ComIndicator) AND ([TotDuti"& _ "es_ID] = @Original_TotDuties_ID) AND ((@IsNull_Ty = 1 AND [Ty] IS NULL) OR ([Ty]"& _ " = @Original_Ty)) AND ((@IsNull_Amnt = 1 AND [Amnt] IS NULL) OR ([Amnt] = @Origi"& _ "nal_Amnt)) AND ((@IsNull_TyInd = 1 AND [TyInd] IS NULL) OR ([TyInd] = @Original_"& _ "TyInd)) AND ((@IsNull_Erstelldatum = 1 AND [Erstelldatum] IS NULL) OR ([Erstelld"& _ "atum] = @Original_Erstelldatum)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telAbg_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telAbg_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telAbg_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotDuties_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotDuties_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Ty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Amnt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Amnt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amnt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Amnt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TyInd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TyInd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Erstelldatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erstelldatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Erstelldatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erstelldatum", 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].[tblTelotec_Abgaben] ([telAbg_telanmId], [Mandant_ID], [Bereich"& _ "_ID], [Referenz_ID], [ComIndicator], [TotDuties_ID], [Ty], [Amnt], [TyInd], [Ers"& _ "telldatum]) VALUES (@telAbg_telanmId, @Mandant_ID, @Bereich_ID, @Referenz_ID, @C"& _ "omIndicator, @TotDuties_ID, @Ty, @Amnt, @TyInd, @Erstelldatum);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT telAbg_i"& _ "d, telAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, TotDuties"& _ "_ID, Ty, Amnt, TyInd, Erstelldatum FROM tblTelotec_Abgaben WHERE (telAbg_id = SC"& _ "OPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telAbg_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotDuties_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotDuties_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amnt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Amnt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TyInd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Erstelldatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erstelldatum", 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].[tblTelotec_Abgaben] SET [telAbg_telanmId] = @telAbg_telanmId, [Mand"& _ "ant_ID] = @Mandant_ID, [Bereich_ID] = @Bereich_ID, [Referenz_ID] = @Referenz_ID,"& _ " [ComIndicator] = @ComIndicator, [TotDuties_ID] = @TotDuties_ID, [Ty] = @Ty, [Am"& _ "nt] = @Amnt, [TyInd] = @TyInd, [Erstelldatum] = @Erstelldatum WHERE (([telAbg_id"& _ "] = @Original_telAbg_id) AND ([telAbg_telanmId] = @Original_telAbg_telanmId) AND"& _ " ([Mandant_ID] = @Original_Mandant_ID) AND ([Bereich_ID] = @Original_Bereich_ID)"& _ " AND ([Referenz_ID] = @Original_Referenz_ID) AND ([ComIndicator] = @Original_Com"& _ "Indicator) AND ([TotDuties_ID] = @Original_TotDuties_ID) AND ((@IsNull_Ty = 1 AN"& _ "D [Ty] IS NULL) OR ([Ty] = @Original_Ty)) AND ((@IsNull_Amnt = 1 AND [Amnt] IS N"& _ "ULL) OR ([Amnt] = @Original_Amnt)) AND ((@IsNull_TyInd = 1 AND [TyInd] IS NULL) "& _ "OR ([TyInd] = @Original_TyInd)) AND ((@IsNull_Erstelldatum = 1 AND [Erstelldatum"& _ "] IS NULL) OR ([Erstelldatum] = @Original_Erstelldatum)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT telAbg_id, te"& _ "lAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, TotDuties_ID, "& _ "Ty, Amnt, TyInd, Erstelldatum FROM tblTelotec_Abgaben WHERE (telAbg_id = @telAbg"& _ "_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telAbg_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotDuties_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotDuties_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amnt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Amnt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TyInd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Erstelldatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erstelldatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telAbg_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telAbg_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telAbg_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotDuties_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotDuties_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Ty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Amnt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Amnt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amnt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Amnt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TyInd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TyInd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Erstelldatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erstelldatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Erstelldatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erstelldatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telAbg_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "telAbg_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 telAbg_id, telAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndica"& _ "tor, TotDuties_ID, Ty, Amnt, TyInd, Erstelldatum FROM dbo.tblTelotec_Abgaben" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTelotec_AbgabenDataTable) 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 VERAGDataSet.tblTelotec_AbgabenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTelotec_AbgabenDataTable = New VERAGDataSet.tblTelotec_AbgabenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTelotec_AbgabenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTelotec_Abgaben") 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_telAbg_id As Integer, ByVal Original_telAbg_telanmId As Integer, ByVal Original_Mandant_ID As String, ByVal Original_Bereich_ID As String, ByVal Original_Referenz_ID As String, ByVal Original_ComIndicator As Boolean, ByVal Original_TotDuties_ID As Integer, ByVal Original_Ty As String, ByVal Original_Amnt As Global.System.Nullable(Of Decimal), ByVal Original_TyInd As String, ByVal Original_Erstelldatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_telAbg_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_telAbg_telanmId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TotDuties_ID,Integer) If (Original_Ty 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_Ty,String) End If If (Original_Amnt.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Amnt.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_TyInd 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_TyInd,String) End If If (Original_Erstelldatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Erstelldatum.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 telAbg_telanmId As Integer, ByVal Mandant_ID As String, ByVal Bereich_ID As String, ByVal Referenz_ID As String, ByVal ComIndicator As Boolean, ByVal TotDuties_ID As Integer, ByVal Ty As String, ByVal Amnt As Global.System.Nullable(Of Decimal), ByVal TyInd As String, ByVal Erstelldatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(telAbg_telanmId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Referenz_ID,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(ComIndicator,Boolean) Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotDuties_ID,Integer) If (Ty Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Ty,String) End If If (Amnt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Amnt.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (TyInd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(TyInd,String) End If If (Erstelldatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Erstelldatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).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 telAbg_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal TotDuties_ID As Integer, _ ByVal Ty As String, _ ByVal Amnt As Global.System.Nullable(Of Decimal), _ ByVal TyInd As String, _ ByVal Erstelldatum As Global.System.Nullable(Of Date), _ ByVal Original_telAbg_id As Integer, _ ByVal Original_telAbg_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_TotDuties_ID As Integer, _ ByVal Original_Ty As String, _ ByVal Original_Amnt As Global.System.Nullable(Of Decimal), _ ByVal Original_TyInd As String, _ ByVal Original_Erstelldatum As Global.System.Nullable(Of Date), _ ByVal telAbg_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(telAbg_telanmId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotDuties_ID,Integer) If (Ty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Ty,String) End If If (Amnt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Amnt.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (TyInd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TyInd,String) End If If (Erstelldatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Erstelldatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_telAbg_id,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_telAbg_telanmId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TotDuties_ID,Integer) If (Original_Ty 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_Ty,String) End If If (Original_Amnt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Amnt.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_TyInd 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_TyInd,String) End If If (Original_Erstelldatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Erstelldatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(25).Value = CType(telAbg_id,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 telAbg_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal TotDuties_ID As Integer, _ ByVal Ty As String, _ ByVal Amnt As Global.System.Nullable(Of Decimal), _ ByVal TyInd As String, _ ByVal Erstelldatum As Global.System.Nullable(Of Date), _ ByVal Original_telAbg_id As Integer, _ ByVal Original_telAbg_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_TotDuties_ID As Integer, _ ByVal Original_Ty As String, _ ByVal Original_Amnt As Global.System.Nullable(Of Decimal), _ ByVal Original_TyInd As String, _ ByVal Original_Erstelldatum As Global.System.Nullable(Of Date)) As Integer Return Me.Update(telAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, TotDuties_ID, Ty, Amnt, TyInd, Erstelldatum, Original_telAbg_id, Original_telAbg_telanmId, Original_Mandant_ID, Original_Bereich_ID, Original_Referenz_ID, Original_ComIndicator, Original_TotDuties_ID, Original_Ty, Original_Amnt, Original_TyInd, Original_Erstelldatum, Original_telAbg_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTelotec_AnmeldungTableAdapter 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 = "tblTelotec_Anmeldung" tableMapping.ColumnMappings.Add("telanm_id", "telanm_id") tableMapping.ColumnMappings.Add("telanm_ART", "telanm_ART") tableMapping.ColumnMappings.Add("telanm_BezugsNr", "telanm_BezugsNr") tableMapping.ColumnMappings.Add("telanm_Status", "telanm_Status") tableMapping.ColumnMappings.Add("telanm_Status_KEWILL_Equivalent", "telanm_Status_KEWILL_Equivalent") tableMapping.ColumnMappings.Add("telanm_AvisoId", "telanm_AvisoId") tableMapping.ColumnMappings.Add("telanm_SendungsId", "telanm_SendungsId") tableMapping.ColumnMappings.Add("telanm_Steuerbescheid_dsId", "telanm_Steuerbescheid_dsId") tableMapping.ColumnMappings.Add("telanm_Mitteilung_dsId", "telanm_Mitteilung_dsId") tableMapping.ColumnMappings.Add("telanm_VBD_dsId", "telanm_VBD_dsId") tableMapping.ColumnMappings.Add("telanm_LNR", "telanm_LNR") tableMapping.ColumnMappings.Add("telanm_CRN", "telanm_CRN") tableMapping.ColumnMappings.Add("telanm_Erstellung", "telanm_Erstellung") tableMapping.ColumnMappings.Add("telanm_Erstellung_SB", "telanm_Erstellung_SB") tableMapping.ColumnMappings.Add("telanm_LetzteBearbeitung", "telanm_LetzteBearbeitung") tableMapping.ColumnMappings.Add("telanm_LetzteBearbeitung_SB", "telanm_LetzteBearbeitung_SB") tableMapping.ColumnMappings.Add("telanm_firma", "telanm_firma") tableMapping.ColumnMappings.Add("telanm_niederlassung", "telanm_niederlassung") tableMapping.ColumnMappings.Add("Mandant_ID", "Mandant_ID") tableMapping.ColumnMappings.Add("Bereich_ID", "Bereich_ID") tableMapping.ColumnMappings.Add("Referenz_ID", "Referenz_ID") tableMapping.ColumnMappings.Add("ComIndicator", "ComIndicator") tableMapping.ColumnMappings.Add("TransferStatus", "TransferStatus") tableMapping.ColumnMappings.Add("MsgType", "MsgType") tableMapping.ColumnMappings.Add("dec_ProzessArt", "dec_ProzessArt") tableMapping.ColumnMappings.Add("dec_Anmelde_ID", "dec_Anmelde_ID") tableMapping.ColumnMappings.Add("dec_Template_ID", "dec_Template_ID") tableMapping.ColumnMappings.Add("dec_Lager_ID", "dec_Lager_ID") tableMapping.ColumnMappings.Add("dec_Lag_IND", "dec_Lag_IND") tableMapping.ColumnMappings.Add("dec_CreateDate", "dec_CreateDate") tableMapping.ColumnMappings.Add("dec_CreatePersonalID", "dec_CreatePersonalID") tableMapping.ColumnMappings.Add("dec_PreDec_IND", "dec_PreDec_IND") tableMapping.ColumnMappings.Add("dec_TotNet", "dec_TotNet") tableMapping.ColumnMappings.Add("dec_TotNetSplit_IND", "dec_TotNetSplit_IND") tableMapping.ColumnMappings.Add("dec_FillPackList_IND", "dec_FillPackList_IND") tableMapping.ColumnMappings.Add("dec_Memo", "dec_Memo") tableMapping.ColumnMappings.Add("Refs_LRN", "Refs_LRN") tableMapping.ColumnMappings.Add("Refs_CRN", "Refs_CRN") tableMapping.ColumnMappings.Add("Refs_CSRN", "Refs_CSRN") tableMapping.ColumnMappings.Add("Refs_ERN", "Refs_ERN") tableMapping.ColumnMappings.Add("Refs_FRN", "Refs_FRN") tableMapping.ColumnMappings.Add("Refs_Stat", "Refs_Stat") tableMapping.ColumnMappings.Add("Hea_DecTy", "Hea_DecTy") tableMapping.ColumnMappings.Add("Hea_TotItem", "Hea_TotItem") tableMapping.ColumnMappings.Add("Hea_TotPack", "Hea_TotPack") tableMapping.ColumnMappings.Add("Hea_TotGross", "Hea_TotGross") tableMapping.ColumnMappings.Add("Hea_DepLNG", "Hea_DepLNG") tableMapping.ColumnMappings.Add("Hea_DestLNG", "Hea_DestLNG") tableMapping.ColumnMappings.Add("Hea_PayTy", "Hea_PayTy") tableMapping.ColumnMappings.Add("Hea_DefPayRef", "Hea_DefPayRef") tableMapping.ColumnMappings.Add("Hea_PerPayRef", "Hea_PerPayRef") tableMapping.ColumnMappings.Add("Hea_PayMet", "Hea_PayMet") tableMapping.ColumnMappings.Add("Hea_AExpRef", "Hea_AExpRef") tableMapping.ColumnMappings.Add("Hea_Fin", "Hea_Fin") tableMapping.ColumnMappings.Add("Hea_Simp", "Hea_Simp") tableMapping.ColumnMappings.Add("Hea_IssD", "Hea_IssD") tableMapping.ColumnMappings.Add("Hea_AuthID", "Hea_AuthID") tableMapping.ColumnMappings.Add("Hea_TransDat", "Hea_TransDat") tableMapping.ColumnMappings.Add("Hea_WoffD", "Hea_WoffD") tableMapping.ColumnMappings.Add("Hea_DecDT", "Hea_DecDT") tableMapping.ColumnMappings.Add("Hea_DecPlc", "Hea_DecPlc") tableMapping.ColumnMappings.Add("Hea_AccDT", "Hea_AccDT") tableMapping.ColumnMappings.Add("Hea_SecInd", "Hea_SecInd") tableMapping.ColumnMappings.Add("Hea_ComRef", "Hea_ComRef") tableMapping.ColumnMappings.Add("Hea_ProArrDT", "Hea_ProArrDT") tableMapping.ColumnMappings.Add("Hea_PlaDepDT", "Hea_PlaDepDT") tableMapping.ColumnMappings.Add("Locs_TradCtry", "Locs_TradCtry") tableMapping.ColumnMappings.Add("Locs_Disp", "Locs_Disp") tableMapping.ColumnMappings.Add("Locs_Dest", "Locs_Dest") tableMapping.ColumnMappings.Add("Locs_GdsLocCd", "Locs_GdsLocCd") tableMapping.ColumnMappings.Add("Locs_GdsLoc", "Locs_GdsLoc") tableMapping.ColumnMappings.Add("Locs_GdsLocAuth", "Locs_GdsLocAuth") tableMapping.ColumnMappings.Add("Locs_LoadPlcCd", "Locs_LoadPlcCd") tableMapping.ColumnMappings.Add("Locs_LoadPlc", "Locs_LoadPlc") tableMapping.ColumnMappings.Add("Locs_CustPlc", "Locs_CustPlc") tableMapping.ColumnMappings.Add("Locs_ArrLocCd", "Locs_ArrLocCd") tableMapping.ColumnMappings.Add("Locs_ArrLoc", "Locs_ArrLoc") tableMapping.ColumnMappings.Add("Locs_ArrLocAuth", "Locs_ArrLocAuth") tableMapping.ColumnMappings.Add("Locs_WarTy", "Locs_WarTy") tableMapping.ColumnMappings.Add("Locs_WarCtry", "Locs_WarCtry") tableMapping.ColumnMappings.Add("Locs_War", "Locs_War") tableMapping.ColumnMappings.Add("Transp_InMo", "Transp_InMo") tableMapping.ColumnMappings.Add("Transp_BordMo", "Transp_BordMo") tableMapping.ColumnMappings.Add("Transp_DepTy", "Transp_DepTy") tableMapping.ColumnMappings.Add("Transp_DepIdnt", "Transp_DepIdnt") tableMapping.ColumnMappings.Add("Transp_DepNat", "Transp_DepNat") tableMapping.ColumnMappings.Add("Transp_CrossTy", "Transp_CrossTy") tableMapping.ColumnMappings.Add("Transp_CrossIdnt", "Transp_CrossIdnt") tableMapping.ColumnMappings.Add("Transp_CrossIdntNat", "Transp_CrossIdntNat") tableMapping.ColumnMappings.Add("Transp_ContInd", "Transp_ContInd") tableMapping.ColumnMappings.Add("ValData_TermDelCd", "ValData_TermDelCd") tableMapping.ColumnMappings.Add("ValData_TermDelPlc", "ValData_TermDelPlc") tableMapping.ColumnMappings.Add("ValData_TermDelSit", "ValData_TermDelSit") tableMapping.ColumnMappings.Add("ValData_InvCurr", "ValData_InvCurr") tableMapping.ColumnMappings.Add("ValData_ExRa", "ValData_ExRa") tableMapping.ColumnMappings.Add("ValData_InvVal", "ValData_InvVal") tableMapping.ColumnMappings.Add("ValData_TransacCd", "ValData_TransacCd") tableMapping.ColumnMappings.Add("ConorTra_Na", "ConorTra_Na") tableMapping.ColumnMappings.Add("ConorTra_Strt", "ConorTra_Strt") tableMapping.ColumnMappings.Add("ConorTra_Pst", "ConorTra_Pst") tableMapping.ColumnMappings.Add("ConorTra_Cty", "ConorTra_Cty") tableMapping.ColumnMappings.Add("ConorTra_Ctry", "ConorTra_Ctry") tableMapping.ColumnMappings.Add("ConorTra_TIN", "ConorTra_TIN") tableMapping.ColumnMappings.Add("ConorTra_UIDCtry", "ConorTra_UIDCtry") tableMapping.ColumnMappings.Add("ConorTra_UID", "ConorTra_UID") tableMapping.ColumnMappings.Add("ConeeTra_Na", "ConeeTra_Na") tableMapping.ColumnMappings.Add("ConeeTra_Strt", "ConeeTra_Strt") tableMapping.ColumnMappings.Add("ConeeTra_Pst", "ConeeTra_Pst") tableMapping.ColumnMappings.Add("ConeeTra_Cty", "ConeeTra_Cty") tableMapping.ColumnMappings.Add("ConeeTra_Ctry", "ConeeTra_Ctry") tableMapping.ColumnMappings.Add("ConeeTra_TIN", "ConeeTra_TIN") tableMapping.ColumnMappings.Add("ConeeTra_UIDCtry", "ConeeTra_UIDCtry") tableMapping.ColumnMappings.Add("ConeeTra_UID", "ConeeTra_UID") tableMapping.ColumnMappings.Add("ExpTra_Na", "ExpTra_Na") tableMapping.ColumnMappings.Add("ExpTra_Strt", "ExpTra_Strt") tableMapping.ColumnMappings.Add("ExpTra_Pst", "ExpTra_Pst") tableMapping.ColumnMappings.Add("ExpTra_Cty", "ExpTra_Cty") tableMapping.ColumnMappings.Add("ExpTra_Ctry", "ExpTra_Ctry") tableMapping.ColumnMappings.Add("ExpTra_TIN", "ExpTra_TIN") tableMapping.ColumnMappings.Add("ExpTra_UIDCtry", "ExpTra_UIDCtry") tableMapping.ColumnMappings.Add("ExpTra_UID", "ExpTra_UID") tableMapping.ColumnMappings.Add("Declarant_Na", "Declarant_Na") tableMapping.ColumnMappings.Add("Declarant_Strt", "Declarant_Strt") tableMapping.ColumnMappings.Add("Declarant_Pst", "Declarant_Pst") tableMapping.ColumnMappings.Add("Declarant_Cty", "Declarant_Cty") tableMapping.ColumnMappings.Add("Declarant_Ctry", "Declarant_Ctry") tableMapping.ColumnMappings.Add("Declarant_TIN", "Declarant_TIN") tableMapping.ColumnMappings.Add("Declarant_UIDCtry", "Declarant_UIDCtry") tableMapping.ColumnMappings.Add("Declarant_UID", "Declarant_UID") tableMapping.ColumnMappings.Add("Declarant_DecRep", "Declarant_DecRep") tableMapping.ColumnMappings.Add("Represent_RIN", "Represent_RIN") tableMapping.ColumnMappings.Add("Represent_Na", "Represent_Na") tableMapping.ColumnMappings.Add("EntryCO_Ref", "EntryCO_Ref") tableMapping.ColumnMappings.Add("ExitCO_Ref", "ExitCO_Ref") tableMapping.ColumnMappings.Add("SurvCO_Ref", "SurvCO_Ref") tableMapping.ColumnMappings.Add("DestCO_Ref", "DestCO_Ref") tableMapping.ColumnMappings.Add("PresCO_Ref", "PresCO_Ref") tableMapping.ColumnMappings.Add("DepCO_Ref", "DepCO_Ref") tableMapping.ColumnMappings.Add("CtrlRslt_ResCd", "CtrlRslt_ResCd") tableMapping.ColumnMappings.Add("CtrlRslt_DLimit", "CtrlRslt_DLimit") tableMapping.ColumnMappings.Add("telnam_aktuellsteNachricht", "telnam_aktuellsteNachricht") 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].[tblTelotec_Anmeldung] WHERE (([telanm_id] = @Original_telanm_i"& _ "d) AND ([telanm_ART] = @Original_telanm_ART) AND ([telanm_BezugsNr] = @Original_"& _ "telanm_BezugsNr) AND ([telanm_Status] = @Original_telanm_Status) AND ([telanm_St"& _ "atus_KEWILL_Equivalent] = @Original_telanm_Status_KEWILL_Equivalent) AND ((@IsNu"& _ "ll_telanm_AvisoId = 1 AND [telanm_AvisoId] IS NULL) OR ([telanm_AvisoId] = @Orig"& _ "inal_telanm_AvisoId)) AND ((@IsNull_telanm_SendungsId = 1 AND [telanm_SendungsId"& _ "] IS NULL) OR ([telanm_SendungsId] = @Original_telanm_SendungsId)) AND ((@IsNull"& _ "_telanm_Steuerbescheid_dsId = 1 AND [telanm_Steuerbescheid_dsId] IS NULL) OR ([t"& _ "elanm_Steuerbescheid_dsId] = @Original_telanm_Steuerbescheid_dsId)) AND ((@IsNul"& _ "l_telanm_Mitteilung_dsId = 1 AND [telanm_Mitteilung_dsId] IS NULL) OR ([telanm_M"& _ "itteilung_dsId] = @Original_telanm_Mitteilung_dsId)) AND ((@IsNull_telanm_VBD_ds"& _ "Id = 1 AND [telanm_VBD_dsId] IS NULL) OR ([telanm_VBD_dsId] = @Original_telanm_V"& _ "BD_dsId)) AND ((@IsNull_telanm_LNR = 1 AND [telanm_LNR] IS NULL) OR ([telanm_LNR"& _ "] = @Original_telanm_LNR)) AND ((@IsNull_telanm_CRN = 1 AND [telanm_CRN] IS NULL"& _ ") OR ([telanm_CRN] = @Original_telanm_CRN)) AND ([telanm_Erstellung] = @Original"& _ "_telanm_Erstellung) AND ((@IsNull_telanm_Erstellung_SB = 1 AND [telanm_Erstellun"& _ "g_SB] IS NULL) OR ([telanm_Erstellung_SB] = @Original_telanm_Erstellung_SB)) AND"& _ " ([telanm_LetzteBearbeitung] = @Original_telanm_LetzteBearbeitung) AND ((@IsNull"& _ "_telanm_LetzteBearbeitung_SB = 1 AND [telanm_LetzteBearbeitung_SB] IS NULL) OR ("& _ "[telanm_LetzteBearbeitung_SB] = @Original_telanm_LetzteBearbeitung_SB)) AND ((@I"& _ "sNull_telanm_firma = 1 AND [telanm_firma] IS NULL) OR ([telanm_firma] = @Origina"& _ "l_telanm_firma)) AND ((@IsNull_telanm_niederlassung = 1 AND [telanm_niederlassun"& _ "g] IS NULL) OR ([telanm_niederlassung] = @Original_telanm_niederlassung)) AND (["& _ "Mandant_ID] = @Original_Mandant_ID) AND ([Bereich_ID] = @Original_Bereich_ID) AN"& _ "D ([Referenz_ID] = @Original_Referenz_ID) AND ([ComIndicator] = @Original_ComInd"& _ "icator) AND ((@IsNull_TransferStatus = 1 AND [TransferStatus] IS NULL) OR ([Tran"& _ "sferStatus] = @Original_TransferStatus)) AND ((@IsNull_MsgType = 1 AND [MsgType]"& _ " IS NULL) OR ([MsgType] = @Original_MsgType)) AND ([dec_ProzessArt] = @Original_"& _ "dec_ProzessArt) AND ((@IsNull_dec_Anmelde_ID = 1 AND [dec_Anmelde_ID] IS NULL) O"& _ "R ([dec_Anmelde_ID] = @Original_dec_Anmelde_ID)) AND ((@IsNull_dec_Template_ID ="& _ " 1 AND [dec_Template_ID] IS NULL) OR ([dec_Template_ID] = @Original_dec_Template"& _ "_ID)) AND ((@IsNull_dec_Lager_ID = 1 AND [dec_Lager_ID] IS NULL) OR ([dec_Lager_"& _ "ID] = @Original_dec_Lager_ID)) AND ((@IsNull_dec_Lag_IND = 1 AND [dec_Lag_IND] I"& _ "S NULL) OR ([dec_Lag_IND] = @Original_dec_Lag_IND)) AND ([dec_CreateDate] = @Ori"& _ "ginal_dec_CreateDate) AND ((@IsNull_dec_CreatePersonalID = 1 AND [dec_CreatePers"& _ "onalID] IS NULL) OR ([dec_CreatePersonalID] = @Original_dec_CreatePersonalID)) A"& _ "ND ((@IsNull_dec_PreDec_IND = 1 AND [dec_PreDec_IND] IS NULL) OR ([dec_PreDec_IN"& _ "D] = @Original_dec_PreDec_IND)) AND ((@IsNull_dec_TotNet = 1 AND [dec_TotNet] IS"& _ " NULL) OR ([dec_TotNet] = @Original_dec_TotNet)) AND ((@IsNull_dec_TotNetSplit_I"& _ "ND = 1 AND [dec_TotNetSplit_IND] IS NULL) OR ([dec_TotNetSplit_IND] = @Original_"& _ "dec_TotNetSplit_IND)) AND ((@IsNull_dec_FillPackList_IND = 1 AND [dec_FillPackLi"& _ "st_IND] IS NULL) OR ([dec_FillPackList_IND] = @Original_dec_FillPackList_IND)) A"& _ "ND ((@IsNull_dec_Memo = 1 AND [dec_Memo] IS NULL) OR ([dec_Memo] = @Original_dec"& _ "_Memo)) AND ([Refs_LRN] = @Original_Refs_LRN) AND ((@IsNull_Refs_CRN = 1 AND [Re"& _ "fs_CRN] IS NULL) OR ([Refs_CRN] = @Original_Refs_CRN)) AND ((@IsNull_Refs_CSRN ="& _ " 1 AND [Refs_CSRN] IS NULL) OR ([Refs_CSRN] = @Original_Refs_CSRN)) AND ((@IsNul"& _ "l_Refs_ERN = 1 AND [Refs_ERN] IS NULL) OR ([Refs_ERN] = @Original_Refs_ERN)) AND"& _ " ((@IsNull_Refs_FRN = 1 AND [Refs_FRN] IS NULL) OR ([Refs_FRN] = @Original_Refs_"& _ "FRN)) AND ((@IsNull_Refs_Stat = 1 AND [Refs_Stat] IS NULL) OR ([Refs_Stat] = @Or"& _ "iginal_Refs_Stat)) AND ([Hea_DecTy] = @Original_Hea_DecTy) AND ([Hea_TotItem] = "& _ "@Original_Hea_TotItem) AND ((@IsNull_Hea_TotPack = 1 AND [Hea_TotPack] IS NULL) "& _ "OR ([Hea_TotPack] = @Original_Hea_TotPack)) AND ((@IsNull_Hea_TotGross = 1 AND ["& _ "Hea_TotGross] IS NULL) OR ([Hea_TotGross] = @Original_Hea_TotGross)) AND ((@IsNu"& _ "ll_Hea_DepLNG = 1 AND [Hea_DepLNG] IS NULL) OR ([Hea_DepLNG] = @Original_Hea_Dep"& _ "LNG)) AND ((@IsNull_Hea_DestLNG = 1 AND [Hea_DestLNG] IS NULL) OR ([Hea_DestLNG]"& _ " = @Original_Hea_DestLNG)) AND ((@IsNull_Hea_PayTy = 1 AND [Hea_PayTy] IS NULL) "& _ "OR ([Hea_PayTy] = @Original_Hea_PayTy)) AND ((@IsNull_Hea_DefPayRef = 1 AND [Hea"& _ "_DefPayRef] IS NULL) OR ([Hea_DefPayRef] = @Original_Hea_DefPayRef)) AND ((@IsNu"& _ "ll_Hea_PerPayRef = 1 AND [Hea_PerPayRef] IS NULL) OR ([Hea_PerPayRef] = @Origina"& _ "l_Hea_PerPayRef)) AND ((@IsNull_Hea_PayMet = 1 AND [Hea_PayMet] IS NULL) OR ([He"& _ "a_PayMet] = @Original_Hea_PayMet)) AND ((@IsNull_Hea_AExpRef = 1 AND [Hea_AExpRe"& _ "f] IS NULL) OR ([Hea_AExpRef] = @Original_Hea_AExpRef)) AND ((@IsNull_Hea_Fin = "& _ "1 AND [Hea_Fin] IS NULL) OR ([Hea_Fin] = @Original_Hea_Fin)) AND ([Hea_Simp] = @"& _ "Original_Hea_Simp) AND ((@IsNull_Hea_IssD = 1 AND [Hea_IssD] IS NULL) OR ([Hea_I"& _ "ssD] = @Original_Hea_IssD)) AND ((@IsNull_Hea_AuthID = 1 AND [Hea_AuthID] IS NUL"& _ "L) OR ([Hea_AuthID] = @Original_Hea_AuthID)) AND ((@IsNull_Hea_TransDat = 1 AND "& _ "[Hea_TransDat] IS NULL) OR ([Hea_TransDat] = @Original_Hea_TransDat)) AND ((@IsN"& _ "ull_Hea_WoffD = 1 AND [Hea_WoffD] IS NULL) OR ([Hea_WoffD] = @Original_Hea_WoffD"& _ ")) AND ([Hea_DecDT] = @Original_Hea_DecDT) AND ([Hea_DecPlc] = @Original_Hea_Dec"& _ "Plc) AND ((@IsNull_Hea_AccDT = 1 AND [Hea_AccDT] IS NULL) OR ([Hea_AccDT] = @Ori"& _ "ginal_Hea_AccDT)) AND ((@IsNull_Hea_SecInd = 1 AND [Hea_SecInd] IS NULL) OR ([He"& _ "a_SecInd] = @Original_Hea_SecInd)) AND ((@IsNull_Hea_ComRef = 1 AND [Hea_ComRef]"& _ " IS NULL) OR ([Hea_ComRef] = @Original_Hea_ComRef)) AND ((@IsNull_Hea_ProArrDT ="& _ " 1 AND [Hea_ProArrDT] IS NULL) OR ([Hea_ProArrDT] = @Original_Hea_ProArrDT)) AND"& _ " ((@IsNull_Hea_PlaDepDT = 1 AND [Hea_PlaDepDT] IS NULL) OR ([Hea_PlaDepDT] = @Or"& _ "iginal_Hea_PlaDepDT)) AND ((@IsNull_Locs_TradCtry = 1 AND [Locs_TradCtry] IS NUL"& _ "L) OR ([Locs_TradCtry] = @Original_Locs_TradCtry)) AND ((@IsNull_Locs_Disp = 1 A"& _ "ND [Locs_Disp] IS NULL) OR ([Locs_Disp] = @Original_Locs_Disp)) AND ((@IsNull_Lo"& _ "cs_Dest = 1 AND [Locs_Dest] IS NULL) OR ([Locs_Dest] = @Original_Locs_Dest)) AND"& _ " ((@IsNull_Locs_GdsLocCd = 1 AND [Locs_GdsLocCd] IS NULL) OR ([Locs_GdsLocCd] = "& _ "@Original_Locs_GdsLocCd)) AND ((@IsNull_Locs_GdsLoc = 1 AND [Locs_GdsLoc] IS NUL"& _ "L) OR ([Locs_GdsLoc] = @Original_Locs_GdsLoc)) AND ((@IsNull_Locs_GdsLocAuth = 1"& _ " AND [Locs_GdsLocAuth] IS NULL) OR ([Locs_GdsLocAuth] = @Original_Locs_GdsLocAut"& _ "h)) AND ((@IsNull_Locs_LoadPlcCd = 1 AND [Locs_LoadPlcCd] IS NULL) OR ([Locs_Loa"& _ "dPlcCd] = @Original_Locs_LoadPlcCd)) AND ((@IsNull_Locs_LoadPlc = 1 AND [Locs_Lo"& _ "adPlc] IS NULL) OR ([Locs_LoadPlc] = @Original_Locs_LoadPlc)) AND ((@IsNull_Locs"& _ "_CustPlc = 1 AND [Locs_CustPlc] IS NULL) OR ([Locs_CustPlc] = @Original_Locs_Cus"& _ "tPlc)) AND ((@IsNull_Locs_ArrLocCd = 1 AND [Locs_ArrLocCd] IS NULL) OR ([Locs_Ar"& _ "rLocCd] = @Original_Locs_ArrLocCd)) AND ((@IsNull_Locs_ArrLoc = 1 AND [Locs_ArrL"& _ "oc] IS NULL) OR ([Locs_ArrLoc] = @Original_Locs_ArrLoc)) AND ((@IsNull_Locs_ArrL"& _ "ocAuth = 1 AND [Locs_ArrLocAuth] IS NULL) OR ([Locs_ArrLocAuth] = @Original_Locs"& _ "_ArrLocAuth)) AND ((@IsNull_Locs_WarTy = 1 AND [Locs_WarTy] IS NULL) OR ([Locs_W"& _ "arTy] = @Original_Locs_WarTy)) AND ((@IsNull_Locs_WarCtry = 1 AND [Locs_WarCtry]"& _ " IS NULL) OR ([Locs_WarCtry] = @Original_Locs_WarCtry)) AND ((@IsNull_Locs_War ="& _ " 1 AND [Locs_War] IS NULL) OR ([Locs_War] = @Original_Locs_War)) AND ((@IsNull_T"& _ "ransp_InMo = 1 AND [Transp_InMo] IS NULL) OR ([Transp_InMo] = @Original_Transp_I"& _ "nMo)) AND ((@IsNull_Transp_BordMo = 1 AND [Transp_BordMo] IS NULL) OR ([Transp_B"& _ "ordMo] = @Original_Transp_BordMo)) AND ((@IsNull_Transp_DepTy = 1 AND [Transp_De"& _ "pTy] IS NULL) OR ([Transp_DepTy] = @Original_Transp_DepTy)) AND ((@IsNull_Transp"& _ "_DepIdnt = 1 AND [Transp_DepIdnt] IS NULL) OR ([Transp_DepIdnt] = @Original_Tran"& _ "sp_DepIdnt)) AND ((@IsNull_Transp_DepNat = 1 AND [Transp_DepNat] IS NULL) OR ([T"& _ "ransp_DepNat] = @Original_Transp_DepNat)) AND ((@IsNull_Transp_CrossTy = 1 AND ["& _ "Transp_CrossTy] IS NULL) OR ([Transp_CrossTy] = @Original_Transp_CrossTy)) AND ("& _ "(@IsNull_Transp_CrossIdnt = 1 AND [Transp_CrossIdnt] IS NULL) OR ([Transp_CrossI"& _ "dnt] = @Original_Transp_CrossIdnt)) AND ((@IsNull_Transp_CrossIdntNat = 1 AND [T"& _ "ransp_CrossIdntNat] IS NULL) OR ([Transp_CrossIdntNat] = @Original_Transp_CrossI"& _ "dntNat)) AND ((@IsNull_Transp_ContInd = 1 AND [Transp_ContInd] IS NULL) OR ([Tra"& _ "nsp_ContInd] = @Original_Transp_ContInd)) AND ((@IsNull_ValData_TermDelCd = 1 AN"& _ "D [ValData_TermDelCd] IS NULL) OR ([ValData_TermDelCd] = @Original_ValData_TermD"& _ "elCd)) AND ((@IsNull_ValData_TermDelPlc = 1 AND [ValData_TermDelPlc] IS NULL) OR"& _ " ([ValData_TermDelPlc] = @Original_ValData_TermDelPlc)) AND ((@IsNull_ValData_Te"& _ "rmDelSit = 1 AND [ValData_TermDelSit] IS NULL) OR ([ValData_TermDelSit] = @Origi"& _ "nal_ValData_TermDelSit)) AND ((@IsNull_ValData_InvCurr = 1 AND [ValData_InvCurr]"& _ " IS NULL) OR ([ValData_InvCurr] = @Original_ValData_InvCurr)) AND ((@IsNull_ValD"& _ "ata_ExRa = 1 AND [ValData_ExRa] IS NULL) OR ([ValData_ExRa] = @Original_ValData_"& _ "ExRa)) AND ((@IsNull_ValData_InvVal = 1 AND [ValData_InvVal] IS NULL) OR ([ValDa"& _ "ta_InvVal] = @Original_ValData_InvVal)) AND ((@IsNull_ValData_TransacCd = 1 AND "& _ "[ValData_TransacCd] IS NULL) OR ([ValData_TransacCd] = @Original_ValData_Transac"& _ "Cd)) AND ((@IsNull_ConorTra_Na = 1 AND [ConorTra_Na] IS NULL) OR ([ConorTra_Na] "& _ "= @Original_ConorTra_Na)) AND ((@IsNull_ConorTra_Strt = 1 AND [ConorTra_Strt] IS"& _ " NULL) OR ([ConorTra_Strt] = @Original_ConorTra_Strt)) AND ((@IsNull_ConorTra_Ps"& _ "t = 1 AND [ConorTra_Pst] IS NULL) OR ([ConorTra_Pst] = @Original_ConorTra_Pst)) "& _ "AND ((@IsNull_ConorTra_Cty = 1 AND [ConorTra_Cty] IS NULL) OR ([ConorTra_Cty] = "& _ "@Original_ConorTra_Cty)) AND ((@IsNull_ConorTra_Ctry = 1 AND [ConorTra_Ctry] IS "& _ "NULL) OR ([ConorTra_Ctry] = @Original_ConorTra_Ctry)) AND ((@IsNull_ConorTra_TIN"& _ " = 1 AND [ConorTra_TIN] IS NULL) OR ([ConorTra_TIN] = @Original_ConorTra_TIN)) A"& _ "ND ((@IsNull_ConorTra_UIDCtry = 1 AND [ConorTra_UIDCtry] IS NULL) OR ([ConorTra_"& _ "UIDCtry] = @Original_ConorTra_UIDCtry)) AND ((@IsNull_ConorTra_UID = 1 AND [Cono"& _ "rTra_UID] IS NULL) OR ([ConorTra_UID] = @Original_ConorTra_UID)) AND ((@IsNull_C"& _ "oneeTra_Na = 1 AND [ConeeTra_Na] IS NULL) OR ([ConeeTra_Na] = @Original_ConeeTra"& _ "_Na)) AND ((@IsNull_ConeeTra_Strt = 1 AND [ConeeTra_Strt] IS NULL) OR ([ConeeTra"& _ "_Strt] = @Original_ConeeTra_Strt)) AND ((@IsNull_ConeeTra_Pst = 1 AND [ConeeTra_"& _ "Pst] IS NULL) OR ([ConeeTra_Pst] = @Original_ConeeTra_Pst)) AND ((@IsNull_ConeeT"& _ "ra_Cty = 1 AND [ConeeTra_Cty] IS NULL) OR ([ConeeTra_Cty] = @Original_ConeeTra_C"& _ "ty)) AND ((@IsNull_ConeeTra_Ctry = 1 AND [ConeeTra_Ctry] IS NULL) OR ([ConeeTra_"& _ "Ctry] = @Original_ConeeTra_Ctry)) AND ((@IsNull_ConeeTra_TIN = 1 AND [ConeeTra_T"& _ "IN] IS NULL) OR ([ConeeTra_TIN] = @Original_ConeeTra_TIN)) AND ((@IsNull_ConeeTr"& _ "a_UIDCtry = 1 AND [ConeeTra_UIDCtry] IS NULL) OR ([ConeeTra_UIDCtry] = @Original"& _ "_ConeeTra_UIDCtry)) AND ((@IsNull_ConeeTra_UID = 1 AND [ConeeTra_UID] IS NULL) O"& _ "R ([ConeeTra_UID] = @Original_ConeeTra_UID)) AND ((@IsNull_ExpTra_Na = 1 AND [Ex"& _ "pTra_Na] IS NULL) OR ([ExpTra_Na] = @Original_ExpTra_Na)) AND ((@IsNull_ExpTra_S"& _ "trt = 1 AND [ExpTra_Strt] IS NULL) OR ([ExpTra_Strt] = @Original_ExpTra_Strt)) A"& _ "ND ((@IsNull_ExpTra_Pst = 1 AND [ExpTra_Pst] IS NULL) OR ([ExpTra_Pst] = @Origin"& _ "al_ExpTra_Pst)) AND ((@IsNull_ExpTra_Cty = 1 AND [ExpTra_Cty] IS NULL) OR ([ExpT"& _ "ra_Cty] = @Original_ExpTra_Cty)) AND ((@IsNull_ExpTra_Ctry = 1 AND [ExpTra_Ctry]"& _ " IS NULL) OR ([ExpTra_Ctry] = @Original_ExpTra_Ctry)) AND ((@IsNull_ExpTra_TIN ="& _ " 1 AND [ExpTra_TIN] IS NULL) OR ([ExpTra_TIN] = @Original_ExpTra_TIN)) AND ((@Is"& _ "Null_ExpTra_UIDCtry = 1 AND [ExpTra_UIDCtry] IS NULL) OR ([ExpTra_UIDCtry] = @Or"& _ "iginal_ExpTra_UIDCtry)) AND ((@IsNull_ExpTra_UID = 1 AND [ExpTra_UID] IS NULL) O"& _ "R ([ExpTra_UID] = @Original_ExpTra_UID)) AND ((@IsNull_Declarant_Na = 1 AND [Dec"& _ "larant_Na] IS NULL) OR ([Declarant_Na] = @Original_Declarant_Na)) AND ((@IsNull_"& _ "Declarant_Strt = 1 AND [Declarant_Strt] IS NULL) OR ([Declarant_Strt] = @Origina"& _ "l_Declarant_Strt)) AND ((@IsNull_Declarant_Pst = 1 AND [Declarant_Pst] IS NULL) "& _ "OR ([Declarant_Pst] = @Original_Declarant_Pst)) AND ((@IsNull_Declarant_Cty = 1 "& _ "AND [Declarant_Cty] IS NULL) OR ([Declarant_Cty] = @Original_Declarant_Cty)) AND"& _ " ((@IsNull_Declarant_Ctry = 1 AND [Declarant_Ctry] IS NULL) OR ([Declarant_Ctry]"& _ " = @Original_Declarant_Ctry)) AND ((@IsNull_Declarant_TIN = 1 AND [Declarant_TIN"& _ "] IS NULL) OR ([Declarant_TIN] = @Original_Declarant_TIN)) AND ((@IsNull_Declara"& _ "nt_UIDCtry = 1 AND [Declarant_UIDCtry] IS NULL) OR ([Declarant_UIDCtry] = @Origi"& _ "nal_Declarant_UIDCtry)) AND ((@IsNull_Declarant_UID = 1 AND [Declarant_UID] IS N"& _ "ULL) OR ([Declarant_UID] = @Original_Declarant_UID)) AND ((@IsNull_Declarant_Dec"& _ "Rep = 1 AND [Declarant_DecRep] IS NULL) OR ([Declarant_DecRep] = @Original_Decla"& _ "rant_DecRep)) AND ((@IsNull_Represent_RIN = 1 AND [Represent_RIN] IS NULL) OR (["& _ "Represent_RIN] = @Original_Represent_RIN)) AND ((@IsNull_Represent_Na = 1 AND [R"& _ "epresent_Na] IS NULL) OR ([Represent_Na] = @Original_Represent_Na)) AND ((@IsNul"& _ "l_EntryCO_Ref = 1 AND [EntryCO_Ref] IS NULL) OR ([EntryCO_Ref] = @Original_Entry"& _ "CO_Ref)) AND ((@IsNull_ExitCO_Ref = 1 AND [ExitCO_Ref] IS NULL) OR ([ExitCO_Ref]"& _ " = @Original_ExitCO_Ref)) AND ((@IsNull_SurvCO_Ref = 1 AND [SurvCO_Ref] IS NULL)"& _ " OR ([SurvCO_Ref] = @Original_SurvCO_Ref)) AND ((@IsNull_DestCO_Ref = 1 AND [Des"& _ "tCO_Ref] IS NULL) OR ([DestCO_Ref] = @Original_DestCO_Ref)) AND ((@IsNull_PresCO"& _ "_Ref = 1 AND [PresCO_Ref] IS NULL) OR ([PresCO_Ref] = @Original_PresCO_Ref)) AND"& _ " ((@IsNull_DepCO_Ref = 1 AND [DepCO_Ref] IS NULL) OR ([DepCO_Ref] = @Original_De"& _ "pCO_Ref)) AND ((@IsNull_CtrlRslt_ResCd = 1 AND [CtrlRslt_ResCd] IS NULL) OR ([Ct"& _ "rlRslt_ResCd] = @Original_CtrlRslt_ResCd)) AND ((@IsNull_CtrlRslt_DLimit = 1 AND"& _ " [CtrlRslt_DLimit] IS NULL) OR ([CtrlRslt_DLimit] = @Original_CtrlRslt_DLimit)) "& _ "AND ([telnam_aktuellsteNachricht] = @Original_telnam_aktuellsteNachricht))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_ART", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_ART", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_BezugsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_SendungsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_SendungsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_Mitteilung_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Mitteilung_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Mitteilung_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Mitteilung_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_VBD_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_VBD_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_LNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_LNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_CRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_CRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_CRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransferStatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransferStatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransferStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransferStatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MsgType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MsgType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MsgType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MsgType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_ProzessArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_ProzessArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_Anmelde_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Anmelde_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_Anmelde_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Anmelde_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_Template_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Template_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_Template_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Template_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_Lager_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lager_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_Lager_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lager_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_Lag_IND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lag_IND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_Lag_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lag_IND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_CreateDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_CreateDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_CreatePersonalID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_CreatePersonalID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_CreatePersonalID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_CreatePersonalID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_PreDec_IND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_PreDec_IND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_PreDec_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_PreDec_IND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_TotNet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_TotNet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_TotNet", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "dec_TotNet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_TotNetSplit_IND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_TotNetSplit_IND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_TotNetSplit_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_TotNetSplit_IND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_FillPackList_IND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_FillPackList_IND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_FillPackList_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_FillPackList_IND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_Memo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Memo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_Memo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Memo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_LRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Refs_CRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Refs_CSRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CSRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_CSRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CSRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Refs_ERN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_ERN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_ERN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_ERN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Refs_FRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_FRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_FRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_FRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Refs_Stat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_Stat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_Stat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_Stat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DecTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_TotItem", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotItem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_TotPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotPack", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_TotPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotPack", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_TotGross", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotGross", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_TotGross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Hea_TotGross", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_DepLNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DepLNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DepLNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DepLNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_DestLNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DestLNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DestLNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DestLNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_PayTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayTy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_PayTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_DefPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DefPayRef", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DefPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DefPayRef", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_PerPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PerPayRef", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_PerPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PerPayRef", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_PayMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayMet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_PayMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayMet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_AExpRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AExpRef", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_AExpRef", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AExpRef", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_Fin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_Fin", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_Fin", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_Fin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_Simp", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_Simp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_IssD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_IssD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_IssD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_IssD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_AuthID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AuthID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_AuthID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AuthID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_TransDat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TransDat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_TransDat", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TransDat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_WoffD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_WoffD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_WoffD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_WoffD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DecDT", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecDT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DecPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecPlc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_AccDT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AccDT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_AccDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AccDT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_SecInd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_SecInd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_SecInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_SecInd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_ComRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ComRef", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_ComRef", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ComRef", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_ProArrDT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ProArrDT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_ProArrDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ProArrDT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_PlaDepDT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PlaDepDT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_PlaDepDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PlaDepDT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_TradCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_TradCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_TradCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_TradCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_Disp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Disp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_Disp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Disp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_Dest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Dest", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_Dest", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Dest", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_GdsLocCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_GdsLocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_GdsLoc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLoc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_GdsLoc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLoc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_GdsLocAuth", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocAuth", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_GdsLocAuth", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocAuth", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_LoadPlcCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlcCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_LoadPlcCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlcCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_LoadPlc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_LoadPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_CustPlc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_CustPlc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_CustPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_CustPlc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_ArrLocCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_ArrLocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_ArrLoc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLoc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_ArrLoc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLoc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_ArrLocAuth", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocAuth", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_ArrLocAuth", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocAuth", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_WarTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarTy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_WarTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_WarCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_WarCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_War", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_War", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_War", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_War", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_InMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_InMo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_InMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_InMo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_BordMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_BordMo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_BordMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_BordMo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_DepTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepTy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_DepTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_DepIdnt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepIdnt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_DepIdnt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepIdnt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_DepNat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepNat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_DepNat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepNat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_CrossTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossTy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_CrossTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_CrossIdnt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdnt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_CrossIdnt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdnt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_CrossIdntNat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdntNat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_CrossIdntNat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdntNat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_ContInd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_ContInd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_ContInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_ContInd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_TermDelCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_TermDelCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_TermDelPlc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelPlc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_TermDelPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelPlc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_TermDelSit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelSit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_TermDelSit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelSit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_InvCurr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_InvCurr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_InvCurr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_InvCurr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_ExRa", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_ExRa", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_ExRa", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 7, "ValData_ExRa", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_InvVal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_InvVal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_InvVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ValData_InvVal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_TransacCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TransacCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_TransacCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TransacCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_Na", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Na", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Na", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_Strt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Strt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Strt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_Pst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Pst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Pst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_Cty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Cty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Cty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_Ctry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Ctry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Ctry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_UIDCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UIDCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UIDCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_Na", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Na", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Na", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_Strt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Strt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Strt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_Pst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Pst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Pst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_Cty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Cty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Cty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_Ctry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Ctry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Ctry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_UIDCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UIDCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UIDCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_Na", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Na", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Na", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_Strt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Strt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Strt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_Pst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Pst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Pst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_Cty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Cty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Cty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_Ctry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Ctry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Ctry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_UIDCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UIDCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UIDCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_Na", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Na", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Na", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_Strt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Strt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Strt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_Pst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Pst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Pst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_Cty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Cty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Cty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_Ctry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Ctry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Ctry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_UIDCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UIDCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UIDCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_DecRep", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_DecRep", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_DecRep", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_DecRep", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Represent_RIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_RIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Represent_RIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_RIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Represent_Na", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_Na", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Represent_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_Na", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EntryCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EntryCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EntryCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EntryCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExitCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExitCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExitCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExitCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SurvCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SurvCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DestCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DestCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PresCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PresCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PresCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PresCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DepCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CtrlRslt_ResCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_ResCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CtrlRslt_ResCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_ResCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CtrlRslt_DLimit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_DLimit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CtrlRslt_DLimit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_DLimit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telnam_aktuellsteNachricht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telnam_aktuellsteNachricht", 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].[tblTelotec_Anmeldung] ([telanm_ART], [telanm_BezugsNr], [telan"& _ "m_Status], [telanm_Status_KEWILL_Equivalent], [telanm_AvisoId], [telanm_Sendungs"& _ "Id], [telanm_Steuerbescheid_dsId], [telanm_Mitteilung_dsId], [telanm_VBD_dsId], "& _ "[telanm_LNR], [telanm_CRN], [telanm_Erstellung], [telanm_Erstellung_SB], [telanm"& _ "_LetzteBearbeitung], [telanm_LetzteBearbeitung_SB], [telanm_firma], [telanm_nied"& _ "erlassung], [Mandant_ID], [Bereich_ID], [Referenz_ID], [ComIndicator], [Transfer"& _ "Status], [MsgType], [dec_ProzessArt], [dec_Anmelde_ID], [dec_Template_ID], [dec_"& _ "Lager_ID], [dec_Lag_IND], [dec_CreateDate], [dec_CreatePersonalID], [dec_PreDec_"& _ "IND], [dec_TotNet], [dec_TotNetSplit_IND], [dec_FillPackList_IND], [dec_Memo], ["& _ "Refs_LRN], [Refs_CRN], [Refs_CSRN], [Refs_ERN], [Refs_FRN], [Refs_Stat], [Hea_De"& _ "cTy], [Hea_TotItem], [Hea_TotPack], [Hea_TotGross], [Hea_DepLNG], [Hea_DestLNG],"& _ " [Hea_PayTy], [Hea_DefPayRef], [Hea_PerPayRef], [Hea_PayMet], [Hea_AExpRef], [He"& _ "a_Fin], [Hea_Simp], [Hea_IssD], [Hea_AuthID], [Hea_TransDat], [Hea_WoffD], [Hea_"& _ "DecDT], [Hea_DecPlc], [Hea_AccDT], [Hea_SecInd], [Hea_ComRef], [Hea_ProArrDT], ["& _ "Hea_PlaDepDT], [Locs_TradCtry], [Locs_Disp], [Locs_Dest], [Locs_GdsLocCd], [Locs"& _ "_GdsLoc], [Locs_GdsLocAuth], [Locs_LoadPlcCd], [Locs_LoadPlc], [Locs_CustPlc], ["& _ "Locs_ArrLocCd], [Locs_ArrLoc], [Locs_ArrLocAuth], [Locs_WarTy], [Locs_WarCtry], "& _ "[Locs_War], [Transp_InMo], [Transp_BordMo], [Transp_DepTy], [Transp_DepIdnt], [T"& _ "ransp_DepNat], [Transp_CrossTy], [Transp_CrossIdnt], [Transp_CrossIdntNat], [Tra"& _ "nsp_ContInd], [ValData_TermDelCd], [ValData_TermDelPlc], [ValData_TermDelSit], ["& _ "ValData_InvCurr], [ValData_ExRa], [ValData_InvVal], [ValData_TransacCd], [ConorT"& _ "ra_Na], [ConorTra_Strt], [ConorTra_Pst], [ConorTra_Cty], [ConorTra_Ctry], [Conor"& _ "Tra_TIN], [ConorTra_UIDCtry], [ConorTra_UID], [ConeeTra_Na], [ConeeTra_Strt], [C"& _ "oneeTra_Pst], [ConeeTra_Cty], [ConeeTra_Ctry], [ConeeTra_TIN], [ConeeTra_UIDCtry"& _ "], [ConeeTra_UID], [ExpTra_Na], [ExpTra_Strt], [ExpTra_Pst], [ExpTra_Cty], [ExpT"& _ "ra_Ctry], [ExpTra_TIN], [ExpTra_UIDCtry], [ExpTra_UID], [Declarant_Na], [Declara"& _ "nt_Strt], [Declarant_Pst], [Declarant_Cty], [Declarant_Ctry], [Declarant_TIN], ["& _ "Declarant_UIDCtry], [Declarant_UID], [Declarant_DecRep], [Represent_RIN], [Repre"& _ "sent_Na], [EntryCO_Ref], [ExitCO_Ref], [SurvCO_Ref], [DestCO_Ref], [PresCO_Ref],"& _ " [DepCO_Ref], [CtrlRslt_ResCd], [CtrlRslt_DLimit], [telnam_aktuellsteNachricht])"& _ " VALUES (@telanm_ART, @telanm_BezugsNr, @telanm_Status, @telanm_Status_KEWILL_Eq"& _ "uivalent, @telanm_AvisoId, @telanm_SendungsId, @telanm_Steuerbescheid_dsId, @tel"& _ "anm_Mitteilung_dsId, @telanm_VBD_dsId, @telanm_LNR, @telanm_CRN, @telanm_Erstell"& _ "ung, @telanm_Erstellung_SB, @telanm_LetzteBearbeitung, @telanm_LetzteBearbeitung"& _ "_SB, @telanm_firma, @telanm_niederlassung, @Mandant_ID, @Bereich_ID, @Referenz_I"& _ "D, @ComIndicator, @TransferStatus, @MsgType, @dec_ProzessArt, @dec_Anmelde_ID, @"& _ "dec_Template_ID, @dec_Lager_ID, @dec_Lag_IND, @dec_CreateDate, @dec_CreatePerson"& _ "alID, @dec_PreDec_IND, @dec_TotNet, @dec_TotNetSplit_IND, @dec_FillPackList_IND,"& _ " @dec_Memo, @Refs_LRN, @Refs_CRN, @Refs_CSRN, @Refs_ERN, @Refs_FRN, @Refs_Stat, "& _ "@Hea_DecTy, @Hea_TotItem, @Hea_TotPack, @Hea_TotGross, @Hea_DepLNG, @Hea_DestLNG"& _ ", @Hea_PayTy, @Hea_DefPayRef, @Hea_PerPayRef, @Hea_PayMet, @Hea_AExpRef, @Hea_Fi"& _ "n, @Hea_Simp, @Hea_IssD, @Hea_AuthID, @Hea_TransDat, @Hea_WoffD, @Hea_DecDT, @He"& _ "a_DecPlc, @Hea_AccDT, @Hea_SecInd, @Hea_ComRef, @Hea_ProArrDT, @Hea_PlaDepDT, @L"& _ "ocs_TradCtry, @Locs_Disp, @Locs_Dest, @Locs_GdsLocCd, @Locs_GdsLoc, @Locs_GdsLoc"& _ "Auth, @Locs_LoadPlcCd, @Locs_LoadPlc, @Locs_CustPlc, @Locs_ArrLocCd, @Locs_ArrLo"& _ "c, @Locs_ArrLocAuth, @Locs_WarTy, @Locs_WarCtry, @Locs_War, @Transp_InMo, @Trans"& _ "p_BordMo, @Transp_DepTy, @Transp_DepIdnt, @Transp_DepNat, @Transp_CrossTy, @Tran"& _ "sp_CrossIdnt, @Transp_CrossIdntNat, @Transp_ContInd, @ValData_TermDelCd, @ValDat"& _ "a_TermDelPlc, @ValData_TermDelSit, @ValData_InvCurr, @ValData_ExRa, @ValData_Inv"& _ "Val, @ValData_TransacCd, @ConorTra_Na, @ConorTra_Strt, @ConorTra_Pst, @ConorTra_"& _ "Cty, @ConorTra_Ctry, @ConorTra_TIN, @ConorTra_UIDCtry, @ConorTra_UID, @ConeeTra_"& _ "Na, @ConeeTra_Strt, @ConeeTra_Pst, @ConeeTra_Cty, @ConeeTra_Ctry, @ConeeTra_TIN,"& _ " @ConeeTra_UIDCtry, @ConeeTra_UID, @ExpTra_Na, @ExpTra_Strt, @ExpTra_Pst, @ExpTr"& _ "a_Cty, @ExpTra_Ctry, @ExpTra_TIN, @ExpTra_UIDCtry, @ExpTra_UID, @Declarant_Na, @"& _ "Declarant_Strt, @Declarant_Pst, @Declarant_Cty, @Declarant_Ctry, @Declarant_TIN,"& _ " @Declarant_UIDCtry, @Declarant_UID, @Declarant_DecRep, @Represent_RIN, @Represe"& _ "nt_Na, @EntryCO_Ref, @ExitCO_Ref, @SurvCO_Ref, @DestCO_Ref, @PresCO_Ref, @DepCO_"& _ "Ref, @CtrlRslt_ResCd, @CtrlRslt_DLimit, @telnam_aktuellsteNachricht);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT te"& _ "lanm_id, telanm_ART, telanm_BezugsNr, telanm_Status, telanm_Status_KEWILL_Equiva"& _ "lent, telanm_AvisoId, telanm_SendungsId, telanm_Steuerbescheid_dsId, telanm_Mitt"& _ "eilung_dsId, telanm_VBD_dsId, telanm_LNR, telanm_CRN, telanm_Erstellung, telanm_"& _ "Erstellung_SB, telanm_LetzteBearbeitung, telanm_LetzteBearbeitung_SB, telanm_fir"& _ "ma, telanm_niederlassung, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Tra"& _ "nsferStatus, MsgType, dec_ProzessArt, dec_Anmelde_ID, dec_Template_ID, dec_Lager"& _ "_ID, dec_Lag_IND, dec_CreateDate, dec_CreatePersonalID, dec_PreDec_IND, dec_TotN"& _ "et, dec_TotNetSplit_IND, dec_FillPackList_IND, dec_Memo, Refs_LRN, Refs_CRN, Ref"& _ "s_CSRN, Refs_ERN, Refs_FRN, Refs_Stat, Hea_DecTy, Hea_TotItem, Hea_TotPack, Hea_"& _ "TotGross, Hea_DepLNG, Hea_DestLNG, Hea_PayTy, Hea_DefPayRef, Hea_PerPayRef, Hea_"& _ "PayMet, Hea_AExpRef, Hea_Fin, Hea_Simp, Hea_IssD, Hea_AuthID, Hea_TransDat, Hea_"& _ "WoffD, Hea_DecDT, Hea_DecPlc, Hea_AccDT, Hea_SecInd, Hea_ComRef, Hea_ProArrDT, H"& _ "ea_PlaDepDT, Locs_TradCtry, Locs_Disp, Locs_Dest, Locs_GdsLocCd, Locs_GdsLoc, Lo"& _ "cs_GdsLocAuth, Locs_LoadPlcCd, Locs_LoadPlc, Locs_CustPlc, Locs_ArrLocCd, Locs_A"& _ "rrLoc, Locs_ArrLocAuth, Locs_WarTy, Locs_WarCtry, Locs_War, Transp_InMo, Transp_"& _ "BordMo, Transp_DepTy, Transp_DepIdnt, Transp_DepNat, Transp_CrossTy, Transp_Cros"& _ "sIdnt, Transp_CrossIdntNat, Transp_ContInd, ValData_TermDelCd, ValData_TermDelPl"& _ "c, ValData_TermDelSit, ValData_InvCurr, ValData_ExRa, ValData_InvVal, ValData_Tr"& _ "ansacCd, ConorTra_Na, ConorTra_Strt, ConorTra_Pst, ConorTra_Cty, ConorTra_Ctry, "& _ "ConorTra_TIN, ConorTra_UIDCtry, ConorTra_UID, ConeeTra_Na, ConeeTra_Strt, ConeeT"& _ "ra_Pst, ConeeTra_Cty, ConeeTra_Ctry, ConeeTra_TIN, ConeeTra_UIDCtry, ConeeTra_UI"& _ "D, ExpTra_Na, ExpTra_Strt, ExpTra_Pst, ExpTra_Cty, ExpTra_Ctry, ExpTra_TIN, ExpT"& _ "ra_UIDCtry, ExpTra_UID, Declarant_Na, Declarant_Strt, Declarant_Pst, Declarant_C"& _ "ty, Declarant_Ctry, Declarant_TIN, Declarant_UIDCtry, Declarant_UID, Declarant_D"& _ "ecRep, Represent_RIN, Represent_Na, EntryCO_Ref, ExitCO_Ref, SurvCO_Ref, DestCO_"& _ "Ref, PresCO_Ref, DepCO_Ref, CtrlRslt_ResCd, CtrlRslt_DLimit, telnam_aktuellsteNa"& _ "chricht FROM tblTelotec_Anmeldung WHERE (telanm_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_ART", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_ART", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_SendungsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Mitteilung_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Mitteilung_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_VBD_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_LNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_CRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransferStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransferStatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MsgType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MsgType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_ProzessArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_ProzessArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_Anmelde_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Anmelde_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_Template_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Template_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_Lager_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lager_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_Lag_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lag_IND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_CreateDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_CreateDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_CreatePersonalID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_CreatePersonalID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_PreDec_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_PreDec_IND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_TotNet", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "dec_TotNet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_TotNetSplit_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_TotNetSplit_IND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_FillPackList_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_FillPackList_IND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_Memo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Memo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_LRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_CSRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CSRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_ERN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_ERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_FRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_FRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_Stat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_Stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DecTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_TotItem", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotItem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_TotPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotPack", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_TotGross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Hea_TotGross", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DepLNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DepLNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DestLNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DestLNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_PayTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DefPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DefPayRef", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_PerPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PerPayRef", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_PayMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayMet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_AExpRef", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AExpRef", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_Fin", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_Fin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_Simp", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_Simp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_IssD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_IssD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_AuthID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AuthID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_TransDat", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TransDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_WoffD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_WoffD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DecDT", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecDT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DecPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecPlc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_AccDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AccDT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_SecInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_SecInd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_ComRef", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ComRef", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_ProArrDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ProArrDT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_PlaDepDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PlaDepDT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_TradCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_TradCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_Disp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Disp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_Dest", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Dest", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_GdsLocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_GdsLoc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLoc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_GdsLocAuth", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocAuth", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_LoadPlcCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlcCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_LoadPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_CustPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_CustPlc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_ArrLocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_ArrLoc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLoc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_ArrLocAuth", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocAuth", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_WarTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_WarCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_War", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_War", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_InMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_InMo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_BordMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_BordMo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_DepTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_DepIdnt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepIdnt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_DepNat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepNat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_CrossTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_CrossIdnt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdnt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_CrossIdntNat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdntNat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_ContInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_ContInd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_TermDelCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_TermDelPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelPlc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_TermDelSit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelSit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_InvCurr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_InvCurr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_ExRa", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 7, "ValData_ExRa", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_InvVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ValData_InvVal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_TransacCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TransacCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Na", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Strt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Pst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Cty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Ctry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UIDCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Na", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Strt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Pst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Cty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Ctry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UIDCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Na", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Strt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Pst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Cty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Ctry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UIDCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Na", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Strt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Pst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Cty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Ctry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UIDCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_DecRep", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_DecRep", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Represent_RIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_RIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Represent_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_Na", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EntryCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EntryCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExitCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExitCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SurvCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DestCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PresCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PresCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CtrlRslt_ResCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_ResCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CtrlRslt_DLimit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_DLimit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telnam_aktuellsteNachricht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telnam_aktuellsteNachricht", 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].[tblTelotec_Anmeldung] SET [telanm_ART] = @telanm_ART, [telanm_Bezug"& _ "sNr] = @telanm_BezugsNr, [telanm_Status] = @telanm_Status, [telanm_Status_KEWILL"& _ "_Equivalent] = @telanm_Status_KEWILL_Equivalent, [telanm_AvisoId] = @telanm_Avis"& _ "oId, [telanm_SendungsId] = @telanm_SendungsId, [telanm_Steuerbescheid_dsId] = @t"& _ "elanm_Steuerbescheid_dsId, [telanm_Mitteilung_dsId] = @telanm_Mitteilung_dsId, ["& _ "telanm_VBD_dsId] = @telanm_VBD_dsId, [telanm_LNR] = @telanm_LNR, [telanm_CRN] = "& _ "@telanm_CRN, [telanm_Erstellung] = @telanm_Erstellung, [telanm_Erstellung_SB] = "& _ "@telanm_Erstellung_SB, [telanm_LetzteBearbeitung] = @telanm_LetzteBearbeitung, ["& _ "telanm_LetzteBearbeitung_SB] = @telanm_LetzteBearbeitung_SB, [telanm_firma] = @t"& _ "elanm_firma, [telanm_niederlassung] = @telanm_niederlassung, [Mandant_ID] = @Man"& _ "dant_ID, [Bereich_ID] = @Bereich_ID, [Referenz_ID] = @Referenz_ID, [ComIndicator"& _ "] = @ComIndicator, [TransferStatus] = @TransferStatus, [MsgType] = @MsgType, [de"& _ "c_ProzessArt] = @dec_ProzessArt, [dec_Anmelde_ID] = @dec_Anmelde_ID, [dec_Templa"& _ "te_ID] = @dec_Template_ID, [dec_Lager_ID] = @dec_Lager_ID, [dec_Lag_IND] = @dec_"& _ "Lag_IND, [dec_CreateDate] = @dec_CreateDate, [dec_CreatePersonalID] = @dec_Creat"& _ "ePersonalID, [dec_PreDec_IND] = @dec_PreDec_IND, [dec_TotNet] = @dec_TotNet, [de"& _ "c_TotNetSplit_IND] = @dec_TotNetSplit_IND, [dec_FillPackList_IND] = @dec_FillPac"& _ "kList_IND, [dec_Memo] = @dec_Memo, [Refs_LRN] = @Refs_LRN, [Refs_CRN] = @Refs_CR"& _ "N, [Refs_CSRN] = @Refs_CSRN, [Refs_ERN] = @Refs_ERN, [Refs_FRN] = @Refs_FRN, [Re"& _ "fs_Stat] = @Refs_Stat, [Hea_DecTy] = @Hea_DecTy, [Hea_TotItem] = @Hea_TotItem, ["& _ "Hea_TotPack] = @Hea_TotPack, [Hea_TotGross] = @Hea_TotGross, [Hea_DepLNG] = @Hea"& _ "_DepLNG, [Hea_DestLNG] = @Hea_DestLNG, [Hea_PayTy] = @Hea_PayTy, [Hea_DefPayRef]"& _ " = @Hea_DefPayRef, [Hea_PerPayRef] = @Hea_PerPayRef, [Hea_PayMet] = @Hea_PayMet,"& _ " [Hea_AExpRef] = @Hea_AExpRef, [Hea_Fin] = @Hea_Fin, [Hea_Simp] = @Hea_Simp, [He"& _ "a_IssD] = @Hea_IssD, [Hea_AuthID] = @Hea_AuthID, [Hea_TransDat] = @Hea_TransDat,"& _ " [Hea_WoffD] = @Hea_WoffD, [Hea_DecDT] = @Hea_DecDT, [Hea_DecPlc] = @Hea_DecPlc,"& _ " [Hea_AccDT] = @Hea_AccDT, [Hea_SecInd] = @Hea_SecInd, [Hea_ComRef] = @Hea_ComRe"& _ "f, [Hea_ProArrDT] = @Hea_ProArrDT, [Hea_PlaDepDT] = @Hea_PlaDepDT, [Locs_TradCtr"& _ "y] = @Locs_TradCtry, [Locs_Disp] = @Locs_Disp, [Locs_Dest] = @Locs_Dest, [Locs_G"& _ "dsLocCd] = @Locs_GdsLocCd, [Locs_GdsLoc] = @Locs_GdsLoc, [Locs_GdsLocAuth] = @Lo"& _ "cs_GdsLocAuth, [Locs_LoadPlcCd] = @Locs_LoadPlcCd, [Locs_LoadPlc] = @Locs_LoadPl"& _ "c, [Locs_CustPlc] = @Locs_CustPlc, [Locs_ArrLocCd] = @Locs_ArrLocCd, [Locs_ArrLo"& _ "c] = @Locs_ArrLoc, [Locs_ArrLocAuth] = @Locs_ArrLocAuth, [Locs_WarTy] = @Locs_Wa"& _ "rTy, [Locs_WarCtry] = @Locs_WarCtry, [Locs_War] = @Locs_War, [Transp_InMo] = @Tr"& _ "ansp_InMo, [Transp_BordMo] = @Transp_BordMo, [Transp_DepTy] = @Transp_DepTy, [Tr"& _ "ansp_DepIdnt] = @Transp_DepIdnt, [Transp_DepNat] = @Transp_DepNat, [Transp_Cross"& _ "Ty] = @Transp_CrossTy, [Transp_CrossIdnt] = @Transp_CrossIdnt, [Transp_CrossIdnt"& _ "Nat] = @Transp_CrossIdntNat, [Transp_ContInd] = @Transp_ContInd, [ValData_TermDe"& _ "lCd] = @ValData_TermDelCd, [ValData_TermDelPlc] = @ValData_TermDelPlc, [ValData_"& _ "TermDelSit] = @ValData_TermDelSit, [ValData_InvCurr] = @ValData_InvCurr, [ValDat"& _ "a_ExRa] = @ValData_ExRa, [ValData_InvVal] = @ValData_InvVal, [ValData_TransacCd]"& _ " = @ValData_TransacCd, [ConorTra_Na] = @ConorTra_Na, [ConorTra_Strt] = @ConorTra"& _ "_Strt, [ConorTra_Pst] = @ConorTra_Pst, [ConorTra_Cty] = @ConorTra_Cty, [ConorTra"& _ "_Ctry] = @ConorTra_Ctry, [ConorTra_TIN] = @ConorTra_TIN, [ConorTra_UIDCtry] = @C"& _ "onorTra_UIDCtry, [ConorTra_UID] = @ConorTra_UID, [ConeeTra_Na] = @ConeeTra_Na, ["& _ "ConeeTra_Strt] = @ConeeTra_Strt, [ConeeTra_Pst] = @ConeeTra_Pst, [ConeeTra_Cty] "& _ "= @ConeeTra_Cty, [ConeeTra_Ctry] = @ConeeTra_Ctry, [ConeeTra_TIN] = @ConeeTra_TI"& _ "N, [ConeeTra_UIDCtry] = @ConeeTra_UIDCtry, [ConeeTra_UID] = @ConeeTra_UID, [ExpT"& _ "ra_Na] = @ExpTra_Na, [ExpTra_Strt] = @ExpTra_Strt, [ExpTra_Pst] = @ExpTra_Pst, ["& _ "ExpTra_Cty] = @ExpTra_Cty, [ExpTra_Ctry] = @ExpTra_Ctry, [ExpTra_TIN] = @ExpTra_"& _ "TIN, [ExpTra_UIDCtry] = @ExpTra_UIDCtry, [ExpTra_UID] = @ExpTra_UID, [Declarant_"& _ "Na] = @Declarant_Na, [Declarant_Strt] = @Declarant_Strt, [Declarant_Pst] = @Decl"& _ "arant_Pst, [Declarant_Cty] = @Declarant_Cty, [Declarant_Ctry] = @Declarant_Ctry,"& _ " [Declarant_TIN] = @Declarant_TIN, [Declarant_UIDCtry] = @Declarant_UIDCtry, [De"& _ "clarant_UID] = @Declarant_UID, [Declarant_DecRep] = @Declarant_DecRep, [Represen"& _ "t_RIN] = @Represent_RIN, [Represent_Na] = @Represent_Na, [EntryCO_Ref] = @EntryC"& _ "O_Ref, [ExitCO_Ref] = @ExitCO_Ref, [SurvCO_Ref] = @SurvCO_Ref, [DestCO_Ref] = @D"& _ "estCO_Ref, [PresCO_Ref] = @PresCO_Ref, [DepCO_Ref] = @DepCO_Ref, [CtrlRslt_ResCd"& _ "] = @CtrlRslt_ResCd, [CtrlRslt_DLimit] = @CtrlRslt_DLimit, [telnam_aktuellsteNac"& _ "hricht] = @telnam_aktuellsteNachricht WHERE (([telanm_id] = @Original_telanm_id)"& _ " AND ([telanm_ART] = @Original_telanm_ART) AND ([telanm_BezugsNr] = @Original_te"& _ "lanm_BezugsNr) AND ([telanm_Status] = @Original_telanm_Status) AND ([telanm_Stat"& _ "us_KEWILL_Equivalent] = @Original_telanm_Status_KEWILL_Equivalent) AND ((@IsNull"& _ "_telanm_AvisoId = 1 AND [telanm_AvisoId] IS NULL) OR ([telanm_AvisoId] = @Origin"& _ "al_telanm_AvisoId)) AND ((@IsNull_telanm_SendungsId = 1 AND [telanm_SendungsId] "& _ "IS NULL) OR ([telanm_SendungsId] = @Original_telanm_SendungsId)) AND ((@IsNull_t"& _ "elanm_Steuerbescheid_dsId = 1 AND [telanm_Steuerbescheid_dsId] IS NULL) OR ([tel"& _ "anm_Steuerbescheid_dsId] = @Original_telanm_Steuerbescheid_dsId)) AND ((@IsNull_"& _ "telanm_Mitteilung_dsId = 1 AND [telanm_Mitteilung_dsId] IS NULL) OR ([telanm_Mit"& _ "teilung_dsId] = @Original_telanm_Mitteilung_dsId)) AND ((@IsNull_telanm_VBD_dsId"& _ " = 1 AND [telanm_VBD_dsId] IS NULL) OR ([telanm_VBD_dsId] = @Original_telanm_VBD"& _ "_dsId)) AND ((@IsNull_telanm_LNR = 1 AND [telanm_LNR] IS NULL) OR ([telanm_LNR] "& _ "= @Original_telanm_LNR)) AND ((@IsNull_telanm_CRN = 1 AND [telanm_CRN] IS NULL) "& _ "OR ([telanm_CRN] = @Original_telanm_CRN)) AND ([telanm_Erstellung] = @Original_t"& _ "elanm_Erstellung) AND ((@IsNull_telanm_Erstellung_SB = 1 AND [telanm_Erstellung_"& _ "SB] IS NULL) OR ([telanm_Erstellung_SB] = @Original_telanm_Erstellung_SB)) AND ("& _ "[telanm_LetzteBearbeitung] = @Original_telanm_LetzteBearbeitung) AND ((@IsNull_t"& _ "elanm_LetzteBearbeitung_SB = 1 AND [telanm_LetzteBearbeitung_SB] IS NULL) OR ([t"& _ "elanm_LetzteBearbeitung_SB] = @Original_telanm_LetzteBearbeitung_SB)) AND ((@IsN"& _ "ull_telanm_firma = 1 AND [telanm_firma] IS NULL) OR ([telanm_firma] = @Original_"& _ "telanm_firma)) AND ((@IsNull_telanm_niederlassung = 1 AND [telanm_niederlassung]"& _ " IS NULL) OR ([telanm_niederlassung] = @Original_telanm_niederlassung)) AND ([Ma"& _ "ndant_ID] = @Original_Mandant_ID) AND ([Bereich_ID] = @Original_Bereich_ID) AND "& _ "([Referenz_ID] = @Original_Referenz_ID) AND ([ComIndicator] = @Original_ComIndic"& _ "ator) AND ((@IsNull_TransferStatus = 1 AND [TransferStatus] IS NULL) OR ([Transf"& _ "erStatus] = @Original_TransferStatus)) AND ((@IsNull_MsgType = 1 AND [MsgType] I"& _ "S NULL) OR ([MsgType] = @Original_MsgType)) AND ([dec_ProzessArt] = @Original_de"& _ "c_ProzessArt) AND ((@IsNull_dec_Anmelde_ID = 1 AND [dec_Anmelde_ID] IS NULL) OR "& _ "([dec_Anmelde_ID] = @Original_dec_Anmelde_ID)) AND ((@IsNull_dec_Template_ID = 1"& _ " AND [dec_Template_ID] IS NULL) OR ([dec_Template_ID] = @Original_dec_Template_I"& _ "D)) AND ((@IsNull_dec_Lager_ID = 1 AND [dec_Lager_ID] IS NULL) OR ([dec_Lager_ID"& _ "] = @Original_dec_Lager_ID)) AND ((@IsNull_dec_Lag_IND = 1 AND [dec_Lag_IND] IS "& _ "NULL) OR ([dec_Lag_IND] = @Original_dec_Lag_IND)) AND ([dec_CreateDate] = @Origi"& _ "nal_dec_CreateDate) AND ((@IsNull_dec_CreatePersonalID = 1 AND [dec_CreatePerson"& _ "alID] IS NULL) OR ([dec_CreatePersonalID] = @Original_dec_CreatePersonalID)) AND"& _ " ((@IsNull_dec_PreDec_IND = 1 AND [dec_PreDec_IND] IS NULL) OR ([dec_PreDec_IND]"& _ " = @Original_dec_PreDec_IND)) AND ((@IsNull_dec_TotNet = 1 AND [dec_TotNet] IS N"& _ "ULL) OR ([dec_TotNet] = @Original_dec_TotNet)) AND ((@IsNull_dec_TotNetSplit_IND"& _ " = 1 AND [dec_TotNetSplit_IND] IS NULL) OR ([dec_TotNetSplit_IND] = @Original_de"& _ "c_TotNetSplit_IND)) AND ((@IsNull_dec_FillPackList_IND = 1 AND [dec_FillPackList"& _ "_IND] IS NULL) OR ([dec_FillPackList_IND] = @Original_dec_FillPackList_IND)) AND"& _ " ((@IsNull_dec_Memo = 1 AND [dec_Memo] IS NULL) OR ([dec_Memo] = @Original_dec_M"& _ "emo)) AND ([Refs_LRN] = @Original_Refs_LRN) AND ((@IsNull_Refs_CRN = 1 AND [Refs"& _ "_CRN] IS NULL) OR ([Refs_CRN] = @Original_Refs_CRN)) AND ((@IsNull_Refs_CSRN = 1"& _ " AND [Refs_CSRN] IS NULL) OR ([Refs_CSRN] = @Original_Refs_CSRN)) AND ((@IsNull_"& _ "Refs_ERN = 1 AND [Refs_ERN] IS NULL) OR ([Refs_ERN] = @Original_Refs_ERN)) AND ("& _ "(@IsNull_Refs_FRN = 1 AND [Refs_FRN] IS NULL) OR ([Refs_FRN] = @Original_Refs_FR"& _ "N)) AND ((@IsNull_Refs_Stat = 1 AND [Refs_Stat] IS NULL) OR ([Refs_Stat] = @Orig"& _ "inal_Refs_Stat)) AND ([Hea_DecTy] = @Original_Hea_DecTy) AND ([Hea_TotItem] = @O"& _ "riginal_Hea_TotItem) AND ((@IsNull_Hea_TotPack = 1 AND [Hea_TotPack] IS NULL) OR"& _ " ([Hea_TotPack] = @Original_Hea_TotPack)) AND ((@IsNull_Hea_TotGross = 1 AND [He"& _ "a_TotGross] IS NULL) OR ([Hea_TotGross] = @Original_Hea_TotGross)) AND ((@IsNull"& _ "_Hea_DepLNG = 1 AND [Hea_DepLNG] IS NULL) OR ([Hea_DepLNG] = @Original_Hea_DepLN"& _ "G)) AND ((@IsNull_Hea_DestLNG = 1 AND [Hea_DestLNG] IS NULL) OR ([Hea_DestLNG] ="& _ " @Original_Hea_DestLNG)) AND ((@IsNull_Hea_PayTy = 1 AND [Hea_PayTy] IS NULL) OR"& _ " ([Hea_PayTy] = @Original_Hea_PayTy)) AND ((@IsNull_Hea_DefPayRef = 1 AND [Hea_D"& _ "efPayRef] IS NULL) OR ([Hea_DefPayRef] = @Original_Hea_DefPayRef)) AND ((@IsNull"& _ "_Hea_PerPayRef = 1 AND [Hea_PerPayRef] IS NULL) OR ([Hea_PerPayRef] = @Original_"& _ "Hea_PerPayRef)) AND ((@IsNull_Hea_PayMet = 1 AND [Hea_PayMet] IS NULL) OR ([Hea_"& _ "PayMet] = @Original_Hea_PayMet)) AND ((@IsNull_Hea_AExpRef = 1 AND [Hea_AExpRef]"& _ " IS NULL) OR ([Hea_AExpRef] = @Original_Hea_AExpRef)) AND ((@IsNull_Hea_Fin = 1 "& _ "AND [Hea_Fin] IS NULL) OR ([Hea_Fin] = @Original_Hea_Fin)) AND ([Hea_Simp] = @Or"& _ "iginal_Hea_Simp) AND ((@IsNull_Hea_IssD = 1 AND [Hea_IssD] IS NULL) OR ([Hea_Iss"& _ "D] = @Original_Hea_IssD)) AND ((@IsNull_Hea_AuthID = 1 AND [Hea_AuthID] IS NULL)"& _ " OR ([Hea_AuthID] = @Original_Hea_AuthID)) AND ((@IsNull_Hea_TransDat = 1 AND [H"& _ "ea_TransDat] IS NULL) OR ([Hea_TransDat] = @Original_Hea_TransDat)) AND ((@IsNul"& _ "l_Hea_WoffD = 1 AND [Hea_WoffD] IS NULL) OR ([Hea_WoffD] = @Original_Hea_WoffD))"& _ " AND ([Hea_DecDT] = @Original_Hea_DecDT) AND ([Hea_DecPlc] = @Original_Hea_DecPl"& _ "c) AND ((@IsNull_Hea_AccDT = 1 AND [Hea_AccDT] IS NULL) OR ([Hea_AccDT] = @Origi"& _ "nal_Hea_AccDT)) AND ((@IsNull_Hea_SecInd = 1 AND [Hea_SecInd] IS NULL) OR ([Hea_"& _ "SecInd] = @Original_Hea_SecInd)) AND ((@IsNull_Hea_ComRef = 1 AND [Hea_ComRef] I"& _ "S NULL) OR ([Hea_ComRef] = @Original_Hea_ComRef)) AND ((@IsNull_Hea_ProArrDT = 1"& _ " AND [Hea_ProArrDT] IS NULL) OR ([Hea_ProArrDT] = @Original_Hea_ProArrDT)) AND ("& _ "(@IsNull_Hea_PlaDepDT = 1 AND [Hea_PlaDepDT] IS NULL) OR ([Hea_PlaDepDT] = @Orig"& _ "inal_Hea_PlaDepDT)) AND ((@IsNull_Locs_TradCtry = 1 AND [Locs_TradCtry] IS NULL)"& _ " OR ([Locs_TradCtry] = @Original_Locs_TradCtry)) AND ((@IsNull_Locs_Disp = 1 AND"& _ " [Locs_Disp] IS NULL) OR ([Locs_Disp] = @Original_Locs_Disp)) AND ((@IsNull_Locs"& _ "_Dest = 1 AND [Locs_Dest] IS NULL) OR ([Locs_Dest] = @Original_Locs_Dest)) AND ("& _ "(@IsNull_Locs_GdsLocCd = 1 AND [Locs_GdsLocCd] IS NULL) OR ([Locs_GdsLocCd] = @O"& _ "riginal_Locs_GdsLocCd)) AND ((@IsNull_Locs_GdsLoc = 1 AND [Locs_GdsLoc] IS NULL)"& _ " OR ([Locs_GdsLoc] = @Original_Locs_GdsLoc)) AND ((@IsNull_Locs_GdsLocAuth = 1 A"& _ "ND [Locs_GdsLocAuth] IS NULL) OR ([Locs_GdsLocAuth] = @Original_Locs_GdsLocAuth)"& _ ") AND ((@IsNull_Locs_LoadPlcCd = 1 AND [Locs_LoadPlcCd] IS NULL) OR ([Locs_LoadP"& _ "lcCd] = @Original_Locs_LoadPlcCd)) AND ((@IsNull_Locs_LoadPlc = 1 AND [Locs_Load"& _ "Plc] IS NULL) OR ([Locs_LoadPlc] = @Original_Locs_LoadPlc)) AND ((@IsNull_Locs_C"& _ "ustPlc = 1 AND [Locs_CustPlc] IS NULL) OR ([Locs_CustPlc] = @Original_Locs_CustP"& _ "lc)) AND ((@IsNull_Locs_ArrLocCd = 1 AND [Locs_ArrLocCd] IS NULL) OR ([Locs_ArrL"& _ "ocCd] = @Original_Locs_ArrLocCd)) AND ((@IsNull_Locs_ArrLoc = 1 AND [Locs_ArrLoc"& _ "] IS NULL) OR ([Locs_ArrLoc] = @Original_Locs_ArrLoc)) AND ((@IsNull_Locs_ArrLoc"& _ "Auth = 1 AND [Locs_ArrLocAuth] IS NULL) OR ([Locs_ArrLocAuth] = @Original_Locs_A"& _ "rrLocAuth)) AND ((@IsNull_Locs_WarTy = 1 AND [Locs_WarTy] IS NULL) OR ([Locs_War"& _ "Ty] = @Original_Locs_WarTy)) AND ((@IsNull_Locs_WarCtry = 1 AND [Locs_WarCtry] I"& _ "S NULL) OR ([Locs_WarCtry] = @Original_Locs_WarCtry)) AND ((@IsNull_Locs_War = 1"& _ " AND [Locs_War] IS NULL) OR ([Locs_War] = @Original_Locs_War)) AND ((@IsNull_Tra"& _ "nsp_InMo = 1 AND [Transp_InMo] IS NULL) OR ([Transp_InMo] = @Original_Transp_InM"& _ "o)) AND ((@IsNull_Transp_BordMo = 1 AND [Transp_BordMo] IS NULL) OR ([Transp_Bor"& _ "dMo] = @Original_Transp_BordMo)) AND ((@IsNull_Transp_DepTy = 1 AND [Transp_DepT"& _ "y] IS NULL) OR ([Transp_DepTy] = @Original_Transp_DepTy)) AND ((@IsNull_Transp_D"& _ "epIdnt = 1 AND [Transp_DepIdnt] IS NULL) OR ([Transp_DepIdnt] = @Original_Transp"& _ "_DepIdnt)) AND ((@IsNull_Transp_DepNat = 1 AND [Transp_DepNat] IS NULL) OR ([Tra"& _ "nsp_DepNat] = @Original_Transp_DepNat)) AND ((@IsNull_Transp_CrossTy = 1 AND [Tr"& _ "ansp_CrossTy] IS NULL) OR ([Transp_CrossTy] = @Original_Transp_CrossTy)) AND ((@"& _ "IsNull_Transp_CrossIdnt = 1 AND [Transp_CrossIdnt] IS NULL) OR ([Transp_CrossIdn"& _ "t] = @Original_Transp_CrossIdnt)) AND ((@IsNull_Transp_CrossIdntNat = 1 AND [Tra"& _ "nsp_CrossIdntNat] IS NULL) OR ([Transp_CrossIdntNat] = @Original_Transp_CrossIdn"& _ "tNat)) AND ((@IsNull_Transp_ContInd = 1 AND [Transp_ContInd] IS NULL) OR ([Trans"& _ "p_ContInd] = @Original_Transp_ContInd)) AND ((@IsNull_ValData_TermDelCd = 1 AND "& _ "[ValData_TermDelCd] IS NULL) OR ([ValData_TermDelCd] = @Original_ValData_TermDel"& _ "Cd)) AND ((@IsNull_ValData_TermDelPlc = 1 AND [ValData_TermDelPlc] IS NULL) OR ("& _ "[ValData_TermDelPlc] = @Original_ValData_TermDelPlc)) AND ((@IsNull_ValData_Term"& _ "DelSit = 1 AND [ValData_TermDelSit] IS NULL) OR ([ValData_TermDelSit] = @Origina"& _ "l_ValData_TermDelSit)) AND ((@IsNull_ValData_InvCurr = 1 AND [ValData_InvCurr] I"& _ "S NULL) OR ([ValData_InvCurr] = @Original_ValData_InvCurr)) AND ((@IsNull_ValDat"& _ "a_ExRa = 1 AND [ValData_ExRa] IS NULL) OR ([ValData_ExRa] = @Original_ValData_Ex"& _ "Ra)) AND ((@IsNull_ValData_InvVal = 1 AND [ValData_InvVal] IS NULL) OR ([ValData"& _ "_InvVal] = @Original_ValData_InvVal)) AND ((@IsNull_ValData_TransacCd = 1 AND [V"& _ "alData_TransacCd] IS NULL) OR ([ValData_TransacCd] = @Original_ValData_TransacCd"& _ ")) AND ((@IsNull_ConorTra_Na = 1 AND [ConorTra_Na] IS NULL) OR ([ConorTra_Na] = "& _ "@Original_ConorTra_Na)) AND ((@IsNull_ConorTra_Strt = 1 AND [ConorTra_Strt] IS N"& _ "ULL) OR ([ConorTra_Strt] = @Original_ConorTra_Strt)) AND ((@IsNull_ConorTra_Pst "& _ "= 1 AND [ConorTra_Pst] IS NULL) OR ([ConorTra_Pst] = @Original_ConorTra_Pst)) AN"& _ "D ((@IsNull_ConorTra_Cty = 1 AND [ConorTra_Cty] IS NULL) OR ([ConorTra_Cty] = @O"& _ "riginal_ConorTra_Cty)) AND ((@IsNull_ConorTra_Ctry = 1 AND [ConorTra_Ctry] IS NU"& _ "LL) OR ([ConorTra_Ctry] = @Original_ConorTra_Ctry)) AND ((@IsNull_ConorTra_TIN ="& _ " 1 AND [ConorTra_TIN] IS NULL) OR ([ConorTra_TIN] = @Original_ConorTra_TIN)) AND"& _ " ((@IsNull_ConorTra_UIDCtry = 1 AND [ConorTra_UIDCtry] IS NULL) OR ([ConorTra_UI"& _ "DCtry] = @Original_ConorTra_UIDCtry)) AND ((@IsNull_ConorTra_UID = 1 AND [ConorT"& _ "ra_UID] IS NULL) OR ([ConorTra_UID] = @Original_ConorTra_UID)) AND ((@IsNull_Con"& _ "eeTra_Na = 1 AND [ConeeTra_Na] IS NULL) OR ([ConeeTra_Na] = @Original_ConeeTra_N"& _ "a)) AND ((@IsNull_ConeeTra_Strt = 1 AND [ConeeTra_Strt] IS NULL) OR ([ConeeTra_S"& _ "trt] = @Original_ConeeTra_Strt)) AND ((@IsNull_ConeeTra_Pst = 1 AND [ConeeTra_Ps"& _ "t] IS NULL) OR ([ConeeTra_Pst] = @Original_ConeeTra_Pst)) AND ((@IsNull_ConeeTra"& _ "_Cty = 1 AND [ConeeTra_Cty] IS NULL) OR ([ConeeTra_Cty] = @Original_ConeeTra_Cty"& _ ")) AND ((@IsNull_ConeeTra_Ctry = 1 AND [ConeeTra_Ctry] IS NULL) OR ([ConeeTra_Ct"& _ "ry] = @Original_ConeeTra_Ctry)) AND ((@IsNull_ConeeTra_TIN = 1 AND [ConeeTra_TIN"& _ "] IS NULL) OR ([ConeeTra_TIN] = @Original_ConeeTra_TIN)) AND ((@IsNull_ConeeTra_"& _ "UIDCtry = 1 AND [ConeeTra_UIDCtry] IS NULL) OR ([ConeeTra_UIDCtry] = @Original_C"& _ "oneeTra_UIDCtry)) AND ((@IsNull_ConeeTra_UID = 1 AND [ConeeTra_UID] IS NULL) OR "& _ "([ConeeTra_UID] = @Original_ConeeTra_UID)) AND ((@IsNull_ExpTra_Na = 1 AND [ExpT"& _ "ra_Na] IS NULL) OR ([ExpTra_Na] = @Original_ExpTra_Na)) AND ((@IsNull_ExpTra_Str"& _ "t = 1 AND [ExpTra_Strt] IS NULL) OR ([ExpTra_Strt] = @Original_ExpTra_Strt)) AND"& _ " ((@IsNull_ExpTra_Pst = 1 AND [ExpTra_Pst] IS NULL) OR ([ExpTra_Pst] = @Original"& _ "_ExpTra_Pst)) AND ((@IsNull_ExpTra_Cty = 1 AND [ExpTra_Cty] IS NULL) OR ([ExpTra"& _ "_Cty] = @Original_ExpTra_Cty)) AND ((@IsNull_ExpTra_Ctry = 1 AND [ExpTra_Ctry] I"& _ "S NULL) OR ([ExpTra_Ctry] = @Original_ExpTra_Ctry)) AND ((@IsNull_ExpTra_TIN = 1"& _ " AND [ExpTra_TIN] IS NULL) OR ([ExpTra_TIN] = @Original_ExpTra_TIN)) AND ((@IsNu"& _ "ll_ExpTra_UIDCtry = 1 AND [ExpTra_UIDCtry] IS NULL) OR ([ExpTra_UIDCtry] = @Orig"& _ "inal_ExpTra_UIDCtry)) AND ((@IsNull_ExpTra_UID = 1 AND [ExpTra_UID] IS NULL) OR "& _ "([ExpTra_UID] = @Original_ExpTra_UID)) AND ((@IsNull_Declarant_Na = 1 AND [Decla"& _ "rant_Na] IS NULL) OR ([Declarant_Na] = @Original_Declarant_Na)) AND ((@IsNull_De"& _ "clarant_Strt = 1 AND [Declarant_Strt] IS NULL) OR ([Declarant_Strt] = @Original_"& _ "Declarant_Strt)) AND ((@IsNull_Declarant_Pst = 1 AND [Declarant_Pst] IS NULL) OR"& _ " ([Declarant_Pst] = @Original_Declarant_Pst)) AND ((@IsNull_Declarant_Cty = 1 AN"& _ "D [Declarant_Cty] IS NULL) OR ([Declarant_Cty] = @Original_Declarant_Cty)) AND ("& _ "(@IsNull_Declarant_Ctry = 1 AND [Declarant_Ctry] IS NULL) OR ([Declarant_Ctry] ="& _ " @Original_Declarant_Ctry)) AND ((@IsNull_Declarant_TIN = 1 AND [Declarant_TIN] "& _ "IS NULL) OR ([Declarant_TIN] = @Original_Declarant_TIN)) AND ((@IsNull_Declarant"& _ "_UIDCtry = 1 AND [Declarant_UIDCtry] IS NULL) OR ([Declarant_UIDCtry] = @Origina"& _ "l_Declarant_UIDCtry)) AND ((@IsNull_Declarant_UID = 1 AND [Declarant_UID] IS NUL"& _ "L) OR ([Declarant_UID] = @Original_Declarant_UID)) AND ((@IsNull_Declarant_DecRe"& _ "p = 1 AND [Declarant_DecRep] IS NULL) OR ([Declarant_DecRep] = @Original_Declara"& _ "nt_DecRep)) AND ((@IsNull_Represent_RIN = 1 AND [Represent_RIN] IS NULL) OR ([Re"& _ "present_RIN] = @Original_Represent_RIN)) AND ((@IsNull_Represent_Na = 1 AND [Rep"& _ "resent_Na] IS NULL) OR ([Represent_Na] = @Original_Represent_Na)) AND ((@IsNull_"& _ "EntryCO_Ref = 1 AND [EntryCO_Ref] IS NULL) OR ([EntryCO_Ref] = @Original_EntryCO"& _ "_Ref)) AND ((@IsNull_ExitCO_Ref = 1 AND [ExitCO_Ref] IS NULL) OR ([ExitCO_Ref] ="& _ " @Original_ExitCO_Ref)) AND ((@IsNull_SurvCO_Ref = 1 AND [SurvCO_Ref] IS NULL) O"& _ "R ([SurvCO_Ref] = @Original_SurvCO_Ref)) AND ((@IsNull_DestCO_Ref = 1 AND [DestC"& _ "O_Ref] IS NULL) OR ([DestCO_Ref] = @Original_DestCO_Ref)) AND ((@IsNull_PresCO_R"& _ "ef = 1 AND [PresCO_Ref] IS NULL) OR ([PresCO_Ref] = @Original_PresCO_Ref)) AND ("& _ "(@IsNull_DepCO_Ref = 1 AND [DepCO_Ref] IS NULL) OR ([DepCO_Ref] = @Original_DepC"& _ "O_Ref)) AND ((@IsNull_CtrlRslt_ResCd = 1 AND [CtrlRslt_ResCd] IS NULL) OR ([Ctrl"& _ "Rslt_ResCd] = @Original_CtrlRslt_ResCd)) AND ((@IsNull_CtrlRslt_DLimit = 1 AND ["& _ "CtrlRslt_DLimit] IS NULL) OR ([CtrlRslt_DLimit] = @Original_CtrlRslt_DLimit)) AN"& _ "D ([telnam_aktuellsteNachricht] = @Original_telnam_aktuellsteNachricht));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ "T telanm_id, telanm_ART, telanm_BezugsNr, telanm_Status, telanm_Status_KEWILL_Eq"& _ "uivalent, telanm_AvisoId, telanm_SendungsId, telanm_Steuerbescheid_dsId, telanm_"& _ "Mitteilung_dsId, telanm_VBD_dsId, telanm_LNR, telanm_CRN, telanm_Erstellung, tel"& _ "anm_Erstellung_SB, telanm_LetzteBearbeitung, telanm_LetzteBearbeitung_SB, telanm"& _ "_firma, telanm_niederlassung, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator,"& _ " TransferStatus, MsgType, dec_ProzessArt, dec_Anmelde_ID, dec_Template_ID, dec_L"& _ "ager_ID, dec_Lag_IND, dec_CreateDate, dec_CreatePersonalID, dec_PreDec_IND, dec_"& _ "TotNet, dec_TotNetSplit_IND, dec_FillPackList_IND, dec_Memo, Refs_LRN, Refs_CRN,"& _ " Refs_CSRN, Refs_ERN, Refs_FRN, Refs_Stat, Hea_DecTy, Hea_TotItem, Hea_TotPack, "& _ "Hea_TotGross, Hea_DepLNG, Hea_DestLNG, Hea_PayTy, Hea_DefPayRef, Hea_PerPayRef, "& _ "Hea_PayMet, Hea_AExpRef, Hea_Fin, Hea_Simp, Hea_IssD, Hea_AuthID, Hea_TransDat, "& _ "Hea_WoffD, Hea_DecDT, Hea_DecPlc, Hea_AccDT, Hea_SecInd, Hea_ComRef, Hea_ProArrD"& _ "T, Hea_PlaDepDT, Locs_TradCtry, Locs_Disp, Locs_Dest, Locs_GdsLocCd, Locs_GdsLoc"& _ ", Locs_GdsLocAuth, Locs_LoadPlcCd, Locs_LoadPlc, Locs_CustPlc, Locs_ArrLocCd, Lo"& _ "cs_ArrLoc, Locs_ArrLocAuth, Locs_WarTy, Locs_WarCtry, Locs_War, Transp_InMo, Tra"& _ "nsp_BordMo, Transp_DepTy, Transp_DepIdnt, Transp_DepNat, Transp_CrossTy, Transp_"& _ "CrossIdnt, Transp_CrossIdntNat, Transp_ContInd, ValData_TermDelCd, ValData_TermD"& _ "elPlc, ValData_TermDelSit, ValData_InvCurr, ValData_ExRa, ValData_InvVal, ValDat"& _ "a_TransacCd, ConorTra_Na, ConorTra_Strt, ConorTra_Pst, ConorTra_Cty, ConorTra_Ct"& _ "ry, ConorTra_TIN, ConorTra_UIDCtry, ConorTra_UID, ConeeTra_Na, ConeeTra_Strt, Co"& _ "neeTra_Pst, ConeeTra_Cty, ConeeTra_Ctry, ConeeTra_TIN, ConeeTra_UIDCtry, ConeeTr"& _ "a_UID, ExpTra_Na, ExpTra_Strt, ExpTra_Pst, ExpTra_Cty, ExpTra_Ctry, ExpTra_TIN, "& _ "ExpTra_UIDCtry, ExpTra_UID, Declarant_Na, Declarant_Strt, Declarant_Pst, Declara"& _ "nt_Cty, Declarant_Ctry, Declarant_TIN, Declarant_UIDCtry, Declarant_UID, Declara"& _ "nt_DecRep, Represent_RIN, Represent_Na, EntryCO_Ref, ExitCO_Ref, SurvCO_Ref, Des"& _ "tCO_Ref, PresCO_Ref, DepCO_Ref, CtrlRslt_ResCd, CtrlRslt_DLimit, telnam_aktuells"& _ "teNachricht FROM tblTelotec_Anmeldung WHERE (telanm_id = @telanm_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_ART", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_ART", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_SendungsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Mitteilung_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Mitteilung_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_VBD_dsId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_LNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_CRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Erstellung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Erstellung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LetzteBearbeitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransferStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransferStatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MsgType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MsgType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_ProzessArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_ProzessArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_Anmelde_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Anmelde_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_Template_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Template_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_Lager_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lager_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_Lag_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lag_IND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_CreateDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_CreateDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_CreatePersonalID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_CreatePersonalID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_PreDec_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_PreDec_IND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_TotNet", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "dec_TotNet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_TotNetSplit_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_TotNetSplit_IND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_FillPackList_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_FillPackList_IND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dec_Memo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Memo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_LRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_CSRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CSRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_ERN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_ERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_FRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_FRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Refs_Stat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_Stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DecTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_TotItem", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotItem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_TotPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotPack", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_TotGross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Hea_TotGross", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DepLNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DepLNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DestLNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DestLNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_PayTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DefPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DefPayRef", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_PerPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PerPayRef", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_PayMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayMet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_AExpRef", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AExpRef", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_Fin", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_Fin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_Simp", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_Simp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_IssD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_IssD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_AuthID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AuthID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_TransDat", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TransDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_WoffD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_WoffD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DecDT", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecDT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_DecPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecPlc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_AccDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AccDT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_SecInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_SecInd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_ComRef", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ComRef", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_ProArrDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ProArrDT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hea_PlaDepDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PlaDepDT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_TradCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_TradCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_Disp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Disp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_Dest", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Dest", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_GdsLocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_GdsLoc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLoc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_GdsLocAuth", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocAuth", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_LoadPlcCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlcCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_LoadPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_CustPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_CustPlc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_ArrLocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_ArrLoc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLoc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_ArrLocAuth", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocAuth", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_WarTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_WarCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Locs_War", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_War", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_InMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_InMo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_BordMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_BordMo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_DepTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_DepIdnt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepIdnt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_DepNat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepNat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_CrossTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_CrossIdnt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdnt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_CrossIdntNat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdntNat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Transp_ContInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_ContInd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_TermDelCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_TermDelPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelPlc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_TermDelSit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelSit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_InvCurr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_InvCurr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_ExRa", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 7, "ValData_ExRa", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_InvVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ValData_InvVal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ValData_TransacCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TransacCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Na", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Strt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Pst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Cty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Ctry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UIDCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConorTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Na", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Strt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Pst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Cty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Ctry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UIDCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ConeeTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Na", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Strt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Pst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Cty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Ctry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UIDCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExpTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Na", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Strt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Pst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Cty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Ctry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UIDCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Declarant_DecRep", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_DecRep", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Represent_RIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_RIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Represent_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_Na", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EntryCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EntryCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ExitCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExitCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SurvCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DestCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PresCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PresCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CtrlRslt_ResCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_ResCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CtrlRslt_DLimit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_DLimit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telnam_aktuellsteNachricht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telnam_aktuellsteNachricht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_ART", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_ART", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_BezugsNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_BezugsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Status_KEWILL_Equivalent", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Status_KEWILL_Equivalent", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_SendungsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_SendungsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_SendungsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Steuerbescheid_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Steuerbescheid_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_Mitteilung_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Mitteilung_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Mitteilung_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Mitteilung_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_VBD_dsId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_VBD_dsId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_VBD_dsId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_LNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_LNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_CRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_CRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_CRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Erstellung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Erstellung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Erstellung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_Erstellung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_Erstellung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_LetzteBearbeitung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LetzteBearbeitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_LetzteBearbeitung_SB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_LetzteBearbeitung_SB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_telanm_niederlassung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_niederlassung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telanm_niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransferStatus", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransferStatus", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransferStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransferStatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MsgType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MsgType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MsgType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MsgType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_ProzessArt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_ProzessArt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_Anmelde_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Anmelde_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_Anmelde_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Anmelde_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_Template_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Template_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_Template_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Template_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_Lager_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lager_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_Lager_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lager_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_Lag_IND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lag_IND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_Lag_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Lag_IND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_CreateDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_CreateDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_CreatePersonalID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_CreatePersonalID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_CreatePersonalID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_CreatePersonalID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_PreDec_IND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_PreDec_IND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_PreDec_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_PreDec_IND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_TotNet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_TotNet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_TotNet", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "dec_TotNet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_TotNetSplit_IND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_TotNetSplit_IND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_TotNetSplit_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_TotNetSplit_IND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_FillPackList_IND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_FillPackList_IND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_FillPackList_IND", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_FillPackList_IND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dec_Memo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Memo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dec_Memo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dec_Memo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_LRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_LRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Refs_CRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_CRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Refs_CSRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CSRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_CSRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_CSRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Refs_ERN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_ERN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_ERN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_ERN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Refs_FRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_FRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_FRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_FRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Refs_Stat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_Stat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Refs_Stat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Refs_Stat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DecTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_TotItem", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotItem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_TotPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotPack", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_TotPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotPack", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_TotGross", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TotGross", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_TotGross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Hea_TotGross", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_DepLNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DepLNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DepLNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DepLNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_DestLNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DestLNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DestLNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DestLNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_PayTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayTy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_PayTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_DefPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DefPayRef", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DefPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DefPayRef", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_PerPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PerPayRef", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_PerPayRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PerPayRef", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_PayMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayMet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_PayMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PayMet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_AExpRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AExpRef", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_AExpRef", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AExpRef", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_Fin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_Fin", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_Fin", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_Fin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_Simp", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_Simp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_IssD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_IssD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_IssD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_IssD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_AuthID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AuthID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_AuthID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AuthID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_TransDat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TransDat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_TransDat", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_TransDat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_WoffD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_WoffD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_WoffD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_WoffD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DecDT", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecDT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_DecPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_DecPlc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_AccDT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AccDT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_AccDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_AccDT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_SecInd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_SecInd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_SecInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_SecInd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_ComRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ComRef", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_ComRef", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ComRef", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_ProArrDT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ProArrDT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_ProArrDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_ProArrDT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Hea_PlaDepDT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PlaDepDT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hea_PlaDepDT", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hea_PlaDepDT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_TradCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_TradCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_TradCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_TradCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_Disp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Disp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_Disp", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Disp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_Dest", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Dest", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_Dest", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_Dest", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_GdsLocCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_GdsLocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_GdsLoc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLoc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_GdsLoc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLoc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_GdsLocAuth", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocAuth", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_GdsLocAuth", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_GdsLocAuth", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_LoadPlcCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlcCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_LoadPlcCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlcCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_LoadPlc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_LoadPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_LoadPlc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_CustPlc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_CustPlc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_CustPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_CustPlc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_ArrLocCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_ArrLocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_ArrLoc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLoc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_ArrLoc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLoc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_ArrLocAuth", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocAuth", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_ArrLocAuth", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_ArrLocAuth", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_WarTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarTy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_WarTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_WarCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_WarCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_WarCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Locs_War", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_War", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Locs_War", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Locs_War", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_InMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_InMo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_InMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_InMo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_BordMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_BordMo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_BordMo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_BordMo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_DepTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepTy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_DepTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_DepIdnt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepIdnt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_DepIdnt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepIdnt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_DepNat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepNat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_DepNat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_DepNat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_CrossTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossTy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_CrossTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_CrossIdnt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdnt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_CrossIdnt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdnt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_CrossIdntNat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdntNat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_CrossIdntNat", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_CrossIdntNat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Transp_ContInd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_ContInd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Transp_ContInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Transp_ContInd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_TermDelCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_TermDelCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_TermDelPlc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelPlc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_TermDelPlc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelPlc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_TermDelSit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelSit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_TermDelSit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TermDelSit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_InvCurr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_InvCurr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_InvCurr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_InvCurr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_ExRa", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_ExRa", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_ExRa", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 20, 7, "ValData_ExRa", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_InvVal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_InvVal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_InvVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ValData_InvVal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ValData_TransacCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TransacCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ValData_TransacCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ValData_TransacCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_Na", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Na", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Na", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_Strt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Strt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Strt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_Pst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Pst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Pst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_Cty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Cty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Cty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_Ctry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Ctry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_Ctry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_UIDCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UIDCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UIDCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConorTra_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConorTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConorTra_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_Na", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Na", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Na", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_Strt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Strt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Strt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_Pst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Pst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Pst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_Cty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Cty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Cty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_Ctry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Ctry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_Ctry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_UIDCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UIDCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UIDCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ConeeTra_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ConeeTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ConeeTra_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_Na", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Na", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Na", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_Strt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Strt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Strt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_Pst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Pst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Pst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_Cty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Cty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Cty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_Ctry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Ctry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_Ctry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_UIDCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UIDCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UIDCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExpTra_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExpTra_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExpTra_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_Na", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Na", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Na", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_Strt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Strt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_Strt", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Strt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_Pst", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Pst", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_Pst", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Pst", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_Cty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Cty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_Cty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Cty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_Ctry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Ctry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_Ctry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_Ctry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_TIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_UIDCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UIDCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_UIDCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UIDCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Declarant_DecRep", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_DecRep", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Declarant_DecRep", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Declarant_DecRep", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Represent_RIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_RIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Represent_RIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_RIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Represent_Na", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_Na", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Represent_Na", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Represent_Na", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EntryCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EntryCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EntryCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EntryCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ExitCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExitCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ExitCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ExitCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SurvCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SurvCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DestCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DestCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DestCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PresCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PresCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PresCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PresCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DepCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CtrlRslt_ResCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_ResCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CtrlRslt_ResCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_ResCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CtrlRslt_DLimit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_DLimit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CtrlRslt_DLimit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CtrlRslt_DLimit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telnam_aktuellsteNachricht", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telnam_aktuellsteNachricht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telanm_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "telanm_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 telanm_id, telanm_ART, telanm_BezugsNr, telanm_Status, telanm_Status_KEWIL"& _ "L_Equivalent, telanm_AvisoId, telanm_SendungsId, telanm_Steuerbescheid_dsId, tel"& _ "anm_Mitteilung_dsId, telanm_VBD_dsId, telanm_LNR, telanm_CRN, telanm_Erstellung,"& _ " telanm_Erstellung_SB, telanm_LetzteBearbeitung, telanm_LetzteBearbeitung_SB, te"& _ "lanm_firma, telanm_niederlassung, Mandant_ID, Bereich_ID, Referenz_ID, ComIndica"& _ "tor, TransferStatus, MsgType, dec_ProzessArt, dec_Anmelde_ID, dec_Template_ID, d"& _ "ec_Lager_ID, dec_Lag_IND, dec_CreateDate, dec_CreatePersonalID, dec_PreDec_IND, "& _ "dec_TotNet, dec_TotNetSplit_IND, dec_FillPackList_IND, dec_Memo, Refs_LRN, Refs_"& _ "CRN, Refs_CSRN, Refs_ERN, Refs_FRN, Refs_Stat, Hea_DecTy, Hea_TotItem, Hea_TotPa"& _ "ck, Hea_TotGross, Hea_DepLNG, Hea_DestLNG, Hea_PayTy, Hea_DefPayRef, Hea_PerPayR"& _ "ef, Hea_PayMet, Hea_AExpRef, Hea_Fin, Hea_Simp, Hea_IssD, Hea_AuthID, Hea_TransD"& _ "at, Hea_WoffD, Hea_DecDT, Hea_DecPlc, Hea_AccDT, Hea_SecInd, Hea_ComRef, Hea_Pro"& _ "ArrDT, Hea_PlaDepDT, Locs_TradCtry, Locs_Disp, Locs_Dest, Locs_GdsLocCd, Locs_Gd"& _ "sLoc, Locs_GdsLocAuth, Locs_LoadPlcCd, Locs_LoadPlc, Locs_CustPlc, Locs_ArrLocCd"& _ ", Locs_ArrLoc, Locs_ArrLocAuth, Locs_WarTy, Locs_WarCtry, Locs_War, Transp_InMo,"& _ " Transp_BordMo, Transp_DepTy, Transp_DepIdnt, Transp_DepNat, Transp_CrossTy, Tra"& _ "nsp_CrossIdnt, Transp_CrossIdntNat, Transp_ContInd, ValData_TermDelCd, ValData_T"& _ "ermDelPlc, ValData_TermDelSit, ValData_InvCurr, ValData_ExRa, ValData_InvVal, Va"& _ "lData_TransacCd, ConorTra_Na, ConorTra_Strt, ConorTra_Pst, ConorTra_Cty, ConorTr"& _ "a_Ctry, ConorTra_TIN, ConorTra_UIDCtry, ConorTra_UID, ConeeTra_Na, ConeeTra_Strt"& _ ", ConeeTra_Pst, ConeeTra_Cty, ConeeTra_Ctry, ConeeTra_TIN, ConeeTra_UIDCtry, Con"& _ "eeTra_UID, ExpTra_Na, ExpTra_Strt, ExpTra_Pst, ExpTra_Cty, ExpTra_Ctry, ExpTra_T"& _ "IN, ExpTra_UIDCtry, ExpTra_UID, Declarant_Na, Declarant_Strt, Declarant_Pst, Dec"& _ "larant_Cty, Declarant_Ctry, Declarant_TIN, Declarant_UIDCtry, Declarant_UID, Dec"& _ "larant_DecRep, Represent_RIN, Represent_Na, EntryCO_Ref, ExitCO_Ref, SurvCO_Ref,"& _ " DestCO_Ref, PresCO_Ref, DepCO_Ref, CtrlRslt_ResCd, CtrlRslt_DLimit, telnam_aktu"& _ "ellsteNachricht FROM dbo.tblTelotec_Anmeldung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTelotec_AnmeldungDataTable) 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 VERAGDataSet.tblTelotec_AnmeldungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTelotec_AnmeldungDataTable = New VERAGDataSet.tblTelotec_AnmeldungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTelotec_AnmeldungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTelotec_Anmeldung") 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_telanm_id As Integer, _ ByVal Original_telanm_ART As String, _ ByVal Original_telanm_BezugsNr As String, _ ByVal Original_telanm_Status As Integer, _ ByVal Original_telanm_Status_KEWILL_Equivalent As Integer, _ ByVal Original_telanm_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_Mitteilung_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_LNR As String, _ ByVal Original_telanm_CRN As String, _ ByVal Original_telanm_Erstellung As Date, _ ByVal Original_telanm_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_LetzteBearbeitung As Date, _ ByVal Original_telanm_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_firma As String, _ ByVal Original_telanm_niederlassung As String, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_TransferStatus As String, _ ByVal Original_MsgType As String, _ ByVal Original_dec_ProzessArt As String, _ ByVal Original_dec_Anmelde_ID As Global.System.Nullable(Of Integer), _ ByVal Original_dec_Template_ID As Global.System.Nullable(Of Integer), _ ByVal Original_dec_Lager_ID As String, _ ByVal Original_dec_Lag_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_CreateDate As Date, _ ByVal Original_dec_CreatePersonalID As String, _ ByVal Original_dec_PreDec_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_TotNet As Global.System.Nullable(Of Decimal), _ ByVal Original_dec_TotNetSplit_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_FillPackList_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_Memo As String, _ ByVal Original_Refs_LRN As String, _ ByVal Original_Refs_CRN As String, _ ByVal Original_Refs_CSRN As String, _ ByVal Original_Refs_ERN As String, _ ByVal Original_Refs_FRN As String, _ ByVal Original_Refs_Stat As String, _ ByVal Original_Hea_DecTy As String, _ ByVal Original_Hea_TotItem As Integer, _ ByVal Original_Hea_TotPack As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_TotGross As Global.System.Nullable(Of Decimal), _ ByVal Original_Hea_DepLNG As String, _ ByVal Original_Hea_DestLNG As String, _ ByVal Original_Hea_PayTy As String, _ ByVal Original_Hea_DefPayRef As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_PerPayRef As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_PayMet As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_AExpRef As Global.System.Nullable(Of Boolean), _ ByVal Original_Hea_Fin As String, _ ByVal Original_Hea_Simp As Boolean, _ ByVal Original_Hea_IssD As Global.System.Nullable(Of Date), _ ByVal Original_Hea_AuthID As String, _ ByVal Original_Hea_TransDat As Global.System.Nullable(Of Boolean), _ ByVal Original_Hea_WoffD As Global.System.Nullable(Of Date), _ ByVal Original_Hea_DecDT As Date, _ ByVal Original_Hea_DecPlc As String, _ ByVal Original_Hea_AccDT As Global.System.Nullable(Of Date), _ ByVal Original_Hea_SecInd As Global.System.Nullable(Of Boolean), _ ByVal Original_Hea_ComRef As String, _ ByVal Original_Hea_ProArrDT As Global.System.Nullable(Of Date), _ ByVal Original_Hea_PlaDepDT As Global.System.Nullable(Of Date), _ ByVal Original_Locs_TradCtry As String, _ ByVal Original_Locs_Disp As String, _ ByVal Original_Locs_Dest As String, _ ByVal Original_Locs_GdsLocCd As String, _ ByVal Original_Locs_GdsLoc As String, _ ByVal Original_Locs_GdsLocAuth As String, _ ByVal Original_Locs_LoadPlcCd As String, _ ByVal Original_Locs_LoadPlc As String, _ ByVal Original_Locs_CustPlc As String, _ ByVal Original_Locs_ArrLocCd As String, _ ByVal Original_Locs_ArrLoc As String, _ ByVal Original_Locs_ArrLocAuth As String, _ ByVal Original_Locs_WarTy As String, _ ByVal Original_Locs_WarCtry As String, _ ByVal Original_Locs_War As String, _ ByVal Original_Transp_InMo As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_BordMo As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_DepTy As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_DepIdnt As String, _ ByVal Original_Transp_DepNat As String, _ ByVal Original_Transp_CrossTy As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_CrossIdnt As String, _ ByVal Original_Transp_CrossIdntNat As String, _ ByVal Original_Transp_ContInd As Global.System.Nullable(Of Boolean), _ ByVal Original_ValData_TermDelCd As String, _ ByVal Original_ValData_TermDelPlc As String, _ ByVal Original_ValData_TermDelSit As String, _ ByVal Original_ValData_InvCurr As String, _ ByVal Original_ValData_ExRa As Global.System.Nullable(Of Decimal), _ ByVal Original_ValData_InvVal As Global.System.Nullable(Of Decimal), _ ByVal Original_ValData_TransacCd As Global.System.Nullable(Of Integer), _ ByVal Original_ConorTra_Na As String, _ ByVal Original_ConorTra_Strt As String, _ ByVal Original_ConorTra_Pst As String, _ ByVal Original_ConorTra_Cty As String, _ ByVal Original_ConorTra_Ctry As String, _ ByVal Original_ConorTra_TIN As String, _ ByVal Original_ConorTra_UIDCtry As String, _ ByVal Original_ConorTra_UID As String, _ ByVal Original_ConeeTra_Na As String, _ ByVal Original_ConeeTra_Strt As String, _ ByVal Original_ConeeTra_Pst As String, _ ByVal Original_ConeeTra_Cty As String, _ ByVal Original_ConeeTra_Ctry As String, _ ByVal Original_ConeeTra_TIN As String, _ ByVal Original_ConeeTra_UIDCtry As String, _ ByVal Original_ConeeTra_UID As String, _ ByVal Original_ExpTra_Na As String, _ ByVal Original_ExpTra_Strt As String, _ ByVal Original_ExpTra_Pst As String, _ ByVal Original_ExpTra_Cty As String, _ ByVal Original_ExpTra_Ctry As String, _ ByVal Original_ExpTra_TIN As String, _ ByVal Original_ExpTra_UIDCtry As String, _ ByVal Original_ExpTra_UID As String, _ ByVal Original_Declarant_Na As String, _ ByVal Original_Declarant_Strt As String, _ ByVal Original_Declarant_Pst As String, _ ByVal Original_Declarant_Cty As String, _ ByVal Original_Declarant_Ctry As String, _ ByVal Original_Declarant_TIN As String, _ ByVal Original_Declarant_UIDCtry As String, _ ByVal Original_Declarant_UID As String, _ ByVal Original_Declarant_DecRep As Global.System.Nullable(Of Integer), _ ByVal Original_Represent_RIN As String, _ ByVal Original_Represent_Na As String, _ ByVal Original_EntryCO_Ref As String, _ ByVal Original_ExitCO_Ref As String, _ ByVal Original_SurvCO_Ref As String, _ ByVal Original_DestCO_Ref As String, _ ByVal Original_PresCO_Ref As String, _ ByVal Original_DepCO_Ref As String, _ ByVal Original_CtrlRslt_ResCd As String, _ ByVal Original_CtrlRslt_DLimit As Global.System.Nullable(Of Date), _ ByVal Original_telnam_aktuellsteNachricht As Boolean) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_telanm_id,Integer) If (Original_telanm_ART Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_telanm_ART") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_telanm_ART,String) End If If (Original_telanm_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_telanm_BezugsNr") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_telanm_BezugsNr,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_telanm_Status,Integer) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_telanm_Status_KEWILL_Equivalent,Integer) If (Original_telanm_AvisoId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_telanm_AvisoId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_telanm_SendungsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_telanm_SendungsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_telanm_Steuerbescheid_dsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_telanm_Steuerbescheid_dsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_telanm_Mitteilung_dsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_telanm_Mitteilung_dsId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_telanm_VBD_dsId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_telanm_VBD_dsId.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_telanm_LNR Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_telanm_LNR,String) End If If (Original_telanm_CRN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_telanm_CRN,String) End If Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_telanm_Erstellung,Date) If (Original_telanm_Erstellung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_telanm_Erstellung_SB.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_telanm_LetzteBearbeitung,Date) If (Original_telanm_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_telanm_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_telanm_firma Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_telanm_firma,String) End If If (Original_telanm_niederlassung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_telanm_niederlassung,String) End If If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_ComIndicator,Boolean) If (Original_TransferStatus Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_TransferStatus,String) End If If (Original_MsgType Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_MsgType,String) End If If (Original_dec_ProzessArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dec_ProzessArt") Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_dec_ProzessArt,String) End If If (Original_dec_Anmelde_ID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_dec_Anmelde_ID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_dec_Template_ID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_dec_Template_ID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Original_dec_Lager_ID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_dec_Lager_ID,String) End If If (Original_dec_Lag_IND.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_dec_Lag_IND.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_dec_CreateDate,Date) If (Original_dec_CreatePersonalID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_dec_CreatePersonalID,String) End If If (Original_dec_PreDec_IND.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_dec_PreDec_IND.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Original_dec_TotNet.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_dec_TotNet.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Original_dec_TotNetSplit_IND.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_dec_TotNetSplit_IND.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Original_dec_FillPackList_IND.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_dec_FillPackList_IND.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Original_dec_Memo Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_dec_Memo,String) End If If (Original_Refs_LRN Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Refs_LRN") Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_Refs_LRN,String) End If If (Original_Refs_CRN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_Refs_CRN,String) End If If (Original_Refs_CSRN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_Refs_CSRN,String) End If If (Original_Refs_ERN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_Refs_ERN,String) End If If (Original_Refs_FRN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_Refs_FRN,String) End If If (Original_Refs_Stat Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(69).Value = CType(Original_Refs_Stat,String) End If If (Original_Hea_DecTy Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Hea_DecTy") Else Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_Hea_DecTy,String) End If Me.Adapter.DeleteCommand.Parameters(71).Value = CType(Original_Hea_TotItem,Integer) If (Original_Hea_TotPack.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = CType(Original_Hea_TotPack.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(73).Value = Global.System.DBNull.Value End If If (Original_Hea_TotGross.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = CType(Original_Hea_TotGross.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(75).Value = Global.System.DBNull.Value End If If (Original_Hea_DepLNG Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(77).Value = CType(Original_Hea_DepLNG,String) End If If (Original_Hea_DestLNG Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(79).Value = CType(Original_Hea_DestLNG,String) End If If (Original_Hea_PayTy Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(81).Value = CType(Original_Hea_PayTy,String) End If If (Original_Hea_DefPayRef.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = CType(Original_Hea_DefPayRef.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (Original_Hea_PerPayRef.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = CType(Original_Hea_PerPayRef.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Original_Hea_PayMet.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = CType(Original_Hea_PayMet.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (Original_Hea_AExpRef.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = CType(Original_Hea_AExpRef.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(89).Value = Global.System.DBNull.Value End If If (Original_Hea_Fin Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(91).Value = CType(Original_Hea_Fin,String) End If Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_Hea_Simp,Boolean) If (Original_Hea_IssD.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = CType(Original_Hea_IssD.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = Global.System.DBNull.Value End If If (Original_Hea_AuthID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = CType(Original_Hea_AuthID,String) End If If (Original_Hea_TransDat.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = CType(Original_Hea_TransDat.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = Global.System.DBNull.Value End If If (Original_Hea_WoffD.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = CType(Original_Hea_WoffD.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(101).Value = CType(Original_Hea_DecDT,Date) If (Original_Hea_DecPlc Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Hea_DecPlc") Else Me.Adapter.DeleteCommand.Parameters(102).Value = CType(Original_Hea_DecPlc,String) End If If (Original_Hea_AccDT.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(103).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(104).Value = CType(Original_Hea_AccDT.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(103).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(104).Value = Global.System.DBNull.Value End If If (Original_Hea_SecInd.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(105).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(106).Value = CType(Original_Hea_SecInd.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(105).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(106).Value = Global.System.DBNull.Value End If If (Original_Hea_ComRef Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(107).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(107).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(108).Value = CType(Original_Hea_ComRef,String) End If If (Original_Hea_ProArrDT.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(109).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(110).Value = CType(Original_Hea_ProArrDT.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(109).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(110).Value = Global.System.DBNull.Value End If If (Original_Hea_PlaDepDT.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(111).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(112).Value = CType(Original_Hea_PlaDepDT.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(111).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(112).Value = Global.System.DBNull.Value End If If (Original_Locs_TradCtry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(113).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(113).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(114).Value = CType(Original_Locs_TradCtry,String) End If If (Original_Locs_Disp Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(115).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(115).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(116).Value = CType(Original_Locs_Disp,String) End If If (Original_Locs_Dest Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(117).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(117).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(118).Value = CType(Original_Locs_Dest,String) End If If (Original_Locs_GdsLocCd Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(119).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(119).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(120).Value = CType(Original_Locs_GdsLocCd,String) End If If (Original_Locs_GdsLoc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(121).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(121).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(122).Value = CType(Original_Locs_GdsLoc,String) End If If (Original_Locs_GdsLocAuth Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(123).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(123).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(124).Value = CType(Original_Locs_GdsLocAuth,String) End If If (Original_Locs_LoadPlcCd Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(125).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(125).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(126).Value = CType(Original_Locs_LoadPlcCd,String) End If If (Original_Locs_LoadPlc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(127).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(128).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(127).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(128).Value = CType(Original_Locs_LoadPlc,String) End If If (Original_Locs_CustPlc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(129).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(129).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(130).Value = CType(Original_Locs_CustPlc,String) End If If (Original_Locs_ArrLocCd Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(131).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(131).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(132).Value = CType(Original_Locs_ArrLocCd,String) End If If (Original_Locs_ArrLoc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(133).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(133).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(134).Value = CType(Original_Locs_ArrLoc,String) End If If (Original_Locs_ArrLocAuth Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(135).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(135).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(136).Value = CType(Original_Locs_ArrLocAuth,String) End If If (Original_Locs_WarTy Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(137).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(138).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(137).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(138).Value = CType(Original_Locs_WarTy,String) End If If (Original_Locs_WarCtry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(139).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(140).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(139).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(140).Value = CType(Original_Locs_WarCtry,String) End If If (Original_Locs_War Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(141).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(141).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(142).Value = CType(Original_Locs_War,String) End If If (Original_Transp_InMo.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(143).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(144).Value = CType(Original_Transp_InMo.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(143).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(144).Value = Global.System.DBNull.Value End If If (Original_Transp_BordMo.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(146).Value = CType(Original_Transp_BordMo.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(146).Value = Global.System.DBNull.Value End If If (Original_Transp_DepTy.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(148).Value = CType(Original_Transp_DepTy.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(148).Value = Global.System.DBNull.Value End If If (Original_Transp_DepIdnt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(150).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(150).Value = CType(Original_Transp_DepIdnt,String) End If If (Original_Transp_DepNat Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(152).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(152).Value = CType(Original_Transp_DepNat,String) End If If (Original_Transp_CrossTy.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(154).Value = CType(Original_Transp_CrossTy.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(154).Value = Global.System.DBNull.Value End If If (Original_Transp_CrossIdnt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(156).Value = CType(Original_Transp_CrossIdnt,String) End If If (Original_Transp_CrossIdntNat Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(158).Value = CType(Original_Transp_CrossIdntNat,String) End If If (Original_Transp_ContInd.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(159).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(160).Value = CType(Original_Transp_ContInd.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(159).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(160).Value = Global.System.DBNull.Value End If If (Original_ValData_TermDelCd Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(161).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(162).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(161).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(162).Value = CType(Original_ValData_TermDelCd,String) End If If (Original_ValData_TermDelPlc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(164).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(164).Value = CType(Original_ValData_TermDelPlc,String) End If If (Original_ValData_TermDelSit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(166).Value = CType(Original_ValData_TermDelSit,String) End If If (Original_ValData_InvCurr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(168).Value = CType(Original_ValData_InvCurr,String) End If If (Original_ValData_ExRa.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(169).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(170).Value = CType(Original_ValData_ExRa.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(169).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(170).Value = Global.System.DBNull.Value End If If (Original_ValData_InvVal.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(171).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(172).Value = CType(Original_ValData_InvVal.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(171).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(172).Value = Global.System.DBNull.Value End If If (Original_ValData_TransacCd.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(174).Value = CType(Original_ValData_TransacCd.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(174).Value = Global.System.DBNull.Value End If If (Original_ConorTra_Na Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(176).Value = CType(Original_ConorTra_Na,String) End If If (Original_ConorTra_Strt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(177).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(178).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(177).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(178).Value = CType(Original_ConorTra_Strt,String) End If If (Original_ConorTra_Pst Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(179).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(180).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(179).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(180).Value = CType(Original_ConorTra_Pst,String) End If If (Original_ConorTra_Cty Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(181).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(182).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(181).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(182).Value = CType(Original_ConorTra_Cty,String) End If If (Original_ConorTra_Ctry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(183).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(184).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(183).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(184).Value = CType(Original_ConorTra_Ctry,String) End If If (Original_ConorTra_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(185).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(186).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(185).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(186).Value = CType(Original_ConorTra_TIN,String) End If If (Original_ConorTra_UIDCtry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(188).Value = CType(Original_ConorTra_UIDCtry,String) End If If (Original_ConorTra_UID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(190).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(190).Value = CType(Original_ConorTra_UID,String) End If If (Original_ConeeTra_Na Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(192).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(192).Value = CType(Original_ConeeTra_Na,String) End If If (Original_ConeeTra_Strt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(194).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(194).Value = CType(Original_ConeeTra_Strt,String) End If If (Original_ConeeTra_Pst Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(196).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(196).Value = CType(Original_ConeeTra_Pst,String) End If If (Original_ConeeTra_Cty Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(198).Value = CType(Original_ConeeTra_Cty,String) End If If (Original_ConeeTra_Ctry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(199).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(200).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(199).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(200).Value = CType(Original_ConeeTra_Ctry,String) End If If (Original_ConeeTra_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(201).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(202).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(201).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(202).Value = CType(Original_ConeeTra_TIN,String) End If If (Original_ConeeTra_UIDCtry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(203).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(204).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(203).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(204).Value = CType(Original_ConeeTra_UIDCtry,String) End If If (Original_ConeeTra_UID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(205).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(206).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(205).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(206).Value = CType(Original_ConeeTra_UID,String) End If If (Original_ExpTra_Na Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(207).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(208).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(207).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(208).Value = CType(Original_ExpTra_Na,String) End If If (Original_ExpTra_Strt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(209).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(210).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(209).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(210).Value = CType(Original_ExpTra_Strt,String) End If If (Original_ExpTra_Pst Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(211).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(212).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(211).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(212).Value = CType(Original_ExpTra_Pst,String) End If If (Original_ExpTra_Cty Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(213).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(214).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(213).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(214).Value = CType(Original_ExpTra_Cty,String) End If If (Original_ExpTra_Ctry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(215).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(216).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(215).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(216).Value = CType(Original_ExpTra_Ctry,String) End If If (Original_ExpTra_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(217).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(218).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(217).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(218).Value = CType(Original_ExpTra_TIN,String) End If If (Original_ExpTra_UIDCtry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(219).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(220).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(219).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(220).Value = CType(Original_ExpTra_UIDCtry,String) End If If (Original_ExpTra_UID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(221).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(222).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(221).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(222).Value = CType(Original_ExpTra_UID,String) End If If (Original_Declarant_Na Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(223).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(224).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(223).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(224).Value = CType(Original_Declarant_Na,String) End If If (Original_Declarant_Strt Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(225).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(226).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(225).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(226).Value = CType(Original_Declarant_Strt,String) End If If (Original_Declarant_Pst Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(227).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(228).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(227).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(228).Value = CType(Original_Declarant_Pst,String) End If If (Original_Declarant_Cty Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(229).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(230).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(229).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(230).Value = CType(Original_Declarant_Cty,String) End If If (Original_Declarant_Ctry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(231).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(232).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(231).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(232).Value = CType(Original_Declarant_Ctry,String) End If If (Original_Declarant_TIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(234).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(234).Value = CType(Original_Declarant_TIN,String) End If If (Original_Declarant_UIDCtry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(236).Value = CType(Original_Declarant_UIDCtry,String) End If If (Original_Declarant_UID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(238).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(238).Value = CType(Original_Declarant_UID,String) End If If (Original_Declarant_DecRep.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(240).Value = CType(Original_Declarant_DecRep.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(240).Value = Global.System.DBNull.Value End If If (Original_Represent_RIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(241).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(242).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(241).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(242).Value = CType(Original_Represent_RIN,String) End If If (Original_Represent_Na Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(244).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(244).Value = CType(Original_Represent_Na,String) End If If (Original_EntryCO_Ref Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(246).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(246).Value = CType(Original_EntryCO_Ref,String) End If If (Original_ExitCO_Ref Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(248).Value = CType(Original_ExitCO_Ref,String) End If If (Original_SurvCO_Ref Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(250).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(250).Value = CType(Original_SurvCO_Ref,String) End If If (Original_DestCO_Ref Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(252).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(252).Value = CType(Original_DestCO_Ref,String) End If If (Original_PresCO_Ref Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(254).Value = CType(Original_PresCO_Ref,String) End If If (Original_DepCO_Ref Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(256).Value = CType(Original_DepCO_Ref,String) End If If (Original_CtrlRslt_ResCd Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(258).Value = CType(Original_CtrlRslt_ResCd,String) End If If (Original_CtrlRslt_DLimit.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(260).Value = CType(Original_CtrlRslt_DLimit.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(260).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(261).Value = CType(Original_telnam_aktuellsteNachricht,Boolean) 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 telanm_ART As String, _ ByVal telanm_BezugsNr As String, _ ByVal telanm_Status As Integer, _ ByVal telanm_Status_KEWILL_Equivalent As Integer, _ ByVal telanm_AvisoId As Global.System.Nullable(Of Integer), _ ByVal telanm_SendungsId As Global.System.Nullable(Of Integer), _ ByVal telanm_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal telanm_Mitteilung_dsId As Global.System.Nullable(Of Integer), _ ByVal telanm_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal telanm_LNR As String, _ ByVal telanm_CRN As String, _ ByVal telanm_Erstellung As Date, _ ByVal telanm_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal telanm_LetzteBearbeitung As Date, _ ByVal telanm_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal telanm_firma As String, _ ByVal telanm_niederlassung As String, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal TransferStatus As String, _ ByVal MsgType As String, _ ByVal dec_ProzessArt As String, _ ByVal dec_Anmelde_ID As Global.System.Nullable(Of Integer), _ ByVal dec_Template_ID As Global.System.Nullable(Of Integer), _ ByVal dec_Lager_ID As String, _ ByVal dec_Lag_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_CreateDate As Date, _ ByVal dec_CreatePersonalID As String, _ ByVal dec_PreDec_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_TotNet As Global.System.Nullable(Of Decimal), _ ByVal dec_TotNetSplit_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_FillPackList_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_Memo As String, _ ByVal Refs_LRN As String, _ ByVal Refs_CRN As String, _ ByVal Refs_CSRN As String, _ ByVal Refs_ERN As String, _ ByVal Refs_FRN As String, _ ByVal Refs_Stat As String, _ ByVal Hea_DecTy As String, _ ByVal Hea_TotItem As Integer, _ ByVal Hea_TotPack As Global.System.Nullable(Of Integer), _ ByVal Hea_TotGross As Global.System.Nullable(Of Decimal), _ ByVal Hea_DepLNG As String, _ ByVal Hea_DestLNG As String, _ ByVal Hea_PayTy As String, _ ByVal Hea_DefPayRef As Global.System.Nullable(Of Integer), _ ByVal Hea_PerPayRef As Global.System.Nullable(Of Integer), _ ByVal Hea_PayMet As Global.System.Nullable(Of Integer), _ ByVal Hea_AExpRef As Global.System.Nullable(Of Boolean), _ ByVal Hea_Fin As String, _ ByVal Hea_Simp As Boolean, _ ByVal Hea_IssD As Global.System.Nullable(Of Date), _ ByVal Hea_AuthID As String, _ ByVal Hea_TransDat As Global.System.Nullable(Of Boolean), _ ByVal Hea_WoffD As Global.System.Nullable(Of Date), _ ByVal Hea_DecDT As Date, _ ByVal Hea_DecPlc As String, _ ByVal Hea_AccDT As Global.System.Nullable(Of Date), _ ByVal Hea_SecInd As Global.System.Nullable(Of Boolean), _ ByVal Hea_ComRef As String, _ ByVal Hea_ProArrDT As Global.System.Nullable(Of Date), _ ByVal Hea_PlaDepDT As Global.System.Nullable(Of Date), _ ByVal Locs_TradCtry As String, _ ByVal Locs_Disp As String, _ ByVal Locs_Dest As String, _ ByVal Locs_GdsLocCd As String, _ ByVal Locs_GdsLoc As String, _ ByVal Locs_GdsLocAuth As String, _ ByVal Locs_LoadPlcCd As String, _ ByVal Locs_LoadPlc As String, _ ByVal Locs_CustPlc As String, _ ByVal Locs_ArrLocCd As String, _ ByVal Locs_ArrLoc As String, _ ByVal Locs_ArrLocAuth As String, _ ByVal Locs_WarTy As String, _ ByVal Locs_WarCtry As String, _ ByVal Locs_War As String, _ ByVal Transp_InMo As Global.System.Nullable(Of Integer), _ ByVal Transp_BordMo As Global.System.Nullable(Of Integer), _ ByVal Transp_DepTy As Global.System.Nullable(Of Integer), _ ByVal Transp_DepIdnt As String, _ ByVal Transp_DepNat As String, _ ByVal Transp_CrossTy As Global.System.Nullable(Of Integer), _ ByVal Transp_CrossIdnt As String, _ ByVal Transp_CrossIdntNat As String, _ ByVal Transp_ContInd As Global.System.Nullable(Of Boolean), _ ByVal ValData_TermDelCd As String, _ ByVal ValData_TermDelPlc As String, _ ByVal ValData_TermDelSit As String, _ ByVal ValData_InvCurr As String, _ ByVal ValData_ExRa As Global.System.Nullable(Of Decimal), _ ByVal ValData_InvVal As Global.System.Nullable(Of Decimal), _ ByVal ValData_TransacCd As Global.System.Nullable(Of Integer), _ ByVal ConorTra_Na As String, _ ByVal ConorTra_Strt As String, _ ByVal ConorTra_Pst As String, _ ByVal ConorTra_Cty As String, _ ByVal ConorTra_Ctry As String, _ ByVal ConorTra_TIN As String, _ ByVal ConorTra_UIDCtry As String, _ ByVal ConorTra_UID As String, _ ByVal ConeeTra_Na As String, _ ByVal ConeeTra_Strt As String, _ ByVal ConeeTra_Pst As String, _ ByVal ConeeTra_Cty As String, _ ByVal ConeeTra_Ctry As String, _ ByVal ConeeTra_TIN As String, _ ByVal ConeeTra_UIDCtry As String, _ ByVal ConeeTra_UID As String, _ ByVal ExpTra_Na As String, _ ByVal ExpTra_Strt As String, _ ByVal ExpTra_Pst As String, _ ByVal ExpTra_Cty As String, _ ByVal ExpTra_Ctry As String, _ ByVal ExpTra_TIN As String, _ ByVal ExpTra_UIDCtry As String, _ ByVal ExpTra_UID As String, _ ByVal Declarant_Na As String, _ ByVal Declarant_Strt As String, _ ByVal Declarant_Pst As String, _ ByVal Declarant_Cty As String, _ ByVal Declarant_Ctry As String, _ ByVal Declarant_TIN As String, _ ByVal Declarant_UIDCtry As String, _ ByVal Declarant_UID As String, _ ByVal Declarant_DecRep As Global.System.Nullable(Of Integer), _ ByVal Represent_RIN As String, _ ByVal Represent_Na As String, _ ByVal EntryCO_Ref As String, _ ByVal ExitCO_Ref As String, _ ByVal SurvCO_Ref As String, _ ByVal DestCO_Ref As String, _ ByVal PresCO_Ref As String, _ ByVal DepCO_Ref As String, _ ByVal CtrlRslt_ResCd As String, _ ByVal CtrlRslt_DLimit As Global.System.Nullable(Of Date), _ ByVal telnam_aktuellsteNachricht As Boolean) As Integer If (telanm_ART Is Nothing) Then Throw New Global.System.ArgumentNullException("telanm_ART") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(telanm_ART,String) End If If (telanm_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("telanm_BezugsNr") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(telanm_BezugsNr,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(telanm_Status,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(telanm_Status_KEWILL_Equivalent,Integer) If (telanm_AvisoId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(telanm_AvisoId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (telanm_SendungsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(telanm_SendungsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (telanm_Steuerbescheid_dsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(telanm_Steuerbescheid_dsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (telanm_Mitteilung_dsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(telanm_Mitteilung_dsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (telanm_VBD_dsId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(telanm_VBD_dsId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (telanm_LNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(telanm_LNR,String) End If If (telanm_CRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(telanm_CRN,String) End If Me.Adapter.InsertCommand.Parameters(11).Value = CType(telanm_Erstellung,Date) If (telanm_Erstellung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(telanm_Erstellung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(13).Value = CType(telanm_LetzteBearbeitung,Date) If (telanm_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(telanm_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (telanm_firma Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(telanm_firma,String) End If If (telanm_niederlassung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(telanm_niederlassung,String) End If If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(Referenz_ID,String) End If Me.Adapter.InsertCommand.Parameters(20).Value = CType(ComIndicator,Boolean) If (TransferStatus Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(TransferStatus,String) End If If (MsgType Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(MsgType,String) End If If (dec_ProzessArt Is Nothing) Then Throw New Global.System.ArgumentNullException("dec_ProzessArt") Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(dec_ProzessArt,String) End If If (dec_Anmelde_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(dec_Anmelde_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (dec_Template_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(dec_Template_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (dec_Lager_ID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(dec_Lager_ID,String) End If If (dec_Lag_IND.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(dec_Lag_IND.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(28).Value = CType(dec_CreateDate,Date) If (dec_CreatePersonalID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(dec_CreatePersonalID,String) End If If (dec_PreDec_IND.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(dec_PreDec_IND.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (dec_TotNet.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(dec_TotNet.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (dec_TotNetSplit_IND.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(dec_TotNetSplit_IND.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (dec_FillPackList_IND.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(dec_FillPackList_IND.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (dec_Memo Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(dec_Memo,String) End If If (Refs_LRN Is Nothing) Then Throw New Global.System.ArgumentNullException("Refs_LRN") Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(Refs_LRN,String) End If If (Refs_CRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(Refs_CRN,String) End If If (Refs_CSRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(Refs_CSRN,String) End If If (Refs_ERN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(Refs_ERN,String) End If If (Refs_FRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(Refs_FRN,String) End If If (Refs_Stat Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(Refs_Stat,String) End If If (Hea_DecTy Is Nothing) Then Throw New Global.System.ArgumentNullException("Hea_DecTy") Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(Hea_DecTy,String) End If Me.Adapter.InsertCommand.Parameters(42).Value = CType(Hea_TotItem,Integer) If (Hea_TotPack.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(Hea_TotPack.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Hea_TotGross.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(44).Value = CType(Hea_TotGross.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Hea_DepLNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(Hea_DepLNG,String) End If If (Hea_DestLNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(Hea_DestLNG,String) End If If (Hea_PayTy Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(Hea_PayTy,String) End If If (Hea_DefPayRef.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(Hea_DefPayRef.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Hea_PerPayRef.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(49).Value = CType(Hea_PerPayRef.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Hea_PayMet.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(50).Value = CType(Hea_PayMet.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Hea_AExpRef.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(Hea_AExpRef.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Hea_Fin Is Nothing) Then Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(52).Value = CType(Hea_Fin,String) End If Me.Adapter.InsertCommand.Parameters(53).Value = CType(Hea_Simp,Boolean) If (Hea_IssD.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(Hea_IssD.Value,Date) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Hea_AuthID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(55).Value = CType(Hea_AuthID,String) End If If (Hea_TransDat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(56).Value = CType(Hea_TransDat.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Hea_WoffD.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(57).Value = CType(Hea_WoffD.Value,Date) Else Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(58).Value = CType(Hea_DecDT,Date) If (Hea_DecPlc Is Nothing) Then Throw New Global.System.ArgumentNullException("Hea_DecPlc") Else Me.Adapter.InsertCommand.Parameters(59).Value = CType(Hea_DecPlc,String) End If If (Hea_AccDT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(60).Value = CType(Hea_AccDT.Value,Date) Else Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (Hea_SecInd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(61).Value = CType(Hea_SecInd.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value End If If (Hea_ComRef Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(Hea_ComRef,String) End If If (Hea_ProArrDT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(63).Value = CType(Hea_ProArrDT.Value,Date) Else Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Hea_PlaDepDT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(64).Value = CType(Hea_PlaDepDT.Value,Date) Else Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Locs_TradCtry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(Locs_TradCtry,String) End If If (Locs_Disp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(Locs_Disp,String) End If If (Locs_Dest Is Nothing) Then Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(67).Value = CType(Locs_Dest,String) End If If (Locs_GdsLocCd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(Locs_GdsLocCd,String) End If If (Locs_GdsLoc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(Locs_GdsLoc,String) End If If (Locs_GdsLocAuth Is Nothing) Then Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(70).Value = CType(Locs_GdsLocAuth,String) End If If (Locs_LoadPlcCd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(71).Value = CType(Locs_LoadPlcCd,String) End If If (Locs_LoadPlc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(Locs_LoadPlc,String) End If If (Locs_CustPlc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(Locs_CustPlc,String) End If If (Locs_ArrLocCd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(Locs_ArrLocCd,String) End If If (Locs_ArrLoc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(Locs_ArrLoc,String) End If If (Locs_ArrLocAuth Is Nothing) Then Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(76).Value = CType(Locs_ArrLocAuth,String) End If If (Locs_WarTy Is Nothing) Then Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(77).Value = CType(Locs_WarTy,String) End If If (Locs_WarCtry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(78).Value = CType(Locs_WarCtry,String) End If If (Locs_War Is Nothing) Then Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(79).Value = CType(Locs_War,String) End If If (Transp_InMo.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(80).Value = CType(Transp_InMo.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value End If If (Transp_BordMo.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(81).Value = CType(Transp_BordMo.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value End If If (Transp_DepTy.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(82).Value = CType(Transp_DepTy.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (Transp_DepIdnt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(Transp_DepIdnt,String) End If If (Transp_DepNat Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(Transp_DepNat,String) End If If (Transp_CrossTy.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(85).Value = CType(Transp_CrossTy.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Transp_CrossIdnt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(Transp_CrossIdnt,String) End If If (Transp_CrossIdntNat Is Nothing) Then Me.Adapter.InsertCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(87).Value = CType(Transp_CrossIdntNat,String) End If If (Transp_ContInd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(88).Value = CType(Transp_ContInd.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (ValData_TermDelCd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(89).Value = CType(ValData_TermDelCd,String) End If If (ValData_TermDelPlc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(90).Value = CType(ValData_TermDelPlc,String) End If If (ValData_TermDelSit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(91).Value = CType(ValData_TermDelSit,String) End If If (ValData_InvCurr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(92).Value = CType(ValData_InvCurr,String) End If If (ValData_ExRa.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(93).Value = CType(ValData_ExRa.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(93).Value = Global.System.DBNull.Value End If If (ValData_InvVal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(94).Value = CType(ValData_InvVal.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(94).Value = Global.System.DBNull.Value End If If (ValData_TransacCd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(95).Value = CType(ValData_TransacCd.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(95).Value = Global.System.DBNull.Value End If If (ConorTra_Na Is Nothing) Then Me.Adapter.InsertCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(96).Value = CType(ConorTra_Na,String) End If If (ConorTra_Strt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(97).Value = CType(ConorTra_Strt,String) End If If (ConorTra_Pst Is Nothing) Then Me.Adapter.InsertCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(98).Value = CType(ConorTra_Pst,String) End If If (ConorTra_Cty Is Nothing) Then Me.Adapter.InsertCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(99).Value = CType(ConorTra_Cty,String) End If If (ConorTra_Ctry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(100).Value = CType(ConorTra_Ctry,String) End If If (ConorTra_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(101).Value = CType(ConorTra_TIN,String) End If If (ConorTra_UIDCtry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(102).Value = CType(ConorTra_UIDCtry,String) End If If (ConorTra_UID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(103).Value = CType(ConorTra_UID,String) End If If (ConeeTra_Na Is Nothing) Then Me.Adapter.InsertCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(104).Value = CType(ConeeTra_Na,String) End If If (ConeeTra_Strt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(105).Value = CType(ConeeTra_Strt,String) End If If (ConeeTra_Pst Is Nothing) Then Me.Adapter.InsertCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(106).Value = CType(ConeeTra_Pst,String) End If If (ConeeTra_Cty Is Nothing) Then Me.Adapter.InsertCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(107).Value = CType(ConeeTra_Cty,String) End If If (ConeeTra_Ctry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(108).Value = CType(ConeeTra_Ctry,String) End If If (ConeeTra_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(109).Value = CType(ConeeTra_TIN,String) End If If (ConeeTra_UIDCtry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(110).Value = CType(ConeeTra_UIDCtry,String) End If If (ConeeTra_UID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(111).Value = CType(ConeeTra_UID,String) End If If (ExpTra_Na Is Nothing) Then Me.Adapter.InsertCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(112).Value = CType(ExpTra_Na,String) End If If (ExpTra_Strt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(113).Value = CType(ExpTra_Strt,String) End If If (ExpTra_Pst Is Nothing) Then Me.Adapter.InsertCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(114).Value = CType(ExpTra_Pst,String) End If If (ExpTra_Cty Is Nothing) Then Me.Adapter.InsertCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(115).Value = CType(ExpTra_Cty,String) End If If (ExpTra_Ctry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(116).Value = CType(ExpTra_Ctry,String) End If If (ExpTra_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(117).Value = CType(ExpTra_TIN,String) End If If (ExpTra_UIDCtry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(118).Value = CType(ExpTra_UIDCtry,String) End If If (ExpTra_UID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(119).Value = CType(ExpTra_UID,String) End If If (Declarant_Na Is Nothing) Then Me.Adapter.InsertCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(120).Value = CType(Declarant_Na,String) End If If (Declarant_Strt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(121).Value = CType(Declarant_Strt,String) End If If (Declarant_Pst Is Nothing) Then Me.Adapter.InsertCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(122).Value = CType(Declarant_Pst,String) End If If (Declarant_Cty Is Nothing) Then Me.Adapter.InsertCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(123).Value = CType(Declarant_Cty,String) End If If (Declarant_Ctry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(124).Value = CType(Declarant_Ctry,String) End If If (Declarant_TIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(125).Value = CType(Declarant_TIN,String) End If If (Declarant_UIDCtry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(126).Value = CType(Declarant_UIDCtry,String) End If If (Declarant_UID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(127).Value = CType(Declarant_UID,String) End If If (Declarant_DecRep.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(128).Value = CType(Declarant_DecRep.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(128).Value = Global.System.DBNull.Value End If If (Represent_RIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(129).Value = CType(Represent_RIN,String) End If If (Represent_Na Is Nothing) Then Me.Adapter.InsertCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(130).Value = CType(Represent_Na,String) End If If (EntryCO_Ref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(131).Value = CType(EntryCO_Ref,String) End If If (ExitCO_Ref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(132).Value = CType(ExitCO_Ref,String) End If If (SurvCO_Ref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(133).Value = CType(SurvCO_Ref,String) End If If (DestCO_Ref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(134).Value = CType(DestCO_Ref,String) End If If (PresCO_Ref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(135).Value = CType(PresCO_Ref,String) End If If (DepCO_Ref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(136).Value = CType(DepCO_Ref,String) End If If (CtrlRslt_ResCd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(137).Value = CType(CtrlRslt_ResCd,String) End If If (CtrlRslt_DLimit.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(138).Value = CType(CtrlRslt_DLimit.Value,Date) Else Me.Adapter.InsertCommand.Parameters(138).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(139).Value = CType(telnam_aktuellsteNachricht,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 telanm_ART As String, _ ByVal telanm_BezugsNr As String, _ ByVal telanm_Status As Integer, _ ByVal telanm_Status_KEWILL_Equivalent As Integer, _ ByVal telanm_AvisoId As Global.System.Nullable(Of Integer), _ ByVal telanm_SendungsId As Global.System.Nullable(Of Integer), _ ByVal telanm_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal telanm_Mitteilung_dsId As Global.System.Nullable(Of Integer), _ ByVal telanm_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal telanm_LNR As String, _ ByVal telanm_CRN As String, _ ByVal telanm_Erstellung As Date, _ ByVal telanm_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal telanm_LetzteBearbeitung As Date, _ ByVal telanm_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal telanm_firma As String, _ ByVal telanm_niederlassung As String, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal TransferStatus As String, _ ByVal MsgType As String, _ ByVal dec_ProzessArt As String, _ ByVal dec_Anmelde_ID As Global.System.Nullable(Of Integer), _ ByVal dec_Template_ID As Global.System.Nullable(Of Integer), _ ByVal dec_Lager_ID As String, _ ByVal dec_Lag_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_CreateDate As Date, _ ByVal dec_CreatePersonalID As String, _ ByVal dec_PreDec_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_TotNet As Global.System.Nullable(Of Decimal), _ ByVal dec_TotNetSplit_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_FillPackList_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_Memo As String, _ ByVal Refs_LRN As String, _ ByVal Refs_CRN As String, _ ByVal Refs_CSRN As String, _ ByVal Refs_ERN As String, _ ByVal Refs_FRN As String, _ ByVal Refs_Stat As String, _ ByVal Hea_DecTy As String, _ ByVal Hea_TotItem As Integer, _ ByVal Hea_TotPack As Global.System.Nullable(Of Integer), _ ByVal Hea_TotGross As Global.System.Nullable(Of Decimal), _ ByVal Hea_DepLNG As String, _ ByVal Hea_DestLNG As String, _ ByVal Hea_PayTy As String, _ ByVal Hea_DefPayRef As Global.System.Nullable(Of Integer), _ ByVal Hea_PerPayRef As Global.System.Nullable(Of Integer), _ ByVal Hea_PayMet As Global.System.Nullable(Of Integer), _ ByVal Hea_AExpRef As Global.System.Nullable(Of Boolean), _ ByVal Hea_Fin As String, _ ByVal Hea_Simp As Boolean, _ ByVal Hea_IssD As Global.System.Nullable(Of Date), _ ByVal Hea_AuthID As String, _ ByVal Hea_TransDat As Global.System.Nullable(Of Boolean), _ ByVal Hea_WoffD As Global.System.Nullable(Of Date), _ ByVal Hea_DecDT As Date, _ ByVal Hea_DecPlc As String, _ ByVal Hea_AccDT As Global.System.Nullable(Of Date), _ ByVal Hea_SecInd As Global.System.Nullable(Of Boolean), _ ByVal Hea_ComRef As String, _ ByVal Hea_ProArrDT As Global.System.Nullable(Of Date), _ ByVal Hea_PlaDepDT As Global.System.Nullable(Of Date), _ ByVal Locs_TradCtry As String, _ ByVal Locs_Disp As String, _ ByVal Locs_Dest As String, _ ByVal Locs_GdsLocCd As String, _ ByVal Locs_GdsLoc As String, _ ByVal Locs_GdsLocAuth As String, _ ByVal Locs_LoadPlcCd As String, _ ByVal Locs_LoadPlc As String, _ ByVal Locs_CustPlc As String, _ ByVal Locs_ArrLocCd As String, _ ByVal Locs_ArrLoc As String, _ ByVal Locs_ArrLocAuth As String, _ ByVal Locs_WarTy As String, _ ByVal Locs_WarCtry As String, _ ByVal Locs_War As String, _ ByVal Transp_InMo As Global.System.Nullable(Of Integer), _ ByVal Transp_BordMo As Global.System.Nullable(Of Integer), _ ByVal Transp_DepTy As Global.System.Nullable(Of Integer), _ ByVal Transp_DepIdnt As String, _ ByVal Transp_DepNat As String, _ ByVal Transp_CrossTy As Global.System.Nullable(Of Integer), _ ByVal Transp_CrossIdnt As String, _ ByVal Transp_CrossIdntNat As String, _ ByVal Transp_ContInd As Global.System.Nullable(Of Boolean), _ ByVal ValData_TermDelCd As String, _ ByVal ValData_TermDelPlc As String, _ ByVal ValData_TermDelSit As String, _ ByVal ValData_InvCurr As String, _ ByVal ValData_ExRa As Global.System.Nullable(Of Decimal), _ ByVal ValData_InvVal As Global.System.Nullable(Of Decimal), _ ByVal ValData_TransacCd As Global.System.Nullable(Of Integer), _ ByVal ConorTra_Na As String, _ ByVal ConorTra_Strt As String, _ ByVal ConorTra_Pst As String, _ ByVal ConorTra_Cty As String, _ ByVal ConorTra_Ctry As String, _ ByVal ConorTra_TIN As String, _ ByVal ConorTra_UIDCtry As String, _ ByVal ConorTra_UID As String, _ ByVal ConeeTra_Na As String, _ ByVal ConeeTra_Strt As String, _ ByVal ConeeTra_Pst As String, _ ByVal ConeeTra_Cty As String, _ ByVal ConeeTra_Ctry As String, _ ByVal ConeeTra_TIN As String, _ ByVal ConeeTra_UIDCtry As String, _ ByVal ConeeTra_UID As String, _ ByVal ExpTra_Na As String, _ ByVal ExpTra_Strt As String, _ ByVal ExpTra_Pst As String, _ ByVal ExpTra_Cty As String, _ ByVal ExpTra_Ctry As String, _ ByVal ExpTra_TIN As String, _ ByVal ExpTra_UIDCtry As String, _ ByVal ExpTra_UID As String, _ ByVal Declarant_Na As String, _ ByVal Declarant_Strt As String, _ ByVal Declarant_Pst As String, _ ByVal Declarant_Cty As String, _ ByVal Declarant_Ctry As String, _ ByVal Declarant_TIN As String, _ ByVal Declarant_UIDCtry As String, _ ByVal Declarant_UID As String, _ ByVal Declarant_DecRep As Global.System.Nullable(Of Integer), _ ByVal Represent_RIN As String, _ ByVal Represent_Na As String, _ ByVal EntryCO_Ref As String, _ ByVal ExitCO_Ref As String, _ ByVal SurvCO_Ref As String, _ ByVal DestCO_Ref As String, _ ByVal PresCO_Ref As String, _ ByVal DepCO_Ref As String, _ ByVal CtrlRslt_ResCd As String, _ ByVal CtrlRslt_DLimit As Global.System.Nullable(Of Date), _ ByVal telnam_aktuellsteNachricht As Boolean, _ ByVal Original_telanm_id As Integer, _ ByVal Original_telanm_ART As String, _ ByVal Original_telanm_BezugsNr As String, _ ByVal Original_telanm_Status As Integer, _ ByVal Original_telanm_Status_KEWILL_Equivalent As Integer, _ ByVal Original_telanm_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_Mitteilung_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_LNR As String, _ ByVal Original_telanm_CRN As String, _ ByVal Original_telanm_Erstellung As Date, _ ByVal Original_telanm_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_LetzteBearbeitung As Date, _ ByVal Original_telanm_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_firma As String, _ ByVal Original_telanm_niederlassung As String, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_TransferStatus As String, _ ByVal Original_MsgType As String, _ ByVal Original_dec_ProzessArt As String, _ ByVal Original_dec_Anmelde_ID As Global.System.Nullable(Of Integer), _ ByVal Original_dec_Template_ID As Global.System.Nullable(Of Integer), _ ByVal Original_dec_Lager_ID As String, _ ByVal Original_dec_Lag_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_CreateDate As Date, _ ByVal Original_dec_CreatePersonalID As String, _ ByVal Original_dec_PreDec_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_TotNet As Global.System.Nullable(Of Decimal), _ ByVal Original_dec_TotNetSplit_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_FillPackList_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_Memo As String, _ ByVal Original_Refs_LRN As String, _ ByVal Original_Refs_CRN As String, _ ByVal Original_Refs_CSRN As String, _ ByVal Original_Refs_ERN As String, _ ByVal Original_Refs_FRN As String, _ ByVal Original_Refs_Stat As String, _ ByVal Original_Hea_DecTy As String, _ ByVal Original_Hea_TotItem As Integer, _ ByVal Original_Hea_TotPack As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_TotGross As Global.System.Nullable(Of Decimal), _ ByVal Original_Hea_DepLNG As String, _ ByVal Original_Hea_DestLNG As String, _ ByVal Original_Hea_PayTy As String, _ ByVal Original_Hea_DefPayRef As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_PerPayRef As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_PayMet As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_AExpRef As Global.System.Nullable(Of Boolean), _ ByVal Original_Hea_Fin As String, _ ByVal Original_Hea_Simp As Boolean, _ ByVal Original_Hea_IssD As Global.System.Nullable(Of Date), _ ByVal Original_Hea_AuthID As String, _ ByVal Original_Hea_TransDat As Global.System.Nullable(Of Boolean), _ ByVal Original_Hea_WoffD As Global.System.Nullable(Of Date), _ ByVal Original_Hea_DecDT As Date, _ ByVal Original_Hea_DecPlc As String, _ ByVal Original_Hea_AccDT As Global.System.Nullable(Of Date), _ ByVal Original_Hea_SecInd As Global.System.Nullable(Of Boolean), _ ByVal Original_Hea_ComRef As String, _ ByVal Original_Hea_ProArrDT As Global.System.Nullable(Of Date), _ ByVal Original_Hea_PlaDepDT As Global.System.Nullable(Of Date), _ ByVal Original_Locs_TradCtry As String, _ ByVal Original_Locs_Disp As String, _ ByVal Original_Locs_Dest As String, _ ByVal Original_Locs_GdsLocCd As String, _ ByVal Original_Locs_GdsLoc As String, _ ByVal Original_Locs_GdsLocAuth As String, _ ByVal Original_Locs_LoadPlcCd As String, _ ByVal Original_Locs_LoadPlc As String, _ ByVal Original_Locs_CustPlc As String, _ ByVal Original_Locs_ArrLocCd As String, _ ByVal Original_Locs_ArrLoc As String, _ ByVal Original_Locs_ArrLocAuth As String, _ ByVal Original_Locs_WarTy As String, _ ByVal Original_Locs_WarCtry As String, _ ByVal Original_Locs_War As String, _ ByVal Original_Transp_InMo As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_BordMo As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_DepTy As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_DepIdnt As String, _ ByVal Original_Transp_DepNat As String, _ ByVal Original_Transp_CrossTy As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_CrossIdnt As String, _ ByVal Original_Transp_CrossIdntNat As String, _ ByVal Original_Transp_ContInd As Global.System.Nullable(Of Boolean), _ ByVal Original_ValData_TermDelCd As String, _ ByVal Original_ValData_TermDelPlc As String, _ ByVal Original_ValData_TermDelSit As String, _ ByVal Original_ValData_InvCurr As String, _ ByVal Original_ValData_ExRa As Global.System.Nullable(Of Decimal), _ ByVal Original_ValData_InvVal As Global.System.Nullable(Of Decimal), _ ByVal Original_ValData_TransacCd As Global.System.Nullable(Of Integer), _ ByVal Original_ConorTra_Na As String, _ ByVal Original_ConorTra_Strt As String, _ ByVal Original_ConorTra_Pst As String, _ ByVal Original_ConorTra_Cty As String, _ ByVal Original_ConorTra_Ctry As String, _ ByVal Original_ConorTra_TIN As String, _ ByVal Original_ConorTra_UIDCtry As String, _ ByVal Original_ConorTra_UID As String, _ ByVal Original_ConeeTra_Na As String, _ ByVal Original_ConeeTra_Strt As String, _ ByVal Original_ConeeTra_Pst As String, _ ByVal Original_ConeeTra_Cty As String, _ ByVal Original_ConeeTra_Ctry As String, _ ByVal Original_ConeeTra_TIN As String, _ ByVal Original_ConeeTra_UIDCtry As String, _ ByVal Original_ConeeTra_UID As String, _ ByVal Original_ExpTra_Na As String, _ ByVal Original_ExpTra_Strt As String, _ ByVal Original_ExpTra_Pst As String, _ ByVal Original_ExpTra_Cty As String, _ ByVal Original_ExpTra_Ctry As String, _ ByVal Original_ExpTra_TIN As String, _ ByVal Original_ExpTra_UIDCtry As String, _ ByVal Original_ExpTra_UID As String, _ ByVal Original_Declarant_Na As String, _ ByVal Original_Declarant_Strt As String, _ ByVal Original_Declarant_Pst As String, _ ByVal Original_Declarant_Cty As String, _ ByVal Original_Declarant_Ctry As String, _ ByVal Original_Declarant_TIN As String, _ ByVal Original_Declarant_UIDCtry As String, _ ByVal Original_Declarant_UID As String, _ ByVal Original_Declarant_DecRep As Global.System.Nullable(Of Integer), _ ByVal Original_Represent_RIN As String, _ ByVal Original_Represent_Na As String, _ ByVal Original_EntryCO_Ref As String, _ ByVal Original_ExitCO_Ref As String, _ ByVal Original_SurvCO_Ref As String, _ ByVal Original_DestCO_Ref As String, _ ByVal Original_PresCO_Ref As String, _ ByVal Original_DepCO_Ref As String, _ ByVal Original_CtrlRslt_ResCd As String, _ ByVal Original_CtrlRslt_DLimit As Global.System.Nullable(Of Date), _ ByVal Original_telnam_aktuellsteNachricht As Boolean, _ ByVal telanm_id As Integer) As Integer If (telanm_ART Is Nothing) Then Throw New Global.System.ArgumentNullException("telanm_ART") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(telanm_ART,String) End If If (telanm_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("telanm_BezugsNr") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(telanm_BezugsNr,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(telanm_Status,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(telanm_Status_KEWILL_Equivalent,Integer) If (telanm_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(telanm_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (telanm_SendungsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(telanm_SendungsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (telanm_Steuerbescheid_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(telanm_Steuerbescheid_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (telanm_Mitteilung_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(telanm_Mitteilung_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (telanm_VBD_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(telanm_VBD_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (telanm_LNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(telanm_LNR,String) End If If (telanm_CRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(telanm_CRN,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(telanm_Erstellung,Date) If (telanm_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(telanm_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(telanm_LetzteBearbeitung,Date) If (telanm_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(telanm_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (telanm_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(telanm_firma,String) End If If (telanm_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(telanm_niederlassung,String) End If If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(ComIndicator,Boolean) If (TransferStatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(TransferStatus,String) End If If (MsgType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(MsgType,String) End If If (dec_ProzessArt Is Nothing) Then Throw New Global.System.ArgumentNullException("dec_ProzessArt") Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(dec_ProzessArt,String) End If If (dec_Anmelde_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(dec_Anmelde_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (dec_Template_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(dec_Template_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (dec_Lager_ID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(dec_Lager_ID,String) End If If (dec_Lag_IND.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(dec_Lag_IND.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(dec_CreateDate,Date) If (dec_CreatePersonalID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(dec_CreatePersonalID,String) End If If (dec_PreDec_IND.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(dec_PreDec_IND.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (dec_TotNet.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(dec_TotNet.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (dec_TotNetSplit_IND.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(dec_TotNetSplit_IND.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (dec_FillPackList_IND.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(dec_FillPackList_IND.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (dec_Memo Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(dec_Memo,String) End If If (Refs_LRN Is Nothing) Then Throw New Global.System.ArgumentNullException("Refs_LRN") Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Refs_LRN,String) End If If (Refs_CRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Refs_CRN,String) End If If (Refs_CSRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Refs_CSRN,String) End If If (Refs_ERN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Refs_ERN,String) End If If (Refs_FRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Refs_FRN,String) End If If (Refs_Stat Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Refs_Stat,String) End If If (Hea_DecTy Is Nothing) Then Throw New Global.System.ArgumentNullException("Hea_DecTy") Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Hea_DecTy,String) End If Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Hea_TotItem,Integer) If (Hea_TotPack.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Hea_TotPack.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Hea_TotGross.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Hea_TotGross.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Hea_DepLNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Hea_DepLNG,String) End If If (Hea_DestLNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Hea_DestLNG,String) End If If (Hea_PayTy Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Hea_PayTy,String) End If If (Hea_DefPayRef.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Hea_DefPayRef.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Hea_PerPayRef.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Hea_PerPayRef.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Hea_PayMet.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Hea_PayMet.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Hea_AExpRef.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Hea_AExpRef.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Hea_Fin Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Hea_Fin,String) End If Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Hea_Simp,Boolean) If (Hea_IssD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Hea_IssD.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Hea_AuthID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Hea_AuthID,String) End If If (Hea_TransDat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Hea_TransDat.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Hea_WoffD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Hea_WoffD.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Hea_DecDT,Date) If (Hea_DecPlc Is Nothing) Then Throw New Global.System.ArgumentNullException("Hea_DecPlc") Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Hea_DecPlc,String) End If If (Hea_AccDT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Hea_AccDT.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value End If If (Hea_SecInd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Hea_SecInd.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value End If If (Hea_ComRef Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Hea_ComRef,String) End If If (Hea_ProArrDT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Hea_ProArrDT.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Hea_PlaDepDT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Hea_PlaDepDT.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Locs_TradCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Locs_TradCtry,String) End If If (Locs_Disp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Locs_Disp,String) End If If (Locs_Dest Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Locs_Dest,String) End If If (Locs_GdsLocCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Locs_GdsLocCd,String) End If If (Locs_GdsLoc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Locs_GdsLoc,String) End If If (Locs_GdsLocAuth Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Locs_GdsLocAuth,String) End If If (Locs_LoadPlcCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Locs_LoadPlcCd,String) End If If (Locs_LoadPlc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Locs_LoadPlc,String) End If If (Locs_CustPlc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Locs_CustPlc,String) End If If (Locs_ArrLocCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Locs_ArrLocCd,String) End If If (Locs_ArrLoc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Locs_ArrLoc,String) End If If (Locs_ArrLocAuth Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Locs_ArrLocAuth,String) End If If (Locs_WarTy Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Locs_WarTy,String) End If If (Locs_WarCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Locs_WarCtry,String) End If If (Locs_War Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Locs_War,String) End If If (Transp_InMo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Transp_InMo.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value End If If (Transp_BordMo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Transp_BordMo.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value End If If (Transp_DepTy.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Transp_DepTy.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (Transp_DepIdnt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Transp_DepIdnt,String) End If If (Transp_DepNat Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Transp_DepNat,String) End If If (Transp_CrossTy.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Transp_CrossTy.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Transp_CrossIdnt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Transp_CrossIdnt,String) End If If (Transp_CrossIdntNat Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Transp_CrossIdntNat,String) End If If (Transp_ContInd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(Transp_ContInd.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (ValData_TermDelCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(89).Value = CType(ValData_TermDelCd,String) End If If (ValData_TermDelPlc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(ValData_TermDelPlc,String) End If If (ValData_TermDelSit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(ValData_TermDelSit,String) End If If (ValData_InvCurr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(ValData_InvCurr,String) End If If (ValData_ExRa.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(93).Value = CType(ValData_ExRa.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value End If If (ValData_InvVal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(94).Value = CType(ValData_InvVal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value End If If (ValData_TransacCd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(95).Value = CType(ValData_TransacCd.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value End If If (ConorTra_Na Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(ConorTra_Na,String) End If If (ConorTra_Strt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(97).Value = CType(ConorTra_Strt,String) End If If (ConorTra_Pst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(ConorTra_Pst,String) End If If (ConorTra_Cty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(99).Value = CType(ConorTra_Cty,String) End If If (ConorTra_Ctry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(ConorTra_Ctry,String) End If If (ConorTra_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(101).Value = CType(ConorTra_TIN,String) End If If (ConorTra_UIDCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(ConorTra_UIDCtry,String) End If If (ConorTra_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(103).Value = CType(ConorTra_UID,String) End If If (ConeeTra_Na Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(ConeeTra_Na,String) End If If (ConeeTra_Strt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(105).Value = CType(ConeeTra_Strt,String) End If If (ConeeTra_Pst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(ConeeTra_Pst,String) End If If (ConeeTra_Cty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(107).Value = CType(ConeeTra_Cty,String) End If If (ConeeTra_Ctry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(ConeeTra_Ctry,String) End If If (ConeeTra_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(109).Value = CType(ConeeTra_TIN,String) End If If (ConeeTra_UIDCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(ConeeTra_UIDCtry,String) End If If (ConeeTra_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(111).Value = CType(ConeeTra_UID,String) End If If (ExpTra_Na Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(ExpTra_Na,String) End If If (ExpTra_Strt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(113).Value = CType(ExpTra_Strt,String) End If If (ExpTra_Pst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(ExpTra_Pst,String) End If If (ExpTra_Cty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(115).Value = CType(ExpTra_Cty,String) End If If (ExpTra_Ctry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(ExpTra_Ctry,String) End If If (ExpTra_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(117).Value = CType(ExpTra_TIN,String) End If If (ExpTra_UIDCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(ExpTra_UIDCtry,String) End If If (ExpTra_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(119).Value = CType(ExpTra_UID,String) End If If (Declarant_Na Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(Declarant_Na,String) End If If (Declarant_Strt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(121).Value = CType(Declarant_Strt,String) End If If (Declarant_Pst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(Declarant_Pst,String) End If If (Declarant_Cty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(123).Value = CType(Declarant_Cty,String) End If If (Declarant_Ctry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(Declarant_Ctry,String) End If If (Declarant_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(125).Value = CType(Declarant_TIN,String) End If If (Declarant_UIDCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(Declarant_UIDCtry,String) End If If (Declarant_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(127).Value = CType(Declarant_UID,String) End If If (Declarant_DecRep.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(128).Value = CType(Declarant_DecRep.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value End If If (Represent_RIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(129).Value = CType(Represent_RIN,String) End If If (Represent_Na Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(Represent_Na,String) End If If (EntryCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(131).Value = CType(EntryCO_Ref,String) End If If (ExitCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(132).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(ExitCO_Ref,String) End If If (SurvCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(133).Value = CType(SurvCO_Ref,String) End If If (DestCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(134).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(DestCO_Ref,String) End If If (PresCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(135).Value = CType(PresCO_Ref,String) End If If (DepCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(DepCO_Ref,String) End If If (CtrlRslt_ResCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(137).Value = CType(CtrlRslt_ResCd,String) End If If (CtrlRslt_DLimit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(138).Value = CType(CtrlRslt_DLimit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(138).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(139).Value = CType(telnam_aktuellsteNachricht,Boolean) Me.Adapter.UpdateCommand.Parameters(140).Value = CType(Original_telanm_id,Integer) If (Original_telanm_ART Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_telanm_ART") Else Me.Adapter.UpdateCommand.Parameters(141).Value = CType(Original_telanm_ART,String) End If If (Original_telanm_BezugsNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_telanm_BezugsNr") Else Me.Adapter.UpdateCommand.Parameters(142).Value = CType(Original_telanm_BezugsNr,String) End If Me.Adapter.UpdateCommand.Parameters(143).Value = CType(Original_telanm_Status,Integer) Me.Adapter.UpdateCommand.Parameters(144).Value = CType(Original_telanm_Status_KEWILL_Equivalent,Integer) If (Original_telanm_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(145).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = CType(Original_telanm_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(145).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(146).Value = Global.System.DBNull.Value End If If (Original_telanm_SendungsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(147).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = CType(Original_telanm_SendungsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(147).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(148).Value = Global.System.DBNull.Value End If If (Original_telanm_Steuerbescheid_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(149).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = CType(Original_telanm_Steuerbescheid_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(149).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(150).Value = Global.System.DBNull.Value End If If (Original_telanm_Mitteilung_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(151).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = CType(Original_telanm_Mitteilung_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(151).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(152).Value = Global.System.DBNull.Value End If If (Original_telanm_VBD_dsId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(153).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = CType(Original_telanm_VBD_dsId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(153).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(154).Value = Global.System.DBNull.Value End If If (Original_telanm_LNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(155).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(155).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(156).Value = CType(Original_telanm_LNR,String) End If If (Original_telanm_CRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(157).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(157).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(158).Value = CType(Original_telanm_CRN,String) End If Me.Adapter.UpdateCommand.Parameters(159).Value = CType(Original_telanm_Erstellung,Date) If (Original_telanm_Erstellung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(160).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(161).Value = CType(Original_telanm_Erstellung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(160).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(161).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(162).Value = CType(Original_telanm_LetzteBearbeitung,Date) If (Original_telanm_LetzteBearbeitung_SB.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = CType(Original_telanm_LetzteBearbeitung_SB.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value End If If (Original_telanm_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = CType(Original_telanm_firma,String) End If If (Original_telanm_niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = CType(Original_telanm_niederlassung,String) End If If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(169).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(170).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(171).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(172).Value = CType(Original_ComIndicator,Boolean) If (Original_TransferStatus Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(173).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(173).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(174).Value = CType(Original_TransferStatus,String) End If If (Original_MsgType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(175).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(175).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(176).Value = CType(Original_MsgType,String) End If If (Original_dec_ProzessArt Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_dec_ProzessArt") Else Me.Adapter.UpdateCommand.Parameters(177).Value = CType(Original_dec_ProzessArt,String) End If If (Original_dec_Anmelde_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(178).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(179).Value = CType(Original_dec_Anmelde_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(178).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(179).Value = Global.System.DBNull.Value End If If (Original_dec_Template_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(180).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(181).Value = CType(Original_dec_Template_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(180).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(181).Value = Global.System.DBNull.Value End If If (Original_dec_Lager_ID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(182).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(183).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(182).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(183).Value = CType(Original_dec_Lager_ID,String) End If If (Original_dec_Lag_IND.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(184).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(185).Value = CType(Original_dec_Lag_IND.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(184).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(185).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(186).Value = CType(Original_dec_CreateDate,Date) If (Original_dec_CreatePersonalID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(187).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(187).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(188).Value = CType(Original_dec_CreatePersonalID,String) End If If (Original_dec_PreDec_IND.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(189).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = CType(Original_dec_PreDec_IND.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(189).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(190).Value = Global.System.DBNull.Value End If If (Original_dec_TotNet.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(191).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = CType(Original_dec_TotNet.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(191).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(192).Value = Global.System.DBNull.Value End If If (Original_dec_TotNetSplit_IND.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(193).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = CType(Original_dec_TotNetSplit_IND.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(193).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(194).Value = Global.System.DBNull.Value End If If (Original_dec_FillPackList_IND.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(195).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = CType(Original_dec_FillPackList_IND.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(195).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(196).Value = Global.System.DBNull.Value End If If (Original_dec_Memo Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(197).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(197).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(198).Value = CType(Original_dec_Memo,String) End If If (Original_Refs_LRN Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Refs_LRN") Else Me.Adapter.UpdateCommand.Parameters(199).Value = CType(Original_Refs_LRN,String) End If If (Original_Refs_CRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(200).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(201).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(200).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(201).Value = CType(Original_Refs_CRN,String) End If If (Original_Refs_CSRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(202).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(203).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(202).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(203).Value = CType(Original_Refs_CSRN,String) End If If (Original_Refs_ERN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(204).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(205).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(204).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(205).Value = CType(Original_Refs_ERN,String) End If If (Original_Refs_FRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(206).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(207).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(206).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(207).Value = CType(Original_Refs_FRN,String) End If If (Original_Refs_Stat Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(208).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(209).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(208).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(209).Value = CType(Original_Refs_Stat,String) End If If (Original_Hea_DecTy Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Hea_DecTy") Else Me.Adapter.UpdateCommand.Parameters(210).Value = CType(Original_Hea_DecTy,String) End If Me.Adapter.UpdateCommand.Parameters(211).Value = CType(Original_Hea_TotItem,Integer) If (Original_Hea_TotPack.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(212).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(213).Value = CType(Original_Hea_TotPack.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(212).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(213).Value = Global.System.DBNull.Value End If If (Original_Hea_TotGross.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(214).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(215).Value = CType(Original_Hea_TotGross.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(214).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(215).Value = Global.System.DBNull.Value End If If (Original_Hea_DepLNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(216).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(217).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(216).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(217).Value = CType(Original_Hea_DepLNG,String) End If If (Original_Hea_DestLNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(218).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(219).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(218).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(219).Value = CType(Original_Hea_DestLNG,String) End If If (Original_Hea_PayTy Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(220).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(221).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(220).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(221).Value = CType(Original_Hea_PayTy,String) End If If (Original_Hea_DefPayRef.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(222).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(223).Value = CType(Original_Hea_DefPayRef.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(222).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(223).Value = Global.System.DBNull.Value End If If (Original_Hea_PerPayRef.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(224).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(225).Value = CType(Original_Hea_PerPayRef.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(224).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(225).Value = Global.System.DBNull.Value End If If (Original_Hea_PayMet.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(226).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(227).Value = CType(Original_Hea_PayMet.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(226).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(227).Value = Global.System.DBNull.Value End If If (Original_Hea_AExpRef.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(228).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(229).Value = CType(Original_Hea_AExpRef.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(228).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(229).Value = Global.System.DBNull.Value End If If (Original_Hea_Fin Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(230).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(231).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(230).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(231).Value = CType(Original_Hea_Fin,String) End If Me.Adapter.UpdateCommand.Parameters(232).Value = CType(Original_Hea_Simp,Boolean) If (Original_Hea_IssD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(233).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = CType(Original_Hea_IssD.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(233).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(234).Value = Global.System.DBNull.Value End If If (Original_Hea_AuthID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(235).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(235).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(236).Value = CType(Original_Hea_AuthID,String) End If If (Original_Hea_TransDat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(237).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = CType(Original_Hea_TransDat.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(237).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(238).Value = Global.System.DBNull.Value End If If (Original_Hea_WoffD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(239).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = CType(Original_Hea_WoffD.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(239).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(240).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(241).Value = CType(Original_Hea_DecDT,Date) If (Original_Hea_DecPlc Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Hea_DecPlc") Else Me.Adapter.UpdateCommand.Parameters(242).Value = CType(Original_Hea_DecPlc,String) End If If (Original_Hea_AccDT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(243).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = CType(Original_Hea_AccDT.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(243).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(244).Value = Global.System.DBNull.Value End If If (Original_Hea_SecInd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(245).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = CType(Original_Hea_SecInd.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(245).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(246).Value = Global.System.DBNull.Value End If If (Original_Hea_ComRef Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(247).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(247).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(248).Value = CType(Original_Hea_ComRef,String) End If If (Original_Hea_ProArrDT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(249).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = CType(Original_Hea_ProArrDT.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(249).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(250).Value = Global.System.DBNull.Value End If If (Original_Hea_PlaDepDT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(251).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = CType(Original_Hea_PlaDepDT.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(251).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(252).Value = Global.System.DBNull.Value End If If (Original_Locs_TradCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(253).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(253).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(254).Value = CType(Original_Locs_TradCtry,String) End If If (Original_Locs_Disp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(255).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(255).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(256).Value = CType(Original_Locs_Disp,String) End If If (Original_Locs_Dest Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(257).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(257).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(258).Value = CType(Original_Locs_Dest,String) End If If (Original_Locs_GdsLocCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(259).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(259).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(260).Value = CType(Original_Locs_GdsLocCd,String) End If If (Original_Locs_GdsLoc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(261).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(261).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(262).Value = CType(Original_Locs_GdsLoc,String) End If If (Original_Locs_GdsLocAuth Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(263).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(263).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(264).Value = CType(Original_Locs_GdsLocAuth,String) End If If (Original_Locs_LoadPlcCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(265).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(265).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(266).Value = CType(Original_Locs_LoadPlcCd,String) End If If (Original_Locs_LoadPlc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(267).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(267).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(268).Value = CType(Original_Locs_LoadPlc,String) End If If (Original_Locs_CustPlc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(269).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(269).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(270).Value = CType(Original_Locs_CustPlc,String) End If If (Original_Locs_ArrLocCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(271).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(271).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(272).Value = CType(Original_Locs_ArrLocCd,String) End If If (Original_Locs_ArrLoc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(273).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(273).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(274).Value = CType(Original_Locs_ArrLoc,String) End If If (Original_Locs_ArrLocAuth Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(275).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(275).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(276).Value = CType(Original_Locs_ArrLocAuth,String) End If If (Original_Locs_WarTy Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(277).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(277).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(278).Value = CType(Original_Locs_WarTy,String) End If If (Original_Locs_WarCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(279).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(279).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(280).Value = CType(Original_Locs_WarCtry,String) End If If (Original_Locs_War Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(281).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(281).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(282).Value = CType(Original_Locs_War,String) End If If (Original_Transp_InMo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(283).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = CType(Original_Transp_InMo.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(283).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(284).Value = Global.System.DBNull.Value End If If (Original_Transp_BordMo.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(285).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = CType(Original_Transp_BordMo.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(285).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(286).Value = Global.System.DBNull.Value End If If (Original_Transp_DepTy.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(287).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = CType(Original_Transp_DepTy.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(287).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(288).Value = Global.System.DBNull.Value End If If (Original_Transp_DepIdnt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(289).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(289).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(290).Value = CType(Original_Transp_DepIdnt,String) End If If (Original_Transp_DepNat Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(291).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(291).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(292).Value = CType(Original_Transp_DepNat,String) End If If (Original_Transp_CrossTy.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(293).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = CType(Original_Transp_CrossTy.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(293).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(294).Value = Global.System.DBNull.Value End If If (Original_Transp_CrossIdnt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(295).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(295).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(296).Value = CType(Original_Transp_CrossIdnt,String) End If If (Original_Transp_CrossIdntNat Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(297).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(297).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(298).Value = CType(Original_Transp_CrossIdntNat,String) End If If (Original_Transp_ContInd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(299).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = CType(Original_Transp_ContInd.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(299).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(300).Value = Global.System.DBNull.Value End If If (Original_ValData_TermDelCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(301).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(301).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(302).Value = CType(Original_ValData_TermDelCd,String) End If If (Original_ValData_TermDelPlc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(303).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(303).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(304).Value = CType(Original_ValData_TermDelPlc,String) End If If (Original_ValData_TermDelSit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(305).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(305).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(306).Value = CType(Original_ValData_TermDelSit,String) End If If (Original_ValData_InvCurr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(307).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(307).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(308).Value = CType(Original_ValData_InvCurr,String) End If If (Original_ValData_ExRa.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(309).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = CType(Original_ValData_ExRa.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(309).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(310).Value = Global.System.DBNull.Value End If If (Original_ValData_InvVal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(311).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = CType(Original_ValData_InvVal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(311).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(312).Value = Global.System.DBNull.Value End If If (Original_ValData_TransacCd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(313).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = CType(Original_ValData_TransacCd.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(313).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(314).Value = Global.System.DBNull.Value End If If (Original_ConorTra_Na Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(315).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(315).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(316).Value = CType(Original_ConorTra_Na,String) End If If (Original_ConorTra_Strt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(317).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(317).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(318).Value = CType(Original_ConorTra_Strt,String) End If If (Original_ConorTra_Pst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(319).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(319).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(320).Value = CType(Original_ConorTra_Pst,String) End If If (Original_ConorTra_Cty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(321).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(321).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(322).Value = CType(Original_ConorTra_Cty,String) End If If (Original_ConorTra_Ctry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(323).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(323).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(324).Value = CType(Original_ConorTra_Ctry,String) End If If (Original_ConorTra_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(325).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(325).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(326).Value = CType(Original_ConorTra_TIN,String) End If If (Original_ConorTra_UIDCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(327).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(327).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(328).Value = CType(Original_ConorTra_UIDCtry,String) End If If (Original_ConorTra_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(329).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(329).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(330).Value = CType(Original_ConorTra_UID,String) End If If (Original_ConeeTra_Na Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(331).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(331).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(332).Value = CType(Original_ConeeTra_Na,String) End If If (Original_ConeeTra_Strt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(333).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(333).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(334).Value = CType(Original_ConeeTra_Strt,String) End If If (Original_ConeeTra_Pst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(335).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(335).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(336).Value = CType(Original_ConeeTra_Pst,String) End If If (Original_ConeeTra_Cty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(337).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(337).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(338).Value = CType(Original_ConeeTra_Cty,String) End If If (Original_ConeeTra_Ctry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(339).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(339).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(340).Value = CType(Original_ConeeTra_Ctry,String) End If If (Original_ConeeTra_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(341).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(341).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(342).Value = CType(Original_ConeeTra_TIN,String) End If If (Original_ConeeTra_UIDCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(343).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(343).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(344).Value = CType(Original_ConeeTra_UIDCtry,String) End If If (Original_ConeeTra_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(345).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(345).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(346).Value = CType(Original_ConeeTra_UID,String) End If If (Original_ExpTra_Na Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(347).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(347).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(348).Value = CType(Original_ExpTra_Na,String) End If If (Original_ExpTra_Strt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(349).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(349).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(350).Value = CType(Original_ExpTra_Strt,String) End If If (Original_ExpTra_Pst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(351).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(352).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(351).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(352).Value = CType(Original_ExpTra_Pst,String) End If If (Original_ExpTra_Cty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(353).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(354).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(353).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(354).Value = CType(Original_ExpTra_Cty,String) End If If (Original_ExpTra_Ctry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(355).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(356).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(355).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(356).Value = CType(Original_ExpTra_Ctry,String) End If If (Original_ExpTra_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(357).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(358).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(357).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(358).Value = CType(Original_ExpTra_TIN,String) End If If (Original_ExpTra_UIDCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(359).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(360).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(359).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(360).Value = CType(Original_ExpTra_UIDCtry,String) End If If (Original_ExpTra_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(361).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(362).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(361).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(362).Value = CType(Original_ExpTra_UID,String) End If If (Original_Declarant_Na Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(363).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(364).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(363).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(364).Value = CType(Original_Declarant_Na,String) End If If (Original_Declarant_Strt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(365).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(366).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(365).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(366).Value = CType(Original_Declarant_Strt,String) End If If (Original_Declarant_Pst Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(367).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(368).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(367).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(368).Value = CType(Original_Declarant_Pst,String) End If If (Original_Declarant_Cty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(369).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(370).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(369).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(370).Value = CType(Original_Declarant_Cty,String) End If If (Original_Declarant_Ctry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(371).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(372).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(371).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(372).Value = CType(Original_Declarant_Ctry,String) End If If (Original_Declarant_TIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(373).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(374).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(373).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(374).Value = CType(Original_Declarant_TIN,String) End If If (Original_Declarant_UIDCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(375).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(376).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(375).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(376).Value = CType(Original_Declarant_UIDCtry,String) End If If (Original_Declarant_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(377).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(378).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(377).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(378).Value = CType(Original_Declarant_UID,String) End If If (Original_Declarant_DecRep.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(379).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(380).Value = CType(Original_Declarant_DecRep.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(379).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(380).Value = Global.System.DBNull.Value End If If (Original_Represent_RIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(381).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(382).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(381).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(382).Value = CType(Original_Represent_RIN,String) End If If (Original_Represent_Na Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(383).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(384).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(383).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(384).Value = CType(Original_Represent_Na,String) End If If (Original_EntryCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(385).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(386).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(385).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(386).Value = CType(Original_EntryCO_Ref,String) End If If (Original_ExitCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(387).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(388).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(387).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(388).Value = CType(Original_ExitCO_Ref,String) End If If (Original_SurvCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(389).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(390).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(389).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(390).Value = CType(Original_SurvCO_Ref,String) End If If (Original_DestCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(391).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(392).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(391).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(392).Value = CType(Original_DestCO_Ref,String) End If If (Original_PresCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(393).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(394).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(393).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(394).Value = CType(Original_PresCO_Ref,String) End If If (Original_DepCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(395).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(396).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(395).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(396).Value = CType(Original_DepCO_Ref,String) End If If (Original_CtrlRslt_ResCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(397).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(398).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(397).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(398).Value = CType(Original_CtrlRslt_ResCd,String) End If If (Original_CtrlRslt_DLimit.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(399).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(400).Value = CType(Original_CtrlRslt_DLimit.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(399).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(400).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(401).Value = CType(Original_telnam_aktuellsteNachricht,Boolean) Me.Adapter.UpdateCommand.Parameters(402).Value = CType(telanm_id,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 telanm_ART As String, _ ByVal telanm_BezugsNr As String, _ ByVal telanm_Status As Integer, _ ByVal telanm_Status_KEWILL_Equivalent As Integer, _ ByVal telanm_AvisoId As Global.System.Nullable(Of Integer), _ ByVal telanm_SendungsId As Global.System.Nullable(Of Integer), _ ByVal telanm_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal telanm_Mitteilung_dsId As Global.System.Nullable(Of Integer), _ ByVal telanm_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal telanm_LNR As String, _ ByVal telanm_CRN As String, _ ByVal telanm_Erstellung As Date, _ ByVal telanm_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal telanm_LetzteBearbeitung As Date, _ ByVal telanm_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal telanm_firma As String, _ ByVal telanm_niederlassung As String, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal TransferStatus As String, _ ByVal MsgType As String, _ ByVal dec_ProzessArt As String, _ ByVal dec_Anmelde_ID As Global.System.Nullable(Of Integer), _ ByVal dec_Template_ID As Global.System.Nullable(Of Integer), _ ByVal dec_Lager_ID As String, _ ByVal dec_Lag_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_CreateDate As Date, _ ByVal dec_CreatePersonalID As String, _ ByVal dec_PreDec_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_TotNet As Global.System.Nullable(Of Decimal), _ ByVal dec_TotNetSplit_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_FillPackList_IND As Global.System.Nullable(Of Boolean), _ ByVal dec_Memo As String, _ ByVal Refs_LRN As String, _ ByVal Refs_CRN As String, _ ByVal Refs_CSRN As String, _ ByVal Refs_ERN As String, _ ByVal Refs_FRN As String, _ ByVal Refs_Stat As String, _ ByVal Hea_DecTy As String, _ ByVal Hea_TotItem As Integer, _ ByVal Hea_TotPack As Global.System.Nullable(Of Integer), _ ByVal Hea_TotGross As Global.System.Nullable(Of Decimal), _ ByVal Hea_DepLNG As String, _ ByVal Hea_DestLNG As String, _ ByVal Hea_PayTy As String, _ ByVal Hea_DefPayRef As Global.System.Nullable(Of Integer), _ ByVal Hea_PerPayRef As Global.System.Nullable(Of Integer), _ ByVal Hea_PayMet As Global.System.Nullable(Of Integer), _ ByVal Hea_AExpRef As Global.System.Nullable(Of Boolean), _ ByVal Hea_Fin As String, _ ByVal Hea_Simp As Boolean, _ ByVal Hea_IssD As Global.System.Nullable(Of Date), _ ByVal Hea_AuthID As String, _ ByVal Hea_TransDat As Global.System.Nullable(Of Boolean), _ ByVal Hea_WoffD As Global.System.Nullable(Of Date), _ ByVal Hea_DecDT As Date, _ ByVal Hea_DecPlc As String, _ ByVal Hea_AccDT As Global.System.Nullable(Of Date), _ ByVal Hea_SecInd As Global.System.Nullable(Of Boolean), _ ByVal Hea_ComRef As String, _ ByVal Hea_ProArrDT As Global.System.Nullable(Of Date), _ ByVal Hea_PlaDepDT As Global.System.Nullable(Of Date), _ ByVal Locs_TradCtry As String, _ ByVal Locs_Disp As String, _ ByVal Locs_Dest As String, _ ByVal Locs_GdsLocCd As String, _ ByVal Locs_GdsLoc As String, _ ByVal Locs_GdsLocAuth As String, _ ByVal Locs_LoadPlcCd As String, _ ByVal Locs_LoadPlc As String, _ ByVal Locs_CustPlc As String, _ ByVal Locs_ArrLocCd As String, _ ByVal Locs_ArrLoc As String, _ ByVal Locs_ArrLocAuth As String, _ ByVal Locs_WarTy As String, _ ByVal Locs_WarCtry As String, _ ByVal Locs_War As String, _ ByVal Transp_InMo As Global.System.Nullable(Of Integer), _ ByVal Transp_BordMo As Global.System.Nullable(Of Integer), _ ByVal Transp_DepTy As Global.System.Nullable(Of Integer), _ ByVal Transp_DepIdnt As String, _ ByVal Transp_DepNat As String, _ ByVal Transp_CrossTy As Global.System.Nullable(Of Integer), _ ByVal Transp_CrossIdnt As String, _ ByVal Transp_CrossIdntNat As String, _ ByVal Transp_ContInd As Global.System.Nullable(Of Boolean), _ ByVal ValData_TermDelCd As String, _ ByVal ValData_TermDelPlc As String, _ ByVal ValData_TermDelSit As String, _ ByVal ValData_InvCurr As String, _ ByVal ValData_ExRa As Global.System.Nullable(Of Decimal), _ ByVal ValData_InvVal As Global.System.Nullable(Of Decimal), _ ByVal ValData_TransacCd As Global.System.Nullable(Of Integer), _ ByVal ConorTra_Na As String, _ ByVal ConorTra_Strt As String, _ ByVal ConorTra_Pst As String, _ ByVal ConorTra_Cty As String, _ ByVal ConorTra_Ctry As String, _ ByVal ConorTra_TIN As String, _ ByVal ConorTra_UIDCtry As String, _ ByVal ConorTra_UID As String, _ ByVal ConeeTra_Na As String, _ ByVal ConeeTra_Strt As String, _ ByVal ConeeTra_Pst As String, _ ByVal ConeeTra_Cty As String, _ ByVal ConeeTra_Ctry As String, _ ByVal ConeeTra_TIN As String, _ ByVal ConeeTra_UIDCtry As String, _ ByVal ConeeTra_UID As String, _ ByVal ExpTra_Na As String, _ ByVal ExpTra_Strt As String, _ ByVal ExpTra_Pst As String, _ ByVal ExpTra_Cty As String, _ ByVal ExpTra_Ctry As String, _ ByVal ExpTra_TIN As String, _ ByVal ExpTra_UIDCtry As String, _ ByVal ExpTra_UID As String, _ ByVal Declarant_Na As String, _ ByVal Declarant_Strt As String, _ ByVal Declarant_Pst As String, _ ByVal Declarant_Cty As String, _ ByVal Declarant_Ctry As String, _ ByVal Declarant_TIN As String, _ ByVal Declarant_UIDCtry As String, _ ByVal Declarant_UID As String, _ ByVal Declarant_DecRep As Global.System.Nullable(Of Integer), _ ByVal Represent_RIN As String, _ ByVal Represent_Na As String, _ ByVal EntryCO_Ref As String, _ ByVal ExitCO_Ref As String, _ ByVal SurvCO_Ref As String, _ ByVal DestCO_Ref As String, _ ByVal PresCO_Ref As String, _ ByVal DepCO_Ref As String, _ ByVal CtrlRslt_ResCd As String, _ ByVal CtrlRslt_DLimit As Global.System.Nullable(Of Date), _ ByVal telnam_aktuellsteNachricht As Boolean, _ ByVal Original_telanm_id As Integer, _ ByVal Original_telanm_ART As String, _ ByVal Original_telanm_BezugsNr As String, _ ByVal Original_telanm_Status As Integer, _ ByVal Original_telanm_Status_KEWILL_Equivalent As Integer, _ ByVal Original_telanm_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_SendungsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_Steuerbescheid_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_Mitteilung_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_VBD_dsId As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_LNR As String, _ ByVal Original_telanm_CRN As String, _ ByVal Original_telanm_Erstellung As Date, _ ByVal Original_telanm_Erstellung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_LetzteBearbeitung As Date, _ ByVal Original_telanm_LetzteBearbeitung_SB As Global.System.Nullable(Of Integer), _ ByVal Original_telanm_firma As String, _ ByVal Original_telanm_niederlassung As String, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_TransferStatus As String, _ ByVal Original_MsgType As String, _ ByVal Original_dec_ProzessArt As String, _ ByVal Original_dec_Anmelde_ID As Global.System.Nullable(Of Integer), _ ByVal Original_dec_Template_ID As Global.System.Nullable(Of Integer), _ ByVal Original_dec_Lager_ID As String, _ ByVal Original_dec_Lag_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_CreateDate As Date, _ ByVal Original_dec_CreatePersonalID As String, _ ByVal Original_dec_PreDec_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_TotNet As Global.System.Nullable(Of Decimal), _ ByVal Original_dec_TotNetSplit_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_FillPackList_IND As Global.System.Nullable(Of Boolean), _ ByVal Original_dec_Memo As String, _ ByVal Original_Refs_LRN As String, _ ByVal Original_Refs_CRN As String, _ ByVal Original_Refs_CSRN As String, _ ByVal Original_Refs_ERN As String, _ ByVal Original_Refs_FRN As String, _ ByVal Original_Refs_Stat As String, _ ByVal Original_Hea_DecTy As String, _ ByVal Original_Hea_TotItem As Integer, _ ByVal Original_Hea_TotPack As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_TotGross As Global.System.Nullable(Of Decimal), _ ByVal Original_Hea_DepLNG As String, _ ByVal Original_Hea_DestLNG As String, _ ByVal Original_Hea_PayTy As String, _ ByVal Original_Hea_DefPayRef As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_PerPayRef As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_PayMet As Global.System.Nullable(Of Integer), _ ByVal Original_Hea_AExpRef As Global.System.Nullable(Of Boolean), _ ByVal Original_Hea_Fin As String, _ ByVal Original_Hea_Simp As Boolean, _ ByVal Original_Hea_IssD As Global.System.Nullable(Of Date), _ ByVal Original_Hea_AuthID As String, _ ByVal Original_Hea_TransDat As Global.System.Nullable(Of Boolean), _ ByVal Original_Hea_WoffD As Global.System.Nullable(Of Date), _ ByVal Original_Hea_DecDT As Date, _ ByVal Original_Hea_DecPlc As String, _ ByVal Original_Hea_AccDT As Global.System.Nullable(Of Date), _ ByVal Original_Hea_SecInd As Global.System.Nullable(Of Boolean), _ ByVal Original_Hea_ComRef As String, _ ByVal Original_Hea_ProArrDT As Global.System.Nullable(Of Date), _ ByVal Original_Hea_PlaDepDT As Global.System.Nullable(Of Date), _ ByVal Original_Locs_TradCtry As String, _ ByVal Original_Locs_Disp As String, _ ByVal Original_Locs_Dest As String, _ ByVal Original_Locs_GdsLocCd As String, _ ByVal Original_Locs_GdsLoc As String, _ ByVal Original_Locs_GdsLocAuth As String, _ ByVal Original_Locs_LoadPlcCd As String, _ ByVal Original_Locs_LoadPlc As String, _ ByVal Original_Locs_CustPlc As String, _ ByVal Original_Locs_ArrLocCd As String, _ ByVal Original_Locs_ArrLoc As String, _ ByVal Original_Locs_ArrLocAuth As String, _ ByVal Original_Locs_WarTy As String, _ ByVal Original_Locs_WarCtry As String, _ ByVal Original_Locs_War As String, _ ByVal Original_Transp_InMo As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_BordMo As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_DepTy As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_DepIdnt As String, _ ByVal Original_Transp_DepNat As String, _ ByVal Original_Transp_CrossTy As Global.System.Nullable(Of Integer), _ ByVal Original_Transp_CrossIdnt As String, _ ByVal Original_Transp_CrossIdntNat As String, _ ByVal Original_Transp_ContInd As Global.System.Nullable(Of Boolean), _ ByVal Original_ValData_TermDelCd As String, _ ByVal Original_ValData_TermDelPlc As String, _ ByVal Original_ValData_TermDelSit As String, _ ByVal Original_ValData_InvCurr As String, _ ByVal Original_ValData_ExRa As Global.System.Nullable(Of Decimal), _ ByVal Original_ValData_InvVal As Global.System.Nullable(Of Decimal), _ ByVal Original_ValData_TransacCd As Global.System.Nullable(Of Integer), _ ByVal Original_ConorTra_Na As String, _ ByVal Original_ConorTra_Strt As String, _ ByVal Original_ConorTra_Pst As String, _ ByVal Original_ConorTra_Cty As String, _ ByVal Original_ConorTra_Ctry As String, _ ByVal Original_ConorTra_TIN As String, _ ByVal Original_ConorTra_UIDCtry As String, _ ByVal Original_ConorTra_UID As String, _ ByVal Original_ConeeTra_Na As String, _ ByVal Original_ConeeTra_Strt As String, _ ByVal Original_ConeeTra_Pst As String, _ ByVal Original_ConeeTra_Cty As String, _ ByVal Original_ConeeTra_Ctry As String, _ ByVal Original_ConeeTra_TIN As String, _ ByVal Original_ConeeTra_UIDCtry As String, _ ByVal Original_ConeeTra_UID As String, _ ByVal Original_ExpTra_Na As String, _ ByVal Original_ExpTra_Strt As String, _ ByVal Original_ExpTra_Pst As String, _ ByVal Original_ExpTra_Cty As String, _ ByVal Original_ExpTra_Ctry As String, _ ByVal Original_ExpTra_TIN As String, _ ByVal Original_ExpTra_UIDCtry As String, _ ByVal Original_ExpTra_UID As String, _ ByVal Original_Declarant_Na As String, _ ByVal Original_Declarant_Strt As String, _ ByVal Original_Declarant_Pst As String, _ ByVal Original_Declarant_Cty As String, _ ByVal Original_Declarant_Ctry As String, _ ByVal Original_Declarant_TIN As String, _ ByVal Original_Declarant_UIDCtry As String, _ ByVal Original_Declarant_UID As String, _ ByVal Original_Declarant_DecRep As Global.System.Nullable(Of Integer), _ ByVal Original_Represent_RIN As String, _ ByVal Original_Represent_Na As String, _ ByVal Original_EntryCO_Ref As String, _ ByVal Original_ExitCO_Ref As String, _ ByVal Original_SurvCO_Ref As String, _ ByVal Original_DestCO_Ref As String, _ ByVal Original_PresCO_Ref As String, _ ByVal Original_DepCO_Ref As String, _ ByVal Original_CtrlRslt_ResCd As String, _ ByVal Original_CtrlRslt_DLimit As Global.System.Nullable(Of Date), _ ByVal Original_telnam_aktuellsteNachricht As Boolean) As Integer Return Me.Update(telanm_ART, telanm_BezugsNr, telanm_Status, telanm_Status_KEWILL_Equivalent, telanm_AvisoId, telanm_SendungsId, telanm_Steuerbescheid_dsId, telanm_Mitteilung_dsId, telanm_VBD_dsId, telanm_LNR, telanm_CRN, telanm_Erstellung, telanm_Erstellung_SB, telanm_LetzteBearbeitung, telanm_LetzteBearbeitung_SB, telanm_firma, telanm_niederlassung, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, TransferStatus, MsgType, dec_ProzessArt, dec_Anmelde_ID, dec_Template_ID, dec_Lager_ID, dec_Lag_IND, dec_CreateDate, dec_CreatePersonalID, dec_PreDec_IND, dec_TotNet, dec_TotNetSplit_IND, dec_FillPackList_IND, dec_Memo, Refs_LRN, Refs_CRN, Refs_CSRN, Refs_ERN, Refs_FRN, Refs_Stat, Hea_DecTy, Hea_TotItem, Hea_TotPack, Hea_TotGross, Hea_DepLNG, Hea_DestLNG, Hea_PayTy, Hea_DefPayRef, Hea_PerPayRef, Hea_PayMet, Hea_AExpRef, Hea_Fin, Hea_Simp, Hea_IssD, Hea_AuthID, Hea_TransDat, Hea_WoffD, Hea_DecDT, Hea_DecPlc, Hea_AccDT, Hea_SecInd, Hea_ComRef, Hea_ProArrDT, Hea_PlaDepDT, Locs_TradCtry, Locs_Disp, Locs_Dest, Locs_GdsLocCd, Locs_GdsLoc, Locs_GdsLocAuth, Locs_LoadPlcCd, Locs_LoadPlc, Locs_CustPlc, Locs_ArrLocCd, Locs_ArrLoc, Locs_ArrLocAuth, Locs_WarTy, Locs_WarCtry, Locs_War, Transp_InMo, Transp_BordMo, Transp_DepTy, Transp_DepIdnt, Transp_DepNat, Transp_CrossTy, Transp_CrossIdnt, Transp_CrossIdntNat, Transp_ContInd, ValData_TermDelCd, ValData_TermDelPlc, ValData_TermDelSit, ValData_InvCurr, ValData_ExRa, ValData_InvVal, ValData_TransacCd, ConorTra_Na, ConorTra_Strt, ConorTra_Pst, ConorTra_Cty, ConorTra_Ctry, ConorTra_TIN, ConorTra_UIDCtry, ConorTra_UID, ConeeTra_Na, ConeeTra_Strt, ConeeTra_Pst, ConeeTra_Cty, ConeeTra_Ctry, ConeeTra_TIN, ConeeTra_UIDCtry, ConeeTra_UID, ExpTra_Na, ExpTra_Strt, ExpTra_Pst, ExpTra_Cty, ExpTra_Ctry, ExpTra_TIN, ExpTra_UIDCtry, ExpTra_UID, Declarant_Na, Declarant_Strt, Declarant_Pst, Declarant_Cty, Declarant_Ctry, Declarant_TIN, Declarant_UIDCtry, Declarant_UID, Declarant_DecRep, Represent_RIN, Represent_Na, EntryCO_Ref, ExitCO_Ref, SurvCO_Ref, DestCO_Ref, PresCO_Ref, DepCO_Ref, CtrlRslt_ResCd, CtrlRslt_DLimit, telnam_aktuellsteNachricht, Original_telanm_id, Original_telanm_ART, Original_telanm_BezugsNr, Original_telanm_Status, Original_telanm_Status_KEWILL_Equivalent, Original_telanm_AvisoId, Original_telanm_SendungsId, Original_telanm_Steuerbescheid_dsId, Original_telanm_Mitteilung_dsId, Original_telanm_VBD_dsId, Original_telanm_LNR, Original_telanm_CRN, Original_telanm_Erstellung, Original_telanm_Erstellung_SB, Original_telanm_LetzteBearbeitung, Original_telanm_LetzteBearbeitung_SB, Original_telanm_firma, Original_telanm_niederlassung, Original_Mandant_ID, Original_Bereich_ID, Original_Referenz_ID, Original_ComIndicator, Original_TransferStatus, Original_MsgType, Original_dec_ProzessArt, Original_dec_Anmelde_ID, Original_dec_Template_ID, Original_dec_Lager_ID, Original_dec_Lag_IND, Original_dec_CreateDate, Original_dec_CreatePersonalID, Original_dec_PreDec_IND, Original_dec_TotNet, Original_dec_TotNetSplit_IND, Original_dec_FillPackList_IND, Original_dec_Memo, Original_Refs_LRN, Original_Refs_CRN, Original_Refs_CSRN, Original_Refs_ERN, Original_Refs_FRN, Original_Refs_Stat, Original_Hea_DecTy, Original_Hea_TotItem, Original_Hea_TotPack, Original_Hea_TotGross, Original_Hea_DepLNG, Original_Hea_DestLNG, Original_Hea_PayTy, Original_Hea_DefPayRef, Original_Hea_PerPayRef, Original_Hea_PayMet, Original_Hea_AExpRef, Original_Hea_Fin, Original_Hea_Simp, Original_Hea_IssD, Original_Hea_AuthID, Original_Hea_TransDat, Original_Hea_WoffD, Original_Hea_DecDT, Original_Hea_DecPlc, Original_Hea_AccDT, Original_Hea_SecInd, Original_Hea_ComRef, Original_Hea_ProArrDT, Original_Hea_PlaDepDT, Original_Locs_TradCtry, Original_Locs_Disp, Original_Locs_Dest, Original_Locs_GdsLocCd, Original_Locs_GdsLoc, Original_Locs_GdsLocAuth, Original_Locs_LoadPlcCd, Original_Locs_LoadPlc, Original_Locs_CustPlc, Original_Locs_ArrLocCd, Original_Locs_ArrLoc, Original_Locs_ArrLocAuth, Original_Locs_WarTy, Original_Locs_WarCtry, Original_Locs_War, Original_Transp_InMo, Original_Transp_BordMo, Original_Transp_DepTy, Original_Transp_DepIdnt, Original_Transp_DepNat, Original_Transp_CrossTy, Original_Transp_CrossIdnt, Original_Transp_CrossIdntNat, Original_Transp_ContInd, Original_ValData_TermDelCd, Original_ValData_TermDelPlc, Original_ValData_TermDelSit, Original_ValData_InvCurr, Original_ValData_ExRa, Original_ValData_InvVal, Original_ValData_TransacCd, Original_ConorTra_Na, Original_ConorTra_Strt, Original_ConorTra_Pst, Original_ConorTra_Cty, Original_ConorTra_Ctry, Original_ConorTra_TIN, Original_ConorTra_UIDCtry, Original_ConorTra_UID, Original_ConeeTra_Na, Original_ConeeTra_Strt, Original_ConeeTra_Pst, Original_ConeeTra_Cty, Original_ConeeTra_Ctry, Original_ConeeTra_TIN, Original_ConeeTra_UIDCtry, Original_ConeeTra_UID, Original_ExpTra_Na, Original_ExpTra_Strt, Original_ExpTra_Pst, Original_ExpTra_Cty, Original_ExpTra_Ctry, Original_ExpTra_TIN, Original_ExpTra_UIDCtry, Original_ExpTra_UID, Original_Declarant_Na, Original_Declarant_Strt, Original_Declarant_Pst, Original_Declarant_Cty, Original_Declarant_Ctry, Original_Declarant_TIN, Original_Declarant_UIDCtry, Original_Declarant_UID, Original_Declarant_DecRep, Original_Represent_RIN, Original_Represent_Na, Original_EntryCO_Ref, Original_ExitCO_Ref, Original_SurvCO_Ref, Original_DestCO_Ref, Original_PresCO_Ref, Original_DepCO_Ref, Original_CtrlRslt_ResCd, Original_CtrlRslt_DLimit, Original_telnam_aktuellsteNachricht, Original_telanm_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTelotec_PackstueckeTableAdapter 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 = "tblTelotec_Packstuecke" tableMapping.ColumnMappings.Add("telpospk_id", "telpospk_id") tableMapping.ColumnMappings.Add("telpospk_telanmId", "telpospk_telanmId") tableMapping.ColumnMappings.Add("telpospk_telposId", "telpospk_telposId") tableMapping.ColumnMappings.Add("Mandant_ID", "Mandant_ID") tableMapping.ColumnMappings.Add("Bereich_ID", "Bereich_ID") tableMapping.ColumnMappings.Add("Referenz_ID", "Referenz_ID") tableMapping.ColumnMappings.Add("ComIndicator", "ComIndicator") tableMapping.ColumnMappings.Add("Pos_ID", "Pos_ID") tableMapping.ColumnMappings.Add("Pack_ID", "Pack_ID") tableMapping.ColumnMappings.Add("Pack_Mark", "Pack_Mark") tableMapping.ColumnMappings.Add("Pack_Kind", "Pack_Kind") tableMapping.ColumnMappings.Add("Pack_Nr", "Pack_Nr") tableMapping.ColumnMappings.Add("Pack_Piec", "Pack_Piec") tableMapping.ColumnMappings.Add("Telo_Gross", "Telo_Gross") 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].[tblTelotec_Packstuecke] WHERE (([telpospk_id] = @Original_telp"& _ "ospk_id) AND ([telpospk_telanmId] = @Original_telpospk_telanmId) AND ([telpospk_"& _ "telposId] = @Original_telpospk_telposId) AND ([Mandant_ID] = @Original_Mandant_I"& _ "D) AND ([Bereich_ID] = @Original_Bereich_ID) AND ([Referenz_ID] = @Original_Refe"& _ "renz_ID) AND ([ComIndicator] = @Original_ComIndicator) AND ([Pos_ID] = @Original"& _ "_Pos_ID) AND ([Pack_ID] = @Original_Pack_ID) AND ((@IsNull_Pack_Mark = 1 AND [Pa"& _ "ck_Mark] IS NULL) OR ([Pack_Mark] = @Original_Pack_Mark)) AND ((@IsNull_Pack_Kin"& _ "d = 1 AND [Pack_Kind] IS NULL) OR ([Pack_Kind] = @Original_Pack_Kind)) AND ((@Is"& _ "Null_Pack_Nr = 1 AND [Pack_Nr] IS NULL) OR ([Pack_Nr] = @Original_Pack_Nr)) AND "& _ "((@IsNull_Pack_Piec = 1 AND [Pack_Piec] IS NULL) OR ([Pack_Piec] = @Original_Pac"& _ "k_Piec)) AND ((@IsNull_Telo_Gross = 1 AND [Telo_Gross] IS NULL) OR ([Telo_Gross]"& _ " = @Original_Telo_Gross)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telpospk_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telpospk_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telpospk_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_telposId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pack_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Pack_Mark", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Mark", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pack_Mark", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Mark", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Pack_Kind", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Kind", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pack_Kind", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Kind", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Pack_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Nr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pack_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Pack_Piec", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Piec", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pack_Piec", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Piec", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Telo_Gross", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_Gross", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Telo_Gross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Telo_Gross", 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].[tblTelotec_Packstuecke] ([telpospk_telanmId], [telpospk_telpos"& _ "Id], [Mandant_ID], [Bereich_ID], [Referenz_ID], [ComIndicator], [Pos_ID], [Pack_"& _ "ID], [Pack_Mark], [Pack_Kind], [Pack_Nr], [Pack_Piec], [Telo_Gross]) VALUES (@te"& _ "lpospk_telanmId, @telpospk_telposId, @Mandant_ID, @Bereich_ID, @Referenz_ID, @Co"& _ "mIndicator, @Pos_ID, @Pack_ID, @Pack_Mark, @Pack_Kind, @Pack_Nr, @Pack_Piec, @Te"& _ "lo_Gross);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT telpospk_id, telpospk_telanmId, telpospk_telposId, Mandant_ID"& _ ", Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, Pack_ID, Pack_Mark, Pack_Kind, "& _ "Pack_Nr, Pack_Piec, Telo_Gross FROM tblTelotec_Packstuecke WHERE (telpospk_id = "& _ "SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telpospk_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telpospk_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_telposId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pack_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pack_Mark", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Mark", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pack_Kind", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Kind", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pack_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pack_Piec", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Piec", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telo_Gross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Telo_Gross", 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].[tblTelotec_Packstuecke] SET [telpospk_telanmId] = @telpospk_telanmI"& _ "d, [telpospk_telposId] = @telpospk_telposId, [Mandant_ID] = @Mandant_ID, [Bereic"& _ "h_ID] = @Bereich_ID, [Referenz_ID] = @Referenz_ID, [ComIndicator] = @ComIndicato"& _ "r, [Pos_ID] = @Pos_ID, [Pack_ID] = @Pack_ID, [Pack_Mark] = @Pack_Mark, [Pack_Kin"& _ "d] = @Pack_Kind, [Pack_Nr] = @Pack_Nr, [Pack_Piec] = @Pack_Piec, [Telo_Gross] = "& _ "@Telo_Gross WHERE (([telpospk_id] = @Original_telpospk_id) AND ([telpospk_telanm"& _ "Id] = @Original_telpospk_telanmId) AND ([telpospk_telposId] = @Original_telpospk"& _ "_telposId) AND ([Mandant_ID] = @Original_Mandant_ID) AND ([Bereich_ID] = @Origin"& _ "al_Bereich_ID) AND ([Referenz_ID] = @Original_Referenz_ID) AND ([ComIndicator] ="& _ " @Original_ComIndicator) AND ([Pos_ID] = @Original_Pos_ID) AND ([Pack_ID] = @Ori"& _ "ginal_Pack_ID) AND ((@IsNull_Pack_Mark = 1 AND [Pack_Mark] IS NULL) OR ([Pack_Ma"& _ "rk] = @Original_Pack_Mark)) AND ((@IsNull_Pack_Kind = 1 AND [Pack_Kind] IS NULL)"& _ " OR ([Pack_Kind] = @Original_Pack_Kind)) AND ((@IsNull_Pack_Nr = 1 AND [Pack_Nr]"& _ " IS NULL) OR ([Pack_Nr] = @Original_Pack_Nr)) AND ((@IsNull_Pack_Piec = 1 AND [P"& _ "ack_Piec] IS NULL) OR ([Pack_Piec] = @Original_Pack_Piec)) AND ((@IsNull_Telo_Gr"& _ "oss = 1 AND [Telo_Gross] IS NULL) OR ([Telo_Gross] = @Original_Telo_Gross)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT telpospk_id, telpospk_telanmId, telpospk_telposId, Mandant_ID, Bereich_ID,"& _ " Referenz_ID, ComIndicator, Pos_ID, Pack_ID, Pack_Mark, Pack_Kind, Pack_Nr, Pack"& _ "_Piec, Telo_Gross FROM tblTelotec_Packstuecke WHERE (telpospk_id = @telpospk_id)"& _ "" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telpospk_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telpospk_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_telposId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pack_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pack_Mark", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Mark", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pack_Kind", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Kind", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pack_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pack_Piec", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Piec", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telo_Gross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Telo_Gross", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telpospk_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telpospk_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telpospk_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_telposId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pack_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Pack_Mark", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Mark", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pack_Mark", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Mark", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Pack_Kind", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Kind", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pack_Kind", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Kind", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Pack_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Nr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pack_Nr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Nr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Pack_Piec", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Piec", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pack_Piec", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pack_Piec", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Telo_Gross", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_Gross", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Telo_Gross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Telo_Gross", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telpospk_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "telpospk_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 telpospk_id, telpospk_telanmId, telpospk_telposId, Mandant_ID, Bereich_ID,"& _ " Referenz_ID, ComIndicator, Pos_ID, Pack_ID, Pack_Mark, Pack_Kind, Pack_Nr, Pack"& _ "_Piec, Telo_Gross FROM dbo.tblTelotec_Packstuecke" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTelotec_PackstueckeDataTable) 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 VERAGDataSet.tblTelotec_PackstueckeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTelotec_PackstueckeDataTable = New VERAGDataSet.tblTelotec_PackstueckeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTelotec_PackstueckeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTelotec_Packstuecke") 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_telpospk_id As Integer, ByVal Original_telpospk_telanmId As Integer, ByVal Original_telpospk_telposId As Integer, ByVal Original_Mandant_ID As String, ByVal Original_Bereich_ID As String, ByVal Original_Referenz_ID As String, ByVal Original_ComIndicator As Boolean, ByVal Original_Pos_ID As Integer, ByVal Original_Pack_ID As Integer, ByVal Original_Pack_Mark As String, ByVal Original_Pack_Kind As String, ByVal Original_Pack_Nr As Global.System.Nullable(Of Integer), ByVal Original_Pack_Piec As Global.System.Nullable(Of Integer), ByVal Original_Telo_Gross As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_telpospk_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_telpospk_telanmId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_telpospk_telposId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Pos_ID,Integer) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Pack_ID,Integer) If (Original_Pack_Mark 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_Pack_Mark,String) End If If (Original_Pack_Kind 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_Pack_Kind,String) End If If (Original_Pack_Nr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Pack_Nr.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_Pack_Piec.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Pack_Piec.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_Telo_Gross.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_Telo_Gross.Value,Decimal) 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 Overloads Overridable Function Insert(ByVal telpospk_telanmId As Integer, ByVal telpospk_telposId As Integer, ByVal Mandant_ID As String, ByVal Bereich_ID As String, ByVal Referenz_ID As String, ByVal ComIndicator As Boolean, ByVal Pos_ID As Integer, ByVal Pack_ID As Integer, ByVal Pack_Mark As String, ByVal Pack_Kind As String, ByVal Pack_Nr As Global.System.Nullable(Of Integer), ByVal Pack_Piec As Global.System.Nullable(Of Integer), ByVal Telo_Gross As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(telpospk_telanmId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(telpospk_telposId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Referenz_ID,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(ComIndicator,Boolean) Me.Adapter.InsertCommand.Parameters(6).Value = CType(Pos_ID,Integer) Me.Adapter.InsertCommand.Parameters(7).Value = CType(Pack_ID,Integer) If (Pack_Mark Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Pack_Mark,String) End If If (Pack_Kind Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Pack_Kind,String) End If If (Pack_Nr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Pack_Nr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Pack_Piec.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Pack_Piec.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Telo_Gross.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(Telo_Gross.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).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 telpospk_telanmId As Integer, _ ByVal telpospk_telposId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal Pack_ID As Integer, _ ByVal Pack_Mark As String, _ ByVal Pack_Kind As String, _ ByVal Pack_Nr As Global.System.Nullable(Of Integer), _ ByVal Pack_Piec As Global.System.Nullable(Of Integer), _ ByVal Telo_Gross As Global.System.Nullable(Of Decimal), _ ByVal Original_telpospk_id As Integer, _ ByVal Original_telpospk_telanmId As Integer, _ ByVal Original_telpospk_telposId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_Pack_ID As Integer, _ ByVal Original_Pack_Mark As String, _ ByVal Original_Pack_Kind As String, _ ByVal Original_Pack_Nr As Global.System.Nullable(Of Integer), _ ByVal Original_Pack_Piec As Global.System.Nullable(Of Integer), _ ByVal Original_Telo_Gross As Global.System.Nullable(Of Decimal), _ ByVal telpospk_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(telpospk_telanmId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(telpospk_telposId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Pos_ID,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Pack_ID,Integer) If (Pack_Mark Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Pack_Mark,String) End If If (Pack_Kind Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Pack_Kind,String) End If If (Pack_Nr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Pack_Nr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Pack_Piec.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Pack_Piec.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Telo_Gross.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Telo_Gross.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_telpospk_id,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_telpospk_telanmId,Integer) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_telpospk_telposId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Pos_ID,Integer) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Pack_ID,Integer) If (Original_Pack_Mark Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Pack_Mark,String) End If If (Original_Pack_Kind 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_Pack_Kind,String) End If If (Original_Pack_Nr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Pack_Nr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_Pack_Piec.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Pack_Piec.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_Telo_Gross.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_Telo_Gross.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(32).Value = CType(telpospk_id,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 telpospk_telanmId As Integer, _ ByVal telpospk_telposId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal Pack_ID As Integer, _ ByVal Pack_Mark As String, _ ByVal Pack_Kind As String, _ ByVal Pack_Nr As Global.System.Nullable(Of Integer), _ ByVal Pack_Piec As Global.System.Nullable(Of Integer), _ ByVal Telo_Gross As Global.System.Nullable(Of Decimal), _ ByVal Original_telpospk_id As Integer, _ ByVal Original_telpospk_telanmId As Integer, _ ByVal Original_telpospk_telposId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_Pack_ID As Integer, _ ByVal Original_Pack_Mark As String, _ ByVal Original_Pack_Kind As String, _ ByVal Original_Pack_Nr As Global.System.Nullable(Of Integer), _ ByVal Original_Pack_Piec As Global.System.Nullable(Of Integer), _ ByVal Original_Telo_Gross As Global.System.Nullable(Of Decimal)) As Integer Return Me.Update(telpospk_telanmId, telpospk_telposId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, Pack_ID, Pack_Mark, Pack_Kind, Pack_Nr, Pack_Piec, Telo_Gross, Original_telpospk_id, Original_telpospk_telanmId, Original_telpospk_telposId, Original_Mandant_ID, Original_Bereich_ID, Original_Referenz_ID, Original_ComIndicator, Original_Pos_ID, Original_Pack_ID, Original_Pack_Mark, Original_Pack_Kind, Original_Pack_Nr, Original_Pack_Piec, Original_Telo_Gross, Original_telpospk_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTelotec_ParamterTableAdapter 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 = "tblTelotec_Paramter" tableMapping.ColumnMappings.Add("tcParam_name", "tcParam_name") tableMapping.ColumnMappings.Add("tcParam_value", "tcParam_value") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblTelotec_Paramter] ([tcParam_name], [tcParam_value]) VALUES "& _ "(@tcParam_name, @tcParam_value)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tcParam_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tcParam_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tcParam_value", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tcParam_value", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 tcParam_name, tcParam_value FROM dbo.tblTelotec_Paramter" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTelotec_ParamterDataTable) 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 VERAGDataSet.tblTelotec_ParamterDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTelotec_ParamterDataTable = New VERAGDataSet.tblTelotec_ParamterDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTelotec_ParamterDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTelotec_Paramter") 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 Insert(ByVal tcParam_name As String, ByVal tcParam_value As String) As Integer If (tcParam_name Is Nothing) Then Throw New Global.System.ArgumentNullException("tcParam_name") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(tcParam_name,String) End If If (tcParam_value Is Nothing) Then Throw New Global.System.ArgumentNullException("tcParam_value") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(tcParam_value,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTelotec_PositionsdatenTableAdapter 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 = "tblTelotec_Positionsdaten" tableMapping.ColumnMappings.Add("telpos_id", "telpos_id") tableMapping.ColumnMappings.Add("telpos_telanmId", "telpos_telanmId") tableMapping.ColumnMappings.Add("Mandant_ID", "Mandant_ID") tableMapping.ColumnMappings.Add("Bereich_ID", "Bereich_ID") tableMapping.ColumnMappings.Add("Referenz_ID", "Referenz_ID") tableMapping.ColumnMappings.Add("ComIndicator", "ComIndicator") tableMapping.ColumnMappings.Add("Pos_ID", "Pos_ID") tableMapping.ColumnMappings.Add("Item_Status", "Item_Status") tableMapping.ColumnMappings.Add("Item_ComCd", "Item_ComCd") tableMapping.ColumnMappings.Add("Item_GdsDes", "Item_GdsDes") tableMapping.ColumnMappings.Add("Item_Gross", "Item_Gross") tableMapping.ColumnMappings.Add("Item_Net", "Item_Net") tableMapping.ColumnMappings.Add("Item_Orig", "Item_Orig") tableMapping.ColumnMappings.Add("Item_ProcCd", "Item_ProcCd") tableMapping.ColumnMappings.Add("Item_ProcAddCd", "Item_ProcAddCd") tableMapping.ColumnMappings.Add("Item_ItVal", "Item_ItVal") tableMapping.ColumnMappings.Add("Item_Pref", "Item_Pref") tableMapping.ColumnMappings.Add("Item_Quota", "Item_Quota") tableMapping.ColumnMappings.Add("Item_ValMet", "Item_ValMet") tableMapping.ColumnMappings.Add("Item_VATInd", "Item_VATInd") tableMapping.ColumnMappings.Add("Item_StatVal", "Item_StatVal") tableMapping.ColumnMappings.Add("SurvCO_Ref", "SurvCO_Ref") tableMapping.ColumnMappings.Add("Telo_Artikel_ID", "Telo_Artikel_ID") tableMapping.ColumnMappings.Add("Telo_Artikelmenge", "Telo_Artikelmenge") tableMapping.ColumnMappings.Add("Telo_ArtikelMEH", "Telo_ArtikelMEH") 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].[tblTelotec_Positionsdaten] WHERE (([telpos_id] = @Original_tel"& _ "pos_id) AND ([telpos_telanmId] = @Original_telpos_telanmId) AND ([Mandant_ID] = "& _ "@Original_Mandant_ID) AND ([Bereich_ID] = @Original_Bereich_ID) AND ([Referenz_I"& _ "D] = @Original_Referenz_ID) AND ([ComIndicator] = @Original_ComIndicator) AND (["& _ "Pos_ID] = @Original_Pos_ID) AND ((@IsNull_Item_Status = 1 AND [Item_Status] IS N"& _ "ULL) OR ([Item_Status] = @Original_Item_Status)) AND ((@IsNull_Item_ComCd = 1 AN"& _ "D [Item_ComCd] IS NULL) OR ([Item_ComCd] = @Original_Item_ComCd)) AND ([Item_Gds"& _ "Des] = @Original_Item_GdsDes) AND ((@IsNull_Item_Gross = 1 AND [Item_Gross] IS N"& _ "ULL) OR ([Item_Gross] = @Original_Item_Gross)) AND ((@IsNull_Item_Net = 1 AND [I"& _ "tem_Net] IS NULL) OR ([Item_Net] = @Original_Item_Net)) AND ((@IsNull_Item_Orig "& _ "= 1 AND [Item_Orig] IS NULL) OR ([Item_Orig] = @Original_Item_Orig)) AND ((@IsNu"& _ "ll_Item_ProcCd = 1 AND [Item_ProcCd] IS NULL) OR ([Item_ProcCd] = @Original_Item"& _ "_ProcCd)) AND ((@IsNull_Item_ProcAddCd = 1 AND [Item_ProcAddCd] IS NULL) OR ([It"& _ "em_ProcAddCd] = @Original_Item_ProcAddCd)) AND ((@IsNull_Item_ItVal = 1 AND [Ite"& _ "m_ItVal] IS NULL) OR ([Item_ItVal] = @Original_Item_ItVal)) AND ((@IsNull_Item_P"& _ "ref = 1 AND [Item_Pref] IS NULL) OR ([Item_Pref] = @Original_Item_Pref)) AND ((@"& _ "IsNull_Item_Quota = 1 AND [Item_Quota] IS NULL) OR ([Item_Quota] = @Original_Ite"& _ "m_Quota)) AND ((@IsNull_Item_ValMet = 1 AND [Item_ValMet] IS NULL) OR ([Item_Val"& _ "Met] = @Original_Item_ValMet)) AND ((@IsNull_Item_VATInd = 1 AND [Item_VATInd] I"& _ "S NULL) OR ([Item_VATInd] = @Original_Item_VATInd)) AND ((@IsNull_Item_StatVal ="& _ " 1 AND [Item_StatVal] IS NULL) OR ([Item_StatVal] = @Original_Item_StatVal)) AND"& _ " ((@IsNull_SurvCO_Ref = 1 AND [SurvCO_Ref] IS NULL) OR ([SurvCO_Ref] = @Original"& _ "_SurvCO_Ref)) AND ((@IsNull_Telo_Artikel_ID = 1 AND [Telo_Artikel_ID] IS NULL) O"& _ "R ([Telo_Artikel_ID] = @Original_Telo_Artikel_ID)) AND ((@IsNull_Telo_Artikelmen"& _ "ge = 1 AND [Telo_Artikelmenge] IS NULL) OR ([Telo_Artikelmenge] = @Original_Telo"& _ "_Artikelmenge)) AND ((@IsNull_Telo_ArtikelMEH = 1 AND [Telo_ArtikelMEH] IS NULL)"& _ " OR ([Telo_ArtikelMEH] = @Original_Telo_ArtikelMEH)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telpos_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpos_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telpos_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpos_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_ComCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ComCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_ComCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ComCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_GdsDes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_GdsDes", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Gross", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Gross", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Gross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Item_Gross", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Net", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Net", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Net", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Item_Net", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Orig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Orig", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Orig", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Orig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_ProcCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_ProcCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_ProcAddCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcAddCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_ProcAddCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcAddCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_ItVal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ItVal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_ItVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Item_ItVal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Pref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Pref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Pref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Pref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Quota", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Quota", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Quota", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Quota", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_ValMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ValMet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_ValMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ValMet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_VATInd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_VATInd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_VATInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_VATInd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_StatVal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_StatVal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_StatVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Item_StatVal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SurvCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SurvCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Telo_Artikel_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_Artikel_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Telo_Artikel_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_Artikel_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Telo_Artikelmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_Artikelmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Telo_Artikelmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Telo_Artikelmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Telo_ArtikelMEH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_ArtikelMEH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Telo_ArtikelMEH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_ArtikelMEH", 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].[tblTelotec_Positionsdaten] ([telpos_telanmId], [Mandant_ID], ["& _ "Bereich_ID], [Referenz_ID], [ComIndicator], [Pos_ID], [Item_Status], [Item_ComCd"& _ "], [Item_GdsDes], [Item_Gross], [Item_Net], [Item_Orig], [Item_ProcCd], [Item_Pr"& _ "ocAddCd], [Item_ItVal], [Item_Pref], [Item_Quota], [Item_ValMet], [Item_VATInd],"& _ " [Item_StatVal], [SurvCO_Ref], [Telo_Artikel_ID], [Telo_Artikelmenge], [Telo_Art"& _ "ikelMEH]) VALUES (@telpos_telanmId, @Mandant_ID, @Bereich_ID, @Referenz_ID, @Com"& _ "Indicator, @Pos_ID, @Item_Status, @Item_ComCd, @Item_GdsDes, @Item_Gross, @Item_"& _ "Net, @Item_Orig, @Item_ProcCd, @Item_ProcAddCd, @Item_ItVal, @Item_Pref, @Item_Q"& _ "uota, @Item_ValMet, @Item_VATInd, @Item_StatVal, @SurvCO_Ref, @Telo_Artikel_ID, "& _ "@Telo_Artikelmenge, @Telo_ArtikelMEH);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT telpos_id, telpos_telanmId, Manda"& _ "nt_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, Item_Status, Item_ComCd, I"& _ "tem_GdsDes, Item_Gross, Item_Net, Item_Orig, Item_ProcCd, Item_ProcAddCd, Item_I"& _ "tVal, Item_Pref, Item_Quota, Item_ValMet, Item_VATInd, Item_StatVal, SurvCO_Ref,"& _ " Telo_Artikel_ID, Telo_Artikelmenge, Telo_ArtikelMEH FROM tblTelotec_Positionsda"& _ "ten WHERE (telpos_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telpos_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpos_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_ComCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ComCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_GdsDes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_GdsDes", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Gross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Item_Gross", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Net", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Item_Net", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Orig", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Orig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_ProcCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_ProcAddCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcAddCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_ItVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Item_ItVal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Pref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Pref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Quota", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Quota", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_ValMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ValMet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_VATInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_VATInd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_StatVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Item_StatVal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SurvCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telo_Artikel_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_Artikel_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telo_Artikelmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Telo_Artikelmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telo_ArtikelMEH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_ArtikelMEH", 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].[tblTelotec_Positionsdaten] SET [telpos_telanmId] = @telpos_telanmId"& _ ", [Mandant_ID] = @Mandant_ID, [Bereich_ID] = @Bereich_ID, [Referenz_ID] = @Refer"& _ "enz_ID, [ComIndicator] = @ComIndicator, [Pos_ID] = @Pos_ID, [Item_Status] = @Ite"& _ "m_Status, [Item_ComCd] = @Item_ComCd, [Item_GdsDes] = @Item_GdsDes, [Item_Gross]"& _ " = @Item_Gross, [Item_Net] = @Item_Net, [Item_Orig] = @Item_Orig, [Item_ProcCd] "& _ "= @Item_ProcCd, [Item_ProcAddCd] = @Item_ProcAddCd, [Item_ItVal] = @Item_ItVal, "& _ "[Item_Pref] = @Item_Pref, [Item_Quota] = @Item_Quota, [Item_ValMet] = @Item_ValM"& _ "et, [Item_VATInd] = @Item_VATInd, [Item_StatVal] = @Item_StatVal, [SurvCO_Ref] ="& _ " @SurvCO_Ref, [Telo_Artikel_ID] = @Telo_Artikel_ID, [Telo_Artikelmenge] = @Telo_"& _ "Artikelmenge, [Telo_ArtikelMEH] = @Telo_ArtikelMEH WHERE (([telpos_id] = @Origin"& _ "al_telpos_id) AND ([telpos_telanmId] = @Original_telpos_telanmId) AND ([Mandant_"& _ "ID] = @Original_Mandant_ID) AND ([Bereich_ID] = @Original_Bereich_ID) AND ([Refe"& _ "renz_ID] = @Original_Referenz_ID) AND ([ComIndicator] = @Original_ComIndicator) "& _ "AND ([Pos_ID] = @Original_Pos_ID) AND ((@IsNull_Item_Status = 1 AND [Item_Status"& _ "] IS NULL) OR ([Item_Status] = @Original_Item_Status)) AND ((@IsNull_Item_ComCd "& _ "= 1 AND [Item_ComCd] IS NULL) OR ([Item_ComCd] = @Original_Item_ComCd)) AND ([It"& _ "em_GdsDes] = @Original_Item_GdsDes) AND ((@IsNull_Item_Gross = 1 AND [Item_Gross"& _ "] IS NULL) OR ([Item_Gross] = @Original_Item_Gross)) AND ((@IsNull_Item_Net = 1 "& _ "AND [Item_Net] IS NULL) OR ([Item_Net] = @Original_Item_Net)) AND ((@IsNull_Item"& _ "_Orig = 1 AND [Item_Orig] IS NULL) OR ([Item_Orig] = @Original_Item_Orig)) AND ("& _ "(@IsNull_Item_ProcCd = 1 AND [Item_ProcCd] IS NULL) OR ([Item_ProcCd] = @Origina"& _ "l_Item_ProcCd)) AND ((@IsNull_Item_ProcAddCd = 1 AND [Item_ProcAddCd] IS NULL) O"& _ "R ([Item_ProcAddCd] = @Original_Item_ProcAddCd)) AND ((@IsNull_Item_ItVal = 1 AN"& _ "D [Item_ItVal] IS NULL) OR ([Item_ItVal] = @Original_Item_ItVal)) AND ((@IsNull_"& _ "Item_Pref = 1 AND [Item_Pref] IS NULL) OR ([Item_Pref] = @Original_Item_Pref)) A"& _ "ND ((@IsNull_Item_Quota = 1 AND [Item_Quota] IS NULL) OR ([Item_Quota] = @Origin"& _ "al_Item_Quota)) AND ((@IsNull_Item_ValMet = 1 AND [Item_ValMet] IS NULL) OR ([It"& _ "em_ValMet] = @Original_Item_ValMet)) AND ((@IsNull_Item_VATInd = 1 AND [Item_VAT"& _ "Ind] IS NULL) OR ([Item_VATInd] = @Original_Item_VATInd)) AND ((@IsNull_Item_Sta"& _ "tVal = 1 AND [Item_StatVal] IS NULL) OR ([Item_StatVal] = @Original_Item_StatVal"& _ ")) AND ((@IsNull_SurvCO_Ref = 1 AND [SurvCO_Ref] IS NULL) OR ([SurvCO_Ref] = @Or"& _ "iginal_SurvCO_Ref)) AND ((@IsNull_Telo_Artikel_ID = 1 AND [Telo_Artikel_ID] IS N"& _ "ULL) OR ([Telo_Artikel_ID] = @Original_Telo_Artikel_ID)) AND ((@IsNull_Telo_Arti"& _ "kelmenge = 1 AND [Telo_Artikelmenge] IS NULL) OR ([Telo_Artikelmenge] = @Origina"& _ "l_Telo_Artikelmenge)) AND ((@IsNull_Telo_ArtikelMEH = 1 AND [Telo_ArtikelMEH] IS"& _ " NULL) OR ([Telo_ArtikelMEH] = @Original_Telo_ArtikelMEH)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT telpos_id, "& _ "telpos_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, Item"& _ "_Status, Item_ComCd, Item_GdsDes, Item_Gross, Item_Net, Item_Orig, Item_ProcCd, "& _ "Item_ProcAddCd, Item_ItVal, Item_Pref, Item_Quota, Item_ValMet, Item_VATInd, Ite"& _ "m_StatVal, SurvCO_Ref, Telo_Artikel_ID, Telo_Artikelmenge, Telo_ArtikelMEH FROM "& _ "tblTelotec_Positionsdaten WHERE (telpos_id = @telpos_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telpos_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpos_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_ComCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ComCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_GdsDes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_GdsDes", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Gross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Item_Gross", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Net", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Item_Net", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Orig", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Orig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_ProcCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_ProcAddCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcAddCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_ItVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Item_ItVal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Pref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Pref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_Quota", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Quota", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_ValMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ValMet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_VATInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_VATInd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Item_StatVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Item_StatVal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SurvCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telo_Artikel_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_Artikel_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telo_Artikelmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Telo_Artikelmenge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telo_ArtikelMEH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_ArtikelMEH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telpos_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpos_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telpos_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telpos_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_ComCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ComCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_ComCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ComCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_GdsDes", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_GdsDes", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Gross", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Gross", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Gross", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Item_Gross", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Net", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Net", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Net", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Item_Net", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Orig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Orig", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Orig", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Orig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_ProcCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_ProcCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_ProcAddCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcAddCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_ProcAddCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ProcAddCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_ItVal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ItVal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_ItVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Item_ItVal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Pref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Pref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Pref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Pref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_Quota", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Quota", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_Quota", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_Quota", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_ValMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ValMet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_ValMet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_ValMet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_VATInd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_VATInd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_VATInd", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_VATInd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Item_StatVal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Item_StatVal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Item_StatVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Item_StatVal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SurvCO_Ref", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SurvCO_Ref", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SurvCO_Ref", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Telo_Artikel_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_Artikel_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Telo_Artikel_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_Artikel_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Telo_Artikelmenge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_Artikelmenge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Telo_Artikelmenge", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "Telo_Artikelmenge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Telo_ArtikelMEH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_ArtikelMEH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Telo_ArtikelMEH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telo_ArtikelMEH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telpos_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "telpos_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 telpos_id, telpos_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndica"& _ "tor, Pos_ID, Item_Status, Item_ComCd, Item_GdsDes, Item_Gross, Item_Net, Item_Or"& _ "ig, Item_ProcCd, Item_ProcAddCd, Item_ItVal, Item_Pref, Item_Quota, Item_ValMet,"& _ " Item_VATInd, Item_StatVal, SurvCO_Ref, Telo_Artikel_ID, Telo_Artikelmenge, Telo"& _ "_ArtikelMEH FROM dbo.tblTelotec_Positionsdaten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTelotec_PositionsdatenDataTable) 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 VERAGDataSet.tblTelotec_PositionsdatenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTelotec_PositionsdatenDataTable = New VERAGDataSet.tblTelotec_PositionsdatenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTelotec_PositionsdatenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTelotec_Positionsdaten") 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_telpos_id As Integer, _ ByVal Original_telpos_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_Item_Status As String, _ ByVal Original_Item_ComCd As String, _ ByVal Original_Item_GdsDes As String, _ ByVal Original_Item_Gross As Global.System.Nullable(Of Decimal), _ ByVal Original_Item_Net As Global.System.Nullable(Of Decimal), _ ByVal Original_Item_Orig As String, _ ByVal Original_Item_ProcCd As Global.System.Nullable(Of Integer), _ ByVal Original_Item_ProcAddCd As String, _ ByVal Original_Item_ItVal As Global.System.Nullable(Of Decimal), _ ByVal Original_Item_Pref As String, _ ByVal Original_Item_Quota As Global.System.Nullable(Of Integer), _ ByVal Original_Item_ValMet As Global.System.Nullable(Of Integer), _ ByVal Original_Item_VATInd As Global.System.Nullable(Of Boolean), _ ByVal Original_Item_StatVal As Global.System.Nullable(Of Decimal), _ ByVal Original_SurvCO_Ref As String, _ ByVal Original_Telo_Artikel_ID As String, _ ByVal Original_Telo_Artikelmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_Telo_ArtikelMEH As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_telpos_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_telpos_telanmId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Pos_ID,Integer) If (Original_Item_Status 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_Item_Status,String) End If If (Original_Item_ComCd 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_Item_ComCd,String) End If If (Original_Item_GdsDes Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Item_GdsDes") Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_Item_GdsDes,String) End If If (Original_Item_Gross.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_Item_Gross.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_Item_Net.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_Item_Net.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_Item_Orig Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_Item_Orig,String) End If If (Original_Item_ProcCd.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_Item_ProcCd.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_Item_ProcAddCd 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_Item_ProcAddCd,String) End If If (Original_Item_ItVal.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_Item_ItVal.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_Item_Pref 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_Item_Pref,String) End If If (Original_Item_Quota.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_Item_Quota.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_Item_ValMet.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_Item_ValMet.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Original_Item_VATInd.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_Item_VATInd.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Original_Item_StatVal.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_Item_StatVal.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_SurvCO_Ref Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_SurvCO_Ref,String) End If If (Original_Telo_Artikel_ID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_Telo_Artikel_ID,String) End If If (Original_Telo_Artikelmenge.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_Telo_Artikelmenge.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_Telo_ArtikelMEH Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_Telo_ArtikelMEH,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 telpos_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal Item_Status As String, _ ByVal Item_ComCd As String, _ ByVal Item_GdsDes As String, _ ByVal Item_Gross As Global.System.Nullable(Of Decimal), _ ByVal Item_Net As Global.System.Nullable(Of Decimal), _ ByVal Item_Orig As String, _ ByVal Item_ProcCd As Global.System.Nullable(Of Integer), _ ByVal Item_ProcAddCd As String, _ ByVal Item_ItVal As Global.System.Nullable(Of Decimal), _ ByVal Item_Pref As String, _ ByVal Item_Quota As Global.System.Nullable(Of Integer), _ ByVal Item_ValMet As Global.System.Nullable(Of Integer), _ ByVal Item_VATInd As Global.System.Nullable(Of Boolean), _ ByVal Item_StatVal As Global.System.Nullable(Of Decimal), _ ByVal SurvCO_Ref As String, _ ByVal Telo_Artikel_ID As String, _ ByVal Telo_Artikelmenge As Global.System.Nullable(Of Decimal), _ ByVal Telo_ArtikelMEH As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(telpos_telanmId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Referenz_ID,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(ComIndicator,Boolean) Me.Adapter.InsertCommand.Parameters(5).Value = CType(Pos_ID,Integer) If (Item_Status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Item_Status,String) End If If (Item_ComCd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Item_ComCd,String) End If If (Item_GdsDes Is Nothing) Then Throw New Global.System.ArgumentNullException("Item_GdsDes") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Item_GdsDes,String) End If If (Item_Gross.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Item_Gross.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Item_Net.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Item_Net.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Item_Orig Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Item_Orig,String) End If If (Item_ProcCd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(Item_ProcCd.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Item_ProcAddCd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Item_ProcAddCd,String) End If If (Item_ItVal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(Item_ItVal.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Item_Pref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Item_Pref,String) End If If (Item_Quota.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(Item_Quota.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Item_ValMet.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(Item_ValMet.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Item_VATInd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(Item_VATInd.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Item_StatVal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(Item_StatVal.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (SurvCO_Ref Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(SurvCO_Ref,String) End If If (Telo_Artikel_ID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(Telo_Artikel_ID,String) End If If (Telo_Artikelmenge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(Telo_Artikelmenge.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Telo_ArtikelMEH Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(Telo_ArtikelMEH,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 telpos_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal Item_Status As String, _ ByVal Item_ComCd As String, _ ByVal Item_GdsDes As String, _ ByVal Item_Gross As Global.System.Nullable(Of Decimal), _ ByVal Item_Net As Global.System.Nullable(Of Decimal), _ ByVal Item_Orig As String, _ ByVal Item_ProcCd As Global.System.Nullable(Of Integer), _ ByVal Item_ProcAddCd As String, _ ByVal Item_ItVal As Global.System.Nullable(Of Decimal), _ ByVal Item_Pref As String, _ ByVal Item_Quota As Global.System.Nullable(Of Integer), _ ByVal Item_ValMet As Global.System.Nullable(Of Integer), _ ByVal Item_VATInd As Global.System.Nullable(Of Boolean), _ ByVal Item_StatVal As Global.System.Nullable(Of Decimal), _ ByVal SurvCO_Ref As String, _ ByVal Telo_Artikel_ID As String, _ ByVal Telo_Artikelmenge As Global.System.Nullable(Of Decimal), _ ByVal Telo_ArtikelMEH As String, _ ByVal Original_telpos_id As Integer, _ ByVal Original_telpos_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_Item_Status As String, _ ByVal Original_Item_ComCd As String, _ ByVal Original_Item_GdsDes As String, _ ByVal Original_Item_Gross As Global.System.Nullable(Of Decimal), _ ByVal Original_Item_Net As Global.System.Nullable(Of Decimal), _ ByVal Original_Item_Orig As String, _ ByVal Original_Item_ProcCd As Global.System.Nullable(Of Integer), _ ByVal Original_Item_ProcAddCd As String, _ ByVal Original_Item_ItVal As Global.System.Nullable(Of Decimal), _ ByVal Original_Item_Pref As String, _ ByVal Original_Item_Quota As Global.System.Nullable(Of Integer), _ ByVal Original_Item_ValMet As Global.System.Nullable(Of Integer), _ ByVal Original_Item_VATInd As Global.System.Nullable(Of Boolean), _ ByVal Original_Item_StatVal As Global.System.Nullable(Of Decimal), _ ByVal Original_SurvCO_Ref As String, _ ByVal Original_Telo_Artikel_ID As String, _ ByVal Original_Telo_Artikelmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_Telo_ArtikelMEH As String, _ ByVal telpos_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(telpos_telanmId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Pos_ID,Integer) If (Item_Status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Item_Status,String) End If If (Item_ComCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Item_ComCd,String) End If If (Item_GdsDes Is Nothing) Then Throw New Global.System.ArgumentNullException("Item_GdsDes") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Item_GdsDes,String) End If If (Item_Gross.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Item_Gross.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Item_Net.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Item_Net.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Item_Orig Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Item_Orig,String) End If If (Item_ProcCd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Item_ProcCd.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Item_ProcAddCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Item_ProcAddCd,String) End If If (Item_ItVal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Item_ItVal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Item_Pref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Item_Pref,String) End If If (Item_Quota.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Item_Quota.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Item_ValMet.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Item_ValMet.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Item_VATInd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Item_VATInd.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Item_StatVal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Item_StatVal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (SurvCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(SurvCO_Ref,String) End If If (Telo_Artikel_ID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Telo_Artikel_ID,String) End If If (Telo_Artikelmenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Telo_Artikelmenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Telo_ArtikelMEH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Telo_ArtikelMEH,String) End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_telpos_id,Integer) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_telpos_telanmId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Pos_ID,Integer) If (Original_Item_Status 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_Item_Status,String) End If If (Original_Item_ComCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_Item_ComCd,String) End If If (Original_Item_GdsDes Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Item_GdsDes") Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_Item_GdsDes,String) End If If (Original_Item_Gross.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_Item_Gross.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Original_Item_Net.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_Item_Net.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_Item_Orig Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_Item_Orig,String) End If If (Original_Item_ProcCd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_Item_ProcCd.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Original_Item_ProcAddCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_Item_ProcAddCd,String) End If If (Original_Item_ItVal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_Item_ItVal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (Original_Item_Pref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_Item_Pref,String) End If If (Original_Item_Quota.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_Item_Quota.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_Item_ValMet.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_Item_ValMet.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_Item_VATInd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_Item_VATInd.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Original_Item_StatVal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_Item_StatVal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (Original_SurvCO_Ref Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_SurvCO_Ref,String) End If If (Original_Telo_Artikel_ID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_Telo_Artikel_ID,String) End If If (Original_Telo_Artikelmenge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_Telo_Artikelmenge.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Original_Telo_ArtikelMEH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_Telo_ArtikelMEH,String) End If Me.Adapter.UpdateCommand.Parameters(66).Value = CType(telpos_id,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 telpos_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal Item_Status As String, _ ByVal Item_ComCd As String, _ ByVal Item_GdsDes As String, _ ByVal Item_Gross As Global.System.Nullable(Of Decimal), _ ByVal Item_Net As Global.System.Nullable(Of Decimal), _ ByVal Item_Orig As String, _ ByVal Item_ProcCd As Global.System.Nullable(Of Integer), _ ByVal Item_ProcAddCd As String, _ ByVal Item_ItVal As Global.System.Nullable(Of Decimal), _ ByVal Item_Pref As String, _ ByVal Item_Quota As Global.System.Nullable(Of Integer), _ ByVal Item_ValMet As Global.System.Nullable(Of Integer), _ ByVal Item_VATInd As Global.System.Nullable(Of Boolean), _ ByVal Item_StatVal As Global.System.Nullable(Of Decimal), _ ByVal SurvCO_Ref As String, _ ByVal Telo_Artikel_ID As String, _ ByVal Telo_Artikelmenge As Global.System.Nullable(Of Decimal), _ ByVal Telo_ArtikelMEH As String, _ ByVal Original_telpos_id As Integer, _ ByVal Original_telpos_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_Item_Status As String, _ ByVal Original_Item_ComCd As String, _ ByVal Original_Item_GdsDes As String, _ ByVal Original_Item_Gross As Global.System.Nullable(Of Decimal), _ ByVal Original_Item_Net As Global.System.Nullable(Of Decimal), _ ByVal Original_Item_Orig As String, _ ByVal Original_Item_ProcCd As Global.System.Nullable(Of Integer), _ ByVal Original_Item_ProcAddCd As String, _ ByVal Original_Item_ItVal As Global.System.Nullable(Of Decimal), _ ByVal Original_Item_Pref As String, _ ByVal Original_Item_Quota As Global.System.Nullable(Of Integer), _ ByVal Original_Item_ValMet As Global.System.Nullable(Of Integer), _ ByVal Original_Item_VATInd As Global.System.Nullable(Of Boolean), _ ByVal Original_Item_StatVal As Global.System.Nullable(Of Decimal), _ ByVal Original_SurvCO_Ref As String, _ ByVal Original_Telo_Artikel_ID As String, _ ByVal Original_Telo_Artikelmenge As Global.System.Nullable(Of Decimal), _ ByVal Original_Telo_ArtikelMEH As String) As Integer Return Me.Update(telpos_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, Item_Status, Item_ComCd, Item_GdsDes, Item_Gross, Item_Net, Item_Orig, Item_ProcCd, Item_ProcAddCd, Item_ItVal, Item_Pref, Item_Quota, Item_ValMet, Item_VATInd, Item_StatVal, SurvCO_Ref, Telo_Artikel_ID, Telo_Artikelmenge, Telo_ArtikelMEH, Original_telpos_id, Original_telpos_telanmId, Original_Mandant_ID, Original_Bereich_ID, Original_Referenz_ID, Original_ComIndicator, Original_Pos_ID, Original_Item_Status, Original_Item_ComCd, Original_Item_GdsDes, Original_Item_Gross, Original_Item_Net, Original_Item_Orig, Original_Item_ProcCd, Original_Item_ProcAddCd, Original_Item_ItVal, Original_Item_Pref, Original_Item_Quota, Original_Item_ValMet, Original_Item_VATInd, Original_Item_StatVal, Original_SurvCO_Ref, Original_Telo_Artikel_ID, Original_Telo_Artikelmenge, Original_Telo_ArtikelMEH, Original_telpos_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTelotec_PositionsdatenAbgabenTableAdapter 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 = "tblTelotec_PositionsdatenAbgaben" tableMapping.ColumnMappings.Add("telposAbg_id", "telposAbg_id") tableMapping.ColumnMappings.Add("telposAbg_telposId", "telposAbg_telposId") tableMapping.ColumnMappings.Add("telposAbg_telanmId", "telposAbg_telanmId") tableMapping.ColumnMappings.Add("Mandant_ID", "Mandant_ID") tableMapping.ColumnMappings.Add("Bereich_ID", "Bereich_ID") tableMapping.ColumnMappings.Add("Referenz_ID", "Referenz_ID") tableMapping.ColumnMappings.Add("ComIndicator", "ComIndicator") tableMapping.ColumnMappings.Add("Pos_ID", "Pos_ID") tableMapping.ColumnMappings.Add("DutyCalc_ID", "DutyCalc_ID") tableMapping.ColumnMappings.Add("Ty", "Ty") tableMapping.ColumnMappings.Add("BaseD", "BaseD") tableMapping.ColumnMappings.Add("Curr", "Curr") tableMapping.ColumnMappings.Add("Unit", "Unit") tableMapping.ColumnMappings.Add("Base", "Base") tableMapping.ColumnMappings.Add("Rate", "Rate") tableMapping.ColumnMappings.Add("RateUsed", "RateUsed") tableMapping.ColumnMappings.Add("Amnt", "Amnt") tableMapping.ColumnMappings.Add("MeaID", "MeaID") tableMapping.ColumnMappings.Add("TyInd", "TyInd") 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].[tblTelotec_PositionsdatenAbgaben] WHERE (([telposAbg_id] = @Or"& _ "iginal_telposAbg_id) AND ([telposAbg_telposId] = @Original_telposAbg_telposId) A"& _ "ND ([telposAbg_telanmId] = @Original_telposAbg_telanmId) AND ([Mandant_ID] = @Or"& _ "iginal_Mandant_ID) AND ([Bereich_ID] = @Original_Bereich_ID) AND ([Referenz_ID] "& _ "= @Original_Referenz_ID) AND ([ComIndicator] = @Original_ComIndicator) AND ([Pos"& _ "_ID] = @Original_Pos_ID) AND ([DutyCalc_ID] = @Original_DutyCalc_ID) AND ((@IsNu"& _ "ll_Ty = 1 AND [Ty] IS NULL) OR ([Ty] = @Original_Ty)) AND ((@IsNull_BaseD = 1 AN"& _ "D [BaseD] IS NULL) OR ([BaseD] = @Original_BaseD)) AND ((@IsNull_Curr = 1 AND [C"& _ "urr] IS NULL) OR ([Curr] = @Original_Curr)) AND ((@IsNull_Unit = 1 AND [Unit] IS"& _ " NULL) OR ([Unit] = @Original_Unit)) AND ((@IsNull_Base = 1 AND [Base] IS NULL) "& _ "OR ([Base] = @Original_Base)) AND ((@IsNull_Rate = 1 AND [Rate] IS NULL) OR ([Ra"& _ "te] = @Original_Rate)) AND ((@IsNull_RateUsed = 1 AND [RateUsed] IS NULL) OR ([R"& _ "ateUsed] = @Original_RateUsed)) AND ((@IsNull_Amnt = 1 AND [Amnt] IS NULL) OR (["& _ "Amnt] = @Original_Amnt)) AND ((@IsNull_MeaID = 1 AND [MeaID] IS NULL) OR ([MeaID"& _ "] = @Original_MeaID)) AND ((@IsNull_TyInd = 1 AND [TyInd] IS NULL) OR ([TyInd] ="& _ " @Original_TyInd)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telposId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DutyCalc_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DutyCalc_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Ty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BaseD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BaseD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BaseD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BaseD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Unit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Unit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Unit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Unit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Base", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Base", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Base", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Base", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Rate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_RateUsed", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RateUsed", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RateUsed", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RateUsed", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Amnt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Amnt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amnt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Amnt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MeaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MeaID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MeaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MeaID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TyInd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TyInd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", 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].[tblTelotec_PositionsdatenAbgaben] ([telposAbg_telposId], [telp"& _ "osAbg_telanmId], [Mandant_ID], [Bereich_ID], [Referenz_ID], [ComIndicator], [Pos"& _ "_ID], [DutyCalc_ID], [Ty], [BaseD], [Curr], [Unit], [Base], [Rate], [RateUsed], "& _ "[Amnt], [MeaID], [TyInd]) VALUES (@telposAbg_telposId, @telposAbg_telanmId, @Man"& _ "dant_ID, @Bereich_ID, @Referenz_ID, @ComIndicator, @Pos_ID, @DutyCalc_ID, @Ty, @"& _ "BaseD, @Curr, @Unit, @Base, @Rate, @RateUsed, @Amnt, @MeaID, @TyInd);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT te"& _ "lposAbg_id, telposAbg_telposId, telposAbg_telanmId, Mandant_ID, Bereich_ID, Refe"& _ "renz_ID, ComIndicator, Pos_ID, DutyCalc_ID, Ty, BaseD, Curr, Unit, Base, Rate, R"& _ "ateUsed, Amnt, MeaID, TyInd FROM tblTelotec_PositionsdatenAbgaben WHERE (telposA"& _ "bg_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telposAbg_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telposId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telposAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DutyCalc_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DutyCalc_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BaseD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BaseD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Unit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Unit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Base", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Base", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RateUsed", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RateUsed", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amnt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Amnt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MeaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MeaID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TyInd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", 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].[tblTelotec_PositionsdatenAbgaben] SET [telposAbg_telposId] = @telpo"& _ "sAbg_telposId, [telposAbg_telanmId] = @telposAbg_telanmId, [Mandant_ID] = @Manda"& _ "nt_ID, [Bereich_ID] = @Bereich_ID, [Referenz_ID] = @Referenz_ID, [ComIndicator] "& _ "= @ComIndicator, [Pos_ID] = @Pos_ID, [DutyCalc_ID] = @DutyCalc_ID, [Ty] = @Ty, ["& _ "BaseD] = @BaseD, [Curr] = @Curr, [Unit] = @Unit, [Base] = @Base, [Rate] = @Rate,"& _ " [RateUsed] = @RateUsed, [Amnt] = @Amnt, [MeaID] = @MeaID, [TyInd] = @TyInd WHER"& _ "E (([telposAbg_id] = @Original_telposAbg_id) AND ([telposAbg_telposId] = @Origin"& _ "al_telposAbg_telposId) AND ([telposAbg_telanmId] = @Original_telposAbg_telanmId)"& _ " AND ([Mandant_ID] = @Original_Mandant_ID) AND ([Bereich_ID] = @Original_Bereich"& _ "_ID) AND ([Referenz_ID] = @Original_Referenz_ID) AND ([ComIndicator] = @Original"& _ "_ComIndicator) AND ([Pos_ID] = @Original_Pos_ID) AND ([DutyCalc_ID] = @Original_"& _ "DutyCalc_ID) AND ((@IsNull_Ty = 1 AND [Ty] IS NULL) OR ([Ty] = @Original_Ty)) AN"& _ "D ((@IsNull_BaseD = 1 AND [BaseD] IS NULL) OR ([BaseD] = @Original_BaseD)) AND ("& _ "(@IsNull_Curr = 1 AND [Curr] IS NULL) OR ([Curr] = @Original_Curr)) AND ((@IsNul"& _ "l_Unit = 1 AND [Unit] IS NULL) OR ([Unit] = @Original_Unit)) AND ((@IsNull_Base "& _ "= 1 AND [Base] IS NULL) OR ([Base] = @Original_Base)) AND ((@IsNull_Rate = 1 AND"& _ " [Rate] IS NULL) OR ([Rate] = @Original_Rate)) AND ((@IsNull_RateUsed = 1 AND [R"& _ "ateUsed] IS NULL) OR ([RateUsed] = @Original_RateUsed)) AND ((@IsNull_Amnt = 1 A"& _ "ND [Amnt] IS NULL) OR ([Amnt] = @Original_Amnt)) AND ((@IsNull_MeaID = 1 AND [Me"& _ "aID] IS NULL) OR ([MeaID] = @Original_MeaID)) AND ((@IsNull_TyInd = 1 AND [TyInd"& _ "] IS NULL) OR ([TyInd] = @Original_TyInd)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT telposAbg_id, telposAbg_tel"& _ "posId, telposAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Po"& _ "s_ID, DutyCalc_ID, Ty, BaseD, Curr, Unit, Base, Rate, RateUsed, Amnt, MeaID, TyI"& _ "nd FROM tblTelotec_PositionsdatenAbgaben WHERE (telposAbg_id = @telposAbg_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telposAbg_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telposId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telposAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DutyCalc_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DutyCalc_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BaseD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BaseD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Unit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Unit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Base", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Base", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RateUsed", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RateUsed", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amnt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Amnt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MeaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MeaID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TyInd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telposId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DutyCalc_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DutyCalc_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Ty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ty", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BaseD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BaseD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BaseD", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BaseD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Unit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Unit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Unit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Unit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Base", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Base", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Base", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Base", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Rate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_RateUsed", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RateUsed", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RateUsed", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RateUsed", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Amnt", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Amnt", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amnt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "Amnt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MeaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MeaID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MeaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MeaID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TyInd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TyInd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TyInd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telposAbg_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 telposAbg_id, telposAbg_telposId, telposAbg_telanmId, Mandant_ID, Bereich_"& _ "ID, Referenz_ID, ComIndicator, Pos_ID, DutyCalc_ID, Ty, BaseD, Curr, Unit, Base,"& _ " Rate, RateUsed, Amnt, MeaID, TyInd FROM dbo.tblTelotec_PositionsdatenAbgaben" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTelotec_PositionsdatenAbgabenDataTable) 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 VERAGDataSet.tblTelotec_PositionsdatenAbgabenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTelotec_PositionsdatenAbgabenDataTable = New VERAGDataSet.tblTelotec_PositionsdatenAbgabenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTelotec_PositionsdatenAbgabenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTelotec_PositionsdatenAbgaben") 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_telposAbg_id As Integer, _ ByVal Original_telposAbg_telposId As Integer, _ ByVal Original_telposAbg_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_DutyCalc_ID As Integer, _ ByVal Original_Ty As String, _ ByVal Original_BaseD As Global.System.Nullable(Of Date), _ ByVal Original_Curr As String, _ ByVal Original_Unit As String, _ ByVal Original_Base As Global.System.Nullable(Of Decimal), _ ByVal Original_Rate As String, _ ByVal Original_RateUsed As String, _ ByVal Original_Amnt As Global.System.Nullable(Of Decimal), _ ByVal Original_MeaID As Global.System.Nullable(Of Integer), _ ByVal Original_TyInd As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_telposAbg_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_telposAbg_telposId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_telposAbg_telanmId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Pos_ID,Integer) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DutyCalc_ID,Integer) If (Original_Ty 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_Ty,String) End If If (Original_BaseD.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_BaseD.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_Curr 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_Curr,String) End If If (Original_Unit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Unit,String) End If If (Original_Base.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_Base.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Original_Rate Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Rate,String) End If If (Original_RateUsed Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_RateUsed,String) End If If (Original_Amnt.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_Amnt.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_MeaID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_MeaID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_TyInd Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_TyInd,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 telposAbg_telposId As Integer, _ ByVal telposAbg_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal DutyCalc_ID As Integer, _ ByVal Ty As String, _ ByVal BaseD As Global.System.Nullable(Of Date), _ ByVal Curr As String, _ ByVal Unit As String, _ ByVal Base As Global.System.Nullable(Of Decimal), _ ByVal Rate As String, _ ByVal RateUsed As String, _ ByVal Amnt As Global.System.Nullable(Of Decimal), _ ByVal MeaID As Global.System.Nullable(Of Integer), _ ByVal TyInd As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(telposAbg_telposId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(telposAbg_telanmId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Referenz_ID,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(ComIndicator,Boolean) Me.Adapter.InsertCommand.Parameters(6).Value = CType(Pos_ID,Integer) Me.Adapter.InsertCommand.Parameters(7).Value = CType(DutyCalc_ID,Integer) If (Ty Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Ty,String) End If If (BaseD.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(BaseD.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Curr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Curr,String) End If If (Unit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Unit,String) End If If (Base.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(Base.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Rate Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Rate,String) End If If (RateUsed Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(RateUsed,String) End If If (Amnt.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(Amnt.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (MeaID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(MeaID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (TyInd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(TyInd,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 telposAbg_telposId As Integer, _ ByVal telposAbg_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal DutyCalc_ID As Integer, _ ByVal Ty As String, _ ByVal BaseD As Global.System.Nullable(Of Date), _ ByVal Curr As String, _ ByVal Unit As String, _ ByVal Base As Global.System.Nullable(Of Decimal), _ ByVal Rate As String, _ ByVal RateUsed As String, _ ByVal Amnt As Global.System.Nullable(Of Decimal), _ ByVal MeaID As Global.System.Nullable(Of Integer), _ ByVal TyInd As String, _ ByVal Original_telposAbg_id As Integer, _ ByVal Original_telposAbg_telposId As Integer, _ ByVal Original_telposAbg_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_DutyCalc_ID As Integer, _ ByVal Original_Ty As String, _ ByVal Original_BaseD As Global.System.Nullable(Of Date), _ ByVal Original_Curr As String, _ ByVal Original_Unit As String, _ ByVal Original_Base As Global.System.Nullable(Of Decimal), _ ByVal Original_Rate As String, _ ByVal Original_RateUsed As String, _ ByVal Original_Amnt As Global.System.Nullable(Of Decimal), _ ByVal Original_MeaID As Global.System.Nullable(Of Integer), _ ByVal Original_TyInd As String, _ ByVal telposAbg_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(telposAbg_telposId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(telposAbg_telanmId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Pos_ID,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DutyCalc_ID,Integer) If (Ty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Ty,String) End If If (BaseD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(BaseD.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Curr,String) End If If (Unit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Unit,String) End If If (Base.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Base.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Rate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Rate,String) End If If (RateUsed Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(RateUsed,String) End If If (Amnt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Amnt.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (MeaID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(MeaID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (TyInd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(TyInd,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_telposAbg_id,Integer) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_telposAbg_telposId,Integer) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_telposAbg_telanmId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Pos_ID,Integer) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_DutyCalc_ID,Integer) If (Original_Ty Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_Ty,String) End If If (Original_BaseD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_BaseD.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_Curr 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_Curr,String) End If If (Original_Unit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_Unit,String) End If If (Original_Base.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_Base.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Original_Rate 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_Rate,String) End If If (Original_RateUsed 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_RateUsed,String) End If If (Original_Amnt.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_Amnt.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (Original_MeaID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_MeaID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (Original_TyInd 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_TyInd,String) End If Me.Adapter.UpdateCommand.Parameters(47).Value = CType(telposAbg_id,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 telposAbg_telposId As Integer, _ ByVal telposAbg_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal DutyCalc_ID As Integer, _ ByVal Ty As String, _ ByVal BaseD As Global.System.Nullable(Of Date), _ ByVal Curr As String, _ ByVal Unit As String, _ ByVal Base As Global.System.Nullable(Of Decimal), _ ByVal Rate As String, _ ByVal RateUsed As String, _ ByVal Amnt As Global.System.Nullable(Of Decimal), _ ByVal MeaID As Global.System.Nullable(Of Integer), _ ByVal TyInd As String, _ ByVal Original_telposAbg_id As Integer, _ ByVal Original_telposAbg_telposId As Integer, _ ByVal Original_telposAbg_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_DutyCalc_ID As Integer, _ ByVal Original_Ty As String, _ ByVal Original_BaseD As Global.System.Nullable(Of Date), _ ByVal Original_Curr As String, _ ByVal Original_Unit As String, _ ByVal Original_Base As Global.System.Nullable(Of Decimal), _ ByVal Original_Rate As String, _ ByVal Original_RateUsed As String, _ ByVal Original_Amnt As Global.System.Nullable(Of Decimal), _ ByVal Original_MeaID As Global.System.Nullable(Of Integer), _ ByVal Original_TyInd As String) As Integer Return Me.Update(telposAbg_telposId, telposAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, DutyCalc_ID, Ty, BaseD, Curr, Unit, Base, Rate, RateUsed, Amnt, MeaID, TyInd, Original_telposAbg_id, Original_telposAbg_telposId, Original_telposAbg_telanmId, Original_Mandant_ID, Original_Bereich_ID, Original_Referenz_ID, Original_ComIndicator, Original_Pos_ID, Original_DutyCalc_ID, Original_Ty, Original_BaseD, Original_Curr, Original_Unit, Original_Base, Original_Rate, Original_RateUsed, Original_Amnt, Original_MeaID, Original_TyInd, Original_telposAbg_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTelotec_PositionsdatenDokumenteTableAdapter 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 = "tblTelotec_PositionsdatenDokumente" tableMapping.ColumnMappings.Add("telposAbg_id", "telposAbg_id") tableMapping.ColumnMappings.Add("telposAbg_telposId", "telposAbg_telposId") tableMapping.ColumnMappings.Add("telposAbg_telanmId", "telposAbg_telanmId") tableMapping.ColumnMappings.Add("Mandant_ID", "Mandant_ID") tableMapping.ColumnMappings.Add("Bereich_ID", "Bereich_ID") tableMapping.ColumnMappings.Add("Referenz_ID", "Referenz_ID") tableMapping.ColumnMappings.Add("ComIndicator", "ComIndicator") tableMapping.ColumnMappings.Add("Pos_ID", "Pos_ID") tableMapping.ColumnMappings.Add("DocCerts_ID", "DocCerts_ID") tableMapping.ColumnMappings.Add("DocCerts_DocCd", "DocCerts_DocCd") tableMapping.ColumnMappings.Add("DocCerts_DTy", "DocCerts_DTy") tableMapping.ColumnMappings.Add("DocCerts_DRef", "DocCerts_DRef") tableMapping.ColumnMappings.Add("DocCerts_IssD", "DocCerts_IssD") tableMapping.ColumnMappings.Add("DocCerts_IssCtry", "DocCerts_IssCtry") tableMapping.ColumnMappings.Add("DocCerts_DTIN", "DocCerts_DTIN") tableMapping.ColumnMappings.Add("DocCerts_UidVid", "DocCerts_UidVid") tableMapping.ColumnMappings.Add("DocCerts_ValD", "DocCerts_ValD") 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].[tblTelotec_PositionsdatenDokumente] WHERE (([telposAbg_id] = @"& _ "Original_telposAbg_id) AND ([telposAbg_telposId] = @Original_telposAbg_telposId)"& _ " AND ([telposAbg_telanmId] = @Original_telposAbg_telanmId) AND ([Mandant_ID] = @"& _ "Original_Mandant_ID) AND ([Bereich_ID] = @Original_Bereich_ID) AND ([Referenz_ID"& _ "] = @Original_Referenz_ID) AND ([ComIndicator] = @Original_ComIndicator) AND ([P"& _ "os_ID] = @Original_Pos_ID) AND ((@IsNull_DocCerts_ID = 1 AND [DocCerts_ID] IS NU"& _ "LL) OR ([DocCerts_ID] = @Original_DocCerts_ID)) AND ((@IsNull_DocCerts_DocCd = 1"& _ " AND [DocCerts_DocCd] IS NULL) OR ([DocCerts_DocCd] = @Original_DocCerts_DocCd))"& _ " AND ((@IsNull_DocCerts_DTy = 1 AND [DocCerts_DTy] IS NULL) OR ([DocCerts_DTy] ="& _ " @Original_DocCerts_DTy)) AND ((@IsNull_DocCerts_DRef = 1 AND [DocCerts_DRef] IS"& _ " NULL) OR ([DocCerts_DRef] = @Original_DocCerts_DRef)) AND ((@IsNull_DocCerts_Is"& _ "sD = 1 AND [DocCerts_IssD] IS NULL) OR ([DocCerts_IssD] = @Original_DocCerts_Iss"& _ "D)) AND ((@IsNull_DocCerts_IssCtry = 1 AND [DocCerts_IssCtry] IS NULL) OR ([DocC"& _ "erts_IssCtry] = @Original_DocCerts_IssCtry)) AND ((@IsNull_DocCerts_DTIN = 1 AND"& _ " [DocCerts_DTIN] IS NULL) OR ([DocCerts_DTIN] = @Original_DocCerts_DTIN)) AND (("& _ "@IsNull_DocCerts_UidVid = 1 AND [DocCerts_UidVid] IS NULL) OR ([DocCerts_UidVid]"& _ " = @Original_DocCerts_UidVid)) AND ((@IsNull_DocCerts_ValD = 1 AND [DocCerts_Val"& _ "D] IS NULL) OR ([DocCerts_ValD] = @Original_DocCerts_ValD)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telposId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_DocCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DocCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_DocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DocCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_DTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_DTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_DRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DRef", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_DRef", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DRef", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_IssD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_IssD", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_IssCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_IssCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_DTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_DTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_UidVid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_UidVid", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_UidVid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_UidVid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_ValD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ValD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_ValD", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ValD", 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].[tblTelotec_PositionsdatenDokumente] ([telposAbg_telposId], [te"& _ "lposAbg_telanmId], [Mandant_ID], [Bereich_ID], [Referenz_ID], [ComIndicator], [P"& _ "os_ID], [DocCerts_ID], [DocCerts_DocCd], [DocCerts_DTy], [DocCerts_DRef], [DocCe"& _ "rts_IssD], [DocCerts_IssCtry], [DocCerts_DTIN], [DocCerts_UidVid], [DocCerts_Val"& _ "D]) VALUES (@telposAbg_telposId, @telposAbg_telanmId, @Mandant_ID, @Bereich_ID, "& _ "@Referenz_ID, @ComIndicator, @Pos_ID, @DocCerts_ID, @DocCerts_DocCd, @DocCerts_D"& _ "Ty, @DocCerts_DRef, @DocCerts_IssD, @DocCerts_IssCtry, @DocCerts_DTIN, @DocCerts"& _ "_UidVid, @DocCerts_ValD);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT telposAbg_id, telposAbg_telposId, telposAbg_te"& _ "lanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, DocCerts_ID, "& _ "DocCerts_DocCd, DocCerts_DTy, DocCerts_DRef, DocCerts_IssD, DocCerts_IssCtry, Do"& _ "cCerts_DTIN, DocCerts_UidVid, DocCerts_ValD FROM tblTelotec_PositionsdatenDokume"& _ "nte WHERE (telposAbg_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telposAbg_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telposId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telposAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_DocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DocCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_DTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_DRef", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DRef", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_IssD", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_IssCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_DTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_UidVid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_UidVid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_ValD", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ValD", 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].[tblTelotec_PositionsdatenDokumente] SET [telposAbg_telposId] = @tel"& _ "posAbg_telposId, [telposAbg_telanmId] = @telposAbg_telanmId, [Mandant_ID] = @Man"& _ "dant_ID, [Bereich_ID] = @Bereich_ID, [Referenz_ID] = @Referenz_ID, [ComIndicator"& _ "] = @ComIndicator, [Pos_ID] = @Pos_ID, [DocCerts_ID] = @DocCerts_ID, [DocCerts_D"& _ "ocCd] = @DocCerts_DocCd, [DocCerts_DTy] = @DocCerts_DTy, [DocCerts_DRef] = @DocC"& _ "erts_DRef, [DocCerts_IssD] = @DocCerts_IssD, [DocCerts_IssCtry] = @DocCerts_IssC"& _ "try, [DocCerts_DTIN] = @DocCerts_DTIN, [DocCerts_UidVid] = @DocCerts_UidVid, [Do"& _ "cCerts_ValD] = @DocCerts_ValD WHERE (([telposAbg_id] = @Original_telposAbg_id) A"& _ "ND ([telposAbg_telposId] = @Original_telposAbg_telposId) AND ([telposAbg_telanmI"& _ "d] = @Original_telposAbg_telanmId) AND ([Mandant_ID] = @Original_Mandant_ID) AND"& _ " ([Bereich_ID] = @Original_Bereich_ID) AND ([Referenz_ID] = @Original_Referenz_I"& _ "D) AND ([ComIndicator] = @Original_ComIndicator) AND ([Pos_ID] = @Original_Pos_I"& _ "D) AND ((@IsNull_DocCerts_ID = 1 AND [DocCerts_ID] IS NULL) OR ([DocCerts_ID] = "& _ "@Original_DocCerts_ID)) AND ((@IsNull_DocCerts_DocCd = 1 AND [DocCerts_DocCd] IS"& _ " NULL) OR ([DocCerts_DocCd] = @Original_DocCerts_DocCd)) AND ((@IsNull_DocCerts_"& _ "DTy = 1 AND [DocCerts_DTy] IS NULL) OR ([DocCerts_DTy] = @Original_DocCerts_DTy)"& _ ") AND ((@IsNull_DocCerts_DRef = 1 AND [DocCerts_DRef] IS NULL) OR ([DocCerts_DRe"& _ "f] = @Original_DocCerts_DRef)) AND ((@IsNull_DocCerts_IssD = 1 AND [DocCerts_Iss"& _ "D] IS NULL) OR ([DocCerts_IssD] = @Original_DocCerts_IssD)) AND ((@IsNull_DocCer"& _ "ts_IssCtry = 1 AND [DocCerts_IssCtry] IS NULL) OR ([DocCerts_IssCtry] = @Origina"& _ "l_DocCerts_IssCtry)) AND ((@IsNull_DocCerts_DTIN = 1 AND [DocCerts_DTIN] IS NULL"& _ ") OR ([DocCerts_DTIN] = @Original_DocCerts_DTIN)) AND ((@IsNull_DocCerts_UidVid "& _ "= 1 AND [DocCerts_UidVid] IS NULL) OR ([DocCerts_UidVid] = @Original_DocCerts_Ui"& _ "dVid)) AND ((@IsNull_DocCerts_ValD = 1 AND [DocCerts_ValD] IS NULL) OR ([DocCert"& _ "s_ValD] = @Original_DocCerts_ValD)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT telposAbg_id, telposAbg_telposId, "& _ "telposAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, D"& _ "ocCerts_ID, DocCerts_DocCd, DocCerts_DTy, DocCerts_DRef, DocCerts_IssD, DocCerts"& _ "_IssCtry, DocCerts_DTIN, DocCerts_UidVid, DocCerts_ValD FROM tblTelotec_Position"& _ "sdatenDokumente WHERE (telposAbg_id = @telposAbg_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telposAbg_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telposId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telposAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_DocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DocCd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_DTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_DRef", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DRef", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_IssD", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_IssCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssCtry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_DTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_UidVid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_UidVid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocCerts_ValD", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ValD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_telposId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telposId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telposAbg_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Pos_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pos_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_DocCd", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DocCd", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_DocCd", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DocCd", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_DTy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_DTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_DRef", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DRef", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_DRef", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DRef", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_IssD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_IssD", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_IssCtry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssCtry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_IssCtry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_IssCtry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_DTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_DTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_DTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_UidVid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_UidVid", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_UidVid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_UidVid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocCerts_ValD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ValD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocCerts_ValD", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocCerts_ValD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telposAbg_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "telposAbg_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 telposAbg_id, telposAbg_telposId, telposAbg_telanmId, Mandant_ID, Bereich_"& _ "ID, Referenz_ID, ComIndicator, Pos_ID, DocCerts_ID, DocCerts_DocCd, DocCerts_DTy"& _ ", DocCerts_DRef, DocCerts_IssD, DocCerts_IssCtry, DocCerts_DTIN, DocCerts_UidVid"& _ ", DocCerts_ValD FROM dbo.tblTelotec_PositionsdatenDokumente" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTelotec_PositionsdatenDokumenteDataTable) 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 VERAGDataSet.tblTelotec_PositionsdatenDokumenteDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTelotec_PositionsdatenDokumenteDataTable = New VERAGDataSet.tblTelotec_PositionsdatenDokumenteDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTelotec_PositionsdatenDokumenteDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTelotec_PositionsdatenDokumente") 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_telposAbg_id As Integer, _ ByVal Original_telposAbg_telposId As Integer, _ ByVal Original_telposAbg_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_DocCerts_ID As Global.System.Nullable(Of Integer), _ ByVal Original_DocCerts_DocCd As String, _ ByVal Original_DocCerts_DTy As String, _ ByVal Original_DocCerts_DRef As String, _ ByVal Original_DocCerts_IssD As Global.System.Nullable(Of Date), _ ByVal Original_DocCerts_IssCtry As String, _ ByVal Original_DocCerts_DTIN As String, _ ByVal Original_DocCerts_UidVid As String, _ ByVal Original_DocCerts_ValD As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_telposAbg_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_telposAbg_telposId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_telposAbg_telanmId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Pos_ID,Integer) If (Original_DocCerts_ID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_DocCerts_ID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_DocCerts_DocCd 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_DocCerts_DocCd,String) End If If (Original_DocCerts_DTy 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_DocCerts_DTy,String) End If If (Original_DocCerts_DRef Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_DocCerts_DRef,String) End If If (Original_DocCerts_IssD.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_DocCerts_IssD.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_DocCerts_IssCtry 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_DocCerts_IssCtry,String) End If If (Original_DocCerts_DTIN 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_DocCerts_DTIN,String) End If If (Original_DocCerts_UidVid 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_DocCerts_UidVid,String) End If If (Original_DocCerts_ValD.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_DocCerts_ValD.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).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 telposAbg_telposId As Integer, _ ByVal telposAbg_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal DocCerts_ID As Global.System.Nullable(Of Integer), _ ByVal DocCerts_DocCd As String, _ ByVal DocCerts_DTy As String, _ ByVal DocCerts_DRef As String, _ ByVal DocCerts_IssD As Global.System.Nullable(Of Date), _ ByVal DocCerts_IssCtry As String, _ ByVal DocCerts_DTIN As String, _ ByVal DocCerts_UidVid As String, _ ByVal DocCerts_ValD As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(telposAbg_telposId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(telposAbg_telanmId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Referenz_ID,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(ComIndicator,Boolean) Me.Adapter.InsertCommand.Parameters(6).Value = CType(Pos_ID,Integer) If (DocCerts_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(DocCerts_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (DocCerts_DocCd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(DocCerts_DocCd,String) End If If (DocCerts_DTy Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(DocCerts_DTy,String) End If If (DocCerts_DRef Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(DocCerts_DRef,String) End If If (DocCerts_IssD.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(DocCerts_IssD.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (DocCerts_IssCtry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(DocCerts_IssCtry,String) End If If (DocCerts_DTIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(DocCerts_DTIN,String) End If If (DocCerts_UidVid Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(DocCerts_UidVid,String) End If If (DocCerts_ValD.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(DocCerts_ValD.Value,Date) Else Me.Adapter.InsertCommand.Parameters(15).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 telposAbg_telposId As Integer, _ ByVal telposAbg_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal DocCerts_ID As Global.System.Nullable(Of Integer), _ ByVal DocCerts_DocCd As String, _ ByVal DocCerts_DTy As String, _ ByVal DocCerts_DRef As String, _ ByVal DocCerts_IssD As Global.System.Nullable(Of Date), _ ByVal DocCerts_IssCtry As String, _ ByVal DocCerts_DTIN As String, _ ByVal DocCerts_UidVid As String, _ ByVal DocCerts_ValD As Global.System.Nullable(Of Date), _ ByVal Original_telposAbg_id As Integer, _ ByVal Original_telposAbg_telposId As Integer, _ ByVal Original_telposAbg_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_DocCerts_ID As Global.System.Nullable(Of Integer), _ ByVal Original_DocCerts_DocCd As String, _ ByVal Original_DocCerts_DTy As String, _ ByVal Original_DocCerts_DRef As String, _ ByVal Original_DocCerts_IssD As Global.System.Nullable(Of Date), _ ByVal Original_DocCerts_IssCtry As String, _ ByVal Original_DocCerts_DTIN As String, _ ByVal Original_DocCerts_UidVid As String, _ ByVal Original_DocCerts_ValD As Global.System.Nullable(Of Date), _ ByVal telposAbg_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(telposAbg_telposId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(telposAbg_telanmId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Pos_ID,Integer) If (DocCerts_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DocCerts_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (DocCerts_DocCd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(DocCerts_DocCd,String) End If If (DocCerts_DTy Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(DocCerts_DTy,String) End If If (DocCerts_DRef Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(DocCerts_DRef,String) End If If (DocCerts_IssD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(DocCerts_IssD.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (DocCerts_IssCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DocCerts_IssCtry,String) End If If (DocCerts_DTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(DocCerts_DTIN,String) End If If (DocCerts_UidVid Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(DocCerts_UidVid,String) End If If (DocCerts_ValD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(DocCerts_ValD.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_telposAbg_id,Integer) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_telposAbg_telposId,Integer) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_telposAbg_telanmId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Pos_ID,Integer) If (Original_DocCerts_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_DocCerts_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_DocCerts_DocCd 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_DocCerts_DocCd,String) End If If (Original_DocCerts_DTy 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_DocCerts_DTy,String) End If If (Original_DocCerts_DRef 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_DocCerts_DRef,String) End If If (Original_DocCerts_IssD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_DocCerts_IssD.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_DocCerts_IssCtry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_DocCerts_IssCtry,String) End If If (Original_DocCerts_DTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_DocCerts_DTIN,String) End If If (Original_DocCerts_UidVid Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_DocCerts_UidVid,String) End If If (Original_DocCerts_ValD.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_DocCerts_ValD.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(42).Value = CType(telposAbg_id,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 telposAbg_telposId As Integer, _ ByVal telposAbg_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal Pos_ID As Integer, _ ByVal DocCerts_ID As Global.System.Nullable(Of Integer), _ ByVal DocCerts_DocCd As String, _ ByVal DocCerts_DTy As String, _ ByVal DocCerts_DRef As String, _ ByVal DocCerts_IssD As Global.System.Nullable(Of Date), _ ByVal DocCerts_IssCtry As String, _ ByVal DocCerts_DTIN As String, _ ByVal DocCerts_UidVid As String, _ ByVal DocCerts_ValD As Global.System.Nullable(Of Date), _ ByVal Original_telposAbg_id As Integer, _ ByVal Original_telposAbg_telposId As Integer, _ ByVal Original_telposAbg_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_Pos_ID As Integer, _ ByVal Original_DocCerts_ID As Global.System.Nullable(Of Integer), _ ByVal Original_DocCerts_DocCd As String, _ ByVal Original_DocCerts_DTy As String, _ ByVal Original_DocCerts_DRef As String, _ ByVal Original_DocCerts_IssD As Global.System.Nullable(Of Date), _ ByVal Original_DocCerts_IssCtry As String, _ ByVal Original_DocCerts_DTIN As String, _ ByVal Original_DocCerts_UidVid As String, _ ByVal Original_DocCerts_ValD As Global.System.Nullable(Of Date)) As Integer Return Me.Update(telposAbg_telposId, telposAbg_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, Pos_ID, DocCerts_ID, DocCerts_DocCd, DocCerts_DTy, DocCerts_DRef, DocCerts_IssD, DocCerts_IssCtry, DocCerts_DTIN, DocCerts_UidVid, DocCerts_ValD, Original_telposAbg_id, Original_telposAbg_telposId, Original_telposAbg_telanmId, Original_Mandant_ID, Original_Bereich_ID, Original_Referenz_ID, Original_ComIndicator, Original_Pos_ID, Original_DocCerts_ID, Original_DocCerts_DocCd, Original_DocCerts_DTy, Original_DocCerts_DRef, Original_DocCerts_IssD, Original_DocCerts_IssCtry, Original_DocCerts_DTIN, Original_DocCerts_UidVid, Original_DocCerts_ValD, Original_telposAbg_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTelotec_SicherheitTableAdapter 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 = "tblTelotec_Sicherheit" tableMapping.ColumnMappings.Add("telgrt_id", "telgrt_id") tableMapping.ColumnMappings.Add("telgrt_telanmId", "telgrt_telanmId") tableMapping.ColumnMappings.Add("Mandant_ID", "Mandant_ID") tableMapping.ColumnMappings.Add("Bereich_ID", "Bereich_ID") tableMapping.ColumnMappings.Add("Referenz_ID", "Referenz_ID") tableMapping.ColumnMappings.Add("ComIndicator", "ComIndicator") tableMapping.ColumnMappings.Add("GrteeRef_ID", "GrteeRef_ID") tableMapping.ColumnMappings.Add("GrteeRef_GTy", "GrteeRef_GTy") tableMapping.ColumnMappings.Add("GRN", "GRN") tableMapping.ColumnMappings.Add("OGR", "OGR") tableMapping.ColumnMappings.Add("Acc", "Acc") tableMapping.ColumnMappings.Add("GTIN", "GTIN") tableMapping.ColumnMappings.Add("GVal", "GVal") tableMapping.ColumnMappings.Add("Curr", "Curr") 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].[tblTelotec_Sicherheit] WHERE (([telgrt_id] = @Original_telgrt_"& _ "id) AND ([telgrt_telanmId] = @Original_telgrt_telanmId) AND ([Mandant_ID] = @Ori"& _ "ginal_Mandant_ID) AND ([Bereich_ID] = @Original_Bereich_ID) AND ([Referenz_ID] ="& _ " @Original_Referenz_ID) AND ([ComIndicator] = @Original_ComIndicator) AND ([Grte"& _ "eRef_ID] = @Original_GrteeRef_ID) AND ([GrteeRef_GTy] = @Original_GrteeRef_GTy) "& _ "AND ((@IsNull_GRN = 1 AND [GRN] IS NULL) OR ([GRN] = @Original_GRN)) AND ((@IsNu"& _ "ll_OGR = 1 AND [OGR] IS NULL) OR ([OGR] = @Original_OGR)) AND ((@IsNull_Acc = 1 "& _ "AND [Acc] IS NULL) OR ([Acc] = @Original_Acc)) AND ((@IsNull_GTIN = 1 AND [GTIN]"& _ " IS NULL) OR ([GTIN] = @Original_GTIN)) AND ((@IsNull_GVal = 1 AND [GVal] IS NUL"& _ "L) OR ([GVal] = @Original_GVal)) AND ((@IsNull_Curr = 1 AND [Curr] IS NULL) OR ("& _ "[Curr] = @Original_Curr)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telgrt_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telgrt_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telgrt_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telgrt_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrteeRef_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrteeRef_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrteeRef_GTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrteeRef_GTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OGR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OGR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OGR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OGR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Acc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Acc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Acc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Acc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GVal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GVal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "GVal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", 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].[tblTelotec_Sicherheit] ([telgrt_telanmId], [Mandant_ID], [Bere"& _ "ich_ID], [Referenz_ID], [ComIndicator], [GrteeRef_ID], [GrteeRef_GTy], [GRN], [O"& _ "GR], [Acc], [GTIN], [GVal], [Curr]) VALUES (@telgrt_telanmId, @Mandant_ID, @Bere"& _ "ich_ID, @Referenz_ID, @ComIndicator, @GrteeRef_ID, @GrteeRef_GTy, @GRN, @OGR, @A"& _ "cc, @GTIN, @GVal, @Curr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT telgrt_id, telgrt_telanmId, Mandant_ID, Bereic"& _ "h_ID, Referenz_ID, ComIndicator, GrteeRef_ID, GrteeRef_GTy, GRN, OGR, Acc, GTIN,"& _ " GVal, Curr FROM tblTelotec_Sicherheit WHERE (telgrt_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telgrt_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telgrt_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrteeRef_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrteeRef_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrteeRef_GTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrteeRef_GTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OGR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OGR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Acc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Acc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "GVal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", 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].[tblTelotec_Sicherheit] SET [telgrt_telanmId] = @telgrt_telanmId, [M"& _ "andant_ID] = @Mandant_ID, [Bereich_ID] = @Bereich_ID, [Referenz_ID] = @Referenz_"& _ "ID, [ComIndicator] = @ComIndicator, [GrteeRef_ID] = @GrteeRef_ID, [GrteeRef_GTy]"& _ " = @GrteeRef_GTy, [GRN] = @GRN, [OGR] = @OGR, [Acc] = @Acc, [GTIN] = @GTIN, [GVa"& _ "l] = @GVal, [Curr] = @Curr WHERE (([telgrt_id] = @Original_telgrt_id) AND ([telg"& _ "rt_telanmId] = @Original_telgrt_telanmId) AND ([Mandant_ID] = @Original_Mandant_"& _ "ID) AND ([Bereich_ID] = @Original_Bereich_ID) AND ([Referenz_ID] = @Original_Ref"& _ "erenz_ID) AND ([ComIndicator] = @Original_ComIndicator) AND ([GrteeRef_ID] = @Or"& _ "iginal_GrteeRef_ID) AND ([GrteeRef_GTy] = @Original_GrteeRef_GTy) AND ((@IsNull_"& _ "GRN = 1 AND [GRN] IS NULL) OR ([GRN] = @Original_GRN)) AND ((@IsNull_OGR = 1 AND"& _ " [OGR] IS NULL) OR ([OGR] = @Original_OGR)) AND ((@IsNull_Acc = 1 AND [Acc] IS N"& _ "ULL) OR ([Acc] = @Original_Acc)) AND ((@IsNull_GTIN = 1 AND [GTIN] IS NULL) OR ("& _ "[GTIN] = @Original_GTIN)) AND ((@IsNull_GVal = 1 AND [GVal] IS NULL) OR ([GVal] "& _ "= @Original_GVal)) AND ((@IsNull_Curr = 1 AND [Curr] IS NULL) OR ([Curr] = @Orig"& _ "inal_Curr)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT telgrt_id, telgrt_telanmId, Mandant_ID, Bereich_ID, Refere"& _ "nz_ID, ComIndicator, GrteeRef_ID, GrteeRef_GTy, GRN, OGR, Acc, GTIN, GVal, Curr "& _ "FROM tblTelotec_Sicherheit WHERE (telgrt_id = @telgrt_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telgrt_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telgrt_telanmId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrteeRef_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrteeRef_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrteeRef_GTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrteeRef_GTy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OGR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OGR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Acc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Acc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GTIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "GVal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telgrt_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telgrt_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_telgrt_telanmId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "telgrt_telanmId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Mandant_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bereich_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bereich_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Referenz_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Referenz_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ComIndicator", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ComIndicator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrteeRef_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrteeRef_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrteeRef_GTy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrteeRef_GTy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GRN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GRN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OGR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OGR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OGR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OGR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Acc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Acc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Acc", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Acc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GTIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GTIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GTIN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GTIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GVal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GVal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GVal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "GVal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Curr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Curr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Curr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@telgrt_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "telgrt_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 telgrt_id, telgrt_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndica"& _ "tor, GrteeRef_ID, GrteeRef_GTy, GRN, OGR, Acc, GTIN, GVal, Curr FROM dbo.tblTelo"& _ "tec_Sicherheit" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTelotec_SicherheitDataTable) 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 VERAGDataSet.tblTelotec_SicherheitDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTelotec_SicherheitDataTable = New VERAGDataSet.tblTelotec_SicherheitDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTelotec_SicherheitDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTelotec_Sicherheit") 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_telgrt_id As Integer, ByVal Original_telgrt_telanmId As Integer, ByVal Original_Mandant_ID As String, ByVal Original_Bereich_ID As String, ByVal Original_Referenz_ID As String, ByVal Original_ComIndicator As Boolean, ByVal Original_GrteeRef_ID As Integer, ByVal Original_GrteeRef_GTy As String, ByVal Original_GRN As String, ByVal Original_OGR As String, ByVal Original_Acc As String, ByVal Original_GTIN As String, ByVal Original_GVal As Global.System.Nullable(Of Decimal), ByVal Original_Curr As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_telgrt_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_telgrt_telanmId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_GrteeRef_ID,Integer) If (Original_GrteeRef_GTy Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_GrteeRef_GTy") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_GrteeRef_GTy,String) End If If (Original_GRN 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_GRN,String) End If If (Original_OGR 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_OGR,String) End If If (Original_Acc 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_Acc,String) End If If (Original_GTIN Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_GTIN,String) End If If (Original_GVal.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_GVal.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_Curr 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_Curr,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 telgrt_telanmId As Integer, ByVal Mandant_ID As String, ByVal Bereich_ID As String, ByVal Referenz_ID As String, ByVal ComIndicator As Boolean, ByVal GrteeRef_ID As Integer, ByVal GrteeRef_GTy As String, ByVal GRN As String, ByVal OGR As String, ByVal Acc As String, ByVal GTIN As String, ByVal GVal As Global.System.Nullable(Of Decimal), ByVal Curr As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(telgrt_telanmId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Referenz_ID,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(ComIndicator,Boolean) Me.Adapter.InsertCommand.Parameters(5).Value = CType(GrteeRef_ID,Integer) If (GrteeRef_GTy Is Nothing) Then Throw New Global.System.ArgumentNullException("GrteeRef_GTy") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(GrteeRef_GTy,String) End If If (GRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(GRN,String) End If If (OGR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(OGR,String) End If If (Acc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Acc,String) End If If (GTIN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(GTIN,String) End If If (GVal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(GVal.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Curr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Curr,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 telgrt_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal GrteeRef_ID As Integer, _ ByVal GrteeRef_GTy As String, _ ByVal GRN As String, _ ByVal OGR As String, _ ByVal Acc As String, _ ByVal GTIN As String, _ ByVal GVal As Global.System.Nullable(Of Decimal), _ ByVal Curr As String, _ ByVal Original_telgrt_id As Integer, _ ByVal Original_telgrt_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_GrteeRef_ID As Integer, _ ByVal Original_GrteeRef_GTy As String, _ ByVal Original_GRN As String, _ ByVal Original_OGR As String, _ ByVal Original_Acc As String, _ ByVal Original_GTIN As String, _ ByVal Original_GVal As Global.System.Nullable(Of Decimal), _ ByVal Original_Curr As String, _ ByVal telgrt_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(telgrt_telanmId,Integer) If (Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Mandant_ID,String) End If If (Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Bereich_ID,String) End If If (Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GrteeRef_ID,Integer) If (GrteeRef_GTy Is Nothing) Then Throw New Global.System.ArgumentNullException("GrteeRef_GTy") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GrteeRef_GTy,String) End If If (GRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GRN,String) End If If (OGR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OGR,String) End If If (Acc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Acc,String) End If If (GTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GTIN,String) End If If (GVal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GVal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Curr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Curr,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_telgrt_id,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_telgrt_telanmId,Integer) If (Original_Mandant_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Mandant_ID") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Mandant_ID,String) End If If (Original_Bereich_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Bereich_ID") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Bereich_ID,String) End If If (Original_Referenz_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Referenz_ID") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Referenz_ID,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ComIndicator,Boolean) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GrteeRef_ID,Integer) If (Original_GrteeRef_GTy Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_GrteeRef_GTy") Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GrteeRef_GTy,String) End If If (Original_GRN 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_GRN,String) End If If (Original_OGR 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_OGR,String) End If If (Original_Acc 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_Acc,String) End If If (Original_GTIN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_GTIN,String) End If If (Original_GVal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_GVal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_Curr 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_Curr,String) End If Me.Adapter.UpdateCommand.Parameters(33).Value = CType(telgrt_id,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 telgrt_telanmId As Integer, _ ByVal Mandant_ID As String, _ ByVal Bereich_ID As String, _ ByVal Referenz_ID As String, _ ByVal ComIndicator As Boolean, _ ByVal GrteeRef_ID As Integer, _ ByVal GrteeRef_GTy As String, _ ByVal GRN As String, _ ByVal OGR As String, _ ByVal Acc As String, _ ByVal GTIN As String, _ ByVal GVal As Global.System.Nullable(Of Decimal), _ ByVal Curr As String, _ ByVal Original_telgrt_id As Integer, _ ByVal Original_telgrt_telanmId As Integer, _ ByVal Original_Mandant_ID As String, _ ByVal Original_Bereich_ID As String, _ ByVal Original_Referenz_ID As String, _ ByVal Original_ComIndicator As Boolean, _ ByVal Original_GrteeRef_ID As Integer, _ ByVal Original_GrteeRef_GTy As String, _ ByVal Original_GRN As String, _ ByVal Original_OGR As String, _ ByVal Original_Acc As String, _ ByVal Original_GTIN As String, _ ByVal Original_GVal As Global.System.Nullable(Of Decimal), _ ByVal Original_Curr As String) As Integer Return Me.Update(telgrt_telanmId, Mandant_ID, Bereich_ID, Referenz_ID, ComIndicator, GrteeRef_ID, GrteeRef_GTy, GRN, OGR, Acc, GTIN, GVal, Curr, Original_telgrt_id, Original_telgrt_telanmId, Original_Mandant_ID, Original_Bereich_ID, Original_Referenz_ID, Original_ComIndicator, Original_GrteeRef_ID, Original_GrteeRef_GTy, Original_GRN, Original_OGR, Original_Acc, Original_GTIN, Original_GVal, Original_Curr, Original_telgrt_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTestTableAdapter 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 = "tblTest" tableMapping.ColumnMappings.Add("TEST", "TEST") tableMapping.ColumnMappings.Add("tmstmp", "tmstmp") tableMapping.ColumnMappings.Add("ipaddress", "ipaddress") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblTest] ([TEST], [tmstmp], [ipaddress]) VALUES (@TEST, @tmstm"& _ "p, @ipaddress)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEST", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@tmstmp", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "tmstmp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ipaddress", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ipaddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 TEST, tmstmp, ipaddress FROM dbo.tblTest" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTestDataTable) 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 VERAGDataSet.tblTestDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTestDataTable = New VERAGDataSet.tblTestDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTestDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTest") 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 Insert(ByVal TEST As String, ByVal tmstmp As Date, ByVal ipaddress As String) As Integer If (TEST Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(TEST,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(tmstmp,Date) If (ipaddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ipaddress,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTextkonserveTableAdapter 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 = "tblTextkonserve" tableMapping.ColumnMappings.Add("txt_Id", "txt_Id") tableMapping.ColumnMappings.Add("txt_kategorie", "txt_kategorie") tableMapping.ColumnMappings.Add("txt_bezeichnung", "txt_bezeichnung") tableMapping.ColumnMappings.Add("txt_sprache", "txt_sprache") tableMapping.ColumnMappings.Add("txt_text", "txt_text") tableMapping.ColumnMappings.Add("txt_betreff", "txt_betreff") tableMapping.ColumnMappings.Add("txt_FIRMA", "txt_FIRMA") tableMapping.ColumnMappings.Add("txt_firmaSig", "txt_firmaSig") tableMapping.ColumnMappings.Add("txt_dynMailvorlage", "txt_dynMailvorlage") tableMapping.ColumnMappings.Add("txt_letzteAenderungUser", "txt_letzteAenderungUser") tableMapping.ColumnMappings.Add("txt_letzteAenderung", "txt_letzteAenderung") tableMapping.ColumnMappings.Add("txt_sendungsvermerk", "txt_sendungsvermerk") tableMapping.ColumnMappings.Add("txt_sendungsvermerkId", "txt_sendungsvermerkId") tableMapping.ColumnMappings.Add("txt_sendungsvermerkText", "txt_sendungsvermerkText") tableMapping.ColumnMappings.Add("txt_fixerEmpfaengerEmail", "txt_fixerEmpfaengerEmail") tableMapping.ColumnMappings.Add("txt_typ", "txt_typ") 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].[tblTextkonserve] WHERE (([txt_Id] = @Original_txt_Id) AND ([tx"& _ "t_kategorie] = @Original_txt_kategorie) AND ([txt_bezeichnung] = @Original_txt_b"& _ "ezeichnung) AND ([txt_sprache] = @Original_txt_sprache) AND ([txt_FIRMA] = @Orig"& _ "inal_txt_FIRMA) AND ([txt_firmaSig] = @Original_txt_firmaSig) AND ([txt_dynMailv"& _ "orlage] = @Original_txt_dynMailvorlage) AND ((@IsNull_txt_letzteAenderungUser = "& _ "1 AND [txt_letzteAenderungUser] IS NULL) OR ([txt_letzteAenderungUser] = @Origin"& _ "al_txt_letzteAenderungUser)) AND ((@IsNull_txt_letzteAenderung = 1 AND [txt_letz"& _ "teAenderung] IS NULL) OR ([txt_letzteAenderung] = @Original_txt_letzteAenderung)"& _ ") AND ((@IsNull_txt_sendungsvermerk = 1 AND [txt_sendungsvermerk] IS NULL) OR (["& _ "txt_sendungsvermerk] = @Original_txt_sendungsvermerk)) AND ((@IsNull_txt_sendung"& _ "svermerkId = 1 AND [txt_sendungsvermerkId] IS NULL) OR ([txt_sendungsvermerkId] "& _ "= @Original_txt_sendungsvermerkId)) AND ((@IsNull_txt_sendungsvermerkText = 1 AN"& _ "D [txt_sendungsvermerkText] IS NULL) OR ([txt_sendungsvermerkText] = @Original_t"& _ "xt_sendungsvermerkText)) AND ((@IsNull_txt_fixerEmpfaengerEmail = 1 AND [txt_fix"& _ "erEmpfaengerEmail] IS NULL) OR ([txt_fixerEmpfaengerEmail] = @Original_txt_fixer"& _ "EmpfaengerEmail)) AND ((@IsNull_txt_typ = 1 AND [txt_typ] IS NULL) OR ([txt_typ]"& _ " = @Original_txt_typ)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_kategorie", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_kategorie", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sprache", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_FIRMA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_FIRMA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_firmaSig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_firmaSig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_dynMailvorlage", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_dynMailvorlage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_letzteAenderungUser", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderungUser", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_letzteAenderungUser", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderungUser", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_letzteAenderung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_letzteAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_sendungsvermerk", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerk", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_sendungsvermerk", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_sendungsvermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_sendungsvermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_sendungsvermerkText", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkText", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_sendungsvermerkText", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkText", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_fixerEmpfaengerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_fixerEmpfaengerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_fixerEmpfaengerEmail", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_fixerEmpfaengerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_typ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_typ", 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].[tblTextkonserve] ([txt_kategorie], [txt_bezeichnung], [txt_spr"& _ "ache], [txt_text], [txt_betreff], [txt_FIRMA], [txt_firmaSig], [txt_dynMailvorla"& _ "ge], [txt_letzteAenderungUser], [txt_letzteAenderung], [txt_sendungsvermerk], [t"& _ "xt_sendungsvermerkId], [txt_sendungsvermerkText], [txt_fixerEmpfaengerEmail], [t"& _ "xt_typ]) VALUES (@txt_kategorie, @txt_bezeichnung, @txt_sprache, @txt_text, @txt"& _ "_betreff, @txt_FIRMA, @txt_firmaSig, @txt_dynMailvorlage, @txt_letzteAenderungUs"& _ "er, @txt_letzteAenderung, @txt_sendungsvermerk, @txt_sendungsvermerkId, @txt_sen"& _ "dungsvermerkText, @txt_fixerEmpfaengerEmail, @txt_typ);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT txt_Id, txt_kate"& _ "gorie, txt_bezeichnung, txt_sprache, txt_text, txt_betreff, txt_FIRMA, txt_firma"& _ "Sig, txt_dynMailvorlage, txt_letzteAenderungUser, txt_letzteAenderung, txt_sendu"& _ "ngsvermerk, txt_sendungsvermerkId, txt_sendungsvermerkText, txt_fixerEmpfaengerE"& _ "mail, txt_typ FROM tblTextkonserve WHERE (txt_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_kategorie", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_kategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_text", Global.System.Data.SqlDbType.Text, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_betreff", Global.System.Data.SqlDbType.Text, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_betreff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_FIRMA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_FIRMA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_firmaSig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_firmaSig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_dynMailvorlage", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_dynMailvorlage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_letzteAenderungUser", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderungUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_letzteAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_sendungsvermerk", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_sendungsvermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_sendungsvermerkText", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_fixerEmpfaengerEmail", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_fixerEmpfaengerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_typ", 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].[tblTextkonserve] SET [txt_kategorie] = @txt_kategorie, [txt_bezeich"& _ "nung] = @txt_bezeichnung, [txt_sprache] = @txt_sprache, [txt_text] = @txt_text, "& _ "[txt_betreff] = @txt_betreff, [txt_FIRMA] = @txt_FIRMA, [txt_firmaSig] = @txt_fi"& _ "rmaSig, [txt_dynMailvorlage] = @txt_dynMailvorlage, [txt_letzteAenderungUser] = "& _ "@txt_letzteAenderungUser, [txt_letzteAenderung] = @txt_letzteAenderung, [txt_sen"& _ "dungsvermerk] = @txt_sendungsvermerk, [txt_sendungsvermerkId] = @txt_sendungsver"& _ "merkId, [txt_sendungsvermerkText] = @txt_sendungsvermerkText, [txt_fixerEmpfaeng"& _ "erEmail] = @txt_fixerEmpfaengerEmail, [txt_typ] = @txt_typ WHERE (([txt_Id] = @O"& _ "riginal_txt_Id) AND ([txt_kategorie] = @Original_txt_kategorie) AND ([txt_bezeic"& _ "hnung] = @Original_txt_bezeichnung) AND ([txt_sprache] = @Original_txt_sprache) "& _ "AND ([txt_FIRMA] = @Original_txt_FIRMA) AND ([txt_firmaSig] = @Original_txt_firm"& _ "aSig) AND ([txt_dynMailvorlage] = @Original_txt_dynMailvorlage) AND ((@IsNull_tx"& _ "t_letzteAenderungUser = 1 AND [txt_letzteAenderungUser] IS NULL) OR ([txt_letzte"& _ "AenderungUser] = @Original_txt_letzteAenderungUser)) AND ((@IsNull_txt_letzteAen"& _ "derung = 1 AND [txt_letzteAenderung] IS NULL) OR ([txt_letzteAenderung] = @Origi"& _ "nal_txt_letzteAenderung)) AND ((@IsNull_txt_sendungsvermerk = 1 AND [txt_sendung"& _ "svermerk] IS NULL) OR ([txt_sendungsvermerk] = @Original_txt_sendungsvermerk)) A"& _ "ND ((@IsNull_txt_sendungsvermerkId = 1 AND [txt_sendungsvermerkId] IS NULL) OR ("& _ "[txt_sendungsvermerkId] = @Original_txt_sendungsvermerkId)) AND ((@IsNull_txt_se"& _ "ndungsvermerkText = 1 AND [txt_sendungsvermerkText] IS NULL) OR ([txt_sendungsve"& _ "rmerkText] = @Original_txt_sendungsvermerkText)) AND ((@IsNull_txt_fixerEmpfaeng"& _ "erEmail = 1 AND [txt_fixerEmpfaengerEmail] IS NULL) OR ([txt_fixerEmpfaengerEmai"& _ "l] = @Original_txt_fixerEmpfaengerEmail)) AND ((@IsNull_txt_typ = 1 AND [txt_typ"& _ "] IS NULL) OR ([txt_typ] = @Original_txt_typ)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT txt_Id, txt_kategorie, "& _ "txt_bezeichnung, txt_sprache, txt_text, txt_betreff, txt_FIRMA, txt_firmaSig, tx"& _ "t_dynMailvorlage, txt_letzteAenderungUser, txt_letzteAenderung, txt_sendungsverm"& _ "erk, txt_sendungsvermerkId, txt_sendungsvermerkText, txt_fixerEmpfaengerEmail, t"& _ "xt_typ FROM tblTextkonserve WHERE (txt_Id = @txt_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_kategorie", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_kategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_text", Global.System.Data.SqlDbType.Text, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_betreff", Global.System.Data.SqlDbType.Text, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_betreff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_FIRMA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_FIRMA", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_firmaSig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_firmaSig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_dynMailvorlage", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_dynMailvorlage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_letzteAenderungUser", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderungUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_letzteAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_sendungsvermerk", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_sendungsvermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_sendungsvermerkText", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_fixerEmpfaengerEmail", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_fixerEmpfaengerEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_kategorie", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_kategorie", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sprache", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_FIRMA", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_FIRMA", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_firmaSig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_firmaSig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_dynMailvorlage", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_dynMailvorlage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_letzteAenderungUser", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderungUser", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_letzteAenderungUser", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderungUser", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_letzteAenderung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_letzteAenderung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_letzteAenderung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_sendungsvermerk", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerk", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_sendungsvermerk", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_sendungsvermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_sendungsvermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_sendungsvermerkText", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkText", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_sendungsvermerkText", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_sendungsvermerkText", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_fixerEmpfaengerEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_fixerEmpfaengerEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_fixerEmpfaengerEmail", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_fixerEmpfaengerEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_txt_typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_typ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_txt_typ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_typ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txt_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "txt_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 txt_Id, txt_kategorie, txt_bezeichnung, txt_sprache, txt_text, txt_betreff"& _ ", txt_FIRMA, txt_firmaSig, txt_dynMailvorlage, txt_letzteAenderungUser, txt_letz"& _ "teAenderung, txt_sendungsvermerk, txt_sendungsvermerkId, txt_sendungsvermerkText"& _ ", txt_fixerEmpfaengerEmail, txt_typ FROM dbo.tblTextkonserve" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTextkonserveDataTable) 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 VERAGDataSet.tblTextkonserveDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTextkonserveDataTable = New VERAGDataSet.tblTextkonserveDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTextkonserveDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTextkonserve") 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_txt_Id As Integer, ByVal Original_txt_kategorie As String, ByVal Original_txt_bezeichnung As String, ByVal Original_txt_sprache As String, ByVal Original_txt_FIRMA As String, ByVal Original_txt_firmaSig As Integer, ByVal Original_txt_dynMailvorlage As Boolean, ByVal Original_txt_letzteAenderungUser As String, ByVal Original_txt_letzteAenderung As Global.System.Nullable(Of Date), ByVal Original_txt_sendungsvermerk As Global.System.Nullable(Of Boolean), ByVal Original_txt_sendungsvermerkId As Global.System.Nullable(Of Integer), ByVal Original_txt_sendungsvermerkText As String, ByVal Original_txt_fixerEmpfaengerEmail As String, ByVal Original_txt_typ As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_txt_Id,Integer) If (Original_txt_kategorie Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_txt_kategorie") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_txt_kategorie,String) End If If (Original_txt_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_txt_bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_txt_bezeichnung,String) End If If (Original_txt_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_txt_sprache") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_txt_sprache,String) End If If (Original_txt_FIRMA Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_txt_FIRMA") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_txt_FIRMA,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_txt_firmaSig,Integer) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_txt_dynMailvorlage,Boolean) If (Original_txt_letzteAenderungUser 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_txt_letzteAenderungUser,String) End If If (Original_txt_letzteAenderung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_txt_letzteAenderung.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_txt_sendungsvermerk.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_txt_sendungsvermerk.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_txt_sendungsvermerkId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_txt_sendungsvermerkId.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_txt_sendungsvermerkText Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_txt_sendungsvermerkText,String) End If If (Original_txt_fixerEmpfaengerEmail Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_txt_fixerEmpfaengerEmail,String) End If If (Original_txt_typ.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_txt_typ.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).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 txt_kategorie As String, ByVal txt_bezeichnung As String, ByVal txt_sprache As String, ByVal txt_text As String, ByVal txt_betreff As String, ByVal txt_FIRMA As String, ByVal txt_firmaSig As Integer, ByVal txt_dynMailvorlage As Boolean, ByVal txt_letzteAenderungUser As String, ByVal txt_letzteAenderung As Global.System.Nullable(Of Date), ByVal txt_sendungsvermerk As Global.System.Nullable(Of Boolean), ByVal txt_sendungsvermerkId As Global.System.Nullable(Of Integer), ByVal txt_sendungsvermerkText As String, ByVal txt_fixerEmpfaengerEmail As String, ByVal txt_typ As Global.System.Nullable(Of Integer)) As Integer If (txt_kategorie Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_kategorie") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(txt_kategorie,String) End If If (txt_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_bezeichnung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(txt_bezeichnung,String) End If If (txt_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_sprache") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(txt_sprache,String) End If If (txt_text Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_text") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(txt_text,String) End If If (txt_betreff Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_betreff") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(txt_betreff,String) End If If (txt_FIRMA Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_FIRMA") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(txt_FIRMA,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(txt_firmaSig,Integer) Me.Adapter.InsertCommand.Parameters(7).Value = CType(txt_dynMailvorlage,Boolean) If (txt_letzteAenderungUser Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(txt_letzteAenderungUser,String) End If If (txt_letzteAenderung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(txt_letzteAenderung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (txt_sendungsvermerk.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(txt_sendungsvermerk.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (txt_sendungsvermerkId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(txt_sendungsvermerkId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (txt_sendungsvermerkText Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(txt_sendungsvermerkText,String) End If If (txt_fixerEmpfaengerEmail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(txt_fixerEmpfaengerEmail,String) End If If (txt_typ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(txt_typ.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(14).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 txt_kategorie As String, _ ByVal txt_bezeichnung As String, _ ByVal txt_sprache As String, _ ByVal txt_text As String, _ ByVal txt_betreff As String, _ ByVal txt_FIRMA As String, _ ByVal txt_firmaSig As Integer, _ ByVal txt_dynMailvorlage As Boolean, _ ByVal txt_letzteAenderungUser As String, _ ByVal txt_letzteAenderung As Global.System.Nullable(Of Date), _ ByVal txt_sendungsvermerk As Global.System.Nullable(Of Boolean), _ ByVal txt_sendungsvermerkId As Global.System.Nullable(Of Integer), _ ByVal txt_sendungsvermerkText As String, _ ByVal txt_fixerEmpfaengerEmail As String, _ ByVal txt_typ As Global.System.Nullable(Of Integer), _ ByVal Original_txt_Id As Integer, _ ByVal Original_txt_kategorie As String, _ ByVal Original_txt_bezeichnung As String, _ ByVal Original_txt_sprache As String, _ ByVal Original_txt_FIRMA As String, _ ByVal Original_txt_firmaSig As Integer, _ ByVal Original_txt_dynMailvorlage As Boolean, _ ByVal Original_txt_letzteAenderungUser As String, _ ByVal Original_txt_letzteAenderung As Global.System.Nullable(Of Date), _ ByVal Original_txt_sendungsvermerk As Global.System.Nullable(Of Boolean), _ ByVal Original_txt_sendungsvermerkId As Global.System.Nullable(Of Integer), _ ByVal Original_txt_sendungsvermerkText As String, _ ByVal Original_txt_fixerEmpfaengerEmail As String, _ ByVal Original_txt_typ As Global.System.Nullable(Of Integer), _ ByVal txt_Id As Integer) As Integer If (txt_kategorie Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_kategorie") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(txt_kategorie,String) End If If (txt_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(txt_bezeichnung,String) End If If (txt_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_sprache") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(txt_sprache,String) End If If (txt_text Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_text") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(txt_text,String) End If If (txt_betreff Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_betreff") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(txt_betreff,String) End If If (txt_FIRMA Is Nothing) Then Throw New Global.System.ArgumentNullException("txt_FIRMA") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(txt_FIRMA,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(txt_firmaSig,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(txt_dynMailvorlage,Boolean) If (txt_letzteAenderungUser Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(txt_letzteAenderungUser,String) End If If (txt_letzteAenderung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(txt_letzteAenderung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (txt_sendungsvermerk.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(txt_sendungsvermerk.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (txt_sendungsvermerkId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(txt_sendungsvermerkId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (txt_sendungsvermerkText Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(txt_sendungsvermerkText,String) End If If (txt_fixerEmpfaengerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(txt_fixerEmpfaengerEmail,String) End If If (txt_typ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(txt_typ.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_txt_Id,Integer) If (Original_txt_kategorie Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_txt_kategorie") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_txt_kategorie,String) End If If (Original_txt_bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_txt_bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_txt_bezeichnung,String) End If If (Original_txt_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_txt_sprache") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_txt_sprache,String) End If If (Original_txt_FIRMA Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_txt_FIRMA") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_txt_FIRMA,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_txt_firmaSig,Integer) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_txt_dynMailvorlage,Boolean) If (Original_txt_letzteAenderungUser Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_txt_letzteAenderungUser,String) End If If (Original_txt_letzteAenderung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_txt_letzteAenderung.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_txt_sendungsvermerk.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_txt_sendungsvermerk.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_txt_sendungsvermerkId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_txt_sendungsvermerkId.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_txt_sendungsvermerkText 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_txt_sendungsvermerkText,String) End If If (Original_txt_fixerEmpfaengerEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_txt_fixerEmpfaengerEmail,String) End If If (Original_txt_typ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_txt_typ.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(36).Value = CType(txt_Id,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 txt_kategorie As String, _ ByVal txt_bezeichnung As String, _ ByVal txt_sprache As String, _ ByVal txt_text As String, _ ByVal txt_betreff As String, _ ByVal txt_FIRMA As String, _ ByVal txt_firmaSig As Integer, _ ByVal txt_dynMailvorlage As Boolean, _ ByVal txt_letzteAenderungUser As String, _ ByVal txt_letzteAenderung As Global.System.Nullable(Of Date), _ ByVal txt_sendungsvermerk As Global.System.Nullable(Of Boolean), _ ByVal txt_sendungsvermerkId As Global.System.Nullable(Of Integer), _ ByVal txt_sendungsvermerkText As String, _ ByVal txt_fixerEmpfaengerEmail As String, _ ByVal txt_typ As Global.System.Nullable(Of Integer), _ ByVal Original_txt_Id As Integer, _ ByVal Original_txt_kategorie As String, _ ByVal Original_txt_bezeichnung As String, _ ByVal Original_txt_sprache As String, _ ByVal Original_txt_FIRMA As String, _ ByVal Original_txt_firmaSig As Integer, _ ByVal Original_txt_dynMailvorlage As Boolean, _ ByVal Original_txt_letzteAenderungUser As String, _ ByVal Original_txt_letzteAenderung As Global.System.Nullable(Of Date), _ ByVal Original_txt_sendungsvermerk As Global.System.Nullable(Of Boolean), _ ByVal Original_txt_sendungsvermerkId As Global.System.Nullable(Of Integer), _ ByVal Original_txt_sendungsvermerkText As String, _ ByVal Original_txt_fixerEmpfaengerEmail As String, _ ByVal Original_txt_typ As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(txt_kategorie, txt_bezeichnung, txt_sprache, txt_text, txt_betreff, txt_FIRMA, txt_firmaSig, txt_dynMailvorlage, txt_letzteAenderungUser, txt_letzteAenderung, txt_sendungsvermerk, txt_sendungsvermerkId, txt_sendungsvermerkText, txt_fixerEmpfaengerEmail, txt_typ, Original_txt_Id, Original_txt_kategorie, Original_txt_bezeichnung, Original_txt_sprache, Original_txt_FIRMA, Original_txt_firmaSig, Original_txt_dynMailvorlage, Original_txt_letzteAenderungUser, Original_txt_letzteAenderung, Original_txt_sendungsvermerk, Original_txt_sendungsvermerkId, Original_txt_sendungsvermerkText, Original_txt_fixerEmpfaengerEmail, Original_txt_typ, Original_txt_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTR_AvisoTableAdapter 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 = "tblTR_Aviso" tableMapping.ColumnMappings.Add("trAv_Id", "trAv_Id") tableMapping.ColumnMappings.Add("trAv_PartnerSystem", "trAv_PartnerSystem") tableMapping.ColumnMappings.Add("trAv_datetime", "trAv_datetime") tableMapping.ColumnMappings.Add("trAv_Firma", "trAv_Firma") tableMapping.ColumnMappings.Add("trAv_Niederlassung", "trAv_Niederlassung") tableMapping.ColumnMappings.Add("trAv_Reference", "trAv_Reference") tableMapping.ColumnMappings.Add("trAv_Kennzeichen", "trAv_Kennzeichen") tableMapping.ColumnMappings.Add("trAv_Nationalitaet", "trAv_Nationalitaet") tableMapping.ColumnMappings.Add("trAv_Avisierer", "trAv_Avisierer") tableMapping.ColumnMappings.Add("trAv_AvisiererKdNr", "trAv_AvisiererKdNr") tableMapping.ColumnMappings.Add("trAv_Fraechter", "trAv_Fraechter") tableMapping.ColumnMappings.Add("trAv_FraechterKdNr", "trAv_FraechterKdNr") tableMapping.ColumnMappings.Add("trAv_Grenzueberschreitung", "trAv_Grenzueberschreitung") tableMapping.ColumnMappings.Add("trAv_Transportmittel", "trAv_Transportmittel") tableMapping.ColumnMappings.Add("trAv_colli", "trAv_colli") tableMapping.ColumnMappings.Add("trAv_gewicht", "trAv_gewicht") tableMapping.ColumnMappings.Add("trAv_VoraussichtlichesEintreffen", "trAv_VoraussichtlichesEintreffen") tableMapping.ColumnMappings.Add("trAv_Info", "trAv_Info") tableMapping.ColumnMappings.Add("trAv_AVISO_einarbeitet", "trAv_AVISO_einarbeitet") 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].[tblTR_Aviso] WHERE (([trAv_Id] = @Original_trAv_Id) AND ([trAv"& _ "_PartnerSystem] = @Original_trAv_PartnerSystem) AND ([trAv_datetime] = @Original"& _ "_trAv_datetime) AND ([trAv_Firma] = @Original_trAv_Firma) AND ([trAv_Niederlassu"& _ "ng] = @Original_trAv_Niederlassung) AND ([trAv_Reference] = @Original_trAv_Refer"& _ "ence) AND ((@IsNull_trAv_Kennzeichen = 1 AND [trAv_Kennzeichen] IS NULL) OR ([tr"& _ "Av_Kennzeichen] = @Original_trAv_Kennzeichen)) AND ((@IsNull_trAv_Nationalitaet "& _ "= 1 AND [trAv_Nationalitaet] IS NULL) OR ([trAv_Nationalitaet] = @Original_trAv_"& _ "Nationalitaet)) AND ((@IsNull_trAv_Avisierer = 1 AND [trAv_Avisierer] IS NULL) O"& _ "R ([trAv_Avisierer] = @Original_trAv_Avisierer)) AND ((@IsNull_trAv_AvisiererKdN"& _ "r = 1 AND [trAv_AvisiererKdNr] IS NULL) OR ([trAv_AvisiererKdNr] = @Original_trA"& _ "v_AvisiererKdNr)) AND ((@IsNull_trAv_Fraechter = 1 AND [trAv_Fraechter] IS NULL)"& _ " OR ([trAv_Fraechter] = @Original_trAv_Fraechter)) AND ((@IsNull_trAv_FraechterK"& _ "dNr = 1 AND [trAv_FraechterKdNr] IS NULL) OR ([trAv_FraechterKdNr] = @Original_t"& _ "rAv_FraechterKdNr)) AND ((@IsNull_trAv_Grenzueberschreitung = 1 AND [trAv_Grenzu"& _ "eberschreitung] IS NULL) OR ([trAv_Grenzueberschreitung] = @Original_trAv_Grenzu"& _ "eberschreitung)) AND ((@IsNull_trAv_Transportmittel = 1 AND [trAv_Transportmitte"& _ "l] IS NULL) OR ([trAv_Transportmittel] = @Original_trAv_Transportmittel)) AND (("& _ "@IsNull_trAv_colli = 1 AND [trAv_colli] IS NULL) OR ([trAv_colli] = @Original_tr"& _ "Av_colli)) AND ((@IsNull_trAv_gewicht = 1 AND [trAv_gewicht] IS NULL) OR ([trAv_"& _ "gewicht] = @Original_trAv_gewicht)) AND ((@IsNull_trAv_VoraussichtlichesEintreff"& _ "en = 1 AND [trAv_VoraussichtlichesEintreffen] IS NULL) OR ([trAv_Voraussichtlich"& _ "esEintreffen] = @Original_trAv_VoraussichtlichesEintreffen)) AND ([trAv_AVISO_ei"& _ "narbeitet] = @Original_trAv_AVISO_einarbeitet))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_PartnerSystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_PartnerSystem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Reference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Kennzeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Kennzeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Kennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Kennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Nationalitaet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Nationalitaet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Nationalitaet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Nationalitaet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Avisierer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Avisierer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Avisierer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Avisierer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_AvisiererKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_AvisiererKdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_AvisiererKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_AvisiererKdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Fraechter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Fraechter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Fraechter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_FraechterKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_FraechterKdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_FraechterKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_FraechterKdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Grenzueberschreitung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Grenzueberschreitung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Grenzueberschreitung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Grenzueberschreitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Transportmittel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Transportmittel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Transportmittel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Transportmittel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_colli", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_colli", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_colli", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_colli", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_gewicht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_gewicht", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_gewicht", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_gewicht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_VoraussichtlichesEintreffen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_VoraussichtlichesEintreffen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_VoraussichtlichesEintreffen", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_VoraussichtlichesEintreffen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_AVISO_einarbeitet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_AVISO_einarbeitet", 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].[tblTR_Aviso] ([trAv_PartnerSystem], [trAv_datetime], [trAv_Fir"& _ "ma], [trAv_Niederlassung], [trAv_Reference], [trAv_Kennzeichen], [trAv_Nationali"& _ "taet], [trAv_Avisierer], [trAv_AvisiererKdNr], [trAv_Fraechter], [trAv_Fraechter"& _ "KdNr], [trAv_Grenzueberschreitung], [trAv_Transportmittel], [trAv_colli], [trAv_"& _ "gewicht], [trAv_VoraussichtlichesEintreffen], [trAv_Info], [trAv_AVISO_einarbeit"& _ "et]) VALUES (@trAv_PartnerSystem, @trAv_datetime, @trAv_Firma, @trAv_Niederlassu"& _ "ng, @trAv_Reference, @trAv_Kennzeichen, @trAv_Nationalitaet, @trAv_Avisierer, @t"& _ "rAv_AvisiererKdNr, @trAv_Fraechter, @trAv_FraechterKdNr, @trAv_Grenzueberschreit"& _ "ung, @trAv_Transportmittel, @trAv_colli, @trAv_gewicht, @trAv_VoraussichtlichesE"& _ "intreffen, @trAv_Info, @trAv_AVISO_einarbeitet);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT trAv_Id, trAv_PartnerSy"& _ "stem, trAv_datetime, trAv_Firma, trAv_Niederlassung, trAv_Reference, trAv_Kennze"& _ "ichen, trAv_Nationalitaet, trAv_Avisierer, trAv_AvisiererKdNr, trAv_Fraechter, t"& _ "rAv_FraechterKdNr, trAv_Grenzueberschreitung, trAv_Transportmittel, trAv_colli, "& _ "trAv_gewicht, trAv_VoraussichtlichesEintreffen, trAv_Info, trAv_AVISO_einarbeite"& _ "t FROM tblTR_Aviso WHERE (trAv_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_PartnerSystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_PartnerSystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Reference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Kennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Nationalitaet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Nationalitaet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Avisierer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Avisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_AvisiererKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_AvisiererKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Fraechter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_FraechterKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_FraechterKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Grenzueberschreitung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Grenzueberschreitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Transportmittel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Transportmittel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_colli", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_colli", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_gewicht", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_gewicht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_VoraussichtlichesEintreffen", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_VoraussichtlichesEintreffen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Info", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_AVISO_einarbeitet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_AVISO_einarbeitet", 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].[tblTR_Aviso] SET [trAv_PartnerSystem] = @trAv_PartnerSystem, [trAv_"& _ "datetime] = @trAv_datetime, [trAv_Firma] = @trAv_Firma, [trAv_Niederlassung] = @"& _ "trAv_Niederlassung, [trAv_Reference] = @trAv_Reference, [trAv_Kennzeichen] = @tr"& _ "Av_Kennzeichen, [trAv_Nationalitaet] = @trAv_Nationalitaet, [trAv_Avisierer] = @"& _ "trAv_Avisierer, [trAv_AvisiererKdNr] = @trAv_AvisiererKdNr, [trAv_Fraechter] = @"& _ "trAv_Fraechter, [trAv_FraechterKdNr] = @trAv_FraechterKdNr, [trAv_Grenzueberschr"& _ "eitung] = @trAv_Grenzueberschreitung, [trAv_Transportmittel] = @trAv_Transportmi"& _ "ttel, [trAv_colli] = @trAv_colli, [trAv_gewicht] = @trAv_gewicht, [trAv_Voraussi"& _ "chtlichesEintreffen] = @trAv_VoraussichtlichesEintreffen, [trAv_Info] = @trAv_In"& _ "fo, [trAv_AVISO_einarbeitet] = @trAv_AVISO_einarbeitet WHERE (([trAv_Id] = @Orig"& _ "inal_trAv_Id) AND ([trAv_PartnerSystem] = @Original_trAv_PartnerSystem) AND ([tr"& _ "Av_datetime] = @Original_trAv_datetime) AND ([trAv_Firma] = @Original_trAv_Firma"& _ ") AND ([trAv_Niederlassung] = @Original_trAv_Niederlassung) AND ([trAv_Reference"& _ "] = @Original_trAv_Reference) AND ((@IsNull_trAv_Kennzeichen = 1 AND [trAv_Kennz"& _ "eichen] IS NULL) OR ([trAv_Kennzeichen] = @Original_trAv_Kennzeichen)) AND ((@Is"& _ "Null_trAv_Nationalitaet = 1 AND [trAv_Nationalitaet] IS NULL) OR ([trAv_National"& _ "itaet] = @Original_trAv_Nationalitaet)) AND ((@IsNull_trAv_Avisierer = 1 AND [tr"& _ "Av_Avisierer] IS NULL) OR ([trAv_Avisierer] = @Original_trAv_Avisierer)) AND ((@"& _ "IsNull_trAv_AvisiererKdNr = 1 AND [trAv_AvisiererKdNr] IS NULL) OR ([trAv_Avisie"& _ "rerKdNr] = @Original_trAv_AvisiererKdNr)) AND ((@IsNull_trAv_Fraechter = 1 AND ["& _ "trAv_Fraechter] IS NULL) OR ([trAv_Fraechter] = @Original_trAv_Fraechter)) AND ("& _ "(@IsNull_trAv_FraechterKdNr = 1 AND [trAv_FraechterKdNr] IS NULL) OR ([trAv_Frae"& _ "chterKdNr] = @Original_trAv_FraechterKdNr)) AND ((@IsNull_trAv_Grenzueberschreit"& _ "ung = 1 AND [trAv_Grenzueberschreitung] IS NULL) OR ([trAv_Grenzueberschreitung]"& _ " = @Original_trAv_Grenzueberschreitung)) AND ((@IsNull_trAv_Transportmittel = 1 "& _ "AND [trAv_Transportmittel] IS NULL) OR ([trAv_Transportmittel] = @Original_trAv_"& _ "Transportmittel)) AND ((@IsNull_trAv_colli = 1 AND [trAv_colli] IS NULL) OR ([tr"& _ "Av_colli] = @Original_trAv_colli)) AND ((@IsNull_trAv_gewicht = 1 AND [trAv_gewi"& _ "cht] IS NULL) OR ([trAv_gewicht] = @Original_trAv_gewicht)) AND ((@IsNull_trAv_V"& _ "oraussichtlichesEintreffen = 1 AND [trAv_VoraussichtlichesEintreffen] IS NULL) O"& _ "R ([trAv_VoraussichtlichesEintreffen] = @Original_trAv_VoraussichtlichesEintreff"& _ "en)) AND ([trAv_AVISO_einarbeitet] = @Original_trAv_AVISO_einarbeitet));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ " trAv_Id, trAv_PartnerSystem, trAv_datetime, trAv_Firma, trAv_Niederlassung, trA"& _ "v_Reference, trAv_Kennzeichen, trAv_Nationalitaet, trAv_Avisierer, trAv_Avisiere"& _ "rKdNr, trAv_Fraechter, trAv_FraechterKdNr, trAv_Grenzueberschreitung, trAv_Trans"& _ "portmittel, trAv_colli, trAv_gewicht, trAv_VoraussichtlichesEintreffen, trAv_Inf"& _ "o, trAv_AVISO_einarbeitet FROM tblTR_Aviso WHERE (trAv_Id = @trAv_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_PartnerSystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_PartnerSystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_datetime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Reference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Kennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Nationalitaet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Nationalitaet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Avisierer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Avisierer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_AvisiererKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_AvisiererKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Fraechter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_FraechterKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_FraechterKdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Grenzueberschreitung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Grenzueberschreitung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Transportmittel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Transportmittel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_colli", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_colli", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_gewicht", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_gewicht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_VoraussichtlichesEintreffen", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_VoraussichtlichesEintreffen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Info", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_AVISO_einarbeitet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_AVISO_einarbeitet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_PartnerSystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_PartnerSystem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_datetime", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_datetime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Niederlassung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Niederlassung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Reference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Kennzeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Kennzeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Kennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Kennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Nationalitaet", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Nationalitaet", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Nationalitaet", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Nationalitaet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Avisierer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Avisierer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Avisierer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Avisierer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_AvisiererKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_AvisiererKdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_AvisiererKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_AvisiererKdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Fraechter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Fraechter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Fraechter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_FraechterKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_FraechterKdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_FraechterKdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_FraechterKdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Grenzueberschreitung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Grenzueberschreitung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Grenzueberschreitung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Grenzueberschreitung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_Transportmittel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Transportmittel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_Transportmittel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Transportmittel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_colli", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_colli", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_colli", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_colli", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_gewicht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_gewicht", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_gewicht", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_gewicht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAv_VoraussichtlichesEintreffen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_VoraussichtlichesEintreffen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_VoraussichtlichesEintreffen", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_VoraussichtlichesEintreffen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAv_AVISO_einarbeitet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_AVISO_einarbeitet", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 trAv_Id, trAv_PartnerSystem, trAv_datetime, trAv_Firma, trAv_Niederlassung"& _ ", trAv_Reference, trAv_Kennzeichen, trAv_Nationalitaet, trAv_Avisierer, trAv_Avi"& _ "siererKdNr, trAv_Fraechter, trAv_FraechterKdNr, trAv_Grenzueberschreitung, trAv_"& _ "Transportmittel, trAv_colli, trAv_gewicht, trAv_VoraussichtlichesEintreffen, trA"& _ "v_Info, trAv_AVISO_einarbeitet FROM dbo.tblTR_Aviso" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTR_AvisoDataTable) 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 VERAGDataSet.tblTR_AvisoDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTR_AvisoDataTable = New VERAGDataSet.tblTR_AvisoDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTR_AvisoDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTR_Aviso") 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_trAv_Id As Integer, _ ByVal Original_trAv_PartnerSystem As String, _ ByVal Original_trAv_datetime As Date, _ ByVal Original_trAv_Firma As String, _ ByVal Original_trAv_Niederlassung As String, _ ByVal Original_trAv_Reference As String, _ ByVal Original_trAv_Kennzeichen As String, _ ByVal Original_trAv_Nationalitaet As String, _ ByVal Original_trAv_Avisierer As String, _ ByVal Original_trAv_AvisiererKdNr As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_Fraechter As String, _ ByVal Original_trAv_FraechterKdNr As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_Grenzueberschreitung As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_Transportmittel As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_colli As Global.System.Nullable(Of Double), _ ByVal Original_trAv_gewicht As Global.System.Nullable(Of Double), _ ByVal Original_trAv_VoraussichtlichesEintreffen As Global.System.Nullable(Of Date), _ ByVal Original_trAv_AVISO_einarbeitet As Boolean) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_trAv_Id,Integer) If (Original_trAv_PartnerSystem Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trAv_PartnerSystem") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_trAv_PartnerSystem,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_trAv_datetime,Date) If (Original_trAv_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trAv_Firma") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_trAv_Firma,String) End If If (Original_trAv_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trAv_Niederlassung") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_trAv_Niederlassung,String) End If If (Original_trAv_Reference Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trAv_Reference") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_trAv_Reference,String) End If If (Original_trAv_Kennzeichen 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_trAv_Kennzeichen,String) End If If (Original_trAv_Nationalitaet 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_trAv_Nationalitaet,String) End If If (Original_trAv_Avisierer 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_trAv_Avisierer,String) End If If (Original_trAv_AvisiererKdNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_trAv_AvisiererKdNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_trAv_Fraechter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_trAv_Fraechter,String) End If If (Original_trAv_FraechterKdNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_trAv_FraechterKdNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_trAv_Grenzueberschreitung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_trAv_Grenzueberschreitung.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_trAv_Transportmittel.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_trAv_Transportmittel.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_trAv_colli.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_trAv_colli.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_trAv_gewicht.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_trAv_gewicht.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_trAv_VoraussichtlichesEintreffen.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_trAv_VoraussichtlichesEintreffen.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_trAv_AVISO_einarbeitet,Boolean) 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 trAv_PartnerSystem As String, _ ByVal trAv_datetime As Date, _ ByVal trAv_Firma As String, _ ByVal trAv_Niederlassung As String, _ ByVal trAv_Reference As String, _ ByVal trAv_Kennzeichen As String, _ ByVal trAv_Nationalitaet As String, _ ByVal trAv_Avisierer As String, _ ByVal trAv_AvisiererKdNr As Global.System.Nullable(Of Integer), _ ByVal trAv_Fraechter As String, _ ByVal trAv_FraechterKdNr As Global.System.Nullable(Of Integer), _ ByVal trAv_Grenzueberschreitung As Global.System.Nullable(Of Integer), _ ByVal trAv_Transportmittel As Global.System.Nullable(Of Integer), _ ByVal trAv_colli As Global.System.Nullable(Of Double), _ ByVal trAv_gewicht As Global.System.Nullable(Of Double), _ ByVal trAv_VoraussichtlichesEintreffen As Global.System.Nullable(Of Date), _ ByVal trAv_Info As String, _ ByVal trAv_AVISO_einarbeitet As Boolean) As Integer If (trAv_PartnerSystem Is Nothing) Then Throw New Global.System.ArgumentNullException("trAv_PartnerSystem") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(trAv_PartnerSystem,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(trAv_datetime,Date) If (trAv_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("trAv_Firma") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(trAv_Firma,String) End If If (trAv_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("trAv_Niederlassung") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(trAv_Niederlassung,String) End If If (trAv_Reference Is Nothing) Then Throw New Global.System.ArgumentNullException("trAv_Reference") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(trAv_Reference,String) End If If (trAv_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(trAv_Kennzeichen,String) End If If (trAv_Nationalitaet Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(trAv_Nationalitaet,String) End If If (trAv_Avisierer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(trAv_Avisierer,String) End If If (trAv_AvisiererKdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(trAv_AvisiererKdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (trAv_Fraechter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(trAv_Fraechter,String) End If If (trAv_FraechterKdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(trAv_FraechterKdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (trAv_Grenzueberschreitung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(trAv_Grenzueberschreitung.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (trAv_Transportmittel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(trAv_Transportmittel.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (trAv_colli.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(trAv_colli.Value,Double) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (trAv_gewicht.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(trAv_gewicht.Value,Double) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (trAv_VoraussichtlichesEintreffen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(trAv_VoraussichtlichesEintreffen.Value,Date) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (trAv_Info Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(trAv_Info,String) End If Me.Adapter.InsertCommand.Parameters(17).Value = CType(trAv_AVISO_einarbeitet,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 trAv_PartnerSystem As String, _ ByVal trAv_datetime As Date, _ ByVal trAv_Firma As String, _ ByVal trAv_Niederlassung As String, _ ByVal trAv_Reference As String, _ ByVal trAv_Kennzeichen As String, _ ByVal trAv_Nationalitaet As String, _ ByVal trAv_Avisierer As String, _ ByVal trAv_AvisiererKdNr As Global.System.Nullable(Of Integer), _ ByVal trAv_Fraechter As String, _ ByVal trAv_FraechterKdNr As Global.System.Nullable(Of Integer), _ ByVal trAv_Grenzueberschreitung As Global.System.Nullable(Of Integer), _ ByVal trAv_Transportmittel As Global.System.Nullable(Of Integer), _ ByVal trAv_colli As Global.System.Nullable(Of Double), _ ByVal trAv_gewicht As Global.System.Nullable(Of Double), _ ByVal trAv_VoraussichtlichesEintreffen As Global.System.Nullable(Of Date), _ ByVal trAv_Info As String, _ ByVal trAv_AVISO_einarbeitet As Boolean, _ ByVal Original_trAv_Id As Integer, _ ByVal Original_trAv_PartnerSystem As String, _ ByVal Original_trAv_datetime As Date, _ ByVal Original_trAv_Firma As String, _ ByVal Original_trAv_Niederlassung As String, _ ByVal Original_trAv_Reference As String, _ ByVal Original_trAv_Kennzeichen As String, _ ByVal Original_trAv_Nationalitaet As String, _ ByVal Original_trAv_Avisierer As String, _ ByVal Original_trAv_AvisiererKdNr As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_Fraechter As String, _ ByVal Original_trAv_FraechterKdNr As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_Grenzueberschreitung As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_Transportmittel As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_colli As Global.System.Nullable(Of Double), _ ByVal Original_trAv_gewicht As Global.System.Nullable(Of Double), _ ByVal Original_trAv_VoraussichtlichesEintreffen As Global.System.Nullable(Of Date), _ ByVal Original_trAv_AVISO_einarbeitet As Boolean, _ ByVal trAv_Id As Integer) As Integer If (trAv_PartnerSystem Is Nothing) Then Throw New Global.System.ArgumentNullException("trAv_PartnerSystem") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(trAv_PartnerSystem,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(trAv_datetime,Date) If (trAv_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("trAv_Firma") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(trAv_Firma,String) End If If (trAv_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("trAv_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(trAv_Niederlassung,String) End If If (trAv_Reference Is Nothing) Then Throw New Global.System.ArgumentNullException("trAv_Reference") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(trAv_Reference,String) End If If (trAv_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(trAv_Kennzeichen,String) End If If (trAv_Nationalitaet Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(trAv_Nationalitaet,String) End If If (trAv_Avisierer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(trAv_Avisierer,String) End If If (trAv_AvisiererKdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(trAv_AvisiererKdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (trAv_Fraechter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(trAv_Fraechter,String) End If If (trAv_FraechterKdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(trAv_FraechterKdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (trAv_Grenzueberschreitung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(trAv_Grenzueberschreitung.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (trAv_Transportmittel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(trAv_Transportmittel.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (trAv_colli.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(trAv_colli.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (trAv_gewicht.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(trAv_gewicht.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (trAv_VoraussichtlichesEintreffen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(trAv_VoraussichtlichesEintreffen.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (trAv_Info Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(trAv_Info,String) End If Me.Adapter.UpdateCommand.Parameters(17).Value = CType(trAv_AVISO_einarbeitet,Boolean) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_trAv_Id,Integer) If (Original_trAv_PartnerSystem Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trAv_PartnerSystem") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_trAv_PartnerSystem,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_trAv_datetime,Date) If (Original_trAv_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trAv_Firma") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_trAv_Firma,String) End If If (Original_trAv_Niederlassung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trAv_Niederlassung") Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_trAv_Niederlassung,String) End If If (Original_trAv_Reference Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trAv_Reference") Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_trAv_Reference,String) End If If (Original_trAv_Kennzeichen 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_trAv_Kennzeichen,String) End If If (Original_trAv_Nationalitaet 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_trAv_Nationalitaet,String) End If If (Original_trAv_Avisierer 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_trAv_Avisierer,String) End If If (Original_trAv_AvisiererKdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_trAv_AvisiererKdNr.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_trAv_Fraechter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_trAv_Fraechter,String) End If If (Original_trAv_FraechterKdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_trAv_FraechterKdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_trAv_Grenzueberschreitung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_trAv_Grenzueberschreitung.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Original_trAv_Transportmittel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_trAv_Transportmittel.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_trAv_colli.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_trAv_colli.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Original_trAv_gewicht.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_trAv_gewicht.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (Original_trAv_VoraussichtlichesEintreffen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_trAv_VoraussichtlichesEintreffen.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_trAv_AVISO_einarbeitet,Boolean) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(trAv_Id,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 trAv_PartnerSystem As String, _ ByVal trAv_datetime As Date, _ ByVal trAv_Firma As String, _ ByVal trAv_Niederlassung As String, _ ByVal trAv_Reference As String, _ ByVal trAv_Kennzeichen As String, _ ByVal trAv_Nationalitaet As String, _ ByVal trAv_Avisierer As String, _ ByVal trAv_AvisiererKdNr As Global.System.Nullable(Of Integer), _ ByVal trAv_Fraechter As String, _ ByVal trAv_FraechterKdNr As Global.System.Nullable(Of Integer), _ ByVal trAv_Grenzueberschreitung As Global.System.Nullable(Of Integer), _ ByVal trAv_Transportmittel As Global.System.Nullable(Of Integer), _ ByVal trAv_colli As Global.System.Nullable(Of Double), _ ByVal trAv_gewicht As Global.System.Nullable(Of Double), _ ByVal trAv_VoraussichtlichesEintreffen As Global.System.Nullable(Of Date), _ ByVal trAv_Info As String, _ ByVal trAv_AVISO_einarbeitet As Boolean, _ ByVal Original_trAv_Id As Integer, _ ByVal Original_trAv_PartnerSystem As String, _ ByVal Original_trAv_datetime As Date, _ ByVal Original_trAv_Firma As String, _ ByVal Original_trAv_Niederlassung As String, _ ByVal Original_trAv_Reference As String, _ ByVal Original_trAv_Kennzeichen As String, _ ByVal Original_trAv_Nationalitaet As String, _ ByVal Original_trAv_Avisierer As String, _ ByVal Original_trAv_AvisiererKdNr As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_Fraechter As String, _ ByVal Original_trAv_FraechterKdNr As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_Grenzueberschreitung As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_Transportmittel As Global.System.Nullable(Of Integer), _ ByVal Original_trAv_colli As Global.System.Nullable(Of Double), _ ByVal Original_trAv_gewicht As Global.System.Nullable(Of Double), _ ByVal Original_trAv_VoraussichtlichesEintreffen As Global.System.Nullable(Of Date), _ ByVal Original_trAv_AVISO_einarbeitet As Boolean) As Integer Return Me.Update(trAv_PartnerSystem, trAv_datetime, trAv_Firma, trAv_Niederlassung, trAv_Reference, trAv_Kennzeichen, trAv_Nationalitaet, trAv_Avisierer, trAv_AvisiererKdNr, trAv_Fraechter, trAv_FraechterKdNr, trAv_Grenzueberschreitung, trAv_Transportmittel, trAv_colli, trAv_gewicht, trAv_VoraussichtlichesEintreffen, trAv_Info, trAv_AVISO_einarbeitet, Original_trAv_Id, Original_trAv_PartnerSystem, Original_trAv_datetime, Original_trAv_Firma, Original_trAv_Niederlassung, Original_trAv_Reference, Original_trAv_Kennzeichen, Original_trAv_Nationalitaet, Original_trAv_Avisierer, Original_trAv_AvisiererKdNr, Original_trAv_Fraechter, Original_trAv_FraechterKdNr, Original_trAv_Grenzueberschreitung, Original_trAv_Transportmittel, Original_trAv_colli, Original_trAv_gewicht, Original_trAv_VoraussichtlichesEintreffen, Original_trAv_AVISO_einarbeitet, Original_trAv_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTR_AvisoAnheangeTableAdapter 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 = "tblTR_AvisoAnheange" tableMapping.ColumnMappings.Add("trAvAh_id", "trAvAh_id") tableMapping.ColumnMappings.Add("trAvAh_trAvId", "trAvAh_trAvId") tableMapping.ColumnMappings.Add("DocumentType", "DocumentType") tableMapping.ColumnMappings.Add("DocumentNr", "DocumentNr") tableMapping.ColumnMappings.Add("DocumentDate", "DocumentDate") tableMapping.ColumnMappings.Add("trAvAh_docID", "trAvAh_docID") 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].[tblTR_AvisoAnheange] WHERE (([trAvAh_id] = @Original_trAvAh_id"& _ ") AND ([trAvAh_trAvId] = @Original_trAvAh_trAvId) AND ((@IsNull_DocumentType = 1"& _ " AND [DocumentType] IS NULL) OR ([DocumentType] = @Original_DocumentType)) AND ("& _ "(@IsNull_DocumentNr = 1 AND [DocumentNr] IS NULL) OR ([DocumentNr] = @Original_D"& _ "ocumentNr)) AND ((@IsNull_DocumentDate = 1 AND [DocumentDate] IS NULL) OR ([Docu"& _ "mentDate] = @Original_DocumentDate)) AND ((@IsNull_trAvAh_docID = 1 AND [trAvAh_"& _ "docID] IS NULL) OR ([trAvAh_docID] = @Original_trAvAh_docID)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAvAh_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAvAh_trAvId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_trAvId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAvAh_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_docID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAvAh_docID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_docID", 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].[tblTR_AvisoAnheange] ([trAvAh_trAvId], [DocumentType], [Docume"& _ "ntNr], [DocumentDate], [trAvAh_docID]) VALUES (@trAvAh_trAvId, @DocumentType, @D"& _ "ocumentNr, @DocumentDate, @trAvAh_docID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT trAvAh_id, trAvAh_trAvId, Docu"& _ "mentType, DocumentNr, DocumentDate, trAvAh_docID FROM tblTR_AvisoAnheange WHERE "& _ "(trAvAh_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAvAh_trAvId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_trAvId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAvAh_docID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_docID", 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].[tblTR_AvisoAnheange] SET [trAvAh_trAvId] = @trAvAh_trAvId, [Documen"& _ "tType] = @DocumentType, [DocumentNr] = @DocumentNr, [DocumentDate] = @DocumentDa"& _ "te, [trAvAh_docID] = @trAvAh_docID WHERE (([trAvAh_id] = @Original_trAvAh_id) AN"& _ "D ([trAvAh_trAvId] = @Original_trAvAh_trAvId) AND ((@IsNull_DocumentType = 1 AND"& _ " [DocumentType] IS NULL) OR ([DocumentType] = @Original_DocumentType)) AND ((@Is"& _ "Null_DocumentNr = 1 AND [DocumentNr] IS NULL) OR ([DocumentNr] = @Original_Docum"& _ "entNr)) AND ((@IsNull_DocumentDate = 1 AND [DocumentDate] IS NULL) OR ([Document"& _ "Date] = @Original_DocumentDate)) AND ((@IsNull_trAvAh_docID = 1 AND [trAvAh_docI"& _ "D] IS NULL) OR ([trAvAh_docID] = @Original_trAvAh_docID)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT trAvAh_id, t"& _ "rAvAh_trAvId, DocumentType, DocumentNr, DocumentDate, trAvAh_docID FROM tblTR_Av"& _ "isoAnheange WHERE (trAvAh_id = @trAvAh_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAvAh_trAvId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_trAvId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAvAh_docID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_docID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAvAh_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAvAh_trAvId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_trAvId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trAvAh_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_docID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trAvAh_docID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_docID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAvAh_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "trAvAh_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 trAvAh_id, trAvAh_trAvId, DocumentType, DocumentNr, DocumentDate, trAvAh_d"& _ "ocID FROM dbo.tblTR_AvisoAnheange" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTR_AvisoAnheangeDataTable) 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 VERAGDataSet.tblTR_AvisoAnheangeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTR_AvisoAnheangeDataTable = New VERAGDataSet.tblTR_AvisoAnheangeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTR_AvisoAnheangeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTR_AvisoAnheange") 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_trAvAh_id As Integer, ByVal Original_trAvAh_trAvId As String, ByVal Original_DocumentType As String, ByVal Original_DocumentNr As String, ByVal Original_DocumentDate As Global.System.Nullable(Of Date), ByVal Original_trAvAh_docID As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_trAvAh_id,Integer) If (Original_trAvAh_trAvId Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trAvAh_trAvId") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_trAvAh_trAvId,String) End If If (Original_DocumentType 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_DocumentType,String) End If If (Original_DocumentNr 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_DocumentNr,String) End If If (Original_DocumentDate.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_DocumentDate.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_trAvAh_docID 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_trAvAh_docID,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 trAvAh_trAvId As String, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Global.System.Nullable(Of Date), ByVal trAvAh_docID As String) As Integer If (trAvAh_trAvId Is Nothing) Then Throw New Global.System.ArgumentNullException("trAvAh_trAvId") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(trAvAh_trAvId,String) End If If (DocumentType Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(DocumentType,String) End If If (DocumentNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(DocumentNr,String) End If If (DocumentDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(DocumentDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (trAvAh_docID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(trAvAh_docID,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 trAvAh_trAvId As String, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Global.System.Nullable(Of Date), ByVal trAvAh_docID As String, ByVal Original_trAvAh_id As Integer, ByVal Original_trAvAh_trAvId As String, ByVal Original_DocumentType As String, ByVal Original_DocumentNr As String, ByVal Original_DocumentDate As Global.System.Nullable(Of Date), ByVal Original_trAvAh_docID As String, ByVal trAvAh_id As Integer) As Integer If (trAvAh_trAvId Is Nothing) Then Throw New Global.System.ArgumentNullException("trAvAh_trAvId") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(trAvAh_trAvId,String) End If If (DocumentType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DocumentType,String) End If If (DocumentNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DocumentNr,String) End If If (DocumentDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DocumentDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (trAvAh_docID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(trAvAh_docID,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_trAvAh_id,Integer) If (Original_trAvAh_trAvId Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trAvAh_trAvId") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_trAvAh_trAvId,String) End If If (Original_DocumentType 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_DocumentType,String) End If If (Original_DocumentNr 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_DocumentNr,String) End If If (Original_DocumentDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_DocumentDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_trAvAh_docID 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_trAvAh_docID,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(trAvAh_id,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 trAvAh_trAvId As String, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Global.System.Nullable(Of Date), ByVal trAvAh_docID As String, ByVal Original_trAvAh_id As Integer, ByVal Original_trAvAh_trAvId As String, ByVal Original_DocumentType As String, ByVal Original_DocumentNr As String, ByVal Original_DocumentDate As Global.System.Nullable(Of Date), ByVal Original_trAvAh_docID As String) As Integer Return Me.Update(trAvAh_trAvId, DocumentType, DocumentNr, DocumentDate, trAvAh_docID, Original_trAvAh_id, Original_trAvAh_trAvId, Original_DocumentType, Original_DocumentNr, Original_DocumentDate, Original_trAvAh_docID, Original_trAvAh_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTR_ShipmentTableAdapter 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 = "tblTR_Shipment" tableMapping.ColumnMappings.Add("shTr_id", "shTr_id") tableMapping.ColumnMappings.Add("shTr_Partnersystem", "shTr_Partnersystem") tableMapping.ColumnMappings.Add("shTr_Status", "shTr_Status") tableMapping.ColumnMappings.Add("shTr_TRAvisoId", "shTr_TRAvisoId") tableMapping.ColumnMappings.Add("Company", "Company") tableMapping.ColumnMappings.Add("Department", "Department") tableMapping.ColumnMappings.Add("Reference", "Reference") tableMapping.ColumnMappings.Add("DeclarationCountry", "DeclarationCountry") tableMapping.ColumnMappings.Add("DeclarationType", "DeclarationType") tableMapping.ColumnMappings.Add("TotPackage", "TotPackage") tableMapping.ColumnMappings.Add("TotGrossWeight", "TotGrossWeight") tableMapping.ColumnMappings.Add("CustomsCodeDeparture", "CustomsCodeDeparture") tableMapping.ColumnMappings.Add("CustomsCodeDestination", "CustomsCodeDestination") tableMapping.ColumnMappings.Add("CustomsCodeEntry", "CustomsCodeEntry") tableMapping.ColumnMappings.Add("TransportModeBorder", "TransportModeBorder") tableMapping.ColumnMappings.Add("CountryCodeDeparture", "CountryCodeDeparture") tableMapping.ColumnMappings.Add("CountryCodeDestination", "CountryCodeDestination") tableMapping.ColumnMappings.Add("DEStateCodeDestination", "DEStateCodeDestination") tableMapping.ColumnMappings.Add("TransportArrivalLicensePlate", "TransportArrivalLicensePlate") tableMapping.ColumnMappings.Add("TransportArrivalCountryCode", "TransportArrivalCountryCode") tableMapping.ColumnMappings.Add("TransportBorderType", "TransportBorderType") tableMapping.ColumnMappings.Add("TransportBorderLicensePlate", "TransportBorderLicensePlate") tableMapping.ColumnMappings.Add("Incoterm", "Incoterm") tableMapping.ColumnMappings.Add("PrePaperCode", "PrePaperCode") tableMapping.ColumnMappings.Add("PrePaperNr", "PrePaperNr") tableMapping.ColumnMappings.Add("KindOfBusiness", "KindOfBusiness") tableMapping.ColumnMappings.Add("InvoiceAmount", "InvoiceAmount") tableMapping.ColumnMappings.Add("InvoiceCurrency", "InvoiceCurrency") tableMapping.ColumnMappings.Add("ContainerNr1", "ContainerNr1") tableMapping.ColumnMappings.Add("ContainerNr2", "ContainerNr2") tableMapping.ColumnMappings.Add("ContainerNr3", "ContainerNr3") tableMapping.ColumnMappings.Add("ContainerNr4", "ContainerNr4") tableMapping.ColumnMappings.Add("trAv_Info", "trAv_Info") tableMapping.ColumnMappings.Add("FreightCostsEU", "FreightCostsEU") tableMapping.ColumnMappings.Add("FreightCostsNonEU", "FreightCostsNonEU") 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].[tblTR_Shipment] WHERE (([shTr_id] = @Original_shTr_id) AND ([s"& _ "hTr_Partnersystem] = @Original_shTr_Partnersystem) AND ((@IsNull_shTr_Status = 1"& _ " AND [shTr_Status] IS NULL) OR ([shTr_Status] = @Original_shTr_Status)) AND ((@I"& _ "sNull_shTr_TRAvisoId = 1 AND [shTr_TRAvisoId] IS NULL) OR ([shTr_TRAvisoId] = @O"& _ "riginal_shTr_TRAvisoId)) AND ((@IsNull_Company = 1 AND [Company] IS NULL) OR ([C"& _ "ompany] = @Original_Company)) AND ((@IsNull_Department = 1 AND [Department] IS N"& _ "ULL) OR ([Department] = @Original_Department)) AND ((@IsNull_Reference = 1 AND ["& _ "Reference] IS NULL) OR ([Reference] = @Original_Reference)) AND ((@IsNull_Declar"& _ "ationCountry = 1 AND [DeclarationCountry] IS NULL) OR ([DeclarationCountry] = @O"& _ "riginal_DeclarationCountry)) AND ((@IsNull_DeclarationType = 1 AND [DeclarationT"& _ "ype] IS NULL) OR ([DeclarationType] = @Original_DeclarationType)) AND ((@IsNull_"& _ "TotPackage = 1 AND [TotPackage] IS NULL) OR ([TotPackage] = @Original_TotPackage"& _ ")) AND ((@IsNull_TotGrossWeight = 1 AND [TotGrossWeight] IS NULL) OR ([TotGrossW"& _ "eight] = @Original_TotGrossWeight)) AND ((@IsNull_CustomsCodeDeparture = 1 AND ["& _ "CustomsCodeDeparture] IS NULL) OR ([CustomsCodeDeparture] = @Original_CustomsCod"& _ "eDeparture)) AND ((@IsNull_CustomsCodeDestination = 1 AND [CustomsCodeDestinatio"& _ "n] IS NULL) OR ([CustomsCodeDestination] = @Original_CustomsCodeDestination)) AN"& _ "D ((@IsNull_CustomsCodeEntry = 1 AND [CustomsCodeEntry] IS NULL) OR ([CustomsCod"& _ "eEntry] = @Original_CustomsCodeEntry)) AND ((@IsNull_TransportModeBorder = 1 AND"& _ " [TransportModeBorder] IS NULL) OR ([TransportModeBorder] = @Original_TransportM"& _ "odeBorder)) AND ((@IsNull_CountryCodeDeparture = 1 AND [CountryCodeDeparture] IS"& _ " NULL) OR ([CountryCodeDeparture] = @Original_CountryCodeDeparture)) AND ((@IsNu"& _ "ll_CountryCodeDestination = 1 AND [CountryCodeDestination] IS NULL) OR ([Country"& _ "CodeDestination] = @Original_CountryCodeDestination)) AND ((@IsNull_DEStateCodeD"& _ "estination = 1 AND [DEStateCodeDestination] IS NULL) OR ([DEStateCodeDestination"& _ "] = @Original_DEStateCodeDestination)) AND ((@IsNull_TransportArrivalLicensePlat"& _ "e = 1 AND [TransportArrivalLicensePlate] IS NULL) OR ([TransportArrivalLicensePl"& _ "ate] = @Original_TransportArrivalLicensePlate)) AND ((@IsNull_TransportArrivalCo"& _ "untryCode = 1 AND [TransportArrivalCountryCode] IS NULL) OR ([TransportArrivalCo"& _ "untryCode] = @Original_TransportArrivalCountryCode)) AND ((@IsNull_TransportBord"& _ "erType = 1 AND [TransportBorderType] IS NULL) OR ([TransportBorderType] = @Origi"& _ "nal_TransportBorderType)) AND ((@IsNull_TransportBorderLicensePlate = 1 AND [Tra"& _ "nsportBorderLicensePlate] IS NULL) OR ([TransportBorderLicensePlate] = @Original"& _ "_TransportBorderLicensePlate)) AND ((@IsNull_Incoterm = 1 AND [Incoterm] IS NULL"& _ ") OR ([Incoterm] = @Original_Incoterm)) AND ((@IsNull_PrePaperCode = 1 AND [PreP"& _ "aperCode] IS NULL) OR ([PrePaperCode] = @Original_PrePaperCode)) AND ((@IsNull_P"& _ "rePaperNr = 1 AND [PrePaperNr] IS NULL) OR ([PrePaperNr] = @Original_PrePaperNr)"& _ ") AND ((@IsNull_KindOfBusiness = 1 AND [KindOfBusiness] IS NULL) OR ([KindOfBusi"& _ "ness] = @Original_KindOfBusiness)) AND ((@IsNull_InvoiceAmount = 1 AND [InvoiceA"& _ "mount] IS NULL) OR ([InvoiceAmount] = @Original_InvoiceAmount)) AND ((@IsNull_In"& _ "voiceCurrency = 1 AND [InvoiceCurrency] IS NULL) OR ([InvoiceCurrency] = @Origin"& _ "al_InvoiceCurrency)) AND ((@IsNull_ContainerNr1 = 1 AND [ContainerNr1] IS NULL) "& _ "OR ([ContainerNr1] = @Original_ContainerNr1)) AND ((@IsNull_ContainerNr2 = 1 AND"& _ " [ContainerNr2] IS NULL) OR ([ContainerNr2] = @Original_ContainerNr2)) AND ((@Is"& _ "Null_ContainerNr3 = 1 AND [ContainerNr3] IS NULL) OR ([ContainerNr3] = @Original"& _ "_ContainerNr3)) AND ((@IsNull_ContainerNr4 = 1 AND [ContainerNr4] IS NULL) OR (["& _ "ContainerNr4] = @Original_ContainerNr4)) AND ((@IsNull_FreightCostsEU = 1 AND [F"& _ "reightCostsEU] IS NULL) OR ([FreightCostsEU] = @Original_FreightCostsEU)) AND (("& _ "@IsNull_FreightCostsNonEU = 1 AND [FreightCostsNonEU] IS NULL) OR ([FreightCosts"& _ "NonEU] = @Original_FreightCostsNonEU)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTr_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTr_Partnersystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_Partnersystem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_shTr_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTr_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_shTr_TRAvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_TRAvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTr_TRAvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_TRAvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Company", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Company", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Company", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Company", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Department", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Department", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Department", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Department", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Reference", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Reference", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Reference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DeclarationCountry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationCountry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DeclarationCountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationCountry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DeclarationType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TotPackage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotPackage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotPackage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotPackage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TotGrossWeight", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotGrossWeight", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotGrossWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "TotGrossWeight", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomsCodeDeparture", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDeparture", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomsCodeDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDeparture", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomsCodeDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomsCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomsCodeEntry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeEntry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomsCodeEntry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeEntry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransportModeBorder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportModeBorder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransportModeBorder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportModeBorder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CountryCodeDeparture", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDeparture", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CountryCodeDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDeparture", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CountryCodeDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CountryCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DEStateCodeDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEStateCodeDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DEStateCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEStateCodeDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransportArrivalLicensePlate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalLicensePlate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransportArrivalLicensePlate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalLicensePlate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransportArrivalCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalCountryCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransportArrivalCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalCountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransportBorderType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransportBorderType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransportBorderLicensePlate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderLicensePlate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransportBorderLicensePlate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderLicensePlate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Incoterm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Incoterm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Incoterm", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Incoterm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PrePaperCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PrePaperCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PrePaperNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PrePaperNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_KindOfBusiness", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfBusiness", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KindOfBusiness", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfBusiness", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_InvoiceAmount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceAmount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "InvoiceAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_InvoiceCurrency", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceCurrency", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceCurrency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceCurrency", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContainerNr1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContainerNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContainerNr2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContainerNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContainerNr3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContainerNr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContainerNr4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContainerNr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FreightCostsEU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FreightCostsEU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FreightCostsEU", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "FreightCostsEU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FreightCostsNonEU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FreightCostsNonEU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FreightCostsNonEU", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "FreightCostsNonEU", 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].[tblTR_Shipment] ([shTr_Partnersystem], [shTr_Status], [shTr_TR"& _ "AvisoId], [Company], [Department], [Reference], [DeclarationCountry], [Declarati"& _ "onType], [TotPackage], [TotGrossWeight], [CustomsCodeDeparture], [CustomsCodeDes"& _ "tination], [CustomsCodeEntry], [TransportModeBorder], [CountryCodeDeparture], [C"& _ "ountryCodeDestination], [DEStateCodeDestination], [TransportArrivalLicensePlate]"& _ ", [TransportArrivalCountryCode], [TransportBorderType], [TransportBorderLicenseP"& _ "late], [Incoterm], [PrePaperCode], [PrePaperNr], [KindOfBusiness], [InvoiceAmoun"& _ "t], [InvoiceCurrency], [ContainerNr1], [ContainerNr2], [ContainerNr3], [Containe"& _ "rNr4], [trAv_Info], [FreightCostsEU], [FreightCostsNonEU]) VALUES (@shTr_Partner"& _ "system, @shTr_Status, @shTr_TRAvisoId, @Company, @Department, @Reference, @Decla"& _ "rationCountry, @DeclarationType, @TotPackage, @TotGrossWeight, @CustomsCodeDepar"& _ "ture, @CustomsCodeDestination, @CustomsCodeEntry, @TransportModeBorder, @Country"& _ "CodeDeparture, @CountryCodeDestination, @DEStateCodeDestination, @TransportArriv"& _ "alLicensePlate, @TransportArrivalCountryCode, @TransportBorderType, @TransportBo"& _ "rderLicensePlate, @Incoterm, @PrePaperCode, @PrePaperNr, @KindOfBusiness, @Invoi"& _ "ceAmount, @InvoiceCurrency, @ContainerNr1, @ContainerNr2, @ContainerNr3, @Contai"& _ "nerNr4, @trAv_Info, @FreightCostsEU, @FreightCostsNonEU);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT shTr_id, shTr_"& _ "Partnersystem, shTr_Status, shTr_TRAvisoId, Company, Department, Reference, Decl"& _ "arationCountry, DeclarationType, TotPackage, TotGrossWeight, CustomsCodeDepartur"& _ "e, CustomsCodeDestination, CustomsCodeEntry, TransportModeBorder, CountryCodeDep"& _ "arture, CountryCodeDestination, DEStateCodeDestination, TransportArrivalLicenseP"& _ "late, TransportArrivalCountryCode, TransportBorderType, TransportBorderLicensePl"& _ "ate, Incoterm, PrePaperCode, PrePaperNr, KindOfBusiness, InvoiceAmount, InvoiceC"& _ "urrency, ContainerNr1, ContainerNr2, ContainerNr3, ContainerNr4, trAv_Info, Frei"& _ "ghtCostsEU, FreightCostsNonEU FROM tblTR_Shipment WHERE (shTr_id = SCOPE_IDENTIT"& _ "Y())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTr_Partnersystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_Partnersystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTr_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTr_TRAvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_TRAvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Company", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Company", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Department", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Department", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Reference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DeclarationCountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationCountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotPackage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotPackage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotGrossWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "TotGrossWeight", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomsCodeDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDeparture", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomsCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomsCodeEntry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeEntry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransportModeBorder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportModeBorder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CountryCodeDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDeparture", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CountryCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEStateCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEStateCodeDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransportArrivalLicensePlate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalLicensePlate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransportArrivalCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransportBorderType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransportBorderLicensePlate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderLicensePlate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Incoterm", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Incoterm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PrePaperCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PrePaperNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KindOfBusiness", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfBusiness", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "InvoiceAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceCurrency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceCurrency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContainerNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContainerNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContainerNr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContainerNr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Info", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FreightCostsEU", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "FreightCostsEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FreightCostsNonEU", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "FreightCostsNonEU", 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].[tblTR_Shipment] SET [shTr_Partnersystem] = @shTr_Partnersystem, [sh"& _ "Tr_Status] = @shTr_Status, [shTr_TRAvisoId] = @shTr_TRAvisoId, [Company] = @Comp"& _ "any, [Department] = @Department, [Reference] = @Reference, [DeclarationCountry] "& _ "= @DeclarationCountry, [DeclarationType] = @DeclarationType, [TotPackage] = @Tot"& _ "Package, [TotGrossWeight] = @TotGrossWeight, [CustomsCodeDeparture] = @CustomsCo"& _ "deDeparture, [CustomsCodeDestination] = @CustomsCodeDestination, [CustomsCodeEnt"& _ "ry] = @CustomsCodeEntry, [TransportModeBorder] = @TransportModeBorder, [CountryC"& _ "odeDeparture] = @CountryCodeDeparture, [CountryCodeDestination] = @CountryCodeDe"& _ "stination, [DEStateCodeDestination] = @DEStateCodeDestination, [TransportArrival"& _ "LicensePlate] = @TransportArrivalLicensePlate, [TransportArrivalCountryCode] = @"& _ "TransportArrivalCountryCode, [TransportBorderType] = @TransportBorderType, [Tran"& _ "sportBorderLicensePlate] = @TransportBorderLicensePlate, [Incoterm] = @Incoterm,"& _ " [PrePaperCode] = @PrePaperCode, [PrePaperNr] = @PrePaperNr, [KindOfBusiness] = "& _ "@KindOfBusiness, [InvoiceAmount] = @InvoiceAmount, [InvoiceCurrency] = @InvoiceC"& _ "urrency, [ContainerNr1] = @ContainerNr1, [ContainerNr2] = @ContainerNr2, [Contai"& _ "nerNr3] = @ContainerNr3, [ContainerNr4] = @ContainerNr4, [trAv_Info] = @trAv_Inf"& _ "o, [FreightCostsEU] = @FreightCostsEU, [FreightCostsNonEU] = @FreightCostsNonEU "& _ "WHERE (([shTr_id] = @Original_shTr_id) AND ([shTr_Partnersystem] = @Original_shT"& _ "r_Partnersystem) AND ((@IsNull_shTr_Status = 1 AND [shTr_Status] IS NULL) OR ([s"& _ "hTr_Status] = @Original_shTr_Status)) AND ((@IsNull_shTr_TRAvisoId = 1 AND [shTr"& _ "_TRAvisoId] IS NULL) OR ([shTr_TRAvisoId] = @Original_shTr_TRAvisoId)) AND ((@Is"& _ "Null_Company = 1 AND [Company] IS NULL) OR ([Company] = @Original_Company)) AND "& _ "((@IsNull_Department = 1 AND [Department] IS NULL) OR ([Department] = @Original_"& _ "Department)) AND ((@IsNull_Reference = 1 AND [Reference] IS NULL) OR ([Reference"& _ "] = @Original_Reference)) AND ((@IsNull_DeclarationCountry = 1 AND [DeclarationC"& _ "ountry] IS NULL) OR ([DeclarationCountry] = @Original_DeclarationCountry)) AND ("& _ "(@IsNull_DeclarationType = 1 AND [DeclarationType] IS NULL) OR ([DeclarationType"& _ "] = @Original_DeclarationType)) AND ((@IsNull_TotPackage = 1 AND [TotPackage] IS"& _ " NULL) OR ([TotPackage] = @Original_TotPackage)) AND ((@IsNull_TotGrossWeight = "& _ "1 AND [TotGrossWeight] IS NULL) OR ([TotGrossWeight] = @Original_TotGrossWeight)"& _ ") AND ((@IsNull_CustomsCodeDeparture = 1 AND [CustomsCodeDeparture] IS NULL) OR "& _ "([CustomsCodeDeparture] = @Original_CustomsCodeDeparture)) AND ((@IsNull_Customs"& _ "CodeDestination = 1 AND [CustomsCodeDestination] IS NULL) OR ([CustomsCodeDestin"& _ "ation] = @Original_CustomsCodeDestination)) AND ((@IsNull_CustomsCodeEntry = 1 A"& _ "ND [CustomsCodeEntry] IS NULL) OR ([CustomsCodeEntry] = @Original_CustomsCodeEnt"& _ "ry)) AND ((@IsNull_TransportModeBorder = 1 AND [TransportModeBorder] IS NULL) OR"& _ " ([TransportModeBorder] = @Original_TransportModeBorder)) AND ((@IsNull_CountryC"& _ "odeDeparture = 1 AND [CountryCodeDeparture] IS NULL) OR ([CountryCodeDeparture] "& _ "= @Original_CountryCodeDeparture)) AND ((@IsNull_CountryCodeDestination = 1 AND "& _ "[CountryCodeDestination] IS NULL) OR ([CountryCodeDestination] = @Original_Count"& _ "ryCodeDestination)) AND ((@IsNull_DEStateCodeDestination = 1 AND [DEStateCodeDes"& _ "tination] IS NULL) OR ([DEStateCodeDestination] = @Original_DEStateCodeDestinati"& _ "on)) AND ((@IsNull_TransportArrivalLicensePlate = 1 AND [TransportArrivalLicense"& _ "Plate] IS NULL) OR ([TransportArrivalLicensePlate] = @Original_TransportArrivalL"& _ "icensePlate)) AND ((@IsNull_TransportArrivalCountryCode = 1 AND [TransportArriva"& _ "lCountryCode] IS NULL) OR ([TransportArrivalCountryCode] = @Original_TransportAr"& _ "rivalCountryCode)) AND ((@IsNull_TransportBorderType = 1 AND [TransportBorderTyp"& _ "e] IS NULL) OR ([TransportBorderType] = @Original_TransportBorderType)) AND ((@I"& _ "sNull_TransportBorderLicensePlate = 1 AND [TransportBorderLicensePlate] IS NULL)"& _ " OR ([TransportBorderLicensePlate] = @Original_TransportBorderLicensePlate)) AND"& _ " ((@IsNull_Incoterm = 1 AND [Incoterm] IS NULL) OR ([Incoterm] = @Original_Incot"& _ "erm)) AND ((@IsNull_PrePaperCode = 1 AND [PrePaperCode] IS NULL) OR ([PrePaperCo"& _ "de] = @Original_PrePaperCode)) AND ((@IsNull_PrePaperNr = 1 AND [PrePaperNr] IS "& _ "NULL) OR ([PrePaperNr] = @Original_PrePaperNr)) AND ((@IsNull_KindOfBusiness = 1"& _ " AND [KindOfBusiness] IS NULL) OR ([KindOfBusiness] = @Original_KindOfBusiness))"& _ " AND ((@IsNull_InvoiceAmount = 1 AND [InvoiceAmount] IS NULL) OR ([InvoiceAmount"& _ "] = @Original_InvoiceAmount)) AND ((@IsNull_InvoiceCurrency = 1 AND [InvoiceCurr"& _ "ency] IS NULL) OR ([InvoiceCurrency] = @Original_InvoiceCurrency)) AND ((@IsNull"& _ "_ContainerNr1 = 1 AND [ContainerNr1] IS NULL) OR ([ContainerNr1] = @Original_Con"& _ "tainerNr1)) AND ((@IsNull_ContainerNr2 = 1 AND [ContainerNr2] IS NULL) OR ([Cont"& _ "ainerNr2] = @Original_ContainerNr2)) AND ((@IsNull_ContainerNr3 = 1 AND [Contain"& _ "erNr3] IS NULL) OR ([ContainerNr3] = @Original_ContainerNr3)) AND ((@IsNull_Cont"& _ "ainerNr4 = 1 AND [ContainerNr4] IS NULL) OR ([ContainerNr4] = @Original_Containe"& _ "rNr4)) AND ((@IsNull_FreightCostsEU = 1 AND [FreightCostsEU] IS NULL) OR ([Freig"& _ "htCostsEU] = @Original_FreightCostsEU)) AND ((@IsNull_FreightCostsNonEU = 1 AND "& _ "[FreightCostsNonEU] IS NULL) OR ([FreightCostsNonEU] = @Original_FreightCostsNon"& _ "EU)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT shTr_id, shTr_Partnersystem, shTr_Status, shTr_TRAvisoId, Company"& _ ", Department, Reference, DeclarationCountry, DeclarationType, TotPackage, TotGro"& _ "ssWeight, CustomsCodeDeparture, CustomsCodeDestination, CustomsCodeEntry, Transp"& _ "ortModeBorder, CountryCodeDeparture, CountryCodeDestination, DEStateCodeDestinat"& _ "ion, TransportArrivalLicensePlate, TransportArrivalCountryCode, TransportBorderT"& _ "ype, TransportBorderLicensePlate, Incoterm, PrePaperCode, PrePaperNr, KindOfBusi"& _ "ness, InvoiceAmount, InvoiceCurrency, ContainerNr1, ContainerNr2, ContainerNr3, "& _ "ContainerNr4, trAv_Info, FreightCostsEU, FreightCostsNonEU FROM tblTR_Shipment W"& _ "HERE (shTr_id = @shTr_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTr_Partnersystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_Partnersystem", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTr_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTr_TRAvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_TRAvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Company", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Company", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Department", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Department", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Reference", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DeclarationCountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationCountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotPackage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotPackage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotGrossWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "TotGrossWeight", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomsCodeDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDeparture", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomsCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomsCodeEntry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeEntry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransportModeBorder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportModeBorder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CountryCodeDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDeparture", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CountryCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEStateCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEStateCodeDestination", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransportArrivalLicensePlate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalLicensePlate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransportArrivalCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransportBorderType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TransportBorderLicensePlate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderLicensePlate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Incoterm", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Incoterm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PrePaperCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PrePaperNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KindOfBusiness", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfBusiness", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "InvoiceAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceCurrency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceCurrency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContainerNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContainerNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContainerNr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContainerNr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trAv_Info", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trAv_Info", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FreightCostsEU", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "FreightCostsEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FreightCostsNonEU", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "FreightCostsNonEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTr_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTr_Partnersystem", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_Partnersystem", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_shTr_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTr_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_shTr_TRAvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_TRAvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTr_TRAvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_TRAvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Company", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Company", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Company", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Company", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Department", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Department", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Department", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Department", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Reference", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Reference", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Reference", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Reference", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DeclarationCountry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationCountry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DeclarationCountry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationCountry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DeclarationType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DeclarationType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeclarationType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TotPackage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotPackage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotPackage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotPackage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TotGrossWeight", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TotGrossWeight", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotGrossWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "TotGrossWeight", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomsCodeDeparture", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDeparture", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomsCodeDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDeparture", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomsCodeDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomsCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomsCodeEntry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeEntry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomsCodeEntry", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomsCodeEntry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransportModeBorder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportModeBorder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransportModeBorder", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportModeBorder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CountryCodeDeparture", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDeparture", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CountryCodeDeparture", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDeparture", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CountryCodeDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CountryCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCodeDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DEStateCodeDestination", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEStateCodeDestination", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DEStateCodeDestination", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEStateCodeDestination", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransportArrivalLicensePlate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalLicensePlate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransportArrivalLicensePlate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalLicensePlate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransportArrivalCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalCountryCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransportArrivalCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportArrivalCountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransportBorderType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransportBorderType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TransportBorderLicensePlate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderLicensePlate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TransportBorderLicensePlate", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TransportBorderLicensePlate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Incoterm", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Incoterm", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Incoterm", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Incoterm", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PrePaperCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PrePaperCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PrePaperNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PrePaperNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PrePaperNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_KindOfBusiness", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfBusiness", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KindOfBusiness", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfBusiness", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_InvoiceAmount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceAmount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "InvoiceAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_InvoiceCurrency", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceCurrency", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceCurrency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceCurrency", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContainerNr1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContainerNr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContainerNr2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContainerNr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContainerNr3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContainerNr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContainerNr4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContainerNr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContainerNr4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FreightCostsEU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FreightCostsEU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FreightCostsEU", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "FreightCostsEU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FreightCostsNonEU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FreightCostsNonEU", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FreightCostsNonEU", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "FreightCostsNonEU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTr_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "shTr_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 shTr_id, shTr_Partnersystem, shTr_Status, shTr_TRAvisoId, Company, Departm"& _ "ent, Reference, DeclarationCountry, DeclarationType, TotPackage, TotGrossWeight,"& _ " CustomsCodeDeparture, CustomsCodeDestination, CustomsCodeEntry, TransportModeBo"& _ "rder, CountryCodeDeparture, CountryCodeDestination, DEStateCodeDestination, Tran"& _ "sportArrivalLicensePlate, TransportArrivalCountryCode, TransportBorderType, Tran"& _ "sportBorderLicensePlate, Incoterm, PrePaperCode, PrePaperNr, KindOfBusiness, Inv"& _ "oiceAmount, InvoiceCurrency, ContainerNr1, ContainerNr2, ContainerNr3, Container"& _ "Nr4, trAv_Info, FreightCostsEU, FreightCostsNonEU FROM dbo.tblTR_Shipment" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTR_ShipmentDataTable) 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 VERAGDataSet.tblTR_ShipmentDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTR_ShipmentDataTable = New VERAGDataSet.tblTR_ShipmentDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTR_ShipmentDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTR_Shipment") 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_shTr_id As Integer, _ ByVal Original_shTr_Partnersystem As String, _ ByVal Original_shTr_Status As Global.System.Nullable(Of Integer), _ ByVal Original_shTr_TRAvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_Company As String, _ ByVal Original_Department As String, _ ByVal Original_Reference As String, _ ByVal Original_DeclarationCountry As String, _ ByVal Original_DeclarationType As String, _ ByVal Original_TotPackage As Global.System.Nullable(Of Integer), _ ByVal Original_TotGrossWeight As Global.System.Nullable(Of Decimal), _ ByVal Original_CustomsCodeDeparture As String, _ ByVal Original_CustomsCodeDestination As String, _ ByVal Original_CustomsCodeEntry As String, _ ByVal Original_TransportModeBorder As String, _ ByVal Original_CountryCodeDeparture As String, _ ByVal Original_CountryCodeDestination As String, _ ByVal Original_DEStateCodeDestination As String, _ ByVal Original_TransportArrivalLicensePlate As String, _ ByVal Original_TransportArrivalCountryCode As String, _ ByVal Original_TransportBorderType As String, _ ByVal Original_TransportBorderLicensePlate As String, _ ByVal Original_Incoterm As String, _ ByVal Original_PrePaperCode As String, _ ByVal Original_PrePaperNr As String, _ ByVal Original_KindOfBusiness As Global.System.Nullable(Of Integer), _ ByVal Original_InvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_InvoiceCurrency As String, _ ByVal Original_ContainerNr1 As String, _ ByVal Original_ContainerNr2 As String, _ ByVal Original_ContainerNr3 As String, _ ByVal Original_ContainerNr4 As String, _ ByVal Original_FreightCostsEU As Global.System.Nullable(Of Decimal), _ ByVal Original_FreightCostsNonEU As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_shTr_id,Integer) If (Original_shTr_Partnersystem Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_shTr_Partnersystem") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_shTr_Partnersystem,String) End If If (Original_shTr_Status.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_shTr_Status.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_shTr_TRAvisoId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_shTr_TRAvisoId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Original_Company 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_Company,String) End If If (Original_Department 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_Department,String) End If If (Original_Reference 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_Reference,String) End If If (Original_DeclarationCountry 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_DeclarationCountry,String) End If If (Original_DeclarationType Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_DeclarationType,String) End If If (Original_TotPackage.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_TotPackage.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_TotGrossWeight.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_TotGrossWeight.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_CustomsCodeDeparture 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_CustomsCodeDeparture,String) End If If (Original_CustomsCodeDestination 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_CustomsCodeDestination,String) End If If (Original_CustomsCodeEntry 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_CustomsCodeEntry,String) End If If (Original_TransportModeBorder 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_TransportModeBorder,String) End If If (Original_CountryCodeDeparture 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_CountryCodeDeparture,String) End If If (Original_CountryCodeDestination Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_CountryCodeDestination,String) End If If (Original_DEStateCodeDestination Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_DEStateCodeDestination,String) End If If (Original_TransportArrivalLicensePlate Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_TransportArrivalLicensePlate,String) End If If (Original_TransportArrivalCountryCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_TransportArrivalCountryCode,String) End If If (Original_TransportBorderType Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_TransportBorderType,String) End If If (Original_TransportBorderLicensePlate Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_TransportBorderLicensePlate,String) End If If (Original_Incoterm Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_Incoterm,String) End If If (Original_PrePaperCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_PrePaperCode,String) End If If (Original_PrePaperNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_PrePaperNr,String) End If If (Original_KindOfBusiness.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_KindOfBusiness.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Original_InvoiceAmount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_InvoiceAmount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_InvoiceCurrency Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_InvoiceCurrency,String) End If If (Original_ContainerNr1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = CType(Original_ContainerNr1,String) End If If (Original_ContainerNr2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = CType(Original_ContainerNr2,String) End If If (Original_ContainerNr3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_ContainerNr3,String) End If If (Original_ContainerNr4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_ContainerNr4,String) End If If (Original_FreightCostsEU.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_FreightCostsEU.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Original_FreightCostsNonEU.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_FreightCostsNonEU.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).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 shTr_Partnersystem As String, _ ByVal shTr_Status As Global.System.Nullable(Of Integer), _ ByVal shTr_TRAvisoId As Global.System.Nullable(Of Integer), _ ByVal Company As String, _ ByVal Department As String, _ ByVal Reference As String, _ ByVal DeclarationCountry As String, _ ByVal DeclarationType As String, _ ByVal TotPackage As Global.System.Nullable(Of Integer), _ ByVal TotGrossWeight As Global.System.Nullable(Of Decimal), _ ByVal CustomsCodeDeparture As String, _ ByVal CustomsCodeDestination As String, _ ByVal CustomsCodeEntry As String, _ ByVal TransportModeBorder As String, _ ByVal CountryCodeDeparture As String, _ ByVal CountryCodeDestination As String, _ ByVal DEStateCodeDestination As String, _ ByVal TransportArrivalLicensePlate As String, _ ByVal TransportArrivalCountryCode As String, _ ByVal TransportBorderType As String, _ ByVal TransportBorderLicensePlate As String, _ ByVal Incoterm As String, _ ByVal PrePaperCode As String, _ ByVal PrePaperNr As String, _ ByVal KindOfBusiness As Global.System.Nullable(Of Integer), _ ByVal InvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal InvoiceCurrency As String, _ ByVal ContainerNr1 As String, _ ByVal ContainerNr2 As String, _ ByVal ContainerNr3 As String, _ ByVal ContainerNr4 As String, _ ByVal trAv_Info As String, _ ByVal FreightCostsEU As Global.System.Nullable(Of Decimal), _ ByVal FreightCostsNonEU As Global.System.Nullable(Of Decimal)) As Integer If (shTr_Partnersystem Is Nothing) Then Throw New Global.System.ArgumentNullException("shTr_Partnersystem") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(shTr_Partnersystem,String) End If If (shTr_Status.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(shTr_Status.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (shTr_TRAvisoId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(shTr_TRAvisoId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Company Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Company,String) End If If (Department Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Department,String) End If If (Reference Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Reference,String) End If If (DeclarationCountry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(DeclarationCountry,String) End If If (DeclarationType Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(DeclarationType,String) End If If (TotPackage.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(TotPackage.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (TotGrossWeight.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(TotGrossWeight.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (CustomsCodeDeparture Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(CustomsCodeDeparture,String) End If If (CustomsCodeDestination Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(CustomsCodeDestination,String) End If If (CustomsCodeEntry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(CustomsCodeEntry,String) End If If (TransportModeBorder Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(TransportModeBorder,String) End If If (CountryCodeDeparture Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(CountryCodeDeparture,String) End If If (CountryCodeDestination Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(CountryCodeDestination,String) End If If (DEStateCodeDestination Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(DEStateCodeDestination,String) End If If (TransportArrivalLicensePlate Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(TransportArrivalLicensePlate,String) End If If (TransportArrivalCountryCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(TransportArrivalCountryCode,String) End If If (TransportBorderType Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(TransportBorderType,String) End If If (TransportBorderLicensePlate Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(TransportBorderLicensePlate,String) End If If (Incoterm Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(Incoterm,String) End If If (PrePaperCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(PrePaperCode,String) End If If (PrePaperNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(PrePaperNr,String) End If If (KindOfBusiness.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(KindOfBusiness.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (InvoiceAmount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(InvoiceAmount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (InvoiceCurrency Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(InvoiceCurrency,String) End If If (ContainerNr1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(ContainerNr1,String) End If If (ContainerNr2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(ContainerNr2,String) End If If (ContainerNr3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(ContainerNr3,String) End If If (ContainerNr4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(ContainerNr4,String) End If If (trAv_Info Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(trAv_Info,String) End If If (FreightCostsEU.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(FreightCostsEU.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (FreightCostsNonEU.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(FreightCostsNonEU.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(33).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 shTr_Partnersystem As String, _ ByVal shTr_Status As Global.System.Nullable(Of Integer), _ ByVal shTr_TRAvisoId As Global.System.Nullable(Of Integer), _ ByVal Company As String, _ ByVal Department As String, _ ByVal Reference As String, _ ByVal DeclarationCountry As String, _ ByVal DeclarationType As String, _ ByVal TotPackage As Global.System.Nullable(Of Integer), _ ByVal TotGrossWeight As Global.System.Nullable(Of Decimal), _ ByVal CustomsCodeDeparture As String, _ ByVal CustomsCodeDestination As String, _ ByVal CustomsCodeEntry As String, _ ByVal TransportModeBorder As String, _ ByVal CountryCodeDeparture As String, _ ByVal CountryCodeDestination As String, _ ByVal DEStateCodeDestination As String, _ ByVal TransportArrivalLicensePlate As String, _ ByVal TransportArrivalCountryCode As String, _ ByVal TransportBorderType As String, _ ByVal TransportBorderLicensePlate As String, _ ByVal Incoterm As String, _ ByVal PrePaperCode As String, _ ByVal PrePaperNr As String, _ ByVal KindOfBusiness As Global.System.Nullable(Of Integer), _ ByVal InvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal InvoiceCurrency As String, _ ByVal ContainerNr1 As String, _ ByVal ContainerNr2 As String, _ ByVal ContainerNr3 As String, _ ByVal ContainerNr4 As String, _ ByVal trAv_Info As String, _ ByVal FreightCostsEU As Global.System.Nullable(Of Decimal), _ ByVal FreightCostsNonEU As Global.System.Nullable(Of Decimal), _ ByVal Original_shTr_id As Integer, _ ByVal Original_shTr_Partnersystem As String, _ ByVal Original_shTr_Status As Global.System.Nullable(Of Integer), _ ByVal Original_shTr_TRAvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_Company As String, _ ByVal Original_Department As String, _ ByVal Original_Reference As String, _ ByVal Original_DeclarationCountry As String, _ ByVal Original_DeclarationType As String, _ ByVal Original_TotPackage As Global.System.Nullable(Of Integer), _ ByVal Original_TotGrossWeight As Global.System.Nullable(Of Decimal), _ ByVal Original_CustomsCodeDeparture As String, _ ByVal Original_CustomsCodeDestination As String, _ ByVal Original_CustomsCodeEntry As String, _ ByVal Original_TransportModeBorder As String, _ ByVal Original_CountryCodeDeparture As String, _ ByVal Original_CountryCodeDestination As String, _ ByVal Original_DEStateCodeDestination As String, _ ByVal Original_TransportArrivalLicensePlate As String, _ ByVal Original_TransportArrivalCountryCode As String, _ ByVal Original_TransportBorderType As String, _ ByVal Original_TransportBorderLicensePlate As String, _ ByVal Original_Incoterm As String, _ ByVal Original_PrePaperCode As String, _ ByVal Original_PrePaperNr As String, _ ByVal Original_KindOfBusiness As Global.System.Nullable(Of Integer), _ ByVal Original_InvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_InvoiceCurrency As String, _ ByVal Original_ContainerNr1 As String, _ ByVal Original_ContainerNr2 As String, _ ByVal Original_ContainerNr3 As String, _ ByVal Original_ContainerNr4 As String, _ ByVal Original_FreightCostsEU As Global.System.Nullable(Of Decimal), _ ByVal Original_FreightCostsNonEU As Global.System.Nullable(Of Decimal), _ ByVal shTr_id As Integer) As Integer If (shTr_Partnersystem Is Nothing) Then Throw New Global.System.ArgumentNullException("shTr_Partnersystem") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(shTr_Partnersystem,String) End If If (shTr_Status.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(shTr_Status.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (shTr_TRAvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(shTr_TRAvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Company Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Company,String) End If If (Department Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Department,String) End If If (Reference Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Reference,String) End If If (DeclarationCountry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DeclarationCountry,String) End If If (DeclarationType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DeclarationType,String) End If If (TotPackage.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TotPackage.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (TotGrossWeight.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TotGrossWeight.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (CustomsCodeDeparture Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CustomsCodeDeparture,String) End If If (CustomsCodeDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CustomsCodeDestination,String) End If If (CustomsCodeEntry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CustomsCodeEntry,String) End If If (TransportModeBorder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(TransportModeBorder,String) End If If (CountryCodeDeparture Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(CountryCodeDeparture,String) End If If (CountryCodeDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CountryCodeDestination,String) End If If (DEStateCodeDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(DEStateCodeDestination,String) End If If (TransportArrivalLicensePlate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(TransportArrivalLicensePlate,String) End If If (TransportArrivalCountryCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(TransportArrivalCountryCode,String) End If If (TransportBorderType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(TransportBorderType,String) End If If (TransportBorderLicensePlate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(TransportBorderLicensePlate,String) End If If (Incoterm Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Incoterm,String) End If If (PrePaperCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(PrePaperCode,String) End If If (PrePaperNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(PrePaperNr,String) End If If (KindOfBusiness.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(KindOfBusiness.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (InvoiceAmount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(InvoiceAmount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (InvoiceCurrency Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(InvoiceCurrency,String) End If If (ContainerNr1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(ContainerNr1,String) End If If (ContainerNr2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(ContainerNr2,String) End If If (ContainerNr3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(ContainerNr3,String) End If If (ContainerNr4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(ContainerNr4,String) End If If (trAv_Info Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(trAv_Info,String) End If If (FreightCostsEU.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(FreightCostsEU.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (FreightCostsNonEU.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(FreightCostsNonEU.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_shTr_id,Integer) If (Original_shTr_Partnersystem Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_shTr_Partnersystem") Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_shTr_Partnersystem,String) End If If (Original_shTr_Status.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_shTr_Status.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Original_shTr_TRAvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_shTr_TRAvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_Company Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_Company,String) End If If (Original_Department Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_Department,String) End If If (Original_Reference Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_Reference,String) End If If (Original_DeclarationCountry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_DeclarationCountry,String) End If If (Original_DeclarationType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_DeclarationType,String) End If If (Original_TotPackage.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_TotPackage.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_TotGrossWeight.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_TotGrossWeight.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_CustomsCodeDeparture Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_CustomsCodeDeparture,String) End If If (Original_CustomsCodeDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_CustomsCodeDestination,String) End If If (Original_CustomsCodeEntry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_CustomsCodeEntry,String) End If If (Original_TransportModeBorder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_TransportModeBorder,String) End If If (Original_CountryCodeDeparture Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_CountryCodeDeparture,String) End If If (Original_CountryCodeDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_CountryCodeDestination,String) End If If (Original_DEStateCodeDestination Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_DEStateCodeDestination,String) End If If (Original_TransportArrivalLicensePlate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_TransportArrivalLicensePlate,String) End If If (Original_TransportArrivalCountryCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_TransportArrivalCountryCode,String) End If If (Original_TransportBorderType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_TransportBorderType,String) End If If (Original_TransportBorderLicensePlate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_TransportBorderLicensePlate,String) End If If (Original_Incoterm Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_Incoterm,String) End If If (Original_PrePaperCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_PrePaperCode,String) End If If (Original_PrePaperNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_PrePaperNr,String) End If If (Original_KindOfBusiness.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_KindOfBusiness.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value End If If (Original_InvoiceAmount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_InvoiceAmount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Original_InvoiceCurrency Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_InvoiceCurrency,String) End If If (Original_ContainerNr1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_ContainerNr1,String) End If If (Original_ContainerNr2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_ContainerNr2,String) End If If (Original_ContainerNr3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_ContainerNr3,String) End If If (Original_ContainerNr4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_ContainerNr4,String) End If If (Original_FreightCostsEU.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_FreightCostsEU.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value End If If (Original_FreightCostsNonEU.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_FreightCostsNonEU.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(100).Value = CType(shTr_id,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 shTr_Partnersystem As String, _ ByVal shTr_Status As Global.System.Nullable(Of Integer), _ ByVal shTr_TRAvisoId As Global.System.Nullable(Of Integer), _ ByVal Company As String, _ ByVal Department As String, _ ByVal Reference As String, _ ByVal DeclarationCountry As String, _ ByVal DeclarationType As String, _ ByVal TotPackage As Global.System.Nullable(Of Integer), _ ByVal TotGrossWeight As Global.System.Nullable(Of Decimal), _ ByVal CustomsCodeDeparture As String, _ ByVal CustomsCodeDestination As String, _ ByVal CustomsCodeEntry As String, _ ByVal TransportModeBorder As String, _ ByVal CountryCodeDeparture As String, _ ByVal CountryCodeDestination As String, _ ByVal DEStateCodeDestination As String, _ ByVal TransportArrivalLicensePlate As String, _ ByVal TransportArrivalCountryCode As String, _ ByVal TransportBorderType As String, _ ByVal TransportBorderLicensePlate As String, _ ByVal Incoterm As String, _ ByVal PrePaperCode As String, _ ByVal PrePaperNr As String, _ ByVal KindOfBusiness As Global.System.Nullable(Of Integer), _ ByVal InvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal InvoiceCurrency As String, _ ByVal ContainerNr1 As String, _ ByVal ContainerNr2 As String, _ ByVal ContainerNr3 As String, _ ByVal ContainerNr4 As String, _ ByVal trAv_Info As String, _ ByVal FreightCostsEU As Global.System.Nullable(Of Decimal), _ ByVal FreightCostsNonEU As Global.System.Nullable(Of Decimal), _ ByVal Original_shTr_id As Integer, _ ByVal Original_shTr_Partnersystem As String, _ ByVal Original_shTr_Status As Global.System.Nullable(Of Integer), _ ByVal Original_shTr_TRAvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_Company As String, _ ByVal Original_Department As String, _ ByVal Original_Reference As String, _ ByVal Original_DeclarationCountry As String, _ ByVal Original_DeclarationType As String, _ ByVal Original_TotPackage As Global.System.Nullable(Of Integer), _ ByVal Original_TotGrossWeight As Global.System.Nullable(Of Decimal), _ ByVal Original_CustomsCodeDeparture As String, _ ByVal Original_CustomsCodeDestination As String, _ ByVal Original_CustomsCodeEntry As String, _ ByVal Original_TransportModeBorder As String, _ ByVal Original_CountryCodeDeparture As String, _ ByVal Original_CountryCodeDestination As String, _ ByVal Original_DEStateCodeDestination As String, _ ByVal Original_TransportArrivalLicensePlate As String, _ ByVal Original_TransportArrivalCountryCode As String, _ ByVal Original_TransportBorderType As String, _ ByVal Original_TransportBorderLicensePlate As String, _ ByVal Original_Incoterm As String, _ ByVal Original_PrePaperCode As String, _ ByVal Original_PrePaperNr As String, _ ByVal Original_KindOfBusiness As Global.System.Nullable(Of Integer), _ ByVal Original_InvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_InvoiceCurrency As String, _ ByVal Original_ContainerNr1 As String, _ ByVal Original_ContainerNr2 As String, _ ByVal Original_ContainerNr3 As String, _ ByVal Original_ContainerNr4 As String, _ ByVal Original_FreightCostsEU As Global.System.Nullable(Of Decimal), _ ByVal Original_FreightCostsNonEU As Global.System.Nullable(Of Decimal)) As Integer Return Me.Update(shTr_Partnersystem, shTr_Status, shTr_TRAvisoId, Company, Department, Reference, DeclarationCountry, DeclarationType, TotPackage, TotGrossWeight, CustomsCodeDeparture, CustomsCodeDestination, CustomsCodeEntry, TransportModeBorder, CountryCodeDeparture, CountryCodeDestination, DEStateCodeDestination, TransportArrivalLicensePlate, TransportArrivalCountryCode, TransportBorderType, TransportBorderLicensePlate, Incoterm, PrePaperCode, PrePaperNr, KindOfBusiness, InvoiceAmount, InvoiceCurrency, ContainerNr1, ContainerNr2, ContainerNr3, ContainerNr4, trAv_Info, FreightCostsEU, FreightCostsNonEU, Original_shTr_id, Original_shTr_Partnersystem, Original_shTr_Status, Original_shTr_TRAvisoId, Original_Company, Original_Department, Original_Reference, Original_DeclarationCountry, Original_DeclarationType, Original_TotPackage, Original_TotGrossWeight, Original_CustomsCodeDeparture, Original_CustomsCodeDestination, Original_CustomsCodeEntry, Original_TransportModeBorder, Original_CountryCodeDeparture, Original_CountryCodeDestination, Original_DEStateCodeDestination, Original_TransportArrivalLicensePlate, Original_TransportArrivalCountryCode, Original_TransportBorderType, Original_TransportBorderLicensePlate, Original_Incoterm, Original_PrePaperCode, Original_PrePaperNr, Original_KindOfBusiness, Original_InvoiceAmount, Original_InvoiceCurrency, Original_ContainerNr1, Original_ContainerNr2, Original_ContainerNr3, Original_ContainerNr4, Original_FreightCostsEU, Original_FreightCostsNonEU, Original_shTr_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTR_Shipment_AdressenTableAdapter 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 = "tblTR_Shipment_Adressen" tableMapping.ColumnMappings.Add("shTrAd_id", "shTrAd_id") tableMapping.ColumnMappings.Add("shTrAd_ShTrId", "shTrAd_ShTrId") tableMapping.ColumnMappings.Add("AddressCode", "AddressCode") tableMapping.ColumnMappings.Add("CustomerID", "CustomerID") tableMapping.ColumnMappings.Add("EORI", "EORI") tableMapping.ColumnMappings.Add("NLNR", "NLNR") tableMapping.ColumnMappings.Add("Name1", "Name1") tableMapping.ColumnMappings.Add("Name2", "Name2") tableMapping.ColumnMappings.Add("Name3", "Name3") tableMapping.ColumnMappings.Add("Street1", "Street1") tableMapping.ColumnMappings.Add("Street2", "Street2") tableMapping.ColumnMappings.Add("City", "City") tableMapping.ColumnMappings.Add("CountryCode", "CountryCode") tableMapping.ColumnMappings.Add("PostalCode", "PostalCode") tableMapping.ColumnMappings.Add("UStID", "UStID") tableMapping.ColumnMappings.Add("TaxNo", "TaxNo") tableMapping.ColumnMappings.Add("ContactPerson", "ContactPerson") tableMapping.ColumnMappings.Add("Telefon", "Telefon") tableMapping.ColumnMappings.Add("Email", "Email") 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].[tblTR_Shipment_Adressen] WHERE (([shTrAd_id] = @Original_shTrA"& _ "d_id) AND ([shTrAd_ShTrId] = @Original_shTrAd_ShTrId) AND ((@IsNull_AddressCode "& _ "= 1 AND [AddressCode] IS NULL) OR ([AddressCode] = @Original_AddressCode)) AND ("& _ "(@IsNull_CustomerID = 1 AND [CustomerID] IS NULL) OR ([CustomerID] = @Original_C"& _ "ustomerID)) AND ((@IsNull_EORI = 1 AND [EORI] IS NULL) OR ([EORI] = @Original_EO"& _ "RI)) AND ((@IsNull_NLNR = 1 AND [NLNR] IS NULL) OR ([NLNR] = @Original_NLNR)) AN"& _ "D ((@IsNull_Name1 = 1 AND [Name1] IS NULL) OR ([Name1] = @Original_Name1)) AND ("& _ "(@IsNull_Name2 = 1 AND [Name2] IS NULL) OR ([Name2] = @Original_Name2)) AND ((@I"& _ "sNull_Name3 = 1 AND [Name3] IS NULL) OR ([Name3] = @Original_Name3)) AND ((@IsNu"& _ "ll_Street1 = 1 AND [Street1] IS NULL) OR ([Street1] = @Original_Street1)) AND (("& _ "@IsNull_Street2 = 1 AND [Street2] IS NULL) OR ([Street2] = @Original_Street2)) A"& _ "ND ((@IsNull_City = 1 AND [City] IS NULL) OR ([City] = @Original_City)) AND ((@I"& _ "sNull_CountryCode = 1 AND [CountryCode] IS NULL) OR ([CountryCode] = @Original_C"& _ "ountryCode)) AND ((@IsNull_PostalCode = 1 AND [PostalCode] IS NULL) OR ([PostalC"& _ "ode] = @Original_PostalCode)) AND ((@IsNull_UStID = 1 AND [UStID] IS NULL) OR (["& _ "UStID] = @Original_UStID)) AND ((@IsNull_TaxNo = 1 AND [TaxNo] IS NULL) OR ([Tax"& _ "No] = @Original_TaxNo)) AND ((@IsNull_ContactPerson = 1 AND [ContactPerson] IS N"& _ "ULL) OR ([ContactPerson] = @Original_ContactPerson)) AND ((@IsNull_Telefon = 1 A"& _ "ND [Telefon] IS NULL) OR ([Telefon] = @Original_Telefon)) AND ((@IsNull_Email = "& _ "1 AND [Email] IS NULL) OR ([Email] = @Original_Email)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrAd_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrAd_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrAd_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrAd_ShTrId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AddressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AddressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AddressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AddressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Street1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Street1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Street2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Street2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PostalCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PostalCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PostalCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PostalCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_UStID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TaxNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TaxNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TaxNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TaxNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContactPerson", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactPerson", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Telefon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefon", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Telefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefon", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Email", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Email", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", 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].[tblTR_Shipment_Adressen] ([shTrAd_ShTrId], [AddressCode], [Cus"& _ "tomerID], [EORI], [NLNR], [Name1], [Name2], [Name3], [Street1], [Street2], [City"& _ "], [CountryCode], [PostalCode], [UStID], [TaxNo], [ContactPerson], [Telefon], [E"& _ "mail]) VALUES (@shTrAd_ShTrId, @AddressCode, @CustomerID, @EORI, @NLNR, @Name1, "& _ "@Name2, @Name3, @Street1, @Street2, @City, @CountryCode, @PostalCode, @UStID, @T"& _ "axNo, @ContactPerson, @Telefon, @Email);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT shTrAd_id, shTrAd_ShTrId, Addre"& _ "ssCode, CustomerID, EORI, NLNR, Name1, Name2, Name3, Street1, Street2, City, Cou"& _ "ntryCode, PostalCode, UStID, TaxNo, ContactPerson, Telefon, Email FROM tblTR_Shi"& _ "pment_Adressen WHERE (shTrAd_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrAd_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrAd_ShTrId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AddressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AddressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Street1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Street2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PostalCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PostalCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TaxNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TaxNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactPerson", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Email", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", 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].[tblTR_Shipment_Adressen] SET [shTrAd_ShTrId] = @shTrAd_ShTrId, [Add"& _ "ressCode] = @AddressCode, [CustomerID] = @CustomerID, [EORI] = @EORI, [NLNR] = @"& _ "NLNR, [Name1] = @Name1, [Name2] = @Name2, [Name3] = @Name3, [Street1] = @Street1"& _ ", [Street2] = @Street2, [City] = @City, [CountryCode] = @CountryCode, [PostalCod"& _ "e] = @PostalCode, [UStID] = @UStID, [TaxNo] = @TaxNo, [ContactPerson] = @Contact"& _ "Person, [Telefon] = @Telefon, [Email] = @Email WHERE (([shTrAd_id] = @Original_s"& _ "hTrAd_id) AND ([shTrAd_ShTrId] = @Original_shTrAd_ShTrId) AND ((@IsNull_AddressC"& _ "ode = 1 AND [AddressCode] IS NULL) OR ([AddressCode] = @Original_AddressCode)) A"& _ "ND ((@IsNull_CustomerID = 1 AND [CustomerID] IS NULL) OR ([CustomerID] = @Origin"& _ "al_CustomerID)) AND ((@IsNull_EORI = 1 AND [EORI] IS NULL) OR ([EORI] = @Origina"& _ "l_EORI)) AND ((@IsNull_NLNR = 1 AND [NLNR] IS NULL) OR ([NLNR] = @Original_NLNR)"& _ ") AND ((@IsNull_Name1 = 1 AND [Name1] IS NULL) OR ([Name1] = @Original_Name1)) A"& _ "ND ((@IsNull_Name2 = 1 AND [Name2] IS NULL) OR ([Name2] = @Original_Name2)) AND "& _ "((@IsNull_Name3 = 1 AND [Name3] IS NULL) OR ([Name3] = @Original_Name3)) AND ((@"& _ "IsNull_Street1 = 1 AND [Street1] IS NULL) OR ([Street1] = @Original_Street1)) AN"& _ "D ((@IsNull_Street2 = 1 AND [Street2] IS NULL) OR ([Street2] = @Original_Street2"& _ ")) AND ((@IsNull_City = 1 AND [City] IS NULL) OR ([City] = @Original_City)) AND "& _ "((@IsNull_CountryCode = 1 AND [CountryCode] IS NULL) OR ([CountryCode] = @Origin"& _ "al_CountryCode)) AND ((@IsNull_PostalCode = 1 AND [PostalCode] IS NULL) OR ([Pos"& _ "talCode] = @Original_PostalCode)) AND ((@IsNull_UStID = 1 AND [UStID] IS NULL) O"& _ "R ([UStID] = @Original_UStID)) AND ((@IsNull_TaxNo = 1 AND [TaxNo] IS NULL) OR ("& _ "[TaxNo] = @Original_TaxNo)) AND ((@IsNull_ContactPerson = 1 AND [ContactPerson] "& _ "IS NULL) OR ([ContactPerson] = @Original_ContactPerson)) AND ((@IsNull_Telefon ="& _ " 1 AND [Telefon] IS NULL) OR ([Telefon] = @Original_Telefon)) AND ((@IsNull_Emai"& _ "l = 1 AND [Email] IS NULL) OR ([Email] = @Original_Email)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT shTrAd_id, "& _ "shTrAd_ShTrId, AddressCode, CustomerID, EORI, NLNR, Name1, Name2, Name3, Street1"& _ ", Street2, City, CountryCode, PostalCode, UStID, TaxNo, ContactPerson, Telefon, "& _ "Email FROM tblTR_Shipment_Adressen WHERE (shTrAd_id = @shTrAd_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrAd_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrAd_ShTrId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AddressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AddressCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Street1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Street2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PostalCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PostalCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TaxNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TaxNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactPerson", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Telefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Email", Global.System.Data.SqlDbType.NVarChar, 0, 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("@Original_shTrAd_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrAd_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrAd_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrAd_ShTrId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AddressCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AddressCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AddressCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AddressCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name3", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Street1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Street1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Street2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Street2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PostalCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PostalCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PostalCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PostalCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_UStID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TaxNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TaxNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TaxNo", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TaxNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContactPerson", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactPerson", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Telefon", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefon", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Telefon", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Telefon", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Email", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Email", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrAd_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrAd_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 shTrAd_id, shTrAd_ShTrId, AddressCode, CustomerID, EORI, NLNR, Name1, Name"& _ "2, Name3, Street1, Street2, City, CountryCode, PostalCode, UStID, TaxNo, Contact"& _ "Person, Telefon, Email FROM dbo.tblTR_Shipment_Adressen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTR_Shipment_AdressenDataTable) 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 VERAGDataSet.tblTR_Shipment_AdressenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTR_Shipment_AdressenDataTable = New VERAGDataSet.tblTR_Shipment_AdressenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTR_Shipment_AdressenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTR_Shipment_Adressen") 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_shTrAd_id As Integer, _ ByVal Original_shTrAd_ShTrId As Integer, _ ByVal Original_AddressCode As String, _ ByVal Original_CustomerID As String, _ ByVal Original_EORI As String, _ ByVal Original_NLNR As String, _ ByVal Original_Name1 As String, _ ByVal Original_Name2 As String, _ ByVal Original_Name3 As String, _ ByVal Original_Street1 As String, _ ByVal Original_Street2 As String, _ ByVal Original_City As String, _ ByVal Original_CountryCode As String, _ ByVal Original_PostalCode As String, _ ByVal Original_UStID As String, _ ByVal Original_TaxNo As String, _ ByVal Original_ContactPerson As String, _ ByVal Original_Telefon As String, _ ByVal Original_Email As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_shTrAd_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_shTrAd_ShTrId,Integer) If (Original_AddressCode 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_AddressCode,String) End If If (Original_CustomerID 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_CustomerID,String) End If If (Original_EORI 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_EORI,String) End If If (Original_NLNR 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_NLNR,String) End If If (Original_Name1 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_Name1,String) End If If (Original_Name2 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_Name2,String) End If If (Original_Name3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_Name3,String) End If If (Original_Street1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_Street1,String) End If If (Original_Street2 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_Street2,String) End If If (Original_City 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_City,String) End If If (Original_CountryCode 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_CountryCode,String) End If If (Original_PostalCode 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_PostalCode,String) End If If (Original_UStID 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_UStID,String) End If If (Original_TaxNo 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_TaxNo,String) End If If (Original_ContactPerson Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_ContactPerson,String) End If If (Original_Telefon Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_Telefon,String) End If If (Original_Email Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_Email,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 shTrAd_ShTrId As Integer, _ ByVal AddressCode As String, _ ByVal CustomerID As String, _ ByVal EORI As String, _ ByVal NLNR As String, _ ByVal Name1 As String, _ ByVal Name2 As String, _ ByVal Name3 As String, _ ByVal Street1 As String, _ ByVal Street2 As String, _ ByVal City As String, _ ByVal CountryCode As String, _ ByVal PostalCode As String, _ ByVal UStID As String, _ ByVal TaxNo As String, _ ByVal ContactPerson As String, _ ByVal Telefon As String, _ ByVal Email As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(shTrAd_ShTrId,Integer) If (AddressCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(AddressCode,String) End If If (CustomerID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(CustomerID,String) End If If (EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(EORI,String) End If If (NLNR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(NLNR,String) End If If (Name1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Name1,String) End If If (Name2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Name2,String) End If If (Name3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Name3,String) End If If (Street1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Street1,String) End If If (Street2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Street2,String) End If If (City Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(City,String) End If If (CountryCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(CountryCode,String) End If If (PostalCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(PostalCode,String) End If If (UStID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(UStID,String) End If If (TaxNo Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(TaxNo,String) End If If (ContactPerson Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(ContactPerson,String) End If If (Telefon Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Telefon,String) End If If (Email Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Email,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 shTrAd_ShTrId As Integer, _ ByVal AddressCode As String, _ ByVal CustomerID As String, _ ByVal EORI As String, _ ByVal NLNR As String, _ ByVal Name1 As String, _ ByVal Name2 As String, _ ByVal Name3 As String, _ ByVal Street1 As String, _ ByVal Street2 As String, _ ByVal City As String, _ ByVal CountryCode As String, _ ByVal PostalCode As String, _ ByVal UStID As String, _ ByVal TaxNo As String, _ ByVal ContactPerson As String, _ ByVal Telefon As String, _ ByVal Email As String, _ ByVal Original_shTrAd_id As Integer, _ ByVal Original_shTrAd_ShTrId As Integer, _ ByVal Original_AddressCode As String, _ ByVal Original_CustomerID As String, _ ByVal Original_EORI As String, _ ByVal Original_NLNR As String, _ ByVal Original_Name1 As String, _ ByVal Original_Name2 As String, _ ByVal Original_Name3 As String, _ ByVal Original_Street1 As String, _ ByVal Original_Street2 As String, _ ByVal Original_City As String, _ ByVal Original_CountryCode As String, _ ByVal Original_PostalCode As String, _ ByVal Original_UStID As String, _ ByVal Original_TaxNo As String, _ ByVal Original_ContactPerson As String, _ ByVal Original_Telefon As String, _ ByVal Original_Email As String, _ ByVal shTrAd_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(shTrAd_ShTrId,Integer) If (AddressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(AddressCode,String) End If If (CustomerID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CustomerID,String) End If If (EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EORI,String) End If If (NLNR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(NLNR,String) End If If (Name1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Name1,String) End If If (Name2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Name2,String) End If If (Name3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Name3,String) End If If (Street1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Street1,String) End If If (Street2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Street2,String) End If If (City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(City,String) End If If (CountryCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CountryCode,String) End If If (PostalCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(PostalCode,String) End If If (UStID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(UStID,String) End If If (TaxNo Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(TaxNo,String) End If If (ContactPerson Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ContactPerson,String) End If If (Telefon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Telefon,String) End If If (Email Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Email,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_shTrAd_id,Integer) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_shTrAd_ShTrId,Integer) If (Original_AddressCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_AddressCode,String) End If If (Original_CustomerID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CustomerID,String) End If If (Original_EORI 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_EORI,String) End If If (Original_NLNR 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_NLNR,String) End If If (Original_Name1 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_Name1,String) End If If (Original_Name2 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_Name2,String) End If If (Original_Name3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_Name3,String) End If If (Original_Street1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_Street1,String) End If If (Original_Street2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_Street2,String) End If If (Original_City Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_City,String) End If If (Original_CountryCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_CountryCode,String) End If If (Original_PostalCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_PostalCode,String) End If If (Original_UStID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_UStID,String) End If If (Original_TaxNo Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_TaxNo,String) End If If (Original_ContactPerson Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_ContactPerson,String) End If If (Original_Telefon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_Telefon,String) End If If (Original_Email Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_Email,String) End If Me.Adapter.UpdateCommand.Parameters(54).Value = CType(shTrAd_id,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 shTrAd_ShTrId As Integer, _ ByVal AddressCode As String, _ ByVal CustomerID As String, _ ByVal EORI As String, _ ByVal NLNR As String, _ ByVal Name1 As String, _ ByVal Name2 As String, _ ByVal Name3 As String, _ ByVal Street1 As String, _ ByVal Street2 As String, _ ByVal City As String, _ ByVal CountryCode As String, _ ByVal PostalCode As String, _ ByVal UStID As String, _ ByVal TaxNo As String, _ ByVal ContactPerson As String, _ ByVal Telefon As String, _ ByVal Email As String, _ ByVal Original_shTrAd_id As Integer, _ ByVal Original_shTrAd_ShTrId As Integer, _ ByVal Original_AddressCode As String, _ ByVal Original_CustomerID As String, _ ByVal Original_EORI As String, _ ByVal Original_NLNR As String, _ ByVal Original_Name1 As String, _ ByVal Original_Name2 As String, _ ByVal Original_Name3 As String, _ ByVal Original_Street1 As String, _ ByVal Original_Street2 As String, _ ByVal Original_City As String, _ ByVal Original_CountryCode As String, _ ByVal Original_PostalCode As String, _ ByVal Original_UStID As String, _ ByVal Original_TaxNo As String, _ ByVal Original_ContactPerson As String, _ ByVal Original_Telefon As String, _ ByVal Original_Email As String) As Integer Return Me.Update(shTrAd_ShTrId, AddressCode, CustomerID, EORI, NLNR, Name1, Name2, Name3, Street1, Street2, City, CountryCode, PostalCode, UStID, TaxNo, ContactPerson, Telefon, Email, Original_shTrAd_id, Original_shTrAd_ShTrId, Original_AddressCode, Original_CustomerID, Original_EORI, Original_NLNR, Original_Name1, Original_Name2, Original_Name3, Original_Street1, Original_Street2, Original_City, Original_CountryCode, Original_PostalCode, Original_UStID, Original_TaxNo, Original_ContactPerson, Original_Telefon, Original_Email, Original_shTrAd_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTR_Shipment_DocumentTableAdapter 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 = "tblTR_Shipment_Document" tableMapping.ColumnMappings.Add("shTrDoc_id", "shTrDoc_id") tableMapping.ColumnMappings.Add("shTrDoc_ShTrId", "shTrDoc_ShTrId") tableMapping.ColumnMappings.Add("DocumentType", "DocumentType") tableMapping.ColumnMappings.Add("DocumentNr", "DocumentNr") tableMapping.ColumnMappings.Add("DocumentDate", "DocumentDate") tableMapping.ColumnMappings.Add("shTrPosDoc_docID", "shTrPosDoc_docID") 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].[tblTR_Shipment_Document] WHERE (([shTrDoc_id] = @Original_shTr"& _ "Doc_id) AND ([shTrDoc_ShTrId] = @Original_shTrDoc_ShTrId) AND ((@IsNull_Document"& _ "Type = 1 AND [DocumentType] IS NULL) OR ([DocumentType] = @Original_DocumentType"& _ ")) AND ((@IsNull_DocumentNr = 1 AND [DocumentNr] IS NULL) OR ([DocumentNr] = @Or"& _ "iginal_DocumentNr)) AND ((@IsNull_DocumentDate = 1 AND [DocumentDate] IS NULL) O"& _ "R ([DocumentDate] = @Original_DocumentDate)) AND ((@IsNull_shTrPosDoc_docID = 1 "& _ "AND [shTrPosDoc_docID] IS NULL) OR ([shTrPosDoc_docID] = @Original_shTrPosDoc_do"& _ "cID)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrDoc_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrDoc_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrDoc_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrDoc_ShTrId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", 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].[tblTR_Shipment_Document] ([shTrDoc_ShTrId], [DocumentType], [D"& _ "ocumentNr], [DocumentDate], [shTrPosDoc_docID]) VALUES (@shTrDoc_ShTrId, @Docume"& _ "ntType, @DocumentNr, @DocumentDate, @shTrPosDoc_docID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT shTrDoc_id, shTr"& _ "Doc_ShTrId, DocumentType, DocumentNr, DocumentDate, shTrPosDoc_docID FROM tblTR_"& _ "Shipment_Document WHERE (shTrDoc_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrDoc_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrDoc_ShTrId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", 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].[tblTR_Shipment_Document] SET [shTrDoc_ShTrId] = @shTrDoc_ShTrId, [D"& _ "ocumentType] = @DocumentType, [DocumentNr] = @DocumentNr, [DocumentDate] = @Docu"& _ "mentDate, [shTrPosDoc_docID] = @shTrPosDoc_docID WHERE (([shTrDoc_id] = @Origina"& _ "l_shTrDoc_id) AND ([shTrDoc_ShTrId] = @Original_shTrDoc_ShTrId) AND ((@IsNull_Do"& _ "cumentType = 1 AND [DocumentType] IS NULL) OR ([DocumentType] = @Original_Docume"& _ "ntType)) AND ((@IsNull_DocumentNr = 1 AND [DocumentNr] IS NULL) OR ([DocumentNr]"& _ " = @Original_DocumentNr)) AND ((@IsNull_DocumentDate = 1 AND [DocumentDate] IS N"& _ "ULL) OR ([DocumentDate] = @Original_DocumentDate)) AND ((@IsNull_shTrPosDoc_docI"& _ "D = 1 AND [shTrPosDoc_docID] IS NULL) OR ([shTrPosDoc_docID] = @Original_shTrPos"& _ "Doc_docID)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT shTrDoc_id, shTrDoc_ShTrId, DocumentType, DocumentNr, Docu"& _ "mentDate, shTrPosDoc_docID FROM tblTR_Shipment_Document WHERE (shTrDoc_id = @shT"& _ "rDoc_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrDoc_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrDoc_ShTrId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrDoc_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrDoc_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrDoc_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrDoc_ShTrId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrDoc_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrDoc_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 shTrDoc_id, shTrDoc_ShTrId, DocumentType, DocumentNr, DocumentDate, shTrPo"& _ "sDoc_docID FROM dbo.tblTR_Shipment_Document" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTR_Shipment_DocumentDataTable) 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 VERAGDataSet.tblTR_Shipment_DocumentDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTR_Shipment_DocumentDataTable = New VERAGDataSet.tblTR_Shipment_DocumentDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTR_Shipment_DocumentDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTR_Shipment_Document") 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_shTrDoc_id As Integer, ByVal Original_shTrDoc_ShTrId As Integer, ByVal Original_DocumentType As String, ByVal Original_DocumentNr As String, ByVal Original_DocumentDate As Global.System.Nullable(Of Date), ByVal Original_shTrPosDoc_docID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_shTrDoc_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_shTrDoc_ShTrId,Integer) If (Original_DocumentType 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_DocumentType,String) End If If (Original_DocumentNr 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_DocumentNr,String) End If If (Original_DocumentDate.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_DocumentDate.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_shTrPosDoc_docID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_shTrPosDoc_docID.Value,Integer) 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 shTrDoc_ShTrId As Integer, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Global.System.Nullable(Of Date), ByVal shTrPosDoc_docID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(shTrDoc_ShTrId,Integer) If (DocumentType Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(DocumentType,String) End If If (DocumentNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(DocumentNr,String) End If If (DocumentDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(DocumentDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (shTrPosDoc_docID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(shTrPosDoc_docID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).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 shTrDoc_ShTrId As Integer, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Global.System.Nullable(Of Date), ByVal shTrPosDoc_docID As Global.System.Nullable(Of Integer), ByVal Original_shTrDoc_id As Integer, ByVal Original_shTrDoc_ShTrId As Integer, ByVal Original_DocumentType As String, ByVal Original_DocumentNr As String, ByVal Original_DocumentDate As Global.System.Nullable(Of Date), ByVal Original_shTrPosDoc_docID As Global.System.Nullable(Of Integer), ByVal shTrDoc_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(shTrDoc_ShTrId,Integer) If (DocumentType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DocumentType,String) End If If (DocumentNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DocumentNr,String) End If If (DocumentDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DocumentDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (shTrPosDoc_docID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(shTrPosDoc_docID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_shTrDoc_id,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_shTrDoc_ShTrId,Integer) If (Original_DocumentType 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_DocumentType,String) End If If (Original_DocumentNr 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_DocumentNr,String) End If If (Original_DocumentDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_DocumentDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_shTrPosDoc_docID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_shTrPosDoc_docID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(shTrDoc_id,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 shTrDoc_ShTrId As Integer, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Global.System.Nullable(Of Date), ByVal shTrPosDoc_docID As Global.System.Nullable(Of Integer), ByVal Original_shTrDoc_id As Integer, ByVal Original_shTrDoc_ShTrId As Integer, ByVal Original_DocumentType As String, ByVal Original_DocumentNr As String, ByVal Original_DocumentDate As Global.System.Nullable(Of Date), ByVal Original_shTrPosDoc_docID As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(shTrDoc_ShTrId, DocumentType, DocumentNr, DocumentDate, shTrPosDoc_docID, Original_shTrDoc_id, Original_shTrDoc_ShTrId, Original_DocumentType, Original_DocumentNr, Original_DocumentDate, Original_shTrPosDoc_docID, Original_shTrDoc_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTR_Shipment_PositionTableAdapter 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 = "tblTR_Shipment_Position" tableMapping.ColumnMappings.Add("shTrPos_id", "shTrPos_id") tableMapping.ColumnMappings.Add("shTrPos_ShTrId", "shTrPos_ShTrId") tableMapping.ColumnMappings.Add("PosNr", "PosNr") tableMapping.ColumnMappings.Add("GoodsTariff", "GoodsTariff") tableMapping.ColumnMappings.Add("GoodsTariffExt1", "GoodsTariffExt1") tableMapping.ColumnMappings.Add("GoodsTariffExt2", "GoodsTariffExt2") tableMapping.ColumnMappings.Add("GoodsTariffExt3", "GoodsTariffExt3") tableMapping.ColumnMappings.Add("GoodsTariffExt4", "GoodsTariffExt4") tableMapping.ColumnMappings.Add("GoodsTariffExt5", "GoodsTariffExt5") tableMapping.ColumnMappings.Add("GoodsTariffExt6", "GoodsTariffExt6") tableMapping.ColumnMappings.Add("GoodsTariffExt7", "GoodsTariffExt7") tableMapping.ColumnMappings.Add("GoodsTariffExt8", "GoodsTariffExt8") tableMapping.ColumnMappings.Add("GoodsTariffExt9", "GoodsTariffExt9") tableMapping.ColumnMappings.Add("GoodsTariffExt10", "GoodsTariffExt10") tableMapping.ColumnMappings.Add("GoodsTariffYCode1", "GoodsTariffYCode1") tableMapping.ColumnMappings.Add("GoodsTariffYCode2", "GoodsTariffYCode2") tableMapping.ColumnMappings.Add("GoodsTariffYCode3", "GoodsTariffYCode3") tableMapping.ColumnMappings.Add("GoodsTariffYCode4", "GoodsTariffYCode4") tableMapping.ColumnMappings.Add("GoodsTariffYCode5", "GoodsTariffYCode5") tableMapping.ColumnMappings.Add("GoodsTariffYCode6", "GoodsTariffYCode6") tableMapping.ColumnMappings.Add("GoodsTariffYCode7", "GoodsTariffYCode7") tableMapping.ColumnMappings.Add("GoodsTariffYCode8", "GoodsTariffYCode8") tableMapping.ColumnMappings.Add("GoodsTariffYCode9", "GoodsTariffYCode9") tableMapping.ColumnMappings.Add("GoodsTariffYCode10", "GoodsTariffYCode10") tableMapping.ColumnMappings.Add("GoodsDescription", "GoodsDescription") tableMapping.ColumnMappings.Add("OriginCountryCode", "OriginCountryCode") tableMapping.ColumnMappings.Add("GrossWeight", "GrossWeight") tableMapping.ColumnMappings.Add("NetWeight", "NetWeight") tableMapping.ColumnMappings.Add("NumberOfPackages", "NumberOfPackages") tableMapping.ColumnMappings.Add("KindOfPackages", "KindOfPackages") tableMapping.ColumnMappings.Add("ItemInvoiceAmount", "ItemInvoiceAmount") tableMapping.ColumnMappings.Add("ItemInvoiceCurrency", "ItemInvoiceCurrency") tableMapping.ColumnMappings.Add("ItemAmount", "ItemAmount") tableMapping.ColumnMappings.Add("ItemAmountUnitCode", "ItemAmountUnitCode") tableMapping.ColumnMappings.Add("Procedure", "Procedure") 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].[tblTR_Shipment_Position] WHERE (([shTrPos_id] = @Original_shTr"& _ "Pos_id) AND ([shTrPos_ShTrId] = @Original_shTrPos_ShTrId) AND ((@IsNull_PosNr = "& _ "1 AND [PosNr] IS NULL) OR ([PosNr] = @Original_PosNr)) AND ((@IsNull_GoodsTariff"& _ " = 1 AND [GoodsTariff] IS NULL) OR ([GoodsTariff] = @Original_GoodsTariff)) AND "& _ "((@IsNull_GoodsTariffExt1 = 1 AND [GoodsTariffExt1] IS NULL) OR ([GoodsTariffExt"& _ "1] = @Original_GoodsTariffExt1)) AND ((@IsNull_GoodsTariffExt2 = 1 AND [GoodsTar"& _ "iffExt2] IS NULL) OR ([GoodsTariffExt2] = @Original_GoodsTariffExt2)) AND ((@IsN"& _ "ull_GoodsTariffExt3 = 1 AND [GoodsTariffExt3] IS NULL) OR ([GoodsTariffExt3] = @"& _ "Original_GoodsTariffExt3)) AND ((@IsNull_GoodsTariffExt4 = 1 AND [GoodsTariffExt"& _ "4] IS NULL) OR ([GoodsTariffExt4] = @Original_GoodsTariffExt4)) AND ((@IsNull_Go"& _ "odsTariffExt5 = 1 AND [GoodsTariffExt5] IS NULL) OR ([GoodsTariffExt5] = @Origin"& _ "al_GoodsTariffExt5)) AND ((@IsNull_GoodsTariffExt6 = 1 AND [GoodsTariffExt6] IS "& _ "NULL) OR ([GoodsTariffExt6] = @Original_GoodsTariffExt6)) AND ((@IsNull_GoodsTar"& _ "iffExt7 = 1 AND [GoodsTariffExt7] IS NULL) OR ([GoodsTariffExt7] = @Original_Goo"& _ "dsTariffExt7)) AND ((@IsNull_GoodsTariffExt8 = 1 AND [GoodsTariffExt8] IS NULL) "& _ "OR ([GoodsTariffExt8] = @Original_GoodsTariffExt8)) AND ((@IsNull_GoodsTariffExt"& _ "9 = 1 AND [GoodsTariffExt9] IS NULL) OR ([GoodsTariffExt9] = @Original_GoodsTari"& _ "ffExt9)) AND ((@IsNull_GoodsTariffExt10 = 1 AND [GoodsTariffExt10] IS NULL) OR ("& _ "[GoodsTariffExt10] = @Original_GoodsTariffExt10)) AND ((@IsNull_GoodsTariffYCode"& _ "1 = 1 AND [GoodsTariffYCode1] IS NULL) OR ([GoodsTariffYCode1] = @Original_Goods"& _ "TariffYCode1)) AND ((@IsNull_GoodsTariffYCode2 = 1 AND [GoodsTariffYCode2] IS NU"& _ "LL) OR ([GoodsTariffYCode2] = @Original_GoodsTariffYCode2)) AND ((@IsNull_GoodsT"& _ "ariffYCode3 = 1 AND [GoodsTariffYCode3] IS NULL) OR ([GoodsTariffYCode3] = @Orig"& _ "inal_GoodsTariffYCode3)) AND ((@IsNull_GoodsTariffYCode4 = 1 AND [GoodsTariffYCo"& _ "de4] IS NULL) OR ([GoodsTariffYCode4] = @Original_GoodsTariffYCode4)) AND ((@IsN"& _ "ull_GoodsTariffYCode5 = 1 AND [GoodsTariffYCode5] IS NULL) OR ([GoodsTariffYCode"& _ "5] = @Original_GoodsTariffYCode5)) AND ((@IsNull_GoodsTariffYCode6 = 1 AND [Good"& _ "sTariffYCode6] IS NULL) OR ([GoodsTariffYCode6] = @Original_GoodsTariffYCode6)) "& _ "AND ((@IsNull_GoodsTariffYCode7 = 1 AND [GoodsTariffYCode7] IS NULL) OR ([GoodsT"& _ "ariffYCode7] = @Original_GoodsTariffYCode7)) AND ((@IsNull_GoodsTariffYCode8 = 1"& _ " AND [GoodsTariffYCode8] IS NULL) OR ([GoodsTariffYCode8] = @Original_GoodsTarif"& _ "fYCode8)) AND ((@IsNull_GoodsTariffYCode9 = 1 AND [GoodsTariffYCode9] IS NULL) O"& _ "R ([GoodsTariffYCode9] = @Original_GoodsTariffYCode9)) AND ((@IsNull_GoodsTariff"& _ "YCode10 = 1 AND [GoodsTariffYCode10] IS NULL) OR ([GoodsTariffYCode10] = @Origin"& _ "al_GoodsTariffYCode10)) AND ((@IsNull_GoodsDescription = 1 AND [GoodsDescription"& _ "] IS NULL) OR ([GoodsDescription] = @Original_GoodsDescription)) AND ((@IsNull_O"& _ "riginCountryCode = 1 AND [OriginCountryCode] IS NULL) OR ([OriginCountryCode] = "& _ "@Original_OriginCountryCode)) AND ((@IsNull_GrossWeight = 1 AND [GrossWeight] IS"& _ " NULL) OR ([GrossWeight] = @Original_GrossWeight)) AND ((@IsNull_NetWeight = 1 A"& _ "ND [NetWeight] IS NULL) OR ([NetWeight] = @Original_NetWeight)) AND ((@IsNull_Nu"& _ "mberOfPackages = 1 AND [NumberOfPackages] IS NULL) OR ([NumberOfPackages] = @Ori"& _ "ginal_NumberOfPackages)) AND ((@IsNull_KindOfPackages = 1 AND [KindOfPackages] I"& _ "S NULL) OR ([KindOfPackages] = @Original_KindOfPackages)) AND ((@IsNull_ItemInvo"& _ "iceAmount = 1 AND [ItemInvoiceAmount] IS NULL) OR ([ItemInvoiceAmount] = @Origin"& _ "al_ItemInvoiceAmount)) AND ((@IsNull_ItemInvoiceCurrency = 1 AND [ItemInvoiceCur"& _ "rency] IS NULL) OR ([ItemInvoiceCurrency] = @Original_ItemInvoiceCurrency)) AND "& _ "((@IsNull_ItemAmount = 1 AND [ItemAmount] IS NULL) OR ([ItemAmount] = @Original_"& _ "ItemAmount)) AND ((@IsNull_ItemAmountUnitCode = 1 AND [ItemAmountUnitCode] IS NU"& _ "LL) OR ([ItemAmountUnitCode] = @Original_ItemAmountUnitCode)) AND ((@IsNull_Proc"& _ "edure = 1 AND [Procedure] IS NULL) OR ([Procedure] = @Original_Procedure)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPos_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPos_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPos_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPos_ShTrId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PosNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PosNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PosNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PosNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariff", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariff", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariff", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsDescription", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsDescription", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsDescription", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OriginCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OriginCountryCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OriginCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OriginCountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GrossWeight", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrossWeight", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrossWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "GrossWeight", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NetWeight", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NetWeight", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NetWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "NetWeight", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NumberOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumberOfPackages", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NumberOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumberOfPackages", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_KindOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfPackages", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KindOfPackages", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfPackages", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ItemInvoiceAmount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemInvoiceAmount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ItemInvoiceAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ItemInvoiceAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ItemInvoiceCurrency", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemInvoiceCurrency", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ItemInvoiceCurrency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemInvoiceCurrency", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ItemAmount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemAmount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ItemAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ItemAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ItemAmountUnitCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemAmountUnitCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ItemAmountUnitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemAmountUnitCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Procedure", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Procedure", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Procedure", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Procedure", 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].[tblTR_Shipment_Position] ([shTrPos_ShTrId], [PosNr], [GoodsTar"& _ "iff], [GoodsTariffExt1], [GoodsTariffExt2], [GoodsTariffExt3], [GoodsTariffExt4]"& _ ", [GoodsTariffExt5], [GoodsTariffExt6], [GoodsTariffExt7], [GoodsTariffExt8], [G"& _ "oodsTariffExt9], [GoodsTariffExt10], [GoodsTariffYCode1], [GoodsTariffYCode2], ["& _ "GoodsTariffYCode3], [GoodsTariffYCode4], [GoodsTariffYCode5], [GoodsTariffYCode6"& _ "], [GoodsTariffYCode7], [GoodsTariffYCode8], [GoodsTariffYCode9], [GoodsTariffYC"& _ "ode10], [GoodsDescription], [OriginCountryCode], [GrossWeight], [NetWeight], [Nu"& _ "mberOfPackages], [KindOfPackages], [ItemInvoiceAmount], [ItemInvoiceCurrency], ["& _ "ItemAmount], [ItemAmountUnitCode], [Procedure]) VALUES (@shTrPos_ShTrId, @PosNr,"& _ " @GoodsTariff, @GoodsTariffExt1, @GoodsTariffExt2, @GoodsTariffExt3, @GoodsTarif"& _ "fExt4, @GoodsTariffExt5, @GoodsTariffExt6, @GoodsTariffExt7, @GoodsTariffExt8, @"& _ "GoodsTariffExt9, @GoodsTariffExt10, @GoodsTariffYCode1, @GoodsTariffYCode2, @Goo"& _ "dsTariffYCode3, @GoodsTariffYCode4, @GoodsTariffYCode5, @GoodsTariffYCode6, @Goo"& _ "dsTariffYCode7, @GoodsTariffYCode8, @GoodsTariffYCode9, @GoodsTariffYCode10, @Go"& _ "odsDescription, @OriginCountryCode, @GrossWeight, @NetWeight, @NumberOfPackages,"& _ " @KindOfPackages, @ItemInvoiceAmount, @ItemInvoiceCurrency, @ItemAmount, @ItemAm"& _ "ountUnitCode, @Procedure);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT shTrPos_id, shTrPos_ShTrId, PosNr, GoodsTarif"& _ "f, GoodsTariffExt1, GoodsTariffExt2, GoodsTariffExt3, GoodsTariffExt4, GoodsTari"& _ "ffExt5, GoodsTariffExt6, GoodsTariffExt7, GoodsTariffExt8, GoodsTariffExt9, Good"& _ "sTariffExt10, GoodsTariffYCode1, GoodsTariffYCode2, GoodsTariffYCode3, GoodsTari"& _ "ffYCode4, GoodsTariffYCode5, GoodsTariffYCode6, GoodsTariffYCode7, GoodsTariffYC"& _ "ode8, GoodsTariffYCode9, GoodsTariffYCode10, GoodsDescription, OriginCountryCode"& _ ", GrossWeight, NetWeight, NumberOfPackages, KindOfPackages, ItemInvoiceAmount, I"& _ "temInvoiceCurrency, ItemAmount, ItemAmountUnitCode, [Procedure] FROM tblTR_Shipm"& _ "ent_Position WHERE (shTrPos_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPos_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPos_ShTrId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PosNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PosNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OriginCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OriginCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrossWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "GrossWeight", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NetWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "NetWeight", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NumberOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumberOfPackages", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KindOfPackages", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfPackages", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemInvoiceAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ItemInvoiceAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemInvoiceCurrency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemInvoiceCurrency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ItemAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemAmountUnitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemAmountUnitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Procedure", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Procedure", 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].[tblTR_Shipment_Position] SET [shTrPos_ShTrId] = @shTrPos_ShTrId, [P"& _ "osNr] = @PosNr, [GoodsTariff] = @GoodsTariff, [GoodsTariffExt1] = @GoodsTariffEx"& _ "t1, [GoodsTariffExt2] = @GoodsTariffExt2, [GoodsTariffExt3] = @GoodsTariffExt3, "& _ "[GoodsTariffExt4] = @GoodsTariffExt4, [GoodsTariffExt5] = @GoodsTariffExt5, [Goo"& _ "dsTariffExt6] = @GoodsTariffExt6, [GoodsTariffExt7] = @GoodsTariffExt7, [GoodsTa"& _ "riffExt8] = @GoodsTariffExt8, [GoodsTariffExt9] = @GoodsTariffExt9, [GoodsTariff"& _ "Ext10] = @GoodsTariffExt10, [GoodsTariffYCode1] = @GoodsTariffYCode1, [GoodsTari"& _ "ffYCode2] = @GoodsTariffYCode2, [GoodsTariffYCode3] = @GoodsTariffYCode3, [Goods"& _ "TariffYCode4] = @GoodsTariffYCode4, [GoodsTariffYCode5] = @GoodsTariffYCode5, [G"& _ "oodsTariffYCode6] = @GoodsTariffYCode6, [GoodsTariffYCode7] = @GoodsTariffYCode7"& _ ", [GoodsTariffYCode8] = @GoodsTariffYCode8, [GoodsTariffYCode9] = @GoodsTariffYC"& _ "ode9, [GoodsTariffYCode10] = @GoodsTariffYCode10, [GoodsDescription] = @GoodsDes"& _ "cription, [OriginCountryCode] = @OriginCountryCode, [GrossWeight] = @GrossWeight"& _ ", [NetWeight] = @NetWeight, [NumberOfPackages] = @NumberOfPackages, [KindOfPacka"& _ "ges] = @KindOfPackages, [ItemInvoiceAmount] = @ItemInvoiceAmount, [ItemInvoiceCu"& _ "rrency] = @ItemInvoiceCurrency, [ItemAmount] = @ItemAmount, [ItemAmountUnitCode]"& _ " = @ItemAmountUnitCode, [Procedure] = @Procedure WHERE (([shTrPos_id] = @Origina"& _ "l_shTrPos_id) AND ([shTrPos_ShTrId] = @Original_shTrPos_ShTrId) AND ((@IsNull_Po"& _ "sNr = 1 AND [PosNr] IS NULL) OR ([PosNr] = @Original_PosNr)) AND ((@IsNull_Goods"& _ "Tariff = 1 AND [GoodsTariff] IS NULL) OR ([GoodsTariff] = @Original_GoodsTariff)"& _ ") AND ((@IsNull_GoodsTariffExt1 = 1 AND [GoodsTariffExt1] IS NULL) OR ([GoodsTar"& _ "iffExt1] = @Original_GoodsTariffExt1)) AND ((@IsNull_GoodsTariffExt2 = 1 AND [Go"& _ "odsTariffExt2] IS NULL) OR ([GoodsTariffExt2] = @Original_GoodsTariffExt2)) AND "& _ "((@IsNull_GoodsTariffExt3 = 1 AND [GoodsTariffExt3] IS NULL) OR ([GoodsTariffExt"& _ "3] = @Original_GoodsTariffExt3)) AND ((@IsNull_GoodsTariffExt4 = 1 AND [GoodsTar"& _ "iffExt4] IS NULL) OR ([GoodsTariffExt4] = @Original_GoodsTariffExt4)) AND ((@IsN"& _ "ull_GoodsTariffExt5 = 1 AND [GoodsTariffExt5] IS NULL) OR ([GoodsTariffExt5] = @"& _ "Original_GoodsTariffExt5)) AND ((@IsNull_GoodsTariffExt6 = 1 AND [GoodsTariffExt"& _ "6] IS NULL) OR ([GoodsTariffExt6] = @Original_GoodsTariffExt6)) AND ((@IsNull_Go"& _ "odsTariffExt7 = 1 AND [GoodsTariffExt7] IS NULL) OR ([GoodsTariffExt7] = @Origin"& _ "al_GoodsTariffExt7)) AND ((@IsNull_GoodsTariffExt8 = 1 AND [GoodsTariffExt8] IS "& _ "NULL) OR ([GoodsTariffExt8] = @Original_GoodsTariffExt8)) AND ((@IsNull_GoodsTar"& _ "iffExt9 = 1 AND [GoodsTariffExt9] IS NULL) OR ([GoodsTariffExt9] = @Original_Goo"& _ "dsTariffExt9)) AND ((@IsNull_GoodsTariffExt10 = 1 AND [GoodsTariffExt10] IS NULL"& _ ") OR ([GoodsTariffExt10] = @Original_GoodsTariffExt10)) AND ((@IsNull_GoodsTarif"& _ "fYCode1 = 1 AND [GoodsTariffYCode1] IS NULL) OR ([GoodsTariffYCode1] = @Original"& _ "_GoodsTariffYCode1)) AND ((@IsNull_GoodsTariffYCode2 = 1 AND [GoodsTariffYCode2]"& _ " IS NULL) OR ([GoodsTariffYCode2] = @Original_GoodsTariffYCode2)) AND ((@IsNull_"& _ "GoodsTariffYCode3 = 1 AND [GoodsTariffYCode3] IS NULL) OR ([GoodsTariffYCode3] ="& _ " @Original_GoodsTariffYCode3)) AND ((@IsNull_GoodsTariffYCode4 = 1 AND [GoodsTar"& _ "iffYCode4] IS NULL) OR ([GoodsTariffYCode4] = @Original_GoodsTariffYCode4)) AND "& _ "((@IsNull_GoodsTariffYCode5 = 1 AND [GoodsTariffYCode5] IS NULL) OR ([GoodsTarif"& _ "fYCode5] = @Original_GoodsTariffYCode5)) AND ((@IsNull_GoodsTariffYCode6 = 1 AND"& _ " [GoodsTariffYCode6] IS NULL) OR ([GoodsTariffYCode6] = @Original_GoodsTariffYCo"& _ "de6)) AND ((@IsNull_GoodsTariffYCode7 = 1 AND [GoodsTariffYCode7] IS NULL) OR (["& _ "GoodsTariffYCode7] = @Original_GoodsTariffYCode7)) AND ((@IsNull_GoodsTariffYCod"& _ "e8 = 1 AND [GoodsTariffYCode8] IS NULL) OR ([GoodsTariffYCode8] = @Original_Good"& _ "sTariffYCode8)) AND ((@IsNull_GoodsTariffYCode9 = 1 AND [GoodsTariffYCode9] IS N"& _ "ULL) OR ([GoodsTariffYCode9] = @Original_GoodsTariffYCode9)) AND ((@IsNull_Goods"& _ "TariffYCode10 = 1 AND [GoodsTariffYCode10] IS NULL) OR ([GoodsTariffYCode10] = @"& _ "Original_GoodsTariffYCode10)) AND ((@IsNull_GoodsDescription = 1 AND [GoodsDescr"& _ "iption] IS NULL) OR ([GoodsDescription] = @Original_GoodsDescription)) AND ((@Is"& _ "Null_OriginCountryCode = 1 AND [OriginCountryCode] IS NULL) OR ([OriginCountryCo"& _ "de] = @Original_OriginCountryCode)) AND ((@IsNull_GrossWeight = 1 AND [GrossWeig"& _ "ht] IS NULL) OR ([GrossWeight] = @Original_GrossWeight)) AND ((@IsNull_NetWeight"& _ " = 1 AND [NetWeight] IS NULL) OR ([NetWeight] = @Original_NetWeight)) AND ((@IsN"& _ "ull_NumberOfPackages = 1 AND [NumberOfPackages] IS NULL) OR ([NumberOfPackages] "& _ "= @Original_NumberOfPackages)) AND ((@IsNull_KindOfPackages = 1 AND [KindOfPacka"& _ "ges] IS NULL) OR ([KindOfPackages] = @Original_KindOfPackages)) AND ((@IsNull_It"& _ "emInvoiceAmount = 1 AND [ItemInvoiceAmount] IS NULL) OR ([ItemInvoiceAmount] = @"& _ "Original_ItemInvoiceAmount)) AND ((@IsNull_ItemInvoiceCurrency = 1 AND [ItemInvo"& _ "iceCurrency] IS NULL) OR ([ItemInvoiceCurrency] = @Original_ItemInvoiceCurrency)"& _ ") AND ((@IsNull_ItemAmount = 1 AND [ItemAmount] IS NULL) OR ([ItemAmount] = @Ori"& _ "ginal_ItemAmount)) AND ((@IsNull_ItemAmountUnitCode = 1 AND [ItemAmountUnitCode]"& _ " IS NULL) OR ([ItemAmountUnitCode] = @Original_ItemAmountUnitCode)) AND ((@IsNul"& _ "l_Procedure = 1 AND [Procedure] IS NULL) OR ([Procedure] = @Original_Procedure))"& _ ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT shTrPos_id, shTrPos_ShTrId, PosNr, GoodsTariff, GoodsTariffExt1, Good"& _ "sTariffExt2, GoodsTariffExt3, GoodsTariffExt4, GoodsTariffExt5, GoodsTariffExt6,"& _ " GoodsTariffExt7, GoodsTariffExt8, GoodsTariffExt9, GoodsTariffExt10, GoodsTarif"& _ "fYCode1, GoodsTariffYCode2, GoodsTariffYCode3, GoodsTariffYCode4, GoodsTariffYCo"& _ "de5, GoodsTariffYCode6, GoodsTariffYCode7, GoodsTariffYCode8, GoodsTariffYCode9,"& _ " GoodsTariffYCode10, GoodsDescription, OriginCountryCode, GrossWeight, NetWeight"& _ ", NumberOfPackages, KindOfPackages, ItemInvoiceAmount, ItemInvoiceCurrency, Item"& _ "Amount, ItemAmountUnitCode, [Procedure] FROM tblTR_Shipment_Position WHERE (shTr"& _ "Pos_id = @shTrPos_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPos_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPos_ShTrId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PosNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PosNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffExt10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsTariffYCode10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GoodsDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OriginCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OriginCountryCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrossWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "GrossWeight", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NetWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "NetWeight", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NumberOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumberOfPackages", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KindOfPackages", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfPackages", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemInvoiceAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ItemInvoiceAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemInvoiceCurrency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemInvoiceCurrency", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ItemAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemAmountUnitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemAmountUnitCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Procedure", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Procedure", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPos_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPos_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPos_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPos_ShTrId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PosNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PosNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PosNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PosNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariff", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariff", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariff", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffExt10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffExt10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffExt10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsTariffYCode10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsTariffYCode10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsTariffYCode10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GoodsDescription", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsDescription", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GoodsDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GoodsDescription", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OriginCountryCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OriginCountryCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OriginCountryCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OriginCountryCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GrossWeight", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrossWeight", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrossWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "GrossWeight", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NetWeight", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NetWeight", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NetWeight", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "NetWeight", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NumberOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumberOfPackages", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NumberOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NumberOfPackages", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_KindOfPackages", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfPackages", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KindOfPackages", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KindOfPackages", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ItemInvoiceAmount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemInvoiceAmount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ItemInvoiceAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ItemInvoiceAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ItemInvoiceCurrency", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemInvoiceCurrency", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ItemInvoiceCurrency", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemInvoiceCurrency", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ItemAmount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemAmount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ItemAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 17, 2, "ItemAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ItemAmountUnitCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemAmountUnitCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ItemAmountUnitCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemAmountUnitCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Procedure", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Procedure", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Procedure", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Procedure", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPos_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPos_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 shTrPos_id, shTrPos_ShTrId, PosNr, GoodsTariff, GoodsTariffExt1, GoodsTari"& _ "ffExt2, GoodsTariffExt3, GoodsTariffExt4, GoodsTariffExt5, GoodsTariffExt6, Good"& _ "sTariffExt7, GoodsTariffExt8, GoodsTariffExt9, GoodsTariffExt10, GoodsTariffYCod"& _ "e1, GoodsTariffYCode2, GoodsTariffYCode3, GoodsTariffYCode4, GoodsTariffYCode5, "& _ "GoodsTariffYCode6, GoodsTariffYCode7, GoodsTariffYCode8, GoodsTariffYCode9, Good"& _ "sTariffYCode10, GoodsDescription, OriginCountryCode, GrossWeight, NetWeight, Num"& _ "berOfPackages, KindOfPackages, ItemInvoiceAmount, ItemInvoiceCurrency, ItemAmoun"& _ "t, ItemAmountUnitCode, [Procedure] FROM dbo.tblTR_Shipment_Position" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTR_Shipment_PositionDataTable) 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 VERAGDataSet.tblTR_Shipment_PositionDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTR_Shipment_PositionDataTable = New VERAGDataSet.tblTR_Shipment_PositionDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTR_Shipment_PositionDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTR_Shipment_Position") 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_shTrPos_id As Integer, _ ByVal Original_shTrPos_ShTrId As Integer, _ ByVal Original_PosNr As Global.System.Nullable(Of Integer), _ ByVal Original_GoodsTariff As String, _ ByVal Original_GoodsTariffExt1 As String, _ ByVal Original_GoodsTariffExt2 As String, _ ByVal Original_GoodsTariffExt3 As String, _ ByVal Original_GoodsTariffExt4 As String, _ ByVal Original_GoodsTariffExt5 As String, _ ByVal Original_GoodsTariffExt6 As String, _ ByVal Original_GoodsTariffExt7 As String, _ ByVal Original_GoodsTariffExt8 As String, _ ByVal Original_GoodsTariffExt9 As String, _ ByVal Original_GoodsTariffExt10 As String, _ ByVal Original_GoodsTariffYCode1 As String, _ ByVal Original_GoodsTariffYCode2 As String, _ ByVal Original_GoodsTariffYCode3 As String, _ ByVal Original_GoodsTariffYCode4 As String, _ ByVal Original_GoodsTariffYCode5 As String, _ ByVal Original_GoodsTariffYCode6 As String, _ ByVal Original_GoodsTariffYCode7 As String, _ ByVal Original_GoodsTariffYCode8 As String, _ ByVal Original_GoodsTariffYCode9 As String, _ ByVal Original_GoodsTariffYCode10 As String, _ ByVal Original_GoodsDescription As String, _ ByVal Original_OriginCountryCode As String, _ ByVal Original_GrossWeight As Global.System.Nullable(Of Decimal), _ ByVal Original_NetWeight As Global.System.Nullable(Of Decimal), _ ByVal Original_NumberOfPackages As Global.System.Nullable(Of Integer), _ ByVal Original_KindOfPackages As String, _ ByVal Original_ItemInvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_ItemInvoiceCurrency As String, _ ByVal Original_ItemAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_ItemAmountUnitCode As String, _ ByVal Original_Procedure As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_shTrPos_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_shTrPos_ShTrId,Integer) If (Original_PosNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PosNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_GoodsTariff 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_GoodsTariff,String) End If If (Original_GoodsTariffExt1 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_GoodsTariffExt1,String) End If If (Original_GoodsTariffExt2 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_GoodsTariffExt2,String) End If If (Original_GoodsTariffExt3 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_GoodsTariffExt3,String) End If If (Original_GoodsTariffExt4 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_GoodsTariffExt4,String) End If If (Original_GoodsTariffExt5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_GoodsTariffExt5,String) End If If (Original_GoodsTariffExt6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_GoodsTariffExt6,String) End If If (Original_GoodsTariffExt7 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_GoodsTariffExt7,String) End If If (Original_GoodsTariffExt8 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_GoodsTariffExt8,String) End If If (Original_GoodsTariffExt9 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_GoodsTariffExt9,String) End If If (Original_GoodsTariffExt10 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_GoodsTariffExt10,String) End If If (Original_GoodsTariffYCode1 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_GoodsTariffYCode1,String) End If If (Original_GoodsTariffYCode2 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_GoodsTariffYCode2,String) End If If (Original_GoodsTariffYCode3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_GoodsTariffYCode3,String) End If If (Original_GoodsTariffYCode4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_GoodsTariffYCode4,String) End If If (Original_GoodsTariffYCode5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_GoodsTariffYCode5,String) End If If (Original_GoodsTariffYCode6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_GoodsTariffYCode6,String) End If If (Original_GoodsTariffYCode7 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_GoodsTariffYCode7,String) End If If (Original_GoodsTariffYCode8 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_GoodsTariffYCode8,String) End If If (Original_GoodsTariffYCode9 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_GoodsTariffYCode9,String) End If If (Original_GoodsTariffYCode10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_GoodsTariffYCode10,String) End If If (Original_GoodsDescription Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_GoodsDescription,String) End If If (Original_OriginCountryCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_OriginCountryCode,String) End If If (Original_GrossWeight.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_GrossWeight.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_NetWeight.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = CType(Original_NetWeight.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_NumberOfPackages.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = CType(Original_NumberOfPackages.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Original_KindOfPackages Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(57).Value = CType(Original_KindOfPackages,String) End If If (Original_ItemInvoiceAmount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = CType(Original_ItemInvoiceAmount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Original_ItemInvoiceCurrency Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(61).Value = CType(Original_ItemInvoiceCurrency,String) End If If (Original_ItemAmount.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = CType(Original_ItemAmount.Value,Decimal) Else Me.Adapter.DeleteCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Original_ItemAmountUnitCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(65).Value = CType(Original_ItemAmountUnitCode,String) End If If (Original_Procedure Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(67).Value = CType(Original_Procedure,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 shTrPos_ShTrId As Integer, _ ByVal PosNr As Global.System.Nullable(Of Integer), _ ByVal GoodsTariff As String, _ ByVal GoodsTariffExt1 As String, _ ByVal GoodsTariffExt2 As String, _ ByVal GoodsTariffExt3 As String, _ ByVal GoodsTariffExt4 As String, _ ByVal GoodsTariffExt5 As String, _ ByVal GoodsTariffExt6 As String, _ ByVal GoodsTariffExt7 As String, _ ByVal GoodsTariffExt8 As String, _ ByVal GoodsTariffExt9 As String, _ ByVal GoodsTariffExt10 As String, _ ByVal GoodsTariffYCode1 As String, _ ByVal GoodsTariffYCode2 As String, _ ByVal GoodsTariffYCode3 As String, _ ByVal GoodsTariffYCode4 As String, _ ByVal GoodsTariffYCode5 As String, _ ByVal GoodsTariffYCode6 As String, _ ByVal GoodsTariffYCode7 As String, _ ByVal GoodsTariffYCode8 As String, _ ByVal GoodsTariffYCode9 As String, _ ByVal GoodsTariffYCode10 As String, _ ByVal GoodsDescription As String, _ ByVal OriginCountryCode As String, _ ByVal GrossWeight As Global.System.Nullable(Of Decimal), _ ByVal NetWeight As Global.System.Nullable(Of Decimal), _ ByVal NumberOfPackages As Global.System.Nullable(Of Integer), _ ByVal KindOfPackages As String, _ ByVal ItemInvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal ItemInvoiceCurrency As String, _ ByVal ItemAmount As Global.System.Nullable(Of Decimal), _ ByVal ItemAmountUnitCode As String, _ ByVal Procedure As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(shTrPos_ShTrId,Integer) If (PosNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(PosNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (GoodsTariff Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(GoodsTariff,String) End If If (GoodsTariffExt1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(GoodsTariffExt1,String) End If If (GoodsTariffExt2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(GoodsTariffExt2,String) End If If (GoodsTariffExt3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(GoodsTariffExt3,String) End If If (GoodsTariffExt4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(GoodsTariffExt4,String) End If If (GoodsTariffExt5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(GoodsTariffExt5,String) End If If (GoodsTariffExt6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(GoodsTariffExt6,String) End If If (GoodsTariffExt7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(GoodsTariffExt7,String) End If If (GoodsTariffExt8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(GoodsTariffExt8,String) End If If (GoodsTariffExt9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(GoodsTariffExt9,String) End If If (GoodsTariffExt10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(GoodsTariffExt10,String) End If If (GoodsTariffYCode1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(GoodsTariffYCode1,String) End If If (GoodsTariffYCode2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(GoodsTariffYCode2,String) End If If (GoodsTariffYCode3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(GoodsTariffYCode3,String) End If If (GoodsTariffYCode4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(GoodsTariffYCode4,String) End If If (GoodsTariffYCode5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(GoodsTariffYCode5,String) End If If (GoodsTariffYCode6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(GoodsTariffYCode6,String) End If If (GoodsTariffYCode7 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(GoodsTariffYCode7,String) End If If (GoodsTariffYCode8 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(GoodsTariffYCode8,String) End If If (GoodsTariffYCode9 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(GoodsTariffYCode9,String) End If If (GoodsTariffYCode10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(GoodsTariffYCode10,String) End If If (GoodsDescription Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(GoodsDescription,String) End If If (OriginCountryCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(OriginCountryCode,String) End If If (GrossWeight.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(GrossWeight.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (NetWeight.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(NetWeight.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (NumberOfPackages.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(NumberOfPackages.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (KindOfPackages Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(KindOfPackages,String) End If If (ItemInvoiceAmount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(29).Value = CType(ItemInvoiceAmount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (ItemInvoiceCurrency Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(ItemInvoiceCurrency,String) End If If (ItemAmount.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(ItemAmount.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (ItemAmountUnitCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(ItemAmountUnitCode,String) End If If (Procedure Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(Procedure,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 shTrPos_ShTrId As Integer, _ ByVal PosNr As Global.System.Nullable(Of Integer), _ ByVal GoodsTariff As String, _ ByVal GoodsTariffExt1 As String, _ ByVal GoodsTariffExt2 As String, _ ByVal GoodsTariffExt3 As String, _ ByVal GoodsTariffExt4 As String, _ ByVal GoodsTariffExt5 As String, _ ByVal GoodsTariffExt6 As String, _ ByVal GoodsTariffExt7 As String, _ ByVal GoodsTariffExt8 As String, _ ByVal GoodsTariffExt9 As String, _ ByVal GoodsTariffExt10 As String, _ ByVal GoodsTariffYCode1 As String, _ ByVal GoodsTariffYCode2 As String, _ ByVal GoodsTariffYCode3 As String, _ ByVal GoodsTariffYCode4 As String, _ ByVal GoodsTariffYCode5 As String, _ ByVal GoodsTariffYCode6 As String, _ ByVal GoodsTariffYCode7 As String, _ ByVal GoodsTariffYCode8 As String, _ ByVal GoodsTariffYCode9 As String, _ ByVal GoodsTariffYCode10 As String, _ ByVal GoodsDescription As String, _ ByVal OriginCountryCode As String, _ ByVal GrossWeight As Global.System.Nullable(Of Decimal), _ ByVal NetWeight As Global.System.Nullable(Of Decimal), _ ByVal NumberOfPackages As Global.System.Nullable(Of Integer), _ ByVal KindOfPackages As String, _ ByVal ItemInvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal ItemInvoiceCurrency As String, _ ByVal ItemAmount As Global.System.Nullable(Of Decimal), _ ByVal ItemAmountUnitCode As String, _ ByVal Procedure As String, _ ByVal Original_shTrPos_id As Integer, _ ByVal Original_shTrPos_ShTrId As Integer, _ ByVal Original_PosNr As Global.System.Nullable(Of Integer), _ ByVal Original_GoodsTariff As String, _ ByVal Original_GoodsTariffExt1 As String, _ ByVal Original_GoodsTariffExt2 As String, _ ByVal Original_GoodsTariffExt3 As String, _ ByVal Original_GoodsTariffExt4 As String, _ ByVal Original_GoodsTariffExt5 As String, _ ByVal Original_GoodsTariffExt6 As String, _ ByVal Original_GoodsTariffExt7 As String, _ ByVal Original_GoodsTariffExt8 As String, _ ByVal Original_GoodsTariffExt9 As String, _ ByVal Original_GoodsTariffExt10 As String, _ ByVal Original_GoodsTariffYCode1 As String, _ ByVal Original_GoodsTariffYCode2 As String, _ ByVal Original_GoodsTariffYCode3 As String, _ ByVal Original_GoodsTariffYCode4 As String, _ ByVal Original_GoodsTariffYCode5 As String, _ ByVal Original_GoodsTariffYCode6 As String, _ ByVal Original_GoodsTariffYCode7 As String, _ ByVal Original_GoodsTariffYCode8 As String, _ ByVal Original_GoodsTariffYCode9 As String, _ ByVal Original_GoodsTariffYCode10 As String, _ ByVal Original_GoodsDescription As String, _ ByVal Original_OriginCountryCode As String, _ ByVal Original_GrossWeight As Global.System.Nullable(Of Decimal), _ ByVal Original_NetWeight As Global.System.Nullable(Of Decimal), _ ByVal Original_NumberOfPackages As Global.System.Nullable(Of Integer), _ ByVal Original_KindOfPackages As String, _ ByVal Original_ItemInvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_ItemInvoiceCurrency As String, _ ByVal Original_ItemAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_ItemAmountUnitCode As String, _ ByVal Original_Procedure As String, _ ByVal shTrPos_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(shTrPos_ShTrId,Integer) If (PosNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PosNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (GoodsTariff Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GoodsTariff,String) End If If (GoodsTariffExt1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GoodsTariffExt1,String) End If If (GoodsTariffExt2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GoodsTariffExt2,String) End If If (GoodsTariffExt3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GoodsTariffExt3,String) End If If (GoodsTariffExt4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GoodsTariffExt4,String) End If If (GoodsTariffExt5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GoodsTariffExt5,String) End If If (GoodsTariffExt6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GoodsTariffExt6,String) End If If (GoodsTariffExt7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GoodsTariffExt7,String) End If If (GoodsTariffExt8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GoodsTariffExt8,String) End If If (GoodsTariffExt9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GoodsTariffExt9,String) End If If (GoodsTariffExt10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(GoodsTariffExt10,String) End If If (GoodsTariffYCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GoodsTariffYCode1,String) End If If (GoodsTariffYCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GoodsTariffYCode2,String) End If If (GoodsTariffYCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GoodsTariffYCode3,String) End If If (GoodsTariffYCode4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GoodsTariffYCode4,String) End If If (GoodsTariffYCode5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GoodsTariffYCode5,String) End If If (GoodsTariffYCode6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GoodsTariffYCode6,String) End If If (GoodsTariffYCode7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(GoodsTariffYCode7,String) End If If (GoodsTariffYCode8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(GoodsTariffYCode8,String) End If If (GoodsTariffYCode9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(GoodsTariffYCode9,String) End If If (GoodsTariffYCode10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GoodsTariffYCode10,String) End If If (GoodsDescription Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GoodsDescription,String) End If If (OriginCountryCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(OriginCountryCode,String) End If If (GrossWeight.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GrossWeight.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (NetWeight.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(NetWeight.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (NumberOfPackages.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(NumberOfPackages.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (KindOfPackages Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(KindOfPackages,String) End If If (ItemInvoiceAmount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(ItemInvoiceAmount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (ItemInvoiceCurrency Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(ItemInvoiceCurrency,String) End If If (ItemAmount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(ItemAmount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (ItemAmountUnitCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(ItemAmountUnitCode,String) End If If (Procedure Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Procedure,String) End If Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_shTrPos_id,Integer) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_shTrPos_ShTrId,Integer) If (Original_PosNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_PosNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Original_GoodsTariff Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_GoodsTariff,String) End If If (Original_GoodsTariffExt1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_GoodsTariffExt1,String) End If If (Original_GoodsTariffExt2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_GoodsTariffExt2,String) End If If (Original_GoodsTariffExt3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_GoodsTariffExt3,String) End If If (Original_GoodsTariffExt4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_GoodsTariffExt4,String) End If If (Original_GoodsTariffExt5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_GoodsTariffExt5,String) End If If (Original_GoodsTariffExt6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_GoodsTariffExt6,String) End If If (Original_GoodsTariffExt7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_GoodsTariffExt7,String) End If If (Original_GoodsTariffExt8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_GoodsTariffExt8,String) End If If (Original_GoodsTariffExt9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_GoodsTariffExt9,String) End If If (Original_GoodsTariffExt10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_GoodsTariffExt10,String) End If If (Original_GoodsTariffYCode1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_GoodsTariffYCode1,String) End If If (Original_GoodsTariffYCode2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_GoodsTariffYCode2,String) End If If (Original_GoodsTariffYCode3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_GoodsTariffYCode3,String) End If If (Original_GoodsTariffYCode4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_GoodsTariffYCode4,String) End If If (Original_GoodsTariffYCode5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_GoodsTariffYCode5,String) End If If (Original_GoodsTariffYCode6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_GoodsTariffYCode6,String) End If If (Original_GoodsTariffYCode7 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_GoodsTariffYCode7,String) End If If (Original_GoodsTariffYCode8 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_GoodsTariffYCode8,String) End If If (Original_GoodsTariffYCode9 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_GoodsTariffYCode9,String) End If If (Original_GoodsTariffYCode10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_GoodsTariffYCode10,String) End If If (Original_GoodsDescription Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_GoodsDescription,String) End If If (Original_OriginCountryCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_OriginCountryCode,String) End If If (Original_GrossWeight.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_GrossWeight.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Original_NetWeight.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_NetWeight.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (Original_NumberOfPackages.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_NumberOfPackages.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value End If If (Original_KindOfPackages Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_KindOfPackages,String) End If If (Original_ItemInvoiceAmount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_ItemInvoiceAmount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value End If If (Original_ItemInvoiceCurrency Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_ItemInvoiceCurrency,String) End If If (Original_ItemAmount.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_ItemAmount.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value End If If (Original_ItemAmountUnitCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_ItemAmountUnitCode,String) End If If (Original_Procedure Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = CType(Original_Procedure,String) End If Me.Adapter.UpdateCommand.Parameters(102).Value = CType(shTrPos_id,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 shTrPos_ShTrId As Integer, _ ByVal PosNr As Global.System.Nullable(Of Integer), _ ByVal GoodsTariff As String, _ ByVal GoodsTariffExt1 As String, _ ByVal GoodsTariffExt2 As String, _ ByVal GoodsTariffExt3 As String, _ ByVal GoodsTariffExt4 As String, _ ByVal GoodsTariffExt5 As String, _ ByVal GoodsTariffExt6 As String, _ ByVal GoodsTariffExt7 As String, _ ByVal GoodsTariffExt8 As String, _ ByVal GoodsTariffExt9 As String, _ ByVal GoodsTariffExt10 As String, _ ByVal GoodsTariffYCode1 As String, _ ByVal GoodsTariffYCode2 As String, _ ByVal GoodsTariffYCode3 As String, _ ByVal GoodsTariffYCode4 As String, _ ByVal GoodsTariffYCode5 As String, _ ByVal GoodsTariffYCode6 As String, _ ByVal GoodsTariffYCode7 As String, _ ByVal GoodsTariffYCode8 As String, _ ByVal GoodsTariffYCode9 As String, _ ByVal GoodsTariffYCode10 As String, _ ByVal GoodsDescription As String, _ ByVal OriginCountryCode As String, _ ByVal GrossWeight As Global.System.Nullable(Of Decimal), _ ByVal NetWeight As Global.System.Nullable(Of Decimal), _ ByVal NumberOfPackages As Global.System.Nullable(Of Integer), _ ByVal KindOfPackages As String, _ ByVal ItemInvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal ItemInvoiceCurrency As String, _ ByVal ItemAmount As Global.System.Nullable(Of Decimal), _ ByVal ItemAmountUnitCode As String, _ ByVal Procedure As String, _ ByVal Original_shTrPos_id As Integer, _ ByVal Original_shTrPos_ShTrId As Integer, _ ByVal Original_PosNr As Global.System.Nullable(Of Integer), _ ByVal Original_GoodsTariff As String, _ ByVal Original_GoodsTariffExt1 As String, _ ByVal Original_GoodsTariffExt2 As String, _ ByVal Original_GoodsTariffExt3 As String, _ ByVal Original_GoodsTariffExt4 As String, _ ByVal Original_GoodsTariffExt5 As String, _ ByVal Original_GoodsTariffExt6 As String, _ ByVal Original_GoodsTariffExt7 As String, _ ByVal Original_GoodsTariffExt8 As String, _ ByVal Original_GoodsTariffExt9 As String, _ ByVal Original_GoodsTariffExt10 As String, _ ByVal Original_GoodsTariffYCode1 As String, _ ByVal Original_GoodsTariffYCode2 As String, _ ByVal Original_GoodsTariffYCode3 As String, _ ByVal Original_GoodsTariffYCode4 As String, _ ByVal Original_GoodsTariffYCode5 As String, _ ByVal Original_GoodsTariffYCode6 As String, _ ByVal Original_GoodsTariffYCode7 As String, _ ByVal Original_GoodsTariffYCode8 As String, _ ByVal Original_GoodsTariffYCode9 As String, _ ByVal Original_GoodsTariffYCode10 As String, _ ByVal Original_GoodsDescription As String, _ ByVal Original_OriginCountryCode As String, _ ByVal Original_GrossWeight As Global.System.Nullable(Of Decimal), _ ByVal Original_NetWeight As Global.System.Nullable(Of Decimal), _ ByVal Original_NumberOfPackages As Global.System.Nullable(Of Integer), _ ByVal Original_KindOfPackages As String, _ ByVal Original_ItemInvoiceAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_ItemInvoiceCurrency As String, _ ByVal Original_ItemAmount As Global.System.Nullable(Of Decimal), _ ByVal Original_ItemAmountUnitCode As String, _ ByVal Original_Procedure As String) As Integer Return Me.Update(shTrPos_ShTrId, PosNr, GoodsTariff, GoodsTariffExt1, GoodsTariffExt2, GoodsTariffExt3, GoodsTariffExt4, GoodsTariffExt5, GoodsTariffExt6, GoodsTariffExt7, GoodsTariffExt8, GoodsTariffExt9, GoodsTariffExt10, GoodsTariffYCode1, GoodsTariffYCode2, GoodsTariffYCode3, GoodsTariffYCode4, GoodsTariffYCode5, GoodsTariffYCode6, GoodsTariffYCode7, GoodsTariffYCode8, GoodsTariffYCode9, GoodsTariffYCode10, GoodsDescription, OriginCountryCode, GrossWeight, NetWeight, NumberOfPackages, KindOfPackages, ItemInvoiceAmount, ItemInvoiceCurrency, ItemAmount, ItemAmountUnitCode, Procedure, Original_shTrPos_id, Original_shTrPos_ShTrId, Original_PosNr, Original_GoodsTariff, Original_GoodsTariffExt1, Original_GoodsTariffExt2, Original_GoodsTariffExt3, Original_GoodsTariffExt4, Original_GoodsTariffExt5, Original_GoodsTariffExt6, Original_GoodsTariffExt7, Original_GoodsTariffExt8, Original_GoodsTariffExt9, Original_GoodsTariffExt10, Original_GoodsTariffYCode1, Original_GoodsTariffYCode2, Original_GoodsTariffYCode3, Original_GoodsTariffYCode4, Original_GoodsTariffYCode5, Original_GoodsTariffYCode6, Original_GoodsTariffYCode7, Original_GoodsTariffYCode8, Original_GoodsTariffYCode9, Original_GoodsTariffYCode10, Original_GoodsDescription, Original_OriginCountryCode, Original_GrossWeight, Original_NetWeight, Original_NumberOfPackages, Original_KindOfPackages, Original_ItemInvoiceAmount, Original_ItemInvoiceCurrency, Original_ItemAmount, Original_ItemAmountUnitCode, Original_Procedure, Original_shTrPos_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTR_Shipment_Position_DocumentTableAdapter 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 = "tblTR_Shipment_Position_Document" tableMapping.ColumnMappings.Add("shTrPosDoc_id", "shTrPosDoc_id") tableMapping.ColumnMappings.Add("shTrPosDoc_ShTrId", "shTrPosDoc_ShTrId") tableMapping.ColumnMappings.Add("shTrPosDoc_ShTrPosId", "shTrPosDoc_ShTrPosId") tableMapping.ColumnMappings.Add("DocumentType", "DocumentType") tableMapping.ColumnMappings.Add("DocumentNr", "DocumentNr") tableMapping.ColumnMappings.Add("DocumentDate", "DocumentDate") tableMapping.ColumnMappings.Add("shTrPosDoc_docID", "shTrPosDoc_docID") 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].[tblTR_Shipment_Position_Document] WHERE (([shTrPosDoc_id] = @O"& _ "riginal_shTrPosDoc_id) AND ([shTrPosDoc_ShTrId] = @Original_shTrPosDoc_ShTrId) A"& _ "ND ([shTrPosDoc_ShTrPosId] = @Original_shTrPosDoc_ShTrPosId) AND ((@IsNull_Docum"& _ "entType = 1 AND [DocumentType] IS NULL) OR ([DocumentType] = @Original_DocumentT"& _ "ype)) AND ((@IsNull_DocumentNr = 1 AND [DocumentNr] IS NULL) OR ([DocumentNr] = "& _ "@Original_DocumentNr)) AND ((@IsNull_DocumentDate = 1 AND [DocumentDate] IS NULL"& _ ") OR ([DocumentDate] = @Original_DocumentDate)) AND ((@IsNull_shTrPosDoc_docID ="& _ " 1 AND [shTrPosDoc_docID] IS NULL) OR ([shTrPosDoc_docID] = @Original_shTrPosDoc"& _ "_docID)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPosDoc_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPosDoc_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_ShTrId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPosDoc_ShTrPosId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_ShTrPosId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", 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].[tblTR_Shipment_Position_Document] ([shTrPosDoc_ShTrId], [shTrP"& _ "osDoc_ShTrPosId], [DocumentType], [DocumentNr], [DocumentDate], [shTrPosDoc_docI"& _ "D]) VALUES (@shTrPosDoc_ShTrId, @shTrPosDoc_ShTrPosId, @DocumentType, @DocumentN"& _ "r, @DocumentDate, @shTrPosDoc_docID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT shTrPosDoc_id, shTrPosDoc_ShTrId, "& _ "shTrPosDoc_ShTrPosId, DocumentType, DocumentNr, DocumentDate, shTrPosDoc_docID F"& _ "ROM tblTR_Shipment_Position_Document WHERE (shTrPosDoc_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPosDoc_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_ShTrId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPosDoc_ShTrPosId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_ShTrPosId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", 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].[tblTR_Shipment_Position_Document] SET [shTrPosDoc_ShTrId] = @shTrPo"& _ "sDoc_ShTrId, [shTrPosDoc_ShTrPosId] = @shTrPosDoc_ShTrPosId, [DocumentType] = @D"& _ "ocumentType, [DocumentNr] = @DocumentNr, [DocumentDate] = @DocumentDate, [shTrPo"& _ "sDoc_docID] = @shTrPosDoc_docID WHERE (([shTrPosDoc_id] = @Original_shTrPosDoc_i"& _ "d) AND ([shTrPosDoc_ShTrId] = @Original_shTrPosDoc_ShTrId) AND ([shTrPosDoc_ShTr"& _ "PosId] = @Original_shTrPosDoc_ShTrPosId) AND ((@IsNull_DocumentType = 1 AND [Doc"& _ "umentType] IS NULL) OR ([DocumentType] = @Original_DocumentType)) AND ((@IsNull_"& _ "DocumentNr = 1 AND [DocumentNr] IS NULL) OR ([DocumentNr] = @Original_DocumentNr"& _ ")) AND ((@IsNull_DocumentDate = 1 AND [DocumentDate] IS NULL) OR ([DocumentDate]"& _ " = @Original_DocumentDate)) AND ((@IsNull_shTrPosDoc_docID = 1 AND [shTrPosDoc_d"& _ "ocID] IS NULL) OR ([shTrPosDoc_docID] = @Original_shTrPosDoc_docID)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT s"& _ "hTrPosDoc_id, shTrPosDoc_ShTrId, shTrPosDoc_ShTrPosId, DocumentType, DocumentNr,"& _ " DocumentDate, shTrPosDoc_docID FROM tblTR_Shipment_Position_Document WHERE (shT"& _ "rPosDoc_id = @shTrPosDoc_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPosDoc_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_ShTrId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPosDoc_ShTrPosId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_ShTrPosId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPosDoc_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPosDoc_ShTrId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_ShTrId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPosDoc_ShTrPosId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_ShTrPosId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentType", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DocumentDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocumentDate", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocumentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_shTrPosDoc_docID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_docID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@shTrPosDoc_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "shTrPosDoc_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 shTrPosDoc_id, shTrPosDoc_ShTrId, shTrPosDoc_ShTrPosId, DocumentType, Docu"& _ "mentNr, DocumentDate, shTrPosDoc_docID FROM dbo.tblTR_Shipment_Position_Document"& _ "" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTR_Shipment_Position_DocumentDataTable) 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 VERAGDataSet.tblTR_Shipment_Position_DocumentDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTR_Shipment_Position_DocumentDataTable = New VERAGDataSet.tblTR_Shipment_Position_DocumentDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTR_Shipment_Position_DocumentDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTR_Shipment_Position_Document") 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_shTrPosDoc_id As Integer, ByVal Original_shTrPosDoc_ShTrId As Integer, ByVal Original_shTrPosDoc_ShTrPosId As Integer, ByVal Original_DocumentType As String, ByVal Original_DocumentNr As String, ByVal Original_DocumentDate As Global.System.Nullable(Of Date), ByVal Original_shTrPosDoc_docID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_shTrPosDoc_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_shTrPosDoc_ShTrId,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_shTrPosDoc_ShTrPosId,Integer) If (Original_DocumentType 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_DocumentType,String) End If If (Original_DocumentNr 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_DocumentNr,String) End If If (Original_DocumentDate.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DocumentDate.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_shTrPosDoc_docID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_shTrPosDoc_docID.Value,Integer) 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 shTrPosDoc_ShTrId As Integer, ByVal shTrPosDoc_ShTrPosId As Integer, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Global.System.Nullable(Of Date), ByVal shTrPosDoc_docID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(shTrPosDoc_ShTrId,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(shTrPosDoc_ShTrPosId,Integer) If (DocumentType Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(DocumentType,String) End If If (DocumentNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(DocumentNr,String) End If If (DocumentDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(DocumentDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (shTrPosDoc_docID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(shTrPosDoc_docID.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 shTrPosDoc_ShTrId As Integer, ByVal shTrPosDoc_ShTrPosId As Integer, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Global.System.Nullable(Of Date), ByVal shTrPosDoc_docID As Global.System.Nullable(Of Integer), ByVal Original_shTrPosDoc_id As Integer, ByVal Original_shTrPosDoc_ShTrId As Integer, ByVal Original_shTrPosDoc_ShTrPosId As Integer, ByVal Original_DocumentType As String, ByVal Original_DocumentNr As String, ByVal Original_DocumentDate As Global.System.Nullable(Of Date), ByVal Original_shTrPosDoc_docID As Global.System.Nullable(Of Integer), ByVal shTrPosDoc_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(shTrPosDoc_ShTrId,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(shTrPosDoc_ShTrPosId,Integer) If (DocumentType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DocumentType,String) End If If (DocumentNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DocumentNr,String) End If If (DocumentDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DocumentDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (shTrPosDoc_docID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(shTrPosDoc_docID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_shTrPosDoc_id,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_shTrPosDoc_ShTrId,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_shTrPosDoc_ShTrPosId,Integer) If (Original_DocumentType 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_DocumentType,String) End If If (Original_DocumentNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_DocumentNr,String) End If If (Original_DocumentDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_DocumentDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_shTrPosDoc_docID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_shTrPosDoc_docID.Value,Integer) 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(shTrPosDoc_id,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 shTrPosDoc_ShTrId As Integer, ByVal shTrPosDoc_ShTrPosId As Integer, ByVal DocumentType As String, ByVal DocumentNr As String, ByVal DocumentDate As Global.System.Nullable(Of Date), ByVal shTrPosDoc_docID As Global.System.Nullable(Of Integer), ByVal Original_shTrPosDoc_id As Integer, ByVal Original_shTrPosDoc_ShTrId As Integer, ByVal Original_shTrPosDoc_ShTrPosId As Integer, ByVal Original_DocumentType As String, ByVal Original_DocumentNr As String, ByVal Original_DocumentDate As Global.System.Nullable(Of Date), ByVal Original_shTrPosDoc_docID As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(shTrPosDoc_ShTrId, shTrPosDoc_ShTrPosId, DocumentType, DocumentNr, DocumentDate, shTrPosDoc_docID, Original_shTrPosDoc_id, Original_shTrPosDoc_ShTrId, Original_shTrPosDoc_ShTrPosId, Original_DocumentType, Original_DocumentNr, Original_DocumentDate, Original_shTrPosDoc_docID, Original_shTrPosDoc_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTranslateTableAdapter 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 = "tblTranslate" tableMapping.ColumnMappings.Add("trs_id", "trs_id") tableMapping.ColumnMappings.Add("trs_progId", "trs_progId") tableMapping.ColumnMappings.Add("trs_progName", "trs_progName") tableMapping.ColumnMappings.Add("trs_object", "trs_object") tableMapping.ColumnMappings.Add("trs_control", "trs_control") tableMapping.ColumnMappings.Add("trs_subControl", "trs_subControl") tableMapping.ColumnMappings.Add("trs_sprache", "trs_sprache") tableMapping.ColumnMappings.Add("trs_text", "trs_text") tableMapping.ColumnMappings.Add("trs_textDE", "trs_textDE") tableMapping.ColumnMappings.Add("trs_active", "trs_active") tableMapping.ColumnMappings.Add("trs_FirmaID", "trs_FirmaID") tableMapping.ColumnMappings.Add("trs_Option", "trs_Option") 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].[tblTranslate] WHERE (([trs_id] = @Original_trs_id) AND ([trs_p"& _ "rogId] = @Original_trs_progId) AND ([trs_progName] = @Original_trs_progName) AND"& _ " ([trs_object] = @Original_trs_object) AND ([trs_control] = @Original_trs_contro"& _ "l) AND ((@IsNull_trs_subControl = 1 AND [trs_subControl] IS NULL) OR ([trs_subCo"& _ "ntrol] = @Original_trs_subControl)) AND ([trs_sprache] = @Original_trs_sprache) "& _ "AND ([trs_active] = @Original_trs_active) AND ((@IsNull_trs_FirmaID = 1 AND [trs"& _ "_FirmaID] IS NULL) OR ([trs_FirmaID] = @Original_trs_FirmaID)) AND ((@IsNull_trs"& _ "_Option = 1 AND [trs_Option] IS NULL) OR ([trs_Option] = @Original_trs_Option)))"& _ "" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_progId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_progId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_progName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_progName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_object", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_object", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_control", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_control", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trs_subControl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_subControl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_subControl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_subControl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_sprache", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_active", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_active", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trs_FirmaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_FirmaID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_FirmaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_FirmaID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trs_Option", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_Option", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_Option", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_Option", 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].[tblTranslate] ([trs_progId], [trs_progName], [trs_object], [tr"& _ "s_control], [trs_subControl], [trs_sprache], [trs_text], [trs_textDE], [trs_acti"& _ "ve], [trs_FirmaID], [trs_Option]) VALUES (@trs_progId, @trs_progName, @trs_objec"& _ "t, @trs_control, @trs_subControl, @trs_sprache, @trs_text, @trs_textDE, @trs_act"& _ "ive, @trs_FirmaID, @trs_Option);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT trs_id, trs_progId, trs_progName, trs_o"& _ "bject, trs_control, trs_subControl, trs_sprache, trs_text, trs_textDE, trs_activ"& _ "e, trs_FirmaID, trs_Option FROM tblTranslate WHERE (trs_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_progId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_progId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_progName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_progName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_object", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_object", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_control", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_control", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_subControl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_subControl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_sprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_textDE", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_textDE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_active", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_active", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_FirmaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_FirmaID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_Option", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_Option", 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].[tblTranslate] SET [trs_progId] = @trs_progId, [trs_progName] = @trs"& _ "_progName, [trs_object] = @trs_object, [trs_control] = @trs_control, [trs_subCon"& _ "trol] = @trs_subControl, [trs_sprache] = @trs_sprache, [trs_text] = @trs_text, ["& _ "trs_textDE] = @trs_textDE, [trs_active] = @trs_active, [trs_FirmaID] = @trs_Firm"& _ "aID, [trs_Option] = @trs_Option WHERE (([trs_id] = @Original_trs_id) AND ([trs_p"& _ "rogId] = @Original_trs_progId) AND ([trs_progName] = @Original_trs_progName) AND"& _ " ([trs_object] = @Original_trs_object) AND ([trs_control] = @Original_trs_contro"& _ "l) AND ((@IsNull_trs_subControl = 1 AND [trs_subControl] IS NULL) OR ([trs_subCo"& _ "ntrol] = @Original_trs_subControl)) AND ([trs_sprache] = @Original_trs_sprache) "& _ "AND ([trs_active] = @Original_trs_active) AND ((@IsNull_trs_FirmaID = 1 AND [trs"& _ "_FirmaID] IS NULL) OR ([trs_FirmaID] = @Original_trs_FirmaID)) AND ((@IsNull_trs"& _ "_Option = 1 AND [trs_Option] IS NULL) OR ([trs_Option] = @Original_trs_Option)))"& _ ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT trs_id, trs_progId, trs_progName, trs_object, trs_control, trs_subCont"& _ "rol, trs_sprache, trs_text, trs_textDE, trs_active, trs_FirmaID, trs_Option FROM"& _ " tblTranslate WHERE (trs_id = @trs_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_progId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_progId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_progName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_progName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_object", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_object", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_control", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_control", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_subControl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_subControl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_sprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_textDE", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_textDE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_active", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_active", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_FirmaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_FirmaID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_Option", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_Option", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_progId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_progId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_progName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_progName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_object", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_object", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_control", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_control", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trs_subControl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_subControl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_subControl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_subControl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_sprache", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_active", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_active", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trs_FirmaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_FirmaID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_FirmaID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_FirmaID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_trs_Option", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_Option", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_Option", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_Option", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 trs_id, trs_progId, trs_progName, trs_object, trs_control, trs_subControl,"& _ " trs_sprache, trs_text, trs_textDE, trs_active, trs_FirmaID, trs_Option FROM dbo"& _ ".tblTranslate" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTranslateDataTable) 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 VERAGDataSet.tblTranslateDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTranslateDataTable = New VERAGDataSet.tblTranslateDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTranslateDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTranslate") 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_trs_id As Integer, ByVal Original_trs_progId As Integer, ByVal Original_trs_progName As String, ByVal Original_trs_object As String, ByVal Original_trs_control As String, ByVal Original_trs_subControl As String, ByVal Original_trs_sprache As String, ByVal Original_trs_active As Boolean, ByVal Original_trs_FirmaID As Global.System.Nullable(Of Integer), ByVal Original_trs_Option As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_trs_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_trs_progId,Integer) If (Original_trs_progName Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trs_progName") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_trs_progName,String) End If If (Original_trs_object Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trs_object") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_trs_object,String) End If If (Original_trs_control Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trs_control") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_trs_control,String) End If If (Original_trs_subControl 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_trs_subControl,String) End If If (Original_trs_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trs_sprache") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_trs_sprache,String) End If Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_trs_active,Boolean) If (Original_trs_FirmaID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_trs_FirmaID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_trs_Option 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_trs_Option,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 trs_progId As Integer, ByVal trs_progName As String, ByVal trs_object As String, ByVal trs_control As String, ByVal trs_subControl As String, ByVal trs_sprache As String, ByVal trs_text As String, ByVal trs_textDE As String, ByVal trs_active As Boolean, ByVal trs_FirmaID As Global.System.Nullable(Of Integer), ByVal trs_Option As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(trs_progId,Integer) If (trs_progName Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_progName") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(trs_progName,String) End If If (trs_object Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_object") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(trs_object,String) End If If (trs_control Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_control") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(trs_control,String) End If If (trs_subControl Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(trs_subControl,String) End If If (trs_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_sprache") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(trs_sprache,String) End If If (trs_text Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_text") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(trs_text,String) End If If (trs_textDE Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_textDE") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(trs_textDE,String) End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(trs_active,Boolean) If (trs_FirmaID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(trs_FirmaID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (trs_Option Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(trs_Option,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 trs_progId As Integer, _ ByVal trs_progName As String, _ ByVal trs_object As String, _ ByVal trs_control As String, _ ByVal trs_subControl As String, _ ByVal trs_sprache As String, _ ByVal trs_text As String, _ ByVal trs_textDE As String, _ ByVal trs_active As Boolean, _ ByVal trs_FirmaID As Global.System.Nullable(Of Integer), _ ByVal trs_Option As String, _ ByVal Original_trs_id As Integer, _ ByVal Original_trs_progId As Integer, _ ByVal Original_trs_progName As String, _ ByVal Original_trs_object As String, _ ByVal Original_trs_control As String, _ ByVal Original_trs_subControl As String, _ ByVal Original_trs_sprache As String, _ ByVal Original_trs_active As Boolean, _ ByVal Original_trs_FirmaID As Global.System.Nullable(Of Integer), _ ByVal Original_trs_Option As String, _ ByVal trs_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(trs_progId,Integer) If (trs_progName Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_progName") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(trs_progName,String) End If If (trs_object Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_object") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(trs_object,String) End If If (trs_control Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_control") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(trs_control,String) End If If (trs_subControl Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(trs_subControl,String) End If If (trs_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_sprache") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(trs_sprache,String) End If If (trs_text Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_text") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(trs_text,String) End If If (trs_textDE Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_textDE") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(trs_textDE,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(trs_active,Boolean) If (trs_FirmaID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(trs_FirmaID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (trs_Option Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(trs_Option,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_trs_id,Integer) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_trs_progId,Integer) If (Original_trs_progName Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trs_progName") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_trs_progName,String) End If If (Original_trs_object Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trs_object") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_trs_object,String) End If If (Original_trs_control Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trs_control") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_trs_control,String) End If If (Original_trs_subControl Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_trs_subControl,String) End If If (Original_trs_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trs_sprache") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_trs_sprache,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_trs_active,Boolean) If (Original_trs_FirmaID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_trs_FirmaID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_trs_Option Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_trs_Option,String) End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(trs_id,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 trs_progId As Integer, _ ByVal trs_progName As String, _ ByVal trs_object As String, _ ByVal trs_control As String, _ ByVal trs_subControl As String, _ ByVal trs_sprache As String, _ ByVal trs_text As String, _ ByVal trs_textDE As String, _ ByVal trs_active As Boolean, _ ByVal trs_FirmaID As Global.System.Nullable(Of Integer), _ ByVal trs_Option As String, _ ByVal Original_trs_id As Integer, _ ByVal Original_trs_progId As Integer, _ ByVal Original_trs_progName As String, _ ByVal Original_trs_object As String, _ ByVal Original_trs_control As String, _ ByVal Original_trs_subControl As String, _ ByVal Original_trs_sprache As String, _ ByVal Original_trs_active As Boolean, _ ByVal Original_trs_FirmaID As Global.System.Nullable(Of Integer), _ ByVal Original_trs_Option As String) As Integer Return Me.Update(trs_progId, trs_progName, trs_object, trs_control, trs_subControl, trs_sprache, trs_text, trs_textDE, trs_active, trs_FirmaID, trs_Option, Original_trs_id, Original_trs_progId, Original_trs_progName, Original_trs_object, Original_trs_control, Original_trs_subControl, Original_trs_sprache, Original_trs_active, Original_trs_FirmaID, Original_trs_Option, Original_trs_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTranslateAutoTableAdapter 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 = "tblTranslateAuto" tableMapping.ColumnMappings.Add("trs_id", "trs_id") tableMapping.ColumnMappings.Add("trs_sprache", "trs_sprache") tableMapping.ColumnMappings.Add("trs_text", "trs_text") tableMapping.ColumnMappings.Add("trs_textDE", "trs_textDE") tableMapping.ColumnMappings.Add("trs_active", "trs_active") 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].[tblTranslateAuto] WHERE (([trs_id] = @Original_trs_id) AND ([t"& _ "rs_sprache] = @Original_trs_sprache) AND ([trs_active] = @Original_trs_active))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_sprache", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_active", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_active", 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].[tblTranslateAuto] ([trs_sprache], [trs_text], [trs_textDE], [t"& _ "rs_active]) VALUES (@trs_sprache, @trs_text, @trs_textDE, @trs_active);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ "trs_id, trs_sprache, trs_text, trs_textDE, trs_active FROM tblTranslateAuto WHER"& _ "E (trs_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_sprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_textDE", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_textDE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_active", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_active", 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].[tblTranslateAuto] SET [trs_sprache] = @trs_sprache, [trs_text] = @t"& _ "rs_text, [trs_textDE] = @trs_textDE, [trs_active] = @trs_active WHERE (([trs_id]"& _ " = @Original_trs_id) AND ([trs_sprache] = @Original_trs_sprache) AND ([trs_activ"& _ "e] = @Original_trs_active));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT trs_id, trs_sprache, trs_text, trs_textDE, "& _ "trs_active FROM tblTranslateAuto WHERE (trs_id = @trs_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_sprache", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_textDE", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_textDE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_active", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_active", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_sprache", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_sprache", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_trs_active", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_active", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@trs_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "trs_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 trs_id, trs_sprache, trs_text, trs_textDE, trs_active FROM dbo.tblTranslat"& _ "eAuto" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTranslateAutoDataTable) 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 VERAGDataSet.tblTranslateAutoDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTranslateAutoDataTable = New VERAGDataSet.tblTranslateAutoDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTranslateAutoDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTranslateAuto") 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_trs_id As Integer, ByVal Original_trs_sprache As String, ByVal Original_trs_active As Boolean) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_trs_id,Integer) If (Original_trs_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trs_sprache") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_trs_sprache,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_trs_active,Boolean) 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 trs_sprache As String, ByVal trs_text As String, ByVal trs_textDE As String, ByVal trs_active As Boolean) As Integer If (trs_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_sprache") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(trs_sprache,String) End If If (trs_text Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_text") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(trs_text,String) End If If (trs_textDE Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_textDE") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(trs_textDE,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(trs_active,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 trs_sprache As String, ByVal trs_text As String, ByVal trs_textDE As String, ByVal trs_active As Boolean, ByVal Original_trs_id As Integer, ByVal Original_trs_sprache As String, ByVal Original_trs_active As Boolean, ByVal trs_id As Integer) As Integer If (trs_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_sprache") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(trs_sprache,String) End If If (trs_text Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_text") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(trs_text,String) End If If (trs_textDE Is Nothing) Then Throw New Global.System.ArgumentNullException("trs_textDE") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(trs_textDE,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(trs_active,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_trs_id,Integer) If (Original_trs_sprache Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_trs_sprache") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_trs_sprache,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_trs_active,Boolean) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(trs_id,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 trs_sprache As String, ByVal trs_text As String, ByVal trs_textDE As String, ByVal trs_active As Boolean, ByVal Original_trs_id As Integer, ByVal Original_trs_sprache As String, ByVal Original_trs_active As Boolean) As Integer Return Me.Update(trs_sprache, trs_text, trs_textDE, trs_active, Original_trs_id, Original_trs_sprache, Original_trs_active, Original_trs_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTrdinHeaderTableAdapter 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 = "tblTrdinHeader" tableMapping.ColumnMappings.Add("Speditionsbuch", "Speditionsbuch") tableMapping.ColumnMappings.Add("Company_code", "Company_code") tableMapping.ColumnMappings.Add("Depot_code", "Depot_code") tableMapping.ColumnMappings.Add("Send_number", "Send_number") tableMapping.ColumnMappings.Add("Send_date", "Send_date") tableMapping.ColumnMappings.Add("Computer_location", "Computer_location") tableMapping.ColumnMappings.Add("Message_type", "Message_type") tableMapping.ColumnMappings.Add("Fm_net_address", "Fm_net_address") tableMapping.ColumnMappings.Add("Accounting_date", "Accounting_date") tableMapping.ColumnMappings.Add("Currency_code", "Currency_code") tableMapping.ColumnMappings.Add("Country_code_dispatch", "Country_code_dispatch") tableMapping.ColumnMappings.Add("Vat_number_dispatch", "Vat_number_dispatch") tableMapping.ColumnMappings.Add("Vat_code_I", "Vat_code_I") tableMapping.ColumnMappings.Add("Vat_code_S0", "Vat_code_S0") tableMapping.ColumnMappings.Add("Vat_code_S1", "Vat_code_S1") tableMapping.ColumnMappings.Add("Vat_code_X", "Vat_code_X") tableMapping.ColumnMappings.Add("Pfad1", "Pfad1") tableMapping.ColumnMappings.Add("Pfad2", "Pfad2") tableMapping.ColumnMappings.Add("Datei", "Datei") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblTrdinHeader] WHERE (([Speditionsbuch] = @Original_Spedition"& _ "sbuch) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @O"& _ "riginal_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Speditionsbuch", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Speditionsbuch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblTrdinHeader] ([Speditionsbuch], [Company_code], [Depot_code"& _ "], [Send_number], [Send_date], [Computer_location], [Message_type], [Fm_net_addr"& _ "ess], [Accounting_date], [Currency_code], [Country_code_dispatch], [Vat_number_d"& _ "ispatch], [Vat_code_I], [Vat_code_S0], [Vat_code_S1], [Vat_code_X], [Pfad1], [Pf"& _ "ad2], [Datei]) VALUES (@Speditionsbuch, @Company_code, @Depot_code, @Send_number"& _ ", @Send_date, @Computer_location, @Message_type, @Fm_net_address, @Accounting_da"& _ "te, @Currency_code, @Country_code_dispatch, @Vat_number_dispatch, @Vat_code_I, @"& _ "Vat_code_S0, @Vat_code_S1, @Vat_code_X, @Pfad1, @Pfad2, @Datei);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Spediti"& _ "onsbuch, Company_code, Depot_code, Send_number, Send_date, Computer_location, Me"& _ "ssage_type, Fm_net_address, Accounting_date, Currency_code, Country_code_dispatc"& _ "h, Vat_number_dispatch, Vat_code_I, Vat_code_S0, Vat_code_S1, Vat_code_X, Pfad1,"& _ " Pfad2, Datei, upsize_ts FROM tblTrdinHeader WHERE (Speditionsbuch = @Speditions"& _ "buch)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Speditionsbuch", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Speditionsbuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Company_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Company_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Depot_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Depot_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Send_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Send_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Send_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Send_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computer_location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computer_location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Message_type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Message_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fm_net_address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fm_net_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Accounting_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Accounting_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Currency_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Currency_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country_code_dispatch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_code_dispatch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vat_number_dispatch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vat_number_dispatch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vat_code_I", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vat_code_I", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vat_code_S0", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vat_code_S0", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vat_code_S1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vat_code_S1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vat_code_X", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vat_code_X", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pfad1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pfad1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pfad2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pfad2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datei", 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].[tblTrdinHeader] SET [Speditionsbuch] = @Speditionsbuch, [Company_co"& _ "de] = @Company_code, [Depot_code] = @Depot_code, [Send_number] = @Send_number, ["& _ "Send_date] = @Send_date, [Computer_location] = @Computer_location, [Message_type"& _ "] = @Message_type, [Fm_net_address] = @Fm_net_address, [Accounting_date] = @Acco"& _ "unting_date, [Currency_code] = @Currency_code, [Country_code_dispatch] = @Countr"& _ "y_code_dispatch, [Vat_number_dispatch] = @Vat_number_dispatch, [Vat_code_I] = @V"& _ "at_code_I, [Vat_code_S0] = @Vat_code_S0, [Vat_code_S1] = @Vat_code_S1, [Vat_code"& _ "_X] = @Vat_code_X, [Pfad1] = @Pfad1, [Pfad2] = @Pfad2, [Datei] = @Datei WHERE (("& _ "[Speditionsbuch] = @Original_Speditionsbuch) AND ((@IsNull_upsize_ts = 1 AND [up"& _ "size_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Speditionsbu"& _ "ch, Company_code, Depot_code, Send_number, Send_date, Computer_location, Message"& _ "_type, Fm_net_address, Accounting_date, Currency_code, Country_code_dispatch, Va"& _ "t_number_dispatch, Vat_code_I, Vat_code_S0, Vat_code_S1, Vat_code_X, Pfad1, Pfad"& _ "2, Datei, upsize_ts FROM tblTrdinHeader WHERE (Speditionsbuch = @Speditionsbuch)"& _ "" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Speditionsbuch", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Speditionsbuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Company_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Company_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Depot_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Depot_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Send_number", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Send_number", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Send_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Send_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computer_location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Computer_location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Message_type", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Message_type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fm_net_address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fm_net_address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Accounting_date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Accounting_date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Currency_code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Currency_code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country_code_dispatch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_code_dispatch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vat_number_dispatch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vat_number_dispatch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vat_code_I", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vat_code_I", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vat_code_S0", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vat_code_S0", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vat_code_S1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vat_code_S1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vat_code_X", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vat_code_X", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pfad1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pfad1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pfad2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pfad2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datei", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datei", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Speditionsbuch", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Speditionsbuch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Speditionsbuch, Company_code, Depot_code, Send_number, Send_date, Computer"& _ "_location, Message_type, Fm_net_address, Accounting_date, Currency_code, Country"& _ "_code_dispatch, Vat_number_dispatch, Vat_code_I, Vat_code_S0, Vat_code_S1, Vat_c"& _ "ode_X, Pfad1, Pfad2, Datei, upsize_ts FROM dbo.tblTrdinHeader" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTrdinHeaderDataTable) 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 VERAGDataSet.tblTrdinHeaderDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTrdinHeaderDataTable = New VERAGDataSet.tblTrdinHeaderDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTrdinHeaderDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTrdinHeader") 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_Speditionsbuch As Short, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Speditionsbuch,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Speditionsbuch As Short, _ ByVal Company_code As String, _ ByVal Depot_code As String, _ ByVal Send_number As Integer, _ ByVal Send_date As Global.System.Nullable(Of Date), _ ByVal Computer_location As String, _ ByVal Message_type As String, _ ByVal Fm_net_address As String, _ ByVal Accounting_date As Date, _ ByVal Currency_code As String, _ ByVal Country_code_dispatch As String, _ ByVal Vat_number_dispatch As String, _ ByVal Vat_code_I As String, _ ByVal Vat_code_S0 As String, _ ByVal Vat_code_S1 As String, _ ByVal Vat_code_X As String, _ ByVal Pfad1 As String, _ ByVal Pfad2 As String, _ ByVal Datei As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Speditionsbuch,Short) If (Company_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Company_code") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Company_code,String) End If If (Depot_code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(Depot_code,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(Send_number,Integer) If (Send_date.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Send_date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Computer_location Is Nothing) Then Throw New Global.System.ArgumentNullException("Computer_location") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Computer_location,String) End If If (Message_type Is Nothing) Then Throw New Global.System.ArgumentNullException("Message_type") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Message_type,String) End If If (Fm_net_address Is Nothing) Then Throw New Global.System.ArgumentNullException("Fm_net_address") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Fm_net_address,String) End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(Accounting_date,Date) If (Currency_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Currency_code") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Currency_code,String) End If If (Country_code_dispatch Is Nothing) Then Throw New Global.System.ArgumentNullException("Country_code_dispatch") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Country_code_dispatch,String) End If If (Vat_number_dispatch Is Nothing) Then Throw New Global.System.ArgumentNullException("Vat_number_dispatch") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Vat_number_dispatch,String) End If If (Vat_code_I Is Nothing) Then Throw New Global.System.ArgumentNullException("Vat_code_I") Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Vat_code_I,String) End If If (Vat_code_S0 Is Nothing) Then Throw New Global.System.ArgumentNullException("Vat_code_S0") Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Vat_code_S0,String) End If If (Vat_code_S1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Vat_code_S1") Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Vat_code_S1,String) End If If (Vat_code_X Is Nothing) Then Throw New Global.System.ArgumentNullException("Vat_code_X") Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Vat_code_X,String) End If If (Pfad1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Pfad1") Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Pfad1,String) End If If (Pfad2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Pfad2") Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(Pfad2,String) End If If (Datei Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(Datei,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 Speditionsbuch As Short, _ ByVal Company_code As String, _ ByVal Depot_code As String, _ ByVal Send_number As Integer, _ ByVal Send_date As Global.System.Nullable(Of Date), _ ByVal Computer_location As String, _ ByVal Message_type As String, _ ByVal Fm_net_address As String, _ ByVal Accounting_date As Date, _ ByVal Currency_code As String, _ ByVal Country_code_dispatch As String, _ ByVal Vat_number_dispatch As String, _ ByVal Vat_code_I As String, _ ByVal Vat_code_S0 As String, _ ByVal Vat_code_S1 As String, _ ByVal Vat_code_X As String, _ ByVal Pfad1 As String, _ ByVal Pfad2 As String, _ ByVal Datei As String, _ ByVal Original_Speditionsbuch As Short, _ ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Speditionsbuch,Short) If (Company_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Company_code") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Company_code,String) End If If (Depot_code Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Depot_code,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Send_number,Integer) If (Send_date.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Send_date.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Computer_location Is Nothing) Then Throw New Global.System.ArgumentNullException("Computer_location") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Computer_location,String) End If If (Message_type Is Nothing) Then Throw New Global.System.ArgumentNullException("Message_type") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Message_type,String) End If If (Fm_net_address Is Nothing) Then Throw New Global.System.ArgumentNullException("Fm_net_address") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Fm_net_address,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Accounting_date,Date) If (Currency_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Currency_code") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Currency_code,String) End If If (Country_code_dispatch Is Nothing) Then Throw New Global.System.ArgumentNullException("Country_code_dispatch") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Country_code_dispatch,String) End If If (Vat_number_dispatch Is Nothing) Then Throw New Global.System.ArgumentNullException("Vat_number_dispatch") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Vat_number_dispatch,String) End If If (Vat_code_I Is Nothing) Then Throw New Global.System.ArgumentNullException("Vat_code_I") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Vat_code_I,String) End If If (Vat_code_S0 Is Nothing) Then Throw New Global.System.ArgumentNullException("Vat_code_S0") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Vat_code_S0,String) End If If (Vat_code_S1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Vat_code_S1") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Vat_code_S1,String) End If If (Vat_code_X Is Nothing) Then Throw New Global.System.ArgumentNullException("Vat_code_X") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Vat_code_X,String) End If If (Pfad1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Pfad1") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Pfad1,String) End If If (Pfad2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Pfad2") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Pfad2,String) End If If (Datei Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Datei,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Speditionsbuch,Short) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_upsize_ts,Byte()) End If 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 Company_code As String, _ ByVal Depot_code As String, _ ByVal Send_number As Integer, _ ByVal Send_date As Global.System.Nullable(Of Date), _ ByVal Computer_location As String, _ ByVal Message_type As String, _ ByVal Fm_net_address As String, _ ByVal Accounting_date As Date, _ ByVal Currency_code As String, _ ByVal Country_code_dispatch As String, _ ByVal Vat_number_dispatch As String, _ ByVal Vat_code_I As String, _ ByVal Vat_code_S0 As String, _ ByVal Vat_code_S1 As String, _ ByVal Vat_code_X As String, _ ByVal Pfad1 As String, _ ByVal Pfad2 As String, _ ByVal Datei As String, _ ByVal Original_Speditionsbuch As Short, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Speditionsbuch, Company_code, Depot_code, Send_number, Send_date, Computer_location, Message_type, Fm_net_address, Accounting_date, Currency_code, Country_code_dispatch, Vat_number_dispatch, Vat_code_I, Vat_code_S0, Vat_code_S1, Vat_code_X, Pfad1, Pfad2, Datei, Original_Speditionsbuch, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTrdinInvoiceTableAdapter 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 = "tblTrdinInvoice" tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Speditionsbuch", "Speditionsbuch") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("RechnungsLandKz", "RechnungsLandKz") tableMapping.ColumnMappings.Add("RechnungsUstIdKz", "RechnungsUstIdKz") tableMapping.ColumnMappings.Add("RechnungsUstIdNr", "RechnungsUstIdNr") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("WährungLokal", "WährungLokal") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragLokal", "SteuerpflichtigerBetragLokal") tableMapping.ColumnMappings.Add("SteuerfreierBetragLokal", "SteuerfreierBetragLokal") tableMapping.ColumnMappings.Add("SteuerbetragLokal", "SteuerbetragLokal") tableMapping.ColumnMappings.Add("RechnungsbetragLokal", "RechnungsbetragLokal") tableMapping.ColumnMappings.Add("WährungFremd", "WährungFremd") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragFremd", "SteuerpflichtigerBetragFremd") tableMapping.ColumnMappings.Add("SteuerfreierBetragFremd", "SteuerfreierBetragFremd") tableMapping.ColumnMappings.Add("SteuerbetragFremd", "SteuerbetragFremd") tableMapping.ColumnMappings.Add("RechnungsbetragFremd", "RechnungsbetragFremd") tableMapping.ColumnMappings.Add("TrdinDateiname", "TrdinDateiname") tableMapping.ColumnMappings.Add("Abgleich_op_debitor", "Abgleich_op_debitor") tableMapping.ColumnMappings.Add("Nettozahlungsziel", "Nettozahlungsziel") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("AmbDateiname", "AmbDateiname") 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].[tblTrdinInvoice] WHERE (([Rechnungsdatum] = @Original_Rechnung"& _ "sdatum) AND ([Rechnungsnummer] = @Original_Rechnungsnummer) AND ((@IsNull_upsize"& _ "_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rechnungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblTrdinInvoice] ([Rechnungsdatum], [Rechnungsnummer], [Spedit"& _ "ionsbuch], [FilialenNr], [AbfertigungsNr], [UnterNr], [Abfertigungsdatum], [Bele"& _ "gartenNr], [KundenNrZentrale], [RechnungsKundenNr], [RechnungsLandKz], [Rechnung"& _ "sUstIdKz], [RechnungsUstIdNr], [Lastschrift], [Steuerschlüssel], [Steuersatz %],"& _ " [WährungLokal], [SteuerpflichtigerBetragLokal], [SteuerfreierBetragLokal], [Ste"& _ "uerbetragLokal], [RechnungsbetragLokal], [WährungFremd], [SteuerpflichtigerBetra"& _ "gFremd], [SteuerfreierBetragFremd], [SteuerbetragFremd], [RechnungsbetragFremd],"& _ " [TrdinDateiname], [Abgleich_op_debitor], [Nettozahlungsziel], [Firma_ID], [UStV"& _ "An_ID], [AmbDateiname]) VALUES (@Rechnungsdatum, @Rechnungsnummer, @Speditionsbu"& _ "ch, @FilialenNr, @AbfertigungsNr, @UnterNr, @Abfertigungsdatum, @BelegartenNr, @"& _ "KundenNrZentrale, @RechnungsKundenNr, @RechnungsLandKz, @RechnungsUstIdKz, @Rech"& _ "nungsUstIdNr, @Lastschrift, @Steuerschlüssel, @p1, @WährungLokal, @Steuerpflicht"& _ "igerBetragLokal, @SteuerfreierBetragLokal, @SteuerbetragLokal, @RechnungsbetragL"& _ "okal, @WährungFremd, @SteuerpflichtigerBetragFremd, @SteuerfreierBetragFremd, @S"& _ "teuerbetragFremd, @RechnungsbetragFremd, @TrdinDateiname, @Abgleich_op_debitor, "& _ "@Nettozahlungsziel, @Firma_ID, @UStVAn_ID, @AmbDateiname);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Rechnungsdatu"& _ "m, Rechnungsnummer, Speditionsbuch, FilialenNr, AbfertigungsNr, UnterNr, Abferti"& _ "gungsdatum, BelegartenNr, KundenNrZentrale, RechnungsKundenNr, RechnungsLandKz, "& _ "RechnungsUstIdKz, RechnungsUstIdNr, Lastschrift, Steuerschlüssel, [Steuersatz %]"& _ ", WährungLokal, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, Steuerbet"& _ "ragLokal, RechnungsbetragLokal, WährungFremd, SteuerpflichtigerBetragFremd, Steu"& _ "erfreierBetragFremd, SteuerbetragFremd, RechnungsbetragFremd, TrdinDateiname, Ab"& _ "gleich_op_debitor, Nettozahlungsziel, Firma_ID, UStVAn_ID, upsize_ts, AmbDateina"& _ "me FROM tblTrdinInvoice WHERE (Rechnungsdatum = @Rechnungsdatum) AND (Rechnungsn"& _ "ummer = @Rechnungsnummer)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Speditionsbuch", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Speditionsbuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrZentrale", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrZentrale", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsLandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsLandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsUstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsUstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lastschrift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungLokal", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WährungLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerBetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierBetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerbetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerbetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsbetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsbetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungFremd", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WährungFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerBetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierBetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerbetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerbetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsbetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsbetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TrdinDateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TrdinDateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abgleich_op_debitor", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abgleich_op_debitor", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nettozahlungsziel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nettozahlungsziel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AmbDateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AmbDateiname", 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].[tblTrdinInvoice] SET [Rechnungsdatum] = @Rechnungsdatum, [Rechnungs"& _ "nummer] = @Rechnungsnummer, [Speditionsbuch] = @Speditionsbuch, [FilialenNr] = @"& _ "FilialenNr, [AbfertigungsNr] = @AbfertigungsNr, [UnterNr] = @UnterNr, [Abfertigu"& _ "ngsdatum] = @Abfertigungsdatum, [BelegartenNr] = @BelegartenNr, [KundenNrZentral"& _ "e] = @KundenNrZentrale, [RechnungsKundenNr] = @RechnungsKundenNr, [RechnungsLand"& _ "Kz] = @RechnungsLandKz, [RechnungsUstIdKz] = @RechnungsUstIdKz, [RechnungsUstIdN"& _ "r] = @RechnungsUstIdNr, [Lastschrift] = @Lastschrift, [Steuerschlüssel] = @Steue"& _ "rschlüssel, [Steuersatz %] = @p1, [WährungLokal] = @WährungLokal, [Steuerpflicht"& _ "igerBetragLokal] = @SteuerpflichtigerBetragLokal, [SteuerfreierBetragLokal] = @S"& _ "teuerfreierBetragLokal, [SteuerbetragLokal] = @SteuerbetragLokal, [Rechnungsbetr"& _ "agLokal] = @RechnungsbetragLokal, [WährungFremd] = @WährungFremd, [Steuerpflicht"& _ "igerBetragFremd] = @SteuerpflichtigerBetragFremd, [SteuerfreierBetragFremd] = @S"& _ "teuerfreierBetragFremd, [SteuerbetragFremd] = @SteuerbetragFremd, [Rechnungsbetr"& _ "agFremd] = @RechnungsbetragFremd, [TrdinDateiname] = @TrdinDateiname, [Abgleich_"& _ "op_debitor] = @Abgleich_op_debitor, [Nettozahlungsziel] = @Nettozahlungsziel, [F"& _ "irma_ID] = @Firma_ID, [UStVAn_ID] = @UStVAn_ID, [AmbDateiname] = @AmbDateiname W"& _ "HERE (([Rechnungsdatum] = @Original_Rechnungsdatum) AND ([Rechnungsnummer] = @Or"& _ "iginal_Rechnungsnummer) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR "& _ "([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Rechnungsdatum, Rechnungsnummer, "& _ "Speditionsbuch, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, Belegart"& _ "enNr, KundenNrZentrale, RechnungsKundenNr, RechnungsLandKz, RechnungsUstIdKz, Re"& _ "chnungsUstIdNr, Lastschrift, Steuerschlüssel, [Steuersatz %], WährungLokal, Steu"& _ "erpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerbetragLokal, Rechnungsb"& _ "etragLokal, WährungFremd, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd,"& _ " SteuerbetragFremd, RechnungsbetragFremd, TrdinDateiname, Abgleich_op_debitor, N"& _ "ettozahlungsziel, Firma_ID, UStVAn_ID, upsize_ts, AmbDateiname FROM tblTrdinInvo"& _ "ice WHERE (Rechnungsdatum = @Rechnungsdatum) AND (Rechnungsnummer = @Rechnungsnu"& _ "mmer)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Speditionsbuch", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Speditionsbuch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BelegartenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrZentrale", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNrZentrale", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsKundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsLandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsLandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsUstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsUstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lastschrift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@p1", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuersatz %", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungLokal", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WährungLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerBetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierBetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerbetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerbetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsbetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsbetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungFremd", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WährungFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerBetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierBetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerbetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerbetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsbetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RechnungsbetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TrdinDateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TrdinDateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abgleich_op_debitor", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abgleich_op_debitor", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nettozahlungsziel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nettozahlungsziel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AmbDateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AmbDateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rechnungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Rechnungsdatum, Rechnungsnummer, Speditionsbuch, FilialenNr, AbfertigungsN"& _ "r, UnterNr, Abfertigungsdatum, BelegartenNr, KundenNrZentrale, RechnungsKundenNr"& _ ", RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr, Lastschrift, Steuerschlüs"& _ "sel, [Steuersatz %], WährungLokal, SteuerpflichtigerBetragLokal, SteuerfreierBet"& _ "ragLokal, SteuerbetragLokal, RechnungsbetragLokal, WährungFremd, Steuerpflichtig"& _ "erBetragFremd, SteuerfreierBetragFremd, SteuerbetragFremd, RechnungsbetragFremd,"& _ " TrdinDateiname, Abgleich_op_debitor, Nettozahlungsziel, Firma_ID, UStVAn_ID, up"& _ "size_ts, AmbDateiname FROM dbo.tblTrdinInvoice" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTrdinInvoiceDataTable) 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 VERAGDataSet.tblTrdinInvoiceDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTrdinInvoiceDataTable = New VERAGDataSet.tblTrdinInvoiceDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTrdinInvoiceDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTrdinInvoice") 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_Rechnungsdatum As Date, ByVal Original_Rechnungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Rechnungsdatum,Date) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Rechnungsnummer,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Rechnungsdatum As Date, _ ByVal Rechnungsnummer As Integer, _ ByVal Speditionsbuch As Global.System.Nullable(Of Short), _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UnterNr As Global.System.Nullable(Of Short), _ ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal BelegartenNr As Global.System.Nullable(Of Short), _ ByVal KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsLandKz As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal Lastschrift As Boolean, _ ByVal Steuerschlüssel As Global.System.Nullable(Of Short), _ ByVal p1 As Global.System.Nullable(Of Single), _ ByVal WährungLokal As String, _ ByVal SteuerpflichtigerBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal SteuerbetragLokal As Global.System.Nullable(Of Decimal), _ ByVal RechnungsbetragLokal As Global.System.Nullable(Of Decimal), _ ByVal WährungFremd As String, _ ByVal SteuerpflichtigerBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal SteuerbetragFremd As Global.System.Nullable(Of Decimal), _ ByVal RechnungsbetragFremd As Global.System.Nullable(Of Decimal), _ ByVal TrdinDateiname As String, _ ByVal Abgleich_op_debitor As Boolean, _ ByVal Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal Firma_ID As Short, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal AmbDateiname As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Rechnungsdatum,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Rechnungsnummer,Integer) If (Speditionsbuch.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Speditionsbuch.Value,Short) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (FilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(UnterNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Abfertigungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Abfertigungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BelegartenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(BelegartenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (KundenNrZentrale.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(KundenNrZentrale.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (RechnungsLandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(RechnungsLandKz,String) End If If (RechnungsUstIdKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(RechnungsUstIdKz,String) End If If (RechnungsUstIdNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(RechnungsUstIdNr,String) End If Me.Adapter.InsertCommand.Parameters(13).Value = CType(Lastschrift,Boolean) If (Steuerschlüssel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(Steuerschlüssel.Value,Short) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (p1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(p1.Value,Single) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (WährungLokal Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(WährungLokal,String) End If If (SteuerpflichtigerBetragLokal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(SteuerpflichtigerBetragLokal.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragLokal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(SteuerfreierBetragLokal.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (SteuerbetragLokal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(SteuerbetragLokal.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (RechnungsbetragLokal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(RechnungsbetragLokal.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (WährungFremd Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(WährungFremd,String) End If If (SteuerpflichtigerBetragFremd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(SteuerpflichtigerBetragFremd.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragFremd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(SteuerfreierBetragFremd.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (SteuerbetragFremd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(SteuerbetragFremd.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (RechnungsbetragFremd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(RechnungsbetragFremd.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (TrdinDateiname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(TrdinDateiname,String) End If Me.Adapter.InsertCommand.Parameters(27).Value = CType(Abgleich_op_debitor,Boolean) If (Nettozahlungsziel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(Nettozahlungsziel.Value,Short) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(29).Value = CType(Firma_ID,Short) If (UStVAn_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (AmbDateiname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(AmbDateiname,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 Rechnungsdatum As Date, _ ByVal Rechnungsnummer As Integer, _ ByVal Speditionsbuch As Global.System.Nullable(Of Short), _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UnterNr As Global.System.Nullable(Of Short), _ ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal BelegartenNr As Global.System.Nullable(Of Short), _ ByVal KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsLandKz As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal Lastschrift As Boolean, _ ByVal Steuerschlüssel As Global.System.Nullable(Of Short), _ ByVal p1 As Global.System.Nullable(Of Single), _ ByVal WährungLokal As String, _ ByVal SteuerpflichtigerBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal SteuerbetragLokal As Global.System.Nullable(Of Decimal), _ ByVal RechnungsbetragLokal As Global.System.Nullable(Of Decimal), _ ByVal WährungFremd As String, _ ByVal SteuerpflichtigerBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal SteuerbetragFremd As Global.System.Nullable(Of Decimal), _ ByVal RechnungsbetragFremd As Global.System.Nullable(Of Decimal), _ ByVal TrdinDateiname As String, _ ByVal Abgleich_op_debitor As Boolean, _ ByVal Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal Firma_ID As Short, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal AmbDateiname As String, _ ByVal Original_Rechnungsdatum As Date, _ ByVal Original_Rechnungsnummer As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Rechnungsdatum,Date) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Rechnungsnummer,Integer) If (Speditionsbuch.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Speditionsbuch.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UnterNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Abfertigungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Abfertigungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BelegartenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(BelegartenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (KundenNrZentrale.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(KundenNrZentrale.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (RechnungsLandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(RechnungsLandKz,String) End If If (RechnungsUstIdKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(RechnungsUstIdKz,String) End If If (RechnungsUstIdNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(RechnungsUstIdNr,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Lastschrift,Boolean) If (Steuerschlüssel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Steuerschlüssel.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (p1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(p1.Value,Single) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (WährungLokal Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WährungLokal,String) End If If (SteuerpflichtigerBetragLokal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SteuerpflichtigerBetragLokal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragLokal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SteuerfreierBetragLokal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (SteuerbetragLokal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(SteuerbetragLokal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (RechnungsbetragLokal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(RechnungsbetragLokal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (WährungFremd Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(WährungFremd,String) End If If (SteuerpflichtigerBetragFremd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(SteuerpflichtigerBetragFremd.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragFremd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(SteuerfreierBetragFremd.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (SteuerbetragFremd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(SteuerbetragFremd.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (RechnungsbetragFremd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(RechnungsbetragFremd.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (TrdinDateiname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(TrdinDateiname,String) End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Abgleich_op_debitor,Boolean) If (Nettozahlungsziel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Nettozahlungsziel.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Firma_ID,Short) If (UStVAn_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (AmbDateiname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(AmbDateiname,String) End If Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_Rechnungsdatum,Date) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_Rechnungsnummer,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_upsize_ts,Byte()) End If 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 Speditionsbuch As Global.System.Nullable(Of Short), _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UnterNr As Global.System.Nullable(Of Short), _ ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal BelegartenNr As Global.System.Nullable(Of Short), _ ByVal KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsLandKz As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal Lastschrift As Boolean, _ ByVal Steuerschlüssel As Global.System.Nullable(Of Short), _ ByVal p1 As Global.System.Nullable(Of Single), _ ByVal WährungLokal As String, _ ByVal SteuerpflichtigerBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal SteuerbetragLokal As Global.System.Nullable(Of Decimal), _ ByVal RechnungsbetragLokal As Global.System.Nullable(Of Decimal), _ ByVal WährungFremd As String, _ ByVal SteuerpflichtigerBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal SteuerbetragFremd As Global.System.Nullable(Of Decimal), _ ByVal RechnungsbetragFremd As Global.System.Nullable(Of Decimal), _ ByVal TrdinDateiname As String, _ ByVal Abgleich_op_debitor As Boolean, _ ByVal Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal Firma_ID As Short, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal AmbDateiname As String, _ ByVal Original_Rechnungsdatum As Date, _ ByVal Original_Rechnungsnummer As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Rechnungsdatum, Original_Rechnungsnummer, Speditionsbuch, FilialenNr, AbfertigungsNr, UnterNr, Abfertigungsdatum, BelegartenNr, KundenNrZentrale, RechnungsKundenNr, RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr, Lastschrift, Steuerschlüssel, p1, WährungLokal, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerbetragLokal, RechnungsbetragLokal, WährungFremd, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, SteuerbetragFremd, RechnungsbetragFremd, TrdinDateiname, Abgleich_op_debitor, Nettozahlungsziel, Firma_ID, UStVAn_ID, AmbDateiname, Original_Rechnungsdatum, Original_Rechnungsnummer, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblTrdinProductTableAdapter 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 = "tblTrdinProduct" tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Leistungsnummer", "Leistungsnummer") tableMapping.ColumnMappings.Add("Leistungsbezeichnung", "Leistungsbezeichnung") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragLokal", "SteuerpflichtigerBetragLokal") tableMapping.ColumnMappings.Add("SteuerfreierBetragLokal", "SteuerfreierBetragLokal") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragFremd", "SteuerpflichtigerBetragFremd") tableMapping.ColumnMappings.Add("SteuerfreierBetragFremd", "SteuerfreierBetragFremd") tableMapping.ColumnMappings.Add("Belegdaten", "Belegdaten") tableMapping.ColumnMappings.Add("Sachkonto", "Sachkonto") tableMapping.ColumnMappings.Add("Buchungstext", "Buchungstext") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblTrdinProduct] WHERE (([Rechnungsdatum] = @Original_Rechnung"& _ "sdatum) AND ([Rechnungsnummer] = @Original_Rechnungsnummer) AND ([Leistungsnumme"& _ "r] = @Original_Leistungsnummer) AND ([Leistungsbezeichnung] = @Original_Leistung"& _ "sbezeichnung) AND ([Steuerpflichtig] = @Original_Steuerpflichtig) AND ((@IsNull_"& _ "upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rechnungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Leistungsnummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerpflichtig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblTrdinProduct] ([Rechnungsdatum], [Rechnungsnummer], [Leistu"& _ "ngsnummer], [Leistungsbezeichnung], [Steuerpflichtig], [SteuerpflichtigerBetragL"& _ "okal], [SteuerfreierBetragLokal], [SteuerpflichtigerBetragFremd], [SteuerfreierB"& _ "etragFremd], [Belegdaten], [Sachkonto], [Buchungstext]) VALUES (@Rechnungsdatum,"& _ " @Rechnungsnummer, @Leistungsnummer, @Leistungsbezeichnung, @Steuerpflichtig, @S"& _ "teuerpflichtigerBetragLokal, @SteuerfreierBetragLokal, @SteuerpflichtigerBetragF"& _ "remd, @SteuerfreierBetragFremd, @Belegdaten, @Sachkonto, @Buchungstext);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ " Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, Steuerp"& _ "flichtig, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, Steuerpflichtig"& _ "erBetragFremd, SteuerfreierBetragFremd, Belegdaten, Sachkonto, Buchungstext, ups"& _ "ize_ts FROM tblTrdinProduct WHERE (Leistungsbezeichnung = @Leistungsbezeichnung)"& _ " AND (Leistungsnummer = @Leistungsnummer) AND (Rechnungsdatum = @Rechnungsdatum)"& _ " AND (Rechnungsnummer = @Rechnungsnummer) AND (Steuerpflichtig = @Steuerpflichti"& _ "g)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsnummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerBetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierBetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerBetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierBetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdaten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdaten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachkonto", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachkonto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", 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].[tblTrdinProduct] SET [Rechnungsdatum] = @Rechnungsdatum, [Rechnungs"& _ "nummer] = @Rechnungsnummer, [Leistungsnummer] = @Leistungsnummer, [Leistungsbeze"& _ "ichnung] = @Leistungsbezeichnung, [Steuerpflichtig] = @Steuerpflichtig, [Steuerp"& _ "flichtigerBetragLokal] = @SteuerpflichtigerBetragLokal, [SteuerfreierBetragLokal"& _ "] = @SteuerfreierBetragLokal, [SteuerpflichtigerBetragFremd] = @Steuerpflichtige"& _ "rBetragFremd, [SteuerfreierBetragFremd] = @SteuerfreierBetragFremd, [Belegdaten]"& _ " = @Belegdaten, [Sachkonto] = @Sachkonto, [Buchungstext] = @Buchungstext WHERE ("& _ "([Rechnungsdatum] = @Original_Rechnungsdatum) AND ([Rechnungsnummer] = @Original"& _ "_Rechnungsnummer) AND ([Leistungsnummer] = @Original_Leistungsnummer) AND ([Leis"& _ "tungsbezeichnung] = @Original_Leistungsbezeichnung) AND ([Steuerpflichtig] = @Or"& _ "iginal_Steuerpflichtig) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR "& _ "([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Rechnungsdatum, Rechnungsnummer, "& _ "Leistungsnummer, Leistungsbezeichnung, Steuerpflichtig, SteuerpflichtigerBetragL"& _ "okal, SteuerfreierBetragLokal, SteuerpflichtigerBetragFremd, SteuerfreierBetragF"& _ "remd, Belegdaten, Sachkonto, Buchungstext, upsize_ts FROM tblTrdinProduct WHERE "& _ "(Leistungsbezeichnung = @Leistungsbezeichnung) AND (Leistungsnummer = @Leistungs"& _ "nummer) AND (Rechnungsdatum = @Rechnungsdatum) AND (Rechnungsnummer = @Rechnungs"& _ "nummer) AND (Steuerpflichtig = @Steuerpflichtig)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsnummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerpflichtig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerBetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragLokal", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierBetragLokal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerpflichtigerBetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragFremd", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SteuerfreierBetragFremd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdaten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdaten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachkonto", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachkonto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungstext", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungstext", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Rechnungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Leistungsnummer", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerpflichtig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, St"& _ "euerpflichtig, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, Steuerpfli"& _ "chtigerBetragFremd, SteuerfreierBetragFremd, Belegdaten, Sachkonto, Buchungstext"& _ ", upsize_ts FROM dbo.tblTrdinProduct" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblTrdinProductDataTable) 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 VERAGDataSet.tblTrdinProductDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblTrdinProductDataTable = New VERAGDataSet.tblTrdinProductDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblTrdinProductDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblTrdinProduct") 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_Rechnungsdatum As Date, ByVal Original_Rechnungsnummer As Integer, ByVal Original_Leistungsnummer As Short, ByVal Original_Leistungsbezeichnung As String, ByVal Original_Steuerpflichtig As Boolean, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Rechnungsdatum,Date) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Rechnungsnummer,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Leistungsnummer,Short) If (Original_Leistungsbezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Leistungsbezeichnung") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Leistungsbezeichnung,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Steuerpflichtig,Boolean) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Rechnungsdatum As Date, ByVal Rechnungsnummer As Integer, ByVal Leistungsnummer As Short, ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Boolean, ByVal SteuerpflichtigerBetragLokal As Global.System.Nullable(Of Decimal), ByVal SteuerfreierBetragLokal As Global.System.Nullable(Of Decimal), ByVal SteuerpflichtigerBetragFremd As Global.System.Nullable(Of Decimal), ByVal SteuerfreierBetragFremd As Global.System.Nullable(Of Decimal), ByVal Belegdaten As String, ByVal Sachkonto As String, ByVal Buchungstext As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Rechnungsdatum,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Rechnungsnummer,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(Leistungsnummer,Short) If (Leistungsbezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Leistungsbezeichnung") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Leistungsbezeichnung,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(Steuerpflichtig,Boolean) If (SteuerpflichtigerBetragLokal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(SteuerpflichtigerBetragLokal.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragLokal.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(SteuerfreierBetragLokal.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (SteuerpflichtigerBetragFremd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(SteuerpflichtigerBetragFremd.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragFremd.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(SteuerfreierBetragFremd.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Belegdaten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Belegdaten,String) End If If (Sachkonto Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Sachkonto,String) End If If (Buchungstext Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Buchungstext,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 Rechnungsdatum As Date, _ ByVal Rechnungsnummer As Integer, _ ByVal Leistungsnummer As Short, _ ByVal Leistungsbezeichnung As String, _ ByVal Steuerpflichtig As Boolean, _ ByVal SteuerpflichtigerBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal SteuerpflichtigerBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal Belegdaten As String, _ ByVal Sachkonto As String, _ ByVal Buchungstext As String, _ ByVal Original_Rechnungsdatum As Date, _ ByVal Original_Rechnungsnummer As Integer, _ ByVal Original_Leistungsnummer As Short, _ ByVal Original_Leistungsbezeichnung As String, _ ByVal Original_Steuerpflichtig As Boolean, _ ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Rechnungsdatum,Date) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Rechnungsnummer,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Leistungsnummer,Short) If (Leistungsbezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Leistungsbezeichnung") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Leistungsbezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Steuerpflichtig,Boolean) If (SteuerpflichtigerBetragLokal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SteuerpflichtigerBetragLokal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragLokal.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SteuerfreierBetragLokal.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (SteuerpflichtigerBetragFremd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SteuerpflichtigerBetragFremd.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragFremd.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SteuerfreierBetragFremd.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Belegdaten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Belegdaten,String) End If If (Sachkonto Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Sachkonto,String) End If If (Buchungstext Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Buchungstext,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Rechnungsdatum,Date) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Rechnungsnummer,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Leistungsnummer,Short) If (Original_Leistungsbezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Leistungsbezeichnung") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Leistungsbezeichnung,String) End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Steuerpflichtig,Boolean) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 SteuerpflichtigerBetragLokal As Global.System.Nullable(Of Decimal), ByVal SteuerfreierBetragLokal As Global.System.Nullable(Of Decimal), ByVal SteuerpflichtigerBetragFremd As Global.System.Nullable(Of Decimal), ByVal SteuerfreierBetragFremd As Global.System.Nullable(Of Decimal), ByVal Belegdaten As String, ByVal Sachkonto As String, ByVal Buchungstext As String, ByVal Original_Rechnungsdatum As Date, ByVal Original_Rechnungsnummer As Integer, ByVal Original_Leistungsnummer As Short, ByVal Original_Leistungsbezeichnung As String, ByVal Original_Steuerpflichtig As Boolean, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Rechnungsdatum, Original_Rechnungsnummer, Original_Leistungsnummer, Original_Leistungsbezeichnung, Original_Steuerpflichtig, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, SteuerpflichtigerBetragFremd, SteuerfreierBetragFremd, Belegdaten, Sachkonto, Buchungstext, Original_Rechnungsdatum, Original_Rechnungsnummer, Original_Leistungsnummer, Original_Leistungsbezeichnung, Original_Steuerpflichtig, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUIDPruefungTableAdapter 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 = "tblUIDPruefung" tableMapping.ColumnMappings.Add("uid_id", "uid_id") tableMapping.ColumnMappings.Add("uid_KundenNr", "uid_KundenNr") tableMapping.ColumnMappings.Add("uid_UstIdKz", "uid_UstIdKz") tableMapping.ColumnMappings.Add("uid_UstIdNr", "uid_UstIdNr") tableMapping.ColumnMappings.Add("uid_Datum", "uid_Datum") tableMapping.ColumnMappings.Add("uid_valid", "uid_valid") tableMapping.ColumnMappings.Add("uid_MaId", "uid_MaId") tableMapping.ColumnMappings.Add("uid_Sachbearbeiter", "uid_Sachbearbeiter") tableMapping.ColumnMappings.Add("uid_firma", "uid_firma") tableMapping.ColumnMappings.Add("uid_stufe", "uid_stufe") tableMapping.ColumnMappings.Add("Firma", "Firma") tableMapping.ColumnMappings.Add("uid_abfrageUid", "uid_abfrageUid") tableMapping.ColumnMappings.Add("uid_sessionId", "uid_sessionId") tableMapping.ColumnMappings.Add("uid_adr1", "uid_adr1") tableMapping.ColumnMappings.Add("uid_adr2", "uid_adr2") tableMapping.ColumnMappings.Add("uid_adr3", "uid_adr3") tableMapping.ColumnMappings.Add("uid_adr4", "uid_adr4") tableMapping.ColumnMappings.Add("uid_adr5", "uid_adr5") tableMapping.ColumnMappings.Add("uid_adr6", "uid_adr6") 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].[tblUIDPruefung] WHERE (([uid_id] = @Original_uid_id) AND ([uid"& _ "_KundenNr] = @Original_uid_KundenNr) AND ([uid_UstIdKz] = @Original_uid_UstIdKz)"& _ " AND ([uid_UstIdNr] = @Original_uid_UstIdNr) AND ([uid_Datum] = @Original_uid_Da"& _ "tum) AND ([uid_valid] = @Original_uid_valid) AND ((@IsNull_uid_MaId = 1 AND [uid"& _ "_MaId] IS NULL) OR ([uid_MaId] = @Original_uid_MaId)) AND ([uid_Sachbearbeiter] "& _ "= @Original_uid_Sachbearbeiter) AND ((@IsNull_uid_firma = 1 AND [uid_firma] IS N"& _ "ULL) OR ([uid_firma] = @Original_uid_firma)) AND ([uid_stufe] = @Original_uid_st"& _ "ufe) AND ([Firma] = @Original_Firma) AND ((@IsNull_uid_abfrageUid = 1 AND [uid_a"& _ "bfrageUid] IS NULL) OR ([uid_abfrageUid] = @Original_uid_abfrageUid)) AND ((@IsN"& _ "ull_uid_sessionId = 1 AND [uid_sessionId] IS NULL) OR ([uid_sessionId] = @Origin"& _ "al_uid_sessionId)) AND ((@IsNull_uid_adr1 = 1 AND [uid_adr1] IS NULL) OR ([uid_a"& _ "dr1] = @Original_uid_adr1)) AND ((@IsNull_uid_adr2 = 1 AND [uid_adr2] IS NULL) O"& _ "R ([uid_adr2] = @Original_uid_adr2)) AND ((@IsNull_uid_adr3 = 1 AND [uid_adr3] I"& _ "S NULL) OR ([uid_adr3] = @Original_uid_adr3)) AND ((@IsNull_uid_adr4 = 1 AND [ui"& _ "d_adr4] IS NULL) OR ([uid_adr4] = @Original_uid_adr4)) AND ((@IsNull_uid_adr5 = "& _ "1 AND [uid_adr5] IS NULL) OR ([uid_adr5] = @Original_uid_adr5)) AND ((@IsNull_ui"& _ "d_adr6 = 1 AND [uid_adr6] IS NULL) OR ([uid_adr6] = @Original_uid_adr6)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_UstIdKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_UstIdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_valid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_MaId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_MaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_stufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_stufe", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_abfrageUid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_abfrageUid", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_abfrageUid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_abfrageUid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_sessionId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_sessionId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_sessionId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_sessionId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr6", 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].[tblUIDPruefung] ([uid_KundenNr], [uid_UstIdKz], [uid_UstIdNr],"& _ " [uid_Datum], [uid_valid], [uid_MaId], [uid_Sachbearbeiter], [uid_firma], [uid_s"& _ "tufe], [Firma], [uid_abfrageUid], [uid_sessionId], [uid_adr1], [uid_adr2], [uid_"& _ "adr3], [uid_adr4], [uid_adr5], [uid_adr6]) VALUES (@uid_KundenNr, @uid_UstIdKz, "& _ "@uid_UstIdNr, @uid_Datum, @uid_valid, @uid_MaId, @uid_Sachbearbeiter, @uid_firma"& _ ", @uid_stufe, @Firma, @uid_abfrageUid, @uid_sessionId, @uid_adr1, @uid_adr2, @ui"& _ "d_adr3, @uid_adr4, @uid_adr5, @uid_adr6);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT uid_id, uid_KundenNr, uid_UstI"& _ "dKz, uid_UstIdNr, uid_Datum, uid_valid, uid_MaId, uid_Sachbearbeiter, uid_firma,"& _ " uid_stufe, Firma, uid_abfrageUid, uid_sessionId, uid_adr1, uid_adr2, uid_adr3, "& _ "uid_adr4, uid_adr5, uid_adr6 FROM tblUIDPruefung WHERE (uid_id = SCOPE_IDENTITY("& _ "))" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_UstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_UstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_valid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_MaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_stufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_stufe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_abfrageUid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_abfrageUid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_sessionId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_sessionId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr6", 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].[tblUIDPruefung] SET [uid_KundenNr] = @uid_KundenNr, [uid_UstIdKz] ="& _ " @uid_UstIdKz, [uid_UstIdNr] = @uid_UstIdNr, [uid_Datum] = @uid_Datum, [uid_vali"& _ "d] = @uid_valid, [uid_MaId] = @uid_MaId, [uid_Sachbearbeiter] = @uid_Sachbearbei"& _ "ter, [uid_firma] = @uid_firma, [uid_stufe] = @uid_stufe, [Firma] = @Firma, [uid_"& _ "abfrageUid] = @uid_abfrageUid, [uid_sessionId] = @uid_sessionId, [uid_adr1] = @u"& _ "id_adr1, [uid_adr2] = @uid_adr2, [uid_adr3] = @uid_adr3, [uid_adr4] = @uid_adr4,"& _ " [uid_adr5] = @uid_adr5, [uid_adr6] = @uid_adr6 WHERE (([uid_id] = @Original_uid"& _ "_id) AND ([uid_KundenNr] = @Original_uid_KundenNr) AND ([uid_UstIdKz] = @Origina"& _ "l_uid_UstIdKz) AND ([uid_UstIdNr] = @Original_uid_UstIdNr) AND ([uid_Datum] = @O"& _ "riginal_uid_Datum) AND ([uid_valid] = @Original_uid_valid) AND ((@IsNull_uid_MaI"& _ "d = 1 AND [uid_MaId] IS NULL) OR ([uid_MaId] = @Original_uid_MaId)) AND ([uid_Sa"& _ "chbearbeiter] = @Original_uid_Sachbearbeiter) AND ((@IsNull_uid_firma = 1 AND [u"& _ "id_firma] IS NULL) OR ([uid_firma] = @Original_uid_firma)) AND ([uid_stufe] = @O"& _ "riginal_uid_stufe) AND ([Firma] = @Original_Firma) AND ((@IsNull_uid_abfrageUid "& _ "= 1 AND [uid_abfrageUid] IS NULL) OR ([uid_abfrageUid] = @Original_uid_abfrageUi"& _ "d)) AND ((@IsNull_uid_sessionId = 1 AND [uid_sessionId] IS NULL) OR ([uid_sessio"& _ "nId] = @Original_uid_sessionId)) AND ((@IsNull_uid_adr1 = 1 AND [uid_adr1] IS NU"& _ "LL) OR ([uid_adr1] = @Original_uid_adr1)) AND ((@IsNull_uid_adr2 = 1 AND [uid_ad"& _ "r2] IS NULL) OR ([uid_adr2] = @Original_uid_adr2)) AND ((@IsNull_uid_adr3 = 1 AN"& _ "D [uid_adr3] IS NULL) OR ([uid_adr3] = @Original_uid_adr3)) AND ((@IsNull_uid_ad"& _ "r4 = 1 AND [uid_adr4] IS NULL) OR ([uid_adr4] = @Original_uid_adr4)) AND ((@IsNu"& _ "ll_uid_adr5 = 1 AND [uid_adr5] IS NULL) OR ([uid_adr5] = @Original_uid_adr5)) AN"& _ "D ((@IsNull_uid_adr6 = 1 AND [uid_adr6] IS NULL) OR ([uid_adr6] = @Original_uid_"& _ "adr6)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT uid_id, uid_KundenNr, uid_UstIdKz, uid_UstIdNr, uid_Datum, uid_"& _ "valid, uid_MaId, uid_Sachbearbeiter, uid_firma, uid_stufe, Firma, uid_abfrageUid"& _ ", uid_sessionId, uid_adr1, uid_adr2, uid_adr3, uid_adr4, uid_adr5, uid_adr6 FROM"& _ " tblUIDPruefung WHERE (uid_id = @uid_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_UstIdKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_UstIdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_valid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_MaId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_stufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_stufe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_abfrageUid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_abfrageUid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_sessionId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_sessionId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_adr6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_UstIdKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_UstIdKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_UstIdNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_UstIdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_valid", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_valid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_MaId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_MaId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_MaId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_firma", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_firma", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_stufe", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_stufe", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_abfrageUid", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_abfrageUid", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_abfrageUid", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_abfrageUid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_sessionId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_sessionId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_sessionId", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_sessionId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_uid_adr6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_uid_adr6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_adr6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@uid_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "uid_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 uid_id, uid_KundenNr, uid_UstIdKz, uid_UstIdNr, uid_Datum, uid_valid, uid_"& _ "MaId, uid_Sachbearbeiter, uid_firma, uid_stufe, Firma, uid_abfrageUid, uid_sessi"& _ "onId, uid_adr1, uid_adr2, uid_adr3, uid_adr4, uid_adr5, uid_adr6 FROM dbo.tblUID"& _ "Pruefung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUIDPruefungDataTable) 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 VERAGDataSet.tblUIDPruefungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUIDPruefungDataTable = New VERAGDataSet.tblUIDPruefungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUIDPruefungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUIDPruefung") 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_uid_id As Integer, _ ByVal Original_uid_KundenNr As Integer, _ ByVal Original_uid_UstIdKz As String, _ ByVal Original_uid_UstIdNr As String, _ ByVal Original_uid_Datum As Date, _ ByVal Original_uid_valid As Boolean, _ ByVal Original_uid_MaId As Global.System.Nullable(Of Integer), _ ByVal Original_uid_Sachbearbeiter As String, _ ByVal Original_uid_firma As String, _ ByVal Original_uid_stufe As Integer, _ ByVal Original_Firma As String, _ ByVal Original_uid_abfrageUid As String, _ ByVal Original_uid_sessionId As String, _ ByVal Original_uid_adr1 As String, _ ByVal Original_uid_adr2 As String, _ ByVal Original_uid_adr3 As String, _ ByVal Original_uid_adr4 As String, _ ByVal Original_uid_adr5 As String, _ ByVal Original_uid_adr6 As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_uid_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_uid_KundenNr,Integer) If (Original_uid_UstIdKz Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_uid_UstIdKz") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_uid_UstIdKz,String) End If If (Original_uid_UstIdNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_uid_UstIdNr") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_uid_UstIdNr,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_uid_Datum,Date) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_uid_valid,Boolean) If (Original_uid_MaId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_uid_MaId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_uid_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_uid_Sachbearbeiter") Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_uid_Sachbearbeiter,String) End If If (Original_uid_firma 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_uid_firma,String) End If Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_uid_stufe,Integer) If (Original_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Firma") Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Firma,String) End If If (Original_uid_abfrageUid 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_uid_abfrageUid,String) End If If (Original_uid_sessionId Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_uid_sessionId,String) End If If (Original_uid_adr1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_uid_adr1,String) End If If (Original_uid_adr2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_uid_adr2,String) End If If (Original_uid_adr3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_uid_adr3,String) End If If (Original_uid_adr4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_uid_adr4,String) End If If (Original_uid_adr5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_uid_adr5,String) End If If (Original_uid_adr6 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_uid_adr6,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 uid_KundenNr As Integer, _ ByVal uid_UstIdKz As String, _ ByVal uid_UstIdNr As String, _ ByVal uid_Datum As Date, _ ByVal uid_valid As Boolean, _ ByVal uid_MaId As Global.System.Nullable(Of Integer), _ ByVal uid_Sachbearbeiter As String, _ ByVal uid_firma As String, _ ByVal uid_stufe As Integer, _ ByVal Firma As String, _ ByVal uid_abfrageUid As String, _ ByVal uid_sessionId As String, _ ByVal uid_adr1 As String, _ ByVal uid_adr2 As String, _ ByVal uid_adr3 As String, _ ByVal uid_adr4 As String, _ ByVal uid_adr5 As String, _ ByVal uid_adr6 As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(uid_KundenNr,Integer) If (uid_UstIdKz Is Nothing) Then Throw New Global.System.ArgumentNullException("uid_UstIdKz") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(uid_UstIdKz,String) End If If (uid_UstIdNr Is Nothing) Then Throw New Global.System.ArgumentNullException("uid_UstIdNr") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(uid_UstIdNr,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(uid_Datum,Date) Me.Adapter.InsertCommand.Parameters(4).Value = CType(uid_valid,Boolean) If (uid_MaId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(uid_MaId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (uid_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("uid_Sachbearbeiter") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(uid_Sachbearbeiter,String) End If If (uid_firma Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(uid_firma,String) End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(uid_stufe,Integer) If (Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Firma,String) End If If (uid_abfrageUid Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(uid_abfrageUid,String) End If If (uid_sessionId Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(uid_sessionId,String) End If If (uid_adr1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(uid_adr1,String) End If If (uid_adr2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(uid_adr2,String) End If If (uid_adr3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(uid_adr3,String) End If If (uid_adr4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(uid_adr4,String) End If If (uid_adr5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(uid_adr5,String) End If If (uid_adr6 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(uid_adr6,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 uid_KundenNr As Integer, _ ByVal uid_UstIdKz As String, _ ByVal uid_UstIdNr As String, _ ByVal uid_Datum As Date, _ ByVal uid_valid As Boolean, _ ByVal uid_MaId As Global.System.Nullable(Of Integer), _ ByVal uid_Sachbearbeiter As String, _ ByVal uid_firma As String, _ ByVal uid_stufe As Integer, _ ByVal Firma As String, _ ByVal uid_abfrageUid As String, _ ByVal uid_sessionId As String, _ ByVal uid_adr1 As String, _ ByVal uid_adr2 As String, _ ByVal uid_adr3 As String, _ ByVal uid_adr4 As String, _ ByVal uid_adr5 As String, _ ByVal uid_adr6 As String, _ ByVal Original_uid_id As Integer, _ ByVal Original_uid_KundenNr As Integer, _ ByVal Original_uid_UstIdKz As String, _ ByVal Original_uid_UstIdNr As String, _ ByVal Original_uid_Datum As Date, _ ByVal Original_uid_valid As Boolean, _ ByVal Original_uid_MaId As Global.System.Nullable(Of Integer), _ ByVal Original_uid_Sachbearbeiter As String, _ ByVal Original_uid_firma As String, _ ByVal Original_uid_stufe As Integer, _ ByVal Original_Firma As String, _ ByVal Original_uid_abfrageUid As String, _ ByVal Original_uid_sessionId As String, _ ByVal Original_uid_adr1 As String, _ ByVal Original_uid_adr2 As String, _ ByVal Original_uid_adr3 As String, _ ByVal Original_uid_adr4 As String, _ ByVal Original_uid_adr5 As String, _ ByVal Original_uid_adr6 As String, _ ByVal uid_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(uid_KundenNr,Integer) If (uid_UstIdKz Is Nothing) Then Throw New Global.System.ArgumentNullException("uid_UstIdKz") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(uid_UstIdKz,String) End If If (uid_UstIdNr Is Nothing) Then Throw New Global.System.ArgumentNullException("uid_UstIdNr") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(uid_UstIdNr,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(uid_Datum,Date) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(uid_valid,Boolean) If (uid_MaId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(uid_MaId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (uid_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("uid_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(uid_Sachbearbeiter,String) End If If (uid_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(uid_firma,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(uid_stufe,Integer) If (Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Firma") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Firma,String) End If If (uid_abfrageUid Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(uid_abfrageUid,String) End If If (uid_sessionId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(uid_sessionId,String) End If If (uid_adr1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(uid_adr1,String) End If If (uid_adr2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(uid_adr2,String) End If If (uid_adr3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(uid_adr3,String) End If If (uid_adr4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(uid_adr4,String) End If If (uid_adr5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(uid_adr5,String) End If If (uid_adr6 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(uid_adr6,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_uid_id,Integer) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_uid_KundenNr,Integer) If (Original_uid_UstIdKz Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_uid_UstIdKz") Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_uid_UstIdKz,String) End If If (Original_uid_UstIdNr Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_uid_UstIdNr") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_uid_UstIdNr,String) End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_uid_Datum,Date) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_uid_valid,Boolean) If (Original_uid_MaId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_uid_MaId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_uid_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_uid_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_uid_Sachbearbeiter,String) End If If (Original_uid_firma Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_uid_firma,String) End If Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_uid_stufe,Integer) If (Original_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Firma") Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Firma,String) End If If (Original_uid_abfrageUid 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_uid_abfrageUid,String) End If If (Original_uid_sessionId Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_uid_sessionId,String) End If If (Original_uid_adr1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_uid_adr1,String) End If If (Original_uid_adr2 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_uid_adr2,String) End If If (Original_uid_adr3 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_uid_adr3,String) End If If (Original_uid_adr4 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_uid_adr4,String) End If If (Original_uid_adr5 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_uid_adr5,String) End If If (Original_uid_adr6 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_uid_adr6,String) End If Me.Adapter.UpdateCommand.Parameters(47).Value = CType(uid_id,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 uid_KundenNr As Integer, _ ByVal uid_UstIdKz As String, _ ByVal uid_UstIdNr As String, _ ByVal uid_Datum As Date, _ ByVal uid_valid As Boolean, _ ByVal uid_MaId As Global.System.Nullable(Of Integer), _ ByVal uid_Sachbearbeiter As String, _ ByVal uid_firma As String, _ ByVal uid_stufe As Integer, _ ByVal Firma As String, _ ByVal uid_abfrageUid As String, _ ByVal uid_sessionId As String, _ ByVal uid_adr1 As String, _ ByVal uid_adr2 As String, _ ByVal uid_adr3 As String, _ ByVal uid_adr4 As String, _ ByVal uid_adr5 As String, _ ByVal uid_adr6 As String, _ ByVal Original_uid_id As Integer, _ ByVal Original_uid_KundenNr As Integer, _ ByVal Original_uid_UstIdKz As String, _ ByVal Original_uid_UstIdNr As String, _ ByVal Original_uid_Datum As Date, _ ByVal Original_uid_valid As Boolean, _ ByVal Original_uid_MaId As Global.System.Nullable(Of Integer), _ ByVal Original_uid_Sachbearbeiter As String, _ ByVal Original_uid_firma As String, _ ByVal Original_uid_stufe As Integer, _ ByVal Original_Firma As String, _ ByVal Original_uid_abfrageUid As String, _ ByVal Original_uid_sessionId As String, _ ByVal Original_uid_adr1 As String, _ ByVal Original_uid_adr2 As String, _ ByVal Original_uid_adr3 As String, _ ByVal Original_uid_adr4 As String, _ ByVal Original_uid_adr5 As String, _ ByVal Original_uid_adr6 As String) As Integer Return Me.Update(uid_KundenNr, uid_UstIdKz, uid_UstIdNr, uid_Datum, uid_valid, uid_MaId, uid_Sachbearbeiter, uid_firma, uid_stufe, Firma, uid_abfrageUid, uid_sessionId, uid_adr1, uid_adr2, uid_adr3, uid_adr4, uid_adr5, uid_adr6, Original_uid_id, Original_uid_KundenNr, Original_uid_UstIdKz, Original_uid_UstIdNr, Original_uid_Datum, Original_uid_valid, Original_uid_MaId, Original_uid_Sachbearbeiter, Original_uid_firma, Original_uid_stufe, Original_Firma, Original_uid_abfrageUid, Original_uid_sessionId, Original_uid_adr1, Original_uid_adr2, Original_uid_adr3, Original_uid_adr4, Original_uid_adr5, Original_uid_adr6, Original_uid_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUStVAntragTableAdapter 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 = "tblUStVAntrag" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVAn_KuNr", "UStVAn_KuNr") tableMapping.ColumnMappings.Add("UStVAn_Name", "UStVAn_Name") tableMapping.ColumnMappings.Add("UStVAn_Straße", "UStVAn_Straße") tableMapping.ColumnMappings.Add("UStVAn_LandKz", "UStVAn_LandKz") tableMapping.ColumnMappings.Add("UStVAn_PLZ", "UStVAn_PLZ") tableMapping.ColumnMappings.Add("UStVAn_Ort", "UStVAn_Ort") tableMapping.ColumnMappings.Add("UStVAn_Land", "UStVAn_Land") tableMapping.ColumnMappings.Add("UStVAn_Gewerbe", "UStVAn_Gewerbe") tableMapping.ColumnMappings.Add("UStVAn_Steuernummer", "UStVAn_Steuernummer") tableMapping.ColumnMappings.Add("UStVAn_ReDatVon", "UStVAn_ReDatVon") tableMapping.ColumnMappings.Add("UStVAn_ReDatBis", "UStVAn_ReDatBis") tableMapping.ColumnMappings.Add("UStVAn_Bankverbindung", "UStVAn_Bankverbindung") tableMapping.ColumnMappings.Add("UStVAn_BLZ", "UStVAn_BLZ") tableMapping.ColumnMappings.Add("UStVAn_KTO", "UStVAn_KTO") tableMapping.ColumnMappings.Add("UStVAn_Kontoinhaber", "UStVAn_Kontoinhaber") tableMapping.ColumnMappings.Add("UStVAn_BIC", "UStVAn_BIC") tableMapping.ColumnMappings.Add("UStVAn_IBAN", "UStVAn_IBAN") tableMapping.ColumnMappings.Add("UStVAn_Anlagen", "UStVAn_Anlagen") tableMapping.ColumnMappings.Add("UStVAn_Rechnungen", "UStVAn_Rechnungen") tableMapping.ColumnMappings.Add("UStVAn_Einfuhrdokumente", "UStVAn_Einfuhrdokumente") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_a", "UStVAn_Erklärung_9_a") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_1", "UStVAn_Erklärung_9_b_1") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_2", "UStVAn_Erklärung_9_b_2") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_3", "UStVAn_Erklärung_9_b_3") tableMapping.ColumnMappings.Add("UStVAn_Ausstellungsort", "UStVAn_Ausstellungsort") tableMapping.ColumnMappings.Add("UStVAn_Ausstellungsdatum", "UStVAn_Ausstellungsdatum") tableMapping.ColumnMappings.Add("UStVAn_Unterschrift", "UStVAn_Unterschrift") tableMapping.ColumnMappings.Add("UStVAn_LandNr", "UStVAn_LandNr") tableMapping.ColumnMappings.Add("UStVAn_Beleganzahl", "UStVAn_Beleganzahl") tableMapping.ColumnMappings.Add("UStVAn_BeleganzahlRetourniert", "UStVAn_BeleganzahlRetourniert") tableMapping.ColumnMappings.Add("UStVAn_Retournierungsgrund", "UStVAn_Retournierungsgrund") tableMapping.ColumnMappings.Add("UStVAn_AntragEingereichtAm", "UStVAn_AntragEingereichtAm") tableMapping.ColumnMappings.Add("UStVAn_BelegeWeitergeleitetAm", "UStVAn_BelegeWeitergeleitetAm") tableMapping.ColumnMappings.Add("UStVAn_Vertreter", "UStVAn_Vertreter") tableMapping.ColumnMappings.Add("UStVAn_BezugsNr", "UStVAn_BezugsNr") tableMapping.ColumnMappings.Add("UStVAn_3470", "UStVAn_3470") tableMapping.ColumnMappings.Add("UStVAn_VZBetrag", "UStVAn_VZBetrag") tableMapping.ColumnMappings.Add("UStVAn_VZDatum", "UStVAn_VZDatum") tableMapping.ColumnMappings.Add("UStVAn_RZBetragVZ", "UStVAn_RZBetragVZ") tableMapping.ColumnMappings.Add("UStVAn_RZDatumVZ", "UStVAn_RZDatumVZ") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UStVAn_Währungscode", "UStVAn_Währungscode") tableMapping.ColumnMappings.Add("UStVAn_USteuerbetrag", "UStVAn_USteuerbetrag") tableMapping.ColumnMappings.Add("UStVAn_Erstattungsbetrag", "UStVAn_Erstattungsbetrag") tableMapping.ColumnMappings.Add("UStVAn_USteuerbetragEUR", "UStVAn_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVAn_ErstattungsbetragEUR", "UStVAn_ErstattungsbetragEUR") tableMapping.ColumnMappings.Add("UStVAn_Sachbearbeiter", "UStVAn_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVAn_Status", "UStVAn_Status") tableMapping.ColumnMappings.Add("UStVAn_StatusText", "UStVAn_StatusText") tableMapping.ColumnMappings.Add("UStVAn_AntragArt", "UStVAn_AntragArt") tableMapping.ColumnMappings.Add("UStVAn_Zeitstempel", "UStVAn_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUStVAntrag] WHERE (([UStVAn_ID] = @Original_UStVAn_ID) AND "& _ "((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_ups"& _ "ize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUStVAntrag] ([UStVAn_KuNr], [UStVAn_Name], [UStVAn_Straße],"& _ " [UStVAn_LandKz], [UStVAn_PLZ], [UStVAn_Ort], [UStVAn_Land], [UStVAn_Gewerbe], ["& _ "UStVAn_Steuernummer], [UStVAn_ReDatVon], [UStVAn_ReDatBis], [UStVAn_Bankverbindu"& _ "ng], [UStVAn_BLZ], [UStVAn_KTO], [UStVAn_Kontoinhaber], [UStVAn_BIC], [UStVAn_IB"& _ "AN], [UStVAn_Anlagen], [UStVAn_Rechnungen], [UStVAn_Einfuhrdokumente], [UStVAn_E"& _ "rklärung_9_a], [UStVAn_Erklärung_9_b_1], [UStVAn_Erklärung_9_b_2], [UStVAn_Erklä"& _ "rung_9_b_3], [UStVAn_Ausstellungsort], [UStVAn_Ausstellungsdatum], [UStVAn_Unter"& _ "schrift], [UStVAn_LandNr], [UStVAn_Beleganzahl], [UStVAn_BeleganzahlRetourniert]"& _ ", [UStVAn_Retournierungsgrund], [UStVAn_AntragEingereichtAm], [UStVAn_BelegeWeit"& _ "ergeleitetAm], [UStVAn_Vertreter], [UStVAn_BezugsNr], [UStVAn_3470], [UStVAn_VZB"& _ "etrag], [UStVAn_VZDatum], [UStVAn_RZBetragVZ], [UStVAn_RZDatumVZ], [FilialenNr],"& _ " [AbfertigungsNr], [UStVAn_Währungscode], [UStVAn_USteuerbetrag], [UStVAn_Erstat"& _ "tungsbetrag], [UStVAn_USteuerbetragEUR], [UStVAn_ErstattungsbetragEUR], [UStVAn_"& _ "Sachbearbeiter], [UStVAn_Status], [UStVAn_StatusText], [UStVAn_AntragArt], [UStV"& _ "An_Zeitstempel]) VALUES (@UStVAn_KuNr, @UStVAn_Name, @UStVAn_Straße, @UStVAn_Lan"& _ "dKz, @UStVAn_PLZ, @UStVAn_Ort, @UStVAn_Land, @UStVAn_Gewerbe, @UStVAn_Steuernumm"& _ "er, @UStVAn_ReDatVon, @UStVAn_ReDatBis, @UStVAn_Bankverbindung, @UStVAn_BLZ, @US"& _ "tVAn_KTO, @UStVAn_Kontoinhaber, @UStVAn_BIC, @UStVAn_IBAN, @UStVAn_Anlagen, @USt"& _ "VAn_Rechnungen, @UStVAn_Einfuhrdokumente, @UStVAn_Erklärung_9_a, @UStVAn_Erkläru"& _ "ng_9_b_1, @UStVAn_Erklärung_9_b_2, @UStVAn_Erklärung_9_b_3, @UStVAn_Ausstellungs"& _ "ort, @UStVAn_Ausstellungsdatum, @UStVAn_Unterschrift, @UStVAn_LandNr, @UStVAn_Be"& _ "leganzahl, @UStVAn_BeleganzahlRetourniert, @UStVAn_Retournierungsgrund, @UStVAn_"& _ "AntragEingereichtAm, @UStVAn_BelegeWeitergeleitetAm, @UStVAn_Vertreter, @UStVAn_"& _ "BezugsNr, @UStVAn_3470, @UStVAn_VZBetrag, @UStVAn_VZDatum, @UStVAn_RZBetragVZ, @"& _ "UStVAn_RZDatumVZ, @FilialenNr, @AbfertigungsNr, @UStVAn_Währungscode, @UStVAn_US"& _ "teuerbetrag, @UStVAn_Erstattungsbetrag, @UStVAn_USteuerbetragEUR, @UStVAn_Erstat"& _ "tungsbetragEUR, @UStVAn_Sachbearbeiter, @UStVAn_Status, @UStVAn_StatusText, @USt"& _ "VAn_AntragArt, @UStVAn_Zeitstempel);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVAn_ID, UStVAn_KuNr, UStVAn_Name"& _ ", UStVAn_Straße, UStVAn_LandKz, UStVAn_PLZ, UStVAn_Ort, UStVAn_Land, UStVAn_Gewe"& _ "rbe, UStVAn_Steuernummer, UStVAn_ReDatVon, UStVAn_ReDatBis, UStVAn_Bankverbindun"& _ "g, UStVAn_BLZ, UStVAn_KTO, UStVAn_Kontoinhaber, UStVAn_BIC, UStVAn_IBAN, UStVAn_"& _ "Anlagen, UStVAn_Rechnungen, UStVAn_Einfuhrdokumente, UStVAn_Erklärung_9_a, UStVA"& _ "n_Erklärung_9_b_1, UStVAn_Erklärung_9_b_2, UStVAn_Erklärung_9_b_3, UStVAn_Ausste"& _ "llungsort, UStVAn_Ausstellungsdatum, UStVAn_Unterschrift, UStVAn_LandNr, UStVAn_"& _ "Beleganzahl, UStVAn_BeleganzahlRetourniert, UStVAn_Retournierungsgrund, UStVAn_A"& _ "ntragEingereichtAm, UStVAn_BelegeWeitergeleitetAm, UStVAn_Vertreter, UStVAn_Bezu"& _ "gsNr, UStVAn_3470, UStVAn_VZBetrag, UStVAn_VZDatum, UStVAn_RZBetragVZ, UStVAn_RZ"& _ "DatumVZ, FilialenNr, AbfertigungsNr, UStVAn_Währungscode, UStVAn_USteuerbetrag, "& _ "UStVAn_Erstattungsbetrag, UStVAn_USteuerbetragEUR, UStVAn_ErstattungsbetragEUR, "& _ "UStVAn_Sachbearbeiter, UStVAn_Status, UStVAn_StatusText, UStVAn_AntragArt, UStVA"& _ "n_Zeitstempel, upsize_ts FROM tblUStVAntrag WHERE (UStVAn_ID = SCOPE_IDENTITY())"& _ "" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_KuNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_KuNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Gewerbe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Gewerbe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Steuernummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Steuernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ReDatVon", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ReDatVon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ReDatBis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ReDatBis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Bankverbindung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Bankverbindung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_BLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_KTO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_KTO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Kontoinhaber", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Kontoinhaber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BIC", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_BIC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_IBAN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_IBAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Anlagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Anlagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Rechnungen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Rechnungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Einfuhrdokumente", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Einfuhrdokumente", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_a", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Erklärung_9_a", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_b_1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Erklärung_9_b_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_b_2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Erklärung_9_b_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_b_3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Erklärung_9_b_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Ausstellungsort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Ausstellungsort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Ausstellungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Ausstellungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Unterschrift", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Unterschrift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Beleganzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Beleganzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BeleganzahlRetourniert", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_BeleganzahlRetourniert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Retournierungsgrund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Retournierungsgrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_AntragEingereichtAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_AntragEingereichtAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BelegeWeitergeleitetAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_BelegeWeitergeleitetAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Vertreter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Vertreter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BezugsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_3470", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_3470", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_VZBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_VZBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_VZDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_VZDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_RZBetragVZ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_RZBetragVZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_RZDatumVZ", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_RZDatumVZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_USteuerbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_USteuerbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erstattungsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Erstattungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_USteuerbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_USteuerbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ErstattungsbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ErstattungsbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_StatusText", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_StatusText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_AntragArt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_AntragArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Zeitstempel", 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].[tblUStVAntrag] SET [UStVAn_KuNr] = @UStVAn_KuNr, [UStVAn_Name] = @U"& _ "StVAn_Name, [UStVAn_Straße] = @UStVAn_Straße, [UStVAn_LandKz] = @UStVAn_LandKz, "& _ "[UStVAn_PLZ] = @UStVAn_PLZ, [UStVAn_Ort] = @UStVAn_Ort, [UStVAn_Land] = @UStVAn_"& _ "Land, [UStVAn_Gewerbe] = @UStVAn_Gewerbe, [UStVAn_Steuernummer] = @UStVAn_Steuer"& _ "nummer, [UStVAn_ReDatVon] = @UStVAn_ReDatVon, [UStVAn_ReDatBis] = @UStVAn_ReDatB"& _ "is, [UStVAn_Bankverbindung] = @UStVAn_Bankverbindung, [UStVAn_BLZ] = @UStVAn_BLZ"& _ ", [UStVAn_KTO] = @UStVAn_KTO, [UStVAn_Kontoinhaber] = @UStVAn_Kontoinhaber, [USt"& _ "VAn_BIC] = @UStVAn_BIC, [UStVAn_IBAN] = @UStVAn_IBAN, [UStVAn_Anlagen] = @UStVAn"& _ "_Anlagen, [UStVAn_Rechnungen] = @UStVAn_Rechnungen, [UStVAn_Einfuhrdokumente] = "& _ "@UStVAn_Einfuhrdokumente, [UStVAn_Erklärung_9_a] = @UStVAn_Erklärung_9_a, [UStVA"& _ "n_Erklärung_9_b_1] = @UStVAn_Erklärung_9_b_1, [UStVAn_Erklärung_9_b_2] = @UStVAn"& _ "_Erklärung_9_b_2, [UStVAn_Erklärung_9_b_3] = @UStVAn_Erklärung_9_b_3, [UStVAn_Au"& _ "sstellungsort] = @UStVAn_Ausstellungsort, [UStVAn_Ausstellungsdatum] = @UStVAn_A"& _ "usstellungsdatum, [UStVAn_Unterschrift] = @UStVAn_Unterschrift, [UStVAn_LandNr] "& _ "= @UStVAn_LandNr, [UStVAn_Beleganzahl] = @UStVAn_Beleganzahl, [UStVAn_Beleganzah"& _ "lRetourniert] = @UStVAn_BeleganzahlRetourniert, [UStVAn_Retournierungsgrund] = @"& _ "UStVAn_Retournierungsgrund, [UStVAn_AntragEingereichtAm] = @UStVAn_AntragEingere"& _ "ichtAm, [UStVAn_BelegeWeitergeleitetAm] = @UStVAn_BelegeWeitergeleitetAm, [UStVA"& _ "n_Vertreter] = @UStVAn_Vertreter, [UStVAn_BezugsNr] = @UStVAn_BezugsNr, [UStVAn_"& _ "3470] = @UStVAn_3470, [UStVAn_VZBetrag] = @UStVAn_VZBetrag, [UStVAn_VZDatum] = @"& _ "UStVAn_VZDatum, [UStVAn_RZBetragVZ] = @UStVAn_RZBetragVZ, [UStVAn_RZDatumVZ] = @"& _ "UStVAn_RZDatumVZ, [FilialenNr] = @FilialenNr, [AbfertigungsNr] = @AbfertigungsNr"& _ ", [UStVAn_Währungscode] = @UStVAn_Währungscode, [UStVAn_USteuerbetrag] = @UStVAn"& _ "_USteuerbetrag, [UStVAn_Erstattungsbetrag] = @UStVAn_Erstattungsbetrag, [UStVAn_"& _ "USteuerbetragEUR] = @UStVAn_USteuerbetragEUR, [UStVAn_ErstattungsbetragEUR] = @U"& _ "StVAn_ErstattungsbetragEUR, [UStVAn_Sachbearbeiter] = @UStVAn_Sachbearbeiter, [U"& _ "StVAn_Status] = @UStVAn_Status, [UStVAn_StatusText] = @UStVAn_StatusText, [UStVA"& _ "n_AntragArt] = @UStVAn_AntragArt, [UStVAn_Zeitstempel] = @UStVAn_Zeitstempel WHE"& _ "RE (([UStVAn_ID] = @Original_UStVAn_ID) AND ((@IsNull_upsize_ts = 1 AND [upsize_"& _ "ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVAn_ID, UStVAn"& _ "_KuNr, UStVAn_Name, UStVAn_Straße, UStVAn_LandKz, UStVAn_PLZ, UStVAn_Ort, UStVAn"& _ "_Land, UStVAn_Gewerbe, UStVAn_Steuernummer, UStVAn_ReDatVon, UStVAn_ReDatBis, US"& _ "tVAn_Bankverbindung, UStVAn_BLZ, UStVAn_KTO, UStVAn_Kontoinhaber, UStVAn_BIC, US"& _ "tVAn_IBAN, UStVAn_Anlagen, UStVAn_Rechnungen, UStVAn_Einfuhrdokumente, UStVAn_Er"& _ "klärung_9_a, UStVAn_Erklärung_9_b_1, UStVAn_Erklärung_9_b_2, UStVAn_Erklärung_9_"& _ "b_3, UStVAn_Ausstellungsort, UStVAn_Ausstellungsdatum, UStVAn_Unterschrift, UStV"& _ "An_LandNr, UStVAn_Beleganzahl, UStVAn_BeleganzahlRetourniert, UStVAn_Retournieru"& _ "ngsgrund, UStVAn_AntragEingereichtAm, UStVAn_BelegeWeitergeleitetAm, UStVAn_Vert"& _ "reter, UStVAn_BezugsNr, UStVAn_3470, UStVAn_VZBetrag, UStVAn_VZDatum, UStVAn_RZB"& _ "etragVZ, UStVAn_RZDatumVZ, FilialenNr, AbfertigungsNr, UStVAn_Währungscode, UStV"& _ "An_USteuerbetrag, UStVAn_Erstattungsbetrag, UStVAn_USteuerbetragEUR, UStVAn_Erst"& _ "attungsbetragEUR, UStVAn_Sachbearbeiter, UStVAn_Status, UStVAn_StatusText, UStVA"& _ "n_AntragArt, UStVAn_Zeitstempel, upsize_ts FROM tblUStVAntrag WHERE (UStVAn_ID ="& _ " @UStVAn_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_KuNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_KuNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Straße", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Straße", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Ort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Gewerbe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Gewerbe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Steuernummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Steuernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ReDatVon", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ReDatVon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ReDatBis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ReDatBis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Bankverbindung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Bankverbindung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_BLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_KTO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_KTO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Kontoinhaber", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Kontoinhaber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BIC", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_BIC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_IBAN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_IBAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Anlagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Anlagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Rechnungen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Rechnungen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Einfuhrdokumente", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Einfuhrdokumente", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_a", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Erklärung_9_a", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_b_1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Erklärung_9_b_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_b_2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Erklärung_9_b_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_b_3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Erklärung_9_b_3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Ausstellungsort", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Ausstellungsort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Ausstellungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Ausstellungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Unterschrift", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Unterschrift", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Beleganzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Beleganzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BeleganzahlRetourniert", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_BeleganzahlRetourniert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Retournierungsgrund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Retournierungsgrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_AntragEingereichtAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_AntragEingereichtAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BelegeWeitergeleitetAm", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_BelegeWeitergeleitetAm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Vertreter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Vertreter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BezugsNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_BezugsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_3470", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_3470", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_VZBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_VZBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_VZDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_VZDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_RZBetragVZ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_RZBetragVZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_RZDatumVZ", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_RZDatumVZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_USteuerbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_USteuerbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erstattungsbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Erstattungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_USteuerbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_USteuerbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ErstattungsbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ErstattungsbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_StatusText", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_StatusText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_AntragArt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_AntragArt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVAn_ID, UStVAn_KuNr, UStVAn_Name, UStVAn_Straße, UStVAn_LandKz, UStVAn_"& _ "PLZ, UStVAn_Ort, UStVAn_Land, UStVAn_Gewerbe, UStVAn_Steuernummer, UStVAn_ReDatV"& _ "on, UStVAn_ReDatBis, UStVAn_Bankverbindung, UStVAn_BLZ, UStVAn_KTO, UStVAn_Konto"& _ "inhaber, UStVAn_BIC, UStVAn_IBAN, UStVAn_Anlagen, UStVAn_Rechnungen, UStVAn_Einf"& _ "uhrdokumente, UStVAn_Erklärung_9_a, UStVAn_Erklärung_9_b_1, UStVAn_Erklärung_9_b"& _ "_2, UStVAn_Erklärung_9_b_3, UStVAn_Ausstellungsort, UStVAn_Ausstellungsdatum, US"& _ "tVAn_Unterschrift, UStVAn_LandNr, UStVAn_Beleganzahl, UStVAn_BeleganzahlRetourni"& _ "ert, UStVAn_Retournierungsgrund, UStVAn_AntragEingereichtAm, UStVAn_BelegeWeiter"& _ "geleitetAm, UStVAn_Vertreter, UStVAn_BezugsNr, UStVAn_3470, UStVAn_VZBetrag, USt"& _ "VAn_VZDatum, UStVAn_RZBetragVZ, UStVAn_RZDatumVZ, FilialenNr, AbfertigungsNr, US"& _ "tVAn_Währungscode, UStVAn_USteuerbetrag, UStVAn_Erstattungsbetrag, UStVAn_USteue"& _ "rbetragEUR, UStVAn_ErstattungsbetragEUR, UStVAn_Sachbearbeiter, UStVAn_Status, U"& _ "StVAn_StatusText, UStVAn_AntragArt, UStVAn_Zeitstempel, upsize_ts FROM dbo.tblUS"& _ "tVAntrag" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUStVAntragDataTable) 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 VERAGDataSet.tblUStVAntragDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUStVAntragDataTable = New VERAGDataSet.tblUStVAntragDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUStVAntragDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUStVAntrag") 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_UStVAn_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UStVAn_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 UStVAn_KuNr As Integer, _ ByVal UStVAn_Name As String, _ ByVal UStVAn_Straße As String, _ ByVal UStVAn_LandKz As String, _ ByVal UStVAn_PLZ As String, _ ByVal UStVAn_Ort As String, _ ByVal UStVAn_Land As String, _ ByVal UStVAn_Gewerbe As String, _ ByVal UStVAn_Steuernummer As String, _ ByVal UStVAn_ReDatVon As Date, _ ByVal UStVAn_ReDatBis As Date, _ ByVal UStVAn_Bankverbindung As String, _ ByVal UStVAn_BLZ As String, _ ByVal UStVAn_KTO As String, _ ByVal UStVAn_Kontoinhaber As String, _ ByVal UStVAn_BIC As String, _ ByVal UStVAn_IBAN As String, _ ByVal UStVAn_Anlagen As Global.System.Nullable(Of Short), _ ByVal UStVAn_Rechnungen As Global.System.Nullable(Of Short), _ ByVal UStVAn_Einfuhrdokumente As Global.System.Nullable(Of Short), _ ByVal UStVAn_Erklärung_9_a As String, _ ByVal UStVAn_Erklärung_9_b_1 As Boolean, _ ByVal UStVAn_Erklärung_9_b_2 As Boolean, _ ByVal UStVAn_Erklärung_9_b_3 As Boolean, _ ByVal UStVAn_Ausstellungsort As String, _ ByVal UStVAn_Ausstellungsdatum As Global.System.Nullable(Of Date), _ ByVal UStVAn_Unterschrift As String, _ ByVal UStVAn_LandNr As Short, _ ByVal UStVAn_Beleganzahl As Global.System.Nullable(Of Short), _ ByVal UStVAn_BeleganzahlRetourniert As Global.System.Nullable(Of Short), _ ByVal UStVAn_Retournierungsgrund As String, _ ByVal UStVAn_AntragEingereichtAm As Global.System.Nullable(Of Date), _ ByVal UStVAn_BelegeWeitergeleitetAm As Global.System.Nullable(Of Date), _ ByVal UStVAn_Vertreter As Global.System.Nullable(Of Integer), _ ByVal UStVAn_BezugsNr As String, _ ByVal UStVAn_3470 As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_VZBetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_VZDatum As Global.System.Nullable(Of Date), _ ByVal UStVAn_RZBetragVZ As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_RZDatumVZ As Global.System.Nullable(Of Date), _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UStVAn_Währungscode As String, _ ByVal UStVAn_USteuerbetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_Erstattungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_USteuerbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_ErstattungsbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_Sachbearbeiter As String, _ ByVal UStVAn_Status As Global.System.Nullable(Of Integer), _ ByVal UStVAn_StatusText As String, _ ByVal UStVAn_AntragArt As String, _ ByVal UStVAn_Zeitstempel As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(UStVAn_KuNr,Integer) If (UStVAn_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(UStVAn_Name,String) End If If (UStVAn_Straße Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(UStVAn_Straße,String) End If If (UStVAn_LandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(UStVAn_LandKz,String) End If If (UStVAn_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(UStVAn_PLZ,String) End If If (UStVAn_Ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(UStVAn_Ort,String) End If If (UStVAn_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(UStVAn_Land,String) End If If (UStVAn_Gewerbe Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(UStVAn_Gewerbe,String) End If If (UStVAn_Steuernummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(UStVAn_Steuernummer,String) End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(UStVAn_ReDatVon,Date) Me.Adapter.InsertCommand.Parameters(10).Value = CType(UStVAn_ReDatBis,Date) If (UStVAn_Bankverbindung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(UStVAn_Bankverbindung,String) End If If (UStVAn_BLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(UStVAn_BLZ,String) End If If (UStVAn_KTO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(UStVAn_KTO,String) End If If (UStVAn_Kontoinhaber Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(UStVAn_Kontoinhaber,String) End If If (UStVAn_BIC Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(UStVAn_BIC,String) End If If (UStVAn_IBAN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(UStVAn_IBAN,String) End If If (UStVAn_Anlagen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(UStVAn_Anlagen.Value,Short) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (UStVAn_Rechnungen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(UStVAn_Rechnungen.Value,Short) Else Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (UStVAn_Einfuhrdokumente.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(UStVAn_Einfuhrdokumente.Value,Short) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (UStVAn_Erklärung_9_a Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(UStVAn_Erklärung_9_a,String) End If Me.Adapter.InsertCommand.Parameters(21).Value = CType(UStVAn_Erklärung_9_b_1,Boolean) Me.Adapter.InsertCommand.Parameters(22).Value = CType(UStVAn_Erklärung_9_b_2,Boolean) Me.Adapter.InsertCommand.Parameters(23).Value = CType(UStVAn_Erklärung_9_b_3,Boolean) If (UStVAn_Ausstellungsort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(UStVAn_Ausstellungsort,String) End If If (UStVAn_Ausstellungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(UStVAn_Ausstellungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (UStVAn_Unterschrift Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(UStVAn_Unterschrift,String) End If Me.Adapter.InsertCommand.Parameters(27).Value = CType(UStVAn_LandNr,Short) If (UStVAn_Beleganzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(UStVAn_Beleganzahl.Value,Short) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (UStVAn_BeleganzahlRetourniert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(29).Value = CType(UStVAn_BeleganzahlRetourniert.Value,Short) Else Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (UStVAn_Retournierungsgrund Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(UStVAn_Retournierungsgrund,String) End If If (UStVAn_AntragEingereichtAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(UStVAn_AntragEingereichtAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (UStVAn_BelegeWeitergeleitetAm.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(UStVAn_BelegeWeitergeleitetAm.Value,Date) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (UStVAn_Vertreter.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(33).Value = CType(UStVAn_Vertreter.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (UStVAn_BezugsNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(UStVAn_BezugsNr,String) End If If (UStVAn_3470.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(UStVAn_3470.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (UStVAn_VZBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(36).Value = CType(UStVAn_VZBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (UStVAn_VZDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(37).Value = CType(UStVAn_VZDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (UStVAn_RZBetragVZ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(38).Value = CType(UStVAn_RZBetragVZ.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (UStVAn_RZDatumVZ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(39).Value = CType(UStVAn_RZDatumVZ.Value,Date) Else Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (FilialenNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(41).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (UStVAn_Währungscode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(UStVAn_Währungscode,String) End If If (UStVAn_USteuerbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(UStVAn_USteuerbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (UStVAn_Erstattungsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(44).Value = CType(UStVAn_Erstattungsbetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (UStVAn_USteuerbetragEUR.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(45).Value = CType(UStVAn_USteuerbetragEUR.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (UStVAn_ErstattungsbetragEUR.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(46).Value = CType(UStVAn_ErstattungsbetragEUR.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (UStVAn_Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(UStVAn_Sachbearbeiter,String) End If If (UStVAn_Status.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(UStVAn_Status.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (UStVAn_StatusText Is Nothing) Then Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(49).Value = CType(UStVAn_StatusText,String) End If If (UStVAn_AntragArt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(50).Value = CType(UStVAn_AntragArt,String) End If If (UStVAn_Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(UStVAn_Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(51).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 UStVAn_KuNr As Integer, _ ByVal UStVAn_Name As String, _ ByVal UStVAn_Straße As String, _ ByVal UStVAn_LandKz As String, _ ByVal UStVAn_PLZ As String, _ ByVal UStVAn_Ort As String, _ ByVal UStVAn_Land As String, _ ByVal UStVAn_Gewerbe As String, _ ByVal UStVAn_Steuernummer As String, _ ByVal UStVAn_ReDatVon As Date, _ ByVal UStVAn_ReDatBis As Date, _ ByVal UStVAn_Bankverbindung As String, _ ByVal UStVAn_BLZ As String, _ ByVal UStVAn_KTO As String, _ ByVal UStVAn_Kontoinhaber As String, _ ByVal UStVAn_BIC As String, _ ByVal UStVAn_IBAN As String, _ ByVal UStVAn_Anlagen As Global.System.Nullable(Of Short), _ ByVal UStVAn_Rechnungen As Global.System.Nullable(Of Short), _ ByVal UStVAn_Einfuhrdokumente As Global.System.Nullable(Of Short), _ ByVal UStVAn_Erklärung_9_a As String, _ ByVal UStVAn_Erklärung_9_b_1 As Boolean, _ ByVal UStVAn_Erklärung_9_b_2 As Boolean, _ ByVal UStVAn_Erklärung_9_b_3 As Boolean, _ ByVal UStVAn_Ausstellungsort As String, _ ByVal UStVAn_Ausstellungsdatum As Global.System.Nullable(Of Date), _ ByVal UStVAn_Unterschrift As String, _ ByVal UStVAn_LandNr As Short, _ ByVal UStVAn_Beleganzahl As Global.System.Nullable(Of Short), _ ByVal UStVAn_BeleganzahlRetourniert As Global.System.Nullable(Of Short), _ ByVal UStVAn_Retournierungsgrund As String, _ ByVal UStVAn_AntragEingereichtAm As Global.System.Nullable(Of Date), _ ByVal UStVAn_BelegeWeitergeleitetAm As Global.System.Nullable(Of Date), _ ByVal UStVAn_Vertreter As Global.System.Nullable(Of Integer), _ ByVal UStVAn_BezugsNr As String, _ ByVal UStVAn_3470 As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_VZBetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_VZDatum As Global.System.Nullable(Of Date), _ ByVal UStVAn_RZBetragVZ As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_RZDatumVZ As Global.System.Nullable(Of Date), _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UStVAn_Währungscode As String, _ ByVal UStVAn_USteuerbetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_Erstattungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_USteuerbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_ErstattungsbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_Sachbearbeiter As String, _ ByVal UStVAn_Status As Global.System.Nullable(Of Integer), _ ByVal UStVAn_StatusText As String, _ ByVal UStVAn_AntragArt As String, _ ByVal UStVAn_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal Original_UStVAn_ID As Integer, _ ByVal Original_upsize_ts() As Byte, _ ByVal UStVAn_ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UStVAn_KuNr,Integer) If (UStVAn_Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UStVAn_Name,String) End If If (UStVAn_Straße Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(UStVAn_Straße,String) End If If (UStVAn_LandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(UStVAn_LandKz,String) End If If (UStVAn_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(UStVAn_PLZ,String) End If If (UStVAn_Ort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UStVAn_Ort,String) End If If (UStVAn_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(UStVAn_Land,String) End If If (UStVAn_Gewerbe Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(UStVAn_Gewerbe,String) End If If (UStVAn_Steuernummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(UStVAn_Steuernummer,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(UStVAn_ReDatVon,Date) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(UStVAn_ReDatBis,Date) If (UStVAn_Bankverbindung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(UStVAn_Bankverbindung,String) End If If (UStVAn_BLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(UStVAn_BLZ,String) End If If (UStVAn_KTO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(UStVAn_KTO,String) End If If (UStVAn_Kontoinhaber Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(UStVAn_Kontoinhaber,String) End If If (UStVAn_BIC Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(UStVAn_BIC,String) End If If (UStVAn_IBAN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(UStVAn_IBAN,String) End If If (UStVAn_Anlagen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(UStVAn_Anlagen.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (UStVAn_Rechnungen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(UStVAn_Rechnungen.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (UStVAn_Einfuhrdokumente.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(UStVAn_Einfuhrdokumente.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (UStVAn_Erklärung_9_a Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(UStVAn_Erklärung_9_a,String) End If Me.Adapter.UpdateCommand.Parameters(21).Value = CType(UStVAn_Erklärung_9_b_1,Boolean) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(UStVAn_Erklärung_9_b_2,Boolean) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(UStVAn_Erklärung_9_b_3,Boolean) If (UStVAn_Ausstellungsort Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(UStVAn_Ausstellungsort,String) End If If (UStVAn_Ausstellungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(UStVAn_Ausstellungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (UStVAn_Unterschrift Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(UStVAn_Unterschrift,String) End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(UStVAn_LandNr,Short) If (UStVAn_Beleganzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(UStVAn_Beleganzahl.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (UStVAn_BeleganzahlRetourniert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(UStVAn_BeleganzahlRetourniert.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (UStVAn_Retournierungsgrund Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(UStVAn_Retournierungsgrund,String) End If If (UStVAn_AntragEingereichtAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(UStVAn_AntragEingereichtAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (UStVAn_BelegeWeitergeleitetAm.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(UStVAn_BelegeWeitergeleitetAm.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (UStVAn_Vertreter.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(UStVAn_Vertreter.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (UStVAn_BezugsNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(UStVAn_BezugsNr,String) End If If (UStVAn_3470.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(UStVAn_3470.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (UStVAn_VZBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(UStVAn_VZBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (UStVAn_VZDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(UStVAn_VZDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (UStVAn_RZBetragVZ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(UStVAn_RZBetragVZ.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (UStVAn_RZDatumVZ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(UStVAn_RZDatumVZ.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (FilialenNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (UStVAn_Währungscode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(UStVAn_Währungscode,String) End If If (UStVAn_USteuerbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(UStVAn_USteuerbetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (UStVAn_Erstattungsbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(UStVAn_Erstattungsbetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (UStVAn_USteuerbetragEUR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(UStVAn_USteuerbetragEUR.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (UStVAn_ErstattungsbetragEUR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(UStVAn_ErstattungsbetragEUR.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (UStVAn_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(UStVAn_Sachbearbeiter,String) End If If (UStVAn_Status.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(UStVAn_Status.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (UStVAn_StatusText Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(UStVAn_StatusText,String) End If If (UStVAn_AntragArt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(UStVAn_AntragArt,String) End If If (UStVAn_Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(UStVAn_Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_UStVAn_ID,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(55).Value = CType(UStVAn_ID,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 UStVAn_KuNr As Integer, _ ByVal UStVAn_Name As String, _ ByVal UStVAn_Straße As String, _ ByVal UStVAn_LandKz As String, _ ByVal UStVAn_PLZ As String, _ ByVal UStVAn_Ort As String, _ ByVal UStVAn_Land As String, _ ByVal UStVAn_Gewerbe As String, _ ByVal UStVAn_Steuernummer As String, _ ByVal UStVAn_ReDatVon As Date, _ ByVal UStVAn_ReDatBis As Date, _ ByVal UStVAn_Bankverbindung As String, _ ByVal UStVAn_BLZ As String, _ ByVal UStVAn_KTO As String, _ ByVal UStVAn_Kontoinhaber As String, _ ByVal UStVAn_BIC As String, _ ByVal UStVAn_IBAN As String, _ ByVal UStVAn_Anlagen As Global.System.Nullable(Of Short), _ ByVal UStVAn_Rechnungen As Global.System.Nullable(Of Short), _ ByVal UStVAn_Einfuhrdokumente As Global.System.Nullable(Of Short), _ ByVal UStVAn_Erklärung_9_a As String, _ ByVal UStVAn_Erklärung_9_b_1 As Boolean, _ ByVal UStVAn_Erklärung_9_b_2 As Boolean, _ ByVal UStVAn_Erklärung_9_b_3 As Boolean, _ ByVal UStVAn_Ausstellungsort As String, _ ByVal UStVAn_Ausstellungsdatum As Global.System.Nullable(Of Date), _ ByVal UStVAn_Unterschrift As String, _ ByVal UStVAn_LandNr As Short, _ ByVal UStVAn_Beleganzahl As Global.System.Nullable(Of Short), _ ByVal UStVAn_BeleganzahlRetourniert As Global.System.Nullable(Of Short), _ ByVal UStVAn_Retournierungsgrund As String, _ ByVal UStVAn_AntragEingereichtAm As Global.System.Nullable(Of Date), _ ByVal UStVAn_BelegeWeitergeleitetAm As Global.System.Nullable(Of Date), _ ByVal UStVAn_Vertreter As Global.System.Nullable(Of Integer), _ ByVal UStVAn_BezugsNr As String, _ ByVal UStVAn_3470 As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_VZBetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_VZDatum As Global.System.Nullable(Of Date), _ ByVal UStVAn_RZBetragVZ As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_RZDatumVZ As Global.System.Nullable(Of Date), _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UStVAn_Währungscode As String, _ ByVal UStVAn_USteuerbetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_Erstattungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_USteuerbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_ErstattungsbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_Sachbearbeiter As String, _ ByVal UStVAn_Status As Global.System.Nullable(Of Integer), _ ByVal UStVAn_StatusText As String, _ ByVal UStVAn_AntragArt As String, _ ByVal UStVAn_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal Original_UStVAn_ID As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(UStVAn_KuNr, UStVAn_Name, UStVAn_Straße, UStVAn_LandKz, UStVAn_PLZ, UStVAn_Ort, UStVAn_Land, UStVAn_Gewerbe, UStVAn_Steuernummer, UStVAn_ReDatVon, UStVAn_ReDatBis, UStVAn_Bankverbindung, UStVAn_BLZ, UStVAn_KTO, UStVAn_Kontoinhaber, UStVAn_BIC, UStVAn_IBAN, UStVAn_Anlagen, UStVAn_Rechnungen, UStVAn_Einfuhrdokumente, UStVAn_Erklärung_9_a, UStVAn_Erklärung_9_b_1, UStVAn_Erklärung_9_b_2, UStVAn_Erklärung_9_b_3, UStVAn_Ausstellungsort, UStVAn_Ausstellungsdatum, UStVAn_Unterschrift, UStVAn_LandNr, UStVAn_Beleganzahl, UStVAn_BeleganzahlRetourniert, UStVAn_Retournierungsgrund, UStVAn_AntragEingereichtAm, UStVAn_BelegeWeitergeleitetAm, UStVAn_Vertreter, UStVAn_BezugsNr, UStVAn_3470, UStVAn_VZBetrag, UStVAn_VZDatum, UStVAn_RZBetragVZ, UStVAn_RZDatumVZ, FilialenNr, AbfertigungsNr, UStVAn_Währungscode, UStVAn_USteuerbetrag, UStVAn_Erstattungsbetrag, UStVAn_USteuerbetragEUR, UStVAn_ErstattungsbetragEUR, UStVAn_Sachbearbeiter, UStVAn_Status, UStVAn_StatusText, UStVAn_AntragArt, UStVAn_Zeitstempel, Original_UStVAn_ID, Original_upsize_ts, Original_UStVAn_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUStVBelegeingangTableAdapter 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 = "tblUStVBelegeingang" tableMapping.ColumnMappings.Add("UStVBe_KuNr", "UStVBe_KuNr") tableMapping.ColumnMappings.Add("UStVBe_EinDat", "UStVBe_EinDat") tableMapping.ColumnMappings.Add("UStVBe_EinNr", "UStVBe_EinNr") tableMapping.ColumnMappings.Add("UStVBe_UStBetrag", "UStVBe_UStBetrag") tableMapping.ColumnMappings.Add("UStVBe_Beleganzahl", "UStVBe_Beleganzahl") tableMapping.ColumnMappings.Add("UStVBe_Retourniert", "UStVBe_Retourniert") tableMapping.ColumnMappings.Add("UStVBe_Bemerkung", "UStVBe_Bemerkung") tableMapping.ColumnMappings.Add("UStVBe_WeiterDat", "UStVBe_WeiterDat") tableMapping.ColumnMappings.Add("UStVBe_Empfänger", "UStVBe_Empfänger") tableMapping.ColumnMappings.Add("UStVBe_Zeitstempel", "UStVBe_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUStVBelegeingang] WHERE (([UStVBe_EinNr] = @Original_UStVBe"& _ "_EinNr) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @"& _ "Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVBe_EinNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_EinNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUStVBelegeingang] ([UStVBe_KuNr], [UStVBe_EinDat], [UStVBe_"& _ "UStBetrag], [UStVBe_Beleganzahl], [UStVBe_Retourniert], [UStVBe_Bemerkung], [USt"& _ "VBe_WeiterDat], [UStVBe_Empfänger], [UStVBe_Zeitstempel]) VALUES (@UStVBe_KuNr, "& _ "@UStVBe_EinDat, @UStVBe_UStBetrag, @UStVBe_Beleganzahl, @UStVBe_Retourniert, @US"& _ "tVBe_Bemerkung, @UStVBe_WeiterDat, @UStVBe_Empfänger, @UStVBe_Zeitstempel);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ "ECT UStVBe_KuNr, UStVBe_EinDat, UStVBe_EinNr, UStVBe_UStBetrag, UStVBe_Beleganza"& _ "hl, UStVBe_Retourniert, UStVBe_Bemerkung, UStVBe_WeiterDat, UStVBe_Empfänger, US"& _ "tVBe_Zeitstempel, upsize_ts FROM tblUStVBelegeingang WHERE (UStVBe_EinNr = SCOPE"& _ "_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_KuNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_KuNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_EinDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_EinDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_UStBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_UStBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_Beleganzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_Beleganzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_Retourniert", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_Retourniert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_Bemerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_WeiterDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_WeiterDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_Empfänger", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_Empfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_Zeitstempel", 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].[tblUStVBelegeingang] SET [UStVBe_KuNr] = @UStVBe_KuNr, [UStVBe_EinD"& _ "at] = @UStVBe_EinDat, [UStVBe_UStBetrag] = @UStVBe_UStBetrag, [UStVBe_Beleganzah"& _ "l] = @UStVBe_Beleganzahl, [UStVBe_Retourniert] = @UStVBe_Retourniert, [UStVBe_Be"& _ "merkung] = @UStVBe_Bemerkung, [UStVBe_WeiterDat] = @UStVBe_WeiterDat, [UStVBe_Em"& _ "pfänger] = @UStVBe_Empfänger, [UStVBe_Zeitstempel] = @UStVBe_Zeitstempel WHERE ("& _ "([UStVBe_EinNr] = @Original_UStVBe_EinNr) AND ((@IsNull_upsize_ts = 1 AND [upsiz"& _ "e_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVBe_KuNr, US"& _ "tVBe_EinDat, UStVBe_EinNr, UStVBe_UStBetrag, UStVBe_Beleganzahl, UStVBe_Retourni"& _ "ert, UStVBe_Bemerkung, UStVBe_WeiterDat, UStVBe_Empfänger, UStVBe_Zeitstempel, u"& _ "psize_ts FROM tblUStVBelegeingang WHERE (UStVBe_EinNr = @UStVBe_EinNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_KuNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_KuNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_EinDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_EinDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_UStBetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_UStBetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_Beleganzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_Beleganzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_Retourniert", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_Retourniert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_Bemerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_WeiterDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_WeiterDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_Empfänger", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_Empfänger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVBe_EinNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_EinNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_EinNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVBe_EinNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVBe_KuNr, UStVBe_EinDat, UStVBe_EinNr, UStVBe_UStBetrag, UStVBe_Belegan"& _ "zahl, UStVBe_Retourniert, UStVBe_Bemerkung, UStVBe_WeiterDat, UStVBe_Empfänger, "& _ "UStVBe_Zeitstempel, upsize_ts FROM dbo.tblUStVBelegeingang" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUStVBelegeingangDataTable) 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 VERAGDataSet.tblUStVBelegeingangDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUStVBelegeingangDataTable = New VERAGDataSet.tblUStVBelegeingangDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUStVBelegeingangDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUStVBelegeingang") 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_UStVBe_EinNr As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UStVBe_EinNr,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 UStVBe_KuNr As Integer, ByVal UStVBe_EinDat As Date, ByVal UStVBe_UStBetrag As Global.System.Nullable(Of Decimal), ByVal UStVBe_Beleganzahl As Global.System.Nullable(Of Short), ByVal UStVBe_Retourniert As Global.System.Nullable(Of Short), ByVal UStVBe_Bemerkung As String, ByVal UStVBe_WeiterDat As Global.System.Nullable(Of Date), ByVal UStVBe_Empfänger As Global.System.Nullable(Of Integer), ByVal UStVBe_Zeitstempel As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(UStVBe_KuNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(UStVBe_EinDat,Date) If (UStVBe_UStBetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(UStVBe_UStBetrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (UStVBe_Beleganzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(UStVBe_Beleganzahl.Value,Short) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (UStVBe_Retourniert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(UStVBe_Retourniert.Value,Short) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (UStVBe_Bemerkung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(UStVBe_Bemerkung,String) End If If (UStVBe_WeiterDat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(UStVBe_WeiterDat.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (UStVBe_Empfänger.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(UStVBe_Empfänger.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (UStVBe_Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(UStVBe_Zeitstempel.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 UStVBe_KuNr As Integer, ByVal UStVBe_EinDat As Date, ByVal UStVBe_UStBetrag As Global.System.Nullable(Of Decimal), ByVal UStVBe_Beleganzahl As Global.System.Nullable(Of Short), ByVal UStVBe_Retourniert As Global.System.Nullable(Of Short), ByVal UStVBe_Bemerkung As String, ByVal UStVBe_WeiterDat As Global.System.Nullable(Of Date), ByVal UStVBe_Empfänger As Global.System.Nullable(Of Integer), ByVal UStVBe_Zeitstempel As Global.System.Nullable(Of Date), ByVal Original_UStVBe_EinNr As Integer, ByVal Original_upsize_ts() As Byte, ByVal UStVBe_EinNr As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UStVBe_KuNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UStVBe_EinDat,Date) If (UStVBe_UStBetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(UStVBe_UStBetrag.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (UStVBe_Beleganzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(UStVBe_Beleganzahl.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (UStVBe_Retourniert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(UStVBe_Retourniert.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (UStVBe_Bemerkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UStVBe_Bemerkung,String) End If If (UStVBe_WeiterDat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(UStVBe_WeiterDat.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (UStVBe_Empfänger.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(UStVBe_Empfänger.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (UStVBe_Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(UStVBe_Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_UStVBe_EinNr,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(UStVBe_EinNr,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 UStVBe_KuNr As Integer, ByVal UStVBe_EinDat As Date, ByVal UStVBe_UStBetrag As Global.System.Nullable(Of Decimal), ByVal UStVBe_Beleganzahl As Global.System.Nullable(Of Short), ByVal UStVBe_Retourniert As Global.System.Nullable(Of Short), ByVal UStVBe_Bemerkung As String, ByVal UStVBe_WeiterDat As Global.System.Nullable(Of Date), ByVal UStVBe_Empfänger As Global.System.Nullable(Of Integer), ByVal UStVBe_Zeitstempel As Global.System.Nullable(Of Date), ByVal Original_UStVBe_EinNr As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(UStVBe_KuNr, UStVBe_EinDat, UStVBe_UStBetrag, UStVBe_Beleganzahl, UStVBe_Retourniert, UStVBe_Bemerkung, UStVBe_WeiterDat, UStVBe_Empfänger, UStVBe_Zeitstempel, Original_UStVBe_EinNr, Original_upsize_ts, Original_UStVBe_EinNr) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUStVErstattungTableAdapter 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 = "tblUStVErstattung" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVEr_ID", "UStVEr_ID") tableMapping.ColumnMappings.Add("UStVEr_USteuerbetrag", "UStVEr_USteuerbetrag") tableMapping.ColumnMappings.Add("Belegdatum", "Belegdatum") tableMapping.ColumnMappings.Add("Belegnummer", "Belegnummer") tableMapping.ColumnMappings.Add("GutschriftsDatum", "GutschriftsDatum") tableMapping.ColumnMappings.Add("GutschriftsNr", "GutschriftsNr") tableMapping.ColumnMappings.Add("Berufungsdatum", "Berufungsdatum") tableMapping.ColumnMappings.Add("Berufungshöhe", "Berufungshöhe") tableMapping.ColumnMappings.Add("Berufungsgrund", "Berufungsgrund") tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung") tableMapping.ColumnMappings.Add("UStVEr_Umrechnungskurs", "UStVEr_Umrechnungskurs") tableMapping.ColumnMappings.Add("UStVEr_USteuerbetragEUR", "UStVEr_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVEr_Sachbearbeiter", "UStVEr_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVEr_Zeitstempel", "UStVEr_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUStVErstattung] WHERE (([UStVAn_ID] = @Original_UStVAn_ID) "& _ "AND ([UStVEr_ID] = @Original_UStVEr_ID) AND ((@IsNull_upsize_ts = 1 AND [upsize_"& _ "ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVEr_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUStVErstattung] ([UStVAn_ID], [UStVEr_ID], [UStVEr_USteuerb"& _ "etrag], [Belegdatum], [Belegnummer], [GutschriftsDatum], [GutschriftsNr], [Beruf"& _ "ungsdatum], [Berufungshöhe], [Berufungsgrund], [Bemerkung], [UStVEr_Umrechnungsk"& _ "urs], [UStVEr_USteuerbetragEUR], [UStVEr_Sachbearbeiter], [UStVEr_Zeitstempel]) "& _ "VALUES (@UStVAn_ID, @UStVEr_ID, @UStVEr_USteuerbetrag, @Belegdatum, @Belegnummer"& _ ", @GutschriftsDatum, @GutschriftsNr, @Berufungsdatum, @Berufungshöhe, @Berufungs"& _ "grund, @Bemerkung, @UStVEr_Umrechnungskurs, @UStVEr_USteuerbetragEUR, @UStVEr_Sa"& _ "chbearbeiter, @UStVEr_Zeitstempel);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVAn_ID, UStVEr_ID, UStVEr_USteuer"& _ "betrag, Belegdatum, Belegnummer, GutschriftsDatum, GutschriftsNr, Berufungsdatum"& _ ", Berufungshöhe, Berufungsgrund, Bemerkung, UStVEr_Umrechnungskurs, UStVEr_USteu"& _ "erbetragEUR, UStVEr_Sachbearbeiter, UStVEr_Zeitstempel, upsize_ts FROM tblUStVEr"& _ "stattung WHERE (UStVAn_ID = @UStVAn_ID) AND (UStVEr_ID = @UStVEr_ID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_USteuerbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_USteuerbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GutschriftsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GutschriftsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GutschriftsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GutschriftsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Berufungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berufungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Berufungshöhe", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berufungshöhe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Berufungsgrund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berufungsgrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_Umrechnungskurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_Umrechnungskurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_USteuerbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_USteuerbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_Zeitstempel", 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].[tblUStVErstattung] SET [UStVAn_ID] = @UStVAn_ID, [UStVEr_ID] = @USt"& _ "VEr_ID, [UStVEr_USteuerbetrag] = @UStVEr_USteuerbetrag, [Belegdatum] = @Belegdat"& _ "um, [Belegnummer] = @Belegnummer, [GutschriftsDatum] = @GutschriftsDatum, [Gutsc"& _ "hriftsNr] = @GutschriftsNr, [Berufungsdatum] = @Berufungsdatum, [Berufungshöhe] "& _ "= @Berufungshöhe, [Berufungsgrund] = @Berufungsgrund, [Bemerkung] = @Bemerkung, "& _ "[UStVEr_Umrechnungskurs] = @UStVEr_Umrechnungskurs, [UStVEr_USteuerbetragEUR] = "& _ "@UStVEr_USteuerbetragEUR, [UStVEr_Sachbearbeiter] = @UStVEr_Sachbearbeiter, [USt"& _ "VEr_Zeitstempel] = @UStVEr_Zeitstempel WHERE (([UStVAn_ID] = @Original_UStVAn_ID"& _ ") AND ([UStVEr_ID] = @Original_UStVEr_ID) AND ((@IsNull_upsize_ts = 1 AND [upsiz"& _ "e_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVAn_ID, UStV"& _ "Er_ID, UStVEr_USteuerbetrag, Belegdatum, Belegnummer, GutschriftsDatum, Gutschri"& _ "ftsNr, Berufungsdatum, Berufungshöhe, Berufungsgrund, Bemerkung, UStVEr_Umrechnu"& _ "ngskurs, UStVEr_USteuerbetragEUR, UStVEr_Sachbearbeiter, UStVEr_Zeitstempel, ups"& _ "ize_ts FROM tblUStVErstattung WHERE (UStVAn_ID = @UStVAn_ID) AND (UStVEr_ID = @U"& _ "StVEr_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_USteuerbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_USteuerbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GutschriftsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GutschriftsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GutschriftsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GutschriftsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Berufungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berufungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Berufungshöhe", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berufungshöhe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Berufungsgrund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Berufungsgrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_Umrechnungskurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_Umrechnungskurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_USteuerbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_USteuerbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVEr_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVEr_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVAn_ID, UStVEr_ID, UStVEr_USteuerbetrag, Belegdatum, Belegnummer, Gutsc"& _ "hriftsDatum, GutschriftsNr, Berufungsdatum, Berufungshöhe, Berufungsgrund, Bemer"& _ "kung, UStVEr_Umrechnungskurs, UStVEr_USteuerbetragEUR, UStVEr_Sachbearbeiter, US"& _ "tVEr_Zeitstempel, upsize_ts FROM dbo.tblUStVErstattung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUStVErstattungDataTable) 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 VERAGDataSet.tblUStVErstattungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUStVErstattungDataTable = New VERAGDataSet.tblUStVErstattungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUStVErstattungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUStVErstattung") 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_UStVAn_ID As Integer, ByVal Original_UStVEr_ID As Short, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UStVAn_ID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UStVEr_ID,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 UStVAn_ID As Integer, ByVal UStVEr_ID As Short, ByVal UStVEr_USteuerbetrag As Decimal, ByVal Belegdatum As Global.System.Nullable(Of Date), ByVal Belegnummer As String, ByVal GutschriftsDatum As Global.System.Nullable(Of Date), ByVal GutschriftsNr As Global.System.Nullable(Of Integer), ByVal Berufungsdatum As Global.System.Nullable(Of Date), ByVal Berufungshöhe As Global.System.Nullable(Of Decimal), ByVal Berufungsgrund As String, ByVal Bemerkung As String, ByVal UStVEr_Umrechnungskurs As Global.System.Nullable(Of Double), ByVal UStVEr_USteuerbetragEUR As Global.System.Nullable(Of Decimal), ByVal UStVEr_Sachbearbeiter As String, ByVal UStVEr_Zeitstempel As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(UStVAn_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(UStVEr_ID,Short) Me.Adapter.InsertCommand.Parameters(2).Value = CType(UStVEr_USteuerbetrag,Decimal) If (Belegdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Belegdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Belegnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Belegnummer,String) End If If (GutschriftsDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(GutschriftsDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (GutschriftsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(GutschriftsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Berufungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Berufungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Berufungshöhe.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(Berufungshöhe.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Berufungsgrund Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Berufungsgrund,String) End If If (Bemerkung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Bemerkung,String) End If If (UStVEr_Umrechnungskurs.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(UStVEr_Umrechnungskurs.Value,Double) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (UStVEr_USteuerbetragEUR.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(UStVEr_USteuerbetragEUR.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (UStVEr_Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(UStVEr_Sachbearbeiter,String) End If If (UStVEr_Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(UStVEr_Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(14).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 UStVAn_ID As Integer, _ ByVal UStVEr_ID As Short, _ ByVal UStVEr_USteuerbetrag As Decimal, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Belegnummer As String, _ ByVal GutschriftsDatum As Global.System.Nullable(Of Date), _ ByVal GutschriftsNr As Global.System.Nullable(Of Integer), _ ByVal Berufungsdatum As Global.System.Nullable(Of Date), _ ByVal Berufungshöhe As Global.System.Nullable(Of Decimal), _ ByVal Berufungsgrund As String, _ ByVal Bemerkung As String, _ ByVal UStVEr_Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal UStVEr_USteuerbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVEr_Sachbearbeiter As String, _ ByVal UStVEr_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal Original_UStVAn_ID As Integer, _ ByVal Original_UStVEr_ID As Short, _ ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UStVAn_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UStVEr_ID,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(UStVEr_USteuerbetrag,Decimal) If (Belegdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Belegdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Belegnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Belegnummer,String) End If If (GutschriftsDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GutschriftsDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (GutschriftsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GutschriftsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Berufungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Berufungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Berufungshöhe.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Berufungshöhe.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Berufungsgrund Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Berufungsgrund,String) End If If (Bemerkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Bemerkung,String) End If If (UStVEr_Umrechnungskurs.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(UStVEr_Umrechnungskurs.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (UStVEr_USteuerbetragEUR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(UStVEr_USteuerbetragEUR.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (UStVEr_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(UStVEr_Sachbearbeiter,String) End If If (UStVEr_Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(UStVEr_Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_UStVAn_ID,Integer) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_UStVEr_ID,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 UStVEr_USteuerbetrag As Decimal, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Belegnummer As String, _ ByVal GutschriftsDatum As Global.System.Nullable(Of Date), _ ByVal GutschriftsNr As Global.System.Nullable(Of Integer), _ ByVal Berufungsdatum As Global.System.Nullable(Of Date), _ ByVal Berufungshöhe As Global.System.Nullable(Of Decimal), _ ByVal Berufungsgrund As String, _ ByVal Bemerkung As String, _ ByVal UStVEr_Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal UStVEr_USteuerbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVEr_Sachbearbeiter As String, _ ByVal UStVEr_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal Original_UStVAn_ID As Integer, _ ByVal Original_UStVEr_ID As Short, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_UStVAn_ID, Original_UStVEr_ID, UStVEr_USteuerbetrag, Belegdatum, Belegnummer, GutschriftsDatum, GutschriftsNr, Berufungsdatum, Berufungshöhe, Berufungsgrund, Bemerkung, UStVEr_Umrechnungskurs, UStVEr_USteuerbetragEUR, UStVEr_Sachbearbeiter, UStVEr_Zeitstempel, Original_UStVAn_ID, Original_UStVEr_ID, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUStVFormulareTableAdapter 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 = "tblUStVFormulare" tableMapping.ColumnMappings.Add("UStVFo_FormularNr", "UStVFo_FormularNr") tableMapping.ColumnMappings.Add("UStVFo_FormularBez", "UStVFo_FormularBez") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblUStVFormulare] WHERE (([UStVFo_FormularNr] = @Original_UStV"& _ "Fo_FormularNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblUStVFormulare] ([UStVFo_FormularNr], [UStVFo_FormularBez]) "& _ "VALUES (@UStVFo_FormularNr, @UStVFo_FormularBez);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVFo_FormularNr, USt"& _ "VFo_FormularBez, SSMA_TimeStamp FROM tblUStVFormulare WHERE (UStVFo_FormularNr ="& _ " @UStVFo_FormularNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVFo_FormularBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularBez", 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].[tblUStVFormulare] SET [UStVFo_FormularNr] = @UStVFo_FormularNr, [US"& _ "tVFo_FormularBez] = @UStVFo_FormularBez WHERE (([UStVFo_FormularNr] = @Original_"& _ "UStVFo_FormularNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT U"& _ "StVFo_FormularNr, UStVFo_FormularBez, SSMA_TimeStamp FROM tblUStVFormulare WHERE"& _ " (UStVFo_FormularNr = @UStVFo_FormularNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVFo_FormularBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVFo_FormularNr, UStVFo_FormularBez, SSMA_TimeStamp FROM dbo.tblUStVForm"& _ "ulare" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUStVFormulareDataTable) 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 VERAGDataSet.tblUStVFormulareDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUStVFormulareDataTable = New VERAGDataSet.tblUStVFormulareDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUStVFormulareDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUStVFormulare") 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_UStVFo_FormularNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UStVFo_FormularNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 UStVFo_FormularNr As Short, ByVal UStVFo_FormularBez As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(UStVFo_FormularNr,Short) If (UStVFo_FormularBez Is Nothing) Then Throw New Global.System.ArgumentNullException("UStVFo_FormularBez") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(UStVFo_FormularBez,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 UStVFo_FormularNr As Short, ByVal UStVFo_FormularBez As String, ByVal Original_UStVFo_FormularNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UStVFo_FormularNr,Short) If (UStVFo_FormularBez Is Nothing) Then Throw New Global.System.ArgumentNullException("UStVFo_FormularBez") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UStVFo_FormularBez,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_UStVFo_FormularNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 UStVFo_FormularBez As String, ByVal Original_UStVFo_FormularNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_UStVFo_FormularNr, UStVFo_FormularBez, Original_UStVFo_FormularNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUStVKuLäFoTableAdapter 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 = "tblUStVKuLäFo" tableMapping.ColumnMappings.Add("UStVKF_KundenNr", "UStVKF_KundenNr") tableMapping.ColumnMappings.Add("UStVLF_LandNr", "UStVLF_LandNr") tableMapping.ColumnMappings.Add("UStVFo_FormularNr", "UStVFo_FormularNr") tableMapping.ColumnMappings.Add("UStVKF_Status", "UStVKF_Status") tableMapping.ColumnMappings.Add("UStVKF_AnfDat", "UStVKF_AnfDat") tableMapping.ColumnMappings.Add("UStVKF_AusDat", "UStVKF_AusDat") tableMapping.ColumnMappings.Add("UStVKF_Vermerk", "UStVKF_Vermerk") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblUStVKuLäFo] WHERE (([UStVKF_KundenNr] = @Original_UStVKF_Ku"& _ "ndenNr) AND ([UStVLF_LandNr] = @Original_UStVLF_LandNr) AND ([UStVFo_FormularNr]"& _ " = @Original_UStVFo_FormularNr) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp"& _ "))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVKF_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVLF_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVLF_LandNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblUStVKuLäFo] ([UStVKF_KundenNr], [UStVLF_LandNr], [UStVFo_Fo"& _ "rmularNr], [UStVKF_Status], [UStVKF_AnfDat], [UStVKF_AusDat], [UStVKF_Vermerk]) "& _ "VALUES (@UStVKF_KundenNr, @UStVLF_LandNr, @UStVFo_FormularNr, @UStVKF_Status, @U"& _ "StVKF_AnfDat, @UStVKF_AusDat, @UStVKF_Vermerk);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVKF_KundenNr, UStVLF_"& _ "LandNr, UStVFo_FormularNr, UStVKF_Status, UStVKF_AnfDat, UStVKF_AusDat, UStVKF_V"& _ "ermerk, SSMA_TimeStamp FROM tblUStVKuLäFo WHERE (UStVFo_FormularNr = @UStVFo_For"& _ "mularNr) AND (UStVKF_KundenNr = @UStVKF_KundenNr) AND (UStVLF_LandNr = @UStVLF_L"& _ "andNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVKF_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVLF_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVLF_LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVKF_Status", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVKF_AnfDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_AnfDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVKF_AusDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_AusDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVKF_Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_Vermerk", 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].[tblUStVKuLäFo] SET [UStVKF_KundenNr] = @UStVKF_KundenNr, [UStVLF_La"& _ "ndNr] = @UStVLF_LandNr, [UStVFo_FormularNr] = @UStVFo_FormularNr, [UStVKF_Status"& _ "] = @UStVKF_Status, [UStVKF_AnfDat] = @UStVKF_AnfDat, [UStVKF_AusDat] = @UStVKF_"& _ "AusDat, [UStVKF_Vermerk] = @UStVKF_Vermerk WHERE (([UStVKF_KundenNr] = @Original"& _ "_UStVKF_KundenNr) AND ([UStVLF_LandNr] = @Original_UStVLF_LandNr) AND ([UStVFo_F"& _ "ormularNr] = @Original_UStVFo_FormularNr) AND ([SSMA_TimeStamp] = @Original_SSMA"& _ "_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVKF_KundenNr, UStVLF_LandNr, UStVFo_FormularNr, UStVKF_"& _ "Status, UStVKF_AnfDat, UStVKF_AusDat, UStVKF_Vermerk, SSMA_TimeStamp FROM tblUSt"& _ "VKuLäFo WHERE (UStVFo_FormularNr = @UStVFo_FormularNr) AND (UStVKF_KundenNr = @U"& _ "StVKF_KundenNr) AND (UStVLF_LandNr = @UStVLF_LandNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVKF_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVLF_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVLF_LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVKF_Status", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVKF_AnfDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_AnfDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVKF_AusDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_AusDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVKF_Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVKF_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVKF_KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVLF_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVLF_LandNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVKF_KundenNr, UStVLF_LandNr, UStVFo_FormularNr, UStVKF_Status, UStVKF_A"& _ "nfDat, UStVKF_AusDat, UStVKF_Vermerk, SSMA_TimeStamp FROM dbo.tblUStVKuLäFo" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUStVKuLäFoDataTable) 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 VERAGDataSet.tblUStVKuLäFoDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUStVKuLäFoDataTable = New VERAGDataSet.tblUStVKuLäFoDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUStVKuLäFoDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUStVKuLäFo") 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_UStVKF_KundenNr As Integer, ByVal Original_UStVLF_LandNr As Short, ByVal Original_UStVFo_FormularNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UStVKF_KundenNr,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UStVLF_LandNr,Short) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UStVFo_FormularNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 UStVKF_KundenNr As Integer, ByVal UStVLF_LandNr As Short, ByVal UStVFo_FormularNr As Short, ByVal UStVKF_Status As String, ByVal UStVKF_AnfDat As Global.System.Nullable(Of Date), ByVal UStVKF_AusDat As Global.System.Nullable(Of Date), ByVal UStVKF_Vermerk As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(UStVKF_KundenNr,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(UStVLF_LandNr,Short) Me.Adapter.InsertCommand.Parameters(2).Value = CType(UStVFo_FormularNr,Short) If (UStVKF_Status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(UStVKF_Status,String) End If If (UStVKF_AnfDat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(UStVKF_AnfDat.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (UStVKF_AusDat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(UStVKF_AusDat.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (UStVKF_Vermerk Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(UStVKF_Vermerk,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 UStVKF_KundenNr As Integer, ByVal UStVLF_LandNr As Short, ByVal UStVFo_FormularNr As Short, ByVal UStVKF_Status As String, ByVal UStVKF_AnfDat As Global.System.Nullable(Of Date), ByVal UStVKF_AusDat As Global.System.Nullable(Of Date), ByVal UStVKF_Vermerk As String, ByVal Original_UStVKF_KundenNr As Integer, ByVal Original_UStVLF_LandNr As Short, ByVal Original_UStVFo_FormularNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UStVKF_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UStVLF_LandNr,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(UStVFo_FormularNr,Short) If (UStVKF_Status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(UStVKF_Status,String) End If If (UStVKF_AnfDat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(UStVKF_AnfDat.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (UStVKF_AusDat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UStVKF_AusDat.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (UStVKF_Vermerk Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(UStVKF_Vermerk,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_UStVKF_KundenNr,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_UStVLF_LandNr,Short) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_UStVFo_FormularNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 UStVKF_Status As String, ByVal UStVKF_AnfDat As Global.System.Nullable(Of Date), ByVal UStVKF_AusDat As Global.System.Nullable(Of Date), ByVal UStVKF_Vermerk As String, ByVal Original_UStVKF_KundenNr As Integer, ByVal Original_UStVLF_LandNr As Short, ByVal Original_UStVFo_FormularNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_UStVKF_KundenNr, Original_UStVLF_LandNr, Original_UStVFo_FormularNr, UStVKF_Status, UStVKF_AnfDat, UStVKF_AusDat, UStVKF_Vermerk, Original_UStVKF_KundenNr, Original_UStVLF_LandNr, Original_UStVFo_FormularNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUStVLäFoTableAdapter 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 = "tblUStVLäFo" tableMapping.ColumnMappings.Add("UStVLF_LandNr", "UStVLF_LandNr") tableMapping.ColumnMappings.Add("UStVFo_FormularNr", "UStVFo_FormularNr") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblUStVLäFo] WHERE (([UStVLF_LandNr] = @Original_UStVLF_LandNr"& _ ") AND ([UStVFo_FormularNr] = @Original_UStVFo_FormularNr) AND ([SSMA_TimeStamp] "& _ "= @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVLF_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVLF_LandNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblUStVLäFo] ([UStVLF_LandNr], [UStVFo_FormularNr]) VALUES (@U"& _ "StVLF_LandNr, @UStVFo_FormularNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVLF_LandNr, UStVFo_FormularNr, SSM"& _ "A_TimeStamp FROM tblUStVLäFo WHERE (UStVFo_FormularNr = @UStVFo_FormularNr) AND "& _ "(UStVLF_LandNr = @UStVLF_LandNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVLF_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVLF_LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", 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].[tblUStVLäFo] SET [UStVLF_LandNr] = @UStVLF_LandNr, [UStVFo_Formular"& _ "Nr] = @UStVFo_FormularNr WHERE (([UStVLF_LandNr] = @Original_UStVLF_LandNr) AND "& _ "([UStVFo_FormularNr] = @Original_UStVFo_FormularNr) AND ([SSMA_TimeStamp] = @Ori"& _ "ginal_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVLF_LandNr, UStVFo_FormularNr, SSMA_TimeStamp"& _ " FROM tblUStVLäFo WHERE (UStVFo_FormularNr = @UStVFo_FormularNr) AND (UStVLF_Lan"& _ "dNr = @UStVLF_LandNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVLF_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVLF_LandNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVLF_LandNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVLF_LandNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVFo_FormularNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVFo_FormularNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVLF_LandNr, UStVFo_FormularNr, SSMA_TimeStamp FROM dbo.tblUStVLäFo" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUStVLäFoDataTable) 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 VERAGDataSet.tblUStVLäFoDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUStVLäFoDataTable = New VERAGDataSet.tblUStVLäFoDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUStVLäFoDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUStVLäFo") 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_UStVLF_LandNr As Short, ByVal Original_UStVFo_FormularNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UStVLF_LandNr,Short) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UStVFo_FormularNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 UStVLF_LandNr As Short, ByVal UStVFo_FormularNr As Short) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(UStVLF_LandNr,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(UStVFo_FormularNr,Short) 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 UStVLF_LandNr As Short, ByVal UStVFo_FormularNr As Short, ByVal Original_UStVLF_LandNr As Short, ByVal Original_UStVFo_FormularNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UStVLF_LandNr,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UStVFo_FormularNr,Short) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_UStVLF_LandNr,Short) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_UStVFo_FormularNr,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Original_UStVLF_LandNr As Short, ByVal Original_UStVFo_FormularNr As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_UStVLF_LandNr, Original_UStVFo_FormularNr, Original_UStVLF_LandNr, Original_UStVFo_FormularNr, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUStVLeistenderTableAdapter 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 = "tblUStVLeistender" tableMapping.ColumnMappings.Add("UStV_Leistender", "UStV_Leistender") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") tableMapping.ColumnMappings.Add("UstV_Leistender_PLZ", "UstV_Leistender_PLZ") tableMapping.ColumnMappings.Add("UstV_Leistender_Strasse", "UstV_Leistender_Strasse") tableMapping.ColumnMappings.Add("UstV_Leistender_Stadt", "UstV_Leistender_Stadt") tableMapping.ColumnMappings.Add("UstV_Leistender_StrasseNr", "UstV_Leistender_StrasseNr") tableMapping.ColumnMappings.Add("UstV_Leistender_Land", "UstV_Leistender_Land") tableMapping.ColumnMappings.Add("UstV_Leistender_UstNr", "UstV_Leistender_UstNr") tableMapping.ColumnMappings.Add("UstV_Leistender_Adresse", "UstV_Leistender_Adresse") 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].[tblUStVLeistender] WHERE (([UStV_Leistender] = @Original_UStV_"& _ "Leistender) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStV_Leistender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_Leistender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblUStVLeistender] ([UStV_Leistender], [UstV_Leistender_PLZ], "& _ "[UstV_Leistender_Strasse], [UstV_Leistender_Stadt], [UstV_Leistender_StrasseNr],"& _ " [UstV_Leistender_Land], [UstV_Leistender_UstNr], [UstV_Leistender_Adresse]) VAL"& _ "UES (@UStV_Leistender, @UstV_Leistender_PLZ, @UstV_Leistender_Strasse, @UstV_Lei"& _ "stender_Stadt, @UstV_Leistender_StrasseNr, @UstV_Leistender_Land, @UstV_Leistend"& _ "er_UstNr, @UstV_Leistender_Adresse);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStV_Leistender, SSMA_TimeStamp, Us"& _ "tV_Leistender_PLZ, UstV_Leistender_Strasse, UstV_Leistender_Stadt, UstV_Leistend"& _ "er_StrasseNr, UstV_Leistender_Land, UstV_Leistender_UstNr, UstV_Leistender_Adres"& _ "se FROM tblUStVLeistender WHERE (UStV_Leistender = @UStV_Leistender)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_Leistender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_Leistender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_Strasse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_Strasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_Stadt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_Stadt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_StrasseNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_StrasseNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_UstNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_UstNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_Adresse", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_Adresse", 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].[tblUStVLeistender] SET [UStV_Leistender] = @UStV_Leistender, [UstV_"& _ "Leistender_PLZ] = @UstV_Leistender_PLZ, [UstV_Leistender_Strasse] = @UstV_Leiste"& _ "nder_Strasse, [UstV_Leistender_Stadt] = @UstV_Leistender_Stadt, [UstV_Leistender"& _ "_StrasseNr] = @UstV_Leistender_StrasseNr, [UstV_Leistender_Land] = @UstV_Leisten"& _ "der_Land, [UstV_Leistender_UstNr] = @UstV_Leistender_UstNr, [UstV_Leistender_Adr"& _ "esse] = @UstV_Leistender_Adresse WHERE (([UStV_Leistender] = @Original_UStV_Leis"& _ "tender) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStV_Leisten"& _ "der, SSMA_TimeStamp, UstV_Leistender_PLZ, UstV_Leistender_Strasse, UstV_Leistend"& _ "er_Stadt, UstV_Leistender_StrasseNr, UstV_Leistender_Land, UstV_Leistender_UstNr"& _ ", UstV_Leistender_Adresse FROM tblUStVLeistender WHERE (UStV_Leistender = @UStV_"& _ "Leistender)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStV_Leistender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_Leistender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_PLZ", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_PLZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_Strasse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_Strasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_Stadt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_Stadt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_StrasseNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_StrasseNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_UstNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_UstNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UstV_Leistender_Adresse", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UstV_Leistender_Adresse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStV_Leistender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStV_Leistender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStV_Leistender, SSMA_TimeStamp, UstV_Leistender_PLZ, UstV_Leistender_Stra"& _ "sse, UstV_Leistender_Stadt, UstV_Leistender_StrasseNr, UstV_Leistender_Land, Ust"& _ "V_Leistender_UstNr, UstV_Leistender_Adresse FROM dbo.tblUStVLeistender" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUStVLeistenderDataTable) 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 VERAGDataSet.tblUStVLeistenderDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUStVLeistenderDataTable = New VERAGDataSet.tblUStVLeistenderDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUStVLeistenderDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUStVLeistender") 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_UStV_Leistender As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_UStV_Leistender Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_UStV_Leistender") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UStV_Leistender,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 UStV_Leistender As String, ByVal UstV_Leistender_PLZ As String, ByVal UstV_Leistender_Strasse As String, ByVal UstV_Leistender_Stadt As String, ByVal UstV_Leistender_StrasseNr As String, ByVal UstV_Leistender_Land As String, ByVal UstV_Leistender_UstNr As String, ByVal UstV_Leistender_Adresse As Boolean) As Integer If (UStV_Leistender Is Nothing) Then Throw New Global.System.ArgumentNullException("UStV_Leistender") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(UStV_Leistender,String) End If If (UstV_Leistender_PLZ Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(UstV_Leistender_PLZ,String) End If If (UstV_Leistender_Strasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(UstV_Leistender_Strasse,String) End If If (UstV_Leistender_Stadt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(UstV_Leistender_Stadt,String) End If If (UstV_Leistender_StrasseNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(UstV_Leistender_StrasseNr,String) End If If (UstV_Leistender_Land Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(UstV_Leistender_Land,String) End If If (UstV_Leistender_UstNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(UstV_Leistender_UstNr,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(UstV_Leistender_Adresse,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 UStV_Leistender As String, ByVal UstV_Leistender_PLZ As String, ByVal UstV_Leistender_Strasse As String, ByVal UstV_Leistender_Stadt As String, ByVal UstV_Leistender_StrasseNr As String, ByVal UstV_Leistender_Land As String, ByVal UstV_Leistender_UstNr As String, ByVal UstV_Leistender_Adresse As Boolean, ByVal Original_UStV_Leistender As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (UStV_Leistender Is Nothing) Then Throw New Global.System.ArgumentNullException("UStV_Leistender") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UStV_Leistender,String) End If If (UstV_Leistender_PLZ Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UstV_Leistender_PLZ,String) End If If (UstV_Leistender_Strasse Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(UstV_Leistender_Strasse,String) End If If (UstV_Leistender_Stadt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(UstV_Leistender_Stadt,String) End If If (UstV_Leistender_StrasseNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(UstV_Leistender_StrasseNr,String) End If If (UstV_Leistender_Land Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UstV_Leistender_Land,String) End If If (UstV_Leistender_UstNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(UstV_Leistender_UstNr,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(UstV_Leistender_Adresse,Boolean) If (Original_UStV_Leistender Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_UStV_Leistender") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_UStV_Leistender,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 UstV_Leistender_PLZ As String, ByVal UstV_Leistender_Strasse As String, ByVal UstV_Leistender_Stadt As String, ByVal UstV_Leistender_StrasseNr As String, ByVal UstV_Leistender_Land As String, ByVal UstV_Leistender_UstNr As String, ByVal UstV_Leistender_Adresse As Boolean, ByVal Original_UStV_Leistender As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_UStV_Leistender, UstV_Leistender_PLZ, UstV_Leistender_Strasse, UstV_Leistender_Stadt, UstV_Leistender_StrasseNr, UstV_Leistender_Land, UstV_Leistender_UstNr, UstV_Leistender_Adresse, Original_UStV_Leistender, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUStVPositionenTableAdapter 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 = "tblUStVPositionen" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVPo_ID", "UStVPo_ID") tableMapping.ColumnMappings.Add("UStVPo_ReDat", "UStVPo_ReDat") tableMapping.ColumnMappings.Add("UStVPo_ReNr", "UStVPo_ReNr") tableMapping.ColumnMappings.Add("UStVPo_USteuerbetrag", "UStVPo_USteuerbetrag") tableMapping.ColumnMappings.Add("UStVPo_Leistungsbezeichnung", "UStVPo_Leistungsbezeichnung") tableMapping.ColumnMappings.Add("UStVPo_Leistender", "UStVPo_Leistender") tableMapping.ColumnMappings.Add("UStVPo_Schnittstelle", "UStVPo_Schnittstelle") tableMapping.ColumnMappings.Add("UStVPo_SchnittstellenNr", "UStVPo_SchnittstellenNr") tableMapping.ColumnMappings.Add("UStVPo_Umrechnungskurs", "UStVPo_Umrechnungskurs") tableMapping.ColumnMappings.Add("UStVPo_USteuerbetragEUR", "UStVPo_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVPo_Sachbearbeiter", "UStVPo_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVPo_Zeitstempel", "UStVPo_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUStVPositionen] WHERE (([UStVAn_ID] = @Original_UStVAn_ID) "& _ "AND ([UStVPo_ID] = @Original_UStVPo_ID) AND ((@IsNull_upsize_ts = 1 AND [upsize_"& _ "ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVPo_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUStVPositionen] ([UStVAn_ID], [UStVPo_ID], [UStVPo_ReDat], "& _ "[UStVPo_ReNr], [UStVPo_USteuerbetrag], [UStVPo_Leistungsbezeichnung], [UStVPo_Le"& _ "istender], [UStVPo_Schnittstelle], [UStVPo_SchnittstellenNr], [UStVPo_Umrechnung"& _ "skurs], [UStVPo_USteuerbetragEUR], [UStVPo_Sachbearbeiter], [UStVPo_Zeitstempel]"& _ ") VALUES (@UStVAn_ID, @UStVPo_ID, @UStVPo_ReDat, @UStVPo_ReNr, @UStVPo_USteuerbe"& _ "trag, @UStVPo_Leistungsbezeichnung, @UStVPo_Leistender, @UStVPo_Schnittstelle, @"& _ "UStVPo_SchnittstellenNr, @UStVPo_Umrechnungskurs, @UStVPo_USteuerbetragEUR, @USt"& _ "VPo_Sachbearbeiter, @UStVPo_Zeitstempel);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVAn_ID, UStVPo_ID, UStVPo_R"& _ "eDat, UStVPo_ReNr, UStVPo_USteuerbetrag, UStVPo_Leistungsbezeichnung, UStVPo_Lei"& _ "stender, UStVPo_Schnittstelle, UStVPo_SchnittstellenNr, UStVPo_Umrechnungskurs, "& _ "UStVPo_USteuerbetragEUR, UStVPo_Sachbearbeiter, UStVPo_Zeitstempel, upsize_ts FR"& _ "OM tblUStVPositionen WHERE (UStVAn_ID = @UStVAn_ID) AND (UStVPo_ID = @UStVPo_ID)"& _ "" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ReDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_ReDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ReNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_ReNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_USteuerbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_USteuerbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Leistungsbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Leistender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Leistender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Schnittstelle", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Schnittstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_SchnittstellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_SchnittstellenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Umrechnungskurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Umrechnungskurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_USteuerbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_USteuerbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Zeitstempel", 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].[tblUStVPositionen] SET [UStVAn_ID] = @UStVAn_ID, [UStVPo_ID] = @USt"& _ "VPo_ID, [UStVPo_ReDat] = @UStVPo_ReDat, [UStVPo_ReNr] = @UStVPo_ReNr, [UStVPo_US"& _ "teuerbetrag] = @UStVPo_USteuerbetrag, [UStVPo_Leistungsbezeichnung] = @UStVPo_Le"& _ "istungsbezeichnung, [UStVPo_Leistender] = @UStVPo_Leistender, [UStVPo_Schnittste"& _ "lle] = @UStVPo_Schnittstelle, [UStVPo_SchnittstellenNr] = @UStVPo_Schnittstellen"& _ "Nr, [UStVPo_Umrechnungskurs] = @UStVPo_Umrechnungskurs, [UStVPo_USteuerbetragEUR"& _ "] = @UStVPo_USteuerbetragEUR, [UStVPo_Sachbearbeiter] = @UStVPo_Sachbearbeiter, "& _ "[UStVPo_Zeitstempel] = @UStVPo_Zeitstempel WHERE (([UStVAn_ID] = @Original_UStVA"& _ "n_ID) AND ([UStVPo_ID] = @Original_UStVPo_ID) AND ((@IsNull_upsize_ts = 1 AND [u"& _ "psize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UStVAn_ID, "& _ "UStVPo_ID, UStVPo_ReDat, UStVPo_ReNr, UStVPo_USteuerbetrag, UStVPo_Leistungsbeze"& _ "ichnung, UStVPo_Leistender, UStVPo_Schnittstelle, UStVPo_SchnittstellenNr, UStVP"& _ "o_Umrechnungskurs, UStVPo_USteuerbetragEUR, UStVPo_Sachbearbeiter, UStVPo_Zeitst"& _ "empel, upsize_ts FROM tblUStVPositionen WHERE (UStVAn_ID = @UStVAn_ID) AND (UStV"& _ "Po_ID = @UStVPo_ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ReDat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_ReDat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ReNr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_ReNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_USteuerbetrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_USteuerbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Leistungsbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Leistender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Leistender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Schnittstelle", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Schnittstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_SchnittstellenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_SchnittstellenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Umrechnungskurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Umrechnungskurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_USteuerbetragEUR", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_USteuerbetragEUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVPo_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVPo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVAn_ID, UStVPo_ID, UStVPo_ReDat, UStVPo_ReNr, UStVPo_USteuerbetrag, USt"& _ "VPo_Leistungsbezeichnung, UStVPo_Leistender, UStVPo_Schnittstelle, UStVPo_Schnit"& _ "tstellenNr, UStVPo_Umrechnungskurs, UStVPo_USteuerbetragEUR, UStVPo_Sachbearbeit"& _ "er, UStVPo_Zeitstempel, upsize_ts FROM dbo.tblUStVPositionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUStVPositionenDataTable) 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 VERAGDataSet.tblUStVPositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUStVPositionenDataTable = New VERAGDataSet.tblUStVPositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUStVPositionenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUStVPositionen") 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_UStVAn_ID As Integer, ByVal Original_UStVPo_ID As Short, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UStVAn_ID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UStVPo_ID,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 UStVAn_ID As Integer, ByVal UStVPo_ID As Short, ByVal UStVPo_ReDat As Global.System.Nullable(Of Date), ByVal UStVPo_ReNr As String, ByVal UStVPo_USteuerbetrag As Decimal, ByVal UStVPo_Leistungsbezeichnung As String, ByVal UStVPo_Leistender As String, ByVal UStVPo_Schnittstelle As Boolean, ByVal UStVPo_SchnittstellenNr As Short, ByVal UStVPo_Umrechnungskurs As Global.System.Nullable(Of Double), ByVal UStVPo_USteuerbetragEUR As Global.System.Nullable(Of Decimal), ByVal UStVPo_Sachbearbeiter As String, ByVal UStVPo_Zeitstempel As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(UStVAn_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(UStVPo_ID,Short) If (UStVPo_ReDat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(UStVPo_ReDat.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (UStVPo_ReNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(UStVPo_ReNr,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(UStVPo_USteuerbetrag,Decimal) If (UStVPo_Leistungsbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(UStVPo_Leistungsbezeichnung,String) End If If (UStVPo_Leistender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(UStVPo_Leistender,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(UStVPo_Schnittstelle,Boolean) Me.Adapter.InsertCommand.Parameters(8).Value = CType(UStVPo_SchnittstellenNr,Short) If (UStVPo_Umrechnungskurs.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(UStVPo_Umrechnungskurs.Value,Double) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (UStVPo_USteuerbetragEUR.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(UStVPo_USteuerbetragEUR.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (UStVPo_Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(UStVPo_Sachbearbeiter,String) End If If (UStVPo_Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(UStVPo_Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(12).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 UStVAn_ID As Integer, _ ByVal UStVPo_ID As Short, _ ByVal UStVPo_ReDat As Global.System.Nullable(Of Date), _ ByVal UStVPo_ReNr As String, _ ByVal UStVPo_USteuerbetrag As Decimal, _ ByVal UStVPo_Leistungsbezeichnung As String, _ ByVal UStVPo_Leistender As String, _ ByVal UStVPo_Schnittstelle As Boolean, _ ByVal UStVPo_SchnittstellenNr As Short, _ ByVal UStVPo_Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal UStVPo_USteuerbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVPo_Sachbearbeiter As String, _ ByVal UStVPo_Zeitstempel As Global.System.Nullable(Of Date), _ ByVal Original_UStVAn_ID As Integer, _ ByVal Original_UStVPo_ID As Short, _ ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UStVAn_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UStVPo_ID,Short) If (UStVPo_ReDat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(UStVPo_ReDat.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (UStVPo_ReNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(UStVPo_ReNr,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(UStVPo_USteuerbetrag,Decimal) If (UStVPo_Leistungsbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UStVPo_Leistungsbezeichnung,String) End If If (UStVPo_Leistender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(UStVPo_Leistender,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(UStVPo_Schnittstelle,Boolean) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(UStVPo_SchnittstellenNr,Short) If (UStVPo_Umrechnungskurs.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(UStVPo_Umrechnungskurs.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (UStVPo_USteuerbetragEUR.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(UStVPo_USteuerbetragEUR.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (UStVPo_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(UStVPo_Sachbearbeiter,String) End If If (UStVPo_Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(UStVPo_Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_UStVAn_ID,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_UStVPo_ID,Short) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 UStVPo_ReDat As Global.System.Nullable(Of Date), ByVal UStVPo_ReNr As String, ByVal UStVPo_USteuerbetrag As Decimal, ByVal UStVPo_Leistungsbezeichnung As String, ByVal UStVPo_Leistender As String, ByVal UStVPo_Schnittstelle As Boolean, ByVal UStVPo_SchnittstellenNr As Short, ByVal UStVPo_Umrechnungskurs As Global.System.Nullable(Of Double), ByVal UStVPo_USteuerbetragEUR As Global.System.Nullable(Of Decimal), ByVal UStVPo_Sachbearbeiter As String, ByVal UStVPo_Zeitstempel As Global.System.Nullable(Of Date), ByVal Original_UStVAn_ID As Integer, ByVal Original_UStVPo_ID As Short, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_UStVAn_ID, Original_UStVPo_ID, UStVPo_ReDat, UStVPo_ReNr, UStVPo_USteuerbetrag, UStVPo_Leistungsbezeichnung, UStVPo_Leistender, UStVPo_Schnittstelle, UStVPo_SchnittstellenNr, UStVPo_Umrechnungskurs, UStVPo_USteuerbetragEUR, UStVPo_Sachbearbeiter, UStVPo_Zeitstempel, Original_UStVAn_ID, Original_UStVPo_ID, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUStVTexteTableAdapter 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 = "tblUStVTexte" tableMapping.ColumnMappings.Add("UStVTe_Text", "UStVTe_Text") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblUStVTexte] WHERE (([UStVTe_Text] = @Original_UStVTe_Text) A"& _ "ND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVTe_Text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVTe_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblUStVTexte] ([UStVTe_Text]) VALUES (@UStVTe_Text);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT U"& _ "StVTe_Text, SSMA_TimeStamp FROM tblUStVTexte WHERE (UStVTe_Text = @UStVTe_Text)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVTe_Text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVTe_Text", 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].[tblUStVTexte] SET [UStVTe_Text] = @UStVTe_Text WHERE (([UStVTe_Text"& _ "] = @Original_UStVTe_Text) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "SELECT UStVTe_Text, SSMA_TimeStamp FROM tblUStVTexte WHERE (UStVTe_Text = @UStVT"& _ "e_Text)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVTe_Text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVTe_Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UStVTe_Text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVTe_Text", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVTe_Text, SSMA_TimeStamp FROM dbo.tblUStVTexte" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUStVTexteDataTable) 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 VERAGDataSet.tblUStVTexteDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUStVTexteDataTable = New VERAGDataSet.tblUStVTexteDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUStVTexteDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUStVTexte") 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_UStVTe_Text As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_UStVTe_Text Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_UStVTe_Text") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UStVTe_Text,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 UStVTe_Text As String) As Integer If (UStVTe_Text Is Nothing) Then Throw New Global.System.ArgumentNullException("UStVTe_Text") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(UStVTe_Text,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 UStVTe_Text As String, ByVal Original_UStVTe_Text As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (UStVTe_Text Is Nothing) Then Throw New Global.System.ArgumentNullException("UStVTe_Text") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UStVTe_Text,String) End If If (Original_UStVTe_Text Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_UStVTe_Text") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_UStVTe_Text,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Original_UStVTe_Text As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_UStVTe_Text, Original_UStVTe_Text, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUTAArchivTableAdapter 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 = "tblUTAArchiv" tableMapping.ColumnMappings.Add("ErstellDatumUhrzeit", "ErstellDatumUhrzeit") tableMapping.ColumnMappings.Add("Übertragungsnummer", "Übertragungsnummer") tableMapping.ColumnMappings.Add("Übertragungsposition", "Übertragungsposition") tableMapping.ColumnMappings.Add("Abrechnungsnummer", "Abrechnungsnummer") tableMapping.ColumnMappings.Add("Datum_für_Lieferungen_und_Leistungen_bis", "Datum_für_Lieferungen_und_Leistungen_bis") tableMapping.ColumnMappings.Add("Rechnungsempfänger_Kundennummer", "Rechnungsempfänger_Kundennummer") tableMapping.ColumnMappings.Add("Abrechnungsdatum", "Abrechnungsdatum") tableMapping.ColumnMappings.Add("Kundennummer", "Kundennummer") tableMapping.ColumnMappings.Add("Kartennummer", "Kartennummer") tableMapping.ColumnMappings.Add("Belegdatum", "Belegdatum") tableMapping.ColumnMappings.Add("Akzeptanzstellennummer", "Akzeptanzstellennummer") tableMapping.ColumnMappings.Add("Standort_der_Akzeptanzstelle", "Standort_der_Akzeptanzstelle") tableMapping.ColumnMappings.Add("Lieferland", "Lieferland") tableMapping.ColumnMappings.Add("Belegnummer_des_Lieferanten", "Belegnummer_des_Lieferanten") tableMapping.ColumnMappings.Add("Kilometerstand", "Kilometerstand") tableMapping.ColumnMappings.Add("Fakturierwarenart", "Fakturierwarenart") tableMapping.ColumnMappings.Add("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", "Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen") tableMapping.ColumnMappings.Add("Menge", "Menge") tableMapping.ColumnMappings.Add("SB_BT", "SB_BT") tableMapping.ColumnMappings.Add("Umsatzsteuerprozentsatz", "Umsatzsteuerprozentsatz") tableMapping.ColumnMappings.Add("Lieferlandwährung_ISO", "Lieferlandwährung_ISO") tableMapping.ColumnMappings.Add("Einzelpreis_Brutto_in_Lieferlandwährung", "Einzelpreis_Brutto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Einzelpreis_Netto_in_Lieferlandwährung", "Einzelpreis_Netto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Betrag_Service_in_Lieferlandwährung", "Betrag_Service_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Betrag_Nachlass_in_Lieferlandwährung", "Betrag_Nachlass_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Netto_in_Lieferlandwährung", "Gesamtbetrag_Netto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Brutto_in_Lieferlandwährung", "Gesamtbetrag_Brutto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Darstellwährung_ISO", "Darstellwährung_ISO") tableMapping.ColumnMappings.Add("Betrag_Service_in_Darstellwährung", "Betrag_Service_in_Darstellwährung") tableMapping.ColumnMappings.Add("Betrag_Nachlass_in_Darstellwährung", "Betrag_Nachlass_in_Darstellwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Netto_in_Darstellwährung", "Gesamtbetrag_Netto_in_Darstellwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", "Gesamtbetrag_Umsatzsteuer_in_Darstellwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Brutto_in_Darstellwährung", "Gesamtbetrag_Brutto_in_Darstellwährung") tableMapping.ColumnMappings.Add("Prägetext_i_d_R_KFZ_Kennzeichen", "Prägetext_i_d_R_KFZ_Kennzeichen") tableMapping.ColumnMappings.Add("Kunden_Kostenstelle_1", "Kunden_Kostenstelle_1") tableMapping.ColumnMappings.Add("Kartentyp", "Kartentyp") tableMapping.ColumnMappings.Add("Filler_Feld_35", "Filler_Feld_35") tableMapping.ColumnMappings.Add("Filler_Feld_36", "Filler_Feld_36") tableMapping.ColumnMappings.Add("KZ_Autobahn", "KZ_Autobahn") tableMapping.ColumnMappings.Add("INFO_Feld", "INFO_Feld") tableMapping.ColumnMappings.Add("KFZ_Kennzeichen", "KFZ_Kennzeichen") tableMapping.ColumnMappings.Add("Filler_Feld_40", "Filler_Feld_40") tableMapping.ColumnMappings.Add("Buchungsart", "Buchungsart") tableMapping.ColumnMappings.Add("Buchungsgrund", "Buchungsgrund") tableMapping.ColumnMappings.Add("Filler_Feld_43", "Filler_Feld_43") tableMapping.ColumnMappings.Add("Informationsbeleg", "Informationsbeleg") tableMapping.ColumnMappings.Add("Belegherkunft", "Belegherkunft") tableMapping.ColumnMappings.Add("Filler_Feld_46", "Filler_Feld_46") tableMapping.ColumnMappings.Add("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", "Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen") tableMapping.ColumnMappings.Add("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen") tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Umsatzsteuerprozentsatz_informativ", "Umsatzsteuerprozentsatz_informativ") tableMapping.ColumnMappings.Add("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", "Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ") tableMapping.ColumnMappings.Add("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", "Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ") tableMapping.ColumnMappings.Add("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", "Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ") tableMapping.ColumnMappings.Add("Fälligkeitsdatum", "Fälligkeitsdatum") tableMapping.ColumnMappings.Add("Zahlungsziel_in_Tagen", "Zahlungsziel_in_Tagen") tableMapping.ColumnMappings.Add("Zahlungsart", "Zahlungsart") tableMapping.ColumnMappings.Add("TC_Rechnungsnummer_gegenüber_dem_Nutzer", "TC_Rechnungsnummer_gegenüber_dem_Nutzer") tableMapping.ColumnMappings.Add("TC_Rechnungsdatum", "TC_Rechnungsdatum") tableMapping.ColumnMappings.Add("Zahlungszielgruppe", "Zahlungszielgruppe") tableMapping.ColumnMappings.Add("Kunden_Kostenstelle_2", "Kunden_Kostenstelle_2") tableMapping.ColumnMappings.Add("Lieferzeit", "Lieferzeit") tableMapping.ColumnMappings.Add("Fremdkartennummer", "Fremdkartennummer") tableMapping.ColumnMappings.Add("OnBoardUnitID", "OnBoardUnitID") tableMapping.ColumnMappings.Add("KFZ_Kennzeichen_komprimiert", "KFZ_Kennzeichen_komprimiert") tableMapping.ColumnMappings.Add("Kartenkategorie", "Kartenkategorie") tableMapping.ColumnMappings.Add("Rechnungsnummer_pro_Lieferland", "Rechnungsnummer_pro_Lieferland") tableMapping.ColumnMappings.Add("Autobahnauffahrt", "Autobahnauffahrt") tableMapping.ColumnMappings.Add("Autobahnausfahrt", "Autobahnausfahrt") tableMapping.ColumnMappings.Add("Rabattschlüssel_der_französischen_Autobahngesellschaften", "Rabattschlüssel_der_französischen_Autobahngesellschaften") tableMapping.ColumnMappings.Add("Nummer_Belastungsanzeige", "Nummer_Belastungsanzeige") tableMapping.ColumnMappings.Add("Betreuungsstelle", "Betreuungsstelle") tableMapping.ColumnMappings.Add("Filler_Feld_72", "Filler_Feld_72") tableMapping.ColumnMappings.Add("Akzeptanz_Medium", "Akzeptanz_Medium") tableMapping.ColumnMappings.Add("Steuerkategorie", "Steuerkategorie") tableMapping.ColumnMappings.Add("UTA_Beleg_ID", "UTA_Beleg_ID") tableMapping.ColumnMappings.Add("UTA_Normalbeleg_ID", "UTA_Normalbeleg_ID") tableMapping.ColumnMappings.Add("Gebühren_Bescheinigung_von", "Gebühren_Bescheinigung_von") tableMapping.ColumnMappings.Add("Gebühren_Bescheinigung_bis", "Gebühren_Bescheinigung_bis") tableMapping.ColumnMappings.Add("Herausgeber_Nutzer_Nummer", "Herausgeber_Nutzer_Nummer") tableMapping.ColumnMappings.Add("Maßeinheit", "Maßeinheit") tableMapping.ColumnMappings.Add("Land_der_Akzeptanzstelle", "Land_der_Akzeptanzstelle") tableMapping.ColumnMappings.Add("Postleitzahl_der_Akzeptanzstelle", "Postleitzahl_der_Akzeptanzstelle") tableMapping.ColumnMappings.Add("Steuerliches_Lieferland", "Steuerliches_Lieferland") tableMapping.ColumnMappings.Add("Steuerliche_Produktgruppe", "Steuerliche_Produktgruppe") tableMapping.ColumnMappings.Add("Leistungsort_verlagerbar", "Leistungsort_verlagerbar") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUTAArchiv] WHERE (([ErstellDatumUhrzeit] = @Original_Erstel"& _ "lDatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND ([Ü"& _ "bertragungsposition] = @Original_Übertragungsposition) AND ((@IsNull_upsize_ts ="& _ " 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUTAArchiv] ([ErstellDatumUhrzeit], [Übertragungsnummer], [Ü"& _ "bertragungsposition], [Abrechnungsnummer], [Datum_für_Lieferungen_und_Leistungen"& _ "_bis], [Rechnungsempfänger_Kundennummer], [Abrechnungsdatum], [Kundennummer], [K"& _ "artennummer], [Belegdatum], [Akzeptanzstellennummer], [Standort_der_Akzeptanzste"& _ "lle], [Lieferland], [Belegnummer_des_Lieferanten], [Kilometerstand], [Fakturierw"& _ "arenart], [Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen], [Menge], [SB_BT],"& _ " [Umsatzsteuerprozentsatz], [Lieferlandwährung_ISO], [Einzelpreis_Brutto_in_Lief"& _ "erlandwährung], [Einzelpreis_Netto_in_Lieferlandwährung], [Betrag_Service_in_Lie"& _ "ferlandwährung], [Betrag_Nachlass_in_Lieferlandwährung], [Gesamtbetrag_Netto_in_"& _ "Lieferlandwährung], [Gesamtbetrag_Brutto_in_Lieferlandwährung], [Darstellwährung"& _ "_ISO], [Betrag_Service_in_Darstellwährung], [Betrag_Nachlass_in_Darstellwährung]"& _ ", [Gesamtbetrag_Netto_in_Darstellwährung], [Gesamtbetrag_Umsatzsteuer_in_Darstel"& _ "lwährung], [Gesamtbetrag_Brutto_in_Darstellwährung], [Prägetext_i_d_R_KFZ_Kennze"& _ "ichen], [Kunden_Kostenstelle_1], [Kartentyp], [Filler_Feld_35], [Filler_Feld_36]"& _ ", [KZ_Autobahn], [INFO_Feld], [KFZ_Kennzeichen], [Filler_Feld_40], [Buchungsart]"& _ ", [Buchungsgrund], [Filler_Feld_43], [Informationsbeleg], [Belegherkunft], [Fill"& _ "er_Feld_46], [Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen], ["& _ "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen], [Rechnungsdatum]"& _ ", [Umsatzsteuerprozentsatz_informativ], [Betrag_Nachlass_in_Lieferlandwährung_Um"& _ "satzsteuer_informativ], [Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_inform"& _ "ativ], [Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ], [Fälligkeits"& _ "datum], [Zahlungsziel_in_Tagen], [Zahlungsart], [TC_Rechnungsnummer_gegenüber_de"& _ "m_Nutzer], [TC_Rechnungsdatum], [Zahlungszielgruppe], [Kunden_Kostenstelle_2], ["& _ "Lieferzeit], [Fremdkartennummer], [OnBoardUnitID], [KFZ_Kennzeichen_komprimiert]"& _ ", [Kartenkategorie], [Rechnungsnummer_pro_Lieferland], [Autobahnauffahrt], [Auto"& _ "bahnausfahrt], [Rabattschlüssel_der_französischen_Autobahngesellschaften], [Numm"& _ "er_Belastungsanzeige], [Betreuungsstelle], [Filler_Feld_72], [Akzeptanz_Medium],"& _ " [Steuerkategorie], [UTA_Beleg_ID], [UTA_Normalbeleg_ID], [Gebühren_Bescheinigun"& _ "g_von], [Gebühren_Bescheinigung_bis], [Herausgeber_Nutzer_Nummer], [Maßeinheit],"& _ " [Land_der_Akzeptanzstelle], [Postleitzahl_der_Akzeptanzstelle], [Steuerliches_L"& _ "ieferland], [Steuerliche_Produktgruppe], [Leistungsort_verlagerbar], [UStVAn_ID]"& _ ") VALUES (@ErstellDatumUhrzeit, @Übertragungsnummer, @Übertragungsposition, @Abr"& _ "echnungsnummer, @Datum_für_Lieferungen_und_Leistungen_bis, @Rechnungsempfänger_K"& _ "undennummer, @Abrechnungsdatum, @Kundennummer, @Kartennummer, @Belegdatum, @Akze"& _ "ptanzstellennummer, @Standort_der_Akzeptanzstelle, @Lieferland, @Belegnummer_des"& _ "_Lieferanten, @Kilometerstand, @Fakturierwarenart, @Vorzeichen_Statusfeld_für_al"& _ "le_Beträge_und_Mengen, @Menge, @SB_BT, @Umsatzsteuerprozentsatz, @Lieferlandwähr"& _ "ung_ISO, @Einzelpreis_Brutto_in_Lieferlandwährung, @Einzelpreis_Netto_in_Lieferl"& _ "andwährung, @Betrag_Service_in_Lieferlandwährung, @Betrag_Nachlass_in_Lieferland"& _ "währung, @Gesamtbetrag_Netto_in_Lieferlandwährung, @Gesamtbetrag_Brutto_in_Liefe"& _ "rlandwährung, @Darstellwährung_ISO, @Betrag_Service_in_Darstellwährung, @Betrag_"& _ "Nachlass_in_Darstellwährung, @Gesamtbetrag_Netto_in_Darstellwährung, @Gesamtbetr"& _ "ag_Umsatzsteuer_in_Darstellwährung, @Gesamtbetrag_Brutto_in_Darstellwährung, @Pr"& _ "ägetext_i_d_R_KFZ_Kennzeichen, @Kunden_Kostenstelle_1, @Kartentyp, @Filler_Feld_"& _ "35, @Filler_Feld_36, @KZ_Autobahn, @INFO_Feld, @KFZ_Kennzeichen, @Filler_Feld_40"& _ ", @Buchungsart, @Buchungsgrund, @Filler_Feld_43, @Informationsbeleg, @Belegherku"& _ "nft, @Filler_Feld_46, @Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommast"& _ "ellen, @Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen, @Rechnung"& _ "sdatum, @Umsatzsteuerprozentsatz_informativ, @Betrag_Nachlass_in_Lieferlandwähru"& _ "ng_Umsatzsteuer_informativ, @Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_in"& _ "formativ, @Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ, @Fälligkei"& _ "tsdatum, @Zahlungsziel_in_Tagen, @Zahlungsart, @TC_Rechnungsnummer_gegenüber_dem"& _ "_Nutzer, @TC_Rechnungsdatum, @Zahlungszielgruppe, @Kunden_Kostenstelle_2, @Liefe"& _ "rzeit, @Fremdkartennummer, @OnBoardUnitID, @KFZ_Kennzeichen_komprimiert, @Karten"& _ "kategorie, @Rechnungsnummer_pro_Lieferland, @Autobahnauffahrt, @Autobahnausfahrt"& _ ", @Rabattschlüssel_der_französischen_Autobahngesellschaften, @Nummer_Belastungsa"& _ "nzeige, @Betreuungsstelle, @Filler_Feld_72, @Akzeptanz_Medium, @Steuerkategorie,"& _ " @UTA_Beleg_ID, @UTA_Normalbeleg_ID, @Gebühren_Bescheinigung_von, @Gebühren_Besc"& _ "heinigung_bis, @Herausgeber_Nutzer_Nummer, @Maßeinheit, @Land_der_Akzeptanzstell"& _ "e, @Postleitzahl_der_Akzeptanzstelle, @Steuerliches_Lieferland, @Steuerliche_Pro"& _ "duktgruppe, @Leistungsort_verlagerbar, @UStVAn_ID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzeit,"& _ " Übertragungsnummer, Übertragungsposition, Abrechnungsnummer, Datum_für_Lieferun"& _ "gen_und_Leistungen_bis, Rechnungsempfänger_Kundennummer, Abrechnungsdatum, Kunde"& _ "nnummer, Kartennummer, Belegdatum, Akzeptanzstellennummer, Standort_der_Akzeptan"& _ "zstelle, Lieferland, Belegnummer_des_Lieferanten, Kilometerstand, Fakturierwaren"& _ "art, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen, Menge, SB_BT, Umsatzsteu"& _ "erprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brutto_in_Lieferlandwährung, E"& _ "inzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_in_Lieferlandwährung, Betr"& _ "ag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_in_Lieferlandwährung, Gesam"& _ "tbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_ISO, Betrag_Service_in_Dars"& _ "tellwährung, Betrag_Nachlass_in_Darstellwährung, Gesamtbetrag_Netto_in_Darstellw"& _ "ährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, Gesamtbetrag_Brutto_in_Dar"& _ "stellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_Kostenstelle_1, Kartentyp,"& _ " Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Feld, KFZ_Kennzeichen, Filler"& _ "_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, Informationsbeleg, Beleghe"& _ "rkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommas"& _ "tellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen, Rechnungs"& _ "datum, Umsatzsteuerprozentsatz_informativ, Betrag_Nachlass_in_Lieferlandwährung_"& _ "Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_inform"& _ "ativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ, Fälligkeitsdatu"& _ "m, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnummer_gegenüber_dem_Nutzer, "& _ "TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenstelle_2, Lieferzeit, Fremdk"& _ "artennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimiert, Kartenkategorie, Rechnu"& _ "ngsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnausfahrt, Rabattschlüssel_de"& _ "r_französischen_Autobahngesellschaften, Nummer_Belastungsanzeige, Betreuungsstel"& _ "le, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie, UTA_Beleg_ID, UTA_Normalb"& _ "eleg_ID, Gebühren_Bescheinigung_von, Gebühren_Bescheinigung_bis, Herausgeber_Nut"& _ "zer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Postleitzahl_der_Akzeptanzstel"& _ "le, Steuerliches_Lieferland, Steuerliche_Produktgruppe, Leistungsort_verlagerbar"& _ ", UStVAn_ID, upsize_ts FROM tblUTAArchiv WHERE (ErstellDatumUhrzeit = @ErstellDa"& _ "tumUhrzeit) AND (Übertragungsnummer = @Übertragungsnummer) AND (Übertragungsposi"& _ "tion = @Übertragungsposition)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsnummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsempfänger_Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsempfänger_Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanzstellennummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanzstellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standort_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standort_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegnummer_des_Lieferanten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegnummer_des_Lieferanten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kilometerstand", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kilometerstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Menge", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_BT", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_BT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferlandwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferlandwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Darstellwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Darstellwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartentyp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartentyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_35", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_35", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_36", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_36", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KZ_Autobahn", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KZ_Autobahn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INFO_Feld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INFO_Feld", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_40", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_40", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsgrund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsgrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_43", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_43", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Informationsbeleg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Informationsbeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegherkunft", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegherkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_46", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_46", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz_informativ", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel_in_Tagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel_in_Tagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungszielgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungszielgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferzeit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fremdkartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fremdkartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OnBoardUnitID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OnBoardUnitID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen_komprimiert", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen_komprimiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer_pro_Lieferland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer_pro_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnauffahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnauffahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnausfahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnausfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer_Belastungsanzeige", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer_Belastungsanzeige", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betreuungsstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betreuungsstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_72", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_72", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanz_Medium", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanz_Medium", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Beleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Beleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Normalbeleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Normalbeleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_von", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Herausgeber_Nutzer_Nummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Herausgeber_Nutzer_Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Maßeinheit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Maßeinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Land_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Land_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postleitzahl_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postleitzahl_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliches_Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliches_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliche_Produktgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliche_Produktgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsort_verlagerbar", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsort_verlagerbar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_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 [dbo].[tblUTAArchiv] SET [ErstellDatumUhrzeit] = @ErstellDatumUhrzeit, [Üb"& _ "ertragungsnummer] = @Übertragungsnummer, [Übertragungsposition] = @Übertragungsp"& _ "osition, [Abrechnungsnummer] = @Abrechnungsnummer, [Datum_für_Lieferungen_und_Le"& _ "istungen_bis] = @Datum_für_Lieferungen_und_Leistungen_bis, [Rechnungsempfänger_K"& _ "undennummer] = @Rechnungsempfänger_Kundennummer, [Abrechnungsdatum] = @Abrechnun"& _ "gsdatum, [Kundennummer] = @Kundennummer, [Kartennummer] = @Kartennummer, [Belegd"& _ "atum] = @Belegdatum, [Akzeptanzstellennummer] = @Akzeptanzstellennummer, [Stando"& _ "rt_der_Akzeptanzstelle] = @Standort_der_Akzeptanzstelle, [Lieferland] = @Lieferl"& _ "and, [Belegnummer_des_Lieferanten] = @Belegnummer_des_Lieferanten, [Kilometersta"& _ "nd] = @Kilometerstand, [Fakturierwarenart] = @Fakturierwarenart, [Vorzeichen_Sta"& _ "tusfeld_für_alle_Beträge_und_Mengen] = @Vorzeichen_Statusfeld_für_alle_Beträge_u"& _ "nd_Mengen, [Menge] = @Menge, [SB_BT] = @SB_BT, [Umsatzsteuerprozentsatz] = @Umsa"& _ "tzsteuerprozentsatz, [Lieferlandwährung_ISO] = @Lieferlandwährung_ISO, [Einzelpr"& _ "eis_Brutto_in_Lieferlandwährung] = @Einzelpreis_Brutto_in_Lieferlandwährung, [Ei"& _ "nzelpreis_Netto_in_Lieferlandwährung] = @Einzelpreis_Netto_in_Lieferlandwährung,"& _ " [Betrag_Service_in_Lieferlandwährung] = @Betrag_Service_in_Lieferlandwährung, ["& _ "Betrag_Nachlass_in_Lieferlandwährung] = @Betrag_Nachlass_in_Lieferlandwährung, ["& _ "Gesamtbetrag_Netto_in_Lieferlandwährung] = @Gesamtbetrag_Netto_in_Lieferlandwähr"& _ "ung, [Gesamtbetrag_Brutto_in_Lieferlandwährung] = @Gesamtbetrag_Brutto_in_Liefer"& _ "landwährung, [Darstellwährung_ISO] = @Darstellwährung_ISO, [Betrag_Service_in_Da"& _ "rstellwährung] = @Betrag_Service_in_Darstellwährung, [Betrag_Nachlass_in_Darstel"& _ "lwährung] = @Betrag_Nachlass_in_Darstellwährung, [Gesamtbetrag_Netto_in_Darstell"& _ "währung] = @Gesamtbetrag_Netto_in_Darstellwährung, [Gesamtbetrag_Umsatzsteuer_in"& _ "_Darstellwährung] = @Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, [Gesamtbetrag"& _ "_Brutto_in_Darstellwährung] = @Gesamtbetrag_Brutto_in_Darstellwährung, [Prägetex"& _ "t_i_d_R_KFZ_Kennzeichen] = @Prägetext_i_d_R_KFZ_Kennzeichen, [Kunden_Kostenstell"& _ "e_1] = @Kunden_Kostenstelle_1, [Kartentyp] = @Kartentyp, [Filler_Feld_35] = @Fil"& _ "ler_Feld_35, [Filler_Feld_36] = @Filler_Feld_36, [KZ_Autobahn] = @KZ_Autobahn, ["& _ "INFO_Feld] = @INFO_Feld, [KFZ_Kennzeichen] = @KFZ_Kennzeichen, [Filler_Feld_40] "& _ "= @Filler_Feld_40, [Buchungsart] = @Buchungsart, [Buchungsgrund] = @Buchungsgrun"& _ "d, [Filler_Feld_43] = @Filler_Feld_43, [Informationsbeleg] = @Informationsbeleg,"& _ " [Belegherkunft] = @Belegherkunft, [Filler_Feld_46] = @Filler_Feld_46, [Einzelpr"& _ "eis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen] = @Einzelpreis_Brutto_in"& _ "_Lieferlandwährung_mit_4_Nachkommastellen, [Einzelpreis_Netto_in_Lieferlandwähru"& _ "ng_mit_4_Nachkommastellen] = @Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachk"& _ "ommastellen, [Rechnungsdatum] = @Rechnungsdatum, [Umsatzsteuerprozentsatz_inform"& _ "ativ] = @Umsatzsteuerprozentsatz_informativ, [Betrag_Nachlass_in_Lieferlandwähru"& _ "ng_Umsatzsteuer_informativ] = @Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer"& _ "_informativ, [Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ] = @Be"& _ "trag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ, [Gesamtbetrag_in_Lief"& _ "erlandwährung_Umsatzsteuer_informativ] = @Gesamtbetrag_in_Lieferlandwährung_Umsa"& _ "tzsteuer_informativ, [Fälligkeitsdatum] = @Fälligkeitsdatum, [Zahlungsziel_in_Ta"& _ "gen] = @Zahlungsziel_in_Tagen, [Zahlungsart] = @Zahlungsart, [TC_Rechnungsnummer"& _ "_gegenüber_dem_Nutzer] = @TC_Rechnungsnummer_gegenüber_dem_Nutzer, [TC_Rechnungs"& _ "datum] = @TC_Rechnungsdatum, [Zahlungszielgruppe] = @Zahlungszielgruppe, [Kunden"& _ "_Kostenstelle_2] = @Kunden_Kostenstelle_2, [Lieferzeit] = @Lieferzeit, [Fremdkar"& _ "tennummer] = @Fremdkartennummer, [OnBoardUnitID] = @OnBoardUnitID, [KFZ_Kennzeic"& _ "hen_komprimiert] = @KFZ_Kennzeichen_komprimiert, [Kartenkategorie] = @Kartenkate"& _ "gorie, [Rechnungsnummer_pro_Lieferland] = @Rechnungsnummer_pro_Lieferland, [Auto"& _ "bahnauffahrt] = @Autobahnauffahrt, [Autobahnausfahrt] = @Autobahnausfahrt, [Raba"& _ "ttschlüssel_der_französischen_Autobahngesellschaften] = @Rabattschlüssel_der_fra"& _ "nzösischen_Autobahngesellschaften, [Nummer_Belastungsanzeige] = @Nummer_Belastun"& _ "gsanzeige, [Betreuungsstelle] = @Betreuungsstelle, [Filler_Feld_72] = @Filler_Fe"& _ "ld_72, [Akzeptanz_Medium] = @Akzeptanz_Medium, [Steuerkategorie] = @Steuerkatego"& _ "rie, [UTA_Beleg_ID] = @UTA_Beleg_ID, [UTA_Normalbeleg_ID] = @UTA_Normalbeleg_ID,"& _ " [Gebühren_Bescheinigung_von] = @Gebühren_Bescheinigung_von, [Gebühren_Bescheini"& _ "gung_bis] = @Gebühren_Bescheinigung_bis, [Herausgeber_Nutzer_Nummer] = @Herausge"& _ "ber_Nutzer_Nummer, [Maßeinheit] = @Maßeinheit, [Land_der_Akzeptanzstelle] = @Lan"& _ "d_der_Akzeptanzstelle, [Postleitzahl_der_Akzeptanzstelle] = @Postleitzahl_der_Ak"& _ "zeptanzstelle, [Steuerliches_Lieferland] = @Steuerliches_Lieferland, [Steuerlich"& _ "e_Produktgruppe] = @Steuerliche_Produktgruppe, [Leistungsort_verlagerbar] = @Lei"& _ "stungsort_verlagerbar, [UStVAn_ID] = @UStVAn_ID WHERE (([ErstellDatumUhrzeit] = "& _ "@Original_ErstellDatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragung"& _ "snummer) AND ([Übertragungsposition] = @Original_Übertragungsposition) AND ((@Is"& _ "Null_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_t"& _ "s)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsposition, Abr"& _ "echnungsnummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kun"& _ "dennummer, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzst"& _ "ellennummer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferant"& _ "en, Kilometerstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_un"& _ "d_Mengen, Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpr"& _ "eis_Brutto_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_"& _ "Service_in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag"& _ "_Netto_in_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellw"& _ "ährung_ISO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährun"& _ "g, Gesamtbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellw"& _ "ährung, Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen,"& _ " Kunden_Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, "& _ "INFO_Feld, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_F"& _ "eld_43, Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_"& _ "Lieferlandwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung"& _ "_mit_4_Nachkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Bet"& _ "rag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lie"& _ "ferlandwährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatz"& _ "steuer_informativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rech"& _ "nungsnummer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_"& _ "Kostenstelle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_ko"& _ "mprimiert, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Au"& _ "tobahnausfahrt, Rabattschlüssel_der_französischen_Autobahngesellschaften, Nummer"& _ "_Belastungsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerka"& _ "tegorie, UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_"& _ "Bescheinigung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstel"& _ "le, Postleitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produ"& _ "ktgruppe, Leistungsort_verlagerbar, UStVAn_ID, upsize_ts FROM tblUTAArchiv WHERE"& _ " (ErstellDatumUhrzeit = @ErstellDatumUhrzeit) AND (Übertragungsnummer = @Übertra"& _ "gungsnummer) AND (Übertragungsposition = @Übertragungsposition)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsnummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsempfänger_Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsempfänger_Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanzstellennummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanzstellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standort_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standort_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegnummer_des_Lieferanten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegnummer_des_Lieferanten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kilometerstand", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kilometerstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Menge", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_BT", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_BT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferlandwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferlandwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Darstellwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Darstellwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartentyp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartentyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_35", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_35", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_36", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_36", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KZ_Autobahn", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KZ_Autobahn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INFO_Feld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INFO_Feld", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_40", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_40", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsgrund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsgrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_43", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_43", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Informationsbeleg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Informationsbeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegherkunft", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegherkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_46", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_46", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz_informativ", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel_in_Tagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel_in_Tagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungszielgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungszielgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferzeit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fremdkartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fremdkartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OnBoardUnitID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OnBoardUnitID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen_komprimiert", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen_komprimiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer_pro_Lieferland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer_pro_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnauffahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnauffahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnausfahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnausfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer_Belastungsanzeige", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer_Belastungsanzeige", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betreuungsstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betreuungsstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_72", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_72", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanz_Medium", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanz_Medium", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Beleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Beleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Normalbeleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Normalbeleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_von", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Herausgeber_Nutzer_Nummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Herausgeber_Nutzer_Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Maßeinheit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Maßeinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Land_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Land_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postleitzahl_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postleitzahl_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliches_Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliches_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliche_Produktgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliche_Produktgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsort_verlagerbar", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsort_verlagerbar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsposition, Abrechnungs"& _ "nummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kundennumme"& _ "r, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzstellennum"& _ "mer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilo"& _ "meterstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen"& _ ", Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brut"& _ "to_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_"& _ "in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_i"& _ "n_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_I"& _ "SO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesam"& _ "tbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, "& _ "Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_"& _ "Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Fel"& _ "d, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, "& _ "Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferla"& _ "ndwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_N"& _ "achkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nach"& _ "lass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandw"& _ "ährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_i"& _ "nformativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnum"& _ "mer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenst"& _ "elle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimier"& _ "t, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnau"& _ "sfahrt, Rabattschlüssel_der_französischen_Autobahngesellschaften, Nummer_Belastu"& _ "ngsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie,"& _ " UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Beschein"& _ "igung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Post"& _ "leitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produktgruppe"& _ ", Leistungsort_verlagerbar, UStVAn_ID, upsize_ts FROM dbo.tblUTAArchiv" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUTAArchivDataTable) 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 VERAGDataSet.tblUTAArchivDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUTAArchivDataTable = New VERAGDataSet.tblUTAArchivDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUTAArchivDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUTAArchiv") 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_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_Übertragungsposition As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Übertragungsnummer,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Übertragungsposition,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 ErstellDatumUhrzeit As Date, _ ByVal Übertragungsnummer As Integer, _ ByVal Übertragungsposition As Integer, _ ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Global.System.Nullable(Of Date), _ ByVal Rechnungsempfänger_Kundennummer As Global.System.Nullable(Of Integer), _ ByVal Abrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Akzeptanzstellennummer As Global.System.Nullable(Of Double), _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Global.System.Nullable(Of Double), _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Global.System.Nullable(Of Double), _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Global.System.Nullable(Of Double), _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Umsatzsteuerprozentsatz_informativ As Global.System.Nullable(Of Double), _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel_in_Tagen As Global.System.Nullable(Of Short), _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Global.System.Nullable(Of Double), _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Nullable(Of Short), _ ByVal Nummer_Belastungsanzeige As Global.System.Nullable(Of Double), _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Global.System.Nullable(Of Double), _ ByVal UTA_Normalbeleg_ID As Global.System.Nullable(Of Double), _ ByVal Gebühren_Bescheinigung_von As Global.System.Nullable(Of Date), _ ByVal Gebühren_Bescheinigung_bis As Global.System.Nullable(Of Date), _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(Übertragungsposition,Integer) If (Abrechnungsnummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Abrechnungsnummer.Value,Double) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Datum_für_Lieferungen_und_Leistungen_bis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Datum_für_Lieferungen_und_Leistungen_bis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Rechnungsempfänger_Kundennummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Rechnungsempfänger_Kundennummer.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Abrechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Abrechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(Kundennummer,Integer) If (Kartennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Kartennummer,String) End If If (Belegdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Belegdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Akzeptanzstellennummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Akzeptanzstellennummer.Value,Double) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Standort_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Standort_der_Akzeptanzstelle,String) End If If (Lieferland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Lieferland,String) End If If (Belegnummer_des_Lieferanten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Belegnummer_des_Lieferanten,String) End If If (Kilometerstand.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(Kilometerstand.Value,Double) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Fakturierwarenart") Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Fakturierwarenart,String) End If If (Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen,String) End If If (Menge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(Menge.Value,Double) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (SB_BT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(SB_BT,String) End If If (Umsatzsteuerprozentsatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(Umsatzsteuerprozentsatz.Value,Double) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Lieferlandwährung_ISO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(Lieferlandwährung_ISO,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(Betrag_Service_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(Betrag_Nachlass_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(Gesamtbetrag_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(Gesamtbetrag_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Darstellwährung_ISO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(Darstellwährung_ISO,String) End If If (Betrag_Service_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(Betrag_Service_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(29).Value = CType(Betrag_Nachlass_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(Gesamtbetrag_Netto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(Gesamtbetrag_Brutto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Prägetext_i_d_R_KFZ_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(Prägetext_i_d_R_KFZ_Kennzeichen,String) End If If (Kunden_Kostenstelle_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(Kunden_Kostenstelle_1,String) End If If (Kartentyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(Kartentyp,String) End If If (Filler_Feld_35 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(Filler_Feld_35,String) End If If (Filler_Feld_36 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(Filler_Feld_36,String) End If If (KZ_Autobahn Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(KZ_Autobahn,String) End If If (INFO_Feld Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(INFO_Feld,String) End If If (KFZ_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(KFZ_Kennzeichen,String) End If If (Filler_Feld_40 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(Filler_Feld_40,String) End If If (Buchungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(Buchungsart,String) End If If (Buchungsgrund Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(Buchungsgrund,String) End If If (Filler_Feld_43 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(Filler_Feld_43,String) End If If (Informationsbeleg Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(Informationsbeleg,String) End If If (Belegherkunft Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(Belegherkunft,String) End If If (Filler_Feld_46 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(Filler_Feld_46,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(49).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(50).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Umsatzsteuerprozentsatz_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(Umsatzsteuerprozentsatz_informativ.Value,Double) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(52).Value = CType(Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(53).Value = CType(Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Fälligkeitsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(55).Value = CType(Fälligkeitsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Zahlungsziel_in_Tagen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(56).Value = CType(Zahlungsziel_in_Tagen.Value,Short) Else Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Zahlungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(Zahlungsart,String) End If If (TC_Rechnungsnummer_gegenüber_dem_Nutzer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(TC_Rechnungsnummer_gegenüber_dem_Nutzer,String) End If If (TC_Rechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(59).Value = CType(TC_Rechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Zahlungszielgruppe Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(Zahlungszielgruppe,String) End If If (Kunden_Kostenstelle_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(Kunden_Kostenstelle_2,String) End If If (Lieferzeit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(Lieferzeit,String) End If If (Fremdkartennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(Fremdkartennummer,String) End If If (OnBoardUnitID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(OnBoardUnitID,String) End If If (KFZ_Kennzeichen_komprimiert Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(KFZ_Kennzeichen_komprimiert,String) End If If (Kartenkategorie Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(Kartenkategorie,String) End If If (Rechnungsnummer_pro_Lieferland.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(67).Value = CType(Rechnungsnummer_pro_Lieferland.Value,Double) Else Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Autobahnauffahrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(Autobahnauffahrt,String) End If If (Autobahnausfahrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(Autobahnausfahrt,String) End If If (Rabattschlüssel_der_französischen_Autobahngesellschaften.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(70).Value = CType(Rabattschlüssel_der_französischen_Autobahngesellschaften.Value,Short) Else Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Nummer_Belastungsanzeige.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(71).Value = CType(Nummer_Belastungsanzeige.Value,Double) Else Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Betreuungsstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(Betreuungsstelle,String) End If If (Filler_Feld_72 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(Filler_Feld_72,String) End If If (Akzeptanz_Medium Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(Akzeptanz_Medium,String) End If If (Steuerkategorie Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(Steuerkategorie,String) End If If (UTA_Beleg_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(76).Value = CType(UTA_Beleg_ID.Value,Double) Else Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (UTA_Normalbeleg_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(77).Value = CType(UTA_Normalbeleg_ID.Value,Double) Else Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_von.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(78).Value = CType(Gebühren_Bescheinigung_von.Value,Date) Else Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_bis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(79).Value = CType(Gebühren_Bescheinigung_bis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (Herausgeber_Nutzer_Nummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(Herausgeber_Nutzer_Nummer,String) End If If (Maßeinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(Maßeinheit,String) End If If (Land_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(Land_der_Akzeptanzstelle,String) End If If (Postleitzahl_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(Postleitzahl_der_Akzeptanzstelle,String) End If If (Steuerliches_Lieferland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(Steuerliches_Lieferland,String) End If If (Steuerliche_Produktgruppe Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(Steuerliche_Produktgruppe,String) End If If (Leistungsort_verlagerbar Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(Leistungsort_verlagerbar,String) End If If (UStVAn_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(87).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(87).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 ErstellDatumUhrzeit As Date, _ ByVal Übertragungsnummer As Integer, _ ByVal Übertragungsposition As Integer, _ ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Global.System.Nullable(Of Date), _ ByVal Rechnungsempfänger_Kundennummer As Global.System.Nullable(Of Integer), _ ByVal Abrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Akzeptanzstellennummer As Global.System.Nullable(Of Double), _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Global.System.Nullable(Of Double), _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Global.System.Nullable(Of Double), _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Global.System.Nullable(Of Double), _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Umsatzsteuerprozentsatz_informativ As Global.System.Nullable(Of Double), _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel_in_Tagen As Global.System.Nullable(Of Short), _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Global.System.Nullable(Of Double), _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Nullable(Of Short), _ ByVal Nummer_Belastungsanzeige As Global.System.Nullable(Of Double), _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Global.System.Nullable(Of Double), _ ByVal UTA_Normalbeleg_ID As Global.System.Nullable(Of Double), _ ByVal Gebühren_Bescheinigung_von As Global.System.Nullable(Of Date), _ ByVal Gebühren_Bescheinigung_bis As Global.System.Nullable(Of Date), _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal Original_ErstellDatumUhrzeit As Date, _ ByVal Original_Übertragungsnummer As Integer, _ ByVal Original_Übertragungsposition As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Übertragungsposition,Integer) If (Abrechnungsnummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Abrechnungsnummer.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Datum_für_Lieferungen_und_Leistungen_bis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Datum_für_Lieferungen_und_Leistungen_bis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Rechnungsempfänger_Kundennummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Rechnungsempfänger_Kundennummer.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Abrechnungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Abrechnungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Kundennummer,Integer) If (Kartennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Kartennummer,String) End If If (Belegdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Belegdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Akzeptanzstellennummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Akzeptanzstellennummer.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Standort_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Standort_der_Akzeptanzstelle,String) End If If (Lieferland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Lieferland,String) End If If (Belegnummer_des_Lieferanten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Belegnummer_des_Lieferanten,String) End If If (Kilometerstand.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Kilometerstand.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Fakturierwarenart") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Fakturierwarenart,String) End If If (Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen,String) End If If (Menge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Menge.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (SB_BT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SB_BT,String) End If If (Umsatzsteuerprozentsatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Umsatzsteuerprozentsatz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Lieferlandwährung_ISO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Lieferlandwährung_ISO,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Betrag_Service_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Betrag_Nachlass_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Gesamtbetrag_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Gesamtbetrag_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Darstellwährung_ISO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Darstellwährung_ISO,String) End If If (Betrag_Service_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Betrag_Service_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Betrag_Nachlass_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Gesamtbetrag_Netto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Gesamtbetrag_Brutto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Prägetext_i_d_R_KFZ_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Prägetext_i_d_R_KFZ_Kennzeichen,String) End If If (Kunden_Kostenstelle_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Kunden_Kostenstelle_1,String) End If If (Kartentyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Kartentyp,String) End If If (Filler_Feld_35 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Filler_Feld_35,String) End If If (Filler_Feld_36 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Filler_Feld_36,String) End If If (KZ_Autobahn Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(KZ_Autobahn,String) End If If (INFO_Feld Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(INFO_Feld,String) End If If (KFZ_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(KFZ_Kennzeichen,String) End If If (Filler_Feld_40 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Filler_Feld_40,String) End If If (Buchungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Buchungsart,String) End If If (Buchungsgrund Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Buchungsgrund,String) End If If (Filler_Feld_43 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Filler_Feld_43,String) End If If (Informationsbeleg Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Informationsbeleg,String) End If If (Belegherkunft Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Belegherkunft,String) End If If (Filler_Feld_46 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Filler_Feld_46,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Umsatzsteuerprozentsatz_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Umsatzsteuerprozentsatz_informativ.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Fälligkeitsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Fälligkeitsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Zahlungsziel_in_Tagen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Zahlungsziel_in_Tagen.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Zahlungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Zahlungsart,String) End If If (TC_Rechnungsnummer_gegenüber_dem_Nutzer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(TC_Rechnungsnummer_gegenüber_dem_Nutzer,String) End If If (TC_Rechnungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(TC_Rechnungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Zahlungszielgruppe Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Zahlungszielgruppe,String) End If If (Kunden_Kostenstelle_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Kunden_Kostenstelle_2,String) End If If (Lieferzeit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Lieferzeit,String) End If If (Fremdkartennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Fremdkartennummer,String) End If If (OnBoardUnitID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(OnBoardUnitID,String) End If If (KFZ_Kennzeichen_komprimiert Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(KFZ_Kennzeichen_komprimiert,String) End If If (Kartenkategorie Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Kartenkategorie,String) End If If (Rechnungsnummer_pro_Lieferland.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Rechnungsnummer_pro_Lieferland.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Autobahnauffahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Autobahnauffahrt,String) End If If (Autobahnausfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Autobahnausfahrt,String) End If If (Rabattschlüssel_der_französischen_Autobahngesellschaften.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Rabattschlüssel_der_französischen_Autobahngesellschaften.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Nummer_Belastungsanzeige.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Nummer_Belastungsanzeige.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Betreuungsstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Betreuungsstelle,String) End If If (Filler_Feld_72 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Filler_Feld_72,String) End If If (Akzeptanz_Medium Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Akzeptanz_Medium,String) End If If (Steuerkategorie Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Steuerkategorie,String) End If If (UTA_Beleg_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(UTA_Beleg_ID.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (UTA_Normalbeleg_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(UTA_Normalbeleg_ID.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_von.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Gebühren_Bescheinigung_von.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_bis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Gebühren_Bescheinigung_bis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (Herausgeber_Nutzer_Nummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Herausgeber_Nutzer_Nummer,String) End If If (Maßeinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Maßeinheit,String) End If If (Land_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Land_der_Akzeptanzstelle,String) End If If (Postleitzahl_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Postleitzahl_der_Akzeptanzstelle,String) End If If (Steuerliches_Lieferland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Steuerliches_Lieferland,String) End If If (Steuerliche_Produktgruppe Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Steuerliche_Produktgruppe,String) End If If (Leistungsort_verlagerbar Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Leistungsort_verlagerbar,String) End If If (UStVAn_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(87).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(88).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_Übertragungsnummer,Integer) Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_Übertragungsposition,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_upsize_ts,Byte()) End If 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 Abrechnungsnummer As Global.System.Nullable(Of Double), _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Global.System.Nullable(Of Date), _ ByVal Rechnungsempfänger_Kundennummer As Global.System.Nullable(Of Integer), _ ByVal Abrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Akzeptanzstellennummer As Global.System.Nullable(Of Double), _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Global.System.Nullable(Of Double), _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Global.System.Nullable(Of Double), _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Global.System.Nullable(Of Double), _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Umsatzsteuerprozentsatz_informativ As Global.System.Nullable(Of Double), _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel_in_Tagen As Global.System.Nullable(Of Short), _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Global.System.Nullable(Of Double), _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Nullable(Of Short), _ ByVal Nummer_Belastungsanzeige As Global.System.Nullable(Of Double), _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Global.System.Nullable(Of Double), _ ByVal UTA_Normalbeleg_ID As Global.System.Nullable(Of Double), _ ByVal Gebühren_Bescheinigung_von As Global.System.Nullable(Of Date), _ ByVal Gebühren_Bescheinigung_bis As Global.System.Nullable(Of Date), _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal Original_ErstellDatumUhrzeit As Date, _ ByVal Original_Übertragungsnummer As Integer, _ ByVal Original_Übertragungsposition As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Original_Übertragungsposition, Abrechnungsnummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kundennummer, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzstellennummer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilometerstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen, Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brutto_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_in_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_ISO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesamtbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Feld, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnummer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenstelle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimiert, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnausfahrt, Rabattschlüssel_der_französischen_Autobahngesellschaften, Nummer_Belastungsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie, UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Bescheinigung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Postleitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produktgruppe, Leistungsort_verlagerbar, UStVAn_ID, Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Original_Übertragungsposition, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUTAFakturierwarenartenTableAdapter 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 = "tblUTAFakturierwarenarten" tableMapping.ColumnMappings.Add("Fakturierwarenart", "Fakturierwarenart") tableMapping.ColumnMappings.Add("Warenart", "Warenart") tableMapping.ColumnMappings.Add("VERAG_OffertenNr", "VERAG_OffertenNr") tableMapping.ColumnMappings.Add("VERAG_LeistungsNr", "VERAG_LeistungsNr") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUTAFakturierwarenarten] WHERE (([Fakturierwarenart] = @Orig"& _ "inal_Fakturierwarenart) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR "& _ "([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUTAFakturierwarenarten] ([Fakturierwarenart], [Warenart], ["& _ "VERAG_OffertenNr], [VERAG_LeistungsNr]) VALUES (@Fakturierwarenart, @Warenart, @"& _ "VERAG_OffertenNr, @VERAG_LeistungsNr);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Fakturierwarenart, Warenart, VERA"& _ "G_OffertenNr, VERAG_LeistungsNr, upsize_ts FROM tblUTAFakturierwarenarten WHERE "& _ "(Fakturierwarenart = @Fakturierwarenart)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERAG_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERAG_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_LeistungsNr", 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].[tblUTAFakturierwarenarten] SET [Fakturierwarenart] = @Fakturierware"& _ "nart, [Warenart] = @Warenart, [VERAG_OffertenNr] = @VERAG_OffertenNr, [VERAG_Lei"& _ "stungsNr] = @VERAG_LeistungsNr WHERE (([Fakturierwarenart] = @Original_Fakturier"& _ "warenart) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] ="& _ " @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Fakturierwarenart, Warenart, VERAG_OffertenNr, "& _ "VERAG_LeistungsNr, upsize_ts FROM tblUTAFakturierwarenarten WHERE (Fakturierware"& _ "nart = @Fakturierwarenart)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERAG_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERAG_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Fakturierwarenart, Warenart, VERAG_OffertenNr, VERAG_LeistungsNr, upsize_t"& _ "s FROM dbo.tblUTAFakturierwarenarten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUTAFakturierwarenartenDataTable) 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 VERAGDataSet.tblUTAFakturierwarenartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUTAFakturierwarenartenDataTable = New VERAGDataSet.tblUTAFakturierwarenartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUTAFakturierwarenartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUTAFakturierwarenarten") 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_Fakturierwarenart As String, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Fakturierwarenart") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Fakturierwarenart,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Fakturierwarenart As String, ByVal Warenart As String, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short) As Integer If (Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Fakturierwarenart") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Fakturierwarenart,String) End If If (Warenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Warenart") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Warenart,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(VERAG_OffertenNr,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(VERAG_LeistungsNr,Short) 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 Fakturierwarenart As String, ByVal Warenart As String, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short, ByVal Original_Fakturierwarenart As String, ByVal Original_upsize_ts() As Byte) As Integer If (Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Fakturierwarenart") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Fakturierwarenart,String) End If If (Warenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Warenart") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Warenart,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VERAG_OffertenNr,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(VERAG_LeistungsNr,Short) If (Original_Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Fakturierwarenart") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Fakturierwarenart,String) End If If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_upsize_ts,Byte()) End If 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 Warenart As String, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short, ByVal Original_Fakturierwarenart As String, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Fakturierwarenart, Warenart, VERAG_OffertenNr, VERAG_LeistungsNr, Original_Fakturierwarenart, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUTAHeaderTableAdapter 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 = "tblUTAHeader" tableMapping.ColumnMappings.Add("ErstellDatumUhrzeit", "ErstellDatumUhrzeit") tableMapping.ColumnMappings.Add("Übertragungsnummer", "Übertragungsnummer") tableMapping.ColumnMappings.Add("Absender_ID", "Absender_ID") tableMapping.ColumnMappings.Add("Empfänger_ID", "Empfänger_ID") tableMapping.ColumnMappings.Add("Filler_Feld_5", "Filler_Feld_5") tableMapping.ColumnMappings.Add("Abrechnungsnummer", "Abrechnungsnummer") tableMapping.ColumnMappings.Add("DTF_Format", "DTF_Format") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUTAHeader] WHERE (([ErstellDatumUhrzeit] = @Original_Erstel"& _ "lDatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND ((@"& _ "IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize"& _ "_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUTAHeader] ([ErstellDatumUhrzeit], [Übertragungsnummer], [A"& _ "bsender_ID], [Empfänger_ID], [Filler_Feld_5], [Abrechnungsnummer], [DTF_Format])"& _ " VALUES (@ErstellDatumUhrzeit, @Übertragungsnummer, @Absender_ID, @Empfänger_ID,"& _ " @Filler_Feld_5, @Abrechnungsnummer, @DTF_Format);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzeit, "& _ "Übertragungsnummer, Absender_ID, Empfänger_ID, Filler_Feld_5, Abrechnungsnummer,"& _ " DTF_Format, upsize_ts FROM tblUTAHeader WHERE (ErstellDatumUhrzeit = @ErstellDa"& _ "tumUhrzeit) AND (Übertragungsnummer = @Übertragungsnummer)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Empfänger_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Empfänger_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsnummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DTF_Format", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DTF_Format", 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].[tblUTAHeader] SET [ErstellDatumUhrzeit] = @ErstellDatumUhrzeit, [Üb"& _ "ertragungsnummer] = @Übertragungsnummer, [Absender_ID] = @Absender_ID, [Empfänge"& _ "r_ID] = @Empfänger_ID, [Filler_Feld_5] = @Filler_Feld_5, [Abrechnungsnummer] = @"& _ "Abrechnungsnummer, [DTF_Format] = @DTF_Format WHERE (([ErstellDatumUhrzeit] = @O"& _ "riginal_ErstellDatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragungsn"& _ "ummer) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @O"& _ "riginal_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzeit, Übertragungsnummer, Absender_"& _ "ID, Empfänger_ID, Filler_Feld_5, Abrechnungsnummer, DTF_Format, upsize_ts FROM t"& _ "blUTAHeader WHERE (ErstellDatumUhrzeit = @ErstellDatumUhrzeit) AND (Übertragungs"& _ "nummer = @Übertragungsnummer)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Empfänger_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Empfänger_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsnummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DTF_Format", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DTF_Format", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ErstellDatumUhrzeit, Übertragungsnummer, Absender_ID, Empfänger_ID, Filler"& _ "_Feld_5, Abrechnungsnummer, DTF_Format, upsize_ts FROM dbo.tblUTAHeader" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUTAHeaderDataTable) 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 VERAGDataSet.tblUTAHeaderDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUTAHeaderDataTable = New VERAGDataSet.tblUTAHeaderDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUTAHeaderDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUTAHeader") 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_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Übertragungsnummer,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Absender_ID As Global.System.Nullable(Of Double), ByVal Empfänger_ID As Global.System.Nullable(Of Double), ByVal Filler_Feld_5 As String, ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), ByVal DTF_Format As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) If (Absender_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Absender_ID.Value,Double) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Empfänger_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Empfänger_ID.Value,Double) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Filler_Feld_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Filler_Feld_5,String) End If If (Abrechnungsnummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Abrechnungsnummer.Value,Double) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (DTF_Format Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(DTF_Format,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 ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Absender_ID As Global.System.Nullable(Of Double), ByVal Empfänger_ID As Global.System.Nullable(Of Double), ByVal Filler_Feld_5 As String, ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), ByVal DTF_Format As String, ByVal Original_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) If (Absender_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Absender_ID.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Empfänger_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Empfänger_ID.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Filler_Feld_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Filler_Feld_5,String) End If If (Abrechnungsnummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Abrechnungsnummer.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (DTF_Format Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DTF_Format,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Übertragungsnummer,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 Absender_ID As Global.System.Nullable(Of Double), ByVal Empfänger_ID As Global.System.Nullable(Of Double), ByVal Filler_Feld_5 As String, ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), ByVal DTF_Format As String, ByVal Original_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Absender_ID, Empfänger_ID, Filler_Feld_5, Abrechnungsnummer, DTF_Format, Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUTAHeaderNewTableAdapter 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 = "tblUTAHeaderNew" tableMapping.ColumnMappings.Add("ErstellDatumUhrzeit", "ErstellDatumUhrzeit") tableMapping.ColumnMappings.Add("Übertragungsnummer", "Übertragungsnummer") tableMapping.ColumnMappings.Add("Absender_ID", "Absender_ID") tableMapping.ColumnMappings.Add("Empfänger_ID", "Empfänger_ID") tableMapping.ColumnMappings.Add("Filler_Feld_5", "Filler_Feld_5") tableMapping.ColumnMappings.Add("Abrechnungsnummer", "Abrechnungsnummer") tableMapping.ColumnMappings.Add("DTF_Format", "DTF_Format") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUTAHeaderNew] WHERE (([ErstellDatumUhrzeit] = @Original_Ers"& _ "tellDatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND "& _ "((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_ups"& _ "ize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUTAHeaderNew] ([ErstellDatumUhrzeit], [Übertragungsnummer],"& _ " [Absender_ID], [Empfänger_ID], [Filler_Feld_5], [Abrechnungsnummer], [DTF_Forma"& _ "t]) VALUES (@ErstellDatumUhrzeit, @Übertragungsnummer, @Absender_ID, @Empfänger_"& _ "ID, @Filler_Feld_5, @Abrechnungsnummer, @DTF_Format);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzei"& _ "t, Übertragungsnummer, Absender_ID, Empfänger_ID, Filler_Feld_5, Abrechnungsnumm"& _ "er, DTF_Format, upsize_ts FROM tblUTAHeaderNew WHERE (ErstellDatumUhrzeit = @Ers"& _ "tellDatumUhrzeit) AND (Übertragungsnummer = @Übertragungsnummer)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Empfänger_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Empfänger_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsnummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DTF_Format", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DTF_Format", 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].[tblUTAHeaderNew] SET [ErstellDatumUhrzeit] = @ErstellDatumUhrzeit, "& _ "[Übertragungsnummer] = @Übertragungsnummer, [Absender_ID] = @Absender_ID, [Empfä"& _ "nger_ID] = @Empfänger_ID, [Filler_Feld_5] = @Filler_Feld_5, [Abrechnungsnummer] "& _ "= @Abrechnungsnummer, [DTF_Format] = @DTF_Format WHERE (([ErstellDatumUhrzeit] ="& _ " @Original_ErstellDatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragun"& _ "gsnummer) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] ="& _ " @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzeit, Übertragungsnummer, Absend"& _ "er_ID, Empfänger_ID, Filler_Feld_5, Abrechnungsnummer, DTF_Format, upsize_ts FRO"& _ "M tblUTAHeaderNew WHERE (ErstellDatumUhrzeit = @ErstellDatumUhrzeit) AND (Übertr"& _ "agungsnummer = @Übertragungsnummer)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Empfänger_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Empfänger_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_5", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsnummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DTF_Format", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DTF_Format", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ErstellDatumUhrzeit, Übertragungsnummer, Absender_ID, Empfänger_ID, Filler"& _ "_Feld_5, Abrechnungsnummer, DTF_Format, upsize_ts FROM dbo.tblUTAHeaderNew" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUTAHeaderNewDataTable) 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 VERAGDataSet.tblUTAHeaderNewDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUTAHeaderNewDataTable = New VERAGDataSet.tblUTAHeaderNewDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUTAHeaderNewDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUTAHeaderNew") 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_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Übertragungsnummer,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Absender_ID As Global.System.Nullable(Of Double), ByVal Empfänger_ID As Global.System.Nullable(Of Double), ByVal Filler_Feld_5 As String, ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), ByVal DTF_Format As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) If (Absender_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Absender_ID.Value,Double) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Empfänger_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Empfänger_ID.Value,Double) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Filler_Feld_5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Filler_Feld_5,String) End If If (Abrechnungsnummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Abrechnungsnummer.Value,Double) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (DTF_Format Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(DTF_Format,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 ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Absender_ID As Global.System.Nullable(Of Double), ByVal Empfänger_ID As Global.System.Nullable(Of Double), ByVal Filler_Feld_5 As String, ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), ByVal DTF_Format As String, ByVal Original_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) If (Absender_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Absender_ID.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Empfänger_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Empfänger_ID.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Filler_Feld_5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Filler_Feld_5,String) End If If (Abrechnungsnummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Abrechnungsnummer.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (DTF_Format Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DTF_Format,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Übertragungsnummer,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 Absender_ID As Global.System.Nullable(Of Double), ByVal Empfänger_ID As Global.System.Nullable(Of Double), ByVal Filler_Feld_5 As String, ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), ByVal DTF_Format As String, ByVal Original_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Absender_ID, Empfänger_ID, Filler_Feld_5, Abrechnungsnummer, DTF_Format, Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUTAImportTableAdapter 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 = "tblUTAImport" tableMapping.ColumnMappings.Add("ErstellDatumUhrzeit", "ErstellDatumUhrzeit") tableMapping.ColumnMappings.Add("Übertragungsnummer", "Übertragungsnummer") tableMapping.ColumnMappings.Add("Übertragungsposition", "Übertragungsposition") tableMapping.ColumnMappings.Add("Abrechnungsnummer", "Abrechnungsnummer") tableMapping.ColumnMappings.Add("Datum_für_Lieferungen_und_Leistungen_bis", "Datum_für_Lieferungen_und_Leistungen_bis") tableMapping.ColumnMappings.Add("Rechnungsempfänger_Kundennummer", "Rechnungsempfänger_Kundennummer") tableMapping.ColumnMappings.Add("Abrechnungsdatum", "Abrechnungsdatum") tableMapping.ColumnMappings.Add("Kundennummer", "Kundennummer") tableMapping.ColumnMappings.Add("Kartennummer", "Kartennummer") tableMapping.ColumnMappings.Add("Belegdatum", "Belegdatum") tableMapping.ColumnMappings.Add("Akzeptanzstellennummer", "Akzeptanzstellennummer") tableMapping.ColumnMappings.Add("Standort_der_Akzeptanzstelle", "Standort_der_Akzeptanzstelle") tableMapping.ColumnMappings.Add("Lieferland", "Lieferland") tableMapping.ColumnMappings.Add("Belegnummer_des_Lieferanten", "Belegnummer_des_Lieferanten") tableMapping.ColumnMappings.Add("Kilometerstand", "Kilometerstand") tableMapping.ColumnMappings.Add("Fakturierwarenart", "Fakturierwarenart") tableMapping.ColumnMappings.Add("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", "Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen") tableMapping.ColumnMappings.Add("Menge", "Menge") tableMapping.ColumnMappings.Add("SB_BT", "SB_BT") tableMapping.ColumnMappings.Add("Umsatzsteuerprozentsatz", "Umsatzsteuerprozentsatz") tableMapping.ColumnMappings.Add("Lieferlandwährung_ISO", "Lieferlandwährung_ISO") tableMapping.ColumnMappings.Add("Einzelpreis_Brutto_in_Lieferlandwährung", "Einzelpreis_Brutto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Einzelpreis_Netto_in_Lieferlandwährung", "Einzelpreis_Netto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Betrag_Service_in_Lieferlandwährung", "Betrag_Service_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Betrag_Nachlass_in_Lieferlandwährung", "Betrag_Nachlass_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Netto_in_Lieferlandwährung", "Gesamtbetrag_Netto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Brutto_in_Lieferlandwährung", "Gesamtbetrag_Brutto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Darstellwährung_ISO", "Darstellwährung_ISO") tableMapping.ColumnMappings.Add("Betrag_Service_in_Darstellwährung", "Betrag_Service_in_Darstellwährung") tableMapping.ColumnMappings.Add("Betrag_Nachlass_in_Darstellwährung", "Betrag_Nachlass_in_Darstellwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Netto_in_Darstellwährung", "Gesamtbetrag_Netto_in_Darstellwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", "Gesamtbetrag_Umsatzsteuer_in_Darstellwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Brutto_in_Darstellwährung", "Gesamtbetrag_Brutto_in_Darstellwährung") tableMapping.ColumnMappings.Add("Prägetext_i_d_R_KFZ_Kennzeichen", "Prägetext_i_d_R_KFZ_Kennzeichen") tableMapping.ColumnMappings.Add("Kunden_Kostenstelle_1", "Kunden_Kostenstelle_1") tableMapping.ColumnMappings.Add("Kartentyp", "Kartentyp") tableMapping.ColumnMappings.Add("Filler_Feld_35", "Filler_Feld_35") tableMapping.ColumnMappings.Add("Filler_Feld_36", "Filler_Feld_36") tableMapping.ColumnMappings.Add("KZ_Autobahn", "KZ_Autobahn") tableMapping.ColumnMappings.Add("INFO_Feld", "INFO_Feld") tableMapping.ColumnMappings.Add("KFZ_Kennzeichen", "KFZ_Kennzeichen") tableMapping.ColumnMappings.Add("Filler_Feld_40", "Filler_Feld_40") tableMapping.ColumnMappings.Add("Buchungsart", "Buchungsart") tableMapping.ColumnMappings.Add("Buchungsgrund", "Buchungsgrund") tableMapping.ColumnMappings.Add("Filler_Feld_43", "Filler_Feld_43") tableMapping.ColumnMappings.Add("Informationsbeleg", "Informationsbeleg") tableMapping.ColumnMappings.Add("Belegherkunft", "Belegherkunft") tableMapping.ColumnMappings.Add("Filler_Feld_46", "Filler_Feld_46") tableMapping.ColumnMappings.Add("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", "Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen") tableMapping.ColumnMappings.Add("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen") tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Umsatzsteuerprozentsatz_informativ", "Umsatzsteuerprozentsatz_informativ") tableMapping.ColumnMappings.Add("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", "Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ") tableMapping.ColumnMappings.Add("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", "Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ") tableMapping.ColumnMappings.Add("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", "Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ") tableMapping.ColumnMappings.Add("Fälligkeitsdatum", "Fälligkeitsdatum") tableMapping.ColumnMappings.Add("Zahlungsziel_in_Tagen", "Zahlungsziel_in_Tagen") tableMapping.ColumnMappings.Add("Zahlungsart", "Zahlungsart") tableMapping.ColumnMappings.Add("TC_Rechnungsnummer_gegenüber_dem_Nutzer", "TC_Rechnungsnummer_gegenüber_dem_Nutzer") tableMapping.ColumnMappings.Add("TC_Rechnungsdatum", "TC_Rechnungsdatum") tableMapping.ColumnMappings.Add("Zahlungszielgruppe", "Zahlungszielgruppe") tableMapping.ColumnMappings.Add("Kunden_Kostenstelle_2", "Kunden_Kostenstelle_2") tableMapping.ColumnMappings.Add("Lieferzeit", "Lieferzeit") tableMapping.ColumnMappings.Add("Fremdkartennummer", "Fremdkartennummer") tableMapping.ColumnMappings.Add("OnBoardUnitID", "OnBoardUnitID") tableMapping.ColumnMappings.Add("KFZ_Kennzeichen_komprimiert", "KFZ_Kennzeichen_komprimiert") tableMapping.ColumnMappings.Add("Kartenkategorie", "Kartenkategorie") tableMapping.ColumnMappings.Add("Rechnungsnummer_pro_Lieferland", "Rechnungsnummer_pro_Lieferland") tableMapping.ColumnMappings.Add("Autobahnauffahrt", "Autobahnauffahrt") tableMapping.ColumnMappings.Add("Autobahnausfahrt", "Autobahnausfahrt") tableMapping.ColumnMappings.Add("Rabattschlüssel_der_französischen_Autobahngesellschaften", "Rabattschlüssel_der_französischen_Autobahngesellschaften") tableMapping.ColumnMappings.Add("Nummer_Belastungsanzeige", "Nummer_Belastungsanzeige") tableMapping.ColumnMappings.Add("Betreuungsstelle", "Betreuungsstelle") tableMapping.ColumnMappings.Add("Filler_Feld_72", "Filler_Feld_72") tableMapping.ColumnMappings.Add("Akzeptanz_Medium", "Akzeptanz_Medium") tableMapping.ColumnMappings.Add("Steuerkategorie", "Steuerkategorie") tableMapping.ColumnMappings.Add("UTA_Beleg_ID", "UTA_Beleg_ID") tableMapping.ColumnMappings.Add("UTA_Normalbeleg_ID", "UTA_Normalbeleg_ID") tableMapping.ColumnMappings.Add("Gebühren_Bescheinigung_von", "Gebühren_Bescheinigung_von") tableMapping.ColumnMappings.Add("Gebühren_Bescheinigung_bis", "Gebühren_Bescheinigung_bis") tableMapping.ColumnMappings.Add("Herausgeber_Nutzer_Nummer", "Herausgeber_Nutzer_Nummer") tableMapping.ColumnMappings.Add("Maßeinheit", "Maßeinheit") tableMapping.ColumnMappings.Add("Land_der_Akzeptanzstelle", "Land_der_Akzeptanzstelle") tableMapping.ColumnMappings.Add("Postleitzahl_der_Akzeptanzstelle", "Postleitzahl_der_Akzeptanzstelle") tableMapping.ColumnMappings.Add("Steuerliches_Lieferland", "Steuerliches_Lieferland") tableMapping.ColumnMappings.Add("Steuerliche_Produktgruppe", "Steuerliche_Produktgruppe") tableMapping.ColumnMappings.Add("Leistungsort_verlagerbar", "Leistungsort_verlagerbar") tableMapping.ColumnMappings.Add("archiv", "archiv") tableMapping.ColumnMappings.Add("archiviertDatum", "archiviertDatum") tableMapping.ColumnMappings.Add("daId", "daId") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUTAImport] WHERE (([ErstellDatumUhrzeit] = @Original_Erstel"& _ "lDatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND ([Ü"& _ "bertragungsposition] = @Original_Übertragungsposition) AND ((@IsNull_upsize_ts ="& _ " 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUTAImport] ([ErstellDatumUhrzeit], [Übertragungsnummer], [Ü"& _ "bertragungsposition], [Abrechnungsnummer], [Datum_für_Lieferungen_und_Leistungen"& _ "_bis], [Rechnungsempfänger_Kundennummer], [Abrechnungsdatum], [Kundennummer], [K"& _ "artennummer], [Belegdatum], [Akzeptanzstellennummer], [Standort_der_Akzeptanzste"& _ "lle], [Lieferland], [Belegnummer_des_Lieferanten], [Kilometerstand], [Fakturierw"& _ "arenart], [Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen], [Menge], [SB_BT],"& _ " [Umsatzsteuerprozentsatz], [Lieferlandwährung_ISO], [Einzelpreis_Brutto_in_Lief"& _ "erlandwährung], [Einzelpreis_Netto_in_Lieferlandwährung], [Betrag_Service_in_Lie"& _ "ferlandwährung], [Betrag_Nachlass_in_Lieferlandwährung], [Gesamtbetrag_Netto_in_"& _ "Lieferlandwährung], [Gesamtbetrag_Brutto_in_Lieferlandwährung], [Darstellwährung"& _ "_ISO], [Betrag_Service_in_Darstellwährung], [Betrag_Nachlass_in_Darstellwährung]"& _ ", [Gesamtbetrag_Netto_in_Darstellwährung], [Gesamtbetrag_Umsatzsteuer_in_Darstel"& _ "lwährung], [Gesamtbetrag_Brutto_in_Darstellwährung], [Prägetext_i_d_R_KFZ_Kennze"& _ "ichen], [Kunden_Kostenstelle_1], [Kartentyp], [Filler_Feld_35], [Filler_Feld_36]"& _ ", [KZ_Autobahn], [INFO_Feld], [KFZ_Kennzeichen], [Filler_Feld_40], [Buchungsart]"& _ ", [Buchungsgrund], [Filler_Feld_43], [Informationsbeleg], [Belegherkunft], [Fill"& _ "er_Feld_46], [Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen], ["& _ "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen], [Rechnungsdatum]"& _ ", [Umsatzsteuerprozentsatz_informativ], [Betrag_Nachlass_in_Lieferlandwährung_Um"& _ "satzsteuer_informativ], [Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_inform"& _ "ativ], [Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ], [Fälligkeits"& _ "datum], [Zahlungsziel_in_Tagen], [Zahlungsart], [TC_Rechnungsnummer_gegenüber_de"& _ "m_Nutzer], [TC_Rechnungsdatum], [Zahlungszielgruppe], [Kunden_Kostenstelle_2], ["& _ "Lieferzeit], [Fremdkartennummer], [OnBoardUnitID], [KFZ_Kennzeichen_komprimiert]"& _ ", [Kartenkategorie], [Rechnungsnummer_pro_Lieferland], [Autobahnauffahrt], [Auto"& _ "bahnausfahrt], [Rabattschlüssel_der_französischen_Autobahngesellschaften], [Numm"& _ "er_Belastungsanzeige], [Betreuungsstelle], [Filler_Feld_72], [Akzeptanz_Medium],"& _ " [Steuerkategorie], [UTA_Beleg_ID], [UTA_Normalbeleg_ID], [Gebühren_Bescheinigun"& _ "g_von], [Gebühren_Bescheinigung_bis], [Herausgeber_Nutzer_Nummer], [Maßeinheit],"& _ " [Land_der_Akzeptanzstelle], [Postleitzahl_der_Akzeptanzstelle], [Steuerliches_L"& _ "ieferland], [Steuerliche_Produktgruppe], [Leistungsort_verlagerbar], [archiv], ["& _ "archiviertDatum], [daId]) VALUES (@ErstellDatumUhrzeit, @Übertragungsnummer, @Üb"& _ "ertragungsposition, @Abrechnungsnummer, @Datum_für_Lieferungen_und_Leistungen_bi"& _ "s, @Rechnungsempfänger_Kundennummer, @Abrechnungsdatum, @Kundennummer, @Kartennu"& _ "mmer, @Belegdatum, @Akzeptanzstellennummer, @Standort_der_Akzeptanzstelle, @Lief"& _ "erland, @Belegnummer_des_Lieferanten, @Kilometerstand, @Fakturierwarenart, @Vorz"& _ "eichen_Statusfeld_für_alle_Beträge_und_Mengen, @Menge, @SB_BT, @Umsatzsteuerproz"& _ "entsatz, @Lieferlandwährung_ISO, @Einzelpreis_Brutto_in_Lieferlandwährung, @Einz"& _ "elpreis_Netto_in_Lieferlandwährung, @Betrag_Service_in_Lieferlandwährung, @Betra"& _ "g_Nachlass_in_Lieferlandwährung, @Gesamtbetrag_Netto_in_Lieferlandwährung, @Gesa"& _ "mtbetrag_Brutto_in_Lieferlandwährung, @Darstellwährung_ISO, @Betrag_Service_in_D"& _ "arstellwährung, @Betrag_Nachlass_in_Darstellwährung, @Gesamtbetrag_Netto_in_Dars"& _ "tellwährung, @Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, @Gesamtbetrag_Brutto"& _ "_in_Darstellwährung, @Prägetext_i_d_R_KFZ_Kennzeichen, @Kunden_Kostenstelle_1, @"& _ "Kartentyp, @Filler_Feld_35, @Filler_Feld_36, @KZ_Autobahn, @INFO_Feld, @KFZ_Kenn"& _ "zeichen, @Filler_Feld_40, @Buchungsart, @Buchungsgrund, @Filler_Feld_43, @Inform"& _ "ationsbeleg, @Belegherkunft, @Filler_Feld_46, @Einzelpreis_Brutto_in_Lieferlandw"& _ "ährung_mit_4_Nachkommastellen, @Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nac"& _ "hkommastellen, @Rechnungsdatum, @Umsatzsteuerprozentsatz_informativ, @Betrag_Nac"& _ "hlass_in_Lieferlandwährung_Umsatzsteuer_informativ, @Betrag_Service_in_Lieferlan"& _ "dwährung_Umsatzsteuer_informativ, @Gesamtbetrag_in_Lieferlandwährung_Umsatzsteue"& _ "r_informativ, @Fälligkeitsdatum, @Zahlungsziel_in_Tagen, @Zahlungsart, @TC_Rechn"& _ "ungsnummer_gegenüber_dem_Nutzer, @TC_Rechnungsdatum, @Zahlungszielgruppe, @Kunde"& _ "n_Kostenstelle_2, @Lieferzeit, @Fremdkartennummer, @OnBoardUnitID, @KFZ_Kennzeic"& _ "hen_komprimiert, @Kartenkategorie, @Rechnungsnummer_pro_Lieferland, @Autobahnauf"& _ "fahrt, @Autobahnausfahrt, @Rabattschlüssel_der_französischen_Autobahngesellschaf"& _ "ten, @Nummer_Belastungsanzeige, @Betreuungsstelle, @Filler_Feld_72, @Akzeptanz_M"& _ "edium, @Steuerkategorie, @UTA_Beleg_ID, @UTA_Normalbeleg_ID, @Gebühren_Bescheini"& _ "gung_von, @Gebühren_Bescheinigung_bis, @Herausgeber_Nutzer_Nummer, @Maßeinheit, "& _ "@Land_der_Akzeptanzstelle, @Postleitzahl_der_Akzeptanzstelle, @Steuerliches_Lief"& _ "erland, @Steuerliche_Produktgruppe, @Leistungsort_verlagerbar, @archiv, @archivi"& _ "ertDatum, @daId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsp"& _ "osition, Abrechnungsnummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungse"& _ "mpfänger_Kundennummer, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum,"& _ " Akzeptanzstellennummer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_d"& _ "es_Lieferanten, Kilometerstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_all"& _ "e_Beträge_und_Mengen, Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_I"& _ "SO, Einzelpreis_Brutto_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwähr"& _ "ung, Betrag_Service_in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, "& _ "Gesamtbetrag_Netto_in_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährun"& _ "g, Darstellwährung_ISO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Da"& _ "rstellwährung, Gesamtbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_"& _ "in_Darstellwährung, Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_"& _ "Kennzeichen, Kunden_Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, K"& _ "Z_Autobahn, INFO_Feld, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgru"& _ "nd, Filler_Feld_43, Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelprei"& _ "s_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Liefe"& _ "rlandwährung_mit_4_Nachkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_inf"& _ "ormativ, Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Se"& _ "rvice_in_Lieferlandwährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwä"& _ "hrung_Umsatzsteuer_informativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungs"& _ "art, TC_Rechnungsnummer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgru"& _ "ppe, Kunden_Kostenstelle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Ke"& _ "nnzeichen_komprimiert, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahn"& _ "auffahrt, Autobahnausfahrt, Rabattschlüssel_der_französischen_Autobahngesellscha"& _ "ften, Nummer_Belastungsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medi"& _ "um, Steuerkategorie, UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_vo"& _ "n, Gebühren_Bescheinigung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_A"& _ "kzeptanzstelle, Postleitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steue"& _ "rliche_Produktgruppe, Leistungsort_verlagerbar, archiv, archiviertDatum, daId, u"& _ "psize_ts FROM tblUTAImport WHERE (ErstellDatumUhrzeit = @ErstellDatumUhrzeit) AN"& _ "D (Übertragungsnummer = @Übertragungsnummer) AND (Übertragungsposition = @Übertr"& _ "agungsposition)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsnummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsempfänger_Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsempfänger_Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanzstellennummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanzstellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standort_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standort_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegnummer_des_Lieferanten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegnummer_des_Lieferanten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kilometerstand", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kilometerstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Menge", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_BT", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_BT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferlandwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferlandwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Darstellwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Darstellwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartentyp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartentyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_35", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_35", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_36", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_36", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KZ_Autobahn", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KZ_Autobahn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INFO_Feld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INFO_Feld", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_40", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_40", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsgrund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsgrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_43", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_43", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Informationsbeleg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Informationsbeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegherkunft", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegherkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_46", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_46", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz_informativ", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel_in_Tagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel_in_Tagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungszielgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungszielgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferzeit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fremdkartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fremdkartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OnBoardUnitID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OnBoardUnitID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen_komprimiert", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen_komprimiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer_pro_Lieferland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer_pro_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnauffahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnauffahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnausfahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnausfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer_Belastungsanzeige", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer_Belastungsanzeige", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betreuungsstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betreuungsstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_72", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_72", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanz_Medium", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanz_Medium", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Beleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Beleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Normalbeleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Normalbeleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_von", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Herausgeber_Nutzer_Nummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Herausgeber_Nutzer_Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Maßeinheit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Maßeinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Land_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Land_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postleitzahl_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postleitzahl_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliches_Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliches_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliche_Produktgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliche_Produktgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsort_verlagerbar", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsort_verlagerbar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "archiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@archiviertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "archiviertDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "daId", 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].[tblUTAImport] SET [ErstellDatumUhrzeit] = @ErstellDatumUhrzeit, [Üb"& _ "ertragungsnummer] = @Übertragungsnummer, [Übertragungsposition] = @Übertragungsp"& _ "osition, [Abrechnungsnummer] = @Abrechnungsnummer, [Datum_für_Lieferungen_und_Le"& _ "istungen_bis] = @Datum_für_Lieferungen_und_Leistungen_bis, [Rechnungsempfänger_K"& _ "undennummer] = @Rechnungsempfänger_Kundennummer, [Abrechnungsdatum] = @Abrechnun"& _ "gsdatum, [Kundennummer] = @Kundennummer, [Kartennummer] = @Kartennummer, [Belegd"& _ "atum] = @Belegdatum, [Akzeptanzstellennummer] = @Akzeptanzstellennummer, [Stando"& _ "rt_der_Akzeptanzstelle] = @Standort_der_Akzeptanzstelle, [Lieferland] = @Lieferl"& _ "and, [Belegnummer_des_Lieferanten] = @Belegnummer_des_Lieferanten, [Kilometersta"& _ "nd] = @Kilometerstand, [Fakturierwarenart] = @Fakturierwarenart, [Vorzeichen_Sta"& _ "tusfeld_für_alle_Beträge_und_Mengen] = @Vorzeichen_Statusfeld_für_alle_Beträge_u"& _ "nd_Mengen, [Menge] = @Menge, [SB_BT] = @SB_BT, [Umsatzsteuerprozentsatz] = @Umsa"& _ "tzsteuerprozentsatz, [Lieferlandwährung_ISO] = @Lieferlandwährung_ISO, [Einzelpr"& _ "eis_Brutto_in_Lieferlandwährung] = @Einzelpreis_Brutto_in_Lieferlandwährung, [Ei"& _ "nzelpreis_Netto_in_Lieferlandwährung] = @Einzelpreis_Netto_in_Lieferlandwährung,"& _ " [Betrag_Service_in_Lieferlandwährung] = @Betrag_Service_in_Lieferlandwährung, ["& _ "Betrag_Nachlass_in_Lieferlandwährung] = @Betrag_Nachlass_in_Lieferlandwährung, ["& _ "Gesamtbetrag_Netto_in_Lieferlandwährung] = @Gesamtbetrag_Netto_in_Lieferlandwähr"& _ "ung, [Gesamtbetrag_Brutto_in_Lieferlandwährung] = @Gesamtbetrag_Brutto_in_Liefer"& _ "landwährung, [Darstellwährung_ISO] = @Darstellwährung_ISO, [Betrag_Service_in_Da"& _ "rstellwährung] = @Betrag_Service_in_Darstellwährung, [Betrag_Nachlass_in_Darstel"& _ "lwährung] = @Betrag_Nachlass_in_Darstellwährung, [Gesamtbetrag_Netto_in_Darstell"& _ "währung] = @Gesamtbetrag_Netto_in_Darstellwährung, [Gesamtbetrag_Umsatzsteuer_in"& _ "_Darstellwährung] = @Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, [Gesamtbetrag"& _ "_Brutto_in_Darstellwährung] = @Gesamtbetrag_Brutto_in_Darstellwährung, [Prägetex"& _ "t_i_d_R_KFZ_Kennzeichen] = @Prägetext_i_d_R_KFZ_Kennzeichen, [Kunden_Kostenstell"& _ "e_1] = @Kunden_Kostenstelle_1, [Kartentyp] = @Kartentyp, [Filler_Feld_35] = @Fil"& _ "ler_Feld_35, [Filler_Feld_36] = @Filler_Feld_36, [KZ_Autobahn] = @KZ_Autobahn, ["& _ "INFO_Feld] = @INFO_Feld, [KFZ_Kennzeichen] = @KFZ_Kennzeichen, [Filler_Feld_40] "& _ "= @Filler_Feld_40, [Buchungsart] = @Buchungsart, [Buchungsgrund] = @Buchungsgrun"& _ "d, [Filler_Feld_43] = @Filler_Feld_43, [Informationsbeleg] = @Informationsbeleg,"& _ " [Belegherkunft] = @Belegherkunft, [Filler_Feld_46] = @Filler_Feld_46, [Einzelpr"& _ "eis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen] = @Einzelpreis_Brutto_in"& _ "_Lieferlandwährung_mit_4_Nachkommastellen, [Einzelpreis_Netto_in_Lieferlandwähru"& _ "ng_mit_4_Nachkommastellen] = @Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachk"& _ "ommastellen, [Rechnungsdatum] = @Rechnungsdatum, [Umsatzsteuerprozentsatz_inform"& _ "ativ] = @Umsatzsteuerprozentsatz_informativ, [Betrag_Nachlass_in_Lieferlandwähru"& _ "ng_Umsatzsteuer_informativ] = @Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer"& _ "_informativ, [Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ] = @Be"& _ "trag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ, [Gesamtbetrag_in_Lief"& _ "erlandwährung_Umsatzsteuer_informativ] = @Gesamtbetrag_in_Lieferlandwährung_Umsa"& _ "tzsteuer_informativ, [Fälligkeitsdatum] = @Fälligkeitsdatum, [Zahlungsziel_in_Ta"& _ "gen] = @Zahlungsziel_in_Tagen, [Zahlungsart] = @Zahlungsart, [TC_Rechnungsnummer"& _ "_gegenüber_dem_Nutzer] = @TC_Rechnungsnummer_gegenüber_dem_Nutzer, [TC_Rechnungs"& _ "datum] = @TC_Rechnungsdatum, [Zahlungszielgruppe] = @Zahlungszielgruppe, [Kunden"& _ "_Kostenstelle_2] = @Kunden_Kostenstelle_2, [Lieferzeit] = @Lieferzeit, [Fremdkar"& _ "tennummer] = @Fremdkartennummer, [OnBoardUnitID] = @OnBoardUnitID, [KFZ_Kennzeic"& _ "hen_komprimiert] = @KFZ_Kennzeichen_komprimiert, [Kartenkategorie] = @Kartenkate"& _ "gorie, [Rechnungsnummer_pro_Lieferland] = @Rechnungsnummer_pro_Lieferland, [Auto"& _ "bahnauffahrt] = @Autobahnauffahrt, [Autobahnausfahrt] = @Autobahnausfahrt, [Raba"& _ "ttschlüssel_der_französischen_Autobahngesellschaften] = @Rabattschlüssel_der_fra"& _ "nzösischen_Autobahngesellschaften, [Nummer_Belastungsanzeige] = @Nummer_Belastun"& _ "gsanzeige, [Betreuungsstelle] = @Betreuungsstelle, [Filler_Feld_72] = @Filler_Fe"& _ "ld_72, [Akzeptanz_Medium] = @Akzeptanz_Medium, [Steuerkategorie] = @Steuerkatego"& _ "rie, [UTA_Beleg_ID] = @UTA_Beleg_ID, [UTA_Normalbeleg_ID] = @UTA_Normalbeleg_ID,"& _ " [Gebühren_Bescheinigung_von] = @Gebühren_Bescheinigung_von, [Gebühren_Bescheini"& _ "gung_bis] = @Gebühren_Bescheinigung_bis, [Herausgeber_Nutzer_Nummer] = @Herausge"& _ "ber_Nutzer_Nummer, [Maßeinheit] = @Maßeinheit, [Land_der_Akzeptanzstelle] = @Lan"& _ "d_der_Akzeptanzstelle, [Postleitzahl_der_Akzeptanzstelle] = @Postleitzahl_der_Ak"& _ "zeptanzstelle, [Steuerliches_Lieferland] = @Steuerliches_Lieferland, [Steuerlich"& _ "e_Produktgruppe] = @Steuerliche_Produktgruppe, [Leistungsort_verlagerbar] = @Lei"& _ "stungsort_verlagerbar, [archiv] = @archiv, [archiviertDatum] = @archiviertDatum,"& _ " [daId] = @daId WHERE (([ErstellDatumUhrzeit] = @Original_ErstellDatumUhrzeit) A"& _ "ND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND ([Übertragungsposit"& _ "ion] = @Original_Übertragungsposition) AND ((@IsNull_upsize_ts = 1 AND [upsize_t"& _ "s] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzei"& _ "t, Übertragungsnummer, Übertragungsposition, Abrechnungsnummer, Datum_für_Liefer"& _ "ungen_und_Leistungen_bis, Rechnungsempfänger_Kundennummer, Abrechnungsdatum, Kun"& _ "dennummer, Kartennummer, Belegdatum, Akzeptanzstellennummer, Standort_der_Akzept"& _ "anzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilometerstand, Fakturierwar"& _ "enart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen, Menge, SB_BT, Umsatzst"& _ "euerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brutto_in_Lieferlandwährung,"& _ " Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_in_Lieferlandwährung, Be"& _ "trag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_in_Lieferlandwährung, Ges"& _ "amtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_ISO, Betrag_Service_in_Da"& _ "rstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesamtbetrag_Netto_in_Darstel"& _ "lwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, Gesamtbetrag_Brutto_in_D"& _ "arstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_Kostenstelle_1, Kartenty"& _ "p, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Feld, KFZ_Kennzeichen, Fill"& _ "er_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, Informationsbeleg, Beleg"& _ "herkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkomm"& _ "astellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen, Rechnun"& _ "gsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nachlass_in_Lieferlandwährun"& _ "g_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_info"& _ "rmativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ, Fälligkeitsda"& _ "tum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnummer_gegenüber_dem_Nutzer"& _ ", TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenstelle_2, Lieferzeit, Frem"& _ "dkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimiert, Kartenkategorie, Rech"& _ "nungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnausfahrt, Rabattschlüssel_"& _ "der_französischen_Autobahngesellschaften, Nummer_Belastungsanzeige, Betreuungsst"& _ "elle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie, UTA_Beleg_ID, UTA_Norma"& _ "lbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Bescheinigung_bis, Herausgeber_N"& _ "utzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Postleitzahl_der_Akzeptanzst"& _ "elle, Steuerliches_Lieferland, Steuerliche_Produktgruppe, Leistungsort_verlagerb"& _ "ar, archiv, archiviertDatum, daId, upsize_ts FROM tblUTAImport WHERE (ErstellDat"& _ "umUhrzeit = @ErstellDatumUhrzeit) AND (Übertragungsnummer = @Übertragungsnummer)"& _ " AND (Übertragungsposition = @Übertragungsposition)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsnummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsempfänger_Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsempfänger_Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanzstellennummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanzstellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standort_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standort_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegnummer_des_Lieferanten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegnummer_des_Lieferanten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kilometerstand", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kilometerstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Menge", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_BT", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_BT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferlandwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferlandwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Darstellwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Darstellwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartentyp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartentyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_35", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_35", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_36", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_36", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KZ_Autobahn", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KZ_Autobahn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INFO_Feld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INFO_Feld", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_40", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_40", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsgrund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsgrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_43", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_43", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Informationsbeleg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Informationsbeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegherkunft", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegherkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_46", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_46", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz_informativ", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel_in_Tagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel_in_Tagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungszielgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungszielgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferzeit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fremdkartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fremdkartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OnBoardUnitID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OnBoardUnitID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen_komprimiert", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen_komprimiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer_pro_Lieferland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer_pro_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnauffahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnauffahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnausfahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnausfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer_Belastungsanzeige", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer_Belastungsanzeige", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betreuungsstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betreuungsstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_72", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_72", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanz_Medium", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanz_Medium", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Beleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Beleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Normalbeleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Normalbeleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_von", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Herausgeber_Nutzer_Nummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Herausgeber_Nutzer_Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Maßeinheit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Maßeinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Land_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Land_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postleitzahl_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postleitzahl_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliches_Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliches_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliche_Produktgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliche_Produktgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsort_verlagerbar", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsort_verlagerbar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@archiv", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "archiv", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@archiviertDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "archiviertDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "daId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsposition, Abrechnungs"& _ "nummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kundennumme"& _ "r, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzstellennum"& _ "mer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilo"& _ "meterstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen"& _ ", Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brut"& _ "to_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_"& _ "in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_i"& _ "n_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_I"& _ "SO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesam"& _ "tbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, "& _ "Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_"& _ "Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Fel"& _ "d, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, "& _ "Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferla"& _ "ndwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_N"& _ "achkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nach"& _ "lass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandw"& _ "ährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_i"& _ "nformativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnum"& _ "mer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenst"& _ "elle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimier"& _ "t, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnau"& _ "sfahrt, Rabattschlüssel_der_französischen_Autobahngesellschaften, Nummer_Belastu"& _ "ngsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie,"& _ " UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Beschein"& _ "igung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Post"& _ "leitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produktgruppe"& _ ", Leistungsort_verlagerbar, archiv, archiviertDatum, daId, upsize_ts FROM dbo.tb"& _ "lUTAImport" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUTAImportDataTable) 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 VERAGDataSet.tblUTAImportDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUTAImportDataTable = New VERAGDataSet.tblUTAImportDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUTAImportDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUTAImport") 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_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_Übertragungsposition As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Übertragungsnummer,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Übertragungsposition,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 ErstellDatumUhrzeit As Date, _ ByVal Übertragungsnummer As Integer, _ ByVal Übertragungsposition As Integer, _ ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Global.System.Nullable(Of Date), _ ByVal Rechnungsempfänger_Kundennummer As Global.System.Nullable(Of Integer), _ ByVal Abrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Akzeptanzstellennummer As Global.System.Nullable(Of Double), _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Global.System.Nullable(Of Double), _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Global.System.Nullable(Of Double), _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Global.System.Nullable(Of Double), _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Umsatzsteuerprozentsatz_informativ As Global.System.Nullable(Of Double), _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel_in_Tagen As Global.System.Nullable(Of Short), _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Global.System.Nullable(Of Double), _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Nullable(Of Short), _ ByVal Nummer_Belastungsanzeige As Global.System.Nullable(Of Double), _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Global.System.Nullable(Of Double), _ ByVal UTA_Normalbeleg_ID As Global.System.Nullable(Of Double), _ ByVal Gebühren_Bescheinigung_von As Global.System.Nullable(Of Date), _ ByVal Gebühren_Bescheinigung_bis As Global.System.Nullable(Of Date), _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal archiv As Boolean, _ ByVal archiviertDatum As Global.System.Nullable(Of Date), _ ByVal daId As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(Übertragungsposition,Integer) If (Abrechnungsnummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Abrechnungsnummer.Value,Double) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Datum_für_Lieferungen_und_Leistungen_bis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Datum_für_Lieferungen_und_Leistungen_bis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Rechnungsempfänger_Kundennummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Rechnungsempfänger_Kundennummer.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Abrechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Abrechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(Kundennummer,Integer) If (Kartennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Kartennummer,String) End If If (Belegdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Belegdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Akzeptanzstellennummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Akzeptanzstellennummer.Value,Double) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Standort_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Standort_der_Akzeptanzstelle,String) End If If (Lieferland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Lieferland,String) End If If (Belegnummer_des_Lieferanten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Belegnummer_des_Lieferanten,String) End If If (Kilometerstand.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(Kilometerstand.Value,Double) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Fakturierwarenart") Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Fakturierwarenart,String) End If If (Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen,String) End If If (Menge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(Menge.Value,Double) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (SB_BT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(SB_BT,String) End If If (Umsatzsteuerprozentsatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(Umsatzsteuerprozentsatz.Value,Double) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Lieferlandwährung_ISO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(Lieferlandwährung_ISO,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(Betrag_Service_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(Betrag_Nachlass_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(Gesamtbetrag_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(Gesamtbetrag_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Darstellwährung_ISO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(Darstellwährung_ISO,String) End If If (Betrag_Service_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(Betrag_Service_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(29).Value = CType(Betrag_Nachlass_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(Gesamtbetrag_Netto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(Gesamtbetrag_Brutto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Prägetext_i_d_R_KFZ_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(Prägetext_i_d_R_KFZ_Kennzeichen,String) End If If (Kunden_Kostenstelle_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(Kunden_Kostenstelle_1,String) End If If (Kartentyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(Kartentyp,String) End If If (Filler_Feld_35 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(Filler_Feld_35,String) End If If (Filler_Feld_36 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(Filler_Feld_36,String) End If If (KZ_Autobahn Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(KZ_Autobahn,String) End If If (INFO_Feld Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(INFO_Feld,String) End If If (KFZ_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(KFZ_Kennzeichen,String) End If If (Filler_Feld_40 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(Filler_Feld_40,String) End If If (Buchungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(Buchungsart,String) End If If (Buchungsgrund Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(Buchungsgrund,String) End If If (Filler_Feld_43 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(Filler_Feld_43,String) End If If (Informationsbeleg Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(Informationsbeleg,String) End If If (Belegherkunft Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(Belegherkunft,String) End If If (Filler_Feld_46 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(Filler_Feld_46,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(49).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(50).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Umsatzsteuerprozentsatz_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(Umsatzsteuerprozentsatz_informativ.Value,Double) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(52).Value = CType(Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(53).Value = CType(Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Fälligkeitsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(55).Value = CType(Fälligkeitsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Zahlungsziel_in_Tagen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(56).Value = CType(Zahlungsziel_in_Tagen.Value,Short) Else Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Zahlungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(Zahlungsart,String) End If If (TC_Rechnungsnummer_gegenüber_dem_Nutzer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(TC_Rechnungsnummer_gegenüber_dem_Nutzer,String) End If If (TC_Rechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(59).Value = CType(TC_Rechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Zahlungszielgruppe Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(Zahlungszielgruppe,String) End If If (Kunden_Kostenstelle_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(Kunden_Kostenstelle_2,String) End If If (Lieferzeit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(Lieferzeit,String) End If If (Fremdkartennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(Fremdkartennummer,String) End If If (OnBoardUnitID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(OnBoardUnitID,String) End If If (KFZ_Kennzeichen_komprimiert Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(KFZ_Kennzeichen_komprimiert,String) End If If (Kartenkategorie Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(Kartenkategorie,String) End If If (Rechnungsnummer_pro_Lieferland.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(67).Value = CType(Rechnungsnummer_pro_Lieferland.Value,Double) Else Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Autobahnauffahrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(Autobahnauffahrt,String) End If If (Autobahnausfahrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(Autobahnausfahrt,String) End If If (Rabattschlüssel_der_französischen_Autobahngesellschaften.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(70).Value = CType(Rabattschlüssel_der_französischen_Autobahngesellschaften.Value,Short) Else Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Nummer_Belastungsanzeige.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(71).Value = CType(Nummer_Belastungsanzeige.Value,Double) Else Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Betreuungsstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(Betreuungsstelle,String) End If If (Filler_Feld_72 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(Filler_Feld_72,String) End If If (Akzeptanz_Medium Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(Akzeptanz_Medium,String) End If If (Steuerkategorie Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(Steuerkategorie,String) End If If (UTA_Beleg_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(76).Value = CType(UTA_Beleg_ID.Value,Double) Else Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (UTA_Normalbeleg_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(77).Value = CType(UTA_Normalbeleg_ID.Value,Double) Else Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_von.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(78).Value = CType(Gebühren_Bescheinigung_von.Value,Date) Else Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_bis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(79).Value = CType(Gebühren_Bescheinigung_bis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (Herausgeber_Nutzer_Nummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(Herausgeber_Nutzer_Nummer,String) End If If (Maßeinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(Maßeinheit,String) End If If (Land_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(Land_der_Akzeptanzstelle,String) End If If (Postleitzahl_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(Postleitzahl_der_Akzeptanzstelle,String) End If If (Steuerliches_Lieferland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(Steuerliches_Lieferland,String) End If If (Steuerliche_Produktgruppe Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(Steuerliche_Produktgruppe,String) End If If (Leistungsort_verlagerbar Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(Leistungsort_verlagerbar,String) End If Me.Adapter.InsertCommand.Parameters(87).Value = CType(archiv,Boolean) If (archiviertDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(88).Value = CType(archiviertDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (daId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(89).Value = CType(daId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(89).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 ErstellDatumUhrzeit As Date, _ ByVal Übertragungsnummer As Integer, _ ByVal Übertragungsposition As Integer, _ ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Global.System.Nullable(Of Date), _ ByVal Rechnungsempfänger_Kundennummer As Global.System.Nullable(Of Integer), _ ByVal Abrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Akzeptanzstellennummer As Global.System.Nullable(Of Double), _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Global.System.Nullable(Of Double), _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Global.System.Nullable(Of Double), _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Global.System.Nullable(Of Double), _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Umsatzsteuerprozentsatz_informativ As Global.System.Nullable(Of Double), _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel_in_Tagen As Global.System.Nullable(Of Short), _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Global.System.Nullable(Of Double), _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Nullable(Of Short), _ ByVal Nummer_Belastungsanzeige As Global.System.Nullable(Of Double), _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Global.System.Nullable(Of Double), _ ByVal UTA_Normalbeleg_ID As Global.System.Nullable(Of Double), _ ByVal Gebühren_Bescheinigung_von As Global.System.Nullable(Of Date), _ ByVal Gebühren_Bescheinigung_bis As Global.System.Nullable(Of Date), _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal archiv As Boolean, _ ByVal archiviertDatum As Global.System.Nullable(Of Date), _ ByVal daId As Global.System.Nullable(Of Integer), _ ByVal Original_ErstellDatumUhrzeit As Date, _ ByVal Original_Übertragungsnummer As Integer, _ ByVal Original_Übertragungsposition As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Übertragungsposition,Integer) If (Abrechnungsnummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Abrechnungsnummer.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Datum_für_Lieferungen_und_Leistungen_bis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Datum_für_Lieferungen_und_Leistungen_bis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Rechnungsempfänger_Kundennummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Rechnungsempfänger_Kundennummer.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Abrechnungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Abrechnungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Kundennummer,Integer) If (Kartennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Kartennummer,String) End If If (Belegdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Belegdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Akzeptanzstellennummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Akzeptanzstellennummer.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Standort_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Standort_der_Akzeptanzstelle,String) End If If (Lieferland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Lieferland,String) End If If (Belegnummer_des_Lieferanten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Belegnummer_des_Lieferanten,String) End If If (Kilometerstand.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Kilometerstand.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Fakturierwarenart") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Fakturierwarenart,String) End If If (Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen,String) End If If (Menge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Menge.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (SB_BT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SB_BT,String) End If If (Umsatzsteuerprozentsatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Umsatzsteuerprozentsatz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Lieferlandwährung_ISO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Lieferlandwährung_ISO,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Betrag_Service_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Betrag_Nachlass_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Gesamtbetrag_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Gesamtbetrag_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Darstellwährung_ISO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Darstellwährung_ISO,String) End If If (Betrag_Service_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Betrag_Service_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Betrag_Nachlass_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Gesamtbetrag_Netto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Gesamtbetrag_Brutto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Prägetext_i_d_R_KFZ_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Prägetext_i_d_R_KFZ_Kennzeichen,String) End If If (Kunden_Kostenstelle_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Kunden_Kostenstelle_1,String) End If If (Kartentyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Kartentyp,String) End If If (Filler_Feld_35 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Filler_Feld_35,String) End If If (Filler_Feld_36 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Filler_Feld_36,String) End If If (KZ_Autobahn Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(KZ_Autobahn,String) End If If (INFO_Feld Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(INFO_Feld,String) End If If (KFZ_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(KFZ_Kennzeichen,String) End If If (Filler_Feld_40 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Filler_Feld_40,String) End If If (Buchungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Buchungsart,String) End If If (Buchungsgrund Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Buchungsgrund,String) End If If (Filler_Feld_43 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Filler_Feld_43,String) End If If (Informationsbeleg Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Informationsbeleg,String) End If If (Belegherkunft Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Belegherkunft,String) End If If (Filler_Feld_46 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Filler_Feld_46,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Umsatzsteuerprozentsatz_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Umsatzsteuerprozentsatz_informativ.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Fälligkeitsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Fälligkeitsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Zahlungsziel_in_Tagen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Zahlungsziel_in_Tagen.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Zahlungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Zahlungsart,String) End If If (TC_Rechnungsnummer_gegenüber_dem_Nutzer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(TC_Rechnungsnummer_gegenüber_dem_Nutzer,String) End If If (TC_Rechnungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(TC_Rechnungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Zahlungszielgruppe Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Zahlungszielgruppe,String) End If If (Kunden_Kostenstelle_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Kunden_Kostenstelle_2,String) End If If (Lieferzeit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Lieferzeit,String) End If If (Fremdkartennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Fremdkartennummer,String) End If If (OnBoardUnitID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(OnBoardUnitID,String) End If If (KFZ_Kennzeichen_komprimiert Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(KFZ_Kennzeichen_komprimiert,String) End If If (Kartenkategorie Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Kartenkategorie,String) End If If (Rechnungsnummer_pro_Lieferland.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Rechnungsnummer_pro_Lieferland.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Autobahnauffahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Autobahnauffahrt,String) End If If (Autobahnausfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Autobahnausfahrt,String) End If If (Rabattschlüssel_der_französischen_Autobahngesellschaften.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Rabattschlüssel_der_französischen_Autobahngesellschaften.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Nummer_Belastungsanzeige.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Nummer_Belastungsanzeige.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Betreuungsstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Betreuungsstelle,String) End If If (Filler_Feld_72 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Filler_Feld_72,String) End If If (Akzeptanz_Medium Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Akzeptanz_Medium,String) End If If (Steuerkategorie Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Steuerkategorie,String) End If If (UTA_Beleg_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(UTA_Beleg_ID.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (UTA_Normalbeleg_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(UTA_Normalbeleg_ID.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_von.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Gebühren_Bescheinigung_von.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_bis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Gebühren_Bescheinigung_bis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (Herausgeber_Nutzer_Nummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Herausgeber_Nutzer_Nummer,String) End If If (Maßeinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Maßeinheit,String) End If If (Land_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Land_der_Akzeptanzstelle,String) End If If (Postleitzahl_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Postleitzahl_der_Akzeptanzstelle,String) End If If (Steuerliches_Lieferland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Steuerliches_Lieferland,String) End If If (Steuerliche_Produktgruppe Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Steuerliche_Produktgruppe,String) End If If (Leistungsort_verlagerbar Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Leistungsort_verlagerbar,String) End If Me.Adapter.UpdateCommand.Parameters(87).Value = CType(archiv,Boolean) If (archiviertDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(archiviertDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (daId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(89).Value = CType(daId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_Übertragungsnummer,Integer) Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_Übertragungsposition,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_upsize_ts,Byte()) End If 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 Abrechnungsnummer As Global.System.Nullable(Of Double), _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Global.System.Nullable(Of Date), _ ByVal Rechnungsempfänger_Kundennummer As Global.System.Nullable(Of Integer), _ ByVal Abrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Akzeptanzstellennummer As Global.System.Nullable(Of Double), _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Global.System.Nullable(Of Double), _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Global.System.Nullable(Of Double), _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Global.System.Nullable(Of Double), _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Umsatzsteuerprozentsatz_informativ As Global.System.Nullable(Of Double), _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel_in_Tagen As Global.System.Nullable(Of Short), _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Global.System.Nullable(Of Double), _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Nullable(Of Short), _ ByVal Nummer_Belastungsanzeige As Global.System.Nullable(Of Double), _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Global.System.Nullable(Of Double), _ ByVal UTA_Normalbeleg_ID As Global.System.Nullable(Of Double), _ ByVal Gebühren_Bescheinigung_von As Global.System.Nullable(Of Date), _ ByVal Gebühren_Bescheinigung_bis As Global.System.Nullable(Of Date), _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal archiv As Boolean, _ ByVal archiviertDatum As Global.System.Nullable(Of Date), _ ByVal daId As Global.System.Nullable(Of Integer), _ ByVal Original_ErstellDatumUhrzeit As Date, _ ByVal Original_Übertragungsnummer As Integer, _ ByVal Original_Übertragungsposition As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Original_Übertragungsposition, Abrechnungsnummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kundennummer, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzstellennummer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilometerstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen, Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brutto_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_in_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_ISO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesamtbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Feld, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnummer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenstelle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimiert, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnausfahrt, Rabattschlüssel_der_französischen_Autobahngesellschaften, Nummer_Belastungsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie, UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Bescheinigung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Postleitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produktgruppe, Leistungsort_verlagerbar, archiv, archiviertDatum, daId, Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Original_Übertragungsposition, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUTAImportNewTableAdapter 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 = "tblUTAImportNew" tableMapping.ColumnMappings.Add("ErstellDatumUhrzeit", "ErstellDatumUhrzeit") tableMapping.ColumnMappings.Add("Übertragungsnummer", "Übertragungsnummer") tableMapping.ColumnMappings.Add("Übertragungsposition", "Übertragungsposition") tableMapping.ColumnMappings.Add("Abrechnungsnummer", "Abrechnungsnummer") tableMapping.ColumnMappings.Add("Datum_für_Lieferungen_und_Leistungen_bis", "Datum_für_Lieferungen_und_Leistungen_bis") tableMapping.ColumnMappings.Add("Rechnungsempfänger_Kundennummer", "Rechnungsempfänger_Kundennummer") tableMapping.ColumnMappings.Add("Abrechnungsdatum", "Abrechnungsdatum") tableMapping.ColumnMappings.Add("Kundennummer", "Kundennummer") tableMapping.ColumnMappings.Add("Kartennummer", "Kartennummer") tableMapping.ColumnMappings.Add("Belegdatum", "Belegdatum") tableMapping.ColumnMappings.Add("Akzeptanzstellennummer", "Akzeptanzstellennummer") tableMapping.ColumnMappings.Add("Standort_der_Akzeptanzstelle", "Standort_der_Akzeptanzstelle") tableMapping.ColumnMappings.Add("Lieferland", "Lieferland") tableMapping.ColumnMappings.Add("Belegnummer_des_Lieferanten", "Belegnummer_des_Lieferanten") tableMapping.ColumnMappings.Add("Kilometerstand", "Kilometerstand") tableMapping.ColumnMappings.Add("Fakturierwarenart", "Fakturierwarenart") tableMapping.ColumnMappings.Add("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", "Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen") tableMapping.ColumnMappings.Add("Menge", "Menge") tableMapping.ColumnMappings.Add("SB_BT", "SB_BT") tableMapping.ColumnMappings.Add("Umsatzsteuerprozentsatz", "Umsatzsteuerprozentsatz") tableMapping.ColumnMappings.Add("Lieferlandwährung_ISO", "Lieferlandwährung_ISO") tableMapping.ColumnMappings.Add("Einzelpreis_Brutto_in_Lieferlandwährung", "Einzelpreis_Brutto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Einzelpreis_Netto_in_Lieferlandwährung", "Einzelpreis_Netto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Betrag_Service_in_Lieferlandwährung", "Betrag_Service_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Betrag_Nachlass_in_Lieferlandwährung", "Betrag_Nachlass_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Netto_in_Lieferlandwährung", "Gesamtbetrag_Netto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Brutto_in_Lieferlandwährung", "Gesamtbetrag_Brutto_in_Lieferlandwährung") tableMapping.ColumnMappings.Add("Darstellwährung_ISO", "Darstellwährung_ISO") tableMapping.ColumnMappings.Add("Betrag_Service_in_Darstellwährung", "Betrag_Service_in_Darstellwährung") tableMapping.ColumnMappings.Add("Betrag_Nachlass_in_Darstellwährung", "Betrag_Nachlass_in_Darstellwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Netto_in_Darstellwährung", "Gesamtbetrag_Netto_in_Darstellwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", "Gesamtbetrag_Umsatzsteuer_in_Darstellwährung") tableMapping.ColumnMappings.Add("Gesamtbetrag_Brutto_in_Darstellwährung", "Gesamtbetrag_Brutto_in_Darstellwährung") tableMapping.ColumnMappings.Add("Prägetext_i_d_R_KFZ_Kennzeichen", "Prägetext_i_d_R_KFZ_Kennzeichen") tableMapping.ColumnMappings.Add("Kunden_Kostenstelle_1", "Kunden_Kostenstelle_1") tableMapping.ColumnMappings.Add("Kartentyp", "Kartentyp") tableMapping.ColumnMappings.Add("Filler_Feld_35", "Filler_Feld_35") tableMapping.ColumnMappings.Add("Filler_Feld_36", "Filler_Feld_36") tableMapping.ColumnMappings.Add("KZ_Autobahn", "KZ_Autobahn") tableMapping.ColumnMappings.Add("INFO_Feld", "INFO_Feld") tableMapping.ColumnMappings.Add("KFZ_Kennzeichen", "KFZ_Kennzeichen") tableMapping.ColumnMappings.Add("Filler_Feld_40", "Filler_Feld_40") tableMapping.ColumnMappings.Add("Buchungsart", "Buchungsart") tableMapping.ColumnMappings.Add("Buchungsgrund", "Buchungsgrund") tableMapping.ColumnMappings.Add("Filler_Feld_43", "Filler_Feld_43") tableMapping.ColumnMappings.Add("Informationsbeleg", "Informationsbeleg") tableMapping.ColumnMappings.Add("Belegherkunft", "Belegherkunft") tableMapping.ColumnMappings.Add("Filler_Feld_46", "Filler_Feld_46") tableMapping.ColumnMappings.Add("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", "Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen") tableMapping.ColumnMappings.Add("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen") tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Umsatzsteuerprozentsatz_informativ", "Umsatzsteuerprozentsatz_informativ") tableMapping.ColumnMappings.Add("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", "Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ") tableMapping.ColumnMappings.Add("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", "Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ") tableMapping.ColumnMappings.Add("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", "Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ") tableMapping.ColumnMappings.Add("Fälligkeitsdatum", "Fälligkeitsdatum") tableMapping.ColumnMappings.Add("Zahlungsziel_in_Tagen", "Zahlungsziel_in_Tagen") tableMapping.ColumnMappings.Add("Zahlungsart", "Zahlungsart") tableMapping.ColumnMappings.Add("TC_Rechnungsnummer_gegenüber_dem_Nutzer", "TC_Rechnungsnummer_gegenüber_dem_Nutzer") tableMapping.ColumnMappings.Add("TC_Rechnungsdatum", "TC_Rechnungsdatum") tableMapping.ColumnMappings.Add("Zahlungszielgruppe", "Zahlungszielgruppe") tableMapping.ColumnMappings.Add("Kunden_Kostenstelle_2", "Kunden_Kostenstelle_2") tableMapping.ColumnMappings.Add("Lieferzeit", "Lieferzeit") tableMapping.ColumnMappings.Add("Fremdkartennummer", "Fremdkartennummer") tableMapping.ColumnMappings.Add("OnBoardUnitID", "OnBoardUnitID") tableMapping.ColumnMappings.Add("KFZ_Kennzeichen_komprimiert", "KFZ_Kennzeichen_komprimiert") tableMapping.ColumnMappings.Add("Kartenkategorie", "Kartenkategorie") tableMapping.ColumnMappings.Add("Rechnungsnummer_pro_Lieferland", "Rechnungsnummer_pro_Lieferland") tableMapping.ColumnMappings.Add("Autobahnauffahrt", "Autobahnauffahrt") tableMapping.ColumnMappings.Add("Autobahnausfahrt", "Autobahnausfahrt") tableMapping.ColumnMappings.Add("Rabattschlüssel_der_französischen_Autobahngesellschaften", "Rabattschlüssel_der_französischen_Autobahngesellschaften") tableMapping.ColumnMappings.Add("Nummer_Belastungsanzeige", "Nummer_Belastungsanzeige") tableMapping.ColumnMappings.Add("Betreuungsstelle", "Betreuungsstelle") tableMapping.ColumnMappings.Add("Filler_Feld_72", "Filler_Feld_72") tableMapping.ColumnMappings.Add("Akzeptanz_Medium", "Akzeptanz_Medium") tableMapping.ColumnMappings.Add("Steuerkategorie", "Steuerkategorie") tableMapping.ColumnMappings.Add("UTA_Beleg_ID", "UTA_Beleg_ID") tableMapping.ColumnMappings.Add("UTA_Normalbeleg_ID", "UTA_Normalbeleg_ID") tableMapping.ColumnMappings.Add("Gebühren_Bescheinigung_von", "Gebühren_Bescheinigung_von") tableMapping.ColumnMappings.Add("Gebühren_Bescheinigung_bis", "Gebühren_Bescheinigung_bis") tableMapping.ColumnMappings.Add("Herausgeber_Nutzer_Nummer", "Herausgeber_Nutzer_Nummer") tableMapping.ColumnMappings.Add("Maßeinheit", "Maßeinheit") tableMapping.ColumnMappings.Add("Land_der_Akzeptanzstelle", "Land_der_Akzeptanzstelle") tableMapping.ColumnMappings.Add("Postleitzahl_der_Akzeptanzstelle", "Postleitzahl_der_Akzeptanzstelle") tableMapping.ColumnMappings.Add("Steuerliches_Lieferland", "Steuerliches_Lieferland") tableMapping.ColumnMappings.Add("Steuerliche_Produktgruppe", "Steuerliche_Produktgruppe") tableMapping.ColumnMappings.Add("Leistungsort_verlagerbar", "Leistungsort_verlagerbar") tableMapping.ColumnMappings.Add("abgerechnet", "abgerechnet") tableMapping.ColumnMappings.Add("abgerechnetDatum", "abgerechnetDatum") tableMapping.ColumnMappings.Add("daId", "daId") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUTAImportNew] WHERE (([ErstellDatumUhrzeit] = @Original_Ers"& _ "tellDatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND "& _ "([Übertragungsposition] = @Original_Übertragungsposition) AND ((@IsNull_upsize_t"& _ "s = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUTAImportNew] ([ErstellDatumUhrzeit], [Übertragungsnummer],"& _ " [Übertragungsposition], [Abrechnungsnummer], [Datum_für_Lieferungen_und_Leistun"& _ "gen_bis], [Rechnungsempfänger_Kundennummer], [Abrechnungsdatum], [Kundennummer],"& _ " [Kartennummer], [Belegdatum], [Akzeptanzstellennummer], [Standort_der_Akzeptanz"& _ "stelle], [Lieferland], [Belegnummer_des_Lieferanten], [Kilometerstand], [Fakturi"& _ "erwarenart], [Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen], [Menge], [SB_B"& _ "T], [Umsatzsteuerprozentsatz], [Lieferlandwährung_ISO], [Einzelpreis_Brutto_in_L"& _ "ieferlandwährung], [Einzelpreis_Netto_in_Lieferlandwährung], [Betrag_Service_in_"& _ "Lieferlandwährung], [Betrag_Nachlass_in_Lieferlandwährung], [Gesamtbetrag_Netto_"& _ "in_Lieferlandwährung], [Gesamtbetrag_Brutto_in_Lieferlandwährung], [Darstellwähr"& _ "ung_ISO], [Betrag_Service_in_Darstellwährung], [Betrag_Nachlass_in_Darstellwähru"& _ "ng], [Gesamtbetrag_Netto_in_Darstellwährung], [Gesamtbetrag_Umsatzsteuer_in_Dars"& _ "tellwährung], [Gesamtbetrag_Brutto_in_Darstellwährung], [Prägetext_i_d_R_KFZ_Ken"& _ "nzeichen], [Kunden_Kostenstelle_1], [Kartentyp], [Filler_Feld_35], [Filler_Feld_"& _ "36], [KZ_Autobahn], [INFO_Feld], [KFZ_Kennzeichen], [Filler_Feld_40], [Buchungsa"& _ "rt], [Buchungsgrund], [Filler_Feld_43], [Informationsbeleg], [Belegherkunft], [F"& _ "iller_Feld_46], [Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen]"& _ ", [Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen], [Rechnungsdat"& _ "um], [Umsatzsteuerprozentsatz_informativ], [Betrag_Nachlass_in_Lieferlandwährung"& _ "_Umsatzsteuer_informativ], [Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_inf"& _ "ormativ], [Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ], [Fälligke"& _ "itsdatum], [Zahlungsziel_in_Tagen], [Zahlungsart], [TC_Rechnungsnummer_gegenüber"& _ "_dem_Nutzer], [TC_Rechnungsdatum], [Zahlungszielgruppe], [Kunden_Kostenstelle_2]"& _ ", [Lieferzeit], [Fremdkartennummer], [OnBoardUnitID], [KFZ_Kennzeichen_komprimie"& _ "rt], [Kartenkategorie], [Rechnungsnummer_pro_Lieferland], [Autobahnauffahrt], [A"& _ "utobahnausfahrt], [Rabattschlüssel_der_französischen_Autobahngesellschaften], [N"& _ "ummer_Belastungsanzeige], [Betreuungsstelle], [Filler_Feld_72], [Akzeptanz_Mediu"& _ "m], [Steuerkategorie], [UTA_Beleg_ID], [UTA_Normalbeleg_ID], [Gebühren_Bescheini"& _ "gung_von], [Gebühren_Bescheinigung_bis], [Herausgeber_Nutzer_Nummer], [Maßeinhei"& _ "t], [Land_der_Akzeptanzstelle], [Postleitzahl_der_Akzeptanzstelle], [Steuerliche"& _ "s_Lieferland], [Steuerliche_Produktgruppe], [Leistungsort_verlagerbar], [abgerec"& _ "hnet], [abgerechnetDatum], [daId]) VALUES (@ErstellDatumUhrzeit, @Übertragungsnu"& _ "mmer, @Übertragungsposition, @Abrechnungsnummer, @Datum_für_Lieferungen_und_Leis"& _ "tungen_bis, @Rechnungsempfänger_Kundennummer, @Abrechnungsdatum, @Kundennummer, "& _ "@Kartennummer, @Belegdatum, @Akzeptanzstellennummer, @Standort_der_Akzeptanzstel"& _ "le, @Lieferland, @Belegnummer_des_Lieferanten, @Kilometerstand, @Fakturierwarena"& _ "rt, @Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen, @Menge, @SB_BT, @Umsatzs"& _ "teuerprozentsatz, @Lieferlandwährung_ISO, @Einzelpreis_Brutto_in_Lieferlandwähru"& _ "ng, @Einzelpreis_Netto_in_Lieferlandwährung, @Betrag_Service_in_Lieferlandwährun"& _ "g, @Betrag_Nachlass_in_Lieferlandwährung, @Gesamtbetrag_Netto_in_Lieferlandwähru"& _ "ng, @Gesamtbetrag_Brutto_in_Lieferlandwährung, @Darstellwährung_ISO, @Betrag_Ser"& _ "vice_in_Darstellwährung, @Betrag_Nachlass_in_Darstellwährung, @Gesamtbetrag_Nett"& _ "o_in_Darstellwährung, @Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, @Gesamtbetr"& _ "ag_Brutto_in_Darstellwährung, @Prägetext_i_d_R_KFZ_Kennzeichen, @Kunden_Kostenst"& _ "elle_1, @Kartentyp, @Filler_Feld_35, @Filler_Feld_36, @KZ_Autobahn, @INFO_Feld, "& _ "@KFZ_Kennzeichen, @Filler_Feld_40, @Buchungsart, @Buchungsgrund, @Filler_Feld_43"& _ ", @Informationsbeleg, @Belegherkunft, @Filler_Feld_46, @Einzelpreis_Brutto_in_Li"& _ "eferlandwährung_mit_4_Nachkommastellen, @Einzelpreis_Netto_in_Lieferlandwährung_"& _ "mit_4_Nachkommastellen, @Rechnungsdatum, @Umsatzsteuerprozentsatz_informativ, @B"& _ "etrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ, @Betrag_Service_in_"& _ "Lieferlandwährung_Umsatzsteuer_informativ, @Gesamtbetrag_in_Lieferlandwährung_Um"& _ "satzsteuer_informativ, @Fälligkeitsdatum, @Zahlungsziel_in_Tagen, @Zahlungsart, "& _ "@TC_Rechnungsnummer_gegenüber_dem_Nutzer, @TC_Rechnungsdatum, @Zahlungszielgrupp"& _ "e, @Kunden_Kostenstelle_2, @Lieferzeit, @Fremdkartennummer, @OnBoardUnitID, @KFZ"& _ "_Kennzeichen_komprimiert, @Kartenkategorie, @Rechnungsnummer_pro_Lieferland, @Au"& _ "tobahnauffahrt, @Autobahnausfahrt, @Rabattschlüssel_der_französischen_Autobahnge"& _ "sellschaften, @Nummer_Belastungsanzeige, @Betreuungsstelle, @Filler_Feld_72, @Ak"& _ "zeptanz_Medium, @Steuerkategorie, @UTA_Beleg_ID, @UTA_Normalbeleg_ID, @Gebühren_"& _ "Bescheinigung_von, @Gebühren_Bescheinigung_bis, @Herausgeber_Nutzer_Nummer, @Maß"& _ "einheit, @Land_der_Akzeptanzstelle, @Postleitzahl_der_Akzeptanzstelle, @Steuerli"& _ "ches_Lieferland, @Steuerliche_Produktgruppe, @Leistungsort_verlagerbar, @abgerec"& _ "hnet, @abgerechnetDatum, @daId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzeit, Übertragungsnummer"& _ ", Übertragungsposition, Abrechnungsnummer, Datum_für_Lieferungen_und_Leistungen_"& _ "bis, Rechnungsempfänger_Kundennummer, Abrechnungsdatum, Kundennummer, Kartennumm"& _ "er, Belegdatum, Akzeptanzstellennummer, Standort_der_Akzeptanzstelle, Lieferland"& _ ", Belegnummer_des_Lieferanten, Kilometerstand, Fakturierwarenart, Vorzeichen_Sta"& _ "tusfeld_für_alle_Beträge_und_Mengen, Menge, SB_BT, Umsatzsteuerprozentsatz, Lief"& _ "erlandwährung_ISO, Einzelpreis_Brutto_in_Lieferlandwährung, Einzelpreis_Netto_in"& _ "_Lieferlandwährung, Betrag_Service_in_Lieferlandwährung, Betrag_Nachlass_in_Lief"& _ "erlandwährung, Gesamtbetrag_Netto_in_Lieferlandwährung, Gesamtbetrag_Brutto_in_L"& _ "ieferlandwährung, Darstellwährung_ISO, Betrag_Service_in_Darstellwährung, Betrag"& _ "_Nachlass_in_Darstellwährung, Gesamtbetrag_Netto_in_Darstellwährung, Gesamtbetra"& _ "g_Umsatzsteuer_in_Darstellwährung, Gesamtbetrag_Brutto_in_Darstellwährung, Präge"& _ "text_i_d_R_KFZ_Kennzeichen, Kunden_Kostenstelle_1, Kartentyp, Filler_Feld_35, Fi"& _ "ller_Feld_36, KZ_Autobahn, INFO_Feld, KFZ_Kennzeichen, Filler_Feld_40, Buchungsa"& _ "rt, Buchungsgrund, Filler_Feld_43, Informationsbeleg, Belegherkunft, Filler_Feld"& _ "_46, Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen, Einzelpreis"& _ "_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen, Rechnungsdatum, Umsatzsteuer"& _ "prozentsatz_informativ, Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_inform"& _ "ativ, Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ, Gesamtbetrag_"& _ "in_Lieferlandwährung_Umsatzsteuer_informativ, Fälligkeitsdatum, Zahlungsziel_in_"& _ "Tagen, Zahlungsart, TC_Rechnungsnummer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, "& _ "Zahlungszielgruppe, Kunden_Kostenstelle_2, Lieferzeit, Fremdkartennummer, OnBoar"& _ "dUnitID, KFZ_Kennzeichen_komprimiert, Kartenkategorie, Rechnungsnummer_pro_Liefe"& _ "rland, Autobahnauffahrt, Autobahnausfahrt, Rabattschlüssel_der_französischen_Aut"& _ "obahngesellschaften, Nummer_Belastungsanzeige, Betreuungsstelle, Filler_Feld_72,"& _ " Akzeptanz_Medium, Steuerkategorie, UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_B"& _ "escheinigung_von, Gebühren_Bescheinigung_bis, Herausgeber_Nutzer_Nummer, Maßeinh"& _ "eit, Land_der_Akzeptanzstelle, Postleitzahl_der_Akzeptanzstelle, Steuerliches_Li"& _ "eferland, Steuerliche_Produktgruppe, Leistungsort_verlagerbar, abgerechnet, abge"& _ "rechnetDatum, daId, upsize_ts FROM tblUTAImportNew WHERE (ErstellDatumUhrzeit = "& _ "@ErstellDatumUhrzeit) AND (Übertragungsnummer = @Übertragungsnummer) AND (Übertr"& _ "agungsposition = @Übertragungsposition)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsnummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsempfänger_Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsempfänger_Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanzstellennummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanzstellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standort_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standort_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegnummer_des_Lieferanten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegnummer_des_Lieferanten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kilometerstand", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kilometerstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Menge", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_BT", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_BT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferlandwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferlandwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Darstellwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Darstellwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartentyp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartentyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_35", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_35", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_36", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_36", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KZ_Autobahn", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KZ_Autobahn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INFO_Feld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INFO_Feld", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_40", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_40", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsgrund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsgrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_43", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_43", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Informationsbeleg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Informationsbeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegherkunft", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegherkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_46", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_46", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz_informativ", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel_in_Tagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel_in_Tagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungszielgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungszielgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferzeit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fremdkartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fremdkartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OnBoardUnitID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OnBoardUnitID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen_komprimiert", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen_komprimiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer_pro_Lieferland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer_pro_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnauffahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnauffahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnausfahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnausfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer_Belastungsanzeige", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer_Belastungsanzeige", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betreuungsstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betreuungsstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_72", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_72", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanz_Medium", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanz_Medium", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Beleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Beleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Normalbeleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Normalbeleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_von", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Herausgeber_Nutzer_Nummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Herausgeber_Nutzer_Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Maßeinheit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Maßeinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Land_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Land_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postleitzahl_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postleitzahl_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliches_Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliches_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliche_Produktgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliche_Produktgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsort_verlagerbar", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsort_verlagerbar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abgerechnet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abgerechnet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abgerechnetDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abgerechnetDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "daId", 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].[tblUTAImportNew] SET [ErstellDatumUhrzeit] = @ErstellDatumUhrzeit, "& _ "[Übertragungsnummer] = @Übertragungsnummer, [Übertragungsposition] = @Übertragun"& _ "gsposition, [Abrechnungsnummer] = @Abrechnungsnummer, [Datum_für_Lieferungen_und"& _ "_Leistungen_bis] = @Datum_für_Lieferungen_und_Leistungen_bis, [Rechnungsempfänge"& _ "r_Kundennummer] = @Rechnungsempfänger_Kundennummer, [Abrechnungsdatum] = @Abrech"& _ "nungsdatum, [Kundennummer] = @Kundennummer, [Kartennummer] = @Kartennummer, [Bel"& _ "egdatum] = @Belegdatum, [Akzeptanzstellennummer] = @Akzeptanzstellennummer, [Sta"& _ "ndort_der_Akzeptanzstelle] = @Standort_der_Akzeptanzstelle, [Lieferland] = @Lief"& _ "erland, [Belegnummer_des_Lieferanten] = @Belegnummer_des_Lieferanten, [Kilometer"& _ "stand] = @Kilometerstand, [Fakturierwarenart] = @Fakturierwarenart, [Vorzeichen_"& _ "Statusfeld_für_alle_Beträge_und_Mengen] = @Vorzeichen_Statusfeld_für_alle_Beträg"& _ "e_und_Mengen, [Menge] = @Menge, [SB_BT] = @SB_BT, [Umsatzsteuerprozentsatz] = @U"& _ "msatzsteuerprozentsatz, [Lieferlandwährung_ISO] = @Lieferlandwährung_ISO, [Einze"& _ "lpreis_Brutto_in_Lieferlandwährung] = @Einzelpreis_Brutto_in_Lieferlandwährung, "& _ "[Einzelpreis_Netto_in_Lieferlandwährung] = @Einzelpreis_Netto_in_Lieferlandwähru"& _ "ng, [Betrag_Service_in_Lieferlandwährung] = @Betrag_Service_in_Lieferlandwährung"& _ ", [Betrag_Nachlass_in_Lieferlandwährung] = @Betrag_Nachlass_in_Lieferlandwährung"& _ ", [Gesamtbetrag_Netto_in_Lieferlandwährung] = @Gesamtbetrag_Netto_in_Lieferlandw"& _ "ährung, [Gesamtbetrag_Brutto_in_Lieferlandwährung] = @Gesamtbetrag_Brutto_in_Lie"& _ "ferlandwährung, [Darstellwährung_ISO] = @Darstellwährung_ISO, [Betrag_Service_in"& _ "_Darstellwährung] = @Betrag_Service_in_Darstellwährung, [Betrag_Nachlass_in_Dars"& _ "tellwährung] = @Betrag_Nachlass_in_Darstellwährung, [Gesamtbetrag_Netto_in_Darst"& _ "ellwährung] = @Gesamtbetrag_Netto_in_Darstellwährung, [Gesamtbetrag_Umsatzsteuer"& _ "_in_Darstellwährung] = @Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, [Gesamtbet"& _ "rag_Brutto_in_Darstellwährung] = @Gesamtbetrag_Brutto_in_Darstellwährung, [Präge"& _ "text_i_d_R_KFZ_Kennzeichen] = @Prägetext_i_d_R_KFZ_Kennzeichen, [Kunden_Kostenst"& _ "elle_1] = @Kunden_Kostenstelle_1, [Kartentyp] = @Kartentyp, [Filler_Feld_35] = @"& _ "Filler_Feld_35, [Filler_Feld_36] = @Filler_Feld_36, [KZ_Autobahn] = @KZ_Autobahn"& _ ", [INFO_Feld] = @INFO_Feld, [KFZ_Kennzeichen] = @KFZ_Kennzeichen, [Filler_Feld_4"& _ "0] = @Filler_Feld_40, [Buchungsart] = @Buchungsart, [Buchungsgrund] = @Buchungsg"& _ "rund, [Filler_Feld_43] = @Filler_Feld_43, [Informationsbeleg] = @Informationsbel"& _ "eg, [Belegherkunft] = @Belegherkunft, [Filler_Feld_46] = @Filler_Feld_46, [Einze"& _ "lpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen] = @Einzelpreis_Brutto"& _ "_in_Lieferlandwährung_mit_4_Nachkommastellen, [Einzelpreis_Netto_in_Lieferlandwä"& _ "hrung_mit_4_Nachkommastellen] = @Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Na"& _ "chkommastellen, [Rechnungsdatum] = @Rechnungsdatum, [Umsatzsteuerprozentsatz_inf"& _ "ormativ] = @Umsatzsteuerprozentsatz_informativ, [Betrag_Nachlass_in_Lieferlandwä"& _ "hrung_Umsatzsteuer_informativ] = @Betrag_Nachlass_in_Lieferlandwährung_Umsatzste"& _ "uer_informativ, [Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ] = "& _ "@Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ, [Gesamtbetrag_in_L"& _ "ieferlandwährung_Umsatzsteuer_informativ] = @Gesamtbetrag_in_Lieferlandwährung_U"& _ "msatzsteuer_informativ, [Fälligkeitsdatum] = @Fälligkeitsdatum, [Zahlungsziel_in"& _ "_Tagen] = @Zahlungsziel_in_Tagen, [Zahlungsart] = @Zahlungsart, [TC_Rechnungsnum"& _ "mer_gegenüber_dem_Nutzer] = @TC_Rechnungsnummer_gegenüber_dem_Nutzer, [TC_Rechnu"& _ "ngsdatum] = @TC_Rechnungsdatum, [Zahlungszielgruppe] = @Zahlungszielgruppe, [Kun"& _ "den_Kostenstelle_2] = @Kunden_Kostenstelle_2, [Lieferzeit] = @Lieferzeit, [Fremd"& _ "kartennummer] = @Fremdkartennummer, [OnBoardUnitID] = @OnBoardUnitID, [KFZ_Kennz"& _ "eichen_komprimiert] = @KFZ_Kennzeichen_komprimiert, [Kartenkategorie] = @Kartenk"& _ "ategorie, [Rechnungsnummer_pro_Lieferland] = @Rechnungsnummer_pro_Lieferland, [A"& _ "utobahnauffahrt] = @Autobahnauffahrt, [Autobahnausfahrt] = @Autobahnausfahrt, [R"& _ "abattschlüssel_der_französischen_Autobahngesellschaften] = @Rabattschlüssel_der_"& _ "französischen_Autobahngesellschaften, [Nummer_Belastungsanzeige] = @Nummer_Belas"& _ "tungsanzeige, [Betreuungsstelle] = @Betreuungsstelle, [Filler_Feld_72] = @Filler"& _ "_Feld_72, [Akzeptanz_Medium] = @Akzeptanz_Medium, [Steuerkategorie] = @Steuerkat"& _ "egorie, [UTA_Beleg_ID] = @UTA_Beleg_ID, [UTA_Normalbeleg_ID] = @UTA_Normalbeleg_"& _ "ID, [Gebühren_Bescheinigung_von] = @Gebühren_Bescheinigung_von, [Gebühren_Besche"& _ "inigung_bis] = @Gebühren_Bescheinigung_bis, [Herausgeber_Nutzer_Nummer] = @Herau"& _ "sgeber_Nutzer_Nummer, [Maßeinheit] = @Maßeinheit, [Land_der_Akzeptanzstelle] = @"& _ "Land_der_Akzeptanzstelle, [Postleitzahl_der_Akzeptanzstelle] = @Postleitzahl_der"& _ "_Akzeptanzstelle, [Steuerliches_Lieferland] = @Steuerliches_Lieferland, [Steuerl"& _ "iche_Produktgruppe] = @Steuerliche_Produktgruppe, [Leistungsort_verlagerbar] = @"& _ "Leistungsort_verlagerbar, [abgerechnet] = @abgerechnet, [abgerechnetDatum] = @ab"& _ "gerechnetDatum, [daId] = @daId WHERE (([ErstellDatumUhrzeit] = @Original_Erstell"& _ "DatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND ([Üb"& _ "ertragungsposition] = @Original_Übertragungsposition) AND ((@IsNull_upsize_ts = "& _ "1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Ers"& _ "tellDatumUhrzeit, Übertragungsnummer, Übertragungsposition, Abrechnungsnummer, D"& _ "atum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kundennummer, Abrech"& _ "nungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzstellennummer, Stan"& _ "dort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilometerstan"& _ "d, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen, Menge, "& _ "SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brutto_in_Lie"& _ "ferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_in_Liefer"& _ "landwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_in_Lieferl"& _ "andwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_ISO, Betra"& _ "g_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesamtbetrag_N"& _ "etto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, Gesamtbet"& _ "rag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_Kostenste"& _ "lle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Feld, KFZ_Ke"& _ "nnzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, Informati"& _ "onsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferlandwährung"& _ "_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommas"& _ "tellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nachlass_in_L"& _ "ieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandwährung_Um"& _ "satzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ"& _ ", Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnummer_gegen"& _ "über_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenstelle_2, L"& _ "ieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimiert, Karten"& _ "kategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnausfahrt, R"& _ "abattschlüssel_der_französischen_Autobahngesellschaften, Nummer_Belastungsanzeig"& _ "e, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie, UTA_Bele"& _ "g_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Bescheinigung_bis"& _ ", Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Postleitzahl_"& _ "der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produktgruppe, Leistun"& _ "gsort_verlagerbar, abgerechnet, abgerechnetDatum, daId, upsize_ts FROM tblUTAImp"& _ "ortNew WHERE (ErstellDatumUhrzeit = @ErstellDatumUhrzeit) AND (Übertragungsnumme"& _ "r = @Übertragungsnummer) AND (Übertragungsposition = @Übertragungsposition)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsnummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum_für_Lieferungen_und_Leistungen_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsempfänger_Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsempfänger_Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abrechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abrechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanzstellennummer", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanzstellennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Standort_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Standort_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegnummer_des_Lieferanten", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegnummer_des_Lieferanten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kilometerstand", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kilometerstand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Menge", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SB_BT", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SB_BT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferlandwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferlandwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Lieferlandwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Darstellwährung_ISO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Darstellwährung_ISO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Netto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_Brutto_in_Darstellwährung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Prägetext_i_d_R_KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartentyp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartentyp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_35", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_35", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_36", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_36", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KZ_Autobahn", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KZ_Autobahn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INFO_Feld", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INFO_Feld", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_40", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_40", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsgrund", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Buchungsgrund", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_43", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_43", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Informationsbeleg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Informationsbeleg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegherkunft", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegherkunft", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_46", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_46", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umsatzsteuerprozentsatz_informativ", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Umsatzsteuerprozentsatz_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsziel_in_Tagen", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsziel_in_Tagen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsnummer_gegenüber_dem_Nutzer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TC_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TC_Rechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungszielgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungszielgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kunden_Kostenstelle_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kunden_Kostenstelle_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferzeit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fremdkartennummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fremdkartennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OnBoardUnitID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OnBoardUnitID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KFZ_Kennzeichen_komprimiert", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KFZ_Kennzeichen_komprimiert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kartenkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kartenkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer_pro_Lieferland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rechnungsnummer_pro_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnauffahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnauffahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Autobahnausfahrt", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Autobahnausfahrt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Rabattschlüssel_der_französischen_Autobahngesellschaften", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer_Belastungsanzeige", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer_Belastungsanzeige", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betreuungsstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betreuungsstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Filler_Feld_72", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Filler_Feld_72", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Akzeptanz_Medium", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Akzeptanz_Medium", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerkategorie", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerkategorie", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Beleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Beleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UTA_Normalbeleg_ID", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UTA_Normalbeleg_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_von", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_von", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebühren_Bescheinigung_bis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebühren_Bescheinigung_bis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Herausgeber_Nutzer_Nummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Herausgeber_Nutzer_Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Maßeinheit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Maßeinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Land_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Land_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postleitzahl_der_Akzeptanzstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postleitzahl_der_Akzeptanzstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliches_Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliches_Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerliche_Produktgruppe", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Steuerliche_Produktgruppe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsort_verlagerbar", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leistungsort_verlagerbar", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abgerechnet", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abgerechnet", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@abgerechnetDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "abgerechnetDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@daId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "daId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsposition", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsposition", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ErstellDatumUhrzeit, Übertragungsnummer, Übertragungsposition, Abrechnungs"& _ "nummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kundennumme"& _ "r, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzstellennum"& _ "mer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilo"& _ "meterstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen"& _ ", Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brut"& _ "to_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_"& _ "in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_i"& _ "n_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_I"& _ "SO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesam"& _ "tbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, "& _ "Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_"& _ "Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Fel"& _ "d, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, "& _ "Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferla"& _ "ndwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_N"& _ "achkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nach"& _ "lass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandw"& _ "ährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_i"& _ "nformativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnum"& _ "mer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenst"& _ "elle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimier"& _ "t, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnau"& _ "sfahrt, Rabattschlüssel_der_französischen_Autobahngesellschaften, Nummer_Belastu"& _ "ngsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie,"& _ " UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Beschein"& _ "igung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Post"& _ "leitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produktgruppe"& _ ", Leistungsort_verlagerbar, abgerechnet, abgerechnetDatum, daId, upsize_ts FROM "& _ "dbo.tblUTAImportNew" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUTAImportNewDataTable) 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 VERAGDataSet.tblUTAImportNewDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUTAImportNewDataTable = New VERAGDataSet.tblUTAImportNewDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUTAImportNewDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUTAImportNew") 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_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_Übertragungsposition As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Übertragungsnummer,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Übertragungsposition,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 ErstellDatumUhrzeit As Date, _ ByVal Übertragungsnummer As Integer, _ ByVal Übertragungsposition As Integer, _ ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Global.System.Nullable(Of Date), _ ByVal Rechnungsempfänger_Kundennummer As Global.System.Nullable(Of Integer), _ ByVal Abrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Akzeptanzstellennummer As Global.System.Nullable(Of Double), _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Global.System.Nullable(Of Double), _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Global.System.Nullable(Of Double), _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Global.System.Nullable(Of Double), _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Umsatzsteuerprozentsatz_informativ As Global.System.Nullable(Of Double), _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel_in_Tagen As Global.System.Nullable(Of Short), _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Global.System.Nullable(Of Double), _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Nullable(Of Short), _ ByVal Nummer_Belastungsanzeige As Global.System.Nullable(Of Double), _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Global.System.Nullable(Of Double), _ ByVal UTA_Normalbeleg_ID As Global.System.Nullable(Of Double), _ ByVal Gebühren_Bescheinigung_von As Global.System.Nullable(Of Date), _ ByVal Gebühren_Bescheinigung_bis As Global.System.Nullable(Of Date), _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal abgerechnet As Boolean, _ ByVal abgerechnetDatum As Global.System.Nullable(Of Date), _ ByVal daId As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(Übertragungsposition,Integer) If (Abrechnungsnummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Abrechnungsnummer.Value,Double) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Datum_für_Lieferungen_und_Leistungen_bis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Datum_für_Lieferungen_und_Leistungen_bis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Rechnungsempfänger_Kundennummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Rechnungsempfänger_Kundennummer.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Abrechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Abrechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(Kundennummer,Integer) If (Kartennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Kartennummer,String) End If If (Belegdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Belegdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Akzeptanzstellennummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Akzeptanzstellennummer.Value,Double) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Standort_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Standort_der_Akzeptanzstelle,String) End If If (Lieferland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Lieferland,String) End If If (Belegnummer_des_Lieferanten Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Belegnummer_des_Lieferanten,String) End If If (Kilometerstand.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(Kilometerstand.Value,Double) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Fakturierwarenart") Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Fakturierwarenart,String) End If If (Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen,String) End If If (Menge.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(Menge.Value,Double) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (SB_BT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(SB_BT,String) End If If (Umsatzsteuerprozentsatz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(Umsatzsteuerprozentsatz.Value,Double) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Lieferlandwährung_ISO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(Lieferlandwährung_ISO,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(Betrag_Service_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(24).Value = CType(Betrag_Nachlass_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(25).Value = CType(Gesamtbetrag_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(Gesamtbetrag_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Darstellwährung_ISO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(Darstellwährung_ISO,String) End If If (Betrag_Service_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(28).Value = CType(Betrag_Service_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(29).Value = CType(Betrag_Nachlass_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(30).Value = CType(Gesamtbetrag_Netto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(31).Value = CType(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Darstellwährung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(32).Value = CType(Gesamtbetrag_Brutto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Prägetext_i_d_R_KFZ_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(Prägetext_i_d_R_KFZ_Kennzeichen,String) End If If (Kunden_Kostenstelle_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(Kunden_Kostenstelle_1,String) End If If (Kartentyp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(Kartentyp,String) End If If (Filler_Feld_35 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(Filler_Feld_35,String) End If If (Filler_Feld_36 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(Filler_Feld_36,String) End If If (KZ_Autobahn Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(KZ_Autobahn,String) End If If (INFO_Feld Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(INFO_Feld,String) End If If (KFZ_Kennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(KFZ_Kennzeichen,String) End If If (Filler_Feld_40 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(41).Value = CType(Filler_Feld_40,String) End If If (Buchungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(Buchungsart,String) End If If (Buchungsgrund Is Nothing) Then Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(43).Value = CType(Buchungsgrund,String) End If If (Filler_Feld_43 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(44).Value = CType(Filler_Feld_43,String) End If If (Informationsbeleg Is Nothing) Then Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(45).Value = CType(Informationsbeleg,String) End If If (Belegherkunft Is Nothing) Then Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(46).Value = CType(Belegherkunft,String) End If If (Filler_Feld_46 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(47).Value = CType(Filler_Feld_46,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(49).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(50).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Umsatzsteuerprozentsatz_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(Umsatzsteuerprozentsatz_informativ.Value,Double) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(52).Value = CType(Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(53).Value = CType(Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Fälligkeitsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(55).Value = CType(Fälligkeitsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Zahlungsziel_in_Tagen.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(56).Value = CType(Zahlungsziel_in_Tagen.Value,Short) Else Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Zahlungsart Is Nothing) Then Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(57).Value = CType(Zahlungsart,String) End If If (TC_Rechnungsnummer_gegenüber_dem_Nutzer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(58).Value = CType(TC_Rechnungsnummer_gegenüber_dem_Nutzer,String) End If If (TC_Rechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(59).Value = CType(TC_Rechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Zahlungszielgruppe Is Nothing) Then Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(60).Value = CType(Zahlungszielgruppe,String) End If If (Kunden_Kostenstelle_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(61).Value = CType(Kunden_Kostenstelle_2,String) End If If (Lieferzeit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(62).Value = CType(Lieferzeit,String) End If If (Fremdkartennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(63).Value = CType(Fremdkartennummer,String) End If If (OnBoardUnitID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(64).Value = CType(OnBoardUnitID,String) End If If (KFZ_Kennzeichen_komprimiert Is Nothing) Then Me.Adapter.InsertCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(65).Value = CType(KFZ_Kennzeichen_komprimiert,String) End If If (Kartenkategorie Is Nothing) Then Me.Adapter.InsertCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(66).Value = CType(Kartenkategorie,String) End If If (Rechnungsnummer_pro_Lieferland.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(67).Value = CType(Rechnungsnummer_pro_Lieferland.Value,Double) Else Me.Adapter.InsertCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Autobahnauffahrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(68).Value = CType(Autobahnauffahrt,String) End If If (Autobahnausfahrt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(69).Value = CType(Autobahnausfahrt,String) End If If (Rabattschlüssel_der_französischen_Autobahngesellschaften.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(70).Value = CType(Rabattschlüssel_der_französischen_Autobahngesellschaften.Value,Short) Else Me.Adapter.InsertCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Nummer_Belastungsanzeige.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(71).Value = CType(Nummer_Belastungsanzeige.Value,Double) Else Me.Adapter.InsertCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Betreuungsstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(72).Value = CType(Betreuungsstelle,String) End If If (Filler_Feld_72 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(73).Value = CType(Filler_Feld_72,String) End If If (Akzeptanz_Medium Is Nothing) Then Me.Adapter.InsertCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(74).Value = CType(Akzeptanz_Medium,String) End If If (Steuerkategorie Is Nothing) Then Me.Adapter.InsertCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(75).Value = CType(Steuerkategorie,String) End If If (UTA_Beleg_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(76).Value = CType(UTA_Beleg_ID.Value,Double) Else Me.Adapter.InsertCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (UTA_Normalbeleg_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(77).Value = CType(UTA_Normalbeleg_ID.Value,Double) Else Me.Adapter.InsertCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_von.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(78).Value = CType(Gebühren_Bescheinigung_von.Value,Date) Else Me.Adapter.InsertCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_bis.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(79).Value = CType(Gebühren_Bescheinigung_bis.Value,Date) Else Me.Adapter.InsertCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (Herausgeber_Nutzer_Nummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(80).Value = CType(Herausgeber_Nutzer_Nummer,String) End If If (Maßeinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(81).Value = CType(Maßeinheit,String) End If If (Land_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(82).Value = CType(Land_der_Akzeptanzstelle,String) End If If (Postleitzahl_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(83).Value = CType(Postleitzahl_der_Akzeptanzstelle,String) End If If (Steuerliches_Lieferland Is Nothing) Then Me.Adapter.InsertCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(84).Value = CType(Steuerliches_Lieferland,String) End If If (Steuerliche_Produktgruppe Is Nothing) Then Me.Adapter.InsertCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(85).Value = CType(Steuerliche_Produktgruppe,String) End If If (Leistungsort_verlagerbar Is Nothing) Then Me.Adapter.InsertCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(86).Value = CType(Leistungsort_verlagerbar,String) End If Me.Adapter.InsertCommand.Parameters(87).Value = CType(abgerechnet,Boolean) If (abgerechnetDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(88).Value = CType(abgerechnetDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (daId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(89).Value = CType(daId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(89).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 ErstellDatumUhrzeit As Date, _ ByVal Übertragungsnummer As Integer, _ ByVal Übertragungsposition As Integer, _ ByVal Abrechnungsnummer As Global.System.Nullable(Of Double), _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Global.System.Nullable(Of Date), _ ByVal Rechnungsempfänger_Kundennummer As Global.System.Nullable(Of Integer), _ ByVal Abrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Akzeptanzstellennummer As Global.System.Nullable(Of Double), _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Global.System.Nullable(Of Double), _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Global.System.Nullable(Of Double), _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Global.System.Nullable(Of Double), _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Umsatzsteuerprozentsatz_informativ As Global.System.Nullable(Of Double), _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel_in_Tagen As Global.System.Nullable(Of Short), _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Global.System.Nullable(Of Double), _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Nullable(Of Short), _ ByVal Nummer_Belastungsanzeige As Global.System.Nullable(Of Double), _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Global.System.Nullable(Of Double), _ ByVal UTA_Normalbeleg_ID As Global.System.Nullable(Of Double), _ ByVal Gebühren_Bescheinigung_von As Global.System.Nullable(Of Date), _ ByVal Gebühren_Bescheinigung_bis As Global.System.Nullable(Of Date), _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal abgerechnet As Boolean, _ ByVal abgerechnetDatum As Global.System.Nullable(Of Date), _ ByVal daId As Global.System.Nullable(Of Integer), _ ByVal Original_ErstellDatumUhrzeit As Date, _ ByVal Original_Übertragungsnummer As Integer, _ ByVal Original_Übertragungsposition As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Übertragungsposition,Integer) If (Abrechnungsnummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Abrechnungsnummer.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Datum_für_Lieferungen_und_Leistungen_bis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Datum_für_Lieferungen_und_Leistungen_bis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Rechnungsempfänger_Kundennummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Rechnungsempfänger_Kundennummer.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Abrechnungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Abrechnungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Kundennummer,Integer) If (Kartennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Kartennummer,String) End If If (Belegdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Belegdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Akzeptanzstellennummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Akzeptanzstellennummer.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Standort_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Standort_der_Akzeptanzstelle,String) End If If (Lieferland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Lieferland,String) End If If (Belegnummer_des_Lieferanten Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Belegnummer_des_Lieferanten,String) End If If (Kilometerstand.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Kilometerstand.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Fakturierwarenart") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Fakturierwarenart,String) End If If (Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen,String) End If If (Menge.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Menge.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (SB_BT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SB_BT,String) End If If (Umsatzsteuerprozentsatz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Umsatzsteuerprozentsatz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Lieferlandwährung_ISO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Lieferlandwährung_ISO,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Betrag_Service_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Betrag_Nachlass_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Gesamtbetrag_Netto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Lieferlandwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Gesamtbetrag_Brutto_in_Lieferlandwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Darstellwährung_ISO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Darstellwährung_ISO,String) End If If (Betrag_Service_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Betrag_Service_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Betrag_Nachlass_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Netto_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Gesamtbetrag_Netto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_Brutto_in_Darstellwährung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Gesamtbetrag_Brutto_in_Darstellwährung.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Prägetext_i_d_R_KFZ_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Prägetext_i_d_R_KFZ_Kennzeichen,String) End If If (Kunden_Kostenstelle_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Kunden_Kostenstelle_1,String) End If If (Kartentyp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Kartentyp,String) End If If (Filler_Feld_35 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Filler_Feld_35,String) End If If (Filler_Feld_36 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Filler_Feld_36,String) End If If (KZ_Autobahn Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(KZ_Autobahn,String) End If If (INFO_Feld Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(INFO_Feld,String) End If If (KFZ_Kennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(KFZ_Kennzeichen,String) End If If (Filler_Feld_40 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Filler_Feld_40,String) End If If (Buchungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Buchungsart,String) End If If (Buchungsgrund Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Buchungsgrund,String) End If If (Filler_Feld_43 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Filler_Feld_43,String) End If If (Informationsbeleg Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Informationsbeleg,String) End If If (Belegherkunft Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Belegherkunft,String) End If If (Filler_Feld_46 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Filler_Feld_46,String) End If If (Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Umsatzsteuerprozentsatz_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Umsatzsteuerprozentsatz_informativ.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Fälligkeitsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Fälligkeitsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Zahlungsziel_in_Tagen.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Zahlungsziel_in_Tagen.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Zahlungsart Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Zahlungsart,String) End If If (TC_Rechnungsnummer_gegenüber_dem_Nutzer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(TC_Rechnungsnummer_gegenüber_dem_Nutzer,String) End If If (TC_Rechnungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(TC_Rechnungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value End If If (Zahlungszielgruppe Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Zahlungszielgruppe,String) End If If (Kunden_Kostenstelle_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Kunden_Kostenstelle_2,String) End If If (Lieferzeit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Lieferzeit,String) End If If (Fremdkartennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Fremdkartennummer,String) End If If (OnBoardUnitID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(OnBoardUnitID,String) End If If (KFZ_Kennzeichen_komprimiert Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(KFZ_Kennzeichen_komprimiert,String) End If If (Kartenkategorie Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Kartenkategorie,String) End If If (Rechnungsnummer_pro_Lieferland.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Rechnungsnummer_pro_Lieferland.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Autobahnauffahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Autobahnauffahrt,String) End If If (Autobahnausfahrt Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Autobahnausfahrt,String) End If If (Rabattschlüssel_der_französischen_Autobahngesellschaften.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Rabattschlüssel_der_französischen_Autobahngesellschaften.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Nummer_Belastungsanzeige.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Nummer_Belastungsanzeige.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Betreuungsstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Betreuungsstelle,String) End If If (Filler_Feld_72 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Filler_Feld_72,String) End If If (Akzeptanz_Medium Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Akzeptanz_Medium,String) End If If (Steuerkategorie Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Steuerkategorie,String) End If If (UTA_Beleg_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(UTA_Beleg_ID.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (UTA_Normalbeleg_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(UTA_Normalbeleg_ID.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_von.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Gebühren_Bescheinigung_von.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (Gebühren_Bescheinigung_bis.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Gebühren_Bescheinigung_bis.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value End If If (Herausgeber_Nutzer_Nummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Herausgeber_Nutzer_Nummer,String) End If If (Maßeinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Maßeinheit,String) End If If (Land_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Land_der_Akzeptanzstelle,String) End If If (Postleitzahl_der_Akzeptanzstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Postleitzahl_der_Akzeptanzstelle,String) End If If (Steuerliches_Lieferland Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Steuerliches_Lieferland,String) End If If (Steuerliche_Produktgruppe Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Steuerliche_Produktgruppe,String) End If If (Leistungsort_verlagerbar Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Leistungsort_verlagerbar,String) End If Me.Adapter.UpdateCommand.Parameters(87).Value = CType(abgerechnet,Boolean) If (abgerechnetDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(abgerechnetDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (daId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(89).Value = CType(daId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_Übertragungsnummer,Integer) Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_Übertragungsposition,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_upsize_ts,Byte()) End If 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 Abrechnungsnummer As Global.System.Nullable(Of Double), _ ByVal Datum_für_Lieferungen_und_Leistungen_bis As Global.System.Nullable(Of Date), _ ByVal Rechnungsempfänger_Kundennummer As Global.System.Nullable(Of Integer), _ ByVal Abrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Kundennummer As Integer, _ ByVal Kartennummer As String, _ ByVal Belegdatum As Global.System.Nullable(Of Date), _ ByVal Akzeptanzstellennummer As Global.System.Nullable(Of Double), _ ByVal Standort_der_Akzeptanzstelle As String, _ ByVal Lieferland As String, _ ByVal Belegnummer_des_Lieferanten As String, _ ByVal Kilometerstand As Global.System.Nullable(Of Double), _ ByVal Fakturierwarenart As String, _ ByVal Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String, _ ByVal Menge As Global.System.Nullable(Of Double), _ ByVal SB_BT As String, _ ByVal Umsatzsteuerprozentsatz As Global.System.Nullable(Of Double), _ ByVal Lieferlandwährung_ISO As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Lieferlandwährung As Global.System.Nullable(Of Decimal), _ ByVal Darstellwährung_ISO As String, _ ByVal Betrag_Service_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Nachlass_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Netto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_Brutto_in_Darstellwährung As Global.System.Nullable(Of Decimal), _ ByVal Prägetext_i_d_R_KFZ_Kennzeichen As String, _ ByVal Kunden_Kostenstelle_1 As String, _ ByVal Kartentyp As String, _ ByVal Filler_Feld_35 As String, _ ByVal Filler_Feld_36 As String, _ ByVal KZ_Autobahn As String, _ ByVal INFO_Feld As String, _ ByVal KFZ_Kennzeichen As String, _ ByVal Filler_Feld_40 As String, _ ByVal Buchungsart As String, _ ByVal Buchungsgrund As String, _ ByVal Filler_Feld_43 As String, _ ByVal Informationsbeleg As String, _ ByVal Belegherkunft As String, _ ByVal Filler_Feld_46 As String, _ ByVal Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Global.System.Nullable(Of Decimal), _ ByVal Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Umsatzsteuerprozentsatz_informativ As Global.System.Nullable(Of Double), _ ByVal Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Global.System.Nullable(Of Decimal), _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungsziel_in_Tagen As Global.System.Nullable(Of Short), _ ByVal Zahlungsart As String, _ ByVal TC_Rechnungsnummer_gegenüber_dem_Nutzer As String, _ ByVal TC_Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zahlungszielgruppe As String, _ ByVal Kunden_Kostenstelle_2 As String, _ ByVal Lieferzeit As String, _ ByVal Fremdkartennummer As String, _ ByVal OnBoardUnitID As String, _ ByVal KFZ_Kennzeichen_komprimiert As String, _ ByVal Kartenkategorie As String, _ ByVal Rechnungsnummer_pro_Lieferland As Global.System.Nullable(Of Double), _ ByVal Autobahnauffahrt As String, _ ByVal Autobahnausfahrt As String, _ ByVal Rabattschlüssel_der_französischen_Autobahngesellschaften As Global.System.Nullable(Of Short), _ ByVal Nummer_Belastungsanzeige As Global.System.Nullable(Of Double), _ ByVal Betreuungsstelle As String, _ ByVal Filler_Feld_72 As String, _ ByVal Akzeptanz_Medium As String, _ ByVal Steuerkategorie As String, _ ByVal UTA_Beleg_ID As Global.System.Nullable(Of Double), _ ByVal UTA_Normalbeleg_ID As Global.System.Nullable(Of Double), _ ByVal Gebühren_Bescheinigung_von As Global.System.Nullable(Of Date), _ ByVal Gebühren_Bescheinigung_bis As Global.System.Nullable(Of Date), _ ByVal Herausgeber_Nutzer_Nummer As String, _ ByVal Maßeinheit As String, _ ByVal Land_der_Akzeptanzstelle As String, _ ByVal Postleitzahl_der_Akzeptanzstelle As String, _ ByVal Steuerliches_Lieferland As String, _ ByVal Steuerliche_Produktgruppe As String, _ ByVal Leistungsort_verlagerbar As String, _ ByVal abgerechnet As Boolean, _ ByVal abgerechnetDatum As Global.System.Nullable(Of Date), _ ByVal daId As Global.System.Nullable(Of Integer), _ ByVal Original_ErstellDatumUhrzeit As Date, _ ByVal Original_Übertragungsnummer As Integer, _ ByVal Original_Übertragungsposition As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Original_Übertragungsposition, Abrechnungsnummer, Datum_für_Lieferungen_und_Leistungen_bis, Rechnungsempfänger_Kundennummer, Abrechnungsdatum, Kundennummer, Kartennummer, Belegdatum, Akzeptanzstellennummer, Standort_der_Akzeptanzstelle, Lieferland, Belegnummer_des_Lieferanten, Kilometerstand, Fakturierwarenart, Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen, Menge, SB_BT, Umsatzsteuerprozentsatz, Lieferlandwährung_ISO, Einzelpreis_Brutto_in_Lieferlandwährung, Einzelpreis_Netto_in_Lieferlandwährung, Betrag_Service_in_Lieferlandwährung, Betrag_Nachlass_in_Lieferlandwährung, Gesamtbetrag_Netto_in_Lieferlandwährung, Gesamtbetrag_Brutto_in_Lieferlandwährung, Darstellwährung_ISO, Betrag_Service_in_Darstellwährung, Betrag_Nachlass_in_Darstellwährung, Gesamtbetrag_Netto_in_Darstellwährung, Gesamtbetrag_Umsatzsteuer_in_Darstellwährung, Gesamtbetrag_Brutto_in_Darstellwährung, Prägetext_i_d_R_KFZ_Kennzeichen, Kunden_Kostenstelle_1, Kartentyp, Filler_Feld_35, Filler_Feld_36, KZ_Autobahn, INFO_Feld, KFZ_Kennzeichen, Filler_Feld_40, Buchungsart, Buchungsgrund, Filler_Feld_43, Informationsbeleg, Belegherkunft, Filler_Feld_46, Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen, Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen, Rechnungsdatum, Umsatzsteuerprozentsatz_informativ, Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ, Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ, Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ, Fälligkeitsdatum, Zahlungsziel_in_Tagen, Zahlungsart, TC_Rechnungsnummer_gegenüber_dem_Nutzer, TC_Rechnungsdatum, Zahlungszielgruppe, Kunden_Kostenstelle_2, Lieferzeit, Fremdkartennummer, OnBoardUnitID, KFZ_Kennzeichen_komprimiert, Kartenkategorie, Rechnungsnummer_pro_Lieferland, Autobahnauffahrt, Autobahnausfahrt, Rabattschlüssel_der_französischen_Autobahngesellschaften, Nummer_Belastungsanzeige, Betreuungsstelle, Filler_Feld_72, Akzeptanz_Medium, Steuerkategorie, UTA_Beleg_ID, UTA_Normalbeleg_ID, Gebühren_Bescheinigung_von, Gebühren_Bescheinigung_bis, Herausgeber_Nutzer_Nummer, Maßeinheit, Land_der_Akzeptanzstelle, Postleitzahl_der_Akzeptanzstelle, Steuerliches_Lieferland, Steuerliche_Produktgruppe, Leistungsort_verlagerbar, abgerechnet, abgerechnetDatum, daId, Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Original_Übertragungsposition, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUTALeistungenTableAdapter 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 = "tblUTALeistungen" tableMapping.ColumnMappings.Add("Fakturierwarenart", "Fakturierwarenart") tableMapping.ColumnMappings.Add("Lieferland", "Lieferland") tableMapping.ColumnMappings.Add("VERAG_OffertenNr", "VERAG_OffertenNr") tableMapping.ColumnMappings.Add("VERAG_LeistungsNr", "VERAG_LeistungsNr") tableMapping.ColumnMappings.Add("Zeitstempel", "Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUTALeistungen] WHERE (([Fakturierwarenart] = @Original_Fakt"& _ "urierwarenart) AND ([Lieferland] = @Original_Lieferland) AND ((@IsNull_upsize_ts"& _ " = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUTALeistungen] ([Fakturierwarenart], [Lieferland], [VERAG_O"& _ "ffertenNr], [VERAG_LeistungsNr], [Zeitstempel]) VALUES (@Fakturierwarenart, @Lie"& _ "ferland, @VERAG_OffertenNr, @VERAG_LeistungsNr, @Zeitstempel);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Fakturier"& _ "warenart, Lieferland, VERAG_OffertenNr, VERAG_LeistungsNr, Zeitstempel, upsize_t"& _ "s FROM tblUTALeistungen WHERE (Fakturierwarenart = @Fakturierwarenart) AND (Lief"& _ "erland = @Lieferland)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERAG_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERAG_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", 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].[tblUTALeistungen] SET [Fakturierwarenart] = @Fakturierwarenart, [Li"& _ "eferland] = @Lieferland, [VERAG_OffertenNr] = @VERAG_OffertenNr, [VERAG_Leistung"& _ "sNr] = @VERAG_LeistungsNr, [Zeitstempel] = @Zeitstempel WHERE (([Fakturierwarena"& _ "rt] = @Original_Fakturierwarenart) AND ([Lieferland] = @Original_Lieferland) AND"& _ " ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_up"& _ "size_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Fakturierwarenart, Lieferland, VERAG_OffertenNr, VERAG_Leist"& _ "ungsNr, Zeitstempel, upsize_ts FROM tblUTALeistungen WHERE (Fakturierwarenart = "& _ "@Fakturierwarenart) AND (Lieferland = @Lieferland)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERAG_OffertenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_OffertenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERAG_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERAG_LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeitstempel", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeitstempel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fakturierwarenart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fakturierwarenart", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Lieferland", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Lieferland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Fakturierwarenart, Lieferland, VERAG_OffertenNr, VERAG_LeistungsNr, Zeitst"& _ "empel, upsize_ts FROM dbo.tblUTALeistungen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUTALeistungenDataTable) 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 VERAGDataSet.tblUTALeistungenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUTALeistungenDataTable = New VERAGDataSet.tblUTALeistungenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUTALeistungenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUTALeistungen") 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_Fakturierwarenart As String, ByVal Original_Lieferland As String, ByVal Original_upsize_ts() As Byte) As Integer If (Original_Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Fakturierwarenart") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Fakturierwarenart,String) End If If (Original_Lieferland Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Lieferland") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Lieferland,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Fakturierwarenart As String, ByVal Lieferland As String, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short, ByVal Zeitstempel As Global.System.Nullable(Of Date)) As Integer If (Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Fakturierwarenart") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Fakturierwarenart,String) End If If (Lieferland Is Nothing) Then Throw New Global.System.ArgumentNullException("Lieferland") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Lieferland,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(VERAG_OffertenNr,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(VERAG_LeistungsNr,Short) If (Zeitstempel.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).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 Fakturierwarenart As String, ByVal Lieferland As String, ByVal VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Original_Fakturierwarenart As String, ByVal Original_Lieferland As String, ByVal Original_upsize_ts() As Byte) As Integer If (Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Fakturierwarenart") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Fakturierwarenart,String) End If If (Lieferland Is Nothing) Then Throw New Global.System.ArgumentNullException("Lieferland") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Lieferland,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VERAG_OffertenNr,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(VERAG_LeistungsNr,Short) If (Zeitstempel.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Zeitstempel.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_Fakturierwarenart Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Fakturierwarenart") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Fakturierwarenart,String) End If If (Original_Lieferland Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Lieferland") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Lieferland,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 VERAG_OffertenNr As Integer, ByVal VERAG_LeistungsNr As Short, ByVal Zeitstempel As Global.System.Nullable(Of Date), ByVal Original_Fakturierwarenart As String, ByVal Original_Lieferland As String, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_Fakturierwarenart, Original_Lieferland, VERAG_OffertenNr, VERAG_LeistungsNr, Zeitstempel, Original_Fakturierwarenart, Original_Lieferland, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUTATrailerTableAdapter 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 = "tblUTATrailer" tableMapping.ColumnMappings.Add("ErstellDatumUhrzeit", "ErstellDatumUhrzeit") tableMapping.ColumnMappings.Add("Übertragungsnummer", "Übertragungsnummer") tableMapping.ColumnMappings.Add("Anzahl_Sätze", "Anzahl_Sätze") tableMapping.ColumnMappings.Add("Checksumme", "Checksumme") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUTATrailer] WHERE (([ErstellDatumUhrzeit] = @Original_Erste"& _ "llDatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND (("& _ "@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsiz"& _ "e_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUTATrailer] ([ErstellDatumUhrzeit], [Übertragungsnummer], ["& _ "Anzahl_Sätze], [Checksumme]) VALUES (@ErstellDatumUhrzeit, @Übertragungsnummer, "& _ "@Anzahl_Sätze, @Checksumme);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzeit, Übertragungsnummer, An"& _ "zahl_Sätze, Checksumme, upsize_ts FROM tblUTATrailer WHERE (ErstellDatumUhrzeit "& _ "= @ErstellDatumUhrzeit) AND (Übertragungsnummer = @Übertragungsnummer)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl_Sätze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl_Sätze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Checksumme", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Checksumme", 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].[tblUTATrailer] SET [ErstellDatumUhrzeit] = @ErstellDatumUhrzeit, [Ü"& _ "bertragungsnummer] = @Übertragungsnummer, [Anzahl_Sätze] = @Anzahl_Sätze, [Check"& _ "summe] = @Checksumme WHERE (([ErstellDatumUhrzeit] = @Original_ErstellDatumUhrze"& _ "it) AND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND ((@IsNull_upsi"& _ "ze_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ "LECT ErstellDatumUhrzeit, Übertragungsnummer, Anzahl_Sätze, Checksumme, upsize_t"& _ "s FROM tblUTATrailer WHERE (ErstellDatumUhrzeit = @ErstellDatumUhrzeit) AND (Übe"& _ "rtragungsnummer = @Übertragungsnummer)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl_Sätze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl_Sätze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Checksumme", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Checksumme", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ErstellDatumUhrzeit, Übertragungsnummer, Anzahl_Sätze, Checksumme, upsize_"& _ "ts FROM dbo.tblUTATrailer" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUTATrailerDataTable) 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 VERAGDataSet.tblUTATrailerDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUTATrailerDataTable = New VERAGDataSet.tblUTATrailerDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUTATrailerDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUTATrailer") 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_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Übertragungsnummer,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Anzahl_Sätze As Global.System.Nullable(Of Integer), ByVal Checksumme As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) If (Anzahl_Sätze.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Anzahl_Sätze.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Checksumme.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Checksumme.Value,Decimal) 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 ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Anzahl_Sätze As Global.System.Nullable(Of Integer), ByVal Checksumme As Global.System.Nullable(Of Decimal), ByVal Original_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) If (Anzahl_Sätze.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Anzahl_Sätze.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Checksumme.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Checksumme.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Übertragungsnummer,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_upsize_ts,Byte()) End If 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 Anzahl_Sätze As Global.System.Nullable(Of Integer), ByVal Checksumme As Global.System.Nullable(Of Decimal), ByVal Original_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Anzahl_Sätze, Checksumme, Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblUTATrailerNewTableAdapter 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 = "tblUTATrailerNew" tableMapping.ColumnMappings.Add("ErstellDatumUhrzeit", "ErstellDatumUhrzeit") tableMapping.ColumnMappings.Add("Übertragungsnummer", "Übertragungsnummer") tableMapping.ColumnMappings.Add("Anzahl_Sätze", "Anzahl_Sätze") tableMapping.ColumnMappings.Add("Checksumme", "Checksumme") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblUTATrailerNew] WHERE (([ErstellDatumUhrzeit] = @Original_Er"& _ "stellDatumUhrzeit) AND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND"& _ " ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_up"& _ "size_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblUTATrailerNew] ([ErstellDatumUhrzeit], [Übertragungsnummer]"& _ ", [Anzahl_Sätze], [Checksumme]) VALUES (@ErstellDatumUhrzeit, @Übertragungsnumme"& _ "r, @Anzahl_Sätze, @Checksumme);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzeit, Übertragungsnummer,"& _ " Anzahl_Sätze, Checksumme, upsize_ts FROM tblUTATrailerNew WHERE (ErstellDatumUh"& _ "rzeit = @ErstellDatumUhrzeit) AND (Übertragungsnummer = @Übertragungsnummer)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl_Sätze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl_Sätze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Checksumme", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Checksumme", 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].[tblUTATrailerNew] SET [ErstellDatumUhrzeit] = @ErstellDatumUhrzeit,"& _ " [Übertragungsnummer] = @Übertragungsnummer, [Anzahl_Sätze] = @Anzahl_Sätze, [Ch"& _ "ecksumme] = @Checksumme WHERE (([ErstellDatumUhrzeit] = @Original_ErstellDatumUh"& _ "rzeit) AND ([Übertragungsnummer] = @Original_Übertragungsnummer) AND ((@IsNull_u"& _ "psize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ErstellDatumUhrzeit, Übertragungsnummer, Anzahl_Sätze, Checksumme, upsiz"& _ "e_ts FROM tblUTATrailerNew WHERE (ErstellDatumUhrzeit = @ErstellDatumUhrzeit) AN"& _ "D (Übertragungsnummer = @Übertragungsnummer)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl_Sätze", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Anzahl_Sätze", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Checksumme", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Checksumme", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ErstellDatumUhrzeit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErstellDatumUhrzeit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Übertragungsnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übertragungsnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 ErstellDatumUhrzeit, Übertragungsnummer, Anzahl_Sätze, Checksumme, upsize_"& _ "ts FROM dbo.tblUTATrailerNew" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblUTATrailerNewDataTable) 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 VERAGDataSet.tblUTATrailerNewDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblUTATrailerNewDataTable = New VERAGDataSet.tblUTATrailerNewDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblUTATrailerNewDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblUTATrailerNew") 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_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Übertragungsnummer,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Anzahl_Sätze As Global.System.Nullable(Of Integer), ByVal Checksumme As Global.System.Nullable(Of Decimal)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) If (Anzahl_Sätze.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Anzahl_Sätze.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Checksumme.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Checksumme.Value,Decimal) 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 ErstellDatumUhrzeit As Date, ByVal Übertragungsnummer As Integer, ByVal Anzahl_Sätze As Global.System.Nullable(Of Integer), ByVal Checksumme As Global.System.Nullable(Of Decimal), ByVal Original_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Übertragungsnummer,Integer) If (Anzahl_Sätze.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Anzahl_Sätze.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Checksumme.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Checksumme.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_ErstellDatumUhrzeit,Date) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Übertragungsnummer,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_upsize_ts,Byte()) End If 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 Anzahl_Sätze As Global.System.Nullable(Of Integer), ByVal Checksumme As Global.System.Nullable(Of Decimal), ByVal Original_ErstellDatumUhrzeit As Date, ByVal Original_Übertragungsnummer As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Anzahl_Sätze, Checksumme, Original_ErstellDatumUhrzeit, Original_Übertragungsnummer, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblVermarktungsnormenTableAdapter 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 = "tblVermarktungsnormen" tableMapping.ColumnMappings.Add("kncode", "kncode") tableMapping.ColumnMappings.Add("speziell", "speziell") 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].[tblVermarktungsnormen] WHERE (([kncode] = @Original_kncode) AN"& _ "D ([speziell] = @Original_speziell))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kncode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kncode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_speziell", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "speziell", 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].[tblVermarktungsnormen] ([kncode], [speziell]) VALUES (@kncode,"& _ " @speziell);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kncode, speziell FROM tblVermarktungsnormen WHERE (kncode ="& _ " @kncode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kncode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kncode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@speziell", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "speziell", 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].[tblVermarktungsnormen] SET [kncode] = @kncode, [speziell] = @spezie"& _ "ll WHERE (([kncode] = @Original_kncode) AND ([speziell] = @Original_speziell));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT kncode, speziell FROM tblVermarktungsnormen WHERE (kncode = @kncode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kncode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kncode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@speziell", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "speziell", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_kncode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "kncode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_speziell", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "speziell", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 kncode, speziell FROM dbo.tblVermarktungsnormen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblVermarktungsnormenDataTable) 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 VERAGDataSet.tblVermarktungsnormenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblVermarktungsnormenDataTable = New VERAGDataSet.tblVermarktungsnormenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblVermarktungsnormenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblVermarktungsnormen") 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_kncode As String, ByVal Original_speziell As Boolean) As Integer If (Original_kncode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kncode") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_kncode,String) End If Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_speziell,Boolean) 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 kncode As String, ByVal speziell As Boolean) As Integer If (kncode Is Nothing) Then Throw New Global.System.ArgumentNullException("kncode") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(kncode,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(speziell,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 kncode As String, ByVal speziell As Boolean, ByVal Original_kncode As String, ByVal Original_speziell As Boolean) As Integer If (kncode Is Nothing) Then Throw New Global.System.ArgumentNullException("kncode") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(kncode,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(speziell,Boolean) If (Original_kncode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_kncode") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_kncode,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_speziell,Boolean) 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 speziell As Boolean, ByVal Original_kncode As String, ByVal Original_speziell As Boolean) As Integer Return Me.Update(Original_kncode, speziell, Original_kncode, Original_speziell) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblVermarktungsnormenGebuehrenTableAdapter 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 = "tblVermarktungsnormenGebuehren" tableMapping.ColumnMappings.Add("gueltigAb", "gueltigAb") tableMapping.ColumnMappings.Add("betrag", "betrag") tableMapping.ColumnMappings.Add("speziell", "speziell") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblVermarktungsnormenGebuehren] ([gueltigAb], [betrag], [spezi"& _ "ell]) VALUES (@gueltigAb, @betrag, @speziell)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gueltigAb", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gueltigAb", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@betrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 5, 2, "betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@speziell", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "speziell", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 gueltigAb, betrag, speziell FROM dbo.tblVermarktungsnormenGebuehren" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblVermarktungsnormenGebuehrenDataTable) 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 VERAGDataSet.tblVermarktungsnormenGebuehrenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblVermarktungsnormenGebuehrenDataTable = New VERAGDataSet.tblVermarktungsnormenGebuehrenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblVermarktungsnormenGebuehrenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblVermarktungsnormenGebuehren") 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 Insert(ByVal gueltigAb As Date, ByVal betrag As Decimal, ByVal speziell As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(gueltigAb,Date) Me.Adapter.InsertCommand.Parameters(1).Value = CType(betrag,Decimal) Me.Adapter.InsertCommand.Parameters(2).Value = CType(speziell,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblVorauskassenTableAdapter 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 = "tblVorauskassen" tableMapping.ColumnMappings.Add("vk_id", "vk_id") tableMapping.ColumnMappings.Add("vk_FilialeNr", "vk_FilialeNr") tableMapping.ColumnMappings.Add("vk_AbfertigungsNr", "vk_AbfertigungsNr") tableMapping.ColumnMappings.Add("vk_Datum", "vk_Datum") tableMapping.ColumnMappings.Add("vk_LKW", "vk_LKW") tableMapping.ColumnMappings.Add("vk_KdNr", "vk_KdNr") tableMapping.ColumnMappings.Add("vk_Firma", "vk_Firma") tableMapping.ColumnMappings.Add("vk_Betrag", "vk_Betrag") tableMapping.ColumnMappings.Add("vk_QS_SachbearbeiterId", "vk_QS_SachbearbeiterId") tableMapping.ColumnMappings.Add("vk_QS_Sachbearbeiter", "vk_QS_Sachbearbeiter") tableMapping.ColumnMappings.Add("vk_QS_Bemerkung", "vk_QS_Bemerkung") tableMapping.ColumnMappings.Add("vk_GeldEingetroffen", "vk_GeldEingetroffen") tableMapping.ColumnMappings.Add("vk_BH_SachbearbeiterId", "vk_BH_SachbearbeiterId") tableMapping.ColumnMappings.Add("vk_BH_Sachbearbeiter", "vk_BH_Sachbearbeiter") tableMapping.ColumnMappings.Add("vk_BH_Bemerkung", "vk_BH_Bemerkung") tableMapping.ColumnMappings.Add("vk_BH_DatumGeldeingang", "vk_BH_DatumGeldeingang") tableMapping.ColumnMappings.Add("vk_storno", "vk_storno") tableMapping.ColumnMappings.Add("vk_stornoDatum", "vk_stornoDatum") tableMapping.ColumnMappings.Add("vk_Rolle", "vk_Rolle") tableMapping.ColumnMappings.Add("vk_Anrede", "vk_Anrede") tableMapping.ColumnMappings.Add("vk_Firmenwortlauf", "vk_Firmenwortlauf") tableMapping.ColumnMappings.Add("vk_Aresse1", "vk_Aresse1") tableMapping.ColumnMappings.Add("vk_Adresse2", "vk_Adresse2") tableMapping.ColumnMappings.Add("vk_UID", "vk_UID") tableMapping.ColumnMappings.Add("vk_EORI", "vk_EORI") tableMapping.ColumnMappings.Add("vk_Tel", "vk_Tel") tableMapping.ColumnMappings.Add("vk_Fax", "vk_Fax") tableMapping.ColumnMappings.Add("vk_Email", "vk_Email") tableMapping.ColumnMappings.Add("vk_RgNr", "vk_RgNr") tableMapping.ColumnMappings.Add("vk_Absender", "vk_Absender") tableMapping.ColumnMappings.Add("vk_ATREUR1", "vk_ATREUR1") tableMapping.ColumnMappings.Add("vk_Fraechter", "vk_Fraechter") tableMapping.ColumnMappings.Add("vk_Anzahl", "vk_Anzahl") tableMapping.ColumnMappings.Add("vk_Warenbezeichnung", "vk_Warenbezeichnung") tableMapping.ColumnMappings.Add("vk_Colli", "vk_Colli") tableMapping.ColumnMappings.Add("vk_FaStNr", "vk_FaStNr") tableMapping.ColumnMappings.Add("vk_Berechnung_Rechnungsbetrag", "vk_Berechnung_Rechnungsbetrag") tableMapping.ColumnMappings.Add("vk_Berechnung_FrachtkostAusland", "vk_Berechnung_FrachtkostAusland") tableMapping.ColumnMappings.Add("vk_Berechnung_ZollProz", "vk_Berechnung_ZollProz") tableMapping.ColumnMappings.Add("vk_Berechnung_FrachtkostInland", "vk_Berechnung_FrachtkostInland") tableMapping.ColumnMappings.Add("vk_Berechnung_AbgabenSonst_Bez", "vk_Berechnung_AbgabenSonst_Bez") tableMapping.ColumnMappings.Add("vk_Berechnung_AbgabenSonst_Betrag", "vk_Berechnung_AbgabenSonst_Betrag") tableMapping.ColumnMappings.Add("vk_Berechnung_EUSTProz", "vk_Berechnung_EUSTProz") tableMapping.ColumnMappings.Add("vk_Berechnung_KostenSonst_Bez", "vk_Berechnung_KostenSonst_Bez") tableMapping.ColumnMappings.Add("vk_Berechnung_KostenSonst_Betrag", "vk_Berechnung_KostenSonst_Betrag") tableMapping.ColumnMappings.Add("vk_Berechnung_Verzollung", "vk_Berechnung_Verzollung") tableMapping.ColumnMappings.Add("vk_Berechnung_jeWeitere", "vk_Berechnung_jeWeitere") tableMapping.ColumnMappings.Add("vk_Berechnung_ATLAS", "vk_Berechnung_ATLAS") tableMapping.ColumnMappings.Add("vk_Berechnung_Clearing", "vk_Berechnung_Clearing") tableMapping.ColumnMappings.Add("vk_Berechnung_korrRg", "vk_Berechnung_korrRg") tableMapping.ColumnMappings.Add("vk_Berechnung_Übersetzung", "vk_Berechnung_Übersetzung") tableMapping.ColumnMappings.Add("vk_Berechnung_Aviso", "vk_Berechnung_Aviso") tableMapping.ColumnMappings.Add("vk_Berechnung_SVS", "vk_Berechnung_SVS") tableMapping.ColumnMappings.Add("vk_Berechnung_SonstigeKosten", "vk_Berechnung_SonstigeKosten") tableMapping.ColumnMappings.Add("vk_Berechnung_SonstigeKostenText", "vk_Berechnung_SonstigeKostenText") tableMapping.ColumnMappings.Add("vk_Berechnung_PP", "vk_Berechnung_PP") tableMapping.ColumnMappings.Add("vk_Freigegeben", "vk_Freigegeben") tableMapping.ColumnMappings.Add("vk_SendungId", "vk_SendungId") tableMapping.ColumnMappings.Add("vk_AvisoId", "vk_AvisoId") tableMapping.ColumnMappings.Add("vk_VermerkId", "vk_VermerkId") 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].[tblVorauskassen] WHERE (([vk_id] = @Original_vk_id) AND ((@IsN"& _ "ull_vk_FilialeNr = 1 AND [vk_FilialeNr] IS NULL) OR ([vk_FilialeNr] = @Original_"& _ "vk_FilialeNr)) AND ((@IsNull_vk_AbfertigungsNr = 1 AND [vk_AbfertigungsNr] IS NU"& _ "LL) OR ([vk_AbfertigungsNr] = @Original_vk_AbfertigungsNr)) AND ([vk_Datum] = @O"& _ "riginal_vk_Datum) AND ([vk_LKW] = @Original_vk_LKW) AND ((@IsNull_vk_KdNr = 1 AN"& _ "D [vk_KdNr] IS NULL) OR ([vk_KdNr] = @Original_vk_KdNr)) AND ([vk_Firma] = @Orig"& _ "inal_vk_Firma) AND ([vk_Betrag] = @Original_vk_Betrag) AND ([vk_QS_Sachbearbeite"& _ "rId] = @Original_vk_QS_SachbearbeiterId) AND ([vk_QS_Sachbearbeiter] = @Original"& _ "_vk_QS_Sachbearbeiter) AND ((@IsNull_vk_QS_Bemerkung = 1 AND [vk_QS_Bemerkung] I"& _ "S NULL) OR ([vk_QS_Bemerkung] = @Original_vk_QS_Bemerkung)) AND ([vk_GeldEingetr"& _ "offen] = @Original_vk_GeldEingetroffen) AND ((@IsNull_vk_BH_SachbearbeiterId = 1"& _ " AND [vk_BH_SachbearbeiterId] IS NULL) OR ([vk_BH_SachbearbeiterId] = @Original_"& _ "vk_BH_SachbearbeiterId)) AND ((@IsNull_vk_BH_Sachbearbeiter = 1 AND [vk_BH_Sachb"& _ "earbeiter] IS NULL) OR ([vk_BH_Sachbearbeiter] = @Original_vk_BH_Sachbearbeiter)"& _ ") AND ((@IsNull_vk_BH_Bemerkung = 1 AND [vk_BH_Bemerkung] IS NULL) OR ([vk_BH_Be"& _ "merkung] = @Original_vk_BH_Bemerkung)) AND ((@IsNull_vk_BH_DatumGeldeingang = 1 "& _ "AND [vk_BH_DatumGeldeingang] IS NULL) OR ([vk_BH_DatumGeldeingang] = @Original_v"& _ "k_BH_DatumGeldeingang)) AND ([vk_storno] = @Original_vk_storno) AND ((@IsNull_vk"& _ "_stornoDatum = 1 AND [vk_stornoDatum] IS NULL) OR ([vk_stornoDatum] = @Original_"& _ "vk_stornoDatum)) AND ((@IsNull_vk_Rolle = 1 AND [vk_Rolle] IS NULL) OR ([vk_Roll"& _ "e] = @Original_vk_Rolle)) AND ((@IsNull_vk_Anrede = 1 AND [vk_Anrede] IS NULL) O"& _ "R ([vk_Anrede] = @Original_vk_Anrede)) AND ((@IsNull_vk_Firmenwortlauf = 1 AND ["& _ "vk_Firmenwortlauf] IS NULL) OR ([vk_Firmenwortlauf] = @Original_vk_Firmenwortlau"& _ "f)) AND ((@IsNull_vk_Aresse1 = 1 AND [vk_Aresse1] IS NULL) OR ([vk_Aresse1] = @O"& _ "riginal_vk_Aresse1)) AND ((@IsNull_vk_Adresse2 = 1 AND [vk_Adresse2] IS NULL) OR"& _ " ([vk_Adresse2] = @Original_vk_Adresse2)) AND ((@IsNull_vk_UID = 1 AND [vk_UID] "& _ "IS NULL) OR ([vk_UID] = @Original_vk_UID)) AND ((@IsNull_vk_EORI = 1 AND [vk_EOR"& _ "I] IS NULL) OR ([vk_EORI] = @Original_vk_EORI)) AND ((@IsNull_vk_Tel = 1 AND [vk"& _ "_Tel] IS NULL) OR ([vk_Tel] = @Original_vk_Tel)) AND ((@IsNull_vk_Fax = 1 AND [v"& _ "k_Fax] IS NULL) OR ([vk_Fax] = @Original_vk_Fax)) AND ((@IsNull_vk_Email = 1 AND"& _ " [vk_Email] IS NULL) OR ([vk_Email] = @Original_vk_Email)) AND ((@IsNull_vk_RgNr"& _ " = 1 AND [vk_RgNr] IS NULL) OR ([vk_RgNr] = @Original_vk_RgNr)) AND ((@IsNull_vk"& _ "_Absender = 1 AND [vk_Absender] IS NULL) OR ([vk_Absender] = @Original_vk_Absend"& _ "er)) AND ((@IsNull_vk_ATREUR1 = 1 AND [vk_ATREUR1] IS NULL) OR ([vk_ATREUR1] = @"& _ "Original_vk_ATREUR1)) AND ((@IsNull_vk_Fraechter = 1 AND [vk_Fraechter] IS NULL)"& _ " OR ([vk_Fraechter] = @Original_vk_Fraechter)) AND ((@IsNull_vk_Anzahl = 1 AND ["& _ "vk_Anzahl] IS NULL) OR ([vk_Anzahl] = @Original_vk_Anzahl)) AND ((@IsNull_vk_War"& _ "enbezeichnung = 1 AND [vk_Warenbezeichnung] IS NULL) OR ([vk_Warenbezeichnung] ="& _ " @Original_vk_Warenbezeichnung)) AND ((@IsNull_vk_Colli = 1 AND [vk_Colli] IS NU"& _ "LL) OR ([vk_Colli] = @Original_vk_Colli)) AND ((@IsNull_vk_FaStNr = 1 AND [vk_Fa"& _ "StNr] IS NULL) OR ([vk_FaStNr] = @Original_vk_FaStNr)) AND ((@IsNull_vk_Berechnu"& _ "ng_Rechnungsbetrag = 1 AND [vk_Berechnung_Rechnungsbetrag] IS NULL) OR ([vk_Bere"& _ "chnung_Rechnungsbetrag] = @Original_vk_Berechnung_Rechnungsbetrag)) AND ((@IsNul"& _ "l_vk_Berechnung_FrachtkostAusland = 1 AND [vk_Berechnung_FrachtkostAusland] IS N"& _ "ULL) OR ([vk_Berechnung_FrachtkostAusland] = @Original_vk_Berechnung_FrachtkostA"& _ "usland)) AND ((@IsNull_vk_Berechnung_ZollProz = 1 AND [vk_Berechnung_ZollProz] I"& _ "S NULL) OR ([vk_Berechnung_ZollProz] = @Original_vk_Berechnung_ZollProz)) AND (("& _ "@IsNull_vk_Berechnung_FrachtkostInland = 1 AND [vk_Berechnung_FrachtkostInland] "& _ "IS NULL) OR ([vk_Berechnung_FrachtkostInland] = @Original_vk_Berechnung_Frachtko"& _ "stInland)) AND ((@IsNull_vk_Berechnung_AbgabenSonst_Bez = 1 AND [vk_Berechnung_A"& _ "bgabenSonst_Bez] IS NULL) OR ([vk_Berechnung_AbgabenSonst_Bez] = @Original_vk_Be"& _ "rechnung_AbgabenSonst_Bez)) AND ((@IsNull_vk_Berechnung_AbgabenSonst_Betrag = 1 "& _ "AND [vk_Berechnung_AbgabenSonst_Betrag] IS NULL) OR ([vk_Berechnung_AbgabenSonst"& _ "_Betrag] = @Original_vk_Berechnung_AbgabenSonst_Betrag)) AND ((@IsNull_vk_Berech"& _ "nung_EUSTProz = 1 AND [vk_Berechnung_EUSTProz] IS NULL) OR ([vk_Berechnung_EUSTP"& _ "roz] = @Original_vk_Berechnung_EUSTProz)) AND ((@IsNull_vk_Berechnung_KostenSons"& _ "t_Bez = 1 AND [vk_Berechnung_KostenSonst_Bez] IS NULL) OR ([vk_Berechnung_Kosten"& _ "Sonst_Bez] = @Original_vk_Berechnung_KostenSonst_Bez)) AND ((@IsNull_vk_Berechnu"& _ "ng_KostenSonst_Betrag = 1 AND [vk_Berechnung_KostenSonst_Betrag] IS NULL) OR ([v"& _ "k_Berechnung_KostenSonst_Betrag] = @Original_vk_Berechnung_KostenSonst_Betrag)) "& _ "AND ((@IsNull_vk_Berechnung_Verzollung = 1 AND [vk_Berechnung_Verzollung] IS NUL"& _ "L) OR ([vk_Berechnung_Verzollung] = @Original_vk_Berechnung_Verzollung)) AND ((@"& _ "IsNull_vk_Berechnung_jeWeitere = 1 AND [vk_Berechnung_jeWeitere] IS NULL) OR ([v"& _ "k_Berechnung_jeWeitere] = @Original_vk_Berechnung_jeWeitere)) AND ((@IsNull_vk_B"& _ "erechnung_ATLAS = 1 AND [vk_Berechnung_ATLAS] IS NULL) OR ([vk_Berechnung_ATLAS]"& _ " = @Original_vk_Berechnung_ATLAS)) AND ((@IsNull_vk_Berechnung_Clearing = 1 AND "& _ "[vk_Berechnung_Clearing] IS NULL) OR ([vk_Berechnung_Clearing] = @Original_vk_Be"& _ "rechnung_Clearing)) AND ((@IsNull_vk_Berechnung_korrRg = 1 AND [vk_Berechnung_ko"& _ "rrRg] IS NULL) OR ([vk_Berechnung_korrRg] = @Original_vk_Berechnung_korrRg)) AND"& _ " ((@IsNull_vk_Berechnung_Übersetzung = 1 AND [vk_Berechnung_Übersetzung] IS NULL"& _ ") OR ([vk_Berechnung_Übersetzung] = @Original_vk_Berechnung_Übersetzung)) AND (("& _ "@IsNull_vk_Berechnung_Aviso = 1 AND [vk_Berechnung_Aviso] IS NULL) OR ([vk_Berec"& _ "hnung_Aviso] = @Original_vk_Berechnung_Aviso)) AND ((@IsNull_vk_Berechnung_SVS ="& _ " 1 AND [vk_Berechnung_SVS] IS NULL) OR ([vk_Berechnung_SVS] = @Original_vk_Berec"& _ "hnung_SVS)) AND ((@IsNull_vk_Berechnung_SonstigeKosten = 1 AND [vk_Berechnung_So"& _ "nstigeKosten] IS NULL) OR ([vk_Berechnung_SonstigeKosten] = @Original_vk_Berechn"& _ "ung_SonstigeKosten)) AND ((@IsNull_vk_Berechnung_SonstigeKostenText = 1 AND [vk_"& _ "Berechnung_SonstigeKostenText] IS NULL) OR ([vk_Berechnung_SonstigeKostenText] ="& _ " @Original_vk_Berechnung_SonstigeKostenText)) AND ((@IsNull_vk_Berechnung_PP = 1"& _ " AND [vk_Berechnung_PP] IS NULL) OR ([vk_Berechnung_PP] = @Original_vk_Berechnun"& _ "g_PP)) AND ([vk_Freigegeben] = @Original_vk_Freigegeben) AND ((@IsNull_vk_Sendun"& _ "gId = 1 AND [vk_SendungId] IS NULL) OR ([vk_SendungId] = @Original_vk_SendungId)"& _ ") AND ((@IsNull_vk_AvisoId = 1 AND [vk_AvisoId] IS NULL) OR ([vk_AvisoId] = @Ori"& _ "ginal_vk_AvisoId)) AND ((@IsNull_vk_VermerkId = 1 AND [vk_VermerkId] IS NULL) OR"& _ " ([vk_VermerkId] = @Original_vk_VermerkId)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_FilialeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FilialeNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_FilialeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FilialeNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_LKW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_LKW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_KdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Betrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "vk_Betrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_QS_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_QS_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_QS_Bemerkung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_Bemerkung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_QS_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_Bemerkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_GeldEingetroffen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_GeldEingetroffen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_BH_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_BH_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_BH_Sachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_BH_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_BH_Bemerkung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Bemerkung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_BH_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Bemerkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_BH_DatumGeldeingang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_DatumGeldeingang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_BH_DatumGeldeingang", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_DatumGeldeingang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_storno", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_storno", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_stornoDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_stornoDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_stornoDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_stornoDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Rolle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Rolle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Rolle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Rolle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Anrede", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anrede", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Anrede", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anrede", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Firmenwortlauf", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Firmenwortlauf", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Firmenwortlauf", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Firmenwortlauf", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Aresse1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Aresse1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Aresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Aresse1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Adresse2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Adresse2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Adresse2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Tel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Tel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Tel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Fax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Fax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Email", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Email", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_RgNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_RgNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_RgNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_RgNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Absender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Absender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Absender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_ATREUR1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_ATREUR1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_ATREUR1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_ATREUR1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Fraechter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fraechter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fraechter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Anzahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Warenbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Colli", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Colli", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Colli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Colli", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_FaStNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FaStNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_FaStNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FaStNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_Rechnungsbetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Rechnungsbetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_Rechnungsbetrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Rechnungsbetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_FrachtkostAusland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostAusland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_FrachtkostAusland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostAusland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_ZollProz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ZollProz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_ZollProz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ZollProz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_FrachtkostInland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostInland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_FrachtkostInland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostInland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_EUSTProz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_EUSTProz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_EUSTProz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_EUSTProz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_KostenSonst_Bez", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Bez", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_KostenSonst_Bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Bez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_KostenSonst_Betrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Betrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_KostenSonst_Betrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Betrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_Verzollung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Verzollung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_Verzollung", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Verzollung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_jeWeitere", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_jeWeitere", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_jeWeitere", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_jeWeitere", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_ATLAS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ATLAS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_ATLAS", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ATLAS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_Clearing", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Clearing", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_Clearing", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Clearing", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_korrRg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_korrRg", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_korrRg", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_korrRg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_Übersetzung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Übersetzung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_Übersetzung", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Übersetzung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_Aviso", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Aviso", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_Aviso", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Aviso", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_SVS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SVS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_SVS", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SVS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_SonstigeKosten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKosten", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_SonstigeKosten", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKosten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_SonstigeKostenText", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKostenText", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_SonstigeKostenText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKostenText", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_PP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_PP", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_PP", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_PP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Freigegeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Freigegeben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_SendungId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_SendungId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_SendungId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_SendungId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_VermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_VermerkId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_VermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_VermerkId", 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].[tblVorauskassen] ([vk_FilialeNr], [vk_AbfertigungsNr], [vk_Dat"& _ "um], [vk_LKW], [vk_KdNr], [vk_Firma], [vk_Betrag], [vk_QS_SachbearbeiterId], [vk"& _ "_QS_Sachbearbeiter], [vk_QS_Bemerkung], [vk_GeldEingetroffen], [vk_BH_Sachbearbe"& _ "iterId], [vk_BH_Sachbearbeiter], [vk_BH_Bemerkung], [vk_BH_DatumGeldeingang], [v"& _ "k_storno], [vk_stornoDatum], [vk_Rolle], [vk_Anrede], [vk_Firmenwortlauf], [vk_A"& _ "resse1], [vk_Adresse2], [vk_UID], [vk_EORI], [vk_Tel], [vk_Fax], [vk_Email], [vk"& _ "_RgNr], [vk_Absender], [vk_ATREUR1], [vk_Fraechter], [vk_Anzahl], [vk_Warenbezei"& _ "chnung], [vk_Colli], [vk_FaStNr], [vk_Berechnung_Rechnungsbetrag], [vk_Berechnun"& _ "g_FrachtkostAusland], [vk_Berechnung_ZollProz], [vk_Berechnung_FrachtkostInland]"& _ ", [vk_Berechnung_AbgabenSonst_Bez], [vk_Berechnung_AbgabenSonst_Betrag], [vk_Ber"& _ "echnung_EUSTProz], [vk_Berechnung_KostenSonst_Bez], [vk_Berechnung_KostenSonst_B"& _ "etrag], [vk_Berechnung_Verzollung], [vk_Berechnung_jeWeitere], [vk_Berechnung_AT"& _ "LAS], [vk_Berechnung_Clearing], [vk_Berechnung_korrRg], [vk_Berechnung_Übersetzu"& _ "ng], [vk_Berechnung_Aviso], [vk_Berechnung_SVS], [vk_Berechnung_SonstigeKosten],"& _ " [vk_Berechnung_SonstigeKostenText], [vk_Berechnung_PP], [vk_Freigegeben], [vk_S"& _ "endungId], [vk_AvisoId], [vk_VermerkId]) VALUES (@vk_FilialeNr, @vk_Abfertigungs"& _ "Nr, @vk_Datum, @vk_LKW, @vk_KdNr, @vk_Firma, @vk_Betrag, @vk_QS_SachbearbeiterId"& _ ", @vk_QS_Sachbearbeiter, @vk_QS_Bemerkung, @vk_GeldEingetroffen, @vk_BH_Sachbear"& _ "beiterId, @vk_BH_Sachbearbeiter, @vk_BH_Bemerkung, @vk_BH_DatumGeldeingang, @vk_"& _ "storno, @vk_stornoDatum, @vk_Rolle, @vk_Anrede, @vk_Firmenwortlauf, @vk_Aresse1,"& _ " @vk_Adresse2, @vk_UID, @vk_EORI, @vk_Tel, @vk_Fax, @vk_Email, @vk_RgNr, @vk_Abs"& _ "ender, @vk_ATREUR1, @vk_Fraechter, @vk_Anzahl, @vk_Warenbezeichnung, @vk_Colli, "& _ "@vk_FaStNr, @vk_Berechnung_Rechnungsbetrag, @vk_Berechnung_FrachtkostAusland, @v"& _ "k_Berechnung_ZollProz, @vk_Berechnung_FrachtkostInland, @vk_Berechnung_AbgabenSo"& _ "nst_Bez, @vk_Berechnung_AbgabenSonst_Betrag, @vk_Berechnung_EUSTProz, @vk_Berech"& _ "nung_KostenSonst_Bez, @vk_Berechnung_KostenSonst_Betrag, @vk_Berechnung_Verzollu"& _ "ng, @vk_Berechnung_jeWeitere, @vk_Berechnung_ATLAS, @vk_Berechnung_Clearing, @vk"& _ "_Berechnung_korrRg, @vk_Berechnung_Übersetzung, @vk_Berechnung_Aviso, @vk_Berech"& _ "nung_SVS, @vk_Berechnung_SonstigeKosten, @vk_Berechnung_SonstigeKostenText, @vk_"& _ "Berechnung_PP, @vk_Freigegeben, @vk_SendungId, @vk_AvisoId, @vk_VermerkId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ "ECT vk_id, vk_FilialeNr, vk_AbfertigungsNr, vk_Datum, vk_LKW, vk_KdNr, vk_Firma,"& _ " vk_Betrag, vk_QS_SachbearbeiterId, vk_QS_Sachbearbeiter, vk_QS_Bemerkung, vk_Ge"& _ "ldEingetroffen, vk_BH_SachbearbeiterId, vk_BH_Sachbearbeiter, vk_BH_Bemerkung, v"& _ "k_BH_DatumGeldeingang, vk_storno, vk_stornoDatum, vk_Rolle, vk_Anrede, vk_Firmen"& _ "wortlauf, vk_Aresse1, vk_Adresse2, vk_UID, vk_EORI, vk_Tel, vk_Fax, vk_Email, vk"& _ "_RgNr, vk_Absender, vk_ATREUR1, vk_Fraechter, vk_Anzahl, vk_Warenbezeichnung, vk"& _ "_Colli, vk_FaStNr, vk_Berechnung_Rechnungsbetrag, vk_Berechnung_FrachtkostAuslan"& _ "d, vk_Berechnung_ZollProz, vk_Berechnung_FrachtkostInland, vk_Berechnung_Abgaben"& _ "Sonst_Bez, vk_Berechnung_AbgabenSonst_Betrag, vk_Berechnung_EUSTProz, vk_Berechn"& _ "ung_KostenSonst_Bez, vk_Berechnung_KostenSonst_Betrag, vk_Berechnung_Verzollung,"& _ " vk_Berechnung_jeWeitere, vk_Berechnung_ATLAS, vk_Berechnung_Clearing, vk_Berech"& _ "nung_korrRg, vk_Berechnung_Übersetzung, vk_Berechnung_Aviso, vk_Berechnung_SVS, "& _ "vk_Berechnung_SonstigeKosten, vk_Berechnung_SonstigeKostenText, vk_Berechnung_PP"& _ ", vk_Freigegeben, vk_SendungId, vk_AvisoId, vk_VermerkId FROM tblVorauskassen WH"& _ "ERE (vk_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_FilialeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FilialeNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_LKW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_LKW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Betrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "vk_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_QS_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_QS_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_QS_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_GeldEingetroffen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_GeldEingetroffen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_BH_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_BH_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_BH_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_BH_DatumGeldeingang", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_DatumGeldeingang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_storno", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_storno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_stornoDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_stornoDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Rolle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Rolle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Anrede", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anrede", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Firmenwortlauf", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Firmenwortlauf", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Aresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Aresse1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Adresse2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Tel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Fax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_RgNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_RgNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_ATREUR1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_ATREUR1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fraechter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Anzahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Colli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Colli", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_FaStNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FaStNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_Rechnungsbetrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Rechnungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_FrachtkostAusland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostAusland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_ZollProz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ZollProz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_FrachtkostInland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostInland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_EUSTProz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_EUSTProz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_KostenSonst_Bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_KostenSonst_Betrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_Verzollung", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Verzollung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_jeWeitere", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_jeWeitere", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_ATLAS", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ATLAS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_Clearing", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Clearing", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_korrRg", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_korrRg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_Übersetzung", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Übersetzung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_Aviso", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Aviso", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_SVS", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SVS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_SonstigeKosten", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_SonstigeKostenText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKostenText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_PP", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_PP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Freigegeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Freigegeben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_SendungId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_SendungId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_VermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_VermerkId", 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].[tblVorauskassen] SET [vk_FilialeNr] = @vk_FilialeNr, [vk_Abfertigun"& _ "gsNr] = @vk_AbfertigungsNr, [vk_Datum] = @vk_Datum, [vk_LKW] = @vk_LKW, [vk_KdNr"& _ "] = @vk_KdNr, [vk_Firma] = @vk_Firma, [vk_Betrag] = @vk_Betrag, [vk_QS_Sachbearb"& _ "eiterId] = @vk_QS_SachbearbeiterId, [vk_QS_Sachbearbeiter] = @vk_QS_Sachbearbeit"& _ "er, [vk_QS_Bemerkung] = @vk_QS_Bemerkung, [vk_GeldEingetroffen] = @vk_GeldEinget"& _ "roffen, [vk_BH_SachbearbeiterId] = @vk_BH_SachbearbeiterId, [vk_BH_Sachbearbeite"& _ "r] = @vk_BH_Sachbearbeiter, [vk_BH_Bemerkung] = @vk_BH_Bemerkung, [vk_BH_DatumGe"& _ "ldeingang] = @vk_BH_DatumGeldeingang, [vk_storno] = @vk_storno, [vk_stornoDatum]"& _ " = @vk_stornoDatum, [vk_Rolle] = @vk_Rolle, [vk_Anrede] = @vk_Anrede, [vk_Firmen"& _ "wortlauf] = @vk_Firmenwortlauf, [vk_Aresse1] = @vk_Aresse1, [vk_Adresse2] = @vk_"& _ "Adresse2, [vk_UID] = @vk_UID, [vk_EORI] = @vk_EORI, [vk_Tel] = @vk_Tel, [vk_Fax]"& _ " = @vk_Fax, [vk_Email] = @vk_Email, [vk_RgNr] = @vk_RgNr, [vk_Absender] = @vk_Ab"& _ "sender, [vk_ATREUR1] = @vk_ATREUR1, [vk_Fraechter] = @vk_Fraechter, [vk_Anzahl] "& _ "= @vk_Anzahl, [vk_Warenbezeichnung] = @vk_Warenbezeichnung, [vk_Colli] = @vk_Col"& _ "li, [vk_FaStNr] = @vk_FaStNr, [vk_Berechnung_Rechnungsbetrag] = @vk_Berechnung_R"& _ "echnungsbetrag, [vk_Berechnung_FrachtkostAusland] = @vk_Berechnung_FrachtkostAus"& _ "land, [vk_Berechnung_ZollProz] = @vk_Berechnung_ZollProz, [vk_Berechnung_Frachtk"& _ "ostInland] = @vk_Berechnung_FrachtkostInland, [vk_Berechnung_AbgabenSonst_Bez] ="& _ " @vk_Berechnung_AbgabenSonst_Bez, [vk_Berechnung_AbgabenSonst_Betrag] = @vk_Bere"& _ "chnung_AbgabenSonst_Betrag, [vk_Berechnung_EUSTProz] = @vk_Berechnung_EUSTProz, "& _ "[vk_Berechnung_KostenSonst_Bez] = @vk_Berechnung_KostenSonst_Bez, [vk_Berechnung"& _ "_KostenSonst_Betrag] = @vk_Berechnung_KostenSonst_Betrag, [vk_Berechnung_Verzoll"& _ "ung] = @vk_Berechnung_Verzollung, [vk_Berechnung_jeWeitere] = @vk_Berechnung_jeW"& _ "eitere, [vk_Berechnung_ATLAS] = @vk_Berechnung_ATLAS, [vk_Berechnung_Clearing] ="& _ " @vk_Berechnung_Clearing, [vk_Berechnung_korrRg] = @vk_Berechnung_korrRg, [vk_Be"& _ "rechnung_Übersetzung] = @vk_Berechnung_Übersetzung, [vk_Berechnung_Aviso] = @vk_"& _ "Berechnung_Aviso, [vk_Berechnung_SVS] = @vk_Berechnung_SVS, [vk_Berechnung_Sonst"& _ "igeKosten] = @vk_Berechnung_SonstigeKosten, [vk_Berechnung_SonstigeKostenText] ="& _ " @vk_Berechnung_SonstigeKostenText, [vk_Berechnung_PP] = @vk_Berechnung_PP, [vk_"& _ "Freigegeben] = @vk_Freigegeben, [vk_SendungId] = @vk_SendungId, [vk_AvisoId] = @"& _ "vk_AvisoId, [vk_VermerkId] = @vk_VermerkId WHERE (([vk_id] = @Original_vk_id) AN"& _ "D ((@IsNull_vk_FilialeNr = 1 AND [vk_FilialeNr] IS NULL) OR ([vk_FilialeNr] = @O"& _ "riginal_vk_FilialeNr)) AND ((@IsNull_vk_AbfertigungsNr = 1 AND [vk_AbfertigungsN"& _ "r] IS NULL) OR ([vk_AbfertigungsNr] = @Original_vk_AbfertigungsNr)) AND ([vk_Dat"& _ "um] = @Original_vk_Datum) AND ([vk_LKW] = @Original_vk_LKW) AND ((@IsNull_vk_KdN"& _ "r = 1 AND [vk_KdNr] IS NULL) OR ([vk_KdNr] = @Original_vk_KdNr)) AND ([vk_Firma]"& _ " = @Original_vk_Firma) AND ([vk_Betrag] = @Original_vk_Betrag) AND ([vk_QS_Sachb"& _ "earbeiterId] = @Original_vk_QS_SachbearbeiterId) AND ([vk_QS_Sachbearbeiter] = @"& _ "Original_vk_QS_Sachbearbeiter) AND ((@IsNull_vk_QS_Bemerkung = 1 AND [vk_QS_Beme"& _ "rkung] IS NULL) OR ([vk_QS_Bemerkung] = @Original_vk_QS_Bemerkung)) AND ([vk_Gel"& _ "dEingetroffen] = @Original_vk_GeldEingetroffen) AND ((@IsNull_vk_BH_Sachbearbeit"& _ "erId = 1 AND [vk_BH_SachbearbeiterId] IS NULL) OR ([vk_BH_SachbearbeiterId] = @O"& _ "riginal_vk_BH_SachbearbeiterId)) AND ((@IsNull_vk_BH_Sachbearbeiter = 1 AND [vk_"& _ "BH_Sachbearbeiter] IS NULL) OR ([vk_BH_Sachbearbeiter] = @Original_vk_BH_Sachbea"& _ "rbeiter)) AND ((@IsNull_vk_BH_Bemerkung = 1 AND [vk_BH_Bemerkung] IS NULL) OR (["& _ "vk_BH_Bemerkung] = @Original_vk_BH_Bemerkung)) AND ((@IsNull_vk_BH_DatumGeldeing"& _ "ang = 1 AND [vk_BH_DatumGeldeingang] IS NULL) OR ([vk_BH_DatumGeldeingang] = @Or"& _ "iginal_vk_BH_DatumGeldeingang)) AND ([vk_storno] = @Original_vk_storno) AND ((@I"& _ "sNull_vk_stornoDatum = 1 AND [vk_stornoDatum] IS NULL) OR ([vk_stornoDatum] = @O"& _ "riginal_vk_stornoDatum)) AND ((@IsNull_vk_Rolle = 1 AND [vk_Rolle] IS NULL) OR ("& _ "[vk_Rolle] = @Original_vk_Rolle)) AND ((@IsNull_vk_Anrede = 1 AND [vk_Anrede] IS"& _ " NULL) OR ([vk_Anrede] = @Original_vk_Anrede)) AND ((@IsNull_vk_Firmenwortlauf ="& _ " 1 AND [vk_Firmenwortlauf] IS NULL) OR ([vk_Firmenwortlauf] = @Original_vk_Firme"& _ "nwortlauf)) AND ((@IsNull_vk_Aresse1 = 1 AND [vk_Aresse1] IS NULL) OR ([vk_Aress"& _ "e1] = @Original_vk_Aresse1)) AND ((@IsNull_vk_Adresse2 = 1 AND [vk_Adresse2] IS "& _ "NULL) OR ([vk_Adresse2] = @Original_vk_Adresse2)) AND ((@IsNull_vk_UID = 1 AND ["& _ "vk_UID] IS NULL) OR ([vk_UID] = @Original_vk_UID)) AND ((@IsNull_vk_EORI = 1 AND"& _ " [vk_EORI] IS NULL) OR ([vk_EORI] = @Original_vk_EORI)) AND ((@IsNull_vk_Tel = 1"& _ " AND [vk_Tel] IS NULL) OR ([vk_Tel] = @Original_vk_Tel)) AND ((@IsNull_vk_Fax = "& _ "1 AND [vk_Fax] IS NULL) OR ([vk_Fax] = @Original_vk_Fax)) AND ((@IsNull_vk_Email"& _ " = 1 AND [vk_Email] IS NULL) OR ([vk_Email] = @Original_vk_Email)) AND ((@IsNull"& _ "_vk_RgNr = 1 AND [vk_RgNr] IS NULL) OR ([vk_RgNr] = @Original_vk_RgNr)) AND ((@I"& _ "sNull_vk_Absender = 1 AND [vk_Absender] IS NULL) OR ([vk_Absender] = @Original_v"& _ "k_Absender)) AND ((@IsNull_vk_ATREUR1 = 1 AND [vk_ATREUR1] IS NULL) OR ([vk_ATRE"& _ "UR1] = @Original_vk_ATREUR1)) AND ((@IsNull_vk_Fraechter = 1 AND [vk_Fraechter] "& _ "IS NULL) OR ([vk_Fraechter] = @Original_vk_Fraechter)) AND ((@IsNull_vk_Anzahl ="& _ " 1 AND [vk_Anzahl] IS NULL) OR ([vk_Anzahl] = @Original_vk_Anzahl)) AND ((@IsNul"& _ "l_vk_Warenbezeichnung = 1 AND [vk_Warenbezeichnung] IS NULL) OR ([vk_Warenbezeic"& _ "hnung] = @Original_vk_Warenbezeichnung)) AND ((@IsNull_vk_Colli = 1 AND [vk_Coll"& _ "i] IS NULL) OR ([vk_Colli] = @Original_vk_Colli)) AND ((@IsNull_vk_FaStNr = 1 AN"& _ "D [vk_FaStNr] IS NULL) OR ([vk_FaStNr] = @Original_vk_FaStNr)) AND ((@IsNull_vk_"& _ "Berechnung_Rechnungsbetrag = 1 AND [vk_Berechnung_Rechnungsbetrag] IS NULL) OR ("& _ "[vk_Berechnung_Rechnungsbetrag] = @Original_vk_Berechnung_Rechnungsbetrag)) AND "& _ "((@IsNull_vk_Berechnung_FrachtkostAusland = 1 AND [vk_Berechnung_FrachtkostAusla"& _ "nd] IS NULL) OR ([vk_Berechnung_FrachtkostAusland] = @Original_vk_Berechnung_Fra"& _ "chtkostAusland)) AND ((@IsNull_vk_Berechnung_ZollProz = 1 AND [vk_Berechnung_Zol"& _ "lProz] IS NULL) OR ([vk_Berechnung_ZollProz] = @Original_vk_Berechnung_ZollProz)"& _ ") AND ((@IsNull_vk_Berechnung_FrachtkostInland = 1 AND [vk_Berechnung_Frachtkost"& _ "Inland] IS NULL) OR ([vk_Berechnung_FrachtkostInland] = @Original_vk_Berechnung_"& _ "FrachtkostInland)) AND ((@IsNull_vk_Berechnung_AbgabenSonst_Bez = 1 AND [vk_Bere"& _ "chnung_AbgabenSonst_Bez] IS NULL) OR ([vk_Berechnung_AbgabenSonst_Bez] = @Origin"& _ "al_vk_Berechnung_AbgabenSonst_Bez)) AND ((@IsNull_vk_Berechnung_AbgabenSonst_Bet"& _ "rag = 1 AND [vk_Berechnung_AbgabenSonst_Betrag] IS NULL) OR ([vk_Berechnung_Abga"& _ "benSonst_Betrag] = @Original_vk_Berechnung_AbgabenSonst_Betrag)) AND ((@IsNull_v"& _ "k_Berechnung_EUSTProz = 1 AND [vk_Berechnung_EUSTProz] IS NULL) OR ([vk_Berechnu"& _ "ng_EUSTProz] = @Original_vk_Berechnung_EUSTProz)) AND ((@IsNull_vk_Berechnung_Ko"& _ "stenSonst_Bez = 1 AND [vk_Berechnung_KostenSonst_Bez] IS NULL) OR ([vk_Berechnun"& _ "g_KostenSonst_Bez] = @Original_vk_Berechnung_KostenSonst_Bez)) AND ((@IsNull_vk_"& _ "Berechnung_KostenSonst_Betrag = 1 AND [vk_Berechnung_KostenSonst_Betrag] IS NULL"& _ ") OR ([vk_Berechnung_KostenSonst_Betrag] = @Original_vk_Berechnung_KostenSonst_B"& _ "etrag)) AND ((@IsNull_vk_Berechnung_Verzollung = 1 AND [vk_Berechnung_Verzollung"& _ "] IS NULL) OR ([vk_Berechnung_Verzollung] = @Original_vk_Berechnung_Verzollung))"& _ " AND ((@IsNull_vk_Berechnung_jeWeitere = 1 AND [vk_Berechnung_jeWeitere] IS NULL"& _ ") OR ([vk_Berechnung_jeWeitere] = @Original_vk_Berechnung_jeWeitere)) AND ((@IsN"& _ "ull_vk_Berechnung_ATLAS = 1 AND [vk_Berechnung_ATLAS] IS NULL) OR ([vk_Berechnun"& _ "g_ATLAS] = @Original_vk_Berechnung_ATLAS)) AND ((@IsNull_vk_Berechnung_Clearing "& _ "= 1 AND [vk_Berechnung_Clearing] IS NULL) OR ([vk_Berechnung_Clearing] = @Origin"& _ "al_vk_Berechnung_Clearing)) AND ((@IsNull_vk_Berechnung_korrRg = 1 AND [vk_Berec"& _ "hnung_korrRg] IS NULL) OR ([vk_Berechnung_korrRg] = @Original_vk_Berechnung_korr"& _ "Rg)) AND ((@IsNull_vk_Berechnung_Übersetzung = 1 AND [vk_Berechnung_Übersetzung]"& _ " IS NULL) OR ([vk_Berechnung_Übersetzung] = @Original_vk_Berechnung_Übersetzung)"& _ ") AND ((@IsNull_vk_Berechnung_Aviso = 1 AND [vk_Berechnung_Aviso] IS NULL) OR (["& _ "vk_Berechnung_Aviso] = @Original_vk_Berechnung_Aviso)) AND ((@IsNull_vk_Berechnu"& _ "ng_SVS = 1 AND [vk_Berechnung_SVS] IS NULL) OR ([vk_Berechnung_SVS] = @Original_"& _ "vk_Berechnung_SVS)) AND ((@IsNull_vk_Berechnung_SonstigeKosten = 1 AND [vk_Berec"& _ "hnung_SonstigeKosten] IS NULL) OR ([vk_Berechnung_SonstigeKosten] = @Original_vk"& _ "_Berechnung_SonstigeKosten)) AND ((@IsNull_vk_Berechnung_SonstigeKostenText = 1 "& _ "AND [vk_Berechnung_SonstigeKostenText] IS NULL) OR ([vk_Berechnung_SonstigeKoste"& _ "nText] = @Original_vk_Berechnung_SonstigeKostenText)) AND ((@IsNull_vk_Berechnun"& _ "g_PP = 1 AND [vk_Berechnung_PP] IS NULL) OR ([vk_Berechnung_PP] = @Original_vk_B"& _ "erechnung_PP)) AND ([vk_Freigegeben] = @Original_vk_Freigegeben) AND ((@IsNull_v"& _ "k_SendungId = 1 AND [vk_SendungId] IS NULL) OR ([vk_SendungId] = @Original_vk_Se"& _ "ndungId)) AND ((@IsNull_vk_AvisoId = 1 AND [vk_AvisoId] IS NULL) OR ([vk_AvisoId"& _ "] = @Original_vk_AvisoId)) AND ((@IsNull_vk_VermerkId = 1 AND [vk_VermerkId] IS "& _ "NULL) OR ([vk_VermerkId] = @Original_vk_VermerkId)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT vk_id, vk_FilialeN"& _ "r, vk_AbfertigungsNr, vk_Datum, vk_LKW, vk_KdNr, vk_Firma, vk_Betrag, vk_QS_Sach"& _ "bearbeiterId, vk_QS_Sachbearbeiter, vk_QS_Bemerkung, vk_GeldEingetroffen, vk_BH_"& _ "SachbearbeiterId, vk_BH_Sachbearbeiter, vk_BH_Bemerkung, vk_BH_DatumGeldeingang,"& _ " vk_storno, vk_stornoDatum, vk_Rolle, vk_Anrede, vk_Firmenwortlauf, vk_Aresse1, "& _ "vk_Adresse2, vk_UID, vk_EORI, vk_Tel, vk_Fax, vk_Email, vk_RgNr, vk_Absender, vk"& _ "_ATREUR1, vk_Fraechter, vk_Anzahl, vk_Warenbezeichnung, vk_Colli, vk_FaStNr, vk_"& _ "Berechnung_Rechnungsbetrag, vk_Berechnung_FrachtkostAusland, vk_Berechnung_ZollP"& _ "roz, vk_Berechnung_FrachtkostInland, vk_Berechnung_AbgabenSonst_Bez, vk_Berechnu"& _ "ng_AbgabenSonst_Betrag, vk_Berechnung_EUSTProz, vk_Berechnung_KostenSonst_Bez, v"& _ "k_Berechnung_KostenSonst_Betrag, vk_Berechnung_Verzollung, vk_Berechnung_jeWeite"& _ "re, vk_Berechnung_ATLAS, vk_Berechnung_Clearing, vk_Berechnung_korrRg, vk_Berech"& _ "nung_Übersetzung, vk_Berechnung_Aviso, vk_Berechnung_SVS, vk_Berechnung_Sonstige"& _ "Kosten, vk_Berechnung_SonstigeKostenText, vk_Berechnung_PP, vk_Freigegeben, vk_S"& _ "endungId, vk_AvisoId, vk_VermerkId FROM tblVorauskassen WHERE (vk_id = @vk_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_FilialeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FilialeNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_LKW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_LKW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_KdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Firma", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Betrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "vk_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_QS_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_QS_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_QS_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_GeldEingetroffen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_GeldEingetroffen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_BH_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_BH_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_BH_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_BH_DatumGeldeingang", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_DatumGeldeingang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_storno", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_storno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_stornoDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_stornoDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Rolle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Rolle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Anrede", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anrede", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Firmenwortlauf", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Firmenwortlauf", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Aresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Aresse1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Adresse2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_EORI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Tel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Fax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_RgNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_RgNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_ATREUR1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_ATREUR1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fraechter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Anzahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Colli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Colli", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_FaStNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FaStNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_Rechnungsbetrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Rechnungsbetrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_FrachtkostAusland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostAusland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_ZollProz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ZollProz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_FrachtkostInland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostInland", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_EUSTProz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_EUSTProz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_KostenSonst_Bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Bez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_KostenSonst_Betrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_Verzollung", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Verzollung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_jeWeitere", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_jeWeitere", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_ATLAS", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ATLAS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_Clearing", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Clearing", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_korrRg", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_korrRg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_Übersetzung", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Übersetzung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_Aviso", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Aviso", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_SVS", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SVS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_SonstigeKosten", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKosten", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_SonstigeKostenText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKostenText", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Berechnung_PP", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_PP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_Freigegeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Freigegeben", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_SendungId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_SendungId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AvisoId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_VermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_VermerkId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_FilialeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FilialeNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_FilialeNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FilialeNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_LKW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_LKW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_KdNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_KdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_KdNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Firma", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Firma", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Betrag", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 16, 2, "vk_Betrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_QS_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_QS_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_QS_Bemerkung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_Bemerkung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_QS_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_QS_Bemerkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_GeldEingetroffen", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_GeldEingetroffen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_BH_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_BH_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_BH_Sachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_BH_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_BH_Bemerkung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Bemerkung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_BH_Bemerkung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_Bemerkung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_BH_DatumGeldeingang", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_DatumGeldeingang", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_BH_DatumGeldeingang", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_BH_DatumGeldeingang", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_storno", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_storno", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_stornoDatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_stornoDatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_stornoDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_stornoDatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Rolle", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Rolle", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Rolle", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Rolle", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Anrede", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anrede", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Anrede", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anrede", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Firmenwortlauf", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Firmenwortlauf", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Firmenwortlauf", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Firmenwortlauf", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Aresse1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Aresse1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Aresse1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Aresse1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Adresse2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Adresse2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Adresse2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Adresse2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_UID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_EORI", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_EORI", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_EORI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_EORI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Tel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Tel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Tel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Tel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Fax", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fax", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Fax", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Email", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Email", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_RgNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_RgNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_RgNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_RgNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Absender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Absender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Absender", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Absender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_ATREUR1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_ATREUR1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_ATREUR1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_ATREUR1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Fraechter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fraechter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Fraechter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Fraechter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Anzahl", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anzahl", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Anzahl", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Anzahl", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Warenbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Warenbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Warenbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Colli", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Colli", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Colli", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Colli", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_FaStNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FaStNr", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_FaStNr", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_FaStNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_Rechnungsbetrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Rechnungsbetrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_Rechnungsbetrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Rechnungsbetrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_FrachtkostAusland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostAusland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_FrachtkostAusland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostAusland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_ZollProz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ZollProz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_ZollProz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ZollProz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_FrachtkostInland", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostInland", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_FrachtkostInland", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_FrachtkostInland", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Bez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_AbgabenSonst_Betrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_EUSTProz", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_EUSTProz", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_EUSTProz", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_EUSTProz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_KostenSonst_Bez", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Bez", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_KostenSonst_Bez", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Bez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_KostenSonst_Betrag", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Betrag", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_KostenSonst_Betrag", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_KostenSonst_Betrag", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_Verzollung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Verzollung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_Verzollung", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Verzollung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_jeWeitere", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_jeWeitere", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_jeWeitere", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_jeWeitere", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_ATLAS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ATLAS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_ATLAS", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_ATLAS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_Clearing", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Clearing", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_Clearing", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Clearing", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_korrRg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_korrRg", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_korrRg", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_korrRg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_Übersetzung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Übersetzung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_Übersetzung", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Übersetzung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_Aviso", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Aviso", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_Aviso", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_Aviso", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_SVS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SVS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_SVS", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SVS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_SonstigeKosten", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKosten", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_SonstigeKosten", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKosten", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_SonstigeKostenText", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKostenText", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_SonstigeKostenText", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_SonstigeKostenText", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_Berechnung_PP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_PP", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Berechnung_PP", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Berechnung_PP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_Freigegeben", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_Freigegeben", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_SendungId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_SendungId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_SendungId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_SendungId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AvisoId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_AvisoId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_AvisoId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_vk_VermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_VermerkId", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_vk_VermerkId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_VermerkId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vk_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "vk_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 vk_id, vk_FilialeNr, vk_AbfertigungsNr, vk_Datum, vk_LKW, vk_KdNr, vk_Firm"& _ "a, vk_Betrag, vk_QS_SachbearbeiterId, vk_QS_Sachbearbeiter, vk_QS_Bemerkung, vk_"& _ "GeldEingetroffen, vk_BH_SachbearbeiterId, vk_BH_Sachbearbeiter, vk_BH_Bemerkung,"& _ " vk_BH_DatumGeldeingang, vk_storno, vk_stornoDatum, vk_Rolle, vk_Anrede, vk_Firm"& _ "enwortlauf, vk_Aresse1, vk_Adresse2, vk_UID, vk_EORI, vk_Tel, vk_Fax, vk_Email, "& _ "vk_RgNr, vk_Absender, vk_ATREUR1, vk_Fraechter, vk_Anzahl, vk_Warenbezeichnung, "& _ "vk_Colli, vk_FaStNr, vk_Berechnung_Rechnungsbetrag, vk_Berechnung_FrachtkostAusl"& _ "and, vk_Berechnung_ZollProz, vk_Berechnung_FrachtkostInland, vk_Berechnung_Abgab"& _ "enSonst_Bez, vk_Berechnung_AbgabenSonst_Betrag, vk_Berechnung_EUSTProz, vk_Berec"& _ "hnung_KostenSonst_Bez, vk_Berechnung_KostenSonst_Betrag, vk_Berechnung_Verzollun"& _ "g, vk_Berechnung_jeWeitere, vk_Berechnung_ATLAS, vk_Berechnung_Clearing, vk_Bere"& _ "chnung_korrRg, vk_Berechnung_Übersetzung, vk_Berechnung_Aviso, vk_Berechnung_SVS"& _ ", vk_Berechnung_SonstigeKosten, vk_Berechnung_SonstigeKostenText, vk_Berechnung_"& _ "PP, vk_Freigegeben, vk_SendungId, vk_AvisoId, vk_VermerkId FROM dbo.tblVorauskas"& _ "sen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblVorauskassenDataTable) 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 VERAGDataSet.tblVorauskassenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblVorauskassenDataTable = New VERAGDataSet.tblVorauskassenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblVorauskassenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblVorauskassen") 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_vk_id As Integer, _ ByVal Original_vk_FilialeNr As Global.System.Nullable(Of Integer), _ ByVal Original_vk_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_vk_Datum As Date, _ ByVal Original_vk_LKW As String, _ ByVal Original_vk_KdNr As Global.System.Nullable(Of Integer), _ ByVal Original_vk_Firma As String, _ ByVal Original_vk_Betrag As Decimal, _ ByVal Original_vk_QS_SachbearbeiterId As Integer, _ ByVal Original_vk_QS_Sachbearbeiter As String, _ ByVal Original_vk_QS_Bemerkung As String, _ ByVal Original_vk_GeldEingetroffen As Boolean, _ ByVal Original_vk_BH_SachbearbeiterId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_BH_Sachbearbeiter As String, _ ByVal Original_vk_BH_Bemerkung As String, _ ByVal Original_vk_BH_DatumGeldeingang As Global.System.Nullable(Of Date), _ ByVal Original_vk_storno As Boolean, _ ByVal Original_vk_stornoDatum As Global.System.Nullable(Of Date), _ ByVal Original_vk_Rolle As String, _ ByVal Original_vk_Anrede As String, _ ByVal Original_vk_Firmenwortlauf As String, _ ByVal Original_vk_Aresse1 As String, _ ByVal Original_vk_Adresse2 As String, _ ByVal Original_vk_UID As String, _ ByVal Original_vk_EORI As String, _ ByVal Original_vk_Tel As String, _ ByVal Original_vk_Fax As String, _ ByVal Original_vk_Email As String, _ ByVal Original_vk_RgNr As String, _ ByVal Original_vk_Absender As String, _ ByVal Original_vk_ATREUR1 As String, _ ByVal Original_vk_Fraechter As String, _ ByVal Original_vk_Anzahl As String, _ ByVal Original_vk_Warenbezeichnung As String, _ ByVal Original_vk_Colli As String, _ ByVal Original_vk_FaStNr As String, _ ByVal Original_vk_Berechnung_Rechnungsbetrag As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_FrachtkostAusland As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_ZollProz As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_FrachtkostInland As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_AbgabenSonst_Bez As String, _ ByVal Original_vk_Berechnung_AbgabenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_EUSTProz As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_KostenSonst_Bez As String, _ ByVal Original_vk_Berechnung_KostenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Verzollung As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_jeWeitere As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_ATLAS As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Clearing As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_korrRg As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Übersetzung As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Aviso As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_SVS As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_SonstigeKosten As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_SonstigeKostenText As String, _ ByVal Original_vk_Berechnung_PP As Global.System.Nullable(Of Double), _ ByVal Original_vk_Freigegeben As Boolean, _ ByVal Original_vk_SendungId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_VermerkId As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_vk_id,Integer) If (Original_vk_FilialeNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_vk_FilialeNr.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_vk_AbfertigungsNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_vk_AbfertigungsNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_vk_Datum,Date) If (Original_vk_LKW Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_vk_LKW") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_vk_LKW,String) End If If (Original_vk_KdNr.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_vk_KdNr.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_vk_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_vk_Firma") Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_vk_Firma,String) End If Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_vk_Betrag,Decimal) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_vk_QS_SachbearbeiterId,Integer) If (Original_vk_QS_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_vk_QS_Sachbearbeiter") Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_vk_QS_Sachbearbeiter,String) End If If (Original_vk_QS_Bemerkung 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_vk_QS_Bemerkung,String) End If Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_vk_GeldEingetroffen,Boolean) If (Original_vk_BH_SachbearbeiterId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_vk_BH_SachbearbeiterId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_vk_BH_Sachbearbeiter 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_vk_BH_Sachbearbeiter,String) End If If (Original_vk_BH_Bemerkung 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_vk_BH_Bemerkung,String) End If If (Original_vk_BH_DatumGeldeingang.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_vk_BH_DatumGeldeingang.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_vk_storno,Boolean) If (Original_vk_stornoDatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_vk_stornoDatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_vk_Rolle Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_vk_Rolle,String) End If If (Original_vk_Anrede Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_vk_Anrede,String) End If If (Original_vk_Firmenwortlauf Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_vk_Firmenwortlauf,String) End If If (Original_vk_Aresse1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_vk_Aresse1,String) End If If (Original_vk_Adresse2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_vk_Adresse2,String) End If If (Original_vk_UID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_vk_UID,String) End If If (Original_vk_EORI Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_vk_EORI,String) End If If (Original_vk_Tel Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_vk_Tel,String) End If If (Original_vk_Fax Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_vk_Fax,String) End If If (Original_vk_Email Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_vk_Email,String) End If If (Original_vk_RgNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_vk_RgNr,String) End If If (Original_vk_Absender Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_vk_Absender,String) End If If (Original_vk_ATREUR1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_vk_ATREUR1,String) End If If (Original_vk_Fraechter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_vk_Fraechter,String) End If If (Original_vk_Anzahl Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_vk_Anzahl,String) End If If (Original_vk_Warenbezeichnung Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_vk_Warenbezeichnung,String) End If If (Original_vk_Colli Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_vk_Colli,String) End If If (Original_vk_FaStNr Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_vk_FaStNr,String) End If If (Original_vk_Berechnung_Rechnungsbetrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_vk_Berechnung_Rechnungsbetrag.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_FrachtkostAusland.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_vk_Berechnung_FrachtkostAusland.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_ZollProz.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_vk_Berechnung_ZollProz.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_FrachtkostInland.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_vk_Berechnung_FrachtkostInland.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_AbgabenSonst_Bez Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_vk_Berechnung_AbgabenSonst_Bez,String) End If If (Original_vk_Berechnung_AbgabenSonst_Betrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_vk_Berechnung_AbgabenSonst_Betrag.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_EUSTProz.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_vk_Berechnung_EUSTProz.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_KostenSonst_Bez Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_vk_Berechnung_KostenSonst_Bez,String) End If If (Original_vk_Berechnung_KostenSonst_Betrag.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_vk_Berechnung_KostenSonst_Betrag.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_Verzollung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_vk_Berechnung_Verzollung.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_jeWeitere.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_vk_Berechnung_jeWeitere.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_ATLAS.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_vk_Berechnung_ATLAS.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_Clearing.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_vk_Berechnung_Clearing.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_korrRg.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_vk_Berechnung_korrRg.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_Übersetzung.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_vk_Berechnung_Übersetzung.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_Aviso.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(93).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = CType(Original_vk_Berechnung_Aviso.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(93).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(94).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_SVS.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(95).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = CType(Original_vk_Berechnung_SVS.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(95).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(96).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_SonstigeKosten.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(97).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = CType(Original_vk_Berechnung_SonstigeKosten.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(97).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(98).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_SonstigeKostenText Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(99).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(99).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(100).Value = CType(Original_vk_Berechnung_SonstigeKostenText,String) End If If (Original_vk_Berechnung_PP.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(101).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(102).Value = CType(Original_vk_Berechnung_PP.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(101).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(102).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(103).Value = CType(Original_vk_Freigegeben,Boolean) If (Original_vk_SendungId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = CType(Original_vk_SendungId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(105).Value = Global.System.DBNull.Value End If If (Original_vk_AvisoId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = CType(Original_vk_AvisoId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(107).Value = Global.System.DBNull.Value End If If (Original_vk_VermerkId.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(109).Value = CType(Original_vk_VermerkId.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(109).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 vk_FilialeNr As Global.System.Nullable(Of Integer), _ ByVal vk_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal vk_Datum As Date, _ ByVal vk_LKW As String, _ ByVal vk_KdNr As Global.System.Nullable(Of Integer), _ ByVal vk_Firma As String, _ ByVal vk_Betrag As Decimal, _ ByVal vk_QS_SachbearbeiterId As Integer, _ ByVal vk_QS_Sachbearbeiter As String, _ ByVal vk_QS_Bemerkung As String, _ ByVal vk_GeldEingetroffen As Boolean, _ ByVal vk_BH_SachbearbeiterId As Global.System.Nullable(Of Integer), _ ByVal vk_BH_Sachbearbeiter As String, _ ByVal vk_BH_Bemerkung As String, _ ByVal vk_BH_DatumGeldeingang As Global.System.Nullable(Of Date), _ ByVal vk_storno As Boolean, _ ByVal vk_stornoDatum As Global.System.Nullable(Of Date), _ ByVal vk_Rolle As String, _ ByVal vk_Anrede As String, _ ByVal vk_Firmenwortlauf As String, _ ByVal vk_Aresse1 As String, _ ByVal vk_Adresse2 As String, _ ByVal vk_UID As String, _ ByVal vk_EORI As String, _ ByVal vk_Tel As String, _ ByVal vk_Fax As String, _ ByVal vk_Email As String, _ ByVal vk_RgNr As String, _ ByVal vk_Absender As String, _ ByVal vk_ATREUR1 As String, _ ByVal vk_Fraechter As String, _ ByVal vk_Anzahl As String, _ ByVal vk_Warenbezeichnung As String, _ ByVal vk_Colli As String, _ ByVal vk_FaStNr As String, _ ByVal vk_Berechnung_Rechnungsbetrag As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_FrachtkostAusland As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_ZollProz As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_FrachtkostInland As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_AbgabenSonst_Bez As String, _ ByVal vk_Berechnung_AbgabenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_EUSTProz As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_KostenSonst_Bez As String, _ ByVal vk_Berechnung_KostenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Verzollung As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_jeWeitere As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_ATLAS As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Clearing As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_korrRg As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Übersetzung As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Aviso As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_SVS As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_SonstigeKosten As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_SonstigeKostenText As String, _ ByVal vk_Berechnung_PP As Global.System.Nullable(Of Double), _ ByVal vk_Freigegeben As Boolean, _ ByVal vk_SendungId As Global.System.Nullable(Of Integer), _ ByVal vk_AvisoId As Global.System.Nullable(Of Integer), _ ByVal vk_VermerkId As Global.System.Nullable(Of Integer)) As Integer If (vk_FilialeNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(vk_FilialeNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (vk_AbfertigungsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(vk_AbfertigungsNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(vk_Datum,Date) If (vk_LKW Is Nothing) Then Throw New Global.System.ArgumentNullException("vk_LKW") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(vk_LKW,String) End If If (vk_KdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(vk_KdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (vk_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("vk_Firma") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(vk_Firma,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(vk_Betrag,Decimal) Me.Adapter.InsertCommand.Parameters(7).Value = CType(vk_QS_SachbearbeiterId,Integer) If (vk_QS_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("vk_QS_Sachbearbeiter") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(vk_QS_Sachbearbeiter,String) End If If (vk_QS_Bemerkung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(vk_QS_Bemerkung,String) End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(vk_GeldEingetroffen,Boolean) If (vk_BH_SachbearbeiterId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(vk_BH_SachbearbeiterId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (vk_BH_Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(vk_BH_Sachbearbeiter,String) End If If (vk_BH_Bemerkung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(vk_BH_Bemerkung,String) End If If (vk_BH_DatumGeldeingang.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(vk_BH_DatumGeldeingang.Value,Date) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(15).Value = CType(vk_storno,Boolean) If (vk_stornoDatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(vk_stornoDatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (vk_Rolle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(vk_Rolle,String) End If If (vk_Anrede Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(vk_Anrede,String) End If If (vk_Firmenwortlauf Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(vk_Firmenwortlauf,String) End If If (vk_Aresse1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(vk_Aresse1,String) End If If (vk_Adresse2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(vk_Adresse2,String) End If If (vk_UID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(vk_UID,String) End If If (vk_EORI Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(vk_EORI,String) End If If (vk_Tel Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(vk_Tel,String) End If If (vk_Fax Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(vk_Fax,String) End If If (vk_Email Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(vk_Email,String) End If If (vk_RgNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(27).Value = CType(vk_RgNr,String) End If If (vk_Absender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(vk_Absender,String) End If If (vk_ATREUR1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(vk_ATREUR1,String) End If If (vk_Fraechter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(vk_Fraechter,String) End If If (vk_Anzahl Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(vk_Anzahl,String) End If If (vk_Warenbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(vk_Warenbezeichnung,String) End If If (vk_Colli Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(vk_Colli,String) End If If (vk_FaStNr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(vk_FaStNr,String) End If If (vk_Berechnung_Rechnungsbetrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(35).Value = CType(vk_Berechnung_Rechnungsbetrag.Value,Double) Else Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (vk_Berechnung_FrachtkostAusland.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(36).Value = CType(vk_Berechnung_FrachtkostAusland.Value,Double) Else Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (vk_Berechnung_ZollProz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(37).Value = CType(vk_Berechnung_ZollProz.Value,Double) Else Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (vk_Berechnung_FrachtkostInland.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(38).Value = CType(vk_Berechnung_FrachtkostInland.Value,Double) Else Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (vk_Berechnung_AbgabenSonst_Bez Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(vk_Berechnung_AbgabenSonst_Bez,String) End If If (vk_Berechnung_AbgabenSonst_Betrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(40).Value = CType(vk_Berechnung_AbgabenSonst_Betrag.Value,Double) Else Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (vk_Berechnung_EUSTProz.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(41).Value = CType(vk_Berechnung_EUSTProz.Value,Double) Else Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (vk_Berechnung_KostenSonst_Bez Is Nothing) Then Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(42).Value = CType(vk_Berechnung_KostenSonst_Bez,String) End If If (vk_Berechnung_KostenSonst_Betrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(43).Value = CType(vk_Berechnung_KostenSonst_Betrag.Value,Double) Else Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (vk_Berechnung_Verzollung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(44).Value = CType(vk_Berechnung_Verzollung.Value,Double) Else Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (vk_Berechnung_jeWeitere.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(45).Value = CType(vk_Berechnung_jeWeitere.Value,Double) Else Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (vk_Berechnung_ATLAS.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(46).Value = CType(vk_Berechnung_ATLAS.Value,Double) Else Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (vk_Berechnung_Clearing.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(47).Value = CType(vk_Berechnung_Clearing.Value,Double) Else Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (vk_Berechnung_korrRg.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(48).Value = CType(vk_Berechnung_korrRg.Value,Double) Else Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (vk_Berechnung_Übersetzung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(49).Value = CType(vk_Berechnung_Übersetzung.Value,Double) Else Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (vk_Berechnung_Aviso.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(50).Value = CType(vk_Berechnung_Aviso.Value,Double) Else Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (vk_Berechnung_SVS.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(51).Value = CType(vk_Berechnung_SVS.Value,Double) Else Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (vk_Berechnung_SonstigeKosten.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(52).Value = CType(vk_Berechnung_SonstigeKosten.Value,Double) Else Me.Adapter.InsertCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (vk_Berechnung_SonstigeKostenText Is Nothing) Then Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(53).Value = CType(vk_Berechnung_SonstigeKostenText,String) End If If (vk_Berechnung_PP.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(54).Value = CType(vk_Berechnung_PP.Value,Double) Else Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(55).Value = CType(vk_Freigegeben,Boolean) If (vk_SendungId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(56).Value = CType(vk_SendungId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (vk_AvisoId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(57).Value = CType(vk_AvisoId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (vk_VermerkId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(58).Value = CType(vk_VermerkId.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(58).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 vk_FilialeNr As Global.System.Nullable(Of Integer), _ ByVal vk_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal vk_Datum As Date, _ ByVal vk_LKW As String, _ ByVal vk_KdNr As Global.System.Nullable(Of Integer), _ ByVal vk_Firma As String, _ ByVal vk_Betrag As Decimal, _ ByVal vk_QS_SachbearbeiterId As Integer, _ ByVal vk_QS_Sachbearbeiter As String, _ ByVal vk_QS_Bemerkung As String, _ ByVal vk_GeldEingetroffen As Boolean, _ ByVal vk_BH_SachbearbeiterId As Global.System.Nullable(Of Integer), _ ByVal vk_BH_Sachbearbeiter As String, _ ByVal vk_BH_Bemerkung As String, _ ByVal vk_BH_DatumGeldeingang As Global.System.Nullable(Of Date), _ ByVal vk_storno As Boolean, _ ByVal vk_stornoDatum As Global.System.Nullable(Of Date), _ ByVal vk_Rolle As String, _ ByVal vk_Anrede As String, _ ByVal vk_Firmenwortlauf As String, _ ByVal vk_Aresse1 As String, _ ByVal vk_Adresse2 As String, _ ByVal vk_UID As String, _ ByVal vk_EORI As String, _ ByVal vk_Tel As String, _ ByVal vk_Fax As String, _ ByVal vk_Email As String, _ ByVal vk_RgNr As String, _ ByVal vk_Absender As String, _ ByVal vk_ATREUR1 As String, _ ByVal vk_Fraechter As String, _ ByVal vk_Anzahl As String, _ ByVal vk_Warenbezeichnung As String, _ ByVal vk_Colli As String, _ ByVal vk_FaStNr As String, _ ByVal vk_Berechnung_Rechnungsbetrag As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_FrachtkostAusland As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_ZollProz As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_FrachtkostInland As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_AbgabenSonst_Bez As String, _ ByVal vk_Berechnung_AbgabenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_EUSTProz As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_KostenSonst_Bez As String, _ ByVal vk_Berechnung_KostenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Verzollung As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_jeWeitere As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_ATLAS As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Clearing As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_korrRg As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Übersetzung As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Aviso As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_SVS As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_SonstigeKosten As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_SonstigeKostenText As String, _ ByVal vk_Berechnung_PP As Global.System.Nullable(Of Double), _ ByVal vk_Freigegeben As Boolean, _ ByVal vk_SendungId As Global.System.Nullable(Of Integer), _ ByVal vk_AvisoId As Global.System.Nullable(Of Integer), _ ByVal vk_VermerkId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_id As Integer, _ ByVal Original_vk_FilialeNr As Global.System.Nullable(Of Integer), _ ByVal Original_vk_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_vk_Datum As Date, _ ByVal Original_vk_LKW As String, _ ByVal Original_vk_KdNr As Global.System.Nullable(Of Integer), _ ByVal Original_vk_Firma As String, _ ByVal Original_vk_Betrag As Decimal, _ ByVal Original_vk_QS_SachbearbeiterId As Integer, _ ByVal Original_vk_QS_Sachbearbeiter As String, _ ByVal Original_vk_QS_Bemerkung As String, _ ByVal Original_vk_GeldEingetroffen As Boolean, _ ByVal Original_vk_BH_SachbearbeiterId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_BH_Sachbearbeiter As String, _ ByVal Original_vk_BH_Bemerkung As String, _ ByVal Original_vk_BH_DatumGeldeingang As Global.System.Nullable(Of Date), _ ByVal Original_vk_storno As Boolean, _ ByVal Original_vk_stornoDatum As Global.System.Nullable(Of Date), _ ByVal Original_vk_Rolle As String, _ ByVal Original_vk_Anrede As String, _ ByVal Original_vk_Firmenwortlauf As String, _ ByVal Original_vk_Aresse1 As String, _ ByVal Original_vk_Adresse2 As String, _ ByVal Original_vk_UID As String, _ ByVal Original_vk_EORI As String, _ ByVal Original_vk_Tel As String, _ ByVal Original_vk_Fax As String, _ ByVal Original_vk_Email As String, _ ByVal Original_vk_RgNr As String, _ ByVal Original_vk_Absender As String, _ ByVal Original_vk_ATREUR1 As String, _ ByVal Original_vk_Fraechter As String, _ ByVal Original_vk_Anzahl As String, _ ByVal Original_vk_Warenbezeichnung As String, _ ByVal Original_vk_Colli As String, _ ByVal Original_vk_FaStNr As String, _ ByVal Original_vk_Berechnung_Rechnungsbetrag As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_FrachtkostAusland As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_ZollProz As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_FrachtkostInland As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_AbgabenSonst_Bez As String, _ ByVal Original_vk_Berechnung_AbgabenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_EUSTProz As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_KostenSonst_Bez As String, _ ByVal Original_vk_Berechnung_KostenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Verzollung As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_jeWeitere As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_ATLAS As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Clearing As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_korrRg As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Übersetzung As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Aviso As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_SVS As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_SonstigeKosten As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_SonstigeKostenText As String, _ ByVal Original_vk_Berechnung_PP As Global.System.Nullable(Of Double), _ ByVal Original_vk_Freigegeben As Boolean, _ ByVal Original_vk_SendungId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_VermerkId As Global.System.Nullable(Of Integer), _ ByVal vk_id As Integer) As Integer If (vk_FilialeNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(vk_FilialeNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (vk_AbfertigungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(vk_AbfertigungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(vk_Datum,Date) If (vk_LKW Is Nothing) Then Throw New Global.System.ArgumentNullException("vk_LKW") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(vk_LKW,String) End If If (vk_KdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(vk_KdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (vk_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("vk_Firma") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(vk_Firma,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(vk_Betrag,Decimal) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(vk_QS_SachbearbeiterId,Integer) If (vk_QS_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("vk_QS_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(vk_QS_Sachbearbeiter,String) End If If (vk_QS_Bemerkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(vk_QS_Bemerkung,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(vk_GeldEingetroffen,Boolean) If (vk_BH_SachbearbeiterId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(vk_BH_SachbearbeiterId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (vk_BH_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(vk_BH_Sachbearbeiter,String) End If If (vk_BH_Bemerkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(vk_BH_Bemerkung,String) End If If (vk_BH_DatumGeldeingang.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(vk_BH_DatumGeldeingang.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(vk_storno,Boolean) If (vk_stornoDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(vk_stornoDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (vk_Rolle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(vk_Rolle,String) End If If (vk_Anrede Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(vk_Anrede,String) End If If (vk_Firmenwortlauf Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(vk_Firmenwortlauf,String) End If If (vk_Aresse1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(vk_Aresse1,String) End If If (vk_Adresse2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(vk_Adresse2,String) End If If (vk_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(vk_UID,String) End If If (vk_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(vk_EORI,String) End If If (vk_Tel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(vk_Tel,String) End If If (vk_Fax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(vk_Fax,String) End If If (vk_Email Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(vk_Email,String) End If If (vk_RgNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(vk_RgNr,String) End If If (vk_Absender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(vk_Absender,String) End If If (vk_ATREUR1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(vk_ATREUR1,String) End If If (vk_Fraechter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(vk_Fraechter,String) End If If (vk_Anzahl Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(vk_Anzahl,String) End If If (vk_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(vk_Warenbezeichnung,String) End If If (vk_Colli Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(vk_Colli,String) End If If (vk_FaStNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(vk_FaStNr,String) End If If (vk_Berechnung_Rechnungsbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(vk_Berechnung_Rechnungsbetrag.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (vk_Berechnung_FrachtkostAusland.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(vk_Berechnung_FrachtkostAusland.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (vk_Berechnung_ZollProz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(vk_Berechnung_ZollProz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (vk_Berechnung_FrachtkostInland.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(vk_Berechnung_FrachtkostInland.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (vk_Berechnung_AbgabenSonst_Bez Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(vk_Berechnung_AbgabenSonst_Bez,String) End If If (vk_Berechnung_AbgabenSonst_Betrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(vk_Berechnung_AbgabenSonst_Betrag.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value End If If (vk_Berechnung_EUSTProz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(vk_Berechnung_EUSTProz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (vk_Berechnung_KostenSonst_Bez Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(vk_Berechnung_KostenSonst_Bez,String) End If If (vk_Berechnung_KostenSonst_Betrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(vk_Berechnung_KostenSonst_Betrag.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value End If If (vk_Berechnung_Verzollung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(vk_Berechnung_Verzollung.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value End If If (vk_Berechnung_jeWeitere.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(vk_Berechnung_jeWeitere.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (vk_Berechnung_ATLAS.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(vk_Berechnung_ATLAS.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (vk_Berechnung_Clearing.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(vk_Berechnung_Clearing.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (vk_Berechnung_korrRg.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(vk_Berechnung_korrRg.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (vk_Berechnung_Übersetzung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(vk_Berechnung_Übersetzung.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (vk_Berechnung_Aviso.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(vk_Berechnung_Aviso.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (vk_Berechnung_SVS.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(vk_Berechnung_SVS.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (vk_Berechnung_SonstigeKosten.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(vk_Berechnung_SonstigeKosten.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (vk_Berechnung_SonstigeKostenText Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(vk_Berechnung_SonstigeKostenText,String) End If If (vk_Berechnung_PP.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(vk_Berechnung_PP.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(55).Value = CType(vk_Freigegeben,Boolean) If (vk_SendungId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(vk_SendungId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (vk_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(vk_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (vk_VermerkId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(vk_VermerkId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_vk_id,Integer) If (Original_vk_FilialeNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_vk_FilialeNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value End If If (Original_vk_AbfertigungsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_vk_AbfertigungsNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_vk_Datum,Date) If (Original_vk_LKW Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_vk_LKW") Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_vk_LKW,String) End If If (Original_vk_KdNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_vk_KdNr.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value End If If (Original_vk_Firma Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_vk_Firma") Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_vk_Firma,String) End If Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_vk_Betrag,Decimal) Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_vk_QS_SachbearbeiterId,Integer) If (Original_vk_QS_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_vk_QS_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_vk_QS_Sachbearbeiter,String) End If If (Original_vk_QS_Bemerkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_vk_QS_Bemerkung,String) End If Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_vk_GeldEingetroffen,Boolean) If (Original_vk_BH_SachbearbeiterId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_vk_BH_SachbearbeiterId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value End If If (Original_vk_BH_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_vk_BH_Sachbearbeiter,String) End If If (Original_vk_BH_Bemerkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_vk_BH_Bemerkung,String) End If If (Original_vk_BH_DatumGeldeingang.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_vk_BH_DatumGeldeingang.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_vk_storno,Boolean) If (Original_vk_stornoDatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_vk_stornoDatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Original_vk_Rolle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_vk_Rolle,String) End If If (Original_vk_Anrede Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_vk_Anrede,String) End If If (Original_vk_Firmenwortlauf Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_vk_Firmenwortlauf,String) End If If (Original_vk_Aresse1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_vk_Aresse1,String) End If If (Original_vk_Adresse2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_vk_Adresse2,String) End If If (Original_vk_UID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_vk_UID,String) End If If (Original_vk_EORI Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_vk_EORI,String) End If If (Original_vk_Tel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = CType(Original_vk_Tel,String) End If If (Original_vk_Fax Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(103).Value = CType(Original_vk_Fax,String) End If If (Original_vk_Email Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_vk_Email,String) End If If (Original_vk_RgNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(107).Value = CType(Original_vk_RgNr,String) End If If (Original_vk_Absender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(109).Value = CType(Original_vk_Absender,String) End If If (Original_vk_ATREUR1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(111).Value = CType(Original_vk_ATREUR1,String) End If If (Original_vk_Fraechter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(113).Value = CType(Original_vk_Fraechter,String) End If If (Original_vk_Anzahl Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(115).Value = CType(Original_vk_Anzahl,String) End If If (Original_vk_Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(117).Value = CType(Original_vk_Warenbezeichnung,String) End If If (Original_vk_Colli Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(119).Value = CType(Original_vk_Colli,String) End If If (Original_vk_FaStNr Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(121).Value = CType(Original_vk_FaStNr,String) End If If (Original_vk_Berechnung_Rechnungsbetrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(122).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(123).Value = CType(Original_vk_Berechnung_Rechnungsbetrag.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(122).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_FrachtkostAusland.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(124).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(125).Value = CType(Original_vk_Berechnung_FrachtkostAusland.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(124).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_ZollProz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(126).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(127).Value = CType(Original_vk_Berechnung_ZollProz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(126).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_FrachtkostInland.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(128).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(129).Value = CType(Original_vk_Berechnung_FrachtkostInland.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(128).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_AbgabenSonst_Bez Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(130).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(130).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(131).Value = CType(Original_vk_Berechnung_AbgabenSonst_Bez,String) End If If (Original_vk_Berechnung_AbgabenSonst_Betrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(132).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(133).Value = CType(Original_vk_Berechnung_AbgabenSonst_Betrag.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(132).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_EUSTProz.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(134).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(135).Value = CType(Original_vk_Berechnung_EUSTProz.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(134).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_KostenSonst_Bez Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(136).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(136).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(137).Value = CType(Original_vk_Berechnung_KostenSonst_Bez,String) End If If (Original_vk_Berechnung_KostenSonst_Betrag.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(138).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(139).Value = CType(Original_vk_Berechnung_KostenSonst_Betrag.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(138).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_Verzollung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(140).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(141).Value = CType(Original_vk_Berechnung_Verzollung.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(140).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_jeWeitere.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(142).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(143).Value = CType(Original_vk_Berechnung_jeWeitere.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(142).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(143).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_ATLAS.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(144).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(145).Value = CType(Original_vk_Berechnung_ATLAS.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(144).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(145).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_Clearing.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(146).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(147).Value = CType(Original_vk_Berechnung_Clearing.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(146).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(147).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_korrRg.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(148).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(149).Value = CType(Original_vk_Berechnung_korrRg.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(148).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(149).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_Übersetzung.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(150).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(151).Value = CType(Original_vk_Berechnung_Übersetzung.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(150).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(151).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_Aviso.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(152).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(153).Value = CType(Original_vk_Berechnung_Aviso.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(152).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(153).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_SVS.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(154).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(155).Value = CType(Original_vk_Berechnung_SVS.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(154).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(155).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_SonstigeKosten.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(156).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(157).Value = CType(Original_vk_Berechnung_SonstigeKosten.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(156).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(157).Value = Global.System.DBNull.Value End If If (Original_vk_Berechnung_SonstigeKostenText Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(158).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(159).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(158).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(159).Value = CType(Original_vk_Berechnung_SonstigeKostenText,String) End If If (Original_vk_Berechnung_PP.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(160).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(161).Value = CType(Original_vk_Berechnung_PP.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(160).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(161).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(162).Value = CType(Original_vk_Freigegeben,Boolean) If (Original_vk_SendungId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(163).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = CType(Original_vk_SendungId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(163).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(164).Value = Global.System.DBNull.Value End If If (Original_vk_AvisoId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(165).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = CType(Original_vk_AvisoId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(165).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(166).Value = Global.System.DBNull.Value End If If (Original_vk_VermerkId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(167).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = CType(Original_vk_VermerkId.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(167).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(168).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(169).Value = CType(vk_id,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 vk_FilialeNr As Global.System.Nullable(Of Integer), _ ByVal vk_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal vk_Datum As Date, _ ByVal vk_LKW As String, _ ByVal vk_KdNr As Global.System.Nullable(Of Integer), _ ByVal vk_Firma As String, _ ByVal vk_Betrag As Decimal, _ ByVal vk_QS_SachbearbeiterId As Integer, _ ByVal vk_QS_Sachbearbeiter As String, _ ByVal vk_QS_Bemerkung As String, _ ByVal vk_GeldEingetroffen As Boolean, _ ByVal vk_BH_SachbearbeiterId As Global.System.Nullable(Of Integer), _ ByVal vk_BH_Sachbearbeiter As String, _ ByVal vk_BH_Bemerkung As String, _ ByVal vk_BH_DatumGeldeingang As Global.System.Nullable(Of Date), _ ByVal vk_storno As Boolean, _ ByVal vk_stornoDatum As Global.System.Nullable(Of Date), _ ByVal vk_Rolle As String, _ ByVal vk_Anrede As String, _ ByVal vk_Firmenwortlauf As String, _ ByVal vk_Aresse1 As String, _ ByVal vk_Adresse2 As String, _ ByVal vk_UID As String, _ ByVal vk_EORI As String, _ ByVal vk_Tel As String, _ ByVal vk_Fax As String, _ ByVal vk_Email As String, _ ByVal vk_RgNr As String, _ ByVal vk_Absender As String, _ ByVal vk_ATREUR1 As String, _ ByVal vk_Fraechter As String, _ ByVal vk_Anzahl As String, _ ByVal vk_Warenbezeichnung As String, _ ByVal vk_Colli As String, _ ByVal vk_FaStNr As String, _ ByVal vk_Berechnung_Rechnungsbetrag As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_FrachtkostAusland As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_ZollProz As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_FrachtkostInland As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_AbgabenSonst_Bez As String, _ ByVal vk_Berechnung_AbgabenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_EUSTProz As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_KostenSonst_Bez As String, _ ByVal vk_Berechnung_KostenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Verzollung As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_jeWeitere As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_ATLAS As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Clearing As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_korrRg As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Übersetzung As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_Aviso As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_SVS As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_SonstigeKosten As Global.System.Nullable(Of Double), _ ByVal vk_Berechnung_SonstigeKostenText As String, _ ByVal vk_Berechnung_PP As Global.System.Nullable(Of Double), _ ByVal vk_Freigegeben As Boolean, _ ByVal vk_SendungId As Global.System.Nullable(Of Integer), _ ByVal vk_AvisoId As Global.System.Nullable(Of Integer), _ ByVal vk_VermerkId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_id As Integer, _ ByVal Original_vk_FilialeNr As Global.System.Nullable(Of Integer), _ ByVal Original_vk_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal Original_vk_Datum As Date, _ ByVal Original_vk_LKW As String, _ ByVal Original_vk_KdNr As Global.System.Nullable(Of Integer), _ ByVal Original_vk_Firma As String, _ ByVal Original_vk_Betrag As Decimal, _ ByVal Original_vk_QS_SachbearbeiterId As Integer, _ ByVal Original_vk_QS_Sachbearbeiter As String, _ ByVal Original_vk_QS_Bemerkung As String, _ ByVal Original_vk_GeldEingetroffen As Boolean, _ ByVal Original_vk_BH_SachbearbeiterId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_BH_Sachbearbeiter As String, _ ByVal Original_vk_BH_Bemerkung As String, _ ByVal Original_vk_BH_DatumGeldeingang As Global.System.Nullable(Of Date), _ ByVal Original_vk_storno As Boolean, _ ByVal Original_vk_stornoDatum As Global.System.Nullable(Of Date), _ ByVal Original_vk_Rolle As String, _ ByVal Original_vk_Anrede As String, _ ByVal Original_vk_Firmenwortlauf As String, _ ByVal Original_vk_Aresse1 As String, _ ByVal Original_vk_Adresse2 As String, _ ByVal Original_vk_UID As String, _ ByVal Original_vk_EORI As String, _ ByVal Original_vk_Tel As String, _ ByVal Original_vk_Fax As String, _ ByVal Original_vk_Email As String, _ ByVal Original_vk_RgNr As String, _ ByVal Original_vk_Absender As String, _ ByVal Original_vk_ATREUR1 As String, _ ByVal Original_vk_Fraechter As String, _ ByVal Original_vk_Anzahl As String, _ ByVal Original_vk_Warenbezeichnung As String, _ ByVal Original_vk_Colli As String, _ ByVal Original_vk_FaStNr As String, _ ByVal Original_vk_Berechnung_Rechnungsbetrag As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_FrachtkostAusland As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_ZollProz As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_FrachtkostInland As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_AbgabenSonst_Bez As String, _ ByVal Original_vk_Berechnung_AbgabenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_EUSTProz As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_KostenSonst_Bez As String, _ ByVal Original_vk_Berechnung_KostenSonst_Betrag As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Verzollung As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_jeWeitere As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_ATLAS As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Clearing As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_korrRg As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Übersetzung As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_Aviso As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_SVS As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_SonstigeKosten As Global.System.Nullable(Of Double), _ ByVal Original_vk_Berechnung_SonstigeKostenText As String, _ ByVal Original_vk_Berechnung_PP As Global.System.Nullable(Of Double), _ ByVal Original_vk_Freigegeben As Boolean, _ ByVal Original_vk_SendungId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_AvisoId As Global.System.Nullable(Of Integer), _ ByVal Original_vk_VermerkId As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(vk_FilialeNr, vk_AbfertigungsNr, vk_Datum, vk_LKW, vk_KdNr, vk_Firma, vk_Betrag, vk_QS_SachbearbeiterId, vk_QS_Sachbearbeiter, vk_QS_Bemerkung, vk_GeldEingetroffen, vk_BH_SachbearbeiterId, vk_BH_Sachbearbeiter, vk_BH_Bemerkung, vk_BH_DatumGeldeingang, vk_storno, vk_stornoDatum, vk_Rolle, vk_Anrede, vk_Firmenwortlauf, vk_Aresse1, vk_Adresse2, vk_UID, vk_EORI, vk_Tel, vk_Fax, vk_Email, vk_RgNr, vk_Absender, vk_ATREUR1, vk_Fraechter, vk_Anzahl, vk_Warenbezeichnung, vk_Colli, vk_FaStNr, vk_Berechnung_Rechnungsbetrag, vk_Berechnung_FrachtkostAusland, vk_Berechnung_ZollProz, vk_Berechnung_FrachtkostInland, vk_Berechnung_AbgabenSonst_Bez, vk_Berechnung_AbgabenSonst_Betrag, vk_Berechnung_EUSTProz, vk_Berechnung_KostenSonst_Bez, vk_Berechnung_KostenSonst_Betrag, vk_Berechnung_Verzollung, vk_Berechnung_jeWeitere, vk_Berechnung_ATLAS, vk_Berechnung_Clearing, vk_Berechnung_korrRg, vk_Berechnung_Übersetzung, vk_Berechnung_Aviso, vk_Berechnung_SVS, vk_Berechnung_SonstigeKosten, vk_Berechnung_SonstigeKostenText, vk_Berechnung_PP, vk_Freigegeben, vk_SendungId, vk_AvisoId, vk_VermerkId, Original_vk_id, Original_vk_FilialeNr, Original_vk_AbfertigungsNr, Original_vk_Datum, Original_vk_LKW, Original_vk_KdNr, Original_vk_Firma, Original_vk_Betrag, Original_vk_QS_SachbearbeiterId, Original_vk_QS_Sachbearbeiter, Original_vk_QS_Bemerkung, Original_vk_GeldEingetroffen, Original_vk_BH_SachbearbeiterId, Original_vk_BH_Sachbearbeiter, Original_vk_BH_Bemerkung, Original_vk_BH_DatumGeldeingang, Original_vk_storno, Original_vk_stornoDatum, Original_vk_Rolle, Original_vk_Anrede, Original_vk_Firmenwortlauf, Original_vk_Aresse1, Original_vk_Adresse2, Original_vk_UID, Original_vk_EORI, Original_vk_Tel, Original_vk_Fax, Original_vk_Email, Original_vk_RgNr, Original_vk_Absender, Original_vk_ATREUR1, Original_vk_Fraechter, Original_vk_Anzahl, Original_vk_Warenbezeichnung, Original_vk_Colli, Original_vk_FaStNr, Original_vk_Berechnung_Rechnungsbetrag, Original_vk_Berechnung_FrachtkostAusland, Original_vk_Berechnung_ZollProz, Original_vk_Berechnung_FrachtkostInland, Original_vk_Berechnung_AbgabenSonst_Bez, Original_vk_Berechnung_AbgabenSonst_Betrag, Original_vk_Berechnung_EUSTProz, Original_vk_Berechnung_KostenSonst_Bez, Original_vk_Berechnung_KostenSonst_Betrag, Original_vk_Berechnung_Verzollung, Original_vk_Berechnung_jeWeitere, Original_vk_Berechnung_ATLAS, Original_vk_Berechnung_Clearing, Original_vk_Berechnung_korrRg, Original_vk_Berechnung_Übersetzung, Original_vk_Berechnung_Aviso, Original_vk_Berechnung_SVS, Original_vk_Berechnung_SonstigeKosten, Original_vk_Berechnung_SonstigeKostenText, Original_vk_Berechnung_PP, Original_vk_Freigegeben, Original_vk_SendungId, Original_vk_AvisoId, Original_vk_VermerkId, Original_vk_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblWahrungtabelleNEUTableAdapter 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 = "tblWahrungtabelleNEU" tableMapping.ColumnMappings.Add("fw_id", "fw_id") tableMapping.ColumnMappings.Add("fw_land", "fw_land") tableMapping.ColumnMappings.Add("fw_iso2", "fw_iso2") tableMapping.ColumnMappings.Add("fw_kurswert", "fw_kurswert") tableMapping.ColumnMappings.Add("fw_iso3", "fw_iso3") tableMapping.ColumnMappings.Add("fw_importdatum", "fw_importdatum") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblWahrungtabelleNEU] ([fw_id], [fw_land], [fw_iso2], [fw_kurs"& _ "wert], [fw_iso3], [fw_importdatum]) VALUES (@fw_id, @fw_land, @fw_iso2, @fw_kurs"& _ "wert, @fw_iso3, @fw_importdatum)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_iso2", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_iso2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_kurswert", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_kurswert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_iso3", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_iso3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_importdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_importdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 fw_id, fw_land, fw_iso2, fw_kurswert, fw_iso3, fw_importdatum FROM dbo.tbl"& _ "WahrungtabelleNEU" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblWahrungtabelleNEUDataTable) 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 VERAGDataSet.tblWahrungtabelleNEUDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblWahrungtabelleNEUDataTable = New VERAGDataSet.tblWahrungtabelleNEUDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblWahrungtabelleNEUDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblWahrungtabelleNEU") 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 Insert(ByVal fw_id As Integer, ByVal fw_land As String, ByVal fw_iso2 As String, ByVal fw_kurswert As Double, ByVal fw_iso3 As String, ByVal fw_importdatum As Date) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(fw_id,Integer) If (fw_land Is Nothing) Then Throw New Global.System.ArgumentNullException("fw_land") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(fw_land,String) End If If (fw_iso2 Is Nothing) Then Throw New Global.System.ArgumentNullException("fw_iso2") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(fw_iso2,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(fw_kurswert,Double) If (fw_iso3 Is Nothing) Then Throw New Global.System.ArgumentNullException("fw_iso3") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(fw_iso3,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(fw_importdatum,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblWarenbezeichnungBegriffeTableAdapter 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 = "tblWarenbezeichnungBegriffe" tableMapping.ColumnMappings.Add("wb_id", "wb_id") tableMapping.ColumnMappings.Add("wb_begriff", "wb_begriff") tableMapping.ColumnMappings.Add("wb_beispiele", "wb_beispiele") tableMapping.ColumnMappings.Add("wb_datum", "wb_datum") tableMapping.ColumnMappings.Add("wb_Sachbearbeiter", "wb_Sachbearbeiter") tableMapping.ColumnMappings.Add("wb_SachbearbeiterId", "wb_SachbearbeiterId") 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].[tblWarenbezeichnungBegriffe] WHERE (([wb_id] = @Original_wb_id"& _ ") AND ([wb_begriff] = @Original_wb_begriff) AND ([wb_datum] = @Original_wb_datum"& _ ") AND ([wb_Sachbearbeiter] = @Original_wb_Sachbearbeiter) AND ([wb_Sachbearbeite"& _ "rId] = @Original_wb_SachbearbeiterId))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wb_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wb_begriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_begriff", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wb_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wb_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wb_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_SachbearbeiterId", 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].[tblWarenbezeichnungBegriffe] ([wb_begriff], [wb_beispiele], [w"& _ "b_datum], [wb_Sachbearbeiter], [wb_SachbearbeiterId]) VALUES (@wb_begriff, @wb_b"& _ "eispiele, @wb_datum, @wb_Sachbearbeiter, @wb_SachbearbeiterId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT wb_id, w"& _ "b_begriff, wb_beispiele, wb_datum, wb_Sachbearbeiter, wb_SachbearbeiterId FROM t"& _ "blWarenbezeichnungBegriffe WHERE (wb_id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_begriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_begriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_beispiele", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_beispiele", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_SachbearbeiterId", 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].[tblWarenbezeichnungBegriffe] SET [wb_begriff] = @wb_begriff, [wb_be"& _ "ispiele] = @wb_beispiele, [wb_datum] = @wb_datum, [wb_Sachbearbeiter] = @wb_Sach"& _ "bearbeiter, [wb_SachbearbeiterId] = @wb_SachbearbeiterId WHERE (([wb_id] = @Orig"& _ "inal_wb_id) AND ([wb_begriff] = @Original_wb_begriff) AND ([wb_datum] = @Origina"& _ "l_wb_datum) AND ([wb_Sachbearbeiter] = @Original_wb_Sachbearbeiter) AND ([wb_Sac"& _ "hbearbeiterId] = @Original_wb_SachbearbeiterId));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT wb_id, wb_begriff, wb_"& _ "beispiele, wb_datum, wb_Sachbearbeiter, wb_SachbearbeiterId FROM tblWarenbezeich"& _ "nungBegriffe WHERE (wb_id = @wb_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_begriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_begriff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_beispiele", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_beispiele", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_datum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_SachbearbeiterId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wb_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wb_begriff", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_begriff", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wb_datum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_datum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wb_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_wb_SachbearbeiterId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_SachbearbeiterId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@wb_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "wb_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 wb_id, wb_begriff, wb_beispiele, wb_datum, wb_Sachbearbeiter, wb_Sachbearb"& _ "eiterId FROM dbo.tblWarenbezeichnungBegriffe" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblWarenbezeichnungBegriffeDataTable) 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 VERAGDataSet.tblWarenbezeichnungBegriffeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblWarenbezeichnungBegriffeDataTable = New VERAGDataSet.tblWarenbezeichnungBegriffeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblWarenbezeichnungBegriffeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblWarenbezeichnungBegriffe") 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_wb_id As Integer, ByVal Original_wb_begriff As String, ByVal Original_wb_datum As Date, ByVal Original_wb_Sachbearbeiter As String, ByVal Original_wb_SachbearbeiterId As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_wb_id,Integer) If (Original_wb_begriff Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_wb_begriff") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_wb_begriff,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_wb_datum,Date) If (Original_wb_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_wb_Sachbearbeiter") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_wb_Sachbearbeiter,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_wb_SachbearbeiterId,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 wb_begriff As String, ByVal wb_beispiele As String, ByVal wb_datum As Date, ByVal wb_Sachbearbeiter As String, ByVal wb_SachbearbeiterId As Integer) As Integer If (wb_begriff Is Nothing) Then Throw New Global.System.ArgumentNullException("wb_begriff") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(wb_begriff,String) End If If (wb_beispiele Is Nothing) Then Throw New Global.System.ArgumentNullException("wb_beispiele") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(wb_beispiele,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(wb_datum,Date) If (wb_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("wb_Sachbearbeiter") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(wb_Sachbearbeiter,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(wb_SachbearbeiterId,Integer) 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 wb_begriff As String, ByVal wb_beispiele As String, ByVal wb_datum As Date, ByVal wb_Sachbearbeiter As String, ByVal wb_SachbearbeiterId As Integer, ByVal Original_wb_id As Integer, ByVal Original_wb_begriff As String, ByVal Original_wb_datum As Date, ByVal Original_wb_Sachbearbeiter As String, ByVal Original_wb_SachbearbeiterId As Integer, ByVal wb_id As Integer) As Integer If (wb_begriff Is Nothing) Then Throw New Global.System.ArgumentNullException("wb_begriff") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(wb_begriff,String) End If If (wb_beispiele Is Nothing) Then Throw New Global.System.ArgumentNullException("wb_beispiele") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(wb_beispiele,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(wb_datum,Date) If (wb_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("wb_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(wb_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(wb_SachbearbeiterId,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_wb_id,Integer) If (Original_wb_begriff Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_wb_begriff") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_wb_begriff,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_wb_datum,Date) If (Original_wb_Sachbearbeiter Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_wb_Sachbearbeiter") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_wb_Sachbearbeiter,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_wb_SachbearbeiterId,Integer) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(wb_id,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 wb_begriff As String, ByVal wb_beispiele As String, ByVal wb_datum As Date, ByVal wb_Sachbearbeiter As String, ByVal wb_SachbearbeiterId As Integer, ByVal Original_wb_id As Integer, ByVal Original_wb_begriff As String, ByVal Original_wb_datum As Date, ByVal Original_wb_Sachbearbeiter As String, ByVal Original_wb_SachbearbeiterId As Integer) As Integer Return Me.Update(wb_begriff, wb_beispiele, wb_datum, wb_Sachbearbeiter, wb_SachbearbeiterId, Original_wb_id, Original_wb_begriff, Original_wb_datum, Original_wb_Sachbearbeiter, Original_wb_SachbearbeiterId, Original_wb_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblZabis_Atlas_NCTSTableAdapter 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 = "tblZabis_Atlas_NCTS" tableMapping.ColumnMappings.Add("ID_NCTS", "ID_NCTS") tableMapping.ColumnMappings.Add("basman_nr", "basman_nr") tableMapping.ColumnMappings.Add("basman_nl", "basman_nl") tableMapping.ColumnMappings.Add("veoant_beznr", "veoant_beznr") tableMapping.ColumnMappings.Add("veoant_lfdnr", "veoant_lfdnr") tableMapping.ColumnMappings.Add("veoant_stat", "veoant_stat") tableMapping.ColumnMappings.Add("veoant_arbnr", "veoant_arbnr") tableMapping.ColumnMappings.Add("veoant_mrn", "veoant_mrn") tableMapping.ColumnMappings.Add("veoant_abgdst", "veoant_abgdst") tableMapping.ColumnMappings.Add("veoant_bedst", "veoant_bedst") tableMapping.ColumnMappings.Add("veoant_wgdat", "veoant_wgdat") tableMapping.ColumnMappings.Add("veoant_anzpos", "veoant_anzpos") tableMapping.ColumnMappings.Add("veoant_andat", "veoant_andat") tableMapping.ColumnMappings.Add("veoant_korant", "veoant_korant") tableMapping.ColumnMappings.Add("veoant_vrbdat", "veoant_vrbdat") tableMapping.ColumnMappings.Add("veoant_sb", "veoant_sb") tableMapping.ColumnMappings.Add("veopos_posnr", "veopos_posnr") tableMapping.ColumnMappings.Add("veopos_stat", "veopos_stat") tableMapping.ColumnMappings.Add("veopos_wbsch1", "veopos_wbsch1") tableMapping.ColumnMappings.Add("veopos_rohmas", "veopos_rohmas") tableMapping.ColumnMappings.Add("veoerz_sicbsc", "veoerz_sicbsc") tableMapping.ColumnMappings.Add("veoerz_basbtg", "veoerz_basbtg") tableMapping.ColumnMappings.Add("veoerz_sicbtg", "veoerz_sicbtg") tableMapping.ColumnMappings.Add("vegdat_erldat", "vegdat_erldat") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("History", "History") tableMapping.ColumnMappings.Add("veoadr_name1", "veoadr_name1") 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].[tblZabis_Atlas_NCTS] WHERE (([ID_NCTS] = @Original_ID_NCTS) AN"& _ "D ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_u"& _ "psize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID_NCTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID_NCTS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblZabis_Atlas_NCTS] ([basman_nr], [basman_nl], [veoant_beznr]"& _ ", [veoant_lfdnr], [veoant_stat], [veoant_arbnr], [veoant_mrn], [veoant_abgdst], "& _ "[veoant_bedst], [veoant_wgdat], [veoant_anzpos], [veoant_andat], [veoant_korant]"& _ ", [veoant_vrbdat], [veoant_sb], [veopos_posnr], [veopos_stat], [veopos_wbsch1], "& _ "[veopos_rohmas], [veoerz_sicbsc], [veoerz_basbtg], [veoerz_sicbtg], [vegdat_erld"& _ "at], [History], [veoadr_name1]) VALUES (@basman_nr, @basman_nl, @veoant_beznr, @"& _ "veoant_lfdnr, @veoant_stat, @veoant_arbnr, @veoant_mrn, @veoant_abgdst, @veoant_"& _ "bedst, @veoant_wgdat, @veoant_anzpos, @veoant_andat, @veoant_korant, @veoant_vrb"& _ "dat, @veoant_sb, @veopos_posnr, @veopos_stat, @veopos_wbsch1, @veopos_rohmas, @v"& _ "eoerz_sicbsc, @veoerz_basbtg, @veoerz_sicbtg, @vegdat_erldat, @History, @veoadr_"& _ "name1);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID_NCTS, basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veoan"& _ "t_stat, veoant_arbnr, veoant_mrn, veoant_abgdst, veoant_bedst, veoant_wgdat, veo"& _ "ant_anzpos, veoant_andat, veoant_korant, veoant_vrbdat, veoant_sb, veopos_posnr,"& _ " veopos_stat, veopos_wbsch1, veopos_rohmas, veoerz_sicbsc, veoerz_basbtg, veoerz"& _ "_sicbtg, vegdat_erldat, upsize_ts, History, veoadr_name1 FROM tblZabis_Atlas_NCT"& _ "S WHERE (ID_NCTS = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@basman_nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "basman_nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@basman_nl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "basman_nl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_beznr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_beznr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_lfdnr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_lfdnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_arbnr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_arbnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_mrn", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_mrn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_abgdst", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_abgdst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_bedst", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_bedst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_wgdat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_wgdat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_anzpos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_anzpos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_andat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_andat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_korant", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_korant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_vrbdat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_vrbdat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_sb", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_sb", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veopos_posnr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veopos_posnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veopos_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veopos_stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veopos_wbsch1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veopos_wbsch1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veopos_rohmas", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "veopos_rohmas", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoerz_sicbsc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoerz_sicbsc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoerz_basbtg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "veoerz_basbtg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoerz_sicbtg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "veoerz_sicbtg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vegdat_erldat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vegdat_erldat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@History", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "History", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoadr_name1", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoadr_name1", 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].[tblZabis_Atlas_NCTS] SET [basman_nr] = @basman_nr, [basman_nl] = @b"& _ "asman_nl, [veoant_beznr] = @veoant_beznr, [veoant_lfdnr] = @veoant_lfdnr, [veoan"& _ "t_stat] = @veoant_stat, [veoant_arbnr] = @veoant_arbnr, [veoant_mrn] = @veoant_m"& _ "rn, [veoant_abgdst] = @veoant_abgdst, [veoant_bedst] = @veoant_bedst, [veoant_wg"& _ "dat] = @veoant_wgdat, [veoant_anzpos] = @veoant_anzpos, [veoant_andat] = @veoant"& _ "_andat, [veoant_korant] = @veoant_korant, [veoant_vrbdat] = @veoant_vrbdat, [veo"& _ "ant_sb] = @veoant_sb, [veopos_posnr] = @veopos_posnr, [veopos_stat] = @veopos_st"& _ "at, [veopos_wbsch1] = @veopos_wbsch1, [veopos_rohmas] = @veopos_rohmas, [veoerz_"& _ "sicbsc] = @veoerz_sicbsc, [veoerz_basbtg] = @veoerz_basbtg, [veoerz_sicbtg] = @v"& _ "eoerz_sicbtg, [vegdat_erldat] = @vegdat_erldat, [History] = @History, [veoadr_na"& _ "me1] = @veoadr_name1 WHERE (([ID_NCTS] = @Original_ID_NCTS) AND ((@IsNull_upsize"& _ "_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ "CT ID_NCTS, basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veoant_stat, veoan"& _ "t_arbnr, veoant_mrn, veoant_abgdst, veoant_bedst, veoant_wgdat, veoant_anzpos, v"& _ "eoant_andat, veoant_korant, veoant_vrbdat, veoant_sb, veopos_posnr, veopos_stat,"& _ " veopos_wbsch1, veopos_rohmas, veoerz_sicbsc, veoerz_basbtg, veoerz_sicbtg, vegd"& _ "at_erldat, upsize_ts, History, veoadr_name1 FROM tblZabis_Atlas_NCTS WHERE (ID_N"& _ "CTS = @ID_NCTS)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@basman_nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "basman_nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@basman_nl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "basman_nl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_beznr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_beznr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_lfdnr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_lfdnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_arbnr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_arbnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_mrn", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_mrn", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_abgdst", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_abgdst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_bedst", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_bedst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_wgdat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_wgdat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_anzpos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_anzpos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_andat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_andat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_korant", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_korant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_vrbdat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_vrbdat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_sb", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoant_sb", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veopos_posnr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veopos_posnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veopos_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veopos_stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veopos_wbsch1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veopos_wbsch1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veopos_rohmas", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 14, 3, "veopos_rohmas", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoerz_sicbsc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoerz_sicbsc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoerz_basbtg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "veoerz_basbtg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoerz_sicbtg", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 2, "veoerz_sicbtg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vegdat_erldat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vegdat_erldat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@History", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "History", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoadr_name1", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "veoadr_name1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID_NCTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID_NCTS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID_NCTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID_NCTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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_NCTS, basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veoant_stat, ve"& _ "oant_arbnr, veoant_mrn, veoant_abgdst, veoant_bedst, veoant_wgdat, veoant_anzpos"& _ ", veoant_andat, veoant_korant, veoant_vrbdat, veoant_sb, veopos_posnr, veopos_st"& _ "at, veopos_wbsch1, veopos_rohmas, veoerz_sicbsc, veoerz_basbtg, veoerz_sicbtg, v"& _ "egdat_erldat, upsize_ts, History, veoadr_name1 FROM dbo.tblZabis_Atlas_NCTS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblZabis_Atlas_NCTSDataTable) 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 VERAGDataSet.tblZabis_Atlas_NCTSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblZabis_Atlas_NCTSDataTable = New VERAGDataSet.tblZabis_Atlas_NCTSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblZabis_Atlas_NCTSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblZabis_Atlas_NCTS") 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_ID_NCTS As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID_NCTS,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 basman_nr As String, _ ByVal basman_nl As String, _ ByVal veoant_beznr As String, _ ByVal veoant_lfdnr As Short, _ ByVal veoant_stat As Short, _ ByVal veoant_arbnr As String, _ ByVal veoant_mrn As String, _ ByVal veoant_abgdst As String, _ ByVal veoant_bedst As String, _ ByVal veoant_wgdat As Global.System.Nullable(Of Date), _ ByVal veoant_anzpos As Short, _ ByVal veoant_andat As Global.System.Nullable(Of Date), _ ByVal veoant_korant As Short, _ ByVal veoant_vrbdat As Global.System.Nullable(Of Date), _ ByVal veoant_sb As String, _ ByVal veopos_posnr As Short, _ ByVal veopos_stat As Short, _ ByVal veopos_wbsch1 As String, _ ByVal veopos_rohmas As Decimal, _ ByVal veoerz_sicbsc As String, _ ByVal veoerz_basbtg As Decimal, _ ByVal veoerz_sicbtg As Decimal, _ ByVal vegdat_erldat As Global.System.Nullable(Of Date), _ ByVal History As Global.System.Nullable(Of Boolean), _ ByVal veoadr_name1 As String) As Integer If (basman_nr Is Nothing) Then Throw New Global.System.ArgumentNullException("basman_nr") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(basman_nr,String) End If If (basman_nl Is Nothing) Then Throw New Global.System.ArgumentNullException("basman_nl") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(basman_nl,String) End If If (veoant_beznr Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_beznr") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(veoant_beznr,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(veoant_lfdnr,Short) Me.Adapter.InsertCommand.Parameters(4).Value = CType(veoant_stat,Short) If (veoant_arbnr Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_arbnr") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(veoant_arbnr,String) End If If (veoant_mrn Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_mrn") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(veoant_mrn,String) End If If (veoant_abgdst Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_abgdst") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(veoant_abgdst,String) End If If (veoant_bedst Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_bedst") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(veoant_bedst,String) End If If (veoant_wgdat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(veoant_wgdat.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(veoant_anzpos,Short) If (veoant_andat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(veoant_andat.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(12).Value = CType(veoant_korant,Short) If (veoant_vrbdat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(veoant_vrbdat.Value,Date) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (veoant_sb Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_sb") Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(veoant_sb,String) End If Me.Adapter.InsertCommand.Parameters(15).Value = CType(veopos_posnr,Short) Me.Adapter.InsertCommand.Parameters(16).Value = CType(veopos_stat,Short) If (veopos_wbsch1 Is Nothing) Then Throw New Global.System.ArgumentNullException("veopos_wbsch1") Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(veopos_wbsch1,String) End If Me.Adapter.InsertCommand.Parameters(18).Value = CType(veopos_rohmas,Decimal) If (veoerz_sicbsc Is Nothing) Then Throw New Global.System.ArgumentNullException("veoerz_sicbsc") Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(veoerz_sicbsc,String) End If Me.Adapter.InsertCommand.Parameters(20).Value = CType(veoerz_basbtg,Decimal) Me.Adapter.InsertCommand.Parameters(21).Value = CType(veoerz_sicbtg,Decimal) If (vegdat_erldat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(22).Value = CType(vegdat_erldat.Value,Date) Else Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (History.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(23).Value = CType(History.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (veoadr_name1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(veoadr_name1,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 basman_nr As String, _ ByVal basman_nl As String, _ ByVal veoant_beznr As String, _ ByVal veoant_lfdnr As Short, _ ByVal veoant_stat As Short, _ ByVal veoant_arbnr As String, _ ByVal veoant_mrn As String, _ ByVal veoant_abgdst As String, _ ByVal veoant_bedst As String, _ ByVal veoant_wgdat As Global.System.Nullable(Of Date), _ ByVal veoant_anzpos As Short, _ ByVal veoant_andat As Global.System.Nullable(Of Date), _ ByVal veoant_korant As Short, _ ByVal veoant_vrbdat As Global.System.Nullable(Of Date), _ ByVal veoant_sb As String, _ ByVal veopos_posnr As Short, _ ByVal veopos_stat As Short, _ ByVal veopos_wbsch1 As String, _ ByVal veopos_rohmas As Decimal, _ ByVal veoerz_sicbsc As String, _ ByVal veoerz_basbtg As Decimal, _ ByVal veoerz_sicbtg As Decimal, _ ByVal vegdat_erldat As Global.System.Nullable(Of Date), _ ByVal History As Global.System.Nullable(Of Boolean), _ ByVal veoadr_name1 As String, _ ByVal Original_ID_NCTS As Integer, _ ByVal Original_upsize_ts() As Byte, _ ByVal ID_NCTS As Integer) As Integer If (basman_nr Is Nothing) Then Throw New Global.System.ArgumentNullException("basman_nr") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(basman_nr,String) End If If (basman_nl Is Nothing) Then Throw New Global.System.ArgumentNullException("basman_nl") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(basman_nl,String) End If If (veoant_beznr Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_beznr") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(veoant_beznr,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(veoant_lfdnr,Short) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(veoant_stat,Short) If (veoant_arbnr Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_arbnr") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(veoant_arbnr,String) End If If (veoant_mrn Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_mrn") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(veoant_mrn,String) End If If (veoant_abgdst Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_abgdst") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(veoant_abgdst,String) End If If (veoant_bedst Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_bedst") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(veoant_bedst,String) End If If (veoant_wgdat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(veoant_wgdat.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(veoant_anzpos,Short) If (veoant_andat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(veoant_andat.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(veoant_korant,Short) If (veoant_vrbdat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(veoant_vrbdat.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (veoant_sb Is Nothing) Then Throw New Global.System.ArgumentNullException("veoant_sb") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(veoant_sb,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(veopos_posnr,Short) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(veopos_stat,Short) If (veopos_wbsch1 Is Nothing) Then Throw New Global.System.ArgumentNullException("veopos_wbsch1") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(veopos_wbsch1,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(veopos_rohmas,Decimal) If (veoerz_sicbsc Is Nothing) Then Throw New Global.System.ArgumentNullException("veoerz_sicbsc") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(veoerz_sicbsc,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(veoerz_basbtg,Decimal) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(veoerz_sicbtg,Decimal) If (vegdat_erldat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(vegdat_erldat.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (History.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(History.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (veoadr_name1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(veoadr_name1,String) End If Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_ID_NCTS,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(ID_NCTS,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 basman_nr As String, _ ByVal basman_nl As String, _ ByVal veoant_beznr As String, _ ByVal veoant_lfdnr As Short, _ ByVal veoant_stat As Short, _ ByVal veoant_arbnr As String, _ ByVal veoant_mrn As String, _ ByVal veoant_abgdst As String, _ ByVal veoant_bedst As String, _ ByVal veoant_wgdat As Global.System.Nullable(Of Date), _ ByVal veoant_anzpos As Short, _ ByVal veoant_andat As Global.System.Nullable(Of Date), _ ByVal veoant_korant As Short, _ ByVal veoant_vrbdat As Global.System.Nullable(Of Date), _ ByVal veoant_sb As String, _ ByVal veopos_posnr As Short, _ ByVal veopos_stat As Short, _ ByVal veopos_wbsch1 As String, _ ByVal veopos_rohmas As Decimal, _ ByVal veoerz_sicbsc As String, _ ByVal veoerz_basbtg As Decimal, _ ByVal veoerz_sicbtg As Decimal, _ ByVal vegdat_erldat As Global.System.Nullable(Of Date), _ ByVal History As Global.System.Nullable(Of Boolean), _ ByVal veoadr_name1 As String, _ ByVal Original_ID_NCTS As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veoant_stat, veoant_arbnr, veoant_mrn, veoant_abgdst, veoant_bedst, veoant_wgdat, veoant_anzpos, veoant_andat, veoant_korant, veoant_vrbdat, veoant_sb, veopos_posnr, veopos_stat, veopos_wbsch1, veopos_rohmas, veoerz_sicbsc, veoerz_basbtg, veoerz_sicbtg, vegdat_erldat, History, veoadr_name1, Original_ID_NCTS, Original_upsize_ts, Original_ID_NCTS) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblZahlungszieltexteTableAdapter 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 = "tblZahlungszieltexte" tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("Text", "Text") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[tblZahlungszieltexte] WHERE (([LandKz] = @Original_LandKz) AND"& _ " ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[tblZahlungszieltexte] ([LandKz], [Text]) VALUES (@LandKz, @Tex"& _ "t);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT LandKz, Text, SSMA_TimeStamp FROM tblZahlungszieltexte WHERE (LandKz"& _ " = @LandKz)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Text", 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].[tblZahlungszieltexte] SET [LandKz] = @LandKz, [Text] = @Text WHERE "& _ "(([LandKz] = @Original_LandKz) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp)"& _ ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT LandKz, Text, SSMA_TimeStamp FROM tblZahlungszieltexte WHERE (LandKz "& _ "= @LandKz)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Text", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Text", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 LandKz, Text, SSMA_TimeStamp FROM dbo.tblZahlungszieltexte" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblZahlungszieltexteDataTable) 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 VERAGDataSet.tblZahlungszieltexteDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblZahlungszieltexteDataTable = New VERAGDataSet.tblZahlungszieltexteDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblZahlungszieltexteDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblZahlungszieltexte") 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_LandKz As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_LandKz Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LandKz") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_LandKz,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 LandKz As String, ByVal Text As String) As Integer If (LandKz Is Nothing) Then Throw New Global.System.ArgumentNullException("LandKz") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(LandKz,String) End If If (Text Is Nothing) Then Throw New Global.System.ArgumentNullException("Text") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Text,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 LandKz As String, ByVal Text As String, ByVal Original_LandKz As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (LandKz Is Nothing) Then Throw New Global.System.ArgumentNullException("LandKz") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LandKz,String) End If If (Text Is Nothing) Then Throw New Global.System.ArgumentNullException("Text") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Text,String) End If If (Original_LandKz Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LandKz") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_LandKz,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Text As String, ByVal Original_LandKz As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_LandKz, Text, Original_LandKz, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblZolaris_EZoll_NCTSTableAdapter 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 = "tblZolaris_EZoll_NCTS" tableMapping.ColumnMappings.Add("CRN", "CRN") tableMapping.ColumnMappings.Add("AnmeldungsDatum", "AnmeldungsDatum") tableMapping.ColumnMappings.Add("GarantieWert", "GarantieWert") tableMapping.ColumnMappings.Add("AnmID", "AnmID") tableMapping.ColumnMappings.Add("ErledigungsTypID", "ErledigungsTypID") tableMapping.ColumnMappings.Add("Warenbezeichnung", "Warenbezeichnung") tableMapping.ColumnMappings.Add("Absender", "Absender") tableMapping.ColumnMappings.Add("Empfaenger", "Empfaenger") tableMapping.ColumnMappings.Add("Gesamtrohmasse", "Gesamtrohmasse") tableMapping.ColumnMappings.Add("Abgangszollstelle", "Abgangszollstelle") tableMapping.ColumnMappings.Add("Bestimmungszollstelle", "Bestimmungszollstelle") tableMapping.ColumnMappings.Add("Gestellungsfrist", "Gestellungsfrist") tableMapping.ColumnMappings.Add("LRN", "LRN") tableMapping.ColumnMappings.Add("DatumBestimmungErreicht", "DatumBestimmungErreicht") tableMapping.ColumnMappings.Add("GRN", "GRN") tableMapping.ColumnMappings.Add("OperatorId", "OperatorId") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[tblZolaris_EZoll_NCTS] WHERE (([CRN] = @Original_CRN) AND ((@I"& _ "sNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_"& _ "ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CRN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[tblZolaris_EZoll_NCTS] ([CRN], [AnmeldungsDatum], [GarantieWer"& _ "t], [AnmID], [ErledigungsTypID], [Warenbezeichnung], [Absender], [Empfaenger], ["& _ "Gesamtrohmasse], [Abgangszollstelle], [Bestimmungszollstelle], [Gestellungsfrist"& _ "], [LRN], [DatumBestimmungErreicht], [GRN], [OperatorId]) VALUES (@CRN, @Anmeldu"& _ "ngsDatum, @GarantieWert, @AnmID, @ErledigungsTypID, @Warenbezeichnung, @Absender"& _ ", @Empfaenger, @Gesamtrohmasse, @Abgangszollstelle, @Bestimmungszollstelle, @Ges"& _ "tellungsfrist, @LRN, @DatumBestimmungErreicht, @GRN, @OperatorId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CRN, "& _ "AnmeldungsDatum, GarantieWert, AnmID, ErledigungsTypID, Warenbezeichnung, Absend"& _ "er, Empfaenger, Gesamtrohmasse, Abgangszollstelle, Bestimmungszollstelle, Gestel"& _ "lungsfrist, LRN, DatumBestimmungErreicht, GRN, OperatorId, upsize_ts FROM tblZol"& _ "aris_EZoll_NCTS WHERE (CRN = @CRN)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CRN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnmeldungsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnmeldungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GarantieWert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GarantieWert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErledigungsTypID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErledigungsTypID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warenbezeichnung", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Empfaenger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Empfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtrohmasse", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtrohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abgangszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abgangszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gestellungsfrist", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gestellungsfrist", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LRN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DatumBestimmungErreicht", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DatumBestimmungErreicht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GRN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OperatorId", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OperatorId", 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].[tblZolaris_EZoll_NCTS] SET [CRN] = @CRN, [AnmeldungsDatum] = @Anmel"& _ "dungsDatum, [GarantieWert] = @GarantieWert, [AnmID] = @AnmID, [ErledigungsTypID]"& _ " = @ErledigungsTypID, [Warenbezeichnung] = @Warenbezeichnung, [Absender] = @Abse"& _ "nder, [Empfaenger] = @Empfaenger, [Gesamtrohmasse] = @Gesamtrohmasse, [Abgangszo"& _ "llstelle] = @Abgangszollstelle, [Bestimmungszollstelle] = @Bestimmungszollstelle"& _ ", [Gestellungsfrist] = @Gestellungsfrist, [LRN] = @LRN, [DatumBestimmungErreicht"& _ "] = @DatumBestimmungErreicht, [GRN] = @GRN, [OperatorId] = @OperatorId WHERE ((["& _ "CRN] = @Original_CRN) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR (["& _ "upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CRN, AnmeldungsDatum, GarantieWert,"& _ " AnmID, ErledigungsTypID, Warenbezeichnung, Absender, Empfaenger, Gesamtrohmasse"& _ ", Abgangszollstelle, Bestimmungszollstelle, Gestellungsfrist, LRN, DatumBestimmu"& _ "ngErreicht, GRN, OperatorId, upsize_ts FROM tblZolaris_EZoll_NCTS WHERE (CRN = @"& _ "CRN)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CRN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnmeldungsDatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnmeldungsDatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GarantieWert", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GarantieWert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AnmID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AnmID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErledigungsTypID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ErledigungsTypID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Warenbezeichnung", Global.System.Data.SqlDbType.NText, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Warenbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Absender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Absender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Empfaenger", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Empfaenger", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gesamtrohmasse", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gesamtrohmasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abgangszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abgangszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bestimmungszollstelle", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bestimmungszollstelle", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gestellungsfrist", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gestellungsfrist", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LRN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DatumBestimmungErreicht", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DatumBestimmungErreicht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GRN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OperatorId", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OperatorId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CRN", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CRN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 CRN, AnmeldungsDatum, GarantieWert, AnmID, ErledigungsTypID, Warenbezeichn"& _ "ung, Absender, Empfaenger, Gesamtrohmasse, Abgangszollstelle, Bestimmungszollste"& _ "lle, Gestellungsfrist, LRN, DatumBestimmungErreicht, GRN, OperatorId, upsize_ts "& _ "FROM dbo.tblZolaris_EZoll_NCTS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblZolaris_EZoll_NCTSDataTable) 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 VERAGDataSet.tblZolaris_EZoll_NCTSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblZolaris_EZoll_NCTSDataTable = New VERAGDataSet.tblZolaris_EZoll_NCTSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblZolaris_EZoll_NCTSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblZolaris_EZoll_NCTS") 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_CRN As String, ByVal Original_upsize_ts() As Byte) As Integer If (Original_CRN Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_CRN") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CRN,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) 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 CRN As String, _ ByVal AnmeldungsDatum As Date, _ ByVal GarantieWert As Global.System.Nullable(Of Decimal), _ ByVal AnmID As Global.System.Nullable(Of Integer), _ ByVal ErledigungsTypID As String, _ ByVal Warenbezeichnung As String, _ ByVal Absender As String, _ ByVal Empfaenger As String, _ ByVal Gesamtrohmasse As Global.System.Nullable(Of Double), _ ByVal Abgangszollstelle As String, _ ByVal Bestimmungszollstelle As String, _ ByVal Gestellungsfrist As Global.System.Nullable(Of Date), _ ByVal LRN As String, _ ByVal DatumBestimmungErreicht As Global.System.Nullable(Of Date), _ ByVal GRN As String, _ ByVal OperatorId As Global.System.Nullable(Of Short)) As Integer If (CRN Is Nothing) Then Throw New Global.System.ArgumentNullException("CRN") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(CRN,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(AnmeldungsDatum,Date) If (GarantieWert.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(GarantieWert.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (AnmID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(AnmID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (ErledigungsTypID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ErledigungsTypID,String) End If If (Warenbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Warenbezeichnung,String) End If If (Absender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Absender,String) End If If (Empfaenger Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Empfaenger,String) End If If (Gesamtrohmasse.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(Gesamtrohmasse.Value,Double) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Abgangszollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(Abgangszollstelle,String) End If If (Bestimmungszollstelle Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Bestimmungszollstelle,String) End If If (Gestellungsfrist.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(Gestellungsfrist.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (LRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(LRN,String) End If If (DatumBestimmungErreicht.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(DatumBestimmungErreicht.Value,Date) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (GRN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(GRN,String) End If If (OperatorId.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(OperatorId.Value,Short) Else Me.Adapter.InsertCommand.Parameters(15).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 CRN As String, _ ByVal AnmeldungsDatum As Date, _ ByVal GarantieWert As Global.System.Nullable(Of Decimal), _ ByVal AnmID As Global.System.Nullable(Of Integer), _ ByVal ErledigungsTypID As String, _ ByVal Warenbezeichnung As String, _ ByVal Absender As String, _ ByVal Empfaenger As String, _ ByVal Gesamtrohmasse As Global.System.Nullable(Of Double), _ ByVal Abgangszollstelle As String, _ ByVal Bestimmungszollstelle As String, _ ByVal Gestellungsfrist As Global.System.Nullable(Of Date), _ ByVal LRN As String, _ ByVal DatumBestimmungErreicht As Global.System.Nullable(Of Date), _ ByVal GRN As String, _ ByVal OperatorId As Global.System.Nullable(Of Short), _ ByVal Original_CRN As String, _ ByVal Original_upsize_ts() As Byte) As Integer If (CRN Is Nothing) Then Throw New Global.System.ArgumentNullException("CRN") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CRN,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(AnmeldungsDatum,Date) If (GarantieWert.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GarantieWert.Value,Decimal) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (AnmID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(AnmID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (ErledigungsTypID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ErledigungsTypID,String) End If If (Warenbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Warenbezeichnung,String) End If If (Absender Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Absender,String) End If If (Empfaenger Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Empfaenger,String) End If If (Gesamtrohmasse.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Gesamtrohmasse.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Abgangszollstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Abgangszollstelle,String) End If If (Bestimmungszollstelle Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Bestimmungszollstelle,String) End If If (Gestellungsfrist.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Gestellungsfrist.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (LRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(LRN,String) End If If (DatumBestimmungErreicht.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(DatumBestimmungErreicht.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (GRN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GRN,String) End If If (OperatorId.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(OperatorId.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_CRN Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_CRN") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CRN,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) End If 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 AnmeldungsDatum As Date, _ ByVal GarantieWert As Global.System.Nullable(Of Decimal), _ ByVal AnmID As Global.System.Nullable(Of Integer), _ ByVal ErledigungsTypID As String, _ ByVal Warenbezeichnung As String, _ ByVal Absender As String, _ ByVal Empfaenger As String, _ ByVal Gesamtrohmasse As Global.System.Nullable(Of Double), _ ByVal Abgangszollstelle As String, _ ByVal Bestimmungszollstelle As String, _ ByVal Gestellungsfrist As Global.System.Nullable(Of Date), _ ByVal LRN As String, _ ByVal DatumBestimmungErreicht As Global.System.Nullable(Of Date), _ ByVal GRN As String, _ ByVal OperatorId As Global.System.Nullable(Of Short), _ ByVal Original_CRN As String, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_CRN, AnmeldungsDatum, GarantieWert, AnmID, ErledigungsTypID, Warenbezeichnung, Absender, Empfaenger, Gesamtrohmasse, Abgangszollstelle, Bestimmungszollstelle, Gestellungsfrist, LRN, DatumBestimmungErreicht, GRN, OperatorId, Original_CRN, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblZOLL_WechselkurseTableAdapter 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 = "tblZOLL_Wechselkurse" tableMapping.ColumnMappings.Add("fw_id", "fw_id") tableMapping.ColumnMappings.Add("fw_land", "fw_land") tableMapping.ColumnMappings.Add("fw_iso2", "fw_iso2") tableMapping.ColumnMappings.Add("fw_kurswert", "fw_kurswert") tableMapping.ColumnMappings.Add("fw_iso3", "fw_iso3") tableMapping.ColumnMappings.Add("fw_startdatum", "fw_startdatum") tableMapping.ColumnMappings.Add("fw_enddatum", "fw_enddatum") tableMapping.ColumnMappings.Add("fw_importdatum", "fw_importdatum") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tblZOLL_Wechselkurse] ([fw_id], [fw_land], [fw_iso2], [fw_kurs"& _ "wert], [fw_iso3], [fw_startdatum], [fw_enddatum], [fw_importdatum]) VALUES (@fw_"& _ "id, @fw_land, @fw_iso2, @fw_kurswert, @fw_iso3, @fw_startdatum, @fw_enddatum, @f"& _ "w_importdatum)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_iso2", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_iso2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_kurswert", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_kurswert", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_iso3", Global.System.Data.SqlDbType.[Char], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_iso3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_startdatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_startdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_enddatum", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_enddatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@fw_importdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "fw_importdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 fw_id, fw_land, fw_iso2, fw_kurswert, fw_iso3, fw_startdatum, fw_enddatum,"& _ " fw_importdatum FROM dbo.tblZOLL_Wechselkurse" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblZOLL_WechselkurseDataTable) 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 VERAGDataSet.tblZOLL_WechselkurseDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblZOLL_WechselkurseDataTable = New VERAGDataSet.tblZOLL_WechselkurseDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblZOLL_WechselkurseDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblZOLL_Wechselkurse") 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 Insert(ByVal fw_id As Integer, ByVal fw_land As String, ByVal fw_iso2 As String, ByVal fw_kurswert As Double, ByVal fw_iso3 As String, ByVal fw_startdatum As Date, ByVal fw_enddatum As Date, ByVal fw_importdatum As Date) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(fw_id,Integer) If (fw_land Is Nothing) Then Throw New Global.System.ArgumentNullException("fw_land") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(fw_land,String) End If If (fw_iso2 Is Nothing) Then Throw New Global.System.ArgumentNullException("fw_iso2") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(fw_iso2,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(fw_kurswert,Double) If (fw_iso3 Is Nothing) Then Throw New Global.System.ArgumentNullException("fw_iso3") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(fw_iso3,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(fw_startdatum,Date) Me.Adapter.InsertCommand.Parameters(6).Value = CType(fw_enddatum,Date) Me.Adapter.InsertCommand.Parameters(7).Value = CType(fw_importdatum,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblZollArtikelTableAdapter 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 = "tblZollArtikel" tableMapping.ColumnMappings.Add("zollArt_id", "zollArt_id") tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("zollArt_Teilsatzschluessel", "zollArt_Teilsatzschluessel") tableMapping.ColumnMappings.Add("zollArt_Verarbeitungskennzeichen", "zollArt_Verarbeitungskennzeichen") tableMapping.ColumnMappings.Add("zollArt_Artikelnummer", "zollArt_Artikelnummer") tableMapping.ColumnMappings.Add("zollArt_Dynamische_Ergaenzung_1", "zollArt_Dynamische_Ergaenzung_1") tableMapping.ColumnMappings.Add("zollArt_Dynamische_Ergaenzung_2", "zollArt_Dynamische_Ergaenzung_2") tableMapping.ColumnMappings.Add("zollArt_Kundennummer", "zollArt_Kundennummer") tableMapping.ColumnMappings.Add("zollArt_Warencodenummer", "zollArt_Warencodenummer") tableMapping.ColumnMappings.Add("zollArt_Zusatzcode_1", "zollArt_Zusatzcode_1") tableMapping.ColumnMappings.Add("zollArt_Zusatzcode_2", "zollArt_Zusatzcode_2") tableMapping.ColumnMappings.Add("zollArt_Kennzeichen_Gueltig", "zollArt_Kennzeichen_Gueltig") tableMapping.ColumnMappings.Add("zollArt_Kurzbezeichnung", "zollArt_Kurzbezeichnung") tableMapping.ColumnMappings.Add("zollArt_Warenbeschreibung", "zollArt_Warenbeschreibung") tableMapping.ColumnMappings.Add("zollArt_Statistische_Maßeinheit", "zollArt_Statistische_Maßeinheit") tableMapping.ColumnMappings.Add("zollArt_Statistische_Maßeinheit_Qualifikator", "zollArt_Statistische_Maßeinheit_Qualifikator") tableMapping.ColumnMappings.Add("zollArt_Besondere_Maßeinheit", "zollArt_Besondere_Maßeinheit") tableMapping.ColumnMappings.Add("zollArt_Besondere_Maßeinheit_Qualifikator", "zollArt_Besondere_Maßeinheit_Qualifikator") tableMapping.ColumnMappings.Add("zollArt_Gewicht", "zollArt_Gewicht") tableMapping.ColumnMappings.Add("zollArt_Menge", "zollArt_Menge") tableMapping.ColumnMappings.Add("Erfassungsdatum", "Erfassungsdatum") tableMapping.ColumnMappings.Add("Aenderungsdatum", "Aenderungsdatum") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("zollArt_Status", "zollArt_Status") 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].[tblZollArtikel] WHERE (([zollArt_id] = @Original_zollArt_id) A"& _ "ND ([KundenNr] = @Original_KundenNr) AND ((@IsNull_zollArt_Teilsatzschluessel = "& _ "1 AND [zollArt_Teilsatzschluessel] IS NULL) OR ([zollArt_Teilsatzschluessel] = @"& _ "Original_zollArt_Teilsatzschluessel)) AND ((@IsNull_zollArt_Verarbeitungskennzei"& _ "chen = 1 AND [zollArt_Verarbeitungskennzeichen] IS NULL) OR ([zollArt_Verarbeitu"& _ "ngskennzeichen] = @Original_zollArt_Verarbeitungskennzeichen)) AND ((@IsNull_zol"& _ "lArt_Artikelnummer = 1 AND [zollArt_Artikelnummer] IS NULL) OR ([zollArt_Artikel"& _ "nummer] = @Original_zollArt_Artikelnummer)) AND ((@IsNull_zollArt_Dynamische_Erg"& _ "aenzung_1 = 1 AND [zollArt_Dynamische_Ergaenzung_1] IS NULL) OR ([zollArt_Dynami"& _ "sche_Ergaenzung_1] = @Original_zollArt_Dynamische_Ergaenzung_1)) AND ((@IsNull_z"& _ "ollArt_Dynamische_Ergaenzung_2 = 1 AND [zollArt_Dynamische_Ergaenzung_2] IS NULL"& _ ") OR ([zollArt_Dynamische_Ergaenzung_2] = @Original_zollArt_Dynamische_Ergaenzun"& _ "g_2)) AND ((@IsNull_zollArt_Kundennummer = 1 AND [zollArt_Kundennummer] IS NULL)"& _ " OR ([zollArt_Kundennummer] = @Original_zollArt_Kundennummer)) AND ((@IsNull_zol"& _ "lArt_Warencodenummer = 1 AND [zollArt_Warencodenummer] IS NULL) OR ([zollArt_War"& _ "encodenummer] = @Original_zollArt_Warencodenummer)) AND ((@IsNull_zollArt_Zusatz"& _ "code_1 = 1 AND [zollArt_Zusatzcode_1] IS NULL) OR ([zollArt_Zusatzcode_1] = @Ori"& _ "ginal_zollArt_Zusatzcode_1)) AND ((@IsNull_zollArt_Zusatzcode_2 = 1 AND [zollArt"& _ "_Zusatzcode_2] IS NULL) OR ([zollArt_Zusatzcode_2] = @Original_zollArt_Zusatzcod"& _ "e_2)) AND ((@IsNull_zollArt_Kennzeichen_Gueltig = 1 AND [zollArt_Kennzeichen_Gue"& _ "ltig] IS NULL) OR ([zollArt_Kennzeichen_Gueltig] = @Original_zollArt_Kennzeichen"& _ "_Gueltig)) AND ((@IsNull_zollArt_Kurzbezeichnung = 1 AND [zollArt_Kurzbezeichnun"& _ "g] IS NULL) OR ([zollArt_Kurzbezeichnung] = @Original_zollArt_Kurzbezeichnung)) "& _ "AND ((@IsNull_zollArt_Warenbeschreibung = 1 AND [zollArt_Warenbeschreibung] IS N"& _ "ULL) OR ([zollArt_Warenbeschreibung] = @Original_zollArt_Warenbeschreibung)) AND"& _ " ((@IsNull_zollArt_Statistische_Maßeinheit = 1 AND [zollArt_Statistische_Maßeinh"& _ "eit] IS NULL) OR ([zollArt_Statistische_Maßeinheit] = @Original_zollArt_Statisti"& _ "sche_Maßeinheit)) AND ((@IsNull_zollArt_Statistische_Maßeinheit_Qualifikator = 1"& _ " AND [zollArt_Statistische_Maßeinheit_Qualifikator] IS NULL) OR ([zollArt_Statis"& _ "tische_Maßeinheit_Qualifikator] = @Original_zollArt_Statistische_Maßeinheit_Qual"& _ "ifikator)) AND ((@IsNull_zollArt_Besondere_Maßeinheit = 1 AND [zollArt_Besondere"& _ "_Maßeinheit] IS NULL) OR ([zollArt_Besondere_Maßeinheit] = @Original_zollArt_Bes"& _ "ondere_Maßeinheit)) AND ((@IsNull_zollArt_Besondere_Maßeinheit_Qualifikator = 1 "& _ "AND [zollArt_Besondere_Maßeinheit_Qualifikator] IS NULL) OR ([zollArt_Besondere_"& _ "Maßeinheit_Qualifikator] = @Original_zollArt_Besondere_Maßeinheit_Qualifikator))"& _ " AND ((@IsNull_zollArt_Gewicht = 1 AND [zollArt_Gewicht] IS NULL) OR ([zollArt_G"& _ "ewicht] = @Original_zollArt_Gewicht)) AND ((@IsNull_zollArt_Menge = 1 AND [zollA"& _ "rt_Menge] IS NULL) OR ([zollArt_Menge] = @Original_zollArt_Menge)) AND ((@IsNull"& _ "_Erfassungsdatum = 1 AND [Erfassungsdatum] IS NULL) OR ([Erfassungsdatum] = @Ori"& _ "ginal_Erfassungsdatum)) AND ((@IsNull_Aenderungsdatum = 1 AND [Aenderungsdatum] "& _ "IS NULL) OR ([Aenderungsdatum] = @Original_Aenderungsdatum)) AND ((@IsNull_Sachb"& _ "earbeiter = 1 AND [Sachbearbeiter] IS NULL) OR ([Sachbearbeiter] = @Original_Sac"& _ "hbearbeiter)) AND ((@IsNull_zollArt_Status = 1 AND [zollArt_Status] IS NULL) OR "& _ "([zollArt_Status] = @Original_zollArt_Status)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Teilsatzschluessel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Teilsatzschluessel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Teilsatzschluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Teilsatzschluessel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Verarbeitungskennzeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Verarbeitungskennzeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Verarbeitungskennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Verarbeitungskennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Artikelnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Artikelnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Artikelnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Dynamische_Ergaenzung_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Dynamische_Ergaenzung_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Dynamische_Ergaenzung_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Dynamische_Ergaenzung_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kundennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Kundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kundennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Warencodenummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warencodenummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Warencodenummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warencodenummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Zusatzcode_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Zusatzcode_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Zusatzcode_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Zusatzcode_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Kennzeichen_Gueltig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kennzeichen_Gueltig", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Kennzeichen_Gueltig", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kennzeichen_Gueltig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Kurzbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kurzbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Kurzbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kurzbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Warenbeschreibung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warenbeschreibung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Warenbeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warenbeschreibung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Statistische_Maßeinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Statistische_Maßeinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Besondere_Maßeinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Besondere_Maßeinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Gewicht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Gewicht", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Gewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Gewicht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Menge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Menge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Menge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Menge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Erfassungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erfassungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Erfassungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erfassungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Aenderungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aenderungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Aenderungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aenderungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Status", 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].[tblZollArtikel] ([KundenNr], [zollArt_Teilsatzschluessel], [zo"& _ "llArt_Verarbeitungskennzeichen], [zollArt_Artikelnummer], [zollArt_Dynamische_Er"& _ "gaenzung_1], [zollArt_Dynamische_Ergaenzung_2], [zollArt_Kundennummer], [zollArt"& _ "_Warencodenummer], [zollArt_Zusatzcode_1], [zollArt_Zusatzcode_2], [zollArt_Kenn"& _ "zeichen_Gueltig], [zollArt_Kurzbezeichnung], [zollArt_Warenbeschreibung], [zollA"& _ "rt_Statistische_Maßeinheit], [zollArt_Statistische_Maßeinheit_Qualifikator], [zo"& _ "llArt_Besondere_Maßeinheit], [zollArt_Besondere_Maßeinheit_Qualifikator], [zollA"& _ "rt_Gewicht], [zollArt_Menge], [Erfassungsdatum], [Aenderungsdatum], [Sachbearbei"& _ "ter], [zollArt_Status]) VALUES (@KundenNr, @zollArt_Teilsatzschluessel, @zollArt"& _ "_Verarbeitungskennzeichen, @zollArt_Artikelnummer, @zollArt_Dynamische_Ergaenzun"& _ "g_1, @zollArt_Dynamische_Ergaenzung_2, @zollArt_Kundennummer, @zollArt_Warencode"& _ "nummer, @zollArt_Zusatzcode_1, @zollArt_Zusatzcode_2, @zollArt_Kennzeichen_Guelt"& _ "ig, @zollArt_Kurzbezeichnung, @zollArt_Warenbeschreibung, @zollArt_Statistische_"& _ "Maßeinheit, @zollArt_Statistische_Maßeinheit_Qualifikator, @zollArt_Besondere_Ma"& _ "ßeinheit, @zollArt_Besondere_Maßeinheit_Qualifikator, @zollArt_Gewicht, @zollArt"& _ "_Menge, @Erfassungsdatum, @Aenderungsdatum, @Sachbearbeiter, @zollArt_Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "SELECT zollArt_id, KundenNr, zollArt_Teilsatzschluessel, zollArt_Verarbeitungske"& _ "nnzeichen, zollArt_Artikelnummer, zollArt_Dynamische_Ergaenzung_1, zollArt_Dynam"& _ "ische_Ergaenzung_2, zollArt_Kundennummer, zollArt_Warencodenummer, zollArt_Zusat"& _ "zcode_1, zollArt_Zusatzcode_2, zollArt_Kennzeichen_Gueltig, zollArt_Kurzbezeichn"& _ "ung, zollArt_Warenbeschreibung, zollArt_Statistische_Maßeinheit, zollArt_Statist"& _ "ische_Maßeinheit_Qualifikator, zollArt_Besondere_Maßeinheit, zollArt_Besondere_M"& _ "aßeinheit_Qualifikator, zollArt_Gewicht, zollArt_Menge, Erfassungsdatum, Aenderu"& _ "ngsdatum, Sachbearbeiter, zollArt_Status FROM tblZollArtikel WHERE (zollArt_id ="& _ " SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Teilsatzschluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Teilsatzschluessel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Verarbeitungskennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Verarbeitungskennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Artikelnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Dynamische_Ergaenzung_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Dynamische_Ergaenzung_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Kundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Warencodenummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warencodenummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Zusatzcode_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Zusatzcode_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Kennzeichen_Gueltig", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kennzeichen_Gueltig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Kurzbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kurzbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Warenbeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warenbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Statistische_Maßeinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Besondere_Maßeinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Gewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Gewicht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Menge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Erfassungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erfassungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aenderungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aenderungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Status", 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].[tblZollArtikel] SET [KundenNr] = @KundenNr, [zollArt_Teilsatzschlue"& _ "ssel] = @zollArt_Teilsatzschluessel, [zollArt_Verarbeitungskennzeichen] = @zollA"& _ "rt_Verarbeitungskennzeichen, [zollArt_Artikelnummer] = @zollArt_Artikelnummer, ["& _ "zollArt_Dynamische_Ergaenzung_1] = @zollArt_Dynamische_Ergaenzung_1, [zollArt_Dy"& _ "namische_Ergaenzung_2] = @zollArt_Dynamische_Ergaenzung_2, [zollArt_Kundennummer"& _ "] = @zollArt_Kundennummer, [zollArt_Warencodenummer] = @zollArt_Warencodenummer,"& _ " [zollArt_Zusatzcode_1] = @zollArt_Zusatzcode_1, [zollArt_Zusatzcode_2] = @zollA"& _ "rt_Zusatzcode_2, [zollArt_Kennzeichen_Gueltig] = @zollArt_Kennzeichen_Gueltig, ["& _ "zollArt_Kurzbezeichnung] = @zollArt_Kurzbezeichnung, [zollArt_Warenbeschreibung]"& _ " = @zollArt_Warenbeschreibung, [zollArt_Statistische_Maßeinheit] = @zollArt_Stat"& _ "istische_Maßeinheit, [zollArt_Statistische_Maßeinheit_Qualifikator] = @zollArt_S"& _ "tatistische_Maßeinheit_Qualifikator, [zollArt_Besondere_Maßeinheit] = @zollArt_B"& _ "esondere_Maßeinheit, [zollArt_Besondere_Maßeinheit_Qualifikator] = @zollArt_Beso"& _ "ndere_Maßeinheit_Qualifikator, [zollArt_Gewicht] = @zollArt_Gewicht, [zollArt_Me"& _ "nge] = @zollArt_Menge, [Erfassungsdatum] = @Erfassungsdatum, [Aenderungsdatum] ="& _ " @Aenderungsdatum, [Sachbearbeiter] = @Sachbearbeiter, [zollArt_Status] = @zollA"& _ "rt_Status WHERE (([zollArt_id] = @Original_zollArt_id) AND ([KundenNr] = @Origin"& _ "al_KundenNr) AND ((@IsNull_zollArt_Teilsatzschluessel = 1 AND [zollArt_Teilsatzs"& _ "chluessel] IS NULL) OR ([zollArt_Teilsatzschluessel] = @Original_zollArt_Teilsat"& _ "zschluessel)) AND ((@IsNull_zollArt_Verarbeitungskennzeichen = 1 AND [zollArt_Ve"& _ "rarbeitungskennzeichen] IS NULL) OR ([zollArt_Verarbeitungskennzeichen] = @Origi"& _ "nal_zollArt_Verarbeitungskennzeichen)) AND ((@IsNull_zollArt_Artikelnummer = 1 A"& _ "ND [zollArt_Artikelnummer] IS NULL) OR ([zollArt_Artikelnummer] = @Original_zoll"& _ "Art_Artikelnummer)) AND ((@IsNull_zollArt_Dynamische_Ergaenzung_1 = 1 AND [zollA"& _ "rt_Dynamische_Ergaenzung_1] IS NULL) OR ([zollArt_Dynamische_Ergaenzung_1] = @Or"& _ "iginal_zollArt_Dynamische_Ergaenzung_1)) AND ((@IsNull_zollArt_Dynamische_Ergaen"& _ "zung_2 = 1 AND [zollArt_Dynamische_Ergaenzung_2] IS NULL) OR ([zollArt_Dynamisch"& _ "e_Ergaenzung_2] = @Original_zollArt_Dynamische_Ergaenzung_2)) AND ((@IsNull_zoll"& _ "Art_Kundennummer = 1 AND [zollArt_Kundennummer] IS NULL) OR ([zollArt_Kundennumm"& _ "er] = @Original_zollArt_Kundennummer)) AND ((@IsNull_zollArt_Warencodenummer = 1"& _ " AND [zollArt_Warencodenummer] IS NULL) OR ([zollArt_Warencodenummer] = @Origina"& _ "l_zollArt_Warencodenummer)) AND ((@IsNull_zollArt_Zusatzcode_1 = 1 AND [zollArt_"& _ "Zusatzcode_1] IS NULL) OR ([zollArt_Zusatzcode_1] = @Original_zollArt_Zusatzcode"& _ "_1)) AND ((@IsNull_zollArt_Zusatzcode_2 = 1 AND [zollArt_Zusatzcode_2] IS NULL) "& _ "OR ([zollArt_Zusatzcode_2] = @Original_zollArt_Zusatzcode_2)) AND ((@IsNull_zoll"& _ "Art_Kennzeichen_Gueltig = 1 AND [zollArt_Kennzeichen_Gueltig] IS NULL) OR ([zoll"& _ "Art_Kennzeichen_Gueltig] = @Original_zollArt_Kennzeichen_Gueltig)) AND ((@IsNull"& _ "_zollArt_Kurzbezeichnung = 1 AND [zollArt_Kurzbezeichnung] IS NULL) OR ([zollArt"& _ "_Kurzbezeichnung] = @Original_zollArt_Kurzbezeichnung)) AND ((@IsNull_zollArt_Wa"& _ "renbeschreibung = 1 AND [zollArt_Warenbeschreibung] IS NULL) OR ([zollArt_Warenb"& _ "eschreibung] = @Original_zollArt_Warenbeschreibung)) AND ((@IsNull_zollArt_Stati"& _ "stische_Maßeinheit = 1 AND [zollArt_Statistische_Maßeinheit] IS NULL) OR ([zollA"& _ "rt_Statistische_Maßeinheit] = @Original_zollArt_Statistische_Maßeinheit)) AND (("& _ "@IsNull_zollArt_Statistische_Maßeinheit_Qualifikator = 1 AND [zollArt_Statistisc"& _ "he_Maßeinheit_Qualifikator] IS NULL) OR ([zollArt_Statistische_Maßeinheit_Qualif"& _ "ikator] = @Original_zollArt_Statistische_Maßeinheit_Qualifikator)) AND ((@IsNull"& _ "_zollArt_Besondere_Maßeinheit = 1 AND [zollArt_Besondere_Maßeinheit] IS NULL) OR"& _ " ([zollArt_Besondere_Maßeinheit] = @Original_zollArt_Besondere_Maßeinheit)) AND "& _ "((@IsNull_zollArt_Besondere_Maßeinheit_Qualifikator = 1 AND [zollArt_Besondere_M"& _ "aßeinheit_Qualifikator] IS NULL) OR ([zollArt_Besondere_Maßeinheit_Qualifikator]"& _ " = @Original_zollArt_Besondere_Maßeinheit_Qualifikator)) AND ((@IsNull_zollArt_G"& _ "ewicht = 1 AND [zollArt_Gewicht] IS NULL) OR ([zollArt_Gewicht] = @Original_zoll"& _ "Art_Gewicht)) AND ((@IsNull_zollArt_Menge = 1 AND [zollArt_Menge] IS NULL) OR (["& _ "zollArt_Menge] = @Original_zollArt_Menge)) AND ((@IsNull_Erfassungsdatum = 1 AND"& _ " [Erfassungsdatum] IS NULL) OR ([Erfassungsdatum] = @Original_Erfassungsdatum)) "& _ "AND ((@IsNull_Aenderungsdatum = 1 AND [Aenderungsdatum] IS NULL) OR ([Aenderungs"& _ "datum] = @Original_Aenderungsdatum)) AND ((@IsNull_Sachbearbeiter = 1 AND [Sachb"& _ "earbeiter] IS NULL) OR ([Sachbearbeiter] = @Original_Sachbearbeiter)) AND ((@IsN"& _ "ull_zollArt_Status = 1 AND [zollArt_Status] IS NULL) OR ([zollArt_Status] = @Ori"& _ "ginal_zollArt_Status)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT zollArt_id, KundenNr, zollArt_Teilsatzschluesse"& _ "l, zollArt_Verarbeitungskennzeichen, zollArt_Artikelnummer, zollArt_Dynamische_E"& _ "rgaenzung_1, zollArt_Dynamische_Ergaenzung_2, zollArt_Kundennummer, zollArt_Ware"& _ "ncodenummer, zollArt_Zusatzcode_1, zollArt_Zusatzcode_2, zollArt_Kennzeichen_Gue"& _ "ltig, zollArt_Kurzbezeichnung, zollArt_Warenbeschreibung, zollArt_Statistische_M"& _ "aßeinheit, zollArt_Statistische_Maßeinheit_Qualifikator, zollArt_Besondere_Maßei"& _ "nheit, zollArt_Besondere_Maßeinheit_Qualifikator, zollArt_Gewicht, zollArt_Menge"& _ ", Erfassungsdatum, Aenderungsdatum, Sachbearbeiter, zollArt_Status FROM tblZollA"& _ "rtikel WHERE (zollArt_id = @zollArt_id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Teilsatzschluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Teilsatzschluessel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Verarbeitungskennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Verarbeitungskennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Artikelnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Dynamische_Ergaenzung_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Dynamische_Ergaenzung_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Kundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kundennummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Warencodenummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warencodenummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Zusatzcode_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Zusatzcode_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Kennzeichen_Gueltig", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kennzeichen_Gueltig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Kurzbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kurzbezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Warenbeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warenbeschreibung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Statistische_Maßeinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Besondere_Maßeinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Gewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Gewicht", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Menge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Erfassungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erfassungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aenderungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aenderungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KundenNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KundenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Teilsatzschluessel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Teilsatzschluessel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Teilsatzschluessel", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Teilsatzschluessel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Verarbeitungskennzeichen", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Verarbeitungskennzeichen", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Verarbeitungskennzeichen", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Verarbeitungskennzeichen", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Artikelnummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Artikelnummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Artikelnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Dynamische_Ergaenzung_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Dynamische_Ergaenzung_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Dynamische_Ergaenzung_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Dynamische_Ergaenzung_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Dynamische_Ergaenzung_2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Kundennummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kundennummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Kundennummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kundennummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Warencodenummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warencodenummer", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Warencodenummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warencodenummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Zusatzcode_1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Zusatzcode_1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Zusatzcode_2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Zusatzcode_2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Zusatzcode_2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Kennzeichen_Gueltig", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kennzeichen_Gueltig", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Kennzeichen_Gueltig", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kennzeichen_Gueltig", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Kurzbezeichnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kurzbezeichnung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Kurzbezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Kurzbezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Warenbeschreibung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warenbeschreibung", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Warenbeschreibung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Warenbeschreibung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Statistische_Maßeinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Statistische_Maßeinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Statistische_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Besondere_Maßeinheit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Besondere_Maßeinheit", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Besondere_Maßeinheit_Qualifikator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Gewicht", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Gewicht", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Gewicht", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Gewicht", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Menge", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Menge", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Menge", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Menge", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Erfassungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erfassungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Erfassungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Erfassungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Aenderungsdatum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aenderungsdatum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Aenderungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Aenderungsdatum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sachbearbeiter", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sachbearbeiter", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_zollArt_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollArt_Status", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollArt_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "zollArt_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 zollArt_id, KundenNr, zollArt_Teilsatzschluessel, zollArt_Verarbeitungsken"& _ "nzeichen, zollArt_Artikelnummer, zollArt_Dynamische_Ergaenzung_1, zollArt_Dynami"& _ "sche_Ergaenzung_2, zollArt_Kundennummer, zollArt_Warencodenummer, zollArt_Zusatz"& _ "code_1, zollArt_Zusatzcode_2, zollArt_Kennzeichen_Gueltig, zollArt_Kurzbezeichnu"& _ "ng, zollArt_Warenbeschreibung, zollArt_Statistische_Maßeinheit, zollArt_Statisti"& _ "sche_Maßeinheit_Qualifikator, zollArt_Besondere_Maßeinheit, zollArt_Besondere_Ma"& _ "ßeinheit_Qualifikator, zollArt_Gewicht, zollArt_Menge, Erfassungsdatum, Aenderun"& _ "gsdatum, Sachbearbeiter, zollArt_Status FROM dbo.tblZollArtikel" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblZollArtikelDataTable) 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 VERAGDataSet.tblZollArtikelDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblZollArtikelDataTable = New VERAGDataSet.tblZollArtikelDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblZollArtikelDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblZollArtikel") 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_zollArt_id As Integer, _ ByVal Original_KundenNr As Integer, _ ByVal Original_zollArt_Teilsatzschluessel As String, _ ByVal Original_zollArt_Verarbeitungskennzeichen As String, _ ByVal Original_zollArt_Artikelnummer As String, _ ByVal Original_zollArt_Dynamische_Ergaenzung_1 As String, _ ByVal Original_zollArt_Dynamische_Ergaenzung_2 As String, _ ByVal Original_zollArt_Kundennummer As String, _ ByVal Original_zollArt_Warencodenummer As String, _ ByVal Original_zollArt_Zusatzcode_1 As String, _ ByVal Original_zollArt_Zusatzcode_2 As String, _ ByVal Original_zollArt_Kennzeichen_Gueltig As String, _ ByVal Original_zollArt_Kurzbezeichnung As String, _ ByVal Original_zollArt_Warenbeschreibung As String, _ ByVal Original_zollArt_Statistische_Maßeinheit As String, _ ByVal Original_zollArt_Statistische_Maßeinheit_Qualifikator As String, _ ByVal Original_zollArt_Besondere_Maßeinheit As String, _ ByVal Original_zollArt_Besondere_Maßeinheit_Qualifikator As String, _ ByVal Original_zollArt_Gewicht As String, _ ByVal Original_zollArt_Menge As String, _ ByVal Original_Erfassungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_Aenderungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_Sachbearbeiter As String, _ ByVal Original_zollArt_Status As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_zollArt_id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_KundenNr,Integer) If (Original_zollArt_Teilsatzschluessel 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_zollArt_Teilsatzschluessel,String) End If If (Original_zollArt_Verarbeitungskennzeichen 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_zollArt_Verarbeitungskennzeichen,String) End If If (Original_zollArt_Artikelnummer 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_zollArt_Artikelnummer,String) End If If (Original_zollArt_Dynamische_Ergaenzung_1 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_zollArt_Dynamische_Ergaenzung_1,String) End If If (Original_zollArt_Dynamische_Ergaenzung_2 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_zollArt_Dynamische_Ergaenzung_2,String) End If If (Original_zollArt_Kundennummer 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_zollArt_Kundennummer,String) End If If (Original_zollArt_Warencodenummer Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_zollArt_Warencodenummer,String) End If If (Original_zollArt_Zusatzcode_1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_zollArt_Zusatzcode_1,String) End If If (Original_zollArt_Zusatzcode_2 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_zollArt_Zusatzcode_2,String) End If If (Original_zollArt_Kennzeichen_Gueltig 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_zollArt_Kennzeichen_Gueltig,String) End If If (Original_zollArt_Kurzbezeichnung 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_zollArt_Kurzbezeichnung,String) End If If (Original_zollArt_Warenbeschreibung 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_zollArt_Warenbeschreibung,String) End If If (Original_zollArt_Statistische_Maßeinheit 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_zollArt_Statistische_Maßeinheit,String) End If If (Original_zollArt_Statistische_Maßeinheit_Qualifikator 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_zollArt_Statistische_Maßeinheit_Qualifikator,String) End If If (Original_zollArt_Besondere_Maßeinheit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_zollArt_Besondere_Maßeinheit,String) End If If (Original_zollArt_Besondere_Maßeinheit_Qualifikator Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_zollArt_Besondere_Maßeinheit_Qualifikator,String) End If If (Original_zollArt_Gewicht Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_zollArt_Gewicht,String) End If If (Original_zollArt_Menge Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_zollArt_Menge,String) End If If (Original_Erfassungsdatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_Erfassungsdatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value End If If (Original_Aenderungsdatum.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_Aenderungsdatum.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Original_Sachbearbeiter Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_Sachbearbeiter,String) End If If (Original_zollArt_Status Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_zollArt_Status,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 KundenNr As Integer, _ ByVal zollArt_Teilsatzschluessel As String, _ ByVal zollArt_Verarbeitungskennzeichen As String, _ ByVal zollArt_Artikelnummer As String, _ ByVal zollArt_Dynamische_Ergaenzung_1 As String, _ ByVal zollArt_Dynamische_Ergaenzung_2 As String, _ ByVal zollArt_Kundennummer As String, _ ByVal zollArt_Warencodenummer As String, _ ByVal zollArt_Zusatzcode_1 As String, _ ByVal zollArt_Zusatzcode_2 As String, _ ByVal zollArt_Kennzeichen_Gueltig As String, _ ByVal zollArt_Kurzbezeichnung As String, _ ByVal zollArt_Warenbeschreibung As String, _ ByVal zollArt_Statistische_Maßeinheit As String, _ ByVal zollArt_Statistische_Maßeinheit_Qualifikator As String, _ ByVal zollArt_Besondere_Maßeinheit As String, _ ByVal zollArt_Besondere_Maßeinheit_Qualifikator As String, _ ByVal zollArt_Gewicht As String, _ ByVal zollArt_Menge As String, _ ByVal Erfassungsdatum As Global.System.Nullable(Of Date), _ ByVal Aenderungsdatum As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal zollArt_Status As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(KundenNr,Integer) If (zollArt_Teilsatzschluessel Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(zollArt_Teilsatzschluessel,String) End If If (zollArt_Verarbeitungskennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(zollArt_Verarbeitungskennzeichen,String) End If If (zollArt_Artikelnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(zollArt_Artikelnummer,String) End If If (zollArt_Dynamische_Ergaenzung_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(zollArt_Dynamische_Ergaenzung_1,String) End If If (zollArt_Dynamische_Ergaenzung_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(zollArt_Dynamische_Ergaenzung_2,String) End If If (zollArt_Kundennummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(zollArt_Kundennummer,String) End If If (zollArt_Warencodenummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(zollArt_Warencodenummer,String) End If If (zollArt_Zusatzcode_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(zollArt_Zusatzcode_1,String) End If If (zollArt_Zusatzcode_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(zollArt_Zusatzcode_2,String) End If If (zollArt_Kennzeichen_Gueltig Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(zollArt_Kennzeichen_Gueltig,String) End If If (zollArt_Kurzbezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(zollArt_Kurzbezeichnung,String) End If If (zollArt_Warenbeschreibung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(zollArt_Warenbeschreibung,String) End If If (zollArt_Statistische_Maßeinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(zollArt_Statistische_Maßeinheit,String) End If If (zollArt_Statistische_Maßeinheit_Qualifikator Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(zollArt_Statistische_Maßeinheit_Qualifikator,String) End If If (zollArt_Besondere_Maßeinheit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(zollArt_Besondere_Maßeinheit,String) End If If (zollArt_Besondere_Maßeinheit_Qualifikator Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(zollArt_Besondere_Maßeinheit_Qualifikator,String) End If If (zollArt_Gewicht Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(zollArt_Gewicht,String) End If If (zollArt_Menge Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(zollArt_Menge,String) End If If (Erfassungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(Erfassungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Aenderungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(20).Value = CType(Aenderungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(Sachbearbeiter,String) End If If (zollArt_Status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(zollArt_Status,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 KundenNr As Integer, _ ByVal zollArt_Teilsatzschluessel As String, _ ByVal zollArt_Verarbeitungskennzeichen As String, _ ByVal zollArt_Artikelnummer As String, _ ByVal zollArt_Dynamische_Ergaenzung_1 As String, _ ByVal zollArt_Dynamische_Ergaenzung_2 As String, _ ByVal zollArt_Kundennummer As String, _ ByVal zollArt_Warencodenummer As String, _ ByVal zollArt_Zusatzcode_1 As String, _ ByVal zollArt_Zusatzcode_2 As String, _ ByVal zollArt_Kennzeichen_Gueltig As String, _ ByVal zollArt_Kurzbezeichnung As String, _ ByVal zollArt_Warenbeschreibung As String, _ ByVal zollArt_Statistische_Maßeinheit As String, _ ByVal zollArt_Statistische_Maßeinheit_Qualifikator As String, _ ByVal zollArt_Besondere_Maßeinheit As String, _ ByVal zollArt_Besondere_Maßeinheit_Qualifikator As String, _ ByVal zollArt_Gewicht As String, _ ByVal zollArt_Menge As String, _ ByVal Erfassungsdatum As Global.System.Nullable(Of Date), _ ByVal Aenderungsdatum As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal zollArt_Status As String, _ ByVal Original_zollArt_id As Integer, _ ByVal Original_KundenNr As Integer, _ ByVal Original_zollArt_Teilsatzschluessel As String, _ ByVal Original_zollArt_Verarbeitungskennzeichen As String, _ ByVal Original_zollArt_Artikelnummer As String, _ ByVal Original_zollArt_Dynamische_Ergaenzung_1 As String, _ ByVal Original_zollArt_Dynamische_Ergaenzung_2 As String, _ ByVal Original_zollArt_Kundennummer As String, _ ByVal Original_zollArt_Warencodenummer As String, _ ByVal Original_zollArt_Zusatzcode_1 As String, _ ByVal Original_zollArt_Zusatzcode_2 As String, _ ByVal Original_zollArt_Kennzeichen_Gueltig As String, _ ByVal Original_zollArt_Kurzbezeichnung As String, _ ByVal Original_zollArt_Warenbeschreibung As String, _ ByVal Original_zollArt_Statistische_Maßeinheit As String, _ ByVal Original_zollArt_Statistische_Maßeinheit_Qualifikator As String, _ ByVal Original_zollArt_Besondere_Maßeinheit As String, _ ByVal Original_zollArt_Besondere_Maßeinheit_Qualifikator As String, _ ByVal Original_zollArt_Gewicht As String, _ ByVal Original_zollArt_Menge As String, _ ByVal Original_Erfassungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_Aenderungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_Sachbearbeiter As String, _ ByVal Original_zollArt_Status As String, _ ByVal zollArt_id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KundenNr,Integer) If (zollArt_Teilsatzschluessel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(zollArt_Teilsatzschluessel,String) End If If (zollArt_Verarbeitungskennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(zollArt_Verarbeitungskennzeichen,String) End If If (zollArt_Artikelnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(zollArt_Artikelnummer,String) End If If (zollArt_Dynamische_Ergaenzung_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(zollArt_Dynamische_Ergaenzung_1,String) End If If (zollArt_Dynamische_Ergaenzung_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(zollArt_Dynamische_Ergaenzung_2,String) End If If (zollArt_Kundennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(zollArt_Kundennummer,String) End If If (zollArt_Warencodenummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(zollArt_Warencodenummer,String) End If If (zollArt_Zusatzcode_1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(zollArt_Zusatzcode_1,String) End If If (zollArt_Zusatzcode_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(zollArt_Zusatzcode_2,String) End If If (zollArt_Kennzeichen_Gueltig Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(zollArt_Kennzeichen_Gueltig,String) End If If (zollArt_Kurzbezeichnung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(zollArt_Kurzbezeichnung,String) End If If (zollArt_Warenbeschreibung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(zollArt_Warenbeschreibung,String) End If If (zollArt_Statistische_Maßeinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(zollArt_Statistische_Maßeinheit,String) End If If (zollArt_Statistische_Maßeinheit_Qualifikator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(zollArt_Statistische_Maßeinheit_Qualifikator,String) End If If (zollArt_Besondere_Maßeinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(zollArt_Besondere_Maßeinheit,String) End If If (zollArt_Besondere_Maßeinheit_Qualifikator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(zollArt_Besondere_Maßeinheit_Qualifikator,String) End If If (zollArt_Gewicht Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(zollArt_Gewicht,String) End If If (zollArt_Menge Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(zollArt_Menge,String) End If If (Erfassungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Erfassungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Aenderungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Aenderungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Sachbearbeiter,String) End If If (zollArt_Status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(zollArt_Status,String) End If Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_zollArt_id,Integer) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_KundenNr,Integer) If (Original_zollArt_Teilsatzschluessel 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_zollArt_Teilsatzschluessel,String) End If If (Original_zollArt_Verarbeitungskennzeichen Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_zollArt_Verarbeitungskennzeichen,String) End If If (Original_zollArt_Artikelnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_zollArt_Artikelnummer,String) End If If (Original_zollArt_Dynamische_Ergaenzung_1 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_zollArt_Dynamische_Ergaenzung_1,String) End If If (Original_zollArt_Dynamische_Ergaenzung_2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_zollArt_Dynamische_Ergaenzung_2,String) End If If (Original_zollArt_Kundennummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_zollArt_Kundennummer,String) End If If (Original_zollArt_Warencodenummer 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_zollArt_Warencodenummer,String) End If If (Original_zollArt_Zusatzcode_1 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_zollArt_Zusatzcode_1,String) End If If (Original_zollArt_Zusatzcode_2 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_zollArt_Zusatzcode_2,String) End If If (Original_zollArt_Kennzeichen_Gueltig 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_zollArt_Kennzeichen_Gueltig,String) End If If (Original_zollArt_Kurzbezeichnung 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_zollArt_Kurzbezeichnung,String) End If If (Original_zollArt_Warenbeschreibung 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_zollArt_Warenbeschreibung,String) End If If (Original_zollArt_Statistische_Maßeinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_zollArt_Statistische_Maßeinheit,String) End If If (Original_zollArt_Statistische_Maßeinheit_Qualifikator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_zollArt_Statistische_Maßeinheit_Qualifikator,String) End If If (Original_zollArt_Besondere_Maßeinheit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_zollArt_Besondere_Maßeinheit,String) End If If (Original_zollArt_Besondere_Maßeinheit_Qualifikator Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_zollArt_Besondere_Maßeinheit_Qualifikator,String) End If If (Original_zollArt_Gewicht Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_zollArt_Gewicht,String) End If If (Original_zollArt_Menge Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_zollArt_Menge,String) End If If (Original_Erfassungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_Erfassungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (Original_Aenderungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_Aenderungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Original_Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_Sachbearbeiter,String) End If If (Original_zollArt_Status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_zollArt_Status,String) End If Me.Adapter.UpdateCommand.Parameters(69).Value = CType(zollArt_id,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 KundenNr As Integer, _ ByVal zollArt_Teilsatzschluessel As String, _ ByVal zollArt_Verarbeitungskennzeichen As String, _ ByVal zollArt_Artikelnummer As String, _ ByVal zollArt_Dynamische_Ergaenzung_1 As String, _ ByVal zollArt_Dynamische_Ergaenzung_2 As String, _ ByVal zollArt_Kundennummer As String, _ ByVal zollArt_Warencodenummer As String, _ ByVal zollArt_Zusatzcode_1 As String, _ ByVal zollArt_Zusatzcode_2 As String, _ ByVal zollArt_Kennzeichen_Gueltig As String, _ ByVal zollArt_Kurzbezeichnung As String, _ ByVal zollArt_Warenbeschreibung As String, _ ByVal zollArt_Statistische_Maßeinheit As String, _ ByVal zollArt_Statistische_Maßeinheit_Qualifikator As String, _ ByVal zollArt_Besondere_Maßeinheit As String, _ ByVal zollArt_Besondere_Maßeinheit_Qualifikator As String, _ ByVal zollArt_Gewicht As String, _ ByVal zollArt_Menge As String, _ ByVal Erfassungsdatum As Global.System.Nullable(Of Date), _ ByVal Aenderungsdatum As Global.System.Nullable(Of Date), _ ByVal Sachbearbeiter As String, _ ByVal zollArt_Status As String, _ ByVal Original_zollArt_id As Integer, _ ByVal Original_KundenNr As Integer, _ ByVal Original_zollArt_Teilsatzschluessel As String, _ ByVal Original_zollArt_Verarbeitungskennzeichen As String, _ ByVal Original_zollArt_Artikelnummer As String, _ ByVal Original_zollArt_Dynamische_Ergaenzung_1 As String, _ ByVal Original_zollArt_Dynamische_Ergaenzung_2 As String, _ ByVal Original_zollArt_Kundennummer As String, _ ByVal Original_zollArt_Warencodenummer As String, _ ByVal Original_zollArt_Zusatzcode_1 As String, _ ByVal Original_zollArt_Zusatzcode_2 As String, _ ByVal Original_zollArt_Kennzeichen_Gueltig As String, _ ByVal Original_zollArt_Kurzbezeichnung As String, _ ByVal Original_zollArt_Warenbeschreibung As String, _ ByVal Original_zollArt_Statistische_Maßeinheit As String, _ ByVal Original_zollArt_Statistische_Maßeinheit_Qualifikator As String, _ ByVal Original_zollArt_Besondere_Maßeinheit As String, _ ByVal Original_zollArt_Besondere_Maßeinheit_Qualifikator As String, _ ByVal Original_zollArt_Gewicht As String, _ ByVal Original_zollArt_Menge As String, _ ByVal Original_Erfassungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_Aenderungsdatum As Global.System.Nullable(Of Date), _ ByVal Original_Sachbearbeiter As String, _ ByVal Original_zollArt_Status As String) As Integer Return Me.Update(KundenNr, zollArt_Teilsatzschluessel, zollArt_Verarbeitungskennzeichen, zollArt_Artikelnummer, zollArt_Dynamische_Ergaenzung_1, zollArt_Dynamische_Ergaenzung_2, zollArt_Kundennummer, zollArt_Warencodenummer, zollArt_Zusatzcode_1, zollArt_Zusatzcode_2, zollArt_Kennzeichen_Gueltig, zollArt_Kurzbezeichnung, zollArt_Warenbeschreibung, zollArt_Statistische_Maßeinheit, zollArt_Statistische_Maßeinheit_Qualifikator, zollArt_Besondere_Maßeinheit, zollArt_Besondere_Maßeinheit_Qualifikator, zollArt_Gewicht, zollArt_Menge, Erfassungsdatum, Aenderungsdatum, Sachbearbeiter, zollArt_Status, Original_zollArt_id, Original_KundenNr, Original_zollArt_Teilsatzschluessel, Original_zollArt_Verarbeitungskennzeichen, Original_zollArt_Artikelnummer, Original_zollArt_Dynamische_Ergaenzung_1, Original_zollArt_Dynamische_Ergaenzung_2, Original_zollArt_Kundennummer, Original_zollArt_Warencodenummer, Original_zollArt_Zusatzcode_1, Original_zollArt_Zusatzcode_2, Original_zollArt_Kennzeichen_Gueltig, Original_zollArt_Kurzbezeichnung, Original_zollArt_Warenbeschreibung, Original_zollArt_Statistische_Maßeinheit, Original_zollArt_Statistische_Maßeinheit_Qualifikator, Original_zollArt_Besondere_Maßeinheit, Original_zollArt_Besondere_Maßeinheit_Qualifikator, Original_zollArt_Gewicht, Original_zollArt_Menge, Original_Erfassungsdatum, Original_Aenderungsdatum, Original_Sachbearbeiter, Original_zollArt_Status, Original_zollArt_id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tblZollUnterArtikelTableAdapter 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 = "tblZollUnterArtikel" tableMapping.ColumnMappings.Add("zollUntArtk_Id", "zollUntArtk_Id") tableMapping.ColumnMappings.Add("zollUntArtk_zollArtId", "zollUntArtk_zollArtId") tableMapping.ColumnMappings.Add("zollUntArtk_Bezeichnung", "zollUntArtk_Bezeichnung") tableMapping.ColumnMappings.Add("zollUntArtk_Artikelnummer", "zollUntArtk_Artikelnummer") 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].[tblZollUnterArtikel] WHERE (([zollUntArtk_Id] = @Original_zoll"& _ "UntArtk_Id) AND ([zollUntArtk_zollArtId] = @Original_zollUntArtk_zollArtId) AND "& _ "([zollUntArtk_Bezeichnung] = @Original_zollUntArtk_Bezeichnung) AND ([zollUntArt"& _ "k_Artikelnummer] = @Original_zollUntArtk_Artikelnummer))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollUntArtk_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollUntArtk_zollArtId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_zollArtId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollUntArtk_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollUntArtk_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Artikelnummer", 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].[tblZollUnterArtikel] ([zollUntArtk_zollArtId], [zollUntArtk_Be"& _ "zeichnung], [zollUntArtk_Artikelnummer]) VALUES (@zollUntArtk_zollArtId, @zollUn"& _ "tArtk_Bezeichnung, @zollUntArtk_Artikelnummer);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT zollUntArtk_Id, zollUntA"& _ "rtk_zollArtId, zollUntArtk_Bezeichnung, zollUntArtk_Artikelnummer FROM tblZollUn"& _ "terArtikel WHERE (zollUntArtk_Id = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollUntArtk_zollArtId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_zollArtId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollUntArtk_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollUntArtk_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Artikelnummer", 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].[tblZollUnterArtikel] SET [zollUntArtk_zollArtId] = @zollUntArtk_zol"& _ "lArtId, [zollUntArtk_Bezeichnung] = @zollUntArtk_Bezeichnung, [zollUntArtk_Artik"& _ "elnummer] = @zollUntArtk_Artikelnummer WHERE (([zollUntArtk_Id] = @Original_zoll"& _ "UntArtk_Id) AND ([zollUntArtk_zollArtId] = @Original_zollUntArtk_zollArtId) AND "& _ "([zollUntArtk_Bezeichnung] = @Original_zollUntArtk_Bezeichnung) AND ([zollUntArt"& _ "k_Artikelnummer] = @Original_zollUntArtk_Artikelnummer));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT zollUntArtk_Id"& _ ", zollUntArtk_zollArtId, zollUntArtk_Bezeichnung, zollUntArtk_Artikelnummer FROM"& _ " tblZollUnterArtikel WHERE (zollUntArtk_Id = @zollUntArtk_Id)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollUntArtk_zollArtId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_zollArtId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollUntArtk_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Bezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollUntArtk_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Artikelnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollUntArtk_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollUntArtk_zollArtId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_zollArtId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollUntArtk_Bezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Bezeichnung", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_zollUntArtk_Artikelnummer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Artikelnummer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zollUntArtk_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "zollUntArtk_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 zollUntArtk_Id, zollUntArtk_zollArtId, zollUntArtk_Bezeichnung, zollUntArt"& _ "k_Artikelnummer FROM dbo.tblZollUnterArtikel" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.tblZollUnterArtikelDataTable) 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 VERAGDataSet.tblZollUnterArtikelDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.tblZollUnterArtikelDataTable = New VERAGDataSet.tblZollUnterArtikelDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.tblZollUnterArtikelDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "tblZollUnterArtikel") 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_zollUntArtk_Id As Integer, ByVal Original_zollUntArtk_zollArtId As Integer, ByVal Original_zollUntArtk_Bezeichnung As String, ByVal Original_zollUntArtk_Artikelnummer As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_zollUntArtk_Id,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_zollUntArtk_zollArtId,Integer) If (Original_zollUntArtk_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_zollUntArtk_Bezeichnung") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_zollUntArtk_Bezeichnung,String) End If If (Original_zollUntArtk_Artikelnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_zollUntArtk_Artikelnummer") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_zollUntArtk_Artikelnummer,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 zollUntArtk_zollArtId As Integer, ByVal zollUntArtk_Bezeichnung As String, ByVal zollUntArtk_Artikelnummer As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(zollUntArtk_zollArtId,Integer) If (zollUntArtk_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("zollUntArtk_Bezeichnung") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(zollUntArtk_Bezeichnung,String) End If If (zollUntArtk_Artikelnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("zollUntArtk_Artikelnummer") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(zollUntArtk_Artikelnummer,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 zollUntArtk_zollArtId As Integer, ByVal zollUntArtk_Bezeichnung As String, ByVal zollUntArtk_Artikelnummer As String, ByVal Original_zollUntArtk_Id As Integer, ByVal Original_zollUntArtk_zollArtId As Integer, ByVal Original_zollUntArtk_Bezeichnung As String, ByVal Original_zollUntArtk_Artikelnummer As String, ByVal zollUntArtk_Id As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(zollUntArtk_zollArtId,Integer) If (zollUntArtk_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("zollUntArtk_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(zollUntArtk_Bezeichnung,String) End If If (zollUntArtk_Artikelnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("zollUntArtk_Artikelnummer") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(zollUntArtk_Artikelnummer,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_zollUntArtk_Id,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_zollUntArtk_zollArtId,Integer) If (Original_zollUntArtk_Bezeichnung Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_zollUntArtk_Bezeichnung") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_zollUntArtk_Bezeichnung,String) End If If (Original_zollUntArtk_Artikelnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_zollUntArtk_Artikelnummer") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_zollUntArtk_Artikelnummer,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(zollUntArtk_Id,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 zollUntArtk_zollArtId As Integer, ByVal zollUntArtk_Bezeichnung As String, ByVal zollUntArtk_Artikelnummer As String, ByVal Original_zollUntArtk_Id As Integer, ByVal Original_zollUntArtk_zollArtId As Integer, ByVal Original_zollUntArtk_Bezeichnung As String, ByVal Original_zollUntArtk_Artikelnummer As String) As Integer Return Me.Update(zollUntArtk_zollArtId, zollUntArtk_Bezeichnung, zollUntArtk_Artikelnummer, Original_zollUntArtk_Id, Original_zollUntArtk_zollArtId, Original_zollUntArtk_Bezeichnung, Original_zollUntArtk_Artikelnummer, Original_zollUntArtk_Id) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TemporaryUpsizedTable2TableAdapter 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 = "TemporaryUpsizedTable2" tableMapping.ColumnMappings.Add("Dateiname", "Dateiname") tableMapping.ColumnMappings.Add("LfdNr", "LfdNr") tableMapping.ColumnMappings.Add("Code_Adressat_der_Rechnung", "Code_Adressat_der_Rechnung") tableMapping.ColumnMappings.Add("Code_Adressat_des_Kontoauszugs", "Code_Adressat_des_Kontoauszugs") tableMapping.ColumnMappings.Add("Art_der_Bewegung", "Art_der_Bewegung") tableMapping.ColumnMappings.Add("Datum_der_Bewegung", "Datum_der_Bewegung") tableMapping.ColumnMappings.Add("Uhrzeit_der_Bewegung", "Uhrzeit_der_Bewegung") tableMapping.ColumnMappings.Add("Ursprünglicher_Betrag_der_Bewegung", "Ursprünglicher_Betrag_der_Bewegung") tableMapping.ColumnMappings.Add("Nicht_mehrwertsteuerpflichtiger_Betrag", "Nicht_mehrwertsteuerpflichtiger_Betrag") tableMapping.ColumnMappings.Add("Betrag_mit_Preisnachlass_oder_Preisnachlass", "Betrag_mit_Preisnachlass_oder_Preisnachlass") tableMapping.ColumnMappings.Add("Form_des_Mediums", "Form_des_Mediums") tableMapping.ColumnMappings.Add("Beschreibung_Form_des_Mediums", "Beschreibung_Form_des_Mediums") tableMapping.ColumnMappings.Add("Kodierung_Medium", "Kodierung_Medium") tableMapping.ColumnMappings.Add("Beschreibung_der_Bewegung", "Beschreibung_der_Bewegung") tableMapping.ColumnMappings.Add("Gebührenklasse", "Gebührenklasse") tableMapping.ColumnMappings.Add("Verrechnungsdatum", "Verrechnungsdatum") tableMapping.ColumnMappings.Add("Zeichen_Betrag", "Zeichen_Betrag") tableMapping.ColumnMappings.Add("KfzKennzeichen", "KfzKennzeichen") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TemporaryUpsizedTable2] ([Dateiname], [LfdNr], [Code_Adressat_"& _ "der_Rechnung], [Code_Adressat_des_Kontoauszugs], [Art_der_Bewegung], [Datum_der_"& _ "Bewegung], [Uhrzeit_der_Bewegung], [Ursprünglicher_Betrag_der_Bewegung], [Nicht_"& _ "mehrwertsteuerpflichtiger_Betrag], [Betrag_mit_Preisnachlass_oder_Preisnachlass]"& _ ", [Form_des_Mediums], [Beschreibung_Form_des_Mediums], [Kodierung_Medium], [Besc"& _ "hreibung_der_Bewegung], [Gebührenklasse], [Verrechnungsdatum], [Zeichen_Betrag],"& _ " [KfzKennzeichen], [UStVAn_ID]) VALUES (@Dateiname, @LfdNr, @Code_Adressat_der_R"& _ "echnung, @Code_Adressat_des_Kontoauszugs, @Art_der_Bewegung, @Datum_der_Bewegung"& _ ", @Uhrzeit_der_Bewegung, @Ursprünglicher_Betrag_der_Bewegung, @Nicht_mehrwertste"& _ "uerpflichtiger_Betrag, @Betrag_mit_Preisnachlass_oder_Preisnachlass, @Form_des_M"& _ "ediums, @Beschreibung_Form_des_Mediums, @Kodierung_Medium, @Beschreibung_der_Bew"& _ "egung, @Gebührenklasse, @Verrechnungsdatum, @Zeichen_Betrag, @KfzKennzeichen, @U"& _ "StVAn_ID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LfdNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LfdNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Adressat_der_Rechnung", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Adressat_der_Rechnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Adressat_des_Kontoauszugs", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Adressat_des_Kontoauszugs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Art_der_Bewegung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Art_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Datum_der_Bewegung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Datum_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Uhrzeit_der_Bewegung", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Uhrzeit_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ursprünglicher_Betrag_der_Bewegung", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ursprünglicher_Betrag_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nicht_mehrwertsteuerpflichtiger_Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nicht_mehrwertsteuerpflichtiger_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag_mit_Preisnachlass_oder_Preisnachlass", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag_mit_Preisnachlass_oder_Preisnachlass", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Form_des_Mediums", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Form_des_Mediums", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Beschreibung_Form_des_Mediums", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Beschreibung_Form_des_Mediums", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kodierung_Medium", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Kodierung_Medium", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Beschreibung_der_Bewegung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Beschreibung_der_Bewegung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gebührenklasse", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gebührenklasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verrechnungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verrechnungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zeichen_Betrag", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zeichen_Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KfzKennzeichen", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KfzKennzeichen", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UStVAn_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Dateiname, LfdNr, Code_Adressat_der_Rechnung, Code_Adressat_des_Kontoauszu"& _ "gs, Art_der_Bewegung, Datum_der_Bewegung, Uhrzeit_der_Bewegung, Ursprünglicher_B"& _ "etrag_der_Bewegung, Nicht_mehrwertsteuerpflichtiger_Betrag, Betrag_mit_Preisnach"& _ "lass_oder_Preisnachlass, Form_des_Mediums, Beschreibung_Form_des_Mediums, Kodier"& _ "ung_Medium, Beschreibung_der_Bewegung, Gebührenklasse, Verrechnungsdatum, Zeiche"& _ "n_Betrag, KfzKennzeichen, UStVAn_ID FROM dbo.TemporaryUpsizedTable2" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.TemporaryUpsizedTable2DataTable) 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 VERAGDataSet.TemporaryUpsizedTable2DataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.TemporaryUpsizedTable2DataTable = New VERAGDataSet.TemporaryUpsizedTable2DataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.TemporaryUpsizedTable2DataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "TemporaryUpsizedTable2") 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 Insert( _ ByVal Dateiname As String, _ ByVal LfdNr As Global.System.Nullable(Of Integer), _ ByVal Code_Adressat_der_Rechnung As Global.System.Nullable(Of Integer), _ ByVal Code_Adressat_des_Kontoauszugs As Global.System.Nullable(Of Integer), _ ByVal Art_der_Bewegung As String, _ ByVal Datum_der_Bewegung As Global.System.Nullable(Of Date), _ ByVal Uhrzeit_der_Bewegung As Global.System.Nullable(Of Date), _ ByVal Ursprünglicher_Betrag_der_Bewegung As Global.System.Nullable(Of Decimal), _ ByVal Nicht_mehrwertsteuerpflichtiger_Betrag As Global.System.Nullable(Of Decimal), _ ByVal Betrag_mit_Preisnachlass_oder_Preisnachlass As Global.System.Nullable(Of Decimal), _ ByVal Form_des_Mediums As String, _ ByVal Beschreibung_Form_des_Mediums As String, _ ByVal Kodierung_Medium As String, _ ByVal Beschreibung_der_Bewegung As String, _ ByVal Gebührenklasse As String, _ ByVal Verrechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Zeichen_Betrag As String, _ ByVal KfzKennzeichen As String, _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer)) As Integer If (Dateiname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Dateiname,String) End If If (LfdNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(LfdNr.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Code_Adressat_der_Rechnung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Code_Adressat_der_Rechnung.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Code_Adressat_des_Kontoauszugs.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(Code_Adressat_des_Kontoauszugs.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Art_der_Bewegung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Art_der_Bewegung,String) End If If (Datum_der_Bewegung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Datum_der_Bewegung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Uhrzeit_der_Bewegung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(Uhrzeit_der_Bewegung.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Ursprünglicher_Betrag_der_Bewegung.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Ursprünglicher_Betrag_der_Bewegung.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Nicht_mehrwertsteuerpflichtiger_Betrag.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(Nicht_mehrwertsteuerpflichtiger_Betrag.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Betrag_mit_Preisnachlass_oder_Preisnachlass.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(Betrag_mit_Preisnachlass_oder_Preisnachlass.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Form_des_Mediums Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(Form_des_Mediums,String) End If If (Beschreibung_Form_des_Mediums Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(Beschreibung_Form_des_Mediums,String) End If If (Kodierung_Medium Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Kodierung_Medium,String) End If If (Beschreibung_der_Bewegung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Beschreibung_der_Bewegung,String) End If If (Gebührenklasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Gebührenklasse,String) End If If (Verrechnungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(Verrechnungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Zeichen_Betrag Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Zeichen_Betrag,String) End If If (KfzKennzeichen Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(KfzKennzeichen,String) End If If (UStVAn_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(18).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(18).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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VerkehrszweigeTableAdapter 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 = "Verkehrszweige" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Verkehrszweig", "Verkehrszweig") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Verkehrszweige] WHERE (([ID] = @Original_ID) AND ([SSMA_TimeSt"& _ "amp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Verkehrszweige] ([ID], [Verkehrszweig]) VALUES (@ID, @Verkehrs"& _ "zweig);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Verkehrszweig, SSMA_TimeStamp FROM Verkehrszweige WHERE (ID "& _ "= @ID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verkehrszweig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verkehrszweig", 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].[Verkehrszweige] SET [ID] = @ID, [Verkehrszweig] = @Verkehrszweig WH"& _ "ERE (([ID] = @Original_ID) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "SELECT ID, Verkehrszweig, SSMA_TimeStamp FROM Verkehrszweige WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Verkehrszweig", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Verkehrszweig", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, Verkehrszweig, SSMA_TimeStamp FROM dbo.Verkehrszweige" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.VerkehrszweigeDataTable) 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 VERAGDataSet.VerkehrszweigeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.VerkehrszweigeDataTable = New VERAGDataSet.VerkehrszweigeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.VerkehrszweigeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Verkehrszweige") 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_ID As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 ID As Short, ByVal Verkehrszweig As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Short) If (Verkehrszweig Is Nothing) Then Throw New Global.System.ArgumentNullException("Verkehrszweig") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Verkehrszweig,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 ID As Short, ByVal Verkehrszweig As String, ByVal Original_ID As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Short) If (Verkehrszweig Is Nothing) Then Throw New Global.System.ArgumentNullException("Verkehrszweig") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Verkehrszweig,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ID,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Verkehrszweig As String, ByVal Original_ID As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_ID, Verkehrszweig, Original_ID, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VermerkeTableAdapter 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 = "Vermerke" tableMapping.ColumnMappings.Add("Vermerk", "Vermerk") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Vermerke] WHERE (([Vermerk] = @Original_Vermerk) AND ([SSMA_Ti"& _ "meStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Vermerke] ([Vermerk]) VALUES (@Vermerk);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Vermerk, SSMA"& _ "_TimeStamp FROM Vermerke WHERE (Vermerk = @Vermerk)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermerk", 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].[Vermerke] SET [Vermerk] = @Vermerk WHERE (([Vermerk] = @Original_Ve"& _ "rmerk) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Vermerk, SSMA"& _ "_TimeStamp FROM Vermerke WHERE (Vermerk = @Vermerk)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermerk", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Vermerk", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Vermerk", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Vermerk, SSMA_TimeStamp FROM dbo.Vermerke" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.VermerkeDataTable) 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 VERAGDataSet.VermerkeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.VermerkeDataTable = New VERAGDataSet.VermerkeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.VermerkeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Vermerke") 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_Vermerk As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_Vermerk Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Vermerk") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Vermerk,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Vermerk As String) As Integer If (Vermerk Is Nothing) Then Throw New Global.System.ArgumentNullException("Vermerk") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Vermerk,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 Vermerk As String, ByVal Original_Vermerk As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Vermerk Is Nothing) Then Throw New Global.System.ArgumentNullException("Vermerk") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Vermerk,String) End If If (Original_Vermerk Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Vermerk") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Vermerk,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Original_Vermerk As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Vermerk, Original_Vermerk, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VorkostenTableAdapter 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 = "Vorkosten" tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[Vorkosten] WHERE (([FilialenNr] = @Original_FilialenNr) AND (["& _ "AbfertigungsNr] = @Original_AbfertigungsNr) AND ([UnterNr] = @Original_UnterNr) "& _ "AND ([LeistungsNr] = @Original_LeistungsNr) AND ([LeistungsBez] = @Original_Leis"& _ "tungsBez) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] ="& _ " @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[Vorkosten] ([FilialenNr], [AbfertigungsNr], [UnterNr], [Leistu"& _ "ngsNr], [LeistungsBez], [Preis]) VALUES (@FilialenNr, @AbfertigungsNr, @UnterNr,"& _ " @LeistungsNr, @LeistungsBez, @Preis);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FilialenNr, AbfertigungsNr, Unter"& _ "Nr, LeistungsNr, LeistungsBez, Preis, upsize_ts FROM Vorkosten WHERE (Abfertigun"& _ "gsNr = @AbfertigungsNr) AND (FilialenNr = @FilialenNr) AND (LeistungsBez = @Leis"& _ "tungsBez) AND (LeistungsNr = @LeistungsNr) AND (UnterNr = @UnterNr)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", 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].[Vorkosten] SET [FilialenNr] = @FilialenNr, [AbfertigungsNr] = @Abfe"& _ "rtigungsNr, [UnterNr] = @UnterNr, [LeistungsNr] = @LeistungsNr, [LeistungsBez] ="& _ " @LeistungsBez, [Preis] = @Preis WHERE (([FilialenNr] = @Original_FilialenNr) AN"& _ "D ([AbfertigungsNr] = @Original_AbfertigungsNr) AND ([UnterNr] = @Original_Unter"& _ "Nr) AND ([LeistungsNr] = @Original_LeistungsNr) AND ([LeistungsBez] = @Original_"& _ "LeistungsBez) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_t"& _ "s] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT FilialenNr, AbfertigungsNr, UnterNr, Leistu"& _ "ngsNr, LeistungsBez, Preis, upsize_ts FROM Vorkosten WHERE (AbfertigungsNr = @Ab"& _ "fertigungsNr) AND (FilialenNr = @FilialenNr) AND (LeistungsBez = @LeistungsBez) "& _ "AND (LeistungsNr = @LeistungsNr) AND (UnterNr = @UnterNr)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Preis", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FilialenNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AbfertigungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UnterNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UnterNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 FilialenNr, AbfertigungsNr, UnterNr, LeistungsNr, LeistungsBez, Preis, ups"& _ "ize_ts FROM dbo.Vorkosten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.VorkostenDataTable) 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 VERAGDataSet.VorkostenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.VorkostenDataTable = New VERAGDataSet.VorkostenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.VorkostenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Vorkosten") 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_FilialenNr As Short, ByVal Original_AbfertigungsNr As Integer, ByVal Original_UnterNr As Short, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_FilialenNr,Short) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_AbfertigungsNr,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UnterNr,Short) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_LeistungsBez,String) End If If (Original_upsize_ts 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_upsize_ts,Byte()) 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 FilialenNr As Short, ByVal AbfertigungsNr As Integer, ByVal UnterNr As Short, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Preis As Decimal) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(FilialenNr,Short) Me.Adapter.InsertCommand.Parameters(1).Value = CType(AbfertigungsNr,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(UnterNr,Short) Me.Adapter.InsertCommand.Parameters(3).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(LeistungsBez,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(Preis,Decimal) 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 FilialenNr As Short, ByVal AbfertigungsNr As Integer, ByVal UnterNr As Short, ByVal LeistungsNr As Short, ByVal LeistungsBez As String, ByVal Preis As Decimal, ByVal Original_FilialenNr As Short, ByVal Original_AbfertigungsNr As Integer, ByVal Original_UnterNr As Short, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FilialenNr,Short) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(AbfertigungsNr,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(UnterNr,Short) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LeistungsNr,Short) If (LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LeistungsBez,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Preis,Decimal) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_FilialenNr,Short) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_AbfertigungsNr,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_UnterNr,Short) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_LeistungsNr,Short) If (Original_LeistungsBez Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LeistungsBez") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_LeistungsBez,String) End If If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_upsize_ts,Byte()) End If 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 Preis As Decimal, ByVal Original_FilialenNr As Short, ByVal Original_AbfertigungsNr As Integer, ByVal Original_UnterNr As Short, ByVal Original_LeistungsNr As Short, ByVal Original_LeistungsBez As String, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Original_FilialenNr, Original_AbfertigungsNr, Original_UnterNr, Original_LeistungsNr, Original_LeistungsBez, Preis, Original_FilialenNr, Original_AbfertigungsNr, Original_UnterNr, Original_LeistungsNr, Original_LeistungsBez, Original_upsize_ts) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class WährungstabelleTableAdapter 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 = "Währungstabelle" tableMapping.ColumnMappings.Add("Währungsschlüssel", "Währungsschlüssel") tableMapping.ColumnMappings.Add("Land", "Land") tableMapping.ColumnMappings.Add("Menge", "Menge") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Eurokurs", "Eurokurs") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("MitgliedslandEU", "MitgliedslandEU") tableMapping.ColumnMappings.Add("BeitrittsjahrEU", "BeitrittsjahrEU") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Währungstabelle] WHERE (([Währungsschlüssel] = @Original_Währu"& _ "ngsschlüssel) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Währungstabelle] ([Währungsschlüssel], [Land], [Menge], [Währu"& _ "ngscode], [Eurokurs], [LandKz], [MitgliedslandEU], [BeitrittsjahrEU]) VALUES (@W"& _ "ährungsschlüssel, @Land, @Menge, @Währungscode, @Eurokurs, @LandKz, @Mitgliedsla"& _ "ndEU, @BeitrittsjahrEU);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Währungsschlüssel, Land, Menge, Währungscode, E"& _ "urokurs, LandKz, MitgliedslandEU, BeitrittsjahrEU, SSMA_TimeStamp FROM Währungst"& _ "abelle WHERE (Währungsschlüssel = @Währungsschlüssel)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Menge", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eurokurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eurokurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MitgliedslandEU", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MitgliedslandEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BeitrittsjahrEU", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BeitrittsjahrEU", 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].[Währungstabelle] SET [Währungsschlüssel] = @Währungsschlüssel, [Lan"& _ "d] = @Land, [Menge] = @Menge, [Währungscode] = @Währungscode, [Eurokurs] = @Euro"& _ "kurs, [LandKz] = @LandKz, [MitgliedslandEU] = @MitgliedslandEU, [BeitrittsjahrEU"& _ "] = @BeitrittsjahrEU WHERE (([Währungsschlüssel] = @Original_Währungsschlüssel) "& _ "AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Währungsschlüssel, L"& _ "and, Menge, Währungscode, Eurokurs, LandKz, MitgliedslandEU, BeitrittsjahrEU, SS"& _ "MA_TimeStamp FROM Währungstabelle WHERE (Währungsschlüssel = @Währungsschlüssel)"& _ "" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Land", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Land", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Menge", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Menge", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungscode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eurokurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eurokurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LandKz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LandKz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MitgliedslandEU", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MitgliedslandEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BeitrittsjahrEU", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BeitrittsjahrEU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Währungsschlüssel", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Währungsschlüssel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Währungsschlüssel, Land, Menge, Währungscode, Eurokurs, LandKz, Mitgliedsl"& _ "andEU, BeitrittsjahrEU, SSMA_TimeStamp FROM dbo.Währungstabelle" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.WährungstabelleDataTable) 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 VERAGDataSet.WährungstabelleDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.WährungstabelleDataTable = New VERAGDataSet.WährungstabelleDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.WährungstabelleDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Währungstabelle") 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_Währungsschlüssel As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Währungsschlüssel,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Währungsschlüssel As Short, ByVal Land As String, ByVal Menge As Short, ByVal Währungscode As String, ByVal Eurokurs As Global.System.Nullable(Of Double), ByVal LandKz As String, ByVal MitgliedslandEU As Global.System.Nullable(Of Boolean), ByVal BeitrittsjahrEU As Global.System.Nullable(Of Short)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(Währungsschlüssel,Short) If (Land Is Nothing) Then Throw New Global.System.ArgumentNullException("Land") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Land,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(Menge,Short) If (Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Währungscode") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Währungscode,String) End If If (Eurokurs.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Eurokurs.Value,Double) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (LandKz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(LandKz,String) End If If (MitgliedslandEU.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(MitgliedslandEU.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BeitrittsjahrEU.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(BeitrittsjahrEU.Value,Short) Else Me.Adapter.InsertCommand.Parameters(7).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 Währungsschlüssel As Short, ByVal Land As String, ByVal Menge As Short, ByVal Währungscode As String, ByVal Eurokurs As Global.System.Nullable(Of Double), ByVal LandKz As String, ByVal MitgliedslandEU As Global.System.Nullable(Of Boolean), ByVal BeitrittsjahrEU As Global.System.Nullable(Of Short), ByVal Original_Währungsschlüssel As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Währungsschlüssel,Short) If (Land Is Nothing) Then Throw New Global.System.ArgumentNullException("Land") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Land,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Menge,Short) If (Währungscode Is Nothing) Then Throw New Global.System.ArgumentNullException("Währungscode") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Währungscode,String) End If If (Eurokurs.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Eurokurs.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (LandKz Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LandKz,String) End If If (MitgliedslandEU.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(MitgliedslandEU.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (BeitrittsjahrEU.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(BeitrittsjahrEU.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Währungsschlüssel,Short) If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Land As String, ByVal Menge As Short, ByVal Währungscode As String, ByVal Eurokurs As Global.System.Nullable(Of Double), ByVal LandKz As String, ByVal MitgliedslandEU As Global.System.Nullable(Of Boolean), ByVal BeitrittsjahrEU As Global.System.Nullable(Of Short), ByVal Original_Währungsschlüssel As Short, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Währungsschlüssel, Land, Menge, Währungscode, Eurokurs, LandKz, MitgliedslandEU, BeitrittsjahrEU, Original_Währungsschlüssel, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class ZahlungsartenTableAdapter 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 = "Zahlungsarten" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Zahlungsart", "Zahlungsart") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Zahlungsarten] WHERE (([ID] = @Original_ID) AND ([SSMA_TimeSta"& _ "mp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Zahlungsarten] ([ID], [Zahlungsart]) VALUES (@ID, @Zahlungsart"& _ ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Zahlungsart, SSMA_TimeStamp FROM Zahlungsarten WHERE (ID = @ID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsart", 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].[Zahlungsarten] SET [ID] = @ID, [Zahlungsart] = @Zahlungsart WHERE ("& _ "([ID] = @Original_ID) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ "T ID, Zahlungsart, SSMA_TimeStamp FROM Zahlungsarten WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zahlungsart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zahlungsart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, Zahlungsart, SSMA_TimeStamp FROM dbo.Zahlungsarten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.ZahlungsartenDataTable) 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 VERAGDataSet.ZahlungsartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.ZahlungsartenDataTable = New VERAGDataSet.ZahlungsartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.ZahlungsartenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Zahlungsarten") 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_ID As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ID") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 ID As String, ByVal Zahlungsart As String) As Integer If (ID Is Nothing) Then Throw New Global.System.ArgumentNullException("ID") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,String) End If If (Zahlungsart Is Nothing) Then Throw New Global.System.ArgumentNullException("Zahlungsart") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Zahlungsart,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 ID As String, ByVal Zahlungsart As String, ByVal Original_ID As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (ID Is Nothing) Then Throw New Global.System.ArgumentNullException("ID") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,String) End If If (Zahlungsart Is Nothing) Then Throw New Global.System.ArgumentNullException("Zahlungsart") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Zahlungsart,String) End If If (Original_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ID") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ID,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Zahlungsart As String, ByVal Original_ID As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_ID, Zahlungsart, Original_ID, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class zbadzTableAdapter 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 = "zbadz" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("zbant_ID", "zbant_ID") tableMapping.ColumnMappings.Add("zbadz_typ", "zbadz_typ") tableMapping.ColumnMappings.Add("zbadz_name1", "zbadz_name1") tableMapping.ColumnMappings.Add("baslnd_alpha", "baslnd_alpha") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[zbadz] WHERE (([ID] = @Original_ID) AND ((@IsNull_upsize_ts = "& _ "1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[zbadz] ([zbant_ID], [zbadz_typ], [zbadz_name1], [baslnd_alpha]"& _ ") VALUES (@zbant_ID, @zbadz_typ, @zbadz_name1, @baslnd_alpha);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, zbant"& _ "_ID, zbadz_typ, zbadz_name1, baslnd_alpha, upsize_ts FROM zbadz WHERE (ID = SCOP"& _ "E_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbadz_typ", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbadz_typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbadz_name1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbadz_name1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@baslnd_alpha", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "baslnd_alpha", 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].[zbadz] SET [zbant_ID] = @zbant_ID, [zbadz_typ] = @zbadz_typ, [zbadz"& _ "_name1] = @zbadz_name1, [baslnd_alpha] = @baslnd_alpha WHERE (([ID] = @Original_"& _ "ID) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Orig"& _ "inal_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, zbant_ID, zbadz_typ, zbadz_name1, baslnd_alpha, u"& _ "psize_ts FROM zbadz WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbadz_typ", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbadz_typ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbadz_name1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbadz_name1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@baslnd_alpha", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "baslnd_alpha", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, zbant_ID, zbadz_typ, zbadz_name1, baslnd_alpha, upsize_ts FROM dbo.zba"& _ "dz" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.zbadzDataTable) 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 VERAGDataSet.zbadzDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.zbadzDataTable = New VERAGDataSet.zbadzDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.zbadzDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "zbadz") 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_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 zbant_ID As Integer, ByVal zbadz_typ As Short, ByVal zbadz_name1 As String, ByVal baslnd_alpha As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(zbant_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(zbadz_typ,Short) If (zbadz_name1 Is Nothing) Then Throw New Global.System.ArgumentNullException("zbadz_name1") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(zbadz_name1,String) End If If (baslnd_alpha Is Nothing) Then Throw New Global.System.ArgumentNullException("baslnd_alpha") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(baslnd_alpha,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 zbant_ID As Integer, ByVal zbadz_typ As Short, ByVal zbadz_name1 As String, ByVal baslnd_alpha As String, ByVal Original_ID As Integer, ByVal Original_upsize_ts() As Byte, ByVal ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(zbant_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(zbadz_typ,Short) If (zbadz_name1 Is Nothing) Then Throw New Global.System.ArgumentNullException("zbadz_name1") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(zbadz_name1,String) End If If (baslnd_alpha Is Nothing) Then Throw New Global.System.ArgumentNullException("baslnd_alpha") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(baslnd_alpha,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_ID,Integer) If (Original_upsize_ts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ID,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 zbant_ID As Integer, ByVal zbadz_typ As Short, ByVal zbadz_name1 As String, ByVal baslnd_alpha As String, ByVal Original_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(zbant_ID, zbadz_typ, zbadz_name1, baslnd_alpha, Original_ID, Original_upsize_ts, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class zbantTableAdapter 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 = "zbant" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("basman_nr", "basman_nr") tableMapping.ColumnMappings.Add("basman_nl", "basman_nl") tableMapping.ColumnMappings.Add("zbant_beznr", "zbant_beznr") tableMapping.ColumnMappings.Add("zbant_regnr", "zbant_regnr") tableMapping.ColumnMappings.Add("zbant_korant", "zbant_korant") tableMapping.ColumnMappings.Add("zbant_antart", "zbant_antart") tableMapping.ColumnMappings.Add("zbant_stat", "zbant_stat") tableMapping.ColumnMappings.Add("zbant_anmust", "zbant_anmust") tableMapping.ColumnMappings.Add("zbant_erwust", "zbant_erwust") tableMapping.ColumnMappings.Add("zbant_nadat", "zbant_nadat") tableMapping.ColumnMappings.Add("zbant_preisr", "zbant_preisr") tableMapping.ColumnMappings.Add("zbant_waehr", "zbant_waehr") tableMapping.ColumnMappings.Add("zbant_kurs", "zbant_kurs") tableMapping.ColumnMappings.Add("zbant_gesart", "zbant_gesart") tableMapping.ColumnMappings.Add("zbant_bfvkzg", "zbant_bfvkzg") tableMapping.ColumnMappings.Add("zbant_dsenda", "zbant_dsenda") tableMapping.ColumnMappings.Add("zbant_anzpos", "zbant_anzpos") tableMapping.ColumnMappings.Add("History", "History") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[zbant] WHERE (([ID] = @Original_ID) AND ((@IsNull_upsize_ts = "& _ "1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[zbant] ([basman_nr], [basman_nl], [zbant_beznr], [zbant_regnr]"& _ ", [zbant_korant], [zbant_antart], [zbant_stat], [zbant_anmust], [zbant_erwust], "& _ "[zbant_nadat], [zbant_preisr], [zbant_waehr], [zbant_kurs], [zbant_gesart], [zba"& _ "nt_bfvkzg], [zbant_dsenda], [zbant_anzpos], [History]) VALUES (@basman_nr, @basm"& _ "an_nl, @zbant_beznr, @zbant_regnr, @zbant_korant, @zbant_antart, @zbant_stat, @z"& _ "bant_anmust, @zbant_erwust, @zbant_nadat, @zbant_preisr, @zbant_waehr, @zbant_ku"& _ "rs, @zbant_gesart, @zbant_bfvkzg, @zbant_dsenda, @zbant_anzpos, @History);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ "CT ID, basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbant_antar"& _ "t, zbant_stat, zbant_anmust, zbant_erwust, zbant_nadat, zbant_preisr, zbant_waeh"& _ "r, zbant_kurs, zbant_gesart, zbant_bfvkzg, zbant_dsenda, zbant_anzpos, History, "& _ "upsize_ts FROM zbant WHERE (ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@basman_nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "basman_nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@basman_nl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "basman_nl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_beznr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_beznr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_regnr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_regnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_korant", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_korant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_antart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_antart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_anmust", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_anmust", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_erwust", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_erwust", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_nadat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_nadat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_preisr", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_preisr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_waehr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_waehr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_kurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_kurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_gesart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_gesart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_bfvkzg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_bfvkzg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_dsenda", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_dsenda", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_anzpos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_anzpos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@History", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "History", 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].[zbant] SET [basman_nr] = @basman_nr, [basman_nl] = @basman_nl, [zba"& _ "nt_beznr] = @zbant_beznr, [zbant_regnr] = @zbant_regnr, [zbant_korant] = @zbant_"& _ "korant, [zbant_antart] = @zbant_antart, [zbant_stat] = @zbant_stat, [zbant_anmus"& _ "t] = @zbant_anmust, [zbant_erwust] = @zbant_erwust, [zbant_nadat] = @zbant_nadat"& _ ", [zbant_preisr] = @zbant_preisr, [zbant_waehr] = @zbant_waehr, [zbant_kurs] = @"& _ "zbant_kurs, [zbant_gesart] = @zbant_gesart, [zbant_bfvkzg] = @zbant_bfvkzg, [zba"& _ "nt_dsenda] = @zbant_dsenda, [zbant_anzpos] = @zbant_anzpos, [History] = @History"& _ " WHERE (([ID] = @Original_ID) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NUL"& _ "L) OR ([upsize_ts] = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, basman_nr, basman_nl, z"& _ "bant_beznr, zbant_regnr, zbant_korant, zbant_antart, zbant_stat, zbant_anmust, z"& _ "bant_erwust, zbant_nadat, zbant_preisr, zbant_waehr, zbant_kurs, zbant_gesart, z"& _ "bant_bfvkzg, zbant_dsenda, zbant_anzpos, History, upsize_ts FROM zbant WHERE (ID"& _ " = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@basman_nr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "basman_nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@basman_nl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "basman_nl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_beznr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_beznr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_regnr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_regnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_korant", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_korant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_antart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_antart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_anmust", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_anmust", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_erwust", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_erwust", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_nadat", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_nadat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_preisr", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_preisr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_waehr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_waehr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_kurs", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_kurs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_gesart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_gesart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_bfvkzg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_bfvkzg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_dsenda", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_dsenda", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_anzpos", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_anzpos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@History", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "History", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbant_an"& _ "tart, zbant_stat, zbant_anmust, zbant_erwust, zbant_nadat, zbant_preisr, zbant_w"& _ "aehr, zbant_kurs, zbant_gesart, zbant_bfvkzg, zbant_dsenda, zbant_anzpos, Histor"& _ "y, upsize_ts FROM dbo.zbant" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.zbantDataTable) 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 VERAGDataSet.zbantDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.zbantDataTable = New VERAGDataSet.zbantDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.zbantDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "zbant") 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_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 basman_nr As String, _ ByVal basman_nl As String, _ ByVal zbant_beznr As String, _ ByVal zbant_regnr As String, _ ByVal zbant_korant As Short, _ ByVal zbant_antart As String, _ ByVal zbant_stat As Short, _ ByVal zbant_anmust As String, _ ByVal zbant_erwust As String, _ ByVal zbant_nadat As Date, _ ByVal zbant_preisr As Decimal, _ ByVal zbant_waehr As String, _ ByVal zbant_kurs As Double, _ ByVal zbant_gesart As String, _ ByVal zbant_bfvkzg As String, _ ByVal zbant_dsenda As Date, _ ByVal zbant_anzpos As Short, _ ByVal History As Boolean) As Integer If (basman_nr Is Nothing) Then Throw New Global.System.ArgumentNullException("basman_nr") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(basman_nr,String) End If If (basman_nl Is Nothing) Then Throw New Global.System.ArgumentNullException("basman_nl") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(basman_nl,String) End If If (zbant_beznr Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_beznr") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(zbant_beznr,String) End If If (zbant_regnr Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_regnr") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(zbant_regnr,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(zbant_korant,Short) If (zbant_antart Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_antart") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(zbant_antart,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(zbant_stat,Short) If (zbant_anmust Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_anmust") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(zbant_anmust,String) End If If (zbant_erwust Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_erwust") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(zbant_erwust,String) End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(zbant_nadat,Date) Me.Adapter.InsertCommand.Parameters(10).Value = CType(zbant_preisr,Decimal) If (zbant_waehr Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_waehr") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(zbant_waehr,String) End If Me.Adapter.InsertCommand.Parameters(12).Value = CType(zbant_kurs,Double) If (zbant_gesart Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_gesart") Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(zbant_gesart,String) End If If (zbant_bfvkzg Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_bfvkzg") Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(zbant_bfvkzg,String) End If Me.Adapter.InsertCommand.Parameters(15).Value = CType(zbant_dsenda,Date) Me.Adapter.InsertCommand.Parameters(16).Value = CType(zbant_anzpos,Short) Me.Adapter.InsertCommand.Parameters(17).Value = CType(History,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 basman_nr As String, _ ByVal basman_nl As String, _ ByVal zbant_beznr As String, _ ByVal zbant_regnr As String, _ ByVal zbant_korant As Short, _ ByVal zbant_antart As String, _ ByVal zbant_stat As Short, _ ByVal zbant_anmust As String, _ ByVal zbant_erwust As String, _ ByVal zbant_nadat As Date, _ ByVal zbant_preisr As Decimal, _ ByVal zbant_waehr As String, _ ByVal zbant_kurs As Double, _ ByVal zbant_gesart As String, _ ByVal zbant_bfvkzg As String, _ ByVal zbant_dsenda As Date, _ ByVal zbant_anzpos As Short, _ ByVal History As Boolean, _ ByVal Original_ID As Integer, _ ByVal Original_upsize_ts() As Byte, _ ByVal ID As Integer) As Integer If (basman_nr Is Nothing) Then Throw New Global.System.ArgumentNullException("basman_nr") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(basman_nr,String) End If If (basman_nl Is Nothing) Then Throw New Global.System.ArgumentNullException("basman_nl") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(basman_nl,String) End If If (zbant_beznr Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_beznr") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(zbant_beznr,String) End If If (zbant_regnr Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_regnr") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(zbant_regnr,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(zbant_korant,Short) If (zbant_antart Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_antart") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(zbant_antart,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(zbant_stat,Short) If (zbant_anmust Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_anmust") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(zbant_anmust,String) End If If (zbant_erwust Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_erwust") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(zbant_erwust,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(zbant_nadat,Date) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(zbant_preisr,Decimal) If (zbant_waehr Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_waehr") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(zbant_waehr,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(zbant_kurs,Double) If (zbant_gesart Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_gesart") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(zbant_gesart,String) End If If (zbant_bfvkzg Is Nothing) Then Throw New Global.System.ArgumentNullException("zbant_bfvkzg") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(zbant_bfvkzg,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(zbant_dsenda,Date) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(zbant_anzpos,Short) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(History,Boolean) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(21).Value = CType(ID,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 basman_nr As String, _ ByVal basman_nl As String, _ ByVal zbant_beznr As String, _ ByVal zbant_regnr As String, _ ByVal zbant_korant As Short, _ ByVal zbant_antart As String, _ ByVal zbant_stat As Short, _ ByVal zbant_anmust As String, _ ByVal zbant_erwust As String, _ ByVal zbant_nadat As Date, _ ByVal zbant_preisr As Decimal, _ ByVal zbant_waehr As String, _ ByVal zbant_kurs As Double, _ ByVal zbant_gesart As String, _ ByVal zbant_bfvkzg As String, _ ByVal zbant_dsenda As Date, _ ByVal zbant_anzpos As Short, _ ByVal History As Boolean, _ ByVal Original_ID As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbant_antart, zbant_stat, zbant_anmust, zbant_erwust, zbant_nadat, zbant_preisr, zbant_waehr, zbant_kurs, zbant_gesart, zbant_bfvkzg, zbant_dsenda, zbant_anzpos, History, Original_ID, Original_upsize_ts, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class zbapoTableAdapter 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 = "zbapo" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("zbant_ID", "zbant_ID") tableMapping.ColumnMappings.Add("zbapo_posnr", "zbapo_posnr") tableMapping.ColumnMappings.Add("zbabg_regkz", "zbabg_regkz") tableMapping.ColumnMappings.Add("zbabg_abglfd", "zbabg_abglfd") tableMapping.ColumnMappings.Add("zbapo_eustwe", "zbapo_eustwe") tableMapping.ColumnMappings.Add("zbapo_zollw", "zbapo_zollw") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[zbapo] WHERE (([ID] = @Original_ID) AND ((@IsNull_upsize_ts = "& _ "1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[zbapo] ([zbant_ID], [zbapo_posnr], [zbabg_regkz], [zbabg_abglf"& _ "d], [zbapo_eustwe], [zbapo_zollw]) VALUES (@zbant_ID, @zbapo_posnr, @zbabg_regkz"& _ ", @zbabg_abglfd, @zbapo_eustwe, @zbapo_zollw);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, zbant_ID, zbapo_posnr"& _ ", zbabg_regkz, zbabg_abglfd, zbapo_eustwe, zbapo_zollw, upsize_ts FROM zbapo WHE"& _ "RE (ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbapo_posnr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbapo_posnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbabg_regkz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbabg_regkz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbabg_abglfd", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbabg_abglfd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbapo_eustwe", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbapo_eustwe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbapo_zollw", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbapo_zollw", 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].[zbapo] SET [zbant_ID] = @zbant_ID, [zbapo_posnr] = @zbapo_posnr, [z"& _ "babg_regkz] = @zbabg_regkz, [zbabg_abglfd] = @zbabg_abglfd, [zbapo_eustwe] = @zb"& _ "apo_eustwe, [zbapo_zollw] = @zbapo_zollw WHERE (([ID] = @Original_ID) AND ((@IsN"& _ "ull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts"& _ ")));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, zbant_ID, zbapo_posnr, zbabg_regkz, zbabg_abglfd, zbapo_eustwe,"& _ " zbapo_zollw, upsize_ts FROM zbapo WHERE (ID = @ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbapo_posnr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbapo_posnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbabg_regkz", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbabg_regkz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbabg_abglfd", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbabg_abglfd", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbapo_eustwe", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbapo_eustwe", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbapo_zollw", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbapo_zollw", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, zbant_ID, zbapo_posnr, zbabg_regkz, zbabg_abglfd, zbapo_eustwe, zbapo_"& _ "zollw, upsize_ts FROM dbo.zbapo" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.zbapoDataTable) 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 VERAGDataSet.zbapoDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.zbapoDataTable = New VERAGDataSet.zbapoDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.zbapoDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "zbapo") 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_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 zbant_ID As Integer, ByVal zbapo_posnr As Short, ByVal zbabg_regkz As String, ByVal zbabg_abglfd As Short, ByVal zbapo_eustwe As Decimal, ByVal zbapo_zollw As Decimal) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(zbant_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(zbapo_posnr,Short) If (zbabg_regkz Is Nothing) Then Throw New Global.System.ArgumentNullException("zbabg_regkz") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(zbabg_regkz,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(zbabg_abglfd,Short) Me.Adapter.InsertCommand.Parameters(4).Value = CType(zbapo_eustwe,Decimal) Me.Adapter.InsertCommand.Parameters(5).Value = CType(zbapo_zollw,Decimal) 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 zbant_ID As Integer, ByVal zbapo_posnr As Short, ByVal zbabg_regkz As String, ByVal zbabg_abglfd As Short, ByVal zbapo_eustwe As Decimal, ByVal zbapo_zollw As Decimal, ByVal Original_ID As Integer, ByVal Original_upsize_ts() As Byte, ByVal ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(zbant_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(zbapo_posnr,Short) If (zbabg_regkz Is Nothing) Then Throw New Global.System.ArgumentNullException("zbabg_regkz") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(zbabg_regkz,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(zbabg_abglfd,Short) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(zbapo_eustwe,Decimal) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(zbapo_zollw,Decimal) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ID,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 zbant_ID As Integer, ByVal zbapo_posnr As Short, ByVal zbabg_regkz As String, ByVal zbabg_abglfd As Short, ByVal zbapo_eustwe As Decimal, ByVal zbapo_zollw As Decimal, ByVal Original_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(zbant_ID, zbapo_posnr, zbabg_regkz, zbabg_abglfd, zbapo_eustwe, zbapo_zollw, Original_ID, Original_upsize_ts, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class zbposTableAdapter 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 = "zbpos" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("zbant_ID", "zbant_ID") tableMapping.ColumnMappings.Add("zbpos_posnr", "zbpos_posnr") tableMapping.ColumnMappings.Add("zbpos_wanr", "zbpos_wanr") tableMapping.ColumnMappings.Add("zbpos_eigm", "zbpos_eigm") tableMapping.ColumnMappings.Add("zbpos_wmahst", "zbpos_wmahst") tableMapping.ColumnMappings.Add("zbpos_wabes", "zbpos_wabes") tableMapping.ColumnMappings.Add("zbpos_stat", "zbpos_stat") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") 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].[zbpos] WHERE (([ID] = @Original_ID) AND ((@IsNull_upsize_ts = "& _ "1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[zbpos] ([zbant_ID], [zbpos_posnr], [zbpos_wanr], [zbpos_eigm],"& _ " [zbpos_wmahst], [zbpos_wabes], [zbpos_stat]) VALUES (@zbant_ID, @zbpos_posnr, @"& _ "zbpos_wanr, @zbpos_eigm, @zbpos_wmahst, @zbpos_wabes, @zbpos_stat);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, "& _ "zbant_ID, zbpos_posnr, zbpos_wanr, zbpos_eigm, zbpos_wmahst, zbpos_wabes, zbpos_"& _ "stat, upsize_ts FROM zbpos WHERE (ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_posnr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_posnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_wanr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_wanr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_eigm", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_eigm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_wmahst", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_wmahst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_wabes", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_wabes", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_stat", 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].[zbpos] SET [zbant_ID] = @zbant_ID, [zbpos_posnr] = @zbpos_posnr, [z"& _ "bpos_wanr] = @zbpos_wanr, [zbpos_eigm] = @zbpos_eigm, [zbpos_wmahst] = @zbpos_wm"& _ "ahst, [zbpos_wabes] = @zbpos_wabes, [zbpos_stat] = @zbpos_stat WHERE (([ID] = @O"& _ "riginal_ID) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts]"& _ " = @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, zbant_ID, zbpos_posnr, zbpos_wanr, zbpos_"& _ "eigm, zbpos_wmahst, zbpos_wabes, zbpos_stat, upsize_ts FROM zbpos WHERE (ID = @I"& _ "D)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbant_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbant_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_posnr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_posnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_wanr", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_wanr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_eigm", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_eigm", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_wmahst", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_wmahst", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_wabes", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_wabes", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@zbpos_stat", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "zbpos_stat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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, zbant_ID, zbpos_posnr, zbpos_wanr, zbpos_eigm, zbpos_wmahst, zbpos_wab"& _ "es, zbpos_stat, upsize_ts FROM dbo.zbpos" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.zbposDataTable) 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 VERAGDataSet.zbposDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.zbposDataTable = New VERAGDataSet.zbposDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.zbposDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "zbpos") 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_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 zbant_ID As Integer, ByVal zbpos_posnr As Short, ByVal zbpos_wanr As String, ByVal zbpos_eigm As Double, ByVal zbpos_wmahst As Double, ByVal zbpos_wabes As String, ByVal zbpos_stat As Short) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(zbant_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(zbpos_posnr,Short) If (zbpos_wanr Is Nothing) Then Throw New Global.System.ArgumentNullException("zbpos_wanr") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(zbpos_wanr,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(zbpos_eigm,Double) Me.Adapter.InsertCommand.Parameters(4).Value = CType(zbpos_wmahst,Double) If (zbpos_wabes Is Nothing) Then Throw New Global.System.ArgumentNullException("zbpos_wabes") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(zbpos_wabes,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(zbpos_stat,Short) 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 zbant_ID As Integer, ByVal zbpos_posnr As Short, ByVal zbpos_wanr As String, ByVal zbpos_eigm As Double, ByVal zbpos_wmahst As Double, ByVal zbpos_wabes As String, ByVal zbpos_stat As Short, ByVal Original_ID As Integer, ByVal Original_upsize_ts() As Byte, ByVal ID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(zbant_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(zbpos_posnr,Short) If (zbpos_wanr Is Nothing) Then Throw New Global.System.ArgumentNullException("zbpos_wanr") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(zbpos_wanr,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(zbpos_eigm,Double) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(zbpos_wmahst,Double) If (zbpos_wabes Is Nothing) Then Throw New Global.System.ArgumentNullException("zbpos_wabes") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(zbpos_wabes,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(zbpos_stat,Short) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ID,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ID,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 zbant_ID As Integer, ByVal zbpos_posnr As Short, ByVal zbpos_wanr As String, ByVal zbpos_eigm As Double, ByVal zbpos_wmahst As Double, ByVal zbpos_wabes As String, ByVal zbpos_stat As Short, ByVal Original_ID As Integer, ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(zbant_ID, zbpos_posnr, zbpos_wanr, zbpos_eigm, zbpos_wmahst, zbpos_wabes, zbpos_stat, Original_ID, Original_upsize_ts, Original_ID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class ZkteingTableAdapter 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 = "Zkteing" tableMapping.ColumnMappings.Add("Index", "Index") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("ZollamtsNr", "ZollamtsNr") tableMapping.ColumnMappings.Add("Jahr", "Jahr") tableMapping.ColumnMappings.Add("KennNr", "KennNr") tableMapping.ColumnMappings.Add("Nummer", "Nummer") tableMapping.ColumnMappings.Add("Leitzahl", "Leitzahl") tableMapping.ColumnMappings.Add("Belegart", "Belegart") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("Betrag", "Betrag") tableMapping.ColumnMappings.Add("Eingabedatum", "Eingabedatum") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("Übernahmedatum", "Übernahmedatum") tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Bezugsnummer", "Bezugsnummer") tableMapping.ColumnMappings.Add("Registriernummer", "Registriernummer") tableMapping.ColumnMappings.Add("Korrekturnummer", "Korrekturnummer") tableMapping.ColumnMappings.Add("AOFD", "AOFD") tableMapping.ColumnMappings.Add("AKTO", "AKTO") tableMapping.ColumnMappings.Add("Fälligkeitsdatum", "Fälligkeitsdatum") tableMapping.ColumnMappings.Add("Dateiname", "Dateiname") tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") 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].[Zkteing] WHERE (([Index] = @Original_Index) AND ((@IsNull_upsi"& _ "ze_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] = @Original_upsize_ts)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Index", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Index", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", 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].[Zkteing] ([Status], [ZollamtsNr], [Jahr], [KennNr], [Nummer], "& _ "[Leitzahl], [Belegart], [LeistungsNr], [Betrag], [Eingabedatum], [Abfertigungsda"& _ "tum], [Übernahmedatum], [Bemerkung], [Sachbearbeiter], [Bezugsnummer], [Registri"& _ "ernummer], [Korrekturnummer], [AOFD], [AKTO], [Fälligkeitsdatum], [Dateiname], ["& _ "Mandant], [Niederlassung], [LeistungsBez]) VALUES (@Status, @ZollamtsNr, @Jahr, "& _ "@KennNr, @Nummer, @Leitzahl, @Belegart, @LeistungsNr, @Betrag, @Eingabedatum, @A"& _ "bfertigungsdatum, @Übernahmedatum, @Bemerkung, @Sachbearbeiter, @Bezugsnummer, @"& _ "Registriernummer, @Korrekturnummer, @AOFD, @AKTO, @Fälligkeitsdatum, @Dateiname,"& _ " @Mandant, @Niederlassung, @LeistungsBez);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT [Index], Status, ZollamtsNr, "& _ "Jahr, KennNr, Nummer, Leitzahl, Belegart, LeistungsNr, Betrag, Eingabedatum, Abf"& _ "ertigungsdatum, Übernahmedatum, Bemerkung, Sachbearbeiter, Bezugsnummer, Registr"& _ "iernummer, Korrekturnummer, AOFD, AKTO, Fälligkeitsdatum, Dateiname, Mandant, Ni"& _ "ederlassung, upsize_ts, LeistungsBez FROM Zkteing WHERE ([Index] = SCOPE_IDENTIT"& _ "Y())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NVarChar, 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("@ZollamtsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZollamtsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Jahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Jahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KennNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KennNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leitzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leitzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingabedatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingabedatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übernahmedatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übernahmedatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezugsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezugsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Registriernummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Registriernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Korrekturnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Korrekturnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AOFD", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AOFD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", 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].[Zkteing] SET [Status] = @Status, [ZollamtsNr] = @ZollamtsNr, [Jahr]"& _ " = @Jahr, [KennNr] = @KennNr, [Nummer] = @Nummer, [Leitzahl] = @Leitzahl, [Beleg"& _ "art] = @Belegart, [LeistungsNr] = @LeistungsNr, [Betrag] = @Betrag, [Eingabedatu"& _ "m] = @Eingabedatum, [Abfertigungsdatum] = @Abfertigungsdatum, [Übernahmedatum] ="& _ " @Übernahmedatum, [Bemerkung] = @Bemerkung, [Sachbearbeiter] = @Sachbearbeiter, "& _ "[Bezugsnummer] = @Bezugsnummer, [Registriernummer] = @Registriernummer, [Korrekt"& _ "urnummer] = @Korrekturnummer, [AOFD] = @AOFD, [AKTO] = @AKTO, [Fälligkeitsdatum]"& _ " = @Fälligkeitsdatum, [Dateiname] = @Dateiname, [Mandant] = @Mandant, [Niederlas"& _ "sung] = @Niederlassung, [LeistungsBez] = @LeistungsBez WHERE (([Index] = @Origin"& _ "al_Index) AND ((@IsNull_upsize_ts = 1 AND [upsize_ts] IS NULL) OR ([upsize_ts] ="& _ " @Original_upsize_ts)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT [Index], Status, ZollamtsNr, Jahr, KennNr, Numm"& _ "er, Leitzahl, Belegart, LeistungsNr, Betrag, Eingabedatum, Abfertigungsdatum, Üb"& _ "ernahmedatum, Bemerkung, Sachbearbeiter, Bezugsnummer, Registriernummer, Korrekt"& _ "urnummer, AOFD, AKTO, Fälligkeitsdatum, Dateiname, Mandant, Niederlassung, upsiz"& _ "e_ts, LeistungsBez FROM Zkteing WHERE ([Index] = @Index)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NVarChar, 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("@ZollamtsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZollamtsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Jahr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Jahr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KennNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KennNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nummer", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leitzahl", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Leitzahl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegart", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Belegart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsNr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Betrag", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Betrag", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Eingabedatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Eingabedatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Abfertigungsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Übernahmedatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Übernahmedatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bemerkung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bemerkung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sachbearbeiter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bezugsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bezugsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Registriernummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Registriernummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Korrekturnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Korrekturnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AOFD", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AOFD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fälligkeitsdatum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Dateiname", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Dateiname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Niederlassung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LeistungsBez", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Index", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Index", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_upsize_ts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_upsize_ts", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "upsize_ts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Index", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Index", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 [Index], Status, ZollamtsNr, Jahr, KennNr, Nummer, Leitzahl, Belegart, Lei"& _ "stungsNr, Betrag, Eingabedatum, Abfertigungsdatum, Übernahmedatum, Bemerkung, Sa"& _ "chbearbeiter, Bezugsnummer, Registriernummer, Korrekturnummer, AOFD, AKTO, Fälli"& _ "gkeitsdatum, Dateiname, Mandant, Niederlassung, upsize_ts, LeistungsBez FROM dbo"& _ ".Zkteing" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.ZkteingDataTable) 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 VERAGDataSet.ZkteingDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.ZkteingDataTable = New VERAGDataSet.ZkteingDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.ZkteingDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Zkteing") 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_Index As Integer, ByVal Original_upsize_ts() As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Index,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) 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 Status As String, _ ByVal ZollamtsNr As Global.System.Nullable(Of Short), _ ByVal Jahr As Global.System.Nullable(Of Short), _ ByVal KennNr As Global.System.Nullable(Of Short), _ ByVal Nummer As Global.System.Nullable(Of Integer), _ ByVal Leitzahl As Global.System.Nullable(Of Short), _ ByVal Belegart As String, _ ByVal LeistungsNr As Short, _ ByVal Betrag As Decimal, _ ByVal Eingabedatum As Date, _ ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal Übernahmedatum As Date, _ ByVal Bemerkung As String, _ ByVal Sachbearbeiter As String, _ ByVal Bezugsnummer As String, _ ByVal Registriernummer As String, _ ByVal Korrekturnummer As String, _ ByVal AOFD As String, _ ByVal AKTO As String, _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Dateiname As String, _ ByVal Mandant As String, _ ByVal Niederlassung As String, _ ByVal LeistungsBez As String) As Integer If (Status Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Status,String) End If If (ZollamtsNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(ZollamtsNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Jahr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(Jahr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (KennNr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(KennNr.Value,Short) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Nummer.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(Nummer.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Leitzahl.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(Leitzahl.Value,Short) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Belegart Is Nothing) Then Throw New Global.System.ArgumentNullException("Belegart") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Belegart,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(LeistungsNr,Short) Me.Adapter.InsertCommand.Parameters(8).Value = CType(Betrag,Decimal) Me.Adapter.InsertCommand.Parameters(9).Value = CType(Eingabedatum,Date) If (Abfertigungsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(Abfertigungsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(11).Value = CType(Übernahmedatum,Date) If (Bemerkung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(Bemerkung,String) End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Sachbearbeiter,String) End If If (Bezugsnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Bezugsnummer") Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(Bezugsnummer,String) End If If (Registriernummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(Registriernummer,String) End If If (Korrekturnummer Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(Korrekturnummer,String) End If If (AOFD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(AOFD,String) End If If (AKTO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(AKTO,String) End If If (Fälligkeitsdatum.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(19).Value = CType(Fälligkeitsdatum.Value,Date) Else Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Dateiname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(Dateiname,String) End If If (Mandant Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(Niederlassung,String) End If If (LeistungsBez Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(LeistungsBez,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 Status As String, _ ByVal ZollamtsNr As Global.System.Nullable(Of Short), _ ByVal Jahr As Global.System.Nullable(Of Short), _ ByVal KennNr As Global.System.Nullable(Of Short), _ ByVal Nummer As Global.System.Nullable(Of Integer), _ ByVal Leitzahl As Global.System.Nullable(Of Short), _ ByVal Belegart As String, _ ByVal LeistungsNr As Short, _ ByVal Betrag As Decimal, _ ByVal Eingabedatum As Date, _ ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal Übernahmedatum As Date, _ ByVal Bemerkung As String, _ ByVal Sachbearbeiter As String, _ ByVal Bezugsnummer As String, _ ByVal Registriernummer As String, _ ByVal Korrekturnummer As String, _ ByVal AOFD As String, _ ByVal AKTO As String, _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Dateiname As String, _ ByVal Mandant As String, _ ByVal Niederlassung As String, _ ByVal LeistungsBez As String, _ ByVal Original_Index As Integer, _ ByVal Original_upsize_ts() As Byte, _ ByVal Index As Integer) As Integer If (Status Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Status,String) End If If (ZollamtsNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ZollamtsNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Jahr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Jahr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (KennNr.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(KennNr.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Nummer.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Nummer.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Leitzahl.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Leitzahl.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Belegart Is Nothing) Then Throw New Global.System.ArgumentNullException("Belegart") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Belegart,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(LeistungsNr,Short) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Betrag,Decimal) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Eingabedatum,Date) If (Abfertigungsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Abfertigungsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Übernahmedatum,Date) If (Bemerkung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Bemerkung,String) End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Sachbearbeiter,String) End If If (Bezugsnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Bezugsnummer") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Bezugsnummer,String) End If If (Registriernummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Registriernummer,String) End If If (Korrekturnummer Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Korrekturnummer,String) End If If (AOFD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(AOFD,String) End If If (AKTO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(AKTO,String) End If If (Fälligkeitsdatum.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Fälligkeitsdatum.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Dateiname Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Dateiname,String) End If If (Mandant Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Niederlassung,String) End If If (LeistungsBez Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(LeistungsBez,String) End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Index,Integer) If (Original_upsize_ts 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_upsize_ts,Byte()) End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Index,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 Status As String, _ ByVal ZollamtsNr As Global.System.Nullable(Of Short), _ ByVal Jahr As Global.System.Nullable(Of Short), _ ByVal KennNr As Global.System.Nullable(Of Short), _ ByVal Nummer As Global.System.Nullable(Of Integer), _ ByVal Leitzahl As Global.System.Nullable(Of Short), _ ByVal Belegart As String, _ ByVal LeistungsNr As Short, _ ByVal Betrag As Decimal, _ ByVal Eingabedatum As Date, _ ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal Übernahmedatum As Date, _ ByVal Bemerkung As String, _ ByVal Sachbearbeiter As String, _ ByVal Bezugsnummer As String, _ ByVal Registriernummer As String, _ ByVal Korrekturnummer As String, _ ByVal AOFD As String, _ ByVal AKTO As String, _ ByVal Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal Dateiname As String, _ ByVal Mandant As String, _ ByVal Niederlassung As String, _ ByVal LeistungsBez As String, _ ByVal Original_Index As Integer, _ ByVal Original_upsize_ts() As Byte) As Integer Return Me.Update(Status, ZollamtsNr, Jahr, KennNr, Nummer, Leitzahl, Belegart, LeistungsNr, Betrag, Eingabedatum, Abfertigungsdatum, Übernahmedatum, Bemerkung, Sachbearbeiter, Bezugsnummer, Registriernummer, Korrekturnummer, AOFD, AKTO, Fälligkeitsdatum, Dateiname, Mandant, Niederlassung, LeistungsBez, Original_Index, Original_upsize_ts, Original_Index) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class ZollsystemeTableAdapter 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 = "Zollsysteme" tableMapping.ColumnMappings.Add("Zollsystemart", "Zollsystemart") tableMapping.ColumnMappings.Add("ZollsystemBezeichnung", "ZollsystemBezeichnung") tableMapping.ColumnMappings.Add("ZollsystemLand", "ZollsystemLand") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Zollsysteme] ([Zollsystemart], [ZollsystemBezeichnung], [Zolls"& _ "ystemLand]) VALUES (@Zollsystemart, @ZollsystemBezeichnung, @ZollsystemLand)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zollsystemart", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zollsystemart", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZollsystemBezeichnung", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZollsystemBezeichnung", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZollsystemLand", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZollsystemLand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Zollsystemart, ZollsystemBezeichnung, ZollsystemLand FROM dbo.Zollsysteme" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.ZollsystemeDataTable) 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 VERAGDataSet.ZollsystemeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.ZollsystemeDataTable = New VERAGDataSet.ZollsystemeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.ZollsystemeDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Zollsysteme") 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 Insert(ByVal Zollsystemart As String, ByVal ZollsystemBezeichnung As String, ByVal ZollsystemLand As String) As Integer If (Zollsystemart Is Nothing) Then Throw New Global.System.ArgumentNullException("Zollsystemart") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Zollsystemart,String) End If If (ZollsystemBezeichnung Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ZollsystemBezeichnung,String) End If If (ZollsystemLand Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ZollsystemLand,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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Zulassungen_ZnVTableAdapter 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 = "Zulassungen ZnV" tableMapping.ColumnMappings.Add("Zulassungsinhaber", "Zulassungsinhaber") tableMapping.ColumnMappings.Add("Bewilligungsnummer", "Bewilligungsnummer") tableMapping.ColumnMappings.Add("SSMA_TimeStamp", "SSMA_TimeStamp") 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].[Zulassungen ZnV] WHERE (([Zulassungsinhaber] = @Original_Zulas"& _ "sungsinhaber) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Zulassungsinhaber", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zulassungsinhaber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", 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].[Zulassungen ZnV] ([Zulassungsinhaber], [Bewilligungsnummer]) V"& _ "ALUES (@Zulassungsinhaber, @Bewilligungsnummer);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Zulassungsinhaber, Bewi"& _ "lligungsnummer, SSMA_TimeStamp FROM [Zulassungen ZnV] WHERE (Zulassungsinhaber ="& _ " @Zulassungsinhaber)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zulassungsinhaber", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zulassungsinhaber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bewilligungsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bewilligungsnummer", 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].[Zulassungen ZnV] SET [Zulassungsinhaber] = @Zulassungsinhaber, [Bew"& _ "illigungsnummer] = @Bewilligungsnummer WHERE (([Zulassungsinhaber] = @Original_Z"& _ "ulassungsinhaber) AND ([SSMA_TimeStamp] = @Original_SSMA_TimeStamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Zu"& _ "lassungsinhaber, Bewilligungsnummer, SSMA_TimeStamp FROM [Zulassungen ZnV] WHERE"& _ " (Zulassungsinhaber = @Zulassungsinhaber)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zulassungsinhaber", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zulassungsinhaber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bewilligungsnummer", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bewilligungsnummer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Zulassungsinhaber", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Zulassungsinhaber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSMA_TimeStamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSMA_TimeStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Zulassungsinhaber, Bewilligungsnummer, SSMA_TimeStamp FROM dbo.[Zulassunge"& _ "n ZnV]" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.Zulassungen_ZnVDataTable) 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 VERAGDataSet.Zulassungen_ZnVDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.Zulassungen_ZnVDataTable = New VERAGDataSet.Zulassungen_ZnVDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As VERAGDataSet.Zulassungen_ZnVDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As VERAGDataSet) As Integer Return Me.Adapter.Update(dataSet, "Zulassungen ZnV") 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_Zulassungsinhaber As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Original_Zulassungsinhaber Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Zulassungsinhaber") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Zulassungsinhaber,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SSMA_TimeStamp,Byte()) 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 Zulassungsinhaber As String, ByVal Bewilligungsnummer As String) As Integer If (Zulassungsinhaber Is Nothing) Then Throw New Global.System.ArgumentNullException("Zulassungsinhaber") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(Zulassungsinhaber,String) End If If (Bewilligungsnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Bewilligungsnummer") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bewilligungsnummer,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 Zulassungsinhaber As String, ByVal Bewilligungsnummer As String, ByVal Original_Zulassungsinhaber As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer If (Zulassungsinhaber Is Nothing) Then Throw New Global.System.ArgumentNullException("Zulassungsinhaber") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Zulassungsinhaber,String) End If If (Bewilligungsnummer Is Nothing) Then Throw New Global.System.ArgumentNullException("Bewilligungsnummer") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bewilligungsnummer,String) End If If (Original_Zulassungsinhaber Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Zulassungsinhaber") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Zulassungsinhaber,String) End If If (Original_SSMA_TimeStamp Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SSMA_TimeStamp") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_SSMA_TimeStamp,Byte()) End If 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 Bewilligungsnummer As String, ByVal Original_Zulassungsinhaber As String, ByVal Original_SSMA_TimeStamp() As Byte) As Integer Return Me.Update(Original_Zulassungsinhaber, Bewilligungsnummer, Original_Zulassungsinhaber, Original_SSMA_TimeStamp) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwKundenstammTableAdapter 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 = "vwKundenstamm" tableMapping.ColumnMappings.Add("Auswahl", "Auswahl") tableMapping.ColumnMappings.Add("AdressenNr", "AdressenNr") tableMapping.ColumnMappings.Add("Ordnungsbegriff", "Ordnungsbegriff") tableMapping.ColumnMappings.Add("Name 1", "Name 1") tableMapping.ColumnMappings.Add("Name 2", "Name 2") tableMapping.ColumnMappings.Add("Postfach", "Postfach") tableMapping.ColumnMappings.Add("PLZPF", "PLZPF") tableMapping.ColumnMappings.Add("Straße", "Straße") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("PLZ", "PLZ") tableMapping.ColumnMappings.Add("Ort", "Ort") tableMapping.ColumnMappings.Add("Telefon", "Telefon") tableMapping.ColumnMappings.Add("Telefax", "Telefax") tableMapping.ColumnMappings.Add("Mobiltelefon", "Mobiltelefon") tableMapping.ColumnMappings.Add("E-Mail", "E-Mail") tableMapping.ColumnMappings.Add("E-Mail2", "E-Mail2") tableMapping.ColumnMappings.Add("Anrede", "Anrede") tableMapping.ColumnMappings.Add("Ansprechpartner", "Ansprechpartner") tableMapping.ColumnMappings.Add("UstIdKz", "UstIdKz") tableMapping.ColumnMappings.Add("UstIdNr", "UstIdNr") tableMapping.ColumnMappings.Add("UstIdGeprüft", "UstIdGeprüft") tableMapping.ColumnMappings.Add("BLZ", "BLZ") tableMapping.ColumnMappings.Add("KTO", "KTO") tableMapping.ColumnMappings.Add("Eingegeben am", "Eingegeben am") tableMapping.ColumnMappings.Add("Geändert am", "Geändert am") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Rechnungsdruck", "Rechnungsdruck") tableMapping.ColumnMappings.Add("Steuernummer", "Steuernummer") tableMapping.ColumnMappings.Add("IDSKundenNr", "IDSKundenNr") tableMapping.ColumnMappings.Add("WölflKundenNr", "WölflKundenNr") tableMapping.ColumnMappings.Add("MSEKundenNr", "MSEKundenNr") tableMapping.ColumnMappings.Add("MSEExportCSV", "MSEExportCSV") tableMapping.ColumnMappings.Add("TELEPASS-Kd-Nr", "TELEPASS-Kd-Nr") tableMapping.ColumnMappings.Add("ASFINAGExportCSV", "ASFINAGExportCSV") tableMapping.ColumnMappings.Add("UStV_GVAnfDat", "UStV_GVAnfDat") tableMapping.ColumnMappings.Add("UStV_GVAusDat", "UStV_GVAusDat") tableMapping.ColumnMappings.Add("ExportMautberichtCSV", "ExportMautberichtCSV") tableMapping.ColumnMappings.Add("UTAKundenNr", "UTAKundenNr") tableMapping.ColumnMappings.Add("UTAExportCSV", "UTAExportCSV") tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("Einmalige Abfertigung", "Einmalige Abfertigung") tableMapping.ColumnMappings.Add("Neutralisierung", "Neutralisierung") tableMapping.ColumnMappings.Add("Avis", "Avis") tableMapping.ColumnMappings.Add("Zollvollmacht", "Zollvollmacht") tableMapping.ColumnMappings.Add("Zollvollmacht vom", "Zollvollmacht vom") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Lastschrift von", "Lastschrift von") tableMapping.ColumnMappings.Add("Lastschrift bis", "Lastschrift bis") tableMapping.ColumnMappings.Add("Rabattstaffel", "Rabattstaffel") tableMapping.ColumnMappings.Add("SVS", "SVS") tableMapping.ColumnMappings.Add("Vorlageprovision %", "Vorlageprovision %") tableMapping.ColumnMappings.Add("Kreditaufwendungen %", "Kreditaufwendungen %") tableMapping.ColumnMappings.Add("Bankspesen %", "Bankspesen %") tableMapping.ColumnMappings.Add("Bankspesen Mindestbetrag", "Bankspesen Mindestbetrag") tableMapping.ColumnMappings.Add("Besonderheiten", "Besonderheiten") tableMapping.ColumnMappings.Add("Sammelrechnung", "Sammelrechnung") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Referenznummer", "Referenznummer") tableMapping.ColumnMappings.Add("Antragssumme", "Antragssumme") tableMapping.ColumnMappings.Add("Antrag vom", "Antrag vom") tableMapping.ColumnMappings.Add("Versicherungssumme", "Versicherungssumme") tableMapping.ColumnMappings.Add("Entscheidung vom", "Entscheidung vom") tableMapping.ColumnMappings.Add("Kreditlimit", "Kreditlimit") tableMapping.ColumnMappings.Add("Kreditlimit vom", "Kreditlimit vom") tableMapping.ColumnMappings.Add("Info", "Info") tableMapping.ColumnMappings.Add("Überwachungskunde", "Überwachungskunde") tableMapping.ColumnMappings.Add("Abfertigungsverbot", "Abfertigungsverbot") tableMapping.ColumnMappings.Add("Abfertigungsverbot seit", "Abfertigungsverbot seit") tableMapping.ColumnMappings.Add("Abfertigungsverbot Grund", "Abfertigungsverbot Grund") tableMapping.ColumnMappings.Add("Rechtsanwalt", "Rechtsanwalt") tableMapping.ColumnMappings.Add("Rechtsanwalt seit", "Rechtsanwalt seit") tableMapping.ColumnMappings.Add("Expr1", "Expr1") tableMapping.ColumnMappings.Add("Expr2", "Expr2") tableMapping.ColumnMappings.Add("Expr3", "Expr3") tableMapping.ColumnMappings.Add("LfdSaldo", "LfdSaldo") tableMapping.ColumnMappings.Add("Erste Abfertigung", "Erste Abfertigung") tableMapping.ColumnMappings.Add("Vorkasse", "Vorkasse") tableMapping.ColumnMappings.Add("Zahlungsinformationen", "Zahlungsinformationen") tableMapping.ColumnMappings.Add("EORITIN", "EORITIN") tableMapping.ColumnMappings.Add("Zollnummer", "Zollnummer") tableMapping.ColumnMappings.Add("ZulassungsNr ZnV", "ZulassungsNr ZnV") tableMapping.ColumnMappings.Add("Aufschubkonto EUSt", "Aufschubkonto EUSt") tableMapping.ColumnMappings.Add("Aufschubkonto Zoll", "Aufschubkonto Zoll") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Euroeinführung", "Euroeinführung") tableMapping.ColumnMappings.Add("LetzteRechnungsNr", "LetzteRechnungsNr") tableMapping.ColumnMappings.Add("LetztesRechnungsDatum", "LetztesRechnungsDatum") tableMapping.ColumnMappings.Add("Konzernkonto", "Konzernkonto") tableMapping.ColumnMappings.Add("FiBuSchnittstelle", "FiBuSchnittstelle") tableMapping.ColumnMappings.Add("Planzahl", "Planzahl") tableMapping.ColumnMappings.Add("Gesprächsbericht", "Gesprächsbericht") tableMapping.ColumnMappings.Add("Bonität", "Bonität") tableMapping.ColumnMappings.Add("Bonitätsdatum", "Bonitätsdatum") tableMapping.ColumnMappings.Add("Zahlungsziel", "Zahlungsziel") tableMapping.ColumnMappings.Add("UStV_SummeUmsatzsteuerbetragEUR", "UStV_SummeUmsatzsteuerbetragEUR") tableMapping.ColumnMappings.Add("UStV_SummeErstattungsbetragEUR", "UStV_SummeErstattungsbetragEUR") tableMapping.ColumnMappings.Add("UStV_Summe3470BetragEUR", "UStV_Summe3470BetragEUR") tableMapping.ColumnMappings.Add("UStV_SummeVZBetragEUR", "UStV_SummeVZBetragEUR") tableMapping.ColumnMappings.Add("UStV_SummeVorschaubetragEUR", "UStV_SummeVorschaubetragEUR") tableMapping.ColumnMappings.Add("UStV_SummeVorschaubetragEUR_VERAG", "UStV_SummeVorschaubetragEUR_VERAG") tableMapping.ColumnMappings.Add("UStV_SummeVorschaubetragEUR_IDS", "UStV_SummeVorschaubetragEUR_IDS") tableMapping.ColumnMappings.Add("Fiskal", "Fiskal") tableMapping.ColumnMappings.Add("Ausfuhr", "Ausfuhr") tableMapping.ColumnMappings.Add("BankgarantieBetrag", "BankgarantieBetrag") tableMapping.ColumnMappings.Add("BankgarantieGültigBis", "BankgarantieGültigBis") tableMapping.ColumnMappings.Add("KD_Korrespondenz", "KD_Korrespondenz") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Auswahl, AdressenNr, Ordnungsbegriff, [Name 1], [Name 2], Postfach, PLZPF,"& _ " Straße, LandKz, PLZ, Ort, Telefon, Telefax, Mobiltelefon, [E-Mail], [E-Mail2], "& _ "Anrede, Ansprechpartner, UstIdKz, UstIdNr, UstIdGeprüft, BLZ, KTO, [Eingegeben a"& _ "m], [Geändert am], Sachbearbeiter, Rechnungsdruck, Steuernummer, IDSKundenNr, Wö"& _ "lflKundenNr, MSEKundenNr, MSEExportCSV, [TELEPASS-Kd-Nr], ASFINAGExportCSV, UStV"& _ "_GVAnfDat, UStV_GVAusDat, ExportMautberichtCSV, UTAKundenNr, UTAExportCSV, Kunde"& _ "nNr, KundenNrZentrale, FilialenNr, [Einmalige Abfertigung], Neutralisierung, Avi"& _ "s, Zollvollmacht, [Zollvollmacht vom], Lastschrift, [Lastschrift von], [Lastschr"& _ "ift bis], Rabattstaffel, SVS, [Vorlageprovision %], [Kreditaufwendungen %], [Ban"& _ "kspesen %], [Bankspesen Mindestbetrag], Besonderheiten, Sammelrechnung, Steuersc"& _ "hlüssel, Referenznummer, Antragssumme, [Antrag vom], Versicherungssumme, [Entsch"& _ "eidung vom], Kreditlimit, [Kreditlimit vom], Info, Überwachungskunde, Abfertigun"& _ "gsverbot, [Abfertigungsverbot seit], [Abfertigungsverbot Grund], Rechtsanwalt, ["& _ "Rechtsanwalt seit], Expr1, Expr2, Expr3, LfdSaldo, [Erste Abfertigung], Vorkasse"& _ ", Zahlungsinformationen, EORITIN, Zollnummer, [ZulassungsNr ZnV], [Aufschubkonto"& _ " EUSt], [Aufschubkonto Zoll], Währungscode, Euroeinführung, LetzteRechnungsNr, L"& _ "etztesRechnungsDatum, Konzernkonto, FiBuSchnittstelle, Planzahl, Gesprächsberich"& _ "t, Bonität, Bonitätsdatum, Zahlungsziel, UStV_SummeUmsatzsteuerbetragEUR, UStV_S"& _ "ummeErstattungsbetragEUR, UStV_Summe3470BetragEUR, UStV_SummeVZBetragEUR, UStV_S"& _ "ummeVorschaubetragEUR, UStV_SummeVorschaubetragEUR_VERAG, UStV_SummeVorschaubetr"& _ "agEUR_IDS, Fiskal, Ausfuhr, BankgarantieBetrag, BankgarantieGültigBis, KD_Korres"& _ "pondenz FROM dbo.vwKundenstamm" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwKundenstammDataTable) 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 VERAGDataSet.vwKundenstammDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwKundenstammDataTable = New VERAGDataSet.vwKundenstammDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwReErfAuswahlTableAdapter 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 = "vwReErfAuswahl" tableMapping.ColumnMappings.Add("RechnungsName 1", "RechnungsName 1") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 [RechnungsName 1], RechnungsKundenNr, FilialenNr, AbfertigungsNr, UnterNr,"& _ " Sachbearbeiter, RK_ID FROM dbo.vwReErfAuswahl" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwReErfAuswahlDataTable) 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 VERAGDataSet.vwReErfAuswahlDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwReErfAuswahlDataTable = New VERAGDataSet.vwReErfAuswahlDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwTrdinHeaderTableAdapter 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 = "vwTrdinHeader" tableMapping.ColumnMappings.Add("Speditionsbuch", "Speditionsbuch") tableMapping.ColumnMappings.Add("Company_code", "Company_code") tableMapping.ColumnMappings.Add("Depot_code", "Depot_code") tableMapping.ColumnMappings.Add("Send_number", "Send_number") tableMapping.ColumnMappings.Add("Send_date", "Send_date") tableMapping.ColumnMappings.Add("Computer_location", "Computer_location") tableMapping.ColumnMappings.Add("Message_type", "Message_type") tableMapping.ColumnMappings.Add("Fm_net_address", "Fm_net_address") tableMapping.ColumnMappings.Add("Accounting_date", "Accounting_date") tableMapping.ColumnMappings.Add("Currency_code", "Currency_code") tableMapping.ColumnMappings.Add("Country_code_dispatch", "Country_code_dispatch") tableMapping.ColumnMappings.Add("Vat_number_dispatch", "Vat_number_dispatch") tableMapping.ColumnMappings.Add("Vat_code_I", "Vat_code_I") tableMapping.ColumnMappings.Add("Vat_code_S0", "Vat_code_S0") tableMapping.ColumnMappings.Add("Vat_code_S1", "Vat_code_S1") tableMapping.ColumnMappings.Add("Vat_code_X", "Vat_code_X") tableMapping.ColumnMappings.Add("Pfad1", "Pfad1") tableMapping.ColumnMappings.Add("Pfad2", "Pfad2") tableMapping.ColumnMappings.Add("Datei", "Datei") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Speditionsbuch, Company_code, Depot_code, Send_number, Send_date, Computer"& _ "_location, Message_type, Fm_net_address, Accounting_date, Currency_code, Country"& _ "_code_dispatch, Vat_number_dispatch, Vat_code_I, Vat_code_S0, Vat_code_S1, Vat_c"& _ "ode_X, Pfad1, Pfad2, Datei, upsize_ts FROM dbo.vwTrdinHeader" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwTrdinHeaderDataTable) 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 VERAGDataSet.vwTrdinHeaderDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwTrdinHeaderDataTable = New VERAGDataSet.vwTrdinHeaderDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwTrdinInvoiceTableAdapter 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 = "vwTrdinInvoice" tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Speditionsbuch", "Speditionsbuch") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("RechnungsLandKz", "RechnungsLandKz") tableMapping.ColumnMappings.Add("RechnungsUstIdKz", "RechnungsUstIdKz") tableMapping.ColumnMappings.Add("RechnungsUstIdNr", "RechnungsUstIdNr") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("WährungLokal", "WährungLokal") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragLokal", "SteuerpflichtigerBetragLokal") tableMapping.ColumnMappings.Add("SteuerfreierBetragLokal", "SteuerfreierBetragLokal") tableMapping.ColumnMappings.Add("SteuerbetragLokal", "SteuerbetragLokal") tableMapping.ColumnMappings.Add("RechnungsbetragLokal", "RechnungsbetragLokal") tableMapping.ColumnMappings.Add("WährungFremd", "WährungFremd") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragFremd", "SteuerpflichtigerBetragFremd") tableMapping.ColumnMappings.Add("SteuerfreierBetragFremd", "SteuerfreierBetragFremd") tableMapping.ColumnMappings.Add("SteuerbetragFremd", "SteuerbetragFremd") tableMapping.ColumnMappings.Add("RechnungsbetragFremd", "RechnungsbetragFremd") tableMapping.ColumnMappings.Add("TrdinDateiname", "TrdinDateiname") tableMapping.ColumnMappings.Add("Abgleich_op_debitor", "Abgleich_op_debitor") tableMapping.ColumnMappings.Add("Nettozahlungsziel", "Nettozahlungsziel") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Rechnungsdatum, Rechnungsnummer, Speditionsbuch, FilialenNr, AbfertigungsN"& _ "r, UnterNr, Abfertigungsdatum, BelegartenNr, KundenNrZentrale, RechnungsKundenNr"& _ ", RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr, Lastschrift, Steuerschlüs"& _ "sel, [Steuersatz %], WährungLokal, SteuerpflichtigerBetragLokal, SteuerfreierBet"& _ "ragLokal, SteuerbetragLokal, RechnungsbetragLokal, WährungFremd, Steuerpflichtig"& _ "erBetragFremd, SteuerfreierBetragFremd, SteuerbetragFremd, RechnungsbetragFremd,"& _ " TrdinDateiname, Abgleich_op_debitor, Nettozahlungsziel, Firma_ID, UStVAn_ID, up"& _ "size_ts FROM dbo.vwTrdinInvoice" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwTrdinInvoiceDataTable) 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 VERAGDataSet.vwTrdinInvoiceDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwTrdinInvoiceDataTable = New VERAGDataSet.vwTrdinInvoiceDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwTrdinProductTableAdapter 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 = "vwTrdinProduct" tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Leistungsnummer", "Leistungsnummer") tableMapping.ColumnMappings.Add("Leistungsbezeichnung", "Leistungsbezeichnung") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragLokal", "SteuerpflichtigerBetragLokal") tableMapping.ColumnMappings.Add("SteuerfreierBetragLokal", "SteuerfreierBetragLokal") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragFremd", "SteuerpflichtigerBetragFremd") tableMapping.ColumnMappings.Add("SteuerfreierBetragFremd", "SteuerfreierBetragFremd") tableMapping.ColumnMappings.Add("Belegdaten", "Belegdaten") tableMapping.ColumnMappings.Add("Sachkonto", "Sachkonto") tableMapping.ColumnMappings.Add("Buchungstext", "Buchungstext") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Rechnungsdatum, Rechnungsnummer, Leistungsnummer, Leistungsbezeichnung, St"& _ "euerpflichtig, SteuerpflichtigerBetragLokal, SteuerfreierBetragLokal, Steuerpfli"& _ "chtigerBetragFremd, SteuerfreierBetragFremd, Belegdaten, Sachkonto, Buchungstext"& _ ", upsize_ts FROM dbo.vwTrdinProduct" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwTrdinProductDataTable) 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 VERAGDataSet.vwTrdinProductDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwTrdinProductDataTable = New VERAGDataSet.vwTrdinProductDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwUStV_OP_RisikoberichtTableAdapter 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 = "vwUStV_OP_Risikobericht" tableMapping.ColumnMappings.Add("Ordnungsbegriff", "Ordnungsbegriff") tableMapping.ColumnMappings.Add("AdressenNr", "AdressenNr") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("Abfertigungsverbot", "Abfertigungsverbot") tableMapping.ColumnMappings.Add("LfdSaldo", "LfdSaldo") tableMapping.ColumnMappings.Add("OPDatumMin", "OPDatumMin") tableMapping.ColumnMappings.Add("UStDiff", "UStDiff") tableMapping.ColumnMappings.Add("Kto3470", "Kto3470") tableMapping.ColumnMappings.Add("Vorauszahlung", "Vorauszahlung") tableMapping.ColumnMappings.Add("Vorschau", "Vorschau") tableMapping.ColumnMappings.Add("Risiko", "Risiko") tableMapping.ColumnMappings.Add("BankgarantieBetrag", "BankgarantieBetrag") tableMapping.ColumnMappings.Add("BankgarantieGültigBis", "BankgarantieGültigBis") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 Ordnungsbegriff, AdressenNr, LandKz, Abfertigungsverbot, LfdSaldo, OPDatum"& _ "Min, UStDiff, Kto3470, Vorauszahlung, Vorschau, Risiko, BankgarantieBetrag, Bank"& _ "garantieGültigBis FROM dbo.vwUStV_OP_Risikobericht" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwUStV_OP_RisikoberichtDataTable) 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 VERAGDataSet.vwUStV_OP_RisikoberichtDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwUStV_OP_RisikoberichtDataTable = New VERAGDataSet.vwUStV_OP_RisikoberichtDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwUStVAntragTableAdapter 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 = "vwUStVAntrag" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVAn_KuNr", "UStVAn_KuNr") tableMapping.ColumnMappings.Add("UStVAn_Name", "UStVAn_Name") tableMapping.ColumnMappings.Add("UStVAn_Straße", "UStVAn_Straße") tableMapping.ColumnMappings.Add("UStVAn_LandKz", "UStVAn_LandKz") tableMapping.ColumnMappings.Add("UStVAn_PLZ", "UStVAn_PLZ") tableMapping.ColumnMappings.Add("UStVAn_Ort", "UStVAn_Ort") tableMapping.ColumnMappings.Add("UStVAn_Land", "UStVAn_Land") tableMapping.ColumnMappings.Add("UStVAn_Gewerbe", "UStVAn_Gewerbe") tableMapping.ColumnMappings.Add("UStVAn_Steuernummer", "UStVAn_Steuernummer") tableMapping.ColumnMappings.Add("UStVAn_ReDatVon", "UStVAn_ReDatVon") tableMapping.ColumnMappings.Add("UStVAn_ReDatBis", "UStVAn_ReDatBis") tableMapping.ColumnMappings.Add("UStVAn_Bankverbindung", "UStVAn_Bankverbindung") tableMapping.ColumnMappings.Add("UStVAn_BLZ", "UStVAn_BLZ") tableMapping.ColumnMappings.Add("UStVAn_KTO", "UStVAn_KTO") tableMapping.ColumnMappings.Add("UStVAn_Kontoinhaber", "UStVAn_Kontoinhaber") tableMapping.ColumnMappings.Add("UStVAn_BIC", "UStVAn_BIC") tableMapping.ColumnMappings.Add("UStVAn_IBAN", "UStVAn_IBAN") tableMapping.ColumnMappings.Add("UStVAn_Anlagen", "UStVAn_Anlagen") tableMapping.ColumnMappings.Add("UStVAn_Rechnungen", "UStVAn_Rechnungen") tableMapping.ColumnMappings.Add("UStVAn_Einfuhrdokumente", "UStVAn_Einfuhrdokumente") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_a", "UStVAn_Erklärung_9_a") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_1", "UStVAn_Erklärung_9_b_1") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_2", "UStVAn_Erklärung_9_b_2") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_3", "UStVAn_Erklärung_9_b_3") tableMapping.ColumnMappings.Add("UStVAn_Ausstellungsort", "UStVAn_Ausstellungsort") tableMapping.ColumnMappings.Add("UStVAn_Ausstellungsdatum", "UStVAn_Ausstellungsdatum") tableMapping.ColumnMappings.Add("UStVAn_Unterschrift", "UStVAn_Unterschrift") tableMapping.ColumnMappings.Add("UStVAn_LandNr", "UStVAn_LandNr") tableMapping.ColumnMappings.Add("UStVAn_Beleganzahl", "UStVAn_Beleganzahl") tableMapping.ColumnMappings.Add("UStVAn_BeleganzahlRetourniert", "UStVAn_BeleganzahlRetourniert") tableMapping.ColumnMappings.Add("UStVAn_Retournierungsgrund", "UStVAn_Retournierungsgrund") tableMapping.ColumnMappings.Add("UStVAn_AntragEingereichtAm", "UStVAn_AntragEingereichtAm") tableMapping.ColumnMappings.Add("UStVAn_BelegeWeitergeleitetAm", "UStVAn_BelegeWeitergeleitetAm") tableMapping.ColumnMappings.Add("UStVAn_Vertreter", "UStVAn_Vertreter") tableMapping.ColumnMappings.Add("UStVAn_BezugsNr", "UStVAn_BezugsNr") tableMapping.ColumnMappings.Add("UStVAn_3470", "UStVAn_3470") tableMapping.ColumnMappings.Add("UStVAn_VZBetrag", "UStVAn_VZBetrag") tableMapping.ColumnMappings.Add("UStVAn_VZDatum", "UStVAn_VZDatum") tableMapping.ColumnMappings.Add("UStVAn_RZBetragVZ", "UStVAn_RZBetragVZ") tableMapping.ColumnMappings.Add("UStVAn_RZDatumVZ", "UStVAn_RZDatumVZ") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UStVAn_Währungscode", "UStVAn_Währungscode") tableMapping.ColumnMappings.Add("UStVAn_USteuerbetrag", "UStVAn_USteuerbetrag") tableMapping.ColumnMappings.Add("UStVAn_Erstattungsbetrag", "UStVAn_Erstattungsbetrag") tableMapping.ColumnMappings.Add("UStVAn_USteuerbetragEUR", "UStVAn_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVAn_ErstattungsbetragEUR", "UStVAn_ErstattungsbetragEUR") tableMapping.ColumnMappings.Add("UStVAn_Sachbearbeiter", "UStVAn_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVAn_Zeitstempel", "UStVAn_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVAn_ID, UStVAn_KuNr, UStVAn_Name, UStVAn_Straße, UStVAn_LandKz, UStVAn_"& _ "PLZ, UStVAn_Ort, UStVAn_Land, UStVAn_Gewerbe, UStVAn_Steuernummer, UStVAn_ReDatV"& _ "on, UStVAn_ReDatBis, UStVAn_Bankverbindung, UStVAn_BLZ, UStVAn_KTO, UStVAn_Konto"& _ "inhaber, UStVAn_BIC, UStVAn_IBAN, UStVAn_Anlagen, UStVAn_Rechnungen, UStVAn_Einf"& _ "uhrdokumente, UStVAn_Erklärung_9_a, UStVAn_Erklärung_9_b_1, UStVAn_Erklärung_9_b"& _ "_2, UStVAn_Erklärung_9_b_3, UStVAn_Ausstellungsort, UStVAn_Ausstellungsdatum, US"& _ "tVAn_Unterschrift, UStVAn_LandNr, UStVAn_Beleganzahl, UStVAn_BeleganzahlRetourni"& _ "ert, UStVAn_Retournierungsgrund, UStVAn_AntragEingereichtAm, UStVAn_BelegeWeiter"& _ "geleitetAm, UStVAn_Vertreter, UStVAn_BezugsNr, UStVAn_3470, UStVAn_VZBetrag, USt"& _ "VAn_VZDatum, UStVAn_RZBetragVZ, UStVAn_RZDatumVZ, FilialenNr, AbfertigungsNr, US"& _ "tVAn_Währungscode, UStVAn_USteuerbetrag, UStVAn_Erstattungsbetrag, UStVAn_USteue"& _ "rbetragEUR, UStVAn_ErstattungsbetragEUR, UStVAn_Sachbearbeiter, UStVAn_Zeitstemp"& _ "el, upsize_ts FROM dbo.vwUStVAntrag" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwUStVAntragDataTable) 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 VERAGDataSet.vwUStVAntragDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwUStVAntragDataTable = New VERAGDataSet.vwUStVAntragDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwUStVBelegeingangTableAdapter 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 = "vwUStVBelegeingang" tableMapping.ColumnMappings.Add("UStVBe_KuNr", "UStVBe_KuNr") tableMapping.ColumnMappings.Add("UStVBe_EinDat", "UStVBe_EinDat") tableMapping.ColumnMappings.Add("UStVBe_EinNr", "UStVBe_EinNr") tableMapping.ColumnMappings.Add("UStVBe_UStBetrag", "UStVBe_UStBetrag") tableMapping.ColumnMappings.Add("UStVBe_Beleganzahl", "UStVBe_Beleganzahl") tableMapping.ColumnMappings.Add("UStVBe_Retourniert", "UStVBe_Retourniert") tableMapping.ColumnMappings.Add("UStVBe_Bemerkung", "UStVBe_Bemerkung") tableMapping.ColumnMappings.Add("UStVBe_WeiterDat", "UStVBe_WeiterDat") tableMapping.ColumnMappings.Add("UStVBe_Empfänger", "UStVBe_Empfänger") tableMapping.ColumnMappings.Add("UStVBe_Zeitstempel", "UStVBe_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVBe_KuNr, UStVBe_EinDat, UStVBe_EinNr, UStVBe_UStBetrag, UStVBe_Belegan"& _ "zahl, UStVBe_Retourniert, UStVBe_Bemerkung, UStVBe_WeiterDat, UStVBe_Empfänger, "& _ "UStVBe_Zeitstempel, upsize_ts FROM dbo.vwUStVBelegeingang" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwUStVBelegeingangDataTable) 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 VERAGDataSet.vwUStVBelegeingangDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwUStVBelegeingangDataTable = New VERAGDataSet.vwUStVBelegeingangDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwUStVErstattungTableAdapter 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 = "vwUStVErstattung" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVEr_ID", "UStVEr_ID") tableMapping.ColumnMappings.Add("UStVEr_USteuerbetrag", "UStVEr_USteuerbetrag") tableMapping.ColumnMappings.Add("Belegdatum", "Belegdatum") tableMapping.ColumnMappings.Add("Belegnummer", "Belegnummer") tableMapping.ColumnMappings.Add("GutschriftsDatum", "GutschriftsDatum") tableMapping.ColumnMappings.Add("GutschriftsNr", "GutschriftsNr") tableMapping.ColumnMappings.Add("Berufungsdatum", "Berufungsdatum") tableMapping.ColumnMappings.Add("Berufungshöhe", "Berufungshöhe") tableMapping.ColumnMappings.Add("Berufungsgrund", "Berufungsgrund") tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung") tableMapping.ColumnMappings.Add("UStVEr_Umrechnungskurs", "UStVEr_Umrechnungskurs") tableMapping.ColumnMappings.Add("UStVEr_USteuerbetragEUR", "UStVEr_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVEr_Sachbearbeiter", "UStVEr_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVEr_Zeitstempel", "UStVEr_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVAn_ID, UStVEr_ID, UStVEr_USteuerbetrag, Belegdatum, Belegnummer, Gutsc"& _ "hriftsDatum, GutschriftsNr, Berufungsdatum, Berufungshöhe, Berufungsgrund, Bemer"& _ "kung, UStVEr_Umrechnungskurs, UStVEr_USteuerbetragEUR, UStVEr_Sachbearbeiter, US"& _ "tVEr_Zeitstempel, upsize_ts FROM dbo.vwUStVErstattung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwUStVErstattungDataTable) 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 VERAGDataSet.vwUStVErstattungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwUStVErstattungDataTable = New VERAGDataSet.vwUStVErstattungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwUStVPositionenTableAdapter 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 = "vwUStVPositionen" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVPo_ID", "UStVPo_ID") tableMapping.ColumnMappings.Add("UStVPo_ReDat", "UStVPo_ReDat") tableMapping.ColumnMappings.Add("UStVPo_ReNr", "UStVPo_ReNr") tableMapping.ColumnMappings.Add("UStVPo_USteuerbetrag", "UStVPo_USteuerbetrag") tableMapping.ColumnMappings.Add("UStVPo_Leistungsbezeichnung", "UStVPo_Leistungsbezeichnung") tableMapping.ColumnMappings.Add("UStVPo_Leistender", "UStVPo_Leistender") tableMapping.ColumnMappings.Add("UStVPo_Schnittstelle", "UStVPo_Schnittstelle") tableMapping.ColumnMappings.Add("UStVPo_SchnittstellenNr", "UStVPo_SchnittstellenNr") tableMapping.ColumnMappings.Add("UStVPo_Umrechnungskurs", "UStVPo_Umrechnungskurs") tableMapping.ColumnMappings.Add("UStVPo_USteuerbetragEUR", "UStVPo_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVPo_Sachbearbeiter", "UStVPo_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVPo_Zeitstempel", "UStVPo_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVAn_ID, UStVPo_ID, UStVPo_ReDat, UStVPo_ReNr, UStVPo_USteuerbetrag, USt"& _ "VPo_Leistungsbezeichnung, UStVPo_Leistender, UStVPo_Schnittstelle, UStVPo_Schnit"& _ "tstellenNr, UStVPo_Umrechnungskurs, UStVPo_USteuerbetragEUR, UStVPo_Sachbearbeit"& _ "er, UStVPo_Zeitstempel, upsize_ts FROM dbo.vwUStVPositionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwUStVPositionenDataTable) 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 VERAGDataSet.vwUStVPositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwUStVPositionenDataTable = New VERAGDataSet.vwUStVPositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwUStVVorauszahlungTableAdapter 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 = "vwUStVVorauszahlung" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVAn_KuNr", "UStVAn_KuNr") tableMapping.ColumnMappings.Add("UStVAn_ReDatVon", "UStVAn_ReDatVon") tableMapping.ColumnMappings.Add("UStVAn_ReDatBis", "UStVAn_ReDatBis") tableMapping.ColumnMappings.Add("UStVAn_Ausstellungsdatum", "UStVAn_Ausstellungsdatum") tableMapping.ColumnMappings.Add("UStVAn_LandNr", "UStVAn_LandNr") tableMapping.ColumnMappings.Add("UStVAn_VZDatum", "UStVAn_VZDatum") tableMapping.ColumnMappings.Add("UStVAn_VZBetrag", "UStVAn_VZBetrag") tableMapping.ColumnMappings.Add("UStVAn_RZBetragVZ", "UStVAn_RZBetragVZ") tableMapping.ColumnMappings.Add("Ordnungsbegriff", "Ordnungsbegriff") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("Erstattungsbetrag", "Erstattungsbetrag") tableMapping.ColumnMappings.Add("UStVAn_VZBetragAktuell", "UStVAn_VZBetragAktuell") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 UStVAn_ID, UStVAn_KuNr, UStVAn_ReDatVon, UStVAn_ReDatBis, UStVAn_Ausstellu"& _ "ngsdatum, UStVAn_LandNr, UStVAn_VZDatum, UStVAn_VZBetrag, UStVAn_RZBetragVZ, Ord"& _ "nungsbegriff, LandKz, Erstattungsbetrag, UStVAn_VZBetragAktuell FROM dbo.vwUStVV"& _ "orauszahlung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwUStVVorauszahlungDataTable) 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 VERAGDataSet.vwUStVVorauszahlungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwUStVVorauszahlungDataTable = New VERAGDataSet.vwUStVVorauszahlungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1TableAdapter 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 = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1" tableMapping.ColumnMappings.Add("VERAG_KundenNr", "VERAG_KundenNr") tableMapping.ColumnMappings.Add("VERAG_OffertenNr", "VERAG_OffertenNr") tableMapping.ColumnMappings.Add("VERAG_LeistungsNr", "VERAG_LeistungsNr") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 VERAG_KundenNr, VERAG_OffertenNr, VERAG_LeistungsNr FROM dbo.vwUTA_Prüfung"& _ "InkonsistenzVERAGOffertenpositionen1" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable) 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 VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable = New VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1DataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newTableAdapter 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 = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_new" tableMapping.ColumnMappings.Add("VERAG_KundenNr", "VERAG_KundenNr") tableMapping.ColumnMappings.Add("VERAG_OffertenNr", "VERAG_OffertenNr") tableMapping.ColumnMappings.Add("VERAG_LeistungsNr", "VERAG_LeistungsNr") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 VERAG_KundenNr, VERAG_OffertenNr, VERAG_LeistungsNr FROM dbo.vwUTA_Prüfung"& _ "InkonsistenzVERAGOffertenpositionen1_new" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable) 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 VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable = New VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen1_newDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2TableAdapter 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 = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2" tableMapping.ColumnMappings.Add("VERAG_KundenNr", "VERAG_KundenNr") tableMapping.ColumnMappings.Add("VERAG_OffertenNr", "VERAG_OffertenNr") tableMapping.ColumnMappings.Add("VERAG_LeistungsNr", "VERAG_LeistungsNr") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 VERAG_KundenNr, VERAG_OffertenNr, VERAG_LeistungsNr FROM dbo.vwUTA_Prüfung"& _ "InkonsistenzVERAGOffertenpositionen2" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable) 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 VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable = New VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2DataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newTableAdapter 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 = "vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_new" tableMapping.ColumnMappings.Add("VERAG_KundenNr", "VERAG_KundenNr") tableMapping.ColumnMappings.Add("VERAG_OffertenNr", "VERAG_OffertenNr") tableMapping.ColumnMappings.Add("VERAG_LeistungsNr", "VERAG_LeistungsNr") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 VERAG_KundenNr, VERAG_OffertenNr, VERAG_LeistungsNr FROM dbo.vwUTA_Prüfung"& _ "InkonsistenzVERAGOffertenpositionen2_new" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable) 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 VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable = New VERAGDataSet.vwUTA_PrüfungInkonsistenzVERAGOffertenpositionen2_newDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spAlleTabellenTableAdapter 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 = "spAlleTabellen" 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.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spAlleTabellen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spAlleTabellenDataTable) 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 VERAGDataSet.spAlleTabellenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spAlleTabellenDataTable = New VERAGDataSet.spAlleTabellenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spReDruReNrVergebenTableAdapter 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 = "spReDruReNrVergeben" tableMapping.ColumnMappings.Add("LfdRechnungsNr", "LfdRechnungsNr") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spReDruReNrVergeben" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spReDruReNrVergebenDataTable, ByVal Firma_ID As Global.System.Nullable(Of Short), ByVal Buchungsjahr As Global.System.Nullable(Of Short)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Buchungsjahr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Buchungsjahr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 Firma_ID As Global.System.Nullable(Of Short), ByVal Buchungsjahr As Global.System.Nullable(Of Short)) As VERAGDataSet.spReDruReNrVergebenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Buchungsjahr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Buchungsjahr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spReDruReNrVergebenDataTable = New VERAGDataSet.spReDruReNrVergebenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spReDruSchnSaReDruckinfoEintragenTableAdapter 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 = "spReDruSchnSaReDruckinfoEintragen" tableMapping.ColumnMappings.Add("Returncode", "Returncode") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spReDruSchnSaReDruckinfoEintragen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DruckDatumZeit", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spReDruSchnSaReDruckinfoEintragenDataTable, ByVal Firma_ID As Global.System.Nullable(Of Short), ByVal Status As Global.System.Nullable(Of Short), ByVal Sammelrechnung As Global.System.Nullable(Of Short), ByVal Sachbearbeiter As String, ByVal Buchungsjahr As Global.System.Nullable(Of Short), ByVal RechnungsDatum As Global.System.Nullable(Of Date), ByVal DruckDatumZeit As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Status.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Sammelrechnung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(Sachbearbeiter,String) End If If (Buchungsjahr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(Buchungsjahr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (DruckDatumZeit.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(7).Value = CType(DruckDatumZeit.Value,Date) Else Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value 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 Firma_ID As Global.System.Nullable(Of Short), ByVal Status As Global.System.Nullable(Of Short), ByVal Sammelrechnung As Global.System.Nullable(Of Short), ByVal Sachbearbeiter As String, ByVal Buchungsjahr As Global.System.Nullable(Of Short), ByVal RechnungsDatum As Global.System.Nullable(Of Date), ByVal DruckDatumZeit As Global.System.Nullable(Of Date)) As VERAGDataSet.spReDruSchnSaReDruckinfoEintragenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Status.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Sammelrechnung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(Sachbearbeiter,String) End If If (Buchungsjahr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(Buchungsjahr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (DruckDatumZeit.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(7).Value = CType(DruckDatumZeit.Value,Date) Else Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spReDruSchnSaReDruckinfoEintragenDataTable = New VERAGDataSet.spReDruSchnSaReDruckinfoEintragenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spReDruSchnSaReNrEintragenTableAdapter 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 = "spReDruSchnSaReNrEintragen" tableMapping.ColumnMappings.Add("ErrNumber", "ErrNumber") tableMapping.ColumnMappings.Add("ErrLevel", "ErrLevel") tableMapping.ColumnMappings.Add("ErrState", "ErrState") tableMapping.ColumnMappings.Add("ErrProcedure", "ErrProcedure") tableMapping.ColumnMappings.Add("ErrLine", "ErrLine") tableMapping.ColumnMappings.Add("ErrDescription", "ErrDescription") tableMapping.ColumnMappings.Add("ErrDate", "ErrDate") tableMapping.ColumnMappings.Add("LfdRechnungsNr", "LfdRechnungsNr") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spReDruSchnSaReNrEintragen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DruckDatumZeit", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spReDruSchnSaReNrEintragenDataTable, ByVal Firma_ID As Global.System.Nullable(Of Short), ByVal Buchungsjahr As Global.System.Nullable(Of Short), ByVal RechnungsDatum As Global.System.Nullable(Of Date), ByVal DruckDatumZeit As Global.System.Nullable(Of Date), ByVal Status As Global.System.Nullable(Of Short), ByVal Sammelrechnung As Global.System.Nullable(Of Short), ByVal Sachbearbeiter As String, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal BelegartenNr As Global.System.Nullable(Of Short), ByVal Währungscode As String, ByVal Steuersatz As Global.System.Nullable(Of Single), ByVal Lastschrift As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Buchungsjahr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Buchungsjahr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (DruckDatumZeit.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(4).Value = CType(DruckDatumZeit.Value,Date) Else Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(Status.Value,Short) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(Sammelrechnung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(7).Value = CType(Sachbearbeiter,String) End If If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(8).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (BelegartenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(9).Value = CType(BelegartenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then Me.Adapter.SelectCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(10).Value = CType(Währungscode,String) End If If (Steuersatz.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(11).Value = CType(Steuersatz.Value,Single) Else Me.Adapter.SelectCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Lastschrift.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(12).Value = CType(Lastschrift.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(12).Value = Global.System.DBNull.Value 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 Firma_ID As Global.System.Nullable(Of Short), ByVal Buchungsjahr As Global.System.Nullable(Of Short), ByVal RechnungsDatum As Global.System.Nullable(Of Date), ByVal DruckDatumZeit As Global.System.Nullable(Of Date), ByVal Status As Global.System.Nullable(Of Short), ByVal Sammelrechnung As Global.System.Nullable(Of Short), ByVal Sachbearbeiter As String, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal BelegartenNr As Global.System.Nullable(Of Short), ByVal Währungscode As String, ByVal Steuersatz As Global.System.Nullable(Of Single), ByVal Lastschrift As Global.System.Nullable(Of Boolean)) As VERAGDataSet.spReDruSchnSaReNrEintragenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Buchungsjahr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Buchungsjahr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (DruckDatumZeit.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(4).Value = CType(DruckDatumZeit.Value,Date) Else Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(Status.Value,Short) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(Sammelrechnung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(7).Value = CType(Sachbearbeiter,String) End If If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(8).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (BelegartenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(9).Value = CType(BelegartenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then Me.Adapter.SelectCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(10).Value = CType(Währungscode,String) End If If (Steuersatz.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(11).Value = CType(Steuersatz.Value,Single) Else Me.Adapter.SelectCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Lastschrift.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(12).Value = CType(Lastschrift.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(12).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spReDruSchnSaReNrEintragenDataTable = New VERAGDataSet.spReDruSchnSaReNrEintragenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spReverseChargeSummeTableAdapter 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 = "spReverseChargeSumme" tableMapping.ColumnMappings.Add("ReverseChargeSumme", "ReverseChargeSumme") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spReverseChargeSumme" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spReverseChargeSummeDataTable, ByVal RechnungsNr As Global.System.Nullable(Of Integer), ByVal RechnungsDatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 RechnungsNr As Global.System.Nullable(Of Integer), ByVal RechnungsDatum As Global.System.Nullable(Of Date)) As VERAGDataSet.spReverseChargeSummeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spReverseChargeSummeDataTable = New VERAGDataSet.spReverseChargeSummeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECT_Bankspesen_für_KundenNrTableAdapter 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 = "spSELECT_Bankspesen_für_KundenNr" tableMapping.ColumnMappings.Add("Bankspesen %", "Bankspesen %") tableMapping.ColumnMappings.Add("Bankspesen Mindestbetrag", "Bankspesen Mindestbetrag") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECT_Bankspesen_für_KundenNr" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECT_Bankspesen_für_KundenNrDataTable, ByVal KundenNr As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (KundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(KundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value 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 KundenNr As Global.System.Nullable(Of Integer)) As VERAGDataSet.spSELECT_Bankspesen_für_KundenNrDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (KundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(KundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSELECT_Bankspesen_für_KundenNrDataTable = New VERAGDataSet.spSELECT_Bankspesen_für_KundenNrDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECT_tblZabis_Atlas_NCTSTableAdapter 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 = "spSELECT_tblZabis_Atlas_NCTS" tableMapping.ColumnMappings.Add("ID_NCTS", "ID_NCTS") tableMapping.ColumnMappings.Add("basman_nr", "basman_nr") tableMapping.ColumnMappings.Add("basman_nl", "basman_nl") tableMapping.ColumnMappings.Add("veoant_beznr", "veoant_beznr") tableMapping.ColumnMappings.Add("veoant_lfdnr", "veoant_lfdnr") tableMapping.ColumnMappings.Add("veoant_stat", "veoant_stat") tableMapping.ColumnMappings.Add("veoant_arbnr", "veoant_arbnr") tableMapping.ColumnMappings.Add("veoant_mrn", "veoant_mrn") tableMapping.ColumnMappings.Add("veoant_abgdst", "veoant_abgdst") tableMapping.ColumnMappings.Add("veoant_bedst", "veoant_bedst") tableMapping.ColumnMappings.Add("veoant_wgdat", "veoant_wgdat") tableMapping.ColumnMappings.Add("veoant_anzpos", "veoant_anzpos") tableMapping.ColumnMappings.Add("veoant_andat", "veoant_andat") tableMapping.ColumnMappings.Add("veoant_korant", "veoant_korant") tableMapping.ColumnMappings.Add("veoant_vrbdat", "veoant_vrbdat") tableMapping.ColumnMappings.Add("veoant_sb", "veoant_sb") tableMapping.ColumnMappings.Add("veopos_posnr", "veopos_posnr") tableMapping.ColumnMappings.Add("veopos_stat", "veopos_stat") tableMapping.ColumnMappings.Add("veopos_wbsch1", "veopos_wbsch1") tableMapping.ColumnMappings.Add("veopos_rohmas", "veopos_rohmas") tableMapping.ColumnMappings.Add("veoerz_sicbsc", "veoerz_sicbsc") tableMapping.ColumnMappings.Add("veoerz_basbtg", "veoerz_basbtg") tableMapping.ColumnMappings.Add("veoerz_sicbtg", "veoerz_sicbtg") tableMapping.ColumnMappings.Add("vegdat_erldat", "vegdat_erldat") tableMapping.ColumnMappings.Add("History", "History") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECT_tblZabis_Atlas_NCTS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@basman_nr", Global.System.Data.SqlDbType.NVarChar, 4, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@basman_nl", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_beznr", Global.System.Data.SqlDbType.NVarChar, 22, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veoant_lfdnr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@veopos_posnr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECT_tblZabis_Atlas_NCTSDataTable, ByVal basman_nr As String, ByVal basman_nl As String, ByVal veoant_beznr As String, ByVal veoant_lfdnr As Global.System.Nullable(Of Short), ByVal veopos_posnr As Global.System.Nullable(Of Short)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (basman_nr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(basman_nr,String) End If If (basman_nl Is Nothing) Then Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(2).Value = CType(basman_nl,String) End If If (veoant_beznr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(3).Value = CType(veoant_beznr,String) End If If (veoant_lfdnr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(4).Value = CType(veoant_lfdnr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (veopos_posnr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(veopos_posnr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value 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 basman_nr As String, ByVal basman_nl As String, ByVal veoant_beznr As String, ByVal veoant_lfdnr As Global.System.Nullable(Of Short), ByVal veopos_posnr As Global.System.Nullable(Of Short)) As VERAGDataSet.spSELECT_tblZabis_Atlas_NCTSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (basman_nr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(basman_nr,String) End If If (basman_nl Is Nothing) Then Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(2).Value = CType(basman_nl,String) End If If (veoant_beznr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(3).Value = CType(veoant_beznr,String) End If If (veoant_lfdnr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(4).Value = CType(veoant_lfdnr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (veopos_posnr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(veopos_posnr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSELECT_tblZabis_Atlas_NCTSDataTable = New VERAGDataSet.spSELECT_tblZabis_Atlas_NCTSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTAufschubdatenTableAdapter 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 = "spSELECTAufschubdaten" tableMapping.ColumnMappings.Add("AufschubkontoNr", "AufschubkontoNr") tableMapping.ColumnMappings.Add("Fälligkeit", "Fälligkeit") tableMapping.ColumnMappings.Add("VorbuchNr", "VorbuchNr") tableMapping.ColumnMappings.Add("Buchungsdatum", "Buchungsdatum") tableMapping.ColumnMappings.Add("Abfertigungsort", "Abfertigungsort") tableMapping.ColumnMappings.Add("WährungsKz", "WährungsKz") tableMapping.ColumnMappings.Add("Betrag", "Betrag") tableMapping.ColumnMappings.Add("Fakturiert", "Fakturiert") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTAufschubdaten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTAufschubdatenDataTable) 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 VERAGDataSet.spSELECTAufschubdatenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTAufschubdatenDataTable = New VERAGDataSet.spSELECTAufschubdatenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTRechnungsausgangTableAdapter 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 = "spSELECTRechnungsausgang" tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("RechnungsNr", "RechnungsNr") tableMapping.ColumnMappings.Add("RechnungsDatum", "RechnungsDatum") tableMapping.ColumnMappings.Add("Sammelrechnung", "Sammelrechnung") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("BelegartenKz", "BelegartenKz") tableMapping.ColumnMappings.Add("BelegartenBez", "BelegartenBez") tableMapping.ColumnMappings.Add("Vorzeichen", "Vorzeichen") tableMapping.ColumnMappings.Add("BelegNr", "BelegNr") tableMapping.ColumnMappings.Add("AbsenderLandKz", "AbsenderLandKz") tableMapping.ColumnMappings.Add("AbsenderKundenNr", "AbsenderKundenNr") tableMapping.ColumnMappings.Add("AbsenderName 1", "AbsenderName 1") tableMapping.ColumnMappings.Add("AbsenderName 2", "AbsenderName 2") tableMapping.ColumnMappings.Add("AbsenderStraße", "AbsenderStraße") tableMapping.ColumnMappings.Add("AbsenderOrt", "AbsenderOrt") tableMapping.ColumnMappings.Add("AbsenderOffertenNr", "AbsenderOffertenNr") tableMapping.ColumnMappings.Add("EmpfängerLandKz", "EmpfängerLandKz") tableMapping.ColumnMappings.Add("EmpfängerKundenNr", "EmpfängerKundenNr") tableMapping.ColumnMappings.Add("EmpfängerName 1", "EmpfängerName 1") tableMapping.ColumnMappings.Add("EmpfängerName 2", "EmpfängerName 2") tableMapping.ColumnMappings.Add("EmpfängerStraße", "EmpfängerStraße") tableMapping.ColumnMappings.Add("EmpfängerOrt", "EmpfängerOrt") tableMapping.ColumnMappings.Add("EmpfängerOffertenNr", "EmpfängerOffertenNr") tableMapping.ColumnMappings.Add("VermittlerLandKz", "VermittlerLandKz") tableMapping.ColumnMappings.Add("VermittlerKundenNr", "VermittlerKundenNr") tableMapping.ColumnMappings.Add("VermittlerName 1", "VermittlerName 1") tableMapping.ColumnMappings.Add("VermittlerName 2", "VermittlerName 2") tableMapping.ColumnMappings.Add("VermittlerStraße", "VermittlerStraße") tableMapping.ColumnMappings.Add("VermittlerOrt", "VermittlerOrt") tableMapping.ColumnMappings.Add("VermittlerOffertenNr", "VermittlerOffertenNr") tableMapping.ColumnMappings.Add("Rechnung an", "Rechnung an") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("RechnungsLandKz", "RechnungsLandKz") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("RechnungsName 1", "RechnungsName 1") tableMapping.ColumnMappings.Add("RechnungsName 2", "RechnungsName 2") tableMapping.ColumnMappings.Add("RechnungsStraße", "RechnungsStraße") tableMapping.ColumnMappings.Add("RechnungsOrt", "RechnungsOrt") tableMapping.ColumnMappings.Add("RechnungsUstIdKz", "RechnungsUstIdKz") tableMapping.ColumnMappings.Add("RechnungsUstIdNr", "RechnungsUstIdNr") tableMapping.ColumnMappings.Add("RechnungsUstIdGeprüft", "RechnungsUstIdGeprüft") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Kunden-SVS", "Kunden-SVS") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("LKW Kennzeichen", "LKW Kennzeichen") tableMapping.ColumnMappings.Add("WährungsNr", "WährungsNr") tableMapping.ColumnMappings.Add("Wert", "Wert") tableMapping.ColumnMappings.Add("Umrechnungskurs", "Umrechnungskurs") tableMapping.ColumnMappings.Add("Packstücke und Warenbezeichnung", "Packstücke und Warenbezeichnung") tableMapping.ColumnMappings.Add("Vermerk", "Vermerk") tableMapping.ColumnMappings.Add("Anlage 1", "Anlage 1") tableMapping.ColumnMappings.Add("Anlage 2", "Anlage 2") tableMapping.ColumnMappings.Add("Anlage 3", "Anlage 3") tableMapping.ColumnMappings.Add("Anlage 4", "Anlage 4") tableMapping.ColumnMappings.Add("Anlage 5", "Anlage 5") tableMapping.ColumnMappings.Add("Anlage 6", "Anlage 6") tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("Vorlageprovision %", "Vorlageprovision %") tableMapping.ColumnMappings.Add("Kreditaufwendungen %", "Kreditaufwendungen %") tableMapping.ColumnMappings.Add("Besonderheiten", "Besonderheiten") tableMapping.ColumnMappings.Add("Vorkasse", "Vorkasse") tableMapping.ColumnMappings.Add("Text", "Text") tableMapping.ColumnMappings.Add("SteuerpflichtigerGesamtbetrag", "SteuerpflichtigerGesamtbetrag") tableMapping.ColumnMappings.Add("SteuerfreierGesamtbetrag", "SteuerfreierGesamtbetrag") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("DruckDatumZeit", "DruckDatumZeit") tableMapping.ColumnMappings.Add("Abfertigungskosten", "Abfertigungskosten") tableMapping.ColumnMappings.Add("Vorkosten", "Vorkosten") tableMapping.ColumnMappings.Add("Erlös", "Erlös") tableMapping.ColumnMappings.Add("Buchungsjahr", "Buchungsjahr") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Trdin", "Trdin") tableMapping.ColumnMappings.Add("KartenNr", "KartenNr") tableMapping.ColumnMappings.Add("RefFilialenNr", "RefFilialenNr") tableMapping.ColumnMappings.Add("RefAbfertigungsNr", "RefAbfertigungsNr") tableMapping.ColumnMappings.Add("RefUnterNr", "RefUnterNr") tableMapping.ColumnMappings.Add("Notiz", "Notiz") tableMapping.ColumnMappings.Add("Zucker_MRN_Nr", "Zucker_MRN_Nr") tableMapping.ColumnMappings.Add("Zucker_MRN_Datum", "Zucker_MRN_Datum") tableMapping.ColumnMappings.Add("Zucker_Aufschub", "Zucker_Aufschub") tableMapping.ColumnMappings.Add("ReErfZeitstempel", "ReErfZeitstempel") tableMapping.ColumnMappings.Add("Nettozahlungsziel", "Nettozahlungsziel") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("SpeditionsbuchUnterNr", "SpeditionsbuchUnterNr") tableMapping.ColumnMappings.Add("ErfassungsNr", "ErfassungsNr") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTRechnungsausgang" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTRechnungsausgangDataTable) 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 VERAGDataSet.spSELECTRechnungsausgangDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTRechnungsausgangDataTable = New VERAGDataSet.spSELECTRechnungsausgangDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTRechnungsausgangPositionenTableAdapter 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 = "spSELECTRechnungsausgangPositionen" tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("IndexZkteing", "IndexZkteing") tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetrag", "SteuerpflichtigerBetrag") tableMapping.ColumnMappings.Add("SteuerfreierBetrag", "SteuerfreierBetrag") tableMapping.ColumnMappings.Add("AufschubkontoNr", "AufschubkontoNr") tableMapping.ColumnMappings.Add("Aufschubfälligkeit", "Aufschubfälligkeit") tableMapping.ColumnMappings.Add("Prüfsumme berechnen", "Prüfsumme berechnen") tableMapping.ColumnMappings.Add("DateiNameAufschub", "DateiNameAufschub") tableMapping.ColumnMappings.Add("Preisbindung", "Preisbindung") tableMapping.ColumnMappings.Add("Belegdaten", "Belegdaten") tableMapping.ColumnMappings.Add("Fremdwährung", "Fremdwährung") tableMapping.ColumnMappings.Add("BGebLeistungsNr", "BGebLeistungsNr") tableMapping.ColumnMappings.Add("BGebProzent", "BGebProzent") tableMapping.ColumnMappings.Add("BGebBgl", "BGebBgl") tableMapping.ColumnMappings.Add("BGebMinBetrag", "BGebMinBetrag") tableMapping.ColumnMappings.Add("RePosZeitstempel", "RePosZeitstempel") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTRechnungsausgangPositionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTRechnungsausgangPositionenDataTable) 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 VERAGDataSet.spSELECTRechnungsausgangPositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTRechnungsausgangPositionenDataTable = New VERAGDataSet.spSELECTRechnungsausgangPositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTRechnungsnummernTableAdapter 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 = "spSELECTRechnungsnummern" tableMapping.ColumnMappings.Add("SpeditionsbuchNr", "SpeditionsbuchNr") tableMapping.ColumnMappings.Add("Buchungsjahr", "Buchungsjahr") tableMapping.ColumnMappings.Add("VonRechnungsNr", "VonRechnungsNr") tableMapping.ColumnMappings.Add("BisRechnungsNr", "BisRechnungsNr") tableMapping.ColumnMappings.Add("LfdRechnungsNr", "LfdRechnungsNr") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTRechnungsnummern" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTRechnungsnummernDataTable) 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 VERAGDataSet.spSELECTRechnungsnummernDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTRechnungsnummernDataTable = New VERAGDataSet.spSELECTRechnungsnummernDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectReDruSaReRKAvisoIDTableAdapter 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 = "spSelectReDruSaReRKAvisoID" tableMapping.ColumnMappings.Add("AvisoID", "AvisoID") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectReDruSaReRKAvisoID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSelectReDruSaReRKAvisoIDDataTable, ByVal RechnungsNr As Global.System.Nullable(Of Integer), ByVal RechnungsDatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 RechnungsNr As Global.System.Nullable(Of Integer), ByVal RechnungsDatum As Global.System.Nullable(Of Date)) As VERAGDataSet.spSelectReDruSaReRKAvisoIDDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSelectReDruSaReRKAvisoIDDataTable = New VERAGDataSet.spSelectReDruSaReRKAvisoIDDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTReDruSaReRKgruppierenTableAdapter 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 = "spSELECTReDruSaReRKgruppieren" tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("Sammelrechnung", "Sammelrechnung") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTReDruSaReRKgruppieren" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTReDruSaReRKgruppierenDataTable, ByVal Firma_ID As Global.System.Nullable(Of Short), ByVal Status As Global.System.Nullable(Of Short), ByVal Sammelrechnung As Global.System.Nullable(Of Short), ByVal Sachbearbeiter As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Status.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Sammelrechnung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(Sachbearbeiter,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 Firma_ID As Global.System.Nullable(Of Short), ByVal Status As Global.System.Nullable(Of Short), ByVal Sammelrechnung As Global.System.Nullable(Of Short), ByVal Sachbearbeiter As String) As VERAGDataSet.spSELECTReDruSaReRKgruppierenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Status.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Sammelrechnung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(Sachbearbeiter,String) End If Dim dataTable As VERAGDataSet.spSELECTReDruSaReRKgruppierenDataTable = New VERAGDataSet.spSELECTReDruSaReRKgruppierenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectReDruSchnBB_RKTableAdapter 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 = "spSelectReDruSchnBB_RK" tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("Sammelrechnung", "Sammelrechnung") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectReDruSchnBB_RK" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSelectReDruSchnBB_RKDataTable, ByVal Sachbearbeiter As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(Sachbearbeiter,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 Sachbearbeiter As String) As VERAGDataSet.spSelectReDruSchnBB_RKDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(Sachbearbeiter,String) End If Dim dataTable As VERAGDataSet.spSelectReDruSchnBB_RKDataTable = New VERAGDataSet.spSelectReDruSchnBB_RKDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectReDruSchnKundeTableAdapter 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 = "spSelectReDruSchnKunde" tableMapping.ColumnMappings.Add("KundenNr", "KundenNr") tableMapping.ColumnMappings.Add("Bankspesen %", "Bankspesen %") tableMapping.ColumnMappings.Add("Bankspesen Mindestbetrag", "Bankspesen Mindestbetrag") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectReDruSchnKunde" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSelectReDruSchnKundeDataTable, ByVal KundenNr As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (KundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(KundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value 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 KundenNr As Global.System.Nullable(Of Integer)) As VERAGDataSet.spSelectReDruSchnKundeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (KundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(KundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSelectReDruSchnKundeDataTable = New VERAGDataSet.spSelectReDruSchnKundeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectReDruSchnSumBS415TableAdapter 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 = "spSelectReDruSchnSumBS415" tableMapping.ColumnMappings.Add("Summe von Preis", "Summe von Preis") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectReDruSchnSumBS415" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSelectReDruSchnSumBS415DataTable, ByVal Firma_ID As Global.System.Nullable(Of Short), ByVal Status As Global.System.Nullable(Of Short), ByVal Sammelrechnung As Global.System.Nullable(Of Short), ByVal Sachbearbeiter As String, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal BelegartenNr As Global.System.Nullable(Of Short), ByVal Währungscode As String, ByVal Steuersatz As Global.System.Nullable(Of Single), ByVal Lastschrift As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Status.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Sammelrechnung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(Sachbearbeiter,String) End If If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (BelegartenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(BelegartenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(7).Value = CType(Währungscode,String) End If If (Steuersatz.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(8).Value = CType(Steuersatz.Value,Single) Else Me.Adapter.SelectCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Lastschrift.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(9).Value = CType(Lastschrift.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(9).Value = Global.System.DBNull.Value 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 Firma_ID As Global.System.Nullable(Of Short), ByVal Status As Global.System.Nullable(Of Short), ByVal Sammelrechnung As Global.System.Nullable(Of Short), ByVal Sachbearbeiter As String, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal BelegartenNr As Global.System.Nullable(Of Short), ByVal Währungscode As String, ByVal Steuersatz As Global.System.Nullable(Of Single), ByVal Lastschrift As Global.System.Nullable(Of Boolean)) As VERAGDataSet.spSelectReDruSchnSumBS415DataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Status.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Sammelrechnung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(Sachbearbeiter,String) End If If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (BelegartenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(BelegartenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(7).Value = CType(Währungscode,String) End If If (Steuersatz.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(8).Value = CType(Steuersatz.Value,Single) Else Me.Adapter.SelectCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Lastschrift.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(9).Value = CType(Lastschrift.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(9).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSelectReDruSchnSumBS415DataTable = New VERAGDataSet.spSelectReDruSchnSumBS415DataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectReDruSchnTextZollbelegePrüfenTableAdapter 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 = "spSelectReDruSchnTextZollbelegePrüfen" tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectReDruSchnTextZollbelegePrüfen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSelectReDruSchnTextZollbelegePrüfenDataTable, ByVal RK_ID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value 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 RK_ID As Global.System.Nullable(Of Integer)) As VERAGDataSet.spSelectReDruSchnTextZollbelegePrüfenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSelectReDruSchnTextZollbelegePrüfenDataTable = New VERAGDataSet.spSelectReDruSchnTextZollbelegePrüfenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTReDruSumReGuTableAdapter 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 = "spSELECTReDruSumReGu" tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("Sammelrechnung", "Sammelrechnung") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Sammelrechnungsbetrag", "Sammelrechnungsbetrag") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTReDruSumReGu" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTReDruSumReGuDataTable, ByVal Sachbearbeiter As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(Sachbearbeiter,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 Sachbearbeiter As String) As VERAGDataSet.spSELECTReDruSumReGuDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(Sachbearbeiter,String) End If Dim dataTable As VERAGDataSet.spSELECTReDruSumReGuDataTable = New VERAGDataSet.spSELECTReDruSumReGuDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTReDruTextTableAdapter 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 = "spSELECTReDruText" tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("Sammelrechnung", "Sammelrechnung") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("Vorkasse", "Vorkasse") tableMapping.ColumnMappings.Add("Nettozahlungsziel", "Nettozahlungsziel") tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("RechnungsLandKz", "RechnungsLandKz") tableMapping.ColumnMappings.Add("Text", "Text") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTReDruText" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTReDruTextDataTable, ByVal Sachbearbeiter As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(Sachbearbeiter,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 Sachbearbeiter As String) As VERAGDataSet.spSELECTReDruTextDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(Sachbearbeiter,String) End If Dim dataTable As VERAGDataSet.spSELECTReDruTextDataTable = New VERAGDataSet.spSELECTReDruTextDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectReErfAuswahlTableAdapter 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 = "spSelectReErfAuswahl" tableMapping.ColumnMappings.Add("RechnungsName 1", "RechnungsName 1") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectReErfAuswahl" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSelectReErfAuswahlDataTable, ByVal Sachbearbeiter As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(Sachbearbeiter,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 Sachbearbeiter As String) As VERAGDataSet.spSelectReErfAuswahlDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(Sachbearbeiter,String) End If Dim dataTable As VERAGDataSet.spSelectReErfAuswahlDataTable = New VERAGDataSet.spSelectReErfAuswahlDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTReErfKATableAdapter 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 = "spSELECTReErfKA" tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTReErfKA" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTReErfKADataTable, ByVal RK_ID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value 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 RK_ID As Global.System.Nullable(Of Integer)) As VERAGDataSet.spSELECTReErfKADataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSELECTReErfKADataTable = New VERAGDataSet.spSELECTReErfKADataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectRKTableAdapter 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 = "spSelectRK" tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("RechnungsNr", "RechnungsNr") tableMapping.ColumnMappings.Add("RechnungsDatum", "RechnungsDatum") tableMapping.ColumnMappings.Add("Sammelrechnung", "Sammelrechnung") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("BelegartenKz", "BelegartenKz") tableMapping.ColumnMappings.Add("BelegartenBez", "BelegartenBez") tableMapping.ColumnMappings.Add("Vorzeichen", "Vorzeichen") tableMapping.ColumnMappings.Add("BelegNr", "BelegNr") tableMapping.ColumnMappings.Add("AbsenderLandKz", "AbsenderLandKz") tableMapping.ColumnMappings.Add("AbsenderKundenNr", "AbsenderKundenNr") tableMapping.ColumnMappings.Add("AbsenderName 1", "AbsenderName 1") tableMapping.ColumnMappings.Add("AbsenderName 2", "AbsenderName 2") tableMapping.ColumnMappings.Add("AbsenderStraße", "AbsenderStraße") tableMapping.ColumnMappings.Add("AbsenderOrt", "AbsenderOrt") tableMapping.ColumnMappings.Add("AbsenderOffertenNr", "AbsenderOffertenNr") tableMapping.ColumnMappings.Add("EmpfängerLandKz", "EmpfängerLandKz") tableMapping.ColumnMappings.Add("EmpfängerKundenNr", "EmpfängerKundenNr") tableMapping.ColumnMappings.Add("EmpfängerName 1", "EmpfängerName 1") tableMapping.ColumnMappings.Add("EmpfängerName 2", "EmpfängerName 2") tableMapping.ColumnMappings.Add("EmpfängerStraße", "EmpfängerStraße") tableMapping.ColumnMappings.Add("EmpfängerOrt", "EmpfängerOrt") tableMapping.ColumnMappings.Add("EmpfängerOffertenNr", "EmpfängerOffertenNr") tableMapping.ColumnMappings.Add("VermittlerLandKz", "VermittlerLandKz") tableMapping.ColumnMappings.Add("VermittlerKundenNr", "VermittlerKundenNr") tableMapping.ColumnMappings.Add("VermittlerName 1", "VermittlerName 1") tableMapping.ColumnMappings.Add("VermittlerName 2", "VermittlerName 2") tableMapping.ColumnMappings.Add("VermittlerStraße", "VermittlerStraße") tableMapping.ColumnMappings.Add("VermittlerOrt", "VermittlerOrt") tableMapping.ColumnMappings.Add("VermittlerOffertenNr", "VermittlerOffertenNr") tableMapping.ColumnMappings.Add("Rechnung an", "Rechnung an") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("RechnungsLandKz", "RechnungsLandKz") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("RechnungsName 1", "RechnungsName 1") tableMapping.ColumnMappings.Add("RechnungsName 2", "RechnungsName 2") tableMapping.ColumnMappings.Add("RechnungsStraße", "RechnungsStraße") tableMapping.ColumnMappings.Add("RechnungsOrt", "RechnungsOrt") tableMapping.ColumnMappings.Add("RechnungsUstIdKz", "RechnungsUstIdKz") tableMapping.ColumnMappings.Add("RechnungsUstIdNr", "RechnungsUstIdNr") tableMapping.ColumnMappings.Add("RechnungsUstIdGeprüft", "RechnungsUstIdGeprüft") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Kunden-SVS", "Kunden-SVS") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("LKW Kennzeichen", "LKW Kennzeichen") tableMapping.ColumnMappings.Add("WährungsNr", "WährungsNr") tableMapping.ColumnMappings.Add("Wert", "Wert") tableMapping.ColumnMappings.Add("Umrechnungskurs", "Umrechnungskurs") tableMapping.ColumnMappings.Add("Packstücke und Warenbezeichnung", "Packstücke und Warenbezeichnung") tableMapping.ColumnMappings.Add("Vermerk", "Vermerk") tableMapping.ColumnMappings.Add("Anlage 1", "Anlage 1") tableMapping.ColumnMappings.Add("Anlage 2", "Anlage 2") tableMapping.ColumnMappings.Add("Anlage 3", "Anlage 3") tableMapping.ColumnMappings.Add("Anlage 4", "Anlage 4") tableMapping.ColumnMappings.Add("Anlage 5", "Anlage 5") tableMapping.ColumnMappings.Add("Anlage 6", "Anlage 6") tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("Vorlageprovision %", "Vorlageprovision %") tableMapping.ColumnMappings.Add("Kreditaufwendungen %", "Kreditaufwendungen %") tableMapping.ColumnMappings.Add("Besonderheiten", "Besonderheiten") tableMapping.ColumnMappings.Add("Vorkasse", "Vorkasse") tableMapping.ColumnMappings.Add("Text", "Text") tableMapping.ColumnMappings.Add("SteuerpflichtigerGesamtbetrag", "SteuerpflichtigerGesamtbetrag") tableMapping.ColumnMappings.Add("SteuerfreierGesamtbetrag", "SteuerfreierGesamtbetrag") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("DruckDatumZeit", "DruckDatumZeit") tableMapping.ColumnMappings.Add("Abfertigungskosten", "Abfertigungskosten") tableMapping.ColumnMappings.Add("Vorkosten", "Vorkosten") tableMapping.ColumnMappings.Add("Erlös", "Erlös") tableMapping.ColumnMappings.Add("Buchungsjahr", "Buchungsjahr") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Trdin", "Trdin") tableMapping.ColumnMappings.Add("KartenNr", "KartenNr") tableMapping.ColumnMappings.Add("RefFilialenNr", "RefFilialenNr") tableMapping.ColumnMappings.Add("RefAbfertigungsNr", "RefAbfertigungsNr") tableMapping.ColumnMappings.Add("RefUnterNr", "RefUnterNr") tableMapping.ColumnMappings.Add("Notiz", "Notiz") tableMapping.ColumnMappings.Add("Zucker_MRN_Nr", "Zucker_MRN_Nr") tableMapping.ColumnMappings.Add("Zucker_MRN_Datum", "Zucker_MRN_Datum") tableMapping.ColumnMappings.Add("Zucker_Aufschub", "Zucker_Aufschub") tableMapping.ColumnMappings.Add("ReErfZeitstempel", "ReErfZeitstempel") tableMapping.ColumnMappings.Add("Nettozahlungsziel", "Nettozahlungsziel") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("SpeditionsbuchUnterNr", "SpeditionsbuchUnterNr") tableMapping.ColumnMappings.Add("ErfassungsNr", "ErfassungsNr") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectRK" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenKz", Global.System.Data.SqlDbType.NVarChar, 2, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenBez", Global.System.Data.SqlDbType.NVarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorzeichen", Global.System.Data.SqlDbType.NVarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegNr", Global.System.Data.SqlDbType.NVarChar, 27, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderLandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderName1", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderName2", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderStraße", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderOrt", Global.System.Data.SqlDbType.NVarChar, 52, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbsenderOffertenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerLandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerName1", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerName2", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerStraße", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerOrt", Global.System.Data.SqlDbType.NVarChar, 52, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmpfängerOffertenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerLandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerName1", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerName2", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerStraße", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerOrt", Global.System.Data.SqlDbType.NVarChar, 52, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VermittlerOffertenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungan", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrZentrale", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsLandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsName1", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsName2", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsStraße", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsOrt", Global.System.Data.SqlDbType.NVarChar, 52, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdKz", Global.System.Data.SqlDbType.NVarChar, 2, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdNr", Global.System.Data.SqlDbType.NVarChar, 12, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdGeprüft", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenSVS", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LKWKennzeichen", Global.System.Data.SqlDbType.NVarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungsNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Wert", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Umrechnungskurs", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 53, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PackstückeundWarenbezeichnung", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vermerk", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage1", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage2", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage3", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage4", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage5", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anlage6", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorlageprovision", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Kreditaufwendungen", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Besonderheiten", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorkasse", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Text", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerGesamtbetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierGesamtbetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DruckDatumZeit", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungskosten", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Vorkosten", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Erlös", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Trdin", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KartenNr", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefFilialenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefAbfertigungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RefUnterNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Notiz", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Nr", Global.System.Data.SqlDbType.NVarChar, 18, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_MRN_Datum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Zucker_Aufschub", Global.System.Data.SqlDbType.NVarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReErfZeitstempel", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nettozahlungsziel", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SpeditionsbuchUnterNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ErfassungsNr", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill( _ ByVal dataTable As VERAGDataSet.spSelectRKDataTable, _ ByVal RK_ID As Global.System.Nullable(Of Integer), _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UnterNr As Global.System.Nullable(Of Short), _ ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal RechnungsNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Sammelrechnung As Global.System.Nullable(Of Short), _ ByVal BelegartenNr As Global.System.Nullable(Of Short), _ ByVal BelegartenKz As String, _ ByVal BelegartenBez As String, _ ByVal Vorzeichen As String, _ ByVal BelegNr As String, _ ByVal AbsenderLandKz As String, _ ByVal AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal AbsenderName1 As String, _ ByVal AbsenderName2 As String, _ ByVal AbsenderStraße As String, _ ByVal AbsenderOrt As String, _ ByVal AbsenderOffertenNr As Global.System.Nullable(Of Short), _ ByVal EmpfängerLandKz As String, _ ByVal EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerName1 As String, _ ByVal EmpfängerName2 As String, _ ByVal EmpfängerStraße As String, _ ByVal EmpfängerOrt As String, _ ByVal EmpfängerOffertenNr As Global.System.Nullable(Of Short), _ ByVal VermittlerLandKz As String, _ ByVal VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerName1 As String, _ ByVal VermittlerName2 As String, _ ByVal VermittlerStraße As String, _ ByVal VermittlerOrt As String, _ ByVal VermittlerOffertenNr As Global.System.Nullable(Of Short), _ ByVal Rechnungan As Global.System.Nullable(Of Short), _ ByVal KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal RechnungsLandKz As String, _ ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsName1 As String, _ ByVal RechnungsName2 As String, _ ByVal RechnungsStraße As String, _ ByVal RechnungsOrt As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal RechnungsUstIdGeprüft As Global.System.Nullable(Of Date), _ ByVal Lastschrift As Global.System.Nullable(Of Boolean), _ ByVal KundenSVS As Global.System.Nullable(Of Boolean), _ ByVal Steuerschlüssel As Global.System.Nullable(Of Short), _ ByVal Steuersatz As Global.System.Nullable(Of Single), _ ByVal LKWKennzeichen As String, _ ByVal WährungsNr As Global.System.Nullable(Of Short), _ ByVal Wert As Global.System.Nullable(Of Decimal), _ ByVal Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal PackstückeundWarenbezeichnung As String, _ ByVal Vermerk As String, _ ByVal Anlage1 As String, _ ByVal Anlage2 As String, _ ByVal Anlage3 As String, _ ByVal Anlage4 As String, _ ByVal Anlage5 As String, _ ByVal Anlage6 As String, _ ByVal OffertenNr As Global.System.Nullable(Of Short), _ ByVal Vorlageprovision As Global.System.Nullable(Of Single), _ ByVal Kreditaufwendungen As Global.System.Nullable(Of Single), _ ByVal Besonderheiten As String, _ ByVal Vorkasse As Global.System.Nullable(Of Boolean), _ ByVal Text As String, _ ByVal SteuerpflichtigerGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal Status As Global.System.Nullable(Of Short), _ ByVal DruckDatumZeit As Global.System.Nullable(Of Date), _ ByVal Abfertigungskosten As Global.System.Nullable(Of Decimal), _ ByVal Vorkosten As Global.System.Nullable(Of Decimal), _ ByVal Erlös As Global.System.Nullable(Of Decimal), _ ByVal Buchungsjahr As Global.System.Nullable(Of Short), _ ByVal Währungscode As String, _ ByVal Sachbearbeiter As String, _ ByVal Trdin As Global.System.Nullable(Of Boolean), _ ByVal KartenNr As String, _ ByVal RefFilialenNr As Global.System.Nullable(Of Short), _ ByVal RefAbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal RefUnterNr As Global.System.Nullable(Of Short), _ ByVal Notiz As String, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Global.System.Nullable(Of Date), _ ByVal Zucker_Aufschub As String, _ ByVal ReErfZeitstempel As Global.System.Nullable(Of Date), _ ByVal Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal Firma_ID As Global.System.Nullable(Of Short), _ ByVal SpeditionsbuchUnterNr As Global.System.Nullable(Of Short), _ ByVal ErfassungsNr As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (FilialenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(4).Value = CType(UnterNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Abfertigungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(Abfertigungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (RechnungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(RechnungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(7).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(8).Value = CType(Sammelrechnung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (BelegartenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(9).Value = CType(BelegartenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (BelegartenKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(10).Value = CType(BelegartenKz,String) End If If (BelegartenBez Is Nothing) Then Me.Adapter.SelectCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(11).Value = CType(BelegartenBez,String) End If If (Vorzeichen Is Nothing) Then Me.Adapter.SelectCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(12).Value = CType(Vorzeichen,String) End If If (BelegNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(13).Value = CType(BelegNr,String) End If If (AbsenderLandKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(14).Value = CType(AbsenderLandKz,String) End If If (AbsenderKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(15).Value = CType(AbsenderKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (AbsenderName1 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(16).Value = CType(AbsenderName1,String) End If If (AbsenderName2 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(17).Value = CType(AbsenderName2,String) End If If (AbsenderStraße Is Nothing) Then Me.Adapter.SelectCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(18).Value = CType(AbsenderStraße,String) End If If (AbsenderOrt Is Nothing) Then Me.Adapter.SelectCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(19).Value = CType(AbsenderOrt,String) End If If (AbsenderOffertenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(20).Value = CType(AbsenderOffertenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (EmpfängerLandKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(21).Value = CType(EmpfängerLandKz,String) End If If (EmpfängerKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(22).Value = CType(EmpfängerKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (EmpfängerName1 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(23).Value = CType(EmpfängerName1,String) End If If (EmpfängerName2 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(24).Value = CType(EmpfängerName2,String) End If If (EmpfängerStraße Is Nothing) Then Me.Adapter.SelectCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(25).Value = CType(EmpfängerStraße,String) End If If (EmpfängerOrt Is Nothing) Then Me.Adapter.SelectCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(26).Value = CType(EmpfängerOrt,String) End If If (EmpfängerOffertenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(27).Value = CType(EmpfängerOffertenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (VermittlerLandKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(28).Value = CType(VermittlerLandKz,String) End If If (VermittlerKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(29).Value = CType(VermittlerKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (VermittlerName1 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(30).Value = CType(VermittlerName1,String) End If If (VermittlerName2 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(31).Value = CType(VermittlerName2,String) End If If (VermittlerStraße Is Nothing) Then Me.Adapter.SelectCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(32).Value = CType(VermittlerStraße,String) End If If (VermittlerOrt Is Nothing) Then Me.Adapter.SelectCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(33).Value = CType(VermittlerOrt,String) End If If (VermittlerOffertenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(34).Value = CType(VermittlerOffertenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Rechnungan.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(35).Value = CType(Rechnungan.Value,Short) Else Me.Adapter.SelectCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (KundenNrZentrale.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(36).Value = CType(KundenNrZentrale.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (RechnungsLandKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(37).Value = CType(RechnungsLandKz,String) End If If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(38).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (RechnungsName1 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(39).Value = CType(RechnungsName1,String) End If If (RechnungsName2 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(40).Value = CType(RechnungsName2,String) End If If (RechnungsStraße Is Nothing) Then Me.Adapter.SelectCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(41).Value = CType(RechnungsStraße,String) End If If (RechnungsOrt Is Nothing) Then Me.Adapter.SelectCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(42).Value = CType(RechnungsOrt,String) End If If (RechnungsUstIdKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(43).Value = CType(RechnungsUstIdKz,String) End If If (RechnungsUstIdNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(44).Value = CType(RechnungsUstIdNr,String) End If If (RechnungsUstIdGeprüft.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(45).Value = CType(RechnungsUstIdGeprüft.Value,Date) Else Me.Adapter.SelectCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Lastschrift.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(46).Value = CType(Lastschrift.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (KundenSVS.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(47).Value = CType(KundenSVS.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (Steuerschlüssel.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(48).Value = CType(Steuerschlüssel.Value,Short) Else Me.Adapter.SelectCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Steuersatz.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(49).Value = CType(Steuersatz.Value,Single) Else Me.Adapter.SelectCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (LKWKennzeichen Is Nothing) Then Me.Adapter.SelectCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(50).Value = CType(LKWKennzeichen,String) End If If (WährungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(51).Value = CType(WährungsNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Wert.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(52).Value = CType(Wert.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Umrechnungskurs.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(53).Value = CType(Umrechnungskurs.Value,Double) Else Me.Adapter.SelectCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (PackstückeundWarenbezeichnung Is Nothing) Then Me.Adapter.SelectCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(54).Value = CType(PackstückeundWarenbezeichnung,String) End If If (Vermerk Is Nothing) Then Me.Adapter.SelectCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(55).Value = CType(Vermerk,String) End If If (Anlage1 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(56).Value = CType(Anlage1,String) End If If (Anlage2 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(57).Value = CType(Anlage2,String) End If If (Anlage3 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(58).Value = CType(Anlage3,String) End If If (Anlage4 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(59).Value = CType(Anlage4,String) End If If (Anlage5 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(60).Value = CType(Anlage5,String) End If If (Anlage6 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(61).Value = CType(Anlage6,String) End If If (OffertenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(62).Value = CType(OffertenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (Vorlageprovision.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(63).Value = CType(Vorlageprovision.Value,Single) Else Me.Adapter.SelectCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Kreditaufwendungen.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(64).Value = CType(Kreditaufwendungen.Value,Single) Else Me.Adapter.SelectCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Besonderheiten Is Nothing) Then Me.Adapter.SelectCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(65).Value = CType(Besonderheiten,String) End If If (Vorkasse.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(66).Value = CType(Vorkasse.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (Text Is Nothing) Then Me.Adapter.SelectCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(67).Value = CType(Text,String) End If If (SteuerpflichtigerGesamtbetrag.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(68).Value = CType(SteuerpflichtigerGesamtbetrag.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (SteuerfreierGesamtbetrag.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(69).Value = CType(SteuerfreierGesamtbetrag.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(70).Value = CType(Status.Value,Short) Else Me.Adapter.SelectCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (DruckDatumZeit.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(71).Value = CType(DruckDatumZeit.Value,Date) Else Me.Adapter.SelectCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Abfertigungskosten.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(72).Value = CType(Abfertigungskosten.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(72).Value = Global.System.DBNull.Value End If If (Vorkosten.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(73).Value = CType(Vorkosten.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(73).Value = Global.System.DBNull.Value End If If (Erlös.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(74).Value = CType(Erlös.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(74).Value = Global.System.DBNull.Value End If If (Buchungsjahr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(75).Value = CType(Buchungsjahr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(75).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then Me.Adapter.SelectCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(76).Value = CType(Währungscode,String) End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(77).Value = CType(Sachbearbeiter,String) End If If (Trdin.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(78).Value = CType(Trdin.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (KartenNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(79).Value = CType(KartenNr,String) End If If (RefFilialenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(80).Value = CType(RefFilialenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(80).Value = Global.System.DBNull.Value End If If (RefAbfertigungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(81).Value = CType(RefAbfertigungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(81).Value = Global.System.DBNull.Value End If If (RefUnterNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(82).Value = CType(RefUnterNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (Notiz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(83).Value = CType(Notiz,String) End If If (Zucker_MRN_Nr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(84).Value = CType(Zucker_MRN_Nr,String) End If If (Zucker_MRN_Datum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(85).Value = CType(Zucker_MRN_Datum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Zucker_Aufschub Is Nothing) Then Me.Adapter.SelectCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(86).Value = CType(Zucker_Aufschub,String) End If If (ReErfZeitstempel.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(87).Value = CType(ReErfZeitstempel.Value,Date) Else Me.Adapter.SelectCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (Nettozahlungsziel.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(88).Value = CType(Nettozahlungsziel.Value,Short) Else Me.Adapter.SelectCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(89).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(89).Value = Global.System.DBNull.Value End If If (SpeditionsbuchUnterNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(90).Value = CType(SpeditionsbuchUnterNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(90).Value = Global.System.DBNull.Value End If If (ErfassungsNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(91).Value = CType(ErfassungsNr,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 RK_ID As Global.System.Nullable(Of Integer), _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UnterNr As Global.System.Nullable(Of Short), _ ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal RechnungsNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal Sammelrechnung As Global.System.Nullable(Of Short), _ ByVal BelegartenNr As Global.System.Nullable(Of Short), _ ByVal BelegartenKz As String, _ ByVal BelegartenBez As String, _ ByVal Vorzeichen As String, _ ByVal BelegNr As String, _ ByVal AbsenderLandKz As String, _ ByVal AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal AbsenderName1 As String, _ ByVal AbsenderName2 As String, _ ByVal AbsenderStraße As String, _ ByVal AbsenderOrt As String, _ ByVal AbsenderOffertenNr As Global.System.Nullable(Of Short), _ ByVal EmpfängerLandKz As String, _ ByVal EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal EmpfängerName1 As String, _ ByVal EmpfängerName2 As String, _ ByVal EmpfängerStraße As String, _ ByVal EmpfängerOrt As String, _ ByVal EmpfängerOffertenNr As Global.System.Nullable(Of Short), _ ByVal VermittlerLandKz As String, _ ByVal VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal VermittlerName1 As String, _ ByVal VermittlerName2 As String, _ ByVal VermittlerStraße As String, _ ByVal VermittlerOrt As String, _ ByVal VermittlerOffertenNr As Global.System.Nullable(Of Short), _ ByVal Rechnungan As Global.System.Nullable(Of Short), _ ByVal KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal RechnungsLandKz As String, _ ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsName1 As String, _ ByVal RechnungsName2 As String, _ ByVal RechnungsStraße As String, _ ByVal RechnungsOrt As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal RechnungsUstIdGeprüft As Global.System.Nullable(Of Date), _ ByVal Lastschrift As Global.System.Nullable(Of Boolean), _ ByVal KundenSVS As Global.System.Nullable(Of Boolean), _ ByVal Steuerschlüssel As Global.System.Nullable(Of Short), _ ByVal Steuersatz As Global.System.Nullable(Of Single), _ ByVal LKWKennzeichen As String, _ ByVal WährungsNr As Global.System.Nullable(Of Short), _ ByVal Wert As Global.System.Nullable(Of Decimal), _ ByVal Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal PackstückeundWarenbezeichnung As String, _ ByVal Vermerk As String, _ ByVal Anlage1 As String, _ ByVal Anlage2 As String, _ ByVal Anlage3 As String, _ ByVal Anlage4 As String, _ ByVal Anlage5 As String, _ ByVal Anlage6 As String, _ ByVal OffertenNr As Global.System.Nullable(Of Short), _ ByVal Vorlageprovision As Global.System.Nullable(Of Single), _ ByVal Kreditaufwendungen As Global.System.Nullable(Of Single), _ ByVal Besonderheiten As String, _ ByVal Vorkasse As Global.System.Nullable(Of Boolean), _ ByVal Text As String, _ ByVal SteuerpflichtigerGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal Status As Global.System.Nullable(Of Short), _ ByVal DruckDatumZeit As Global.System.Nullable(Of Date), _ ByVal Abfertigungskosten As Global.System.Nullable(Of Decimal), _ ByVal Vorkosten As Global.System.Nullable(Of Decimal), _ ByVal Erlös As Global.System.Nullable(Of Decimal), _ ByVal Buchungsjahr As Global.System.Nullable(Of Short), _ ByVal Währungscode As String, _ ByVal Sachbearbeiter As String, _ ByVal Trdin As Global.System.Nullable(Of Boolean), _ ByVal KartenNr As String, _ ByVal RefFilialenNr As Global.System.Nullable(Of Short), _ ByVal RefAbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal RefUnterNr As Global.System.Nullable(Of Short), _ ByVal Notiz As String, _ ByVal Zucker_MRN_Nr As String, _ ByVal Zucker_MRN_Datum As Global.System.Nullable(Of Date), _ ByVal Zucker_Aufschub As String, _ ByVal ReErfZeitstempel As Global.System.Nullable(Of Date), _ ByVal Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal Firma_ID As Global.System.Nullable(Of Short), _ ByVal SpeditionsbuchUnterNr As Global.System.Nullable(Of Short), _ ByVal ErfassungsNr As String) As VERAGDataSet.spSelectRKDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (FilialenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(FilialenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(4).Value = CType(UnterNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Abfertigungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(Abfertigungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (RechnungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(RechnungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(7).Value = CType(RechnungsDatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(8).Value = CType(Sammelrechnung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (BelegartenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(9).Value = CType(BelegartenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (BelegartenKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(10).Value = CType(BelegartenKz,String) End If If (BelegartenBez Is Nothing) Then Me.Adapter.SelectCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(11).Value = CType(BelegartenBez,String) End If If (Vorzeichen Is Nothing) Then Me.Adapter.SelectCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(12).Value = CType(Vorzeichen,String) End If If (BelegNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(13).Value = CType(BelegNr,String) End If If (AbsenderLandKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(14).Value = CType(AbsenderLandKz,String) End If If (AbsenderKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(15).Value = CType(AbsenderKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (AbsenderName1 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(16).Value = CType(AbsenderName1,String) End If If (AbsenderName2 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(17).Value = CType(AbsenderName2,String) End If If (AbsenderStraße Is Nothing) Then Me.Adapter.SelectCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(18).Value = CType(AbsenderStraße,String) End If If (AbsenderOrt Is Nothing) Then Me.Adapter.SelectCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(19).Value = CType(AbsenderOrt,String) End If If (AbsenderOffertenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(20).Value = CType(AbsenderOffertenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (EmpfängerLandKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(21).Value = CType(EmpfängerLandKz,String) End If If (EmpfängerKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(22).Value = CType(EmpfängerKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (EmpfängerName1 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(23).Value = CType(EmpfängerName1,String) End If If (EmpfängerName2 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(24).Value = CType(EmpfängerName2,String) End If If (EmpfängerStraße Is Nothing) Then Me.Adapter.SelectCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(25).Value = CType(EmpfängerStraße,String) End If If (EmpfängerOrt Is Nothing) Then Me.Adapter.SelectCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(26).Value = CType(EmpfängerOrt,String) End If If (EmpfängerOffertenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(27).Value = CType(EmpfängerOffertenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (VermittlerLandKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(28).Value = CType(VermittlerLandKz,String) End If If (VermittlerKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(29).Value = CType(VermittlerKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (VermittlerName1 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(30).Value = CType(VermittlerName1,String) End If If (VermittlerName2 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(31).Value = CType(VermittlerName2,String) End If If (VermittlerStraße Is Nothing) Then Me.Adapter.SelectCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(32).Value = CType(VermittlerStraße,String) End If If (VermittlerOrt Is Nothing) Then Me.Adapter.SelectCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(33).Value = CType(VermittlerOrt,String) End If If (VermittlerOffertenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(34).Value = CType(VermittlerOffertenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Rechnungan.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(35).Value = CType(Rechnungan.Value,Short) Else Me.Adapter.SelectCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (KundenNrZentrale.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(36).Value = CType(KundenNrZentrale.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (RechnungsLandKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(37).Value = CType(RechnungsLandKz,String) End If If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(38).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(38).Value = Global.System.DBNull.Value End If If (RechnungsName1 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(39).Value = CType(RechnungsName1,String) End If If (RechnungsName2 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(40).Value = CType(RechnungsName2,String) End If If (RechnungsStraße Is Nothing) Then Me.Adapter.SelectCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(41).Value = CType(RechnungsStraße,String) End If If (RechnungsOrt Is Nothing) Then Me.Adapter.SelectCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(42).Value = CType(RechnungsOrt,String) End If If (RechnungsUstIdKz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(43).Value = CType(RechnungsUstIdKz,String) End If If (RechnungsUstIdNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(44).Value = CType(RechnungsUstIdNr,String) End If If (RechnungsUstIdGeprüft.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(45).Value = CType(RechnungsUstIdGeprüft.Value,Date) Else Me.Adapter.SelectCommand.Parameters(45).Value = Global.System.DBNull.Value End If If (Lastschrift.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(46).Value = CType(Lastschrift.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(46).Value = Global.System.DBNull.Value End If If (KundenSVS.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(47).Value = CType(KundenSVS.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(47).Value = Global.System.DBNull.Value End If If (Steuerschlüssel.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(48).Value = CType(Steuerschlüssel.Value,Short) Else Me.Adapter.SelectCommand.Parameters(48).Value = Global.System.DBNull.Value End If If (Steuersatz.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(49).Value = CType(Steuersatz.Value,Single) Else Me.Adapter.SelectCommand.Parameters(49).Value = Global.System.DBNull.Value End If If (LKWKennzeichen Is Nothing) Then Me.Adapter.SelectCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(50).Value = CType(LKWKennzeichen,String) End If If (WährungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(51).Value = CType(WährungsNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Wert.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(52).Value = CType(Wert.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Umrechnungskurs.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(53).Value = CType(Umrechnungskurs.Value,Double) Else Me.Adapter.SelectCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (PackstückeundWarenbezeichnung Is Nothing) Then Me.Adapter.SelectCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(54).Value = CType(PackstückeundWarenbezeichnung,String) End If If (Vermerk Is Nothing) Then Me.Adapter.SelectCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(55).Value = CType(Vermerk,String) End If If (Anlage1 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(56).Value = CType(Anlage1,String) End If If (Anlage2 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(57).Value = CType(Anlage2,String) End If If (Anlage3 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(58).Value = CType(Anlage3,String) End If If (Anlage4 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(59).Value = CType(Anlage4,String) End If If (Anlage5 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(60).Value = CType(Anlage5,String) End If If (Anlage6 Is Nothing) Then Me.Adapter.SelectCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(61).Value = CType(Anlage6,String) End If If (OffertenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(62).Value = CType(OffertenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(62).Value = Global.System.DBNull.Value End If If (Vorlageprovision.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(63).Value = CType(Vorlageprovision.Value,Single) Else Me.Adapter.SelectCommand.Parameters(63).Value = Global.System.DBNull.Value End If If (Kreditaufwendungen.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(64).Value = CType(Kreditaufwendungen.Value,Single) Else Me.Adapter.SelectCommand.Parameters(64).Value = Global.System.DBNull.Value End If If (Besonderheiten Is Nothing) Then Me.Adapter.SelectCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(65).Value = CType(Besonderheiten,String) End If If (Vorkasse.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(66).Value = CType(Vorkasse.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(66).Value = Global.System.DBNull.Value End If If (Text Is Nothing) Then Me.Adapter.SelectCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(67).Value = CType(Text,String) End If If (SteuerpflichtigerGesamtbetrag.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(68).Value = CType(SteuerpflichtigerGesamtbetrag.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(68).Value = Global.System.DBNull.Value End If If (SteuerfreierGesamtbetrag.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(69).Value = CType(SteuerfreierGesamtbetrag.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(70).Value = CType(Status.Value,Short) Else Me.Adapter.SelectCommand.Parameters(70).Value = Global.System.DBNull.Value End If If (DruckDatumZeit.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(71).Value = CType(DruckDatumZeit.Value,Date) Else Me.Adapter.SelectCommand.Parameters(71).Value = Global.System.DBNull.Value End If If (Abfertigungskosten.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(72).Value = CType(Abfertigungskosten.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(72).Value = Global.System.DBNull.Value End If If (Vorkosten.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(73).Value = CType(Vorkosten.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(73).Value = Global.System.DBNull.Value End If If (Erlös.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(74).Value = CType(Erlös.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(74).Value = Global.System.DBNull.Value End If If (Buchungsjahr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(75).Value = CType(Buchungsjahr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(75).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then Me.Adapter.SelectCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(76).Value = CType(Währungscode,String) End If If (Sachbearbeiter Is Nothing) Then Me.Adapter.SelectCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(77).Value = CType(Sachbearbeiter,String) End If If (Trdin.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(78).Value = CType(Trdin.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(78).Value = Global.System.DBNull.Value End If If (KartenNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(79).Value = CType(KartenNr,String) End If If (RefFilialenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(80).Value = CType(RefFilialenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(80).Value = Global.System.DBNull.Value End If If (RefAbfertigungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(81).Value = CType(RefAbfertigungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(81).Value = Global.System.DBNull.Value End If If (RefUnterNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(82).Value = CType(RefUnterNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(82).Value = Global.System.DBNull.Value End If If (Notiz Is Nothing) Then Me.Adapter.SelectCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(83).Value = CType(Notiz,String) End If If (Zucker_MRN_Nr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(84).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(84).Value = CType(Zucker_MRN_Nr,String) End If If (Zucker_MRN_Datum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(85).Value = CType(Zucker_MRN_Datum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(85).Value = Global.System.DBNull.Value End If If (Zucker_Aufschub Is Nothing) Then Me.Adapter.SelectCommand.Parameters(86).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(86).Value = CType(Zucker_Aufschub,String) End If If (ReErfZeitstempel.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(87).Value = CType(ReErfZeitstempel.Value,Date) Else Me.Adapter.SelectCommand.Parameters(87).Value = Global.System.DBNull.Value End If If (Nettozahlungsziel.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(88).Value = CType(Nettozahlungsziel.Value,Short) Else Me.Adapter.SelectCommand.Parameters(88).Value = Global.System.DBNull.Value End If If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(89).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(89).Value = Global.System.DBNull.Value End If If (SpeditionsbuchUnterNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(90).Value = CType(SpeditionsbuchUnterNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(90).Value = Global.System.DBNull.Value End If If (ErfassungsNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(91).Value = CType(ErfassungsNr,String) End If Dim dataTable As VERAGDataSet.spSelectRKDataTable = New VERAGDataSet.spSelectRKDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectRKPKeyTableAdapter 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 = "spSelectRKPKey" tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("RechnungsNr", "RechnungsNr") tableMapping.ColumnMappings.Add("RechnungsDatum", "RechnungsDatum") tableMapping.ColumnMappings.Add("Sammelrechnung", "Sammelrechnung") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("BelegartenKz", "BelegartenKz") tableMapping.ColumnMappings.Add("BelegartenBez", "BelegartenBez") tableMapping.ColumnMappings.Add("Vorzeichen", "Vorzeichen") tableMapping.ColumnMappings.Add("BelegNr", "BelegNr") tableMapping.ColumnMappings.Add("AbsenderLandKz", "AbsenderLandKz") tableMapping.ColumnMappings.Add("AbsenderKundenNr", "AbsenderKundenNr") tableMapping.ColumnMappings.Add("AbsenderName 1", "AbsenderName 1") tableMapping.ColumnMappings.Add("AbsenderName 2", "AbsenderName 2") tableMapping.ColumnMappings.Add("AbsenderStraße", "AbsenderStraße") tableMapping.ColumnMappings.Add("AbsenderOrt", "AbsenderOrt") tableMapping.ColumnMappings.Add("AbsenderOffertenNr", "AbsenderOffertenNr") tableMapping.ColumnMappings.Add("EmpfängerLandKz", "EmpfängerLandKz") tableMapping.ColumnMappings.Add("EmpfängerKundenNr", "EmpfängerKundenNr") tableMapping.ColumnMappings.Add("EmpfängerName 1", "EmpfängerName 1") tableMapping.ColumnMappings.Add("EmpfängerName 2", "EmpfängerName 2") tableMapping.ColumnMappings.Add("EmpfängerStraße", "EmpfängerStraße") tableMapping.ColumnMappings.Add("EmpfängerOrt", "EmpfängerOrt") tableMapping.ColumnMappings.Add("EmpfängerOffertenNr", "EmpfängerOffertenNr") tableMapping.ColumnMappings.Add("VermittlerLandKz", "VermittlerLandKz") tableMapping.ColumnMappings.Add("VermittlerKundenNr", "VermittlerKundenNr") tableMapping.ColumnMappings.Add("VermittlerName 1", "VermittlerName 1") tableMapping.ColumnMappings.Add("VermittlerName 2", "VermittlerName 2") tableMapping.ColumnMappings.Add("VermittlerStraße", "VermittlerStraße") tableMapping.ColumnMappings.Add("VermittlerOrt", "VermittlerOrt") tableMapping.ColumnMappings.Add("VermittlerOffertenNr", "VermittlerOffertenNr") tableMapping.ColumnMappings.Add("Rechnung an", "Rechnung an") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("RechnungsLandKz", "RechnungsLandKz") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("RechnungsName 1", "RechnungsName 1") tableMapping.ColumnMappings.Add("RechnungsName 2", "RechnungsName 2") tableMapping.ColumnMappings.Add("RechnungsStraße", "RechnungsStraße") tableMapping.ColumnMappings.Add("RechnungsOrt", "RechnungsOrt") tableMapping.ColumnMappings.Add("RechnungsUstIdKz", "RechnungsUstIdKz") tableMapping.ColumnMappings.Add("RechnungsUstIdNr", "RechnungsUstIdNr") tableMapping.ColumnMappings.Add("RechnungsUstIdGeprüft", "RechnungsUstIdGeprüft") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Kunden-SVS", "Kunden-SVS") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("LKW Kennzeichen", "LKW Kennzeichen") tableMapping.ColumnMappings.Add("WährungsNr", "WährungsNr") tableMapping.ColumnMappings.Add("Wert", "Wert") tableMapping.ColumnMappings.Add("Umrechnungskurs", "Umrechnungskurs") tableMapping.ColumnMappings.Add("Packstücke und Warenbezeichnung", "Packstücke und Warenbezeichnung") tableMapping.ColumnMappings.Add("Vermerk", "Vermerk") tableMapping.ColumnMappings.Add("Anlage 1", "Anlage 1") tableMapping.ColumnMappings.Add("Anlage 2", "Anlage 2") tableMapping.ColumnMappings.Add("Anlage 3", "Anlage 3") tableMapping.ColumnMappings.Add("Anlage 4", "Anlage 4") tableMapping.ColumnMappings.Add("Anlage 5", "Anlage 5") tableMapping.ColumnMappings.Add("Anlage 6", "Anlage 6") tableMapping.ColumnMappings.Add("OffertenNr", "OffertenNr") tableMapping.ColumnMappings.Add("Vorlageprovision %", "Vorlageprovision %") tableMapping.ColumnMappings.Add("Kreditaufwendungen %", "Kreditaufwendungen %") tableMapping.ColumnMappings.Add("Besonderheiten", "Besonderheiten") tableMapping.ColumnMappings.Add("Vorkasse", "Vorkasse") tableMapping.ColumnMappings.Add("Text", "Text") tableMapping.ColumnMappings.Add("SteuerpflichtigerGesamtbetrag", "SteuerpflichtigerGesamtbetrag") tableMapping.ColumnMappings.Add("SteuerfreierGesamtbetrag", "SteuerfreierGesamtbetrag") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("DruckDatumZeit", "DruckDatumZeit") tableMapping.ColumnMappings.Add("Abfertigungskosten", "Abfertigungskosten") tableMapping.ColumnMappings.Add("Vorkosten", "Vorkosten") tableMapping.ColumnMappings.Add("Erlös", "Erlös") tableMapping.ColumnMappings.Add("Buchungsjahr", "Buchungsjahr") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Trdin", "Trdin") tableMapping.ColumnMappings.Add("KartenNr", "KartenNr") tableMapping.ColumnMappings.Add("RefFilialenNr", "RefFilialenNr") tableMapping.ColumnMappings.Add("RefAbfertigungsNr", "RefAbfertigungsNr") tableMapping.ColumnMappings.Add("RefUnterNr", "RefUnterNr") tableMapping.ColumnMappings.Add("Notiz", "Notiz") tableMapping.ColumnMappings.Add("Zucker_MRN_Nr", "Zucker_MRN_Nr") tableMapping.ColumnMappings.Add("Zucker_MRN_Datum", "Zucker_MRN_Datum") tableMapping.ColumnMappings.Add("Zucker_Aufschub", "Zucker_Aufschub") tableMapping.ColumnMappings.Add("ReErfZeitstempel", "ReErfZeitstempel") tableMapping.ColumnMappings.Add("Nettozahlungsziel", "Nettozahlungsziel") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("SpeditionsbuchUnterNr", "SpeditionsbuchUnterNr") tableMapping.ColumnMappings.Add("ErfassungsNr", "ErfassungsNr") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("AvisiererKundenNr", "AvisiererKundenNr") tableMapping.ColumnMappings.Add("Avisierer", "Avisierer") tableMapping.ColumnMappings.Add("EMailRechnungstext", "EMailRechnungstext") tableMapping.ColumnMappings.Add("AvisoID", "AvisoID") tableMapping.ColumnMappings.Add("KdAuftragsNr", "KdAuftragsNr") tableMapping.ColumnMappings.Add("Handling", "Handling") tableMapping.ColumnMappings.Add("VorschauID", "VorschauID") tableMapping.ColumnMappings.Add("Grenze", "Grenze") tableMapping.ColumnMappings.Add("RechnungSprache", "RechnungSprache") tableMapping.ColumnMappings.Add("FakturierungsGruppe", "FakturierungsGruppe") tableMapping.ColumnMappings.Add("TextZZ", "TextZZ") tableMapping.ColumnMappings.Add("RechnungsName_AdressZusatz", "RechnungsName_AdressZusatz") tableMapping.ColumnMappings.Add("ForceSteuerschlüssel", "ForceSteuerschlüssel") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectRKPKey" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSelectRKPKeyDataTable, ByVal RK_ID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value 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 RK_ID As Global.System.Nullable(Of Integer)) As VERAGDataSet.spSelectRKPKeyDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSelectRKPKeyDataTable = New VERAGDataSet.spSelectRKPKeyDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectRPTableAdapter 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 = "spSelectRP" tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("IndexZkteing", "IndexZkteing") tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetrag", "SteuerpflichtigerBetrag") tableMapping.ColumnMappings.Add("SteuerfreierBetrag", "SteuerfreierBetrag") tableMapping.ColumnMappings.Add("AufschubkontoNr", "AufschubkontoNr") tableMapping.ColumnMappings.Add("Aufschubfälligkeit", "Aufschubfälligkeit") tableMapping.ColumnMappings.Add("Prüfsumme berechnen", "Prüfsumme berechnen") tableMapping.ColumnMappings.Add("DateiNameAufschub", "DateiNameAufschub") tableMapping.ColumnMappings.Add("Preisbindung", "Preisbindung") tableMapping.ColumnMappings.Add("Belegdaten", "Belegdaten") tableMapping.ColumnMappings.Add("Fremdwährung", "Fremdwährung") tableMapping.ColumnMappings.Add("BGebLeistungsNr", "BGebLeistungsNr") tableMapping.ColumnMappings.Add("BGebProzent", "BGebProzent") tableMapping.ColumnMappings.Add("BGebBgl", "BGebBgl") tableMapping.ColumnMappings.Add("BGebMinBetrag", "BGebMinBetrag") tableMapping.ColumnMappings.Add("RePosZeitstempel", "RePosZeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectRP" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IndexZkteing", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preis", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Anzahl", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aufschubfälligkeit", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Prüfsummeberechnen", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DateiNameAufschub", Global.System.Data.SqlDbType.NVarChar, 12, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Preisbindung", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdaten", Global.System.Data.SqlDbType.NVarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fremdwährung", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebProzent", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebBgl", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BGebMinBetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RePosZeitstempel", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill( _ ByVal dataTable As VERAGDataSet.spSelectRPDataTable, _ ByVal RK_ID As Global.System.Nullable(Of Integer), _ ByVal LeistungsNr As Global.System.Nullable(Of Short), _ ByVal Steuerpflichtig As Global.System.Nullable(Of Boolean), _ ByVal LeistungsBez As String, _ ByVal IndexZkteing As Global.System.Nullable(Of Integer), _ ByVal BerechnungsartNr As Global.System.Nullable(Of Short), _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal SteuerpflichtigerBetrag As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetrag As Global.System.Nullable(Of Decimal), _ ByVal AufschubkontoNr As String, _ ByVal Aufschubfälligkeit As Global.System.Nullable(Of Date), _ ByVal Prüfsummeberechnen As Global.System.Nullable(Of Boolean), _ ByVal DateiNameAufschub As String, _ ByVal Preisbindung As Global.System.Nullable(Of Boolean), _ ByVal Belegdaten As String, _ ByVal Fremdwährung As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebBgl As Global.System.Nullable(Of Decimal), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal RePosZeitstempel As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (LeistungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(LeistungsNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Steuerpflichtig.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Steuerpflichtig.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (LeistungsBez Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(LeistungsBez,String) End If If (IndexZkteing.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(IndexZkteing.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (BerechnungsartNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(BerechnungsartNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Preis.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(7).Value = CType(Preis.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(8).Value = CType(Anzahl.Value,Short) Else Me.Adapter.SelectCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (SteuerpflichtigerBetrag.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(9).Value = CType(SteuerpflichtigerBetrag.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (SteuerfreierBetrag.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(10).Value = CType(SteuerfreierBetrag.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (AufschubkontoNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(11).Value = CType(AufschubkontoNr,String) End If If (Aufschubfälligkeit.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(12).Value = CType(Aufschubfälligkeit.Value,Date) Else Me.Adapter.SelectCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Prüfsummeberechnen.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(13).Value = CType(Prüfsummeberechnen.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (DateiNameAufschub Is Nothing) Then Me.Adapter.SelectCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(14).Value = CType(DateiNameAufschub,String) End If If (Preisbindung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(15).Value = CType(Preisbindung.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Belegdaten Is Nothing) Then Me.Adapter.SelectCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(16).Value = CType(Belegdaten,String) End If If (Fremdwährung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(17).Value = CType(Fremdwährung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(18).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(19).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.SelectCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (BGebBgl.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(20).Value = CType(BGebBgl.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(21).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (RePosZeitstempel.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(22).Value = CType(RePosZeitstempel.Value,Date) Else Me.Adapter.SelectCommand.Parameters(22).Value = Global.System.DBNull.Value 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 RK_ID As Global.System.Nullable(Of Integer), _ ByVal LeistungsNr As Global.System.Nullable(Of Short), _ ByVal Steuerpflichtig As Global.System.Nullable(Of Boolean), _ ByVal LeistungsBez As String, _ ByVal IndexZkteing As Global.System.Nullable(Of Integer), _ ByVal BerechnungsartNr As Global.System.Nullable(Of Short), _ ByVal Preis As Global.System.Nullable(Of Decimal), _ ByVal Anzahl As Global.System.Nullable(Of Short), _ ByVal SteuerpflichtigerBetrag As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetrag As Global.System.Nullable(Of Decimal), _ ByVal AufschubkontoNr As String, _ ByVal Aufschubfälligkeit As Global.System.Nullable(Of Date), _ ByVal Prüfsummeberechnen As Global.System.Nullable(Of Boolean), _ ByVal DateiNameAufschub As String, _ ByVal Preisbindung As Global.System.Nullable(Of Boolean), _ ByVal Belegdaten As String, _ ByVal Fremdwährung As Global.System.Nullable(Of Short), _ ByVal BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal BGebProzent As Global.System.Nullable(Of Single), _ ByVal BGebBgl As Global.System.Nullable(Of Decimal), _ ByVal BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal RePosZeitstempel As Global.System.Nullable(Of Date)) As VERAGDataSet.spSelectRPDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (LeistungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(LeistungsNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Steuerpflichtig.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Steuerpflichtig.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (LeistungsBez Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(LeistungsBez,String) End If If (IndexZkteing.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(IndexZkteing.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (BerechnungsartNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(BerechnungsartNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Preis.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(7).Value = CType(Preis.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Anzahl.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(8).Value = CType(Anzahl.Value,Short) Else Me.Adapter.SelectCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (SteuerpflichtigerBetrag.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(9).Value = CType(SteuerpflichtigerBetrag.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (SteuerfreierBetrag.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(10).Value = CType(SteuerfreierBetrag.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (AufschubkontoNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(11).Value = CType(AufschubkontoNr,String) End If If (Aufschubfälligkeit.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(12).Value = CType(Aufschubfälligkeit.Value,Date) Else Me.Adapter.SelectCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Prüfsummeberechnen.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(13).Value = CType(Prüfsummeberechnen.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (DateiNameAufschub Is Nothing) Then Me.Adapter.SelectCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(14).Value = CType(DateiNameAufschub,String) End If If (Preisbindung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(15).Value = CType(Preisbindung.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Belegdaten Is Nothing) Then Me.Adapter.SelectCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(16).Value = CType(Belegdaten,String) End If If (Fremdwährung.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(17).Value = CType(Fremdwährung.Value,Short) Else Me.Adapter.SelectCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (BGebLeistungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(18).Value = CType(BGebLeistungsNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (BGebProzent.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(19).Value = CType(BGebProzent.Value,Single) Else Me.Adapter.SelectCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (BGebBgl.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(20).Value = CType(BGebBgl.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (BGebMinBetrag.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(21).Value = CType(BGebMinBetrag.Value,Decimal) Else Me.Adapter.SelectCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (RePosZeitstempel.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(22).Value = CType(RePosZeitstempel.Value,Date) Else Me.Adapter.SelectCommand.Parameters(22).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSelectRPDataTable = New VERAGDataSet.spSelectRPDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectRPFKeyRKTableAdapter 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 = "spSelectRPFKeyRK" tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("IndexZkteing", "IndexZkteing") tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetrag", "SteuerpflichtigerBetrag") tableMapping.ColumnMappings.Add("SteuerfreierBetrag", "SteuerfreierBetrag") tableMapping.ColumnMappings.Add("AufschubkontoNr", "AufschubkontoNr") tableMapping.ColumnMappings.Add("Aufschubfälligkeit", "Aufschubfälligkeit") tableMapping.ColumnMappings.Add("Prüfsumme berechnen", "Prüfsumme berechnen") tableMapping.ColumnMappings.Add("DateiNameAufschub", "DateiNameAufschub") tableMapping.ColumnMappings.Add("Preisbindung", "Preisbindung") tableMapping.ColumnMappings.Add("Belegdaten", "Belegdaten") tableMapping.ColumnMappings.Add("Fremdwährung", "Fremdwährung") tableMapping.ColumnMappings.Add("BGebLeistungsNr", "BGebLeistungsNr") tableMapping.ColumnMappings.Add("BGebProzent", "BGebProzent") tableMapping.ColumnMappings.Add("BGebBgl", "BGebBgl") tableMapping.ColumnMappings.Add("BGebMinBetrag", "BGebMinBetrag") tableMapping.ColumnMappings.Add("RePosZeitstempel", "RePosZeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectRPFKeyRK" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSelectRPFKeyRKDataTable, ByVal RK_ID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value 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 RK_ID As Global.System.Nullable(Of Integer)) As VERAGDataSet.spSelectRPFKeyRKDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSelectRPFKeyRKDataTable = New VERAGDataSet.spSelectRPFKeyRKDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSelectRPPKeyTableAdapter 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 = "spSelectRPPKey" tableMapping.ColumnMappings.Add("RK_ID", "RK_ID") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("LeistungsBez", "LeistungsBez") tableMapping.ColumnMappings.Add("IndexZkteing", "IndexZkteing") tableMapping.ColumnMappings.Add("BerechnungsartNr", "BerechnungsartNr") tableMapping.ColumnMappings.Add("Preis", "Preis") tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetrag", "SteuerpflichtigerBetrag") tableMapping.ColumnMappings.Add("SteuerfreierBetrag", "SteuerfreierBetrag") tableMapping.ColumnMappings.Add("AufschubkontoNr", "AufschubkontoNr") tableMapping.ColumnMappings.Add("Aufschubfälligkeit", "Aufschubfälligkeit") tableMapping.ColumnMappings.Add("Prüfsumme berechnen", "Prüfsumme berechnen") tableMapping.ColumnMappings.Add("DateiNameAufschub", "DateiNameAufschub") tableMapping.ColumnMappings.Add("Preisbindung", "Preisbindung") tableMapping.ColumnMappings.Add("Belegdaten", "Belegdaten") tableMapping.ColumnMappings.Add("Fremdwährung", "Fremdwährung") tableMapping.ColumnMappings.Add("BGebLeistungsNr", "BGebLeistungsNr") tableMapping.ColumnMappings.Add("BGebProzent", "BGebProzent") tableMapping.ColumnMappings.Add("BGebBgl", "BGebBgl") tableMapping.ColumnMappings.Add("BGebMinBetrag", "BGebMinBetrag") tableMapping.ColumnMappings.Add("RePosZeitstempel", "RePosZeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSelectRPPKey" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IndexZkteing", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSelectRPPKeyDataTable, ByVal RK_ID As Global.System.Nullable(Of Integer), ByVal LeistungsNr As Global.System.Nullable(Of Short), ByVal Steuerpflichtig As Global.System.Nullable(Of Boolean), ByVal LeistungsBez As String, ByVal IndexZkteing As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (LeistungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(LeistungsNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Steuerpflichtig.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Steuerpflichtig.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (LeistungsBez Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(LeistungsBez,String) End If If (IndexZkteing.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(IndexZkteing.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value 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 RK_ID As Global.System.Nullable(Of Integer), ByVal LeistungsNr As Global.System.Nullable(Of Short), ByVal Steuerpflichtig As Global.System.Nullable(Of Boolean), ByVal LeistungsBez As String, ByVal IndexZkteing As Global.System.Nullable(Of Integer)) As VERAGDataSet.spSelectRPPKeyDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RK_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RK_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (LeistungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(LeistungsNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Steuerpflichtig.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Steuerpflichtig.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (LeistungsBez Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(LeistungsBez,String) End If If (IndexZkteing.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(IndexZkteing.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSelectRPPKeyDataTable = New VERAGDataSet.spSelectRPPKeyDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblAnmeldungPKeyTableAdapter 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 = "spSELECTtblAnmeldungPKey" tableMapping.ColumnMappings.Add("Computername", "Computername") tableMapping.ColumnMappings.Add("Benutzername", "Benutzername") tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") tableMapping.ColumnMappings.Add("Login", "Login") tableMapping.ColumnMappings.Add("Logout", "Logout") tableMapping.ColumnMappings.Add("Programmversion", "Programmversion") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblAnmeldungPKey" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblAnmeldungPKeyDataTable, ByVal Computername As String, ByVal Benutzername As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Computername Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(2).Value = CType(Benutzername,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 Computername As String, ByVal Benutzername As String) As VERAGDataSet.spSELECTtblAnmeldungPKeyDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Computername Is Nothing) Then Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(2).Value = CType(Benutzername,String) End If Dim dataTable As VERAGDataSet.spSELECTtblAnmeldungPKeyDataTable = New VERAGDataSet.spSELECTtblAnmeldungPKeyDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblQS_AbfertigungsartenTableAdapter 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 = "spSELECTtblQS_Abfertigungsarten" tableMapping.ColumnMappings.Add("QS_Abfertigungsart_ID", "QS_Abfertigungsart_ID") tableMapping.ColumnMappings.Add("QS_Abfertigungsart_Bezeichnung", "QS_Abfertigungsart_Bezeichnung") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblQS_Abfertigungsarten" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblQS_AbfertigungsartenDataTable) 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 VERAGDataSet.spSELECTtblQS_AbfertigungsartenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblQS_AbfertigungsartenDataTable = New VERAGDataSet.spSELECTtblQS_AbfertigungsartenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblQS_AufträgeTableAdapter 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 = "spSELECTtblQS_Aufträge" tableMapping.ColumnMappings.Add("QS_Auftrags_ID", "QS_Auftrags_ID") tableMapping.ColumnMappings.Add("QS_Auftrags_Datum", "QS_Auftrags_Datum") tableMapping.ColumnMappings.Add("QS_Sachbearbeiter_ID", "QS_Sachbearbeiter_ID") tableMapping.ColumnMappings.Add("QS_Frachtführer_ID", "QS_Frachtführer_ID") tableMapping.ColumnMappings.Add("QS_Kennzeichen_LKW", "QS_Kennzeichen_LKW") tableMapping.ColumnMappings.Add("QS_Sendungen_Gesamtanzahl", "QS_Sendungen_Gesamtanzahl") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblQS_Aufträge" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblQS_AufträgeDataTable) 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 VERAGDataSet.spSELECTtblQS_AufträgeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblQS_AufträgeDataTable = New VERAGDataSet.spSELECTtblQS_AufträgeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblQS_AuftragspositionenTableAdapter 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 = "spSELECTtblQS_Auftragspositionen" tableMapping.ColumnMappings.Add("QS_Auftrags_ID", "QS_Auftrags_ID") tableMapping.ColumnMappings.Add("QS_Abfertigungsart_ID", "QS_Abfertigungsart_ID") tableMapping.ColumnMappings.Add("QS_Abfertigungsart_Anzahl", "QS_Abfertigungsart_Anzahl") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblQS_Auftragspositionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblQS_AuftragspositionenDataTable) 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 VERAGDataSet.spSELECTtblQS_AuftragspositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblQS_AuftragspositionenDataTable = New VERAGDataSet.spSELECTtblQS_AuftragspositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblTrdinHeaderTableAdapter 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 = "spSELECTtblTrdinHeader" tableMapping.ColumnMappings.Add("Speditionsbuch", "Speditionsbuch") tableMapping.ColumnMappings.Add("Company_code", "Company_code") tableMapping.ColumnMappings.Add("Depot_code", "Depot_code") tableMapping.ColumnMappings.Add("Send_number", "Send_number") tableMapping.ColumnMappings.Add("Send_date", "Send_date") tableMapping.ColumnMappings.Add("Computer_location", "Computer_location") tableMapping.ColumnMappings.Add("Message_type", "Message_type") tableMapping.ColumnMappings.Add("Fm_net_address", "Fm_net_address") tableMapping.ColumnMappings.Add("Accounting_date", "Accounting_date") tableMapping.ColumnMappings.Add("Currency_code", "Currency_code") tableMapping.ColumnMappings.Add("Country_code_dispatch", "Country_code_dispatch") tableMapping.ColumnMappings.Add("Vat_number_dispatch", "Vat_number_dispatch") tableMapping.ColumnMappings.Add("Vat_code_I", "Vat_code_I") tableMapping.ColumnMappings.Add("Vat_code_S0", "Vat_code_S0") tableMapping.ColumnMappings.Add("Vat_code_S1", "Vat_code_S1") tableMapping.ColumnMappings.Add("Vat_code_X", "Vat_code_X") tableMapping.ColumnMappings.Add("Pfad1", "Pfad1") tableMapping.ColumnMappings.Add("Pfad2", "Pfad2") tableMapping.ColumnMappings.Add("Datei", "Datei") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblTrdinHeader" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblTrdinHeaderDataTable) 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 VERAGDataSet.spSELECTtblTrdinHeaderDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblTrdinHeaderDataTable = New VERAGDataSet.spSELECTtblTrdinHeaderDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblTrdinInvoiceTableAdapter 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 = "spSELECTtblTrdinInvoice" tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Speditionsbuch", "Speditionsbuch") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("RechnungsLandKz", "RechnungsLandKz") tableMapping.ColumnMappings.Add("RechnungsUstIdKz", "RechnungsUstIdKz") tableMapping.ColumnMappings.Add("RechnungsUstIdNr", "RechnungsUstIdNr") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("WährungLokal", "WährungLokal") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragLokal", "SteuerpflichtigerBetragLokal") tableMapping.ColumnMappings.Add("SteuerfreierBetragLokal", "SteuerfreierBetragLokal") tableMapping.ColumnMappings.Add("SteuerbetragLokal", "SteuerbetragLokal") tableMapping.ColumnMappings.Add("RechnungsbetragLokal", "RechnungsbetragLokal") tableMapping.ColumnMappings.Add("WährungFremd", "WährungFremd") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragFremd", "SteuerpflichtigerBetragFremd") tableMapping.ColumnMappings.Add("SteuerfreierBetragFremd", "SteuerfreierBetragFremd") tableMapping.ColumnMappings.Add("SteuerbetragFremd", "SteuerbetragFremd") tableMapping.ColumnMappings.Add("RechnungsbetragFremd", "RechnungsbetragFremd") tableMapping.ColumnMappings.Add("TrdinDateiname", "TrdinDateiname") tableMapping.ColumnMappings.Add("Abgleich_op_debitor", "Abgleich_op_debitor") tableMapping.ColumnMappings.Add("Nettozahlungsziel", "Nettozahlungsziel") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblTrdinInvoice" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblTrdinInvoiceDataTable) 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 VERAGDataSet.spSELECTtblTrdinInvoiceDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblTrdinInvoiceDataTable = New VERAGDataSet.spSELECTtblTrdinInvoiceDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblTrdinProductTableAdapter 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 = "spSELECTtblTrdinProduct" tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Leistungsnummer", "Leistungsnummer") tableMapping.ColumnMappings.Add("Leistungsbezeichnung", "Leistungsbezeichnung") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragLokal", "SteuerpflichtigerBetragLokal") tableMapping.ColumnMappings.Add("SteuerfreierBetragLokal", "SteuerfreierBetragLokal") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragFremd", "SteuerpflichtigerBetragFremd") tableMapping.ColumnMappings.Add("SteuerfreierBetragFremd", "SteuerfreierBetragFremd") tableMapping.ColumnMappings.Add("Belegdaten", "Belegdaten") tableMapping.ColumnMappings.Add("Sachkonto", "Sachkonto") tableMapping.ColumnMappings.Add("Buchungstext", "Buchungstext") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblTrdinProduct" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblTrdinProductDataTable) 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 VERAGDataSet.spSELECTtblTrdinProductDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblTrdinProductDataTable = New VERAGDataSet.spSELECTtblTrdinProductDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblUStVAntragTableAdapter 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 = "spSELECTtblUStVAntrag" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVAn_KuNr", "UStVAn_KuNr") tableMapping.ColumnMappings.Add("UStVAn_Name", "UStVAn_Name") tableMapping.ColumnMappings.Add("UStVAn_Straße", "UStVAn_Straße") tableMapping.ColumnMappings.Add("UStVAn_LandKz", "UStVAn_LandKz") tableMapping.ColumnMappings.Add("UStVAn_PLZ", "UStVAn_PLZ") tableMapping.ColumnMappings.Add("UStVAn_Ort", "UStVAn_Ort") tableMapping.ColumnMappings.Add("UStVAn_Land", "UStVAn_Land") tableMapping.ColumnMappings.Add("UStVAn_Gewerbe", "UStVAn_Gewerbe") tableMapping.ColumnMappings.Add("UStVAn_Steuernummer", "UStVAn_Steuernummer") tableMapping.ColumnMappings.Add("UStVAn_ReDatVon", "UStVAn_ReDatVon") tableMapping.ColumnMappings.Add("UStVAn_ReDatBis", "UStVAn_ReDatBis") tableMapping.ColumnMappings.Add("UStVAn_Bankverbindung", "UStVAn_Bankverbindung") tableMapping.ColumnMappings.Add("UStVAn_BLZ", "UStVAn_BLZ") tableMapping.ColumnMappings.Add("UStVAn_KTO", "UStVAn_KTO") tableMapping.ColumnMappings.Add("UStVAn_Kontoinhaber", "UStVAn_Kontoinhaber") tableMapping.ColumnMappings.Add("UStVAn_BIC", "UStVAn_BIC") tableMapping.ColumnMappings.Add("UStVAn_IBAN", "UStVAn_IBAN") tableMapping.ColumnMappings.Add("UStVAn_Anlagen", "UStVAn_Anlagen") tableMapping.ColumnMappings.Add("UStVAn_Rechnungen", "UStVAn_Rechnungen") tableMapping.ColumnMappings.Add("UStVAn_Einfuhrdokumente", "UStVAn_Einfuhrdokumente") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_a", "UStVAn_Erklärung_9_a") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_1", "UStVAn_Erklärung_9_b_1") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_2", "UStVAn_Erklärung_9_b_2") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_3", "UStVAn_Erklärung_9_b_3") tableMapping.ColumnMappings.Add("UStVAn_Ausstellungsort", "UStVAn_Ausstellungsort") tableMapping.ColumnMappings.Add("UStVAn_Ausstellungsdatum", "UStVAn_Ausstellungsdatum") tableMapping.ColumnMappings.Add("UStVAn_Unterschrift", "UStVAn_Unterschrift") tableMapping.ColumnMappings.Add("UStVAn_LandNr", "UStVAn_LandNr") tableMapping.ColumnMappings.Add("UStVAn_Beleganzahl", "UStVAn_Beleganzahl") tableMapping.ColumnMappings.Add("UStVAn_BeleganzahlRetourniert", "UStVAn_BeleganzahlRetourniert") tableMapping.ColumnMappings.Add("UStVAn_Retournierungsgrund", "UStVAn_Retournierungsgrund") tableMapping.ColumnMappings.Add("UStVAn_AntragEingereichtAm", "UStVAn_AntragEingereichtAm") tableMapping.ColumnMappings.Add("UStVAn_BelegeWeitergeleitetAm", "UStVAn_BelegeWeitergeleitetAm") tableMapping.ColumnMappings.Add("UStVAn_Vertreter", "UStVAn_Vertreter") tableMapping.ColumnMappings.Add("UStVAn_BezugsNr", "UStVAn_BezugsNr") tableMapping.ColumnMappings.Add("UStVAn_3470", "UStVAn_3470") tableMapping.ColumnMappings.Add("UStVAn_VZBetrag", "UStVAn_VZBetrag") tableMapping.ColumnMappings.Add("UStVAn_VZDatum", "UStVAn_VZDatum") tableMapping.ColumnMappings.Add("UStVAn_RZBetragVZ", "UStVAn_RZBetragVZ") tableMapping.ColumnMappings.Add("UStVAn_RZDatumVZ", "UStVAn_RZDatumVZ") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UStVAn_Währungscode", "UStVAn_Währungscode") tableMapping.ColumnMappings.Add("UStVAn_USteuerbetrag", "UStVAn_USteuerbetrag") tableMapping.ColumnMappings.Add("UStVAn_Erstattungsbetrag", "UStVAn_Erstattungsbetrag") tableMapping.ColumnMappings.Add("UStVAn_USteuerbetragEUR", "UStVAn_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVAn_ErstattungsbetragEUR", "UStVAn_ErstattungsbetragEUR") tableMapping.ColumnMappings.Add("UStVAn_Sachbearbeiter", "UStVAn_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVAn_Zeitstempel", "UStVAn_Zeitstempel") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblUStVAntrag" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblUStVAntragDataTable) 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 VERAGDataSet.spSELECTtblUStVAntragDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblUStVAntragDataTable = New VERAGDataSet.spSELECTtblUStVAntragDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblUStVBelegeingangTableAdapter 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 = "spSELECTtblUStVBelegeingang" tableMapping.ColumnMappings.Add("UStVBe_KuNr", "UStVBe_KuNr") tableMapping.ColumnMappings.Add("UStVBe_EinDat", "UStVBe_EinDat") tableMapping.ColumnMappings.Add("UStVBe_EinNr", "UStVBe_EinNr") tableMapping.ColumnMappings.Add("UStVBe_UStBetrag", "UStVBe_UStBetrag") tableMapping.ColumnMappings.Add("UStVBe_Beleganzahl", "UStVBe_Beleganzahl") tableMapping.ColumnMappings.Add("UStVBe_Retourniert", "UStVBe_Retourniert") tableMapping.ColumnMappings.Add("UStVBe_Bemerkung", "UStVBe_Bemerkung") tableMapping.ColumnMappings.Add("UStVBe_WeiterDat", "UStVBe_WeiterDat") tableMapping.ColumnMappings.Add("UStVBe_Empfänger", "UStVBe_Empfänger") tableMapping.ColumnMappings.Add("UStVBe_Zeitstempel", "UStVBe_Zeitstempel") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblUStVBelegeingang" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblUStVBelegeingangDataTable) 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 VERAGDataSet.spSELECTtblUStVBelegeingangDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblUStVBelegeingangDataTable = New VERAGDataSet.spSELECTtblUStVBelegeingangDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblUStVErstattungTableAdapter 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 = "spSELECTtblUStVErstattung" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVEr_ID", "UStVEr_ID") tableMapping.ColumnMappings.Add("UStVEr_USteuerbetrag", "UStVEr_USteuerbetrag") tableMapping.ColumnMappings.Add("Belegdatum", "Belegdatum") tableMapping.ColumnMappings.Add("Belegnummer", "Belegnummer") tableMapping.ColumnMappings.Add("GutschriftsDatum", "GutschriftsDatum") tableMapping.ColumnMappings.Add("GutschriftsNr", "GutschriftsNr") tableMapping.ColumnMappings.Add("Berufungsdatum", "Berufungsdatum") tableMapping.ColumnMappings.Add("Berufungshöhe", "Berufungshöhe") tableMapping.ColumnMappings.Add("Berufungsgrund", "Berufungsgrund") tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung") tableMapping.ColumnMappings.Add("UStVEr_Umrechnungskurs", "UStVEr_Umrechnungskurs") tableMapping.ColumnMappings.Add("UStVEr_USteuerbetragEUR", "UStVEr_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVEr_Sachbearbeiter", "UStVEr_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVEr_Zeitstempel", "UStVEr_Zeitstempel") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblUStVErstattung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblUStVErstattungDataTable) 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 VERAGDataSet.spSELECTtblUStVErstattungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblUStVErstattungDataTable = New VERAGDataSet.spSELECTtblUStVErstattungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblUStVPositionenTableAdapter 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 = "spSELECTtblUStVPositionen" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVPo_ID", "UStVPo_ID") tableMapping.ColumnMappings.Add("UStVPo_ReDat", "UStVPo_ReDat") tableMapping.ColumnMappings.Add("UStVPo_ReNr", "UStVPo_ReNr") tableMapping.ColumnMappings.Add("UStVPo_USteuerbetrag", "UStVPo_USteuerbetrag") tableMapping.ColumnMappings.Add("UStVPo_Leistungsbezeichnung", "UStVPo_Leistungsbezeichnung") tableMapping.ColumnMappings.Add("UStVPo_Leistender", "UStVPo_Leistender") tableMapping.ColumnMappings.Add("UStVPo_Schnittstelle", "UStVPo_Schnittstelle") tableMapping.ColumnMappings.Add("UStVPo_SchnittstellenNr", "UStVPo_SchnittstellenNr") tableMapping.ColumnMappings.Add("UStVPo_Umrechnungskurs", "UStVPo_Umrechnungskurs") tableMapping.ColumnMappings.Add("UStVPo_USteuerbetragEUR", "UStVPo_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVPo_Sachbearbeiter", "UStVPo_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVPo_Zeitstempel", "UStVPo_Zeitstempel") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblUStVPositionen" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblUStVPositionenDataTable) 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 VERAGDataSet.spSELECTtblUStVPositionenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblUStVPositionenDataTable = New VERAGDataSet.spSELECTtblUStVPositionenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTtblZolaris_EZoll_NCTSTableAdapter 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 = "spSELECTtblZolaris_EZoll_NCTS" tableMapping.ColumnMappings.Add("CRN", "CRN") tableMapping.ColumnMappings.Add("AnmeldungsDatum", "AnmeldungsDatum") tableMapping.ColumnMappings.Add("GarantieWert", "GarantieWert") tableMapping.ColumnMappings.Add("AnmID", "AnmID") tableMapping.ColumnMappings.Add("ErledigungsTypID", "ErledigungsTypID") tableMapping.ColumnMappings.Add("Warenbezeichnung", "Warenbezeichnung") tableMapping.ColumnMappings.Add("Absender", "Absender") tableMapping.ColumnMappings.Add("Empfaenger", "Empfaenger") tableMapping.ColumnMappings.Add("Gesamtrohmasse", "Gesamtrohmasse") tableMapping.ColumnMappings.Add("Abgangszollstelle", "Abgangszollstelle") tableMapping.ColumnMappings.Add("Bestimmungszollstelle", "Bestimmungszollstelle") tableMapping.ColumnMappings.Add("Gestellungsfrist", "Gestellungsfrist") tableMapping.ColumnMappings.Add("LRN", "LRN") tableMapping.ColumnMappings.Add("DatumBestimmungErreicht", "DatumBestimmungErreicht") tableMapping.ColumnMappings.Add("GRN", "GRN") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTtblZolaris_EZoll_NCTS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTtblZolaris_EZoll_NCTSDataTable) 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 VERAGDataSet.spSELECTtblZolaris_EZoll_NCTSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTtblZolaris_EZoll_NCTSDataTable = New VERAGDataSet.spSELECTtblZolaris_EZoll_NCTSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTUStVErstattungsschreibenTableAdapter 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 = "spSELECTUStVErstattungsschreiben" tableMapping.ColumnMappings.Add("Name", "Name") tableMapping.ColumnMappings.Add("Straße", "Straße") tableMapping.ColumnMappings.Add("Ort", "Ort") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("MWST", "MWST") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Betrag", "Betrag") tableMapping.ColumnMappings.Add("KorrAdresse", "KorrAdresse") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTUStVErstattungsschreiben" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTUStVErstattungsschreibenDataTable, ByVal FilialenNr As Global.System.Nullable(Of Integer), ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), ByVal UnterNr As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (FilialenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(FilialenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(UnterNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value 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 FilialenNr As Global.System.Nullable(Of Integer), ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), ByVal UnterNr As Global.System.Nullable(Of Integer)) As VERAGDataSet.spSELECTUStVErstattungsschreibenDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (FilialenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(FilialenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(UnterNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSELECTUStVErstattungsschreibenDataTable = New VERAGDataSet.spSELECTUStVErstattungsschreibenDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTUStVErstattungsschreiben2TableAdapter 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 = "spSELECTUStVErstattungsschreiben2" tableMapping.ColumnMappings.Add("Name", "Name") tableMapping.ColumnMappings.Add("Straße", "Straße") tableMapping.ColumnMappings.Add("Ort", "Ort") tableMapping.ColumnMappings.Add("LandKz", "LandKz") tableMapping.ColumnMappings.Add("MWST", "MWST") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Betrag", "Betrag") tableMapping.ColumnMappings.Add("KorrAdresse", "KorrAdresse") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTUStVErstattungsschreiben2" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTUStVErstattungsschreiben2DataTable, ByVal FilialenNr As Global.System.Nullable(Of Integer), ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), ByVal UnterNr As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (FilialenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(FilialenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(UnterNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value 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 FilialenNr As Global.System.Nullable(Of Integer), ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), ByVal UnterNr As Global.System.Nullable(Of Integer)) As VERAGDataSet.spSELECTUStVErstattungsschreiben2DataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (FilialenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(FilialenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(AbfertigungsNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(UnterNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spSELECTUStVErstattungsschreiben2DataTable = New VERAGDataSet.spSELECTUStVErstattungsschreiben2DataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spSELECTZkteingTableAdapter 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 = "spSELECTZkteing" tableMapping.ColumnMappings.Add("Index", "Index") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("ZollamtsNr", "ZollamtsNr") tableMapping.ColumnMappings.Add("Jahr", "Jahr") tableMapping.ColumnMappings.Add("KennNr", "KennNr") tableMapping.ColumnMappings.Add("Nummer", "Nummer") tableMapping.ColumnMappings.Add("Leitzahl", "Leitzahl") tableMapping.ColumnMappings.Add("Belegart", "Belegart") tableMapping.ColumnMappings.Add("LeistungsNr", "LeistungsNr") tableMapping.ColumnMappings.Add("Betrag", "Betrag") tableMapping.ColumnMappings.Add("Eingabedatum", "Eingabedatum") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("Übernahmedatum", "Übernahmedatum") tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung") tableMapping.ColumnMappings.Add("Sachbearbeiter", "Sachbearbeiter") tableMapping.ColumnMappings.Add("Bezugsnummer", "Bezugsnummer") tableMapping.ColumnMappings.Add("Registriernummer", "Registriernummer") tableMapping.ColumnMappings.Add("Korrekturnummer", "Korrekturnummer") tableMapping.ColumnMappings.Add("AOFD", "AOFD") tableMapping.ColumnMappings.Add("AKTO", "AKTO") tableMapping.ColumnMappings.Add("Fälligkeitsdatum", "Fälligkeitsdatum") tableMapping.ColumnMappings.Add("Dateiname", "Dateiname") tableMapping.ColumnMappings.Add("Mandant", "Mandant") tableMapping.ColumnMappings.Add("Niederlassung", "Niederlassung") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spSELECTZkteing" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spSELECTZkteingDataTable) 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 VERAGDataSet.spSELECTZkteingDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As VERAGDataSet.spSELECTZkteingDataTable = New VERAGDataSet.spSELECTZkteingDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spTrdinFiBuSelectInvoiceTableAdapter 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 = "spTrdinFiBuSelectInvoice" tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Speditionsbuch", "Speditionsbuch") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("RechnungsLandKz", "RechnungsLandKz") tableMapping.ColumnMappings.Add("RechnungsUstIdKz", "RechnungsUstIdKz") tableMapping.ColumnMappings.Add("RechnungsUstIdNr", "RechnungsUstIdNr") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("WährungLokal", "WährungLokal") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragLokal", "SteuerpflichtigerBetragLokal") tableMapping.ColumnMappings.Add("SteuerfreierBetragLokal", "SteuerfreierBetragLokal") tableMapping.ColumnMappings.Add("SteuerbetragLokal", "SteuerbetragLokal") tableMapping.ColumnMappings.Add("RechnungsbetragLokal", "RechnungsbetragLokal") tableMapping.ColumnMappings.Add("WährungFremd", "WährungFremd") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragFremd", "SteuerpflichtigerBetragFremd") tableMapping.ColumnMappings.Add("SteuerfreierBetragFremd", "SteuerfreierBetragFremd") tableMapping.ColumnMappings.Add("SteuerbetragFremd", "SteuerbetragFremd") tableMapping.ColumnMappings.Add("RechnungsbetragFremd", "RechnungsbetragFremd") tableMapping.ColumnMappings.Add("TrdinDateiname", "TrdinDateiname") tableMapping.ColumnMappings.Add("Abgleich_op_debitor", "Abgleich_op_debitor") tableMapping.ColumnMappings.Add("Nettozahlungsziel", "Nettozahlungsziel") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("AmbDateiname", "AmbDateiname") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spTrdinFiBuSelectInvoice" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spTrdinFiBuSelectInvoiceDataTable, ByVal Firma_ID As Global.System.Nullable(Of Short)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value 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 Firma_ID As Global.System.Nullable(Of Short)) As VERAGDataSet.spTrdinFiBuSelectInvoiceDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Firma_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Firma_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spTrdinFiBuSelectInvoiceDataTable = New VERAGDataSet.spTrdinFiBuSelectInvoiceDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spTrdinFiBuSelectProductTableAdapter 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 = "spTrdinFiBuSelectProduct" tableMapping.ColumnMappings.Add("Sachkonto", "Sachkonto") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("BetragLokal", "BetragLokal") tableMapping.ColumnMappings.Add("BetragFremd", "BetragFremd") tableMapping.ColumnMappings.Add("Buchungstext", "Buchungstext") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spTrdinFiBuSelectProduct" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spTrdinFiBuSelectProductDataTable, ByVal Rechnungsdatum As Global.System.Nullable(Of Date), ByVal Rechnungsnummer As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 Rechnungsdatum As Global.System.Nullable(Of Date), ByVal Rechnungsnummer As Global.System.Nullable(Of Integer)) As VERAGDataSet.spTrdinFiBuSelectProductDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spTrdinFiBuSelectProductDataTable = New VERAGDataSet.spTrdinFiBuSelectProductDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spTrdinSchreibenSelectInvoicePKeyTableAdapter 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 = "spTrdinSchreibenSelectInvoicePKey" tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Speditionsbuch", "Speditionsbuch") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UnterNr", "UnterNr") tableMapping.ColumnMappings.Add("Abfertigungsdatum", "Abfertigungsdatum") tableMapping.ColumnMappings.Add("BelegartenNr", "BelegartenNr") tableMapping.ColumnMappings.Add("KundenNrZentrale", "KundenNrZentrale") tableMapping.ColumnMappings.Add("RechnungsKundenNr", "RechnungsKundenNr") tableMapping.ColumnMappings.Add("RechnungsLandKz", "RechnungsLandKz") tableMapping.ColumnMappings.Add("RechnungsUstIdKz", "RechnungsUstIdKz") tableMapping.ColumnMappings.Add("RechnungsUstIdNr", "RechnungsUstIdNr") tableMapping.ColumnMappings.Add("Lastschrift", "Lastschrift") tableMapping.ColumnMappings.Add("Steuerschlüssel", "Steuerschlüssel") tableMapping.ColumnMappings.Add("Steuersatz %", "Steuersatz %") tableMapping.ColumnMappings.Add("WährungLokal", "WährungLokal") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragLokal", "SteuerpflichtigerBetragLokal") tableMapping.ColumnMappings.Add("SteuerfreierBetragLokal", "SteuerfreierBetragLokal") tableMapping.ColumnMappings.Add("SteuerbetragLokal", "SteuerbetragLokal") tableMapping.ColumnMappings.Add("RechnungsbetragLokal", "RechnungsbetragLokal") tableMapping.ColumnMappings.Add("WährungFremd", "WährungFremd") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragFremd", "SteuerpflichtigerBetragFremd") tableMapping.ColumnMappings.Add("SteuerfreierBetragFremd", "SteuerfreierBetragFremd") tableMapping.ColumnMappings.Add("SteuerbetragFremd", "SteuerbetragFremd") tableMapping.ColumnMappings.Add("RechnungsbetragFremd", "RechnungsbetragFremd") tableMapping.ColumnMappings.Add("TrdinDateiname", "TrdinDateiname") tableMapping.ColumnMappings.Add("Abgleich_op_debitor", "Abgleich_op_debitor") tableMapping.ColumnMappings.Add("Nettozahlungsziel", "Nettozahlungsziel") tableMapping.ColumnMappings.Add("Firma_ID", "Firma_ID") tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") tableMapping.ColumnMappings.Add("AmbDateiname", "AmbDateiname") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spTrdinSchreibenSelectInvoicePKey" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spTrdinSchreibenSelectInvoicePKeyDataTable, ByVal Rechnungsdatum As Global.System.Nullable(Of Date), ByVal Rechnungsnummer As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 Rechnungsdatum As Global.System.Nullable(Of Date), ByVal Rechnungsnummer As Global.System.Nullable(Of Integer)) As VERAGDataSet.spTrdinSchreibenSelectInvoicePKeyDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spTrdinSchreibenSelectInvoicePKeyDataTable = New VERAGDataSet.spTrdinSchreibenSelectInvoicePKeyDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spTrdinSchreibenSelectProductFKeyInvoiceTableAdapter 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 = "spTrdinSchreibenSelectProductFKeyInvoice" tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Leistungsnummer", "Leistungsnummer") tableMapping.ColumnMappings.Add("Leistungsbezeichnung", "Leistungsbezeichnung") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragLokal", "SteuerpflichtigerBetragLokal") tableMapping.ColumnMappings.Add("SteuerfreierBetragLokal", "SteuerfreierBetragLokal") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragFremd", "SteuerpflichtigerBetragFremd") tableMapping.ColumnMappings.Add("SteuerfreierBetragFremd", "SteuerfreierBetragFremd") tableMapping.ColumnMappings.Add("Belegdaten", "Belegdaten") tableMapping.ColumnMappings.Add("Sachkonto", "Sachkonto") tableMapping.ColumnMappings.Add("Buchungstext", "Buchungstext") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spTrdinSchreibenSelectProductFKeyInvoice" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spTrdinSchreibenSelectProductFKeyInvoiceDataTable, ByVal Rechnungsdatum As Global.System.Nullable(Of Date), ByVal Rechnungsnummer As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 Rechnungsdatum As Global.System.Nullable(Of Date), ByVal Rechnungsnummer As Global.System.Nullable(Of Integer)) As VERAGDataSet.spTrdinSchreibenSelectProductFKeyInvoiceDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spTrdinSchreibenSelectProductFKeyInvoiceDataTable = New VERAGDataSet.spTrdinSchreibenSelectProductFKeyInvoiceDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spTrdinSchreibenSelectProductPKeyTableAdapter 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 = "spTrdinSchreibenSelectProductPKey" tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Leistungsnummer", "Leistungsnummer") tableMapping.ColumnMappings.Add("Leistungsbezeichnung", "Leistungsbezeichnung") tableMapping.ColumnMappings.Add("Steuerpflichtig", "Steuerpflichtig") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragLokal", "SteuerpflichtigerBetragLokal") tableMapping.ColumnMappings.Add("SteuerfreierBetragLokal", "SteuerfreierBetragLokal") tableMapping.ColumnMappings.Add("SteuerpflichtigerBetragFremd", "SteuerpflichtigerBetragFremd") tableMapping.ColumnMappings.Add("SteuerfreierBetragFremd", "SteuerfreierBetragFremd") tableMapping.ColumnMappings.Add("Belegdaten", "Belegdaten") tableMapping.ColumnMappings.Add("Sachkonto", "Sachkonto") tableMapping.ColumnMappings.Add("Buchungstext", "Buchungstext") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spTrdinSchreibenSelectProductPKey" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsnummer", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spTrdinSchreibenSelectProductPKeyDataTable, ByVal Rechnungsdatum As Global.System.Nullable(Of Date), ByVal Rechnungsnummer As Global.System.Nullable(Of Integer), ByVal Leistungsnummer As Global.System.Nullable(Of Short), ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Leistungsnummer.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Leistungsnummer.Value,Short) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Leistungsbezeichnung Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(Leistungsbezeichnung,String) End If If (Steuerpflichtig.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(Steuerpflichtig.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value 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 Rechnungsdatum As Global.System.Nullable(Of Date), ByVal Rechnungsnummer As Global.System.Nullable(Of Integer), ByVal Leistungsnummer As Global.System.Nullable(Of Short), ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Global.System.Nullable(Of Boolean)) As VERAGDataSet.spTrdinSchreibenSelectProductPKeyDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Leistungsnummer.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(Leistungsnummer.Value,Short) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Leistungsbezeichnung Is Nothing) Then Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(4).Value = CType(Leistungsbezeichnung,String) End If If (Steuerpflichtig.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(Steuerpflichtig.Value,Boolean) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spTrdinSchreibenSelectProductPKeyDataTable = New VERAGDataSet.spTrdinSchreibenSelectProductPKeyDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spUStVAntragLesenParameterPKeyTableAdapter 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 = "spUStVAntragLesenParameterPKey" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVAn_KuNr", "UStVAn_KuNr") tableMapping.ColumnMappings.Add("UStVAn_Name", "UStVAn_Name") tableMapping.ColumnMappings.Add("UStVAn_Straße", "UStVAn_Straße") tableMapping.ColumnMappings.Add("UStVAn_LandKz", "UStVAn_LandKz") tableMapping.ColumnMappings.Add("UStVAn_PLZ", "UStVAn_PLZ") tableMapping.ColumnMappings.Add("UStVAn_Ort", "UStVAn_Ort") tableMapping.ColumnMappings.Add("UStVAn_Land", "UStVAn_Land") tableMapping.ColumnMappings.Add("UStVAn_Gewerbe", "UStVAn_Gewerbe") tableMapping.ColumnMappings.Add("UStVAn_Steuernummer", "UStVAn_Steuernummer") tableMapping.ColumnMappings.Add("UStVAn_ReDatVon", "UStVAn_ReDatVon") tableMapping.ColumnMappings.Add("UStVAn_ReDatBis", "UStVAn_ReDatBis") tableMapping.ColumnMappings.Add("UStVAn_Bankverbindung", "UStVAn_Bankverbindung") tableMapping.ColumnMappings.Add("UStVAn_BLZ", "UStVAn_BLZ") tableMapping.ColumnMappings.Add("UStVAn_KTO", "UStVAn_KTO") tableMapping.ColumnMappings.Add("UStVAn_Kontoinhaber", "UStVAn_Kontoinhaber") tableMapping.ColumnMappings.Add("UStVAn_BIC", "UStVAn_BIC") tableMapping.ColumnMappings.Add("UStVAn_IBAN", "UStVAn_IBAN") tableMapping.ColumnMappings.Add("UStVAn_Anlagen", "UStVAn_Anlagen") tableMapping.ColumnMappings.Add("UStVAn_Rechnungen", "UStVAn_Rechnungen") tableMapping.ColumnMappings.Add("UStVAn_Einfuhrdokumente", "UStVAn_Einfuhrdokumente") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_a", "UStVAn_Erklärung_9_a") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_1", "UStVAn_Erklärung_9_b_1") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_2", "UStVAn_Erklärung_9_b_2") tableMapping.ColumnMappings.Add("UStVAn_Erklärung_9_b_3", "UStVAn_Erklärung_9_b_3") tableMapping.ColumnMappings.Add("UStVAn_Ausstellungsort", "UStVAn_Ausstellungsort") tableMapping.ColumnMappings.Add("UStVAn_Ausstellungsdatum", "UStVAn_Ausstellungsdatum") tableMapping.ColumnMappings.Add("UStVAn_Unterschrift", "UStVAn_Unterschrift") tableMapping.ColumnMappings.Add("UStVAn_LandNr", "UStVAn_LandNr") tableMapping.ColumnMappings.Add("UStVAn_Beleganzahl", "UStVAn_Beleganzahl") tableMapping.ColumnMappings.Add("UStVAn_BeleganzahlRetourniert", "UStVAn_BeleganzahlRetourniert") tableMapping.ColumnMappings.Add("UStVAn_Retournierungsgrund", "UStVAn_Retournierungsgrund") tableMapping.ColumnMappings.Add("UStVAn_AntragEingereichtAm", "UStVAn_AntragEingereichtAm") tableMapping.ColumnMappings.Add("UStVAn_BelegeWeitergeleitetAm", "UStVAn_BelegeWeitergeleitetAm") tableMapping.ColumnMappings.Add("UStVAn_Vertreter", "UStVAn_Vertreter") tableMapping.ColumnMappings.Add("UStVAn_BezugsNr", "UStVAn_BezugsNr") tableMapping.ColumnMappings.Add("UStVAn_3470", "UStVAn_3470") tableMapping.ColumnMappings.Add("UStVAn_VZBetrag", "UStVAn_VZBetrag") tableMapping.ColumnMappings.Add("UStVAn_VZDatum", "UStVAn_VZDatum") tableMapping.ColumnMappings.Add("UStVAn_RZBetragVZ", "UStVAn_RZBetragVZ") tableMapping.ColumnMappings.Add("UStVAn_RZDatumVZ", "UStVAn_RZDatumVZ") tableMapping.ColumnMappings.Add("FilialenNr", "FilialenNr") tableMapping.ColumnMappings.Add("AbfertigungsNr", "AbfertigungsNr") tableMapping.ColumnMappings.Add("UStVAn_Währungscode", "UStVAn_Währungscode") tableMapping.ColumnMappings.Add("UStVAn_USteuerbetrag", "UStVAn_USteuerbetrag") tableMapping.ColumnMappings.Add("UStVAn_Erstattungsbetrag", "UStVAn_Erstattungsbetrag") tableMapping.ColumnMappings.Add("UStVAn_USteuerbetragEUR", "UStVAn_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVAn_ErstattungsbetragEUR", "UStVAn_ErstattungsbetragEUR") tableMapping.ColumnMappings.Add("UStVAn_Sachbearbeiter", "UStVAn_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVAn_Status", "UStVAn_Status") tableMapping.ColumnMappings.Add("UStVAn_StatusText", "UStVAn_StatusText") tableMapping.ColumnMappings.Add("UStVAn_AntragArt", "UStVAn_AntragArt") tableMapping.ColumnMappings.Add("UStVAn_Zeitstempel", "UStVAn_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spUStVAntragLesenParameterPKey" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spUStVAntragLesenParameterPKeyDataTable, ByVal UStVAn_ID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (UStVAn_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value 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 UStVAn_ID As Global.System.Nullable(Of Integer)) As VERAGDataSet.spUStVAntragLesenParameterPKeyDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (UStVAn_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spUStVAntragLesenParameterPKeyDataTable = New VERAGDataSet.spUStVAntragLesenParameterPKeyDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spUStVBelegeingangLesenParameterPKeyTableAdapter 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 = "spUStVBelegeingangLesenParameterPKey" tableMapping.ColumnMappings.Add("UStVBe_KuNr", "UStVBe_KuNr") tableMapping.ColumnMappings.Add("UStVBe_EinDat", "UStVBe_EinDat") tableMapping.ColumnMappings.Add("UStVBe_EinNr", "UStVBe_EinNr") tableMapping.ColumnMappings.Add("UStVBe_UStBetrag", "UStVBe_UStBetrag") tableMapping.ColumnMappings.Add("UStVBe_Beleganzahl", "UStVBe_Beleganzahl") tableMapping.ColumnMappings.Add("UStVBe_Retourniert", "UStVBe_Retourniert") tableMapping.ColumnMappings.Add("UStVBe_Bemerkung", "UStVBe_Bemerkung") tableMapping.ColumnMappings.Add("UStVBe_WeiterDat", "UStVBe_WeiterDat") tableMapping.ColumnMappings.Add("UStVBe_Empfänger", "UStVBe_Empfänger") tableMapping.ColumnMappings.Add("UStVBe_Zeitstempel", "UStVBe_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spUStVBelegeingangLesenParameterPKey" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVBe_EinNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spUStVBelegeingangLesenParameterPKeyDataTable, ByVal UStVBe_EinNr As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (UStVBe_EinNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(UStVBe_EinNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value 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 UStVBe_EinNr As Global.System.Nullable(Of Integer)) As VERAGDataSet.spUStVBelegeingangLesenParameterPKeyDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (UStVBe_EinNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(UStVBe_EinNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spUStVBelegeingangLesenParameterPKeyDataTable = New VERAGDataSet.spUStVBelegeingangLesenParameterPKeyDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spUStVErstattungLesenParameterPKeyTableAdapter 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 = "spUStVErstattungLesenParameterPKey" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVEr_ID", "UStVEr_ID") tableMapping.ColumnMappings.Add("UStVEr_USteuerbetrag", "UStVEr_USteuerbetrag") tableMapping.ColumnMappings.Add("Belegdatum", "Belegdatum") tableMapping.ColumnMappings.Add("Belegnummer", "Belegnummer") tableMapping.ColumnMappings.Add("GutschriftsDatum", "GutschriftsDatum") tableMapping.ColumnMappings.Add("GutschriftsNr", "GutschriftsNr") tableMapping.ColumnMappings.Add("Berufungsdatum", "Berufungsdatum") tableMapping.ColumnMappings.Add("Berufungshöhe", "Berufungshöhe") tableMapping.ColumnMappings.Add("Berufungsgrund", "Berufungsgrund") tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung") tableMapping.ColumnMappings.Add("UStVEr_Umrechnungskurs", "UStVEr_Umrechnungskurs") tableMapping.ColumnMappings.Add("UStVEr_USteuerbetragEUR", "UStVEr_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVEr_Sachbearbeiter", "UStVEr_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVEr_Zeitstempel", "UStVEr_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spUStVErstattungLesenParameterPKey" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVEr_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spUStVErstattungLesenParameterPKeyDataTable, ByVal UStVAn_ID As Global.System.Nullable(Of Integer), ByVal UStVEr_ID As Global.System.Nullable(Of Short)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (UStVAn_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (UStVEr_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(UStVEr_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 UStVAn_ID As Global.System.Nullable(Of Integer), ByVal UStVEr_ID As Global.System.Nullable(Of Short)) As VERAGDataSet.spUStVErstattungLesenParameterPKeyDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (UStVAn_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (UStVEr_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(UStVEr_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spUStVErstattungLesenParameterPKeyDataTable = New VERAGDataSet.spUStVErstattungLesenParameterPKeyDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spUStVPositionenLesenParameterPKeyTableAdapter 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 = "spUStVPositionenLesenParameterPKey" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVPo_ID", "UStVPo_ID") tableMapping.ColumnMappings.Add("UStVPo_ReDat", "UStVPo_ReDat") tableMapping.ColumnMappings.Add("UStVPo_ReNr", "UStVPo_ReNr") tableMapping.ColumnMappings.Add("UStVPo_USteuerbetrag", "UStVPo_USteuerbetrag") tableMapping.ColumnMappings.Add("UStVPo_Leistungsbezeichnung", "UStVPo_Leistungsbezeichnung") tableMapping.ColumnMappings.Add("UStVPo_Leistender", "UStVPo_Leistender") tableMapping.ColumnMappings.Add("UStVPo_Schnittstelle", "UStVPo_Schnittstelle") tableMapping.ColumnMappings.Add("UStVPo_SchnittstellenNr", "UStVPo_SchnittstellenNr") tableMapping.ColumnMappings.Add("UStVPo_Umrechnungskurs", "UStVPo_Umrechnungskurs") tableMapping.ColumnMappings.Add("UStVPo_USteuerbetragEUR", "UStVPo_USteuerbetragEUR") tableMapping.ColumnMappings.Add("UStVPo_Sachbearbeiter", "UStVPo_Sachbearbeiter") tableMapping.ColumnMappings.Add("UStVPo_Zeitstempel", "UStVPo_Zeitstempel") tableMapping.ColumnMappings.Add("upsize_ts", "upsize_ts") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spUStVPositionenLesenParameterPKey" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spUStVPositionenLesenParameterPKeyDataTable, ByVal UStVAn_ID As Global.System.Nullable(Of Integer), ByVal UStVPo_ID As Global.System.Nullable(Of Short)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (UStVAn_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (UStVPo_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(UStVPo_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 UStVAn_ID As Global.System.Nullable(Of Integer), ByVal UStVPo_ID As Global.System.Nullable(Of Short)) As VERAGDataSet.spUStVPositionenLesenParameterPKeyDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (UStVAn_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(UStVAn_ID.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (UStVPo_ID.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(UStVPo_ID.Value,Short) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spUStVPositionenLesenParameterPKeyDataTable = New VERAGDataSet.spUStVPositionenLesenParameterPKeyDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spUStVRechnungÜbernehmenMSETableAdapter 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 = "spUStVRechnungÜbernehmenMSE" tableMapping.ColumnMappings.Add("UStVAn_ID", "UStVAn_ID") tableMapping.ColumnMappings.Add("UStVPo_ID", "UStVPo_ID") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spUStVRechnungÜbernehmenMSE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ReDat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ReNr", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_SchnittstellenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_KuNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_LandNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Währungscode", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spUStVRechnungÜbernehmenMSEDataTable, ByVal UStVPo_ReDat As Global.System.Nullable(Of Date), ByVal UStVPo_ReNr As String, ByVal UStVPo_Leistungsbezeichnung As String, ByVal UStVPo_SchnittstellenNr As Global.System.Nullable(Of Short), ByVal UStVAn_KuNr As Global.System.Nullable(Of Integer), ByVal UStVAn_LandNr As Global.System.Nullable(Of Short), ByVal UStVAn_Währungscode As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (UStVPo_ReDat.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(UStVPo_ReDat.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (UStVPo_ReNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(2).Value = CType(UStVPo_ReNr,String) End If If (UStVPo_Leistungsbezeichnung Is Nothing) Then Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(3).Value = CType(UStVPo_Leistungsbezeichnung,String) End If If (UStVPo_SchnittstellenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(4).Value = CType(UStVPo_SchnittstellenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (UStVAn_KuNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(UStVAn_KuNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (UStVAn_LandNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(UStVAn_LandNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (UStVAn_Währungscode Is Nothing) Then Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(7).Value = CType(UStVAn_Währungscode,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 UStVPo_ReDat As Global.System.Nullable(Of Date), ByVal UStVPo_ReNr As String, ByVal UStVPo_Leistungsbezeichnung As String, ByVal UStVPo_SchnittstellenNr As Global.System.Nullable(Of Short), ByVal UStVAn_KuNr As Global.System.Nullable(Of Integer), ByVal UStVAn_LandNr As Global.System.Nullable(Of Short), ByVal UStVAn_Währungscode As String) As VERAGDataSet.spUStVRechnungÜbernehmenMSEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (UStVPo_ReDat.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(UStVPo_ReDat.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (UStVPo_ReNr Is Nothing) Then Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(2).Value = CType(UStVPo_ReNr,String) End If If (UStVPo_Leistungsbezeichnung Is Nothing) Then Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(3).Value = CType(UStVPo_Leistungsbezeichnung,String) End If If (UStVPo_SchnittstellenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(4).Value = CType(UStVPo_SchnittstellenNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (UStVAn_KuNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(UStVAn_KuNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (UStVAn_LandNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(UStVAn_LandNr.Value,Short) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (UStVAn_Währungscode Is Nothing) Then Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.SelectCommand.Parameters(7).Value = CType(UStVAn_Währungscode,String) End If Dim dataTable As VERAGDataSet.spUStVRechnungÜbernehmenMSEDataTable = New VERAGDataSet.spUStVRechnungÜbernehmenMSEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spUStVVorschau_IDS_SummeTableAdapter 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 = "spUStVVorschau_IDS_Summe" tableMapping.ColumnMappings.Add("AdressenNr", "AdressenNr") tableMapping.ColumnMappings.Add("LandNr", "LandNr") tableMapping.ColumnMappings.Add("Vorschaubetrag", "Vorschaubetrag") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spUStVVorschau_IDS_Summe" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spUStVVorschau_IDS_SummeDataTable, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Rechnungsdatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Rechnungsdatum As Global.System.Nullable(Of Date)) As VERAGDataSet.spUStVVorschau_IDS_SummeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spUStVVorschau_IDS_SummeDataTable = New VERAGDataSet.spUStVVorschau_IDS_SummeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spUStVVorschau_IT_SummeTableAdapter 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 = "spUStVVorschau_IT_Summe" tableMapping.ColumnMappings.Add("AdressenNr", "AdressenNr") tableMapping.ColumnMappings.Add("LandNr", "LandNr") tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Rechnungsnummer", "Rechnungsnummer") tableMapping.ColumnMappings.Add("Vorschaubetrag", "Vorschaubetrag") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spUStVVorschau_IT_Summe" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spUStVVorschau_IT_SummeDataTable, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Rechnungsdatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Rechnungsdatum As Global.System.Nullable(Of Date)) As VERAGDataSet.spUStVVorschau_IT_SummeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spUStVVorschau_IT_SummeDataTable = New VERAGDataSet.spUStVVorschau_IT_SummeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spUStVVorschau_MSE_SummeTableAdapter 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 = "spUStVVorschau_MSE_Summe" tableMapping.ColumnMappings.Add("AdressenNr", "AdressenNr") tableMapping.ColumnMappings.Add("LandNr", "LandNr") tableMapping.ColumnMappings.Add("Rechnungsdatum", "Rechnungsdatum") tableMapping.ColumnMappings.Add("Vorschaubetrag", "Vorschaubetrag") tableMapping.ColumnMappings.Add("Währungscode", "Währungscode") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spUStVVorschau_MSE_Summe" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spUStVVorschau_MSE_SummeDataTable, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Rechnungsdatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Rechnungsdatum As Global.System.Nullable(Of Date)) As VERAGDataSet.spUStVVorschau_MSE_SummeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spUStVVorschau_MSE_SummeDataTable = New VERAGDataSet.spUStVVorschau_MSE_SummeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spUStVVorschau_UTA_SummeTableAdapter 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 = "spUStVVorschau_UTA_Summe" tableMapping.ColumnMappings.Add("AdressenNr", "AdressenNr") tableMapping.ColumnMappings.Add("LandNr", "LandNr") tableMapping.ColumnMappings.Add("Vorschaubetrag", "Vorschaubetrag") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spUStVVorschau_UTA_Summe" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spUStVVorschau_UTA_SummeDataTable, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Rechnungsdatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Rechnungsdatum As Global.System.Nullable(Of Date)) As VERAGDataSet.spUStVVorschau_UTA_SummeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spUStVVorschau_UTA_SummeDataTable = New VERAGDataSet.spUStVVorschau_UTA_SummeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spUStVVorschau_VERAG_SummeTableAdapter 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 = "spUStVVorschau_VERAG_Summe" tableMapping.ColumnMappings.Add("AdressenNr", "AdressenNr") tableMapping.ColumnMappings.Add("LandNr", "LandNr") tableMapping.ColumnMappings.Add("Vorschaubetrag", "Vorschaubetrag") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spUStVVorschau_VERAG_Summe" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spUStVVorschau_VERAG_SummeDataTable, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Rechnungsdatum As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Rechnungsdatum As Global.System.Nullable(Of Date)) As VERAGDataSet.spUStVVorschau_VERAG_SummeDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (RechnungsKundenNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(RechnungsKundenNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsdatum.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Rechnungsdatum.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spUStVVorschau_VERAG_SummeDataTable = New VERAGDataSet.spUStVVorschau_VERAG_SummeDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class spZolaris_EZoll_NCTS_DatenbereitstellungTableAdapter 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 = "spZolaris_EZoll_NCTS_Datenbereitstellung" tableMapping.ColumnMappings.Add("CRN", "CRN") tableMapping.ColumnMappings.Add("AnmeldungsDatum", "AnmeldungsDatum") tableMapping.ColumnMappings.Add("GarantieWert", "GarantieWert") tableMapping.ColumnMappings.Add("AnmID", "AnmID") tableMapping.ColumnMappings.Add("ErledigungsTypID", "ErledigungsTypID") tableMapping.ColumnMappings.Add("Warenbezeichnung", "Warenbezeichnung") tableMapping.ColumnMappings.Add("Absender", "Absender") tableMapping.ColumnMappings.Add("Empfaenger", "Empfaenger") tableMapping.ColumnMappings.Add("Gesamtrohmasse", "Gesamtrohmasse") tableMapping.ColumnMappings.Add("Abgangszollstelle", "Abgangszollstelle") tableMapping.ColumnMappings.Add("Bestimmungszollstelle", "Bestimmungszollstelle") tableMapping.ColumnMappings.Add("LRN", "LRN") tableMapping.ColumnMappings.Add("DatumBestimmungErreicht", "DatumBestimmungErreicht") tableMapping.ColumnMappings.Add("GRN", "GRN") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SDL.My.MySettings.Default.VERAGConnectionString 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 = "dbo.spZolaris_EZoll_NCTS_Datenbereitstellung" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Param1", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Param2", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As VERAGDataSet.spZolaris_EZoll_NCTS_DatenbereitstellungDataTable, ByVal Param1 As Global.System.Nullable(Of Date), ByVal Param2 As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Param1.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Param1.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Param2.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Param2.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value 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 Param1 As Global.System.Nullable(Of Date), ByVal Param2 As Global.System.Nullable(Of Date)) As VERAGDataSet.spZolaris_EZoll_NCTS_DatenbereitstellungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Param1.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(Param1.Value,Date) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Param2.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(Param2.Value,Date) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If Dim dataTable As VERAGDataSet.spZolaris_EZoll_NCTS_DatenbereitstellungDataTable = New VERAGDataSet.spZolaris_EZoll_NCTS_DatenbereitstellungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class QueriesTableAdapter Inherits Global.System.ComponentModel.Component Private _commandCollection() As Global.System.Data.IDbCommand _ Protected ReadOnly Property CommandCollection() As Global.System.Data.IDbCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.IDbCommand(34) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spDELETEReErfSchRollbackRK" CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OffertenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERT_tblZabis_Atlas_NCTS" CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_basman_nr", Global.System.Data.SqlDbType.NVarChar, 4, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_basman_nl", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_beznr", Global.System.Data.SqlDbType.NVarChar, 22, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_lfdnr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_stat", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_arbnr", Global.System.Data.SqlDbType.NVarChar, 18, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_mrn", Global.System.Data.SqlDbType.NVarChar, 18, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_abgdst", Global.System.Data.SqlDbType.NVarChar, 8, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_bedst", Global.System.Data.SqlDbType.NVarChar, 8, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_wgdat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_anzpos", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_andat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_korant", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_vrbdat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoant_sb", Global.System.Data.SqlDbType.NVarChar, 8, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veopos_posnr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veopos_stat", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veopos_wbsch1", Global.System.Data.SqlDbType.NVarChar, 70, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veopos_rohmas", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 14, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoerz_sicbsc", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoerz_basbtg", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 15, 2, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoerz_sicbtg", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 15, 2, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_vegdat_erldat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_History", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_veoadr_name1", Global.System.Data.SqlDbType.[Char], 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTAufschubdaten" CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Fälligkeit", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_VorbuchNr", Global.System.Data.SqlDbType.NVarChar, 24, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Buchungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Abfertigungsort", Global.System.Data.SqlDbType.NVarChar, 27, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_WährungsKz", Global.System.Data.SqlDbType.NVarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Betrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Fakturiert", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTRechnungsausgangAusAccess" CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UnterNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BelegartenKz", Global.System.Data.SqlDbType.NVarChar, 2, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BelegartenBez", Global.System.Data.SqlDbType.NVarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Vorzeichen", Global.System.Data.SqlDbType.NVarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BelegNr", Global.System.Data.SqlDbType.NVarChar, 27, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AbsenderLandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AbsenderKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AbsenderName1", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AbsenderName2", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AbsenderStraße", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AbsenderOrt", Global.System.Data.SqlDbType.NVarChar, 52, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AbsenderOffertenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_EmpfängerLandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_EmpfängerKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_EmpfängerName1", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_EmpfängerName2", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_EmpfängerStraße", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_EmpfängerOrt", Global.System.Data.SqlDbType.NVarChar, 52, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_EmpfängerOffertenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_VermittlerLandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_VermittlerKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_VermittlerName1", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_VermittlerName2", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_VermittlerStraße", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_VermittlerOrt", Global.System.Data.SqlDbType.NVarChar, 52, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_VermittlerOffertenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Rechnungan", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_KundenNrZentrale", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsLandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsName1", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsName2", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsStraße", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsOrt", Global.System.Data.SqlDbType.NVarChar, 52, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsUstIdKz", Global.System.Data.SqlDbType.NVarChar, 2, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsUstIdNr", Global.System.Data.SqlDbType.NVarChar, 12, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsUstIdGeprüft", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Lastschrift", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Kunden_SVS", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Steuersatz", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_LKWKennzeichen", Global.System.Data.SqlDbType.NVarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_WährungsNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Wert", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Umrechnungskurs", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 53, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_PackstückeundWarenbezeichnung", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Vermerk", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Anlage1", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Anlage2", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Anlage3", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Anlage4", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Anlage5", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Anlage6", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_OffertenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Vorlageprovision", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Kreditaufwendungen", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Besonderheiten", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Vorkasse", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Text", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerpflichtigerGesamtbetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerfreierGesamtbetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Status", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_DruckDatumZeit", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Abfertigungskosten", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Vorkosten", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Erlös", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Währungscode", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Trdin", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_KartenNr", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RefFilialenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RefAbfertigungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RefUnterNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Notiz", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Zucker_MRN_Nr", Global.System.Data.SqlDbType.NVarChar, 18, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Zucker_MRN_Datum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Zucker_Aufschub", Global.System.Data.SqlDbType.NVarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_ReErfZeitstempel", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Nettozahlungsziel", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SpeditionsbuchUnterNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(3),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_ErfassungsNr", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTRechnungsausgangPositionen" CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_LeistungsBez", Global.System.Data.SqlDbType.NVarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_IndexZkteing", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BerechnungsartNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Preis", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Anzahl", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerpflichtigerBetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerfreierBetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AufschubkontoNr", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Aufschubfälligkeit", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Prüfsummeberechnen", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_DateiNameAufschub", Global.System.Data.SqlDbType.NVarChar, 12, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Preisbindung", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Belegdaten", Global.System.Data.SqlDbType.NVarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Fremdwährung", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BGebLeistungsNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BGebProzent", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BGebBgl", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BGebMinBetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(4),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RePosZeitstempel", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(5),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(5),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTRechnungsnummern" CType(Me._commandCollection(5),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(5),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(5),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SpeditionsbuchNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(5),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(5),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_VonRechnungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(5),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BisRechnungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(5),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_LfdRechnungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblAnmeldung" CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 4, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Login", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logout", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(6),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Programmversion", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(7),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(7),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblHistorie" CType(Me._commandCollection(7),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(7),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(7),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(7),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(7),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Login", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(7),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logout", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblLogbuch" CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SwitchboardID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemNumber", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemText", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Command", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Argument", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(8),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Programmversion", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(9) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(9),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(9),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblQS_Abfertigungsarten" CType(Me._commandCollection(9),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(9),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(9),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(9),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Abfertigungsart_Bezeichnung", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(10) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(10),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(10),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblQS_Aufträge" CType(Me._commandCollection(10),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(10),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(10),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Auftrags_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(10),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Auftrags_Datum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(10),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Sachbearbeiter_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(10),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Frachtführer_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(10),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Kennzeichen_LKW", Global.System.Data.SqlDbType.NVarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(10),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Sendungen_Gesamtanzahl", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(11) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(11),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(11),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblQS_Auftragspositionen" CType(Me._commandCollection(11),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(11),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(11),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Auftrags_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(11),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Abfertigungsart_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(11),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_QS_Abfertigungsart_Anzahl", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(12) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblTrdinInvoice" CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Rechnungsnummer", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Speditionsbuch", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_FilialenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AbfertigungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UnterNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_KundenNrZentrale", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsLandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsUstIdKz", Global.System.Data.SqlDbType.NVarChar, 2, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsUstIdNr", Global.System.Data.SqlDbType.NVarChar, 12, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Lastschrift", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Steuersatz", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_WährungLokal", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerpflichtigerBetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerfreierBetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerbetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsbetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_WährungFremd", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerpflichtigerBetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerfreierBetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerbetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_RechnungsbetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_TrdinDateiname", Global.System.Data.SqlDbType.NVarChar, 12, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Abgleich_op_debitor", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Nettozahlungsziel", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(12),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVAn_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(13) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblTrdinProduct" CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Rechnungsnummer", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Leistungsnummer", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerpflichtigerBetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerfreierBetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerpflichtigerBetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_SteuerfreierBetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Belegdaten", Global.System.Data.SqlDbType.NVarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Sachkonto", Global.System.Data.SqlDbType.NVarChar, 7, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(13),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Buchungstext", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(14) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblUStVAntrag" CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_KuNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Name", Global.System.Data.SqlDbType.NVarChar, 80, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Straße", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_LandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_PLZ", Global.System.Data.SqlDbType.NVarChar, 7, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Ort", Global.System.Data.SqlDbType.NVarChar, 40, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Land", Global.System.Data.SqlDbType.NVarChar, 22, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Gewerbe", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Steuernummer", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ReDatVon", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ReDatBis", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Bankverbindung", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BLZ", Global.System.Data.SqlDbType.NVarChar, 8, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_KTO", Global.System.Data.SqlDbType.NVarChar, 12, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Kontoinhaber", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BIC", Global.System.Data.SqlDbType.NVarChar, 11, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_IBAN", Global.System.Data.SqlDbType.NVarChar, 27, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Anlagen", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Rechnungen", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Einfuhrdokumente", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_a", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_b_1", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_b_2", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erklärung_9_b_3", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Ausstellungsort", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Ausstellungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Unterschrift", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_LandNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Beleganzahl", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BeleganzahlRetourniert", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Retournierungsgrund", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_AntragEingereichtAm", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BelegeWeitergeleitetAm", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Vertreter", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_BezugsNr", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_3470", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_VZBetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_VZDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_RZBetragVZ", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_RZDatumVZ", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Währungscode", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_USteuerbetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Erstattungsbetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_USteuerbetragEUR", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ErstattungsbetragEUR", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(14),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_zeitstempel", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(15) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblUStVBelegeingang" CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVBe_KuNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVBe_EinDat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVBe_EinNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVBe_UStBetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVBe_Beleganzahl", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVBe_Retourniert", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVBe_Bemerkung", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVBe_WeiterDat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVBe_Empfänger", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(15),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVBe_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(16) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblUStVErstattung" CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVAn_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVEr_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVEr_USteuerbetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Belegdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Belegnummer", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_GutschriftsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_GutschriftsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Berufungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Berufungshöhe", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Berufungsgrund", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Bemerkung", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVEr_Umrechnungskurs", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 53, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVEr_USteuerbetragEUR", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVEr_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(16),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_UStVEr_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(17) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblUStVPositionen" CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ReDat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_ReNr", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_USteuerbetrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Leistender", Global.System.Data.SqlDbType.NVarChar, 65, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Schnittstelle", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_SchnittstellenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Umrechnungskurs", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 53, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_USteuerbetragEUR", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(17),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVPo_Zeitstempel", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(18) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTtblZolaris_EZoll_NCTS" CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_CRN", Global.System.Data.SqlDbType.NVarChar, 21, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AnmeldungsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_GarantieWert", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AnmID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_ErledigungsTypID", Global.System.Data.SqlDbType.NVarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Warenbezeichnung", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Absender", Global.System.Data.SqlDbType.NVarChar, 137, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Empfaenger", Global.System.Data.SqlDbType.NVarChar, 137, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Gesamtrohmasse", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 53, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Abgangszollstelle", Global.System.Data.SqlDbType.NVarChar, 8, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Bestimmungszollstelle", Global.System.Data.SqlDbType.NVarChar, 8, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Gestellungsfrist", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_LRN", Global.System.Data.SqlDbType.NVarChar, 22, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_DatumBestimmungErreicht", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(18),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_GRN", Global.System.Data.SqlDbType.NVarChar, 24, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(19) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spINSERTZkteingAusAccess" CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Index", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Status", Global.System.Data.SqlDbType.NVarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_ZollamtsNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Jahr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_KennNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Nummer", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Leitzahl", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Belegart", Global.System.Data.SqlDbType.NVarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_LeistungsNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Betrag", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Eingabedatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Übernahmedatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Bemerkung", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Bezugsnummer", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Registriernummer", Global.System.Data.SqlDbType.NVarChar, 21, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Korrekturnummer", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AOFD", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_AKTO", Global.System.Data.SqlDbType.NVarChar, 6, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Fälligkeitsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Dateiname", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Mandant", Global.System.Data.SqlDbType.NVarChar, 4, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(19),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@I_Niederlassung", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(20) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(20),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(20),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spSqlLookup" CType(Me._commandCollection(20),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(20),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(20),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Spalte", Global.System.Data.SqlDbType.NVarChar, 128, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(20),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Schema", Global.System.Data.SqlDbType.NVarChar, 128, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(20),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Tabelle", Global.System.Data.SqlDbType.NVarChar, 128, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(20),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bedingung", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(21) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(21),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(21),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spTrdinFiBuUpdateInvoice" CType(Me._commandCollection(21),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(21),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(21),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(21),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(21),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TrdinDateiname", Global.System.Data.SqlDbType.NVarChar, 12, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(22) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spTrdinSchreibenInsertInvoice" CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Speditionsbuch", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FilialenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AbfertigungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UnterNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abfertigungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KundenNrZentrale", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsLandKz", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdKz", Global.System.Data.SqlDbType.NVarChar, 2, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsUstIdNr", Global.System.Data.SqlDbType.NVarChar, 12, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerschlüssel", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuersatzProzent", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungLokal", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerbetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsbetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WährungFremd", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerbetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsbetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TrdinDateiname", Global.System.Data.SqlDbType.NVarChar, 12, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Abgleich_op_debitor", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nettozahlungsziel", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(22),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UStVAn_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(23) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spTrdinSchreibenInsertProduct" CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsdatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rechnungsnummer", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsnummer", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Leistungsbezeichnung", Global.System.Data.SqlDbType.NVarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuerpflichtig", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragLokal", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerpflichtigerBetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SteuerfreierBetragFremd", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Belegdaten", Global.System.Data.SqlDbType.NVarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachkonto", Global.System.Data.SqlDbType.NVarChar, 7, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(23),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Buchungstext", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(24) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(24),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(24),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spTrdinSchreibenUpdateRK" CType(Me._commandCollection(24),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(24),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(24),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(24),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(24),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Trdin", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(25) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spUPDATE_tblZabis_Atlas_NCTS" CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_basman_nr", Global.System.Data.SqlDbType.NVarChar, 4, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_basman_nl", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_beznr", Global.System.Data.SqlDbType.NVarChar, 22, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_lfdnr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_stat", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_arbnr", Global.System.Data.SqlDbType.NVarChar, 18, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_mrn", Global.System.Data.SqlDbType.NVarChar, 18, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_abgdst", Global.System.Data.SqlDbType.NVarChar, 8, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_bedst", Global.System.Data.SqlDbType.NVarChar, 8, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_wgdat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_anzpos", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_andat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_korant", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_vrbdat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoant_sb", Global.System.Data.SqlDbType.NVarChar, 8, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veopos_posnr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veopos_stat", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veopos_wbsch1", Global.System.Data.SqlDbType.NVarChar, 70, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veopos_rohmas", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 14, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoerz_sicbsc", Global.System.Data.SqlDbType.NVarChar, 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoerz_basbtg", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 15, 2, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoerz_sicbtg", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 15, 2, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_vegdat_erldat", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_History", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_veoadr_name1", Global.System.Data.SqlDbType.[Char], 35, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(25),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID_NCTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(26) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(26),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(26),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spUPDATEReDruFirma_ID" CType(Me._commandCollection(26),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(26),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(26),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(26),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(27) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(27),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(27),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spUPDATEReDruSachbearbeiterEintragen" CType(Me._commandCollection(27),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(27),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(27),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(28) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spUPDATEReDruSaReNrEintragen" CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_RechnungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_Buchungsjahr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_DruckDatumZeit", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_Status", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(28),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(29) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spUPDATEReDruSumReGu" CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_BelegartenNr", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_BelegartenKz", Global.System.Data.SqlDbType.NVarChar, 2, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_BelegartenBez", Global.System.Data.SqlDbType.NVarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_Vorzeichen", Global.System.Data.SqlDbType.NVarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Firma_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sammelrechnung", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sachbearbeiter", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsKundenNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Währungscode", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Steuersatz", Global.System.Data.SqlDbType.Real, 4, Global.System.Data.ParameterDirection.Input, 24, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(29),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Lastschrift", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 1, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(30) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(30),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(30),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spUPDATEReDruText" CType(Me._commandCollection(30),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(30),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(30),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_Text", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(30),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_Nettozahlungsziel", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(30),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(31) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(31),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(31),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spUPDATEReErfKA" CType(Me._commandCollection(31),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(31),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(31),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_Preis", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(31),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_Anzahl", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(31),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(32) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(32),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(32),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spUPDATEReErfVL" CType(Me._commandCollection(32),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(32),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(32),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_Preis", Global.System.Data.SqlDbType.Money, 8, Global.System.Data.ParameterDirection.Input, 19, 4, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(32),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@U_Anzahl", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(32),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(33) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(33),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(33),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spUpdateRKEMailRechnungstext" CType(Me._commandCollection(33),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(33),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(33),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(33),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RechnungsDatum", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(33),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMailRechnungstext", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(34) = New Global.System.Data.SqlClient.SqlCommand() CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.SDL.My.MySettings.Default.VERAGConnectionString) CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.spUPDATEtblAnmeldungPKey" CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Computername", Global.System.Data.SqlDbType.NVarChar, 15, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Benutzername", Global.System.Data.SqlDbType.NVarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.NVarChar, 4, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Niederlassung", Global.System.Data.SqlDbType.NVarChar, 3, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Login", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logout", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) CType(Me._commandCollection(34),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Programmversion", Global.System.Data.SqlDbType.NVarChar, 255, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function spDELETEReErfSchRollbackRK(ByVal Sachbearbeiter As String, ByVal FilialenNr As Global.System.Nullable(Of Short), ByVal OffertenNr As Global.System.Nullable(Of Short)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(0),Global.System.Data.SqlClient.SqlCommand) If (Sachbearbeiter Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(Sachbearbeiter,String) End If If (FilialenNr.HasValue = true) Then command.Parameters(2).Value = CType(FilialenNr.Value,Short) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (OffertenNr.HasValue = true) Then command.Parameters(3).Value = CType(OffertenNr.Value,Short) Else command.Parameters(3).Value = Global.System.DBNull.Value 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 spINSERT_tblZabis_Atlas_NCTS( _ ByVal I_basman_nr As String, _ ByVal I_basman_nl As String, _ ByVal I_veoant_beznr As String, _ ByVal I_veoant_lfdnr As Global.System.Nullable(Of Short), _ ByVal I_veoant_stat As Global.System.Nullable(Of Short), _ ByVal I_veoant_arbnr As String, _ ByVal I_veoant_mrn As String, _ ByVal I_veoant_abgdst As String, _ ByVal I_veoant_bedst As String, _ ByVal I_veoant_wgdat As Global.System.Nullable(Of Date), _ ByVal I_veoant_anzpos As Global.System.Nullable(Of Short), _ ByVal I_veoant_andat As Global.System.Nullable(Of Date), _ ByVal I_veoant_korant As Global.System.Nullable(Of Short), _ ByVal I_veoant_vrbdat As Global.System.Nullable(Of Date), _ ByVal I_veoant_sb As String, _ ByVal I_veopos_posnr As Global.System.Nullable(Of Short), _ ByVal I_veopos_stat As Global.System.Nullable(Of Short), _ ByVal I_veopos_wbsch1 As String, _ ByVal I_veopos_rohmas As Global.System.Nullable(Of Decimal), _ ByVal I_veoerz_sicbsc As String, _ ByVal I_veoerz_basbtg As Global.System.Nullable(Of Decimal), _ ByVal I_veoerz_sicbtg As Global.System.Nullable(Of Decimal), _ ByVal I_vegdat_erldat As Global.System.Nullable(Of Date), _ ByVal I_History As Global.System.Nullable(Of Boolean), _ ByVal I_veoadr_name1 As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(1),Global.System.Data.SqlClient.SqlCommand) If (I_basman_nr Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(I_basman_nr,String) End If If (I_basman_nl Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else command.Parameters(2).Value = CType(I_basman_nl,String) End If If (I_veoant_beznr Is Nothing) Then command.Parameters(3).Value = Global.System.DBNull.Value Else command.Parameters(3).Value = CType(I_veoant_beznr,String) End If If (I_veoant_lfdnr.HasValue = true) Then command.Parameters(4).Value = CType(I_veoant_lfdnr.Value,Short) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (I_veoant_stat.HasValue = true) Then command.Parameters(5).Value = CType(I_veoant_stat.Value,Short) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (I_veoant_arbnr Is Nothing) Then command.Parameters(6).Value = Global.System.DBNull.Value Else command.Parameters(6).Value = CType(I_veoant_arbnr,String) End If If (I_veoant_mrn Is Nothing) Then command.Parameters(7).Value = Global.System.DBNull.Value Else command.Parameters(7).Value = CType(I_veoant_mrn,String) End If If (I_veoant_abgdst Is Nothing) Then command.Parameters(8).Value = Global.System.DBNull.Value Else command.Parameters(8).Value = CType(I_veoant_abgdst,String) End If If (I_veoant_bedst Is Nothing) Then command.Parameters(9).Value = Global.System.DBNull.Value Else command.Parameters(9).Value = CType(I_veoant_bedst,String) End If If (I_veoant_wgdat.HasValue = true) Then command.Parameters(10).Value = CType(I_veoant_wgdat.Value,Date) Else command.Parameters(10).Value = Global.System.DBNull.Value End If If (I_veoant_anzpos.HasValue = true) Then command.Parameters(11).Value = CType(I_veoant_anzpos.Value,Short) Else command.Parameters(11).Value = Global.System.DBNull.Value End If If (I_veoant_andat.HasValue = true) Then command.Parameters(12).Value = CType(I_veoant_andat.Value,Date) Else command.Parameters(12).Value = Global.System.DBNull.Value End If If (I_veoant_korant.HasValue = true) Then command.Parameters(13).Value = CType(I_veoant_korant.Value,Short) Else command.Parameters(13).Value = Global.System.DBNull.Value End If If (I_veoant_vrbdat.HasValue = true) Then command.Parameters(14).Value = CType(I_veoant_vrbdat.Value,Date) Else command.Parameters(14).Value = Global.System.DBNull.Value End If If (I_veoant_sb Is Nothing) Then command.Parameters(15).Value = Global.System.DBNull.Value Else command.Parameters(15).Value = CType(I_veoant_sb,String) End If If (I_veopos_posnr.HasValue = true) Then command.Parameters(16).Value = CType(I_veopos_posnr.Value,Short) Else command.Parameters(16).Value = Global.System.DBNull.Value End If If (I_veopos_stat.HasValue = true) Then command.Parameters(17).Value = CType(I_veopos_stat.Value,Short) Else command.Parameters(17).Value = Global.System.DBNull.Value End If If (I_veopos_wbsch1 Is Nothing) Then command.Parameters(18).Value = Global.System.DBNull.Value Else command.Parameters(18).Value = CType(I_veopos_wbsch1,String) End If If (I_veopos_rohmas.HasValue = true) Then command.Parameters(19).Value = CType(I_veopos_rohmas.Value,Decimal) Else command.Parameters(19).Value = Global.System.DBNull.Value End If If (I_veoerz_sicbsc Is Nothing) Then command.Parameters(20).Value = Global.System.DBNull.Value Else command.Parameters(20).Value = CType(I_veoerz_sicbsc,String) End If If (I_veoerz_basbtg.HasValue = true) Then command.Parameters(21).Value = CType(I_veoerz_basbtg.Value,Decimal) Else command.Parameters(21).Value = Global.System.DBNull.Value End If If (I_veoerz_sicbtg.HasValue = true) Then command.Parameters(22).Value = CType(I_veoerz_sicbtg.Value,Decimal) Else command.Parameters(22).Value = Global.System.DBNull.Value End If If (I_vegdat_erldat.HasValue = true) Then command.Parameters(23).Value = CType(I_vegdat_erldat.Value,Date) Else command.Parameters(23).Value = Global.System.DBNull.Value End If If (I_History.HasValue = true) Then command.Parameters(24).Value = CType(I_History.Value,Boolean) Else command.Parameters(24).Value = Global.System.DBNull.Value End If If (I_veoadr_name1 Is Nothing) Then command.Parameters(25).Value = Global.System.DBNull.Value Else command.Parameters(25).Value = CType(I_veoadr_name1,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 spINSERTAufschubdaten(ByVal I_AufschubkontoNr As String, ByVal I_Fälligkeit As Global.System.Nullable(Of Date), ByVal I_VorbuchNr As String, ByVal I_Buchungsdatum As Global.System.Nullable(Of Date), ByVal I_Abfertigungsort As String, ByVal I_WährungsKz As String, ByVal I_Betrag As Global.System.Nullable(Of Decimal), ByVal I_Fakturiert As Global.System.Nullable(Of Decimal)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(2),Global.System.Data.SqlClient.SqlCommand) If (I_AufschubkontoNr Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(I_AufschubkontoNr,String) End If If (I_Fälligkeit.HasValue = true) Then command.Parameters(2).Value = CType(I_Fälligkeit.Value,Date) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_VorbuchNr Is Nothing) Then command.Parameters(3).Value = Global.System.DBNull.Value Else command.Parameters(3).Value = CType(I_VorbuchNr,String) End If If (I_Buchungsdatum.HasValue = true) Then command.Parameters(4).Value = CType(I_Buchungsdatum.Value,Date) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (I_Abfertigungsort Is Nothing) Then command.Parameters(5).Value = Global.System.DBNull.Value Else command.Parameters(5).Value = CType(I_Abfertigungsort,String) End If If (I_WährungsKz Is Nothing) Then command.Parameters(6).Value = Global.System.DBNull.Value Else command.Parameters(6).Value = CType(I_WährungsKz,String) End If If (I_Betrag.HasValue = true) Then command.Parameters(7).Value = CType(I_Betrag.Value,Decimal) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (I_Fakturiert.HasValue = true) Then command.Parameters(8).Value = CType(I_Fakturiert.Value,Decimal) Else command.Parameters(8).Value = Global.System.DBNull.Value 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 spINSERTRechnungsausgangAusAccess( _ ByVal I_RK_ID As Global.System.Nullable(Of Integer), _ ByVal I_FilialenNr As Global.System.Nullable(Of Short), _ ByVal I_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal I_UnterNr As Global.System.Nullable(Of Short), _ ByVal I_Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal I_RechnungsNr As Global.System.Nullable(Of Integer), _ ByVal I_RechnungsDatum As Global.System.Nullable(Of Date), _ ByVal I_Sammelrechnung As Global.System.Nullable(Of Short), _ ByVal I_BelegartenNr As Global.System.Nullable(Of Short), _ ByVal I_BelegartenKz As String, _ ByVal I_BelegartenBez As String, _ ByVal I_Vorzeichen As String, _ ByVal I_BelegNr As String, _ ByVal I_AbsenderLandKz As String, _ ByVal I_AbsenderKundenNr As Global.System.Nullable(Of Integer), _ ByVal I_AbsenderName1 As String, _ ByVal I_AbsenderName2 As String, _ ByVal I_AbsenderStraße As String, _ ByVal I_AbsenderOrt As String, _ ByVal I_AbsenderOffertenNr As Global.System.Nullable(Of Short), _ ByVal I_EmpfängerLandKz As String, _ ByVal I_EmpfängerKundenNr As Global.System.Nullable(Of Integer), _ ByVal I_EmpfängerName1 As String, _ ByVal I_EmpfängerName2 As String, _ ByVal I_EmpfängerStraße As String, _ ByVal I_EmpfängerOrt As String, _ ByVal I_EmpfängerOffertenNr As Global.System.Nullable(Of Short), _ ByVal I_VermittlerLandKz As String, _ ByVal I_VermittlerKundenNr As Global.System.Nullable(Of Integer), _ ByVal I_VermittlerName1 As String, _ ByVal I_VermittlerName2 As String, _ ByVal I_VermittlerStraße As String, _ ByVal I_VermittlerOrt As String, _ ByVal I_VermittlerOffertenNr As Global.System.Nullable(Of Short), _ ByVal I_Rechnungan As Global.System.Nullable(Of Short), _ ByVal I_KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal I_RechnungsLandKz As String, _ ByVal I_RechnungsKundenNr As Global.System.Nullable(Of Integer), _ ByVal I_RechnungsName1 As String, _ ByVal I_RechnungsName2 As String, _ ByVal I_RechnungsStraße As String, _ ByVal I_RechnungsOrt As String, _ ByVal I_RechnungsUstIdKz As String, _ ByVal I_RechnungsUstIdNr As String, _ ByVal I_RechnungsUstIdGeprüft As Global.System.Nullable(Of Date), _ ByVal I_Lastschrift As Global.System.Nullable(Of Boolean), _ ByVal I_Kunden_SVS As Global.System.Nullable(Of Boolean), _ ByVal I_Steuerschlüssel As Global.System.Nullable(Of Short), _ ByVal I_Steuersatz As Global.System.Nullable(Of Single), _ ByVal I_LKWKennzeichen As String, _ ByVal I_WährungsNr As Global.System.Nullable(Of Short), _ ByVal I_Wert As Global.System.Nullable(Of Decimal), _ ByVal I_Umrechnungskurs As Global.System.Nullable(Of Double), _ ByVal I_PackstückeundWarenbezeichnung As String, _ ByVal I_Vermerk As String, _ ByVal I_Anlage1 As String, _ ByVal I_Anlage2 As String, _ ByVal I_Anlage3 As String, _ ByVal I_Anlage4 As String, _ ByVal I_Anlage5 As String, _ ByVal I_Anlage6 As String, _ ByVal I_OffertenNr As Global.System.Nullable(Of Short), _ ByVal I_Vorlageprovision As Global.System.Nullable(Of Single), _ ByVal I_Kreditaufwendungen As Global.System.Nullable(Of Single), _ ByVal I_Besonderheiten As String, _ ByVal I_Vorkasse As Global.System.Nullable(Of Boolean), _ ByVal I_Text As String, _ ByVal I_SteuerpflichtigerGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal I_SteuerfreierGesamtbetrag As Global.System.Nullable(Of Decimal), _ ByVal I_Status As Global.System.Nullable(Of Short), _ ByVal I_DruckDatumZeit As Global.System.Nullable(Of Date), _ ByVal I_Abfertigungskosten As Global.System.Nullable(Of Decimal), _ ByVal I_Vorkosten As Global.System.Nullable(Of Decimal), _ ByVal I_Erlös As Global.System.Nullable(Of Decimal), _ ByVal I_Buchungsjahr As Global.System.Nullable(Of Short), _ ByVal I_Währungscode As String, _ ByVal I_Sachbearbeiter As String, _ ByVal I_Trdin As Global.System.Nullable(Of Boolean), _ ByVal I_KartenNr As String, _ ByVal I_RefFilialenNr As Global.System.Nullable(Of Short), _ ByVal I_RefAbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal I_RefUnterNr As Global.System.Nullable(Of Short), _ ByVal I_Notiz As String, _ ByVal I_Zucker_MRN_Nr As String, _ ByVal I_Zucker_MRN_Datum As Global.System.Nullable(Of Date), _ ByVal I_Zucker_Aufschub As String, _ ByVal I_ReErfZeitstempel As Global.System.Nullable(Of Date), _ ByVal I_Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal I_Firma_ID As Global.System.Nullable(Of Short), _ ByVal I_SpeditionsbuchUnterNr As Global.System.Nullable(Of Short), _ ByVal I_ErfassungsNr As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(3),Global.System.Data.SqlClient.SqlCommand) If (I_RK_ID.HasValue = true) Then command.Parameters(1).Value = CType(I_RK_ID.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_FilialenNr.HasValue = true) Then command.Parameters(2).Value = CType(I_FilialenNr.Value,Short) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_AbfertigungsNr.HasValue = true) Then command.Parameters(3).Value = CType(I_AbfertigungsNr.Value,Integer) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (I_UnterNr.HasValue = true) Then command.Parameters(4).Value = CType(I_UnterNr.Value,Short) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (I_Abfertigungsdatum.HasValue = true) Then command.Parameters(5).Value = CType(I_Abfertigungsdatum.Value,Date) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (I_RechnungsNr.HasValue = true) Then command.Parameters(6).Value = CType(I_RechnungsNr.Value,Integer) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (I_RechnungsDatum.HasValue = true) Then command.Parameters(7).Value = CType(I_RechnungsDatum.Value,Date) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (I_Sammelrechnung.HasValue = true) Then command.Parameters(8).Value = CType(I_Sammelrechnung.Value,Short) Else command.Parameters(8).Value = Global.System.DBNull.Value End If If (I_BelegartenNr.HasValue = true) Then command.Parameters(9).Value = CType(I_BelegartenNr.Value,Short) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (I_BelegartenKz Is Nothing) Then command.Parameters(10).Value = Global.System.DBNull.Value Else command.Parameters(10).Value = CType(I_BelegartenKz,String) End If If (I_BelegartenBez Is Nothing) Then command.Parameters(11).Value = Global.System.DBNull.Value Else command.Parameters(11).Value = CType(I_BelegartenBez,String) End If If (I_Vorzeichen Is Nothing) Then command.Parameters(12).Value = Global.System.DBNull.Value Else command.Parameters(12).Value = CType(I_Vorzeichen,String) End If If (I_BelegNr Is Nothing) Then command.Parameters(13).Value = Global.System.DBNull.Value Else command.Parameters(13).Value = CType(I_BelegNr,String) End If If (I_AbsenderLandKz Is Nothing) Then command.Parameters(14).Value = Global.System.DBNull.Value Else command.Parameters(14).Value = CType(I_AbsenderLandKz,String) End If If (I_AbsenderKundenNr.HasValue = true) Then command.Parameters(15).Value = CType(I_AbsenderKundenNr.Value,Integer) Else command.Parameters(15).Value = Global.System.DBNull.Value End If If (I_AbsenderName1 Is Nothing) Then command.Parameters(16).Value = Global.System.DBNull.Value Else command.Parameters(16).Value = CType(I_AbsenderName1,String) End If If (I_AbsenderName2 Is Nothing) Then command.Parameters(17).Value = Global.System.DBNull.Value Else command.Parameters(17).Value = CType(I_AbsenderName2,String) End If If (I_AbsenderStraße Is Nothing) Then command.Parameters(18).Value = Global.System.DBNull.Value Else command.Parameters(18).Value = CType(I_AbsenderStraße,String) End If If (I_AbsenderOrt Is Nothing) Then command.Parameters(19).Value = Global.System.DBNull.Value Else command.Parameters(19).Value = CType(I_AbsenderOrt,String) End If If (I_AbsenderOffertenNr.HasValue = true) Then command.Parameters(20).Value = CType(I_AbsenderOffertenNr.Value,Short) Else command.Parameters(20).Value = Global.System.DBNull.Value End If If (I_EmpfängerLandKz Is Nothing) Then command.Parameters(21).Value = Global.System.DBNull.Value Else command.Parameters(21).Value = CType(I_EmpfängerLandKz,String) End If If (I_EmpfängerKundenNr.HasValue = true) Then command.Parameters(22).Value = CType(I_EmpfängerKundenNr.Value,Integer) Else command.Parameters(22).Value = Global.System.DBNull.Value End If If (I_EmpfängerName1 Is Nothing) Then command.Parameters(23).Value = Global.System.DBNull.Value Else command.Parameters(23).Value = CType(I_EmpfängerName1,String) End If If (I_EmpfängerName2 Is Nothing) Then command.Parameters(24).Value = Global.System.DBNull.Value Else command.Parameters(24).Value = CType(I_EmpfängerName2,String) End If If (I_EmpfängerStraße Is Nothing) Then command.Parameters(25).Value = Global.System.DBNull.Value Else command.Parameters(25).Value = CType(I_EmpfängerStraße,String) End If If (I_EmpfängerOrt Is Nothing) Then command.Parameters(26).Value = Global.System.DBNull.Value Else command.Parameters(26).Value = CType(I_EmpfängerOrt,String) End If If (I_EmpfängerOffertenNr.HasValue = true) Then command.Parameters(27).Value = CType(I_EmpfängerOffertenNr.Value,Short) Else command.Parameters(27).Value = Global.System.DBNull.Value End If If (I_VermittlerLandKz Is Nothing) Then command.Parameters(28).Value = Global.System.DBNull.Value Else command.Parameters(28).Value = CType(I_VermittlerLandKz,String) End If If (I_VermittlerKundenNr.HasValue = true) Then command.Parameters(29).Value = CType(I_VermittlerKundenNr.Value,Integer) Else command.Parameters(29).Value = Global.System.DBNull.Value End If If (I_VermittlerName1 Is Nothing) Then command.Parameters(30).Value = Global.System.DBNull.Value Else command.Parameters(30).Value = CType(I_VermittlerName1,String) End If If (I_VermittlerName2 Is Nothing) Then command.Parameters(31).Value = Global.System.DBNull.Value Else command.Parameters(31).Value = CType(I_VermittlerName2,String) End If If (I_VermittlerStraße Is Nothing) Then command.Parameters(32).Value = Global.System.DBNull.Value Else command.Parameters(32).Value = CType(I_VermittlerStraße,String) End If If (I_VermittlerOrt Is Nothing) Then command.Parameters(33).Value = Global.System.DBNull.Value Else command.Parameters(33).Value = CType(I_VermittlerOrt,String) End If If (I_VermittlerOffertenNr.HasValue = true) Then command.Parameters(34).Value = CType(I_VermittlerOffertenNr.Value,Short) Else command.Parameters(34).Value = Global.System.DBNull.Value End If If (I_Rechnungan.HasValue = true) Then command.Parameters(35).Value = CType(I_Rechnungan.Value,Short) Else command.Parameters(35).Value = Global.System.DBNull.Value End If If (I_KundenNrZentrale.HasValue = true) Then command.Parameters(36).Value = CType(I_KundenNrZentrale.Value,Integer) Else command.Parameters(36).Value = Global.System.DBNull.Value End If If (I_RechnungsLandKz Is Nothing) Then command.Parameters(37).Value = Global.System.DBNull.Value Else command.Parameters(37).Value = CType(I_RechnungsLandKz,String) End If If (I_RechnungsKundenNr.HasValue = true) Then command.Parameters(38).Value = CType(I_RechnungsKundenNr.Value,Integer) Else command.Parameters(38).Value = Global.System.DBNull.Value End If If (I_RechnungsName1 Is Nothing) Then command.Parameters(39).Value = Global.System.DBNull.Value Else command.Parameters(39).Value = CType(I_RechnungsName1,String) End If If (I_RechnungsName2 Is Nothing) Then command.Parameters(40).Value = Global.System.DBNull.Value Else command.Parameters(40).Value = CType(I_RechnungsName2,String) End If If (I_RechnungsStraße Is Nothing) Then command.Parameters(41).Value = Global.System.DBNull.Value Else command.Parameters(41).Value = CType(I_RechnungsStraße,String) End If If (I_RechnungsOrt Is Nothing) Then command.Parameters(42).Value = Global.System.DBNull.Value Else command.Parameters(42).Value = CType(I_RechnungsOrt,String) End If If (I_RechnungsUstIdKz Is Nothing) Then command.Parameters(43).Value = Global.System.DBNull.Value Else command.Parameters(43).Value = CType(I_RechnungsUstIdKz,String) End If If (I_RechnungsUstIdNr Is Nothing) Then command.Parameters(44).Value = Global.System.DBNull.Value Else command.Parameters(44).Value = CType(I_RechnungsUstIdNr,String) End If If (I_RechnungsUstIdGeprüft.HasValue = true) Then command.Parameters(45).Value = CType(I_RechnungsUstIdGeprüft.Value,Date) Else command.Parameters(45).Value = Global.System.DBNull.Value End If If (I_Lastschrift.HasValue = true) Then command.Parameters(46).Value = CType(I_Lastschrift.Value,Boolean) Else command.Parameters(46).Value = Global.System.DBNull.Value End If If (I_Kunden_SVS.HasValue = true) Then command.Parameters(47).Value = CType(I_Kunden_SVS.Value,Boolean) Else command.Parameters(47).Value = Global.System.DBNull.Value End If If (I_Steuerschlüssel.HasValue = true) Then command.Parameters(48).Value = CType(I_Steuerschlüssel.Value,Short) Else command.Parameters(48).Value = Global.System.DBNull.Value End If If (I_Steuersatz.HasValue = true) Then command.Parameters(49).Value = CType(I_Steuersatz.Value,Single) Else command.Parameters(49).Value = Global.System.DBNull.Value End If If (I_LKWKennzeichen Is Nothing) Then command.Parameters(50).Value = Global.System.DBNull.Value Else command.Parameters(50).Value = CType(I_LKWKennzeichen,String) End If If (I_WährungsNr.HasValue = true) Then command.Parameters(51).Value = CType(I_WährungsNr.Value,Short) Else command.Parameters(51).Value = Global.System.DBNull.Value End If If (I_Wert.HasValue = true) Then command.Parameters(52).Value = CType(I_Wert.Value,Decimal) Else command.Parameters(52).Value = Global.System.DBNull.Value End If If (I_Umrechnungskurs.HasValue = true) Then command.Parameters(53).Value = CType(I_Umrechnungskurs.Value,Double) Else command.Parameters(53).Value = Global.System.DBNull.Value End If If (I_PackstückeundWarenbezeichnung Is Nothing) Then command.Parameters(54).Value = Global.System.DBNull.Value Else command.Parameters(54).Value = CType(I_PackstückeundWarenbezeichnung,String) End If If (I_Vermerk Is Nothing) Then command.Parameters(55).Value = Global.System.DBNull.Value Else command.Parameters(55).Value = CType(I_Vermerk,String) End If If (I_Anlage1 Is Nothing) Then command.Parameters(56).Value = Global.System.DBNull.Value Else command.Parameters(56).Value = CType(I_Anlage1,String) End If If (I_Anlage2 Is Nothing) Then command.Parameters(57).Value = Global.System.DBNull.Value Else command.Parameters(57).Value = CType(I_Anlage2,String) End If If (I_Anlage3 Is Nothing) Then command.Parameters(58).Value = Global.System.DBNull.Value Else command.Parameters(58).Value = CType(I_Anlage3,String) End If If (I_Anlage4 Is Nothing) Then command.Parameters(59).Value = Global.System.DBNull.Value Else command.Parameters(59).Value = CType(I_Anlage4,String) End If If (I_Anlage5 Is Nothing) Then command.Parameters(60).Value = Global.System.DBNull.Value Else command.Parameters(60).Value = CType(I_Anlage5,String) End If If (I_Anlage6 Is Nothing) Then command.Parameters(61).Value = Global.System.DBNull.Value Else command.Parameters(61).Value = CType(I_Anlage6,String) End If If (I_OffertenNr.HasValue = true) Then command.Parameters(62).Value = CType(I_OffertenNr.Value,Short) Else command.Parameters(62).Value = Global.System.DBNull.Value End If If (I_Vorlageprovision.HasValue = true) Then command.Parameters(63).Value = CType(I_Vorlageprovision.Value,Single) Else command.Parameters(63).Value = Global.System.DBNull.Value End If If (I_Kreditaufwendungen.HasValue = true) Then command.Parameters(64).Value = CType(I_Kreditaufwendungen.Value,Single) Else command.Parameters(64).Value = Global.System.DBNull.Value End If If (I_Besonderheiten Is Nothing) Then command.Parameters(65).Value = Global.System.DBNull.Value Else command.Parameters(65).Value = CType(I_Besonderheiten,String) End If If (I_Vorkasse.HasValue = true) Then command.Parameters(66).Value = CType(I_Vorkasse.Value,Boolean) Else command.Parameters(66).Value = Global.System.DBNull.Value End If If (I_Text Is Nothing) Then command.Parameters(67).Value = Global.System.DBNull.Value Else command.Parameters(67).Value = CType(I_Text,String) End If If (I_SteuerpflichtigerGesamtbetrag.HasValue = true) Then command.Parameters(68).Value = CType(I_SteuerpflichtigerGesamtbetrag.Value,Decimal) Else command.Parameters(68).Value = Global.System.DBNull.Value End If If (I_SteuerfreierGesamtbetrag.HasValue = true) Then command.Parameters(69).Value = CType(I_SteuerfreierGesamtbetrag.Value,Decimal) Else command.Parameters(69).Value = Global.System.DBNull.Value End If If (I_Status.HasValue = true) Then command.Parameters(70).Value = CType(I_Status.Value,Short) Else command.Parameters(70).Value = Global.System.DBNull.Value End If If (I_DruckDatumZeit.HasValue = true) Then command.Parameters(71).Value = CType(I_DruckDatumZeit.Value,Date) Else command.Parameters(71).Value = Global.System.DBNull.Value End If If (I_Abfertigungskosten.HasValue = true) Then command.Parameters(72).Value = CType(I_Abfertigungskosten.Value,Decimal) Else command.Parameters(72).Value = Global.System.DBNull.Value End If If (I_Vorkosten.HasValue = true) Then command.Parameters(73).Value = CType(I_Vorkosten.Value,Decimal) Else command.Parameters(73).Value = Global.System.DBNull.Value End If If (I_Erlös.HasValue = true) Then command.Parameters(74).Value = CType(I_Erlös.Value,Decimal) Else command.Parameters(74).Value = Global.System.DBNull.Value End If If (I_Buchungsjahr.HasValue = true) Then command.Parameters(75).Value = CType(I_Buchungsjahr.Value,Short) Else command.Parameters(75).Value = Global.System.DBNull.Value End If If (I_Währungscode Is Nothing) Then command.Parameters(76).Value = Global.System.DBNull.Value Else command.Parameters(76).Value = CType(I_Währungscode,String) End If If (I_Sachbearbeiter Is Nothing) Then command.Parameters(77).Value = Global.System.DBNull.Value Else command.Parameters(77).Value = CType(I_Sachbearbeiter,String) End If If (I_Trdin.HasValue = true) Then command.Parameters(78).Value = CType(I_Trdin.Value,Boolean) Else command.Parameters(78).Value = Global.System.DBNull.Value End If If (I_KartenNr Is Nothing) Then command.Parameters(79).Value = Global.System.DBNull.Value Else command.Parameters(79).Value = CType(I_KartenNr,String) End If If (I_RefFilialenNr.HasValue = true) Then command.Parameters(80).Value = CType(I_RefFilialenNr.Value,Short) Else command.Parameters(80).Value = Global.System.DBNull.Value End If If (I_RefAbfertigungsNr.HasValue = true) Then command.Parameters(81).Value = CType(I_RefAbfertigungsNr.Value,Integer) Else command.Parameters(81).Value = Global.System.DBNull.Value End If If (I_RefUnterNr.HasValue = true) Then command.Parameters(82).Value = CType(I_RefUnterNr.Value,Short) Else command.Parameters(82).Value = Global.System.DBNull.Value End If If (I_Notiz Is Nothing) Then command.Parameters(83).Value = Global.System.DBNull.Value Else command.Parameters(83).Value = CType(I_Notiz,String) End If If (I_Zucker_MRN_Nr Is Nothing) Then command.Parameters(84).Value = Global.System.DBNull.Value Else command.Parameters(84).Value = CType(I_Zucker_MRN_Nr,String) End If If (I_Zucker_MRN_Datum.HasValue = true) Then command.Parameters(85).Value = CType(I_Zucker_MRN_Datum.Value,Date) Else command.Parameters(85).Value = Global.System.DBNull.Value End If If (I_Zucker_Aufschub Is Nothing) Then command.Parameters(86).Value = Global.System.DBNull.Value Else command.Parameters(86).Value = CType(I_Zucker_Aufschub,String) End If If (I_ReErfZeitstempel.HasValue = true) Then command.Parameters(87).Value = CType(I_ReErfZeitstempel.Value,Date) Else command.Parameters(87).Value = Global.System.DBNull.Value End If If (I_Nettozahlungsziel.HasValue = true) Then command.Parameters(88).Value = CType(I_Nettozahlungsziel.Value,Short) Else command.Parameters(88).Value = Global.System.DBNull.Value End If If (I_Firma_ID.HasValue = true) Then command.Parameters(89).Value = CType(I_Firma_ID.Value,Short) Else command.Parameters(89).Value = Global.System.DBNull.Value End If If (I_SpeditionsbuchUnterNr.HasValue = true) Then command.Parameters(90).Value = CType(I_SpeditionsbuchUnterNr.Value,Short) Else command.Parameters(90).Value = Global.System.DBNull.Value End If If (I_ErfassungsNr Is Nothing) Then command.Parameters(91).Value = Global.System.DBNull.Value Else command.Parameters(91).Value = CType(I_ErfassungsNr,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 spINSERTRechnungsausgangPositionen( _ ByVal I_RK_ID As Global.System.Nullable(Of Integer), _ ByVal I_LeistungsNr As Global.System.Nullable(Of Short), _ ByVal I_Steuerpflichtig As Global.System.Nullable(Of Boolean), _ ByVal I_LeistungsBez As String, _ ByVal I_IndexZkteing As Global.System.Nullable(Of Integer), _ ByVal I_BerechnungsartNr As Global.System.Nullable(Of Short), _ ByVal I_Preis As Global.System.Nullable(Of Decimal), _ ByVal I_Anzahl As Global.System.Nullable(Of Short), _ ByVal I_SteuerpflichtigerBetrag As Global.System.Nullable(Of Decimal), _ ByVal I_SteuerfreierBetrag As Global.System.Nullable(Of Decimal), _ ByVal I_AufschubkontoNr As String, _ ByVal I_Aufschubfälligkeit As Global.System.Nullable(Of Date), _ ByVal I_Prüfsummeberechnen As Global.System.Nullable(Of Boolean), _ ByVal I_DateiNameAufschub As String, _ ByVal I_Preisbindung As Global.System.Nullable(Of Boolean), _ ByVal I_Belegdaten As String, _ ByVal I_Fremdwährung As Global.System.Nullable(Of Short), _ ByVal I_BGebLeistungsNr As Global.System.Nullable(Of Short), _ ByVal I_BGebProzent As Global.System.Nullable(Of Single), _ ByVal I_BGebBgl As Global.System.Nullable(Of Decimal), _ ByVal I_BGebMinBetrag As Global.System.Nullable(Of Decimal), _ ByVal I_RePosZeitstempel As Global.System.Nullable(Of Date)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(4),Global.System.Data.SqlClient.SqlCommand) If (I_RK_ID.HasValue = true) Then command.Parameters(1).Value = CType(I_RK_ID.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_LeistungsNr.HasValue = true) Then command.Parameters(2).Value = CType(I_LeistungsNr.Value,Short) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_Steuerpflichtig.HasValue = true) Then command.Parameters(3).Value = CType(I_Steuerpflichtig.Value,Boolean) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (I_LeistungsBez Is Nothing) Then command.Parameters(4).Value = Global.System.DBNull.Value Else command.Parameters(4).Value = CType(I_LeistungsBez,String) End If If (I_IndexZkteing.HasValue = true) Then command.Parameters(5).Value = CType(I_IndexZkteing.Value,Integer) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (I_BerechnungsartNr.HasValue = true) Then command.Parameters(6).Value = CType(I_BerechnungsartNr.Value,Short) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (I_Preis.HasValue = true) Then command.Parameters(7).Value = CType(I_Preis.Value,Decimal) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (I_Anzahl.HasValue = true) Then command.Parameters(8).Value = CType(I_Anzahl.Value,Short) Else command.Parameters(8).Value = Global.System.DBNull.Value End If If (I_SteuerpflichtigerBetrag.HasValue = true) Then command.Parameters(9).Value = CType(I_SteuerpflichtigerBetrag.Value,Decimal) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (I_SteuerfreierBetrag.HasValue = true) Then command.Parameters(10).Value = CType(I_SteuerfreierBetrag.Value,Decimal) Else command.Parameters(10).Value = Global.System.DBNull.Value End If If (I_AufschubkontoNr Is Nothing) Then command.Parameters(11).Value = Global.System.DBNull.Value Else command.Parameters(11).Value = CType(I_AufschubkontoNr,String) End If If (I_Aufschubfälligkeit.HasValue = true) Then command.Parameters(12).Value = CType(I_Aufschubfälligkeit.Value,Date) Else command.Parameters(12).Value = Global.System.DBNull.Value End If If (I_Prüfsummeberechnen.HasValue = true) Then command.Parameters(13).Value = CType(I_Prüfsummeberechnen.Value,Boolean) Else command.Parameters(13).Value = Global.System.DBNull.Value End If If (I_DateiNameAufschub Is Nothing) Then command.Parameters(14).Value = Global.System.DBNull.Value Else command.Parameters(14).Value = CType(I_DateiNameAufschub,String) End If If (I_Preisbindung.HasValue = true) Then command.Parameters(15).Value = CType(I_Preisbindung.Value,Boolean) Else command.Parameters(15).Value = Global.System.DBNull.Value End If If (I_Belegdaten Is Nothing) Then command.Parameters(16).Value = Global.System.DBNull.Value Else command.Parameters(16).Value = CType(I_Belegdaten,String) End If If (I_Fremdwährung.HasValue = true) Then command.Parameters(17).Value = CType(I_Fremdwährung.Value,Short) Else command.Parameters(17).Value = Global.System.DBNull.Value End If If (I_BGebLeistungsNr.HasValue = true) Then command.Parameters(18).Value = CType(I_BGebLeistungsNr.Value,Short) Else command.Parameters(18).Value = Global.System.DBNull.Value End If If (I_BGebProzent.HasValue = true) Then command.Parameters(19).Value = CType(I_BGebProzent.Value,Single) Else command.Parameters(19).Value = Global.System.DBNull.Value End If If (I_BGebBgl.HasValue = true) Then command.Parameters(20).Value = CType(I_BGebBgl.Value,Decimal) Else command.Parameters(20).Value = Global.System.DBNull.Value End If If (I_BGebMinBetrag.HasValue = true) Then command.Parameters(21).Value = CType(I_BGebMinBetrag.Value,Decimal) Else command.Parameters(21).Value = Global.System.DBNull.Value End If If (I_RePosZeitstempel.HasValue = true) Then command.Parameters(22).Value = CType(I_RePosZeitstempel.Value,Date) Else command.Parameters(22).Value = Global.System.DBNull.Value 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 spINSERTRechnungsnummern(ByVal I_SpeditionsbuchNr As Global.System.Nullable(Of Short), ByVal I_Buchungsjahr As Global.System.Nullable(Of Short), ByVal I_VonRechnungsNr As Global.System.Nullable(Of Integer), ByVal I_BisRechnungsNr As Global.System.Nullable(Of Integer), ByVal I_LfdRechnungsNr As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(5),Global.System.Data.SqlClient.SqlCommand) If (I_SpeditionsbuchNr.HasValue = true) Then command.Parameters(1).Value = CType(I_SpeditionsbuchNr.Value,Short) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_Buchungsjahr.HasValue = true) Then command.Parameters(2).Value = CType(I_Buchungsjahr.Value,Short) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_VonRechnungsNr.HasValue = true) Then command.Parameters(3).Value = CType(I_VonRechnungsNr.Value,Integer) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (I_BisRechnungsNr.HasValue = true) Then command.Parameters(4).Value = CType(I_BisRechnungsNr.Value,Integer) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (I_LfdRechnungsNr.HasValue = true) Then command.Parameters(5).Value = CType(I_LfdRechnungsNr.Value,Integer) Else command.Parameters(5).Value = Global.System.DBNull.Value 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 spINSERTtblAnmeldung(ByVal Computername As String, ByVal Benutzername As String, ByVal Mandant As String, ByVal Niederlassung As String, ByVal Login As Global.System.Nullable(Of Date), ByVal Logout As Global.System.Nullable(Of Date), ByVal Programmversion As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(6),Global.System.Data.SqlClient.SqlCommand) If (Computername Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else command.Parameters(2).Value = CType(Benutzername,String) End If If (Mandant Is Nothing) Then command.Parameters(3).Value = Global.System.DBNull.Value Else command.Parameters(3).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then command.Parameters(4).Value = Global.System.DBNull.Value Else command.Parameters(4).Value = CType(Niederlassung,String) End If If (Login.HasValue = true) Then command.Parameters(5).Value = CType(Login.Value,Date) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (Logout.HasValue = true) Then command.Parameters(6).Value = CType(Logout.Value,Date) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (Programmversion Is Nothing) Then command.Parameters(7).Value = Global.System.DBNull.Value Else command.Parameters(7).Value = CType(Programmversion,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 spINSERTtblHistorie(ByVal Computername As String, ByVal Benutzername As String, ByVal Login As Global.System.Nullable(Of Date), ByVal Logout As Global.System.Nullable(Of Date)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(7),Global.System.Data.SqlClient.SqlCommand) If (Computername Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else command.Parameters(2).Value = CType(Benutzername,String) End If If (Login.HasValue = true) Then command.Parameters(3).Value = CType(Login.Value,Date) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (Logout.HasValue = true) Then command.Parameters(4).Value = CType(Logout.Value,Date) Else command.Parameters(4).Value = Global.System.DBNull.Value 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 spINSERTtblLogbuch(ByVal Computername As String, ByVal Benutzername As String, ByVal SwitchboardID As Global.System.Nullable(Of Integer), ByVal ItemNumber As Global.System.Nullable(Of Short), ByVal ItemText As String, ByVal Command1 As Global.System.Nullable(Of Short), ByVal Argument As String, ByVal Programmversion As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(8),Global.System.Data.SqlClient.SqlCommand) If (Computername Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else command.Parameters(2).Value = CType(Benutzername,String) End If If (SwitchboardID.HasValue = true) Then command.Parameters(3).Value = CType(SwitchboardID.Value,Integer) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (ItemNumber.HasValue = true) Then command.Parameters(4).Value = CType(ItemNumber.Value,Short) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (ItemText Is Nothing) Then command.Parameters(5).Value = Global.System.DBNull.Value Else command.Parameters(5).Value = CType(ItemText,String) End If If (Command1.HasValue = true) Then command.Parameters(6).Value = CType(Command1.Value,Short) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (Argument Is Nothing) Then command.Parameters(7).Value = Global.System.DBNull.Value Else command.Parameters(7).Value = CType(Argument,String) End If If (Programmversion Is Nothing) Then command.Parameters(8).Value = Global.System.DBNull.Value Else command.Parameters(8).Value = CType(Programmversion,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 spINSERTtblQS_Abfertigungsarten(ByVal I_QS_Abfertigungsart_ID As Global.System.Nullable(Of Integer), ByVal I_QS_Abfertigungsart_Bezeichnung As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(9),Global.System.Data.SqlClient.SqlCommand) If (I_QS_Abfertigungsart_ID.HasValue = true) Then command.Parameters(1).Value = CType(I_QS_Abfertigungsart_ID.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_QS_Abfertigungsart_Bezeichnung Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else command.Parameters(2).Value = CType(I_QS_Abfertigungsart_Bezeichnung,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 spINSERTtblQS_Aufträge(ByVal I_QS_Auftrags_ID As Global.System.Nullable(Of Integer), ByVal I_QS_Auftrags_Datum As Global.System.Nullable(Of Date), ByVal I_QS_Sachbearbeiter_ID As Global.System.Nullable(Of Integer), ByVal I_QS_Frachtführer_ID As Global.System.Nullable(Of Integer), ByVal I_QS_Kennzeichen_LKW As String, ByVal I_QS_Sendungen_Gesamtanzahl As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(10),Global.System.Data.SqlClient.SqlCommand) If (I_QS_Auftrags_ID.HasValue = true) Then command.Parameters(1).Value = CType(I_QS_Auftrags_ID.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_QS_Auftrags_Datum.HasValue = true) Then command.Parameters(2).Value = CType(I_QS_Auftrags_Datum.Value,Date) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_QS_Sachbearbeiter_ID.HasValue = true) Then command.Parameters(3).Value = CType(I_QS_Sachbearbeiter_ID.Value,Integer) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (I_QS_Frachtführer_ID.HasValue = true) Then command.Parameters(4).Value = CType(I_QS_Frachtführer_ID.Value,Integer) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (I_QS_Kennzeichen_LKW Is Nothing) Then command.Parameters(5).Value = Global.System.DBNull.Value Else command.Parameters(5).Value = CType(I_QS_Kennzeichen_LKW,String) End If If (I_QS_Sendungen_Gesamtanzahl.HasValue = true) Then command.Parameters(6).Value = CType(I_QS_Sendungen_Gesamtanzahl.Value,Integer) Else command.Parameters(6).Value = Global.System.DBNull.Value 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 spINSERTtblQS_Auftragspositionen(ByVal I_QS_Auftrags_ID As Global.System.Nullable(Of Integer), ByVal I_QS_Abfertigungsart_ID As Global.System.Nullable(Of Integer), ByVal I_QS_Abfertigungsart_Anzahl As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(11),Global.System.Data.SqlClient.SqlCommand) If (I_QS_Auftrags_ID.HasValue = true) Then command.Parameters(1).Value = CType(I_QS_Auftrags_ID.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_QS_Abfertigungsart_ID.HasValue = true) Then command.Parameters(2).Value = CType(I_QS_Abfertigungsart_ID.Value,Integer) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_QS_Abfertigungsart_Anzahl.HasValue = true) Then command.Parameters(3).Value = CType(I_QS_Abfertigungsart_Anzahl.Value,Integer) Else command.Parameters(3).Value = Global.System.DBNull.Value 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 spINSERTtblTrdinInvoice( _ ByVal I_Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal I_Rechnungsnummer As Global.System.Nullable(Of Integer), _ ByVal I_Speditionsbuch As Global.System.Nullable(Of Short), _ ByVal I_FilialenNr As Global.System.Nullable(Of Short), _ ByVal I_AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal I_UnterNr As Global.System.Nullable(Of Short), _ ByVal I_Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal I_BelegartenNr As Global.System.Nullable(Of Short), _ ByVal I_KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal I_RechnungsKundenNr As Global.System.Nullable(Of Integer), _ ByVal I_RechnungsLandKz As String, _ ByVal I_RechnungsUstIdKz As String, _ ByVal I_RechnungsUstIdNr As String, _ ByVal I_Lastschrift As Global.System.Nullable(Of Boolean), _ ByVal I_Steuerschlüssel As Global.System.Nullable(Of Short), _ ByVal I_Steuersatz As Global.System.Nullable(Of Single), _ ByVal I_WährungLokal As String, _ ByVal I_SteuerpflichtigerBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal I_SteuerfreierBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal I_SteuerbetragLokal As Global.System.Nullable(Of Decimal), _ ByVal I_RechnungsbetragLokal As Global.System.Nullable(Of Decimal), _ ByVal I_WährungFremd As String, _ ByVal I_SteuerpflichtigerBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal I_SteuerfreierBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal I_SteuerbetragFremd As Global.System.Nullable(Of Decimal), _ ByVal I_RechnungsbetragFremd As Global.System.Nullable(Of Decimal), _ ByVal I_TrdinDateiname As String, _ ByVal I_Abgleich_op_debitor As Global.System.Nullable(Of Boolean), _ ByVal I_Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal I_Firma_ID As Global.System.Nullable(Of Short), _ ByVal I_UStVAn_ID As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(12),Global.System.Data.SqlClient.SqlCommand) If (I_Rechnungsdatum.HasValue = true) Then command.Parameters(1).Value = CType(I_Rechnungsdatum.Value,Date) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_Rechnungsnummer.HasValue = true) Then command.Parameters(2).Value = CType(I_Rechnungsnummer.Value,Integer) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_Speditionsbuch.HasValue = true) Then command.Parameters(3).Value = CType(I_Speditionsbuch.Value,Short) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (I_FilialenNr.HasValue = true) Then command.Parameters(4).Value = CType(I_FilialenNr.Value,Short) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (I_AbfertigungsNr.HasValue = true) Then command.Parameters(5).Value = CType(I_AbfertigungsNr.Value,Integer) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (I_UnterNr.HasValue = true) Then command.Parameters(6).Value = CType(I_UnterNr.Value,Short) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (I_Abfertigungsdatum.HasValue = true) Then command.Parameters(7).Value = CType(I_Abfertigungsdatum.Value,Date) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (I_BelegartenNr.HasValue = true) Then command.Parameters(8).Value = CType(I_BelegartenNr.Value,Short) Else command.Parameters(8).Value = Global.System.DBNull.Value End If If (I_KundenNrZentrale.HasValue = true) Then command.Parameters(9).Value = CType(I_KundenNrZentrale.Value,Integer) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (I_RechnungsKundenNr.HasValue = true) Then command.Parameters(10).Value = CType(I_RechnungsKundenNr.Value,Integer) Else command.Parameters(10).Value = Global.System.DBNull.Value End If If (I_RechnungsLandKz Is Nothing) Then command.Parameters(11).Value = Global.System.DBNull.Value Else command.Parameters(11).Value = CType(I_RechnungsLandKz,String) End If If (I_RechnungsUstIdKz Is Nothing) Then command.Parameters(12).Value = Global.System.DBNull.Value Else command.Parameters(12).Value = CType(I_RechnungsUstIdKz,String) End If If (I_RechnungsUstIdNr Is Nothing) Then command.Parameters(13).Value = Global.System.DBNull.Value Else command.Parameters(13).Value = CType(I_RechnungsUstIdNr,String) End If If (I_Lastschrift.HasValue = true) Then command.Parameters(14).Value = CType(I_Lastschrift.Value,Boolean) Else command.Parameters(14).Value = Global.System.DBNull.Value End If If (I_Steuerschlüssel.HasValue = true) Then command.Parameters(15).Value = CType(I_Steuerschlüssel.Value,Short) Else command.Parameters(15).Value = Global.System.DBNull.Value End If If (I_Steuersatz.HasValue = true) Then command.Parameters(16).Value = CType(I_Steuersatz.Value,Single) Else command.Parameters(16).Value = Global.System.DBNull.Value End If If (I_WährungLokal Is Nothing) Then command.Parameters(17).Value = Global.System.DBNull.Value Else command.Parameters(17).Value = CType(I_WährungLokal,String) End If If (I_SteuerpflichtigerBetragLokal.HasValue = true) Then command.Parameters(18).Value = CType(I_SteuerpflichtigerBetragLokal.Value,Decimal) Else command.Parameters(18).Value = Global.System.DBNull.Value End If If (I_SteuerfreierBetragLokal.HasValue = true) Then command.Parameters(19).Value = CType(I_SteuerfreierBetragLokal.Value,Decimal) Else command.Parameters(19).Value = Global.System.DBNull.Value End If If (I_SteuerbetragLokal.HasValue = true) Then command.Parameters(20).Value = CType(I_SteuerbetragLokal.Value,Decimal) Else command.Parameters(20).Value = Global.System.DBNull.Value End If If (I_RechnungsbetragLokal.HasValue = true) Then command.Parameters(21).Value = CType(I_RechnungsbetragLokal.Value,Decimal) Else command.Parameters(21).Value = Global.System.DBNull.Value End If If (I_WährungFremd Is Nothing) Then command.Parameters(22).Value = Global.System.DBNull.Value Else command.Parameters(22).Value = CType(I_WährungFremd,String) End If If (I_SteuerpflichtigerBetragFremd.HasValue = true) Then command.Parameters(23).Value = CType(I_SteuerpflichtigerBetragFremd.Value,Decimal) Else command.Parameters(23).Value = Global.System.DBNull.Value End If If (I_SteuerfreierBetragFremd.HasValue = true) Then command.Parameters(24).Value = CType(I_SteuerfreierBetragFremd.Value,Decimal) Else command.Parameters(24).Value = Global.System.DBNull.Value End If If (I_SteuerbetragFremd.HasValue = true) Then command.Parameters(25).Value = CType(I_SteuerbetragFremd.Value,Decimal) Else command.Parameters(25).Value = Global.System.DBNull.Value End If If (I_RechnungsbetragFremd.HasValue = true) Then command.Parameters(26).Value = CType(I_RechnungsbetragFremd.Value,Decimal) Else command.Parameters(26).Value = Global.System.DBNull.Value End If If (I_TrdinDateiname Is Nothing) Then command.Parameters(27).Value = Global.System.DBNull.Value Else command.Parameters(27).Value = CType(I_TrdinDateiname,String) End If If (I_Abgleich_op_debitor.HasValue = true) Then command.Parameters(28).Value = CType(I_Abgleich_op_debitor.Value,Boolean) Else command.Parameters(28).Value = Global.System.DBNull.Value End If If (I_Nettozahlungsziel.HasValue = true) Then command.Parameters(29).Value = CType(I_Nettozahlungsziel.Value,Short) Else command.Parameters(29).Value = Global.System.DBNull.Value End If If (I_Firma_ID.HasValue = true) Then command.Parameters(30).Value = CType(I_Firma_ID.Value,Short) Else command.Parameters(30).Value = Global.System.DBNull.Value End If If (I_UStVAn_ID.HasValue = true) Then command.Parameters(31).Value = CType(I_UStVAn_ID.Value,Integer) Else command.Parameters(31).Value = Global.System.DBNull.Value 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 spINSERTtblTrdinProduct(ByVal I_Rechnungsdatum As Global.System.Nullable(Of Date), ByVal I_Rechnungsnummer As Global.System.Nullable(Of Integer), ByVal I_Leistungsnummer As Global.System.Nullable(Of Short), ByVal I_Leistungsbezeichnung As String, ByVal I_Steuerpflichtig As Global.System.Nullable(Of Boolean), ByVal I_SteuerpflichtigerBetragLokal As Global.System.Nullable(Of Decimal), ByVal I_SteuerfreierBetragLokal As Global.System.Nullable(Of Decimal), ByVal I_SteuerpflichtigerBetragFremd As Global.System.Nullable(Of Decimal), ByVal I_SteuerfreierBetragFremd As Global.System.Nullable(Of Decimal), ByVal I_Belegdaten As String, ByVal I_Sachkonto As String, ByVal I_Buchungstext As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(13),Global.System.Data.SqlClient.SqlCommand) If (I_Rechnungsdatum.HasValue = true) Then command.Parameters(1).Value = CType(I_Rechnungsdatum.Value,Date) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_Rechnungsnummer.HasValue = true) Then command.Parameters(2).Value = CType(I_Rechnungsnummer.Value,Integer) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_Leistungsnummer.HasValue = true) Then command.Parameters(3).Value = CType(I_Leistungsnummer.Value,Short) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (I_Leistungsbezeichnung Is Nothing) Then command.Parameters(4).Value = Global.System.DBNull.Value Else command.Parameters(4).Value = CType(I_Leistungsbezeichnung,String) End If If (I_Steuerpflichtig.HasValue = true) Then command.Parameters(5).Value = CType(I_Steuerpflichtig.Value,Boolean) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (I_SteuerpflichtigerBetragLokal.HasValue = true) Then command.Parameters(6).Value = CType(I_SteuerpflichtigerBetragLokal.Value,Decimal) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (I_SteuerfreierBetragLokal.HasValue = true) Then command.Parameters(7).Value = CType(I_SteuerfreierBetragLokal.Value,Decimal) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (I_SteuerpflichtigerBetragFremd.HasValue = true) Then command.Parameters(8).Value = CType(I_SteuerpflichtigerBetragFremd.Value,Decimal) Else command.Parameters(8).Value = Global.System.DBNull.Value End If If (I_SteuerfreierBetragFremd.HasValue = true) Then command.Parameters(9).Value = CType(I_SteuerfreierBetragFremd.Value,Decimal) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (I_Belegdaten Is Nothing) Then command.Parameters(10).Value = Global.System.DBNull.Value Else command.Parameters(10).Value = CType(I_Belegdaten,String) End If If (I_Sachkonto Is Nothing) Then command.Parameters(11).Value = Global.System.DBNull.Value Else command.Parameters(11).Value = CType(I_Sachkonto,String) End If If (I_Buchungstext Is Nothing) Then command.Parameters(12).Value = Global.System.DBNull.Value Else command.Parameters(12).Value = CType(I_Buchungstext,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 spINSERTtblUStVAntrag( _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer), _ ByVal UStVAn_KuNr As Global.System.Nullable(Of Integer), _ ByVal UStVAn_Name As String, _ ByVal UStVAn_Straße As String, _ ByVal UStVAn_LandKz As String, _ ByVal UStVAn_PLZ As String, _ ByVal UStVAn_Ort As String, _ ByVal UStVAn_Land As String, _ ByVal UStVAn_Gewerbe As String, _ ByVal UStVAn_Steuernummer As String, _ ByVal UStVAn_ReDatVon As Global.System.Nullable(Of Date), _ ByVal UStVAn_ReDatBis As Global.System.Nullable(Of Date), _ ByVal UStVAn_Bankverbindung As String, _ ByVal UStVAn_BLZ As String, _ ByVal UStVAn_KTO As String, _ ByVal UStVAn_Kontoinhaber As String, _ ByVal UStVAn_BIC As String, _ ByVal UStVAn_IBAN As String, _ ByVal UStVAn_Anlagen As Global.System.Nullable(Of Short), _ ByVal UStVAn_Rechnungen As Global.System.Nullable(Of Short), _ ByVal UStVAn_Einfuhrdokumente As Global.System.Nullable(Of Short), _ ByVal UStVAn_Erklärung_9_a As String, _ ByVal UStVAn_Erklärung_9_b_1 As Global.System.Nullable(Of Boolean), _ ByVal UStVAn_Erklärung_9_b_2 As Global.System.Nullable(Of Boolean), _ ByVal UStVAn_Erklärung_9_b_3 As Global.System.Nullable(Of Boolean), _ ByVal UStVAn_Ausstellungsort As String, _ ByVal UStVAn_Ausstellungsdatum As Global.System.Nullable(Of Date), _ ByVal UStVAn_Unterschrift As String, _ ByVal UStVAn_LandNr As Global.System.Nullable(Of Short), _ ByVal UStVAn_Beleganzahl As Global.System.Nullable(Of Short), _ ByVal UStVAn_BeleganzahlRetourniert As Global.System.Nullable(Of Short), _ ByVal UStVAn_Retournierungsgrund As String, _ ByVal UStVAn_AntragEingereichtAm As Global.System.Nullable(Of Date), _ ByVal UStVAn_BelegeWeitergeleitetAm As Global.System.Nullable(Of Date), _ ByVal UStVAn_Vertreter As Global.System.Nullable(Of Integer), _ ByVal UStVAn_BezugsNr As String, _ ByVal UStVAn_3470 As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_VZBetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_VZDatum As Global.System.Nullable(Of Date), _ ByVal UStVAn_RZBetragVZ As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_RZDatumVZ As Global.System.Nullable(Of Date), _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UStVAn_Währungscode As String, _ ByVal UStVAn_USteuerbetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_Erstattungsbetrag As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_USteuerbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_ErstattungsbetragEUR As Global.System.Nullable(Of Decimal), _ ByVal UStVAn_Sachbearbeiter As String, _ ByVal UStVAn_zeitstempel As Global.System.Nullable(Of Date)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(14),Global.System.Data.SqlClient.SqlCommand) If (UStVAn_ID.HasValue = true) Then command.Parameters(1).Value = CType(UStVAn_ID.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (UStVAn_KuNr.HasValue = true) Then command.Parameters(2).Value = CType(UStVAn_KuNr.Value,Integer) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (UStVAn_Name Is Nothing) Then command.Parameters(3).Value = Global.System.DBNull.Value Else command.Parameters(3).Value = CType(UStVAn_Name,String) End If If (UStVAn_Straße Is Nothing) Then command.Parameters(4).Value = Global.System.DBNull.Value Else command.Parameters(4).Value = CType(UStVAn_Straße,String) End If If (UStVAn_LandKz Is Nothing) Then command.Parameters(5).Value = Global.System.DBNull.Value Else command.Parameters(5).Value = CType(UStVAn_LandKz,String) End If If (UStVAn_PLZ Is Nothing) Then command.Parameters(6).Value = Global.System.DBNull.Value Else command.Parameters(6).Value = CType(UStVAn_PLZ,String) End If If (UStVAn_Ort Is Nothing) Then command.Parameters(7).Value = Global.System.DBNull.Value Else command.Parameters(7).Value = CType(UStVAn_Ort,String) End If If (UStVAn_Land Is Nothing) Then command.Parameters(8).Value = Global.System.DBNull.Value Else command.Parameters(8).Value = CType(UStVAn_Land,String) End If If (UStVAn_Gewerbe Is Nothing) Then command.Parameters(9).Value = Global.System.DBNull.Value Else command.Parameters(9).Value = CType(UStVAn_Gewerbe,String) End If If (UStVAn_Steuernummer Is Nothing) Then command.Parameters(10).Value = Global.System.DBNull.Value Else command.Parameters(10).Value = CType(UStVAn_Steuernummer,String) End If If (UStVAn_ReDatVon.HasValue = true) Then command.Parameters(11).Value = CType(UStVAn_ReDatVon.Value,Date) Else command.Parameters(11).Value = Global.System.DBNull.Value End If If (UStVAn_ReDatBis.HasValue = true) Then command.Parameters(12).Value = CType(UStVAn_ReDatBis.Value,Date) Else command.Parameters(12).Value = Global.System.DBNull.Value End If If (UStVAn_Bankverbindung Is Nothing) Then command.Parameters(13).Value = Global.System.DBNull.Value Else command.Parameters(13).Value = CType(UStVAn_Bankverbindung,String) End If If (UStVAn_BLZ Is Nothing) Then command.Parameters(14).Value = Global.System.DBNull.Value Else command.Parameters(14).Value = CType(UStVAn_BLZ,String) End If If (UStVAn_KTO Is Nothing) Then command.Parameters(15).Value = Global.System.DBNull.Value Else command.Parameters(15).Value = CType(UStVAn_KTO,String) End If If (UStVAn_Kontoinhaber Is Nothing) Then command.Parameters(16).Value = Global.System.DBNull.Value Else command.Parameters(16).Value = CType(UStVAn_Kontoinhaber,String) End If If (UStVAn_BIC Is Nothing) Then command.Parameters(17).Value = Global.System.DBNull.Value Else command.Parameters(17).Value = CType(UStVAn_BIC,String) End If If (UStVAn_IBAN Is Nothing) Then command.Parameters(18).Value = Global.System.DBNull.Value Else command.Parameters(18).Value = CType(UStVAn_IBAN,String) End If If (UStVAn_Anlagen.HasValue = true) Then command.Parameters(19).Value = CType(UStVAn_Anlagen.Value,Short) Else command.Parameters(19).Value = Global.System.DBNull.Value End If If (UStVAn_Rechnungen.HasValue = true) Then command.Parameters(20).Value = CType(UStVAn_Rechnungen.Value,Short) Else command.Parameters(20).Value = Global.System.DBNull.Value End If If (UStVAn_Einfuhrdokumente.HasValue = true) Then command.Parameters(21).Value = CType(UStVAn_Einfuhrdokumente.Value,Short) Else command.Parameters(21).Value = Global.System.DBNull.Value End If If (UStVAn_Erklärung_9_a Is Nothing) Then command.Parameters(22).Value = Global.System.DBNull.Value Else command.Parameters(22).Value = CType(UStVAn_Erklärung_9_a,String) End If If (UStVAn_Erklärung_9_b_1.HasValue = true) Then command.Parameters(23).Value = CType(UStVAn_Erklärung_9_b_1.Value,Boolean) Else command.Parameters(23).Value = Global.System.DBNull.Value End If If (UStVAn_Erklärung_9_b_2.HasValue = true) Then command.Parameters(24).Value = CType(UStVAn_Erklärung_9_b_2.Value,Boolean) Else command.Parameters(24).Value = Global.System.DBNull.Value End If If (UStVAn_Erklärung_9_b_3.HasValue = true) Then command.Parameters(25).Value = CType(UStVAn_Erklärung_9_b_3.Value,Boolean) Else command.Parameters(25).Value = Global.System.DBNull.Value End If If (UStVAn_Ausstellungsort Is Nothing) Then command.Parameters(26).Value = Global.System.DBNull.Value Else command.Parameters(26).Value = CType(UStVAn_Ausstellungsort,String) End If If (UStVAn_Ausstellungsdatum.HasValue = true) Then command.Parameters(27).Value = CType(UStVAn_Ausstellungsdatum.Value,Date) Else command.Parameters(27).Value = Global.System.DBNull.Value End If If (UStVAn_Unterschrift Is Nothing) Then command.Parameters(28).Value = Global.System.DBNull.Value Else command.Parameters(28).Value = CType(UStVAn_Unterschrift,String) End If If (UStVAn_LandNr.HasValue = true) Then command.Parameters(29).Value = CType(UStVAn_LandNr.Value,Short) Else command.Parameters(29).Value = Global.System.DBNull.Value End If If (UStVAn_Beleganzahl.HasValue = true) Then command.Parameters(30).Value = CType(UStVAn_Beleganzahl.Value,Short) Else command.Parameters(30).Value = Global.System.DBNull.Value End If If (UStVAn_BeleganzahlRetourniert.HasValue = true) Then command.Parameters(31).Value = CType(UStVAn_BeleganzahlRetourniert.Value,Short) Else command.Parameters(31).Value = Global.System.DBNull.Value End If If (UStVAn_Retournierungsgrund Is Nothing) Then command.Parameters(32).Value = Global.System.DBNull.Value Else command.Parameters(32).Value = CType(UStVAn_Retournierungsgrund,String) End If If (UStVAn_AntragEingereichtAm.HasValue = true) Then command.Parameters(33).Value = CType(UStVAn_AntragEingereichtAm.Value,Date) Else command.Parameters(33).Value = Global.System.DBNull.Value End If If (UStVAn_BelegeWeitergeleitetAm.HasValue = true) Then command.Parameters(34).Value = CType(UStVAn_BelegeWeitergeleitetAm.Value,Date) Else command.Parameters(34).Value = Global.System.DBNull.Value End If If (UStVAn_Vertreter.HasValue = true) Then command.Parameters(35).Value = CType(UStVAn_Vertreter.Value,Integer) Else command.Parameters(35).Value = Global.System.DBNull.Value End If If (UStVAn_BezugsNr Is Nothing) Then command.Parameters(36).Value = Global.System.DBNull.Value Else command.Parameters(36).Value = CType(UStVAn_BezugsNr,String) End If If (UStVAn_3470.HasValue = true) Then command.Parameters(37).Value = CType(UStVAn_3470.Value,Decimal) Else command.Parameters(37).Value = Global.System.DBNull.Value End If If (UStVAn_VZBetrag.HasValue = true) Then command.Parameters(38).Value = CType(UStVAn_VZBetrag.Value,Decimal) Else command.Parameters(38).Value = Global.System.DBNull.Value End If If (UStVAn_VZDatum.HasValue = true) Then command.Parameters(39).Value = CType(UStVAn_VZDatum.Value,Date) Else command.Parameters(39).Value = Global.System.DBNull.Value End If If (UStVAn_RZBetragVZ.HasValue = true) Then command.Parameters(40).Value = CType(UStVAn_RZBetragVZ.Value,Decimal) Else command.Parameters(40).Value = Global.System.DBNull.Value End If If (UStVAn_RZDatumVZ.HasValue = true) Then command.Parameters(41).Value = CType(UStVAn_RZDatumVZ.Value,Date) Else command.Parameters(41).Value = Global.System.DBNull.Value End If If (FilialenNr.HasValue = true) Then command.Parameters(42).Value = CType(FilialenNr.Value,Short) Else command.Parameters(42).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then command.Parameters(43).Value = CType(AbfertigungsNr.Value,Integer) Else command.Parameters(43).Value = Global.System.DBNull.Value End If If (UStVAn_Währungscode Is Nothing) Then command.Parameters(44).Value = Global.System.DBNull.Value Else command.Parameters(44).Value = CType(UStVAn_Währungscode,String) End If If (UStVAn_USteuerbetrag.HasValue = true) Then command.Parameters(45).Value = CType(UStVAn_USteuerbetrag.Value,Decimal) Else command.Parameters(45).Value = Global.System.DBNull.Value End If If (UStVAn_Erstattungsbetrag.HasValue = true) Then command.Parameters(46).Value = CType(UStVAn_Erstattungsbetrag.Value,Decimal) Else command.Parameters(46).Value = Global.System.DBNull.Value End If If (UStVAn_USteuerbetragEUR.HasValue = true) Then command.Parameters(47).Value = CType(UStVAn_USteuerbetragEUR.Value,Decimal) Else command.Parameters(47).Value = Global.System.DBNull.Value End If If (UStVAn_ErstattungsbetragEUR.HasValue = true) Then command.Parameters(48).Value = CType(UStVAn_ErstattungsbetragEUR.Value,Decimal) Else command.Parameters(48).Value = Global.System.DBNull.Value End If If (UStVAn_Sachbearbeiter Is Nothing) Then command.Parameters(49).Value = Global.System.DBNull.Value Else command.Parameters(49).Value = CType(UStVAn_Sachbearbeiter,String) End If If (UStVAn_zeitstempel.HasValue = true) Then command.Parameters(50).Value = CType(UStVAn_zeitstempel.Value,Date) Else command.Parameters(50).Value = Global.System.DBNull.Value 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 spINSERTtblUStVBelegeingang(ByVal I_UStVBe_KuNr As Global.System.Nullable(Of Integer), ByVal I_UStVBe_EinDat As Global.System.Nullable(Of Date), ByVal I_UStVBe_EinNr As Global.System.Nullable(Of Integer), ByVal I_UStVBe_UStBetrag As Global.System.Nullable(Of Decimal), ByVal I_UStVBe_Beleganzahl As Global.System.Nullable(Of Short), ByVal I_UStVBe_Retourniert As Global.System.Nullable(Of Short), ByVal I_UStVBe_Bemerkung As String, ByVal I_UStVBe_WeiterDat As Global.System.Nullable(Of Date), ByVal I_UStVBe_Empfänger As Global.System.Nullable(Of Integer), ByVal I_UStVBe_Zeitstempel As Global.System.Nullable(Of Date)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(15),Global.System.Data.SqlClient.SqlCommand) If (I_UStVBe_KuNr.HasValue = true) Then command.Parameters(1).Value = CType(I_UStVBe_KuNr.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_UStVBe_EinDat.HasValue = true) Then command.Parameters(2).Value = CType(I_UStVBe_EinDat.Value,Date) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_UStVBe_EinNr.HasValue = true) Then command.Parameters(3).Value = CType(I_UStVBe_EinNr.Value,Integer) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (I_UStVBe_UStBetrag.HasValue = true) Then command.Parameters(4).Value = CType(I_UStVBe_UStBetrag.Value,Decimal) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (I_UStVBe_Beleganzahl.HasValue = true) Then command.Parameters(5).Value = CType(I_UStVBe_Beleganzahl.Value,Short) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (I_UStVBe_Retourniert.HasValue = true) Then command.Parameters(6).Value = CType(I_UStVBe_Retourniert.Value,Short) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (I_UStVBe_Bemerkung Is Nothing) Then command.Parameters(7).Value = Global.System.DBNull.Value Else command.Parameters(7).Value = CType(I_UStVBe_Bemerkung,String) End If If (I_UStVBe_WeiterDat.HasValue = true) Then command.Parameters(8).Value = CType(I_UStVBe_WeiterDat.Value,Date) Else command.Parameters(8).Value = Global.System.DBNull.Value End If If (I_UStVBe_Empfänger.HasValue = true) Then command.Parameters(9).Value = CType(I_UStVBe_Empfänger.Value,Integer) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (I_UStVBe_Zeitstempel.HasValue = true) Then command.Parameters(10).Value = CType(I_UStVBe_Zeitstempel.Value,Date) Else command.Parameters(10).Value = Global.System.DBNull.Value 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 spINSERTtblUStVErstattung(ByVal I_UStVAn_ID As Global.System.Nullable(Of Integer), ByVal I_UStVEr_ID As Global.System.Nullable(Of Short), ByVal I_UStVEr_USteuerbetrag As Global.System.Nullable(Of Decimal), ByVal I_Belegdatum As Global.System.Nullable(Of Date), ByVal I_Belegnummer As String, ByVal I_GutschriftsDatum As Global.System.Nullable(Of Date), ByVal I_GutschriftsNr As Global.System.Nullable(Of Integer), ByVal I_Berufungsdatum As Global.System.Nullable(Of Date), ByVal I_Berufungshöhe As Global.System.Nullable(Of Decimal), ByVal I_Berufungsgrund As String, ByVal I_Bemerkung As String, ByVal I_UStVEr_Umrechnungskurs As Global.System.Nullable(Of Double), ByVal I_UStVEr_USteuerbetragEUR As Global.System.Nullable(Of Decimal), ByVal I_UStVEr_Sachbearbeiter As String, ByVal I_UStVEr_Zeitstempel As Global.System.Nullable(Of Date)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(16),Global.System.Data.SqlClient.SqlCommand) If (I_UStVAn_ID.HasValue = true) Then command.Parameters(1).Value = CType(I_UStVAn_ID.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_UStVEr_ID.HasValue = true) Then command.Parameters(2).Value = CType(I_UStVEr_ID.Value,Short) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_UStVEr_USteuerbetrag.HasValue = true) Then command.Parameters(3).Value = CType(I_UStVEr_USteuerbetrag.Value,Decimal) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (I_Belegdatum.HasValue = true) Then command.Parameters(4).Value = CType(I_Belegdatum.Value,Date) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (I_Belegnummer Is Nothing) Then command.Parameters(5).Value = Global.System.DBNull.Value Else command.Parameters(5).Value = CType(I_Belegnummer,String) End If If (I_GutschriftsDatum.HasValue = true) Then command.Parameters(6).Value = CType(I_GutschriftsDatum.Value,Date) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (I_GutschriftsNr.HasValue = true) Then command.Parameters(7).Value = CType(I_GutschriftsNr.Value,Integer) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (I_Berufungsdatum.HasValue = true) Then command.Parameters(8).Value = CType(I_Berufungsdatum.Value,Date) Else command.Parameters(8).Value = Global.System.DBNull.Value End If If (I_Berufungshöhe.HasValue = true) Then command.Parameters(9).Value = CType(I_Berufungshöhe.Value,Decimal) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (I_Berufungsgrund Is Nothing) Then command.Parameters(10).Value = Global.System.DBNull.Value Else command.Parameters(10).Value = CType(I_Berufungsgrund,String) End If If (I_Bemerkung Is Nothing) Then command.Parameters(11).Value = Global.System.DBNull.Value Else command.Parameters(11).Value = CType(I_Bemerkung,String) End If If (I_UStVEr_Umrechnungskurs.HasValue = true) Then command.Parameters(12).Value = CType(I_UStVEr_Umrechnungskurs.Value,Double) Else command.Parameters(12).Value = Global.System.DBNull.Value End If If (I_UStVEr_USteuerbetragEUR.HasValue = true) Then command.Parameters(13).Value = CType(I_UStVEr_USteuerbetragEUR.Value,Decimal) Else command.Parameters(13).Value = Global.System.DBNull.Value End If If (I_UStVEr_Sachbearbeiter Is Nothing) Then command.Parameters(14).Value = Global.System.DBNull.Value Else command.Parameters(14).Value = CType(I_UStVEr_Sachbearbeiter,String) End If If (I_UStVEr_Zeitstempel.HasValue = true) Then command.Parameters(15).Value = CType(I_UStVEr_Zeitstempel.Value,Date) Else command.Parameters(15).Value = Global.System.DBNull.Value 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 spINSERTtblUStVPositionen(ByVal UStVAn_ID As Global.System.Nullable(Of Integer), ByVal UStVPo_ID As Global.System.Nullable(Of Short), ByVal UStVPo_ReDat As Global.System.Nullable(Of Date), ByVal UStVPo_ReNr As String, ByVal UStVPo_USteuerbetrag As Global.System.Nullable(Of Decimal), ByVal UStVPo_Leistungsbezeichnung As String, ByVal UStVPo_Leistender As String, ByVal UStVPo_Schnittstelle As Global.System.Nullable(Of Boolean), ByVal UStVPo_SchnittstellenNr As Global.System.Nullable(Of Short), ByVal UStVPo_Umrechnungskurs As Global.System.Nullable(Of Double), ByVal UStVPo_USteuerbetragEUR As Global.System.Nullable(Of Decimal), ByVal UStVPo_Sachbearbeiter As String, ByVal UStVPo_Zeitstempel As Global.System.Nullable(Of Date)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(17),Global.System.Data.SqlClient.SqlCommand) If (UStVAn_ID.HasValue = true) Then command.Parameters(1).Value = CType(UStVAn_ID.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (UStVPo_ID.HasValue = true) Then command.Parameters(2).Value = CType(UStVPo_ID.Value,Short) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (UStVPo_ReDat.HasValue = true) Then command.Parameters(3).Value = CType(UStVPo_ReDat.Value,Date) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (UStVPo_ReNr Is Nothing) Then command.Parameters(4).Value = Global.System.DBNull.Value Else command.Parameters(4).Value = CType(UStVPo_ReNr,String) End If If (UStVPo_USteuerbetrag.HasValue = true) Then command.Parameters(5).Value = CType(UStVPo_USteuerbetrag.Value,Decimal) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (UStVPo_Leistungsbezeichnung Is Nothing) Then command.Parameters(6).Value = Global.System.DBNull.Value Else command.Parameters(6).Value = CType(UStVPo_Leistungsbezeichnung,String) End If If (UStVPo_Leistender Is Nothing) Then command.Parameters(7).Value = Global.System.DBNull.Value Else command.Parameters(7).Value = CType(UStVPo_Leistender,String) End If If (UStVPo_Schnittstelle.HasValue = true) Then command.Parameters(8).Value = CType(UStVPo_Schnittstelle.Value,Boolean) Else command.Parameters(8).Value = Global.System.DBNull.Value End If If (UStVPo_SchnittstellenNr.HasValue = true) Then command.Parameters(9).Value = CType(UStVPo_SchnittstellenNr.Value,Short) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (UStVPo_Umrechnungskurs.HasValue = true) Then command.Parameters(10).Value = CType(UStVPo_Umrechnungskurs.Value,Double) Else command.Parameters(10).Value = Global.System.DBNull.Value End If If (UStVPo_USteuerbetragEUR.HasValue = true) Then command.Parameters(11).Value = CType(UStVPo_USteuerbetragEUR.Value,Decimal) Else command.Parameters(11).Value = Global.System.DBNull.Value End If If (UStVPo_Sachbearbeiter Is Nothing) Then command.Parameters(12).Value = Global.System.DBNull.Value Else command.Parameters(12).Value = CType(UStVPo_Sachbearbeiter,String) End If If (UStVPo_Zeitstempel.HasValue = true) Then command.Parameters(13).Value = CType(UStVPo_Zeitstempel.Value,Date) Else command.Parameters(13).Value = Global.System.DBNull.Value 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 spINSERTtblZolaris_EZoll_NCTS(ByVal I_CRN As String, ByVal I_AnmeldungsDatum As Global.System.Nullable(Of Date), ByVal I_GarantieWert As Global.System.Nullable(Of Decimal), ByVal I_AnmID As Global.System.Nullable(Of Integer), ByVal I_ErledigungsTypID As String, ByVal I_Warenbezeichnung As String, ByVal I_Absender As String, ByVal I_Empfaenger As String, ByVal I_Gesamtrohmasse As Global.System.Nullable(Of Double), ByVal I_Abgangszollstelle As String, ByVal I_Bestimmungszollstelle As String, ByVal I_Gestellungsfrist As Global.System.Nullable(Of Date), ByVal I_LRN As String, ByVal I_DatumBestimmungErreicht As Global.System.Nullable(Of Date), ByVal I_GRN As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(18),Global.System.Data.SqlClient.SqlCommand) If (I_CRN Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(I_CRN,String) End If If (I_AnmeldungsDatum.HasValue = true) Then command.Parameters(2).Value = CType(I_AnmeldungsDatum.Value,Date) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (I_GarantieWert.HasValue = true) Then command.Parameters(3).Value = CType(I_GarantieWert.Value,Decimal) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (I_AnmID.HasValue = true) Then command.Parameters(4).Value = CType(I_AnmID.Value,Integer) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (I_ErledigungsTypID Is Nothing) Then command.Parameters(5).Value = Global.System.DBNull.Value Else command.Parameters(5).Value = CType(I_ErledigungsTypID,String) End If If (I_Warenbezeichnung Is Nothing) Then command.Parameters(6).Value = Global.System.DBNull.Value Else command.Parameters(6).Value = CType(I_Warenbezeichnung,String) End If If (I_Absender Is Nothing) Then command.Parameters(7).Value = Global.System.DBNull.Value Else command.Parameters(7).Value = CType(I_Absender,String) End If If (I_Empfaenger Is Nothing) Then command.Parameters(8).Value = Global.System.DBNull.Value Else command.Parameters(8).Value = CType(I_Empfaenger,String) End If If (I_Gesamtrohmasse.HasValue = true) Then command.Parameters(9).Value = CType(I_Gesamtrohmasse.Value,Double) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (I_Abgangszollstelle Is Nothing) Then command.Parameters(10).Value = Global.System.DBNull.Value Else command.Parameters(10).Value = CType(I_Abgangszollstelle,String) End If If (I_Bestimmungszollstelle Is Nothing) Then command.Parameters(11).Value = Global.System.DBNull.Value Else command.Parameters(11).Value = CType(I_Bestimmungszollstelle,String) End If If (I_Gestellungsfrist.HasValue = true) Then command.Parameters(12).Value = CType(I_Gestellungsfrist.Value,Date) Else command.Parameters(12).Value = Global.System.DBNull.Value End If If (I_LRN Is Nothing) Then command.Parameters(13).Value = Global.System.DBNull.Value Else command.Parameters(13).Value = CType(I_LRN,String) End If If (I_DatumBestimmungErreicht.HasValue = true) Then command.Parameters(14).Value = CType(I_DatumBestimmungErreicht.Value,Date) Else command.Parameters(14).Value = Global.System.DBNull.Value End If If (I_GRN Is Nothing) Then command.Parameters(15).Value = Global.System.DBNull.Value Else command.Parameters(15).Value = CType(I_GRN,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 spINSERTZkteingAusAccess( _ ByVal I_Index As Global.System.Nullable(Of Integer), _ ByVal I_Status As String, _ ByVal I_ZollamtsNr As Global.System.Nullable(Of Short), _ ByVal I_Jahr As Global.System.Nullable(Of Short), _ ByVal I_KennNr As Global.System.Nullable(Of Short), _ ByVal I_Nummer As Global.System.Nullable(Of Integer), _ ByVal I_Leitzahl As Global.System.Nullable(Of Short), _ ByVal I_Belegart As String, _ ByVal I_LeistungsNr As Global.System.Nullable(Of Short), _ ByVal I_Betrag As Global.System.Nullable(Of Decimal), _ ByVal I_Eingabedatum As Global.System.Nullable(Of Date), _ ByVal I_Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal I_Übernahmedatum As Global.System.Nullable(Of Date), _ ByVal I_Bemerkung As String, _ ByVal I_Sachbearbeiter As String, _ ByVal I_Bezugsnummer As String, _ ByVal I_Registriernummer As String, _ ByVal I_Korrekturnummer As String, _ ByVal I_AOFD As String, _ ByVal I_AKTO As String, _ ByVal I_Fälligkeitsdatum As Global.System.Nullable(Of Date), _ ByVal I_Dateiname As String, _ ByVal I_Mandant As String, _ ByVal I_Niederlassung As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(19),Global.System.Data.SqlClient.SqlCommand) If (I_Index.HasValue = true) Then command.Parameters(1).Value = CType(I_Index.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (I_Status Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else command.Parameters(2).Value = CType(I_Status,String) End If If (I_ZollamtsNr.HasValue = true) Then command.Parameters(3).Value = CType(I_ZollamtsNr.Value,Short) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (I_Jahr.HasValue = true) Then command.Parameters(4).Value = CType(I_Jahr.Value,Short) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (I_KennNr.HasValue = true) Then command.Parameters(5).Value = CType(I_KennNr.Value,Short) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (I_Nummer.HasValue = true) Then command.Parameters(6).Value = CType(I_Nummer.Value,Integer) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (I_Leitzahl.HasValue = true) Then command.Parameters(7).Value = CType(I_Leitzahl.Value,Short) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (I_Belegart Is Nothing) Then command.Parameters(8).Value = Global.System.DBNull.Value Else command.Parameters(8).Value = CType(I_Belegart,String) End If If (I_LeistungsNr.HasValue = true) Then command.Parameters(9).Value = CType(I_LeistungsNr.Value,Short) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (I_Betrag.HasValue = true) Then command.Parameters(10).Value = CType(I_Betrag.Value,Decimal) Else command.Parameters(10).Value = Global.System.DBNull.Value End If If (I_Eingabedatum.HasValue = true) Then command.Parameters(11).Value = CType(I_Eingabedatum.Value,Date) Else command.Parameters(11).Value = Global.System.DBNull.Value End If If (I_Abfertigungsdatum.HasValue = true) Then command.Parameters(12).Value = CType(I_Abfertigungsdatum.Value,Date) Else command.Parameters(12).Value = Global.System.DBNull.Value End If If (I_Übernahmedatum.HasValue = true) Then command.Parameters(13).Value = CType(I_Übernahmedatum.Value,Date) Else command.Parameters(13).Value = Global.System.DBNull.Value End If If (I_Bemerkung Is Nothing) Then command.Parameters(14).Value = Global.System.DBNull.Value Else command.Parameters(14).Value = CType(I_Bemerkung,String) End If If (I_Sachbearbeiter Is Nothing) Then command.Parameters(15).Value = Global.System.DBNull.Value Else command.Parameters(15).Value = CType(I_Sachbearbeiter,String) End If If (I_Bezugsnummer Is Nothing) Then command.Parameters(16).Value = Global.System.DBNull.Value Else command.Parameters(16).Value = CType(I_Bezugsnummer,String) End If If (I_Registriernummer Is Nothing) Then command.Parameters(17).Value = Global.System.DBNull.Value Else command.Parameters(17).Value = CType(I_Registriernummer,String) End If If (I_Korrekturnummer Is Nothing) Then command.Parameters(18).Value = Global.System.DBNull.Value Else command.Parameters(18).Value = CType(I_Korrekturnummer,String) End If If (I_AOFD Is Nothing) Then command.Parameters(19).Value = Global.System.DBNull.Value Else command.Parameters(19).Value = CType(I_AOFD,String) End If If (I_AKTO Is Nothing) Then command.Parameters(20).Value = Global.System.DBNull.Value Else command.Parameters(20).Value = CType(I_AKTO,String) End If If (I_Fälligkeitsdatum.HasValue = true) Then command.Parameters(21).Value = CType(I_Fälligkeitsdatum.Value,Date) Else command.Parameters(21).Value = Global.System.DBNull.Value End If If (I_Dateiname Is Nothing) Then command.Parameters(22).Value = Global.System.DBNull.Value Else command.Parameters(22).Value = CType(I_Dateiname,String) End If If (I_Mandant Is Nothing) Then command.Parameters(23).Value = Global.System.DBNull.Value Else command.Parameters(23).Value = CType(I_Mandant,String) End If If (I_Niederlassung Is Nothing) Then command.Parameters(24).Value = Global.System.DBNull.Value Else command.Parameters(24).Value = CType(I_Niederlassung,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 spSqlLookup(ByVal Spalte As String, ByVal Schema As String, ByVal Tabelle As String, ByVal Bedingung As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(20),Global.System.Data.SqlClient.SqlCommand) If (Spalte Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(Spalte,String) End If If (Schema Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else command.Parameters(2).Value = CType(Schema,String) End If If (Tabelle Is Nothing) Then command.Parameters(3).Value = Global.System.DBNull.Value Else command.Parameters(3).Value = CType(Tabelle,String) End If If (Bedingung Is Nothing) Then command.Parameters(4).Value = Global.System.DBNull.Value Else command.Parameters(4).Value = CType(Bedingung,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 spTrdinFiBuUpdateInvoice(ByVal Rechnungsdatum As Global.System.Nullable(Of Date), ByVal Rechnungsnummer As Global.System.Nullable(Of Integer), ByVal TrdinDateiname As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(21),Global.System.Data.SqlClient.SqlCommand) If (Rechnungsdatum.HasValue = true) Then command.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then command.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (TrdinDateiname Is Nothing) Then command.Parameters(3).Value = Global.System.DBNull.Value Else command.Parameters(3).Value = CType(TrdinDateiname,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 spTrdinSchreibenInsertInvoice( _ ByVal Rechnungsdatum As Global.System.Nullable(Of Date), _ ByVal Rechnungsnummer As Global.System.Nullable(Of Integer), _ ByVal Speditionsbuch As Global.System.Nullable(Of Short), _ ByVal FilialenNr As Global.System.Nullable(Of Short), _ ByVal AbfertigungsNr As Global.System.Nullable(Of Integer), _ ByVal UnterNr As Global.System.Nullable(Of Short), _ ByVal Abfertigungsdatum As Global.System.Nullable(Of Date), _ ByVal BelegartenNr As Global.System.Nullable(Of Short), _ ByVal KundenNrZentrale As Global.System.Nullable(Of Integer), _ ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), _ ByVal RechnungsLandKz As String, _ ByVal RechnungsUstIdKz As String, _ ByVal RechnungsUstIdNr As String, _ ByVal Lastschrift As Global.System.Nullable(Of Boolean), _ ByVal Steuerschlüssel As Global.System.Nullable(Of Short), _ ByVal SteuersatzProzent As Global.System.Nullable(Of Single), _ ByVal WährungLokal As String, _ ByVal SteuerpflichtigerBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetragLokal As Global.System.Nullable(Of Decimal), _ ByVal SteuerbetragLokal As Global.System.Nullable(Of Decimal), _ ByVal RechnungsbetragLokal As Global.System.Nullable(Of Decimal), _ ByVal WährungFremd As String, _ ByVal SteuerpflichtigerBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal SteuerfreierBetragFremd As Global.System.Nullable(Of Decimal), _ ByVal SteuerbetragFremd As Global.System.Nullable(Of Decimal), _ ByVal RechnungsbetragFremd As Global.System.Nullable(Of Decimal), _ ByVal TrdinDateiname As String, _ ByVal Abgleich_op_debitor As Global.System.Nullable(Of Boolean), _ ByVal Nettozahlungsziel As Global.System.Nullable(Of Short), _ ByVal Firma_ID As Global.System.Nullable(Of Short), _ ByVal UStVAn_ID As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(22),Global.System.Data.SqlClient.SqlCommand) If (Rechnungsdatum.HasValue = true) Then command.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then command.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (Speditionsbuch.HasValue = true) Then command.Parameters(3).Value = CType(Speditionsbuch.Value,Short) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (FilialenNr.HasValue = true) Then command.Parameters(4).Value = CType(FilialenNr.Value,Short) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (AbfertigungsNr.HasValue = true) Then command.Parameters(5).Value = CType(AbfertigungsNr.Value,Integer) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (UnterNr.HasValue = true) Then command.Parameters(6).Value = CType(UnterNr.Value,Short) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (Abfertigungsdatum.HasValue = true) Then command.Parameters(7).Value = CType(Abfertigungsdatum.Value,Date) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (BelegartenNr.HasValue = true) Then command.Parameters(8).Value = CType(BelegartenNr.Value,Short) Else command.Parameters(8).Value = Global.System.DBNull.Value End If If (KundenNrZentrale.HasValue = true) Then command.Parameters(9).Value = CType(KundenNrZentrale.Value,Integer) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (RechnungsKundenNr.HasValue = true) Then command.Parameters(10).Value = CType(RechnungsKundenNr.Value,Integer) Else command.Parameters(10).Value = Global.System.DBNull.Value End If If (RechnungsLandKz Is Nothing) Then command.Parameters(11).Value = Global.System.DBNull.Value Else command.Parameters(11).Value = CType(RechnungsLandKz,String) End If If (RechnungsUstIdKz Is Nothing) Then command.Parameters(12).Value = Global.System.DBNull.Value Else command.Parameters(12).Value = CType(RechnungsUstIdKz,String) End If If (RechnungsUstIdNr Is Nothing) Then command.Parameters(13).Value = Global.System.DBNull.Value Else command.Parameters(13).Value = CType(RechnungsUstIdNr,String) End If If (Lastschrift.HasValue = true) Then command.Parameters(14).Value = CType(Lastschrift.Value,Boolean) Else command.Parameters(14).Value = Global.System.DBNull.Value End If If (Steuerschlüssel.HasValue = true) Then command.Parameters(15).Value = CType(Steuerschlüssel.Value,Short) Else command.Parameters(15).Value = Global.System.DBNull.Value End If If (SteuersatzProzent.HasValue = true) Then command.Parameters(16).Value = CType(SteuersatzProzent.Value,Single) Else command.Parameters(16).Value = Global.System.DBNull.Value End If If (WährungLokal Is Nothing) Then command.Parameters(17).Value = Global.System.DBNull.Value Else command.Parameters(17).Value = CType(WährungLokal,String) End If If (SteuerpflichtigerBetragLokal.HasValue = true) Then command.Parameters(18).Value = CType(SteuerpflichtigerBetragLokal.Value,Decimal) Else command.Parameters(18).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragLokal.HasValue = true) Then command.Parameters(19).Value = CType(SteuerfreierBetragLokal.Value,Decimal) Else command.Parameters(19).Value = Global.System.DBNull.Value End If If (SteuerbetragLokal.HasValue = true) Then command.Parameters(20).Value = CType(SteuerbetragLokal.Value,Decimal) Else command.Parameters(20).Value = Global.System.DBNull.Value End If If (RechnungsbetragLokal.HasValue = true) Then command.Parameters(21).Value = CType(RechnungsbetragLokal.Value,Decimal) Else command.Parameters(21).Value = Global.System.DBNull.Value End If If (WährungFremd Is Nothing) Then command.Parameters(22).Value = Global.System.DBNull.Value Else command.Parameters(22).Value = CType(WährungFremd,String) End If If (SteuerpflichtigerBetragFremd.HasValue = true) Then command.Parameters(23).Value = CType(SteuerpflichtigerBetragFremd.Value,Decimal) Else command.Parameters(23).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragFremd.HasValue = true) Then command.Parameters(24).Value = CType(SteuerfreierBetragFremd.Value,Decimal) Else command.Parameters(24).Value = Global.System.DBNull.Value End If If (SteuerbetragFremd.HasValue = true) Then command.Parameters(25).Value = CType(SteuerbetragFremd.Value,Decimal) Else command.Parameters(25).Value = Global.System.DBNull.Value End If If (RechnungsbetragFremd.HasValue = true) Then command.Parameters(26).Value = CType(RechnungsbetragFremd.Value,Decimal) Else command.Parameters(26).Value = Global.System.DBNull.Value End If If (TrdinDateiname Is Nothing) Then command.Parameters(27).Value = Global.System.DBNull.Value Else command.Parameters(27).Value = CType(TrdinDateiname,String) End If If (Abgleich_op_debitor.HasValue = true) Then command.Parameters(28).Value = CType(Abgleich_op_debitor.Value,Boolean) Else command.Parameters(28).Value = Global.System.DBNull.Value End If If (Nettozahlungsziel.HasValue = true) Then command.Parameters(29).Value = CType(Nettozahlungsziel.Value,Short) Else command.Parameters(29).Value = Global.System.DBNull.Value End If If (Firma_ID.HasValue = true) Then command.Parameters(30).Value = CType(Firma_ID.Value,Short) Else command.Parameters(30).Value = Global.System.DBNull.Value End If If (UStVAn_ID.HasValue = true) Then command.Parameters(31).Value = CType(UStVAn_ID.Value,Integer) Else command.Parameters(31).Value = Global.System.DBNull.Value 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 spTrdinSchreibenInsertProduct(ByVal Rechnungsdatum As Global.System.Nullable(Of Date), ByVal Rechnungsnummer As Global.System.Nullable(Of Integer), ByVal Leistungsnummer As Global.System.Nullable(Of Short), ByVal Leistungsbezeichnung As String, ByVal Steuerpflichtig As Global.System.Nullable(Of Boolean), ByVal SteuerpflichtigerBetragLokal As Global.System.Nullable(Of Decimal), ByVal SteuerfreierBetragLokal As Global.System.Nullable(Of Decimal), ByVal SteuerpflichtigerBetragFremd As Global.System.Nullable(Of Decimal), ByVal SteuerfreierBetragFremd As Global.System.Nullable(Of Decimal), ByVal Belegdaten As String, ByVal Sachkonto As String, ByVal Buchungstext As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(23),Global.System.Data.SqlClient.SqlCommand) If (Rechnungsdatum.HasValue = true) Then command.Parameters(1).Value = CType(Rechnungsdatum.Value,Date) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (Rechnungsnummer.HasValue = true) Then command.Parameters(2).Value = CType(Rechnungsnummer.Value,Integer) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (Leistungsnummer.HasValue = true) Then command.Parameters(3).Value = CType(Leistungsnummer.Value,Short) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (Leistungsbezeichnung Is Nothing) Then command.Parameters(4).Value = Global.System.DBNull.Value Else command.Parameters(4).Value = CType(Leistungsbezeichnung,String) End If If (Steuerpflichtig.HasValue = true) Then command.Parameters(5).Value = CType(Steuerpflichtig.Value,Boolean) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (SteuerpflichtigerBetragLokal.HasValue = true) Then command.Parameters(6).Value = CType(SteuerpflichtigerBetragLokal.Value,Decimal) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragLokal.HasValue = true) Then command.Parameters(7).Value = CType(SteuerfreierBetragLokal.Value,Decimal) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (SteuerpflichtigerBetragFremd.HasValue = true) Then command.Parameters(8).Value = CType(SteuerpflichtigerBetragFremd.Value,Decimal) Else command.Parameters(8).Value = Global.System.DBNull.Value End If If (SteuerfreierBetragFremd.HasValue = true) Then command.Parameters(9).Value = CType(SteuerfreierBetragFremd.Value,Decimal) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (Belegdaten Is Nothing) Then command.Parameters(10).Value = Global.System.DBNull.Value Else command.Parameters(10).Value = CType(Belegdaten,String) End If If (Sachkonto Is Nothing) Then command.Parameters(11).Value = Global.System.DBNull.Value Else command.Parameters(11).Value = CType(Sachkonto,String) End If If (Buchungstext Is Nothing) Then command.Parameters(12).Value = Global.System.DBNull.Value Else command.Parameters(12).Value = CType(Buchungstext,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 spTrdinSchreibenUpdateRK(ByVal RechnungsDatum As Global.System.Nullable(Of Date), ByVal RechnungsNr As Global.System.Nullable(Of Integer), ByVal Trdin As Global.System.Nullable(Of Boolean)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(24),Global.System.Data.SqlClient.SqlCommand) If (RechnungsDatum.HasValue = true) Then command.Parameters(1).Value = CType(RechnungsDatum.Value,Date) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (RechnungsNr.HasValue = true) Then command.Parameters(2).Value = CType(RechnungsNr.Value,Integer) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (Trdin.HasValue = true) Then command.Parameters(3).Value = CType(Trdin.Value,Boolean) Else command.Parameters(3).Value = Global.System.DBNull.Value 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 spUPDATE_tblZabis_Atlas_NCTS( _ ByVal U_basman_nr As String, _ ByVal U_basman_nl As String, _ ByVal U_veoant_beznr As String, _ ByVal U_veoant_lfdnr As Global.System.Nullable(Of Short), _ ByVal U_veoant_stat As Global.System.Nullable(Of Short), _ ByVal U_veoant_arbnr As String, _ ByVal U_veoant_mrn As String, _ ByVal U_veoant_abgdst As String, _ ByVal U_veoant_bedst As String, _ ByVal U_veoant_wgdat As Global.System.Nullable(Of Date), _ ByVal U_veoant_anzpos As Global.System.Nullable(Of Short), _ ByVal U_veoant_andat As Global.System.Nullable(Of Date), _ ByVal U_veoant_korant As Global.System.Nullable(Of Short), _ ByVal U_veoant_vrbdat As Global.System.Nullable(Of Date), _ ByVal U_veoant_sb As String, _ ByVal U_veopos_posnr As Global.System.Nullable(Of Short), _ ByVal U_veopos_stat As Global.System.Nullable(Of Short), _ ByVal U_veopos_wbsch1 As String, _ ByVal U_veopos_rohmas As Global.System.Nullable(Of Decimal), _ ByVal U_veoerz_sicbsc As String, _ ByVal U_veoerz_basbtg As Global.System.Nullable(Of Decimal), _ ByVal U_veoerz_sicbtg As Global.System.Nullable(Of Decimal), _ ByVal U_vegdat_erldat As Global.System.Nullable(Of Date), _ ByVal U_History As Global.System.Nullable(Of Boolean), _ ByVal U_veoadr_name1 As String, _ ByVal ID_NCTS As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(25),Global.System.Data.SqlClient.SqlCommand) If (U_basman_nr Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(U_basman_nr,String) End If If (U_basman_nl Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else command.Parameters(2).Value = CType(U_basman_nl,String) End If If (U_veoant_beznr Is Nothing) Then command.Parameters(3).Value = Global.System.DBNull.Value Else command.Parameters(3).Value = CType(U_veoant_beznr,String) End If If (U_veoant_lfdnr.HasValue = true) Then command.Parameters(4).Value = CType(U_veoant_lfdnr.Value,Short) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (U_veoant_stat.HasValue = true) Then command.Parameters(5).Value = CType(U_veoant_stat.Value,Short) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (U_veoant_arbnr Is Nothing) Then command.Parameters(6).Value = Global.System.DBNull.Value Else command.Parameters(6).Value = CType(U_veoant_arbnr,String) End If If (U_veoant_mrn Is Nothing) Then command.Parameters(7).Value = Global.System.DBNull.Value Else command.Parameters(7).Value = CType(U_veoant_mrn,String) End If If (U_veoant_abgdst Is Nothing) Then command.Parameters(8).Value = Global.System.DBNull.Value Else command.Parameters(8).Value = CType(U_veoant_abgdst,String) End If If (U_veoant_bedst Is Nothing) Then command.Parameters(9).Value = Global.System.DBNull.Value Else command.Parameters(9).Value = CType(U_veoant_bedst,String) End If If (U_veoant_wgdat.HasValue = true) Then command.Parameters(10).Value = CType(U_veoant_wgdat.Value,Date) Else command.Parameters(10).Value = Global.System.DBNull.Value End If If (U_veoant_anzpos.HasValue = true) Then command.Parameters(11).Value = CType(U_veoant_anzpos.Value,Short) Else command.Parameters(11).Value = Global.System.DBNull.Value End If If (U_veoant_andat.HasValue = true) Then command.Parameters(12).Value = CType(U_veoant_andat.Value,Date) Else command.Parameters(12).Value = Global.System.DBNull.Value End If If (U_veoant_korant.HasValue = true) Then command.Parameters(13).Value = CType(U_veoant_korant.Value,Short) Else command.Parameters(13).Value = Global.System.DBNull.Value End If If (U_veoant_vrbdat.HasValue = true) Then command.Parameters(14).Value = CType(U_veoant_vrbdat.Value,Date) Else command.Parameters(14).Value = Global.System.DBNull.Value End If If (U_veoant_sb Is Nothing) Then command.Parameters(15).Value = Global.System.DBNull.Value Else command.Parameters(15).Value = CType(U_veoant_sb,String) End If If (U_veopos_posnr.HasValue = true) Then command.Parameters(16).Value = CType(U_veopos_posnr.Value,Short) Else command.Parameters(16).Value = Global.System.DBNull.Value End If If (U_veopos_stat.HasValue = true) Then command.Parameters(17).Value = CType(U_veopos_stat.Value,Short) Else command.Parameters(17).Value = Global.System.DBNull.Value End If If (U_veopos_wbsch1 Is Nothing) Then command.Parameters(18).Value = Global.System.DBNull.Value Else command.Parameters(18).Value = CType(U_veopos_wbsch1,String) End If If (U_veopos_rohmas.HasValue = true) Then command.Parameters(19).Value = CType(U_veopos_rohmas.Value,Decimal) Else command.Parameters(19).Value = Global.System.DBNull.Value End If If (U_veoerz_sicbsc Is Nothing) Then command.Parameters(20).Value = Global.System.DBNull.Value Else command.Parameters(20).Value = CType(U_veoerz_sicbsc,String) End If If (U_veoerz_basbtg.HasValue = true) Then command.Parameters(21).Value = CType(U_veoerz_basbtg.Value,Decimal) Else command.Parameters(21).Value = Global.System.DBNull.Value End If If (U_veoerz_sicbtg.HasValue = true) Then command.Parameters(22).Value = CType(U_veoerz_sicbtg.Value,Decimal) Else command.Parameters(22).Value = Global.System.DBNull.Value End If If (U_vegdat_erldat.HasValue = true) Then command.Parameters(23).Value = CType(U_vegdat_erldat.Value,Date) Else command.Parameters(23).Value = Global.System.DBNull.Value End If If (U_History.HasValue = true) Then command.Parameters(24).Value = CType(U_History.Value,Boolean) Else command.Parameters(24).Value = Global.System.DBNull.Value End If If (U_veoadr_name1 Is Nothing) Then command.Parameters(25).Value = Global.System.DBNull.Value Else command.Parameters(25).Value = CType(U_veoadr_name1,String) End If If (ID_NCTS.HasValue = true) Then command.Parameters(26).Value = CType(ID_NCTS.Value,Integer) Else command.Parameters(26).Value = Global.System.DBNull.Value 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 spUPDATEReDruFirma_ID(ByVal Sachbearbeiter As String, ByVal Firma_ID As Global.System.Nullable(Of Short)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(26),Global.System.Data.SqlClient.SqlCommand) If (Sachbearbeiter Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(Sachbearbeiter,String) End If If (Firma_ID.HasValue = true) Then command.Parameters(2).Value = CType(Firma_ID.Value,Short) Else command.Parameters(2).Value = Global.System.DBNull.Value 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 spUPDATEReDruSachbearbeiterEintragen(ByVal Sachbearbeiter As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(27),Global.System.Data.SqlClient.SqlCommand) If (Sachbearbeiter Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(Sachbearbeiter,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 spUPDATEReDruSaReNrEintragen(ByVal U_RechnungsNr As Global.System.Nullable(Of Integer), ByVal U_RechnungsDatum As Global.System.Nullable(Of Date), ByVal U_Buchungsjahr As Global.System.Nullable(Of Short), ByVal U_DruckDatumZeit As Global.System.Nullable(Of Date), ByVal U_Status As Global.System.Nullable(Of Short), ByVal Firma_ID As Global.System.Nullable(Of Short), ByVal Status As Global.System.Nullable(Of Short), ByVal Sammelrechnung As Global.System.Nullable(Of Short), ByVal Sachbearbeiter As String, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal BelegartenNr As Global.System.Nullable(Of Short), ByVal Währungscode As String, ByVal Steuersatz As Global.System.Nullable(Of Single), ByVal Lastschrift As Global.System.Nullable(Of Boolean)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(28),Global.System.Data.SqlClient.SqlCommand) If (U_RechnungsNr.HasValue = true) Then command.Parameters(1).Value = CType(U_RechnungsNr.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (U_RechnungsDatum.HasValue = true) Then command.Parameters(2).Value = CType(U_RechnungsDatum.Value,Date) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (U_Buchungsjahr.HasValue = true) Then command.Parameters(3).Value = CType(U_Buchungsjahr.Value,Short) Else command.Parameters(3).Value = Global.System.DBNull.Value End If If (U_DruckDatumZeit.HasValue = true) Then command.Parameters(4).Value = CType(U_DruckDatumZeit.Value,Date) Else command.Parameters(4).Value = Global.System.DBNull.Value End If If (U_Status.HasValue = true) Then command.Parameters(5).Value = CType(U_Status.Value,Short) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (Firma_ID.HasValue = true) Then command.Parameters(6).Value = CType(Firma_ID.Value,Short) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then command.Parameters(7).Value = CType(Status.Value,Short) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then command.Parameters(8).Value = CType(Sammelrechnung.Value,Short) Else command.Parameters(8).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then command.Parameters(9).Value = Global.System.DBNull.Value Else command.Parameters(9).Value = CType(Sachbearbeiter,String) End If If (RechnungsKundenNr.HasValue = true) Then command.Parameters(10).Value = CType(RechnungsKundenNr.Value,Integer) Else command.Parameters(10).Value = Global.System.DBNull.Value End If If (BelegartenNr.HasValue = true) Then command.Parameters(11).Value = CType(BelegartenNr.Value,Short) Else command.Parameters(11).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then command.Parameters(12).Value = Global.System.DBNull.Value Else command.Parameters(12).Value = CType(Währungscode,String) End If If (Steuersatz.HasValue = true) Then command.Parameters(13).Value = CType(Steuersatz.Value,Single) Else command.Parameters(13).Value = Global.System.DBNull.Value End If If (Lastschrift.HasValue = true) Then command.Parameters(14).Value = CType(Lastschrift.Value,Boolean) Else command.Parameters(14).Value = Global.System.DBNull.Value 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 spUPDATEReDruSumReGu(ByVal U_BelegartenNr As Global.System.Nullable(Of Short), ByVal U_BelegartenKz As String, ByVal U_BelegartenBez As String, ByVal U_Vorzeichen As String, ByVal Firma_ID As Global.System.Nullable(Of Short), ByVal Status As Global.System.Nullable(Of Short), ByVal Sammelrechnung As Global.System.Nullable(Of Short), ByVal Sachbearbeiter As String, ByVal RechnungsKundenNr As Global.System.Nullable(Of Integer), ByVal Währungscode As String, ByVal Steuersatz As Global.System.Nullable(Of Single), ByVal Lastschrift As Global.System.Nullable(Of Boolean)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(29),Global.System.Data.SqlClient.SqlCommand) If (U_BelegartenNr.HasValue = true) Then command.Parameters(1).Value = CType(U_BelegartenNr.Value,Short) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (U_BelegartenKz Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else command.Parameters(2).Value = CType(U_BelegartenKz,String) End If If (U_BelegartenBez Is Nothing) Then command.Parameters(3).Value = Global.System.DBNull.Value Else command.Parameters(3).Value = CType(U_BelegartenBez,String) End If If (U_Vorzeichen Is Nothing) Then command.Parameters(4).Value = Global.System.DBNull.Value Else command.Parameters(4).Value = CType(U_Vorzeichen,String) End If If (Firma_ID.HasValue = true) Then command.Parameters(5).Value = CType(Firma_ID.Value,Short) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (Status.HasValue = true) Then command.Parameters(6).Value = CType(Status.Value,Short) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (Sammelrechnung.HasValue = true) Then command.Parameters(7).Value = CType(Sammelrechnung.Value,Short) Else command.Parameters(7).Value = Global.System.DBNull.Value End If If (Sachbearbeiter Is Nothing) Then command.Parameters(8).Value = Global.System.DBNull.Value Else command.Parameters(8).Value = CType(Sachbearbeiter,String) End If If (RechnungsKundenNr.HasValue = true) Then command.Parameters(9).Value = CType(RechnungsKundenNr.Value,Integer) Else command.Parameters(9).Value = Global.System.DBNull.Value End If If (Währungscode Is Nothing) Then command.Parameters(10).Value = Global.System.DBNull.Value Else command.Parameters(10).Value = CType(Währungscode,String) End If If (Steuersatz.HasValue = true) Then command.Parameters(11).Value = CType(Steuersatz.Value,Single) Else command.Parameters(11).Value = Global.System.DBNull.Value End If If (Lastschrift.HasValue = true) Then command.Parameters(12).Value = CType(Lastschrift.Value,Boolean) Else command.Parameters(12).Value = Global.System.DBNull.Value 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 spUPDATEReDruText(ByVal U_Text As String, ByVal U_Nettozahlungsziel As Global.System.Nullable(Of Short), ByVal RK_ID As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(30),Global.System.Data.SqlClient.SqlCommand) If (U_Text Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(U_Text,String) End If If (U_Nettozahlungsziel.HasValue = true) Then command.Parameters(2).Value = CType(U_Nettozahlungsziel.Value,Short) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (RK_ID.HasValue = true) Then command.Parameters(3).Value = CType(RK_ID.Value,Integer) Else command.Parameters(3).Value = Global.System.DBNull.Value 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 spUPDATEReErfKA(ByVal U_Preis As Global.System.Nullable(Of Decimal), ByVal U_Anzahl As Global.System.Nullable(Of Short), ByVal RK_ID As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(31),Global.System.Data.SqlClient.SqlCommand) If (U_Preis.HasValue = true) Then command.Parameters(1).Value = CType(U_Preis.Value,Decimal) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (U_Anzahl.HasValue = true) Then command.Parameters(2).Value = CType(U_Anzahl.Value,Short) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (RK_ID.HasValue = true) Then command.Parameters(3).Value = CType(RK_ID.Value,Integer) Else command.Parameters(3).Value = Global.System.DBNull.Value 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 spUPDATEReErfVL(ByVal U_Preis As Global.System.Nullable(Of Decimal), ByVal U_Anzahl As Global.System.Nullable(Of Short), ByVal RK_ID As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(32),Global.System.Data.SqlClient.SqlCommand) If (U_Preis.HasValue = true) Then command.Parameters(1).Value = CType(U_Preis.Value,Decimal) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (U_Anzahl.HasValue = true) Then command.Parameters(2).Value = CType(U_Anzahl.Value,Short) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (RK_ID.HasValue = true) Then command.Parameters(3).Value = CType(RK_ID.Value,Integer) Else command.Parameters(3).Value = Global.System.DBNull.Value 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 spUpdateRKEMailRechnungstext(ByVal RechnungsNr As Global.System.Nullable(Of Integer), ByVal RechnungsDatum As Global.System.Nullable(Of Date), ByVal EMailRechnungstext As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(33),Global.System.Data.SqlClient.SqlCommand) If (RechnungsNr.HasValue = true) Then command.Parameters(1).Value = CType(RechnungsNr.Value,Integer) Else command.Parameters(1).Value = Global.System.DBNull.Value End If If (RechnungsDatum.HasValue = true) Then command.Parameters(2).Value = CType(RechnungsDatum.Value,Date) Else command.Parameters(2).Value = Global.System.DBNull.Value End If If (EMailRechnungstext Is Nothing) Then command.Parameters(3).Value = Global.System.DBNull.Value Else command.Parameters(3).Value = CType(EMailRechnungstext,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 spUPDATEtblAnmeldungPKey(ByVal Computername As String, ByVal Benutzername As String, ByVal Mandant As String, ByVal Niederlassung As String, ByVal Login As Global.System.Nullable(Of Date), ByVal Logout As Global.System.Nullable(Of Date), ByVal Programmversion As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(34),Global.System.Data.SqlClient.SqlCommand) If (Computername Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(Computername,String) End If If (Benutzername Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else command.Parameters(2).Value = CType(Benutzername,String) End If If (Mandant Is Nothing) Then command.Parameters(3).Value = Global.System.DBNull.Value Else command.Parameters(3).Value = CType(Mandant,String) End If If (Niederlassung Is Nothing) Then command.Parameters(4).Value = Global.System.DBNull.Value Else command.Parameters(4).Value = CType(Niederlassung,String) End If If (Login.HasValue = true) Then command.Parameters(5).Value = CType(Login.Value,Date) Else command.Parameters(5).Value = Global.System.DBNull.Value End If If (Logout.HasValue = true) Then command.Parameters(6).Value = CType(Logout.Value,Date) Else command.Parameters(6).Value = Global.System.DBNull.Value End If If (Programmversion Is Nothing) Then command.Parameters(7).Value = Global.System.DBNull.Value Else command.Parameters(7).Value = CType(Programmversion,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 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 _abfertigungsartenTableAdapter As AbfertigungsartenTableAdapter Private _abfertigungskosten_der_KorrespondentenTableAdapter As Abfertigungskosten_der_KorrespondentenTableAdapter Private _abfertigungsLaenderTableAdapter As AbfertigungsLaenderTableAdapter Private _abfertigungsLaenderAbfertigungsartenTableAdapter As AbfertigungsLaenderAbfertigungsartenTableAdapter Private _abgabenartenTableAdapter As AbgabenartenTableAdapter Private _adressenTableAdapter As AdressenTableAdapter Private _aktivitätenlogTableAdapter As AktivitätenlogTableAdapter Private _anlagenTableAdapter As AnlagenTableAdapter Private _atlas_statusTableAdapter As atlas_statusTableAdapter Private _aufschubdatenTableAdapter As AufschubdatenTableAdapter Private _aufschubkontenTableAdapter As AufschubkontenTableAdapter Private _belegartenTableAdapter As BelegartenTableAdapter Private _berechnungsartTableAdapter As BerechnungsartTableAdapter Private _berechnungsbogenTableAdapter As BerechnungsbogenTableAdapter Private _berichteTableAdapter As BerichteTableAdapter Private _cMRTableAdapter As CMRTableAdapter Private _devisenkurseTableAdapter As DevisenkurseTableAdapter Private _ePBesTableAdapter As EPBesTableAdapter Private _ePBesPOSTableAdapter As EPBesPOSTableAdapter Private _filialenTableAdapter As FilialenTableAdapter Private _geschäftsartenTableAdapter As GeschäftsartenTableAdapter Private _korrespondentenTableAdapter As KorrespondentenTableAdapter Private _kostenstellenTableAdapter As KostenstellenTableAdapter Private _kreditkartenTableAdapter As KreditkartenTableAdapter Private _kundenTableAdapter As KundenTableAdapter Private _kundenFilialenTableAdapter As KundenFilialenTableAdapter Private _länder_der_Bundesrepublik_DeutschlandTableAdapter As Länder_der_Bundesrepublik_DeutschlandTableAdapter Private _länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter As Länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter Private _leistungenTableAdapter As LeistungenTableAdapter Private _leistungenBUKontenTableAdapter As LeistungenBUKontenTableAdapter Private _lieferbedingungenTableAdapter As LieferbedingungenTableAdapter Private _nebenkosten_der_KorrespondentenTableAdapter As Nebenkosten_der_KorrespondentenTableAdapter Private _offene_PostenTableAdapter As Offene_PostenTableAdapter Private _offene_Posten_DVOTableAdapter As Offene_Posten_DVOTableAdapter Private _offertenTableAdapter As OffertenTableAdapter Private _offertenpositionenTableAdapter As OffertenpositionenTableAdapter Private _offertenstammTableAdapter As OffertenstammTableAdapter Private _personalTableAdapter As PersonalTableAdapter Private _rechnungsausgangTableAdapter As RechnungsausgangTableAdapter Private _rechnungsausgangAnhaengeTableAdapter As RechnungsausgangAnhaengeTableAdapter Private _rechnungsausgangPositionenTableAdapter As RechnungsausgangPositionenTableAdapter Private _rechnungsnummernTableAdapter As RechnungsnummernTableAdapter Private _rechnungstexteTableAdapter As RechnungstexteTableAdapter Private _speditionsbuchTableAdapter As SpeditionsbuchTableAdapter Private _standardoffertenTableAdapter As StandardoffertenTableAdapter Private _standardoffertenFirmaTableAdapter As StandardoffertenFirmaTableAdapter Private _steuertabelleTableAdapter As SteuertabelleTableAdapter Private _tbl_ASFINAG_FileInfoTableAdapter As tbl_ASFINAG_FileInfoTableAdapter Private _tbl_BMD_LänderTableAdapter As tbl_BMD_LänderTableAdapter Private _tbl_DY_ParamterTableAdapter As tbl_DY_ParamterTableAdapter Private _tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter Private _tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter Private _tbl_DY_ZollDE_C0008_LaenderFullTableAdapter As tbl_DY_ZollDE_C0008_LaenderFullTableAdapter Private _tbl_DY_ZollDE_C0010_LaenderAESTableAdapter As tbl_DY_ZollDE_C0010_LaenderAESTableAdapter Private _tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter As tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter Private _tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter As tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter Private _tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter Private _tbl_DY_ZollDE_C0141_ZollstellenTableAdapter As tbl_DY_ZollDE_C0141_ZollstellenTableAdapter Private _tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter As tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter Private _tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter As tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter Private _tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter As tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter Private _tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter Private _tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter As tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter Private _tbl_ErrorsTableAdapter As tbl_ErrorsTableAdapter Private _tbl_IDS_Kategorien_KundenTableAdapter As tbl_IDS_Kategorien_KundenTableAdapter Private _tbl_IDS_Kategorien_RechenwerteTableAdapter As tbl_IDS_Kategorien_RechenwerteTableAdapter Private _tbl_IDS_KundenTableAdapter As tbl_IDS_KundenTableAdapter Private _tbl_IDS_Kunden_ohne_RabattTableAdapter As tbl_IDS_Kunden_ohne_RabattTableAdapter Private _tbl_IDS_LänderTableAdapter As tbl_IDS_LänderTableAdapter Private _tbl_IDS_ProdukteTableAdapter As tbl_IDS_ProdukteTableAdapter Private _tbl_IDS_RechenwerteTableAdapter As tbl_IDS_RechenwerteTableAdapter Private _tbl_IDS_StationenTableAdapter As tbl_IDS_StationenTableAdapter Private _tbl_Intrastat_AusfuhrTableAdapter As tbl_Intrastat_AusfuhrTableAdapter Private _tbl_TelefonbuchTableAdapter As tbl_TelefonbuchTableAdapter Private _tbl_TelefonnummernTableAdapter As tbl_TelefonnummernTableAdapter Private _tbl_WÖLFLTableAdapter As tbl_WÖLFLTableAdapter Private _tbl_ZM_tabelleTableAdapter As tbl_ZM_tabelleTableAdapter Private _tblAbfertigungsartenFilialeTableAdapter As tblAbfertigungsartenFilialeTableAdapter Private _tblAbfertigungsartOffertenstammTableAdapter As tblAbfertigungsartOffertenstammTableAdapter Private _tblAbrechnung_NCTSBrgTableAdapter As tblAbrechnung_NCTSBrgTableAdapter Private _tblAnmeldungTableAdapter As tblAnmeldungTableAdapter Private _tblAsfinagMautTableAdapter As tblAsfinagMautTableAdapter Private _tblATEZ_NCTSTableAdapter As tblATEZ_NCTSTableAdapter Private _tblATEZ_NCTS_RoutenTableAdapter As tblATEZ_NCTS_RoutenTableAdapter Private _tblATEZ_NCTS_SessionsTableAdapter As tblATEZ_NCTS_SessionsTableAdapter Private _tblATEZ_NCTS_TransitCustomsOfficeTableAdapter As tblATEZ_NCTS_TransitCustomsOfficeTableAdapter Private _tblBankspesenTableAdapter As tblBankspesenTableAdapter Private _tblBerechnungsmethodeTableAdapter As tblBerechnungsmethodeTableAdapter Private _tblBerichtsdruckerTableAdapter As tblBerichtsdruckerTableAdapter Private _tblBesuchsberichteTableAdapter As tblBesuchsberichteTableAdapter Private _tblBonitaetsauskunftTableAdapter As tblBonitaetsauskunftTableAdapter Private _tblBuchungstextTableAdapter As tblBuchungstextTableAdapter Private _tblDakosy_AESTableAdapter As tblDakosy_AESTableAdapter Private _tblDakosy_AES_WarenpositionTableAdapter As tblDakosy_AES_WarenpositionTableAdapter Private _tblDakosy_AES_WarenpositionPackstueckeTableAdapter As tblDakosy_AES_WarenpositionPackstueckeTableAdapter Private _tblDakosy_AES_WarenpositionUnterlagenTableAdapter As tblDakosy_AES_WarenpositionUnterlagenTableAdapter Private _tblDakosy_EZATableAdapter As tblDakosy_EZATableAdapter Private _tblDakosy_EZA_AdressenTableAdapter As tblDakosy_EZA_AdressenTableAdapter Private _tblDakosy_EZA_AufschubTableAdapter As tblDakosy_EZA_AufschubTableAdapter Private _tblDakosy_EZA_BEAnteilZLAVUVTableAdapter As tblDakosy_EZA_BEAnteilZLAVUVTableAdapter Private _tblDakosy_EZA_SumABeendigungsAnteilTableAdapter As tblDakosy_EZA_SumABeendigungsAnteilTableAdapter Private _tblDakosy_EZA_UnterlagenTableAdapter As tblDakosy_EZA_UnterlagenTableAdapter Private _tblDakosy_EZA_WarenpositionTableAdapter As tblDakosy_EZA_WarenpositionTableAdapter Private _tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter As tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter Private _tblDakosy_EZA_WarenpositionUnterlagenTableAdapter As tblDakosy_EZA_WarenpositionUnterlagenTableAdapter Private _tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter As tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter Private _tblDakosy_NCTSOutTableAdapter As tblDakosy_NCTSOutTableAdapter Private _tblDakosy_NCTSOut_SicherheitsangabenTableAdapter As tblDakosy_NCTSOut_SicherheitsangabenTableAdapter Private _tblDakosy_NCTSOut_WarenpositionTableAdapter As tblDakosy_NCTSOut_WarenpositionTableAdapter Private _tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter As tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter Private _tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter Private _tblDakosy_NCTSOut004TableAdapter As tblDakosy_NCTSOut004TableAdapter Private _tblDakosy_NCTSOut004_GuaranteeTableAdapter As tblDakosy_NCTSOut004_GuaranteeTableAdapter Private _tblDakosy_NCTSOut004_HouseConsignmentTableAdapter As tblDakosy_NCTSOut004_HouseConsignmentTableAdapter Private _tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter Private _tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter Private _tblDakosy_NCTSOut004_TransportEquipmentTableAdapter As tblDakosy_NCTSOut004_TransportEquipmentTableAdapter Private _tblDakosy_StammreferenzenTableAdapter As tblDakosy_StammreferenzenTableAdapter Private _tblDakosy_StatusmeldungenTableAdapter As tblDakosy_StatusmeldungenTableAdapter Private _tblDakosy_ZollanmeldungenTableAdapter As tblDakosy_ZollanmeldungenTableAdapter Private _tblDakosy_ZollanmeldungenArtenTableAdapter As tblDakosy_ZollanmeldungenArtenTableAdapter Private _tblDatenarchivTableAdapter As tblDatenarchivTableAdapter Private _tblDatenarchiv_CollectionTableAdapter As tblDatenarchiv_CollectionTableAdapter Private _tblDEBundeslaenderPLZTableAdapter As tblDEBundeslaenderPLZTableAdapter Private _tblDHF_AnhaengeTableAdapter As tblDHF_AnhaengeTableAdapter Private _tblDieselArchivTableAdapter As tblDieselArchivTableAdapter Private _tblDigicust_SendungenTableAdapter As tblDigicust_SendungenTableAdapter Private _tblDigicust_SessionsTableAdapter As tblDigicust_SessionsTableAdapter Private _tblDigicust_SettingsTableAdapter As tblDigicust_SettingsTableAdapter Private _tblEABelegnummerTableAdapter As tblEABelegnummerTableAdapter Private _tblEABelegpositionTableAdapter As tblEABelegpositionTableAdapter Private _tblEmailBenachrichtigungTableAdapter As tblEmailBenachrichtigungTableAdapter Private _tblEmailBenachrichtigungArtenTableAdapter As tblEmailBenachrichtigungArtenTableAdapter Private _tblEORIPruefungTableAdapter As tblEORIPruefungTableAdapter Private _tblEZB_WaehrungskurseTableAdapter As tblEZB_WaehrungskurseTableAdapter Private _tblEZT_ImportcodenummernTableAdapter As tblEZT_ImportcodenummernTableAdapter Private _tblFahrerDatenTableAdapter As tblFahrerDatenTableAdapter Private _tblFirmaTableAdapter As tblFirmaTableAdapter Private _tblFiskal_DatenTableAdapter As tblFiskal_DatenTableAdapter Private _tblFiskalkundenTableAdapter As tblFiskalkundenTableAdapter Private _tblFormulardatenTableAdapter As tblFormulardatenTableAdapter Private _tblFormulareVorlagenTableAdapter As tblFormulareVorlagenTableAdapter Private _tblFormulareVorlagenValuesTableAdapter As tblFormulareVorlagenValuesTableAdapter Private _tblFremdSpeditionenZuordnungTableAdapter As tblFremdSpeditionenZuordnungTableAdapter Private _tblFTP_LogTableAdapter As tblFTP_LogTableAdapter Private _tblFTP_Log_Backup2TableAdapter As tblFTP_Log_Backup2TableAdapter Private _tblGebuehrenvermarktungsnormenTableAdapter As tblGebuehrenvermarktungsnormenTableAdapter Private _tblGelangensbestaetigungTableAdapter As tblGelangensbestaetigungTableAdapter Private _tblGeschäftsjahrTableAdapter As tblGeschäftsjahrTableAdapter Private _tblGeschäftsjahrBelegNrTableAdapter As tblGeschäftsjahrBelegNrTableAdapter Private _tblGeschäftsjahrJournalNrTableAdapter As tblGeschäftsjahrJournalNrTableAdapter Private _tblGestellungsgarantienTableAdapter As tblGestellungsgarantienTableAdapter Private _tblGestellungsmitteilungTableAdapter As tblGestellungsmitteilungTableAdapter Private _tblGestellungsmitteilung_PositionenTableAdapter As tblGestellungsmitteilung_PositionenTableAdapter Private _tblGOBOXBestellungenTableAdapter As tblGOBOXBestellungenTableAdapter Private _tblGVMSTableAdapter As tblGVMSTableAdapter Private _tblGVMS_CarriersTableAdapter As tblGVMS_CarriersTableAdapter Private _tblGVMS_PortsTableAdapter As tblGVMS_PortsTableAdapter Private _tblGVMS_PosTableAdapter As tblGVMS_PosTableAdapter Private _tblGVMS_RoutesTableAdapter As tblGVMS_RoutesTableAdapter Private _tblHandlingssaetzeInternTableAdapter As tblHandlingssaetzeInternTableAdapter Private _tblHistorieTableAdapter As tblHistorieTableAdapter Private _tblIDS_TransaktionenTableAdapter As tblIDS_TransaktionenTableAdapter Private _tblKassenbuchTableAdapter As tblKassenbuchTableAdapter Private _tblKontoTableAdapter As tblKontoTableAdapter Private _tblKundenAufschubkontenTableAdapter As tblKundenAufschubkontenTableAdapter Private _tblKundenBesonderheitenTableAdapter As tblKundenBesonderheitenTableAdapter Private _tblKundenBesonderheiten_KategorienTableAdapter As tblKundenBesonderheiten_KategorienTableAdapter Private _tblKundenDatenblattTableAdapter As tblKundenDatenblattTableAdapter Private _tblKundenErweitertTableAdapter As tblKundenErweitertTableAdapter Private _tblKundenKontaktTableAdapter As tblKundenKontaktTableAdapter Private _tblKundenKontaktArtenTableAdapter As tblKundenKontaktArtenTableAdapter Private _tblKundenumsatzTableAdapter As tblKundenumsatzTableAdapter Private _tblKundenVermerkeTableAdapter As tblKundenVermerkeTableAdapter Private _tblKundenVertraegeTableAdapter As tblKundenVertraegeTableAdapter Private _tblKundenVertraegeArtenTableAdapter As tblKundenVertraegeArtenTableAdapter Private _tblKundenVollmachtenTableAdapter As tblKundenVollmachtenTableAdapter Private _tblKundenVollmachtenArtTableAdapter As tblKundenVollmachtenArtTableAdapter Private _tblLogbuchTableAdapter As tblLogbuchTableAdapter Private _tblMandantTableAdapter As tblMandantTableAdapter Private _tblMautIT_BelegartenTableAdapter As tblMautIT_BelegartenTableAdapter Private _tblMautITArchivTableAdapter As tblMautITArchivTableAdapter Private _tblMDM_ParamterTableAdapter As tblMDM_ParamterTableAdapter Private _tblMSECustomersTableAdapter As tblMSECustomersTableAdapter Private _tblMSEImportTableAdapter As tblMSEImportTableAdapter Private _tblMSEInvoicesTableAdapter As tblMSEInvoicesTableAdapter Private _tblMSELeistungenTableAdapter As tblMSELeistungenTableAdapter Private _tblMSESettlementsTableAdapter As tblMSESettlementsTableAdapter Private _tblMSETransactionsTableAdapter As tblMSETransactionsTableAdapter Private _tblMSETransactionsArchivTableAdapter As tblMSETransactionsArchivTableAdapter Private _tblMSETransactionsArchivOLDTableAdapter As tblMSETransactionsArchivOLDTableAdapter Private _tblNCTS_TRTableAdapter As tblNCTS_TRTableAdapter Private _tblNCTS_TR_NachrichtenTableAdapter As tblNCTS_TR_NachrichtenTableAdapter Private _tblNCTS_TR_SicherheitsangabenTableAdapter As tblNCTS_TR_SicherheitsangabenTableAdapter Private _tblNCTS_TR_WarenpositionTableAdapter As tblNCTS_TR_WarenpositionTableAdapter Private _tblNCTS_TR_WarenpositionPackstueckeTableAdapter As tblNCTS_TR_WarenpositionPackstueckeTableAdapter Private _tblNCTSGestellungsadressenTableAdapter As tblNCTSGestellungsadressenTableAdapter Private _tblNTCSRoutenTableAdapter As tblNTCSRoutenTableAdapter Private _tblOffertenArchivTableAdapter As tblOffertenArchivTableAdapter Private _tblOffertenPositionenArchivTableAdapter As tblOffertenPositionenArchivTableAdapter Private _tblOregonNCTS_DeclarationDataTableAdapter As tblOregonNCTS_DeclarationDataTableAdapter Private _tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter As tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter Private _tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter As tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter Private _tblOregonNCTS_Declarations_GoodsAttributeTableAdapter As tblOregonNCTS_Declarations_GoodsAttributeTableAdapter Private _tblOregonNCTS_Declarations_PacksAttributeTableAdapter As tblOregonNCTS_Declarations_PacksAttributeTableAdapter Private _tblOregonNCTS_Declarations_PartiesAttributeTableAdapter As tblOregonNCTS_Declarations_PartiesAttributeTableAdapter Private _tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter As tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter Private _tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter As tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter Private _tblOregonNCTS_ReferenceTemplateTableAdapter As tblOregonNCTS_ReferenceTemplateTableAdapter Private _tblOriginalATRTableAdapter As tblOriginalATRTableAdapter Private _tblPartnersystem_ParamterTableAdapter As tblPartnersystem_ParamterTableAdapter Private _tblPfadTableAdapter As tblPfadTableAdapter Private _tblPLOSE_DetailsTableAdapter As tblPLOSE_DetailsTableAdapter Private _tblPLOSE_Inv_DataTableAdapter As tblPLOSE_Inv_DataTableAdapter Private _tblPLOSE_LieferantTableAdapter As tblPLOSE_LieferantTableAdapter Private _tblPLOSE_ProduktbeschreibungTableAdapter As tblPLOSE_ProduktbeschreibungTableAdapter Private _tblPosNrTableAdapter As tblPosNrTableAdapter Private _tblPostversandTableAdapter As tblPostversandTableAdapter Private _tblPreislistenTableAdapter As tblPreislistenTableAdapter Private _tblPreislistenpositionenTableAdapter As tblPreislistenpositionenTableAdapter Private _tblPreistabellenTableAdapter As tblPreistabellenTableAdapter Private _tblPreistabellenpositionenTableAdapter As tblPreistabellenpositionenTableAdapter Private _tblQS_AbfertigungsartenTableAdapter As tblQS_AbfertigungsartenTableAdapter Private _tblQS_AufträgeTableAdapter As tblQS_AufträgeTableAdapter Private _tblQS_AuftragspositionenTableAdapter As tblQS_AuftragspositionenTableAdapter Private _tblQS_TeamsTableAdapter As tblQS_TeamsTableAdapter Private _tblQS_TeamsMATableAdapter As tblQS_TeamsMATableAdapter Private _tblRechnungsnotizenTableAdapter As tblRechnungsnotizenTableAdapter Private _tblRefTableAdapter As tblRefTableAdapter Private _tblRefBeziehungenTableAdapter As tblRefBeziehungenTableAdapter Private _tblRKSV_KassenTableAdapter As tblRKSV_KassenTableAdapter Private _tblRKSV_POSTableAdapter As tblRKSV_POSTableAdapter Private _tblRMCImportTableAdapter As tblRMCImportTableAdapter Private _tblSMSTableAdapter As tblSMSTableAdapter Private _tblSpeditionsbucharchivTableAdapter As tblSpeditionsbucharchivTableAdapter Private _tblSpeditionsbuchEndEmpfaengerTableAdapter As tblSpeditionsbuchEndEmpfaengerTableAdapter Private _tblSpeditionsbuchUnterPosTableAdapter As tblSpeditionsbuchUnterPosTableAdapter Private _tblSpeditionsbuchUnterPosArtenTableAdapter As tblSpeditionsbuchUnterPosArtenTableAdapter Private _tblSteuernummernTableAdapter As tblSteuernummernTableAdapter Private _tblSteuersätzeTableAdapter As tblSteuersätzeTableAdapter Private _tblSteuertypTableAdapter As tblSteuertypTableAdapter Private _tblTelotec_AbgabenTableAdapter As tblTelotec_AbgabenTableAdapter Private _tblTelotec_AnmeldungTableAdapter As tblTelotec_AnmeldungTableAdapter Private _tblTelotec_PackstueckeTableAdapter As tblTelotec_PackstueckeTableAdapter Private _tblTelotec_ParamterTableAdapter As tblTelotec_ParamterTableAdapter Private _tblTelotec_PositionsdatenTableAdapter As tblTelotec_PositionsdatenTableAdapter Private _tblTelotec_PositionsdatenAbgabenTableAdapter As tblTelotec_PositionsdatenAbgabenTableAdapter Private _tblTelotec_PositionsdatenDokumenteTableAdapter As tblTelotec_PositionsdatenDokumenteTableAdapter Private _tblTelotec_SicherheitTableAdapter As tblTelotec_SicherheitTableAdapter Private _tblTestTableAdapter As tblTestTableAdapter Private _tblTextkonserveTableAdapter As tblTextkonserveTableAdapter Private _tblTR_AvisoTableAdapter As tblTR_AvisoTableAdapter Private _tblTR_AvisoAnheangeTableAdapter As tblTR_AvisoAnheangeTableAdapter Private _tblTR_ShipmentTableAdapter As tblTR_ShipmentTableAdapter Private _tblTR_Shipment_AdressenTableAdapter As tblTR_Shipment_AdressenTableAdapter Private _tblTR_Shipment_DocumentTableAdapter As tblTR_Shipment_DocumentTableAdapter Private _tblTR_Shipment_PositionTableAdapter As tblTR_Shipment_PositionTableAdapter Private _tblTR_Shipment_Position_DocumentTableAdapter As tblTR_Shipment_Position_DocumentTableAdapter Private _tblTranslateTableAdapter As tblTranslateTableAdapter Private _tblTranslateAutoTableAdapter As tblTranslateAutoTableAdapter Private _tblTrdinHeaderTableAdapter As tblTrdinHeaderTableAdapter Private _tblTrdinInvoiceTableAdapter As tblTrdinInvoiceTableAdapter Private _tblTrdinProductTableAdapter As tblTrdinProductTableAdapter Private _tblUIDPruefungTableAdapter As tblUIDPruefungTableAdapter Private _tblUStVAntragTableAdapter As tblUStVAntragTableAdapter Private _tblUStVBelegeingangTableAdapter As tblUStVBelegeingangTableAdapter Private _tblUStVErstattungTableAdapter As tblUStVErstattungTableAdapter Private _tblUStVFormulareTableAdapter As tblUStVFormulareTableAdapter Private _tblUStVKuLäFoTableAdapter As tblUStVKuLäFoTableAdapter Private _tblUStVLäFoTableAdapter As tblUStVLäFoTableAdapter Private _tblUStVLeistenderTableAdapter As tblUStVLeistenderTableAdapter Private _tblUStVPositionenTableAdapter As tblUStVPositionenTableAdapter Private _tblUStVTexteTableAdapter As tblUStVTexteTableAdapter Private _tblUTAArchivTableAdapter As tblUTAArchivTableAdapter Private _tblUTAFakturierwarenartenTableAdapter As tblUTAFakturierwarenartenTableAdapter Private _tblUTAHeaderTableAdapter As tblUTAHeaderTableAdapter Private _tblUTAHeaderNewTableAdapter As tblUTAHeaderNewTableAdapter Private _tblUTAImportTableAdapter As tblUTAImportTableAdapter Private _tblUTAImportNewTableAdapter As tblUTAImportNewTableAdapter Private _tblUTALeistungenTableAdapter As tblUTALeistungenTableAdapter Private _tblUTATrailerTableAdapter As tblUTATrailerTableAdapter Private _tblUTATrailerNewTableAdapter As tblUTATrailerNewTableAdapter Private _tblVermarktungsnormenTableAdapter As tblVermarktungsnormenTableAdapter Private _tblVermarktungsnormenGebuehrenTableAdapter As tblVermarktungsnormenGebuehrenTableAdapter Private _tblVorauskassenTableAdapter As tblVorauskassenTableAdapter Private _tblWahrungtabelleNEUTableAdapter As tblWahrungtabelleNEUTableAdapter Private _tblWarenbezeichnungBegriffeTableAdapter As tblWarenbezeichnungBegriffeTableAdapter Private _tblZabis_Atlas_NCTSTableAdapter As tblZabis_Atlas_NCTSTableAdapter Private _tblZahlungszieltexteTableAdapter As tblZahlungszieltexteTableAdapter Private _tblZolaris_EZoll_NCTSTableAdapter As tblZolaris_EZoll_NCTSTableAdapter Private _tblZOLL_WechselkurseTableAdapter As tblZOLL_WechselkurseTableAdapter Private _tblZollArtikelTableAdapter As tblZollArtikelTableAdapter Private _tblZollUnterArtikelTableAdapter As tblZollUnterArtikelTableAdapter Private _temporaryUpsizedTable2TableAdapter As TemporaryUpsizedTable2TableAdapter Private _verkehrszweigeTableAdapter As VerkehrszweigeTableAdapter Private _vermerkeTableAdapter As VermerkeTableAdapter Private _vorkostenTableAdapter As VorkostenTableAdapter Private _währungstabelleTableAdapter As WährungstabelleTableAdapter Private _zahlungsartenTableAdapter As ZahlungsartenTableAdapter Private _zbadzTableAdapter As zbadzTableAdapter Private _zbantTableAdapter As zbantTableAdapter Private _zbapoTableAdapter As zbapoTableAdapter Private _zbposTableAdapter As zbposTableAdapter Private _zkteingTableAdapter As ZkteingTableAdapter Private _zollsystemeTableAdapter As ZollsystemeTableAdapter Private _zulassungen_ZnVTableAdapter As Zulassungen_ZnVTableAdapter 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 AbfertigungsartenTableAdapter() As AbfertigungsartenTableAdapter Get Return Me._abfertigungsartenTableAdapter End Get Set Me._abfertigungsartenTableAdapter = value End Set End Property _ Public Property Abfertigungskosten_der_KorrespondentenTableAdapter() As Abfertigungskosten_der_KorrespondentenTableAdapter Get Return Me._abfertigungskosten_der_KorrespondentenTableAdapter End Get Set Me._abfertigungskosten_der_KorrespondentenTableAdapter = value End Set End Property _ Public Property AbfertigungsLaenderTableAdapter() As AbfertigungsLaenderTableAdapter Get Return Me._abfertigungsLaenderTableAdapter End Get Set Me._abfertigungsLaenderTableAdapter = value End Set End Property _ Public Property AbfertigungsLaenderAbfertigungsartenTableAdapter() As AbfertigungsLaenderAbfertigungsartenTableAdapter Get Return Me._abfertigungsLaenderAbfertigungsartenTableAdapter End Get Set Me._abfertigungsLaenderAbfertigungsartenTableAdapter = value End Set End Property _ Public Property AbgabenartenTableAdapter() As AbgabenartenTableAdapter Get Return Me._abgabenartenTableAdapter End Get Set Me._abgabenartenTableAdapter = value End Set End Property _ Public Property AdressenTableAdapter() As AdressenTableAdapter Get Return Me._adressenTableAdapter End Get Set Me._adressenTableAdapter = value End Set End Property _ Public Property AktivitätenlogTableAdapter() As AktivitätenlogTableAdapter Get Return Me._aktivitätenlogTableAdapter End Get Set Me._aktivitätenlogTableAdapter = value End Set End Property _ Public Property AnlagenTableAdapter() As AnlagenTableAdapter Get Return Me._anlagenTableAdapter End Get Set Me._anlagenTableAdapter = value End Set End Property _ Public Property atlas_statusTableAdapter() As atlas_statusTableAdapter Get Return Me._atlas_statusTableAdapter End Get Set Me._atlas_statusTableAdapter = value End Set End Property _ Public Property AufschubdatenTableAdapter() As AufschubdatenTableAdapter Get Return Me._aufschubdatenTableAdapter End Get Set Me._aufschubdatenTableAdapter = value End Set End Property _ Public Property AufschubkontenTableAdapter() As AufschubkontenTableAdapter Get Return Me._aufschubkontenTableAdapter End Get Set Me._aufschubkontenTableAdapter = value End Set End Property _ Public Property BelegartenTableAdapter() As BelegartenTableAdapter Get Return Me._belegartenTableAdapter End Get Set Me._belegartenTableAdapter = value End Set End Property _ Public Property BerechnungsartTableAdapter() As BerechnungsartTableAdapter Get Return Me._berechnungsartTableAdapter End Get Set Me._berechnungsartTableAdapter = value End Set End Property _ Public Property BerechnungsbogenTableAdapter() As BerechnungsbogenTableAdapter Get Return Me._berechnungsbogenTableAdapter End Get Set Me._berechnungsbogenTableAdapter = value End Set End Property _ Public Property BerichteTableAdapter() As BerichteTableAdapter Get Return Me._berichteTableAdapter End Get Set Me._berichteTableAdapter = value End Set End Property _ Public Property CMRTableAdapter() As CMRTableAdapter Get Return Me._cMRTableAdapter End Get Set Me._cMRTableAdapter = value End Set End Property _ Public Property DevisenkurseTableAdapter() As DevisenkurseTableAdapter Get Return Me._devisenkurseTableAdapter End Get Set Me._devisenkurseTableAdapter = value End Set End Property _ Public Property EPBesTableAdapter() As EPBesTableAdapter Get Return Me._ePBesTableAdapter End Get Set Me._ePBesTableAdapter = value End Set End Property _ Public Property EPBesPOSTableAdapter() As EPBesPOSTableAdapter Get Return Me._ePBesPOSTableAdapter End Get Set Me._ePBesPOSTableAdapter = value End Set End Property _ Public Property FilialenTableAdapter() As FilialenTableAdapter Get Return Me._filialenTableAdapter End Get Set Me._filialenTableAdapter = value End Set End Property _ Public Property GeschäftsartenTableAdapter() As GeschäftsartenTableAdapter Get Return Me._geschäftsartenTableAdapter End Get Set Me._geschäftsartenTableAdapter = value End Set End Property _ Public Property KorrespondentenTableAdapter() As KorrespondentenTableAdapter Get Return Me._korrespondentenTableAdapter End Get Set Me._korrespondentenTableAdapter = value End Set End Property _ Public Property KostenstellenTableAdapter() As KostenstellenTableAdapter Get Return Me._kostenstellenTableAdapter End Get Set Me._kostenstellenTableAdapter = value End Set End Property _ Public Property KreditkartenTableAdapter() As KreditkartenTableAdapter Get Return Me._kreditkartenTableAdapter End Get Set Me._kreditkartenTableAdapter = value End Set End Property _ Public Property KundenTableAdapter() As KundenTableAdapter Get Return Me._kundenTableAdapter End Get Set Me._kundenTableAdapter = value End Set End Property _ Public Property KundenFilialenTableAdapter() As KundenFilialenTableAdapter Get Return Me._kundenFilialenTableAdapter End Get Set Me._kundenFilialenTableAdapter = value End Set End Property _ Public Property Länder_der_Bundesrepublik_DeutschlandTableAdapter() As Länder_der_Bundesrepublik_DeutschlandTableAdapter Get Return Me._länder_der_Bundesrepublik_DeutschlandTableAdapter End Get Set Me._länder_der_Bundesrepublik_DeutschlandTableAdapter = value End Set End Property _ Public Property Länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter() As Länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter Get Return Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter End Get Set Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter = value End Set End Property _ Public Property LeistungenTableAdapter() As LeistungenTableAdapter Get Return Me._leistungenTableAdapter End Get Set Me._leistungenTableAdapter = value End Set End Property _ Public Property LeistungenBUKontenTableAdapter() As LeistungenBUKontenTableAdapter Get Return Me._leistungenBUKontenTableAdapter End Get Set Me._leistungenBUKontenTableAdapter = value End Set End Property _ Public Property LieferbedingungenTableAdapter() As LieferbedingungenTableAdapter Get Return Me._lieferbedingungenTableAdapter End Get Set Me._lieferbedingungenTableAdapter = value End Set End Property _ Public Property Nebenkosten_der_KorrespondentenTableAdapter() As Nebenkosten_der_KorrespondentenTableAdapter Get Return Me._nebenkosten_der_KorrespondentenTableAdapter End Get Set Me._nebenkosten_der_KorrespondentenTableAdapter = value End Set End Property _ Public Property Offene_PostenTableAdapter() As Offene_PostenTableAdapter Get Return Me._offene_PostenTableAdapter End Get Set Me._offene_PostenTableAdapter = value End Set End Property _ Public Property Offene_Posten_DVOTableAdapter() As Offene_Posten_DVOTableAdapter Get Return Me._offene_Posten_DVOTableAdapter End Get Set Me._offene_Posten_DVOTableAdapter = value End Set End Property _ Public Property OffertenTableAdapter() As OffertenTableAdapter Get Return Me._offertenTableAdapter End Get Set Me._offertenTableAdapter = value End Set End Property _ Public Property OffertenpositionenTableAdapter() As OffertenpositionenTableAdapter Get Return Me._offertenpositionenTableAdapter End Get Set Me._offertenpositionenTableAdapter = value End Set End Property _ Public Property OffertenstammTableAdapter() As OffertenstammTableAdapter Get Return Me._offertenstammTableAdapter End Get Set Me._offertenstammTableAdapter = value End Set End Property _ Public Property PersonalTableAdapter() As PersonalTableAdapter Get Return Me._personalTableAdapter End Get Set Me._personalTableAdapter = value End Set End Property _ Public Property RechnungsausgangTableAdapter() As RechnungsausgangTableAdapter Get Return Me._rechnungsausgangTableAdapter End Get Set Me._rechnungsausgangTableAdapter = value End Set End Property _ Public Property RechnungsausgangAnhaengeTableAdapter() As RechnungsausgangAnhaengeTableAdapter Get Return Me._rechnungsausgangAnhaengeTableAdapter End Get Set Me._rechnungsausgangAnhaengeTableAdapter = value End Set End Property _ Public Property RechnungsausgangPositionenTableAdapter() As RechnungsausgangPositionenTableAdapter Get Return Me._rechnungsausgangPositionenTableAdapter End Get Set Me._rechnungsausgangPositionenTableAdapter = value End Set End Property _ Public Property RechnungsnummernTableAdapter() As RechnungsnummernTableAdapter Get Return Me._rechnungsnummernTableAdapter End Get Set Me._rechnungsnummernTableAdapter = value End Set End Property _ Public Property RechnungstexteTableAdapter() As RechnungstexteTableAdapter Get Return Me._rechnungstexteTableAdapter End Get Set Me._rechnungstexteTableAdapter = value End Set End Property _ Public Property SpeditionsbuchTableAdapter() As SpeditionsbuchTableAdapter Get Return Me._speditionsbuchTableAdapter End Get Set Me._speditionsbuchTableAdapter = value End Set End Property _ Public Property StandardoffertenTableAdapter() As StandardoffertenTableAdapter Get Return Me._standardoffertenTableAdapter End Get Set Me._standardoffertenTableAdapter = value End Set End Property _ Public Property StandardoffertenFirmaTableAdapter() As StandardoffertenFirmaTableAdapter Get Return Me._standardoffertenFirmaTableAdapter End Get Set Me._standardoffertenFirmaTableAdapter = value End Set End Property _ Public Property SteuertabelleTableAdapter() As SteuertabelleTableAdapter Get Return Me._steuertabelleTableAdapter End Get Set Me._steuertabelleTableAdapter = value End Set End Property _ Public Property tbl_ASFINAG_FileInfoTableAdapter() As tbl_ASFINAG_FileInfoTableAdapter Get Return Me._tbl_ASFINAG_FileInfoTableAdapter End Get Set Me._tbl_ASFINAG_FileInfoTableAdapter = value End Set End Property _ Public Property tbl_BMD_LänderTableAdapter() As tbl_BMD_LänderTableAdapter Get Return Me._tbl_BMD_LänderTableAdapter End Get Set Me._tbl_BMD_LänderTableAdapter = value End Set End Property _ Public Property tbl_DY_ParamterTableAdapter() As tbl_DY_ParamterTableAdapter Get Return Me._tbl_DY_ParamterTableAdapter End Get Set Me._tbl_DY_ParamterTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter() As tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter Get Return Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter End Get Set Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter() As tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter Get Return Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter End Get Set Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_C0008_LaenderFullTableAdapter() As tbl_DY_ZollDE_C0008_LaenderFullTableAdapter Get Return Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter End Get Set Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_C0010_LaenderAESTableAdapter() As tbl_DY_ZollDE_C0010_LaenderAESTableAdapter Get Return Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter End Get Set Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter() As tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter Get Return Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter End Get Set Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter() As tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter Get Return Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter End Get Set Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter() As tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter Get Return Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter End Get Set Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_C0141_ZollstellenTableAdapter() As tbl_DY_ZollDE_C0141_ZollstellenTableAdapter Get Return Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter End Get Set Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter() As tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter Get Return Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter End Get Set Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter() As tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter Get Return Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter End Get Set Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter() As tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter Get Return Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter End Get Set Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter() As tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter Get Return Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter End Get Set Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter = value End Set End Property _ Public Property tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter() As tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter Get Return Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter End Get Set Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter = value End Set End Property _ Public Property tbl_ErrorsTableAdapter() As tbl_ErrorsTableAdapter Get Return Me._tbl_ErrorsTableAdapter End Get Set Me._tbl_ErrorsTableAdapter = value End Set End Property _ Public Property tbl_IDS_Kategorien_KundenTableAdapter() As tbl_IDS_Kategorien_KundenTableAdapter Get Return Me._tbl_IDS_Kategorien_KundenTableAdapter End Get Set Me._tbl_IDS_Kategorien_KundenTableAdapter = value End Set End Property _ Public Property tbl_IDS_Kategorien_RechenwerteTableAdapter() As tbl_IDS_Kategorien_RechenwerteTableAdapter Get Return Me._tbl_IDS_Kategorien_RechenwerteTableAdapter End Get Set Me._tbl_IDS_Kategorien_RechenwerteTableAdapter = value End Set End Property _ Public Property tbl_IDS_KundenTableAdapter() As tbl_IDS_KundenTableAdapter Get Return Me._tbl_IDS_KundenTableAdapter End Get Set Me._tbl_IDS_KundenTableAdapter = value End Set End Property _ Public Property tbl_IDS_Kunden_ohne_RabattTableAdapter() As tbl_IDS_Kunden_ohne_RabattTableAdapter Get Return Me._tbl_IDS_Kunden_ohne_RabattTableAdapter End Get Set Me._tbl_IDS_Kunden_ohne_RabattTableAdapter = value End Set End Property _ Public Property tbl_IDS_LänderTableAdapter() As tbl_IDS_LänderTableAdapter Get Return Me._tbl_IDS_LänderTableAdapter End Get Set Me._tbl_IDS_LänderTableAdapter = value End Set End Property _ Public Property tbl_IDS_ProdukteTableAdapter() As tbl_IDS_ProdukteTableAdapter Get Return Me._tbl_IDS_ProdukteTableAdapter End Get Set Me._tbl_IDS_ProdukteTableAdapter = value End Set End Property _ Public Property tbl_IDS_RechenwerteTableAdapter() As tbl_IDS_RechenwerteTableAdapter Get Return Me._tbl_IDS_RechenwerteTableAdapter End Get Set Me._tbl_IDS_RechenwerteTableAdapter = value End Set End Property _ Public Property tbl_IDS_StationenTableAdapter() As tbl_IDS_StationenTableAdapter Get Return Me._tbl_IDS_StationenTableAdapter End Get Set Me._tbl_IDS_StationenTableAdapter = value End Set End Property _ Public Property tbl_Intrastat_AusfuhrTableAdapter() As tbl_Intrastat_AusfuhrTableAdapter Get Return Me._tbl_Intrastat_AusfuhrTableAdapter End Get Set Me._tbl_Intrastat_AusfuhrTableAdapter = value End Set End Property _ Public Property tbl_TelefonbuchTableAdapter() As tbl_TelefonbuchTableAdapter Get Return Me._tbl_TelefonbuchTableAdapter End Get Set Me._tbl_TelefonbuchTableAdapter = value End Set End Property _ Public Property tbl_TelefonnummernTableAdapter() As tbl_TelefonnummernTableAdapter Get Return Me._tbl_TelefonnummernTableAdapter End Get Set Me._tbl_TelefonnummernTableAdapter = value End Set End Property _ Public Property tbl_WÖLFLTableAdapter() As tbl_WÖLFLTableAdapter Get Return Me._tbl_WÖLFLTableAdapter End Get Set Me._tbl_WÖLFLTableAdapter = value End Set End Property _ Public Property tbl_ZM_tabelleTableAdapter() As tbl_ZM_tabelleTableAdapter Get Return Me._tbl_ZM_tabelleTableAdapter End Get Set Me._tbl_ZM_tabelleTableAdapter = value End Set End Property _ Public Property tblAbfertigungsartenFilialeTableAdapter() As tblAbfertigungsartenFilialeTableAdapter Get Return Me._tblAbfertigungsartenFilialeTableAdapter End Get Set Me._tblAbfertigungsartenFilialeTableAdapter = value End Set End Property _ Public Property tblAbfertigungsartOffertenstammTableAdapter() As tblAbfertigungsartOffertenstammTableAdapter Get Return Me._tblAbfertigungsartOffertenstammTableAdapter End Get Set Me._tblAbfertigungsartOffertenstammTableAdapter = value End Set End Property _ Public Property tblAbrechnung_NCTSBrgTableAdapter() As tblAbrechnung_NCTSBrgTableAdapter Get Return Me._tblAbrechnung_NCTSBrgTableAdapter End Get Set Me._tblAbrechnung_NCTSBrgTableAdapter = value End Set End Property _ Public Property tblAnmeldungTableAdapter() As tblAnmeldungTableAdapter Get Return Me._tblAnmeldungTableAdapter End Get Set Me._tblAnmeldungTableAdapter = value End Set End Property _ Public Property tblAsfinagMautTableAdapter() As tblAsfinagMautTableAdapter Get Return Me._tblAsfinagMautTableAdapter End Get Set Me._tblAsfinagMautTableAdapter = value End Set End Property _ Public Property tblATEZ_NCTSTableAdapter() As tblATEZ_NCTSTableAdapter Get Return Me._tblATEZ_NCTSTableAdapter End Get Set Me._tblATEZ_NCTSTableAdapter = value End Set End Property _ Public Property tblATEZ_NCTS_RoutenTableAdapter() As tblATEZ_NCTS_RoutenTableAdapter Get Return Me._tblATEZ_NCTS_RoutenTableAdapter End Get Set Me._tblATEZ_NCTS_RoutenTableAdapter = value End Set End Property _ Public Property tblATEZ_NCTS_SessionsTableAdapter() As tblATEZ_NCTS_SessionsTableAdapter Get Return Me._tblATEZ_NCTS_SessionsTableAdapter End Get Set Me._tblATEZ_NCTS_SessionsTableAdapter = value End Set End Property _ Public Property tblATEZ_NCTS_TransitCustomsOfficeTableAdapter() As tblATEZ_NCTS_TransitCustomsOfficeTableAdapter Get Return Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter End Get Set Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter = value End Set End Property _ Public Property tblBankspesenTableAdapter() As tblBankspesenTableAdapter Get Return Me._tblBankspesenTableAdapter End Get Set Me._tblBankspesenTableAdapter = value End Set End Property _ Public Property tblBerechnungsmethodeTableAdapter() As tblBerechnungsmethodeTableAdapter Get Return Me._tblBerechnungsmethodeTableAdapter End Get Set Me._tblBerechnungsmethodeTableAdapter = value End Set End Property _ Public Property tblBerichtsdruckerTableAdapter() As tblBerichtsdruckerTableAdapter Get Return Me._tblBerichtsdruckerTableAdapter End Get Set Me._tblBerichtsdruckerTableAdapter = value End Set End Property _ Public Property tblBesuchsberichteTableAdapter() As tblBesuchsberichteTableAdapter Get Return Me._tblBesuchsberichteTableAdapter End Get Set Me._tblBesuchsberichteTableAdapter = value End Set End Property _ Public Property tblBonitaetsauskunftTableAdapter() As tblBonitaetsauskunftTableAdapter Get Return Me._tblBonitaetsauskunftTableAdapter End Get Set Me._tblBonitaetsauskunftTableAdapter = value End Set End Property _ Public Property tblBuchungstextTableAdapter() As tblBuchungstextTableAdapter Get Return Me._tblBuchungstextTableAdapter End Get Set Me._tblBuchungstextTableAdapter = value End Set End Property _ Public Property tblDakosy_AESTableAdapter() As tblDakosy_AESTableAdapter Get Return Me._tblDakosy_AESTableAdapter End Get Set Me._tblDakosy_AESTableAdapter = value End Set End Property _ Public Property tblDakosy_AES_WarenpositionTableAdapter() As tblDakosy_AES_WarenpositionTableAdapter Get Return Me._tblDakosy_AES_WarenpositionTableAdapter End Get Set Me._tblDakosy_AES_WarenpositionTableAdapter = value End Set End Property _ Public Property tblDakosy_AES_WarenpositionPackstueckeTableAdapter() As tblDakosy_AES_WarenpositionPackstueckeTableAdapter Get Return Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter End Get Set Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter = value End Set End Property _ Public Property tblDakosy_AES_WarenpositionUnterlagenTableAdapter() As tblDakosy_AES_WarenpositionUnterlagenTableAdapter Get Return Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter End Get Set Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter = value End Set End Property _ Public Property tblDakosy_EZATableAdapter() As tblDakosy_EZATableAdapter Get Return Me._tblDakosy_EZATableAdapter End Get Set Me._tblDakosy_EZATableAdapter = value End Set End Property _ Public Property tblDakosy_EZA_AdressenTableAdapter() As tblDakosy_EZA_AdressenTableAdapter Get Return Me._tblDakosy_EZA_AdressenTableAdapter End Get Set Me._tblDakosy_EZA_AdressenTableAdapter = value End Set End Property _ Public Property tblDakosy_EZA_AufschubTableAdapter() As tblDakosy_EZA_AufschubTableAdapter Get Return Me._tblDakosy_EZA_AufschubTableAdapter End Get Set Me._tblDakosy_EZA_AufschubTableAdapter = value End Set End Property _ Public Property tblDakosy_EZA_BEAnteilZLAVUVTableAdapter() As tblDakosy_EZA_BEAnteilZLAVUVTableAdapter Get Return Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter End Get Set Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter = value End Set End Property _ Public Property tblDakosy_EZA_SumABeendigungsAnteilTableAdapter() As tblDakosy_EZA_SumABeendigungsAnteilTableAdapter Get Return Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter End Get Set Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter = value End Set End Property _ Public Property tblDakosy_EZA_UnterlagenTableAdapter() As tblDakosy_EZA_UnterlagenTableAdapter Get Return Me._tblDakosy_EZA_UnterlagenTableAdapter End Get Set Me._tblDakosy_EZA_UnterlagenTableAdapter = value End Set End Property _ Public Property tblDakosy_EZA_WarenpositionTableAdapter() As tblDakosy_EZA_WarenpositionTableAdapter Get Return Me._tblDakosy_EZA_WarenpositionTableAdapter End Get Set Me._tblDakosy_EZA_WarenpositionTableAdapter = value End Set End Property _ Public Property tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter() As tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter Get Return Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter End Get Set Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter = value End Set End Property _ Public Property tblDakosy_EZA_WarenpositionUnterlagenTableAdapter() As tblDakosy_EZA_WarenpositionUnterlagenTableAdapter Get Return Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter End Get Set Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter = value End Set End Property _ Public Property tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter() As tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter Get Return Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter End Get Set Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOutTableAdapter() As tblDakosy_NCTSOutTableAdapter Get Return Me._tblDakosy_NCTSOutTableAdapter End Get Set Me._tblDakosy_NCTSOutTableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOut_SicherheitsangabenTableAdapter() As tblDakosy_NCTSOut_SicherheitsangabenTableAdapter Get Return Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter End Get Set Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOut_WarenpositionTableAdapter() As tblDakosy_NCTSOut_WarenpositionTableAdapter Get Return Me._tblDakosy_NCTSOut_WarenpositionTableAdapter End Get Set Me._tblDakosy_NCTSOut_WarenpositionTableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter() As tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter Get Return Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter End Get Set Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter() As tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter Get Return Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter End Get Set Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOut004TableAdapter() As tblDakosy_NCTSOut004TableAdapter Get Return Me._tblDakosy_NCTSOut004TableAdapter End Get Set Me._tblDakosy_NCTSOut004TableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOut004_GuaranteeTableAdapter() As tblDakosy_NCTSOut004_GuaranteeTableAdapter Get Return Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter End Get Set Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOut004_HouseConsignmentTableAdapter() As tblDakosy_NCTSOut004_HouseConsignmentTableAdapter Get Return Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter End Get Set Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter() As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter Get Return Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter End Get Set Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter() As tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter Get Return Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter End Get Set Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter = value End Set End Property _ Public Property tblDakosy_NCTSOut004_TransportEquipmentTableAdapter() As tblDakosy_NCTSOut004_TransportEquipmentTableAdapter Get Return Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter End Get Set Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter = value End Set End Property _ Public Property tblDakosy_StammreferenzenTableAdapter() As tblDakosy_StammreferenzenTableAdapter Get Return Me._tblDakosy_StammreferenzenTableAdapter End Get Set Me._tblDakosy_StammreferenzenTableAdapter = value End Set End Property _ Public Property tblDakosy_StatusmeldungenTableAdapter() As tblDakosy_StatusmeldungenTableAdapter Get Return Me._tblDakosy_StatusmeldungenTableAdapter End Get Set Me._tblDakosy_StatusmeldungenTableAdapter = value End Set End Property _ Public Property tblDakosy_ZollanmeldungenTableAdapter() As tblDakosy_ZollanmeldungenTableAdapter Get Return Me._tblDakosy_ZollanmeldungenTableAdapter End Get Set Me._tblDakosy_ZollanmeldungenTableAdapter = value End Set End Property _ Public Property tblDakosy_ZollanmeldungenArtenTableAdapter() As tblDakosy_ZollanmeldungenArtenTableAdapter Get Return Me._tblDakosy_ZollanmeldungenArtenTableAdapter End Get Set Me._tblDakosy_ZollanmeldungenArtenTableAdapter = value End Set End Property _ Public Property tblDatenarchivTableAdapter() As tblDatenarchivTableAdapter Get Return Me._tblDatenarchivTableAdapter End Get Set Me._tblDatenarchivTableAdapter = value End Set End Property _ Public Property tblDatenarchiv_CollectionTableAdapter() As tblDatenarchiv_CollectionTableAdapter Get Return Me._tblDatenarchiv_CollectionTableAdapter End Get Set Me._tblDatenarchiv_CollectionTableAdapter = value End Set End Property _ Public Property tblDEBundeslaenderPLZTableAdapter() As tblDEBundeslaenderPLZTableAdapter Get Return Me._tblDEBundeslaenderPLZTableAdapter End Get Set Me._tblDEBundeslaenderPLZTableAdapter = value End Set End Property _ Public Property tblDHF_AnhaengeTableAdapter() As tblDHF_AnhaengeTableAdapter Get Return Me._tblDHF_AnhaengeTableAdapter End Get Set Me._tblDHF_AnhaengeTableAdapter = value End Set End Property _ Public Property tblDieselArchivTableAdapter() As tblDieselArchivTableAdapter Get Return Me._tblDieselArchivTableAdapter End Get Set Me._tblDieselArchivTableAdapter = value End Set End Property _ Public Property tblDigicust_SendungenTableAdapter() As tblDigicust_SendungenTableAdapter Get Return Me._tblDigicust_SendungenTableAdapter End Get Set Me._tblDigicust_SendungenTableAdapter = value End Set End Property _ Public Property tblDigicust_SessionsTableAdapter() As tblDigicust_SessionsTableAdapter Get Return Me._tblDigicust_SessionsTableAdapter End Get Set Me._tblDigicust_SessionsTableAdapter = value End Set End Property _ Public Property tblDigicust_SettingsTableAdapter() As tblDigicust_SettingsTableAdapter Get Return Me._tblDigicust_SettingsTableAdapter End Get Set Me._tblDigicust_SettingsTableAdapter = value End Set End Property _ Public Property tblEABelegnummerTableAdapter() As tblEABelegnummerTableAdapter Get Return Me._tblEABelegnummerTableAdapter End Get Set Me._tblEABelegnummerTableAdapter = value End Set End Property _ Public Property tblEABelegpositionTableAdapter() As tblEABelegpositionTableAdapter Get Return Me._tblEABelegpositionTableAdapter End Get Set Me._tblEABelegpositionTableAdapter = value End Set End Property _ Public Property tblEmailBenachrichtigungTableAdapter() As tblEmailBenachrichtigungTableAdapter Get Return Me._tblEmailBenachrichtigungTableAdapter End Get Set Me._tblEmailBenachrichtigungTableAdapter = value End Set End Property _ Public Property tblEmailBenachrichtigungArtenTableAdapter() As tblEmailBenachrichtigungArtenTableAdapter Get Return Me._tblEmailBenachrichtigungArtenTableAdapter End Get Set Me._tblEmailBenachrichtigungArtenTableAdapter = value End Set End Property _ Public Property tblEORIPruefungTableAdapter() As tblEORIPruefungTableAdapter Get Return Me._tblEORIPruefungTableAdapter End Get Set Me._tblEORIPruefungTableAdapter = value End Set End Property _ Public Property tblEZB_WaehrungskurseTableAdapter() As tblEZB_WaehrungskurseTableAdapter Get Return Me._tblEZB_WaehrungskurseTableAdapter End Get Set Me._tblEZB_WaehrungskurseTableAdapter = value End Set End Property _ Public Property tblEZT_ImportcodenummernTableAdapter() As tblEZT_ImportcodenummernTableAdapter Get Return Me._tblEZT_ImportcodenummernTableAdapter End Get Set Me._tblEZT_ImportcodenummernTableAdapter = value End Set End Property _ Public Property tblFahrerDatenTableAdapter() As tblFahrerDatenTableAdapter Get Return Me._tblFahrerDatenTableAdapter End Get Set Me._tblFahrerDatenTableAdapter = value End Set End Property _ Public Property tblFirmaTableAdapter() As tblFirmaTableAdapter Get Return Me._tblFirmaTableAdapter End Get Set Me._tblFirmaTableAdapter = value End Set End Property _ Public Property tblFiskal_DatenTableAdapter() As tblFiskal_DatenTableAdapter Get Return Me._tblFiskal_DatenTableAdapter End Get Set Me._tblFiskal_DatenTableAdapter = value End Set End Property _ Public Property tblFiskalkundenTableAdapter() As tblFiskalkundenTableAdapter Get Return Me._tblFiskalkundenTableAdapter End Get Set Me._tblFiskalkundenTableAdapter = value End Set End Property _ Public Property tblFormulardatenTableAdapter() As tblFormulardatenTableAdapter Get Return Me._tblFormulardatenTableAdapter End Get Set Me._tblFormulardatenTableAdapter = value End Set End Property _ Public Property tblFormulareVorlagenTableAdapter() As tblFormulareVorlagenTableAdapter Get Return Me._tblFormulareVorlagenTableAdapter End Get Set Me._tblFormulareVorlagenTableAdapter = value End Set End Property _ Public Property tblFormulareVorlagenValuesTableAdapter() As tblFormulareVorlagenValuesTableAdapter Get Return Me._tblFormulareVorlagenValuesTableAdapter End Get Set Me._tblFormulareVorlagenValuesTableAdapter = value End Set End Property _ Public Property tblFremdSpeditionenZuordnungTableAdapter() As tblFremdSpeditionenZuordnungTableAdapter Get Return Me._tblFremdSpeditionenZuordnungTableAdapter End Get Set Me._tblFremdSpeditionenZuordnungTableAdapter = value End Set End Property _ Public Property tblFTP_LogTableAdapter() As tblFTP_LogTableAdapter Get Return Me._tblFTP_LogTableAdapter End Get Set Me._tblFTP_LogTableAdapter = value End Set End Property _ Public Property tblFTP_Log_Backup2TableAdapter() As tblFTP_Log_Backup2TableAdapter Get Return Me._tblFTP_Log_Backup2TableAdapter End Get Set Me._tblFTP_Log_Backup2TableAdapter = value End Set End Property _ Public Property tblGebuehrenvermarktungsnormenTableAdapter() As tblGebuehrenvermarktungsnormenTableAdapter Get Return Me._tblGebuehrenvermarktungsnormenTableAdapter End Get Set Me._tblGebuehrenvermarktungsnormenTableAdapter = value End Set End Property _ Public Property tblGelangensbestaetigungTableAdapter() As tblGelangensbestaetigungTableAdapter Get Return Me._tblGelangensbestaetigungTableAdapter End Get Set Me._tblGelangensbestaetigungTableAdapter = value End Set End Property _ Public Property tblGeschäftsjahrTableAdapter() As tblGeschäftsjahrTableAdapter Get Return Me._tblGeschäftsjahrTableAdapter End Get Set Me._tblGeschäftsjahrTableAdapter = value End Set End Property _ Public Property tblGeschäftsjahrBelegNrTableAdapter() As tblGeschäftsjahrBelegNrTableAdapter Get Return Me._tblGeschäftsjahrBelegNrTableAdapter End Get Set Me._tblGeschäftsjahrBelegNrTableAdapter = value End Set End Property _ Public Property tblGeschäftsjahrJournalNrTableAdapter() As tblGeschäftsjahrJournalNrTableAdapter Get Return Me._tblGeschäftsjahrJournalNrTableAdapter End Get Set Me._tblGeschäftsjahrJournalNrTableAdapter = value End Set End Property _ Public Property tblGestellungsgarantienTableAdapter() As tblGestellungsgarantienTableAdapter Get Return Me._tblGestellungsgarantienTableAdapter End Get Set Me._tblGestellungsgarantienTableAdapter = value End Set End Property _ Public Property tblGestellungsmitteilungTableAdapter() As tblGestellungsmitteilungTableAdapter Get Return Me._tblGestellungsmitteilungTableAdapter End Get Set Me._tblGestellungsmitteilungTableAdapter = value End Set End Property _ Public Property tblGestellungsmitteilung_PositionenTableAdapter() As tblGestellungsmitteilung_PositionenTableAdapter Get Return Me._tblGestellungsmitteilung_PositionenTableAdapter End Get Set Me._tblGestellungsmitteilung_PositionenTableAdapter = value End Set End Property _ Public Property tblGOBOXBestellungenTableAdapter() As tblGOBOXBestellungenTableAdapter Get Return Me._tblGOBOXBestellungenTableAdapter End Get Set Me._tblGOBOXBestellungenTableAdapter = value End Set End Property _ Public Property tblGVMSTableAdapter() As tblGVMSTableAdapter Get Return Me._tblGVMSTableAdapter End Get Set Me._tblGVMSTableAdapter = value End Set End Property _ Public Property tblGVMS_CarriersTableAdapter() As tblGVMS_CarriersTableAdapter Get Return Me._tblGVMS_CarriersTableAdapter End Get Set Me._tblGVMS_CarriersTableAdapter = value End Set End Property _ Public Property tblGVMS_PortsTableAdapter() As tblGVMS_PortsTableAdapter Get Return Me._tblGVMS_PortsTableAdapter End Get Set Me._tblGVMS_PortsTableAdapter = value End Set End Property _ Public Property tblGVMS_PosTableAdapter() As tblGVMS_PosTableAdapter Get Return Me._tblGVMS_PosTableAdapter End Get Set Me._tblGVMS_PosTableAdapter = value End Set End Property _ Public Property tblGVMS_RoutesTableAdapter() As tblGVMS_RoutesTableAdapter Get Return Me._tblGVMS_RoutesTableAdapter End Get Set Me._tblGVMS_RoutesTableAdapter = value End Set End Property _ Public Property tblHandlingssaetzeInternTableAdapter() As tblHandlingssaetzeInternTableAdapter Get Return Me._tblHandlingssaetzeInternTableAdapter End Get Set Me._tblHandlingssaetzeInternTableAdapter = value End Set End Property _ Public Property tblHistorieTableAdapter() As tblHistorieTableAdapter Get Return Me._tblHistorieTableAdapter End Get Set Me._tblHistorieTableAdapter = value End Set End Property _ Public Property tblIDS_TransaktionenTableAdapter() As tblIDS_TransaktionenTableAdapter Get Return Me._tblIDS_TransaktionenTableAdapter End Get Set Me._tblIDS_TransaktionenTableAdapter = value End Set End Property _ Public Property tblKassenbuchTableAdapter() As tblKassenbuchTableAdapter Get Return Me._tblKassenbuchTableAdapter End Get Set Me._tblKassenbuchTableAdapter = value End Set End Property _ Public Property tblKontoTableAdapter() As tblKontoTableAdapter Get Return Me._tblKontoTableAdapter End Get Set Me._tblKontoTableAdapter = value End Set End Property _ Public Property tblKundenAufschubkontenTableAdapter() As tblKundenAufschubkontenTableAdapter Get Return Me._tblKundenAufschubkontenTableAdapter End Get Set Me._tblKundenAufschubkontenTableAdapter = value End Set End Property _ Public Property tblKundenBesonderheitenTableAdapter() As tblKundenBesonderheitenTableAdapter Get Return Me._tblKundenBesonderheitenTableAdapter End Get Set Me._tblKundenBesonderheitenTableAdapter = value End Set End Property _ Public Property tblKundenBesonderheiten_KategorienTableAdapter() As tblKundenBesonderheiten_KategorienTableAdapter Get Return Me._tblKundenBesonderheiten_KategorienTableAdapter End Get Set Me._tblKundenBesonderheiten_KategorienTableAdapter = value End Set End Property _ Public Property tblKundenDatenblattTableAdapter() As tblKundenDatenblattTableAdapter Get Return Me._tblKundenDatenblattTableAdapter End Get Set Me._tblKundenDatenblattTableAdapter = value End Set End Property _ Public Property tblKundenErweitertTableAdapter() As tblKundenErweitertTableAdapter Get Return Me._tblKundenErweitertTableAdapter End Get Set Me._tblKundenErweitertTableAdapter = value End Set End Property _ Public Property tblKundenKontaktTableAdapter() As tblKundenKontaktTableAdapter Get Return Me._tblKundenKontaktTableAdapter End Get Set Me._tblKundenKontaktTableAdapter = value End Set End Property _ Public Property tblKundenKontaktArtenTableAdapter() As tblKundenKontaktArtenTableAdapter Get Return Me._tblKundenKontaktArtenTableAdapter End Get Set Me._tblKundenKontaktArtenTableAdapter = value End Set End Property _ Public Property tblKundenumsatzTableAdapter() As tblKundenumsatzTableAdapter Get Return Me._tblKundenumsatzTableAdapter End Get Set Me._tblKundenumsatzTableAdapter = value End Set End Property _ Public Property tblKundenVermerkeTableAdapter() As tblKundenVermerkeTableAdapter Get Return Me._tblKundenVermerkeTableAdapter End Get Set Me._tblKundenVermerkeTableAdapter = value End Set End Property _ Public Property tblKundenVertraegeTableAdapter() As tblKundenVertraegeTableAdapter Get Return Me._tblKundenVertraegeTableAdapter End Get Set Me._tblKundenVertraegeTableAdapter = value End Set End Property _ Public Property tblKundenVertraegeArtenTableAdapter() As tblKundenVertraegeArtenTableAdapter Get Return Me._tblKundenVertraegeArtenTableAdapter End Get Set Me._tblKundenVertraegeArtenTableAdapter = value End Set End Property _ Public Property tblKundenVollmachtenTableAdapter() As tblKundenVollmachtenTableAdapter Get Return Me._tblKundenVollmachtenTableAdapter End Get Set Me._tblKundenVollmachtenTableAdapter = value End Set End Property _ Public Property tblKundenVollmachtenArtTableAdapter() As tblKundenVollmachtenArtTableAdapter Get Return Me._tblKundenVollmachtenArtTableAdapter End Get Set Me._tblKundenVollmachtenArtTableAdapter = value End Set End Property _ Public Property tblLogbuchTableAdapter() As tblLogbuchTableAdapter Get Return Me._tblLogbuchTableAdapter End Get Set Me._tblLogbuchTableAdapter = value End Set End Property _ Public Property tblMandantTableAdapter() As tblMandantTableAdapter Get Return Me._tblMandantTableAdapter End Get Set Me._tblMandantTableAdapter = value End Set End Property _ Public Property tblMautIT_BelegartenTableAdapter() As tblMautIT_BelegartenTableAdapter Get Return Me._tblMautIT_BelegartenTableAdapter End Get Set Me._tblMautIT_BelegartenTableAdapter = value End Set End Property _ Public Property tblMautITArchivTableAdapter() As tblMautITArchivTableAdapter Get Return Me._tblMautITArchivTableAdapter End Get Set Me._tblMautITArchivTableAdapter = value End Set End Property _ Public Property tblMDM_ParamterTableAdapter() As tblMDM_ParamterTableAdapter Get Return Me._tblMDM_ParamterTableAdapter End Get Set Me._tblMDM_ParamterTableAdapter = value End Set End Property _ Public Property tblMSECustomersTableAdapter() As tblMSECustomersTableAdapter Get Return Me._tblMSECustomersTableAdapter End Get Set Me._tblMSECustomersTableAdapter = value End Set End Property _ Public Property tblMSEImportTableAdapter() As tblMSEImportTableAdapter Get Return Me._tblMSEImportTableAdapter End Get Set Me._tblMSEImportTableAdapter = value End Set End Property _ Public Property tblMSEInvoicesTableAdapter() As tblMSEInvoicesTableAdapter Get Return Me._tblMSEInvoicesTableAdapter End Get Set Me._tblMSEInvoicesTableAdapter = value End Set End Property _ Public Property tblMSELeistungenTableAdapter() As tblMSELeistungenTableAdapter Get Return Me._tblMSELeistungenTableAdapter End Get Set Me._tblMSELeistungenTableAdapter = value End Set End Property _ Public Property tblMSESettlementsTableAdapter() As tblMSESettlementsTableAdapter Get Return Me._tblMSESettlementsTableAdapter End Get Set Me._tblMSESettlementsTableAdapter = value End Set End Property _ Public Property tblMSETransactionsTableAdapter() As tblMSETransactionsTableAdapter Get Return Me._tblMSETransactionsTableAdapter End Get Set Me._tblMSETransactionsTableAdapter = value End Set End Property _ Public Property tblMSETransactionsArchivTableAdapter() As tblMSETransactionsArchivTableAdapter Get Return Me._tblMSETransactionsArchivTableAdapter End Get Set Me._tblMSETransactionsArchivTableAdapter = value End Set End Property _ Public Property tblMSETransactionsArchivOLDTableAdapter() As tblMSETransactionsArchivOLDTableAdapter Get Return Me._tblMSETransactionsArchivOLDTableAdapter End Get Set Me._tblMSETransactionsArchivOLDTableAdapter = value End Set End Property _ Public Property tblNCTS_TRTableAdapter() As tblNCTS_TRTableAdapter Get Return Me._tblNCTS_TRTableAdapter End Get Set Me._tblNCTS_TRTableAdapter = value End Set End Property _ Public Property tblNCTS_TR_NachrichtenTableAdapter() As tblNCTS_TR_NachrichtenTableAdapter Get Return Me._tblNCTS_TR_NachrichtenTableAdapter End Get Set Me._tblNCTS_TR_NachrichtenTableAdapter = value End Set End Property _ Public Property tblNCTS_TR_SicherheitsangabenTableAdapter() As tblNCTS_TR_SicherheitsangabenTableAdapter Get Return Me._tblNCTS_TR_SicherheitsangabenTableAdapter End Get Set Me._tblNCTS_TR_SicherheitsangabenTableAdapter = value End Set End Property _ Public Property tblNCTS_TR_WarenpositionTableAdapter() As tblNCTS_TR_WarenpositionTableAdapter Get Return Me._tblNCTS_TR_WarenpositionTableAdapter End Get Set Me._tblNCTS_TR_WarenpositionTableAdapter = value End Set End Property _ Public Property tblNCTS_TR_WarenpositionPackstueckeTableAdapter() As tblNCTS_TR_WarenpositionPackstueckeTableAdapter Get Return Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter End Get Set Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter = value End Set End Property _ Public Property tblNCTSGestellungsadressenTableAdapter() As tblNCTSGestellungsadressenTableAdapter Get Return Me._tblNCTSGestellungsadressenTableAdapter End Get Set Me._tblNCTSGestellungsadressenTableAdapter = value End Set End Property _ Public Property tblNTCSRoutenTableAdapter() As tblNTCSRoutenTableAdapter Get Return Me._tblNTCSRoutenTableAdapter End Get Set Me._tblNTCSRoutenTableAdapter = value End Set End Property _ Public Property tblOffertenArchivTableAdapter() As tblOffertenArchivTableAdapter Get Return Me._tblOffertenArchivTableAdapter End Get Set Me._tblOffertenArchivTableAdapter = value End Set End Property _ Public Property tblOffertenPositionenArchivTableAdapter() As tblOffertenPositionenArchivTableAdapter Get Return Me._tblOffertenPositionenArchivTableAdapter End Get Set Me._tblOffertenPositionenArchivTableAdapter = value End Set End Property _ Public Property tblOregonNCTS_DeclarationDataTableAdapter() As tblOregonNCTS_DeclarationDataTableAdapter Get Return Me._tblOregonNCTS_DeclarationDataTableAdapter End Get Set Me._tblOregonNCTS_DeclarationDataTableAdapter = value End Set End Property _ Public Property tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter() As tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter Get Return Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter End Get Set Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter = value End Set End Property _ Public Property tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter() As tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter Get Return Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter End Get Set Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter = value End Set End Property _ Public Property tblOregonNCTS_Declarations_GoodsAttributeTableAdapter() As tblOregonNCTS_Declarations_GoodsAttributeTableAdapter Get Return Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter End Get Set Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter = value End Set End Property _ Public Property tblOregonNCTS_Declarations_PacksAttributeTableAdapter() As tblOregonNCTS_Declarations_PacksAttributeTableAdapter Get Return Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter End Get Set Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter = value End Set End Property _ Public Property tblOregonNCTS_Declarations_PartiesAttributeTableAdapter() As tblOregonNCTS_Declarations_PartiesAttributeTableAdapter Get Return Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter End Get Set Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter = value End Set End Property _ Public Property tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter() As tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter Get Return Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter End Get Set Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter = value End Set End Property _ Public Property tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter() As tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter Get Return Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter End Get Set Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter = value End Set End Property _ Public Property tblOregonNCTS_ReferenceTemplateTableAdapter() As tblOregonNCTS_ReferenceTemplateTableAdapter Get Return Me._tblOregonNCTS_ReferenceTemplateTableAdapter End Get Set Me._tblOregonNCTS_ReferenceTemplateTableAdapter = value End Set End Property _ Public Property tblOriginalATRTableAdapter() As tblOriginalATRTableAdapter Get Return Me._tblOriginalATRTableAdapter End Get Set Me._tblOriginalATRTableAdapter = value End Set End Property _ Public Property tblPartnersystem_ParamterTableAdapter() As tblPartnersystem_ParamterTableAdapter Get Return Me._tblPartnersystem_ParamterTableAdapter End Get Set Me._tblPartnersystem_ParamterTableAdapter = value End Set End Property _ Public Property tblPfadTableAdapter() As tblPfadTableAdapter Get Return Me._tblPfadTableAdapter End Get Set Me._tblPfadTableAdapter = value End Set End Property _ Public Property tblPLOSE_DetailsTableAdapter() As tblPLOSE_DetailsTableAdapter Get Return Me._tblPLOSE_DetailsTableAdapter End Get Set Me._tblPLOSE_DetailsTableAdapter = value End Set End Property _ Public Property tblPLOSE_Inv_DataTableAdapter() As tblPLOSE_Inv_DataTableAdapter Get Return Me._tblPLOSE_Inv_DataTableAdapter End Get Set Me._tblPLOSE_Inv_DataTableAdapter = value End Set End Property _ Public Property tblPLOSE_LieferantTableAdapter() As tblPLOSE_LieferantTableAdapter Get Return Me._tblPLOSE_LieferantTableAdapter End Get Set Me._tblPLOSE_LieferantTableAdapter = value End Set End Property _ Public Property tblPLOSE_ProduktbeschreibungTableAdapter() As tblPLOSE_ProduktbeschreibungTableAdapter Get Return Me._tblPLOSE_ProduktbeschreibungTableAdapter End Get Set Me._tblPLOSE_ProduktbeschreibungTableAdapter = value End Set End Property _ Public Property tblPosNrTableAdapter() As tblPosNrTableAdapter Get Return Me._tblPosNrTableAdapter End Get Set Me._tblPosNrTableAdapter = value End Set End Property _ Public Property tblPostversandTableAdapter() As tblPostversandTableAdapter Get Return Me._tblPostversandTableAdapter End Get Set Me._tblPostversandTableAdapter = value End Set End Property _ Public Property tblPreislistenTableAdapter() As tblPreislistenTableAdapter Get Return Me._tblPreislistenTableAdapter End Get Set Me._tblPreislistenTableAdapter = value End Set End Property _ Public Property tblPreislistenpositionenTableAdapter() As tblPreislistenpositionenTableAdapter Get Return Me._tblPreislistenpositionenTableAdapter End Get Set Me._tblPreislistenpositionenTableAdapter = value End Set End Property _ Public Property tblPreistabellenTableAdapter() As tblPreistabellenTableAdapter Get Return Me._tblPreistabellenTableAdapter End Get Set Me._tblPreistabellenTableAdapter = value End Set End Property _ Public Property tblPreistabellenpositionenTableAdapter() As tblPreistabellenpositionenTableAdapter Get Return Me._tblPreistabellenpositionenTableAdapter End Get Set Me._tblPreistabellenpositionenTableAdapter = value End Set End Property _ Public Property tblQS_AbfertigungsartenTableAdapter() As tblQS_AbfertigungsartenTableAdapter Get Return Me._tblQS_AbfertigungsartenTableAdapter End Get Set Me._tblQS_AbfertigungsartenTableAdapter = value End Set End Property _ Public Property tblQS_AufträgeTableAdapter() As tblQS_AufträgeTableAdapter Get Return Me._tblQS_AufträgeTableAdapter End Get Set Me._tblQS_AufträgeTableAdapter = value End Set End Property _ Public Property tblQS_AuftragspositionenTableAdapter() As tblQS_AuftragspositionenTableAdapter Get Return Me._tblQS_AuftragspositionenTableAdapter End Get Set Me._tblQS_AuftragspositionenTableAdapter = value End Set End Property _ Public Property tblQS_TeamsTableAdapter() As tblQS_TeamsTableAdapter Get Return Me._tblQS_TeamsTableAdapter End Get Set Me._tblQS_TeamsTableAdapter = value End Set End Property _ Public Property tblQS_TeamsMATableAdapter() As tblQS_TeamsMATableAdapter Get Return Me._tblQS_TeamsMATableAdapter End Get Set Me._tblQS_TeamsMATableAdapter = value End Set End Property _ Public Property tblRechnungsnotizenTableAdapter() As tblRechnungsnotizenTableAdapter Get Return Me._tblRechnungsnotizenTableAdapter End Get Set Me._tblRechnungsnotizenTableAdapter = value End Set End Property _ Public Property tblRefTableAdapter() As tblRefTableAdapter Get Return Me._tblRefTableAdapter End Get Set Me._tblRefTableAdapter = value End Set End Property _ Public Property tblRefBeziehungenTableAdapter() As tblRefBeziehungenTableAdapter Get Return Me._tblRefBeziehungenTableAdapter End Get Set Me._tblRefBeziehungenTableAdapter = value End Set End Property _ Public Property tblRKSV_KassenTableAdapter() As tblRKSV_KassenTableAdapter Get Return Me._tblRKSV_KassenTableAdapter End Get Set Me._tblRKSV_KassenTableAdapter = value End Set End Property _ Public Property tblRKSV_POSTableAdapter() As tblRKSV_POSTableAdapter Get Return Me._tblRKSV_POSTableAdapter End Get Set Me._tblRKSV_POSTableAdapter = value End Set End Property _ Public Property tblRMCImportTableAdapter() As tblRMCImportTableAdapter Get Return Me._tblRMCImportTableAdapter End Get Set Me._tblRMCImportTableAdapter = value End Set End Property _ Public Property tblSMSTableAdapter() As tblSMSTableAdapter Get Return Me._tblSMSTableAdapter End Get Set Me._tblSMSTableAdapter = value End Set End Property _ Public Property tblSpeditionsbucharchivTableAdapter() As tblSpeditionsbucharchivTableAdapter Get Return Me._tblSpeditionsbucharchivTableAdapter End Get Set Me._tblSpeditionsbucharchivTableAdapter = value End Set End Property _ Public Property tblSpeditionsbuchEndEmpfaengerTableAdapter() As tblSpeditionsbuchEndEmpfaengerTableAdapter Get Return Me._tblSpeditionsbuchEndEmpfaengerTableAdapter End Get Set Me._tblSpeditionsbuchEndEmpfaengerTableAdapter = value End Set End Property _ Public Property tblSpeditionsbuchUnterPosTableAdapter() As tblSpeditionsbuchUnterPosTableAdapter Get Return Me._tblSpeditionsbuchUnterPosTableAdapter End Get Set Me._tblSpeditionsbuchUnterPosTableAdapter = value End Set End Property _ Public Property tblSpeditionsbuchUnterPosArtenTableAdapter() As tblSpeditionsbuchUnterPosArtenTableAdapter Get Return Me._tblSpeditionsbuchUnterPosArtenTableAdapter End Get Set Me._tblSpeditionsbuchUnterPosArtenTableAdapter = value End Set End Property _ Public Property tblSteuernummernTableAdapter() As tblSteuernummernTableAdapter Get Return Me._tblSteuernummernTableAdapter End Get Set Me._tblSteuernummernTableAdapter = value End Set End Property _ Public Property tblSteuersätzeTableAdapter() As tblSteuersätzeTableAdapter Get Return Me._tblSteuersätzeTableAdapter End Get Set Me._tblSteuersätzeTableAdapter = value End Set End Property _ Public Property tblSteuertypTableAdapter() As tblSteuertypTableAdapter Get Return Me._tblSteuertypTableAdapter End Get Set Me._tblSteuertypTableAdapter = value End Set End Property _ Public Property tblTelotec_AbgabenTableAdapter() As tblTelotec_AbgabenTableAdapter Get Return Me._tblTelotec_AbgabenTableAdapter End Get Set Me._tblTelotec_AbgabenTableAdapter = value End Set End Property _ Public Property tblTelotec_AnmeldungTableAdapter() As tblTelotec_AnmeldungTableAdapter Get Return Me._tblTelotec_AnmeldungTableAdapter End Get Set Me._tblTelotec_AnmeldungTableAdapter = value End Set End Property _ Public Property tblTelotec_PackstueckeTableAdapter() As tblTelotec_PackstueckeTableAdapter Get Return Me._tblTelotec_PackstueckeTableAdapter End Get Set Me._tblTelotec_PackstueckeTableAdapter = value End Set End Property _ Public Property tblTelotec_ParamterTableAdapter() As tblTelotec_ParamterTableAdapter Get Return Me._tblTelotec_ParamterTableAdapter End Get Set Me._tblTelotec_ParamterTableAdapter = value End Set End Property _ Public Property tblTelotec_PositionsdatenTableAdapter() As tblTelotec_PositionsdatenTableAdapter Get Return Me._tblTelotec_PositionsdatenTableAdapter End Get Set Me._tblTelotec_PositionsdatenTableAdapter = value End Set End Property _ Public Property tblTelotec_PositionsdatenAbgabenTableAdapter() As tblTelotec_PositionsdatenAbgabenTableAdapter Get Return Me._tblTelotec_PositionsdatenAbgabenTableAdapter End Get Set Me._tblTelotec_PositionsdatenAbgabenTableAdapter = value End Set End Property _ Public Property tblTelotec_PositionsdatenDokumenteTableAdapter() As tblTelotec_PositionsdatenDokumenteTableAdapter Get Return Me._tblTelotec_PositionsdatenDokumenteTableAdapter End Get Set Me._tblTelotec_PositionsdatenDokumenteTableAdapter = value End Set End Property _ Public Property tblTelotec_SicherheitTableAdapter() As tblTelotec_SicherheitTableAdapter Get Return Me._tblTelotec_SicherheitTableAdapter End Get Set Me._tblTelotec_SicherheitTableAdapter = value End Set End Property _ Public Property tblTestTableAdapter() As tblTestTableAdapter Get Return Me._tblTestTableAdapter End Get Set Me._tblTestTableAdapter = value End Set End Property _ Public Property tblTextkonserveTableAdapter() As tblTextkonserveTableAdapter Get Return Me._tblTextkonserveTableAdapter End Get Set Me._tblTextkonserveTableAdapter = value End Set End Property _ Public Property tblTR_AvisoTableAdapter() As tblTR_AvisoTableAdapter Get Return Me._tblTR_AvisoTableAdapter End Get Set Me._tblTR_AvisoTableAdapter = value End Set End Property _ Public Property tblTR_AvisoAnheangeTableAdapter() As tblTR_AvisoAnheangeTableAdapter Get Return Me._tblTR_AvisoAnheangeTableAdapter End Get Set Me._tblTR_AvisoAnheangeTableAdapter = value End Set End Property _ Public Property tblTR_ShipmentTableAdapter() As tblTR_ShipmentTableAdapter Get Return Me._tblTR_ShipmentTableAdapter End Get Set Me._tblTR_ShipmentTableAdapter = value End Set End Property _ Public Property tblTR_Shipment_AdressenTableAdapter() As tblTR_Shipment_AdressenTableAdapter Get Return Me._tblTR_Shipment_AdressenTableAdapter End Get Set Me._tblTR_Shipment_AdressenTableAdapter = value End Set End Property _ Public Property tblTR_Shipment_DocumentTableAdapter() As tblTR_Shipment_DocumentTableAdapter Get Return Me._tblTR_Shipment_DocumentTableAdapter End Get Set Me._tblTR_Shipment_DocumentTableAdapter = value End Set End Property _ Public Property tblTR_Shipment_PositionTableAdapter() As tblTR_Shipment_PositionTableAdapter Get Return Me._tblTR_Shipment_PositionTableAdapter End Get Set Me._tblTR_Shipment_PositionTableAdapter = value End Set End Property _ Public Property tblTR_Shipment_Position_DocumentTableAdapter() As tblTR_Shipment_Position_DocumentTableAdapter Get Return Me._tblTR_Shipment_Position_DocumentTableAdapter End Get Set Me._tblTR_Shipment_Position_DocumentTableAdapter = value End Set End Property _ Public Property tblTranslateTableAdapter() As tblTranslateTableAdapter Get Return Me._tblTranslateTableAdapter End Get Set Me._tblTranslateTableAdapter = value End Set End Property _ Public Property tblTranslateAutoTableAdapter() As tblTranslateAutoTableAdapter Get Return Me._tblTranslateAutoTableAdapter End Get Set Me._tblTranslateAutoTableAdapter = value End Set End Property _ Public Property tblTrdinHeaderTableAdapter() As tblTrdinHeaderTableAdapter Get Return Me._tblTrdinHeaderTableAdapter End Get Set Me._tblTrdinHeaderTableAdapter = value End Set End Property _ Public Property tblTrdinInvoiceTableAdapter() As tblTrdinInvoiceTableAdapter Get Return Me._tblTrdinInvoiceTableAdapter End Get Set Me._tblTrdinInvoiceTableAdapter = value End Set End Property _ Public Property tblTrdinProductTableAdapter() As tblTrdinProductTableAdapter Get Return Me._tblTrdinProductTableAdapter End Get Set Me._tblTrdinProductTableAdapter = value End Set End Property _ Public Property tblUIDPruefungTableAdapter() As tblUIDPruefungTableAdapter Get Return Me._tblUIDPruefungTableAdapter End Get Set Me._tblUIDPruefungTableAdapter = value End Set End Property _ Public Property tblUStVAntragTableAdapter() As tblUStVAntragTableAdapter Get Return Me._tblUStVAntragTableAdapter End Get Set Me._tblUStVAntragTableAdapter = value End Set End Property _ Public Property tblUStVBelegeingangTableAdapter() As tblUStVBelegeingangTableAdapter Get Return Me._tblUStVBelegeingangTableAdapter End Get Set Me._tblUStVBelegeingangTableAdapter = value End Set End Property _ Public Property tblUStVErstattungTableAdapter() As tblUStVErstattungTableAdapter Get Return Me._tblUStVErstattungTableAdapter End Get Set Me._tblUStVErstattungTableAdapter = value End Set End Property _ Public Property tblUStVFormulareTableAdapter() As tblUStVFormulareTableAdapter Get Return Me._tblUStVFormulareTableAdapter End Get Set Me._tblUStVFormulareTableAdapter = value End Set End Property _ Public Property tblUStVKuLäFoTableAdapter() As tblUStVKuLäFoTableAdapter Get Return Me._tblUStVKuLäFoTableAdapter End Get Set Me._tblUStVKuLäFoTableAdapter = value End Set End Property _ Public Property tblUStVLäFoTableAdapter() As tblUStVLäFoTableAdapter Get Return Me._tblUStVLäFoTableAdapter End Get Set Me._tblUStVLäFoTableAdapter = value End Set End Property _ Public Property tblUStVLeistenderTableAdapter() As tblUStVLeistenderTableAdapter Get Return Me._tblUStVLeistenderTableAdapter End Get Set Me._tblUStVLeistenderTableAdapter = value End Set End Property _ Public Property tblUStVPositionenTableAdapter() As tblUStVPositionenTableAdapter Get Return Me._tblUStVPositionenTableAdapter End Get Set Me._tblUStVPositionenTableAdapter = value End Set End Property _ Public Property tblUStVTexteTableAdapter() As tblUStVTexteTableAdapter Get Return Me._tblUStVTexteTableAdapter End Get Set Me._tblUStVTexteTableAdapter = value End Set End Property _ Public Property tblUTAArchivTableAdapter() As tblUTAArchivTableAdapter Get Return Me._tblUTAArchivTableAdapter End Get Set Me._tblUTAArchivTableAdapter = value End Set End Property _ Public Property tblUTAFakturierwarenartenTableAdapter() As tblUTAFakturierwarenartenTableAdapter Get Return Me._tblUTAFakturierwarenartenTableAdapter End Get Set Me._tblUTAFakturierwarenartenTableAdapter = value End Set End Property _ Public Property tblUTAHeaderTableAdapter() As tblUTAHeaderTableAdapter Get Return Me._tblUTAHeaderTableAdapter End Get Set Me._tblUTAHeaderTableAdapter = value End Set End Property _ Public Property tblUTAHeaderNewTableAdapter() As tblUTAHeaderNewTableAdapter Get Return Me._tblUTAHeaderNewTableAdapter End Get Set Me._tblUTAHeaderNewTableAdapter = value End Set End Property _ Public Property tblUTAImportTableAdapter() As tblUTAImportTableAdapter Get Return Me._tblUTAImportTableAdapter End Get Set Me._tblUTAImportTableAdapter = value End Set End Property _ Public Property tblUTAImportNewTableAdapter() As tblUTAImportNewTableAdapter Get Return Me._tblUTAImportNewTableAdapter End Get Set Me._tblUTAImportNewTableAdapter = value End Set End Property _ Public Property tblUTALeistungenTableAdapter() As tblUTALeistungenTableAdapter Get Return Me._tblUTALeistungenTableAdapter End Get Set Me._tblUTALeistungenTableAdapter = value End Set End Property _ Public Property tblUTATrailerTableAdapter() As tblUTATrailerTableAdapter Get Return Me._tblUTATrailerTableAdapter End Get Set Me._tblUTATrailerTableAdapter = value End Set End Property _ Public Property tblUTATrailerNewTableAdapter() As tblUTATrailerNewTableAdapter Get Return Me._tblUTATrailerNewTableAdapter End Get Set Me._tblUTATrailerNewTableAdapter = value End Set End Property _ Public Property tblVermarktungsnormenTableAdapter() As tblVermarktungsnormenTableAdapter Get Return Me._tblVermarktungsnormenTableAdapter End Get Set Me._tblVermarktungsnormenTableAdapter = value End Set End Property _ Public Property tblVermarktungsnormenGebuehrenTableAdapter() As tblVermarktungsnormenGebuehrenTableAdapter Get Return Me._tblVermarktungsnormenGebuehrenTableAdapter End Get Set Me._tblVermarktungsnormenGebuehrenTableAdapter = value End Set End Property _ Public Property tblVorauskassenTableAdapter() As tblVorauskassenTableAdapter Get Return Me._tblVorauskassenTableAdapter End Get Set Me._tblVorauskassenTableAdapter = value End Set End Property _ Public Property tblWahrungtabelleNEUTableAdapter() As tblWahrungtabelleNEUTableAdapter Get Return Me._tblWahrungtabelleNEUTableAdapter End Get Set Me._tblWahrungtabelleNEUTableAdapter = value End Set End Property _ Public Property tblWarenbezeichnungBegriffeTableAdapter() As tblWarenbezeichnungBegriffeTableAdapter Get Return Me._tblWarenbezeichnungBegriffeTableAdapter End Get Set Me._tblWarenbezeichnungBegriffeTableAdapter = value End Set End Property _ Public Property tblZabis_Atlas_NCTSTableAdapter() As tblZabis_Atlas_NCTSTableAdapter Get Return Me._tblZabis_Atlas_NCTSTableAdapter End Get Set Me._tblZabis_Atlas_NCTSTableAdapter = value End Set End Property _ Public Property tblZahlungszieltexteTableAdapter() As tblZahlungszieltexteTableAdapter Get Return Me._tblZahlungszieltexteTableAdapter End Get Set Me._tblZahlungszieltexteTableAdapter = value End Set End Property _ Public Property tblZolaris_EZoll_NCTSTableAdapter() As tblZolaris_EZoll_NCTSTableAdapter Get Return Me._tblZolaris_EZoll_NCTSTableAdapter End Get Set Me._tblZolaris_EZoll_NCTSTableAdapter = value End Set End Property _ Public Property tblZOLL_WechselkurseTableAdapter() As tblZOLL_WechselkurseTableAdapter Get Return Me._tblZOLL_WechselkurseTableAdapter End Get Set Me._tblZOLL_WechselkurseTableAdapter = value End Set End Property _ Public Property tblZollArtikelTableAdapter() As tblZollArtikelTableAdapter Get Return Me._tblZollArtikelTableAdapter End Get Set Me._tblZollArtikelTableAdapter = value End Set End Property _ Public Property tblZollUnterArtikelTableAdapter() As tblZollUnterArtikelTableAdapter Get Return Me._tblZollUnterArtikelTableAdapter End Get Set Me._tblZollUnterArtikelTableAdapter = value End Set End Property _ Public Property TemporaryUpsizedTable2TableAdapter() As TemporaryUpsizedTable2TableAdapter Get Return Me._temporaryUpsizedTable2TableAdapter End Get Set Me._temporaryUpsizedTable2TableAdapter = value End Set End Property _ Public Property VerkehrszweigeTableAdapter() As VerkehrszweigeTableAdapter Get Return Me._verkehrszweigeTableAdapter End Get Set Me._verkehrszweigeTableAdapter = value End Set End Property _ Public Property VermerkeTableAdapter() As VermerkeTableAdapter Get Return Me._vermerkeTableAdapter End Get Set Me._vermerkeTableAdapter = value End Set End Property _ Public Property VorkostenTableAdapter() As VorkostenTableAdapter Get Return Me._vorkostenTableAdapter End Get Set Me._vorkostenTableAdapter = value End Set End Property _ Public Property WährungstabelleTableAdapter() As WährungstabelleTableAdapter Get Return Me._währungstabelleTableAdapter End Get Set Me._währungstabelleTableAdapter = value End Set End Property _ Public Property ZahlungsartenTableAdapter() As ZahlungsartenTableAdapter Get Return Me._zahlungsartenTableAdapter End Get Set Me._zahlungsartenTableAdapter = value End Set End Property _ Public Property zbadzTableAdapter() As zbadzTableAdapter Get Return Me._zbadzTableAdapter End Get Set Me._zbadzTableAdapter = value End Set End Property _ Public Property zbantTableAdapter() As zbantTableAdapter Get Return Me._zbantTableAdapter End Get Set Me._zbantTableAdapter = value End Set End Property _ Public Property zbapoTableAdapter() As zbapoTableAdapter Get Return Me._zbapoTableAdapter End Get Set Me._zbapoTableAdapter = value End Set End Property _ Public Property zbposTableAdapter() As zbposTableAdapter Get Return Me._zbposTableAdapter End Get Set Me._zbposTableAdapter = value End Set End Property _ Public Property ZkteingTableAdapter() As ZkteingTableAdapter Get Return Me._zkteingTableAdapter End Get Set Me._zkteingTableAdapter = value End Set End Property _ Public Property ZollsystemeTableAdapter() As ZollsystemeTableAdapter Get Return Me._zollsystemeTableAdapter End Get Set Me._zollsystemeTableAdapter = value End Set End Property _ Public Property Zulassungen_ZnVTableAdapter() As Zulassungen_ZnVTableAdapter Get Return Me._zulassungen_ZnVTableAdapter End Get Set Me._zulassungen_ZnVTableAdapter = 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._abfertigungsartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._abfertigungsartenTableAdapter.Connection) Is Nothing)) Then Return Me._abfertigungsartenTableAdapter.Connection End If If ((Not (Me._abfertigungskosten_der_KorrespondentenTableAdapter) Is Nothing) _ AndAlso (Not (Me._abfertigungskosten_der_KorrespondentenTableAdapter.Connection) Is Nothing)) Then Return Me._abfertigungskosten_der_KorrespondentenTableAdapter.Connection End If If ((Not (Me._abfertigungsLaenderTableAdapter) Is Nothing) _ AndAlso (Not (Me._abfertigungsLaenderTableAdapter.Connection) Is Nothing)) Then Return Me._abfertigungsLaenderTableAdapter.Connection End If If ((Not (Me._abfertigungsLaenderAbfertigungsartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Connection) Is Nothing)) Then Return Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Connection End If If ((Not (Me._abgabenartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._abgabenartenTableAdapter.Connection) Is Nothing)) Then Return Me._abgabenartenTableAdapter.Connection End If If ((Not (Me._adressenTableAdapter) Is Nothing) _ AndAlso (Not (Me._adressenTableAdapter.Connection) Is Nothing)) Then Return Me._adressenTableAdapter.Connection End If If ((Not (Me._aktivitätenlogTableAdapter) Is Nothing) _ AndAlso (Not (Me._aktivitätenlogTableAdapter.Connection) Is Nothing)) Then Return Me._aktivitätenlogTableAdapter.Connection End If If ((Not (Me._anlagenTableAdapter) Is Nothing) _ AndAlso (Not (Me._anlagenTableAdapter.Connection) Is Nothing)) Then Return Me._anlagenTableAdapter.Connection End If If ((Not (Me._atlas_statusTableAdapter) Is Nothing) _ AndAlso (Not (Me._atlas_statusTableAdapter.Connection) Is Nothing)) Then Return Me._atlas_statusTableAdapter.Connection End If If ((Not (Me._aufschubdatenTableAdapter) Is Nothing) _ AndAlso (Not (Me._aufschubdatenTableAdapter.Connection) Is Nothing)) Then Return Me._aufschubdatenTableAdapter.Connection End If If ((Not (Me._aufschubkontenTableAdapter) Is Nothing) _ AndAlso (Not (Me._aufschubkontenTableAdapter.Connection) Is Nothing)) Then Return Me._aufschubkontenTableAdapter.Connection End If If ((Not (Me._belegartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._belegartenTableAdapter.Connection) Is Nothing)) Then Return Me._belegartenTableAdapter.Connection End If If ((Not (Me._berechnungsartTableAdapter) Is Nothing) _ AndAlso (Not (Me._berechnungsartTableAdapter.Connection) Is Nothing)) Then Return Me._berechnungsartTableAdapter.Connection End If If ((Not (Me._berechnungsbogenTableAdapter) Is Nothing) _ AndAlso (Not (Me._berechnungsbogenTableAdapter.Connection) Is Nothing)) Then Return Me._berechnungsbogenTableAdapter.Connection End If If ((Not (Me._berichteTableAdapter) Is Nothing) _ AndAlso (Not (Me._berichteTableAdapter.Connection) Is Nothing)) Then Return Me._berichteTableAdapter.Connection End If If ((Not (Me._cMRTableAdapter) Is Nothing) _ AndAlso (Not (Me._cMRTableAdapter.Connection) Is Nothing)) Then Return Me._cMRTableAdapter.Connection End If If ((Not (Me._devisenkurseTableAdapter) Is Nothing) _ AndAlso (Not (Me._devisenkurseTableAdapter.Connection) Is Nothing)) Then Return Me._devisenkurseTableAdapter.Connection End If If ((Not (Me._ePBesTableAdapter) Is Nothing) _ AndAlso (Not (Me._ePBesTableAdapter.Connection) Is Nothing)) Then Return Me._ePBesTableAdapter.Connection End If If ((Not (Me._ePBesPOSTableAdapter) Is Nothing) _ AndAlso (Not (Me._ePBesPOSTableAdapter.Connection) Is Nothing)) Then Return Me._ePBesPOSTableAdapter.Connection End If If ((Not (Me._filialenTableAdapter) Is Nothing) _ AndAlso (Not (Me._filialenTableAdapter.Connection) Is Nothing)) Then Return Me._filialenTableAdapter.Connection End If If ((Not (Me._geschäftsartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._geschäftsartenTableAdapter.Connection) Is Nothing)) Then Return Me._geschäftsartenTableAdapter.Connection End If If ((Not (Me._korrespondentenTableAdapter) Is Nothing) _ AndAlso (Not (Me._korrespondentenTableAdapter.Connection) Is Nothing)) Then Return Me._korrespondentenTableAdapter.Connection End If If ((Not (Me._kostenstellenTableAdapter) Is Nothing) _ AndAlso (Not (Me._kostenstellenTableAdapter.Connection) Is Nothing)) Then Return Me._kostenstellenTableAdapter.Connection End If If ((Not (Me._kreditkartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._kreditkartenTableAdapter.Connection) Is Nothing)) Then Return Me._kreditkartenTableAdapter.Connection End If If ((Not (Me._kundenTableAdapter) Is Nothing) _ AndAlso (Not (Me._kundenTableAdapter.Connection) Is Nothing)) Then Return Me._kundenTableAdapter.Connection End If If ((Not (Me._kundenFilialenTableAdapter) Is Nothing) _ AndAlso (Not (Me._kundenFilialenTableAdapter.Connection) Is Nothing)) Then Return Me._kundenFilialenTableAdapter.Connection End If If ((Not (Me._länder_der_Bundesrepublik_DeutschlandTableAdapter) Is Nothing) _ AndAlso (Not (Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Connection) Is Nothing)) Then Return Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Connection End If If ((Not (Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter) Is Nothing) _ AndAlso (Not (Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Connection) Is Nothing)) Then Return Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Connection End If If ((Not (Me._leistungenTableAdapter) Is Nothing) _ AndAlso (Not (Me._leistungenTableAdapter.Connection) Is Nothing)) Then Return Me._leistungenTableAdapter.Connection End If If ((Not (Me._leistungenBUKontenTableAdapter) Is Nothing) _ AndAlso (Not (Me._leistungenBUKontenTableAdapter.Connection) Is Nothing)) Then Return Me._leistungenBUKontenTableAdapter.Connection End If If ((Not (Me._lieferbedingungenTableAdapter) Is Nothing) _ AndAlso (Not (Me._lieferbedingungenTableAdapter.Connection) Is Nothing)) Then Return Me._lieferbedingungenTableAdapter.Connection End If If ((Not (Me._nebenkosten_der_KorrespondentenTableAdapter) Is Nothing) _ AndAlso (Not (Me._nebenkosten_der_KorrespondentenTableAdapter.Connection) Is Nothing)) Then Return Me._nebenkosten_der_KorrespondentenTableAdapter.Connection End If If ((Not (Me._offene_PostenTableAdapter) Is Nothing) _ AndAlso (Not (Me._offene_PostenTableAdapter.Connection) Is Nothing)) Then Return Me._offene_PostenTableAdapter.Connection End If If ((Not (Me._offene_Posten_DVOTableAdapter) Is Nothing) _ AndAlso (Not (Me._offene_Posten_DVOTableAdapter.Connection) Is Nothing)) Then Return Me._offene_Posten_DVOTableAdapter.Connection End If If ((Not (Me._offertenTableAdapter) Is Nothing) _ AndAlso (Not (Me._offertenTableAdapter.Connection) Is Nothing)) Then Return Me._offertenTableAdapter.Connection End If If ((Not (Me._offertenpositionenTableAdapter) Is Nothing) _ AndAlso (Not (Me._offertenpositionenTableAdapter.Connection) Is Nothing)) Then Return Me._offertenpositionenTableAdapter.Connection End If If ((Not (Me._offertenstammTableAdapter) Is Nothing) _ AndAlso (Not (Me._offertenstammTableAdapter.Connection) Is Nothing)) Then Return Me._offertenstammTableAdapter.Connection End If If ((Not (Me._personalTableAdapter) Is Nothing) _ AndAlso (Not (Me._personalTableAdapter.Connection) Is Nothing)) Then Return Me._personalTableAdapter.Connection End If If ((Not (Me._rechnungsausgangTableAdapter) Is Nothing) _ AndAlso (Not (Me._rechnungsausgangTableAdapter.Connection) Is Nothing)) Then Return Me._rechnungsausgangTableAdapter.Connection End If If ((Not (Me._rechnungsausgangAnhaengeTableAdapter) Is Nothing) _ AndAlso (Not (Me._rechnungsausgangAnhaengeTableAdapter.Connection) Is Nothing)) Then Return Me._rechnungsausgangAnhaengeTableAdapter.Connection End If If ((Not (Me._rechnungsausgangPositionenTableAdapter) Is Nothing) _ AndAlso (Not (Me._rechnungsausgangPositionenTableAdapter.Connection) Is Nothing)) Then Return Me._rechnungsausgangPositionenTableAdapter.Connection End If If ((Not (Me._rechnungsnummernTableAdapter) Is Nothing) _ AndAlso (Not (Me._rechnungsnummernTableAdapter.Connection) Is Nothing)) Then Return Me._rechnungsnummernTableAdapter.Connection End If If ((Not (Me._rechnungstexteTableAdapter) Is Nothing) _ AndAlso (Not (Me._rechnungstexteTableAdapter.Connection) Is Nothing)) Then Return Me._rechnungstexteTableAdapter.Connection End If If ((Not (Me._speditionsbuchTableAdapter) Is Nothing) _ AndAlso (Not (Me._speditionsbuchTableAdapter.Connection) Is Nothing)) Then Return Me._speditionsbuchTableAdapter.Connection End If If ((Not (Me._standardoffertenTableAdapter) Is Nothing) _ AndAlso (Not (Me._standardoffertenTableAdapter.Connection) Is Nothing)) Then Return Me._standardoffertenTableAdapter.Connection End If If ((Not (Me._standardoffertenFirmaTableAdapter) Is Nothing) _ AndAlso (Not (Me._standardoffertenFirmaTableAdapter.Connection) Is Nothing)) Then Return Me._standardoffertenFirmaTableAdapter.Connection End If If ((Not (Me._steuertabelleTableAdapter) Is Nothing) _ AndAlso (Not (Me._steuertabelleTableAdapter.Connection) Is Nothing)) Then Return Me._steuertabelleTableAdapter.Connection End If If ((Not (Me._tbl_ASFINAG_FileInfoTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_ASFINAG_FileInfoTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_ASFINAG_FileInfoTableAdapter.Connection End If If ((Not (Me._tbl_BMD_LänderTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_BMD_LänderTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_BMD_LänderTableAdapter.Connection End If If ((Not (Me._tbl_DY_ParamterTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ParamterTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ParamterTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Connection End If If ((Not (Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Connection End If If ((Not (Me._tbl_ErrorsTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_ErrorsTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_ErrorsTableAdapter.Connection End If If ((Not (Me._tbl_IDS_Kategorien_KundenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_IDS_Kategorien_KundenTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_IDS_Kategorien_KundenTableAdapter.Connection End If If ((Not (Me._tbl_IDS_Kategorien_RechenwerteTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Connection End If If ((Not (Me._tbl_IDS_KundenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_IDS_KundenTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_IDS_KundenTableAdapter.Connection End If If ((Not (Me._tbl_IDS_Kunden_ohne_RabattTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Connection End If If ((Not (Me._tbl_IDS_LänderTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_IDS_LänderTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_IDS_LänderTableAdapter.Connection End If If ((Not (Me._tbl_IDS_ProdukteTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_IDS_ProdukteTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_IDS_ProdukteTableAdapter.Connection End If If ((Not (Me._tbl_IDS_RechenwerteTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_IDS_RechenwerteTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_IDS_RechenwerteTableAdapter.Connection End If If ((Not (Me._tbl_IDS_StationenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_IDS_StationenTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_IDS_StationenTableAdapter.Connection End If If ((Not (Me._tbl_Intrastat_AusfuhrTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_Intrastat_AusfuhrTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_Intrastat_AusfuhrTableAdapter.Connection End If If ((Not (Me._tbl_TelefonbuchTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_TelefonbuchTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_TelefonbuchTableAdapter.Connection End If If ((Not (Me._tbl_TelefonnummernTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_TelefonnummernTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_TelefonnummernTableAdapter.Connection End If If ((Not (Me._tbl_WÖLFLTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_WÖLFLTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_WÖLFLTableAdapter.Connection End If If ((Not (Me._tbl_ZM_tabelleTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_ZM_tabelleTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_ZM_tabelleTableAdapter.Connection End If If ((Not (Me._tblAbfertigungsartenFilialeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblAbfertigungsartenFilialeTableAdapter.Connection) Is Nothing)) Then Return Me._tblAbfertigungsartenFilialeTableAdapter.Connection End If If ((Not (Me._tblAbfertigungsartOffertenstammTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblAbfertigungsartOffertenstammTableAdapter.Connection) Is Nothing)) Then Return Me._tblAbfertigungsartOffertenstammTableAdapter.Connection End If If ((Not (Me._tblAbrechnung_NCTSBrgTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblAbrechnung_NCTSBrgTableAdapter.Connection) Is Nothing)) Then Return Me._tblAbrechnung_NCTSBrgTableAdapter.Connection End If If ((Not (Me._tblAnmeldungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblAnmeldungTableAdapter.Connection) Is Nothing)) Then Return Me._tblAnmeldungTableAdapter.Connection End If If ((Not (Me._tblAsfinagMautTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblAsfinagMautTableAdapter.Connection) Is Nothing)) Then Return Me._tblAsfinagMautTableAdapter.Connection End If If ((Not (Me._tblATEZ_NCTSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblATEZ_NCTSTableAdapter.Connection) Is Nothing)) Then Return Me._tblATEZ_NCTSTableAdapter.Connection End If If ((Not (Me._tblATEZ_NCTS_RoutenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblATEZ_NCTS_RoutenTableAdapter.Connection) Is Nothing)) Then Return Me._tblATEZ_NCTS_RoutenTableAdapter.Connection End If If ((Not (Me._tblATEZ_NCTS_SessionsTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblATEZ_NCTS_SessionsTableAdapter.Connection) Is Nothing)) Then Return Me._tblATEZ_NCTS_SessionsTableAdapter.Connection End If If ((Not (Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Connection) Is Nothing)) Then Return Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Connection End If If ((Not (Me._tblBankspesenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblBankspesenTableAdapter.Connection) Is Nothing)) Then Return Me._tblBankspesenTableAdapter.Connection End If If ((Not (Me._tblBerechnungsmethodeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblBerechnungsmethodeTableAdapter.Connection) Is Nothing)) Then Return Me._tblBerechnungsmethodeTableAdapter.Connection End If If ((Not (Me._tblBerichtsdruckerTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblBerichtsdruckerTableAdapter.Connection) Is Nothing)) Then Return Me._tblBerichtsdruckerTableAdapter.Connection End If If ((Not (Me._tblBesuchsberichteTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblBesuchsberichteTableAdapter.Connection) Is Nothing)) Then Return Me._tblBesuchsberichteTableAdapter.Connection End If If ((Not (Me._tblBonitaetsauskunftTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblBonitaetsauskunftTableAdapter.Connection) Is Nothing)) Then Return Me._tblBonitaetsauskunftTableAdapter.Connection End If If ((Not (Me._tblBuchungstextTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblBuchungstextTableAdapter.Connection) Is Nothing)) Then Return Me._tblBuchungstextTableAdapter.Connection End If If ((Not (Me._tblDakosy_AESTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_AESTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_AESTableAdapter.Connection End If If ((Not (Me._tblDakosy_AES_WarenpositionTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_AES_WarenpositionTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_AES_WarenpositionTableAdapter.Connection End If If ((Not (Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Connection End If If ((Not (Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Connection End If If ((Not (Me._tblDakosy_EZATableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_EZATableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_EZATableAdapter.Connection End If If ((Not (Me._tblDakosy_EZA_AdressenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_EZA_AdressenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_EZA_AdressenTableAdapter.Connection End If If ((Not (Me._tblDakosy_EZA_AufschubTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_EZA_AufschubTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_EZA_AufschubTableAdapter.Connection End If If ((Not (Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Connection End If If ((Not (Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Connection End If If ((Not (Me._tblDakosy_EZA_UnterlagenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_EZA_UnterlagenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_EZA_UnterlagenTableAdapter.Connection End If If ((Not (Me._tblDakosy_EZA_WarenpositionTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_EZA_WarenpositionTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_EZA_WarenpositionTableAdapter.Connection End If If ((Not (Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Connection End If If ((Not (Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Connection End If If ((Not (Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOutTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOutTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOutTableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOut_WarenpositionTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOut004TableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOut004TableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOut004TableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Connection End If If ((Not (Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Connection End If If ((Not (Me._tblDakosy_StammreferenzenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_StammreferenzenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_StammreferenzenTableAdapter.Connection End If If ((Not (Me._tblDakosy_StatusmeldungenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_StatusmeldungenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_StatusmeldungenTableAdapter.Connection End If If ((Not (Me._tblDakosy_ZollanmeldungenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_ZollanmeldungenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_ZollanmeldungenTableAdapter.Connection End If If ((Not (Me._tblDakosy_ZollanmeldungenArtenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Connection End If If ((Not (Me._tblDatenarchivTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDatenarchivTableAdapter.Connection) Is Nothing)) Then Return Me._tblDatenarchivTableAdapter.Connection End If If ((Not (Me._tblDatenarchiv_CollectionTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDatenarchiv_CollectionTableAdapter.Connection) Is Nothing)) Then Return Me._tblDatenarchiv_CollectionTableAdapter.Connection End If If ((Not (Me._tblDEBundeslaenderPLZTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDEBundeslaenderPLZTableAdapter.Connection) Is Nothing)) Then Return Me._tblDEBundeslaenderPLZTableAdapter.Connection End If If ((Not (Me._tblDHF_AnhaengeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDHF_AnhaengeTableAdapter.Connection) Is Nothing)) Then Return Me._tblDHF_AnhaengeTableAdapter.Connection End If If ((Not (Me._tblDieselArchivTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDieselArchivTableAdapter.Connection) Is Nothing)) Then Return Me._tblDieselArchivTableAdapter.Connection End If If ((Not (Me._tblDigicust_SendungenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDigicust_SendungenTableAdapter.Connection) Is Nothing)) Then Return Me._tblDigicust_SendungenTableAdapter.Connection End If If ((Not (Me._tblDigicust_SessionsTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDigicust_SessionsTableAdapter.Connection) Is Nothing)) Then Return Me._tblDigicust_SessionsTableAdapter.Connection End If If ((Not (Me._tblDigicust_SettingsTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblDigicust_SettingsTableAdapter.Connection) Is Nothing)) Then Return Me._tblDigicust_SettingsTableAdapter.Connection End If If ((Not (Me._tblEABelegnummerTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblEABelegnummerTableAdapter.Connection) Is Nothing)) Then Return Me._tblEABelegnummerTableAdapter.Connection End If If ((Not (Me._tblEABelegpositionTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblEABelegpositionTableAdapter.Connection) Is Nothing)) Then Return Me._tblEABelegpositionTableAdapter.Connection End If If ((Not (Me._tblEmailBenachrichtigungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblEmailBenachrichtigungTableAdapter.Connection) Is Nothing)) Then Return Me._tblEmailBenachrichtigungTableAdapter.Connection End If If ((Not (Me._tblEmailBenachrichtigungArtenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblEmailBenachrichtigungArtenTableAdapter.Connection) Is Nothing)) Then Return Me._tblEmailBenachrichtigungArtenTableAdapter.Connection End If If ((Not (Me._tblEORIPruefungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblEORIPruefungTableAdapter.Connection) Is Nothing)) Then Return Me._tblEORIPruefungTableAdapter.Connection End If If ((Not (Me._tblEZB_WaehrungskurseTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblEZB_WaehrungskurseTableAdapter.Connection) Is Nothing)) Then Return Me._tblEZB_WaehrungskurseTableAdapter.Connection End If If ((Not (Me._tblEZT_ImportcodenummernTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblEZT_ImportcodenummernTableAdapter.Connection) Is Nothing)) Then Return Me._tblEZT_ImportcodenummernTableAdapter.Connection End If If ((Not (Me._tblFahrerDatenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblFahrerDatenTableAdapter.Connection) Is Nothing)) Then Return Me._tblFahrerDatenTableAdapter.Connection End If If ((Not (Me._tblFirmaTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblFirmaTableAdapter.Connection) Is Nothing)) Then Return Me._tblFirmaTableAdapter.Connection End If If ((Not (Me._tblFiskal_DatenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblFiskal_DatenTableAdapter.Connection) Is Nothing)) Then Return Me._tblFiskal_DatenTableAdapter.Connection End If If ((Not (Me._tblFiskalkundenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblFiskalkundenTableAdapter.Connection) Is Nothing)) Then Return Me._tblFiskalkundenTableAdapter.Connection End If If ((Not (Me._tblFormulardatenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblFormulardatenTableAdapter.Connection) Is Nothing)) Then Return Me._tblFormulardatenTableAdapter.Connection End If If ((Not (Me._tblFormulareVorlagenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblFormulareVorlagenTableAdapter.Connection) Is Nothing)) Then Return Me._tblFormulareVorlagenTableAdapter.Connection End If If ((Not (Me._tblFormulareVorlagenValuesTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblFormulareVorlagenValuesTableAdapter.Connection) Is Nothing)) Then Return Me._tblFormulareVorlagenValuesTableAdapter.Connection End If If ((Not (Me._tblFremdSpeditionenZuordnungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblFremdSpeditionenZuordnungTableAdapter.Connection) Is Nothing)) Then Return Me._tblFremdSpeditionenZuordnungTableAdapter.Connection End If If ((Not (Me._tblFTP_LogTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblFTP_LogTableAdapter.Connection) Is Nothing)) Then Return Me._tblFTP_LogTableAdapter.Connection End If If ((Not (Me._tblFTP_Log_Backup2TableAdapter) Is Nothing) _ AndAlso (Not (Me._tblFTP_Log_Backup2TableAdapter.Connection) Is Nothing)) Then Return Me._tblFTP_Log_Backup2TableAdapter.Connection End If If ((Not (Me._tblGebuehrenvermarktungsnormenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGebuehrenvermarktungsnormenTableAdapter.Connection) Is Nothing)) Then Return Me._tblGebuehrenvermarktungsnormenTableAdapter.Connection End If If ((Not (Me._tblGelangensbestaetigungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGelangensbestaetigungTableAdapter.Connection) Is Nothing)) Then Return Me._tblGelangensbestaetigungTableAdapter.Connection End If If ((Not (Me._tblGeschäftsjahrTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGeschäftsjahrTableAdapter.Connection) Is Nothing)) Then Return Me._tblGeschäftsjahrTableAdapter.Connection End If If ((Not (Me._tblGeschäftsjahrBelegNrTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGeschäftsjahrBelegNrTableAdapter.Connection) Is Nothing)) Then Return Me._tblGeschäftsjahrBelegNrTableAdapter.Connection End If If ((Not (Me._tblGeschäftsjahrJournalNrTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGeschäftsjahrJournalNrTableAdapter.Connection) Is Nothing)) Then Return Me._tblGeschäftsjahrJournalNrTableAdapter.Connection End If If ((Not (Me._tblGestellungsgarantienTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGestellungsgarantienTableAdapter.Connection) Is Nothing)) Then Return Me._tblGestellungsgarantienTableAdapter.Connection End If If ((Not (Me._tblGestellungsmitteilungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGestellungsmitteilungTableAdapter.Connection) Is Nothing)) Then Return Me._tblGestellungsmitteilungTableAdapter.Connection End If If ((Not (Me._tblGestellungsmitteilung_PositionenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGestellungsmitteilung_PositionenTableAdapter.Connection) Is Nothing)) Then Return Me._tblGestellungsmitteilung_PositionenTableAdapter.Connection End If If ((Not (Me._tblGOBOXBestellungenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGOBOXBestellungenTableAdapter.Connection) Is Nothing)) Then Return Me._tblGOBOXBestellungenTableAdapter.Connection End If If ((Not (Me._tblGVMSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGVMSTableAdapter.Connection) Is Nothing)) Then Return Me._tblGVMSTableAdapter.Connection End If If ((Not (Me._tblGVMS_CarriersTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGVMS_CarriersTableAdapter.Connection) Is Nothing)) Then Return Me._tblGVMS_CarriersTableAdapter.Connection End If If ((Not (Me._tblGVMS_PortsTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGVMS_PortsTableAdapter.Connection) Is Nothing)) Then Return Me._tblGVMS_PortsTableAdapter.Connection End If If ((Not (Me._tblGVMS_PosTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGVMS_PosTableAdapter.Connection) Is Nothing)) Then Return Me._tblGVMS_PosTableAdapter.Connection End If If ((Not (Me._tblGVMS_RoutesTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblGVMS_RoutesTableAdapter.Connection) Is Nothing)) Then Return Me._tblGVMS_RoutesTableAdapter.Connection End If If ((Not (Me._tblHandlingssaetzeInternTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblHandlingssaetzeInternTableAdapter.Connection) Is Nothing)) Then Return Me._tblHandlingssaetzeInternTableAdapter.Connection End If If ((Not (Me._tblHistorieTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblHistorieTableAdapter.Connection) Is Nothing)) Then Return Me._tblHistorieTableAdapter.Connection End If If ((Not (Me._tblIDS_TransaktionenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblIDS_TransaktionenTableAdapter.Connection) Is Nothing)) Then Return Me._tblIDS_TransaktionenTableAdapter.Connection End If If ((Not (Me._tblKassenbuchTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKassenbuchTableAdapter.Connection) Is Nothing)) Then Return Me._tblKassenbuchTableAdapter.Connection End If If ((Not (Me._tblKontoTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKontoTableAdapter.Connection) Is Nothing)) Then Return Me._tblKontoTableAdapter.Connection End If If ((Not (Me._tblKundenAufschubkontenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenAufschubkontenTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenAufschubkontenTableAdapter.Connection End If If ((Not (Me._tblKundenBesonderheitenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenBesonderheitenTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenBesonderheitenTableAdapter.Connection End If If ((Not (Me._tblKundenBesonderheiten_KategorienTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenBesonderheiten_KategorienTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenBesonderheiten_KategorienTableAdapter.Connection End If If ((Not (Me._tblKundenDatenblattTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenDatenblattTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenDatenblattTableAdapter.Connection End If If ((Not (Me._tblKundenErweitertTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenErweitertTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenErweitertTableAdapter.Connection End If If ((Not (Me._tblKundenKontaktTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenKontaktTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenKontaktTableAdapter.Connection End If If ((Not (Me._tblKundenKontaktArtenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenKontaktArtenTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenKontaktArtenTableAdapter.Connection End If If ((Not (Me._tblKundenumsatzTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenumsatzTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenumsatzTableAdapter.Connection End If If ((Not (Me._tblKundenVermerkeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenVermerkeTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenVermerkeTableAdapter.Connection End If If ((Not (Me._tblKundenVertraegeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenVertraegeTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenVertraegeTableAdapter.Connection End If If ((Not (Me._tblKundenVertraegeArtenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenVertraegeArtenTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenVertraegeArtenTableAdapter.Connection End If If ((Not (Me._tblKundenVollmachtenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenVollmachtenTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenVollmachtenTableAdapter.Connection End If If ((Not (Me._tblKundenVollmachtenArtTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblKundenVollmachtenArtTableAdapter.Connection) Is Nothing)) Then Return Me._tblKundenVollmachtenArtTableAdapter.Connection End If If ((Not (Me._tblLogbuchTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblLogbuchTableAdapter.Connection) Is Nothing)) Then Return Me._tblLogbuchTableAdapter.Connection End If If ((Not (Me._tblMandantTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMandantTableAdapter.Connection) Is Nothing)) Then Return Me._tblMandantTableAdapter.Connection End If If ((Not (Me._tblMautIT_BelegartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMautIT_BelegartenTableAdapter.Connection) Is Nothing)) Then Return Me._tblMautIT_BelegartenTableAdapter.Connection End If If ((Not (Me._tblMautITArchivTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMautITArchivTableAdapter.Connection) Is Nothing)) Then Return Me._tblMautITArchivTableAdapter.Connection End If If ((Not (Me._tblMDM_ParamterTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMDM_ParamterTableAdapter.Connection) Is Nothing)) Then Return Me._tblMDM_ParamterTableAdapter.Connection End If If ((Not (Me._tblMSECustomersTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMSECustomersTableAdapter.Connection) Is Nothing)) Then Return Me._tblMSECustomersTableAdapter.Connection End If If ((Not (Me._tblMSEImportTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMSEImportTableAdapter.Connection) Is Nothing)) Then Return Me._tblMSEImportTableAdapter.Connection End If If ((Not (Me._tblMSEInvoicesTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMSEInvoicesTableAdapter.Connection) Is Nothing)) Then Return Me._tblMSEInvoicesTableAdapter.Connection End If If ((Not (Me._tblMSELeistungenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMSELeistungenTableAdapter.Connection) Is Nothing)) Then Return Me._tblMSELeistungenTableAdapter.Connection End If If ((Not (Me._tblMSESettlementsTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMSESettlementsTableAdapter.Connection) Is Nothing)) Then Return Me._tblMSESettlementsTableAdapter.Connection End If If ((Not (Me._tblMSETransactionsTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMSETransactionsTableAdapter.Connection) Is Nothing)) Then Return Me._tblMSETransactionsTableAdapter.Connection End If If ((Not (Me._tblMSETransactionsArchivTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMSETransactionsArchivTableAdapter.Connection) Is Nothing)) Then Return Me._tblMSETransactionsArchivTableAdapter.Connection End If If ((Not (Me._tblMSETransactionsArchivOLDTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblMSETransactionsArchivOLDTableAdapter.Connection) Is Nothing)) Then Return Me._tblMSETransactionsArchivOLDTableAdapter.Connection End If If ((Not (Me._tblNCTS_TRTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblNCTS_TRTableAdapter.Connection) Is Nothing)) Then Return Me._tblNCTS_TRTableAdapter.Connection End If If ((Not (Me._tblNCTS_TR_NachrichtenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblNCTS_TR_NachrichtenTableAdapter.Connection) Is Nothing)) Then Return Me._tblNCTS_TR_NachrichtenTableAdapter.Connection End If If ((Not (Me._tblNCTS_TR_SicherheitsangabenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Connection) Is Nothing)) Then Return Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Connection End If If ((Not (Me._tblNCTS_TR_WarenpositionTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblNCTS_TR_WarenpositionTableAdapter.Connection) Is Nothing)) Then Return Me._tblNCTS_TR_WarenpositionTableAdapter.Connection End If If ((Not (Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Connection) Is Nothing)) Then Return Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Connection End If If ((Not (Me._tblNCTSGestellungsadressenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblNCTSGestellungsadressenTableAdapter.Connection) Is Nothing)) Then Return Me._tblNCTSGestellungsadressenTableAdapter.Connection End If If ((Not (Me._tblNTCSRoutenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblNTCSRoutenTableAdapter.Connection) Is Nothing)) Then Return Me._tblNTCSRoutenTableAdapter.Connection End If If ((Not (Me._tblOffertenArchivTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOffertenArchivTableAdapter.Connection) Is Nothing)) Then Return Me._tblOffertenArchivTableAdapter.Connection End If If ((Not (Me._tblOffertenPositionenArchivTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOffertenPositionenArchivTableAdapter.Connection) Is Nothing)) Then Return Me._tblOffertenPositionenArchivTableAdapter.Connection End If If ((Not (Me._tblOregonNCTS_DeclarationDataTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOregonNCTS_DeclarationDataTableAdapter.Connection) Is Nothing)) Then Return Me._tblOregonNCTS_DeclarationDataTableAdapter.Connection End If If ((Not (Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Connection) Is Nothing)) Then Return Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Connection End If If ((Not (Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Connection) Is Nothing)) Then Return Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Connection End If If ((Not (Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Connection) Is Nothing)) Then Return Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Connection End If If ((Not (Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Connection) Is Nothing)) Then Return Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Connection End If If ((Not (Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Connection) Is Nothing)) Then Return Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Connection End If If ((Not (Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Connection) Is Nothing)) Then Return Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Connection End If If ((Not (Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Connection) Is Nothing)) Then Return Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Connection End If If ((Not (Me._tblOregonNCTS_ReferenceTemplateTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Connection) Is Nothing)) Then Return Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Connection End If If ((Not (Me._tblOriginalATRTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblOriginalATRTableAdapter.Connection) Is Nothing)) Then Return Me._tblOriginalATRTableAdapter.Connection End If If ((Not (Me._tblPartnersystem_ParamterTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPartnersystem_ParamterTableAdapter.Connection) Is Nothing)) Then Return Me._tblPartnersystem_ParamterTableAdapter.Connection End If If ((Not (Me._tblPfadTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPfadTableAdapter.Connection) Is Nothing)) Then Return Me._tblPfadTableAdapter.Connection End If If ((Not (Me._tblPLOSE_DetailsTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPLOSE_DetailsTableAdapter.Connection) Is Nothing)) Then Return Me._tblPLOSE_DetailsTableAdapter.Connection End If If ((Not (Me._tblPLOSE_Inv_DataTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPLOSE_Inv_DataTableAdapter.Connection) Is Nothing)) Then Return Me._tblPLOSE_Inv_DataTableAdapter.Connection End If If ((Not (Me._tblPLOSE_LieferantTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPLOSE_LieferantTableAdapter.Connection) Is Nothing)) Then Return Me._tblPLOSE_LieferantTableAdapter.Connection End If If ((Not (Me._tblPLOSE_ProduktbeschreibungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPLOSE_ProduktbeschreibungTableAdapter.Connection) Is Nothing)) Then Return Me._tblPLOSE_ProduktbeschreibungTableAdapter.Connection End If If ((Not (Me._tblPosNrTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPosNrTableAdapter.Connection) Is Nothing)) Then Return Me._tblPosNrTableAdapter.Connection End If If ((Not (Me._tblPostversandTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPostversandTableAdapter.Connection) Is Nothing)) Then Return Me._tblPostversandTableAdapter.Connection End If If ((Not (Me._tblPreislistenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPreislistenTableAdapter.Connection) Is Nothing)) Then Return Me._tblPreislistenTableAdapter.Connection End If If ((Not (Me._tblPreislistenpositionenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPreislistenpositionenTableAdapter.Connection) Is Nothing)) Then Return Me._tblPreislistenpositionenTableAdapter.Connection End If If ((Not (Me._tblPreistabellenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPreistabellenTableAdapter.Connection) Is Nothing)) Then Return Me._tblPreistabellenTableAdapter.Connection End If If ((Not (Me._tblPreistabellenpositionenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblPreistabellenpositionenTableAdapter.Connection) Is Nothing)) Then Return Me._tblPreistabellenpositionenTableAdapter.Connection End If If ((Not (Me._tblQS_AbfertigungsartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblQS_AbfertigungsartenTableAdapter.Connection) Is Nothing)) Then Return Me._tblQS_AbfertigungsartenTableAdapter.Connection End If If ((Not (Me._tblQS_AufträgeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblQS_AufträgeTableAdapter.Connection) Is Nothing)) Then Return Me._tblQS_AufträgeTableAdapter.Connection End If If ((Not (Me._tblQS_AuftragspositionenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblQS_AuftragspositionenTableAdapter.Connection) Is Nothing)) Then Return Me._tblQS_AuftragspositionenTableAdapter.Connection End If If ((Not (Me._tblQS_TeamsTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblQS_TeamsTableAdapter.Connection) Is Nothing)) Then Return Me._tblQS_TeamsTableAdapter.Connection End If If ((Not (Me._tblQS_TeamsMATableAdapter) Is Nothing) _ AndAlso (Not (Me._tblQS_TeamsMATableAdapter.Connection) Is Nothing)) Then Return Me._tblQS_TeamsMATableAdapter.Connection End If If ((Not (Me._tblRechnungsnotizenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblRechnungsnotizenTableAdapter.Connection) Is Nothing)) Then Return Me._tblRechnungsnotizenTableAdapter.Connection End If If ((Not (Me._tblRefTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblRefTableAdapter.Connection) Is Nothing)) Then Return Me._tblRefTableAdapter.Connection End If If ((Not (Me._tblRefBeziehungenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblRefBeziehungenTableAdapter.Connection) Is Nothing)) Then Return Me._tblRefBeziehungenTableAdapter.Connection End If If ((Not (Me._tblRKSV_KassenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblRKSV_KassenTableAdapter.Connection) Is Nothing)) Then Return Me._tblRKSV_KassenTableAdapter.Connection End If If ((Not (Me._tblRKSV_POSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblRKSV_POSTableAdapter.Connection) Is Nothing)) Then Return Me._tblRKSV_POSTableAdapter.Connection End If If ((Not (Me._tblRMCImportTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblRMCImportTableAdapter.Connection) Is Nothing)) Then Return Me._tblRMCImportTableAdapter.Connection End If If ((Not (Me._tblSMSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblSMSTableAdapter.Connection) Is Nothing)) Then Return Me._tblSMSTableAdapter.Connection End If If ((Not (Me._tblSpeditionsbucharchivTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblSpeditionsbucharchivTableAdapter.Connection) Is Nothing)) Then Return Me._tblSpeditionsbucharchivTableAdapter.Connection End If If ((Not (Me._tblSpeditionsbuchEndEmpfaengerTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Connection) Is Nothing)) Then Return Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Connection End If If ((Not (Me._tblSpeditionsbuchUnterPosTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblSpeditionsbuchUnterPosTableAdapter.Connection) Is Nothing)) Then Return Me._tblSpeditionsbuchUnterPosTableAdapter.Connection End If If ((Not (Me._tblSpeditionsbuchUnterPosArtenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Connection) Is Nothing)) Then Return Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Connection End If If ((Not (Me._tblSteuernummernTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblSteuernummernTableAdapter.Connection) Is Nothing)) Then Return Me._tblSteuernummernTableAdapter.Connection End If If ((Not (Me._tblSteuersätzeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblSteuersätzeTableAdapter.Connection) Is Nothing)) Then Return Me._tblSteuersätzeTableAdapter.Connection End If If ((Not (Me._tblSteuertypTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblSteuertypTableAdapter.Connection) Is Nothing)) Then Return Me._tblSteuertypTableAdapter.Connection End If If ((Not (Me._tblTelotec_AbgabenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTelotec_AbgabenTableAdapter.Connection) Is Nothing)) Then Return Me._tblTelotec_AbgabenTableAdapter.Connection End If If ((Not (Me._tblTelotec_AnmeldungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTelotec_AnmeldungTableAdapter.Connection) Is Nothing)) Then Return Me._tblTelotec_AnmeldungTableAdapter.Connection End If If ((Not (Me._tblTelotec_PackstueckeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTelotec_PackstueckeTableAdapter.Connection) Is Nothing)) Then Return Me._tblTelotec_PackstueckeTableAdapter.Connection End If If ((Not (Me._tblTelotec_ParamterTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTelotec_ParamterTableAdapter.Connection) Is Nothing)) Then Return Me._tblTelotec_ParamterTableAdapter.Connection End If If ((Not (Me._tblTelotec_PositionsdatenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTelotec_PositionsdatenTableAdapter.Connection) Is Nothing)) Then Return Me._tblTelotec_PositionsdatenTableAdapter.Connection End If If ((Not (Me._tblTelotec_PositionsdatenAbgabenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Connection) Is Nothing)) Then Return Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Connection End If If ((Not (Me._tblTelotec_PositionsdatenDokumenteTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Connection) Is Nothing)) Then Return Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Connection End If If ((Not (Me._tblTelotec_SicherheitTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTelotec_SicherheitTableAdapter.Connection) Is Nothing)) Then Return Me._tblTelotec_SicherheitTableAdapter.Connection End If If ((Not (Me._tblTestTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTestTableAdapter.Connection) Is Nothing)) Then Return Me._tblTestTableAdapter.Connection End If If ((Not (Me._tblTextkonserveTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTextkonserveTableAdapter.Connection) Is Nothing)) Then Return Me._tblTextkonserveTableAdapter.Connection End If If ((Not (Me._tblTR_AvisoTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTR_AvisoTableAdapter.Connection) Is Nothing)) Then Return Me._tblTR_AvisoTableAdapter.Connection End If If ((Not (Me._tblTR_AvisoAnheangeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTR_AvisoAnheangeTableAdapter.Connection) Is Nothing)) Then Return Me._tblTR_AvisoAnheangeTableAdapter.Connection End If If ((Not (Me._tblTR_ShipmentTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTR_ShipmentTableAdapter.Connection) Is Nothing)) Then Return Me._tblTR_ShipmentTableAdapter.Connection End If If ((Not (Me._tblTR_Shipment_AdressenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTR_Shipment_AdressenTableAdapter.Connection) Is Nothing)) Then Return Me._tblTR_Shipment_AdressenTableAdapter.Connection End If If ((Not (Me._tblTR_Shipment_DocumentTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTR_Shipment_DocumentTableAdapter.Connection) Is Nothing)) Then Return Me._tblTR_Shipment_DocumentTableAdapter.Connection End If If ((Not (Me._tblTR_Shipment_PositionTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTR_Shipment_PositionTableAdapter.Connection) Is Nothing)) Then Return Me._tblTR_Shipment_PositionTableAdapter.Connection End If If ((Not (Me._tblTR_Shipment_Position_DocumentTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTR_Shipment_Position_DocumentTableAdapter.Connection) Is Nothing)) Then Return Me._tblTR_Shipment_Position_DocumentTableAdapter.Connection End If If ((Not (Me._tblTranslateTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTranslateTableAdapter.Connection) Is Nothing)) Then Return Me._tblTranslateTableAdapter.Connection End If If ((Not (Me._tblTranslateAutoTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTranslateAutoTableAdapter.Connection) Is Nothing)) Then Return Me._tblTranslateAutoTableAdapter.Connection End If If ((Not (Me._tblTrdinHeaderTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTrdinHeaderTableAdapter.Connection) Is Nothing)) Then Return Me._tblTrdinHeaderTableAdapter.Connection End If If ((Not (Me._tblTrdinInvoiceTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTrdinInvoiceTableAdapter.Connection) Is Nothing)) Then Return Me._tblTrdinInvoiceTableAdapter.Connection End If If ((Not (Me._tblTrdinProductTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblTrdinProductTableAdapter.Connection) Is Nothing)) Then Return Me._tblTrdinProductTableAdapter.Connection End If If ((Not (Me._tblUIDPruefungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUIDPruefungTableAdapter.Connection) Is Nothing)) Then Return Me._tblUIDPruefungTableAdapter.Connection End If If ((Not (Me._tblUStVAntragTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUStVAntragTableAdapter.Connection) Is Nothing)) Then Return Me._tblUStVAntragTableAdapter.Connection End If If ((Not (Me._tblUStVBelegeingangTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUStVBelegeingangTableAdapter.Connection) Is Nothing)) Then Return Me._tblUStVBelegeingangTableAdapter.Connection End If If ((Not (Me._tblUStVErstattungTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUStVErstattungTableAdapter.Connection) Is Nothing)) Then Return Me._tblUStVErstattungTableAdapter.Connection End If If ((Not (Me._tblUStVFormulareTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUStVFormulareTableAdapter.Connection) Is Nothing)) Then Return Me._tblUStVFormulareTableAdapter.Connection End If If ((Not (Me._tblUStVKuLäFoTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUStVKuLäFoTableAdapter.Connection) Is Nothing)) Then Return Me._tblUStVKuLäFoTableAdapter.Connection End If If ((Not (Me._tblUStVLäFoTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUStVLäFoTableAdapter.Connection) Is Nothing)) Then Return Me._tblUStVLäFoTableAdapter.Connection End If If ((Not (Me._tblUStVLeistenderTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUStVLeistenderTableAdapter.Connection) Is Nothing)) Then Return Me._tblUStVLeistenderTableAdapter.Connection End If If ((Not (Me._tblUStVPositionenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUStVPositionenTableAdapter.Connection) Is Nothing)) Then Return Me._tblUStVPositionenTableAdapter.Connection End If If ((Not (Me._tblUStVTexteTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUStVTexteTableAdapter.Connection) Is Nothing)) Then Return Me._tblUStVTexteTableAdapter.Connection End If If ((Not (Me._tblUTAArchivTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUTAArchivTableAdapter.Connection) Is Nothing)) Then Return Me._tblUTAArchivTableAdapter.Connection End If If ((Not (Me._tblUTAFakturierwarenartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUTAFakturierwarenartenTableAdapter.Connection) Is Nothing)) Then Return Me._tblUTAFakturierwarenartenTableAdapter.Connection End If If ((Not (Me._tblUTAHeaderTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUTAHeaderTableAdapter.Connection) Is Nothing)) Then Return Me._tblUTAHeaderTableAdapter.Connection End If If ((Not (Me._tblUTAHeaderNewTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUTAHeaderNewTableAdapter.Connection) Is Nothing)) Then Return Me._tblUTAHeaderNewTableAdapter.Connection End If If ((Not (Me._tblUTAImportTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUTAImportTableAdapter.Connection) Is Nothing)) Then Return Me._tblUTAImportTableAdapter.Connection End If If ((Not (Me._tblUTAImportNewTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUTAImportNewTableAdapter.Connection) Is Nothing)) Then Return Me._tblUTAImportNewTableAdapter.Connection End If If ((Not (Me._tblUTALeistungenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUTALeistungenTableAdapter.Connection) Is Nothing)) Then Return Me._tblUTALeistungenTableAdapter.Connection End If If ((Not (Me._tblUTATrailerTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUTATrailerTableAdapter.Connection) Is Nothing)) Then Return Me._tblUTATrailerTableAdapter.Connection End If If ((Not (Me._tblUTATrailerNewTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblUTATrailerNewTableAdapter.Connection) Is Nothing)) Then Return Me._tblUTATrailerNewTableAdapter.Connection End If If ((Not (Me._tblVermarktungsnormenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblVermarktungsnormenTableAdapter.Connection) Is Nothing)) Then Return Me._tblVermarktungsnormenTableAdapter.Connection End If If ((Not (Me._tblVermarktungsnormenGebuehrenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblVermarktungsnormenGebuehrenTableAdapter.Connection) Is Nothing)) Then Return Me._tblVermarktungsnormenGebuehrenTableAdapter.Connection End If If ((Not (Me._tblVorauskassenTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblVorauskassenTableAdapter.Connection) Is Nothing)) Then Return Me._tblVorauskassenTableAdapter.Connection End If If ((Not (Me._tblWahrungtabelleNEUTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblWahrungtabelleNEUTableAdapter.Connection) Is Nothing)) Then Return Me._tblWahrungtabelleNEUTableAdapter.Connection End If If ((Not (Me._tblWarenbezeichnungBegriffeTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblWarenbezeichnungBegriffeTableAdapter.Connection) Is Nothing)) Then Return Me._tblWarenbezeichnungBegriffeTableAdapter.Connection End If If ((Not (Me._tblZabis_Atlas_NCTSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblZabis_Atlas_NCTSTableAdapter.Connection) Is Nothing)) Then Return Me._tblZabis_Atlas_NCTSTableAdapter.Connection End If If ((Not (Me._tblZahlungszieltexteTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblZahlungszieltexteTableAdapter.Connection) Is Nothing)) Then Return Me._tblZahlungszieltexteTableAdapter.Connection End If If ((Not (Me._tblZolaris_EZoll_NCTSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblZolaris_EZoll_NCTSTableAdapter.Connection) Is Nothing)) Then Return Me._tblZolaris_EZoll_NCTSTableAdapter.Connection End If If ((Not (Me._tblZOLL_WechselkurseTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblZOLL_WechselkurseTableAdapter.Connection) Is Nothing)) Then Return Me._tblZOLL_WechselkurseTableAdapter.Connection End If If ((Not (Me._tblZollArtikelTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblZollArtikelTableAdapter.Connection) Is Nothing)) Then Return Me._tblZollArtikelTableAdapter.Connection End If If ((Not (Me._tblZollUnterArtikelTableAdapter) Is Nothing) _ AndAlso (Not (Me._tblZollUnterArtikelTableAdapter.Connection) Is Nothing)) Then Return Me._tblZollUnterArtikelTableAdapter.Connection End If If ((Not (Me._temporaryUpsizedTable2TableAdapter) Is Nothing) _ AndAlso (Not (Me._temporaryUpsizedTable2TableAdapter.Connection) Is Nothing)) Then Return Me._temporaryUpsizedTable2TableAdapter.Connection End If If ((Not (Me._verkehrszweigeTableAdapter) Is Nothing) _ AndAlso (Not (Me._verkehrszweigeTableAdapter.Connection) Is Nothing)) Then Return Me._verkehrszweigeTableAdapter.Connection End If If ((Not (Me._vermerkeTableAdapter) Is Nothing) _ AndAlso (Not (Me._vermerkeTableAdapter.Connection) Is Nothing)) Then Return Me._vermerkeTableAdapter.Connection End If If ((Not (Me._vorkostenTableAdapter) Is Nothing) _ AndAlso (Not (Me._vorkostenTableAdapter.Connection) Is Nothing)) Then Return Me._vorkostenTableAdapter.Connection End If If ((Not (Me._währungstabelleTableAdapter) Is Nothing) _ AndAlso (Not (Me._währungstabelleTableAdapter.Connection) Is Nothing)) Then Return Me._währungstabelleTableAdapter.Connection End If If ((Not (Me._zahlungsartenTableAdapter) Is Nothing) _ AndAlso (Not (Me._zahlungsartenTableAdapter.Connection) Is Nothing)) Then Return Me._zahlungsartenTableAdapter.Connection End If If ((Not (Me._zbadzTableAdapter) Is Nothing) _ AndAlso (Not (Me._zbadzTableAdapter.Connection) Is Nothing)) Then Return Me._zbadzTableAdapter.Connection End If If ((Not (Me._zbantTableAdapter) Is Nothing) _ AndAlso (Not (Me._zbantTableAdapter.Connection) Is Nothing)) Then Return Me._zbantTableAdapter.Connection End If If ((Not (Me._zbapoTableAdapter) Is Nothing) _ AndAlso (Not (Me._zbapoTableAdapter.Connection) Is Nothing)) Then Return Me._zbapoTableAdapter.Connection End If If ((Not (Me._zbposTableAdapter) Is Nothing) _ AndAlso (Not (Me._zbposTableAdapter.Connection) Is Nothing)) Then Return Me._zbposTableAdapter.Connection End If If ((Not (Me._zkteingTableAdapter) Is Nothing) _ AndAlso (Not (Me._zkteingTableAdapter.Connection) Is Nothing)) Then Return Me._zkteingTableAdapter.Connection End If If ((Not (Me._zollsystemeTableAdapter) Is Nothing) _ AndAlso (Not (Me._zollsystemeTableAdapter.Connection) Is Nothing)) Then Return Me._zollsystemeTableAdapter.Connection End If If ((Not (Me._zulassungen_ZnVTableAdapter) Is Nothing) _ AndAlso (Not (Me._zulassungen_ZnVTableAdapter.Connection) Is Nothing)) Then Return Me._zulassungen_ZnVTableAdapter.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._abfertigungsartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._abfertigungskosten_der_KorrespondentenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._abfertigungsLaenderTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._abfertigungsLaenderAbfertigungsartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._abgabenartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._adressenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._aktivitätenlogTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._anlagenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._atlas_statusTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._aufschubdatenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._aufschubkontenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._belegartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._berechnungsartTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._berechnungsbogenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._berichteTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._cMRTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._devisenkurseTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._ePBesTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._ePBesPOSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._filialenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._geschäftsartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._korrespondentenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._kostenstellenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._kreditkartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._kundenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._kundenFilialenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._länder_der_Bundesrepublik_DeutschlandTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._leistungenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._leistungenBUKontenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._lieferbedingungenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._nebenkosten_der_KorrespondentenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._offene_PostenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._offene_Posten_DVOTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._offertenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._offertenpositionenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._offertenstammTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._personalTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._rechnungsausgangTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._rechnungsausgangAnhaengeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._rechnungsausgangPositionenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._rechnungsnummernTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._rechnungstexteTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._speditionsbuchTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._standardoffertenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._standardoffertenFirmaTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._steuertabelleTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_ASFINAG_FileInfoTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_BMD_LänderTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ParamterTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_ErrorsTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_IDS_Kategorien_KundenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_IDS_Kategorien_RechenwerteTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_IDS_KundenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_IDS_Kunden_ohne_RabattTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_IDS_LänderTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_IDS_ProdukteTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_IDS_RechenwerteTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_IDS_StationenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_Intrastat_AusfuhrTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_TelefonbuchTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_TelefonnummernTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_WÖLFLTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_ZM_tabelleTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblAbfertigungsartenFilialeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblAbfertigungsartOffertenstammTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblAbrechnung_NCTSBrgTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblAnmeldungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblAsfinagMautTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblATEZ_NCTSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblATEZ_NCTS_RoutenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblATEZ_NCTS_SessionsTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblBankspesenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblBerechnungsmethodeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblBerichtsdruckerTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblBesuchsberichteTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblBonitaetsauskunftTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblBuchungstextTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_AESTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_AES_WarenpositionTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_EZATableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_EZA_AdressenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_EZA_AufschubTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_EZA_UnterlagenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_EZA_WarenpositionTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOutTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOut004TableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_StammreferenzenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_StatusmeldungenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_ZollanmeldungenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDakosy_ZollanmeldungenArtenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDatenarchivTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDatenarchiv_CollectionTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDEBundeslaenderPLZTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDHF_AnhaengeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDieselArchivTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDigicust_SendungenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDigicust_SessionsTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblDigicust_SettingsTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblEABelegnummerTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblEABelegpositionTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblEmailBenachrichtigungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblEmailBenachrichtigungArtenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblEORIPruefungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblEZB_WaehrungskurseTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblEZT_ImportcodenummernTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblFahrerDatenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblFirmaTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblFiskal_DatenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblFiskalkundenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblFormulardatenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblFormulareVorlagenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblFormulareVorlagenValuesTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblFremdSpeditionenZuordnungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblFTP_LogTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblFTP_Log_Backup2TableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGebuehrenvermarktungsnormenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGelangensbestaetigungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGeschäftsjahrTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGeschäftsjahrBelegNrTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGeschäftsjahrJournalNrTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGestellungsgarantienTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGestellungsmitteilungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGestellungsmitteilung_PositionenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGOBOXBestellungenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGVMSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGVMS_CarriersTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGVMS_PortsTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGVMS_PosTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblGVMS_RoutesTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblHandlingssaetzeInternTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblHistorieTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblIDS_TransaktionenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKassenbuchTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKontoTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenAufschubkontenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenBesonderheitenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenBesonderheiten_KategorienTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenDatenblattTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenErweitertTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenKontaktTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenKontaktArtenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenumsatzTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenVermerkeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenVertraegeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenVertraegeArtenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenVollmachtenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblKundenVollmachtenArtTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblLogbuchTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMandantTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMautIT_BelegartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMautITArchivTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMDM_ParamterTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMSECustomersTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMSEImportTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMSEInvoicesTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMSELeistungenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMSESettlementsTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMSETransactionsTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMSETransactionsArchivTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblMSETransactionsArchivOLDTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblNCTS_TRTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblNCTS_TR_NachrichtenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblNCTS_TR_SicherheitsangabenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblNCTS_TR_WarenpositionTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblNCTSGestellungsadressenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblNTCSRoutenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOffertenArchivTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOffertenPositionenArchivTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOregonNCTS_DeclarationDataTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOregonNCTS_ReferenceTemplateTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblOriginalATRTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPartnersystem_ParamterTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPfadTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPLOSE_DetailsTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPLOSE_Inv_DataTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPLOSE_LieferantTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPLOSE_ProduktbeschreibungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPosNrTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPostversandTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPreislistenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPreislistenpositionenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPreistabellenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblPreistabellenpositionenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblQS_AbfertigungsartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblQS_AufträgeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblQS_AuftragspositionenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblQS_TeamsTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblQS_TeamsMATableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblRechnungsnotizenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblRefTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblRefBeziehungenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblRKSV_KassenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblRKSV_POSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblRMCImportTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblSMSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblSpeditionsbucharchivTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblSpeditionsbuchEndEmpfaengerTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblSpeditionsbuchUnterPosTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblSpeditionsbuchUnterPosArtenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblSteuernummernTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblSteuersätzeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblSteuertypTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTelotec_AbgabenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTelotec_AnmeldungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTelotec_PackstueckeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTelotec_ParamterTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTelotec_PositionsdatenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTelotec_PositionsdatenAbgabenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTelotec_PositionsdatenDokumenteTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTelotec_SicherheitTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTestTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTextkonserveTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTR_AvisoTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTR_AvisoAnheangeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTR_ShipmentTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTR_Shipment_AdressenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTR_Shipment_DocumentTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTR_Shipment_PositionTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTR_Shipment_Position_DocumentTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTranslateTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTranslateAutoTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTrdinHeaderTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTrdinInvoiceTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblTrdinProductTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUIDPruefungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUStVAntragTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUStVBelegeingangTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUStVErstattungTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUStVFormulareTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUStVKuLäFoTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUStVLäFoTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUStVLeistenderTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUStVPositionenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUStVTexteTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUTAArchivTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUTAFakturierwarenartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUTAHeaderTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUTAHeaderNewTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUTAImportTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUTAImportNewTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUTALeistungenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUTATrailerTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblUTATrailerNewTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblVermarktungsnormenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblVermarktungsnormenGebuehrenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblVorauskassenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblWahrungtabelleNEUTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblWarenbezeichnungBegriffeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblZabis_Atlas_NCTSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblZahlungszieltexteTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblZolaris_EZoll_NCTSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblZOLL_WechselkurseTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblZollArtikelTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tblZollUnterArtikelTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._temporaryUpsizedTable2TableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._verkehrszweigeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._vermerkeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._vorkostenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._währungstabelleTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._zahlungsartenTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._zbadzTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._zbantTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._zbapoTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._zbposTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._zkteingTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._zollsystemeTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._zulassungen_ZnVTableAdapter) 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 VERAGDataSet, 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._korrespondentenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Korrespondenten.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._korrespondentenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._filialenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Filialen.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._filialenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._steuertabelleTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Steuertabelle.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._steuertabelleTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._kostenstellenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Kostenstellen.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._kostenstellenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._berechnungsartTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Berechnungsart.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._berechnungsartTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._adressenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Adressen.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._adressenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._kundenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Kunden.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._kundenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblBerechnungsmethodeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblBerechnungsmethode.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._tblBerechnungsmethodeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblSteuertypTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblSteuertyp.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._tblSteuertypTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._leistungenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Leistungen.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._leistungenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Länderverzeichnis_für_die_Außenhandelsstatistik.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._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._offertenstammTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Offertenstamm.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._offertenstammTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_TelefonbuchTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_Telefonbuch.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._tbl_TelefonbuchTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblAnmeldungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblAnmeldung.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._tblAnmeldungTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_IDS_ProdukteTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Produkte.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._tbl_IDS_ProdukteTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblATEZ_NCTSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS.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._tblATEZ_NCTSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_IDS_LänderTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Länder.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._tbl_IDS_LänderTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._speditionsbuchTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Speditionsbuch.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._speditionsbuchTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._währungstabelleTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Währungstabelle.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._währungstabelleTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._rechnungsausgangTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Rechnungsausgang.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._rechnungsausgangTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUTAHeaderNewTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUTAHeaderNew.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._tblUTAHeaderNewTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUTAHeaderTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUTAHeader.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._tblUTAHeaderTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUTAFakturierwarenartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUTAFakturierwarenarten.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._tblUTAFakturierwarenartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUStVFormulareTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUStVFormulare.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._tblUStVFormulareTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblEABelegnummerTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblEABelegnummer.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._tblEABelegnummerTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUStVAntragTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUStVAntrag.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._tblUStVAntragTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTrdinInvoiceTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTrdinInvoice.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._tblTrdinInvoiceTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblSteuersätzeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblSteuersätze.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._tblSteuersätzeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblRKSV_KassenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblRKSV_Kassen.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._tblRKSV_KassenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblQS_AufträgeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblQS_Aufträge.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._tblQS_AufträgeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblQS_AbfertigungsartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblQS_Abfertigungsarten.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._tblQS_AbfertigungsartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPreistabellenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPreistabellen.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._tblPreistabellenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPreislistenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPreislisten.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._tblPreislistenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._zbantTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.zbant.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._zbantTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._abfertigungsartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Abfertigungsarten.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._abfertigungsartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOffertenArchivTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOffertenArchiv.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._tblOffertenArchivTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._offertenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Offerten.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._offertenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTR_Shipment_PositionTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Position.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._tblTR_Shipment_PositionTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTR_Shipment_DocumentTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Document.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._tblTR_Shipment_DocumentTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTR_Shipment_AdressenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Adressen.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._tblTR_Shipment_AdressenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTR_ShipmentTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment.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._tblTR_ShipmentTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTR_AvisoAnheangeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTR_AvisoAnheange.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._tblTR_AvisoAnheangeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTR_AvisoTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTR_Aviso.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._tblTR_AvisoTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTextkonserveTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTextkonserve.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._tblTextkonserveTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTR_Shipment_Position_DocumentTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Position_Document.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._tblTR_Shipment_Position_DocumentTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTestTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTest.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._tblTestTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTelotec_PositionsdatenDokumenteTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_PositionsdatenDokumente.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._tblTelotec_PositionsdatenDokumenteTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTelotec_PositionsdatenAbgabenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_PositionsdatenAbgaben.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._tblTelotec_PositionsdatenAbgabenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTelotec_PositionsdatenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Positionsdaten.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._tblTelotec_PositionsdatenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTelotec_ParamterTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Paramter.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._tblTelotec_ParamterTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTelotec_PackstueckeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Packstuecke.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._tblTelotec_PackstueckeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTelotec_AnmeldungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Anmeldung.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._tblTelotec_AnmeldungTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTelotec_AbgabenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Abgaben.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._tblTelotec_AbgabenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTelotec_SicherheitTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Sicherheit.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._tblTelotec_SicherheitTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTranslateTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTranslate.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._tblTranslateTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTranslateAutoTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTranslateAuto.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._tblTranslateAutoTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTrdinHeaderTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTrdinHeader.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._tblTrdinHeaderTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUTAArchivTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUTAArchiv.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._tblUTAArchivTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUStVTexteTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUStVTexte.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._tblUStVTexteTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUStVPositionenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUStVPositionen.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._tblUStVPositionenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUStVLeistenderTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUStVLeistender.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._tblUStVLeistenderTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUStVLäFoTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUStVLäFo.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._tblUStVLäFoTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUStVKuLäFoTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUStVKuLäFo.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._tblUStVKuLäFoTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUStVErstattungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUStVErstattung.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._tblUStVErstattungTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUStVBelegeingangTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUStVBelegeingang.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._tblUStVBelegeingangTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUIDPruefungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUIDPruefung.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._tblUIDPruefungTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblTrdinProductTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblTrdinProduct.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._tblTrdinProductTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUTAImportTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUTAImport.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._tblUTAImportTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblSpeditionsbuchUnterPosArtenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbuchUnterPosArten.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._tblSpeditionsbuchUnterPosArtenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPLOSE_ProduktbeschreibungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Produktbeschreibung.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._tblPLOSE_ProduktbeschreibungTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPLOSE_LieferantTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Lieferant.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._tblPLOSE_LieferantTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPLOSE_Inv_DataTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Inv_Data.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._tblPLOSE_Inv_DataTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPLOSE_DetailsTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Details.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._tblPLOSE_DetailsTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPfadTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPfad.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._tblPfadTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPartnersystem_ParamterTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPartnersystem_Paramter.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._tblPartnersystem_ParamterTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOriginalATRTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOriginalATR.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._tblOriginalATRTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPosNrTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPosNr.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._tblPosNrTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOregonNCTS_ReferenceTemplateTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_ReferenceTemplate.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._tblOregonNCTS_ReferenceTemplateTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_ProducedDocumentsAttribute.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._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_PartiesAttribute.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._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_PacksAttribute.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._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_GoodsAttribute.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._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_DocumentsAttribute.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._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_AdditionalCodesAttribute.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._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOregonNCTS_DeclarationDataTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_DeclarationData.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._tblOregonNCTS_DeclarationDataTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_TraderAdditionsAttribute.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._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPostversandTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPostversand.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._tblPostversandTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPreislistenpositionenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPreislistenpositionen.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._tblPreislistenpositionenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblSpeditionsbuchUnterPosTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbuchUnterPos.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._tblSpeditionsbuchUnterPosTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblSpeditionsbuchEndEmpfaengerTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbuchEndEmpfaenger.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._tblSpeditionsbuchEndEmpfaengerTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblSpeditionsbucharchivTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbucharchiv.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._tblSpeditionsbucharchivTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblSMSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblSMS.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._tblSMSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblRMCImportTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblRMCImport.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._tblRMCImportTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblRKSV_POSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblRKSV_POS.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._tblRKSV_POSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblRefBeziehungenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblRefBeziehungen.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._tblRefBeziehungenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblRefTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblRef.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._tblRefTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblRechnungsnotizenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblRechnungsnotizen.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._tblRechnungsnotizenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblQS_TeamsMATableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblQS_TeamsMA.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._tblQS_TeamsMATableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblQS_TeamsTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblQS_Teams.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._tblQS_TeamsTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblQS_AuftragspositionenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblQS_Auftragspositionen.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._tblQS_AuftragspositionenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblPreistabellenpositionenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblPreistabellenpositionen.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._tblPreistabellenpositionenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblSteuernummernTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblSteuernummern.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._tblSteuernummernTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUTAImportNewTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUTAImportNew.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._tblUTAImportNewTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUTATrailerTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUTATrailer.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._tblUTATrailerTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUTALeistungenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUTALeistungen.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._tblUTALeistungenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblOffertenPositionenArchivTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblOffertenPositionenArchiv.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._tblOffertenPositionenArchivTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._vermerkeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Vermerke.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._vermerkeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._verkehrszweigeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Verkehrszweige.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._verkehrszweigeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._temporaryUpsizedTable2TableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TemporaryUpsizedTable2.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._temporaryUpsizedTable2TableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblZollUnterArtikelTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblZollUnterArtikel.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._tblZollUnterArtikelTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblZollArtikelTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblZollArtikel.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._tblZollArtikelTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblZOLL_WechselkurseTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblZOLL_Wechselkurse.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._tblZOLL_WechselkurseTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblZolaris_EZoll_NCTSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblZolaris_EZoll_NCTS.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._tblZolaris_EZoll_NCTSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblZabis_Atlas_NCTSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblZabis_Atlas_NCTS.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._tblZabis_Atlas_NCTSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblWarenbezeichnungBegriffeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblWarenbezeichnungBegriffe.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._tblWarenbezeichnungBegriffeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblWahrungtabelleNEUTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblWahrungtabelleNEU.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._tblWahrungtabelleNEUTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblVorauskassenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblVorauskassen.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._tblVorauskassenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblVermarktungsnormenGebuehrenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblVermarktungsnormenGebuehren.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._tblVermarktungsnormenGebuehrenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblVermarktungsnormenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblVermarktungsnormen.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._tblVermarktungsnormenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblUTATrailerNewTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblUTATrailerNew.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._tblUTATrailerNewTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblZahlungszieltexteTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblZahlungszieltexte.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._tblZahlungszieltexteTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._zahlungsartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Zahlungsarten.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._zahlungsartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._zbadzTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.zbadz.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._zbadzTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._zulassungen_ZnVTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Zulassungen_ZnV.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._zulassungen_ZnVTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._zollsystemeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Zollsysteme.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._zollsystemeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._zkteingTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Zkteing.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._zkteingTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._zbposTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.zbpos.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._zbposTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._zbapoTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.zbapo.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._zbapoTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._vorkostenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Vorkosten.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._vorkostenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMSETransactionsTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMSETransactions.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._tblMSETransactionsTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblNCTSGestellungsadressenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblNCTSGestellungsadressen.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._tblNCTSGestellungsadressenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblAbrechnung_NCTSBrgTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblAbrechnung_NCTSBrg.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._tblAbrechnung_NCTSBrgTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblAbfertigungsartOffertenstammTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblAbfertigungsartOffertenstamm.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._tblAbfertigungsartOffertenstammTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblAbfertigungsartenFilialeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblAbfertigungsartenFiliale.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._tblAbfertigungsartenFilialeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_ZM_tabelleTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_ZM_tabelle.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._tbl_ZM_tabelleTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_WÖLFLTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_WÖLFL.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._tbl_WÖLFLTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_TelefonnummernTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_Telefonnummern.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._tbl_TelefonnummernTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_Intrastat_AusfuhrTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_Intrastat_Ausfuhr.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._tbl_Intrastat_AusfuhrTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_IDS_StationenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Stationen.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._tbl_IDS_StationenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblAsfinagMautTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblAsfinagMaut.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._tblAsfinagMautTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_IDS_RechenwerteTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Rechenwerte.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._tbl_IDS_RechenwerteTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_IDS_KundenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kunden.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._tbl_IDS_KundenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_IDS_Kategorien_RechenwerteTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kategorien_Rechenwerte.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._tbl_IDS_Kategorien_RechenwerteTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_IDS_Kategorien_KundenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kategorien_Kunden.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._tbl_IDS_Kategorien_KundenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_ErrorsTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_Errors.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._tbl_ErrorsTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0700_Masseinheiten.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._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0610_ZustaendigeZSTAES.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._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0400_Waehrungsliste.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._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0200_Unterlagearten.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._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_IDS_Kunden_ohne_RabattTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kunden_ohne_Rabatt.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._tbl_IDS_Kunden_ohne_RabattTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0219_TypeTransportMeans.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._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblATEZ_NCTS_RoutenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS_Routen.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._tblATEZ_NCTS_RoutenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS_TransitCustomsOffice.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._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_WarenpositionUnterlagen.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._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_WarenpositionSonderfalldaten.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._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Warenposition.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._tblDakosy_EZA_WarenpositionTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_EZA_UnterlagenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Unterlagen.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._tblDakosy_EZA_UnterlagenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_SumABeendigungsAnteil.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._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_BEAnteilZLAVUV.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._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_EZA_AufschubTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Aufschub.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._tblDakosy_EZA_AufschubTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_EZA_AdressenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Adressen.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._tblDakosy_EZA_AdressenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblATEZ_NCTS_SessionsTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS_Sessions.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._tblATEZ_NCTS_SessionsTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_EZATableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA.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._tblDakosy_EZATableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES_WarenpositionPackstuecke.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._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_AES_WarenpositionTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES_Warenposition.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._tblDakosy_AES_WarenpositionTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_AESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES.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._tblDakosy_AESTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblBuchungstextTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblBuchungstext.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._tblBuchungstextTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblBonitaetsauskunftTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblBonitaetsauskunft.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._tblBonitaetsauskunftTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblBesuchsberichteTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblBesuchsberichte.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._tblBesuchsberichteTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblBerichtsdruckerTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblBerichtsdrucker.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._tblBerichtsdruckerTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblBankspesenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblBankspesen.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._tblBankspesenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES_WarenpositionUnterlagen.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._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0141_Zollstellen.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._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.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._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0014_VorpapierArten.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._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._kreditkartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Kreditkarten.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._kreditkartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._geschäftsartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Geschäftsarten.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._geschäftsartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._ePBesPOSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.EPBesPOS.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._ePBesPOSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._ePBesTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.EPBes.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._ePBesTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._devisenkurseTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Devisenkurse.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._devisenkurseTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._cMRTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.CMR.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._cMRTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._berichteTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Berichte.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._berichteTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._berechnungsbogenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Berechnungsbogen.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._berechnungsbogenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._kundenFilialenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.KundenFilialen.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._kundenFilialenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._belegartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Belegarten.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._belegartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._aufschubdatenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Aufschubdaten.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._aufschubdatenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._atlas_statusTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.atlas_status.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._atlas_statusTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._anlagenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Anlagen.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._anlagenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._aktivitätenlogTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Aktivitätenlog.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._aktivitätenlogTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._abgabenartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Abgabenarten.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._abgabenartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._abfertigungsLaenderAbfertigungsartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.AbfertigungsLaenderAbfertigungsarten.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._abfertigungsLaenderAbfertigungsartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._abfertigungsLaenderTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.AbfertigungsLaender.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._abfertigungsLaenderTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._abfertigungskosten_der_KorrespondentenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Abfertigungskosten_der_Korrespondenten.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._abfertigungskosten_der_KorrespondentenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._aufschubkontenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Aufschubkonten.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._aufschubkontenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._länder_der_Bundesrepublik_DeutschlandTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Länder_der_Bundesrepublik_Deutschland.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._länder_der_Bundesrepublik_DeutschlandTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._leistungenBUKontenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.LeistungenBUKonten.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._leistungenBUKontenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._lieferbedingungenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Lieferbedingungen.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._lieferbedingungenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0013_UnterlagenArten.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._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0010_LaenderAES.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._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0008_LaenderFull.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._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_A0127_BeteiligtenKonstellation.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._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.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._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_DY_ParamterTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_Paramter.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._tbl_DY_ParamterTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_BMD_LänderTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_BMD_Länder.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._tbl_BMD_LänderTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_ASFINAG_FileInfoTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_ASFINAG_FileInfo.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._tbl_ASFINAG_FileInfoTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._standardoffertenFirmaTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.StandardoffertenFirma.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._standardoffertenFirmaTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._standardoffertenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Standardofferten.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._standardoffertenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._rechnungstexteTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Rechnungstexte.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._rechnungstexteTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._rechnungsnummernTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Rechnungsnummern.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._rechnungsnummernTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._rechnungsausgangPositionenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.RechnungsausgangPositionen.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._rechnungsausgangPositionenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._rechnungsausgangAnhaengeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.RechnungsausgangAnhaenge.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._rechnungsausgangAnhaengeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._personalTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Personal.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._personalTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._offertenpositionenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Offertenpositionen.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._offertenpositionenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._offene_Posten_DVOTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Offene_Posten_DVO.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._offene_Posten_DVOTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._offene_PostenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Offene_Posten.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._offene_PostenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._nebenkosten_der_KorrespondentenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.Nebenkosten_der_Korrespondenten.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._nebenkosten_der_KorrespondentenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_WarenpositionVerbrauchssteuer.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._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOutTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut.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._tblDakosy_NCTSOutTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_Sicherheitsangaben.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._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_Warenposition.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._tblDakosy_NCTSOut_WarenpositionTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenumsatzTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenumsatz.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._tblKundenumsatzTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenKontaktArtenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenKontaktArten.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._tblKundenKontaktArtenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenKontaktTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenKontakt.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._tblKundenKontaktTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenErweitertTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenErweitert.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._tblKundenErweitertTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenDatenblattTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenDatenblatt.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._tblKundenDatenblattTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenBesonderheiten_KategorienTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenBesonderheiten_Kategorien.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._tblKundenBesonderheiten_KategorienTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenBesonderheitenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenBesonderheiten.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._tblKundenBesonderheitenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenAufschubkontenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenAufschubkonten.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._tblKundenAufschubkontenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenVermerkeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenVermerke.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._tblKundenVermerkeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKontoTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKonto.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._tblKontoTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblIDS_TransaktionenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblIDS_Transaktionen.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._tblIDS_TransaktionenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblHistorieTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblHistorie.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._tblHistorieTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblHandlingssaetzeInternTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblHandlingssaetzeIntern.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._tblHandlingssaetzeInternTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGVMS_RoutesTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Routes.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._tblGVMS_RoutesTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGVMS_PosTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Pos.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._tblGVMS_PosTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGVMS_PortsTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Ports.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._tblGVMS_PortsTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGVMS_CarriersTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Carriers.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._tblGVMS_CarriersTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGVMSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGVMS.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._tblGVMSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKassenbuchTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKassenbuch.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._tblKassenbuchTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenVertraegeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenVertraege.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._tblKundenVertraegeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenVertraegeArtenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenVertraegeArten.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._tblKundenVertraegeArtenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenVollmachtenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenVollmachten.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._tblKundenVollmachtenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_WarenpositionPackstuecke.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._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblNCTS_TR_WarenpositionTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_Warenposition.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._tblNCTS_TR_WarenpositionTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblNCTS_TR_SicherheitsangabenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_Sicherheitsangaben.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._tblNCTS_TR_SicherheitsangabenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblNCTS_TR_NachrichtenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_Nachrichten.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._tblNCTS_TR_NachrichtenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblNCTS_TRTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR.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._tblNCTS_TRTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMSETransactionsArchivOLDTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMSETransactionsArchivOLD.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._tblMSETransactionsArchivOLDTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMSETransactionsArchivTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMSETransactionsArchiv.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._tblMSETransactionsArchivTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMSESettlementsTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMSESettlements.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._tblMSESettlementsTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMSELeistungenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMSELeistungen.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._tblMSELeistungenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMSEInvoicesTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMSEInvoices.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._tblMSEInvoicesTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMSEImportTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMSEImport.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._tblMSEImportTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMSECustomersTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMSECustomers.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._tblMSECustomersTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMDM_ParamterTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMDM_Paramter.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._tblMDM_ParamterTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMautITArchivTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMautITArchiv.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._tblMautITArchivTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMautIT_BelegartenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMautIT_Belegarten.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._tblMautIT_BelegartenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblMandantTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblMandant.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._tblMandantTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblLogbuchTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblLogbuch.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._tblLogbuchTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblKundenVollmachtenArtTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblKundenVollmachtenArt.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._tblKundenVollmachtenArtTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGOBOXBestellungenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGOBOXBestellungen.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._tblGOBOXBestellungenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblNTCSRoutenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblNTCSRouten.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._tblNTCSRoutenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGestellungsmitteilung_PositionenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGestellungsmitteilung_Positionen.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._tblGestellungsmitteilung_PositionenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGestellungsgarantienTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGestellungsgarantien.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._tblGestellungsgarantienTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDigicust_SendungenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDigicust_Sendungen.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._tblDigicust_SendungenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDieselArchivTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDieselArchiv.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._tblDieselArchivTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDHF_AnhaengeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDHF_Anhaenge.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._tblDHF_AnhaengeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDEBundeslaenderPLZTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDEBundeslaenderPLZ.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._tblDEBundeslaenderPLZTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDatenarchiv_CollectionTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDatenarchiv_Collection.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._tblDatenarchiv_CollectionTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDatenarchivTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDatenarchiv.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._tblDatenarchivTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_ZollanmeldungenArtenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_ZollanmeldungenArten.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._tblDakosy_ZollanmeldungenArtenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_ZollanmeldungenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_Zollanmeldungen.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._tblDakosy_ZollanmeldungenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDigicust_SessionsTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDigicust_Sessions.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._tblDigicust_SessionsTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_StatusmeldungenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_Statusmeldungen.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._tblDakosy_StatusmeldungenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_TransportEquipment.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._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.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._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.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._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_HouseConsignment.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._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_Guarantee.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._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004TableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004.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._tblDakosy_NCTSOut004TableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.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._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_WarenpositionPackstuecke.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._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDakosy_StammreferenzenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_Stammreferenzen.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._tblDakosy_StammreferenzenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblDigicust_SettingsTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblDigicust_Settings.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._tblDigicust_SettingsTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblEABelegpositionTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblEABelegposition.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._tblEABelegpositionTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblEmailBenachrichtigungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblEmailBenachrichtigung.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._tblEmailBenachrichtigungTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGeschäftsjahrJournalNrTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGeschäftsjahrJournalNr.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._tblGeschäftsjahrJournalNrTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGeschäftsjahrBelegNrTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGeschäftsjahrBelegNr.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._tblGeschäftsjahrBelegNrTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGeschäftsjahrTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGeschäftsjahr.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._tblGeschäftsjahrTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGelangensbestaetigungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGelangensbestaetigung.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._tblGelangensbestaetigungTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGebuehrenvermarktungsnormenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGebuehrenvermarktungsnormen.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._tblGebuehrenvermarktungsnormenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblFTP_Log_Backup2TableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblFTP_Log_Backup2.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._tblFTP_Log_Backup2TableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblFTP_LogTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblFTP_Log.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._tblFTP_LogTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblFremdSpeditionenZuordnungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblFremdSpeditionenZuordnung.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._tblFremdSpeditionenZuordnungTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblFormulareVorlagenValuesTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblFormulareVorlagenValues.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._tblFormulareVorlagenValuesTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblFormulareVorlagenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblFormulareVorlagen.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._tblFormulareVorlagenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblFormulardatenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblFormulardaten.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._tblFormulardatenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblFiskalkundenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblFiskalkunden.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._tblFiskalkundenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblFiskal_DatenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblFiskal_Daten.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._tblFiskal_DatenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblFirmaTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblFirma.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._tblFirmaTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblFahrerDatenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblFahrerDaten.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._tblFahrerDatenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblEZT_ImportcodenummernTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblEZT_Importcodenummern.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._tblEZT_ImportcodenummernTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblEZB_WaehrungskurseTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblEZB_Waehrungskurse.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._tblEZB_WaehrungskurseTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblEORIPruefungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblEORIPruefung.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._tblEORIPruefungTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblEmailBenachrichtigungArtenTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblEmailBenachrichtigungArten.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._tblEmailBenachrichtigungArtenTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tblGestellungsmitteilungTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tblGestellungsmitteilung.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._tblGestellungsmitteilungTableAdapter.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 VERAGDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._korrespondentenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Korrespondenten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._korrespondentenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._filialenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Filialen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._filialenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._steuertabelleTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Steuertabelle.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._steuertabelleTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._kostenstellenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Kostenstellen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._kostenstellenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._berechnungsartTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Berechnungsart.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._berechnungsartTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._adressenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Adressen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._adressenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._kundenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Kunden.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._kundenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblBerechnungsmethodeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblBerechnungsmethode.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblBerechnungsmethodeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblSteuertypTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblSteuertyp.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblSteuertypTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._leistungenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Leistungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._leistungenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Länderverzeichnis_für_die_Außenhandelsstatistik.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._offertenstammTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Offertenstamm.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._offertenstammTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_TelefonbuchTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_Telefonbuch.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_TelefonbuchTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblAnmeldungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblAnmeldung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblAnmeldungTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_IDS_ProdukteTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Produkte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_IDS_ProdukteTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblATEZ_NCTSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblATEZ_NCTSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_IDS_LänderTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Länder.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_IDS_LänderTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._speditionsbuchTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Speditionsbuch.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._speditionsbuchTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._währungstabelleTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Währungstabelle.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._währungstabelleTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._rechnungsausgangTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Rechnungsausgang.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._rechnungsausgangTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUTAHeaderNewTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUTAHeaderNew.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUTAHeaderNewTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUTAHeaderTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUTAHeader.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUTAHeaderTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUTAFakturierwarenartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUTAFakturierwarenarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUTAFakturierwarenartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUStVFormulareTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUStVFormulare.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUStVFormulareTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblEABelegnummerTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblEABelegnummer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblEABelegnummerTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUStVAntragTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUStVAntrag.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUStVAntragTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTrdinInvoiceTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTrdinInvoice.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTrdinInvoiceTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblSteuersätzeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblSteuersätze.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblSteuersätzeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblRKSV_KassenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblRKSV_Kassen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblRKSV_KassenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblQS_AufträgeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblQS_Aufträge.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblQS_AufträgeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblQS_AbfertigungsartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblQS_Abfertigungsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblQS_AbfertigungsartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPreistabellenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPreistabellen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPreistabellenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPreislistenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPreislisten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPreislistenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._zbantTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.zbant.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._zbantTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._abfertigungsartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Abfertigungsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._abfertigungsartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOffertenArchivTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOffertenArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOffertenArchivTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._offertenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Offerten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._offertenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTR_Shipment_PositionTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Position.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTR_Shipment_PositionTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTR_Shipment_DocumentTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Document.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTR_Shipment_DocumentTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTR_Shipment_AdressenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Adressen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTR_Shipment_AdressenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTR_ShipmentTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTR_ShipmentTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTR_AvisoAnheangeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTR_AvisoAnheange.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTR_AvisoAnheangeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTR_AvisoTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTR_Aviso.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTR_AvisoTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTextkonserveTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTextkonserve.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTextkonserveTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTR_Shipment_Position_DocumentTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Position_Document.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTR_Shipment_Position_DocumentTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTestTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTest.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTestTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTelotec_PositionsdatenDokumenteTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_PositionsdatenDokumente.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTelotec_PositionsdatenAbgabenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_PositionsdatenAbgaben.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTelotec_PositionsdatenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Positionsdaten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTelotec_PositionsdatenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTelotec_ParamterTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Paramter.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTelotec_ParamterTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTelotec_PackstueckeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Packstuecke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTelotec_PackstueckeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTelotec_AnmeldungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Anmeldung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTelotec_AnmeldungTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTelotec_AbgabenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Abgaben.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTelotec_AbgabenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTelotec_SicherheitTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Sicherheit.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTelotec_SicherheitTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTranslateTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTranslate.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTranslateTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTranslateAutoTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTranslateAuto.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTranslateAutoTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTrdinHeaderTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTrdinHeader.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTrdinHeaderTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUTAArchivTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUTAArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUTAArchivTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUStVTexteTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUStVTexte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUStVTexteTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUStVPositionenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUStVPositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUStVPositionenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUStVLeistenderTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUStVLeistender.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUStVLeistenderTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUStVLäFoTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUStVLäFo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUStVLäFoTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUStVKuLäFoTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUStVKuLäFo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUStVKuLäFoTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUStVErstattungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUStVErstattung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUStVErstattungTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUStVBelegeingangTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUStVBelegeingang.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUStVBelegeingangTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUIDPruefungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUIDPruefung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUIDPruefungTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblTrdinProductTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblTrdinProduct.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblTrdinProductTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUTAImportTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUTAImport.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUTAImportTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblSpeditionsbuchUnterPosArtenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbuchUnterPosArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPLOSE_ProduktbeschreibungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Produktbeschreibung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPLOSE_ProduktbeschreibungTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPLOSE_LieferantTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Lieferant.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPLOSE_LieferantTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPLOSE_Inv_DataTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Inv_Data.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPLOSE_Inv_DataTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPLOSE_DetailsTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPLOSE_DetailsTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPfadTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPfad.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPfadTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPartnersystem_ParamterTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPartnersystem_Paramter.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPartnersystem_ParamterTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOriginalATRTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOriginalATR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOriginalATRTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPosNrTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPosNr.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPosNrTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOregonNCTS_ReferenceTemplateTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_ReferenceTemplate.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_ProducedDocumentsAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_PartiesAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_PacksAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_GoodsAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_DocumentsAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_AdditionalCodesAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOregonNCTS_DeclarationDataTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_DeclarationData.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOregonNCTS_DeclarationDataTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_TraderAdditionsAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPostversandTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPostversand.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPostversandTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPreislistenpositionenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPreislistenpositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPreislistenpositionenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblSpeditionsbuchUnterPosTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbuchUnterPos.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblSpeditionsbuchUnterPosTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblSpeditionsbuchEndEmpfaengerTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbuchEndEmpfaenger.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblSpeditionsbucharchivTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbucharchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblSpeditionsbucharchivTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblSMSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblSMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblSMSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblRMCImportTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblRMCImport.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblRMCImportTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblRKSV_POSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblRKSV_POS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblRKSV_POSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblRefBeziehungenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblRefBeziehungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblRefBeziehungenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblRefTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblRef.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblRefTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblRechnungsnotizenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblRechnungsnotizen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblRechnungsnotizenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblQS_TeamsMATableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblQS_TeamsMA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblQS_TeamsMATableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblQS_TeamsTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblQS_Teams.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblQS_TeamsTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblQS_AuftragspositionenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblQS_Auftragspositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblQS_AuftragspositionenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblPreistabellenpositionenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblPreistabellenpositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblPreistabellenpositionenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblSteuernummernTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblSteuernummern.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblSteuernummernTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUTAImportNewTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUTAImportNew.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUTAImportNewTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUTATrailerTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUTATrailer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUTATrailerTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUTALeistungenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUTALeistungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUTALeistungenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblOffertenPositionenArchivTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblOffertenPositionenArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblOffertenPositionenArchivTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._vermerkeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Vermerke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._vermerkeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._verkehrszweigeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Verkehrszweige.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._verkehrszweigeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._temporaryUpsizedTable2TableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TemporaryUpsizedTable2.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._temporaryUpsizedTable2TableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblZollUnterArtikelTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblZollUnterArtikel.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblZollUnterArtikelTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblZollArtikelTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblZollArtikel.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblZollArtikelTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblZOLL_WechselkurseTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblZOLL_Wechselkurse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblZOLL_WechselkurseTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblZolaris_EZoll_NCTSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblZolaris_EZoll_NCTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblZolaris_EZoll_NCTSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblZabis_Atlas_NCTSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblZabis_Atlas_NCTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblZabis_Atlas_NCTSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblWarenbezeichnungBegriffeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblWarenbezeichnungBegriffe.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblWarenbezeichnungBegriffeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblWahrungtabelleNEUTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblWahrungtabelleNEU.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblWahrungtabelleNEUTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblVorauskassenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblVorauskassen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblVorauskassenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblVermarktungsnormenGebuehrenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblVermarktungsnormenGebuehren.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblVermarktungsnormenGebuehrenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblVermarktungsnormenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblVermarktungsnormen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblVermarktungsnormenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblUTATrailerNewTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblUTATrailerNew.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblUTATrailerNewTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblZahlungszieltexteTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblZahlungszieltexte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblZahlungszieltexteTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._zahlungsartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Zahlungsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._zahlungsartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._zbadzTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.zbadz.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._zbadzTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._zulassungen_ZnVTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Zulassungen_ZnV.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._zulassungen_ZnVTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._zollsystemeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Zollsysteme.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._zollsystemeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._zkteingTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Zkteing.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._zkteingTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._zbposTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.zbpos.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._zbposTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._zbapoTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.zbapo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._zbapoTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._vorkostenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Vorkosten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._vorkostenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMSETransactionsTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMSETransactions.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMSETransactionsTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblNCTSGestellungsadressenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblNCTSGestellungsadressen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblNCTSGestellungsadressenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblAbrechnung_NCTSBrgTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblAbrechnung_NCTSBrg.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblAbrechnung_NCTSBrgTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblAbfertigungsartOffertenstammTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblAbfertigungsartOffertenstamm.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblAbfertigungsartOffertenstammTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblAbfertigungsartenFilialeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblAbfertigungsartenFiliale.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblAbfertigungsartenFilialeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_ZM_tabelleTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_ZM_tabelle.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_ZM_tabelleTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_WÖLFLTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_WÖLFL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_WÖLFLTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_TelefonnummernTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_Telefonnummern.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_TelefonnummernTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_Intrastat_AusfuhrTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_Intrastat_Ausfuhr.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_Intrastat_AusfuhrTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_IDS_StationenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Stationen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_IDS_StationenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblAsfinagMautTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblAsfinagMaut.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblAsfinagMautTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_IDS_RechenwerteTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Rechenwerte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_IDS_RechenwerteTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_IDS_KundenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kunden.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_IDS_KundenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_IDS_Kategorien_RechenwerteTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kategorien_Rechenwerte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_IDS_Kategorien_KundenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kategorien_Kunden.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_IDS_Kategorien_KundenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_ErrorsTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_Errors.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_ErrorsTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0700_Masseinheiten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0610_ZustaendigeZSTAES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0400_Waehrungsliste.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0200_Unterlagearten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_IDS_Kunden_ohne_RabattTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kunden_ohne_Rabatt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0219_TypeTransportMeans.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblATEZ_NCTS_RoutenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS_Routen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblATEZ_NCTS_RoutenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS_TransitCustomsOffice.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_WarenpositionUnterlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_WarenpositionSonderfalldaten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Warenposition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_EZA_WarenpositionTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_EZA_UnterlagenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Unterlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_EZA_UnterlagenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_SumABeendigungsAnteil.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_BEAnteilZLAVUV.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_EZA_AufschubTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Aufschub.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_EZA_AufschubTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_EZA_AdressenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Adressen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_EZA_AdressenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblATEZ_NCTS_SessionsTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS_Sessions.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblATEZ_NCTS_SessionsTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_EZATableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_EZATableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES_WarenpositionPackstuecke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_AES_WarenpositionTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES_Warenposition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_AES_WarenpositionTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_AESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_AESTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblBuchungstextTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblBuchungstext.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblBuchungstextTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblBonitaetsauskunftTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblBonitaetsauskunft.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblBonitaetsauskunftTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblBesuchsberichteTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblBesuchsberichte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblBesuchsberichteTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblBerichtsdruckerTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblBerichtsdrucker.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblBerichtsdruckerTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblBankspesenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblBankspesen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblBankspesenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES_WarenpositionUnterlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0141_Zollstellen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0014_VorpapierArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._kreditkartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Kreditkarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._kreditkartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._geschäftsartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Geschäftsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._geschäftsartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._ePBesPOSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.EPBesPOS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._ePBesPOSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._ePBesTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.EPBes.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._ePBesTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._devisenkurseTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Devisenkurse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._devisenkurseTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._cMRTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.CMR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._cMRTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._berichteTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Berichte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._berichteTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._berechnungsbogenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Berechnungsbogen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._berechnungsbogenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._kundenFilialenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.KundenFilialen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._kundenFilialenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._belegartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Belegarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._belegartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._aufschubdatenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Aufschubdaten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._aufschubdatenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._atlas_statusTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.atlas_status.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._atlas_statusTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._anlagenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Anlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._anlagenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._aktivitätenlogTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Aktivitätenlog.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._aktivitätenlogTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._abgabenartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Abgabenarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._abgabenartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._abfertigungsLaenderAbfertigungsartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.AbfertigungsLaenderAbfertigungsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._abfertigungsLaenderTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.AbfertigungsLaender.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._abfertigungsLaenderTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._abfertigungskosten_der_KorrespondentenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Abfertigungskosten_der_Korrespondenten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._abfertigungskosten_der_KorrespondentenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._aufschubkontenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Aufschubkonten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._aufschubkontenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._länder_der_Bundesrepublik_DeutschlandTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Länder_der_Bundesrepublik_Deutschland.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._leistungenBUKontenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.LeistungenBUKonten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._leistungenBUKontenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._lieferbedingungenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Lieferbedingungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._lieferbedingungenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0013_UnterlagenArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0010_LaenderAES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0008_LaenderFull.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_A0127_BeteiligtenKonstellation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_DY_ParamterTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_Paramter.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_DY_ParamterTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_BMD_LänderTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_BMD_Länder.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_BMD_LänderTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_ASFINAG_FileInfoTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_ASFINAG_FileInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_ASFINAG_FileInfoTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._standardoffertenFirmaTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.StandardoffertenFirma.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._standardoffertenFirmaTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._standardoffertenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Standardofferten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._standardoffertenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._rechnungstexteTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Rechnungstexte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._rechnungstexteTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._rechnungsnummernTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Rechnungsnummern.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._rechnungsnummernTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._rechnungsausgangPositionenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.RechnungsausgangPositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._rechnungsausgangPositionenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._rechnungsausgangAnhaengeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.RechnungsausgangAnhaenge.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._rechnungsausgangAnhaengeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._personalTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Personal.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._personalTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._offertenpositionenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Offertenpositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._offertenpositionenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._offene_Posten_DVOTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Offene_Posten_DVO.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._offene_Posten_DVOTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._offene_PostenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Offene_Posten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._offene_PostenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._nebenkosten_der_KorrespondentenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.Nebenkosten_der_Korrespondenten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._nebenkosten_der_KorrespondentenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_WarenpositionVerbrauchssteuer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOutTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOutTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_Sicherheitsangaben.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_Warenposition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenumsatzTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenumsatz.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenumsatzTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenKontaktArtenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenKontaktArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenKontaktArtenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenKontaktTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenKontakt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenKontaktTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenErweitertTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenErweitert.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenErweitertTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenDatenblattTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenDatenblatt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenDatenblattTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenBesonderheiten_KategorienTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenBesonderheiten_Kategorien.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenBesonderheiten_KategorienTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenBesonderheitenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenBesonderheiten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenBesonderheitenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenAufschubkontenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenAufschubkonten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenAufschubkontenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenVermerkeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenVermerke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenVermerkeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKontoTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKonto.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKontoTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblIDS_TransaktionenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblIDS_Transaktionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblIDS_TransaktionenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblHistorieTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblHistorie.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblHistorieTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblHandlingssaetzeInternTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblHandlingssaetzeIntern.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblHandlingssaetzeInternTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGVMS_RoutesTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Routes.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGVMS_RoutesTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGVMS_PosTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Pos.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGVMS_PosTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGVMS_PortsTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Ports.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGVMS_PortsTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGVMS_CarriersTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Carriers.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGVMS_CarriersTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGVMSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGVMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGVMSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKassenbuchTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKassenbuch.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKassenbuchTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenVertraegeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenVertraege.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenVertraegeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenVertraegeArtenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenVertraegeArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenVertraegeArtenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenVollmachtenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenVollmachten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenVollmachtenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_WarenpositionPackstuecke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblNCTS_TR_WarenpositionTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_Warenposition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblNCTS_TR_WarenpositionTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblNCTS_TR_SicherheitsangabenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_Sicherheitsangaben.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblNCTS_TR_NachrichtenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_Nachrichten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblNCTS_TR_NachrichtenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblNCTS_TRTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblNCTS_TRTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMSETransactionsArchivOLDTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMSETransactionsArchivOLD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMSETransactionsArchivOLDTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMSETransactionsArchivTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMSETransactionsArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMSETransactionsArchivTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMSESettlementsTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMSESettlements.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMSESettlementsTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMSELeistungenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMSELeistungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMSELeistungenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMSEInvoicesTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMSEInvoices.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMSEInvoicesTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMSEImportTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMSEImport.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMSEImportTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMSECustomersTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMSECustomers.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMSECustomersTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMDM_ParamterTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMDM_Paramter.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMDM_ParamterTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMautITArchivTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMautITArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMautITArchivTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMautIT_BelegartenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMautIT_Belegarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMautIT_BelegartenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblMandantTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblMandant.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblMandantTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblLogbuchTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblLogbuch.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblLogbuchTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblKundenVollmachtenArtTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblKundenVollmachtenArt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblKundenVollmachtenArtTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGOBOXBestellungenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGOBOXBestellungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGOBOXBestellungenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblNTCSRoutenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblNTCSRouten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblNTCSRoutenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGestellungsmitteilung_PositionenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGestellungsmitteilung_Positionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGestellungsmitteilung_PositionenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGestellungsgarantienTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGestellungsgarantien.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGestellungsgarantienTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDigicust_SendungenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDigicust_Sendungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDigicust_SendungenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDieselArchivTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDieselArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDieselArchivTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDHF_AnhaengeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDHF_Anhaenge.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDHF_AnhaengeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDEBundeslaenderPLZTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDEBundeslaenderPLZ.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDEBundeslaenderPLZTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDatenarchiv_CollectionTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDatenarchiv_Collection.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDatenarchiv_CollectionTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDatenarchivTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDatenarchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDatenarchivTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_ZollanmeldungenArtenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_ZollanmeldungenArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_ZollanmeldungenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_Zollanmeldungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_ZollanmeldungenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDigicust_SessionsTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDigicust_Sessions.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDigicust_SessionsTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_StatusmeldungenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_Statusmeldungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_StatusmeldungenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_TransportEquipment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_HouseConsignment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_Guarantee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004TableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004TableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_WarenpositionPackstuecke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDakosy_StammreferenzenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_Stammreferenzen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDakosy_StammreferenzenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblDigicust_SettingsTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblDigicust_Settings.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblDigicust_SettingsTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblEABelegpositionTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblEABelegposition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblEABelegpositionTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblEmailBenachrichtigungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblEmailBenachrichtigung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblEmailBenachrichtigungTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGeschäftsjahrJournalNrTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGeschäftsjahrJournalNr.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGeschäftsjahrJournalNrTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGeschäftsjahrBelegNrTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGeschäftsjahrBelegNr.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGeschäftsjahrBelegNrTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGeschäftsjahrTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGeschäftsjahr.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGeschäftsjahrTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGelangensbestaetigungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGelangensbestaetigung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGelangensbestaetigungTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGebuehrenvermarktungsnormenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGebuehrenvermarktungsnormen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGebuehrenvermarktungsnormenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblFTP_Log_Backup2TableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblFTP_Log_Backup2.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblFTP_Log_Backup2TableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblFTP_LogTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblFTP_Log.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblFTP_LogTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblFremdSpeditionenZuordnungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblFremdSpeditionenZuordnung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblFremdSpeditionenZuordnungTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblFormulareVorlagenValuesTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblFormulareVorlagenValues.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblFormulareVorlagenValuesTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblFormulareVorlagenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblFormulareVorlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblFormulareVorlagenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblFormulardatenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblFormulardaten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblFormulardatenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblFiskalkundenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblFiskalkunden.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblFiskalkundenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblFiskal_DatenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblFiskal_Daten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblFiskal_DatenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblFirmaTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblFirma.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblFirmaTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblFahrerDatenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblFahrerDaten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblFahrerDatenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblEZT_ImportcodenummernTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblEZT_Importcodenummern.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblEZT_ImportcodenummernTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblEZB_WaehrungskurseTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblEZB_Waehrungskurse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblEZB_WaehrungskurseTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblEORIPruefungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblEORIPruefung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblEORIPruefungTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblEmailBenachrichtigungArtenTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblEmailBenachrichtigungArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblEmailBenachrichtigungArtenTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tblGestellungsmitteilungTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tblGestellungsmitteilung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tblGestellungsmitteilungTableAdapter.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 VERAGDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tblGestellungsmitteilungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGestellungsmitteilung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGestellungsmitteilungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblEmailBenachrichtigungArtenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblEmailBenachrichtigungArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblEmailBenachrichtigungArtenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblEORIPruefungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblEORIPruefung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblEORIPruefungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblEZB_WaehrungskurseTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblEZB_Waehrungskurse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblEZB_WaehrungskurseTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblEZT_ImportcodenummernTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblEZT_Importcodenummern.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblEZT_ImportcodenummernTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblFahrerDatenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblFahrerDaten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblFahrerDatenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblFirmaTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblFirma.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblFirmaTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblFiskal_DatenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblFiskal_Daten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblFiskal_DatenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblFiskalkundenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblFiskalkunden.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblFiskalkundenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblFormulardatenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblFormulardaten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblFormulardatenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblFormulareVorlagenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblFormulareVorlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblFormulareVorlagenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblFormulareVorlagenValuesTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblFormulareVorlagenValues.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblFormulareVorlagenValuesTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblFremdSpeditionenZuordnungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblFremdSpeditionenZuordnung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblFremdSpeditionenZuordnungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblFTP_LogTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblFTP_Log.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblFTP_LogTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblFTP_Log_Backup2TableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblFTP_Log_Backup2.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblFTP_Log_Backup2TableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGebuehrenvermarktungsnormenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGebuehrenvermarktungsnormen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGebuehrenvermarktungsnormenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGelangensbestaetigungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGelangensbestaetigung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGelangensbestaetigungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGeschäftsjahrTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGeschäftsjahr.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGeschäftsjahrTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGeschäftsjahrBelegNrTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGeschäftsjahrBelegNr.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGeschäftsjahrBelegNrTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGeschäftsjahrJournalNrTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGeschäftsjahrJournalNr.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGeschäftsjahrJournalNrTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblEmailBenachrichtigungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblEmailBenachrichtigung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblEmailBenachrichtigungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblEABelegpositionTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblEABelegposition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblEABelegpositionTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDigicust_SettingsTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDigicust_Settings.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDigicust_SettingsTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_StammreferenzenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_Stammreferenzen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_StammreferenzenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_WarenpositionPackstuecke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004TableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004TableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_Guarantee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_HouseConsignment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut004_TransportEquipment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_StatusmeldungenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_Statusmeldungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_StatusmeldungenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDigicust_SessionsTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDigicust_Sessions.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDigicust_SessionsTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_ZollanmeldungenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_Zollanmeldungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_ZollanmeldungenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_ZollanmeldungenArtenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_ZollanmeldungenArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDatenarchivTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDatenarchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDatenarchivTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDatenarchiv_CollectionTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDatenarchiv_Collection.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDatenarchiv_CollectionTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDEBundeslaenderPLZTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDEBundeslaenderPLZ.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDEBundeslaenderPLZTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDHF_AnhaengeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDHF_Anhaenge.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDHF_AnhaengeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDieselArchivTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDieselArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDieselArchivTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDigicust_SendungenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDigicust_Sendungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDigicust_SendungenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGestellungsgarantienTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGestellungsgarantien.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGestellungsgarantienTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGestellungsmitteilung_PositionenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGestellungsmitteilung_Positionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGestellungsmitteilung_PositionenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblNTCSRoutenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblNTCSRouten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblNTCSRoutenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGOBOXBestellungenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGOBOXBestellungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGOBOXBestellungenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenVollmachtenArtTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenVollmachtenArt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenVollmachtenArtTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblLogbuchTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblLogbuch.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblLogbuchTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMandantTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMandant.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMandantTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMautIT_BelegartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMautIT_Belegarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMautIT_BelegartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMautITArchivTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMautITArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMautITArchivTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMDM_ParamterTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMDM_Paramter.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMDM_ParamterTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMSECustomersTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMSECustomers.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMSECustomersTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMSEImportTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMSEImport.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMSEImportTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMSEInvoicesTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMSEInvoices.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMSEInvoicesTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMSELeistungenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMSELeistungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMSELeistungenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMSESettlementsTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMSESettlements.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMSESettlementsTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMSETransactionsArchivTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMSETransactionsArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMSETransactionsArchivTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMSETransactionsArchivOLDTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMSETransactionsArchivOLD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMSETransactionsArchivOLDTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblNCTS_TRTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblNCTS_TRTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblNCTS_TR_NachrichtenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_Nachrichten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblNCTS_TR_NachrichtenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblNCTS_TR_SicherheitsangabenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_Sicherheitsangaben.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblNCTS_TR_WarenpositionTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_Warenposition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblNCTS_TR_WarenpositionTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblNCTS_TR_WarenpositionPackstuecke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenVollmachtenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenVollmachten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenVollmachtenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenVertraegeArtenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenVertraegeArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenVertraegeArtenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenVertraegeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenVertraege.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenVertraegeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKassenbuchTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKassenbuch.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKassenbuchTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGVMSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGVMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGVMSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGVMS_CarriersTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Carriers.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGVMS_CarriersTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGVMS_PortsTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Ports.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGVMS_PortsTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGVMS_PosTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Pos.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGVMS_PosTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblGVMS_RoutesTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblGVMS_Routes.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblGVMS_RoutesTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblHandlingssaetzeInternTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblHandlingssaetzeIntern.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblHandlingssaetzeInternTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblHistorieTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblHistorie.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblHistorieTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblIDS_TransaktionenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblIDS_Transaktionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblIDS_TransaktionenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKontoTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKonto.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKontoTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenVermerkeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenVermerke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenVermerkeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenAufschubkontenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenAufschubkonten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenAufschubkontenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenBesonderheitenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenBesonderheiten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenBesonderheitenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenBesonderheiten_KategorienTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenBesonderheiten_Kategorien.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenBesonderheiten_KategorienTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenDatenblattTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenDatenblatt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenDatenblattTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenErweitertTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenErweitert.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenErweitertTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenKontaktTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenKontakt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenKontaktTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenKontaktArtenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenKontaktArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenKontaktArtenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblKundenumsatzTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblKundenumsatz.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblKundenumsatzTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_Warenposition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut_Sicherheitsangaben.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_NCTSOutTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_NCTSOut.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_NCTSOutTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_WarenpositionVerbrauchssteuer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._nebenkosten_der_KorrespondentenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Nebenkosten_der_Korrespondenten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._nebenkosten_der_KorrespondentenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._offene_PostenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Offene_Posten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._offene_PostenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._offene_Posten_DVOTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Offene_Posten_DVO.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._offene_Posten_DVOTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._offertenpositionenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Offertenpositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._offertenpositionenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._personalTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Personal.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._personalTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._rechnungsausgangAnhaengeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.RechnungsausgangAnhaenge.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._rechnungsausgangAnhaengeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._rechnungsausgangPositionenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.RechnungsausgangPositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._rechnungsausgangPositionenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._rechnungsnummernTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Rechnungsnummern.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._rechnungsnummernTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._rechnungstexteTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Rechnungstexte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._rechnungstexteTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._standardoffertenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Standardofferten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._standardoffertenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._standardoffertenFirmaTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.StandardoffertenFirma.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._standardoffertenFirmaTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_ASFINAG_FileInfoTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_ASFINAG_FileInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_ASFINAG_FileInfoTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_BMD_LänderTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_BMD_Länder.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_BMD_LänderTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ParamterTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_Paramter.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ParamterTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_A0127_BeteiligtenKonstellation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0008_LaenderFull.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0010_LaenderAES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0013_UnterlagenArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._lieferbedingungenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Lieferbedingungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._lieferbedingungenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._leistungenBUKontenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.LeistungenBUKonten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._leistungenBUKontenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._länder_der_Bundesrepublik_DeutschlandTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Länder_der_Bundesrepublik_Deutschland.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._aufschubkontenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Aufschubkonten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._aufschubkontenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._abfertigungskosten_der_KorrespondentenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Abfertigungskosten_der_Korrespondenten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._abfertigungskosten_der_KorrespondentenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._abfertigungsLaenderTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.AbfertigungsLaender.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._abfertigungsLaenderTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._abfertigungsLaenderAbfertigungsartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.AbfertigungsLaenderAbfertigungsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._abgabenartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Abgabenarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._abgabenartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._aktivitätenlogTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Aktivitätenlog.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._aktivitätenlogTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._anlagenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Anlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._anlagenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._atlas_statusTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.atlas_status.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._atlas_statusTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._aufschubdatenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Aufschubdaten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._aufschubdatenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._belegartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Belegarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._belegartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._kundenFilialenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.KundenFilialen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._kundenFilialenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._berechnungsbogenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Berechnungsbogen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._berechnungsbogenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._berichteTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Berichte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._berichteTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._cMRTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.CMR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._cMRTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._devisenkurseTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Devisenkurse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._devisenkurseTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._ePBesTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.EPBes.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._ePBesTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._ePBesPOSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.EPBesPOS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._ePBesPOSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._geschäftsartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Geschäftsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._geschäftsartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._kreditkartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Kreditkarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._kreditkartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0014_VorpapierArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0141_Zollstellen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES_WarenpositionUnterlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblBankspesenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblBankspesen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblBankspesenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblBerichtsdruckerTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblBerichtsdrucker.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblBerichtsdruckerTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblBesuchsberichteTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblBesuchsberichte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblBesuchsberichteTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblBonitaetsauskunftTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblBonitaetsauskunft.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblBonitaetsauskunftTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblBuchungstextTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblBuchungstext.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblBuchungstextTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_AESTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_AESTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_AES_WarenpositionTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES_Warenposition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_AES_WarenpositionTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_AES_WarenpositionPackstuecke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_EZATableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_EZATableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblATEZ_NCTS_SessionsTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS_Sessions.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblATEZ_NCTS_SessionsTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_EZA_AdressenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Adressen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_EZA_AdressenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_EZA_AufschubTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Aufschub.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_EZA_AufschubTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_BEAnteilZLAVUV.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_SumABeendigungsAnteil.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_EZA_UnterlagenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Unterlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_EZA_UnterlagenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_Warenposition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_EZA_WarenpositionTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_WarenpositionSonderfalldaten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblDakosy_EZA_WarenpositionUnterlagen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS_TransitCustomsOffice.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblATEZ_NCTS_RoutenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS_Routen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblATEZ_NCTS_RoutenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_C0219_TypeTransportMeans.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_IDS_Kunden_ohne_RabattTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kunden_ohne_Rabatt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0200_Unterlagearten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0400_Waehrungsliste.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0610_ZustaendigeZSTAES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_DY_ZollDE_I0700_Masseinheiten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_ErrorsTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_Errors.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_ErrorsTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_IDS_Kategorien_KundenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kategorien_Kunden.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_IDS_Kategorien_KundenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_IDS_Kategorien_RechenwerteTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kategorien_Rechenwerte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_IDS_KundenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Kunden.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_IDS_KundenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_IDS_RechenwerteTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Rechenwerte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_IDS_RechenwerteTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblAsfinagMautTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblAsfinagMaut.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblAsfinagMautTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_IDS_StationenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Stationen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_IDS_StationenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_Intrastat_AusfuhrTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_Intrastat_Ausfuhr.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_Intrastat_AusfuhrTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_TelefonnummernTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_Telefonnummern.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_TelefonnummernTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_WÖLFLTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_WÖLFL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_WÖLFLTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_ZM_tabelleTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_ZM_tabelle.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_ZM_tabelleTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblAbfertigungsartenFilialeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblAbfertigungsartenFiliale.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblAbfertigungsartenFilialeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblAbfertigungsartOffertenstammTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblAbfertigungsartOffertenstamm.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblAbfertigungsartOffertenstammTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblAbrechnung_NCTSBrgTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblAbrechnung_NCTSBrg.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblAbrechnung_NCTSBrgTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblNCTSGestellungsadressenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblNCTSGestellungsadressen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblNCTSGestellungsadressenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblMSETransactionsTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblMSETransactions.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblMSETransactionsTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._vorkostenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Vorkosten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._vorkostenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._zbapoTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.zbapo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._zbapoTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._zbposTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.zbpos.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._zbposTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._zkteingTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Zkteing.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._zkteingTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._zollsystemeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Zollsysteme.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._zollsystemeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._zulassungen_ZnVTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Zulassungen_ZnV.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._zulassungen_ZnVTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._zbadzTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.zbadz.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._zbadzTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._zahlungsartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Zahlungsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._zahlungsartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblZahlungszieltexteTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblZahlungszieltexte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblZahlungszieltexteTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUTATrailerNewTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUTATrailerNew.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUTATrailerNewTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblVermarktungsnormenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblVermarktungsnormen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblVermarktungsnormenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblVermarktungsnormenGebuehrenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblVermarktungsnormenGebuehren.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblVermarktungsnormenGebuehrenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblVorauskassenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblVorauskassen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblVorauskassenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblWahrungtabelleNEUTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblWahrungtabelleNEU.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblWahrungtabelleNEUTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblWarenbezeichnungBegriffeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblWarenbezeichnungBegriffe.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblWarenbezeichnungBegriffeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblZabis_Atlas_NCTSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblZabis_Atlas_NCTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblZabis_Atlas_NCTSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblZolaris_EZoll_NCTSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblZolaris_EZoll_NCTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblZolaris_EZoll_NCTSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblZOLL_WechselkurseTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblZOLL_Wechselkurse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblZOLL_WechselkurseTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblZollArtikelTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblZollArtikel.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblZollArtikelTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblZollUnterArtikelTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblZollUnterArtikel.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblZollUnterArtikelTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._temporaryUpsizedTable2TableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TemporaryUpsizedTable2.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._temporaryUpsizedTable2TableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._verkehrszweigeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Verkehrszweige.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._verkehrszweigeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._vermerkeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Vermerke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._vermerkeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOffertenPositionenArchivTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOffertenPositionenArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOffertenPositionenArchivTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUTALeistungenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUTALeistungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUTALeistungenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUTATrailerTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUTATrailer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUTATrailerTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUTAImportNewTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUTAImportNew.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUTAImportNewTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblSteuernummernTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblSteuernummern.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblSteuernummernTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPreistabellenpositionenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPreistabellenpositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPreistabellenpositionenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblQS_AuftragspositionenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblQS_Auftragspositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblQS_AuftragspositionenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblQS_TeamsTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblQS_Teams.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblQS_TeamsTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblQS_TeamsMATableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblQS_TeamsMA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblQS_TeamsMATableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblRechnungsnotizenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblRechnungsnotizen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblRechnungsnotizenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblRefTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblRef.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblRefTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblRefBeziehungenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblRefBeziehungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblRefBeziehungenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblRKSV_POSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblRKSV_POS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblRKSV_POSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblRMCImportTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblRMCImport.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblRMCImportTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblSMSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblSMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblSMSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblSpeditionsbucharchivTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbucharchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblSpeditionsbucharchivTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblSpeditionsbuchEndEmpfaengerTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbuchEndEmpfaenger.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblSpeditionsbuchUnterPosTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbuchUnterPos.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblSpeditionsbuchUnterPosTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPreislistenpositionenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPreislistenpositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPreislistenpositionenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPostversandTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPostversand.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPostversandTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_TraderAdditionsAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOregonNCTS_DeclarationDataTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_DeclarationData.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOregonNCTS_DeclarationDataTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_AdditionalCodesAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_DocumentsAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_GoodsAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_PacksAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_PartiesAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_Declarations_ProducedDocumentsAttribute.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOregonNCTS_ReferenceTemplateTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOregonNCTS_ReferenceTemplate.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPosNrTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPosNr.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPosNrTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOriginalATRTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOriginalATR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOriginalATRTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPartnersystem_ParamterTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPartnersystem_Paramter.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPartnersystem_ParamterTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPfadTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPfad.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPfadTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPLOSE_DetailsTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPLOSE_DetailsTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPLOSE_Inv_DataTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Inv_Data.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPLOSE_Inv_DataTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPLOSE_LieferantTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Lieferant.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPLOSE_LieferantTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPLOSE_ProduktbeschreibungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPLOSE_Produktbeschreibung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPLOSE_ProduktbeschreibungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblSpeditionsbuchUnterPosArtenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblSpeditionsbuchUnterPosArten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUTAImportTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUTAImport.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUTAImportTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTrdinProductTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTrdinProduct.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTrdinProductTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUIDPruefungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUIDPruefung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUIDPruefungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUStVBelegeingangTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUStVBelegeingang.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUStVBelegeingangTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUStVErstattungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUStVErstattung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUStVErstattungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUStVKuLäFoTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUStVKuLäFo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUStVKuLäFoTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUStVLäFoTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUStVLäFo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUStVLäFoTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUStVLeistenderTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUStVLeistender.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUStVLeistenderTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUStVPositionenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUStVPositionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUStVPositionenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUStVTexteTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUStVTexte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUStVTexteTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUTAArchivTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUTAArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUTAArchivTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTrdinHeaderTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTrdinHeader.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTrdinHeaderTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTranslateAutoTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTranslateAuto.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTranslateAutoTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTranslateTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTranslate.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTranslateTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTelotec_SicherheitTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Sicherheit.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTelotec_SicherheitTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTelotec_AbgabenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Abgaben.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTelotec_AbgabenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTelotec_AnmeldungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Anmeldung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTelotec_AnmeldungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTelotec_PackstueckeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Packstuecke.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTelotec_PackstueckeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTelotec_ParamterTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Paramter.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTelotec_ParamterTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTelotec_PositionsdatenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_Positionsdaten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTelotec_PositionsdatenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTelotec_PositionsdatenAbgabenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_PositionsdatenAbgaben.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTelotec_PositionsdatenDokumenteTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTelotec_PositionsdatenDokumente.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTestTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTest.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTestTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTR_Shipment_Position_DocumentTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Position_Document.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTR_Shipment_Position_DocumentTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTextkonserveTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTextkonserve.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTextkonserveTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTR_AvisoTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTR_Aviso.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTR_AvisoTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTR_AvisoAnheangeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTR_AvisoAnheange.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTR_AvisoAnheangeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTR_ShipmentTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTR_ShipmentTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTR_Shipment_AdressenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Adressen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTR_Shipment_AdressenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTR_Shipment_DocumentTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Document.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTR_Shipment_DocumentTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTR_Shipment_PositionTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTR_Shipment_Position.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTR_Shipment_PositionTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._offertenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Offerten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._offertenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblOffertenArchivTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblOffertenArchiv.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblOffertenArchivTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._abfertigungsartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Abfertigungsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._abfertigungsartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._zbantTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.zbant.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._zbantTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPreislistenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPreislisten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPreislistenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblPreistabellenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblPreistabellen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblPreistabellenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblQS_AbfertigungsartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblQS_Abfertigungsarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblQS_AbfertigungsartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblQS_AufträgeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblQS_Aufträge.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblQS_AufträgeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblRKSV_KassenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblRKSV_Kassen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblRKSV_KassenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblSteuersätzeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblSteuersätze.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblSteuersätzeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblTrdinInvoiceTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblTrdinInvoice.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblTrdinInvoiceTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUStVAntragTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUStVAntrag.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUStVAntragTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblEABelegnummerTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblEABelegnummer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblEABelegnummerTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUStVFormulareTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUStVFormulare.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUStVFormulareTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUTAFakturierwarenartenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUTAFakturierwarenarten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUTAFakturierwarenartenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUTAHeaderTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUTAHeader.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUTAHeaderTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblUTAHeaderNewTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblUTAHeaderNew.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblUTAHeaderNewTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._rechnungsausgangTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Rechnungsausgang.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._rechnungsausgangTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._währungstabelleTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Währungstabelle.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._währungstabelleTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._speditionsbuchTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Speditionsbuch.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._speditionsbuchTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_IDS_LänderTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Länder.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_IDS_LänderTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblATEZ_NCTSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblATEZ_NCTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblATEZ_NCTSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_IDS_ProdukteTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_IDS_Produkte.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_IDS_ProdukteTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblAnmeldungTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblAnmeldung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblAnmeldungTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_TelefonbuchTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_Telefonbuch.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_TelefonbuchTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._offertenstammTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Offertenstamm.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._offertenstammTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Länderverzeichnis_für_die_Außenhandelsstatistik.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._leistungenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Leistungen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._leistungenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblSteuertypTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblSteuertyp.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblSteuertypTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tblBerechnungsmethodeTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tblBerechnungsmethode.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tblBerechnungsmethodeTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._kundenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Kunden.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._kundenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._adressenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Adressen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._adressenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._berechnungsartTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Berechnungsart.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._berechnungsartTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._kostenstellenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Kostenstellen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._kostenstellenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._steuertabelleTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Steuertabelle.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._steuertabelleTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._filialenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Filialen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._filialenTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._korrespondentenTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.Korrespondenten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._korrespondentenTableAdapter.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 VERAGDataSet) 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._abfertigungsartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._abfertigungsartenTableAdapter.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._abfertigungskosten_der_KorrespondentenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._abfertigungskosten_der_KorrespondentenTableAdapter.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._abfertigungsLaenderTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._abfertigungsLaenderTableAdapter.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._abfertigungsLaenderAbfertigungsartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._abfertigungsLaenderAbfertigungsartenTableAdapter.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._abgabenartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._abgabenartenTableAdapter.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._adressenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._adressenTableAdapter.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._aktivitätenlogTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._aktivitätenlogTableAdapter.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._anlagenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._anlagenTableAdapter.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._atlas_statusTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._atlas_statusTableAdapter.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._aufschubdatenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._aufschubdatenTableAdapter.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._aufschubkontenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._aufschubkontenTableAdapter.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._belegartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._belegartenTableAdapter.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._berechnungsartTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._berechnungsartTableAdapter.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._berechnungsbogenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._berechnungsbogenTableAdapter.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._berichteTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._berichteTableAdapter.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._cMRTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._cMRTableAdapter.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._devisenkurseTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._devisenkurseTableAdapter.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._ePBesTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._ePBesTableAdapter.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._ePBesPOSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._ePBesPOSTableAdapter.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._filialenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._filialenTableAdapter.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._geschäftsartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._geschäftsartenTableAdapter.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._korrespondentenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._korrespondentenTableAdapter.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._kostenstellenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._kostenstellenTableAdapter.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._kreditkartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._kreditkartenTableAdapter.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._kundenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._kundenTableAdapter.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._kundenFilialenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._kundenFilialenTableAdapter.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._länder_der_Bundesrepublik_DeutschlandTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.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._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.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._leistungenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._leistungenTableAdapter.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._leistungenBUKontenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._leistungenBUKontenTableAdapter.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._lieferbedingungenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._lieferbedingungenTableAdapter.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._nebenkosten_der_KorrespondentenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._nebenkosten_der_KorrespondentenTableAdapter.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._offene_PostenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._offene_PostenTableAdapter.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._offene_Posten_DVOTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._offene_Posten_DVOTableAdapter.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._offertenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._offertenTableAdapter.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._offertenpositionenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._offertenpositionenTableAdapter.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._offertenstammTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._offertenstammTableAdapter.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._personalTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._personalTableAdapter.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._rechnungsausgangTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._rechnungsausgangTableAdapter.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._rechnungsausgangAnhaengeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._rechnungsausgangAnhaengeTableAdapter.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._rechnungsausgangPositionenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._rechnungsausgangPositionenTableAdapter.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._rechnungsnummernTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._rechnungsnummernTableAdapter.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._rechnungstexteTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._rechnungstexteTableAdapter.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._speditionsbuchTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._speditionsbuchTableAdapter.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._standardoffertenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._standardoffertenTableAdapter.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._standardoffertenFirmaTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._standardoffertenFirmaTableAdapter.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._steuertabelleTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._steuertabelleTableAdapter.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._tbl_ASFINAG_FileInfoTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_ASFINAG_FileInfoTableAdapter.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._tbl_BMD_LänderTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_BMD_LänderTableAdapter.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._tbl_DY_ParamterTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ParamterTableAdapter.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._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.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._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.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._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.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._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.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._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.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._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.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._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.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._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.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._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.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._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.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._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.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._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.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._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.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._tbl_ErrorsTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_ErrorsTableAdapter.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._tbl_IDS_Kategorien_KundenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_IDS_Kategorien_KundenTableAdapter.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._tbl_IDS_Kategorien_RechenwerteTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.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._tbl_IDS_KundenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_IDS_KundenTableAdapter.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._tbl_IDS_Kunden_ohne_RabattTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.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._tbl_IDS_LänderTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_IDS_LänderTableAdapter.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._tbl_IDS_ProdukteTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_IDS_ProdukteTableAdapter.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._tbl_IDS_RechenwerteTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_IDS_RechenwerteTableAdapter.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._tbl_IDS_StationenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_IDS_StationenTableAdapter.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._tbl_Intrastat_AusfuhrTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_Intrastat_AusfuhrTableAdapter.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._tbl_TelefonbuchTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_TelefonbuchTableAdapter.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._tbl_TelefonnummernTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_TelefonnummernTableAdapter.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._tbl_WÖLFLTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_WÖLFLTableAdapter.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._tbl_ZM_tabelleTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_ZM_tabelleTableAdapter.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._tblAbfertigungsartenFilialeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblAbfertigungsartenFilialeTableAdapter.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._tblAbfertigungsartOffertenstammTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblAbfertigungsartOffertenstammTableAdapter.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._tblAbrechnung_NCTSBrgTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblAbrechnung_NCTSBrgTableAdapter.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._tblAnmeldungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblAnmeldungTableAdapter.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._tblAsfinagMautTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblAsfinagMautTableAdapter.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._tblATEZ_NCTSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblATEZ_NCTSTableAdapter.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._tblATEZ_NCTS_RoutenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblATEZ_NCTS_RoutenTableAdapter.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._tblATEZ_NCTS_SessionsTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblATEZ_NCTS_SessionsTableAdapter.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._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.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._tblBankspesenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblBankspesenTableAdapter.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._tblBerechnungsmethodeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblBerechnungsmethodeTableAdapter.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._tblBerichtsdruckerTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblBerichtsdruckerTableAdapter.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._tblBesuchsberichteTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblBesuchsberichteTableAdapter.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._tblBonitaetsauskunftTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblBonitaetsauskunftTableAdapter.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._tblBuchungstextTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblBuchungstextTableAdapter.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._tblDakosy_AESTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_AESTableAdapter.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._tblDakosy_AES_WarenpositionTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_AES_WarenpositionTableAdapter.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._tblDakosy_AES_WarenpositionPackstueckeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.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._tblDakosy_AES_WarenpositionUnterlagenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.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._tblDakosy_EZATableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_EZATableAdapter.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._tblDakosy_EZA_AdressenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_EZA_AdressenTableAdapter.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._tblDakosy_EZA_AufschubTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_EZA_AufschubTableAdapter.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._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.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._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.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._tblDakosy_EZA_UnterlagenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_EZA_UnterlagenTableAdapter.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._tblDakosy_EZA_WarenpositionTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_EZA_WarenpositionTableAdapter.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._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.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._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.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._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.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._tblDakosy_NCTSOutTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOutTableAdapter.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._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.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._tblDakosy_NCTSOut_WarenpositionTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.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._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.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._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.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._tblDakosy_NCTSOut004TableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOut004TableAdapter.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._tblDakosy_NCTSOut004_GuaranteeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.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._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.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._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.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._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.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._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.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._tblDakosy_StammreferenzenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_StammreferenzenTableAdapter.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._tblDakosy_StatusmeldungenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_StatusmeldungenTableAdapter.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._tblDakosy_ZollanmeldungenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_ZollanmeldungenTableAdapter.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._tblDakosy_ZollanmeldungenArtenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDakosy_ZollanmeldungenArtenTableAdapter.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._tblDatenarchivTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDatenarchivTableAdapter.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._tblDatenarchiv_CollectionTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDatenarchiv_CollectionTableAdapter.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._tblDEBundeslaenderPLZTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDEBundeslaenderPLZTableAdapter.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._tblDHF_AnhaengeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDHF_AnhaengeTableAdapter.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._tblDieselArchivTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDieselArchivTableAdapter.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._tblDigicust_SendungenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDigicust_SendungenTableAdapter.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._tblDigicust_SessionsTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDigicust_SessionsTableAdapter.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._tblDigicust_SettingsTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblDigicust_SettingsTableAdapter.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._tblEABelegnummerTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblEABelegnummerTableAdapter.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._tblEABelegpositionTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblEABelegpositionTableAdapter.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._tblEmailBenachrichtigungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblEmailBenachrichtigungTableAdapter.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._tblEmailBenachrichtigungArtenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblEmailBenachrichtigungArtenTableAdapter.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._tblEORIPruefungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblEORIPruefungTableAdapter.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._tblEZB_WaehrungskurseTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblEZB_WaehrungskurseTableAdapter.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._tblEZT_ImportcodenummernTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblEZT_ImportcodenummernTableAdapter.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._tblFahrerDatenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblFahrerDatenTableAdapter.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._tblFirmaTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblFirmaTableAdapter.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._tblFiskal_DatenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblFiskal_DatenTableAdapter.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._tblFiskalkundenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblFiskalkundenTableAdapter.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._tblFormulardatenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblFormulardatenTableAdapter.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._tblFormulareVorlagenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblFormulareVorlagenTableAdapter.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._tblFormulareVorlagenValuesTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblFormulareVorlagenValuesTableAdapter.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._tblFremdSpeditionenZuordnungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblFremdSpeditionenZuordnungTableAdapter.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._tblFTP_LogTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblFTP_LogTableAdapter.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._tblFTP_Log_Backup2TableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblFTP_Log_Backup2TableAdapter.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._tblGebuehrenvermarktungsnormenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGebuehrenvermarktungsnormenTableAdapter.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._tblGelangensbestaetigungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGelangensbestaetigungTableAdapter.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._tblGeschäftsjahrTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGeschäftsjahrTableAdapter.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._tblGeschäftsjahrBelegNrTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGeschäftsjahrBelegNrTableAdapter.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._tblGeschäftsjahrJournalNrTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGeschäftsjahrJournalNrTableAdapter.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._tblGestellungsgarantienTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGestellungsgarantienTableAdapter.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._tblGestellungsmitteilungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGestellungsmitteilungTableAdapter.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._tblGestellungsmitteilung_PositionenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGestellungsmitteilung_PositionenTableAdapter.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._tblGOBOXBestellungenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGOBOXBestellungenTableAdapter.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._tblGVMSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGVMSTableAdapter.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._tblGVMS_CarriersTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGVMS_CarriersTableAdapter.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._tblGVMS_PortsTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGVMS_PortsTableAdapter.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._tblGVMS_PosTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGVMS_PosTableAdapter.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._tblGVMS_RoutesTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblGVMS_RoutesTableAdapter.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._tblHandlingssaetzeInternTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblHandlingssaetzeInternTableAdapter.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._tblHistorieTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblHistorieTableAdapter.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._tblIDS_TransaktionenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblIDS_TransaktionenTableAdapter.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._tblKassenbuchTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKassenbuchTableAdapter.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._tblKontoTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKontoTableAdapter.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._tblKundenAufschubkontenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenAufschubkontenTableAdapter.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._tblKundenBesonderheitenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenBesonderheitenTableAdapter.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._tblKundenBesonderheiten_KategorienTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenBesonderheiten_KategorienTableAdapter.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._tblKundenDatenblattTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenDatenblattTableAdapter.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._tblKundenErweitertTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenErweitertTableAdapter.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._tblKundenKontaktTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenKontaktTableAdapter.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._tblKundenKontaktArtenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenKontaktArtenTableAdapter.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._tblKundenumsatzTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenumsatzTableAdapter.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._tblKundenVermerkeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenVermerkeTableAdapter.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._tblKundenVertraegeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenVertraegeTableAdapter.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._tblKundenVertraegeArtenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenVertraegeArtenTableAdapter.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._tblKundenVollmachtenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenVollmachtenTableAdapter.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._tblKundenVollmachtenArtTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblKundenVollmachtenArtTableAdapter.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._tblLogbuchTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblLogbuchTableAdapter.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._tblMandantTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMandantTableAdapter.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._tblMautIT_BelegartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMautIT_BelegartenTableAdapter.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._tblMautITArchivTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMautITArchivTableAdapter.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._tblMDM_ParamterTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMDM_ParamterTableAdapter.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._tblMSECustomersTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMSECustomersTableAdapter.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._tblMSEImportTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMSEImportTableAdapter.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._tblMSEInvoicesTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMSEInvoicesTableAdapter.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._tblMSELeistungenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMSELeistungenTableAdapter.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._tblMSESettlementsTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMSESettlementsTableAdapter.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._tblMSETransactionsTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMSETransactionsTableAdapter.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._tblMSETransactionsArchivTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMSETransactionsArchivTableAdapter.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._tblMSETransactionsArchivOLDTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblMSETransactionsArchivOLDTableAdapter.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._tblNCTS_TRTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblNCTS_TRTableAdapter.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._tblNCTS_TR_NachrichtenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblNCTS_TR_NachrichtenTableAdapter.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._tblNCTS_TR_SicherheitsangabenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblNCTS_TR_SicherheitsangabenTableAdapter.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._tblNCTS_TR_WarenpositionTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblNCTS_TR_WarenpositionTableAdapter.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._tblNCTS_TR_WarenpositionPackstueckeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.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._tblNCTSGestellungsadressenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblNCTSGestellungsadressenTableAdapter.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._tblNTCSRoutenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblNTCSRoutenTableAdapter.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._tblOffertenArchivTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOffertenArchivTableAdapter.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._tblOffertenPositionenArchivTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOffertenPositionenArchivTableAdapter.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._tblOregonNCTS_DeclarationDataTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOregonNCTS_DeclarationDataTableAdapter.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._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.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._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.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._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.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._tblOregonNCTS_Declarations_PacksAttributeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.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._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.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._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.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._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.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._tblOregonNCTS_ReferenceTemplateTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOregonNCTS_ReferenceTemplateTableAdapter.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._tblOriginalATRTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblOriginalATRTableAdapter.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._tblPartnersystem_ParamterTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPartnersystem_ParamterTableAdapter.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._tblPfadTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPfadTableAdapter.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._tblPLOSE_DetailsTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPLOSE_DetailsTableAdapter.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._tblPLOSE_Inv_DataTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPLOSE_Inv_DataTableAdapter.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._tblPLOSE_LieferantTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPLOSE_LieferantTableAdapter.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._tblPLOSE_ProduktbeschreibungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPLOSE_ProduktbeschreibungTableAdapter.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._tblPosNrTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPosNrTableAdapter.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._tblPostversandTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPostversandTableAdapter.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._tblPreislistenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPreislistenTableAdapter.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._tblPreislistenpositionenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPreislistenpositionenTableAdapter.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._tblPreistabellenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPreistabellenTableAdapter.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._tblPreistabellenpositionenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblPreistabellenpositionenTableAdapter.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._tblQS_AbfertigungsartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblQS_AbfertigungsartenTableAdapter.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._tblQS_AufträgeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblQS_AufträgeTableAdapter.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._tblQS_AuftragspositionenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblQS_AuftragspositionenTableAdapter.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._tblQS_TeamsTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblQS_TeamsTableAdapter.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._tblQS_TeamsMATableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblQS_TeamsMATableAdapter.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._tblRechnungsnotizenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblRechnungsnotizenTableAdapter.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._tblRefTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblRefTableAdapter.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._tblRefBeziehungenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblRefBeziehungenTableAdapter.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._tblRKSV_KassenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblRKSV_KassenTableAdapter.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._tblRKSV_POSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblRKSV_POSTableAdapter.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._tblRMCImportTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblRMCImportTableAdapter.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._tblSMSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblSMSTableAdapter.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._tblSpeditionsbucharchivTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblSpeditionsbucharchivTableAdapter.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._tblSpeditionsbuchEndEmpfaengerTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.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._tblSpeditionsbuchUnterPosTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblSpeditionsbuchUnterPosTableAdapter.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._tblSpeditionsbuchUnterPosArtenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblSpeditionsbuchUnterPosArtenTableAdapter.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._tblSteuernummernTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblSteuernummernTableAdapter.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._tblSteuersätzeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblSteuersätzeTableAdapter.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._tblSteuertypTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblSteuertypTableAdapter.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._tblTelotec_AbgabenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTelotec_AbgabenTableAdapter.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._tblTelotec_AnmeldungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTelotec_AnmeldungTableAdapter.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._tblTelotec_PackstueckeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTelotec_PackstueckeTableAdapter.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._tblTelotec_ParamterTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTelotec_ParamterTableAdapter.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._tblTelotec_PositionsdatenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTelotec_PositionsdatenTableAdapter.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._tblTelotec_PositionsdatenAbgabenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTelotec_PositionsdatenAbgabenTableAdapter.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._tblTelotec_PositionsdatenDokumenteTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTelotec_PositionsdatenDokumenteTableAdapter.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._tblTelotec_SicherheitTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTelotec_SicherheitTableAdapter.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._tblTestTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTestTableAdapter.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._tblTextkonserveTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTextkonserveTableAdapter.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._tblTR_AvisoTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTR_AvisoTableAdapter.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._tblTR_AvisoAnheangeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTR_AvisoAnheangeTableAdapter.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._tblTR_ShipmentTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTR_ShipmentTableAdapter.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._tblTR_Shipment_AdressenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTR_Shipment_AdressenTableAdapter.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._tblTR_Shipment_DocumentTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTR_Shipment_DocumentTableAdapter.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._tblTR_Shipment_PositionTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTR_Shipment_PositionTableAdapter.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._tblTR_Shipment_Position_DocumentTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTR_Shipment_Position_DocumentTableAdapter.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._tblTranslateTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTranslateTableAdapter.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._tblTranslateAutoTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTranslateAutoTableAdapter.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._tblTrdinHeaderTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTrdinHeaderTableAdapter.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._tblTrdinInvoiceTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTrdinInvoiceTableAdapter.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._tblTrdinProductTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblTrdinProductTableAdapter.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._tblUIDPruefungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUIDPruefungTableAdapter.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._tblUStVAntragTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUStVAntragTableAdapter.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._tblUStVBelegeingangTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUStVBelegeingangTableAdapter.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._tblUStVErstattungTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUStVErstattungTableAdapter.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._tblUStVFormulareTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUStVFormulareTableAdapter.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._tblUStVKuLäFoTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUStVKuLäFoTableAdapter.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._tblUStVLäFoTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUStVLäFoTableAdapter.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._tblUStVLeistenderTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUStVLeistenderTableAdapter.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._tblUStVPositionenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUStVPositionenTableAdapter.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._tblUStVTexteTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUStVTexteTableAdapter.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._tblUTAArchivTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUTAArchivTableAdapter.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._tblUTAFakturierwarenartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUTAFakturierwarenartenTableAdapter.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._tblUTAHeaderTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUTAHeaderTableAdapter.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._tblUTAHeaderNewTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUTAHeaderNewTableAdapter.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._tblUTAImportTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUTAImportTableAdapter.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._tblUTAImportNewTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUTAImportNewTableAdapter.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._tblUTALeistungenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUTALeistungenTableAdapter.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._tblUTATrailerTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUTATrailerTableAdapter.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._tblUTATrailerNewTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblUTATrailerNewTableAdapter.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._tblVermarktungsnormenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblVermarktungsnormenTableAdapter.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._tblVermarktungsnormenGebuehrenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblVermarktungsnormenGebuehrenTableAdapter.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._tblVorauskassenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblVorauskassenTableAdapter.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._tblWahrungtabelleNEUTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblWahrungtabelleNEUTableAdapter.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._tblWarenbezeichnungBegriffeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblWarenbezeichnungBegriffeTableAdapter.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._tblZabis_Atlas_NCTSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblZabis_Atlas_NCTSTableAdapter.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._tblZahlungszieltexteTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblZahlungszieltexteTableAdapter.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._tblZolaris_EZoll_NCTSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblZolaris_EZoll_NCTSTableAdapter.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._tblZOLL_WechselkurseTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblZOLL_WechselkurseTableAdapter.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._tblZollArtikelTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblZollArtikelTableAdapter.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._tblZollUnterArtikelTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tblZollUnterArtikelTableAdapter.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._temporaryUpsizedTable2TableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._temporaryUpsizedTable2TableAdapter.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._verkehrszweigeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._verkehrszweigeTableAdapter.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._vermerkeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._vermerkeTableAdapter.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._vorkostenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._vorkostenTableAdapter.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._währungstabelleTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._währungstabelleTableAdapter.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._zahlungsartenTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._zahlungsartenTableAdapter.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._zbadzTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._zbadzTableAdapter.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._zbantTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._zbantTableAdapter.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._zbapoTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._zbapoTableAdapter.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._zbposTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._zbposTableAdapter.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._zkteingTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._zkteingTableAdapter.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._zollsystemeTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._zollsystemeTableAdapter.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._zulassungen_ZnVTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._zulassungen_ZnVTableAdapter.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._abfertigungsartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._abfertigungsartenTableAdapter, Me._abfertigungsartenTableAdapter.Connection) Me._abfertigungsartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._abfertigungsartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._abfertigungsartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._abfertigungsartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._abfertigungsartenTableAdapter.Adapter) End If End If If (Not (Me._abfertigungskosten_der_KorrespondentenTableAdapter) Is Nothing) Then revertConnections.Add(Me._abfertigungskosten_der_KorrespondentenTableAdapter, Me._abfertigungskosten_der_KorrespondentenTableAdapter.Connection) Me._abfertigungskosten_der_KorrespondentenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._abfertigungskosten_der_KorrespondentenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._abfertigungskosten_der_KorrespondentenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._abfertigungskosten_der_KorrespondentenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._abfertigungskosten_der_KorrespondentenTableAdapter.Adapter) End If End If If (Not (Me._abfertigungsLaenderTableAdapter) Is Nothing) Then revertConnections.Add(Me._abfertigungsLaenderTableAdapter, Me._abfertigungsLaenderTableAdapter.Connection) Me._abfertigungsLaenderTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._abfertigungsLaenderTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._abfertigungsLaenderTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._abfertigungsLaenderTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._abfertigungsLaenderTableAdapter.Adapter) End If End If If (Not (Me._abfertigungsLaenderAbfertigungsartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._abfertigungsLaenderAbfertigungsartenTableAdapter, Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Connection) Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Adapter) End If End If If (Not (Me._abgabenartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._abgabenartenTableAdapter, Me._abgabenartenTableAdapter.Connection) Me._abgabenartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._abgabenartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._abgabenartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._abgabenartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._abgabenartenTableAdapter.Adapter) End If End If If (Not (Me._adressenTableAdapter) Is Nothing) Then revertConnections.Add(Me._adressenTableAdapter, Me._adressenTableAdapter.Connection) Me._adressenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._adressenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._adressenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._adressenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._adressenTableAdapter.Adapter) End If End If If (Not (Me._aktivitätenlogTableAdapter) Is Nothing) Then revertConnections.Add(Me._aktivitätenlogTableAdapter, Me._aktivitätenlogTableAdapter.Connection) Me._aktivitätenlogTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._aktivitätenlogTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._aktivitätenlogTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._aktivitätenlogTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._aktivitätenlogTableAdapter.Adapter) End If End If If (Not (Me._anlagenTableAdapter) Is Nothing) Then revertConnections.Add(Me._anlagenTableAdapter, Me._anlagenTableAdapter.Connection) Me._anlagenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._anlagenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._anlagenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._anlagenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._anlagenTableAdapter.Adapter) End If End If If (Not (Me._atlas_statusTableAdapter) Is Nothing) Then revertConnections.Add(Me._atlas_statusTableAdapter, Me._atlas_statusTableAdapter.Connection) Me._atlas_statusTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._atlas_statusTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._atlas_statusTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._atlas_statusTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._atlas_statusTableAdapter.Adapter) End If End If If (Not (Me._aufschubdatenTableAdapter) Is Nothing) Then revertConnections.Add(Me._aufschubdatenTableAdapter, Me._aufschubdatenTableAdapter.Connection) Me._aufschubdatenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._aufschubdatenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._aufschubdatenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._aufschubdatenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._aufschubdatenTableAdapter.Adapter) End If End If If (Not (Me._aufschubkontenTableAdapter) Is Nothing) Then revertConnections.Add(Me._aufschubkontenTableAdapter, Me._aufschubkontenTableAdapter.Connection) Me._aufschubkontenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._aufschubkontenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._aufschubkontenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._aufschubkontenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._aufschubkontenTableAdapter.Adapter) End If End If If (Not (Me._belegartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._belegartenTableAdapter, Me._belegartenTableAdapter.Connection) Me._belegartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._belegartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._belegartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._belegartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._belegartenTableAdapter.Adapter) End If End If If (Not (Me._berechnungsartTableAdapter) Is Nothing) Then revertConnections.Add(Me._berechnungsartTableAdapter, Me._berechnungsartTableAdapter.Connection) Me._berechnungsartTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._berechnungsartTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._berechnungsartTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._berechnungsartTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._berechnungsartTableAdapter.Adapter) End If End If If (Not (Me._berechnungsbogenTableAdapter) Is Nothing) Then revertConnections.Add(Me._berechnungsbogenTableAdapter, Me._berechnungsbogenTableAdapter.Connection) Me._berechnungsbogenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._berechnungsbogenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._berechnungsbogenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._berechnungsbogenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._berechnungsbogenTableAdapter.Adapter) End If End If If (Not (Me._berichteTableAdapter) Is Nothing) Then revertConnections.Add(Me._berichteTableAdapter, Me._berichteTableAdapter.Connection) Me._berichteTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._berichteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._berichteTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._berichteTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._berichteTableAdapter.Adapter) End If End If If (Not (Me._cMRTableAdapter) Is Nothing) Then revertConnections.Add(Me._cMRTableAdapter, Me._cMRTableAdapter.Connection) Me._cMRTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._cMRTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._cMRTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._cMRTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._cMRTableAdapter.Adapter) End If End If If (Not (Me._devisenkurseTableAdapter) Is Nothing) Then revertConnections.Add(Me._devisenkurseTableAdapter, Me._devisenkurseTableAdapter.Connection) Me._devisenkurseTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._devisenkurseTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._devisenkurseTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._devisenkurseTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._devisenkurseTableAdapter.Adapter) End If End If If (Not (Me._ePBesTableAdapter) Is Nothing) Then revertConnections.Add(Me._ePBesTableAdapter, Me._ePBesTableAdapter.Connection) Me._ePBesTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._ePBesTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._ePBesTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._ePBesTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._ePBesTableAdapter.Adapter) End If End If If (Not (Me._ePBesPOSTableAdapter) Is Nothing) Then revertConnections.Add(Me._ePBesPOSTableAdapter, Me._ePBesPOSTableAdapter.Connection) Me._ePBesPOSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._ePBesPOSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._ePBesPOSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._ePBesPOSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._ePBesPOSTableAdapter.Adapter) End If End If If (Not (Me._filialenTableAdapter) Is Nothing) Then revertConnections.Add(Me._filialenTableAdapter, Me._filialenTableAdapter.Connection) Me._filialenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._filialenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._filialenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._filialenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._filialenTableAdapter.Adapter) End If End If If (Not (Me._geschäftsartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._geschäftsartenTableAdapter, Me._geschäftsartenTableAdapter.Connection) Me._geschäftsartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._geschäftsartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._geschäftsartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._geschäftsartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._geschäftsartenTableAdapter.Adapter) End If End If If (Not (Me._korrespondentenTableAdapter) Is Nothing) Then revertConnections.Add(Me._korrespondentenTableAdapter, Me._korrespondentenTableAdapter.Connection) Me._korrespondentenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._korrespondentenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._korrespondentenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._korrespondentenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._korrespondentenTableAdapter.Adapter) End If End If If (Not (Me._kostenstellenTableAdapter) Is Nothing) Then revertConnections.Add(Me._kostenstellenTableAdapter, Me._kostenstellenTableAdapter.Connection) Me._kostenstellenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._kostenstellenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._kostenstellenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._kostenstellenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._kostenstellenTableAdapter.Adapter) End If End If If (Not (Me._kreditkartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._kreditkartenTableAdapter, Me._kreditkartenTableAdapter.Connection) Me._kreditkartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._kreditkartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._kreditkartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._kreditkartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._kreditkartenTableAdapter.Adapter) End If End If If (Not (Me._kundenTableAdapter) Is Nothing) Then revertConnections.Add(Me._kundenTableAdapter, Me._kundenTableAdapter.Connection) Me._kundenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._kundenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._kundenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._kundenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._kundenTableAdapter.Adapter) End If End If If (Not (Me._kundenFilialenTableAdapter) Is Nothing) Then revertConnections.Add(Me._kundenFilialenTableAdapter, Me._kundenFilialenTableAdapter.Connection) Me._kundenFilialenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._kundenFilialenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._kundenFilialenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._kundenFilialenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._kundenFilialenTableAdapter.Adapter) End If End If If (Not (Me._länder_der_Bundesrepublik_DeutschlandTableAdapter) Is Nothing) Then revertConnections.Add(Me._länder_der_Bundesrepublik_DeutschlandTableAdapter, Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Connection) Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Adapter) End If End If If (Not (Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter) Is Nothing) Then revertConnections.Add(Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter, Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Connection) Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Adapter) End If End If If (Not (Me._leistungenTableAdapter) Is Nothing) Then revertConnections.Add(Me._leistungenTableAdapter, Me._leistungenTableAdapter.Connection) Me._leistungenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._leistungenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._leistungenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._leistungenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._leistungenTableAdapter.Adapter) End If End If If (Not (Me._leistungenBUKontenTableAdapter) Is Nothing) Then revertConnections.Add(Me._leistungenBUKontenTableAdapter, Me._leistungenBUKontenTableAdapter.Connection) Me._leistungenBUKontenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._leistungenBUKontenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._leistungenBUKontenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._leistungenBUKontenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._leistungenBUKontenTableAdapter.Adapter) End If End If If (Not (Me._lieferbedingungenTableAdapter) Is Nothing) Then revertConnections.Add(Me._lieferbedingungenTableAdapter, Me._lieferbedingungenTableAdapter.Connection) Me._lieferbedingungenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._lieferbedingungenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._lieferbedingungenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._lieferbedingungenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._lieferbedingungenTableAdapter.Adapter) End If End If If (Not (Me._nebenkosten_der_KorrespondentenTableAdapter) Is Nothing) Then revertConnections.Add(Me._nebenkosten_der_KorrespondentenTableAdapter, Me._nebenkosten_der_KorrespondentenTableAdapter.Connection) Me._nebenkosten_der_KorrespondentenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._nebenkosten_der_KorrespondentenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._nebenkosten_der_KorrespondentenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._nebenkosten_der_KorrespondentenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._nebenkosten_der_KorrespondentenTableAdapter.Adapter) End If End If If (Not (Me._offene_PostenTableAdapter) Is Nothing) Then revertConnections.Add(Me._offene_PostenTableAdapter, Me._offene_PostenTableAdapter.Connection) Me._offene_PostenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._offene_PostenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._offene_PostenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._offene_PostenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._offene_PostenTableAdapter.Adapter) End If End If If (Not (Me._offene_Posten_DVOTableAdapter) Is Nothing) Then revertConnections.Add(Me._offene_Posten_DVOTableAdapter, Me._offene_Posten_DVOTableAdapter.Connection) Me._offene_Posten_DVOTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._offene_Posten_DVOTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._offene_Posten_DVOTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._offene_Posten_DVOTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._offene_Posten_DVOTableAdapter.Adapter) End If End If If (Not (Me._offertenTableAdapter) Is Nothing) Then revertConnections.Add(Me._offertenTableAdapter, Me._offertenTableAdapter.Connection) Me._offertenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._offertenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._offertenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._offertenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._offertenTableAdapter.Adapter) End If End If If (Not (Me._offertenpositionenTableAdapter) Is Nothing) Then revertConnections.Add(Me._offertenpositionenTableAdapter, Me._offertenpositionenTableAdapter.Connection) Me._offertenpositionenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._offertenpositionenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._offertenpositionenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._offertenpositionenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._offertenpositionenTableAdapter.Adapter) End If End If If (Not (Me._offertenstammTableAdapter) Is Nothing) Then revertConnections.Add(Me._offertenstammTableAdapter, Me._offertenstammTableAdapter.Connection) Me._offertenstammTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._offertenstammTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._offertenstammTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._offertenstammTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._offertenstammTableAdapter.Adapter) End If End If If (Not (Me._personalTableAdapter) Is Nothing) Then revertConnections.Add(Me._personalTableAdapter, Me._personalTableAdapter.Connection) Me._personalTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._personalTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._personalTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._personalTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._personalTableAdapter.Adapter) End If End If If (Not (Me._rechnungsausgangTableAdapter) Is Nothing) Then revertConnections.Add(Me._rechnungsausgangTableAdapter, Me._rechnungsausgangTableAdapter.Connection) Me._rechnungsausgangTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._rechnungsausgangTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._rechnungsausgangTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._rechnungsausgangTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._rechnungsausgangTableAdapter.Adapter) End If End If If (Not (Me._rechnungsausgangAnhaengeTableAdapter) Is Nothing) Then revertConnections.Add(Me._rechnungsausgangAnhaengeTableAdapter, Me._rechnungsausgangAnhaengeTableAdapter.Connection) Me._rechnungsausgangAnhaengeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._rechnungsausgangAnhaengeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._rechnungsausgangAnhaengeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._rechnungsausgangAnhaengeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._rechnungsausgangAnhaengeTableAdapter.Adapter) End If End If If (Not (Me._rechnungsausgangPositionenTableAdapter) Is Nothing) Then revertConnections.Add(Me._rechnungsausgangPositionenTableAdapter, Me._rechnungsausgangPositionenTableAdapter.Connection) Me._rechnungsausgangPositionenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._rechnungsausgangPositionenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._rechnungsausgangPositionenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._rechnungsausgangPositionenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._rechnungsausgangPositionenTableAdapter.Adapter) End If End If If (Not (Me._rechnungsnummernTableAdapter) Is Nothing) Then revertConnections.Add(Me._rechnungsnummernTableAdapter, Me._rechnungsnummernTableAdapter.Connection) Me._rechnungsnummernTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._rechnungsnummernTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._rechnungsnummernTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._rechnungsnummernTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._rechnungsnummernTableAdapter.Adapter) End If End If If (Not (Me._rechnungstexteTableAdapter) Is Nothing) Then revertConnections.Add(Me._rechnungstexteTableAdapter, Me._rechnungstexteTableAdapter.Connection) Me._rechnungstexteTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._rechnungstexteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._rechnungstexteTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._rechnungstexteTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._rechnungstexteTableAdapter.Adapter) End If End If If (Not (Me._speditionsbuchTableAdapter) Is Nothing) Then revertConnections.Add(Me._speditionsbuchTableAdapter, Me._speditionsbuchTableAdapter.Connection) Me._speditionsbuchTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._speditionsbuchTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._speditionsbuchTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._speditionsbuchTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._speditionsbuchTableAdapter.Adapter) End If End If If (Not (Me._standardoffertenTableAdapter) Is Nothing) Then revertConnections.Add(Me._standardoffertenTableAdapter, Me._standardoffertenTableAdapter.Connection) Me._standardoffertenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._standardoffertenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._standardoffertenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._standardoffertenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._standardoffertenTableAdapter.Adapter) End If End If If (Not (Me._standardoffertenFirmaTableAdapter) Is Nothing) Then revertConnections.Add(Me._standardoffertenFirmaTableAdapter, Me._standardoffertenFirmaTableAdapter.Connection) Me._standardoffertenFirmaTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._standardoffertenFirmaTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._standardoffertenFirmaTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._standardoffertenFirmaTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._standardoffertenFirmaTableAdapter.Adapter) End If End If If (Not (Me._steuertabelleTableAdapter) Is Nothing) Then revertConnections.Add(Me._steuertabelleTableAdapter, Me._steuertabelleTableAdapter.Connection) Me._steuertabelleTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._steuertabelleTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._steuertabelleTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._steuertabelleTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._steuertabelleTableAdapter.Adapter) End If End If If (Not (Me._tbl_ASFINAG_FileInfoTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_ASFINAG_FileInfoTableAdapter, Me._tbl_ASFINAG_FileInfoTableAdapter.Connection) Me._tbl_ASFINAG_FileInfoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_ASFINAG_FileInfoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_ASFINAG_FileInfoTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_ASFINAG_FileInfoTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_ASFINAG_FileInfoTableAdapter.Adapter) End If End If If (Not (Me._tbl_BMD_LänderTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_BMD_LänderTableAdapter, Me._tbl_BMD_LänderTableAdapter.Connection) Me._tbl_BMD_LänderTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_BMD_LänderTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_BMD_LänderTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_BMD_LänderTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_BMD_LänderTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ParamterTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ParamterTableAdapter, Me._tbl_DY_ParamterTableAdapter.Connection) Me._tbl_DY_ParamterTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ParamterTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ParamterTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ParamterTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ParamterTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter, Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Connection) Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter, Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Connection) Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter, Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Connection) Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter, Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Connection) Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter, Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Connection) Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter, Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Connection) Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter, Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Connection) Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter, Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Connection) Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter, Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Connection) Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter, Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Connection) Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter, Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Connection) Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter, Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Connection) Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Adapter) End If End If If (Not (Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter, Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Connection) Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Adapter) End If End If If (Not (Me._tbl_ErrorsTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_ErrorsTableAdapter, Me._tbl_ErrorsTableAdapter.Connection) Me._tbl_ErrorsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_ErrorsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_ErrorsTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_ErrorsTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_ErrorsTableAdapter.Adapter) End If End If If (Not (Me._tbl_IDS_Kategorien_KundenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_IDS_Kategorien_KundenTableAdapter, Me._tbl_IDS_Kategorien_KundenTableAdapter.Connection) Me._tbl_IDS_Kategorien_KundenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_Kategorien_KundenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_IDS_Kategorien_KundenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_IDS_Kategorien_KundenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_IDS_Kategorien_KundenTableAdapter.Adapter) End If End If If (Not (Me._tbl_IDS_Kategorien_RechenwerteTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_IDS_Kategorien_RechenwerteTableAdapter, Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Connection) Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Adapter) End If End If If (Not (Me._tbl_IDS_KundenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_IDS_KundenTableAdapter, Me._tbl_IDS_KundenTableAdapter.Connection) Me._tbl_IDS_KundenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_KundenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_IDS_KundenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_IDS_KundenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_IDS_KundenTableAdapter.Adapter) End If End If If (Not (Me._tbl_IDS_Kunden_ohne_RabattTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_IDS_Kunden_ohne_RabattTableAdapter, Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Connection) Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Adapter) End If End If If (Not (Me._tbl_IDS_LänderTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_IDS_LänderTableAdapter, Me._tbl_IDS_LänderTableAdapter.Connection) Me._tbl_IDS_LänderTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_LänderTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_IDS_LänderTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_IDS_LänderTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_IDS_LänderTableAdapter.Adapter) End If End If If (Not (Me._tbl_IDS_ProdukteTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_IDS_ProdukteTableAdapter, Me._tbl_IDS_ProdukteTableAdapter.Connection) Me._tbl_IDS_ProdukteTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_ProdukteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_IDS_ProdukteTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_IDS_ProdukteTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_IDS_ProdukteTableAdapter.Adapter) End If End If If (Not (Me._tbl_IDS_RechenwerteTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_IDS_RechenwerteTableAdapter, Me._tbl_IDS_RechenwerteTableAdapter.Connection) Me._tbl_IDS_RechenwerteTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_RechenwerteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_IDS_RechenwerteTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_IDS_RechenwerteTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_IDS_RechenwerteTableAdapter.Adapter) End If End If If (Not (Me._tbl_IDS_StationenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_IDS_StationenTableAdapter, Me._tbl_IDS_StationenTableAdapter.Connection) Me._tbl_IDS_StationenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_StationenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_IDS_StationenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_IDS_StationenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_IDS_StationenTableAdapter.Adapter) End If End If If (Not (Me._tbl_Intrastat_AusfuhrTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_Intrastat_AusfuhrTableAdapter, Me._tbl_Intrastat_AusfuhrTableAdapter.Connection) Me._tbl_Intrastat_AusfuhrTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_Intrastat_AusfuhrTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_Intrastat_AusfuhrTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_Intrastat_AusfuhrTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_Intrastat_AusfuhrTableAdapter.Adapter) End If End If If (Not (Me._tbl_TelefonbuchTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_TelefonbuchTableAdapter, Me._tbl_TelefonbuchTableAdapter.Connection) Me._tbl_TelefonbuchTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_TelefonbuchTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_TelefonbuchTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_TelefonbuchTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_TelefonbuchTableAdapter.Adapter) End If End If If (Not (Me._tbl_TelefonnummernTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_TelefonnummernTableAdapter, Me._tbl_TelefonnummernTableAdapter.Connection) Me._tbl_TelefonnummernTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_TelefonnummernTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_TelefonnummernTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_TelefonnummernTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_TelefonnummernTableAdapter.Adapter) End If End If If (Not (Me._tbl_WÖLFLTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_WÖLFLTableAdapter, Me._tbl_WÖLFLTableAdapter.Connection) Me._tbl_WÖLFLTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_WÖLFLTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_WÖLFLTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_WÖLFLTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_WÖLFLTableAdapter.Adapter) End If End If If (Not (Me._tbl_ZM_tabelleTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_ZM_tabelleTableAdapter, Me._tbl_ZM_tabelleTableAdapter.Connection) Me._tbl_ZM_tabelleTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_ZM_tabelleTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_ZM_tabelleTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_ZM_tabelleTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_ZM_tabelleTableAdapter.Adapter) End If End If If (Not (Me._tblAbfertigungsartenFilialeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblAbfertigungsartenFilialeTableAdapter, Me._tblAbfertigungsartenFilialeTableAdapter.Connection) Me._tblAbfertigungsartenFilialeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblAbfertigungsartenFilialeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblAbfertigungsartenFilialeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblAbfertigungsartenFilialeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblAbfertigungsartenFilialeTableAdapter.Adapter) End If End If If (Not (Me._tblAbfertigungsartOffertenstammTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblAbfertigungsartOffertenstammTableAdapter, Me._tblAbfertigungsartOffertenstammTableAdapter.Connection) Me._tblAbfertigungsartOffertenstammTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblAbfertigungsartOffertenstammTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblAbfertigungsartOffertenstammTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblAbfertigungsartOffertenstammTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblAbfertigungsartOffertenstammTableAdapter.Adapter) End If End If If (Not (Me._tblAbrechnung_NCTSBrgTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblAbrechnung_NCTSBrgTableAdapter, Me._tblAbrechnung_NCTSBrgTableAdapter.Connection) Me._tblAbrechnung_NCTSBrgTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblAbrechnung_NCTSBrgTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblAbrechnung_NCTSBrgTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblAbrechnung_NCTSBrgTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblAbrechnung_NCTSBrgTableAdapter.Adapter) End If End If If (Not (Me._tblAnmeldungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblAnmeldungTableAdapter, Me._tblAnmeldungTableAdapter.Connection) Me._tblAnmeldungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblAnmeldungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblAnmeldungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblAnmeldungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblAnmeldungTableAdapter.Adapter) End If End If If (Not (Me._tblAsfinagMautTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblAsfinagMautTableAdapter, Me._tblAsfinagMautTableAdapter.Connection) Me._tblAsfinagMautTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblAsfinagMautTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblAsfinagMautTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblAsfinagMautTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblAsfinagMautTableAdapter.Adapter) End If End If If (Not (Me._tblATEZ_NCTSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblATEZ_NCTSTableAdapter, Me._tblATEZ_NCTSTableAdapter.Connection) Me._tblATEZ_NCTSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblATEZ_NCTSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblATEZ_NCTSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblATEZ_NCTSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblATEZ_NCTSTableAdapter.Adapter) End If End If If (Not (Me._tblATEZ_NCTS_RoutenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblATEZ_NCTS_RoutenTableAdapter, Me._tblATEZ_NCTS_RoutenTableAdapter.Connection) Me._tblATEZ_NCTS_RoutenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblATEZ_NCTS_RoutenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblATEZ_NCTS_RoutenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblATEZ_NCTS_RoutenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblATEZ_NCTS_RoutenTableAdapter.Adapter) End If End If If (Not (Me._tblATEZ_NCTS_SessionsTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblATEZ_NCTS_SessionsTableAdapter, Me._tblATEZ_NCTS_SessionsTableAdapter.Connection) Me._tblATEZ_NCTS_SessionsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblATEZ_NCTS_SessionsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblATEZ_NCTS_SessionsTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblATEZ_NCTS_SessionsTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblATEZ_NCTS_SessionsTableAdapter.Adapter) End If End If If (Not (Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter, Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Connection) Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Adapter) End If End If If (Not (Me._tblBankspesenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblBankspesenTableAdapter, Me._tblBankspesenTableAdapter.Connection) Me._tblBankspesenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblBankspesenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblBankspesenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblBankspesenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblBankspesenTableAdapter.Adapter) End If End If If (Not (Me._tblBerechnungsmethodeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblBerechnungsmethodeTableAdapter, Me._tblBerechnungsmethodeTableAdapter.Connection) Me._tblBerechnungsmethodeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblBerechnungsmethodeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblBerechnungsmethodeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblBerechnungsmethodeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblBerechnungsmethodeTableAdapter.Adapter) End If End If If (Not (Me._tblBerichtsdruckerTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblBerichtsdruckerTableAdapter, Me._tblBerichtsdruckerTableAdapter.Connection) Me._tblBerichtsdruckerTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblBerichtsdruckerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblBerichtsdruckerTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblBerichtsdruckerTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblBerichtsdruckerTableAdapter.Adapter) End If End If If (Not (Me._tblBesuchsberichteTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblBesuchsberichteTableAdapter, Me._tblBesuchsberichteTableAdapter.Connection) Me._tblBesuchsberichteTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblBesuchsberichteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblBesuchsberichteTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblBesuchsberichteTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblBesuchsberichteTableAdapter.Adapter) End If End If If (Not (Me._tblBonitaetsauskunftTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblBonitaetsauskunftTableAdapter, Me._tblBonitaetsauskunftTableAdapter.Connection) Me._tblBonitaetsauskunftTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblBonitaetsauskunftTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblBonitaetsauskunftTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblBonitaetsauskunftTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblBonitaetsauskunftTableAdapter.Adapter) End If End If If (Not (Me._tblBuchungstextTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblBuchungstextTableAdapter, Me._tblBuchungstextTableAdapter.Connection) Me._tblBuchungstextTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblBuchungstextTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblBuchungstextTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblBuchungstextTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblBuchungstextTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_AESTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_AESTableAdapter, Me._tblDakosy_AESTableAdapter.Connection) Me._tblDakosy_AESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_AESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_AESTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_AESTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_AESTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_AES_WarenpositionTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_AES_WarenpositionTableAdapter, Me._tblDakosy_AES_WarenpositionTableAdapter.Connection) Me._tblDakosy_AES_WarenpositionTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_AES_WarenpositionTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_AES_WarenpositionTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_AES_WarenpositionTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_AES_WarenpositionTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter, Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Connection) Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter, Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Connection) Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_EZATableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_EZATableAdapter, Me._tblDakosy_EZATableAdapter.Connection) Me._tblDakosy_EZATableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZATableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_EZATableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_EZATableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_EZATableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_EZA_AdressenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_EZA_AdressenTableAdapter, Me._tblDakosy_EZA_AdressenTableAdapter.Connection) Me._tblDakosy_EZA_AdressenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_AdressenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_EZA_AdressenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_EZA_AdressenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_EZA_AdressenTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_EZA_AufschubTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_EZA_AufschubTableAdapter, Me._tblDakosy_EZA_AufschubTableAdapter.Connection) Me._tblDakosy_EZA_AufschubTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_AufschubTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_EZA_AufschubTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_EZA_AufschubTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_EZA_AufschubTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter, Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Connection) Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter, Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Connection) Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_EZA_UnterlagenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_EZA_UnterlagenTableAdapter, Me._tblDakosy_EZA_UnterlagenTableAdapter.Connection) Me._tblDakosy_EZA_UnterlagenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_UnterlagenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_EZA_UnterlagenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_EZA_UnterlagenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_EZA_UnterlagenTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_EZA_WarenpositionTableAdapter, Me._tblDakosy_EZA_WarenpositionTableAdapter.Connection) Me._tblDakosy_EZA_WarenpositionTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_WarenpositionTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_EZA_WarenpositionTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_EZA_WarenpositionTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_EZA_WarenpositionTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter, Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Connection) Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter, Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Connection) Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter, Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Connection) Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOutTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOutTableAdapter, Me._tblDakosy_NCTSOutTableAdapter.Connection) Me._tblDakosy_NCTSOutTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOutTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOutTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOutTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOutTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter, Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Connection) Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOut_WarenpositionTableAdapter, Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Connection) Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter, Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Connection) Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter, Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Connection) Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOut004TableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOut004TableAdapter, Me._tblDakosy_NCTSOut004TableAdapter.Connection) Me._tblDakosy_NCTSOut004TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOut004TableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOut004TableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOut004TableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter, Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Connection) Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter, Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Connection) Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter, Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Connection) Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter, Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Connection) Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter, Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Connection) Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_StammreferenzenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_StammreferenzenTableAdapter, Me._tblDakosy_StammreferenzenTableAdapter.Connection) Me._tblDakosy_StammreferenzenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_StammreferenzenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_StammreferenzenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_StammreferenzenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_StammreferenzenTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_StatusmeldungenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_StatusmeldungenTableAdapter, Me._tblDakosy_StatusmeldungenTableAdapter.Connection) Me._tblDakosy_StatusmeldungenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_StatusmeldungenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_StatusmeldungenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_StatusmeldungenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_StatusmeldungenTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_ZollanmeldungenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_ZollanmeldungenTableAdapter, Me._tblDakosy_ZollanmeldungenTableAdapter.Connection) Me._tblDakosy_ZollanmeldungenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_ZollanmeldungenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_ZollanmeldungenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_ZollanmeldungenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_ZollanmeldungenTableAdapter.Adapter) End If End If If (Not (Me._tblDakosy_ZollanmeldungenArtenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDakosy_ZollanmeldungenArtenTableAdapter, Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Connection) Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Adapter) End If End If If (Not (Me._tblDatenarchivTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDatenarchivTableAdapter, Me._tblDatenarchivTableAdapter.Connection) Me._tblDatenarchivTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDatenarchivTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDatenarchivTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDatenarchivTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDatenarchivTableAdapter.Adapter) End If End If If (Not (Me._tblDatenarchiv_CollectionTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDatenarchiv_CollectionTableAdapter, Me._tblDatenarchiv_CollectionTableAdapter.Connection) Me._tblDatenarchiv_CollectionTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDatenarchiv_CollectionTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDatenarchiv_CollectionTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDatenarchiv_CollectionTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDatenarchiv_CollectionTableAdapter.Adapter) End If End If If (Not (Me._tblDEBundeslaenderPLZTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDEBundeslaenderPLZTableAdapter, Me._tblDEBundeslaenderPLZTableAdapter.Connection) Me._tblDEBundeslaenderPLZTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDEBundeslaenderPLZTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDEBundeslaenderPLZTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDEBundeslaenderPLZTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDEBundeslaenderPLZTableAdapter.Adapter) End If End If If (Not (Me._tblDHF_AnhaengeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDHF_AnhaengeTableAdapter, Me._tblDHF_AnhaengeTableAdapter.Connection) Me._tblDHF_AnhaengeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDHF_AnhaengeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDHF_AnhaengeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDHF_AnhaengeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDHF_AnhaengeTableAdapter.Adapter) End If End If If (Not (Me._tblDieselArchivTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDieselArchivTableAdapter, Me._tblDieselArchivTableAdapter.Connection) Me._tblDieselArchivTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDieselArchivTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDieselArchivTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDieselArchivTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDieselArchivTableAdapter.Adapter) End If End If If (Not (Me._tblDigicust_SendungenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDigicust_SendungenTableAdapter, Me._tblDigicust_SendungenTableAdapter.Connection) Me._tblDigicust_SendungenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDigicust_SendungenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDigicust_SendungenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDigicust_SendungenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDigicust_SendungenTableAdapter.Adapter) End If End If If (Not (Me._tblDigicust_SessionsTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDigicust_SessionsTableAdapter, Me._tblDigicust_SessionsTableAdapter.Connection) Me._tblDigicust_SessionsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDigicust_SessionsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDigicust_SessionsTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDigicust_SessionsTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDigicust_SessionsTableAdapter.Adapter) End If End If If (Not (Me._tblDigicust_SettingsTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblDigicust_SettingsTableAdapter, Me._tblDigicust_SettingsTableAdapter.Connection) Me._tblDigicust_SettingsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblDigicust_SettingsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblDigicust_SettingsTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblDigicust_SettingsTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblDigicust_SettingsTableAdapter.Adapter) End If End If If (Not (Me._tblEABelegnummerTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblEABelegnummerTableAdapter, Me._tblEABelegnummerTableAdapter.Connection) Me._tblEABelegnummerTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblEABelegnummerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblEABelegnummerTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblEABelegnummerTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblEABelegnummerTableAdapter.Adapter) End If End If If (Not (Me._tblEABelegpositionTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblEABelegpositionTableAdapter, Me._tblEABelegpositionTableAdapter.Connection) Me._tblEABelegpositionTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblEABelegpositionTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblEABelegpositionTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblEABelegpositionTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblEABelegpositionTableAdapter.Adapter) End If End If If (Not (Me._tblEmailBenachrichtigungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblEmailBenachrichtigungTableAdapter, Me._tblEmailBenachrichtigungTableAdapter.Connection) Me._tblEmailBenachrichtigungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblEmailBenachrichtigungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblEmailBenachrichtigungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblEmailBenachrichtigungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblEmailBenachrichtigungTableAdapter.Adapter) End If End If If (Not (Me._tblEmailBenachrichtigungArtenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblEmailBenachrichtigungArtenTableAdapter, Me._tblEmailBenachrichtigungArtenTableAdapter.Connection) Me._tblEmailBenachrichtigungArtenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblEmailBenachrichtigungArtenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblEmailBenachrichtigungArtenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblEmailBenachrichtigungArtenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblEmailBenachrichtigungArtenTableAdapter.Adapter) End If End If If (Not (Me._tblEORIPruefungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblEORIPruefungTableAdapter, Me._tblEORIPruefungTableAdapter.Connection) Me._tblEORIPruefungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblEORIPruefungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblEORIPruefungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblEORIPruefungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblEORIPruefungTableAdapter.Adapter) End If End If If (Not (Me._tblEZB_WaehrungskurseTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblEZB_WaehrungskurseTableAdapter, Me._tblEZB_WaehrungskurseTableAdapter.Connection) Me._tblEZB_WaehrungskurseTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblEZB_WaehrungskurseTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblEZB_WaehrungskurseTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblEZB_WaehrungskurseTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblEZB_WaehrungskurseTableAdapter.Adapter) End If End If If (Not (Me._tblEZT_ImportcodenummernTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblEZT_ImportcodenummernTableAdapter, Me._tblEZT_ImportcodenummernTableAdapter.Connection) Me._tblEZT_ImportcodenummernTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblEZT_ImportcodenummernTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblEZT_ImportcodenummernTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblEZT_ImportcodenummernTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblEZT_ImportcodenummernTableAdapter.Adapter) End If End If If (Not (Me._tblFahrerDatenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblFahrerDatenTableAdapter, Me._tblFahrerDatenTableAdapter.Connection) Me._tblFahrerDatenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblFahrerDatenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblFahrerDatenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblFahrerDatenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblFahrerDatenTableAdapter.Adapter) End If End If If (Not (Me._tblFirmaTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblFirmaTableAdapter, Me._tblFirmaTableAdapter.Connection) Me._tblFirmaTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblFirmaTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblFirmaTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblFirmaTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblFirmaTableAdapter.Adapter) End If End If If (Not (Me._tblFiskal_DatenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblFiskal_DatenTableAdapter, Me._tblFiskal_DatenTableAdapter.Connection) Me._tblFiskal_DatenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblFiskal_DatenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblFiskal_DatenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblFiskal_DatenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblFiskal_DatenTableAdapter.Adapter) End If End If If (Not (Me._tblFiskalkundenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblFiskalkundenTableAdapter, Me._tblFiskalkundenTableAdapter.Connection) Me._tblFiskalkundenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblFiskalkundenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblFiskalkundenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblFiskalkundenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblFiskalkundenTableAdapter.Adapter) End If End If If (Not (Me._tblFormulardatenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblFormulardatenTableAdapter, Me._tblFormulardatenTableAdapter.Connection) Me._tblFormulardatenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblFormulardatenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblFormulardatenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblFormulardatenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblFormulardatenTableAdapter.Adapter) End If End If If (Not (Me._tblFormulareVorlagenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblFormulareVorlagenTableAdapter, Me._tblFormulareVorlagenTableAdapter.Connection) Me._tblFormulareVorlagenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblFormulareVorlagenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblFormulareVorlagenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblFormulareVorlagenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblFormulareVorlagenTableAdapter.Adapter) End If End If If (Not (Me._tblFormulareVorlagenValuesTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblFormulareVorlagenValuesTableAdapter, Me._tblFormulareVorlagenValuesTableAdapter.Connection) Me._tblFormulareVorlagenValuesTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblFormulareVorlagenValuesTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblFormulareVorlagenValuesTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblFormulareVorlagenValuesTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblFormulareVorlagenValuesTableAdapter.Adapter) End If End If If (Not (Me._tblFremdSpeditionenZuordnungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblFremdSpeditionenZuordnungTableAdapter, Me._tblFremdSpeditionenZuordnungTableAdapter.Connection) Me._tblFremdSpeditionenZuordnungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblFremdSpeditionenZuordnungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblFremdSpeditionenZuordnungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblFremdSpeditionenZuordnungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblFremdSpeditionenZuordnungTableAdapter.Adapter) End If End If If (Not (Me._tblFTP_LogTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblFTP_LogTableAdapter, Me._tblFTP_LogTableAdapter.Connection) Me._tblFTP_LogTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblFTP_LogTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblFTP_LogTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblFTP_LogTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblFTP_LogTableAdapter.Adapter) End If End If If (Not (Me._tblFTP_Log_Backup2TableAdapter) Is Nothing) Then revertConnections.Add(Me._tblFTP_Log_Backup2TableAdapter, Me._tblFTP_Log_Backup2TableAdapter.Connection) Me._tblFTP_Log_Backup2TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblFTP_Log_Backup2TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblFTP_Log_Backup2TableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblFTP_Log_Backup2TableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblFTP_Log_Backup2TableAdapter.Adapter) End If End If If (Not (Me._tblGebuehrenvermarktungsnormenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGebuehrenvermarktungsnormenTableAdapter, Me._tblGebuehrenvermarktungsnormenTableAdapter.Connection) Me._tblGebuehrenvermarktungsnormenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGebuehrenvermarktungsnormenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGebuehrenvermarktungsnormenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGebuehrenvermarktungsnormenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGebuehrenvermarktungsnormenTableAdapter.Adapter) End If End If If (Not (Me._tblGelangensbestaetigungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGelangensbestaetigungTableAdapter, Me._tblGelangensbestaetigungTableAdapter.Connection) Me._tblGelangensbestaetigungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGelangensbestaetigungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGelangensbestaetigungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGelangensbestaetigungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGelangensbestaetigungTableAdapter.Adapter) End If End If If (Not (Me._tblGeschäftsjahrTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGeschäftsjahrTableAdapter, Me._tblGeschäftsjahrTableAdapter.Connection) Me._tblGeschäftsjahrTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGeschäftsjahrTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGeschäftsjahrTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGeschäftsjahrTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGeschäftsjahrTableAdapter.Adapter) End If End If If (Not (Me._tblGeschäftsjahrBelegNrTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGeschäftsjahrBelegNrTableAdapter, Me._tblGeschäftsjahrBelegNrTableAdapter.Connection) Me._tblGeschäftsjahrBelegNrTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGeschäftsjahrBelegNrTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGeschäftsjahrBelegNrTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGeschäftsjahrBelegNrTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGeschäftsjahrBelegNrTableAdapter.Adapter) End If End If If (Not (Me._tblGeschäftsjahrJournalNrTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGeschäftsjahrJournalNrTableAdapter, Me._tblGeschäftsjahrJournalNrTableAdapter.Connection) Me._tblGeschäftsjahrJournalNrTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGeschäftsjahrJournalNrTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGeschäftsjahrJournalNrTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGeschäftsjahrJournalNrTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGeschäftsjahrJournalNrTableAdapter.Adapter) End If End If If (Not (Me._tblGestellungsgarantienTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGestellungsgarantienTableAdapter, Me._tblGestellungsgarantienTableAdapter.Connection) Me._tblGestellungsgarantienTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGestellungsgarantienTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGestellungsgarantienTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGestellungsgarantienTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGestellungsgarantienTableAdapter.Adapter) End If End If If (Not (Me._tblGestellungsmitteilungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGestellungsmitteilungTableAdapter, Me._tblGestellungsmitteilungTableAdapter.Connection) Me._tblGestellungsmitteilungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGestellungsmitteilungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGestellungsmitteilungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGestellungsmitteilungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGestellungsmitteilungTableAdapter.Adapter) End If End If If (Not (Me._tblGestellungsmitteilung_PositionenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGestellungsmitteilung_PositionenTableAdapter, Me._tblGestellungsmitteilung_PositionenTableAdapter.Connection) Me._tblGestellungsmitteilung_PositionenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGestellungsmitteilung_PositionenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGestellungsmitteilung_PositionenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGestellungsmitteilung_PositionenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGestellungsmitteilung_PositionenTableAdapter.Adapter) End If End If If (Not (Me._tblGOBOXBestellungenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGOBOXBestellungenTableAdapter, Me._tblGOBOXBestellungenTableAdapter.Connection) Me._tblGOBOXBestellungenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGOBOXBestellungenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGOBOXBestellungenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGOBOXBestellungenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGOBOXBestellungenTableAdapter.Adapter) End If End If If (Not (Me._tblGVMSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGVMSTableAdapter, Me._tblGVMSTableAdapter.Connection) Me._tblGVMSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGVMSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGVMSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGVMSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGVMSTableAdapter.Adapter) End If End If If (Not (Me._tblGVMS_CarriersTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGVMS_CarriersTableAdapter, Me._tblGVMS_CarriersTableAdapter.Connection) Me._tblGVMS_CarriersTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGVMS_CarriersTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGVMS_CarriersTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGVMS_CarriersTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGVMS_CarriersTableAdapter.Adapter) End If End If If (Not (Me._tblGVMS_PortsTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGVMS_PortsTableAdapter, Me._tblGVMS_PortsTableAdapter.Connection) Me._tblGVMS_PortsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGVMS_PortsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGVMS_PortsTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGVMS_PortsTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGVMS_PortsTableAdapter.Adapter) End If End If If (Not (Me._tblGVMS_PosTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGVMS_PosTableAdapter, Me._tblGVMS_PosTableAdapter.Connection) Me._tblGVMS_PosTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGVMS_PosTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGVMS_PosTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGVMS_PosTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGVMS_PosTableAdapter.Adapter) End If End If If (Not (Me._tblGVMS_RoutesTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblGVMS_RoutesTableAdapter, Me._tblGVMS_RoutesTableAdapter.Connection) Me._tblGVMS_RoutesTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblGVMS_RoutesTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblGVMS_RoutesTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblGVMS_RoutesTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblGVMS_RoutesTableAdapter.Adapter) End If End If If (Not (Me._tblHandlingssaetzeInternTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblHandlingssaetzeInternTableAdapter, Me._tblHandlingssaetzeInternTableAdapter.Connection) Me._tblHandlingssaetzeInternTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblHandlingssaetzeInternTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblHandlingssaetzeInternTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblHandlingssaetzeInternTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblHandlingssaetzeInternTableAdapter.Adapter) End If End If If (Not (Me._tblHistorieTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblHistorieTableAdapter, Me._tblHistorieTableAdapter.Connection) Me._tblHistorieTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblHistorieTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblHistorieTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblHistorieTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblHistorieTableAdapter.Adapter) End If End If If (Not (Me._tblIDS_TransaktionenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblIDS_TransaktionenTableAdapter, Me._tblIDS_TransaktionenTableAdapter.Connection) Me._tblIDS_TransaktionenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblIDS_TransaktionenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblIDS_TransaktionenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblIDS_TransaktionenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblIDS_TransaktionenTableAdapter.Adapter) End If End If If (Not (Me._tblKassenbuchTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKassenbuchTableAdapter, Me._tblKassenbuchTableAdapter.Connection) Me._tblKassenbuchTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKassenbuchTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKassenbuchTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKassenbuchTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKassenbuchTableAdapter.Adapter) End If End If If (Not (Me._tblKontoTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKontoTableAdapter, Me._tblKontoTableAdapter.Connection) Me._tblKontoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKontoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKontoTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKontoTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKontoTableAdapter.Adapter) End If End If If (Not (Me._tblKundenAufschubkontenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenAufschubkontenTableAdapter, Me._tblKundenAufschubkontenTableAdapter.Connection) Me._tblKundenAufschubkontenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenAufschubkontenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenAufschubkontenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenAufschubkontenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenAufschubkontenTableAdapter.Adapter) End If End If If (Not (Me._tblKundenBesonderheitenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenBesonderheitenTableAdapter, Me._tblKundenBesonderheitenTableAdapter.Connection) Me._tblKundenBesonderheitenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenBesonderheitenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenBesonderheitenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenBesonderheitenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenBesonderheitenTableAdapter.Adapter) End If End If If (Not (Me._tblKundenBesonderheiten_KategorienTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenBesonderheiten_KategorienTableAdapter, Me._tblKundenBesonderheiten_KategorienTableAdapter.Connection) Me._tblKundenBesonderheiten_KategorienTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenBesonderheiten_KategorienTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenBesonderheiten_KategorienTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenBesonderheiten_KategorienTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenBesonderheiten_KategorienTableAdapter.Adapter) End If End If If (Not (Me._tblKundenDatenblattTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenDatenblattTableAdapter, Me._tblKundenDatenblattTableAdapter.Connection) Me._tblKundenDatenblattTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenDatenblattTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenDatenblattTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenDatenblattTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenDatenblattTableAdapter.Adapter) End If End If If (Not (Me._tblKundenErweitertTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenErweitertTableAdapter, Me._tblKundenErweitertTableAdapter.Connection) Me._tblKundenErweitertTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenErweitertTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenErweitertTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenErweitertTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenErweitertTableAdapter.Adapter) End If End If If (Not (Me._tblKundenKontaktTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenKontaktTableAdapter, Me._tblKundenKontaktTableAdapter.Connection) Me._tblKundenKontaktTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenKontaktTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenKontaktTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenKontaktTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenKontaktTableAdapter.Adapter) End If End If If (Not (Me._tblKundenKontaktArtenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenKontaktArtenTableAdapter, Me._tblKundenKontaktArtenTableAdapter.Connection) Me._tblKundenKontaktArtenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenKontaktArtenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenKontaktArtenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenKontaktArtenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenKontaktArtenTableAdapter.Adapter) End If End If If (Not (Me._tblKundenumsatzTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenumsatzTableAdapter, Me._tblKundenumsatzTableAdapter.Connection) Me._tblKundenumsatzTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenumsatzTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenumsatzTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenumsatzTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenumsatzTableAdapter.Adapter) End If End If If (Not (Me._tblKundenVermerkeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenVermerkeTableAdapter, Me._tblKundenVermerkeTableAdapter.Connection) Me._tblKundenVermerkeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenVermerkeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenVermerkeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenVermerkeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenVermerkeTableAdapter.Adapter) End If End If If (Not (Me._tblKundenVertraegeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenVertraegeTableAdapter, Me._tblKundenVertraegeTableAdapter.Connection) Me._tblKundenVertraegeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenVertraegeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenVertraegeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenVertraegeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenVertraegeTableAdapter.Adapter) End If End If If (Not (Me._tblKundenVertraegeArtenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenVertraegeArtenTableAdapter, Me._tblKundenVertraegeArtenTableAdapter.Connection) Me._tblKundenVertraegeArtenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenVertraegeArtenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenVertraegeArtenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenVertraegeArtenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenVertraegeArtenTableAdapter.Adapter) End If End If If (Not (Me._tblKundenVollmachtenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenVollmachtenTableAdapter, Me._tblKundenVollmachtenTableAdapter.Connection) Me._tblKundenVollmachtenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenVollmachtenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenVollmachtenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenVollmachtenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenVollmachtenTableAdapter.Adapter) End If End If If (Not (Me._tblKundenVollmachtenArtTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblKundenVollmachtenArtTableAdapter, Me._tblKundenVollmachtenArtTableAdapter.Connection) Me._tblKundenVollmachtenArtTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblKundenVollmachtenArtTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblKundenVollmachtenArtTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblKundenVollmachtenArtTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblKundenVollmachtenArtTableAdapter.Adapter) End If End If If (Not (Me._tblLogbuchTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblLogbuchTableAdapter, Me._tblLogbuchTableAdapter.Connection) Me._tblLogbuchTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblLogbuchTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblLogbuchTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblLogbuchTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblLogbuchTableAdapter.Adapter) End If End If If (Not (Me._tblMandantTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMandantTableAdapter, Me._tblMandantTableAdapter.Connection) Me._tblMandantTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMandantTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMandantTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMandantTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMandantTableAdapter.Adapter) End If End If If (Not (Me._tblMautIT_BelegartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMautIT_BelegartenTableAdapter, Me._tblMautIT_BelegartenTableAdapter.Connection) Me._tblMautIT_BelegartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMautIT_BelegartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMautIT_BelegartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMautIT_BelegartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMautIT_BelegartenTableAdapter.Adapter) End If End If If (Not (Me._tblMautITArchivTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMautITArchivTableAdapter, Me._tblMautITArchivTableAdapter.Connection) Me._tblMautITArchivTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMautITArchivTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMautITArchivTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMautITArchivTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMautITArchivTableAdapter.Adapter) End If End If If (Not (Me._tblMDM_ParamterTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMDM_ParamterTableAdapter, Me._tblMDM_ParamterTableAdapter.Connection) Me._tblMDM_ParamterTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMDM_ParamterTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMDM_ParamterTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMDM_ParamterTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMDM_ParamterTableAdapter.Adapter) End If End If If (Not (Me._tblMSECustomersTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMSECustomersTableAdapter, Me._tblMSECustomersTableAdapter.Connection) Me._tblMSECustomersTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMSECustomersTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMSECustomersTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMSECustomersTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMSECustomersTableAdapter.Adapter) End If End If If (Not (Me._tblMSEImportTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMSEImportTableAdapter, Me._tblMSEImportTableAdapter.Connection) Me._tblMSEImportTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMSEImportTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMSEImportTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMSEImportTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMSEImportTableAdapter.Adapter) End If End If If (Not (Me._tblMSEInvoicesTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMSEInvoicesTableAdapter, Me._tblMSEInvoicesTableAdapter.Connection) Me._tblMSEInvoicesTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMSEInvoicesTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMSEInvoicesTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMSEInvoicesTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMSEInvoicesTableAdapter.Adapter) End If End If If (Not (Me._tblMSELeistungenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMSELeistungenTableAdapter, Me._tblMSELeistungenTableAdapter.Connection) Me._tblMSELeistungenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMSELeistungenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMSELeistungenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMSELeistungenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMSELeistungenTableAdapter.Adapter) End If End If If (Not (Me._tblMSESettlementsTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMSESettlementsTableAdapter, Me._tblMSESettlementsTableAdapter.Connection) Me._tblMSESettlementsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMSESettlementsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMSESettlementsTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMSESettlementsTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMSESettlementsTableAdapter.Adapter) End If End If If (Not (Me._tblMSETransactionsTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMSETransactionsTableAdapter, Me._tblMSETransactionsTableAdapter.Connection) Me._tblMSETransactionsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMSETransactionsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMSETransactionsTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMSETransactionsTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMSETransactionsTableAdapter.Adapter) End If End If If (Not (Me._tblMSETransactionsArchivTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMSETransactionsArchivTableAdapter, Me._tblMSETransactionsArchivTableAdapter.Connection) Me._tblMSETransactionsArchivTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMSETransactionsArchivTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMSETransactionsArchivTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMSETransactionsArchivTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMSETransactionsArchivTableAdapter.Adapter) End If End If If (Not (Me._tblMSETransactionsArchivOLDTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblMSETransactionsArchivOLDTableAdapter, Me._tblMSETransactionsArchivOLDTableAdapter.Connection) Me._tblMSETransactionsArchivOLDTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblMSETransactionsArchivOLDTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblMSETransactionsArchivOLDTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblMSETransactionsArchivOLDTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblMSETransactionsArchivOLDTableAdapter.Adapter) End If End If If (Not (Me._tblNCTS_TRTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblNCTS_TRTableAdapter, Me._tblNCTS_TRTableAdapter.Connection) Me._tblNCTS_TRTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblNCTS_TRTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblNCTS_TRTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblNCTS_TRTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblNCTS_TRTableAdapter.Adapter) End If End If If (Not (Me._tblNCTS_TR_NachrichtenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblNCTS_TR_NachrichtenTableAdapter, Me._tblNCTS_TR_NachrichtenTableAdapter.Connection) Me._tblNCTS_TR_NachrichtenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblNCTS_TR_NachrichtenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblNCTS_TR_NachrichtenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblNCTS_TR_NachrichtenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblNCTS_TR_NachrichtenTableAdapter.Adapter) End If End If If (Not (Me._tblNCTS_TR_SicherheitsangabenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblNCTS_TR_SicherheitsangabenTableAdapter, Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Connection) Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Adapter) End If End If If (Not (Me._tblNCTS_TR_WarenpositionTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblNCTS_TR_WarenpositionTableAdapter, Me._tblNCTS_TR_WarenpositionTableAdapter.Connection) Me._tblNCTS_TR_WarenpositionTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblNCTS_TR_WarenpositionTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblNCTS_TR_WarenpositionTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblNCTS_TR_WarenpositionTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblNCTS_TR_WarenpositionTableAdapter.Adapter) End If End If If (Not (Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter, Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Connection) Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Adapter) End If End If If (Not (Me._tblNCTSGestellungsadressenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblNCTSGestellungsadressenTableAdapter, Me._tblNCTSGestellungsadressenTableAdapter.Connection) Me._tblNCTSGestellungsadressenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblNCTSGestellungsadressenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblNCTSGestellungsadressenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblNCTSGestellungsadressenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblNCTSGestellungsadressenTableAdapter.Adapter) End If End If If (Not (Me._tblNTCSRoutenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblNTCSRoutenTableAdapter, Me._tblNTCSRoutenTableAdapter.Connection) Me._tblNTCSRoutenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblNTCSRoutenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblNTCSRoutenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblNTCSRoutenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblNTCSRoutenTableAdapter.Adapter) End If End If If (Not (Me._tblOffertenArchivTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOffertenArchivTableAdapter, Me._tblOffertenArchivTableAdapter.Connection) Me._tblOffertenArchivTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOffertenArchivTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOffertenArchivTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOffertenArchivTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOffertenArchivTableAdapter.Adapter) End If End If If (Not (Me._tblOffertenPositionenArchivTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOffertenPositionenArchivTableAdapter, Me._tblOffertenPositionenArchivTableAdapter.Connection) Me._tblOffertenPositionenArchivTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOffertenPositionenArchivTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOffertenPositionenArchivTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOffertenPositionenArchivTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOffertenPositionenArchivTableAdapter.Adapter) End If End If If (Not (Me._tblOregonNCTS_DeclarationDataTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOregonNCTS_DeclarationDataTableAdapter, Me._tblOregonNCTS_DeclarationDataTableAdapter.Connection) Me._tblOregonNCTS_DeclarationDataTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_DeclarationDataTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOregonNCTS_DeclarationDataTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOregonNCTS_DeclarationDataTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOregonNCTS_DeclarationDataTableAdapter.Adapter) End If End If If (Not (Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter, Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Connection) Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Adapter) End If End If If (Not (Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter, Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Connection) Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Adapter) End If End If If (Not (Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter, Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Connection) Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Adapter) End If End If If (Not (Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter, Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Connection) Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Adapter) End If End If If (Not (Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter, Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Connection) Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Adapter) End If End If If (Not (Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter, Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Connection) Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Adapter) End If End If If (Not (Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter, Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Connection) Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Adapter) End If End If If (Not (Me._tblOregonNCTS_ReferenceTemplateTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOregonNCTS_ReferenceTemplateTableAdapter, Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Connection) Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Adapter) End If End If If (Not (Me._tblOriginalATRTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblOriginalATRTableAdapter, Me._tblOriginalATRTableAdapter.Connection) Me._tblOriginalATRTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblOriginalATRTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblOriginalATRTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblOriginalATRTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblOriginalATRTableAdapter.Adapter) End If End If If (Not (Me._tblPartnersystem_ParamterTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPartnersystem_ParamterTableAdapter, Me._tblPartnersystem_ParamterTableAdapter.Connection) Me._tblPartnersystem_ParamterTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPartnersystem_ParamterTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPartnersystem_ParamterTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPartnersystem_ParamterTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPartnersystem_ParamterTableAdapter.Adapter) End If End If If (Not (Me._tblPfadTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPfadTableAdapter, Me._tblPfadTableAdapter.Connection) Me._tblPfadTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPfadTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPfadTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPfadTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPfadTableAdapter.Adapter) End If End If If (Not (Me._tblPLOSE_DetailsTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPLOSE_DetailsTableAdapter, Me._tblPLOSE_DetailsTableAdapter.Connection) Me._tblPLOSE_DetailsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPLOSE_DetailsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPLOSE_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPLOSE_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPLOSE_DetailsTableAdapter.Adapter) End If End If If (Not (Me._tblPLOSE_Inv_DataTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPLOSE_Inv_DataTableAdapter, Me._tblPLOSE_Inv_DataTableAdapter.Connection) Me._tblPLOSE_Inv_DataTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPLOSE_Inv_DataTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPLOSE_Inv_DataTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPLOSE_Inv_DataTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPLOSE_Inv_DataTableAdapter.Adapter) End If End If If (Not (Me._tblPLOSE_LieferantTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPLOSE_LieferantTableAdapter, Me._tblPLOSE_LieferantTableAdapter.Connection) Me._tblPLOSE_LieferantTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPLOSE_LieferantTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPLOSE_LieferantTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPLOSE_LieferantTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPLOSE_LieferantTableAdapter.Adapter) End If End If If (Not (Me._tblPLOSE_ProduktbeschreibungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPLOSE_ProduktbeschreibungTableAdapter, Me._tblPLOSE_ProduktbeschreibungTableAdapter.Connection) Me._tblPLOSE_ProduktbeschreibungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPLOSE_ProduktbeschreibungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPLOSE_ProduktbeschreibungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPLOSE_ProduktbeschreibungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPLOSE_ProduktbeschreibungTableAdapter.Adapter) End If End If If (Not (Me._tblPosNrTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPosNrTableAdapter, Me._tblPosNrTableAdapter.Connection) Me._tblPosNrTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPosNrTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPosNrTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPosNrTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPosNrTableAdapter.Adapter) End If End If If (Not (Me._tblPostversandTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPostversandTableAdapter, Me._tblPostversandTableAdapter.Connection) Me._tblPostversandTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPostversandTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPostversandTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPostversandTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPostversandTableAdapter.Adapter) End If End If If (Not (Me._tblPreislistenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPreislistenTableAdapter, Me._tblPreislistenTableAdapter.Connection) Me._tblPreislistenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPreislistenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPreislistenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPreislistenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPreislistenTableAdapter.Adapter) End If End If If (Not (Me._tblPreislistenpositionenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPreislistenpositionenTableAdapter, Me._tblPreislistenpositionenTableAdapter.Connection) Me._tblPreislistenpositionenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPreislistenpositionenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPreislistenpositionenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPreislistenpositionenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPreislistenpositionenTableAdapter.Adapter) End If End If If (Not (Me._tblPreistabellenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPreistabellenTableAdapter, Me._tblPreistabellenTableAdapter.Connection) Me._tblPreistabellenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPreistabellenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPreistabellenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPreistabellenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPreistabellenTableAdapter.Adapter) End If End If If (Not (Me._tblPreistabellenpositionenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblPreistabellenpositionenTableAdapter, Me._tblPreistabellenpositionenTableAdapter.Connection) Me._tblPreistabellenpositionenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblPreistabellenpositionenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblPreistabellenpositionenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblPreistabellenpositionenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblPreistabellenpositionenTableAdapter.Adapter) End If End If If (Not (Me._tblQS_AbfertigungsartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblQS_AbfertigungsartenTableAdapter, Me._tblQS_AbfertigungsartenTableAdapter.Connection) Me._tblQS_AbfertigungsartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblQS_AbfertigungsartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblQS_AbfertigungsartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblQS_AbfertigungsartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblQS_AbfertigungsartenTableAdapter.Adapter) End If End If If (Not (Me._tblQS_AufträgeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblQS_AufträgeTableAdapter, Me._tblQS_AufträgeTableAdapter.Connection) Me._tblQS_AufträgeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblQS_AufträgeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblQS_AufträgeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblQS_AufträgeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblQS_AufträgeTableAdapter.Adapter) End If End If If (Not (Me._tblQS_AuftragspositionenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblQS_AuftragspositionenTableAdapter, Me._tblQS_AuftragspositionenTableAdapter.Connection) Me._tblQS_AuftragspositionenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblQS_AuftragspositionenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblQS_AuftragspositionenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblQS_AuftragspositionenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblQS_AuftragspositionenTableAdapter.Adapter) End If End If If (Not (Me._tblQS_TeamsTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblQS_TeamsTableAdapter, Me._tblQS_TeamsTableAdapter.Connection) Me._tblQS_TeamsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblQS_TeamsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblQS_TeamsTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblQS_TeamsTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblQS_TeamsTableAdapter.Adapter) End If End If If (Not (Me._tblQS_TeamsMATableAdapter) Is Nothing) Then revertConnections.Add(Me._tblQS_TeamsMATableAdapter, Me._tblQS_TeamsMATableAdapter.Connection) Me._tblQS_TeamsMATableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblQS_TeamsMATableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblQS_TeamsMATableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblQS_TeamsMATableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblQS_TeamsMATableAdapter.Adapter) End If End If If (Not (Me._tblRechnungsnotizenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblRechnungsnotizenTableAdapter, Me._tblRechnungsnotizenTableAdapter.Connection) Me._tblRechnungsnotizenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblRechnungsnotizenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblRechnungsnotizenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblRechnungsnotizenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblRechnungsnotizenTableAdapter.Adapter) End If End If If (Not (Me._tblRefTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblRefTableAdapter, Me._tblRefTableAdapter.Connection) Me._tblRefTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblRefTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblRefTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblRefTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblRefTableAdapter.Adapter) End If End If If (Not (Me._tblRefBeziehungenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblRefBeziehungenTableAdapter, Me._tblRefBeziehungenTableAdapter.Connection) Me._tblRefBeziehungenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblRefBeziehungenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblRefBeziehungenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblRefBeziehungenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblRefBeziehungenTableAdapter.Adapter) End If End If If (Not (Me._tblRKSV_KassenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblRKSV_KassenTableAdapter, Me._tblRKSV_KassenTableAdapter.Connection) Me._tblRKSV_KassenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblRKSV_KassenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblRKSV_KassenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblRKSV_KassenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblRKSV_KassenTableAdapter.Adapter) End If End If If (Not (Me._tblRKSV_POSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblRKSV_POSTableAdapter, Me._tblRKSV_POSTableAdapter.Connection) Me._tblRKSV_POSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblRKSV_POSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblRKSV_POSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblRKSV_POSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblRKSV_POSTableAdapter.Adapter) End If End If If (Not (Me._tblRMCImportTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblRMCImportTableAdapter, Me._tblRMCImportTableAdapter.Connection) Me._tblRMCImportTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblRMCImportTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblRMCImportTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblRMCImportTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblRMCImportTableAdapter.Adapter) End If End If If (Not (Me._tblSMSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblSMSTableAdapter, Me._tblSMSTableAdapter.Connection) Me._tblSMSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblSMSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblSMSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblSMSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblSMSTableAdapter.Adapter) End If End If If (Not (Me._tblSpeditionsbucharchivTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblSpeditionsbucharchivTableAdapter, Me._tblSpeditionsbucharchivTableAdapter.Connection) Me._tblSpeditionsbucharchivTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblSpeditionsbucharchivTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblSpeditionsbucharchivTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblSpeditionsbucharchivTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblSpeditionsbucharchivTableAdapter.Adapter) End If End If If (Not (Me._tblSpeditionsbuchEndEmpfaengerTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblSpeditionsbuchEndEmpfaengerTableAdapter, Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Connection) Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Adapter) End If End If If (Not (Me._tblSpeditionsbuchUnterPosTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblSpeditionsbuchUnterPosTableAdapter, Me._tblSpeditionsbuchUnterPosTableAdapter.Connection) Me._tblSpeditionsbuchUnterPosTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblSpeditionsbuchUnterPosTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblSpeditionsbuchUnterPosTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblSpeditionsbuchUnterPosTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblSpeditionsbuchUnterPosTableAdapter.Adapter) End If End If If (Not (Me._tblSpeditionsbuchUnterPosArtenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblSpeditionsbuchUnterPosArtenTableAdapter, Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Connection) Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Adapter) End If End If If (Not (Me._tblSteuernummernTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblSteuernummernTableAdapter, Me._tblSteuernummernTableAdapter.Connection) Me._tblSteuernummernTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblSteuernummernTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblSteuernummernTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblSteuernummernTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblSteuernummernTableAdapter.Adapter) End If End If If (Not (Me._tblSteuersätzeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblSteuersätzeTableAdapter, Me._tblSteuersätzeTableAdapter.Connection) Me._tblSteuersätzeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblSteuersätzeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblSteuersätzeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblSteuersätzeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblSteuersätzeTableAdapter.Adapter) End If End If If (Not (Me._tblSteuertypTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblSteuertypTableAdapter, Me._tblSteuertypTableAdapter.Connection) Me._tblSteuertypTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblSteuertypTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblSteuertypTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblSteuertypTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblSteuertypTableAdapter.Adapter) End If End If If (Not (Me._tblTelotec_AbgabenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTelotec_AbgabenTableAdapter, Me._tblTelotec_AbgabenTableAdapter.Connection) Me._tblTelotec_AbgabenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_AbgabenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTelotec_AbgabenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTelotec_AbgabenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTelotec_AbgabenTableAdapter.Adapter) End If End If If (Not (Me._tblTelotec_AnmeldungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTelotec_AnmeldungTableAdapter, Me._tblTelotec_AnmeldungTableAdapter.Connection) Me._tblTelotec_AnmeldungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_AnmeldungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTelotec_AnmeldungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTelotec_AnmeldungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTelotec_AnmeldungTableAdapter.Adapter) End If End If If (Not (Me._tblTelotec_PackstueckeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTelotec_PackstueckeTableAdapter, Me._tblTelotec_PackstueckeTableAdapter.Connection) Me._tblTelotec_PackstueckeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_PackstueckeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTelotec_PackstueckeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTelotec_PackstueckeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTelotec_PackstueckeTableAdapter.Adapter) End If End If If (Not (Me._tblTelotec_ParamterTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTelotec_ParamterTableAdapter, Me._tblTelotec_ParamterTableAdapter.Connection) Me._tblTelotec_ParamterTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_ParamterTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTelotec_ParamterTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTelotec_ParamterTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTelotec_ParamterTableAdapter.Adapter) End If End If If (Not (Me._tblTelotec_PositionsdatenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTelotec_PositionsdatenTableAdapter, Me._tblTelotec_PositionsdatenTableAdapter.Connection) Me._tblTelotec_PositionsdatenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_PositionsdatenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTelotec_PositionsdatenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTelotec_PositionsdatenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTelotec_PositionsdatenTableAdapter.Adapter) End If End If If (Not (Me._tblTelotec_PositionsdatenAbgabenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTelotec_PositionsdatenAbgabenTableAdapter, Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Connection) Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Adapter) End If End If If (Not (Me._tblTelotec_PositionsdatenDokumenteTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTelotec_PositionsdatenDokumenteTableAdapter, Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Connection) Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Adapter) End If End If If (Not (Me._tblTelotec_SicherheitTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTelotec_SicherheitTableAdapter, Me._tblTelotec_SicherheitTableAdapter.Connection) Me._tblTelotec_SicherheitTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_SicherheitTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTelotec_SicherheitTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTelotec_SicherheitTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTelotec_SicherheitTableAdapter.Adapter) End If End If If (Not (Me._tblTestTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTestTableAdapter, Me._tblTestTableAdapter.Connection) Me._tblTestTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTestTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTestTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTestTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTestTableAdapter.Adapter) End If End If If (Not (Me._tblTextkonserveTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTextkonserveTableAdapter, Me._tblTextkonserveTableAdapter.Connection) Me._tblTextkonserveTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTextkonserveTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTextkonserveTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTextkonserveTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTextkonserveTableAdapter.Adapter) End If End If If (Not (Me._tblTR_AvisoTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTR_AvisoTableAdapter, Me._tblTR_AvisoTableAdapter.Connection) Me._tblTR_AvisoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTR_AvisoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTR_AvisoTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTR_AvisoTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTR_AvisoTableAdapter.Adapter) End If End If If (Not (Me._tblTR_AvisoAnheangeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTR_AvisoAnheangeTableAdapter, Me._tblTR_AvisoAnheangeTableAdapter.Connection) Me._tblTR_AvisoAnheangeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTR_AvisoAnheangeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTR_AvisoAnheangeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTR_AvisoAnheangeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTR_AvisoAnheangeTableAdapter.Adapter) End If End If If (Not (Me._tblTR_ShipmentTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTR_ShipmentTableAdapter, Me._tblTR_ShipmentTableAdapter.Connection) Me._tblTR_ShipmentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTR_ShipmentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTR_ShipmentTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTR_ShipmentTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTR_ShipmentTableAdapter.Adapter) End If End If If (Not (Me._tblTR_Shipment_AdressenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTR_Shipment_AdressenTableAdapter, Me._tblTR_Shipment_AdressenTableAdapter.Connection) Me._tblTR_Shipment_AdressenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTR_Shipment_AdressenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTR_Shipment_AdressenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTR_Shipment_AdressenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTR_Shipment_AdressenTableAdapter.Adapter) End If End If If (Not (Me._tblTR_Shipment_DocumentTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTR_Shipment_DocumentTableAdapter, Me._tblTR_Shipment_DocumentTableAdapter.Connection) Me._tblTR_Shipment_DocumentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTR_Shipment_DocumentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTR_Shipment_DocumentTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTR_Shipment_DocumentTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTR_Shipment_DocumentTableAdapter.Adapter) End If End If If (Not (Me._tblTR_Shipment_PositionTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTR_Shipment_PositionTableAdapter, Me._tblTR_Shipment_PositionTableAdapter.Connection) Me._tblTR_Shipment_PositionTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTR_Shipment_PositionTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTR_Shipment_PositionTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTR_Shipment_PositionTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTR_Shipment_PositionTableAdapter.Adapter) End If End If If (Not (Me._tblTR_Shipment_Position_DocumentTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTR_Shipment_Position_DocumentTableAdapter, Me._tblTR_Shipment_Position_DocumentTableAdapter.Connection) Me._tblTR_Shipment_Position_DocumentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTR_Shipment_Position_DocumentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTR_Shipment_Position_DocumentTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTR_Shipment_Position_DocumentTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTR_Shipment_Position_DocumentTableAdapter.Adapter) End If End If If (Not (Me._tblTranslateTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTranslateTableAdapter, Me._tblTranslateTableAdapter.Connection) Me._tblTranslateTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTranslateTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTranslateTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTranslateTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTranslateTableAdapter.Adapter) End If End If If (Not (Me._tblTranslateAutoTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTranslateAutoTableAdapter, Me._tblTranslateAutoTableAdapter.Connection) Me._tblTranslateAutoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTranslateAutoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTranslateAutoTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTranslateAutoTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTranslateAutoTableAdapter.Adapter) End If End If If (Not (Me._tblTrdinHeaderTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTrdinHeaderTableAdapter, Me._tblTrdinHeaderTableAdapter.Connection) Me._tblTrdinHeaderTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTrdinHeaderTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTrdinHeaderTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTrdinHeaderTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTrdinHeaderTableAdapter.Adapter) End If End If If (Not (Me._tblTrdinInvoiceTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTrdinInvoiceTableAdapter, Me._tblTrdinInvoiceTableAdapter.Connection) Me._tblTrdinInvoiceTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTrdinInvoiceTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTrdinInvoiceTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTrdinInvoiceTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTrdinInvoiceTableAdapter.Adapter) End If End If If (Not (Me._tblTrdinProductTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblTrdinProductTableAdapter, Me._tblTrdinProductTableAdapter.Connection) Me._tblTrdinProductTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblTrdinProductTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblTrdinProductTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblTrdinProductTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblTrdinProductTableAdapter.Adapter) End If End If If (Not (Me._tblUIDPruefungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUIDPruefungTableAdapter, Me._tblUIDPruefungTableAdapter.Connection) Me._tblUIDPruefungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUIDPruefungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUIDPruefungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUIDPruefungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUIDPruefungTableAdapter.Adapter) End If End If If (Not (Me._tblUStVAntragTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUStVAntragTableAdapter, Me._tblUStVAntragTableAdapter.Connection) Me._tblUStVAntragTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUStVAntragTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUStVAntragTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUStVAntragTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUStVAntragTableAdapter.Adapter) End If End If If (Not (Me._tblUStVBelegeingangTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUStVBelegeingangTableAdapter, Me._tblUStVBelegeingangTableAdapter.Connection) Me._tblUStVBelegeingangTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUStVBelegeingangTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUStVBelegeingangTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUStVBelegeingangTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUStVBelegeingangTableAdapter.Adapter) End If End If If (Not (Me._tblUStVErstattungTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUStVErstattungTableAdapter, Me._tblUStVErstattungTableAdapter.Connection) Me._tblUStVErstattungTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUStVErstattungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUStVErstattungTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUStVErstattungTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUStVErstattungTableAdapter.Adapter) End If End If If (Not (Me._tblUStVFormulareTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUStVFormulareTableAdapter, Me._tblUStVFormulareTableAdapter.Connection) Me._tblUStVFormulareTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUStVFormulareTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUStVFormulareTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUStVFormulareTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUStVFormulareTableAdapter.Adapter) End If End If If (Not (Me._tblUStVKuLäFoTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUStVKuLäFoTableAdapter, Me._tblUStVKuLäFoTableAdapter.Connection) Me._tblUStVKuLäFoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUStVKuLäFoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUStVKuLäFoTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUStVKuLäFoTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUStVKuLäFoTableAdapter.Adapter) End If End If If (Not (Me._tblUStVLäFoTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUStVLäFoTableAdapter, Me._tblUStVLäFoTableAdapter.Connection) Me._tblUStVLäFoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUStVLäFoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUStVLäFoTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUStVLäFoTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUStVLäFoTableAdapter.Adapter) End If End If If (Not (Me._tblUStVLeistenderTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUStVLeistenderTableAdapter, Me._tblUStVLeistenderTableAdapter.Connection) Me._tblUStVLeistenderTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUStVLeistenderTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUStVLeistenderTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUStVLeistenderTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUStVLeistenderTableAdapter.Adapter) End If End If If (Not (Me._tblUStVPositionenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUStVPositionenTableAdapter, Me._tblUStVPositionenTableAdapter.Connection) Me._tblUStVPositionenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUStVPositionenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUStVPositionenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUStVPositionenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUStVPositionenTableAdapter.Adapter) End If End If If (Not (Me._tblUStVTexteTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUStVTexteTableAdapter, Me._tblUStVTexteTableAdapter.Connection) Me._tblUStVTexteTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUStVTexteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUStVTexteTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUStVTexteTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUStVTexteTableAdapter.Adapter) End If End If If (Not (Me._tblUTAArchivTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUTAArchivTableAdapter, Me._tblUTAArchivTableAdapter.Connection) Me._tblUTAArchivTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUTAArchivTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUTAArchivTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUTAArchivTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUTAArchivTableAdapter.Adapter) End If End If If (Not (Me._tblUTAFakturierwarenartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUTAFakturierwarenartenTableAdapter, Me._tblUTAFakturierwarenartenTableAdapter.Connection) Me._tblUTAFakturierwarenartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUTAFakturierwarenartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUTAFakturierwarenartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUTAFakturierwarenartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUTAFakturierwarenartenTableAdapter.Adapter) End If End If If (Not (Me._tblUTAHeaderTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUTAHeaderTableAdapter, Me._tblUTAHeaderTableAdapter.Connection) Me._tblUTAHeaderTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUTAHeaderTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUTAHeaderTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUTAHeaderTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUTAHeaderTableAdapter.Adapter) End If End If If (Not (Me._tblUTAHeaderNewTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUTAHeaderNewTableAdapter, Me._tblUTAHeaderNewTableAdapter.Connection) Me._tblUTAHeaderNewTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUTAHeaderNewTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUTAHeaderNewTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUTAHeaderNewTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUTAHeaderNewTableAdapter.Adapter) End If End If If (Not (Me._tblUTAImportTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUTAImportTableAdapter, Me._tblUTAImportTableAdapter.Connection) Me._tblUTAImportTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUTAImportTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUTAImportTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUTAImportTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUTAImportTableAdapter.Adapter) End If End If If (Not (Me._tblUTAImportNewTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUTAImportNewTableAdapter, Me._tblUTAImportNewTableAdapter.Connection) Me._tblUTAImportNewTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUTAImportNewTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUTAImportNewTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUTAImportNewTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUTAImportNewTableAdapter.Adapter) End If End If If (Not (Me._tblUTALeistungenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUTALeistungenTableAdapter, Me._tblUTALeistungenTableAdapter.Connection) Me._tblUTALeistungenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUTALeistungenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUTALeistungenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUTALeistungenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUTALeistungenTableAdapter.Adapter) End If End If If (Not (Me._tblUTATrailerTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUTATrailerTableAdapter, Me._tblUTATrailerTableAdapter.Connection) Me._tblUTATrailerTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUTATrailerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUTATrailerTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUTATrailerTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUTATrailerTableAdapter.Adapter) End If End If If (Not (Me._tblUTATrailerNewTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblUTATrailerNewTableAdapter, Me._tblUTATrailerNewTableAdapter.Connection) Me._tblUTATrailerNewTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblUTATrailerNewTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblUTATrailerNewTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblUTATrailerNewTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblUTATrailerNewTableAdapter.Adapter) End If End If If (Not (Me._tblVermarktungsnormenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblVermarktungsnormenTableAdapter, Me._tblVermarktungsnormenTableAdapter.Connection) Me._tblVermarktungsnormenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblVermarktungsnormenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblVermarktungsnormenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblVermarktungsnormenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblVermarktungsnormenTableAdapter.Adapter) End If End If If (Not (Me._tblVermarktungsnormenGebuehrenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblVermarktungsnormenGebuehrenTableAdapter, Me._tblVermarktungsnormenGebuehrenTableAdapter.Connection) Me._tblVermarktungsnormenGebuehrenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblVermarktungsnormenGebuehrenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblVermarktungsnormenGebuehrenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblVermarktungsnormenGebuehrenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblVermarktungsnormenGebuehrenTableAdapter.Adapter) End If End If If (Not (Me._tblVorauskassenTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblVorauskassenTableAdapter, Me._tblVorauskassenTableAdapter.Connection) Me._tblVorauskassenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblVorauskassenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblVorauskassenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblVorauskassenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblVorauskassenTableAdapter.Adapter) End If End If If (Not (Me._tblWahrungtabelleNEUTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblWahrungtabelleNEUTableAdapter, Me._tblWahrungtabelleNEUTableAdapter.Connection) Me._tblWahrungtabelleNEUTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblWahrungtabelleNEUTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblWahrungtabelleNEUTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblWahrungtabelleNEUTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblWahrungtabelleNEUTableAdapter.Adapter) End If End If If (Not (Me._tblWarenbezeichnungBegriffeTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblWarenbezeichnungBegriffeTableAdapter, Me._tblWarenbezeichnungBegriffeTableAdapter.Connection) Me._tblWarenbezeichnungBegriffeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblWarenbezeichnungBegriffeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblWarenbezeichnungBegriffeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblWarenbezeichnungBegriffeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblWarenbezeichnungBegriffeTableAdapter.Adapter) End If End If If (Not (Me._tblZabis_Atlas_NCTSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblZabis_Atlas_NCTSTableAdapter, Me._tblZabis_Atlas_NCTSTableAdapter.Connection) Me._tblZabis_Atlas_NCTSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblZabis_Atlas_NCTSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblZabis_Atlas_NCTSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblZabis_Atlas_NCTSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblZabis_Atlas_NCTSTableAdapter.Adapter) End If End If If (Not (Me._tblZahlungszieltexteTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblZahlungszieltexteTableAdapter, Me._tblZahlungszieltexteTableAdapter.Connection) Me._tblZahlungszieltexteTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblZahlungszieltexteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblZahlungszieltexteTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblZahlungszieltexteTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblZahlungszieltexteTableAdapter.Adapter) End If End If If (Not (Me._tblZolaris_EZoll_NCTSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblZolaris_EZoll_NCTSTableAdapter, Me._tblZolaris_EZoll_NCTSTableAdapter.Connection) Me._tblZolaris_EZoll_NCTSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblZolaris_EZoll_NCTSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblZolaris_EZoll_NCTSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblZolaris_EZoll_NCTSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblZolaris_EZoll_NCTSTableAdapter.Adapter) End If End If If (Not (Me._tblZOLL_WechselkurseTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblZOLL_WechselkurseTableAdapter, Me._tblZOLL_WechselkurseTableAdapter.Connection) Me._tblZOLL_WechselkurseTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblZOLL_WechselkurseTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblZOLL_WechselkurseTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblZOLL_WechselkurseTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblZOLL_WechselkurseTableAdapter.Adapter) End If End If If (Not (Me._tblZollArtikelTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblZollArtikelTableAdapter, Me._tblZollArtikelTableAdapter.Connection) Me._tblZollArtikelTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblZollArtikelTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblZollArtikelTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblZollArtikelTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblZollArtikelTableAdapter.Adapter) End If End If If (Not (Me._tblZollUnterArtikelTableAdapter) Is Nothing) Then revertConnections.Add(Me._tblZollUnterArtikelTableAdapter, Me._tblZollUnterArtikelTableAdapter.Connection) Me._tblZollUnterArtikelTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tblZollUnterArtikelTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tblZollUnterArtikelTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tblZollUnterArtikelTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tblZollUnterArtikelTableAdapter.Adapter) End If End If If (Not (Me._temporaryUpsizedTable2TableAdapter) Is Nothing) Then revertConnections.Add(Me._temporaryUpsizedTable2TableAdapter, Me._temporaryUpsizedTable2TableAdapter.Connection) Me._temporaryUpsizedTable2TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._temporaryUpsizedTable2TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._temporaryUpsizedTable2TableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._temporaryUpsizedTable2TableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._temporaryUpsizedTable2TableAdapter.Adapter) End If End If If (Not (Me._verkehrszweigeTableAdapter) Is Nothing) Then revertConnections.Add(Me._verkehrszweigeTableAdapter, Me._verkehrszweigeTableAdapter.Connection) Me._verkehrszweigeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._verkehrszweigeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._verkehrszweigeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._verkehrszweigeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._verkehrszweigeTableAdapter.Adapter) End If End If If (Not (Me._vermerkeTableAdapter) Is Nothing) Then revertConnections.Add(Me._vermerkeTableAdapter, Me._vermerkeTableAdapter.Connection) Me._vermerkeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._vermerkeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._vermerkeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._vermerkeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._vermerkeTableAdapter.Adapter) End If End If If (Not (Me._vorkostenTableAdapter) Is Nothing) Then revertConnections.Add(Me._vorkostenTableAdapter, Me._vorkostenTableAdapter.Connection) Me._vorkostenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._vorkostenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._vorkostenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._vorkostenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._vorkostenTableAdapter.Adapter) End If End If If (Not (Me._währungstabelleTableAdapter) Is Nothing) Then revertConnections.Add(Me._währungstabelleTableAdapter, Me._währungstabelleTableAdapter.Connection) Me._währungstabelleTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._währungstabelleTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._währungstabelleTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._währungstabelleTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._währungstabelleTableAdapter.Adapter) End If End If If (Not (Me._zahlungsartenTableAdapter) Is Nothing) Then revertConnections.Add(Me._zahlungsartenTableAdapter, Me._zahlungsartenTableAdapter.Connection) Me._zahlungsartenTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._zahlungsartenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._zahlungsartenTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._zahlungsartenTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._zahlungsartenTableAdapter.Adapter) End If End If If (Not (Me._zbadzTableAdapter) Is Nothing) Then revertConnections.Add(Me._zbadzTableAdapter, Me._zbadzTableAdapter.Connection) Me._zbadzTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._zbadzTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._zbadzTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._zbadzTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._zbadzTableAdapter.Adapter) End If End If If (Not (Me._zbantTableAdapter) Is Nothing) Then revertConnections.Add(Me._zbantTableAdapter, Me._zbantTableAdapter.Connection) Me._zbantTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._zbantTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._zbantTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._zbantTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._zbantTableAdapter.Adapter) End If End If If (Not (Me._zbapoTableAdapter) Is Nothing) Then revertConnections.Add(Me._zbapoTableAdapter, Me._zbapoTableAdapter.Connection) Me._zbapoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._zbapoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._zbapoTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._zbapoTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._zbapoTableAdapter.Adapter) End If End If If (Not (Me._zbposTableAdapter) Is Nothing) Then revertConnections.Add(Me._zbposTableAdapter, Me._zbposTableAdapter.Connection) Me._zbposTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._zbposTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._zbposTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._zbposTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._zbposTableAdapter.Adapter) End If End If If (Not (Me._zkteingTableAdapter) Is Nothing) Then revertConnections.Add(Me._zkteingTableAdapter, Me._zkteingTableAdapter.Connection) Me._zkteingTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._zkteingTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._zkteingTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._zkteingTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._zkteingTableAdapter.Adapter) End If End If If (Not (Me._zollsystemeTableAdapter) Is Nothing) Then revertConnections.Add(Me._zollsystemeTableAdapter, Me._zollsystemeTableAdapter.Connection) Me._zollsystemeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._zollsystemeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._zollsystemeTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._zollsystemeTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._zollsystemeTableAdapter.Adapter) End If End If If (Not (Me._zulassungen_ZnVTableAdapter) Is Nothing) Then revertConnections.Add(Me._zulassungen_ZnVTableAdapter, Me._zulassungen_ZnVTableAdapter.Connection) Me._zulassungen_ZnVTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._zulassungen_ZnVTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._zulassungen_ZnVTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._zulassungen_ZnVTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._zulassungen_ZnVTableAdapter.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._abfertigungsartenTableAdapter) Is Nothing) Then Me._abfertigungsartenTableAdapter.Connection = CType(revertConnections(Me._abfertigungsartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._abfertigungsartenTableAdapter.Transaction = Nothing End If If (Not (Me._abfertigungskosten_der_KorrespondentenTableAdapter) Is Nothing) Then Me._abfertigungskosten_der_KorrespondentenTableAdapter.Connection = CType(revertConnections(Me._abfertigungskosten_der_KorrespondentenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._abfertigungskosten_der_KorrespondentenTableAdapter.Transaction = Nothing End If If (Not (Me._abfertigungsLaenderTableAdapter) Is Nothing) Then Me._abfertigungsLaenderTableAdapter.Connection = CType(revertConnections(Me._abfertigungsLaenderTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._abfertigungsLaenderTableAdapter.Transaction = Nothing End If If (Not (Me._abfertigungsLaenderAbfertigungsartenTableAdapter) Is Nothing) Then Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Connection = CType(revertConnections(Me._abfertigungsLaenderAbfertigungsartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._abfertigungsLaenderAbfertigungsartenTableAdapter.Transaction = Nothing End If If (Not (Me._abgabenartenTableAdapter) Is Nothing) Then Me._abgabenartenTableAdapter.Connection = CType(revertConnections(Me._abgabenartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._abgabenartenTableAdapter.Transaction = Nothing End If If (Not (Me._adressenTableAdapter) Is Nothing) Then Me._adressenTableAdapter.Connection = CType(revertConnections(Me._adressenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._adressenTableAdapter.Transaction = Nothing End If If (Not (Me._aktivitätenlogTableAdapter) Is Nothing) Then Me._aktivitätenlogTableAdapter.Connection = CType(revertConnections(Me._aktivitätenlogTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._aktivitätenlogTableAdapter.Transaction = Nothing End If If (Not (Me._anlagenTableAdapter) Is Nothing) Then Me._anlagenTableAdapter.Connection = CType(revertConnections(Me._anlagenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._anlagenTableAdapter.Transaction = Nothing End If If (Not (Me._atlas_statusTableAdapter) Is Nothing) Then Me._atlas_statusTableAdapter.Connection = CType(revertConnections(Me._atlas_statusTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._atlas_statusTableAdapter.Transaction = Nothing End If If (Not (Me._aufschubdatenTableAdapter) Is Nothing) Then Me._aufschubdatenTableAdapter.Connection = CType(revertConnections(Me._aufschubdatenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._aufschubdatenTableAdapter.Transaction = Nothing End If If (Not (Me._aufschubkontenTableAdapter) Is Nothing) Then Me._aufschubkontenTableAdapter.Connection = CType(revertConnections(Me._aufschubkontenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._aufschubkontenTableAdapter.Transaction = Nothing End If If (Not (Me._belegartenTableAdapter) Is Nothing) Then Me._belegartenTableAdapter.Connection = CType(revertConnections(Me._belegartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._belegartenTableAdapter.Transaction = Nothing End If If (Not (Me._berechnungsartTableAdapter) Is Nothing) Then Me._berechnungsartTableAdapter.Connection = CType(revertConnections(Me._berechnungsartTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._berechnungsartTableAdapter.Transaction = Nothing End If If (Not (Me._berechnungsbogenTableAdapter) Is Nothing) Then Me._berechnungsbogenTableAdapter.Connection = CType(revertConnections(Me._berechnungsbogenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._berechnungsbogenTableAdapter.Transaction = Nothing End If If (Not (Me._berichteTableAdapter) Is Nothing) Then Me._berichteTableAdapter.Connection = CType(revertConnections(Me._berichteTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._berichteTableAdapter.Transaction = Nothing End If If (Not (Me._cMRTableAdapter) Is Nothing) Then Me._cMRTableAdapter.Connection = CType(revertConnections(Me._cMRTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._cMRTableAdapter.Transaction = Nothing End If If (Not (Me._devisenkurseTableAdapter) Is Nothing) Then Me._devisenkurseTableAdapter.Connection = CType(revertConnections(Me._devisenkurseTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._devisenkurseTableAdapter.Transaction = Nothing End If If (Not (Me._ePBesTableAdapter) Is Nothing) Then Me._ePBesTableAdapter.Connection = CType(revertConnections(Me._ePBesTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._ePBesTableAdapter.Transaction = Nothing End If If (Not (Me._ePBesPOSTableAdapter) Is Nothing) Then Me._ePBesPOSTableAdapter.Connection = CType(revertConnections(Me._ePBesPOSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._ePBesPOSTableAdapter.Transaction = Nothing End If If (Not (Me._filialenTableAdapter) Is Nothing) Then Me._filialenTableAdapter.Connection = CType(revertConnections(Me._filialenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._filialenTableAdapter.Transaction = Nothing End If If (Not (Me._geschäftsartenTableAdapter) Is Nothing) Then Me._geschäftsartenTableAdapter.Connection = CType(revertConnections(Me._geschäftsartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._geschäftsartenTableAdapter.Transaction = Nothing End If If (Not (Me._korrespondentenTableAdapter) Is Nothing) Then Me._korrespondentenTableAdapter.Connection = CType(revertConnections(Me._korrespondentenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._korrespondentenTableAdapter.Transaction = Nothing End If If (Not (Me._kostenstellenTableAdapter) Is Nothing) Then Me._kostenstellenTableAdapter.Connection = CType(revertConnections(Me._kostenstellenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._kostenstellenTableAdapter.Transaction = Nothing End If If (Not (Me._kreditkartenTableAdapter) Is Nothing) Then Me._kreditkartenTableAdapter.Connection = CType(revertConnections(Me._kreditkartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._kreditkartenTableAdapter.Transaction = Nothing End If If (Not (Me._kundenTableAdapter) Is Nothing) Then Me._kundenTableAdapter.Connection = CType(revertConnections(Me._kundenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._kundenTableAdapter.Transaction = Nothing End If If (Not (Me._kundenFilialenTableAdapter) Is Nothing) Then Me._kundenFilialenTableAdapter.Connection = CType(revertConnections(Me._kundenFilialenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._kundenFilialenTableAdapter.Transaction = Nothing End If If (Not (Me._länder_der_Bundesrepublik_DeutschlandTableAdapter) Is Nothing) Then Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Connection = CType(revertConnections(Me._länder_der_Bundesrepublik_DeutschlandTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._länder_der_Bundesrepublik_DeutschlandTableAdapter.Transaction = Nothing End If If (Not (Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter) Is Nothing) Then Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Connection = CType(revertConnections(Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._länderverzeichnis_für_die_AußenhandelsstatistikTableAdapter.Transaction = Nothing End If If (Not (Me._leistungenTableAdapter) Is Nothing) Then Me._leistungenTableAdapter.Connection = CType(revertConnections(Me._leistungenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._leistungenTableAdapter.Transaction = Nothing End If If (Not (Me._leistungenBUKontenTableAdapter) Is Nothing) Then Me._leistungenBUKontenTableAdapter.Connection = CType(revertConnections(Me._leistungenBUKontenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._leistungenBUKontenTableAdapter.Transaction = Nothing End If If (Not (Me._lieferbedingungenTableAdapter) Is Nothing) Then Me._lieferbedingungenTableAdapter.Connection = CType(revertConnections(Me._lieferbedingungenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._lieferbedingungenTableAdapter.Transaction = Nothing End If If (Not (Me._nebenkosten_der_KorrespondentenTableAdapter) Is Nothing) Then Me._nebenkosten_der_KorrespondentenTableAdapter.Connection = CType(revertConnections(Me._nebenkosten_der_KorrespondentenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._nebenkosten_der_KorrespondentenTableAdapter.Transaction = Nothing End If If (Not (Me._offene_PostenTableAdapter) Is Nothing) Then Me._offene_PostenTableAdapter.Connection = CType(revertConnections(Me._offene_PostenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._offene_PostenTableAdapter.Transaction = Nothing End If If (Not (Me._offene_Posten_DVOTableAdapter) Is Nothing) Then Me._offene_Posten_DVOTableAdapter.Connection = CType(revertConnections(Me._offene_Posten_DVOTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._offene_Posten_DVOTableAdapter.Transaction = Nothing End If If (Not (Me._offertenTableAdapter) Is Nothing) Then Me._offertenTableAdapter.Connection = CType(revertConnections(Me._offertenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._offertenTableAdapter.Transaction = Nothing End If If (Not (Me._offertenpositionenTableAdapter) Is Nothing) Then Me._offertenpositionenTableAdapter.Connection = CType(revertConnections(Me._offertenpositionenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._offertenpositionenTableAdapter.Transaction = Nothing End If If (Not (Me._offertenstammTableAdapter) Is Nothing) Then Me._offertenstammTableAdapter.Connection = CType(revertConnections(Me._offertenstammTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._offertenstammTableAdapter.Transaction = Nothing End If If (Not (Me._personalTableAdapter) Is Nothing) Then Me._personalTableAdapter.Connection = CType(revertConnections(Me._personalTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._personalTableAdapter.Transaction = Nothing End If If (Not (Me._rechnungsausgangTableAdapter) Is Nothing) Then Me._rechnungsausgangTableAdapter.Connection = CType(revertConnections(Me._rechnungsausgangTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._rechnungsausgangTableAdapter.Transaction = Nothing End If If (Not (Me._rechnungsausgangAnhaengeTableAdapter) Is Nothing) Then Me._rechnungsausgangAnhaengeTableAdapter.Connection = CType(revertConnections(Me._rechnungsausgangAnhaengeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._rechnungsausgangAnhaengeTableAdapter.Transaction = Nothing End If If (Not (Me._rechnungsausgangPositionenTableAdapter) Is Nothing) Then Me._rechnungsausgangPositionenTableAdapter.Connection = CType(revertConnections(Me._rechnungsausgangPositionenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._rechnungsausgangPositionenTableAdapter.Transaction = Nothing End If If (Not (Me._rechnungsnummernTableAdapter) Is Nothing) Then Me._rechnungsnummernTableAdapter.Connection = CType(revertConnections(Me._rechnungsnummernTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._rechnungsnummernTableAdapter.Transaction = Nothing End If If (Not (Me._rechnungstexteTableAdapter) Is Nothing) Then Me._rechnungstexteTableAdapter.Connection = CType(revertConnections(Me._rechnungstexteTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._rechnungstexteTableAdapter.Transaction = Nothing End If If (Not (Me._speditionsbuchTableAdapter) Is Nothing) Then Me._speditionsbuchTableAdapter.Connection = CType(revertConnections(Me._speditionsbuchTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._speditionsbuchTableAdapter.Transaction = Nothing End If If (Not (Me._standardoffertenTableAdapter) Is Nothing) Then Me._standardoffertenTableAdapter.Connection = CType(revertConnections(Me._standardoffertenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._standardoffertenTableAdapter.Transaction = Nothing End If If (Not (Me._standardoffertenFirmaTableAdapter) Is Nothing) Then Me._standardoffertenFirmaTableAdapter.Connection = CType(revertConnections(Me._standardoffertenFirmaTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._standardoffertenFirmaTableAdapter.Transaction = Nothing End If If (Not (Me._steuertabelleTableAdapter) Is Nothing) Then Me._steuertabelleTableAdapter.Connection = CType(revertConnections(Me._steuertabelleTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._steuertabelleTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_ASFINAG_FileInfoTableAdapter) Is Nothing) Then Me._tbl_ASFINAG_FileInfoTableAdapter.Connection = CType(revertConnections(Me._tbl_ASFINAG_FileInfoTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_ASFINAG_FileInfoTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_BMD_LänderTableAdapter) Is Nothing) Then Me._tbl_BMD_LänderTableAdapter.Connection = CType(revertConnections(Me._tbl_BMD_LänderTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_BMD_LänderTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ParamterTableAdapter) Is Nothing) Then Me._tbl_DY_ParamterTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ParamterTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ParamterTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_A0122_AnmArtUeberfuehrungTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_A0127_BeteiligtenKonstellationTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0008_LaenderFullTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0010_LaenderAESTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0013_UnterlagenArtenTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0014_VorpapierArtenTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0017_PackstueckeVerpackungsartenTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0141_ZollstellenTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_C0219_TypeTransportMeansTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_I0200_UnterlageartenTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_I0400_WaehrungslisteTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_I0610_ZustaendigeZSTAESTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter) Is Nothing) Then Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Connection = CType(revertConnections(Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_DY_ZollDE_I0700_MasseinheitenTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_ErrorsTableAdapter) Is Nothing) Then Me._tbl_ErrorsTableAdapter.Connection = CType(revertConnections(Me._tbl_ErrorsTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_ErrorsTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_IDS_Kategorien_KundenTableAdapter) Is Nothing) Then Me._tbl_IDS_Kategorien_KundenTableAdapter.Connection = CType(revertConnections(Me._tbl_IDS_Kategorien_KundenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_Kategorien_KundenTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_IDS_Kategorien_RechenwerteTableAdapter) Is Nothing) Then Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Connection = CType(revertConnections(Me._tbl_IDS_Kategorien_RechenwerteTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_Kategorien_RechenwerteTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_IDS_KundenTableAdapter) Is Nothing) Then Me._tbl_IDS_KundenTableAdapter.Connection = CType(revertConnections(Me._tbl_IDS_KundenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_KundenTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_IDS_Kunden_ohne_RabattTableAdapter) Is Nothing) Then Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Connection = CType(revertConnections(Me._tbl_IDS_Kunden_ohne_RabattTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_Kunden_ohne_RabattTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_IDS_LänderTableAdapter) Is Nothing) Then Me._tbl_IDS_LänderTableAdapter.Connection = CType(revertConnections(Me._tbl_IDS_LänderTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_LänderTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_IDS_ProdukteTableAdapter) Is Nothing) Then Me._tbl_IDS_ProdukteTableAdapter.Connection = CType(revertConnections(Me._tbl_IDS_ProdukteTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_ProdukteTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_IDS_RechenwerteTableAdapter) Is Nothing) Then Me._tbl_IDS_RechenwerteTableAdapter.Connection = CType(revertConnections(Me._tbl_IDS_RechenwerteTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_RechenwerteTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_IDS_StationenTableAdapter) Is Nothing) Then Me._tbl_IDS_StationenTableAdapter.Connection = CType(revertConnections(Me._tbl_IDS_StationenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_IDS_StationenTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_Intrastat_AusfuhrTableAdapter) Is Nothing) Then Me._tbl_Intrastat_AusfuhrTableAdapter.Connection = CType(revertConnections(Me._tbl_Intrastat_AusfuhrTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_Intrastat_AusfuhrTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_TelefonbuchTableAdapter) Is Nothing) Then Me._tbl_TelefonbuchTableAdapter.Connection = CType(revertConnections(Me._tbl_TelefonbuchTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_TelefonbuchTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_TelefonnummernTableAdapter) Is Nothing) Then Me._tbl_TelefonnummernTableAdapter.Connection = CType(revertConnections(Me._tbl_TelefonnummernTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_TelefonnummernTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_WÖLFLTableAdapter) Is Nothing) Then Me._tbl_WÖLFLTableAdapter.Connection = CType(revertConnections(Me._tbl_WÖLFLTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_WÖLFLTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_ZM_tabelleTableAdapter) Is Nothing) Then Me._tbl_ZM_tabelleTableAdapter.Connection = CType(revertConnections(Me._tbl_ZM_tabelleTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_ZM_tabelleTableAdapter.Transaction = Nothing End If If (Not (Me._tblAbfertigungsartenFilialeTableAdapter) Is Nothing) Then Me._tblAbfertigungsartenFilialeTableAdapter.Connection = CType(revertConnections(Me._tblAbfertigungsartenFilialeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblAbfertigungsartenFilialeTableAdapter.Transaction = Nothing End If If (Not (Me._tblAbfertigungsartOffertenstammTableAdapter) Is Nothing) Then Me._tblAbfertigungsartOffertenstammTableAdapter.Connection = CType(revertConnections(Me._tblAbfertigungsartOffertenstammTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblAbfertigungsartOffertenstammTableAdapter.Transaction = Nothing End If If (Not (Me._tblAbrechnung_NCTSBrgTableAdapter) Is Nothing) Then Me._tblAbrechnung_NCTSBrgTableAdapter.Connection = CType(revertConnections(Me._tblAbrechnung_NCTSBrgTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblAbrechnung_NCTSBrgTableAdapter.Transaction = Nothing End If If (Not (Me._tblAnmeldungTableAdapter) Is Nothing) Then Me._tblAnmeldungTableAdapter.Connection = CType(revertConnections(Me._tblAnmeldungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblAnmeldungTableAdapter.Transaction = Nothing End If If (Not (Me._tblAsfinagMautTableAdapter) Is Nothing) Then Me._tblAsfinagMautTableAdapter.Connection = CType(revertConnections(Me._tblAsfinagMautTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblAsfinagMautTableAdapter.Transaction = Nothing End If If (Not (Me._tblATEZ_NCTSTableAdapter) Is Nothing) Then Me._tblATEZ_NCTSTableAdapter.Connection = CType(revertConnections(Me._tblATEZ_NCTSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblATEZ_NCTSTableAdapter.Transaction = Nothing End If If (Not (Me._tblATEZ_NCTS_RoutenTableAdapter) Is Nothing) Then Me._tblATEZ_NCTS_RoutenTableAdapter.Connection = CType(revertConnections(Me._tblATEZ_NCTS_RoutenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblATEZ_NCTS_RoutenTableAdapter.Transaction = Nothing End If If (Not (Me._tblATEZ_NCTS_SessionsTableAdapter) Is Nothing) Then Me._tblATEZ_NCTS_SessionsTableAdapter.Connection = CType(revertConnections(Me._tblATEZ_NCTS_SessionsTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblATEZ_NCTS_SessionsTableAdapter.Transaction = Nothing End If If (Not (Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter) Is Nothing) Then Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Connection = CType(revertConnections(Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblATEZ_NCTS_TransitCustomsOfficeTableAdapter.Transaction = Nothing End If If (Not (Me._tblBankspesenTableAdapter) Is Nothing) Then Me._tblBankspesenTableAdapter.Connection = CType(revertConnections(Me._tblBankspesenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblBankspesenTableAdapter.Transaction = Nothing End If If (Not (Me._tblBerechnungsmethodeTableAdapter) Is Nothing) Then Me._tblBerechnungsmethodeTableAdapter.Connection = CType(revertConnections(Me._tblBerechnungsmethodeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblBerechnungsmethodeTableAdapter.Transaction = Nothing End If If (Not (Me._tblBerichtsdruckerTableAdapter) Is Nothing) Then Me._tblBerichtsdruckerTableAdapter.Connection = CType(revertConnections(Me._tblBerichtsdruckerTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblBerichtsdruckerTableAdapter.Transaction = Nothing End If If (Not (Me._tblBesuchsberichteTableAdapter) Is Nothing) Then Me._tblBesuchsberichteTableAdapter.Connection = CType(revertConnections(Me._tblBesuchsberichteTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblBesuchsberichteTableAdapter.Transaction = Nothing End If If (Not (Me._tblBonitaetsauskunftTableAdapter) Is Nothing) Then Me._tblBonitaetsauskunftTableAdapter.Connection = CType(revertConnections(Me._tblBonitaetsauskunftTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblBonitaetsauskunftTableAdapter.Transaction = Nothing End If If (Not (Me._tblBuchungstextTableAdapter) Is Nothing) Then Me._tblBuchungstextTableAdapter.Connection = CType(revertConnections(Me._tblBuchungstextTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblBuchungstextTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_AESTableAdapter) Is Nothing) Then Me._tblDakosy_AESTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_AESTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_AESTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_AES_WarenpositionTableAdapter) Is Nothing) Then Me._tblDakosy_AES_WarenpositionTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_AES_WarenpositionTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_AES_WarenpositionTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_AES_WarenpositionPackstueckeTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter) Is Nothing) Then Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_AES_WarenpositionUnterlagenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_EZATableAdapter) Is Nothing) Then Me._tblDakosy_EZATableAdapter.Connection = CType(revertConnections(Me._tblDakosy_EZATableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZATableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_EZA_AdressenTableAdapter) Is Nothing) Then Me._tblDakosy_EZA_AdressenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_EZA_AdressenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_AdressenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_EZA_AufschubTableAdapter) Is Nothing) Then Me._tblDakosy_EZA_AufschubTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_EZA_AufschubTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_AufschubTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter) Is Nothing) Then Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_BEAnteilZLAVUVTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter) Is Nothing) Then Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_SumABeendigungsAnteilTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_EZA_UnterlagenTableAdapter) Is Nothing) Then Me._tblDakosy_EZA_UnterlagenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_EZA_UnterlagenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_UnterlagenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_EZA_WarenpositionTableAdapter) Is Nothing) Then Me._tblDakosy_EZA_WarenpositionTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_EZA_WarenpositionTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_WarenpositionTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter) Is Nothing) Then Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_WarenpositionSonderfalldatenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter) Is Nothing) Then Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_WarenpositionUnterlagenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter) Is Nothing) Then Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_EZA_WarenpositionVerbrauchssteuerTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOutTableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOutTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOutTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOutTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut_SicherheitsangabenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionTableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOut_WarenpositionTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut_WarenpositionTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut_WarenpositionPackstueckeTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOut004TableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOut004TableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOut004TableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004TableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004_GuaranteeTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004_HouseConsignmentTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItemTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_PackagingTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter) Is Nothing) Then Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_NCTSOut004_TransportEquipmentTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_StammreferenzenTableAdapter) Is Nothing) Then Me._tblDakosy_StammreferenzenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_StammreferenzenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_StammreferenzenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_StatusmeldungenTableAdapter) Is Nothing) Then Me._tblDakosy_StatusmeldungenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_StatusmeldungenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_StatusmeldungenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_ZollanmeldungenTableAdapter) Is Nothing) Then Me._tblDakosy_ZollanmeldungenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_ZollanmeldungenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_ZollanmeldungenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDakosy_ZollanmeldungenArtenTableAdapter) Is Nothing) Then Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Connection = CType(revertConnections(Me._tblDakosy_ZollanmeldungenArtenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDakosy_ZollanmeldungenArtenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDatenarchivTableAdapter) Is Nothing) Then Me._tblDatenarchivTableAdapter.Connection = CType(revertConnections(Me._tblDatenarchivTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDatenarchivTableAdapter.Transaction = Nothing End If If (Not (Me._tblDatenarchiv_CollectionTableAdapter) Is Nothing) Then Me._tblDatenarchiv_CollectionTableAdapter.Connection = CType(revertConnections(Me._tblDatenarchiv_CollectionTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDatenarchiv_CollectionTableAdapter.Transaction = Nothing End If If (Not (Me._tblDEBundeslaenderPLZTableAdapter) Is Nothing) Then Me._tblDEBundeslaenderPLZTableAdapter.Connection = CType(revertConnections(Me._tblDEBundeslaenderPLZTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDEBundeslaenderPLZTableAdapter.Transaction = Nothing End If If (Not (Me._tblDHF_AnhaengeTableAdapter) Is Nothing) Then Me._tblDHF_AnhaengeTableAdapter.Connection = CType(revertConnections(Me._tblDHF_AnhaengeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDHF_AnhaengeTableAdapter.Transaction = Nothing End If If (Not (Me._tblDieselArchivTableAdapter) Is Nothing) Then Me._tblDieselArchivTableAdapter.Connection = CType(revertConnections(Me._tblDieselArchivTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDieselArchivTableAdapter.Transaction = Nothing End If If (Not (Me._tblDigicust_SendungenTableAdapter) Is Nothing) Then Me._tblDigicust_SendungenTableAdapter.Connection = CType(revertConnections(Me._tblDigicust_SendungenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDigicust_SendungenTableAdapter.Transaction = Nothing End If If (Not (Me._tblDigicust_SessionsTableAdapter) Is Nothing) Then Me._tblDigicust_SessionsTableAdapter.Connection = CType(revertConnections(Me._tblDigicust_SessionsTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDigicust_SessionsTableAdapter.Transaction = Nothing End If If (Not (Me._tblDigicust_SettingsTableAdapter) Is Nothing) Then Me._tblDigicust_SettingsTableAdapter.Connection = CType(revertConnections(Me._tblDigicust_SettingsTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblDigicust_SettingsTableAdapter.Transaction = Nothing End If If (Not (Me._tblEABelegnummerTableAdapter) Is Nothing) Then Me._tblEABelegnummerTableAdapter.Connection = CType(revertConnections(Me._tblEABelegnummerTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblEABelegnummerTableAdapter.Transaction = Nothing End If If (Not (Me._tblEABelegpositionTableAdapter) Is Nothing) Then Me._tblEABelegpositionTableAdapter.Connection = CType(revertConnections(Me._tblEABelegpositionTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblEABelegpositionTableAdapter.Transaction = Nothing End If If (Not (Me._tblEmailBenachrichtigungTableAdapter) Is Nothing) Then Me._tblEmailBenachrichtigungTableAdapter.Connection = CType(revertConnections(Me._tblEmailBenachrichtigungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblEmailBenachrichtigungTableAdapter.Transaction = Nothing End If If (Not (Me._tblEmailBenachrichtigungArtenTableAdapter) Is Nothing) Then Me._tblEmailBenachrichtigungArtenTableAdapter.Connection = CType(revertConnections(Me._tblEmailBenachrichtigungArtenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblEmailBenachrichtigungArtenTableAdapter.Transaction = Nothing End If If (Not (Me._tblEORIPruefungTableAdapter) Is Nothing) Then Me._tblEORIPruefungTableAdapter.Connection = CType(revertConnections(Me._tblEORIPruefungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblEORIPruefungTableAdapter.Transaction = Nothing End If If (Not (Me._tblEZB_WaehrungskurseTableAdapter) Is Nothing) Then Me._tblEZB_WaehrungskurseTableAdapter.Connection = CType(revertConnections(Me._tblEZB_WaehrungskurseTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblEZB_WaehrungskurseTableAdapter.Transaction = Nothing End If If (Not (Me._tblEZT_ImportcodenummernTableAdapter) Is Nothing) Then Me._tblEZT_ImportcodenummernTableAdapter.Connection = CType(revertConnections(Me._tblEZT_ImportcodenummernTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblEZT_ImportcodenummernTableAdapter.Transaction = Nothing End If If (Not (Me._tblFahrerDatenTableAdapter) Is Nothing) Then Me._tblFahrerDatenTableAdapter.Connection = CType(revertConnections(Me._tblFahrerDatenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblFahrerDatenTableAdapter.Transaction = Nothing End If If (Not (Me._tblFirmaTableAdapter) Is Nothing) Then Me._tblFirmaTableAdapter.Connection = CType(revertConnections(Me._tblFirmaTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblFirmaTableAdapter.Transaction = Nothing End If If (Not (Me._tblFiskal_DatenTableAdapter) Is Nothing) Then Me._tblFiskal_DatenTableAdapter.Connection = CType(revertConnections(Me._tblFiskal_DatenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblFiskal_DatenTableAdapter.Transaction = Nothing End If If (Not (Me._tblFiskalkundenTableAdapter) Is Nothing) Then Me._tblFiskalkundenTableAdapter.Connection = CType(revertConnections(Me._tblFiskalkundenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblFiskalkundenTableAdapter.Transaction = Nothing End If If (Not (Me._tblFormulardatenTableAdapter) Is Nothing) Then Me._tblFormulardatenTableAdapter.Connection = CType(revertConnections(Me._tblFormulardatenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblFormulardatenTableAdapter.Transaction = Nothing End If If (Not (Me._tblFormulareVorlagenTableAdapter) Is Nothing) Then Me._tblFormulareVorlagenTableAdapter.Connection = CType(revertConnections(Me._tblFormulareVorlagenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblFormulareVorlagenTableAdapter.Transaction = Nothing End If If (Not (Me._tblFormulareVorlagenValuesTableAdapter) Is Nothing) Then Me._tblFormulareVorlagenValuesTableAdapter.Connection = CType(revertConnections(Me._tblFormulareVorlagenValuesTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblFormulareVorlagenValuesTableAdapter.Transaction = Nothing End If If (Not (Me._tblFremdSpeditionenZuordnungTableAdapter) Is Nothing) Then Me._tblFremdSpeditionenZuordnungTableAdapter.Connection = CType(revertConnections(Me._tblFremdSpeditionenZuordnungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblFremdSpeditionenZuordnungTableAdapter.Transaction = Nothing End If If (Not (Me._tblFTP_LogTableAdapter) Is Nothing) Then Me._tblFTP_LogTableAdapter.Connection = CType(revertConnections(Me._tblFTP_LogTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblFTP_LogTableAdapter.Transaction = Nothing End If If (Not (Me._tblFTP_Log_Backup2TableAdapter) Is Nothing) Then Me._tblFTP_Log_Backup2TableAdapter.Connection = CType(revertConnections(Me._tblFTP_Log_Backup2TableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblFTP_Log_Backup2TableAdapter.Transaction = Nothing End If If (Not (Me._tblGebuehrenvermarktungsnormenTableAdapter) Is Nothing) Then Me._tblGebuehrenvermarktungsnormenTableAdapter.Connection = CType(revertConnections(Me._tblGebuehrenvermarktungsnormenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGebuehrenvermarktungsnormenTableAdapter.Transaction = Nothing End If If (Not (Me._tblGelangensbestaetigungTableAdapter) Is Nothing) Then Me._tblGelangensbestaetigungTableAdapter.Connection = CType(revertConnections(Me._tblGelangensbestaetigungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGelangensbestaetigungTableAdapter.Transaction = Nothing End If If (Not (Me._tblGeschäftsjahrTableAdapter) Is Nothing) Then Me._tblGeschäftsjahrTableAdapter.Connection = CType(revertConnections(Me._tblGeschäftsjahrTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGeschäftsjahrTableAdapter.Transaction = Nothing End If If (Not (Me._tblGeschäftsjahrBelegNrTableAdapter) Is Nothing) Then Me._tblGeschäftsjahrBelegNrTableAdapter.Connection = CType(revertConnections(Me._tblGeschäftsjahrBelegNrTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGeschäftsjahrBelegNrTableAdapter.Transaction = Nothing End If If (Not (Me._tblGeschäftsjahrJournalNrTableAdapter) Is Nothing) Then Me._tblGeschäftsjahrJournalNrTableAdapter.Connection = CType(revertConnections(Me._tblGeschäftsjahrJournalNrTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGeschäftsjahrJournalNrTableAdapter.Transaction = Nothing End If If (Not (Me._tblGestellungsgarantienTableAdapter) Is Nothing) Then Me._tblGestellungsgarantienTableAdapter.Connection = CType(revertConnections(Me._tblGestellungsgarantienTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGestellungsgarantienTableAdapter.Transaction = Nothing End If If (Not (Me._tblGestellungsmitteilungTableAdapter) Is Nothing) Then Me._tblGestellungsmitteilungTableAdapter.Connection = CType(revertConnections(Me._tblGestellungsmitteilungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGestellungsmitteilungTableAdapter.Transaction = Nothing End If If (Not (Me._tblGestellungsmitteilung_PositionenTableAdapter) Is Nothing) Then Me._tblGestellungsmitteilung_PositionenTableAdapter.Connection = CType(revertConnections(Me._tblGestellungsmitteilung_PositionenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGestellungsmitteilung_PositionenTableAdapter.Transaction = Nothing End If If (Not (Me._tblGOBOXBestellungenTableAdapter) Is Nothing) Then Me._tblGOBOXBestellungenTableAdapter.Connection = CType(revertConnections(Me._tblGOBOXBestellungenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGOBOXBestellungenTableAdapter.Transaction = Nothing End If If (Not (Me._tblGVMSTableAdapter) Is Nothing) Then Me._tblGVMSTableAdapter.Connection = CType(revertConnections(Me._tblGVMSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGVMSTableAdapter.Transaction = Nothing End If If (Not (Me._tblGVMS_CarriersTableAdapter) Is Nothing) Then Me._tblGVMS_CarriersTableAdapter.Connection = CType(revertConnections(Me._tblGVMS_CarriersTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGVMS_CarriersTableAdapter.Transaction = Nothing End If If (Not (Me._tblGVMS_PortsTableAdapter) Is Nothing) Then Me._tblGVMS_PortsTableAdapter.Connection = CType(revertConnections(Me._tblGVMS_PortsTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGVMS_PortsTableAdapter.Transaction = Nothing End If If (Not (Me._tblGVMS_PosTableAdapter) Is Nothing) Then Me._tblGVMS_PosTableAdapter.Connection = CType(revertConnections(Me._tblGVMS_PosTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGVMS_PosTableAdapter.Transaction = Nothing End If If (Not (Me._tblGVMS_RoutesTableAdapter) Is Nothing) Then Me._tblGVMS_RoutesTableAdapter.Connection = CType(revertConnections(Me._tblGVMS_RoutesTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblGVMS_RoutesTableAdapter.Transaction = Nothing End If If (Not (Me._tblHandlingssaetzeInternTableAdapter) Is Nothing) Then Me._tblHandlingssaetzeInternTableAdapter.Connection = CType(revertConnections(Me._tblHandlingssaetzeInternTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblHandlingssaetzeInternTableAdapter.Transaction = Nothing End If If (Not (Me._tblHistorieTableAdapter) Is Nothing) Then Me._tblHistorieTableAdapter.Connection = CType(revertConnections(Me._tblHistorieTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblHistorieTableAdapter.Transaction = Nothing End If If (Not (Me._tblIDS_TransaktionenTableAdapter) Is Nothing) Then Me._tblIDS_TransaktionenTableAdapter.Connection = CType(revertConnections(Me._tblIDS_TransaktionenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblIDS_TransaktionenTableAdapter.Transaction = Nothing End If If (Not (Me._tblKassenbuchTableAdapter) Is Nothing) Then Me._tblKassenbuchTableAdapter.Connection = CType(revertConnections(Me._tblKassenbuchTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKassenbuchTableAdapter.Transaction = Nothing End If If (Not (Me._tblKontoTableAdapter) Is Nothing) Then Me._tblKontoTableAdapter.Connection = CType(revertConnections(Me._tblKontoTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKontoTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenAufschubkontenTableAdapter) Is Nothing) Then Me._tblKundenAufschubkontenTableAdapter.Connection = CType(revertConnections(Me._tblKundenAufschubkontenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenAufschubkontenTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenBesonderheitenTableAdapter) Is Nothing) Then Me._tblKundenBesonderheitenTableAdapter.Connection = CType(revertConnections(Me._tblKundenBesonderheitenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenBesonderheitenTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenBesonderheiten_KategorienTableAdapter) Is Nothing) Then Me._tblKundenBesonderheiten_KategorienTableAdapter.Connection = CType(revertConnections(Me._tblKundenBesonderheiten_KategorienTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenBesonderheiten_KategorienTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenDatenblattTableAdapter) Is Nothing) Then Me._tblKundenDatenblattTableAdapter.Connection = CType(revertConnections(Me._tblKundenDatenblattTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenDatenblattTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenErweitertTableAdapter) Is Nothing) Then Me._tblKundenErweitertTableAdapter.Connection = CType(revertConnections(Me._tblKundenErweitertTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenErweitertTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenKontaktTableAdapter) Is Nothing) Then Me._tblKundenKontaktTableAdapter.Connection = CType(revertConnections(Me._tblKundenKontaktTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenKontaktTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenKontaktArtenTableAdapter) Is Nothing) Then Me._tblKundenKontaktArtenTableAdapter.Connection = CType(revertConnections(Me._tblKundenKontaktArtenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenKontaktArtenTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenumsatzTableAdapter) Is Nothing) Then Me._tblKundenumsatzTableAdapter.Connection = CType(revertConnections(Me._tblKundenumsatzTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenumsatzTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenVermerkeTableAdapter) Is Nothing) Then Me._tblKundenVermerkeTableAdapter.Connection = CType(revertConnections(Me._tblKundenVermerkeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenVermerkeTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenVertraegeTableAdapter) Is Nothing) Then Me._tblKundenVertraegeTableAdapter.Connection = CType(revertConnections(Me._tblKundenVertraegeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenVertraegeTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenVertraegeArtenTableAdapter) Is Nothing) Then Me._tblKundenVertraegeArtenTableAdapter.Connection = CType(revertConnections(Me._tblKundenVertraegeArtenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenVertraegeArtenTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenVollmachtenTableAdapter) Is Nothing) Then Me._tblKundenVollmachtenTableAdapter.Connection = CType(revertConnections(Me._tblKundenVollmachtenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenVollmachtenTableAdapter.Transaction = Nothing End If If (Not (Me._tblKundenVollmachtenArtTableAdapter) Is Nothing) Then Me._tblKundenVollmachtenArtTableAdapter.Connection = CType(revertConnections(Me._tblKundenVollmachtenArtTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblKundenVollmachtenArtTableAdapter.Transaction = Nothing End If If (Not (Me._tblLogbuchTableAdapter) Is Nothing) Then Me._tblLogbuchTableAdapter.Connection = CType(revertConnections(Me._tblLogbuchTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblLogbuchTableAdapter.Transaction = Nothing End If If (Not (Me._tblMandantTableAdapter) Is Nothing) Then Me._tblMandantTableAdapter.Connection = CType(revertConnections(Me._tblMandantTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMandantTableAdapter.Transaction = Nothing End If If (Not (Me._tblMautIT_BelegartenTableAdapter) Is Nothing) Then Me._tblMautIT_BelegartenTableAdapter.Connection = CType(revertConnections(Me._tblMautIT_BelegartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMautIT_BelegartenTableAdapter.Transaction = Nothing End If If (Not (Me._tblMautITArchivTableAdapter) Is Nothing) Then Me._tblMautITArchivTableAdapter.Connection = CType(revertConnections(Me._tblMautITArchivTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMautITArchivTableAdapter.Transaction = Nothing End If If (Not (Me._tblMDM_ParamterTableAdapter) Is Nothing) Then Me._tblMDM_ParamterTableAdapter.Connection = CType(revertConnections(Me._tblMDM_ParamterTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMDM_ParamterTableAdapter.Transaction = Nothing End If If (Not (Me._tblMSECustomersTableAdapter) Is Nothing) Then Me._tblMSECustomersTableAdapter.Connection = CType(revertConnections(Me._tblMSECustomersTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMSECustomersTableAdapter.Transaction = Nothing End If If (Not (Me._tblMSEImportTableAdapter) Is Nothing) Then Me._tblMSEImportTableAdapter.Connection = CType(revertConnections(Me._tblMSEImportTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMSEImportTableAdapter.Transaction = Nothing End If If (Not (Me._tblMSEInvoicesTableAdapter) Is Nothing) Then Me._tblMSEInvoicesTableAdapter.Connection = CType(revertConnections(Me._tblMSEInvoicesTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMSEInvoicesTableAdapter.Transaction = Nothing End If If (Not (Me._tblMSELeistungenTableAdapter) Is Nothing) Then Me._tblMSELeistungenTableAdapter.Connection = CType(revertConnections(Me._tblMSELeistungenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMSELeistungenTableAdapter.Transaction = Nothing End If If (Not (Me._tblMSESettlementsTableAdapter) Is Nothing) Then Me._tblMSESettlementsTableAdapter.Connection = CType(revertConnections(Me._tblMSESettlementsTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMSESettlementsTableAdapter.Transaction = Nothing End If If (Not (Me._tblMSETransactionsTableAdapter) Is Nothing) Then Me._tblMSETransactionsTableAdapter.Connection = CType(revertConnections(Me._tblMSETransactionsTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMSETransactionsTableAdapter.Transaction = Nothing End If If (Not (Me._tblMSETransactionsArchivTableAdapter) Is Nothing) Then Me._tblMSETransactionsArchivTableAdapter.Connection = CType(revertConnections(Me._tblMSETransactionsArchivTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMSETransactionsArchivTableAdapter.Transaction = Nothing End If If (Not (Me._tblMSETransactionsArchivOLDTableAdapter) Is Nothing) Then Me._tblMSETransactionsArchivOLDTableAdapter.Connection = CType(revertConnections(Me._tblMSETransactionsArchivOLDTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblMSETransactionsArchivOLDTableAdapter.Transaction = Nothing End If If (Not (Me._tblNCTS_TRTableAdapter) Is Nothing) Then Me._tblNCTS_TRTableAdapter.Connection = CType(revertConnections(Me._tblNCTS_TRTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblNCTS_TRTableAdapter.Transaction = Nothing End If If (Not (Me._tblNCTS_TR_NachrichtenTableAdapter) Is Nothing) Then Me._tblNCTS_TR_NachrichtenTableAdapter.Connection = CType(revertConnections(Me._tblNCTS_TR_NachrichtenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblNCTS_TR_NachrichtenTableAdapter.Transaction = Nothing End If If (Not (Me._tblNCTS_TR_SicherheitsangabenTableAdapter) Is Nothing) Then Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Connection = CType(revertConnections(Me._tblNCTS_TR_SicherheitsangabenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblNCTS_TR_SicherheitsangabenTableAdapter.Transaction = Nothing End If If (Not (Me._tblNCTS_TR_WarenpositionTableAdapter) Is Nothing) Then Me._tblNCTS_TR_WarenpositionTableAdapter.Connection = CType(revertConnections(Me._tblNCTS_TR_WarenpositionTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblNCTS_TR_WarenpositionTableAdapter.Transaction = Nothing End If If (Not (Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter) Is Nothing) Then Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Connection = CType(revertConnections(Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblNCTS_TR_WarenpositionPackstueckeTableAdapter.Transaction = Nothing End If If (Not (Me._tblNCTSGestellungsadressenTableAdapter) Is Nothing) Then Me._tblNCTSGestellungsadressenTableAdapter.Connection = CType(revertConnections(Me._tblNCTSGestellungsadressenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblNCTSGestellungsadressenTableAdapter.Transaction = Nothing End If If (Not (Me._tblNTCSRoutenTableAdapter) Is Nothing) Then Me._tblNTCSRoutenTableAdapter.Connection = CType(revertConnections(Me._tblNTCSRoutenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblNTCSRoutenTableAdapter.Transaction = Nothing End If If (Not (Me._tblOffertenArchivTableAdapter) Is Nothing) Then Me._tblOffertenArchivTableAdapter.Connection = CType(revertConnections(Me._tblOffertenArchivTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOffertenArchivTableAdapter.Transaction = Nothing End If If (Not (Me._tblOffertenPositionenArchivTableAdapter) Is Nothing) Then Me._tblOffertenPositionenArchivTableAdapter.Connection = CType(revertConnections(Me._tblOffertenPositionenArchivTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOffertenPositionenArchivTableAdapter.Transaction = Nothing End If If (Not (Me._tblOregonNCTS_DeclarationDataTableAdapter) Is Nothing) Then Me._tblOregonNCTS_DeclarationDataTableAdapter.Connection = CType(revertConnections(Me._tblOregonNCTS_DeclarationDataTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_DeclarationDataTableAdapter.Transaction = Nothing End If If (Not (Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter) Is Nothing) Then Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Connection = CType(revertConnections(Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_AdditionalCodesAttributeTableAdapter.Transaction = Nothing End If If (Not (Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter) Is Nothing) Then Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Connection = CType(revertConnections(Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_DocumentsAttributeTableAdapter.Transaction = Nothing End If If (Not (Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter) Is Nothing) Then Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Connection = CType(revertConnections(Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_GoodsAttributeTableAdapter.Transaction = Nothing End If If (Not (Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter) Is Nothing) Then Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Connection = CType(revertConnections(Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_PacksAttributeTableAdapter.Transaction = Nothing End If If (Not (Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter) Is Nothing) Then Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Connection = CType(revertConnections(Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_PartiesAttributeTableAdapter.Transaction = Nothing End If If (Not (Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter) Is Nothing) Then Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Connection = CType(revertConnections(Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_ProducedDocumentsAttributeTableAdapter.Transaction = Nothing End If If (Not (Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter) Is Nothing) Then Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Connection = CType(revertConnections(Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_Declarations_TraderAdditionsAttributeTableAdapter.Transaction = Nothing End If If (Not (Me._tblOregonNCTS_ReferenceTemplateTableAdapter) Is Nothing) Then Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Connection = CType(revertConnections(Me._tblOregonNCTS_ReferenceTemplateTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOregonNCTS_ReferenceTemplateTableAdapter.Transaction = Nothing End If If (Not (Me._tblOriginalATRTableAdapter) Is Nothing) Then Me._tblOriginalATRTableAdapter.Connection = CType(revertConnections(Me._tblOriginalATRTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblOriginalATRTableAdapter.Transaction = Nothing End If If (Not (Me._tblPartnersystem_ParamterTableAdapter) Is Nothing) Then Me._tblPartnersystem_ParamterTableAdapter.Connection = CType(revertConnections(Me._tblPartnersystem_ParamterTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPartnersystem_ParamterTableAdapter.Transaction = Nothing End If If (Not (Me._tblPfadTableAdapter) Is Nothing) Then Me._tblPfadTableAdapter.Connection = CType(revertConnections(Me._tblPfadTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPfadTableAdapter.Transaction = Nothing End If If (Not (Me._tblPLOSE_DetailsTableAdapter) Is Nothing) Then Me._tblPLOSE_DetailsTableAdapter.Connection = CType(revertConnections(Me._tblPLOSE_DetailsTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPLOSE_DetailsTableAdapter.Transaction = Nothing End If If (Not (Me._tblPLOSE_Inv_DataTableAdapter) Is Nothing) Then Me._tblPLOSE_Inv_DataTableAdapter.Connection = CType(revertConnections(Me._tblPLOSE_Inv_DataTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPLOSE_Inv_DataTableAdapter.Transaction = Nothing End If If (Not (Me._tblPLOSE_LieferantTableAdapter) Is Nothing) Then Me._tblPLOSE_LieferantTableAdapter.Connection = CType(revertConnections(Me._tblPLOSE_LieferantTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPLOSE_LieferantTableAdapter.Transaction = Nothing End If If (Not (Me._tblPLOSE_ProduktbeschreibungTableAdapter) Is Nothing) Then Me._tblPLOSE_ProduktbeschreibungTableAdapter.Connection = CType(revertConnections(Me._tblPLOSE_ProduktbeschreibungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPLOSE_ProduktbeschreibungTableAdapter.Transaction = Nothing End If If (Not (Me._tblPosNrTableAdapter) Is Nothing) Then Me._tblPosNrTableAdapter.Connection = CType(revertConnections(Me._tblPosNrTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPosNrTableAdapter.Transaction = Nothing End If If (Not (Me._tblPostversandTableAdapter) Is Nothing) Then Me._tblPostversandTableAdapter.Connection = CType(revertConnections(Me._tblPostversandTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPostversandTableAdapter.Transaction = Nothing End If If (Not (Me._tblPreislistenTableAdapter) Is Nothing) Then Me._tblPreislistenTableAdapter.Connection = CType(revertConnections(Me._tblPreislistenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPreislistenTableAdapter.Transaction = Nothing End If If (Not (Me._tblPreislistenpositionenTableAdapter) Is Nothing) Then Me._tblPreislistenpositionenTableAdapter.Connection = CType(revertConnections(Me._tblPreislistenpositionenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPreislistenpositionenTableAdapter.Transaction = Nothing End If If (Not (Me._tblPreistabellenTableAdapter) Is Nothing) Then Me._tblPreistabellenTableAdapter.Connection = CType(revertConnections(Me._tblPreistabellenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPreistabellenTableAdapter.Transaction = Nothing End If If (Not (Me._tblPreistabellenpositionenTableAdapter) Is Nothing) Then Me._tblPreistabellenpositionenTableAdapter.Connection = CType(revertConnections(Me._tblPreistabellenpositionenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblPreistabellenpositionenTableAdapter.Transaction = Nothing End If If (Not (Me._tblQS_AbfertigungsartenTableAdapter) Is Nothing) Then Me._tblQS_AbfertigungsartenTableAdapter.Connection = CType(revertConnections(Me._tblQS_AbfertigungsartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblQS_AbfertigungsartenTableAdapter.Transaction = Nothing End If If (Not (Me._tblQS_AufträgeTableAdapter) Is Nothing) Then Me._tblQS_AufträgeTableAdapter.Connection = CType(revertConnections(Me._tblQS_AufträgeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblQS_AufträgeTableAdapter.Transaction = Nothing End If If (Not (Me._tblQS_AuftragspositionenTableAdapter) Is Nothing) Then Me._tblQS_AuftragspositionenTableAdapter.Connection = CType(revertConnections(Me._tblQS_AuftragspositionenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblQS_AuftragspositionenTableAdapter.Transaction = Nothing End If If (Not (Me._tblQS_TeamsTableAdapter) Is Nothing) Then Me._tblQS_TeamsTableAdapter.Connection = CType(revertConnections(Me._tblQS_TeamsTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblQS_TeamsTableAdapter.Transaction = Nothing End If If (Not (Me._tblQS_TeamsMATableAdapter) Is Nothing) Then Me._tblQS_TeamsMATableAdapter.Connection = CType(revertConnections(Me._tblQS_TeamsMATableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblQS_TeamsMATableAdapter.Transaction = Nothing End If If (Not (Me._tblRechnungsnotizenTableAdapter) Is Nothing) Then Me._tblRechnungsnotizenTableAdapter.Connection = CType(revertConnections(Me._tblRechnungsnotizenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblRechnungsnotizenTableAdapter.Transaction = Nothing End If If (Not (Me._tblRefTableAdapter) Is Nothing) Then Me._tblRefTableAdapter.Connection = CType(revertConnections(Me._tblRefTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblRefTableAdapter.Transaction = Nothing End If If (Not (Me._tblRefBeziehungenTableAdapter) Is Nothing) Then Me._tblRefBeziehungenTableAdapter.Connection = CType(revertConnections(Me._tblRefBeziehungenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblRefBeziehungenTableAdapter.Transaction = Nothing End If If (Not (Me._tblRKSV_KassenTableAdapter) Is Nothing) Then Me._tblRKSV_KassenTableAdapter.Connection = CType(revertConnections(Me._tblRKSV_KassenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblRKSV_KassenTableAdapter.Transaction = Nothing End If If (Not (Me._tblRKSV_POSTableAdapter) Is Nothing) Then Me._tblRKSV_POSTableAdapter.Connection = CType(revertConnections(Me._tblRKSV_POSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblRKSV_POSTableAdapter.Transaction = Nothing End If If (Not (Me._tblRMCImportTableAdapter) Is Nothing) Then Me._tblRMCImportTableAdapter.Connection = CType(revertConnections(Me._tblRMCImportTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblRMCImportTableAdapter.Transaction = Nothing End If If (Not (Me._tblSMSTableAdapter) Is Nothing) Then Me._tblSMSTableAdapter.Connection = CType(revertConnections(Me._tblSMSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblSMSTableAdapter.Transaction = Nothing End If If (Not (Me._tblSpeditionsbucharchivTableAdapter) Is Nothing) Then Me._tblSpeditionsbucharchivTableAdapter.Connection = CType(revertConnections(Me._tblSpeditionsbucharchivTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblSpeditionsbucharchivTableAdapter.Transaction = Nothing End If If (Not (Me._tblSpeditionsbuchEndEmpfaengerTableAdapter) Is Nothing) Then Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Connection = CType(revertConnections(Me._tblSpeditionsbuchEndEmpfaengerTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblSpeditionsbuchEndEmpfaengerTableAdapter.Transaction = Nothing End If If (Not (Me._tblSpeditionsbuchUnterPosTableAdapter) Is Nothing) Then Me._tblSpeditionsbuchUnterPosTableAdapter.Connection = CType(revertConnections(Me._tblSpeditionsbuchUnterPosTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblSpeditionsbuchUnterPosTableAdapter.Transaction = Nothing End If If (Not (Me._tblSpeditionsbuchUnterPosArtenTableAdapter) Is Nothing) Then Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Connection = CType(revertConnections(Me._tblSpeditionsbuchUnterPosArtenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblSpeditionsbuchUnterPosArtenTableAdapter.Transaction = Nothing End If If (Not (Me._tblSteuernummernTableAdapter) Is Nothing) Then Me._tblSteuernummernTableAdapter.Connection = CType(revertConnections(Me._tblSteuernummernTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblSteuernummernTableAdapter.Transaction = Nothing End If If (Not (Me._tblSteuersätzeTableAdapter) Is Nothing) Then Me._tblSteuersätzeTableAdapter.Connection = CType(revertConnections(Me._tblSteuersätzeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblSteuersätzeTableAdapter.Transaction = Nothing End If If (Not (Me._tblSteuertypTableAdapter) Is Nothing) Then Me._tblSteuertypTableAdapter.Connection = CType(revertConnections(Me._tblSteuertypTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblSteuertypTableAdapter.Transaction = Nothing End If If (Not (Me._tblTelotec_AbgabenTableAdapter) Is Nothing) Then Me._tblTelotec_AbgabenTableAdapter.Connection = CType(revertConnections(Me._tblTelotec_AbgabenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_AbgabenTableAdapter.Transaction = Nothing End If If (Not (Me._tblTelotec_AnmeldungTableAdapter) Is Nothing) Then Me._tblTelotec_AnmeldungTableAdapter.Connection = CType(revertConnections(Me._tblTelotec_AnmeldungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_AnmeldungTableAdapter.Transaction = Nothing End If If (Not (Me._tblTelotec_PackstueckeTableAdapter) Is Nothing) Then Me._tblTelotec_PackstueckeTableAdapter.Connection = CType(revertConnections(Me._tblTelotec_PackstueckeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_PackstueckeTableAdapter.Transaction = Nothing End If If (Not (Me._tblTelotec_ParamterTableAdapter) Is Nothing) Then Me._tblTelotec_ParamterTableAdapter.Connection = CType(revertConnections(Me._tblTelotec_ParamterTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_ParamterTableAdapter.Transaction = Nothing End If If (Not (Me._tblTelotec_PositionsdatenTableAdapter) Is Nothing) Then Me._tblTelotec_PositionsdatenTableAdapter.Connection = CType(revertConnections(Me._tblTelotec_PositionsdatenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_PositionsdatenTableAdapter.Transaction = Nothing End If If (Not (Me._tblTelotec_PositionsdatenAbgabenTableAdapter) Is Nothing) Then Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Connection = CType(revertConnections(Me._tblTelotec_PositionsdatenAbgabenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_PositionsdatenAbgabenTableAdapter.Transaction = Nothing End If If (Not (Me._tblTelotec_PositionsdatenDokumenteTableAdapter) Is Nothing) Then Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Connection = CType(revertConnections(Me._tblTelotec_PositionsdatenDokumenteTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_PositionsdatenDokumenteTableAdapter.Transaction = Nothing End If If (Not (Me._tblTelotec_SicherheitTableAdapter) Is Nothing) Then Me._tblTelotec_SicherheitTableAdapter.Connection = CType(revertConnections(Me._tblTelotec_SicherheitTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTelotec_SicherheitTableAdapter.Transaction = Nothing End If If (Not (Me._tblTestTableAdapter) Is Nothing) Then Me._tblTestTableAdapter.Connection = CType(revertConnections(Me._tblTestTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTestTableAdapter.Transaction = Nothing End If If (Not (Me._tblTextkonserveTableAdapter) Is Nothing) Then Me._tblTextkonserveTableAdapter.Connection = CType(revertConnections(Me._tblTextkonserveTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTextkonserveTableAdapter.Transaction = Nothing End If If (Not (Me._tblTR_AvisoTableAdapter) Is Nothing) Then Me._tblTR_AvisoTableAdapter.Connection = CType(revertConnections(Me._tblTR_AvisoTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTR_AvisoTableAdapter.Transaction = Nothing End If If (Not (Me._tblTR_AvisoAnheangeTableAdapter) Is Nothing) Then Me._tblTR_AvisoAnheangeTableAdapter.Connection = CType(revertConnections(Me._tblTR_AvisoAnheangeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTR_AvisoAnheangeTableAdapter.Transaction = Nothing End If If (Not (Me._tblTR_ShipmentTableAdapter) Is Nothing) Then Me._tblTR_ShipmentTableAdapter.Connection = CType(revertConnections(Me._tblTR_ShipmentTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTR_ShipmentTableAdapter.Transaction = Nothing End If If (Not (Me._tblTR_Shipment_AdressenTableAdapter) Is Nothing) Then Me._tblTR_Shipment_AdressenTableAdapter.Connection = CType(revertConnections(Me._tblTR_Shipment_AdressenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTR_Shipment_AdressenTableAdapter.Transaction = Nothing End If If (Not (Me._tblTR_Shipment_DocumentTableAdapter) Is Nothing) Then Me._tblTR_Shipment_DocumentTableAdapter.Connection = CType(revertConnections(Me._tblTR_Shipment_DocumentTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTR_Shipment_DocumentTableAdapter.Transaction = Nothing End If If (Not (Me._tblTR_Shipment_PositionTableAdapter) Is Nothing) Then Me._tblTR_Shipment_PositionTableAdapter.Connection = CType(revertConnections(Me._tblTR_Shipment_PositionTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTR_Shipment_PositionTableAdapter.Transaction = Nothing End If If (Not (Me._tblTR_Shipment_Position_DocumentTableAdapter) Is Nothing) Then Me._tblTR_Shipment_Position_DocumentTableAdapter.Connection = CType(revertConnections(Me._tblTR_Shipment_Position_DocumentTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTR_Shipment_Position_DocumentTableAdapter.Transaction = Nothing End If If (Not (Me._tblTranslateTableAdapter) Is Nothing) Then Me._tblTranslateTableAdapter.Connection = CType(revertConnections(Me._tblTranslateTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTranslateTableAdapter.Transaction = Nothing End If If (Not (Me._tblTranslateAutoTableAdapter) Is Nothing) Then Me._tblTranslateAutoTableAdapter.Connection = CType(revertConnections(Me._tblTranslateAutoTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTranslateAutoTableAdapter.Transaction = Nothing End If If (Not (Me._tblTrdinHeaderTableAdapter) Is Nothing) Then Me._tblTrdinHeaderTableAdapter.Connection = CType(revertConnections(Me._tblTrdinHeaderTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTrdinHeaderTableAdapter.Transaction = Nothing End If If (Not (Me._tblTrdinInvoiceTableAdapter) Is Nothing) Then Me._tblTrdinInvoiceTableAdapter.Connection = CType(revertConnections(Me._tblTrdinInvoiceTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTrdinInvoiceTableAdapter.Transaction = Nothing End If If (Not (Me._tblTrdinProductTableAdapter) Is Nothing) Then Me._tblTrdinProductTableAdapter.Connection = CType(revertConnections(Me._tblTrdinProductTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblTrdinProductTableAdapter.Transaction = Nothing End If If (Not (Me._tblUIDPruefungTableAdapter) Is Nothing) Then Me._tblUIDPruefungTableAdapter.Connection = CType(revertConnections(Me._tblUIDPruefungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUIDPruefungTableAdapter.Transaction = Nothing End If If (Not (Me._tblUStVAntragTableAdapter) Is Nothing) Then Me._tblUStVAntragTableAdapter.Connection = CType(revertConnections(Me._tblUStVAntragTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUStVAntragTableAdapter.Transaction = Nothing End If If (Not (Me._tblUStVBelegeingangTableAdapter) Is Nothing) Then Me._tblUStVBelegeingangTableAdapter.Connection = CType(revertConnections(Me._tblUStVBelegeingangTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUStVBelegeingangTableAdapter.Transaction = Nothing End If If (Not (Me._tblUStVErstattungTableAdapter) Is Nothing) Then Me._tblUStVErstattungTableAdapter.Connection = CType(revertConnections(Me._tblUStVErstattungTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUStVErstattungTableAdapter.Transaction = Nothing End If If (Not (Me._tblUStVFormulareTableAdapter) Is Nothing) Then Me._tblUStVFormulareTableAdapter.Connection = CType(revertConnections(Me._tblUStVFormulareTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUStVFormulareTableAdapter.Transaction = Nothing End If If (Not (Me._tblUStVKuLäFoTableAdapter) Is Nothing) Then Me._tblUStVKuLäFoTableAdapter.Connection = CType(revertConnections(Me._tblUStVKuLäFoTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUStVKuLäFoTableAdapter.Transaction = Nothing End If If (Not (Me._tblUStVLäFoTableAdapter) Is Nothing) Then Me._tblUStVLäFoTableAdapter.Connection = CType(revertConnections(Me._tblUStVLäFoTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUStVLäFoTableAdapter.Transaction = Nothing End If If (Not (Me._tblUStVLeistenderTableAdapter) Is Nothing) Then Me._tblUStVLeistenderTableAdapter.Connection = CType(revertConnections(Me._tblUStVLeistenderTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUStVLeistenderTableAdapter.Transaction = Nothing End If If (Not (Me._tblUStVPositionenTableAdapter) Is Nothing) Then Me._tblUStVPositionenTableAdapter.Connection = CType(revertConnections(Me._tblUStVPositionenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUStVPositionenTableAdapter.Transaction = Nothing End If If (Not (Me._tblUStVTexteTableAdapter) Is Nothing) Then Me._tblUStVTexteTableAdapter.Connection = CType(revertConnections(Me._tblUStVTexteTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUStVTexteTableAdapter.Transaction = Nothing End If If (Not (Me._tblUTAArchivTableAdapter) Is Nothing) Then Me._tblUTAArchivTableAdapter.Connection = CType(revertConnections(Me._tblUTAArchivTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUTAArchivTableAdapter.Transaction = Nothing End If If (Not (Me._tblUTAFakturierwarenartenTableAdapter) Is Nothing) Then Me._tblUTAFakturierwarenartenTableAdapter.Connection = CType(revertConnections(Me._tblUTAFakturierwarenartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUTAFakturierwarenartenTableAdapter.Transaction = Nothing End If If (Not (Me._tblUTAHeaderTableAdapter) Is Nothing) Then Me._tblUTAHeaderTableAdapter.Connection = CType(revertConnections(Me._tblUTAHeaderTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUTAHeaderTableAdapter.Transaction = Nothing End If If (Not (Me._tblUTAHeaderNewTableAdapter) Is Nothing) Then Me._tblUTAHeaderNewTableAdapter.Connection = CType(revertConnections(Me._tblUTAHeaderNewTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUTAHeaderNewTableAdapter.Transaction = Nothing End If If (Not (Me._tblUTAImportTableAdapter) Is Nothing) Then Me._tblUTAImportTableAdapter.Connection = CType(revertConnections(Me._tblUTAImportTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUTAImportTableAdapter.Transaction = Nothing End If If (Not (Me._tblUTAImportNewTableAdapter) Is Nothing) Then Me._tblUTAImportNewTableAdapter.Connection = CType(revertConnections(Me._tblUTAImportNewTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUTAImportNewTableAdapter.Transaction = Nothing End If If (Not (Me._tblUTALeistungenTableAdapter) Is Nothing) Then Me._tblUTALeistungenTableAdapter.Connection = CType(revertConnections(Me._tblUTALeistungenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUTALeistungenTableAdapter.Transaction = Nothing End If If (Not (Me._tblUTATrailerTableAdapter) Is Nothing) Then Me._tblUTATrailerTableAdapter.Connection = CType(revertConnections(Me._tblUTATrailerTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUTATrailerTableAdapter.Transaction = Nothing End If If (Not (Me._tblUTATrailerNewTableAdapter) Is Nothing) Then Me._tblUTATrailerNewTableAdapter.Connection = CType(revertConnections(Me._tblUTATrailerNewTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblUTATrailerNewTableAdapter.Transaction = Nothing End If If (Not (Me._tblVermarktungsnormenTableAdapter) Is Nothing) Then Me._tblVermarktungsnormenTableAdapter.Connection = CType(revertConnections(Me._tblVermarktungsnormenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblVermarktungsnormenTableAdapter.Transaction = Nothing End If If (Not (Me._tblVermarktungsnormenGebuehrenTableAdapter) Is Nothing) Then Me._tblVermarktungsnormenGebuehrenTableAdapter.Connection = CType(revertConnections(Me._tblVermarktungsnormenGebuehrenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblVermarktungsnormenGebuehrenTableAdapter.Transaction = Nothing End If If (Not (Me._tblVorauskassenTableAdapter) Is Nothing) Then Me._tblVorauskassenTableAdapter.Connection = CType(revertConnections(Me._tblVorauskassenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblVorauskassenTableAdapter.Transaction = Nothing End If If (Not (Me._tblWahrungtabelleNEUTableAdapter) Is Nothing) Then Me._tblWahrungtabelleNEUTableAdapter.Connection = CType(revertConnections(Me._tblWahrungtabelleNEUTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblWahrungtabelleNEUTableAdapter.Transaction = Nothing End If If (Not (Me._tblWarenbezeichnungBegriffeTableAdapter) Is Nothing) Then Me._tblWarenbezeichnungBegriffeTableAdapter.Connection = CType(revertConnections(Me._tblWarenbezeichnungBegriffeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblWarenbezeichnungBegriffeTableAdapter.Transaction = Nothing End If If (Not (Me._tblZabis_Atlas_NCTSTableAdapter) Is Nothing) Then Me._tblZabis_Atlas_NCTSTableAdapter.Connection = CType(revertConnections(Me._tblZabis_Atlas_NCTSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblZabis_Atlas_NCTSTableAdapter.Transaction = Nothing End If If (Not (Me._tblZahlungszieltexteTableAdapter) Is Nothing) Then Me._tblZahlungszieltexteTableAdapter.Connection = CType(revertConnections(Me._tblZahlungszieltexteTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblZahlungszieltexteTableAdapter.Transaction = Nothing End If If (Not (Me._tblZolaris_EZoll_NCTSTableAdapter) Is Nothing) Then Me._tblZolaris_EZoll_NCTSTableAdapter.Connection = CType(revertConnections(Me._tblZolaris_EZoll_NCTSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblZolaris_EZoll_NCTSTableAdapter.Transaction = Nothing End If If (Not (Me._tblZOLL_WechselkurseTableAdapter) Is Nothing) Then Me._tblZOLL_WechselkurseTableAdapter.Connection = CType(revertConnections(Me._tblZOLL_WechselkurseTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblZOLL_WechselkurseTableAdapter.Transaction = Nothing End If If (Not (Me._tblZollArtikelTableAdapter) Is Nothing) Then Me._tblZollArtikelTableAdapter.Connection = CType(revertConnections(Me._tblZollArtikelTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblZollArtikelTableAdapter.Transaction = Nothing End If If (Not (Me._tblZollUnterArtikelTableAdapter) Is Nothing) Then Me._tblZollUnterArtikelTableAdapter.Connection = CType(revertConnections(Me._tblZollUnterArtikelTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tblZollUnterArtikelTableAdapter.Transaction = Nothing End If If (Not (Me._temporaryUpsizedTable2TableAdapter) Is Nothing) Then Me._temporaryUpsizedTable2TableAdapter.Connection = CType(revertConnections(Me._temporaryUpsizedTable2TableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._temporaryUpsizedTable2TableAdapter.Transaction = Nothing End If If (Not (Me._verkehrszweigeTableAdapter) Is Nothing) Then Me._verkehrszweigeTableAdapter.Connection = CType(revertConnections(Me._verkehrszweigeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._verkehrszweigeTableAdapter.Transaction = Nothing End If If (Not (Me._vermerkeTableAdapter) Is Nothing) Then Me._vermerkeTableAdapter.Connection = CType(revertConnections(Me._vermerkeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._vermerkeTableAdapter.Transaction = Nothing End If If (Not (Me._vorkostenTableAdapter) Is Nothing) Then Me._vorkostenTableAdapter.Connection = CType(revertConnections(Me._vorkostenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._vorkostenTableAdapter.Transaction = Nothing End If If (Not (Me._währungstabelleTableAdapter) Is Nothing) Then Me._währungstabelleTableAdapter.Connection = CType(revertConnections(Me._währungstabelleTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._währungstabelleTableAdapter.Transaction = Nothing End If If (Not (Me._zahlungsartenTableAdapter) Is Nothing) Then Me._zahlungsartenTableAdapter.Connection = CType(revertConnections(Me._zahlungsartenTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._zahlungsartenTableAdapter.Transaction = Nothing End If If (Not (Me._zbadzTableAdapter) Is Nothing) Then Me._zbadzTableAdapter.Connection = CType(revertConnections(Me._zbadzTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._zbadzTableAdapter.Transaction = Nothing End If If (Not (Me._zbantTableAdapter) Is Nothing) Then Me._zbantTableAdapter.Connection = CType(revertConnections(Me._zbantTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._zbantTableAdapter.Transaction = Nothing End If If (Not (Me._zbapoTableAdapter) Is Nothing) Then Me._zbapoTableAdapter.Connection = CType(revertConnections(Me._zbapoTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._zbapoTableAdapter.Transaction = Nothing End If If (Not (Me._zbposTableAdapter) Is Nothing) Then Me._zbposTableAdapter.Connection = CType(revertConnections(Me._zbposTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._zbposTableAdapter.Transaction = Nothing End If If (Not (Me._zkteingTableAdapter) Is Nothing) Then Me._zkteingTableAdapter.Connection = CType(revertConnections(Me._zkteingTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._zkteingTableAdapter.Transaction = Nothing End If If (Not (Me._zollsystemeTableAdapter) Is Nothing) Then Me._zollsystemeTableAdapter.Connection = CType(revertConnections(Me._zollsystemeTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._zollsystemeTableAdapter.Transaction = Nothing End If If (Not (Me._zulassungen_ZnVTableAdapter) Is Nothing) Then Me._zulassungen_ZnVTableAdapter.Connection = CType(revertConnections(Me._zulassungen_ZnVTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._zulassungen_ZnVTableAdapter.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